Digital PDFs

AH-T123A-MC

2000

Number of pages unknown

Original

52MB

view download

OCR Version

70MB

view download

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

OCR Text

CZRNJAO RMBO FORMATTER
1

2
3

MACRO M1113

12-JAN-82 11:00

SEQ 0001

PAGE 2

.REM @

S
6
4
8

9
10
}1

14
15

IDENTIFICATION

PRODUCT CODE:

AC=T122A-MC

PRODUCT NAME:

CZRNJAO

PRODUCT DATE:

JANUARY 1982

MAINTAINER:

CX DIAGNOSTIC GROUP

AUTHOR:

C. HESS, M. LEAVITT

31
32
33
gg

RMB0 FORMATTER

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND
SHOULD
NOT
BE
CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

36
gg

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

_?.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR

DIGITAL.

SOFTWARE

EQUIPMENT

THAT

NOT

[ ]

.
o

RELIABILITY OF ITS

SUPPLIED

B8Y

1. ABSTRACT

OPERATING REQUIREMENTS
1. HARDWARE REQUIREMENTS
2. PREREQUISITE DIAGNOSTIC PROGRAMS

3. OPERATING PROCELURE
1. LOADING

« SWITCH OPTIONS
. STARTING
4. HALTING
5. RESTARTING

OPERATOR INTERFACE

NO-wnSWN

1. PROGRAM IDENTIFICATION
. CONSOLE DIALOGUE

. WARNING MESSAGES

PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRAM HALTS

ERROR _REPORTS
8. EXECUTION TIME

s. ENVIRONMENTAL SUPPORT

NOAWES W

1. PROCESSOR COMPATIBILITY
. DUAL PORT CONFIGURATIONS
« 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

W) LAP
W R LA

INTRODUCTION

CONTENTS

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

SEQ 0003

1.0

INTRODUCTION

1.1

ABSTRACT

THE RM80

D D

N
L S B RN R A NN S S VDN

b D D D d d D D D D
b

BIT_APPLICATIONS

NS S S RN R M R

ERROR RATE THAN IT HAD INITIALLY.
CONSEQUENTLY,
THE
FIELD
FORMATTER WILL NOT 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 VERIFICATION, 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

BAD_SECTOR

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

N
S O

FOR

THE RM80 HDA MEDIA IS VERIFIED IN MANUFACTURING USING PARAMETERIC
VERIFICATION
EQUIPMENT.
THE
DEFECT LIST GENERATED BY THE
MANUFACTURING VERIFCATION PROCESS IS THE MASTER LIST OF DEFECTS_ ON
THE HDA.,
EXPERIENCE WITH PREVIOUS DISK PRODUCTS INDICATES THAT
FUNCTIONAL FORMAT/VERIFICATION PROGRAMS
CANNOT PERFORM ADEQUATE
MEDIA VERIFICATION AND WILL MISS A LARGE NUMBER OF THE DEFECTS
WHICH ARE PRESENT.
SINCE ONLY A FEW OF THE ACTUAL DEFECTS WHICH
ARE PRESENT ARE_DETECTED BY A FUNCTIONAL FORMAT/VERIFICATION
PROGRAM, MARKING THE
ERRORS
ODISCOVERED BY
SUCH A VERIFICATION
PROGRAM WILL,
IN EFFECT, CREATE AN HDA WHICH HAS A HIGHER APPARENT

) D b

TRT

PROCESS

THE NUMBER OF DEFECTS (BAD SECTORS) WILL EXCEED THE NUMBER OF BAD
SECTORS THAT THE 16 BIT FILE SYSTEMS CAN ACCEPT.
SKIP SECTORING
WAS ADDED TO THE RM80 TO REDUCE THE APPARENT NUMBER OF BAD SECTORS:
SKIPPED SECTORS ARE VISIBLE ONLY TO THE HOST OPERATING SYSTEM'S
RMB0 DEVICE DRIVER.
(THE FILE SYSTEM VISIBLE DEFECTS ARE LISTED IN
THE
_DEC_
STD
144 MFG AND USER'S FILES, MDBSF AND UDBSF,
RESPECTIVELY.)

FORMAT

BECAUSE OF THE TECHNOLOGY USED IN THE RM80 HDA, IT IS EXPECTED THAT

DWW WWWWWWNW

D e e e e i cd md D e d e i D

VIS SN

e D i be
e

— e

FIELD

RECONSTRUCTION PROCESS THAT RE-ESTABLISHES THE FACTORY FORMAT OF
THE HDA,
THE FORMATTER IS NOT INTENDED TO BE USED BY FIELD SERVICE
AS RM80 TROUBLE SHOOTING TOOL;
ALSO, HDAS SHOULD NOT BE FORMATTED
gfi}ffigsgflE EXISTING FORMAT HAS BEEN DAMAGED BY HARDWARE OR SOF TWARE

= O DO~

D e i D D D i e

d
<o

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

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS
THE

FOLLOWING

gss::}{ggkt.

MINIMUM

HARDWARE

REQUIRED

PDP=11/70 PROCESSOR
28K MEMORY

CONFIGURATION,

ASSUMED

LOAD AND EXECUTE THE RM8B0O

SUBSYSTEM

D d

AR AR 2B IBIF ANANISTE I AR

CZRNJAO RMBO FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 5
KW11=L OR KW11=P CLOCK

AR AR 8 88 R RS e S R

and D D D d ed d D D

D ) D D e d D D D d D d D e

) D D d e

PROGRAM LOADING DEVICE
TERMINAL

RH?O CONTROLLER
1 TO 8 RM80 DISK DRIVES

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

SUPPORT

ANY

HARDWARE

OR SOFTWARE SWITCH

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

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 BY
PRESSING CONTINUE ON THE PROCESSOR FRONT PANEL OR RELOADING
THE PROGRAM AND STARTING AT ADDRESS 200 .

3.5

RESTARTING
THE

PROGRAM

CAN

ONLY

STARTING AT ADDRESS 200 .
4.0

OPERATOR INTERFACE

4.1

PROGRAM IDENTIFICATION

RESTARTED BY RELOADING THE PROGRAM AND

THE PROGRAM TYPES ITS TITLE THE FIRS/
BEING LOADED.

R
WN=O

b w—d
)
)
D cd
—

PREREQUISITE DIAGNOSTIC PROGRAMS
RMB0 DISKLESS TEST, PART 1 AND 2

) cd d D

LSLS
LN NN LN NnaRINININININININN — e

SEQ 0004

4.2

TIME

STARTED

AFTER

(CONSOLE DIALOGUE
THE
PROGRAM ENTERS A
PROGRAM IDENTIFICATION.

CONSOLE DIALOGUE SEQUENCE AFTER TYPING THE

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

THE

USER

SEQ 0005

NINININ AN NININ NN NN
NN
=
NOWVS
NN =OYVONOVSWIN—-OV00

CZRNJAO RMB0 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

ALL

THE BAD SECTOR FILES (DEC STD 144 AND

NOTE: THE INITIALIZE COMMAND WILL DESTROY THE CONTENTS
g;F)ALL
THE BAD SECTOR FILES (DEC STD 144 AND
FO

FORMAT THE DISK.

<CR>

SAME AS 'FO' COMMAND.

FO:F

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

LIST

(ALL CYLINDERS 0 - 560.)

(CYL 559., TRK 2 =

(YL

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 THE DEC
i;gaegggs)FILES.
(SSF
DOES NOT CONTAIN ANY LOGICAL

VFL=N

VERIFY SECTOR COUNT, WHERE °'N' IS THE NUMBER OF
TO

RE-READ

TRACK

DEFAULT IS 1 (RANGE
FORMAT,

ERL=N

DURING

1-256.).

VERIFY

OPERATION.

TIMES

AFTER_COMPLETING

°"N' WILL RETURN TO ITS DEFAULT VALUE.

THE

ERROR_LIMIT

COUNT, WHERE °'N' IS THE NUMBER OF ERRORS

256

1-256.). AFTER COMPLETING THE FORMAT, °'N'

ALLOWED BEFORE THE FORMAT IS ABORTED.

(RANGE

THE DEFAULT

IS _THE ADDRESS OF RMCS1

_IN

WILL RETURN TO ITS DEFAULT VALUE.

CSR=N

RM BASE ADDRESS,

OCTAL.

THE

WHERE °'N'

DEFAULT

IS 176700. AFTER COMPLETING THE

FORMAT, °N' WILL RETAIN ITS CHANGED VALUE.

VEC=N

RM_ VECTOR ADDRESS, WHERE
'N'
IS THE ADDRESS OF
INTERRUPT ADDRESS IN OCTAL. THE DEFAULT IS 254. AFTER
62T5%ETING THE FORMAT, °'N' WILL RETAIN ITS CHANGED

SEQ 0006

CZRNJAC RM80 FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 7
THE USER MAY STRING ANY COMBINATION OF COMMAND OPTIONS TOGETHER BY
USING A SLASH (/) TO_SEPARATE THE COMMANDS.
HOWEVER,
IF ONLY A
CARRIAGE RETURN IS 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<CR>

W
VNNV

N NN N N W N N N NN
N — ) d e D e e ) o ——d

KOOV
R AR L
NN =O$=<s 3 R

THE ABOVE COMMAND INDICATES THAT THE ENTIRE DISK WILL BE FORMATTED,
THE RMCS1 ADDRESS WILL BE SET TO 176000, THE_VECTOR ADDRESS WILL BE

gETSEO ZboioTHE VERIFY COUNT WILL BE SET TO 3 AND ERROR LIMIT

WILL

THE

FOLLOWING PROMPT WILL OCCUR
IF THE OPTION SPECIFIED WAS AN
INITIALIZE (IN) OR FORMAT (FO) COMMAND.

"CONTINVE (L) N ?2 '
IF THE RESPONSE TO THIS PROMPT IS A

RETURN

JUST

CARRIAGE

°N'_

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.

THE

OPTION

SPECIFIED

"UPDATE MODE (L) N 2 °*
IF__THE

RESPONSE

RETURN OR JUST A

THIS

CARRIAGE

WAS

_
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 THE OPTION SPECIFIED WAS AN

INITIALIZE (IN) OR FORMAT (FO) COMMAND.

'ENTER DATE (DD-MMM-YY): °*
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:

{’E'EJG#PIA SERIAL NUMBER CAN BE ANY DECIMAL NUMBER UP TO 10. DIGITS IN

BEIFHRURZS

N NN N NN N NN

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

THE

SEQ@ 0007

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

3%0

RETURN.

§2g

TERMNATE

THE BAD SECTOR ENTRY LIST, TYPE A CARRIAGE

RETURN IN RESPONSE TO THE ENTRY PROMPT.

344

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

345
346
gzg

#2), THE LETTER
'H'
(HEADER DEFECT) MUST FOLLOW THE DEFECT
INDICATED.
THIS WILL INDICATE TO THE PROGRAM, WHICH FILE
(SSF OR
DEC STD 144) THE DEFECT MUST BE STORED IN.

EXAMPLE #1:

ggg
351

ENTER BAD SECTR ADRS:

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

;ggrecr

ggg

CYL,TRK,SEC = <CR>

:TERMINATE INPUT

ggg

356
357
ggg

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)

gg?

ENTER BAD SECTR ADRS:

363
364
ggg

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

MANUFACTURES SECTiON OF THE DEC STD 144 FILE.
MORE DETAILS)

374
g;z

379
380
381
ggg
ggg

386
387

;DEFECT CYL 524., TRK 4.,
25. (HEADER ERROR)
: TERMINATE INPUT

SEC

THIS 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 DEFELT.
THE DEFECT WILL BE ENTERED IN THE

;

373

g;g

FILE
(SEE

EXAMPLE #2:

362

367
368
369
370
g;;

CYL 524.. TRK 4., SEC

NOTE: THE

\
'

LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE

OF RESPONSE REQUIRSD BY THE USER,
L=LETTER.

4.3

(SEE SECTION 7.0 FOR

D=DECIMAL, O0=OCTAL AND

WARNING MESSAGES
WARNING MESSAGES WILL BE TYPED AT THE APPROPRIATE TIME DURING THE
PROGRAM TO NOTIFY THE USER THAT THE CONTENTS OF
THE MDA WILL BE
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, THE FOLLOWING MESSAGE WILL BE TYPED
BEFORE INITIALIZING THE HDA.

JUST

——

SEQ 0008

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

*#* WARNING = BAD SECTOR FILES WILL BE OVERWRITTEN ON DRN: w#'
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.
Lo

4.5

PROGRESS REPORTS ARE GIVEN DURING THE EXECUTION OF THE PROGRAM.

PERFORMANCE REPORT

NO PERFORMANCE REPORTS

ARE

PROGRAM.

4.6

(SEE SECTION 4.2)

PROGRESS REPORTS

GIVEN

DURING

THE

EXECUTION

THE

PROGRAM HALTS

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM.

4.7

ERROR REPORTS
THE

FIRST LINE CONTAINS THE ERROR MESSAGE:

GIVES A BRIEF DESCRIPTION OF

THE

ONE LINF OF TEXT WHICH

ERROR.

THE

TYPICAL

ERROR

MESSAGE

FOR

FOLLOWED BY
ONE LINE CONTAINING DATA HEADERS AND DATA PERVININENT
TO THE ERROR.
THE LAST LINE CONTAINS THE
DECIMAL
REQUIVALENT OF
THE
RMDC
AND
RMDA REGISTERS,
WHICH
INDICATE
WHERE
THE ERROR

OCCURED.

THE FOLLOWING PRINTOUT SHOWS
PROGRAM:

THIS

HEADER/DATA ERROR DURING VERIFY

RMCS1=144252 RMCS2=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 SUPPORT

5.1

PROCESSOR COMPATIEBILITY

THE RM80 SUBSYSTEM FORMATTER IS EXECUTABLE ON
A
PDP-11/70
zg?CESSOR. PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE
5.2

DUAL PORT CONFIGURATIONS
THE RMB0 SUBSYSTEM FORMATTER DOES NOT SPECIFICALLY TEST

LOGIC

IN_

THE

RM80

ADAPTER

DUAL

MEMORY PARITY HARDWARE

PORT

BUT IS EXECUTABLE ON RM80 SUBSYSTEMS

HAVING THE DUAL PORT OPTION PROVIDING THE DUAL PORT SWITCH
TO THE APPROPRIATE PORT (A OR B).

5.3

SET

SE@ 0009

CZRNJAO RMB0 FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 10
MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE RM80
SUBSYSTEM FORMATTER.
450

5.4

MEMORY MANAGEMENT HARDWARE

MEMORY MANAGEMENT HARDWARE IS NOT USED DURING

THE

FORMATTER.

455

5.5

RM80

SUBSYSTEM

ACT11, APT11 COMPATIBILITY

THE

RHBO SUBSYSTEH FORMATTER IS COMPATIBLE WITH ACT11 AND APT11 IN

DUMP MODE ONLY

480

5.6

XXDP COMPATIBILITY

B:EYRH80 SUSBYSTEM FORMATTER IS COMPATIBLE WITH XXDP IN
465

5.7

DUMP

MODE

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

470

6.0

FORMAT DESCRIPTION

472

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.

PEFECTS

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

KNOWN

DEFECTS

ON THE HDA.

THE PROGRAM WILL READ AND

VERIFY THE DEFECT FILES USING THE FOLLOWING PROCEDURE:
1.

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
13.)
559.,

(CYL

558.,

TRK

AND CONTINUING TO THE SECONDARY DEC STD 144 TRACK (CYL
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

MDA

SERIAL

NUMBERS

THE

DISK

ADDRESSES

THE

DEC

STD

144

DEC

STD

144

(MANUFACTURING AND USER) FILE AGREE WITH THE SERIAL NUMBER IN
THE
SSF.
IF
THE
SERIAL NUMBER IN THE DEC
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.

VERIFY

THAT

THE

(MANUFACTURING AND USER) FILE ARE VALID RM80

ADDRESSES.

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

SEQ 0010

504
505

ggg

WILL BE READ AND VALIDATED.

506

509
510
N
g}%

ERROR

FOUND,

THE

FILE

ERROR

WILL BE

IN ERROR

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.

g}g
g}g

ADDRESS

CONSIDERED CORRUPTED AND THE NEXT COPY OF THE FILE

155555 133333 (OCTAL)

DB6DB6DB (HEX)

THE FOLLOWING SEQUENCE IS USED FOR FORMATTING:

518

519

520

gg;

THE SKIPPED SECTOR ERROR INHIBIT BIT (SSEI), BIT

IN_

THE

SETTING THIS BIT, IN 16 BIT MODE, ALLOWS

ALL

RMOF

SET BEFORE EACH WRITE OR READ OPERATION.

SECTORS ON THE TRACK.

523
524

ACCESS

USING A WRITE HEADER AND DATA COMMAND, EACH TRACK (32
SECTORS) IS FORMATTED IN 16 BIT MODE USING THE ABOVE DATA

ggg

PATTERN FOR THE DATA PORTION OF EACH SECTOR.

527
528
529
530
531
532
533
ggg

USING A WRITE CHECK HEADER AND DATA COMMAND, EACH TRACK IS
READ 1 TIME.
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
IS DISCONTINUED, AND THE
ADDRESS OF THE FAILING SECTOR IS SAVED
IN THE APPROPRIATE
DEFECT
LIST.
THE PROGRAM THEN CONTINUES CHECKING THE
REHAINDER OF THE TRACK.

536
537
ggg

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.

540

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

gz%

THE FE AREA WILL BE REFORMATTED.

541

544

CYL

559

TRK

AND

THE

SSF

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

THE SSF REVISION NUMBER AND DATE WILL BE UPDATED ONLY

gzg

FILE HAS BEEN UPDATED.

547
548
ggg

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
FILES AND THE SKIPPED SECTOR FILES WILL BE REWRITTEN.

551
552
ggz

NOTE: THE 18 BIT MODE DEFECT DEC STD 144 FILE RECORDS AND THE 18
BIT MODE SSF WILL BE REPLACED BY NULL RECORDS DURING A 16 BIT
MODE FORMAT.

555

IF,

DURING THE FORMAT, THE NUMBER OF NEWLY DETECTED DEFECTS CAUSES

557

THE

MAXIMUM,

556

558

559
560

THE TOTAL NUMBER OF DEFECTS IN THE MDBSF AND THE
THE

UDBSF

TO EXCEED

PROGRAM DISCONTINUES THE FORMAT AND DISPLAYS AN

ERROR HESSAGE TO THIS EFFECT. THE PROGRAM THEN RESTARTS THE FORMAT

PROCESS USING ONLY THE BAD SECTOR INFORMATION ALREADY IN THE MDBSF,
UDBSF, AND THE 5SF.
THE FORMATTER, UNDER THESE CIRCUMSTANCES, WILL

SE@ 0011

CZRNJAO RMB0 FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 12
562
563
564
565
ggg

WRITE THE TRACK STRUCTURE AND VERIFY THAT THE WRITE OCCURED
CORRECTLY, ONLY = NO MENTA VERIFICATION WILL BE ATTEMPTED.
THE
OPERATOR WIL. 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.

§72

THE TRACK IS RECONSTRUCTED ACCORDING TO DEFECTS LISTED

2%2

575
576
577

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.
(SEE SECTION 9.2)

THE DEC STD 144 FILE
CURRENT TRACK.

g;g

580
gg;

CHECKED

FOR

ANY

ENTRIES

THE

583
584
585
586
587

FOR DEC STD 144 ENTRIES WHICH OCCUR BEFORE A SKIPPED SECTOR
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
591

FOR DEC STD 144 ENTRIES WHICH OCCUR AFTER A SKIPPED SECTOR,
THE APPROPRIATE HEADER BIT 1S RESET (MF OR UF, ACCORDING TO

593

LISTED IN THE DEC STD 144 FILE BY LOGICAL ADDRESS. (SEE

ggg

STD 144 FILE.

592

THE FILE CONTAINING THE DEFECT ADDRESS). ALSO, THE DEFECT

ggg

600
235

603
604
605

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

7.2

NEW DEFECTS

MEWLY DETECTED ERRORS ON TRACKS WHICH ALREADY HAVE ERRORS,
HANDLED AS FOLLOWS:

289

608

—

D cd

coO~NO
NS W

ooononorONON

D cd —d

609
610
611

SECTION 9.4 = 9.11) THE LOGICAL ADDRESS IS:

ggg
ggg

(SEE SECTION 9.1 AND 9.3)

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

geggsa OF EACH ERRORED SECTOR IS RESET.
2.

ARE

(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

ERROR,

THE

16 BIT UDBSF.

DEFECT

SECTOR

HAS

HEADER

SECTOR'S PHYSICAL ADDRESS IS ALSO ENTERED IN THE

(SEE SECTION 9.5) HOWEVER, IF THE HEADER ERROR

s
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 SECTION 9.10)
FOR THE CASE OF A SECTOR WITH A HEADER FIELD DEFECT WHICH IS
IMMEDIATELY FOLLOWED BY 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:
1.

WHICH

WERE

PREVIOUSLY HAD NO

SKIPPED SECTORING STARTS WITH THE FIRST (PRIMARY), NON-HEADER
DEFECT
THE TRACK.
THE PHYSICAL ADDRESS OF THIS DEFECT IS

ENTERED INTO THE SSF.

(SEE SECTION 9.2)

NOTE: SKIPPED SECTORING CANNOT BEGIN WITH A SECTOR WHICH
A HEADER FIELD DEFECT.

HAS

THE
__HEADER OF
THE_
SKIPPED
SECTOR AND THE HEADERS OF THE
SECTORS ON THE SAME TRACK FOLLOWING THE SKIPPED SECTOR WILL

HAVE SSE (BIT 13) SET.
THE

BIT

WILL

BE RESET IN THE HEADER OF ALL NON-SKIPPED

sgfigggEEEVEN 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)

THE

DEFECTS

BIT

PRECEDING A SKIPPED
MDBSF BY PHYSICAL

ONLY DEFECT ON A TRACK IS SECTOR 31, THE DEFECT WILL

BE MARKED AS A SKIPPED SECTOR, EVEN IF THE DEFECT AFFECTS THE
gE?g;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 PEPORTING PRFFEZC_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 l§ ENTERED IN THE

16 BIT SSF.
IF A DEFECT WITHIN THIS ADDRESSING RANGE CANNOT
BE SKIPPED THE DEFECT WILL BE TREATED AS A DEC STD 144 ERROR
(I1.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 ?gDRESSES OF 378 SKIPPED
THE SSF_IN_ASCENDING
SECTORS.
~DEFECT ADDRESSES ARE STORED
SEQUENCE IN THE SAME FORMAT AS IN THE DEC STD 144 FILES,
1.E..

SEQ 0013

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

CYLINDER ADDRESS FOLLOWED BY SECTOR AND TRACK ADDRRESSES.
THE SSF
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 5
WORD 6

WORD 7
WORD 8

WORD 9

WORD 10
WORD 11

WORD 12
WORD 13

ek et e

ekt Sk S-E TR R T

HDA SERIAL NUMBER (LSB)

HDA SERIAL NUMBER (MSB)

$otetetmtotatotmtotatatadotatmt=t

SERIAL NUMBER IS A 31
BIT BINARY NUMBER

tmtetotmtetntotodotototatbatototad

YEAR

MON

totetetmtetotatbotot

DAY

potododotat=t

CREATION DATE

(YEARS SINCE 1978)

!
YEAR
!
MON
!
DAY
!
bmbmtormtetotobotatototatotodadiad
!
REVISION NO
!

REVISION DATE
(YEARS SINCE 1978)

FORMAT TYPE: 1= 16 BIT

tetetetetotatatatetetatetatatatat

UNUSED

FORMAT TYPE

+-4-+-+-+-0-0-+-+-¢-+-+-+-0-+-+-9

UNUSED

4-4-4-4-+-0-0-0-0-4-4-4-4-4-4-4-9
0-+-+-4-0-0-+-Q-+-+-¢-+-¢-¢-0-0-+

0= 18 BIT

UNUSED HEADER WORDS

WILL BE ZERO FILLED

0-+-¢-+-4-+-0-+-+-0-¢-0-+-¢-0-+-4

NUMBER OF SSF ENTRIES

CHECKSUM

SSF HEADER CHECKSUM

PHYSICAL CYL. ADRS

PHYSICAL ADDRESSES

NULL ENTRIES WILL

e O

tobetetetetetetatatetatatatatatad

CYLINDER ADDRESS

ek Tk o S

TRACK

e O

It Lf Tt T

T TR

SECTOR

botmbotobototetototodotadetotetet

ONE'S

7-4-0-0-0-0-0-0-0-0-0-0-0
0-0-0-0

totetetotototetototntotoctatat=t=¢

BE ONE'S FILLED

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

SEQ 0014

736
737

WORD 766 !

739
740

WORD 767
!
CHECKSUM
!
tetetetotatatatetatatatatatatatat

74
744

THE
CKECKSUM IS CALCULATED USING THE FOLLOWING ALGORITHM.
THE
CHECKSUM CALCULATION IS BASED ON 16 BIT QUANTITIES (WORDS) AND IS
REPEATED ONCE FOR THE SSF HEADER FIELD AND ONCE FOR THE SSF DATA

738

741
74

‘7122

DEFECT ADDRESS FIELD
CHECKSUM

FIELD.

747
748
749

SIZE = FIELD SIZE_IN_16_BIT_WORDS
CHECK sm
REPEAT

750

CHECKSUM
= CHECKSUM + (16 BIT_WORD)

751

CHECKSUM = CMECKSUM .ROTATED_CEFT_1_BIT.

752
753
;gg

SIZE = SIZE
- 1
UNTIL SI?E .EQ. O
END_REPEAT

;g‘r’

THE ROTATE REFERED TO ABOVE IS THE FOLLOWING:

758
759
760

o=
»
H

761

762

+
H
v

fotetototototodadototbomtormtadas=t

botepmtotetotetotbotototobatatedei

In! C=== !15!

763

764

765
766
767

"' 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 AVDITION;
THE BIT SHIFTED
INTO THE LSB POSITION OF THE

768
;93

;;}

ONE'S

¢-+-+-+-0-0-+-+-+-+-0-+-+-+-¢-+-+

ACCUMULATED CHECKSUM IS TME °*CARRY OUT' FROM THE
OPERATION..

8.2

BIT

ADDITION

DEC STD 144 MANUFACTURING AND USER BAD SECTOR FILES

773
774
775
776
777

THE DEC STD 144 FILE IS CONTAINED ON TWO TRACKS ON THE RM80. THE
FIRST TRACK IS THE PRIMARY COPY OF THE FILE, THE
SECOND TRACK
IS
THE SECONDARY COPY OF THE FILE.
THE PRIMARY COPY OF THE DEC SID
144 FILE IS WRITTEN ON THE LAST ADDRESSABLE
TRACK BEtFORE
THE FE
CYLINDERS
(CYL 558, TRK
1
Hs SECONDARY COPY OF THE DEC STD 144

780
781
;g%

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
ME FILE.

;;3

FILE IS WRITTEN AT CYL 559 inx

784

785

worD 0

788

WORD 1

787

791

792

WORD 2

WORD 3

botbmdmtototototodrtotatatobatbat=t

HDA SERIAL NUMBER (LSB)

L T e e Rl h Tk T TR

ZERO

HDA SERIAL NUMBER (MSB)

e S

Sotetetetetetatetatatatatabatated

SERIAL NUMBER IS A 31
BIT BINARY NUMBER

¢ 2

CZRNJAQ RMBO FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 16
795
797

WORD <

798

WORD 5

800

WORD 6

802

WORD 7

799

801

803

e T

TRACK

ONE'S

WORD 255

ONE'S

NULL ENTRIES WILL
BE ONE'S FILLED

!
/
/,

+-4-¢-+-+-¢-+-¢-+-0-4-+-+-+-0-0-+

b e
=
b
b

SECTOR

0-0-+-¢-+-4-+-+-+-+-+-+-+-+-+-+-+

ONE'S

0-0-4-4-0-0-0-0-+-¢~+-+-+-+-+-+-0

WORD 254 !

CONOWNIS
N =

tototmtototopotototototatototadtad

809
00 00 00 0o 00 Co o

e L

tetetetetntatatotatetatatatatat=t

!
/
/
]

810

CYLINDER ADDRESS

804
805
806
807
808

ganrd
SEQ 0015

THE

+-+-+-+-+-+-0-+-+-+-o-¢-+-+-¢-¢-+

$otetetototmtatetatatatatatatatat

BIT

MDBSF WILL BE WRITTEN IN SECTORS
0

PRIMARY AND SECONDARY DEC STD 164 TRACKS;

4, 6, 8 OF THE

THE 18 BIT MDBSF

?gC{gR?S1O.1%§14....30 THE 16BIT UDBSF IS WRITTEN IN SECTORS

WRITTEN

_SECTORS_

1,3

THE

BIT

UDBSF IS WRITTEN IN

SEQ 0016

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

+ -

+=+

SERREREREE

i<
+=+

]

=4+

$o~==> SSF

t====> 144 PHYSICAL

*—

+=¢
e

('D' OR

+=+

t=t=¢

>31!

4====> 144 LOGICAL ENTRY
'SSE' SET

+=4+

t=d=t

+=+

etL 2

SSF ====t

ERROR)

'SSE" SET

"H'

-ad
t=t=+

194

SSF Commet
5.

'SSE" SET

*-—<

RRRE PRERRR

VWooO~NONW WOV~ SWN=O

$====> SSF ENTRY

vt ivivyv

00 00 0o 0o 00 Co 0o 0o Co OO

>31!

T3
91

839

93
33

'SSE' SET

+=+

+-—-+

&33
834

4====> 144 PHYSICAL ENTRY ('D' OR "M’ ERROR)

* - -

829

-9

ERROR TYPE DESCRIPTIONS

i #====> 144 PHYSICAL ENTRY

t====> 144 LOGICAL ENTRY

>3
> -

823

9.0

V
W

820
821

—————

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

6.
+

SEQ 0017

"SSE' SET

tet

tetetet

'St

97#

| $ee==> 144 LOGICAL

$====> 144 LOGICAL

"SSE' SET

d=¢

bodbebad

07#

070707#

ipID!

07070‘#

SSF Cmmmet

>31!

SSF Cmmeet

>31!

IHIH

| | 4====> 144 PHYSICAL

| $m===> 144 LOGICAL
144 LOGICAL <====+

'*SSE* SET

+=¢

bbbt

07#

IDIN!

07# - + . +

SSF (==t

23388832

>31!

|} 4me==> 144 PHYSICAL

| 4m===> 144 LOGICAL
144 LOGICAL <====+

WN=O

905

VOO0V
VOO0
b e D ed Bt
D

+-~

07#

VNN

SSF Commet

"*SSE* SET

LD T T

>31!

IHID!

07070-¢

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

b=t
l;l----

SSF Cmmm=t

'*SSE' SET

>31!

Segens
A

144 LOGICAL <====t !

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

———————

$
H

10.

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

SEQ 0018

* -

=+
T3
191

S SF ('S S
‘D' : OR 'H' 'H

NOTE:

'D’

's.

IS A DATA FIELD DEFECT.
IS A SKIPPED SECTOR DEFECT

'H*

E* SET) pas—-

ERROR <====+

IS A HEADER FIELD DEFECT;

CZRNJAO RHBO FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 21
T
SYMBOL

000000

ERRORS DETECTED:

000
001

VIRTUAL MEMORY USED:
19 WORDS _( 1 PAGES)
DYNAMIC MEMORY: 8206 _WORDS 31 PAGES)
ELAPSED TIME: 00:00:26

.£300,301CZRNJA=L300, 10IBEG.DOC,CZRNJA.DOC, END.. DOC

SEQ@ 0C19

SEQ 0020

CZRNJA.TSK;1 MEMORY ALLOCATION HA?1T52 PAGE 1
12-JAN-82

TASK
CZRNJA
NAME
PARTITTON NAME
:

IDENT1, ICATION

: 01.00
£300,10]
65.

:
TASK UIC
TASK
PRIORITY :
STACK
LIMITS:
PRG XFR ADDRESS:

026172 026501 000310 00200.
026502

TOTAL ADDRESS UINDOUS 1.
TASK
IMAGE
SIZE
: 14466,

TASK ADDRESS LIMITS: 026000
1 303
R-W DISK BLK LIMITS: 000002 000072 000071 00057.
=*+ ROOT SEGMENT:

FMTROT

R/W MEM LIMITS: 026000 116303 070304 28868.
DISK BLK LIMITS: 000002 000072 000071 00057.
MEMORY ALLOCATION SYNOPSIS:
TITLE

SECTION

IDENT

FILE

FMTROT.08J; 1

FMTIO0.08J;i

572 001104

00580.

76 001252 00682.

IMPURE : (RW,D,LCL
,REL ,CON)
$KSTR :(RW,D,LCL,REL,CON)
$KTAB :(RW,D,LCL,REL,CON)

$STATE: (RW,D,LCL,REL,CON)
$SRESL: (RW,I,LCL,REL,CON)

$$$$BF : (RW.D,LCL,REL,CON)

040150 001524 00 Sg.
674 001316 00718.
043212 001270 00696.
044502 000370 00248.
047202 000016 00014.
047220
000031 00025.
0472
00031 00025.
0472
00016 00014.
047252 000016 00014.
0472
00166 00113.
0472
00166 00118.
047456 000246 00166.
047724
046356 19694.
047724 046356 19694.

FMTPRS 01.00

FMTPRS.0BJ;
1

FMTPRS 01.00

FMTPRS.0B8J;1

FMTPRS 01.00

FMTPRS.0B8J;1

FMTDAT 01.00

FMTDAT.0BJ:
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

IE.DAA 177770

IE.PRI 177760

10.DGN 004150

10.LPC 004100

10.RNF 004060

10.RVB 010400

DSKLUN 000003

IE.DNR 177775

10.ATT 001400

10.FER 004200

10.0FF 004020

10.RNR 004070

10.7DD 004140

GENHDR 0344U0-R

IE.EOF 177766

10.BLS 004010

10.FEW 004210

10.RDH 004030

10.RPD 004170

10.WCH 004110

$DSKWC 027000-R

SMGPRE 037644-R

10.WDH 004040

$DSKWH 02/7014=-R

SMOVE

10.WPD 004160

SDSTRB 042206-R

$SMSGR8 031366-R

10.WTD 004130

SDVICE 027446-R

1Q.uMD 000004

$MSG32 030714-R

SMXTRK 027566-R

$SRALL 033654-R

$STVFL 035454-R

$MSG4

SNONSI 002416

$SRFES 033726-R

$SWERL 047735-R

$MSG40 030742-R

$SPARSE 034544-R

$SRMDF 033740-R

$SSWFFE 047741-R

SMSGWR 031414-R

$MSG41 031000-R

SPAT

027462-R

$SRSDF 033764-R

SSWFMT 047740-R

$DVPRM 027560-R

$MSG1

027634-R

$MSG42 031026-R

SPHYDV 027606-R

$SRSSF 034046-R

$SWINT 047742-R

MSGER8 042041-R

SDVUNT 047754-R

$MSG10 030122-R

$MSG43 031056-R

SPRINT 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 047300-R

$EROUT 031536-R

$MSG12 030167-R

$MSG45 031141-R

SPRNT0 027262-R

$SRTSF 034132-R

$SWMOD 047743-R

027472-R

SFEBSF 116102-R

$MSG13 030177-R

$MSG5

027707-R

SRDBSF 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

$SSF

TRKSZ

027470-R

$FLSEC 047770-R

$MSG17 030246-R

$MSG6

027737-R

SRETRY 027466-R

$SSFDT 001365

$TSTOV 035062-R

UNTKT1 047252-R

$FLTRK 047766-R

$MSG18 030256-R

SMSG6A 027762-R

SREVNM 047732-R

$SSFHD 000013

$TSTMX 032216-R

UNTST1 047270-R

SFMTEP 026502-R

$MSG19 030301-R

$MSG68 030004-R

$SRGBUF 050000-R

$SSFLB 027454-R

$UBSSZ 027574-R

SALFLB 027450-R

SFMTEX 031464-R

$MSG2

$MSG7

$SSFLN 000003

SUCB

$BUF

SFUNC

027476-R

$MSG20 030324-R

$MSG70 031274-R

SRMBOF 037234-R

$SSFSZ 027460-R

$UDBSF 112102-R

$BUFRX 110262-R

$SHDRFG 047762-R

$MSG21 030351-R

$MSG71 031307-R

SRMB0I 044570-R

$STARS 027620-R

SUNTID 032266-R

110262-R

$HOMSK 031710-R

$MSG22 030403-R

$MSG72 031322-R

SRMBOL 043574-R

$STATS 027444-R

SUPDMX 032120-R

$CONPB 027524-R

$INADD 047730-R

$MSG23 030427-R

$MSG73 031344-R

SRMBOM 042124-R

$STCSR 035230-R

SVERIF 047745-R

027616-R

$10BUF 027510-R

$MSG24 030474-R

$MSG8

030043-R

SRMBOV 040366-R

$STERL 035506-R

SWLKER 027250-R

SECSZ

$BUFX

$CR

050062-R

031744-R

027645-R

027662-R

030025-R

SRMB0

027342-R

035754-R

113102-R

047774-R

$TSTDA 032160-R

047724-R

$CVTDA 031636-R

$10ST

027554-R

$MSG25 030502-R

$SMSGBA 030070-R

SRTCNT 047752-R

$STFFE 035552-R

SWTBSF 032730-R

047772-R

SLBNH

027516-R

$MSG26 030510-R

$MSG9

030076-R

SRB0OSF 037164-R

$STFOR 035556-R

SWTSSF 033464-R

SDEVHD 003334

SLBNL

027520-R

$MSG27 030540-R

SMULT

032046-R

SRBOTF 037226-R

$STIN

035564-R

$XFRSZ 027512-R

$DSKIO 027020-R

$LOGDV 027576-R

$MSG28 030574-R

SMVPAT 031504-R

$SCB

047726-R

$STLIS 035544-R

SYESNO 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

$SMBSF 033774-R

$STUNT 034744-R

$DSKRT 027030-R

SMESAG 031422-R

$MSG31 030671-R

SMXSEC 027570-R

$SNAME 047746-R

$STVEC 035344-R

SCYL

10.WCk 004050

—|

SEQ 0021

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

FMTROT

J
TOTAL WOR K FILE aerensuces 46347,
WORK K FIL £ REA S:
WORK FIL E m
SIZE OF C

ORE

SIZE OF WORK FILE

0. WORDS (32. PAGES)
g

ELAPSED TIME:00:00:38

WORDS (13. PAGES)

POMD

b ed =D e cd ed ed ed e

ITLE
DENT

t—-q

mdooawombum-oowwowbm..

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

k.4

SEQ 0022

FMTROT - RMB0 FORMATTER ROOT MODULE
/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_ 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
«MCALL

17-AUG-80
09-JAN-81

ALUNSS,UCBDF$
UCBDF$

sCALL MACRO TO DEFINE UCB OFFSETS

FMTROT - RMB0 FORMATTER ROOT MO MACRO M1113 12-JAN-82 11:01 PAGE &

SEQ 0023

**=$FMTEP=-FORMATTER ENTRY POINT

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

0000006

wWoo

VIO

W~
OGS

AV,

22288228 8ccococcocooo
wvivuiunnaunanwna

OO0
== bbb b b s b

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

RESET
RESET
RESET
RESET
RESET

#1 $VER1F

PRESET THE VERIFICATION COUNT

#256.
#$HDBSF RO
0;1(ROS*

000400
0000006
177777

2%:

MOV

000100
0000006
177777

3s:

MOV

000000C
0000006
177777

4%:

MoV

000000°*
0000006 001400

LOCATIONS IN THE MDBSF BUFFER TO CLEAR
BUFFER POINTER
CLEAR A LOCATION
COUNT THE LOCATION
18
IF NE, NOT_FINISHED
#256. ,R3
LOCATIONS TO CLEAR IN THE UDBSF BUFFER
#SUDBSF ,RO
BUFFER POINTER
#=1,(ROS+
CLEAR A LOCATION
R3"
COUNT THE LOCATION
2s
IF NE, NOT_FINISHED
#64. ,R3
LOCATIONS TO CLEAR IN THE FE BSF BUFFER
lSFEBSF RO
BUFFER POINTER
L(ROJ+
CLEAR A LOCATION
COUNT THE LOCATION
33
IF NE, NOT F INISHED
wzssF-<BssrL~>R3
; NUMBER OF SSF LOCATIONS
#s
: BUFFER POINTER
#-1, (RO)+
CLEAR A LOCATION
R3
COUNT THE LOCATION
48
IF NE, NOT FINISHED
#SFMTEP,SP
RESET STACK POINTER
{g T?ERE eg LEAST 24K?
$SYS1Z,#40%24.

5%:

CALL

6$:

JMP

ELSE CRASH THE SYSTEM!!

$PARSE

#DSKLUN,SDVICE, Ri

#$MSG4, RO

0000006

BAD BLOCK FILE LIST SWITCH
LOGICAL LIST SWITCH
FORMAT ENABLE SWITCH
FORMAT FE ENABLE SWITCH
MDBSF, UDBSF, SSF GENERATION SWITCH

RESET THE MDBSF, SSF, & FEBSF MODIFY SWITCH
CLEAR STATUS FLAGS
CLEAR _TEMPORARY STORAGE FOR REVISION NUMBER

$STATS+1
SREVNM

0000006
000001 0000006
000400
0000006
177777

0000006

RESET ERROR LIMIT (DEFAULT IS 256.)
RESET YES/NO RESPONSE

$SWERL
$YESNO
$SWLST
$SWLOG

FMTPRM

$MSGWR

PROMPT AND PARSE COMMAND LINE
ASSIGN LUN TO DISK

: ASSUME’ DEVICE NOT IN _SYSTEM
: IF CC, DEVICE IN SYSTEM
: EXIT WITH WARNING STATUS

* ATTACH THE DISK
89 000232
90 000236
91
92

012703

000000C

FMTPRM: MOV

CALL

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

; ATTACH DISK FOR FORMATTING

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

; PRESET THE DISK PARAMETERS,

93
94

97 000242
98 000246
99 000252

100 000256
101 000262
102 000266
}8{3. 000272
105

SEQ@ 0024

RETURN THE HEADS HOME AND

: CALL THE ACTUAL FORMAT ROUTINE.
005067
005067
005067

0000006
0000006
0000006

000167

CJ0000G

000000°

CLR
CLR
CLR

CALL
CALL
CALL
JMP
.END

$FMTEP

$SEC
$TRK
$CYL

$HOMSK
$RM80
$HOMSK
S$FMTEX

: RESET DISK PARAMETERS

:
;
:
s

DO A RECALIBRATE
CALL THE FORMATTER
DO A RECAL
EXIT GRACEFULLY

|
j
'

SEQ 0025

FMTROT - RHBO FORMATTER ROOT MO MACRO M1113 12-JAN-82 11:01 PAGE 4-2
SYMBOL TABLE

MSSCRB= 000124
N$SLDV= 000001
PSSNIC= 177564
RSSDER= 000000

33:86¢=
000200
TSSMIN= 000000

. ABS.

177776
0002 76
ERRORS DETECTED:

U:Ci2 000012

C
00

v
o

8
8
8
%

=
o
=4
o
N
&~

8
8

GX
GX

SHOMSK=
SMDBSF=
SMSGWR=
SMSG4
=
SPARSE=

satnawn
tttann
wxttnw
xnnnn
wtnxnnn

SREVNM= sttanw

SRMB0 = watnnn
$SEC
$SSF

=
=

wnnnne
snnnnx

$SSFLN=
SSTATS=
SSWERL=
SSWFFE=
SSWFMT=
SSWINT=
SSULOG=
SSWLST=

wtxnnw
tantnx
wanwnsn
wanxxaw
wanane
satnax
wannew
wnnnnn

AARRRR

STRK

= satnsw

$SYSIZ= wnnnnx

u2.L3S8=
UZ L8s= 010000

000
001

VIRTUAL MEMORY USED:
3572 UORDS ( 14 PAGES)
79421UORDS 30 PAGES)
DYNAHIC HEHORY

SCYL
= twntnw
$DSKIO= wannnn

2333333404033
a3 03040303 332324030303 03044

KSSCNT= 177546

GX
GX

000046

X
<

wexwnwn

g3x32

IQ.UMD=

!:C:CN:C:CH:C:S:F:
SPeetetep=g=papepay
-t~

10.ATT= t'tttt

000037

«CC
—

FMTPRM 000232R
HSSRTZ=

FRQ

DV REC- 000001

Us.8sY= 000200
US.CRW= 000004
Us.pse= 00001
US.ECH= 000002
US.FOR= 00004
US.FRK= 000002
US.KPF= 000001
US.LAB= 000004
US.MDE= 000002
US.MDM- 000020
US.MNT= 000100
US.O0FL= 000001
US.ouT= 000001
Us.PUB= 000
S.PWF= 000
US.RED= 000002
US.SHR= 000001
US.SPU= 000002
.UMD= 000
Us.vv = 000001
US.wCk= 000010
U.ACP = 000032
U.ATT
000022
U.BUF
000024
U.CBF = 00003
U.CLI
17777
U.CNT
000030
U.CTL
000004
U.CTYP 000050

$1.18Y= 000200
$1.08Y= 000100
S1.RAL= 000010
S1.RNE= 000020
$1.RST= 000001
S1.RUB= 000002
$1.USI= 020000
$2.ACR= 000001
$2.8RQ= 000020
$2.CR = 000010
S2.FDX= 100000
S2.FLF= 040000
S2.HFF= 020000
S2.HFL= 003400
S2.HHT= 010000
$2.1RQ= 000200
$2.0RQ= 000100
$2.SRQ= 000040
$2.VFL= 004000
$2.WRA= 000006
$2.WRB= 000002
$3.8CC= 020000
$3.DA0= 040000
$3.PCU= 100000
S3.RAL= 000010
$3.RCU= 000400
$3.TAB= 000100
$3.VER= 010000
S3.WAL= 004000

,..

Dv.CCL= 000002
Dv.COM= 020000
OV.DIR= 000010
DV.F11= 040000
DV.ISP= 002088

U2.NEC= 004000
U2.PRV= 000010
020000
=
U

mttxww

UC.ALG= 000200
UC.ATT= 000010
UC.KIL= 000004
UC.LGH= 000003
UC.NPR= 000100
UC.PWF= 000020
UC.GUE= 00004
US.ABO= 000001
S
= 000

ORI

DSKLUN=

$$$YSZ= 001400
$1.BEL= 000400
$1.CT0= 000040
$1.CTS= 010000
S1.DEC= 002000
S1.DPR= 001000
$1.D81= 004000
$1.ESC= 00000
$1.1BF= 100000

cCccccccccC:

C$SORE= 002000
CSSRSH= 177564
CSSTTY= 177564

TIME: 00:00:18
[300 ZOJFHIROT £300,30JFMTROT=C1,1]EXEMC/ML ,[1,60IRSXMC/PA:1,L[300,10]IFMTROT

SUDBSF= wttane
SVERIF= tannen

SYESNO= #xtnan

N =00V

nrON
thWNNM) = e e =D e d d e e d

ITL E
DE

o—-o

NP WVWN=OVRNOWVNS
W -

FMTIO = 170 ROUTINES MACRO M1113 12-JAN-82 11:01 PAGE 1

SEQ 0026

FMTIO = I1/0 ROUTINES
/01.00/

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

DIRS

14-AUG-80
15-0CT7-80

g
: *#*x=$DSKI0-ISSUE QIO TO DISK
: **x=$DSKRH=-ISSUE QIO TO READ HEADER & DATA
: *%x=$DSKRT-RETRY QIO TO DISK

: #*=$DSKWH=ISSUE QIO TO WRITE HEADER & DATA
¢ *%=$DSKWC-ISSUE QIO TO WRITE CHECK HEADER & DATA

: SUBROUTINES TO ISSUE 170 FUNCTIONS TO A DEVICE.

‘o§

&7
48
49
50

; OUTPUTS:
:
THE QIO DIRECTIVE IS ISSUEP.
IF THERE WERE NO ERRORS, THE
3
CARRY BIT WILL BE CLEARED.
IF THERE WAS A PARITY ERROR
:
(1E.VER) OR A BAD PLOCK ERRO? (IE.BBE) CARRY WILL BE SET.

58
59
60
61
62

:
3
:
:
3

67
68
69
70

* NOTE: MOST FUNCTIONS ARE ISSUED WITH THE DIAGNOSTIC SUB=FUNCTION
:
BIT (1Q.UMD) SET.
FOR THESE FUNCTIONS THE FUNCTION WILL
:
ALWAYS RETURN SUCCESS (CARRY CLEAR) AND THE USER MUST TEST
:
THE PROPER BIT IN THE REGISTER BUFFER (SRGBUF) TO DETERMINE

4
4
zg

:
:
:

51
52

:
:

54
55
gg

:
:
:

73
74
75 000000

012703

000000C

78 000006
;3 000012

012703
000402

81 000014
ag 000020
g ooooga

o1sro;
010367
010567

85 000036
86 000040
87 000046
88 000050
89 000056

103010
0 2797
001770
016767
000406

84 0000

R3 = 1/0 FUNCTION CODE (!F ENTRY IS AT $DSKIO)
RS = BUFFER ADDRESS
ENTRY AT SDSKRT ASSUMES THAT THE DPB IS ALREADY SETUP.

IF WE ARE FORMATTING A 'DB'' DISK A BLOCK NUMBER VIOLATION
(1E.BLK) MAY HAPPEN WHEN WE ARE FORMATTING THE LAST SECTOR.

FOR THIS CASE CARRY WILL BE RETURNED CLEAR.

THE SAME APPLIES
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:

1.
;.
.
4.
S.

;9 000004

INPUTS:

000405

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

6. IE.OFL

ANY OTHER ERROR CODE WIL. BE REPORTED AS ‘‘UNRECOVERABLE''.

IF THERE WAS ANY ERRORS.

.ENABL LSB
$DSKWC : :MOV

#10.WCH'1Q.UMD,R3

000000C

$DSKRH: :MOV
BR

#10.RDH'1Q.UMD,R3
:READ DISK HEADER(S)
$DSKIO
:BR INTO COMMOM DISK ROUTINE

000000C
000000G
0000006

$DSKWH: :MOV
$DSK10: :MOV
MOV

#10.WDH'1Q.UMD,R3
:WRITE DISK HEAPER(S)
R3,$FUNC
:STORE FUNCTION CODE IN DPB
RS, $10BUF
*STORE BUFFER ADDRESS IN DPB

6000006 0000006
0000006 0000006

$DSKRT::DIRS
BCC
CMP
BEQ
MOV
BR

$DSKIO

#SDSKPB

1$
#IE.UPN,SDSW
$DSKRT
$DSW,$10ST
2

: WRITE CHECK HEADER & DATA

: GO TO THE COMMON QIO ROUTINE

*ISSUE THE QIowS

*IF CC OK
:POOL SPACE AVAILABLE?
:1F EQ NO, TRY AGAIN
:COPY DSW INTO STATUS BLOCK

SR T

SEQ 0027

33
3%
35
gg

€

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

FMTIO = 1/0 ROUTINES MACRO M1113 12-JAN=82 11:01 PAGE 2-1
90 000060
91 000062
9
93 000070
94 0000764

000241
105767
100019
105067
012700

96 000104
97 000106
98 000110
99 000112
100 000114
101 000120
102 000122
}82 000126

001403
022020
005710
001372
016000
001002
000261
000207

105 000126

020027

0000006
0000016G
000204

95 000100 021067 0000006

106 000132 001022

000002

18:

28:

38:

48:
5%:
6$:

0000006

78:

107 000134 022767 000000C 000000G
108 000142 001767

cLe
TSTB
BPL
CLRB
MOV

CMP

BEQ
CMP
TST
BNE
MOV
BNE
SEC
RETURN

CMP

:IF EQ MATCH
*STEP TO NEXT ENTRY
:END OF TABLE?
*IF NE NO
*GET ADRS OF ERROR MESSAGE
*IF NE PRINT MESSAGE
+ELSE JUST SET CARRY AND EXIT

:*'UNRECOVERABLE'* MESSAGE?

#$MSG8, RO
SMESAG

*GET ADDRESS OF '‘'UNRECOVERABLE'®
:PRINT MESSAGE AND EXIT

0000006
000056

MOV
NEG
MOVB
CLR
CALL
MOVBE

116 000174
}}z 000200

012700
000167

0000006
0000006

MOV
JMP

CLRB

:IF NE NO

#1E.BLK&377,810ST
5%
:IF

(RO)

:YES, IS THIS A BLOCK # VIOLATION?
EQ YES

: TERMINATE STRING

124

126 000210 000000C 000000G

)

9s:

000000C 0000006
000009C 000000
CooUWIC
0
000000C
000000C 0000006
000000¢ 000000G
000000 0000006

LWORD

IE.HWR

$MSG13

: HANDLER
NOT RESIDENT

.WORD
.WORD
-WORD
.WORD
.WORD
-WORD
.WORD

xe.oAAz§77.
1E.VERE377.
15.395:;77.
IE.FHEE377.
IE.PRIE377.
6E.OFLl377.
O,

$MSG5

:
:
:
*
:
:
:

.WORD

IE.DNRE377.

$MSG10
$MSG g
$MSG22
$MSG?
$MSG8

: DEVICE NOT READY

DEVICE ALREADY ATTACHED
PARITY ERROR
BAD BLOCK
FATAL HARDWARE ERROR
PRIVLEGE VIOLATION
DEVICE OFFLINE
END OF TABLE

135

3¢

138

* THIS ROUTINE WILL SET THE WRITE LOCK ERROR MESSAGE AND EXIT

141

14
144

2
* OUTPUTS:

;23

16%
}22

MESSAGE

: BE HANDLED BY THE CALLING ROUTINE.

125 000204 0000006 0000006

;gg

¢
‘
: ERROR CODE AND ERROR MESSAGE TABLE.
A ZERO WORD
: IN THE MESSAGE FIELD INDICATES THAT THE ERROR WILL

}gg

127 000214
128 007220
129 000226
130 Gowes0
131 000234
132 000240
32 000244

RO,#$MSG8

*SCAN ERROR TABLE TO FIND ERROR TYPE

:GET BUFFER ADDRESS FOR ERROR CODE
*MAKE ERROR CODE POSITIVE
*GET ERROR CODE
*SUPRESS LEADING 0°'S
:CONVERT TO DECIMAL
*STUFF DECIMAL INDICATOR

0000006
0000006
0000006

119
120
121

(RO, $10ST

(s
(RO)+, (RO)+
(RO)
3$
2(R0> .RO
7$

;ASSUME NO ERROR
+ERROR?
:IF PL NO
*YES, CLEAR THE HIGH BYTE
*SET POINTER TO ERROR TABLE

#SMSGBA RO
$10ST
$I0ST.R1
R2
$CBDMG
#'.,(RO)+

CMP
BEQ

8s:

$10ST
6$
SIOST+1
#9$ RO

SEQ 0028

[:13

012700
005467
116701
005002
004767
112720

105010

BNE

109 000144
110 000150
111 000154
112 000160
113 000162
114 000166

115 000172

: **=SYLKER-SET WRITE LOCK ERROR
: WITH A SEVERE ERROR STATUS SET.

INPUTS:

NONE.
RO = WRITE LOCK ERROR MESSAGE ADDRESS

SEQ 0029

000250
000254

012700
000 751

0000006

sSET WRITE LOCK MESSAGE ADDRESS
sEXIT WITH SEVERE ERROR STATUS

LSB

(ALTERNATE ENTRY)

INPUTS:
RO = MESSAGE ADDRESS
R1 = CARRIAGE CONTROL (FOR S$PRNTO ENTRY ONLY)

OUTPUTS:

MESSAGE SENT TO TI:

\V.]

0165

5
5
5

$PRINT : :MOV
000040
000000G
$PRNTO: :MOV
000000 g 0000006
MOV
000000
MOV
000002 G
CLR
MOV
000004 G

18:

~
~J o
o AV,

8N
A,

oo
o

000002 G

2$:
000000 G 0000006

3s:

1ST8

#40,R1

:SET 1 LINE FEED CARRIAGE CONTROL

#$CONPB,RS
*GET OUTPUT DPB ADDRESS
#10.WVB.Q. I0FN(RS)
-SET FUNCTION CODE
RO, Q. I0PL (RS)
:STORE MESSAGE ADDRESS IN DPB

Q. 10PL+2(RS)
*CLEAR MESSAGE LENGTH COUNTER IN DPB
R1,0.JOPL+4(RS) :SET CARRIAGE CONTROL

(RO)+

BEQ
INC
BR

2
Q.I0FPL+2(RS)
1$

DIKS
BCC
CMP
BEQ
RETURN

RS
3s
#1E.UPN,SDSW
2%

:END OF MESSAGE STRING?
IF EQ YES

NO. CALCULATE MESSAGE LENGTH
JGET NEXT CHARACTER
JPRINT THE MESSAGE
sIF CC OK
:POOL SPACE AVAILABLE?
sIF EQ NO, TRY AGAIN

S
S
S o

o
nNO

oo
°

S ry

W
W

—

WNW

33338
sesssssses
b
]
SoRE NSRS

d d ed b D e ed =D D b e e
e
D d D e e
D d d e e e

#$MSG9,RO
8s

**=$PRINT=PRINT MESSAGE ON THE USERS TI:
*%=$PRNTO-PRINT MESSAGE ON THE USERS TI:

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

— e e b D D cd D e
NININD
b =d e

S3S
WY - SERIRRRRN28 R

SWLKER: :MOV
BR
.DSABL

DD D D

DD DD DD

R R R AR 2B IIVN N NUNYITEIG TR AR LB CH IR AL LR 2S5

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

;?6§CEUBROUTI~E WILL READ A LINE FROM THE CONSOLE

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

CARRY CLEAR IF READ OK

0000006
0000006 0000006
000
6 0000006

AD:: MOV

MOV

#$CONPB, RS

:GET INPUT DPB ADDRESS
sLOAD FUNCTION CODE
#$SBUFRX Q. I0PL (R5)
:LOAD BUFFER ADDRESS

#10.RVB.Q.10r (RS)

D00

3 012765 000120 0000026

DO
000374

000376
000404
DSLSLSLSS
NN LN NTNT NTNT.N]
PONIND) b b cd o e ed e o o cd

170 ROUTINES MACRO M1113 12=JAN=82 11:01 PAGE 2-3

ooo:.og

00041

000414
000420
000422
000426

122767 000000C 0000006
0014
105767

0000006

105767
001405
000241
000207

0000016

oogl.os

000426 012700 0000006
000432 000402
000434 012700 0000006
000440
000442

28:
38:

000261
000207

4s:

000001

.END

SEQ 0030

cgo..o.lopumn

(MPB
BEQ

#IE.EOFR377,s10sT
END OF FILE SEEN?
18
:IF EQ YES

TST8

18:

MOV

DIRS
BCS

1 gw-

:READ IN’THE LINE
*IF CS DIRECTIVE ERROR

$I0ST

+1/0 ERROR?

$I0ST+1
3s

*CHECK FOR A TERMINATED LINE
*IF EQ BUFFER OVERFLOWED
*INDICATE READ WAS OK

BLT

MOV
B8R
MOV

#3$MSG29,RO
s
#$MSG30,R0

TSTB
BEQ
cLe
RE TURN

SEC
RE TURN

;LOAD MAX NUMBER OF BYTES TO READ

R
2$

SIF LT YES

;COMMAND 1/0 ERROR
;COMMAND TOO LONG

*SET ERROR RETURN

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

SEQ 0031

SYMBOL TABLE

IE.BBE= wwxannx GX
IE.BLK= wexxex GX

IE.VER= wmanxnsx (GX
JO.RDH= wwxanax GX

:CBDHGS (113
GX
CONPB= wemxca (X

g]m: sevnaee GX
JOST = sennen X

$MSGS = sennne GX
$SMSG7 = wansen GX

IE.DNR= seaxex GX

J10.WCH= wenxnsx GX

SDSKPB= wennne (GX

$MSG10= wennen GX

SMSGBA= tenean GX

IE.DAA= wenann GX

JO.RVB= wannas (X

1E.EOF= manann GX

IE.FHE= tawexr GX
IE.HWR= weweax GX
IE.OFL= wexeex GX
IE.PRI= wenaxx GX
000000

000444
ERRORS DETECTED:

000020RG

J0.WDH= wesens GX

$DSKRH

8888?8’_5

SBUFRX= maesxex GX

S$SFUNC = tannne GX

[0.WVB= wwnnas (X
JQ.UMD= wwwwes GX
Q.JOFN= wwxnxen GX
Q.I0PL= wwnwxs GX

IE.UPN= texaxx GX

. ABS.

$DSKI0

000

001

VIRTUAL MEMORY USED: 481 WORDS_ ( 2 PAGES)
DYNAMIC MEMORY:
7962180RDS ( 30 PAGES)
00:00:
ELAPSED TIME:
(300,20]FMT10,0300,30]IFMT10=[300,10]FMTIO

$SDSKRT
RG
$DSKWC
ORG
$DSKWH
0014RG
$DSW = weneee GX

SMESAG= wwenee (X

$MSG13= wennnn GX

$MSG20= wevenen GX
$MSG22= weannnn GX
$MSG29= wwennn GX
SMSG30= wwnnnn GX

SMSGB = weenne GX
$SMSGY = weennn GX

$PRINT
$PRNT0
SREAD
SWLKER

000256RG
000262RG
000342RG
000250RG

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

JTITLE

;

. IDENT

5
g

SEQ 0032

FMTDAT = FORMAT DATA BASE

701,00/

* COPYRIGHT (C) 1980
: DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

9
10
1
1§

:
:
:
:

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

* TO ANY

1%
}2

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

OWNERSHIP OF

TO CHANGE WITHOUT

COMMITMENT

DIGITAL

: DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF

: c. HESS

;

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

* VERSION 01.00

* M. LEAVITT

.MCALL

33 000000
gg

17-AUG=-80

26-NOV-80

UMDIOS
UMDIOS

DEFSG

;CALL MACRO TO DEFINE DIAGNOSTIC FUNCTION
*CODES GLOBALLY

: SPECIAL OPCODES TO BE USED WITH THE FUNCTIONAL °*DR® DRIVER.

: 'DR' DRIVER.

40
41
42
43
4

: THAT THESE FUNCTIONS ARE DEFINED IN THE SPECIAL MANUFACTURING

004110
004160
004170
004200
004210

10.WCH
10.WPD
I0.RPD
10.FER
10.FEW

==
==
==
==
==

10+400+110
10+400+160
10%400+170
10%400+2
10%400+210

NOTE

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

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

DSKEFN

00000
00000
00003
000003
000013
001365

CONLUN
DSKLUN
DEFSEC

=
==
=

CONEFN =
SPEFN ==

00000
000008

000
104
000003
000003
000005
155555
000024
040200
001004

377
122
131715
131656

SEQ 0033
:EVENT FLAG FOR DISK 1/0

;

:EVENT FLAG FOR CONSOLE 1/0
*EVENT FLAG FOR SPAWN DIRECTIVE
*LUN FOR CONSOLE 1/0
:LUN FOR DISK 1/0

$SSFLN ==
$SSFHD ==
$SSFDT ==

*DEFAULT SECTOR FOR SKIP FLAG

*BLOCK LENGTH OF SKIP SECTOR FILE
1.
*NUMBEROF WORDS IN MEADER OF SKIP SECTOR FILE
<256.+$SSFLN>=SSSFHD
;NUMBER OF WORDS IN DATA OF SKIP SECTOR FILE

$STATS::.BYTE
$DVICE::.ASCII

0.1
‘DR

: FORMAT STATUS, MCR LINE FLAG
: DISK NAME (ASCII)

SALFLB: :.WORD

$SSFLB::.WORD
$SSFSZ::.WORD
SPAT::
.WORD
SRETRY::.WORD
TRKSZ:: .WORD
SECSZ:: .WORD

133333

5.131715

3.131656

5
155555,133333
20.
516.%32.
516.

: ADDRESS OF ALTERNATE DEC STD 144 TRACK
:
:
:
:
*
:

ADDRESS OF START OF SKIP SECTOR FILE
NUMBER OF coms OF SKIP SECTOR FILE
DISK FORMAT PATTERN
NUMBER OF RE-VERIFICATION ATTEMPTS
RM80 TRACK SIZE (IN BYTES)
RM80 SECTOR SIZE (INCLUDING HEADER)

:DISK 170 DIRECTIVE PARAMETER BLOCK (QIOWS DIRECTIVE)
003
000000

000003
000110°*
000000
000000
000000
000000
000000
000000
000054"*

014

$DSKPB::.BYTE
$SFUNC:: .WORD
.WORD
.BYTE
"WORD
WORD
$IOBUF::.WORD
$XFRSZ::.WORD
WORD
SLBNH:: .WORD
SLBNL:: .WORD
.WORD

000

3,12.
O
DSKLUN
DSKEFN,0
$10ST
0
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

;CONSOLE I1/0 DIRECTIVE PARAMETER BLOCK (QIOWS DIRECTIVE)
014
003
000000
000002
002
000
000110°*
000000
000000
000000
000000
000000 000000
000000

000000

$CONPB::.BYTE
JWORD
.WORD
.BYTE

.WORD

000000

JWORD
WORD
"WORD
WORD
JWORD
$10ST:: .WORD

3,12.
0
CONLUN
CONEFN,0

:
*
*
*

MACRO DIC, DPB SIZE
FUNCTION CODE
CONSOLE LUN
CONSOLE EVENT FLAG, PRIORITY ZERO

0
0
0
O
0,0.0

:
:
*
*
*

AST ADDRESS
BUFFER ADDRESS
MESSAGE BYTE COUNT
CARRIAGE CONTROL

$10ST

0.0

: STATUS BLOCK ADDRESS

NOT USED

: 170 STATUS BLOCK

* DRIVE PARAMETER TABLE
000003

131656

$DVPRM:
: .WORD

3,131656

; MAXIMUM LBN

; THE ORDER OF THIS TABLE MUST NOT CHANGE

104

105 0001 g 000000

SMXCYL::.WORD

11
ug

T
: mggg FORMAT:

114
115
116

:
:
:

119

}gg

LENDM

127 000132

$LOGDV: :DVPRM

<3,131656>, 559.. 14., 31.

$UCB::
.WORD
$SCB::
.WORD
SINADD::.WORD
SREVNM:: .WORD

0
O
0
0

:
:
:
:

ADDRESS OF CURRENT UCB
ADDRESS OF CURRECT SCB
ADDRESS OF INTERRUPT VECTOR
TEMP. STORAGE FOR SSF REVISION NUMBER ($SSF+10)

0.0
0
0
0.0
0
O
0
0
O
O
O

:
:
:
:
:
:
P
:
*
*
*

HDA SERIAL NUMBER
RETRY COUNT
DISK UNIT NUMBER
MAXIMUM BLOCK NUMBER
HEADER DEFECT FLAG
FAILING CYLINDER ADDRESS
TRACK
:
'
SECTOR
y
CURRENT CYLIND:R
CURRENT TRACK
CURRENT SECTOR

106 000122
107 000126
108 000126
m 000130

000000
000000
000012
000024

SMXTRK::.WORD
SMXSEC::.WORD
$MBSSZ::.WORD
$UBSSZ::.WORD

120
121
122
123
124

"MACRO

}gg 000142
3? 000000
132 000000
133 000002
13% 000004
135 000006

000000
000000
000000

000
000
000
000
000
000
000
000

147
148 000022
149 000026
150 000030
151 000032
152 000036
153 000040
154 000042
155 000044
156 000046
157 000050
}gg 000052

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

160

0
0
10.
20.

; # OF CYLINDERS PER DISK
:
:
:
:

# OF
# OF
# OF
# OF

TRACKS PER CYLINDER
SECTORS PER TRACK
BLOCKS IN MDBSF
BLOCKS IN UDBSF

LBN, CYL, TRK, SEC

LBN =
CYL =
TRK =

MAXIMUM NUMBER OF BLOCKS ON DEVICE (DOUBLE WORD)
MAXIMUM NUMBER OF CYLINDERS ON DEVICE
MAXIMUM NUMBER OF TRACKS ON DEVICE

DVPRM
.WORD
"WORD
"BYTE
‘BYTE

LBN, CYL, TRK, SEC
LBN
CYL
SEC
TRK

SEC =

DVPRM

MAXIMUM NUMBER OF SECTORS ON DEVICE

$PHYDV: :DVPRM <3.152700>. 561.. 14.. 32.
PSECT $$$$BF
D

136 000010
138 ooomg
139 00001
140 000014
141 000015
142 000016
143 000017
144 000020
}22 000021
137 000011

SEQ 0034

SYESNO: :.BYTE
$SWLST::.BYTE
$SWLOG: :.BYTE
$SWFMT: :.BYTE
$SWFFE::.BYTE
$SWINT::.BYTE
$SWMOD: :.BYTE
SKPFRE::.BYTE
SVERIF::.BYTE

$SWERL: :.BYTE

000000
000000

LEVEN
$SNAME: :.WORD
SRTCNT::.WORD
SDVUNT::.WORD
SMXLBN::.WORD
SHDRFG:: .WORD
SFLCYL::.WORD
SFLTRK::.WORD
SFLSEC::.
$CYL::
.WORD
$TRK::
.WORD
$SEC::
.WORD

0
0
0
0
0
0
0
0
0
0

;BUFFERS AND DATA STORAGE AREA

: LOGICAL DEVICE GEOMETRY

: PHYSICAL DEVICE GEOMETRY

* 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

DI,

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

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

16§
16

164

}gg

0403

4
6

sncsur :.BLKW
$BUF::
.BLKW
040336"

SBUFRX:: -BLKW
$BUF X==$8UFRX

25.
5 *258.

SEQ 0035
; RM80 REGISTER RETURN BUFFER
* BUFFER FOR DISK 1/0

* DIRECTIVE BUFFER

: BUFFER FOR DIRECTIVE USE

}gg

;BAD SECTOR AND DEFECT STORAGE AREA

169 041156
170 04%156
171 043156
};g 046156

SMDBSF
:: .BLKW
SUDBSF
: : .BLKW
$SSF::
.BLKW
$FEBSF::.BLKW

174

000001

JEND

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

:
*
:
:

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

$DSKPB
$DVICE

000030RG
000002RG

[qlalalalalalalalalalalal
AT

$SSSBF

000
046356
-

002 SPHYDV
002 gRETRY

0
$SSF
043156RG
$SSFDT= 001365 6

ERRORS DETECTED:

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

[300,203FMTDAT,[3 00,30]FMTDAT=L300, 10JFMTDAT

$MBSSZ

002 $MDBSF
sMXCYL

002 $SSFSZ
$STATS
$SWERL
$SWFFE
SSWFMT
SSWINT
002 $SWLOG

000014RG

002 gRTCNT

002 $LOGDYV

2 ws.

000032RG

$DVPRM
SDVUNT
S$FEBSF
$FLCYL
$rLUSEC
$FLTRK
$FUNC
002 $HDRFG
$
D

CONEFN= 000002
ON
00000

000120RG

$SSFHD= 000013 G
002 $SSFLB 000010RG
$SSFLN= 000003 G

042156RG
000021RG
000046RG
$YESNO 000010RG
...6BL= 000001

SRS ———

SYMBOL TABLE

SEQ 0036

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

gNNNNdddddddddd
WN = OV
N WVIESNWN = OV

NN -

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

.TITLE
.IDENT

SEQ@ 0037

FMTMSG = MESSAGE OUTPUT ROUTINES
701.00/

DIGITAL EQUIPMENT CORPORATION, MAYNARD, M"SS.
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
TO

ANY_

OTHER PERSON

EXCEPT_

FOR USE ON SUCH SYSTEM AND TO ONE

WHO AGREES TO THESE LICENSE TERMS.

TITLE

AND

THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

OWNERSHIP OF

THE
INFORMATION
IN THIS DOCUMENT IS SUBJECT
TC 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

CND,BEX

«MCALL

DIRS

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
6% 000027
43 000044
44 000071
45 000121
46 000144
47 000166
48 000207
49 000225
50 000252
51 000260
52 000304
53 000325
54 000351
35 000361
36 000407
57 000421
58 000430
59 000440
60 000463
61 000506
62 000533
63 000565
000611
65 000656
000664
67 000672
68 00072
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 001415
82 001456
83 001471
84 001504
85 001526
gg 001550
88

015
052
015
123
104
106
012
040
040
104
125
040
104
104
012
012
104
103
124
123
115
125
106
106
120
012
072
015
125
126
103
103
103
012
122
1M
125
125
125
11
105
125
123
015
015
104
104
125

000
052
106
131
105
101
012
055
055
122
116
040
105
105
123
104
105
131
122
105
104
104
101
101
122
007
040
106
116
105
123
117
117
103
105
116
116
116
116
116
122
116
113
104
117
122
122
120

05;
115
116
126
111
123
101
106
111
122
040
126
126
126
117
126
114
101
103
102
102
124
111
111
052
052
115
101
103
122
115
115
117
123
103
101
101
101
103
122
101
111
122
120
111
111
104

.ASCIZ
$CR::
$STARS::
. ASCIZ
$MSG1:: .ASCIZ
$MSG2:: .ASCIZ
$MSG4:: .ASCIZ
$MSG5:: .ASCIZ
$MSG6:: .ASCIZ
$MSGOA::.ASCIZ
$MSGEB::.ASCIZ
$MSG7:: .ASCIZ
$MSGB:: .ASCII
$MSGBA::.ASCIZ
$MSG9:: .ASCIZ
$MSG10::.ASCIZ
SMSG11::.ASCIZ
$MSG12::.ASCIZ
$MSG13::.ASCIZ
$MSG15::.ASCIZ
$MSG16::.ASCIZ
$MSG17::.ASCIZ
$MSG18::.ASCIZ
$MSG19::.ASCIZ
$MSG20::.ASCIZ
$MSG21::.ASCIZ
$MSG22::.ASCIZ
$MSG23::.ASCIZ
$MSG24::.ASCIZ
$MSG25::.ASCIZ
$MSG26::.ASCIZ
$MSG27::.ASCIZ
$MSG28::.ASCIZ
$MSG29::.ASCIZ
S630::.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

<CR>
/#xxswwxwes/<LF>
<CR>/FMT == /
'
/SYNTAX ERROR/
=T
/DEVICE NOT IN SYSTEM/
%%
/FAILED TO ATTACH DEVICE/
.
<LF><LF>/START FORMATTING/
/ =ALL CYLINDERS=/<CR>
/ =FE CYLINDERS=/<CR>
/DRIVE OFFLINE/
/UNRECOVERABLE ERROR =/
/
/
v
/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 ERROR®
/COMMAND TOO LONG/
<LF>/CONTINUE (L) N ? /
/RESPONSE OUT OF RANGE/
/INCORRECT MDBSF SERIAL NUMBER/
/UNABLE TO RECOVER SSF/
/UNABLE TO RECOVER UDBSF/
/UNABLE TO READ UDBSF/
.
/INCORRECT 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 RM80/
/UPDATE MODE (L) N ? /

SEQ 0038

OS-ONOOOOO
NOOONWNWOONN

=ipleleletod
O ==

VIS

= g _ng_n_...o—.
~
NVONNONNN? o

LS
P

£-

=3
ofrON

—

g vy o

b =B

h ek

B =D

EEEE R
e
888 883838883883
—_— b 2
e
e e b

SEQ 0039

**=~$MESAG-OUTPUT MESSAGE WITH CURRENT EXIT STATUS
*%=$MSGWR-OUTPUT MESSAGE WITH WARNING EXIT STATUS

INPUTS:

RO = ADDRESS OF "'ASCIZ'* MESSAGE STRING

0000006 000000G SMSGWR: :MOVB
0000006
000016
0000006

AL ATR TR PR LR X

S ST T

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

SMESAG: :MOV
MoV
MOV
CALL

MOV
CALL
MOVB

0000006
000012

CLRB
MOV
CALL

0000006
0000006

000000C 000000G $FMTEX: :MOV
DIRS
0000006
JMP
.END

IEXSHAR $STATS
RO,=(SP

sSET_WARNING EXIT STATUS
sSAVE MESSAGE ADDRESS
sGET PRINT BUFFER ADDRESS

:GET PREFIX ADDRESS
:STOREPREFIX
M
#12,(RO)+

(RO)

cseur RO

:GET BASIC MESSAGE ADDRESS
:STORE BASIC MESSAGE

;ADD AN ADDITIONAL LINE FEED
sTERMINATE THE BUFFER

:SET MESSAGE BUFFER ADDRESS
:PRINT THE MESSAGE

#10.DET!1Q.UMD,S$FUNC
;LOAD DETACH FUNCT ION CODE
#$DSKPB
DE;ACH DISK (WHO CARES IF IT FAILS!!)

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

SEQ@ 0040

SYMBOL TABLE

CR
= 000015
EXSWAR= wwxxas GX

$SMSGR8
$MSGWR

e
itie
S$FMTEX 001646RG

B
RN
SHSG‘I?
§0RG

I0.DET= wesnes GX

$MSG1

SFUNC = seweee GX
SMESAG 001604RG
SMOVE = wewess GX
. ABS.

$MSG18
$MSG19
$MSG2

000000

0C " 56

ERRORS DE'.CTED:

1550RG
1576RG

16RG

000440RG
000463RG
000027RG

000

001

VIRTUAL MEMORY USED:
618 WORDS_
( 3 PAGES)
EINMIC HEH*MV
7882 EODORDS( 30 PAGES)

(300,20]FMTMSG,[300,30]FMTMSG=L300, 10JFMTMSG

$MSG20
$MSG21

$MSG g

0052 RG
000533RG

565RG

RO BNGY

$MSG
3 001010RG
$MSG30 001032RG
$MSG31
$MSG32

001053RG
001076RG

$MSG4
$MSG40

$MSGé41

00044RG
1124RG

11? RG

B
BWE
$MSG59 001415RG
$MSG6
$SMSG6A

000121RG
0C144RG

SHSG

166RG
g

MSG?O 0145676

BB
REE
SPRINT= waeesas GX
$STARS 000002RG
$STATS= wxnann GX

—-m

e —4

NE NN -

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

/01.00/

RNNNN_._n—D-o-o-n—n—n_l—.
WN = O V00NV
NN = OV

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_ 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 B8Y 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 0041

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

; INPUTS:

4§
000000 016701 0000006
44 000004 006201

SMVPAT : : ASR
MOV

: w*=SMYPAT=LOAD THE DATA BUFFER WITH THE DISK DATA PATTERN

: OUTPUTS:

45 000006

46 000010

006201

012700

0000006

47 000014 016720 000000G
48 000020 016720 000002G
49 00002«

808\”“\”“\”““\0\0\”
=
OVRNAINSWN=O

NONE

000026
000030

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

:s LOAD
THE DISTRIBUTION COUNTER
CONVERT BYTE COUNT TO WORD COUNT

MoV

”BUF RO

: BUFFER POINTER

DEC

ASR

1$:

005301

100372
000207

MOV
MOV

BPL
RETURN

TRKSZ .R1

$PAT, (RO)+
$PAT+2, (RO)+
18

: CONVERT TO 2 WORD COUNT

: MOVE THE PATTERN
:

; DECREMENT THE DISTRIBUTION COUNTER

s IF PL, MORE TO DO
3

OUTPUT ERROR MESSAGE

: INPUTS:
R1 = VALUE TO CONVERT
:
:
R3 = ADDRESS OF BASIC MESSAGE
: OUTPUTS:
:

64 000032 012700 0000006
65 000036
66 000042
67 000044
68 000050
69 000056

004767
oosoo;
004767
112720
112720

71 000062

005001

70 000060 105010

000176

0000006
000056
000040

$EROUT : :MOV

CALL
CLR
CALL
ERROUT: MOVE
MOVB

CLRB
CLR

72 000064 012700 0000006
;2 000070 000167 0000006
75
76
77
78

NONE.

MOV
JMP

#$BUFRX RO

: GET OUTPUT BUFFER ADDDRESS

(noS

‘TERMINATE STRING

SMOVE
R2
$CBDMG
#'.,(R0)+
#'
.(RO)+

csaum.ao
SPRNTO

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

:SET NULL CARRIAGE CONTROL

: "GET OUTPUT BUFFER ADDRESS
*PRINT MESSAGE

I+
* #%=$EROCT-CONVERT TO OCTAL AND PRINT
:
INPUTS:
:
= VALUE TO CONVERT

79
80

:
:

OUTPUTS:

R3 = MESSAGE ADDRESS

MESSAGE PRINTED ON TI:

84 000074 012700 oooogoc

$EROCT: :MOV

#SBUFRX, RO

;

86 000104 105;0;
87 000106 004767 0000006
88 000112 112720 000040

INCB
CALL
MOVE

R2
$CBOMG
#° ,(RO)+

mcwos LEADING 2EROS
*CONVERT TO OCTAL
*STUFF BLANK IN MESSAGE

85 000100

004767

000134

CALL

SMOVE

0
Icn r N o BB IRARER288S KAR

NINON)
=

89 0001
90 0001
91 0001
92 0001

(- ¥ 1=13

FMISUB = FORMAT

005001
01 2709
004767

CLRB

CLR
MOV

0000006
0000006

CALL

:SEND MESSAGE

BLK = (SCYL * SMXTRK + STRK)« SMXSEC + SSEC

; INPUTS:

$CYL = CYLINDER NUMBER
$TRK = TRACK NUMBER
$SEC = SECTOR NUMBER

1]
N

D
—

D d e

d e

:
3
:

3
s3333888888
RANSRS RS

LSRN R R RN NS S

016701
016700
004767

0167
0601

000000G
0000006
000174

0000006

016701
004767
066701

000000G
000156
000000G

10067

000000G

005500

010167
207

: OUTPUTS:
SLBNH
:
SLBNL
:

HIGH ORDER BLOCK NUMBER
LOW ORDER BLOCK NUMBER

$CVTDA: :MOV
MOV
CALL

SMXTRK , RO
SMUL T

MOV
ADD

MOV
CALL
ADD

ADC

MOV

0000006

MOV
RETURN

$CYL.R1

: GET CYLINDER NUMBER

$TRK RO

: GET TRACK NUMBER

R1,R0

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

: GET TRACKS PER CYLINDER
* MULTIPLY
: ADD TO PARTIAL TOTAL

: GET SECTORS PER TRACK
: MULTIPLY

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

*%~$HOMSK-ISSUE A HOME SEEK FUNCTION
THIS SUBROUTINE WILL ISSUE A HOME SEEK FUNCTION.

: INPUTS:

NONE .

: OUTPUTS

HOME SEEK ISSUED TO DISK.

RO S S RN R

THIS SUBROUTINE CONVERTS A DISK ADDRESS TO A LOGICAL
THE FORMULA USED IS:

D D b D
d d D D ) ) D D d D
D D e
D D D e
D d D D D d e

#$BUFRX RO

$PRNTO

:TERMINATE STRING
sSET NULL CARRIAGE CONTROL

: BLOCK NUMBER

D d D D e
D cd e
b D d
d od

(RO)

**=$CVTDA-CONVERT DISK ADDRESS TO LOGICAL BLOCK NUMBER

— e e

SEQ 0043

SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-1
105010

005067
005067
01 5767
012703
012705
000167

000207

000000G
$HOMSK : : CLR
000000G
CLR
000010 0000006
MOV
000000C
MOV
0000006
MOV
0000006
JMP

1$:

RETURN

——————

gt%

;RESET BLOCK NUMBER

#10,SXFRSZ

SDUMMY UP BYTE COUNT

$DSKIO0

:DO THE FUNCTION AND EXIT

#10.HMS'10.UMD,RS
-SET HOME SEEK FUNCTION CODE
sSETUP DEFAULT BUFFER ADDRESS
L4 UF . RS

]

RS e 8RR R SRR R B IIIN NN AN ISR UG ERAR LS CE TR RUR 28 o0& IS

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

*%=$MOVE-MOVE ASCIZ STRING INTO BUFFER

e e I

THIS SUBROUTINE WILL MOVE AN ASCIZ STRING INTO A BUFFER.

OUTPUTS:
RO = POINTS TO NEXT PLACE IN BUFFER.

000240
000242
000244

$MOVE:: MOVB
BNE
TSTB

000207

RETURN

(R3)+,(RO)+
SMOVE
=(RO)

sSTORE TEXT CHARACTER
sIF NE CONTINUE TO STORE
sPOINT TO NEXT BUFFER POSITION
H

000246

112320
001376
105740

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

e B

e e B

INPUTS:
RO = ADDRESS OF BUFFER.
R3 = ADDRESS OF ASCIZ TEXT TO MOVE.

THIS SUBROUTINE WILL PROMPT THE USER AND THEN WAIT FOR HIS

: RESPONSE.

: INPUTS:
RO = ADDRESS OF PROMPT MESSAGE.
:

000250
000254

012701
004767

000044
0000006

$SPRMPT : :MOV
CALL

ooosog

121027

000141

18:

005067 000000G
004767 0000006
103422
016703 0000026
105063 0000006
omog 0000006

000312
000314

103405
121027

000322

142710

o
N =2

[ S]], P S

S8 88

Wy W

WU I

000260
000264
000270
000272
000276
000302

e i S B

; OUTPUTS:
R3 = BYTE COUNT
:
BUFFER IS TERMINATED
:
Z =1 IF BYTE COUNT IS ZERO
:
:
Z =0 IF BYTE COUNT IS NON-ZERO

000320 1o1oos
ooosgs

105720

000172

000040

0003
oouog
000332 00570
000334 000207
000336 000167 0000006

MSG:

2SET CARRIAGE CONTROL
:PROMPT THE USER

CLR
CALL
B8CS
MOV
CLRB
MOV

$BUFRX
SREAD
MSG
$10ST+2,R3
$BUFRX(R3)
#SBUFRX RO

BLO
CMPB

2
(RO)
. M172

*IF LO NO
SLOWER ASE LETTER?

BICB

#40,(RO)

*YES, CONVERT TO UPPER CASE

(MP8 (RO), #4141

BHI
28:

#'$.R1
SPRNTO

TSTB

(ROS+

BNE
1$
ST
R3
RETURN
JMP
$MSGWR

*CLEAR USER'S RESPONSE BUFFER
*GET THE USERS RESPONSE
*IF CS ERROR
*GET BYTE COUNT
STERMINATE THE LINE
:GET INPUT BUFFER ADDRESS
*LOWER CASE LETTER?

SIF HI NO

*END OF INPUT BUFFER?

*IF NE NO
*TEST FOR NULL LINE
:
SEXIT WITH WARNING STATUS

s **=$MULT=INTEGER MULTIPLY ROUTINE
; INPUTS:

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

203

;

: OUTPUTS:

283

;

ggg

;

:flg

RO = MULTIPLIER

R1 = MULTIPLICAND

RO = HIGH ORDER RESULT

R1 = LOW ORDER RESULT

* ALL REGISTERS ARE PRESERVED

818
%14 000342 010946

15 000344 012746 000021

219 000350

217 000352
218 000354
219 000356
220 000360
221 000364
zzg 000
223 000370
224 000372

005000

006000
oogom
10300

005316

000002

003371
022626
000207

SMULT:: MOV
MOV

RO,=(SP)
#21,-(sP)

: SAVE MULTIPLIER FOR ADDS
: SET LOOP COUNT

18:

RO
R1
28
2(SP) ,RO
(SP)
1$
(SP)+,(SP)+

: DOUBLE RIGHT SHIFT
:
: IF CC, DO NOT ADD
: ADD MULTIPLIER TO RESULT
* DECREMENT THE LOOP COUNT
: IF GT, MORE TO DO
: PRUNE STACK
;

28:

CLR

ROR
ROR
BCC
ADD
DEC
BGT
CMP
RETURN

: CLEAR HIGH PART

ggg

: **=SSFCRC-COMPUTE CHECKSUM OVER SSF DATA

229

* THIS ROUTINE WILL COMPUTE THE CHECKSUM OVER THE SPECIFIED

232

: INPUTS:

53’5

: DATA AREA OF AN SSF COPY.

233

236
237
238
241 000374

012746

243
244

006116
005301

262 000400 062016
000402
000404

000001

RO = STARTING ADDRESS

R1 = LENGTH OF DATA AREA

* OUTPUTS:
:
RO =
:
R1 =

POINTS TO CHECKSUM WORD

SSFCRC: MOV

#1,~(SP)

; INITIALIZE CHECKSUM

(SP)
R

: ROTATE CHECKSUM
* ALL DONE ?

1s:

45 000406 001374
46 000410
012601
Sg 00041
207

ADD
ROL
DEC

CHECKSUM

(RO)+, (5P)

BNE
18
MOV
(SP)+,R1
RETURN

* ADD DATA WORD TO CHECKSUM

: IF NE, NO
: GET CHECKSUM RESULT
;

* THIS ROUTINE WILL REPLACE THE CURRENT MAXIMUM VALUES FOR THE

: INPUTS:

559

* OUTPUTS:

2;(1)

25
zgg

zgz

; **=SUPDMX-UPDATE MAXIMUM VALUES FOR DEVICE GEOMETRY

* RMB0'S CURRENT GEOMETRY WITH THE VALUES SUPPLIED IN THE
: SPECIFIED TABLE.
:

R3 =

POINTER TO SPECIFIED TABLE

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

260

;

%g%

;

%0
65 000414 81

7 0000006
69 0004
12367 0000026
000426 012367 0000006

%68 000430
69 000436

112367 0000006
112367 0000006

g;g 000452

(00207

R3 =

POINTS PAST END OF SPECIFIED TABLE

SMXLBN, SMXLBN+2, SMXCYL, SMXTRK, AND SMXSEC ARE ALL UPDATED

SUPDMX : :MOV
MOV
MOV

MOVB
MOVB

270 000440 166767 0000006 0000026
271 000446 005667 0000006

SEQ 0046

SUB
SB(

RETURN

(R3)+,SMXLBN
;SET UP MAX LBN
(R3)+. SMXLBN+2
(R3)+ SMXCYL - :SET UP MAX CYLINDER
(R3)+.SMXSEC
(R3)+.SMXTRK

:SETUP MAX SECTOR
:SETUP MAX TRACK

SMXSEC, SMXLBN+2 oo NOT FORMAT LAST TRACK
SMXLBN

274

3¢

277

* THIS SUBROUTINE WILL CONVERT THE DISK ADDRESS TO A LBN AND

280

: INPUTS:

283

: OUTPUTS:

285

?2;2

: «x=$TSTDA-TEST FOR A VALID DISK ADDRESS (BLOCK NUMBER)

;

284

o83

288 000454
289 000460

:
004767
126767

000466 101007
103404
292 000472 026767 0000006 000002G
293 000500 101002
000241
000207
000261

297 000510 000207
298

cs
cc

177452
STSTDA::CALL
0000006 0000006
CMPB

1 000470

294 000502
295 000504
296 000506

$SEC, STRK, $CYL SET TO A VALUE.

18:
28:

BHI
BLO
CMP
BHI

cLC
RETURN
SEC

IF LBN OUT OF RANGE
IF LBN IN RANGE

SCVTDA
SLBNH,SMXLBN

;CONVERT PARAMETERS TO LBN
:HIGH BLOCK # IN RANGE?

28
SIF HI NO
18
$IF LO YES
SLBNL , SMXLBN+2 .Lou BLOCK # IN RANGE?
2s
:IF HI NO
suou LBN 0K

*SHOW LBN BAD

RETURN

;

£00
333}

: *x=$TSTMX-TEST FOR END OF DISK AND UPDATE DISK PARAMETERS

303

: THIS SUBROUTINE WILL UPDATE THE DISK PARAMETERS AND TEST

306
307
308

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

* OUTPUTS:

338§

3?3

1§
1

}ls'

: IF THE PARAMETERS WILL OVERFLOW THE DISK.

;

$SEC = CURRENT SECTOR NUMBER

;

$SEC = 0 IF NORMAL MODE.

gg}

: CHECK IF THE LOGICAL BLOCK NUMBER IS WITHIN RANGE.

IF UPDATED PARAMETERS EXCEED DISK LIMITS
IF UPDATED PARAMETERS ARE STILL VALID.

—_——

%;3

26767

103404
005067
005;67

0000006
0000006

$TSTMX::CLR
INC

$SEC
$TRK

0000006

BLO
CLR
INC

208
$TRK
$CYL

0000006 000000G 108:

000207
000261
000207

308:

AR TATE

TRTEATEATE

PR PRTR TR 1

001402
241

CMP

BEQ
¢

RESET TRACK NUMBER

UPDATE CYLINDER NUMBER
IS CYLINDER NUMBER EXCEEDED?
IF EQ YES
INDICATE VALID PARAMETERS

$CYL,SMXCYL
308

INDICATE PARAMETERS EXCEEDED

RETURN

**=SUNTID-PUT MESSAGE AND DEVICE/UNIT INTO BUFFER
THIS SUBROUTINE WILL STORE THE MESSAGE AND THE DEVICE AND UNIT

NUMBER INTO THE BUFFER.

INPUTS

R3 = ADDRESS OF MESSAGE

OUTPUTS:
RO = NEXT BUFFER POSITION

0001446
177446
0000006
0000016

SUNTID: :MOV
CALL
MOVB
MovB

156701

0000006

BISB

005002
000167

$TRK, SMXTRK

RETURN

012700
004767
116720
116720

005001

UPDATE TRACK NUMBER
IS TRACK NUMBER EXCEEDED?
IF LO, NO

026767

0000006
0000006 000000G 20$:

CMP

START WITH SECTOR ZERO

CLR

CLR
JMP

0000006

#$BUF +100. ,RO
SMOVE
$DVICE, (RO) +
$DVICE+1,(RO)+

$DVUNT ,R1

R2
$CBOMG

sSET BUFFER ADDRESS
sPUT MESSAGE INTO BUFFER
:STORE DEVICE NAME

sGET READY FOR THE BISB
sGET UNIT NUMBER
:SUPPRESS LEADING 0°'S
sCONVERT UNIT NUMBER TO ASCII

b
-

005067
805;67

*%~$RDBSF~READ MANUFACTURER'S & USER BAD SECTOR FILES
THIS SUBROUTINE WILL READ THE MDBSF AND THE UDBSF.

IF WE ARE RE-WRITING THE LAST TRACK, A EMPTY MDBSF AND UDBSF

* IS RETURNED.

-—Ov

—

R
§38888883338

oo~

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

§ INPU TS:

SMXLBN = DISK ADDRESS OF START OF MDBSF.

: ouTPUTS

;
012703
004767
016767
016767

A GOOD SECTOR OF THE MDBSF AND THE UDBSF ARE READ INTO
THEIR BUFFERS

ogoooos
SRDBSF : :MOV
177566
CALL
0000006 0000006
MOV
0000026 0000006
MOV

#SLOGDV,R3
SUPDMX
SMXLBN, SLBNH
SMXLBN+2, SLBNL

LOGICAL DEVICE ADDRESS POINDER
UPDATE THE ADDRESS VALUES
SET DISK ADDRESS OF MDBSF

000642
000646
000650
9 00065
1 000664

000670
000674

016701
006201
000405
oegm
005567
012705

004767
103017

0000006

000002 0000006 2$:
0000006
0000006
38:
000222

000676
000704
000706
398 000712
399 000716
400 000722
401 000726
402 000730

012700 0000006
005301
001
004767
0000006
012700 0000006
000167 0000006
010146
004767 0000006
012601

404 000734
405 000740

004567 000176
0000006

407 000744

0000006

395 000702

403 000732 000747
406 000742

408 000746

2?3 000750

423 001030
424 001034

103755

004767

68:

$MBSSZ,R1
R1
3s
#2,SLBNL
SLANH
#SMDBSF ,RS

: GET NUMBER OF BLOCKS IN MDBSF
: DIVIDE BY 2
:
* TRY NEXT USABLE MDBSF BLOCK
:
* GET ADDRESS OF MDBSF BUFFER

MOV
DEC
BNE
CALL
MOV
JMP
MOV
CALL
MOV

#$MSG21,R0
R1
58
SPRINT
#SMSG26,R0
$SMSGWR
R1,=(SP)
SPRINT
(SP)+,R1

: CAN'T READ MDBSF
: MORE MDBSF BLOCKS AVAILABLE?
: IF NE YES
: PRINT THE ERROR MESSAGE
* UNABLE TO RECOVER THE MDBSF
: EXIT
: SAVE THE MDBSF COUNT
: PRINT THE MESSAGE
* RESTORE R1

JSR
LWORD

RS,VYBSF
SMDBSF

CALL
BCC

B8R

001506

RDBSF
%3

.WORD

$MSG40

B8CS

CALL

$MSG18

SSRTMF

* READ THE MDBSF
: IF CC OK

: TRY AGAIN

* VERIFY THE MDBSF COPY
* MDBSF BUFFER POINTER

2 BAD S/N MSG POINTER

: MDBSF CORRUPT MSG POINTER

: IF CS, MDBSF CORRUPT
: SORT THE MDBSF

: READ THE UDBSF

016767
016767
066767
005567
016701
006271
000405
062767
005567
012705

004767
103017

426 001042

005301

428 001046

004767

431 001062

010146

427 001044 001

0000006 0000006
0000026 000000G
0000006 000000G
0000006
000002 000000G 7$:
0000006
0000006
8s:
000062

004767

433 001070 012601
434 001072 000747

9%:

0000006

429 001052 012700 0000006
430 001056 000167 0000006

435 001074
436 001100
437 001102
438 001104
439 001106

58:

MOV
ASR
BR
ADD
ADC
MOV

.WORD

425 001036 012700 0000006

43; 001064

48:

0000006

413 000754
41% 000762
415 000770
416 000776
417 001002
418 001006
419 001010
420 001012
421 001020
422 001026

18:

: READ THE MDBSF

33;»

392
393

SEQ 0048

0000006

004567 000036
0000006
0000006
0000006
103755

440 001110 004767 001402

MOV
MOV
ADD
ADC
MOV
ASR
BR
ADD
ADC
MOV

SMXLBN,SLBNH
SMXLBN+2,SLBNL
$MBSSZ,SLBNL
SLBNH
$UBSSZ,R1
R1
5%
#2,SLBNL
$LANH
#SUDBSF ,RS

: SET DISK ADDRESS OF UDBSF
:
- ADDRESS OF THE UDBSF
:
* GET NUMBER OF BLOCKS IN UDBSF
: DIVIDE BY 2
:
* TRY NEXT USABLE UDBSF BLOCK
:
: GET ADDRESS OF UDBSF BUFFER

MOV

#SMSG43,RO

: CAN'T READ UDBSF

BNE

10$

: IF NE, YES

CALL
BCC
DEC

CALL

108:

118$:

RDBSF
118
R1

SPRINT

MOV
JMP

#SMS>42 RO
$SMSGWR

CALL

SPRINT

MOV

MOV
BR

JSR
.WORD
JWORD
.WORD
BCS

CALL

—————————

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

R1,=(SP)

(SP)+,R1
78

RS,VYBSF
SUDBSF
SMSG&&
$MSG19
98

S$SRTUF

: READ THE UDBSF
: IF CC OK

;2 MORE UDBSF BLOCKS AVAILABLE?

* PRINT THE ERROR MESSAGE

* UNABLE TO RECOVER THE UDBSF
s EXIT
: SAVE THE MDBSF COUNT

* PRINT THE MESSAGE

* RESTORE R1
: TRY AGAIN
*
*
:
*
:

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

: SORT THE UDBSF

FMTSUB = FORMAT SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-7
441 001114
445

000207

SEQ 0049

RETURN

|
|

: READ THE BSF (EITHER MDBSF OR UDBSF) SPECIFIED IN RS

449

22}

zzg

: «%=RDBSF-READ THE SPECIFIED BSF FILE

228

450

453

457 001116
458 001124
459 001130
22? 001134

INPUTS:

R5 = BUFFER ADDRESS

SLBNL ,SLBNH LOADED WITH THE TRANSFER LBN

: OUTPUTS:

zgg

456

(ROUTINE USED BY 'SRDBSF')

H
012767
012703
004767
000207

001000 000000G RDBSF:
000000C
0000006

462

222

463

CcC

IF TRANSFER WAS NOT SUCESSFUL

MOV
MOV
CALL
RE TURN

#512. ,8XFRSZ
; SET SIZE OF ONE SECTOR (BYTES)
#10. RLB'IQ.X R3 ; SET READ FUNCTION (WITHOUT RETRIES)
$DSKIO
: READ 1 BLOCK FROM THE BSF
:

: »x=\VYBSF=-VERIFY THE BSF COPY
(ROUTINE USED BY 'SRDBSF')

zgg

: VERIFY THE BSF COPY SPECIFIED BY THE INPUT PARAMETERS

468
469
470

: CALL: JSR
RS,VYBSF
:
BSF POINTER
3
POINTER TO °'XXBSF SERIAL NUMBER DOESN'T MATCH' MSG

473
474
475
476

: QUTPUTS:
:
RO
= SPECIFIC ERROR MESSAGE POINTER
:
cc
0 IF BSF NOT CORRUPT
:
cs
1 IF BSF CORRUPT

2;}

479 001136

482 001146
483 001150
484 001154
485 001156
486 001122

001010
021367
001020
026367
001014

488 001170
489 001172
490 001174
491 001200

005713
001003
005763
001403

VYBSF:

0000006
000002

000405

000261
00040
00572

0000026
18:

000002

MOV

28:
3s:
48:

(RS)+,R3

: GET THE BUFFER POINTER

1$
(R3) , SSNAME
4
2(R3) ,$SNAME+2
48

:
*
:
:
:

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

:
*
:
:

IS SERIAL NUMBER NON=-ZERO?
IF NE
YES
vse’
IF

MOV
TST8

(R5)+.RO
$SWLsT

B8R

BNE
CMP
BNE
CMP
BNE

0000006

492 001202 005763 000006
493 001206 001403
494 001210 012500
495 001512
496 001214
497 001216

POINTER TO °*XXBSF COPY CORRUPT' MSG

012503

480 001140 012500
481 001142 105767

487 001166

ST
BNE
BEQ

ST
MOV
BEQ
SEC
BR
ST

(R3)
28
2(R3)
33

6(R3)
43
(RS)+,R0
5%
(R5)+

: BAD S/N MESSAGE POINTER
: LISTING THE MDBSF ?

|
|
;
.

: CHECK THE ALIGNMENT FLAG

: tESt fueALIGNMENT DISK FLAG
: IF
BSF 0K
: coanufir BSF MESSAGE POINTER
* SET THE ERROR INDICATOR
:
* CORRECT THE RETURN

|
;
1

;
|

:
|
;

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

531
532
533 001310
534 001314
535 001320
536 001322
537 001326
538
539
540
541 001332
54§ 001336
543 001342
544 001350
545
546
547
548 001356
549 001362
550 001366
551 001370
55§ 001374
55
554

000261
000205

5%:

CLC

RTS

SET THE GOOD INDICATOR
RETURN

498 001220
499 001222
500
501
50
50
504
505
506
507
508
509
510
511
512
513
_
514
515 001224
516 001230
517 001234
518 001240
519 001244
520 001252
521 001260
522
523
524
525 001266
526 001272
527 001276
528 001300
529 001304
530

SE@ 0050

*+=$WTBSF-WRITE THE MANUFACTURER'S AND USER'S BAD SECTOR FILES
THIS ROUTINE WILL WRITE THE 16 BIT MDBSF AND THE UDBSF ON_THE
PRIMARY DEC STD 144 TRACK (558,13) AND ON THE ALTERNATE TRACK

(559,1).

INPUTS:
.
NONE
OUTPUTS:

NONE

SWTBSF::CALL
001232
001262
CALL
0000006
MOV
177150
CALL
MOV
001000 0000006
MOV
000000G 0000006
MOV
0000026 0000006

SSRTMF
SSRTUF

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

#SLOGDV,R3
SUPDMX
#512. ,$XFRSZ
SMXLBN, SLBNH

$SMXLBN+2, SLBNL

: WRITE THE 16 BIT MDBSF
0000006
0000006

004767

000000C
000110

MOV

MOV
ASR
MOV
CALL

#SMDBSF ,RS

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

$MBSSZ,R1
R1
#10.WLT'1Q.X,R3
1%

WRITE THE 16 BIT UDBSF

012705

0000006
0000006

MOV
MOV

#SUDBSF ,RS
$UBSSZ,R1

000000C
000066

MOV
CALL

#10.WLT!1Q.X,R3
18

ASR

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

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

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

SALFLB, SLBNH
SALFLB+2, SLBNL

WRITE THE ALTERNATE MDBSF

0000006
0000006

000000c
000020

MOV
MOV
ASR

#SMDBSF ,RS
$MBSSZ,R1
R1

; SET MDBSF ADDRESS
NUMBER OF BLOCKS IN THE MDBSF
DIVIDE BY TWO

CALL

MOV

#10.FEW'1Q.UMD
RS

; WRITE THE ALTERNATE UDBSF

sSET WRITE FE CYLINDER FUNCTION

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

559 001400 012705 0000006
§57 001406
016701 0000006
558 00141
§59 001412

oog;m
012746

000000C

: UDBSF ADDRESS
* UDBSF SIZE

28
R3,=(SP)
(SP) ,R3
$DSKIO
#2,SLBNL
SLANH

:
* SAVE THE FUNCTION CODE
* LOAD THE FUNCTION CODE
: WRITE THE BLOCK.
: UPDATE BLOCK NUMBER
ey

2$
(SP)+

: IF NE NO
: CORRECT THE STACK

ASR
MOV

B8R
MOV
MOV
CALL
ADD
ADC

567 001444
568 001446

001366
005726

E
ST

ggg 001450 000207

SE@ 0051

#SUDBSF ,RS
$UBSSZ,R1

000401
010346
1$:
01160;
2s:
004767
0000006
062767 000002 000006
005567 0000006
005301

MOV
MOV

560 001416
561 001420
sag 001422
563 001424
564 001430
565 001436
566 001442

DEC

RETURN

R1
: DIVIDE BY TWO
#10.FEW!1Q.UMD,=(SP)
;SET WRITE FE CYLINDER FUNCTION

: FINISHED WITH. THE BSF ?

571

3¢

574

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

577

580

: OUTPUTS:

g;%

: **=SRDSSF-READ RM80 SKIP SECTOR FILE

g;g

: OF THE FE CYLINDER AREA ON THE RMSO.

g;g

gg]a

585 001452
586 001456
587 001462
588 001470
589 001476
590 001504
591 001510
592 001512
593 001514
594 001522
595 oo1s§6

012703
004767
012767
016767
016767
016701
010146

000405
082767
105567
012705

599 001544
600 001550
601 001552
60§ 001556
60 oo1ssg
6N% 00156
605 001566
wg 001572
607 001576
608 001600
609 001602
610 oowcg
611 001612

004767
103017

012700
012601
005301
001006
004767
012709
000167
010149
004767
745
15700
M2701

004767

$SSFLB = DISK ADDRESS OF START OF SKIPPED SECTOR FILE
A GOOD COPY OF THE SSF IS READ INTO SSF BUFFER

0000006
$RDSSF : :MOV
176732
CALL
000000C 0000006
MOV
0000006 0000006
MOV
0000026 0000006
MOV
0000006
MOV
MOV
0000006 0000006 1$:
0000006
0000006
2s:

596 001532 012703 000000C

597 001536
598 001542

UTS:

0000006

0000006
0000006
0000006
0000006
0000006
0999996

176556

BR
ADD
ADCB
MOV

MOV

CALL
BCC

3s:

48:
5%

MOV
MOV
DEC
BNE
CALL
MOV
JMP
MOV
CALL
BR
MOV
MOV

CALL

#SPHYDV,R3
: PHYSICAL DEVICE ADDRESS POINTER
SUPDMX
: UPDATE THE ADDRESS VALUES
#512.%<$SSFLN>,$XFRSZ
: SET SIZE OF ONE COPY OF SSF (BYTES)
$SSFLB,SLBNH ~ : SET DISK ADDRESS OF SSF
$SSFLB+2,SLBNL :
$SSFSZ,R1
: GET NUMBER OF COPIES OF SKIP SECTOR FILE
R1,=(SP)
: SAVE THE COPY COUNT
2
#SSSFLN.SLBNL
SLBNH
#$SSF ,RS

: CONTINUE
: TRY NEXT USABLE SSF COPY
:
- GET ADDRESS OF SKIP SECTOR FILE BUFFER

$DSKIO
5s

: READ 1°COPY OF SSF
: IF CC, OK

#10.FER'1Q.UMD,RS

#SMSGS58 RO
(sP) +,R1
R1

SPRINT
#SMSG41,R0
$MSGWR
R1,=(SP)
SPRINT
13
#$SSF ,RO
#$SSFHD=1,R1
SSFCRC

: SET READ FE CYLINDER FUNCTION

* CAN'T READ SSF
: 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 CHECKSUM

FMTSUB = FORMAT

SRSV

NNNOVON

88888

RO
28VRN

61; 001616
613 001620
614 001622
615 0016 g
616 0016
617 0016
618 0016
619 00164
620 001644
621 001650
62% 001652
623 001660
624 001662
625 001666
626 001670

637 001742
638 001744
639 001750
640 001754
641
642
643
644
645
646
647
648
649
650
651
652
6353
654
655
656 001760
657 001764
658 001770
659 001774
660 002000
661 002004
66; 002010
663 002012
664 002013
665 00%02
666 00 Og
667 002032
668 002036

SEQ 0052

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

0 mgo
1g’> 0
012701 1777776
004767 176542
020110
oom;
005767 0000046
001407
005767 0000066
001404
122767 000001

001403

0000126

012700 0000006
000730
005726

105767

0000006

ChNP
MOV
CALL
(MP
BNE
ST
BEQ
ST
BEQ
BNE

68:
7%:

R1, (RO)+
6$
#$SSFDT=1,R1
SSFCRC
R1, (RO)
I3
$SSF+4
68
$SSF+6
68

CMPB

#1,85SF+12

MOV
BR

#SMSGS9,RO
3s

TSTB

$SWLST

BEQ

TST

(S5P)+

; CHECK THE CHECKSUM WORD
: DATA FIELD LENGTH
,
* COMPUTE CHECKSUM OVER DATA AREA
: CHECKSUM OK?
: IF NE, NO
* CREATITMN DATE PRESENT
: IF EQ, NO
* REVISION DATE PRESENT
: IF EQ, NO
: IF NE, BAD CHECKSUM

: 16 BIT MODE SSF ?
: IF EQ,

YES

i SSF rORRUPT
: TRY AGAIN

2 CORRECT THE STACK

: LISTING THE BSF'S ?

001026
105767 0000006
001007
016767 9000006 0000006
853Z?Z

0000026 0000026

BNE
TSTB
BNE
MOV

108
$SWMOD
13
$SSF , SSNAME

026767
001004
026767
001404
012700
000167

0000006 0000006 8$:
0000026 0000026
0000006
98:
0000006

CMP
BNE
CMP
BEQ
MOV
JMP

$SSF , SSNAME
: CHECK THE SERIAL NUMBER
98
: IF NE, DOESN'T MATCH
$SSF+2,$SNAME+2 : CHELK THE SECOND S/N WORD
108
: IF EQ, S/N OK
#MSGERS, RO
: HDA AND ENTERED SERIAL NUMBER DON'T MATCH
$MSGWR
: EXIT

000167

000446

32"

108:

JMP

: IF NE, YES
: MODIFYING THE BSF'S
: IF NE, YES
: COPY THE SERI L NUMBER

?(s)groz.ssnmw :

$SRTSF

: SORT THE SSF AND RETURN

: *%=$WTSSF-WRITE RM80 SKIP SECTOR FILE
* THIS ROUTINE WILL WRITE THE SKIP SECTOR FILE r$ve TIMES ON THE FIRST
: TRACK OF THE FE CYLINDER AREA OF THE RMB80 (559.,0).
:

TS:

$SSFLB = DISK ADDRESS OF START OF SKIP SECTOR FILE

; OUTPUTS:
WRITE SKIP SECTOR FILE
:

004767

000442

012701

1777776

012703
004767
012700
012701
804767
10120
004767

0000006
176420
0000006
1777776
176364
176352

010119
01276 80
¢ 0000006
012705
oocotgocc
012703 000000C

SWISSF::CALL

SSRTSF

: SORT THE SSF

#$SSFDT=1,R1

:GET LENGTH OF SSF DATA AREA

MOV
CALL
MOV
MOV
CALL
MOV

#SPHYDV,R3
SUPDMX
#$SSF ,RO
#$SSFHD=-1,R1
SSFCRC
R1, (RO)+

CALL

SSFCRC

MOV
MOV
MOV
MOV

* PHYSICAL DEVICE ADDRESS POINDER
* UPDATE THE ADDRESS VALUES
*GET POINTER TO SKIP SECTOR FILE
:GET LENGTH OF HEADER
: COMPUTE HEADER CHECKSUM
*STORE CRC AWAY
:GO

COMPUTE CHECKSUM OVER DATA

R1, (RO)
*STORE THE DATA FIELD CRC
#512,%<$SSFLN>,$XFRSZ
:SET SIZE OF ONE COPY OF SSF (BYTES)
#3SSF
RS
:SET
SK1P
SECTOR FILE BUFFER ADDRESS
#10.FEW'10.UMD,RS
:SET WRITE FE CYLINDER FUNCTION

802701
N

67 88206

016767
016767
oo

669 00204
670 00205
671
05

SEQ 0053

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

oSS
TR

FMTSUB = FORMAT

0000006 0000006
OOOOOSG 0000006
0000006
18:
0000006
0000006 0000006

$SSFLB,SLBNH

CAL

0000006

RETURN

$DSKIO
#SSSFLN,SLBNL

$LBNH
R1
1%

.SETUP LBN

$e
: GET NUHBER OF COPIES OF SKIP SECTOR FILE
: WRITE THE SSF
; UPDATE BLOCK NUMBER
§
aes
: FINISHED ?
: IF NE, NO

28:

$SSFLB+2, SLBNL
$SSFSZ, Ri

**=$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.

: INPUTS:

SOME SECTOR ON THE CURRENT TRACK AND CYLINDER
ADDRESS OF BSF OR SSF ENTR
R1 =
spscxrxeo FILE EXMAUSTED
POINTS TO NEXT ENTRY
R1 =

$SRTRK : : CMP
CMP
BEQ

(R1)+,(R1)+
(R1) ,#=1
¢

: POINT OT NEXT ENTRY IN SPECIFIED FILE
: FILE equus ED
: IF
EQ, YES

BNE
£MPB
BNE

gs
(R1) ,$TRK
2

s IF NE, NO
: TRACK NUMBERS MATCH ?
: IF NE, NO

CMP

R1,R2

0000006

18:
28:
3s:

gkgunu

BNE

SEC

(R1),8CYL

$SRTRK

RETURN

: CVLJNBER NUMBER MATCH ?
: SHOW ENTRY WAS FOUND

: IS SPECIFIED FILE EXMAUSTED ?

: IF NE, NO

: SHOW SPECIFIED FILE EXMAUSTED

#*=$SRALL-SEARCH ALL THE BAD SECTOR FILES
$SRFES-SEARCH THE FE CYLINDER BUFFER
$SRMDF-SEARCH MANUFACTURER'S BAD SEC
$SRUDF-SEARCH THE USER'S BAD SECTOR
$SRSDF-SEARCH THE SKIPPED SECTOR FI

000003

: OUTPUTS:
;
CC =
;
s =
;
;

CMP

0000006

ADDRESS OF EITHER BSF OR SSF
MAXIMUM ADDRESS OF THE FILE SPECIFIED IN R1

177777

R1 =
R2 =

—
mw

b ) N =2 N NON NN
N =

S —d =
=2 O =
= NINIO
NN

d oy D
b
D
o
D o
b
D
b
b
b

S OB VR NNV
BB IR

N N N

NN NN N N N N N NN
AR
&SHwn

725

88 SRR
88838 8...0-.-.-._.0\)

SRRNSERRRNGRSR

NN N

RS 2

AR 8

s
[+]

:
;

$SMBSF-SEARCH THE FILE SPECIFIED BY R1 & R2

THIS ROUTINE WILL SEARCH THE SPECIFIED FILE FOR A MATCH.

INPUTS

$SEC, STRK, AND SCYL PRESET

*$SMBSF* INPUTS:

FMTSUB = FORMAT

:
:

R1 = ADDRESS OF LAST BSF ENTRY (INI TIALLY $BSF+4)
R2 = LAST ADDRESS OF SPECIFIED FILE

: OUTPUTS:

746
002206
747 002210
748 002214
749 002220
750
751 002222
752 002226
753 002232
754

760
5
761 002256
762
763 002260
764 002264
765 002270
766

SEQ 0054

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

IF CC

IF CS

.ENABL

LSB

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

000000G
000100

012701
012702

1777746
0001006

$SRFES: :MOV
MOV

012701
012702
000411

0000046
0007746

012701
012702
000404

000154
000000G

000034

000040
000006
0000006

$SRALL
: :MOV
CALL
B8CC
CALL
BCS
DECB
1$:
CALL
B8CC
CALL
B8CC
CALL
2%:
MOV
RETURN

R1
R3
R1

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

$SEC,=(SP)
SgRSDF

SAVE THE SECTOR ADDRESS
SEE IF ENTRY IN THE SSF

$SRSSF
13
$SEC
$§RHDF

§Eec§f ERROR SECTOR IS WITHIN A SKIP REGION

IF ¢C,

IT IS

, NO

DECREMENT THE SECTOR ADDRESS
SEARCH TNE MDBSF
IF CC, ADDRESS PRESENT
SEARCH THE UDBSF
IF _CC, ADDRESS PRESENT

2
$SRUDF
2%
$SRFES
(SP)+,$SEC

SEE_IF ENTRY DUPLICATED IN THE FE AREA

RESTORE THE SECTOR ADDRESS

#SFEBSF~4 R1

FEBSF STARTING ADDRESS
FEBSF LENGTH

$SRMDF
: :MOV
MOV
BR

#SMDBSF
+4 ,R1

: MDBSF STARTING ADDRESS

000004G
0007746

$SRUDF
: :MOV
MOV
BR

#SUDBSF
+4 ,R1

: UDBSF STARTING ADDRESS

012701
012702

000000C
000000C

$SRSDF
: :MOV
3
MOV

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

022121
021127
001417
021167
00101;
126167
001009
126167
001002
000241
000207
02012;
0013

$SMBSF
: : CMP
CMP
BEQ
0000006
CMP
:
BNE
000003 000000G
CMP8
BNE
000002 0000006
CMPB
BNE
CLC
RETURN
48:
CMP
BNE

000207

RETURN

000261

177777

5%:

.DSABL

SEC

LSB

g:reasr+6l..n2

ggnossro1boo-4.aé

gguuesro1boo-4.a2

(R1)+,(R1)+
(R1) ,4-1

5$
(R1),8CYL

3(R1) ,$TRK
43

2(R1) ,$SEC

: MDBSF LENGTH

s UDBSF LENGTH

POINT TO NEXT MDBSF ENTRY
MDBSF EXHAUSTED?
IF EQ YES
CYLINDER NUMBERS MAT(H?
IF NE NO
TRACK NUMBERS MATCH?
IF NE NO

SECTOR NUMBERS MATCH?
IF NE_NO
SHOW ENTRY WAS FOUND

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

: THIS ROUTINE WILL SEARCH THE SSF FOR AN ENTRY ON THE CURRENT TRACK AND

7733

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

791
79
79

:
:
:

796
797

: OUTPUTS:
:
CC =

i «x=$SRSSF=SEARCH SSF FOR AN TRACK ENTRY

788

: CYLINDER.

77345.

800
801 002342
aog 002344
803 002350
804 002356
805 002356
806 002364
807 002366
808 oozgn
809 002376
810 002400
811 002402
315 002406
81 oozug
814 002412
815 002416
816 oogt.zo
817 002422
818 002424
819
820

010146
012701
021167
oo1o1;
126167
001006
126167
161011
000241
000410
020127
001404
022121
021127
001354
000261
012601
000207

€S =

;
$SRSSF : :MOV
000000C
MOV
0000006
18:
CMP
BNE
000003 0000006
CMPB
BNE
000002 0000006
CMPB
BHI
cLe
BR
000000C
28:
CMP
BEQ
CMP
177777
CMP
BNE
3$:
SEC
48:
MOV

RE TURN

R1,=(SP)
;_SAVE R1
#SSSF +<2+$SSFHD> | m
BEGINNING ADDRESS OF SSF DATA
(R1),8$CYL
:
éa NUMBERS MATCH
gs
: 1 e
(R1) ,$TRK
* TRACK numeas MATCH ?
28
: IF NE, NO
2(R1),$SEC
: cuscx FOR A SECTOR
3s
: IF
SSF ENTRY HIGHER THAN $SEC
: suouéum WAS FOUND
48
R1 nssr+<1ooo-sssrm>-z
; SSF BUFFER END ?
33
: IF EQ, YES
(R1)+,(R1)+
* INCREMENT BUFFER POINTER
(R1) ,#-1
: SEE IF END OF DATA
1$
: IF NE, NO
: SHOW sssc' NOT IN SKIP REGION
(SP)+,R1
* RESTORE
R

; INPUTS:

825
azg

NONE

SSF FILE SORTED IN ASCENDING SEQUENCE

:
: OUTPUTS:

3223
o1§m
005067
005067

001061 0000006 $SRTSF
: :MOV
0000006
CLR
oggooos
CLR

CALL
MOV
MOV
JMP

002444
767 177610
835 002450 010103
836 002452 012701 000000C
837 002456 000167 000070
°®

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

: #x=$SRTSF-SORT THE SSF BUFFER

82%

afl

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

824

831 oozl.ig
oosl.
gs 002440

$SEC LOADED WITH THE SECTOR ADDRESS

351

850

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

7’763

IF AN ENTRY IS FOUND WHICH IS LESS THAN THE SECTOR ADDRESS

#561.,8CYL
$TRK
$SEC

: LOAD A PHONY CYLINDER ADDRESS
: cL;m THE TRACK ADDRESS
:
SECTOR

SSRSDF
* FIND THE END OF THE DATA
R1,R3
* COPY THE END OF DATA POINTER
#$SSF +<2+$SSFHD> R1
: SSF STARTING ADDRESS
$SORT
: SORT THE SSF

[g o

787

;aaz

—

784

NN
PO 3

SEQ 0055

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

FMTSUB = FORMAT

SEQ 0056

SUBROUTINES MACRO M1113 12-JAN-82 11:02 PAGE 2-14
**=~$SRTMF-SORT THE MDBSF BUFFER

: INPUTS:
NONE
;

: OUTPUTS:
MDBSF SORTED IN ASCENDING SEQUENCE
H

012767
005067
005067

001061 000000G $SRTMF : :MOV
0000006
CLR
0000006
CLR

010103
012701

MoV
MoV

004767

CALL

0000106

000034

JMP

; LOAD A_PHONY CYLINDER ADDRESS
: CLEAR THE TRACKADDRESS
:

R1,R5
#SMDBSF+10,R1

3 COPY THE END OF DATA POINTER
; MDBSF STARTING ADDRESS

$SRMDF
$SORT

H SEARCH THE MDBSF
3 SORT THE MDBSF

000167

177530

#561.,8CYL
$TRK
$SEC

**=$SRTUF=-SORT THE UDBSF BUFFER

INPUTS:
NONE

OUTPUTS:
UDBSF SORTED IN ASCENDING SEQUENCE

876 002546

012767
005067
005067
004767
010103
012701
000167

001061 000000G $SRTUF
: :MOV
0000006
CLR
000000G
CLR
177506
CALL
MOV
000010G
MOV
000000
JMP

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

s
:
[
:
;s
;
;

LOAD A PHONY CYLINDER ADDRESS
CLEAR THE TRACK ADDRESS
ECTOR
o
SEARCH THE UDBSF
COPY THE END OF DATA POINTER
UDBSF STARTING ADDRESS
SORT THE UMDBSF

; **=$SORT=-SORT THE INPUT TABLE
: THIS ROUTINE SORTS THE INPUT TABLE IN ASCENDING ORDER
s BASED ON DISK ADDRESSES.

880
881
882
883

SSEEERR

: INPUTS:

:
:

885

: OUTPUTS:
SORTED TABLE
:

887

889
8
892
893

002552
002554

01030
16010

895 00256
896 002564

10304
01010

89 OOSSSS

R1 = TABLE START ADDRESS
R3 = TABLE UPPER LIMIT ADDRESS

08%70

$SORT:

000004

MOV
SuB

R3.R
R1.R

: R2 = CURRENT ENTRY POINTER
s TEST FOR AT LEAST

BHIS
MOV

R1,.R2

s IF NOT(HIS), NO NEED TO SORT
: INIT R2

CMP

#6 R

s TWO ENTRIES IN TABLE

——————

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

897
898 002570
899
002574
900
901
9o§ 00 508
903 00261
904 83 1
905
909 00
907 00
908 oose
909 0026
910 oogu.
911 002644
91; oosm
913
00 6sg
914 ooses
915 002656
916 002660
917 002662
918 002664
919 002666
35? 002670
ggg 002672

02 ’2;
162767
88111
241
1004
gzos
1
11146
16146
11211
16261
12662
1261
82 22
zo;o
002754
oszm
020167
002003
810102
zzzzi
00074
000207
01 ;c

R3, TEMP

: FORM AND SAVE

48:
TEMP:

.WORD

; SORT WORK LOCATION

000002 000002
000002
ooooog 000002
00000

28:

3s:
000012

000000

:
* UPPER LIMIT ON R1
: CYL I = CYL I+1?
:IF LT VYES
s IF NE CYL I > CYL I+
S CYL I = CYL I+1...TEST TRK/SEC
: IF LE NO SWAP NECESSARY
* SWAP ENTRIES
:
.
:
:
:
:
:
:
* UPDATE R2
: THIS PASS DONE?
P IF LT NO
: UPDATE R1
* ALL DONE?
: IF GE VYES
* RESET R2
:
:
:

924

g%;

* THIS SUBROUTINE WILL GENENRATE THE 4=WORD HEADER PATTERN.

929
3.;41)

: INPUTS:
:
RO = BUFFER ADDRESS

* OUTPTUS:

935

ggg

=—qy

!
|
|

:
,
1
|

: *%x=GENHDR-GENERATE HEADER WORD PATTERN

gg‘

RO = UPDATED BUFFER ADDRESS

936 002674 016710 0000006
GENHDR : : MOV
937 002700 116760 0000006 ooooog
MOVB

$CYL, (RO)
ssec.gmo)

: SET CYLINDER NUMBER
: SET SECTOR NUMBER

939 002714
940 0027
941 002724

052710 150000
11gn m
10576

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

: SET GOOD SECTOR AND 16-BIT FORMAT FLAGS
* SAVE THE CURRENT SECTOR ADDRESS
* LOOK AT THE SKIP SECTOR FLAG

322 002742

000410

938

SEQ 0057

cmP
SUB
cMP
BLT
BNE
CMP
BLE
MOV
MOV
MOV
MOV
MOV
MOV
CMP
CMP
BLT
CMP
(MP
BGE
MOV
CMP
BR
RE TURN

18:

(R2)+,(R2)+
¥4 TEMP
(R1), (R2)
$
s
(R1),2(R2)
$
(R1) ,=(SP)
2(R15,=(SP)
(R2) , (R1)
2(R25 ,2(R1)
(SP)+,2(R2)
(SP)+.,(R2)
(R2)+,(R2)+
R2,R3
1$
(R1)+, (R1)+
R1,TEMP
48
R1,R2
(R2)+,(R2)+
1$

MOV

000076

000004 000070

002706

113760

0000006 00000

MOVEB

BIS
MOVB
TSTB

942 00
001405
943 002732 052710 020000
944 oogr
105367 0000006
947
948

1s
#20000, (RO)
$SEC
b1

: SET TRACK NUMBER

: 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
: Y$SEC'. IF A SECTOR IS FOUND, THEN SET THE SKIP SECTOR FLAG IN THE

3453

* REMAINING HEADERS AND NOTE THAT A SKIPPED SECTOR WAS FOUND.

951 002744 004767 177310
955 002750

BEQ
BIS
DECB

$TRK.3(RO)

103405

953 002752 052710 020000

18:

CALL

BCS

BIS

$SRSDF

; SEARCH THE SKIP SECTOR FILE

#20000, (RO)

* SET SKIP SECTOR FLAG (BAD)

* IF CS NO SECTOR THE SAME

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

954 00275
ggs 0027

959

105227
000421

0000006

961 002770
96; 002772
g& 002776

004767

103403
042710
000413

177244

177242

967 003006

042710

040000

970 003014

004767

177202

971 003020
972 003022

973 003026

103403

000405

103408
042710

066700

977

000001

3;2 003036

140000

112667 0000006

974 003032

000207

28:

100000

004767

ggg 003012

SEQ 0058

: INC _SKIPPED SECTOR FLAG
: EXIT

: FOUND, SET THE BAD SECTOR BITS IN THE APPROPRIATE HEADER.

965 003000
966 003004

§KPFRE
$

: SEARCH THE MDBSF, UDBSF, & THE FE BSF BUFFER FOR A MATCH. IF ONE IS

ggg

960 0027

INCB
BR

0000006

38:

CALL

58:

CALL

$SRUDF

BIC

#40000, (RO)

CALL

$SRFES

: SEARCH THE FE BSF

(SP)+,$SEC

: RESTORE THE SECTOR ADDRESS

8CS

BCS
BIC

5
#140000, (RO)

ADD

SECSZ.RO

L
RETURN

.END

: SEARCH THE MDBSF

3s
#100000, (RO)
5%

BR
4$:

$SRMDF

BCS
BIC
BR

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

: SEARCH THE UDBSF

s IF _CS, UDBSF EXHAUSTED

: CLEAR THE UF BIT (BAD)

: IF CS, FE BSF_EXHAUSTED
: CLEAR BOTH THE UF & MF BITS (BAD)
: UPDATE BUFFER ADDRESS

FMTSUB = FORMAT SUBROUTINES MACRO M11i3 12-JAN-82 11:02 PAGE 2-17

SEQ 0059

SYMBOL TABLE

ERROUT
GENHDR

$BUFRX=
$CBDMG=

000050R

0026§4RG
tevene
sevnen

GX
GX

wxnens
tenves
sevene
wenkns

GX
GX
GX
GX

tenvee

001116R
swevane

= renenr

wnvnne
seenen
tevnvn
wkknen

GX
GX
GX
GX

000074RG
000032RG
ekt

000204RG

tennes

wekens
wakans

GX
GX

wevnes

wnkntn GX
ekt

000240RG
tenven

000000
003040
ERRORS DETECTED:

L ai il

000132RG

2T 2
SKPFRE= ETS
SSFCRC 000374R
TEMP
002672R
TRKSZ = savnet GX
VYBSF
001136R
$SALFLB= senenr GX

$BUF

tennes GX
weennn GX

. ABS.

$MSG1 = aeanen GX
$MSG1 = axnens GX
$MSG21= annne GX
$MSG 88 whnnne GX
$MSG40= whknns GX
$MSG41= wakent GX
$MSG42= wevene GX
$MSGé3= weknnt GX
$MSG44= wennee GX
$MSG58= waknnr GX
$MSG59= RARRAR GX
SMULT
000342RG
SMVPAT 0V0000RG
SMXCYL= wxnnne GX
$MX LBN= wkkeke GX
SMXSEC= weenen GX
SMXTRK= wannke GX
SPAT = wenens GX
SPHYDV= wnnknt GX

SPRINT= whnnns GX
SPRMPT 000250RG
wannke

000616RG
001452RG
sanann
sanann

GX
GX

SSRUDF 002246RG
wevene GX
$SSF
SSSFDTS tanent GX
$SSFHD= teeene GX
$SSFLB= wennee GX

002270RG
tantnn

002552R

teenee
teenes

GX
GX

tevene

wennne

GX
wevnen GX

000454RG
000512RG

”555522
SUPDMX
SWTBSF
SWTSSF
$XFRSZ=

tanane

cenene

000562RG

001

(_ & PAGES)
VIRTUAL MEMORY USEC:
908 WORDS
7942 WORDS
DYNAMIC HEHORY
( 30 PAGES)
ELAPSED T IME:
00:00:32

—

(300,201FMTSUB, [300,301FMTSUB=L300, 10]JFMTSUB

SEQ 0060

wViss WN) = OV

LS TST ST ST NN T D

iy g

NI WV

i g g

NN = OV

NN -

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

I DENT

FMTPRS = GET AND PARSE COMMAND LINE
/01.00/

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 ALL TIMES REMAIN IN DIGITAL.

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

DIGITAL ASSUMES NO RESPONSIBI L l} Y FOR THE USE OR RELIABILITY OF
ITS SOFTWARE ON EQUIPMENT WHICH S NOT SUPPLIED BY DIGITAL.

VERSION 01.00
C. HESS
M. LEAVITT
«MCALL
«MCALL

14-AUG-80
14-0CT-80

DIRS, ISTATS, STATES, TRANS
DEVDF$
DEVDF

————

SEQ 0061

RVS

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

**=$PARSE-PARSE COMMAND LINE

: THIS ROUTINE WILL GET THE COMMAND LINE AND PARSE THE

: OUTPUTS

: DEVICE NAME AND SWITCHES.

49 000000

S0 000004
1 000006

52 000012
53 000016
54 000022
55 000026

56 000030

57 000036
gg 000040

005227

001404
012709

004767
012700
004767
001006

122767

001367
000167

635 000046
64 000052

1$:

000000C 0000006

005001

177777

68 000074

103435

000000°*

005767
100745
012709

000000G

122767

000000C 0000006

004767
001006

0000006

000000G

78 000134

012702

000000*

012705

000010°

81 000150
82 000154
83 000156

84 000162
gg 000166
87 000170
gg 000174
90

COMMAND LINE TERMINATED WITH

"EOF'’.

-1

s FIRST TIME THRU HERE ?

SPRINT
#$MSG70,RO

; PRINT "sasansanss’<|F>
;s GET PROMPT MESSAGE ADDRESS

13
#$STARS RO

SPRMPT
2%

: BR IF YES
2 GET ADDRESS OF MESSAGE

2 PROMPT USER AND GET RESPONSE
: IF NE COMMAND LINE ENTERED

#1E.EOFR377,810ST
1%
SFMTEX

005001

012704

004767
103405
004767

016701
000207
012700
000167

0000006

CLR

: END OF INPUT?

: IF NE NO
: EXIT GRACEFULLY

s GET STARTING STATE ADDRESS

#-1,8DVUNT

TST
BMI
MOV

.TPARS

SYNTAX

SDVUNT
1%
#$MSG71,RO

s GET KEYWORD TABLE ADDRESS
: GET ADDRESS OF COMMAND L INE
s RESET DEVICE NUMBER

: GO PARSE THE INPUT LINE
: IF CS SYNTAX ERROR

: NULL PARSE?
: IF MI, YES
: GET PROMPT MESSAGE ADDRESS

CALL
BNE

SPRMPT
43

2 PROMPT USER AND GET RESPONSE
: IF NE COMMAND LINE ENTERED

BNE
JMP

48
SFMTEX

: IF NE NO
s EXIT GRACEFULLY

MOV

#OPTKT2 ,R2

: GET KEYWORD TABLE ADDRESS

MOV

#OPTION.RS

MOV
RETURN

$SDVUNT ,R1

CMPB
CLR

0000006

MoV

000000G
000134

CALL
BCS
CALL

000000G
0000006

SYNTAX: MOV
JMP

0000006

MIT.R§

MOV
BCS

4S:

: CLEAR OPTIONS WORD

#UNTKT1,R2
#SBUFRX R4

CALL

3s:

MOV
MOV

MoV

0000006

001002
000167

80 000144

CMPB

2s:

004767

75 000124
76 000126
79 000140

CALL
MOV
CALL
BNE
BNE
JMP

0000006

012767

77 000132

EXIT IS TO

EXIT IS TO ''SMESAG' IF ERROR.

BEQ
MoV

GO00000G

66 000062

74 000116

;s SETUP TO CALL THE PARSER

65 000056 012705

72 000110
73 000114

R1 = DEVICE. UNIT NQBER

$SPARSE : : INC

000000G
0000006

000000*
000000G

69 000076
70 000102
71 000104

000000G

012702
012704

67 000070

NONE .

177777

2(1’
62 000044

INPUTS:

"SFMTEX''

#1E.EOFR377,810sT
R1

#SBUFRX R4
. TPARS
SYNTAX
$TSTDV

#$MSG2 RO
$MSGWR

: END OF INPUT?

2 CLEAR OPTIONS WORD

s GET ADDRESS OF COMMAND LINE

: GET STARTING STATE ADDRESS
: GO PARSE THE INPUT LINE
: IF CS SYNTAX ERROR
: MAKE A FINAL DEVICE TEST

s SET SPECIFIED UNIT NUMBER
s ALL IS 0K
: SYNTAX ERROR
: EXIT WITH WARNING STATUS

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

SEQ 0062

: STATE TABLE FOR °'TPARS' PARSER

94
95
96
97 000200

.NLIST

MEB

ISTATS

UNTST1,UNTKT1

; READ DEVICE AND UNIT NUMBER

000200
000200
000200

STATES

000200

STATES

000200

ISTATS

UNIT
$EOS,SEXIT
SNUMBR, , SSTUNT

: TERMINATING STATE
OPTST2,0PTKT2

; PROCESS SWITCH OPTIONS

000200
000200
000200
000200
000200
000209
000200
000200
000200

STATES
T

OPTION

$EOS, SEXIT
"CSRTM,CSR
"VEC', VEC
VFL'' VFL

SET NEW CSR ADDRESS

g8 83

STATES
TRANS
STATES
TRANS

CSR
'=

$NUMBR,SWITCH,$STCSR

SET NEW VECTOR ADDRESS

88 88

bo
b —d e cd b e
NN
N NN NI NI RO NININD =
N W N
WA

TRANS
TRANS

STATES
TRANS

vEC
SNUMBR, SWITCH,$STVEC

S 88

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

200

STATES
TRANS
STATES
TRANS

VFL
'=

$DNUMB, SWITCH,SSTVFL

SET ERROR LIMIT

——————

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

SEQ 0063

148 000200

STATES ERL

151 000200
152 000200

STATES
TRANS SDNUMB, SWITCH,SSTERL

}gg 000200

TRANS

STATES
TRANS
TRANS

LI
°:.L06
SLAMDA,SWITCH,$STLIS

160 000200
161 000200

STATES
TRANS

LOG
°L,SWITCH,$STLOG

: SET FORMAT ENABLE

—

}g%

156 000200
157 000200
138 000200

165 900200
166 000200
167 000200

STATES FO
TRANS
':.FE
TRANS SLAMDA, SWITCH,$STFOR

169 000200
179 000200

STATES
TRANS

FE
°F,SWITCH,SSTFFE

; SET BSF/SSF INITIALIZATION

174 000200
175 000200

STATES
TRANS

IN
SLAMDA,SWITCH,$STIN

144
179 000200

: CHECK FOR ANOTHER OPTION
STATES SWITCH

181 000200

TRANS
TRANS

*/.O0PTION

}gz 000200

STATES

180 000200

185
186
187
188

191 000200
192 000206
193 000214

194 000216

LENABL

000167

177746

JMP

.PNUMB,SDVUNT
SDVUNT.#7
18

SYNTAX

; STORE UNIT NUMBER
* 1S DRIVE NUMBER WITHIN RANGE ?
:'IF LOS, YES

* SYNTAX ERROR

;

;gg

199

; NULL (TERMINATING) STATE

LSB

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

196

200
000222
201 000226
202
0 0234
203 000236
242

SEOS.SEXIT

F
* DEVICE UNIT NUMBER

016767
026727
101402

: DETERMINE DEVICE VALIDITY

016702
026762
00140
016202
001371

0000006
0000006 000004
000000

’

18:
28:

MOV
CMP
BEQ
MOV
BNE

: SET BAD BLOCK FILE/SKIP SECTOR FILE LIST

}gg

‘=

SDEVHD.R2
:
SDVICE.D.NAM(R2):
4$
:
D.LNK(R2),R2
:
2%
*

ADDRESS OF 1ST DCB IN SYSTEM
IS THIS THE RIGHT DCB?
IF EQ YES
POINT TO NEXT DCB
LOOP TILL END OF LIST

2564

000382

SEQ 0064

38:

owsnssléRO

48:

MOVB

SDVUNT,D. uumnz)

MOV

D.UCB(R2) ,R1

MOVB

%va

8888806 000006

0000006
000020 0000006

: DEVICE NOT IN SYSTEM

$DVUNT.D.UNIT+1(R2)

: SET UNIT NUMBER RANGE

GET UCB ADDRESS
sovum
u.umrmi
SAVE vis
SAVEsggcmeo UNIT NUMBER
1.8UC
u.§ca(n1).sscs: SAVE SCB ADDRESS

000004
000040
000006
000026
010000

000010
000010

58:

68:

000010

024026

020026
010000

000012

78:

w6 ,-(SP

8CC
MoV
BR

(R2)
5%
(SP)+,an4
33

MOV
MOVB

#40,10(R2)
U.UNIT(R1),10(R2

BIT

#10000.10(R2)

MOV

#INTR, 3#4

(SP)+,aN4

26(R2) ,RO

BNE
CMP
BEQ
CMP
BNE
BIT
BEQ

9
#24026,R0
78
#20026,R0O
108
#10000,12(R2)
8%

RETURN

0000006

8s:

22"

mss?.no

0000006

9s:

gkqv

mssn.no

0000006
0000006

108:

MoV

#$MSG73,RO

.DSABL

LSB

118:

JMP

$MESAG

0000%00%00%% 0%,

$5(8,R2
S. CSR(RZ) R2

MoV

000004

$UCB.R1

00000909090 %0% WV

MoV
MoV

e e 0000000000009

227

$TSTDV: :MOV

o~
N
o

388

0000006
0000006
000012
000004
000570* 000004

289822=22

QYRR s

: TEST DEVICE CHARACTERISTICS

ONNON) OO o

SRRy

-0V~

MNINININININININ NSLSTSTST
SIS NN N SN NT ST NT.N ]
WWNNI NN
N

VIS WN =O VOOV
NN =O

COMMAND MACRO M1113 12-JAN-82 11:02 PAGE 3-3
0000006
0000006
0000006 000009
00000

& NNINININ) = = - ddfldddd% IS
S28
28

FMTPRS = GET AND PARSE

FETCH UCB ADDRESS

FETCH SCB ADDRESS
GET _CSR ADDRESS
SAVE TRAP VECT OR

PU T OUR OWN IN ITS PLACE
DOES ng ADDRESS EXIST?
IF CC YES
RESTORE TRAP ADDRESS
PRINT ERROR MESSAGE
RESTORE TRAP ADDRESS
CLEAR THE_SUBSYSTEM

SELECT UNIT

GET DRIVE TYPE REGISTER
SEE IF oaxve PRESENT

IF NE, NO = 'NED' SET
IS IT AN RM8O ?
IF EQ, YES
CHECK 'OTHER DEVICE TYPE CODE
IF NE, NO
IS DRIVE ONLINE (MOL SET) ?
IF EQ, NO
DRIVE OFFLINE
DRIVE NOT PRESENT

DRIVE NOT AN RM80

: SET NEW CSR ADDRESS
8000006

000006 160000

0000006

000094
888808; 000004

$STCSR: :MOV

CMP
BHIS
MOV
BR
MOV

MOV
ST

$UCB,R2

FETCH UCB ADDRESS

kG, =(SP)

SAVE INTERRUPT VECTOR

a.PNUMB

SEE IF IT'S ON THE BUS

.PNUMB, #160000 : CSR ADDRESS WITHIN RANGE?
1%
IF HIS YES
sgnsczRO
SYNTAX ERROR
SINTR, 304

SET UP OUR OWN VECTOR

8883338S22

BCC
MOV

888

0006

000001

000007

;S:

38:

8
ooooos 000012

MOV

JMP

BICB

MOV
MOV
MOV

RETURN

SEQ 0065
T 'S THE RE

(sp)+

mvscég'no

VECT
IN svsren

$MESA

#US, OFL U.ST2(R2 S

SET DEVICE ON-LINE

¢ xn;eggurr VECTOR

(SP)+, kG
$SC8B,R2
.PNUMB, S. csn(nz)

: SET CSR ADDRESS

:: INTERRUPTS COME HERE ON NON-EXISTANT MCMORY TRAPS
#1.2(5P)
000007 000002 INTR: BIS
i SET CARRY BIT IN SAVED PS
RETURN

CoO~NON

%83 00061g

103006

0000006

$STVEC: -MOV

001000

CMP

BHIS

000003

.PNUMB , RO

RO, #1000

28
#3,R0
43
ggnsczr.no

0000006

1$:

BIT
BEQ
SSV

0000006
0000006
0000006

28:
38:
48:

MOV
JMP
MOV

#SMSG2,RO
sne Aa

ASL
ASL
MOV

R2
R2
(R2),$INADD

000005
177400

0000006

0000006
0000006

MOVB
BIC

IF
IS NO_GOOD
IPLE OF 4?
MFJL
YES

NOT MTIPLE OF FOUR
SYNTAX ERROR

svcf<az) R2
#177400,R2

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

MOV

#SNONSI, (R2)

ASR
ASR

$INADD, (RO)

GET RMB0 DRIVER ISR ADDRESS
IGNORE INTERRUPT TO OLD VECTOR

NEW INTERRUPT VECTOR
FORM NEW VECTOR MOD4

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

GET SCB ADDRESS
SET NEW VECTOR ADDRESS

MOV

0000006
000005

FE TCH NEW VECTOR ADDRESS
IS HE VECTOR IN A REASONABLE PLACE?
mox -4

[« )

-4

RERRBY

: SET NEW VECTOR ADDRESS

RN
FAFANIISE
LS
SFER

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

MOV
MOVB

RETURN

COMPUTE ABSOLUTE ADDRESS

oo
NNN

NNN

dgo-‘\flg'\i
§ oo

-0 =0
=O0O0OMN

NNNNE,

WWWU‘W\:

-o

: SET VERIFY COUNT
000377

000000G $STVFL:: g':s

0000006

E’S‘E

1=NLNH

0000006 0000006

MOovB

.PNUMB, SVERIF

JMP

SYNTAX

177226

1$:

RETURN

{;77 . .PNUMB

SET ERROR LIMIT

SYNTAX ERROR

BLO
TST

0000006

BNE
Move

383

0000006 0000006
177174

18:

RETURN
JMP

qg??..PNUHB
+ PNUMH

1$
«PNUMB, SSWERL
SYNTAX

IM T WITHIN RANGE?
NO

F
Tl
F

0C0000G SSTERL::CMP

SEQ 0066

000277

SET ERROR LIMIT
SYNTAX ERROR

: SET LIST MODE
~
~
~

0000006
0000006

888
S

NN NN -

WMSNNNNW
=
OV~
NS
N
4\

mro

g ) eP

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

$STLOG: : INCB
$STLIS::INCB

RETURN

$SWLOG
$SWLST

; SET THE °* LI ST LOGICAL' SWITCH
SET THE ‘LI sT' SWITC H

wviwn

FRERRRRRE

: SET ENABLE FORMAT SWITCH

000207

0000006
0000006

$STFFE: :INCB
$STFOR: : INCB

RETURN

$SWFFE
SSWFMT

: SET THE °'FORMAT FE' SWITCH
: SET THE °"FORMAT' SWITCH

: SET BSF/SSF INITIALIZATION SWITCH
105267
000207

000001

0000006

$STIN::

.END

INCB
RETURN

SSWINT

SET THE 'INITIALIZATION' SWITCH

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

SYMBOL TABL

CSR

000050R
DV.CCL= 00000
oV
.COH= 02

002 OPTKT
000000RG
OPTST2
000010RG
ARE
= 000010
sP.EIP= 000001

003 S3.RAL= 0 0
002 Sg.RCU= 80

SDVUNT=

U.FNUM=

sentes

888312

seenee GX
waeane GX
sennne GX

N~NO
NNS
W

~N~
N~

-3

cccccc

003 U.TLPP
002 U.TMTI
U.TST

snanne
saenns
sannnn
saennn

GX
GX
GX
GX

000302
GX
sannn GX

000316

seents

1133113

233332

000464RG
000742RG
001006RG
001012RG
001020RG
001000RG
000774RG
000304
000200RG
000600RG
000710RG
000310

$3.DA0= 040000
002 33 PCU= 100000

GX
GX

1113113

U.ATT

00002

1111213

o et
G-s

U.CNT
000030
00024
U.CTL
U.CTYP 000050
u.Cw1
000010
u.cug
000012
800014
U.Cw
U.Cwé
000016
u.p(8
000008
J.FCDE= 00004

1113113
1113313

000316RG
taennn

ARRRRE

annant
sannnn

$DNUMB=
$DVICE=

ekt

GX
GX

177777
000006
10R
26R
sanane
senren

GX
GX

sannne

177776
001026

—e

. ABS.

000006
000010R

sannnn

sntene GX

(=3

nunnun

= %%? nnnn
TM runfuS Frnnnn
-

$¢.WRB= 000086

OPTION

GX
GX
GX
GX
GX
GX

shanen
sxeann

DOO

s .

taenet
annan
tannne
saenne
wannnn
ratenn

wenenn

>»COD

88 8 888

o
oo

)

uc.

il -1-1-1alal' lalel~Iny ]
DNV
IOM—4—~<M
W bt- =

——d b d cd cmd cd e cmd w—d wd = b b ——d b O * & 9
e & & o 0 0
"c’(fl(flm(flMMMMMMMMMMMMMM%WMWMMMMMU’
:\.DN
® 8 8 8 8 8 8 8
8 8 s e e s s

000300

UC.QUE= 000040
000000R
UNIT
UNTKT1 000000RG
UNTST1 000880R6

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

SSTATE

000166

$KTAB
16
$KSTR
31
ERRORS DETECTED:

00;

00
0

VIRTUAL MEMORY USED:

DYNMIC RMV

3819
UORD§15 PAGES)

7942 _WOR

0 PAGE

£500°50araTERs. £360, 33]mms-t1 1JEXEMC./ML, £300, 10JFMTPRS
APSED TIME:

"
en

F
B
5
L

: THE INFGRMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
s 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

18-AUG-80
24~DEC-80

CND,BEX

; MESSAGES

000000
000032

012
110

105
104

116
101

MSGIRB: .ASCIZ
ngegza «ASCIZ

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

: DATE FIELDS
101
105
101
120

116
102
12%
1§

48 000102
49 0001
50 00011
51 000116

112
112
101
123

125
125
125
105

116
114
107
120

000076

Sg 000122

0001§6

54 000132
55 000136
gg

115

117

116

104
000000

101

103

117

105

DAT:

131

LASCIZ
.ASCIZ
LASCIZ
.ASCIZ

/JAN/
/FEB/
/MAR/
/APR/

LASCIZ
LASCIZ
LASCIZ
.ASCIZ

/JUN/
/JuL/
/AUG/
/SEP/

.ASCIZ

124

+ASCIZ

126

+ASCIZ

103

.EVEN

.ASCIZ
WORD

/MAY/

/0CT/
/NOV/

/DEC/
0

s VALID LIMITS FOR DATE FIELDS

L
B
B
B
L
5
m

S B RN R O R N N S S RN

OWNERSHIP OF

o [

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

Sy
Qs S

A R i — OO~

:
:
:
:

AR
e S SR

FMTR80 - FORMAT/VERIFY RM80 DISKS
701.00/

; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

112
106
115
101

SEQ 0069

43 000056
44 000062
45
46 000072

]

NS W =

.TITLE
.IDENT

Y.l

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

FMTRB0 = FORMAT/VERIFY RM80 DIS MACRO M1113 12-JAN-82 11:04 PAGE 1-?
60 000140 000001 000014

DATLMT: .WORD

2,. 000154

DPARS:: .BLKW

61 8%"'

150

888880

000116

143

JWORD

~WORD

BASYR

== 78.

1,12.

1.31.

g.99.

SEQ 0070 |
; FOR MONTH

* STORAGE FOR DATE CONVERSION

: FOR DAY

: FOR YEAR

; BASE YEAR = 1978

;

SEQ 0071

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

**~$RMB0~FORMAT/VERIFY RM80 DISK PACKS

: YHIS ROUT INE UILL INITIATE THE FORMAT AND/OR VERIFICATION

77
78

: OUTPUTS:
:
NONE .

;

: OF AN RMBO DISK PACK.

TS:

DISK PARAMETERS SET TO ZERO

81 000162

105767

0000006

$RM80:: TSTB

$SSWINT

: SEE IF SSF/BSF INITIALIZATION MODE

83 000170

004767

0000006

CALL

SRDSSF

: READ SKIP SECTOR FILE

82 000166 00102
84 000174

004767

BNE

0000006

$SRDBSF

MOV

#MSGIR8 RO

: "ENTER DATE (DD=-MMM-YY

CALL

DATE

:
"MM/DD/YY’ OR ‘DD-MMM-YY
: CONVERT USER'S ENTRY TO A BINARY DATE

TSTB

$SWLST

: DISPLAY THE DEC STD 144 AND SSF FILES ?

CALL

SRMS8OL

3 DISPLAY THE FILES

MOV
TST
BNE

89 000220

CALL

0127

000000*

2
9! 000224

004767

000274

105767

000000G

004767

0000006

3§ 000230

94 000234

95 000240

96 000242

97 000246
33 000252

004767
005267
001405

105767
001522

000000G
000266

INC

1%:

0000006

: IF NE, YES

CALL

85 000200 016767 0000106 0000006
86 000206 005767 000310
87 000212 001010

88 000%16

BEQ

TST8B
BEQ

: READ BAD SECTOR FILES

$SSF+10,SREVNM : GET CURRENT REVISION NUMBER
8$%
2 HAS DATE BEEN ENTERED AT LEAST ONCE ?
1$
: BR IF YES
SPRMPT
8s

SSWFMT
78

2 INDICATE THAT DATE HAS BEEN ENTERED ONCE
: IF EQ, NO

: FORMAT THE HDA ALSO ?
: IF EQ, NO

}8(1)

2 INFORM THE OPERATOR THAT DATA WILL BE DESTROYED

102 000254 012703 0000006
103 000260 004767 0000006
104 000264 omo; 0000006
105 000270 004767
0000006
106 000274 omog 0001446

28:

107 000

004767

110 000314

og1sov

108 000304
109 000310

1 8%316

11;

0127
004767

0000006

122767 000131

% 001075

1" 00033 105767 0000006
114 000332
001013
115 000334 omog 0000006
119 000340

0067g

0000006

118 000346

122767

000131

120 ooogzg

105267

0000006

12
124 000372

004767

000126

117

000344

119 000354

151 000
1 g 000366

001451

001045

12 og 000000*
767 0000006

MOV
CALL
MOV
CALL
MOV

msczs R3
$UN
msszl. R3
SMOVE
naumoo..no

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

MOV
CALL

#$MSG31,R0
$SPRMPT

2 GET CONFIRMATION ADDRESS
: PROMPT AND GET DPERATDR S RESPONSE

CMPB

#'Y,$BUFRX

CALL

0000006
000000G

BEQ

0000006

BNE
TST8
BNE

MOV

: IF EQ,

RESPONSE WAS 'NO'

s SEE lf RESPMSE WAS 'VES'

: IF
RESPONSE WAS °NO’
: SEE lf SSFIBSF INITIALIZATION MODE
:

$SWINT
33
#SMSGRS, RO

: GETufioAre MODE MESSAGE

: IF EQ,

$PRMPT

CMPB

#'Y,SBUFRX

INCB

$SWMOD

BNE

38:

SPRINT

CALL

BEQ

0000006

2 PROMPT THE USER - USER S RESPMSE MAY BE EITHER:

2 PROMPT AND GET RESPONSE
NO

: WAS RESPONSE ‘'Y’

: IF NE, NO

MOV
CALL

#MSGIR8,RO
SPRMPT

: TENTER DATE (DD-MMM-YY):
: PROMPT THE USER = USER'S Rssmse MAY BE EITHER:

CALL

DATE

* SET THE MODIFY FLAG

:
'MM/DD/YY' OR *DD-MMM-YY
: CONVERT USER S ENTRY TO A BINARY DATE

FMTRB0 - FORMAT/VERIFY RMB0 DIS MACRO M1113 12-JAN-82 11:04 PAGE 2-*
127 000402
128 000403
129
00041
130
000414
131 0004
132
000424

143

142

0004

000470
74

144
145 000500
146 000504
147 000510
148 000514
149 000520
150
151 000522
152

~N S Vg NN
=00

o ORCONON

138
000454
139 000456

1% 000450

0000006

4$:

0000022 0000006

INC

MoV

#MSG2R8 RO

MOV

000002
0000006

geyeeRes &
§ SF3

136 000444

0000006
0000006
0000006

O
b = O
S-OOOO-D
2NN

0004

Nfls\lflflflfl N WNN TN NWwWwW»

000120

} 2 000376

7$:

8s:

(SP)+,$SNAME
+2

INDICATE THAT DATE HAS BEEN ENTERED ONCE
'HDA SERIAL NUMBER:

PROMPT OPERATOR

NUMBER OF BYTES ENTERED TO Ré
INPUT BUFFER ADDRESS
OUTPUT BUFFER ADDRESS
CONVERT THE S/N_TO BINARY
IF CS, BAD S/N _ENTRY
CORRECT THE SERIAL NUMBER ORDER

TSTB

$SWINT

INITIALIZE THE BAD SECTOR FILES ?
IF EQ, NO
é'x‘” THE DEC STD 144 AND SKIP SECTOR FILES

CALL
CALL
CALL
CALL
CALL
MOV
CALL

$SRM8
SRDSSF
SRDBSF
SRMBOF
SRMSOV
#$MSG12,RO
SPRINT

GET UPDATE MODE INFORMATION

MORD

ONCE DATE FLAG

BEQ
CALL
BR

5$:
6$:

RMPT

SEQ 0072

RETURN

13
$RM80I
78

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

FMTR80 = FORMAT/VERIFY RMB0 DIS MACRO M1113 12-JAN-82 11:04 PAGE 3

154

SEQ 0073

3¢

}gg

: *%=DATE=CONVERT USER'S RESPONSE TO BINARY DATE

157

: THIS ROUTINE WILL CONVERT THE ASCII DATE INPUTTED

}2?

: STORAGE AREA.

158
159

: INTO *SBUFRX® AS EITHER [MM/DD/YY] OR [DD-MMM=YY] AND
: CONVERT IT TO BINARY AND PUT IT IN DATE PARAMETER

162
{82

: INPUTS:
:
"$BUFRX® CONTAINS ASCII STRING FOR DATE

165

: OUTPUTS:

166
167
168

171 0005264 012701 000154"
172 000530 012702 000003
173 000534

174 000536

005021

005302

175 000540 001375
176 000542 012700 0000006
177 000546
178 000552

004767
120227

0000006
000057

180 000560
181 000564

120227
001404

000055

179 000556 001466

DATE:
18:
2s:

188 000602
189 000606

004767
103446

193 000622
194 000624
195 000626
196 000630

005002
105711
001411
1220;1

198 000634

105721

000256

001774

38:

58:

005202
105711

203 000646 001366
204 000650 000425
205 000652 ooszo;
206 000654 010267 177274
208 000662
goo 000666

DEC

CALL
(MPB

$CDTB
R2, 4"/

CLR

BNE
MOV

MOV
JMP

48:

199 000636 001376
200 000640 010300

207 000660

#DPARS ,R1
#3 R2

(MPB
BEQ

190 000610 010167 177342
191 000614 010003
192 000616 012701 000056°

201 000642
202 000644

MOV
MOV

(R1)+

: POINT TO PARAMTER AREA
: SET WORD COUNT
: ZERO NEXT WORD
: DONE ?

18
#$BUFRX RO

: IF NE NO
: GET BUFFER FOR USER'S RESPONSE

10§

: IF EQ YES

R2.#'3s

#SMSG2,RO
$SMSGWR

: GET A NUMBER
: TERMINATOR FOR DATE ?

: POSSIBLY DIFFERENT FORMAT ?
: IF EQ YES

* NO, SYNTAX ERROR
: EXIT WITH WARNING STATUS

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

187 000576 012705 000144’

197 000632

OF DATE

BEQ

182 000566 012700 0000006
}g‘s 000572 000167 0000006

}gg

DPARS CONTAINS BINARY REPRESENTATION

moo;

120227
001401

10 000670 000415

000055

MOV

#DATLMT+4,RS °

MOV
MOV
MOV

R1,DPARS+2
RO.R3
#DAT,R1

CALL
BCS

CLR
1ST8
BEQ
CMPB

BEQ

TSTB

R2
(R1)
%
(RO)+, (R1)+

(R1)+

; 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 ?

BNE
MOV

58
R3,R0

* IF NE NO, LOOP
* YES, RESET BUFFER POINTER

BNE
BR
INC
MOV

4
98
ns
R2,DPARS

: IF NE NO, LOOP
: ZERO IS END OF MONTH LIST
* INCREMENT MONTH INDEX
: SAVE IT

INC
1ST8

68:

TMTSTL
98

mov8
C(MPB
BEQ

R2
(R1)

(RO)+,R2

R2,4'=
78

* UPDATE MONTH INDEX
* END OF TABLE ?

* GET NEXT CHARACTER
* LEGAL TERMINATOR ?
: IF EQ YES

* NO, IT'S A SYNTAX ERROR

FMTRB0 = FORMAT/VERIFY RMB0 DIS MACRO M1113 12-JAN-82 11:04 PAGE 3-1
211 000672

004767

oooogoc

213 00070
1% 000706

767
103409

156

z1§ 00097

15 000710
16 000714
17 ooong
18 000722
219 000726
%gg 0007

12705

150°

ozgzg 000116
10
;
010167
177236
0004
012700 0000006
0000006

g%
012705
004767
103765

000140°
000114

228 000752 010123
120227
230 000760 001361

000057

234 000774 010123
120227
236 001002 001350

000057

229 000754

231 000762
232 000766
233 000772

CALL

8s:
98:

$CDTB

; YES, GET YEAR

TMTSTL
98

: TEST LIMIT ON YEAR
: IF CS ERROR

MOV

#DATLMT+10,RS

CMP
MOV
BR
MOV
JMP

R1,#BASYR
98
R1,DPARS+4
12§
#SMSG2,R0
SMSGWR

CALL
BCS
BLO

SEQ 0074

004767
004767
103754

235 000776

108:

: CHECK YEAR ENTRY
: IF LO, INVALID YEAR ENTRY
: SAVE YEAR
: EXIT
: GET SYNTAX ERROR MESSAGE
: EXIT WITH WARNING STATUS

118:

0000006
000072

237 001004
238 001010
239 001014

004767
004767
103743

0000006
000050

243 001032
244 001036
245 001042
246 001044
247 001046
248 001050
249 001052

000363
006363
000313
213
213
006213
056313

000004
000004

#DPARS .R3

: POINT TO DATE STORAGE FIELD

MOV
(MPB
BNE

R1,(R3)+
R2.4'/
13

: STORE IT
: GOOD TERMINATOR ?
: IF NE NO, SYNTAX ERROR

R1,(R3)+
R2.4'7
98

: STORE IT
: GOOD TERMINATOR ?
: IF NE NO

CALL
CALL
BCS

MOV
C(MPB
BNE

240 001016 010113
241 001020 012703 000154°
128:
z:.g 001024 162763 000116 000004

000004

250 001056 056313 000002
g;} 001062
207

CALL
CALL
BCS

MOV
MOV
SUB

SWAB
ASL
SWAB
ASR
ASR
ASR
BIS

#DATLMT RS
TMTSTL
98

$CDTB
TMTSTL
98

R1, (R3)
#DPARS ,R3
#BASYR.4(R3)
4(R3)
4(R3)
(R3)
(R3)
(R3)
(R3)
4(R3), (R3)

BIS
2(R3). (R3)
RETURN

2 GET POINTER TO MONTH LIMITS
: TEST LIMITS
: IF €S ERROR, OUT OF BOUNDS

: GET NEXT TWO DIGITS
: TEST LIMITS
: IF CS ERROR, OUT OF BOUNDS

* 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 § - 8

MERGE YEAR WITH MONTH

* MERGE DAY
P EXIT

253

256

* THIS ROUTINE WILL TEST THE DATE AGAINST LIMITS SPECIFIED

259

: INPUTS:

261
262

:
:

%?5
ggg

260

522

* *x=TMTSTL = TEST DATE LIMITS
: BY A TWO WORD LIMIT ENTRY.

R1 =

RS =

* OUTPUTS:

267

266

CONTAINS VALUE TO BE TESTED

POINTS TO TWO WORD LIMIT ENTRY
WORD 1 = LOW LIMIT OF VALUE

WORD 2 = HIGH LIMIT OF VALUE

265

R1 =

RS =

UNCHANGED

MoV

MOV
CALL
BCS

: GET LIMIT ON YEAR

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

224 000734 012703 000154°
225 000740
226 000744
227 000750

78:

UPDATED TO NEXT LIMIT ENTRY

;
g
|

FMTR80 - FORMAT/VERIFY RMB0 DIS MACRO M1113 12-JAN-82 11:04 FAGE 3°5
H
3

7§ 001064 852125
76 001

404

75 00107

02g125

278 001076

000207

76 001072
77 001074

%79 001100

(C =
(S =

SEQ 0075

GOOD VALUE, LOW<=X<=HIGH
BAD VALUE, LOW>X OR X>HIGH

TMTSTL: CMP

R1,(RS)+

: IS VALUE LOWER THAN LOW LIMIT ?

CMP

R1,(RS)+

: IS IT HIGHER THAN HIGH LIMIT ?

BLT

003002
000241

BGT
CLC

23? 001102

000261

000207

1$:

282

000001

.END

RETURN

s IF LT YES

s IF GT YES
: NO, GOO VALUE

: EXIT

: SET ERROR FLAG

: EXIT

FMTR80 - FMTIVERIFV RMB0 DIS MACRO M1113 12-JAN-82 11:04 PAGE 3-3
SYMBOL
T

BASVI
888012 6

DAT

DATE
DATLMT
DPARS

HSGIRQ

. ABS.

MSG2R8
TMTSTL

SBUF

000526'!
O0OC0140R

000154RG

ERRORS DETECTED:

SRDSSF= nwnann GX
SREVNM= axanas GX

SSNAME= neaneee GX
$SSF = weneee GX

SMSGR4= wannne GX
SMSG31= wwanan GX

SRMBOF= wxanax GX
SRMB0I= sawnnn GX

SSWINT= wennns GX
SSWLST= weannnn GX

$MSG 3: wneannn GX

SMOVE = wannnn GX

SPRINT= wanannn GX

SRMBOL= wanwnn GX

SRDBSF= wxnnnx GX

SRMBOV= wxannx GX

$MSGRB= s#waxx GX
SMSGWR= wxnnnn GX

000
0

3"56123 wenens GX
$MSG
wanner GX

= wwnwan GX

SBUFRX= wxwxwxs GX
$CDTB = wwwwan GX

= 00001

001104

880032R
1064R

001

VIRTUAL MEMORY USED: 456 WORDS_ ( 2 PAGES)
DYNAMIC MEMORY:
7942 WORDS
( 30 PAGES)
ELAPSED TIME:
:00:11
£300,20]FMTR80,L300,30]1FMTR80=C300,10JFMTRB0

SPRNMPT= seaaex GX

SRMB0

000162RE

SRMB0M= weeses GX

SSWFMT= senees GX

$SWMOD= wenene GX

SUNTID= sewwss GX
DD2CT= nnnnnn GX

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

T AT A
LA

000000
000032
000054
000077
00010?
00011
0001%4
000133
000141
000173
000222

104
106
106
125
12
122
122
152
124
124
123

122
117
117
115
115
115
115
115
12
12
12

111
122
122
103
103
105
105
104
101
107
103

C. HESS
« LEAVITT

.NLIST

BEX

MSG50R:
MSG5IR:
MSG53R:
MSG61R:
MSG62R:
MSG63R:
MSG64R:
MSG65R:
MSG66R:
MSG67R:
MSG68R:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

17-AUG-80
14=-JAN-81

/DRIVE ERROR DURING FORMAT/
/FORMAT CONTINUING
/FORMAT TERHINATING/
/RMCS1=/
/RMCS2=
/RMER1=
/RMER2=
/RMDA=/
/TRACK RE-WRITE SUCCESSFUL/
/TRACK RE-WRITE FAILURE/
/SUCCESSIVE SEEK ERRORS/

.EVEN

: WORKING LOCATIONS

50 000252
51 000254
Si 000228
53 0002
54 000262
55
2 000264

000000
000000
000000
888888
000000

$ERCS1:
$ERCS2:
$ERER1:
$ERER2:
SERDA:
$FLBUF:

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

0
0
0
0
8

:
:
:
:
¢
:

CONTROL STATUS REG 1
STATUS REG 2
ERROR REGISTER 1
ERROR REGISTER 2
TRACK/SECTOR ADDRESS
BUFFER ADDRESS

mmmwwur~enmmal

cam

THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

A
PR
PR PR PR PA P
P
A T
PR

TA P

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

L S S S

R UK S B R N R O R LN N S R N

R
B R

I = D000 O

PR PRPR TR PR PR TR T T 1

.TITLE FMTRBF = RMB0 FORMAT MODULE
. IDENT 701.00/

MMOoO<T

SEQ 0077

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

SEQ 0078

FMTR8F - RMB0 FORMAT MODULE MACRO M1113 12-JAN-82 11:04 PAGE 2
+

58
59

**~$RBOTF-FORMAT A SINGLE TRACK
*+%~$RBOSF-FORMAT BSF, SSF AND ALTERNATE DEC144 CYLINDERS
*x~$RMBOF-FORMAT ALL CYLINDERS OR FE CYLINDERS
FULL TRACKS
THIS ROUTINE WILL FORMAT AN RMBO DISK PACK.
(32. SECTORS) OF HEADERS ARE WRITTEN UNTIL THE MAXIMUM
DISK ADDRESS IS REACHED.

TS:

DISK PARAHETERS SET TO ZERO
UDBSF
& _SSF_READ, VALIDATED, AND IN MEMORY

MDBSF,

chL.irRx.sséc PRESET F OR 'SRBOTF® ENTRY
FORMAT FE CYLINDERS ONLY IF ‘S$SWFFE=1'

; FORMAT BSF(558.,13.), SSF(559.,0) AND ALTERNATE DEC144(559.,1) TRACKS
001056 000000G SR8OSF: =8V
000015 0000006
CALL
000212
001057 0000006
MOV
0000006
CLR
CALL
000174
0000006
INC

0558. $CYL

STARTING CYLINDER
TRA CK
FORMAT THE DEC S1D 144 TRACK
STARTING %;kINDE

13..$TRK

rnrosx

#559.,8CYL
$TRK

FORMAT THE SSF_TRACK

FMTDSK

FORMAT THE ALTERNATE DEC144 TRACK

$TRK

; FORMAT A SINGLE TRACK
0000006

$RBOTF
: : CALL
BR

SMVPAT
FMTDSK

s LOAD THE DATA PATTERN

; FORMAT THE TRACK S$CYL,S$TRK

ONONONON

0000006

MOV
CALL
CLR
CLR

18:

0000

CALL

START TRACK=
FORMAT THE TRACKS

PR TR TR TR

#SMSG6B,
RO

TEL%EOPER?TogRgHICR CYLINDERS

M3, $TRK

START CVLINDER-SSB (BSF/SSF/FE CYLINDERS)
START _TRACK=13

$SPRNTO
4558. ,$CYL

vI105

g ooe
00006
§ $:

$PRNTO

$CYL
$TRK

SET NULL CARRIAGE CONTROL
FORMAT FE CYLINDERS ONLY ?

BNE

0000006
0900086
0000006
0000006

$PRNTO

R1
$SWFFE
1$
#SMSGOA
, RO

SET NULL CARRIAGE CONTROL
OPE

1ST8

R1
#$MSG6 RO

0000006

$RMBOF
: : CLR
MOV
CALL
CLR

—
N b

N =2\

NNN

00006
000006

253 §°§S 3238338
NksE

23388 28
S
i
b

127
—

oNNONO

Sen=oS SNIRERY

; FORMAT ALL CYLINDERS (0,0 TO 560.,13.) OR BSF/SSF/FE CYLINDERS (558.,13.- 560.,13.)

gessess &8883388
333583
AN
B oy

=03

IRIRAN2SERLRA REC2STRIERRIIZEI

OUTPUTS:
NONE

FMTDSK

$TSTMX

LOAD THE DATA PATTERN
FORMAT THE DISK
UPDATE DISK ADDRESSES

SEQ 0079

FMTRBF = RM80 FORMAT MODULE MACRO M1113 12-JAN=82 11:04 PAGE 2-1
115 000442

103001

113 000446
119 000454
150 000456
121 000464

022767
001
022767
001362

001057

000000G 4$:

000002

0000006

123

0004

016749

0000006

125 000502
126 0005

004767
015667

0000006
0000006

}}9 000444 000207

0000006

}gg
133 000524
134 000530

135 000534

}gg 000540

}22 000564

CMP
BNE
CMP
BNE

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

:
:
:
:

MOV

$TRK .= (SP)

* SAVE CURRENT TRACK ADDRESS

SWIBSF
(SP)+,$TRK

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

CALL

CALL
MOV

MOV
B8R

012703

000000G

FMTDSK: MOV

0000006

CLRB

004767
0127

0000006
0000006G

005067

0000006

105067

CALL
MOV
CLR

767
005267
026767
001370

005067

0000006
18:
0000006
0000006 000000G

0000006

CALL
INC
CMP
BNE

CLR

016767
004767
012705

0000006 0000006 2$:
0000006
0000006

MOV
CALL
MOV

1s§ 000612
153 000616
}gg 000620

005767
100401
000207

0000006

ST
BMI
RE TURN

004767

0000006

}gg

}29 000632

(SP)+.,$CYL
33

: SAVE CURRENT CYLINDER ADDRESS
: RE-WRITE THE SSF

* RESTORE CYLINDER ADDRESS
: WRITE NEXT TRACK

#SPHYDV ,R3

: "FORMAT' DEVICE PARAMETERS

SKPFRE

: CLEAR SKIP SECTOR FLAG

SUPDMX
#3$8BUF ,RO
$SEC

: UPDATE THE MAX VALUES
2 RELOAD THE BUFFER ADDRESS
: START AT SECTOR ZERO

GENMDR
$SEC
$SEC, SMXSEC
18

$SEC

:
*
:
:

GENERATE HEADER PATTERN
UPDATE SECTOR NUMBER
ALL SECTORS DONE?
IF NE NO

: RESET SECTOR NUMBER

; NOW WRITE THE HEADER AND DATA ONTO THE DISK.

148 000570
149 000576
150 000602

158 oooogs
159 000630

SWTSSF

WAS SSF JUST WRITTEN ?
BR IF NO
WERE BSF/SSF TRACKS JUST WRITTEN ?
BR IF NO, ELSE

: CREATE THE HEADER PATTERN

}29

$CYL,=(SP)

NOT FINSIHED, ZLSE

* EXIT FORMAT

; ACTUAL FORMAT ROUTINE

}gg
140 000544
141 000550
142 000554
143 000562

: IF CS,

MOV

127 000512 012667 0000006
}gg 000516 000745
132 000520

RETURN

15§ oooagg 016746 0000006
154 000476 004767

BCC

3s:

is:

CALL

TRKSZ
. $XFRSZ
SCVTDA
#$8UF ,RS
$DSKWH
$RGBUF
58

; LOAD BYTE COUNT FOR ONE TRACK
: CONVERT DISK ADDRESS TO LBN
: SET BUFFER ADDRESS

: WRITE HEADER/DATA FOR THIS TRACK

: ANY DISK ERRORS?
s IF mI, VLS
* OTHERWISE, RETURN

: HANDLE THE ERROR
032767
001402

000167

004000

0000146 5$:

0000006

}25

BIT
BEQ

JMP

#4000,SRGBUF+14 ; WRITE LOCK ERROR?
6$
: IF EQ NO

SWLKER

: INFORM THE USER

: SEND ERROR MESSAGE

164 000636

004767

000276

166 000642
167 00065
168 000656

854701
767
004767

000060
06

165 000642 015700 000000°

0
ttese st
171 00067 o1zgoo 0000006

68:

CALL

MOV

MOV
CALL
CALL

Sftkgs

: SAVE FAILING DATA

#60,R1
SPRNTO
SMGPRE

: CARRIAGE CONTROL CHARACTER
: SEND MESSAGE
* SEND DISK ADDRESSES

'"36 R,RO

e
R
MOV
#SMSG4LS RO

* "DRIVE ERROR DURING FORMAT®

; !saaofi LIMIT EXCEEDED"

FMTRBF - RMB0 FORMAT MODULE MACRO M1113 12-JAN-82 11:04 PAGE 2-2

SEQ 0080

172
000674
173 000700
174 000704

012701
004767
012700

000060
000000
000034

MOV
(AL
MOV

#60,R]
$PRATQ
#MSGS3R,RO

: CARRIAGE CONTROL CHARACTER
: SEND MESSAGE
: "FORMAT TERMINATING'

16 000714

000167

0000006

JMP T

SFMTEX

: EXIT THE FORMATTER

175 000710

004767

0000006

178

CALL

SPRINT

: PRINT THE MESSAGE

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

180 000720
181 000724
182 000730
183 000736
184 000740

012700
004767
032767
001714
004767

185 000744 000711

000032:
7$:
0000006
040000 0000426
0000006

MOV
CALL
BIT
BEQ
CALL

AMSGSIR.RO
: 'FORMAT CONTINUING'
SPRINT
: SEND MESSAGE
#40000,SRGBUF
+42
: SEE IF ERROR WAS A SEEK INCOMPLETE
28
:
. NO
$HOMSK
s ENTRY
POINT FOR RETRY WITH RECAL

: TRY AGAIN

187
188

ot
; **=SMGPRE-PREPARE AND SEND DISK ADDRESSES TO OPERATOR

190

: INPUTS:

193
19

: OUTPUTS:
3
ERROR MESSAGE

191

198

SFLCYL,SFLTRK,SFLSEC LOADED

197 000746
198 000752
199 000756

012700
004767
016701

0000006
0000006
177270

SMGPRE::MOV
CALL
MOV

#SCR.RO
SPRINT
SERCS1.R1

;ADDRESS OF MESSAGE
:CR=LF
:GET RMCS1 AND

201 0007
202 000772

004767
016701

0000006
177256

CALL
MOv"

SEROCT
SERCSZRI

$"RMSCT = XXXXX'*
:GET RMCS2 AND

204 001002
205 001006

004767
016701

0000006
177244

207 001016
208 001022

004767
016701

0000006
177232

210 001032
211 001036

004767
016701

0000006
177220

213 001046
21% 001052
215 001056

004767
012700
004767

0000006
0000006
0000006

200 000762 012703 000077°
000776

012703 000106

206 001012 012703 000115°
209 001006 012703 000124+

212 001042 012703 000133

217

MOV

#MSG6IR,R3

MOV

#MSG62R,R3

MOV

#MSG63R,R3

MOV

AMSG64R,R3

MOV

#MSGSR,R3

CALL
MOV
CALL
MOV

CALL
MOV
CALL
MOV
CALL

:ADDRESS OF MESSAGE
:ADDRESS OF MESSAGE

SEROCT
SERER].R1

:TRMSC2 = XXXXX
:GET RMER1 AND

SEROCT
SERER2,R1

:"RMERT = XXXXX'*
:GET RMER2 AND

SEROCT
S$ERDA R1

S$EROCT
#SCR.RO
SPRINT

:ADDRESS OF MESSAGE
:ADDRESS OF MESSAGE
:"RMER2 = XXXXX'*
:GET RMDA AND

:ADDRESS OF MESSAGE
:"RMDA = XXXXX
:ADDRESS OF MESSAGE
:CR=LF

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

219 001062

016701

000000

MOV

221 001072
g2 001076

004767
016701

0000006
000000

CALL
MOV

224 001106
225 001112

00476
016701

G
0000006

227 001122
228 001126

00476
012700

06
0000006

220 001066 012703 0000006

223 001102 012703 0000006
26 001116 012703 0000006

SFLCYL R

:GET FAILING CYLINDER AND

SEROUT
SFLTRK,R1

:"CYLINDER = XXX,
:GET FAILING TRACK AND

MOV

#SMSGT5,R3

MOV

WSMSG16,R3

NSMSGT7,R3

CALL
MOV
CALL
MOV

SEROUT
SFLSEC,R1

SEROUT
#SCR,RO

:ADDRESS OF MESSAGE

:"TRACK = XX."
:GET FAILING SECTOR AND

:ADDRESS OF MESSAGE

:
"SECTOR =
XX.TM
:GET ADDRESS OF MESSAGE

SEQ 0081

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

R 004767 0000006

SPRINT

sCR=LF

“

; **=$FLRGS=ROUTINE TO SAVE FAILING DISK ADDRESSES AND REGISTERS

;

: INPUTS

5%
238

$CYL, STRK SET TO CURRENT CYLINDER AND TRACK

; OUTPUTS

$ERCS1 = CONTROL STATUS R

40
41

$FLSEC

179%40°
000037

$FLRGS: :MOV
BIC
BNE
MOV
0000006
BR
1$:
DEC
Mov
- 28:
MoV
MoV

B
B
LI I

<>»
0

-mm

$ERCS2 = CONTROL STATUS R
$ERER1 = ERROR REG 1
2 = ERROR REG 2

(1]

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

239

24
24
244
245
246
247
248
249
250 001140
251 001144
252 001150
253 001125
254 0011
255 001162
256 001164
257 001170
258 001176
259
260
261
26; 001204
263 001210
264 001214
265 001222
266 001230
267 001236
268 001244
269 001250
270
an

CALL

RETURN

~o2

GRORZ

1
2

TRK/SECTOR REG
FAILING CYLINDER
FAILING TRACK
FAILING SECTOR

SRGBUF +6 ,RS
gl?? 40,R5
$
#31. ,SFLSEC
2$
RS
R5,$FLSEC
SCYL,SFLCYL
$TRK,S$FLTRK

RECOVER FAILING SECTOR ADDRESS

ISOLATE SECTOR NO.

MUST HAVE BEEN LAST SECTOR
BACKUP ONE
SET SECTOR NUMBER
NDER

: SAVE THE RM80 REGISTERS

MOV

#SRGBUF ,RS

MOV

10(RS)
, SERCS2

MOV
MOV
MOV

MOV

(RS) ,$ERCS1

14(RS5)
. SERER]
42(R5) ' SERER2

6(RS)
, $ERCA
$RGBUF

CLEAR ERROR INDICATOR

SEQ 0082

FMTREF = RM80 FORMAT MODULE MACRO M1113 12-JAN-82 11:04 PAGE 2-4
SYMBOL TABLE
$EROCT=

FMTDSK

000520R

SKPFRE= wwawnn GX

MSGSOR
MSGS1R
MSGS3R
MSG61R
HSGbi:
MSG6
MSG64R

sggggon
2R
000054R
000077R
1
115R
0001;4&

SBUF = wanwnx GX
SCR
= wwwnnn GX
SCVTDA= wannan GX
SCYL = wwwnnn GX
SDSKWH= wxxnxnn GX
SERCS1 000252R
SERCS2 000254R

000264R

flSGb?:
MSG6
MSG6BR

000141R
000173R
000222R

SERER1
SERER2

sannet

annnnt

GENHDR= tesexax GX

MSG65SR

ooooog
00125
ERRORS DETECTED:

TRKSZ = saxnxax GX

SERDA

. ABS.

000262R

000256R
000260R

000
001

VIRTUAL MEMORY USED:
522 WORDS ( 3 PAGES)
DVNAHIC HEHORY
7942 WORDS
( 30 PAGES)
00:00:11
ELAPSE

€300, ZOJFHTRBF (300, SOJFHTRUF [300,10IFMTR8F

sanane

sannrn

sennen

saennn

senenn
aennen
sannne
snnnen
sennnn
srnnen
sannen

GX
GX
GX
GX
GX
GX
GX

srnnnn

sannen

wknnns

001140RG
wannnn
wannnr

GX
GX

wannnt

sannne

000746RG

SRHOOF

000336RG

SR80SF oooigoas
SR8OTF
$SEC_ = setner GX
$SWERL= srnene GX
$SWFFE= teneee GX
$TRK = seneen GX
$TSTMX= ranenn GX
SUPDMX = aeensn GX
SWLKER= weente GX
SWIBSF= shenns GX
SWTSSF= tnenee GX
$XFRSZ= weente GX

FMTR8V = VERIFY RMB0 DISKS MACRO M1113 12-JAN-82 11:04 PAGE 1
" ey

ITLE
DENT

SEQ 0083

FMTR8Y = VERIFY RMB0O DISKS
/01.00/

R S

TO ANY

FOR USE ON SUCH SYSTEM AND TO ONE

e P

TITLE

AND

THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

OWNERSHIP OF

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

DSOS LS N LNST ST NN
uguwu
BN

OTHER PERSON EXCEPT

WHO AGREES TO THESE LICENSE TERMS.

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

000000
000023
000060
000102

126
116
126
110

105
117
105
105

122
116
122
101

NLIST

BEX

MSG2V:
MSG3V:
MSG4V:
ngeg'\‘

.ASCIZ
.ASCIZ
.ASCIZ
"ASCIZ

22-AUG-80
14-JAN-81

/VERIFY TERMINATING/
/NON DATA ERROR DURING VERIFY/
/VERIFY CONTINUING/
QHEADER/DATA ERROR DURING VERIFYa

* WORKING LOCATIONS
000142

000000

.WORD

000204

000000

LASTER: .WORD

000206

000000

XFRSEC: .WORD

* NUMBER OF SECTORS ACTUALLY VERIFIED

000212
000214

000000
000000

BEGSEC: .WORD
VEYCNT: .WORD

0
O

* STARTING SECTOR ADDRESS
* VERIFICATION PASSES

000144

000 1g 000000

TRKER:

SECTBL: .BLKB
ENDSEC: .WORD

32.

: TRACK ERROR COUNT

* SECTOR ERROR TABLE

: LAS; SECTOR IN ERROR DURING CURRENT VERIFICATION

: ENDING SECTOR ADDRESS

FMTRBY = VERIFY RMB0 DISKS MACRO M1113 12-JAN=-82 11:04 PAGE 2
23

SEQ 0084

: **=SRMBOV-VERIFICATION ROUTINE FOR RMB0 DISK PACKS

59
S
S8
59
60
61
6%
6

: TRACK COMPLETE <= 1
: REPEAT PROCESS UNTIL PHYSICAL DISK ADDRESS .EQ. (561,0,0) (STSTMX)
3
IF TRACK COMPLETE .NE. O

THEN START SECTOR <= 0

TRACK ERROR COUNT (°TRKER') <= 0

GENERATE TRACK BUFFER

:
:

WORD COUNT <= ((END SECTOR)=(START SECTOR)+1)+258

REPE?; 's‘:llag CHECK UNTIL ('VFYCNT®' .EQ. O .OR. SECTORS TRANSFERED .EQ. 0)

VERIFICATION PASS COUNT (°VFYCNT') <= SVERIF

THEN CALL SCKERR

71
7
7
74
75
76
77
78

:
s
:
3
3
:
[}
3

79
80

3
3

IF ERROR IS A NON DATA ERROR

THEN RETRY ERROR

'WFYCNT® = °*VFYCNT® - 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

: ENDREPEAT

82
83

END SECTOR <= 31
ELSE PHYSICAL ADDRESS = PHYSICAL ADDRESS + 32 SECTORS

: RE-WRITE BSF & SSF
s EOJ

87 000216
88 000222
89 000226
90 000232
91 000236
92 000242
93 000246
94 000250
95 000254

99 0002

CLEAR SECTOR ERROR TABLE

END SECTOR <= SMXSEC

0002

98 000

99 000276
100 000302
101 000

1o§ ooo§1

103 000
104 000324

012709
004767
012703
004767
004767
105767
001005

0000006G
0000006
000000G
000000G
000000G
0000006

005067
005067

000000G
0000006

1276

886852

767

005067
005067
5067

1
177700

5367
737

177664
m

SRMBOV: :MOV
CALL
MOV
CALL
CALL
1ST8
BNE
CLR
CLR

0000006 1$:
0000006

28:

16767 oggoooc 177670

105 0003
26727
001056 3$:
106 000336 ogtmg
107 000340 026727 0000006 000015
108 000 3
1012
109 000350
016746 0000006

#$MSG11,RO
SPRINT
#SPHYDV ,R3
SUPDMX
SHOMSK
SSWFFE
1$
$CYL
$TRK

:
:
s
:
s
s
:

GET VERIFICATION STARTING MESSAGE
PRINT THE MESSAGE
PHYSICAL DEVICE GEOMETRY POINTER
UPDATE THE LIMITS
ISSUE A RECAL
VERIFY FE CYLINDERS ONLY ?
BR IF YES

: STARTING CYLINDER=0
s STARTING TRACK=0

MOV

#558. ,8CYL
C

3; STARTING CYLINDER=558.

CLR
CLR
CLR

$SEC
TRKER
BEGSEC

* STARTING SECTOR=0
* CLEAR THE TRACK ERROR COUNT
: CLEAR THE STARTING

MOV
MOV

DEC
CALL

(MP
BNE
CMP
BNE
MOV

#13..$TRK

SMXSEC,ENDSEC
ENDSEC
SMVPAT

sgn..cssa.
4
$TRK,#13.
48
$CYL,~(SP)

: STARTING TRACK=13.

: LOAD THE ENDING SECTOR ADDRESS

* CORRECT THE VALUE
* LOAD THE DATA PATTERN

: IS THIS THE BSF CYLINDER ADDRESS ?
: BR IF NO
: IS THIS THE BSF TRACK ADDRESS ?
: BR IF
* SAVE CURRENT CYLINDER ADDRESS

g? 000424

000416

¢ il

§$ 0004552
‘5. 00044

e e T R

%8§3 000474
000470
1 000476

ii 000502

3 000502
34 00051
35 000513

39 00052

3 0005;6
38 000532
39 000534

l’:g 000540

6 0000006
8s:
0000006

BNE
MOVB
MOV
MOV
CALL
INC

63
SVERIF,VFYCNT
#38UF RO
BEGSEC,$SEC
ENHDR
SEC

177530 0000006 9$:
177520

MOV
MOV

BEGSEC,$SEC
ENDSEC .RO

001004
0000006

MOV
CALL

cgu..m
SMULT

667

12701
20020
12700

000144°
0000006 177570

48:

5$:

68:

78:

0000006 177534

177516

0000006
0000006
0000006
0000006
0000006

108:

177454

log 000542
4

177416

128:

118:

49 000556
50 000560

000344
177430
177430

48 000552

54 000576
55 000576

29 000602

3 83

61 000613

65 0006;2
66 0006

g{v;s

f},’&

MOV
CALL
MOV
CALL
ST
BM]
DEC
BNE
BR

(RO)
R1

gsc.mssc

BEGSEC.RO

R1,SXFRSZ
SCVTDA
#$8UF ,RS
$DSKW(
SRGBUF
118
VFYCNT
108
138

SAVE CURRENT TRACK ADDRESS

RE-FORMAT BSF/SSF HEADERS AND DATA
RESTORE TRACK ADDRESS
RESTORE CYLINDER ADDRESS

CLEAR sxmeo SECTOR FLAG
TABLE mness

LOOP CONSTAN

CLEAR TWO LOCATIONS
DECREMENT THE LOOP COUNTER
xr NE, NOT FINISHED

OAD THE VERIFICATION COUNT

aurm ADDRESS
LOAD THE SECTOR ADDRESS
GENERATE A HEADER

mcnensnr THE secroa

see u msueo
IF

nsserfueSECTOR ADDRESS

ENDING SECTOR ADDRESS
SUBTRACT STARTING ADDRESS
ALLOW A SINGLE SECTOR TRANSFER
SECTOR (INCLUDING MEADER) SIZECIN BYTES)
CALCULATE THE BYTE
COUNT
LOAD THE BYTE COUNT
CONVERT DISK ADDRESS TO AN LBN

BUFFER ADDRESS
WRITE CHECK
f;tIF mv ERRORS

oecnekm THE VERIFY COUNT
If
NOT FINISHED WITH THIS
venxfixmm PASS

SEE IF FINSIHED WITH THIS TRACK

; PROCESS THE ERROR

8 000544
29 000550

CLR
DEC

SR8OSF

0000006
177332

138:

000124
177362

0000006
177342

148:

CALL
ST
BEQ
DEC
BNE
B8R
?3\5

CKERR
XFRSEC
128
VEYCNT
7%
138

assgsec,=(SP)

ses lf mv SECTORS WERE TRANSFERED
IF
?EcaekmPtovgsmcmou COUNT FOR THIS PASS
SEE lf FINISHED WITH THE CURRENT TRACK

(MP
BNE

SMXSEC, (SP)+
7%

CORRECT VALUE FOR THE COMPARE
ERROR ON sms&;
SECTOR TRANSFER BEGINNING
WITH SECTOR
IF NE, NO

BCS

TST
BEQ
CALL
CALL
?g\cf

suosec.ao

MOV

LASTER,RO

g?;

TRKER
148

VFYSEC
SRBOTF

I1I§‘!HXSEC

18 00041
19 000414

$TRK,=(SP)
(SP)+,$TRK
(SP)+ $CYL
SKPFRE
#16. R
osscfsu..ao

1674

SEE umcu TYPE OF ERROR IT xs
IF
NON-DATA ERROR - RETRY

SEE IF THE moa IS THE LAST SECTOR

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 IT
SEE_IF FINSIHED
IF EQ, YES
GET THE LAST ERROR SECTOR ADDRESS

——

)

}S 000682

MOV
CALL
MOV
MOV
CLRB
MOV
MOV

3
%&(
%
1 667
fl

iy
i

}(1) 000354

FMTRBV = VERIFY RMB0 DISKS MACRO M1113 12-JAN-82 11:04 PAGE 2-1

FMTRBY = VERIFY RMB0 DISKS MACRO M1113 12-JAN-82 11:04 PAGE 2-2

D e e e =
Db b DD D D =D D D

INC

000700

004767

0000006

833;82
5?2?1;
177274
000714
005367
1“99%5
000720 005067 177266
000726

000167

177400

000730
0007364

004767
004767

0000006
0000006

000740

000207

158:

168:

gg:
MOV
%SS
DEC
BR

?g‘snxsec
LASTER,BEGSEC
25225% ENDSEC
NDSEC"

CALL

S$TSTMX

553
DEC
CLR

lgisec
ENDSEC
ENDSEC
gsssec

CALL
CALL

SWTSSF
SWTBSF

JMP

RETURN

YES
THE STARTING SECTOR

ITH THE FIRST GOOD SECTOR
THE ENDING SECTOR
THE VALUE

INCREMENT THE PHYSICAL ADDRESS
IF CS, FINISHED

RELOAD ENDING SECTOR FOR THE TRACK

MAKE INTO AN ADDRESS
START WITH SECTOR 0

RE-WRITE THE SSF
RE-WRITE THE DEC STD 144 TRACKS (PRIMARY AND
SECONDARY

**=~VFYSEC-VERIFY THE SECTOR(S) IN ERROR
THIS ROUTINE WILL RE-READ THE SECTORS WHICH GAVE ERRORS DURING THE VERIFY
ANY SECTOR FAILING DURING THE RE-READ PASS
PASS ON THE CURRENT TRACK.
WILL BE CONSIDERED DEFECTIVE.

RS 8

Nt bbb b DD b b b

0052

oooeg« ?2;9 0000006
§§§§z§ 1276 177;56 177332
1 2; 300060 177316
600692
oo?so 9992525
000676

RS S S SR IRARAR 2B IIIFANINIISS

67 000642

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. 0
THEN IF NO SKIP SECTOR ON TRACK .AND. 'SHDRFG' = 0
THEN PUT SECTOR IN SSF

203

ELSE IF SECTOR IS NOT IN THE FESEVU'OERS
THEN PUT SECTOR IN FEB

204
205
206
207
208
209

ELSE PUT SECTOR IN UDBSF
3
LAST ERROR SECTOR ON TRACK 'LASTER' <= CURRENT ERROR SECTOR
3
F
TRKER = TRKER - 1
; ENDREPEAT
3
TS:
3

ztg

210
21

3
3

21
214
215
216
217
218
219

222 000742
223 000746

SECTBL = CONTAINS ADDRESSES OF SECTORS IN ERROR
$SCYL,STRK,$SEC CONTAINS ADDRESS OF CURRENT TRACK

TRKER .NE. 0

3
;2 OUTPUTS:
:
SECTBL CLEARED
ENTRIES MADE IN THE MDBSF ,UDBSF,& SSF'S
:
"LASTER' CONTAINS THE ADDRESS OF THE LAST SECTOR IN ERROR ON
3
3
THE TRACK
:

012700
005200

177777

VFYSEC: MOV
1$:
INC

#-1,R0
RO

USE RO AS THE INDEX INTO °*SECTBL'
INCREMENT THE INDEX

N=SNYNNN

8882 2392
S28 SUSEoS
N

oW
(=T

O
QO

aANO

RO.SSEC
$CYL, SBUF
#150000,88UF

: RELOAD THE secron ADDRESS
: ssruv s sec IMAGE
: SET
T
AND rnrla BITS

$TRK, $BUF +
S$SEC segro

+ SAVE fue INDEX

: LOAD merkA

: LOAD THE secton ADDRESS

MOV

#38UF ,R

CALL

CVTDA

: CONVERT THE PHYSICAL ADDRESS TO LBN

$RGBUF

: ANY ERRORS ?

MOV

: snrnv ?
: IFEQ, NO

RO, =(SP)

MOVB

#516..8XFRSZ

CALL

SDSKWC

8PL

TST

CALL

BCS

CALL
ggv

012600

SECTBL(RO)
1$

MOV

MOV
MOV
BIS

e
T

lolele]

T
e T
D

OO0

—__m_0

1ST8
BEQ

000144

3332

8388 8383833333883838338388
ES A8
NoRe NS 222352 FERsssFEvrass

4 0007

: SECTOR = INCLUDING HEADER BYTE COUNT

: IF PL,

: PROCESS THE ERROR

SDSTRB
(SP)+,R0

: IF CS, NON=DATA ERROR = RETRY

: PUT THE SECTOR INTO THE PROPER BSF
: RESTORE THE SECTOR TABLE INDEX

(SP)+,R0

: RESTORE THE SECTOR TABLE POINTER

000144

BPL
CLRB

28
SECTBL(RO)

: IF
PL CONTINUE
: CEEQQA}QE SECTOR ENTRY, ERROR WAS NOT

0000006 177100
177032

MOV
DEC

$SEC,LASTER
TRKER

000144

4$:

MOV

: Burrsn DRESS

: WRITE CHECK THE SECTOR

KERR

DECB

gg;uau

SECTBL(RO)

: counr THE SUCESSFUL RE=-READ

* 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 l 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

THEN LAST ERROR SECTOR (°LASTER') <= ERROR SECTOR
IF ERROR IS HEADER ERROR
THEN ERROR TYPE (*$HDRFG') <= 1
ELSE "HDRFG' <= 0
IF VERIFY COUNT ('VFYCNT ) .NE. 0
THEN IF SECTOR IN ERROR NOT LISTED IN BSF,

SSF, OR FEBSF (SSRALL)

THEN ;gagegecloqtaiezg COUNT IN SECTOR"ERROR TABLE ('SECTBL")

TRANSFERRED SECTOR COUNT (*XFRSEC') = ((ERROR SECTOR)=(START SECTOR))~1
THEN END'SECTOR <= (ERROR SECTOR=1)
WORD COUNT <= ((END SECTOR)=(START SECTOR +1)+1)+258
NPUTS:

SRGBUF = CONTAINS THE RMBO REGISTER CONTENTS
VFYCNT = CONTROLS UPDATING *SECTBL"

———————————tvend

SEQ 0087

FMTRBV = VERIFY RMB0 DISKS MACRO M1113 12-JAN-82 11:04 PAGE 2-3

SEQ 0088

FMTRBV = VERIFY RMBO LISKS MACRO M1113 12-JAN-82 11:04 PAGE 2-4
e

281
sag
g‘

H
: RETURNS:
:
CS = IF THE ERROR WAS A NON DATA ERROR

: OUTPUTS:

288

: NOTE

289
290

3
:

§§4
001114 004767 0000006
295 001120 116746 0000066
296 001126
297 oo11§e
298 001132

533 001136
001142
301 001146
302 001152
303 001160
304 001164

305 001170
306 001172
307 001174

005316
042716
016746

042716
016746
042716
156666
016716
042716

052616
005726
00101

157777
0000106
040000
000001 000002
0000426
100000
110400 0000146

311 001212

110400

" THIS ROUTINE WILL RETURN TO 'SFMTEX® IF THE DRIVE EXCEEDS THE
ERROR LIMIT.

CKERR: MOVEB
CALL S$FLRGS
:
SRGBUF+6,=(SP)
:

177740
0000006

308 001176 032767

"SECTBL® = UPDATED IF ERROR IS A DATA ERROR AND ‘VFYCNT' .NE. 0

; SAVE THE REGISTERS
; GET THE SECTOR ADDRESS
:; BACK UP TO FAILING SECTOR

DEC
BIC
MOV

(SP)
#2037, (SP)
$RGBUF ,-(SP)

BIS
ST
BNE

-: 'OR" WITH "MCPE' & RMCS2 ERROR BITS
: SEE IF ANY ERROR BITS SET
: IF NE, YES = NON DATA ERROR
#110400, SRGBUF +14
; TEST *DCK!DTE'HCRC'
4
: IF NE, MUST BE A DATA OR HEADER ERROR

BIC
MOV
BIC
BISB
MOV
BIC
BIT

: JUST IN CASE FAILING SECTOR WAS 31.
:; GET RMCS1
:: LEAVE "MCPE'

#~c20000,(sP)
$SRGBUF+10,-(SP) :; GET RMCS
#40000, (SP)
; CLEAR °'WCE'
1(SP),2(SP)
:: 'OR' THSZERRM BITS FROM RMCS2
SRGBUF +42, (SP) -: GET RME
#100000, ($P) ~ :: CLEAR ‘BSE'’
(SP)+,(SP)
(SP)+
13

309 001204 001052
mowu§ 016746 0000146

BNE
MOV

$RGBUF +14 ,~(SP) : COPY RMER1

312 001216
g}z 001220

ST
BEQ

(SP)+
6$

042716

005726
001506

g;g

BIC

#110400,(SP)"

CLEAR THE DATA/HEADER ERROR BITS

: SEE IF ANY OTHER ERROR BITS ARE SET
: IF EQ, NO - ERROR MUST BE A °'BSE’

: SEND ERROR MESSAGE

317 001222
318 001226
319 001232
320 001236
321 001242
322 001246

012700
012701
004767
004767
105367
001014

000023°
000060
0000006
0000006
0090006

324 001254
325 001260
326 001264
327 001270
28 001274
gg 001300
001304
§31 001310
3§ 001316
333 001320
334 001324
335 001326

012701
004767
012700
004767
000167
012700
004767
032767
oo140;
004767
005726
000261

000060
0000006
000000°
0000006
0000006
000060°
28:
0000006
040000 0000426

323 001250 012700

5333 001330 000207

0000006

1$:

3s:

MOV
MOV
CALL
CALL
DECB
BNE

#MSG3V,RO
#60,R1
SPRNTO
SMGPRE
$SWERL
2$

MOV
CALL
MOV
CALL
JMP
MOV
CALL
BIT
BEQ
CALL
TST
SEC

#60,R1
:
SPRNTO
:
#MSG2V,RO
:
SPRINT
:
SFMTEX
:
#MSG4V,RO
:
SPRINT
:
#40000, SRGBUF +42
3$
:
SHOMSK
:
(SP)+
3
:

MOV

RETURN

#SMSG4LS RO

:
:
:
:
:
:

'NON DATA ERROR DURING VERIFY'
CARRIAGE CONTROL CHARACTER
SEND MESSAGE
TYPE THE DEVICE REGISTERS
SEE IF ERROR LIMIT EXCEEDED

IF NE,

: "ERROR LIMIT EXCEEDED'

CARRIAGE CONTROL CHARACTER
SEND MESSAGE
"VERIFY TERMINATING'

PRINT THE MESSAGE
ABORT THE FORMATTER

"VERIFY CONTINUING'
SEND MESSAGE
IF €0,

: SEE IF "SKI®
NO

DO A RECAL

CORRECT THE STACK
SHOW NON=-DATA ERROR

FMTR8V = VERIFY RMB0 DISKS MACRO M1113 12-JAN-82 11:04 PAGE 2-5

SEQ 0089

NN=

SSSEERSIR33
N

SO
—-SON NN -

—

(=]

Pt
pr

(=l=l=]

176534
. 78:

176512

9%:

#MSGSV RO
#60,R1

$PRNTO
SMGPRE
#MSG4LY RO
SPRINT
(SP) ,XFRSEC

ggsséc.xrnsec
BEGSEC
8s
(SP) ,ENDSEC
ENDSEC
ENDSEC RO
BEGSEC .RO
RO
#516. ,R1
SMULT
R1,$XFRSZ
(SP)+

A
AT AL
A

(SP) ,RO

SRETRY, SECTBL (RO

Y A I A I A A

TRKER

0000006 000144°
000102°*
000060
0000006
0000006
000060
0000006
176544
6$:
176544 176536

001004
0000006
0000006

$HDRF G
VFYCNT

176544

176524

$HDRF G
ggoo.sacsur +14

9$
(SP) ,$SEC
$SRALL

0000006
0000006

16
20
22

000200° 0000146 **
1 9“22
5%:

(ol

373
374
375
376
377

VIVIIMVVVWVE
B BB BB BB EESNOS S

§70
71
372

RERSNIREINSNERSINSSSIIS

22323232323232323233333332
883
88383
S
N N S
S S
T R
e
I I
e
et d
) b b b

3 3
o
R R o e P
369

F8Y SrRgd

: THE ERROR IS A DATA ERROR, PROCESS AND EXIT
ASSUME DATA ERROR

SEE IF ERROR IS A HEADER ERROR (°'MCRC')
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®
sss IF THE ERROR IS LISTED IN ONE OF THE BAD SECTOR
ILES
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 g‘i SECTOR TRANSFERED
STEP AROUND THE ERROR SECTOR
CHANGE THE ENDING SECTOR ADDRESS

POINT TO LAST ERRO% szEE SECTOR

CORRECT THE DIFFERENCE

NUMBER BYTES/SECTOR

MULTIPLY THE SECTORS « SIZE
UPDATE THE BYTE COUNT
CORRECT THE STACK
SET THE DATA ERROR INDICATOR

;HTRBV
EII'V RMBO DISKS MACRO M1113 12-JAN-82 11:04 PAGE 2-6

ENDSEC §§:i}£=

SKPFRE= eannns GX

BEGSEC
CKERR

TRKER

000 43:

$BUF
$CV7DA'
SCYL
=
SDSKWC=

senkns
wevnwn
wwxnnnn
wennnn

LASTER

‘Ul
VYT
XFRSEC 886
00Ke

MSG4V
MSGSV
SECTBL

000060R
000102R
000144R

SDSTRB= wexwasx GX

001526

GENHDR= sexxxs GX

MS
MSG

ERRORS DETECTED:

GX
GX
GX
GX

000
001

VIRTUAL MEMORY USED:
577 WORDS_ ( 3 PAGES)
794? WORDS
( 30 PAGES)
DYNAHIC MEMORY:

[

D_TIME:

ZOJFHTRBV.

it
.30JFMTR8v=L[300,10JFMTR8V

$FLRGS=
MTEX=
DRF G=
$SHOMSK =

snnnnr
sennne
srnnne
wnnnns
= annnne
sannne
8"86458 annnne
sannnn
SMULT
wannee
SHVPATC
SMXSEC= aanann

snse1§

GX
GX
GX
GX
GX
GX
GX
GX
GX
GX

SPHYDYV= sranen GX
SPRlnsz senene GX
senenn GX
$SPRNT
SRETRY= sannnr GX
= aenann GX
$R
$SRM8OV 000216RG
SRB0SF= annnas GX
SR80TF= wnkeen GX
$SEC = aannns GX
$SRALL= wkntet GX

seenee
wennee
TRK
= seneee
TSTMX= seneee
SUPDMX = seeeer
;zERIF- seenee
TBSF= sannne
SWTSSF= saener
$XFRSZ= seenen

SWERL
=
SWFFE=

GX
GX
GX
GX
GX
GX
GX
GX
GX

SEQ 0091

FMTRBM = DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11:05 PAGE 1
TITLE

- IDENT

FMTR8M - DEFECT ENTRY MODULE

/01.00/

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
SOFTWARE
IS FURNISHED UNDER A LiCENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF
1HE_ ABOVE COPYRIGHT NOTICE.
THIS SOFTWARE, OR ANY N0THER
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

BB
W ugu WWWWNWNI NN

NIPINININD
e = e d d e ed d

THIS

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

18-AUG-80
14=JAN-81

: MESSAGES

NLIST

ooooog
00000

125
115

104
123

00006
000100
ooo1zg
00014

106
105
103
110

111
116
131
104

000015
000021
oooo-t.g

123
106
104

123
105
125

gg 000210

BEX

102
102

MSGIR8: .ASCIZ
MSG R8 .ASCIZ

/UDBSF /
/MSBSF/

114
126
114
101

MSGBR8B: .ASCIZ
MSGCR8: .ASCIZ
MSGDR8: .ASCIZ
ngsz
ASCIZ

/FILE FULL
= /
/ENTER BAD SECTR ADRS :/
/CYL,TRK,SEC
=
@HDA S/N DOESN T MATCH CURRENT S/Na

108 MSG3R8: .ASCIZ /SSF/
040 MSG4R8: .ASCIZ /FE BAD SECTORS/
120 MSG7R8: .ASCIZ /oupums ENTRY = /

: LBN CONSTANTS

006003

151200

gg 000214 000003 151040
33
3% 000220 000000
57

FELBN:

.WORD

- 3,151200

: a;egmmg OF THE FE CYLINDERS

USRLBN: .WORD 3,151040

Eersagsof ss§ SI)’ACE

; MINIMUM/MAXIMUM STORAGE FOR INPUT ROUTINE
MINCYL:

.WORD

sSTORE MIN. CYLINDER ADDRESS HERE

FMTR8M - DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11:05 PAGE 1-1

58 0005 2

59 000224
60 000226
61

000000
800000

MINTRK: ,WORD

MAXCYL: .WORD
MAXTRK: .WORD

SEQ 0092

TRACK

sSTORE MAX. CYLINDER ADDRESS HERE
3
'
TRACK
1

SEQ 0093

FMTR8M = DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11:05 PAGE 2

**-$RMBOM-MANUAL INPUT OF UDBSF OR SSF DATA
THIS ROUTINE WILL ACCEPT MANUALL Y INPUTTED DATA FOR EITHER THE

: UDBSF OR SSF FILES AND RE-WRITE THESE FILES TO THE RM80 DiSK.
INPUTS:
NON
OUTPUTS:
RE-WRITTEN UDBSF OR SSF

000230
000234
000240
000244
81 000250

004767
004767
012701
012700
004767

00000
0000006
000060
000100°
0000006

g%
000254 004767
0005564
84 000260
001403

$RMBOM: :CALL
CALL
MOV
MOV
CALL

18:

85 000262 004767 000024
gg 000266

000772

88 000270
89 000274
90 000
91 000

004767
004767
004767
105067

3 000310 000207

0000006
0000006
0000006

CALL

READ SKIP SECTOR FILE
READ THE MDBSF & UDBSF
SET 2 LINE FEED CONTROL
GET ADDRESS OF MESSAGE
PRINT 'ENTER BAD SECTR ADRS:'

:: GET
SSF ENTRIES
IF EQ, FINISHED

* CINTINUE

CALL
CALL
CALL
CLRB

RE TURN

INPUT

;
:
%
:
*

BEQ

CALL

28:

SRDSSF
SRDBSF
#60,R1
#MSGCRS,RO
SPRNTO

SDSTRB
SRBOSF
SWISSF
SWTBSF
$SWMOD

: DISTRIBUTE ENTERED ADDRESS INTO CORRECT FILE
:
:
:
:

FORMAT THE BSF/SSF TRACKS
RE-WRITE THE SSF
RE-WRITE THE BSF
CLEAR THE MODIFY FLAG

: THIS ROUTINE DISTRIBUTES THE OPERATOR ENTERED ADDRESS TO THE CORRECT

100

: INPUTS:

}32

:#%=$DSTRB-ROUTINE WILL DISTRIBUTE THE DEFECT ADDRESSES

101
1o§
10

:
:
:

109

$CYL = OPERATOR ENTERED CYLINDER ADDRESS
$TRK = OPERATOR ENTERED TRACK ADDRESS
$SEC = OPERATOR ENTERED SECTOR ADDRESS

$SHDRFG = 1

IF DEFECT IS A HEADER DEFECT

* OUTPUTS:

DEFECT FILE AND CHECKS FOR DUPLICATION IN THE SSF.

NONE

110 000312
}}1 000313

105067
?8323;

0000006
0000006

$DSTRB::CLRB
g@gL

114 000
115 8883
119
33

004727
5 9
105767

000410

CALL
BR
TSTB

11§ 883§ 6 012704 000015*

0000006

18 00034 993961
¢
119 833350 81 702 000000C

1$:

SKPFRE
ggnsor

: CLEAR THE SKIP SECTOR FLAG
: fsecgr 53'"' IN THE SSF

D
138
SHDRFG

* TYPE THE MESSAGE
* TRY AGAIN
: SEE IF DEFECT IS A HEADER DEFECT

MOV

#MSG3R8, R4

* DUPLICATE ENTRY MESSAGE

B0
MOV

ESSFe<2e8SSENDOG
RT ;' SSF ADDRESS
#$SSF+<1000+$SSFLN>=2,R2"
: SSF LENGTH

BEICDEESE
SEQ@ 0094

FMTRBM - DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11:05 PAGE 2-1

188

124

} 5

127

% 001005
(11R
__0000C

ss33888

1
} 1

0
74

012
004767

CALL

$SRTRK
43

SEARCH THE SSF
: IF
CC TRACK IS IN THE SSF

28
#MSG3R8,
R4

: I IF NE
GET SSF MESSAGE
ISSUE FILE FULL MESSAGE
GET NEXT ENTRY

R1,#$SSF+<1000+$SSFLN>=2NO

000015°
000400

FULL

138

s IS SSF FULL?

131 000402
1
000403

2$:

174
175
176

——

17
178

800
VIO

8883832222

: o

199 000574
170

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

DPARS
, $SSF +6

§§EVNH.$SSF010

3s:

000007*
0000006

5%:

000021°*
0000006

6$:
~

N&SewnNSaNN

ROOANOAON

4S:

7$:

$SSF+10
$SSF+22
138

00015g'

SEE gF ssTERED SECTOR IS WITHIN A SKIP REGICN
IF
CS,
DECREMENT THE SECTOR ADDRESS
SHOW SECTOR WITHIN A SKIP REGION
ASSUME DUPLICATE MDBSF ENTRY
SEARCH TNE MDBSF
IF CC, ENTRY DUPLICATED

ASSUME DUPLICATE ENTRY-

SEE IF ENTRY DUPLICATED IN THE FE AREA
IF CC, ENTRY DUPLICATED

ASSUME DUPLICATE UDBSF

SEARCH THE UDBSF
IF CS, ENTRY NOT DUPLICATED

SEE IF IN A SKIP REGION
IF NE,

9%:

158

GET ANOTHER ENTRY
SEE IF ENTRY IF FOR THE USER ADDRESSES
IF CC, YES

CKUSR
9$
CHKFE

108:

10$

YES

REPORT IT

SEE IF ENTRY IS FOR FE CYLINDERS
IF CC,

YES

*INVALID ENTRY®

PRINT THE MESSAGE

LGCATE WHERE TO PUT THE ENTRY
FE BSF MESSAGE SUFFIX

R1,#SFEBSF +64.
11§

0001

0007746

$SRSSF
5%
$SEC
SKPFRE
AMSG2R8
, R4
$SRMDF
6$
#MSG4R8
R4
$SRFES
6$
#MSGI1R8
R4
$SRUDF
78
SKPFRE
;28

3s
#SMSG32,R0
SPRINT
138
$SRFES
#MSG4R8 R4

O =a
O =N
NW~N

167 000
168 000570

2388==3388gezg=ssse=zs
N\fl\hr g
NSNSV
RIONR
LNElisEl RUIIR
NS
S AN IR 2L
zg\fiflfl

16 00055g
164 00055
165 000523
166 0005

0000106
0000226

O b b
-O00O

144 000452
145 000454
146 000460
147 000464
148 000470
149 000474
150 000476
151 000502
15; 000506
153 000510
156 000514
155 000520
156 000522
157 000558
158 0005
159 0005;2
160 0005
161 000542
16§ 000544

0000006 0000066
0000006 0000106

SCYL.(R1)+
$SEC, (R1)+
$TRK, (R1)+

DEFECT CAN GO INTO THE UDBSF OR FEBSF

140
141
16§
143 000446

—_,OO =

00041

134 000416
135 0004;6
136 000432
137 000434
138 000440
139 000444

133

150

NNNNN
NN
- ONON
NNNNINN
= -t

; LOAD SSF WITH NEW BAD SECTOR ADDRESS, REVISION DATE, REVISION NUMBER
: AND UPDATED ENTRY NUMBER
O

}28

IF THE FE BSF FULL ?
IF NE, NO

REPORT FILE FULL

$SRUDF

: LOCATE LAST ENTRY IN THE UDBSF

#MSG1R8,
R4

IF NE, NO
: UDBSF MESSAGE SUFFIX
ISSUE FILE LE FULL L MESSAGE

§}‘csuoasr+1ooo-l
FULL

: 1S UDBSF FULL?

FMTR8BM = DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11:05 PAGE 2-2
177
6
17 3382

000421
016721

0000006

180 000640

116721

0000006

181 000644

1a§ oooesg
183 000652
184 00065
185
186 000664
187 000670
| }gg 000672

118:

116721 0000006

165767 0000006

oo1419
105767
081405
105067
105267
000675
000207

BR
MOV

3s
$CYL,(R1)+

MOVB

STRK.(R1)+

BEQ
TSTB
BEQ
CLRB
INCB

138
SHDRFG
138
SHDRFG
$SEC
53

MOVB

TSTB

0000006

128:

0000006
0000006
138:

RETURN

SEQ 0095

: TRY AGAIN
: PUT CYLINDER ADDRESS INTO UDBSF

SEC. (R1)+

: PUT SECTOR ADDRESS INTO UDBSF

SKPFRE

* SEE IF SECTOR WITHIN A SKIP REGION

* PUT TRACK ADDRESS INTO UDBSF

:
:
s
:
:
:
:

IF EQ, NO
WAS ENTRY FOR A HEADER DEFECT ?
IF EQ, NO = GET NEXT ENTRY
CLEAR THE HEADER DEFECT FLAG
INCREMENT SECTOR ADDRESS
CONTINUE

190
]'gl

T
; *x=CHKFE=-SEE IF THE DEFECT ADDRESS ENTRY IS FOR THE FE CYLINDERS

}gg

195

: INPUTS:

$CYL,STRK,$SEC LOADED

196

2 RETURNS:

}33

197

200

201 000674
zo§ 000700
203 000706
204 000710
532 000716

004767
026767
103403
026767
000207

0000006
0000006 177302
0000006 177274

ENTRY IS NOT FOR THE FE CYLINDERS

CALL
CMP
BLO
CMP
RE TURN

$CVTDA
$LBNH, FELBN
18
SLBNL,FELBN+2

’

CHKFE:

1$:

ENTRY IS FOR FE CYLINDERS
:
:
:
:
:

CONVERT THE PHYSICAL ADDRESS TO AN LBN
CHECK HIGH LBN
IF LO, DON'T LOOK ANY MORE
CHECK THE LOW LBN

207
%8%

.t
; *x=CKUSR=-SEE IF THE DEFECT ADDRESS ENTRY IS FOR THE USER CYLINDERS

210
5}1

e 1
:

214

21%

2 RETURNS:

%};

000742

mmowm
056767
1 340;

026767

000207

177264

0000006

177256

0000006

CKUSR: CALL
CMP
BLO

PRI SN
TRV

1 000734

219 000724
go 000732

CMP

RETURN

ENTRY IS NOT FOR THE USER CYLINDERS

ENTRY IS FOR USER CYLINDERS

SCVTDA

USRLBN,SLBNH
13

USRLBN+2,8LBNL

: CONVERT THE PHYSICAL ADDRESS TO AN LBN
: CHECK HIGH LBN
: IF LO, DON'T LOOK ANY MORE
: CHECK THE LOW LBN
.

fiww

WW
wro ey

222

TS:
$CYL,STRK,$SEC LOADED

**=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

FMTRBM - DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11:05 PAGE 2-3

DUP:

MoV
MOV
CALL
MOV
CALL
MOV
CALL

#MSG7R8,R3

#SBUFRX RO

ReoRS

SMOV E
#$BUFRX RO
SPRINT

:GET ADDRESS OF OUTPUT BUFFER
:PUT MESSAGE IN OUTPUT BUFFER
:GET ADDRESS OF SPECIFIED FILE
sPUT THAT IN OUTPUT BUFFER

GE}?D?RESS OF MESSAGE BUFFER

RETURN

sGET DUPLICATE ENTRY MESSAGE

s+=FULL=FULL ROUTINE WILL ISSUE THE FILE FULL MESSAGE FOR SPECIFIED FILE

INPUTS:
R4 = ADDRESS OF FILE NAME MESSAGE

#MSGBR8 ,R3

FULL:

#SBUFRX , RO

sGET ADDRESS OF OUTPUT BUFFER
sPUT MESSAGE IN OUTPUT BUFFER
sGET ADDRESS OF FILE M MESSAGE

#SBUFRX RO

GE}N?N‘)RESS OF MESSAGE BUFFER

SMOVE

:PUT THAT IN OUTPUT BUFFER

SPRINT

CALL
RETURN

sGET FILE FULL MESSAGE

$MOvV
R4
R

!8 28288

PR
SN gflflfi

NSO

os8232 §3

*+=INPUT=INPUT DATA FOR SPECIFIED FILE
mgssgguflflf WILL PROMPT THE USER FOR THE DESIRED CYLINDER, TRACK, AND SECTOR

INPUTS:
NONE

$HDRF
IF 2
IF 2

()00126E

0000006

OUTPUTS
$CyL

888888838

OUTPUTS:
NONE

BRI BRERRRINN
8888888
RE FRRRR

NN
~N
oo NN
o
~
NN

wvivwvwvaiunaiunawawv

\la'l SANSSO
NN
SIESR 2R
; SOC NOAWVS NN

NN
N

231

CLRB
MOV
CALL
MOV
CALL

BNE

RETURN

$TRK, AND $SEC SET TO SPECIFISD #LUES
1 IF THE ENTRY HAD AN
NO MORE DATA TO INPUT

MORE DATA TO INPUT

$HDRF G
MVDV R3
SUPDM
MSGDRB RO
SPRMPT

CLEAR THE HEADER FLAG
POINTER TO PHYSICAL DEVICE GEOMETRY
UPDATE MAX VALUES

OPERATOR PRW!

GET INPUT FROM THE USER
IF NE, INPUT FROM USER

SEQ 0097

FMTR8M = DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11:05 PAGE 2-4

1114

804. 67

AL
(P8
BNE

099133

CALL

0011
167 1771
001124 10104
1 001126 ozo1g 177066
g 0011
84. 5
0011

S 001140
ggeoonu.

10167 0000006

004767
122702

7 001150 00102

10 001160 020167 177036

SeoTs
#°,.R2
4

R1,8CYL

LOAD THE CYLINDER ADDRESS

CALL
(MP8

$CDTB
#°,.R2

CMP
BHI

R1,MAXTRK
48

CONVERT THE TRACK ADDRESS
CHECK FOR PROPER SEPARATOR
IF NE, ERROR

CMP

BLT

MOV

14 001172

004767

0000006

CALL

$CDT

18 001210

122702

000110

CMPB

#'H,R2

0 001 13
321 00122

105267
2

0000006

CMP
BHI
MOV

19 001214

BNE

§001224 000207
ongg 012700 0000006

% 001232

004767

§g 001236 000704

48:

00CJ006

W)
= O O

328

LOOK FOR VALID TRACK ADDRESS

IF HI, INVALID TRACK ADDRESS
LOOK FOR VALID TRACK ADDRESS
IF LT, INVALID TRACK ADDRESS

R1,$TRK
R1,431.
48
R1,$SEC
3s

SHDRFG

RE TURN
MOV
#SMSG32,RO
CALL
SPRINT
BR

INVALID CYLINDER ADDRESS

LOAD THE TRACK 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
gm: MORE INPUT

INVALID RESPONSE

TYPE THE MESSAGE
CONT INUE

**=_DLMTS=LOAD LIMITS
THIS ROUTINE LOADS THE MINIMUM AND MAXIMUM DISK ADDRESS LIMITS

: USED BY THE 'INPUT' SUBROUTINE.

iss 001240 005067 176754
3
3%

39 001244

805067

17675

39 001 9«

105767

0000006

37 001250 012767 001
38 001256 012767 000015

LDLMTS: CLR

CLR

MINCYL

MINTRK

ASSUME MIN. cvuuosn 0.
*""TRACK=
0.

TSTB

SSWFFE

gaoan:mne FE CYLINDERS ONLY ?

#13. ,MINTRK

BR IF NO
MIN. TRACK= 13,

17674
17674

MOV
MOV

0 831
001411
1
00127
15767 001056 176720
gom
127 001056
001304
01 ;

4 381

12767

000001

INCB
cLZ

IF LT,

R1,MINTRK

002420

15 001176 020127 000037
16 001202 101011
17 001206 010167 0000006

LOOK FOR VALID CYLINDER ADDRESS

}g 001166 010167 0000006

38:

PROPER SEPARATOR

NE, ERROR
OAD NEW TRACK ADDRESS LIMITS
LOOK FOR VALID CYLINDER ADDRESS
IF HI,
INVALID CYLINDER ADDRESS

LDLMTS

11 001164

00100

RT THE CYLINDER ADDRESS

R1,.MAXCYL
4
R1,MINCYL
4

BNE

ggg 001152 020167 177650
001156 101023

aLIZ? DISK ADDRESS LIMITS
POINTER
F OCTAL INPUT
ERROR

CMP
BHI
CMP
BLT
MOV

0000006
000054

LDLMTS

#SBUFRX RO
#'4,(ROS

TRTR T

001103
G0ase 333322‘
1103 1270;
11
194

CALL

MOV
CMPB

PRTR

2s:

000150

PRATRA

767

0127
71

1070
1074

AR TEA TR

88139‘

001314

207

000015

176706

BEQ
MOV
CMP
BNE
1$:

.END

MOV

RETURN

’ go..mm
#13, .MAXTRK

13
#558. MINCYL
R1,#558.
18

ASSUME, m.rgn.{r_oom 560.
IF NO
MIN. CYLINDER= 558

IS CYLINDER INPUT 558. ?

FMTRBM = DEFECT ENTRY MODULE MACRO M1113 12-JAN-82 11:05 PAGE 2-5
SYMBOL TABLE

CHKFE

CKUSR

888974R

DPARS = wteeses GX

FELBN
FULL

INPUT
LDLMTS
MAXCYL
MAXTRK

MINCYL
MINTRK

744R

1034R
126
4R

MSGCR

MSGDR

MSGER

MSGIR

$CDTB =

sennne

senans
sannne

GX
GX

000312RG

HSGi:

aneene GX
G= wnnnnn GX

MSG4R
MSG7R
MSG8R

wennee
wennnt

GX
GX

wennne
wannne

GX
GX

USRLBN 000214R
SBUFRX= waness GX

weenen GX
wknanet GX

MSG

SKPFRE= wwswex GX

. ABS.

001316
ERRORS DETECTED:

VIRTUAL MEMORY us;o‘
602 UORDS ( 3 PAGES)
DYNAHIC MEMORY :
WORDS ( 30 PAGES)
E%OO TIME: 00:00:13
20JFMTR8M, 300, 3CIFMTR8M=L300, 10JFMTREM

wennee
wnnnne
tentee
whanee

GX
GX
GX
GX

$SRTRK=
$

Llbbb

000230RG

$SRSSF=

snvtee
seeens

GX
GX

waneee
teeeee
eennne

GX
GX
GX

eenene

SUPDMX
SWIBSF=
SWTSSF=

teeene
teneve
teneee
tenene
teevee
teenee

GX
GX
GX
GX
GX
GX

weeene

teeeee GX
seeene GX
teenee

et
seneee

GX
GX

FMTRBL = DISPLAY BAD SECTOR FIL MACRO M1113 12-JAN-32 11:05 PAGE 1

SEQ 0099

1
g

rms
.m

: DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

mn& = DISPLAY BAD SECTOR FILE CONTENTS
701.00/

: THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A

: THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

10
1
1;
1
1%

:
:
:
:
:

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

: EQUIPMENT CORPORATION.

INFORMATION

: DIGITAL ASSUMES NO

TO CHANGE WITHOUT

COMMITMENT

DIGITAL

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

MSG2L:
MSG3L:
MSG4L:
MSGSL:
MSGL:
MSG7L:
MSGBL:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

§" 00004
S 000062
36 000101
37 oom§1
38 000133
39 000147
40 000170
41
42
43
4%

IN THIS DOCUMENT IS SUBJECT

: NOTICE AND SHOULD NOT BE CONSTRUED AS A

000207
000227
000251
ooosoi

45 00033
47 000335
3

50 000336

123

115
125
103
110
103
052
05
12
12
11
125

040
000

9-JuL-80

22-0CT-80

123

106 MSGIL: .ASCIZ /SSF (SKIPPED SECTOR FILE) CONTENTS/

105
105
104
104

156
126
105
102

104
104
122
104
131
040
040
000

102
1o§
105
101
114
111
116

MSGOL:
MSGIOL:
MSG11L:
MSG12L:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/MDBSF CONTENTS/
/UDBSF CONTENTS/
QCREATION DATE: @
@HDA 3/N: @
/CYL,TRK,SEC/
/+ INVALID DATE #/
/+* NO ENTRIES #/

/REVISION DATE: /
/REVISION NUMBER: /
/MDBSF °'LOGICAL®' CONTENTS/
/UDBSF 'LOGICAL® CONTENTS/

SPACE: .ASCIZ /7 /
SSFLST: .BYTE 0

; LIST SSF SWITCH

DPARS:

: OUTPUT CONVERSION BUFFER

.EVEN

.BLKW

10.

;

FMTRBL = DISPLAY BAD SECTOR FIL MACRO M1113 12-JAN-82 11:05 PAGE 2

3¢

s **=~$RMBOL-DISPLAY THE CONTENTS OF THE MDBSF, UDBSF, AND SSF

; THIS ROUTINE WILL DISPLAY THE CONTENTS OF THE MDBSF, THE UDBSF

: INPUTS:

: AND THE SSF FILES.

: OUTPUTS:

6
gg
66

g‘

69 000362
;(1) 000366

004767
004767

0000006
0000006

3
|

THE CONTENTS OF THE MDBSF, UDBSF, AND SSF PRINTED ON °TI:'
*$SWLST*' CLEARED

.ENABL

LSB

SRMBOL : : CALL
CALL

000000°*
000060
0000006

MOV
MOV

79 000416
80 000422
81 0004§g
8% 0004

012702
012703
004767
01270;
004767
012700
012703
004767
012703
804767
012700
8‘1,2703
767

0000006
000101°
0000006
0000046
000240
0000006
000207°*
0000006
0000066
214

MOV
MOV
CALL
MOV
CALL
MOV
MOV
CALL
MOV
CALL
MOV
MOV
CALL

77 000406
78 000412

000433

84 000442
85 000“3
86 000452
87 000456

88 000462
89 000466
90 000472
91 000476
9§ 000502
93 000506
94 000510
95 000514

99 000512
000522

98 000553

99 0005
100 000540
}81 000544

}82

012701
004767

016701
00500
004767
105010

0000106

MOV
CLR
CALL
CLRB

0000006

012709

0000006

MOV

01270;

000009(

MoV

105067

17756

004767

112767
004767

0000006

177777
000;72

01%709

000043°

108 000562

0157

000251°

109 000566

MOV
CALL

000227°*
(0000006

105 000550

109 000554
107 000560

CALL

0000006
000600

105767
001488

012701

177575

: "SSF (SKIPPED SECTOR FILE) CONTENTS®
; CARRIAGE CONTROL CHARACTER
3

#$BUFRX RO
#MSG4L ,R3
SMOVE
#$SSF+4 ,R3

s
:
:
:
s
:
:
s
s
s
s
:
:

#$SSF ,R1
HDASN

SFDATE

#$BUFRX RO
#MSGIL ,R3
SMOVE
#$SSF+6,R3

SFDATE
#$BUFRX RO
#MSGI10L ,R3
$MOVE
$SSF+10,R1

BUFFER POINTER
"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
s ENABLE ZERO SUPRESSION

#SBUFRX RO

: OUTPUT POINTER

$CBDMG
(RO)

SPRINT

MOVB
CALL

#-1,SSFLST
BSFDAT

s CONVERT
s ASCIZ TERMINATOR
:

#$SSF +<2+$SSFHD> ,R3
SSFLST

s DISPLAY THE MDBSF CONTENTS

;: BEGINNING OF SSF DATA FIELD

: SET SSF LIST FLAG
s PRINT THE SSF FILE CONTENTS
s RESET THE SSF LIST FLAG

MOV

#MSG2L RO

: "MDBSF CONTENTS'

MOV

#MSG11L,RO

: CHANGE TO 'MDBSF LOGICAL CONTENTS®

TST8
BEQ

108:

s SERIAL NUMBER POINTER
: PRINT THE HDA SERIAL NUMBER

CALL

CLRB

0000006

000060

#MSGIL RO
#60,R1
SPRNTO

MOV

$SWLOG
108

#60,R1

s SEE _IF LOGICAL DISPLAY
s IF EQ, NO

; CARRIAGE CONTROL CHARACTER

c——————

012700
012701
004767

: READ THE SKIPPED SECTOR FILE (SSF)
: READ THE MDBSF AND THE UDBSF

; DISPLAY THE SSF CONTENTS

74 000372
75 000376
76 000402

SRDSSF
$RDBSF

ooogn
73

000612

767

12701
787
127
00476

CALL

1
1

SPRNTO

MOV
CALL
MOV
CALL

#SMDBSF ,R1
HDASN
#SMDBSF+10,R3
BSFDAT

SEQ 0101
:

:
:
:
:

MDBSF S/N POINTER
TYPE THE SERIAL NUMBER
MDBSF DATA POINTER
DISPLAY THE MDBSF

: DISPLAY THE UDBSF CONTENTS

000613

o1§709

001485

815

000302°

000640

004767

0000006

000650
000654
000660
000664
000670
000674
000700

004767
01zro;
00476
012700
004767
105067
000207

000
00001
000152
000333"
0000006
0000006

883‘&

10576 000062°
ooooosc
12701 ooooes

000644 012701

MOV

IST8

208:

#MSG3L RO

$SWLOG

: "UDBSF CONTENTS®

208

#60,R1

: IF EQ,

* CARRIAGE CONTROL CHARACTER

MOV

#MSG12L RO

CALL
MOV
CALL
MOV
CALL
CLRB
RE TURN

HDASN
#SUDBSF+10,R3
BSFDAT
#SPACE ,RO
SPRINT
SSWLST

CALL

MOV

SPRNTO

#SUDBSF ,R1

: SEE IF LOGICAL DISPLAY
NO

: CHANGE TO "UDBSF LOGICAL CONTENTS®
:

: UDBSF S/N POINTER
:
;
:
:
:
:
:

TYPE THE SERIAL NUMBER
UDBSF DATA POINTER
DISPLAY THE UDBSF
BLANK LINE
PRINT THE LINE
CLEAR THE ‘LIST® FLAG

LSB

.DSABL

MOV

; **=SFDATE-DISPLAY THE SSF DATE FIELD CONTENTS

000710

000712
000726
000732
000734
000740
000742
000746
000752
000754
000760
000764
ooons
000772
000776

—

000704

0007

O
N

bl
o

: THIS ROUTINE PRINTS THE CREATION AND REVISION DATE FIELDS
; FROM THE SSF

1301

042701

005701

oousg
05012
1 wzg
010167
011301
042701
020127
101019
010167
116301
oogzm
062701
010167
012701

177037

000014
177400
177740

000037

177362

000001

oggooos

177340
000336°

ooONONONONONONONWYWAWY
WANW
N
NNNNMNWS-‘
e
e IW =O
ey
Wwflzgogwgvcguz-bw-hooflflfi\nbm-flooawgmfimdwow\nawd
OONO
NS

FMTRBL ~ DISPLAY BAD SECTOR FIL MACRO M1113 “2-JAN-82 11:05 PAGE 2-*

SFDATE: MOV

BUFFER POINTER
DATE FIELD POINTER

(R3) .R1

: DATE

2 LOOK FOR VALID MONTH

BIC

#4C740,R1

BEQ
CMP
BHI
MOV
MOV
BIC
CMP
BHI
MOV
MOVB
ASR
ADD
MOV
MOV

108
R1,#12.
10§
R1,DPARS+2
(RS) .R1
#°C37.R1
R1,431.
10§
R1 gmsol.
1(R3),R1
R1
#BASYR,R1
R1,DPARS
#DPARS ,R1

TST

: LEAVE MONTH CODE

: 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
* MOVE DAY
: GET THE YEAR CODE
* RIGHT JUSTIFY
: ADD THE BASE YEAR
: YEAR
* INPUT BUFFER POINTER

FMTRBL = DISPLAY BAD SECTOR FIL MACRO M1113 12-JAN-82 11:05 PAGE 2-2

0000006
888147'

1057?
g 0000006
0000006
00625 4

CALL
BR

108:

DAT

208:

CON¥ERT THE DATE
ONT INUE
#* INVALID DATE #+'
LOAD THE TEXT
ASCIZ TERMINATOR
BUFFER _POINTER
PRINT THE DATE

SR R RN S BRI R R RER 2SI I

i e

767

D e

«*~BSFDAT=DISPLAY THE BAD SECTOR FILE CONTENTS

D i e

THIS ROUTINE PRINTS THE DEFECT ADDRESS ENTRIES IN THE MDBSF

R3 = START OF THE BAD SECTOR FILE DATA AREA
SSFLST = =1 IF THE SSF IS BEING LISTED

i
21§ 001153
214 0011
Qi
g
19 881122

18
001144
19 001150

22 881160

23 001164
24 0011

g i

;8 001202
001206

O =
lelelele]
el

oSNRN=SY

210 001112

—

%88 001110

206 001072

—

001034
001036
001040
200 001044
201 001050
20% 001052
203 001056

°-d§8--§8
§- §d S
23333338838
'
Ng
N\fl\fi\fl
IR TN,
S
28 SISNSS LT
NNN=ONN=ONN ==Y
NO =NYOWWw

OUTPUT:
NONE

BSFDAT: TST

000170°*
0000006
108:
000133*
0000006
0000006
208:
0000006
000003 0000006
000002 0000006

(R3)
108
#MSGBL
, RO
$PRINT
408
#MSG6L ,RO
SPRINT

#$SBUFRX
RO

(R3),$CYL

S(Rgi.srax

2(R3) .$SEC
(R3)+.R1
408
R2

IO
ot

0000006
000054
000001

1(R$) .R1

R2
$(BDMG
#° .. (RO)+

0000006
000054

(R$S .R1
SFLST

177165

0000006

0s
$SWLOG

0000006

$SRSSF

308

308:
0000006

0000006
0000006

308
R1
(R3)+
R2
$CBDMG
(RO)
#$BUFRX
RO
$PRINT

LOOK FOR END OF ENTRIES
IF PL, FILE ENTRIES PRESENT

‘#* 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
CONVERT
SEPARATOR

TRACK ADDRESS

ENABLE ZERO SUPRESSION
CONVERT
SEPARATOR
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
INCREMENT THE SECTOR ADDRESS
INCREMENT THE INPUT POINTER

E'&‘ABIE.SIZERO SUPRESSION
v

ASCIZ TERMINATOR
QUTPUT BUFFER POINTER
PRINT THE ADDRESS

FMTRBL = DISPLAY BAD SECTOR FIL MACRO M1113 12-JAN-82 11:05 PAGE 2-3
40$:
+

RETURN

208

LooP

**=~HDASN-DISPLAY THE HDA SERIAL NUMBER

THIS ROUTINE CONVERTS THE HDA SERIAL NUMBER FROM THE DEC STD 144
FILES OR THE SSF TO ASCII AND PRINTS IT.

INPUTS:
R1 = SERIAL NUMBER FIELD POINTER

~
~

MOV

CLR
CALL
CLRB
MoV
CALL

RETURN

(R1)+ ,DPARS+2

EXCHANGE S/N MSB ¢ LSB
RELOAD THE SERIAL NUMBER POINTER

—_

— —D

SO0

HDASN:

8 OOO000O

17711

O -

p—y

OUTPUTS:
NONE

2888838288838

NNNNNNNNN&AINININIAININIAINIAINIAININININININIAD
SRS
SSSS
S PR RN ARARS
WN=OO AT NS MR
¥N
W

2 Oi5E 000267

SEQ 0103

.END

R2
$CDDMG
(RO)
#$BUFRX,RO
S$PRINT

'HDA S/N: '
BUFFER POINTER
LOAD THE BUFFER
SUPRESS LEADING ZEROS
CONVERT THE SERIAL NUMBER TO ASCII
ASCIZ TERMINATOR
BUFFER_ADDRESS

PRINT THE SERIAL NUMBER

FMTRBL = DISPLAY BAD SECTOR FIL MACRO M1113 12-JAN-82 11:05 PAGE 2-2

SEQ 0104

SYMBOL TABLE

BASYR = swanas (X
BSFDAT 886
R
DPARS
HDASN
001216R
MSGIL

HSG§L
MSG3L
MSG4L
MSGSL
MS

004 3R
062R
00101R
081 1R
000133R

SFDATE
000702R
SPACE
gog R
SSFLST
0335R
SBUFRX= wxnanxe GX
SCBDMG= wwxawnn GX

SMDBSF= wtatann GX
SMOVE = wanane GX
SPRINT= waness GX
SPRNTO= wenxae GX
SRDBSF= wasans GX

$SRSSF= weeane GX
§SSF = wenens GX
SSEHD= wetens GX
SWLOG= teeeee GX
SSWLST= weeens GX

MSG1IL

MSGS8L

00170R

SCYL

$SRMBOL

SUDBSF= waeane GX

MSGI10L

000227R

MSG12L

000302R

MSG7L

000251R

000000
001270
ERRORS DETECTED:

MSGOL

. ABS.

800147R
0002C7R

000
001

VIRTUAL MEMORY USED: 471 WORDS_ ( 2 PAGES)
DYNAMIC MEMORY: 7942 WORDS ( 30 PAGES)
ELAPSED TIME: 00:00:10
C300,201FMTR8L,[300,30]FMTR8L=C300,10]JFMTR8L

SCDDMG= #nnans GX
SDAT

= wnnnne GX
= wwnnan GX

SRDSSF= wanenn GX
$SEC

000362RG

= wnnnnn GX

$STRK

= wannnn GX

FMTINT = INITIALIZE MDBSF, UDBS MACRO M1113 12-JAN-82 11:05 PAGE 1
1

JTITLE

. IDENT

S
g

SE@ 0105

FMTINT = INITIALIZE MDBSF, UDBSF, SSF

701.00/

9
10
1
1;

:
:
:
:

* WHO AGREES TO THESE LICENSE TERMS.

: TO ANY

OTHER PERSON EXCEPT

FOR USE ON SUCH SYSTEM AND TO ONE
TITLE

AND

: THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

: THE

* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF

;

: C. HESS

18
53

TO CHANGE WITHOUT

COMMITMENT

DIGITAL

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

VERSION 01.00

: M. LEAVITT

IN THIS DOCUMENT IS SUBJECT

* NOTICE AND SHOULD NOT BE CONSTRUED AS A
: EQUIPMENT CORPORATION.

g 000000

INFORMATION

OWNERSHIP OF

NLIST

052

15-AUG=-80
14=JAN-81

BEX

040 ngegzn LASCIZ /%% WARNING = BAD SECTOR FILES WILL BE OVERWRITTEN ON /
;

SEQ 0106

W
~

FMTINT = INITIALIZE MDBSF, UDBS MACRO M1113 12-JAN-82 11:05 PAGE 2

**~SRMB0I-INITIALIZE THE RMB0'S MDBSF, UDBSF, & SSF TRA(CKS

40
21

: THIS ROUTINE WILL FORMAT THE DEC STD 144 TRACK AND THE SSF TRACK
: AND WRITE NULL 16 BIT DEC STD 144 AND SKIP SECTOR FILES.

4
4
45
46
&7

: INPUTS:
:
NONE
:
: OUTUTS:
s
NONE

50
51 000072
52 000076
53 000102
54 000106
55 000112
56 000116
§7 000122
58 000126
59 000132

60 000134

61 000142

62 000144
63 000150
64 000156
65 000340
66 000164

67 000170
68 000172

012703
004767
012703
004767
015700
012701
004767
012700
004767
001404

122767 000131

005020
005020

$RM80] : : MOV
CALL
MOV
CALL
MOV
MOV
CALL
MOV

0000006

001402

000167
015703
012700
016720
016720

000000°
0000006
0000006
0000006
0001446
000060
0000006
0000006

69 000174 012720 177777
70 000200 005303
71 000202 001374
72 000206 012700
0006

1$:
28:

38:

000210 016720 0000006
7% 000214 016720 0000026

75 000220
76 000222

000234

005303

000254
85 000256

005303
001374

48:

000236 001374

81 000240 012703 000000C
ag
000244 012700 000 oc
83 000250 012720 177
000260
88 ooo;ol.
89 000 5
90 000310
91 000314
87 0002

000336

100 000342

CMPB

#'Y,$BUFRX

: SEE IF RESPONSE WAS 'YES'

JMP
MOV
MOV
MOV
MOV

SFMTEX
#256.<4, ns
#SMDBSF RO
$SSNAME, (RO)+
SSNAME+2, (RO)+

MOV
DEC
BNE
MOV

#-1,(ROY+
R3
33
#SUDBSF ,RO

CLR
CLR

mon
2

BEQ

CLR
CLR

MOV
MOV

005020
005020

ooozgg 012703 000374
78 0002
o1§7zo 177777

: WARNING MESSAGE ADDRESS
: STORE MESSAGE AND DEVICE/UNIT
* MESSAGE SUFFIX
: LOAD THE SUFFIX INTO THE MESSAGE BUFFER
: PRINT THE WARNING MESSAGE
: 2 LINE FEED CARRIAGE CONTROL
: PRINT WARNING MESSAGE
: "YES-NO' MESSAGE POINTER

CALL
BEQ

0000006

000374
0000006
0000006
0000026

#MSGIRI A3
SUNT'D
#SMS24 ,R3
SMOVE
#$SBUF+100.,R0
#60,R1
SPRNTO
#$MSG31,R0

58:

SPRMPT
1$
28

(RO) +
(RO) +

: PROMPT AND GET RESPONSE
: IF EQ, RESPONSE WAS °'NO"

: IF EQ, RESPONSE WAS 'YES'

: EXIT
: GET NUMBER OF ENTRIES TO RESET
: GET START OF MDBSF
: STUFF THE NEW SERIAL NUMBER
:

* BLANK WORD
: SHOW NOT AN ALIGNMENT DISK

: EMPTY THE MDBSF
: IF NE NO
: GET START OF UDBSF
: FINISHED?

$SNAME , (RO)*
b+ STUFF THE NEW SERIAL NUMBER
SSNAME+2, (RO)+ : ...

MOV
MOV
DEC
BNE

cz 6.-1. R3
ROS +

DEC

: BLANK WORD
: SHOW NOT AN ALIGNMENT DISK

: GET NUMBER OF ENTRIES TO RESET
: EMPTY THE UDBSF
: FINISHED?
IF NE uo

MOV
MOV
MOV

czse.«sssn.m.ns
SIZE
#$SSF
RO
:
SSF
aumn
POINTER
#-1,(fio»
: CLEAR A LOCATION

: couu THE LOCATION
: IF NE, NOT FINISHED

816767
16767
016767
016767
005067
012767

8880006 0000006
0026 0000026
0000006 000004G
0000006 0000066
0000106
000001 0000126

MOV
MOV
MOV
MOV
CLR
MOV

g
: SERIAL NUMBER LSB
$SSF+2 : SERIAL NUMBER MSB
DPARS,$SSF+4
: CREATION DATE
oms "$SSF+6
: REVISION DATE
$ssF+10
: REVISION NUMBER
n, sssmz
: SSF DATA TYPE INDICATOR (16 BIT)

005067

0000246

CLR

$SSF+24

005067

0000226

CLR

ssume+

$SSF+22

* NUMBER OF SSF ENTRIES
: CHECKSUM

FMTINT = INITIALIZE MDBSF, UDBS MACRO M1113 12-JAN-82 11:05 PAGE 2~§
101 888
10i
S

767
767

104 000;26

105087

103

00035

767

;lgg 000

000207

107

000001

06
8806
06

006

.END

SEQ 0107

CALL
CALL

$SRB0OSF
SWTBSF

s CALL THE 'SPECIAL FORMATTER'
: WRITE THE DEC STD 144 INFORMATION

CLRB

SSWINT

: CLEAR THE INITIALIZATION FLAG

CALL

6%:

RETURN

SWTSSF

: WRITE THE SSF

FMTINT = INITIALIZE MDBSF, UDBS MACRO M1113 12-JAN-82 11:05 PAGE 2-2

SEQ 0108 |

SYMBOL TABLE

DPARS = sesasxe GX

SMDBSF= wawsan GX

MSGIRI 000000R
SBUF = wwawen GX

SMOVE = wewwan GX
$MSGO4= wewwas GX

SBUFRX= weenex GX

SMSG31= wennnn GX

SFMTEX= wenenx GX

. ABS.

000370
ERRORS DETECTED:

000
001

VIRTUAL MEMORY USED: 489 WORDS_ ( 2 PAGES)
DYNAMIC MEMORY: 7942 WORDS ( 30 PAGES)
EgsSSED TIME: 00:00:07
£300,20]FMTINT,[300,30]FMTINT=[300,10JFMTINT

SPRMPT= sanxxas GX

SPRNTO= wewsxs GX
SRMB0] 000066RG

SRBOSF= wwannx GX

$SNAME= wennne
$SSF = wenenn
$SSFLN= wennne
$SWINT= wnnntn

GX
GX
GX
GX

SUDBSF= #anans GX

SUNTID= wewsass GX
SWTIBSF= aannan GX

SWTSSF= wasaee GX