Digital PDFs

AH-T123B-MC

2000

Number of pages unknown

Original

45MB

view download

OCR Version

57MB

view download

Document:	CZRNJB0 RM80 FORMATTER MAY 1983 bw
Order Number:	AH-T123B-MC
Revision:	000
Pages:	Unknown
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/microfiche/Diagnostic_Program_Listings/Listings/CZRNJB0__RM80__FORMATTER__AH-T123B-MC__MAY_1983_gray.pdf

OCR Text

5 BN
2 2

= OO0 NI NN = C 000 NON WIS NN = OO 00

NN AN N NN AN WAIN PO NI N NI NI PO N NIND == b b b ed d d e b b

MW BN AN = OO0 00 IO N B NN —

CZRNJBO RMBO FORMATTER MACRO M1113 15-SEP-82 14:16 PAGE 2

oS Sn01

.REM 3

IDENTIFICATION

THE

PRODUCT CODE:

AC-T122B-MC

PRODUCT NAME:

CZRNJBO

PRODUCT DATE:

SEPTEMBER 15, 1982

MAINTAINER:

CX DIAGNOSTIC GROUP

AUTHOR:

C. HESS, M. LEAVITT

RMBO FORMATTER

INFORMATICN IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND

SHOULD _ NOT
BE _ CONSTRUED AS A COMMITMENT BY
CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

DIGITAL
EQUIPMENT
NO RESPONSIBILITY

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A iLICENSE AND

MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT
sgkiég{LlTV OF ITS

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

CZRNJBO RMBO FORMATTER MACRO M1113 15-SEP=-82 14:16 PAGE 3
45

CONTENTS
1.

INTRODUCTION

1. ABSTRACT
2. OPERATING REQUIREMENTS
1. HARDWARE REQUIREME!
7S

2. PREREQUISITE DIAGNL TIC PROGRAMS
3. OPERATING PROCEDURE

1. LOADING
SWITCH OPTIONS
STARTING
4
HALTING
RESTARTING
.

OPERATOR INTERFACE

1. PROGRAM IDENTIFICATION

NN
S NN

VIWWAWAUVWAVIWIWVIWLA
S

DNV NN
= OO0 00

46
o7

CONSOLE DIALOGUE

WARNING MESSAGES
PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRAM HALTS

ERROR REPORTS
EXECUTION TIME

5. ENVIRONMENTAL SUPPORT
1. PROCESSOR COMPATIBILITY
DUAL PORY CONF IGURATIONS
MEMORY PARITY HARDWARE
4
MEMORY MANAGEMENT HARDW/RE
5 ACT, APT COMPATIBILITY

XXDP COMPATIBILITY

7. OPERATING SYSTEM COMPATIBILITY
6. FORMAT DESCRIPTION
1. FORMAT PROCESS

7. RECONSTRUCTION DESCRIPTION
1. HANDL ING OLD DEFECTS
2. HANDLING NEW DEFECTS

8. BAD SECTOR FILE LAYOUTS
1. SKIPPED SECTOR FILE

2. DEC STANDARD 144 FILE

9. ERROR TYPE DESCRIPTION

1.0

INTRODUCTION

1.1

ABSTRACT

SEQ 0003

THE RMBO
RECONSTRUC

RM80

D e rd e

UNLESS TH
FAILURES.

LD SERVI
FORMATTE

m—

D e

R SOF TWARE

THE NUMBER
OF
BAD
N _ACCEPT.
SKIP SECTORING
T NUMBER OF BAD SECTORS:

=
>

D e ol

IT IS EXPECTED THAT

D i

D e e

N
e d e = e o
s d OO O OOOO
U!U\U‘U\MU‘U\\N\I“"&J‘J\l\8*bb’bbwwwuwguwWWNNNNNNNNN
VRNV
WN=OVR NN WN—=OYV~NONW WA
= O 000 N W NN = OO 00 NNV
AN = O D O N NS

CZRNJBO RMBO FORMATTER MACRO M1113 15-SEP-82 14:16 PAGE &

dD e

HOST OPERATING SYSTEM'S

E DEFECTS ARE LISTED IN

D e

= OMoO

D D e o

MDBSF

D i e e
e

ARE
PRESENT
ARE DE
PROGRAM, MARKING THE
PROGRAM® WILL,
IN EFFE
FORMATTER WILL NOT
THE FIELD FORMAT OPER
BAD SECTOR FILES S
FUNCTIONAL MEDIA VERI
AS A MEANS OF DETECT

i e e

ERROR

THAN

D o

LEFT MANUFACTURING.

PERFORM

ACTUAL

SKIPPED SECTORS ARE NECE
(SEE

SECTI

THESE
FILES
PROCESS.

ARE

CREAT

NON=-SKIPPED SECTOR LOCAT

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS

DEFECTS

WHICH

NEW BAD SECTOR
SF). THE LOCATIONS OF
FORMAT
PROGRAM
ORMAT OF AN HDA.

E DEC STD 144 FILES.
E MANUFACTORING rORMAT

RECONSTRUCT

ADEQUATE

THE DEFECTS

ONAL
FORMAT/VERIF ICATION
VERIFICATION
BY SUCH
A WHICH HAS A HIGHER APPARENT
ONSEQUENTLY,
DIA VERIFICATION ALONE.
THE HDA'S 16 BIT MODE
AL MEDIA VERIFICATION.
ATTEMPTED
WILL BE
AVE DEV ELOPED SINCE THE HDA

THE LOCATIONS OF SKIPPED
SUPPORT FILE CALLED THE

ek i
D
e ol
it D o
el

RATE

RGE NUMBER OF

UDBSF,

ING PARAMETERIC
NERATED BY
THE
T OF DEFECTS
S INDICATES THAT

A
R

AND

THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED 10
OPERATIONAL,
IS REQUIRED TO LOAD AND EXECUTE THE RMBO SUBSYSTEM
FORMATTER:

PDP=11/70 PROCESSOR
28K MEMORY

CZRNJBO RMBO FORMATTER MACRO M1113 15-SEP=-82 14:16 PAGF 5
0000 ~NIN~NNNNN~N~~N
WA = OO 00NN IS AN = O 0 00 NJOMN S (NN —

16
16
16
16
16
}9
5

KW11=L OR KW11=P CLOCK
PROGRAM LOADING DEVICE
TERMINAL
RH70
ONTRSLLER
1 70 8 RMBO
DISK DRIVES

2.2

PREREQUISITE DIAGNOSTIC PRCGRAMS

RMBO DISKLESS TEST, PART 1 AND 2

—

SEQ 0004

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 SOF TWARE SWITCH

STARTING
THE PROGRAM MUST BE STARTED AT

LOCATION

200

GETS

LOCATION

200

HOWEVER,

BECAUSE

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
00

THE

38;

282

ggg

212

PROGRAM

CAN

ONLY

STARTING AT ADDRESS 200 .
4.0

RESTARTED BY RELOADING THE PROGRAM AND

OPERATOR INTERFACE

4.1 PROGRAM IDENTIFICATION

207
ggg
%}?

RESTARTING

THE PROGRAM TYPES ITS TITLE THE FIRST
BEING LOADED.
4.2

TIME

STARTED

AFTER

CONSOLE DIALOGUE

THE

PROGRAM

ENTERS

CONSOLE DIALOGUE SEQUENCE AFTER TYPING THE

g}g

PROGRAM IDENTIFICATION.

215
216

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

THE

USER

B NN = OO 00
NONWVVES NN = OO 0 N O

b et

bbb

N LA AN N NN N AN N NN N AL AL A NN —

A A A LS S LS TNT NT N TSN T'N)

CZRNJBO RMBO FORMATTER MACRGC M1113 15-SEP-B2 14:16 PAGE 6

'DRIVE #:

NN
VIVWAVIVIVALY
L« AV PYV

R2ETE

ENTER THE DRIVE ADDRESS NUMBER (0-7) FOLLOWED BY
IF

THE

SELECTED

DRIVE IS NOT AVAILABLE,

CARRIAGE

RETURN.

THE PROGRAM WILL TYPE AN

ERROR ntssuse 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 DRIVF TO BE FORMATTED, THE PROGRAM
WILL ASK FOR AN OPTION TO BE SELECTED WII1H THE FOLLOWING PROMPT.

'OPTIONS:

°*

THE COMMANDS AVAILABLE FOR THE OPTION PROMPT ARE AS FOLLOWS:

238

SEQ 0005

gnglALlZE

ALL

THE BAD SECTOR FILES (DEC STD 144 AND

NOTE: THE INITIALIiZE COMMAND WILL DESTROY THE CONTENTS
gs')ALL
THE
BAD
SECTOR FILES (DEC STD 144 AND
FO

FORMAT THE DISK.

<CR>

SAME AS "FO'

FO:F

FORMAT THE FE CYLINDERS ONLY.

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

LI:L

LIST THE LOGICAL ADDRESSES OF THE DEFECTS IN THE DEC
EDDRE;SES)
ILES.
(SSF DOES NOT CONTAIN ANY LOGICAL

VFL=N

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

COMMAND-

560., TRK 13.)

RE=-READ

TRACK

DURING

(CYL 559., TRK 2 =

VERIFY

AFTER_

OPERATION.

(YL

TIMES

1-256.).

ERROR

WHERE 'N' IS THE NUMBER OF ERRORS

*N' WILL RETURN TO ITS DEFAULT VALUE.

LIMIT

COUNT,

ALLOWED BEFORE THE FORMAT IS ABORTED.
256

COMPLETING

THE

DEFAULT IS 1 (RANGE
FORMAT,

ERL=N

(ALL CYLINDERS 0 - 560.)

(RANGE

THE

THE DEFAULT

IS THE ADDRESS OF RMCS1

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

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

INTERRUPT ADDRESS IN OCTAL.

sRESEETlNG THE FORMAT, 'N'

°'N'

THE

ADDRESS

THE DEFAULT IS 254. AFTER

WILL

RETAIN

ITS

CHANGED

CZRNJBO RM8O FORMATTER MACRO M1113 15-SEP=82 14:16 PAGE 7
275
276
277

THE USER MAY STRING ANY COMBINATION OF COMMAND OPTIONS TOGETHER BY
USING A SLASH (/) TO SEPARATE THE COMMANDS.
HOWEVER
IF
ONLY A

278
ggg

CARRIAGE RETURN IS TYPE FOR THE OPTION PROMPT, THE PfiOGRAH WiLL GO
INTO FORMAT (FO) MODE USING THE DEFAULT PARAMETERS.

ggg

EXAMPLE #1:

532

OPTION:FO/CSR=176000/VEC=260/VFL=3/ERL=10<CR>

285

THE ABOV% COMMAND INDICATES THAT THE Snrxae DISK WILL BE FORMATTED

286
287
288

THE ancg ADDRESS WILL BE SET TO 176000, THE VECTOR ADDRESS WILL BE
SET T0 260, THE VERIFY COUNT WILL BE SEf TO 3 AND ERROR LIMIT WILL
BE SET T0 10.

550
291
53§

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

ggg
296
297

SEQ 0006

"CONTINUE (L) N 2 °

298
299

IF THE RESPONSE TO THIS PROMPT IS A
'N'
FOLLOWED BY A CARRIAGE
RETURN OR JUST 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 CONTINUE TO

302
303
}8?

THE FOLLOWING PROMPT WILL OCCUR
FORMAT (FO) COMMAND.

38?

THE NEXT STEP IN THE CURRENT COMMAND OPTION.

o LN LA LN U L N U N AN N N LN U N NN N N N AN AN
ANONIND NPV NINININD b b e ed = wd e d ek et D O

ggg

OO NO VS W =2OVRNOWVS
NN =O

8
309

THE

OPTION

SPECIFIED

WAS

*UPDATE MODE (L) N ? °
IF
THE
RESPONSE
TO THIS PROMPT IS A 'N' FOLLOWED BY A CARRIAGE
RETURN OR JUST A CARRIAGE RETURN,
THE PRCGRAM WILL ABORT
THE
CURRENT COMMAND AND RETURN TO THE DRIVE PROMPT.
IF THE RESPONSE IS

A 'Y' FOLLOWED BY A CARRIAGE RETURN, THE
MANUAL BAD SECTOR UPDATE ROUTINE.

PROGRAM

WILL

ENTER

THE

THE FOLLOWING TWO PROMPTS WIL % 0 CCUR gf THE OPTION SPECIFIED WAS AN
INITIALIZE (IN) OR FORMAT (FO COMMAN

'ENTER DATE (DD~MMM-YY):

THE DATE 1S 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:

°*

l2§r¥aA SERIAL NUMBER CAN BE ANY DECIMAL NUMBER UP TO 10. DIGITS IN
J

THE

SEQ 0007

OPTION

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

THE MANUAL UPDATE MODE,

THE FOLLOWING PROMPT WILL BE

THE ENTERING OF SECTORS INTO THE BAD SECTOR FILES.

TYPED TO ALLOW

'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

340

RETURN.

TERMNATE

THE

BAD SECTOR ENTRY LIST, TYPE A CARRIAGE

RETURN IN RESPONSE T0 THE ENTRY PROMPT.

IF THE aAo sscro HAS A HEADER ERROR OR DRIVE TIMING ERROR (EXAMPLE
#2)
LETTER
'H'
(HEADER DEFECT)
MUST
FOLLOW THE
DEFECT

1~oicnreo. THIS WILL INDICATE TO THE PROGRAM, WHICH FILE (SSF OR

DEC STD 144) THE DEFECT MUST BE STORED IN.

EXAMPLE #1:
ENTER BAD SECTR_ADRS:

CYL,TRK,SEC = <CR>

:DE F
§
:TE RMINATE
-ONO

NN NN N NN NN

W NN NN NN

OO NN NN
-

CZRNJBO RMBO FORMATTER MACRO M1113 15-SEP-82 14:16 PAGE 8

INPUT

IF THI S DEFECT (EXAMPLE #1) IS NOT ALREADY IN THE SKIP SECTOR
(SSF)
THS DEFECT WILL
BE ENTERED AS A SKIP SECTOR EMTRY.
FOR MORE DETAILS)
SECTION

FIL E
{SE E

EXAMPLE #2:
ENTER BAD SECTR ADRS

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

sDEFECT CYL 524., TRK 4.,

%5 (HEADER ERF.0R)

SEC

:TERMINATE INPUT

THIS SECTOR
(EXAMPLE #2) WILL NOT BE ENTERED AS A SKIPPED SECTOR,
BECAUSE A HEADER ERROR WAS FLAGGED BY THE USER, BY PLACING TKE
LETTER
°"H'
AFTER THE DEFECT.
THE DEFECT WILL BE ENTERED_IN THE
MANUFACTURES SECTION OF THE DEC STD 144 FILE.
(SEE SECTION 7.0 FOR
MORE DETAILS)
L
LETTER
NOTE: THE
g CA Isg WITHIN THE BRACKETS () INDICATES THE TYPE
THE
USER,
D=DECIMAL,
O0=0CTAL
AND
OF RESPONSE
R QUIRED BY

L=LETTER.

4.3

WARNING MESSAGES

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

LOST. _ THE_

FNLLOWING MESSAGE WILL BE TYPED BEFORE INITIALIZING OR

FORMATTING THE HDA.

‘st YARNING = DATA WILL BE LOST ON DRN: w»'

TO FURTHER WARN THE USER, THE FOLLOWING MESSAGE WILL BE TYPED
BEFORE INITIALIZING THE HDA.

JUST

CZRNJBO RMBO FORMATTER MACROC M1113 15-SEP-82 14:16 PAGE 9

SEQ 0008

‘s* WARNING = BAD SECTOR FILES WILL BE OVERWRITTEN ON DRN:
FOLLOWING EACH WARNING MESSAGE,

THE USER IS ALLOWED THE OPPORTUNITY

TO TERMINATE THE PROGRAM W1THOUT DESTROYING THE

RESPONSING TO A PROGRAM PROMPT MESSAGE.

4.6

ARE

GIVEN

DURING

THE

EXECUTION

THE

THE PROGRAM,

ERROR REPORTS
FIRST LINE CONTAINS THE ERROR MESSAGE:

ONE LINC OF

TEYT WHICH

TO THE ERROR.
THE LAST LINE CONTAINS THE
DECIMAL
REGWUIVALENT
OF
THE
RMDC
AND
RMDA
REGISTERS,
WHICH
INDICATE
WHERE
THE ERROR

OCCURED.

THE FOLLOWING PRINTOUT SHOWS
PROGRAM:

TYPICAL

ERROR

MESSAGE

FOR

THIS

HEADER/DATA ERRCR DUR NS VERIFY

RMCS1=144252 RMCS2=040300 RHER1 100000 RMER2=000000 RMDA=001014
CYLINDER=559. TRACK=2. SECTOR=11,

P
P
P P
R o oF F
R

THE PROGRAM.

GIVES A BRIEF DESCRIPTION OF
THE
ERROR.
THE
ERROR MESSAGE
IS
FOLLOWED BY
ONE LINE CONTAINING DATA HEADERS AND DAFA PERTININENT

S N

w WNANWWNINO N NINO AN NININD e b e
et
N N =OVRNOWVSTMNN=OOONO
WV W

PROGRAM HALTS

THE

412

HDA,

PERFORMANCE REPORT

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF

4.7

PROGRESS REPORTS ARE GIVEN DURING THE EXECUTION CF

NO PERFORMANCE REPORTS
PROGRAM,
4.6

DATA

(SEE SECTION 4.2

PROGRESS REPORTS

4.5

w«'

4.8

EXECUTION TIME
ONE PASS OF THE PROGRAM TAKES ABOUT 20 MINUTES.

s.o

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

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

DUAL PORT CONFIGURATIONS

DUAL PORT
IFICALLY TEST
LOGIC
IN THE RMB0 ADAPTER BUT IS EXE UTABLE ON RMBO SUBSYSTEMS
IS SET
HAVING THE DUAL PORT OPTION PROVIDING THE DUAL PORT SWITCH
TO THE APPROPRIATE PORT (A OR B).
THE RMBO SUBSYSTEM FORMATTER DOES NOT SPE

5.3

MEMORY PARITY HARDWARE

CZRNJBO RMBO FORMATTER MACRO M1113 15-SEP-82 14:16 PAGE 10

SEG 0009

SUBSYSTEM FORMATTER.,

MEMORY PARITY HARDWARE

5.4

EXECUTION OF THE E RMS RM8O
E EXE

MEMORY MANAGEMENT HARDWARE
-

5.5

IS NOT USED DURING THE

MEMORY MANAGEMENT HARDWARE
FORMATTER.

ACT11, APT11

THE

IS NOT USED DURING

THE

RMBO

SUBSYSTEM

COMPATIBILITY

RMBO SUBSYSTEM FORMATTER IS COMPATIBLE WITH ACT11 AND APT11

DUMP MODE ONLY.

5.6

XXDP COMPATIBILITY
BSEYRHBO SUSBYSTEM FORMATTER IS COMPATIBLE WITH XXDP IN

5.7

DUMP

MODE

OPERATING SYSTEM COMPATIBILITY
THE
PROGRAM IS NOT COMPATIBLE WITH ANY OPERATING SYSTEM WHEN [T IS
ASSEMBLED AS AN XXDP STANDALONE PROGRAM,

6.0

FORMAT DESCRIPTION

6.1

FORMAT PROCESS
THE FORMATTER USES THE DEC STD 144

SKIPPED

MFG_

AND

USER

FILES

THE

DEFECTS

SECTOR FILE TO RECONSTRUCT (SEE SECTION 7) AN HDA'S 16 BIT

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

BEFORE

AND

FORMATTING

BEGINS,

DEC STD 144 FILES AND

THE

THE FORMATTER WILL READ AND VERIFY THE

SSF

FILE.

THESE

FILES

CONTROL

THE

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

EACH COPY OF THE SKIPPED SECTOR FILE (SSF)

READ

UNTIL

GOOD READ OCCURS AND THE HEADER AND DATA FIELDS ARE VALIDATED
USING THE INTERNAL CHECKSUMS.

smnue WITH THE PRIMARY DEC STD 144 TRACK
)

(CYL

558..

TRK

AND comuume TO THE SECONDARY DEC STD 144 TRACK (CYL

ssé TRK1.), THE PROGRAH WILL READ EACH COPY OF THE 16 BIT
fAttunxns AND USER'S DEC STD 144 FILE UNTIL A GOOD READ
occuns AND THE INTERNAL FORMAT OF EACH FILE IS VALIDATED.

VERIFY THAT THE MDA SERIAL NUMBERS IN THE 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
_DISK ADDRESSES IN THE DEC STD
{MANUFACTURING AND USER) FILE ARE VALID RMBO ADDRESSES.

144
IF

CZRNJBO RMBO FORMATTER MACRO M1113 15-SEP-82 14:16 PAGE 11

504
505
506
ggg
509
510

* SEQ 0010

AN ADDRESS E ERROR
THE
F1
IS FOUND,
CONSIDERED € ORRUPTED AND THE NEXT COPY
WILL BE READ AND VALIDATED.
AFTER
VERIFYING
THE
DEFECT
F
<unxr§ HEADER A ND DATA) AND VE

511
g}g

ALL
32 SECTORS OF EACH TRACK
BIT DATA PATTERN TO FILL THE DA

g}g

155555 133333 (OCTAL)
THE FOLLOWING SEQUENCE

23
2%

DB6DB6DB (HEX)

IS USED FOR FORMATTING:

BIT

ESS

ALL

EAD _OPERATION.

USING A WRITE C HECK HEADER AND DATA COMMAND, EACH TRACK IS
READ 1 TIME.
IF A ATA ERROR OCCURS AT A SECTOR WHICH IS NOT
16
STD 144 FILE OR THE SSF, THE
LISTED
IN EITHER
TA ERROR OCCURS
DURING
SECTOR 1S READ 20
REREAD SEQUENCE,
ADDRESS OF THE FA
DEFECT
LIST.

REMAINDER OF THE

AFTER A TRACK HAS BEEN
BAD SECTOR MARKINGS BAS
NEWLY DETECTED ERRORS.

AND
THE
IS DISCONTINUED,
IN THE APPROPRIATE
ING SECTOR IS
SAVED
E_PROGRAM THEN CONTINUES CHECKING

RIFIED, THE TRACK IS REFORMATTED WITH

ON THE PREVIOUSLY DETECTED ERRORS AND

THE PRIMARY AND SECONDARY DEC STD 144 TRACKS (CyL 558

CYL

559

TRK

1, RESPECTIVELY), THE SSF TRACK (CYL 5 §9,TRk

THE FE AREA WILL BE REFORMATTED.

0),

THE SSF REVISION NUMBER AND DATE WILL BE UPDATED ONLY
FILc HAS BEEN UPDATED.

D 144 FILE RECORDS AND THE 18

BIT MODE S
MODE FORMA

IF,

DURING THE FORMA 1

THE

MAXIMUM,

THE TOTAL NUMBER OF DE
THE

ERROR MESSAGE TO THIS

PROCESS USING ONLY TH E
T
UDBSF, AND THE SSF.

[ ]

NOTE: THE

SK
FILES AND THE HE SKIPPED
§

ES_WILL BE SORTED SO THAT
16 BIT
DEC
STD
L BE REWRITTEN.

—
~

BOTH THE SSF AND THE
DEFECT ENTRIES ARE IN A

E USING THE FOLLOWING 32

EACH SECTOR.

—TXOo

VTR
VTN VWA

31
32
33

VWA ANV

ERRCR

PATTERN FOR THE DA TA PORTION OF EACH SECTOR.

27
28
29
30

ST
OOV NO VS NN = OOMNO
NS hbbbuuuwug
WA = OV~

WILL BE

USING A WRITE HEADER AND DATA COMMAND,
EACH TRACK (32
ABOVE
DATA
SECTORS) 1S FORMAT TED IN 16 BIT MODE USING THE

WAV
VIVIA VAN WV
O VWAV
S B

SETTING THIS BiT IN 16 BIT MODE, ALLOW
SECTORS ON THE TRA

VIV

520
%;

THF PROGRAM WILL THEN FORMAT
HECK
HEADER
AND
DATA)

THE SKIPPED SECTOR ERROR INHIBIT BIT (S
RMOF
REGISTER
SET BEFORE EACH WR
IS

i
LY e

516
517
5§18
519

NULL RECORDS DURING A 16 BIT

R OF NEWLY DETECTED DEFECTS CAUSES
T0 EXCEED
E_MDBSF AND THE UDBSF
NTINUES THE FORMAT AND DISPLAYS AN
HE PROGRAM THEN RESTARTS THE FORMAT
TOR INFORMATION ALREADY IN THE MDBSF,
TTER, UNDER THESE CIRCUMSTANCES, WILL

CZRNJBO RMBO FORMATTER MACRO M1113 15-SEP-82 14:16 PAGE 12
56
56
564
565

SEQ 0011

WRITE
THE
TRACK
STRUCTU
CORRECTLY, ONLY = NO MEDIA
OPERATOR WILL MAKE THE DET

IT IS TO BE REPLACED.

339
ggg

7.0

RECONSTRUCTION DESCRIPTION

2;?

7.1

OLD DEFECTS

580
ggg

576
577
g;g

THE

SSF 1S CHECKE

5§75

THE TRACK IS RECONSTRUCT
BIT MDBSF, THE 16 BIT UD
ENTRY EXISTS, THE
LISTED AND
IN A
CURRENT TRACK.
(SEE S

72
g;z

ENT TRACK.

R OF THE
SECTOR
THE END OF THE

THE DEC STD 144 FILE
CURRENT TRACK.

583
584
585
586

587
ggg

FOR DEC
STD 144
OR ON A TRACK WHI
APPROPRIATE HEAD
FILE
CONTAINING
ADDRESS (PHYSICAL
STD 144 FILE.
(S

590
591
592
593
ggg

SECTOR,
FOR DEC STD 144 ENTR
CCUR AFTER A SKIPPED
RESET
(MF
OR
UF,
ACCORDING
TO
THE APPROPRIATE HEADER
T
ADDRESS).
ALSO,
THE
DEFECT
THE FILE CONTAINING THE DE
LISTED
IN THE DEC_ STD 144 FILE BY LOGICAL ADDRESS.
SECTION 9. 4 - 9 11) THE LOGICAL ADDRESS IS:

600
285

603
604

7.2

NEWLY DETECTED ERRORS ON TRACKS
HANDLED AS FOLLOWS:

2‘%

ALREADY

9.3)

HAVE

ERRORS,

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

IF
THE ERROR OR OCCURS AFTER
ADDRESS OF T HE SECTOR IS ENTERED IN TH
UF
BIT
1n THE HEADER OF EACH ERRORED S
= 9.10) THE LOGICAL ADDRESS

SECTION

(SEE SECTION 9.1 AND
R THE LOGICAL
DB‘F AND
THE

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

g}g

616

ADDITIONALLY, IF THE

618

16 BIf UDBSF.

617

WHICH

3 OF EACH ERRORED SECTOR IS RESET.
HEADER

60¢

407

611

HE oe;sg; 1S LISTED IN THE DEC

NEW DEFECTS

605

508
609
610

ESET (MF OR UF, ACCORDING T2 THE
ADDRESS).
THE ACTUAL

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

ggg
ggg

CH OCCUR BEFORE A SKIPPED SECTOR
#AVE
A
SKIPPED
SECTOR,

ERROR,

THE

SECTOR'

(SEE

SECTOR

HAS

HEADER

CA L ADDRESS IS ALSO ENTERED IN THE
9.5) HOWEVER, IF THE HEADER ERROR

SEQ 0012

WHICH

LD DEFEC
UDBSF F

o—.—-.

—>m

HEADER F IEL D DE F
C TOR W WITH
DATA
H E 16
N TERED E D IN

T -y

S LOGICAL ADDRESS IS ENTERED IN

(SEE SEC

——
Y

SF.

oTMmm

Loateate
L ealeaTo e Yo 8
W
NN
O~$$O~O~O~O~~N~N~NN
J\uN-‘OOmNOU\P‘WN—'g

CZRNJBO RMBO FORMATTER MACRO Mi1113 15-SEP-82 14:16 PAGE 13

E
E
1.

G STARTS WITH THE FIRST

SKIPE

RACK.

SF.

THE
__HEA
SECTORS
HAVE SSE
THE

THE HEADER OF

HEADER FIELD AND DATA FIELD
SECTOR WILL BE ENTERED
IN THE

THE

THIS DEFECT

AND THE HEADERS OF THE
SECTOR

WILL

BE RESET IN THE HEADER OF ALL NON-SKIPPED

ADDRESS.

SECTOR

T RACK FOLLOWING THE SKIPPED
T

READABLE.

(SEE SECTION 9.2)

E__SKIPPED

SECTORS EVE

(PRIMARY), NON-HEADER

THE PHYSICAL ADDRESS OF

(SEE SECTION 9.3)

THE ERROR SECTOR MAY NOT BE

D EFEC }%
16 B

PRECEDING A SKIPPED

MDBSF

PHYSICAL

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

BE MARKED AS A SKIPPED SECTOR, EVEN IF THE DEFECT AFFECTS TH
E
gE?gER.
AND ITS ADDRESS ENTERED IN THE SSF.
(SEE SECTION
4.

MULTIPLE DEFECTS WITHIN A SECTOR WILL BE_CONSIDERED A

SINGLE

NEW DEFECTS DETECTED ON PREVIOUSLY ERROR FREE TRACK. WITHIN
THE DEC STD 144 AREA, THE SSF TRACK., OR THE FE TRACKS ARE NOT

DEFECT.
IF_
BOTH THE HEADER AND THE DATA FIELD ARF AFFECTED
BY DEFECTS, THE HEADER DEFECT WILL TAKE REPORTING - .CEDENCE.

ENTERED IN THE 15 BIT UDBSF.

IF APPROPRIATE, A DEFECT ON ANY

OF THESE TRACKS IS SKIPPED AND ITS ADDRESS IS ENTERED IN THE
16 BIT SSF.
IF A DEFECT WITHIN THIS ADDRESSING RANGE CANNOT

BE SKIPPED,

THE DEFECT WILL BE TREATED AS A DEC STD 144 ERROR

(I.E.,
THE UF BIT IS RESET IN THE HEADER) EXCEPT THAT THE
ADDRESS OF THE DEFECT IS NOT ENTERED IN THE 16 BIT UDBSF.

8.0

BAD SECTOR FILE LAYOUTS

8.1

SKIPPED SECTOR FILE (SSF)

THE SSF HAS STORAGE SPACE FOR THE PHYSICAL ADDRESSES OF 378 SKIPPED
DEFECT ADDRESSES ARE STORED IN_THE SSF IN ASCENDING
SECTORS.
SEQUENCE IN THE SAME FORMAT AS IN THE DEC STD 144 FILES, I.E.,

CZRNJBO RMBO FORMATTER MACRO M1113 15-SEP-82 14:16 PAGE 14
678
679
680
681
682
683

SEQ 0013

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 gs
REPEATED
S
TIMES ON THE FIRST TRACK OF THE FE AREA:
CYLINDER 559, TRACK 0.

ggg

THE SSF

TRACK

IS WRITTEN IN 16 BIT MODE.

686

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

689
690
691
692
693

THE
SSF
FOLLOWING
MECHANISM
BIT MODE,
PASS
THE

232

USED NOR PRESERVED DURING 16 BIT FIELD FORMATTING.

697
698
699
700

THE
SSF FILE LAVOUT FOR BOTH 16 BIT MODE AND 18 BIT MODE FILES ARE
AS FOLLOWS:
;

702
703
704

WORD 0

23;

IN THE SAME FORMAT.

694

IN THE DEC STD 144 FILE.

701

705

WORD 1

706
707
708

WORD 2

710

WORD &

WORD 3

709

712

713

214

715

FILE
FOR 18 BIT MODE DEFECTS WILL BE REPEATED 5 TIMES
THE 16 BIT SSF
FILE.
SINCE
SKIPPED SECTORING
IS A
WHICH IS INHIBITED WHEN THE RMB0O IS BEING OPERATED IN 18
THE USE OF THE SSF FOR 18 BIT MODE ADDRESSES IS ONLY TO
18 BIT MODE ADDRESSES OF HDA DEFECTS WHICH DO NOT APPEAR

;

WORD S
WORD &

R T

T T T

THE 18 BIT SSF

T T T

COPIES

R TR

.
HDA SERIAL NUMBER (LSB)
et
e 550 A
A
HDA SERIAL NUMBER (MSB)

!
!

718

WORD 8

720

WORD 9

722

WORD 10

724

WORD 11

726

WORD 12

728

WORD 13

717

719
721

723
725

727

729

730
731
732
733
734

SERIAL NUMBER IS A 31
BIT BINARY NUMBER

tetetotntetntatotatetatetatatatasd

J
YEAR
!
MON
!
DAY
!
tetetobntbotototatatotatatatatat=d
!
YEAR
1
N
!
DAY
!

tetetotototototntetatetotmtatatat

)

REVISION NO

botetotatototatatetatatetctotated
:

UNUSED

FORMAT TYPE

totetetmtntntntatatatetotatetat=t

UNUSED

CREATION DATE
(YEARS SINCE 1978)
REVISION DATE
(YEARS

SINCE

1978)

FORMAT TYPE:

=¢

WORD 7

NEITHER

tobetmtmbotbotointatatatatatat=t

716

WILL

UNUSED

HEADER

1= 16
B

18
B

WORDS

UNUSED

NUMBER OF SSF ENTRIES

CHECKSUM

SSF HEADER CHECKSUM

CYLINDER ADDRESS

PHYSICAL CYL. ADRS

PHYSICAL ADDRESSES

NULL ENTRIES WILL

bobototobotototototatotatadatatad

WIiLL BE ZERO FILLED

bebutototatntctatatatetototatatatd
tetoitmtototetotntatetetotatatatad

0-0-0-1-0-0-0-0-9-0-0-4-0-4-9-0-o
tetetototctotatatotototntatatatat

TRACK

SECTOR

tetetetototototatototatatatatat=t

ONE'S

0-0-0-0-o-o-o-0-0-0-0-9-0-0-9-0-:

:
/
/
:

.
/
/
:

tetotetotototntatototatotatatat=t

BE ONE'S FILLED

CZRNJBO RMBO FORMATTER MACRO M1113 15-SEP-82 14:16 PAGE 175

SEQ 0014

WORD 766 !

ONE'S

WORD 767
!

CHECKSUM

Q-0-0-0-0-0-’.0..-0-0-.-0-0-0-’-0

DEFECT ADDRESS FIELD

tetmtebotobotetatatetatatatatates

THE

CHECKSUM

CALCULATED

USING

THE FOLLOWING ALGORITHM,

THE

THE SSF HEADER FIELD AND ONCE FOR THE SSF

DATA

CHECKSUM CALCULATION lS BASED ON

?EEESTED

ONCE

FOR

(HECKSUM

16 BIT QUANTITIES (WORDS)

AND

SIZE = FIELD_SIZE_IN_16_BIT_WORDS
CHECKSUM = 1

REPEAT

CHECKSUM = CHECKSUM + (16_BIT_WOR D

CHECKSUM = HE%KSUH .ROTATED_CEFT_1_8BIT.
SIZE = SIZE -

UNTIL SIZE .EQ. O
END_REPEAT

THE ROTATE REFERED TO ABOVE
G o e o

2 o

e 0w T D e

D 3

IS THE FOLLOWING:

) > e D O 9

B4 @ W S O

]

Putorfopwbrudmintododombn pautotadodod

in] Ce== 115!

‘=9

10!

dotbobototobntotrbnbotototototat=d

‘#' REFERS TO EITHER THE °'C'
BIT FCR PDP=11 OPZRATION OR BIT 16 FOR
MACHINES OTHER THAN THE POP=11. NOTE THAT THE ROTATE
OCCURS AFTER
THE

ADDITION;

THE

BIT

SHIFTED

INTO

THE

LSB_POSITION OF

35%3:?%3550 CHECKSUM IS THE *CARRY OUT' FROM THE
8.2

16 BIT

THE

ADDITION

DEC STD 144 MANUFACTURING AND USER BAD SECTOR FILES
THE
DEC
STD 144 FILE IS CONTAINED ON TWO TRACKS ON THE RMB0. THE
FIRST TRACK IS THE PRIMARY COPY OF THE FILE, THE
SECOND
TRACK
1S
THE
SECONDARY
COPY OF THE FILE.
THE PRIMARY COPY OF THE DEC STD
144 FILE IS unxrr u ON THE LAST ADDRESSABLE
TRACK BEFORE
THE
FE
cy LINDERS
(CYL558, TRK 13); THE SECONDARY COPY GF THE DEC STD 144
Fl

LE IS WRITTEN AT éYL 559, TRK

BOTH THE PRIHARV 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 THE FILE.

WORD 0
WORD 1
WORD 2
WORD 3

120-0-0-0-0-0-0-0-0.’-0-0-0-00090
!

HDA SERIAL NUMBER (LSB)

HDA SERIAL NUMBER (MSB)

ZERO

toteintetotetetetatatatatatet=t=¢+

totobotnbmtotbatntotontototototat=t
Q-Q -0.0-.-0-0-0-0.0-0-0-‘-Q-’-’-Q

SERIAL NUMBER IS A 31
B]T

BINARY

NUMBER

CZRNJBO RMBO FORMATTER MACRO M1113 15-SEP-B2 14:16 PAGE 16
794

795

tetefetetototatniatatatatatatatans

796

WORD &

798

WORD §

800

WORD 6

802

WORD 7

797
799
801

803

804
80%
806
807

CYLINDER ADDRESS
TRACK

{

0-0-0-0-.-0-0-..0.0.0-0-0-0-’-.-.

o-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0

0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0

Q----Q-’-’-Q-’-’.0-0-0-’.‘-0-0-0-0

WORD 254

!
0-0-0-o-0-0-0-0-0-0-0-0-0-4-0-0-0
WORD 255 !

betobotobatatotototetatatatatatat

0O~

b d cd d e

WSS

0o 0o 00 0o 00 0o

812

!
/
/
!

808

809
810
8N

SEQ 0015

THE
16 BIT
MDBSF WILL BE URITTEN IN SECYORS 0
TRACKS'
PRIMARY AND SECONDARY DE
THE 18
16 BIT U
WRITTEN 6N1ZSECTOR

14....30 "THE 1
11.13,15....28.

secr RS 1

CZRNJBO RMB0O FORMATTER MACRO M1113 15-SEP-82 14:16 PAGE 17

887

00 00 00 00
e00
NN AR
e RO o

OgNO VS UVIN =00 oO~NOWV o

82
&2

9.0

SEQ 0016

ERROR TYPE DESCRIPTIONS

DL
L L L ]

ke LR T

ket +

4a=e=> 144 PHYSICAL ENTRY ('D’ OR "H' ERRCR)

|¢mamemmcncancnne 'SSE!

Re
Al B

e e

i Si

i A

SF] mememecoanes —e>31]

4eme==> SSF ENTRY

840

: (o

¥4

e A

on i m m n m

1S
e

' ssE ’

SE'

-------- coooce -)31 :

)

e e

e R R

susney §8F

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

o
o me

000

338ERERRRTRET

:(--------------e

b=é

iSi
e

§SF Coment

5.
3

. ssE .

SE '

' s 1

todd

.
)

-===>31!

-—d

fronmamnscercrnesdodoeamemwewendodm

$8F Comuet

|¢mmmmmmmemeaean 'SSE' SET

]

)31 :
-

¢====> 144 LOGICAL ENTRY

LY )

cosvesscscecnecaan E

'
L]

| 4====> 144 PHYSICAL ENTRY

4====> 144 LOGICAL ENTRY

CZRNJBO RMB0 FORMATTER MACRO M1113 15-SEP-82 14:16 PAGE 18

SEQ 0017

O
R

:<------.--------

1St
A

SSF Coment

o
R

' SSE '
R

1DiD}
ek 2

]

SEY

e an

------)31 :

e L

| 4eee=d 144 LOGICAL

4em==> 144 LOGICAL

: {emnsvncnocvnncns
e

¢ ssE ’

HLE

SE T

--------o------)}l :

Q--------------.QT’-----.-----0707070--‘--‘--------.--- ....... 3

§SF Cmmems

| 4me==> 144 PHYSICAL
| #eee=> 144 LOGICAL

144 LOGICAL <====t

{¢ememennemneeaee 'SSE'

docsecncncces

‘=t

tomew

070

bobobay

SET

>31:

HL H

0707070

SSF Cmemet

{1 4eee=> 144 PHYSICAL

S N

d e

NN
W —-O

000000000§

i 4e===> 144 LOGICAL
144 LOGICAL <====+

dronconesecennecen 0-0----“-----0:070-0

SSF Comemt

d o

cmpoteccccnnancatotated

HID:

Pog

—t

:
i #====> 144 LOGICAL
144 LOGICAL <====t

10.

{¢emmmmmnaemnnane 'SSE' SET =mcmccmmccceee- >311

tecncssncnncavssleloccnsssssersscrrreerrEcReRTEEEaeeaeene
eb

tevccoccncssscess
o lrnscccnscnsscccscnnane

SSF Cmmmmt

——-e

144 LOGICAL <====t !

'D* OR 'H'

ERROR <====~+

CZRNJBO RMBO FORMATTER MACRO M1113 15-SEP-82 14:16 PAGE 19

11.

SEQ 0018

’------'....---------.---------.--.--.---------.-.-----------.. ’
'

' s '

o &

SSF ("SSE’ SET) Coe==s

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

NOTE:

'D'

'S'

TA
DATA
Fl

IS A SKIPPED SE

'H'

IS A HEADER FIELD DEFECT;

CZRNJBO RMBO FORMATTER MACRO M1113 15-SEP-82 14:16 PAGE 21

SYMBOL TABLE

. ABS.

000000
000000
ERRORS DETECTED:

000
001

VIRTUAL MEMORY USSD:
19 WORDS
_( 1 PAGES)
DYNAMIC MEMORY:
586 gORDS
( 31 PAGES)
ELAPSED TIME:
00:00:

.L300,301CZRNJB=(300,101BEG.DOC,CZRNJB.DOC,END.DOC

SEQ 0019

CZRNJB.TSK;1 MEMORY A% LOCATION MAP TKB PAGE

-JuL-82

TASK
NAME
PARTITION NAME

:
:

TASK
TASK

:
:

15:03

SEQ 0020

CZRNJB
GEN
IDENTIFICATION : g1.oo

6§°°"°]

LIMITS: 0%617% 026501 000310 00200.

PRG XFR ADDRESS:
TOTAL ADDRESS Wl
TASK
IMAGE
SI 4
TASK ADDRESS Ll:
R-W DISK BLK LI

02650
DOWS: 1

st bt (Y 2

STACK

UIC
PRIORITY

*++ ROOT SEGMENT :

: 14432, WORDS

1S: 026000 116863
1S: 000002 000072 000071 00057.
FMTROT

R/W MEM
LIMITS: 026000 116263 070264 2885;.
DISK BLK L IMITS: 000002 000072 000071 00057.

MEMORY ALLOCATION SYNOPSIS:

TITLE

SECTION

IDENT

« BLK.:(RW,I,LCL, REL.CON) 026502 020460 08496.

026502 000276 oo19g. FMTROT 01.00

FMTROT.O0BJ;1

027444 000152 oo1go.
0%7616 001666 009 g.
031504 003032 8'53 .
034536 ootosg 0534.
035564 0011
88233'

FMTDAT 81.00
FMTMSG 01.00
FMTSUB 02.00
FMTPRS 01.00
FMTR80 1.80

FMTDAT.0BJ;1
FMTMSG.OBJ:1
FMTSUB.OBJ:?2
rnrraa.oaJ;1
FMTR80.0BJ:1

047200 gooo 1 88825. FMTPRS 01.00

FMTPRS.0BJ;1

047232 000016 00014. FMTPRS 01.00
REL,CON) 047558 008166 oo113.
047250 000166 00118. FMTPRS 01.00
$SRESL: (RW,1.LCL, REL,LON) 047436 ooogab 00166.

FMTPRS.0BJ;1

047704 046356 19694. FMTDAT 01.00

FMTDAT.0BJ;1

027000 000444 00292. FMTIO

0%6670 oolgaa
.
040136 001516
00846.
041654 001316 00718.
043172 oo1§7o 00696.
oaaaes 000370 3004 .

IMP
000016
00014.
: (RW,D,L
URE
CL, REL.CON) 047162
- $KSTR :(RW,D,LCL, REL.CON) 047200 oooo§1 00025.

$KTAB :(RW,D,LCL, REL,CON) 047232

FILE

000016

01.00

FMTRBF
02.00
FMTR8V
02.00
FMIR
.00
FMTRBL 01.00
FMTINT 01.00

00014.

$$$8BF
: (RW,D,LCL, REL.CON) 047704 046356 19694.

FMT10.0BJ:1

FMTRBF.O0BJ;?2
FMTR8V.OBJ:?
FMTRBM.0BJ:2
FMTRBL.0BJ:1
FMTINT.08J:1

FMTPRS.0BJ;1

GLOBAL SYMBOLS:

BASYR

000116

IE.BLK 177754

IE.OFL 177677

10.DET 002000

10.HMS C04000

10.RLB 001000

10.RTD 004120

DPARS

035740-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.70D 004140

GENHDR 034400-R

IE.EOF 177766

10.BLS 004010

10.FEW 004210

10.RDH 004030

10.RPD 004170

10.WCH 004110

CZRNJB.TSK;1 MEMORY A%LOCAT&%N MA g TKB PAGE 2
1 :03
=JUL -

SEQ 0021

FMTROT

10.WCK 004050

$DSKWC 027000-R

$MGPRE 037632-R

10.WDH 004040

$DSKWH 027014-R

SMOVE

10.WwPD 004160

$DSTRB 042166-R

$MSGR8 031366-R

10.WTD 004130

SDVICE 027446-R

10.UMD 000004

$MSG32 030714-R

SMXTRK 027566=R

$SRALL 033654=R

$STVFL 035446-R

$MSG4

SNONSI 002416

SSRFES 033726-R

$SWERL 047715-R

$MSG40 030742-R

$PARSE 034536-R

$SRMDF 033740-R

SSWFFE 047721-R

$MSGWR 031414-R

$MSG41 031000-R

SPAT

027462-R

$SRSDF 033764-R

$SWFMT 047720-R

SDVPRM 027560-R

$MSG1

027634-R

$MSG42 031026-R

$PHYDV 027606-R

$SRSSF 034046-R

$SWINT 047722-R

MSGER8 042021-R

SDVUNT 047734-R

$MSG10 030122-R

$MSG43 031056-R

$PRINT 027256-R

SSRTMF 034166-R

$SWLOG 047717-R

OPTKT2 047232-R

$EROCT 031600-R

$MSG11 030143-R

$MSG44 031103-R

$PRMPT 031754=R

$SRTRK 033612-R

$SWLST 047716-R

OPTST2 047260-R

$EROUT 031536-R

$MSG12 030167-R

$MSG45 031141-R

$PRNTO 027262-R

SSRTSF 034132-R

$SWMOD 047723-R

027472-R

$FEBSF 116062-R

$MSG13 030177-R

$MSG5

027707-R

$RDBSF 032322-R

SSRTUF 034222-R

$SYSIZ 003456

SKPFRE 047724-R

SFLCYL 047744-R

$MSG15 030225-R

$MSG58 031166-R

$RDSSF 033156-R

$SRUDF 033752-R

$TRK

SPEFN

000003

$FLRGS 040024-R

$MSG16 030237-R

$MSGS9 031233-R

SREAD

027470-R

$FLSEC 047750-R

$MSG17 030246-R

$MSG6

027737-R

SRETRY 027466-R

$SSFDT 001365

$TSTDV 035054-R

CUNTKT1 047232-R

SFLTRK 047746-R

$MSG18 030256-R

$SMSGEA 027762-R

SREVNM 047712-R

$SSFHD 000013

$TSTMX 032216-R

UNTST1 047250-R

SFMTEP 026502-R

$MSG19 030301-R

$SMSG6B 030004-R

SRGBUF 047760-R

$SSFLB 027454-R

$UBSSZ 027574-R

SALFLB 027450-R

SFMTEX 031464-R

$MSG2

$RMBO

$SSFLN 000003

SUCB

SFUNC

027476-R

$MSG20 030324-R

$MSG70 031274-R

SRMBOF 037226-R

$SSFSZ 027460-R

SUDBSF 112062-R

SBUFRX 110242-R

SHDRFG 047742-R

$MSG21 030351-R

$MSG71 031307-R

SRMBOI 044550-R

$STARS 027620-R

SUNTID u32266-R

' $BUFX

110242-R

$HOMSK 031710-R

$MSG22 030403-R

$MSG72 031322-R

SRMBOL 043554-R

SSTATS 027444-R

SUPDMX 032120-R

$CONPB 027524-R

$INADD 047710-R

$MSG23 030427-R

$MSG73 031344-R

SRMBOM 042104-R

$STCSR 035222-R

SVERIF 047725-R

027616-R

$10BUF 027510-R

$MSG24 030474-R

$MSG8

030043-R

SRMBOV 040354-R

$STERL 035500-R

SWLKER 027250-R

$CVIDA 031636-R

$10ST

(027554-R

$MSG25 030502-R

$MSGBA 030070-R

SRTCNT 047732-R

$STFFE 035544-R

SWTBSF 032730-R

047752-R

SLBNH

027516-R

$MSG26 030510-R

$MSG9

030076-R

SR80SF 037156-R

$STFOR 035550-R

SWISSF 033464-R

$DEVHD 003334

SLBNL

027520-R

$MSG27 030540-R

SMULT

032046-R

$RB0OTF 037220-R

$STIN

035556-R

$XFRSZ 027512-R

$DSK10 027020-R

$LOGDV 027576-R

$MSG28 030574-R

SMVPAT 031504-R

$SCB

047706-R

$STLIS 035536-R

SYESNO 047714-R

$DSKPB 027474-R

$MBSSZ 027572-R

$MSG29 030626-R

SMXCYL 027564=R

$SEC

047756-R

$STLOG 035532-R

$DSKRH 027006-R

$MDBSF 111062-R

$MSG30 030650-R

SMXLBN 047736-R

$SMBSF 033774-R

$STUNT 034736-R

$DSKRT 027030-R

$SMESAG 031422-R

$MSG31 030671-R

SMXSEC 027570-R

$SNAME 047726-R

$STVEC 035336-R

SECSZ

:‘RKSZ

$8UF

$CR

$CYL

050042-R

031744-R

027645-R

$MSG7

027662-R

030025-R

027342-R

035746-R

$SSF

113062-R

047754-R

$TSTDA 032160-R

047704-R

<-4 |wo@slxmIT-0O4Ow04>O»0o>I2T.IX«»@OTxL[=-

r-Oo1WL<fls"w2-W<>Em>->O]VJwvgbW=Zo.2l—Wmw—>NV>EuCI0l2BwOIWoVOnWVL—g].wosoo[T”.-[D~o=]
O[+].D—RRNRoSTRNTORIMN«NI3=TNNINOOL2MR=NLLOwO3MHOM~IMIMwMMODIINI—ON.NNORRoOLb
—

om(=1 (=]

-4 X N ey gy 10(7, - -

w<g IO —wWwE WINZ0V0 —

AA A R O O N e - e e
PAGE 3

Q[—a04-OwVudvZ2naSLoA—c-itVn=— @~x—Q~Xo->a0w. 2wo=-e4 Aa[o]4<LT«Vw=-—e<vg e2wAED-Ood "O-=wI o>b—t-l=an

—

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

2
SEQ 0022

>WD-—e_a—)

[

SEQ 0023

4%
#SFMTEP,SP
§§VSIZ.040'26.

Mmmmmmmmm

I1TCH
ENERATION SWITCH
EBSF MODIFY SWITCH
R EVISION NUMBER
T0 CLEAR

A
NISHED

s PROMPT AND PARSE COMMAND LINE

#$MSG4 ,RO

; ASSUME DEVICE NOT IN SYSTEM
; IF CC, DEVICE IN SYSTEM

$MSGWR

[=}
1

—

(=}

1 ON
ATION
NISHED

SLEAR IN THE FE BSF BUFFER

$PARSE

FMTPRM

6$:

CALL THE

THE FORMAT OPERATION.

IF HIS, YES
ELSE CRASH THE SYSTEM!!

#DSKLUN,$DVICE,RY

0000006

—x-—gnm =D s DT = OO VOO DD DDVDDOVD

T
T
TR T
T
* 20

#-1, (RO)+

4%:

E DISK PARAMETERS,

coTM orco 1

TR TR TR TR TR TR LR LR LR LA L

<2 —-OZTMTONZD
MBEANTO AMAO 0O

ogss.-<sssan>.n
#$SSF RO

000000
0000006 001400

0000006

("T T T
T TR

000000C
0000006
177777

3s:

~~
DNV
O

P
Me

2%:

~De
VD

1%:

DRVBVBVIVB/B-DOIR/BRRAAAAAAANAH
W I PO

0000006

o
<

R
R ———

[alalalalalalalalala)

gOOOOOO

gNQNg

0
00
6

~NNO

N
NN

883

89 000232
9? 000236

$FMTEP::CLRB
CLRB

5%:
OwnN
—=O~N

3 ~NO WA SS 35 N ANNIND
= b =
~N oo

D
-PD

D e

D ol

D o

wnd

8 §o§oo
3888 §8888888 ]

SJRAR

83 000226

-‘OOSOOOQOOOQOOOOOO 80000-’8

sSoonos FNONO&N&N

ON) =
O b
OO = ad e OO b i d
© b b bb
fodel=lelelelelele)
ANON N =2 UMD =2 VNI NI N =2 WA NI N =4 PO NN A WAWAWIVAVIWVIVIVIALN
© N NUNN NN NN SN N NN NI N - WANNNNO
OO
onN
ONONOONONOC NONOOOOON
oMTM
-y
SWO
W NWOOWSN NOO WS WO OWN NN NNNNNNN

O=0O
OO

000000
000004
000010
000014
0000%0

M-

THIS ROUTINE WILL CALL THE PARS ER,

~NNNN

N —

Co0o

ACTUAL FORMATTING ROUTINE, & CLEAN UP

79 000174
00

PAGE &

*+=$FMTEP=-FORMATTER ENTRY POINT

AWV
SS 85 55 05 85 0 85 85 5 Wi
B3V VIS NN 3332223228 3 00
~IOM U I LN = £330 00 ~I O I NI = 50 00 IS

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

s ASSIGN LUN TO DISK

H EXIT WITH WARNING STATUS

: ATTACH THE DISK
012703

000000C

FMTPRM: MOV

CALL

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

s ATTACH DISK FOR FORMATTING

FMTROT - RMB0 FORMATTER ROOT MO MACRO M1113 12-JAN-82 11:01 PAGE 4-% ’
93
94
95
o0

SEQ 0024

15K PARAMETERS RE TURN THE HEADS HOME AND
UAL f FORMAT ROU fin

000167

000900°*

0000006

LOLULOD — APRWP

LCE L
—td
WE>OEOE
WVIw Vo

0
0
0

——— e —

J=MWeleleleleNleO)O[O

+END

SFMTEP

; RESET DISK PARAMETERS
00 A
¢ ALL
D0 A
3 XIT

RECAL IBRATE
THE FORMATTER
RECAL
GRACEFULLY

012

FMTROT = RM80 FORMATTER ROOT MO MACRO M1113 12-JAN-82 11:01 PAGE &4-2M .

SEQ 0025

SYMBOL TABLE

C$SORE= 002000

S$$YSZ=

001400

UC.ALG=

U.Cw3

UZ2.NEC=

004000

Ce8TTY=
DSKLUN=
pv.CCL=
DV.COM=
DV.DIR=
DV.F11=
DV.1SP=
DV.MBC=

177564
weeess GX
000002
020000
000210
040000
002000
000400

$1.CT0=
$1.C18=
S1.DEC=
S1.DPR=
$1.DS1=
S1.ESC=
S1.1BF=
S1.18Y=

000040
81 000
000
8 000
004000
000004
100%80
800 0

UC.KIL=
UC.LGH=
UC.NPR=
UC.PWF=
UC.QUE=
US.ABO=
US.BSP=
Us.Bsy=

u.p(8
0
U.FCDE=
4
U.FNUM=
36
U.FPS =
44
U.KCSR=
2
U.KCSé=
4
U.Lulc
f
U.OWN
177776

UZ.RMT=
UZ.R04=
U2.5CS=
UZ.SLv=
U2.v15=
u2.7¢ti=
VS$S$CTR=
VSSRSN=

00
80
4
000200
8 02
010000
000400
000032

DV.PSE=
DV.PEC=
DV.SDI=
Dv.Sab=
DV.SWL=

010000
000001
000020
000040
001000

S1.RST=
31.RUB=
$1.UsI=
S2.ACR=
$2.BRA=

000001
000008
02000
000001
000020

CSSRSH= 17;264

S1.BEL= 80400

DV.MNT= 100000
DV.MxD= 000100
V.0SP= 004000

$1.08Y= 000100
S1.RAL= 008010
S1.RNE= 00 080

DV.TTY= 000004

$2.CR = 000010

DV.UMD= 000200
D$$1AG= 000000

$2.FDx= 100000
S2.FLF= 040000

' D$$SL11= 000001

S2.HFF= 020000

- FMTPRM 000232R
- HSSRTZ= 000074

S2.HFL= 003400
S2.HHT= 016000

UC.ATT=

US.CRuW=
US.DSB=
US.ECH=

US.FOR=
US.FRK=
US.KPF=
US.LAB=
US.MDE=

US .MDM=

US.MNT=
US.OFL=

US.ouT=
US.PUB=
US.PWF=

80
00

1
5

&
881
0
8006
8002
80 001
000004
0000 8
8 0
100
8 001
000001
000004

0810

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

US.RED= 000002
US.SHR= 000001
US.SPU= 00008
US.UMD= 8 001
US.vv =
001
US.WCK= 8 0010
U.ACP = 00035
U.ATT
80002
U.BUF
4
U.CBF = 0
2
U.CLI
177772
U.CNT
800030
U.CTL
0002‘

R$$11M= 00000

$3.WES= 000040

U.Cw1

| RESM11= 000001

S3.WAL= 004000

| R$$11S= 000000

$3.88C= 000200

S$$WRG= 000000

177776
00 0276
| ERRORS DETECTED:

T$SMIN= 000000

|« ABS.

U.CTYP

0800 0

U.Cwe

00012

8 0010

U.Cwé

U.RED
00000
U.RPS =
L
U.SCB
8
U.STS
u.ST2
U.TCHP
U.TCVvP
U.TFLK

00005
88007
86§
00004
000040

U.TLPP
U.TMTI

000036
000847

U.TTAB
U.TTYP

000034
000046

U.TFRQ

U.TSTA

3572 WORDS

DYNAMIC MEMORY:
7942 WORDS
E%APSED TIME:
00:00:18

000%7

800 gb

U.Tux
000024
U.UIC_
000044
U.UNIT 000006
U.vCB = 000034
U2.AT.= 000020
U2.CRT= 002000
U2.DH1= 100000
u2.0J1= 040000
u2.0Z1= 000100
U2.ESC= 001000
US.HFF= 010000
UZ2.HLD= 000040
U%.LOG= 000400

uZ2.LWC= 000001

u2.L35= 000004

U2.L85= 010000

009
00 1

| VIRTUAL MEMORY USED:

( 14 PAGES)

( 30 PAGES)

£300,20)FMTROT,[300,301FMTROT=C1,1JEXEMC/ML,[1,60IRSXMC/PA:1,[300,10)FMTROT

UZg.PRV=

x$$087= 000000
SCYL = wwenee GX
$DSKI0= weewes GX
SOVICE= weeews GX
SFEBSF= tesvee GX
$FMTEP 000000RG
SFMTEX= senwee GX
SHOMSK= seneer GX
SMDBSF= sewsas GX
SMSGWR= *exses GX
SMSGL = wxwmse GX
SPARSE= #swssxs GX
SREVNM= sssves GX
SRMBO = wewnesr GX

$SEC =
$SSF =
$SSFLN=
$STATS=
SSWERL=
SSWFFE=
SSWFMT=
SSWINT=
$SWLOG=
$SULST=
$SWMOD=
$SYSIZ=
$TRK =

nwnese GYX
wanese GX
sewean GX
seaness GX
#wwwen GX
waxven GX
sexeese GX
eevsns GX
sawees GX
sawens GX
wewews GX
weanner GX
wexsee GX

SUDBSF= wewsxe GX

SVERIF= swxaxx GX

SYESNO= wwnsxs GX

Lol
'
—Z

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

SEQ 0026

FM 11 8 = 1/0 ROUTINES
/0 1. 0/

ALBLLBRRRLRRLLRRRLRRlRlRlRRRlRlL A

—YTOUMONNUOMNININ(NVMO~NeOeeOeOe—eUMINONO

0013

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
NSE FOR U'SE ON LY
LY WITH THE IN CL
TWARE, OR
ANY
RWISE
MADE AVA]

OF
COPIES THERE
T0
ANY
OT
WHO AGREES
THE SOF TWAR
THE

CH SYSTEM AND T

INFORMATION

IN THIS DOCUMENT

IS S UBJECT

NOTICE AND SHOULD NOT BE CONSTRUED AS A
EQUIPMENT CORPORATION.

TO CHANGE WITHOUT
COMMITMENT BY
DIGITAL

siBl
DIGITAL ASSUMES NO RESPONSIBILITY
FOR THE
WHIC
ITS SOFTWARE ON EQUIPMENT
WHICH IS N T SUPP

VERSION 01.00

C. HESS
M. LEAVITT

«MCALL

DIRS

14-AUG-80
15-0C7-80

vy e

AW
LS 85 85 05 0 0 8 B D
i
SN
=2 OOV
N

*+=$DSKI0-ISSUE
*+=-$DSKRH=]ISSUE
++=$DSKRT=RETRY
*+=$DSKWH=-ISSUE
*2=$DSKWC=1SSUE

QIO
QIO
QIO
QIO
QIO

TO DISK
TO READ HMEADER & DATA
TO DISK
TO WRITE HEADER & DATA
TO WRITE CHECK HEADER £ DATA

SUBROUTINES TO ISSUE

1/0 FUNCTIONS TO A DEVICE.

00 IO N o LG 2 530 00~

INPUTS:
R3 = 1/0 FUNCTION CODE (IF ENTRY IS AT $DSKIO)
RS = BUFF%R ADDRESS
ENTRY AT SDSKRT ASSUMES THAT THE DPB IS ALREADY SETUP.
OUTPUTS:
THE QIO DIRECTIVE IS ISSUED.
IF THERE WERE NO ERRORS, THE
CARRY BIT WILL BE CLEARED.
IF THERE WAS A PARITY ERROR
(1IE.VER) OR A BAD BLOCK ERROR (IE.BBE) CARRY WILL BE SET.

IF WE ARE FORMATTING A

'‘DB''

DISK A BLOCK NUMBER VIOLATION

(JIE.BLK) MAY HAPPEN WHEN WE ARE FORMATTING THE LAST SECTOR.
FOR THIS CASE CARRY WILL BE RETURNED CLFAR.
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:

IE.HWR

2. IE.DNR
3. 1E.DAA

4. 1E.FHE
S. IE.PRI
6. IE.OFL

ANY OTHER ERROR CODE WILL BE REPORTED AS "‘UNRECOVERABLE''.
NOTE: MOST FUNCTIONS ARE

BIT (1Q.UMD) SET.,

ISSUED WITH THE DIAGNOSTIC SUB=FUNCTION

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

(=]
O =

oO—

NS
SO =N

00O

s
OON

IF THERE WAS ANY ERRORS.

LENABL

LSB

000000c

$DSKWC : :MOV

#10.WCH'10.UMD,R3

: WRITE CHECK HEADER & DATA

000000cC

$DSKRH: : MOV

#10.RDH'1G.UMD,R3

sREAD DISK HEADER(S)

BR
BR

$DSKWH: :MOV
$DSK10: :MOV
MOV
$DSKRT::DIRS
BCC
CMP
0000006 000006
BEQ
ggv
0000006 0000006

000000¢
0000006
0000006

$DSKI0

$0SK10

: GO TO THE COMMON Q10 ROUTINE
*BR INTO COMMOM DISK ROUTINE

#10.WDH'10Q.UMD,R3
:WRITE DISK HEADER(S)
R3,SFUNC
;STORE FUNCTION CODE IN DPB
RS, $10BUF
:STORE BUFFER ADDRESS IN DPB
#$DSKPB
SISSUE THE QIOWS
S1F CC OK
1%
#1E.UPN,SDSW
:POCL SPACE AVAILABLE?
*1F EQ NO, TRY AGAIN
$DSKRT
*COPY DSW INTO STATUS BLOCX
;250.81051

FMTIO = I/0 ROUTINES MACRO M1113 12-JAN-82 11:01

90 000060
91 00006
9§ 000

100
101
102

;

000100
000104
000106
000110
000112

0000016
*
000204
000000G

000002

0001%6
000132
000134
000142
000144
000150

0000006

000124

000154

BPL
is:

48:

CMP

BEQ
CMP
MOV

;ASSUME NO ERROR
*ERROR?

$10ST+1
#9% RO

*YES, CLEAR THE WIGM BYTE
‘SET POINTER TO ERROR TABLE

(ROS,S10ST

‘IF PL NO

4$
(RO)+, (RO)+
(RO)

(RO} ,RO

:1F EQ MATCH
:STEP TO NEXT ENTRY
‘END OF

TABLE?

*IF NE NO

:GET ADRS OF ERROR MESSAGE

78:

CMP

RO, #SMSG8

CMP
BEQ

#1E.BLKR377,810sT
:YES, IS THIS A BLOCK # VIOLATION?
5%
:1F EQ YES

0000006
0000006
0000006

BNE

MOV
NEG
MOVB
CLR
CALL

0000006
000056

MOVE

CLRB

8s:

MOV
JMP

:SCAN ERROR TABLE TO FIND ERROR TYPE

5%:
6$:

000000C 0000006

0000006
0000006

BNE

$10ST

#SMSGBA RO
$10ST
siosr.n1
R
$CBDMG
#°.,(RO)+

(ROS

#SMSG8, RO
SMESAG

:1IF NE PRINT MESSAGE
JELSE JUST SET CARRY AND EXIT
;""UNRECOVERABLE'* MESSAGE?

IF NE NO

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

TERMINATE STRING

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

MESSAGE

ERROR CODE AND ERROR MESS A GE TABLE.
A ZERO WORD
IN THE MESSAGE FIELD INDI C ATES THAT THE ERROR WILL
BE HANDLED BY THE CALLING ROUTINE.
0000006 0000006
000000¢ 0000006
C 0000006
000000

LMORD

IE.HWR

$MSG13

: HANDLER NOT RESIDENT

.WORD
-WORD
.WORD
-WORD
-WORD
.4ORD
JWORD

IE.DAAR377.
1E.VERE377.
1E.BBER377.
1E.FHER3T77,
lE.PR!t 77,
IE.OFL&377.
O,

$MSG5
0
0
$MSG20
$M5G22
$MSG/
$MSG8

.
:
*
:
:
:
:

.WORD

0000006

IE.DNRE377.

$MSG10

: DEVICE NOT READY

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

SO0

SRS

ey
R
SRR

CLRB
MOV

SEQ 0028

BNE
SEC
RETURN

eld
D D

) v
) vl - el i
) ol
)
) D ol o
e
i il

vl e

cLe
1ST8

000114
000120
000122

000160
000162
000166
000172
000174
000200

1%:

) D D el

) i e

D D

1
106
107
108
109
110

NN 3E335705523833535538
sg s

94 000074

0000006

PAGE 2-1

*+=SWULKER-SET WRITE LOCK ERROR
THIS ROUTINE WILL SET THE WRITE LOCK ERROR MESSAGE AND EXIT
WITH A SEVERE ERROR STATUS SET.

INPUTS:

NONE
.

OUTPUTS:
RO = WRITE LOCK ERROR MESSAGE ADDRESS

FMTIO =

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

147
148 000250

012700

}gg ooo%sa 005751

0000006

151
15;
15
154
155
}gg

PAGE

$WLKER: :MOV

.DSABL

2-2

#3MSG9, RO

SEC 0025

;SET WRITE LOCK MESSAGE ADDRESS

(EXIT WITH SEVERE ERROR STATUS

LSB

:*
; **=SPRINT=PRINT MESSAGE ON THE USERS TI:

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

158
159

i
:

INPUTS:
RO = MESSAGE ADDRESS

162
163

i OUTPUTS:
:
MESSAGE SENT 70 T1:

}2?

165

166 000256

012701

000040

171 000304

010165

0000046

173 000312
174 000314

001403
005265

177 000322
178 000326
179 000330
180 000336

103004
022767
001771

167 000262
168 000266
169 000274
170 000300

172 000310

};2 000320

}g; 000340

012705
012765
010065
005065
105720

000773

R1 = CARRIAGE CONTROL (FOR $PRNTO ENTRY ONLY)

SPRINT : :MOV

#40,R1

;SET 1 LINE FEED CARRIAGE CONTROL

R1,Q0.I0PL+4(RS)

:SET CARRIAGE CONTROL

BEQ
INC

2%
Q. 10PL+2(RS)

;1F EQ YES
:ND, CALCULATE MESSAGE LENGTH

SGET NEXT CHARACTER

DIRS
BCC
CMP
BEQ

RS
38
#IE.UPN,SDSW
2%

:PRINT THE MESSAGE
$1F CC 0K
:POOL SPACE AVAILABLE?
;1F EQ NO, TRY AGAIN

0000006
$PRNTO: : MOV
0000006 0000006
MOV
0000006
MOV
0000026
CLR
1$:

0000026

0000006 0000006

000207

MOV

1ST8

BR
28:

3s:

(ALTERNATE ENTRY}

RETURN

#$CONPB,RS
:GET OUTPUT DPB ADDRESS
#10.WVB,0. I0FN(RS)
:SET FUNCTION CODE
RO,Q.I0PL(RS)
;STORE MESSAGE ADDRESS IN DPB
0. fOPL+2(RS)
;CLEAR MESSAGE LENGTH COUNTER IN DPB
(RO) +

;END OF MESSAGE STRING?

183
184
185

188
189
190
191
192
193
194

: THIS SUBROUTINE WILL READ A LINE FROM THE CONSOLE
: DEVICE.
:
: INPUTS:
:
NONE .
:
; OUTPUTS:

;gg

RO = ERROR MESSAGE ADDRESS

198

CARRY CLEAR IF READ OK

;gg

: *+=SREAD-READ A LINE FROM THE TERMINAL

195

201 000342

012705

0000006

203 000354

012765

0000006 0000006

202 000346 012765

0000006 0000006

CARRY SET IF ANY ERROR AND

SREAD:: MOV

MOV
MOV

#$CONPB,RS

-GET INPUT DPB ADDRESS

#10.RVB.0. 10FN(RS)

#$BUFRX,Q. [OPL (R5)

:LOAD FUNCTION CODE

:LOAD BUFFER ADDRESS

FMTIO =

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

204 000 95
%os 000
06 000374

207 000376
208 000404

209 oooeog
210 00041
211 000414
212 000420

213 000422
zgg 000424

012765
133«14

122767
00140

105767
oogaos
105767
001405
000241
000207

000120

0000026

000000C 0000006
0000006

0000016

1$:

28:

218 000434
219 000440

012700
000261

3%:
4$:

222

000001

559 000442

000207

0000006

.END

2-3

SEQ 0030

MOV
DIRS
B(S

cgo..o.xovLo2<as)
;#OAo MAX NUMBER OF BYTES TO READ
R
;READ IN'THE 3x~£
2%
:1F CS DIRECTIVE ERROR

1S18
BLT
1ST8
BEQ
cLe
RETURN

s;ost
;
10ST+1
3

:1/0 ;naoaz
JIF LT
YES
:CHECK FOR A TERMINATED LINE
:IF EQ BUFFER OVERFLOWED

B8R

MOV

#3MSG29,R0

;COMMAND 1/0 ERROR

MOV
SEC

#$MSG30,R0

;COMMAND TOO LONG
:SET ERROR RETURN

CMPB
BEQ

516 ooo«ge 012700 0000006
217 000432 000402

PAGE

RETURN

o‘e.sorc377.sxost
‘END OF FILE SEEN?
1
;1F EQ YES

tINDICATE READ WAS OK

FMTIO =

1/0 ROUTINES MACRO M1113 12-JAN-82

1E.BBE=
IE.BLK=

txeave
weeess

SYMBOL TABLE

(X
GX

IE.VER=
JI0.RDH=

IE.DAA= wexsee (X
IE.DNR= weteee GX

wenwasx
wwxseee

(X
(X

000000
000444
ERRORS DETECTED:

Q.]0PL=
$SBUFRX=

. ABS.

nexxnxr
wexwae

(GX
GX

000
001

' VIRTUAL MEMCRY USED:

wevene
wwevee

(X
(X

$DSKRT

IQ.UMD= weeeee (X
Q.I0FN= mewawnx GX

(X
GX

$CBDMG=
SCONPB=

SEQ 0071

10.WYyB= weeeee (X

IE.HWR= =erees GX
IE.QFL= weeese GX
tsrenen
#eeeee

2-4

$DSKI0 000020RG
SDSKPB= weveer (X

10.WDH= wwewee (X

IE.PR]l=
1E.UPN=

PAGE

10.RVB= weeens (X
[0.WCH= exeeen GX

IE.EQF= weewae GX

IE.FHE= srewxe GX

11:01

481 WORDS_

( 2 PAGES)

DYNAMIC MEMORY:
7962 WORDS
( 30 PAGES)
' ELAPSED TIME:
00:00:10
‘[300 201FMT10,C300,30IFMT10=C300,10IFMTIO0

$SDSKRH

$DSKWC
$DSKWH

000RG
014RG

$DSW
SFUNC

=
=

werwer
wevene

RG
(X
(X

=103¥f:
JOST
=

rennee
wennen

(X
GGX

SMESAG= wwewee (X
$MSG10= wweanen GX

$MSGS
$MSG7

=
=

SMSGY

MSG22= wwenwn GX
$MSG29= wwnwee GX

$PRNTO
SREAD

$MSG30=

wwwwnn

GX
GX

MSG8 = seweer GX
MSGBA= weweve GX

MSG13= wewwnn GX

MSG20= wwnwes GX

weenen
wrenee

SPRINT

SWLKER

= wwnenn

000256RG

000262RG
000342RG
000250RG

FMTDAT

- FORMAT

DATA BASE

MACRO M1113 12-JAN=-82

.TITLE

-IDENT

;

11:01

;

SEQ 0032

FMTDAT = FORMAT DATA BASE

701,00/

* COPYRIGHT

9
10
1
1;
1

PAGE

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

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

TERMS.

TITLE

AND

: THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

: THE

: EQUIPMENT CORPORATION.

INFORMATION

: DIGITAL ASSUMES NO

;

i C. HESS

TO CHANGE WITHOUT

CCHAITMENT

DIGITAL

RESPONSIBILITY FOR THE USE OR RELIABILITY OF

ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

* VERSION 01.00

P M. LEAVITT

LMCALL

33 000000
gg

17-AUG=-80

26-NOV-80

UMDIOS
UMDIOS

3%
37

DEFSG

;CALL MACRO TO DEFINE DIAGNOSTIC FUNCTION
;CODES GLOBALLY

; SPECIAL OPCODES TO BE USED WITH THE FUNCTIONAL °*DR* DRIVER.
NOTE
: THAT THESE FUNCTIONS ARE DEFINED IN THE SPECIAL MANUFACTURING

40
41
42
43
4

IN THIS DOCUMENT IS SUBJECT

: NOTICE AND SHOULD NOT BE CONSTRUED AS A

OWNERSHIP OF

* 'DR' DRIVER.

004110
004160
004170
004200
004210

10.MCH
10.WPD
10.RPD
10.FER
10.FEW

==
==
==
==
==

18-5000110
1044
0198
18-4
+1
10+400+200
1044004210

:
:
:
:
P

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

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

$DSKPB:: .BYTE

$FUNC::

.WORD
.WORD

.BYTE
WORD
WORD
$10BUF
: : .WORD
$XFRSZ::.WORD
SLBNH::
$LBNL::

KLUN

KEFN,O

0SsT

.WORD

.WORD
.WORD
WORD

$RGBUF

. OmM

D=4

MCR LINE FLAG

NATE DEC STD 144 TRACK
OF SKIP SECTOR FILE
F SKIP SECTOR FILE
N

P
>

—

DN
o

OO0

V=D

O2Z2»PpOT

1Y
TR TETE LA LR TR

$STATS::.BYTE
$DVICE::.ASCI!I
$SALFLB::.WORD
$SSFLB::.WORD
$SSFSZ::.WORD
$PAT::
.WORD
$RETRY:: .WORD
TRKSZ:: .WORD
SECSZ
WORD

=
==
=
==
==
==

37 -Tad 2.2 d
aoame—oooe
£ -onZ

- Z2OMOr-r-mmm
X crmecc<<<
©

—

NONW SN

OVIVIVWALYAWIVWA

CONLUN
DSKLUN
DEFSEC
$SSFLN
$SSFHD
$SSFDT

VDV

SPEFN

=
=

w»

DSKEFN
CONEFN

SEQ 0033

AR TETE PR TE TR
PRPR TR TR T T

- FORMAT

£CATION ATTEMPTS
BYTES)
HEADER)
NCLUDING
I

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 LOGICAL BLOCK NUMBER
REGISTER BUFFER ADDRESS

sCONSOLE 170 DIRECTIVE PARAMETER BLOCK (QIOWS DIRECTIVE)

000000

3.12.
0

LA TR TR

$CONPB::.BYTE

014

PRTR TA TR DR LA 1]

FMIDAT

000000

MACRO DIC, DPB SIZE
FUNCTION CODE

CONSOLE LUN

CONSOLE EVENT FLAG, PRIORITY ZERO

STATUS BLOCK ADDRESS

AST ADDRESS

BUFFER_ADDRESS

MESSAGE BYTE COUNT

CARRIAGE CONTROL
NOT USED

1/0 STATUS BLOCK

$10ST::

: DRIVE PARAMETER TABLE
000003

131656

$DVPRM:
: .WORD
;

THE ORDER OF

5.131656

: MAX[MUM LBN

THIS TABLE MUST NOT CHANGE

RRXOXRZ

wm:uo

lalnlelnled

=
DD

~Trm<

00000

]

<
=1

—

-t 0

$88$8F.D

LEVEN
SSNAME . .WORD
SRTCNT:: .WORD
SDVUNT
: : ,WORD
$MXLBN:
: .WORD
$HDRFG:
: .WORD
SFLCYL::.WORD
SFLTRK:
: .WORD
$FLSEC::
. WORD
$CYL::
.WORD
$TRK::
.WORD
$SEC::
.WORD

A TR DA D DR 1Y

$UCB::
.WORD
$SCB::
.WORD
$INADD:
: .WORD
SREVNM:
: .WORD
SYESNO::.BYTE
$SWERL::.BYTE
$SWLST::.BYTE
$SWLOG:
: .BYTE
SSWFMT::
. BYTE
SSWFFE::.BYTE
SSWINT:: .BYTE
$SWMOD:: .BYTE
SKPFRE::.BYTE
SVERIF::.BYTE

RRUPT VECTOR

S SF REVISION NUMBER ($SSF+10)
S

PRDR

E CONTENTS

PETETE

Y LINDERS ONLY

, UDBSF,

AND SSF

UDBSF, € FEBSF

TR TR
TR T
TR

sBUFFERS AND DATA STCRAGE AREA

[TETE TR TR TR TR PR

000000

; LOGICAL DE: I C
v
: PHYSICAL DEV!

000000

LBN . CYL, TRK, SEC
LBN
CYL
SEC
TRK

OOQOOODOO0O0COO00

~N
[« N,¥]
OO

OF B L
OF ( Y
Of TR
OF S E

[

S
nnN

prerginry

LPSECT

===g8

DVPRM
.WORD
LWORD
.BYTE
BYTE
DVPRM

NUMBER
NUMBER
NUMBER
NUMBER

SLOGDV: :DVPRM
SPHYDV: :DVPRM

SEC

MAXIMUM
MAXIMUM
MAXIMUM
MAXIMUM

[=l-lelelelalelele
el

-B OMNO NSO
BRI VA SN
RN

CyL
TRK

D ol o
D o

.ENDM

"LBN

A RIS ERNERRINNYN
D

Tl ol el

:
:

LBN, CYL, TRK, SEC
o
<
o

;

10.

20.

;: MACRO FORMAT:

D e

LSLNT
ST NT.NT NT NT,VY

D ol el e el

LN LN AN NN

3
3

::.WORD

- e el

SEQ 00%«

Al 3

{1IWORD

D
B ol add D el il Al ) ) il ol

2-1

VIS
BB NDDD
W

il ol il
ol vl
—

PAGE

[elelolele]
o
(=]

8888

oo HSN0

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

) D D el el il il ol

FMTDAT - FORMAT

T0 VERIFY THE

HDA SERIAL NUMBER
RETRY COUNT

DISK UNIT NUMBER

MAXIMUM BLOCK NUMBER
HEADER DEFECT FLAG
FAILING CYLINDER ADDRESS
T
TRACK
.

'
CURRENT
CURRENT
CURRENT

SECTOR
CYL INDER
TRACK
SECTOR

TRA(K

FMIDAT

= FORMAT

DATA BASE MACRO M1113 12-JAN=-82

161
16§ 000054
163
000136

164 040336
}gg

11:01

$RGBUF : : .BLKW
$BUF::
.BLKW

040336"

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

PAGE

2-2

«258,

SEQ 0035

: RMBO REGISTER RETURN BUFFER
* BUFFER FOR DISK 1/

: DIRECTIVE BUFFER

* BUFFER FOR DIRECTIVE USE

}gg

:BAD SECTOR AND DEFECT STORAGE AREA

169 041156
170 oa§1se
171 043156

$MDBS”
:: . BLKW
SUDBSF ::.BLKW
$SSF::
.BLKW

};g 046156

174

$FEBSF::.BLKW
000001

LEND

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

PUBCSTNRA“SNGSBC
OOOQEKPRA”““.LCDD
'8S3TLlEw3RML8ELZL3EM~LO8RMPE0O3FL0OTDL3NSLR3L-L3OEJ3LD3EDuAco3wlLe3Ymw
sJOo0Ex =X00]( w[W=lA=ldelNelWe
. ABS.

$888BF

;ERRORS DETECTED:
046356
"

IJEE OI JTovrOt
aes tn s

L .

OO MO NN

s2VCOO8)LWV8otLN02u]T8NV0)OLB0)VOL80)OOsV)0oeLtOV¢MMet0LoeVtLo0oVt©OL7B8O0(YDODB0OMD0C0O0G00B0D
Rw(=) BD eXx VRUBOL)Aw@ DEL)NTsXE5SLEtT5ZItTeNtO5GOtODet
FMIDAT = FORMAT DATA BASE MACRO M1113 12-JAN-82 11:01 PAGE 2-3
SYMBOL TABLE

000000
000152

009
001
002

. [300,201FMTDAT,[300,301FMTDAT=[300,10]FMTDAT
7942 WORDS
| DYNAMIC MEMORY:
' ELAPSED TIME:
00:00:12
( & PAGES)
898 WORDS
( 30 PAGES)

LOVVOVLVLLVLVVVLVLVLVLVLVY

VIRTUAL MEMORY USED:

ROPoWBS6DA

SEQ 0036

SEQ 0037

@.wvawaUP“RTDVo

1 1 1 1ON 1NI2ONMN2=MI“N2O%N2O&P”R”O=”N””MINONO NO
=-= XTI w oy gy - VO De— —Wit

«e-o«3O2-W=3aTwo[eT2——_

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

BON=-W>0ZEVW BO2=V>-wWJLET~soMu>E&XwW=—-aOVZ

>
D
W
—
_
a
"
<
E
=
l
I
o
—b-LUoAd=N aO—=W-s»D0cXn\0Z

oNIeeeORIOOIES
TNNWMT=TMOOOala)(AlNNNMNY=vvOQOOQOO
a0IINNsDNoeNsO0oNONInNrO~oM0IN=Osr0=FOaT-0oMM0aTO=Os0OS=A1Ws=VN=MNr=ANOI1=OO1=~©0OO(8=U3oM0==870=N~80F3=T8O=(3N=8==5=NO8=Or8Ir5SOr8ONN5IN8DONO5O8=0C8O=VN8rNOO8MOaOO8
3OwN%eJ3mMO4mrOWn=OO=4wu0O4mV%N=MmO=4w~OnmV”rN=I4oWn=Nmur=~Om4a&re5mwr—w=MON5m6=N ro2((IN5mrI1NrrO5%3~nOrO5eO~3NN3r&06O4“"NO=rMOM6“M3IJNOO0re“ONoN43~600MN“OOT=0Or3“NNOr=~NOr(m=NN13M~nNNTWNT(~=l7VCOr=nNOIN37r=TVNNNnOOC7NOOInNTOEN03TNO=0wN~I=Em=O=T0aTNOMI0PONu4N0VOa3OOua
FMTMSG = MESSAGE OUTPUT ROUTINE MACRO M1113 12-JAN-82 11:02 PAGE 2

RolssssssssssssssmsssLOVVVLVLVLVLVLV=LVLVLVLVLVLVLVLVLVLVLVLVLVLWVLVLVLLY

.EVEN

3
SEQ 0038

-W~NdD -ol

wo.

- (=] 4 ~

SEQ 0039

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

: «*=$MESAG=OUTPUT MESSAGE WITH CURRENT EXIT STATUS
: *+=$MSGWR=-OUTPUT MESSAGE WITH WARNING EXIT STATUS
:

wvis
nNess

D)
et O wd O e e e
PIVIN 2P0 SRR OND
NONNONNNO~N
O2NOCOO
SO
COONWNWO~N

O = =000~

goo o gmN—'-’OOQ
N
QNSO

oo oo
WY

[=1=]
(=1

P
Quuar-Qry

D e e

e e e

(=l=l=le]

e e

S 88888888 =l=1=
(elel=]

RO = ADDRESS OF '‘ASC1Z'* MESSAGE STRING

0000006 0000006 SMSGWR : :MOVB
00 00006
000016'
00 0 0006

INPUTS:

$MESAG: : MOV
MOV
MOV

CALL
MOV
CALL
MOVE

00 00006
00 0012

CLRB
CALL

MOV

0000006
0000006

csxsuna $STATS

;SET WARNING EXIT STATUS

SMOVE
(SP)+,R3
SMOVE
#12,(R0)+

*STORE PREFIX
:GET BASIC MESSAGE ADDRESS
:STORE BASIC MESSAGE
:ADD AN ADDITIONAL LINE FEED

RO,=(SP}
#$BUF ,RO
#$MSGT,R3

(ROJ
SPRINT

#$BUF ,RO

:SAVE MESSAGE ADDRESS
*GET PRINT BUFFER ADDRESS
*GET PREFIX ADDRESS

*TERMINATE THE BUFFER
:SET MESSAGE BUFFER ADDRESS
:PRINT THE MESSAGE

000000C 0000006 SFMTEX: :MOV

#10.DET'10.UMD,SFUNC

0000006

SFMTEP

DIRS
JMP

.END

WSDSKPB

;LOAD DETACH FUNCTION CODE

:DETACH DISK (WHO CARES IF IT FAILS'!)
*RESTART

FMIMSG = MESSAGE QUTPUT ROUTINE MACRO M1113 12-JAN-82 11:02 PAGE 3-?

SEQ 0040

SYMBOL TABLE

EXSWAR= teeeee GX

= 000015S

$MSGRS

$MSGWR

01550RG

$MSG2C

$MSG1
$MSG10

12IG
RG

$MSG i
$MSG

RG
611RG

st
-0o0oooe
SFMTEP= teecee (X

BSeiS
SHSG19

GBCIGIAC
421RG

dmchd
$MSG s

7; RG

I0.DET= teeeee (X
IQ.UMD= weneee (X

SFMTEX

1§§6RG

O00164€RG

$MSG1

4 30RG

SMOVE = eeener (X

$MSG2

080037RG

. ABS.

000000
001666
' ERRORS DETECTED:

000
001

VIRTUAL MEMORY USED:
618 WORDS_
( 3 PAGES)
DYNAMIC HEHORV
7962 UORDS
( 30 PAGES)
ELAPSED TIME:
00:1
' £300,201FMTMSG, [300 30]FH7HSG [300,10JFMTMSG

$MSG2 |

$MSG

MSG4

LanG

; gRG

iHSG‘

BOORPONC

dmicis
SoiSgIRC
3"5653 125236

8 1010RG

$MSG32 8 1076RG

MSGé
:HSG&

$MSGS

?? ZRG

1162RG
1
RG

1415RG

166R

gnsgsa

2 Rg

225679
SG7

1456RG
1471RG

.
$MSG
00260RG
SPRINT= ssnene
=

ftNene

SUBROUTINES MACRO M1113 02-JuL-82 13:20 PAGE

TITLE

IDENT

SEQ CO041

FMIS 88/- FORMAT SUBROUTINES

/02.

DIGITAL EQUIPMENT
THIS

SOFTWARE

CORPORATION, MAYNARD, MASS.
R USE ONLY ON A
H THE INCLUSION

SINGLE COMPUTER SYSTEM
OF
THE_
ABOVE COPYR!
COPIES THEREOF, MAY N
TO ANY
OTHER PERSON

AND

THE
INFORMATION
IN THI
NOTICE AND SHOULD NOT BE C
EQUIPMENT CORPORATION.

VERSION 02.00
C. HESS
M. LEAVITT

21-AUG-80
02-JuL-82

OTHER

STEM AND TO ONE

WHO AGREES TO THESE LI
THE SOFTWARE SHALL AT A

OWNERSHIP OF

0 CHANGE WITHOUT
MMITMENT
BY
DIGITAL
2TM

DIGITAL ASSUMES NO RESPONS
1 TS SOFTWARE ON EQUIPMENT W

ANY

MADE AVAILABLE

[

CAINLPONININI
N AINININD e e o e e ed e d d

OO 00NN I AN = OO 00 NN B LN = O 0 00 ~JON N IS NN —

FMTSUB - FORMAT

R THE USE OR R

T SUPPLIED BY

13:20 PAGE

SEQ 0042

SUBROUTINES MACRO M1113 02-JuL-82

000000

44 000004

ONONMNNOOOO
NN=OOO — — —

LR TR TR TR TR

R T

*+=$MVPAT=LOAD THE DATA BUFFER WITH THE DISK DATA PATTERN

O-‘gOOOOOO

£ 55 B D NN
NN NN

wN—oooa\laflnbwg

FMTSUB = FORMAT

INPUTS:

NONE

OUTPUTS:
'$BUF' LOADED WITH "SPAT' & 'SPAT+2’

0000006

$MVPAT : :MOV

0000006
0000096
0000026

1%:

ASR
ASR
MOV
MOV

MOV
DEC
EE%URN

TRKSZ ,R1

; LOAD THE DISTRIBUTION COUNTER

$PAT+2,(RO) ¢
R1
1%

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

R1
R1
#$BUF ,RO
$PAT, (RO) ¢

: CONVERT BVTS COUNT TO WORD COUNT
: CONVERT TO 2 WORD COUNT
: BUFFER POINTER
: MOVE THE PATTERN

s OUTPUT ERROR MESSAGE
: INPUTS:
R1 = VALUE TO CONVERT
:
:

R3 = ADDRESS OF BASIC MESSAGE

g
&R

: OUTPUTS:
.
NONE
H
012700

66 000042
67 000044
68 000050
69 000054

0000006
000176

0000006
000056
000040

71 000062

$EROUT : :MOV
CALL
CLR
CALL
ERROUT: MOVE

MOVB

CLRB

CLR
MOV
JMP

0000006
0000006

73 000070

#$BUFRX,RO
SMOVE
R2
SCBDMG
#°.,(RO)+

: GET OUTPUT BUFFER ADDDRESS
:STORE BASIC MESSAGE
:SUPRESS LEADING 0'S
:CONVERT TO DECIMAL
*STUFF DECIMAL INDICATOR

(RO

STERMINATE STRING

.(RO)+

R1
#SBUFRX,RO
$PRNTO

:STUFF BLANK IN MESSAGE

*SET NULL CARRIAGE CONTROL
: GET OUTPUT BUFFER ADDRESS

*PRINT MESSAGE

: **+=$EROCT=CONVERT TO OCTAL AND PRINT

INPUTS:

OUTPUTS:

:
:
:

012700
004767

0000006
000134

7 0000006
00476
1127
0
20

00004

$EROCT : :MOV

CALL

INCB
CALL

MOVE

R1 = VALUE TO CONVERT
R3 = MESSAGE ADDRESS
MESSAGE PRINTED ON TI:

#SBUFRX RO

;

R2
$CBOMG

$INCLUDE LEADING ZEROS
*CONVERT TO OCTAL

SMOVE
#'

,(RO)+

SSTUFF BLANK [N MESSAGE

FMISUB = FORMAT

89 000116

SUBROUTINES MACRO M1113 02-JuL=-82

105010

CLRB

91 000152 012700 0000006
90 000120

005001

004767

000126

MOV

(LR

0000006

13:20 PAGE

CALL

2-1

SEQ 0043

(RO)

;TERMINATE STRING

$PRNTO

*SEND MESSAGE

#$SBUFRX,RO
R

. S

"SET NULL CARRIAGE

CONTR

; *+*=SCVIDA=CONVERT DISK ADDRESS TO LOGICAL BLOCK NUMBER

* THIS SUBROUTINE CONVERTS A DISK ADDRESS TO A LOGICAL

}8?

: BLOCK NUMBER.

102

¢ INPUTS:

104

;

103

}32

$CYL = CYLINDER NUMBER

$SEC = SECTOR NUMBER

: QUTPUTS:

108
}93

STRK) + SMXSEC + $SEC

$TRK = TRACK NUMBER

107

THE FORMULA USED IS:

BLK = (SCYL * SMXTRK +

;
:

SLBNH = HIGH ORDER BLOCK NUMBER
SLBNL = LOW ORDER BLOCK NUMBER

;

112 000132

016701

000000G

$CVTDA: :MOV

$CYL,RY

; GET CYLINDER NUMBER

114 000142
115 000146

004767
016700

000174
0000006

CALL
MOV

SMULT
$TRK RO

P MULTIPLY
: GET TRACK NUMBER

117 000154
118 000160
119 000164
120 000170
121 000172
122 000176
123 000202

016701
004767
066701
005500
010067
010167
000207

0000006
000156
0000006

113 000136 016700 0000006

116 000152

060100

MOV
ADD

MOV
CALL
ADD
ADC
MOV
MOV
RE TURN

0000006
0000006

$SMXTRK ,RO
R1,R0

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

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

GET SECTORS PER TRACK
MULTIPLY
ADD IN SECTOR
DON'T FORGET CARRY
SAVE WIGH ORDER BLOCK NUMBER
SAVE LOW ORDER BLOCK NUMBER

}39

}53

: THIS SUBROUTINE WILL ISSUE A HOME SEEK FUNCTION.

130

: INPUTS:

13
132
132
}gg

136

:
.
:
: QUTPUTS:
:
HOME SEEK ISSUED TO DISK.

137 000204
138 000210
139 000214

005067
005067
012767

}21 000236

000207

140 000222
141 000226
142 000232

145

**=$HOMSK-ISSUE A WOME SEEK FUNCTION

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

012703 000000C
012705 0000006
000167 0000006

1%:

MOV
MOV
JMP

RETURN

SLBNH
SLBNL
#10, SXFRSZ

:RESET BLOCK NUMBER
:
DUMMY UP BYTE COUNT

#10_HMS'10.uMD, RS
-SET HOME SEEK FUNCTION CODE
#3BUF ,RS
SSETUP DEFAULT BUFFER ADDRESS
$0SK10
‘DO THE FUNCTION AND EXIT

SUBROUTINES MACRO M1113 02-JuL-82 13:20 PAGE 2-2
+

*+=$MOVE-MOVE ASCIZ STRING INTO BUFFER
THIS SUBROUTINE WILL MOVE

INPUTS:

RO
RS

000240
000242

N -

INTO A BUFFER.,

=(R0O)

:STORE TEXT CHARACTER
s1F NE CONTINUE TO STORE

sPOINT TO NEXT BUFFER POSITION

AE}SRN

(R3)+,(RO)+
$MOVE

«+~$PRMPT~PROMPT USER AND SOLICIT A RESPONSE
THIS SUBROUTINE WILL PROMPT THE USER AND THEN WAIT FOR KIS

: RESPONSE.

: INPUTS:

RO = ADDRESS OF PROMPT MESSAGE.

: OUTPUTS:

;
:

R3 = BYTE COUNT
BUFFER IS TERMINATED

Z=01F BYTE COUNT IS NON-ZERO

- ol e o e

b O - O -0

N=O=000
880b°~°
A=
AR = b
33
=N NWNNO
O= SNSIRISY
WWNI NN
OOOgN—'ONON
CONNWVIN

012701

8888888
g88888s8ssssssssss
OSN
S NSRS RS

=1~}

STRING

= ADDRESS OF BUFFER.
= ADDRESS OF ASCIZ TEXT TO MOVE.

$MOVE:: MOVB
BNE

NNNNNNNNN

PUONIND = i o e o o ok o sl oo o sl e s o s ol o s = o ol o e ol e ol o s e s

AN ASCIZ

OQUTPUTS:
RO = POINTS TO NEXT PLACE IN BUFFER.

) ol

o o o s e dh D ol o e D
s e e o D od
OO
O
VWMWY
B IS

i3 SRER 2EIFIFININIITSLZ sgwl\ld So» NOWV S NN = S
88008000008@&
00 NOMA LSS NN
=
OO
2
OV 00N

——

FMTSUB ~ FORMAT

000044
0000006
0000006
0000006
0000026
0000006
0000006
000141

2 =1

SPRMPT : :MOV

CALL
CLR
CALL
BCS
MOV

CLRB

18:

000172
000040

0000006

28:
MSG:

MOV

IF BYTE COUNT IS ZERO

#'3,R1

SPRNTO
$BUF RX
SREAD
MSG
$1057+2,R3

SBUFRX(R3)

:SET CARRIAGE CONTROL

:PROMPT THE USER
SCLEAR USER'S RESPONSE BUFFER
:GET THE USERS RESPONSE
:1F €S ERROR
*GET BYTE COUNT

:TERMINATE THE LINE

#SBUFRX RO

*GET INPUT BUFFER ADDRESS

BLO
CMPB
BHI
BICB

2%
(RO),M172
28
#40,(RO)

*IF LO NO
*LOWER CASE LETTER?
SIF HI NO
*YES, CONVERT TO UPPER CASE

BNE
ST

1§
R

JMP

$MSGWR

CMPB

TSTB

RE TURN

(RO),#141

(RO+

:LOWER CASE LETTER?

:END OF INPUT BUFFER?
*IF NE NO
STEST FOR NULL LINE

PEXIT WITH WARNING STATUS

v*=SMULT=INTEGER MULTIPLY ROUTINE
INPUTS:

SUBROUTINES MACRO M1113 02-JuL-82

13:20 PAGE

SEQ 0045

2-3

RO = MULTIPLIER
R1 = MULTIPLICAND

R TR

R T

QUTPUTS:
RO = HIGH ORDER RESULT
R1 = LOW ORDER RESULT

BCC
28:

000207

ADD

DEC
BGT
CMP

RO
R1

2(SP) RO

(SP)
1%
(SP)+,(SP)+

TIPLIER FOR ADDS

NOT ADD
PLIER TO RESULT
T THE LOOP COUNT

COUNT

H PART

GHT SHIFT

T
TR TR

RE TURN

#21,=-(sp)

OO
>

000002

ROR
ROR

DRT TR 1

1$:

CLR

ng =(SP)

*+=SSFCRC-COMPUTE CHECKSUM OVER SSF DATA
THIS ROUTINE WILL COMPUTE

OUTPUTS:
RO =
R1 =

POINTS TO CHECKSUM WORD
CHECKSUM

FCRC: MOV

#1,-(5P)

ADD
ROL

DEC
BNE
MOV

RETURN

(RO)+, (SP)
(SP)

]
1%
(SP}+,R1

PR1Y

000001

SPECIFIED

INPUTS:
RO = STARTING ADDRESS
R1 = LENGTH OF DATA AREA

PRTR

012746
062016
006116
005301
001374
012601
000207

THE CHECKSUM OVER THE

LA
TETR

(A TR PR TR TR PR TR PR Y

DATA AREA OF AN SSF COPY,

INITIALIZE CHECKSUM

ADD DATA WORD TO CHECKSUM
ROTATE CHECKSUM
ALL DONE ?

IF NE, NO
GET CHECKSUM RESULT

OO NO NS W

A
A AR

241 000374

MOV

7, ]

000372

$MULT:: MOV

[TETETETACECE TR

000021

VWO Poe

ALL REGISTERS ARE PRESERVED

LR
TRT

000342
000344
000350
52

S8EIHD

~n = SLST
PN b NN
»H
ANy
N
NmNNNNNNN
I
= b b e e S
b b ek VTN
D O O O
IR SO OB N N O BB IR AR

FMISUB - FORMAT

«*=$UPDMX~-UPDATE MAXIMUM VALUES FOR DEVICE GEOMETRY
THIS ROUTINE WILL REPLACE THE CURRENT MAXIMUM VALUES FOR THE
RMBO'S CURRENT GEOMETRY WITH THE VALUES SUPPLIED IN THE
SPECIFIED TABLE.

INPUTS:

R 3=

NUTPUTS:

POINTER TO SPECIFIED TABLE

FMISUB - FORMAT SUBROUTINES MACRO M1113 02-JuL=82 13:20 PAGE 2-4
260

521

265 000414

012367

267 000424

012367

269 000434
270 000440

112367
166767

271 000446
g;g 000452

POINTS PAST END OF SPECIFIED TABLE

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

0000006

SUPDMX : : MOV

(R3)+,SMXLBN

;SET

0000006

MOV

MOVB

(R3)+. SMXCYL
(R3)+,SMXSEC

:SET UP MAX CYLINDER

266 000420 012367 0000056
268 000430

R3 =

SEQ 0046

112367

0000006

005667
000207

0000006

0000006
0000006 0000026

MOVB
SUB

SB(
RETURN

(R3)+ nxtauoz .?E. ’

UP MAX

LBN

:SETUP MAX SECTOR

(R3)+ . SMXTRK
:SETUP MAX TRACK
$MXseé.snxLauoz ‘DO NOT FORMAT LAST TRA(K
SMXLBN

Tasd
:

274

277

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

5;2

; **=$TSTDA=TEST FOR A VALID DISK ADDRESS (BLOCK NUMBER)

: CMECK IF THE LOGICAL BLOCK NUMBER IS WITHIN RANGE.

5;3
280

. INPUTS

5%}

ssec. $TRK, SCYL SET TO A VALUE.

283

i OUTPUTS:

285

284

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

004767
126767
101007
103404
026767
101002
000241
000207
000261
000207

177452
$TSTDA: :CALL
0000006 0000006
CMPB
BHI
BLO
0000006 0000026
CMP
BHI
1$:
cLe
RETURN
28:
SEC
RETURN

If LBN OUT OF RANGE

If LBN IN RANGE
$CVIDA
SLBNH,SMXLBN
28
1%
SLBNL , SMXLBN+2
2%

:CONVERT PARAMETERS TO LBN
:HIGH BLOCK # IN RANGE?
:1F HI NO
:1F LO YES
.Lou BLOCK # IN RANGE?
:IF M1 NO
:SHOW LBN 0K
:
:SHOW LBN BAD
:

£%

?8%

: THIS SUBROUTINE WILL UPDATE THE DISK PARAMETERS AND TEST

301

; **=S$TSTMX=-TEST FOR END OF DISK AND UPDATE DISK PARAMETERS

ggg

: IF THE PARAMETERS WILL OVERFLOW THE DISK.

306

: INPUTS:

393

307
308

311

312
313

g}g

316

:
:

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

$SEC = CURRENT SECTOR NUMBER

t OUTPUTS:
:
:

S
cC

IF
UPDATED PARAMETERS E CEED DISK LIMITS
IF UPDATED PARAMETERS
ARE STILL VALID.

$SEC = O IF NORMAL MODE.

FMTSUB - FORMAT SUBROUTINES MACRO M'113 02-JuL-82 13:20 PAGE 2-5
317 000512 005067 0000006
318
000516 0 5267 o§080§c
3 3 388?

f 1 0005

g 0005
00054
3, 000550
335 000552
335
000554
337 000556
ggg 000560

$SEC

TRK

: START WITH SECTOR

CLR

TRK

* RESET TRACK NUMBER

g g‘gz

0000006 000000G 108$:

3?3

sgx.snxtan

05267
826 67
001402
000%61
000207
000261
000207

0000006
0000006 000000G 208:

INC
(MP
BEQ
CLC
RE TURN
SEC
RE TURN

cYL
8VL.SHICYL
$

308:

340
341

SEQ 0047

INC

$TSTMX: :CLR

8° 67 8000800

* UPDATE TRACK uuneeszzE ZERO

{; {3“:0"“"°‘“ EXCEEDED?

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

o®

%’ig

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

344

: THIS SUBROUTINE WILL STORE THE MESSAGE AND THE DEVICE AND UNIT

347

i INPUTS:

350

i OUTPUTS:

gtg

* NUMBER INTO THE BUFFER.

g:g

;

gg}

353

354 000562
355 000566
356 000572
357 000576

R3 = ADDRESS OF MESSAGE

:
012700
004767
116720
116720

0001446
177446
0000006
0000016

RO = NEXT BUFFER POSITION

SUNTID: :MOV
CALL
MOVE
MOVB

358 000602
359 000604

005001
156701

0000006

CLR
BISB

gg; 000612

000167

0000006

JMP

360 000610

005002

CLR

#3BUF+100.,R0O
SMOVE
SDVICE.(RO)*
SDVICE+1,(RO)+
R1
SDVUNT,R!

;SET BUFFER ADDRESS
:PUT MESSAGE INTO BUFFER
:STORE DEVICE NAME
:
:GET READY FOR THE BISB
SGET UNIT NUMBER

$CBOMG

SCONVERT UNIT NUMBER TO ASCII

:SUPPRESS LEADING 0'S

;

30t
ggg

: ««=SRDBSF-READ MANUFACTURER'S & USER BAD SECTOR FILES

367

P THIS SUBROUTINE WILL READ THE MDBSF AND THE UDBSF.

174l

: INPUTS:

?74

: OUTPUTS:

368
293

:
:

3;§

375
i;g

379 000616
000622
81 °°°°§2
a§ 000636

012703
004767
016767
016767

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

$MXLBN = DISK ADDRESS GF START OF MDBSF.

:
;

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

ogooooc
$RDBSF : :MOV
177566
CALL
0000006 0000006
MOV
0000026 0000006
MOV

#3L0GDV,R3
SUPDMX
SMXLBN,SLBNH
SMXLBN+2,SLBNL

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

MOV

(SP)+,R1

SPRINT

6$:

SSRTMF

MOV
ASR
ADC

MOV

SMXLBN, SLBNH
SMXLBN+2,SLBNL
$MBSSZ,SLBNL

308SSZA1
gg‘

8s
#2,SLBNL

SLENH

niuogsr.as

001402

R L
TR P

S
S

N
\¥ .

004767

IF CC OK
CAN'T READ MDBSF

MORE MDBSF BLOCKS AVAILABLE?

IF NE YES

PRINT THE ERROR MESSAGE

UNABLE TO RECOVER THE WDBSF
EX]
SAVE THE MDBSF COUNT
PRINT THE MESSAGE
RESTORE R1
TRY AGAIN

VERIFY THE MDBSF COPY

MDBSF BUFFER POINTER

BAD S/N MSG POINTER
MDBSF

IF CS,

CORRUPT MSG POINTER

MDBSF CORRUPT

SET DISK ADDRESS OF UDBSF

TR PR PRPR

9%:

perd

NN -~

g383833
3 353338
O &~

&~
N

) o

RIS/A

OO0

D o

e s

BR
ADD

108:

MOV

11%:

B8R

JSR

(SP)+,R1

RS,

VYBSF

.WORD

SUDBSF

~WORD
BCS
CALL

3nsc19
$
$SRTUF

"WORD

READ THE MDBSF

SORT THE MDBSF

MOV
MOV
ADD

000002 0000006 7%:
006
8%:

000036

GET ADDRESS OF MDBSF BUFFER

READ THE UDBSF

0000006 0000006
0000026 0000006
0000006 0000006
0000006
0000006

0000006

TRY NEXT USABLE MDBSF BLOCK

CALL

GET NUMBER OF BLOCKS IN MDBSF
DIVIDE BY 2

CALL

PRTR
PRT TR PSR
LATR
LAD

000176

5%:

SPRINT
#SMSG26 ,RO
SMSGWR
R1,=(SP)

$MSG&4

0000006

CALL
MOV
JMP
MOV

0000006
0000006
0000006

PR T TR
D DR

#SMDBSF ,RS
RDBSF

BNE

4%:

B8CC

skfinn

e e
T

MOV

ADC

#2,SLBNL

0000006G

ADD

L
e e ee
e

6$
:?flSGZl.fiO

o
o

062767

$MBSSZ,R1
R1

R R P raNE oSS

016701

e o

e lelelelelele]

016767
016767
066767

MOV

MOV
CALL

e o

—lh e wd d wt DO O
OO
NN
o

saeeeeser

b o o e

SERIE SRSSGa MNOWVSWN=2OWY

28952332228323823233338

415 000770
416 000776
417 001002
418

-~ W

405 000740
406 000742
407 000744
408 000746
409 000750
410
&1
612
413 000754
414 000762

403 000732
404 C00734

&02 000730

- OO
OO
WOO

401 0007

012700
005301
001009
004767
012700
000167
010146
004767
012601
000747

1$%:

080002 0000006 2%:
0000006
0000006
3%:
000222

103017

0000006

READ THE MDBSF

016701
006201
000405
062767
005567
01270;
004767

SEQ 0048

IR TR TR
PR T

;

84
85
386 (20642

SUBROUTINES MACRO M1113 02-JuL=-82 13:20 PAGE 2-6

FMTISUB - FORMAT

ADDRESS OF

THE UDBSF

GET NUMBER OF BLOCKS IN UDBSF

DIVIDE BY 2

TRY NEXT USABLE UDBSF BLOCK

GET ADDRESS OF UDBSF BUFFER

READ THE UDBSF

IF CC OK

CAN'T READ UDBSF

MORE UDBSF BLOCKS AVAILABLE?

IF NE, YES

PRINT THE ERROR MESSAGE

gg?gts T0 RECOVER THE UDBSF

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 €S, UDBSF CORRUPT

SORT THE UDBSF

FMTSUB - FORMAT

461 001114

268

SUBROUTINES MACRO M1113 02-JuL-82 13:20 PAGE

000217

2-7

SEQ 0049

RETURN

;o
; *+=RDBSF=READ THE SPECIFIED BSF FILE

446

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

449

i OINPUTS:

221

;

22;

450

457 001116
458 oo11§a
459 001130

229 001134

$LBNL,SLBNH LOADED WITH THE

:
012767
012703
004767

000207

001000 000000G RDBSF:
000000¢
0000006

462

2gg

463

;

'SRDBSF
')

RS = BUFFER ADDRESS

: OUTPUTS:

2§§
456

(ROUTINE USED BY

TRANSFER LBN

[{s

IF TRANSFER WAS NOT SUCESSFUL

MOV
MOV
CALL

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

RETURN

;

*+=VYBSF=VERIFY THE BSF COPY

(ROUTINE USED BY

‘SRDBSF')

zgg

: VERIFY THE BSF COPY SPECIFIED BY THE INPUT PARAMETERS

468
469

: CALL: JSR
RS,VYBSF
;
BSF POINTER

473

: QUTPUTS:

475

470
2;5

;
:

474

476

‘78

479 001136
480 001140

012503
012500

482 001146
483 001150
484 001156
485 001156
486 001164

001010
021367
001020
026367
001014

488 001170

005713

490 001174

005763

481 001142

105767

491 001200

001003
001403

RO = SPECIFIC ERROR MESSAGE POINTER

;

0000006

0 If BSF NOT CORRUPT

MOV
MOV

cng)o.a
(R5)+ R

: GET THE BUFFER POINTER
: BAD S/N MESSAGE POINTER

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

:
:
:
:
:

(RY)

: IS SERIAL NUMBER NON-ZERO?

118

0000026G

1$:
000002

B8R

BNE

18T

492 001202 005763 000006

28:

497 001216 005725

48:

f2
gte doli
233 33}5}£ 338235

BNE
CMP
BNE
CMP
BNE

0000006

487 001166 000405
489 001172

VYBSF:

000002

POINTER TO 'XXBSF SERIAL NUMBER DOESN'T MATCH® MSG
POINTER TO *XXBSF COPY CORRUPT' MSG

wo :

8EQ

If BSF CORRUPT

sswLsf

(R3)

6(R3)

1§31

(RS)+

B
gsc

foew
& :

P LISTING THE MDBSF 2

IF NE, YES
VERIFY THE SERIAL NUMBER

IF NE, FIRST S/N WORD NOT CORRECT

CHECK THE SECOND WORD
IF NE, SERIAL NUMBER DOESN'T MATCH

: CHECK THE ALIGNMENT FLAG
: IF NE YES

: MAYBE?
: IF EQ,

: TEST THE ALIGNMENT DISK FLAG

RSO
poes
: SET THE ERROR INDICATOR
* CORRECT THE RETURN

FMTSUB - FORMAT

SUBROUTINES MACRO M1113 02-JuL~-82 13:20 PAGE 2-8

5%:

501
gg

3o
: **=SWTBSF=WRITE THE MANUFACTURER'S AND USER'S BAD SECTOR FILES

504

i THIS ROUTINE WILL WRITE THE 12 a*t MDBSF AND THE UDBSF ON THE

000241

505
506
507
508
509
510
511
512

515 001224
516 001230
517 001234
518 001240
519 001244
520 001252
25} 001260

?%2

525 001266
526 001272
527 001276
528 001300
ggg 001304

INDICATOR

SRTMF
SRTUF
#$LOGDV,R3
sgrgnx
#512. ,$XFRSZ
SMXLBN, SLBNH
SMXLBN+2,SLBNL

:
:
:
:
;
:
;

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

012705
016701
006201
012703
004767

000000G
0000006

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

:
:
:
;
;

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

;
:
:
;
:

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

000000C
000110

: WRITE THE 16 BIT MDBSF
MoV
MOV
ASR
MoV
CALL

: WRITE THE 16 BIT UDBSF

012705
016701
006201
012703
004767

000000G
0000006

000000C
000066

MOV
MOV
ASR
MOV
CALL

#SUDBSF RS
$UBSSZ.R1
R1
#10.WLT'1Q.X,R3
1%

: WRITE THE ALTERNATE DEC STD 144 TRACK (559.1)
ooooogc
17705
0000006 0000006
0000026 000000G

548 001356

012705

000000G

ggg 001374

004767

000020

549 001362 016701 0000006
550 001
006;01
551 oo1§ 0 012703 000000C

554

GOOD

001232
SWTBSF: : CALL
001262
CALL
000000G
MoV
177150
CALL
001000 0000006
MOV
0000006 000000G
MOV
000002G 000000G
MOV

012703
004767
016767
016767

229

SET THE

004767
004767
012703
004767
012767
016767
016767

gzg
541 001332
SA% 001336
543 001342
gzg 001350

: lstEtuanE . P—
:

:
PR;HARV DEC STD 144 TRACK (558,13) AND ON THE ALTERNATE TRACK
:
(559,1).
:
: INPUTS:
:
NONE
.
:
: OUTPUTS:
:
NONE
.

gg;

533 001310
534 001314
535 001320
536 001322
ggg 001326

cLC

SEQ 0050

388 001 %2 000505
498 001220

RTS

MOV
CALL
MoV
MOV

#SPHYDV,RY
SUPDMX
SALFLB,SLBNH
SALFLB+2,SLBNL

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

MCV

#$MDBSF RS

s SET MDBSF ADDRESS

CALL

: WRITE THE ALTERNATE MDBSF
MoV
ASR
MOV

$MBSSZ,R1
: NUMBER OF BLOCKS IN THE MDBSF
R1
- DIVIDE BY TWO
0£o.feu!lo.uno.a3
:SET WRITE FE CYLINDER FUNCTION

: WRITE THE ALTERNATE UDBSF

(SP)+

£
VO

w
w

M<ND
MDD
TMm

(7.3
]

wcc
22
oy

WITH THE BSF

OCK NUMBER
?

THE STACK

RETURN

-m

<®m®D®

17,17,

—m

s%énn

TION CODE
TION CODE

—~XX
@mxXmm

#2,SLBNL

ITE FE CYLINDER FUNCTION

(5P) ,R3
soskio

0000006

—D0

cCErvm

N =

24
R3,=(SP)

o occ

a?assz.fi1

PSS

L L]

#SUDBSF ,RS
#10.FEW!1Q.UMD,~

]
[

SEQ 0051

*+=$R]DSSF=-READ RMB0 SKIP SECTOR FILE
THIS ROUTINE WILL READ THE SKIP SECTOR FILE FOUND ON THE FIRST TRACK

OF THE FE CYLINDER AREA ON THE RMB8O.

INPUTS:
$SSFLB = DISK ADDRESS Of START OF SKIPPED SECTOR FILE
IS READ INTO SSF BUFFER

::
0000006
$RDSSF
176732
000000C 0000006
0000006 0000006
0000026 0000006
0000006

#SPHYDV,R3
PHYSICAL DEVICE ADDRESS POINTER
SUPDMX
UPDATE THE _ADDRESS VALUES
#512.+<SSSFLN> ,SXF RSZ
; SET SIZE OF ONE COPY OF SSF
NH
$SSFLB,SLB
SET DISK ADDRESS OF SSF

0000006 0000006 18:
0000006
2%:

#$SSFLN,SLBNL
LBNH
F,RS

0000006

0000006
1777776
176556

(]

COPY

GET ADDRESS OF SKIP SECTOR FILE BUFFER

: SET READ FE CYLINDER FUNCTION

READ 1°COPY OF SSF
IF cc, OK
CAN'TREAD 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

4%:

5%:

TRY NEXT USABLE SSF

o
(%]~ v
va-wgne-—a
o
N
RNe
N

0000006
0000006
0000006

3s:

LFER'1Q.UMD,R

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

(BYTES)

GET NUMBER OF COPIES OF SKIP SECTOR FILE
SAVE THE COPY COUNT
CONT INUE

R1,-(SP)

0000006

SSSFLB*Z{SLBNL

$SSFSZ,R
PEDARNARRBRARN)

N=OWVNONONO
= =

(=lel=l=

SnaroeNeaa
3‘385050008

CO=000—
- b OO b b

S rornowvnng

‘°€g§§

- e

e e ed O

=lelelelelele]

OUTPUTS:
A GOOD COPY OF THE SSF

(==l
(<=

]
R
e
T
e
B

—

MOV
MOV

000000C

[el=l=]
[=l=1=]
[=l=1=]
[={=1=]
[=l=l=]
oND

NOON = NNNNON
= 0N =2 2\ N

[=l=lol=l=] [el=l=lvlelelelele]
[=l=l=l=le] OO
OOt b
o V=2 \WVIN) S = O OMNONOMNN
N NN~IOMNES NN~
OoONCOONONOO SO0 (=l=]

0000006
0000006

VIV

WY VIWAVWAVWWIWLA
ovl\smmmmmmvn\nmmm\nm
@000
RN
R
oo oSVwWAWVWALA
<R JRES28 SBIR WVASSWNND 28 NN NS
- 323252238338 00~
-O0 AN W=
OO0 00~
=
OO
[=1=1
888888838888
oo 888888388388
oo 28838 23828328
°dfldddflflddddfl
-‘d—l—.—l-‘fl-‘d-‘d—.gg
o VWY
BB SO
20
AT
P
LD
oI
LMY
oS
~
VS
-t
e OO
&N
OO PN OSNOONO
RS

FMTSUB - FORMAT SUBROUTINES MACRO M1113 02-JuL-82 13:20 PAGE 2-9

PRINT THE MESSAGE
TRY AGAIN
START WITH HEADER
AND 1TS LENGTH
COMPUTE HEADER CHECKSUM

FMTSUB = FORMAT

SUBROUTINES MACRO M1113 02-JuL-82 13:20 PAGE 2-10

61§ 001620 oo19§o
612

001616

020120

614 0016 g

812

616 001632
617 001634

03011
0 191

619 001642

001407

615 0016

618 001636

1777776

04767 176542

005767

0000046

550 001644

005767

000006G

egg 001652

122767

000001

621 001650

623

001404

000730
005726
105767
001026
105767
001007

632 001714

016767

634 001724
635 001732
636 001734
637 001742
638 001744

026767
001004
026767
001404
012700

0000006 000000G 8%:

0000006

22? 001754

000167

000446

633 001722 000414

; CHECK THE CHECKSUM WORD

MOV

#S$SSFDT=1,R1

: DATA FIELD LENGTH

(MP
BNE

R1, (RO)
$

t CHECKSUM OK?
P IF NE, NO

BEQ

0000006
0000006

0000006 000000G
0000026 000002G

B8R

38
(SP)+
$SWLST
108
$SWMOD
8$

IF EQ,

YES

:
:
*
:
:
i

TRY AGAIN
CORRECT THE STACK
LISTING THE BSF'S ?
IF NE, YES
MODIFYING THE BSF'S
IF NE,
YES

: COPY THE SERIAL NUMBER

$SSF+2,SSNAME+2 :

108

9s:

$SSF , SSNAME
9%
SSSFOZ.SSNAHE*Z
108
#MSGERS,RO

108:

JMP

$SRTSF

JMP

: SSF CORRUPT

CMP
BNE
CMP
BEQ
MOV

0000026 0000026

639 001750 000167 0000006

$SSF, SSNAME

IF EQ,

: 16 BIT MODE SSF 2

MOV

: REVISION DATE PRESENT

#1,8S5F+12

#SMSGS59,RO

MOV

: CREATION DATE PRESENT

SSF+6

MOV

BR
ST
TSTB
BNE
TSTB
BNE

78:

: COMPUTE CHECKSUM OVER DATA AREA

SSF+4

BEQ

68:

: IF NE, BAD CHECKSUM

SSFCR

BEQ

CMPB

625 001666
626 001670
627 001672
628 001676
629 001700
630 001704

012700 0000006

631 001706 016767

R1,(RO)+

001483

SEQ 0052

CMP

001660

624 001662

BNE

CALL

0000126

$SMSGWR

;

: CHECK THE SERIAL NUMBER
: IF NE, DOESN'T MATCH
: CHECK THE SECOND S/N WORD
; IF EQ, S/N OK
* HDA AND ENTERED SERIAL NUMBER DON'T MATCH

: EXIT

: SORT THE SSF AND RETURN

642

645

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

648
ggg

s
;

INPUTS:
$SSFLB = DISK ADDRESS OF START OF SKIP SECTOR FILE

651
652
653

: OUTPUTS:
;
WRITE SKIP SECTOR FILE
;

g:z

; ««=SWTSSF=WRITE RMBO SKIP 3ECTOR FILE

g:g

656 001760

657 G01764
658 001770
659 001774
660 oogooo
661 002006
eog 002010

004767

012703
004767
012700
012701
004767
010120

663 002012 012701
664 002816
665 002022

004767
010110

000442

0000006
176420
0000006
1777776
176364

1777776
176352

895
005035 015705 0009006 000006
668 002036 012703 000000C

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

SWTSSF::CALL

MOV
CALL
MOV
MOV
CALL
MOV

MOV

CALL
MOV

R
MOV

SSRTSF

; SORT THE SSF

#$SSFDT=1,R1

:GET LENGTH OF SSF DATA AREA

#SPHYDV,R3
Sgronx
#35SF RO
#$SSFHD=1,R1
ssrcas
R1, (RO)+

SSFCRC
R1, (RO)

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

:G0 COMPUTE CHECKSUM OVER DATA
:STCRE THE DATA FIELD CRC

#10.FEW!10.UMD,RS

R
R
:SET WRITE FE CYLINDER FUNCTION

FMTSUB = FORMAT SUBROUTINES MACRO M1113 02-JuL=-82 13:20 PAGE 2-11

670 00 058 016787 § 8 808888
671 002056 016701
8
669 002042

016767

672
673

004767
e§767

002062
00 o;e

674 002074

675 002100
676 002102
677 002104

§79

0000006

ooe 0000006

1%:

10 87 0000006

005301
001367
000207

28:

SEQ 0053

MoV

MOV
MOV

$SSFLB,SLBNH

:;SETUP LBN

CALL
ADD

AD(CB

sgsxxo
#SSSFLN,SLBNL

s%suu

: WRITE THE SSF
: UPDATE BLOCK NUMBER

R
1%

: FINISHED ?
P IF NE, NO
;

DE(
BNE
RETURN

sssrLaoz
ELBNL ;:"GET NUMBER NF COPIES OF SKI? SECTOR FILE
$55FS2,R1
-

gg?

i *=<$SRTRK=SEARCH BSF OR SSF FOR ANY SECTOR ON A TRACK

682
683

: 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

ggg

: SECTORS MAY BE SKIPPED ON THE CURRENT TRACK AND CYL INDER.

686

: INPUTS:

687
283

;
:

690
691
692

P QUTPUTS:
:
CC=
:

693
69%
695

893

:
:
:

698 002106
699 002110
700 002114

022121
021127
001413

702 002122

001006

704 002132

001002

126167

705 002136 000241

706 002136 000207

707 002140

708 002142
709 002144

;}9 002146

020102

001361
000261

000207

€S =

$SRTRK: : (MP
(MP
BEQ

177777

701 002116 021167 0000006

703 002124

R1 =
R2 =

000003

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

(R1)+,(R1)+
(R1),#=1
3s

; POINT OT NEXT ENTRY IN SPECIFIED FILE
P FILE exunusreo
: IF EQ,
YES

BNE

:IF NE,

18:

BNE

: IF NE

28:

CMP

R1,R2

CMP

0000006

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

3s:

(R1),8CYL

CMPB

RETURN
BNE
SEC

(R1) ,$TRK

$SRTRK

RETURN

; chxuéea NUMBER MATCH ?

; TRACK nunseas MATCH ?

: SHOW
énrav WAS FOUND
;
:

IS SPECIFIED FILE EXHAUSTED ?

i IF NE, NO
: SHOW SPECIFIED FILE EXHAUSTED

71
712
714
715

R
: #»=$SRALL=-SEARCH ALL
THE BAD SECTOR FILES
*
SSRFES-SEARCH THE
FE CYLINDER BUFFER
:
SSRMDF-SEARCH MANUFACTURER'S BAD SECTOR FILE

;}g

716
717

;%?

*
*

$SRUDF-SEARCH THE USER'S BAD SECTOR FILE
SSRSDF=SEARCH THE SKIPPED SECTOR FILE

$SMBSF-SEARCM THE FILE SPECIFIED BY R1 & R2

* THIS ROUTINE WILL SEARCH THE SPECIFIED FILE FOR A MATCH

;55

t INPUTS:

725

$SEC, STRK, AND SCYL PRESET

YSSMBSF'

INPUTS:

FMTSUB = FORMAT SUBROUTINES MACRO M1113 02-JuL-82 13:20 PAGE 2-12
726
;gg

;
i

729
750

: OUTPUTS:
;
IF

;gg

IF ¢S

LENABL

LSB

731

;

734

;gg
737 002150

016746

740 002162

004767

000154

7642 002170

105367

0000006

738 003154 004767
739 002160
103015
741 002166

10340;

7643 0021764
7644 002200
745 002202
746 002206

004767
103005
004767
10300;

748 002214
749 002220

012667
000207

751 002222

012701

0000006

R = ADDRESS OF MDBSF ENTRY,

R3 =

ISOLATED BAD SECTOR FLAGS.

R1 = POINTS TO NEXT ENTRY (FILE EXHAUSTED)

CALL
BCC

$SEC,=(SP)

$SRSOF
gs

;

BCS

CALL

SRSSF

DECB

$SEC

CALL

SSRFES

THE SECTOR ADDRESS

: SEE If ERROR SECTOR IS WITHIN A SKIP REGION
1F €S,

: DECREMENT THE SECTOR ADDRESS

CALL
BCC
CALL
BCC

0000006

28:

MOV
RETURN

1777746

$SRFES: :MOV

#SFEBSF
=4 ,R1

: FEBSF STARTING ADDRESS

;gz 002232 000416
755 002234 012701 9220046

B8R
SSRMDF : :MOV

3s
#SMDBSF
+4 ,R1

;
: MDBSF STARTING ADDRESS

752

002226

756 002240

004767

000040

000006

012702

0001006

;gg 002244

000411

012702

0007746

759 002246

012701

0000046

;25 002256

000404

760 002252

763 002260

012702

012701

MOV

$SRUDF : :MOV

0007746

MOV
BR

000000C

$SRSDF : :MOV

764 002264 012702 000000C
;22 002270

767 002270 022121
768 002272
799 oozgzg

021127
001417

77 oozgg:

001012

002

772 002
773 002314
774 002316

775 002324
776 oozsgg
777 002330

778 002332
779 ooz;sa

780 002336
781 002340
782

3s:

$SMBSF : : CMP

177777

021167

0000006

126167
001006
126167

000003

0000006

000002

0000006

001002
000241
000207

020102
001355

000261

000207

MOV

.DSABL

#SFEBSF+64.,R2

RESTORE THE SECTOR ADDRESS

: FEBSF LENGTH

; MDBSF LENGTH

#SUDBSF
+4 ,R1

. UDBSF STARTING ADDRESS

#SUDBSF +1000-4 ,R2

: UDBSF LENGTH

csSSfo<z-3asrno>-4.n1

; SSF STARTING ADDRESS (=4)

#$5SF+<1000+$SSFLN>=2 ,R2

: SSF ENDING ADDRESS

(R1)+,(R1)+

; POINT TO NEXT MDBSF ENTRY

(R1),8CYL

: CYLINDER NUMBERS MATCH?

BNE
cLC
RE TURN

SEC

:
;

RETURN
LSB

: SEE IF ENTRY DUPLICATED IN THE FE AREA

BNE

CMP
BNE

. SEARCH TNE MDBSF
: IF CC, ADDRESS PRESENT
: SEARCH
THE UDBSF
: 1F CC,
ADDRESS PRESENT

#SMDBSF +1000~4 ,R2

(R1) ,#-1
5$

CMPB
BNE
CMPB

5%:

(SP)+,$SEC

cMP
BEQ

CMP

48:

$SRMDF
28
$SRUDF
28

SAVE

:: SEE
IF ENTRY
IN THE SSF
1F ¢C,
IT IS

18:

747 002210

000034

SEQ 0054

R1 = ADDRESS OF gnsr BSF ENTRY (INITIALLY $BSF+4)
R2 = LAST ADDRESS OF SPECIFIED FILE

$SRALL : :MOV

000100

3(R1),$TRK
13
2(R1),$SEC

R1,R2
3

: MDBSF EXHAUSTED?
: IF EQ YES
:

IF NE NO

: TRACK NUMBERS MATCH?
: IF NE NO
: SECTOR NUMBERS MATCH?
: IF NE NO
: SHOW ENTRY WAS FOUND
;

*
P

IS SPECIFIED FILE EXWAUSTED?
IF NE, NO

: SHOW MDBSF EXHAUSTED
;

FMTSUB = FORMAT SUBROUTINES MACRO M1113 02-JUL-82 13:20 PAGE 2-13 =

SEQ 0055

783
784

787
788

;
:

S ROUTINE WILL SEARCH THE SSF FOR AN ENTRY ON
tne CURRENT TRACK AND
ch;uosn
IF AN ENTRY IS FOUND WHICH IS LESS THAN THE SECTOR ADDRESS

791
79
79

i
:
;

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

796
797

: OUTPUTS:
;
€C =

;gg

s **=$SRSSF-SEARCH SSF FOR AN TRACK ENTRY

;38

;gg

;

;gg

800

;

801 002342

010146

803 002350

021167

0000006

805 002356
806 002364

126167
001006

000003

0000006
0000006

001012

807 002366
808 00237¢
809 002376
g;? 002400

126167
101011
000241
000410

000002

812 002402

020127

000000C

814 002410
815 002412
816 002416
817 002420
818 002422
819 002426
820
821

022121
021127
001354
000261
012601
000207

813 002406

001404

836 002450

€S =

.LE. ADDRESS IN $CYL,$TRK,S$SEC

NO SSF ENTRY .LE. ADDRESS IN SCYL,$TRK,$SEC
a1

: SAVE R1

(R1)

"CYLINDER NUMBERS MATCH
?

<a1).stax
$

: TRACK NUMBERS MATCH ?
: IF NE, NO

133 ro<z-sssruo> R

BNE

CMP

CMPB
BHI
cLC
8R

28:

SSF ENTRY

MOV

CMPB
BNE

3:
is:

(R1),$SEC
$

: lF NE, NO
:
:
:
;

CHECK 'FOR A SECTOR
IF WI, SSF ENTRY
SHOW PS$SEC' IS WITHIN SKIP REGION
0K, EXIT

CMP

n1.csssro<1ooo-sssruu>-z

CMP
CMP
BNE
SEC
MOV
RETURN

(R1)+,(R1)+
(R1),#-1
1$

BEQ

(SP)+,R1

BEGINNING ADDRESS OF SSF DATA

: IF EQ, YES

:
:
:
:
:

; SSF BUFFER END ?

INCREMENT BUFFER POINTER
SEE IFf eno OF DATA
IF NE,
NO
SHOW PSSEC’ NOT IN SKIP REGION
RESTORE R1

i *+=$SRTSF=SORT THE SSF BUFFER

824
825
826
827
gzg

832 002426
833 002436
834 002440
835 002444

1$:

177777

gg%

230

$SEC LOADED WITH THE SECTOR ADDRESS

$SRSSF : :MOV

802 00234% 012701 000000C
804 002354

$SEC', THE ROUTINE WILL RETURN WITH THE *C®
BITCLEAR.

: INPUTS:
:
NONE
:
: OUTPUTS:
:
:
SSF FILE SORTED IN ASCENDING SEQUENCE

012767
005067
005067
004767

010103

001061 0000J0G $SRTSF: :MOV
0000006
CLR
oooooos
CLR
177610
CALL

837 002452 012701 000000C
ggg 002456 000167 000070

MOV

MOV
JMP

#561.,8CYL
$TRK
$SEC
SSRSDF

R1,R3

: LOAD A PHONY CYLINDER ADDRESS
: CLEAR THE TRACK Aoogess
:
SECTOR
: FIND THE END OF THE DATA

: CCPY THE_END OF DATA POINTER

osisro<2-sssruo> R1
SSF STARTING ADDRESS
$SORT
: SORT THE SSF

FMTSUB - FORMAT SUBROUTINES MACRO M1113 02-JuL-82 13:20 PAGE 2-14 .
840

SEQ@ 0056

321

; v*=$SRTMF=SORT THE MDBSF BUFFER

P INPUTS:

844
845
846

3
NONE
:
: OUTPUTS:

gzg

850

851 002462

012767

001061

853
854
855
856
ggg

005067
004767
010103
012701
000167

oooogoc
177530

85 005475 00§067 0000006
002474
002500
002504
002504
002512

MDBSF SORTED IN ASCENDING SEQUENCE

000000G $SRTMF
: :MOV

CLR

CLR
CALL
MOV
MOV
JMP

000010G
000034

859
860

3¢

863

: INPUTS:

32}

#561.,8CYL

;

LOAD A PHONY

$SEC
ssangr
R1,R
#SMDBSF+10,R1
$SORT

:
:
:
;
:

g
" SECTOR
**
SEARCH THE MDBSF
COPY THE END OF DATA POINTER
MDBSF STARTING ADDRESS
SORT THE MDBSF

$TRK

; **=$SRTUF=SORT THE UDBSF BUFFER

864
865

:
:

NONE

gg;

UDBSF SORTED IN ASCENDING SEQUENCE

866

870

871 002516
872 002524
873 002530
874 002534
875 002540
876 002542
g;z 002546

CYLINDER ADDR

: %LFAR THE taAExLiogeessoo o

: OUTPUTS:

012767
005067
0065067
004767
010103
012701
000167

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

#561.,8CYL
$TRK
$SEC
ssaugr
R1.R
#SUDBSF+10,R1
$SORT

;
:
:
:
;
,
:

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

879
880
881

:t
; **=$SORT=SORT THE INPUT TABLE
: THIS ROUTINE SORTS THE INPUT TA3SLE IN ASCENDING ORDER

884

: INPUTS:

ggg

gg§

: BASED ON DISK ADDRESSES.

885

R1 = TABLE START ADDRESS

R3 = TABLE UPPER LIMIT ADDRESS

888

: OUTPUTS:

890

889

89§ 002552 010302
89 002554
895 002556
896 002562

160102
02%702
103042

SORTEC TABLE

$SORT: MOV
000004

SUB
CMP
BHIS

R3.R

R1,R
#4 R
4%

: R2 = CURRENT ENTRY POINTER

: TEST FOR AT LEAST
: TWO ENTRIES IN TABLE
: IF NOT(HIS), NO NEED TO SORT

FMISUB = FORMAT SUBROUTINES MACRO M1113 02-JuUL-82 13:20 PAGE 2-15
897 002564

01010

899 002570

01236

901 002602

03111;

903
904
905
906

001004
ozgteg
00341
011146

898 002566 ozg z%

900 002574

9o§ 002604

002606
002610
002616
002620

162767

000004

000070

00241

907 002622
908 002626

016146
011511

910 0026 g
911 002642
912 002644
913 002646
914 002650
915 002652
916 002654
917 002660
918 oogeoz

012662
01261
0
5
020
0 5 54
o% 121
020167
002003
010105

909 002630 016261

919 002664

02222

351 002670

000207

920 002666

008076

000002

18:

000002

28:

mmg 000002

MOV

CMP

R1,R2

;

MOV

(RE)+,(R2)+

SUB

R3, TEMP

04 TEMP

: FORM AND SAVE

* UPPER LIMIT ON R?

CMP

BLT

BNE
CMP
BLE
MOV

MOV
MOV

MOV

00000

3%:

000012

MOV
MOV
CMP
(MP
BLT
CMP
(MP
BGE
MOV

CMP

000745

48:

355 002672 000000

TEMP:

560 0057

(R1), (R2)
$

$
(R1),2(R2)
$
(R1),=(S5P)

2(R15,=(5P)
(R2), (R1)

unhym»

(SP)+,2(R2)
(sp)o.<n5)
(R2)+.(R2)+
n;,as
1
(R1)+,(R1)+
R1, TEMP
X
R1,R2

(R&)+,(R2)+

.WORD

RETURN

: '

INIT R

PCYL I = CYL 1417
PIF LT

YES

PIFNE
CYL I » CYL I+
PCYL D = CYL I+1...TEST TRK/SEC
: IF LE
NO SWAP NECESSARY
: SWAP ENTRIES

;
:

;

;
:
:
P
P
:
:
:
:

"
-

.
.
UPDATE R2
THIS PASS DONE?
IF LT
NO
UPDATE R1
ALL DONE?
IF GE
YES
RESET R2

: SORT WORK LOCATION

925

g%g

: THIS SUBROUTINE WILL GENENRATE THE 2-WORD HEADER PATTERN.

: **=GENHDR-GENERATE HEADER WORD PATTERN

3%9

930

INPUTS:

ggg

933

: OUTPTUS:

3%;

936

937 002674 016710 0000006
938 002700
939 002706

940 002714

321 002720

116760
116760

0000006 000002
0000006 000003

116746

0000006

052710

MOVB
MOVB

BIS

MOVB

$CYL, (RO)

: SET CYLINDER NUMBER

: SET GOOD SECTOR AND 16-BIT FORMAT BITS

$SEC.2(RO)
STRK.3(RO)

(RO)

$SEC,-(5P)

: SET SECTOR NUMBER
: SET TRACK NUMBER

* SAVE THE CURRENT SECTOR ADDRESS

; SEARCH THE SKIP SECTOR FILE FOR A SECTOR ON THIS TRACK THE SAME AS
P VESEC'.
IF A SECTOR IS FOUND, THEN SET THE SKIP SECTOR FLAG IN THE

322

947 002724
948 002730
949 002732
950 002736
951 002740
952 002744
953 002746

RO = UPDATED BUFFER ADDRESS

GENHDR : :MOV

150000

9%
944

RO = BUFFER ADDRESS

* REMAINING HEADTM®S AND NOTE THAT A SKIPPED SECTOR WAS FOUND.

004767
103403
052710
000430
004767
103404
052710

177330

1$:

020000
177376
020000

28:

CALL
BCS
BIS
BR
CALL
BCS
BIS

SSRSDF
2%
liOOOO.(RO)
6
BSRSSF
33
#20000, (RO)

; SEARCH FOR '$SEC' IN SKIP SECTOR FILE
: 1F €S, NOT IN SSF
: SET SKIP SECTOR FLAG (BAD)
+EXIT
.
:
: SEARCH FOR *$SEC' WITHIN SKIP REGION
* IF CS, NOT IN SSF
* SET SKIP SECTOR FLAG IN HEADER (BAD)

002752

SUBROUTINES MACRO M1113 02-JuL-82 13:20 PAGE 2-16

105367

0000006

DECB

$SEC

: SEARCH THE MDBSF

DECREMENT THE SECTOR ADDRESS

upBSF,

976

140000

000207
000001

0000006
0000006

5%:
6%:

RETURN

.END

oynr-

177210

FE E B $ F BUFFER FOR A MATCH.
N T H E APPROPRIATE HEADER.
IN

#100000, (RO)

ONE

S E ARCH THE MDBSF
I F gS. MDBSF EXHAUST E D
CLEAR THE MF BIT (BAD )

#40000, (RO)

@®

969
006
970 003012
971 003014
972 003020
973 003024
974 003030
975

OO
D=

040000

ggauor

cynr-

4%:

177250

100000

zgkflbf

>PROO
CO=OP

DODDO
V=3P

: FOUND, SET THE BAD SECTOR
177252

SEQ 0058

FORMAT

FMISUB -~

$SRFES
6%

E BSF

(SP)+,$SEC

gECTOR ADDRESS

#140000, (RO)

SECSZ.RO

_EXHAUSTED

HE UF & MF BITS

(BAD)

SYMBOL TABLE

FMISUB = FORMAT

SUBROUTINES MACRO M1113 02-JuL=-82

TR
RR

[0.HMS= seenes GX
X

SDSKI0= wewene GX

10.RLB=

#eeeee

SOVICE=

trenee

SEG 0059

13:20 PA PAGE 2 =17
2 13:20

Bt S
=

insc §: revene (X

RDgSF 88? ;g

$§§Frg: teeeee g:

$HSGG§=
sreree
(X
MSGhb=
wevner
(X
snscgss wevene GX

$SMBSF
002270RG
$SNAME=
weeean
GX
CSORT
02552R

$SWLST=
wewnes
GX
$SWMOD=
wewwew
(X
$TRK
= weanee GX

MSG41=

weveer

READ

wwwwwye

$SSFLN=

seeene

SDVUNT= teenes

SECSZ = weeser GX

SLBNH = exenee GX

$SMVPAT 888308RG

=SRHDF

§6R6

SUBSS§= veneee gl

TEMP
002672R
TRKSZ = seeeer GX

SLOGDY= wwxwex GX
$MBSSZ= wewven GX

SMXLBN= seeves GX
SMXSEC= wwweer (X

$SRSSF
$SRTMF

42RG
462RG

SUNTID
SUPDMX

000562RG
000414RG

$SRTUF

02516RG

$XFRSZ=

sevesne

SSFCRC

SEROCT
008032RG
074R6
$EROUT
8
SFEBSF= ennnee

000374R

SLBNL = weewen GX

VYBSF
001136R
SALFLB= wevers GX

SBUF
=
$SBUFRX=

reense
weseee

SMDBSF= wewwae GX
$MOVE
000240RG

(X
(X

000000
003032
ERRORS DETECTED:

SMSGWR=

. ABS.

weeees

000
001

- VIRTUAL MEMORY USED:

908 WORDS_

( & PAGES)

DYNAMIC MEMORY:
7942 WORDS
( 30 PAGES)
ELAPSED TIME:
00:00:31
£300,201FMTSUB, £ 300, 301FMTSUB=L300,10IFMTSUB

SMXCYL= eeeene (X
SMXTRK= wewwes GX
SPAT
= swener (X
SPHYDV=

#eteee

SEC = NNREAY

10.WLT= seeeee (X

1Q.UMD== seevee
GX
[Q.X
weesse
GX
MSG
000336R

$MSG4L2= wereee (X

$SRSDF

$SRTRK
$SRTSF

60RG

106RG
426RG

$SSFSZ= wennen (X

SUDBSF= #eeees GX
SWIBSF
SWISSF

001224RG
001760RG

COMMAND MACRO M1113

12-JAN=-B2

SEQ 0060

11:02 PAGE 2

TITLE

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

OO0

N WV

B NN = OO0 00 N0 W B NA) —

AND PARSE

NN = O 000 O

FMTIPRS = GET

31 000000
32

IDENT

FHTPR& = GET AND PARSE COMMAND LINE

701,00/

SOFTWARE

FURNISHED

MASS.

UNDER A LICENSE FOR USE ONLY ON A

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

EQUIPMENT CORPORATION.

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIAB l ITy OF
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

VERSION 01.00

C. HESS
. LEAVITT
+MCALL
«MCALL

14-AUG-80
14-0C7-80

DIRS, ISTATS, STATES, TRANS
DEVDF$
DEVDF$

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

SEQ 006

; **=$PARSE=PAPSE COMMAND L INE

; THIS ROUTINE WILL GET THE COMMAND LINE AND PARSE THE

INPUTS:

4
44

:
:

OUTPUTS:
R1

: DEVICE NAME AND SWITCHES.

4«8

49 000000

SO 000004
51
S% 000012
53 000016
54 000022
55 oooo;e

56 000030

57 000036
33 000040

005227

001404
012700
004767
012700
004767
001006

122767

001367
000167

177777

0000006
0000006
0000006
0000006

NONE

1$:

BEQ
MOV
CALL
MOV
CALL
BNE

CMPB

BNE
JMP

0000006

#-1

1%
#$STARS RO
$PRINT
#$MSG70,R0
SPRMPT
2%

COMMAND LINE TERMINATED WITH "‘EOF'".
;

:
;
:
;
:
:

#1E.EOFR377,810s%
1%
SFMTEX

FIRST TIME THRU HERE ?

BR IF YES
GET ADDRESS OF MESSAGE
PRINT ‘sassannsnn’lF>
GET PROMPT MESSAGE ADDRESS
PROMPT USER AND GET RESPONSE
IF NE COMMAND LINE ENTERED

: END OF INPUT?

: IF NE NO
s EXIT GRACEFULLY

: SETUP TO CALL THE PARSER

62 000044

005001

64 000052

012704

63 000046

012702

000000°

2%:

0000006

65 000056 012705 000099'
66 000062 012767 1777
0000006
67 000070 ooargr 0000006
68 000074

103435

69 000076
70 000102

005767
100745

000000G

72 000110
73 000114

004767
001006

0000006

75 0001264

001002

000104 012700 0000006

74 000116

76 000126
77 000132

78 0001

79 000140

80 000144

81 000150

82 000154
83 000156
84 000162
32 000166
87 000170
gs 000174
90

EXIT IS TO ""SFMTEX''

$PARSE : : INC

000000C 0000006

= DEVICE gulr NUMBER

EXIT IS TO ''SMESAG'' IF ERROR.

122767

000000C 0000006

000167
005001

0000006

012704

8888006

012702

000000°*

012705

10°*

004767

103405
004767
016701
000207
012700
000167

0000006

000134
0000006
0000006
0000006

CLR

: CLEAR OPTIONS WORD

MOV

#SBUFRX,RG

: GET ADDRESS OF COMMAND L INE

MOV

#UNIT, RS
#-1,30VUNT
.TPARS

;s GET STARTING STATE ADDRESS
; RESET DEVICE NUMBER
: GO PARSE THE INPUT LINE

1ST
B8MI

SDVUNT
1%

s NULL PARSE?
;s IF Ml, YES

CALL
BNE

SPRMPT
4%

MoV

CMPB

BNE
4$:

;5 GET KEYWORD TABLE ADDRESS

MOV
MOV
CALL
B8CS

3$:

#UNTKT1,R2

SYNTAX

#SMSG71,RO

: IF CS SYNTAX ERROR

s GET PROMPT MESSAGE ADDRESS

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

0{!.&0:&377.5105?

: END OF INPUT?

: IF NE NO

MOV

#OPTKT2 R2

; GET KEYWORD TABLE ADDRESS

MoV

#OPTION,RS

JMP
CLR

MOV

CALL

BCS
CALL
MOV
RETURN
SYNTAX: MOV
JMP

SEMTEX
R1

#SBUFRX ,Ré

. TPARS

YNTAX
1STDV
SDVUNT ,R1
#3MSG2,RO
SMSGWR

: EXIT GRACEFULLY
: CLEAR OPTIONS WORD

: GET ADDRESS OF COMMAND L INE

: GET STARTING STATE ADDRESS
: GO PARSE THE INPUT LINE

:
:
:
s

IF CS SYNTAX ERROR
MAKE A FINAL DEVICE TEST
SET SPECIFIED UNIT NUMBER
ALL IS OK

: SYNTAX ERROR
: EXIT WITH WARNING STATUS

FMIPRS = GET

AND PARSE

COMMAND MACRO M1113

12-JAN-82

11:02 PAGE 3-1

SEQ 00¢/

COO0OVO
W —=O00~N

: STATE TABLE FOR 'TPARS' PARSER
NLIST

ISTATS

—o 3R 2S3R

b
s
D e
D i o cd D o

b e e b e b (O D O

i e

S BN R A R N N S oV,

TRANS
TRANS
TRANS
TRANS

e b b e

TRANS

TRANS
TRANS
TRANS

E0S SEX%Y

: TERMINATING STATF

OPTST2,0PTKT2

OPTION

$EOS,SEXIT
“'CSRTM,
''VEC''.VEC
“'VFL''.VFL

"“‘ERL'*;ERL

L1701
''FO'".FO
“IN".IN

; SET NEW CSR ADDRESS
STATES

tanns

STATES
TRANS

(SR

SNUMBR,SWITCH,$STCSR

; SET NEW VECTOR ADDRESS

88 88

A RN
S SR

SNUMBR, ,$STUNT

srAtis

D e o

S!Al;i
TRAN

STATES
TRANS

VEC
‘=

SNUMBR, SWITCH,SSTVEC

STATES
TRANS

SONUMB, SWITCH,SSTVFL

o
88
83

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

TRANS

; PROCESS SWITCH OPTIONS

) D e

NLT

TRAN

ISTATS

srnrgs

STATES

NI NI NN NI NINI NI NI

o e o cnd e
o
i o
b o

UNTST1,UNTKTI

READ DEVICE AND UNIT NUMBER

i e
i

e o

SBBDBPPW

MEB

; SET ERROR LIMIT

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

STATSS

151 ooosoo

srAris

}gg 000200

TRAN

}gg 000200

TRANS

}gg

SEQ 006°

§RL

SDNUMB,SWITCH,SSTERL

; SET BAD BLOCK FILE/SKIP SECTOR FILE LIST

156 000200
157 000200

STATES
TRAN

L1
:,L0G

160 000200
}g} 000200

srnrgs
TRAN

LOG
L,SWITCH,$STLOG

}gg 000200

TRANS

}gz

SLAMDA,SWITCH,$STLIS

s SET FORMAT ENABLE

165 000200
166 000200

STATES
TRANS

TRANS

SLAMDA,SWITCH,SSTFOR

169 000200
};? 000200

STAth
TRANS

FE
'F,SWITCH,SSTFFE

}gz 000200

};g

: SET BSF/SSF INITIALIZATION

174 000200

STATES

};2 000200

TRANS

};;

STATES
TRANS

}gz 000200

STATES

}g} 0002

TRANS

185

LENABL

186
187

LAMDA,SWITCH,$STIN

SWITCH
SEOS,SEXIT

*/,0PTION

: NULL (TERMINATING) STATE

LSB

}gg

* DEVICE UNIT NUMBER

190

191 000200

016767

0000006 000000G $STUNT ::MOV

193 000214
}gg 000216

101402
000167

177746

192 000206

026727

000000G 000007

196

CMP

BLOS
JMP

PNUMB,SDVUNT

;

1%
SYNTAX

+ IF LOS, YES
: SYNTAX ERROR

$DVUNT . #

STORE UNIT NUMBER

: IS DRIVE NUMBER WITHIN RANGE ?

;

}3;

* DETERMINE DEVICE VALIDITY

200 000222
53§ 883§ 6

: CHECK FOR ANOTHER OPTION

179 000200
180 000200

199

':,FE

016702
35?:3%

36 016202

0000006
0000006 000004

504 883242 001§7¥ v

000000

1$:
2$:

MOV
5@3

$DEVHD,R2
: ADDRESS OF 1ST DCB IN SYSTEM
22v1ce.o.nnn(az)5 {g Eglgegue RIGHT DCB?

MOV

BNE

.LNK(R2),R2

: POINT TO NEXT DCB

: LOOP TILL END OF LIST

TN =

[=Te gl e

NNN
==L PONNO

JeTe Yo Xo Xl

YN NN =~y

COO~O==00
[ = e~
1
oo
ON

3s:

C
0 0 06 4S:
G 883809

880
006 000006
8 oog 6
8

00020

0000006

MOV

MOVB
MOVB

MOV
MOVB
MOV

MOV
RETURN

SEQ 0064

#$MSG4 , RO

DEVICE NOT IN SYSTEM

SDUUNT.D.UNIT(R )
SOVUNT.D.UNIT+1 R2) T
.UCB(R2) ,R
ovgnt U.ONIT(R
R1,$UC

U.SCB(R1),$5CB

6 ET

: SET UNIT NUMBER RANGE
UCB ADDRESS
; SAVE SPECIFIED UNIT NUMBER

i S AVE UCB ADDRESS
S AVE SCB ADDRESS

MOV

000570* 000004

MOV
ST

000004
000004

000040 000010
000006

000010

010000

000010

MOV

MOVB

MOV

SINTR, 304
(R2)

5%
(SP)+, a4
38
(SP)+, N

#40,10(R2)

g.uu T(R1),10(R2

6(Ré).fl0

R
R OWN IN ITS PLACE

;2 ADDRESS EXIST?

: SELECT UNIT

RIVE TYPE REGISTER

CMP
BEQ
gag

cgaozo.no
7
gsgoze.no

7%:

BIT
BEQ

#10000,12(R2)
8s

000026

5%:

6$:

BCC
MOV
BR
MOV

S.CSR(R2),R2

anG,=(SP)

LTATEATATETE DR DR TR LB 1

MOV

000004

0000006

8s:

22"

gg@sc7.no

DRIVE OFFLINE

—

CO—-00

000012

$UCB,R1
$SCB.R2

O=O0000CO00

N = b b b
- D) b s e cnd
- ) b ) b ) =
NENN
S NO NS NONN=NO'~N
NNNNINSN
e
l=J=] OOO0O0OO=OO O =
=S NS OOO
NOoN OO N=NIWO WO
PIN NN NN NN -

°°°§ SaSRERSN°°‘-§N
°°§
gfl& 8%
OV‘MNUO‘OO
OOWU‘VJS

$TSTDV: :MOV
MOV

g;oo 0.10(R2)

0000006

9%:

28'

1§gssrz.ao

DRIVE NOT PRESENT

0000006

108:

MOV

#3MSG73,R0

DRIVE NOT AN RM8O

.DSABL

LSB

oSS
l‘g SOSOONONOONO SOOI
oSO

0000006
0000006

N NN
SR
BNN
LNLNNOR)
—

88888888g8883

WANINON)
= b 2 ©O ~N~

588888

888388
NN

[=1=]
[=l=]
oo

OO NTWNES NN = OO 00 NN IS AN = OO 0O~

NINININININININININININD At
NINININININI NN ~N b b

g{g

AINONINI

AN
AN, NS B
NN = O
dgouwombw- OVt~ OB

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

: TEST DEVICE CHARACTERISTICS
o0

e LS LN ST N NTNT NT NTN)
e e e d ek S D OOO O

FMIPRS = GET AND PARSE

024026
020026
010000

000012

0000006

118:

RE TURN

JWP

SMESAG

F DRIVE PRESENT

, NO = "NED* SET

RM80 ?
ES
OTHER DEVICE TYPE CODE

RIVE ONLINE (MOL SET) ?

EQ, NO

LT
NW&‘OSNO
NNOSOWNN

OO0
~=O00
O =tk O = N
=

SISRSIIR

§3888888

é SET NEW CSR ADDRESS
0000006
0000006 160000

$STCSR: :MOV
g:gs

0000006
000004

000570° 000004
0000006

1$:

$UCB,R2
i:nuns.neoooo

ggv

sgnscz.ao

MOV

NG, -(SP)

3.PNUMB

MOV

SINTR, AN

FETCH UCB ADDRESS

CSR ADDRESS WITHIN RANGE?
IF HIS YES
SYNTAX ERROR

SAVE INTERRUPT VECTOR
SET UP OUR OWN VECTOR
SEE IF IT'S ON THE BUS

oo
£33 SRSRRRCELE
S o28 O~ NNNNNNNNNOOOOOO
0O NN AN = OO 00 O N I NnD

[=l=l=l=]
:OOO—‘
o

888238

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

BCC
MOV

000004

0
6
000001
000007

000004
0000006

$:
3$:

0000006 000012

#$MSG28,RO

MOV
MOV

(SP)+ 364
$5CB,R

=g¥unn

SEQ 0065

3
(SP)+,an

MOV

JMP
BICB

SMESAG
#US.OFL,U.ST2(R2

CE ON=-LINE

.PNUMB,S.CSR(R2)

ADDRESS

T VECTOR

: INTERRUPTS COME HERE ON NON-EXISTANT MEMORY TRAPS

000570
000576

052766
000002

000001 000002 INTR:

BIS

#1.25P)

;s SET CARRY BIT IN SAVED PS
ETURN

O—'°°§°°° :

§
=ER

0000006

18:

0000006
0000006
0000006

28:
3s:
is:

MOV
JMP
MOV

¥$MSG2,
RO
SMESAG
$SCB,R2

177400

BIC

#177400,R2

0000006
0000006
0000016

MOV
MOV
MOV
ASR
ASR
MOV
MOVB

(R2)
, $INADD
#SNONSI
, (R2)
$INADD, (RO)
RO
RO
$SCB,R2
RO,S.VCT(R2)

MOVB

ASL
ASL

0000006
000005

RETURN

2
#3,R0
I
ggnsczr.no

TCH

Mg Ot
T T

RO, #1000

BHIS
BIT
BEQ
ESV

000003

000005

301 000702
302 000706

.PNUMB RO

CMP

=C munm

$STVEC: :MOV

001000

St R et b

0000006

NEW VE CTOR ADDRESS

E VEC 10ngN A REASONABLE PLACE?
S NO GO
LTIPLE O F 4 ?

YES
NOT MULTIPLE OF FOUR

SYNTAX ERROR
PICK UP SCB ADDRESS
F<TCH OLD VECTOR ADDRESS
THIS IS CHEAPER THAN ANOTHER WAY
COMPUTE ABSOLUTE ADDRESS

s.;;f<a2> R2

R
R

GET RMBO DRIVER ISR ADDRESS
IGNORE INTERRUPT TO OLD VECTOR

NEW INTERRUPT VECTOR
FORM NEW VECTOR MOD4

GET SCB ADDRESS
SET NEW VECTOR ADDRESS

: SET VERIFY COUNT
000377

0000006 SSTVFL::SES

0000006

gzg

i:NUHH

0000006 0000006

MovBe

«PNUMB, SVERIF

177226

1$:

RETURN
JMP

gg??..PNUHB

SYNTAX

* SET ERROR LIMIT

TRTR
R1

3
R

o
o

016700

LR TR TR

* SET NEW VECTOR ADDRESS

N
NN
o
N'\JgN

o0
o
o
o
o
(=
VAW
o
[o
38T
¥

AND PARSE

NN NININININDUS LS LS USSR
NTNT NI NTNTNN

FMTPRS = GET

LIMIT WITHIN RANGE?
4
IF LO_NO
STILL?
IF _NE NO
SET VERIFICATION COUNT

SYNTAX ERROR

FRIFRS

GET

AND

? 0 000742
331 0007
19

3 i 0007

323

0007

324 000760
g S 000766
f 9 000770

PARSE

(OMMAND

MACRO MI113

1Z2-JAN=8Z

17:02

022767 000377 0000006 $STERL::CMP
13?«07
BLO
767

190&

116747
000f07
000167

0000006

BNE

0000006 0000006
177174

8
323

18:

MOVB
RETURN
JMP

PAGE

5-5

#377, .PNUMB
1%

: LIMIT WITHIN RANGE?
: §r LO NO

¢ 1F NE

PNUMH

.PNUMB,SSWERL

SYNTAX

:
: SET LIST MODE

isg 000774 105267 0000006

$STLOG:
: INCB $SWLOG

36
gg;

3
: SET ENABLE FORMAT SWITCH

001000

105567

gfiwmoww
339

340 001006

105567

32% 001016

000207

341 001012

105267

0000006

344
gzg

3,7

’

$STLIS::INCB

RETURN

SSTFFE::INCB

$STFOR:: INCB

RETURN

SEQ

$SWLST

SSWFFE

SSWFMT

: StlLE?

: SET ERROR LIMIT
;
: SYNTAX ERROR

; SET THE °*LIST LOGICAL® SWITCH
: SET THE °*LIST* SWITCH

; SET THE 'FORMAT FE* SWITCH
:

SET THE

'FORMAT®

SWITCH

:
: SET BSF/SSF INITIALIZATION SWITCH

348 001020
ggg 001024

105267
000207

351

000001

0000006

$STIN:: INCB
RETURN
.END

SSWINT

; SET THE 'INITIALIZATION® SWITCH

0066

FMIPRS = GET

SYMBOL TABLE

AND PARSE

ov.CCL= 00000

(SR

000050R

O0O00ooo

| IE.EQOF=
CIN
INTR
Ll
' LOG
L.ASG
L.LGTH=

000142R
000130R

wneeee GX
0001501
000570R
000110R
000122R

p 3

000010
000012
L.LNKk
000000
' L.NAM
000002
'L.TYPE 000005
' L.UCB_
000006
' L.UNIT 000004
' M.BFVH 000011
M.BFVL 000012
M.LGTH= 000014
' M.LNK
000000
M.UMRA 000002
M.UMRN 000004
M.UMVH 000010
M.UMvL 000006
OPTION 000010R
17777¢

00102¢

802 S3.RCU=

0000RG

SP.LUG= 000004
SWITCH 000156R

DV.MNT= 100000

FE
| FO

OPTSTg 880010RG
SPARE = 88 010
SP.EIP=
001
SP.ENB= 000002

DV.1SP= 002000
OV.MBC= 000400

.VDEB= 177776
.VINI= 000000
.VOUT= 000004
.VPWF= 000006
ERL
000100R

12-JAN-82

002 OPTKT

DV.COM= 08880
DV.DIR= 00001
DV.F11= 040000

DV.MxD= 000100
DV.0SP= 004000
DV.PSE= 010000
DV.REC= 000001
Ov.SDI= 000020
DV.SaD= 000040
DV.SWL= 001000
DV.TTY= 000004
DV.UMD= 000200
D.DSP
000012
D.LNK
000000
D.MSK
000014
D.NAN
000004
D.PCB
000034
D.UCB
000002
D.UCBL 000010
.UNIT 000006
.VCAN= 000002

COMMAND MACRO M1113

SYNTAX

S.BMSK
S.BMSV
S.CON
S.CSR
S.CTM
S.FRK
S.ITM
S.LHD
S.PKT
S.PRI
S.RCNT
S.ROFF
S$.STS
S.vCT
S1.BEL=
$1.CT0=
$1.C7S=
S1.DEC=

S1.DPR=
$1.DS1=
S$1.ESC=
S1.18F=

0991 ORrR

177776
177774
000010
008812
000006
000016
800007
00000
000014
009906
17 7;
17777
000011
000005
000400
0006040
010000
002000

001000
004000
000004
100000
002 S1.IBY= 000200

002 S1.08Y= 000100
002 S1.RAL= 000010

S1.RNE=
002 S1.RST=
S1.RUB=
002 S1.uSI=
002 S2.ACR=

000020
000001
000002
020000
000001
S2.8R0= 000020
S2.CR = 000010

S2.FDx= 100000
S2.FLF= 040000
S2.HFF= 020000
S2.HFL= 003600
S2.HHT= 010000
$2.1R0= 000200
$2.0RQ= 000100
$2.5R0= 000040
S2.VFL= 004000
S2.WRA= 000006
S2.WRB= 000002
$3.8CC= 020000
$3.DA0= 040000
002 S3.PCu= 100000
000

001

11:02 PAGE

03 S3.RAL=

S3.TAB=
S3.VER=
S3.WAL=

S3.WES=
002 $3.8BC=

UC.ALG=

3-6

SEQ

£ 0%

U.FPS =
U.FNUM=

U.KCSR=
U.KCS6=
U.LuIC

004
8
00004
8 0

US.LAB=
US.MDE=
US.MDM=
US.MNT=

000004
000 8
000
000100

us.ouT=
US.PUB=

US.PWF=
US.RED=
US.SHR=
US.SPU=
US.UMD=
us.vy =
US.WiK=

000010

UC.ATT=
8
1
UC.KIL=
004
UC.LGH= 00 08
UC.NPR=
1
UC.PWF=
02
UC.QUE=
8‘0
UNIT
80 O0R
UNTKT1
0000RG
UNTST1
Q00000RG
US.ABO= 000001
US.BSP= 800 5
US.BSY=
08
US.CRW= 800 04
US.DSB= 8801
US.ECH=
00
US.FOR= 00004
US.FRK= 00000
US.KPF= 8 0

US.OFL=

U.ACP =
U.ATT
‘
U.BUF
4
U.CBF =
U.CLl
U.CNT
3‘
U.CTL
U.CTYP
850
U.Cw1
1
U.CUi
881
U.Cu
14
U.CWé
00016
u.pC8
000000
U.FCDE= 000040

U.OWN
U.RED

U.RPS =

SOVUNT= seneee

2
4
4

$SEXIT =
00000
SFMTEX= seeene GX
SINADD= #eeeee GX

17777
0

U.SCB
U.ST;
5
U.ST
7
U.TCHP
6§
U.TCVP
4
U.TFLK
8069
00; U.TFRQ
03
08 U.TLPP
0036
002 U.TMTI
0047
U.TSTA
0 gb
U.TTAB
88 4
U.TTYP
46
U. TUX
00024
v.uIc
0084‘
U.UNIT
000 g6
U,vV(B = 300 4
U2.AT.= 000020
U2.CRT= 088 00

U2.DH1=
U2.0J1=
u2.nii1=
U2.ESC=
U2.HFF=

SgOg = 00031 .

SIOST = weense GX
SLAMDA= 000300

SMESAG= weweer GX

$SMSGWR= #esses GX
$MSG2
= wewwen GX
$MSG27= wvanee GX
$MSG28= wenees GX
$MSG4L = wenens GX
SMSG7 = wennee GX
SMSG70= wewses GX
$MSG71= sexens GX
$MSG72= seenes GX
$MSG73= wennns GX
SNONSI= seasse GYX
$SNUMBR= 000302
SPARSE 000000RG
SPRINT= sesssns GX
SPRMPT= sessxs GX
$RADS0= 000316
$SCB = wenwae GX
$STARS= sessws GX

010000

$STCSR
SSTERL
SSTFFE
$STFOR
$STIN

C000464RG
000742RG
001006RG
001012RG
001020RG

U2.LWC=
801
U2.L35= 08 04
U2.L85= 010000
U2.NEC= 004000
U2.PRV= 8 0010
U2.RMT=
020000
U2.R04= 1 8800

$STRNG=
$STUNT
$STVEC
$STVFL
$SuUBXP=
SSWERL=
SSWFFE=

000304
000200RG
000600RG
000710RG
000310
sewenee GX
senene GX

U2.HLD=
U2.L0G=

100000
0460000
000180
001000

000040
08600

U2.5CS= 000004
u2.5Ly= 000200
U2.vrs5= 00 05
U2.7CH= 1800
VEC
00060R
VFL
oog OR
SALPHA= 000 5
SANY = 80%
$BLANK= 000306
$BUFRX= wevens GX
SDEVHD= weeenr G)X
:0!61t= 000324
DNUMB= 000314
SOVICE= teweee GX

$STLIS
$STLOG

001000RG
000774RG

SSWFMT= sexene GX
SSWINT= secane GX
$SWLOG= tevene GX
$SULST= seenee GX
002 $TSTDV 000316RG
002 SUCB = ereese GX
SVERIF= easeee GX
$SSFLG= 177777
$$SKEY= 000006
$$$STA= CO0010R
$$STMP= 000026R
PNUMB= wsener (X
PNUMH= ereree GX
TPARS= weeeee (X

002
004

FMIPRS = GET

SYMBOL TABLE

AND PARSE

$STATE
000166
$KTAB
000016
$KSTR
000031
ERRORS DETECTED:

COMMAND MACRO M1113

12-JAN-82

11:02 PAGE 3-7

00
00
004

VIRTUAL MEMORY USED:
3819 WURDS
( 15 PAGES)
DYNAMIC MEMORY:
7942 WORDS
(
30 PAGES)
ELAPSED TIME:

[300,201FMTPRS, [gOO 3SJFHTPRS={1,1JEXEMC/ML,[300,10IFMTPRS

SEQ 0068

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

SEQ 0069

(=T

-0Noel

Es.£E @vVxo

.EVEN

(=1

4Uad-

msmz

oNO

(] wg

-wXeAx <oOwL

eO 2£V wEN ee

N O3O Ne~O CO

— < XO- DO <« < &

- O T O 0OXTIT XTO >

O
=
Z
2
W
N0V
B
w
o
—
G-80 0 v E8- Xd a3 o2 3 Iw wOD - —
wnZ O 0 X as= -

g—[¥) [0=l=0]oTONIMAEeON-OXIMxVEIN@SOxN—>O0~wOoN~DQ.O~O

[]>oOWJETVweExO=Ww-uVaZw—oE<w-Onmgda

[=1-4 o=t wJd &~ £
>~
7]

: DATE FIELDS

O-M=NNIMeD )bN.
[~ < ..I.

WV ON O
O
= NMI
NOO

.EVEN

: VALID LIMITS FOR DATE FIELDS

o [=]

[]

)

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

60 000140
61 000144
62 000150
g‘ 000154

000001
000001
000000

000116

000014
000037
000143

DATLMT:

DPARS::

,WORD
.WORD
.WORD
.BLKW

BASYR

== 78,

1.1%.
1,31,
2.99.

SEQ 0070

: FOR MONTH
: FOR DAY
: FOR YEAR
: STORAGE FOR DATE CONVERSION
; BASE YEAR = 1978

FMTRBO - FORMAT/VERIFY RMBO D!S MACRO M1113 12-JAN-82 11:04 PAGE 2 ?
68

SEQ 0071

s **=SRMBO-FORMAT/VERIFY RMBO DISK PACKS

THIS ROUTINE WILL

INPUTS:

: OUTPUTaBNE

: OF AN RMBO

DISK PARAMETERS SET TO ZERO

81 000162
82 000166
83 000170
84 000174
85 000200
86 000206
87 000212

105767
001022
004767
004767
016767
005767
001010

$RMBO:: TSTB
BNE
000000G
CALL
000000G
CALL
0000106 0000006
MOV
000310
TST
BNE

$SWINT
1%
$RDSSF
$RDBSF
gssr»1o.snevnn
$
1%

;
s
:
s
:
s+
;

89 000220

004767

0000006

SPRMPT

; PROMPT THE USER = USER'S RESPONSE MAY BE EITHER:

88 000214
90
91 000224

gg 000230

94 000234
95 000240
96 000242
97 000246

gg 000252

012700

0000006

INITIATE THE FORMAT AND/OR VERIFICATION

D!SK PACK.

000000*

MOV

004767

000274

CALL

DATE

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

105767
001405
004767
105767
001522

0000006

1ST8
BEQ
CALL
1ST8
BEQ

$SWLST
2%
SRMBOL

: DISPLAY THE DEC STD 144 AMD SSF FILES ?
. IF EQ, N
: DISPLAY HE FILES

s IF EQ, NO

005267

CALL

000266

INC

18:

000000G
0000006

}8?
012703
004767
012703
004767
012700

108 000304

012700

000000G
0000006

122797

000131

107 000300
109 000310
110 000314

m 888;16
113

000 ;g

004767
004767
001501
001075

001013

116 000340
117 000344

004767
001451

118 000346
119 000354
120 000;26
121 000362

122 000366
124 000372

0000006
0000006
0000006
000000G
0001446

2$:

0000006

SSWFMT

: INDICATE THAT DATE HAS BEEN ENTERED ONCE

: FORMAT THE HDA ALSO ?

0000006

122767

004767

000131
0000006
000000°

0000006
000126

: PROMPT AND GET OPERATCR'S RESPONSE
; IF EQ, RESPONSE WAS °NO'

#'Y,$BUFRX

BNE

SWINT

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

:
: GET CONFIRMATION ADDRESS

: SEE If RESPONSE WAS 'YES'

IF NE,

RESPONSE WAS °"NO

* SEE If SSF/BSF INITIALIZATION MODE
: IF NE,

YES

MOV

#SMSGRS,RO

¢ GET UPDATE MODE MESSAGE

CMPB

#'Y ,$BUFRX

: WAS RESPONSE *'v'"?

CALL
BEQ

SPRMPT
$

CMPB
1518

0000006

;
;
;
:
;

$SPRINY
#$MSG31,RO

BNE

0000006

#SMSG23,R3
suntlg
#SMSG24 ,R3
MOVE
#SBUF+100.,R0

MOV

CALL
BEQ

012700 0000006
001045
105267
012700

MOV
CALL
MOV
CALL
MOV

CALL

105767 0000006

114 000

115 00033¢

123

; "ENTER DATE (DD=-MMM-YY): °*

: INFORM THE OPERATOR THAT DATA WILL BE DESTROYED

102 000254
103 000260
104 000264
105 000270
106 000274

11;

#MSGI1R8,RO

SEE IF SSF/BSF INITIALIZATION MODE
IF NE, YES
READ SKIP SECTOR FILE
READ BAD SECTOR FILES
GET CURRENT REVISION NUMBER
HAS DATE BEEN ENTERED AT LEAST ONCE ?
BR IF YES

BNE
INCB
MOV

CALL
CALL

SPRMPT
63

6%
$SWMOD
#MSGIR8,RO

SPRMPT
DATE

: PROMPT AND GET RESPONSE
: IF EQ, NO
.

: IF NE, NO
s SET THE MODIFY FLAG
: "ENTER DATE (DD=-MMM-YY):

: PROMPT THE USER = USER'S RESPONSE MAY BE EITHER:
:

'MM/DD/YY' OR ‘DD=-MMM-YY"

: CONVERT USER'S ENTRY TO A BINARY DATE

FMTRBO ~ FORMAT/VERIFY RMBO DIS MACRO M1113 12-JAN-82 11:04 PAGE 2-?

088

~N
~N

S
W

142 000464
143 000470
144 000474
145 000500
146 000504
147 000510
148 000514
149 000520
150
15
152

~N~

P P Puriur
P

2858 32~N 8—‘900—'0
& 2

139 000456

}2? 000462

#MSG2RB,RD

4%:

$PRMPT
a: R&

#SBUFRX
R

§§§0006
006
006

#SSNAM‘R
E

pD2CT

SNAME ,=(SP)

SNAME
+2 , SSNAME
SP)+, SSNAME
+2

0800 G
000006

0000006
0000006
0000006

0000006

"WDA
SERIAL NUMBER: '
PROMPT OPERATO
NUMBER OF BYTCS 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

gutui

{?l;éAL&%E THE BAD SECTOR FILES ?

RM801I
5

éQ}} fHE DEC STD 144 AND SKIP SECTOR FILES
GET UPDATE MODE INFORMATION

6$:

READ SKIP SECTOR FILE
READ BAD SECTOR FILES
FORMAT THE DISK

132
000424
133
000430
134
000432
135 0004
136
000444
137 000450
138 000454

INDICATE THAT DATE HAS BEEN ENTERED ONCE

VERIFY THE DISK FORMAT
GET ADDRESS OF MESSAGE
PRINT *DONE '°* MESSAGE

000120

NPONPB
A~ AW
"o

005267

d
D
b end
e

NN LNNNIND

W= OO 00 ~ ~NO~

;S 000376

SEQ 0072

CALL

7%:

RETURN

8%:

«WORD

ONCE DATE FLAG

FMTRBO =~ FORMAT/VERIFY RMB0 DIS MACRO M1113 12-JAN-82 11:04 PAGE 3 ’
154

SEQ 0073

}gg

; **=DATE=CONVERT USER'S RESPONSE TO BINARY DATE

157

: THIS aggtxue WILL CONVERT THE ASCII DATE INPUTTED

158
159
;g?

:
:
:

INTO *SBUFRX' AS EITHER CMM/DD/YY]
OR [DD=MMM=YY] AND
CONVERT IT TO BINARY AND PUT IT IN DATE PARAMETER
STORAGE AREA.

16%

INPUTS:

165
166
167

: OUTPUTS:
:
DPARS CONTAINS BINARY REPRESENTATION
;
OF DATE

}g‘

;

168

"$BUFRX' CONTAINS ASCI1 STRING FOR DATE

171 000526
17; 000530

012701
otgroz

174 0005

oos;og

173

000534

175
176
177
178

ooosag
000542
000546
000552

00137
012700
004767
120227

180 000560
181 000564
1a§ 000566

120227
001404
012700

179 000556

}g‘ 000572

005021

001466

000167

000154"
000003

0000006
0000006
000057

19§ 000616

012701

500 000640
01 838222
oi
&
0 38&‘8
04
SC

205 000652
06 000656

07 388320

208
2
209
210 000670

ogPARs.n1
#3,R2

; POINT TO PARAMTER AREA
: SET WORD COUNT

DEC

: DONE ?

CLR

BNE
MOV
CALL
(MPB

CMPB
BEQ
MOV

JMP

(Ri)+

1
#3BUFRX,RO
$CDTB
R,
#'/

106

ai.o°3
#SMSG2,RO

$MSGWR

: 1ERO NEXT WORD

: IF NE NO
: GET BUFFER FOR USER'S RESPONSE
: GET A NUMBER
* TERMINATOR FOR DATE ?

: IF EO YES

: POSSIBLY DIFFERENT FORMAT ?
: IF EQ YES
: NO, SYNTAX ERROR

: EXIT WITH WARMING STATUS

: GET DATE FIELD IN FORMAT [DD=-MMM-YY)
000144"
000256

198
199 000636

MOV
MOV

BEQ

0000006

012705
004767
103446
010167

197 8333 2

28:

0000006

187 000576
188 000602
189 000606
190 000610

193 000622
194 000624
195 000626
196 000630

1%:

000055

}gz

191 000614

DATE:

010003
005002
105711
001411
122021

177342

MOV
CALL
BCS
MOV

#DATLMT+4,RS
TMTSTL
9s
R1,DPARS+2

; POINT TO DAY LIMITS
: TEST LIMITS
: IF CS ERROR
: STORE DAY

000056°

MOV

#DAT,R1

: POINT TO VALID MONTH NAMES

105721
001376

5%:

010300
005202
105711
001366
000425

1tsoo;

120227
001401
000415

MOV

48:

081774

005202
010267

38:

177274
000055

6%:

CLR
IST8
BEQ
CMPB

BEQ

IST8
BNE

MOV
INC
1ST8
BNE
8R
INC
MOV

Move

CMPB
BEQ
BR

RO,R3

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

(R1)+
5%

ng.ao
R
(R1)
43
9

us
R2,DPARS

(RO)+,R2

a;.n'7
9%

: COPY BUFFER POINTER

: 2ERO MONTH NUMBER
* END OF TABLE ?
: IF EQ YES, GOOD MONTH
: NO, CHECK NEXT CHARACTER

: AND LOOP IF GOOD MATCH
: END OF MONTH STRING ?
: IF NE NO, LOOP

: YES, RESET BUFFER POINTER
: UPDATE MONTH INDEX
: END OF TABLE ?
: IF NE NO, LOOP
¢ 2ERO IS END OF MONTH LIST
: INCREMENT MONTH INDEX
P SAVE IT

P GET NEXT CHARACTER
: LEGAL TERMINATOR ?
: IF €0 YES

P NO, IT'S A SYNTAX ERROR

FMTRBO = FORMAT/VERIFY RM8O DIS MACRO M1113 12-JAN-82 11:064 PAGE 31 .

§1§ 00 73 01278; §881g89
11

000672

004767

000702

O 478

214 000706

%15 000710
16 000714
517 000713

103406

O
187
1034 ;
0101

0000

7%:

156

MOV

$CDTB

#OATLMT+10,RS

YES, GET YEAR

B(S

TMTSTL

;s IF _CS ERROR

TEST LIMIT ON YEAR

gSV
JMP

'}$MSGWR
gssz RO

s
s
:

CHECK YEAR ENTRY
IF LO, INVALID YEAR ENTRY
SAVE YEAR

CALL

000116

177236

8%:

}8 888;§6 8?%% 8 0000006

% ? 000730 000167 000000G
% i

SEQ 0074

CMP
BLO
MOV

R1,#BASYR
9%
R1,DPARS+4
’

; G § LIMIT ON YEAR

:s Eé%'svurAx
ERROR MESSAGE
EXIT WITH WARNING STATUS

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

224 000734

012703

000154°

108:

MOV

#DPARS ,R3

004767
103765
010155
120§6
001361
004767
004767
103754
010153
120; 7

000114

118:

CALL
BCS
MOV
CMPB
BNE
CALL
CALL
BCS
MOV
(MPB

coAI%nf.RS

; POINT TO DATE STORAGE FIELD

226 000744
227 000750
228 000752
229
000754
230
000760
231 000762
23% 000766
233 000772
234 000774
235 000776

MOV

BNE

TMTSTL
9%
R1,(R3)+
R%.l'/
9
$CDTB
TMTSTL
9%
R1,(R3)+
ai.v'/

;s
:
:
;
s
:
;
s
;
:

TEST LIMITS
IF CS ERROR, OUT OF BOUNDS
STORE IV
GOOD TERMINATOR ?
IF NE NO, SYNTAX ERROR
GET NEXT TWO DIGITS
TEST LIMITS
IF CS ERROR, OUT OF BOUNDS
STORE 17
GOOD TERMINATOR ?

: IF NE NO
:
:
;
;s

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

225 000740 01%705 000140°*

236 001002

001350

237 001004
238 001010
239 001014
240 001016

004767
004767
103743
010113

242 001026
243 001032

162763
000363

245 001042

000313

241 001020
244 001036
246 001044

247 001046
248 001050

249 001052
250 001056
521 001062

25%
Sgg
256

ggg

259

260
261
262
222

565
266

267

012703

006363

000057
000000G
000072
000057

0900006
000050

000154°

000116
000004

000004

12%:

0004

056313
056313

000207

MoV

SuUB
SWAB

ASL

SWAB

006213

006213
006;13

CALL
CALL
BCS
MOV

ASR

ASR
ASR

000004
000002

BIS
BIS

RETURN

$CDTB
TMTSTL
9%
R1,(R3)

!DfiARS.RS

#BASYR,4(R3)
4(R3)
4 (RY)

(R3)
(R3)

6(l§).(fl3)
2(R3),(RY)

3¢
; **=TMTSTL = TEST DATE LIMITS

: GET POINTER TO MONTH LIMITS

s DATE STORAGE FIELD

s SUBTRACT THE STARTING YEAR
: POSITION YEAR IN UPPER BYTE
s SHIFT INTO BITS 9 - 15

s POSITION MONTH

s SHIFT INTO BITS S5 - 8

:
3

: MERGE YEAR WITH MONTH
: MERGE DAY
: EXIT

s THIS ROUTINE WILL TEST THE DATE AGAINST LIMITS SPECIFIED

: BY A TWO WORD LIMIT ENTRY,

s
:
2

INPUTS:

Rl =
RS =

:2 OUTPUTS:
Rl =
:

RS =

CONTAINS VALUE TO BE TESTED

POINTS TO TWO WORD LIMIT ENTRY

WORD 1 - LOW LIMIT OF VALUE
WORD 2 - HIGH LIMIT OF VALUE
UNCHANGED
UPDATED TO NEXT LIMIT ENTRY

FMTRBO =~ FORMAT/VERIFY RMBO DIS MACRO M1113 12-JAN-82 11:04 PAGE 3-2N e
268

;

%gg

;

27§ 001064 020125
274 001066
275 001070
276 001072

002404
08 125
003002

78 001076

000207

%77 001074

(C =

(S =

TMTSTL: CMP
BLT
CMP
BGT

ooogu

cLe

279 001100
539 001102

8°° 61
000207

1%:

282

000001

JEND

RE TURN
SE(
RETURN

SEQ 0075

GOOD VALUE, LOW<=X<=HIGH

BAD VALUE,

R1,(RS)+

1%
R1,(RS)+
1%

LOW>X OR X>HIGH

s 1S VALUE LOWER THAN LOW LIMIT ?
P
s
:

IF LT YES
IS IT HIGHER THAN HIGH LIMIT ?
IF GT YES

: NO,

PExiT

GOO VALUE

: SET ERROR FLAG
POEXIT

2-JAN-82

SYMBOL TABLE

FMIRBO = FORMAT/VERIFY RMBO DIS MACRO M1113 12-JAN-82

BASYR = 000112 6

MSG2R8

DAT

SBUF

DATE

000 ZI.R

DATLMT

000140R

DPARS
LF

MSGIR8

ELAPSED TIME:

eseense

SSNAME= seeeer GX

= weeess GX

$MSGI3= *eeves GX

SRMB0

000162RG

SSWFMT= secese CX

SCDTB = wwewes GX

$MSG31= weveer GX

SRMBOJ= #wwnee (X

$SWLST= evenee GX

SMSGKt = werwwe GX

SRDBSF= w#etree (X

SRMBOV= seswer GX

DD2(T= wwenee (X

weewne

seeene
seenen

$MSG2

GX
GX

000
001

VIRTUAL MEMORY USED:

DVNAHIC HEHORY

SREVNM=

$SMOVE =
MSGR8=

. ABS.

456 WORDS_

7942 UORDS

00:00:1

SEQ 0076

SRDSSF= eawenae GX

1064R

$SBUFRX=

000000R

Gt 3-8
3~

$MSG12= weweer (X

TMISTL

000154RG
000012

000000
001104
ERRORS DETECTED:

8 0032R

11:04 PAGE

( 2 PAGES)

( 30 PAGES)

(300,201FMTR80, [300 30]FHTR80 [300,101FMTR80

$MSG24=

SPRINT=
SPRMPT=

reeeee

weeeer

sevees ()X
teesee (X

SRMBOF=

SRMBOL=
SRMBOM=

wevene

weenee
wenese

(X
(X

$SSF

$SWINT=

$SWMOD=
SUNTID=

ereeee

eaeenee

(G)X

sveewe (X
weeeen (GX

=13123“5“78w3[-Vwnw—>DOw0—Zav42
= 2992932&SwgSo<<O29—wW3wWzEWWI2N2F0V80 FveSs~

[T ~ >[=)-—WeW=xwva>

eaocarWsLO"OFVnOvO"W~oO"LW“L"WLn5"OIL“N5nO“~D—.LT.—T.NTNTowN~TNRNeDwsT<I2oOwoa2Two=num0wwaOg0X2Iw-eTNO=o<W-wWLo
s

0—O3N57O“1O23O‘7O2
FMTRBF
- RMBO FORMAT MODULE MACRO M1113 02-JuL-82 13:21

2 VUV W

OM=NIN

PAGE

”[a=—2ox1JNvO+09-Ew<W}D

SEQ 0077

US REG 1

FMTRBF = RMBO FORMAT MODULE MACRO M1113 02-JUL=-82 13:21 PAGE 2
58
59
60

4
P wee
; vee

SEQ 0078

rr-roanAr
cge TRACK
F-FORHAT asr SSF AND L RNATE DEC144 CYLINDERS

. the RH F=FORMAT ALL CYLINDERS OR FE CYLINDERS

64
65

:
;

‘"i% ROUTINE WILL FORMAT AN RMBO
DISK PACK.
FULL TRACKS
SECTORS) OF MEADERS ARE WRITTEN UNTIL THE MAXIMUM

3.
69
70

:
;
;

INPUTS:
DISK pAaanereai SET T0 ZERO
MDBSF,
UDBSF,
& SSF READ,
VALIDATED,

;

DISK ADDRESS IS REACHED.

$CYL,STRK,SSEC PRESET FOR

AND IN MEMORY

'SRBOTF' ENTRY

FORMAT FE CYLINDERS ONLY IF ‘SSWFFE=1'

: OUTPUTS:

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

80 000266

012767

001056

83 000306
84 000314
85 000320
gg 000324

012767
005067
004767
005267

001057 0000006
0000006
000174
0000006

81 000274
82 000302

012767
004767

000015
000212

000000G S$RBOSF
: :MOV

00060006

gg
90 000330

004767

0000006

B8R

osga. $CYL

; STARTING CYLINDER

#559.,8CYL
$TRK
FMTDSK
$TRK

: STARTING chxuoen
:
TRACK
: FORMAT THE SSF TRACK
: FORMAT THE ALTERNATE DEC144 TRACK

#13,
$TR
FMTDSK

$.
RACK
: FORMAT rue DEC STD 744 TRACK

SMVPAT

FMTDSK

: LOAD THE DATA PATTERN

: FORMAT THE TRACK SCYL,STRK

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

96 000335
97 000340

005001
012700

99 000350
100 000352
101 000356

005001
105767
001011

$RMBOF : : CLR
MOV

0000006

004767 0000006

CALL

CLR
TSTB
BNE

0000006

012700

0000006

104 000370
105 000374

005067
005067

0000006
0000006

108 000402
109 000406
110 000412

012700
004767
012767

113 000432
114 0006436

804767
004767

MOV

103 000364 004767 0000006

}89 000400 000412
111 000420

MOV
CLR
CALL
INC

SRB0OTF::CALL

102 000360

MOV
CALL

: FORMAT A SINGLE TRACK

35 000334 000471

98 000344

NONE

012767

CALL
CLR
(LR

; SET NULL CARRIAGE CONTROL
: TELL OPERATOR

R1
SSWFFE
13

: SET NULL CARRIAGE CONTROL
: FORMAT FE CYLINDERS ONLY ?
: BR IF YES

SPRNTO’

#SMSGOA RO

S$PRNTO
$CYL
$TRK

: 'START FORMATTING®

: TELL OPERATOR WHICH CYLINDERS

i ' <ALL CYLINDERS=*
* START CYLINDER=0
: START TRACK=0

: FORMAT THE TRACKS

0000006
18:
MOV
0000006
CALL
001056 0000006
MOV

#SMSG6B,RO
SPRNTO
csga $CYL

; TELL _OPERATOR WHICH CYLINDERS
: ' <FE CYLINDERS=: START CYLlNDER 558. (BSF/SSF/FE CYLINDERS)

000062
0000006

FMTDSK
$TSTMX

: FORMAT THE DISK
* UPDATE DISK ADDRESSES

000015

112 000426 004767 0000006

B8R

R1
#SMSG6, RO

0000006

28:

3$:

MOV

CALL
CALL
CALL

$TRK

snvplt

: START TRACK=13.

: LOAD THE DATA PATTERN

FMTRBF = RMBO FORMAT MODULE MACRO M1113 02-JuL=-82 13:21 PAGE 2-1
115 000442

103001

118 000446

022767

001057

000000G &$:

150 000456
121 888264

022767
1362

000002

0000C0G

}}9 000444 000207

119 000454 8 1366

135
123

000472

124 0884ro

125 000502
1 9 838?
1
12

}23 000516

}gg

132 000520
133 000524

134 000530
}gg 000534

016746

0000006

00476

016749
004767
015667
012567

000745

012703
004767

005067
012700

}22 000560

0000006G
0000006

000000G
0000006

tMP

#559.,8CYL

; WAS SSF JUST WRITTEN ?

CMF
BNE

li.srau

: WERE BSF/SSF TRACKS JUST WRITTEN ?
P BR
IF NO s%se

MOV

$TRK .= (SP)

CALL
MOV
MOV

SWIBSF
(SP)+,$TRK
(gp)o.chL

BNE

CYL,=(SP)

SWTSSF
3

FMTDSK: MOV
CALL

CLR
MOV

#SPHYDV ,R3
SUPDMX

$SEC
#3BUF ,RO

€S,

NOT FINSIMED,

; éxx? !ongnr .

004767
005267
026767
001370

005067

0000006
18:
0000006
0000006 0000006

0000006

CALL
INC
CMP
BNE

CLR

: BR IF NO
: SAVE

: SAVE

CURRENT

CYLINDER ADORESS

CURRENT TRACX ADDRESS

: RE-WRITE THE SSF

: RE=WRITE ALL THE DEC144 TRACKS
: RESTORE TRACK ADDRESS
: RESTORE CYLINDER ADDRESS

: WRITE NEXT TRACK

; "FORMAT' DEVICE PARAMETERS
: UPDATE THE MAX VALUES

: START AT SECTOR ZERO
: RELOAD THE BUFFER ADDRESS

GENWDR
$SEC
sgzc.snxsec
1

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

147 000564
148 000572

016767
004767

0000006 0000006 2%:
0000006

150 000602

004767

0000006

}gz 000614

000207

005767
100401

0000006

3s:

4s:

MOV
CALL

MOV

CALL

T1ST
- BMI

RETURN

}gs

TRKSZ,$XFRSZ
SCVTDA

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

#SBUF ,RS

: SET BUFFER ADDRESS

gacaur
$

: ANY DISK ERRORS?
: IF MI, YES

$SOSKWH

: WRITE HEADER/DATA FOR THIS TRACK
: OTHERWISE, RETURN

: HANDLE THE ERROR

159 000616 032767 004000 0000146 5%:

BIT

#4000,$RGBUF+14 ; WRITE LOCK ERROR?

}23 000626

JMP

WLKER

153 000624

00140
000167

0000006

}gt

1e§ 000632 004767
164 000636
165 000642
166 060646
167 000652
168 oooosg

ELS

; CREATE THE HEADER PATTERN

}22

151 000606
152 000612

: ACTUAL FORMAT ROUTINE

}gg
139 000540
140 000544
141 000550
142 000556

RE TURN

CALL

805
G
006

SEQ 0079

BCC

MOV

012700
012701
004767
004767
105367

000000°
000060
0000006
000064
0000006

170 000665 012706 0000006
171 000670 012701 000060

BEOQ

SEND ERROR MESSAGE

68:

CALL

srlnga

BOC
MOV

WEMSGLS.R0
0zo.n1 Y

MOV
MOV
CALL
CALL
DECB

tnsc R,RO
#60,R1
:PRNYO
MGPRE
;gueut

: IF EQ NO

: INFORM THE USER

; SAVE FAILING DATA

:
:
:
:
:

"DRIVE ERROR DURING FORMAT®
CARRIAGE CONTROL CMARACTER
SEND MESSAGE
SEND DISK ADDRESSES
DECREMENT THE ERROR LIMIT

. VERMOR CIMIT EXCEEDED: — CTOED
: CARRIAGE CONTROL CMARACTER

FMTRBF

172

- RMBO FORMAT MODULE MACRO M1113 02-JuL=-82 13:21

175 000700 012709

000674

004767

0000006
00000G

MOV

};2 000710

00476

03 24-

0000006

JMP

174 000704

000167

CALL
CALL

};g

180 000720 004769 ooooo%c

179 000714

012700

000032°

}g} 388; 4

83¥;?Z

040000

183 000734
}gg 000740

004767
000711

78:

0000426

0000006

PAGE 2-2

SPRNT

#MSGS3R,RO
PRINT

FMTEX

‘EQ 0080

SEND MESSAG

: §rom renfixuarx~s: PRINT THE MESSAGE

P EXIT THE FORMATTER

THE ERROR IS A "SKI', DO A RECAL

CALL

SPRINT

MOV

#MSGSIR,RO

Eé&

n:o 00, SRGBUF +42

CALL
BR

: SEND MESSAGE
:

% SEE IF ERROR WAS A SEEK INCOMPLETE

HOMSK
$

"FORMAT CONTINUING'

*
:

ENTRY POINT FOR RETRY WITH RECAL
TRY AGAIN

186

g
i

*«<$MGPRE-PREPARE AND SEND DISK ADDRESSES TO OPERATOR

189
}g?

:
:

INPUTS:
$FLCYL,SFLTRK,$FLSEC LOADED

192
193
194
195

: QUTPUTS:
;
ERROR MESSAGE
:-

}g;

156 000742 912700 0000006
197 000746
198 000752

004767
016701

0000006
177274

200 000762
201 000766

004767
016701

06
177262

199 000756

202 000772

012703

203 000776 004767

000077°

000106°

177250

$MGPRE : :MOV

CALL
MOV

MOV

CALL
MOV

$ERER1,R1

SER
SERER2,R1

004767
016701

177236

CALL
MOV

209 001026 004767

0006

CALL

016701

177224

211 001036 012703 000133"

212 001042 004767 0000006
213 001046 012700 0000606
qflmnwmrmmc

ggg

218 001056

016701

0000006

220 001066
221 001072

004767
016701

0000006
0000006

23 001102
24 oottog

004767
016701

0000006
8838005

226 001116
227 001122

004767
012700

0000006
0000006

MOV
MOV

MOV

004767

0000006

SURMSC2
= XXX

#MSG3R,

:Aoonsgs OF MESSAGE

MSGOLR

SEROCT

SERDA ,R1

#MSGOSR RS

:GET RMER1 AND

SURMERT = XXXXX''
‘GET RMER2 AND

:ADDRESS OF MESSAGE

SYRMERZ = XXXXX
$GET RMDA AND

:ADDRESS OF MESSAGE

MOV

$SELCYL, R

:GET FAILING CYLINDER AND

CALL
MOV

SEROUT
$FLTRK,R1

SUCYLINDER = XXX,
GET FAILING
TRACK AND

MOV

228 001126

:ADDRESS OF MESSAGE

SEROCT

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

zg 001076 012703 0000006

006

SURMSCT = XXXXX'
SGET RMCS2 AND

SURMDA
= XXXXX'
SAPDRESS OF MESSAGE
1CR=LF

MOV

012703

SCR=LF
SGET RMCS1 AND

CALL
x
MOV
CR,RO
CALL SPRINT

219 001062 012703 0000006

225 001112

*ADDRESS OF MESSAGE

SEROCT
sencsg R1

MOV

206 001012
207 001016
210 001032

#MSGH1R,R3

MSGOIR,R3

CALL

016701

208 001022 012703 000124'

;ADDRESS OF MESSAGE

SPRINT
$ERCS1,R1

MOV

204 001002

205 001006 012703 000115°

#$CR,RO

CALL
MOV

MOV

CALL
MOV

CALL

#SMSG15,R3
#$MSG16,R3
SEROUT
$FLSEC,R1

#SNSG17,R3
sgnout
#$CR,RO
SPRINT

:ADDRESS OF MESSAGE

TUTRACK = XX.
SGET FAILING SECTOR AND

:ADDRESS OF MESSAGE

PUSECTOR = XX,
‘GET ADDRESS OF MESSAGE
PCR=LF

wOINMREOMPTVITYTV[TYTV[(C]w
wWiVitW+0wOvw2[=]=]9[+wDO»
WSEEY>xoZSTZ>OESTMDOOoE(T"VN)AgA4.R4A-4-4A-[—N>ARavX"o—
o PAR~—VBNEZASA )A B B B B B L O sx —s
OO o

23?‘e2O8[O8“O-4N=T4]M“Ol238TeWVNlN2584eIOl42V35Ue=lO288“MNeIlO256=eOTWl28“NO5eN~N2l57OeO25N2O2D2“2M5-2“I252=”2O2O22C2O3—23V23M23I23T23N2“O2eSo3(8oLNs
- RMBO FORMAT

265 001

266 001232
267 001240
268 001244
1 6567
016567
005067
000207

1
1
1
1

MODULE MACRO M1113 02-JuL-82

NOITM Dlo [oxwOSa-x>tad<

000001

000042

“[®e§"*S =e.

000006
0000006

.END

13:21
PAGE

o——_NE

FMIREF
2-3

SEQ 0081

>-3

RMDA
CLEAR ERROR INDICATOR

[ ER BUFFER

FMTRBF - RMBO FORMAT MODULE MACRO M1113 02-JUL=-82 13:21 PAGE 2-4
SYMBOL TABLE
FMTDSK

GENHDR=

MSGSOR

000520R
wewtes

0000?0R

MSGABR

TRKSZ

$BUF

0Q00032R

$CR

MSG53R
MSG61R
MSG62R
MSG63R
MSG64R
MSGESR
MSG66R
MSG67R

000054R
000077R
000106R
000115R
000124R
000133R
000141R

SCVIDA=
SCYL
=
SDSKWH=
SERCST1
$ERCS2
$ERDA
$ERERT
SERER2

. ABS.

000000
001246
ERRORS DETECTED:

tesxwnw

wewnnn

= weenwr GX

MSGSTIR

000173R

000222R

wwnnsx (X
wemenn GX
#xexxs GX
000252R
008 S4R
00
gZR
000256R
000260R

000
001

VIRTUAL MEMORY USED:
517 HORDS
( 3 PAGES)
DYNAMIC MEMORY:
7942 UORDS
( 30 PAGES)
ELAPSED TIME:
00:00:1
£300,203FMTRBF, [ 300, 30]FH'RBF (300,101FMTRBF

SEROCT= weweer Y
SERQUT=

weneee

wweene

$FLBUF

000264R

$FLRGS
$FLSEC=
SFLTRK=
SFMTEX=
SHOMSK=
SHGPR;
$MSG15=
$MSG16=

001134RG
weveee X
weevee GX
weevee GX
weeewe GX
000742RG
wevner GX
weevne (X

SFLCYL=

SEQ 0082
:HSG17= renene G
MSG4LS=

weenen

)

MSGOA=

wenwaw

MSGS

= wewene GX

$MSGEB=
SMVPAT=z
SMXSEC=
SPHYDV=
SPRINT=
SPRNT(Q=
SRGgg =

$RMBOF

wwewan GYX
eewnse GX
wewene GX
eexewe GYX
eeennsn GX
wevens (X
wawenw GX
000336RG

SR sssf

$RBOTF

:SEC

= """ Gx

SHE.%’

seeeee

$SSVFFE=
$TRK
=
$TSTMX=
SUPDMX=
SULKER=
SWIBSF=
SWTSSF=
$XFRSZ=

weenee
weevae
wevene
seeses
«wesee
eeevee
aeevne
evevee

GX
GX
GX
(X
GX
G)
(X
GX

FMTRBv = VERIFY RMBO DISKS MACRO M1113 07-,uL=-82 15:01
1

LJITLE

PAGE

FMT Rsx/- VERIFY RMBO DISKS

.IDENT

: DIGITAL EQUIPMENT o

SEQ 0083

/02,

“

9
10
1
1;

P OTHIS
sorruans
IS
f
: SINGLE COMPUTER SYSTE
: OF
THE
ABOVE COPYRI
: COPIES THEREGF, MAY N

FOR USE ONLY ON A

WHO AGREES

AND
Al.

ANY

OTHER PERSON
TO

THESE

: THE

* EQUIPMENT CORPORATION.

THE SOFTWARE SHALL AT

INFORMATION

: C. HESS

28
29
30

126
116
126
T30

VERSION 02.00

122
116
122
101

LNLIST

BEX

nscg :
MSG3V:
MSG4V:
MSGSV:
.EVEN

JASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

s;—uuc-

-JuL-

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

@HEADER/DATA ERROR DURING VERIFYa

000000

XFRSEC:

.WORD

000000
000900
000000

ENDSEC:
BEGSEC:
VEYCNT:

.WORD
.WORD
.WORD

32.
O

O
0
O

PR PR

000000

.WORD
.BLKB
.WORD

47 000206

TREER:
SECTBL:
LASTER:

000000

TRTR TR
1)

* WORKING LOCATIONS

43 020142
4% 000144
22 000204
48 000210
49 000212

105
117
105
105

R THE USE OR R ELIABILITY OF
T SUPPLIED BY DIGITAL.

;

ITS SOFTWARE ON EQUIPMENT W

P M. LEAVITT
;

RESPONS

2TM

: DIGITAL ASSUMES NO

33 000000
3% 000023
35 000060
36 000102
37
38
39

* NOTIiCE AND SHOULD NOT BE C

OWNERSHIP OF

[=1=}

ITH THE INCLUSION
E, OR ANY OTHER
E MADE AVAILABLE
SYSTEM AND TO ONE

TRACK ERROR COUNT

SECTOR ERROR TABLE
LAST SECTOR IN ERROR DURING CURRENT VERIFICATION

PASS

NUMBER OF SECTORS ACTUALLY VERIFIED

ENDING SECTOR ADDRESS
STARTING SECTOR ADDRESS
VERIFICATION PASSES

FMTRBV = VERIFY RMBO DISKS MACRO M1113 07-,uL-82 15:01 PAGE 2
53
gg

“

TRACK COHPLETE <= 1
REPEAT PROCESS UNTIL PHYS SAL DISK ADDRESS .EQ.
IF TRACK COMPLETE .NE.
THEN START SECTOR <= 0
END SECTOR <= $HXS§C
TRACK ERROR COUNT

('TRKER')

TN I

(561,0,0)

($1STMx)

<= 0

CLEAR SECTOR ERROR TABLE
GENERATE TRACK BUFFER

WORD COUNT <= (<§"° SECTOR)=(START SECTOR)+1)#258
VERIFICATION PASS
COUNT ('VFYCNT') <= $V8le
REPE?; g:aag CHECK UNTIL ('VFYCNT' LEQ.
+OR. SECTORS TRANSFERED .EQ. O)

TN T
LA TR TR
PR PR PR TR PR PR PR PR PR PR TR PR PR PR TR T

THEN CALL SCKERR
IF ERROR IS A NON DATA ERROR
THEN RETRY ERROR
'VFYCNT' = *VFYCNT' = 1
ENDREPEAT

IF TRKER .NE. 0

THEN CALL ‘VFYSEC'
REGENERATE THE TRACK BUFFER (GENHDR)
RE=FORMAT TRACK FROM SECTOR O TO SECTOR 3i

IF ENDSEC .NE. 31

THEN_START SECTOR <= LAST ERROR SECTOR ¢ 1

ENDREPEAT

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

RE-WRITE BSF & SSF
E0J

333353385888 90 000008 R IR

SEG 0084

*+~$RMBOV-VERIFICATION ROUTINE FOR RMBO DISK PA(CKS

RS YNNI NN NSB2 SRS

56
57
S8
59
60

3
1
102
103
104
1

}

108
109

216
000222

000226
000232
000236

012700
004767
012703
004767
004767

0000006
0000006
0000006
0000006
0C0000G6

SRMBOV: :MOV
CALL
MoV
CALL
CALL

000242
000246
000250
888 54
60

105767
001005
005067
OOSOSZ
G004

0000006

000270

012767 000015 0000006

000262

0000006
000000G

012767

001056

000;56
000302
000306
000312
000;20

005067
005067
005067
016767
005367

28:

004767

177710
177634
177672
0006 177670
177664

0000006

000330
000336

026727
001016

0000006 001056

3%:

000324

000000G 1$:

#SMSG11,RO
SPRINT
#SPHYDV,R3
SUPDMX
$HOMSK

:
;
:
:
s

GET VERIFICATION STARTING MESSAGE
PRINT THE MESSAGE
PHYSICAL DEVICE GEOMETRY POINTER
UPDATE THE LIMITS
ISSUE A RECAL

1S18
BNE
CLR
CLR
BR

S;UPFE
1
$CYL
TRX
$

:
:
:
:

VERIFY FE CYLINDERS ONLY ?
BR IF YES
STARTING CYLINDER=0
STARTING TRACK=

MOV

3. 4TR

MOV

#538.,8CYL

STARTING CYLINDER=558.

STARTING TRACK=13.

CLR
CLR
CLR
MoV
DEC

BEGSEC
TRKER
k:SYER
XSEC,ENDSEC
%NDSEC

:
;
;
;
:

CMP
BNE

$CYL,#558.
4%

; 1S THIS THE BSF CYLINDER ADDRESS ?
: BR IF NO

CALL

MVPAT

START WITH SECTOR 0
CLEAR THE TRACK ERROR COUNT
CLEAR _LAST ERRORRED SECTOR
LOAD THE ENDING SECTOR ADDRESS
CORRECT THE VALUE

: LCAD THE DATA PATTERN

FMTRBY = VERIFY RMBO DISKS MACRO M1113 07-yuL=-B2 15:01 PAGE 2-1

111 000346 03191
110 000340

026727

0000006 000015

11; 000350
112
000354

G1674
01674

8° 0886
000006

115 000
}}9 000370

012667
012667

000000G
000000G

118 000374

012701

120 000404

005020

114 00036G

119 000400

151 000406

} % 000410

00476

012700

$TRK,#13,

;

CALL

$CYL,=(SP)
$TRK ,=(SP)

SR8OSF

i
;s

: RE=FORMAT BSF/SSF HEADERS AND DATA

MOV
MOV

000144"

005301

(RO)

: CLEAR TWO LOCATIONS

DEC

BNE

MOV
CALL

128 000436
12 000442

005267
026767

132 000452
133 000460

016767
016700

135 000470
126 000472
137 000476
138 000502
139 000506
140 000512
141 000516

005200
012701
004767
010167
004767
105067
012705

14 ooosge
144 000532
145 000534
146 000540

005767
100404
005367
001364

}gg 00045G

134 000464

“§ 000522

101770

166700

004767

0000006
0000006

000000G 6$:

000000G
0000006 177540
177534
177524

78:

000000G 8$:

0000006

SEC
;gec.euosec

}2; 000542 000420

TABLE ADDRESS

; DECREHENI THE

LOOP COUNTER

: IF NE, NOT FINISHED

; LOAD THE VERIFICATION COUNT
: LOAD THE SECTOR ADDRESS

: BUFFER ADDRESS
: GENERATE A WEADER FOR WRITE CHECK MEADER & DATA
: INCREMENT THE SECTOR
i SEE IF FINISHED

: IF LOS, NO

BEGSEC,$SEC
ENDSEC,R

; RESET THE BEGINNING SECTOR ADDRESS
: ENDING SECTOR ADDRESS

INC
MOV
CALL
MOV
CALL
CLRB
MOV

R
#258,+2.,R1
snuk
R1,SXFRSZ
SCVTDA
SHDRFG
#$BUF RS

:
:
:
:
:
:
:

CALCULATE # OF SECTORS TO XFER
GET ONE SECTOR SIZE (IN BYTES)
CALCULATE THE BYTE COUNT
LOAD TME BYTE COUNT
CONVERT DISK ADDRESS TO AN LBN
CLEAR HWEADER ERROR FLAG
BUFFER ADDRESS

SRGBUF
10
VEYCNT
9%

:
:
:
:

SEE IF ANY ERRORS ?
IF MI, YES
DONE VERIFY PASS ?
If NE, NO FINISHED

B8R

}28

#$BUF ,R
geunoi

MOV
MOV

ST
BMI
DEC
BNE

177454

SVERIF,VFYCNT

INC
CMP

CALL

0000006

a;ssec asec

SUB

9s:

MOV

BLOS

177522
001004
0000006
0000006
0000006
0000006
0000006

: RESTORE TRACK ADDRESS
: RESTORE CYLINDER ADDRESS

CLR

CURRENT CYLINDER ADDRESS
CURRENT TRACK ADDRESS

5%:

OSSCfBL.RO

TRACK ADDRESS

: %oop CONSTANT

126 ooo«ge
157 000432

012700
004767

SAVE
SAVE

BSF

06, ,R1

MOV

MOVB

177566

1S THIS THE

MOV

001375

016767

(SP)#.:TRK
(SP)+,$CYL

: éa flno .

154 00061% 116767 0000006 177574
125 000420

SEQ 008°

MOV
MOV

000020

BNE

CMP

oogoogs

BEGSEC,R

$DSKkw(

128

: SUBTRACT STARTING ADDRESS

: DO WRITE CHECK MEADER & DATA

i SEE IF FINSIMED WITH THIS TRACK

: PROCESS THE ERROR

151 000544
152 000550

004767
103740

154 000556
155 000560

001404
005367

158 000570
159 000574

016746
005216

162

0013

153 000552

005767

156 000564 001315
157 ooosgo 000406
}g? 000576
000602

026726

000326

177430

177416

004767

118:

0000006

CALL
8CS

gxsna
$

; SEE WHICH TYPE OF ERROR IT IS
: IF CS, NO%=DATA ERROR - RETRY

BEQ
DEC

1%
VEYCNT

: 1F EQ, NO
: DECREMENT THE VERIFICATION COUNT FOR THIS PASS

MOV
INC

BEGSEC,-(SP)
(SP)

BNE

* IF NE,

CALL

SRBOTF

: REFORMAT THE TRACK AND MARK NEW DEFECTS

177430

}2% °°°°?3 38?Z§2 177332
165 355312 0046767 000106
166 000616

108:

BNE
BR

CMP

128:

gg;
CALL

XFRSEC

SMXSEC,(SP)e

}ggen
VFYSEC

: SEE If ANY SECTORS WERE TRANSFERED

: IF NE, MORE
TO DC
* SEE If FINISHED WITH THE CURRENT TRACK
: SEE IF THE ERROR IS THE LAST SFCTOR
: CORRECT VALUE FOR THE COMPARE

ssqga ggc§aa

g SECTOR TRANSFER BEGINNING

: ?gvegtungnaoas ON THIS TRACK ?
: VERIFY THE SECTORS IN ERROR

FMTRBY = VERIFY RMBO DISKS MACRO M1113 07-4uL=82

167 000622

016700

177362

020

0000006

016700
ooszog

177342

168 000626 0 ? 09
169 000630

138:

001421

173

020067

0000006

176 000660
127 000694
178 000672
};3 000676

805;67
16767
0 ssgr
000536

177326
ogggogs 177316
17731

181 000700
1s§ 000704

004767
10340

0000006

000167

177364

185 000712
186 000716
187 000722

004767
004767
000207

0000006
0000006

000644

174 000650
175 000652

}g‘ 000706

189

00141;
01676

177;56

MOV

CMECK THE ENDING SECTOR

RO,

SEE ar FINSIHED

144

SMXSEC

kasv:n.no
0

: CORRECT IT

: 1F EQ. VES

: GET THE LAST ERROR SECTOR ADDRESS
: CORPECT VALUE

CMP

RO, SMXSEC

INC
MOV
DEC
BR

geasgc
MXSEC,ENDSEC
Enosec
$

CALL
BCS

$TSTMX
15%

:
:

CALL
CALL
RETURN

SWTSSF
SWTBSF

: RE=WRITE THE SSF
: RE-WRITE ALL THE DEC STD 144 TRACKS

JMP

158:

SEQ 0086

;

BEQ

BEQ
MOV

148:

2-2

ENDSEC,RO

MOV
INC

177332

PAGE

INC

CMP

170 00063¢

171 000636
175 000642

15:01

144
LASTER,BEGSEC

SEE

AT MAX SECTOR

¢ IF EQ, YES
: RELOAD THE STARTING SECTOR

: START WITH THE FIRST GOCD SECTOR
: RELOAD THE ENDING SECTOR
; connict THE VALUE
* CONTINUE
INCREMENT THE PHYSICAL ADDRESS
1F €S, FINISHED

: TEST NEXT TRACK

.‘0

}gg

+ ee=VFYSEC=VERIFY THE SECTOR(S) IN ERROR

192
193

:
:

196
197
198

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

;gg

THIS ROUTINE WILL RE=READ THE SECTORS WHICH GAVE ERRORS DURING THE VERIFY
PASS ON THE CURRENT TRACK.
ANY SECTOR FAILING DURING THE RE-READ PASS

WILL BE CONSIDERED DEFECTIVE.

199
500
01
202
203
204
205
206
207
208

b4
UNTIL (°SECTBL'(SECTOR) .LY.
0) .OR. (HEADER FIELD OR DATA FIELD ERROR FOR SECTOR)
:
IF *SECTBL'(SECTOR) .GE. O
;
THEN IF NO SKIP SECTOR ON TRACK .AND. °*SHDRFG* = 0
:
THEN PUT SECTOR IN SSF
;
ELSE IF SECTOR IS NOT IN THE FE CYLINDERS
:
THEN PUT SECTOR IN FEBSF
:
ELSE PUT SECTOR IN UDBSF
:
LAST ERROR SECTOR ON TRACK °*LASTER® <= CURRENT ERROR SECTOR
:
TRKER = TRKER = 1
: ENDREPEAT

210
21

P
:

209

212
3}2

:
:

OINPUTS:
SECTBL = CONTAINS ADDRESSES OF SECTORS IN ERROR

$CYL,STRK,$SEC CONTAINS ADDRESS OF CURRENT TRACK
TRKER .NE. 0

215
216

: OUTPUTS:
:
SECTBL CLEARED

218

;

217

319

20
251

52§ 000726 012700 177777

:
:

:
F

ENTRIES MADE IN THE MDBSF,UDBSF,& SSF'S

'LASTER® CONTAINS THE ADDRESS OF THE LAST SECTOR IN ERROR ON
THE

VFYSEC: MOV

TRACK

#-1,R0

: USE RO AS THE INDEX INTO *SECTBL®

FMIRBV = VERIFY RMBO DISKS MACRO M1113 07-,UL=-82 15:01 PAGE 2-3
224 000730

S 0007

00520

1§s; 8 000144"

1%:

01004

28:

6 0007

000740

228 00074

1774

1096

000000G

g 9 000746

016767

P33 °°°793

116767 0000006 30 003G

0 000754

osg7or

23§ 000770
zg‘ 000776

116767
012705

2;2 00101

806767

239 0010 g

004767

oo1oos

236
001014
237 001020
238 0010264

240 001032
241 001034

g‘i oo1ocg

00104

264 001044

245 001046
246 001052
%2; 601054

0 808 G

0000006
00C0006G

0000026

012767

001004

004767
005767
100007

0009006
000000G

103761
004767
12600

8008886

0006006

o1§ 00

000144"

2649 001060
250 001066

016767
005367

0000006 177116
177050

ggg 001074

000207

251 001072 001316

254

SECTBL(RD)

MOV

RO, =(SP)

i SAVE

RO,$SEL

BIS

#150000,88UF

MOVB
MOV

3s:

MOV

CALL

CALL
st
BPL

CALL

BCS
CALL
MOV

48:

S5$:

EQ,

THE

3 RE#OAD THE

8”'

INDEX

: SET THE MF,

STRK,S$BUF¢+

SECTOR ADDRESS

SETUP A SECTOR IMAGE

UF, AND FMT16 BITS

: LOAD THE TRACK ADDRESS

$SEC,$BUF+
& ?gf.n

: LOAD THE SECTOR ADDRESS
; sgrren ADDRESS

#516, .$XFRSZ

: SECTOR = INCLUDING HEADER BYTE COUNT

:(vtbi

: coqunv THE PMYSICAL ADDRESS 10 LBN

DSKWC
$RGBUF
43

: WRITE
CHECK THE SECTOR
i ANY ERRORS ?
P IF PL,
NO

KERR

: PROCESS THE ERROR

$
DSTRB

P IF €S, NON=DATA ERROR - RETRY
: PUT THE SECTOR INTO THE PROPER BSF

<§p>o.no

: RESTORE THE SECTOR TABLE

DECB
8PL
CLRB

SgcraLtao)
SECTBL(RO)

: COUNT THE SUCESSFUL RE=READ
i IF PL CONTINUE
; ckgggnggs SECTOR ENTRY, ERROR WAS NOT

MOV
DEC

$SEC,LASTER
TRKER

* ASSUME CURRENT ERROR IS LAST ERROR ON THIS TRACK
: DECREMENT THE ERROR COUNTER

RETURN

;

(SP)+,RO

RESTORE THE SECTOR TABLE POINTER

* IF NE, NOT FINISHED
:

%gz

**=(KERR=VERIFY MODULE DEVICE ERROR ANALYSIS ROUTINE

%%;

THIS ROUTINE WILL ANALYZE

259

:IF SKi

264

260
261
262
263
265

266

269

270

g;%

:
;
:
:

If TRACK ERROR COUNT ('TRKER®)

If ER

ELSE

279

TYPE (°SHDRFG') <= 1

HDRFG' <= 0

.NE. 0

(SSRALL)

THEN ;?figiggttog‘gsg:! SO?N! IN SECTOR ERROR TABLE

<°SECTBL")

TRANSFERRED SECTOR COUNT (°XFRSEC') = ((ERROR SECTOR)=(START SECTOR))-1

;

5;;

A?ER R

THEN IF SECTOR IN ERROR NOT LISTED IN BSF, SSF, OR FEBSF

ERROR

If VERIFY COUNT (*VFYCNT')

.EQ 0

gagu LAST ERROR SECTOR ('LASTER') <= ERROR SECTOR

THEN

;

THE DISK ERROR AND REPORT THE ERROR AS REQUIRED.

THEN REPORT & RECAL IBRATE
ELSE REPORT ERROR
IF NOT DATA ERROR
THEN RETRY
UNTIL SUCESSFUL OR RETRY L!MIT EXCEEDED
ELSE DETERMINE SECTOR IN ERROR

274

INDEX

BNE
e

B8R

MOV

000144"

‘%'b

008

INCREMENT THE INDEX
: é~$.$
5
e

MOV

MOVB

0000006

10 go
100332
105060

MOV

000044

INC
1ST8

BEO

0000006 ogoooos

SEQ

*XFRSEC'

.NE. 0

THEN END SECTOR <= (ERROR SECTOR=-1)

WORD COUNT <= ((END SECTOR)=(STAR: SECTOR #1)¢1)+258

OINPUTS:

$RGBUF ~ CONTAINS THE RMBO REGISTER CONTENTS

15:01

2-4

SEQ 0088

VFYCNT = CONTROLS UPDATING °*SECTBL'

[v-oY]»e @-. T.

CS = IF

THE ERROR WAS A NON DATA ERROR

"SECTBL' = UPDATED IF ERROR IS A DATA ERROR AND ‘VFYCNT® .NE. 0
WILL RETURN TO °*SFMTEX'

4(%1

PAGE

— o o b —= i

THE DRIVE EXCEEDS THE

C
E
O
E
Z
F
O
E
F
O
E
M
O
~
O
O
M
E
M
~
D
}
[
+
NP
X
v
T
N
E
S
V
e
w
SECNEwTE MNECE

O=FT
VOLVYO0

0000006

CKERR:

000006G

DS O O I~ O VO O OMN

(=]

110400

0000146

767

040000

0000106

6746
2716

0000146
110400

67
56

"ol

-SWODeItRV

é
+
+

)OWwON*IOaWrw EA~W [-+ R~S”eAEw

AW -

(Oo=Ne=INNOWOM652¢|

N (N o=oe-e - e =0=00==r=O

T R4L oARo

o7“07770!77‘ -OomegJgOgITgsOeVRNOeVONITRNTNWNORORITRO BVOJO=

NN
a
0
a
0
a
0
c
O
a
0
a
0
@
0
88538835833533°85385883388 833885388

FMTRBV = VERIFY RMBO DISKS MACRO M1113 07-,UL=82

eXWO

4E SS

S ECT
¢ OR

NG . S ECTOR WAS 31,

#110400 +SRGBUF
+1
4%
#40000 +SRGBUF +10
4$
SRGBUF +14, = (SP}

2138400 &y
.

ROR BITS FROM RM(CS2

SE*

ITH "MCPE* & RMCS2 ERROR BITS
ANY ERROR BITS SET
YES = NON DATA ERROR

s TEST "DCK!DTE!HCRC®

BE A DATA OR HEADER ERROR

R1
THE DATA/HEADER ERROR BITS

ANY OTHER ERROR BITS ARE SET

NO MUST BE 'BSE' ERROR, ELSE
NON DATA ERROR

: SEND NON DATA ERROR MESSAGE

0OMO -

NM 22624

2%:

040000

0000426

‘NON DATA ERROR DURING VERIFY®
CARRIAGE CONTROL CHARACTER
REGISTERS

I EXCEEDED

1T EXCEEDED®

1
S

.RO

T
T

bOO.SRGBUfO&Z‘

: SEE IF °SkI°

; IF €0,°NO

FMTR8V = VERI/ v

8 001316

BMBO DISKS MACRO M1113 07=uUL=B2

004767

0000006

CALL

321 01326 ooos 7
322
032767

000400

347 001340

1os;¢

0000006

S0 001350
51 001352
35§ 001356
353 001362

001457
011667
004767
10302;

0000006
000000G

355 oo1gro

011600

58 0014064
359 001410
360 001414
361 001420
ggg 001424

012701
004767
004767
012700
004767

000060
0000006
0000006
000060°
0000006

364 001430

011667

176552

366 001442
ggg 33}223

001003
ooszsz

176542

370 001456 005367

176526

374 001474 012701

001004

48 001344
9

354 001

356 001372
357 001400

365 001434

oo14o;

005767

000014G 4$:

176644

5%:

005267

176552

116760
012700

0000006 000144"
000102°

166767

176552

INCB

2-5

SHOMSK

176544

68:

016700
166700
005200

8s:

375 001500
376 001504

004767
010167

378 001512
ggg 001514

000241
000207

381

000001

.END

HDRF G

VFYCNT

BEQ
MOV
CALL
BCC

9%
(SP) ,$SEC
SiflkLL
6

MOV

(SP) RO

MOV

SUB

BNE
éfi‘

MOV
DEC

TRKER

SEQ 0089

: DO A RECAL

SEE

IF ERROR IS A HEADER ERROR ('MCRC')

1F €0,

DATA ERROR

; SET u;AoEn ;nnon FLAG

: SEE é
VERIFING THE ENTIRE TRACK OR IFf
: PROCESSING A SINGLE SECTOR

: IF EQ, VERIFYING SINGLE SECTORS
* PUT THE BAD SECTOR ADDRESS IN '$SEC’
s SEE IF THE ERROR IS IN ANY OF THE BAD SECTOR FILES
: IF CC, DEFECT IS ALREADY ACCOUNTED FOR

; xnca;fisnr THE TRACK ERROR COUNT
: GET

THE

BAD SECTOR ADDRESS

:
:
:
:
;

(SP) ,XFRSEC

; COPY THE ADDRESS OF THE ERROR SECTOR

$
s;csec

: IF NE, AT LEAST ONE SECTOR TRANSFERED
: STEP AROUND THE ERROR SECTOR

ENDSEC

: POINT TO LAST ERROR FREE SECTOR

9EGSGC.XFRSEC

(SP) ,ENDSEC

CALL
MOV

SMULT
R1,SXFRSZ

CLC
RETURN

#60,R1
$PRNTO
SMGPRE
#MSG4V, RO
SPRINT

ENDSEC,RO
BEGSEC,RO
R

;

sasrfiv.sscveL(aos
: LOAD RETRY COUNT AND FLAG A BAD SECTOR
vnassv.a
: 'HEADER/DATA ERROR DURING VERIFY

MOV
SuB
INC

MOV
9s:

#400,SRGBUF+14

MOV
CALL
CALL
MOV
CALL

371 001462
372 001466
373 001472

0000006

BEQ

MOVB
MOV

78:

176522
176520

BIT

INC

269 001452 3?9867 176532

377 001510 005726

PAGE

RETURN
!
; PROCESS THE DATA ERROR AND EXIT

45 001330

346 001336

15:01

#516. ,R1
(SP)+

CARRIAGE CONTROL CHARACTER
SEND MESSAGE
TYPE THE DEVICE REGISTERS
"VERIFY CONTINUING'
PRINT IT

s CALCULATE THE NUMBER OF SECTORS TRANSFERED

: CHANGE THE ENDING SECTOR ADDRESS
; COPY THE ENDING SECTOR
: CALCULATE THE WEW BYTE COUNT
: CORRECT THE DIFFERENCE

: NUMBER BYTES/SECTOR

: MULTIPLY THE SECTORS * SIZE
: UPDATE THE BYTE COUNT

: CORRECT THE STACK

;s SET THE DATA ERROR INDICATOR
:

FMIRBV - VERIFY RM80 DISKS MACRO M1113 07-4UL=82 15:01

SYMBOL TABLE

CKERR

ENDSEC

?§78R

VFYCNT

10R

VFYSEC

000204R
R
23R
R

SBUF =
SCVTDA=
SCYL =
SDSKW(=

GENHDR= wewxeee GX

LASTER
"Ssgv
MSGSV
MSG4V

MSG5V
SECTBL
. ABS.

XFRSEC

000102R
000144R

ERRORS DETECTED:

206R

weweee GX
wweeen X
weenen GX
wewens GX

SDSTRB= eexvws (X
SFLRGS= wewees GX

000000

001516

;14R

080
O

VIRTUAL MEMORY USED:
567 HORDS
( 3 PAGES)
DYNAMIC MEMORY:
942 WORDS
( 30 PAGES)
ELAPSED TIME:
00:00:15
(300,201FMTR8V, [ 300, 30]FMTR8V=[300,101FMTR8Y

PAGE 2-6

SEQ 0090

HOMSK= wetees

MDRFG= weweeye GxGX

iPRkToTIILL gx
RETRY= sewene GX

’gzgftz
tenene g;
TRK = seasse GX

H§G1 =
45=
ULT =
VPAT=

RMBOV 000216RG
RBOSF= wwwnee X
RBOTF= woeanen
tssc PR TIIIL Gx

SUPDMX= #essne GX
SVERIF= sesnese GX
SWTBSF= s#vnease (X
SWISSF= weeens GX

$MGPRE= tevees (X

weevew X
wevner GX
seeees GX
weewsws (X

SMXSEC= wewwee (X
SPHYDV= wevees GX

RG 85: wennnw GX

SRALL= wweues (X

$STSTMX= svsens GX

$XFRSZ= #eeens GX

FMTR8M - DEFECT ENTRY MODULE MACRO M1113 02-JuL-82 17:15 PAGE 1

SEQ 0091

:1osu$ FMIRBM
/02.30/ = DEFECT ENTRY MODULE
JTITLE

;

10
1
1§
1
14

; sxuc%s conpurEa SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
: OF
THE
ABOVE
COPYRIGHT
NOTICE.
THIS SOFTWARE, OR ANY
OTHER
: COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
MADE AVAILABLE
P 10
ANY
OTHER psnsou
sxcsrr
FOR USE ON SUCH SYSTEM AND TO ONE
: WHO Acngss TO THESE LICENSE
TERMS.
TITLE
10
AND
OWNERSHIP OF

: DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

{

THIS

SOFTWARE

FURNISHED

UNDER A LICENSE FOR USE ONLY ON A

: THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL.

: THE

EQUIPMENT CORPORATION.

INFORMATION

: DIGITAL ASSUMES NO

;

P C. HESS

RESPONSIBILITY FOR THE USE OR RELIABILITY OF

18-AUG-80

02-JUL-82

: MESSAGES
:

.NLIST
125
115
123

106
104
106
105
.103

110

104
123
123

105
125
111
116
131

104

102
102
106

040
120
114
126
114

101

BEX

MSGIR8: .ASCIZ
MSG2R8: .ASCIZ
MSG3RS: .ASCJ%

MSG4RB: .ASCIZ
MSG7RB: .ASCIZ
MSGBR8: .ASCIZ
MSGCR8: .ASCIZ
MSGOR8: .ASCIZ

"?355 ::.ASCIZ

/UDBSF /
/MSBSF/
/S5F/

/FE BAD SECTORS/
/DUPLICATE ENTRY = /
/FILE FULL = /
/ENTER BAD SECTR ADRS:/
/CYL,TRK,SEC = /

@HDA'S/N'DOESN'T MATCH CURRENT S/Na

gg 000210

DIGITAL

32
33
3%
;2

22 000145

VERSION 01.00

P M. LEAVITT

%0 000021
41 000040
42 000063
43 000100
4 000126

TO CHANGE WITHOUT

COMMITMENT

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

37 000000
38 000007
39 000015

IN THIS DOCUMENT IS SUBJECT

: NOTICE AND SHOULD NOT BE CONSTRUED AS A

: LBN CONSTANTS

000003

151040

FELBN:

.WORD

3,151040

; g;ggnu{gcogr THE DEC144 / FE CYLINDERS

52 000214 000003

151037

USRLBN: .WORD

3,151037

: END OF USER SPACE

57 000220

: MINIMUM/MAXIMUM STORAGE FOR INPUT ROUTINE

000000

MINCYL: .WORD

;STORE MIN. CYLINDER ADDRESS HERE

FMTRBM - DEFECT

58 000222
59 000224
2(1) 000226

ENTRY MODULE MACRO M1'13 02-JuL=-82 17:15 PAGE

000000
900000
000000

MINTRK:
MAXCYL:
MAXTRK:

.WORD
.WORD
.WORD

1-1

SE3 0092

:
'
TRACK
sSTORE MAX., CYLINDER ADDRESS HERE
:
'
TRACK
o

FMTR8M ~ DEFECT ENTRY MODULE MACRO M1113 02-JUL=-82 17:15 PAGE 2
63

: s

SEQ 0093

: THIS ROUTINE WILL ACCEPT MANUALLY INPUTTED DATA FOR EITHER THE

: INPUTS:

: OUTPUTS:

; UDBSF OR SSF FILES AND RE-WRITE

;‘

77 000230

004767

0000006

79 000240

012701

78 000234

004767

80 000244

012700

83 000254
84 000260

004767
001403

gg 000266

000772

31 000250

85 000262

88 000270
89 C00274
90 000300
91 000304
3 000310

++=SRMBOM-MANUAL INPUT OF UDBSF OR SSF DATA

004767

THESE FILES TO THE RMBO DISK.

NONE
RE-WRITTEN UDBSF OR SSF

SRMBOM::CALL

SRDSSF

; READ SKIP SECTOR FILE

000060

MOV

#60,R1

0000006

CALL

0000006

CALL

000100°
000554

004767

000024

004767
004767
004767
105067
000207

0000006
0000006
0000006
0000006

18:

: READ THE MDBSF & UDBSF

SET 2 LINE FEED CONTROL

MOV

#MSGCRS,RO

CALL
BEQ

5n9ut
$

: GET SSF ENTRIES
i IF EQ, FINISHED

: CONTINUE

CALL

28:

SRDBSF

CALL
CALL
CALL
CLRE
RETURN

SPRNTO

SDSTRB
SRBOSF
SWTSSF
SWTBSF
$SWMOD

: GET ADDRESS OF MECZAGE

: PRINT 'ENTER BAD SECTR ADRS:'

: DISTRIBUTE ENTERED ADDRESS INTO CORRECT FILE
:
:
:
:

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

94
gz

e
;++=$DSTRB-ROUTINE WILL DISTRIBUTE THE DEFECT ADDRESSES

: THIS ROUTINE DISTRIBUTES THE OPERATOR ENTERED ADDRESS TO THE CORRECT

100

: INPUTS:

103

101
102

}3;

106

:
:

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

SHDRFG = 1

$SEC = OPERATOR ENTERED SECTOR ADDRESS

1IF DEFECT IS A MEADER DEFECT

: OUTPUTS:

107

DEFECT FILE AND CHECKS FOR DUPLICATION IN THE SSF.

110 000312
11 000313
112 000322

105067
004767
103405

000000G
0000006

114 000330
115 ooos;:
116 000
117 000342
118 000344
119 000350

004767
000556
105767
007041
012701
012702

000410

113 ooosgs 012704

000015°
0000006

000000C
000000C

NONE

$DSTRB::CLRB
(ALL
BCS

MOV

1%:

CALL
BR
TSTB
BNE
MOV
MOV

SKPFRE
$SRSDF
1%

#MSG3RE, R4

: CLEAR THE SKIP SECTOR FLAG
: SEE IF ENTRY IN THE SSF
: 1F ¢S, NO

: DUPLICATE ENTRY MESSAGE

DUP
: TYPE THE MESSAGE
13%
* TRY AGAIN
SHDRFG
: SEE IF DEFECT IS A HEADER DEFECT
43
: 1F NE, IT IS
#SSSF+<2¢8SSFHD>=4,R1
; SSF ADDRESS
#855F +<1000¢8SSFLN>=2,R2
: SSF LENGTH

o>=2-—@xa2-owvnna-w>

AAslelAlLALoO=07AGlAlSUlLotOISOe4LANLoLt
~o8N585O305o0828©©©©O©8COOC8WON08IO0IT8O NO3N8OIO8T0N8OI8oT03O08T0 ONo8W3OT8OogN

)[elelelsleleTle

.nlaqlo.lr111nm111o11n1o1n‘oql.wlcalanl-o.ln7qluqlnqOlrnlnqlrrqlmOc0l.~ln.0lmcl~cnl0olcl.l.OSlrecl=bq—la.0el0!o!0cn0laa0ls0qlclclql!OSlr2c—loOc0lScROlq05lEO
FMTR8M - DEFECT
ENTRY MODULE MACRO M1113 02-JuL=-82

[=1=] [=1=][=1=] 0o

— o

17:15 PAGE

o
V
=
e
v
W
—
i
0
1
DTIwoS-r0oToaTEo3BTLFxNEOITE3aTULPEIaI .l.€bWOEsLeVWu-CI=w.tVrwlcE.N~ w.[4<Oa>WD3iuv—l-%wxIDs.S

—_

m o = - &n

2-1

SEQ 0094

-3 w O —-— [=] =

FMTIRBM = DEFECT

ENTRY MODULE MACRO M1113 02-JuUL=-82

};g 8882§§ 8?2? } 0000006
179 000634 116721 08808§6
180 000640

116721

1a§ 000650
183 000652
184 000656
185 000660
186 0006646
187 000670
}gg 000672

001419
105767
001405
105057
105267
000675
000207

181 000644

105767

18 :

0000006

000000G

128:

0000006
0000006

138:

:H ;fi¥ 2$f'#osa ADDRESS INTO UDBSF
: PUT sec%on ADDRESS INTO uogsr

1518

§xPrfiE

: SEE IF SECTOR WITHIN A SKIP REGION

BEQ
TSTB
BEQ
CLRB
INCB
BR
RETURN

19%

t INPUTS:

196

. RETURNS:

}gg

;

}31

;

}g’;

197

201 000674
202 000700
203 000706
204 000710
%82 000716

+*~CHKFE-SEE

3
:

004767
026767
103403
026767
000207

0000006
0000006 177302
000000G 177274

207

CHKFE:

1$:

SEQ 0095

1E¢L . (R1) ¢
$SEC,(R1)+

MOVB

0000006

2-2

ESV
MOVB

190

200

17:15 PAGE

STRK,(R1)+
33
SHDRFG
13$
SHDRFG
$SEC
13

: PUT TRACK ADDRESS INTO UDBSF

: 1F EQ, NO
* WAS ENTRY FOR A HEADER DEFECT ?
: 1F EQ, NO = GET NEXT ENTRY
: CLEAR THE WEADER DEFECT FLAG
: INCREMENT SECTOR ADDRESS
* CONTINUE
:

THE DEFECT ADDRESS ENTRY IS FOR THE FE CYLINDERS

$CYL,S$TRK,$SEC LOADED
s

ENTRY

CALL
(MP
BLO
CMP
RETURN

$CVTDA
SkBNH.FELBN
1
SLBNL,FELBN*2

IS NOT FOR THE FE CYLINDERS

ENTRY 1S FOR FE CYLINDERS

: CONVERT THE PHYSICAL ADDRESS TO AN LBN
i CHECK HIGH LBN
: IF LO, DON'T LOOK ANY MORE
; CHECK THE LOW LBN
:

ggg

; **=CKUSR-SEE IF THE DEFECT ADDRESS ENTRY IS FOR THE USER CYLINDERS

210

: INPUTS:

213

: RETURNS:

g}g

g}}

214

217

218 000720
219 000724
220 000732

004767
026767
101003

ggg 000742

000207

221 000734

224

552
5%;

026767

0000006
CKUSR:
177264 0000006

177256

0000006

1$:

$CYL,STRK,$SEC LOADED
s

ENTRY 1S FOR USER CYLINDERS

CALL
CMP
8H]

scvrgu
USRLBN,SLBNN
1%
USRLBN+2,SLBNL

CMP

RE TURN

; CHECK THE LOW LBN
:

: ee<DUP=DUP ROUTINE WILL [SSUE THE DUPLICATE ENTRY MEESAGE FOR SPECIFIED FILE
* THIS ROUTINE WILL ISSUE THE DUPLICATE ENTRY MESSAGE FOR THE SPECIFIED FILE

P INPUTS:

232

L OUTPUTS:

233

: CONVERT THE PHYSICAL ADDRESS TO AN LBN
; CMECK MIGH LBN
: IF LD, DON'T LOOK ANY MORE

229
sgg

ENTRY IS NOT FOR THE USER CYLINDERS

R4 = ADDRESS OF

NONE

SPECIFIED FILE MESSAGE

FMTRBM - DEFECT ENTRY MODULE MACRO M1113 02-JuL=82 17:15 PAGE 2-3

234

237 000744

012703

000040°

235 000754
240 000760

004767
01040;

0000006

zgs 000750 012700 0000006

241 000762

004767

000000G

243 000772
22g 000776

004767
000207

000006

DUP:

24§ 000766 012700 000000G
L6

;GET DUPLICATE ENTRY MESSAG

CALL
MOV

#3BUFRX RO

CALL

$MOV
Ré,R

SMOVE

:PUT MESSAGE IN OUTPUT BUFFER
:GET ADDRESS OF SPECIFIED FILE

:PUT THAT IN OUTPUT BUFFER

CALL
RE TURN

SPRINT

#3$BUFRX,RO

:GET ADDRESS OF OUTPUT eurrEa

‘GET ADDRESS OF MESSAGE BUFFER
SPRINT IT
:

INPUTS:

R4 = ADDRESS OF

FILE NAME MESSAGE

P OUTPUTS:
;
NONE

2564

:
012763
012700
004767
010403

000063"
0000006
0000006

012700

0000006

FULL:

261 001016 004767 0000006

ggg 001032

#MSG7RB,R3

MOV

252
253

262 001022

MOV

: we=FULL=FULL ROUTINE WILL ISSUE THE FILE FULL MESSAGE FOR SPECIFIED FILE

5«9

263 001026

MOV

52:
249

257 001000
258 0010064
259 001010
260 001014

SEQ 0096

004767

000207

MOV
MOV
CALL
MOV

#MSGBRB,R3
#$BUFRX RO
snov§
R4, R

;GET
:GET
:PUT
:GET

MOV

#$BUFRX,RO

SGET ADDRESS OF MESSAGE BUFFER

CALL

00600006

CALL

RETURN

SMOVE

SPRINT

FILE FULL MESSAGE
ADDRESS OF OUTPUT BUFFER
MESSAGE IN OUTPUT BUFFER

ADDRESS OF FILE NAME MESSAGE

:PUT THAT IN OUTPUT BUFFER
TPRINT §T
;

266
52;

i
i ee=]NPUT=INPUT DATA FOR SPECIFIED FILE

269
270

: THIS ROUTINE WILL PROMPT THE USER FOR THE DESIRED CYLINDER, TRACK, AND SECTOR
: ADDRESS.

272
273
274
275
276

: INPUTS:
:
NON
:
* OUTPUTS:
;
$CYL, STRK, AND $SEC SET TO SPECIFIED VALUES

b14]

280

%82

284 001040
285 001044
gao 001050
87 001054
288 001060
289 001062

SHDRFG = 1 IF THE ENTRY HAD AN °"H* SUFFIX

;

IF2=0

279

283 001034

2
105067

012703
004767
012700
004767
001001
000207

0000006

0000006
0090006
000126"
0000006

INPUT:

1%:

IFZ:=1

CLRB
MOV
CALL
MOV
CALL
BNE
RE TURN

NO MORE DATA TO INPUT

MORE DATA TO INPUT

SHDRFG

#SPHYDV,R3
SUPDMX
#MSGDRS RO
SPRMPT
2%

: CLEAR THE HEADER FLAG

:
i
:
P
:
;

POINTER TO PHYSICAL DEVICE GEOMETRY
UPDATE MAX VALUES
OPERATOR PROMPT
GET INPUT FROM THE USER
IF NE, INPUT FROM USER

FMTR8M - DEFECT

291 001064

ENTRY MODULE MACRO M1113 02-JuL=-82

904767

295 001070 01¢70

398 001074 18571

294 001100

295 001102

296 00N
297 001112
298 001114

99 001120
00 001124

301 001126
302

00145

00476

000150

0004

000054

000120

020127

177066

001132

oosc 5

010167

0000006

305 001140
306 001146
307 001150

004767
122702
001026

0000006
000054

309 001156

101023

gg‘ 001134

308 001152

020167

177050

310 001160

020167

177036

g}g 001166

010167

0000006

314 0013172
315 001176
316 001202

004767
020127
101011

0000006
000037

318 001210
319 001214
320 001216

122702
001002
105267

000110

322 0012264
323 001226
334 001232
ggg 001236

000207
012700
004767
000704

311 001164

317 001206

002420

010167

321 001222 000244

;

CMPB

ogaurax RO

#'#, (RO

: SEE_IF OCTAL INPUT

CALL

$CDTB

ERRO

R1,MINCYL

: LOOK FOR VALID CYLINDER ADDRESS

R1,8CYL

: LOOK FOR VALID CYLINDER ADDRESS
: IF WI,
INVALID CYLINDER ADDRESS

IF LT,

INVALID CYLINDER ADDRESS

: LOAD THE CYLINDER ADDRESS

$CDTB
#',,R2
1

; CONVERT THE TRACK ADDRESS
: CMECK FOR PRYPER SEPARATOR
* IF NE, ERROR

BHI

IF MI,

INVALID TRACK

ADDRESS

BLT

IF LT,

INVALID TRACK

ADDRESS

R1,MAXTRK

R1,MINTRK
R1,$TRK

: LOOK FOR VAL!D TRACK ADDRESS

: LOOK FOR VALID TRACK ADDRESS
: LOAD THE TRACK ADDRESS

CALL
CMP
BHI

$CDT
R1,#31.
X

; CONVERT THE SECTOR ADDRESS
: LOOK FOR VALID SECTOR ADDRESS
: IF W1,
INVALID SECTOR ADDRESS

CMPB
BNE
INCB

#'H,R
3s
SHDRFG

: HEADER ERROR ADDRESS ?
: IF NE, NO
: SET THE MEADER ERROR FLAG

MOV

48:

EQ,

CALL
(MPB
BNE

MOV

0000006
0000006

LIMITS

LDLMTS

CMP

3s:

DISK ADDRESS

* CHECK PROPER SEPARATOR
: IF NE, ERROR
: LOAD NEW TRACK ADDRESS LIMITS

BLT

CMP

0000006

&', .R2
R1,MAXCYL
43

MOV

INITIALIZE

: 5 rrsaLpéfnrén

: CONVERT rus CYLINDER ADDRESS

(MP
BHI

(MP

0000006

SEQ 0097

LDLMTS

(MPB
BNE
CALL

177163

2-4

CALL

MOV

BEQ

ogoogoc

1gzro§
00104
004767

osoaer
101040

28:

§°§8°g°

17:15 PAGE

[{¥

RE TURN
MOV
CALL
BR

ut.sssc

: LOAD TME SECTOR ADDRESS

: SHOW MORE INPUT

#3MSG32,R0
SPRINT
13

P
:
:
:

EXIT
INVALID RESPONSE
TYPE THE MESSAGE
CONTINUE

327

330

* THIS ROUTINE LOADS THE MINIMUM AND MAXIMUM DISK ADDRESS LIMITS

Sé
gss 001240 005067 176754

LDLMTS: CLR

ggg

; *e= DLMTS=LOAD LIMITS

331

33% 001244
337 001250
338 001256

005067
012767
012767

;20 001270
1 oonigs

001411
012767

339 oo1294.

34; 001

105767 0000006

S 001314

229

001056

v20127 001056

001304 001003

L 001306

176752
001060
000015

012767
000207

000001

000015

* USED BY THE

176746
176742

CLR
MOV
MOV

176720

BEQ
MOV

176706

1STB

CMP

BNE
1%:

.END

MOV

RETURN

*INPUT® SUBROUTINE.

MINCYL

; ASSUME MIN. CYLINDER= 0.

$SWFFE

: FORMATTING FE CYLINDERS ONLY 2

ngntuu
’ go..lllCVL
#13, MAXTRK
12
#558,

,MINCYL

R1. #3558,
1%

#13. MINTRK

:
TRACK= 0.
: ASSUME MAX. CYLINDER= 560.
:
TRACK= 13,
: BR IF NO
: MIN. CYLINDER= 558,

* IS CYLINDER INPUT 558. 2
: BR IF NO

P MIN. TRACK= 13.

MSG3R

0
R
00015R

DUP
FELBN

000744R
000210R

HSG
HSGS

INPUT
LOLMTS

001034R
001240R

MSG4R
MSG7R

DPARS = sraeee (X

FULL

MAXCYL
MAXTRK
MINCYL
MINTRK

HSG

C01000R

000224R
0Q00226R
000220R
000222R

000000
001316
ERRORS DETECTED:

145RG

00021R
88 4LOR

MSGBR
063R
SKPFRE= weener (X
USRLBN 000214R
SBUFRX= weeeen (X

. ABS.

000
001

' VIRTUAL MEMORY USED:

602 WORDS_

( 3 PAGES)

DVNAH!( MEMORY :
962 WORDS
( 30 PAGES)
ELAPSED TIME: 00:00:13
- £300,201FMTR8M, [ 300, 301FMTRBM=[300, 10IF MTREM

naun

100R
126R

DXTLODDOMN<<T
<<
ZZ DM —r— ——
Z20OwWwmMr-IT"nmDd
oD
—_< N
>
[ el

MSGCR
HSGDR

=T Moo

800674R
00720R

[l
ad
0o

CHKFE
CKUSR

PPAANAPAN

FMIRBM - gEEEC! ENTRY MODULE MACRO M1113 02-JuL=82 17:15 PAGE 2-5
SYMBOL TABL
svever

()

teenee

(GX

00031 2I§

SEQG 0098

000230Rg

@NDC=<C<Sgd<dd—wbendwoulowWaVZTWOVE=—OAWw&xEOo
v4-I[nTNVZI-eU0eD\tLDlL>LuLWeoLKD“dLsoLdLVAL-U-NB2.Lo0w>LOo<su3[n+wXo-TmWO2'l>OwoOawO3C<XxEXAwLv.a—TZw-~aO=vo———-Z“w—v
OeW"nnmm.".soTyTTTTTT IL
© OMN N IW NOMM

DNO =Foo=CNOUA

L£»S8R5=G.- SNIEYOIEIIETELIRAEIIEID.lEAINgRAR—oSRo-RAUReMvAeCOe“IoRONAwTCMoNaw=InwgMeNPeOe-NOUoa~NJ=-=O]8@[
FMTRBL = DISPLAY BAD SECTOR FIL MACRO M1113 12-JAN=-B82 11:05 PAGE 1 ;

Sea

5S¢0

w
=
o
&
—
T
P
d
W&eWv=tw2o ~x—-o0~>X.aw=]W(—vi0eO.0r

§ £ 33.o09= 3% =T

. Mg o »

UVO>@&Wd["-®850Ee.w~>e "“eTC“W‘“N7M.U“‘I[ -o>WDK—lAe -2pw=oe WwAp2DE]sv=o 0Cf="lm“@'9

@x.Xx

0099

FMTRBL = DISPLAY BAD SECTOR FIL MACRO M1113

12-JAN=B2

11:05 PAGE 2

SEQ 0100

: «2=$RMBOL=DISPLAY THE CONTENTS OF THE MDBSF, UDBSF, AND SSF

56
33

: THIS ROUTINE WILL DISPLAY THE CONTENTS OF
* AND THE SSF FILES.

59
60
61
6
p

P INPUTS:
:
NO
:
: OUTPUTS:
;
THE CONTENTS OF

23
66

g;
69 000362
;9 000366

004767
004767

0000006G
0000006

;

"$SWLST' CLEARED

(ENABL

LSB

SRMBOL::CALL
CALL

THE MDBSF,

THE MDBSF, UDBSF, AND SSF

SRDSSF
SRDBSF

THE UDBSF

PRINTED ON °TI:*

; READ THE SKIPPED SECTOR FILE (SSF)
: READ THE MDBSF AND THE UDBSF

: DISPLAY THE SSF CONTENTS

74 000372
75 000376

012700
012701

000000°
000060

MOV
MOV

0"361L.R0
#60,R1

:
:

000101°

MOV

#MSG4L ,R3

: "CREATION DATE: °

76 000402
77 000406
78 000412
79 000416

004767
012701
004767
012700

0000006
0000006
000600
0000006

81
82
83
84

004767
012703
004767
012700

0006006
000004G
000240
0G0000G

CALL
MOV
CALL
MOV

SMOVE
#SSSF+4 ,R3
SFDATE
#SBUFRX RO

:
:
:
:

LOAD THE BUFFER
DATE FIELD POINTER
PRINT THE SSF DATE FIELDS
BUFFER POINTER

004767
012703
004767
otz7og
012703

0000006
0000066
000214
0000006
000227°

CALL
MOV
CALL
MOV
MOV

SMOVE
#$SSF +6,R3
SFDATE
#SBUFRX,RO
#MSGI0L .R3

:
:
:
:
:

LOAD THE BUFFER
DATE FIELD POINTER
PRINT THE SSF DATE FIELDS
BUFFER POINTER
'REVISION NUMBER: °

016701
005002
004767
105010

0000106

*
:
:
:

REVISION NUMBER
ENABLE ZERO SUPRESSION
CONVERT
ASCIZ TERMINATOR

80 000422
000426
000432
0006436
000442

012703

85 000446

012703

91 000476

004767

86 000452
87 000456
88 000462
89 000466
90 000472

9§ 000502
93 000506
94 000510
95 000514

CALL
MOV
CALL
MOV

000207°

0000006

MOV

CALL

MOV
CLR
CALL
C(LRB

0000006

SPRNTO
#$5SF R
HDASN
#SBUFRX,RO

'SSF (SKIPPED SECTOR FILE) CONTENTS®
CARRIAGE CONTROL CHARACTER

;
: SERIAL NUMBER POINTER
: PRINT THE MDA SERIAL NUMBER
: BUFFER POINTER

#MSGIL ,R3

: 'REVISION DATE: °

SMOVE

: LOAD THE BUFFER

sgsro1o.n1
R
scsonc
(RO)

§m%ommmmm

MOV

#$BUFRX,RO

98 ooosio

MOV

#SSSF +<2¢$SSFHD> .R3

CALL
CLRB

BSFDAT
SSFLST

000522

004767

0000006

99 000532

112767

177777

100 000540
;81 000544

;85

012703
004767
105067

000000C
ooo§7o
177565

CALL

177575

MOVB

: OUTPUT POINTER

SPRINT

;

#-1,SSFLST

: BEGINNING OF SSF DATA FIELD

P SET SSF LIST FLAG

: DISPLAY THE MDBSF CONTENTS

* PRINT THE SSF FILE CONTENTS
RESET THE SSF LIST FLAG

105 000550
106 000556
107 000560

012700
105767
001402

0060043"
0000006

109 000566

012701

000060

108 000562 012700 000251"

108:

MOV
TSTB
BEQ

#MSG2L RO
$SWLOG
108

: 'MDBSF CONTENTS®
: SEE IF LOGICAL DISPLAY
* IF €Q, NO

MOV

#60,R1

: CARRIAGE CONTROL CHARACTER

MOV

#MSG11L RO

* CHANGE TO "MDBSF LOGICAL CONTENTS

N0WO0N60“21N26501O0N210162m~010~6° S0W6N0O250O16N20O6“M02O6“026“%N20OVNW[T=OlV=OlTeWNTY=
mNYNVNnY="o=‘o="6AMO‘N7N5Wo=o=5ON6AON3=o2 WNOSN=NMOTOMONe=MNOAMNOoN0N[NN=A1=N{O=0O"—]
" ' 9+ a o
Lo[ - - - -

o 6

QN(O-MM1=NlySi—~OF}qO[l.h-O100OO|e1SO0l~-RM=1=0S|0MO1wLl~-A|OlOm8-=.AILo8QMA~I~-R.oN1‘11‘11‘11111o1m-ONl02OOO1CV300AO‘O31-03201IO3O1R3T01—D340O’I3O51nO3S061M0O31O7D2'O8-01I91O3DV0W130O8"-1213141O2CCCO1O58OOo,6OO2o,3000703OO18008OL'OO
7

wl < o

-3

-wRl

2<T«-oe [24RboI]w-e=+l
.

FMTRBL = DISPLAY BAD SECTOR FIL MACRO M1113 12-JAN-82 11:05 PAGE 2- 1

SEQ@ 0101

4 e)
[V 4 — w

>gJiEoWsVMVVWVIR&WRLVWT—-.===-2LO-£oW8©O0o8oON83LKW&l8eW-681-M8y3o=5vBv3WO8M-8=~-] 8Oo08.8vNO8=>g©
NI~O-NTFORNU<uNEN~SONN77OP%N6T7O%NMwDe%s“NTwaOxMa6®mW7E”EWY73oE~7W7Vo-~%9-a0i- 7-7O7NeO&N8fLT8O~e8t
=

. 3 3 iEs

CO0 0 0O

8-Ogg068Vgg8Og3gqTE3-(gUMg3Gv3Oe(OSI(R3O-G(-3Og(T=S3]V(R(3UMeo-=3(O8RO3G0Q-1O8Ng=N013-G1N.=0]3OgNS8TM©3FRGr8-GOoGr8G0P8OoNO(NUM=S00OONWV(MOS8-=08o3O8o2FO80O5T030O8U—O3~aN03O80N©D80
FMTRBL = DISPLAY BAD SECTOR FIL MACRO M1113 12-JAN-82 11:05 PAGE 2-5

g § sy &

L-(oVLa—Od

@ e v 7] —tOb
Cah il 8§38 = art x Bw ew SN S N S TUsuwis w 3w

s sl : 2

mW=-oeO~3O ~[-@Na*srrrrsrrsrr,—c)arararess8O23Pkit U@=VmM—SYBONaSexwEDlPVmI42TLOWCIDOUEAvWEm<xOMCDoUXfRImlSTCCW-0~@w—SOEl4M]O@m B[o.&%w2t=w
o0S8o0o0 LI

SEQ 0102

[v¥)

> < -e

FMTRBL = DISPLAY BAD SECTOR FIL MACRO M1113 12-JAN-82 11:05 PAGE 2-?
231 001212

000723

B8R

408:

234

237

P OTHIS aoutxns CONVERTS THE

240

¢ INPUTS:

24§

: OUTPUTS:

%gg

;

%21

244
245

248 001216

012167

251 001232
252 001236

012703
012700

249 001222 011167
250 001z§6 012701

253 001242
254 001246
255 001250
256 001254

: .

LOOP

**=HDASN=DISPLAY THE HDA SERIAL NUMBER

HDA SERIAL

NUMBER FROM THE DEC STD 144

: FILES OR THE SSF TO ASCII AND PRINTS IT.

533

803

RETURN

208

%§§ 001514 000287

SEQ 0103

004767
005002
004767
105010

177116

177110
000336"

;

R1 = SERIAL NUMBER F1ELD POINTER

:
:

NONE

HDASN:

MOV

000121°
0000006
0000006

257 001256 012700 0000006

258 001262
523 001266

004767
000207

261

000001

* "HDA S/N: '
: BUFFER POINTER

SMOVE
R2
$CDDMG
(RO)

CALL
RETURN

.END

#MSGSL .R3
#SBUFRX,RO

CALL
CLR
CALL
CLRB

MOV

0000006

; EXCHANGE S/N MSB & LSB

(R1) ,DPARS
#DPARS ,R1

MOV
MOV

0006

(R1)+,DPARS+2

MOV
MOV

#$BUFRX,RO
SPRINT

;
: RELOAD THE SERIAL NUMBER 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-4

SEQ 0104

SYMBOL TABLE

BASYR = #exnxe GYX

MSG2L

43R

SFDATE

DPARS
HDASN
MSG1

MSG4L
MSG5L
MSG6L

R
121R
1 ;R

%SFLS
R
BUFRX= teener
$CBDMG= #evees GX

8 179R

BSFDAT

001 g&n

MSGSL

000336R
001216R
0
R

MSG1

000

MSG7L

MSG11L

000251R

MSGSL

MSG12L

000302R

. ABS.

000000
001270

ERRORS DETECTED:

MSGOL

147R

0207R

0
0

VIRTUAL MEMORY US;
&N UORDS
( 2 PAGES)
DYNAMIC MEMORY:
982 SORDS 30 PAGES)

" ELAPSED TIME: 00:0
£300,201FMTR8L, (300, 301FMTRBL=L300,10IFMTREL

SPACE

$CDDMG=

SCYL

$DAT

weewee GX

= wevene (X

= wweren (X

HDBEF- wanenw GX

$SRSSF= swween GYX

PRINT= wwewes GX
PRNTQ= weewsw GX
RDBSF= wennen GX

tSS'Hos LAAAL
LN ) |
SWLOG= #wwene GX
$SWLST= wenene GX

MOVE

= wewnee GX

npagr:

wannwn GX

RMBOL

000362RG

3SEC

= wwewne (X

$SSF

= eeewes X

$TRK

seewnne GX

SUDBSF= #eenns GX

INITIALIZE

MDBSF,

UDBS MACRO M1113 12-JAN-82 11:05 PAGE 1
ITLE
DENT

B NN = OO 00 ~JO N S i)

FMTINT

FMTINT - INITIALIZE MDBSF, UDBSF, SSF
/01.00/

SOFTHARES

UNDER A LICENSE FOR

ANY

OTHER PERSON

XCEPT

USE ONLY ON A

FOR USE _ON SUCH SYSTEM AND TO ONE

00 ~ IO

WHO AGREES TO THESE LICENSE
TERMS.
TITLE
TO AND
THE SOFTWARE SHWALL AT ALL TIMES REMAIN IN DIGITAL.
THE

INFORMATION

IN THIS DOCUMENT IS SUBJECT

N NS NN = O

NOTICE AND SHOULD NOT BE CONSTRUED AS A
EQUIPMENT CORPORATION.

OWNERSHIP OF

TO CHANGE WITHOUT

COMMITMENT

DIGITAL

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

VERSIUN 01.00
C. HESS

SRUR

FURNISHED

MASS.

SING E COMPUTER
SYS EH AND MAY BE COPIED ON%V WITH
THE INCLUSION
OF
ABOVE COPYRIGHT NOTICE.
THIS SOF HARE. OR ANY OTHER
COPlES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
MADE AVAILABLE

M. LEAVITT

33 000000

SEQ 0105

052

040

.NLIST

BEX

MSGIRI:
.EVEN

LASCIZ

15-AUG-80

14-JAN-81

/++ WARNING - BAD SECTOR FILES WILL BE OVERWRITTEN ON /

FMTINT = INITIALIZE MDBSF, UDBS MACRC M1113 12-JAN-82 11:05 PAGE 2 .
37

SEQ 0106

; **=SRMBOI-INITIALIZE THE RMBO'S MDBSF, UDBSF, & SSF TRACKS

40
21

:
s

s INPUTS:

44
45

3
:

NONE

TRACK

; OUTUTS:

S0 000066

012703

004767
012703
004767
012700
012701
004767
012700
004767

0000006
0000006
000000G
0001446
000060
0000006
0000006
0000006

60 000134

122767

000131

59 000132

001404

61 000142
6% 000144
63 000150
64 000156

001402
000167
012703
012700

66 000164
67 000170
68 000172
69 000174

016720
005020
005020
012720

65 000160

016720

70 000200
71 000202
72 000204
73 000210
7% 000214
75 000220
76 000222

005303
001374
012700
016720
016720
005020
005020

79 000234
80 888536

005303
001374

77 000224
78 000230

000000°

51 000072
sg 000076
53 000102
54 000106
§5 000112
56 000116
57 000122
58 000126

THIS ROUTINE UIL% FORMAY THE DEC STD 144 TRACK AND THE SSF
AND WRITE NULL
16 BIT DEC STD 144 AND SKIP SECTOR FILES.

$RMB01 : :MOV

CALL
MOV
CALL
MOV
MOV
CALL
MOV
CALL

BEQ

006000G

0000006
000374
0000006

1$:
28:

0007006
0000026
177777

374
177777

012703

000000C

016767
016767

0000006 000000G
0000026 0000026

314

012767

000001

100 000342

005067

0000246

88 000274 016767 0000006 0000046
89 000302 016767 0000006 0000066
90 888310 005067 0000106
99 000336 005067 oooogzc

#'Y,SBUFRX

MOV

SSNAME, (RO)+

BEQ
JMP
MOV
MOV

0000126

$
FMTEX
#256.-4
R
#SMDBSF ,R

:
:
:
*
:
:
i
:

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
PROMPT AND GET RESPONSE
: IF EQ, RESPONSE WAS °'NO°

: SEE If RESPONSE WAS 'YES'

: If EQ, RESPONSE WAS 'YES®
: EXIT
: GET NUMBER OF ENTRIES TO RESET
: GET START OF MDBSF

; STUFF THE NEW SERIAL NUMBER

: ...
: BLANK WORD
: SHOW NOT AN ALIGNMENT DISK
: EMPTY THE MDBSF

4s:

MOV
MOV

#256.-4 ,R3
#-1,(R0)+

: GET NUMBER OF ENTRIES TO RESET
: EMPTY THE UDBSF

5%:

MOV
MOV
DEC
BNE

DEC
BNE
MOV
MoV
MOV
CLR
CLR

DEC
BNE

MOV

86 000260
87 000266

CMPB

: WARNING MESSAGE ADDRESS

SSNAME+S2, (RO)+
(RO)+
(RO)+
#-1,(R0)+

3s:

82 000244 012700 0000006
83 000250 012720 177777
84 000254 005303
85 ooosse 001374

sgurng
#IMSG24 ,R3
$MOVE
osguro1oo..ao
#60,R1
SPRNT
#3MSG31,R0
SPRMPT

MOV
CLR
CLR
MOV

0000006
G
0000026

012703
012720

#MSGIRI,R3

MOV
MOV

MOV
MOV
CLR

MOV

CLR

R3
3
#SUDBSF RO
$SNAME, (RO) +
SSNAME+2,(RO)+
(RO)
+
(RO)+

:
:
:
:
:
:
*

FINISHED?
IF NE NO
GET START OF UDBSF
STUFF THE NEW SERIAL NUMBER
...
BLANK WORD
SHOW NOT AN ALIGNMENT DISK

R3
4

: FINISHED?
: 1f NE NO

#355F ,RO
#-1,(R0)+
R
5

; SSF BUFFER POINTER
: CLEAR A LOCATION
: COUNT THE LOCATION
: IF NE, NOT FINISHED

DPARS,$SSF+4
DPARS 355!06
s§sro{

: CREATION DATE
: REVISION DATE
: REVISION NUMBER

sssrogz

: NUMBER OF SSF ENTRIES

#256.+<$5SFLN>
RS

- SSF SIZE

$SNAME ,$SSF
: SERIAL NUMBER LS8
SSNAME+2 $SSF+2 ; SERIAL NUMBER MSB

#1,855¢+12
$S5F +04

: SSF DATA TYPE INDICATOR (16 BIT)
:

CHECKSUM

MDBSF,

4
4
4

5
0
000001

UDBS MACRO M1113

12-JAN-82

11:05 PAGE

WOB
e &W
DVINZ

INITIALIZE

==17 OmwnI—

]RNeoRT

wouox
O o d —d

FMTINT

6%:

END

[
4

2-1

SEQ 0107
CIAL
IAL FORMATTER'
TM
144 | NFORMAT JON
STD
TIALIZATION FLAG

FMTINT = INITIALIZE MOBSF, UDBS MACRO M1113 12-JAN-82 17:05 PAGE 2'5

SEQ 0108

SYMBOL TABLE
DPARS =
MSGIR!

SBUF

. ABS.

SMDBSF=
SMOVE
=

= wxsees GX

SBUFRX=
SEMTEX=

;

#esene (X
OQOCOOQOOCR
reeeee
wwemes

ERRORS DETECTED:

(X
(X

§MSGO4= weeess GX

(X
X

$MSG31=

000000

000370

weeeesr
eeeeer
eeeene

000

001

VIRTUAL MEMORY USED:
489 UORDS
( 2 PAGES)
DVNAHIC MEMORY:
7942 WORDS
( 30 PAGES)

ELAPSED TIME:
00:00:07
£300,201FMTINT,[300,301FMTINT=[300,101FMTINT

$PRMPT=
SPRNT(Q=

esever
eeeeee

$RMB01

000066RG

$SRBOSF=

eveere

(X
(X
(X

SNAME=
SSF
=

eewnen
seewee

(X
(X

$SSFLN= sesees GX
SSWINT=

eeeeee

gupasr:
UNTID=

weneve
sweene

(X
(X

SWIBSF= sevees GX
SWISSF=

seveee