Digital PDFs

AH-T123A-MC

July 1982

Number of pages unknown

Original

5.3MB

view download

OCR Version

4.4MB

view download

Document:	CZRNJA0 RM80 RM80 FORMATTER JUL 1982 bw
Order Number:	AH-T123A-MC
Revision:	0
Pages:	Unknown
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/microfiche/Diagnostic_Program_Listings/Listings/CZRNJA0__RM80__RM80_FORMATTER__AH-T123A-MC__JUL_1982_bw.pdf

OCR Text

MACRO M1113

SEQ 0001

PAGE 2

.REM @

b o

N =2 OO 00 NN SN

= OO WNON NS AN —

CZRNJAO RM80 FORMATTER

12=JAN-82 11:00

Nb e

d e

IDENTIFICATION
PRODUCT CODE:

AC-T122A-M(C

PRODUCT NAME:

CZRNJAD

PRODUCT DATE:

JANUARY 1982

MAINTAINER:

CX DIAGNOSTIC GROUP

AUTHOR:

C. HESS, M. LEAVITT

RMB0 FORMATTER

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND
A
NOT
COMMITMENT BY
DIGITAL
EQUIPMENT
SHOULD
BE
CONSTRUED AS
CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS Or SUCH LICENSE.

DIGITAL
EQUIPMENT
ggé{?E{LITY OF ITS

(CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR
SOFTWARE
ON EQUIPMENT
THAT
IS NOT
SUPPLIED 8Y

SEQ@ 0002

CZRNJAO RMBO FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 3

CONTENTS
1.

INTRODUCTION
1. ABSTRACT

. OPERATING REQUIREMENTS
1.

HARDWARE REQUIREMENTS

2. PREREQUISITE DIAGNOSTIC PROGRAMS
. OPERATING PROCELURE
1.

HALTING

2. SWITCH OPTIONS
3. STARTING
5. RESTARTING

. OPERATOR INTERFACE

CO~NO WIS W

1. PROGRAM IDENTIFICATION
. CONSOLE DIALOGUE
. WARNING MESSAGES
PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRAM HALTS
ERROR REPORTS
EXECUTION TIME

ENVIRONMENTAL SUPPORT
NOV
NS NN -

PROCESSOR COMPATIBILITY

DUAL PORT CONF IGURATIONS
MEMORY PARITY HARDWARE
MEMORY MANAGEMENT HARDWARE
ACT, APT COMPATIBILITY
XXDP COMPATIBILITY
OPERATING SYSTEM COMPATIBILITY

FORMAT DESCRIPTION

1. FORMAT PROCESS
. RECONSTRUCTION DESCRIPTION
1. HANDLING OLD DEFECTS

2. HANDLING NEW DEFECTS
. BAD SECTOR FILE LAYOUTS
1.

SKIPPED SECTOR FILE

2. DEC STANDARD 144 FILE
. ERROR TYPE DESCRIPTION

SEQ 0003

1.0

INTRODUCTION

1.1

ABSTRACT

THE RM80 FIELD FORMAT PROCESS FOR
16 BIT APPLICATIONS
IS A
RECONSTRUCTION PROCESS THAT RE-ESTABLISHES THE FACTORY FORMAT OF
THE HDA,
THE FORMATTER IS NOT INTENDED TO BE USED BY FIELD SERVICE
AS RMB0 TROUBLE SHOOTING TOOL.
ALSO, HDAS SHOULD NOT BE FORMATTED

D wd D

) e

WWNWWRINNNININNVNININ
=
b
ed b b 2 OO O
\nmmmm\nmm\nmbbbbabbbbbwuwwug
WN—'OO@NOW“WN—'OODVOWbWN—bOOGNgU‘J\W
VW NN
NN =O 000NN
W
=O VBN

CZRNJAO RMBO FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE ¢

d e

gfi%ESsEEHE EXISTING FORMAT HAS BEEN DAMAGED BY HARDWARE OR SOF IWARE

D d d D ad D

BECAUSE OF THE TECHNOLOGY USED IN THE RMBO HDA, IT IS EXPECTED THAT
THE _NUMBER OF DEFECTS (BAD SECTORS) WILL EXCEED THE NUMBER

BAD

SECTORS
THAT
THE
16 BIT FILE SYSTEMS CAN ACCEPT.
SKIP SECTORING
WAS ADDED TO THE RMBO TO REDUCE THE APPARENT NUMBER OF BAD SECTORS:
SKIPPED SECTORS ARE
VISIBLE ONLY TO THE HOST OPERATING SYSTEM'S

D e

D ol

RM80 DEVICE DRIVER,
(THE FILE SYSTEM VISIBLE DEFECTS ARE LISTED IN
THE
DEC
STD
144 MFG AND USER'S
FILES,
MDBSF
AND UDBSF,
RESPECTIVELY.)

b d

b e

THE RM80 HDA MEDIA IS VERIFIED IN MANUFACTURING USING PARAMETERIC
VERIFICATION
EQUIPMENT.
THE
DEFECT
LIST
GENERATED B8Y
THE
MANUFACTURING VERIFCATION PROCESS IS THE MASTER LIST OF DEFECTS ON
THE
HDA.
EXPERIENCE
WITH
PREVIOUS DISK PRODUCTS INDICATES THAT
FUNCTIONAL FORMAT/VERIFICATION

b e

MEDIA

VERIFICATION

WHICH ARE PRESENT.

b b cd amd

ARE

AND

WILL

PROGR/MS

MISS

SINCE ONLY A FEW OF

CANNOT

PERFORM

ADEQUATE

A LARGE NUMBER OF THE DEFECTS

PRESENT

ARE

DETECTED

B8Y

RATE

THAN

INITIALLY.

THE

ACTUAL

FUNCTIONAL

DEFECTS

WHICH

FORMAT/VERIFICATION

PROGRAM, MARKING THE
ERRORS
LISCOVERED
B8Y
SUCH
A
VERIFICATION
PROGRAM WILL, IN EFFECT, CREATE AN HDA WHICH HAS A HIGHER APPARENT

ERROR

HAD

CONSEQUENTLY,

THE

FIELD

BAD

SECTOR

ed cd

D wad

FORMATTER
WILL
)7
RELY
ON FUNCTIONAL MEDIA VERIFICATION ALONE.
THE FIELD FORMAT OPERATION WILL BE BASED ON THE HDA'S 16 BIT MODE
BAD
SECTOR
FILES
SUPPORTED B8Y_
INCIDENTIAL
MEDIA VERIFICATION.
FUNCTIONAL MEDIA VERIFICATITN, ALTHOUGH LIMITED, WILL BE
ATTEMPTED
AS
A MEANS OF DETECTING DEFECTS WHICH HAVE DEVELOPED SINCE THE HDA

LEFT MANUFACTURING.

THE LOCATIONS OF SKIPPED SECTORS ARE LISTED IN

NEW

) d b el

D wd e cd

)

SUPPORT FILE CALLED THE SKIPPED SECTOR FILE (SSF). THE LOCATIONS OF
SKIPPED SECTORS ARE NECESSARY SO THAT A FIELD
FORMAT
PROGRAM C(CAN
RECONSTRUCT
(SEE
SECTION 7)
THE
FACTORY FORMAT OF AN HDA.
THE
NON=-SKIPPED SECTOR LOCATIONS ARE LISTED IN THE DEC STD
144
FILES.
;gggESSFILES ARE
CREATED/INITIALIZED B8Y THE MANUFACTORING : ORMAT

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS
THE

FOLLOWING

gggfi:}{ggAL.

MINIMUM

PDP-11/70 PROCESSOR

28K MEMORY

HARDWARE

REQUIRED

CONFIGURATION,

ASSUMED

LOAD AND EXECUTE THE RM80 SUBSYSTEM

PROGRAM LOADING DEVICE
TERMINAL

RH70 CONTROLLER
1 70 8 RM80 DISK DRIVES

= O 000~

e
i e
b o

D
b

0O NN NS NN = O 000 NV

NN 2O 000NN

e
D e
e
e
b o
b e
b
h b o
i
o
b o
b
b e
b
e
b e

189

SEQ 0004

KWli=L OR KW11=-P CLOCK

b e

NN
—

CZRNJAO RM80 FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 5

2.2

PREREQUISITE DIAGNOSTIC PROGRAMS
RM80 DISKLESS TEST, PART 1 AND 2

3.0

OPERATING PROCEDURE

3.1

LOADING
THE PROGRAM MAY BE LOADED FROM ANY XXDP MEDIA.

3.2

SWITCH OPTIONS
THE
PROGRAM DOES
REGISTER OPTIONS.

3.3

NOT

HARDWARE

OR SOFTWARE SWITCH

STARTING

3.4

HALTING
THE PROGRAM CAN BE HALTED
PROCESSOR FRONT PANEL.

PRESSING

THE

HALT

SWITCH

THE

NOTE: ONCE
THE
PROGRAM
IS
HALTED,
IT
CAN ONLY BE RESTARTED B8Y
PRESSING CONTINUE ON THE PROCESSOR FRONT PANEL
OR
RELOADING

THE PROGRAM AND STARTING AT ADDRESS 200 .

3.5

RESTARTING
THE
PROGRAM CAN ONLY BE
STARTING AT ADDRESS 200 .

582

4.0

OPERATOR INTERFACE

582

4.1

PROGRAM IDENTIFICATION

207

583

ANY

THE PROGRAM MUST BE STARTED AT LOCATION 200
.
HOWEVER,
BECAUSE
LOCATION 200 GETS OVER WRITTEN BY THE RSX11 MONITOR, THE PROGRAM
CANNOT BE RESTARTED AFTER ITS INITIAL STARTUP.

200
585

5}?

SUPPORT

RESTARTED BY RELOADING THE PROGRAM AND

THE PROGRAM TYPES ITS TITLE THE FIRS/

BEING LOADED.
4.2

TIME

STARTED

AFTER

(CONSOLE DIALOGUE

212
g}z

THE PROGRAM ENTERS A
PROGRAM IDENTIFICATION.

(ONSOLE DIALOGUE SEQUENCE AFTER TYPING THE

215
216

UPON STARTING THE PROGRAM, THE FOLLOWING PROMPT WILL ASK
TO SPECIFY WHICH DRIVE IS TO BE FORMATTED.

THE

USER

SEQ@ 0005

CZRNJAO RMBO FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 6

'DRIVE #:

ENTER THE DRIVE ADDRESS NUMBER (0-7) FOLLOWED BY CARRIAGE RETURN.
IF
THE
SELECTED DRIVE IS NOT AVAILABLE, THE PROGRAM WILL TYPE AN
ERROR MESSAGE AND RETURN TO THE THIS PROMPT.

NOTE: ONLY ONE DRIVE CAN BE FORMATTED AT A TIME.
NOT ALLOW MULTIPLE DRIVE FORMATTING.

THIS PROGRAM DOES

AFTER
THE USER HAS SELECTED THE DRIVE TO BE FORMATTED, THE PROGRAM
WILL ASK FOR AN OPTION TO BE SELECTED WITH THE FOLLOWING PROMPT.

'OPTIONS:

THE COMMANDS AVAILABLE FOR THE OPTION PROMPT ARE AS FOLLOWS:

ggg}lALIZE

OOV
W

wvloaWiwvavhau

nNRNINIPON

NOTE:

THE

ALL

THE BAD SECTOR FILES (DEC STD 144 AND

INITIALIZE COMMAND WILL DESTROY THE CONTENTS

ggr)ALL

THE

BAD

SECTOR FILES (DEC STD 144 AND

FORMAT THE DISK.

<CR>

SAME AS

FO:F

FORMAT THE FE CYLINDERS ONLY.
560., TRK 13.)

LIST
THE
PHYICAL ADDRESSES OF THE DEFECTS IN ALL THE
BAD SECTOR FILES (DEC STD 144 FILES AND SSF).

LI:L

LiST THE LOGICAL ADDRESSES OF THE DEFECTS IN

VFL=N

VERIFY SECTOR COUNT, WHERE

°'FO'

RE-READ

FORMAT,

ERL=N

COMMAND.

iggneggés)FlLES.

DEFAULT IS 1

259

(ALL CYLINDERS 0 - 560.)

ERROR

(SSF

TRACK

(RANGE

(CYL 559., TRK 2 -

DOES

THE

DEC

NOT CONTAIN ANY LOGICAL

'N'

DURING

1-256.).

IS THE NUMBER OF

VERIFY

AFTER

OPERATION.

TIMES

(COMPLETING

°N' WILL RETURN TO ITS DEFAULT VALUE.

LIMIT

COUNT, WHERE °'N°'

(RANGE

THE DEFAULT

1-256.). AFTER COMPLETING THE FORMAT,

WILL RETURN TO ITS DEFAULT VALUE.

CSR=N

THE

°N'

RM BASE ADDRESS, WHERE °N' IS _THE ADDRESS OF RMCS1
_IN
OCTAL.
THE DEFAULT IS 176700. AFTER COMPLETING THE
FORMAT,

VEC=N

THE

IS THE NUMBER OF ERRORS

ALLOWED BEFORE THE FORMAT IS ABORTED.

256

(VL

°N' WILL RETAIN ITS CHANGED VALUE.

RM_VECTOR

ADDRESS,

WHERE

°'N'

THE

ADDRESS

OFf

INTERRUPT ADDRESS IN OCTAL.
THE DEFAULT IS 254. AFTER
SRTS%ETING THE FORMAT, °'N'
WILL RETAIN ITS CHANGED

SEQ 0006

CZRNJAG RMBO FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 7

THE

USER MAY STRING ANY COMBINATION OF COMMAND OPTIONS TOGETHER 8Y

USING A SLASH (/) TO SEPARATE THE COMMANDS.
HOWEVER,
IF
ONLY A
CARRIAGE
RETURN 1S TYPE FOR THE OPTION PROMPT, THE PROGRAM WILL GO
INTO FORMAT (FO) MODE USING THE DEFAULT PARAMETERS.
EXAMPLE #1:

OPTION:FO/CSR=176000/VEC=260/VFL=3/ERL=10<(R>
THE ABOVE COMMAND INDICATES THAT THE ENTIRE DISK WILL BE FORMATTED,

THE RMCS1 ADDRESS WILL BE SET 7O 176000,

THE _VECTOR ADDRESS WILL BE

gETSg? ggoiOTHE VERIFY COUNT WILL BE SEf TO 3 AND ERROR LIMIT
THE

FOLLOWING

PROMPT

WILL

OC'UR

IF _THE RESPONSE TO THIS PROMPT IS A

°N'

INITIALIZE (IN) OR FORMAT (FO) COMMAND.
'CONTINUE

RETURN

WILL

THE OPTION SPECIFIED WAS AN

(L) N 72 °

JUST

CARRIAGE

RETURN,

FOLLOWED

THE

CARRIAGE

PROGRAM WILL ABORT THE

CURRENT COMMAND AND RETURN TO THE DRIVE PROMPT.
[IF THE RESPONSE IS
A
'Y'
FOLLOWED BY A CARRIAGE RETURN, THE PROGrAM WILL CONTINUE TO
THE NEXT STEP IN THE CURRENT COMMAND OPTION.

THE FCLLOWING PROMPT WILL OCCUR
FORMAT (FO) COMMAND.

'"UPDATE MCDE
IF

THE

RESPONSE

wd ad

b od

b e

= O 000 NON NI NN —

NN NN LN AN NN NN

RETURN OR JUST A

322

(L) N ?
TO

THE

OPTION

SPECIFIED

WAS

THIS

CARRJAGE

PROMPT IS A °'N' FOLLOWED BY A CARRIAGE

RETURN,

THE

PROGRAM

WILL

ABORT

THE

CURRENT COMMAND AND RETURN TO THE DRIVE PROMPT.
IF THE RESPONSE IS
A 'Y' FOLLOWED BY A CARRIAGE RETURN, THE
PROGRAM WILL
ENTER
THE
MANUAL BAD SECTOR UPDATE ROUTINE.
THE FOLLOWING TWO PROMPTS WILL OCCUR IF

INITIALIZE (IN) OR FORMAT (FO) COMMAND.

'ENTER DATE (DD-MMM-YY):

THE OPTION SPECIFIED WAS AN

THE DATE IS ENTERED BY TYPING A DAY IN DECIMAL, THE FIRST 3 LETTERS
OF THE MONTH AND THE LAST TWO DECIMAL DIGITS OF THE YEAR.
AFTER
ENTERING
THE DATE, THE PROGRAM WILL PROMPT THE USER FOR THE
HDA SERIAL NUMBER AS FOLLOWS:

‘HDA SERIAL NUMBER:

°*

Ig56¥gA SERIAL NUMBER CAN BE ANY DECIMAL NUMBER UP TO 10. DIGITS IN

—

SEQ 0007

CZRNJAO RMB0 FORMATTER MACRO M1113 12-JyAN-82 11:00 PAGE 8

THE

OPTION

WAS A FORMAT (FO) COMMAND AND THE USER HAS ENTERED

THE MANUAL UPDATE MODE, THE FOLLOWING PROMPT WILL BE TYPED TO ALLOW
THE ENTERING OF SECTORS INTO THE BAD SECTOR FILES.

'ENTER BAD SECTR ADRS:
CYL,TRK,SEC = °
THE
BAD
SECTOR ENTRY
IS ENTERED BY TYPING THE CYLINDER ADDRESS,
TRACK ADDRESS AND SECTOR ADDRESS IN DECIMAL, FOLLOWED BY A CARRIAGE

RETURN.

TERMNATE

THE

BAD SECTOR ENTRY LIST,

RETURN IN RESPONSE TO THE ENTRY PROMPT.

TYPE A CARRIAGE

IF THE BAD SECTOR HAS A HEADER ERROR OR DRIVE TIMING ERROR (EXAMPLE

#2),

THE

LETTER

‘W'

(HEADER

DEFECT)

MUST

THE

INDICATED,
THIS WILL INDICATE TO THE PROGRAM, WHICH FILE
DEC STD 144) THE DEFECT MUST BE STORED IN.

DEFECT

(SSF

EXAMPLE #1:
ENTER BAD SECTR_ADRS:

CYL.TRK,SEC = 525,4,25<CR>

;gEFECT

CYL 524., TRK 4., SEC

CYL,TRK,SEC = <CR>

sTERMINATE INPUT

IF THIS DEFECT (EXAMPLE #1) IS NOT ALREADY IN THE SKIP SECTOR
(SSF),

THE

DEFECT

WILL

BE ENTERED AS A SKIP SECTOR ENTRY.

SECTION 7.0 FOR MORE DETAILS)

F ILE
( SEE

EXAMPLE #2:
ENTER BAD SECTR_ADRS:
CYL,TRK,SEC = 525,4,25H<CR>

DEFECT CYL 524., TRK 4.,

CYL,TRK,SEC = <(R>

sTERMINATE INPUT

25.

(HEADER ERROR)

SEC

TH'S
SECTOR
(EXAMPLE #2) WILL NOT BE ENTERED AS A SKIPPED SECTOR,
BECAUSE A HEADER ERROR WAS FLAGGED BY
THE
USER,
BY
PLACING
THE
LETTER
'H®'
AFTER
THE
DEFE.Il.
THE DEFECT WILL BE ENTERED_IN THE
nazgfsg;x?fg)SECTiCN OF THE DEC STD 144 FILE.
(SEE SECTION 7.0 FOR

NOTE:

4.3

THE
LETTER LOCATZD WITHIN THE BRACKETS () INDICATES THE TYPE
EEL2$;?2NSE REQUIRSD BY
THE
USER,
D=DECIMAL,
O0=0CTAL
AND

WARNING MESSAGES
WARNING
MESSAGES
WILL BE TYPED AT THE APPROPRIATE TIME DURING THE
PROGRAM TO NOTIFY THE USER THAT THE CONTENTS OF
THE
HDA WILL
B8E

LOST.

~ THE_

FOLLOWING MESSAGE WILL BE TYPED BEFORE INITIALIZING OR

FORMATTING THE HDA.

‘s* WARNING - DATA WILL BE LOST ON DRN:
TO FURTHER WARN THE USER,

s+’

THE FOLLOWING MESSAGE WILL BE TYPED

BEFORE INITIALIZING THE HDA.

JUST

SE@ 0008

CZRNJAO RMB0 FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 9

*#+ WARNING - BAD SECTOR FILES WILL BE OVERWRITTEN ON DRN:

#+’

FOLLOWING EACH WARNING MESSAGE, THE USER IS ALLOWED THE OPPORTUNITY
TO TERMINATE THE PROGRAM WITHOUT DESTROYING THE
DATA ON HDA,
By
RESPONSING TO A PROGRAM PROMPT MESSAGE.
(SEE SECTION 4.2)
4.4

PROGRESS REPORTS

NO
4.5

PROGRESS REPORTS ARE GIVEN DURING THE EXECUTION OF THE PROGRAM.

PERFORMANCE REPORT

NO PERFORMANCE REPORTS
PROGRAM.

6.6

ARE

GIVEN

DURING

THE

EXECUTION

b
D
) wd
)

O N SN

d
—

THE PROGRAM.

ERROR REPORTS
THE
FIRST LINE CONTAINS THE ERROR MESSAGE:
ONE LINF OF TEXT WHICH
GIVES A BRIEF DESCRIPTION OF
THE
ERROR.
THE
ERKOR MESSAGE
IS
FOLLOWED
BY
ONE LINE CONTAINING DATA HEADERS AND DATA PERYININENT
TO THE ERROR.
THE LAST LINE CONTAINS THE
DECIMAL
REQUIVALENT
OfF
B?EUREEDC
AND
RMDA
REGISTERS,
WHICH
INDICATE
WHERE
THE ERROR
THE FOLLOWING PRINTOUT SHOWS

T
TP

THE

PROGRAM HALTS

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF

4.7

PROGRAM:

TYPICAL

ERROR

MESSAGE

FOR

THIS

HEADER/DATA ERROR DURING VERIFY

RMCS1=144252 RM(S2=040300 RMER1=100000 RMER2=000000 RMDA=001014
CYLINDER=559. TRACK=2. SECTOR=11.
4.8

EXECUTION TIME

ONE PASS OF THE PROGRAM TAKES ABOUT 20 MINUTES.
5.0

ENVIRONMENTAL SUPPJRT

5.1

PROZESSOR COMPATIEILITY

THE RMB0 SUBSYSTEM FORMATTER
IS EXECUTABLE ON
A
PDP-11/70
:g?CESSOR. PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE

5.2

DUAL PORT CONFIGURATIONS

THE RM80 SUBSYSTEM FORMATTER DOES NOT SPECIFICALLY TEST DUAL PORTY
LOGIC
IN_THE RMBO ADAPTER BUT IS EXECUTABLE ON RMBO SUBSYSTEMS
HAVING THE DUAL PORT OPTION PROVIDING THE DUAL PORT SWITCH
TO THE APPROPRIATE PORT (A OR B).
MEMORY PARITY HARDWARE

SET

SEQ 0009

CZRNJAO RMBO FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 10

MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE RM80
SUBSYSTEM FORMATTER.
5.4

MEMORY MANAGEMENT HARDWARE

MEMORY MANAGEMENT HARDWARE IS NOT USED DURING

THE

FORMATTER.

5.5

ACT11, APT11

THE

RMB0

SUBSYSTEM

COMPATIBILITY

RMBO SUBSYSTEM FORMATTER IS COMPATIBLE WITH ACT11 AND APT11

DUMP MODE ONLY.

5.6

XXDP COMPATIBILITY
SnfyRHBO SUSBYSTEM FORMATTER IS COMPATIBLE WITH XXDP IN

5.7

DUMP

MODE

OPERATING SYSTEM COMPATIBILITY
THE
PROGRAM IS NOT COMPATIBLE WITH ANY OPERATING SYSTEM WHEN IT IS
ASSEMBLED AS AN Xx.P STANDALONE PROGRAM.

6.0

FORMAT DESCRIPTION

6.1

FORMAT PROCESS

THE FORMATTER USES THE DEC STD 144 MFG AND USER FILES AND THE
SKIPPED SECTOR FILE TO RECONSTRUCT (SEE SECTION 7) AN HDA'S 16 BIT

FACTORY
FORMAT
AND
ATTEMPTS
TO
FIND
ADDITIONAL
PERFORMING A FUNCTIONAL MEDIA VERIFICATION.

PFEFECTS

BEFORE
FORMATTING BEGINS,
THE FORMATTER WILL READ AND VERIFY THE
DEC STD 144 FILES AND
THE
SSF
FILE.
THESE
FILES
CONTROL
THE

MARKING OF
KNOWN
DEFECTS
ON THE HDA.
THE PROGRAM WILL READ AND
VERIFY THE DEFECT FILES USING THE FOLLOWING PROCEDURE:

EACH COPY OF THE SKIPPED SECTOR FILE (SSF) IS
READ UNTIL
A
GOOD READ OCCURS AND THE HEADER AND DATA FIELDS ARE VALIDATED
USING THE INTERNAL CHECKSUMS,

STARTING WITH THE PRIMARY DEC STD 144 TRACK (CYL 558., TRK
13.)
AND CONTINUING TO THE SECONDARY DEC STD 144 TRACK (CYL
559., TRK 1.), THE PROGRAM WILL READ EACH COPY OF THE 16 BIT
MANUFACTURING AND USER'S DEC STD 144 FILE UNTIL A GOOD READ
OCCURS AND THE INTERNAL FORMAT OF EACH FILE IS VALIDATED.

VERIFY THAT THE

HDA

SERIAL

VERIFY

THE

DISK

NUMBERS

IN_

THE

ADDRESSES

THE

DEC

STD

144

DEC

STID

144

(MANUFACTURING AND USER) FILE AGREE WITH THE SERIAL NUMBER IN
THE
SSF.
IF
THE
SERIAL
NUMBER
IN
THE
DFC
_STD
144
(MANUFACTURING OR USER) FILE DOES NOT COMPARE WiTH THE SERIAL
NUMBER IN THE SSF, THEN THE NEXT COPY OF THE FILE IN ERROR IS
READ AND VALIDATED.
THAT

(MANUFACTURING AND USER) FILE ARE VALID RMBO

ADDRESSES.

SE@ 0010

CZRNJAO RMB0 FORMATTER MACRO M:113 12-JAN-82 11:00 PAGE 11

-0 CONOAWNES
NN O

b e

\flw\h\fl\h\-fl\.fl\fl\fl\.fl\fl\h (=
0

504
505
506
507
508

AN ADDRESS ERROR
IS FOUND,
THE
FILE
IN ERROR WILL BE
CONSIDERED CORRUPTED AND THE NEXT COPY OF THE FILE
IN ERROR
WILL BE READ AND VALIDATED.

AFTER VERIFYING
THE
DEFECT
FILES,
THE PROGRAM WILL THEN FORMAT
(WRITE _HEADER AND DATA) AND VERIFY (WRITE CHECK HEADER AND DATA)

ALL

32 SECTORS OF EACH TRACK IN 16 BIT MODE USING THE FOLLOWING 32

BIT DATA PATTERN TO FILL THE DATA FIELD OF EACH SECTOR.

155555 133333 (OCTAL)

DB6DB6DB (HEX)

THE FOLLOWING SEQUENCE 1S USED FOR FORMATTING:

THE SKIPPED SECTOR ERROR INHIBIT BIT (SSEI), BIT

THE

SETTING THIS BIT, IN 16 BIT MODE, ALLOWS

ALL

RMOF

SET BEFORE EACH WRITE OR READ OPERATION.

SECTORS ON THE TRACK.

ACCESS

USING A WRITE HEADER AND DATA COMMAND, EACH TRACK (32
SECTORS) IS FORMATTED IN 16 BIT MODE USING THE ABOVE DATA
PATTERN FOR THE DATA PORTION OF EACH SECTOR.

USING

WRITE

TIME.

CHECK HEADER AND DATA COMMAND, EACH TRACK IS

IF A DATA ERROR OCCURS AT A SECTOR WHICH IS NOT

LISTED
IN EITHER THE 16 BIT DEC STD 144 FILE OR THE SSF, THE
SECTOR IS READ 20 TIMES.
IF A DATA ERROR OCCURS DURING THE

REREAD

SEQUENCE,

THE

SEQUENCE

DISCONTINUED,

AND

THE

ADDRESS OF THE FAILING SECTOR IS
SAVED
IN THE APPROPRIATE
DEFECT
LIST.
THE
PROGRAM
THEN CONTINUES
CHECKING
THE
REMAINDER OF THE TRACK.

AFTER A TRACK HAS BEEN VERIFIED, THE TRACK IS REFORMATTED WITH
THE
BAD SECTOR MARKINGS BASED ON THE PREVIOUSLY DETECTED ERRORS ANC ANY
NEWLY DETECTED ERRORS.

THE PRIMARY AND SECONDARY DEC STD 144 TRACKS (CYL 558,

CYL

559

TRK

AND

THE

SSF

1, RESPECTIVELY), THE SSI TRACK (CYL 559,TRK 0), AND

THE FE AREA WILL BE REFORMATTED.

THE SSF REVISION NUMBER AND DATE WILL BE UPDATED ONLY
FILE HAS BECN UPDATED.

BOTH THE
SSF AND THE DEC STD 144 FILES WILL BE SORTED SO THAT THE
DEFECT ENTRIES ARE IN ASCENDING ORDER.
THE
16 BIT DEC
STD
144
OV 0O~NONVIES
NN =

WINAW

[C AT IV IV AV [V, (V. IV 1V (V1

550

FILES AND THE SKIPPED SECTOR FILES WILL BE REWRITTEN.

NOTE: THE
18 BIT MODE DEFECT DEC STD 144 FILE RECORDS AND THE 18
gégsflggg"z§F WILL BE REPLACED BY NULL RECORDS DURING A 16 BIT
IF,

DURING THE FORMAT, THE NUMBER OF NEWLY DETECTED DEFECTS CAUSES

THE TOTAL NUMBER OF DErECTS IN THE MDBSF AND THE
UDBSF
10
EXCEED
THE
MAXIMUM,
THE
PROGRAM DISCONTINUES THE FORMAT AND DISPLAYS AN

ERROR MESSAGE TO THIS EFFECT.

THE PROGRAM THEN RESTARTS THE FORMAT

PROCESS USING ONLY THE BAD SECTOR INFORMATION ALREADY

UDBSF, AND THE 3SF.

IN THE MDBSF,

THE FORMATTER, UNDER THESE CIRCUMSTANCES, WILL

CZRNJAO RM80 FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 12
562
§63
564
565
ggg

SEQ 0011

WRITE THE
TRACK STRUCTURE AND VERIFY THAT THE WRITE OCCURED
CORRECTLY, ONLY = ND MERTA VERIFICATION WILL BE ATTEMPTED.
THE
OPERATOR WILL MAKE THE DETERMINATION IF THE HDA IS DEFECTIVE AND IF
IT IS TO BE REPLACED.

ggg

7.0

RECONSTRUCTION DESCRIPTION

g;?

7.1

OLD DEFECTS

BIT MDBSF, THE 16 BIT UDBSF, AND THE 16 BIT SSF.

572

THE TRACK IS RECONSTRUCTED ACCORDING TO DEFECTS LISTED

2?2

575
576
577

g;g

583

THE

THE
SSF IS CHECKED FOR AN ENTRY ON THE CURRENT TRACK.
IF AN
ENTRY EXISTS, THE SSE BIT IS SET IN THE HEADER OF THE
SECTOR
LISTED AND
IN ALL
FOLLOWING SECTORS,
TO THE END OF THE

CURRENT TRACK.

580
ggg

(SEE SECTION 9.2)

THE DEC STD 144 FILE

CURRENT TRACK.

FOR

DEC

CHECKED

FOR

ANY

ENTRIES

THE

STD 144 ENTRIES WHICH OCCUR BEFORE A SKIPPED SECTOR

584
585
586
587

OR ON A TRACK WHICH DOES
NOT
HAVE
A
SKIPPED
SECTOR,
THE
APPROPRIATE
HEADER BIT IS RESET (MF OR UF, ACCORDING TO THE
FILE
CONTAINING THE
DEFECT ADDRESS).
ALSO,
THE ACTUAL
ADDRESS (PHYSICAL ADDRESS) OF THE DEFECT IS LISTED IN THE DEC

590

FOR DEC STD 144 ENTRIES WHICH OCCUR AFTER A

593
ggg

LISTED
IN THE DEC STD
144 FILE BY LOGICAL ADDRESS.
SECTION 9.4 - 9.11) THE LOGICAL ADDRESS IS:

ggg

LOGICAL ADDRESS = PHYSICAL(CYL,TRK,SEC=1)

ggg

STD 144 FILE.

591
292

ggg
600
233

603
604
605

608
b

OO
NS W

b =

emd

ooooonoroNOn

SKIPPED

SECTOR,

THE
APPROPRIATE
HEADER BIT .S RESET (MF OR UF, ACCORDING TO
THE FILE CONTAINING THE DEFECT ADDRESS). ALSO, THE DEFECT
IS

7.2

(SEE

NEW DEFECTS
MEWLY DETECTED ERRORS ON TRACKS
HANDLED AS FOLLOWS:

289

609
610
611

(SEE SECIION 9.1 AND 9.3)

WHICH

ALREADY

ERRORS.,

ARE

IF THE ERROR OCCURS BEFORE A SKIPPED SECTOR OR IF THERE IS NO
SSF ENTRY FOR TH® CURRENT TRACK, THE PHYSICAL ADDRESS OF
THE
SECTOR
IS
ENTERED IN THE 16 BIT UDBSF AND THE UF BIT IN THE

gsggsa OF EACH ERRORED SECTOR IS RESET.
2.

HAVE

(SEE SECTION 9.1 AND

)

IF
THE
ERROR OCCURS AFTER A SKIPPED SECTOR, THE LOGICAL
ADDRESS OF THE SECTOR IS ENTERED IN THE 16 BIT UDBSF AND
THE
UF
BIT
IN THE HEADER OF EACH ERRORED SECTOR IS RESET.
(SEE
SECTION 9.4 - 9.10) THE LOGICAL ADDRESS IS:

LOGICAL ADDRESS = PHYSICAL(CYL,TRK,SEC-1)
ADDITIONALLY,

IF THE

DEFECT

SECTOR

HAS

HEADER

ERROR,
THE
SECTOR'S PHYSICAL ADDRESS IS ALSO ENTERED IN THE
16 BIT UDBSF.
(SEE SECTION 9.5) HOWEVER, IF THE HEADER ERROR

SEQ 0012

CZRNJAO RM80 FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 13

IS SECTOR 31, ONLY THE SECTOR'S LOGICAL ADDRESS IS ENTERED IN

THE UDBSF.

(SEE StCTION 9.10)

FOR THE CASE OF A SECTOR WITH A HEADER FIELD DEFECT WHICH

IMMEDJATELY

FOLLOWED

A SECTOR WITH A DATA FIELD DEFECT,

THE LOGICAL ADDRESSES WILL BE ENTERED IN THE 16 BIT UDBSF FOR

EACH SECTOR.

(SEE SECTION 9.9)

NEWLY
DETECTED
ERRORS ON
TRACKS
ERRORS, ARE HANDLED AS FOLLOWS:

WHICH

WERE

PREVIOUSLY HAD NO

SKIPPED SECTORING STARTS WITH THE FIRST (PRIMARY), NON=-HEADER
DEFECT ON _THE TRACK.
THE PHYSICAL ADDRESS O, THIS DEFECT IS
ENTERED INTO THE SSF.
(SEE SECTION 9.2)
NOTE: SKIPPED SECTORING CANNOT BEGIN WITH A SECTOR WHICH
A HEADER FIELD DEFECT.
THE

HtADER

THE

SKIPPED

SECTOR

AND THE HEADERS OF

SECTORS ON THE SAME TRACK FOLLOWING THE SKIPPED
HAVE SSE (BIT 13) SET.

SECTOR

HAS
THE

WILL

THE
UF
BIT
WILL
BE REScT IN THE HEADER OF ALL NON-SKIPPED
gsg;ggEEEVEN THOUGH THE HEADER OF THE ERROR SECTOR MAY NOT BE

HEADER

FIELD

AND

DATA

FIELD

SECTOR WILL BE ENTERED
IN THE
ADDRESS.
(SEE SECTION 9.3)

DEFECTS

BIT

PRECEDING A SKIPPED

MDBSF

PHYSICAL

IF
THE
ONLY DEFECT ON A TRACK IS SECTOR 31, THE DEFECT WILL
BE MARKED AS A SKIPPED SECTOR, EVEN IF THE DEFECT AFFECTS THE
gE??;R.
AND
ITS ADDRESS
ENTERED IN THE SSF.
(SEE SECTION
MULTIPLE DEFECTS WITHIN A SECTOR WILL BE CONSIDERED A
SINGLE
DEFECT.
_IF_
BOTH THE HEADER AND THE DATA FIELD ARE AFFECTED

BY DEFECTS, THE HEADER DEFECT WILL TAKE PZPORTING PRFre__wCE.

NEW DEFECTS
DETECTED ON PREVIOUSLY ERROR FREE TRACKS WITHIN
THE DEC STD 144 AREA, THE SSF TRACK, OR THE FE TRACKS ARE NOT
ENTERED IN THE 16 BIT UDBSF,
IF APPROPRIATE, A DEFECT ON ANY
OF THESE TRACKS IS SKIPPED AND ITS ADDRESS IS ENTERED IN THE
16 BIT SSF.
IF A DEFECT WITHIN THIS ADDRESSING RANGE CANNOY

BE SKIPPED, THE DEFECT WILL BE TREATED AS A DEC STD 144 ERROR
(I.E.,

THE

BIT

IS RESET IN THE HEADER) EXCEPT THAT THE

ADDRESS OF THE DEFECT IS NOT ENTERED IN THE 16 BIT UDBSF.

8.0

BAD SECTOR FILE LAYOUTS

8.1

SKIPPED SECTOR FILE (SSF)
THE SSF HAS STORAGE SPACE FOR THE PHYSICAL ADDRESSES OF 378 SKIPPED
SECTORS. ~ DEFECT ADDRESSES ARE
STORED
IN_THE SSF_IN ASCENDING
SEQUENCE IN THE SAME FORMAT AS IN THE
DEC
STD
144 FILES.,
1.E.,

SEQ@ 0013

CZRNJAO RMBO FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 14

CYLINDER

ADDRESS FOLLOWED BY SECTOR AND TRACK ADDRRESSES.

THE :SF

WILL BE FILLED WITH ONE'S BETWEEN THE LAST DEFECT ADDRESS AND
THE
CHECKSUM.
NOTE
THAT BOTH THE HEADER PORTION AND THE DATA PORTION

OF THE SSF ARE PROTECTED BY CHECKSUMS.
THE 16 BIT SSF IS REPEATED
5 TIMES ON THE FIRST TRACK OF THE FE AREA:
CYLINDER 559, TRACK 0.
THE SSF TRACK IS WRITTEN IN 16 BIT MODE.

THE SERIAL NUMBER FIELD IN BOTH THE SSF AND THE DEC STD 144 FILE IS
IN THE SAME FORMAT.

THE
SSF_FILE
FOR_18 BIT MODE DEFECTS WILL BE REPEATED 5 TIMES
FOLLOWING THE 16 BIT SSF
FILE.
SINCE SKIPPED SECTORING
IS A
MECHANISM WHICH IS INHIBITED WHEN THE RM80 IS BEING OPERATED IN 18
BIT MODE, THE USE OF THE SSF FOR 18 BIT MODE ADDRESSES IS ONLY TO
PASS
THE
18 BIT MODE ADDRESSES OF HDA DEFECTS WHICH DO NOT APPEAR
IN THE DEC STD 144 FILE.
THE 18 BIT SSF
COPIES WILL NEITHER BE
USED NOR PRESERVED DURING 16 BIT FIELD FORMATTING.
THE

SSF FILE LAYOUT FOR BOTH 16 BIT MODE AND 18 BIT MODE FILES ARE

AS FOLLOWS:

WORD 0
WORD 1

WORD 2
WORD 3
WORD 4
WORD §
WORD 6

WORD 7
WORD 8

WORD 9
WORD 10

WORD 11

WORD 12
WORD 13

tetetatetatatatatetetatatatatatad

HDA SERIAL NUMBER (LSB)

HDA SERIAL NUMBER (MsB)

tetetetototatetotatatatatat=-t+=+=4

SERJAL NUMBER IS A 31
BIT BINARY NUMBER

tetetatetetatatatntatotatatatatad

YEAR

MON

DAY

CREATION DATE

YEAR

MON

DAY

REVISIOn DATE

tetetetetotatatatad: tat=t=t=t=+=+
tetetetatatatetatetotatatatatatad

REVISION NO

(YEARS SINCE

1978)

(YEARS SINCE

1978)

tmtetatetatatatotatatatatatatadat

UNUSED

FORMAT TYPE

tetotetetotatatatetotatatatntatat

!
UNUSED
!
t=t=tetetototetatetatatatat=t=+=+
!
UNUSED
!

totetmtmtototatotatotatatatatat=t

FORMAT TYPE:

1= 16 BIT

18 BIT

UNUSED HEADER WORDS
WILL BE ZERO FILLED

UNUSED

NUMBER OF SSF ENTRIES

CHECKSUM

SSF HEADER CHECKSUM

CYLINDER ADDRESS

PHYSICAL CYL. ADRS

PHYSICAL ADDRESSES

NULL ENTRIES WILL

$mbetetmtotatatatntatotatatatated
tetetotatatntotrtatoctateiatatat=t
totetmretatotatatototototatatat=t
4o tatatotetatatetatatote
etatated

TRACK

SECTOR

totatetctatatatotetatotatatatatad

ONE*S

tototototototatntatatat=t

+=t=4=+

]

tetetetetotatetatatatatatetatad=t

ONE'S

FILLED

CZRNJAO RMBO FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 15

SEQ 0014

WORD 765 .

ONE'S

WORD 767 !

CHECKSUM

tebototatotatotatatatatatatatatat

DEFECT ADDRESS FIELD

tebototetotatotototntatetatat=t=d

THE

CHECKSUM

CALCULATED

USING

CHECKSUM

THE FOLLOWING ALGORITHM.

CHECKSUM CALCULATION IS BASED ON 16 BIT QUANTITIES (WORDS)

?EEESTED

ONCE

FOR

AND

THE

THE SSF HEADER FIELD AND ONCE FOR THE SSF DATA

SIZE = FIELD_SIZE_IN_16_BIT_WORDS
CHECKSUM = 1

REPEAT

CHECKSUM = CHECKSUM + (16 _BIT_WORD)

CHECKSUM = CMECKSUM .ROTATED_CEFT_1_8BIT.

SIZE = SIZE = 1

UNTIL SI7E .EQ. O
END_REPEAT

THE RGTATE REFERED TO ABOVE

IS THE FOLLOWING:

+=¢

todotbmtodontntatototototnintator=t

fa!

¢=== 115!

+=4

10!

dobototototntatotntntntntntntat=¢

‘«' REFERS TO EITHER THE °*C*' BIT FOR PDP-11 OPERATION OR BIT 16 FOR
MACHINES OTHER THAN THE PDP-11. NOTE THAT THE ROTATE
OCCURS
AFTER
THE

AUDITION;

THE

BIT

SHIFTED

INTO

THE

LSB

POSITION OF

THE

144 FILE IS CONTAINED ON TWO TRACKS ON THE RM80.

THE

6ggg:¥%3;fb CHECKSUM IS THE 'CARRY QUT' FROM THE

BIT

ADDITION

DEC STD 144 MANUFACTURING AND USER BAD SECTOR FILES
THE

DEC

STD

FIRST TRACK IS THE PRIMARY COPY OF THE FILE, THE
SECOND
TRACK
IS
THE
SECONDARY
(OPY
0fF THE FILE.
THE PRIMARY COPY OF THE DEC S1D
144 FILE IS WRITTEN ON THE LAST ADDRESSABLE
TRACK
Be¢FORE
THE
FE

CYLINDERS

(CYL 558, TRK 13); THE SECONDARY COPY OF THE DEC STD 144

FILE IS WRITTEN AT CYL 559, TRK 1.

WORD 1
WORD 2

WORD 3

HDA SERIAL NUMBER (LSB)

HDA SERIAL NUMBER (MSB)

ZERO

O
Y Y T
R T

tetebmtotatatetmtoteiatatatatata
t=tmdetotatotatetatatatatatotat-

worD 0

tmbototetotetotatotatatatatatata

Ppom P

BOTH THE PRIMARY AND THE SECONDARY DEC STD 144 TRACKS ARE WRITTEN
IN 16 BIT MODE.
THE
LAYOUT OF THE DEC STD 144 RECORD IS GIVEN
BELOW.
THE LAYOUT IS THE SAME FOR ALL COPIES OF
{E FILE.

8.2

SERIAL NUMBER IS A 31
BIT BINARY NUMBER

SEQ 0015

CZRNJAQ RMB0O FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE

WORD S

800
801
802
803
804
805
806
807
808
809
810
81

WORD 6

WORD 7

SPP RS

!
+-

NULL ENTRIES WILL

BE ONE'S FILLED

!
+
'

/
/
!
+-

WORD 254 !
+WORD 255 !
16

BIT

MDBSF WIL

SECTORS 10,1%1%....
11,13,15..

&—

THE

PRIMARY AND SECONDARY D
WRITTEN
IN
SECTORS

SECTORS 0

4 TRACKS.
16
UDBSF
IT

b md

O ~NO NS WNN

0000 0000000000

799

798

S
!
4=

=N\ R

WORD

+ =—d=4+

794
795
796
797

6. 8 OF THE

THE 18 en MDBSF

BIT

UDBSF

WRITTEN

IS WRITTEN IN

SECTORS

SEQ 0016

CZRNJAO RMBO FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 17

9.0

ERROR TYPE DESCRIPTIONS
1.

cfecccccccccccccrccccccccccccccccccanccncccsccccancnae +

‘

4====> 144 PHYSICAL ENTRY ('D' OR 'H' ERROR)

[

3 S —— >31!

-------- e

-------- tetemmcrcccccncccccanccccasccccnaccccncnccsnanad

$====> SSF ENTRY

| (ommmemmem—————— TR

— >31!

4otmmana tmfommccmccccccccsmmcsccemasscccccccccacacasan +

O G- T
L
L T PP, +

4====>

4=-==> SSF

144 PHYSICAL

('D'

'H*

ERROR)

P . 1GSE® SET =mmmmemmcemmee= >31!
-------- tetmcccccccccctetotecccncncncccccnnccccccncccccant

-------- QS
S SRR

SSF Cmmm=t

4====> 144 LOGICAL ENTRY

| (mmmmam—mm—————— YT

-------- Py

QP S

3 S — >31!
S

$eteccccnccnce tetotmmccccnccccrcccncscsccssace +

SSF Cmmm=t

! 4====> 144 PHYSICAL ENTRY

+ ====>

144 LOGICAL ENTRY

CZRNJAO RMBO FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 18

tecccn

SEQ 0017

P. Y
2R 3 A — >31!

cosemseas tetocccncccces tetetotaccccccccnccccccannaccccs +

S tetecccccacans S
Sy
+

SSF Cmmmet

! 4me===> 144 LOGICAL

4====> 144 LOGICAL

1SSE' SET =mm=meeeme=ne- >31!

s tetoccccccccaa T S

TT+

totmccccccanne tetetoteccccccncccncnccncssanann +

SSF Cememt

|1 4ee==> 144 PHYSICAL

! tee==> 144 LOGICAL
144 LOGICAL <~---+

'SSE® SET ===mmm=mem=—me- >31!

S
T
sTS
T
+

IDIH!

S totoccncccccaa e +

SSF Cmme=t

i} 4e===> 144 PHYSICAL

| 4mm==> 144 LOGICAL
144 LOGICAL <===-+

1{=mmmecccccccaan 'SSE® SET ===sseccccccce- >3

$rcccccccccccacs tetecnccccacan tetmtmtecccnccccccccccccccccccn- +

ceccetetecccnnccans tetoteteccccccccccccccccccccccca +

SSF Cmm==t

| tmm==> 144 LOGICAL
144 LOGICAL <=-==+

10.

| (ummmmmmm—m—a——— "SSE' SET =mmmmeeeeeeeee= 531!

teccccccnccccces T e
T TP tobony

teccccccccccccan teteccvccnccccsacccccsncccccccccacsssnnn. bttt

SOF Cmmmmt

144 LOGICAL <====t

‘D' OR 'H' ERROR <====+

CZRNJAQO RMBO FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 19

934

SEQ 0018

Te
e
b=¢

935

G38

L L

e e DL

NOTE:

:g:

IS A DATA FIELD DEFE cT.
IS A SKIPPED SECTOR DEFECT

T L

s +=t

:
SSF (°SSE’ SET) (e===¢
'D* OR 'H' ERROR (====¢

939
940

946

'H*

IS A HEADER FIELD DEFECT;

CZRNJAO RMB0 FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 21
SYMBOL TABLE

. ABS.

000000
000000
ERROR> DETECTED:

000
007

VIRTUAL MEMORY USED:
19 WORDS
_( 1 PAGES)
DYNAMIC MEMORY:
8206 :ORDS( 31 PAGES)
ELAPSED TIME:
00:00:2
,£300,301CZRNJA=C300,101BEG.DOC, CZRNJA.DOC, END. DOC

SEQ@ 0C19

SEQ@ 0020

CZRNJA.TSK;1 MEMORY ALLOCATION MAP TKB PAGE 1
12=JAN-82
11:06

TASK
NAME
PARTITTON NAME

:
:

CZRNJA
GEN

TASK

65.

STACK

PRIORITY

(A8 1,81V,]

IDENT1, ICATION : 01.00
TASK UIC
: (300,10

LIMITS: 026172 026501 000310 00200.
(=]

PRG XFR ADDRESS:
026502
TOTAL ADDRESS WINDOWS: 1.
TASK
IMAGE
SIZE
: 14464. WORDS

TASK ADDRESS LIMITS: 026000 116303
R-W DISK BLK LIMITS: 000002 000072 000071 00057.
t*x ROOT SEGMENT:

R/W MEM

FMTROT

LIMITS: 026000 116303 070304 28868.

DISK BLK LIMITS: 000002 000072 000071 00057.
MEMORY ALLOCATION SYNOPSIS:

FMTROT
FMTIO
FMTDAT
FMTMSG

01.00
01.00
01.00
0

FMTROT.0BJ;1

L]
o
¢

b cud
cud

o
o
o
e

FMTSUB
FMTPRS
FMTR80
FMTR8F
FMTRBY
FMTR8M
FMIRSL
FMTINT

[=l=l=d=l=l=~
=0~}
elelelelelelelels)

FILE

IDENT

b eud end end e

. BLK.:(RW,I,LCL,REL.CON) 026502 020500 08512.
026502 000276 00190.
02700 0 000444 00292.
027444 000152 00106.
027616 001666 00950.
031504 003040 01568.
034544 001026 00534.
035572 001104 00580.
036676 001252 00682.
040150 001524 00852.
041674 001316 00718.
043212 001270 00596 .
044502 000370 00248.
IMPURE : (RW,D,LCL,REL,CON) 047202 000016 00014.
$KSTR :(RW,D,LCL,REL,CON) 047220 000031 00025.
047220 000031 00025.
$KTAB :(RW,D,LCL,REL,CON) 047252 000016 00014.
047252 000016 00014.
$STATE: (RW,D,LCL,REL,CON) 047270 000166 00118.
047270 000166 00118,
$SRESL: (RW,I,LCL,REL,CON) 047456 000246 00166.
$$888F : (RwW.D,LCL,REL,CON) 047724 046356 19694.
047724 046356 19A94.

TITLE

[elelelelelalele]

SECTION

FMT10.08J;1

tMTDAT.08J;

FMTPRS 01.00

FMTPRS.08J;1

FMTPRS 01.00

FMTPRS.08J;1

FMTPRS 01.00

FMTPRS.08J;1

FMTDAT 01.00

FMTDAT.08J;1

GLOBAL SYMBOLS:

BASYR

000116

IE.BLK 177754

IE.OFL 177677

10.DET 002000

10.HMS 004000

10.RLB 001000

10.RTD 004120

DPARS

035746-R

1E.DAA 177770

IE.PRI 177760

10.DGN 004150

10.LPC 004100

I0.RNF 004060

10.RVB 010400

DSKLUN 000003

IE.DNR 177775

10.ATT 001400

10.FER 004200

10.0FF 004020

10.RNR 004070

10.7TDD 004140

GENHDR 034400-R

IE.EOF 177766

10.8LS 004010

10.FEW 004210

10.RDH 004030

10.RPD 004170

10.WCH 004110

CZRNJA.TSK;1 MEMORY ALLOCATION MAP TKB PAGE 2

SE@ 0021

12-JAN-82

FMTROT

SMXTRK 027566-R

$SRALL 033654=-R

$STVFL 035454-R

SNONS! 002416

$SRFES 033726-R

$SWERL 047735-R

$MSG40 030742-R

$SPARSE 034544-R

$SRMDF 033740-R

$SWFFE 047741-R

$MSGWR 031414-R

$MSG41 031000-R

SPAT

027462-R

$SRSDF 033764-R

SSWFMT 047740-R

027634-R

$MSG42 031026-R

$PHYDV 027606-R

$SRSSF 034046-R

$SWINT 047742-R

$DVUNT 047754-R

$M5G10 030122-R

$MSG43 031056-R

$PRINT 027256-R

$SRTMF 034166-R

$SWLOG 047737-R

OPTKT2 047252-R

$EROCT 031600-R

$MSG11

030143-R

$MSG44 031103-R

SPRMPT 031754-R

$SRTRK 033612-R

$SWLST 047736-R

OPTST2 0473V0-R

SEROUT 031536-R

$MSG12 030167-R

$MSG45 031141-R

$PRNTO 027262-R

$SRTSF 0346132-R

$SWMOD 047743-R

116102-R

$MSG13 030177-R

$MSG5

027707-R

$RDBSF 032322-R

$SRTUF 034222-R

$SYSIZ 003456

SKPFRE 047744-R

SFLCYL 047764-R

$MSG15 030225-R

$MSG58 031166-R

SRDSSF 033156-R

$SRUDF 033752-R

$TRK

SPEFN

000003

$FLRGS 040036-R

$MSG16 030237-R

$MSG59 031233-R

SREAD

TRKSZ

027470-R

$FLSEC 047770-R

$MSG17 030246-R

$MSG6

027737-R

$RETRY 027466-R

$SSFDT 001365

$TSTOV 035062-R

UNTKT1 047252-R

$FLTRK 047766-R

$MSG18 0306256-R

SMSG6A 027762-R

SREVNM 047732-R

$SSFHD 000013

$TSTMX 032216-R

UNTST1 047270-R

SFMTEP 026502-R

$MSG19 030301-R

$MSG6B 030004-R

SRGBUF 050000-R

$SSFLB 027454<R

$UBSSZ 027574-R

$ALFLB 027450-R

SFMTEX 031464-R

$MSG2

$MSG7

SRM80

$SSFLN 000003

sucs

10.WCK 004050

$DSKWC 027000-R

$MGPRE 037644-R

10.WDOH 004040

$DSKWH 0.7014-R

$MOVE

10.WPD 004160

$DSTRB 042206-R

$MSGR8 031366-R

10.WTD 004130

S$OVICE 027446-R

10.uMD 000004

$DVPRM 027560-R

$MSG1

MSGER8 042041-R

SECSZ

027472-R

SFEBSF

031744-R

027645-R

$MSG32 030714-R
$MSG4

027662-R

030025-R

027342-R

035754-R

$SSF

113102-R

047774-R

$TSTDA 032160-R

047724=R

027476-R

$MSG20 030324-R

$MSG70 031274-R

SRMBOF 037234-R

$SSFS2 027460-R

$UDBSF 112102-R

$BUFRX 110262-R

$HDRF
G 047762-R

$MSG21 030351-R

$MSG71 031307-R

SRM801 044570-R

$STARS 027620-R

SUNTID 032266-R

110262-R

$SHOMSK 031710-R

$MSG22 0306403-R

$MSG72 031322-R

SRM8OL 043574-R

$STATS 027444-R

$SUPDMX 032120-R

$CONPB 027524-R

$INADD 047730-R

$MSG23 030427-R

$MSG73 031344-R

SRM8OM 042124-R

$STCSR 035230-R

SVERIF 047745-R

$CR

$108UF 027510-R

$MSG24 030474-R

$MSG8

030043-R

SRMBOV 040366-R

$STERL 035506-R

SWLKER 027250~R

$BUF

$BUFX

050062-R

027616-R

$FUNC

$CVTDA 031636-R

s1osT

027554-R

$MSG25 030502-R

$MSGBA 030070-R

SRTCNT 047752-R

$STFFE 035552-R

SWTBSF 032730-R

$CYL

$LBNH

027516-R

$MSG26 030510-R

$MSG9

030076-R

SR8OSF 037164-R

$STFOR 035556-R

SWTSSF 033464-R

$DEVHD 003334

$LBNL

027520-R

$MSG27 030540-R

SMULT

(32046-R

SRBOTF 037226-R

$STIN

035564-R

$XFRSZ 027512-R

$0SK10 027020-R

$LOGDV 027576-R

$MSG28 030574-R

SMVPAT 031504-R

$SC8

047726-R

$STLIS 035544-R

$YESNO 047734-R

$DSKPB 027474-R

$MBSSZ 027572-R

$MSG29 030626-R

SMXCYL 027564-R

$SEC

047776-R

$STLOG 035540-R

$DSKRH 027006-R

$MDBSF 111102-R

$MSG30 030650-R

SMXLBN 047756-R

$SMBS- 033774-R

$STUNT 034744-R

$DSKRT 027030-R

SMESAG 031422-R

$MSG31 030671-R

SMXSEC 027570-R

$SNAME 047746-R

$STVEC 035344-R

047772-R

TOTAL WORK FILE REFERENCES: 46347,
WORK FILE
READS: 0.
WORK FILE WRITES: 0.

SIZE OF CORE POOL: 8200. WORDS (32, PAGES)
SIZE OF WORK FILE: 3328. WORDS (13. PAGES)
ELAPSED TIME:00:00:38

FMTROT ~ RMBO FORMATTER ROOT MO MACRO M1113 12-JAN-82 11:01 PAGE 3

SEQ 0022

FMTROT - RMBO FORMATTER ROOT MODULE
/01.00/

TEA

PR PR YR

POND cvd ad =D cd e caad wd e cond d

PR YR FI N R

KN J

g e

= OV NOWVEWN
OV
O NN -

ITLE
DENT

THIS
SOFTWARE
1S
FURNISHED
UNDER A LICENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF
THE
ABOVE COPYRIGHT NOTICE.
THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
TO ANY
OTHER PERSON EXCEPT
FOR USE ON SUCH SYSTEM AND TO ONE
WHO AGREES TO THESE LICENSE TERMS.
TITLE
TO AND
OWNERSHIP OF
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

THE
INFORMATION
IN THIS DOCUMENT IS SUBJECT
TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A
(COMMITMENT
BY
DIGITAL
EQUIPMENT CORPORATION.
DIGITAL ASSUMES NO
RESPONSIBIL:T Y FOR THE USE OR RELIABILITY OF
ITS SOFTWARE ON EQUIFMENT WHICH I S NOT SUPPLIED BY DIGITAL.

VERSION 01.00

C. HESS

M. LEAVITT

17-AUG~80

09-JAN-81

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

«MCALL
000000

ALUNSS,UCBDFS
UCBDF$

sCALL MACRO TO DEFINE UCB OFFSETS

FMTROT - RMBO FORMATTER ROOT MO MACRO M1113 12-JAN-82 11:01 PAGE 4
.+

SEQ 0023

;

¢ THIS ROUTINE WILL CALL THE PARSER, SETUP THE DISK PARAMETERS, CALL THE

**=SFMTEP=-FORMATTER ENTRY POINT

: ACTUAL FORMATTING ROUTINE, & CLEAN UP AFTER THE FORMAT OPERATION.

43 000000
46 000004
4S5 000010

105067
105067
105067

000000G
0000006G
000000G

50 000034
51 000040
52 000044
53 000050

105067
105067
005067
112767

000000G
0000016
000000G
000001
0000006

CLRB
CLRB
CLR
MovB

55
56
57
58
59

000062
000066
000072
000074
000076

012700
012720
005303
001374
012703

000000G
177777

MOV
MOV
DEC
BNE
MOV

#$MDBSF ,RO
#-1,(RO)+
R3
19
#256. ,R3

61 000106
62 000112
63 000114
64 000116
65 000122
66 000126
67 000132
68 000134

012720
005303
001374
012703
(€12700
012720
005303
001374

MoV
DEC
BNE
MOV
MOV
MOV
DEC
BNE

#-1,(RO)+
R3
2$
#64. ,R3
#$FEBSF ,RO
#-1,(RO)+
R3
3s

70 000142

012700

46 000014
47 000020
48 000024
49 000030

54 000056

60 000102

69 000136
71 000146

72 000152
73 000154
74 000156
75 000162
76 000170
;g 000172
79 000174
80 000200
81 090220
82 000224

gz 000226

105067
105067
105067
105067

012703

012700

0000006
000000G
0000006
000000G

89 000232

90 000236

91
92

MOV
1%:

000400

000000G
177777

2%:

000100
0000006
177777

3%:

000000C

012720

177777

0000006

5%:

012700
103002
000167

000000G

0000006

MOV

000000°
0000006 001400

85
86

CLRB
CLRB
CLRB
CLRB

000400

012703

005303
001374
012706
026727
103001

$FMTEP::CLRB
CLRB
CLRB

6$:

MOV

DEC
BNE
MoV
CMP
BHIS
CRASH
CALL
ALUNSS
MOV
B8CC

JMP

$SWERL
SYESNO
$SWLST

: RESET ERROR LIMIT (DEFAULT IS 256.)
; RESET YES/NO RESPONSE
2 RESET BAD BLOCK FILE LIST SWITCH

$SWMOD
$STATS+1
SREVNM
#1,SVERIF

;
:
:
s

$SWLOG
SSWFMT
SSWFFE
$SWINT

#256..R3

#$SUDBSF ,RO

;
;
2
>

RESET
RESET
RESET
RESET

LOGICAL LIST SWIT(CH
FORMAT ENABLE SWITCH
FORMAT FE ENABLE SWITCH
MDBSF, UDBSF, SSF GENERATION SWITCH

RESET THE MDBSF, SSF, & FEBSF MODIFY SWITCH
CLEAR STATUS FLAGS
i
CLEAR TEMPORARY STORAGE FOR REVISION NUMBER
PRESET THE VERIFICATION COUNT

; LOCATIONS IN THE MDBSF BUFFER TO CLEAR
;
;
;
s
:

BUFFER POINTER
CLEAR A LOCATION
COUNT THE LOCATION
IF NE, NOT FINISHED
LOCATIONS TO CLEAR IN THE UDBSF BUFFER

;s
:
s
:
:
s
;
-

CLEAR A LOCATION
COUNT THE LOCATION
IF NE, NOT FINISHED
LOCATIONS TO CLEAR IN THE FE BSF BUFFER
BUFFER POINTER
CLEAR A LOCATION
COUNT THE LOCATION
IF NE, NOT FINISHED

: BUFFER POINTER

#256.*<SSSFLN>.R3

s NUMBER OF SSF LOCATIONS

#$SSF RO

; BUFFER POINTER

R3
43
HSFMTEP,SP
$SYSIZ, #40%24.
5%

: COUNT THE LOCATION
s IF NE, NOT FINISHED
J RESET STACK POINTER
; IS THERE AT LEAST 24K?
; IF HIS, YES
; ELSE CRASH THE SYSTEM!!

#-1,(R0O)+

: CLEAR A LOCATION

$PARSE
: PROMPT AND PARSE COMMAND LINE
#DSKLUN,SDVICE
,R1
s ASSIGN LUN TO DJISK
#SMSG4 RO
; ASSUME DEVICE NOT IN SYSTEM
FMTPRM
;s IF CC, DEVICE IN SYSTEM

$SMSGWR

; EXIT WITH WARNING STATUS

:
; ATTACH THE DISK

012703

000000C

;

FMTPRM: MOV

CALL

#]10.ATT!'1Q.UMD,R3
$DSKIO

: ATTACH DISK FOR FORMATTING

SEQ 0024

FMTROT ~ RMBO FORMATTER ROOT MO MACRO M1113 12-JAN-82 11:01 PAGE 4-1

; PRESET THE DISK PARAMETERS, RETURN THE HEADS HOME AND

¢ CALL THE ACTUAL FORMAT ROUTINE.
97 000242
98 000246
99 000252
100 000256
101 000262
102 000266
10 000272
104
105

0000096
0000006
0000006

000167
000000°*

CLR
CLR
CLR
CALL
CALL
CALL
JMP

€J00006
.END

$FMTEP

$SEC
$TRK
$CYL
$HOMSK
$RMB0
$HOMSK
$SFMTEX

; RESET DISK PARAMETERS
:
;
¢
s

DO A RECALIBRATE
CALL THE FORMATTER
DO A RECAL
EXIT GRACEFULLY

—

FMTROT = RMBO FORMATTER ROOT MO MACRO M1113 12-JAN-82 11:01 PAGE 4-2

SEQ@ 0025

SYMBOL TABLE

C$SORE= 002000
CSSRSH= 177564
CSSTTY= 177564
DSKLUN= wrwxet GX

S$$YSZ= 001400
S1.BEL= 000400
$1.CT0= 000040
$1.C7S= 010000

UC.ALG= 000200
UC.ATT= 000010
UC.KIL= 000004
UC.LGH= 000003

U.cw3
000014
U.CWwé
000016
u.pc8_
00Nn000
U.FCDE= 000040

U2.NEC= 004000
U2.PRV= 000010
U2.RMT= 020000
U2.R04= 100000

DV.COM= 020000
OV.DIR= 000010
OV.F11= 040000
DV.ISP= 002000
Dv.MBC= 000400
OV.MNT= 100000
DV.MxD= 000100
DV.0SP= 004000
DV.PSE= 010000
DV.REC= 000001
DV.SDI= 000020
DV.SQD= 000040
DV.SWL= 001000
OV.TTY= 000004
DV.UMD= 000200
D$$IAG= 000000
0$$L11= 000001

$1.DPR= 001000
$1.DS1= 004000
S1.ESC= 000004
S1.18F= 100000
$1.18y= 000200
$1.08Y= 000100
S1.RAL= 000010
S1.RNE= 000020
$1.RST= 000001
S1.RUB= 000002
$1.uSI= 020000
S2.ACR= 000001
$2.8RQ= 000020
$2.CR = 000010
S2.FDX= 100000
S2.FLF= (040000
S2.HFF= 020000

UC.PWF= 000020
UC.GUE= 000040
US.ABO= 000001
US.BSP= 000002
Us.8sY= 000200
US.CRW= 000004
us.bs8= 000010
US.ECH= 000002
US.FOR= 000040
US.FRK= 000002
US.KPF= 000001
US.LAB= 000004
US.MDE= 000702
US.MDM 000020
US.MNT= 000100
US.O0FL= 000001
us.ouT= 000001

U.FPS = 0001044
U.KCSR= 00( 032
11.KCS6= 00( 034
U.LUIC 17:774
U.OWN
177776
U.RED
000002
U.RPS = 000042
u.sc8
000020
U.sTS
000005
u.sT2
000007
U.TCHP 000042
U.TCVP 000043
U.TFLK 000040
U.TFRQ@ 000037
U.TLPP 000036
U.TMTI 000047
U.TSTA 000026

U2.SLv= 000200
U2.vT5= 000002
u2.7CH= 010000
V$SCTR= 000400
VSSRSN= 000032
X$$087= 000000
S$CYL = wwenes GX
$DSKI0= sxwwew GX
$D/ICE= wwewtn GX
SFEBSF= nananr GX
$FMTEP 000000RG
SFMTEX= sawaxs GX
$HOMSK= wawasx GX
$MDBSF= swwwns GX
SMSGWR= wxxxex GX
$MSG4 = mwrwnx GX
SPARSE= awxaxt GX

I0.ATT= wexess GX
1Q.UMD= wtxeex GX
KSSCNT= 177546
KSSCSR= 177546
KSSIEN= 000115
K$$LDC= 000001
K$$TPS= 000074
LDSTT = 000G00

S2.1RQ= 000200
$2.0RQ= 000100
$2.SRA= 000040
S2.VFL= 004000
$2.WRA= 000006
S2.WRB= 000002
$3.8CC= 020000
$3.DA0= 040000
$3.PCU= 100000
S3.RAL= 0C0010
$3.RCU= 000400
$3.TAB= 000100

DV.CCL= 000002

S1.DEC= 002000

FMTPRM 000232R
HSSRTZ= 000074

S2.HFL= 003400
S2.HHT= 010000

L$$DRV= 000000
MESCRB= 000124
N$$SLDOV= 000001
PSSNIC= 177564
R$SDER= 000000
RSSM11= 000001
R$$11M= 000000
R$$115= 000000

S3.VER=
$3.WAL=
S3.WES=
$3.88C=

S$SWRG= 000000

177776
000276
ERRORS DETECTED:

010000
004000
000040
000200

T$SMIN= 000000

. ABS.

UC.NPR= 000100

US.PUB= 000004
US.PWF= 000010

US.RED= 000002
US.SHR= 000001
US.SPu= 000002
US.uMb= 000010
us.vv = 000001
US.WCk= 000010
U.ACP = 000032
U.ATT
000022
U.BUF
U.CBF =
U.CLI
U.CNT
U.CTL
Uu.CTYP
U.cw1
U.Cw2

000024
000032
177772
000030
000004
000050
000010
000012

U.FNUM= 000036

U.TTAB
U.TTYP

000034
000046

u2.021=
U2.ESC=
U2.HFF=
U2.HLD=
U2.L0G=
U2.LWC=
U2.L3S=
U2.L8s=

000100
001000
010000
000040
000400
000001
000004
010000

1 TUX
000024
U.UIC
000044
U.UNIT 000006
U.veB = 000034
U2.AT.= 000020
U2.CRT= 002000
U2.DH1= 100000
u2.pJ1= 040000

000
001

VIRTUAL MEMORY USED:
3572 WORDS
( 14 PAGES)
DYNAMIC MEMORY:
942 WORDS
( 30 PAGES)
ELAPSED TIME:
00:00:18
£300,20IFMTROT, (300, 30JFMTROT=L1, 1JEXEMC/ML, C1,60IRSXMC/PA: 1,300, 10IFMTROT

U2.5CS= 000004

SREVNM= swxsaas GX
$RM80 = waxwsanx GX

$SEC =
$SSF =
$SSFLN=
$STATS=
$SWERL=
SSWFFE=
SSWFMT=
SSWINT=

$SWLOG=
$SWLST=
$SWMOD=
$SYSIZ=
S$STRK =
SUDBSF=
SVERIF=
SYESNO=

swanex GX
swsnax GX
tanans GX
taxawx GX
swxwas GX
maxxns GX
aaenas GX
twtsax GX
swenve GX
saxwnn GX
wawnns GX
wamwex GX
aamanx GX
#awsxx GX
sxwaex GX
wxxanr GX

SEQ 0026

FMTIO - 1/0 ROUTINES MACRO M1113 12-JAN-82 11:01 PAGE 1

1
1
1

}

=2 OV 00NN

NN =20 OO NN

—

JTLE
DENT

FMTIO - I/0 ROUTINES
/01.00/

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS
SOFTWARE
IS
FURNISHED UNDER A LICENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION

* OF

THE

* THE

THIS SOFTWARE, OR

INFORMATION

IN THIS DOCUMENT IS SUBJECT

* NOTICE AND SHOULD NOT BE CONSTRUED AS A

* EQUIPMENT CORPORATION.

: DIGITAL ASSUMES NG
P

ANY

OTHER

TO CHANGE WITHOUT

COMMITMENT

B8Y

DIGITAL

RESPONSIBILITY FOR THE USE OR RELIABILITY OF

ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

;

P C. HESS

27
28
29
30

NOTICE.

* THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

23
g§

ABOVE COPYRIGHT

' COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
* 7O ANY OTHER PERSON EXCEPT
FOR USE ON SUCH SYSTEM AND TO ONE
* WHO AGREES TO THESE LICENSE TERMS.
TITLE
TO AND OWNERSHIP OF

VERSION 01.00
P M. LEAVITT
H
.MCALL

DIRS

14-AUG-80

15-0CT-80

SEQ 0027

FMTIO - 1/0 ROUTINES MACRO M1113 12~JAN-82 11:01 PAGE 2
o+
: **=$DSKIO-ISSUE QIO T 0 Dbl SK
: #*=$DSKRH=-JSSUE QIO T 0 REA D HEADER & DATA
: **=3DSKRT=-RETRY QIO 7 0 DISK
: =*=$DSKWH~-JSSUE QIO T 0 WR ITE HEADER & DATA
**=$DSKWC=-ISSUE Q0 TO WRITE CHECK HEADER & DATA
:
; SUBROUTINES TO ISSUE 1/0 FUNCTIONS TO A DEVICE.

33
34
35
36
§§
39
40
41
42

:
:

44
45
46
47
48

('F ENTRY IS AT $DSKI10)

.
ENTRY AT SDSKRT ASSUMES THAT THE DPB IS ALREADY SETUP,
;
.
; OUTPUTS:
:
THE QIO DIRECTIVE IS ISSUEL.
IF THERE WERE NO ERRORS, THE
IF THERE WAS A PARITY ERROR
H
CARRY BIT WILL BE CLEARED.
(JE.VER) OR A BAD PLOCK ERRO" (IE.BBE) CARRY WILL BE SET.
:
IF WE ARE FORMATTING A 'DB'' DISK A BLOCK NUMBER VIOLATION
H
(IE.BLK) MAY HAPPEN WHEN WE ARE FORMATTING THE LAST SECTOR.
THE SAME APPLIES
FOR THIS CASE CARRY WILL BE RETURNED CLEAR.
.

28
51
52
53

58
59
60
61
62
63

IF WE ARE RE-WRITING THE LAST TRACK OF 'DM'' AND 'DR'' DISKS.

ALSO SPECIFIC ERROR MESSAGES WILL BE PRINTED WHEN THE

FOLLOWING ERRORS ARE DETECTED:

:
:
:
:
:
.

64
65
66
67
68

:
M
:

1.
2.
3.
4.
S.
6.

1E.HWR
1E.DNR
1E.DAA
JE.FHE
IE.PRI
IE.OFL

ANY OTHER ERROR CODE WIL

BE REPORTED AS 'UNRECOVERABLE''.

: NOTE. MOST FUNCTIONS ARE ISSUED WITH THE DIAGNOSTIC SUB-FUNCTION
FOR THESE FUNCTIONS THE FUN'TION WILL
:
8IT (JQ.UMD) SET.
ALWAYS RETURN SUCCESS (CARRY CLEAR) AND THE US:R MUST TEST
THE PROPER BIT IN THE REGISTER BUFFER (SRGBUF) TO DETERMINE

73
74
75 000000

INPUTS:
Re = 1/0 FUNCTION CODE
R3
= BUFFER ADDRESS

THERE WAS ANY ERRORS.

;9 000004

012703
000405

000000C

.ENABL
LSB
$DSKWC : :MOV
8R

78 000006

012703

000000C

$DSKRH: :MOV

#10.RDH!IQ. UMD ,R3
sREAD DISK HEADER(S)
$DSKJIO
:BR INTO COMMOM DISK ROUTINE

81 000014
82 000020
83 000024

012703
010367
010567

000000C
0000006
0000006

$DSKWH: : MOV
$DSK10: :MOV
MOV

85 000036
86 000040
87 000046
88 000050
89 000056

103010
022767
001770
016767
000406

010 HDH'IO UMD,R3
sWRITE DISK HEADER(S)
R3.$
sSTORE FUNCTION CODE IN DPB
RS, SIOBUF
:STORE BUFFER ADDRESS IN DPB
#$DSKPB
:ISSUE THE QIOwWS
1$
$IF CC 0K
:POOL SPACE_AVAILABLE?
#1E.UPN,SDSW
$DSKRT
sIF EQ NO, TRY AGAIN
$DSW,$10ST
:COPY DSW INTO STATUS BLOCK
23

gg 000012

84 000030

000402

(C00000G 0000006
0000006 0000006

$DSKRT::D]JRS
8CC
CMP
eEQ
MOV
BR

#10.WCH'IQ, UMD, R3
$DSK]0
:

WRITE CHECK HEADER £ DATA

GC TO iHE COMMON QIO ROUTINE

SEQ 0028

FMTIO - 1/0 ROUTINES MACRO M1113 12-JAN-82 11:01 PAGE 2-1

0000006
0000016
000204
0000006

000002

000126

020027
001022
022767
001767
012700
005467

—-—

116701

—

(=)
[=]
o

012700
000167

4$:

0000006

78:

000000¢ 0000006

CLC
TST8
8PL
CLR8
MOV

CMP
BEQ
CMP
TST
BNE
MoV

BNE
SEC

CMP
BNE
CMP
BEQ

MOV
NEG
MOvs

0000006
000056

MOv8

CLR
CALL

CLRB

8s:

#98 RO

(RoS $10ST

43
(RO)+, (RO)+
(RO)

38
2(RO; RO
’$

MOV

JMP

sASSUME NO ERROR

:ERROR?

:1F PL NO

JYES,

CLEAR THE HIGH BYTE

:SET POINTER TO ERROR TABLE
:SCAN ERROR TABLE TO FIND ERROR TYPE
¢I1F EQ MATCH

;STEP TO NEXT ENTRY
;END OF TABLE?
:IF NE NO
;GET ADRS OF ERROR MESSAGE
sIF NE PRINT MESSAGE

sELSE JUST SET CARRY AND EXIT

RETURN

0000006
0000006
0000006

0000006
0000006

$10ST
6$

RO,#$MSG8
8$

:'UNRECSSERABLE" MESSAGE?
JIF NE

giE.BLK&377,SIOST
;YES, IS THIS A BLOCK # VIOLATION?
YES
EQ
sIF
#SMSGBA
RO
¢GET BUFFER ADDRESS FOR ERROR CODE
$10ST
sMAKE ERROR CODE POSITIVE
$10ST,R1
¢GET ERROR CODE
R2
s SUPRESS LEADING 0°'S
$CBDMG
s CONVERT TO DECIMAL
#,,(RO)+
¢STUFF DECIMAL INDICATOR
:TERMINATE STRING
;GET ADDRESS OF ‘UNRECOVERABLE'®' MES<AGE
sPRINT MESSAGE AND EXIT

000200

105010

2%:
3$:

5%:
6$:

000207

005002
004767
112720

18:

000000

MMmmmmmmm

.HWR

.DNRE377,
.DAAR3?77,

.VERC377.
.BBER377,

.PRIR377,
.OFLR377,

000240
000244

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

€O St Sy g Sumg Sreg Pt g g

oue S0
000234

0000006
0000006
0000006
000000
000000
0000006
0000006
0000006
0000006

$MSG13
$MSG10
$MSGS
0
0
$MSG20
$MSG22
$MSG7
$M<G8

;
;
;
s
s
;
;
.
;

HANDLER NOT RESIDENT
DEVICE NOT READY
DEVICE ALREADY ATTACHED
PARITY ERROR
BAD BLOCK
FATAL HARDWARE ERROR
PRIVLEGE VIOLATION
DEVICE OFFLINE
END OF TABLE

029224

0000006
000000C
000000¢C
000009¢

0,0, 8,8, %, 0,

000204
000210
000214
001220

O
[ ]

A Z2ERO WORD
ERROR CODE AND ERROR MESSAGE TABLE.
IN THE MESSAGE FIELD INDICATES THAT THE ERROR WILL
BE HANDLED BY THE CALLING ROUTINE.

r+~$WLKER-SET WRITE LOCK ERROR
THIS ROUTINE WILL SET THE WRITE LOCK ERROR MESSAGE AND EXIT
WITH A SEVERE ERROR STATUS SET.

INPUTSVe Ve Wy VW

b b
bt D b d e
NN NN W NN NN APRNIPIPNININIMNONININ
B B

NN = OV

BN BN BN BN

W
N

000261

]

2 000122
3 000124

2 O OO
=LO VO NO NS WNI=O0V0N
IR = (000NN SN

-l—l—‘-—l—l—l—l-a—h—l—l—l-l—h—i-b—l—l.—.-‘-‘—l—l—b-l—l—l—l—l..l—l-.—l—l-—b—l_&—l-.—.—.—'—l.—l—b—-l—l

90 000060
91 000062
92 000066
93 000070
94 000074
95 000100

NONE

OUTPUTS:
RO
= WRITE LOCK ERROR MESSAGE ADDRESS

SEQ 0029

012700
000751

0000006

SWLKER: :MOV
BR
.DSABL

#$MSGI,RO
8s

sSET WRITE LOCK MESSAGE ADDRESS
SEXIT WITH SEVERE ERROR STATUS

LSB

UWN = OV D~

000250
000254

*+~$PRINT-PRINT MESSAGE ON THE USERS TI:

INPUTS:
RO
R1

(ALTERNATE ENTRY)

MESSAGE ADDRESS

CARRIJAGE CONTROL (FOR SPRNTO ENTRY ONLY)

OUTPUTS:

000314
000320

g
o

v
W

000322
000326

000336
000340

65
065
0165

005265
000773
103004
022767
001771
000207

SPRINT: :MOV
000040
0000006
$PRNTO: :MOV
MOV
000000G 0000006
MOV
0000006
0000026
CLR
MOV
0000046

1$:

0000026
28:
0000006 0000006
38:

sSET 1 LINE FEED CARRIAGE CONTROL
:GET OUTPUT DPB ADDRESS

RO,Q.IOPL(RS)
Q.I0PL+2(RS)
R1,Q.I0PL+4(R5)

;STORE MESSAGE ADDRESS IN DPB
sCLEAR MESSAGE LENGTH COUNTER IN DPB
;SET CARRIAGE CONTROL

BEQ
INC

2
Q.10FL+2(R5)

*IF EQ YES
:NO, CALCULATE MESSAGE LENGTH

DIK$

:PRINT THE MESSAGE

CMP
BEQ
RETURN

NIE.UPN,SDSW
2

-POOL SPACE AVAiLABLE?
*IF EQ NO, TRY AGAIN

1ST8

B8CC

#10.WVB,Q. I0FN(RS)
(RO)+

:SET FUNCTION CODE

SEND OF MESSAGE STRING?

SGET NEXT CHARACTER
YIF CC oK

«*~$READ-READ A LINE FROM THE TERMINAL

ggé?cgUBROUTINE WILL READ A LINE FROM THE CONSOLE

INPUTS:

NONE

OUTPUTS:
CARRY SET IF ANY ERROR AND
RO = ERROR MESSAGE ADDRESS

St
J

OO0

201 000342
202 000346
203 000354

#40,R1
#$CONPB,RS

B8R

0, 8.0.8.0c0:808.0s80000008,
+

g
o

N
o

000256
000262

ODOOO0

MESSAGE SENT TO TI:

O N ES NN =

V0O NO VAN =2 O V00NN NS NN = O V00N WV

WNN <2 OV

+*~$PRNTO-PRINT MESSAGE ON THE USERS TI:

012705
012765
012765

0000006
0000006 0000006
0000006 0000006

b =

b o

b wd d i

b D b b emd i

b b e rd e

D e

d i

D b b D wed

e =P e

d b e d ed o o e e

D D b e

D d e

FMYIO -~ 1/0 ROUTINES MACRO M1113 12-JAN-82 11:01 PAGE 2-2

CARRY CLEAR IF READ 0K

AD:: MOV

MOV

#SCONPB RS

:GET INPUT DPB ADDRESS

#10.RVB.Q. JOFN(RS)

#$BUFRX,Q. IOPL (R5)

sLOAD FUNCTION CODE

:LOAD BUFFER ADDRESS

SEQ 0030

FMTIO ~ 1/0 ROUTINES MACRO M1113 12-JAN-82 11:01 PAGE 2-3

204 000362
205 000370
206 000374

012765

206 000406
210 000412
211 000414
212 000420
213 000422
g}g 000424

105767
002405
105767
001405
000241

207 000376
208 000404

000120

#80..0.10PL+2(RS)
;:LOAD MAX NUMBER OF BYTES TO READ
RS
CREAD IN'THE LINE
28
“IF CS CIRECTIVE ERROR

18:

1ST8
BLT
ISTB
BEQ
cLe

$]0ST
28
$10ST+1
38

+1/0 ERROR?
SIF LT YES
SCHECK FOR A TERMINATED LINE
*IF EQ BUFFER OVERFLOWED
*INDICATE READ WAS OK

28:

MOV

#3$MSG29,RO

;COMMAND [/0 ERROR

38:

MOV

#$MSG30, RO

:COMMAND TOO LONG

122767 000000C 0000006
001406

000402

012700

222

000001

0006261
000207

CMPB
BEQ

0000006
0000016

000207

218 000434

219 000440
ggg 000442

MOV
DIRS
BCS

10341/

216 000426 012700 0000006
217 000432

0000026

0000006

48:

JEND

#1E.EOFR377.810s}
-END OF FILE SEEN?
18
;IF EQ YES

RETURN

SEC
RETURN

*SET ERROR RETURN

FMTIO = 1/0 ROUTINES MACRO M1113 12-JAN-82 11:01 PAGE 2-¢

SEQ 0031

SYMBOL TABLE

[€.BBE= trvenn GX
[E.BLK= tevanr GX
IE.DAA= wereen GX

JE.VER= wnennee (X
JO.RDH= snenee GX
JO.RVB= wennan (GX

$CBDMG= eee
GX
SCONPB= teen.. (X
$0SkJ0 000020RG

$I10BUF= erener GX
$I0ST = seeeee Gy
SMESAG= ereeee (X

$MSGS = serenn GX
$MSG7 = weecer GX
$MSG8 = weeenr GX

[E.EQOF=
IE.FHE=
[E.HWR=
IE.OFL=
JE.PRI=

JO.WDH=
JO.WVB=
JQ.UMD=
Q.IOFN=
Q.IOPL=

$DSKRH
$DSKRT
$0SkWC
$OSKwH
$DSW =

$MSG13=
$MSG20=
$MCG22=
$MSG29=
$MSG30=

$MSGY =
$SPRINT
$PRNTO
$SREAD
$WLKER

IE.DNR= wewnee GX

IE.UPN=

weeevnxn GX
terewer GX
wewnzr GX
wvwner GX
wewene GX
tewaaw

(GX

. ABS.

000000
000444
ERRORS DETECTED:

[0 WCH=

txnnnn GX

SBUFRX=

tesner

weneen
weewn
sweeee
weacas
wwanne

GX
()X
GX
(X
(X
GX

000
001

VIRTUAL MEMORY USED:
481 WORDS
( 2 PAGES)
DYNAMIC MEMORY:
7942 WORDS
( 30 PAGES)
ELAPSED TIME:
00:00:10

£300,20)FMT10,0300,30]FMT10=(300,10]FMT]IO

SDSKPB= wennne (3X

SFUNC

000006PG
(000030RG
Q00000RG
000014RG
erenee (X
tenvarne

SMSG10= saeenr GX

eennee
eeenne
rennne
tereee
eenene

GX
G
GX
(X
GX

SMSGB8A= trnenn (X

sewvenne GX
(000256RG
000262RG
000342RG
000250RG

SEQ 0032

FMTDAT - FORMAT DATA BASE MACRO M1113 12-JAN-82 11:01 PAGE 1
TITLE

[ FE

FE FE TR FE SN PR YA FE YR FE T

= O VO NV

POAD b ed =D ed erd b e cmd d b

NN =OO®

FE FEFE FE FE PR FE YR FE FE

YOV

VR YN F3 J

.IDENT

FMTDAT = FORMAT DATA BASE

/01.00/

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS
SOFTWARE
1S
FURNISHED
UNDER A LICENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF
THE ABOVE COPYRIGHT NOTICE.
THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
TO ANY
OTHER PERSON
EXCEPT
FDR USE ON SUCH SYSTEM AND TO ONE
WHO AGREES TO THESE LICENSE TERMS.
TITLE
TO AND
OWNERSHIP OF
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.
THE
INFORMATION
IN THIS DOCUMENT IS SUBJECT
TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A
COMMITMENT
BY
DIGITAL
EQUiIPMENT CORPORATION.

CAGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

VERSION 01.00

C. HESS

M. LEAVITT

.MCALL

17-AUG-80

26-NOV-80

UMDIOS

DEFS$G

sCALL MACRO TO DEFINE DIAGNOSTIC FUNCTION
sCODES GLOBALLY

; SPECIAL OPCODES TO BE USED WITH THE FUNCTIONAL °‘DR' DRIVER.

;

004110
004160
004170
004200
004210

THAT THESE FUNCTIONS ARE DEFINED IN THE SPECIAL MANUFACTURING

NOTE

'DR' DRIVER.

10.WCH
10.WPD
J0.RPD
10.FER
JO.FEW

==
==
==
==
==

10+400+110
10+400+160
10+400+170
10+400+200
10+400+210

;
:
¢
:
¢

WRITE CHECK HEADER & DATA (DIAGNOSTIC)
WRITE PHYSICAL BLOCKS (DIAGNOSTIC)
READ PHYSICAL BLOCKS (DIAGNOSTIC)
READ FE BLOCKS (DIAGNOSTIC)
WRITE FE BLOCKS (DIAGNOSTIC)

FMTDAT -~ FORMATY

47
48
49
50
51

000001
000002
000003
000002
000003

000013

52
53

§7 000000
58 000002
§9 000004
60 000010
61 000014
62 000016
63 000022
64 000024
gg 000026

DSKEFN
CONEFN

SPEFN
CONLUN
DSKLUN
DEFSEC
$SSFLN
$SSFHD
$SSFDT

000037
000003
001365

000
104
000003
000003
000005
155555
000024
040200
001004

377
122
131715
131656

70 000032
71 000034
72 000036
73 000040
74 000042
75 000044
76 000046
77 000050
78 000052
79 000054
gg 000056

133333

000000
000003
001
000110°
000000
000000
000000
000000
000000
000000
000054°

014

$DSKPB::.BYTE
$FUNC::

.WORD
"WORD
.BYTE
.WORD
WORD
$I0BUF::.WORD
$XFRSZ::.WORD
WORD
SLBNH:: .WORD
$SLBNL:: .WORD
.WORD

000

003
014
000000
000002
002
000
000110°
000000
000000
000000
000000
000000 000000

gg 000110

000000

0,=]
‘DR
3,131715
3.131656
5
155555,133333
20.
516.%32.
516.

;
>
*
:
:
:
:
*
:

*EVENT FLAG FOR SPAWN DIRECTIVE
:LUN FOR CONSOLE 1/0
SLUN FOR DISK 1/0
31.
*DEFAULT SECTOR FOR SKIP FLAG
3
*BLOCK LENGTH OF SKIP SECTOR FILE
11.
*NUMBER OF WORDS IN HEADER OF SKIP SECTOR FILE
<256.+$SSFLN>~$SSFHD
:NUMBER OF WORDS IN DATA OF SKIP SECTOR FILE

FORMAT STATUS, MCR LINE FLAG
DISK NAME (ASCII)
ADDRESS OF ALTERNATE DEC STD 144 TRACK
ADDRESS OF START OF SKIP SECTOR FILE
NUMBER OF COPIES OF SKIP SECTOR FILE
DISK FORMAT PATTERN
NUMBER OF RE-VERIFICATION ATTEMPTS
RM80 TRACK SIZE (IN BYTES)
RM80 SECTOR SIZE (INCLUDING HEADER)

3,12.

0
DSKLUN
DSKEFN.O
$10ST
O
0
0
0
0
0
SRGBUF

; MACRO DIC, DPB SIZE
:
:
:
:
:
.
.
*
:
*
*

FUNCTION CODE
LUN
EVENT FLAG, PRIORITY
STATUS BLOCK ADDRESS
AST ADDRESS
BUFFER ADDRESS
TRANSFER SIZE IN BYTES
NOT USED
HIGH ORDER LOGICAL BLOCK NUMBER
LOW ORDER LOSICAL BLOCK NUMBER
REGISTER BUFFER ADDRESS

000000

$CONPB::.BYTE
WORD
-WORD
.BYTE
"WORD
WORD
WORD
WORD
WORD
JWORD

3,12.
O
CONLUN
CONEFN.O
$IOST
O
0
O
0
0.0.0

;
*
:
:
:
:
*
*
*
*

MACRO DIC, DPB SIZE
FUNCTION CODE
CONSOLE LUN
CONSOLE EVENT FLAG, PRIORITY ZERO
STATUS BLOCK ADDRESS
AST ADDRESS
BUFFER ADDRESS
MESSAGE BYTE COUNT
CARRIAGE CONTROL
NOT USED

$10ST::

0,0

1/0 STATUS BLOCK

.WORD

103

:EVENT FLAG FOR DISK 1/0
SEVENT FLAG FOR CONSOLE 1/0

:CONSOLE I/0 DIRECTIVE PARAMETER BLOCK (QIOWS DIRECTIVE)

84 000060
85 000062
86 0000664
87 000066
88 000070
89 000072
90 000074
91 000076
92 000100
32 000102

}g} 000114

==
=
==
=
==
==
==

1
2
3
2
3

:DISK 170 DIRECTIVE PARAMETER BLOCK (QIOWS DIRECTIVE)

100

=
=

$STATS::.BYTE
$DVICE::.ASCII
SALFLB::.WORD
$SSFLB::.WORD
$SSFSZ2::.WORD
$PAT::
.WORD
SRETRY::.WORD
TRKSZ2:: .WORD
SECSZ:: .WORD

gg
69 000030

SEQ@ 0033

DATA BASE MACRO M1113 12-JAN-82 11:01 PAGE 2

* DRIVE PARAMETER TABLE
000003

131656

’

$DVPRM::.WORD

3,131656

: MAXIMUM LBN

: THE ORDER OF THIS TABLE MUST NOT CHANGE

SEQ 0034

DATA BASE MACRO M1113 12-JAN-82 11:01 PAGE 2-1

SMXCYL::.WORD
$SMXTRK
: : . WORD
$MXSEC::.WORD
$MBSSZ::.WORD
$UBSSZ:: .WORD

000000

000024

0
0
0

10.

20.

: # OF CYLINDERS PER DI1SK
: # OF TRACKS PER CYLINDER
: # OF SECTORS PER TRACK

s # OF BLOCKS IN MDBSF

¢ # OF BLOCKS IN UDBSF

: MACRC FORMAT: LBN, CYL. TRK, SEC
: WHERE:
MAXIMUM NUMBER OF BLOCKS ON DEVICE (DOUBLE WORD)
LBN =
H
:

cYL =

SEC =

.MACRO

DVPRM
.WORD
.WORD
.BYTE

.ENDM

DVPRM

TRK =

000132
000142

$LOGDV: :DVPRM
$SPHYDV: :DVPRM

000000

PSECT

000052

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000

.EVEN
$SNAME
: : .WORD
SRTCNT: :.WORD
$DVUNT
: : .WORD
$SMXLBN:
: .WORD
$SHDRFG:
: .WORD
$FLCYL::.WORD
$FLTRK:
: .WORD
$FLSEC::.WORD
$CYL::
.WORD
$TRK::
.WORD
$SEC::
.WORD

PR¥
IYA PR PR FEFE FE FE PR FE FRE FE FE

000022
000026

(=]

000021

s LOGICAL DEVICE GEOMETRY
s PHYSICAL DEVICE GEOMETRY

$$$$BF.D

$UCB::
.WORD
$5(B::
.WORD
SINADD
: : .WORD
SREVNM:
: . WORD
$YESNO::.BYTE
$SWERL
: : .BYTE
$SWLST::.BYTE
$SWLOG:
: .BYTE
$SWFMT::.BYTE
$SWFFE::.BYTE
$SWINT::.BYTE
$SWMOD:
: .BYTE
SKPFRE::.BYTE
SVERIF::.BYTE

000004

.. 31.
.. 32.

[olelelelelelolelealelelelo]ls)

000000

CYLINDERS ON DEVICE
TRACKS ON DEVICE
SECTORS ON DEVICE

LBN, CYL, TRK, SEC
LBN

000000
000002

MAXIMUM NUMBER OF
MAXIMUM NUMBER OF
MAXIMUM NUMBER OF

]

[=lelelelelalelelelelw)]

WWNWNAAAWES 85 85 28 85 2 0 85 8 8 WIWWNN NN DN N N NN N
b b b cd b e b D b
o
vy
ChOGVQOflnbwunrdChourflown&wunrdCMOGPVOWAtfluhfiflChoGPQO“fl@%NNP*CfiOaPNO“n@flNthChOGFNS:

FMTDAT - FORMAT

¢BUFFERS AND DATA STORAGE AREA

ADDRESS OF CURRENT UCB
ADDRESS OF CURRECT SCB
ADDRESS OF INTERRUPT VECTOR
TEMP. STORAGE FOR SSF REVISION NUMBER (SSSF+10)
YES/NO CONTINUE RESPONSE

ERROR LIMIT
LIST BAD BLOCK FILE CONTENTS
LOGICAL LIST SWITCH

ENABLE FORMAT FLAG
ENABLE FORMAT FE CYLINDERS ONLY
CREATE THE MDBSF, UDBSF,
AND SSF

MODIFY THE SSF, UDBSF, € FEBSF

SKIP SECTOR FLAG
NUMBER OF TIMES TO VERIFY THE TRACK
HDA SERIAL NUMBER
RETRY COUNT

DISK UNIT NUMBER
MAXIMUM BLOCK NUMBER
HEADER DEFECT FLAG
FAILING CYLINDER ~JDRESS

'
TRACK
*
SECTOR
CURRENT CYLIND:R
CURRENT TRACK
CURRENT SECTOR

'
'

FMTDAT - FORMAT DATA BASE MACRO M1113 12-JAN-82 11:01 PAGE 2-2
161

16§ 000054
163 000136
164 040336
}gg

040336

SRGBUF : : .BLKW
$BUF::
.BLkW
$BUFRX::.BLKW
$BUF X==$BUFRX

§S°
2.%258.
200.

SEQ 0035

;
s
:
¢

RM80 REGISTER RETURN BUFFER
BUFFER FOR DISK 1/0
DIRECTIVE BUFFER
BUFFER FOR DIRECTIVE USE

}22

:BAD SECTOR AND DEFECT STORAGE AREA

169 041156
170 042156
171 043156
};g 046156

SMDBSF
: : .BLKW
SUDBSF ::.BLKW
$SSF::
.BLKW
SFEBSF::.BLKW

174

000001

.END

256.
256.
256.*<$SSFLN>
64.

:
;
.
:

BUFFER
BUFFER
BUFFER
BUFFER

FOR
FOR
FOR
FOR

16 BIT MDBSF
16 BIT UDBSF
16 BIT SKIP SECTOR FILE
FE CYLINDER DEFECTS

FMTDAT - FORMAT DATA BASE MACRO M1113 12-JAN-82 11:01 PAGE 2-3

SEQ 0036

SYMBOL TABLE

CONEFN= 000002
CONLUN= 000002
DEFSEC= 000037
DSKEFN= 000001
DSKLUN= 000003 G
10.BLS= 004010 G
10.DGN= 004150 G
10.FER= 004200 G
10.FEW= 004210 G
10.HMS= 004000 G
10.LPC= 004100 G
10.0FF= 004020 G
10.RDH= 004030 G
10.RNF= 004060 G
10.RNR= 004070 G

10.WCH= 004110 G
10.WCK= 004050 G
10.WDH= 004040 G
10.WwPD= 004160 G
10.WID= 004130 G
1Q.UMD= 000004 G
SECSZ_
000026RG
SKPFRE 000020RG
SPEFN = 000003 G
TRKSZ
000024RG
SALFLB 000004RG
$BUF
000136RG
$BUFRX 040336RG
$BUFX = 040336RG
$CONPB 000060RG

10.RPD= 004170 G
10.RTD= 004120 G
10.7DD= 004140 G

000000
000152
$888BF
046356
ERRORS DETECTED:

$CYL
$DSKPB
$DVICE

000046RG
000030RG
000002RG

000
001
002

VIRTUAL MEMORY USED:
898 WORDS_
( 4 PAGES)
DYNAMIC MEMORY:
7942 WORDS
( 30 PAGES)
ELAPSED TIME:
00:00:12

£300,203FMTDAT,[300,30]FMTDAT=L300,
10JFMTDAT

$DVPRM
$DVUNT
$FEBSF
S$FLCYL
$” _SEC
$FLTRK
$FUNC
002 SHDRFG
$INADD
$10B8UF
$10ST
002 SLBNH
002 SLBNL
v02 $LOGDY
$MBSSZ
002 $MDBSF
$MXCYL

000114RG
000030RG
046156RG
000040RG
000044RG
000042RG
000032RG
000036RG
000004RG
000044RG
000110RG
000052RG
000054RG
000132RG
000126RG
041156RG
000120RG

SMXLBN 000032RG
SMXSEC 000124RG
SMXTRK 000122RG
SPAT
000016RG
SPHYDV 000142RG
SRETRY 000022RG
SREVNM 000006RG
002 SRGBUF 000054RG
002 SRTCNT 000026RG
$sC8
000002RG
$SEC
000052R6
$SNAME 000022RG
$SSF
043156R6
$SSFDT= 001365 G
$SSFHD= 000013 6
002
002
002
002
002

002 $SSFLB 000010RG
$SSFLN= 000003 G

002 $SSFSZ
$STATS
$SWERL
$SWFFE
$SWFMT
$SWINT
002 $SWLOG
002 $SWLST
002 $SwWMOD
002 $TRK
002 $uBSSZ
002 sucs
002 SUDBSF
SVERIF
$XFRSZ

000014RG
000000RG
000011RG
000015RG
000014RG
000016RG
V00013RG
000012RG
000017RG
000050RG
009130RG
000000RG
042156RG
000021RG
000046RG

$YESNO 000010RG
...G68L= 000001

002
002
002
002
002
002
002
002
002
002
002
002

FMTMSG ~ MESSAGE OUTPUT ROUTINE MACRO M1113 12-JAN-82 11:02 PAGE 1
1

.TITLE

SEQ 0037

FMTIMSG = MESSAGE OUTPUT ROUTINES

"IDENT

;

9
10
1
12
13

* SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
i OF
THE
ABOVE COPYRIGHT
NOTICE.
THIS SOFTWARE, OR
ANY
OTHER
* COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
MADE AVAILABLE
P TO "ANY
OTHER PERSON EXCEPT
FOR USE ON SUCH SYSTEM AND TO ONE
WHO AGREES TO THESE LICENSE TERMS.
TITLE
TO AND
OWNERSHIP OF

/01.00/

* DIGITAL EQUIPMENT CORPORATION, MAYNARD, M°SS.
P THIS

SOFTWARE

FURNISHED

* THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

: THE

* EQUIPMENT CORPORATION.

INFORMATION

* DIGITAL ASSUMES NO

;

P C. HESS

’

NLIST

CND,BEX

.MCALL

DIRS

gg
gg

IN THIS DOCUMENT IS SUBJECT

NOTICE AND SHOULD NOT BE CONSTRUED AS A

UNDER A LICENSE FOR USE ONLY ON A

TC CHANGE WITHOUT

COMMITMENT

DIGITAL

RESPONSIBILITY FOR THE USE OR RELIABILITY OF

: ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

* VERSION 01.00

P M. LEAVITT

15-AUG-80

23-0CT-80

FMTMSG - MESSAGE OUTPUT ROUTINE MACRO M1113 12-JAN-82 11:02 PAGE 2

35
38
39 000000
40 000002
41 000016

015
052
015

000
052
106

052
115

$CR::
.ASCIZ
$STARS::.ASCIZ
$MSGl:: .ASCIZ

<CR>
/wxxsenvene/<LF>
<CRO/FMT == /

47 000166
48 000207
49 000225

040
104
125

055
122
116

106
111
122

$MSG6B::.ASCIZ
$MSG7:: .ASCIZ
$MSG8:: .ASCI]

/ =FE CYLINDERS=/<CR>
/DRIVE OFFLINE/
/UNRECOVERABLE ERROR =/

42 000027
43 000044
44 000071
45 000121
46 000144

50 000252
51 000260
52 000304
53 000325
54 000351
55 000361
56 000407
57 000421
58 000430
59 000440
60 000463
61 000506
62 000533
63 000565
64 000611
65 000656
66 000664
67 000672
68 000722
69 000756
70 001010
71 001032
72 001053
73 001076

74 001124
75 001162
76 001210
77 001240
78 001265

79 001323
80 001350
81 0014
82 001456
83 001471
84 001504
85 001526
86 001550
87
88

123
104
106
012
040

131
105
101
012
055

116
126
111
123
107

040
104
104

0490
105
105

040
126
126

072
015
125
126
103
103
103
012
122

040
106
116
105
123
117

052
115
101
103
122
115

012
012
104
103
124
123
115
125
106
106
120
012

m
125
125
125
m

105
125
123
015
015
104
104
125

123
104
105
13
122
105
104
104
101
101
122
007

117
103
105
116
116
116
116
116
122

116
113
104
117
122
122
120

124
117
126
114
101
103
102
102
1264
111
111
052

115
117
123
103
101
101
101
103
122

101
111
122
120
111
111
106

$MSG2:: .ASCIZ
$MSG4:: .ASCIZ
$MSGS:: .ASCIZ
$MSG6:: .ASCIZ
$MSGOA::.ASCIZ

$MSGBA::.ASCIZ
$MSG9:: .ASCIZ
$MSG10::.ASCIZ

SMSG11::.ASCIZ
$MSG12::.ASCIZ
$MSG13::.ASCIZ
$MSG15::.ASCIZ
$MSG16::.ASCIZ
$MS517::.ASCIZ
$MSG18::.ASCIZ
$MSG19::.ASCIZ
$MSG20::.ASCIZ
$MSG21::.ASCIZ
$MSG22::.ASCIZ
$MSG23::.ASCIZ

$MSG24::.ASCIZ
$MSG25::.ASCIZ
$MSG26::.ASCIZ
$MSG27::.ASCIZ
$MSG28::.ASCIZ
$MS5G629::.ASCIZ

$MSG30::.ASCIZ
$MSG31::.ASCIZ
$MSG32::.ASCIZ
$MSG40::.ASCIZ
$MSG41::.,ASCIZ
$MSG42::.ASCIZ
$MSG43::.ASCIZ
$MSG44::.ASCIZ
$MSG45::.ASCIZ

$MSG58::.ASCIZ
$MSG59::.ASCIZ
$MSG70::.ASCIZ
$MSG71::.ASCIZ
$MSG72::.ASCIZ
$MSG73::.ASCIZ
$MSGR8::.ASCIZ
.EVEN

/SYNTAX ERROR/
/DEVICE NOT IN SYSTEM/
/FAILED TO ATTACH DEVICE/
<LF><LF>/START FORMATTING/
/ -ALL CYLINDERS=/<CR>

/
/
/DEVICE WRITE LOCKED/
/DEVICE NOT READY/
<LF>/START VERIFICATION/
<LF>/DONE !/
/DEVICE DRIVER MISSING/
/CYLINDER=/
/TRACK=/
/SECTOR=/
/MDBSF COPY CORRUPT/
/UDBSF COPY CORRUPT/
/FATAL HARDWARE ERROR/
/FAILED TO READ MDBSF COPY/
/PRIVILEGE VIOLATION/
<LF><07>/++ WARNING - DATA WILL BE LOST ON /
/: =%/<07>
<CR>/FMT>/
/UNABLE TO RECOVER MDBSF/
/VECTOR NOT MULTIPLE OF FOUR/
/CSR ADDRESS NOT IN SYSTEM/
QCOMMAND I/0 ERRORa®
/COMMAND TOO LONG/
<LF>/CONTINUE (L) N 2?2 /
/RESPONSE OUT OF RANGE/
/INCORRECT
/UNABLE TO
/UNABLE TO
/UNABLE TO
/INCORRECT

MDBSF SERIAL NUMBER/
RECOVER SSF/
RECOVER UDBSF/
READ UDBSF/
UDBSF SERIAL NUMBER/

/ERROR LIMIT EXCEEDED/
/UNABLE TO READ SKIP SECTOR FILE COPY/
/SKIP SECTOR FILE COPY IS CORRUPT/
<CR>/DRIVE #: /
<CR>/OPTIONS: /
/DRIVE NOT PRESENT/
/DRIVE NOT AN RMB0/
/UPDATE MODE (L) N ? /

SEQ 0038

FMTMSG ~ MESSAGE OUTPUT ROUTINE MACRO M1113 12-JAN-82 11:02 PAGE 3

SEQ 0039

90
91

; *+=$MSGWR=-0UTPUT MESSAGE WITH WARNING EXIT STATUS

: **=$MESAG-QUTPUT MESSAGE WITH CURRENT EXIT STATUS

99 001576

000000G 000000G $SMSGWR::MOVB

NEXSWAR,8STATS

SET WARNING EXIT STATUS

012700

000000G

#$8UF RO

:GET PRINT BUFFER ADDRESS

104767
012603
004767
112720
105010

0000006

010046

102 001612

012703

103
104
105
106
17

001616
001622
001624
001630
001634

108 001636

SMESAG: :MOV

MOV

000016°

MOV

CALL
MOV
CALL
MOVB
CLRB

0000006

000012

012700

000000G

111 001646
112 001654

012767

}}z 001662

000167

000000C 000000G $FMTEX: :MOV
DIRS

115

000001

}?8 001642

RO = ADDRESS OF '‘ASCIZ'‘' MESSAGE STRING

112767

100 001604

101 001606

INPUTS:

004767

MOV

0000006

CALL

0000006

JMP

END

RO,-(SPS

OSMSGi.RS
$MOVE
(SP)+,R3
$MOVE
#12,(RO)+
(RO)

#$8BUF ,RO
$PRINT

:SAVE MESSAGE ADDRESS

:GET PREFIX ADDRESS

;STORE PREFIX
JGET BASIC MESSAGE ADDRESS
JSTORE BASIC MESSAGE
;ADD AN ADDITIONAL LINE FEED
JTERMINATE THE BUFFER

JSET MESSAGE BUFFER ADDRESS
;PRINT THE MESSAGE

#10.DET'1Q.UMD,$FUNC
;LOAD DETACH FUNCTION CODE
#$DSKPB
sDETACH DISK (WHO CARES IF IT FAILS!'!)

$SFMTEP

;RESTART

SEQ 0040

FMTMSG - MES 'AGE OUTPUT ROUTINE MACRO M1113 12-JAN-82 11:02 PAGE 3-1

(R
= 000015
EXSWAR= tennes GX
[O.DET= evwenn (X
[Q.UMD= wennen GX
LF
= 000012
$BUF = teerne GX
$CR
000009RG
SOSKPB= teneee (X
SFMTEP= tenner (X
$FMTEX
SFUNC =
SMESAG
SMOVE =

$MSGR8
$MSGWR
$MSG1
$MSG10
$MSG11
$MSG12
$MSG13
$MSG1S5
$MSG16

O001646RG
eevene GX
001604RG
wenere GX

000000
-6
0F
ERRORS DE' _CTED:

$MSG17
$MSG18
$MSG19
$MSG2

. ABS.

001550RG
001576RG
000016RG
000304RG
Q00325RG
000351RG
000361RG
000407R
000421RG
000430RG
000440RG
000463RG
000027RG

000
001

VIRTUAL MEMORY USED:
618 WORDS_
( 3 PAGES)
DYNAMIC MEMORY:
7942 WORDS
( 30 PAGES)
ELAPSED TIME:
00:00:10

(300,20)FMTMSG,(300,30]FMTMSG=L300,10IFMTMSG

$MSG20
$MSG21
$MS622
$MSG23
$MSG24
$MSG2S5
$MSG26
$M5G27
$MSG28
$MSG29
$MSG3I0
$MSG31
$MSG32

000506RG
000533RG
000S565RG
000611RG
000656RG
000664RG
000672RG
000722RG
000756R6
001010RG
001032RG
001053RG
001076RG

$MSG4

$MSG40

$MSG41
$MSG4
$MSG4
$MSG44

$MSG4S5
$MSGS
$MSG58
$M3G59
$MSG6
$MSGOA

b = SAMNOINNININY
= = O
SN =2 \NNMNVONS =N

SYMBOL TABLE

$MSGEB

000166RG
000207RG
00145676
001471RG
001504RG
001526RG
000225RG
000252R6G
000260RG
teneny

$STARS
000092RG
$STATS= wenenr GX

SEQ 0041

= OV

NO NN

PON) b ed = cd d cd e cd ed d

= OOV

NN E NN —

FMTSUB -~ FORMAT SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 1

TITLE
.IDENT

FMTSUB - FORMAT SUBROUTINES
/01.00/

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS

SOFTWARE

FURNISHED

UNDER A LICENSE FOR USE ONLY ON A

SINGLE COMPUTER SYSTEM AND MAY Bt COPIED ONLY WITH THE INCLUSION
OF
THE_
ABOVE COPYRIGHT NOTICE.
THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
TO ANY
OTHER PERSON
EXCEPT
FOR USE ON SUCH SYSTEM AND TO ONE
WHO AGREES TO THESE LICENSE TERMS.
TITLE
TO AND
OWNERSHIP OF
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

THE
INFORMATION
IN THIS DOCUMENT IS SUBJECT
TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A
COMMITMENT
BY
DIGITAL
EQUIPMENT CORPORATION.

DIGITAL ASSUMES NO RESPCNSIBILITY FOR THE USE OR RELIABILITY OF
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
VERSION 01.00

C. HESS

M. LEAVITT

21-AUG-80
14-JAN-81

SEQ 0042

FMTSUB -~ FORMAT SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2
3¢

35
36
37
38

: INPUTS:
:
NONE
:
* QUTPUTS:

: «*=$MYPAT=LOAD THE DATA BUFFER WITH THE DISK DATA PATTERN

"$SBUF' LOADED WITH 'SPAT® & 'SPAT+2'

43 000000

016701

0000006

SMVPAT : :MOV

46 000010
47 000014

012700
016720

0000706
0000006

18:

46 0000064
45 000006

48 000020

49 00002«
S0 000026
g; 000030

006201
006201

016720

005301
100372
000207

0000026

#$BUF ,RO
$PAT, (RO) +

: BUFFER POINTER
. MOVE THE PATTERN

MoV

$SPAT+2, (RO) +

MOV
MOV
DEC
BPL
RETURN

€4
57

:
:

60
61

s OUTPUTS:
:
NONE
.

64 000032 012700 0000006
65 000036 004767 000176

$EROUT : :MOV
CALL

R1
1$

. CONVERT BYTE COUNT TO WORD COUNT
: CONVERT TO 2 WORD COUNT

: DECREMENT THE DISTRIBUTION COUNTER
. IF PL, MORE TO DO
:

. OUTPUT ERROR MESSAGE

66
67
68
69

: LOAD THE DISTRIBUTION COUNTER

R1
R1

TRKSZ,R1

ASR
ASR

000042
000044
000050
000054

005002
004767
112720
112720

71 000062

005001

;z 000070

000167

70 000060

72 000064

105010

012700

0000006
000056
000040

INPUTS:
R1 = VALUE TO CONVERT

R3 = ADDRESS OF BASIC MESSAGE

CLR
CALL
ERROUT: MOVB
MOVB

CLRB
CLR

0000006

MOV

0000006

JMP

#$BUFRX ,RO
$SMOVE

: GET OUTPUT BUFFER ADDDRESS
:STORE BASIC MESSAGE

(ROJ

*TERMINATE STRING

R2
$CBDMG
#'.,(RO)+
#'
.(RO)+
R1

#$SBUFRX,RO
SPRNTO

:SUPRESS LEADING 0°'S
*CONVERT TO DECIMAL
:STUFF DECIMAL INDICATOR
:STUFF BLANK IN MESSAGE

“SET NULL CARRIAGE CONTROL

: GET OUTPUT BUFFER ADDRESS
*PRINT MESSAGE

75
76
77
78

X
. **=$EROCT-CONVERT TO OCTAL AND PRINT
:
INPUTS:
;
R1 = VALUE TO CONVERT

;

/79

;

84 000074

012700

86 000104
87 000106
88 000112

105202
004767
112720

85 000100

004767

OUTPUTS:

’

0000006

$EROCT : :MOV

0000006
000040

INCB
CALL
MOVB

000134

CALL

R3 = MESSAGE ADDRESS

MESSAGE PRINTED ON TI:
#$BUFRX ,RO

;

R2
$CBOMG
#°' ,(RO)+

*INCLUDE LEADING ZEROS
*CONVERT TO OCTAL
*STUFF BLANK IN MESSAGE

$SMOVE

SEQ 0043

FMISUB = FORMAT SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-1

89 000116

90 000120

91 000122
3% 000126

105010

005001

012700
004767

CLRB
CLR

0000006
0000006

MOV
CALL

(RO)

#SBUFRX ,RO
S$PRNTO

:TERMINATE STRING

*SET NULL CARRIAGE CONTROL
:
*SEND MESSAGE

: #+~$CVIDA-CONVERT DISK ADDRESS TO LOGICAL BLOCK NUMBER

* THIS SUBROUTINE CONVERTS A DISK ADDRESS TO A LOGICAL

}8?

;

* BLOCK NUMBER.

102
103

:
;

}82

;

104

;

107
108

;
000132
000136
000142
000146

116 000152
117 000154
118
119
120
121
122
}gz

INPUTS:
$CYL = CYLINDER NUMBER
$TRK = TRACK NUMBER

$SEC = SECTOR NUMBER

* OUTPUTS:
:
$LBNH = HIGH ORDER BLOCK NUMBER

}gg

111
112
113
114
115

000160
000164
000170
000172
000176
000202

016701
016700
004767
016700

060100
016701

004767
066701
005500
010067
010167
000207

0000006
0000006
000174
0000006G

ADD
MOV

000156
0000006

CALL
ADD
ADC
MOV
MOV
RETURN

0000006
0000006

GET CYLINDER NUMBER
GET TRACKS PER CYLINDER
MULTIPLY
GET TRACK NUMBER

SMULT
$SEC.R1
RO
RO, SLBNH
R1.SLBNL

s
*
*
*
:
:

MULTIPLY
ADD IN SECTOR
DON'T FORGET CARRY
SAVE HIGH ORDER BLOCK NUMBER
SAVE LOW ORDER BLOCK NUMBER

R1,R0
$SMXSEC,R1

: ADD TO PARTIAL TOTAL
: GET SECTORS PER TRACK

: THIS SUBROUTINE WILL ISSUE A HOME SEEK FUNCTION.

130
131
132
133

* INPUTS:
:
NONE
:
* OUTPUTS:

}%g

;

HOME SEEK ISSUED TO DISK.

137 000204
138 000210

005067
005067

0000006G
0000006

$HOMSK : : CLR
CLR

140 000222
141 000226

012703
012705

000000C
0000006

MOV
MOV

142 020232
}22 000236

;
.
:
:

* we-$HOMSK-ISSUE A HOME SEEK FUNCTION

}%g

139 000214

$CYL,R1
$MXTRK ,RO
SMULT
$TRK,RO

}%9

136

$SLBNL = LOW ORDER BLOCK NUMBER

$CVTDA: :MOV
MOV
CALL
MOV

0000006

125

145

THE FORMULA USED IS:

BLK = (SCYL » SMXTRK ¢ S$TRK) * SMXSEC + $SEC

012767 000010 0000005
000167
010207

0000006

1$:

$LBNH
$LBNL

MOV

#10,$XFRS2Z

JMP
RE TURN

$DSKI0

;RESET BLOCK NUMBER
;

DUMMY UP BYTE COUNT

#10.HMS'10.UMD,RS
-SET HOME SEEK FUNCTION CODE
#$8UF ,RS
SSETUP DEFAULT BUFFER ADDRESS
:DO THE FUNCTION AND EXIT

SEQ 0044

NOWVS WA —O000~NN

THIS SUBROUTINE WILL MOVE AN ASCIZ STRING INTO A BUFFER.

105740
000207

ADDRESS OF BUFFER.
ADDRESS OF ASCIZ TEXT TO MOVE.

OUTPUTS:
RO

POINTS TO NEXT PLACE

THIS SUBROUTINE WILL PROMPT

RESPONSE.

000336

000167

0000006

BUFFER IS TERMINATED
=1 IF BYTE COUNT IS ZERO
2 = 0 IF BYTE COUNT IS NON-ZERO

$SPRMPT
: : MOV

$SPRNTO

$BUFRX
SREAD

MSG

$10ST+2,R3
$BUFRX (R3)

1$:

2$:

MSG:

;

THEN WAIT FOR HIS

OUTPUTS:
R3 = BYTE COUNT

CMPB

000172
000040

THE USER AND

INPUTS:
RO = ADDRESS OF PROMPT MESSAGE.

0000026
0000006
0000006
000141

sSTORE TEXT CHARACTER
¢IF NE CONTINUE TO STORE
;POINT TO NEXT BUFFER POSITION

*+~$PRMPT-PROMPT USER AND SOLICIT A RESPONSE

000044
0000006
0000006
0000006

(R3)+,(RO)+
S$MOVE
=(R0O)

IN BUFFER.

1S78
RETURN

I TETE

012701

)
~
N

000250

WA =2 O V0NV
NN
=O 0NN

INPUTS:
RO
R3

$MOVE:: MOVB
BNE

112320
001376

A FE TR FE FN FE FN FE PR FE ¥

000240
000242
000244
000246

WA= OV

NOWVNSINN = OV

*+=$MOVE-MOVE ASCIZ STRING INTO BUFFER

#$BUFRX RO

(RO) ,#141

s
(RO) ,#172
2s

8I(CB

#40, (RO)

BNE
TST
RETURN

1$
R3

TST8

JMP

(RO+

$MSGWR

sSET CARRIAGE CONTROL
sPROMPT THE USER

sCLEAR USER'S RESPONSE BUFFER
sGET THE USERS RESPONSE
s1F _CS ERROR
sGET BYTE COUNT

sTERMINATE THE LINE
sGET INPUT BUFFER ADDRESS
sLOWER CASE LETTER?
s1F LO NO
LOWER ASE LETTER?
::IF

JIF NE NO

JTEST FOR NULL LINE

TEXIT WITH WARNING STATUS

**=$MULT-INTEGER MULTIPLY ROUTINE
INPUTS:

Hl N NO

JYES, CONVERT TO UPPER CASE
:END OF INPUT BUFFER?

=200V

NONON)
— —d b ad b i cmd D e

b s

) b b e

D b e e

wnd

) e

D and oD D e od D

) D D

D d d

) D D d

D e

D D

) ) D d

b )

FMTSUB - FORMAT SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-2

FMTSUB = FORMAT SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-3
203

206

¢ JUTPUTS:

58?

207

%}?

RO = MULTIPLIER

RO = HIGH ORDER RESULT

%83

SEQ 0045

R1 = MULTIPL]CAND

R1 = LOW ORDER RESULT

ALL REGISTERS ARE PRESERVED

214 000342

010046

SMULT:: MOV

RO,=(SP)

: SAVE MULTIPLIER FOR ADDS

216 000350
217 000352
218 000354
219 000356
220 000360

005000
006000
006001
103002
066600

CLR
ROR
ROR
BCC
ADD

RO
RO
R1
28
2(SP) RO

:
:
:
:
s

215 000346

221 000364

222 000366
223 000370
SS? 000372

012746 000021

005316

18:
000002

003371
022626
000207

226

2s:

MOV

DEC

BGT
cmP
RE TURN

#21,-(sP)

(SP)

18
(SP)+,(SP)+

* SET LOOP COUNT

CLEAR HIGH PART
DOUBLE RIGHT SHIFT
IF CC, DO NOT ADD
ADD MULTIPLIER TO RESULT

: DECREMENT THE LOOP COUNT
: IF GT, MORE TO DO
: PRUNE STACK
:

3%;

; **=-SSFCRC-COMPUTE CHECKSUM OVER SSF DATA

229

: THIS ROUTINE WILL COMPUTE THE CHECKSUM OVER THE SPECIFIED

232

* INPUTS:

5%2

RO = STARTING ADDRESS

:
:

RO =
R1 =

S%?

: DATA AREA OF AN SSF COPY.

233

236

: OUTPUTS:

237
238

241 000374

012746

243 0004602
244 000604
245 000406
246 000410
247 000412

006116
005301
001374
012601
000207

262 0400

265

R1 = LENGTH OF DATA AREA

062016

000001

SSFCRC: MOV

1s:

ADD

ROL
DEC
BNE
MOV
RE TURN

POINTS TO CHECKSUM WORD
CHECKSUM

#1,~(SP)

: INITIALIZE CHECKSUM

(SP)
R1
18
(SP)+,R1

:
+
:
:
:

(RO)+, (SP)

+ ADD DATA WORD TO CHECKSUM
ROTATE CHECKSUM
ALL DONE ?
IF NE, NO
GET CHECKSUM RESULT

: *x=SUPDMX-UPDATE MAXIMUM VALUES FOR DEVICE GEOMETRY

252

* THIS ROUTINE WILL REPLACE THE CURRENT MAXIMUM VALUES FOR THE

ggg

: SPECIFIED TABLE.

253

> RM80'S CURRENT GEOMETRY WITH THE VALUES SUPPLIED IN THE

256

* INPUTS:

259

* OUTPUTS:

323

R3 =

POINTER TO SPECIFIED TABLE

R3 =
POINTS PAST END OF SPECIFIED TABLE
SMXLBN, SMXLBN+2, SMXCYL, SMXTRK, AND SMXSEC ARE ALL UPDATED

SUPDMX : :MOV
0000006
MOV
0000026
MOV
0000006
MOv8
0000006
Mov8
0000006
sus
0000006 0000026
S8(
0000006

(R3)+,SMXLBN+2
(R3)+,SMXCYL
(R3)+,SMXSEC
(R3)+,SMXTRK

:SET UP MAX LBN

SSET UP MAX CYLINDER
+SETUP MAX SECTOR
;SETUP MAX TRACK

SMXSEC,SMXLBN+2 DO NOT FORMAT LAST TRACK
SMXLBN

*+=$TSTDA-TEST FOR A VALID DISK ADDRESS (BLOCK NUMBER)
THIS SUBROUTINE WILL CONVERT THE DISK ADDRESS TO A LBN AND

INPUT

THE LOGICAL BLOCK NUMBER IS WITHIN RANGE.

SSEC $TRK, $CYL

OUTPUTS:
)

SET TO A VALUE.

IF LBN OUT OF RANGE
IF LBN IN RANGE

004767

126767
101007
103404
026767
101002

000207

177452
$TSTDA: : CALL
CMPB
0000006 0000006
BHI
8LO
0000006 0000026
CMP
8HI
18:

2s:

CLC
RETURN

SEC

RETURN

$CVTIDA
$SLBNH, SMXLBN

28
1$
SLBNL,SMXLBN+2
28

s CONVERT PARAMETERS TO LBN
sHIGH BLOCK # IN RANGE?
IF HI NO
sIF LO YES
:LOW BLOCK # IN RANGE?
¢IF HI NO

:SHOW LBN OK
:

:SHOW LBN BAD

288 000454
289 000460
290 000466
291 000470
292 000472
293 000500
294 000502
295 000504
296 000506
297 000510

*x=$TSTMX-TEST FOR END OF DISK AND UPDATE DISK PARAMETERS
THIS SUBROUTINE WILL UPDATE THE DISK PARAMETERS AND TEST

IF THE PARAMETERS WILL OVERFLOW THE DISK.

INPUTS:
$CYL = CURRENT CYLINDER NUMBER
$TRK = CURRENT TRACK NUMBER

$SEC = CURRENT S"CTOR NUMBER

OUTPUTS:
¢S
IF UPDATED PARAMETERS EXCEED DISK LIMITS
cC
IF _UPDATED PARAMETERS ARE STILL VALID.
$SEC = 0 IF NORMAL MGDE.

——

CHECK IF

FEFE FE TR FE PR FE TN

PR TN PN FE N

RETURN

(R3)+,SMXLBN

NN NNNNNY

OoOwVorrurONININ
NI OTM N NN
N NN

COD==O000
OO
b e ek —d b

265 000414

SEQ 0046

SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-¢
e ®e G, 9,

FMTSUB -~ FORMAT

FMYSUB =~ FORMAT SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-5
317 000512
318 000516
329 000522
330 000530
331 000532
332 000536
333 000542
334 000550
335 000552
336 000554
337 000556
338 000560
339

005067
005267
026767
103404
005067
005267
026767
001402
000241
000207
000261
000207

000000G
$TSTMX::CLR
0000006
INC
0000006 0000006 10$:
CMP
BLO
0000006G
CLR
0000006
INC
0000006 0000006 20$%:
(MP
BEQ
cLC
RETURN
308:
SEC
RETURN

$SEC
$TRK
$TRK , SMXTRK
20$
$TRK
$CYL
$CYL,SMXCYL
308

SEQ 0047
:
;
:
;
;
:
:
:
:
.
:
:

START WITH SECTOR ZERO
UPDATE TRACK NUMBER
IS TRACK NUMBER EXCEEDED?
IF LO, NO
RESET TRACK NUMBER
UPDATE CYLINDER NUMBER
IS CYLINDER NUMBER EXCEEDED?
1T EQ YES
INDICATE VALID PARAMETERS

INDICATE PARAMETERS EXCEEDED

%2%

; *«=SUNTID-PUT MESSAGE AND DEVICE/UNIT INTO BUFFER

344

THIS SUBROUTINE WILL STORE THE MESSAGE AND THE DEVICE AND UNIT

347

INPUTS:

350
351

: OUTPUTS:
:
RO = NEXT BUFFER POSITION

gzg

: NUMBER INTO THE BUFFER.

%23

R3 = ADDRESS OF MESSAGE

354 000562

012700

0001446

SUNTID: :MOV

#$8UF +100.,R0

;SET BUFFER ADDRESS

356 000572
357 000576
358 000602
359 000604
360 000610
gg} 000612

116720
116720
005001
156701
005002
000167

0000006
0000016

MOVB
MOVB
CLR
BISB
CLR
JMP

$DVICE, (RO)+
SDVICE+1,(RO)+
R1
$DVUNT,R1
R2
$CBOMG

;STORE DEVICE NAME

355 000566

004767

177446

CALL

0000006

$MOVE

:PUT MESSAGE INTO BUFFER

:GET READY FOR THE BISB
:GET UNIT NUMBER
;SUPPRESS LEADING 0°S
sCONVERT UNIT NUMBER TO ASCII

363
364

367
368
369
370
371

: THIS SUBROUTINE WILL READ THE MDBSF AND THE UDBSF.
: IF WE ARE RE-WRITING THE LAST TRACK, A EMPTY MDBSF AND UDBSF
; IS RETURNED.
:
: INPUTS:

374
375
376

: OUTPUTS:
;
A GOOD SECTOR OF THL MDBSF AND THE UDBSF ARE READ INTO
:
THEIR BUFFERS

%22

; **~$RDBSF-READ MANUFACTURER'S & USER BAD SECTOR FILES

;

%;%

379 000616

380 000622
381 000626
382 000634
383

012703

004767
016767
016767

0000006

177566
0000006 0000006
000002G 0000006

SMXLBN = DISK ADDRESS OF START OF MDBSF.

SRDBSF : :MOV

CALL
MoV
MOV

#$LOGDV,R3

SUPDMX
SMXLBN, SLBNH
SMXLBN+2,8LBNL

: LOGICAL DEVICE ADDRESS POINDER
: UPDATE THE ADDRESS VALUES
: SET DISK ADDRESS OF MDRSF

SEQ 1048

FMTSUB - FORMAT SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-6

: READ THE MDBSF

284
335
386 000642
387 000646
388 000650
389 000652
390 000660
391 000664
392 000670
393 000674
394 000676
395 000702
396 000704
397 000706
398 000712
399 000716
400
401
402
403
404
405
406
407

000722
000724
000730
000732
000734
000740
000742
000744

408 000746
409 000750
410
41
412
413 000754

0000006

18:

000002 0000006 2s:
000000
OOOOOOG
3$:
000222
000000G
0000006
000000G
0000006

0000006

0000006
0000006
0000006
103755

004767

000176

5%:

6$:

0000006
0000006
0000005
V00006

000036

004767

001402

8((
MOV
DEC
BNE
CALL
MOV
JMP
MOV
CALL

63
#$MSG21,R0

CALL

RDBSF

GET NUMBER_OF BLOCKS IN MDBSF

DIVIDE 8Y 2

TRY NEXT USABLE MDBSF BLOCK

GET ADDRESS OF MDBSF BUFFER
READ THE MDBSF
IF CC 0K
CAN'T READ MDBSF

MORE MDBSF BLOCKS AVAILABLE?

SPRINT
#$MSG26
RO
SMSGWR
R1,<(SP)
SPRINT
5?P)*.R1

PRINT THE ERROR MESSAGE

JSR

R5,VYBSF

.WORD
.WORD

$MSG40
SMSG18

SSRTMF

VERIFY THE MDBSF COPY
MDBSF BUFFER POINTER
BAD S/N MSG POINTER
MDBSF CORRUPT MSG POINTER
IF CS, MDBSF CORRUPT
SORT THE MDBSF

MOV

SMXLBN, SLBNH

SET DISK ADDRESS OF UDBSF

ADD
ADC
MOV
ASR
B8R
ADD
ADC

$MBSSZ,SLBNL
$LBNH
$UBSSZ.,R1
1

ADDRESS OF

02 $LBNL
SLANH

TRY NEXT USABLE UDBSF BLOCK

CALL
8CC

RDBS
11%

GET ADDRESS OF UDBSF BUFFER
READ THE UDBSF
IF CC 0K

R1
108
$SPRINT
#SMS 242 RO
$MSGWR

MORE UDBSF BLOCKS AVAILABLE?
IF NE, YES
PRINT THE ERROR MESSAGE
UQ??LE TO RECOVER THE UDBSF
E

SPRINT
(SP)+,R1

PRINT THE MESSAGE

MOV
BR

.WORD

S$MDBSF

IF NE YES

gg??LE TO RECOVER THE MDBSF
SAVE THE MDBSF COUNT
PRINT THE MESSAGE

RESTORE R1
TRY AGAIN

READ THE UDBSF

0000006 0007006
0000026 0000006
000000G 0000006
0000006
0000006

0000006

001042
001044
001046
001052
001056
001062
001064
001070
001072

3s
#2,3LBNL
$LBNH
#SMDBSF
RS

CALL

MOV

000002 0000006 78:
0000006
0000006
8s:
000062
26
4c?
428
429
430
431
432
433
434

$MBSSZ ,R1
R1

8R
ADD
ADC
MOV

8(s

001506
;

016767
016767
066767

MOV
ASR

9s:

108:

11$:

MOV

DEC
BNE
CALL
MOV
JMP
MOV
CALL
MOV

JSR

.WORD
.WORD
.WORD
B(S
CALL

SMXLBN+2, SLBNL

#3UDBSF ,R5

#3MSG43
RO

RS,VYBSS

SUDBSF
$MSG44
$MSG19
9
$SRTUF

THE UDBSF

GET NUMBER OF BLOCKS IN UDBSF

DIVIDE BY 2

CAN'T READ UDBSF

SAVE THE MDBSF COUNT

RESTORE R1
TRY AGAIN
VERIFY THE UDBSF COPY
UDBSF BUFFER POINTER
BAD S/N MSG POINTER
UDBSF CORRUPT MSG POINTER
IF CS, UDPBSF CORRUPT
SORT THE UDBSF

SEQ 0049

FMTSUB - FORMAT SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-7
000207

LR FE FE
PN FE FE FN FE PR

445

26
30
34

012767

012703
004767
000207

+~~RDBSF-READ THE SPECIFIED BSF FILE

READ THE BSF (EITHER MDBSF OR UDBSF) SPECIFIED IN RS
(ROUTINE USED BY °'SRD&SF')
INPUTS:
RS = BUFFER ADDRESS
SLBNL,SLBNH LOADED WITH THE TRANSFER LBN
QUTPUTS:
cC

001000 0000006 RDBSF:
000000¢
0000006

MOV
MOV
CALL
RETURN

IF TRANSFER WAS NOT SUCESSFUL

#512, ,$XFRSZ
#10.RLB!1Q.X.R3
$DSKI0

®e %o Bs 0,

444

RETURN
FN FE ¥

441 001114
442
443

SET SIZE OF ONE SECTOR (BYTES)
SET READ FUNCTION (WITHOUT RETRIES)
READ 1 BLOCK FROM THE BSF

N 4

;

«*=VYBSF-VERIFY THE BSF COPY
(ROUTINE USED BY °'SRDBSF*)

* VERIFY THE BSF COPY SPECIFIED BY TAE INPUT PARAMETERS
R5,vyBST
¥ CALL: JSR

BSF POINTER
POINTER TO °‘XXBSF SERIAL NUMBER DOESN'T MATCH® MSG
POINTER TO 'XXBSF COPY CORRUPT® MSG

; OUTPUTS:

0000006
0000006
000002

0000026
1%:

000002

000006
0
z

000261
005402
005725

3s:
4$:

BNE
CMP
BNE
CMP
BNE
B8R
TST

BNE
TST
BEQ
TST
BEQ
MOV
SEC
BR
TST

(RS5)+,R3
(R5)+,RO
$SWLST
1%

(§3).SSNAHE

2(R3) ,$SNAME +2

2$
(R3)
2%
2(R3)
33
6(R3)

(RS)+,RO

5%
(RS)+

FEFE FERYEFR FN
¥

MOV
MOV
1ST8

LA A
TEFREFEFAFAFE TR YR
FEFE

NNOMNNES
S S W
NORBONSOMNOO

OO0 o
tstst=t=t=t=1=1=1=2=] o

SIS &n

39000000000
0 00 00 O
NI
NE 00
W=D

RO = SPECIFIC ERROR MESSAGE POINTER
cC
0 IF BSF NOT CORRUPT
1 IF BSF CORRUPT
)

GET THE BUFFER POINTER
BAD S/N MESSAGE POINTER
LISTING THE MDBSF ?
IF NE, YES
VERIFY THE SERIAL NUMBER
IF NE, FIRST S/N WORD NOT CORRECT
CHECK THE SECOND WORD

IF NE, SERIAL NUMBER DOESN'T MATCH

CHECK THE ALIGNMENT FLAG
IS SERIAL NUMBER NON-ZERO?
IF NE YES
MAYBE?
IF EQ, NO
TEST THE ALIGNMENT DISK FLAG
IF EQ, BSF 0K
CORRUPT BSF MESSAGE POINTER
SET THE ERROR INDICATOR

CORRECT THE RETURN

SEQ 0050

FMTSUB ~ FORMAT SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-8

5$:

THIS ROUTINE WILL WRITE THE

s
;

16 BIT MDBSF AND THE UDBSF ON THE

PRIMARY DEC STD 144 TRACK (558,13) AND ON THE ALTERNATE TRACK

(559,1).

NONE.

OUTPUTS:
:

541 001332
542 001336
543 001342
544 001350
545

012703

016767

NONE.

001232
001262

SWTBSF::CALL
CALL
MOV
CALL
MOV
001000 0000006
0000006 0000006
MOV
MOV
0000026 0000006

SORT THE MDBSF
SORT THE UDBSF
LOGICAL DEVICE ADDRESS POINTER
UPDATE THE ADDRESS VALUES
SET Ont BLOCK BYTE COUNT
SETUP LBN

$SRTMF
SSRTUF
#$LOGDV,R3
SUPDMX
#512. ,$XFRSZ
$SMXLBN
, $LBNH
$MXLBN+2, SLBNL

012705
016701
006201
012703
004767

0000006

0000006
000000C
000110

MOV
MOV
ASR
MOV
CALL

#SMDBSF ,RS
$M35S2,R1
R1
#10.WLT'1Q.X,R3
1%

LN TS TR NN ¥

; WRITE THE 16 BIT MDBSF
SET MDBSF ADDRESS
GET NUMBER OF BLOCKS IN MDBSF
DIVIDE BY TWO
SET WRITE LAST TRACK FUNCTION CODE

WRITE THE MDBSF

: WRITE THE 16 BIT UDBSF
012705
016701
006201
012703
004767

0000006
0000006
000000C
000066

MOV
MOV
ASR

MOV
CALL

#SUDBSF ,RS
$UBSSZ,R1
R1

UDBSF ADDRESS
GET NUMBER OF BLOCKS IN UDBSF
DIVIDE BY TWO
SET WRITE LAST TRACK FUNCTION CODE

#10.WLT'1Q.X,R3
1%

WRITE THE UDBSF

: WRITE THE ALTERNATE DEC STD 144 TRACK (559,1)
0000006
177052
0000006 0000006
000002G 0000006

MOV
CALL
MOV
MOV

#SPHYDV,R3
SUPDMX
SALFLB,$LBNH
$ALFLB+2,$SLBNL

; CHANGE TO PHYSICAL ADDRESSING
: UPDATE THE MAX VALUES
; ALTERNATE DEC STD 144 ADDRESS

: WRITE THE ALTERNATE MDBSF

546

548 001356
549 001362
550 001366
551 001370
552 001374
553
554

SET THE GOOD INDICATOR
ETURN

* INPUTS:

004767

547

;

*+~SWTBSF-WRITE THE MANUFACTURER'S AND USER'S BAD SECTOR FILES

515 001224
516 001230
517 001234
518 001240
519 001244
520 001252
521 001260
522
523
524
525 00126
526 001272
527 001276
528 001300
529 001304
530
531
532
533 001310
534 001314
535 001320
536 001322
537 001326
538
539
540

CLC

RTS

498 001220
499 001222
500
501
502
503
504
505
506
507
508
509
510
3}
512
513
514

0000006
0000006

MOV

#SMDBSF ,RS

020000c
000020

MOV

#10.FEW'1Q.UMD, R3

MOV
ASR

CALL

$MBSSZ,R1
R1

; WRITE THE ALTERNATE UDBSF

; SET MDBSF ADDRESS

; NUMBER OF BLOCKS IN THE MDBSF
DIVIDE BY_TWO

sSET WRITE FE CYLINDER FUNCTION

FMTSUB - FORMAT SUBROUTINES MACRO M1113 12-JAN~82 11:02 PAGE 2-9
555

§56 001400
557 001406
558 001410
559 001412

012705
016701
006201
012746

561 001420
562 001422
563 001426
564 001430

010346
011603
004767
062767

566 001442
567 0014446
568 001446
569 001450

005301
001366
005726
000207

560 001416 000401

0000006
0000006
000000C

0000006
000002 0C)0006

1$:
28:

565 001436 005567 0000006

570

SEQ 0051

MOV
MOV
ASR
MOV

#SUDBSF RS
: UDBSF ADDRESS
$UBSSZ,R1
; UDBSF SIZE
R1
DIVIDE BY TWO
#10.FEW!IQ.UMD,~(SP)
;SET WRITE FE CYLINDER FUNCTION

MOV
MOV
CALL
ADD

R3,=(SP)
(SP) ,R3
$DSkio
#2,SLBNL

DEC
BNE
ST
RETURN

R1
2
(SP)+

B8R

ADC

$LABNH

*
:
*
:

SAVE THE FUNCTION CODE
LOAD THE FUNCTION CODE
WRITE THE BLOCK
UPDATE BLOCK NUMBER

: FINISHED WITH. THE BSF ?
* IF NE NO
* CORRECT THE STACK
:

571
g;g

ot
. **~SRDSSF-READ RM80 SKIP SECTOR FILE

574

THIS ROUTINE WILL READ THE SKIP SECTOR FILE FOUND ON THE FIRST TRACK

577

INPUTS:

580

: OUTPUTS:

g;g

* OF THE FE CYLINDER AREA ON THE RMSO.

;

233
gg;

$SSFLB = DISK ADDRESS OF START OF SKIPPED SECTOR FILE

A GOOD COPY OF THE SSF IS READ INTO SSF BUFFER

‘-

585 001452
586 001456
587 001462
588 001470
589 001476

012703
004767
012767
016767
016767

0000006
$RDSSF : :MOV
176732
CALL
000000¢ 0000006
MOV
0000006 0000006
MOV
0000026 0000006
MOV

591 001510

010146

MOV

R1,-(SP)

590 001504

592 001512

016701

000405

0000006

MOV
BR

#SPHYDV,R3
: PHYSICAL DEVICE ADDRESS POINTER
SUPDMX
UPDATE THE_ADDRESS VALUES
#512. *<SSSFLND>, sxrnsz
SET SIZE OF ONE COPY OF SSF (BYTES)
SSSFLB,SLBNN
. SET D1$K ADDRESS OF SSF
$SSFLB+2,SLBNL
-

$5SFS2.R1

: GET NUMBER OF COPIES OF SKIP SECTOR FILE

s’

* CONTINUE

: SAVE THE COPY COUNT

593 001514
394 001522
595 001526

062767
105567
012705

0000006 000000G 1$:
0000006
0000006
28:

ADD
ADCB
MOV

#SSSFLN SLBNL
$LB
xsssr RS

598 001542
599 001544

103017
012700

0000006

BCC
MOV

5$
#$MSGS58,RO

: IF €C, OK
* CAN'T READ SSF

401 001552
602 001554
603 001556
6N, 001562
605 001566
606 001572
607 001574
608 001600

005301
001006
004767
012700
000167
010146
004767
000745

R
4s
SPRINT
#SMSG41,RO
$MSGWR
R1,=(SP)
spa1~r
1$

*
:
*
*
+
:
*
*

596 001532
597 001536

600 001550

609 001602
001600
611 001612

012703
004767

012601

012700
2701
004767

000000C
0000006

0000006
0000006
0000006
0000006

0000006
1777776
176556

38:

4$:

58 :

MOV
CALL

MOV

DEC
BNE
CALL
MOV
JMP
MOV
CALL
BR

MOV
MOV
CALL

: TRY NEXT USABLE SSF COPY

GET ADDRESS OF SKIP SECTOR FILE BUFFER

#10.FER11Q.UMD, R3
: SET READ FE CYLINDER FUNCTION
$DSKIO
: READ 1°COPY OF SSF

(sP)+.R{

#$SSF ,RO
#$SSFHD=1,R1
SSFCRC

: GET THE SSF COPY COUNTER

DECREMENT THE COPY COUNTER
IF NE, TRY AGAIN
PRINT THE ERROR MESSAGE
UNABLE TO RECOVER SSF
EXIT, CAN'T READ SSF OR SSF CORRUPT
SAVE R1
PRINT THE MESSAGE
TRY AGAIN

* START WITH HEADER
: AND ITS LENGTH
* COMPUTE HEADER CHECKSM

SEQ 0052

FMYSUB - FORMAT SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-10

612 001616
613 001620

020120
001020

615 001626
616 001632
617 001634
618 001636

004767
02011C
001612
005767

614 001622

619 001642

012701

001407

620 001644
621 001650
622 001652
623 001660
624 001662

005767
001404
122767
001403
012700

626 001670
627 001672
628 001676

005726
105767
001026

625 001666

629 001700
630 001704
631 001706
632 001714
633 001722
634 001724
635 001732
636 001734
637 001742
638 001744
639 001750
22? 001754

000730

105767

001007
016767
016767
000414
026767
001004
026767
001404
012700
000167
000167

1777776

R1,(RO)+
63

: CHECK THE CHECKSUM WORD
s IF NE, BAD CHECKSUM

CALL
CMP
BNE
TST

SSFCAC
R1,(RO)
63
$SSF+4

;
;
:
:

COMPUTE CHECKSUM OVER DATA AREA
CHECKSUM 0K?
IF NE, NO
CREAT]ITMN DATE PRESENT

;
:
:
:
;

REVISION DATE PRESENT
1* EQ, NO
16 BIT NODE SSF ?
IF EQ, YES
SSF TORRUPT

MOV

176542

0000046
000006G

000001

NP
BNE

0000006
000000G

6%:
7$:

B8R

TST8

300000G 0000006
000002G 0000026G

0000006 000000G 8%:
0000026 0000026G

642

(3 1

TST
TSTB
BNE

000000G

000000G
0000006
000446

BEQ

TST
BEQ
CMPB
BEQ
MOV

0000126

9%:
108:

#$SSFDT=-1,R1

BNE
MOV
MOV
BR
CMP
BNE
CMP
BEQ
MOV
JMP
JMP

$SSF+6
63
#1,855F+12
7%
#SMSGS9,RO
(5P)+
$SWLST
108

$SWMOD

8s
$SSF , SSNAME
$SSF+2,8SNAME+?
108
$SSF ,$SNAME
9%
$SSF+2,8SNAME+2
108
#MSGERS RO
$MSGWR
$SRTSF

; DATA FIELD LENGTH

: IF EQ, NO

: TRY AGAIN

: CORRECT THE STACK
: LISTING THE BSF'S ?
: IF NE, YES

:
:
;
;
:
;
:
;
;
:
;s
:

MODIFYING THE BSF'S
IF NE, YES
COPY THE SERI L NUMBER
CHECK THE SERIAL NUMBER
IF NE, DOESN'T MAT(CH
CHELK THE SECOND S/N WORD
IF EQ, S/N 0K
HDA AND ENTERED SERIAL NUMBER DON'T MATCH
EXIT
SORT THE SSF AND RETURN

gzz

: w«x=SWYTSSF-WRITE RMBO SKIP SECTOR FILE

645

THIS ROUTINE WILL WRITE THE SKIP SECTOR FILE FIVE TIMES ON THE FIRST

648

INPUTS:

229

TRACK OF THE FE CYLINDER AREA OF THE RM80 (559,0).

ggg

651
652
653

; OUTPUTS:
:
WRITE SKIP SECTOR FILE
:

656 001760
657 001764
658 001770
659 001776
660 002000
661 0020046
662 (02010
663 002012
664 002016
665 002022

666 002024
667 002032
668 002036

004767
012703
004767
012700
012701
004767
010120
012701
004767
010110

012767
012705
012703

000442
000000G
176420
0000006
1777776
176364

1777776
176352

000000C 0000006
0000006
000000C

$SSFLB = DISK ADDRESS OF START OF SKIP SECTOR FILE

SWTSSF: :CALL
MOV
CALL
MOV
MOV
CALL
MOV
MOV
CALL
MOV

MOV
MOV
MOV

$SRTSF
#SPHYDV ,R3
SUPDMX
#$SSF RO
#$SSFHD-1,R1
SSFCRC
R1,(RO)+
#8SSFDT-1,R1
SSFCRC
R1,(R0O)

: SORT THE SSF
: PHYSICAL DEVICE ADDRESS POINDER
: UPDATE THE ADDRESS VALUES
JGET POINTER TO SKIP SECTOR FILE
JGET LENGTH OF HEADER
: COMPUTE HEADER CHECKSUM
;STORE CRC AWAY
JGET LENGTH OF SSF DATA AREA
G0 COMPUTE CHECKSUM OVER DATA
JSTORE THE DATA FIELD CRC

0512.t<$SSFLN>.$XFRSZ
:SET SIZ2E OF ONE COPY OF SSF (BYTES)
#3SSF RS
JSET SK1P SECTOR FILE BUFFER ADDRESS
lIO.FéH!IO.UHD.RJ
JSET WRITE FE CYLINDER FUNCTION

SEQ 0053

FMTSUB - FORMAT SUBROUTINES MACRO M1113 12 ~JAN-82 11:02 PAGE 2-11

N
L

$SSFLB, SLBNH
$SSFLB+2, SLBNL

CALL

$DSKIO

MOV

ADD
ADCB
DEC
BNE

RETURN

$5SFSZ,R1

#$SSFLN, SLBNL
SLBNH
R1
1

:SETUP LBN
Ve 00,0,
0

MOV
MOV

Ve Ve

000000G 0000006
0000026 0000006
00006
1%:
00006
0000006 0000006
0000006

"GET NUMBER OF CGPIES OF SKIP SECTOR FILE
WRITE THE SSF

UPDATE BLOCK NUMBER

FINISHED ?
IF NE, NO

016767
016767
016701
004767
062767
105567
005301
001367
000207

[=]=]
o0

669 002042
670 002050
671 002056
672 002062
673 002066
674 002074
675 002100
676 002102
677 002104
678

*#~$SRTRK-SEARCH BSF OR SSF FOR ANY SECTOR ON A TRACK
THIS ROUTINE WILL SEARCH EITHER THE BSF OR THE SSF FOR ANY SECTOR
ON THE CURRENT TRACK AND CYLINDER.
IF ONE IS FOUND, THEN NO ADDITIONAL
SECTORS MAY BE SKIPPED ON THE CURRENT TRACK AND CYLINDER.

R2 =

: OUTPUTS:
(C =
N
:

(S =

:
:

$SRTRK : : CMP

177777
0000006

000003

18:

2s:
3s:

SOME SECTOR ON THE CURRENT TRACK AND CYLINDER
R1 =
ADDRESS OF BSF OR SSF ENTRY
SPECIFIED FILE EXHAUSTED
POINTS TO NEXT ENTRY
Rl =

(R1)+,(R1)+

CMpP
BEQ
CMP
BNE
MPB
BNE

(R1) ,#-1
33
(R1),8CYL
2%
3(R1),$TRK
2%

CMP
BNE
SEC

R1,R2
$SRTRK

cLC
RETURN

RETURN

POINT OT NEXT ENTRY IN SPECIFIED FILE
FILE EXHAUSTED
IF EQ, YES
CYLINDER NUMBER MAT(H ?

IF NE, NO

TRACK NUMBERS MAT(CH ?
IF NE, NO
SHOW ENTRY WAS FOUND

IS SPECIFIED FILE EXHAUSTED ?
IF NE, NO
SHOW SPECIFIED FILE EXHAUSTED

i 2

FEA FR FE PR FE FE YR FE TR YR FENE

000207

705 002134
706 002136
707 002140
708 002142
709 002144
7}? 002146

0000006

ADDRESS OF EITHER BSF OR SSF

MAXIMUM ADDRESS OF THE FILE SPECIFIED IN R1

TRFE FE
FEFIE FE
TR¥

TR TR

LA TR

. INPUTS:

*%~$SRALL-SEARCH ALL THE BAD SECTOR FILES
$SRFES-SEARCH THE FE CYLINDER BUFFER

$SRMDF -SEARCH MANUFACTURER'S BAD SECTOR FILE
$SRUDF=-SEARCH THE USER'S BAD SECTOR FILE
$SRSDF~SEARCH THE SKIPPED SECTOR FILE

$SMBSF-SEARCH THE FILE SPECIFIED BY R1 & R2
TH'S ROUTINE WILL SEARCH THE SPECIFIED FILE FOR A MATCH.

INPUTS:

$SEC, STRK, AND $CYL PRESET

'$SMBSF*

INPUTS:

000040
000006
0000006

1777746

0000046

$SRMDF : :MOV

#SMDBSF
+4 ,R1

. MDBSF STARTING ADDRESS

;gg 002244 000411
759 002246 012701 0000046

B8R
$SRUDF : :MOV

3s
#SUDBSF +4 ,R1

:
- UDBSF STARTING ADDRESS

756 002240

012702

0007746

MOV

760 002252

012702

0007746

763 002260
764 002264

012701
012702

000000C
000000C

767 002270
768 002272
769 002276
770 002300
771 002304
772 002306
773 002314
774 002316
775 002324
776 002326
777 002330
778 002332
779 002334
780 002336
781 002340
782

022121
021127
001417
021167
001012
126167
001006
126167
001002
000241
000207
020102
001355
000261
000207

$SMBSF : : CMP
CMP
BEQ
0000006
CMP
BNE
000003 0000006
CMP8
BNE
000002 0000006
CMP8
BNE
cLe
RETURN
48:
CMP
BNE
58 :
SEC
RE TURN
.DSABL
LSB

;g; 002256

;22 002270

000404

177777

MOV
BR

$SRSDF : :MOV
MOV

38:

: FEBSF LENGTH

S~
g—
—
—
.

012701

755 002234

p——

p—

0001006

B8R

—
——
—

012702

;gz 002232 000416

#$MpBSF +1000-4 ,R2

: MDBSF LENGTH

#$UDBSF +1000-4 ,R2

. UDBSF LENGTH

#SSSF+<2¢$SSFHD>~4
,R1
; SSF STARTING ADDRESS (=4)
#$SSF +<1000*$SSFLN>=2,R2
: SSF ENDING ADDRESS

(R1)+,(R1)+
(R1),4-1
s$
(R1),8CYL
4
3(R1),$TRK
4
2(R1),$SEC
43
R1.R2
38

—

: FEBSF STARTING ADDRESS

NSFEBSF+64.,R2

—

#SFEBSF-4 ,R1

————

$SRFES : :MOV

MOV

SAVE THE SECTOR ADDRESS
SEE IF ENTRY IN THE SSF
IF ¢C, IT IS
SEE IF ERROR SECTOR IS WITHIN A SKIP REGION
IF €S, NO
DECREMENT THE SECTOR ADDRESS
SEARCH TNE MDBSF
IF CC, ADDRESS PRESENT
SEARCH THE UDBSF
1F €C, ADDRESS PRESENT
SEE IF ENTRY DUPLICATED IN THE FE AREA
RESTORE THE SECTOR ADDRESS

—

:
*
:
:
2
:
*
:
*
:
:
*
:

—

0000006
000034

$SEC,~(SP)
$SRSDF
28
$SRSSF
13
$SEC
$SRMDF
23
$SRUDF
2
SSRFES
(SP)+,$SEC

—

012701

752 002226

0001564

$SRALL : :MOV
CALL
BCC
CALL
BCS
DECB
1$:
CALL
8CC
CALL
BCC
CALL
28:
MOV
RETURN

—

751 002222

0000006
000100

LSB

—

016746
004767
103015
004767
103402
105367
004767
103005
004767
103002
004767
012667
000207

.ENABL

IF ¢S

R1 = ADDRESS OF MDBSF ENTRY.
R3 = ISOLATED BAD SECTOR FLAGS.
R1 = POINTS TO NEXT ENTRY (FILE EXHAUSTED)

—

737 002150
738 002156
739 002160
740 002162
741 002166
742 002170
743 002176
7644 002200
745 002202
746 002206
747 002210
748 002214
;gg 002220

IF CC

——— —

;gg

;
;
;

——

734

R2 = LAST ADDRESS OF SPECIFIED FILE

—

QUTPUTS:

730
731
;§§

R1 = ADDRESS OF LAST BSF ENTRY (INITIALLY $BSF+4)

—

729

;

SEQ 0054

—

;

—

726

;gg

g—

FMYSUB - FORMAT SUBROLTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-12

: POINT TO NEXT MDBSF ENTRY
: MDBSF EXHAUSTED?
* IF EQ YES
* CYLINDER NUMBERS MATCH?
* IF NE NO
* TRACK NUMBERS MATCH?
: IF NE NO
* SECTOR NUMBERS MATCH?
: IF NE NO
SHOW ENTRY WAS FOUND
;
P IS SPECIFIED FILE EXHAUSTED?
* IF NE, NO
SHOW MDBSF EXHAUSTED
:

783
784

; *x=$SRSSF-SEARCH SSF FOR AN TRACK ENTRY

787
788

:
:

THIS ROUTINE WILL SEARCH THE SSF FOR AN ENTRY ON THE CURRENT TRACK AND
CYLINDER.
IF AN ENTRY IS FOUND WHICH IS LESS THAN THE SECTOR ADDRESS

791
792
793

:
:
:

INPUTS:
$CYL LOADED WITH THE CYLINDER ADDRESS
$TRK LOADED WITH THE TRACK ADDRESS

796
797

: OUTPUTS:
:
cC =

;gg

800
801 002342

010146

803 002350

021167

804 002354
805 002356
806 002364

807 002366

012701

000000C

001012
126167
001006

000003

0000006

126167

000002

0000006

020127

000000C

808 002374
809 002376
810 002400

101011
000241
000410

812 002406
813 002410
814 002412
815 002416
816 002420
817 002422
g}g 002424

001404
022121
021127
001354
000261
012601
000207

811 002402

$SEC LOADED WITH THE SECTOR ADDRESS

0000006G

€S =

: SAVE R1

1$%:

(R1),8CYL

H CYLINDER NUHBERS MATCH

2(R1),8$SEC

: CHECK FOR A SECTOR

CMP

23
3(R1),$TRK
23

BHI
cLC
BR

cmP8

2s:

38:
48:

#SSSF +<2¢8SSFHD> R

BNE
CMPB
BNE

cMP

BEQ
CMP
cmP
BNE
SEC
MOV
RETURN

820

823

;

825
826

H
: OUTPUTS:

BEGINNING ADDRESS OF SSF DATA

: IF NE,
: TRACK NUHBERS MATCH ?
:; IF NE, NO

: IF HI, SSF ENTRY HIGHER THAN $SEC
; SHOW ENTRY WAS FOUND

91 tsssr+<1ooo~sssrL~>-2
(R1)+ (R1)+
(R1) ,#-1
18
(SP)+,R1

;
:
:
:
:
;

: SSF BUFFER END ?

IF EQ, YES
INCREMENT BUFFER POINTER
SEE IF END OF DATA
IF NE,
N
SHOW sssc' NOT IN SKIP REGION
RESTORE R1

: **=$SRTSF=-SORT THE SSF BUFFER

824

ggg

850

NO SSF ENTRY .LE. ADDRESS IN S$CYL,$TRK,S$SEC
R1,-(SP)

177777

gs}

SSF ENTRY .LE. ADDRESS IN S$SCYL,STRK,$SEC

$SRSSF : :MOV

MOV

INPUTS:

NONE

SSF FILE SORTED IN ASCENDING SEQUENCE

‘-

831 002426
832 002434
833 002440
834 002444
835 002450

012767
005067
005067
004767
010103

001061
0000006 $SRTSF: :MOV
0000006
CLR
0000006
CLR
177610
CALL
MoV

#561.,8CYL
$TRK
$SEC
$SRSDF
R1,R3

:
:
s
:
:

g%g 002456

000167

000070

$SORT

: SORT THE SSF

836 002452

839

012701

000000C

MoV

JMP

LOAD A PHONY CYLINDER ADDRESS
CLEAR THE TRACK ADDRESS
"
‘“ SECTOR
'
FIND THE END OF THE DATA
COPY tus END OF DATA POINTER

#sssr+<2'sssrnb> R1

"
e

: IN "S$SEC', THE ROUTINE WILL RETURN WITH THE 'C' BIT CLEAR.

—

;gg

[a X

;gz

802 002344

SEQ 0055

FMTSUB - FORMAT SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-13

SSF STARTING ADDRESS

SEQ 0056

FMYSUB = FORMAT SUBROUTINES MACRO M1113 1c-JAN-82 11:02 PAGE 2-14
*+-$SRTMF-SORT THE MDBSF BUFFER
INPUTS:

NONE

: OUTPUTS:

MDBSF SORTED IN ASCENDING SEQUENCE

0000006 $SRTMF : : MOV
CLR
0000006
CLR
177530
CALL
MOV
MOV
0000106
JMP
000034

001061

n000906

012767
005067
005067
004767
010103
012701
000167

$SRMDF
R1,.R>
NSMDBSF+10,R1
$SORT

N LOAD A PHONY CYLINDER ADDRESS
: CLEAR THE TRACK ADDRESS
** SECTOR
:
:
:
:
:

SEARCH THE MDBSF
COPY THE END OF DATA POINTER

MDBSF

STARTING ADDRESS

SORT THE MDBSF

**~$SRTUF-SORT THE UDBSF BUFFER

INPUTS:

NONE

OUTPUTS:
UDBSF SORTED IN ASCENDING SEQUENCE

001061
0000006 $SRTUF : :MOV
0000006
CLR
0000006
CLR
177506
CALL
MOV
MOV
0000106
000000
JMP

#561.,8CYL
$TRK
$SEC
$SRUDF
R1,R3
#SUDBSF +10,R1
$SORT

H
:
M
;
H
H

LOAD A_PHONY CYLINDER ADDRESS
CLEAR' THE TRACK ADDRESS
SEARCH THE UDBSF
COPY THE END OF DATA POINTER
UDBSF_STARTING ADDRESS
SORT THE UMDBSF

870 002516

#561.,8CYL
$TRK
$SEC

012767
005067
005067
004767
010103
012701
000167

Ve Ve 0008, 9¢ %, ¢, %, 8,

850 002462
851 0026470
852 002474
853 002500
854 002504
855 002506
856 002512

++~$SORT-SORT THE INPUT TABLE
THIS ROUTINE SORTS THE INPUT TABLE IN ASCENDING ORDER
BASED ON DISK ADDRESSES.

INPUTS:
R1 = TABLE START ADDRESS
R3 = TABLE UPPER LIMIT ADDRESS
OUTPUTS

SORTED TABLE

892 002552
893 002554
894 002556
895 002562
896 002564

$SORT:

000004

MOV

R3.R2

H R2 = CURRENT ENTRY POINTER

CMP
BHIS

#4 ,R2
43

: TWO ENTRIES IN TABLE
: }§I¥OT$HIS). NO NEED TO SORT
:

sSu8

MOV

R1,R2

: TEST FOR AT LEAST

SEQ 0057

912 002646

(RY), (R2)

000002
2%:

000002
000002
000002

4% TEMP

MOV

33
23
2(R1),2(R2)
3s
(R1),~(SP)

2(R15,-(sP)
(R2),

2(R23 ,2(R1)

000002
3s:

CMP

(SP)+.2(R2)
(SP)+. (R2)
(R2)+,(R2)+
R%.RS
1

(R1)+,(R1)+

000012

R1,TEMP
43
P1,R2

¢+, (R2)+
\R2)

000207

68:

RETURN

000000

TEMP:

+WORD

S PR FEFE
FEFE PR FE PN
NY

000002

000070

FORM AND SAVE

UPPER LIMIT ON R1
CYL I = CYL I+1?
IF LT
YES
IF NE CYL I > CYL_I+1
CYL I = CYL I+1.,..TEST TRK/SEC
IF LE
NO SWAP NECESSARY
SWAP ENTRIES

UPDATE R2

THIS PASS DONE?
IF LT
NO

UPDATE R1

ALL DONE?

IF GE
YES
RESET R2

SORT WORK LOCATION

913 002650
914 002652
915 002654
916 002660
917 002662
913 002664
919 002666
920 002670
921
92% 002672

000004

(R2)
¢+, (R2) ¢+
R3, TEMP

A FE FE FI FIE IRFE PN YFE PR FE

002620
002622
002626
002630
002636
002642
002644

000076

LA TE

905
906
907
908
909
910
911

Sgooooooooooooo-ooo
PNIN) b cd ced ) aad =d PO ONION =)

897 002566
898 002570
899 002574
900 002602
901 002604

NNNONININION =0 = NON = N =2 NICIN)
=2 NYAINIONONNINY
= b PN 2 O S =2 NN Y
NVION
OO =800
=00 N
-t BN ANININY
= =2 ONONNIND 8 NN
NI NN

FMYSUB -~ FORMAT SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-15

*«=GENHDR~GENERATE HEADER WORD PATTERN
THIS SUBROUTINE WILL GENENRATE THE 4-WORD HEADER PATTERN.

INPUTS:

R 0 = BUFFER ADDRESS

951 002744
952 002750
953 002752

0000006
0000006 000002
0000006 000003
150000
0000006
0000006

GENHDR
: :MOV

MOVB
MOov8
8ls
MOov8
1ST8

8EQ
8IS
DECB
B8R

020000
0000006

)

.2(R0O)
$TRK, 3(R0O)

#150000, (RO)
$SEC,-(SP)
SKPFRE
18
#20000, (RO)
$SEC

LA TR FE
YNFE FN
YN PN ¥

N‘*V;‘VVV\J

O \WNN) = \NONNVOONON

935
936 002674
937 002700
938 002706
939 002714
940 002720
941 002724
942 002730
943 002732
944 002736
945 002742
946
947
948
949
950

O=OO—=~=O—=—0

OUTPTUS:
R 0 = UPDATED BUFFER ADDRESS
SET CYLINDER NUMBER
SET SECTOR NUMBER
SET TRACK NUMBER
SET GOOD SECTOR AND 16-BIT FORMAT FLAGS
SAVE THE CURRENT SECTOR ADDRESS
LOOK AT THE SKIP SECTOR FLAG
IF EQ, NO SKIP SECTOR ON THIS TRACK
SET SKIP SECTOR FLAG IN HEADER (BAD)
DECREMENT THE SECTOR ADDRESS

¢ SEARCH THE SKIP SECTOR FILE FOR A SECTOR ON THIS TRACK THE SAME AS
s 'SSEC’.
IF_A SECTOR IS FOUND, THEN SET THE SKIP SECTOR FLAG IN THE
s REMAINING HEADERS AND NOTE THAT A SKIPPED SECTOR WAS FOUND.
177310

020000

1$:

CALL
BCS
BIS

$SRSDF

23
#20000, (RO)

; SEARCH THE SKIP SECTOR FILE
IF CS NO SECTOR THE SAME

* SET SKIP SECTOR FLAG (BAD)

SEQ 0058

FMTSUB - FORMAT SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-16
954 002756
955 002762

105267
000421

0000006

INCB
BR

SKPFRE
5%

I;grSKIPPED SECTOR FLAG

: SEARCH THE MDBSF, UDBSF, & THE FE BSF BUFFER FOR A MATCH.
;

960 002764
961 002770
962 002772
963 002776

004767
103403
042710
000413

965 003000
966 003004
967 003006
968 003012

004767
103403
042710
000405

970 003014
971 003020
972 003022

004767
103402
042710

974 003032
975 003036

066700
000207

977

000001

973 003026

112667

177244

FOUND,

2$:

100000
177242

3s:

040000
177202
140000

0000006
0000006

4S8

5%:

SET THE BAD SECTOR BITS IN THE APPROPRIATE HEADER.

CALL

BCS
8IC
BR

#100000, (RO)

CALL
8(s
BIC
BR

$SRUDF
‘3

CALL
BCS
8IC
MOVB

$SRFES
5$
#140000 , ( (RO)
(SP)+.,$ SEC
3

ADD

RETURN

.END

ggRHDF

#40000, (RO)

SECSZ.RO

[F ONE IS

SEARCH THE MDBSF
IF _CS, MDBSF EXHAUSTED
CLEAR THE MF BIT (BAD)

SEARCH THE UDBSF
IF (S, UDBSF EXHAUSTED
CLEAR THE UF BIT (BAD)
SEARCH THE FE BSF
IF CS, FE BSF EXHAUSTED

CLEAR BOTH THE UF & MF BITS (BAD)

RESTORE

THE SECTOR ADDRESS

UPDATE BUFFER ADDRESS

SEQ 0059

FMTSUB - FORMAT SUBROUTINES MACRO M?1:,3 12-JAN-82 11:02 PAGE 2-17
SYMBOL TABLE

Q000SOR
002674RG

ERROUYT
GENHDR

$SBUFRX= anennt (X
$CBDMG= cveennn GX
$CBOMG= waeeen (GX
$CVTDA
000132RG

JO.FER= wereee (X
JO.FEW= weener GX
JO.HMS=

weneer

$CyL
=
$DSK10=

JU.RLB= wewnne GX

[0.WLT=

seeene

IQ.UMD=

wreenn

wennee

Q.
X

MSG

000336R

MSGER8= serene GX
RDBSF
001116R
SECSZ

reennn

TEMP

TRKSZ

VYBSF

SALFLB=
$BUF

002672R
wtwwan

001136R
wenxenr

tennne

$OVICE= ranene X
$DVUNT= saenee OX
$SEROCT
000074RG

reeese

eeeneer

GX
GX

000000
003040
ERRORS DETECTED:

000204RG

000342RG
0V0000RG

wennne

txenee

revtnn

annner

122228BNcY |

teknans

rannan

sutnnn

reknne

teaene

enennnn

908 WORDS
( & PAGES)
7942 WGRDS
( 30 PAGES)
00:00:32
ELAPSED TIME:
(300,201FMTSUB, [300,30]1FMTSUB=[300,10]JFMTSUB

DYNAMIC MEMORY:

ranane

wenker

000
001

VIRTUAL ME.1ORY USEL :

awnane

ERITTIT NG |

eenenn

000032RG

000240RG

. ABS.

TEARAY

ket

sexenn

wawens

rannse
vt

()

(GX

000374R

sennne

weeanne

SKPFRE= weanner GX

SSFCRC

snnene

$PRINT= stenan GX
SPRMPT
000250RG
$PRNT0= tenene X
$RDBSF
000616RG
$RDSSF
001452RG
sanenn GX
$SREAD
sk GX
$SEC
$SMBSF
002270RG
$SNAME
= saneen GX

$SORT

SSRALL
$SRFES
$SRMDF
$SRSDF
$SRSSF
SSRTMF
$SRTRK
$SRTSF
$SRTUF

002552R
002150RG
002222R6
002234R6
002260RG
002342RG
002462RG
002106RG
002426RG
002516RG

$SRUDF
002246R6
= teeeen (X
$SSF
$SSFDT= seanee X
$SSFHD= sreane (X
$SSFLB= weenve GX
$SSFLN= sennet GX
$SSFS2= sreaes (X
$SWLST= trenee 45X
$SWMOD= LAL3 1L GX
= tRReEY
$TRK
STSTDA
000454RG
$TSTMX
000512RG
$UBSSZ= rerane GX
= teennn GX
$UDBSF
SUNTID
000562RG
SUPDMX
000414RG
SWTBSF
901224RG
SWISSF
001760RG
$XFRSZ= teneen GX

SEQ 0060

FMTPRS = GET AND PARSE COMMAND MACRO M1113 12-JAN-82 11:02 PAGE 2
1

_TITLE

FMTPRS - GET AND PARSE COMMAND LINE

"IDENT

;

10
1
12
13
}g

: OF
THE
ABOVE COPYRIGHT
NOTICE.
THIS SOFTWARE, OR
ANY
OTHER
: COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
MADE AVAILABLE
* TO ANY
OTHER PERSON EXCEPT
FOR USE ON SUCH SYSTEM AND TO ONE
* WHO AGREES 70 THESE LICENSE TERMS.
TITLE
TO AND OWNERSHIP OF
: THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

8
9

701.00/

* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
: THIS
SOFTWARE
IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
* SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION

* THE

: EQUIPMENT CORPORATION.

INFORMATION

: DIGITAL ASSUMES NO
.

B8Y

DIGITAL

RESPONSIBILITY FOR THE USE OR RELIABILITY OF

* VERSION 01.00

* C. HESS

29
30

LMCALL
.MCALL

g} 000000

TO CHANGE WITHOUT

COMMITMENT

ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

IN THIS DOCUMENT IS SUBJECT

> NOTICE AND SHOULD NOT BE CONSTRUED AS A

: M. LEAVITT

14-AUG-80

14-0CT-80

DIRS, ISTATS, STATES, TRANS
DEVDF$

DEVDFS$

SEQ 0061

FMTPRS = GET AND PARSE COMMAND MACRO M1113 12-JAN-82 11:02 PAGE 3
MR4

«*=$PARSE~-PARSE

COMMAND

LINE

THIS ROUTINE WILL GET THE COMMAND LINE AND PARSE

DEVICE NAME AND SWITCHES.

THE

INPUTS:

NON

QUTPUTS:

177777
0000006
0000006
0000006
0000006

000167

000C006

81 000150
82 000154
83 000156
84 000162
85 000166
86
87 000170
88 000174
89
90

$PRMPT
28
¢1E.E0FL377,3105
|

SFMTEX

FIRST TIME THRU HERE ?
BR IF YES
GET ADDRESS OF MESSAGE
PRINT

‘annnnnenst’l|
~D>

GET PROMPT MESSAGE

DDRESS

PROMPT USER AND GET RESPONSE

IF NE COMMAND LINE ENTERED

; END OF INPUT?

IF NE NO
EXIT GRACEFULLY

103435
005767
100745

MOV
MOV

177777 €200006
0000006

0000006
0000006
0000006

3s:

000000¢ 0000006
0000006

000000°*
0000006
000010°*
0000006

000207

012700

000167

000134
0000006
0000006
0000006

CLR
MOV
MoV

CALL
8(Cs
TST
B8MI
MOV
CALL
BNE
CMP8
BNE
JMP
CLR
MOV
MoV
MOV
CALL
8(CS
CALL
MOV
RETURN

SYNTAX: MOV

JMP

R1
NUNTKT1,R2
#$BUFRX R4

NUNIT.RS

#-1,SOVONT
.TPARS
SYNTAX

$SDVUNT
18
#$MSG71,R0
$SPRMPT
43

zgf.EOF5377.SIOS
SFMTEX
R1
#OPTKT2 ,R2
#SBUFRX
, R4
#OPTION
RS
. TPARS
SYNTAX
$TSTDV

SDVUNT ,R1

Y T

2$:

AT Y

000000
0000006
000000°*

AT IRTR WA WA

005001
012702
012704
012705
012767
004767

s SETUP TO CALL THE PARSER

PEVTINE

70 000102
71 000104
72 000110
73 000114
74 000116
75 000124
76 000126
77 000132
78 000134
79 000140
80 000144

CALL
MOV
CALL
BNE
CMPB
BNE
JMP

FTRA FE PR FE FE FR PR FR 1

66 000062
67 000070
68 000074
69 000076

1$:

000000C 0000006

62 000044
65 000046

MOV

#-1
18
#$STARS ,RO
SPRINT
#$MSG70,RO

56
57 000036
000040

$PARSE
: : INC
BEQ

Ve %o

005227

000000

s Ve BN, ve s N,

R1 = DE VICE
UNIT NUMBER
1
EXIT IS TO ''SMESAG'' IF ERROR.
EXIT IS TO ''SFMTEX'® COMMAND LINE TERMINATED WITH ‘EOF'’.

#$MSG2 RO
$MSGWR

CLEAR OPTIONS WORD
GET KEYWORD TABLE ADDRESS
GET ADDRES> OF COMMAND LINE
GET STARTING STATE ADDRESS
RESET DEVICE NUMBER
GO PARSE THE INPUT LINE
IF (S _SYNTAX ERROR
NULL PARSE?
IF MI, YES
GET PROMPT MESSAGE ADDRESS

PROMPT USER AND GET RESPONSE

IF NE COMMAND LINE ENTERED

: END OF INPUT?

IF NE NO
EXIT GRACEFULLY
CLEAR OPTIONS WORD
GET KEYWORD TABLE ADDRESS
GET ADDRESS OF COMMAND LINE
GET STARTING STATE ADDRESS
GO PARSE THE INPUT LINE
IF CS SYNTAX ERROR
MAKE A FINAL DEVICE TEST
SET SPECIFIED UNIT NUMBER
ALL IS OK

SYNTAX ERROR
: EXIT WITH WARNING STATUS

FMTPRS = GET AND PARSE COMMAND MACRO M1113 12-JAN-82 11:02 PAGE 3-1

g:STATE TABLE FOR ‘TPARS' PARSER

gé
g? 000200
g

NLIST MEB
ISTATS UNTST1,UNTKT1
: ReAD DEVICE AND UNIT NUMBER

WA =O
NV
WN = OV
=O VO VOV
NONH WA = O VD NONEB WA =20 VOO NS W

b o

b e md

b e md wd nd o

b d

b e

D md e

D e

D d

D wed

b ed

D e

b —d

b e

2 D N NNWN NN NN N NN NI NI N NN PINININ) b D D e ad ad ed b 2 S O O O OO0 O OO0 VY

000200
000200
000200

STATES

000200

STATES

000200

ISTATS

TRANS
TRANS

SEQ@ 0062

UNIT

SEOS,SEXIT
SNUMBR,,$STUNT

;

TERMINATING STATE

OPTST2,0PTKT?2

PROCESS SWITCH OPTIONS

000200
000200

000200

STATES
TRANS

TRANS
TRANS
TRANS
TRANS
TRANS
TRANS
TRANS

OPTION

$EOS, SEXIT

“'CSR",CSR
*'VEC''.VEC
'*VFL'*,VFL
'ERL'‘,ERL
L1 ,LI
'F0'',FO
"IN IN

SET NEW CSR ADDRESS

000200
000200

STATES
TRANS

000200
000200

STATES
TRANS

(SR
‘=
SNUMBR,SWITCH,$STCSR

SET NEW VECTOR ADDRESS

000200

STATES

000200
000200

STATES

000200

TRANS

VEC
‘=

SNUMBR,SWITCH,$STVEC

SET VERIFY LIMIT (NUMBER OF TIMES TO VERIFY A SECTOR)

000200
000200

STATES

VFL

000200
000200

STATES
TRANS

$DNUMB,“WITCH,SSTVFL

TRANS

‘=

SET ERROR LIMIT

STATES
TRANS

000200
000200

STATES
TRANS

ERL

$DNUMB, SWITCH,SSTERL

SET BAD BLOCK FILE/SKIP SECTOR FILE LIST

000200
000200
000200

STATES
TRANS

TRANS

:,L0G
SLAMDA,SWITCH,$STLIS

000200
000200

STATES

LOG

TRANS

;

STATES

000200
000200

STATES

TRANS
TRANS

TRANS

; SET BSF/SSF

STATES

000200
000200

TRANS

;

'L.SWITCH,$STLOG

SET FORMAT ENABLE

200200
000200
000200

:FE

SLAMDA,SWITCH,$STFOR
FE
'F,SWITCH,SSTFFE

INITIALIZATION
IN
SLAMDA,SWITCH,$STIN

CHECK FOR ANOTHER OPTION

000200
000200
000200

STATES

000200

STATES

TRANS
TRANS

.ENABL

SWITCH
$EOS,SEXIT
*/,0PTION
NULL

(TERMINATING)

STATE

LSB

* DEVICE UNIT NUMBER
000200
000206
000214
000216

016767
026727
101402
000167

0000006 000000G $STUNT
: :MOV
CMP
0000006 000007
177746

0000006
0000006 000004

203 000256

000000

204 000242

STORE UNIT NUMBER

-IS DRIVE NUMBER WITHIN RANGE

IF LOS, YES
SYNTAX ERROR

DETERMINE DEVICE VALIDITY

200 000222
201 000226

202 000234

8LOS
JMP

.PNUMB
, SDVUNT
SDVUNT 47
13
SYNTAX

1$:
28:

MOV
ggg

2gVICE:D.NAM(R2)

MOV
BNE

D.LNK(R2),R2
28

$DEVHD ,R2

PN
Y

SEQ 0063

—— r— r— =~y
- T

000200
0 00200

—r
Y

-l -I—D—J-l_._l—.—i—l-l—l—h—l-j-l—b_.-b—l—l—l—l—l—l—‘—l—-l—l—l_.—l—l—l—)—b—l—l—b_.l—!—‘—l_‘—l_l—l—l—._‘_d

0O OO OOV OOV VOO0 0OCICOA NNNNNNNNNYNNOOOCO
OO0
NNV
Ao1 NS NN = O VO NV
NN = OOV NO VNS WA =0OVONO VSN
= O VN
NS W
=00 00

FMTPRS = GET AND PARSE COMMAND MACRO M1113 12-JAN-82 11: 02 PAGE 3-2

ADDRESS OF 1ST DCB IN SYSTEM
IS THIS THE RIGHT D(CB?
IF EQ YES
POINT TO NEXT DCB

LOOP TILL END OF LIST

FMTPRS = GET AND PARSE COMMAND MACRO M1113 12-JAN-82 11:02 PAGE 3-3

205 000244

W
o
N

o
Q
o

000306
000314

OOO=O
-

0000006

000020

RETUKN

; DEVICE NOT IN SYSTEM

$DVUNT,D. UNIT(RZS

¢ SET UNIT NUMBER RANGE
SDVUNT.D.UNIT+1(R2)
D.UCB(R2) ,R1
GET UCB ADDRESS
$DVUNT,U.UNIT(R15
SAVE SPECIFIED UNIT NUMBER
R1,8UC ]
s SAVE UCB ADDRESS
U.SCB(R1),$5C8
: SAVE SCB ADDRESS

[

247
248
249

BCC

000004

000004
000040
000006
000026
010000

MOV

000010
000010

bt ¥
6$:

000010

000012

0000006
0000006

PUT OUR OWN IN ITS PLACE

(SP)+,aN4

RESTORE TRAP ADDRESS

(R2)
5%
(SP)+,a#4
3s

.DSABL

DOES CSR ADDRESS EXIST?
IF CC YES
RESTORE TRAP ADDRESS
PRINT ERROR MESSAGE

#40,10(R2)
u.UNIT(R&)10(R2$
26(R2)

310000.10(R2)

#24026 RO

11$

#$MSG73
RO
$MESAG

108:
118:

GET CSR ADDRESS
SAVE TRAP VECTOR

#INTR,
N4

#$MSG7 ,RO
118
#8MSG72
RO

0000006
000167

S.CSR(R2)
,R2

0000006

FETCH UCB ADDRESS
FETCH SCB ADDRESS

a#4,-(SP)

#20026 RO
108
#10000,12(R2)

020026

010000

012700

MOV
MOV
MOv8
MOV

BIT
BNE
CMP

024026
022700

$UCB,R1
$SCB,R2

PR FE FE FE TN ¥

MOV
MoV
MOV
MOV
TST

TEAFE YR FRE TR FEFE PR FE

00733

$TSTDV: MOV

CLEAR THE SUBSYSTEM

s SELECT UNIT

GET DRIVE TYPE REGISTER
SEE IF DRIVE PRESENT
IF NE, N3 = 'NED' SET

IS IT AN RM8O ?

IF EQ, YES
CHECE OTgER DEVICE TYPE CODE
IF
IS DRIVE ONLINE (MOL SET) ?
IF EQ, NO
DRIVE OFFLINE
DRIVE NOT PRESENT

DRIVE NOT AN RM80

0000006
0000006
000012
000004
000570°* 000004

[

2¢6 000350
227 000354
228 000356
229 000362
230 000270
231 000376
232 000402
233 000410
234 000412
235 000416
236 000420
237 000424
238 000426
239 000434
240 000436
241 000440
242 000444
243 000446
244 000452
245 000454
246 000460

LS8

0000006
0000C4
000570 000004
0000006

CMP
BHIS
MOV
B8R
MOV
MOV
TST

$UCB,R2

.gnufia.o1eoooo

1
#$MSG2,RO
2$
a#4 ,-(SP)
#INTR, W4
a.PNUMB

FI F§ ¥

$STCSR: :MOV

0000006 160000

TR PR

0000006

NN WO MNILNONON
NNNESENNONNY
NWSH=OO0OMNO
NNV SO

261 000520

Oad=d
O =N~

000464

[elelele’leal Jolel

SET NEW CSR ADDRESS

ViAW N
00O NN = o

MOV
MOV

0000006

#$MSG4 ,RO
SMESAG

1 TEST DEVICE CHARACTERISTICS

000316
000322
21 000326

[AS TS NT KT N1 N1 NN TN\ V) nN

MoV
JMP
mMove
MOv8
MOV
Move

SEQ 0064

D) = = md d b emd o o

oo R NTe IV, P TV ],¥)-

NIRNINVNLNIAININLNIN

206 000250
207 000254
208 000262
209 000270
210 000274

0000006
0000006
0000006 000006
0000006 000007
000002
0000006 000006

FETCH UCB ADDRESS

CSR ADDRESS WITHIN RANGE?
IF HIS YES
SYNTAX ERROR

SAVE INTERRUPT VECTOR

SET UP OUR OWN VECTOR

SEE IF IT'S ON THE BUS

NN NN NO O

262 000524
263 000526
264 000532
265 000536
266 000542
267 000550
268 000554
269 000560
270 000566
271
272
273
274 000570
2;5 000576

[olelelel dolelal

FMTPRS = GET AND PARSE

COMMAND MACRO M1113 12-JAN=-82 11:02 PAGE 3-4

000004
0000006
0000006
000007
000001
000004
0000006
0000006 000012

8(C

2%:
3s:

MOV
MoV

JMP
8i(8

MOV
MOV
MOV

RETURN

SEQ 0065

IF CC IT'S THERE

RESTOR E VECTOR
CSR NO T IN SYSTEM

(SP)+ N

#3MSGS8,
RO
SMESAG

#US.OFL ,U.ST2(R2}
;. SET DEVICE ON-LINE
(SP)+,ak6
: RESTORE INTERRUPT VECTOR
$S(B,R2

GET SCB ADDRESS

.PNUMB, S.CSR(R2)

¢ SET CSR ADDRESS

: INTERRUPTS COME HERE CN NON-EXISTANT NMCMORY TRAPS
000001

000002

iNTR:

BIS
RT]

#1,2(SP)

SET CARRY BIT IN SAVED PS
ETURN

291 000642
292 000646
293 000652
294 000654
295 000656
296 000662
299 000674
300 000676
301 000702
302 000706

000003
0000006

016702

0000006
0000006
0000006
000005
177400

ASL

ASL
MOV
MOV
MOV
ASR
ASR
MOV
MOvV8
RETURN

0000006
0000006
0000006

000207

0000006
000005

.PNUMB RO

RO, #1000
23

#3.R0
43
#$MSG27
RO

#3MSG2,RO
$MESAS
$5(8,R2

s.VCT(R2) ,R2

:;77400.Ré

R2
(R2) ,$INADD
#SNONSI, (R2)
:6NADD.(R0)

$S(B,R2
RO,S.VCT(R2)

$STVEC: -MOV
CMP
BHIS
BIT
8EQ
1%:
MoV
B8R
2$:
MOV
3s:
JMP
48:
MOV
Movs
8iC

IR TRYR PR YR YRR FE FE YR FE

285 000616
286 000620
287 000624
288 000626
289 000632
290 000636

000Cu0G
001000

LR TATFFRTEA IR IEITE TR

2
281 000600
282 000604
283 000510
284 000612

T3X

* SET NEW VECTOR ADDRESS
FETCH NEW VECTOR ADDRESS

IS THE VECTOR IN A REASONABLE PLACE?
IF HIS NO GOOD
MULTIPLE OF &?
IF EQ YES
NOT MULTIPLE OF FOUR

SYNTAX ERROR
PICK UP SCB _ADDRESS
FETCH OLD VECTOR ADDRESS
THIS IS CHEAPER THAN ANOTHER WAY

COMPUTE ABSOLUTE ADDRESS

GET RMBO DRIVER ISR ADDRESS
IGNORE INTERRUPT TO OLD VECTOR

NEW INTERRUPT VECTOR
FORM NEW VECTOR MOD«

GET SCB ADDRESS
SET NEW VECTOR ADDRESS

SET VERIFY COUNT
7

022767

0000006 $STVFL::CMP

0000006 0000006

d o
b
b ed
b
b

6
4
8

000377
0000006

AN AN NN A N NN N

308 000710
309 000716
0 000720
1 000724
2
3
g 000736

000167

177226

1$:

BLO
TST
BNE
Move
RETURN
JMP

q%??..PNUHB

.PNUMB,SVERIF

LIMIT WITHIN RANGE?
IF LO NO
STILL?
IF _NE NO
SET VERIFICATION COUNT

SYNTAX

SYNTAX ERROR

. PNUMH
18

* SET ERROR LIMIT

335

COMMAND MACRO TMM1113 12-JAN-82 11:02 PAGE 3-5

000277

000742
000750
000752
000756
000760
000766
000770

0000006

OCOOOOG $STERL::TMP
BLO
TST

BNE
mMove

000000G 0000006
177174

18:

RETURN
JMP

SEQ 0066

1%
.PNUMB, $SWERL

. PNUMH

LIMIT UéTHIN RANGE ?
IF LON
STILL?
N
NE NO
IF
SET ERROR LIMIT

SYNTAX

SYNTAX ERROR

#377, .PNUMB
13

$STLOG:
: INCB
$STLIS::INCB

RETURN

$SWLOG
$SWLST

0000006
0000006

—

105267
105267
000207

000774
001000
001004

—

Y SET LIST MODE
wn

J\WN—'OO@\JO\AJ\MN—'OO

N AN U AN AN AN NN N N NN
NN WWANWWENI
N NN RORDT NIAIND)

FMYPRS = GET AND PARSE

'LIST LOGICAL® SWITCH
'LIST' SWITCH

1 SET ENABLE FORMAT SWITCH
340 001006
341 001012
342 001016

105267
105267
000207

0000006
0000006

SSTFFE::INCB
$STFOR:
: INCB
RETURN

SSWFFE
SSWFMT

SET THE
SET THE

'FORMAT FE' SWITCH
'FORMAT® SWITCH

: SET BSF/SSF INITIALIZATION SWITCH
348 001020
349 001024
350
351

105267
000207

000001

0000006

$STIN::

INCB

RETURN

SSWINT

: SET THE "INITIALIZATION' SWITCH

FMTPRS - GET AND PARSE COMMAND MACRO M1113 12-JAN-82 11: 02 PAGE 3-6

SEQ 0067

OV.DIR=
DV.F11=
DV.ISP=

OV.MB(=
DV.MNT=
OV.MXD=
DV.0SP=

177774

DV.PSE=
DV.RE(C=
DV.SDl=

tensee

~VS

000000RG
000010RG
000010
000001
000002
000004
000156R
000170R
177776

002 OPTKT2
OPTST2

CSR
000050R
00002
DV.CCL=

QOO
(=l QOOOO
OO QOO O—=O00
QOC OOOQ BOOOO
QOO OO QO—=HO
oOO— QO OO0
wWHo (=]l OQOOO0O0O

SYMBOL TABLE

000312
000000

DV.SQD= 00004G

FE
FO

000142R
000130R

000150R
000570R
000110R

IE.EOF=

seenee

000000RG
000000RG
= 000001
000002
000200
000004
000010
000002

ODOANNIOM——M
—

[]

OV.SWL=
OV.TTY=
OV.UMD=
D.DSP
D.LNK
D .MSK
D.NAM
0.PCB
0.ucC8
D.UCBL
D.UNIT
D.VCAN=
0.VDEB=
D.VINI=
D.VOUT=
D.VPWF=
ERL
000100R

=
=

000NNL

000200
VEC

VFL

000006
000010R
177776
001026

100000

renenee

weeene

renane

000300
=

$SALPHA=
=
SANY
$BLANK=
$BUFRX= sexans
$DEVHD= tnnnns
$DIGIT= 000324
$DNUMB= 000314
$DVICE= wannne

GX
GX

$SPARSE
$SPRINT=
SPRMPT=
$SRADSO=
$S(B
=
$STARS=
$STCSR
$STERL
S$STFFE
$STFOR
$STIN
$STLIS
$STLOG
$STRNG=
$STUNT
$STVEC
$STVFL
$SUBXP=
$SWERL=
$SWFFE=
SSWFMT=
$SSWINT=
$SWLOG=
$SWLST=
$TSTDV
SUCE =
SVERIF=
$SSFLG=
SSSKEY=
$$$STA=
$SSTMP=
.PNUMB=
«PNUMKH=
.TPARS=

wrenses

wnnnian

wennwn

sannes

tenennn

xevann

tenens

tevanny

renane

wevann

teveny

wnanan

000302
000000RG
taanen

taxaen

000316
teannr

tenann

000464RG
000/42RG
001006RG

001012RG
001020RG
001000RG
000774RG
000304
000200RG
000600RG
000710RG
000310
seenne

seneens

sevnes

sanese

sanene

steanan

000316RG
sxvane

tenkae

177777
000006
000010R
000026R
sannns

sesenn

tensen

FMTPRS = GET AND PARSE COMMAND MACRO M1113 12-JAN-82 11:C2 PAGE 3-7
SYMBOL TABLE

$STATE
000166
$KTAB
000016
$KSTk
000021
ERRORS DETECTED:

002
003
004

VIRTUAL MEMORY USED:
3819 WORDS
( 15 PAGES)
DYNAMIC MEMORY:
7942 WORDS
( 30 PAGES)
ELAPSED TIME:
00:01:2]

£300,201FMTPRS, L300,30FMTPRS=C1,1JEXEMC.'ML, (300, 10JFMTPRS

SEQ@ 0068

.TITLE
IDENT

FMTR80 - FORMAT/VERIFY RM80O DISKS
/01.00/

9
10
11
12
13
14

INFCRMATION

IN THIS DOCUMENT IS SUBJECT

* EQUIPMENT CORPORATION.

* NOTICE AND SHOULD NOT BE CONSTRUED AS A

: DIGITAL ASSUMES NO

: c. HESS

:NLIST

TO CHANGE WITHOUT

COMMITMENT

B8Y

DIGITAL

RESPONSIBILITY FOR THE USE OR RELIABILITY OF

* 1TS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

VERSION 01.00

: M. LEAVITT

18-AUG-80

24-DEC-80

CND,BEX

: MESSAGES

37 000000
38 000032
39

012
110

105
104

116
101

MSGIR8:
MSG2RS:
.EVEN

.ASCIZ
ASCIZ

<LF>/ENTER DATE (DD-MMM-YY): /
/HDA SERIAL NUMBER: /

: DATE FIELDS

43 000056
4% 000062
45 000066

000072
000076
000102
000106
000112

51 000116
52 000122
53 000126
54 000132
55 000136
gg

112
106
11§

101
105
101

116
102
122

101
123
117
116
104
000000

105
103
117
105

120
124
126
103

101
115
112
112

120
101
125
13%
125

N
1A

THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

‘! THE

W
W

P THIS
SOFTWARE
IS
FURNISHED
UNDER A LICENSE FOR USE ONLY ON A
. SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
: OF
THE
ABOVE COPYRIGHT
NOTICE.
THIS SOFTWARE, OR ANY
OTHER
* COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
MADE AVAILABLE
P TO ANY OTHER PERSON EXCEPT
FOR USE ON SUCH SYSTEM AND TO ONE
WHO AGREES TO THESE LICENSE TERMS.
TITLE
TO AND
OWNERSHIP OF

46
47
48
49
50

* DIGITAL EQUIPMENT (ORPORATION, MAYNARD, MASS.

;

SEQ 0069

DAT:

122
131
116
114
107

.ASCIZ
JASCIZ
LASCIZ

/JAN/
/FEB/
/MAR/

.ASCIZ
ASCIZ
JASCIZ
LASCIZ
"WORD

/SEP/
/0CT/
/NOV/
/DEC/
0

-ASCIZ
LASCIZ
JASCIZ
JASCIZ
JASCIZ

.EVEN

/APR/
/mAY/
7JUN/
/JuL/
/AUG/

: VALID LIMITS FOR DATE FIELDS

~mMe. «

W W WM

FMTRB0 - FORMAT/VERIFY RMBO DIS MACRO M1113 12-JAN-82 11:04 PAGE 1

FMTRB0 ~ FORMAT/VERIFY RMB0 DIS MACRO M1113 *2-JAN-82 11:04 PAGE 1-1

60 000140
61 000144
62 000150
63 000154

000001
000001
000000

000116

000014
000037
000143

DATLMT: .WORD
WORD
.WORD
DPARS:: .BLKW
BASYR

== 78.

1,12.
1,31,
0,99.
3

SEQ 0070
FOR MONTH
FOR DAY
FOR YEAR

STORAGE FOR DATE CONVERSIOM

BASE YEAR = 1978

FMTRB0 ~ FORMAT/VERIFY RMB0O DIS MACRO M1113 12-JAN-82 11:04 PAGE 2
M

;

SEQ@ 0071

**=$RMBO~FORMAT/VERIFY RM80 DISK PACKS
THIS ROUTINE WILL

INITIATE THE FORMAT AND/OR VERIFICATION

OF AN RM8O DISK PA(K.

t INPUTS

DISK PARAMETERS SET TO ZERO

105767

0000006
0000006
0000106 0000006
000310

012700
004767

000000
0000006

004767
005267

000274
000266

105767

0000006

Y
o
o

o
Q
o

o
W

OB~

=2 SN

O=O=O00
~SOONOO—

W
OAY
N o &HO~

SW3
8288338282
NN

O000
o

B NN =2 O VOO NS WA =O

==L
8288
=2 N i) =2

b
b
b
e
b e
b ad
i
b wd od
b
o
e

MOV
CALL

1%:

SEE IF SSF/BSF INITIALIZATION MODE
IF NE, YES
READ SKIP SECTOR FILE
READ BAD SECTOR FILES

GET CURRENT REVISION NUMBER
HAS DATE BEEN ENTERED AT LEAST ONCE ?
BR IF YES

"ENTER DATE (DD-MMM-YY):

PROMPT THE USER = USER'S RESPONSE MAY BE EITHER:
'MM/DD/YY' OR °'DD-MMM-YY'

CONVERT USER'S ENTRY TO A BINARY DATE
INDICATE THAT DATE HAS BEEN ENTERED ONCE

CALL
INC

DATE

1ST8

$SWLST

DISPLAY THE DEC STD 144 AND SSF FILES ?

CALL
TST8
8eQ

SRM8OL
$SWFMT
4

DISPLAY THE FILES
FORMAT THE HDA ALSO ?

BEQ

EQ, NO

IF €EQ, NO

: INFORM THE OPERATOR THAT DATA WILL BE DESTROYED

b o

e -

99
100
101
102 000254

— e

TST
BNE

0000006
0000006

97 000246
98 000252

310

MOV

SSWINT
18
$RDSSF
$RDBSF
$SSF+10,SREVNM
8s
18
#MSG1R8
RO
SPRMPT

2$:

0000006
0000006
0000006
0000006
0001446
0000006
0000006
0000006

000131

0000006

MOV
CALL

#SMSG23 ,R3
SUNTID
#3MSG24 ,R3
$SMOVE
#$8UF +100. ,R0
SPRINT
#$MSG31,RO
SPRMPT
14 ]
#'Y,$BUFRX

0000006

7$
$SWINT

0000006
0000006

#SMSGR8 ,RO
SPRMPT

000131
0000006
000000°*
0000006
000126

0000006

#'Y,$BUFRX

3s:

63
$SWMOD
#MSGI1R8,RO
SPRMPT
DATE

%, 9,

9!
9¢ 000230
93
94 000234
95 000240
96

BNE
CALL
CALL

Ve Ve 00 8000000000000 80%90000%0%0%08%

86
06
87 000212
88 000214
23 000220

$RM80:: TST8

0000006

LI IAIEAIATE YR Y FR FE Y3 FE Y3 ¥

. OUTPUTS:

WARNING MESSAGE ADDRESS
STORE MESSAGE AND DEVICE/UNIT
ADDRSS OF MESSAGE SUFFIX
MOVE THE SUFFIX
PRINT WARNING MESSAGE

GET CONFIRMATION ADDRESS
PROMPT AND GET OPERATOR'S RESPONSE

1F_EQ, RESPONSE WAS 'NO’
SEE_IF RESPONSE WAS 'YES'
IF NE, RESPONSE WAS 'NO’
SEE IF SSF/BSF INITIALIZATION MODE
IF NE, YES
GET UPDATE MODE MESSAGE

PROMPT AND GET RESPONSE

IF EQ, NO
)
WAS RESPONSE *%v'"?
1F_NE, NO
SET_THE MODIFY FLAG
"ENTER DATE (DD-MMM-YY):

PROMPT THE USER - USER'S RESPONSE MAY BE EITHER:
"MM/DD/YY' OR 'DD=-MMM-YY'

CONVERT USER'S ENTRY TO A BINARY DATE

l
FMTR80 - FORMAT/VERIFY RMB0O DIS MACRO M1113 12-JAN-82 11:04 PAGE 2-1

}%2 0003.6

005267

000120

127 000402
128 000406

01°700
04767

000032°
0000006

130 000414

012705

000000G

004767
103764

0000006

129 000412

131 000420

132 0006424
133 000430
134 000432

135 000436
136 000444

137 000450
138 000454

010304

012703

0000006

105767
001403

0000006

004767

0000006

142 000464
143 000470
144 0004746
145 000500
146 000506
147 000510
148 000514
;gg 000520

004767
004767
004767
004767
004767
012700
004767
000207

0000006
0000006
0000006
0000006
0000006
0000006
0000006

}g} 000522

000000

;2? 000462

000416

; INDICATE THAT DATE HAS BEEN ENTERED ONCE

MoV
CALL

#MSG2R8,RO
$PRMPT

: 'HDA SERIAL NUMBER:
¢ PROMPT OPERATOR

MoV

#$BUFRX,RS

CALL
BCS

.DD2CT
48

MOV

MoV

0000026 0000006
000002G

139 000456

INC

MOV

0000006

016746

016767
012667

48:

MoV
MoV

TST8
BEQ

CALL

BR
5$:
6$:

SEQ@ 0072

R3,Ré4

#S$SNAME ,R3
$SNAME = (SP)

; NUMBER OF BYTES ENTERED TO R4
INPUT BUFFER ADDRESS

s OUTPUT BUFFER ADDRESS

; CONVERT THE S/N_TO BINARY
: IF CS, BAD S/N ENTRY
s

CORRECT THE SERIAL NUMBER ORDER

SSWINT
5%

:
:

INITIALIZE THE BAD SECTOR FILES ?
IF EQ, NO

s EXIT

SSNAME+2,8SNAME ;
(SP)+,8SNAME+2
;

$SRMBO!

...
...

s INIT THE DEC STD 144 AND SKIP SECTOR FILES

78:

CALL
CALL
CALL
CALL
CALL
MoV
CALL
RETURN

SRMBOM
$RDSSF
SRDBSF
SRM8OF
SRMBOV
#$MSG12,RO
$PRINT

¢
s
¢
¢
¢
¢
¢

GET UPDATE MODE INFORMATION
READ SKIP SECTOR FILE
READ BAD SECTOR FILES
FORMAT THE DISK
VERIFY THE DISK FORMAT
GET ADDRESS OF MESSAGE
PRINT °'DONE '!°® MESSAGE

8$:

WORD

¢ ONCE DATE FLAG

SEQ 0073

NNNNOOOOCOCONO OO0 NNV
OV
NN
AN =0V
NOWNS

FMTRB80 - FORMAT/VERIFY RMB0O DIS MACRO M1113 12-JAN-82 11:04 PAGE 3

*#=DATE-CONVERT USER'S RESPONSE TO BINARY DATE
INPUTTED

INPUTS:
*$BUFRX' CONTAINS ASCII STRING FOR DATE

) o

e ed ek

DATE

INTO °'$SBUFRX*® AS EITHER [MM/DD/YY) OR_[DD-MMM-YY] AND
CONVERT 1T TO BINARY AND PUT IT IN DATE PARAMETER
STORAGE AREA.

THIS ROUTINE WILL CONVERT THE ASCII

000167

0000006
000000G

PRPR X
YRFE

ZERO NEXT WORD
DONE ?
NO

GET BUFFER FOR USER'S RESPONSE
GET A NUMBER
TERMINATOR FOR DATE ?

IF EQ YES

POSSIBLY DIFFERENT FORMAT ?

b e
b

000056°

b o

¥
A

b e

5%:

(R1)
6$
(RO)+,(R1)+
X3
(R1)+

BNE
MOV
INC

2
120227
001401
000415

177274

000055

6$:

58
R3,R0
R2
(R1)

8NE

IX 3

INC
MOV

R2
R2,DPARS

B8R

Mmov8

C(MPB
BEQ
BR

(RO)+,R2

R2,#'7%
98

IST8
BEQ
CMP8
BEQ
ISTB

CLR

#DATLMT+4,RS
TMTSTL
13
R1,DPARS+2
RO.R3
#DAT,R1

177342

MOV
CALL
BCS
MOV
MOV
MOV

3s:

000144°
000256

FE PR

b e
b e

012705
004767

ISTB

204 000650
205 000652
206 000654
207 000660
208 000662
209 000666
210 000670

$MSGWR

POINT TO PARAMTER AREA
SET WORD COUNT

IF EQ YES

NO,

SYNTAX ERROR

EXIT WITH WARNING STATUS

: GET DATE FIELD IN FORMAT [DD-MMM-YY]

00O
0OV
00

000576
000602
000606

JMP

#3,R2
(R1)+
R2
18
#$BUFRX ,RO
$CDTB
R2.4'/
108
R2.4'$
#$MSG2,RO

FETEFETEFE
PR FEFEFEFE
FE YR FE FEPN
PR

000566
000572

2s:

000055

o e

b e e

b d

b e

0000006
0000006
000057

#DPARS ,R1

AR YR PN FRE

18:

MOV

MOV
CLR
DEC
BNE
MOV
CALL
(MPB
BEQ
CMPB
BEQ
MOV

DA TE:

[ TE TR

000154"
000003

012701

[

1 000524
2 000530

mmmwmgmwmmvxlwwww
W\IOMJ\MN-‘S\OQVOM
WA =2 OV~

b d e

oD e e

D d

D ad

OUTPUTS:
DPARS CONTAINS BINARY REPRESENTATION
OF DATE

POINT TO DAY LIMITS
TEST LIMITS

IF CS ERROR
STORE DAY
COPY BUFFER POINTER

POINT TO VALID MONTH NAMES

ZERO MONTH NUMBER
END OF TABLE ?
IF EQ YES, GOOD MONTH

NO, CHECK NEXT CHARACTER
AND LOOP IF GOOD MATCH

END OF MONTH STRING ?
IF NE NO, LOOP
YES, RESET BUFFER POINTER
UPDATE MONTH INDEX
END OF TABLE ?
IF _NE NO, LOOP
ZERO IS END OF MONTH LIST
INCREMENT MONTH INDEX
SAVE IT
GET NEXT CHARACTER
LEGAL TERMINATOR ?
IF EQ_YES
NO, IT'S A SYNTAX ERROR

K
FMTR80 - FORMAT/VERIFY RMBO DIS MACRO M1113 12-JAN-82 11:06 PAGE 3-1

211 000672
212 000676
213 000702
214 000706
215 000710
216 000714
217 000716

004767
012705
004767
103406
020127
103403
010167

0000006
000150°
000156

177236

8s:

219 000726
%%? 000730

012700
000167

0000006
0000006

98 :

218 000722 000436

000116

%5%

233 000772

234 000774
235 000776
236 001002
237 001004
238 001010
239 001014
240 001016
241 001020
242 001024
243 001032
246 001036
245 001042
246 001044
247 001046
248 001050
249 001052
250 001056
gg; 001062
253

%?2

SEQ 0074

CALL
MOV
CALL
BCS
CMP
BLO
MOV

$(DTB
#DATLMT+10,RS
TMTSTL
9s
R1,#BASYR
9
R1,DPARS+4

:
;
:
+
:
¢
:

MOV
JMP

#$MSG2,RO
$MSGWR

: GET SYNTAX ERROR MESSAGE
: EXIT WITH WARNING STATUS

B8R

12$

YES, GET YEAR
GET LIMIT ON YEAR
TEST LIMIT ON YEAR
IF CS ERROR
CHECK YEAR ENTRY
IF LO, INVALID YEAR ENTRY
SAVE YEAR

*EXIT

: GET DATE FIELD IN FORMAT [MM/DD/YY]

224 000734 012703 000154°
225 000740
226 000746
227 000750
228 000752
229 000754
230 000760
231 000762
232 000766

78:

012705
004767
103765
010123
120227
001361
004767
004767

103754
010123
120227
001350
004767
004767
103743
010113
012703
162763
000363
006363
000313
006213
006213
006213
056313
056313
000207

000140°
000114

108:
118:

000057
0000006
000072
000057
0000006
000050

000154°
000116 000004
000004
000004

128:

000004
000002

MoV

#DPARS .R3

: POINT TO DATE STORAGE FIELD

BCS

MOV
CALL
BCS
MoV
CMPB
BNE
CALL
CALL
MOV
CMPB
BNE
CALL
CALL
BCS
MOV
MOV
;]
SWAB
ASL
SWAB
ASR
ASR
ASR
8IS
BIS
RETURN

#DATLMT,RS
TMTSTL
9
R1,(R3)+
R2.4'/
98
$CDTB
TMTSTL
R1,(R3)+
R2.4'/
93
$CDT8
TMTSTL
9s
R1. (R3)
#DPARS ,R3
#BASYR.4 (R3)
4(R3)
4(R3)
(R3)
(R3)
(R3)
(R3)
4(R3), (R3)
2(R3), (R3)

:
s
:
:
*
;
*
:

%
:
:
:
.
:
:
:
:
:
:
:
:
:
:
*
:
s

GET POINTER TO MONTH LIMITS
TEST LIMITS
IF €S ERROR, OUT OF BOUNDS
STORE IT
GOOD TERMINATOR ?
IF NE NO, SYNTAX ERROR
GET NEXT TWO DIGITS
TEST LIMITS

IF CS ERROR, OUT OF BOUNDS
STORE IT
GOOD TERMINATOR ?
IF NE NO
GET NEXT TWO DIGITS
TEST LIMITS
IF CS ERROR, OUT OF BOUNDS
STORE IT
DATE STORAGE FIELD
SUBTRACT THE STARTING YEAR
POSITION YEAR IN UPPER BYTE
SHIFT INTO BITS 9 = 15
POSITION MONTH
SHIFT INTO BITS S - 8

MERGE YEAR WITH MONTH
MERGE DAY
EXIT

: ««=TMTSTL =~ TEST DATE LIMITS

256

: THIS ROUTINE WILL TEST THE DATE AGAINST LIMITS SPECIFIED

259
260
261
262

+ INPUTS:
:
R1 =
:
RS =
;

CONTAINS VALUE TO BE TESTED
POINTS TO TWO WORD LIMIT ENTRY
WORD 1 - LOW LIMIT OF VALUE

265
266
267

* OUTPUTS:
:
R1 =
;
RS =

UNCHANGED
UPDATED TO NEXT LIMIT ENTRY

ggg

522

: BY A TWO WORD LIMIT ENTRY.

;

WORD 2 - HIGH LIMIT OF VALUE

SEQ@ 0075

FMTRB0 ~ FORMAT/VERIFY RM80 DIS MACRO M1113 12-JAN-82 11:04 FAGE 3-2
268
269
270
271
272

273 001064
274 001066
275 001070
276 001072
277 001074
278 001076
279 001100
280 001102
281
282

TMTSTL:

18:

000001

GOOD VALUE, LOW<=X<=HIGH

cC
¢S

BAD VALUE,

CMP

?;.(RS)*

{g z? UE LOWER THAN LOW LIMIT ?

CMP
BGT
CLC

R1,(R5)+

IS 1T HIGHER THAN HIGH LIMIT ?

BLT

RETURN
SEC
RETURN

LOW>X OR X>HIGH

IF GT YES
?21 GOO VALUE

SET ERROR FLAG
EXIT

SEQ 0076

FMTRB0 - FORMAT/VERIFY RMBO DIS MACRO M1113 12-JAN-82 11:04 PAGE 3-3
SYMBOL TABLE

BASYR = 000116 6
= 000015
CR
DAT
DATE
DATLMT
DPARS

MSGIR8

000056R
000524R
000140R
000154RG

= 000012

000000R

MSG2R8
TMTSTL

000032R
001064R

wannnn GX
$BUF
wenann GX
$BUFRX
eraann GX
$CDT8
wantnd GX
$MOVE
$MSGR8= skn GX
$MSGWR= weawxn GX

. ABS.

000000
001104
ERRORS DETECTED:
456 WORDS
VIRTUAL MEMORY USED:
( 2 PAGES)
DYNAMIC MEMORY:
7942 UORDS
( 30 PAGES)
ELAPSED TIME:
00:00:1

(300,20]FMTR80,(300, 3OJFMTR80 [300,101FMTR80

$MSG12= eweenr GX
$MSG2_= wanwee GX

$RDSSF=

neenne

annnne

$MSG23= treann GX
SMSG24= srnann (X
SMSG31= snnnnn GX

000162RC

SPRINT=
SPRMPT=
$SRDBSF=

sanenn (X
axnane GX
sansne GX

SRM8OM=
SRMBOV=

L22282
tRANNR

AARANN

wennne

tenann

sanenn

rARARR

tadnnn

LA222

teannn

ARt
FARNRR

Ad])

R
FESE

PRI

bbb b b e

SOFTWARE

FURNISHED

UNDER A LICENSE FOR USE ONLY ON A

SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF
THE
ABOVE COPYRIGHT
NOTICE.
THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
TO ANY
OTHER PERSON
EXCEPT
FOR USE ON SUCH SYSTEM AND TO ONE
WHO AGREES TO THESE LICENSE TERMS.
TITLE
TO AND
OWNERSHIP OF
THE SOFTWARE SHALL AT AiL TIMES REMAIN IN DIGITAL.

THE
INFORMATION
IN THIS DOCUMENT IS SUBJECT
TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A
COMMITMENT
BY
DIGITAL

EQUIPMENT CORPORATION.

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE CR RELIABILITY OF
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

CN=

YRR

PR PR PR TR

OO 00 NOMN

THIS

VERSION 01.00
17-AUG-80
14~JAN-81

C. HESS
M. LEAVITT

.NLIST

BEX

MSGSOR:

.ASC

MSG61R:
MSG62R:
MSG63R:
MSG64R:
MSG65R:
MSG66R:
MSG67R:
MSG68R:

.AS
.AS
.A
.A
.A
.A
.A
.A

MSGSIR:
MSG53R:

.ASC
.AS

PNNNNNNRNNN
NN

b aub
b od cnd cmd
b
b end wmb emd

QOOO0O0OOONIN—=
N =3 =3 SN WNWNININNON)
—

b
wed
b aed e
b
b
b wmd
b
b

PONIN)
= ad and vmd =d b = )
(W [T NIV LV LV LV LV, LN N] N

b
b
e
e
e
b anh
b cod
b
b

33 000000
34 000032
35 000054
36 000077
37 000106
38 000115
39 000124
40 000133
41 000141
42 000173
43 000222

NN
O OO
WS SBNONNNONONON

TR YR TR YR I

/DRIVE ERROR DURING FORMAT/
/FORMAT CONTINUING/
/FORMAT TERMINATING/

/RMCS1=/
/RMCS2=/
/RMER1=/
/RMER2=/

/RMDA=/
/TRACK RE-WRITE SUCCESSFUL/
/TRACK RE-WRITE FAILURE/
/SUCCESSIVE SEEK ERRORS/

.EVEN

50 000252

000000

gg 000264

000000

$ERCS1:

$ERCS2:
S$ERER1:
$ERER2:
SERDA:
$FLBUF:

.WORD

.WOURD
,WORD
.WORD
.WORD
.WORD

[=lelelele
o)

* WORKING LOCATIONS
CONTROL STATUS REG 1
STATUS REG 2
ERROR REGISTER 1
ERROR REGISTER 2

TRACK/SECTOR ADDRESS

BUFFER ADDRESS

AN
trnBBBRB~AAMAD

TR YR

XN J

O VNV ESWNN)
NN = O 000

DIGITAL EQUIPMEN. CORPORATION, MAYNARD, MASS.

TITLE FMTRBF - RM80 FORMAT MODULE

IDENT /01.00/

~rTMo <

SEQ 0077

FMTRBF - RMBO FORMAT MODULE MACRO M1113 12-JAN-82 11:04 PAGE 1

FMTR8F - RM80 FORMAT MODULE MACRO M1113 12-JAN=-82 11:04 PAGE ?2

S¢a 0078

58
59
60

o+
: *%=$RBOTF-FORMAT A SINGLE TRACK
: «%=S$RBOSF~FORMAT BSF, SSF AND ALTERNATE DEC144 Cv{ INDERS

63
64
65
gg

:
: THIS ROUTINE WILL FORMAT AN RMBO DISK PACK.
FULL TRACKS
:
(32. SECTORS) OF HEADERS ARE WRITTEN UNTIL THE MAXIMUM

;

DISK ADDRESS IS REACHED.,

68
69
70
71

:
:
:
:

INPUTS:
DISK PARAMETERS SET TO ZERO
MDBSF, UDBSF, & SSF READ, VALIDATED, AND IN MEMORY
$CYL,STRK,$SEC PRESET FOR °"SRBOTF' ENTRY

74
75
7§.

: OUTPUTS:
:
NONE
-

;

[

;%
012767
012767

001056
000015

83 000306
846 000314
85 000320
gg 000324

012767
005067
004767
005267

001057 0000006
0000006
000174
0000006

004767

000212

gg
90 000330
g} 000334

FORMAT FE CYLINDERS ONLY IF °"SSWFFE=1'

: FORMAT BSF(558.,13.), SSF(559.,0) AND ALTERNATE DEC144(559.,1) TRACKS

80 000266
81 000274

82 000302

*=~$RMBOF-FORMAT ALL CYLINDERS OR FE CYLINDERS

0000006 SR8OSF
: :MOV
0000006
MOV

CALL

MOV
CLR
CALL
INC

#558.,8CYL
73, StRx

: STARTING CYLINDER
:
TRACK

#559. ,8CYL
$TRK
FMTDSK
$TRK

H STARTING CYLINDER
:
TRACK
; FOPMAT THE SSF TRACK
; FOKMAT THE ALTERNATE DEC144 TRACK

FMTDSK

; FORMAT THE DEC S10 144 TRACK

: FORMAT A SINGLE TRACK
004767
000471

0000006

$R80TF : : CALL
BR

SMVPAT
FMTDSK

: LNDAD THE DATA PATTERM
: FORMAT THE TRACK $CYL.,$TRK

: FORMAT ALL CYLINDERS (0.0 TO 560.,13.) OR BSF/SSF/FE CYLINDERS (558..15.- 560.,13.)

96 000336

005001

98 000344
99 000350
100 000352
101 000356
102 000360
103 000364
104 020370
105 000374
}89 000400

004767
005001
105767
001011
012700
004767
005067
005067
000412

108 000402
109 000406
110 0004:12

012700
004767
012767

0000006
1$:
0000006
J)1056 0000006

MoV
CALL
MoV

#SMSG6B RO
SPRNTO
2558, .8CYL

; TELL_OPERATOR WHICH CYLINDERS
: ' =FE CYLINDERS; START CYLINDER=558. (BSF/SSF/FE CYLINDERS)

113 000432
114 000436

004767
004767

000062
0000006

CALL
CALL

FMTDSK
$TSTMX

: FORMAT THE DISK
: UPDATE DISK ADDRESSES

97 000340

111 000420
112 000426

012700

012767
004767

0000006

$RM8BOF : : CLR

MOV

0000006

CALL
CLR
1878
BNE
MOV
CALL
CLR
CLR
BR

0000006

0070006
0500006
0000006
000000G

000015 0000006
0000006
2$:

3s:

MOV
CALL

; SET NULL CARRIAGE CONTROL

$PRNTO
R1
$SWFFE
18
#SMSGOA RO
$PRNTO
$CYL
$TRK
2%

:
:
:
:
:
:
:
:
:

#$MSG6,RO

f3, iTRK
SMVPAT

TELL OPERATOR

"START FORMATTING®
SET NULL CARRIAGE CONTROL
FORMAT FE CYLINDERS ONLY ?
BR IF YES
TELL OPERATOR WHICH CYLINDERS
' -ALL CYLINDERS~- '
START CYLINDER=0
START TRACK=0
FORMAT THE TRACKS

: START TRACK=13.
; LOAD THE DATA PATTERN

SE@ 0079

000520
000524
000530
000534
000540

#559.,8CYL
33
#2,$TRK
3s

WAS SSF JUST WRITTEN ?

000002

0000006

0000006
0000006
0000006
0200006
0000006
0000006

MOV
MOV
CALL
CALL
MOV
MOV
BR

$CYL,=(SP)
$TRK,=(SP)
SWTSSF
SWTBSF
(SP)+,$TRK
(SP)+,$CYL
$

YR FE FE P PR TN FY

CMP
BNE
CMP
BNE

A TR FE

0000006 4$:

BR IF NO
WERE BSF/SSF TRACKS JUST WRITTEN ?
BR IF NO, ELSE
SAVE CURRENT CYLINDER ADDRESS
SAVE CURRENT TRACK ADDRESS
RE-WRITE THE SSF

RE-WRITE THE DEC144 TRKS (PRIMARY AND SECONDARY)
RESTORE TRACK ADDRESS

RESTORE CYLINDER ADDRESS
WRITE NEXT TRACK

012703
004767
012700
105067

005067

0000006
0000006
0000006
0000006
0000006

FMTDSK: MOV

CALL

MOV
CLRB
CLR

#SPHYDV,R3

'FORMAT® DEVICE PARAMETERS
UPDATE THE MAX VALUES

SUPDMX

#$8BUF ,RO
SKPFRE
$SEC

RELOAD THE BUFFER ADDRESS
CLEAR SKIP SECTOR FLAG

START AT SECTOR ZERO

: CREATE THE HEADER PATTERN

[o,]

[=]
(=]
o

000544

004767
005267
026767
001370
005067

18:
0000006
000000G
0000006 0000006

0000006

CALL

INC
CMP
BNE
CLR

GENHDR

GENERATE HEADER PATTERN

UPDATE SECTOR NUMPER

$SEC
$SEC, SMXSEC
13
$SEC

ALL SECTORS DONE?
IF NE NO

RESET SECTOR NUMBER

¢ NOW WRITE THE HEADER AND DATA ONTO THE DISK.

006
000616

000620

016767
004767
012705
004767
005767
100401
000207

0000006 000000G 2$:
000000G
0000006
0000006
3s:
4$:
0000006

032767
001402
000167

MOV

004000

HANDLE

0000146 58$:

0000006

TRKSZ ,$XFRSZ

CALL
MOV

SCVTDA
#$BUF RS

TST

$RGBUF

CALL

BMI]

RETURN

;

wd cd =D

LOAD BYTE COUNT FOR ONE TRACK
CONVERT DISK ADDRESS TO LBN

SET BUFFER ADDRESS
WRITE HEADER/DATA FOR THIS TRACK
ANY DISK ERRORS?

$DSKWH

IF MI, V.S
OTHERWISE, RETURN

THE ERROR

8IT
8EQ
JMP

#4000, SRGBLF +14
63
SWLKER

WRITE LOCK ERROR?
IF EQ NO

INFORM THE USER

000636
000642

004767

001014
012700

000276
000000°*
0
0

0000006
0000006

6$:

CALL
MOV
MoV

CALL
CALL
DECB
BNE
MoV

$FLRGS
#MSG50R,RO
#60,R1

$PRNTO
SMGPRE
$SWERL
78
#SMSG4L5
RO

TR FE FI FE ¥

: SEND ERROR MESSAGE

LF R FRA TR

e cnd od e
b

JF €S, NOT FINSIHED, CLSE
EXIT FORMAT

: ACTUAL FORMAT ROUTINE

D e cnd =D d
d
b
b

000745

001057

)

D ad

OO OO O NV

000516

b —md wd
b

8CC

RETURN

D cnd

b cnd ad wd

S 88 88 8 85 85 2 B 8 8

D e

e ed

d e

NN W AN N N NI PO N AD PO NI NI NI NO A —d =S

b s

FMIRBF ~ RMBO FORMAT MODULE MACRO M1113 12-JAN-82 11:04 PAGE 2-1

SAVE FAILING DATA
'DRIVE ERROR DURING FORMAT'
CARRIAGE CONTROL CHARACTER
SEND ME SSAGE
SEND DISK ADDRESSES
DECREMENT THE ERROR : IM]T
IF NE, ERROR LIMIT NOT EXCEEDED
‘ERROR LIMIT EXCEEDED’

012701

000060

000167

0
0000006
0000006

MOV

CALL
MOV
CALL
JMP

:
012700
004767
032767

000744

000711

000746

012700

0000006

Mov
CALL
BIT
BEQ
CALL
BR

=SOVONOWNSWN~2O

000

n NSISOSLSISUNTN
TSN TN, T8 7,8
~N Nt bbb ek ed e = = = O O

SFMTEX

'FORMAT TERMINATING'
PRINT THE MESSAGE

EXIT THE FORMATTER

#MSG51R,
RO
: "FORMAT CONTINUING'
SPRINT
s SEND MESSAGE
#40000,SRGBUF
+42 IF EQ ¢ SEE IF ERROR WAS A SEEK INCOMPLETE
2%
$HOMSK
¢ ENTRY POINT FOR RETRY WITH RECAL
s TRY AGAIN
23

*x~$MGPRE~PREPARE AND SEND DISK ADDRESSES TO OPERATOR
uTsS:

SFLCYL,SFLTRK,SFLSEC LOA DED

OUTPUTS:
ERROR MESSAGE

SMGPRE : :MOV
CALL
MOV
MOV

#$CR.RO
SPRINT
$ERCS1.R1
#MSG61R,R3

MOV
MOV
CALL
MOV
MOV
CALL
MOV
MOV

$ERCS2.R1
#MSG62R,R3
SEROCT
$ERER1T,R1
AMSG63R,R3
SEROCT
$ERER2.R1
#MSG64R,R3
SEROCT
$ERDA,R1

CALL
MOV
CALL

SEROCT
#$CR.RO
SPRINT

CALL

MOV
CALL

MOV
0000006

CARRIAGE CONTROL CHARACTER
SEND MESSAGE

$PRNTQ
#MSGS53R,RO
SPRINT

IF THE ERROR IS A 'SKI*', DO A RECAL

78:
000032°*
0000006
040000 0000426

0000006

#60,R1

000720

SEQ 0080

®e

000674
000700
000704
000710
000714

e ®e Ve Ve We By B,y B,y 0,

3oowo~mbu-no~oonwom?uw—aoomwcrmbwm

- ad

b wd wd

b nd wd

d d

D nd

)

D e

) el

0 0 O 0O 0 0O O 000000 00000800 000000 N N~NNNNV~N

D od

FMTR8F - RMBO FORMAT MODULE MACRO M1113 12=-JAN-82 11:04 PACE 2-2

SEROCT

MSG65R,R3

+ADDRESS OF MESSAGE

s CR=LF

sGET RMCS1 AND

+ADDRESS OF MESSAGE
J"RMSCT = XXXXX''

sGET RMCS2 AND

;ADDRESS OF MESSAGE
:"RMSC2 = XXXXX''

sGET RMER1 AND
:ADDRESS OF MESSAGE
2" RMERT = XXXXX'*

;GET RMER2 AND
sADDRESS OF MESSAGE
:"RMER2 = XXXXX''

:GET RMDA AND
sADDRESS OF MESSAGE
J"RMDA

= XXXXX''

:ADDEESS OF MESSAGE

:PRINT ERROR POSITION, CYLINDER, TRACK AND SECTOR IN DECIMAL
701

0000006

MOV

CALL
MOV
MOV
CALL
MOV

MOV

0000006

CALL
MOV

$FLCYL R

#$MsG15,R3

SEROUT
$FLTRK
R
#$MSG16,R3
SEROUT
$FLSEC,R1

#SMSG17,R3

SEROUT
#$CR,RO

sGET FAILING CYLINDER AND
sADDRESS OF MESSAGE
s"CYLINLER = XXX.'*
¢GET FAILING TRACK AND
<ADDRESS OF MESSAGE

:"TRACK = XX.''

cGET FAILING SECTOR AND
sADDRESS OF MESSAGE
s ''SECTOR = Xx.'

sGET ADDRESS OF MESSAGE

SEQ 0081

0000006

CALL

RETURN

:CR=LF

*+«~$FLRGS-ROUTINE TO SAVE FAILING DISK ADDRESSES AND REGISTERS
INPUTS

$CYL, $TRK SET TO CURRENT CYLINDER AND TRACK

N P
PNPN PN PR

$RGBUF CONTAINS IMAGE OF LATEST H/W REGS (SET BY DRIVER)

OUTPUTS:
$ERCS1
$ERCS?
$ERER]
$ERER?

LE AL

NNV
S
O
NONO SO

b =
b
—d

d wd

b =
ah
d o
b
b
od
—

[elelolelololele]

888888883

(LS
1, 81,8 ]ORI
PO
[e Y3V WVIAWMWAIWALY

[=1Ve] [0 RNTe RV, F YV [,¥)

231

SPRINT

004767
000207

PR N
PN PR N
Y

—

NN
oo

—

[=le]
oo

[RST,N 1.V,
ST.NT,N1,5
1,87 §7 N
N NN AN N N NN NN

CONO
NS WN =20 Y

FMTRBF ~ RMBO FORMAT MODULE MACRO M1113 12-JAN-82 11:04 PAGE 2-3

016705
042705
001004
012767
000403
005305

000037

0000006

$FLRGS: :MOV
8IC
BNE
MOV

1%:

0000006
0000006 0000006 2%:
0000006 0000006

BR
DEC

MOV
Mov
MoV

TRK/SECTOR REG
FAILING CYLINDER
FAILING TRACK
FAILING SECTOR

$RGBUF +6,RS

: RECOVER FAILING SECTOR ADDRESS

521..$FLSEC

* MUST HAVE BEEN LAST SECTOR

* BACKUP ONE

SCYL,SFLCYL

1;77740.ns

RS,$FLSEC

$TRK,SFLTRK

ISOLATE SECTOR NO.

SET SECTOR NUMBER

CYLINDER

TRACK

; SAVE THE RM80 REGISTERS

262 0U1204
263 001210
264 001214
265 001222
266 001230
267 001236
268 001244
269 001250
270
2n

0000066
177740

SERDA
SFLCYL
$FLTRK
$FLSEC

CONTROL STATUS REG 1
CONTROL STATUS REG 2
ERROR REG 1
ERROR REG 2

0000006
177036

000010
000014
000042
000006
0000006
000001

177032
177026
177022
177016

MOV
MOV
MOV
MOV
MOV
MOV

CLR

RETURN

#SRGBUF ,RS

(RS) ,$ERCS1

10(RS),$ERCS2

: REGISTER BUFFER
* RMCSI

; RMCS2

14(R5) C$ERERT
42(R5) .$ERER2

: RMER]
: RMER?

$RGBUF

6(RS) , $ERCA

* RMDA

CLEAR ERROR INDICATOR

SEQ 0082

FMTREF - RMBO FORMAT MODULE MACRO M1113 12-JAN-82 11:04 PAGE 2-4
SYMBOL TABLE

FMTDSK
000520R
GENHDR= ewetee (X

MSGSOR
MSGS1IR
MSG53R
MSG6IR

MSG62R
MSG63R
MSGO4R
MSG6SR
MSG66R
MSG67R
MSG68R

wenenn

eennen

$BUF
$CR
S$CVTDA=
$CYL
$D SKWH=
$ERCS]
S$ER(CS2
SERDA
SERER1
$ERERZ

wenenne

wenann

rennn

TRKSZ

QOO0QOR
000032R
000054R
000077R

000106R
000115R
000124R
000133R
000141R
000173R

00022¢2R

000000
001252
ERRORS DETECTED:

SKPFRE

. ABS.

tenene

renatr

000252R
000254R
000262R
000256R
000260R

000
001

( 3 PAGES)
VIRTUAL MEMORY USED:
522 WORDS
7942 WORDS
( 30 PAGES)
JYNAMIC MEMORY:
11
ELAPSED TIME:
00:6u:

£300,201FMTR8F ,[3C0,301FMTR8F=L300,10]FMTREF

$EROCT= eennad GX
$EROUT= waxane GX
$FLBUF
000264R
$FLCYL= eannnn X
$FLRGS
001140RG
$FLSEC= aanene X
$FLTRK= ranene GX
SFMTEX= sennne GX
$HOMSK= wenente GX
SMGPRE
000746RG
$MSG15= wennne GX
$MSG16= anevnne GX

$MSG17
$MSG4S

$MSG6
$MSGOA=
$MSG68=
SMVPAT=
SMXSEC=
$PHYDV=
$PRINT=

$PRNT0=

tannrn

seexnn

teavtn

teaven

reanen

tantvn

nawnte

weeene

waknane

rtennne

GX
$RGBUF=
SRMBOF
000336RG
wekven

$R8OSF
000266 RG
$SRBOTF
000330 RG
= YRANRR
$SEC
$SWERL= L32232
$SSWFFE= fANCRR
$TRK
= ARR
$TSTMX= L AR AE]
= 1 A2 282
SUPDMX
SWLKER= L22282
SWIBSF= RN AN
SWTISSF= (228244
$SXFRSZ=

ERRARR

33 000000
34 000023
35S 000060
g? 000102

105
117
105
105

122
116
122
101

FE FE FE FY FE TR FE FE FE TR FN FN J

FURNISHED

UNDER A LICENSE FOR USE ONLY ON A

SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF
THE ABOVE COPYRIGHT NOTICE.
THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE

TO ANY
OTHER PERSON
EXCEPT
FOR USE ON SUCH SYSTEM AND TO ONE
WHO AGREES TO THESE LICENSE TERMS.
TITLE
TO AND OWNERSHIP OF
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

THE
INFORMATION
IN THIS DOCUMENT IS SUBJECT
TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A
COMMITMENT
BY
DIGITAL

EQUIPMENT CORPORATION.

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
VERSION 01.00

C. HESS
M. LEAVITT

.NLIST

BEX

MSG2V:
MSG3v:
MSG4&V:
Hgsgx:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

22-AUG-80
14-JAN-81

/VERIFY TERMINATING/
/NON DATA ERROR DURING VERIFY/
/VERIFY CONTINUING/
@HEADER/DATA ERROR DURING VERIFY®

; WORKING LOCATIJIONS

43 000142
44 000144
22 0002046

000000

47 000206
48 000210
49 000212

g? 000214

SOFTWARE

TR FE FE FEFE
YR FE FEFE

126
116
126
110

38
39

FMIR8V = VERIFY RM80 DISKS
/01.00/

I TEATEATEFRE

28
29
30
g;

SEQ 0083

.TITLE
JIDENT

PONVIPNOPNOAINININD
b b b d od b b b wad b
~NOAwWnS WA= O D00 NS NN = OV

NN =

FMTR8V - VERIFY RMBO DISKS MACRO M1113 12-JAN-82 11:04 PAGE 1

’

000000

TRKER:
SECTBL:
LASTER:

.WORD
.BLKB
.WORD

0
32.
0

: TRACK ERROR COUNT
; SECTOR ERROR TABLE
M %:g; SECTOR IN ERROR DURING CURRENT VERIFICATION

000000
000000
000000

XFRSEC:
ENDSEC:
BEGSEC:

.WORD
.WORD
.WORD

0
0
0

. NUMBER OF SECTORS ACTUALLY VERIFIED
: ENDING SECTOR ADDRESS
;. STARTING SECTOR ADDRESS

000000

VFYCNT:

.WORD

: VERIFJCATJON PASSES

SEQ 0084

FMTRBV - VERIFY RMBO DISKS MACRO M1113 12-JAN-82 11:04 PAGE 2

: **=SRMBOV-VERIFICATION ROUTINE FOR RMBO DISK PACKS

56
bY4
58
59
60
61
62
63
64
65
66

: TRACK COMPLETE <= 1
: REPEAT PROCESS UNTIL PHYSICAL DISK ADDRESS .EQ. (561,0,0) (STSTMX)
H
IF TRACK COMPLETE .NE. O
:
THEN START SECTOR <= (
:
END SECTOR <= sHXSEC
:
TRACK ERROR COUNT (°TRKER') <= 0
.
CLEAR SECTOR ERROR TABLE
:
GENERATE TRACK BUFFER
:
WORD COUNT <= ((END SECTOR)-(STARY SECTOR)
+1) %258
H
VERIFICATION PASS COUNT (' VFYCNT ) <= $SVERIF
:
REPEAT WRITE CHECK UNTIL (°'VFYCNT' _EQ. O .OR. SECTORS TRANSFERED .EQ. 0)

68
69
70

:
H
M

71
72
73
74
75

H
H
:
H
H

78
79

:
:

76
77

H
.

87 000216
88 000222
89 000226
90 000232
91 000236
92
93
94
95

000242
000246
000250
000254
000260
97 000262
98 000270
99 000276
100 000302
101 000306
102 000312
103 000320
104 000324
105 000330

106 000336

107 000340

108 000346
109 000350

THEN CALL S$CKERR
IF ERROR IS A NON DATA ERROR
THEN RETRY ERROR

'VFYCNT® = *VFY(NT®' - 1
ENDREPEAT
IF TRKER .NE. 0
THEN CALL °VFYSEC'
REGENERATE THE

TRACK BUFFER (GENHDR)

RE-FORMAT TRACK FROM SECTOR O TO SECTOR 31
IF ENDSEC .NE. 31

THEN START SECTOR <= LAST ERROR SECTOR + 1
END SECTOR <= 31
:
ELSE PHYSICAL ADDRESS
= PHYSICAL ADDRESS + 32 SECTORS
: ENDREPEAT

80
81
82
83
84

IF ERROR

: RE-WRITE BSF & SSF
. EOJ
:

012700
004767
012703
004767
004767

105767
001005
005067
005067
000406
012767
012767
005067
005067
005067
016767
005367
004767
026727

001016

026727
001012
016746

0000006
0000006
0000006
000000G
0000006

SRMBOV : : MOV
CALL
MOV
CALL
CALL

0000006

0000006
0000006
001056
000015
0000006
177634
177700
0000006
177664
0000006
0000006

0000006 1$:
0000006
2s:
177670
001056

0000006 000015
0000006

3%:

TST8
BNE
CLR
CLR
8R
MOV
MOV
CLR
CLR
CLR
MOV
DEC
CALL
cMP

BNE

CMP

BNE
MOV

#$MSG11,RO
SPRINT
#$PHYDV ,R3
$UPDMX
SHOMSK

$SWFFE
18
$CYL
$TRK
23
#558.,8CYL
#13,,8TRK
$SEC
TRKER
BEGSEC
$MXSEC,ENDSEC
ENDSEC
SMVPAT
$CYL,#558.

S$TRK,#13.

43
$CYL,-(SP)

H
H
:
H
;

GET VERIFICATION STARTING MESSAGE

PRINT THE MESSAGE
PHYSICAL DEVICE GEOMETRY POINTER
UPDATE THE LIMITS

ISSUE A RECAL
: VERIFY FE CYLINDERS ONLY ?
; BR IF YES
H STARTING CYLINDER=0
: STARTING TRACK=0
:
H
H
:
:

STARTING CYLINDER=558.
STARTING TRACK=13,
STARTING SECTOR=0
CLEAR THE TRACK ERROR COUNT
CLEAR THE STARTING SECTOR
LOAD THE ENDING SECTOR ADDRESS
H CORRECT THE VALUE
: LOAD THE DATA PATTERN
: IS THIS THE BSF CYLINDER ADDRESS ?
: BR IF NO
. IS THIS THE BSF TRACK ADDRESS ?
: BR IF NO
: SAVE CURRENT CYLINDER ADDRESS

—

NN = OO0

BM]
DEC
BNE

177454

S$CVTDA
#$BUF RS
$DSkwC
SRGBUF

118
VFYCNT
108

138

TABLE ADDRESS

CLEAR TWO LOCATIONS
DECREMENT THE LOOP COUNTER
IF NE, NOT FINISHED
LOAD THE VERIFICATION COUNT
BUFFER ADDRESS
LOAD THE SECTOR ADDRESS
GENERATE A MEADER
INCREMENT THE SECTOR
SEE IF FINISHED
IF LOS, NO
RESET

THE SECTOR ADDRESS

ENDING SECTOR ADDRESS
SUBTRACT STARTING ADDRESS
ALLOW A SINGLE SECTOR TRANSFER
SECTOR (INCLUDING HEADER) SIZE(IN BYTES)
CALCULATE THE BYTE COUNT
LOAD THE BYTE COUNT
CONVERT DISK ADDRESS TO AN LBN
BUFFER ADDRESS
WRITE CHECK

SEE IF ANY ERRORS
IF M1, YES
DECREMENT THE VERIFY COUNT
IF NE, NOTM FINISHED WITH THIS
VERIFICATION PASS
SEE IF FINSIHED WITH THIS TRACK

000634
000636

016700

177430

177416

CALL
8CS

128:

0000006
177332

138:

000124
0000006
177362

148:

CKERR
9%

XFRSEC

128

BEQ
DEC
BNE
BR
MOV
INC
cTMP

BEGSEC,~(SP)
(SP)
SMXSEC, (SP) +

BNE

BEQ
CALL

148
VFYSEC

TSt

VEYCNT
78

138

TRKER

0000006

CALL
MOV
INC
(MF

SR8OTF
ENDSEC RO
RO
RO, SMXSEC

177342

MOV

LASTER,RO

BEQ

15§

118:

TR FE TRFE FEFE FE
FRE FE FE FEFE FY
FEFE PR FE

001310
005767
001404

000344

004767
103742
005767
001404
005367
001317
000406
016746
005216
026726

N ¥

: PROCESS THE ERROR

000544
000550

CLEAR SKIPPED SECTOR FLAG
LOOP CONSTANT

—

YR ¥
YRYR
FER
PRFE TR
PR FE
FEAFE

RESTORE TRACK ADDRESS
RESTORE CYLINDER ACDRESS

SEE WHICH TYPE OF ERROR IT IS
IF _CS, NON-DATA ERRCR = RETRY
?EEEgF agv SECTORS WERE TRANSFERED
DECREMENT THE VERIFICATION COUNT FOR THIS PASS
IF NE, MORE TO DO
SEE IF FINISHED WITH THE CURRENT TRACK
SEE IF THE ERROR IS THE LAST SECTOR
CORRECT VALUE FOR THE COMPARE
ERROR ON SINGLE SECTOR TRANSFER BEGINNING

WITH SECTOR 31 ?

IF NE, NO

ANY NEW ERRORS ON THIS TRACK ?

IF EQ, NO
VERIFY THE SECTORS IN ERROR
REFORMAT THE TRACK AND MARK NEW DEFECTS
CHECK THE ENDING SECTOR

CORRECT I7
SEE IF FINSIHED
IF EQ, YES
GET THE LAST ERROR SECTOR ADDRESS

. p—

R1,$XFRSZ

CALL
MOV
CALL

SAVE CURRENT TRACK ADDRESS
RE-FORMAT BSF/SSF HEADERS AND DATA

——

MOV

BEGSEC RO
RO
#516. .R1
$MULT

PRPR TR YRR TR

BEGSEC,$SEC
ENDSEC .RO

$SEC
$SEC.ENDSEC
8%

PRP

MOV
MOV

INC
CMP
BLOS

PR PR

BEGSEC,S$SEC
GENHDR

TST

000420

[V AV, ]

WA = O OO0 NS NN = O V0NN
[«
3V]

001366

MOV
CALL

SUB
INC
MOV
CALL

108:

SVERIF,VFYCNT

#$8UF ,RO

001004
0000006
0000006
0000006
0000096
0900006
0000006

0000006 9%:

MOV

NV
WA = OV

177530
177520
177516

MOVB

(RO)+
R1
63

£~
W

NN =200

e rd id
d
b
b
b e
b
b
D e

000000G 177534

b
b e
md
e
e
i
e
ek e
b e
b
b e
b ad
b e
d
b
o
b e
b
d
b e
d
b cad
d
e

7%:

177556
0000006
000000G
8$:
0000006

0000006 177570
0000006

CLR
DEC
BNE

¥16. R
#SECTBL,RO

6$:

MOV
MOV

5%:

-v0020
000144°*

$TRK,=(SP)
SR8OSF
(SP)+,$TRK
(SP)+.8CYL
SKPFRE

0100006

CALL
MOV
MOV
CLRB

I P N

NO WS WN =0

d e
b
b e ed

MOV

0000006
0000006
0000006
0000006

016746

——
— S~

SEQ 0085

FMTRBV = VERIFY RMB80 DISKS MACRO M1113 12-JAN-82 11:04 PAGE 2-1

SEQ 0086

177326 177332
177326
000000G 177316
177312
000700
000704

004767
103411

0000006

005067
000167
000730
000734

004767
004767

0000006
0000006

000740

000207

INC

BEGSEC
SMXSEC
, ENDSEC

MOV
MOV

DEC
BR

15$:

0000006 177274
177270
177266
177400

RO
RO, SMXSEC

CALL
BCS
MOV

DEC
CLR
JMP

16$%:

CALL
CALL

CORRECT VALUE
SEE IF AT MAX SECTOR
IF EQ, YES

154

RELOAD THE STARTING SECTOR

LASTER,BEGSEC

START WITH THE FIRST GOOD SECTOR

RELOAD THE ENDING SECTOR

CORRECT THE VALUE
CONT INUE

ENDSEC
5%

$TSTMX
16$

SMXSEC,ENDSEC
ENDSEC
BEGSEC

SWTSSF
SWTBSF

RETURN

INCREMENT THE PHYSICAL ADDRESS
IF CS, FINISHED

RELOAD ENDING SECTOR FOT ~ .z TRACK
MAKE INTO AN ADDRESS

START WITH SECTOR 0

RE-WRITE THE SSF
RE~WRITE THE DEC STD 144 TRACKS
SECONDARY

(PRIMARY AND

222 000742
223 000746

R N E N AR TR T R AR A

THIS ROUTINE WILL RE~-READ THE SECTORS WHICH GAVE ERRORS DURING THE VERIFY
PASS ON THE CURRENT TRACK.
ANY SECTOR FAILING DURING THE RE-READ PASS
WILL BE CONSIDERED DEFECTIVE.

REPEAT PROCESS UNTIL TRACK ERROR COUNT (°TRKER') .EQ. 0
FIND NEXT SECTOR IN SECTOR ERROR TABLE (°SECTBL®)
REPEAT WRITE CHECK FOR SECTOR ENTRY IN ‘SECTBL'
UNTIL ('SECTBL'(SECTOR) .LT. 0) .OR. (HEADER FIELD OR DATA FIELD ERROR FOR SECTOR)
IF *SECTBL'(SECTOR) .GE. O
THEN IF NO SKIP SECTOR ON TRACK .AND.
THEN PUT SECTOR IN SSF

'$HDRFG*' = 0

ELSE IF SECTOR IS NOT IN THE FE CYLINDERS
THEN PUT SECTOR IN FEBSF
ELSE PUT SECTOR IN UDBSF

LAST ERROR SECTOR ON TRACK ‘LASTER' <= CURRENT ERROR SECTOR
TRKER = TRKER - 1
ENDREPEAT
INPUTS:

SECTBL - CONTAINS ADDRESSES OF SECTORS IN ERROR
?gZEéST:E.SSEC CONTAINS ADDRESS OF CURRENT TRACK

OUTPUTS:
SECTBL CLEARED

ENTRIES MADE IN THE MDBSF ,UDBSF,& SSF'S
'L?figf?;AEENTAlNS THE ADDRESS OF THE LAST SECTOR IN ERROR ON

[ AR

IE A A R

*«~VFYSEC-VERIFY THE SECTOR(S) IN ERROR

012700
005200

177777

YSEC: MOV
:
INC

d<
e N

N1, AINININIAINININY

POND

b ek —ed =d b b od d d b

ASIAS LSS NT,NT SN L ST N T N1, N1

=2 OV NV
W =O 000 NOVWN

S W
=
oogooooog
8

TESE SR AT E PR FE FE PR P

PR PN PR PR PRY

R X1

00 0o 0o

0000006

INC
cmp
BEQ

Ve Be 0y 0, v,

005200
020067

N =20V

COOOC0 NNNNN
NNNNVNOO
O
NIV WOV~

FMTRBV ~ VERIFY RMBO DISKS MACRO M1113 12-JAN-82 11:04 PAGE 2-2

USE RO AS THE INDEX INTO *SECTBL®
INCREMENT THE INDEX

SEQ 0087

FMTRBY - VERIFY RMBO DISKS MACRO M1113 12-JAN-82 11:04 PAGE 2-3

ViAW

[o - ECTo
JV. ¥ o8 wno

PPN LAY

AW Nal¥,]

551 001112

58:

006207

MOV
DEC
BNE

$SEC,LASTER
TRKER
18

PRTE TR PR

ENTRY ?
IF EQ, NO

SAVE THE INDEX
RELOAD THE SECTOR ADDRESS
SETUP A SECTOR IMAGE

SET THE MF, UF, AND FMT16 BITS
LOAD THE TRACK ADDRESS
LOAD THE SECTOR ADDRESS
BUFFER ADDRESS
SECTOR = INCLUDING HEADER BYTE COUNT
CONVERT THE PHYSICAL ADDRESS TO LBN
WRITE CHECK THE SECTOR
ANY ERRORS ?
IF PL, NO
PROCESS THE ERROR

IF _CS, NON-DATA ERROR = RETRY

PUT THE SECTOR INTO THE PROPER BSF
RESTORE THE SECTOR TABLE INDEX
RESTORE THE SECTOR TABLE POINTER

COUNT THE SUCESSFUL RE-READ
IF _PL CONTINUE
CLEAR THE SECTOR ENTRY, ERROR WAS NOT

REPEATED
ASSUME CURRENT ERROR IS LAST ERROR ON THIS TRACK
DECREMENT THE ERROR COUNTER
IF NE, NOT FINISHED

;

*%=CKERR-VERIFY MODULE DEVICE ERROR ANALYSIS ROUTINE

;

THIS ROUTINE WILL ANALYZE THE DISK ERROR AND REPORT THE ERROR AS REQUIRED.

;

IF SKI
THEN REPORT & RECALIBRATE
ELSE REPORT ERROR
IF NOT DATA ERROR

;
;
;

THEN RETRY UNTIL SUCESSFUL OR RETRY LIMIT EXCEEDED
ELSE DETERMINE SECTOR IN ERROR
IF TRACK ERROR COUNT ('TRKER®) .EQ 0

;

268

YR PRYN X)

SECTBL (RO)
2%
SECTBL(RO)

RETURN

(SP)+,RO

DECB
BPL
CLRB

PRPR

0000006 177100
177032

000144°

Mov

016767
005367
00i316

248 001076
269 001106
250 001110

000144°

#38UF
,RS
#516. ,SXFRSZ
$CVTDA
$DSKWC
$RGBUF
43
CKERR
38
$DSTRB
(SP)+,RO
5%

PR PEA PR

105360
100332
105060

012600

0000006

MoV
Mov
CALL
CALL
TST
BPL
CALL
BCS
CALL
MoV
BR

#150000, $BUF
$TRK, $BUF
+3
$SEC, $BUF
+2

PR PRPR PR TS

c44 001064
245 001070
329 001072

243 001062

000044

BIS
MOVE
MOovB

R PR

0000006
3s:
001004 0000006
0000006
0000006
0000006

229 000772 052767 150000 0000006
230 001000 116767 0000006 0000036
231 001006 116767 9000006 0000026

012705
012767
004767
004767
005767
100007
004767
103761
004767
012600
000406

2s:

SECTBL (RO)
18
RO,=(SP)
RO,$SEC
$CYL, $BUF

232 001014
233 001020
234 001026
235 001032
236 001036
237 001042
238 001044
239 001050
240 001052
261 001056
262 001060

0000006
0000006 0000006

1578
BEQ
Mov
Mov
MoV

000144°

105760
001774
010046
010067
016767

LT PN

2264 000750
225 000754
226 000756
227 000760
228 000764

THEN LAST ERROR SECTOR ('LASTER')

p
:

IF ERROR IS HEADER ERROR
THEN ERROR TYPE (°'SHDRFG') <= 1

IF VERIFY COUNT ('VFYCNT') .NE. O

<= ERROR SECTOR

ELSE "HDRFG' <= 0

;

THEN IF SECTOR IN ERROR NOT LISTED IN BSF,

;

SSF, OR FEBSF

'TRKER' = °'TRK ER® +
I?AQEFEQEEQ ssgrog COUNT ('XFRSEC') = ((ERROR SECTOR)-(START SECTOR))=1

THEN END SECTOR <= (ERROR_SECTOR=1)

WORD COUNT <= ((END SECTOR)=-(START SECTOR +1)+1)+258

(SSRALL)

THEN LOAD SECTOR_ RETRY couur IN SECTOR ERROR TABLE ('SECTBL')

INPUTS:

$RGBUF - CONTAINS THE RMBO REGISTER CONTENTS
VFYCNT = CONTROLS UPDATING ‘SECTBL'

FMTR8Y = VERIFY RMBO LISKS MACRO M1113 12-JAN-82 11:04 PAGE 2-4

SEQ 0088

281
282

:
: RETURNS:

285

* OUTPUTS:

288
289
290
N

: NOTE:
:
THIS ROUTINE WILL RETURN TO 'SFMTEX' IF THE DRIVE EXCEEDS THE
;
ERROR LIMIT.
;

ng
%gg

294 001114
295 001120
296 0011264
297 001126
298 001132

004767
116746
005316
042716
016746

0000006
0000066

301 001146

299 001136
300 001142

302 001152
303 001160

304 001164

305 001170
306 001172
307 001174
308 001176
309 001204
310 001206

318 001226
319 001232
320 001236
321 001242
322 001246
323 001250
324 001254

325 001260

326 001264
327 001270
328 001274
329 001300
330 001304

331 001310
332 001316
333 001320
334 001324
335 001326
336 001330
337

"SECTBL' - UPDATED IF ERROR IS A DATA ERROR AND 'VFYCNT' .NE. 0

177740
0000006

S$FLRGS
SRGBUFfb ~(SP)
(SP)
#*C37,(SP)
$RGBUF , - (SP)

:
:
*
:
:

042716

040000

BIC

#40000, (SP)

: CLEAR ‘WCE'

042716

100000

BIC

#100000, (SP)

: CLEAR 'BSE’

BIC

#110400, (SP)

042716
016746

156666
016716
052616
005726
001012
032767
001052
016746

005726
001506

CKERR:

157777
0000106

BIC
MOV

000001 000002
0000426

110400

BISB
MOV
8IS
TST
ENE
BIT
BNE
MOV

0000146

110400

TST
8EQ

g}g
317 001222

CS = IF THE ERROR WAS A NON DATA ERROR

CALL
MOV8
DEC
8IC
MOV

311 001212 042716
312 001216
g}z 001220

SAVE THE REGISTERS
GET THE SECTOR ADDRESS
BACK UP TO FAILING SECTOR
JUST IN CASE FAILING SECTOR WAS 31.
GET RMCS1

#4c20000,(SP)
: LEAVE °‘MCPE’
$RGBUF+10,-(SP) : GET RM(CS2
1(SP),2(SP)
$RGBUF +42, (SP)

. OR' THE ERROR BITS FROM RMCS2
- GET RMER2

(SP)+, (SP)
>
(SP)+
:
18
.
#1104600, SRGBUF +14
48
;
$RGBUF +14,-(SP) :

(SP)+
6$

OR® WITH 'MCPE' & RMCS2 ERROR BITS
SEE IF ANY ERROR BJTS SET
IF NE, YES = NON DATA ERROR
; TEST *DCK!DTE'HCRC'
IF NE, MUST BE A DATA OR HEADER ERROR
COPY RMER1

* CLEAR THE DATA/HEADER ERROR BITS

: SEE IF ANY OTHER ERROR BITS ARE SET
: IF EQ, NO - ERROR MUST BE A 'BSE’

: SEND ERROR MISSAGE
012700

012701
004767
004767
105367
001014
012700
012701

004767

012700
004767
000167
012700
004767

032767
001402
004767
005726
000261
000207

000023

1$:

000060
0000006
0000006
0090005

MoV

0000006
000060

MOV
CALL
CALL
DECB
BNE
MOV
MOV

000000°
0000006
0000006
000060°
0000006

MOV
CALL
JMP
MOV
CALL

0000006

040000

0000006

CALL

2s:

0000426
3$:

BIT
8EQ
CALL
TST
SEC
RETURN

#MSG3IV,RO

"NON DATA ERROR DURING VERIFY®

#60,R1
$PRNTO
SMGPRE
S$SWERL
2$
#$MSG4S,RO
#60,R1

.
:
+
+
¢
*
*

#MSG2V,RO
SPRINT
SFMTEX
#MSG4V, RO
SPRINT

* VERIFY TERMINATING'
* PRINT THE MESSAGE
* ABORT THE FORMATTER
* 'VERIFY CONTINUING'
: SEND MESSAGE

spanro

CARRIAGE CONTROL CHARACTER
SEND MESSAGE
TYPE THE DEVICE REGISTERS
SEE IF ERROR LIMIT EXCEEDED
IF NE. NO
ERROR LIMIT EXCEEDED®
CARRIAGE CONTROL CHARACTER

: SEND MESSAGE

#40000, SRGBUF +42
3
;
SHOMSK
:
(SP)+
*
*
:

s SEE IF *SKI®
IF EQ, NO
DO A RECAL
CORRECT THE STACK
SHOW NON-DATA ERROR

SEQ 0089

W N NN A NN NN N
w WA

0v1370
001372
001376
001400
001406
001412
001416
001422
001426
001432
360 001436
001442
362 001450
363 001452
366 001456
365 001460
366 001464
367 001470
368 001474

000000G
176636

$HDRF
G
VFYCNT

5$%:

9%
(SP),$SEC
$SRALL

0000006
000000G

176544

(SP) RO
SRETRY ,SECTBL (RO
#MSG5V,RO
#60,R1
SPRNTO
$MGPRE
#MSG4V RO
SPRINT
(SP) ,XFRSEC
BEGSEC,XFRSEC
78
BEGSEC
8s
(SP) ,ENDSEC

0000006 000144°
000102°
000060
0000006
0000006
000060
0000006
176544
176536
176544
176534
176524
176520
176514
176512

7%:

ENDSEC

8%:

ENDSEC,RO
BSGSEC.RO
R

#516. ,R1
$MULT
R1,$XFRSZ
+
(SP)

001004

0000006
0000006

9%:

000207
000001

RETURN

.END

LA TR TE TR FE TN

001364

] HDRF
G
g:OO.SRGBUF#14

001457

0000006
4
000400 0000146

LA
TR PR YR TR TR TR YR TR |

105067
032767
001402
105267
005767

YUFE FE FE FE I

; THE ERROR IS A DATA ERROR, PROCESS AND EXIT

NS WA =000
0 OO NO VNS NWN = O QOO N

W NN

FRRERRLERE H VI

FMTR8V - VERIFY RMBO DISKS MACRO M1113 12-JAN-82 11:04 PAGE 2-5

ASSUME DATA ERROR

SEE IF ERROR IS A HEADER ERROR ('HCRC')
IF EQ, DATA ERROR
SET HEADER ERROR FLAG
SEE IF VERIFING THE ENTIRE TRACK OR IF PROCESSING A

SINGLE SECTOR
IF EQ, VERIFYING SINGLE SECTORS
PUT THE BAD SECTOR ADDRESS IN ‘$SEC’
SEEL%; THE ERROR IS LISTED IN ONE OF THE BAD SECTOR

IF CC, DEFECT IS ALREADY ACCOUNTED FOR
INCREMENT THE TRACK ERROR COUNT
GET THE BAD SECTOR ADDRESS

: LOAD RETRY COUNT AND FLAG A BAD SECTOR

'HEADER/DATA ERROR DURING VERIFY
CARRIAGE CONTROL CHARACTER
SEND MESSAGE
TYPE THE DEVICE REGISTERS
'VERIFY CONTINUING'
PRINT IT
COPY THE ADDRESS OF THE ERROR SECTOR
CALCULATE THE NUMBER OF SECTORS TRANSFERED
IF NE, AT LEAST ONE SECTOR TRANSFERED

STEP AROUND THE ERROR SECTOR

CHANGE THE ENDING SECTOR ADDRESS

POINT TO LAST ERROR FREE SECTOR

COPY THE ENDING SECTOR
CALCULATE THE NEW BYTE COUNT
CORRECT THE DIFFERENCE
NUMBER BYTES/SECTOR

MULTIPLY THE SECTORS « SIZE

UPDATE THE BYTE COUNT
CORRECT THE STACK
SET THE DATA ERROR INDICATOR

SEQ 0090

FMTRBY = VERIFY RMB0 DISKS MACRO M1113 12-JAN-82 11:04 PAGE 2-6
SYMBOL TABLE

BEGSEC
CKERR
ENDSEC

000212R
001114R
000210R

SKPFRE= wtense GX
TRKER
000142R
VFYCNT 000214R

$SFLRGS= taante GX
SFMTEX= tennne X
SHDRFG= wewenn GX

LASTER
MSG2v
MSG3v
mMSG4v

000204R
000000R
000023R
00C060R

XFRSEC
$BUF
=
SCVTDA=
SCYL =

SMGPRE=
$MSG11=
$MSG4LS=
SMULT =

000144R

$SDSTRB= werenx (X

GENHDR= teeeen GX

MSGS5V

SECTBL

VFYSEC

000206R
sweeaaw GX
wersnn GX
weeenn GX

$DSKWC= sxnnnw GX

000102R

000000
001524
ERRORS DETECTED:

000742R

. ABS.

000
001

VIRTUAL MEMORY USED:
577 WORDS_
( 3 PAGES)
DYNAMIC MEMORY:
7942 UORDS
( 30 PAGES)
ELAPSED TIME:
00:00:1
(300,20]FMTR8V, (300, SOJFMTRBV C300,101FMTR8Y

SHOMSK= wrwnze GX
teeane
eawene
wrnnne
sansaae

(X
GX
GX
GX

SMVPAT= sansaee GX

SMXSEC= tananw GX

$PHYDV=
$PRINT=
SPRNTO=

annene

L A2 433}

reneee

sRANES

saneen

L A2l
]]

SRETRY= aannnn GX
= tennnn GX
$RGBUF
SRMB0V 000216RG
$R80SF= aannne GX
$SR80TF= wanenn GX
$SEC
= sannnn GX
$SRALL= sennne GX

123221
=

KRt eenN

et AtY
L2222
tRERER

$XFRSZ=

LA A2

FMTRBM - DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11:05 PAGE 1
1
%

LTITLE
JIDENT

;

: OF

S
9

SEQ 0091

FMTR8M - DEFECT ENTRY MODULE
701.00/

9
10

: THIS
SOFTWARE
IS
FURNISHED UNDER A LiCENSE FOR USE ONLY ON A
. SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION

12
13

1HE

ABOVE COPYRIGHT

NOFICE.

THIS SOFTWARE, OR

ANY

NTHER

: COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
* TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE

14
}g

* WHO AGREES TO THESE LICENSE TERMS.
TITLE
TO AND
: THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

: THE

: EQUIPMENT CORPORATION.

INFORMATION

IN THIS DOCUMENT IS SUBJECT

* NOTICE AND SHOULD NOT BE CONSTRUED AS A

: DIGITAL ASSUMES NO

¢ C. HESS

OWNERSHIP OF

TO CHANGE WITHOUT

COMMITMENT

DIGITAL

RESPONSIBILITY FOR THE USE OR REL'ABILITY OF

ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

VERSION 01.00

: M. LEAVITT

18-AUG-80
14~JAN-81

’

3
32
33
34

:
s MESSAGES
.

37 000000
38 000007
39 000015
40 000021
41 000040
42 000063
43 000100
44 000126
22 000145

NLIST
125
115
123
106
104
106
105
103
110

104
123
123
105
125
111
116
131
104

102
102
106
040
120
114
124
116
101

BEX

MSGIR8: .ASCIZ
MSG2R8: .ASCIZ
MSG3R8: .ASCIZ
MSG4R8: .ASCIZ
MSG7R8: .ASCIZ
MSGBR8: .ASCIZ
MSGCR8: .ASCIZ
MSGDR8: .ASCIZ
ngegza::.Ascxz

/UDBSF /
/MSBSF/
/SSF/
/FE BAD SECTORS/
/DUPLICATE ENTRY < /
/FILE FULL = /
/ENTER BAD SECTR ADRS:/
/CYL.TRK,SEC = /
aHDA S/N DOESN'T MATCH CURRENT S/Na

)

: LBN CONSTANTS

gg 000210

000003

151200

FELBN:

.WORD

3,151200

: ?ggénuéng)or THE FE CYLINDERS

52 000214

000003

151040

USRLBN: .WORD

3,151040

: END OF USER SPACE

gg
57 000220

(558..12..31.)

: MINIMUM/MAXIMUM STORAGE FOR INPUT ROUTINE
000000

MINCYL:

.WORD

:STORE MIN. CYLINDER ADDRESS HERE

58 000222

59 000224

2? 000226

000000
000000
000000

MINTRK: ,WORD
MAXCYL: .WORD
MAXTRK: .WORD

FMYRBM ~ DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11:05 PAGE 1-1

SEQ 0092

:
"'
TRACK
N
;STORE MAX. CYLINDER ADDRESS HERE
;
"
TRACK
'

tMTRS8M =~ DEFECT ENTRY MODULE MACRO M1113 12-JAN=82 11:05 PAGE 2
63

SEQ 0093

2§

: «x=$RMBOM-MANUAL INPUT OF UDBSF OR SSF DATA

* THIS ROUTINE WILL ACCEPT MANUALLY INPUTTED DATA FOR EITHER THE

t INPUTS:

* QUTPUTS:

: UDBSF OR SSF FILES AND PE-WRITE THESE FILES TO THE RM80 DiSK.

;SI)

;

NONE

RE-WRITTEN UDBSF OR SSF

77 000230
78 000234
79 000240

004767
004767
012701

0000006
0060006
000060

$RMBOM: :CALL
CALL
MOV

SRDSSF
$RDBSF
#60,R1

: READ SKIP SECTOR FILE
* READ THE MDBSF & UDBSF
: SET 2 LINE FEED CONTROL

83 000254
84 000260
85 000262
gg 000266

004767
001403
004767
000772

000554

1$:

CALL
BEQ
CALL
BR

INPUT
2
SDSTRB
18

;
s
:
+

GET SSF ENTRIES
IF EQ, FINISHED
DISTRIBUTE ENTERED ADDRESS INTO CORRECT FILE
CINTINUE

88 000270
89 000274
90 000300
91 000304
gg 000310

004767
004767
004767
105067
000207

0000006
0000006
0000006
0000006

28:

CALL
CALL
CALL
CLRB
RETURN

SRBOSF
SWTSSF
SWTBSF
$SWMOD

:
*
*
*

FORMAT THE BSF/SSF TRACKS
RE-WRITE THE SSF
RE-WRITE THE BSF
CLEAR THE MODIFY FLAG

80 000244
g; 000250

012700
004767

000100°
0000006

MOV
CALL

000024

#MSGCRS,RO
S$PRNTO

* GET ADDRESS OF MESSAGE
* PRINT 'ENTER BAD SECTR ADRS:'

D+

> THIS ROUTINE DISTRIBUTES THE OPERATOR ENTERED ADDRESS TO THE CORRECT

100

t INPUTS:

102
103

:
;

t#e=$DSTRB-ROUTINE WILL DISTRIBUTE THE DEFECT ADDRESSES

101

}8§

106

$CYL

= OPERATOR ENTERED CYLINDER ADDRESS

;

$SHDRFG = 1

$TRK = OPERATOR ENTERED TRACK ADDRESS
$SEC = OPERATOR ENTERED SECTOR ADDRESS

IF DEFECT IS A HEADER DEFECT

* OUTPUTS:

107
110 000312
111 000316
112 000322
113 000324
114 000330
115 000334
116 000336
117 000342
118 000344
119 000350

DEFECT FILE AND CHECKS FOR DUPLICATION IN THE SSF.

:
105067
00476
103405
012704
004767
000556
105767
001041
012701
012702

0000006
0000006

000015°
000410
0000006
000000C
000000

NONE

$DSTRB::CLRB
CALL
BCS
MOV
CALL
BR
1$:
TSTB
BNE
MOV
“Oy

SKPFRE
: CLEAR THE SKIP SECTOR FLAG
$SRSDF
* SEE IF ENTRY IN THE SSF
13
: IF €S, NO
#MSG3R8 R4
* DUPLICATE ENTRY MESSAGE
DUP
* TYPE THE MESSAGE
13$
* TRY AGAIN
SHDRFG
¢ SEE IF DEFECT IS A HEADER DEFECT
4
: 1F NE, IT IS
#SSSF+<2+8SSFHD>~4
,R1
; SSF ADDRESS
#$SSF+<1000+$SSFLN>=2,R2
: SSF LENGTH

SEQ 0094

W=
O OO NON NS
NN = O

0000006

000015°
000400

CALL
B8R

: SEARCH THE SSF

: IF CC,

R1,#$SSF+<1000+$8SFLN>=2

#MSG3RS, R4
FULL

13%

TRACK IS IN THE SSF

: IF NE NO

> IS SSF FULL?

% GET SSF MESSAGE
* ISSUE FILE FULL MESSAGE

; GET NEXT ENTRY

SREVNM,$SSF+10
3s
$SSF+10
$SSF+22
138

CMP
BNE
INC
INC
BR

S$SEC.(R1)+
STRK.(R1)+¢
DPARS
, $SSF +6

3s:

$CYL,(R1)+

MOVB
MOVB
MOV

000512

0000106
0000226

MOV

2$:
0000006
0000006
0000006
0000006 0000066
0000006 0000106

TRIR IE FE TR XY

: AND UPDATED ENTRY NUMBER

PUT CYLINDER ADDRESS INTO SSF
PUT SECTOR ADDRESS INTO SSF
PUT TRACK ADDRESS INTO SSF

LOAD SSF REVISION DATE IN TABLE

HAS REVISION NUMBER BEEN UPDATED YET ?
BR IF YES

UPDATE REVISION NUMBER
INCREMENT NUMBER OF ENTRIES
CONTINUE

o
o

000156

004767
103005
012700
004767
000443
004767
012704
020127
001013
000407
004767
020127
001005
012704
004767

000124

I4 ¥

0000006
000000G

0000006
000021
0001006

8$:

0000006
0007746

9%:

000000
000152

AMSG4RS,
R4
SSRFES
63
#MSGIR8,
R4
$SRUDF
78

TSTB

BNE

SKPFRE

12%

CALL

DUP

CALL

CKUSR

BCC
CALL
BCC
MOV
CALL
BR
CALL
MOV
CMP

BNE

108:

B8R

138

9
CHKFE
8s
#$MSG32.R0
SPRINT
138
SSRFES
#MSG4RS,
R4
R1,W#SFEBSF +64.

11$

108

CALL

$SRUDF

MOV

#MSGIR8,
R4

cMp
BNE

CALL

ENTRY DUPLICATED

ASSUME DUPLICATE ENTRY

ENTRY DUPLICATED IN THE FE AREA
ENTRY DUPLICATED

ASSUME DUPLICATE UDBSF
SEARCH THE UDBSF

IF NE

ENTRY NOT DUPLICATED
IN A SKIP REGION
Y;S

GET ANOTHER ENTRY
SEE IF ENTRY IF *OR THE USER ADDRESSES
IF CC, YES
SEE IF ENTRY IS FOR FE CYLINDERS
IF CC, YES

*INVALID ENTRY'

PRINT THE MESSAGE

LOCATE WHERE TO PUT THE ENTRY
FE BSF MESSAGE SUFFIX

IF THE
IF NE,
REPORT
. LOCATE

R1,#SUDBSF +1000~4
11$
;
FULL

ASSUME DUPLICATE MDBSF ENTRY
SEARCH TNE MDBSF

MOV
CALL
BCC
MOV
CALL
BCS

DECREMENT THE SECTOR ADDRESS
SHOW SECTOR WITHIN A SKIP REGION

Puup

6$:

000210

004767
103020

000000°*
0000006

0000006

SKPFRE
AMSG2R8,
R4
SSRMDF

?EEcgf ngERED SECTOR IS WITHIN A SKIP REGICN

9
Q
0

103406
105767
001051
004767
000456

INCB
MOV
CALL

BCC

000021°
0000006

S$SRSSF
5%
$SEC

]

012704
004767

5%:

CALL
BCS
DECB

103005

0000006
0000006
000007
0000006

(8:

PRPN
P PN

012704
004767
103012
012704
004767

0000006

FE FEFE
FEFE FE
FE

103404
105367
105267

FE TR

=
WA NOAOND)
&HO CANO &

VI\N v
v v

004767

I FAFA
A
FETEFE A FRFE FEFEFEFE FE YR

SH L

O NNV
NN
OSSOSO

[olelelalelelelele

888888338

; SEE IF THE DEFECT CAN GO INTO THE UDBSF OR FEBSF

808000
OO 33383
S5 N

W= O VB VNOWNH WA =O VO NO NS WOV~

MOV

$SRTRK

(4 1

; LOAD SSF WITH NEW BAD SECTOR ADDRESS, REVISION DATE, REVISION NUMBER

(9,]

VIS
NN =O 00N

) D e
d d
D
D cd
D cad
D —b
D b
D
)
b e
D
) d
b cad wmd and
b wd
b cnd
b cnd D wid wnd
b
b o
d
d e
—

CALL
8cC
cMp
BNE

000000¢

d ad

D e

D i e

D wd d e

D od i

FMTRBM - DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11:05 PAGE 2-1

F N

. UDBSF
. 1SSUE

FE BSF FULL ?
NO
FILE FULL
LA LAST ENTRY IN THE UDBSF
| S UPBSF FULL?
0
ES ) AGE SUFFIX
IL 3 FULL MESSAGE

FMTRBM - DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11:05 PAGE 2-2
177 000626
178 000630
179 000634
180 000640
181 000644
182 000650
183 000652
184 000656
185 000660
186 000664

000421
016721
116721
116721
105767
001410
105767
001405
105067
105267

187 000670 000675

}gg 000672

0000006
0000006
0000006
0000006

118:

0000006

128:

0000006
0000006

BR
MOV
MOVB
MOVB
TSTB
BEQ
T1ST6
BEQ

138
$CYL, (R1)+
SSEC.(R1)+
S$TRK.(R1)+
SKPFRE
138
SHDRFG
138

B8R

CLRB
INCB

000207

138:

RETURN

190

193

1 INPUTS:

196

RETURNS:

}gg

;

13}

197

201 000674

202 000700
203 000706
204 000710
205 000716

004767

026767
103403
026767
000207

0000006 177302
0000006 177274

CHKFE:

CALL

SCVTDA

18:

(MP
BLO
CMP
RE TURN

* RETURNS:

5}2

214

%%S
229
qu

232

233

ENTRY IS FOR FE CYLINDERS

SLBNH, FELBN
1$
SLBNL,FELBN+2

: CONVERT THE PHYSICAL ADDRESS TO AN LBN

* CHECK HIGH LBN
P IF LO, DON'T LOOK ANY MORE
: CHECK THE LOW LBN
;

* «x=CKUSR-SEE IF THE DEFECT ADDRESS ENTRY IS FOR THE USER CYLINDERS

213

%%g

: CONTINUE

ENTRY IS NOT FOR THE FE CYLINDERS

* INPUTS:

224

CLEAR THE HEADER DEFECT FLAG
INCREMENT SECTOR ADDRESS

0000006

S}}

218 000720
219 000726
220 000732
221 000734
555 000742

*
:

TRY AGAIN
PUT CYLINDER ADDRESS INTO UDBSF
PUT SECTOR ADDRESS INTO UDBSF
PUT TRACK ADDRESS INTO UDBSF
SEE IF SECTOR WITHIN A SKIP REGION
IF EQ, NO
WAS ENTRY FOR A HEADER DEFECT ?
IF EQ, NO - GET NEXT ENTRY

$CYL,$TRK,$SEC LOADED

%83
210
217

:
*
*
*
*
:
1
P

«a=CHKFE-SEE IF THE DEFECT ADDRESS ENTRY IS FOR THE FE CYLINDERS

}gg

200

SHDRFG
$SEC

SEQ 0095

;

004767
026767
103403
026767
000207

0000006
CKUSR:
177264 0000006
177256

0000006

1$:

$CYL.S$TRK,$SEC LOADED
¢S

ENTRY IS NOT FOR THE USER CYLINDERS

CALL
(MP
8LO
CMP
RE TURN

SCVTDA
USRLB%,SLBNH
13
USRLBN+2,$LBNL

ENTRY IS FOR USER CYLINDERS
:
:
*
:
:

CONVERT THE PHYSICAL ADDRESS TO AN LBN
CHECK HIGH LBM
IF LO, DON'T LOOK ANY MORE
CHECK THE LOW LBN

* «s=DUP-DUP ROUTINE WILL ISSUE THE DUPLICATE ENTRY MEESAGE FOR SPECIFIED FILE

> THIS ROUTINE WILL ISSUE THE DUPLICATE ENTRY MESSAGE FOR THE SPECIFIED FILE

* INPUTS:
;

R4 = ADDRESS OF SPECIFIED FILE MESSAGE

* OUTPUTS:

NONE

SEQ 0096

FMTR8M - DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11:05 PAGE 2-3
234

237 000744

012703

000040°

239 000754

004767

0000006

238 000750

24C 000760

241 000762

242 000766
243 000772
gzg 000776

012700

010403

004767

012700
004767
000207

000000G

DUP:

0000006

MoV

#MSG7R8,R3

:GET DUPLICATE ENTRY MESSAGE

CALL

$SMOVE

:PUT MESSAGE IN OUTPUT BUFFER

MOV

R4 ,R3

MOV
CALL
RETURN

#$BUFRX RO
$PRINT

CALL

000000G
0000006

#$BUFRX RO

:GET ADDRESS OF SPECIFIED FILE

$SMOVE

246

.¢
:

we=FULL=FULL ROUTINE WILL

249

INPUTS:

252
253

: OUTPUTS:
:
NONE

%2;

%g?

254

228

;PUT THAT IN OUTPUT BUFFER

:GETM ADDRESS OF MESSAGE BUFFER
JPRINT IT
:
ISSUE

THE FILE FULL MESSAGE FOR SPECIFIED FILE

FILE NAME MESSAGE

257 001000

012703

000063°

260 0010146
261 001016
262 001022
263 001026
264 001032
265
266

017403
004767
012700
004767
000207

000000G
000000G
0000006

258 001004
259 001010

R4 = ADDRESS OF

:GFT ADDRESS OF OUTPUT BUFFER

012700
004767

0000006
000000G

FULL:

MoV

#MSGBR8 ,R3

:GET FILE FULL MESSAGE

MOV
CALL
MOV
CALL
RETURN

R4 ,R3
$MOVE
#$BUFRX RO
SPRINT

JGET ADDRESS OF FILE NAME MESSAGE
JPUT THAT IN OQUTPUT BUFFER
:GET ADDRESS OF MESSAGE BUFFER
JPRINT IT
:

MOV
CALL

#$BUFRX ,R0O
$SMOVE

;GET ADDRESS Or OUTPUT BUFFER
:PUT MESSAGE IN OUTPUT BUFFER

sg;

: *+=INPUT=INPUT DATA FOR SPECIFIED FILE

269
270
271
272
273
274
275
276

. THIS ROUTINE WILL PROMPT THE USER FOR THE DESIRED CYLINDER, TRACK, AND SECTOR
: ADDRESS.
:
s INPUTS:
;
NONE
:
: OUTPUTS:
:
$CYL, STRK, AND S$SEC SET TO SPECIFIED VALUES

278
279
280

:
:
:

27?7

SHDRFG = 1 IF THE ENTRY HAD AN "H' SUFFIX
IF2 =1
IFZ2=0

NO MORE DATA TO INPUT
MORE DATA TO INPUT

283 001034
284 001040

105067
012703

000000G
0000006

INPUT:

CLRB
MOV

$HDRFG
#$PHYDV,R3

: CLEAR THE HEADER FLAG
: POINTER TO PHYSICAL DEVICE GEOMETRY

286 001050
287 0010564
288 001060
588 001062

012700
004767
001001
000207

000126°
0000006

1$:

MOV
CALL

#MSGDR8 RO
SPRMPT
23

: OPERATOR PROMPT
; GET INPUT FROM THE USER
: IF NE, INPUT FROM USER

285 001044

004767

0000006

CALL

BNE

RETURN

$SUPDMX

: UPDATE MAX VALUES

SEQ 0097

001452
004767
122702
001045
004767
020167
101040
020167
002435
010167

305 001140

004767

306 001144
307 001150
308 001152
309 001156
310 0601160
311 001164
g;; 001166

314 001172
315 001176
316 001202
317 001206
318 001210
319 001214
320 001216
321 001222
322 001224
323 001226
324 001232
325 001236
326
327

122710

122702
001026
020167
101023
020167
002420
010167
004767
020127
101011
010167
122702
001002
105267
000244
000207
012700
004767
000704

CALL
MOV

LDLMTS
#$BUFRX ,RO

0000006

BEQ
CALL
MP8
BNE
CALL
CMp
BHI
CMP
BLT
MOV

(s
sCDTB
&', ,R2
4
LDLMTS
R1.MAXCYL
43
R1,MINCYL
X}
R1,$CYL

000C00G

CALL

$CD'B
#°, R2
4
R1,MAXTRK
4
R1,MINTRK
48
R1,$TRK

000063

CMP8 #'#, (ROS

0007006
000054
000120
177100
177046

000054

CMP8
BNE
CMP
BHI
CMP
BLT
MOV

177650

177036
0000006

0000006
000037
0000006
006110

0000006

38:

0000006
00CJ006

48:

328
329
330

i
:
:;

%%}

005067
005067
012767
012767
105767
001411
012767

343 001304
344 001306
;22 001314

001003
012767
000207

347

$CDTB
R1,431.
/X |
R1,$SEC
#'H,R?
3s
$HDRFG

INITIALIZE DISK ADDRESS LIMITS
BUFFER POINTER
SEE IF OCTAL INPUT
If €Q, ERROR

CONVERT THE CYLINDER ADDRESS

CHECK PROPER SEPARATOR
IF NE, ERROR
LOAD NEW TRACK ADDRESS LIMITS
LNOK FOR VALID CYLINDER ADDRESS
IF HI, INVALID CYLINDER ADDRESS
LOOK FOR VALID CYLINDER ADDRESS
IF LT, INVALID CYLINDER ADDRESS
LOAD THE CYLINDER ADDRESS

CONVERT THE TRACK ADDRESS
CHECKX FOR PROPER SEPARATOR

IF NE, ERROR
LOOK FOR VALID
IF HI, INVALID
LOOK FOR VALID
IF LT, INVALID
LOAD THE TRACK

TRACK ADDRESS
TRACK
ADDRESS
TRACK ADDRESS
TRACK ADDRESS
ADDRESS

CONVERT THE SECTOR ADDRESS
LOOK FOR VALID SECTOR ADDRESS
IF HI, INVALID SECTOR ADDRESS
LOAD THE SECTOR ADDRESS
HEADER ERROR ADDRESS ?
IF NE, NO

SET THE HEADER ERROR FLAG
SHOW MORE INPUT
EXIT
INVALID RESPONSE

#$MSG32,RO
SPRINT
18

TYPE THE MESSAGE

CONT INUE

®e<|DLMTS~LOAD LIMITS
THIS ROUTINE LOADS THE MINIMUM AND MAXIMUM DISK ADDRESS LIMITS

: USED BY THE °INPUT® SUBROUTINE.

335 001240
336 001244
337 001250
338 001256
339 001264
340 001270
341 001272

342 001300

CALL
CMP
BHI
MGV
CMP8
BNE
INCB
L2
RETURN
MOV
CALL
BR

020127

000001

176754
176752
001060 176746
000015
176742
0000006
001056

001056
000015

176720

176706

LDLMTS: CLR
CLR
MOV
MOV
TSTB
BEQ
MOV

CMP

1$:
.END

BNE
MOV
PETURN

MINCYL
MINTRK
#560. MAXCYL
#13, ,MAXTRK
SSWFFE
13
#558. MINCYL

R1.#588.

1$
#13. ,MINTRK

LA TR TN FEFE FE TR FE FN ¥

293 001074

28:

PRFE PR PR TN

296 001100
295 001102
296 001106
297 001112
298 001114
299 001120
300 001124
301 V01126
302 001132
%82 00113¢

000150
0000006

[TR TR

004767
012700

ATA TR YR TR FE TN YN X

291 001064
292 001070

PRPR TE PR PN

FMTRBM ~ DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11:05 PAGE 2-4

ASSUME, MIN. CYLINDER= 0.

ASSUME MAX. CYLINDER= 560.
'
TRACK= 13,

FORMATTING FE CYLINDERS ONLY ?

BR IF NO
MIN., CYLINDER= 558,

IS CYLINDER INPUT 558. ?

BR If NO

MIN., TRACK= 13,

FMTRBM - DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11 :35 PAGE 2-5

SEQ 0098

SYMBOL TABLE

CHKFE
000674R
CKUSR
000720R
DPARS = weeeee (X
OuLr
000744R
FELBN
FULL

INPUT
LDLMTS

MAXCYL

MAXTRK
MINCYL
MINTRK

. ABS.

MSGCR8
MSGDRS
MSGERS
MSGIR8

000210R
001000R

MSG2R8
MSG3R8

001034R
001240R

MSG4RS
MSG7R8

000224R

MSGBR8

000226R
000220R
000222R

000000
001316

ERRORS DETECTED:

000100R
000126R
000145R6
000000R
000007R
000015R
000021R
000040R
000063R

SKPFRE= sanern X
USRLBN
00021¢R
$BUFRX= snnene (X

000
001

( 3 PAGES)
VIRTUAL MEMORY 'SED:
602 WORDS
DYNAMIC MEMORY:
7942 WORDS
( 30 PAGES)
ELAPSED TIME:
00:00-13
(300,201FMTR8M,[300,3CIFMTR8M=[300,101FMTRBM

seanne

weeaee

revnns

reanne

weenee

reanee

000312RG

sannen

annnne

seeeee

snsnne

000230RG

sennee

rennne

sanene

senene
saeeve

GX
GX

rennns

saneee

avonen

sennes

seenan

seanne

$SRSSF=

$SRTRK= L22222}
= atteeY
$SRUDF
= LAA 222
$SSF
$SSFHD= aeseNe
$SSFLN= L 222224
2 2]}
SSWFFE= LA2
22l
A4
L
$SWMOD=
L AAAd]]

L3242]

L i 23 12
LA A2 1]

SWISSF=

sttty

FMTRBL =~ DISPLAY BAD SECTOR FIL MACRO M1113 12-JAN-32 11:05 PAGE 1

SEQ 0099

1
g

.TITLE
CIDENT

* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

FMTRBL - DISPLAY BAD SECTOR FILE CONTENTS

/01.00/

;

14
}2

*
:

9
10
11
12
13

P THIS
SOFTWARE
IS
FURNISHED
UNDER A LICENSE FOR USE ONLY ON A
* SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
P OF
THE
ABOVE COPYRIGHT
NOTICE.
THIS SOFTWARE, OR
ANY
OTHER
: COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
MADE AVAILABLE
P TO ANY
OTHER PERSON EXCEPT
FOR USE ON SUCH SYSTEM AND TO ONE
WHO AGREES TO THESE LICENSE TERMS.
TITLE
TO
AND
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

: THE

: EQUIPMENT CORPORATION.

INFORMATION

IN THIS DOCUMENT IS SUBJECT

* NOTICE AND SHOULD NOT BE CONSTRUED AS A

* DIGITAL ASSUMES NO

;

: C. HESS

’

TO CHANGE WITHOUT

COMMITMENT

VERSION 01.00

NLIST

BEX

9-JUL-80

22-0CT-80

123
115
125
103
110
103
052

123
104
104
122
104
131
040

106
102
102
105
101
114
111

MSGIL:
MSG2L:
MSG3L:
MSG4L:
MSGSL:
MSG6L:
MSG7L:

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

/SSF (SKIPPED SECTOR FILE) CONTENTS/
/MDBSF CONTENTS/
/UDBSF CONTENTS/
SCREATION DATE: @
@HDA o/N: @
/CYL,TRK,SEC/
/+ INVALID DATE #/

43 000251
4% 000302
22 000333

115
125
040

104
104
000

102
102

MSG11L:
MSG12L:
SPACE:

.ASCIZ
.ASCIZ
.ASCIZ

/MDBSF
/UDBSF
7/ /

47 000335
48
49

g? 000336

052
122
122

00C

040
105
105

116
126
126

DIGITAL

RESPONSIBILITY FOR THE USE OR RELIABILITY OF

33 000000
3% 000043
35 000062
36 000101
37 000121
38 000133
39 000147

40 000170
41 000207
42 000227

ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

P M. LEAVITT

OWNERSHIP OF

MSGBL:
MSGOL:
MSGI1OL:

.ASCIZ
.ASCIZ
.ASCIZ

/% NO ENTRIES #/
/REVISION DATE: /
/REVISION NUMBER: /

'LOGICAL® CONTENTS/
'LOGICAL® CONTENTS/

SSFLST:
.EVEN

.BYTE

; LIST SSF SWITCH

DPARS:

.BLkKW

10.

: OUTPUT CONVERSION BUFFER

FMTRBL -~ DISPLAY BAD SECTOR FIL MACRO M1113 12-JAN-82 11:05 PAGE 2

SEQ@ 0100

«*=$RMBOL-DISPLAY THE CONTENTS OF THE MDBSF, UDBSF, AND SSF

THIS ROUTINE WILL DISPLAY THE CONTENTS OF

INPUTS:

: AND THE SSF FIJLES.

THE MDBSF,

THE UDBSF

NONE

2(1)

62
63
64

: OUTPUTS:
:
THE CONTENTS OF THE MDBSF, UDBSF, AND SSF PRINTED ON ‘TI:'
:
*'$SWLST‘ CLEARED

65
66
gg

69 000362

;? 000366

.ENABL

004767

0000006

LSB

SRMBOL : : CALL

0000006

CALL

$RDSSF
$RDBSF

; READ THE SKIPPED SECTOR FILE (SSF)

: READ THE MDBSF AND THE UDBSF

: DISPLAY THE SSF CONTENTS

74 000372
75 000376
76 000402
77 000406
78 000412
79 000416

012700
012701
004767
012701
004767
012700

000000°
000060
0000006
000000G
000600
0000006

MoV
MoV
CALL
MOV
CALL
MoV

#MSGIL RO
#60,R1
SPRNTO
#$SSF,R1
HDASN
#$BUFRX RO

: "SSF (SKIPPED SECTOR FILE) CONTENTS®
: CARRIAGE CONTROL CHARACTER
:
: SERIAL NUMBER POINTER
: PRINT THE HDA SERIAL NUMBER
: BUFFER POINTER

81 000426
82 000432
83 000436
84 000442
85 000446
86 000452
87 000456
88 000462
89 000466
90 000472
91 000476
92 000502
93 000506
94 000510
95 000514
96 000516

004767
012703
004767
012700
012703
004767
012703
004767
012700
012703
004767
016701
005002
004767
105010
012700

0000006
000004G
000240
0000006
000207°
0000006
0000066
000214
0000006
000227°
(C000006
0000106

$MOVE
#8SSF +4 ,R3
SFDATE
#SBUFRX,RO
#MSG9L ,R3
SMOVE
#$SSF+6,R3
SFDATE
#SBUFRX,RO
#MSG10L ,R3
$MOVE
$SSF+10,R1
R2
$CBDMG
(RO)
#$BUFRX RO

:
:
;
:
:
:
;
:
:

0000006

CALL
MOV
CALL
MOV
MOV
CALL
MOV
CALL
MOV
MoV
CALL
MoV
CLR
CALL
CLR8
MOV

012703

000000C

MOV

#$SSF+<2+$SSFHD> ,R3

004767

000270

CALL

BSFDAT

80 000422

97 000522

98 000526

99 000532

100 000540

}8; 000544

012703

004767

112767

105067

000101°

0000006

177777

106 000554
107 000560
108 000562
109 000566

CALL

177575

MOov8

177565

}82
105 000550

MOV

CLRB

#MSG4LL RS

$SPRINT

#-1,SSFLST
SSFLST

: "CREATION DATE: °*

;
:
;
;
:
:
;

LOAD THE BUFFER
DATE FIELD POINTER
PRINT THE SSF DATE FIELDS
BUFFER POINTER
"REVISION DATE: °*
LOAD THE BUFFER
DATE FIELD POINTER
PRINT THE SSF DATE FIELDS
BUFFER POINTER
"REVISION NUMBER: °*
LOAD THE BUFFER
REVISION NUMBER
ENABLE ZERO SUPRESSION
CONVERT
ASCIZ TERMINATOR
OUTPUT POINTER
: BEGINNING OF SSF DATA FIELD

: SET SSF LIST FLAG

: PRINT THE SSF FILE CONTENTS

: RESET THE SSF LIST FLAG

: DISPLAY THE MDBSF CONTENTS
012700

105767
001402
012700
012701

000043°

MOV

0000006
000251°*
000060

108:

1ST8
BEQ
MOV
MOV

#MSG2L RO

$SWLOG
108
#MSG11L,RO
#60,R1

'MDBSF

(ONTENTS'

: SEE IF LOGICAL DISPLAY
: IF EQ, NO
: CHANGE TO °'MDBSF LOGICAL CONTENTS®
: CARRIAGE CONTROL CHARACTER

SEQ@ 0101

FMTRBL ~ DISPLAY BAD SECTOR FIL MACRO M1113 “2-JAN-82 11:05 PAGE 2-1

d e

000410

BSFDAT

FR Y

CALL

#SMDBSF +10,R3

000700

105067

000207

208 :

.DSABL

208
#MSG12L
RO

MOV

CALL

BEQ
Mov

$5WLOG

#60,R1

MOV
CALL
MOV
CALL
MOV
CALL
CLRB
RETURN

0000006

MDBSF S/N POINTER
TYPE THE SERIAL NUMBER
MDBSF DATA POINTER

DISPLAY THE MDBSF

SPRNTO

#$UDBSF ,R1
HDASN
#SUDBSF +10,R3
BSFDAT
#SPACE ,RO
SPRINT
$SWLST

‘'UDBSF CONTENTS'®
SEE _IF LOGICAL DISPLAY
IF

EQ, NO

CHANGE TO °‘UDBSF LOGICAL CONTENTS'®
CARRIAGE CONTROL CHARACTER
UDBSF S/N POINTER
TYPE

THE SERIAL NUMBER

UDBSF DATA POINTER
DISPLAY THE UDBSF
BLANK LINE
PRINT THE LINE

CLEAR THE

°LIST' FLAG

LSB

#MSG3L ,RO

1ST8

TRFE PR

000302°*

Mov

Y FE FE PR YR

000062
0000006

LA FE YN FE TR

D md

d ad

D d ed

D e cad

012700
105767
001402
012700
012701
004767
012701
004767
012703
004767
012700
004767

D
)

#SMDBSF ,R1
HDASN

MOov

0000106
000216

MoV
CALL

; DISPLAY TKE UDBSF CONTENTS

D wd

OONONWNNAALAES B BN BN 85 25 05 85 85 2 WWAN NN N N AN N NN PO PO PO RO RO PONONIA) b b b e
WA = (NN = OO0 NNV
NN =2 O QO O VIS AW
2 OV
NO WS NN = O OO~

D e

004767

SPRNTO

CALL

0000006
0000006

LA TR TR

b b
D b
NS WWIN = O

004767

D and

*«~SFDATE-DISPLAY THE SSF DATE FIELD CONTENTS
THIS ROUTINE PRINTS THE

e wmd and end

FROM THE SS

b el wd

INPUT:

RO
R3

CREATION AND REVISICN DATE FIELDS

BUFFER POINTER
DATE FIELD POINTER

OUTPUT:

b cnud wnd end

b emd amd e

b cd b

)

b end

NONE

000702

011301

177037

000014
177400

177740
000037
177362

000001

0000006
177340

000336°

SFDATE: MOV
BIC
TST
8EQ
CMP
BHI
MoV
MOV

8IC
CMP
BHI

MOV
MOv8

ASR
ADD

MOV
Mov

(R3) ,R1
#4C740,R1
R1
108

R1,#12.

10$

R1,DPARS+2

(R$) .R1
#4037 R1
R1,#31.
10$

R1,DPARS
+4
1(R3) .R1
R1
#BASYR ,R1
R1,DPARS
#DPARS ,R1

DATE
LEAVE MONTH CODE
LOOK FOR VALID MONTH
IF_EQ, MONTH CODE OF ZERO
CHECK MONTH UPPER LIMIT
IF HI, MONTH CODE ERROR

MOVE MONTH

GET THE DATE AGAIN
LEAVE THE DAY CODE
CHECK VALIDITY
IF HI, INVALID DAY

GET THE YEAR CODE
RIGHT JUSTIFY

ADD THE BASE YEAR
YEAR

INPUT BUFFER POINTER

SEQ@ 0102

b
D
el ad
)
—t el ad

[olelelelelolels]
WO
= OO
NONNO OO0

[eleololelelelele]
[slelelolelelaTe]

004767
000404
012703

000207

0000006

000147°*
0000006

108:

20%:

0000006
0000006

CALL
BR

MOV
CALL

CLRB
MOV
CALL
RETURN

$DAT

CONVERT THE DATE

208

CONT INUE

#MSG7L ,R3
$MOVE
(RO)
#$BUFRX
RO
SPRINT

‘#e INVALID DATE »+’
LOAD THE TEXT
ASCIZ TERMINATOR
BUFFER POINTER
PRINT THE DATE

D d e

b d

D d

0 O YO O O O O O O D00 G0 0000 000000 000000~ N NNV~
NV S
el] NOWVES NN =20 000 NYO NS WWN =O V00N

FMTR8L ~ DISPLAY BAD SECTOR FIL MACRO M1113 12-JAN-82 11:05 PAGE 2-2

)

v+~BSFDAT=-DISPLAY THE BAD SECTOR FILE CONTENTS

THIS ROUTINE PRINTS THE DEFECT ADDRESS ENTRIES IN THE MDBSF

INPUT:

R3 = START OF THE BAD SECTOR FILE DATA AREA
SSFLST = =1 IF THE SSF IS BEING LISTED

000133*

108:

20$:
000002

000000G
0000006

0000006
000054
000001
0000006
000054
177165

1ST8
BNE
CALL

0000006

308:

004767

0000006
0000006

MoV
CALL
MOV
MoV
MOv8
MOvB
MOV
8MI
CLR
CALL
MovB
MOvS8
CLR
CALL
MOv8
MOovB
1ST8

BNE

0000006

8CS
INC
TST
CLR
CALL

(Lr8
MOV

CALL

., STRK
3(R35
2(R3).$SEC
(R3)+.R1
A 08

R2
$CBDMG
q'
.o (RO)+
R

5R3).R1

$(BDMG
#°.
(RO)+

(R$S ,R1

SSFLST

308

$SWLOG

308

$SRSSF

308

(R3)+
R2
$(BDMG
(RO)

#SBUFRX ,RO
SPRINT

A FAFE FRFEA
FE FE YR FE FEPN FR PN FE PN
FN FE T

004767
012700
011367
116367

000170°*
0000006

(R3)

108
AMSGBL ,RO
SPRINT
408
AMSG6L ,RO
$PRINT
#$BUFRX ,RO
(R3),$CYL

FEFA
A YA TR

012700
004767
000461
012700

BPL
MOV
CALL

A FEFAFE
YR FREFEFE YA

100005

SNNOOONNANES
S WWNWNNIN = =
O
NOOASONOSMNOMNOSH-OSNNOO

b
b
b
b cd
b
b
b
b

d e

b
b amd

b
b
D
b
b
e
b
b cd
b
i
b wud cad wnd
b and
—

230 001206

BSFDAT: TST

005713

LFA YA

o0
25N
oo

—_

[=3=
oo

001044
001050
001052
001056

(elelelelelelelelalelelolelelalelelsle]

NOrRONON NNSIASLIS LIS LN LS TN LN TN TN N 1,8 N
NV NPNOND b —d cd ced ) v cd e nd omd l=l=
[« XV, ¥VY] N = OVONO
NS WN—=O 0

200
201
202
203

001034

o [elele] [e=lelelelelelalelelelelolele] =

Y d

OUTPUT:
NONE

LOOK FOR END OF ENTRIES
IF PL, FILE ENTRIES PRESENT
‘st NO ENTRIES =»'
EXIT
*CYL,TRK,SEC®

OUTPUT BUFFER POINTER
LOAD THE CYLINDER ADDRESS
LOAD THE TRACK ADDRESS
LOAD THE SECTOR ADDRESS
GET THE CYLINDER ADDRESS
IF MI, NO MORE ENTRIES
ENABLE ZERO SUPRESSION
CONVERTY
SEPARATOR
TRACK ADDRESS

ENABLE ZERO SUPRESSION
CONVERT
SEPARATCR
SECTOR ADDRESS
LISTING THE SSF CONTENTS ?
IF NE, YES

PRINT BSF LOGICAL ADDRESSES ?

IF NE, YES
CHECK THE SSF
IF CS, SECTOR ENTRY PHYSICAL VALUE
INCREMENTY THE SECTOR ADDRESS
INCREMENT THE INPUT POINTER
ENABLE ZERO SUPRESSION
CONVERT
ASCIZ TERMINATOR
OUTPUT BUFFER POINTER
PRINT THE ADDRESS

N
FMTRBL = DISP_AY BAD SECTOR FIL MACRO M1113 12-JAN-82 11:05 PAGE 2-3

231 001212

5%% 001214

000723

000207

40$:

B8R

RETURN

20%

SEQ 0103

. LOOP
:

234

237

: THIS ROUTINE CONVERTS THE HDA SERIAL NUMBER FROM THE DEC STD 144
:

FILES OR THE SSF

240

INPUTS:

243
244

: OUTPUTS:
:
NONE

%%2

; ++=HDASN=DISPLAY THE HDA SERIAL NUMBER

ggg

%25

245

012167
011167
012701

177116
177110
000336

252 001236

012700

000000G

254 001246
255 001250
256 001254
257 001256
258 001262
523 001266

005002
004767
105010
012700
004767
000207

253 001242

261

= SERJAL NUMBER FIELD POINTER

248 001216
249 001222
250 001226

251 001232

TO ASCII AND PRINTS IT.

012703

004767

000001

HDASN:

000121°

MOV
MoV
MoV

(R1)+,DPARS+2
(R1) ,DPARS
#DPARS ,R1

; EXCHANGE S/N MSB & LSB
:
: RELOAD THE SERIAL NUMBER POINTER

MOV

#$BUFRX,RO

: BUFFER POINTER

MOV

000000G

CAL.

CLR
CALL
CLRB
MOV
CALL
RETURN

0000006
0000006
0000006
.END

#MSGS5L ,R3
$SMOVE

R2
$CDDMG
(RO)
#$BUFRX,RO
SPRINT

: 'HDA S/N: °

; LOAD THE BUFFER
:
:
;
:
:
:

SUPRESS LEADING ZEROS
CONVERT THE SERIAL NUMBER TO ASCI!
ASCIZ TERMINATOR
BUFFER ADDRESS
PRINT THE SERIAL NUMBER

8
FMTRBL = DISPLAY BAD SECTOR FIL MACRO M1113 12-JAN-82 11:05 PAGE 2-4

SEQ 0104

MSG2L
MSG3L

BASYR = reener (X
BSFDAT
001034R
DPARS

MSGoL

MSGS5L
MSGOL
MSG7L
MSGBL
MSGOL

HDASN

MSGIL
MSG10L
MSG11L
MsG1aL

000302R

000000
001270
ERRORS DETECTED:
. ABS.

[=l=]l=lolelelele

SYMBOL TABLE

000
001

471 WORDS
( 2 PAGES)
VIRTUAL MEMORY USED:
7942
WORDS
HEHORY
(
30
PAGES)
DYNAMIC
ELAPSED TIME:
00:00:10

£300.201FMTR8L ,L[300,30]FMTR8L=C300, 10]JFMTR8L

SFDATE
SPACE
SSFLST

$SBUFRX=

000702R
000333R
0J0335R
wxanne

$CBDMG= wwenan (X
$CDDMG= rannnn (X
ranenn

$DAT : wennne GX

eanaen
weanae

GX
(X

$SRSSF= L22221

senent

sennne
wanaee
aannen

GX
GX
GX

SRMBOL
000362RG
$SEC
= atenen GX

LA A 22

ANt eee
]
LA222
L 23221
122222
AR

LA TEATE PR VR

33 000000
34
35

052

040

—m

O e
m—y

NN 3
YRFE
TR
PRFEA
PRTAFEPEFATE FRE
A FE YR FEA PR PR FE FEFE FE

WA= OO 00NV

POPONIN) Db b cd b b b b oD d

s e

AN =2 OO 00 NN SN —

FMYINY = INITIALIZE MDBSF, UDBS MACRO M1113 12-JAN-82 11:05 PAGE 1

SE@ 0105

FMTINT - INITIALIZE MDBSF, UPBSF,

/01.00/

SSF

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS

SOFTWARE

FURNISHED

UNDER A LICENSE FOR USE ONLY ON A

SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF
THE_ ABOVE COPYRIGHT NOTICE.
THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAJLABLE
TO ANY
OTHER PERSON
EXCEPT
FOR USE ON SUCH SYSTEM AND TO ONE
WHO AGREES TO THESE LICENSE TERMS.
TITLE
TO AND
OWNERSHIP OF
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

THE
INFORMATION
IN THIS DOCUMENT IS SUBJECT
TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A
COMMITMENT
8Y
DIGITAL

EQUIPMENT CORPORATION.

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF
ITS SOFTWARE ON EQUIPMENT WHICH IS #IT SUPPLIED BY DIGITAL.

VERSION 01.00

C. HESS

M. LEAVITT

.NLIST

BEX

nggzlz

+ASCIZ

15-AUG-80
14-JAN-81

/*x WARNING - BAD SECTOR FILES WILL BE OVERWRITTEN ON /

SEQ@ 0106

FMTINT - INITIALIZE MDBSF, UDBS MACRO M1113 12-JAN-82 11:05 PAGE 2

++~$RMBOI-INITIALIZE THE RM80'S MDBSF, UDBSF, & SSF TRA(KS
THIS ROUTINE WILL FORMAT THE DEC STD 144 TRACK AND THE SSF
AND WRITE NULL 16 BIT DEC STD 144 AND SKIP SECTOR FILES.

TRACK

INPUTS:

N ONE

OUTUTS:
NONE
4

50 000066
51 000072
52 000076
53 000102
54 000106
55 000112
56 000116
S7 000122

58 000126
59 000132
60 000134
61 000142
62 000144
63 000150
64 000154
65 00Vi&0
66 000164
67 000170
68 000172
69 000174
70 000200
71 000202

012703
004767
012703
004767

000000°*

$RMB0]
: :MOV
CALL

0000006
0000006
0000006
0001446
000060
0000006
0000006

MOV
CALL
MOV
MOV
CALL
MOV
CALL

0000006
000131

8EQ
CMPB
BEQ
JMP

0000006

0000006
000374
0000006
0000006
0000026

MOV
MOV
MOV
MOV

3s:

177777

CLR
CLR

MOV
DEC

BNE

0000006
0000006
0000026

48:

#MSGIR]I,R3

SUNT'D
#8MSL24
RS
$SMOVE
P3$8UF +100. ,R0
#60,R1
$PRNTO
#3$MSG31,RO
SPRMPT
18
#'Y,$8BUFRX

SFMTEX

#256.-4
,R3

#SMDBSF
RO

$SSNAME
, (RO) +
$SSNAME
+2, (RO) +
(RO)+
¢
(RQ)
#=1,(R0O)+
R3
33
#SUDBSF ,RO
$SNAME
, (RO) +
SSNAME+2,
(RO) +
(RO)+
+
(RO)
#256.-4 ,R3

WARNING MESSAGE ADDRESS
STORE MESSAGE AND DEVICE/UNIT
; MESSAGE SUFFIX
[J
LOAD THE SUFFIX INTO THE MESSAGE BUFFER
: PRINT THE WARNING MESSAGE
.

[

;

[

;

[

;

[

;

[}
.

[ 4

s
;
;
.

[
[4

[

86 000260
87 000266
88 000274
89 000302
90 000310
91 000314
99 000336

100 000342

0000006
0000026
0000006
0000006
0000106
000001
0000226
0000246

5$:

0000006
0000026
0000046
0000066
0000126

PRINT WARNING MESSAGE

'YES=NO' MESSAGE POINTER

PROMPT AND GET RESPONSE

IF EQ, RESPONSE WAS 'NO°
SEE _IF RESPONSE WAS °YES'
IF EQ, RESPONSE WAS °'YES'

EXIT
GET NUMBER OF ENTRIES TO RESET
GET START OF MDBSF
STUFF THE NEW SERIAL NUMBER

* BLANK WORD

[
L4

L4
.

[

SHOW NOT AN ALIGNMENT DISK

EMPTY THE MDBSF
FINISHED?

; IF _NE NO
GET START OF UDBSF
STUFF THE NEW SERIAL NUMBER

[

[J
.

[

BLANK WORD

SHOW NOT AN ALIGNMENT DISK
GET NUMBER OF ENTRIES TO RESET
#-1,(RO)¢+
. EMPTY THE UDBSF
R3
: FINISHED?
(3
IF NE NO
#256.*<$SSFLN>
RS
. SSF SIZE
#$SSF RO
SSF BUFFER POINTER
#-1,(R0O)+
. CLEAR A LOCATION
R3
COUNT THE LOCATION
5%
IF NE, NOT FINISHED
$SNAME
, $SSF
SERIAL NUMBER LSB
SSNAME+2 ,8SSF+2 ; SERIAL NUMBER MSB
; CREATION DATE
, $SSF +4
DPARS
REVISION DATE
DPARS . $SSF
+6
$ssF+i0
REVISION NUMBER
SSF _DATA TYPE INDICATOR (16 BIT)
: NUMBER OF SSF ENTRIES
$SSF +24
CHECKSUM
[

[

4
[
[

000000C
0000006
177777

2 LINE FEED CARRIAGE CONTROL

E
FMTINT = INITIALIZE MDBSF, UDBS MACRO M1113 12-JAN-82 11:05 PAGE 2-1
101

000346

004767

103 000356

004767

102 000352

104 000362
}82 000366
107

SEQ 0107

0000006

CALL

$R80SF

;

0000006

CALL

SWTISSF

¢ WRITE THE SSF

004767

0000006

105067
000207

0000006

000001

CALL

6$:
.END

CLRB
RETURN

$WIBSF
$SWINT

CALL

THE

°'SPECIAL FORMATTER'

: WRITE THE DEC STD 144 INFORMATION
:
:

CLEAR THE INITIALIZATION FLAG

SEQ 0108

FMTINT = INITIALIZE MDBSF, UDBS MACRO M1113 12-UAN-82 11:05 PAGE 2-2
SYMBOL TABLE

DPARS

MSGIRI

SBUF
=
SBUFRX=

atnenn

000000R
wrenen
treren

SMDBSF=

tenenn

SMOVE = eeeene (X

GX
GX

$MSG24=
SMSG31=

wennnr
wwnenn

(X
GX

SFMTEX= eennenr GX

. ABS.

000000
000370
ERRORS DETECTED:

000
001

VIRTUAL MEMORY USED:
489 WORDS
( 2 PAGES)
DYNAMI(C MEMORY:
7942 WORDS
( 30 PAGES)
ELAPSED TIME:
00:0 0:07
£300,20FMTINT,[300,303FMTINT=L300,10FMT INT

SPRMPT= teenae GX
$SPRANTO=

sRANNY

sxeean GX

$RM301
000066RG
$SRBOSF= wanans GX

ARRNAY

SSSFLN$SWINT=

L A4 2] ]

2 dd
LAA

= KRR NNR
$UDBSF
SUNTID= ARRRNY
SWUTBSF= AN REN
SWTSSF= 1223343