Digital PDFs

AH-F134A-MC

May 1979

101 pages

Original

50MB

view download

OCR Version

73MB

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_gray.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
SEQ 0001

PRODUCT

C(ODE:

AC=F135A-M(

PRODUCTY

NAME
:

CIRLMAD RLOT/0C

CATE

THE

CREATED:

BAD

SECTOR

FILE

TOOL

5=JAN=79

MAINTAINER:

DIAGNGSTIC ENGINEERING

AUTHOR :

CAMPBELL

INFORMATION

TICE

AND

IN THIS DOCUMENT IS SUBJECT TO CHANGE
W!THOUT
NOSHOULD NOT BE CONSTRUED AS A (OMMITMENT BY DIGITAL EQUIP-

MENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
THE

SOF TWARE

(MASER

DESCRIBED

UNDER A LICENSE

THIS

FOR USE

DOCUMENT

ON A SINGLE

FURNISHED

COMPUTER

BE C(OPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)
gSfDlé?IRU(“ SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED
\

PUR-

ONLY
FOR
IN WRITING

DIGITAL EQUIPMENT
OR RELXABILITY OF
DIGITAL,
(OPYRIGHT

THE

SYSTEM AND (AN

(()

CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
ITS SOFTWARE ON EQUIPMENT THAT [S NOT SUPPLIED BY

1979,

DIGITAL

EQUIPMENT

CORPORATION

———

TABLE

=
.
.

N
==

et et

.
o
.

.
L

NES Nt cd N\

S WNONONININY
=

N
=t et e

~
oo

5.0

—

GENERAL

(ONTENTS

INFORMATION

PROGRAM ABSTRACT

STRUCTURE OF PROGRAM
DIAGNOSTIC INFORMATION
SYSTEM REQUIREMENTS

HARDWARE REQUIREMENTS
SOF TWARE REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS

DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPT JONS

OPERATING INSTRUCTIONS

HOW TO RUN THIS DIAGNOSTIC
THE SIX STEPS OF EXECUTION
SAMPLE RUN=THROUGH

DETAILS OF

COMMANDS AND SYNTAX

TABLE OF COMMAND VALIDITY
COMMAND SYNTAX
HARDWARE PARAMETERS

SOF TWARE PARAMETERS

ERROR

INFORMATION

DEVICE

L J

PERFORMANCE

TEST

AND PROGRESS REPORTS

INFORMATION TABLES

SUMMARIES

PAGE

SEQ 0002

—

GENERAL

PAGE

INFORMATION

PROGRAM A8$1RACT

1.1.1

STRUCTURE OF

PROGRAM

THIS DIAGNOSTIC OCCUPIES 14.5k WORDS OF MEMORY
AND
IS
COMPATIRLE
WITH BOTH XXDP AND ACT.
IT IS TO BE RPUN STANDALONE UNDER XXDP.
T

IS A SINGLE PROGRAM FROM THE STANDPOINT OF

WE
HAVE
RELEASED

THE DIAGNOSTIC USER, BUT

INCORPORATED INTO IT A CONTROL MODULE WHICH WILL LATER BE
INDEPENDENTLY AS A DIAGNOSYIC SUPERVISOR.

WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS 200, CONTROL GOES
FIRST
10 THE SUPERVISOR PORTION, WHICH WILL ASK CERTAIN ''MARD CORE'' QUES~
TIONS ABOUT THE ENVIRONMENT.
THEN IT WILL ENTER COMMAND MODE,
IN-

DICATED

BY A PROMPT CHARACTER (DS B>).

TOR MAY ENTER ANY OF

THE

SUPERVISOR

AT COMMAND MODE THE OPERA-

SEVERAL COMMANDS AS DESCRIBED BELOW.

CODING FOLLOWS

IMMEDIATELY

THE

DIAGNOSTIC

TEST

(OD-

ING,
BUT
THE
SUPERVISOR
LISTING HAS BEEN SUPPRESSED FOR GENERAL
DISTRIBUTION.
A LIMITED DISTRIBUTION HAS BEEN MADE TO
FIELD
SER-

VICE OF THE SUPERVISOR ASSEMBLY LISTING,
EVENT OF A SOF TWARE PROBLEM.
1o .2

DIAGNOSTIC

AND

IT MAY BE

CONSULTED

INFORMATION

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

VERIFY

RLOT

THE DATA BY READING SHOULD TAKE LESS

AND LESS

THAN 2 MINUTES FOR AN RLOZ.

THAN 1

MINUTE

PROGRAM,
AND THEN

FOR

SYSTEM REQUIREMENTS

PDP=11/LS]=11

(ONSOLE
1

DEVICE

PROCESSOR WITH

16K

OR MORE

MEMORY

(LA30O,LA36,VTS50,E7C.)

OR 2 RLT1/RLVIT

CONTROLLER(S)

WITH:

= 8 RLOT

DRIVES WITH RLOTK

CARTRIDGES CONTAINING

°'BAD

= B8 RLO2 DRIVES WITH RLO2K

CARTRIDGES CONTAINING

'BAD

SECTOR FILE'

SEQ 0003

E
*

¥Wwl1P, xW11L

(OPTIONAL)

* LINE PRINTER

(OPTIONAL)

1.2.2

TOOL

RELATED DO(UHENTS AND STANDARDS
RLOT USERS MANUAL
XXDP USERS MANUAL

1.4

(EK=RLO1-PG=PRE)

DIAGNOSTIC HIERARCY PREREQUISITES

THE RLO1/702 SUBSYSTEM SHOULD HAVE

PROGRAMS:

1.5

SUCCESSFULLY

RUN

THE

FOLLOWING

CVRLAAOD

RLV1T RLO1/02 DISKLESS TEST (RLV11 ONLY)

CZRLJAOD
CZRLKAOD

RLO1/7/02 DRIVE TEST (PART 2)
RLI1/RLVIT RLO1/02 PERFORMANCE EXERCISER

CZRLGAD
CZRLHAD
CZRLIAO

RLT11/RLVTY RLO1/02 CONTROLLER TEST
RL11/RLVIY RLO1/02 CONTROLLER TEST
RLO1/02 DRIVE TEST (PART 1)

(PART 1)
(PART 2)

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

ETC.,

THIS UTILITY wiLL

FOR

NOT FUNCTION PROPZQLY.

COMFORM TO ALL

DIAGNOSTIC SUPERVISOR.
THE

INTERNAL

FORMAT

THE

BAD

INTERFACE

SECTOR

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

FILE

SPECIFICATIONS

WILL BE

OPERATING INSTRUCTIONS

THE

SAME

WORK
DO

THE

AS DES-

FOR REPORTING AND UPDATING THE

NO SUPPORT WiLL BE GIVEN FOR THE RLBA/RLO1 DISK
PDP=8 SYSTEM...THIS IS A PDP=11 UTILITY ONLY!

2.0

SOF TWARE REOUIREHENIS

(ZRLMAD RLO1/702 BAD SECTOR FILE

1.9

PAGE

CONTROLLER

ANY

LRk

SEQ 0004

PAGE 5

HOW TO RUN THIS DIAGNOSTIC

1.1

THE

SIX STEPS OF

EXECUTION

THIS UTILITY SHOULD BE LOADED AND STARTED USING NORMAL

XXDP

THE

IT.

DURES.

THE

START

UTILITY HAS THE

WHEN THIS UTILITY

PROPER TRANSFER ADDRESS CODED

IS STARTED,

THE

RS2

* STEP 1
SERIES OF

L=CLK

P=CLK

SOHZ

LSl
LPT

MEM
THE

(K)

DEFAULTS

THE

P=CLOCK

(L) N ?
(D)

P=(LOCK?

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

HOW MANY K OF

MEMORY

ARE

(SHOWN AFTER EACH QUESTION)

CAN BE

SELECTED BY

CARRIAGE RETURN.

BE ASKED:

IS THERE AN L~-CLOCK?

N ?

(L) N?
(L) N ?

ASKED:

MEANING

(L) N ?
(L)

""HARDCORE QUESTIONS'' WILL BE

QUESTION

INTO

FOLLOWING STEPS WILL OCCUR:

(A2 2222

A SHORT

PROCE-

COMMAND SHOULD NOT SPECIFY AN ADDRESS, BECAUSE

IS POSSIBLE

FOR EXAMPLE,

THAT NOT

ALL OF

YOU SAY '‘YES'' T0 THE

QUESTION WILL NOT BE

THERE?
«1TTING

THE QUESTIONS WILL

L=-CLOCK

QUESTION,

ASKED.

IF NEITHER P OR L CLOCK ARE ANSWERED YES THE OPERATOR WILL BE ASKED

T0 TYPE

TWO CHARACTERS & SECONDS APART.

teRERRERERY

* STEP 2 »
tERERERREREY

WHEN YOU HAVE

ISSUE

ANSWERED ALL

THE PROMPT ''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
WILL
REFER
TO
THE PRESENCE OF THIS PROMPT AS BEING IN DIAGNOSTIC
COMMAND MODE, AS OPPOSED TO XXDP COMMAND MODE.
AT

THIS POINT

SAME

YOU WILL ENTER A ‘'START'' COMMAND.

THIS

AS THE XXDP ‘'START'' COMMAND, WHICH YOU ALREADY

NOT

THE

ISSUED IN RES-

PONSE TO THE XXDP DOT PROMPT.
THIS
‘''START''
COMMAND
CAN
TAKE
NUMBER
OF SWITCHES AND FLAGS (ALL OPTIONAL).
HOWEVER, IN ORDER
USE THE PROGRAM, ALL YOU NEED TO SAY ]S SOMETHING LIKE THIS:

A
TO

SEQ 0005

PAGE 6

STA
THINGS TO NOTE HERE:
ANY
COMMAND
AT
THE

ONLY THE FIRST THREE (HARACTERS
‘''DS=B>"" LEVEL NEED TO BE TYPED.

S:égtzaglv SPECIFY ANY OF
HOE

HALT

1ER

A NUMBER OF

FLAGS, BUT

THE

OF
THIS
OR
THE "‘FLAGS"

MAIN

USEFUL

ON ERROK

INHIBIT ERROR PRINTOUT

RRERRESY

* STEP 3 +
(22222222

WHEN YOU HAVE TYPED IN A "'START'' COMMAND,
THE
UTILITY
WILL
COME
BACK
WITH
THE
QUESTION "'# UNITS?' TO WHICH YOU SHOULD RESPOND BY
BVPI?GDA? E?E NUMBER OF DEVICES YOU WISH TO TEST (THE UTILITY
WUSES
NY

VE).

trATARERRER

* STEP 4 +
(222222220

WHEN YOU HAVE
TY
WILL
ASK
QUESTIONS ARE

?E;¢EEES".

TYPED
YOU
USED

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

ONE HARDWARE P-TABLE WILL BE BUILT FOR EACH UNIT

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

REPRESENTS

NEW

PHILOSOPHY

TO TEST

DFVICE.

DIAGNOSTIC

TO BE

SERIES wILL

ENGINEERING.

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

INFORMATION

THEY NEED

THE

tEERRERERY

* STEP 5 «
fERARRETRY

AFTER

UNITS,

YOU HAVE

YOU

ANSWERED

ALL

THE

HARDWARE

WILL BE 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 TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS,
TYPE “N''.
IF YOU TYPE "'v"" YOU WILL BE
ASKED
THE
SOFTWARE
QUES-

TIONS, AND
PROGRAM,

THE

ANSWERS WILL

PUT

INTO

THE

SOFTWARE

P=-TABLE

THE

SEQ 0006

PAGE

A AR AR R SRS

« STEP 6 »
(ALARl
22 2]

AFTER YOU HAVE

ANSWERED THE

SOF TWARE QUESTIONS,

THE

UTILITY

WwILL

HAPPENS,

DE-

BEGIN
1O
EXECUTE.
THERE ARE SEVERAL THINGS THAT CAN HAPPEN NEXT,
DEPENDING ON WHETHER A HARDWARE ERROR 1S ENCOUNTERED
AND
ALSO
ON
WHAT

SWITCH VALUES YOU SELECTED ON THE

AN ERROR IS ENCOUNTERED, THEN ONE OF

PENDING ON THE
HOE

SETTINGS Of

SET:

LOE SET:

START

COMMAND.

THREE THINGS

THE HOE AND LOE FLAGS.

THE ERROR WILL BE REPORTEI ON THE CONSOLE
THE UTILITY WILL RETURN TO COMMAND MODE.

AND

THE UTILITY WILL LOOP ENDLESSLY ON THE BLOCK
OF CODE THAT DETECTED THE ERROR.

NEITHER HOE NOR LOE

SET:

THE ERROR WILL BE

REPORTED ON

THE CONSOLE AND NORMAL EXECUTION WiilL
AS IF NO ERROR HAD OCCURED.

RESUME

SEQ 0007

1
PAGE &

2.1.2

SAMPLE RUN=-THROUGH = COMMON TO DIAGNOSTIC SUPERVISOR

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

;gilsgb?gLE

7O RUN THE DIAGNOSTIC.

NO ERRORS

ARE

ENCOUNTERED,

REQUESTED PASS wiLL BE EXECUTED AND THE PROMPT WiLL BE

AN ERROR IS ENCOUNTERED, THE ERROR

WILL

REPORTED

AND

THE

ALL

PROMPT
WILL
BE
REISSUED
(BECAUSE THE HOE FLAG IS SET).
AT THIS
:81?; THERE ARE FOUR DIFFERENT WAYS YOU CAN GET THE
PROGRAM
GOING

ISSUE

ANOTHER ''START'® COMMAND

STEPS 2, 3, 4, 5, AND 6 AGAIN)

(THUS

ISSUE A "RESTART'' COMMAND (SAME AS

THAT

THE

HARDWARE QUESTIONS ARE NOT

GOING

START

ASKED)

THRU

(COMMAND

EXCEPT

ISSUE A "‘CONTINUE'' COMMAND (EXECUTION WILL RESUME
AT
THE
BEGINNING OF
THE PARTICULAR HARDWARE TEST (MOST DIAGNOSTICS CONSIST OF A NUMBER OF THESE) THAT IT WAS IN WHEN THE
ERROR HALT OCCURED.
NO QUESTIONS ASKED.

ISSUE

A "'PROCEED'' COMMAND:

INSTRUCTION

COMMAND AND CAN BE
THE

MOST

TYPICAL

DIFFERENT

THING

EXECUTION WILL

FOLLOWING THE ERROR REPORT
ISSUED ONLY

TO DO HERE

FLAG SETTINGS.

PROBABLY

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

A HALT

ISSUE

THE

YOU WOULD WANT

RESUME

THE

PROCEEC,

BUT

WITH

(THIS

IS A SPECIAL

TO SAY:

SEQ 0008

THIS WILL DO THE

FOLLOWING:

TURN ON THE

TURN ON THE LOE FLAG

TURN OFF

RESUME

iER

C(INMIBIT

ERROR PRINTOUT)

FLAG

THE HOE FLAG

EXECUTION AT

INSTRUCTION AFTER ERROR REPORT

THE DIAGNOSTIC WiLL NOW LOOP ON THE BLOCK OF CODE THAT
REPORTED THE ERROR, BUT NO ERROR PRINTOUT WILL OCCUR.

DETECTED AND
THUS YOU CAN

STUDY THE ERROR OR SCOPE

1T OR WHATEVER.

WHEN YOU'VE

YOU MAY HIT

CONTROL/C.

THIS WILL

LET'S SAY YOU'VE REPAIRED THE DEFECT

FOUND ABOVE

AND WANT

OUT

THREE

SEEN ENOUGH,

THE LOOP AND PUT

START

RESTART

CONTINUE

YOU BACK

CHOICES:

RUNNING THE

PAGE 9

DIAGNOSTIC.

YOU WOULD

INTO COMMAND MODE.

TAKE

YOU

YOU NOW HAVE

TO FINISH

TYPE

CON/FLAG
: JER=0:LOE=0
S:HOE
THIS WiLL RESTORE

THE

FLAGS

TO THEIR ORIGINAL

VALUES AND RESUME

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

AT END OF

TwO CHOICES:

PASS YOU WANT

START

RESTART

TO RUN THE

DIAGNOSTIC

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER
HAKDWARE QUESTIONS AGAIN.

AGAIN,

YOU WANTED

YOU

TO ANSWER

EX-

THE
THE

HAVE

THE

SEQ 0009

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

ABOVE

DIALOGUE

MIGHT

BY
WHOM
ENTERED

R CZRLMA

CZIRLM

L=CLK

S0HZ

(L) N 2

(L) N ?

LSl (L) N?
LPT (L) N ?
MEM (K) (D)

0.0

D
D

16 ?

05=-B>STA
¥ UNITS

0.0
(D)

0.0

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

174400 ?

D
0.0
0.0

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

174400 ?

D
0.0
D.O

(HANGE

(L)

? N

0.0

CZRLM HRD ERR 00004 TST 003 suB 002 PC:004130
ERR HLT

DS=B>PRO/FLAGS: JIER:LOE :HOE=0
(R AAAAAA

0.0

ARARttt
0

THIS POINT

THE

DIAGNOSTIC

IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.
THE

ERROR UNTIL

YOU HAVE

LOCATED

R R P PR R AR RN

YOU CAN SCOPE

IT,

THEN “C

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

0.0

E?ANGE

0,0

SWw

(L)

OUT

R RN TR AR OO RR

LOOK

1
PAGE

THIS

SEQ 0010

DS=B>RESTART/PASS:1

0.0

CHANGE SW (L)

0.0

2.2

DETAILS OF

2.2.1

TABLE OF

(OHHANDS AND SYNTAX

CCMMAND VALIDITY

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

COMMAND MODE,
AND
DIFfAVAILABLE WITH EACH:
LEGAL COMMANDS

OPERATOR ENTERED

D JIAGNOSTIC HAS FINISHED ALL

'RUN DIAG'

I 1S REQUESTED PASSES

START
PRINT
DISPLAY
FLAGS
ZFLAGS

START

RESTART

PRINT
DISPLAY
FLAGS

ZFLAGS

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START

RESTART
CONTINUE
PRINT
DISPLAY
FLAGS
ZFLAGS

AN ERROR WAS ENCOUNTERED

START

WITH

RESTART
CONTINUE
PROCEED
PRINT

THE

PAGE 11

HOE

FLAG SET

SET

DISPLAY
FLAGS

LFLAGS

SEQ 0011

n
PAGE

2.2.2

COMMAND SYNTAX = STANDARD TO THE DIAGNOSTIC SUPERVISOR

LA AR AR AR A

AR AR A

2R 2222222222222222222222;

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

AR AR A

AR A

THE DIAGNOSTIC

SPECIFIED.

MAY BE

22222

IN CORE

THE

IS EXECUTED

2222 2222222222222222223

IN ACCORDANCE WITH THE

MESSAGE ''# UNITS?" IS PRINTED.

SWITCHES

THE START COMMAND

ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE

THE FOLLOWING:

A) OPERATOR TYPED '‘RUN DIAGNOSTIC' B) DIAGNOSTIC

FINISHED EXECUTING C)

OPERATOR

ENTERED

ERROR WAS ENCOUNTERED WITH HOE

CONTROL/C.

AFTER

THE

UNITS?", THE HARDWARE DIALOGUE IS INITIATED.

FLAG

SET

OPERATOR RESPONDS TO ''#

WHEN IT IS COMPLETED,

THE
QUESTIONS
°“'CHANGE
BECOME THE NEW DEFAULTS.

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

THE

AS FOLLOWS:

PROGRAM IN ORDER TO RETURN TO THE LOAD DEFAULTS.
SWITCH ARGUMENTS ARE

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

REGARDLESS

THE ORDER OF

CUTE ALL TESTS.

SPECIFICATION.

"PASS=CNT'* IS A DECIMAL NUMBER INDICATING

THE DEFAULT

THE

DESIRED

IS TO EXE-

NUMBER

WHEN

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

HALT ON ERROR,

CAUSING COMMAND MODE

ERROR IS ENCOUNTERED

TO BE

ENTERED

LOE LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP
CONTINUOUSLY
WITHIN
THE SMALLEST DEFINED BLOCK OF CODING (SEGMENT, SuBTEST,

TEST)

CONTAINING THE

ERROR

IER INMIBIT ERROR REPORTING
IBE

INHIBIT BASIC ERROR REPORTS

IXE

INHIBIT EXTENDED ERROR REPORTS

PRI

DIRECT

PNT

PRINT NUMBER OF

ALL MESSAGES

BOE BELL ON ERROR

TC A LINE

PRINTER

TEST BEING EXECUTED

SEQ 0012

N1
PAGE i3

UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL

INTERVENTION TESTS

ISR INHIBIT STATISTICAL REPORTS
IDU INHIBIT DROPPING OF
THE

UNITS BY DIAGNOSTIC

FLAGS NAMED OR EQUATED TO 1

CLEARED.

ARE

SET,

THOSE

A FLAG NOT SPECIFIED IS CLEARED.

NOT GIVEN ALL FLAGS ARE

CLEARED.

EQUATED

1IF

"EOP=INCR'* 1S A DECIMAL NUMBER INDICATING HOW OFTEN
PASSES)
DEFAULT
LAAAA

1T 1S DESIRED THAT THE END OF
IS AT THE END OF EVERY PASS.

AL A

PASS MESSAGE BE

ARE

THE FLAGS SWITCH IS

222

(IN

TERMS

PRINTED.

Of
THE

222222222222222

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

UNITS:UNIT=LIST
LAAA

AR A

THE DIAGNOSTIC

IN CORE

SPECIFIED.
HOWEVER,
ONES IN CORE ARE USED.

iRt

1S EXECUTED

NEW

IN ACCORDANCE

RS2

2222222222222¢2

WITH

THE

‘'P-TABLES'' ARE NOT BUILT.

SWITCHES

INSTEAD,

THE

THE QUESTION "‘CHANGE SW?'* 1S ASKED AND THE ANSWERS GIVEN BECOME

THE

NEW
DEFAULTS.
THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN
ESIESSDICVIA
A)
DIAGNOSTIC
IS
FINISHED
B)
HALT
ON
ERROR
()
NTROL/C.
THE

SWITCH ARGUMENTS ARE

IN THE

START

COMMAND EXCEPT:

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

TO THE ORDER IN WHICH THEY WERE BUILT.
THE
UNITS
SPECIFIED
MUST NOT HAVE BEEN DROPPED BY THE OPERATOR DROP (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.

L AAA A

THE UNIT=-LIST
AUTOMATICALLY

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

AR AA AR ARt

2222220222

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

AR AR ARttt
dRRR
Rl R

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

NOT

CHANGED.

SEQ 0013

e
——————————————————————

PAGE

THE

SWlT(H

ARGUMENTS

ARE

THE

START

DEFALT FOR PASS=(NT IS THE
PREVIOUS START OR RESTART

UNSFECIFIED FLAG SETTINGS ARE

(OMMAND

EXCEPT:

UNSATISFIED PASS=(NT

FROM

TuE

THE

EFf-

UNCHANGED

SR RNRTRSRRERRRERROERRRRERRORRRORTY

PROCCEED)
/FLAGS : <FLAG=LIST>
e RRRERRRRRERRRORRRORRRRORTREYS

COMMAND MODE MUST

HAVE BEEN ENTERED VIA A HALT

ON ERROR.

FECT OF THE COMMAND IS TO BEGIN EXEZUTION AT THE LOCATION FOLLOWING
lN%EE:ROR CALL.
NEITHER HARDWARE NOR SOF TWARE
PARAMETERS
MAY
BE
AL
C.
THE

SWITCH

LA A

ARGUMENTS

ARE

THE

SAME

THE

UNSPECIFIED FLAG SETTINGS ARE

AR AR AR R

AR A

START

COMMAND EXCEPT:

UNCHANGED

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

AR AR AR

AR A

)

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

BIC

RUN

FILE

MANUALLY

MUST

HANDLED

CHAIN MODE.

TIFFERENTLY
IF

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

NORED)

THE

PRE-GENERATED

RUN

IT WILL BEHAVE

IN CHAIN MODE,

SWITCHES

CAN BE

TiHE

THE

PRE-GENERATED

AUTOMATIC

EXECUTION WILL

SPECIFIED ON

THE

CCI

THE

COMMENCE

COMMAND PROMPT

BIN
G-

OPERA-

COMMAND WILL

CARRY

IMMEDIATELY

'DS-B>"" WILL

OVER WHEN

BIC FILE IS5 RUN IN (HAIN MODE (EXCEPT THAT UAM [S ALWAYS SET
BUT WILL NOT CARRY OVER WHEN 1T IS RUN MANUALLY.
TO DO A CCl

INVOKED

USED).

FROM
THE
XXDP COMMAND ‘‘.R DIAG'.
NOT BE ISSUED.
ANY

TO OPERATOR QUESTIONS WILL

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

TOR ANSWERS WiLL BE

ANSWERS

DEPENDING ON WHETHER

RUN MANUALLY

ON A FULL

SIZED DIAGNOSTIC

(14.5¢

WORDS),

THE

THERE)
MACHINE

SIZE LARGER THAN 16K 1S REQUIRED.
THE EXACT SI12% NEEDED DEPENDS ON
WHICH UTILITY IS USED TO EXECUTE THE DIAGNOSTIC AT (CI TIME,
DRO(P) /UNITS:UNIT=L]ST

SEQ 0014

PAGE

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY
ARE
ADDED
gA(: ng(g:glL A START C(OMMAND IS GIVEN.
A DROP CANNOT BE FOLLOWED
'

THERE IS ALSO A "'DROP'* MACRO
INTERNAL
TO
THE
DIAGNOSTIC,
WHICH
GIVES
THE
FACILITY
OF
AUTO-DROPPING.
THE DURATION OfF A PROGRAM
DROP, HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART.
tteRRERERERRRRARREROR
RY

ADD/UNITS:UN]IT=L]ST
ttrRRRRROERRRRRRAROERY

THE UNITS SPECIFIED ARE ADDED BACK (THEY MUST HWAVE BEEN
PREVIOUSLY
DROPPED
BY
THE DROP C(OMMAND) TO THE TEST SEQUENCE.
AN ADD CANNOT

FOLLOWED BY

A PROCEED.

PRI(NT)
ALL
THE

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

PRINTED.

TR RRRERRRRRRRNRERROROOARRRRREY

DISC(PLAY)/UNITS:<UNIT=LIST>
(AR AR

THE
THE

AR RS2
2]

HARDWARE P-TABLES FOR ALL
FORMAT IN WHICH THEY WERE

UNITS UNDER TEST ARE PRINTED
ENTERED.
ANY UNITS THAT WERE

THE OPERATOR ''DRCP'' COMMAND ARE

LA A2 2R

SO DESIGNATED.

FLACGS)
(AR
R R AR

THE

CURRENT

SETTINGS

seERTRRTRERYE

IFL (AGS)

ALL

FLAGS

ARE

(LEARED.

ALL

FLAGS

ARE

PRINTED,

OCuT
IN
DROPPED

—

SEQ 0015

2.%

PAGE

HARDWARE PARAMETERS
THE

FOLLOWING QUESTIONS

VALUE
THAT

WILL

LOCATED TO THE LEFT OF

WiLL BE

TAKEN ON A CARRIAGE

BUS ADDRESS

(0)

174400?

ANSWER WITH

THE

BUS ADDRESS OF

DRIVE

START

(OMMAND.

THE

IS THE DEFAULT

VALUE

RETURN RESPONCE.

THE

CONTROLLER.

(0) 0?

ANSWER WITH THE

DRIVE(S)

SOF TWARE

THE

ASKED

THE QUESTION MARK

CONNECTED

TO THE

CONTROLLER

PARAMETERS

FOLLOWING QUESTIONS ARE

ASKED

REQUESTED ON A START,

RESTART,

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

"'CHANGE S.w.

A YES ANSWER WILL ASK THE FOLLOWING SOF TWARE
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>.
(ONTROL Z (*Z) WILL DEFAULT ALL REMAINING QUESTIONS AND
START THE TEST.

"'SAWTOOTH WRITE CYCLE?

(L)

v ?"

""" THEN THE WRITE PACK COMMAND (#5) WILL CAUSE THE PACK

WRITTEN

A FORWARD AND REVERSE

DIRECTION UTILIZING A

'SAWTOOTH'

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

AN INCREMENTAL SEEK
MOST DIFFICULT.

"“WRITE
THE

DEFAULT

WRITE

MAY

3.0

COMMAND

POSSIBLE

ERROR

THIS

THE

CYCLES PER TRACK?

NUMBER

PACK

TIMES

(#5).

TO DETECT

INFORMATION

FASTEST

(D)

TO WRITE

2
A

BUT

NECESSARLY

THE

?"
SELECTED

A HIGHER NUMBER

TRACK

NOT

TRACK

DURING

1S SELECTED,

DRiFTING POSITIONER

THEN

PROBLEM.

THE

SEQ 0016

ERROR
THE

INFORMATION

'RLCS'

TRACK,

IS COMPLETE

AND DRIVE

IN GIVING ALL

INVOLVED

INFORMATION NECESSARY.

STATUS REGISTER ARE GIVEN AS WELL

SECTOR AND DRIVE

PAGE

AS CYLINDER,

IN ERRCR.

ANY DETECTED AARDWARE FAILURES WILL RESULT IN AN
APPROPIATE
ERROR
?gg:ggg
(THE
PROPER
DISK
SUBSYSTEM DIAGNOSTIC(S) SHOULD BE PER-

UNEXPECTED “'TRAPS' WILL RESULT

IN A PROPER ERROR MESSAGE

A POWER FAILURE WILL

PROGRAM TO RESTART.

CAUSE

THE LTILITY

TO RESTART.
CAUSE

THE

AND

WILL

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

THE UTILITY TO RESTART AFTER THE
NOSTIC ERROR MESSAGE PRINTED.

3.1

FAILURE

IS DIAGNCSED

AND

DIAG-

ERROR REPORTING
ALL ERROR
PORTS ARE

INFORMATION IS PRINTED ON THE CONSOLE
AIMED AT BEING SELF EXPLANATORY.

CAN BE

FOUND

DEVICE.

ERROR

RE=-

IN SECTION 5.0.

ERROR MESSAGES:

“DRIVE

1S NOT

READY FOR USE"'

THIS MESSAGE IS PRINTED WHEN THE SELECTED DRIVE 1S NOT ABLE TO PERFGRM
A
GIVEN
TASK,
THE
DRIVE WILL BE ELIMINATED FROM THE TEST
TABLE.

"'SEEK ERR'’
AN

ERROR

DETECTED

AFTER

SEEK

COMMAND

WAS

ISSUED.

"DR ERR WILL NOT RESET"
ISSUING A DRIVE

RESET

wOULD NOT

CLEAR

THE

DRIVE

ERROR CONDITION.

DR WOULD NOT LOAD"'
ON PROGRAM START,
BIT SET.

THE

SELECTED DRIVE

DID NOT

WAVE

"HEADS OVER PACK'

SEa 0017

"PACK
THIS

1S JUST

THIS WOULD

PAGE

1S WRITE LOCKED"
A WARNING MESSAGE.

INDICATE

AN ERROR.

A WRITE

COMMAND

ISSUED,

THEN

"'TIMEOUT - DR NOT RDY"
THE

DRIVE

WAS EXPECTED TO BE

IT NEVER FINISHED THE

'READY'

AFTER A COMMAND WAS

FUNCTION.

[SSUED AND

“'NO DRIVES"
THE

PROGRAM TRYED

TO SELECT

A DRIVE

FOR USE

BUT

FAILED

TO FIND ONE.

"'UPDATING DENIED = INVALID PASSWORD"'
NORMALLY, THIS PROGRAM WILL
NEVER
PRINT
THIS
MESSAGE!
PROGRAM
PASSWORD
CHECKING
IS
NORMALLY INHIBITTED.
A USER MAY INVOKE THE
FPASSWORD CHECK IF THE WORD '‘PASWD'' AT ADDRESS 2274 1S CHANGED T0O
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"
THIS

TION

INDICATION

"WRITE'

CANNOT BE

THAT

THE

PACK

COMPLETED.

"BAD READ OF BAD SECTOR FILE
AN ERROR

THE

WAS

DETECTED

"FACTORY'

"MORE
THIS MESSAGE

WHILE

'FIELD'

THAN 25.
WARNS

THE

TRYING

AREAS

WRITE

PROTECTED

THE

FUNC-

DATA

FROM

(20 SECTURS)"
READ

SECTORS

IN THE BAD SECTOR FILE.

BAD SPOTS FOUND ON THIS PACK"
USER

THAT

THE

SELECTED

PACK

ALREADY

HAS

THAN
25.
ENTRYS
IN THE BAD SECTOR FILE.
THE PACK SPECIFICATION
ALLOWS ONLY 16.
BAD SPOTS ON THE PACK BEFORE THE PACK
S
(CLASSIF1ED AS 'BAD'.

"'SOFT ERR ENCOUNTERED"'
DURING A WRITE OR READ DATA FUNCTION,
THE

ERROR

ALSO REPORT

THE

STARTING

THE

CONTENTS OF

THE

DRIVE

TRANSFER AND

CRIVE

AN ERROR HAS

WILL

STATUS,

BEEN

SECTOR

NUMBER

‘RLCS'

DETECTED.
THE

DATA

AND

THE

SEQ 0018

PAGE

RE-

"'"HARD ERROR''
THIS MESSAGE

INFORM

THE

USER

THAT

THE

"SOFT'

COULD NOT

COVERED.
THE
STARTING SECTOR NUMBER CF THE DATA TRANSFER wiLL
RECORDED FOR LATER USE IN UPDATING THE BAD SFCTOR FILE.

"RLOT MAX CYL = 255."
THE

USER

CANNOT

VALID DISK

ADD

ADDRESS.

TO GR DELETE

FROM

THE

BAD

SECTOR

FILE

ANY

[IN-

"ENTRY ALREADY EXISTS IN THE BAD SECTOR FILE"
A REDUNDANT

ENTRY

CANNOT BE

"'NO SUCH ENTRY

IN THE

AN ENTRY DOES NOT EXIST

FILE,
THEN
TRYS IN THE

ENTERED

INTO THE

°'FIELD'

IN THE

BAD

SECTOR FILE.

FILE"

'FIELD'

AREA OF

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

THE

BAD

SECTOR

THIS PROTECTS EN-

"'NO FACTORY FILE FOUND''
THE

PROGRAM TRIED

TO READ

THE

FIRST

SECTORS OF

THE

LAST

TRACK

IDENTIFY
THE
‘FACTORY'
BAD SECTOR FILE...AND FAILED TO MAKE THAT
IDENTIFICATION.
EITHER THE 'FACTORY' FiLE
WAS
DESTROYED
OR
THE

DATA ON THIS

TRACK DOES NOT

COMFORM TO THE

'DEC

STD-144"

SPEC.

"NO FIELD FILE FOUND"
SAME

3.2

AS FOR THE

FILE MESSAGE

ABOVE.

ERROR HALTS

ERROR HALTS ARE
WITH /FLAG:HOE.
4.0

°'FACTORY'

SUPPORTED PER DESCRIBED
IN
THERE ARE NO OTHER HALTS.

PERFORMANCE

THIS PROGRAM WILL

THE

AND PROGRESS REPORTS

NOT

GIVE

ANY

PERFORMANCE

REPORTS.

SECTION

SEQ 0019

6.2

PROGRESS REPORTS

THIS PROGRAM WILL NOT

DEVICE

GIVE

ANY

PROGRESS REPORTS.

INFORMATION TABLES

THE RLT11/RLV1T CONTROLLER HAS THE
CONTROL OF THE SUBSYSTEM.

FOLLOWING FOUR(4)

RLCS = CONTRCL AND STATUS REGISTER

(XXXxXx0)

= COMPOSITE ERROR

= DRIVE ERROR

= NON EXISTANT MEMORY ERROR
= HEADER NOT FOUND (WITH BIT

= DATA LATE

BIT
BIT

(WITH BIT

10 SET)

10 CLEAR)

= HEADER CRC (WITH BIT 10 SET)
= DATA CRC (WITH BIT 10 CLEAR)
= OPERATION INCOMPLETE

9/8 - DRIVE SELECT (0-3)
7 = CONTROLLER READY

BIT

6 = INTERRUPT ENABLE

BIT
BIT

& - EXTENDED BUS ADDRESS (BIT 16)
FUNCTION CODE
= NOP (PDP-11) MAINT (LSI-11)

BIT

5 - EXTENDED BUS ADDRESS (BIT
OV
LW
—=O )

5.0

PAGE 20

= WRITE

17)

CHECK

GET DRIVE STATUS
SEEK

READ HEADER
WRITE DATA

READ DATA
READ WITHOUT HEADER C(OMPARE

0 - DRIVE READY

RLBA - BUS ADDRESS REGISTER

(XXXXX2)

BITS 15=1 BUS ADDRESS OF DATA TRANSFER
BIT 0 SHOULD BE 0
RLDA

= DISK

ADDRESS

FOR READ/URIYE

FUNCTIONS

(XXXXX&)

REGISTERS

FOR

SEQ 0020

BIT

15=7 = CYLINDER ADDRESS FOR TRANSFER

BIT 6 = SURFACE FOR TRANSFER

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

SEEK

FUNCTION

BIT 157 = DIFFERENCE 0 NEW CYLINDER
BIT 6-5 - MUST BE ZERO (0)

BIT & = SURFACE (0=UPPER, 1=LOWER)
BIT 3 - MUST BE ZERO (0)
BIT 2 = SEEK DIRECTION( 1=IN /7 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
BIT 0 - MUST BE ONE

(1)
(1)

RLMP = MULTIPURPOSE

BIT

15 = 0 = WORD COUNT

(TWO'S COMPLIMENT)

FOR READ HEADER FUNCTION

BIT

15-0 = DISK HEADER OF

FOR GET

STATUS

b
—a
—

NOOVO=—=NWwWHWm

s
bee

) =

By b

) e
)

e b
e
b

) o)
-

HAS DRIVE

0D CD T 0O 0o O O O

SECTOR (FIRST READ)

= ZERO WORD (SECOND READ)
= HEADER CRC (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 SELECT ERROR (DSE)
DRIVE TYPE IS RLO2 IF SET

PAGE

SEQ 0021

6 - SURFACE

(U=UPPPER,

5 = COVER OPEN

PAGE 22

1-LOWER)

& = HEADS HOME

6.0

|
N
B
B
I
B
LI

NOWVMESs
W
—=O

3 = BRUSHES HOME
2=0 =STATE BITS
= LOAD STATE
SPIN UP
BRUSH CYCLE

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

UTILITY = SUMMARY OF

COMMANDS

REPORT

THE

CONTENTS OF

THE

BAD

SEC(-

TOR
FILE
BOTH
THE ''FACTORY'' AREA
AND THE ''FIELD'' AREA
ADD A SECTOR TO THE BAD SECTOR FILE

IN THE "'FIELD'" AREA OF THAT FILE

REMOVE

A SECTOR

FILE =

(ONLY

READ THE PACK
(READ ONLY)
WRITE

DATA

FROM THE BAD SECTOR

IN THE "'FIELD'" AREA)
BAD

SPOiS

THE PACK WITH THE WORST

CASE

PATTERN

FIND

THEN

ISSUE

THE

'VERIFY'

COMMAND TO FIND BAD SPOTS.

ATTEMPT
FILE IF

TO GENERATE THE BAD
SECTOR
1T HAS BEEN DESTROYED ACCI~-

DENTLY.

ONLY

:étk

THE LIST

MAND
S

MADE

THE

‘''DUMMY'"

ENTRY

AVAILABLE

(OM-

FOR

THE

''FACTORY'

SEQ 0022

CIRLMAD RLO1/2 BSFT
TABLE OF

23~
23~
24~
252526~
28~

29~
3030~
3=

N
it \ N e

o
clh \JN i

179

280
364
37 1

i c

1=
1=

23
89

wn
o

1=
1-

CONTENTS

MACRO v03.01 9-FEB=79 19:46:5¢4

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

TO WAIT

FOR CONTROLLER READY

GET STATUS/DRIVE RESET ROUTINE

ROUTINE TO WRITE PACKS INITIALLY
ROUTINE FOR SYSTEM CLOCK
HEADS HOME ROUTINE

SEEK ROUTINE

ROUTINE TO CHECK FOR BAD SECTOR
DIAGNOSTIiC SUPERVISOR == LOW CORE

SET

SEQ 0023

CZRLMAD RLO1/2 BSFT

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

SEQ 0024

002000

000000
000000

LTITLE
.ENABLE
.ENABLE
NLIST

CZRLMAO RLO1/2 BSFT
AMA
ABS
ME,CND, MD

LMCALL

SvC

.=2000

Sv(

SVCINS=0
SVCTAG=0
POINTER ALL

002076
002100
002102
002104
002106

.WORD
.WORD
.WORD
.WORD

010372

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

CZRLM,A,0,0,0,0,RLOT,
, TITLEX
/C/
1/
/R/
/L/
M/

0
0

/A/

/0/
0
0
LSHARD
L$SOFT
LSHW
L$SW
LSLAST

OMNMMOOC rMoooo
ol

LSDISPATCH

m>o
om
——

002006
002007
002010
002011
002012
002014
002016
002020
002022
002024
002026
002030
002032
002034
002036
002040
002042
002044
002046
002050
%
0020%
002052
002054
002056
002060
002062
002064
002066
002070
002072
002074

MDHEDR
HEADER
LASCII
LASCII
.ASCII
LASCII
+ASCII
.BYTE
.BYTE
.BYTE
.ASCI1
+ASCI1
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD

OO0

BGNMOD

LSDVTYP
LSRPT
LSDR
LSDRST

LSAU
L$DU

14
TITLEX

LSINIT
LSCLEAN

002142
002142
002146
002146

002151
002154
002157

[ e TM
LTM L

ONVO VST O~NS

8 002110
002113
002116
002121
002124
002127
002132
002135
002140

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

1-1

SEQ 0025

ENDMOD
O—=OCOoOOsH v—

6 092110
7

MACRO v03.01

— et it O et s O D)
—_N=SrnoooNN
S HSFOwW—rN
=N

CZRLMAOD RLO1/2 BSFT

060
060

TITLEX:

114

000

114

054
060

?RLO1/02 BAD SEC FILE

TOOL?

102
040
103
111

04
157
.EVEN
DEVREG
.WORD
.BLKW
DEVTYP
LASCIZ

000000
122
061

.ASCIZ

060

122
062

.SBTTL

BIT

0
<RLO1,RLO2>

/RLOT,RLO2/

AND OFFSET

DEFINITIONS

;DEFINITIONS
002160

BGNMOD

002160

EQUALS

000000

000002
000004
000006

GLBEQAT

(5=0
BA=2

DA=4
MP=6

;CONTROL AND STATUS OFFSET
:BUSADDRESS OFFSET
;DISK ADDRESS OFFSET
sMULT] PURPOSE OFFSET

sCSR REGISTER
000001
000001
000100

100000

040000
020000
010000
004000
004000
010000
002000
000200
000040
000020

100000

040000
020000

SKDON=B1T0
DRDY=BITO

:DRIVE READY
s INTERRUPT ENABLE
;COMPOSITE ERROR
:DRIVE ERROR
;NON-EXISTANT MEMORY ERROR
:DATA LATE
;DATA CRC ERROR
sHEADER CRC ERROR
;HEADER NOT FOUND ERROR
;OPERATION INCOMPLETE ERROR
:CONTROLLER READY
;EXTENDED BUS ADDRESS BIT 17
;EXTENDED BUS ADDRESS BIT 16

:WRITE DATA ERROR
;HEAD CURRENT ERROR
;WRITE LOCK

CZRLMAD RLOY /2 BSFT

BIT

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

AND OFFSET D EFINITIONS

58
59
60

010000
004000
002000

SKT0=B1112
SPE=BIT11
WGE=BIT10

000400

DSE=BI T8

000029

HOP=B] T4

001000

63
22

;SEEK TIMEOUT ERROR
:SPINDLE TIMEOUT/UNDER/OVER SPEED
:WRITE GATE ERROR

v(=BIT9

000040

;VOLUME CHECK

;ORIVE SELECT ERFOR

COP=BITS

000010

;TOP COVER OPEN

sHEADS OVER PACK

BRHM=BIT3

SEQ 0026

:BRUSHES HOME

: COMMANDS

69
70

000002
000004

7
72

WRCHK=BIT1
GSTAT=BIT2

000006
000010

000012

74
75
76
77
78
79
g?

;WITE CHMECK FUNCTION CODE
;GET DRIVE STATUS FUNCTION CODE

SEEK=BIT1'BIT2
RDHOR=BIT3

:SEEK FUNCTION CODE
;READ HEADER FUNCTION CODE

READ=BIT3'BIT2
DRST=BIT3'BIT1!BIT0
GSBIT=BIT1!BITO
MK=B1T0
SIGN=BIT2
SKHS=BI T4
HEAD=BIT6

;READ FUNCTION CODE
;DRIVE RESET COMMAND CODE FOR DRIVE COMMAD WORD
;GET STATUS COMMAND CODE FOR DRIVE COMMAND WORD

WRITE=BIT3!'BITI

000014
000013
000003
000001
000004
000020
000100

:WRITE FUNCTION CODE

;MARKER BIT FOR DRIVE COMMAND WORD(SEEK,GET
;DIRECTION FOR SEEK(0=AWAY FROM SPINDLE)
;HEAD SELECT FOR SEEK

;HEAD SELECT FOR READ,WRITE,GET STATUS

;OFFSET FOR HARDWARE P-TABLE

84
gz

000000
000002

gg 002160

CSR=0
DRBT=2

ENDMOD

.SBTTL

GLOBAL DATA AND CONSTANTS

g; 002160

BGNMOD

GLBDAT

93
94
95
96
97
98
99
106
101

002160
002162
002164
002166
002170
002172
002174
002176
002200

000000
000000
000000
000000
000000
000000
000000
000000
000000

ERRCNT:
SFTCNT:
SKECNT:
DERCNT:
WRTCNT:
RETRY:
BDA:
BMP:
DCS:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LMORD
LWORD
LWORD

O
O
0
O
O
O
O
O
O

104
105
106
107
108

002206
002210
002212
002214
002216

000000
000000
000000
000000
000000

BBA:
FUNC:
BCSADR:
LSTHDR:
PRFLGS:

LWORD
LWORD
.WORD
.WORD
.WORD

O
O
0
O
O

110
111
112
113
114

002222
002224
002226
002230
002232

000000
000000
000000
000000
000000

DIFWD:
SERNM1:
SERNM2:
NEWFAC:
DRSEL:

102 002202
103 002204

109 002220

000000
000000

000000

E.DCS:
E.STAT:

LSTDA:

.WORD
.WORD

.WORD

.WORD
,WORD
.WORD
.,WORD
.WORD

;ERROR COUNT = HARD
;ERROR COUNT = SOFT
:SEEK ERROR COUNT
:DRIVE ERROR COUNT
;WRITE PASS COUNT PER TRACK
PRESENT RETRY NUMBER
DISK ADDRESS CONTENTS
PRESENT MULTIPURPOSE CONTENTS
:CSR ADDRESS

O
O

:CONTENTS OF RLCS AT ERROR
;STATUS AT FAILURE TIME

;DISK ADDRESS AT SOFT ERROR

O
O
0
O
O

;PRESENT BUS ADDRESS CONTENTS
;LAST FUNCTION LOADED
;CSR IMAGE OF LAST COMMAND
;LAST POSITION ON DISK
; INTERNAL FLAGS
;LAST DIFFERENCE WORD OF SEEK
;SERIAL NUMBER OF CARTRIDGE
:SERIAL NUMBER OF CARTRIDGE
;FLAG TO BUILD A DUMMY FACTORY
;:DRIVE SELECT BITS(8,9,10)

F|LE

STATUS)

e ————— e

S~ ——— S ——p————————

= et GO

CIRLMAD RLOY/2 BSHT

MACRO v03.0! 9-FEB=79 19:46:54 PAGE 1-3%

115 00223«
116 002236

BSECPT:
RSEEK:

e
2

et~

. Wt

e St

et Sttt

GLOBAL DATA AND CONSTANTS

117 002240
118 002242

000000
000000

119 002244

00000C
000000
000000

121 002250

0000GI

120 002246
122
123
124
125
126
127
128

129
130
131
132
133

002252
002254
002256
002260
002262
002264
002266

002270
002272
002274
002276
002300
:gg 002302

000000
000000
000000
000000
000000
000000
100177
100077

000177
000077
000000
000000
000160

000240

136
};g

148
149
150
151
152
153
154
155
156
157
158
159
160
161

162

163
164
165
166

167
168

169
1;?

SOFTCS:
FWDFLG:

.WORD
.WCKD

TDR:

.WORD

PRPOS:
NEWPDS:
RECNT:
NXTUNI:
SYSMSK:
CYLMSK:
SECMSK:

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

CVFLG:

WRIPG:

(MS%:
SMSK :
PASWD:
WRINIT:
BVEC:

BPRIOR:

sPOINTER TO BAD SECTOR FILE DATA STORAGE
sSEEK IN PROCESS OF RECOVERY

sTYPE OF DRIVE... RLO1=1 RLOZ2=2

0
0
0
0
0
100177
100077

sPRESENT POSITION ON DISK
sNEW DESIRED CYLINDER ADDRESS
;READ ERROR COUNT
sPOINTER OF UNIT SELECT SLOT IN °SELTBL'
;MASK FOR 0-7 DRIVES
sMASK FOR CYLINDER ONLY (RLO1)
;MASK OUT SECTOR BITS (RLO1)

.WCRD

.WORD

.WwORD
LMORD
.WORD
.WORD
.WORD

.WORD

SEQ 0027

0
0

0
0
0

000177
000077
000000
O
160

240

S —————

;CSR OF SOFT ERROR
;SAWTOOTH WRITE CONTROL FLAG
s"CALL' FLAG FOR VERIFY ROUTINE

;WRITE

IN PROGRESS FLAG

:CYL MASK FOR RLOZ2
;SECT MASK FOR RLO?
:PASSWORD (iF=0 THEN NO CHECKING)
;WRITE INIT FLAG
:VECTOR '
-

;THE FOLLOWING LOCATIONS ARE CLEARED AS A GROUP (DOWN TO ‘'STFLG')
;THEREFORE DON'T INSERT ANY CONSTANTS

139 002304
140 002306
141
142
143
144
145
146
147

.WGRD
.WORD

000000
000000

002310
002312
002314
002316
002320
002322
002324

000000
000000
000000
000000
000000
000000
000000

002342

000000

002326
002330
002332
002334
002336
002340
002344

002346
002350
002352
002354

002356
002360
002362
002364
002366
002370
002372
002374
002376
002400
002402

C00000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

LSTDR1:
BCSR:
BDRSEL:
-HDRFND:
(HKSEC:
DECNT:
TEMPO:
TEMP1:
TEMP2:
TEMP3:
LSTTIM:
SECOND:
MINUTE:
HOUR:
E.CS:
E.BA:
E.DA:
E.MP:
E.MP1:
E.MP2:
SYSCLK:
BUF1:
MAXWC:

UuT:

SN1:
SN2:
WRTLOK:
ACCESS:

PWRFLG:
TRPFLG:
(NTFLG:
STFLG:

.WORD
.WORD

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

.WORD
.WORD
.WORD
.WORD
.WORD
L.WORD
.WORD

.WORD
LWORD
.WORD
.WORD
.WORD

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

O
O
0
0
O
0
O
O
O
0
C
0
0
0
O
0
0
O
0
0
0
0
0

O
0
O
0

0
O

O
0

;BUFFER POINTER OF
;CSR FROM P-TABLE

DRIVE

sDRIVE UNIT NUMBER FROM P-TABLE
sFLAG TO INDICATE HDR IN BAD LIST
;SECTOR OF ERROR = USED BY BAD SECTOR LOCATION
;DATA ERROR COUNT
;TEMP LOCATION
;TEMP LOCATION
;TEMP LOCATION

;TEMP LOCATION
sLAST TIME ON SYSTEM CLOCK
;SECONDS OF SYSTEM (CLOCK
JMINUTES OF SYSTEM CLODK
sHOURS OF SYSTEM CLOCK
; IMAGES OF REGISTERS
:ON INTERRUPT

:
:
3
JFLAG INDICATING PRESENSE OF

S¢STEM (LOCK

;BUFFER FOR
FIRST CONTROLLER
sMAX WORD COUNT DETERMINED BY (ORE
sNUMBER OF UNITS ON SYSTEM
:TYPED SERIAL # - LOW
s
H1GH
;WRITE LOCK FLAG
sACCESS PRIV FOR UPDATING
;POWER FAIL INDICATOR
; TRAP OCCURANCE FLAG
;CONTINUE FLAG
:START FLAG

CZRLMAO RLO1/2 BSFT
MACRO v03.01
GLOBAL DATA AND CONSTANTS

9-FEB=79 19:46:54 PAGE

:;g

1-4

SEQ 028

JEND OF MASS CLEAR

};g 0026404

000004

ERRVEC:

176 002406
177
178

.WORD

sERROR VECTOR

ENDMOD

};8

LSBTTL

GLOBAL MESSAGES

}g; 002406

BGNMOD

GLBIXT

183
184

;GLOBAL

TEXT

103
122
103
114
105

MRLCS:
CRLCS:
CART:
(MSG:
HMSG:

.ASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ

''RLCS: '
' (RLCS): '
/PACK SERIAL
/CYLINDER: /
/ HEAD: /

ASCIZ
.ASCIZ

/=
= = = = = = = = = = 2 e = = = = = =/
/TOTAL °‘FIELD' ENTRYS = /
/TOTAL ‘FACTORY' ENTRYS = /

185
189
190
191
192
193
194

002406
002415
002427
002447
002462

122
040
120
103
040
052

052

196 002540
197 002606
198 002636

055
1264
124

040
117
117

055
126
126

HYPHEN:
TFMSG:
TMMSG:

200 002725
201 002762
202 003012
203 003050
204 003101
205 003113
206 003133
207 003144
208 003171

124
123
102
102
040
101
123
123
104

117
17
125
125
123
124
105
117
122

126
106
111
111
105
040
105
106
040

THARD:
MSREC:
MBLD:
BUILD:
SMSG:
BSEND:
MSKER:
MSFER:
MDERS:

211

104

122

040

NOLOAD:

195

002472

199 002670

209 003217
210 003242

212
213
214
215
216
217
218
219
220
221
222

223
224
225
226
227
228
229
230
231

003255

003277
003324
003351
003400
003426
003453
003477
003541
003556
003607
003633

003645
003656
003747
004013
004063
004100
004152
004222
004303

124

104
110

120
120
116
116
116
116
116
103
120
124
116

040
105
125
105
122
127
040
040
040

114
050
101
131
110

117

122
101

101
101
117
117
117
117
117
117
122
1M
17

104
116
120
116
105
122
061
062
063

126

040
122

103
103
040
0640
040
040
040
115
117
115
040

122
126
1064
126
101
111
0640
040
0640

STARMSG:

TSOFT:

MRDER:
MHDER:

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

.ASCIZ

.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ

LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
LASCIZ
LASCIZ
L.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
L.ASCIZ
LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
DRNM:
LASCIZ
PASWORD: ,ASCIZ
DENIED: .ASCIZ
EXISTS: LASCIZ
VERIFY: ,ASCIZ
MWRITE: .ASCIZ
C(MD1:
LASCIZ
(MD2:
1L
(MD3:
LASCIZ

/tvesesseeesavernernsnennnennnensnnnns/

/TOTAL

'SOFT'

ERRORS FOUND =

/TOTAL °'HARD' ERRORS FOUND = /
/SOFT ERROR RECOVERED.../
/BUILD A DUMMY BAD SECTOR FILE/
/BUILDING BAD SECTOR FILE/
/ SECTOR: /
/AT END OF FILE /
/SEEK ERR/
/SOFT ERR ENCOUNTERED/
/DR ERR WILL NOT RESET/

/DR ERR = RECOVERED/
/HARD ERROR/

/DR WOULD NOT

LOAD/

/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 NOT RDY/
/TIMEOUT = NO 'CRDY'/
/NO DRIVES/

FILE/

/ DRIVE: /
/ENTER CORRECT PASSWORD TO 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/
/71
REPORT CONTENTS OF BAD SECTOR FILE/
1 2
ADD A SECTOR TO THt 'FIELD' BAD SECTOR FlLE/
7 3
DELETE A SECTOR FROM THE 'FlELD"' BAD SECTOR FILE/

CZRLMAO RLO1/2 BSFT

MACRO v03.01

GLOBAL MESSAGES

=“NUWWWOOoOO

— et it et et OO

OCOoOO0Oooss

e L

f—stamawoNnO
oOfrorNoOOoON—

L I
—
—
—

—

il
il e
D e
il il el i
il
el
el

—

el i el

—

006500
006531
006553
006575

—

269
270
271
272

ONNMNNON)
= = OO
NS
NN = =N

267 006431

268 006452

NOOWVMNSTOWVNNNWESE YNV
=D

266 006401

—

006150
006242
006250
006305
006344

LASCIZ
LASCiZ

.ASCIZ

LASCIZ

/ &

VERIFY

/ 6

MAKE

CASE DATA PATTERN & VERIFY/

A BAD SECTOR FILE/

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

DELCYL:
ABSCYL:
DELSEC:

.ASCIZ

/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 SECTOR FILE/

.ASCIZ

/CYLINDER #

.ASCIZ

/SECTOR #

(0 10 39.)

/HEAD # (O
/CARTRIDGE
/INPUT THE
/INPUT THE

OR 1) -/
HAS NO SERIAL NUMBER - ADD ONE?/
LOW 5 OCTAL # OF SN /
HIGH 5 OCTAL # OF SN /

ABSSEC:

DELHD:
ABSHD:
.ASCIZ
ABSSER: .ASCIZ
ABSSNL: .ASCIZ
ABSSNH: .ASCIZ
DOWRT:
.ASCIZ
BADWRT: .ASCIZ
DELMSG: .ASCIZ
NOENTRY: .ASCI
RLICLM: .ASCIZ
VALSN:
LASCIZ
TBLFUL: .ASCI7
TILLEND: .ASCI
MSTWRT: .ASCIZ
NEWENT: .ASCIZ
ERRAT:
_ASC12
OVRMAX: ,ASCI1Z
CK:
.ASC12Z
INBSF:
.ASCIZ
CKFACT: .ASCIZ
CKFLD:
.ASCIZ
NOTRDY: .ASCIZ

MDRTYP:

SAWFWD:
SAWREV:
WRPKF:
WRPKR:

THISDRV:

.EVEN

.ASCIZ

.ASCIZ
.ASCIZ
LASCIZ
,ASCI1Z
.ASCI

(0 TO 511.)

/PROCEED TO WRITE

THE UPDATED BAD

SECTOR FILE?/

/CAN'T UPDATE THE BAD SECTOR FILE ON PACK/
/DELETE A 'FIELD' BAD SECTOR FILE ENTRY/

/NO SUCH ENTRY

EXISTS

TO DELETE!/

/RLOT MAX CYLINDER = 255./

/1S THIS SERIAL NUMBER VALID/

/MORE THAN 25. BAD SPOTS FOUND ON THIS PACK!/
/CONTINUE TO END OF FILE/

/D0 YOU REALLY WANT TO WRITE
/NEW ENTRY.../
/XFER ERROR STARTING AT /

ON ALL

SELECTED PACKS?/

5?5016RL02 CARTRIDGE SPEC ALLOWS A MAX OF

UND/
/SECTOR

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/
/WRT
/WRT
/USE

PACK FORWARD /
PACK REVERSE /
THIS SELECTED UNIT?/

ENDMOD

LSBTTL

ERROR MESSAGES

282 006626

BGNMOD

GLBERR

284 006626
285 006626

BGNMSG

290 006642
291 006650

= READ ONLY/

.ASCIZ
LASCIZ
LASCIZ
.ASCIZ

278 006626

288 006630
28G 006634

PACK

WRITE PACK WITH WORST

CMDDO:
BSRM:
BSRF :
BADBSF:

ABSMSG:

— —

261
262
263
204
265

CMD7:

—

260 006120

el lh i i il il ot i e e el e

251 005447
252 005520
253 005567
254 005627
255 005660
256 005714
257 005770
258 006020
259 006103

CMD6:

B o

250 005371

247 005220
248 005272
249 005331

246 005175

CMD&:
CMDS:

t D D) ot

245 005175

040

— it

242 005114
263 005146
244 005146

1-5

SEC 0029

NNV NOOOONONWN—=OO
= =N —=OON —
VNN NWVINE P WNWONOO S W=
N
—= =W

232 004371
233 004426
236 006514
235 004550
236 004613
237 004635
238 004705
239 004753
240 005024
241 005114

9-FEB-79 19:46:54 PAGE

ERR1

: SAVE R
OF
CYLINDER, SECTOR & HEAD
POSITION
THE
sROUTINE TO REPORT

010572
002314
177700
013464

MOV

R1,=(SP)

JSR

RS,PTIME
CHKSEC ,BSFSEC
#177700,BSFSEC
BSFHD

MOV

BIC
(LR

:PRINT RUN TIME
;GET THE SECTOR IN ERROR
;CLEAR THE JUNK BITS
JCLEAR THE HEAD #

16. BAD SECTORS!/

CZRLMAO RLO1/2

ERROR MESSAGES

292
293
294
295
296
297
298
299
300

006654
006662
006664
006670
006676
006704
006710
006712
006716

301 006720
302 006724
006724
006730
006734
006740
006744
006750
006754
006760
006764
006770
006772
006774
303 007000
304 007004
305 007010
007010
007014
007020
007024
007030
007034
007036
007040
306 007044
007044
007050
007054
007060
007062

307 007070

MACRO v03.01

9-FEB=79 19:46:54 PAGE

SEQ 0030
000100

013464
002314
000177
013460

002314

013460
013460

BIT

1%:

013460
013460

013464
002462
013462
003101
013460
002447
00612C
007232
000010

2%:

000022
023342
002204

PRINTB
MOv
MOV
MOV
MOV
MOv
MOV
MOv
MOV
MOV
MCvV

MOV
PRINTB
MOv
MOv
MOv
MOV
MOV
MOV

EMT

ADD
PRINTB
MOv
MCv
MOV
MOv

002540
007335
000002

EMT

00000¢

007552
000001

#100, CHKSEC

1%
BSFHD
(MKSEC ,BSFCYL

#177,BSFC
BSFCYL

BSFCYL

JYES = SET IT 10 1
:GET ADDR AGAIN FOR THE CYLINDER
sCLEAR TH® HEAD & SECTOR #

;CLEAR THE
;POSITION

'C' BIT

;BR IF DON'T NEED DTHER BIT

#HMSG,
- (SP)

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

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

#10,-(SP)

SP,RO
($PNTB

R5,GETDST
;GET THE DRIVE
R1,E.STAT
NEMT17A, #CRLCS,E.DCS,E.STAT
E.STAT,=(SP)
E.DCS, =1SP)

STATUS

#CRLCS,-(SP)

#FEMT17A,-(SP)
#4,-(SP)

SP.RO
C$PNTB

#12,SP
WEMT18,#HYPHEN

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

SP,RO
C$PNTB

#6,SP
#MCRLF
#MCRLF ,=(SP)

ADD
MOV

#4,SP

ENDMSG

sHEAD 17?7

;NO

BSFCYL
;ADD IN THE LOW ORDER BIT
WEMT16,#ERRAT ,#CMSG,BSFCrL,#SMSG,BSFSEC,#HMSG,BSFHD
BSFHD,=(SP)

ADD
PRINTB
MOV
MOV
MOV

EMT

BGNMSG

—

BCC
INC

ADD

000012

=O
o
o

il
—
—

WS W

NN
N NN N

BIC
SWAB
(Lc

JSR

002204
002202
002415
007303
000004

023342
002204

MOv

EMT

L10000:

007116
007122
007126

BEQ
INC

ROL

000004

308 0071

1-6

#1,-(SP;

SP,RO
C$PNTB

(SP)+
R

;RESET R

EMT

ERR?2

MOv

JSR

MOV
PRINTB

:SAVE R
;GET THE DRIVE STATUS
;SAVE STATUS FOR PRINTING

CIRLMAD RLO1/2
ERROR MESSAGES

007126
007132
007136
007142
007146
007152
00715¢
007156
316 007162
007162
007166
007172
007176
007200
007202
317 007206
007206
007212
007216
007220
007222
318 007226
319 007230
007230
007230
323 007232
324 007266
325 007303
326 007335
327 007342
328 007351
329 007420
330 007435
331 007450
332 007510
333 007552
324 007555
335 007560
336 007616

MACRO v03.01

351 007636
352 007636
007636
353 007640
3% 007642

1-7

SEQ 0031

002204
002202
002415
007303
000004

MOV
MOV
MOV
MOV
MOv
MOV

000012

062706
012601

000004

104023

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

no,SP

#MCRLF
#MCRLF ,=(SP)
¥l ,-(SP)

SP,RO

($PNTB

¥ ,SP

(SP)+,R1

L10001:
116
116
124
116
116

045
045
045
045
045

116
116
116
116
116
124
116
116

045
045
045
045
000
000
045
045

116

045

FMT17:
FMT17A:
FMT18:
FMT19:
FMT120:

1746400
000000

ENDHW

L10002:

000002
000001
000002

BGNMOD
BGNSW
WRTSAW:
WRTLIM:

/ANXTR06X1201/

/RTX06%XA STATUS WAS: X06IN/
/ANRT/
/ANINRT/
/ANXABAD SECTOR FILE HAS XZ3%A. ENTRIES/
/ANXTR05%05%N/
/ANRTRI3%A./
JANRZ2XA.
XTXZ3%ZA.XTXZ22%A.%TXD1/
/ANINXACOMMANDS AVAILABLE ARE:XNXT/
/AN/
/%17
JANRATIME: XZ2%A:%Z2%A:%12%A
/

FMTSN:
FMTTB:
FMTCSH:
FMTMS:
MCRLF:
MSG:
TIME:
FDTYP:

BGNMOD
BONHW

;RESET

C$MSG
/ANRTRIRZ3XA
RTRZ2%A XTAD 1N/

FMT16:

.EVEN

000002

SP,RO
(SPNTB
#i2,sp

SP,RO
($PNTB

000006

104014

NEMTI7A,~-(SP)

¥ ,-(5P)

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

000002

007552
000001

#CRLCS,=(SP)

HYPHEN,=(SP)

007335

012746
012746
010600

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

WEMT18,HYPHEN

002540

343 007630
345 007630
346 007630
007630
347 007632
348 007634
349 00763%0
007636
350 007636

9-FEB=79 19:46:54 PAGE

/ANSRTROT1EN/

ENDMOD
HPTCODE

.WORD
.WORD
.WORD

L10002-L$HW/?
174400

;SR BASE

ADDRESS DEFAULT

sDEFAULT

TO SAWTOOTH WRITE

sDRIVE UNIT NUMBER DEFAULT

ENDMOD
SPTCODE

.WORD
.WORD
.WORD

L10003=1L95w/?
1

sDEFAULY

TO 2 WRITE

C(v(LE

PASSES PER TRA(K

SRR

CIRLMAD RLO1/2 BSFT
ERROR MESSAGES

MACRO v03.01

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

SEQ 0032

355 007644
007644
007644

L10003:

007644

BGNMOD

007644
007644
007646

DISPAT(H

ENDSW

007650

007650
007650
007650
007650
007650
369 007652

379 007660
007660
380 007662
381 007666
382 007672
g3 007676
007676
007702
384 007704
007704
385 007706
386 007712
387 007716
388 007720

104025

.WORD
LWORD

1
T

STATISTIC

BGNMOD
BGNRPT
ENDRPT
L10004:

RPTCODE

EMT
ENDMOD

CODE

(SRPT

LSBTTL

INITIALIZATION CODE

BGNMOD

INITCODE

:START

INITIALIZE

CODE

BGNINIT

012700
104041

SETPR]1

000340

MOV
EMT

005037
005037
005037

002402
002400
002374

BRESET
EMT
(LR
CLR
CLR

012700

000034

MOV

104033

104050

103064

READEF

010330
002200
002232
000200
002232
000074
000001

007770

000012

#340

BCC

INC
MOV
DEC
ASL
ASL
11%:

002232

BIS

172224

172212

ADD

MOV
MOV

MOV

12%:

MOV
BIT

BNE

WALTMS
MOV

:PRIORITY 10 SEVEN

#340,R0
C$SPRI

;FOR LSI=11 CPU'S

CSRESET

STFLG
CNTFLG
PWRFLG

#EF .PWR,RO

;CLEAR (ONT
;CLEAR THE POWER FAIL FLAG

WEF.PWR

EMT
(SREFG
BNCOMPLETE

002374
002362

389 007722
390 007724
391 007730
392 007734
393 007740
394 007746
395 007754
396 007760
397 007766
398
399 007770

DSPCODE

LSBITL

007652

378

ENDMOD

007652

377 007652
007652
007656

1-8

PWRFLG
UuT,R2
R2
R2
R2

#SELTBL,R?

(R2)+,DCS
(R2) ,DRSEL

#200,DRSEL

DRSEL ,aDCS

#60, ,R1
#1,aDCS

INDICATE POWER FAIL
:GET NUMBER OF UNITS SELECTED

;POINT TO THE CORRECT SLOT
;GET THE DCS ADDRESS

:AND GET

THE

DRIVE

BITS

;ADD IN THE (RDY BIT
JSELECT THE DRIVE
*SETUP A TIMER

:DRIVE READY UP?

14%

sYUP = RESET

#10,
#10, R0

JWALT

A WHILE

DRIVE

& MEADS wWOME

—

CZRLMAO RLO1/2 BSFT
INITIALIZATION CODE

007774

400 007776
401 010000
402
403
404
405
406
407
408
409
610
611

612

613

615
416
617
618
419
420
621

622

623
624 010066
425 010072

426

S~ C

—

NN
—
OV

—b
a2
s
3
2
s
b
s
s
—_

QCOWVWVIVVIAWVIVE
DWW
sNooocoossrNNNOoO
SO

—_—
—

2
D
a2
s
—

OOO

e ol

—
.
-

4467

a —

&~
>

445

—,

4463

OCO0VO0O0O0OOOO0O0O0

eleleleldeleleloleleleBilelelele

4461
442

OO0OO0OC

627 010076
428
429 010102
i0106
AN
431
1
632
1
433
634
435
436
437
438
439
440

9-FEB=79 19:46:54 PAGE

106026

EMT
DEC
BNE

162702

(SWTM
R1
12%

;DRIVE NOT READY

005742
0050c2

022702
003744
000404

1-9

SEv 0033

005301
001367

000004
010330

13%:

4 ,R2

8SLE

1%
15%

;POINT TO THE NEXT ENTRY IN LIST
:DONE?
:NO = DO THIS UNIT ALSO
;YES = PRCCEED

RS, 1SDRST
RS ,HDHOME

JRESET THE DRIVE SELECTED
;AND BRING THE HEADS HOME

SYSCLK

;CLOCK TICK?

CMpP

14%:

JSR
JSR

005737
001405

002354

198:

1S1

012700
104034
004537
000137

000001
026544
010326

012700

000036

005237
000137

002400

004537

025230

012700
005020
020027
001374

002304

012700
012720
020027
001373

CLKON
MOV
EMT
JSR
JMP

[A
#1,R0
($KWON
RS,.GETSYS
POWER

READEF
MOV

W#EF.CONTINUE
#EF.CONTINUE
RO

THE

ENTRY WORD FOR DCS

:BR IF NO
;YES = SET

;THEN GET

FOR

THE

SEC

INTERVALS

TIME

;CONTINUE FROM CONSOLE?
;NO, CONTINUE W/

INIT CODE

INC
JMP

CNTFLG
END

;YES SET CONT FLAG, GO TO END OF

1%:

JSR

RS,CLEAR

;CLEAR ALL DRIVE

2%:

MOV

#LSTDR1,RO

sCLEAR FLAGS

CmMp

RO,#STFLG*?

:MASS CLEAR

MOV
MOV

#SELTBL
RO
#-1,(R0O)+

BNE

CLRSTB

010172

002404

BEQ

;KILL

#SELTBL ,RZ

EMT
CSREFG
BNCOMPLETE
1%
BCC

103004

THE ENTRY
sCORRECT THE POINTER

SUB

023356
024700

3%:

IN TIME = KILL

=-(R2)
(R2)+

A ¥

;UPDATE THE TIMER
;1F MORE TIME, THEN TRY AGAIN

1S1
(LR

004537
004537

104050

010064

MACRO v03.01

CLRDAT:

CLR

BNE

CLRSTB:

010330

CLRDAT

;DO TILL TABLE

STORAGE BUFFERS

1S ZEROED

RO,#STRLE

JINIT THE SELECT TABLE
SEND OF THE TABLE?
:NO CLEAR THE NEXT

MOV
MOV

LSUNIT,R3
R3,UUT

;GET NUMBER OF UNITS

(LR
GPHARD

R1
R1,RO

CMpP

MOV

1%:

(RO)+

#SELTBL
R4

MOV

R1,RO

BCC

INC

INIT

sSAVE LSUNIT
JINIT SELECT TABLE POINTER
JINIT P=TABLE
:GET A P=-TABLE

EMT
C$GPHRD
BNCOMPLETE
2%

011024
005201

2%:

MOV
MOV

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

:GET CSR INTO SELECT TABLE STORAGE
sGET DRIVE INTO TABLE

;POINT

TO NEXT

CZRLMAO RLO1/2 BSFT
INITIALIZATION CODE

OoOoococoo

448 010166
449 010170
450
651 010172
652 010172
653 010176
656 010200
655 010202
456 010206
657
010212
212

012700

000040

104050

END:

010339
177777

2%:

[« 2 o P
—

002302
021700
002300
000003

~
~

002356
025330
002400

310

000001
103002

005237

002354

104011

O
010370
010372

002356
002360
002206
002234

F INDBF
:

177777

000340
010564
002404
000003

000010

MOV
ASL
ASL
ADD

UUT R
R4
R&
#SELTBL
R4

MOV

#EF.START
RO

#-1,R4
WEF .START

SETVEC

1%:

POWER:

BVEC,#INTR1,BPRIOR

MOV
MOV
MCV

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

ADD

#10,SP

MOV
MOV
MOV
MOV
187

#BSFILE ,BUF
#5120.72 ,MAXWC
#BUF1,BBA
#BSECO,BSECPT
CNTFLG

BNE

L10005:

010312
10372
10316
010320
10320
10322
010326
010326
10326
10326

R3
1%

MOV
READEF

CLKON

MOV

;POINT
;FORCE

TO THE SELECT TABLE
A TERMINATE IN THE TABLE

: START COMMAND

sNO, CHK RESTART
sSET START INDICATOR
sSET CONTROLLER VECTOR

#3,-(SP)
CSSVEC

;ALL XFERS TO BSFILE STORAGE
;MAX XFER SIZE
;POINT

TO THE

1/2 TRACK

DATA STORAGE

AREA

POWER

:POINT TO THE BAD SECTOR FILE DATA
;HERE FROM '(ON' (MD?
:BR IF TRUE

:TURN CLOCK ON?

#1,R0

EMT
C$SKWON
BNCOMPLETE
POWER
BCC
SYSCLK
INC

POWER

ENDINIT

EMT

($INIT

SELTBL:
STBLE:

.BLKW
.WORD
ENDMOD

16.
-1

BGNMOD

CLNCODE
BGNCLN

SETVEC
MOV

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

MOV
EM1
ADD

#3,-(5P)
($SVEC
#10,5P

MOV
MOV

SEQ 0034

;DOWN COUNT
;D0 WHILE

DEC
BNE

MOV
EMT

000010
005000

1-10

EMT
CSREFG
BNCOMPLETE
RESTART
RESTART
BCC
INC
STFLG

002402

026442

3746

476
477
4«78
479

002362

RESTART:

474
475

013704
006304
006304
062704
012704

103002
005237

(=lelelelelele
ooa
OCOO0O0O0O00O0O00
Lol
o o
Y, LV, LV R el
WL
W

~
w

472

eleloielelelelelelelelelelelelelelele-BNelolelel=] 000

471

467
468
469
470

9-FEB=79 19:46:54 PAGE

005303
001370

466

—

465

464

463

459
460
461
462

(=leleloelelele)

458

MACRO v03.01

#TRPHAN,=(SP)
ERRVE(C,=(SP)

;WAS

THERE

A (LOCK?

;YES, SET FLAG FOR ONE':

CZRLMAO RLO1/2 BSFT
INITIALIZATION CODE
485 010420

MACRO v03.01

9-FEB=79 19:46:54 PAGE

SEQ 0035
SETPRI

010420
010424
486 010426
010426
010432

012700

000000

MOV

013700

002300

MOV

010434
010440
489 010442
490 010446
9N 010450
010450
492 010452
010452
010452

013700

002404

005737
001400

002354

487
488 010434

493
494
495
496
497
498

1046041

104036

106036

104033
104012

EMT
CLRVEC

3%:

4%:

L10006:

010454

010454
010454
010454
010454
010454
499 010456
500
501 010456
502 010456
503 010456
010456
010456
504 010460

CLRVEC

MOV

EMT
181
BEQ
BRESET
EMT
ENDCLN

EMT

#PR100
#PRI00,RO

($SPRI
BVEC
BVEC,RO

BGNMOD
BGNAU
ENDAU

L10007:
ENDMOD

BGNMOD
BGNDU
ENDDU
104055

L10C10:

ENDMOD

JRELEASE VECTOR OF FIRST CONTROLLER

($CVEC

SYSCLK
4%

CSRESET
(SCLEAN

($AU

DROPCODE

EMT

TO ZERO

ERRVEC
RO
ERRVEC

ADDCODE

EMT

;PRICGRITY

CSCVEC

ENDMOD

104054

1-11

($DU

;TAKE

CARE

LSI-11

CIZRLMAD RLOY/2 BSFT

GLOBAL SUBROUTINES

MACRO v03.01

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

]

.SBTTL

GLOBAL SUBROUTINES

3 010460

BGNMOD

GLBSUB

& 010460

STARS

SEQ 0036

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

5
6 010460

:FIRST & SELDRV == DRIVE SELECT ROUTINE
STARS
;;"""'l""""'"""""""""'l"'.".'."'.".""'.l"'

7
8 010460
3 010464

012704
010437

010330
002260

FIRST:

MOV
MOV

#SELTBL R4
R4, NXTUNI

;POINT

010470

013704

002260

SELDRV:

MOV

NXTUNI, R4

(R&)
1%
(R&)+, (R&)+
108

:SETUP THE

:CHECK FOR A VALID ENTRY
(0K 10 GO ON
:POINT TO THE NEXT ENTRY SLOT
:AND TRY AGAIN

17
18
19
g?

010504
010510
010516
010520

012437
022737
001001
000416

002200
177777

is:

MOV
CMP
BNE
BR

(R4)+,DCS
#-1,0(S
2%
3

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

22 010522
23 010526
24 010532
25 010540
26 010544
Sg 010546

012437
004537
012737
032701
001403
012737

002232
023342
000001
000200

MOV
JSR
MOV
BIT
BEQ
MOV

(R4)+ ,DRSEL
RS,GETDST
#1,1DR
#BI17,R1

38
#2,1DR

;GET THE DRIVE SELECT BITS
:GET THE DRIVE STATUS
:DEFAULT TO RLOT TYPE
(1S 1T AN RLO2?
NO
1YES = SET FOR AN RLO2

29 010554
30 010556
g; 010562

022525
010437
000205

002260

38:
is:

CMP
MOV
RTS

(RS)+, (RS)+
R4 ,NXTUNI
RS

;RETURN +2 = NORMAL EXIT
:SAVE THE 'NEXT' SLOT POINTER
EXIT

33 010564

005237

010564

TRPHAN:

INC

TRPHAN

12
13
14
}2

010474
010476
010500
010502

% 010570

005714
100402
022424
000774

000002

36 010572

108:

002200

28:
002246
002246

157
BM]
CMP
BR

RT]

10 THE

SELECT

TABLE

POINTER

INO = CONTINUE
FEXIT +1

STARS
.',"l"'."""""".'.""'.""""'"'..'..""..""."""'.

37
38 010572

:PTIME == ROUTINE TO PRINT THE SYSTEM RUNTIME
STARS

IF A (LOCK

1S PRESENT

.’.".'..."""'""""""""'""".'.'."."'.l"l""l"""

40
41
42
43

010572
010576
010600
010604

005737
001420
004537

002354

002332
002334
002336
007560
000004

44 010640

013746
013746
013746
012746
012746
010690
104014
062706

000205

010604
010610
010614
010620
010624
010630
010632
010634

PTIME:

024544

000012

1$:

TST
BEQ
JSR
PRINTB

MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD
RTS

SYSCLK
;CLOCK PRESENT?
s
iNO
RS,GETSYS
:YES = GET THE RUN TIME
#T{ME ,HOUR,MINUTE
, SECOND

SECOND,=(SP)
MINUTE,=(SP)
HOUR
, = (SP)
FTIME
- (SP)
#4,=($P)
SP,R0
($PNTB
#2,5P
RS

EXDT

FROM SUPERVISOR

CZRLMAOD RLO1/2 BSFT

MACRO v03.01

GLOBAL SUBROUTINES

010642

9-FEB=79 19:46:54 PAGE

SEQ 0037

SIARS

S?RV]D == ROUTINE

010642

TO PRINT

THE

SELECTED UNIT

IDENTIFICATION

NS ONNNWN
WD
OO NN~~~

(=l
l=]
OOO0O0O 8—‘00'30
O b
b
s e N O

Voo~

DRVID:

002233
003645
002200
002406
007266
000005

746

002246
006431
007616
000003

010736

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

#DRNM,
- (SP)

MOV
MOV
MOV
MoV
MOV

DCS,=(SP)
#MRLCS,=(SP)
#EMT17,-(SP)
#5,-(SP)
SP,RO

PRINTF
MOV
MOV
MCv

WFDTYP,#MDRTYP,TDR
TDR,=(SP)
#MDRTYP,~(SP)
#EDTYP,=(SP)

EMT
ADD

MOov

MOV

EMT
ADD
RTS

000010

010734

PRINTF
CLR
BISB

MOV

000014
oo

—_Os
~ooooo

046
716
7646

P
~n

(=]
o

'.'.."'"'""""'"""I"""".'.l""'"""'l."'."'0"

10642

CSPNTF
M4 ,SP

#3,-(SP)
SP,RO

CSPNTF
#10,SP
RS

STARS

-0

—_—

ggz:gbv == ROUTINE

010736

TO PRINT

THE

DRIVE

SELECTED

ISN'T READY

S wro

-t
s

::"'.."'."""""""""'.""""O"t""."."."..""."

004537

010642

012746
012746
012746
010600

006401
007555
000002

062706
004537
000205

000006
010774

PNOoOwWv

104017

DRNRDY:

JSR

RS ,DRVID

MOV
MOv
EMT

#2,-(SP)
SP,RO
CSPNTF

PRINTF
MOv
MOv

#MSG,#NOTRDY
#NOTRDY,=(SP)
#MSG,-(SP)

ADD

¥6,5P

RTS

JSR

R5,DRDRV

:DROP THE DRIVE SELECTED

STARS

OO0

RONY
-

:."Q"".""""""'.'""""'i"l'."'."'l"""'.l.'l'.'l'

DRDRV == ROUTINE TO KILL A UNIT ENTRY INTO THE SELTBL AREA IF
PGM DETERMINES A UNIT IS NOT ABLE TO BE USED
SIARS

THE

noronoroNONON
WO N

:.'.'."."'tt"'t't""'.""."'l'tt'0."'l"""l.".l"."t.'

013704
162704
005024
005024
000205

002260
000004

DRDRV:

MOV
SUB

NXTUNI R4
4 R4

sPOINT TO THE 'NEXT" UNIT SLOT
sPOINT TO THE CURRENT UNIT

(LR
RTS
ENDMOD

(R4)+
RS

;KILL DRSEL ENTRY
JEXIT

(LR

(R4)+

:KILL THE ENTRY

CZRLMAQ RLO1/2 BSFT
SN
-

PROGRAM MAIN LOOP

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

.SBTTL

011012
011012

PROGRAM MAIN LOOP

BGNTST
STARS

~NOWV

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

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

011012

10
11
12
13
14
15
16
17
18
19

= OLCONO
VS WN OO0

::"t.."""""""'Q.""""""0'"""Q"""""."."l"'

011012

011012
011016
011022
011026
011030
0110364
0110642
011050
011056
011056

20 011060
21 011064
22 011070
011070
011074
011100
011102
011106
SS 011110
4

25 011114
26 011122
27 011124
011126
011130
0111346
011140
011142
011144
28 011150
29 011154
36 011156
31 011164
32 011166
011166
011172
011176
011202
011204
011206
33 011212

34 011216
35 0112264
36 011226
011226
011232

004537
000137
000404
004537
000137
012777
053777
012700
005300
001376

010470
011310
000200
002232
000000

004537
010137

023342
002320

012746
012746
010600
104017
062706
004537

007552
000001

1%:

171136
171130

2%:

13%:

000004
010642

032737
001015

00CN20

012746
012746
012746
010600
104017
062706
004537
000451
032737
007414

003255
007335
000002

012746
012746
012746
010600
104017
062706
005237
032737
001412

003277
007335
000002

012746
012746

MIEST:

010460
011310

002320

130%:

000004
01077«

020000

000006
002370

001000

003324
007335

002320

1318:

132%:

JSR
JMP
BR
JSR
JMP
MOV
BiS
MOv
DEC
BNE

RS5,FIRST
wHATCMD
2%
RS,SELDRV
WHATCMD
#200,30CS
DRSEL ,aDCS$
#0.,RO
RO
13%

JSR
MOV
PRINTF
MOV
MOV
MOV
EMT
ADD
JSR

R5,GETDST
R1,TEMPO
#MCRLF
#MCRLF ,=(SP)
¥ ,-(SF)
SP,RO
CSPNTF
#s ,SP
R5,DRVID

BIT
BNE
PRINTF
MOV
MOV
MOV
MOV
EMT
ADD
JSR
BR
BIT
BEQ
PRINTF
MOV
MOv
Mov
MOV
EMT
ADD
INC

#HOP, TEMPO
131%
#FMT18,#NOLOAD
#NOLOAD ,-(SP)
#FEMT18,-(SP)
#2,-(SP)
SP,RO
CSPNTF
¥6,SP
R5,DRDRV
15%
UL, TEMPO
132%
WFMT18,MWRTLCK
FURTLCK,=(SP)
#FMT18,-(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP
WRTLOK

BIT
BEQ
PRINTF
Mov
MOV

#VC,TEMPO
133%
#FMT18,#NEWLD
#NEWLD,~(SP)
#EMT18,-(SP)

sSELECT THE 1ST DRIVE
:NO = UNITS
;SELECT ANOTHER UNIT
sNO MORE TO SELECT
sCHECK IF DRIVE THERE

sSTALL

;GET THE CURRENT DRIVE STATUS
;SAVE THE STATUS

sTELL OPR THE UNIT SELECTED
;ARE THE HEADS LOADED?
:BR IF 0K
:NO

:DROP THIS DRIVE
;1S THE PACK WRITE LOCKED?
:BR IF NOT WRT LOCKED
;TELL OPR

sSET THE WRITE LOCK FLAG
+PACK JUST LOADED?
:JUMP [F NOT
;TELL OPR

CZRLMAQ RLO1/2 BSFT

PROGRAM MAIN LOOP

011236
011242
011244
011246
37 011252
38 011256
39 011262

012746
010600
104017
062706
004537
004537
032777

011272
011274
> 011276

104422
000252
003171

43 011300
011300
011304

012700
104041

4«0 011270
61 011272

44 011306

001403

000646

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

000002
000006
023356
023342
100000

000000

133%:
170710

MOV
MOV
EMT
ADD
JSR
JSK
BIT

#2,-(SP)
SP,RO
CSPNTF
¥6,SP
RS, 1SDRST
RS,GETDST
#ERR,3DCS

TRAP
.WORD
.WORD

TSERCODE
170
MDERS

SETPRI
MOV
EMT

#0
#0,R0
($SPRI

BEQ
ERRDF

15%:

15%

JRESET THE DRIVE
sGET THE DRIVE STATUS AGAIN
;COMPOSITE ERROR STILL SET?
;NOPE

= SKIP OVER

170. ,MDERS

sPRIORITY T0 ZERO
JSELECT

THE

UNIT

--------------r----—-------m--------_---------—-=—----—-—-—-

CZRLMAO RLO1/2 BSFT
1

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

PROGRAM MAIN LOOP

011310

SEQ 0040

STARS

NN NN NN NN NN NN
oogwuuu
NN
IS IS S NN
PO N = et s

sSFrNvOoOoSrNNOO
SO SO
NSO

b
o
s o
ot
e
e
e
D i e
D et
el
i e
i
ol il o
i i
e

ot
—b

005737
001561
005737
001440

002402

AR A

007552
000001

062706

000004

104017

AS A

005237

002372

002320

10000%:

£
no
a~

O—=000O0

BEQ

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

STFLG

#MCRLF
#MCRLF ,=(SP)

R R

X222 XXX

sJUST STARTING?
;NOPE = SKIP OVER THE BLURB
;D0 THE PASSWORD STUFF?

:NO = PRINT

THE HELP BLURB

177777
TSLOLIM
TSHILIM

ADD

¥6,SP

PRINTF
MOV
MOV
MOv
MOV

#FMTMS,#CMD
#CMD1,=(SP)

NEMT18,#DENIED
#DENIED,-(SP)

sCORRECT
s YUP

PASSWORD?

sSET THE DENIED FLAG
;8 TELL OPR

SP,RO
CSPNTF

#EMTMS,=(SP)

#2,-(5P)

SP,RO

CSPNTF

746

004303
007335
000002

MOv
MOv
MOv
MOV
EMT

CSPNTH

SH O
o ~N~N
(=T S
oo

PASWORD

#6,SP

O—=0000
OO =t et cn
o

10000%
TEMPO
T$CODE

ADD

017

(SGMAN

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

PRINTE

PASWORD,TEMPO,0, 177777 ,1,177777 ,NO ;GET

MOV
MOV
MOV
MOv

EMT

6 ,5P

000006

000002

SP,RO
CSPNTF

#6,5P
#FMT18,#(MD2
#CMD2,~-(SP)
#EMT18,=(SP)
#2,-(5P)

004222
007335

#1,-(SP)

PASWD, TEMPO
HLPMSG
ACCESS

EMT

NXTCMD
PASWD
HLPMSG

(MP
BEQ
INC

EMT

HLPMSG:

ADD
PRINTF
MOv
MOV
MOV
MOV

600
017

-~ OO0
L I

TST

S
o

000006

PRINTF

000006

004152
007510
000002

PRINTF
MOV
MOv
MOV
EMT
ADD

177777

002274

BEQ

002320
000022
003656
177777
000001

001414

1871

106043
000406

023737

"CMD>' QUARY LOOP FOR THINGS TO DO
‘

WHATCMD:

002274

012746
012746
010600

et
et

IS THE

003747
007335
000002

11470

—

je=lelelelslelelsleleolelaoleloleloleolelole B

;HERE

STARS

S NN
—

—

WN N W

NTo AV N
Role B

011310
eleleleloleleloleleleoleleololelel=]=] [=lejelelelololelelele
-]

SEERV T ¥

':"""'C"""""""""""""'"'."".'.l""""l'."'"

SP,RO

CSPNTF

#FRT18,#CMD3
#(MD3,~(SP)
#EMT18,=(SP)
#2,-(SP)
SP,RO

;PRINT

THE

HELP BLURB

THE PASSWORD

CIRLPAD RLUL1/2 BSHT

PROCRAM MAIN LOOP

011514

19 011520

011520
0115264
011530
011534
011536
011540
20 011544
01154
011550

011554
011560
011562
011564
21 011570
011570
011574
011600
011604
011606

011610
22 G11614
011614
011620
011624
011630
011632
011634
23 011640
011640
011644
011650
011652
011656

062706

MACRO v03.01

000006

01274¢
012746
012746
010600
104037
062706

000006

012746

004426

012746
010600
104017
062706

000002

012746

012746
012746
012746
010600
104017
062706
012746
012746
012746
010600
104017
062706
012746
012746
010600
104017
062706

004371
007335
000002

0067335

000006
004514
007335
000002
000006

004550
007335
000002
000006
007552
000001
000004

9=FEB=79

19:46:54 PAGE

5-1

ADD

"6,SP

PRINTF

#FMT18,#(MD&

MOV
MOV
MOV
MOv
EM!
ADD
PRINTF
MoV

#CMD4
, = (SP)
#EMT18,-(SP)
#2,-(SP)
SP,RO
CSPNTF
"6 ,SP
WFMT18,#(MD5S
#CMD5,=(SP)

MOV
MOV
EMT
ADD
PRINTF
MOv
MOv
MOV
MOV
EMT

#2,-(SP)
SP,RO
CSPNTF
#6,5P
#FMT18,#(MD6
#CMD6,
- (SP)
#EMT18,-(SP)
#2,-(SP)
SP,RO
CSPNTF

MOv

ADD
PRINTF
MOV
MoV
Mov
MOv
EMT
ADD
PRINTF
rOov
MOV
MOV
EMT
ADD

#EMT18,-(SP)

n6,SP
#FMT18,#(MD7
#CMD7,-(SP)
NFEMT18,-(SP)
#2,-(SF)

SP,RO
CEPNTF
¥6,5P
#MCRLF
#MCRLF ,=(SP)

¥l ,-(SP)
SP,RO
CSPNTF
¥y, SP

CIRLMAD RLO1/2 BSFT

PROGRA

000004

000000

OO0
—
it —

TM
L ]o
p—

1064017

104043
000406
011766
000042
004613
000007
000001
000007

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

NXTCMD:

(LR
CLR
JSR

FACNUM
FLDNUM
RS,GETSYS

PRINTF

#MCRLF

MOV
MOV

MOV

10001%:

il
D
il
il
il
i
i
i
i
i

o~ sfO0o00s o

011766

000000
011770
014102
015454
016752
016300
021054
011424

oo [« RV IV AV IV 5
s oo rNNOO

062706

NNNN NN N NNNNNN ~

007552
000001

NNN
Pl W
nNO Fo

012746
012748
010600

~N -~ NNNNNYN

013456
213454
026544

013700
006300
000170

OCOO0O0O0O0O0O

—=OVONO
VI WN DO~

NN—.—.—n—a_.—-—a—o—o_.

MACRO v03.01

005037
005037
004537

OO0O0O0OOOOODOOOOOO

T —

011660
011664
011670

VIS NN

MAIN LOOP

011766

Li15T:

INPUT:

;:CLEAR ENTRY COUNTER
;UPDATE THE RUN TIME

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

EMT
ADD
GMANID
EMT
BR
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

CSPNTF
s ,SP
(MDDO, INPUT,D,7,1,7,NO
CSGMAN
10001%

MOV

INPUT RO

ASL

011746

SEQ 0042

INPUT
T$CODE
CMDDO
7
TSLOLIM
TSHILIM

JMP

aLIST(RO)

LWORD

BSRPT
BSADD
BSDEL
BSVERIFY
BSWRITE
BSMAKE

:NOTHING FOR FUNCTION
: 1 REPORT CONTENTS

'0°*

2 ADD AN ENTRY INTO 'FIEiD' FILE
3 DELETE AN ENTRY FROM ‘FIELD' FILE

READ

THE

PACK

5 WRITE THE PACK
6 MAKE A BAD SECTOR FILE

HLPMSG

_.WORD

;GET THE CMD REQUEST TYPED
;SHIFT FOR PROPER INDEX INTO LIST
;DO THE FUNCTION REQUESTED

7 PRINT

THE

COMMANDS AVAILABLE

AGAIN

;STORAGE FOR TYPED C(OMMAND

——

CZRLMAQ QL0172 BSHT

PROGRAM MAIN LOOP

MACRO v03.01

9-FEB=79 19:46:54 PAGE

SEQ 0043

011770

STARS

TM WY

::"."""""'""""".""""".""."."'.."Q'.'.""."

: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 SECTOR FILE). 1ST REPORT THE CARTRIDGE SERIAL
:NUMBER FOLLOWED BY THE CONTENTS OF THE 'FACTORY' BAD SECTOR FILE

g}zgz THE

CONTENTS OF

THE

°'FIELD'

BAD SECTOR FILE

011770

0117764
012000
012002
012006

004537

004537
005737
001404
004537
000137

012034
012034
012040
012044
012050
012052
012054

012
012746
012
01
104017
062706

-l
el
—
—ll —. —
il —
——
—
i
—

roroNNONORNORONRO
N RN N

WNONIN)
=
= Oo
ornnosrCco
so

[=leleleleleleolelelols]e

012064
2070
076
076

1 34
]
1
1
150
1

}56
|
1
1

2 02

BSRPT:

JSR
JMP
BR
BSRPTS: JSR
JMP
BSRPTL: JSR
TS7
BEQ
JSR
JMP

000137
000404
004537
000137

012012
012016
012022
012024
012030

slelelelelelelelelele]e)]

COBNT
VNI WN =0V

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

012746
012746
010600
104017
062706
004537

010736
012002

007552
000001

004537

023026

012746

004635
007335
000002

104017

005002

000006
013456
000020
013470

sREADY?

1%
RS ,DRNRDY

BSRPTS

JSELECT

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

ADD

s ,SP

RS,RDBDSC

MOV

SP,RO

PSNFG

MOV
MOV

#2,-(SP)
SP,RO

(LR

UNIT

CSPNTF

WFMT18,#BSRM
#BSRM,-(SP)

ADD
(LR
MOV
(LR

sREAD THE BAD SECTOR FILE

#s5,SP

PRINTF
MOV

EMT

THE

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

JHERE TO REPORT CONTENTS OF
RS,RDFACT
BSRFAC: JSR
MOV

READY FOR OPR

CEPNTF

R5,DRVID

CLR

DRIVE

CEPNTF

JSR

ADD

NEXT UNIT

;YUP

PRINTF
MOV
MOV
MOV

EMT

013466

;SEE

#6,SP

PRINTF
MOv
MOv

000004
013476

TEMPO

RS,LOADED

ADD

EMT

00004
010642

sSELECT THE
sALL DONE

W#FMT1G,#STARMSG
#5TARMSG,-(SP)
#FMT19,-(SP)
#2,-(SP)
SP.RO

JSR

007552
000001

JSELECT A DRIVE
;NONE AVAIL!

PRINTF
MOV
MOV
MOV
MOV

EMT

000006
021710

012746
012746
010600
104017
062706
005037

012746
012746
010600

1%:

002472
007342
000002

RS,FIRST
NXTCMD
BSRPTL
RS,SELDRY
NXTCMD

;CLEAR

THE

'FACTORY'

FILE

+READ

THE

FLAG FOR SER # MSG

FACTORY

FILE

FROM BD

SEC

FILE

#FEMT18,-(SP)

CSPNTF

#o,SP
FACNUM
#16.,SECMAX
SECNUM

sINIT THE FACTORY ENTRY COUNTER
sLAST SECTOR PAIR IN FACTORY i ILE
JFOINT TO THE 1ST PALR Of SECTORS
;CLEAR THE INDEX INTO THE BSFILE STORAGE

———
o
e et

CZRLMAD RLO1/2 BSFT

P
— o O
oo sf0O8
[

242
246

262
266

65
6“7
48
49

mlelelelelelelelelelelelelelelelelelelalelelslelololalelelete)

MACRO v03.01

013750
013474

012746
012746
012748
010600

003400
007335
000002

062706
004537
005737
001407
013737
004537
004537

000006
020614
002320
002320
020536
015122

012746
012746
012746
010600

00254C
007335
000002

062706
000544

000006

104017

9-FEB=79 19:46:54 PAGE

JSR
181

BEQ

RS,BSFOK
BSFOKF
10%

PRINTF WFMT18, #NHWSEC

MOV
MOV
MOV

MCvV
EMT
ADD
JSR

151

BEQ

002230
1%:

MOV
JSR
JSR

SP.RO
CEPNTF
#6,S5P
RS, NEWBSF

TEMPO
1%

TEMPO ,NEWF AC
RS.,COPY
RS ,WRTBSF

WFMT18,#HYPHEN

MCV
EMT

SP.RO
CSPNTF

ADD

#6,SP
THE

ENTRYS

W#FMTSN,#CART,SERNM?,SERNMI

MOV
MOV
MOV
MOV
MOV

SERNM1,=-(SP)
SERNMZ2 ,~-(SP)
#CART ,=(SP)
#FMISN,=-(SP)
¥4 ,-(SP)

000012
013476

EMT
ADD
INC

CSPNTF
#12,5P
PSNFG

002322
026442

11%:

013500
013456
000176

013456

000062

013456

002322

2%:

CLR
MOV

1871
BPL
JMP

INC
(MpP

BEQ

CMP
BNE
181
BNE

PRINTF

SP,RO

TEMPI
BSFILE(R2),R3
R3
2%
NOFACT

FACNUM
#126.,FACNUM

BSRFLD

#50.,FACNUM
21%
TEMPI
21%

#FMT19,#0VRMAX

006150
007342
000002

MOV
MOV
MOV

#OYRMAX ,=-(SP)
#FMT19,=-(SP)
#2,-(SP)

000006

EMT
ADD

CSPNTF
#6,SP

MOV

PRINTF

:NO
:SET THE FLAG
JYES = COPY TO WHMOLE FILE
JASK 1F TIME TO WRITE PA(CK

;DO THE FIELD REPORT

BSRFLD

002224
002226
002427
007420
000004

MOV

;BUILD A NEW FILE
:DID 1?

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

PROCESSING

PRINTF

;FIND A SECTOR TO USE IN FACTORS AREA
;SEE IF ERROR DETECTED
;JUMP [F Ok

#NHWSEC,-(SP)
FEMT18,-(5P)
#2,-(SP)

PRINTF

MOV
MOV
MOV

BR
iBIARI

612
L4

7-1

SEQ 0044

004537
005737
001441

104017

e G

oo
WU
WK
NNNNNNNNNN%NNNNNNNNNNN
roroN

40
41

————————
it s

38
39

(=lelelolelelalalolelelololelolololeloleolelele)] (=]

PROGRAM MAIN LOOP

SP,.RO

#MCRL}

:SET

THE FLAG

JGET THE CYLINDER # FROM ENTRY
:3EE IF 11S Ok 10 USE
;0K

sWHOOPS...ERROR
. +COUNT THIS ENTRY
:ENg OF FILE LIMIT?
;YU

sTIME TO QUIT PRINTING?

;NO

:PR;NTED ERROR MESSAGE

;YU

sTELL OPR OVER LIMIT

YET?

—

CIRLMAD RLO1/72 BSFT

MACRO v03.01

PROGRAM MAIN LOOP

012456

012746
012746
010600

007552
000001

062706

000004

005737
001444
005237
010337
005722
016203
110337
000303
110337

005722

013746
12746

~
o

w
~

3746

10002%:

002320
002322
013460

21%:

026442
013462
013464

013464
002462
013462
003101
013460
002447
013456
007450
000010

023066

012746
012746
012746
010600

004705
007335
000002

062706
004537
005737
001436

000006
013750
013474

012746

003453

104017

000020
013470

013454
013476

ADD

#,,SP

BR
.WORD
.WORD
.WORD
.WORD
1S1
BEQ
INC

MOV
TST
MOV
MOvB
SWAB
MOVB
1S1
PRINTF
MOV
MOv
MOV
MOv
MOv
MOV

MOV
MOV
MOV
MOV
EMT
ADD

000022

004537
005002
012737
005037
005027
005037

#,-(SP)

GMANIL
EMT

000404
002320
000120
005770
177777

—, e

wuNN—o-‘—a—oO? ~N
OO
SN CONOSFOONINNOO.

- —

—

il -l

LAttt
la LoV I T N VT NT N1 VT N1 VT ST V1 ¥ NN

Tl —h —h —h —h —h —

A
AL ALY AV A ALV LW LV LW LW LN AV LV LV 1Y ] w
L
Al AV IV o
W
o

OCOO0O0O0O0O0O0O0O0O00OOOOOOOOODOOOOOOOOOOO
jelelelelsleleleleleleolealelelelele
o)

7-2

MOv
MOV
MOV

EMT

106043

566

SEQ 0045

104017

9=FEB=79 i19:46:54 PAGE

#MCRLF ,-(SP)

SP,RO
CSPNTF

TILLEND,TEMPO, 177777 ,NO
CSGMAN
10002%

TEMPO
T$CODE

TILLEND

177777

TEMPO
BSRFLD

TEMP]
R3,BSFCYL

013466

JSR
CLR

MOV

CLR
(LR
(LR

PRINTF
MOV
MOV
MOV
MOV

EMT

ADD

JSR
181

BEQ

PRINTF
MOV

PRINTING ENTRIES

;SET THE PRINT ERROR FLAG
sSAVE THE CYLINDER NUMBER
;POINT TO HEAD & SECTOR ENTRY
SGET 17
sSAVE THE SECTOR NUMBER
;PUT THE HEAD # IN LOW BYTE
:SAVE THE HEAD NUMBER
;POINT TO THE NEXT ENTRY

{(R2)+
BSFILE(R2),R3
R3,BSFSEC
R3
R3,BSFHD
(R2)+

FEMTCSH,FACNUM,
#CMSG,BSFCYL ,#SMSG,BSFSEC,#HMSG,BSFHD

BSFHD,=(SP)

#HMSG,
= (SP)

BSFSEC,=(SP)
#SMSG,
= (SP)

BSFCYL,=(SP)

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

#10,=-(SP)

SP,RO
CSPNTF
1%

;HERE TO REPORT THE CONTENTS OF

BSRFLD:

:NO?

;QUIT

RS,RDFIELD

k2
#16.,SECMAX
SECNUM
FLDNUM
PSNFG

NEMT18, #BSRF

sPROCESS THE NEXT ENTRY
THE

°*FIELD"

FILE

;GET THE FIELD BD SEC FILE
;POINT TO THE 1ST SECTOR OF THE 'FIELD" FILE
;SET THE LAST USUABLE SECTOR NUMBER
;POINT TO THE 1ST SECTOR IN FIELD FILE
sCLEAR THE FIELD ENTRY COUNTER
sCLEAR THE PRINT FLAG rOR SERIAL #

#BSRF ,=(SP)

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

SP,RO
CSPNTF
"o, 5P

RS ,BSFOK
BSFOKF
10%
#FEMTI8, INSWSEC
INSWSEC,=(5P)

;FIND A SECTOR TO USE

sANY

ERROR

s JUMP 1F

DETECIED?

IN THE

FIELD AREA

CIRLMAO RLO1/2 BSFT

o
orN o N o

J"W\:WN
oo N

NSNNNNNNNNNN ~

2
2
2
2764
2764
2770
2774
3000
3002
3004
3010

116

117

(=lelelelelelelelelelelelelolelelolelelolelelelaleleleleleleleclolelelel=le]

91
92
93
94
95
96

NN NN

——————

(=lelolelololelololelelolelololele
o]

PROGRAM MAIN LOOP

012746
012746
010600
104017
062706
004537
005737
001404
004537
004537

012746
012746
012746
010600
104017
062706
000544

MACRO v03.01

9-FEB=79 19:46:54 PAGE

007335
000002
000006
020614
002320
020536
015122

1%:

002540
007335
000002

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

EMT
ADD
JSK
1S1
BEQ
JSR
JSR

CSPNTF
"6,SP
RS ,NEWBSF
TEMPO

SP,RO

WFMT18,#HYPHEN

MOV

SP,RO

MOV
MOV
MOV

PRINTF

000012
013476
002322
026442

11%:

013566
013454
000176

013454

000062

013454

2%:

ADD
INC
CLR
MOV

JASK

CSPNTF
#6,SP
BSRTOT

MOV
MOV
MOV
MOV
MOV
EMT

:NO
:YES = COPY TO WHOLE FILE

TIME

TO WRITE FILE ON PACK

#HYPHEN,=(SP)
FEMT18,-(SP)
#2,-(5P)

TO PROCESS ENTRYS FROM THE

MOV

:BUILD A NEWw FILE
;DID 1?

1%
RS,COPY
RS,WRTBSF

PRINTF

EMT
ADD
BR

000006

002322

MOV
MOV

MOV

002224
002226
002427
007420
000004

022737

7-3

SEQ 0046

iSERE

076

sPRINT

THE

TOTALS FOUND

FIELD FILE

WFMTSN,#CART,SERNM2
,SERNM1

SERNM1,=(SP)
SERNMZ2,-(SP)
#CART,=(SP)
#EMTISN,=(SP)
#4,-(SP)
SP,RO

CSPNTF

#12,SP
PSNFG
TEMPI
BSFILE(R2),R3

JGET

BPL
JMP
INC
CMP

2%
NOF 1ELD
FLDNUM
#126.,FLDNUM

;0K
:ERROR!
sCOUNT THIS ENTRY
JEND OF FIELD ENTRY LIMIT?

(mMp
BNE

#50.,FLDNUM
21%

181

BEQ

181
BNE

PRINTF

BSRTOT

TEMP]
21%

#FMT19,#0VRMAX

006150
007342
000002

MOV
MOV
MOV

000006

EMT
ADD

CSPNTF
¥6,SP

007552
000001

MOV
MOV

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

000004

EMT
ADD
GMANIL

CSPNTF
5P
TILLEND,TEMPO, 172777 ,NO

MOV

PRINTF

MOV

#OVRMAX ,-(SP)
#FEMT19,-(SP)
#2,-(SP)
SP,RO

#MCRLF

SP,RO

JSET THE PRINT FLAG
JSEE

THE CYLINDER # FROM ENTRY
IF

ITS Ok

:YUP

TO USE

sTIME TO QUIT PRINTING?
:NO
sPRINT THE ERROR MESSAGE?
:NO
JYES = TELL OPR

LIRLMAO RLO1/2 BSFT

PROGRAM MAIN LOOP

013170
013172
013174
013176
013200
013202
013204

104043
000404
002320
000120
005770
177777

118
119
120
121
122

013204
013210
013212
013216
013222

005737
001444
005237
010337
005722

1264
125
126
127
128

013230
013234
013236
013242
013244

110337
000303
110337
005722

123 0132264

013244
013250
013254
013260
013264
013270
0132764
013300
013304
013310
013312
013314
}%8 013320

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

016203

013746
012746
013746
012746
013746
012746
013746
012746
(012746
010600
104017
062706
000656

002320

002322
013460

10003%:

21%:

026442

EMT
BR
.WORD
.WORD
.WORD
LWORD

CSGMAN
10003%
TEMPO
TSCODE
TILLEND
177777

TST
BEQ
INC
MOV
18T

TEMPO
BSRTOT
TEMP1
R3,BSFCYL
(R2)+

MOV

013462

MOvVB
SWAB
MOvB
18T
PRINTF

013464

013464
002462
013462
003101
013460
002447
013454
007450
000010

MOV
MOV
MCv
MOV
MOV
MOV
MOV
MOV
MOv
MOV
EMT
ADD
BR

000022

THE

133 013322
013322

BSRTOT:

PRINTF
MOV

013352
013356
013362
013366
013372
013374
013376

013746
012746
012746
012746
010600
104017
062706

013454
002606
007435
000003

013402
013406
013412
013416
013420
013422

012746
012746
012746
010600
104017
062706

002472
007335
000002

134 013352

135 013402

013456
002636
007435
000003

000010

000006

TOTALS FROM EACH SECTION

WFMTTB,#TMMSG,FACNUM
FACNUM,-(SP)

MOV
MOV
MOV
MOV
EMT
ADD

#TMMSG,
= (SP)
N#EMTTB,~-(SP)
#3,-(SP)
SP,RO
CSPNTF
#10,5P

MOV
MOV
MOV
MOV
MOV
EMT
ADD

FLDNUM,~(SP)
#TEMSG,=(SP)
#EMTTB,-(SP)
#3,-(SP)

PRINTF

MOV
MOV
MOV
MOV
EMT
ADD

;QuiT?
:YUP

;SET THE PRINT FLAG
sSAVE THE CYLINDER NUMBER
;POINT TO HEAD & SECTOR ENTRY
BSFILE(R2),R3
;GET IT
R3,BSFSEC
:SAVE THE SECTOR NUMBER
R3
sPUT THE HEAD # IN LOW BYTE
R3,BSFHD
sSAVE THE HEAD NUMBER
(R2)+
;POINT TO THE NEXT ENTRY
WFMTCSH,FLONUM,#CMSG,BSFCYL,#SMSG,BSFSEC,
#HMSG,BSFHD
BSFHD,=(SP)
#HMSG,
= (SP)

#SMSG,=(SP)
BSFCYL,=(SP)
#CMSG,~-(SP)
FLDNUM,=(SP)
FEMTCSH,=(SP)
#10,-(SP)
SP,RO
CSPNTF
#22,SP
1%

;PRINT

013746
012746
012746
012746
010600
104017
062706

SEQ 0047

BSFSEC,=(SP)

}g;

013326
013332
013336
013342
013344
013346

7-4

W#FMTTB,#TFMSG,FLDNUM

SP,RO
CSPNTE
#10,SP

#FMT18,#STARMSG

#STARMSG,
= (SP)
#FEMT18,-(SP)
#2,-(SP)
SP,RO
CSPNTF
’e,sp

;PROCESS THE NEXT ENTRY

136 013426

013426
013432
013436
013440
013442
137 013446

138
139
140
141 013452

142 013454
143 013456

007552
000G01

062706
000157

000004
012002

000000
000000
000000
000000
000000
000000
000000
060000
000000
000000
000000

il el
il
)

003351
007335
000002

- — — — — —

)

163
164
165
166

167

000006

002540
007335
000002

NOFACT:

¥4, SP

BSRPTS

.WORD
.WORD
.WORD
.WORD

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

.WORD

END OF

TS1
BNE
(LR

EMY

ADD

1$:

PRINTF

MOV
MOV
MOV

ADD

005737
001014
005037

013454

012746
012746
012746
010600

003426
007335
000002

MOV
MOV
MOV
MOV

062706

000006

ADD

012746

002540

NOFJELD:

013454

THE

TS1
BNE
(LR
PRINTF

PRINTF

MOV

ADDR OF

THE

;PRINT

FLAG FOR

;ERROR DETECT FLAG
THE

FACTORY

°"FOUND'

SERIAL

SECTOR

IN BAD SEC

FACNUM
NEMT18, #HWSEC
WHWSEC ,=-(SP)
#FEMT18,-(SP)
#2,-(SP)

FILE

s YUP

;CLEAR

THE

ENTRY

COUNTER

;00 THE

FIELD SECTION

FOR

SP,RO

CSPNTF

NEMTI8,AHYPHEN
WHYPHEN,=(SP)

END OF

FliE

;WAS ANY ENTRY DETFCTED?

BSRFLD

EM1

1%:

# FLAG

;:START

#6,S5P

JMP
AT

SERIAL

:NUMBER OF CURRENT FIELD ENTRY
sNUMBER OF THE CURRENT FACTORY ENTRY
sCURRENT CYLINDER FROM ENTRY IN PROCESS
:CURRENT SECTOR FROM ENTRY
;CURRENT SURFACE (MEAD) FROM ENTRY IN PROCESS
;LAST USUABLE SECTOR NUMBER IN SELECTED SECTION
;CURRENT SECTOR BEING USED TO EXTRACT ENTRYS

SP.RO
COPNTF

EMT

;MAVE

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

MCV

JHERE

SSELECT NEXT UNIT

g:(NUH

PRINTF
MOV
MOV
MOV
MOV

000006
012630

104017

168

PSNFG:

012746
012746
012746

—

160
161
162

FACNUM:

013456

ADD

SP,RO
CSPNTF

IS THE STORAGE FOR THIS ROUTINE

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

013456

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

JMP

NOSNUM:
FLDNUM:

005737
001014
005037

PRINTF
MOV
MOV
MOV

EMT

;HERE

. — —

159

012746
012746
010600
104017

7-5
SEQ 0048

JHERE

il el

=
VIS NN
OO NO

1
1
|
1
1
1
1

013460
013462
013464
013466
013470
013472
013474
013476

e lelelelelelelelelelelelelelelelele]

i [V RV LV IV IV IV IV )

144
145
146
147
148
149
150
1

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

COOCOOCOOOOCOO

CIZRLMAD RLO1/2 BSFT

PROGRAM MAIN LOOP

THE

FIELD FILE

FLDNUM

WEMTIB, #SWSEC
#SWSE(,=(SP)

#EMT18,-(SP)
#2,-(SP)
SP.RO
(SPNTF
"o, 5P
FEMTIB, IHYPHEN

PHYPHEN,=(5P)

JANY

JYUP

sNO =

FL1ELD

(CLEAR

ENTRYS?

THE

ENTRY

COUNTER

FACTORY

SECTORS

CZRLMAD RLO1/2 BSHT

o
_p
B
s
e
e
el
—

NNNNNYNNNO
[« R
]
"

PROGRAM MAIN LOOP

013630
013634
013640
013642
013644
013650

MACRO v03.01

007335
000002

062706
000137

000006
013322

MOV
MOV
MOV

EMT

ADD

JMp

SMERE
000004

013470

013470
0134606

000006
177777

000400

013470
000400

182

183
184

000400

NOMSEC:

7-6

ADD
(Mp
BLOS

1%:

2%:

SP,RO
(SPNTF

#6,SP

BSRTO1

#46,SECNUM

?E(NUH.S((HA!

#EMTI8,#BSEND

MOV
MOV
MOV
MOV

#BSEND,=-(SP)

ADD

#6,5P

EMT

013474

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

;D0 THE

TOTALS

NO SERIAL NUMBER OR 2 0'S NOT DETECTED IN 1ST & WORDS OF

PRINTF

003113
007335
000002

177
178
179
180
181

19:46:54 PAGE

SEQ 0049

012746
012746
010600
104017

9-FEB=79

BIS
BR

MOV
MOV
ADD
DEC

BNE
BR

;UPDATE

;AT

THE

;BRANCH

THE

END

SECTOR

SECTOR NUMBER

SECTION?

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

SP,RO
(SPNTF

#77777 ,BSFOKF
BSFOKX
#128.¢2 ,R?

SECNUM,R}Y

#128.+2
,R?

;SET THE ERROR FLAG
SEXIT

THE

SECTOR FIND ROUTINE

WITH ERROR SET

;UP THE OFFSET By 1 SECTOR
;DECREMENT THE (OUNTER = MULTIPLY
;BACK

JSEE

FOR ANOTHER

NOT

THIS SECTOR IS Ok

DONE

CIRLMAG RLO1/2 BSHT

MACRO v03.01

9-FEB=79 19:46:54 PAGE

VI N

JHERE

Y D

p——

OCOVONO NS NN = OO0

005037
012737
060237
005762
100739
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
026442
013472
026442

013472

BSFOK:

026444
177777
177777

013452
027040

177777

027042

026442

002224

1%:

(LR
MOV
ADD
151
BM]

BNE
151
BNE
BIS
(Mp
BNE
(MP
BNE

MOV
151

026442
026442

THE

181
BMI
MOV
151
1S1
BNE
181
181

002226

026442
026442

BNE

BSFOKX:

1§17

RTS

SECTOR FIND ROUTINE

BSFOKF

FOR

THE

BAD

sCLEAR THE ERROR FLAG

#BSFILE,SECOLD

;GET BASIC

BSFILE(R?2)

sSEE

;1F

R2,SECOLD

NOMSEC

BSFILE+2(R?2)

SECTOR FILE

sADD

s1F

ADDRESS

IN THE OFFSET

IF ANY SERIAL NUMBER

JUMP

TO ERROR SERVICE

>0 THEN HAVE A NUMBER

sANY SER. NUM [N WORD 2?

1%
:BR IF 0K
W177777 ,NOSNUM
;SET THE NO SERIAL NUMBER FLAG
#-1,BSFILE+254.(R2) ;END OF SECTOR OK ALSO?

NOMSE C

:NO = NO MATCH MHERE!

BSFILE(R2)

sSEE

#-1,BSFILE+256.(R2) ;END OK HERE T00?
NOMSEC
:NO = DON'T MAVE A BAD SECT FILE YET!
BSFILE(R2) ,SERNM] ;SAVE LOW ORDER OF SERIAL #
(R2)+
;POINT TO HiGH ORDER OF SERIAL #

NOMSE C

LEGAL

:NO = ERROR

BSFILE(R2) ,SERNMZ

;SAVE HIGH ORDER OF

SERIAL

(R2)+
BSFILE(R2)

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

NOMSEC

:NO = ERROR

NOMSE C
(R2)+
BSFILE(R2)
(R2)+
RS

:NO = ERROR
;POINT TO LAST CHECK ENTRY SPOT
;SEE IF LEGAL (=0)
;POINT TO 1ST VALID ENTRY [N SECTOR
SEXIT = R2 POINTS TO THE OFFSET VALUE
sAND

SECNUM

(CURRENT

SECTOR

IN FILE

—

CZRLMAD RLOY/2 BSHT
—_

PROGRAM MAIN LOOP

MACRO v03.01

9-FEB-79 19:46:54 PAGE 9
SEQ 0051

014102

STARS

MMAAAAAAAA R

§?E:§

014102

IS THE

ROUTINE

TO ADD AN ENTRY

INTO THE

'FIELD' BAD SECTOR FILE

[ W

PN
—

= OOV®NOWVES
NN =D OyO

Lol o

;:"'"""'""'."'.""0'""""'.""tt""'."'."'.""..'

014102
014102
014106
014112
014116
014120
014122
014126
014132
014136
014140
016144
014150
014154
014160
014162
014166

014170
0146174
014200
014204
014206
014206
014212
014216
014222
016224
014226
014232

014236
014236
0146240
014262
014244
014246
014250
014252
014252
014256

014260
014264
014266
014266
014272
014276
014300
014302
3 014306

005024

BSADD:

007342

000002

010470
01166C
023222
002320
010736

004537
004537
005737

010642
021710

012746
012746
012746
010600

003747
007335
000002

062706
000137

000006
011660

001414

104017

005737
001730

002320

005737
001470

013452

012746
012746
010600
104017
062706

007552
000001
000004

MOV

#FEMT19,-(SP)

EMT

ADD
JSR
JMP

1%:

#6,5P
RS,FIRST
NXTCMD

JSELECT 1ST UNIT
sNONE AVAIL.!
sSELECT THE NEXT UNIT
sALL DONE
;DRV READY?
JWELL?
JYES

BSADDS

JSELECT

JSR
JSR
187

RS.DRVID
RS ,RDBDSC
ACCESS

sTELL OPR WHAT DRIVE
JGET A FRESH COPY OF

MOV

BSATD
W#FMT18,#DENIED

THE BAD SECTOR FILE

:YUP

#DENIED,~(SP)
#FEMT18,-(SP)
#2,-(SP)
SP.RO

CSPNTF
#6,5P
NXTCMD

GMANIL
EMT
BR
.WORD
.WORD
.WORD
.WORD

THISDRV,TEMPO,1,NO
(SGMAN
10004%
TEMPO
T$CODE
}NISDRV

187

THE NEXT UNIT

JALLOWED TO DO IT?

EMT
ADD
JMP

TEMPO

sTELL OPR NOT ALLOWEL B EXIT

BEQ

BSADDS

sBRANCH ]F

TST
BEQ

NOSNUM
GETCYL

sSEE IF NEED A SERIAL NUMBER
;JUMP |F HAVE A NUMBER

MOV
MOV

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

EMT
ADD
CMANIL

CSPNTF

PRINTF

MOV

GETSN:

SP.RO

CSPNTF

RS,SELDRY
NXTCMD
RS,LOADED
TEMPO
%
RS,DRNRDY

MOV
MOV
MOV

BSASN:

#2,-(SP)

BSADDL

BEQ
PRINTF

10004%:

#ABSMSG,-(SP)

BSADDS: JSR
JMP
BSADDL: JSR
181
BEQ
JSR

BSATD:

000404
002320
000120
006575
000001

W#FMT19,#ABSMSG

MOV

002372

104043

PRINTF

MOV
MOV

000006
010460
011660

000764

e
—

#MCRLF

SP,RO

#4,5P

ABSSER,TEMPC,1,NO

NOT

TO USE

THIS DRIVE

CIRLMAOD RLO1/2 BSFT

PROGRAM MAIN LOOP

014306
014310
014312
014314
014316
014320
014322
32 014322
33 014326
34 014330
014330
014332
014334

014336
014340
014362
014344
014346
014350
35 014350
014350
014352
014354
014356
014360
014362
014364
014366
014370
36 014370
014370
014374
014400
014404
014410
014414
014416

014420
37 014424
014424
014426
014430
014432
014434
014436
014440
38 014440
33 014444

41 014446

014446
014450
014452
014456
014456
014460
014462

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

SEQ 0052

104043
000404
002320
000120
005220
000001
005737
001447

002320

10005%:

104043

000406
002364

10006%:

104043
000406
002366
000022
005331
077777
000000
077777

10007%:
002364
002366
002427
007420
000004

000012

104043
000404
002320
000120
005660
177777

005737
001720
104043
000406
013460
000042
005114
000777
000000

(SGMAN
10005%
TEMPO
T$CODE
?BSSER

181
BEQ
GMANID
EMT

TEMPO
GETCYL

BR
.WORD

000022
005272
077777
000001
077777

013746
013746
012746
012746
012746
010600
104017
062706

EMT
BR
.WORD
.WORD
.WORD
.WORD

002320

100108
:

.WORD
.WORD
.WORD
.WORD
.WORD

GMANID
EMT
BR
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
PRINTF
MOV
MoV
MOV
MOV
MOV
MOV
EMT
ADD
GMANIL
EMT
BR
.WORD
.WORD
.WORD
.WORD

181
BEQ

GETCYL: GMANID

EMT
BR
.WORD
.WORD
.WORD
.WORD
.WORD

:SEE IF YES (=1)
“BRANCH 1F NO

ABSSNL ,SN1,0,77777.,1,77777.NO
CSGMAN
10006%
SN1

T$CODE

ABSSNL

77177
TSLOLIM
TSHILIM

ABSSNH,SN2,0,77R77,0,77777
,NO

CSGMAN
10007%

SN2
T$CODE

ABSSNH

7777
TSLOLIM
TSHILIM
#FMTSN,#CART,SN2,SN1

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

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

SP,RO
CSPNTF

#2,sp

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

TEMPO
GETSN

:JMP 1F NO
:NO VALID SERIAL NUMBER = ASK AGAIN

ABSCYL ,BSFCYL,D,777,0,511.,NO
(SGMAN
10011%
BSFCYL
T$CODE
ABSCYL

777

TSLOL
IM

CZRLMAO RLO1/2 BSFT

PROGRAM MAIN LOOP

64 0164466

45 014474
46 016476
47 014504

48 014506
014506
014512
014516
014522

014524

014526
49 014532
50 014534

000777

022737

001017
022737
103013

062706
000745

000006

104017

104043

014572

000377

005627
007342
000002

014554

., 016574

000001

012746
012746
012746
010600

104043
000406
013462
000042
005146
000077
000000
000047

014554

10011$:

CMP

013460

014624
014626
014632
014636
014662
014646
014650
014650
01465«
014660

000001

001402
052700
010037
004537
005737
001414
012746
012746
012746

GETSEC
#255. ,BSFCYL
GETSEC

PRINTF
MOV
MOV
MOV
MOV

WFMT19,#RLICLM
#RLICLM,=(SP)
#EMT19,=(SP)
#2,-(SP)
SP,RO

EMT

SEQ 0053

10013$:

013460

100000
013462
0134064

000100
002314

025252
002312

004013
007335
000002

1$:

‘RLO1=1

:SKIP CHECK IF RLO2
:VALID RLOT CYLINDER?
SYUP

:NO - TELL OPR

CSPNTF

ADD
BR
GETSEC: GMANID

000406
013464
000042
005175
000003
000000

013700
000300
000241
006000
103002
052700
053700
005737

#1,TDR

BNE
CMP
BHIS

#6,SP
GETCYL
:GET CYL AGAIN
ABSSEC,BSFSEC,D,77,0.39..NO

EMT
BR
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD

CSGMAN
10012%
BSFSEC
TSCODE
ABSSEC
77
TSLOLIM
TSHILIM

GMANID

ABSHD,BSFHD,D,3,0,1,NO

BR
.WORD
.WORD
.WORD
.WORD
.WORD

10013$
BSFHD
TS$CODE
ABSHD
3
TSLOLIM

CSGMAN

LWORD

:CHECK TO SEE
014574
014600
014602
0146064
014606
014610
014614
014620

TSHILIM

EMT

63
64
65
66
67
68
69

002246

100128
:

55
56
57
56
59
60
61
62

LMORD

;CHECK FOR A VALID RLO1 CYL IF DRIVE=RLO1

014534
014536
014540
014542
014544
014546
014550
014552
014554

014556
014560
014562
014564
014566
014570

|
|
|
|

014464
01446%

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

MOV
SWAB
CLe
ROR
BCC
BIS
BIS
18T

BEQ
BIS
ACKENT: MOV
J5R
1s1
BEQ
PRINTF
MOV
MOV
MOV

TSHILIM

THE NEW ENTRY ALREADY EXISTS IN THE FILE
BSFCYL,RO
RO

RO
1%
#B1T15,R0
BSFSEC,RO
BSFHD
ACKENT
#100,R0
RO, CHKSEC

RS,CKBDSC

HDRF ND
1%
#FMT18,#EXISTS
WEXISTS,=(SP)
#FMT18,=(SP)
#2,-(5P)

:GET THE CYL TYPED

:CLEAR THE

'C* BIT

:BR 1F DON'T NEED THE EXTRA BIT
:ADD HIGH ORDER SIT IN YL #
:ADD IN THE SECTOR NUMBER
:ON HEAD 0??
:BR IF HEAD 0
SMAKE 1T HEAD M1
:SAVE FOR THE CHECK

;CHECK TO SEE IF ALREADY IN BAD SECT FILE
:HEADER IN FILE?
:BR IF NOT IN FILE
:TELL OPR ENTRY IN FILE NOW

CIRLMAOD RLO1/2 BSFT

PROGRAM MAIN LOOP

014664
014666
014670
014674

MACRO v03.01

9-FEB=79 19:46:54 PAGE 9-3

010600
106017

062706
000137

SP,RO
CSPNTF

MOV

EMT

000006
014140

SEQ 0054

ADD

¥6,SP

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

;ADDITION THEN UPDATE THE BAD SECTOR FILE
014700
014700
014704
014710
014714
014716
014720
014724
014730
014732
014740
014744
014750
014754
014756
014756
014762
014766
014772
014774
014776
015002
015006
015012
015014
015020
015024
015026

015034
015042
015046
015052

1%:

006103
007335
000002

EMT

000006
013470

001421
012746
012746
012746
010600
104017
062706
004537
005737
001002
000137

000020
013454
013750
013474

013466

MOv

CLR
JSR

PRINTF
MOV
MOV
MOv
MOV

EMT

ADD

JSR
18T
BNE
JMP

014140

013762
013703
000303
063703
010362

013460
013464

002364
002366
013454
026442

2%:
176436
176432

21%:

000004
026442

020536
015122
014140

;FIND A "FIELD' SECTOR AREA
:ON A SECTOR?

;YUP

:NO =

RS ,NEWBSF
TEMPO

TELL

OPR

;ASK OPR IF

sSELECT THE NEXT UNIT

;PAgK HAVE

21%
SN1,3SECOLD
SN2 ,aSECOLD+?2

sCOUNT THIS ENTRY TO BE TESTED
;SEE IF A FREE SLOT
;1 FOUND IT...
sPOINT TO THE NEXT ENTRY

BSFCYL,BSFILE(RZ)

ADD
MOv

BSFSEC,R3

R3,BSFILE+2(R2)
THE

THE NEXT

SLOT

: INSERT THE CYLINDER NUMBER
;GET THE SFLECTED HEAD
:SWAP BYTES TO POSITION THE WD BIT
:R3 NOW HAS COMPLETE HD & SEC ENTRY
; INSERT 2ND HALF OF ENTRY

BSFHD,R3

RS,COPY
RS,WRTBSF
BSADDS

sSAVE HIGH 5 #

sAND TRY

sNO - SAVE LOW 5 #

MOv
MOv

INTC REST

A SERIAL

:YU

¥4 ,R2

ENTRY

TIME TO MAKE A 'FIELD' BSF

sWAS A FILE BUILT?
sYES = CONTINUE

BSADDS

JSR
JSR
JMP

SECTOR 20.

#6,5P

4%:

SEARCH AT

THE

SP,RO
CSPNTF

BSFILE(R2)
3%

THE

sSTART

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

FLDNUM

s INSERT

ITS A NEW ENTRY

;START AT ENTRY #1

#NSWSEC,-(SP)

INC
18T
BMI

SWAB

013462
026444

;TELL OPR

;POINT TO THE STARTING AREA IN BSFILE
;THIS 1S THE LAST AVAIL. SECTOR PAIR

RS ,BSFOK
BSFOKF
2%
NFMT18,ANSWSEC

NOSNUM

ADD

AREA FOR THE

SP,RO
CSPNTF

187
BEQ
MOv
MOv

'FIELD'

(MEDIA).

#2,-(SP)

FLDNUM

181

BEQ

NEMT18,#NEWENT

#NEWENT ,-(SP)
#FMT18,-(SP)

¥6,5P
SECNUM
R2
#16.,SECMAX

CLR
CLR

000006
020614
002320

013452

004537
004537
000137

ADD

003453
007335
000002

005737
001406
013777
013777
005237
005762
100403
062702
000757

PRINTF
MOV
MOV
MOV
MOV

ITSELF

'FIELD'

;UPDATE
;ASK

OPR

FILE

THE REST OF
IF

TIME

THE

FILE

TO UPDATE

SSELECT THE NEXT UNIT

PAC(K

CZRLMAOQ RLO1/2 BSFT

PROGRAM MAIN LOOP

MACRO v03.01

9-FEB-79 19:46:54 PAGE

SEQ 0055

015122

STARS

VWi

".""Q""Q'""""""""".""""""'.0"""."'".Ol

HERE 1S WHERE THE 'FIELD' FILE 1S WRITTEN ON THE PACK
:THE OPERATOR 1S ASKED It ITS TIME TO UPDATE THE PACK...IF

:THIS CCDE

015122

STARS

IS ABORTED.

NOT,

THEN

S NWNON)
= =0~ oo
oo ONON
S o~

e el e
e
D e e
i
h e

254

012746
012746
010600

007552
000001

062706

000004

104017

WRTBSF: MOv
PRINTF
MOV
MOV
MOV

EMT

ADD

106043
000404

002320
000120
005371
177777

005737
001531
004537
005737
001413

006401
007335
000002

062706
000511
004537
032701
001413

000006

012746
012746

077724
000001
177724

000012
002230
000077
002230

ADD

#6,SP

BR
JSR

BIT

EMT

002174
002210
002174

12%:

sYEST ¢
JEXIT ]

sREADY?
sWELL?
sYES
NO

NO'

SP,RO
CSPNTF

3%
R5,GETDST

ML, R1

12%
WFMT18,#WRTLCK
#WRTLCK,=(SP)

sDRIVE WRITE LOCKED?

;NO

JYES

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

SP,RO
CSPNTF

ADD

¥6,SP

MOv
MOv

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

;SETUP THE WORDCOUNT
sSTART THE WRITE AT SECTOR 20.

NEWFAC

HAKING A DUMMY ‘FACTORY" FILE?
NO
VUP = START AT SeCYOR Q0
;CLEAR THE FLAG ALSO

CMP
BEQ

1%:

R5,LOADED
TEMPO
1%
#FMT18,#NOTRDY

#NOTRDY,=(5P)
#EMT18,-(SP)
#2,-(SP)

PRINTF
MOv
MOV
MOV
MOV

002176
002174
002246

MOV
MOV
MOv
MOV

BEQ

000006
173000

TEMPO

EMT

003277
007335
000002

¥ ,SP

TST

181

11%:

SP,RO

CSPNTF

DOWRT,TEMPO,177777
,NO
CSGMAN
10014%
TEMPO
T$CODE
DOWRT
177777

BEQ
PRINTF

023342
020000

#1,-(SP)

GMANIL
EMT
BR
.WORD
.WORD
.WORD
.WORD

BEQ
JSR

023222
002320

012746
012746
012746
010600
104017

10014%:

002320

R1,=(SP)

FMCRLF
#MCRLF ,=(SP)

- N

010146

e N

=SS SNNG a0

e s “—.—‘—.dd—.—.-“—.d—‘d‘—.dd-‘d—.-‘—.d—.d-‘—‘d
VNN bbb Al Y A LV LV LV LV LV W IV TV IV IV ] WA NNV NN
RN
)l il
-l D -l —ld il D D - il il el i
WNININY
=t - N~
[ Al
LV P o o o
VT wnrornonN
nNoOS~roo s orooornvO O oosrnnoo
oo osrrN
e
D e
D e e

5250

AN
U U
VAUV U
W W NN
NN NN oo

17
18
19

(=lelelelsleleleleleleleleolelelelelelelalalelalelelelelelelelelelelelolololaleleolelelelelelel®
=)

e
e e
e

VB
W
—=O

O~NOr

::"."""""""""""""""""'0.'.'I..'.".."""."'.

MOv
MOV

181

BEQ
BIC
(LR

#WRITE ,FUNC

13%
#77,BDA
NEWF AC

sRLO2?
;JUMP [F RLO1
;START AT SECTOR 20. FOR RLOZ2
:LOAD THE FUNCTION

(RLOY)

CIRLMAD RLO1/72 BSFT

PROGRAM MAIN LOOP

MACRO v03.01

9-FEB=79 19:46:54 PAGE

SEQ 0056

005237
004537
004537
005777
100014

002250
021570
023¢64

13%:

p)
5
5
5600
5404
5606

1ST

BPL

000006
011660
01057¢

‘%:

000002

000006

aD(S

DETECTED WHILE

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

EMT

CSPNTF

#6,SP
NXTCMD
RS,PTIME

MoV
MOV

#MDONE ,=(SP)
#FMT18,-(SP)

MOV

SP,RO

EMT
ADD
MOV
RTS

UPDATING

THE

MEDIA

SP.RO

ADD
JMP
JSR

PRINTF

;SET THE WRITE IN PROGRESS FLAG
;DO THE WRITE OF THE UPDATED °'FIELD' FILE
;WAIT FOR READY
;WAS THE XFER GOOD?
:JUMP [F 0K

W#FMT18,#BADWRT

MOV
MOV
MOV

MOV

3%:

WRIPG
RS.LDFUNC
RS,WIRDY

AN ERROR

MOV

003541
007335
10600

PRINTF

005447
007335
000002

5
p)
13420
)

INC
JSR
JSR

164612

;HERE

10-1

WFMT18,#MDONE

;:BACK TO THE QUARY LOOP

sPRINI

IME

SYS

RUN

;TELL OPR - DONE

TIME

#2,-(SP)

CSPNTF
#6,SP
(SP)+ R1

;RESET R
;EXIT

ROUTINE

e
e

—————————

CIRLMAD RLOY/2 BSFT

PROGRAM MAIN LOOP

MACRO v03.01

9-FEB=79 19:46:54 PAGE

SEQ 0057

015454

STARS

LN 1 ATN
N —

RNN=DODO0OYO
VNS NN =D YO~

[
XVI

ARV 1Y

::.""'h""""""'Q"'."""""'.'""""""'."'l".""

;HERE

1S THE CODE TO SERVICE REMOVING AN ENTRY FROM THE

é?i&éOR FILE

015454

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

015454
015454
015460
015464
015470
015472
015474
015500
1
015504
1 510
12
1
1
1
1
1
1
1

005520
007342
000002

BSDEL:

EMT

000006
010460
011660
01047C
011660
023222
002320

000764
004537

ADD
JSR
JMP

010736
010642

1%:

002320

007552
000001
000004

10015%:

#DELMSG,=(SP)
#FMT19,-(SP)
#2,-(SP)

;TELL

OPR ABOUT

TO DELETE...

SP.RO

CSPNTF

#6,SP
RS,FIRST
NXTCMD

BSDELL

RS,SELDRvY
NXTCMD
RS,LOADED
TEMPO
1%
RS,DRNRDY

sSELECT THE 1ST UNIT
sNONE AVAIL.!
sSELECT NEXT UNIT
sALL DONE
;READY?
:YES

BSDELS

sSELECT

JSR

RS.DRVID

sTELL OPR WHAT DRIVE SELECTED

TST

ACCESS

sALLOWED TO PROCEED?

JSR

RS.,RDBDSC

BEQ
PRINTF

BSDELTD
#FMT18,#DENIED

MOV

SP.RO

EMT
ADD
JMP

BSDELTD:

#FMT19,#DELMSG

MOV
MOV
MOV

000006
011660

106043

JSR
JMP
BSDELL: JSR
1ST
BEQ
JSR

021710

BSDELS:

002372

PRINTF

MOV
MOV
MOV

MOV

003747
007335
000002

‘'FIELD' BAD

#DENIED,-(SP)
#FMT18,-(SP)
#2,-(SP)
CSPNTF
#6,SP
NXTCMD

THE NEXT UNIT

sGET A FRESH COPY CF

THE BAD SEC FIiLE

;YES
sNO = TELL OPR

;BACK

TO THE QUARY LOOP

GMANIL THISDRV,TEM®0,1,NO
EMT
CSGMAN

BR
LWORD
.WORD
.WORD
.WORD

10015%
TEMPO
TS$CODE
THISDRYV
|

181
BEQ

TEMPO
BSDELS

BSDEL1: PRINTF

MOV
MOV
MOV

EMT
ADD
GMANID
EMT

sRE=SELECT

#MCRLF

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

COPNTF
0 ,SP
DELCYL ,BSFCYL,D,777,0,511,.NO
(SGMAN

NOT

THIS DRIVE

CZRLMAD RLO1/2 BSHT

PROGRAM MAIN LOOP

000406
013460
000042
005114
000777
000000
000777

015672
015674
015676

104043
000406
013462

=lelelelelelelelsleloleleloleleleleleleleclolelolalelelelelele
=]

015654
015656
015660
015662
015664
015666
015670

NNNN NNNNNN NNNNSNINNNNNN

VNS S Lk NN
NI NN =
s et s e o
oo
& ~N oOoONNOOSTNOOSSTNINNNND o

el —ld -l —h D il
dh il
"

il Al L

. — — — — — — — — — —

il -

bt bbb AL LV TV IV IV IV IV IV I IV I

il il

il el

15700
5702
704

762
764
770
57764
6000

6004

MACRO v03.C1

9-FEB=79 19:46:54 PAGE

SEQ 0058

10016%:

000042
005146
000077
000000
000047

10017%:

1046043

000406
013464
000042
005175
000003
000000
000001
013700
000300
000241
006000
103002

052700
053700
005737

001402
052700
010037
004537
005737

001014

6006
016012
016016
016022
016024
016026
016032

012746
012746
012746
010600
104017
062706
000137

016036
016042
016044
016050
016054
016062

004537
005002
005037
005037
01273%7
004537

11-1

10020%:

013460

100000

013462
013464

1%:

000100
002314
025252
002312

2%:

10016%
BSFCYL
T$CODE
DELCYL
77
TSLOLIM

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

DELSEC,BSFSEC,D,77,0,39.,NO
(SGMAN
10017%
BSFSEC
T$CODE
DELSEC
77
TSLOLIM
TSHILIM

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

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

MOv

BSFCYL,RO

SWAB
Lc
ROR
BCC
BIS
BIS
187
BEQ
BIS
MOV

JSR
181
BNE

PRINTF
MOV
MOV
MOV
MOV

005567
007335
000002

EMT

000006
015512

ADD

023066

013470
013454
000020
013750

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

10%:

013466

TSHILIM

TSLOL
M
TSHILIM
RO

#BIT15,R0
BSFSEC,RO
BSFHD

#100,R0

RO, CHKSEC
RS,CKBDSC

;COPY THE CYL TO REMOVE
;PUT
;BR

ANOTHER BIT

JADD IN THE SECTOR NUMBER
;ON HEAD 0??

s YUP

:NO = POINT

TO HEAD

;SAVE THE COMPACTED DISK ADDRESS
sCHECK TO SEE IF ENTRY EXISTS

sFOUND?

#FMT18,#NOENTRY

sNOPE

#NOENTRY,=(SP)

DON'T WANT

;ADD IN HIGH ORDER CyL BIT

HDRFND

108

IN HIGH BYTE

JYUP

#FEMT118,-(SP)
#2,-(SP)

SP,RO
CSPNTF
#o,SP

JMP

BSDELS

JSELECT

THE NEXT UNIT

JSR
CLR
(LR
(LR

RS ,RDFIELD
R2
SECNUM

;GET

FIELD BAD SEC

JSR

RS,.BSFOK

sPOINT

MOV

THE

FLDNUM
#16,,SECMAX

70 A WORK

AREA

FILE

CIZRLMAD RLO1/2 BSFT

PROGRAM MAIN LOOP

56
57
58

005737

001421

016174

012746
012746
012746

0106C9
104017
062706

004537
005737
001002
000137
023762
001027
013737
000337
053737
023762
001013

MACRO v03.01

9-FEB=79

013474
003453
007335
000002

016262
016262
005762
100422

PRINTF
MOV
MOV
MOv
MOV

WFMT18,#NSWSEC
#NSWSEC,=(SP)
FEMT18,-(5P)
#2,-(SP)
SP,RO

;TELL

OPR

ADD

#6,SP

181

TEMPO

sSEE

BNE

013460

026442

013464
002322
013462
002322

002322

026446
026450
026446

;POINTING TO A VALID AREA?

JSR

015512
11%:

026442
026444

000765

THAT

ERROR EXISTS

CSPNTF

RS ,NEWBSF

;PROCEED

11%

OPR WANTS TO MAKE A FILE
IF

"FIELD"

BSFCYL ,BSFILE(R?2?

MOV

BSFHD, TEMP1

sGET

20%

:NO = UPDATE POINTER

BNE

THE

ENTRY

;SELECT
;AT

20%

NOW

...

KILL

THE NEXT UNIT

UPDATE POINTER

THE HEAD SELECTED

;PUT IT IN HIGH BYTE
;ADD IN THE SECTOR BITS
;CORRECT SECTOR T100?

THE

ENTRY

& MOVE

ALL OTHERS UP

MOv
MOV
181

BSFILE+4(R2) ,BSFILE(R2) ;MOVE NEXT CYL ENTRY UP
BS5FILE+6(R2) ,BSFILE+2{R2) ;MOVE NEXT SECT ENTRY UP
BSFILE+4(R2)

sEND OF

CMP

(R2)+,(R2)+

JPOINT

12%

BUILT

CORRECT ENTRY?

sNOPE'!

TEMPI
BSFSEC, TEMPI
TEMP1,BSFILE+2(R2)
SLOT

FILE

:BR = FILE WAS BUILT

(MP

BMI

022222

sYUP = PROCEED

BSDELS

BNE

12%:

11%

JMP

SWAB
BIS
(mp

002322
026444

SEQ 0059

BSFOKF

EMT

000006
020614
002320

11-2

187

BEQ

;HAVE

016176
016204
016212
016216
016220
016222

19:46:54 PAGE

ENTRYS

YET?

:YUP = EXIT

TO THE NEXT

sAND DO AGAIN

SLOT OF

ENTRYS

sUPDATE THE ENTRY SLOT POINTER
016224
016226
016232

022222
005762
100341

026442

20%:

003477
007335
000002

016240
016244
016250
016252
016254
016260

181

BPL

;HERE
016234
016234

CMp

(R2)+,(R2)+

JUPDATE POINTER BY 2 LOCATIONS

JNO = LGOK AT

BSFILE(R2)

JEND OF

ENTRYS?

THIS SLOT

IF NO "FIELD" ENTRY DETECTED ON THE PACK
PRINTF

#FMT18,#NOFLDE

MOV
MOv
MOV

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

ADD

#6,5P

MOv

EMT

JMP

#NOFLDE ,=(SP)

;TELL OPR NO

°'FIELD'

ENTRY HERE

CSPNTF

BSDELS

JSELECT

THE NEXT UNIT

004537
004537
000137

— PO

016270
016274

016264

oo O

;HERE TO CLEAR THIS ENTRY FROM REST OF FIELD BAD SECTOR FILE
;WILL COPY THIS MODIFIED SECTOR PAIR INTO THE ENTIRE 'FIELD' BAD SEC FILE
3%:

JSR

JSR
JMP

RS, COPY

RS ,WRTBSFH
BEIDELS

;COPY UPDATE

TO WHOLE FILE

;ASK OPR IF TIME TO UPDATE
JSELECT THE NEXT UNIT

CIRLMAD RLO1/2 BSHT

PROGRAM MAIN LOOP

MACRO v03.01

016300

9-FEB=79 19:46:54 PAGE

SEQ 0060

SIARS

'..""'"""'"'.""'""""."".'.""'..."""."".'.'

BSURXYE

H
:

éIARS

016300

== ROUTINE

TO WRITE

THE WHOLE PACK WITH THE WORST

CASE DATA PATTERN

FOR THE RLO1/2 THEN ISSUE THE °'VERIFY' (READ PACK) COMMAND. THIS
WILL CHECK THE PACK FOR BAD SPOTS AND COMPARE THE FOUND ENTRYS

WITH THE

EXISTING BAD SECTOR FILE.

Lo ]

WP =O OB

NYO WV

———

—=O

O~y

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

016300
016300
016304
016310
016314
016316
016320
016324
016324
016326
016330
016332
016334
016336
016340
016340
016344
016346
016352
016356
016360
016364

005737
001402
004537
000137
000404
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

004100
007342
000002

BSWRITE:

MOV
MOV

MOV

EMT

000006
106043
000404
002320
000120
006020
177777

002320
010460
011660

PRINTF

MOV

ADD

10021%:

1%:

NXTCMD
BSWRTL

JMP

NXTCMD

BSWRTL:

004537
004537
032701
001416
004537

010572
02334¢
020000

012746
012746

003277
007555
000002

016360

007552
000001

JSR

RS,FIRST

;QUIT IF CAN'T WRITE ON ALL PACKS
JSELECT THE 1ST UNIT
sNOME AVAIL.!

RS,SELDRvY

JSELECT THE NEXT UNID

RS,DRVID

sTELL OPR WHAT

sALL DONE

DRIVE

RS,LOADED

BEQ
JSR
BR

1%
RS,DRNRDY
BSWRTS

;:DRV READY
;TELL OPR NOT READY
sSELECT THE NEXT UNIT

JSR

RS,PTIME

sPRINT

BIT

#uL R

sWRITE LOCKED?

JSR

RS,.DRvVID

sTELL THE DRIVE 1D

JSR

BEQ

PRINTF
MOV
MOV
MOV
MOV

EMT

2%:

177777

JSR
181

11%:

CSPNTF

#6,SP

TEMPO
1%

010642
023222
002320

000006

SP.RO

181
BEQ
JSR
JMP
BR

.WORD

004537
004537
005737
001403
004537
000762

010642

#FMT19,-(SP)
#2.,-(SP)

MSTWRT,TEMPO,177777,NO
CSGMAN
10021%
TEMPO
T$CODE
MSTWRT

BSWRTS: JSR

1%:

;TELL OPR WHATS HAPPENING

GMANIL
EMT
BR
.WORD
.WORD
.WORD

010470
011660

010736

NFMTI9,#MMWRITE

#MWRITE ,=-(SP)

ADD

TEMPO

RS,.GETDST
2%

#MSG,AWRTLCK
#WRTLCK,=(SP)
#MSG,=(SP)
#2,-(SP)
SP,RO

:NO

Y¢S

CSPNTF

#6,SP

JMP

BSWRTS

PRINTF

#MCRLF

MOV
MOV
MOy

THE RUN TIME

;GET STATUS OF DRy

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

sSELECT

THE

UNIT

SELECTED

CZRLMAD RLO1/2 BSFT

PROGRAM MAIN LOOP

016500
016502
016506
016512
016516

104017

062706
004537

MACRO v03.07

004537

46 016614

004537

010572

016630
016634
016636
016640
016644
016650
016652
016652
016656
016662
016666
016670

016672
016676
016702
016706
016712
55 016716

51
52
53
54

EMT

000004
016720
002162
002160

000006
002242
023434
016744

&7 016620
016620
016626

ADD
JSR
CLR
(LR

PRINTF
MOV
MOV
MOV
MOV

006531
007335
000002

EMT

000006
007640

ADD

1§71
BEQ
PRINTF

006452
007555
000002

012746
012746
012746
010600

104017
062706
005737
001412

012746
012746
012746
010600
104017
062706

005237
0045%7
004537
004537
000620

12-1

SEQ 0061

016522
016522
016526
016532
016536
016540
016542
59 016546
40 016552
6 016554
016556
016560
016564
016570
016572
016574
62 016600
&3 016604
LG 016610
45

9-FEB=79 19:46:54 PAGE

MOV
MOV
MOV
MOV

EMT

i%:

JSR

EMT

000006
007640

ADD
1St

BEQ

PRINTF
MOV
MOV

006500
007555
000002

02% 3%
016744
017218

(LR
JSR
JSR

PRINTF
MOV
MOV
MOV
MOV

006553
007335
000002

000006
002242

ADD

MOV

MOV
EMT
ADD

INC
JSR

JSR
JSR
BR

CSPNTF

" ,SP

R5,CLRBSN
SFTCNT
ERRCNT

;CLEAR THE TEMP STORAGE FOR HARD ERRORS
;CLEAR THE SOFT ERROR COUNTER
;CLEAR THE HARD ERROR COUNTER

NEMT18, #URPKF

sPRINT

#WRPKF ,=(SP)

WRITE

PACK

FWD

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

SP,RO
CSPNTF

¥6,5P

WRTSAW

FMSG, #SAWF WD
#SAWFWD ,-(SP)
#NSG,=-(SP)

;SAWTOOTH WRT?
:NO

JYES = TELL OPR

#2,-(SP)

SP,RO

CSPNTF

#6,5P
FWDFLG

RS ,WRPACK
RS,CVERIFY

RS, PTIME
#EMT18, AURPKR
#WRPKR,=(SP)
#EMTI8,-(SP)

;SET CONTROL FOR FWD SAWTOOTH WRITE
;WRITE

THE

PACK

;CALL THE VERIFY ROUTINE
sTELL THE WALF
sTELL

OPR WRT

TIME

PACX

REVERSE

#2,-(SP)

SP,RO
CSPNTF

#6,S5P
WRTSAW

#MSG,#SAWRE
Y
#SAWREV,=(S5P)
#NSG,-(SP)

;SAWTOOTH WRT?

sNO

JVES

#2,-(SP)

SP.RO

CSPNTF

#6,5P
FWDFLG

RS ,WRPA(K
RS,CVERIFY
RS ,ENDRD!
BSWRTS

sSET CONTROL FOR REVERSE SAWTOOTH WRT

sWRITE THME PACK
sCALL THE VERIFY ROUTINE
sPRINT

JSELECT

THE

TOTALS

DRIVE

ERRORS DETECTED

CIRLMAD

RLOY1/2 BSHT

DO®WNNC NS Wy -

PROGRAM MAIN LOOP

MACRO v03.01

9-FEB=79 19:46:5¢ PAGE

SEQ 0062
;ON

016726
016732
01673%
016740

016742

—

JHERE TO CLEAR THE TEMP BAD SECTOR FILE STORAGE Of 'QARD' ERROR SPOTS
016720
016722

025726
\77777

026322

THE

CLRBSN:

PACK

MOV

MOv

MOV

(Mp

BNE

MOV
RTS

R1,=-(SP)
#BSECN,RT
#-1,(R1)+

#BSECNE
R

%
R
(SP)+
RS

:SAVE R

;POINT

TO THE

1ST

INIT THIS ADDR OF
;DONE?

LOCATION IN THE

TABLE

;NO = DO THIS ADDR ALSO
JRESET RI

TABLE

————

(ZRLMAD RLO1/2 BSHT

PROGRAM MAIN LOOP

MACRO v03.01

9-FEB=79 19:46:54 PAGE

016744

SEQ 0063

STARS
. lt".'t'."Q"0't't""t'"t'0"tt't""tl".Q't't't't"t'.""

P
3

D
5

esvcnlrv == ROUTINE TO READ THE PACK TO FIND BAD SPOTS. SPOTS THAT
:
ARE 'BAD' AFTER 16 RETRYS TO RECOVER THE DATA WILL BE ENTERED

6 016744

STARS

INTO A TEMPORY ARtA FOR LATER INSERTION INTO THE REAL BAD

SECTOR FILE

(UNDER

THE

OPERATORS CONTROL).

.""""tt't""!0'"'"Q'"'0'""0.0"'0"."""Q""t""tt't

7
8 01674

18 016750

005237
000402

002244

CVERIFY:

}; 016752

005037

092244

BSVERIFY:

012746
012746
012746
010600
104017
062706

004063
007342
000002

13 016756

016756
016762
016766
016772
016774
016776

14 017002
15 017006

16
17
18
19

017010
017014
017020
017022

20 017026
21 017032
22 017036
23 017042
24 017044
25 017050
26 017054
27 017056
gg 017062
30 017064
017064

005737
001011

004537
000137
000404
004537

000137
004537
005737
001410
004537
005737
001002
000137
000205

000006
002244

011660
023222
002320
010736
002244
017022

017070
017074
017076
017100
51 017104
52 017112
33 017114
346 017120
35 017126
36 017130
37 01713«
38 017140
40 017156
6} 017160

005037
005001

002322

4% 017162

022737

00000

46 017170

001101

000004
000005
016720
002162
002160
021710
024700
002356

PRINTF

MOV
MOV
MOV
MOV
EMT
ADD

JSR
JMP
BR
BSVERS: JSR

010470

007552
000001

(LR

181
BNE

010460
011660

012746
012746
010600
104017
062706
022737
001406
004537
005037
"05037
004537
004537
012737

39 017146 012737

(OMVER:

INC
BR

JSET THE °'CALLED' FLAG
;GOT0 THE COMMON VERIFY CODE

CVFLG

sCLEAR THE

FVERIFY,=(SP)
#FEMT19,-(SP)
#2,-(SP)
SP.RO
CSPNTF
#6,5P
CVFLG

;"CALLED"?

BSVERL
RS,FIRST
NXTCMD
BSVERL
RS,SELDRY

JYES = SKIP SELECT CODE
sNO = SELECT THE 1ST uUNIT
sNONE AVAIL.'

NXTCMD
RS.,LOADED
TEMPO
1%
RS,DRNRDY
CVFLG
10%
BSVERS
RS

1%:

#MCRLF
#MCRLF ,=(SP)

11%:

0022086

173000 002176

sSELECT

THE

sALL DONE
;DRV RDY?

NEXT UNIT

JYES
s "CALLED'?
JYES
JSELECT THME NEXT UNIT
sNO = EXIT NOW

PRINTF
MOV
MOV
MOV
EMY
ADD
(Mp
BEQ
JSR
CLR
(LR
JSR
JSR
MOV

#,-(SP)
SP,RO
CSPNTF
s ,SP
#5,INPUT
1%
RS,CLRBSN
SFTCNT
ERRCNT
RS ,RDBDSC
RS ,HDHOME
lBUfl BBA

JHERE FROM 'WRITE' COMMAND?
s YUP
sNO = INIT HARD ERROR STORAGE AREA
sCLEAR THE SOFT ERROR COUNTER
;CLEAR THE HARD ERROR COUNT
sGET A FRESH COPY OF THE BAD SECTOR FILE
sPUT THE HEADS OVER CYLINDER O
sPOINT TO THE BUFFER FOR READ/WRITE

(LR
(LR

TEMPI
R1

:START AT MEAD 0
sSTART AT CYLINDER O

MOV

C(ONREAD:

'CALLED' FLAG

WFMT19, #VERIFY

JMP
BSVERL: JSR
1St
BEQ
JSR
181
BNE
JMP
108:
RTS

011766

002246

CVFLG
COMVER

(mp

BNE

#-2560. BMP
#1,1DR

(RD?

sSAVE THE WC FOR 20 SECTORS
;DRIVE

= RLOYV?

JNO = MUST BE

AN RLO?2

CIRLMAO RPLO1/2 BSHT

PROGRAM MAIN LOCP

017172
17176

022701
001101

077600

005737
001476

0023¢2

005737
001401
000205
004537

002244

CRD1:

151
BEQ

TEMPI
STREAD

sON LAST CYL ... IS
sNO = DO THE READ

ENDRD:

1S7
BEQ

CVFLG

s"CALLED"?

ENDRD1:

RTS

JSR

PRINTF
MOV
MOV

000006
010642

ADD

013746
012746
012746
012746
010600

002162
002670
007435
000003

MOV
MCvY
MOV
MOV
MOy

062706

000010

13746

002160
002725
007435
000003

—-00000

2746

O =

342
346

AT RLOY LAST CrL?
sNO = READ THIS TRACK

062706
004537

746
746

NSO
oo
~NO

326

010572

#077600,R1
STREAD

003541
007555
000002

706

000010

7646

002540
007335
000002

O=0000
OO
= ittt
LY
P
oNNN
NOO v~
O=Oor
s
oNoo
>

14-1

(MP
BNE

012746
012746
012746
010600

104017

9-FEB=79 19:46:54 PAGE

SEQ 0064

104017

MACRO v03.01

004537
005737
001001
000614
000205
022701
001677

MOV
MOV

EMT

JSR
PRINTF

EMT

ADD
PRINTF
MCv
MOV
MOV
MOV
MOV

EMT

1%:

177600

;HERE

CRD2:

#MSG, FMDONE
#MDONE ,-(SP)
#NSG,-(SP)

#6,5P

RS,DRVID

(MP
BEQ

DONE

;TELL OPR WHMICH DRIVE

SFTCNT ,=(SP)

;PRINT

TOTAL

'SOFT'

ERRORS

;PRINT

TOTAL

°"HARD'

ERRORS

#1SOFT,=(SP)
#FMTTIB,-(SP)

#3,-(SP)
SP.RO
CSPNTF
#10,SP

NEMTTIB,#THARD ,ERRUNT

ERRCNT ,=(SP)

#THARD,=(SP)
#FEMTTB,-(SP)

#3,-(SP)

SP,RO
CSPNTF

#6,5P
RS,ADDFND
CVFLG
1%
BSVERS

TO CHECK

;TELL OPR ALL

FEMTTIB, #TSOFT,SFTCNT

ADD

RTS

JNO = PROCEED WITH THE TOTALS PRINTOUT
JYES = EXIT NOW
sPRINT THE DONE READING TIME

SP.RO
CSPNTF

#10,SP
#EMTI18,#HYPHEN

JSR
181
BNE
BR

TRACK?

#2,-(5P)

ADD
PRINTF
MOV
MOV
MOV
MOV

EMT

000006
020142
002244

ENDRD1
RS
RS,PTIME

IT LAST

#HYPHEN,=(SP)

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

SP.RO
COPNTF

sSEE IF OPR WANTS TO UPDATE BAD SEC FILE
s "CALLED"?
JYES
sSELECT THE NEXT UNIT
sNO = EXIT NOW

THE _END OF AN RLO2
#177600,R1
;RLO2 LAST (yL?

CRD1

;YES = CHECK TO SEE

LAST

TRACK T00

CZRLMAO RLO1/2 BSFT

PROGRAM MAIN LOOP

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

;HERE TO READ THE TRACK SELECTED...WILL TRY 20 SECTORS AT A WHACK
;1F AN ERROR IS 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
;7O THE REAL BAD SECTOR FILE AFTER WHOLE PACK HAS BEEN READ.

2
3

2
7 017402

8 017404
9 0176410

0050C2

010137
053737

002174
002322

10 01741%
11 017422
12 0176430

050237
012737
004537

004537

023264

15 017440

005777

162534

}2 0174364
}? 017444

100030

002174
000014
021570

STREAD:

002174

SRD1:

002210

CLR

BIS
MOV
JSR

R2,BDA
#READ, FUNC
RS,LDFUNC

MOV
BIS

sHERE

sSTART AT SECTOR O ON THIS TRACK

s INSERT THE CYL # INTO DISK ADDR
sADD THE HEAD NUMBER (0 OR 1)
sADD THE SECTOR NUMBER
sGET A READ FUNCTION
; 1SSUE THE READ CMD

JSR

RS,.WIRDY

sWAIT FOR READ TO FINISH

181

aD(CS

sANY ERROR ON THE READ?

BPL

R1,BDA
TEMP1,BDA

NXTSEC

;BR IF 0O«

AN ERROR DETECTED ON THE READ ... READ ONE SECTOR AT A TIME

;TILL WHOLE TRACK HAS BEEN READ

21 017446

017446

017452
017456
017460
017462
22 017466
23 017474
24 017502
017502
017504
017506
017510
25 017512
26 017516
27 017524

012746

007552

012746
010600
104017
062706
017737
013737

000004
162506
002174

104464
000620
003144
006626
004537
012737

023356
000201

000446

PRINTF

«ACRLF

MOV
MOV
EMT
ADD
MOV
MOV
ERRSOFT
TRAP
LWORD
.WORD
.WORD
JSR
MOV

#1,-(SP)
SP.RO
CSPNTF
#,SP
aDCS,E.DCS
BDA,CHKSEC
400. ,MSFER,ERRT
TSERCODE
400
MSFER
ERR1
RS, ISDRST
#1,DECNT

MOV

000001

002202
002314

002316

#MCRLF ,=-(SP)

ONESEC

sGET

THE ERROR DETECTED

;TELL OPR ABOUT THE ERROR DETECTED

;ISSUE A DRIVE RESET TO CLEAR THE ERROR
sSTART RECOVERY WITH 1 SOFT ERROR DETECTED
JRECOVER THE

TRACK DATA...SLOWLY!

——

————————

CIRLMAD RLO1/2 BSFTY

PROGRAM MAIN LOOP

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

;MERE TO SELECT THE NEXT SECTOR ADDR TO READ FROM ON THIS TRACK

sHERE IF NO ERROR DETECTED ON PREV. READ CMD

& 017526

5 017532
? 017536

062702

022702
001322

00002«

NXTSEC: ADD

000050

CMP
BNE

#20.,R2

040, ,R2
SRD1

sPOINT TO THE NEXT SPOT ON THE TRACK

;END OF THE TRACK?
:NO = DO THE READ

;HERE TO SELECT THE NEXT TRACK TO READ ... WILL DO A SEEK TO NEXT HEAD

‘8

;OR TO THE NEXT CYLINDER.

11 017540
12 01754
13 017546
16 017552
15 017556

005737
001427
005037
062701
042701

002322

NXTTRK:

002322

000200

}? 017562

012737

000177
000200

18 017570
19 017576

052737
012737

021570
023264
002252
017162

002174
002210

4$:

004537
004537
010137
000137

000005
000006

012737
012737
000753

000100
000020

002322
002174

5%:

SEQ 0066

20
21
22
35

017604
017610
017614
017620

25 017626
26 017632
27 017640

002174

TST
BEQ
CLR
ADD
BIC

MOV

TEMP1
5%
TEMP1
#200,R1
M77,R1

#200,BDA

;ON HEAD #1 NOW?
:NO = SEEK TO NEXT TRACK SAME (YL
;SET FOR NEXT CYL HEAD 0
;POINT TO THE NEXT CYLINDER
sCLEAR UNEXPECTED JUNK BITS

B1S
MOV

#SIGN'MK ,BDA
#SEEK,FUNC

:SET FOR A SEEK CMD
;:GET THE SEEK CMD

JSR
JSR
MoV
JMP

RS ,LDFUNC
RS ,WTIRDY
R1,PRPOS
CONREAD

: ISSUE THE SEEK
;WAIT TILL READY
:SAVE THE PRESENT POSITION ON DISK
;CONTINUE READING THE PACK

MOV
MOV
BR

#HEAD , TEMP]
#SKHS ,BDA
4%

:SAVE HEAD SELECT STATUS
;SET FOR SEEK TO NEXT TRACK SAME CvL
:1SSUE THE SEEK

CIRLMAD RLO1/2 BSFT
-

PROGRAM MAIN LOOP

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

017642

SEQ 0067

STARS
MMAAA

SNy

AL A

AR AR A

;HERE TO TRY AND RECOVER THE DATA ON SELECTED TRACK BY READING 1 SECTOR

;AT A TIME.
STARS

017642

SECTOR WILL BE MARKED

'BAD'

AFTER 16 RETRYS AND NO RECOVERY.

017642
017644
017652
017660

ittt

bt e

WN«OOONOWVE
WN w00V

::.".""""'""""""""""""'.""'..".".'..".Q.".

005002
012737
013737
050237
053737

177600

002252
002174
002322

002174

000014

002210

012737
004537
004537

021570
023264

005777

162264

100053

002176

002174

ONESEC:

18:

CLR
MOv

R2
#-128. ,8BMP

sSTART AT SECTOR O ON THIS TRACK
sSET THE WC AT 1 SECTORS WORTH

MOv

#READ,FUNC

:GET A READ FUNCTION

181
BPL

abCS
3%

;THIS SECTOR READ Ok?
;BE IF OK = SELECT NEXT SECTOR

MOV
BIS
BIS

;READ A SECTOR

2%:

JSR
JSR

PRPOS ,BDA
R2,BDA
TEMP1,BDA

RS .,LDFUNC
RS ,WIRDY

;GET THE CYL # TO START AT
;ADD IN THE SECTOR NUMBER
;AND THE TRACK (HEAD O OR 1)

:ISSUE THE READ
;WAIT FOR READY

;ERROR IN THIS SECTOR = TRY A MAX OF
017737
005237
013737
004537
005737
001423

162256
002316
002174
025252
002312

012746
012746
012746
010600

006250
007335
000002

062706

000006
007552
000001

020014

012746
012746
010600
104017
062706
000443

020016
020024
020026
020032
020034
020040

022737
001403
004537
000717
004537
004537

000020

104017

002202

002314

MOV
MOv
MOV

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

MOv
EMY

ADD

002316

21%:

22%:

23%:

WFMT18,#INBSF

sSAVE THE DETECTED ERROR
;COUNT THIS RETRY
sSEE IF THIS SECTOR IS ALREADY IN
:THE BAD SECTOR FILE
:IN THE FILE NOW?
:BR IF ERROR

;TELL OPR SECT

IN BSF

ALREADY

SP,RO
CSPNTF

¥6,SP

PRINTF

#MCRLF

MOv
EMT

SP,RO
CSPNTF

MOV
MOv

023356

aDCS,E.DCS
DECNT
BDA,CHKSEC
R5,CKBDSC
HDRFND
21%

PRINTF

000004

024400

MOv
INC
MOV
JSR
181
BEQ

16 TIMES TO RECOVER

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

ADD
BR

¥4 ,SP
30%

;DO THE NEXT SECTOR ON THIS TRACK

ggz

5;2..DECNT

;Iégf TO MARK

JSR
BR
JSR

JSR

RS, 1SDRST
2%
R5,INBAD
R5,1SDRST

IT AS A BAD SPOT!

‘3

:NO = ISSUE A DRIVF RESET
:AND CONTINUE
sYES = MAKE A TEMP BAD SPOT ENTRY

;RESET THE DRIVE FOR THE NEXT FUNCTION

sHERE TO SELECT THE NEXT SECTOR TO RECOVER IN THIS TRACK
020044
020050

020052
020056

002316
002162

3%:

TST
BEQ
INC

DECNT
31%
SFTONT

PRINTF WFEMT18 #MSREC

sANY DETECTED?
:BR IF NONE THIS SECTOR
:UPDATE THE SOFT ERROR COUNT
;TELL CPR

'RECOVERED'

CIRLPAO RLO1/2 BSFT

PROGRAM MAIN LOOP

020056
020062
020066
020072
020074
020076
45 020102
020102
020106
020112
020114
020116
46 020122
&7 020124

48
49 020130

50 020132
51 020136
52 020140

53
54 020142

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

SEQ 0068

002762
007335
000602

MOV
MOV
MOV
MOV

#MSREC,-(SP)

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

EMT

000006

ADD
PRINTF
MOV
MOV
MOV
EMT
ADD

007552
000001
000004
023356

005202
022702
002¢00
000644

17-1

30%:

JSR

31%:

000050

INC

SP,RO
CSPNTF

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

#,-(SP)

SP,RO
CSPNTF

a6 ,SP

31
RS, ISDRST

;RESET

R2
#40. ,R2

CMP
BGE
BR

THE DRIVE

;POINT TO THE NEXT SECTOR
SEND OF THIS TRACK?
;YES = BACK TO NORMAL 20 SEC READS
:NO - READ THIS SECTOR

NXTTRK

STARS
"'..t"""""""'"'""""'""..t"""'...".'..'."'..

:ADDFND =- ROUTINE

THE NEW BAD SPOTS FOUND BY

THE

'WRITE' COMMAND OR THE °'VERIFY' COMMAND IS TO BE ADDED TO THE

BAD SECTOR FILE ON THE PACK.

$TARS

020142

TO ASK OPR

;:t"'Q""""'.'"'"""t"'"""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

005737

001420

002372

025726
002160

013470
000020

013750
013474
003453
007335
000002

062706
004537
005737
001001
000526
011137
005737

000006
020614
002320

100515

002314
002314

ACCESS
ADDFEX

TST

BNE
JSR
JSR
MOv
181

021710
023066

012746
012746
012746
010600
104017

ADDFND:

JSR
181

BEQ

PRINTF
MOv
MOV
MOV
MOv

EMT

ADD

;HERE

#NSWSEC,-(SP)

°‘FIELD'

FILE

EXISTS

SP,RO

CSPNTF

RS ,NEWBSF
TEMPO
1%
ADDFEX

(R1),CHKSEC
(HKSEC
4%
1F

SEXIT IF NONE DETECTED
;CLEAR AN INDEX INTO BAD SECTOR FILE
sSTART AT THE 1ST SECTOR IN ‘FIELD'
:SETUP THE LIMIT
;SET R2 TO POINT INTO THE FILE
;SEE IF FIELD FILE EXISTS
:BR IF OK

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

JSR
TST
BNE
BR
MOV
1§71
BMI

TO SEE

;TELL OPR THAT NO

ADDFEX

MOv

1$:

R2
SECNUM
#16.,SECMAX
R5,BSFOK
BSFOKF
1%
NEMT18, NSWSEC

RS ,RDBDSC
RS ,RDFIELD

BEQ
CLR
CLR

013466

#BSECN,RI
ERRCNT

;ALLOWED TO UPDATE THE PACK?
:NO = EXIT NOW
;GET A FRESH COPY OF THE BAD SECTOR FILE
:GET A CORE COPY OF THE 'FIELD' FILE
:POINT TO THE NEW ENTRY TABLE
sSEE IF ANY NEW BAD SPOTS

ENTRY

ALREADY

¢ASK 1F TIME TO MAKE A 'FIELD'
;WAS A

"FIELD'

:BR IF YES
:NO = EXIT
;GET AN ENTRY
:DONE?
:YUP = UPDATE

FILE BUILT?

REST

EXISTS.. - SHOULDN'T

'FIELD"

FILE

CIRLMAD RLO1/2 BSF1

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

PROGRAM MAIN LOOP

86 020272
85 020276
86 020302

025252
002312

JSR
181
BNE

RS,CxBDSC
HDRFND
3%

JHERE TO ASX OPP IF

106 020442

020442
020444
020446
020450
020452
020454
020456

105 020456
106 020462

005237
011137
062737
005037
032711
001402
005237

013460
000177
013460

MOV
BIC
§U€B

013460

013460
013460
013462
177700

013464
00010C
013464
013464
002462

013462

11%:

2%:

013462

005024
177777
005737
001416

002320

10022%:

THIS ENTRY TO BE ADDED TO BAD SEC FILE

(R1),BSFCYL
#177,BSFCYL
BSFCYL

sGET DA FOR CyL #
sCLEAR HEAD & SECTOR #

INC
MOV

BSFCYL
(R1) ,BSFSEC

CLR
BIT
BEQ
INC
PRINTF
MOV
MOV

BSFHD
;START AT HEAD 0
#100,(R1)
:HEAD 1?
2%
sNO = ITS HEAD 0
BSFHD
;POINT TO HEAD 1
WFMT16,#NEWENT
,#CMSG,BSFCYL ,#SMSG,BSFSEC,#HMSG,BSFHD
BSFHD,-(SP)
#HMSG,
- (SP)

BIC

11%

#177700,BSFSEC

sADD IN LOW ORDER CYL #
;GET DA FOR SEC VALUE

;CLEAR CYLINDER # & HEAD

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

MOV
MOV
MOV
MOV

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

EMT
ADD
GMANIL
EMT
BR
.WORD
.WORD
.WORD
.WORD

CEPNTF
¥22,SP
ABSMSG,TEMPO,177777,N0
CEGMAN
10022%
TEMPO
T$CODE
ABSMSG
177777

1S1
BEQ

TEMPO
3%

MOV

000022

sWELL...
sFIND IN LIST ALREADY?
sYES = LOOK AT THE NEXT ENTRY

BSFCYL

[ [0]"
MOV
MOV

pa—y

062706

SEQ 0069

ROL

BCC

003101
013460
002447
006103
007232
000010
b

020366
020372
020376
020402
020406
020412
020416
020422
020426
020432
020434
020436

103002

020354
020360
020362
020366

011137
062737
000337
0002641
006137

—=O0OO0O0O0O00O

100
101
102
103

020304
020310
020316
020322
020324
020330
020332
020336
020342
020350

90
91
92
93
94
95
96
97
98
$5

17-2

SP.RO

;ASK OPR

TO ENTER

:BR 1F NO
:NO = GET THE NEXT ENTRY

CIRLMAD RLO1/2 BSFT

PROGRAM MAIN LOOP

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

SEQ 0070

5
3 020464

& 020470
5 020472

9 020476

JHERE TO INSERT THIS SPOT IN THE BAD SECTOR FILE
005762

100403
062702

000772

8 020500
9 020506
}? 020512

013762
011162
042762

12
13 020520
}g 020522

005721
000656

16 020524

004537

}g 020530

20 020534

004537

000205

026442

21%:

000004

013460
026444
177600

026442

22%:

020536

015122

JSEE IF A FREE SPOT

21%

:AND TRY AGAIN

22%
¥4 ,R2

:BR IF FOUND A FREE ENTRY
sPOINT TO THE NEXT ENTRY SLOT

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

TO UPDATE THE POINTER INTO THE TEMP BAD SEC TABLE
181
(R1)+
sUPDATE THE POINTER
BR
1%
;PROCESS THIS ENTRY

4%:
JHERE

BSFILE(R2)

MOV
MOV
BiC

026444
;HERE
3%:

1871

BMI
ADD

JSR

RS,COPY

TO EXIT

THIS PHASE

JSR

ADDFEX:

RTS

RS,WRTBSF

;COPY UPDATES TO WHOLE

;ASK OPR IF
SEXIT

TIME

FILE

TO UPDATE PACK

CIRLMAD RLOY/2 BSFT

PROGRAM MAIN LOOP

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

19
SEQ 0071

1 020536

STARS
::"""".'""""""""""""""'.""".""'.""'."0'

2
3
&
5 020536

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

THE

::Q'.".""""""""""""""""..."".""""."'.."'

6
7 020536

010246

10 020544
11 020550

013703
012737

013472
002000

022702

012000

8 020540
9 020542

!% 020556
14 020562

15
16
17
18
19
S?

010346
005002

060337

020566
020570
020574
020576
020602
020604

001407
011362
022322
020337
001760
000766

22 020606

012603

26 020612

000205

23 020610

012602

002320

026442

002320

(OPY:

MOV

MOV
MOv

2%:

3%:

002320

6%:

R2,=(SP)

: SAVE R2

SECOLD,R3
#4+256. ,TEMPO

;GET THE ADDR OF THE WORD SPACE
;GET # WORDS PER SECTOR PAIR

MOV
CLR

R3,-(SP)
R2

ADD

R3,TEMPO

(MP

#2560.+2,R2

BEQ
MOV
(MP
(mp
BEQ
BR

4%
(R3) ,BSFILE(R2)
(R3)+,(R2)+
R3,TEMPO
1%
2%

MOv

(SP)+ ,R3

RTS

MOv

(SP)+ ,R?

:SAVE R3
;POINT TO THE

1ST ADDR IN BSFILE STORAGE AREA

;TEMPO = 1ST ADDR OF
;END OF

THE NEXT SECTOR PAIR

BSFILE?

SYES
;COPY WORK SPACE TO WHOLE ‘FIELD"
sUPDATE POINTERS
:DONE?
;YES = RESET WORK SPACE POINTER
;AND CONTINUE

;RESET R3

JRESET R2
SEXTT

FILE

CZRLMAD RLO1/2 BSFT

MACRO v03.01

PROGRAM MAIN LOOP

020614

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

SEQ 0072

STARS

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

NEHBSF

020614

== ROUTINE TO ASK OPR IF TIME TO CREATE A BAD SECTOR
FILE IF THE AREA CAN'T BE RECOGNIZED AS
A BAD SECTOR FILE.

SlARS

L
A
—

= OVONO
WV WN =000

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

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
020706
020710
020712
020714
020716
020720
020722
020724
26 020724
020724
020726
020730

020732
020734
020736
020740
020742
020744

020744
020744
020750

010146

NEWBSF: MOV
GMANIL
EMT

104043
000404
002320
000120
003012
177777

005737
001502

002320

701
137
721
79;

026442
013472
177777
030442

012701

026442

005737

002364

001020

is:

11%:

002364
000022
005272
077777
000001
077777
104043
000406

013746
013746

10025%:

002364
002366

TEMPO

INIT

MCv

MOv

MOV

13%:

177777
:BR

THE BSFILE

JEXIT

STORAGE

FOR BUILDING A FILE

#BSFILE,R1

;SETUP A POINTER

#-1,(R1)+

(INIT A LOCATION

R1,SECOLD

;POINT

TO THE

START

THE

'UPDATE'

CMP
BNE

#BSFILE+1024.,R1 ;DONE??
11%
:NO - PROCEED TO

(LR
(LR
(LR
CLR
TST

(R1)+
(R1)+
(R1)+
(R1)
SN1

GMANID

ABSSNL,SN1,0,77777,1,77777
,NO ;GET

SERIAL

# LOW 5

GMANID
EMT
BR
.WORD
.WORD

ABSSNW,SN2,0,77777,0,77777
,N0 ;GET
(SGMAN
10025%
SN2
TSCODE

SERIAL

# MIGH S

BNE

100248

002366
000022
005331
077777
000000
077777

TST

MOv

12%:

104043
000406

TEMPO
T$CODE
MBLD

BEQ
;HERE

10023%

.WORD
.WORD
.WORD

.WORD

10023$:

+={5P)
AVE R1
HBLD TEMPO, 177777 NO
CSGMAN

EMT
BR
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

#BSFILE.RI

13%

;GET

:CLEAR

AGAIN

:ALREADY HAVE

INIT

A SERIAL NUMBER?

:YUP = TELL OPR WHAT

CSGMAN
10024%
SNI
T$CODE
ABSSNL
77777
TSLOLIM
TSHILIM

.WORD

ABSSNH

PRINTF
MOV
MOV

WFMTISN,#CART,SNZ,SNI
SN1,=(SP)
SN2 ,=(5P)

.WORD
LWORD
LWORD

START

77777
TSLOLIM
TSHILIM

AREA

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

SEQ 0073

005737
001731
013737
013737
005237
000205

002320

021044
021050
021052

005037
012601
000205

002320

002427
007420
000004

#CART ,=(SP)
WEMTSN,=(SP)
¥6,-(SP)

ADD

#12,SP
VALSN,TEMPO,177777
,NO
CSGMAN
10026%
TEMPO

MOV
EMT

000012

177777

002364
002366
002320

MOV
MOV
MOV

10026%:

026442
026444

2%:

SP,RO
CEPNTF

GMANIL
EMT
BR
.WORD
.WORD
.WORD

T$CODE
VALSN

181
BEQ
MOV
MOV
INC

;SEE IF TYPED IN SERIAL NUMBER IS Ok
:NO = GET A NEW SERIAL NUMBER
;SAVE THE SERIAL NUMBER LOW 5

RTS

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

CLR

TEMPO

;INDICATE NO FILE BUILT

LWORD

MOV
RTS

177777

(SP)+
R1
RS

:AND

SEREIAL

NUMBER HIGH 5

: INDICATE FILE BUILT = 1

SECTOR

—

020754
020760
020764
020770
020772
020774
29 021000
021000
021002
021004
021006
021010
021012
021014
021014
021020
021022
021030
021036
021042

CZRLMAD RLO1/2 BSFT

PROGRAM MAIN LOOP

CZRLMAD RLO1/2 BSFT

PROGRAM MAIN LOOP

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

SEQ 0074

1 021054

SIARS
MLAAA AL

2
3

AR AR

AR A

:BSMAKE -- ROUTINE TO CREATE A

5
6 021054

STARS

THIS ROUTINE ABORTS 1F

THE

"FACTORY'

'FACTORV'

"FIELD'

SRR

BAD SECTOR FILE.

°"UPDATE' ACCESS TO THE PACK IS DENIED.

FILE WILL CONTAIN ONLY

ENTRYS CAN BE PUT

IN THIS AREA!

THE DUMMY HEADERS...NO

::""""'""'""'"""""0"""""".""lt.""""'""

i ot e

—_—

021110
021112
021116
021122
021126
~N

= O OVBNO NSWNN—=OO

7
8 02105¢&
021056
021060
021064

132

012746
012746
012746

000404
004537
000137
004537
005737

001403

003050
007342
000002

010470
011660
023222
002320

004537
005737
001414

010642
002372

021154
021160
021164
021170
021172
021174
24 027200

012746
012746
012746
010600
104017
062706
000137

003747
007335
000002

POPORU N

021142
021146
021152

BSMKL:

1%:

021216

27 021220
28 021224

005737
001732

002320

50 021226
31 021232
52 021236
021236
021242
02124¢
021252

004537
004537

021710
023026

012746
012746
012746
010600

006305
007342

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

ADD

#6,SP

sSELECT THE 1ST UNIT
s NONE
AVAIL.!

JMP

NXTCMD

sALL DONE

TS1

TEMPO

JSR
JSR

JSELECT THE NEXT UNIT

RS.,LOADED

;DRV RDY?

JYES

RS5,DRNRDY
BSMKS

JSR
TST

RS,DRVID
ACCESS

sTELL OPR WHAT DRIVE SELECTED
sALLOWED TO UPDATE PAC(CK?

PRINTF

WFMTI18,#DENIED

:NO = TELL OPR

MOV
MOV
MOV

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

ADD

10%

#DENIED,-(SP)

JSELECT

COPNTF

#6,SP

NXTCMD

GMANIL

THISDRV,TEMPO,1,NO

EMT
BR
.WORD
.WORD

.WORD

TS71

THE NEXT UNIT

;YES = PROCEED

JMP

.WORD

000002

RS5,SELDRvV

JSR
BR

EMT

11%:

CSPNTF

RS,FIRST
NXTCMD
BSMKL

MOV

10027%:

;TELL OPR WHATS HAPPENING

JSR
JMP
BR

BEQ

10%:

NEMT19,#BUILD

#BUILD,=-(SP)

MOV
MOV
MOV

BEQ

000006
011660

104043
000404
002320
000120
006575
000001

BSMKS:

010736

000764

PRINTF

MOV

EMT

000006
010460
01166C

021140

26 021204
021204
021206
021210
2

BSMAKE:

;QUIT NOW

CSGMAN
10027%
TEMPO
T$CODE
THISDRV
1

TEMPO

BEQ

BSMKS

JRE-SELECT

JSR

RS,RDBDSC

JGET

WFMT19,#CKFACT

;TELL OPR CHECKING FACT FILE

JSR

RS.,RDFACT

MOV

#CKFACT,=(SP)

PRINTF

MOV
MOV

MOV

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

NOT

THIS DRIVE

A FRESH COPY OF

THE

'BAD SEC

FiLE'

sTHEN A CORE IMAGE OF THE FACTORY FILE

CIRLMAD RLO1/2 BSFT

PROGRAM MAIN LOOP

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

41
62
63

104017

062706
005002
005037
012737
004537
005737
001013
012746
012746
012746
010600

104017
062706
000426

MACRO v03.01

9-FEB-79 19:46:54 PAGE 21-1

SEQ 0075
EMT

000006
-

013470
000020
013750
013474

013466

"6,SP

CLR

CLR
MOV
JSK
151
BNE

SECNUM
#16.,SECMAX
RS ,BSFOK
BSFOKF
12%

MOv
MOv
MOV

#0K,=(SP)
#NSG,-(SP)
#2,-(SP)

PRINTF

006242
007555
000002

MOV

EMT
ADD
BR

000006
;HERE

CSPNTF

ADD

#MSG,#0K

;POINT

TO 1ST WORD

IN CORE

IMAGE

sSTART AT 1ST SECTOR PAIR IN FILE
;STOP AT THIS SECT PAIR
;SEE IF ANY RECOGNIZED °"FACTORY' FILE
JWELL???
:NO = ASK IF TIME TO MAKE ONE
:MSG TO OPR

'FOUND'

SP,RO

CSPNTF
"6,S?
2%

TO BUILD A DUMMY

:JUMP OVER BUILD CODE
°"FACTORY'

FILE

SO AT

LEAST

ONE

EXISTS...WwILL

;CONTAIN ANY ENTRYS!

65 021336

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

12%:

003400
007555
000002

MOV

000006
020614
002320

004537

002320
020536
015122

PRINTF

MOV
MOV
MoV

#NHWSEC ,-(SP)
#MSG,-(SP)
#2,-(SP)

;TELL OPR THAT NO

°'FACTORY'

EXISTS

SP,RO

EMT
ADD

CSPNTF
¥6,SP

BEQ
MOV
JSR
JSR

2%
TEMPO,NEWF AC
RS,COPY
RS ,WRTBSF

JSR
181

0022390

#MSG, #NHWSEC

RS ,NEWBSF
TEMPO

JASK IF TIME TO BUILD ONE
;DID | MAKE A DUMMY FILE?

sNO = CHECK ON THE 'FIELD'" FILE
;SET FACTORY FLAG
sMAKE THE WHOLE °‘FACTORY' FILE
sASK OPR IF TIME TO UPDATE PAC(CK

NOT

CIRLMAD RLO1/72 BSHT

—
e
—_—

- OV

OC®~NO
W

S wro

~NOW

PROGRAM MAIN LOOP

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

0214612
021416
021416
021622
021426
021432
021434
021436
021442
021444
021450
021456
021462
021466
021470
021470
021474
021500
021504
021506
021510
021514

021516
021516
021522
021526
021532
02" 534
0c 536
021542
021546
021552
021554

004537

023066

2%:

006344
007342
000002

005737
001013
012746
012746
012746
010600

006242
007555
000002

062706
000423

000006

104017

003453
007555
000002

ADD

CLR
CLR

013466

MOV

JSR

1871
BNE

PRINTF
MOV
MOV
MOV
MCv

EMT

ADD

21%:

000006
020614
002320
3%:

21 021564

000137

021112

4%:

"FIELD'

FILE

RS ,RDFIELD

NEMT19, #CKFLD
WCKFLD,=(5P)
#EMT19,-(SP)
#2,-(SP)

WAS

TO BE

BUILT

;GET A CORE

IMAGE OF

THE

'FIELD"

;TELL OPR CHECKING FOR FIELD FILE

SP,RO
CSPNTF

#6,SP

R2
SECNUM
#16.,SECMAX
RS,BSFOK
BSFOKF

21%

#MSG, #OK
#OK,=(SP)
#MSG,-(SP)

;START AT 1ST WORD IN BUFFER
sAND 1ST SECTOR PAIR OF FILE
;SETUP THE LIMIT FOR SEARCH
;POINT TO A VALID AREA
;FIND THE 'FIELD' AREA?
:NO = ASK IF TIME TO MAKE ONE
sTELL OPR 'FOUND' FILE

#2,-(SP)

SP,RO

CSPNTF

#6,SP

:PROCEED

PRINTF
MOV
MOV
MOV
MOV

#MSG, ANSWSEC
#NSWSEC,-(SP)
#MSG,-(SP)

;TELL OPR NO

ADD

020536
015122

EMT

004537

JSR
PRINTF
MOV
MOV
MOV
EMT

021560

°"FIELD"

FILE

#2,-(SP)

SP.RO
COPNTF

#6,SP

JSR
187
BEQ
JSR
JSR

RS ,NEWBSF
TEMPO
4%
RS,COPY
RS,WRTBSE

sBUILT A FILE?
:BR IF NO

JMP

BSMKS

;SELECT THE NEXT UNIT

:ASK OPR

;COPY
;ASK

TIME

'FIELD'

OPR

TO BUILD A FILE

TO ENTIRE FILE

TIME

TO UPDATE

MOV

000006

013470
000020
013750
013474

TO SEE

SEQ 0076

PACK

FILE

CIZRLMAO RLO1/2 BSFT

ROUTINE

TO LOAD FUNCTION

MACRO v03.01

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

.SBTTL

0
—
2

b e

—,

021602
021602
021604

106421

021606

021610
021616
021624
021632
021640
021646
021654

24 021700
25
26 021700
27 021706
021706
021706

1370

3271

0100

WN W

021570
021574
021600

[=l=le]

~NO

;CALL

002200
000200

RS, LDFUNC

;ALL INFORMATION MUST BE SET ULP
:R6¢ HAS POINTER TO BUFFER

IN DRIVE BUFFER

LDFUNC: MOV
817
BNE

DCS,R3
#B117,(R3)
1%

sGET CSR FOR DRIVE
sCAN WE 1SSUE COMMAND?
sYES, GO ISSUE COMMAND

200. ,PRGER

sTHIS ERROR SHOULD NEVER PRINT

ERRSF
TRAP

052737
062737
013763
062763
000205

062777
000002

.WORD

160372

002174
002176
00221C
002232
000201
002000
002212
000200

000100

000002

000004
000006
002212
002212
002212
002212
000000
000000

160272

TO LOAD FUNCTION

JSR

000310
003556
017763
013763
013763
013737
053737

ROUTINE

SEQ 0077

1%:

MOV

MOV
MOV
MOV
BIS
BIS
BIC
MOV
BIC
RTS

TSERCODE

200

PRGER

@BBA ,BA(R3)

LSBTTL
BGNSRY

INTERRUPT
INTR1

INTR1:

BIC

L10012:

ENDSRvV

RT]

;LOAD BUS ADDRESS REGISTER

BDA,DA(R3)
sLOAD DISK ADDRESS REGISTER
BMP ,MP(R3)
sLOAD MULTI=PURPOSE REGISTER
FUNC,BCSADR
;GET FUNCTION
DRSEL ,BCSADR
sSET DRIVE SELECT BITS
#CRDY'DRDY ,BCSADR
sSET CRDY & DRDY IN IMAGE
#0P] ,BCSADR
sWE'RE CLEAR BIT 10 FOR DRIVE
BCSADR,CS(R3)
;LOAD CSR
#CRDY,CS(RZ)
s 1SSUE FUNCTION
JEXIT

SERVICE = VERY SHORT!

#INTEN,BDCS

7-4 (OKAY?)

.«

CZRLMAO RLO1/2 BSFT
MACRO v03.01 9-FEB-79 19:46:54 PAGE 24
BAD SECTOR FILE ROUTINE
.SBTTL

021710

6
SEQ 0078

BAD SECTOR FILE ROUTINE

SYARS

;MWE WILL ISSUE A DRIVE RESET FIRST, READ HEADER, POSITION
:T0 LAST TRACK (CYLINDER 255, SURFACE 1) AND READ IN
:THE FIRST SECTOR FOR FACTORY BAD, AND THE 20TH FOR

ST WNSOOVONO
VS

""""""'0"""""""".'.'".."".""..l."..'l"l".

:ROUTINE TO RECOVER BAD SECTOR FILE AND SAVE IT FOR
: COMPARISON UPON ERROR ON READS/WRITES.
WE WILL ONLY
;RESERVE SPACE FOR 16 BAD SECTORS PER DRIVE.

FIELD BAD SECTORS.

i
-

R4 WILL CONTAIN THE BUFFER POINTER

;70O THE DRIVE WE WANT TO READ

:CALL

021710

JSR

STARS

RS, RDBDSC

16
17
18
19

N=OOVENOWV

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

021710
021712
021714
021716

021720

010046
010146
010246
010346

004537

104463
000764
003242
007114
000137

023014

30 021772

016300

000006

1
32
33
3,
35
36
37
38
39

40
41
42
43
44
45
46
4«7

021776
022004

022006
022012

022016

022020
022026
022030
022032

022036
022046
022052
022056
022062
022066
022070
022076

022076
022100

022102
022104

012737
004537
004537
005777
100011
017737

023356

21 021724
22 021732
23 021736
24 021742
25 021746
26 021750
27 021756
021756
021760
021762
021764
28 021766

022737
001005
043700
012701
000404
043700
012701
160001
010137
052737
012737
004537
004537
005777
100011
017737

104463
000776
003242
007114

RDBDSC: MOV
MOV
MOV
MOV

000010
021570
023264
160232

002210

160224

002202

000001

002246

21%:

JSR

228:

002264
077600
002270
177600
002174

218:
258:

000025
000006
021570
023264
160112

002174
002210

160104

002202

RO,=(SP)
R1.=(SP)
R2.=(SP)
R3.=(SP)

RS, I1SDRST

:SAVE REGISTERS
:
,
.

;RESET THE DRIVE

MOV
#ROHDR , FUNC
JSR
RS, LDFUNC
JSR
R5.WTRDY
151
ancs
BPL
22%
MOV
aDCS,E.DCS
ERRHRD 500. ,MHDER ,ERR2
TRAP
TSERCODE
.WORD
500
WORD
MHDER
.WORD
ERR2
:
JMP
98

;FORCED EXIT

MoV

MP(R3) ,RO

:GET HEADER AND CALCULATE

CYLMSK ,RO
#77600,R1
25%
CMSK , RO
#177600,R1
RO,R1
R1.BDA

:HERE FOR RLO1

CMP
BNE
BIC
MOV
BR
BIC
MOV
SUB
MOV

#1,TDR
23%

READ HEADER TO FIND POSITION
:ON DISK
;ERROR DETECTED?
NO
*YES = SAVE THE RLCS STATUS

:RLO2 TYPE DRIVE?
:JUMP IF RLO2

:HERE FOR RLO2

BIS
#SKHS
' SIGN!MK ,BDA
MOV
#SEEK ,FUNC
JSR
< RS,LDFUNC
;SEEK TO THE BAD SEC FILE CYLINDER
JSR
R5.WTRDY
:WAIT FOR DONE
1s1
ancs
:ERROR DETECTED?
BPL
268
iNO
MOV
aDCS,E.DCS
YES = SAVE THE RLCS STATUS
ERRNRD
510, ,MHDER ,ERR2

TRAP
.WORD
.WORD
.WORD

TSERCODE
510

MHDER
ERR?

I———

CIRLMAD RLO1/2 BSFT

BAD SECTOR FILE ROUTINE

000137

023014

50 022112
51 022120
52 022126
53 022130
56 022134
55 022136
56 022144
02214
022146
022150
022152
g; 022154

012737
004537
004537
005777
1000i1
017737

000G10
021570
023264
160044

002210

160036

002202

104463
001010
003242
007114
000137

023014

59 022160

016300

000006

60 022164
61 022170
62 022176
63 022200
64 022204
65 022206
66 022214
67 022216
68 022222
69 0222264
70 022232
;2 022240

042700
022737
001007
022700
001245
012737
000406
022700
001236
012737
012737
012737

177700
177400
000014

73 022246

000077
000001

005037

002326

002246

077700
077700

002174

177700

3008:
002174
002176
002210

(002320
002316
002234
000176
177777

82 022302
83 022306
84 022312
gS 022316

013702
012700
004537
004537

002234
000031
021570
023264

87 022322
gg 022326

005777
100065

157652

90
91
92
93

004537
062737
005737
001424

023356
000004
002326

002174

022737
001024
022737
001351

000001

002246

077750

002174

012746
0'2746

003426
007335

94
95
96
97
98

022330
022334
022342
022346

022350
022356
022360
022366
022370
022370
022374

555%:

118:

001374

MOv
JSR
JSR
151
BPL
MOov
ERRHRD
TRAP
.WORD
.WORD
.WORD
JMP

#RDHDR
, FUNC
RS .,LDFUNC
RS ,WIRDY
aD(Cs
27%
aDCS,E.DCS
520. ,MHDER,ERR2
TSERCODE
520
MHDER
ERR?
9%

;FORCED EXIT

MOV

MP(R3) RO

:NO ERROR = GET THE HEADER WORD

BIC
CMP
BNE
CMP
BNE
MOV
BR
(mP
BNE
MoV
MOV
Mov

;FORCED EXIT
sREAD THE HEADER ON THIS CYLINDER

ERROR DETECTED?
:NO
:YES = SAVE THE ERROR STATUS IN RLCS

#77 ,RO
#1,TDR
300%
#77700,R0
21%
#77700,BDA
555%
#177700,R0
21%
#177700,BDA
#-256. ,BMP
#READ, FUNC

;CLEAR THE SECTOR BITS FROM HEADER WORD
;RLO1?
:NO - JMP FOR RLOZ2
;HERE FOR RLOT1 = LAST TRACK?
:NO = TRY AGAIN
sYES = SET FOR A READ CMD

TEMP3

sMANUFACTURING/FIELD FILE SWITCH

;HERE FOR RLO2 - LAST lflA(K (511.)?
:NO = TRY AGAiN
:00 A 1 SECTOR READ
;READ DATA FUNCTION

CLR
CLR
MOV
MOV
MOV
DEC

TEMPO
DECNT
BSECPT,R2
#126.,R0
#-1,(R2)+
RO

;EXIT IF STORAGE INITED

MOV
MOV
JSR
JSR

BSECPT,R2
#25.,R0
R5.,LDFUNC
R5.WTRDY

;GET LIST TO STORE
:25 ENTRIES

181
BPL

aDC$
3%

:WAS THE READ GOOD?
:VES

JSR
ADD
TST
BEQ

RS, 1SDRST
#4 ,BDA
TEMP3
5%

:NO - RESET THE DRIJVE
;NEXT SECTOR
;MANUFACTURING OR FIELD BAD
:MANUFACTURING

BNE

400%

BNE
PRINTF

6%
#FMT1B,#SWSEC

(Mp
(MP

41%:

SEQ 0079

BNE

6%:

JMP

CLR

005037
005037
013702
012700
012722
005300

26%:

27%:

022252
022256
022262
022266
022272
022276

g? 022300

O
N
———

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

:g 022106

764
75
76
77
78
79

MOV
MOV

#1,TDR

#77750,BDA

#SWSEC,~(SP)
#EMT18,-(SP)

;CLEAR THE COUNT OF ENTRYS DETECTED
;INITIALIZE LIST TO ALL 1°S
;126 ENTRIES
:INIT ENTRY T0 -1

: ISSUE THE READ CMD

;WAIT TILL SECTOR READ

;RLOT=1
;MUST BE AN RLO2
;END OF FACTORY FILE?
:NO = READ NEXT SECTOR
;TELL OPR NO 'FIELD' FILE ON PA(K

CIRLMAD RLO1/2 BSFT
MACRO v03.01 9-FEB=79 19:46:54 PAGE 24-2
BAD SECTOR FILE ROUTINE

022400
022404

000002

=00

D el

WWNWWWWWWWWNI
NNV
S v a a a aaa s ad

022476

012746
012746
012746
010600
104017
062706
000137

000423

022656
022662

005737
001037

100446

005237
012137

077724

5%:

177750

002174

400%:

VS W

177724

003351
007335
000002

55%:
56%:

000006
022762

3%:

013452
31%:
32%:

002322

1%:

002316
002324
002322

002324
002324
002324

002322

002322
002322

111%:

SEXIT

(Mp
BR

BDA ,#77724
55%

;AT END OF

MANUFACTURING BAD

;AT END OF

FIELD BAD FOR RLOZ2

CMP
BNE
BR
CMp
BNE

PRINTF
MOv
MOV
MOV
MOV

MOv

CLR

TST
BNE
18T
BNE
INC
BR
187
CMP
MOV
BM]
INC
MOv
SWAB
CLC
ROR

BCC
BIS

MOV
MOV

BiC
BIS
BIC

002324

ASR
ASR

BIS
DEC
BNE

002320

002326

JMP

157500

177377

#6,5P

ADD

013452

100000
002322
002324
177700
002322

ADD

EMT

002322

VNS W

—=OOVONOWVE WN =00V

017701
005037
005721
001005
005721
0u. 2%
005237
000401
005721
022121
012137

D el

—d

s — — —

-l —h —

- — —

D e

D il

022502
022506
022512
022514
022516
022520
022522
022526
022530
022532
022534
022540
022542
022546
022552
022556
022560
022564
022566
022574
022600
022606
022614
022620
022626
022632
022636
022642
022644
140 022646
022652
022654

#2,-(SP)

JMP

00217¢

002174

MOV
MOV

EMT

000006
022762

TS1

2%:

SEQ 0080

SP,RO

CSPNTF

#177750,BDA
4d
413

BDA,#177724

(3]
FEMT18, #HWSEC

#FHWSEC,~(SP)

: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 PACK

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

SP,RO
CSPNTF

#6,5P

aBBA,R1

NOSNUM

(R1)+

31%

;EXIT & HEADS HCME
;START OF

LIST

;CLEAR THE FOUND SERIAL NUMBER FLAG
sSEE IF A SERIAL NUMBER PRESENT

(R1)+

;YUP = SN WORD 0 >0
:NO ... SEE IF SN WORD 1

NOSNUM

:NO = SET THE ''NO SERIAL NUMBER'' FLAG

32%
32%

(R1)+
(R1)+,(R1)+
(R1)+,TEMP]

DECNT
(R1)+,TEMP?
TEMPI

;0K = SOME SERIAL NUM PRESENT

:SKIP OVER THE 2ND SERIAL NUM WORD
:SKIP PAST THE °'BLANK' WORDS
;GET CYLINDER ENTRY WORD
:1F MINUS - END OF BAD SECTORS
;COUNT THIS ENTRY IN THE FILE
sGET TRACK AND CYLINDER
;PUT CYLINDER IN HIGH BYTE

TEMP1
111%
#BIT15,TEMPI
TEMP1, (R2)
TEMP2, TEMP1
#177700,TEMPT
TEMP1, (R2)
#177377,TEMP2
TEMP2
TEMP2
TEMP2, (R2)+
RO
1%
TEMPO
1%

sPRINT
;NO

TEMP3

;SWITCH TO FIELD BAD OR QuIT

BNE
BR

TST
BNE

;ALIGN THE BITS
sNEED ANOTHER BIT?
;s YUP

sSTORE OFF CYLINDER PART
sGET SECTOR
sLEAVE ONLY SECTOR
;SET IN SECTOR BITS
sCLEAR ALL EXCEPT HEAD BIT

:SET IN HEAD
A MESSAGE?

;Qult, 7%

CIRLMAD RLO1/2 BSFT
MACRO v03.01 9-FEB-79 19:46:54 PAGE 24-3
BAD SECTOR FILE ROUTINE

OLCO-4T nwH

i
i
it
-

Lol A DALY ALY IV IV

1646 022664
147 022672
1648 022674
149 022702
15
151 022712
152 022720
153 022724

—r —a P
b
2
=
e
b
b
e

oo OO0 NNNNNNN N~ NOCO O
w N=O0O0VBNO VW N=O0VO~N

161
162
163
166
165
166

184
185
186
187
188
189
190

022762
022766
022770
022770
022774
023000
023004
023006
023010

023014
023016
023020
023022
023024

002246

077726

002174

177726

000001

022312

022724
022730
022734
022740
022742
022744
022750
022754
022760

000001

002174

002326

005714
007335
000002

000665

3508:

005737
001412

002320

013746
012746
012746
010600
104017
062706
012603
012602
012601
012600
000205

002316
007351
000002

cMp
BNE
ggv

#1,T0R
3508
§ZI7ZA.BDA

sMUST BE RLO2

MOV

#177724 ,B0A

;START OF

368:

MOV

6%:

PRINTF

JMP

MOV
MOV
MOV

MOV

EMT

000006
002320
000170

ADD
INC
MOV
BR

sSTART AT FIELD SECTOR
FIELD AREA FOR RLOZ2

#TBLFUL,=(SP)
#FEMT18,-(SP)
#2,-(SP)
SP.RO

CSPNTF

#6,SP
TEMPO
#120.,R0
s

TEMPO

:SET THE PRINT FLAG
;RESET THE COUNTER
:AND CONTINUE

;OVER 25. ENTRIES?

MOV
MOV
MOV

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

EMT
ADD
MOV

CSPNTF
#6,SP
(SP)+,R3

MOV
MOV
MOV
RTS

;RLOT=D

#FMTI18,#1BLFUL

MOV

9% :

#1,TEMPS

BEQ

PRINTF

000006

SEQ 0081

#FMT20,DECNT

:NO

sPRINT # ENTRIES IN FILE

SP.RO

(SP)+,R2
(SP)+,R1
(SP)+.R0
RS

;ROUTINE TO ReAD THE 'FACTORY' FILE FROM THE BAD SECTOR FILE
023026
023032
023040
023046
023054
023056
023064

004537
012737
012737
022737
001423

023176

173000

002176

177700

002174

077700
000001

023066
023072
023100
023106
023114
023116

023176

023124
023132
023136
023142
023146
023150

002174
002246

173000

002176

177724

002174

000014

002210

077724
000001

021570
023264
157032

002174
002246

RDFACT: JSR
MOV

MOV
CMP
BEQ
MOV
BR

RDFIELD: JSR
MOV

MOV
CMP

BEQ
MOV

RDBSFILE: MOV

RS,CLRBSF

#-2560. ,BMP

#77700,BDA
#1,TDR
;1S IT AN RLO2?
RDBSF ILE
#177700,8DA
RDBSF ILE

:NO - READ THE FILE

RS,CLRBSF

#-2560. ,BMP

;CLEAR THE BSFILE STORAGE AREA
:SAVE THE WORD COUNT

#READ,FUNC

:SAVE THE COMMAND

;HERE FOR RLO2
: THEN READ THEE FILE

#77724.BDA
:AND THE DISK ADDR FOR 'FIELD" FILE
#1,T0R
;1S DRIVE A RLOZ2?
RDBSF ILE
:NO - READ THE FILE
#177724,BDA
;HERE FOR RLOZ2

JSR
JSR

RS, LDFUNC
RS5,WTIRDY

PRINTF

W#FMY19,#BADRSF

1s1
BPL

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

ancs
RDBSEX

sAND ISSUE IT
: THEN WAIT FOR READY
;WAS THERE ANY ERROR?
sNO = EXIT
;TELL

THE

OPR

AN ERROR

HAPPENED

CIRLMAD RLO1/2 BSFT
MACRO v03.01 9-FEB-79 19:46:54 PAGE 24-4
BAD SECTOR FILE ROUTINE

023150
0231564
023160
023164
023166
- 023170

012746
012746
012746
010600
104017
062706

}g% 023174

000205

194
195
196
197
198
199

010146
012701
012721
022701
001373
012601

023176
023200
023204
023210
023214
023216

gg? 023220

004753
007342
000602

MOV
MOV
MOV
MOV
EMT
ADD

000006

026442
177777
033442

000205

SEQ 0082

#BADBSF ,-(SP)
FEMT19,-(SP)
#2,-(SP)
SP,RO
CSPNTF
¥6,SP

RDBSEX: RTS

CLRBSF: MOv
MOV
1%:
MOV
CMP
BNE
MOv

R1,-(SP)
;SAVE R1
#BSFILE R
sSETUP A POINTER
#=1,(R1)+
sSET BUFFER & POINT TO NEXT
#BSFILE+2560.,R1 ;DONE?
1%
sNO = INIT THE NEXT ADDR
(SP)+ R1
JRESET R

RTS

SEXIT

JEXIT

202 023222

STARS

203
204 023222

;LOADED == CHECK FOR DRV READY
STARS

205
206 023222
207 023224
208 023230
209 023234
210 023240
211 023242
212 023246
213 023252
216 023254
215 02326C
216 023262

010146
004537

005037
032701
001002
005237
032701
001002
005237
012601
000205

023342

002320
000020

002320
000010
002320

LOADED: MOV
JSR
CLR
BIT
BNE
INC
1%:
BIT
BNE
INC
2%:
MOV
RTS

R1,-(SP)
RS ,GETDST

TEMPO
#HOP ,R1
1%
TEMPO
#BRHM ,R1
2%
TEMPO
(SP)+,Ri
RS

;SAVE R1
;GET DRv STATUS
;CLEAR THE FLAG
;HEADS OVER PA(K?
;YES
:NO
;BRUSHES HOME?
JYES
JEXTT

CZRLMAO RLO1/2 BSHT

ROUTINE

T0 WAIT

FOR

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

CONTROLLER READY

ROUTINE TO WAIT FOR CONTROLLER READY

.SBTTL

SEQ 0083

—
>
s
s
e
—,
—

O NO WV

=S OOV

YO NI

:ROUTINE TO WAIT FOR CONTROLLER READY UNDER FLAG

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

023264
023266
023270
023274
023274
023300
023302
023310
023312
023314
023316
023324
023324
023326
023330

0
0
012701

WTRDY:

001750

1%:

012700
6
032777
000N
005301
001367

000002
000200

156670

017737

156656

002202

023332

104462
000156
003607
007114

023334
023336
023340

012601
012600
000205

MOV
MOV
MOV
WAITUS
MOv

EMT
BIT
BNE
DEC
BNE

RO,=(SP)
R1,-(SP)
#1000.,R1
#2.
#2..RO

;SAVE

REGISTERS

;WAIT A WHILE

(swiv
#CRDY,aDCS
2%
R1
%

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

MOV

aDCS,E.DCS

:SAVE THE STATUS FOR ERROR REPORT

TRAP

TSERCODE

.WORD
.WORD

NOCRDY
ERRZ

2%:

MOV

(SP)+ k1

.SBTTL

GET STATUS/DRIVE RESET ROUTINE

ERRDF
.WORD

;ROUTINE

MOV
RTS

110. ,NOCRDY ,ERR2

110

(SP)+,R0
RS

;RESTORE REGISTERS

ISSUE DRIVE RESE?

;ALSO GET STATUS, R1 HAS STATUS IF G5
;USES R3, DOES NOT SAVE 1T
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
000013
000006

000004
000004
000000
000000
000000

GETDST: MOV

DCS,R3

ISDRST: MOv

DCS,R3

MOv
BR

MOv
CSTUFF: MOV

B1S
BIC
JSR
(MP
BEQ

000004
1$:

MOV
RTS

#GSBIT,DA(R3)
CSTUFF
#DRST ,DA(R3)
#CRDY!GSTAT,CS(R3)

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

MP{R3) ,R1
RS

e —————

CIRLMAD RLO1/2 BSFT
TO WRITE

PACKS

MACRO v03.01

INITIALLY

9-FEB-79 19:46:54 PAGE

W =OOVONO
NN —

ROUTINE

SEQ 0084
.SBTTL

ROUTINE TO WRITE PACKS INITIALLY

;ROUTINE TO WRITE PACK WITH PATTERN, ALL TRACKS WILL BE

;WRITTEN (EXCEPT BAD SECTOR TRACK)

;FORMAT 1S # OF WORDS (WORD 1), PATTERN ADDRESS (WORD 2)
;PATTERN (WORDS 3 - 128)
;WE WILL ATTEMPT TO WRITE MULTIPLE SECTORS AT A TIME
; (MINIMUM 10 SECTORS) IF AN ERROR OCCURS WE WILL THEN

;WRITE INDIVIDUAL SECTORS FOR THAT TRACK.
;READS AND INCORE COMPARISONS TO VERIFY.

DO WRITES,

= OOVONO N

SCALL JSR RS,WRPACK
WRPACK:

023434
023436
023440
023442
023444
023446
023452
22 023456
023464
023472

MOV
MOV

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

:SAVE REGISTERS

MOV
JSR
MOV

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

;HEADS HOME

JSR

RS ,WRBUF

MOV
MOV

Lo o

002206
024700
002356
004537

173000

026324

MOV

002206

1%:

002176

MOV

sNOW ACTUALLY

;s TRACK

023476
023500
023502
023506
023510
023514
023522
023524
023530

005001
005004
005737
001410
012704
022737
001002
042704
000137

023534
023542
023544
023550
023552
023556
023560
023562
023566
023570

022737
001007
022701
001020
005737
007415
000404
022701
001011
000770

(LR
(LR

002242
000776
000001

002246

177400

024044
000001

2%:
002246

C(ONWR:

077600
002322

12%:

177600

13%:

023572

023576
023600
023602
023604
023606

002206

ENDWR:

#-2560. ,BMP

WRITE

DATA OUT

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

JMP

SKWRT

BNE
BIC

C(MP
BNE
CMP
BNE

TST

BEQ
BR
CMP
BNE
WHEN ALL

sSET

MOv
MOV
MOV

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

(SP)+,R4

(SP)+ RO

LAST

FOR THE

LAST

CYL

(RLO2)

sORIVE = RLO1?
sNO - DA IS 0K
sYES = MAX CyL IS 255.
sSEEK TO THE START CYLINDER

sRLOT=1
sMUST BE AN RLOZ2
sRLOT LAST CYLINDER?

;NO - PROCEED TO WRITE TRACK

;ON HEAD 1 LAST TRA(CK?
:NO = WRITE HEAD 0 LAST TRACK
:LAST CYL FOR RLO2?
:NO - GO WRITE TRACK
;YES = TEST FOR LAST TRACK ON LAST (YL

12%

WRITING

WRITE

STWRT
ENDWR
#177600,R1
STWRT
DONE

WILL NOT

;R1=CYL 000
sSTART AT 1ST CYLINDER
;FEQUARD DIRECTION?

#1,TDR
13%
#077600,R1
STWRT
TEMP1

(SP)+ ,BBA

MOV

ON PACK,

2%
#1776400,R4

MOV

;SET TO WRITE 20 SECTORS
:GENERATE THE WC DATA PATTERN

R1
R4

181
BEQ
MOV
CMP

BR
sHERE

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

THE

PACK

CIPLMAD RLO1/2 BSFT

ROUTINE

T0 WRITE PACKS

023610

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

000205

RTS

SEQ 0085

;END EXIT

:THIS PORTION WILL WRITE THE 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 CAN BE MADE, THEN THE SECTOR WiiL
;:BE MARKED 'BAD' IN THE TEMP BAD SEC FILE STORAGE AREA
023612
023614
023620
023626
023632
023640
023644

005002
010137
053737
050237
012737
004537
004537

002174
002322
002174
000012
021570
023264

023650
023654

005777

156324

100030

002174

STWRT:
SWRT1:

CLR

MOV

BIS
BIS

002210

MOV

JSR
JSR
1ST

BPL

;INITIAL SECTOR 0

R1,BDA
TEMP1,BDA
R2,BDA

:SET UP CYLINDER
s INSERT THE HEAD NUMBER (0 OR
;ADD IN THE SECTOR NUMBER

R5.,LDFUNC
R5,WTIRDY

;ISSUE THE WRITE
;WAIT FOR READY

aDCS

sERROR DETECTED?

FWRITE,FUNC

WNXSEC

;WRITE

:BR

CMD

NO ERROR = GET

;:ERE %ingfl ERROR WAS DETECTED - GOING TO WRITE
>3 RETRYS = 'BAD' SECTOR

023656
023656
023662
023666
023670
023672
023676
023704
023712
023712
023714
023716
023720
023722
023726
023734

007552
000001

000004

1046464
000632
003144
006626
004537
012737
000471

156276
002174

002202
002314

023356
000001

002316

000024
000050
002170
002170

007640

024002

024004
024010

004537
000402

024700

023776

¥4 ,SP

TO SELECT

WNXSEC:

007642

002170

005737
001410
005737
001003

ADD
MOv
MOV

(MP
BNE
INC
(MP
BNE
CLR

TO SELECT

WNXTRK:

002242

ADD

187

BEQ
181

1%:

THE

TRACK

SECTOR
ONE

SECTOR

#1,-(SP)

SP,RO
CSPNTF

aDCS,E.DCS
BDA,CHKSEC
T 410. ,MSFER,ERR
ERRSOF
TRAP
TSERCODE
410
.WORD
.WORD
MSFER
.WORD
ERR1
R5,ISDRST
JSR
MOV
#1,DECNT
W1SEC
BR

;HERE

023770
023774

FMCRLF
#MCRLF ,=(SP)

EMT

;HERE

023736
023742
023746
023750
023754
023762
023764

PRINTF
MOV
MOV
MOV

THE NEXT

;SAVE

THE

ERROR DETECTED

;RESET

THE DRIVE

;WRITE

SECTOR AT

A TIME

SECTOR ON THIS TRACK

#20.,R2

sNEXT GRGUP

#40. ,R2
SWRT1

:DONE?
:NO, GO BACK

STWRY
WRTCNT

:NO = DO THIS TRACK AGAIN
:YES = CLEAR THE PASS COUNTER

WRTCNT
WRTCNT ,WRTLIM

THE

WRTSAW

FWDFLG

;COUNT THIS WRITE PASS ON SELECTED
;AT LIMIT FOR THIS TRACK?

TRACK WITH A SEEK

CMD

:DOING A SAWTOOTH WRITE

:NO = DO INCREMENTAL
;SAWTOOTH

CYCLE?

FWD WRT?

BNE

:NO = DOING REVERSE WRT

JSR
BR

gz,HDNOHE

:YES = SET

THE HEADS OVER CyL #000

TRK

CIRLMAO RLO1/2 BSFT
TO WRITE

06
07 024012

o =
N
NN SO DD
N
= O OB
COBUCNE N

—
s D
S NN

D il il i il

D il i il il il D

) D il o

s —

NN NN N NN NN N NI NI NI NI NI NI RO N = i e it et et s

—_

dh w

ROUTINE

PACKS

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

004537

024776

2%:

024016
024022
024024
024030
024032
024034
024036

005737
001432
005737
0014C4
005304
002003
000137

002322

3%:

024042

005204

024044

024044
005037

024050
024052
024054
024056
024060
024062
024066
024072
024100
024104

024110
024116

024120
024122

141 0246130
142 024136
143 024144

010401
000301
000241
006001
103002

052701

012737
000754

000100

002254

002322

e VB

WL N

[«

NNV

—_—

;FWD WRITE?

INC

;POINT

32%:

(LR

TEMP1

:SET POINTER BACK TO HEAD #0

4%:

MOV
SWAB
cLc

R4 ,R1
R1

;POSITION THE BITS FOR DIRECT

32%

R1
41%
#BITIS5,R1
R1,NEWPOS
TEMP1 ,NEWP1:S
R5,SKFNC
CONWR

BCC
BIS
MOV
BIS
JSR
JMP

41%:

5%:

MOV
BR

#HEAD, TEMP1

TO THE

CYLINDER

(FWD DIRECTION)

:GET THE CYLINDER #

:INTO THE DA REGISTER
;FOR

THE

s CYLINDER

SEEK

TO THE

PROPER

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

CONTINUE

WRITING

THE

PACK

;POINT TO HEAD #1
:AND SEEK THERE

:1F AN ERROR OCCURS THEN WE (OME HERE AND DO THE TRACK SECTOR
:BY SECTOR.
005002
012737
013737
053737
050237

177600
002252
002322
002174

012737
004537
004537

000012
021570
023264

024166
024172

005777

156006

002176
002174
002174

WISEC:

100055

002210

156000

002316
002174
025252
002312

(LR
MOV
MOv
BIS

1%:

R2
#-128. ,BMP
PRPOS ,BDA

TEMP1,BDA
R2,BDA

BIS

TO WRITE

2%:

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

SECTOR

MOV
ZSR
JSR

FWRITE,FUNC
R5.LDFUNC
RS ,WIRDY

;WRITE

18T

abCs

;ERROR ON WRITE?
:NO = SETUP FOR NEXT SECTOR

BPL
JHERE

024220
024224
024226

31%

ENDWR

SKWRT=,

100000

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

FWDFLG

ROR

002254
002322
025062
023534

TEMP1

:YES = R4 IS AN UPCOUNTER
:NO = DOWNCOUNT R& (CYL COUNTER)
:PROCEED IF STILL HAVE SOME T0 DO
:JUST COMPLETED THE PACK

31%:

010137
053737
004537
000137

:SET THE HEADS OVER THE LAST Cvi

151

002322

RS,HDLAST

BEQ
DEC
BGE
JMP

023572

024150
024156
024162

024174
024202
024206
024214

187

BEQ

002242

;HERE

147
145
149
150
1
1
1
1
1
1
1
1
1 59
160
161
162

JSR

SEQ 0086

ERROR ON

SECTOR WRITE

002202

MOv

aDCS,E.DCS

002314

MOV

BDA, CHKSEC

181

HDRFND

PRINTF

#FMT18,#INBSH

INC

JSR

BEQ

DECNT

RS,CKBDSC

21%

FUNCTION

;ISSUE THE WRITE
;WAIT FOR WRITE TO FINISH

:SAVE THE DETECTED ERROR
:NO, GIVE IT ONE MORE TRY
;CHECK IF SECTOR IS IN
;BAD SECTOR FILE
J1F SET, IT WAS
:NO MAT(CH
;TELL OPR SECT IN FILE ALREADY

CZRLMAD RLO1/2 BSFT

ROUTINE

TO WRITE PACKS

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

024226
024232
024236

006250
007335
000002

024262
026244
026246
163 024252

022737
001403
004537
000715

000004

024316
024322
024326
024332
024334

004537
004537
005737
001414

024400

012746
012746
012746
010600
104017
062706
005237

002762

178

179
180
181
182
183
184

EMT

000004
023356

167 024300
024306
024310
024314

024334
024340
024344
024350
024352
024354
177 024360

ADD

PRINTF
MOV
MOv
MOv

007552
000001

024264
024266
164 024272
165 024276
168
169
170
171
172
173
174
175
176

EMT

000006

024252
024256
024262

166

MOv
MOV
MOV
MOv

ADD

JSR
BR

002316

21%:

02335¢

023356
002316

22%:

3%:

(MP
BEQ
JSR
BR

JSR
JSR
1ST
BEQ

PRINTF
MOV
MOv

007335
000002

MOv
MOV
EMT

000006
002162

ADD

INC

SEQ 0087

¥ INBSF ,=(SP)

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

SP,RO
CSPNTF

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

¥ ,-(SP)
SP,RO
CSPNTF

#s ,SP

R5,1SDRST
31%

#4 ,DECNT

;RESET

THE

DRIVE

;WORK ON NEXT

SECTOR

;1T MAY HAVE BEEN NOISE.

22%
RS, 1SDRST
2%

sHARD ERROR?

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

;TELL OPR & PUT

#MSREC,-(SP)

sNO - ISSUE A DRIVE RESET
;AND TRY AGAIN

;RESET THE DRIVE

IN TEMP STORAGE

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

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

SP,RO

CSPNTF

¥6,5P

SFTCNT

;ADD

THE

SOFT

ERROR COUNT

;POINT

THE

SECTOR

sSELECT THE NeXT SECTOR
024364
024366
024372
024374

005202
020227
003656
000137

000050
023770

31%:

INC

(MP

BLE

JMP

R2
R2,#40.
%
WNXTRK

;END OF

THE TRA(K?

:NO - DO THIS SECTOR
:YES = DO NEXT TRA(CK

CZRLMAOD RLO1/2 BSFT

ROUTINE

TO WRITE PACKS

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

1 024400

SEQ 0088

SIARS

VIS

""'."""'t"""""'""""""."0.""..'."..'Q"t'."

INBAD == ROUTINE TO INSERT THE BAD SECTOR FOUND INTC A TEMP
BAD SECTOR FILE AND TELL OPR THAT A BAD SECTOR (HARD ERR)

$TARS

024400

WAS DETECTED.

NN
b s

WN—=O
Vo ~NO

VS W

=0 0VO~NO

::."!."."""'""'"".""""""'.""".'.'.t"""'.."'

25
26
27

024400

024402
024410
024416
0264424

024432
024440
024446
024452
024452
024454
024456
026460
024462
024466
024472
026474
024476
024500
024504
024506
024506
024512
024516

024522
024524
024526
024532
024534
024540
024542

0101

0163
0163
0163
0163

016
0163
005037
104463
000454
003242
006626
005237
012701
005711
100417
005721
022701
001372

012746
012746
012746
010600
104017
062706
000402
013711
012601
000205

000000
000002
000004
000006
000006
000006
002316

002160
025726

002340
002342
002344
002346
002350
002352

. INBAD:

ERRHRD

IBDN:

026010

005714
007335
000002

TRAP
.WORD
.WORD
.WORD
INC
MOV
1§71
BMI
18T
CMP
BNE
PRINTF
MOV
MOV
MOV

MOV

000006

002314

MOV
MOv
MOV
MOV
MOv
MOv
Mov
CLR

IBDN1:
IBDN2:

EMT
ADD
BR

MOV
MOv
RTS

R1,=(SP)

:SAVE Ri

DECNT

;CLEAR CURRENT SOFT ERROR COUNT

CS(R3) ,E.CS
BA(R3) ,E.BA
DA(R3) ,E.DA
MP(R3) ,E.MP
MP(R3) ,E.MP1
MP(R3) ,E.MP2
300. ,MHDER ,ERR1

TSERCODE

300

MHDER

ERR1

ERRCNT
#BSECN,R1
(R1)

IBDN1

(R1)+

#BSECN+50.
,R1
1BDN
NEMT18,#TBLFUL

#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
;POINT TO NEXT ENTRY ADDR
;END OF TABLE?

:NO = TRY THIS ENTRY SLOT
:YES = TELL OPR END OF TABLE

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

SP,RO
CSPNTF

#6,SP

1BDN2

CHKSEC, (R1)
(SP)+,R1
RS

JEXIT

;SAVE

THE

JRESET R1

ENTRY

IN TABLE

(25.

ENTRYS FOUND)

CZRLMAD RLO1/2 BSFT

FOR SYSTEM CLOCK

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

SEQ 0089

POUTINE

NS NN

.SBTTL

;ROUTINE TO READ SYSTEM CLOCK
;USES "REGTIM' FROM DIAGNOSTIC SUPERVISOR

6 026544

7 026546

8 024550
9 024554

10 G24556
W

—_—

024556

1 024560

COVONOWVS

LW 1W
——

ROUTINE FOR SYSTEM CLOCK

024562
024562
024564
024570
024572
024574
024600
024604
024610

1 024612

22 024616

23 024624
24 024626
25 024634
26 024640
27 024646
28 024650
29 024656
30 024660
31 024664
32 024672
32 024674
36 024676

010046
010146
005737
001002

GETSYS: MOV
MOV

002354

000444

020037
001440
003002
005037
013701
010037
160100

060037
022737
003022
162737

005237
022737
003767
022737
003005
005237
162737
012601
012600
000205

(%:

002330

1%:

002330
002330
002330

002332
000074

5%:

002332

000074
002334
000074

002332

000074

002334

002336
000074

: SAVE RO

BNE
BREAK
EMT
BR

:YES,

C$BRK
3%

JEXIT

REQTIM

;GET PRESENT TIME

18T

104022

104045

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

002332

002334

2%:
7%:

EMT
(MP
BEQ
BGT
CLR
MOv
MOV
SuB

CSREQTIM
RO,LSTTIM
3%
5%
LSTTIM
LSTTIM,RI
RO,LSTTIM
R1,RO

SuB
INC
(MP

#60.,SECOND
MINUTE
#60.,SECOND

CMP

#60. ,MINUTE

INC
SUB
MOv
MOV
RTS

HOUR
#60. ,MINUTE
(SP)+ ,R1
(SP)+,RO
RS

ADD
(MP
BGT

BLE
BGT

3%:

SYSCLK

RO, SECOND
#60.,SECOND
3%

: SAVE R
;D0 WE HAVE A (LOCK
GO SERVICE

:NO, CALL SUPER FOR *C

;HAS IT MOVED
:NO MOVEMEMT SINCE LAST

CALL

:BR IF CURRENT TIME > LAST TIME
;WHOOPS = NEVER LET CURRENT BE < LAST TIME
sCALCULATE DIFFERENCE
sAND FIX ACCORDINGLY

:BUMP SECONDS
:SECONDS OVERFLOW
:BUMP MINUTES

;RESET R1
;RESET RO

CIRLMAO RLO1/2 BSFT

HEADS HOME ROUTINE

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

;

.SBTTL

sROUTINE TO BRING HEADS OVER TRACK 0

5
6
7
g

024700
024702

010046
012737

0264714

004537

10 024720
11 024724
12 0264730
13 02473&
14 0247642
15 024750
16 0247564
17 024760
18 024766
19 024772

016300
042700
010037
052737
012737
004537
004537
013737
005037
012600

0264710

5? 024774

004537

000010
021570
023264
000006
000177
002174
000001
000006
021570
023264
002252
002252

002210

HEADS HOME ROUTINE

HDHOME: MOV
MOV
JSR

002174
002210
002214

000205

;SAVE RO
;READ HEADER

JSR

RS5.WIRDY

RS.LDFUNC

;60 DO IT.

MoV
BIC
MOV
BIS
MOV
JSR
JSR
MOV
CLR
MOV

MP(R3),RO
#177,R0
RO,BDA
#MK ,BDA
#SEEK ,FUNC
RS.,LDFUNC
RS ,WIRDY
PRPOS,LSTHDR
PRPOS
(SP)+ RO

;GET MEADER
:ONLY CYLINDER
sMOVE 1T TO BUFFERED DA
:SET MARKER
sLOAD SEEK
sSEEK!
WALT,

RTS

RO,-(SP)
#RDHDR, FUNC

:SET BUFFER TO HOME

;ROUTINE TO SET THE HEADS OVER THE LAST CYLINDER

264 024776
25 025004
S? 025010

012737
004537
004537

000010
021570
023264

002210

HDLAST: MOV
JSR
JSR

28 025014
29 025022
30 025030
31 025036
32 025044
33 025046
34 025054
35 025060

016337
042737
012737
022737
001005
012737
004537
000205

000006
000177
177¢00
000001

002252
002252
002254
002246

077600
025062

002254

MoV
BIC
MOV
CMP
BNE
MOV
JSR
RTS

18:

#RDHDR, FUNC
RS,LDFUNC
RS,WIRDY

;SET 10 READ THE CURRENT POSITION
:READ HEADERS
;WAIT TILL DONE

MP(R3) ,PRPOS
#177 ,PRPOS
#177600 ,NEWPOS
#1,TDR
1%
#77600 ,NEWPOS
RS, SKFNC
RS

:GET THE CURRENT PNSITION
:SAVE ONLY THE CYL BITS
;SET LAST CYL FOR RLO2
sDRIVE = RLO1?
sNO = MUST BE RLOZ2
;YES = SET RLO1 LAST TRACK ADDRESS
;SEEK TO THE LAST TRACK

CZRLMAO RLO1/2 BSFT

SEEK ROUTINE

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

SEEK ROUTINE

SKFNC:

MOV
MOV

SEQ 0091

:ROUTINE TO SEEK TO A CYLINDER POINTED TO BY 'NEWPOS' FROM A CYLINDER
;POINTED TO BY °'PRPOS'
;EXITS WITH PRPOS CONTAINING THE NEW CYLINDER ADDRESS
025062

002254
002252
000177
000177

000004
000001
00010C

002254

002210

004537
005777
017737

154776

002202

1%:
2%:

3%:

106463
001022

025210
025212

003133
007114

025214
025222
025224
025226

013737
012602
012601
000205

NEWPOS ,R2
PRPOS ,R1
n77,.R1
#77,R2

sSET THE DESIRED CYL
sGET THE CURRENT POSITION
sCLEAR THE HEAD/SECTOR BITS

?I.RZ

sCALC THE DIFFERENCE

QSG

sMAKE DIFFERENCE A POS!TIVE NUMBER

BIS
BIS
gé;

¥ ,R2
#NK ,R2
g:EAD.NEUPOS

sSET THE DIRECTION BIT
sSET THE SEEK MARKER BIT
:Gg TO HEAD #1?

BIS
MOV
MOV
MOV
JSR
JSR
TS7
BPL
MOV
ERRHRD

#SKHS ,R2
R2,.BDA
R2,DIFWD
#SEEK,FUNC
RS,LDFUNC
RS,WIRDY
aD(CS
31
aDCS,E.DCS
530.,MSKER,ERR2

.WORD

530

TRAP

002252

31%:

4%:

MSKER

MOV

NEWPOS ,PRPOS

MOV
MOV
RTS

sYES = SELECT THE HEAD BIT
:SAVE THE DA
sALSO AS DIFFERENCE WORD
sSET TO DO A SEEK FUNCTION
s1SSUE THE SEEK
sWAIT TILL READY SET
sSEEK ERROR DETECTED?
.NO
sYES = SAVE THE ERROR STATUS

TSERCODE

.WORD

.WORD
002254

;SAVE R1
:SAVE R2

MOV
MOV
BIC
BIC

ggg

000020
002174
002222
000006
021570
023264
155004

100007

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

ERR2

sUPDATE THE CURRENT POSITION WORD

(SP)+ ,R2
(SP)+ R
RS

sRESET R2
sRESET R1
JEXIT

JROUTINF TO CLEAR ALL DRIVE INFO, USED ON START OR

JRESTART

CALLED.

CAN BE

USED TO CLEAR

JINFO BY BITMAP FOLLOWING CALL
RS,CLEAR
JSR
s CALL

025230
025232
025236
025240

025244
025246
025250

010446

012704
005024
020427
001374
012604
000205

002160
002256

CLEAR:

2%:
4%:

LSBITL
sROUTINE

INDIVIDUAL DRIVE

MOV

R4 ,=(SP)

:sSAVE

MOV
RTS

(SP)+ R4
RS

JRESTORE CURRENT BUFFER POINTER
JEX]T

MOV
CLR
Cmp
BNE

ROUTINE

#ERRCNT RS
(R4)+
R4 ,#RECNT
2%

sPOINT TO THE 1ST TO CLEAR
sCLEAR
AT END OF BUFFER
sNO, GO T0 2%

TO CHECK FOR BAD SECTOR

TO MATCH BAD SECTOR..... BDA

IS SECTOR WE

ARE

LOOKING

pu—

F;lILIAO RLO1/2 BSHT

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

ROUTINE TO CHECK FOR BAD SECIOR

SEQ 0092

;FOR IN LIST POINTED 10 BY BSECPT......HDRFND 1S SET

57 025252
58 025256

005037
010046

002312

60 025262

0127C)

000177

62 025272

022711

177777

59 025260

61 025266

010146

013701

63 02527¢
64 025300
65 025304
66 025306
67 025310
68 025312
?3 025314

0014
023711
001404
005721
005300
001367
000402

;} 025316

005237

73 025322
74 025324
;2 025326

012601
012600

002234

(KBDSC: CLR
MOV

HDRF ND
RO,=(SP)

:CLEAR FLAG
:SAVE RO

MOV

#127. R0

1127 ENTRIES

#-1,((R1)

:END OF ENTRYS?

MOV

18:

BSECPT, R

BEQ
cmMp
BEQ
T3]
DEC
BNE
BR

4%
(HKSEC,(R1)
b1 3
(R1)+
RO
2%
4

sBRANCH IF AT END
sHAVE WE GOT A MATCH
sTHEN GO SET INDICATOR, ELSE

3%:

INC

HDRFND

;SET FLAG FOUND

48:

MOV
MCV

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

000205

(MP

RTS

77 025330

:SAVE R1

MOV

2%:

002314

002312

R1,-(SP)

IF WE FIND IT.

:GET WHERE WE'RE LOOKING

STARS
;:"'..""."""'t'."'!0"."'""'.".t"""'t"."""l"..

78 025330

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

BUFFER TO STORE BAD SECTOR LISTS

81 025330
g% 025724

B84 025726
85 026322
86 026324

177777
177777

BSECO:

.BLKW
.WORD

126.
-1

;STORAGE FOR BAD SPOTS IN BAD SECTOR FILE
sFORCED TERMINATOR

BSECN:
BSECNE:
STARS

.BLKW
.WORD

126.
-1

;STORAGE FOR 'FOUND' BAD SPOTS
;FORCED TERMINATOR

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

87 026324

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

88
85 026324

STARS
::""""""."l""""""""'"'t'.""'.'.t'.lll't'!t'l'l'

90
91
92 026324

;SUBROUTINE TO LOAD A MEMORY BUFFER WITH THE WORST
;70 WRITE ON THE PACK.
STARS

CASE

DATA PATTERN

::"Q'"""'".Q"""'I"""l""'t"".""'t.'."""t"'l't

94 026324

010146

3? 026330

010346

98
99
100
101
102
103
106

013701
013702
012703
012322
005201
001404
022703

95 026326

026332
026336
026342
026346
026350
026352
026354

WRBUF:

010246
002176
002356
026374

026434

1%:
2%:

MOV

R1,=(SP)

;SAVE

MOV

R3,=(SP)

:AND R3

MOV

MOV
MOV
MOV
MOV
INC
BEQ
(MP

R2,=(SP)

BMP,R1
BUF 1,R2
#WCPAT ,R3
(R3)+,(R2)+
R
{3
#WCPAT+32, R}

:SAVE R2
;GET THE WORD COUNT FOR THE WRITE (MD
:GET THE BUFFER ADDRESS
sGET THE STARTING ADDRESS OF THE DATA PATTERN
:PUT THE DATA IN MEMORY BUFFER
:DOWNCOUNT THE WC (MINUS WC TO START Wil
SEXIT IF ALL DONE BUILDING THE BUFFER
JAT THE END OF THE DATA PATTERN TABLE?

(IRLMAD RLO1/2 BSFT

ROUTINE

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

TO CHECK FOR BAD SECTOR

105 026360
-0 0
NO NS W

066666

OO0V

066656
133333

;WORST

sttt b

ddddfldddddddddd‘-‘do‘ddd-‘-‘dd

et s DO

3%:

155555

O O0VONO VWS WN

WWNWNWWNNI NN NI NN NI NN

133333
155555

155555

066666
026420
026422
026424
026426
026430
026432

026434
026436
026436
026436
026440

133333
155555

066666
133333
155555

000240
104001

BNE
BR
MOV

2%
3
(SP)+ ,R3

:NO = STORE THE NEXT FROM DATA TABLE
;YES = RESET THE DATA TABLE POINTER
;RESET R3

MOV
RTS

(SP)+ R1
RS

JEXIT

CASE

PATTERN USED

MOV

(SP)+ ,R?

_WORD

.WORD
.WORD
.WORD
LHORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

ENDOFPROGRAM:
ENDTST

L10011:

000000

EMT

HALT

IN WRITING

155555

066666
133333
155555
066666
133333
155555
066666
133333
155555
066666
133333
155555
066666
133333
155555
NOP

CSETST

—

WCPAT:

30-2

136 026442

STARS
R

137 026442

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

138
139
140
141
142

026442
040442

177777

040444
040514

BSFILE:

.BLKkW

2560.
=1

: STORAGE FOR BAD SECTOR FILE DATA
:END OF STORAGE

BSFPAT:
STARS

.BLkWw

20.

SEXTRA FOR PATCHING & MISTAKES ETC.

.WORD

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

STARS

143 040514

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

144
145 040514
146 040514

BGNMOD

040514

000011

040516
040520
040522
040524

000031
040540

040526
040530

001032
040554

147 040516

148 040526

160000
177776

HRDPRM
BGNHRD

.WORD L10013-L$HARD/2
GPRMA
(SRMSG,(SR,0,160000,177776,YES
.WORD
TSCODE
.WORD

.WORD
LWORD
GPRMD
.WORD
.WORD

CSRMSG

TSLOLIM
TSHILIM
DRMSG,DRBT,0,03400,0,7,YES
T$CODE
DRMSG

CIRLMAD RLO1/2 BSFT

ROUTINE

040532
040534
040536

149 040540

196

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

TO CHECK FOR BAD SECTOR

SEQ 0094

003400
000000
000007

040540

155 040540

}2? 04055«

L10013:
102

104

125

122

123

111

161
162
163
}gg 040562
166 040562
167 040562

040562
168 040564
040564
0640566
040570
169 040572
040572
060574
040576
040600
0640602

170 040604

174

{;9 040632

181

182

060652

183 041114

061114

(SRMSG:

DRMSG:

.WORD
LWORD
LWORD

03400
TSLOLIM
TSMILIM

.ASCIZ

/BUS ADDRESS/

ENDHRD
.EVEN

.ASCIZ

/DRIVE/

.EVEN

ENDMOD
BGNMOD

000010

000130
040604
000001

GPRMD

001052
040632
177777
000001
177777

123

127

.WORD
.WORD
LWORD
.WORD
.WORD

101

122

127

(AR

L10014:
.EVEN

DSWRT:

o:cgl:
.EVEN

0641114

SFTPRM
BGNSFT
.WORD L10014~-L$SOFT/2
GPRML
DSWRT,0,1,YES

.WORD
.WORD
.WORD

040604

175 040604

30-3

.=61114

LASTAD

LSLAST::

ENDSFT
.EVEN
_ASCIZ

LASCIZ

ENDMOD

TS$CODE
DSWRT
1

DWCNT,2,0,177777,1,177777,YES

TSCODE
DWCNT
177777
TSLOLIM
TSHILIM

/SAWTOOTH WRITE

CYCLE?/

/WRITE CYCLES PER

TRACK?/

(IRLMAO RLOV/2 BSFT

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

DIAGNOSTIC SUPERVISOR == LOW CORE
1

SET uP

32
SEQ 0095

.SBTTL

DIAGNOSTIC

SUPERVISOR == LOW CORE

SET

ASSEMBLY ROUTINES
PWR.FAIL:
POWER

55
36
37
38

319

071710
071712
071714
071716

000000
000000
000000
000000
071722
000200

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

.WORD
0
.WORD
0
.WORD
O
.WORD
0
END.SUPY=
42
.END 200

180

SEQ 0096

:SP;(E FOR USER POOL POINTER
;SIZE

sCHECKSUM (NOT

CURRENTLY USED)

;SIZE OF H.W. PTAB, ALLOCATION

T
O
O

—
-

wm----—-—--ooogo
VB WNN—=O
VONOWw

—
—

0 P
b

—) —
—) —

B 4 bt

—) —
)

s e w T
e

—

= e e

) —

00 T 0D T T T T T T T T T T T

&t b

O O TM

100000
000004
000010

014150
014140
014260
014236
015454
015522
015512
015610

CMD1
CMD2
CMD3
(MD4

BSRPTL
BSRPTS
BSRTOT
BSVER]I
BSVERL
BSVERS

BSWRIT
BSWRTL
BSWRTS

012012
012002
013322
016752
017032
017022

016300
016370
016360

CALLPC= 000022

CMD5
(MD6

(MD7

(M50
(MSK
CNTFLG
CNVT
COMMAN
COMMTA
COMVER
CONREA
CONTCL
CONWR
(oP
COPY
(RDY

(RD1

G
G
G
6

(]

00010G
000200
000400
001000

000024
000026
000030
066602
066640 6
002427

050220

002314
062422
060510
046360
053510
042550
061742
046066
046104
025252
006305
006344
025230
047502
041354
066604
061352
067210
070212
070346
061412
046162
010372
023176
016720
010106
010122
046436
004613
004152
004222
004303
004371
004426
004514
004550
002447
002270
002400
064660
041164
064474
016756
017162
070272
023534
000040
02053¢
000200
017200

nnn

BSADDL
BSADDS
BSASN
BSATD
BSDEL
BSDELL
BSDELS
BSDELT

=
=
=
=

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

had
>
<

043050
000011
045716
ASAAW
065732
ASAAX
045744
ASAAY
045752
ASAAZ
045766
ASABA
045776
BA
= 000002
BADBSF
004753
BADWRT
005447
BA16
000020
BA17
000040
BBA
002206
BCSADR
002212
BCER
002306
BDA
002174
002310
041114
060370
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000

BIT6
BIT7
BIT8

= 000020 G

= 000040 G

041146
062060

BITS

ADDFND
AFS]
ALLOC
APT.ER
ASSEMB=
ASAAV

BIT4

180-1

CKENT

ADDCOD
ADDFEX

0461440 G
041356 6
063720
005114
005175
005024
005146
005220
005331
005272
002372
014632
010454
020534
020142

IlalalalalalalalalaalalalalalalATAT
AT~}

ABOF LA
ABOPAS
ABO.FM
ABSCYL
ABSHD
ABSMSG
ABSSEC
ABSSER
ABSSNH
ABSSNL
ACCESS

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

ASSEMBLY ROUTINES

SYMBOL TABLE

=
=
=

017374
002415
060572
000000
000000
040540
023370
041122
041124
016744
002244
002264
053462
053474
054472
054636
000021
000020
000054
000022
000004
000002
000030
000046
000012
000006
000036
000044
000053
000024
000055
000002
000002
000003
000001
000004
000010
000005
000003
000001
000032
000043
000042
000040
000052
000011
000020
000035
000034
000100
000051
000023
000014
000017
000016
000015
000040

000377
000007
000050
000045
000033
000002
000025
000047
000041
000037
000013
000031
000026
000027
000004
004000
002200
060404
002316
005114
005175
005520
005146
003747
002166
040000
041126
000000
0461446
002222
010000
005371
071056
070744
000002
010774
000001
040554
003645
010736
010456
002232
000013
010642
000400
007644
040604
041362
054442
040632
055246
055364
060132
060136
060154
060172
060202

—_——————
e

ASSEMBLY ROUTINES

SYMBOL TABLE

180-2

GARBAG
GETCHR
GETCMN
GETCYL
GETDST
GETFAR
GETSEC

GETSN
GETSW]I
GETSYS
GET.TW
GLBDAT

000005
000010
000002
000014

000001

061744
060450
064034
014446
023342
055526
014534

014306
063030
024544
062600

002160 6

003351
041150
002540
065206
024472
024534
024540
024400
006250
041372
007652
060420

—
—

ZZTE
O -

1$SUB
18187
JSJMP

KBPTR

KBUF

LDFUNC
LINE.F
LIST
LOADED
LOAD.F
LOGMSG
LPBFR
LPCNTR
LPT.AD
LPT.RE
LSI.RE
LSTDA

LSTDR1
LSTHDR
LSTTIM
LUP
LUP.AD

LSAPT
LSAU
LSAUT
L$CCP
LSCLEA
L$CO
L$DEPO
LSDESC
L$DEVP
LSDISP
L$DR

002144

LSEXP3
LSHARD
LSHPCP
LSHFTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST

LSMREV
LSNAME
LSREPP
LSREYV
LSRPT
LSSOFT
L$SPC
L$SPCP
L$SPTP
LSSTA
LSSW
LSTIML
LSTIMU
LSTIM
L$TSTI
LSUNIT

L10000
L10001
L10002

L10003

L10004
L10005
L1C006
Li0007
L10010
L1001
L10012
L10013
L10014

MAJ.IN
MAJ.LO
MAJ .US
MAN.TI

MAP16

MASK .B
MAS.K
W

002070
002072
002144
002040
010456
002076
002146
002056
002034
002042
002044
002046
040516
002016

002022
007632
002104
007652
002026
041114
002050
002000
002066
002010
007650
040564
002062
002020
002024
002030

007640

002014

002054
002052
002100
002012
045512
007112
007230
007636
007644
007650
010326
010452
0710454
010456
026436
021706
040540
040604
041176
066606
041200
001244
071314
050216
050214

[lalalalalalalalalalalalalalalaalalalalalalalalalaAlalalalalalal
A aYa¥a)

007435
007232
007266
007303
007335
007342
007351
055010
062316
002210
002242
000015
000040
00007
000016
000041
000004
000013
000006
000050
000000
000011
000017
000012
000003

LSDRCT
LSDRS
LSDRST
LSDTP
LSDU
LSDUT
LSDVTY
LSEF
LSEFLG
LSEXP1
LSEXP2

F$SOFT=
F$SRV =
F$SUB =
F$SWw
=
F$TEST=

007420

1$AU
ISCLN
18DV
1$KRD
ISINIT
1$MOD
1$MSG
I$PWR
I$RPT
1$SEG
I$SFT
I$SRV

046504
041206 6
011766
061346
000100
054644
021700
045452
054502
042504
047454
023356
000041
000041
000041
000041
000041
000041
000041
000041
000041
000041
000041
000041
000041
000041
000167
041224
041226
021570
041442
011746
023222
046102
060412
041222
041220
045544
045540
045534
002220
002304
002214

FMISN

FMITB
FMT16
FMT17
FMT17A
FMT18
FMT19
FMT20
FORM.T
FREE
FUNC
FWDFLG
F$SAU
=
F$BGN =
FSCLEA=
F$DU
=
FSEND =
F$SHARD=
F$HW
=
F$INIT=
F$JMP =
F$MOD =
FSMSG =
F$PWR =
FSRPT =
F$SEG =

013454

046106
007450
007510

Ut
INPUTA
INTEN
INTFOR
INTR1
INVINT
INV.SW
IN.SUF
ISDRST

FLDNUM

FLG.MA
FMTICSH
FMTMS

010460
041160 6
041162 G
064412
046146
064360

002160
006625
010460
002406
000003
000004
GSEXC
000400
000002
GSHIL
GSLOL
000001
GSNO
000000
GSOFFS
000400
GS$OFSI= 000376
000001
= 000002
000000
= 000140
000000
000040
000200
000120
000020
000100
000004
000010
040000
045656
045566
041402
004000
041152
041144
041142
024700
024776
002312
000109
045526
011424
002462
010000
000020
000020
002336
007630
040514
GLBEQA
GLBERR
GLBSUB
GLBTXT
GSBIT
GSTAT

FIRST
FLAGS
FLAGST
FLAGTA
FLAG.]
FLA.SE

007616
061240
000204 G
010254

Lt
*J
Tt
nn

IlalalalalalalalalAlalal
Al ATl Alalalalal ATl

CTYP
It
ILL.C
INDBF

(afalAalalalalalalAYaY
Al

002346

002350
002352
002204
013456

- B

054714
053514
002404
054452
041116
054456
006626
055000
007114
053506
041120
004013
002342
002340
002344
002202

]

100000
006120
002160

~ B

000034
000037
000040
000001
000002
000003
000004
000005
000006
000007
000010
000011
000012
000013
000014
000015
000016
000017
000020
041444
010172
026434
017206
017216
023572
047470
071722
041166
070370
043734
046100

9-FEB=-79 19:46:5¢4 PAGE

SEQ 0098

[ T

FCAr A0 BBITAR

[ ]

=R Y
O - —

Y TR

il il il i il i

mm mmmmMmmMmmmmmmmmmmm

MY TMy

EF .CON= 000036
tF .NEW= 000035

MACRO v03.01

————
e
i

ASSEMBLY ROUTINES

SYMBOL TABLE
MAXWC

MBLD
MCRLF

002360

NXTCMD

003012
007552

NXTFOR
NXTSEC

003171
002000
003541
006431
045554
003242
00233¢
041172
041174
000001
070656
000006
003217
002406
003144

MSG.AD
MSG.TY
MSKER
MSREC
MSTWRT
MTEST
MuL
MWRITE
NEWBSF
NEWENT
NEWFAC
NEWLD
NEWPOS
NEWPRI
NEXTAR
NHWSEC
NOCRDY
NODRIV
NOENTR
NOFACT

041140 G
041114 G
003133
002762
006020
011012
070612 6
004100
020614
006103
002230
003324
002254
070336 G
064576
003400
003607
003633
005567
013500

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

9-FEB=79

19:46:54 PAGE

180-3

SEQ 0099

MDERS
MDHEDR
MDONE
MDRTYP
MEM.S1
MHDER
MINUTE
MIN.IN
MIN.US
MK
=
MODR
MF
=
MRDER
MRLCS
MSFER

MSG

MACRO v03.01

G
G
6

007555

013566
003477
003255
013654
013452
006401
045502
064372
061710
045706
000000
003453
055034
055202
041156 G
041564
050172
020000

011660

READ.P

064652
017526

RECNT
REGBAC

066610 6

002256
071300 6

NXTTRK
NXTUNI
OCTMSG
0K
ONESEC
OP1
=
OVRMAX
0$APTS=
0$AU
=
0$BGNR=
0$BGNS=
0$bU
=
0$GNSW=
0$POIN=
O$PWR =

017540
002260
060376
006242
017642
002000
006150
000001
000001
000001
000001
000001
000001
000001
000001

REGSAV
REQN.P
REGN.T
RESTAR
RETRY
RE.SET
RLICLM
RPTCOD
RSEEK
RSTACK
SAVEDO=
SAWFWD
SAWREV
SEARCH
SECMAX

071264
041170
046062
010226
002172
042652
005627
007650
002236
070540
043050
006452
006500
062546
013466

PAR.LA
PASS.C
PASWD
PASWOR
POWER
PRFLGS
PRGER
PRINTC
PRINTF
PRI0O =
PRIO1 =
PR102 =
PR10O3 =
PR104 =
PRIOS =
PR106 =
PR107 =
PRNTST
PRO.CM
PRPOS

060074
041130
002274
003656
010326
002216
003556
061720
065226
000000
000040
000100
000140
000200
000240
000300
000340
061610
046060
002252

SECNUM
SECOLD
SECOND
SEEK
=
SEGSTA
SELDRV
SELTBL
SERNM1
SERNM2
SET.MA
SFTCNT
SFTPRM
SHIFT
SIGN
=
SKDON =
SKECNT
SKFNC
SKHS
=
SKT0
=
SKWRT =

013470
013472
002332
000006
041414 6
010470
010330
002224
002224
0462/2
002162
040562 G
071376 6
000004
000001
002164
025062
000020
010000
024044

PARSES

PSNFG
PTAB.S
PTIME
PUTCHR
PWRFLG
PWR.FA
PWR.FL
PWR.MS
PWR.SA
PWR.UP
P.CLK.
RDBDSC
RDBSEX
RDBSF1
RDFACT
RDFIEL
RDHDR =
READ
=

064106

SECMSK

G
G
G
6
G
G
G
6

013476
041400 6
010572
060424
002374
071550 G
041204 6
071676
071672
071674
045520
021710
023174
023124
023026
023066
000010
000014

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

G
6

002266

003101
002272
002364
002366
002240
004000
046006
007636 6
000400
017404
002472
070266 6
010370
002402
061300
017402
046064
023612

ST.SET

SUNIT.
SUPERV

042716

046070
043752

1$CODc= 001052

TSERCO=
TSERRN=
T$EXCP=
TSHILI=

000063
001022

SUPFLA
SUPV.T

041360 6
041532 6

SUP.PR
SVCGBL=
SVCHAN
SVCINS=
SvCsuB=
SVCTAG=
SVCT1ST=
SWCHAN
SWITCH
SWRT1
SWSEC
SW.ADR

042470
000000
050406
000000
177777
000000
177777

T$NSKO=
TSNSK1=
1$SAVL=
T$SEGL=

045700
064552
023614

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

SW.PTA

003426
041754 G
045664

TSTEMP= 000000
T$TEST= 000001
T$TSTM= 177777

SYSMSK
SYS.FT
SSLSYM=
TBLFUL
TDR
TEMPO
TEMP1
TEMP2
TEMP3
TERMI
TERMLI
TERMTA
TEST.M
TEMSG
THARD
THISDR
TILLEN
TIME
TIMFLG
TIM.CO

002262
054432
010000
005714
002246
002320
002322
002324
002326
066576
064400
060362
046020
002606
002725
006575
005770
007560
041350 6
041202 6

SYSCLK

TIM.OP
TITLEX
TMMSG
T00.MA
TRPFLG
TRPHAN
TSOFT
1ST.AB
TST.T0
TYPEC
TYPEPC
TYPFLA
TYPLIN
TYPNUM
TYPSTR
TYP.ER
TY.UNI
T$ARGC=

002354

055006
002110
002636
060342
002376
010564
002670
050330
042532
060736
054632
064254
060634
060216
060654
054462
047474
000002

000000
177777

T$LOLI= 000001
TSLSYM= 010000
TSNEST= 177777
000000
000005
177777
177777

1$757S= 000001

T$$AU =
T$SCLE=
1$$DU =
T$$SHAR=
T$$HW =
T$$INI=
T$$MSG=
T$SRPT=
T$$S0F=
T$$SRv=
T$$SWw =
T$$TES=
T
UNIT.D
UNI.MA
USER.P
USER.T
uut
VALID.
VALSN

VAL.LA
VAL.SW
v(
=
VERIFY
WCPAT
WDE
=
WGE
=
WHATCM
WIDTH
WL
=
WNXSEC
WNXTRK
WwRBUF
WRCHK =
WRINIT
WRIPG
WRITE =
WRPACK

010007
010006
010010
010013
010002
010005
010001
010004
010014
010012
010003
010011
011012
041132
046010
041374
041376
002362
041634
005660

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

G
6
6
G

ASSEMBLY

ROUTINES

SYMBOL

TABLE

WRPKF
WRPKR
WRIBSF
WRTICNT
WRTLCK
WRTLIM
WRTLOK

006531
006553
015122
002170
003277
007642
002370

. ABS.

071720
000000

ERRORS DETECTED:

MACRO v03.01

9-FEB=79

19:46:54 PAGE

180-4

SEQ 0100
WRTSAW
WIRDY
WISEC
XEQDIA
XEQSUB
XEQ.CL
XEQ.CM

007640
023264
024120
070424 G
070412 G
050134
045444

000
001

VIRTUAL MEMORY USED:
18517 WORDS
( 73 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
70 PAGES
CZRLMA BIN,CZRLMA=#SVCRT/M,CZRLMA,DOCTOR
: 5BL
/E

XEQ.IN
XEQ.LA
XEQ.OP
XEQ.FR
XEQ.TE
XTIME
XTIMEN

047616
043705
047710
043110
047754
067276 G
070122

XTIMST
XXDP.D
X$ALWA=
X$FALS=
X$0FFS=
X$TRUE=

067320
045464
000000
000040
000400

$BREG
$ENDAD
$SAV2
$SAV3
$SAVLG

046160
070376
071442
071456
071474

000020

$SAVS

071514 G

G
G
G
G