Digital PDFs

AH-F134A-MC

May 1979

101 pages

Original

4.4MB

view download

OCR Version

4.0MB

view download

Document:	CZRLMA0 RL11,RLV11 RL01,02 BSFT MAY 1979 bw
Order Number:	AH-F134A-MC
Revision:	000
Pages:	101
Original Filename:	CZRLMA0__RL11,RLV11__RL01,02_BSFT__AH-F134A-MC__MAY_1979_bw.pdf

OCR Text

R L1 1

’

R LV1 1

RL07,02 BSFT

CZRLMAO

AH-F134A-MC

copvricuT 1979
FICHE 1 OF 1

MAY 1979

EEOREN

MADE IN USA

IDENTIFICATION
Stea 000

PRODUCT

THE

Al =f Y 3SA-M(

PROD ,CY NARED

(ZRUMAD RLOT/0c

CA'E

S5=JAN=79

REATED:

BAD SECTOR FI(E

WAINTAINER:

DIAGNGSTIC ENGINEERING

AUTHOR :

MENT

CAMPBELL

IN THIS DOCUMENT 1S SUBJECT 1O (HANGE
WlTHOUT
NOSHOULD NOT BE CON>TRUED AS A (OMMITMENT BY DIGITAL EQUIPCORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONAND

SIBILITY

FOR ANY ERRORS

SOF TWARE

(HASER

DESCRIBED

UNDER

THAT

A LICENSE

MAY

TMIS

FOR

USE

APPEAR

DOCUMENT

ON A

IN THIS MANUAL.

SINGLE

FURNISHED

COMPUTER

THE

SYSTEM AND

Bt C(OPJED (WITH INCLUSION OfF DIGITAL'S COPYRIGHY NOTICE)
gSE ll~12U(" SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED
Y

TO0L

INFORMATION

TICE

THE

(ODE
:

PUR-

(AN

ONLY
FOR
IN WRITING

DIGITAL.

DIGITAL

EQUIPMENT

OR RELIABILITY

(ORPORATION ASSUMES NO RESPONSIBILITY
ITS

SOFTWARE

ON EQUIPMENT

THAT

DIGITAL,
(OPYRIGHT

1979,

DIGITAL

EQUIPMENT

(ORPORATION

IS NOT

FOR

THE

USE

SUPPLIED BY

TABLt

'.0
'

1.1.1
1.1.2
1.2
1.2.1
1.2.2
1.3
1.4

i.5
2.0

2.1
2.1.1
2.1.2
2.2
2.2.1
2.2.2
2.3
2.6

(ONTENTS

GENERAL INFORMATION
PROGRAM ABSTRA(T

STRUCTURE OF PROGRAM
DIAGNOST]IC INFORMATION
SYSTEM REQUIREMENTS

HARDWARE REQUIREMENTS
SOF TWARE REQUIREMENTS
RELATED DOCUMENTS AND

STANDARDS

DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPT
] ONS

OPERATING

INSTRUCTIONS

HOW TO RUN THIS DJAGNOSTIC
THE SIX STEPS OF EXECUTION
SAMPLE RUN-THROUGH

DETAILS OF
TABLE

COMMANDS AND SYNTAX

COMMAND

VALIDITY

COMMAND SYNTAX

HARDWARE

SOF TWARE

PARAMETERS

3.0

ERROR

6.0

PERFORMANCE

5.0

DEVICE
TEST

INFORMAT]ON
AND

PROGRESS REPORTS

INFORMATION TABLLS

SUMMARIES

PAGE

SEa 0002

D 1

(4]

PAGE

GENERA.

1.1

INFORMAT]ION

STRUCTURE

PROGRAM

THIS DIAGNOSTIC OCCUPIES 14.5¢k WORDS OF MEMORY
AND
IS
C(OMPATIRLE
WlTW BOTH XXDP AND ACT.
IT IS TO BE PUN STANDALONE UNDER XXDP,
[T
IS A SINGLE PROGRAM FROM THE STANDPOINT Of THE DIAGNOSTIC USER, BuT

Wt
HAVE
RELEASED

INCORPOKATED
INDEPENDENTLY

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

LATER BE

WHEN THIS DIAGNOSTIC 1S STARTED AT ADDRESS 200, CONTROL GOES
FIRST
10 THE SUPERVISOR PORTION, WHICH WILL ASK CERTAIN ""HARD (GRE'' QUESTIONS

ABOUT

DICATED
TOR MAY

THE

ENVIRONMENT.

A PROMPT

ENTER

ANY

SUPERVISOR

CHARACTER
SEVERAL

THEN

WILL

(DS B>).

COMMANDS AS

CODING FOLLOWS

ENTER

COMMAND MODE,

COMMAND MODE

DESCRIBED BELOW.

IMMEDIATELY

THE

DIAGNOSTIC

THE

|N-

OPERA-

TEST

(O0D-

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 IT MAY BF CONSULTED IN
EVENT OF A SOF TWARE PROBLEM.
1.1.2

DIAGNOSTIC

INFORMATION

THERE 1S NO SFECIFIC RUN TIME ASSOCIATED WITH THIS UTILITY
HOWEVER,
TO WRITE THE WORST CASE DATA PATTERN ON THE DISK

VERIFY

RLOT

THE

DATA BY READING SHOULD

AND LESS

THAN 2 MINUTES

1.2

SYSTEM REQUIREMENTS

l.e.1

HARDWARE

PDP='1/LSI=11

¢ (ONSOLE DEVICE
*

FOR

TAKE

LESS

THAN

MINUTE

FOR

AN RLOZ.

REQUIREMENTS

PROCESSOR WITH

16K

OR MORE

MEMORY

(LA30,LA36,VT50,ETC.)

OR 2 RLTI/RLVIY (ONTROLLER(S) WITH:
1 = 8 RLOT DRJVES WITH RLOIK CARTRIDGES

PROGRAM,
AND THEN

SECTOR FILE'

=« 8 RLO2 DRIVES WITH RLO2K

SECTOR FIJLE'

CONTAINING

'BAD

CARTRIDGES CONTAINING

'BAD

SEQ 0003

]

PAGE

rwllP, KWilL

* LINE
1.2.2

PRINTFR

(OPTIONAL)

(OPT]ONAL)

SOf TwARE

REQUIREMENTS

(ZRLMAQ RLO1/C2 BAD

1.3

SECTOR fFILE

T00L

RELATED DOCUMENTS AND STANDARDS
RLOT USERS MANUAL
XXDP USERS MANUAL

1.6

(EXK=-RLO1-PG-PRE)

DIAGNOSTIC

THE

RLO1/02

HIERARCY

CVRLAAO
CIRLGAQ
CIRLHAD

SUCCESSFULLY

RUN

THE

FOLLOWING

RLVIT RLO1/02 DISKLESS TEST (RLVI1
RLIT/RLVTIT RLO1/02 CONTROLLER TEST
RL11/RLVIY RLO1/02 CONTROLLER TEST

(ZRLIAQD

RLO1/02 DRIVE TEST

(IRLJAD
CZRLKAO
1.5

PREREQUISITES

SUBSYSTEM SHOULD HAVE

PROGRAMS
:

(PART

RLO1/02 DRIVE TEST (PARY 2)
RLIT/RLVIY RLO1/02 PERFORMANCE

ONLY)
(PART
(PART

1)
2)

FXERCISER

ASSUMPT JONS
THE HARDWARE OTHER THAN THE RLO1/02 SUBSYSTEM IS
ASSUMED
PROPERLY.
FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR,

NOT
THIS

THE

T0
WORK
ETC., DO

FUNCTION PROPIAQLY.
UTILITY

DIAGNOSTIC

WiLL

COMFORM

ALL

INTERFACE

SPECIFICATIONS

FOR

THE

DES-

SUPERVISOR.

INTERNAL

FORMAT

THE

BAD

SECTOR

(RIBED
BY
THE DEC STD-144 DOCUMENT
INFORMATION CONTAINED IN THAT FILE.

FILE

WILL

OPERATING

INSTRUCTIONS

THE

SAME

FOR REPORTING AND LPDATING

NO SUPPORT WILL BF GIVEN FOR THE RLBA/RLOY DISK
PDP=8 SYSTEM.,,.THIS IS A PDP=11 UTILITY ONLY!

2.0

CONTROLLER

THE

ANY

$€a 0004

“AGE

HOW TO RUN

THIS UTILITY

DURES.
THE

THE

UTILITY

WHEN

THIS DIAGNOSTIC

SHOULD BE

START

HAS

LOADED

AND

STARTED USING NORMAL

COMMAND SHOULD NOT

THE

THIS UTILITY

PRGPER

TRANSFER

STARTED,

THE

SPECIFY

ADDRESS

FOLLOWING

XXDP

PROCE-

AN ADDRESS, BE(AUSE

(ODED

INTO

STEPS WILL

IT.

OCCUR:

teRnedecey

STEP

st RARNRNSOYN

SHORT

SERIES OF

"'HARDCORE

QUEST]ON

L=CLK
P-CLK

SOHZ

LSl
LPT

MEM

(L)
(L)

(L)

(L)
(L)

(K)

IS
"

N ?

(D)

ASKED:

MEANING

N?
N ?

N2
N ?

QUESTIONS'' WlLL

THERE AN L-CLOCK?
ot
P=CLOCK?

IS THE POWER 50 CYCLES

(AS

IN EURQPE)?

IS MACHINE AN LSI?
IS THERE A LINE PRINTER?

HOW MANY

MEMORY

ARE

THERE?

THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE SELECTED BY «ITTING
(ARRIAGE RETURN.
1T 1S POSSIBLE THAT NOT ALL OF THE QUESTIONS wlLL

THE

I1f

ASKED:

P=(LOCK

FOR EXAMPLE,

NEJTHER P OR L
TYPE

OQUESTION WILL

YOU SAY "'YES' TO THE

NOT

CLOCK ARE

TWO CHARA(CTERS &

L-CLOCK

QUESTION,

ASKED.

ANSWERED YES THE OPERATOR WILL BE ASKED

SECONDS

APART,

tResREORNRY

* STEP 2 »
(ARRARRNNE

WHEN

ISSUE

YOU HAVE

ANSWERED

THE PROMPT

ALL

''DS=B>''.

THE

HARDCORE

QUESTIONS,

THE

UTILITY

WiLL

FROM THIS POINT UNTIL THE TIME WHEN YOU

RESTART XXDP, YOU WILL BE TALKING TO THE
UTILITY,
NOT
XXDP.
WE
WitL
REFER
TO
THE PRESENCE OF TH]S PROMPT AS BEING IN DJAGNOSTIC
(OMMAND MODE, AS OPPOSED TO XXDP COMMAND MODE.

THIS POINT

SAME

AS THE

YOU WILL

ENTER A ''START'' (OMMAND.

PONSE TO THE XXDP DOT PROMPT,
NUMBER
OF SWITCHES AND FLAGS

THIS
''START'®
(ALL OPTJONAL).

USE

TO SAY

THE

THIS

XXDP ‘'START'' COMMAND, WHICH YOU ALREADY

PROGRAM,

ALL

YOU NEED

ISSUED

NOT

COMMAND
(AN
TAKE
HOWEVER, [N ORDER

IS SOMETHING LIKE

THIS:

THE

IN RES-

A
10

SEQ 0005

PAGE

STA
THINGS TO NOTE MERE:
ANY
COMMAND
AT
THE

S:égtgn?lv

SPECIFY

ANY

ONLY THE FIRST
°''DS=-B>'" LEVEL

HOE

MALT

1ER

INHIBIT

A NUMBER OF

THREE (MARACTERS
NEED TO BE TYPED.

FLAGS,

BUT

THE

OF
THIS
OR
THE '‘FLAGS"

MAIN

USEFUL

ON ERROK

ERROR PRINTOLT

et RERNERNEY

STEP 3«

ttegsNEOORNS

WHEN YOU hAVE TYPED IN A ''START'' (OMMAND,
THE
UTILITY
WILL
COME
BACK
WITH
THE
QUESTION ''# UNITS?'" TO WHICH YOU SHOULD RESPOND BY
YVPlTGDAT EHE
ONY
vt).

NUMBER

DEVICES

YOU WISH

I EREE SRR

STEP &

1422222

WHEN YOU HAVE
Ty
wltL
ASK
QUESTIONS ARE

?E;?EBES”.

TYPED
YOU
USED

TESTTM

(THE

IN THE NUMBER OF UNITS TO BE TESTED, THE UTILITHE "‘HARDWARE QUESTIONS''.
THE ANSWERS T0 THESE
TO
BUILD
TABLES
IN
(ORE,
CALLED
‘'HARDWARE

ONE HARDWARE P-TABLE WILL BE BUILT

REPRESENTS

USES

FOR EACH UNIT

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

THIS

UTILITY

NEW

PHILOSOPHY

DFVICE.

DIAGNOSTIC

SERIES

TO BE

WiLL

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

reTRRARSERNSY

* STEP 5

TReERREORPRY

AFTER

UNITS,

YOU HAVE

YOU

ANSWERED ALL

WILL BE

THE

HARDWARE

ASKED "'CHANGE

SW?'" IF

QUESTIONS

YOU WANT

FOR

ALL

THE

TO BE ASKED THE

SOF TWARE QUESTIONS THAT DETERMINE THE
BEHAVIOR
OF
THIS
PROGRAM,
TYPE *'v"',
IF YOu WANT 10 TAKE ALL THE DEFAULTS TO THESE QUESTIONS,
TYPE “N"'.
IF YOU TYPE ''Y"* YOU WILL BE
ASKED
THE
SOFTWARE
QUES-

llONE, AND
PROGRAM,

THE

ANSWERS

WILL

PUT

INTO

THE

SOFTWARE

P-TABLE

THE

SEQ 0006

PAGE

ORCY

STEP 6

seeeRRNORERY

AFTER

YOU HAVE

ANSWERED

THE

SOFTWARE

QUESTIONS,

THE

UTILI'Y

WiLL

HAPPENS,

DE-

BEGIN
10
ENECUTE.
THERE ARE SEVERAL THINGS THAT (AN HAPPEN NEXT,
DEPENDING ON WHETHER A HARDWARE ERROR 1S ENCOUNTERED
AND
ALSO
ON
WHAT SWITCH VALUES YOU SELECTED ON THE START (OMMAND.
1f

AN ERROR

PENDING ON

|S ENCOUNTERED,

THE

SETTINGS Of

THEN ONE OF

THE

HOE

THREE

AND LOE

THINGS

FLAGS.

HOE

SET:

THt
THE

LOE

SET:

THE UTILITY WiLL LOOP ENDLESSLY ON THE
OF CODE THAT DETECTED THE ERROR.

ERROR wiLL BE REPORTEl ON THE CONSOLE
UTILITY WILL RETURN TU COMMAND MODE.

AND

BLOCK

NEJTHER HOE NOR LOE SET:
THE ERROR WILL BE REPORTED ON
THE CONSOLE AND NORMAL EXECUTION Wi.l RESUME
AS

NO ERROR

HAD

OCCURED.

SEQ 0007

)

PAGE

l. 1 .l

SAMPLE

RUN-THROUGH -

LET'S SEE HOW ALL THIS WORKS
ENTERED

THE

TYPICAL WAY

;gfilsgl?gLE

COMMANC

7O RUN THE

-15SUED.

(OMMON

TO DIAGNOSTIC

IN A REAL

DIAGNOSTIC.

REQUESTED PASS wiLL

SUPERVISOR

SITUATION.

°''STA/PASS:1/FLAGS:HOE''.

RECALL

THAT

THIS WOULD BE

NO ERRORS

ARE

EXECUTED AND THE

A VERY

ENCOUNTERED,

PROMPT WiLL RE

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

1SSUE

ANOTHER ‘'START'' (OMMAND

STEPS 2,
2.

ISSUE

THAT

3, &,

AND 6 AGAIN)

A ""RESTART'® COMMAND

THE

HARDWARE

(THUS

GOING

(SAME

START

QUESTIONS ARE

NOT

ASKED)

THRU

(OMMAND

ALL

EXCEPT

1SSUE A "'CONTINUE'' COMMAND

(EXECUTION WILL RESUME

THE

ISSUE

EXECUTION WILL

RESUME

THE

PROCEET,

BUT

WITH

BEGINNING
OF
THE PARTICULAR HARDWARE TEST (MOST DIAGNOST1CS CONSIST OF A NUMBER OF THESE) THAT 1T WAS IN WHEN THE
ERROR HALT OCCURED.
NO QUESTIONS ASKED.

A °‘‘PROCEED’' COMMAND:

INSTRUCTION

COMMAND AND
THE

MOST

TYPICAL

DIFFERENT

FOLLOWING THE ERROR REPORT

CAN BE

THING

ISSUED ONLY

TO DO HERE

FLAG SETTINGS.

PROBABLY

PRO/FLAGS: IFR:LOE :HOE=0

A HALT

ISSUE

THE

YOU WOULD WANT

(THIS

IS A SPECIAL

10 SAY:

SEQ 0008

THIS wiLL

THE

FOLLOWING:

TURN ON THE

TURN ON THE LOE FLAG

TURN OFF

RESUME

THE

JER

(INHIBIT

ERROR PRINTOUT)

FLAG

THE HOE FLAG

EXECUTION AT

THE DIAGNOSTIC WILL
REPORTED THE ERROR,

STUDY

PAGE 9

INSTRUCTION AFTER

NOW LOOP ON THE BLOCK
BUT NO ERROR PRINTOUT

ERROR OK SCOPE

ERROR

REPORT

OF CODE THAT
WILL OCCUR.

DETECTED AND
THUS YOU CAN

OR WHATEVER.

WHEN YOU'VE SEEN ENOUGH, YOU MAY H]T (ONTROL/C.
THIS WiLL TAKE YOU
Qul
Of
THE LOOP AND PUT YOU BACK INTO (OMMAND MODE.
YOU NOW HAVE
THREE

CHOICES:

START

RESTART

CONTINUE

LET'S SAY
RUNNING

YOU'VE

THE

REPAIRED THE

DJAGNOSTIC.

DEFECT

VYOU WOULD

FOUND ABOVE

AND WANT

TO fIN]ISH

TYPE

(ON/FLAGS:HOE: 1ER=0:LOE=0
THIS WILL

AND RESUME

EX-

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

THE
THE

TwO

RESTORE

END OF

(HOJCES:

PASS

START

RESTART

THE

FLAGS

YOU WANT

THEIR

TO RUN THE

YOU wOULD C(HOOSE ONE, DEPENDING
HAKDWARE QUESTIONS AGAIN.

ORIGINAL

VALUES

DJAGNOSTIC

ON WHETHEP

YOU

AGAIN,

WANTED

YOU

TO ANSWER

HAVE

THE

SEQ 0009

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

ABOVE

DIALOGUE

MIGHT

WHOM

ENTERED

CIRLMA

CIRLM
L=CLK

S0HZ

LSl
LPT
MEM

D
(L)

(L) N ?

(L)
(L)
(K)

N?
N ?
(D)

0.0

D
D
0

16 ?

05-B>STA
#

UNITS

0.0
(D)

0.0

UNIT 1
BUS ADDRESS (0)
DRIVE (0) 0 ?

174400 ?

0
D.O
0.0

UNIT 2
BUS ADDPESS (0)
DRIVE (0) 0 ? 1

174400 ?

D
0.0
0.0

CHANGE

(L)

? N

0.0

CZRLM HRD ERR 00004
ERR HL7

TST 003 SuB 002 PC:004130

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

( E A

AR AR

AR 2R

THIS POINY

THE

0.0

DIAGNOSTIC

ERROR UNTIL

YOU HAVE

LOCATED
R R

IS LOOPING ON

ERROR WITHOUT PRINTING ANYTHING.
THE

THE

YOU CAN SCOPE

IT,

R RN PR

THEN

G ER R TR

“C

DS=B>(ON/FLAGS:HOE : JER:LOE=0

0,0

i?ANGE

D.,O

(L)

OUl

REEIROIOETSY

“C

LOOK

PAGE

THIS

SeEQ 0010

DS=B>RESTART/PASS: 1

0.0

(HANGE

0.0

(L)

? N

2.2

DETAILS OF

2.2.1

TABLE OF

SEQ 0011

COMMANDS AND SYNTAX

CCMMAND VALIDITY

THERE ARE FOUR WAYS OF ENTERING DIAGNOSTIC
FERENT SUBSETS OF THE DIAG COMMAND SET ARE

HOW ENTERED

PAGE

COMMAND MODE,
AND
DIfAVAILABLE WITH EACH:

LEGAL

OPERATOR ENTERED

'RUN DIAG'

COMMANDS

START
FRINT
DISPLAY
FLAGS

LFLAGS

) TIAGNOSTIC HAS FINISHED ALL
l TS REQUESTED PASSES

START

RESTART
PRINT

DISPLAY
FLAGS
ZFLAGS

OPERATOR

INTERRUPTED

WAS

ENCOUNTERED

START

HOE

FLAG

RESTART

DIAGNOSTIC

ERROR

WITH

THE

WITH CTRL/C

SET

START

RESTARTY
CONTINUE
PRINT
DISPLAY
FLAGS
ZFLAGS

CONTINUE

PROCEED

PRINT
DISPLAY
FLAGS
IFLAGS

_—

——

2.2.2

1
PAGE

COMMAND SYNTAX = STANDARD TO THE DIAGNOSTIC SUPERVISOR

LA AR ARRA LA

22222

STA(RT)/TESTS:TEST=LIST/PASS:PASS=CNT/FLAGS:FLAG-1ST/EOP:EOP-INCR
AAA AR

THE

DIAGNOSTIC

SPECIFIED.

MAY

ARl

IN CORE

THE

FOLLOWING:

1S EXECUTED

ENTERED

THE

R R X

IN ACCORDANCE

CONTROL/C.

AFTER

R R R

WITH

ARE

THE

IS INITIATED.

NUMBER

REGARDLESS

(UTE

LARGEST

ALL TESTS.

THE

START

X2 R

SWITCHES

C(OMMAND

DIAGNOSTIC

FLAG

SET

OPERATOR RESPONDS

WHEN IT

T0O °'#

IS COMPLETED,

FOLLOWS:

FROM

IN ANY ORDER.

LOAD DEFAULTS.

DECIMAL NUMBERS

T0 THE

THE

(1:2 ETC.)

OF DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY THE
ECUTED.
THE NUMBERS ARE SEPARATED BY COLONS.
THE
1

HAS BEEN ENTERED VIA ONE

“TEST=LIST" IS A SEQUENCE OF

SPECIFIED

SW?'" IS ISSUED, AND THE ANSWERS, IF GIVEN,
THEREFORE IT 1S NECESSARY TO
RELOAD
THE

TO RETURN TO THE

SWITCH ARGUMENTS

ERROR WAS ENCOUNTERED WITH HOE

THE
QUESTIONS
‘‘CKANGE
BECOME THE NEW DEFAULTS.
IN ORDER

COMMAND MODE

UNITS?"', THE HARDWARE DIALOGUE

PROGRAM

XS R

OPERATOR TYPED ‘*RUN DIAGNOSTIC'* B)

FINISHED EXECUTING C)

OPERATOR

MESSAGE '"'# UNITS?"" 15 PRINTED.

]SSUED WHEN DIAGNOSTIC

THE

TEST

IN THE DIAGNOSTIC.

TESTS WlLL BE

ORDER OF

EXECUTED

SPECIFICATION.

"'PASS=CNT'* IS A DECIMAL NUMBER

INDICATING

THE

RANGES

TESTS T0 BE EXNUMBERS
RANGE
THEY MAY BE

IN NUMERICAL
DEFAULT

DESIRED

ORDER

TO EXE-

NUMBER

WHEN

PASSES.
A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC
(ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTEL.
THE
DEFAULT
IS
NOK-ENDING
TEST
EXECUTION.
‘'FLAG-LIST'' 1S A SEQUENCE OF ELEMENTS
Of THE FORM <FLAG>, <FLAG=1>, OR
<FLAG=0>,
SEPARATED
B8Y
C(OLONS,
WHERE <FLAG> HAS ONE OF THE FOLLOWING VALUES:
HOE

HALT

ON ERROR,

ERROR

CAUSING

COMMAND MODE

TO BE

ENTERED

1S ENCOUNTERED

LOE LOOP ON ERROR,

CAUSING THE

DIAGNOSTIC

WITHIN
THE SMAt LEST DEFINED BLOCK OF
TEST, OR TEST) CONTAINING THE ERROR

TIER

INHIBIT

ERRGR REPORTING

IBE

INHIBIT

BASIC

IXE

INHIBIT

EXTENDED ERROR REPORTS

PRI

DIRECT

ALL

PNT

NUMBER

BOE

BELL

ON ERROR

ERROR REPORTS

MESSAGES
OF

TEST

T1C

LINE

PRINTER

BEING EXECUTED

TO LOOP
CODING

CONTINUOUSLY

(SEGMENT,

SuB-

S€a 0012

N
PAGE

UAM RUN
ISR

IN UNATTENDED MODE, BYPASSING MANUAL

INHIBIT

INTERVENTION TESTS

STATISTICAL REPORTS

IDU INHIBIT DROPPING OF

UNITS BY DIAGNOSTIC

THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THCSE
CLEARED.
A FLAG NOT SPECIFIED IS CLEARED.
1F
NOT GIVEN ALL FLAGS ARE CLEARED.

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

DEFAULT
LA

1S DESIRED

1S AT

THE

THAT

END OF

ARl

THE

EVERY

ERl

EQUATED
TO
O
ARF
THE FLAGS SWITCH IS

INDICATING HOW OFTEN
END OF

PASS MESSAGE

PASS.

RN R

(IN
BE

TERMS

PRINTED.

R R E

RS R

RN R

Of
THE

RS RRRR NS

RESCTART)/TEST:TEST=LIST/PASS:PASS=CNT/FLAGS:FLAG-LI1ST/EOP:EQP-INCR/

UNITS:UNIT=LIST
L AAAA

THE

AR Ad

DIAGNOSTIC

IN CORE

SPECIFIED.
HOWEVER,
ONES IN CORE ARE USED.

1S5S

NEW

EXFCUTED

IN ACCORDANCE

‘''P-TABLES'® ARE NOT

WITH

BUILT.

THE

RS R

SWITCHES

INSTEAD,

THE

THE QUESTION “‘CHANGE SW?'' 1S ASKED AND THE ANSWERS GIVEN BECOME THE
NEW
DEFAULTS.
THE COMMAND MAY BE ISSUED WHEN C(OMAND MODE HAS BEEN

ESTE:SD (VIA
CONTROL/C.

THE

DIAGNOSTIC

SWITCH ARGUMENTS

ARE

THE

FINISHED
START

COMMAND

HALT

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
T0 THE ORDER IN WHICH THEY WERE BUILT.
THE
UNITS
SPECIFIED
MUST NOT HAVE BEEN DRCPPED BY THE OPERATOR DROP (CMMAND.
THE UNIT=-LIST DEFAULTS TO '‘ALL THAT HAVE
NOT
BEEN

DROPPED BY OPERATOR COMMAND'',
THE EFFECT OF
LASTS UNTIL THE NEXT
START
(WHERE
IT
IS
RESET TO "'ALL'') OR THE NEXT RESTART.

THE UNIT-LIST
AUTOMATICALLY

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

PO EPNCONIRECRORIORRERTRRNANREORANARARNNRRANONROEY

CONCTINUE) /PASS : <PASS=CNT/FLAGS:<FLAG=LIST>
LA A

RRRd

SRR

RRRRNA

(OMMAND MODE MUST HAVE BEEN ENTERED DUF TO A HALT
ON
ERROR
OR
A
(ONTROL/C.
THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OFf
THE TEST THAT WAS BEING EXECUTED WHEN THE HALT
OR
CONTROL/C
TOOK
PLACE.
SOfTWARE D]JALOGUE MAY OPT]JONALLY BE RE-EXECUTED.
HARDWARE
PARAME TERS

MAY

NOT

C(HANGED.

SEQ 0013

PAGE

SwlT(M

ARGUMENTS

ARE

THE

START

DEFALT FOR PASS=(NT S THME
PREVIOUS START OR RESTARY

UNSFECIFIED FLAG SETTINGS ARE

(OMMAND

EXCEPT:

UNSATISFIED PASS-(NT

FROM

Twt

UN(HANGED

seeRSCOEOROeECTOROTRESORCROTROTROERORTORTRTY

PROCCEED)
7FLAGS : <FLAG=LIST>
teesteRRRRROCCRERRRCOSTCRCORRTROERRTRY

(OMMAND MODE MUST MAVE BEEN ENTERED VIA A HALT ON ERROR.
THE
Ef-~
FECT OF THE COMMAND IS TO BEGIN EXEZUTION AT THE LOCATION FOLLOWING
THE g?ROR CALL.
NE]ITHER HARDWARE NOR SOF TWARE
PARAMETERS
MAY
BE
ALTERET.
THE

SWITCH

I A A

ARGUMENTS

ARE

UNSPECIFICD

AR AR

THE

SAME

THE

FLAG SETTINGS ARE

START

COMMAND

EXCEPT:

UNCHANGED

)

COI/VESY:TEST=LIST/PASS :PASS=CNT/FLAGS:FLAG-LIST/EOP:E0OP-IN(R
I A A

THE

AR A

DIAGNOSTIC

EXECUTES

HARDWARE
TEST
(ODE.
THE MEDIUM WITH A BIC

R E R

THRU

ALL

OPERATOR

NOW THE OPERATOR
EXTENSION.

R Z R E N

RN RN R

DIALOGUE

CAN DUMP

AND

THE

HALTS

(ORE

Tht

IMAGE

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

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

NORED)

TnE

PRE-GENERATED ANSWERS

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

TOR ANSWERS WiLL

RUN

SWITCHES

TitE

THE

QUESTIONS WiLL

PRE-GENERATED

AUTOMATIC

COMMAND ‘'.R

SPECIFIED ON

EXECUTION WILL

DJ]AG''.

THE

(C1

THE

COMMENCE

C(OMMAND PROMPT

BIN
G-

OPERA-

COMMAND WILL

CARRY

IMMEDIATELY

''DS-B>'‘ WlLL

OVER WHEN

BIC FILE I5 RUN IN (HAIN MODE (EXCEPT THAT UAM 1S ALWAYS SET
BUT WiLL NOT CARRY OVER WHEN 1T IS RUN MANUALLY,
TO DO A (C1

USED).

IN CHAIN MODE,

FROM
THE
XXDP
NOT BE ISSUED.
ANY

|7 WILL BEMAVE

TO OPERATOR

ON A FU_L

SIZED DJAGNOSTIC

(14.5

WORDS),

THE

THERE)
MACHINE

SIZE LARGER THAN 16K 1S REQUIRED.
THE EXACT SI17% NEEDED DEPENDS ON
WHICH UTILITY IS USED TO EXECUTE THE DJAGNOSTIC AT (CI TIMt,
[ A2 A

XA R

RN RN
EN]

DROCP)/UNJTS:UNIT=L]ST

SE0 0014

PAGE

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY
ARE
ADDED
SA(( ng g?élL A START (OMMAND IS GIVEN.
A DROP (ANNO! BE FOLLOWED
YA

THERE

1S ALSO A ''DROP'’ MACRO

INTERNAL

THE

DJAGNOSTIC,

GIVES
THE
FACILITY
OF
AUTO-DROPPING.
THE DURATION OF
DROP, HOWEVER, 1S ONLY UNTIL THE NEXT START OR RESTART,
(A2 RAAR

AR AR AR

RER

WHICH

A PROGRAM

ADD/UNITS:UNIT=-L]ST
ttese

THE

RO OROERRSROCREeY

UNJTS

SPECIFIED

ARE

ADDED BACK

ODROPPED
BY
THE DROP (OMMAND)
Bt FOLLOWED BY A PROCEED.
L A

AR SN

(THMEY

THE

MUST

TEST

WAVE

BEEN

SEQUENCE.

PREVIOUSLY

AN ADD CANNOT

PRI(NT)
seeOERY

ALL
THE

STATISTICS TABLES A{LUMULATED BY THE
DJAGNOSTIC
ARE
ISR C(INMIBIT STATISTICAL REPORTVING) FLAG 1S CLEARED.

PRINTED.

seesPROOCTCEROERORERRRRCOCRORONTRERTY

DISCPLAY)/UN]TS:<UNIT=-L]ST>
S EBOERRORERETRPRRORRONORONSRNNSE

THE
THE

HARDWARE P-TABLES FOR ALL
FORMAT IN WHICH THEY WERF

UNITS UNDER TEST ARE PRINTED
ENTERED.
ANY UNITS THAT WERE

BY THE OPERATOR ''DRCP’'' (OMMAND ARE

SO DESIGNATED.

sReTe
e

FLACGS)
seReeeY

THE

CURRENT

SETTINGS

sevePERY

ZFL CAGS)
I A

AR A

ALL

FLAGS ARE

C(LEARED.

ALL

FLAGS

ARE

PRINTED.

CuT
IN
DROPPED

SEQ 0015

]

(. 3

HARDWARE

THE

VALUE LOCATED TO THE LEFT OF THE
THAT WiLL BE TAKEN ON A CARRJAGE

BUS ADDRESS

(D)

174400?

ANSWER WITH

THE

BUS

THE

DRIVE(S)

(0)

ANSWER

WITH

PARAMETERS

FOLLOWING QUESTIONS WIiL

DRIVE

PAGE

ADDRESS OF

ASKED

START

QUESTION MARK [S
RETURN RESPONCE.

THE

(OMMAND.

TME

THE

DEFAULT

VALUE

C(ONTROLLER.

SOF TWARE

CONNECTED

THE

(ONTROLLER

PARAMETERS

THE

FOLLOWING QUESTIONS

CONTINUE.

ARE

THEY

ALLOW

"'CHANGE

S.w.

ASKED

REQUESTED

FLEXABILITY

[N THE

WAY

START,

RESTART,

THE PROGRAM BE-

hAVES.
THE SOF TWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY [N THE
WAY
1T
RUNS.
THE PARAMETERS CAN BE MODIFIED ON A START, RESTART,
OR CONTINUE BY ANSWERING (Y)ES 70 THE FOLLOWING QUESTION:

A YES ANSWER WILL ASK THE FOLLOWING SOFTWARE
PARAMETER
QUESTIONS,
WITH
THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION
MARK.
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS
TAKEN
ON A <CR>.,
C(ONTROL Z (*1) WlLL DEFAULT ALL REMAINING QUESTIONS AND

START

THE

TEST,

"'SAWTOOTH WRITE CYCLE?
IF

(L)

"Y' THEN THE WRITE PACK (OMMAND

WRITTEN

FORWARD AND REVERSE

Y 2
(#5) WILL CAUSE

THE PACK

DIRECTION UTILIZING A

'SAWICOTH’

SEEK PATTERN.
THIS WILL ATTEMPT TO DETECT POSITIONER PROBLEMS.
[IF
“N"' FOR NO, THEM THE PACK WILL BE WRITTFN FORWARD AND REVERSE USING

AN INCREMENTAL SEEK
MOSY DIFFICULY.

“"WRITE
THE

DEFAULT

WRITE

MAY

COMMAND

POSSIBLE

ERROR

THIS

CYCLES PER

NUMBER

PACK

TRACK?

TIMES

(#5).

DETECT

]NFORMATION

THE

FASTEST

(D)

TO WRITE

2
A

BUT

NECESSARLY

TH([

"
SELECTED

A HIGHER NUMBER

TRACK

NOT

DRIFTING

TRACK

DURING

1S SELECTED,

POSITIONER

THEN

PROBLEM,

THE

SEQ 0016

ERROR

INFORMATION IS COMP.ETE

IN GIVING ALL

AS CYLINDER,

FAILURLS WILL RESULT IN AN
APPROPIATE
ERROR
DISK
SUBSYSTEM DIAGNOSTIC(S) SHOULD BE PER-

UNEXPECTED “'TRAPS' WILL RESULT

IN A PROPER ERROR MESSAGE

A POWER

PROGRAM

CAUSE

THE

UTILITY

FAJLURE

TO RESTART.

WILL

INFORMATION NECESSARY.

THE *RLCS® AND DRIVE STATUS REGISTER ARE GIVEN AS WELL
TRACK, SECTOR AND DRIVE INVOLVED IN ERRCR.
ANY DETECTED HAAROWARE
?ggg?gg
(THE
PROPER

PAGE

CAUSE

THE

AND

WILL

10 RESTART,

SOF TWARE DETECTED FAILURES - SUCH AS THE DETECTION OF A MISSING BAD
SECTOR
FILE
OR A PARTIALLY DESTROYED BAD SECTOR FILE - WwlLL CAUSE
THE

UTILITY

NOSTIC

TO RESTART

ERROR MESSAGE

3. ]

AFTER

PRINTED.

THE

FAILURE

DIAGNCSED

AND

DIAG-

ERROR REPORTING
ALL ERROR
PORTS ARE
REGISTER

INFORMATION IS
AIMED A1 BEING
DESCRIPTIONS

PRINTED ON THE CONSOLE
SELF EXPLANATORY,

CAN BE

FOUND

SECTION

DEVICE.

ERROR

RE-

5.0.

ERROR MESSAGES:

*DRIVE
THIS MESSAGE 1S
FGRM
A
GIVEN
TABLE
.

ERROR

1S NOT

READY FOR USE''

PRINTED
TASK,.

DETECTED

WHEN
THE

AFTER

THE SELECTED DRIVE 1S NOT ABLE 10 PERDRIVE WILL BE ELIMINATED FROM THE TEST

SFEK

C(OMMAND

WAS

1SSUED.

"DR ERR WILL NOT RESET"
ISSUING A DRIVE

RESET

wOULD NOT

CLEAR

THF

DRIVE

ERROR CONDITION.

DR wOULD NOT LOAD"'
ON PROGRAM START,
BIT SEV.

THE

SELECTED DRIVE

DID NOT

HAVE

°'HEADS OVER PA(K'

SEQ 0017

"PACK
THIS

THIS

JUST

WOULD

IS WRITE

"'TIMEOUT
THE

DPIVE

A WRITE

COMMAND

AN ERROR.

- DR NOT

WAS EXPECTED

NEVER FINISHED

THE

LOCKED"

A WARNING MESSAGE.

INDICATE

2
PAGE

ISSUED,

THEN

RDY''

TO BE

'READY'

AFTER

FUNCTION.

COMMAND WAS

[SSUED AND

"'NO DRIVES"'
THE

PROGRAM

TRYED

SELECT

A DRIVE

FOR

USE

BUT

FAILED

TO FIND ONE.

"'UPDATING DENIED - INVALID PASSWORD''
NORMALLY, THIS PROGRAM WILL
NEVER
PRINT
THIS
MESSAGE!
PROGRAM
PASSWORD
(HECKING
1S
NORMALLY INHIBITTED.
A USER MAY INVOKE THE
FASSWORD CHECK 1F THE WORD '‘PASWD'' AT ADDRESS 2274 1S CHANGED TN
A
NON-ZERO
NUMBER...THIS
°'NUMBER' THEN BECOMES THE PROGRAM PASSWORD
AND MUST BE USED TO ENABLE ANY WRITING ON THE SELECTED PACK.

“'CAN'T UPDATE

THE BAD SECTOR FILE ON PACK"

THAT

THIS

TION

'WRITE'

INDICATION

CANNOT

"'BAD READ OF

THE

PACK

WRITE

PROTECTED

BAD SECTOR FILE

TH]S

MESSAGE

THAN 25.
WARNS

THE

FUNC(C-

DATA

FROM

(20 SECTURS)"

AN ERROR WAS DETECTED WHILE TRYING TO READ 20 SECTORS OF
THE °*FACTORY® OR 'FIELD' AREAS [N THE BAD SECTOR FILE.

""MORE

THE

(OMPLETED.

BAD
USER

SPOTS FOUND ON THIS PACK''
THAT

THE

SELECTED

PACKX

ALREADY

HAS

THAN
25,
ENTRYS
IN THE BAD SECTOR FILE.
THE PACK SPECIFICATION
ALLOWS ONLY 16.
BAD SPOTS ON THE PACK BEFORE THE PACK
IS
(LASSIFIED AS ‘BAD'.

“'SOFT

ERR ENCOUNTERED''

DURING A WRITE
THE

ERROR

TRANSFER AND

CRIVE

OR READ DATA FUNCTION,

WILL

STATLS,

THE

ALSO

REPORT

CONTENTS

AN ERROR HAS

THE

STARTING

THE

DRIVE

SECTOR

‘RLCS'

BEEN

NUMBER

DETECTED.
THE

DATA

AND

THE

SEa 0018

PAGE

RE-

"'MARD ERROR‘'
THIS MESSAGE

COVERED.

THE

RECORDED FOR

USER

THE

USER

TMAT

THE

STARTING SECTOR NUMBER CF

MAX CYL

CANNOT

VALID DISK

INFORM

LATER USE

"RLOT
THE

ADD

ADDRESS.

[N UPDATING

THE

BAD

'SOFT'

THE

COULD NOT

DATA TRANSFER wiLL

SFCTOR

FILE.

= 255.°

TO GR

DELETE

FROM

THE

BAD

SECTOR

FILE

ANY

[N-

"ENTRY ALREADY EX]STS IN THE BAD SECTOR FILE"
A REDUNDANT

ENTRY

CANNOT

"'NO SUCH ENTRY
I1f

AN ENTRY DOES NOT

FILE,
THEN
TRYS IN THE

ENTERED

IN THE

EXIST

INTO THE

'FIELD®

IN THE

BAD

FILE"

°'FIELD®

AREA OfF

IT CANNOT BE REMOVED FROM THE FILE.
°*FACTORY' FILE FROM BEING DELETED.

'NO FACTORY FJLE

SECTOR FILE.

THE

THIS

BAD

SECTOR

PROTECTS

EN-

FOUND"

THE PROGRAM TRIED TO READ THE FIRST 20 SECTORS OF THE LAST TRA(CK 10
IDENTIFY
THE
‘FACTORY'
BAD SECTOR FILE...AND FAILED TO MAKE THAT
JOENTIFICATION,.
EJTHER THE ‘FACTORY' FiLE
WAS
DESTROYED
OR
THE
DATA ON THIS TRACK DOES NOT COMFORM T0O THE °'DEC STD=-144° SPEC.

"'NO FIELD FILE
SAME

3.2

AS FOR

THE

FOUND'

'FACTORY'

FILE

MESSAGE

ABOVF.

ERROR HALTS

ERROR HALTS ARE
WiTH

/FLAG.HOE.

SUPPORTED PER DESCRIBED
THERE

PERFORMANCE

TH]S

PROGRAM WiLL

ARE

AND

NOT

NO OTHER

PROGRESS

GIVE

ANY

HALTS,

THE

REPORTS

PERFORMANCE

REPORTS,

SECTION

SEQ 0019

6.2

PROGRESS REPORTS

THIS PROGRAM WiLL

DEVICE
THE RLT11/RLVIT
CONTROL OF THE
RLCS =

NOT

GIVE

ANY

PROGRESS

REPORTS.

INFORMAT]ON TABLES
(ONTROLLER
SUBSYSTEM,
CONTRCL

HAS

AND

THE

FOLLOWING FOUR(4)

STATUS REGISTER

COMPOSITE

= DRIVE

(XXXXX0)

ERROR

= NON EXISTANT MEMORY ERROR
= HEADER NOT FOUND (WITH B!T

= DATA LATE

- HEADER CRC

(WITH BIT

10 SET)

10 CLEAR)
10 SET)

817

= DATA CRC (WITH BIT 10 CLEAR)
= OPERATION INCOMPLETE
9/8 - ODRIVE SELECT (0-3)

BIT

6 -

BIT
BIT

BIT
BIT
BIT

7 - CONTROLLER READY
INTERRUPT

ENABLE

5 - EXTENDED BUS ADDRESS
& - EXTENDED BUS ADDRESS
OV
NN —=O )

5.0

2
PAGE

FUNCTION CODE
= NOP (PDP-11)

- WRITE

GET DRIVE
SEEK

STATUS

READ DATA
READ WJTHOUT

RLBA

- BUS

ADDRESS

FOR READ/WRITE

HEADER

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

(LS]1-11)

READ HEADER
WRITE DATA

0 - DRIVE READY

MAINT

17)
16)

CHECK

BIT

RLDA

(BIT
(BIT

(XXXx¥2)

DATA TRANSFER

FUNCT]IONS

C(OMPARE

(XXXXX&)

REGISTERS

FOR

SEQ 0020

BIT

15-7 - CYLINDER ADDRESS FOR TRANSFER

81T

6 - SURFACE

FOR

SEEK

FOR

TRANSFER

BIT 5-0 - SECTOR FOR TRANSFER

(1-40.)

FUNCT]ON

BIT 15-7 -~ DIFFERENCE 10 NEW CYLINDER
B1T 6-5 - MUST BE ZERO (0)
BIT & - SURFACE

(0=UPPER,

1-LOWER)

B11 3 - MUST BE ZERO (0)
BIT 2 - SEEK DIRECTIONC 1=IN / 0=0UT
BIT 1 - MUST BE ZERO (0)
BIT O - MUST BE ONE (1)
FOR GET

STATUS

)

FUNCTION

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

BIT 2 - MUST BE ZERO (0)
BIT 1 - MUST BE ONE (1)
B1T 0 - MUST BE ONE (1)
RLMP - MULTIPURPOSE

BIT

15 = 0 - WORD COUNT

FOR READ HEADER

BIT

15-0 - DISK HEADER OF
- IERO WORD

GET

STATUS

I
I
I
I
O
[I

NOOOO =MW

]
]
i
el

O
O O

b
el
b amd —

]
e

)

Y Sy Sy

HAS DRIVE

0D a0 0o 00 O

(TW0'S COMPLIMENT)

FUNCTION

= HEADER
FOR

CRC

SECTOR

(FIRST READ)

(SECOND READ)
(THIRD

READ)

FUNCTION

STATUS

WRITE DATA ERROR
CURRENT HEAD ERROR (CHE)
WRITE LOCK STATUS (wi)
SEEK TIME OUT (SKTO)

SPIN ERROR

(SPE)

WRITE GATE ERROR (WGE)
VOLUME CHECK (v()

DRIVE
DRIVE

SELECT ERROR
TYPE IS RLOZ2

(DSE)
IF SET

PAGE

SEQ 0021

wWH DO

SURFACE (U-UPPPER,
COVER OPEN
HEADS HOME
BRUSHES HOME

PAGE

1-LOWER)

6.0

)

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

NOWVMH
W
—-O

0 -STATE BITS

UTILITY - SUMMARY OF

COMMANDS

oocoeoease

ocoeeree

coeocecoe

REPORT

TOR
AND

THE

CONTENTS OF

T4E

BAD

SEC-

BAD SECTOR

FILE

FILE
BOTH
THE "'FALTORY' AREA
THE "‘FIELD'' AREA

ADD A SECTOR

TO THE

IN THE "'FIELD'" AREA OF

REMOVE

FILE

SECTOR

(ONLY

DATA

THE

BAD

SECTOR

BAD

SPUIiS

THE WORST

CASE

IN THE "'FIELD'® AREA)

READ THE PACK
(READ ONLY)
WRITE

FROM

THAT FILE

FIND

PACK WITH

PATTERN

THEN

|SSUE

THE

'VERIFY'

COMMAND TO FIND BAD SPO1S.

ATTEMPT
FILE JF

TO GENERATE THE BAD
SECTOR
]JT HAS BEEN DESTROYED ACCI-

WiLL
AREA!

DENTLY.

MADE

FOR

THE

''DUMMY'’

ENTRY

THE

LIST

AVAILABLE

(OM-

MANDS

ONLY

THE

‘''FACTORY'

SEQ 0022

CIRLMAD RLOV/2 BSEHT
TABLE

123
189
1- 179
1- 280
1- 364
1- 371

Y e

[a "]

i SV e

303031-

e ad el e

2323~
24~
2525~
26~
28~
29-

MACRO v03.01

CTONTENTS

9-FEB-79

19:46:5¢4

SEQ 0023

BIT AND OFFSET DEFINITIONS
GLOBAL DATA AND CONSTANTS
GLOBAL MESSAGES
ERROR MESSAGES
STATISTIC CODE
INITIALIZATION CODE
GLOBAL SUBROUTINES
PROGRAM MAIN LOOP
ROUTINE TO LOAD FUNCTION
INTERRUPT SERVICE = VERY SHORT!
BAD SECTOR FILE ROUTINE
ROUTINE

GET

TO WAIT

FOR

CONTROLLER READY

STATUS/DRIVE RESET ROUTINE

ROUTINE
ROUTINE

TO WRITE PACKS INITIALLY
FOR SYSTEM CLOCK
HEADS HOME ROUTINE

SEEK ROUTINE
ROUTINE TO CHECK FOR BAD SECTOR
DIAGNOSTiC SUPERVISOR -- LOW CORE

SET

CZRLMAQ RLO1/72 BSFT

MACRO v03.01

9-FEB-79 19:46:54 PAGE

Y
S
g
Y
Y
P

VNN
= O 000NN T £ (NN s

SEQ 0024
TITLE

000000

002000

.ENABLE AMA
.ENABLE ABS
CNLIST
ME,CND,MD

002000

.=2000

000000
000000

Sv(
SVCINS=0
SVCTAG=0

MCALL

002000

002000
002000
002000
002001
002002
002003
002004
002005
002006
002007
002010
002011
002012
002014
002016
002020
002022
0020264
002026
002030
002032
002034
00203¢
002040
002042
002044
002046
002050
002057
002052
002054
002056
002060
002062
002064
002066

002070
002072
002074
002076
002100
002102
002104
002106

CZRLMAO RLOV/Z BSFT

SvC

POINTER ALL

BGNMOD

103
132
122
114
115
000
000
000
101
060
000000
000000
040516
040564
007632
007640
041114
000000
000000
000000
000000
007646
000000
000000
000000
002
002
000000
000000
000000
000000
000000
002146
007650

002144
002144
010454
010456
000014
002110
007652
010372

MDHEDR
HEADER
LASCLL
CLASCLIL
LASCIL
LASCIE
LASCLE

BYTE
.BYTE
.BYTE

LASCIL

LASCIT
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
LWORD
.WORD
.WORD
LWORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
LWORD
LWORD

LWORD

(ZRLM,A,0,0,0,0,RLO1,,TITLEX
70/
72/
/R/
7L/
/M/
0
0
0
/A/

70/
0
0
LSHARD
L$SOFT
LSHW
L$SW
LSLAST
0
0
0
O
LSDISPATCH
0
0
0
C(SREVISION
(SEDIT
O
0
0
0
O
LSDVTYP
LSRPT
LS$DR
LSDRST
L%AU
L$DU

TITLEX
LSINIT

LSCLEAN

CIRLMAQ RLOV/2 BSFT

MACRO v03.01

9-FEB-79 19:46:54 PAGE

1-1

SEQ 0025
:? 032110
18 002110

002113

114

060

102
040
103
mn
04

0547

062
101
1¢3
040
114

040
104
105
10%
105

002140

114

000

20 002142
002142
21

122

061

002116
002121
002124
002127
02132

00213S
19

ENDMOD

002146
002146

002151
002154
002157

1264

117

060

TITLEX:

ASCIZ

.EVEN

DEVREG
.WORD

DEVIYP

<RLO1,RLO2>

.BLKW

061
114
000

114

056
060

060

LASCIZ

122
062

LSBTTL

:DEFINITIONS

gg 002160

BGNMOD

gg 002160

EQUALS

000000

33
22

000004
000006

000002

39
40

/RLOY,RLOZ2/

.EVEN

TOOL?

137

000000
122

7RLI1/02 BAD SEC FILE

BIT AND OFFSET DEFINITIONS

GLBEQAT

€$=0

BA=?2

DA=&
MP=6

;CONTROL AND STATUS OFFSE!

:BUSADDRESS OFFSET

;:DISK ADDRESS OFFSET
:MULY] PURPOSE OFFSET

:CSR REGISTER

000001

SKDON=B1T0

000001
000100

DRDY=BITO
INTEN=BIT6

:DRIVE READY
; INTERRUPT ENABLE

4?2

040000

DERR=BIT 14

:DRIVE ERROR

004000

43
44
46
47
48
49

50
2;

100000

020000
010000

NXM=B]T13
DLT=B!T1?2

004000
010000
002000
000200

HCRC=BI T
HNF=B]T12
OP1=BIT10
CRDY=B]17

000040
000020

ERR=BIT1S

DCRC=B]ITN

BA17=B115
BAI6=B]T4

: COMPOSITE

ERROR

;NON=EXISTANT MEMORY ERROR
;DATA LATE

:DATA CRC ERROR

:HEADER CRC ERROR
:HEADER NOT FOUND ERROR
;OPERATION INCOMPLETE ERROR
;CONTROLLER READY

;EXTENDED BUS ADDRESS BIT
;EXTENDED BUS ADDRESS BIT

:GET STATUS BITS

100000

WDE=BIT15

;WRITE DATA ERROR

020000

wL=BIT13

:WRITE LOCK

040000

HCE=BIT14

:HEAD CURRENT

ERROR

17
16

CIRLMAQ RLOYV/ 2 BSFT
MACRO v03.01 9~FEB-79 19:46:54 PAGE
BI1T AND OFFSE T DEFINITIONS
58
59
60
61
€2
63

010000
004000
002000
001000
000400
000040

67
68
69

;TOP

000002
000004
000006
000010
000012
000014
000013
000003
000001
000004
000020
000100

81
82
83
84

WRCHK=BIT1

000000
00000¢

FOR DRIVE

COMMAND WORD(SEEK,GET

;OIRECTION FOR SEEK(0=AWAY FROM SPINDLE)
;HEAD SELECT FOR SEEK
;HEAD SELECT FOR READ ,WRITE,GET STATUS

SKHS=B]
T4

HEAD=BIT6

(SR=0
DRBT=¢
ENDMOD

002179
002172
002174
002176
002200
002202
002204
002206
002210
002212
002214
002216
002220
002222
002224
002226
002230
002232

000000
000000
000000
000000
000000
000000
000000

000000

000000
000000
000000
000000

000000
000000

000000
000000
000000
000000
000000
000000
000000
000000

.SBTTL

GLOBAL DATA AND CONSTANTS

BGNMOD

GLBDA(

ERRCNT:
SFTCNT:
SKECNT:
DERCNT:
WRTCNT:

.WORD
,WwORD
,WORD
.WORD
,WORD

RETRY:

,WORD

BDA:
BMP:
DCS:
E.DCS:
E.STAT:
BBA:

.WORD
.WORD
.WORD
.WORD
,WGRD
.WORD

BCSADR:
LSTHDR:

,WORD
,WORD

FUNC:

PRFLGS:

.WORD

LSTDA:
DIFWD:
SERNM1:
SERNM?2:

,WORD
.WORD
,WORD
,WORD

DRSEL:

.WORD

NEWFAC:

,WORD

OO0V OOOOOOOOOOOOOOOOCOO

= OO0~
NN
£

002160
002162
002164
002166

;MARKER BIT

SIGN=BIT?

;OFFSET FOR HARDWARE P~-TABLE

002160

;WITE CHECK FUNCTION CODE
;GET DRIVE STATUS FUNCTION CODE
:SEEXK FUNCTION CODE
;READ HEADER FUNCTION CODE
sWRITE FUNCTION CODE
:READ FUNCTION CODE
;:DRIVE RESET COMMAND CODE FOR DRIVE COMMAD WORD
;GET STATUS COMMAND CODE FOR DRIVE COMMAND WORD

GSTATBlTZ

002160

COVER OPEN

;HEADS OVER PACK
;BRUSHES HOME

; COMMANDS

70
71
72
73
764
75
76
77
78
79
80

——h

SEQ 0026

;SEEK TIMEOUT ERROR
s SPINDLE TIMEOUT/UNDER/OVER SPEED
;WRITE GATE ERROR
: VOLUME CHECK
;ORIVE SELECT ERFOR

0000¢9
000010

1-2

;ERROR COUNT = HARD
;ERROR COUNT = SOFT
:SEEXK ERROR COUNT
;DRIVE ERROR COUNT

;WRITE PASS COUNT PER
PRESENT RETRY NUMBER

TRA(K

:PRESENT MULTIPURPOSE
. CSR _ADDRESS

CONTENTS

DISK ADDRESS CONTENTS

:CONTENTS OF RLCS AT ERROR
:STATUS AT FAJLURE TIME
;PRESENT BUS ADDRESS CONTENTS
;LAST FUNCTION LOADED
: (SR _IMAGE OF LAST COMMAND
:LAST POSITION ON DISK
¢ INTERNAL FLAGS
;D1SK ADDRESS AT SOFT ERROR
;LAST DIFFERENCE WORD OF SEEK
: SERIAL NUMBER OF CARTRIDGE
:SERJAL NUMBER OF CARTRIDGE
;FLAG TO BUILD A DUMMY FACTORY
;ORIVE SELECT B]T7S5(8,9,10)

F Lt

STATUS)

—=O 0D~

002234
002236
002240

002242
002244
0022646
002250
002252
002254
002256
002260
00¢262
002264
002256
002270
002272
002274
002276
002300
002302

N —O VOO

—

9-FEB-79 19:46:54 PAGE

000000
000000
00000C
000000
000000
000000
0000C2
000000
000000
000000
000000
000000

BSECPT:
RSEEK:
SOFT(S:
FWDFLG:
CVFLG:
TDR:
wRIPG:
PRPOS:
NEWPDS:
RECNT:
NXTUN]:
SYSMSK:

000177
000077
000000
000000
000160
000240

(MSY:
SMSK:
PASWD:
WRINIT:
BVEC:
BPRIOR:

100177
100077

CYLMSK:
SECMSK:

.WGRD
.WORD
.WORD
LMCKD
.MCRD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.wORD
.MWC3D
.WORD
.WORD
.WORD
.WORD

1-3

SEQ 0027

POINTER TO BAD SECTOR FILE DATA STORAGE
;SEEK IN PROCESS OF RECOVERY
:CSR OF SOFT ERROR
;SAWTOOTH WRITE CONTROL FLAG
;'CALL' FLAG FOR VERIFY ROUTINE

;TYPE OF

DRIVE...

sPRESENT

POSITION ON D]SK

RLO1=1

RLOZ2=2

;WRITE IN PROGRESS FLAG

sNEW DESIRED CYLINDER ADDRESS
sREAD ERROR COUNT
;POINTER OF UNIT SELECT

;MASK FOR 0-7 DRIVES

SLOT

°SELTBL'

:MASK FOR CYLINDER ONLY (RLO1)
;MASK OUT SECTOR BITS (RLOV)

;CYL MASK FOR RLO?

;SECT MASK FOR RLOZ

000000
0

;PASSWORD
;WRITE

160
240

(jF=0 THEN NO C(MECKING)

INIT

FLAG

;IHE FOLLOWING LOCATIONS ARE CLEARED AS A GROUP (DOWN TO °'STFLG®)

NS NN =O VO N

NS W

R el s el o o e ) e e
D e D el i il e D ok oo
ol o NN AN AN AN AN NN N NN NV PO PO PO NI RO NI NN

d ok o

CIRLMAQ RLOV/2 BSFT
MACRO v03.0!
GLOBAL DATA AND CONSTANTS

;THEREFORE

002304
002306
002310
00231¢

143 002314

002316
002320
002322
00232¢
002326
002330
002332
00233¢
002336
002340
002342
002344
002346
002350
002352
002354
002356
002360
002362
002364
002366
002370
002372

002374
002376
002400

002402

000000
000000
000000
000060
000000
000000
000000
000000
000000
€00000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000

LSTDRY:
BCSR:
BDRSEL:
HDRFND:
(HKSEC:
DECNT:
TEMPO:
TEMP1:
TEMP?2:
TEMP3:
LSTTIM:
SECOND:
MINUTE:
HOUR:
£.CS:
E.BA:
E.DA:
E.MP:
E.MP1:
E.MP2:
SYSCLK:
BUF1:
MAXW(:
uut:
SN1:
SN2:

WRTLOK:
ACCESS:
PWRF1G:
TRPFLG:
(NTFLG:
STFLG:

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

INSERT

OOO0O0O0OOOOOOOOODOOOODOCOOOOOOOOOOOOO

ittt

—

ANY

CONSTANTS

;BUFFER POINTER OF DRIVE
;CSR FROM P-TABLE
;DRIVE UNIT NUMBER FROM P-TABLE
;FLAG

INDICATE

HDR

[N BAD

LIST7

;SECTOR OF ERROR - USED BY BAD SECTOR LOCATION
;DATA ERROR COUNT
;TEMP LOCATION
;TEMP LOCATION
;TEMP LOCATION
:TEMP LOCAT]ON

;LAST TIME ON SYSTEM (LOCK
:SECONDS OF SYSTEM (LOCK
;MINUTES OF SYSTEM (LODK
:HOURS OF SYSTEM (LOCK
. IMAGES OF REGISTERS
;ON INTERRUPT

;SLAG INDICATING PRESENSE OF Se¢STEM (LOCK
FIRST CONTROLLER
;BUFFER FOR
;MAX WORD

COUNT

DETERMINED BY

;NUMBER OF UNITS ON SYSTEM
;TYPED
:

(K]

SERIAL
o

# -

LOW

HIGH

;WRITE LOCK FLAG
;ACCESS PRIV FOR UPDATING

:POWER FAIL

INDICATOR

: TRAP OCCURANCE

;CONTINUE FLAG
START FLAG

FLAG

(ORE

CIRLMAQ RLO1/?2 BSFT

GLOBAL

DATA AND

MACRO v03.01

CONSTANTS

9-FEB=79

‘177§

19:46:54 PAGE

-4

SEQ 20728

;END OF MASS (LEAR

};z 0024046

000004

ERRVEC(:

.WORD

JERROR VECTOR

176 002406
177
178
}gg

LSBTTL

GLOBAL MESSAGES

}g; 0024606

BGNMOD

GLBIXT

183
184

;GLOBAL

TEXT

103
122
103
114
105

MRLCS:
CRLCS:
CART:
(MSG:
HMSG:

.ASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASC1Z

°'RLCS: '
" (RLCS):
/PACK SERIAL
/CYLINDER: 7/
7/ HEAD: /

185
189
190
191
192
193
196
195

002406
002415
002427
002447
002462

ENDMOD

122
040
120
103
040

114
050
101
131
110

002472

052

196 002540

055

040

055

MHYPHEN:

ASCIl

200
201
202
203
204

002725
002762
003012
003050
003101

124
123
102
102
040

117
117
125
125
123

126
106
111
111
105

THARD:
MSREC:
MBLD:
BUILD:
SMSG:

,ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
LASCIZ

003242

110

197 002606
198 002636
199 002670

205
206
207
208
209
210

003113
003133
003144
003171
003217

212
213
214
215
216
217
218
219
220
221

00327/
0033264
003351
003400
003426
003453
003477
003541
0035%6
003607

211

222
223
224
225
226
227
228
229
230
2%1

003255

003633
003645
003656
003747
004013
004063
004100
004152
004222
004303

124
124
124

117
117
117

126
126
1264

101
123
123
104
104

124
105
117
122
122

060
105
106
040
0640

104

122

060

120
120
116
116
116
116
116
103
120
124

116
040
105
125
105
122
127
040
040
040

101

101
101
117
117
117
117
117
117
122
1m

117
104
116
120
116
105
122
061
062
063

122

103
103
040
0640
0640

060
0640
115
117
115
040
122
1264
10«
126
101
1117
040
040
0640

STARMSG:

TFMSG:
TMMSG:
TSOFT:

.ASCIZ

LASCIZ
.ASCIZ
_ASCIZ

/tveeveseesesrerserasennnestnentnennne/

= = = = @ = o 0 a0 o o c o o o

/TOTAL
/TOTAL
/TOTAL

°‘FIELD' ENTRYS = /
'FACTORY' ENTRYS = /
'SOFT®' ERRORS FOUND =

.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

,ASCIZ

/AT END OF FILE /
/SEEK ERR/
/SOFT ERR ENCOUNTERED/
/DR ERR WILL NOT RESET/
/DR ERR - RECOVERED/
/HARD ERROR/

WRTLCK:
NEWLD:
HWSEC:
NHWSEC:
SWSEC:
NSWSEC:
NOFLDE:
MDONE:
PRGER:
NOCRDY:

.ASCIZ
L.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASC1Z
.ASCIZ
_ASCIZ

/PACK IS WRITE LOCKED/
/PACK WAS JUST LOADED/
/NO FACTORY FILE ENTRYS/
/NO FACTORY FILE FOUND/
/NO FIELD FILE ENTRYS/
/NO FIELD FILE FOUND/
/NO SUCH ENTRY IN THE °'FIELD'
/COMPLETED.../
/PROGRAM BUG - DR NOY RDY/
/TIMEOUT = NO °'CRDY'/

.ASCIZ

NODRIv: .ASCIZ
DRNM:
LASCIZ
PASWORD: ASCIZ
DENJED: .ASCIZ
EXISTS: LASCIZ
VERIFY: _ASCIZ
MWRITE: .ASCIZ
(MDI:
LASCIZ
(MD2:
JASCIZ
(MD3:
LASCIZ

/TOTAL 'HARD' ERRORS FOUND = /
/SOFT ERROR RECOVERED.../
/BUILD A DUMMY BAD SECTOR FIJILE/
/BUILDING BAD SECTOR FILE/
/ SECTOR: /

BSEND:
MSKER:
MSFER:
MDERS:
MRDER:
MHDER:

NOLOAD:

/DR WOULD NOT

LOAD/

FILE/

/NO DRIVES/
/ DRIVE: /
/ENTER CORRECT PASSWORD 1O ENABLE BAD SECTOR FILE UPDATES/
/UPDATING DENIED = INVALID PASSWORD'/
/ENTRY ALREADY EXISTS IN BAD SECTOR FILE/
/READING PACK/
/WRITING PACK WITH WORST CASE DATA PATTERN/
/1
REPORT CONTENTS OF BAD SECTOR FILE/
7 2
ADD A SECTOR TO THt 'FIELD' BAD SECTIOR FlLt/
7 3
DELETE A SECTOR FROM THE ‘FIELD' BAD SECTOR FlLE/

CZRLMAD RLO1/2 BSFT

MACRO v03.01

GLOBAL MESSAGES

232
233
236
5
6

9-FEB-79

7 006635

040
040
040
040
104
116

0 005024

104
104

8 004705
9 004753

—

IO
OH- O NOON—

QO ol et ced il e e

(MD6:

CMD7:

(MDDO:
BSRM:
:
BSRf
BADBSF:

ABSMSG:

DELCYL:
ABSCyYL:
DELSEC:
ABSSEC:
DELHD:
ABSHD:

DOWRT:
BADWRT:
DELMSG:

NOENTRY:

2901 006642
291 006650

e
el
e
e
e
il

READ ONLY/

WRITE PACK WITH WORST

/ 7
/CMD

PRINT THIS HELP MESSAGE AGAIN/
(7 = HELP) = /

MAKE

/SECTOR #

.
.

.ASCI
.
.

SAWREV: .

:
WRPKF
WRPKR:

A BAD

SECTOR

CASE

FILE/

THISDRV:

(0 10 511.)

DATA PATTERN & VERIFY/

(0 10 39.)

/NO SUCH ENTRY

/RLOY

EXISTS

TO DELETE!/

ADD ONE?/

SECTOR

FILE?/

ON PACK/
ENTRY/

MAX CYLINDER = 255./

/1S THIS SERIAL NUMBER VALID/
/MORE THAN 25. BAD SPOTS FOUND ON THIS PA(K!/
/CONTINUE TO END OF FILE/
/DO YOU REALLY WANT TO WRITE ON ALL SELECTED PACKS?/
/NEW ENTRY.../
/XFER ERROR STARTING AT /
/RLOV=-RLO2 CARTRIDGE SPEC ALLOWS A MAX OF 16. BAD SECTORS
/FOUND/
/SECTOR IS IN BAD SECTOR FILE/
/CHECKING FOR 'FACTORY' FILE.../
/CHECKING FOR 'FIELD' FILE.../
/DRIVE NOT READY FOR USE/
/DRIVE TYPE = RLO/
/= SAWTOOTH FROM CyL 0/
/= SAWTOOTH FROM LAST CYL/
PACK
PACK
THIS

.SBTTL

ERROR MESSAGES

BGNMOD

GLBERR

BGNMSG

;ROUTINE
010572
002314
177700
013464

013462
013462

ERR1

FORWARD /
REVERSE /
SELECTED UNIT?/

MOv

R1,-(SP)

. SAVE

JSR

RS,PTIME
CHKSEC ,BSFSEC
#177700,8SFSEC
BSFHD

;PRINT RUN TIME
;GET THE SECTOR [N ERROR
;CLEAR THE JUNK BITS
;CLEAR THE HEAD #

TO REPORT THE POSITION OF

MOv

BIC
(LR

FlLE/

ENDMOD

010146

SECTOR

/HEAD # (O OR 1) -/
/CARTRIDGE HAS NO SERIAL NUMBER /INPUT THE LOW S OCTAL # OF SN /
/INPUT THE HIGH 5 OCTAL # OF SN /
/PROCEED TO WRITE THE UPDATED BAD
/CAN'T UPDATE THE BAD SECTOR FILE
/DELETE A 'FIELD' BAD SECTOR FILE

/WRT
/WRT
/USE

.EVEN

282 006626

288 006630
286 006634

PACK

/CYLINDER #

TILLEND: .
MSTWRT:
NEWENT:
ERRAT:
OVRMAX:
CK:
:
INBSF
(KFACT:
(KFLD:
NOTRDY:
MDRTYP: .
SAWFWD:

278 006626

284 006626
285 006626

ABSSER: .

ABSSNL:
ABSSNH:

VERIFY

/CONTENTS OF THE 'FACTORY' BAD SEC FILE:/
/CONTENTS OF THE "FIELD® BAD SEC FILE:/
/BAD READ OF BAD SECTOR FILE ¢20 SECTORS)/
/ADD CYLINDER, SECTOR, & HEAD TO °'FIELD' BAD

TBLFUL: :

—

NNV OONNOOWVMNS
O WMWNNNWESE

(MD4:

CMDS:

RLICLM:
VALSN:

OQORIMNININY
= et OO
NS SN ANN = =\ NN

NN =0
— W

il
i

— = OO

D
e

d il e

D rd i

e e e

i el

= 2Ot st OOt =t it NN = et OO

i
b ol
D)
b T
— et

S NO
WM =PI
WANWO N OO

S
[V RV W

O
e

D amcd
pd
i
D
ol
i
ol
il
e
il
il
ol
ol
el el
B
il o ®

127
127
125

NN SNV

272 006575

116

VOO OONONNSOO
= =N =OON) ——a

269 006500
270 006531
271 006553

116

OO
= ——

’£8 006452

1-5

SEC 0029

006371
004426
004514
004550
004613

241 005114
262 005114
2643 005146
2644 005146
2645 005175
2646 005175
247 005220
c48 005272
2649 005331
250 00537
251 005447
252 005520
253 005567
2564 005627
255 005660
256 005714
257 005770
258 006020
259 006103
260 006120
261 006150
262 006242
263 006250
204 006305
265 006344
266 006401
267 006431

19:46:54 PAGE

CYLINDER, SECTOR & HEAD

CIRLMAQ RLOV/2 BSFT
tRROR MESSAGES

292
293
294
295
296
297
298
299
300
301

006654
006662
006664
006670
006676
006704
006710
006712
006716
006720

302 006724
006724
006730
006734
006740
006744
006750
006754
006760
006764
006770
006772
006774
303 007000
306 007004

305 007010
007010

007014
007020
007024
007030
007034
007036
007040
306 007044
007044
007050
007054
007060
007062
007064
307 007070
007070

308 0071

MACRO v03.01

9-FEB-79

19:66:54 PAGE

Sea 0030

000100

013464
002314
000177
013460

002314

013460
013460

1%:

013469
013460

013464
002462
013462
003101
013460
002447
00612C
007232
000010

‘%

el
——
el
o
—

W W)
— O

AN
e N

BC(C
INC

PRINTB
MOV
MGV
MOV
Mov
Mov
MOv
Mov
MOV
MOov
MCv

EMT

ADD

JSR

MOV
PRINTB
MOv

002204
002202
002415
007303
000004

MOV

MOV
MOV
MOV
MOv

EMT

000012

ADD
PRINTB
MOV

002540
007335
000002

MCv
Mov
MOV

EMT
ADD
PRINTB

00000¢

007552
000001

MOv
Mov
Mov

EMT

000004

ADD
MOV

BGNMSG

007126

MOv

ROL

000022
023342
002204

023342
002204

Bta
INC

BIC
SWAB
(Lc

£ 10000:

007116
007122

1-6

ENDMSG

#100,CHKSEC

1%
BSFMHD
(HKSEC,BSFCYL
#177,85FC

BSFCYL

JHEAD

;NO

172

JYES - SET IT 10 1
sGET ADDR AGAIN FOR THE CYLINDER
sCLEAR TH® HEAD & SECTOR #
°'(C* BIT

BSFCYL

;CLEAR THE
;POSITION

BSFCYL

;ADD IN THE LOW ORDER BI1T

;BR IF DON'T NEED DTMER BIT

#EMT16,#ERRAT
, #CMSG,BSFC L, #SMSG,BSFSEC, #HMSG,BSFMD

BSFHD,=(SP)

#HMSG,-(SP)

BSFSE” ,=(SP)
#SMSG,-(SP)

BSFCYL,=(SP)
#(MSG,=-(SP)
#ERRAT ,=(SP)

YEMY16,-(SP)
#10,-(SP)

SP,RO

(SPNTB
#22,5P
RS,GETDST
sGET THE DRIVE
R1,E.STAY
NEMT17A, #CRLCS,E.DCS,E.STAT
E.STAT,=(SP)

STATUS

£.0CS,~(SP)

#CRLCS,=(SP)

NEMT17A,-(SP)

845 ,-(SP)

SP,RO
(SPNTB

#12,SP
NEMT18, #HYPHEN
FHYPHEN,-(SP)

WEMT18,-(SP)
#2,-(5P)

SP,RO
CSPNTB

#6,SP
SMCRLF
#MCRLF ,=(SP,
#1,-(SP;

SP,RO
($PNTB

¥, ,SP

(SP)+ R

;RESET R

EMT

ERR2

MOv

JSR

MOv
PRINTB

:SAVE R
¢GET THE

DRIVE

STATUS

¢ SAVE STATUS FOR PRINTING

CIRLMAO RLOV/2 BSFT
ERROR MESSAGES

007126
007132
007136
007142
007146
007152
007154
007156
316 007162
007162
007166
007172
007176
007200
007202
317 007206
007206
007212
007216
007220
007222
318 007226
319 607230
007230
007230
323 007232
324 007266
325 007303
326 007335
327 007342
328 007351
329 007420
230 007435
331 007450
332 007510
333 007552
324 007555
335 0079560
336 007616
337
341
342
343 007630
L T2

3746
3746
2746
2746
2
0

9-FEB-79

19:46:54 PAGE

002204
002202
002415
007303
000004

MOv
Mov
Mov
MOV

Mov
MOv

EMT

000012

ADD
PRINTB
Mov

002540
007335
000002

062706

000006

012746
012746
010600

007552
000001

104014

062706
012601
1064023

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

116
116

116

116
116

116
124
116
116

NEMT18,HYPHEN
HYPHEN,-(SP)
SEMTI8,-(SP)
#2,-(SP)

" ,SP

(SP)+ ,R1

045
045
045

045
045

045

045
045

000
000
045
045

FMI17:
FMT17A:
FMT18:
FM119:
FMT120:

/ANXTR06XT201/

MSG:

TIME:
FDTYP:

ENDHW

BGNMOD
BGNSW
WRTSAW:
WRILIM:

/RTX06XA STATUS WAS: 06N/
/ANXT/
/ANINXT/
/ANXABAD SECTOR FILE HAS XZ3XA. ENTRIES/
/ANXTRO5%05%N/
/ANRTXI3RA./
JAINRZ2XA., RTXZ3ZA XTRAZ2XA.XTXD1/
/AININIACOMMANDS AVAILABLE ARE:XINXT/
/AN/
/3T/
TANRATIME: X72%A:%22XA:X712%A
/

FMTSN:
FMTTB:
FMTCSH:
FMTIMS:
MCRLF
:

BONHW

;RESET

C$MSG
JANRTXTRZZXA RTRI2XA. XTXD 1IN/

FMT16:

L10002:

000001
000002

SP,RO
(SPNTB
’2,sp

SP,RO

BGNMOD

000002

FEMTI7A,-(SP)

#6,-(5P)

($PNTB

L1C001:

116
116

#CRLCS,=(SP)

n6,5P
IMCRLF
FMCRLE
. =(SP)
M ,-(sp)

000004

116
116
124

E.STAT,=(SP)
E.DCS,=(SP)

SP,RO
($PNTB

.EVEN

000002
174400
000000

1-7

SEQ 0031

145 007630

346 007630
007630
347 007632
348 007634
349 007636
007636
350 007636
351 007636
382 007636
007636
353 007640
3156 007642

MACRO v03.01

/ANRTXOTAN/

ENDMOD
HPTCODE

.WORD
.WORD
.WORD

L 10002=L%Hu/?2
174400

s (SR BASE

ADDRESS DEFAULY

:DRIVE UNIT NUMBFR DEFAULT

ENDMOD
SPT1CODE

.WORD
.WORD
.WORD

L10003-195uw/2
]

;DEFAULT

JOEFAULT

TO SAWIOOTH WRITE

(y (L§

T0 2 WRITE PASSES PER

TRALK

———

CJRLMAQ RLOV/2 BSFT
ERROR MESSAGES

MACRO v03.01

9-FEB-79 19:46:54 PAGE

SEQ 0032

355 007644
007644
356 007644

387
3158 007644
159
360 007644
007644
007646
361
362 007650
363
364
365
366 007650
367 007650
368 007650
007650
007650
369 007652
370

ENDSW

L10003:

378

379 007660
007660
380 007662
3181 007666
382 007672
283 007676
007676

384

007702
007704
007704
007706
007712
007716
007720
007722
007724
007730
007734
007740
007746
007754
007760
007766

385
386
387
388
389
390
391
392
393
394
395
3196
197
398
369 007770
007770

DSPCODE

DISPAT(H

MORD
LWORD

1
1
1 1

ENDMOD
LSBITL

STATISTIC

BGNMOD
BGNRPT
ENDRPT

RPTCODE

L10004:

104025

372
373 007652
374
375 007652
376

007652
007656

ENDMOD

BGNMOD

377 007652

1-8

EMT
ENDMOD

CODE

(SRPY

CSBTYTL

INITIALIZATION (ODE

BGNMOD

IN]ITCODE

;START

INITIALIZE

CODE

BGNINIT

012700
104041

104037
005037
005037

005037

012700
104050

103064

005237
013702

SETPR]

000340

MOV

002402
002400
002374

BRESET
EMT
(LR
CLR
CLR

000034

MOV

EMT

READEF

EMTY

#340

($SPRI

BCC

STFLG
CNTFLG
PWRFLG

010330
002200
002232
000200
002232
000074
000001

000012

11¢:

002232
172224
172212

CSREFG
b}3

ASL
ASL

R2
R2

DRSEL ,aD0CS

14%

;DRIVE READY uP?
JYUP = RESET DRIVE & wEADS wWOME

#1(0,

JWALT

FSELTBL,R?

BIS

#200,0RSEL

MOV
811

#60.,R1
#1,38009

WAITMS

BNE

MOV

;INDICATE POWER FAIL
¢GET NUMBER OF UNITS SELECTED

JPOINT TO THE CORRECT StLOV
;GET THE DCS ADDRESS
sAND GET THE DRIVE B11S
;ADD IN THE (RDY BIT
SELECT THE DRIVE

ADD

MOV
MOV

FLAG

#EF .PWR,RO

PWRFLG
UUT,R?

MOV

12%:

sCLEAR (ONT
sCLEAR THE POWER FAIL

WEF .PWR

INC
MoV

DEC

sFOR LSI=11 CPU'S

CSRESET

BNCOMPLETE

002374
002362

;PRIORITY 10 SEVEN

#340,R0

(R2)+,DCS
(R2) ,DRSEL

210, ,R0

*SETUP A T]IMER

A WHILE

CIRLMAQ RLOY/2 BSFT
INITIALIZATION CODE

007774

600 007776
0 010000
602
603
406
405
406
407
408
409
610
AR
612
413
614

615
616
417

618 010046
619 010052
420

621

010056
010056
010062

622 010064
010064
423
624 010066
425 010072
626

162702

;DRIVE NOT READY

000004
010330

13%:

JUPDATE THE TIMER
;IF MORE TIME, THEN

IN TIME - KILL

THE ENTRY

151
(LR

-(R2)
(R2)+

SuB
(MP
8LE

8 ,R2
FSELTBL ,R2
11$

;POINT TO THE NEXT
:DONE?
:NO - DO THIS UNIT

15%

TRY AGAIN

;CORRE(T THE POINTER
;KILL THE ENTRY WORD FOR DC(S

;YES - PRCCEED

ENTRY

164%:

JSR
JSR

RS, 1SDRST
RS,HDHOME

SJRESET THE DRIVE SELECTED
:AND BRING THE HEADS HOME

005737
001405

002354

15%:

157

SYSCLK

CLOCK

#]
" RO
($KWON

SYES = SET

012700
106034
v04537
000137

024544
010326

012700

000036

104050

000001
4%

103004

025230

012700
005020
020027
001374

002304

B~ C

004537

WO
—
NONO

002400

QOO WNVWNANWNWBIEDNW
SO
SNNOSOS

005237
000137

0 10100

RS,GETSYS
POWER

sTHEN GET

THE

READEF
Mov

#EF.CONTINUE
MEF .CONTINUE
RO

;CONTINUE

FROM CONSOLE?

;NO,

FOR

CONTINUE

;YES SET

1%:

JSR

RS,CLEAR

sCLEAR ALL DRIVE

2%:

Mov
(LR

#LSTDR1,RO
(RO) ¢

sCLEAR FLAGS
:

BNE

CLRDAT

CLRDAT:

CLRST8:

010330

(mMpP

MOV
MOV

#SELTBL
RO
#-1,(R0)+

sINIT

MOV
MOV

LSUNIT ,R3
R3,UUT

:GET NUMBER OF
:SAVE LSUN]T

(LR

SINIT P=TABLE

CMP
BNE

GPHARD

RO,#STBLE
CLRSTB

#SELTBL RS

R1,RO

2%:

R1,RO
($GPHRD

MOV
MOV

(RO)+, (RG)
(RO), (RQ)

INC

TABLE

CODE

GO TO END OF

INIT

STORAGE BUFFERS

IS ZEROED

SELECT

TABLF

END OF THE TABLE?
+NO CLEAR THE NEXT

SINIT

SELECT

UNITS

TABLE

POINTER

:GET A P=-TABLE

Mov
EMI

BNCOMPLETE
BCC
2%

10300°2
012024

THE

INTERVALS

INIT

FLAG,

JMASS (LEAR

MOv
1%:

CONT

RO,#STFLG*?

;00 TILL

SEC

TIME

CNTFLG
END

104042

011024
005201

JSR
JMP

INC
JMP

010172

002404

EMT
COREFG
BNCOMPLETE
1%
BCC

;BR

TICK?

8ta

(LKON
MOV
EMT

[N L]ST

ALSO

023356
024700

—
s
—
el
—
—
=l
el
)

(SWTH
R1
12%

004537
004537

0 13703
0 10337
0 12704
0 05001

OCOoOOo

—

and

—

OO0O0O0

il ——

447

446

—

445

642
463

Ent
DEC
BNE

005742
0050c2

012700
012720
020027
001373

OO0 O0OOOOO0OO0OO0OO00

OO0 OOOOOO0O0O

106026

022702
003744
000404

1-3
SEv 0033

005301
001367

OOOC

427 010076
428
429
1)
431
(¥4
4373
434
435
436
6437
438
439
440

MACRO v03.01 9-FEB-79 19:46:54 PAGE

2%
:GET
<GET

CSR INTO SELECT TABLE
DRIVE INTO TABLE

;POINT

10 NEXT

STORAGE

CIRLMAQ RLOV/2 BSFT
INITIALIZATION (ODE
448
449
450
451
452
453
654
455
456
657

010166
010170

005303
001370

010172
010172
010176
010200
010202
010206
010212

013704
006304
006304
062704
012704

010212
010216
458 010220
010220
459 010222
460

461 010226
462 010226

463

464
465
466
467
468
469
4«70
471

010226
010232
010236
010242
010246
010250

103002
005237

013746

010326
010326

010339
177777

;DOWN (OUNT
;D0 WHILE

DEC
BNE

R3
1%

MOV
ASL
ASL
ADD

UUT,R4
R4
R&
#SELTBL,RG

MOV
READEF
MOV

EMT

002402

002302
021700
002300
000003

026442
005000
002356
025330
002400

000001
103002

005237

002354

#-1,R4
WEF .START
#EF .START,RO

CSREFG

002356
002360
002206
002234

F INDBF
:

104011

SELTBL:
SIBLE:

1772777

BGNMOD

000340
010564
002404
000003

000010

SELECT

TERMINATE

:START COMMAND

TABLE
THE

SETVEC

BVEC,#INTR1,BPRIOR

:SET CONTROLLER VECTOR

MOV
EMT
ADD

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

MOV

#BSFILE ,BUF!

MOV
MOV
MOV

BPRIOR,=(SP)
#INTIRY,=(SP)
BVEC,-(SP)

#5120.72 ,MAXWC(
#BUF 1,BBA
#BSECO,BSECPT
CNTFLG

sSET

START

;BR IF

TRUE

C(LKON

: TURN

(LOCK

EMT
($XWON
BNCOMPLETE
POWER
BCC
SYSCLK
INC

POWER

ENDINIT

EMT

($INIT

.BLKW
LWORD
ENDMOD

16.
=1

CLNCODE

BGNCLN

SETVEC
MOV

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

MOV

#3,-(5P)

MOV
MOV

Emt

ADD

STRPMAN,=(SP)
ERRVEC,=(SP)

(SSVEC

#10,5P

INDICATOR

;ALL XFERS TO BSFILE

POWER
#1,R0

TABLE

STORAGE

;MAX XFER SIZE = 1/2 TRACK
;POINT TO THE DATA STORAGE AREA
;POINT TO THE BAD SECTOR FILE DATA
;HERE FROM °*(ON' (MD?

BNE
MOV

POWER:

TO THE

;NO, CHK RESTART

1%:

;POINT

;FORCE

BNCOMPLETE
RESTARY
RESTART
BCC
INC
STFLG

MOV
MOV
MCv

L10005:

]
N

Pl ol Ll NV IV

—_ e OO
s OO o~

—ld cdh —
—l
)
—

2%:

000040

010372
010372

010
010
010
010
010
010
010

END:

0023e?

[V RV ]

010330
010370
010372

1-10

SEQ 0034

000010

0103i2
010316

473 010322
4764 010326
475 010326

9-FEB-79 19:46:54 PAGE

RESTART:

010312

010320

«77
4«78
479
480
481
4«82
483
L84

104050

010254
010262
010270
010276
010304
010310

472 010320

476

012700

MACRO v03.01

;WAS

THERE

ON?

(LOCK?

;YES, SET FLAG FOR ONE:

CIRLMAO RLOV/2 BSFT
INITIALIZATION CODE
485 010420
010420
01042¢
486 010626
010426

010432

487
488 010434
489
490
9

492

493
494
495
496
697
498

010434
010440
010442
010446
010450
010450
010452
010452
010452

MACRO v03.01

000000

013700

002300

013700

002404

005737
001400

0023°¢

104036

1064036

104033

104012

19:46:54 PAGE

SETPR]
MOv
EMY
CLRVEC

1%:

501 010456
502 010456
503 010456
010456
010456
010460

BVEC,RO

CLRVEC
Mov

ERRVEC
ERRVEC,RO

EMT

181

L10006:

#PRIOO
#PR100,RO
($SPRI
BVEC

mov

010454

010454
010454
G10454
010454
010454
499 010456
500

BGNMOD
BGNAU
ENDAU

L10007:
ENDMOD

BGNMOD

BGNDU
ENDDU
104055

L10610:

ENDMOD

EmM7

CSCLEAN

CHRESET

ADDCODE

($AU

DROPCODE

EMT

VECTOR OF

FIRST (ONTROLLER

SYSCLk

EmT

JRELEASE

($CVEC

BEQ
BRESET
3

ENDCLN

;PRIGRITY TO Z2ERO

CSCVEC

ENDMOD

104054

1-11

SEQ 0C35

012700
104041

9-FEB-79

($DU

;TAKE

CARE OF LS]I-11

CIRLMAD RLOY/Z BSFT
GLOBAL SUBROUTINES

MACRO v03.01

9-FEB-79

i19:46:54 PAGE

SEQ 0036

;

.SBTTL

GLOBAL

3 0104660

BGNMOD

GLBSUB

& 0104660

STARS

SUBROUTINES

":"l""""""""""""."."""..""I'.""'.""I'.'."

5
6 010660

:FIRST & SELDRV =- DRIVE SELECT ROUTINE
STARS
::'...t"""'."'""""""l"""""""."'.'lt"""'tt"'

8 010460
18 010664

012704
010437

010330
002260

FIRST:

MOV
MOV

#SELTBL,RG
R4, NXTUNI

;POINT

TO THE

11
12
13
14

010470
010676
010476
010500

0137064
005714
100402
022424

002260

SELDRV:
108:

MOV
7181
M|
CMp

NXTUNI , R4
(RG)
18
(R&)¢, (RG)+

10%

;SETUP
:CHECK
:0K TO
:POINT

THE POINTER
FOR A VALID ENTRY
GO ON
TO THE NEXT ENTRY

*AND TRY AGAIN

17
18
19
59

010504
010510
010516
010520

012437
022737
001001
000416

002200
177777

MOV
(M
BNE
BR

(R&)+,DCS
#-1,0CS

;GET THE CSR ADDR FROM
:END OF THE TABLE?

2%
43

INO - CONTINUE
CEXIT #1

22 010522

012437

002232

(R4)+ ,DRSEL

;GET

:NO

}2 010502

23 010526
26 010532
25 010540

000774

004537
012737
032701

023342
000001
000200

Sg 0105646

012737

000002

29 010554

022525

g; 010562

000205

26 010544

30 010556

33 010564

;g 01057¢

001403

002200

i$:

2%:

002246

JSR
MOV
BIT

RS,GETDST
#1,70R
¥Bi17,R1

002246

MOV

#2,1DR

BEOQ

38:

010437

002260

4$:

005237

010564

TRPHAN:

000002

36 010572

MOV

CMP

R4 ,NXTUNI

INC

TRPHAN

RTS

RTI

THE DRIVE

TABLE

SLOT

TABLE

SELECT BITS

:GET THE DRIVE STATUS
:DEFAULT TO RLOT TYPE
(1S 1T AN RLO2?

:YES = SET

(RS)+, (RS) ¢+

MOV

SELECT

FOR AN RLO2

;RETURN ¢2 - NORMAL EXIT

ISAVE

CEXIT

THE

'NEXT'

SLOT POINTER

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

37
38 010572

;PTIME -- ROUTINE
STARS

TO PRINT

THE

SYSTEM RUNTIME

A (LOCK

1S PRESENT

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

40 010572
41 010576
42 010600

005737
001420
004537

010604
010610
010614
010620
010624
010630
010632
010634

013746
013746
013746
012746
012746
010690

43 010604

44 010640

104014
062706
000205

002354

PTIME:

024544

SYSCLK
18
RS,GETSYS

MOV
MOV
MOV
MOV
MOV
MOV

SECOND,=(SP)
MINUTE,-(SP)
HOUR,
= (SP)
#TIME
= (SP)
G, -(SP)
SP,RO
CSPNTB
#12,5P

PRINTB

002332
002334
002336
007560
000604
000012

TSI
BEQ
JSR

1$:

EMT
ADD

RTS

;CLOCK PRESENT?
:NO
:YES = GET THME RUN TIME

#TIME ,HOUR,MINUTE
, SECOND

FROM SUPERYISOR

CZRLMAD RLO1/2 BSHT

GLOBAL

MACRO v03.01

SUBROUTINES

010642

9-FEB-79

19:466:54 PAGE

SEQ 0037

STARS
A

2
3 010642

AR AR

S?::gb == ROUTINE

AR A

TO PRINT

THE

SELECTED UNIT

IDENTIFICATION

NS OMNIMNINI
NN NN

DRVID:

600
017

O—=O0O0DO0O0O—O
POttt
b b e N O

010642
010642
010644
010650
010654
010660
010664
010670
010674

OOO0O0

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

766
746

002233
003645
002200
002406
007266
000005

B1S8
MOV
MOv
MOv
MOV
Muv

MOV

WFMT17,#MRLCS,DCS,#DRNM,<B,DRSEL+1>
=(SP)

ORSEL*1,(SP)
#DRNM,-(SP)
DCS,-(SP)
#MRLCS,-(SP)
FERTI7,-(SP)
¥5,-(SP)

SP,RO

000014

EMT
ADD

CSPNTF
#e,sp

002246
006431
007616
000003

MOV
MOv
MCv
MOv

PRINTF

WFDTYP _#MDRTYP,TDR

TOR,=(SP)
#MDRTYP ,-(SP)
#EDTYP,=(SP)
#3,-(SP)

EMT
ADD

CSPNTF
#10,sP

Mov

000010

Voo~

PRINTF
CLR

SP,RO

RTS

STARS

—_O

M "tl!ll""""""""t""""".'.'"'tl"""'l'.l""""'

?R:RDY
STARS

ROUTINE

THE

DRIVE

SELECTED

ISN'T

READY

£ amny

WO
N

—t
et
s

:;"""""'""""""'l""""t"'lt't"."'t'l"'..""""

004537

010642

012746
012746
012746
010600
104017
062706
004537
000205

006401
007555
000002

DRNRDY:

JSR

RS,DRvVID

MOV
MOV
MoV

#NO "RDY,=-(SP)
#MSG,-(SP)
¥2,-(SP)

PRINTF

MOV
EMT

000006
010774

ADD
JSR
RS

#MSG,#NOTRDY

SP,RO
COPNTF

#6,SP
RS,DRDRV
RS

;DROP

THE

DRIVE

SELECTED

STARS

—_. OO

PO
—

B R
R
R R RN R R R Ry

DRDRV == ROUTINE TO KILL A UNIT ENTRY INTO THE
TAR
PGM DETERMINES A UNIT IS NOT ABLE 1O BE

S ARS

SELTBL
USED

AREA

THE

RO
(V. RV ], )

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

27
28

013704
162704

005024
005024
000205

002260
000004

DRDRvV:

MOV

NXTUNI] R4

sPOINT TO THE

(LR
RS
ENDMOD

(RG) ¢
RS

;K1iL
JEXIT

SUB
(LR

s, RG
(R4)

°'NEXT® UNIT SLOV

sPOINT TO THE CURRENT ULNIT
;KILL THE ENTRY
DRSEL ENTRY

CZRLMAQ RLO1/2 BSFT

MACRO v03.01

9-FEB-79 19:46:54 PAGE 4

SEQ 0038

noro

]
—

[ R

—

.SBTTL
[l]

[ RV 1, ¥ P

PROGRAM MAIN LOOP

BGNTST
STARS
MR

~NOM W

PROGRAM MAIN LOOP

AR AR

AR A

;THIS 1S WHERE CONTROL 1S PASSED AFTER THE INITIAL QUESTIONS HAVE
.BEEN ANSWERED FOR THE P-TABLE STORAGE.

011012

STARS

032737
001015

Lo T o o W o Ko 3 V1o 0 ol U¥e W WTe Wo W oNo o NP o VialP ol I

)

—

1%:

2%:
13%:

002320

00320

130%:

012746
012746

003324
007335

WHATCMD

sSELECT ANOTHER UNIT

#200,80CS
DRSEL ,aDCS
'OO'RO
RO
13¢
RS,GETDST
R1,TEMPO

:CHECK

MOV

BiS

Mov
DEC

DRIVE THERE

JSTALL
;GET THE CURRENT DRIVE
:SAVE THE STATUS

SP.RO
(SPNTF

#4,5P

JARE

#EMT18,#NOLOAD

:BR
;NO

BR
BIT
BEQ

EMT

ADD

INC
BIT
BEQ

PRINTE
MOV
MOV

STATUS

" ,-(SF)

40P, TEMPO

BNE
PRINT!

PRINTF
MOV
MOV
MOV
MOV

132%:

TO SELECT

BIT

JSR

002320

;TELL OPR THE UNIT

ADD

131%:

IMCRLF
#MCRLF ,=-(SP)

+NO MORE

RS,DRVID

EMT

002320

JSR

MOov
MOV
MOV
MOV

003277
007335
000002

001412

JMP

RS,SELDRY

ADD

00009
01077

000006
002370
001000

;SELECT THE 1ST DRIVE
sNO = UNITS

EmMT

000004
010642

020000

Q5,FIRST
<HATCMD

Mov
PRINTF
MOV
MOV
MOV

0075952
000001

00Cn20

JSR
JMP
B8R
JSR

BNE
JSR

023342

003255
007335
000097

SN U )

012746
012746
010600
104017
062706
004537

MIEST:

~N~N

(=]

f o

s it et
OO0
= OO0~ ~N~NO>
or
oo~
oONrNrn
—

OIS S D WWRININ) —
WNONN = = DOO NN

PORNUPORNURNININI
AU N s cd o cd cd = e el e e mh ed e o e b

)
=

0046537
000137
000404
004537
000137
012777
053777
012700
005300
001376
004537
010137

—

o Hroorone

b et
W NP

(=] [ololelele]

e
d
i
e
—
-

el
—
il
el
—

-ddddddddd‘fl-‘ddd_‘—‘d—l

—
—
=

——lh

D
Bl
el

)

i
el
)

e
)

i
D
)

vl
)

——

)

) el

)

il e

1050
105¢4
1056
1060

o
)

25
26
27

1034

——l

(o]oleleolalelololelalelalalalololololololalolalolaleolololeloleolololoeYolelolelele) OO0

POPUN) =

el ot et et =

s ma

N O LN NS NN - OO

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

131¢%

#NOLOAD,
- (SP)

THE

HEADS

SELECTED

LOADED?

NEMT18,-(SP)
#2,-(SP)

SP,RO
CSPNTF

v6,SP
RS ,DRDRV
15%
ML, TEMPO
132%
FEMT18,MWRTLCK
FURTLCK,=(SP)

:DROP THIS DRIVE

;1S THE PACK WRITE LOCKED?
¢BR IF NOT WRT LOCKED
;TELL OPR

#FNT18,-(SP)
#2,=(SP)

SP,RO
CSPNTF

#6,SP

WRTLOK
#VC,TEMPO

153%
FFMT18,ONEWLD
MNEWLD,-(SP)

NEMT18,-(SP)

;SET THE WRITE LOCK FLAG
+PACK

JUST

LOADED?

;JUMP 1F NOT
;TELL OPR

»>rW

QOO0

> rHr 00

WINIWLNIWE

OO0O0O0OCOOOO0OO0O

e el e i e e b e e e e
NN
NN
NN N no
~N-~N~N~ e 1o 2RV IV, I o
OO OO
S
b

b o

QOO0

42
43

«0
61

37
38
39

172 BSF1

N LOOP

—

CIRLMAQ

PROGRAM

012746
010600
104017
062706
004537
004537
032777
001403

MACRO v03.01

9-FEB-79 19:46:54 PAGE 4-)

000002
000006
023356
023342
100000

Mmov
MOv

EM7

133%:
170710

104422
000252
00317

012790

104041
000646

KDD

JSR
JSK
Bl
BEQ
ERRDF

TRAP
.WORD
.WORD

000000

15%:

SETPRI

MOV

EMT
BR

SEQ 0039

#2,-(SP)

SP,RO
CSPNTF
’o,SP
RS, 1SDRST
RS,GETDST

FERR,aDCS

15%
170, ,MDERS
TSERCODE
170

JRESET THE DRIVE
;GET THE DRIVE STATUS AGAIN
;COMPOSITE ERROR STILL SET?
:NOPE - SKIP OVER

MDERS

20
#0,RO

;PRIORITY

JSELECT

($SPRI

ZERO

THE NEXT uNIT

o
g
S

—

CIRLMAQ RLO1/2 BSFY

MACRO v03.01

PROGRAM MAIN LOOP

—

9-FEB-79 19:46:54 PAGE 5

011310

SEQ 0040

STARS

002274

012746
012746
012746
010600

003747
007335
000002

062706

000006

746

004152
007510
000002

S mh ol o

002372

O—-OO00O0
QO =ttt s
ro S Ororonry
oo

~NO

746

7«6
60C

004303
007335
000002

000006

796

&S OV

004222
007335
000002

= OO0OO00

O—=O0O00C0O
OO =ttt
NS OMNNUN
OO N~
—_O
S
~NO>
O

000006

)

706

[ aan I R

(5]

746
746

017

002320

Mov
Mov

#MCRLF ,=(SP)
#1,-(SP)

WMCRLF

;NOPE

- SK]P OVER

:NO - PRINT

THE

BLURB

HELP BLURB

SP,RO

Emi
ADD
GMANID
EM1
BR
.WORD
.WORD
.WORD

,NO ;GET
PASWORD,TEMPO,O, \77277,0,177777
(SGMAN
10000%
TEMPO
T$CODE
PASWORD

.WORD
.WORD

TSLOLIM
TSHILIM

(mp

PASWD, TEMPO

BEQ

INC

PRINTF

MOV
MOv

CEPNTF
¥ ,SP

HLPMSG

ACCESS

WFMTI8,#DENIED

MOv

EMT
ADD

COPNTF
#6,5P

PRINTF

MOv
MOv
MOv
MOV

#FMTMS, #(MD!

#CMD1,-(SP)
SEMTMS,=(SP)
#2,-(SP)

EMT
ADD
PRINTF
MOV

CSPNTF
#6,5°P
#FMT18,0(MD3
#CMD3,=(SP)

MOV

SP,RC

EnT

;sSET

THE DENIED FLAG
;8 TELL OPR

;PRINT

THE

HELP BLURB

SP,RO

CSPNTF
#6,5P
#FMTI8,8(MD?2
#CMD2,-(SP)
#EMT18,-(SP)
#2,-(SP)

MOv
MOov

;CORRECT PASSWORD?

s YUP

SP,RO

EM1
ADD
PRINTF
MOv
MOV
MOV
MOv

THE PASSWORD

177777

#DENIED,-(SP)
#FMTI18,-(SP)
#2,-(SP)

MOv

HLPMSG:

;00 THE PASSWORD STUFF?

HLPMSG

LWORD

10000%:

PASWD

SP,RO

FEMT18,-(SP)
#2,-(SP)

(SPNTH
———

NO SO

O N LN AN N AN NN N
XV IV TV TV 1 £ 8B BN NNV PO N =t s —

sSNoosrNVO SO

N NN NN AN LN AN

(e e X

LN U U

P
el ond
et e
il ol el ed e
e
el el
D e
i
i o

002320
000022
003656
177777
000001
V77777

;JUST STARTING?

BEO

MOV

000004

STFLG

NXTCMD

PRINTF

1064043
000406

106017

TST

BEQ

181

007552
000001

005237

OO0 DOOCOVOOOOOOOOOOOIOD

WHATCMD:

002274

) ol

) il e

104017
062706

001414

11464

012746
012746
010600

002402

—
el ol

S NNy
—

—

005757
001561
005737
001440

023737

STARS

;.""O"'"'t""t""""'""'""".'I""""""'..."""'

SMERE 1S THE *CMD>' QUARY LOOP FOR THINGS TO DO

011310
OO0 OOOTCOOOOOOOOOOD CQOO0OO0OO0ODOOOOO

Voo . ENTe
XV I SNV]

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

CIRLPAD RLu1/2 BSHT

PROCRARM MAIN

LOOP

011514

19 011520

011520
011526

011530
011534
011536
011540
20 011544
011544
011550
011554
011560
011562
011564
21 011570
011570
011574
011600
011604
011606
011610
22 11614
011614
011620
011626
011630
011632
011634
23 011640
011640
011644
011650
011652

062706

01274¢
012746

012746
010600
104077
062706

012746
012746
012746
010600

104017
062706

012746
012746
012746
010600

104017
062706

012746
012746
012746
010600
104017
062706
012746
012746
010600
104017
062706

MACRO v03.01

9-FEB=79

19:46:54 PAGE

5-1

SEQ 0041

000006
004371
007359
000002

000006
004426
007335
000002
000006
004514
007335
000002
000006

004550
007335
000002

000006

ADD

PRINTH
Mov
Mov
Mov
Mov

ADD
PRINTH
mav

MOV

Mov
MOV

ADD
PRINTE
Mov
MOv
MOV
MOV

34!
ADD
PRINTF
Mov
mov
MoV
MOv
EMT
ADD
PRINTF
rov

#6,SP

FEMTI8, 8(MD6

#CM
, -DL
(SP)

#EMTI18,-(SP)

#2,-(SP)
SP,RO

CSPNTF

6 ,SP
SEMT18,8CMDS

#CMDS,~(SP)
#FMT18,-(SP)
#2,-(SP)

SP,RO
CSPNTF

¥6,5P
SENT18,4(MD6
#(MD6,-(SP)

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

CSPNTF

#6,5P

NEMT18,0CMD7
#CMD7,=(SP)
#EMT18,-(SP)
§2,-(SF)

SP,RO
CSPNTF

#6,5P

007552
000001

MOV

Mov

FMCRLF
FMCRLF ,=(SP)
#1,-(SP)
SP,RO

000004

ADD

r,5P

CSPNTF

CIRLMAOQ RLOV/2 BSFT

PROGRAM MAIN LOOP

011660

2 011664
2 011670
S 011674

0116764
011700
011704
011706
011710
6 011714
011714
011716
011720
011722
0117264
011726
011730
011732
) 011734

8 011734

9 011740
}? 011742

005037

MACRO v03.01

SEQ 0042

013456

005037
004537

J13454
024544

012746
012745
010600
104017
062706

007552
000001

006300
000170

NXTCMD:

(LR

10001$:

011766

FLONUM
RS,GETSYS

PRINTF

#MCRLF

.WORD
.WORD
.WORD

Mov

ASL
JMP

011746

FACNUM

(LR
JSR

MOv
MoV
Mov
EMT
ADD
GMANID
EMY
BR
.WORD
.WORD
.WORD

000004

104043
(000406
011766
000042
004613
000007
000001
000007
013700

9-FEB-79 19:46:54 PAGE 6
;CLEAR ENTRY

;UPDATE

COUNTER

THE RUN TIME

SMCRLF ,=(SP)
”,-(SP)
SP.RO
CSPNTF
N, SP
(MDDO,INPUT,D,7,1,7
,NO
CSGMAN
10001%
INPUT
T$CODE
CMDDO
7
TSLOLIM
TSHILIM

INPUT RO

RO
aLIST(RO)

;GET

THE

CMD REQUEST

TYPED

;SHIFT FOR PROPER INDEX INTO LIST
;DO THE FUNCTION REQUESTED

12
13
14
15
16
17
18
19

011746
011750
011752
011756
011756
011760
011762
011764

000000
011770
014102
015454
016/52
016300
021054
011424

LIST:

.WORD
O
BSRPT
BSADD
BSDEL
BSVERIFY
BSWRITE
BSMAKE
Hl PMSG

;NOTHING FOR FUNCTION °0°'
: 1 REPORT CONTENTS
: 2 ADD AN ENTRY INTO 'FIE.D' FILE
; 3 DELETE AN ENTRY FROM °FIELD" FILE
. & READ THE PACK
: 5 WRITE THE PACK
: 6 MAKE A BAD SECTOR FILE
: 7 PRINT THE COMMANDS AVAILABLE AGAIN

011766

0060000

INPUT:

_WORD

; STORAGE

TYPED

(OMMAND

CIRLRAQ 9.01/2 BSFH1

PROGRAR MAIN LOOP

MACRO v03.0!

9-FEB-79 19:46:54 PAGE

7
SEQ 0043

1011770

STARS
;;"."."'."""""""'"""'""""'I'."'."'.Q.'Ol"'.0'

2
3

;THIS IS THE ROUTINE TC REPCRT THE CONTENTS OF THE BAD SECTOR FILE
:FOR THE DRIVE SELECTED. °"BSFILE® CONTAINS THE ENTIRE LAST TRACK OFf

:THE

CARTRIDGE

(BAD

:NUMBER FOLLOWED BY

:THEN THt

7 011770

STARS

SECTOR

FILE).

1ST

THE CONTENTS OF

CONTENTS OF

THE

°*FIELD®

REPORT

ThHE

BAD

THE

'FACTORY'

SECTOR

FILE

CARTRIDGE

SERJAL

BAD SECTOR FILE

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

8
9 011770
10 011774

11
12
13
14
15
16
17
}g

004537
000137

012000
012002
012006
012012
012016
012022
012026
012030

000404
006537
000137
004537
005737
001404
004537
000137

20 012034
612034
012040
012064
012050
012052

012746
012746
012746
010600
104017

012054

21 012060
22 012064
012064
012070
012074
012076
012100
23 012104
24 012110

0123110
012114
012120
012122
012124
25 012130
26
27
28 012134
29 012140
012140
0121644
012150
012154
012156
12160
59 012164
31 012170
3¢ 012176
$3 012202

010460
0711660

BSRPT:

010470
011660
023222
002320

BSRPTS:

010736

012002

000006

012746
012746
010600
104017
062706
004537

007552
000001
(00004
010642

007552
000001

004537

023026

012746
012746
012746
010600
104017

004635
007335
000002

005037
005002

013470

PRINTF
MOV
Mov
MOV
MOv
EMT

#FMT19,#STARMSG
#5TARMSG,=(SP)
#FENT19,-(SP)
#2,-(SP)
SP,RO
CSPNTF

013«66

RS,FIRST
NXTCMD
BSRPTL
RS,SELDRV
NXTCMD
RS,LOADED

’6,SP

JSR
PRINTF
MOv
MOV
MOv
Emt
ADD
JSR

RS ,RDBDSC
#MCRLF
#MCRLF ,=(SP)
#1,-(SP)
SP,RO
CSPNTF
#s,SP
R5,DRVID

MOv
MOv
MOV
EM1
ADD
CLR

#MCRLF ,-(SP)
#1,-(SP)
SP,RO
CSPNTF
N6 ,SP
PSNFG

PRINTF

000004
013476

000006
013456
000020

TEMPO
1%
RS ,DRNRDY
BSRPTS

ADD

021710

012746
012746
010600
104017
062706
005037

062706
0GS5037
012737

1%:

002472
007342
000002

062706

004537

BSRPTL:

JSR
JMP
BR
JSR
JMP
JSR
1§71
8taQ
JSR
JMP

JHERE TO REPORT
BSRFAC: JSR
PRINTF
MOV
MOv
MOV
MOV
EMI
ADD
(LR
MOV
(LR
(LR

SSELECT A DRIVE
;NONE AVAIL!
JSELECT

;ALL
:SEE

THE

DONE
IF DRIVE

UNIT

READY

FOR OPR

;READY?
;YUP

;SELECT

THE

UNIT

;READ THE BAD SECTOR FILE

#MCRLF

CONTENTS OF THE
RS,RDFACT
WFMT1E,#BSRM
#BSRM,
- (SP)
#EMTIB,-(SP)
#2,=\SP)
SP,RO
CSPNTF
#6,5P
FACNUM
#16. ,SECMAX
SECNUM
R?

;CLEAR

THE

‘"FACTORY' FILE
+READ THE

FLAG FOR SER # MSG

FACTORY FILE

FROM BD SEC FILE

JINIT THE FACTORY ENTRY (OUNTER
SLAST SECTOR PAIR IN FACTORY f1LE
JFOINT
sCLEAR

TO THE 1ST PALR Or SECTORS
THE INDEX INTO THE BSFILE STORAGE

CIRLMAQ RLO1/2 BSFT

PHROGRAR MAIN LOOP

34
35
36
37

012204
012210
012214
012216
012216
012222
012226

012232
012236
012236
38 012242
39 012246

60
61
42
43
L4

012252
0122564
012262
012266
012272

MACRO v03.01

004537
005737
001441

013750
013474

012746
012746
012748
010600
104017
062706
006537
005737

003400
007335
000002

RS.BSFOK
BSFOKF
108
#FMT18, AINHWSEC
INHWSEC,-(SP)
#EMTI8,-(SP}
"2,-(SP)

000006
020614
002320

MCv
Eml
ADD
JSR
181

SP,RO
CSPNTF
#6,5P
RS, NEWBSF
TEMPO

BEQ
MOV
JSR
JSR
PRINTF

1%
TEMPO,NEWF AC
RS,COPY
RS,WRTBSF
WFMT18,#HYPHEN

012272
012276

012746
012746

00254C
007335

012306
012310
012312

010600
104017
062706

645 012316

000544

7-1

JSR
181
BEQ
PRINTF
MoV
MOV
MOV

002320
020536
015122

012746

19:46:54 PAGE

SEQ 0044

001407
013737
004537
004537

012302

9-FEB=79

002230
1%:

000002

000006

MOV
MOV
MOV
MCV
EMI
ADD

JFIND A SECTOR TO USE [N FACTORS ARFA
JSEE IF ERROR DETECTED
;JUMP 1F 0K

:BUILD A NEW FILE
;DID 1?
sNO
;SET THE FLAG
JYES = COPY TO WMOLE FILE
JASK JF TIME TO WRITE PA(CK

#HYPHEN,=(SP)
#EMTI18,-(SP)
#2,-(SP)

SP,RO
(SPNTF
#6,SP

BSRFLD

;DO

THE

FIELD REPORT

47
4«8 012320

49 012320
012320
012324
012330
012334
012340
01234
012346
012350
€0 01235
51 012360
52 012364
53 012370
5¢ 012372
55 012374
56 012400
57 012404
58 012412
59 012414
60 012422
61 012424
62 012430
63

012432

012432
012636
0126442
012446
012450
012452
te 01245

JSTART
10%:

013746
013746
012746
012746
012746
010600
104017
062706
005237
005037
016203
005703
100002
000137
005237
022737
001506
022737
001040
005737
001035

002224
002226
002427
007420
000004

012746
012746
012746
010600
104017
062706

006150
007342
000002

000012
013476
002322
026442

11%:

013500
013456
000176

013456

000062

013456

002322

2%:

PROCESSING THE

PRINTF
MOV
MGV
MOV
MOV
MoV
MOV
EMY
ADD
INC
(LR
MOV
17
BPL
JMP
INC
(MP
BEQ
(MP
BNE
1SY
BNE

WFMISN,#CART,SERNM?Z,SERNMI
SERNM1 ,-(SP)
SERNMZ ,-(SP)
#CART ,-(SP)
#FMISN,-(SP)
¥4 ,-(SP)
SP,RO
CSPNTF
#12,5P
PSNFG
JSET THE FLAG
TEMP
BSFILE(R2),R3
JGET THE CYLINDER # FROM ENTRY
R3
;SEE IF 11S Ok 1O USE
2%
;0K
NOFACT
;WHOOPS...ERROR
fFACNUM
. :COUNT THIS ENTRY
#126. ,FACNUM
JEND OF FILE LIMIT?
BSRFLD
JYUP
#50. ,FACNUM
JTIME TO QUIT PRINTING?
21
;NO
TEMPI
JPRINTED ERROR MESSAGE vET?
21%
;YUP

MOV
MOV
MOV
MOV
EmM1
ADD
PRINTE

BOYRMAX ,=-(SP)
#EMT19,-(SP)
#2,=-(SP)
SP,RO
(OPNTF
#6,SP
#M(CRLH

PRINTF

000006

ENTRYS

#FMT19,80VRMAX

;TELL

OPR

OVER

LIM]T

CIRLMAD RLOY/2 BSHT

PROGRAM MAIN LOOP

66
67
68
69

0126456
0126462
012466
012470
012472
012476
012476
012500
012502
012504
012506
012510
012512
012512
012516
012520
012524

70 012530
71 012532
72 012536

012746
0127¢6
010600
104017
062706

MACRO v03.01

007552
000001
000004

005722
016203
110337

002322
013460

012552
012556
012562
012566
012572
012576
012602
012606
012612
012616
012620
012622
;g 0i2626

013746
012746
013746
012746
013746
012746
013746
012746
01274¢
010600
104017
062706
000656

013464
002462
013462
003101
013460
002447
013456
007450
000010

004537
005002
012737
005037
0050%7
005037

023066

012746
012746
012746
010600
104017
062706
004537
005737
001436

004705
007335
000002

012746

003453

87
88
89
90

21%:

Ml
BR
.WORD
.WORD
.WORD
.WORD
TS1
BEQ
INC
MOV

TEMPO
BSRFLD
TEMP1
R3,BSFCYL

;NO?
;QUIT PRINTING ENTRIES
;SET THE PRINT ERROR FLAG
JSAVE THE CYLINDER NUMBER

SWAB

;PUT

191
MOV
MOvVB

026442
013462
013464

012630
012634
012636
012644
012650
012654
012660
012660
012664
012670
01267«
012676
012700
012704
012710
012714
012716
012716

10002%:

002320

110337
005722

80
81
82
835
84
85
86

7-2

#MCRLF ,=-(SP)
n,-(SP)
SP,RO
COPNTF
0, ,SP
TILLEND,TYEMPQO,177777,N0
CSGMAN
10002%
TEMP?
T$CODE
TILLEND
1772777

GMANTL

000303

MOV
MOV
MOV
Em
ADD

104043
000404
002320
000120
005770
77777
005737
001444
005237
010337

SEQ

73 012542

74 012544
75 012550
76 012552

9-FEB=79 19:46:54 PAGE

MOvVB
1s1
PRINTF

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOy
MOV
MOV
EMT
ADD
BR

000022

000020
013470
013454
013476

000006
013750
013474

JHERE

TO REPORT

BSRFLD:
013466

(R2)+
BSFILE(RZ) ,RY
R3,BSFSEC

JPOINT TO HEAD & SECTOR ENTRY
JGET T
JSAVE THE SECTOR NUMBER

THE HEAD #

IN LOW BYTE

R3,BSFHD
;SAVE THE HEAD NUMBER
(R2)+
sPOINT T0 THE NEXT ENTRY
WFMTCSH,FACNUM,#(MSG,BSFCYL,#SMSG,BSFSEC,
#HMSG ,BSFHD

BSFHD,-(SP)
#HMSG,-(SP)
BSFSEC,-(SP)
#SMSG,=(SP)
BSFCYL,=(SP)
#(MSG,-(SP)
FACNUM,=(SP)
NEMTCSH,-(SP)
#10,-(SP)
SP.RO
COPNTF
#22,SP
11%
THE

CONTENTS OF

JSR
RS,RDFIELD
(LR
&2
MOV
#16.,SECMAX
CLR
SECNUM
(LR
fFLDNUM
(LR
PSNFG
PRINTF
WNFMT18,#BSRF
MOV
#BSRF ,-(SP)
MOV
#EMT18,-(SP)
MOV
#2,-(SP)
MOv
SP,RO
EMT
CSPNTF
ADD
r6,SP
JSR
RS,BSFOK
161
BSFOKF
BEQ
10%
PRINTF #FMT1B, NSWSE(
MOV
INSWSE(,=(5P)

JPROCESS THE NEXT ENTRY
THWE

‘FIELD"

FILE

sGET THE FIELD BD SEC FILE
sPOINT T0 THE 1ST SECTOR OF TME 'FIELD®
JSET THE LAST USUABLE SECTOR NUMBER
JPOINT 70 THE 1ST SECTYOR IN FIELD FILE
JCLEAR THE FIELD ENTRY COUNTER
JCLEAR THE PRINT FLAG rOR SERIAL #

sHIND A SECTOR 10 USE
JANY ERROR DETECIED?
SJUMP TF Ok

IN THE

FLELD AREA

FILE

0045

CIRLMAD RLOV/2 BSFT
OO0~~~ SNSNSNTNSNNSN NN ~
—=OOOQO N~ o
oW (O 0 o RV TV ] WU
OoOrNNOSrO &~
L=
o [a¥T e JHaCT
e 30 o) (2T
X, ¥}

h e
o
il e

O N N PO

o
) e
D

N RO N N

97
98

95
96

AN LR

91
92

U N ~n

elolololololololalolalololololololo)

PROGRAM MAIN LOOP

MACRO v03.01

007335
000002

062706
004537
005737
001404
004537
004537

000006
020614
002320

012746
012746
012746
010600
104017
062706
000544

020536
015122

1%:

002540
007335
000002

#6,5P

8tQ
JSR
JSR

PRINTE
MOV
MOV
Mov
MoV

000006

ADD

002224
002226
002427
007420
000004

013454

000062

013454

006150
007342
000002

000006

007552
000001

000004

PRINTF
MOV
MOv
MOV
MOV
MOV
Mov
ADD

11%:

2%:

CSPNTF

RS ,NEWBSF
TEMPO
1%
RS,COPY
RS, WRIBSF
FFEMTI18, #HYPHEN

;BUILD A NEWw FIJLE
DID 1?

;NO
SsYES = (OPY TO WHOLE FIJLE
JASK 1F TIME TO WRITE tILE

ON PACK

NHYPHEN,-(SP)

#EMT18,-(SP)
"2 ,-(5P)

SP.,RO
CSPNTF

#6,5P

BSR101T

sPRINT THE

TOTALS FOUND

TO PROCESS ENTRYS FROM THE FJELD FILE

EMT

013566
013454
000176

002322

117

ADD

181

000012
013476
002322
026442

116

#FEMT18,=(SP)
#2,-(SP)

JSK

10%

072
076

MOov
MOV
Mov

EMT

;HERE

100
101

7-3

SEQ 0046

012746
012746
010600
104017

9-FEB=79 19:46:54 PAGE

INC
CLR
MOv
1581
BPL
JMP
INC
CMP
8t0Q
(MpP
BNE
181
BNE

PRINTE
MOV
MOV
MOv
MOV

EMT

NEMTISN,#CART,SERNMZ,
SERNMI

SERNM1,-(SP)
SERNM2,-(SP)

#CART ,-(SP)
#EMTSN,=(SP)
N6 ,-(SP)

SP,RO

CSPNTF
n2,sp
PSNFG

JSET

THE PRINT

BSFILE(R2),R3

JGET
:SEE
: 0K

THE CYLINDER # FROM ENTRY
IF 11S 0K TO USE

TEMP

NOFIELD
FLONUM

¥126.,FLDONUM

BSRTOT
#50. ,FLDNUM
21
TEMPI

SEMT19, #0VRMAX

#OVRMAX ,-(SP)

FEMTI9,-(SP)
¥2,-(SP)

SP,RO
CSPNTF

ADD
PRINTF
MOV
MOv
MOv

¥6,5P
FMCRLF
IMCRLF ,=(SP)
” ,-(SP)

ADD

8 ,SP

£Emt

GMAN]L

SP,RO
CSPNTF

TILLEND,TEMPO,
172777 ,NO

FLAG

<ERROR.

s COUNT THIS ENTRY
;END OF FIELD ENTRY LIMIT?
s YUP

;TIME TO QUIT PRINTING?
;NO
;PRINT THE ERROR MESSAGE?
;NO
JYES - TELL OPR

LIRLMAQ RLOV/2 BSF1

234
b
»

W
no

204

MACRO v03.01

9-FEB-79

19:46:54 PAGE

7-4

SEQ 0047

106043
000404
002320
000120
005770
177777

005737
001444
005237
019337
005722
016203

002329

002322
013460

110337

026442
013462

110337

013464

000303

005722

10003$:

TS1
8taQ

¥
Ak

013464
002462
013462
003101

013460
002447
01345¢

007450
000010

000010

600
017

600

013454
002606
007435
000003
000010

002472
007335
000002

000006

INC

Mov
151
MOV
MOvB
SWAB
MOvVB
18T
PRINTE
Mov
MOV
MCv
MOV
MoV
MOV
MOV
Mov
MOV
MoV

EMT

000022

013456
002636
007435
000003

EM1
BR
.WORD
.WORD
.WORD
.WORD

ADD

BR
;PRINT

THE

BSRTOT:

PRINTE
MOV
MOV
Mov
MOv
MOV

10003$
TEMPO
1$CODE
TILLEND
177777
TEMPO
BSRTOT
TEMPI

ADD
PPINTF
MOV
MOV
MOv
MOV
MOv

;aulit?

s YUP

R3,BSFCYL
(R2)+
BSFILE(R?),R}3
R3,BSFSEC
R3
R3,BSFHD
(R2)+

THE

CYLINDER NUMBER

JPOINT TO HEAD & SECTOR ENITRY
JGET 11
sSAVE THE SECTOR NUMBER

;PUT THE HEAD # IN LOW BYTE
;SAVE THE HEAD NUMBER
JPOINT TO THE NEXT ENTRY

FEMTCSH,
#CMSG,BSFCYL ,#SMSG,BSFSEC,
FLONUM,
#HMSG,BSF HD

#HMS
=~ G,
(SP)

BSFSEC,~(SP)
#SMSG,-(SP)

BSFCYL,=(SP)

#CMSG,=(SP)
FLONUM, -(SP)
#EMTCSH,=(SP)

#10,-(SP)

SP,RO

CSPNTF
n22,SP
11%
FROM EACH

;PROCESS THE NEXT ENTRY
SECTION

NEMTTB, FTMMSG,FACNUM
FACNUM,=(SP)
#1MMSG,-(SP)
#EMTTB,-(SP)

#3,-(SP)

SP,RO

CSPNTF
#10,SP

#EMTTB,OTFMSG, FLDNUM
FLONUM,=-(SP)
#T1FMSG,={(SP)
FENTTB,=(SP)

#3,-(SP)

SP,RO

CSPNTFH

ADD
PRINTE
MOV
MOV
MOv
MOv

#10,SP
FEMTI8,#STARMSG

ADD

#e,SP

ent

JSET THE PRINT FLAG

;SAVE

BSFHD,=(SP)

TOTALS

EMT

CSGMAN

#STARMSG,
= (SP)

SEMT18,-(SP)
#2,-(SP)

SP,RO
(SPNTF

e —

135

COO0O0O0O0OOOOOOOOODOCOOOOOOOO [s]oleolele)

OO~NO
N
w0 —= O V0o

134

OO OO0OOOCOOOODOOOOOOCOOOO0OO0O

el
ol
il
el
il
il
)
)
——
el —
D
el )

AN AN AN NN
WA
— OO

NNNININOPNO
NI NN — —

)

PROGRAM MAIN LOOP

CZRLMAD RLOV/2 BSFT

PROGRAM MAIN

LOOP

136 013426

013426
013432
013436
013440
013442
}%g 013446

0127646
012746
016600
104017
062706
000137

MACRO v03.01

000004
012002

013456
013460
013462
013464
013466
013470
013472
0134764
013476

000000
000000

000000
000000
000000
000000
000000
0C0000
000000
000000
000000

155 013500

005737

013456

157 013506
158 013512

005037

013456

013512
013516
013522
013526
013530
013532

012746
012746
012746
010600
104017
062706

003351
007335
000002

01353¢
013542
013546
013552
013556
013596
}o? 013562

012746
012746
0127646
010600
104017
062706
000137

156 013504

159 013536

001014

000006
002540
007335
000002

}6%
013454

013600
013¢04
013610
013614
01%616
013620

012766
012746
012746
010600
104017
062706

003426
007335
000002

018626

012746

002540

168 013624

181

sHAVE SERIAL # FLAG
;NUMBER OF CURRENT FIELD ENTRY

0
0
0
0
0
0
0
0
0

:NUMBER OFf THE CURRENT FACTORY ENTRY
JCURRENT CYLINDER FROM ENTRY IN PROCESS
JCURRENT SECTOR FROM ENTRY
sCURRENT SURFACE (MEAD) FROM ENTRY IN PROCESS
sLAST USUABLE SECTOR NUMBER IN SELECTED SECTION
sCURRENT SECTOR BEING USED TO EXTRACT ENIRYS
;START ADDR OF THE 'FOUND' SECTOR IN BAD SEC FIi
¢
;ERROR DETECT FLAG
PRINT FLAG FOR SERIAL #

THE

FACTORY FILE

F ACNUM

BNE

;WAS ANY

MOV
MoV
MOV
MOV
EMT
ADD

PRINTF

MOV
MOV
MOV
MCV
EMT
ADD
JMP
IF

NOF JELD:

013454

000006

0
0

(LR
FACNUN
PRINTF WNFMTI1B, #HWSEC

JHERE
005737
001014
005037

.WORD
.WORD

AT END OF

1%:

SELECT NEXT UNIT

STORAGE FOR THIS ROUTINE

sHERE

NOFACT:

SEQ

#MCRLF

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

7-5

#MCRLF ,=(SP)
#,-(SP)
SP.RO
CSPNTE
,,5P
BSRP1S

FACNUM:
BSFCYL:
BSFSEC:
BSFHD:
SECMAX:
SECNUM:
SECOLD:
BSFOKF:
PSNFG:

00000¢
012630

01356
013572
013574
013600

1S THE

NOSNUM:
FLDNUM:

}23

164
165
166
167

MOV
MOV
MOV
Em
ADD
JMP
JHERE

1641 013452
162 013454

PRINTE

007552
000001

}28

143
166
145
166
147
148
149
150
}2;

9-FEB=79 19:46:54 PAGE

THE

TS1
BNE
CLR
PRINTF

ENTRY DETFCTED?

JCLEAR

THE

ENTRY

(OUNTER FOR FACTORY

;DO THE

FIELD SECTION

#HWSEC,=(SP)
SFMT18,-(SP)
#2,-(5P)
SP.,RO
CSPNTF
6,5P

#FMTI8,0HYPHEN

FHYPHEN,=(SP)
#EMT18,-(SP)
#2,-(SP)
SP,RO
(OPNTF
#6,5°P
BSRFLD
END OF

THE

FLIELD FILE

FLDNUM
1%
fLDNUM
WEMTIB,05WSE(

mov
MOV
MOV
Moy
ent
ADD

OSWSE( ,=(SP)
PENTI18,=(SP)
#2,-(SP)
SP,RO
(OPNTF
#6,5P

MOV

FHYPHEN,=(SP)

PRINTE

:YUP

SEMTIB,onvPuEN

JANY FLELD ENTRYS?
;YUP
JNO = CLEAR THE ENTRY

(OQUNTER

SECTORS

0048

(IRLMAQ RLOY/2 BSH?

013630
013634
013640
013642
013644
013650

9-FEB=79

007335
000002

MoV
MOV
MOV

EMT

000006
013322

ADD

Jmp

~N~

013470
134606

007335
000002

000006
127777

000400
013470
000400

NOMSEC:

003113

SSONOO N

o
N;‘NNNNN\‘NN
B AMANNIN
= o s OO

o Lo NN

el ol ol
il

IV IV TV TV Y]

D
i
Gl ol
il
]

013470

000400

19:46:56 PAGE

7-6

SEQ 0049

000004

3676

VIV TV

184

183

—

182

010600
106017
062706
000137

1365¢
13662
13670
13672
13672

(W IV TV

OO~~~
OO0~

181

012746
012746

MACRO v03.01

JHERE
QOO0 OOOOOOOODOOODOOO

i
sl
A
sl
D
el
il
—r

NNNNNN~NO
[« XU ¥ SV T Yot

PROGRANM MALIN LOOP

1%:

’%:

SP,RO
(SPNTFH

#6,5°P

BSRTOT

;00 THE

TOTALS

NO SERIAL NUMBER OR 2 0'S NOT DETECTED [N 1ST & WORDS OF
ADD

4,14
8LOS
PRINTF

#6,SECNUR

?E(NUH,S[(HAI

SECTOR

SECTOR NUMBER

SECTION?

JSET

ERROR FLAG

#128.¢2 ,R?
R3

sUP THE OFFSET By 1 SECTOR
;DECREMENT THE C(OUNTER = MULTIPLY

#6,5P

DE(
BNE
BR

TME

END OF

#177777,BSFOKF
BSHOKX
#128.¢2 ,R?

#FMT18, #BSEND

ADD

Mov
Mov
ADD

THE

SEMT18,-(SP)
#2,-(SP)

81S
BR

;UPDATE

;AT

;BRANCH

Mov
MOV
MoV
MOV

Ent

013474

SENTIB,-(SP)
#2,-(SP)

#BSEND,-(SP)

SP,RO
(SPNTE

SECNUM
RS

2%
BSFOK

SEXIT

BACK

CSEE

THE

FOR

SECTOR FIND ROUTINE

ANOTHER

NOT

THIS SECTOR IS Ok

DONE

WITH ERROR SET

{ IRLPMAQ RLOV/2 BSHT

MACRO v03.01

9-FEB=-79 19:466:54 PAGE

JHERE

005037
012737
060237
005762
100739

) ol e

s o

et e

COONP NS W

= OO0

001006
005762
001003
052737
022762
001315
022762
001311
016237
005722
005762
100702

014100

016237
005722
005762
001273
005722
005762
001267
005722
000205

SEQ 0050

PROGRAM MAIN LOOP

013474
02644°

013672
026442

013472

1S TME SECTOR FIND ROUTINE

:
BSFOK

026444
17272777
177777

013452
027040

177777

027042

02644¢

002224

1%:

Bnl
BNE
151
BNE
81S
(mp
BNE

cmp
BNE
MOV
187
151

026442
026442

(LR

Mov
ADD
TS1

8m]

002226

MOV
151
151

026442

BNE
151
181
BNE

026447
BSFOKX:

157
RTS

B85f0OKF

FOR THE BAD SECTOR FILE

;CLEAR THE ERROR FLAG

#BSFILE ,SECOLD

;GET

BASIC

BSFILE(R?)

;SEE

R?,SECOLD

NOMSEC

BSFILE+2(R?)

;ADD
:1F

:1F

IN THE

ADDRESS

OFFSET

ANY SERJAL NUMBER

JUMP

TO ERROR

>0 THEN HAVE

SERVICE

A NUMBER

;ANY SER. NUM IN WORD 2?

1%
:BR If OK
M177777 NOSNUM
;SET THE NO SERIAL NUMBER fLAG
¥-1,BSFILE+254.(R2) ;END OF SECTOR OK ALSO?

NOMSE(C

:NO = NO MATCH HERE!

#-1,BSFILE+256.(R2) ;END OK HERE
NOMSE(
;NO -~ DON'T MAVE

T100?
A BAD

SECT

FILE

BSFILE(R2) ,SERNM1 ;SaVE LOW ORDER Of SERJAL #
(R2)+
;POINT TO HiGH ORDER OF SERJAL
BSFILE(R?)
SSEE IF LEGAL
NOMSE C

:NO - ERROR

(R2)¢
BSFILE(R?)

;POINI TO A BLANK ENTRY
;SEE IF LEGAL (=0)

(R2)+

;POINT

BSFILE(R2) ,SERNM?2 ;SAVE HIGH ORDER OF

NOMSE C

BSFILE (R2)
NOMSEC

(R2)¢
RS

sNO - ERROR
;SEE

:NO -

TO LAST

LEGAL

ERROR

CHECK

(=0)

SERJAL

ENTRY

vET!

SPO1

;POINT TO 1ST VALID ENTRY IN SECTOR
JEXIT = R2 POINTS TO THE OFFSET vALUE
SAND SECNUM = CURRENT SECTOR IN FILE

(IR MAQ RLOV/2 BSHT

PROGRAM MAIN LOOP

MACRO v03.01

9-FEB-79

i9:46:54 PAGE

9
SEQ 0051

016102

STARS
S

AR AR AR AR AR A

XXX NN

NNY

)

é&i:g IS THE ROUTINE TO ADD AN ENTRY INTO THE ‘FIELD' BAD SECTOR FILE

4
3 014102

";.'!.""""""""t""""""""t"’""'.'I"."."'.".'

&H e

PORY —d

b =

ot ol e

s et e

= OOVWENO
VNS W=D 000N

5 0146102

014102
014106
014112
014116
014120
014122
014126
014132
014136
014140
014144
014150
014154
014160
014162
14166

014170
014174
014200
014204
014206
014206
014212
014216
014222
014224
014226
014232

014236
014236
014240
0146242
0146244
014246
014250
014252
014252
014256

014260
014264
014266
014266

0146272
014276
014300
014302
3 014306

005024
007342
000002

BSADD:

PRINTF

MOV
MOV
MOV

MOV

000006
010460
011660
010470
01166C
023222

002320
000764

010642
021710

012746
012746
012746
010600

003747
007335
000002

062706
000137

000006
011660

1871

BtQ

JSR

1%:

002372

000404
002320
000120
006575
000001

002320

005737
001470

013452

012746
012746
010600
062706

CSPNTF

#6,5P
RS,FIRST
NXTCMD
BSADDL
RS,SELDRY
NXTCMD
RS,LOADED

sSELECT THE NEXT UNIT
;sALL DONE
:DRV READY?

JYES

TEMPO

RS ,DRNRDY

JSELECT 1ST UNIT
JNONE AVAIL.!

JWELL?

JSELECT

JSR
JSR
151

RS,DRVID
RS,RDBDSC

:TELL OPR WHAT DRIVE
JGEY A FRESH COPY OF

BSATD
WFMT18, #DENIED

;YUP

MoV
MOV
MOV

Mov

:
100048

SP.RO

BSADDS

ACCESS

THE BAD SECTOR FILE

#DENIED ,-(SP)
PEMTIB,=-(SP)
#2,-(SP)
SP,RO

CSPNTH
#6,SP
NXTCMD

GMANIL
EMT

THISDRV,TEMP(,1,NO
CSGMAN

.WORD
.WORD
.WORD

{HlSDRV

181

THE NEXT UNIT

JALLOWED 10 DO T1?

EMT
ADD
JMP

BR
.WORD

005737
001730

#ABSMSG,-(SP)
#ENTI19,=-(SP)
#2,-(SP)

B8R

BEQ
PRINTF

BSATD:

104043

104017

ADD
JSR
JMP
B8R
BSADDS: JSR
JMP
BSADDL: JSR

01073%6

004537
0046537
005737
001414

104017

WNFMTI19,#ABSMSG

sTELL OPR NOT ALLOWED & EXIT

100049
TEMPO
T$CODE

TEMPO

BEQ

BSADDS

;BRANCH

TST
BEQ

NOSNUM
GETCYL

JSEE IF NEED A SFRIAL NUMBER
;JUMP 1F HAVE A NUMBER

007552
000001

MOV
MOV

#MCRLF ,=(SP)
1 ,-(SP)

000004

EMT
ADD
CMANIL

CEPNTF
0 ,SP
ABSSER,TEMPC,1,NO

BSASN:

PRINTF

MOV

GETSN:

W#MCRLF

SP,RO

NOT

T0 USE

THIS DRIVE

CIRLMAQ RLOV/2 BSFT

PROGRANM MAIN LOOP

014306
014310
016312
016314
014316
32

000404
002320
000120
005220
000001

002320

100058
:

10006%:

104043

000406
002366
000022
005331
077777
000000
or7777
36

10007%:

40
41 014440
014446

014450
0146452
014454
014456
014460
0146462

0057%7
001720
104043

000406
013460
000042
005114
000777
000000

002320

151

TEMPO
SSEE 1+ YES (=1)
GETCYL
:BRANCH 1f NO
ABSSNL ,SN1,0,77777,1,77777
,NO

8tQ
GMANID
EM1
BR
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
GMANID
EMT
BR
.WORD
.WORC
.WORD
.WORD
.WORD
.WORD

MOv
MOV

EMT

000012

38
39 0146444

CSGMAN
10005%
TEMPO
T$CODE
?BSSER

MOV
Mov
Mov
MoV

007420
000004

177777

EMT
BR
.WORD
.WORD
.WORD
.WORD

PRINTF

002364
002366
002427

9-1

SEQ 0052

106043
000406
002364
000022
005272
077777
000001
077777

9-FEB-79 19:46:54 PAGE

104045

005737
001447

MACRO v03.01

ADD
GMANIL
EMT
BR

100109%:

.WORD
.WORD
.WORD
.WORD

10006%
SN1
T$CODE

ABSSNL

7777

TSLOLIM
TSHILIM
ABSSNH,SN2,0,77%77,0,77777
,NO

CSGMAN
100079%
SN2
1$CODE

ABSSNH

7777
TSLOLIM
TSHILIM

NEMTSN,#CART,
SN2, SN

SN1,-(SP)
SN2,=(SP)

#CART,=(SP)
#EMTSN,-(SP)
#s,=-(SP)

SP,RO
CSPNTF

”2,sp

VALSN,TEMPO,177777
,NO
CSGMAN
10010%
TEMPO
T$CODE
VALSN
177777

181

TEMPO
GETSN

GMANID
EMT
B8R
.WORD

ABSCYL ,BSFCYL,D,777,0,511.,NO

BEQ
GETCvL:

CSGMAN

.WORD
.WORD
.WORD
.WORD

CSGMAN
10011%
BSFCYL
T$CODE
ABSCYL

M
TSLOL

;JMP ]F NO
;NO VALID SERIAL NUMBER = ASK

AGAIN

CZRLMAQ RLOV/2 BSFT

PROGRAM MAIN LOOP

62
L3
64

014464
014462

MACRO v03.01

9-FEB-79 19:46:54 PAGE 9-2

000777

10011%:

.WORD

SEQ 0053

TSHILIM

;CHECK FOR A VALID RLOY CYL IF DRIVE=RLO1
014466

&5 0146474
66 014476
&7 014504

<2737

«8 014506

014506
014512
014516
014522
014524
0146526
49 014532
50 014534
014534
014536
014540

014542
014544
0146546
014550
014552
014554
51 014554
014554
014556
014560
014562
014564
014566
014570
014572
014574

000001

002246

000377

013460

cmp
BNE
BHIS

#1,1DR
GETSEC
#255. ,BSECYL
GETSEC

005627
007342
000002

MoV
MoV
MOV

FRLICLM,=-(SP)
#EMT19,-(SP)
#2,-(SP)

000006

EMT
ADD

CSPNTF
#6,5P

GMANID
EMT

ABSSEC,BSFSEC,.D.77.,0,39..NO
CSGMAN

(mp

PRINTF

MoV

GETSEC:

106063

000406
013462
000042
005146
000077
000000
000047
1064043

000406
013464
000042
005175
000003
000000
000001

014632
014636
0146642
014646
014650
014650
014654

014660

013700
000300
000241
006000
103002
052700

053700
005737
001402
052700
010037
004537
005737
001414

B8R

GETCYL

013460

100000
013462

013404

000100
002314
025252
002312

004013
007335
000002

TELL

GMANID
Em

ABSHD,BSfHD,D,3,0,1,NO
CSGMAN

.WORD
.WORD
.WORD

8SFHD
T1$CODE
ABSHD

.WORD

TSHILIM

10013%

.WORD
.WORD
.WORD

CLe
ROR
BC(
BIS

BIS
TS1
BEQ
BIS
ACKENT: MOV
JOR
TS1
BEQ
PRINTFE
MOV

MOV
MOV

OPR

10012%

TSLOLIM

TO SEE

RLOZ

CYLINDER?

:GET CYL AGAIN

.WORD

MOV
SWAS

1%:

:NO

BSFSEC
T$(ODE
ABSSEC

10013%:

JYUP

.WORD
.WORD
.WORD

.WORD
10012%:

JVALID RLOT

SP.RO

JCHECK
014574
014600
014602
014604
014606
014610
014614
014620
014624
014626

W#FMT19,#RLICLM

RLOT=
JSKIP CHECK

3
TSLOLIM
TOSHILIM

THE NEW ENTRY ALREADY EXISTS
BSFCYL,RO
RO
RO
1%
#81715,R0

BSFSEC,RO
BSFHD
ACKENT
#100,R0
RO, CHKSEC
RS,CXBDSC
HDRFND
1%
WFMTI1B,#EXISTS
WEXISTS,=-(SP)

#EMT18,-(SP)
#2,-(SP)

;GET

THE

;CLEAR

CYL

THE

IN THE FILE
TYPED

'(C'

BIT

;BR 1F DON'T NEED TiiC EXTRA BI1T
;ADD HIGH ORDER SIT IN ryL #
sADD IN THE SECIOR NUMBER

;ON HEAD 0?2

:BR If HEAD O
;MAKE [T HEAD MY

:SAVE FOR THE CHECK
sCHECK TO SEE IF ALREADY
JHEADER IN FILE?
;B8R IF NOT IN FILE
TELL OPR ENTRY

IN BAD SECT FIlLE

[N FILE NOW

CZRLMAD RLO1/2 BSFT

PROGRAM MAIN LOOP

014664
016666
016670
014674

MACRO v03.01

9-fEB-79

19:46:54 PAGE

SEQ 0054

010600
104017

062706
000137

9-3

SP,RO
CSPNTF

MOV

000006
016140

ADD

¥6,5P

JMP

SSELECT THE NEXT UNIT

BSADDS

:WE NOw HAVE THE NEW ENTRY DATA NEEDED TO GENERATE A BAD SECTOR FILE
;ENTRY,
.. FIND A FREE SPOT IN THE BAD SECTOR FILE °FIELD' AREA FOR THE
;ADDITION THEN UPDATE THE BAD SECTOR FILE JTSELF (MEDIA).

015060

005737
001002
000137

013452

013762
013703
000303
063703
010362

013460
013464

002364
002366
013454
026442

FLDNUM

;START

ENTRY #1

JSR
157

BNE
JMP

3%:

THE

4%:

JSR
JSR
JMP

SECTOR 20.

STARTING AREA

IN BSFILE

SECTOR PAIR

sFIND A "FIELD' SECTOR AREA
JON A
s YUP

SECTOR?

:NO - TELL OPR

SP,RO
CSPNTF

#6,SP
RS ,NEWBSF
TEMPO

;ASK OPR IF

SWAS A
;YES -

NOSNUM

;PACK

21
SN1,aSECOLD
SN2 ,aSECOLD+2

;YUP

A SERIAL

?°

sPOINT 70 THE NEXT ENTRY
JAND TRY THE NEXT SLOT

: INSERT THE CYLINDER NUMBER
;GET THE SELECTED HEAD
;SWAP BYTES TO POSITION THE WD BI11

BSFHD,R3

BSFSEC,R3

;R3 NOW HAS COMPLETE WD & SEC ENTRY
; INSERT 2ND HALF OF ENTRY

R3,BSFILE+2(R2)

8SADDS

HAVE

;COUNT THIS ENTRY TG BE TESTED
JSEE IF A FREE SLOT
;1 FOUND IT...

BSFCYL ,BSFILE(RZ)

RS,COPY
RS,WRTBSE

'FIELD' BSF

sNO - SAVE LOW S #

¥ ,R2

[NTC RESY

TO MAKE A

;SAVE HIGH S #

FLDNUM

ENTRY

TIME

FILE BUILT?
CONTINUE

sSELECT THE NEXT UNIT

BSADDS

s INSERT

SEARCH AT

#FMT18,-(SP)
#2,-(SP)

SWAB
ADD
Mov

013462
026444

THE

JTHIS IS THE LAST AVAIL.

#NSWSEC,-(SP)

BSFILE(R2)
3%

MOV
MOv

JSTART

RS,BSFOK
BSFOKF
2%
NFMT18,#NSWSEC

1S7
BEa
MOV
MOv
INC
187
BM]

ADD

026442

SP,RO
CSPNTF

MOV

ADD

000004

#EMT18,-(SP)
#2,-(SP)

THE

EMT

21%:

A NEW ENTRY

PRINTF
MoV
MOV
MOv
MOV

176436
176432

JTS

JPOINT

187

2%:

OPR

SECNUM
R2
#16.,SECMAX

8taQ

014140

;TELL

INEWENT ,-(SP)

#6,SP

CLR
JSR

000006
020614
002320

005737
001406
013777
013777
005237
005762
100403
062702
000757

004537
004537
000137

013466

FEMT18, AINEWENT

ADD

CLR
CLR

003453
007335
000002

it \ IV

015020
015024
015026
015034
015042
015046
015052
015054

012746
012746
012746
010600
104017
062706
004537

000020
013454
013750
013474

PRINTEH
MoV
MOv
Mov
MOV

EMT

000006
013470

£H o
oo

014776
015002
015006
015012
015014

062706
005037
005002
012737
005037
004537
005737
001421

—

014756
014756
014762
014766
014772
014774

106017

1%:

006103
007335
000002

&S o

014714

014716
014720
014724
014730
014732
014740
014744
014750
014756

012746
012746
012746
010600

OO0

014700
014700
014704
014710

THE

°'FIELD'

;UPDATE
;ASK

OPR

FILE

THE REST OF
IF

T]ME

THE

FILE

TO UPDATE

JSELECT THE NEXT UNIT

PA(K

CIRLMAQ RLOV/2 BSFT

PRCGRARM MAIN LOOP

MACRO v03.01

9-FEB-79 19:46:54 PAGE

SEQ 0055

015122

STARS

AR AR A

:THE OPERATOR IS ASKED
.THIS CCDE IS ABORTED.
STARS

015122
~r
o

) e
il md
i
i

NI
NI N

) el
d
i
bl e

d o

ool

i el

s o
e
e
b
b
h
ah
o
i
b ol
d
b e
b
b e od —h
b

NN
= = O~ QOO NNNE DD WNNNIN -t e s OO
RN ONON S OCrOOLOSrROOONOIrOOIrONOD

L A
A

el e

(U XV IV

e
o e

AN LA

et it

N (a9 1,9] N1, V1 V1 V1, N1, V1 V1 V], V1, V1,V] N1 V] V] V1, V7 )

i e

d el

ol e

s ol

b ok ot od

SV LV IV IV RV SV TV LV LV AV IV JV SV SV LV LV LV JVU XV IV XV TV LV [V XV IV IV XV TV IV IV TV TV TV IV V. AP AR ARV ARV SV LV RV IV V]

aleleloelslelololalejolololololololelolafelalaloelolololelelelolclalelofololaloleleleoleoleleo
o= o)

0O~NOr
el e

———ld

NP
O

——

A
b
et

R R X

E R

SHERE 1S WHERE THE "FIELD® FILE 1S WRITTEN ON THE PACK
SRR

01014¢

012746
012746
010600
106017

062706

A RROO R R

WRIBSF: MOV
PRINTF
MoV

007552
000001

106063
000404

002320
000120
005371
177777

005737
001531
004537
005737
001413

006401
007335
000002

062706
000511
004537
032701
001413

000006

BEQ

PRINTF
MOV
MOV
MOV
MOV

EMT

ADD

023342
020€00

11%:

EMT

000006

077724
000001

002176
002174
002246

177724
000012

002174
002210

002230

000077
002230

BR
JSR
BIT
BEQ

PRINTF
MOv
MOv
Mov
MoV

003277
007335
000002

173000

¥, 5P

002174

12%:

TO UPDATE

THE

PACK...I1F

NOT,

CSGMAN

10014%
TEMPO
T$CODE
DOWRY
177777
TEMPO

R5,LOADED
TEMPO
11%
#FMT18,#NOTRDY
#NOTRDY,=(SP)

JYES? (=1)
JEXIT IF °NO°
;READY?

JWELL?

;YIS

:NO

#EMT18,-(SP)
¥2,-(SP)

SP,RO
CSPNTF

’6,SP

RS,GETDST

,ULoRI

12%
NEMT18, MURTLCK
FWRTLCK ,-(SP)

;DRIVE WRITE

;NO

LOCKED?

JYES

NFMTI8,-(SP)
#2,-(SP)

SP,RO
CEPNTF

#-20.+128.
,BMP
#77724,BDA
#1,T0R
1%
#177724 ,8BDA

;SETUP THE WORD(COUNT

NEWFAC

;HGKING A DUMMY

BIC

(LR

THEN

DOWRT,TEMPO,177777
,NO

MOv
MOV
CMP

BEQ

SP,RO
CSPNTF

ne,SP

MOv
MOV
181

;SAVE R?

ADD

BEQ

1%:

TIME

RO RO OEROROORPORROOREOEPOPORCOEROEROROOROREOROREOEOREOROERRNOTRTYES

R1,-(SP)

ADD

GMANIL
EMT
BR
.WORD
.WORD
.WORD
.WORD

1TS

FMCRLF
FMCRLF ,=(SP)

#,-(SP)

TS1
BEQ
JSR
181

023222
002320

012746
012746
012746
010600
106017

100148

002320

RC RO RN RN

Mov
Mov

EMT

000004

SWRITE ,FUNC

13%
#77,8DA
NEWF AC

:START

THE

WwRITE

SECTIOR

20.

:RLO2?
;JUMP If RLO!
JSTART AT SECTOR 20. FOR RLOZ2
;LOAD THE FUNCTION
N

JYUP = START

JTLEAR

THE

FLAG

'FACTORY®

Se{TnAkR QO
ALSO

FILE?

(RLOY)

CIRLMAD RLOY/2 BSFT

PROGRAM MAIN LOOP

32
33
36
39
g?

015346
015352
015356
015362
015366

005237
004537
006537
005777
100014

MACRO v03.01 9-FEB=79 19:46:54 PAGE

002250
021570
023c64
164612

13%:

;HERE

015370
015374
0156400
015404
015606
015610

61 015414
¢ U420
63 015424

015424
0156430
015434
015440
015442
015644

46 0156450
65 015452

012746
012746
012746
(010600
104017
062706

000137
004537

012746
012746
012746
010600
104017
062706

012601
000205

10-1
SEQ 0056

40 015370

($:

003541
007335
000002

3%:

WRIPG
RS,LDFUNC
RS,WIRDY
aDCs
2%

AN ERROR DETECTED WHILE

MOv
Mov
MOv
MOv
EMT
ADG

000006

PRINTF

005447
007335
000002

011660
0105/¢

INC
JSR
JSR
151
BPL

JMP
JSR
PRINTF

;SET THE WRITE IN PROGRESS FLAG
;DO THE WRITE OF THE UPDATED ‘'FIELD®
;WAIT FOR READY
sWAS THE XFER GOOD?
;JUMP [F 0K
UPDATING

THE

#FM118,#BADWRT

#BADWRT ,~(SP)
#EMT18,-(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,5P

NXTCMD
RS.PTIME
#FMT18,#MDONE

;BACK TO THE QUARY 1 00P
cPRINI it SYS RUN TIME
;TELL OPR - DONE

MOV
MOV
MCV
MOv
34
ADD

#MDONE
, - (SP)
#EMT18,-(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP
(SP)+ ,R1

SRESET

RTS

SEXIT

MOV

MEDIA

R
ROUTINE

FILE

CIRLPAQD RLOV/2 BSHT

PROGRAR MAIN LOOP
1

MACRO v03.01

9-FEB=/9 19:46:54 PAGE

SEQ 0057

015454

STARS
R

2
3

;HERE

1S THE CODE TO SERVICF REMOVING AN ENTRY FROM THE

g?fngR FILE

015454

‘FIELD' BAD

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

005520
007342
000002

BSDEL:

O00
b
s

NN
YO N

PUORUNY
—b od d coh eed b o

000764

010642
021710
002372

012746
012746
0312746
0:0600

003747
007335

1064017

BSDELS:

BSDELL:

1%:

007552
000001
000004

BSDEL1:

JSELECT
:NONE

THE

1ST UNIT

AVAIL.'

JSELECT NEXT
sALL DONE
;READY?

UNIT

BSDELS

;SELECT

JSR
JSR

RS.,DRVID
RS ,RDBDSC

JTELL OPR WHAT DRIVE
;GET A FRESH COPY CF

ACCESS
BSDELTD
#FMTI18,#DENIED
#FMT18,-(SP;
#2,-(SP)
SP,RO

ADD

#6,SP

JMP

NXTCMD

GMANIL
EMT

THISDRV,TEM®0,1,NO
CSGMAN

.WORD
.WORD

TEMPO
T1$CODE

.WORD

#MCRLF

GMANID
EMT

JALLOWED 10 PROCEED?
JYES
JNO - TELL OPR

SELECTED
THE BAD SEC

:BACK

10 THE

QUARY

LOOP

THISDRV

PRINTF

ADD

UNIT

10015%

TEMPO
BSOELS

EMT

COPNTF

151
BEQ
MOV
MOV
MOV

THE

WDENIED,-(SP)

MOV
MOV
MOV

.WORD

002320

TO DELETE...

JYES

B8R

10015%:

OPR ABOUT

1%
RS,DRNRDY

EMTY

BSDELTD:

RS,FIRST

NXTCMD
BSDELL
RS,SELDRY
NXTCMD
RS,LOADED
TEMPO

MOV

000006
017680

;TELL

COPNTH

JMP
BR
JSR
JMP
JSR
1S1

151
BEQ
PRINTF

006575

#6,SP

BEQ
JSR

000002

610

ADD

JSR

010736

0046537
004537
005737
001414

W#FMT19 #DELMSG
#DELMSG,-(SP)
#FEMT19,-(SP)
#2,-(SP)
SP.,RO

EMTY

000006
010460
011660

01047C
011660
023222
002320

PRINTF
MOV
Mov
MOV
mov

JRE=-SELECT

YMCRLF ,=(5P)
#,-(SP)
SP,RO

(SPNTF

2 ,SP

DELCYL ,BSFCYL,D,777,0.511.,NO
(SGMAN

NOY

THIS DRiVE

FILE

CIRLMAD RLOV/2 BSFY

PROGRAM MAIN LOOP

015654
015656
015660
015662

015664

015666

38
39
4«0

A
4

43
L4

&» e~ S NNANNNINIPNIN)
~NOo
ON
b et et bt ca O
orrn o NS NOONINOOSANOO
S NINNOO

33
34
35

NN~

[V RV RV LU SV RV JV AV AV TV KV IV IV IV IV IV IV XV TV YV IV IV IV YV IV,

015670
015672
31 015672

5774

16000

MACRO v03.C1

G-FEB-79

000777

10016%:

106043

000406
013462
000042
005146
000077
000000
000047

10017%:

104043

000406
013464
000042
005175
000003
000000
000001

013700
000300
000241
006000

013460

052700
053700
005737
001402
052700
010037
004537

100000

103002

10020%:

013462
013464

1¢:

000100

002314
025252
002312

2%:

005037

0050%7
0127%7
004537

01347
013454
000020
013750

DELHD,BSFHD,D,3,0,1,NO
CSGMAN
10020%
BSFHD
T$CODE
DELHD

MOV

BSFCYL,RO
RO

SWAB
Ld
ROR
BC(C
B1S
Bl
187
BEQ
Bl1S

MOV

JSR
181

EMT

013466

T$CODE
DELSEC
77
T$LOLIM
TSHILIM

TSLOLIM
TSHILIM

RO
1%
#BIT15,R0
B8SFSEC,RO
BSFHD

RO, (HKSEC
RS,CxBDSC

TO REMOVE

DON'T

WANT

ANOTHER BIT

;NO = POINT 10 HEAD 1
:SAVE THE COMPACTED DISK ADDRESS
sCHECK TO SEE IF ENTRY EX[STS

:NOPE

#NOENTRY,=-(SP)
#FMT18,-(SP)
#2,-(SP)

CYL

IN HIGH BYTF

;ADD IN HIGH ORDER (YL BIT
JADD IN THE SECTOR NUMBER
;ON HEAD 0??
JYUP

NFEMT18,ANOENTRY

;YUP

SP,RO
CSPNTF

JSR
(LR
(LR
(LR

RS,RDFIELD
R2
SECNUM

JSR

;BR

THE

JFOUND?

10%

26,5P
BSDELS

MOV

;COPY

sPUT

HDRFND

ADD

JMP

10%:

TSHILIM

GMANID
EMT
BR
+WORD
.WORD
.WORD
.WORD
.WORD
.WORD

MOV

023066

T$CODE
DELCYL
777
TSLOLIM

DELSEC,BSFSEC,D,77,0,39.,NO
CSGMAN
10017%
BSFSEC

MOV

000006
015512

10016%

BSFLYL

GMANID
EMT
BR
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD

PPINTF
MOV
MOv

005567
007335
000002

004537
005002

BR
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

BNE

50 016036
51 016042
52 016044
5% 016050
5¢4 016054
5% 016062

11-1

SEQ 0058

000406
013460
000042
005114
000777
000000

48
49

19:46:56 PAGE

fFLDNUM
#16.,SE(MAX
RS ,BSFOK

JSELECT

THE

;GET

FIELD BAD SEC

THE

;POINT

10 A WORK

UNIT

AREA

FILE

CZRLRMAQ RLO1/2 BSFT

PROGRAM MAIN LOOP

016174

9-FEB-79

01622«
016226
016232

016234
016240
016244

016250
016252

016254
016260

BSFOKF
118

012746
012746
012746
0106C9

003453
007335
000002

MOV
MOV
MoV

#NSWSEC,-(SP)
#EMT18,-(5P)
#2,-(SP)

062706
004537
005737
001002
000137

000006
020614
002320

023762
001027
013737
000337
053737

023762
001013

PRINTF

MOV

015512
013460

026442

013464
002322
013462
002322

002322

11%:

002322
026444

016262
016262
005762
100422
022222
000765

022222
005762
100341

026446
0264650
026446

026442
(026444

016270
016274

;AT CORRECT ENTRY?
;NOPE! UPDATE POINTER
JGET THE HEAD SELECTED
JPUT IT IN HIGH BYTE
JADD IN THE SECTOR BITS
;CORRECT SECTOR T100?
;NO = UPDATE POINTER

ENTRY

S _OT

NOW

...

KILL

THE

ENTRY

& MOVE

ALL

OTHERS

MOV
MOV
151

BSFILE+4(R2) ,BSFILE(RZ) ;MOVE NEXT CYL ENTRY UP
BS5FILE*6(RZ) ,BSFILE+*2<R2) ;MOVE NEXT SECT ENTRY UP
BSFILE+&(R?)
JEND OF ENTRYS YET?

(Mp

(R2)¢+,(R2)¢

'FIELD'

ENTRY

MOV

#2,-(SP)

MOV

EMT
ADD
JMP

;NO = LGOK AT

DETECTED ON

WFMT18,4NOFLDE

#NOFLDE ,-(SP)
¥EMT18,-(SP)

THE

THIS SLOT

PACK

JTELL OPR NO

'FIELD®

ENTRY HERE

SP,RO

COPNTF
6,5P
BSDELS

JSELECT THE NEXT UNIT

1O CLEAR THIS ENTRY FROM REST OF FIELD BAD SECTOR FILE
COPY THIS MODIFIED SECTOR PAIR INTO THE ENTIRE °'FIELD®

JSR
JSR
JMP

ENTRYS

JUPDATE POINTER BY 2 LOCATIONS
JEND OF ENTRYS?

118

PRINTF

MOV
MOV

JAND DO AGAIN

(R2)+,(R2)+
BSFILE(R2)

BPL

sYUP - EX]IT
JPOINT TO THE NEXT SLOY OF

129

cmp
1587

38:

ERROR EXISTS

BSFCYL,BSFILE(R??
20%
BSFHD,TEMP1
TEMPI
BSFSEC, TEMPI
TIMP1 ,BSFILE*2(R2)
20%

c0$8:

000006
015512

THAT

(Mp
BNE
MOV
SWAB
81§
(mMp
BNE

THE ENTRY SLOT POINTER

000002

OPR

JSEE IF OPR WANTS TO MAKE A FILE
JPROCEED IF A 'FIELD' FILE BUILT
;BR - FILE WAS BUILT
JSELECT THE NEXT UNIT

JUPDATE

;VTELL

CSPNTF
#6,SP
RS ,NEWBSE
TEMPO
11%
BSDELS

BM]

003477
007335

020536
015122
015512

WFMT18,MNSWSEC

SP.RO

0264472

JPOINTING TO A VALID AREA?
:YUP = PROCEED

EMY
ADD
JSR
TS1
BNE
Jmp

THE

12%:

JHERE
;WILL

016264

SEQ 0059

181
BEQ

JHERE

016234

11-2

013474

sHAVE

016176
016204
016212
016216
016220
016222

i19:46:54 PAGE

005737
001621

104017

016166

MACRO v03.01

RS, COPY
RS ,WRTBSF
BEDELS

;(OPY UPDATE 1O WHOLE F]LE
¢ASK OPR [f TIME 1O UPDATE
JSELECT THE NEXT UNIT

BAD

SEC

FILE

(IRLPMAQ RLOV/2 BSFT

PROGRAR MAIN LOOP

MACRO v03.01

9-FEB-79

19:46:54 PAGE

SEQ 0060

016300

STARS

M "'"""'l"""""""""""""t'.'l"."""'.""".'.'

:BSWRITE

TO WRITF

THE WHOLE

FOR THE RLO1/2 THEN ISSUE

PACK WITH THE

THE

°'VERIFY'

WILL CHECK THE PACK FOR BAD SPOTS AND
WliH THE EXISTING BAD SECTOR FILE.

STARS

016300

-- ROUTINE

WORST

CASE

DATA PATTERN

(READ PACK) (OMMAND.

(OMPARE

THE

THIS
FOUND ENTRYS

:;""'.""""""""""""'.""""".""I.""""".'t.

016300
016300
016304
016310
016314
Gle316
016320

004100
007342
000002
104017

062706

BSWRITE:

EMT

000006

ADD

104043
000404
002320
000120
006020
s = b b 0 b et s s
(Y R VIV 1 V1, ¥ POPORDIUNIND
DO
~NO VWMV —=0O 0RO VL N
—=O

177777

005737
001402
004537

000137

016370
016374
016400
016404
016406
016412

016414
016420
016424
016430
016432
016436
016436
016442
016446
016452
016454
016456
016462
016466
016466

016472
016476

002320

010460
011660

10021%:

1%-

000404
004537
000137

010470
011660

BSWRTS:

004537
004537
005737

010642
023222
002320

BSWRTL:

001403
004537

000762

0064537
004537
032701
001416
004537
012746
012746
012746
010600
104017
062706
000137

010736
010572
02334¢
020000

1%:

2%:

#6,5P

MSTWRY ,TEMPO,177777 ,NO

(SGMAN

10021%
TEMPO
T$CODE

MSTWRT

177777

TEMPO
1%
RS,FIRST
NXTCMD
BSWRTL
RS,SELDRvY

RS,DRVID
RS,LOADED
TEMPO
1§3
RS,DRNRDY
BSWRITS

JSR
JSR

RS.PTIME
RS,GETDST

ADD

YL R1

2$
RS,DRVID

INSG, IWRTL(K
SWRTLCK ,=\SP)
INSG,=(SP)

sQUIT

;NOME

AVAIL.!

CAN'T

SSELECT THE

WRITE

1ST UNIT

;TELL

OPR WHAT

:DRV READY
;JTELL

OPR

NOT

DRIVE

READY

JSELECT THE NEXT UNIT
;PRINT

THE

RUN TIME

;GET STATUS OF

JWRITE LOCKED?
:NO
;TELL THE DRIVE
JYES

DRv
1D

SP,RO
CSPNTF

#6,5P

BSWRTS

PRINTF

IMCRLE
SMCRLF ,=(SP)
#,-(SP)

SP,RO

ON ALL

PACKS

SSELECT THE NEXT UNI
sALL DONC

#2,-(SP)

JMP

MOV
MOV
LJo1Y]

OPR WHATS HAPPENING

SP,RO
CSPNTF

JSR
JSR
181
BEOQ
JSR
BR

Emt

;TELL

NEMT19,-(SP)
#2,-(SP)

NXTCMD

MOV
MOV
MOv
MoV

11%:

W#FMT19,sMWRITE
FMWUR]TE ,-(SP)

151
BEQ
JSR
JMP
BR
JSR
JMP

PRINTF

003277
007555
000002

007552
000001

GMANIL
Ent
BR
.WORD
.WORD
.WORD
.WORD

Bl
BEQ
JSR

010642

000006
016360

PRINTE
MOV
Mov
MOV
Mov

SSELECT THE NEXT UNIT

SELECTED

—

CIRLMADQ RLOV/2 BSH!

PROGRAN MAIN LOOP

016500
016502
34 016506
35 016512
16 016516
57
38 016522
016522
016526

016532
016536
016540
016542
59 016546
016552
6 016554
016554
016560
016564

1064017

062706
0046537
005037
005037

MACRO v03.07

012746
012746
012746
010600

010572

104017

062706
005737
001412
012746

012746

012746
010600
104017
002706
005237

004587
004537
00458%7
000020

sCLEAR THE TEMP STORAGE FOR HARD ERRORS
sCLEAR THE SOFT ERROR COUNTER
;CLEAR THE HARD ERROR (OUNTER

PRINTF
Mov
MOV
MOv
Mov

#FMT18, FURPKF

;PRINT

ADD

1§71
BtOQ

EmY
ADD
(R
JSR
JSR

004537
012746
012746
012746
010600

SFTCNT
ERRCNT

016744

JSR

PRINTF
mov
MOV

006553
007335

000002

MOov
Mov

EnT

000006
007640

ADD
181

8taQ

PRINTF
Mov
MOov
MoV
Mmov

006500
007555
000002

000006
002242
02%4 3%
016744
01721

ENT

CSPNTF

s ,5P

R5,CLRBSN

006452
007555
000002

46 016614

106017

12-1

JSR
(LR
(LR

PRINTE
MOV
Mov
Mov
MOv

000006
002242
023434

016634
016636
016640
. 016644
4«9 016650
<0 016652
016652
016656
016662
016666
016670
01060672
51 016676
52 016702
53 016700
5S4 016712
b} 0le716

ADD

000006
007640

062706
005037
004537
006537

&7 016620
016620
016624
016630

Ent

000004
016720
002162
002160
006531
007335
000002

001412

19:46:56 PAGE

SEQ 0061

016570
016572
016574
&2 16600
63 016604
G4 016610
45

9-FEB-79

APD

INC
JSR
JSR
JSR
8R

SWRPKF ,=(SP)

WRITE

PACK

FuD

#FEMTI8,-(SP)
#2,-(SP)

SP,RO
CSPNTF

#6,5°P

WRTSAW

;SAWTO0TH WRT?

INSG,#SAWEWD
#SAWFWO,-(SP)
#NSG,-(SP)

JYES = TELL OPR

:NO

#2,-(SP)

SP,RO
CSPNTF

#6,5P
FWDFLG

RS ,WRPACK
RS,CVERIFY

;SET CONTROL FOR FWD SAWTOOTH WRITE
JWRITE THE PAC(K
;CALL THE VERIFY ROUTINE

RS,PTIME
#EMT18,#URPKR

sTELL

#WRPKR ,=(S5P)

sTELL

THE MALF

OPR

WRT

TIME

PA(x

REVERSE

#FENTIB,=-(SP)
#2,-(SP)

SP.RO
COPNTF

86,5P

WRTISAYW
33

WNSG, #SAWREY
#SAWREY,=(SP)
#RSG,-(SP)

;SAWTO0TH WRT?
:NO

JVES

#2.,-(SP)

SP.RO

COPNTF
26 ,5P

FUOFLG

;SET CONTROL FOR REVERSE

RS ,WRPA(K
RS,CVER]FY

JURITE THE PACK
cCALL THE VERIFY ROUTINE

BSWRTS

SSELECT

RS ,ENDRD!

THE

TOTALS OF

SAWTOOTH WR!T

ERRORS DETECTED

DRIVE

CIRLMAD RLOV/2 BSHT

MACRO v03.01

SMERE

sON

6 016720

5
6
7
8

9-FEB=-79

0167¢2
016726
016732
016736

9 016740

10 016742

19:66:54 PAGE

Sta 0062

NSO
et

PROGRAR MAIN LOOP

025726
V7777

026322

TO CLEAR THE

THE

CLRBSN:

1%:

PACK

MOV
mov
mov

(nP
BNE

mov
RTS

TEMP BAD SECTOR FILE

R1,=-(SP)

#BSECN,RY
#-1,(R1)e

:SAVE R

sDONE
?

(2P)0,R\

SRESET

°"MARD® ERROR SPOTS

;POINT TO THE 1ST LOCATION
INIT THIS ADDR OF TABLE

#BSECNF R

STORAGE OF

;NO = DO THIS ADDR ALSO
RI

THE

TABLE

(IRLRAQ RLOV/2 BSHT

PROGRAR MAIN LOOP

MACRO v03.01

9-FEB-79

19:646:54 PAGE

SEQ 0063

016744

STARS

O NNy

M '0"""'""t"""'.'.""""'""t"l"".'.""'.""'.'"

:BSVERIFY

STARS

016744

== ROUTINE

ARE

*BAD'

TO READ

THE

PACK

10 FIND BAD SPOTS.

SPOTS

THAT

AFTER 16 RETRYS 10 RECOVER THE DATA WiLL BE ENTERED

INTO A TEMPORY AREA FOR LATER INSERTION INTO THE REAL BAD
SECTOR FILE (UNDER THE OPERATORS CONTROL).

d
-

N = OO~

;;""."l"'"'""'."""'"'0""".."'"'."".'""t"."'

01674¢L
016750

0052%7

016752

005037

000402

016756
016756
016762
016766
016772
016774
016776
017002
017006
017010
017014
017020
017022
017026
017032
017036
017042
017044
017050
017054
017056
017062

002244

(VERJFY:

092244

(OMJER:

010470
011660
023222
002320
010736
002244

017022

007552
000001
000004
000005

JCLEAR THE

PRINTF

#FMTIQ

021719
024700
002356

173000
002322

00000

Mov
MoV
mov
MoV

ADD

11%:

002206
002176

002246

(MP
BEQ
JSR
(LR
(LR
JSR

JSR

FEMTI9,-(SP)

SP,RO
CSPNTE

#6,5P

(ONREAD:

s "CALLED'?

JYES = SKIP SELECT

JNO = SELECT THE
JNONE

AVAI]L.!

CODE

1ST uUNIT

JSELECT THE NEXT UNIT
:ALL DONE
:DRV RDY?

JYES

;'CALLED'?

JYES
JSELECT

THE NEXT UNIT

JNO -

EXIT

NOW

;HERE

FROM

'WRITE'

:NO =

INIT

HARD ERROR

:(LEAR

THE

SP,RO
COPNTF

0 ,SP

#5,INPUT
11%
RS,CLRBSN
SFTICNT
ERRCNT
RS ,RDBDSC
RS, HDHOME

(LR
(LR

#BUF
1 ,BBA
#-2560. ,BMP
TEMPI
R

(MP
BNE

#,1DR
(RD?

MOV
MOV

"CALLED® FLAG

#2,-(SP)

SMCRLF
WMCRLF ,=-(SP)
¥,-(SP)

011766

FLAG

SVERIFY

1$:

EMT

"CALLED®

SVERLIFY,=(SP)

(VFLG
BSVERL
RS ,FIRST
NXTCMD
BSVERL
RS,SELDRY
NXTCMD
RS,LOADED
TEMPO
19
RS ,DRNRDY
CVFLG
108
BSVERS
RS

PRINTF

THE

:GOTO THE COMMON VERIFY (GDE

187
BNE
JSR
JMP
BR
BSVERS: JSR
JMP
BSVERL: JSR
1S1
BEQ
JSR
181
BNE
JMP
10%:
RTS

MOV
MOv
MOV

016720
002162
002160

001101

CVFLG

ADD

010460
011660

0227%7

(LR

Enmt

000006
002244

005001

JSET

BSVERIFY:

006063
007342
000002

076

(VLG
COMvVER

[NC

B8R

. YUP

(OMMAND?
STORAGE

CLEAR THE SOFT ERROR COUNTER
HARD

ERROR

;GET A FRESH (COPY OF

AREA

C(OUNT

THE BAD SECTOR FILE

;PUT THE HEADS OVER CYLINDER O
;POINT TO THE BUFFER FOR READ/WRITE
;SAVE THE W( FOR 20 SECTORS
;START AT HEAD 0
;START

CYLINDER O

;DRIVE - RLOV?

;NO = MUST

AN RL0?

(IRLMAQ RPLO1/2 BSKT
LOOP

MACRO v03.01

PROGRAM MAIN

017172
017176

022701
001101

077600

005737
001476

0023¢2

005757
001401
000205
004537

002244

003541
007555
000002

062706
004537

000006
010642

O—O

10600

(mp

#077600,R1
STREAD

;NO = READ

(RD1:

181
BEQ

TEMPI
STREAD

JON LAST CvbL ... IS
;NO - DO THE READ

ENDRD:

197
8EQ
RTS
JSR

C(VFLG
ENDRD1
RS
RS,PTIME

s *CALLED®?
:NO - PROCEED WITH THE

BNE

ENDRD1:

(=]
o

’»

~
~4

[p¥]

O—-00 000
o[ T
R QS
Y

005737
001001
000614
000205
022701
001677

#150F7,-(SP)

mov

#3,-(SP)

EMT

CSPNTF

MOV
MOV

002540
007335
000002

1%:

OPR ALL

PRINTOUT

DONE

:PRINT

TOTAL

°'SGFT*'

ERRORS

;PRINT

TOTAL

°*MARD®

ERRORS

#3,-(SP)
SP,RO

FHYPHEN,=(SP)

COPNTE

ADD

#6,5P

181

CVFLG

RTS

TRA(K?

#10,5P

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

BNE
BR

IT LAST

:TELL OPR WHICH DRIVE

WFMTTB,#THARD ,ERRUNT
ERRCNT,=(SP)
#THARD,=(SP)
FEMTTB,=(SP)

MOV
MOV
MOV

JSR

TRACK

SP.RO

CSPNTF
#10,SP
#FMT18,HYPHEN

EM1

(L2

THIS

#FEMTIB,=(SP)

EMT
ADD
PRINTF

MOV

00000¢
020142
002244

RS,DRVID

L [o}Y]

ADD

LAST

COPNTF

WFMTTB, #1SOFT,SFTCNT
SFTCNT,=(SP)

PRINTF
MCv
MOV
MOV

000010

;TELL

PRINTF
MOv

Mov

RLOY

TOTALS
JYES - EXIT NOW
;PRINT THE DONE READING TIME

n6,SP

MOV

002160
002725
007435
000003

#MSG, #MDONE
#MDONE
, - (SP)
#MSG,-(SP)
#2,-(SP)
SP,RO

;AT

ADD

JSR

002162
002670
007435
000003

177600

PRINTF
MOV
MOV
MoV
MOV

000010

OO0

010572

012746
012746
012746
010600

013746
012746
012746
012746

324

14-1

SEQ 0064

106017

9-FEB=79 19:646:54 PAGE

RS ,ADDFND

;SEE

1%
BSVERS

JYES
JSELECT

OPR WANTS 10 UPDATE BAD SEC FILE

;'CALLED'?

THE NEXT UNIT

;NO = EXIT

NOW

:HERE TO CHECK THE END Of AN RLOZ

CRDZ:

CMP
BEQ

#177600,R1
(RD1

sRLOZ LAST (vyL?
JYES - CHECK TO SEE

LAST

TRACK

100

CIRLMAQ RLO1V/2 BSET

MACRO v03.01

9-FEB-79

005062

017404
0176410
017415
017422
0176430
0174364

010137
053737
050237
012737
004537
(004537

002174
002322
002174
000014
021570
023264

017440
017444

005777
100030

162534

002174
002210

STREAD: (LR
SRD1:
MOV
BIS
BIS

R?
R1,BDA
TEMP1,BDA
R2,BDA

;START AT SECTOR O ON THIS TRACK
s INSERT THE CYL # INTO DISK ADDR
:ADD THE HEAD NUMBER (0 OR 1)
:ADD THE SECTOR NUMBER

MOv

#READ,FUNC

RS,LDFUNC
RS,WIRDY

: ISSUE THE READ CMD
;WAIT FOR READ TO FINISH

1§17
8PL

a0(s$

sANY ERROR ON THE READ?

JSR
JSR

NXTSEC

;GET

sBR

A READ

PRINTF
MoV
MOv
MOV

»ACRLF
#MCRLF ,=(SP)

000004

162506

002202
002314

ADD
Mov
MOV

86 ,SP

002174
17502
17504
17506
17510
17512
17516
17524

104464
000620
003144
006626
004537
012737

000646

023356
000901

002316

MOV

EMt

READ ONE SECTOR AT A TIME

#1,-(SP)

SP,RO
CSPNTF

80CS,E.DCS
BDA, CHKSEC
ERRSOF1 400, ,MSFER,ERRY
TRAP
TSERCODE
4«00
.WORD
MSFER
.WORD
.WORD
ERRI
R5,ISDRST
JSR

FUNCTION

¢HERE 1F AN ERROR DETECTED ON THE READ ...
;TILL WHOLE TRACK HAS BEEN READ

POR) ot =

ot o

i e

od e ot

= O OO NO VNN = OOV

0176402

sHERE TO READ THE TRACK SELECTED...WILL TRY 20 SECTORS AT A WHA(K
:1F AN ERROR 1S DETECTED, I WILL THEN TRY 10 RECOVER BY READING ONE
;SECTOR AT A TIME. A SECTOR IS DEEMED °'HARD ERROR' AFTER 16 RETRYS.
;ALL BAD SPOTS WILL ENTER A TEMP BAD SEC FILE STORAGE AREA...TO BE ADDED
;70 THE REAL BAD SECTOR FILE AFTER WHOLE PACK HAS BEEN READ.

007552
000001

19:46:54 PAGE

SEQ 0065

NS NAY —

PROGRAN MAIN LOOP

#1,DECNT
ONESEC

;GET

THE

ERROR DETECTED

;TELL OPR ABOUT

;1SSUE A DRIVE

THE ERROR DETECTED

RESEY

TO (LEAR THE ERROR

;START RECOVERY WITH 1 SOFT ERROR DETECTED
RECOVER THE TRACK DATA.,.SLOWLY!

CIRLAAQ RLOY/2 BSFT

MACRO v03.01

9-FEB-79 19:46:54 PAGE

b =

il o ed i

et e

b et

N=OOB®NO
NS W~ OO~
N

NINIAY

25 0176264
26 017632
27 017640

16
SEQ 0C66

A —

PROGRAR MAIN LOOP

SMERE TO SELECT THE NEXT SECTOR ADDR 10 READ FROM ON THIS TRA(K
;HERE 1F NO ERPOR DETECTED ON PREV. READ (MD
062702
022702
001322

0000¢¢
000050

NXTSEC:

SHERE
;OR

005737
001427
005037
062701
0642701
012737

000200
000177
000200

052737
012737
004537
004537
010137
000137

000005
000006
021570
023264
002252
017162

002174
002210

012737
012737
000753

000100
000020

002322
002174

002322

cmp
BNE

THE

1§71
BtQ
(LR
ADD

BIC

002174

Mov

5¢:

#20..R?2

SPOINT TO THE NEXT SPOT ON "HE

SRD1

;NO - DO THE READ

#60. ,R2

TO SELECT

NXTTRK:

002322

ADD

THE NEXT TRACK
CYLINDER.

...

TRALK?

WILL

DO A

SEEX

TEMPI
#200,R1
#7781
#200,BDA

;SET FOR NEXT CYL HEAD O
sPOINT TO THE NEXT CYLINDER
;CLEAR UNEXPECTED JUNK BITS

#SIGN!MK,BDA
#SEEK ,FUNC

JSET
;GET

R1,PRPOS
CONREAD

sSAVE THE
;CONTINUE

MOv

#HEAD , TEWMP]
#SKHS ,BDA

I3 3

TRA(K

TO NEXT

;ON HEAD #1

RS,LDFUNC
R5,WIRDY

TO READ

THE

TEMPI

5¢%

BIS
mMov
JSR
JSR
Mov
JMP

Mov

;END OF

HEAD

NOW?

JNO = SEEK TO NEXT TRACK SAME (YL

FOR A SEEK (MD
THE SEEK (MD

s ISSUE THE SEEK
SWAIT TILL READY

PRESENT POSITION ON DISK
READING THE PA(K

JSAVE MEAD SELECT STATUS

sSET

FOR

:1SSUE

SEEK

THME

TO NEXT

SEEK

TRA(CK

SAME

(IRLMAQ RLOV/2 BSFT

PROGRAR MAIN LOOP

MACRO v03.01

9-FEB-79 19:46:54 PAGE

SEQ 0067

C17642

STARS

M """""""0""'."'.""""'"""""'"'.""""""t'

IMERE TO TRY AND RECOVER THE DATA ON SELECTED
;AT A TIME. SECTOR WILL BE MARKED °BAD' AFTER

017642

STARS

TRACK BY READING 1 SECTOR
16 RETRYS AND NO RECOVERY.

017642
017644
017652
017660
017664

COVONOWNE

L
e

W=DV~

;;""""'""""'""""""""""'.'0"'.""'Q"""""'

005002
012737
013737
050237

177600
002252
002174
002322

002176
002174

012737
004537
004537

000014

002210

005777

162266

053737

100053

021570
023264

ONESEC:
1%:

(LR

MoV
MOV

8IS
BIS

002174
;READ

017737
005237
013737
004537
005737
001423

002316
002174
025252
002312

012746
012746
012746

006250
007335
060002

162256

002202

181

abdCs

020014

062706
000443

000004

020016
020024
020026
020032
020034
020040

022737
001403
004537
000717
004537
004537

000020
023356
0c4400
023356

22%:
23%:

DECNT
BDA, CHKSEC
R5,CKBDSC
HORF ND

21$

NEMT18, #INBSF

# INBSF ,-(SP)

#FEMTI8,-(SP)
n2,=(SP)

ADD
PRINTF
Mov
MOov
MOV
EMT
ADD

¥6,SP
#MCRLF
#MCRLF ,=(5P)
¥ ,-(SP)

21s:

aDCS,E.DCS

MOV
MOV
MOV

EMY

002316

sSTART AT

;SET
:GET
;ADD
sAND

cmMp
BEQ
JSR
BR
JSR

JSR

SECTOR 0 ON THIS TRA(K

THE WC AT 1 SECTORS WORTH
THE CYL # TO START AT
IN THE SECTOR NUMBER
THE TRACK (HEAD O OR 1)

;GET & READ FUNCTION
:1SSUE THE READ

;WAIT FOR READY

:THIS SECTOR READ 0x?
;BE 1F OK - SELECT NEXT SECTOR

IN THIS SECTOR - TRY A MAX OF

PRINTF
Mov

007552
000001

#READ, FUNC

JSR
JSR

JSR
181
BEQ

000006

R2,BDA
TEMP1,BDA

RS,LDFUNC
RS.WIRDY

MOV
INC
MOV

002314

PRPOS ,BDA

SECTOR

MOV

BPL

;ERROR

R2
#-128. 80P

16 TIMES TO RECOVER

:SAVE THE DETECTED ERROR
:COUNT THIS RETRY
;SEE I1F THIS SECTOR IS ALREADY

; THE

BAD

SECTOR

FJLE

:IN THE FILE NOW?
:BR IF ERROR
;TELL OPR SECT IS IN BSF

ALREADY

SP,RO
CSPNTF

N, SP

30%

;DO THE NEXT

#¥16. ,DECNT

;Tégfi

22%

RS, ISDRST

RS, INBAD

R5,1SDRST

SECTOR ON THIS TRA(K

TO MARK

AS A BAD

SPOT:

sNO - ISSUE A DRIVE RESET

AND CONTINUE

JYES - MAKE A TEMP BAD SPOT ENTRY
;RESET THE DRIVE FOR THE NEXT FUNCTION

JHERE TO SELECT THE NEXT SECTOR T0 RECOVER IN THIS TRACK
020044
020050
020052
020056

002316
002162

3%:

1St

DECNT

PRINTF

SFTCNT
NEMTI8, AMSKEC

BEQ
INC

31%

;ANY

DETECTED?

;BR IF NONE THIS SECTOR
:UPDATE THE SOFT ERROR COUNT
;TELL OPR

°'RECOVERED®

CIRLPAQ RLOY/2 BSFT

PRQOGRANM MAIN LOOP

020056
020062
020066
020072
020074
020076
65 020102
020102
020106
020112
020114
020116
020122
020124

000402
004537

020130
020132
020136
020140

005202
022702
002¢00
000644

MACRO v03.01

9-FEB-79 19:46:54 PAGE

17-1
SEQ 0068

002762
007335
000002

MOV
Mov
Mov
MOV

IMSREC,-(SP)
PEMTI8,-(SP)
#2,-(SP)

ADD
PRINTF
Mov
MOov
mMov

#6,SP
IMCRLF
PMCRLF ,=(SP)

000006

007552
000001

EmT
ADD
BR
JSR

000004
023356

30%:

31%:

000050

020142

SP,RO
CSPNTF

#1,-(SP)

SP,RO
CSPNTF

v, ,SP

31%

INC
(mp
BGE
BR

RS, ISDRST

;RESET

R2
#.0. ,R2

;POINT TO THE NEXT SECTOR
;END OF THIS TRA(K?
;YES - BACK TO NORMAL 20 SEC READS
:NO - READ THIS SECTOR

NXTTRK
1%

THE

DRIVE

STARS
AL

ADDFND

ROUTINE

'WRITE'

ASK

OPR

COMMAND OR THE

BAD SECTOR FILE ON THE

$TARS

020142

RN R

THE

NN R

NEW BAD

'VERIFY'

PACK.

SPOTS

FOUND BY

THE

COMMAND IS TO BE ADDED TO THE

"""'t.""t""""'t"t"l"l".""t."'I'.."..ttt."l'l""'

020142

020146
020150
020154
020160

020164
020170
020172
020174
020200
020206
020212
020216
020220
020220
020224
020230
020234
020236
020240
020244
020250
020254
020256
020260
020264
020270

005737
001172
004537
004537
012701
005737
001561
005002
005037
012737
004537

002372

ADDFND:

021710
023066
025726
002160

013470
000020
013750
013474

013466

100515

002314
002314

#BSECN,RI

ERRCNT

ADDFEX

MOV

JSR
151
BEQ
PRINTF
MOV
MOV
MOV
MOV

1%:

JHERE

INSWSEC,
- (SP)

;GET

A FRESH COPY OF

THE BAD SECTOR FILE

:GET A CORE COPY OF THE °'FIELD' FILE
;POINT TO THE NEW ENTRY TABLE
;SEE IF ANY NEW BAD SPOTS
SJEXIT 1F NONE DETECTED
;CLEAR AN INDEX INTO BAD SECTOR FILE
;START

THE

1ST

;SETUP THE LIMIT

SECTOR

‘FIELD®

;SET R2 T0 POINT INTO THE FILE
;SEE IF FIELD FILE EXISTS
;BR IF OK
;TELL OPR THAT NO ‘FIELD' FILE EXISTS

NFMT18,-(SP)
#2,-(SP)

CSPNTF

"6 ,5P

RS ,NEWBSF
TEMPO
1%

BNE
BR

ADDFEX
(R1),CHKSEC
(HKSEC

MOV
151
BM!
10O SEE

R2
SECNUM
#16.,SECMAX
RS ,BSFOK
BSFOKE
1%
#FMT18, ANSWSEC

THE PACK?

:NO - EXIT NOW

SP,RO

EMT
ADD
JSR
181

000006
020614
002320

;ALLOWED TO UPDATE

RS ,RDBDSC
RS,RDFIELD

JSR
JSR
MOV
187
BEQ
(LR
CLR

003453
007335
000002

005737

ACCESS
ADDFEX

TST

BNE

4%
I1f

ENTRY

ALREADY

SASK IF
;WAS A

TIME TO MAKE A 'FIELD'

'FIELD'

;BR IF YES
sNO - EXIT
;GET

FILE

BUILT?

FILE

AN ENTRY

;DONE?

:YUP = UPDATE

REST

EX]STS.. -SHOULDN'T

°‘FIELD®

FILE

CIRLMAD RLOV/2 BSFT

PROGRAM MAIN LOOP

83
8¢ 020272
85 020276
86 020302
g7

004537
005737
001106

MACRO v03.01

9-FEB-79 19:46:54 PAGE

SEQ 0069

025252
002312

JSR
151

011137
062737
000337
000241
006137
103002

005237
011137
042737
005027
032711
001402
005237

013460
000177
013460

TO ASK

BIC
SWAR
e
ROL

013460

013460
013462
177700
013464
00010C

013464
013464
002462
013462
003101
013460
002447
006103
007232
000010

013462

118:

2%:

002320

MOV

MOV
MOV

EMT

ADD

005024

005737
001416

BCC
INC
MoV
BIC
(LR
BIT
BEQ
INC
PRINTF

MOV
Mov
MOV
MOV
MOV
MOV
MOV

000022

177777

OPP

MoV

013460

10022%:

GMANIL
EMT
B8R
.WORD
.WORD
.WORD
.WORD
157
BEQ

RS,CKBDSC

JWELL...

:YES = LOOK AT THE NEXT ENTRY

HDRF ND

BNE
;HERE

020304
020310
020316
020322
020324
020330
020332
020336
020342
d¢0250
020354
020360
020362
020366
020366
020372
020376
020402
020406
020412
020416
020422
020426
020432
020434
02043%6
104 020442
020442
020444
020446
020450
020452
020454
020456
105 020456
106 020462

17-2

THIS ENTRY

(R1),BSFCYL
#177,BSFCYL
BSFCYL

BSFCYL
11%
BSFCYL
(R1) ,BSFSEC
#177700,BSFSEC
BSFHD
#100,(RY)

FIND

TO BE

IN LIST

ADDED

ALREADY?

TO BAD

SEC

FIJLE

;GET DA FOR CyL #
;CLEAR HEAD & SECTOR »

sADD IN LOW ORDER CYL #
sGET DA FOR SEC VALUE
:CLEAR CYLINDER # & HEAD
;START AT MEAD 0
sHEAD 1?

:NO = ITS HEAD 0

BSFHD
JPOINT T0 HEAD 1
FFEMT16,#NEWENT
,#CMSG,BSFCYL ,#SMSG,BSFSEC, #HMSG,BSFHD
BSFHD,-(SP)
#HMSG,
- (SP)

BSFSEC,-(SP)
#SMSG,-(SP)

BSFCYL,-(SP)

#CMSG,-(SP)
NEWENT
- (SP)

FFEMTI6,-(SP)
#10,-(SP)

SP,RO
CSPNTF

#22,SP
ABSMSG,TEMPO,177777
,NO

CLGMAN
10022%
TEMPO
T$CODE

;ASK

OPR

TO ENTER

ABSMSG

177777

TEMPO
3%

;BR If NO
:NO = GET THE NEXT

ENTRY

CIRLMAQ RLOV/2 BSFT

|o W I

R el LNTo JW. P NV VT

VeY. ENT, SV ¥ FVT VPN

PROGRAR MAIN LOOP

MACRO v03.01

9-FEB-79

19:46:54 PAGE

SEQ 0070

;HERE

TO INSERT THIS SPOT

020464
020470
020472
020476

005762
062702
000772

000004

020500
020506
020512

013762
011162
042762

0134690
026444

020520
020522

005721
000656

3%:

020524
020530

006537
004537

4%:

020534

000205

ADDFEX:

100403

026442

177600

21%:

157

BM]
ADD

22%:

MOV
BiC

JHERE

:SEE IF A FREE SPOT
:BR IF FOUND A FREE ENTRY

21s

;AND TRY AGAIN

10 UPDATE

TS1

THE POINTER
(R1)¢
1%

JSR
JSR

RS,COPY
RS ,WRTBSF

TO EXIT
RTS

;POINT

THE

ENTRY

SLO7T

BSFCYL,BSFILE(RZ) ;INSERT THE CYL # INTO FILE
(R1) ,BSFILE+2(R2) ;ADD THE SECTOR NUM & HEAD
#177600,BSFILE+2(R2) ;CLEAR CYL # BITS

MOV

026444

BAD SECTOR FILE

BSFILE(R2)
22%
46 ,R?

026442

IN THE

THIS PHASE
RS

INTO THE TEMP BAD SEC TABLE
;UPDATE THE POINTER
sPROCESS THIS ENTRY

;COPY UPDATES TO WHOLE FILE
;ASK OPR IF TIME TO UPDATE PACK
JEXTT

CIRLRAD RLOYV/2 BSFT

PROGRAR MAIN LOOP

MACRO v03.01

9-FEB-79 19:46:54 PAGE

SEQ 0071

020536

STARS

LAl aRV_ 1,V

;;""""""""""."""'"""".""""'.I"'"."".""

;HERE TO UPDATE THE REST Of THE °"FIELD' IMAGE FILE
:THIS ROUTINE USES CONTENTS OF °"SECOLD' AS THE POINTER TO THE START OF

g?iggTE

020536

AREA

'BSFILE’

TME

BN 2O 0O

POPRONININ)
= ct et et et el o0 b et

NS WA= OO0~

.'""""'"""'t""""'"""""""'.C"'."""""'0"'."

020536
020540
020562
020544
020550
020556

(OPY:

013472
002000
002320

020562
020566
020570
020574
020576
020602
020604

000766

020606
020610
020612

012603
012602
000205

012000
026442

002320

1%:

[ [0]"]

R2,=-(SP)

(LR

MOV

MOov
ADD

2%:
3%

002320

:SAVE R?2

;SAVE R3
sPOINT

TO THE

SECOLD,R3

;GET

R3,TEMPO

;TEMPO =

#4256, ,TEMPO

#2560.¢2,R2

THE

1ST ADDR

ADDR OF

THE

IN BSFILE

JEND OF

1ST

ADDR OF

THE

SECTOR PAIR

BSFILE?

4%
(R3),BSFILE(RZ2)
(R3)+,(R2)¢
R3,TEMPO
1%

JYES
;COPY WORK SPACE 10 WHOLE 'FIELD®
sUPDATE POINTERS
;DONE?
JYES = RESET WORK SPACE POINTER

MOov
MOV
RTS

(SP)+ RY
(SP)+ ,R2
RS

JRESET
JRESET
EXIT

i 3

STORAGE

WORD SPACE

:GET # WORDS PER SECTOR PAIR

BEQ
MOV
(MP
(Mp
8tQ

B8R
“%:

R3,=-(SP)

sAND CONTINUE
R3
R?

FILE

AREA

CIRLMAQ RLOY/?2 BSHY

PROGRAR MAIN LOOP

MACRO v03.01

9-FEB-79

19:46:54 PAGE

SEQ 0072

02061¢

STARS

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

;NEWBSF
020614

-- ROUTINE

FILE

STARS

THE

TO ASK OPR

AREA CAN'T

TIME

TO (REATE

RECOGNIZED

A BAD SECTOR

AS A BAD

SECTOR

FILE.

PIN) =

d cd

b et ot

b ot ed

= OOVWNO
VN WA~ OV

~NO WV

:;'."""'t"l"""""l"""'."""'Il"""t'ttt't"'t"t't

020614
020616
020616
020620
020622
020624
020626
020630
020632
020632
020636
020640
020644
020650
020654
020660
020662
020666
020670
020672
020674
020676
020702

020704
020704
02070€
020710
020712
020714
020716
020720
020722
020724
26 020724
020724
020726
020730
02073¢
020734
020736
020740
020742
020744
27
020744
020744
020750

010146

NEWBSF:

MOV

000404

GMANIL
EMT
BR
.WORD
.WORD

177777

.WORD

106043

002320
000120
003012
005737
001502

.WORD

002320

026442
013472

177777

030442

10023%:

JHERE

1s:

118:

026442

001020

000406
002366
000022
005331

077777
000000
orrrez

013746
0613746

10025%:

002364
002366

13%:

MBLD

1771777

TEMPO

;BR

THE BSFILE

JEXIT

STORAGE

#BSFILE.R1

FOR BUILDING A

;SETUP A POINTER

FILE

THE

187

SN1

NUMBER?

GMANID
EMT

ABSSNL,SN1,0,77777,1,77777
,N0 :GET
CSGMAN

(R1)

13¢

sALREADY HAVE

A SERIAL

JYUP = TELL OPR WHAT

.WORD

100249
SN1
T$CODE
ABSSNL

.WORD
.WORD

TSLOLIM
TSHILIM

GMANID
EMT
BR
.WORD
.WORD

ABSSNH,SN2,0,77777,0,77777
,N0 :GET
CSGMAN
10025%
SN2
T$CODE

LWORD

104043

R1, SECOLD
;POINT TO THE START OF
l-l,(Rl)*
;lNlT A LOCATION
#BSFILE+1024.,RY ;DONE??
11%
sNO - PROCEED TO INIT
#BSFILE,RY
;GET START AGAIN
(R1)+
;CLEAR
(R1)e¢
(R1)+

BR
.WORD
.WORD

10024%:

; SAVE

MOV
MOV
(mp
BNE
MoV
(LR
(LR
(LR

BNE
12%:

000406
002364
000022
005272
077777
000001
077777

INIT

MCv

CLR

002364

104043

1S7

BEQ

.~(SP)

HBLD TEMPO, 177777 NO
CSGHAN
10023%
TEMPO
T$CODE

SERIAL

# LOW S

SERIAL

# HIGM S

77777

.WORD

ABSSNH

PRINTF
MOV
MOV

WFMTISN,#(ART,SN2,SN!
SN1,=(SP)
SNZ,=(5P)

.WORD
LWORD
.WORD

'UPDATE'

77777
TSLOLIM
TSHILINM

AREA

CIRLMAO RLO1/2 BSFT

PROGRAM MAIN LOOP

020754
020760
020764
020770

020772
020774
29 021000
021000
021002
02100¢

MACRO v03.01

9-FEB=-79 19:46:54 PAGE 20-1

SEQ 0073
002427
007420
000004

Mov
MOV
MoV

MOV
EMT

000012

ADD

GMANIL
EMT

104043

000404
002320
000120
005660

B8R

021006
021010
021012
021014
021014
021020
021022
021030
021036
021042

005737
001731
013737
013737
005237
000205

002320

021044
021050
021052

005037
012601
000205

002320

177777

002364
002366
002320

10026%:

026442
026444

2%:

#CART ,=-(SP)
FEMTISN,-(SP)
#4,-(SP)

SP,RO
COPNTH

#12,SP

VALSN,TEWPQ,177777.NO
CSGMAN

10026%

.WORD
.WORD
.WORD

TEMPO
T$CODE
VALSN

1581
BEQ
MOV
MOV
INC

TEMPO
12%
SN1,BSFILE
SN2 ,BSFILE+?
TEMPO

LWORD

177777

R1S

(LR

TEMPO

RTS

MOV

(SP)+ ,R1

JSEE IF TYPED IN SERIAL NUMBER [S Ok
sNO - GET A NEW SERIAL NUMBER
JSAVE THE SERIAL NUMBER LOW S
sAND SEREIAL NUMBER HIGH 5
;INDICATE FILE BUItY = 1 SECTOR

sINDICATE NO FILE BUILT

CIRLPAD RLO1/2 BSF1T
PROGR
AN MAIN LOOP
1

MACRO v03.01

9-FEB-79 19:46:54 PAGE 21
SEQ 0074

02105¢

STARS

M 'Il""""""""""""'.".'l".""."""""'."t".'l'

BSHAKE == ROUTINE TO CREATE A

'FACTORY'

'FIELD®

BAD SECTOR fiLE.

THIS ROUTINE ABORTS IF °'UPDATE' ACCESS TO THE PA(K IS DENIED
THE *FACTORY' FILE WILL CONTAIN ONLY THE DUMMY HEADERS...NO

STARS

021054

ENTRYS CAN BE PUT

IN THIS AREA!

0O~y

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

02105¢
021054

003050
007342
000002

BSMAKE:

PRINTF
MoV
MoV
MoV

= O OP®NO N

PORONUND
b o ed el et ed ed e
s

NN —=OO

MOV

021074
021100
0211064
021110
021112
021116
021122
021126
021132

062706
004537
000137
000404
004537
000137
004537
005737
001403

021140

000764

021142
021146
021152

004537
005737
001414

010642
002372

021156
021160
021164
021170

012746
012746
012746
010600

003747
007335
000002

021174
24 021200

26 021204
021204
021206
021210
021212
021214
021216
021220
021220
021224

021226
021232
021236
021236
0212642
02124¢
021252

104017
062706
000137

EMT

000006
010460
01166C
010470

011660

023222
002320

ADD

BSMKS:

BSMKL:

1%:

PRINTE
Mov
MOv
MOv
MOv

EMT

ADD

10%:

002320

004537
004537

021710
023026

012746
012746
012746
010600

006305
007342
000002

JSR
157

BtaQ

000006
011660

005737
001732

151

BEQ
JSR
BR

010736

104043
000404
002320
000120
006575
000001

JSR
JMP
BR
JSR
JMP
JSR

10027%:

;TELL OPR WHATS HAPPENING

FEMTI9,-(SP)
#2,-(SP)

SP,RO

(SPNTF
v6,SP

RS,FIRST

NXTCMD
BSMKL
R5,SELDRV
NXTCMD

RS,LOADED
TEMPO
1%
RS ,DRNRDY
BSMKS
RS,DRVID
ACCESS
10%

NFMT18 #DENIED
#DENIED,-(SP)

;YES

sSELECT THE NEXT UNIT

JTFLL OPR WHAT DRIVE SELECTED
sALLOWED TO UPDATE PA(K?
;YES - PROCEED
:NO - TELL OPR

FEMT18,-(SP)
#2,-(SP)

SP.,RO
CSPNTF

#6,5P

THISDRV,TEMPO,
1 .NO

JSR

PRINTF
MOv
MOv
MOV
MOV

DONE

;DRV RDY?

GMANIL
EMT

TS1

AVAIL.!

JSELECT THE NEXT UNIT

sALL

NXTCMD

BR
LWORD
.WORD
.WORD
.WORD

1ST UNIT

sSELECT THE

:NONE

JMP

BEQ
11%:

NEMT19,#BUILD
#BUILD,-(SP)

;QUIT

NOW

CSGMAN
10027%
TEMPO
T$CODE

{HISDRV

TEMPO
BSMKS

RS,RDBDSC
RS ,RDFACT
FEMTI9, #CKFACT
NCKFACT,=(SP)

FEMTI9,-(SP)

¥ ,-(SP)

SP,RO

;RE-SELECTY

;GET

NOT

THIS DRIVE

A FRESH COPY OF

;THEN A (ORE

IMAGE

THE

°'BAD SEC

FACTORY

;TELL OPR CHECKING FACT FILE

FiLE’
FILE

CIRLAAQ RLOY/72 BSHT

PROGRAR MAIN LOOP

02125¢
021256
33 021262
34 021264
35 021270
36 021276
37 021302
38 021306
39 021310
021310
021314
021320
021324
021326
021330
40 021334

6
62
63

104017

062706
005002
005037
012737
004537
005757
001013
012746
012746
012746
010600

106017
062796
000426

MACRO v03.01

9-FEB-79 19:46:54 PAGE

SEQ 0075
EMIT

000006

0134/0
000020
013750
013474

CLR
(LR

013466

Mov

JSK
181

BNE

PRINTF
Mov

006242
007555
000002

MOV
MOV
Mov

000006

12%:

003400
007555
000002

1O BUILD A DUMMY

ADD

002320
002320
020536
015122

0022390

ENTRYS!

PRINTF
MoV
MOV
MOV
Mov

000006
020614

#NMSG, #OK
#0K,=(SP)
#NSG,-(SP)

SP,RO
(SPNTF
¥6,5¢
2%

ADD

r6,5°P
R2
SECNUM
#16.,SECMAX
RS ,BSFOK
BSFOKF
129

JSR
1S1
BEQ

MOV
JSR

JSR

;POINT

TO 1ST WORD

;START AT
;STOP AT

1ST

[N CORE

SECTOR PAIR

THIS

SECT

PAIR

IMAGE

IN F]LE

;SEE IF ANY RECOGNIZED ‘FACTORY®
JWELL???

¢NO - ASK |F TIME TO MAKE
sMSG TO OPR 'FOUND'’

FILE

ONE

#2,-(SP)

EMt

SHERE

021336
021342
021346
021352
021356
021356
021362
021366
021372
021374
021402
021406

CSPNTE

ADD

CONTAIN ANY

65 021336

21-1

:JUMP OVER BUILD CODE
‘FACTORY'

#MSG, INHWSEC
INHWSEC ,-(SP)
#MSG,-(SP)

FILE

SO AT

sTELL

OPR

;ASK

LEAST

THAT

ONE

EXISTS...WwiLL

‘FACTORY'

EXISTS

N2 ,=(SP)

SP,RO
CSPNTF

#6,S5P

RS ,NEWBSF
TEMPO

TEMPO,NEWAC
F
RS, COPY
RS ,WRTBSF

TIME

TO BUILD

ONE

:DID 1 MAKE A DUMMY FILE?

:NO - CHECK ON THE
;SET FACTORY FLAG

°‘FIELD'

FILE

;MAKE THE WHOLE ‘FACTORY' FILE
JASK OPR IF TIME TO UPDATE PAC(K

NOT

CIRLAAD RLOY/2 BSHT

ODO®~NO
W

—
)
——

PRNV
1, V)

-—

— OV~

PLNV
1, G

PROGRAR MAIN LOOP

MACRO v03.01

9-FEB-79 19:46:54 PAGE

;HERE
021412
0214616
021616
021422
021426
021632
021434
021436
021642
021444
021450
021656
021462
021466
021470
021470
021474
021500
021504
021506
021510
021514

004537

012746
012746
012746
010600
106017
062706
005002
005037
012737
0046537
005737
001013
012746
012746
012746
010600
106017
062706
000423

021516
021516
021522
021526
021532
07° 334

023066

2%:

006344
007342

000002

000020
013750
013474

CLR

013466

MoV

JSR
151
BNE

PRINTF
MoV
MOV
MOV
MCvV

EMT

000006

ADD

21$:

020536
015122

3%:

21 021564

000137

021112

|
1
!

FILE HAS TO BE BUILT

RS ,RDFIELD

SEMT19, #CKFLD
#CKELD,=(5P)

;GET A CORE

°'FIELD® FILE

CSPNTE

#6,5P

R
SECNUM
#16.,SECMAX
RS ,BSFOK
BSFOKF
218
#MSG, #OK
#OK,-(SP)
#NSG,-(SP)

;START AT 1ST WORD IN BUFFER
:AND 1ST SECTOR PAIR OF FILE

;SETUP THE LIMIT FOR SEARCH
;POINT TO A VALID AREA
;FIND THE °‘FIELD' AREA?

:NO - ASK
;TELL OPR

IF TIME
'FOUND'

TO MAKE
FILE

ONE

#2,-(SP)

SP,RO
CSPNTF

¥6,SP

PRINTF
MOV
MOV
MOV
MOV

AMSG, INSWSEC
#ANSWSEC,-(SP)
#MSG,-(SP)

;TELL

JMP

THE

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

sPROCEED

JSR
1§17
BEQ
JSR
JSR

IMAGE OF

sTELL OPR CHECKING FOR FIELD FILE

ADD

005737
001404
004537
004537

A "FIELD"

SEQ 0076

EMT

000006
020614
002320

021542
021546
021552
021554
021560

|
1

JSR
PRINTF
Mov
MOov
MOV
MOV
ADD
CLR

006242
007555
000002

003453
007555
000002

EMT

000006

013470

TO SEE

OPR NO

‘FIELD'

FILE

#2,-(SP)
SP.RO
CSPNTF

#6,SP

RS ,NEWHSF
TEMPO
6%

:ASK OPR ]F TIME TO BUILD A FILE
;BUILT A FILE?
:BR If NO

RS,COPY
RS,WRIBSF

;COPY

BSMKS

SSELECT THE NEXT UNIT

;ASK

'FIELD'

OPR

TO ENTIRE FILE

TIME

TO UPDATE

PACK

CIRLMAQ RLOV/2 BSFY
10 LOAD

FUNCTION

MACRO v03.01

9-FEB~79 19:46:54 PAGE 23

[ A W) &

= OV

~NO VNN
—

-—

.SBTTL

ROUTINE

SEQ 0077

TO LOAD FUNCTION

021602
021602
021604
021606
021610
021616
021624
021632
021640
021646
0216564
021662
021670
021676

O~~~

021570
021574
021600

— PN

s CALL
JSR
RS,LDFUNC
ALL INFORMAT!ON MUST BE SET UP IN DRIVE BUFFER

OO
O\ -

OOV

~NC

N NP
—

ROUTINE

002200

000200

021706
021706
021706

TO BUFFER

LDFUNC:

MOV

DCS,R3

#BI117,(R3)
132

;CAN WE 1SSUE COMMAND?
;YES, GO ISSUE COMMAND

ERRSF

200. ,PRGER

;THIS ERROR SHOULD NEVER PRINT

106421

000310
003556
017763
013763

013763
013737
053737
052737
062737
013763
042763
000205

062777
000002

811
BNE

TRAP

.WORD

160372
002174
002176
00221C
002232
000201
002000
002212
000200

000002
000004
000006
002212
002212
002212
002212
000000
000000

021700

;R4 HAS POINTER

000100

160272

1%:

TSERCODE

PRGER

MOV
Mov
MOV
MOV
B1S
B1S

aBBA ,BA(R3)
BDA,DA(R3)
BMP ,MP(R3)
FUNC,BCSADR
DRSEL ,BCSADR

Mov

BCSADR,CS(R3)

:LOAD

RTS

JEXLT

BIC

;LOAD BUS ADDRESS REGISTER
;LOAD DISK ADDRESS REGISTER
sLOAD MULTI-PURPOSE REGISTER
:GET FUNCTION
;SET DRIVE SELECT BITS
#CRDY!DROY ,BCSADR
:SET CRDY & DRDY IN [MAGE

#0P] ,BCSADR

#CRDY,CS(R3)

.SBYTL
BGNSRY

INTERRUPY
INTR1

INTRY:

BIC

ENDSRV

RV}

CSR FOR DRIVE

200

.WORD

Bl1C

L10012:

:GET

SERVICE

- VERY

FINTEN,RDCS

JWE'RE CLEAR BIT 10 FOR DRIVE

CSR

: ISSUE FUNCTION
SHORT!

7-4 (OKAY?)

9-FEB-79

021710

NOWVNEBWNN—=OOVO~NIWVN

RS 1,V ] ,01 , 5] VT WY U C R
DSy

BAD SECTOR FILE ROUTINE

:;'l".""""""""""""""".""'I"'"."'I"""l""

;ROUTINE TO RECOVER BAD SECTOR FILE AND SAVE IT FOR
: COMPAR]SON UPON ERROR ON READS/WRITES.
WE WILL ONLY
;RESERVE SPACE FOR 16 BAD SECTORS PER DRIVE.
;WE WILL ISSUE A DRIVE RESET FIRST, READ HEADER, POSITION
;7O LAST TRACK (CYLINDER 255, SURFACE 1) AND READ IN
:THE FIRST SECTOR FOR FACTORY BAD, AND THE 20TH FOR
;F1ELD BAD SECTORS.
R& WILL CONTAIN THE BUFFER POINTER
710 THE DRIVE WE WANT 10 READ

SCALL

STARS

JSR

023356
000010
021570
023264
160232
017737

021756
021760
021762
021764
28 0217606

104463
000764
003242
007114
000137

30 021772

016300

021776
022004
022006
022012
022016
022020
0220264
022030
022032

022036
0220644
022052
022056
022062
022066
022070
022076

022076
022100
022102
022104

022737
001005
043700
012701
000404
043700
012701
160001
010137

0527
0127
0045
0045
0055
100
017 7

1044
000776
003242
007114

1602264

002210

21%:

002202

MOV
MOV
MOV

JSR
MOV
JSR
JSR
187

000006
000001

22%:

002264
077600
002270
177600

002174
000025
000006
021570
023264
160112
1601064

21%:

25%:
002174
002210

RO,~-(5P)

:SAVE REGISTERS

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

;

RS, ISDRST
#RDHOR ,FUNC
R5,LDFUNC
RS,WIRDY
a0(Cs

;RESET THE DRIVE
;READ HEADER TO FIND POSITION
:.ON
DISK

.WORD

500

TSERCODE

.WORD

MHDER

JMP

MOV
CMp
BNE
B1C
MOV
BR
BIC
MOV
SuB
MoV
BIS
MOV
JSR
JSR

TS1

002202

;ERROR DETECTED?
22%
:NO
a0CS ,E.DCS
:YES = SAVE THE RL(S STATUS
500.,MHDER,ERR?

.WORD

002246

BP.
MOV
ERRHRD
TRAP

023014

RS,RDBDSC

RDBDSC: MOV

021750

40
41
42
43
44
65
&6
&7

STARS

21
32
33
34
35
36
37
38
39

19:46:54 PAGE

SEQ 0078
.SBTTL

DWW —~OOVO~NO
VS

N
=

CIRLMAQ RLO1/2 BSFT
MACRO v03.01
BAD SECTOR FILE ROUTINE

8PL

MOV

ERRHRD
TRAP

.WORD

ERRZ2

;FORCED EX]T

MP(R3),RO
;GET HEADER AND CALCULATE
#1,1DR
;RLO2 TYPE DRIVE?
23
;JUMP IF RLOZ
CYLMSK,RO
JHERE FOR RLO1
#77600,R1
25%
(MSK,RO
sHERE FOR RLO?
#177600,R1
RO,R1
R1,BDA
#SKHS!SIGN!'MK
,BDA
FSEEK, FUNC
- RS,LDFUNC
;SEEK TO THE BAD SEC FILE CYLINDER
RS,WIRDY
;WALT FOR DONE

FDIRS

;ERROR DETECTED?

aD(S,E.DCS

YES = SAVE

26%

510.,MHDER,ERR?
TSERCODE

510

MHDER

ERR?

:NO

THE

RLCS STATUS

CIRLMAQC RLO1/2 BSFT

BAD SECTOR FILE ROUTINE
48 022106
&9

50
51
52
53
56
55
56

022112
022120
022124
022130
022134
022136
022144
02214¢
022146
022150
022152
57 022154
59 022160
60 022164
61 022170
62 022176
63 022200
64 022204
65 022206
66 022214
67 022216
68 022222
69 022224

MACRO v03.01 9-FEB-79 19:66:54 PAGE 24-1

000137

023014

012737
004537
004537
005777

000610
021570
0232¢4
160044

100011
017737
104463
001010
003242
007114
000137

016300
042700
022737
001007
022700

160036

002210

002202

000006
000077
000001

27%:
002246

077700

71 022240

73
764
75
76
77
78
79
80

022246
022252
022256
022262
022266
022272
022276
022300

005037
005037
005037
013702
012700
012722
005300
001374

002326
002320
002316
002234
000176

82
83
86
85

022302
022306
022312
022316

013702
012700
004537
004537

002234
000031
021570
023264

87 022322
88 022326

005777

157652

90 022330
91 022334

004537
062737
005737
001424
022737
001024
022737
001351

023356
000004
002326

002174

000001

002246

077750

002174

012746
012746

003426
007535

92
93
94
95
96
97
98

022342
022346
022350
022356
022360
022366
022370
022370
022374

100065

077700

002174

300%:

177700

177700
177400
00001¢

002174
002176
002210

®ov

SROH
, DR
FUNC

JSR
JSR
151
BPL

555%:

4%:

520

520.,MHDER,ERR?

;FORCED EXIT
;READ THE

HEADER ON

THIS CYLINDER

;ERROR DETECTED?

:NO

sYES - SAVE

THE ERROR STATUS IN RLCS

TSERCODE

.WORD
.WORD
JMP

MHDER

ERR?2
9%

;FORCED EXIT

MOV

MP(R3),RO
#77,R0

:NO ERROR - GET THE HEADER WORD
;CLEAR THE SECTOR BITS FROM HEADER WORD

BIC

CMpP
BNE
cmp
BNE
MOV
&R
CmMp
BNE
MOV
MOV
MOv

#1,TDR

;RLO1?

#77700,R0

JHERE FOR RLO1

300%

sNO - JUMP FOR RLOZ

= LAST

#77700,BDA

#177700,R0

sHERE FOR RLOZ2 - LAST

555%

21
#177700,BDA
#-256. ,BMP

#READ, FUNC

TEMP3

TEMPO
DECNT

BSECPT ,R2

sREAD

sMANUFACTURING/FIELD

1S1

abdCs

;WAS

SYES

JSR

RS, ISDRST

sNO - RESET THE DRIVE
JNEXT SECTOR

PRINTF
MOv

MOV

#1,TDR

400%
#77750,BDA
4%
MEMTIB, #SWSEC
#SWSEC,-(SP)

#FMT1B,-(SP)

SWITCH

ENTRYS DETECTED
SINITIALIZE LIST TO ALL 1°'S

;WALT

TEMP3
5%

FILE

;CLEAR THE COUNT OF

JSR
JSR

BEQ
(MP
BNE
(MP
BNE

(511.,)?

DATA FUNCTION

;GET LIST TO STORE

#4,BDA

;00 A 1 SECTOR READ

BSECPT,R2
#25. ,RO
RS.LDFUNC
RS.WIRDY

ADD
181

TRACK

:NO = TRY AGAiN

;126 ENTRIES

MOv
MOV

TRACK?

;NO - TRY AGAIN
JYES = SET FOR A READ (MD

213

#126.,R0
#-1,(R2)+
RO
11%

MOV
MoV
DEC
BNE

BPL

41%:

27%

TRAP
.WORD

MOV

11%:

aD(sS

aD(S,E.DCS

(LR
CLR
CLR

177777

RS,LDFUNC
RS,WIRDY

Mov

ERRHRD

023014

001245
012737
000406
022700
001236
012737
012737
012737

70 022232

26%:

JAP

SEQ 0079

sINIT ENTRY 10 -1
SEXIT IF STORAGE INITED

;25 ENTRIES

: 1SSUE THE READ CMD
TILL

THE

SECTOR

READ

READ GOOD?

sMANUFACTURING OR FIiELD BAD
sMANUFACTURING

sRLOT=Y

;MUST BE AN RLO?2

JEND OF FACTORY FILE?
sNO - READ NEXT

SECTOR

TELL OPR NO ‘FIELD' FILE ON PALK

CIRLMAQ RLOY/Z2 BSFT
MACRO v03.01
BAD SECTOR FILE ROUT INE

022400
022404
022406
022410
99 022414

190

——

—

i wld — — —

)

il ——d ——

D ol

—

——

)

D ol

D el

B ol

£ MU AN AN W N R AN AN NN NI NI N VPPN NI N = bttt et et et 2 cd O
OOV
N VL WN—=OOVONOWVEWN
OO0V
WVNS NN =00

101
102
103
104
105
106
107
108

022420
022426
022430
022436
022440
022442
022450
022452
022452
022456
022462
022466
022470
022472
022476
(22502
022506
022512
022514
022516
022520
022522
022526
022530
022532
022534
022540
022542
022546
022552
022556
022560
022564
022566
022574
022600
022606
022614
022020
022626

012746

010600
106017

001320
012746
012746
012746
010600
104017
062706
000137
017701
005037
005721
001005
005721
0v. 9%
005257
000401

000006
022702
077724

5%:

177750

002174

400%:

002174

177724

3%:

013452

002316
002324
002322

006037

002322

000241

103003

022642
022644
022646
022652
022654
022656
022662

005737
001037

100000

002322
002324

177700
002322
177377
002324
002324
002324

ADD

#6,5P

(mp
BR
CHp
BNE
BR
ctmp
BNE

PRINTE
MoV
Mov
MOV
MOv

EMT

157500

005237
012137
000337

100446

55%:
56%:

000006
022762

002322

#2,-(SP)

JMP

002174

022121
012137

Mov
MOv

Ent

003351
007335
000002

31%:
32%:
1%:

002322
002322

1118

#177750,8DA
4%
419

BOA,#17772¢4
4%

FEMTI8, #HWSEC
FHWUSEC ,-(SP)

END OF

MANUFACTURING BAD

;AT END OF FIELD BAD FOR RLO?
:NO GO BACK FOR NEXT
;PRINT 'FIELD' ERROR
;AT END OF MANUFACTURING BAD

:NO, GET THE NEXT SECTOR PAIR
;TELL OPR NO 'FACTORY' FILE ON PA(K

#FENT18,-(SP)
#2,-(SP)

SP,RO
CSPNTF

MOV

aBBA,R1

:START

(LR
1S1
BNE
1571
BNE
INC
BR
187
cmp

MOV

BM]
INC

SWAB
cLc
ROR
BC(C
BIS

MOV
MOv

BIS
DEC
BNE

2%:

BOA,#77724
55 $

;EXIT & HEADS HCME

NOSNUM

(R1)+

318

(R1)+

329

NOSNUM

328

(R1)+
(R1)+,(R1)
(R1)+,TEMPI

DECNT
(R1)¢,TEMP?
TEMPT

TEMPI
111%
#BIT15,TEMPIY
TEMP1, (R2)
TEMP2, TEMPI
177700, TEMPY
TEMP1, (R2)
#177377,TEMP2
TEMP2
TEMP?

TEMP2, (R2) ¢

L]ST

;CLEAR THE FOUND SERJAL NUMBER FLAG
.SEE IF A SERIAL NUMBER PRESENT

;YUP = SN WORD 0 >0

¢NO ... SEE IF SN WORD 1 =0
;0K - SOME SERIAL NUM PRESENT
:NO - SET THE ''NO SERIAL NUMBER'' FLAG

;SKIP OVER THE 2ND SERIAL NUM WORD
;SKIP PAST

THE

'BLANK'

WORDS

sGET CYLINDER ENTRY WORD
;1F MINUS - END OF BAD SECTORS
:COUNT THIS ENTRY [N THE FILE
;GET TRACK AND CYLINDER
;PUT CYLINDER IN HIGH BYTE

;ALIGN THE BITS
sNEED ANOTHER B8]T1?
s YUP

;STORE OFF CYLINDER PART
;sOGET SECTOR
;LEAVE ONLY SECTOR

JSET IN SECTOR BITS
sCLEAR ALL EXCEPT HEAD 817
:SET

IN HEAD

181
BNE

sPRINT
:NO

TS1
BNE

;SWITCH 1O FIELD BAD OR QUIT

002326

JEXIT

ASR
ASR

002320

#6,5P

BiC
BIS
Bl(C

002324

SP,RO
CSPNTF

ADD
JMP

MOv

002322

24-2
SEa 0080

000002

005721

052737
013712
013737
062737
053712
042737
006237
006237
053722
005300
001333
005737
001330
000423

022632
022636

9-FEB-79 19:46:54 PAGE

A MESSAGE?

;Qult, 7%

CIRLMAD RLO1/2 BSFY
MACRO v03.01
BAD SECTOR FILE ROUTINE
146
147
148
149
150
151
152
153

022666
022672
022674
022702
022704
022712

022720
022724
022724
022730
022734
022740
022742
022744

6 022750

5 022754
n 022760

& 022762
Y 022766
0 022770
022770
022774
023000
023004

023006
023010

161 023014
162 023016

163 023020

164 023022
165 023024

022737
001004
012737
000403
012737
012737

000157
012746
012746
012746
010600
104017
062706

005237

012700
000665

000001

002174

1777264
000001
022312

002174
002326

(mp
BNE
3508:
36%:

002316
007351
000002

MOV
MOV
JMP

#1,TDR
3509
#77724,B0A
36%
#177724,B0A
1, TEMPS
4%

MOv
Mov
Mov

#1BLEUL,=(SP)
FEMT18,-(SP)
#2,-(SP)

MOV
BR

ADD
INC
MOv
BR

7%:

9%:

012601

012600
000205

1ST

#6,5P
TEMPO
#120.,R0
1%

b
b
)
b
d
b
ek
il —nnd —
—
il
b
)
vl
—

Q0 Ob OB 0o 0o Qo 0o Oo OO0 N~NNN~N~N
OO0
O N —O0VWNO
N

02302¢
023032
023040
023046
023054

004537
012737
012737
022737
001423

023176

173000

002176

012737
000417

177700

002174

023066
023072
023100
023106
023114
023116

0045
012
012
02
00
01

023176
173000
077724

002176
002174

177724

002174

023124
023132
023136
023142
023146

01
004
0045
0057
1000

000014
021570
023264
157032

002210

023056
023064

190 023150

077700
000001

TEMPO

DECNT,=(SP)
NEMT20,-(SP)
#2,-(SP)

#FMT20,DECNT

MOV
EMT
ADD
MOv

SP,RO
CSPNTF
¥6,5P
(SP)+,R3

Mov
MOV
RTS

(SP)+ R1
(SP)+,RO
RS

Mov

000001

MOV

002246

:SET THE PRINT FLAG
SRESET THE COUNTER

:NO

;PRINT # ENTRIES IN FILE

(SP)+,R?

'FACTORY'

RS,CLRBSF

FILE FROM THE BAD SECTOR FILE
;CLEAR THE BSFILE STORAGE AREA

#-2560. ,BMP

:SAVE

BEQ
MoV
BR

RDBSFILE
#177700,8DA
RDBSFILE

:NO - READ THE FILE
;HERE FOR RLOZ
: THEN READ THEE FILE

JSR
MOv
MOv

R5,CLRBSF
#-2560. ,8BMP
#77724,BDA

;CLEAR THE BSFILE STORAGE AREA
:SAVE THE WORD COUNT
:AND THE DISK ADDR FOR 'FIELD' FILE

177724 ,8BDA

;HERE FOR RLOZ

MOV
CMP

RDFJELD:

FIELD AREA FOR RLO?2

;OVER 25. ENTRIES?

MOV
MOV
MOV

RDFACT: JSR

002174
002246

:AND CONTINUE

;ROUTINE TO RtAD THE
169
170
171
172
173

;START

SECTOR

SP,RO
CSPNTF

BEQ

PRINTF

000006

;RLOT=T

sMUST BE RLOZ
;START AT FIELD

PRINTF #FMT18, #1BLFUL

MOV
EMT

000006
002320
000170

013746
012746
012746
010600

24-3

SEQ 0081

6%:

005714
007335
000002

002320

012603
012602

19:46:54 PAGE

002246

077726

005737
001412

104017
062706

9-FEB-79

CMP
BtQ

MOV

RDBSFILE: MOV
JSR
JSR
1§71

THE WORD COUNT

#77700,BDA
;AND THE DISK ADDR FOR FACTORY FILE
#1,TDR
;IS IT AN RLOZ2?

M ,TOR
;1S DRIVE A RLOZ2?
RDBSFILE
:NO - READ THE

FILE

BPL

#READ,FUNC
: SAVE THE COMMAND
RS, LDFUNC
;AND ISSUE IT
RS ,WTRDY
: THEN WAIT FOR READY
abCS
;WAS THERE ANY ERROR?
RDBSEX
‘NO - EXIT

PRINTF

#FMT19,#BADRSF

;TELL THE OPR AN ERROR HAPPENED

(IRLMAD RLOV/2 BSFT
MACRO v03.01
BAD SECTOR FILE ROUTINE

191

023150
023156
023160
023164
023166
023170

012746
012746
012746
010600

004753
007342
000002

062706

000006

023174

000205

023176
023200
023204
023210
023214
023216
023220

010146
012701
012721
022701
001373
012601

1064017

026442

177777

033442

9-FEB-79

19:66:54 PAGE

Sea 0082
MOV
MOv
MOV
MOV

#BADBSF ,-(SP)
JEMTI9, -(SP)
#2,-(SP)
SP,RO

ADD

#6,5P

RDBSEX:

RTS

JEXTT

CLRBSF:

MOV
mMov

R1,-(SP)
#BSFILE ,RI

: SAVE R1
;SETUP A POINTER

EMT

1%:

MOov
(Mp

BNE

Muv
RTS

000205

023222

24-4

CSPNTF

#-1,(R1)
:SET BUFFER & POINT
#BSFILE+2560.,R1 ;DONE?
1%
:NO - INIT THE NEXT

(SP)+ R
RS

;RESET
JEXTT

TO NEXT

ADDR

STARS
::'tll"""'t""""""'0"'t""""."'I.""".""""""

.LOADED == CHECK

023222

STARS

FOR DRV READY

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

023222
023224
023230
023234
023240
023242
023246
023252
023254
023260
023262

010146
004537
005037
032701
001002
005237

023342
002320
000020

032701

002320
000010

005237

002320

001002

012601
000205

LOADED:

MOV
JSR
(LR

BI1

1$:
2%:

BNE
INC

BIT
BNE

INC
MOV

RTS

R1,-(SP)
RS,GETDST
TEMPO

:SAVE R1
:GET DRv STATUS
sCLEAR THE FLAG

#HOP ,R1

;HEADS OVER PA(K?

#BRHM, R
2$

;BRUSHES HOME?
JYES

1%
TEMPO

TEMPO
(SP)+ Ri
RS

JYES
:NO

JEXIT

CIRLMAO RLOY/2 BSFY

ROUTINE

10 WAIT

FOR

MACRO v03.01

CONTROLLER READY

9-FEB-79 19:46:54 PAGE

—

)
)
i
) ol
—

00 NN
NN

=S OOV~

.SBTTL

ROUTINE

SEQ 0083

TO WAIT FOR CONTROLLER READY

:ROUTINE TO WAIT FOR CONTROLLER READY UNDER FLAG

;MODE.,
USED IN INITIALIZe PORTION OF PROGRAM ].E.
:GETTING BAD SECTOR FILE, WRITING PACK INITIALLY
023264
023266
023270
023274
023274
023300
023302
023310
023312
023314

0
0
012701

001750

012700
1
032777
00:011
005301
001367

000002
000200

156670

017737

156656

002202

023316
023324
023324
023326
(23330
023332

104462
000156
003607
007114

023334
023336
023340

012601
012600
000205

WIRDY:

MOV

1%:

WALTUS

MOov

RO,-(SP)

:SAVE

#1000. ,R1

JWAIT A WHILE

R1,-(SP)

MOv

MoV

#2.

¥2.,R0

Emy
BIT
BNE
DEC
BNE

(swiv
#CROY,aDCS
2%
R1
1%

;READY SET?
JYES, EXIT
:TIMED OUT?
:NO GC BACK

Mov

aDCS,E.DCS

:SAVE THE STATUS FOR ERROR REPORT

TRAP

TSERCODE

.WORD

NOCRDY

2%:

Mov
MOV
RTS

(SP)+ K1
(SP)+,R0
RS

.SBTTL

GET

STATUS/DRIVE RESET

ERRDF
.WORD

.WORD

;ROUTINE

;ALSO GET

110. ,NOCRDY,ERRZ

110

ERR?

ISSUE

DRIVE

STA(US, R1

;RESTORE

RESET

HAS STATUS

;USES R3, DOES NOT SAVE IT
023342

023346
023354
023356
023362
023370
023376
023404
023412
023416
023424
023426
023432

013703

012763
000405
013703
012763
012763
053763
042763
004537
022763
001402
016301
000205

002200

000003

002200
000013
000204
002232
000200
023264
0C00i3
000006

000004
000004
000000
000000
000000

REGISTERS

ROUTINE
IF

GETDST: MOV
MOV
BR

DCS,R3
#GSBIT,DA(R3)
CSTUFF

MOv
CSTUFF: MOV

#ORST,DA(R3)
#CRDY!GSTAT,CS(RY

ISDRST: MOV
BIS
BIC
JSR
(MP
BEQ

000004
1%:

MOv

RTS

DCS,R3

DRSEL,CS(R3)
#CRDY,CS(R3)
RS,WIRDY
#DRST,DA(P3)
1%

MP{R3) ,R1
RS

REGISTERS

CIRLPMAQ RLO1/2 BSHT
10 WRITE

PACKS

MACRO v03.01

INITIALLY

9-FEB-79 19:46:54 PAGE
.SBTTL

ROUTINE

TO WRITE PACKS

INITIALLY

;ROUTINE TO WRITE PACK WITH PATTERN, ALL TRA(KS WILL BE
;WRITTEN (EXCEPT BAD SECTOR TRACK)
:FORMAT IS # OF WORDS (WORD 1), PATTERN ADDRESS (WORD 2)

U
NS WA= O 00BN
N=OOONO

26
SEQ 0084

NN —

ROUTINE

SPATTERN (WORDS 3 - 128)
;WE WILL ATTEMPT TO WRITE MULTIPLE SECTORS AT A TME
;(MINJMUM 10 SECTORS) IF AN ERROR OCCURS WE WILL THEN
;WRITE INDIVIDUAL SECTORS FOR THAT TRACK.
WE DO WRITES,
;READS AND INCORE COMPARISONS TO VERIFY.

SCALL JSR RS,WRPACK
023434
023436
023440
023442
023444
023446
023452
023456
G23464
023472

WRPACK:

002206
024700
002356

004537

173000

026324

002206

1%:

002176

MOV
MOV
Mov
MOv
Mov

RO,-(SP)
R1,-(SP)
R2,=-(SP)
R3,-(SP)
R&,=(SP)

Mov
JSR
MOV

BBA,-(SP)
RS ,HDHOME
#BUF
1 ,BBA

JSR

RS ,WRBUF

MOV

;SAVE REGISTERS

;HEADS HOME

#-2560.,8MP

;SET TO WRITE 20 SECTORS
;GENERATE

THE WC DATA PATTERN

:NOW ACTUALLY WRITE DATA OUT ON PACK, WILL NOT WRITE LAST

: TRACK

023476
023500
023502
023506
023510
023514
023522
023524
023530

005001
005004
005737
001410
012704
022737
061002
042704
000137

023534
023542
023544
025550
023552
023556
023560
023562
023566
023570

022737
001007
022701
001020
005737
001415
000404
022701
001011
000770

023572
023576
023600
023602
023604
023606

(LR
(LR

002242
000776
000001

002246

177400

024044
000001

2%:
002246

C(ONWR:

077600
002322

12%:

177600

13%:

FWDFLG
2%
#510. ,R¢
#1,TDR
2%

JMP

SKWRT

#1,TDR
13%
#077600,R1

187

TEMPI

BEQ
BR
CMP
BNE

JHERE

WHEN ALL

ENDWR:

MOV

MOv
MOV
MOv
MOV
MOV

M |

sSET

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

LAST

:NO - DA IS 0K

CyL

(RLO2)

IS 255.

;SEEK TO THE START CYLINDER

;RLO1=1
;sMUST BE AN RLO?
;RLOT

LAST

CYLINDER?

:NO - PROCEED TO WRITE TRA(K
;ON HEAD 1 LAST TRA(K?
sNO = WRITE HEAD O LAST TRA(K

;LAST CYL FOR RLOZ2?
:NO - GO WRITE TRA(K
JYES = TEST FOR LAST TRACK ON LAST (vt

12%

(SP)+ ,BBA

THE

JYES - MAX CYL

STWRY
ENDWR
#177600,R}
STWRT
WRITING

FOR

;DRIVE = RLOY?

STWRT

DONE

(YLINDER

:FEQUARD DIRECTION?

#177400,R4

(MP
BNE
(MP
BNE

;R1=CYL 000
JSTART AT 1ST

181
BEQ
MOV
CMP
BNE

002206

THE

PACK

(IPLMAQD RLOV/2 BSFT

ROUTINE

10 WRITE

023610

PACKS

MACRO v03.01
INITIALLY

9-FEB-79 19:66:54 PAGE

26-1

SEQ 2085

000205

RTS

SEND EXIT

¢THIS PORTION WILL WRITE THF PACK USING MULTIPLE SECTORS IF A
;ERROR OCCURS WE WILL GO TO 2% AND INDIVIDUAL SECTORS.
:1F AFTER 3 RETRYS ON A SECTOR NO RECOVERY (AN BE MADE, THEN THE
.BE MARKED °'BAD' [N THE TEMP BAD SEC FJLE STORAGE AREA
023612
023614
023620
023626
023632
023640
023644
023650
023654

002174
002322
002174
000012
021570
023264

005777

002174

STWRT:
SWRT1:

(LR
MOV

BIS

RZ
R1.BDA
TEMP1,BDA
RZ2,BDA

JSR
JSR

RS.,LDFUNC
RS,WTIRDY

s ISSUE THE WRITE

181

ad(s

:ERROR DETECTED?

B1S

002210

MOV

156324

8PL

FURITE ,FUNC

;INITIAL SECTOR 0
sSEV UP CYLINDER
; INSERT THE HEAD NUMBER (0 OR 1)
:ADD IN THE SECTOR NUMBER

SWRITE

¢WAIT

CMD

FOR READY

¢BR IF NO ERROR - GET NEXT SECTOR

WNXSEC

;HERE IF AN ERROR WAS DETECTED - GOING TO WRITE
;AT A TIME ... >3 RETIRYS = ‘BAD' SECTOR

023656
023656
023662
023666
023670
023672
80 023676
81 023704
82 023712
023712
023714
023716
023720
023722
02372¢
023734

01
012746
01
1

PRINTF
MOV

007552
000001

000004

156276
002174

MOV
MOV

EMT

002202
002314

TRACK

ONE

SECTOR

#MCRLF
#MCRLF ,-(SP)

#,-(SP)
SP,RO
CEPNTE

ADD

#,,SP

MOV
MOV

aDCS,E.DCS
B8DA,CHKSEC

TRAP

T$ERCODE

.WORD

023356
000001

THF

;SAVE

THE ERROR DETECTED

ERRSOFT 410. ,MSFER,ERR]

1046464

000632
003144
006626
004537
012737
000471

SECTOR Wli!

MSFER

MOV
BR

#1,DECNT
W1SEC

.WORD
JSR

002316

410

.WORD

ERRI
RS, ISDRST

;RESET

THE

;WRITE

DRIVE

SECTOR AT

A TIME

JHERE 10O SELECT THE NEXT SECTOR ON THIS TRACK
023736
023742
023746
023750
023754
023762
023764

062702
022702
001322
005237
023737
001313
005037

00002¢
000050

002170
002170

WNXSEC:

JHERE

005737
001410
005737
001003

007640

024004
024010

004537

024700

000402

cmp
BNE

INC
(mp
BNE
CLR

007642

002170

023770
023774
023776
024002

ADD

TO SELECT

WNXTRK:

002242

TS1%

WRTCNT
WRTCNT ,WRTLIM
STWRT
WRTCNT
THE

WRTSAW

SNEXT GROUP
;DONE?
:NO, GO BACK
:COUNT THIS WRITE PASS ON SELECTED TRk
;AT LIMIT FOR THIS TRACK?
:NO - DO THIS TRACK AGAIN
:YES = CLEAR THE PASS COUNTER

TRACK WITH A SEEK

(MD

BNE

;DOING A SAWTOOTH WRITE CYCLE?
:NO = DO INCREMENTAL
;SAWTOOTH FWD WRT?
:NO - DOING REVERSE WR1

JSR

RS ,HDHOME

;YES

BEQ
1St

1¢:

#20.,R?

#40.,R2
SWRT1

FWDFLG

13 )

SET

THE

HEADS

OvER

CyL

#000

CIRLMAO RLO1/2 BSHT

NS WA — OO
N
2OV

o0 NN

W= OVONO NS W

£ AN AN N AN AN NN NN N NI PO PRI P PO PO PRI PRI RO N

—.—l—l—.—‘—a—d-—l—o_a—n.—n-—h—b—a—n_.—o—d—a—.—a_‘-fl_a_‘_‘_‘—a —

s -

s b st ittt s d O

KOUTINE

141

T0 WRITE PACKS

MACRO v03.01
INITIALLY

024012

004537

024776

2%:

JSR

RS ,HDLAST

;SET

024016
024022
024024
024030
024032
024034
024036

005737
001432
005737
0014G4
005304
002003
000137

0023¢2

3%:

187
BEQ

TEMPI
5%

;DOING HEAD 0 ??
;YES = SET FOR HEAD #1

0246042

005204

024044

024044
005017

9-FEB-79 19:46:54 PAGE

DEC

;NO - DOWNCOUNT

012737
000754

000100

002322

0246130
024136
024144

005002
012737
013737
053737
050237

177600
002252
002322
002174

002176
002174
002174

024150
024156
024162

012737
004537
004537

000012
021570
023264

024166
024172

005777

56006

100055

002210

INC

;POINT

(FWD DIRECTION)

32%:

(LR

TEMP1

;SET POINTER BALK TO HEAD #0

4%:

MOV
SWAB
cLC
ROR
8CC
BIS
MOV

R4 ,R1
R1

:GET THE CYLINDER #
;POSITION THE BITS FOR DIRECT LOADING
;INTO THE DA REGISTER

41%:

5%:

WISEC:

BIS
JSR
JMP

R1
41%
MITIS,
M
R1,NEWPOS
TEMP1 ,NEWPIT
RS,SKFNC
CONWR

MOV
BR

#HEAD, TEMPI
4%

024226

156000

002316
002174
025252
002312

(LR
MOv
MOV
BIS

1$:

R2
#-128.,8MP
PRPOS,BDA
TEMP1,BDA

R2,BDA

B1S

TO WRITE

2%:

;FOR

THE

;CYLINDER

THE

SEEK

CYLINDER

THE

PROPER

;SET THE DESIRED DISK ADDRESS
;ADD IN THE SELECTED HEAD BIT
;ISSUE THE SEEK TO THE DESIRED CYLINDER/HEAD
;AND

CONTINUE

;POINT

WRITING

TO HEAD

;AND SEEK THERE

THE

TRACK

SECTOR

:R2 = SECTOR

:LOAD WORD COUNI
:SETUP DISK ADDRESS
;ADD IN THE HEAD NUMBER (0 OR 1)
;ADD IN THE SECTOR NUMBER

SECTOR

FURITE,FUNC
RS,LDFUNC
RS,WTRDY

¢WRITE

1S1

a0(Cs

;ERROR ON WRITE?

ERROR ON

FUNCTION

: ISSUE THE WRITE
;WAIT FOR WRITE TO FINISH
¢NO = SETUP FOR NEXT SECTOR

SECTOR WRITE

002202

MOV

a0CS,E.DCS

002314

MOv

BDA, CHKSEC

151

HORFND

;SAVE THE DETECTED ERROR
:NO, GIVE 1T ONE MORE TRY
;CHECK 1F SECTOR IS IN
;BAD SECTOR FILE
J1F SET, IT WAS

PRINTF

WFMTIB, MINBSH

;TELL OPR SECT

INC

JSR

BEQ

PA(CK

MoV
JSR
JSR
BPL

JHERE

024174
026202
024206
026214
024220
024224

COUNTER)

10 DO

;1F AN ERROR OCCURS THEN WE [OME HERE AND DO THE
;BY SECTOR.
024120
024122

(CYL

ENDWR

SKWRT=,

024110
024116

JMP

31%:

002254

;YES = R4 IS AN UPCOUNTER

:PROCEED IF STILL HAVE SOME
;JUST COMPLETED THE PACK

023572

100000
002254
002322
025062
023534

OO0 COCOO

el
D
e
)
el
——

FWD WRITE?

31s

32%

;HERE

coo [V IV T AV IV V. YU TV YV |
N —O OO~
N
—

FWDFLG

BGE

052701
010137
053737
004537
000137

THE HEADS OVER THE LAST (v

151

BEQ

024050
024052
024054
024056
024060
024062
026066
024072
024100
0264104

010401
000301
000241
006001
103002

SEQ 0086

002242

002322

26-2

DECNT

RS, C(xBDS(

21$

;NO MAT(H

IN FILE ALREADY

CIRLAMAD RLOV/2 BSHT

ROUTINE

10 WRITE

024226
024232
024236
024242
024244
024246
163 024252
024252
024256
026262
024264
026266
164 024272
165 024276
166

[« V.

—

NN~

167 024300
168 024306
169 024310
170 024314
171
172 024316
024322
026326
024332
026334
024334
024340
024344

024350
024352
024354
177 024360

178

179
180
181
182
183
184

PACKS

MACRO v03.01
INITIALLY

9-FEB-79 19:46:54 PAGE

SeaQ 0087

006250
007335
000602

MOv
MOov
Mov
MOv

EMT

000006
007552
00C001

000432

000004

004537
004537
005737
001414

024400

012746
012766
012746

002762

010600
104017

062706
005237

21%:

02335¢

023356
002316

22%:

3%:

ADD

¥ ,SP

SP,RO
CEPNTF

RS, 1SDRST
318

¥4 ,DECNT

JSR
JSR
181
BEQ

RS, INBAD
RS,ISDRST
DECNT
31%
SFMT18,#MSREC

MOV
EMT

000006
002162

#,-(SP)

(MP
BtQ
JSR
B8R

PRINTF
Mov
MOV
MOv

007335
000002

SP,RO
CSPNTF

"6 ,S5P
FM(RLE
#MCRLF ,=(SP)

JSR
BR

002316

#INBSF ,-(SP)

FENTIB,-(SP)
#2,-(SP)

ADD
PRINTE
MOv
MOV
Mov

EMT

000004
023356

022737
001403
004537
000715

26-3

ADD

INC

22%

R5,1SDRST

WMSREC,-(SP)

;RESET THE DRIVE
;WORK ON NEXT SECTOR

;1T MAY HAVE BEEN NOISE.

;HARD ERROR?
sNO - ISSUE A DRIVE

RESET

;AND TRY AGAIN

;TELL OPR & PUT

SRESET THE DRIVE

TEMP STORAGE

;ANY RECOVERY HERE?
:NO
SYES = TELL OPR 'RECOVERED'

#EM118,-(SP)
#2,-(SP)

SP,RO

CSPNTF

¥6,SP

SFTCNT

;ADD

THE

SOFT

ERROR COUNT

<POINT

THE

SECTOR

JSELECT THE NeXT SECTOR
024364
024366
024372
026374

005202
020227
003656
000137

000050
023770

31¢:

INC
CMP
BLE
JMP

R2
R2,#40.

1%
WNXTRK

END OF
¢NC -

THE

TRAC(K?

THIS

SYES = DO NEXT

SECTOR

TRA(K

CIRLMAQ RLO1/2 BSFT

ROUTINE

T0 WRITE

PACKS

MACRO v02.01

INITIALLY

9-FEB-79 19:46:54 PAGE

27
SEa 0088

024400

STARS

M t'l""""i't'"""'0""""""'I"""""'.'.""Q""'.'

:INBAD -- ROUTINE

$TARS

024400

INSERT

THE BAD SECTOR FOUND

INTC A TEMP

BAD SECTOR FILE AND TELL OPR THAT A BAD SECTOR

WAS DETECTED.

(MARD ERR)

= OO0
~Or

PONIPNORD
— et s =

VW= O000NO

;:'l'Ql"""I""""t"'t""""""'..'t""t'llt"""l't."

24
25
26
27

024400
026402
026410
024416
024424
026432
024440
026446
024452
024452
026454
026456
024460
024462
024466
024472
024474
024476
024500
024504
024506
024506
026512
026516
026522
0245264
024526
0264532
024534
024540
024542

005037
104463
000454
003242
006626

005237
012701
005711

000000
000002
000004
000006
000006
000006
002316

012746
012746

012746
010600

104017

062706
000402
013711
012601
000205

INBAD:

MOV

Mov
MOV
MOv
MOV
MOV
MOV
CLR

ERRHRD
TRAP
.WORD

.WORD
.WORD
INC

002160

025726

100417

005721
022701
001372

002340
002342
002344
002346
002350
002352

IBDN:

026010

BNE
PRINTF

005714

MOV
Mov
MOv

007335

000002

MOV

EMT

000006

002314

MOV
157
BM]
181
CMP

IBDN1:
IBDNZ:

R1,-(SP)

CS(R3) ,E.CS

BA(R3) ,E.BA

DA(R3) ,E.DA
MP(R3) ,E.MP
MP(R3) ,E.MP]
MP(R3) ,E.MP2
DECNT

300. ,MHDER,ERR

s CLEAR CURRENT SOFT ERROR COUNT

TSERCODE

300

MHDER

ERR1

ERRCNT

#BSECN,RI
(R1)

IBDN1

(R1)+
#BSECN+50.
,R1
1BON
MEMT18, MT1BLFUL

#TBLFUL,=(SP)

;UPDATE THE HARD ERROR COUNT
;POINT

TO THE BAD

SECTOR TEMP STORAGE

;LOOK FOR A SPOT TO INSERT ENTRY
:BR IF FOUND ONE
sPOINT TO NEXT ENTRY ADDR
sEND OF TABLF?
:NO =

TRY

THIS ENTRY

THE

ENTRY

SLOT

;YES = TELL OPR END OF

TABLE

#FMT18,-(SP)
#2,-(SP)

SP,RO
CSPNTF

ADD

¥6,5°P

Mov
MOV
RTS

CHKSEC, (R1)
(SP)+
R
RS

B8R

:SAVE R

1BDN2

JEXLT

;SAVE

JRESET R

IN TABLE

(25. ENTRYS FOUND)

CZRLMAOD RLO1/2 BSFT
OOV
NI NN —

POUTINE

FOR

SYSTEM CLOCK

106045
020037
001440
003002
005037
013701
010037
160100
060037
022737
003022
162737
005237
022737
003767
022737
003005
005237
162737
012601
0312600
000205

W N—=O
WV ~NO NS

Sea 0089

010046
010146
005737
001002

GETSYS:

002354

ROUTINE

MOV

MOV
1571

BNE
BREAK
EMT
BR

—

026562
026562
024564
024570
024572
0245764
024600
024604
024610
024612
024616
0264624
24 024626
0246364
0264640
024646
024650
20656
024660
024664
024672
0264674
02467¢
POPOPNIN)
= et et et et it

19:46:54 PAGE

FOR SYSTEM CLOCK

;ROUTINE TO READ SYSTEM (LO(K
;USES 'REGTIM' FROM DIAGNOSTIC SUPERVISOR

104022
000444

—

9-FEB-79

.SBTTL

024544
024546
024550
024554
(26556
024556
024560

MACRO v03.01

002330
002330
002330
002330
002332
000074

002332

000074
002334
000074

002332

000074

002334

002336
000074

002332

002334

RO,=(SP)
R1,-(SP)
SYSCLK
4%

($BRK
3%

:SAVE RO
;SAVE R1
;D0 WE HAVE A (LOCK
:YES, GO SERVICE 1I7

JNO, CALL SUPER FOR “C
JEXIT

4%:

REQTIM

RO
CSREQTIM
RO,LSTTIM

;GET PRESENT

1%:

EMT
(MP

CLR

5%
LSTTIM

;BR IF CURRENT TIME > LAST TIME
sWHOOPS = NEVER LET CURRENT BF < LAST

:?'EBTTIH

sAND FIX ACCORDINGLY

BEQ
BGT

5%:

MOV
MOV

2%:

ADD

7%:

SuB

CMpP
BGT
SuB
INC
(MP

BLE
cMp
BGT
INC

3%:

SuB

MOov
Mov
RTS

LSTTIM, R

RO,SECOND
;20.,SECOND

sHAS 1T MOVED

:NO MOVEMEM7T SINCE LAST CALL

sCALCULATE DIFFERENCE
;BUMP SECONDS
;SECONDS OVERFLOW

#60.,SECOND

MINUTE

#60.,SECOND
7%
#60. ,MINUTE

;BUMP MINUTES

HOUR

#60. ,MINUTE
(SP)+ ,R1
égP)O.RO

TIME

sRESET R
;RESET RO

TIME

CIRLMAQ RLOV/2 BSFT
ROUTINE

MACRO v03.01

9-FEB-79 19:46:54 PAGE 29

SEQ 0090

PNIC)

= OOV

d el i el e

NOWVNE WA

= OV~ NS NN

HEADS HOME

.SBTTL

HEADS HOME

ROUTINE

:ROUTINE TO BRING HEADS OVER TRACK 0
026700
024702
024710
0264714

010046
012737
004537
004537

024720
026724
024730
024734
0264742
024750
024754
024760
024766
024772
024774

016300
042700
010037
052737
012737
004537
004537
013737
005037
012600
000205

000010
021570
023264

000006
000177
002174
000001
000006
021570
023264
002252
002252

002210

HDHOME: MOV

002174
002210
002214

Mov
JSR
JSR

RO,-(SP)

#ROHDR, FUNC
RS.,LDFUNC
R5,WTIRDY

;SAVE

MOV
BIC
MOV
BIS
MOV
JSR
JSR
MOV
CLR

MP(R3),R0O
#177.R0
RO,BDA
/MK ,BDA
#SEEX,FUNC
RS,LDFUNC
RS,WIRDY
PRPOS.,LSTHDR
PRPOS

;GET HEADER
;ONLY CYLINDER
sMOVE IT TO BUFFERED DA
:SET MARKER
JLOAD SEEX
SEEK!
sWALT,

MOV
RTS

JROUTINE

10 SET

024776
025004
025010

012737
004537
004537

000010
021570
023264

002210

HDLAST: MOV
JSR
JSR

025014
025022
025030
025036
025044
025046
025054

016337
062737
012737
022737
001005
012737
004537

000006
000177

002252
002252

000001

002246

025060

000205

177600

077600
025062

;SET BUFFER T0O HOME

(SP)+,RO
RS
THE

HEADS OVFR

THME

LAST

CYLINDER

#ROHDR, FUNC
RS,LDFUNC
RS,WIRDY

JSET TO READ THE CURRENT POSITION
JREAD HEADERS
JWAIT TILL DONE

Mov
B1C

MP(R3) ,PRPOS
#177,PRPOS

;GET THE CURRENT POSITION
;SAVE ONLY THE CyL BITS

(Mp

#1,1DR

;DRIVE = RLO1?

002254

MoV

002254

MoV

#77600 ,NEWPOS

RTS

BNE

1%:

;READ HEADER
;G0 0O IT.

J?R

#177600,NEWPOS

;SET LAST

CYL FOR RLOZ

JNO - MUST BE RLOZ2

Rg,sxrnc

;SEEK

;YES = SET RLO1
TO THE

LAST

TRACK ADDRESS

TRACK

MACRO v03.01

9-FEB-79 19:46:54 PAGE
.SBTTL

;ROUTINE

SEEKX ROUTINE
TO

SEEX

TO A

CYLINDER

POINTED

TO BY

°NEWPOS®

;POINTED TO BY °'PRPOS'
SEXITS WITH PRPOS CONTAINING THE NEW CYLINDER ADDRESS
025062

SKFNC:

002254

002252
000177
000177

ot it ot ettt

NS NN

s et

OOV~

SeaQ 0091

V.2

CIRLMAO RLOV/2 BSFT
SEEK ROUTINE

=S OOV

000004
000001
00010C

002254

PURD

002174

017737

025210
025212

025214
025222
025224
025226

154776

1%:
2%:

1s:
002210

002202

sCALC THE DIFFERENCE

ggc

sMAKE DIFFERENCE A POS!TIVE

BIS
B1S
811
BEQ
BIS

#6 ,R2
#MK ,R2
#HEAD ,NEWPOS
3%
#SKHS,R?

;SET THE DIRECTION BIT
JSET THE SEEK MARKER BIT
;GO TO HEAD #1?
:NO
JYES = SELECY THE HEAD BIT

MOV
MOV
JSR
JSR
187
BPL

R2.D1FWD
#SEEK ,FUNC
RS,LDFUNC
RS,WIRDY
a0(Cs
31

:ALSO AS DIFFERENCE WORD
sSET 10 DO A SEEK FUNCTION
:1SSUE THE SEEK
;WAIT TILL READY SET
;SEEK ERROR DETECTED?
;NO

[ [}

;ROUTINF
SRESTART

R2,BDA

aDCS,E.DCS

530.,MSKER,ERR?

JYES - SAVE

THE ERROR STATUS

CURRENT POSITION WORD

TSERCODE

530

MSKER

MOV
MOov

NEWPOS ,PRPOS
(SP)+ ,R2

;UPDATE THE
JRESET R2

RTS

JEXIT

MoV

ERR?

(SP)+ ,R1

TO CLEAR ALL DRIVE
1F CALLED.
CAN BE

;RESET

025240

025244
(25246
025250

010446
012704
005024

020427
001374
012604
000205

002160

002256

INFO, USED ON
USED TO CLEAR

sINFO BY BITMAP FOLLOWING CALL

025230
025232
025236

START QR
INDIVIDUAL

DRIVE

s CALL

JSR

RS,CLEAR

(LEAR:

MOV

R4 ,=(SP)

:SAVE

2%:

CLR
(o ]

(R4) ¢
R4, #RECNT

sCLEAR
;AT END OF BUFFER

4%:

.SBITL
;ROUTINE

MOV

BNE

MOV
RIS

ROUTINE

NUMBER

:SAVE THE DA

.WORD

31%:
6%

;SAVE R?2
;SET THE DESIRED CYL

?l.k2

.WORD

002252

R2,=-(SP)
NEWPOS ,R?

CYLINDER

;GET THE CURRENT POSITION
JCLEAR THE HEAD/SECTOR BITS

TRAP

002254

:SAVE

PRPOS,R1
#177.R1
#77.R2

ERRHRD

007114

R1,-(SP)

MOv
BIC
8IC

MOV

1046463
001022
003133

013737
012602
012601
000205

MOV
mov

gg%

000020
002222
000006
021570
023264
155004

MOV

FROM A

#ERRCNT RS

sPOINT

T0 THE

:NO, GO T0 2%

(SP)+ R4
RS

sRESTORE
JEXIT

1ST

CURRENT

10 (LEAR

BUFFER POINTER

TO CHECK FOR BAD SECTOR

TO MATCH BAD SECTOR.,.... BOA

IS SECTOR WE

ARE

L 0OKING

CIRLMAQ RLOY/2 BSHY

ROUT INE

MACR) v03.01 9-FEB-79 19:46:54 PAGE

10 (MECK FOR BAD SEC.OR

30-!
Sta 0092

:FOR IN LISY POINTED 1O BY BSECPT...... HDRFND 1S SET

02925¢
025256
025260
025262

005037
010046
010146
012260
013701
022711

025266
025272
025276
025300
025306
025306
025310
029312
025314

001411
023711
001404
005721
005300
001367
000402

025316

005237

025322
025324
025326

012601
012600
000205

002312

(xBDSC:

000177
002234

1%:

177777

0023814

(LR
mov
mov
Mov

Mov

HORE ND
RO,-(SP)
R1,-(SP)
#127.,R0
BSECPT R

cmp

(HKSEC, (RT)

(mp
8ta

8eoQ
151

DEC
BNE

002312

025330

sCLEAR FLAG
:SAVE RO
: SAVE R1
;127 ENTRIES
;GET WHERE WE'RE

#-1,(R1)
6%

sEND OF ENTRYS?
;BRANCH IF AT END

:THEN GO SET

(R1)¢

SHAVE

GOT

IF WE FIND IT.

LOOK ING

A MATCH

INDICATOR, ELSE

RO
2%

3%:

INC

HDRF ND

6$:

MOV
MCv
RIS

(SP)+
R
(SP)+ RO
RS

;SET FLAG FOUND

STARS
;:'.Q.."""""'l".'.""'.""."""'."".""""'.""".

025330

STARS
';.".'"."""""'t"""""'l"...".l'..."'."'."'."."'

“BUFFER TO STORE BAD SECTOR LISTS
025330
025724
025726
026322
026324

BSECO:

177777

BSECN:
BSECNE:
STARS

177777

.WORD

.BLKW

126.
-1

;STORAGE FOR BAD SPOTS
;FORCED TERMINATOR

.BLKW
.WORD

126.
-1

:STORAGE FOR 'FOUND'
;FORCED TERMINATOR

IN BAD SECTOR FILE

BAD SPOTS

':"""'."'t'"""""""O"I".".l"l".'."'..'.'l""l.l'

STARS

026324

;:!'."0"""""".""""'"'.""'.'.""".""""""'..'

026324

STARS
';'.'t""".."""""'"""."'"."""'.""Q'.."'."".'.

:SUBROUTINE TO LOAD A MEMORY BUFFER WITH THE WORST CASE DATA PATTERN
.70 WRITE ON THE PACK,

026324

STARS

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

026324
026326
026330

026332
026336
026342
026346
102 026350
026352
104 026354

WRBUF:

246

002176
002356

026374

404

026434

1¢:

2%:

MOV
Mov
Mov

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

MOV
MoV

BMP,R1
BUF1,R2

MOV

INC
BEQ
(mMp

R3,-(SP)

#W(PAT,R}Y

(R3)¢+,(R2)

BU(PAT+32
,RY

:SAVE R1

JSAVE R?
;AND R3

:GET THE WORD COUNT FOR THE WRITE (MD
:GET THE BUFFER ADDRESS
;OET THE STARTING ADDRESS OF THE DATA PATTERN
:PUT

THE

DATA

IN MEMORY BUFFER

;DOWNCOUNT THE WC (MINUS WC TO START WJlTH'
SEXIT IF ALL DONE BUILDING THE BUFFER
;AT

THE

END OF

THE

DATA PATTERN

TABLE?

CIRLMAQ RLOV/2 BSFY

MACRO v03.01
10 (HECK FOR BAD SECTOR

(W,

..._.

=2 O 0NN

NN = OOV

NN =

_.—._a_._n_.—c—.-a—o_.—o_o_.—..a_.-o-‘_.—.—l.‘_a-o-‘—.
AMAMN NN NINI NI NI NI NI NI PINIAD b b b s b o e o et
o0

oo — ol
-OOI~4SLJ

ROUT INE

026360

026362
026364
026366

026370
026372

9-FEB=~79

012601
000205

;WORST

0263764
026376

BNE

ROV
RTS

(SP)+ R
RS

(ASE

PATTERN USED

BR
mov
mov

WCPAT:

026400
026602
026406
026606
026410
0264612
026414
026416
026420
026422
026426
026626
0266430
026632

133333
155555
066656
133333
155555
066666
133333
155555
0606666
133333
155555
066666
133333
155555

.WORD
LWORD
LYORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

026434
026430
026436
026436
026440

000240

ENDOF PROGRAM:
ENDTST
L10011:
EmT
HALT

136 026442

STARS

137 026442

STARS

_WORD
.WORD

/77777

141 060444
142 040514

THE

DATA TABLE

POINTER

JEXTT
IN WRITING

133333
155555
066666
133332
155555
066666
133333
155555
066666
133333
155555
066666
133333
155555

NOP
(SETST

BSFILE:

.BLKW
.WORD

2560.
-1

;STORAGE FOR BAD SECTOR FILE
;END OF STORAGE

BSFPAT:
STARS

.BLKW

20.

;EXTRA FOR PATCHING & MISTAKES ETC(.

143 040514

SYES = RESET
sRESET R3

155555
066666

138 026447
139 060442
140

¢NO - STORE THE NEXT FROM DATA TABLE

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

155555
066666

104001
000000

30-2
SEQ 0093

001372

000767
012603
012602

19:46:54 PAGE

DATA

STARS
R
R
N
R
R R R R R R R R Ry

144
165 040514
146 040514

BGNMOD

040514

000011

040516
040520
040522
040526
148 040526
040526
040530

000031
040540
160000
177776

147 0640516

001032
040554

HRDPRM
BGNHRD
.WORD L10013-LSHARD/2

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

CSRMSG,CSR,0,160000,177776,YES

TSCODE
CSRMSG
TSLOLIM
TSHILIM
DRMSG,DRBT,0,03400,0,7,YES
TSCODE
DRMSG

CIRLMAOD RLOV/2 BSFT

ROUTINE

10 CMECK

0640532
040534
040536
040540

MACRO v03.01

9-FEB-79 19:46:54 PAGE

FOR BAD SECTOR

SEQ 0094

003400
000000
000007

040540
N

—

102
104

—

L10013:
(o] 2]
ARV]

040540
04055¢

30-3

(SRMSG:
DRMSG:

.WORD
.WORD
.WORD
ENDHRD
.EVEN

03400

LASCIZ
LASCIZ

/BUS ADDRESS/
/DRIVE/

TSLOLIM
TOHILIM

.EVEN

040562

040562
040562
040562
040564

BGNMOD

000010

000130
040604
000001
001052
040632
177777
0000061
177777

040604

060652

041114

061114

—

N\)

—

-—

Ny —

w—r
—

~nO

~ WA

040604
040632

L10014:

—add wmamt
—
el
—

0000 (O~~~ ~N~
WA =2 O N S

040564
040566
040570
169 040572
060572
040574
040576
040600
040602
040604

ENDMOD

.EVEN
DSWRT:
DWCNT:
.EVEN

261114

LASTAD

LSLAST::

SFTPRM
BGNSFT
.WORD L10014-L$S0FT/2
GPRML
DSWRT,0,1,YES
T$CODE
.WORD
.WORD
?SURI
.WORD
GPRMD
DWCNT ,2,0,177777,1,377777,Y¢ES
T1$CODE
.WORD
.WORD
DWCNT
177777
.WORD
.WORD
TSLOLIM
TSHILIM
.WORD
ENDSFT
.EVEN

ASCIZ
<ASCIZ
ENDMOD

.EVEN

/SAWTOOTH WRITE CY(LE?/
/WRITE CYCLES PER TRACK?/

(IRLMAG RLOV/2 BSFT
MACRO v03.01 9-FEB~79 19:46:56 PAGE
DIAGNOSTIC SUPERVISOR -~ LOw (ORE SET uP
1

LSBTTL

DIAGNOSTIC

SEQ 0095
SUPERVISOR -- LOw CORE

SET ULP

ASSEMBLY ROUTINES
PWR
. FALL:
POWER

35
36
37
38
19
Q)

071710
071712
071714
071716

000000
000000
000000
000000
071722
000200

MACRO v03.01 9-FEB=-79
INTERRUPT ROUTINE

19:46:54 PAGE

18)

SEQ 0096

.WORD
.WORD
.WORD
.WORD

0
0
0
0

END.SUPY-.+?

LEND 200

gms FOR USER POOL POINTER

TCHECKSUM (NOT CURRENTLY USED)

;SI12€ OF H.W. PTAB. AL LOCATION

ROUTINES

TABLE

19:46:54 PAGE

180-1

BSEND
BSFCYL
BSFHD
BSFILE
BSFOK
BSFOKF
BSFOKX
BSFPAT
BSFSEC
BSMAKE
BSMKL
BSMKS
BSRF
BSRFAC
BSRFLD
BSRM
BSRPT
BSRPTL
BSRPTS
BSRTOT
BSVERI
BSVERL
BSVERS
BSWR]T
BSWRTL
BSWRTS

BUF1
BUILD
BVEC
B$AAB
BYAAF

CALLP(:

CMD1
(MD2
CMD3
(MD4

CMDS

(MD6

2 002
3

6
7032
7022
6
6
6

C(Mo7

CML0
(MSK
(NTFLG
(NVT
COMMAN
COMMTA

COMVER
(ONKEA
CONTCL

CONWR
cop
CoPY

000022

(RDY

(RD!

017162

070272
023534
000040
02053¢
000200
017200

[gn]

000024
000026
000030
066602
066640
002627
050220
002314
062422
060510
0646360
053510
042550
061742
0646066
046104
025252
006305
006344
025230
047502
041354
066604
0641352
067210
070212
070346
041412
046162
010372
023176
016720
010106
010122
046436
004613
004152
004222
004303
004371
004426
004514
004550
002447
002270
002400
064660
041164
064474
016756

NS
QO ~NO

Y Wy

BSECO

CALLPS
CALLSP
CALLTC
CAL.CL
CAL.TI
CARY
(HKLUP
CHKSEC
CHKSTR
CHKTTY
CHK.MA
(HK.PC
., SW
CHK
CHRCNT
CH.FLA
CH.PAS
(KBDSC
CKFACT
CKFLD
CLEAR
CLEAR.
CLKACC
CLKBFR
CLKCNT
CLKJUM
CLKRES
CLKSER
CLKSON
CLK.SE
CLNCOD
CLRBSF
CLRBSN
CLRDAT
CLRSTB
CLR.MA
(MDDO

6
©
G
6
G
G

BLD.HW
BLOCK
8mp
BPRIOR
=
BRHM
BSADD
BSADDL
BSADDS
BSASN
BSATD
BSDEL
BSDELL
BSDELS
BSDELT
BSDEL!
BSECN
BSECNE
BSECPT

000020
000040
000100
000200
000400
001000
046602
064214
002176

\n“u--‘-‘—‘-‘-‘-‘CDCDCDCDCDSE
VB NN —=O
VOO

—d =t —4
et
)
)
)
et
et ot ot ol

100000

000004
000010

8
8
8
B8
B8

8119

045732
045744
045752
045766
045776
000002
004753
005447

= 000020
= 000040
BBA
002206
B(SADR
002212
BCSR
002306
B8DA
002174
002310
061114
060370
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
BAl6
BA17?

[aX A AT AT AYAT ATARATAFAYAYATAY
AN AT AY AN AN A

ASAAW
ASAAX
ASAAY
ASAAZ
ASABA
BA
=
BADBSF
BADUWRT

9-FEB-79

SEQ 0097
-ttt
—4 =

ABOF LA
04614640
ABOPAS
061356
ABO.FM
063720
ABSCYL
005114
ABSHD
005175
ABSMSG
005024
ABSSEC
005146
ABSSER
005220
ABSSNH
005331
ABSSNL
005272
ACCESS
002372
ACKENY
014632
ADDCOD
010454
ADDFEX
020534
ADDFND
020142
AFS]
061146
ALLOC
062060
APT ER
043050
ASSEMB= 000011
ABAAV
045716

MACRO v03.01

[

ASSEMBLY

SYMBOL

017374
002615
060572
000000

000000
060540
023370
061122
041124
016744
002244
002264
053462
053474
0564472
054636
000021
000020
000054
000022
= 000004
= 000002
000030
000046
000012
000006
000036
000044
C$00DU= 000053
C$DRPT= 000024
($0UV
= 000055
(S$EDIT= 000002
CS$ERDF= 000002
($ERHR= 000003
C$ERSF= 000001
C$ERSO= 000004
($ESCA= 000010
($ESEG= 000005
($ESULB= 000003
C$ETST= 000001
COEX]T= 000032
CBGMAN= 000043
($GPHR= 000042
(SGPR]= 000040
CSGTIM= 000052
CSINIT- 000011
COINLP= 000020
CSKWOF= 000035
($KWON= 000034
000100
000051
000023
00001¢
000017
000016
900015
= 000040

000377
000007
000050
000045
000033
00000?2
000025
000047
000041
000037
000013
000031
000026
000027
000004
004000
002200
060404
002316
DELCYL
005114
DELMD
005175
DELMSG
005520
DELSEC
005146
DENIED
003747
DERCNT
002166
= 040000
DERR
DEV.CO
0461126
DIAGM(C
= 000000
DIAG.T
041446
DIFWD
002222
= 010000
oLT
DOWRT
005371
DPDVD
071056
DPMUL
070744
= 000002
DRBT
DRDRV
010774
=
DRDY
000001
DRMSG
040554
DRNM
003645
DRNRDY
010736
DROPCO
010456
DRSEL
002232
= 000013
DRST
ORVID
010642
OSE
- 000400
DSPCOD
007644
DSWRT
0460604
DUNIT.
0461362
054442
DVC.FT
DWCNT
040632
DSAAG
055246
DSAAH
055364
DSAA]
060132
DSAAY
060136
DSAAK
060154«
DSAAL
060172
060202
DSAAM

ASSEMBLY

ROUTINES

SYMBOL TABLE

§F.(0N= 000036 6
tfF
. NEW= 000035 G
Ef .PUR= 000034 G
EF.RES= 000037 G
EF.STA= 000040 G
t*01
= 000001 G
tEfF02
= 000002 G
EFO03
= 000003 G
EF04
= 000004 G
€F0S
= 000005 G
EF06
= 200006 G
EFO7
= 000007 G
EF08 = 000010 G
EF09
= 000011 G
EFI0
= 000012 G
EF11
= 000013 G
EF12
= 000014 G
EF13
= 000015 G
EfF14
= 000016 G
EF1S
= 000017 ¢
EF16
= 000020 G
EMT.TR
041444 G
END
010172
ENDOFP
026434
ENDRD
017206
ENDRDT
017216
ENDWR
023572
END.OF
047470
END.SU= 071722
ENVIRO
041166 6
EOP.CH
070370 G
EOP.FM
043734
EOP.IN
046100
ERR
= 100000
ERRAT
006120
ERRCNT
002160
ERRFOR
054714
ERRHAN 053514
ERRVEC
002404
ERR.HR
054452
ERR.NU 041116 6
ERR.SF
054456
ERR
006626 G
ERR1FO
055000
ERR2
007114 6
ESC.PC
053506
Ev.COU
041120 &
EXISTS
004013
£.BA
002342
E.CS
002340

E.DA
£.0CS
E.MP
E.MP1
£.MP2
E.STAT

FACNUM

002344
002202
002346
002350
002352
002204
013456

MACRO v03.01

9-FEB=-79

19:46:54 PAGE

180-2

SEQ 0098

fFCTYP
FILL
FleL.C
fFINDBF
FIRST

007616
061240
000204 G
010254
010460

GLBEQA
GLBERR
GLBSUB
GLBIXT
GSBIT =

002160
006625
010460
002406
000003

FLAGS
FLAGSY
FLAGTA
FLAG.]
FLA.SE
FLONUM
FLG.MA
FMTICSH
FMIMS
FMISN

041160 G
0641162 6
(064412
0646146
064360
013454
046106
007450
007510
007420

GSTAT =
GSEXCP=
GSHILI=
6sLOL1=
GSNO
=
G$OFFS=
G$0fFSI=
GSPRMA=
GSPRMD=
GSPRML=

000004
000400
000002
000001
000000
000400
000376
000001
000002
000000

FMTI16
FMT17
FMT17A
FMTI8
FMT19

007232
007266
007303
007335
007342

GSRADB=
GSRADD=
GSRADF=
GSRADL=
GS$RADO=

000000
000040
000200
000120
000020

FMITB

FMT20
FORM.T
FREE
FUNC
FWDFLG

FSAU
=
F$BGN =
FSCLEA=
F$OU
=
FSEND =
FSHARD=
FSHW
=
FSINIT=
FSJMP =
FSMOD =
FSMSG =
FSPWR =
FSRPT =
F$SEG =
F$SOFT=
F$SRV =
F$SUB =
F$SWw
=
FSTEST=
GARBAG
GETCHR
GETCMN
GETCYL
GETDST

GETFAR
GETSEC
GETSN
GETSW]I
GETSYS
GET.Tw
GLBDAT

007435

007351
055010
062316
002210
002242

000015
000040
000007

000016
000041
000004
000013
000006
000050
000000
000011
000017
000012
000003
000005
000010
000002
000014
000001
061744
060450
064034
014446
023342

055526
014534
014306
063030
024544
062600

002160 6

6
6
6
6

INIT.M
INIT.R
INPUT
INPUTA
INTEN =

GSRADA= 000140

GSRADT=
GSXFER=
GSYES =
HCE
=
HCORED

HCOREQ
HCORET
HCRC
=
HC.ADR
HC.DEF
HC.DIA
HDHOME
HOLAST
HORFND
HEAD
=
HERTZ.
HLPMSG
HMSG
HNF
=
HOLDSP=
HOP
=
HOUR
HPTCOD
HRDPRM
HWSEC
HW.ADR
HYPHEN
HSAAB
18DN

IBON1
1BDN2
INBAD
INBSF
ININIT
INITCO
INITIA

000100
000004
000010
040000
(045656
045566
041402
004000
041152
041144
041142
024700
024776
002312
000109
045526
011424
002462
010000
000020
000020
002336
007630
040514
003351
041150
002540
065206
024472

6
G
G

G
G
6

002070
002072
002144
002040
010456

6
¢
6
G
G

054644
021700 6
065452
054502
042504
047454
023356
000041
000041
000041

L$DUT
LSOVTY
LSEF
LSEFLG
LSEXPT
LSEXP2
LSEXP3
LSHARD
LSHPCP
LSHFTP

002076
002146
002056
002034
002042
002044
002046
040516
002016
002022

G
G
G
G
G
G
6
G
6
G

I$INIT=
I$MOD =
I$MSG =
I1$PWR =
I$RPT =

000041
000041
000041
000041
000041

LSICP
LSINIT
LSLADP
LOLAST
LSMREV

002104
007652
002026
041114
002050

G
6
6
G
G

000167
041224 G
041226 G

LSSPC
LSSPCP
LSSPTP
LS$STA
LSSW
LS$TIML
LSTIMU
LSTIMY
LS$TISTI
LSUNIT
L.CLK.
L10000
110001
L10002
L10003
L100046
L10005
L1C006
Li0007
L10010
L1001
L10012
L10013
L10014

002062 G
002020 6
002024 G

I1$SEG
1$SFT
I$SRV
I$SUB
1$1ST

L$ORCT
LSDRS
L$DRST
L$DTP
L$DU

INTFOR
INTRT
INVAL.
INVINT
INV.SW
IN.SUF
ISDRST
I1$AU
=
I$CLN =
180U
=

I$KRD = 000041

024534
024540
024400
006250
041372 G
007652 6
060420

046504
061206 G
011766
061346
000100

=
=
=
=
=

000041
000041
000041
000041
000041

JSJMP =
KBPTR
KBUF
LOFUNC
LINE.F
L1ST
LOADED
LOAD.F
LOGMSG
LPBFR
LPCNTR
LPT.AD
LPT.RE
LSI.RE
LSTDA
LSTORT
LSTHDR
LSTTIM
LUP
LUP.AD
LSAPT
LSAU
LSAUT
LSCCP

021570
061442
011746
023222
046102
060412
041222
041220
045544
045540
045534
002220
002304
002214
002330
0665C6
053512
002036
010454
002074
002106

LSDR

002144 G

L$CLEA
L$CO
LSDEPO
LSDESC
LSDEVP
LSDISP

010372
002032
002011
002102
002064
307646

G
G

G
6
6
6
6
6
6
G
G

LSHW

LSNAME
LSREPP
LSREV
LSRPT
LSSOFT

MAJ.IN
MAJ.LO
MAJ.US
MAN.TI
MAP16
MASK .B
MASK.W

007632 6

002000
002066
002010
007650
040564

002030
007640
002014
002054
002052

G
6
G
6
G

6
G
G
6
G

002100 6
002012 G
045512
007112
007230
007636
007644
007650
010326
010452
070454
010456
Q26436

021706
040540
040604
041176 G
066606
061200 G
0012466
071314 ¢
059216

050214

NEWENT
NEWFAC
NEWLD
NEWPOS
NEWPRI
NEXTAR

006103
002230
003324
002254
070336 G
064576

NODRIV
NOENTR
NOFACT
NOFIEL
NOFLDE
NOLOAD
NOMSEC
NOSNUM
NOTRDY
NO.CLK
NO.FLA
NO.LPT
NO.PTA
NR
=
NSWSEC
NUMBIN
NUM.LA
NUM.NO
NUM.UN
NUNITS
Nep
=

003633
00556/
013500
013566
003477
003255
013654
013452
006401
045502
(064372
061710
045706
000000
003453
055034
055202
041156 6
041564
050172
020000

NHWSEC
NOCRDY

003400
003607

19:46:54

PAGE

180-3

SEQ 0099
NXTCMD
NXTFOR

NXTSEC
NXTTRK
NXTUNI
0CTMSG

oK
ONESEC
oPl

OVRMAX
0%APTS=
0$AU
=
0$BGNR=
0$BGNS=
osou
=
O0$GNSW=
O0$POIN=
O$PWR =

PARSES
PAR.LA
PASS.C
PASWD
PASWOR
POWER
PRFLGS
PRGER
PRINTC
PRINTF
PRI0O =
PRIO1 =
PR102 =
PRIO3 =
PRI0& =
PRIOS =
PR106 =
PR10O7 =
PRNTST
PRO.CM
PRPOS
PSNFG
PTAB.S
PTIME
PUTCHR
PWRFLG
PWR.FA
PWR.FL
PWR.MS
PWR.SA

PWR.UP
P.CLK.
RDBDSC
RDBSEX
RDBSF]
RDFACT
RDFIEL
RDHDR
READ

011660
064652
017526
017540
002260
060376
006242
017642
002000
006150
000001
000001
000001
000001
000001
000001
000001
0000C1
064106
060074
041130 G
002274
003656
010326
002216
003556
061720
065226

000000
000040
000100
000140
000200
000240

G
G
6
G
G
G

000300 G
000340 6

061610
046060
002252
013476
041400 6
010572
060424
002374
071550 G
041206 6
071676
Q71672
071674
045520
021710
023174
023124
023026
023066
000014

002360
003012
MCRLF
007552
MDERS
003171
MDHEDR
002000 G
MDONE
003541
MDRTYP
006431
MEM.ST
0465556
MHDER
003242
MINUTE
00233&
MIN.IN
041172 G
MIN.US
041174 G
MK
= 000001
MODR
070656 6
MF
= 000006
MRDER
003217
MRLCS
002406
MSFER
003144
MSG
007555
MSG.AD
041140 6
MSG.TY
041114 G
MSKER
003133
MSREC
002762
MSTWRT
006020
MIEST
011012
MUL
070612 G
MWRITE
004100
NEWBSF
020614

9-FEB-79

MAXWC
MBLD

MACRO v03.01

o
o
o
o

ROUTINES

TABLE

ASSEMBLY

SYMBOL

READ.P
RECNT
REGBAC
REGSAV
REQN.P
REGN.T
RESTAR
RETRY
RE.SET
RLICLM
RPTCOD
RSEEK
RSTACK
SAVEDO=
SAWFWD
SAWREV
SEARCH
SECMAX
SECMSK
SECNUM
SECOLD
SECOND
SEEK
=
SEGSTA
SELDRV
SELTBL
SERNM1
SERNMZ2

066610
002256
071300
071264
041170
046062
010226
002172
042652
005627
007650
002236
070540
043050
006452
006500
062546
013466
002266
013470
013472
002332
000006
041414
010470
010330
002224
00227

G
6
G
6

SVCINS= 000000

0462 ¢
002162
0460562 G
Q71376 G
000004
000001

SKHS
=
SK10
=
SKWRT =
SMSG
SMSK
SN1
SN2
SOFTCS
SPE
=
SPEC.U
SPTCOD
SPV.SE
SRD1
STARMS
STARTC
STBLE
STFLG
STRCHR
STREAD
STRT.T
STWRT

000020
010000
024044
003101
002272
002364
002366
002240
004000
066006
007636 6
000400
017404
002472
070266 G
010370
002602
061300
017402
046064
023612

002164
025062

042716
046070
043752
041360 6
041532 G

SUP.PR
042470
Sv(GBL= 000000
SVCHAN
050406

SET.MA
SFTCNT
SFTPRM
SHIFT
SIGN
=
SKDON =

SKECNT
SKFNC

ST.SET
SUNIT.
SUPERV
SUPFLA
SUPV.T

1$C0DC=
T$ERCO=
TSERRN=
T$EXCP=
TSHILL=

001052
000063
001022
000000
177777

T$L0LI= 000001
T$LSYM= 010000
TSNEST= 177777
T$NSX0= 000000

SV(SuB= 177777
SVCTAG= 000000
SVC1ST= 177777

TINSK1= 000005
T$SAVL= 177777
T$SEGL= 177777

SWCHAN
SWITCH
SWRT1

045700
064552
023614

T$SUBN= 000000
TSTAGL= 177777
T$TAGN= 010015

SWSEC
SW.ADR
SW.PTA
SYSCLK
SYSMSK
SYS.FT
S$LSYM=
TBLFUL
TDR
TEMPO
TEMP1
TEMP2
TEMP3

003426
041154 6
045664
002354
002262
054432
010000
005714
002246
002320
002322
002324
002326

TSTEMP=
T$TEST=
T$1STM=
1$7S1S=
T$$AU =
T$$CLE=
T$80U =
T$SHAR=
T$$HW =
T$SINI=
T$$MSG=
T$$RPT=
18$50F=

TERMI
TERML]
TERMTA
TEST.M
TEMSG
THARD

THISOR
TILLEN

TIME
TIMFLG
TIM.CO
TIM.0P
TITLEX
TMMSG
TO0.MA
TRPFLG
TRPHAN
TSOFT
1ST.AB
TST.70
TYPEC
TYPE2C
TYPFLA
TYPLIN
TYPNUM
TYPSTR
TYP.ER
TY.UNL
T$ARG(=

066576
064400
060362
046020
002606
002725

006575
005770

007560
041350 G
041202 6
055006
002110
002636
060342
002376
010564
002670
050330
042532
060736
054632
064256
060634
000216
060654
054462
J47474
000002

T$$SRV=
T$$Sw =
T$$TES=
1R
UNIT.D
UNI.MA

USER.P
USER.T

uuT
VALID.
VALSN
VAL.LA
VAL.SW
v(
=
VERIFY
WCPAT
WwDE
WGE
=
WHATCM
WIDTH
WL
=
WNXSEC
WNXTRK
wRBUF
WPCHK =
WRINIT
wRIPG
WRITE =
WRPACK

000000
000001
177777
000001
010007
010006
010010
010013
010002
010005
010001
010004
010014

010012
010003
010011
011012 6
041132 6
046010

041374 6
041376 G

002362
041634
005660
042454
046120
001000
004063
026374
100000
002000
011310
055402
020000
023736
023770
026324
000002
002276
002250
000012
023434

ASSEMBLY ROUTINES
TABLE

MACRO v03.01

SYMBOL

ABS.

Sea 0100

006531
006553
015122
002170
003277
007642
002370
071720
000000

ERRORS DETECTED:

180-4

WRTSAW
WIRDY
WISEC
XEQD]A
XEQsSuB
XEQ.CL
XEQ.CM

007640
023264
026120
070624 6
070412 G
050134
065444

000
001

18517 WORDS
VIRTUAL MEMORY USED:
( 73 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
70 PAGES
(ZRLMA _BIN,CZRLMA-#5SV(RT/M,CZRLMA,DOCTOR/E
: 5BL

XEQ.IN
XEQ.LA
XEQ.QP
XEQ.FR
XEQ.TE
XT]MF
KTIMEN

047616
043705
047710
043110
047756
067276 G
070122

XTIMST
067320
XXDP.D
045464
X$ALWA= 000000

X$FALS= 000040
X$0FFS= 000400

X$TRUE= 000020

$8REG
$ENDAD
$SAVZ
$SAV3
$SAVL
$SAVS

046160
070376 G
071442 G
071456 a
7147
71514
—

WR1BSF
WRICNT
WRTLCK
WRILIM
WRTLOK

19:46:54 PAGE

WRPKF

WRPKR

9-FEB=-79