Digital PDFs

AH-F919B-MC

August 1981

169 pages

Original

8.3MB

view download

OCR Version

7.6MB

view download

Document:	CZRMLB0 RM02-03-05 RM05-3-2 FORMATTER AUG 1981 bw
Order Number:	AH-F919B-MC
Revision:	000
Pages:	169
Original Filename:	CZRMLB0__RM02-03-05__RM05-3-2_FORMATTER__AH-F919B-MC__AUG_1981_bw.pdf

OCR Text

"02/,03_/05 -RHSZ FORHRTE
CZRMLBO

A -FO19R
KL - EL o
e TEHE L DFE- 1 e v uee

RMOS/ 372 EORMATTER

MACRO v04.00

8 1
18:39:56 PAGE 1

&-APR-B1

0 Nt

.REM

>
—
B

S QOO0 NP AN 2000 NN

TORUNINY
-~ dea =~

IDENTIFICATION
PRODUCT

CODE:

AC-F918B-M(

PRODUCT NAME:

(ZRMLBO

RMQOS5/3/2 FORMATTER

PRODUCT DATE:

APRIL

MAINTAINER:

CX DIAGNCSTIC GROUP

AUTHOR:

MIKE

1981

LEAVITT

THE INFORMATION IN
THIS
DOCUMENT IS SUBJECT TO CHANGE
NOTICE AND SHOULD
NOYT BE CONSTRUED AS A COMMITMENT
B8Y
EQUIPMENT
(ORPORATION.
DIGITAL
FQUIPMENT
(ORPORATION
NO RESPONSIBILITY FOR ANY ERRORS T+HAT MAY APPEAR [N THIS
THE

SOF TWARE DESCRIBED

LICENSE

TERMS OF

AND

MAY

THIS DJCUMENT

ONLY BE USED OR (OPIED

SUCH LICENSE.

WITHOUT
DIGITAL

ASSUMES
MANUAL.

FURNISKED UNDER A

IN ACCORDANCE WITH THE

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

(OPYRIGHT

(({)

1980,1981

DIGITAL FQU]JPMENT CORPORATION

[&]

M5 7802 F GRMAT
TE R

MAIRD v04.00

4&-APR-81

18:39:56 PAGE 2
CONTENTS

WLnL

2D 000NN

ABSTRACT
REQUIREMENTS

2.a

2.1
2.2

EQUIPMENT
PRELIMINARY PROGRAMS

LOAD ING PROCEDURES

3.1
3.2
3.3

PAPER TAPE AND XXDP
APT
APT ETABLE DEFINITIONS

STARTING PROCEDURES

=2 OO

4.1
4.2

4.3

NN N

POPRURNONININD
-2 = 42
2

STARTING ADDRESSES
OPERATOR ACTION
RH11 = RH70 UN]BUS ADDRFSS

SWITCH REGISTER SETTINGS

ERROR MESSAGES
MISCELLANEOUS

7.1

7.2

7.3

FORMAT TIMES

HALTING

THE PROGRAM

SURFACE VERIFICATION

PROGRAM DESCRIPTION

8.1
8.2
8.3

FORMAT OPERATION
POSITIONER VERIFICATION
HEADER VERIFICATION

BAD SECTOR FILE

9.1

BAD SECTOR FILE UTILITY

RH/RM SOF TWARE DRIVER DOCUMENT

LeV o

WMy,

{

EDRMATTER

MACRO v04.00

4-APR-B1

'B:39:56 PAGE

ABSTRA(T

THE RM05/3/2 FCRMATTER PROGRAM PROVIDES THE FACILITIES TO FORMAT,
TO (HECK THE HEADER AND DATA FIELDS OR VERIFY THE HEADER FIELD OF
EACH DATA BLO(K ON THE PA(CK. EA(H HEADER FIEID SPECIFIES THE ADDRESS
OF ITS ASSOCIATED DATA BLOCK ON THE DISK PACK,

IN THE FORMAT OPERATION,

THE PROGRAM WRITES THE HEADER Of EA(CH

DATA BLOCK WITH A CYLINDER NUMBER,

TRACK NUMBER AND SECTOR NUMBER.

ALSO, WRITES THE DATA FIELD WITH SELECTED DATA PATTERN.

THE

PROGRAM THEN VFRIFIES

THE

PROGRAM

A VERIFY OF

"WRITE

THE

WRITTEN DATA BLOCKS VIA EXECUTING

CHECK HEADER AND DATA'' COMMAND.
THEN PERFORMS

TRACKS SELECTED FOR FORMATTING.

SECTOR ZERO,

ON EACH OF

THE VERIFY S ACCOMPL ISHED BY

EXECUTING A "READ HEADER AND DATA'' COMMAND AND (OMPARING THE

HEADER WORDS

20
21
22
SE

IN THE VERIFY OPERATION, THE PROGRAM READS THE HEADER OF SECTOR 0
THRU 29.(18 BIT MODE) OR 31. (16 BIT MODE) ON EACH CYLINDER AND
TRACK TO BE VERIFIED, THEN COMPARES THE TWO HEADER WORDS TO MAKE

8
29
20
3

SURE THEY ARE CORRE(T.
2.

REQUIREMENTS

2.1

EQUIPMENT

eesccceca-e-

3¢
33

PDP-11 PROCESSOR
12K MEMORY
KWwll-L OR KW11=-P CLOCK

35
36

TERMINAL
RH11 OR RH70 CONTROLLER

PROGRAM LOADING DEVICE

VALUE.

TwO

25
26

TO AN EXPECTED

THE

2.2

7O 8 DISK DRIVES

(ANY COMBINATION OF

RMOS'S,

RM03'S OR RM(0Z'S)

PREL IMINARY PROGRAMS
THERE ARE

NO PREQUISITE PROGRAMS,

PROVIDING THE

RM SUBSYSTEM

42
43

KNOWN TO BE OPERATIONAL.
IF THE STATE OF THE RM SUBSYSTEM [S
UNKNOWN, THE FOLLOWING PROGRAMS SHOULD BE RUN PRIOR TO USING THE
FORMATTER PROGRAM,

RM0S5/3/2 DISKLESS TEST, PART

RM05/3/2 FUNCTIONAL

gé

LOADING PROCEDURES

53
22

3.°

PAPER TAPE AND XXDP

56
57

& 2

TEST, PARTM 1

THE PROGRAM MAY BE L_CADED FROM PAPER TAPE USING THE ABSOLUTE
LOADER OR IT MAY BF LOADED FROM 'XXDP' MEDIA USING THE APPROPR ATt

JEM
B RS

3 FORMATTER

MACRO v04.00

<8
59

“o

¢l
3
4

&-APR-B7

°"8:39:56 PAGE 3-!

SFQ 0004

L GADER.

3.2

APT
THIS PROGRAM IS APT (OMPATIBLE

IN THE PROGRAM AND WILL WORK

TO THE EXTENT
THRU THE

“t
6;

FOR OTHER INTERFACES, APT MAY ONLY LOAD AND START
1.E. LOAD AND DUMP MODE.

AUTOMATIC MODE
1.

THE

THE BUSS ADDRESS AND CONTROLLER
DEFAULTED.

DUMP MODE

3.3

THE

INTERRUPT

VECTOR

AFTER PROGRAM STARTS

FOLLOWING DEFINITIONS ARE

SOF TWARE

-~ 0 IF

VALID

FOR

SPECIFYING APT

VIA RUNNING

ENVIRONMENT
:

APT

SCRIPT MODE

STANDLONE MODE

:
ENVIRONMENT MODE

BIT

Sy
S S

BYPASSED.

ENVIRONMENTAL TABLE (ETABLE) ENTRIES,
THE APT UTJLITY PROGRAM '‘TSP'":

7 = 1
= 0

ETABLE DOES SIZING
PROGRAM DOES SIZING

BIT 6 - 1
- 0O

SPOOL MESSAGES TO APT
DON'T SPOOL TO APT

BIT 5 = 1
- 0

SUFPRESS CONSOLE OQUTPUT
ALLOW CONSOLE OUuTPUT

SCRIPT MODE

BIT 4 TO BIT O ARE NOT USED

QOO

APT ETABLE DEFINITIONS

SWITCH 1

(SOF TWARE SWITCH REGISTER)

IF ENVIRONMENT MODE BIT 7 (SIZING BIT )

IS SEVT 1O 1,

THE SOFTWARE SWITCH REGISTER WILL BE USED,
OF THE HARDWARE CONSOLE SWITCH REGISTER.

QOO

RSPN

DIALOGUE

INPUT DIALOGUE

VOO

buxhu-4cfigon~usu352uvv-*€§4302\uanflxra—aéicoo~u0nfix\uvv-croég\uranK:

s 2 =2

INPUT

THE PROGRAM,

(MONITOR)

OVOVOOVEL0000C 0000000000000 ~y N~ N~

‘4

[

THATM APT HOOKS WiLt

'OPTION INTERFA(E®.

SwITCH 2 (USER SWITCH REGISTER)
NOT USED

{PU OPTIONS
NOT USED

MEMORY

TYPES 1-4 AND MAX MENMORY ADDRECSES

INSTEAD

FORMATTER

MATRO v04.00

18:39:56 PAGE 3-¢

INTERRUPT VECTOR 1:

BUS PRIORITY 1:

INTERRUPT VECTOR ¢:
NO7 USED

10.

BUS PRIOR]ITY 2:
NOT USED

11.

BASE ADDRESS:

USLD WHEN SNVIRONMENT MODE BIT 7

WD
= OO0 NI N0 OO0 N

P
T
e
R
R
DT

4-APR-81

NOT USED

SR SN

RM_S/ 70

VIV IR TU LN LN O N U N AL
VT

JAMOBC

NOT USED.

USED WHEN ENVIRONMENT MODE BIT 7

USED WHEN ENVIRONMENT MODE BIT 7 = 1.

14.

SPECIFIES

THAT PROGRAM RUNS

148

USED WHEN ENVIRONMENT MODE BIT 7
1. ANY NONE ZERO
NUMBER SPECIFIES THAT PROGRAM SELECTS 30.(18 BIT MODE’
IN ALL

OPERATIONS.

STARTING PROCEDURES
-

——

—

—————

STARTING ADDRESSES

YO NI W
OO0

) oD
it ad
B
D ok
d e

IN CHECK MODE.

CONTROLLER DESCRIPTOR WORDS:
SECTORS FOR A TRACK

EACH BIT SET TO

CONTROLLER DESCRIPTOR WORDS:
USED WHEN ENVIRONMENT MODE BIT 7 = 1. ANY NONE ZERO
NUMBER

i o

176700

1 INBITS O TO 7 wILL SELECT THE CORRESPONDING DRIVE
TO BE TESTED.
BITS 8~15 ARE NOT USED.

“3.

[« IO IV.IE.TVIV
N1V, 1V, 1V [V, ¥ )

1:DEFAULT -

12. DEVICE MAP:

134

1¢°

1;DEFAULT = 254

200 - START ADDRESS IS DEFAULT, ALL SWITCHES CLEAR (SEE SECTION 5)
204 - RESTART ADDRESS,

THE RESTART ADDRESS PROVIDES THE OPERATOR w]Tw

THE ABILITY TO
C(CHANGE THE DEFAJLT
RM/RH ADDRESSES AND TQO USE
THE BAD SECTOR FILE UTILITY ROUTINES (SEE SECTION
9.1).

4.2

OPERATION ACTION

LOAD THE

PROGRAM INTO MEMORY

(SEE

SECTION 3).

LOAD THE STARTING ADDRESS - 200 OR 204

SET THE SWITCHES AS REQUIRED AND PRESS

'START',

IF THIS IS THE PROGRAM'S F]RST START, THE STATUS OF THE DRIvVES
ON THE SELECTED MASSBUS SUBSYSTEM WwILL BE TYPED QUT.
THIS TYPEQUT
MAY BE INHIBITED ON SUBSEQUENT STARTS BY SETTING Sw<(02>.

TeMo

1;5

k4,00

4=4APR-B1

THE

G
18:39:56

PAGE

PROGRAM WILL

1
3-3

THEN TYPE

THE FOLLOWING MESSAGE
:

‘DO YOU WANT TO FORMAT

c g

ENTER

7
*H

MODE WILL BE ENTERED.

1T
T8

THE

APPROPRIATE

(L)

CODE:

'Y'

?°
FOLLOWED BY CARRIAGE RETURN OR

JUST CARRIAGE RETURN (DEFAULT) TO FORMAT & HEADER VERIFY. IF THE
RESPONSE IS 'N" FOLLOWED BY CARRIAGE RETURN, THEN A VERIFY ONLY

’%‘
1872

‘23

THE PRUGRAM WILL THEN ASK FOR THE FORMATTING MODE:

'DO YOU WANT 16 BIT MODE

184

185
186

(L) Y ?°

ENTER THE APPROPRIATE (HARACTER: 'Y' FOLLOWED BY A CARRIAGE RET JRN
OR JUST A CARRIAGE RETURN (DEFAULT) FOR 16 BIT MODE. IF THE

187

RESPONSE

333

MODE .

;3?

}g%

'N'

THE PROGRAM WILL

‘DRIVE:

FOLLOWED BY A CARRIAGE RETURN,

THEN ENTER 18 BIT

THEN ASK FOR A DRIVE:

°*

194
195

196
}gg

ENTER THE ADDRESS OF THE DRIVE TO BE FORMATTED.
ENTER THE DRIVE
NUMBER FOLLOWED BY A CARRIAGE RETURN. IF THE DRIVE SELECTED IS NOT
AVAILABLE, THE PROGRAM WILL TYPE AN ERROR MESSAGE AND RETURN TO
THE DRIVE ADDRESS REQUEST.

199

NOTE:

58;

TO RUN THIS PROGRAM.

200

204

Sgg

ggg

AFTER THE OPERATOR HAS SELECTED A DRIVE,
ASKED

TO CHANGE

THE DRIVE

THIS PROMPT.

IS TO SETUP A (HAIN

THE OPERATOR WILL BE

PARAMETERS WITH THE

FOLLOWING PROMPT:

(L) N ?°*

IF THE ENTRY IS A 'N' FOLLOWED BY A CARRIAGE RETURN OR JUST A

209
210
21
212

CARRIAGE RETURN (DEFAULT), THE PROGRAM WILL NOT ALLOW ANY DRIVE
PARAMETERS TO BE CHANGED AND WILL PROCEED TO TEST THE DRIVES AS
COMMANDED. IF THE ENTRY IS A 'Y' FOLLOWED BY CARRIAGE RETURN,
THE OPERATOR WILL BE ALLOWED TO CHANGE THE DRIVE PARAMETERS AS

5;3

FOLLOWS.

%;g

THE PROGRAM WILL ASK FOR ADDRESS LIMITS FOR THE

g;g
220
221
222
gsz

TO ENTFR A MULT-DRIVE ENTRY FOR

*CHANGE DRIVE PARAMETERS

508

219

IT NOT POSSIBRLE

THE ONLY WAY ALL THE DRIVES CAN BE FORMATTED,

'"ENTER ADDRESS LIMITS:
)

SELECTED DRIVE:

THE PREVIOUSLY SELECTED OR DEFAULT VALUES FOR BEGINNING CYLINDER

AND TRACK AND FOR ENDING CYLINDER AND TRACK WILL BE TYPED QuT.
IF A "CARRIAGE RETURN' IS TYPED AS A RESPONSE, THE PRESENT VALUE
WILL BE USED; IF A '"PERIOD® 1S TYPED, THE PROGRAM WILL BYPASS
THE REMAINING ENTRIES AND WILL USE THEIR PRESENT VALUES.

205

NOTE: THAT THE CYLINDER AND TRACK VALUES ARE DECIMAL NUMBERS.

538

CYLINDER.

226
227

THE ADDRESS SPECIFIED BY THE BEGINNING TRACK MUST BE LESS THAN
THE ENDING TRACK ADDRESS IF THESE TWO ADDRESSES ARE ON THE SAME

ON THE OTHER HAND, THE ENDING (YL INDER ADDRESS MAY

ETRMATTER

MACRO v04.00

::;N’\)'\JNN!U'\J’\"&

18:39:56 PAGE 3-4
STARTING CYLINDER ADDRESS.

PROGRAM WILL FORMAT OR VERIFY

THE

IN THIS CASE,

D]SK PA(K FROM THE

Tmt

STARTING

E;L{figgg TO CYLINDER 822 AND THEN FROM (YLINDER O TO THE ENDING
.

THE PROGRAM WILL

0 oo~

THEN TYPE:

'STARTING FORMAT'

&~-APR-B1

BE LESS THAN THE

EREPARRR

SeMOb

RMOG/ 37,

*STARTING HEADER VERIFY'

2+0

NOTE: IF A NEW PACK IS UNFORMATTED, THE PROGRAM ALSO ASKS YOu 10
ENTER TWO SERIAL NUMBERS. (EXCEPT IF OPERATING IN VERIFY ONLY
MODE) THESE TWO SERIAL NUMBER MUST BE NON~ZERO DECIMAL NUMBERS.
10.

THE

OPERATOR CAN DETERMINE WHERE

BE gYEéNG A
ME SSAGE

'PRESENT

11.

'CONTROL O'.
ADDRESS

IS:

THE DRIVE

THE PROGRAM WILL

(XXX

IS DURING THE

OPERATION

TYPE THE FOLLOWING

TxXx'

TO CHANGE EITHER THE ADDRESSING MODE OR THE OPERATION MODE,
PROGRAM MUST BE STARTED FROM LOCATION 200 GR 204 AGAIN.

RH11

THE

- RH70 UNIBUS ADDRESS

THE _PROGRAM ASSUMES THAT THE RH11 OR RH70 ADDRESSES START AT
176700 AND THAT THE VECTOR ADDRESS IS 254.
THESE ADDRESSES MAY

BE CHANGED WHEN THE PROGRAM 1S STARTED FROM LOCATION 204.
EnggA;HE RH11/RH7C ADDRESS IN RESPONSE TO THE REQUEST FROM THE

PRO

SWITCH REGISTER SETTINGS

THE PROGRAM 1S BEING RUN ON A SWITCHLESS PROCESSOR THE PROGRAM

WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS NOT PRESENT
AND WILL USE A "SOFTWARE' SWITCH REGISTER.
THE 'SOFTWARE' SWITCH
REGISTER IS LOCATED AT LOCATION 176 . THE SETTINGS OF THE 'SOF TWARE'
SWITCHES ARE CONTROLLED THROUGH A KEYBOARD ROUTINE WHICH IS CALLED

275
276

BY TYPING A 'CONTROL

THE PROGRAM WILL RECOGNIZE THE

IS AT A HIGHER PRICRITY PROCESSING AN DRIVE INTERRUPT.
FROM THE

SWITCH ENTRY ROUTINE:

'SWR = NNNNNN

°‘CONTROL G'

IN KEYBOARD ENTRY MODE, OR

SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER

PROMPT

~85

G'.

AT ANY TIME EXCEPT WHEN THE PROGRAM IS

THE

IN RESPONSE

'SOF TWARE'

TO THE

NEW ='

EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH REGISTER
IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT REQUIRED, ‘RUBOUT'
AN?’ECO?TfigL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING
SWITCH

ENTRY,

JRMLBO M f

VAT

i K

MARD «04.0C

4-APR-81

)

'8:39:56 PAGE 3-%

“£Q

ON PROCESSORS WITH HARDWARE SWIT(H REGISTERS, THE 'SOFTWARE® SwlT(w
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1'S [N THE SWITC(HES.
ALL SWITCH REGISTER REFERENCES WILL BE TO THE °'SOF TWARE®
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED.

SW<15>=1
Sw<13>=1
SW<10>=1
SW<Q9> 1
Sw<Q2>-1
Sw<01>=1
Sw<00>-1

HALT ON ERROR
INHIBIT ERKOR TYPEQUTS
BELL ON ERROR
LOOP ON ERROR
DCN'T DISPLAY SYSTEM STATUS AFTER INITIAL
LOOP ON THE CURRENT TRA(K
LOOP THE PROGRAM ON THE SELECTED DRIVE

START

ERROR MESSAGES
'RH INTERRUPYT OCCURRED
NOTHING ON THE MASSBUS

(RMAS-0) - AN INTFRRUPT OCCURRED, BUT
IS INDICATING AN ATTENTION.

'UNEXPECTED ATTENTION OCCURRED® -~ THE INDICATED DRIVE INTERRUPTED,
BUT NO INTERRUPT WAS EXPECTED FROM THE INDICATED DRIVE.

AN LN AN AN LN
N N NN
d
p =D
rY — e e o
o O® OSSN
—

310

'MASSBUS PARITY ERROR

WAS DETECTED BY

THE

(MCPE=1)'

RH WHEN

THE

- A CONTROL BUS PARITY ERROR
INDICATED REGISTER WAS READ.

'MASSBUS PARITY ERROR (PAR=1)' - A (ONTRCL BUS PARITY ERROR
OCCURRED WHEN THE INDICATED REGISTER WAS WRITTEN.

'ADDRESS PLUG CHANGE BIT SET' - THE
BIT SET FOR THE INDICATED DRIVE.

PROGPAM FOUND THE

'OPE’

'RH DIDN'T RESPOND TGO ADDRESSING' - THE PROGRAM ACCESSED
RH AT THE INDICATED ADDRESS AND RECEIVED NO RESPONSE.

'DRIVE OFFLINE'

-~ THE

THE

INDICATED DRIVE HAS GONE OF FLINE

'PERSISTENT DRIVE UNSAFE

ERROR'

- THE

UNSAFE AND THE CONDITION CANNOT BE
CLEAR' INSTRUCTIONS.

INDICATED DRIVE

(LEARED BY

HAS BE(OME

ISSUING °'DRIVE

'UNCORRECTABLE MASSBUS PARITY ERROR' - THE PROGRAM ATTEMPTED
TO PERFORM AN OPERATION AND DETECTED 3 SUCESSIVE MASSBUS PARITY
ERRORS OR THE PROGRAM ATTEMPTED TO (LEAR A 'PAR' ERROR IN THE
DRIVE AND A PARITY ERROR OCCURRED.

'SOF TWARE TIMEQUT'

SECOND.

- THE OPERATION FAILED TO (OMPLETE WITHIN

'CONTROLLER/DRIVE ERROR DURING WRITE' - THE INDICATED NON-DATA
ERROR WAS DETECTED DURING A FORMAT OPERATION.

"DRIVE UNSAFE EKROR' ~ A NON-PERSISTENT UNSAFE ERROR G” C(URRED
DURING THE OPERATION.

11.
ro

10.

JEMUBL RMUS, R/

FORMATTER

MATRC v04.00

343

4-APR-81 '8:39:56 PAGE 3-¢

344
;45

13.

*(ONTROLLER/DRIVE ERROR DURING WRITE (HE(K® = A NON=DATA fRR_K
OCCURRED DURING THE WRITE (HECK.

247
28

14.

°*DATA ERROR DURING WRITE CHECK® = A DATA RELATED FRROR (il (URREC
DURING A WRITE (HECK OPERATION.
A DATA ERROKR [S (ONS]DERED

349

TO BE

%29

ONE

THE

'HCE', OR 'FER'.

352

15.

%§2
P

3565

16,

358
ggg

17.

361

18.

364
365
ggg

19.

368

20.

ggg

gg%

369
370

FOLLOWING ERRORS:

'D(K’,

'OPI',

°*RETRIZS NOT SUCESSFUL = SECTOR NQT ACCEPTABLE'

'DTE*,

SECTOR FAILED DURING RETRY FOLLOWING A DATA ERROR,

THF

'w’I

NDI ATED

'CONTROLLER/DRIVE ERROR VERIFYING HEADERS® = AN ERROR OCTURREL DURING

THE VERIFICATION PASS AFTER FORMATTING.

''HCE' ERROR VERIFYING HEADERS' - A HEWDER ERROR OCCURRED DURING
THE VERIFICATION PASS AFTER FORMATTING.

"CYLINDER FIELD IN HEADER IS NOT CORRECT® = THE (YLINDER ¢ lELD

FROM A HEADER READ DURING THE

VERIFICATION PASS

IS NOT CORRE(T.

'TRACK/SECTOR FIELD IN HEADER ]S NOT CORRECT® = THE TRACK AND
SECTOR FIELD FROM A HEADER READ DURING THt VERIFCATION IS NOT
CORRECT,

‘'WRITE CHECK ERROR® - THE RH REPORTED A WRITE CHECK ERROR AND

NO DRIVE ERRORS WERE

SET.

371

372

373

MISCELLANEOUS

375
g;g

7.t

FORMAT

eesceccccca=-

TIME

378
2;8

THE °*FORMAT' MODE WILL TAKE APPROX. 10 MINUTES FOR AN ENTIRE RM(3/?2
AND APPROX. 30 MINUTES FOR AN ENTIRE RMOS.
:

281
§g%

THE "VERIFY' ONLY MODE TAKES APPROX.
APPROX. 20 MINUTES FOR RMOS.

7 MINUTES FOR AN RM0O3/2 AND

384
ggg

7.2

387
388

THE OPERATOR SHOULD NOT HALT THL PROGRAM VIA THE CONSOLE DURING A
FORMAT OPERATION. HALTING THE PROGRAM MAY _EAVE A SECTOR INCORRE(TLY

ggg

FORMATTED.

ggé

7.3

TO TERMINATE

THE FORMAT,

TYPE

"CONTROL C°.

SURFACE VERIFICATION

293
194

THE FORMATTER PROGRAM IS NOT INTENDED TO 8E USED TO PERFORM DSk
PACK VERIFICATION.
IF THE PROGRAM REPORTS A SECTOR AS BEING °'NOT

;gg

SECTORS WHI(H 'PASSED' MAY OR MAY NOT BE GOOD.

295

ACCEPTABLE®,

398

HALTING THE PROGRAM

THIS MAY

IN FACT

INDICATE A BAD SURFA(E;

HOWEVER,

FEORMATTER

MACRO v04.00

4-APR-B7

18:39:56 PAGE 3-~

[ TM

PROGRAM DESCRIPTION

8.1

FORMAT OPERATION

THE PROGRAM FORMATS THE PACK ONE

SPECIFIED BY THE OPERATOR.

THE PACK IS WRITTEN WITH A

TRA(CK AT A

'WORST

CASE'

TIME BETWEEN T4E

DATA PATTERN,

NUMBER 155555, FOLLOWED BY AN OCTAL NUMBER OF

133333,

LIMIITS

WHICH IS A OCTAL

THE FORMAT OPERATION CONSISTS OF A WRITE HEADER AND DATA COMMAND fOR
THE ENTIRE TRACK FOLLOWED BY A WRITE CHECK HEADER AND DATA (OMMAND.

IF AN ERROR OCCURS DURING THE WRITE,

WRITE BEFORE

(ONTINUING.

THE PROGRAM WILL RETRY THE

A DATA RELATED ERROR

IS DETECTED

DURING THE WRITE CHECK (A DATA ERROR 1S DEFINED AS ONE OF
THE FOLLOWING ERRORS: 'DCK', 'OPI', 'DTE', "HCRC', ‘HCE®,
OR 'FER'), THE SECTOR IN ERROR WILL BE REWRITTEN.
THE PROGRAM WILL
(HECK THE SECTOR TWICE; IF A DATA ERROR IS DETECTED IN THE SECTOR
DURING EITHER OF THE WRITE CHECKS, THE PROGRAM WILL DECLARE
THE SECTOR AS BEING 'NONRECOVERABLE'.
FOLLOWING THIS SEQUENCE,
THE REMAINDER OF

THE

TRACK

CHECKED.

IN ANY OF THE REMAINING SECTORS,
DESCRIBED ABOVE.

DATA ERRORS ARE

EACH SECTOR WILL

BE HANDLED AS

IF A NON-DATA RELATED ERROR OCCURS DURING THE WRITE CHECK,

PROGRAM WILL RETRY
TO THE NEXT TRACK.

THE

IT SHOULD BE NOTED THAT

COMMAND

FOR

THE

ENTIRE

ENCOUNTERED

TRA(CK BEFORE

THE

PROCEEDING

THE FORMATTER PROCRAM FORMATS THE PACK ONLY

AND IS NOT DIRECTLY VERIFYING THE SURFACE OF THE PACK.
ERRORS
THAT ARE ENCOUNTERED MAY BE THE RESULT OF BAD AREAS ON THE PA(CK
BUT, AS THE PROGRAM IS NOT DESIGNED TO PERFORM AN EXHAUSTIVE CHECK
OF THE DISK PACK SURFACE, THE PROGRAM CANNOT MAKE THIS CONCLUSION.
IN GENERAL, HOWEVER, THE OPERATOR CAN ASSUME THAT SECTORS WHICH
THE PROGRAM CALLS °'UNACCEPTABLE' INDICATE BAD AREAS OF THE PACK;

UNFORTUNATELY,

SECTORS WHICH

'PASS'

CANNOT BE ASSUMED TO BE GOOD.

DURING THE FORMAT OPERATION, THE PROGRAM FILLS THE DATA FIELD
WITH THE PATTERN SELECTED BY THE OPERATOR.

8.2

POSITIONER VERIFICATION

(QUICK VERIFY)

AFTER THE PROGRAM COMPLETES THE FORMAT OPERATION, THE
POSITIONER IS RETURNED TO THE STARTING CYLINDER AND THE HEADER
FROM SECTOR O ON THE STARTING TRACK IS READ.
THE CYLINDER ADDRESS
FIELD FROM THE HEADER IS COMPARED TO THE REQUESTED CYLINDER; IF

448
449

THE CYLINDER ADDRESSES DO NOT COMPARE, AN ERROR MESSAGE IS TYPED.
THE PROGRAM (HECKS THE CYLINDER ADDRESS FIELD FROM THE HEADER

OF SECTOR O ON THE BEGINNING TRACK OF EACH CYLINDER FORMATTED.
THIS CHECK IS PERFORMED TO CONFIRM THAT THE DISK'S POSITIONER
ADVANCED PROPERLY DURING THE FORMAT QOPERATION.

8.3
«56

HEADER VERIFICATION (VERIFY ONLY)

THE HEADER VERIFICATION OPERATION PERFORMS A READ HEADER AND DATA

\)
L

_,WMA'

'ER

MATRD

v04.00

657
140
o6’
46
“h3
Lh6

VERIF ICATION
CYLINDER AND
MODE) OR 31.
IS PERFORMID

465
466
467
408

469

474
475

476
&77

478
479

'8:39:56

PAGE

1
3-8

TO AN ENTJRE TRACK AT A TIME, THEN COMPARES THE EX/ECIED HEADER
WORDS WITH RECIEVED HEADER WORDS. THE CYLINDER ADDRESS FIELD FROM THt
HEADER IS COMPARED TO THE EXPECTED CYLINDER, IF THE CYLINDER ADDRESSE
DO NOT COMPARE, AN ERROR MESSAGE IS REPORTED. NEXT, THE TRACK/SECTOR
FIELD FROM THE HEADER IS COMPARED TO THE EXPECTED TRACK/SECTOR, IF
THE TRACK/SECTOR ADDRESSES DO NOT COMPARE, AN ERROR IS REPORTED.

tw5e

470
471
472
473

L
&-~APR-87

AND ALL

OF THE HEADERS STARTS FROM SECTOR O ON THE BEGINNING
TRACK, AND CONTINUES UNTIL COMPARING SECTOR 29.(18 BIT
(16 BIT MODE)

ON ENDING CYLINDER AND TRACK.

THIS (HE(K

TC CONFIRM THAT A DISK HAS PREVIQUSLY BEEN FORMATTED

THE HEADERS ARE

IN GOOD CONDITION.

BAD SECTOR FILE DESCRIPTION

SECTORS O THRU 31.,0N CYLINDER 822., LAST TRACK ARE ALWAYS FORMATTED
IN 16 BIT MODE. THEY (ONTAIN THE BAD SECTOR FILE ON THE PACK FOR BOTH
30. SECTOR(18 BIT MODE) AND 32. SECTOR(16 BIT MODE) OPERATIONS.
THE DATA FIELD OF
BELOW:

EACH SECTOR OF

THE BAD SECTOR FILE

IS DESCRIPTED

480

THE FIRST

482

OF MAXIMUM 10 OCTAL DIGITS. THE FIRST WORD OF THE SERIAL NUMBER
CONTAINS THE 5 LEAST SIGNIFICANT OCTAL DIGITS, WHILE THE SECOND WORD
CONTAINS THE 5 MOST SIGNIFJCAMT DIGITS.

481

685

THE PACK.

TWO WORDS IN THE DATA FIELD SPECIFY THE SERIAL NUMBER Of
THE SERIAL NUMBER MUST BE A NON-ZERO NUMBER AND CONSISTS

THE THIRD WORD IS ALWAYS ALL 0'S.
THE FORTH WORD IS USUALLY ALL 0°'S, UNLESS THE PACK IS AN ALIGNMENT
PACK, IN WHICH CASE THE WORD WILL BE 177777.

THE FOLLOWING 252. WORDS DEF INE THE BAD SECTOR ADDRESS INFORMATION.

TWO WORDS ARE USED TO DEFINE A SINGLE BAD SECTOR, THE FIRST WORD CF
THE PAIR, SPECIFIES THE CYLINDER ADDRESS. THE SECOND WORD OF THE PAIR,
SPECIFIES THE TRACK (HIGH BYTE) AND SECTOR _(LOW 8YTE) ADDRESSES. ALL

UNUSED LOCATIONS ARE RECORDED WITH ONES (177777).
THE SECTORS ON THE LAST TRA(CK

FOLLOWS:

(BSF)

ARE DIVIDED INTO FOUR GROUPS AS

(1)

SECTORS 0, 2, 4, 6 AND 8. CONTAIN THE MANUFACTURES
BAD SECTORS FOR 16 BIT MODE.

(2)

SECTORS 1, 3, 5 5, 7 AND 9, CON “IN THE MANUFACTURES (MFG} DEF INED
BAD SECTORS FOR 18 BIT MODE.

(3)

SECTORS 10., 12. THRU 30.
SECTORS FOR 16 BIT MODE.

CONTAIN

THE USER

(USR)

DEFINED

BAD

(4)

SECTOR> 11., 13. THRU 31.
SECTORS FOR 18 BIT MODE.

(ONTAIN

THE USER

(USR)

DEFINED

BAD

THE SECTORS IN EACH GROUP ARE IDENTICAL AND SECTORS
ARE USED AS REFERENCE SECTORS BY THE PROGRAM,

(MFG) DEFINED

O, ', *0O. AND 11,

RMCS/ 3¢ FORMATTER

MACRDO v04.00

1B:39:56 PAGE

4=-APR-B1

3-¢%

N
N
QO
NN
OO0 NP N
OO0 NN

NN AN LA O

ATV

LA NN VIVLAL

AV VA BN

e N NN WO RO RO P RO A N'\-NN_.: [ YISRPN

WA N R

RELY- N

3.1

BAD SECTOR UTILITY
THE

PROGRAM PROVIDES A FEW UTILITY ROUTINES

SECTOR FILE.

TO ACCESS THESE ROUTINES START THE PROGRAM AT 20&.

THE

SELECTID

UPDATE

FUNCTION NUMBER.

"USR' BAD SECTORS.....ovecvecnrnersnacnnacenns 0

PRINT
PRINT

'MFG'
'USR'

INITIALIZE

BAD SECTORS.....ccvvveucecnnceansasansss 1
BAD SECTORS......ecvveeacrevccenns cevens 2

'USR' BAD SECTOR FILE........ccvveveacnnnn 3

PRINT A SECTOR OF THE LAST TRACK...oveersossenrsonons 4
PRINT THIS MESSAGE.....vererirreneranncennccnoonnavesn 5

CONTINUE.

. it iienrennnceennsnunonescoanssoonseona <CR>

ENTER UTILITY FUNCTION {HELP=S):
THE FIRST UTILITY (0) ALLOWS USER DEFINED BAD SECTORS TO BE ENTERED
MANUALLY INTO THE 'USR' BAD SECTOR FILE TABLE. THIS IS ACCOMPL ISHED
BY SPECIFING THE CYLINDER ADDRESS, TRACK ADDRESS AND SECTOR ADDRESS
IN DECIMAL, TO THE FOLLOWING PROMPT.
CYL,TRK,SEC= C,T,S<CR> ;ENTERS BAD CYL,TRK,SFC
CYL,TRK,SEC= <CR>
SEXIT

TO TERMINATE THE BAD SECTOR ADDRESS ENTRY,
IN RESPONSE TO THE ENTRY REQUEST.

OO NN
W —O

THE BAD

BEFORE THE PROGRAM FORMATS THE PACK,THE PROGRAM TYPES THE FOLLOWING
MESSAGE TO ALLOW THE OPERATOR TO ACCESS THE UTTLITIES BY ENTERING

EXAMPLE:

VIV
AT NN
AN
VAW
AN AT

TO HANDLE

TYPE A

IN FILE

'CARRIAGE RETURN'

THE SECOND (1) AND THIRD (2) UTILITIES WILL TYPE THE CONTENTS OF THE
'MFG' AND °'USR' BAD SECTOR
FILES
ON THE CONSOLE IN DECIMAL NUMBER.
THE FORMAT OF THE TYPEOUT WILL BE AS FOLLOWS:
PACK

S/N:

XXXXXX

CONTENTS Of

16 BIT

"MFG OR USR' BAD €“(TOR FILE

(DECIMAL)

CONTENTS OF

18 BIT

'MFG OR USR' BAD SEL OR FILE

(DECIMAL)

c.1,s

C.T.

WHERE

’

'XXXXXX'

IS THE OCTAI

SERIAL NUMBFR OF

IS THE DECIMAL CYLINDER ADDRESS,

AND

'S'

IS DECIMAL SECTOR OF

'T'

THE PACK. WHERE

‘('

IS THE DECIMAL TRACK ADDRESS,

THE BAD SECTOR.

THERE ARE NO ENTRIES

CUR?ENTLY IN THE BAD SECTOR FILES, THE FOLLOWING TYPEOUT wiLL

APPEAR;

PACK S/N:

XXXXXX

CONTENTS OF 16 BIT 'MFG OR USR' BAD SECTOR FILE (DECIMAL)
* NO ENTRIES =

- 7RML B0 RMOS5/3/2 FORMATTER

MACRO v04.00

577

THE FIFTH

581
5382
583
584
585
586

TYPING A '5' WILL ALLOW THE OPERATOR TO DISPLAY THt UTILITY MESSAGE
AGAIN ON THE CONSOLE. TO CONTINUE THE PROGRAM OFERATION, JUST TYPE

A "'CARRIAGE RETURN'' <(CR>.
10.1

10.2

RH/RM DRIVER

THIS DOCUMENT

IS THE USER'S GUIDE

TO INITIALIZE

THE

JSR

RETURN

[o s Yo X0 Yo Yo o

THE RH/RM DRIVER.

DRIVER:

PC,RMINIT

THE DRIVES THAT ARE ONLINE FOR TESTING.
THE 'DRVSTA' TABLE IS
EIGHT BYTES; ONE BYTE PER DRIVE.
THE STATE OF EACH DRIVE WILL
BE INDICATED AS FOLLOWS:

THE DRIVE TYPE

_MNN%
NN
O

FOR

UPON RETURN YOU MUST EXAMINE THE 'DRVSTA'' TABLE TO DETERMINE

(DECIMAL)

OF DATA FROM THE LAST TRACK ON THE LAST CYLINDER (BAD SECTOR FILE).
THIS WILL ALLOW THE OPERATOR TO PHYSICALLY SEE WHAT IS IN THE BAD
SECTOR FILE. THE DATA IS TYPED OUT IN BLOCK FORM [N OCTAL.

NO
LN

°*MFG OR yUSR*® BAD SECTOR FILE

(4) UTILITY WILL ALLOW THE OPERATOR TO LOOK AT A SECTOR

DRVSTA

635

SEQ

THE FOURTH (3) UTILITY WILL RESET ALL BAD SECTOR ENTRIES
IN THE
'USR* BAD SECTGR FILE TO ~1. THE SERIAL NUMBER WILL NOI! BE INITIALIZED
BY THIS UTILITY,

579

* NO ENTRIES «

580

593
594
595
596
567
598
599
600
601
60¢
603
604
605

18:39:56 PAGE 3-10

CONTENTS Of 18 BIT

572
573
574
575
576
577
578

587
588
589
590
591
592

4-APR-81

DRIVE STATE
ONL INE

OFFLINE,

DRIVE

IS NOT AN RM0OS5/3/2, OR

NONEXISTENT DRIVE
UNSAFE

[S DEFINED IN AN 8 BYTE LONG TABLE TAGGED 'DRVTYP',

THE TABLE CONTAINS ONE BYTE FOR EACH DRIVE AND IS
DRIVE NUMSER.
ENTRIES ARE ENCODED AS FOLLOWS:

DRVTYP

CONDITION

0
4

NONEXISTENT DRIVE
RMO3

RMOS

RMO?2

INDEXED BY THE

JRMLES0 RMO5/372 FORMATTER

MAIRT \{«.D0L

4-AaPR-81

gsg

-1

2%9

632
633
63
635

8 2
1B:39:56 PAGE 3-11

THE

0.3

"RMINIT®

NOT AN RM0S5/3/¢
ROUTINE W!LL

DO A READIN PRESET AND WILL

AF TER THE DRIVER HAS BEEM INITIALIZED,
FOLLOWING SEGUENCE.
CALL:

636

S£Q 0014

JSR

637
638

PN-DPB
RE TURN1

639

RO ,RMO3

RE TURN2

640

«DPR

645
646
647
648
649
650
651
652
653
654
655
656
657
658
459
660
661
662
663
664
665
666

PNTDPR:

;ADDRESS Of DPB»
JRETURN IF QUEUE

1S FuLL

[S AN

(DATA PARAMETER BLUCK)

.BYTE
BYTE
BYTE
BYTE
.WORD
.WORD

0
0
O
O
0
0

BYTF

BYTE

.WORD
.WORD

O
O

LWORD

:(0) DRIVE NUMBER
(1) OFFSET VALUE OR FMT16, ECT., AND WC]
:(2) COMMAND
:(3) PSEL AND A17 AND A16
;(4) WORD COUNT (MUST BE NEG.)
:(6) BUFFER ADDRESS OR
:REGISTER TABLE POINTER
:(10) SECTOR ADDRESS OR
;FIRST REG. INDEX
:(11) TRACK ADLRESS OR
;LAST REG. INDEX
;(12) CYLINDER ADDRESS
:(14) ERROR TABLE POINTER
:POINTS TO THE FIRST OF TWENTY
:LOCATIONS OF WHERE THE DRIVER
;1S TO STORE THE RH/RM
REGISTERS ON AN ERROR. IF LEFT
;ZERO REGISTERS ARE NOT SAVED.
:(16) STATUS/ERROR INDICATOP
:BIT15=1->ERROR OCCURRED
:BIT07-1->DONE
;BIT14-B]T09 AND BIT06-R1103

;INDICATE TYPE OF ERROR

10.4

THE DRIVER PROVIDES A SOF TWARE TIMEOUT CAPABILITY.
TO UTILIZE THIS CAPABILITY YOU MUST SUPPLY THE 'RM TIMER'' ROUTINE

g;;

WITH THE ELAPSED TIME

673
674
g;g

MOV

#16.,-(SP)

JSR

PC,RMTMR

677
678
679
680

684

:MAKF THE CALL

:QUEUE OR THERE

ggg
669
670

IT IS CALLED USING THE

JERROR CONDITION

644

FMT16.

JRETURN IF REQUEST IS IN

22;
€43

SET

IN THE FOLLOWING MANNER:

:16 MILLISECONDS BETWEEN
:CLOCK TICKS
:CALL THE TIMER ROUTINE

IT SHOULD BE NOTED THAT YO MUST PROVIDE THE CODE TO DRIVE THE
CLOCK.
AND THE ELAPSED TIME MUST BE IN MILLISECONDS.
THE DRIVER WILL SET THE TIMEOQUT TO 1 SECOND FOR ALL POSITIONING
AND DATA TRANSFER OPERATIONS AND wlLL SET THE TIMOUT TO 30
SECONDS FOR ERROR RECOVERY OPERATIONS.

10.4.7

EXAMPIE - WRITE

1060. WORDS

F_RMATTFR

MACRO v04.00

4-APR-B1

1¢8:
2%:

FMTDPB:

C
2
18:39:56 PAGE 3-172

JSR

FMIDPB

RO,RMD3

<CALL

JWAIT FOR QUEUE IF FULL

g?g

521098416

BM]

ERROR1

.BYTE

BYTE
BYTE
BYTE
.WORD

-WORD

.BYTE
BYTE
.WORD
.WORD
.WORD

JWAIT FOR COMMAND

TO COMPLETE

JERROR OCCURRED

;DRIVE #3

:
;WRITE COMMAND
.
;WORD COUNT

3
5
400
ERRTRS
0

;SECTOR
; TRACK
;CYLINDER
JERROR TABLE
JSTATUS/ERROR INDICATOR

WR TBUF

;BUFFER ADDRESS

DPB SETUP

.WORD
.WORD

S
WRITE

:THIS SETUP ACHIEVED
SEVERYTHING THE

.WORD

WRTBUF

JIN A CLEANER FORMAT

.WORD

BYTE
. WORD
10.5

THE DRIVER

:DPB ADDRESS

0
161
0
=1000.

ALTERNATE

FMTIDPB:

SEQ 0014

-1000.

3,5
400 ,ERRTRS,0

;ABOVE

TABLE DID, BuUT

RH/RM REGISTERS

MNEMONIC

INDEX

RMCS1
RMW(

0
2

RMDA
|M(S2
RMDS
RMER?
RMAS
RMLA
RMDS

6
10
12
14

RMBA

RMMR 1
RMD T
RMSN
RMGF
RMD(
RMHR
RMMR?

RMER?Z
RME(1
RMEL?

16
20
22
24
26

20
32
34

36
40

42
44
L6

JRM_B. WMCS,%

FORMATTER

MACRO v04.00

4-APR-B1

D 2
18:39:56 PAGE 3-13

7‘.:

;az

10.6

{OMMANDS PERFORMED BY THE DRIVER

;zz
767

COMMAND

CODE

COMMANG TYPE

SEEK

105

RELEASE

113

7468
769

RECAL IRATE
DRIVE (LEAR

751

OFr SET

764

PACK

7S¢

752
>33

755

756

115

117
121

ACKNOWLEDGE

SET FORMAT
SELECT DRIVE
WRITE CHECK DATA
WRT CHK HDR & DATA

762

WRITE

P
N

123

757
758
759
760

763

[
N

RETURN TO CENTER
READIN PRESET
GET REGISTER(S)

761

107
111

147

143
145
151
153

DATA

HEADER £ DATA

READ DATA

READ HEADER & DATA

S
S
)
D

161

163

171

[}

264
765
766
767
768

N = HOUSEKEEPING
P - POSITIONING

;;?

S = SPECIAL PROVIDED BY THE DRIVER

769

;;i

D = DATA TRANSFER

10.7

DPB STATUS/ERROR

774

THIS

776
777
778
779
780
781
782

A ONE.

775

173

THIS

INDICATOR WORD

INDICATOR WILL

INFORM THE USER OF

THE RESULTS OF

IS ACCOMPLISHED BY SETTING VARIES BITS OF

THE

THE REQUEST.

INDICATOR TO

BIT NO.
cemmmma

MEANING IF ON A ‘"1
eesccscccccsccce———

ERROR OCCURRED
DONE (BIT07=0):

785

14(1)

USER MADE

A REQUEST FOR A FUNCTION TO BE

788

13(1)

USER MADE

A REQUEST

?SZ
;gg
789

;8(1)

BITS 14-9 SPECIFIES TYPE

DONE (BIT07=1); BITS 6-3 SPECIFIES TYPE

PERFORMED ON AN OFFLINE NR UNSAFE DRIVE
FOR A FUNCTION

TO BE PERFORMED ON A DRIVE

UNLOAD REQUEST

IN QUEUE.

THAT HAS AN

;3%

12(2)

PERSISTENT UNSAFE CONDITION EXIST.

ggg

11(2)

UNCORRECTABLE PARITY ERROR OCCURRED

296

10(2) (&)

797
798

FATAL PARITY ERROR.

A MASSBUS (LEAR WAS

PERFORMED, ALL QUEUES WERE EMPTIED, ANMD
AL DRVA(CT'S SET TO THE IDLE STATE

JHM B, WMCS/3

FORMATTER

MLTRC

,06.00

4-4PR-B1

799

'B:39:56 PAGE

3-14

8¢
80
oy
BC3
804

9(3)(4)

SOF TWARE

TIMEQUT OCTURRED ON TwIS DRIVE

B(&)

SOF TWARE

TIMEQUT OCCURRED ON ANOTwHER DRIVE

DONE

8Cé6
R.7
808
809
R

¢(2)

ERROR OCCURRED DURING AN [/0 OPtRATION

805

5(2)

812
813
a4
815
816

ERROR OCCURRED DURING AN OPERATION

OTHER

THAN

]/0.

4(2)

CORRE(TABLE UNSAFE

()

DRIVE ERROR OCCURRED THAT CAUSED AN
AUTOMATIC "RECALIBRATE"" SEQUENCE

CONDITION OCCURRED

PORT REQUEST TIMEQOUT.
THE
THE DRIVE BUT THE OPPOSITE

817
818
819
B20
821
822
823
824
825
826
827
828
829
830
831
832
833
834
8135
836
837
838

RELEASE

DRIVER REQUESTED
©PORT DID NOT

THE DRIVE WITHIN 15.

NON-EX]STENT DRIVE

REQUESTED.

REQUEST WASN'T
REGISTERS WERE

IN QUEUE.
SAVED)

A REQUEST

REQUEST

FOR A NON-EXISTENT

QUEUE

PUT
NOT

SECONDS.

USER MADE

DRIVE.

(RH/RM

HAS BEEN EMPTIED.

THE

ISSUED A "DRIVE CLEAR'" TO THE DRIVE.

DRIVER

NOTE: ALL RH/RM REGISTERS ARE SAVED
AS PER DPB+14 BEFORE THE 'DRIVE CLEAR''.
(3

REQUEST

QUEUE HAS BEEN EMPTIED.

DRIVER ISSUED A MASSBUS

RH/RM REGISTER®

839

(&)

10.8

FOR

THE

INIT.

THE

ALL

DRIVE WERE

SAVED AS PER DFB+14 BEFORE

THE

INIT.

A 'RECALIBRATE'' SHOULD BE
BEFORE ANY OTHER CGMMAND.

ISSUED

ERROR CALLS MADE BY THE DRIVER.
THERE

ARE

WHEN THIS

A FEW ERRORS

TYPE OF

THAT

(AN OCCUR

ERROR IS DETECTED BY

THAT

CAN NOT BE

INDICATED

THE DRIVER T WILL MAKE

AN ERROR CALL OF THE FORM 'ERROR N'', WHERE 'W'' IS THE ERROR
NUMBER AND THE ERROUR WILL BE AN EMT INSTRUCTION.

DATA AVAILABLE

TYPE

RH70

INTERRUPT

*R4= RM(CS1'S ADDRESS

IN A 0P8,

JRMU K

KM,

R3¢ FORMATTER

MACRO v04.00

4~APR-B1

UNEXPECTED ATTENTION
OCCURRED

R1- DRIVE NUMBEK

R3= ATA BT
*RL= RM(CS1°S ADDRESS
R5= (RMAS)
RMERRS

=RMDS

RMERRS+2=RMER!

RMERRS +4=RMER?
RMERRS +6=RMMR?

MASSBUS PARITY
ERROR (MCPE-1)

RD.ADR= ADDRESS Of
RD.WRD- WORD REAaD

MASSBUS PARITY

ERROR (PAR-1)

WRT.AD= ADDRESS OF REG. WRIT'IN
WRT.WD= WORD WRITTEN

ADDRESS PLUG CHANGE

R1= DRIVE NUMBER

(%l

858
R5Q
860

3-1°

OCCURRED (RHAS ()

85¢

857

18:39:56 PAGE

BIT SET

('OPE’' ERROR)

RD.WRD= WORD READ BAC(K

R3- ATA BIT

*R4= RM(S1'S ADDRESS

R5=

(RMAS)

RMERRS

=RMDS

RMERRS +2=RMER |
RMERRS+4=RMER.
RMERRS+6-RMMR?

THIS

|S THE

REG.

ACTUAL UNIBUS ADDRESS

(176700)

READ

WMAT

MATRT

4=APR=-81

18:39:56 PAGE

I*LAST REVISION O4-APR-81
CZRMLBO RMOS5/3/2 FORMATTER
TITLE
;~COPYRIGHT (() 1981
;*DIGITAL EQUIPMENT

rORPORATION

'COLORADO SPGS.., (0. 80919
~PROGRAM BY MIKE

LEAVITY

-YHIS PROGRAM WAS ASSEMBLED USING

;*PACKAGE

(MAINDEC=-11-DZQA(~-(5),

THE

PDP=11

b G5 Gp G

'8~MAR-81

MAINDEC

SySMA(

‘e

.SBTTL

0000

OPERATIONAL

SWITCH

esemesmeamas

104000

000004

000011
000012
000015
000200
177776
177776
177774
177772

177570

SCOPE

s G5 G5 S

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR
DON'T DISPLAY SYSTEM STATUS AFTER INITIAL
LOOP ON THE CURRENT TRACK
LOOP THE PROGRAM ON THE SELECTED DRIVE

BASIC DEFINITIONS

J*INITIAL ADDRESS OF

STACK
ERROR

HALT ON ERROR

13
10
9
2
1
0

.SBTTL
001100

USE
09000

.
;.
I
i
i
;.

SWITCH SETTINGS

= 1100
= EMT
-

I07

THE STACK POINTER ea» 1100 *w»
;:BASIC DEFINITION OF
;;BASIC DEFINITION OF

ERROR CALL
SCOPE CALL

-MISCELLANEOUS DEF INITIONS

LF
(R
CRLF
gg
o
W=

STKLMT
PIRQ

DSWR
DDISP

=11

;:CODE FOR HOR]ZONTAL TAR

= 1772774
= 177772

::;STACK LIMIT REGISTER
: :PROGRAM INTERRUPT REQUEST REGISTER

= 12
= 15
= 200
= 177776

= 177570
= 177570

;:CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN
;;CODE FOR CARRIAGE RETURN~LINE FEED
:;PROCESSOR STATUS WORD

: s HARDWARE SWITCH REGISTER
: :HARDWARE DISPLAY REGISTER

J*GENERAL PURPOSE REGISTER DEF INITIONS

000000
000001
200002
000003
000004
000005

- %0

:;GENERAL REGISTER

R2
R3

= %2
- %3

;;GENERAL REGISTER
:GENERAL REGISTER

600007
000006
000007

000000

BRO

R4
R5

X4
%5

= %6

= 7

J*PRICRITYLEVEL

;s GENERAL

;;GENERAL REGISTER
:;GENERAL REGISTER

; :GENERAL REGISIER
:;GENERAL

REG]SIER

::STACK PONTER

; ;PROGRAM (OUNTER

DEFINITIONS

)

D:PRICRITY (Evit ©

START

~% 4%
FORMATTER
s
NN
ta

MACRD

,06.0C

4=-aPR-8'

H
2
18:39:56 PAGE 4=!

Q00040
200100
£001«0
000200
000240
200300
000340
100000
740000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
001020
000400
000200
000100
000040
000020
000010
000004
000002
000001
100000

040000
020000
010000
004000
062000
001000
000400

000200

000100
000040
000020
000010
000004
600002
000001
001000

000400
000200
060100

PR?2

PR2
PR&
PRS
PR6

PR7

=
=
=
=
-

JIPRIORITY

(EVEL

J:PRIORITY
J;PRIORITY
;IPRIORITY
:;PRIORITY

LEVEL
_EVEL
LEVEL
LEVEL

100

;:PRIORITY LEVEL

340

::PRIORITY LEVEL

140
200
240
300

;e 'SWITCH REGISTER'' SWITCH DEF INITIONS
Sw1$
- 100000

Swiléd

= 40000

Sw13
Sw12
Swll
SW10
Sw09
SWO8

=
=
=
=

Swl6

- 100

SWQ?7

SWO5S

20000
10000
4000
2000
1000
400

-~ 200

Sw04
=
Sw03
SwQe
=
SWo1
=
SW00
SW9-SW09
SW8-Sw08
SW7=SW07
SWE-SW06
SW5-SW05
SWé SWO4
Sw3-Sw03
Sw2-Sw(?2
SW1-Sw01
Sw0-SW00

40
20
10
4
2
1

;*DATA BIT DEFINITIONS (BITOO TO BIT15)

BIT1S
BIT14
BIT13

BIT1Z2

- 100000
= 40000
= 20000

- 10000

BIT1
- 4000
BITI0
= 2000
BITOY
- 1000
BITO8
- 400
BITO7
- 200
BITO06
- 100
= 40
BITOS
BITO4
= 20
BITO3
=10
BITOZ
= 4
BITOY
=2
-1
BITOO
BIT9-BIT09
&5178-BIT08
BITZ? BITQ7
BITE BRIT06

NN
IS N

(w2l

M50 FORMATTER

ML RO L046.00

FEINITIONS

4-APR-B81

78:39:56 PAGE 4=

BIT5=RB]T10S
81T4=R]T04
8113=B1103
8]12=81102

000040
000020
000010
000004

000002

8iT1=B]101

000004

:+BASIC “CPU'' TRAP VE(TOR ADDRESSES
ERRVEC
= 4
::;TIME OUT AND OTHER ERRORS

000014

TBITVEC = 14

000001

BITO=BIT00

000010

RESVEC

= 10

JsRESERVED AND ILLEGAL INSTRUCTIONS

TRIVEC
BPTVEC
IOTVEC
PWRVEC
EMTVEC
TRAPVEC
TKVEC
TPVEC
PIRQVEC

=
=
=
=
=
=
-

::TRACE TRAP
:;BREAKPOINT TRAP (BPT)
;: INPUT/0UTPUT TRAP (IQT) ««SCOPE=e
::POWER FAIL
::EMULATOR TRAP (EMT) ««ERRORw®
;" 'TRAP'' TRAP
::TTY KEYBOARD VECTOR
:;TTY PRINTER VECTOR
: ;PROGRAM INTERRUPT REQUEST VECTOR

.SBTTL

RH REGISTERS

;CONTRO. AND STATUS REGISTER 1

(RM(CST)

= 100

;INTERRUPT ENABLE

Al7

:HIGH ORDER BUS ADDRESS BIT

000014
000014
000020
000024
000030
000C 34
000040
000064
000240

000100

001000

75
76

’8
7%
80

000200
000400
002000
020000
040000

)

RDY
Al6

PSEL
MCPE
TRE

;SC

16
14
20
24
30
34
60
64
240

SrTeslr

- 200
- 400

1000

= 2000
= 20000
= 40000

;BUS ADDRESS REGISTER

;CONTROL AND STATUS REGISTER 2 (RM(S?2)

92
3
34

%
97
“R
99
Y

T
%
T3
t G
‘

#9)

(RMW()

(BI”TM

:SPECIAL (ONDITION (BIT #15)

;(EACH BIT |S CALLED BY BIT NUMBER)

(BIT #8)

:PORT SELECT (BIT #10)
:MASSBUSS PARITY ERROR (BIT #13»
:TRANSFER ERROR (BIT #14)

- 100000

:WORD COUNT REGISTER

(BIT #6)

;READY (BIT #7)
;HIGH ORDER BUS ADDRESS BIT

(RMBA)

;(EACH BIT IS CALLED BY BIT NUMBER)

000001

000002
000004

000010
000020
000040
000100
000200
000400
601000

002000
004000

010000
020000
040000

us?

PAT

= 20

us2
US4
BAl
CLR
IR
OR
MPE
MXF

PGE
NEM
NED
UPE
w(E

-2
4
= 10
=

40
100
200
400
1000

2000
= 4000
= 10000
- 20000
- 40000

JUNIT SELECT

JUNIT SELECT
JUNIT SELECT
;RUS ADDRESS

(BIT #40)

(BIT #1)
(BIT #2)
INCREMENT

:MASSBUS PARITY TEST

INHIBIT
(RIT #4)

;CLEAR (BIT #5)
:INPUT READY (BIT #6)
:OUTPUT READY (BIT #7)
:MASS BUS PARITY ERROR (B]T #8)
;MISSED TRANSFER ERROR (BIT #9)

:PROGRAM ERROR (BIT #10)
:NON EXISTENT MEMORY (RIT #1171’

:NON EXISTENT DRIVE (BT #12)
;UNIBUS PARITY ERROR (RIT 413,
IWRITE CHECK ERROR (R]T #74)

(RIT &3

VAT TR

MACRD v04.00

4-APR-B81

18:39:56 PAGE 4-3

.....

100000

DLY

;DATA LATE

:DATA BUFFER REGISTER

(BIT M5

(RMDB)

s (EACH BIT IS CALLED BY BIT NUMBER)
SBTTL

RM REGISTERS

FS
DVA

| B
B
T
T O

GO
F1
Fo
F3

000001
000002
000004
000010
000020
000040
004000

;CONTROL AND STATUS 1 REGISTER.
1

;GO BIT

;FUNCTION CODE BIT

2
10
20
40
4000

144
45
K3

147

148
‘469
150

151

152
153
154
185

157
158
*59

160
16,1

W(F
ECH

HCE
HCRC
AQE

1AE
WL
E
DTE
oPl
UNS
DCK

100000

1|
A
B
T I
[I
T

H ot
ot i

4/.;

PAR
FER

(#01)
:VOLUME VALID (BIT #6)
:DRIVE READY (BIT #7)
;DRIVE PRESENT (BIT 48)

1000
2000
4000
10000
20000
40000

;PROGRAMABLE (BIT #9)
JLAST SECTOR TRANSFERRED (BIT #10)
:WRITE LOCK (BIT #11)
;MEDIUM ON-LINE (BIT #12)

:POSITIONING OPERATION IN PROGRESS (RIT #13
:COMPOSITE ERROR (BIT #14)

100000

]

CATTENTION ACTIVE

(RMER1)

(BIT #15)

(#02)
;ILLEGAL

FUNCTION

(BIT

#0)

;ILLEGAL REGISTER (BRIT #1)

20
40
100

:FORMAT ERROR (BIT #4)
CWRITE CLOCK FAIL (BIT #5)
SECC HARD ERROR (BIT #6)

400

:HEADER CRC ERROR

4
10

200
[T I VAT

Ta()

ILF
ILR
RMR

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

FUNCTION CODE BIT #3
;FUNCTION CODE BIT #4
:FUNCTION CODE BIT #S
:DEVICE AVAILABLE (BIT #1")

100
200
400

;ERROR REGISTER #01

139

100000

138

WRL
MOL
PIP
ERR
ATA

13/

LST

' 34
135
136

DPR

PGM

1000
2000
4000
10000

20000

40000
100000

;REGISTER MOD;FICATION REFUSED
:PARITY ERROR (BIT #3)

;HEADER

COMPARE

ERROR

(BT

(BIT #8)

(BIT

#7®

:ADDRESS OVERFLOW ERROR (RIT #9)
:INVALID ADDRESS ERROR (RIT #1C)
WRITE LOCK ERROR (BT #11)
;DRIVE TIMING ERROR (BIT #°?2)

;OPERATION INCOMPLETE

(BIT #13

:DRIVE UNSAFE (BIT #14)
;DATA CHECK ERROR (BIT 1%

JMAINTAINABILITY REGISTER (RMMR1) (#03)
000001

DMD
MCLK
MINX
MST(K
MRD

000002
000004
000019
000020
000040

————

MWk

t ot

133

Vv
DRY

(BIT #C)

:FUNCTION CODE BIT #1

:DRIVE STATUS REGISTER (RMDS1)
000100
900200
000400
001000
002000
€04000
010000
020000
040000

(#00)

;DIAGINOSTIC MODE

(BIT #0)

JMAINTAINABILITY CLOCK (BIT #°)

10
20
40

JMAINTAINABILITY SECTOR CLOCK (R;TM &%
JMAINTAINABILITY READ (B]T #4)
SMAINTAINARILITY WRITE (BT #5°

JMAINTAINABILITY INDEX

(BIT #2,

5,872 FORMATTER

00f20u

MACRO Vv04.00

4-APR-B1

DTSY

= 200

18:39:56 PAGE 4-4

SEQ 0023

JMAINTAINABILITY SYNC DETECTED (BIT #7)

SATTENTION SUMMARY PSEUDO-REGISTER

(RMAS)

900001
000002
000004
000010
000020
000040

ATO
AT1
AT2
AT3
AT4
ATS

=1
=2
-4
- 10
= 20
- 40

sDEVICE
sDEVICE
;DEVICE
;DEVICE
JDEVICE
;DEVICE

000200

AT?7

= 200

JDEVICE 7 (BIT #7)

000100

AT6

= 100

Q
1
2
3
4
5

(#04)

(BIT
(BIT
(BIT
(BIT
(BIT
(BIT

JDEVICE 6 (BIT #6)

;DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA)
s (EACH BIT IS CALLED BY BIT NUMBER)

;DRIVE TYPE REGISTER (RMDT)
000001
000002
000004
000010
000020
000040
00100
000200
000400
004000
020000
040000
100000

DT00
DTO1
D102
D703
DTO4
DT05
DT06
D107
D708
DRQ
MOH
TAP
NBA

;DRIVE TYPE NUMBER BIT 1
;DRIVE TYPE NUMBER BIT 2
;DRIVE TYPE NUMBER BIT 3
;JDRIVE TYPE NUMBER BIT 4
;DRIVE TYPE NUMBER BIT S
;:DRIVE TYPE NUMBER BIT 6
;DRIVE TYPE NUMBER BIT 7
;DRIVE TYPE NUMBER BIT 8
;DRIVE TYPE NUMBER BJT 9
;DRIVE REQUEST REQUIRED (BIT #11)
;MOVING HEAD (BIT #13)
;TAPE DRIVE (BIT #14)
;NOT BLOCK ADDRESSED (BIT #1%)

SCO1
SC02
SCO4
SC10
SC20

= 100
- 200
= 400
1000
- 2000

JSECTOR
JSECTOR
JSECTOR
JSECTOR
;SECTOR

004000

TRK1

- 4000

;TRACK FIELD 1

020000

TRK&

- 20000

040000
100000

TRK10
TRK20

- 10000

R
S et

N By —

IR
T

00 MO

AN LW A B LU N1, V1,V ha V)

00001
002000
004000
010000

OHDIR
HC]
ECI
FMT16

COUNT
COUNT
COUNT
COUNT
COUNT

FIELD
FIELD
FIELD
FIELD
FIELD

O
1
2
3
4

(BIT
(BIT
(BT
(BIT
(BIT

#6)
#47)
#8)
#9)
#10)

(BIT #11)

JTRACK FIELD 2 (BIT #12)
;TRACK FIELD 3 (BIT #13%)

- 40000
100000

;OFFSET REGISTER

(#07)

000100
000200
000400
001000
002000

TRK?Z

(#405)

(#06)

1
=2
-4
- 10
- 20
= 40
- 100
200
- 400
- 46000
- 20000
- 40000
- 100000

;LOOK-AHEAD REGISTER (RMLA)

010000

#Q)
#1)
#2)
#43)
#4)
#5)

sJTRACK FIELD &
JTRACK FIELD S
(RMOF)

(BIT #14)
(BIT #15)

(#11)

-1
- 2000
4000
= 10000

;JOFFSET DIRECTION
JHEADER COMPARE INHIBIT (BIT #10)
JERROR CORRECTION (ODE [NMIB[T ’BIT 4°°
sFORMAT BIT (BIT #i¢2

;DESIRED CYLINDER ADDRESS (RMDC) (#12)
J(EACH BIT IS CALLED BY BIT NUMBER)
:SERIAL NUMBER REGISTER (RMSN)

(#°4)

:L‘M 8_ ""(M,':J/< N

K
P_RMAT

4-APR-81

18:39:56 PAGE 4-5

;RM MAINTENANCE
040000

Sk ]

= 40000

(#15)

<SEEK INCOMPLETE (BIT #14)

JERROR REGISTER #02 (RMER?2)
100000

BSE

= 100000

;BAD SECTOR ERROR (BIT #15)

SECC POSITION REGISTER (RME(C1)

(#16)

;JECC PATTERN REGISTER (RMEC2)

(#17)

; (EACH BIT

IS CALLED BY BIT NUMBER)

;(EACH BIT IS CALLED BY BIT NUMBER.
;SOME

N
~

NN AN AN NN NI PO RO PO AU PO NO R "~

,04.00

s (EACH IS CALLED BY BIT NUMBER)

NgN)NNN'\JNF\,
A AN A AANAN LAWYS L =,
BN
2O QW

WM ORESILTER,

V4 Re

3T HEADER WORD DitF INITIONS

100000

010000

FMT

.SBTTL

RM DRIVER (OMMANDS

SEEK
RECAL
DRVCLR
RELSE
OFFSET
RTC
READIN
ACK
SEARCH
GETREG

- 105
= 107
= 11
= 113
= 115
=117
= 121
= 123
= 131
141

;SEEK
sRECAL IRRATE
;DRIVE CLEAR
;RELEASE
JOFFSET
JRETURN TO CENTER LINE
;JREAD [N PRESET
;PACK ACKNOWLEDGE
s SEARCH
JGET REGISTERS

=
=
-

SWRITE CHECK DATA
JWRITE CHECK HEADER & DATA
JWRITE DATA
:WRITE HEADER & DATA
sREAD DATA
;READ HEADER & DATA

040000

000173

SETFMT
SELDRV
WCKD
WCKHD
WRTDAT
WRTHD
RDDAT
RDHD

176700

ABASE

000254

AVECT1

100000

JMANUFACTURES BAD SECTOR FLAG

10000

FORMAT

= 40000

= 143
= 145

151
153
161
163
171
173

= 176700
256

(BIT # 0)

;USERS BAD SECTOR FLAG (BIT #14)
16 BIT MODE

(BT #12)

JSET FORMAT (8 ECI OR HCD)
;SELECT DRIVE

rIRW
B,

MAZRD ¢v04.0C

6,7

e
K

(VR SV 71,V

18:39:5¢ PAGE S

2
SEQ OO0

TRAP (AT(HER

.-0
;*ALL UNUSED LOCATIONS FROM 4 = 776 (ONTAIN A "', e2 HALT"
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

2520C0

3601 74
000176

4-APR-81

.SBTTL

'LOCAYICN 0 CONTAINS O TO CAT(H IMPROPERLY LOADED VvECTORS

000174

000000
000000

DISPREG:
SWREG:

=17
UORD
“WORD

.SBTTL

STARTING ADDRESS(ES)

:+SOF TWARE DISPLAY REGISTER

¢
0

:sSOF TWARE

SWIT(H REGISTER

000200

000137

007012

JMP

QASTART

J;JUMP TO STARTING ADDRESS OF

000204

000137

007020

JMP

a4STARTI

;CHANGE

.SBTTL
(SR

000046

000052
o~

TRaAk

000210
000046
016352
000052
020000
000210
001100

ACT11

2R0RRRRARRRR2R2

REQUIRED BY ACTI

. 1100
.SBTTL

THE RH/RM ADDRESS

HOOKS

ZEZ2 222222222222

*HOOK

PROGRAM

2220222222

RaR

ssch=.

;SAVE PC

ifigng

;:1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$FOP

"WORD
20000
L-$SVPC

::2)SET LOC.52 TO 20000
:: RESTORE PC

APT PARAMETER BLOCK

s . L2222 2422422222222

2020

ERdRtRiRiR2RddR

iRl

:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

.'"tt"'t'ti'!tfi".l"*'t‘*iii*tfi'k!tfi'!ii!tttttttti"ttitttfittttt'tt

000024
000044

001100
000024
000200
000044
001100
001100

J$X=.
. 24

200

ELTA

;s SAVE CURRENT LOCATION
;:SET POWER FAIL TO POINT

;:FOR APT START UP

TO START OF

;;POINT TO APT INDIRECT ADLDRESS PNTR.

$APTHDR . ;POINT 10 APT HEADER BLOCK
. $X
;;RESET LOCATION COUNTER
PSS

AP SEPISSMBEDOID SO PPN

SETUP APT PARAMETFR BLOCK AS DEFINED IN THE APT-PDP11
s INTERFACE

000000
001210
002734
002734
002734
000032
001114

PROGRAM

$APTHD:

$HIBTS:
$MBADR:

$7STM:
$PASTM:
SUNITM:
TAB.XY-.

SPEC.

.WORD
.WORD

O
SMAIL

WORD

SETEND-SMAIL/2

_WwORD
_WORD
_WORD

1500.
1500.
1500.

DJAGNOSTIC(

;. TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
;:ADDRESS OF APT MAILBOX (BITS 0-15)

;;RUN TIM OF LONGEST TEST
J:RUN TIME IN SECS. OF 1ST PASS ON 1 UNJT (QUICK VERIFY)
;;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UN;T

. ;LENGTH MAILBOX-ETABLE (WORDS)

;CMTAGSTARTING ADDRESS

%L RO

JA¥ B0 RM(O5/ 377 FORMATTER

{MMUN

v04.00

4&-APR-81

18:39:56 PAGE

SEQ 002°

TAGS

SBTTL

COMMON TAGS

2222222232323

2302222232222 2R3l
RRRERERANE RN

T4THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
*USED IN THE PROGRAM.
001114

$CMTAG:

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000

$TSTNM:
$ERFLG:

$ICNT:

$LPADR:
$SLPERR:
$ERTTL:
$SITEMB:
$ERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$8DDAT:
$AUTOB:
$INTAG:

177570
177570
177560
177562
177564
177566
000

002

012

000
000000
000000
207

01205

077

015

012

377

000

377

.=TAB XY

.WORD
_BYTE
.BYTE

O
0
0

.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.RYTE
.BB;S

O
0
O
0
1
O
O
O
O
0
0
O
0
8

.WORD

::START OF

COMMON TAGS

:sCONTAINS THE TEST NUMBER
s CONTAINS ERROR FLAG

;s CONTAINS SUBTEST ITERATION COUNT

;s CONTAINS SCOPE LOOF ADDRESS
s sCONTAINS SCOPE RETURN FOR ERRORS
. sCONTAINS TOTAL ERRORS DETECTED
;:CONTAINS ITEM CONTROL BYTE
.. CONTAINS MAX. ERRORS PER TEST
;s CONTAINS PC OF LAST ERROR INSTRUCTION
;; CONTAINS ADDRESS OF 'GOOD' DATA
;s CONTAINS ADDRESS OF 'BAD' DATA
;s CONTAINS 'GOOD' DATA
;s CONTAINS 'BAD' DATA
; ;RESERVED--NOT TO BE USED
; AUTOMATIC MODE
;s INTERRUPT MODE

INDICATOR
INDICATOR

SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKR:
177562
$TPS:
177564

DSWR
DDISP

$NULL:
$FILLS:

.BYTE
.BYTE

0
2

;2 CONTAINS NULL CHARACTER FOR FILLS
;;CONTAINS # OF FILLER CHARATTERS REQUIRED

$TPFLG: .BYTE
$TMPO:
.WORD
$ESCAPE:0

0
O

;2 'TERMINAL AVAILABLE'' FLAG (BIT<07» 0-YES)
:;USER DEF INED
;;ESCAPE ON ERROR ADDRESS

$QUES:
$CRLF:
$LF:

/7/
<15
<12>

$TPR:

177566

$FILLC:

.BYTE

$BELL:

.ASCIZ

L.ASCII
_ASCII
JASCIZ

;JADDRESS OF SWITCH REGISTER
; sADDRESS OF DISPLAY REGISTER
;3TTY KBD STATUS
;s TTY KBD BUFFER
::TTY PRINTER STATUS REG. ADDRESS

::TTY PRINTER BUFFER REG. ADDRESS

;INSERT FILL CHARS. AFTER A "LINE FEED'’

<207><377><377> ;:CODE FOR BELL

;;QUESTION MARK
:;CARR]IAGE RETURN
JsLINE FEED

""l’l’*****tt*t*tt*tl’ittt**t*t*!fi**t*!’t*l’t*tktk*t**ttttt'ttfitti'ttt

.SBTTL

APT MAILBOX-ETABLE

-,'ttttt*tk*ttttt*tttttttttttt*t**tttttttttfi*ttttttttttkttt-tttawt

]

000090
000000
000000
000000
000000
000000
000000
000000

.EVEN
$MAIL :

$MSGTY:

_WORD

AMSGTY

$DEVCT:
$UNIT:

.WORD
_WORD

ADEVCT
AUNIT

$FATAL:
$TESTN:
$PASS:
$MSGAD:

$MSGLG:

.WORD
_WORD
.WORD
.WORD

.WORD

AFATAL
ATESTIN
APASS
AMSGAD

AMSGLG

;sAPT MAILBOX

;;MESSAGE

TYPE CODE

;;FATAL ERROR NUMBER
;. TEST NUMBER
;;PASS COUNT

;;DEVICE COUNT
5170 UNIT NUMBER

;;MESSAGE ADDRESS

;;MESSAGE LENGTH

JRMOB. RMOS/3/2 FORMATTEN
T ML BOX-ETA3LE

MACRO

v06.00

4&-APR-81

'B:39:5%6 PAGE

SEQ 002/

SETABLE:
SENV:
BYTE
SENVM:
_BYTE
$SWREG: .WORD
SUSWR:
_WORD
$CPUOP: .WORD

AENYV
AENVM
ASWREG
AUSWR
ACPUOP

- %

001240
01241

000
000

SMAMS1:
sMTYP1:

BYTg
.BYTE

AMAMS1
AMTYP1

]

- "

001242

000000

$MADR1: .WORD

AMADR1

001244
001245
001246
001250
001251
001252
00254

000
000
000000
000
000
000000
000
o0u
000000
000254
000000
176700
000000
000000
000000

SMAMS?:
sMTYP2:
$MADRZ2:
sMAMS3:
MTYP3:
$MADR3:

MAMS2
AMTYP2
AMADR?
AMAMS
3

001255

001256

001260

001262
001264
001266
001270
001272
001274

_RYTE
.RYTE
.WORD
_BYTE
.BYTE
_WORD

EMAMS4: . BRYTE
tMTYP4: .BYTE
$MADR4L: WORD

$VECT1:
$VECTZ2:
$8ASE:

$DEVM:
$CDW1:
$CDW2:
SETEND:
CMEXIT

.WORD
.WORD
.WORD

AMTYP3

AMADR3
&
AMAMS
AMTYP4
AMADR&
AVE(CTI
AVE(T?2
ABASE

ADEVM
ACDW1
ALDW?

;APT ELVIRONMENT

s ;ENVIRONMENT BYTE

TABLE

: ;ENVIRONMENT MODE BITS
;s sAPT

SWITCH REGISTER

s USER SWITCHES
::CPU TYPE ,OPTIONS
817S 15=11=CPU TYPE

11/04=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PD0=07,0=10
BIT 10=REAL TIME (CLOCK
gi;
9=FLOATING POINT PROCESSOR
£ MEMORY MANAGEMENT

;:HIGH ADDRESS ,M.S. BYTE
;sMEM. TYPE ,BLKA1

MEM.TYPE BYTE
900 NSEC

(HIGH B8YTE)
CORE=001

300 NSEC BIPOLAR=002
500 NSEC M0S=003

; sHIGH ADDRESS,BLK#1

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOw OF °"‘TYPE'' ABOVE
;:HIGH ADDRESS,M.S. BYTF

M.
TYPE ,BLKA?2
JJME

J;MEM.LAST ADDRESS.BLK#?

:;HIGH ADDRESS,M.S.BRYTE
: ;MEM.
TYFE ,BLKA3

; :MEM,LAST ADDRESS,BLKA3
;;HIGH ADDRESS,M.S.BRYTE
;sMEM.TYPE ,BLK#S

;sMEM.LAST ADDRESS ,BLK#4
;s INTERRUPT VECTOR#1,BUS PRIORITYAT

.. INTERRUPT VECTORAZ2BUS PRIORITY#?

;;BASE ADDRESS OF EQUIPMENT UNDER TEST
:;DEVICE MAP

;:(ONTROLLER DESCRIPTION WORDA1
;;CONTROLLER DESCRIPTION WORD#?2

JRMUBL WM S/ 3/ FORMATTER

LStR ODEFINED

TAGS

MAIRC

J06.00

4-APR-81

'B:39:56 PAGE

$RMADR:
SRMVEC:
$LKCSR:
$.K(SR:
$LPVEC:
$LKS:
SLLVEC:

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

001222

DRIVE

“SUNIT

001316
001320
001322
001324

000000
000000
000000
000000

SOF SW:
:
MODE
SNGSEC:
LSTRK:

.WORD
.WORD
.WORD
-WORD

001326
001330
001332
001334
001336
001340
001342
001344
001346
001350
001352
001354

000000
000000
000000
000000

MAXCYL:

001356

000900
000000

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

001360

000000

001362
001364
301366
001370

000000

001372
001374
01376

000000
000001
000000

001400
001404
001406
001410

000000
000000
000000
000000

001412

000000

.WORD

000000
000000
000000

000000

.WORD

.WORD
.WORD

OF
OF
OF
OF
OF

KW11-P
KW11-P
Kw11-P
KW11-L
KW11-L

;FORMAT= O,

(SR
COUNTER BUFFER
VE(CTOR
CONT.«OL REGISTER
VECTOR

VERIFY HEADERS= 1

;READ MULT]I-SECTOR= O,

READ

;CONTAINS THE LAST TRACK OF
;TEST.

RM02/3= 4.,

JENDING CYLINDER
;STARTING CYLINDER
JENDING TRACK
W\
LAWY
NV

:
MAXTRK
MINTRK:
PATA:
PATR:
RETRY:
BADSEC:
SAVW(:

;RH/RM INTERRUPT VE(TOR

;CONTAINS DRIVE NUMBER SELECTED
; SAME PARAMETER USED IN APT
;CONTENTS ARE FOR SOF TWARE DECISIONS

.WORD

MINCYL:

155555
133333
000000
00000
000000
000000
000000

ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS

000102

172540
172542
104,106
177546
100,102

[olelolelelelblbleloldle N olelelel

000106

;RH/RM UNIBUS ADDRESS

172560
172542
000104
177546
000100

17670C

254

COOO0

000254

RMOS= 18.

SINGLE

WRITE

RETRIES MADE

;CONTAINS LAST BAD SECTOR ON FORMAT
;CONTAINS W( FOR REMAINING SECTORS ON ERROR

;30 OR 32 SECTOR TRACK SIZE (IN WORDS)
:2°'S COMPLEMENT OF 'Ww('

DEVMP:
BSFAVL:
:
UPDBSF
HDRBIT:

. WORD
. WORD
.WORD
. WORD

XXDP:

.wWORD

;POSITIONING ERROR DURING FORMAT

INDICATOR

;MAXIMUM SECTOR ADDRESS,

18.

;30 OR 32 SECTOR MODE INDICATOR
. 0= 30. SECTOR MODE (18 BIT MODE)
;=1- 32, SECTOR MODE (16 BIT MODE)

;31. FOR 16 BIT MODE

29.

FOR

BLkW

256.

BIT MODE

sADDRESS OF CURRENT CYLINDER

;ADDRESS OF

CURRENT

TRACK

;DRIVE NUMBER OF 'DRIVER' ERROR MESSAGES
JATTENTION REGISTER [MAGE FOR 'DRIVER'
;ERROR MESSAGES
:ADDRESS OF '“C' RETURN
; ' CHANGE RH/RM ADDRESS' FLAG 1
;WRAP AROUND

FLAG,FORMAT

s CYUINDER NUMBER

FROM HIGH

TO LOW

sDEVICE MAP FOR APT, DEVMP+2 IS STORAGE FOR DEVICE MAP
;1F > 0, BAD SECTOR FILE AVAILABLE FROM PACK
IF > 0, UPDATE BAD SECTOR FILE AT 'EOP’
;HEADER BIT INDICATOR FOR FIRST HEADER WORD;
;BIT1S 1 AND BIT14=1, GOOD SECTOR
:BIT15-0 AND BIT14 1, MFG BAD SECTOR
;BIT15=1 AND BIT14=0, USR BAD SECTOR
;THE LOWw BYTE (ONTAINS THE DRIVE NUMBER FROM WHICH
:THE

PROGRAM WAS LOADED.

JTHIS TABLE WILL CONTAIN A (OPY OF
MFG16:

;1ST WORD OF PATTERN (W(P)
;ZND WORD OF PATTERN (WCP)

THE HIGH BYTE

."XXDP' DEVICE CODE THE RM0S5/3/2.

culub

SECTOR-

THE UNIT UNDER

:STARTING TRACK
:MAINTAINS # OF

O—=0O

17670C

QOO0

SEENY
nNo

i
el
]
D o

—

—t

WNAN

2388833

NOON
N

USER DEF INED TAGS

.SBTIL

THE 16 BIT 'MFG" FILE

;MFG 16 BIT BAD SECTOR TABLE

CONTAINS

THE

Jam B0 RM(S/3/2 SORMATTER

St& OFF INED

TAGS

002616

(02416

ML RC V04,00

&4L-APR-B

127777

.WORD
.WORD

1772777

'B:39:5¢ PAGE

3
!

1
=

JTHIS TARLE wilLi CONTAIN A (OPY OF
002420
0034620
003422

127777
177777

MFGI18:

BRLKW

.WCRD
.WORD

256,

JMFG

-1
-1

THE

18 BIT BAD

18 BIT

°*MFG' FlLE

SECTOR

TARLE

JTHIS TABLE WILL CONTAIN THE 16 BIT 'USR' FILE IF PACK IS BEING FORMATTED
JIN 16 BIT MODE; ELSE THIS TABLE WILL CONTAIN THE 18 BIT 'USR® FILE [F THE
SPACK IS BEING FORMATTED IN 18 BIT MODE
003426
004426
004426

1772777

JUSTAB:

1727777

.BLKW

.WORD
.WORD

256.

;USER BAD SECTOR TABLE

-1
-1

;THIS TABLE WILL SAVE

THE

18 BIT

'USR'

FILE

IF PACK

IS BEING FORMATTED

JIN 16 BiT MODE,; ELSE THIS TABLE WILL SAVE THE 16 BIT
;PACK ]S BEING FORMATTED IN 18 BIT MODE
004430

005430
005432

1727777

USSAV:

177777

.BLKW
.WORD
.WORD

256.
-1
-1

;CONTAINS A LIST OF

005434
005534
005536

1277727

000000

SECCU:

.Bbsg

LWORD

;USER BAD SECTOR SAVED TABLE

CURRENT BAD SECTORS ON THE

3?.

;MAXIMUM OF
;FLAG,

s THE

205541

J05542
005543
005544
005546
005550
05551
005552
005554
005556

000
000
000
000
000000
000000
000
000
000000

FMIDPB:

005560
000000

.BYTE

BYTE
BYTE
BY'E
.WORD
.WORD
BYTE
BYTE
.WORD
.WORD
.WORD

NEXT=-1,ALL

LURRENT

0
0
0
O
0O
0
0
0
RM_REG
0

;DRIVE

TRA(CK BEING FORMATTED

32. BAD SECTORS

;DATA/PARAMETER BLOCK - USED FOR ALL

005540

TRA(CK ARE

DRIVE

GOOD SPOT ON
FORMATTED

OPERATION

NUMBER

;OFFSET VALUE OR FMT16, ECI, AND H(]
: COMMAND
;PSEL AND A17 AND Al6
;WORD COUNT (NEG)
;BUFFER ADDRESS
;SECTOR ADDRESS
; TRACK ADDRESS
;CYLINDER ADDRESS
ERROR TABLE POINTER
;STATUS-ERROR INDICATOR

;BIT 15 - 1: ERROR OCCURRED
:BIT 07 = 1: DONE

;BIT 14-10 AND BIT 06~03
;INDICATE TYPE OF ERROR

;RH/RM REGISTERS

005560
005562
005564
205566
605570

RM.REG:

000000
000000

.WORD

.WORD
.WORD
.WORD
.WORD

STORED HERE

O
0
O
O

°"USR® FILE IF

AFTER AN OPERATION

JRMCST

JRMW(
;RMBA
; RMDA
JRM{S?

THE

vem Ll

JaM B
8TM 5737/ FORMAT
T &
DR LEr INED
TAGS

L=APR=B"

.WORD
.WwoRD
WORD

205572
v05574
105576
205600
105602
005604
20560¢
005610
J05612
205614
005616

.WORD
. WORD

0
0

.wWORD

000
000
000000
000000

005046

000000

FMTWRT:

7-:

;. RMDS
RMER?
;RMAS
IRMLA

; RMDB

C
0

:RMMR1
;RMDTY
; RMSN
; RMOF

. wORD
. WORD
.WORD
. WORD
.WORD

0
0
0
0
0

;RMD(
:RMERZ
:RMMR?2
JRMECT
JRMEC2

.gV;E

JSPECIAL

0
0
-2

JONLY TWO WORDS FOR HEADER

. WORD
.WGRD

005630
05631
005632
£05633
005634
005636
005640
005641
005642
005644

0
0
O

LWORD

.WORD

005620
205622
005624
005626

'B:3v:56 PAGE

;RMCA

DPR

70O WRITE

HEADER OF

.BY

BYTE
BYTE
. WCRD

.WORD

RBUF

.WJRD

BYTE
BYTE
. WORD
. WORD

0
0
0
0

:BUFFER ADDRESS

;SECTOR
: TRACK
;CYLINDER ADDRESS
JERROR TABLE
;DONT' ‘SAVE ANYTHING
;STATUS WORD

;PARAMETER LIMIT POINTER TABLE

005650
005656
005664
005672

005754
005764
005774
006004

205702
005704

005710
005714

006014
001466
000004
000037

005720
005722
005726
005732

006014
001466
000004
000035

005736
005740

006032

005750

047300

005744

001466
000004

001466
001466
000004
000004

001330
001326
001334
001332

TABLE:

PAR1,822. ,MINCYL
PARZ,822. ,MAX(YL
PAR3,4. ,MINTRK
PARG 4. .MAXTRK
0

TABLE?Z: PARS
822.,DS.{vL

001362
001364
007344

;ASCIZ MESSAGE

FOR

INPUT

;AS(i7 MESSAGE

FOR

INPUT

JASCI7 MESSAGE

FOR

INPUT

4., DS.TRK

31..,BADSEC

TA3LE3: PARS
822..D5.CvL

001362
001364
001344

4, ,DS.TRK

29. ,BADSEC

TABLESG:

001362
001364
001344

PAR6

822..05.(vL

4,DS.TRK

20160. ,BADSEC

OO0

=N =

wh
-t

b
b
o
e

e
e
P

[T
Y w 2o

(U RV, IV, RV, |

ed
p

006004

005774

005754
005764

sASCI] MESSAGES FOR ADDRESS PARAME TERS
PAR]1:

PAR?:

PARZ:

PARG:

LASCIZ
LASCIZ
LASCIZ
LASCIZ

/MINCYL
/MAXCYL
/MINTRK
/MAXTRK

/
/
/
/

BAD

SE(TOR

CIRML B0 AMOS/3/2 FORMATTER
JSER DEF INED TAGS

103

006052

0214174

PARS:

LASCIZ
.ASCIZ

/CYL,TRK ,BYTE=

. WORD

FUNCT2,FUNCT3
FUNCTS FUNCT6,FUNCT?

PARG:

.EVEN
J21624

&~APR-81

108

006014
006032

MAIRO v04.00

121676

TARCAL
:

18:39:56 PAGE

7-3

/CYL,TRK,SEC=
/

BUFP*<5

;ADDRESS
;ADDRESS

;ADDRESS

;ADDRESS
;ADDRESS
;ADDRESS

;ADDRESS

;ADDRESS
;ADDRESS
;ADDRESS
s ADDRESS
;ADDRESS
;ADDRESS

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

A= O 00 NON NN
O
ek ek wd
b

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

OF
OF
or
OF
OF
OF
oF
Of
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF

OONONE
WA
O
& ¢ v ¢ s s o s

;ADDRESS
JADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
sADDRESS

-t d e

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

= O

s
w

~2 O D00 NN NS

e
b

;ADDRESS OF
;ADDRESS OF

;REMAINING WORD

JREMAINING WORD

;REMAINING WORD

JREMAINING WwORD

COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
“OUNT

AFTER

AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AF TEQ
AF TER
AFTER

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

SECTOR

SECTOR
SECTOR
SECTOR
SECTOR

SECTOR

SECTOR
“ETTOR

— O

JREMAINING WORD
JREMAINING WORD
JREMAINING WORD
JREMAINING WORD
;REMAINING WORD
JREMAINING WORD
SJREMAINING WORD
JREMAINING WORD
;REMAINING WORD

.WORD
.WORD
.WwORD
.WORD
.WORD
. WORD
. WORD
.WORD
.WORD
.WORD
. WORD
.WORD

SECTOR

;ADDRESS OF SECTOR
;ADDRESS Of SECTOR

TABL 3

25
2 ] . +<258. *1.>
S
2
. +<258. «2.>
2 5 . +<258, *3.>
2 ) . +<258.
2 5 .+<258.
2 5 .+<258.
2 5 . +<258.
2 5 . +<258.
>
25
5
.>
+<258,
>
2 58.+<258.
. >
258.+<258,
.

_WORD

w TRL:

Qo G0 G0 OB 0o GO GO 00 OO 00 O

006170
006172
006174
006176
006200
006202
006204
006206
006210
206212
106214

000402
001004
C01406
002010
002412
003014
003416
004020
006422
005024
005425
006030
006432

'8.

BUFP+<S
BUFP+<5
BUFP+<516.
BUFP+<516.
BUFP+<516,

JREMAINING WORD COUNT
006164
(6166

.*7.

BUFP+<5
BUFP+<5S
BUF P+<5

b —d —d ~b O

BUF P+<5

.*h,
.*5,
.*6.

;ADDRESS OF SECTOR

;ADDRESS OF

a2 = OO NP NN
-a
[ . [J
3
.
]
*

100404
101470
102414
103420
10464624
105430

BUFP+<S

;ADDRESS Of SECTOR

006150
006152
006154
006156
006160
006162

.*3.

NS00 NNV

006146

075370
076374
077400

006140
006142
006144

.*1,

006134
006136

8u'P
BUFP+<5i

006126
006130
006132

. WORD
. WORD
. WORD
.WORD
.WORD
.wWORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
. WORD
. WORD
. WORD
.WCRD
.WORD
. WORD
.WORD
. WORD
.WORD
. WORD
.WORD
. WORD
.WORD
.wORD
. WORD
.WORD
. WORD

NI NGAL AU PO NUINDI NN ~b b b —d b

006126

,WORD

006076
006076
006100
006102
00€ 104
006106
Co6110
006112
206114
300116
006120
006122

ADRTBL:

OO‘OOOOOOOOOOOOOOOOOOOOOOO*OOO

006072

046234
0467240
050244
051250
052254
053260
054264
055270
056274
057300
0603C4
061310
062314
063320
064324
065330
066334
067340
070344
071350
072354
073360
074364

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

Q06064
006066
006070

T
VVVVVVVVYV
YVVVVVVVVVVVVVVVVVYVVYVYV

;SECTOR BUFFER ADDRESS TABLE

006324

006326
006330
006332
006334
06336
006340
006342
006344
006346
006350
006352
006354
006356
006360
006362

006364
006366

206370

006372

001166
002354
003542
004730
06116
007304
010472
011660
013046
014234
015422

BYTE16:

. WORD
-WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.wWORD
.WORD
.WORD
.wORD
. WORD
. WORD
. WORD
. WORD
. WORD
.WORD

016610
017776

021164
022352
023540
024726
026114
027302
030470
031656
033044
034232
035420
036606
037774
041162
042350
043536
044724
046112
047300

001240
002500
003740
0G5200

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

CAMEEH

-WORD
.WORD
. WORD
. WORD

672.+4<672.¢1
>

672.4<672.22.>

672.4<672.%3.>

COUNT
COUNT
COUNT
COUNT

L]
.
L}
.
-

COUNT
COUNT
COUNT

WORD
WORD
WORD
WORD
;REMAINING WORD
JREMAINING WORD
JREMAINING WORD

;REMAINING
JREMAINING
JREMAINING
JREMAINING

JREMAINING WORD COUNT
JREMAINING WORD COUNT
sREMAINING WORD COUNT

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AF TER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR

JREMAINING wORD COUNT Af TER
AFTER
AFTER
AFTER
AFTER
sREMAINING WORD COUNT AF TER
JREMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER

SREMAINING WORD COUNT
JREMAINING WwORD COUNT
JREMAINING WORD COUNT
JREMAINING WORD COUNT

WIANNURNURUPORORUFORONI
N —t b b =t
s
NC AN
_‘oom\‘o‘h[\ AN — OOV

VVVVVVVVVVVVVVVVYVYVYV

.+<630.*1.
.4<630.
2,
.+<630.+3,
.+<630. %4,
.+<630.+5.
.+<630.%6.
.+<630.+7.
.+<630.+8.
. +<630.+9,
.+<630.+10.
.+<630.+11.
.+<630.+12.
.+<630,+13.
630.+<630.*14,
.*+<630.+15,
L 4<630.716.
.+<630.+17.
.+<630.+18,
.4<630.+19,
.+<630.«20.
.+<630.+21.
+<630.+22.
+<630.%23.
. +<630,.%24.
+<630.#25.
L+<630.+26.
. 4<630,+27.
.+<630.+28.
L +<630,229,
.+<630.+30.
630.+<63C.#31,

VVVVVVYVVYV

012452
013054
013456
014060
014462
015064
015466
016070
016472
017074
Q17476
020100

011446
012050

L¢<258.+1
L*<258 .«
.*+<258.¢1
.+<258.¢1
¢
.+<258.
.+<258.
1
+<258,.+19,
.+<258.+20.
.+<258. 21,
.+<258.%22,
.+<258.+23,
L+<258. %24,
.+<258. %25,
.+<258.+26.
. +<258.+27.
L+<258, 228,
L.+<258.+29,
. +<258.+30.
. +<258.+31,

VVVVVVYVVVYVVVVVVVVYVYYVVVVYV

006264
006266
206270
006272
006274
006276
006300
006302
006304
006306
006310
C06312
006314
006316
006320
006322

.WORD
. WORD
. wORD
. WORD
.WORD
. WORD
.WORD
. WCRD
.WORD
.WORD
. WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

-4

206252
006254
206256
06260
006262

007034
007436
010040
010442
011044

G
T8:39:5¢ PAGE

206240
006242
006244
206246
006250

4-aPR-81

006234
006236

106,00

RN N NN AR ALY N
OO~
U PONONLNNLRNIRO
N WA
NI WAL
NN A WNWIWNWNWNWWNWNWNW
W AN
©0
00
0o
00
0o
00
03
GO GO On GO GO Co OO Go 0 G0
jelelelololololololalalelolo R 1.]

006216
006220
206222
006224
006226
206230
006232

Ma
5

o [o oY e Yo Yo No Yo N0 Yo T o Yo No Fo o Yo 8
W NN AN A N N N N N A AN N NN
(=4 OOOOOOOOOOOOOOO

B LMOS/3/2 EORMATTER
SRV
“h UEFINED TAG>

tx JEFINED

TAGS

006374

006376

006414
006416
006420

006422
006424
006426
006430

006432
006434
006436
006440
006442
006444
006446
006450
006452
006454
N0E456

L L6, lL

006440
007700
011140
012400
013640
015100
016340
017600
021240
022300
023540
025000
026240

-WORD
-WORD
. WORD
.WORD
.WORD
.wWORD
. WORD
.WORD
.WCRD
.WORD
.wWORD
.WORD
-WORD
.WORD

027500
030740
032200
033440
034700
036140
037400
040640
042100
043340
044600
046040

047300

«=APR-8'

-WORD
.wWORD
.WCRD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD

.EVEN

.WORD
.WORD
.WORD

'8:39:56 PAGE

3
7-*

672.4<672.%46
>
672.4<672.+5.>
672.4<672.%6,.>
672.+4<672.7.>
672.+<672.+8.>
672.4<672.49,>
672. +<672.+10.
&72. +<672.¢11.
672. +<672.¢12,
672. +<672.%13,
672. +<672.*14,
672. +<672.+15.
672. +<672.%16.
672. +<672.%"7.
672. +<672.+18,
672. +<672.+19.
672. +<672.+20.
672. +<672.%21,
672. +<672.%22.
£72. +<672.+23.
672. +<672.+24,
672. +<672.%25.
672. +<672.%26.
672. +<672.%27.
672. +<672.%28.
672. +<672.%29.

VVVVVVVVVYVVVYVVYVVVVVYV

Jam 80 RMCS/3/72 FORMATTER

SEQ 0033

“IRMLBO RMOS/3/2 FOPMATTER

ERROR POINTER

TABLE

MALRD v04.00

&-aPR-81

ERROR POINTER TABLf

LSBT
:+THIS

1
"8:39:5¢ PALE

TABLE

CONTAINS

THE

INFORMATION fOR FAT~ ERROR

THAT

(AN Q((UR.

:*THE INFORMATICN 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION $SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTININT,

;NOTEY:
;eNOTE2:

If SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP(),
EACH JTEM [N THE TABLE C(ONTAINS & POINTERS EXPLAINED AS FOLLOWS:

;:POINTS TO THE ERROR MESSAGE
. sPOINTS TO THE DATA HEADER
:sPOINTS TO THE DATA

;;POINTS

EM1
DH1
D11
DF1

;RH CONTROLLER INTERRUPT OCCURRED (RMAS=(Q)

EM2
DH2

JUNEXPECTED ATTENTION OCCURRED

;ERROR 2
006470
006472
006474
006476

042520
044002
045306
045646

D12

DF?

JERROR 3
006500
006502
006504
006506

24
25 006510

26 006512
27 006514
28 006516

04255€
044054
045322
045652

EmM3

:MASSHUS PARITY ERROR

(MCPE-1)

EMS
DHé

:MALSRUS PARITY ERRCR

(PAR

DOO0

W N~

POPURYT
Y
et et = b s s 3~

DATA FORMAT

042446
043734
045270
045642

O LN

wWw

;FRROR

006464
006466

THE

$ERRTR:

006460

006460
006462

JUNUSED

DH3

D73
DF
JERROR &

42614
244125
045336
045656

D14
DF4

;ERROR S

32 006520
33 006522
34 006524
35 006526

000000
000000
000000
000000

JERROR 6
39 006530
4C 006532

o7 906534
42 006536

042705

0464210

045354
045662

DHE
D16
DF6

;RH CONTROLLER DiDN'T RESPOND TG ADDRESSING

JRM B

RMOS/38/2 FORMATTER

PRRUN PUINTER

TABLE

&3
Lg

MACRD v04.00

4-APR-81

J
3
18:39:56 PAGE 8-

SEQ 003"

;ERROR 7

46 006540
47 006542
48 006544
gg 00654¢

042760
045015
045356
(045752

54 006552
55 006554
gg 006556

(43034

044223
045366
045666

006560
006562
C06564
006566

043052
(044223
045366
045666

pH10
DI10
DF10

;DRIVE OFFLINE

EM11
DH10
D110
DF10

;PERSISTENT DRIVE UNSAFE ERROR

(ERROR 12

67 006570
68 006572
69 006574
;? 00657¢

043110
044223
045366
045666

EM12
DH10
DT10
DF10

;UNCORRE(TABLE MASSBUS PARITY ERROR

:ERROR 13

74 006600
7S 006602
76 0066046

;g 006606

043153
064223
045366

(0465666

EM13
DH10
D110

:SOF TWARE

TIMEOQUT

DF10

:ERROR 14

gg
81
82
83
gg

EMI10

ERROR 11

sTRACK/SECTOR FIELD IN HEADER IS NOT (ORKF‘1

:ERROR 10

53 006550

60
61
62
23

EM?
DH23
p1?7
DF 2S

006610
006612
006614
006616

043174
064223
045366
045666

gg
88 006620
89 006622
90 006624
g; 006626

EM14
DH10
DT1C
DF10

JERROR 15
04217
(44223
(045366
045666

EM1S
DH1Q
D110
DF10

:CONTROLLER/DRIVE ERROR DURING WRITE

:ERROR 16

95 006630
9% 006632

043263
044223

EM16
DH10

98 006636

045566

DF10

Q7 00663

:DRIVE UNSAFE ERROR

045366

D710

:CONTROLL ER/DRIVE ERROR DURING WRITE

(HE(K

JRMLBY RMC5/3/7 FORMAT
ER

FRROR POINTER TAR
¢t

180

101

102 006640

103 006642
106 N06644

;82 006646

33% 006656

4-APR-B1

(043335

EmM17

045702

DF17

044452
045440

DH17
D117

(43413
044521
045452

045706

EM20
DH20
DT20

EM21
DH10

3}8 L06666

045666

DF10

045366

}S}

043522

125 006674

045366

(44223

045666

043572
045015
045534

045752

;gg
137 006710

138 006712
139 006714
129 006716

DT10

EM2?2

DK10

;"HCE® OR "HCRC' ERROR VERIFYING HEADER,

DT10

DF10

EM23
DH23
D723

:CYLINDER FIELD IN HEADER IS NOT CORRECT

DF 25

043642

045054
(45544
045732

EM24

DH24
DT2%
DF 24

;WRITE

CHECK ERROR

:ERROR 25

144 006720

043664

EM25

46 006726

045632

D125

147 006726

ERROR VERIFYING HEADERS

:ERROR 24

;2%
145 006722

; CONTROLLER/DRIVE

:ERROR 23

}Sg

;;z 006706

CHECK

:ERROR 22

123 006670

130 006700
131 006702
132 006704

:DATA ERROR DURING WRITE

:ERROR 21
043451
044223

}Sg 006676

sRETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTARLE

DF 20

116 006660
117 006662

126 006672

:ERROR 20

;}g

118 006664

K 3
°8:39:56 PAGE B8-¢

;ERROR 17

18;
109 006650
110 006652
111 006654

MAIRD v06.00

045227
045752

DHZ5
DF25

: ILLEGAL BAD SECTOR

SEQ 0036

L M5/ 30 FURMAT TR
JEM
R PUINTER TABF
FRR

M4ATHO v06.00

4-~APR-81

STHIS ROUTINE

3 006730
006732
5 006734
6 C06736
4

007002
007002
007004
007006

007010

106401

000417

BADTMO:

13658:

010046
104402

(SP)+, (SP)+
658
648

‘RESTORE STACK POINTER
T:TYPE ASCIZ STRING

RO,~(SP)

LASCIZ
Y

000411

005G37
000406

001270

007020
007026

012737
012737

000001
177777

001374
001270

TIMEOUTS
;SAVE PC

NOP

007012
007016

HANDLES UNEXPECTED

£0 0037

(SP) RO

IST

000240

-(R0O)

WHERE

JADJUST P(C =2

THE

TIME

TIGET OVER THE ASCIZ

<CRLF>/UNEXPECTED'BUS

TIMEOUT,

PC=/

SSETUP FOR TYPING OUT PC
;PUT

'HALT(0)'

INSTRUCTION HERE

*TO STOP ON UNEXPECTED

1ST1

QUT OC(URED

'BRANCH TO START

TIMEQUT.

YOU WISH

_SBITL

START OF PROGRAM

START:

(LR
BR

$CDWT
TSTI

;DISABLE USE OF

START1:

MOV
MOV

#1.CHGADR
#-1,8CDW1

;ENABLE CHANGE OF 'RH/RM BUS ADDRESS'
"ENABLE USE OF UTILITY ROUTINES

UTILITY ROUTINES

:.'"tfi"*."‘Q"l"*“""t"'fil’"fi'f"'"‘*"‘*“fi""'.'fi""".'.

007034
007036
007044
007050
007052

£0024C

012737

005227
001375
000005

000001
000000

001214

TST1:

007152
007156
007164
007172
007200
007206

RESET

ONSNNNY ~

~
~

eezete

001154
001100

000004
007212

177570
177570

127777

#1.$TESTN

#0
~4

INITIALIZE

::SET

*CLEAR

THE

TEST NUMBER

IN APT MAIL BOX

“TTY LOOP, WAIT FOR
*OF WORD
THE

INCREMENT

WORLD

COMMON TAGS

;;CLEAR THE COMMON TAGS ($CMTAG) AREA
MoV
H#S$CMTAG,R6
;;FIRST LOCATION TO BE CLEARED

001114

023330
000340
030046
000340
030132
000340
001176
000001

207210

OO0

007074
007102
007110
07116
007124
007132
007140
007144

hl=ieleldlelele)

012706
005026
022706
001374
012706

=8 883332

007054
007060
007062
007066
007070

NOP

MOV

INC
BNE

.SBTTL

= OO0 NN

PONY
= —2 =

MOV

(MP
TYPE

006744

i a

AN =N

006742

011600
005740
022626

L
3
18:39:56 PAGE 9

000030
000032
000034
000036
000024
000026

001131

CLR
(R6) +
;;CLEAR MEMORY LOCATION
{mp
ASWR,R6
. -DONE?
BNE
.=6
;;LOOP BACK IF NO
MOV
#STACK,SP
;:SETUP THE STACK POINTER
;JoINITIALIZE A FEW VECTORS
MOV
H#SERROR ,Q¥EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
MOV
#340 ,NEMTVEC+2 ;. LEVEL 7
MoV
#S$TRAP ,a#TRAPVEC ;;TRAP_VECTOR FOR TRAP (ALLS
MCY
#340, X TRAPVEC+2;LEVEL 7
MOV
#3PWRDN,A#PWRVEC ; ;POWER FAILURE VECTOR
MOV
#340,QNPWRVEC+2 ;. LEVEL 7

(LR

$ESCAPE

MOvR

#1,SERMAX

MOV
MOV
MoV
MOV

QHERRVE(C,~(SP)
#64S ,QFERRVEC
#DSWR, SWR
#DDISP,DISPLAY

65%

;:CLEAR THE ESCAPE ON ERROR ADDRESS
;;ALLOW ONE

ERROR PER

TEST

c:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
JoEQUAL TO A "*~1"', SETUP FOR A SOFTWARE SWITCH REGISTER.

000004
001154
001156
171746

CMP
BNE

648

#-1,aSWR
66%

#4€5%, (SP)

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
;;SETUP FOR A HARDWARE SW]I(H REGISTER
;:AND A HARDWARE DISPLAY REGISTER

;. TRY TO REFERENCE HARDWARE SWR
;;BRANCH [F NO TIMEQUT TRAP OCCURRED

;JAND

THE HARDWARE SWR [S NOT

;;BRANCH 1F

NC TIMEQUT

;:SET UP FOR TRAP RETURN

-1

JRV BT RMO5/372 FORMATTER
INDTIALLZE THE (OMMON TALS

007216
067220
207226
007234

r4
01273%7
012737
012637

000004

007240
007244
007252
007254
007262

005037

132737
001 403
012 737

001216

007262
007270

012737
012737

00176

000174

MACRD

(6,00

4-APR-BT

001154
001156

X ¥

MOV
MOV
MOV

000200

001231

001232

001154

006730
000300

000004
000006

€63 :

007276
007302
007304
07310

104401

000420

007352
007356
007360
007366
007370
007376
007400
007402
007404
007412

32
33
34
35
36 007412
37 007416
38 007424
39 007426
40 07434
41 007442
42 007444
43 007450
44 007454
45 007456
007462

007510

46 007510

74 007512
48 007516
49 007520

50 00752°
51 007522
50 007526

123727

001406
023727
001005

104406
000403
112737

000042
001230

000601

001154

000176

000001

001150

¢73

JJYES,USE NON-APT SWIT(H

MOV
MOV

#BADTMO,ERRVEC

#SSWREG, SWR

JiNO,USE

#PRG,ERRVEC+2

TYPE PROGRAM NAME

THE

NAME

105037

005737
001425
104401

000412
005046
113716
104403
001
000
104401

000517

001412
000016

000041

000040
000007

001412
001412

001412
000042

_SBTTL

GET VALUE FOR SOF TWARE SWITCH REGISTER

70%:
71%:

TST

68%
,69%
68%

PASS
TIME?

;;BRANCH IF NO
;:TYPE ASCIZ STRING
:;GET OVER THE ASCIZ

ané?
70%
SENV,#1

;JARE WE RUNNING UNDER XXDP/A(T?
; ;BRANCH [F YES
;cARE WE RUNNING UNDER APT?

:;BRANCH [F NO

70%
SWR,#SWREG

:;BRANCH IF YES
;:SOF TWARE SWITCH REG SELECTED?

:.GET SOFT-SWR SETTINGS

718

#1,8AUT08B

;.SET AUTO-MODE

INDICATOR

PROGRAM (ONTROL MODE:
XXDP CHAIN OR DUMP

CLR
CMPB
BNE

XXDP
216,441
4%

;CLEAR *XXDP' LOAD DEVICE STORAGE
;LOADED FROM AN RMQS5/3/2 ?
JBR IF NOT

{MPR
BHIS
CLRR

47 ,XXDP

JIS

MOV

2%:

[F FIRST
;sFIRST

TIMECUT

<CRLF>aCZRMLBO - RM05/3/2 FORMATTERQ<({RLF>

BNE
(MPB
BEQ
{MP
B8NE
GTSWR
BR
MOVR

PROGRAM

;SETUP FOR UNEXPECTED

LEVEL

_ASCl1Z

TST
BEQ

TYPE

;:73%:
72%:

001205

SWIT(CH REGISTER

;:69%:

0074¢4

001412

APT

UNDER APY

OF THE
£~

sTHE FOLLOWING FINDS OUT THE
JPAPER TAPE (MANUAL), ACT11,

005037
122737
001160
013737
122737
103002

. TEST USER SIZE

INC

68%:

005757
001012

;:CLEAR PASS COWNT

#APTSIZE ,SENVM

007312

007352

$PASS

BI1T8
BEQ
MOV

67%:
;SETUP "'TIMEOUT"' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS

;:TYPE

177777

+€Q 0038

£SWREG, SWR
;:POINT 10 SUF TWARE SwR
#D]SPREG,DISPLAY
(SP)+ a#ERRVE(
:RESTORE ERROR VE({TOR

(LR

.SBTTL

005227
001023

RY]

M 3
'B:39:56 PAGE G-t

BR
(ASCIZ

a#40, xxDP
2%

XXDP
a4l
3%

,73%

72%

<CRLF>/NOT

JGET DEVICE

:YES

INDICATCR AND NUMBER

IT A VALID NUMBER

:NO, DEFAULT TO DRIVE O
;CHAIN MODE OR ACT11 AUTO ACCEPT

;BR IF NEITHER

.. TYPE ASCIZ STRING
;;GET OVER

TESTING DRIVE

THE ASC!Z

CLR
mMovR
TYPQOS
BYTE
.BYTE

-(SP)

:CLEAR WORD ON STA(K

;TYPE
JONLY

LOSCRLF

;CR=LF

TYPE

XXDP, (SP)

;GET DRIVE ADDRESS
THE ADDRESS
1 CHARACTER

JSUPRESS LEADING ZEROS

;GET NUMBER OF

DRIVES

MATRO V04.00
JRM Bu RM0OS/3/2 FORMATTER
£7 vALUE FOR SOF TWARE SWITCH REGISTER

005227
001114
104401

000419

007544
::75%:
76%:

007564
Q07564
007566
007572
007574
007575
007576
007602

000431

007666
63 007666
007672

000435

07766
67 007766
68 007774

012737
004737

007012
024414

70 010000
71 010004
72 010006

105737
001010
004737

001150

o1
62

73 010012
74 010020

75 010026

0100472
010050
010056
010062
010064
010072

113716
104403
001
000
104401

104401

001412

013737
013737
105737
001422
105737
001406
113737

013737
005737
001405
013737
013737

,-:‘éasr

.ASCIZ

74%

<CRLF>/TO TEST DRIVE

1IGET OVER THE ASCIZ

(LR

~{SP)
XXDP, (SP)

.BYTE
.BYTE

007674

; :78%:

045756
001274
001276

#-1
4%

TYPOS

1:77%:
76%:

001372

030456
030460

001230
001260

001260
001276
001264

001276
030460

001264
001274

001274
030456

TYPE
BR
.ASCI1Z

6%:

HALT

THRU HERE

Y:TYPE ASCIZ STRING

L75%

0
.77%
76%

TIME

;CLEAR WORD ON STA(K
;GET DRIVE ADDRESS
;TYPE DRIVE ADDRESS
JONLY 1 CHARACTER
;SUPRESS LEADING ZEROS
;o TYPE

PROGRAM,

ASCIZ

STRING

;.GET OVER THE ASCIZ
REMOVE

RRDP PACK AND

REPLACE

IT/<(RLF>

TYPE

;o TYPE ASCIZ STRING
4%
;sGET OVER THE ASCIZ
/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF>

MoV

#START,CNTLC
PC,$TKINT

;'CONTROL C' ADDRESS
sTURN ON THE KEYBOARD INTERRUFT

TSTR
BNE
JSR

$AUTOB
5%

JRUNNING AUTO MODE

BR
LASCIZ

JSR

5%:

5EQ 0039

INC
BNE
TYPE
BR

mMovs

007604

N 3
18:39:56 PAGE 9-2

PC ,BUSADR

MOV
MOV

$RMADR ,RMADR
$RMVEC ,RMVEC

TSTB
BEQ
1STB
BEQ
MOVB

SENV
SETVEC
SVECT
6%
SVECT1,$RMVEC
$RMVEC,RMVE
.
$BASE
SETVEC
, $RMADR
$BASE
$RMADR ,RMADR

MOV
TST

BEQ
MoV
MOV

;BR IF YES
;CHECK THE RH/RM ADDRESS
;RH/RM ADDRESS
;RH/RM VECTOR ADDRESS

c;RUN UNDER APT MODE?
;NO, DO NOT _OAD FROM E-TABLE
;UUT INTERRUPT VECTOR
0
;DO NOT CHANGE It
sNEW VALUE
sRH/RM VECTOR
;UUT BASE REGISTER ADDRESS

;DO NOT CHANGE IF - Q

;NEW BASE ADDRESS
;RH/RM ADDRESS

;DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE
P O NSO
ONO

[ o D BNANNN
= —=OO

D
e

e
e
L

ol e
) St

e Y

e
il

e
e

el il el
el

R
T

B o

[alolelelelelalelolelelolele)

;PROGRAM WILL

80
81
82
83
84
85

010026
010032
010034
010040

[alelalelelelolalelelelolele]

76
77
78
79

005046

57
58
59
60

3s:

177777

5¢ (07530
55 007534
56 007536
007542

4-APR-B1

004737
004737
013700
012760
012737
005227
001404
032777
001113
005037
005004
104401

104401
010446

017360
030466
030456
000040

1727777
1272777

000004

SETVEC:

JSR
JSR

MoV
MOV
MOV

000010
030416
171010

001400

1%:

036555
001205

2%:

INC
BEQ
BIT
BNE
(LR
(LR

TYPE
TYPE
MoV

USE

PC,57.CLK
PC,.RMINIT

RMADR,R(

#CLR,RMCS2(R0)

4-1,SAVEFG
4=
1%

#SW02,aSWR
12%
DEVMP
R4
LUNSTAT

.SCRLF

R4 ,-(5P)

;START THE CLOCK
JINITIALIZE THE RM DRIVER

;GET BASE ADDRESS
s CLEAR MASSBUS
;SET THE SAVE REGISTERS FLAG
JFIRST TIME THRU HERE ?
;BR IF NO
;TYPEOUT THE DRIVE STATUS TABLE ?
:BR IF NO
;CLEAR DEVICE MAP
:DRIVE TABLE POINTER

;TYPE "UNIT STATUS'
JCR=LF
;:SAVE R4 FOR TYPEOUT

€T

AW BG RM(CS5/3/72 FORMATIER
ALUE

FOR SOFTWARE

010166
010170

104403
002

106 010172

104401

:gg 010204

001020

010171

105 010176
106 010202

109 010206

000

105764
100416

MLIRC ,04.0C

SW]T(» REGISTER

TYPQS
AYTE
036677

030350

172 210216
;;Z 010222

104401
000460

036453

115 0102246
1}9 010230

104407
000455

(36474

3%:

1064401

036432

A ¥

1°8 010232

:;8 10236
121

010240

001404
100006

000424
000421

104407

03651

5%:

126 010246
125 010252

005737
001406

001412

6%:

127 010260
128 010262

001003
104401

126 010254

;59 010266
V)

131

123704

000436

Q01412

104407

036443

133 010302

013737

001400

135
136
137
138
139

005000
116400
012737
122700
001411

134 010310

010314
010316
010322
010330
010334

140 010336
141 010344

142 010350
;22 10352
1645 010360

156437
104401

012737
122700

001403
012737

9200000

148 010364

005204

'50 010372

001272

"5Q 010402

104401

191

010374

036621

030350
036543
000004

001400

001402

7%:

8%:

010362

036536
000005

010362

036550

010352

000010

013737

001402

001205

001400

9-¢

JBLNKSG

;s TYPE DRIVE NUMBER
;G0 TYPE-=Q(TAL AS(!]

J:VTYPE 2 DIGIT'S)
s« SUPPRESS LEADING ZEROS
JTYPE & SPA(ES

JCHECK DRIVE'S STATUS
:BR IF UNSAFE

BNE

1STR

DR/TYP(R&G)

JSEE IF OFFLINE OR NONEXICTENT

TYPE
8R

JNOTRM
11%

;DRIVE NOT AN RMQS/3/2
s CHECX NEXT DRIVc

1YPE
8R

TYPE

3%
43

:BR IF ONLINE
JBR
:BR

IF
IF

NONEXISTENT
OFFLINE

,NOTPRS
11

:DRIVE NOT PRESENT
JCHECK NEXT DRIVE

JUNTOFF

sDRIVE OFFLINE

;PRINT DRIVE TYPE

JNOTSAF

:DRIVE UNSAFE

TST
BEQ

XXDP
7%

;LOADED FROM THIS DEvICt
JBR If NO

BNE
TYPE

7%
.LODEV

:BR IF NU
;DRIVE IS LOAD DEVICE

“YPE

8ISB
MOV

TYPE

XXDP ,R&
11%

JPRINT DRIVE

TYPE

;LOADED FROM THIS DRIVE

LUNTON

;DRIVE

DEVMP ,DEVMP+2

;SAVE DEIVICE mAP

ATAB!T(R4) ,DEVMP
BLNKS2

(LR
MOVB
MOV
(MPR
BEQ

RO
DRVIYP(RS4)
,R0
#8RM03, 108
#6,R0
9%

BEG
MOV

9%
#$RMOS ,10%

MOV
CMPR

#SRMO2,10%
#5,R0

;TYPE

°
7

ONLINE

;SET DEVICE maAP

2 SPACES

;GET DRIVE TYPE
JASSUME ADDRESS OF RMO3 MESSAGE
;1S DEVICE AN RMQ3 ?
:BR IF YES
ADDRESS OF RM02 MESSAGE
;1S DEVICE AN RMO? ?

;BR IF YES
;ADDRESS OF RM0OS MESSAGE

9% :

TYPE

.WORD

118%:

INC

; INCREMENT DRIVE NUMBER/TABLE POINTER

BNE

:BR [F NOT

10%:

020427

DRVSTA(RG)
5%

104401

;29 010362
1649 Q10366

030444

1578
8TM

CMPR

(036521

010270

“32 010274

2
¢

BEQ
BPL

15% 010244

"8:3y:34 PAGE

BYTE

TYPE

(30340

105764

110 016212
111 010214

4-APR-8'

128%:

{

MOV

TYPE

R ,#8.

DEVMP+2 ,DEVMP

SCRLF

:TYPE

THE DRIVE

TYPE MESSAGE

:MESSAGE ADDRESS HERE
JFINISHED

.GET

DEVICES

:(R=-LF

TEST

JEM b

M5 Lo

PSP

FORMATTER

R OALTO MODE

MA(RD v04.00

4-APR-81

18:39:56 PAGE

’

.SBTTL

;IF RUNNING IN AUTO MODE,

5 010406
6 010412

105737
001540

g 010422

001134

132737

000200

10 010424

005737

001266

7 010414

11
12
13
;g

010430
010432
010440
010446

001406
013737
(042737

001150

001266
177400

XKSiZE:

001231

001400
001400

001400

S? C10454

005737
001002

000137

016342

22
23
26
25
26
27

010460
010466
010476
010502
010506
010512

012737
012737
012737
005037
005037
012737

000000
000000
001466
001376
001320
177777

29 010524
30 010526

001012
012737

32 010542
gz 010550

28 010520

005737

001272

001334
001330
001226

1%:

001356

020100

001350

012737
000413

000037

001360

010552
010560
010566
010572
010600

012737
012737
005037
0127%7
005001

017074
160704
001356
000035

001350
00135¢

030444

007400

43 010614

020127

000007

31 010534

35
36
37
38
39

40 010602
41 010610
4«2 010612

44 010620

012737

136137
001005
005201

003770

22 010622

000711

47 010624
48 010630
49 010636

010137
146137
105761

50
51
52
53

T1S1B
BEC

010642
010644
010650
010652

§g 010656

003757
005737
001403
123701

001751

157700

001222
030444
030340

001352

001360

6%:

5%:

6%:

TST
8NE

001472

:BR IF NO

JAPT AUTO SIZING ALLOWED ?

18
$DEVM,DEVMP
#177400,DEVMP
IF

RUNNING

;DEVICE MAP AVAILABLE FROM APT MA]L
;BR IF NONE
JLOAD IT FROM MAIL BOX
;ALLOW MAX 8 DRIVES

CHAIN MODE

AND

DRIVES

BOX

TEST

JMP

DEVMP
1%

$GET42

;(HECK
;BR [F

MoV
MOV
MOV
(LR
CLR
MOV

#0 ,MINTRK
#0 ,MINCYL
#822. ,MAXCYL
WRAP
MODE
#-1,SEC30

JALWAYS STARTS FROM O TRACK
;JALWAYS STARTS FROM O CYLINDER
JLAST CYLINDER
;SFEK FROM LO TO HI CYLINDER ADDRESS
;SET TO 'FORMAT' MODE
;SEr 32 SECTOR

BNE
MOV

3%
#<258.%32.>,WC

;NO,30 SECTOR
;COUNT OF WORDS

MOV
BR

#31. ,MAXSEC
4%

;MAX 32 SECTOR

TST

$CDW2

4-<258.+32.> ,Mu(

DEVICE MAP
DRIVES ASSIGNED

;GET MONITOR

;APT PARAMETER

;WORD COUNT

MoV
MOV
(LR
MoV
(LR

#<258.+%30.>,WC
;JOUNT OF WORDS
#-<258.+30.> ,Mi(
. WORD COUNT
SEC30
;30 SECTOR
#29. MAXSE(
;MAX 30 SECTOR
R1
;START WITH DRIVE NUMBER O

(mMP

R1,47

sALL DONE WITH MAP ?

;DONE

MOV
BI(B
7518

R _DRIVE
;LOAD R INTO DRIVE
ATABIT(R1) ,DEVMP
;CLEAR THE BIT
DRVYSTA(RT)
:IS DRIVE ON LINE ?

BEQ

5%
XXDP
7$
XXDP,R1
5%

;BR IF

MoV

#4 R2

;SETUP TRACK PARAMETER FOR AN RMQO3/2

B11R
BNE
INC

BLE
1S7
BEQ
(mMP8

001472

ASKO

$DLVM

BLE

($0140C

JRUNNING UNDER AUTO MODE
:BR IF NO

TST

BEQ
MoV
8IC

TO BE FORMATIED

SAUTOB
ASKO

#3177 ,$ENVM

MoV

3%:

THEN AUTO SIZE DRIVES

B8ITB

SRETURN HERE

18 010446
19 010452

SEQ 004!

SIZE FOR AUTO MODE

BNE

18:

°C

ATABIT(R1) ,DEVMP
;IS THIS DRIVE
63
;BR IF YES
R1
; INCREMENT DRIVE #

IN DEVI(E MAP ?

;BR IF NO

FROM DEVICE MAP

;BR IF NO
;LOADED FROM THIS DEVICE ?
;BR IF NO
;LOADED FROM THIS DRIVL ?

YES

56 00660

57 1066

012702

122761

000004

0200007

03035

MPR

#7,DRVTYP(RT)

;IS DEVICE AN RMOS ?

CRM E, M5/ FORMATTER
128

R AUTO MODE

S8 010672
59 010674

001002
015702

g% 010710

000137

50 010700
51 010706

010237
010237

MATHT

(00022

001324
001332

. 4.us

8%:

011566

4-APR-8'

'B:3G:5¢< PAGE

B8NE
MOV

3
#18. ,R2

JBR 1fF NO
JSETUP TRA(K PARAMETER fOR AN RMQS

JMP

ST?2

:START T0O FORMAT OR (HE(K

MOV
MOV

R2.LSTRK
RZ . MAXTRK

:MODES ARE:

67 010714
68 010720
09 0107246

C0S037
(C(S037
104401

104411

G 010730
0107%

104401

177776
001320
001205

ASKD:

061732

1%:

°FORMAT & VERIFY' OR 'VERIFY HEADER FORMAT'

CLR
CLR
TYPE

TYPE

RDL IN

PS
MODE
LSCRLF

012600

MOV

(SP)+ RO

76 0107242
’S 010744
76 010750

001416
105760
001006

BEQ
TSTR
BNE

43
1(RD)
2%

78
79
80
81
g%

010756
010760
010764
010766
010772

001410
122710
001403
1064401
(00756

BEQ
(MPB
BEQ
TYPE
BR

A
#'N,(RO)
3%
BADENT
1%

84 010774
32 011000

005237

73 0107640

77 G1G752

105710

122710

1STR

Q00001

0C0O131

(mMPB

000116
037174

2$:

001320

3%
4%:

;FIND OUT

89 011000

104407

9*'

012600

90 011004

011006

92 011010
93 011012

94 011014

104411

105710
001414

105760

011020
011022
011026
011030

001006
122710
001406
122710

100 011036
;8; 011042

104401
000756

99 011034

001420

‘03 011064

012737

;8; 011074

000413

104 011052
105 011060
106 011066

041771

000116
037174

177777

169 011076

005037

001356

111

012737

160704

011110

;}g 8;}152

012737

1%:

001356

001350
001352
001360

017074

001350

000035

001360

001352

2%:

3s:
.

JTYPE

THE

KEYROARD

(L) Y °

;SAVE ADDRESS OF RESPONSE

;WAS RESPONSE A CARRJAGE RETURN (DEFAULT
;BR IF YES
JWAS [T TERMINATED WITH
:BR IF NO

”'Y,(RO)

CARRIAGE

RETURN

'v")°
?

:WAS IT A 'Y' RESPONSE 7

;BR IF YES
JWAS T A 'N' RESPONSE ?
:BR IF YES
:TYPE BAD ENTRY MESSAGE
:TRY AGAIN

MODE

:SET
IS TO BE

°'FORMAT® MODE

DO YOU WANT TQ FORMAT

;JREAD

(RO)

IF FORMAT

IN 16.

'VERIFY HEADERS ONLY® MODF
OR 18. BIT MODE

TYPE

MSIZE

:TYPE

MOV

(SP)+ R0

;SAVE ADDRESS OF

1(R0O)

;WAS IT TERMINATED WITH CARRIAGE RETURN "

RDLIN

DD YOU WANT

(L)

v ?*

;WAS RESPONSE A CARRIAGE RETURN (DEFAULT
;BR IF YES

'Yv*)?

IREAD THE ENTRY

16 BIT FORMAT MODF

RESPONSE

TSTR
BEQ

(RO)
2%

BNE
CMPR
BEQ
(MPB

18
#'y,(RQ)
2%
#'N, (RO)

1YPE
BR

JBADENT
ASK1

MOV

#-1,SEC30

;32 SECTOR INDICATOR

: CONT INUE

SEC30

;30 SECTOR INDICATOR

TSTR

000131

020100
157700
000037

110 011102

ASK1:

000001

012737
012737
012737

INC

JASSUME
:CR=LF

. MMODE

72 010736

'i‘

:SETUP LAST TRACK AND
JEND TRACK FOR AUTO MODE.

:SEE WHICH MODE THE PROGRAM [S TO BE RUN IN.

95
9
97
98

10-1

BEQ

MOV
MOV
MOV

(LR

:BR

YES

RESPONSE

;TYPE BAD ENTRY MESSAGE
:TRY AGAIN

#<258.+32
> WC
TRACK SIZE IN 32 SECTOR MODE
#-<258.+32.>
,MJC ;2'S COMPLEMENT WORD CQUNT
#37. ,MAXSEC
;MAX SECTOR ADDRESS IN 32 SECTQR MODE

MOV

#<258.+30.>,WC

MOV

229, ,MAXSEC

MOV

:BR IF NO
WAS IT A 'Y'
;BR IF YES
JWAS IT A 'N'

#-<258.+30.>,MWC

;TRACK SIZE
;2'S

IN 30 SECTOR MCDE

COMPLEMENT

WORD

(OUNT

:MAX SECTOR ADDRESS iN 30 SEC'OR MCDE

P b

IY‘_‘

Bu KMO5/3/2 FORMATTER
FCR

ALTO MODF

’;5
16
117 011124
118 011132
119 011136

012737
004737
005037

01763CG
024414
001126

121

104401

036604

120 011142

011146

122 011152

MACRO v04.00

4-APKR-81

18:39:56 PAGE

10«2

;G0 FIND OUT WHAT DRIVE

104401
104411

0061372

ASKZ2:

036573

MOV
JSR
CLR

#C.ENTR,CNTLC
PC,S$TKINT
SERTTL

;CONTROL ( ABORT ENTRAN(E
JINITIALIZE THE TTy kEYROARD
JCLEAR THE ERROR AC(UMULATOR

TYPE

.COLON

JTYPE

TYPE

RDLIN

°*DRIVE®
*:

sRFAD THE ENTRY

012601

011162
011164
011166

011176
011176
011176

011172
125 011174

011204
011176

126 071176
}Sg 011202

104401
000750

037174

TYPE
BR

BADENT
ASK?

. TYPE BAD ENTRY MESSAGE
;ASK FOR DRIVE NUMBER AGAIN

129 011204
130 011210

010237
005737

001222
001412

2%:

Mov
TST

R2,DRIVE
XXDP

;SAVE DR.VE NUMBER
;LOADED FROM THIS DEVICE

011170

151 011214
132 011216
133 511222
134 011224

004537

023120

011176

001406
123702
001003

104401

036771

137 011232

004737

017360

'44
'45
146
147

011236
011242
011246
011256
011262
011270

011276
011300
011302
011304

123 011310
150 C11312
151 011316
152 011320

;;2 011324

195 011326

004737
013700
012760
012737
012737
005037

105762
003015
001403
104401

000705

030466
030456
000040
177777
177777
177776

TYPE

3%:
000010
030416
030420

030340

036751

105762
001003
104401

030350

000677

BEQ
(MPS
BNE

001412

000735

128
139
1640
141
162
143

4%:

036675

104401

036722

158 011334
1,9 011342

160 011350

113737
012737
(12737

001222
000000

005540
001330

162 011364
163 011370

012700
122762

000000

000004
000007

001334

‘64 011376
'6% C17400

012737
001002
012700

001466

00C022

5%:

6%:

RESPONSE

;CHECK ONE CHARA(CTER

JILLEGAL CHARA(TER
s
CARRJACE RETURN
A
;DIGIT Q-7
;DIGIT 8-9

3%
XXDP R2
33

MLODEV

;BR IF NO
JWAS THIS THE DRIVE
;BR IF NO

;DRIVE

IS LOAD DEVICE

PC,ST.CLK

;START

THE

1S1B
BGT
BEQ
TYPE

DRVSTA(R?)
6%
43
MUSDR

;LOOK AT DRIVE STATUS
;BR IF ONLINE
;BR IF DRIVE NOT AVAILABLE
;'DRIVE UNSAFE'

TSTR
BNE
TYPE

DRVTYP(R2)
5%
.MDRNP

;A DRIVE PRESENT?
:BR [F SO
JTYPE 'DRIVE NOT PRESENT®

ASK2

JSR

JSR
MOV
MOV
Mov
MOV
(LR

000674

;SAVE ADDRESS OF

}23 011332

161 011356

RS,C(K.(HR

2%
1%

}%5 011230
6

JSR

'$
't
'$

(SP)+ R1

sTYPE

123 011154

"24 011156

MOV

JMUNTY

TYPE

PC_RMINIT
RMADR RO
#CLR,RM(CS2(R0O)
N-1,SAVEFG
#-1,SEEKFG
PS

ASKZ

ASK2

CLOCK

;60 SEE WHAT DRIVES ARE AVAII AR.E
:GET BASE ADDRESS
;CLEAR MASSBUS
:SAVE THE REGISTERS
SET 'NO OPTIMIZATION' FLAG
;PRIORITY - O

;60 GET DRIVE NUMBER AGAIN

;GO GET DRIVE NUMBER AGAIN

ASK?

LMERTY

;'DRIVE

* VB
MOV

;SETUP DRIVE ADDRESS
sCLEAR STARTING CYLINDER ADDRESS
JGET LAST TRACK FOR AN RMQ3/?
;1S DEVICE AN RMQS ?

001326

MOV

DRIVE ,FMIDPB
40 MINCYL
#822. MAXCYL

03C350

MOV
{MPR

#4 RO
#7 DRVTYP(R?)

MOV

BNE
MGV

40 ,MINTRK
7%
#18. ,RC

;GO GE1

NOT AVAILABLE'

DRIVE NUMBER AGAIN

sSETUP END CYLINDER

JCLEAR STARTING TRA(CK ADDRESS
JBR IF NO
JGET LASY TRACK FUR AN RMCS

'fn.su RM0OS/3/2 FORMATTER
£ ‘OR AUTO MODE

A6 011404
67 011410
70 011414

010037
010037
010037

001324
(0332
005666

011430
51163
~;§ 01640

010037
010037
104401

005726
005744
001205

011620
173 011426

010037
(10037

MACKD

MOV
MOV
MOV

RO.LSTRK
RO, MAXTRK
RO, TABLE+16

;SETUP LAST "RA(K AND
JEND TRA(K PARAMETERS
:SETUP TRACK PARAMETER LIMITS IN ""TASLE"

MOV
MOV
TYPE

RO, TABLE 3+6
RO, TABLEG+6
LSCRLF

JSETUP TRACK PARAMETER L iMITS IN "TABLF
¥
JSETUP TRACK PARAMETER L IM]TS [N """AHEL""
CR=LF

RO, TABLE+24
RO, TABLE2+€

JSETUP TRA(K PARAMETER IMITS
JSETUP TRAIK PARAMETER | [M]TS

[N "TABLE"'
IN “'TABLEZ?"'

:GET ADDRESS LIM]IT'S

78 011444

005037

180 011454

104411

“73 0116450

‘81
*82
83
"84

011456
011460
011462
011464

186
"87
188
189
30

11472
011476
011500
011504
011506

185 011470

'91 011512

;gg 011514
194 011514

195
196
197
198

7$:

MOV
MOV

:;3

4
0-2

4=APR-8T

005674
005710

*8:39:5%¢

F
PAGE

,ob.ul

011520
011526
011526
011536

199 011536
58? 011540

1046401

012600
105710
001441
105760

(01006
122710
001406
122710
001430
104401

C0Q754
104401

004437
005650
023737
001402

001376

TYPE

000116
037174

%
2%:

036624

ASK3A:

020032

001330

103410
000412

001332

207 011560

012737

177777

00133%

037215

1%:
2%:

301376

3%:

4%:

JMSPRM

(SP)+ RO
(RO)
ST2
T(RO)

(MPR
3EQ
(MPR
BEQ
TYPE

#'Y,(RO)
d 3
#'N, (RO)
ST2
JBADENT

B8R

TYPE

JSR
TABLE
(Mp
BEQ

BLO
BR

023737
103006
104401
000756

WRAP

MOV
1S'8
8€Q
TSTR

8NE

0C0131

0C1326

RDL IN

0000G)

202 0115842
203 011550
206 011552
38; 011556
208 {11566

ASK3:

042362

ASK3

JENTADR

R4 ,PARENT

MAXCYL ,MINCYL
13
3%

JASSUME SEEK FROM LO T0 HI (YL INDERS
JTYPE

JREAD

'(HANGE

THE

DRIVE PARAMETERS

ENTRY

?°

;SAVE ADDRESS OF RESPONSE
WAS RESPONSE A CARRIAGE RETURN (DEFAULT
;BR IF YES
JWAS [T TERMINATED WITH CARRIAGL RETURN

'N°.

JBR IF NO

JWAS IT A 'Y' RESPONSE ?
;BR IF YES
JWAS JT A 'N' RESPONSE ?
;BR 1F YES
;TYPE BAD ENTRY MESSAGE

:TRY AGAIN
;TYPE

'ENTER ADDRESS LIMITS:®

(ENTER THE ADDRESS LIM]ITS
:TABLE PARAME TERS
;SEE IF ENDING CYL EQ TO GT THAN STARTING
;BR ]F ON THE SAME CYLINDER

;BR IF LESS
;7O CHECK DRIVE

(MP
BHIS
TYRE
BR

MAXTRK ,MINTRK
43
LMADRER
ASK3A

:SEE IF ENDING TRACK EQ OR G7 THAN STARTING
:BR IF YES
s INvVAL
JD ADDRESS ENTERED
:TRY AGAIN

MOV

#-1 WRAP

JALLOW SEEK FROM H]

TO LO (YLINDER ADDRESS

RILE

RN L
NOMMER

S 117566
¢ 511874
7 011600
8 011604
9 011610

10 011612
17 §11'616

2 011620

011624
011630
011632
011636
011640
011644

011764
C11772
011776
012000
012002

46 012006

&7 012010

60
61
62
63
64

LSBTIL

TYPE

012737
005037
104401

005737
001403

017642

177776

001205

037062

104401

037033
001356

005737
100403
104401

037141

106401

03710¢

000402

012012
012020
012022
012026

&
°°

MOV
(LR

#O.ENTR a#TKVEC ;VECTOR FOR (ONTROL-C
PS
JPRIORITY = 0

B8EQ

é;PE

TYPE

.SCRLF
MODE

JCR=LF
;1S IT

é?JERFV

JTYPE

°'VERIFY HEADERS'

;BR IF

'FORMAT®

YES

005037
012737
013737
012737
113737
105037

012737
012737
112737
112737

004037
005540
000774
005737
001775
012737
012706
112737

004037

005540
000774
005737
001775
100007
022737
103452

001342
177777
001222
001466
001324
005550
046234

SEC30
i
ZQTBBIT

.MFORMT

;TYPE

'FORMAT & VERIFY'

32:

TYPE

LMI6B]Y

;TYPE

"OPERATE

CODE

RETRIEVES

MOV

MOV
MOVB

005556

2%:

011752
001100
000173
031214

3¢

005556

4%:

005037
005037

005737

001176
001342
005556

¢S 02046

022737

151466

(LR

MOV
MOV
MOV
MOvVB
(LRB

1%:

001342

100440

RETBAD:

000020
000143
031214

005237
000761

757
BM]
é;PE

157700

000003

MODE

2%:

THE

;1S 1T 16 BIT MODE ?
JBR IF YES
JTYPE 'OPERATE IN 78 BIT MODE"

BAD

SECTOR FILE

FROM

MOVB

JSR

FMTDPB

RETRY
#-1,BSFAVL

DRIVE ,FMTDPRB

IN 16 BIT MODE’
THE

;SET UP DPB BLOCK READ (YL 822., LAST TRA(K.

65 012030
6o 012034
¢7 012040
48 012064

G
PAGE

THME DRIVE NUMBER

TYPE
TST

001320

104401

000402

*8:39:5¢

THE DRIVE TO BE FORMATTED AND STANWT

STe:

;THIS

22
2% 011644
26 011650
25 011656
26 011664
27 011672
28 011700
29 011704
30 011712
31 011720
32 011726
33 011734
34 011740
25 011742
3o 011744
27 511750
28
39 011752
40 011760

41
&2
«3
44
45

4=APR-R'

sTYPE

"3
‘4
15
6
7
'8
'3
20
21

“'O

PACK

(IF

JCLEAR THE RETRY FLAG
:INDICATE BAD SECTOR FILE

:LOAD DRIVE #

FORMATTED PA(K)

IS NOT AVAILABLE

#822. ,FMIDPB+12 ;CYLINDER 822.

LSTRK ,FMTDPB+31
FMIDPR+10
#BUFP FMIDPB+6

:LAST TRACK
JSECTOR O
:BUFFER ADDRESS

#-<32.%258.> ,FMTIDPB+4

;WORD COUNT FULL TRACK INCLUDING HEAD

#20,FMTDPR+1
SFMT SETY
#SETFMT _FMIDPR+?2
JSET 16 BIT MODE
RO, RMOS
;SET THE FORMAT BIT
1%

TSY

FMTDPB+16

BEQ

:BR IF NOT

MOV

¥, ,SLPERR
#STACK ,SP
#RDHD ,FMTDPB+2

:LOOP ON ERROR ADDRESS
:RESET STACK POINT
;RELOAD THE READ HEAD AND DATA (OMMAND

;BR IF QUEUE FAIL

;BR IF NO ERROR

9%
RETRY

:BR [F YES
JINCREMENT RETRY {OUNT

MOV
MoV
JSR

FMIDPE

B8R

TST

BtQ
B8PL

{MP
8LO
INC
8R

CLR
(LR
757
8M]
“Mp

RO, RM0OS

FMYDPR+16
A 3
#3,RETRY

;s THE

COMMAND

IS DONE

JREAD THE LAST TRACK
JALL DONE
;BR IF NOT

JEXCEEDED RETRY LIM]IY

:TRY AGAIN

$ESCAPE

RETRY

FMIDPR+16

£} 3

#15°666
B F

;ANY ERROR ?

JBROIF YES
JON THE LAST JYOINLER 7

JRM B

"YPE

THE

RMOS/ 372 SURMAT
"t &
ORIVE

NUMBER

ML 4

w=AFReRT

70 0120564
012056

001034
013700

(0'3.4

BNE
MOy

73 012066

020037

G4tc34

MpP

72 012062

74 012070
7S 012072

76 012076
77 012700

78 012104
79 012106
80 012112
81

82
83
84
&85
86

012114

012122
012724
012130
012134
012136

87 012144

B& (12146
gg £12146

000300

001026
005737

001003
005737

001420
005737
001015

022737

001002
000137
005737
001004
012737

000400

(464l

046244
177777

0004U0

00404
9%:
108:

9%
LSTRK ,R{

;BR IF NOT
GET LAST TRA‘K

RO.BUFP+?

:ON LAST TRACK AND SECTOR O

BNE
ST

9%
BUF P4

:BR [F NOT
;SERIAL NUMBER SHOULD NOT O

8EQ
ST
BNE

9%
BU' P¢10
98

;BR IF ZERO (CORRUPT)
;THE THIRD WORD MUST BE 0
:BR IF NOT (CORRUPT)

CMP

8S:

SEG 9ef

BNE
JMP
ST
BNE
MOV

B8R

7$
BUFP+6

#=1,8UFP+12

8%
REJCTI
BUFP+12
9%
#500,8SFAVL

108

JMOVE

TRACK

TO W]

BYTE

AND

SECTOR

T0 LO BYTE

:BR IF NOT O
:SECOND WORD OF SERJAL NUMRER

JAN AL IGNMENT

PACK

:BR IF NOT
JREJECT FOR BEING AN AL JGNMENT PA(K
;1S DISK A DATA PA(CK ?
;BR IF NO (CORRUPT)
;INDICATOR BAD SECTOR FILE [S AVA]LABLE

JFILE OK..

JTHIS CODE INITIALIZES THE MFG16. MFG18, USTAB AND USSAV "ABLES
012146
012152
012154
012160
0121646

012706
CO05046
012746
012746
012746

98 012170
99 012174
100 012200

012703
(012704
005023

;85 012204

001375

101

046246

016430
046246

z;
93
9
95
%6
97

SwAB

BNE
TSY

046242

T@:Tg0e PALE

012202

[{

012704

108 012222

012603

%?g 012224

004430
002420
001414

003424
000004

005304

104 012206

05 012212
‘06 012216
107 012220

001100

012723
005304
001374

000374

177777

118 012234

MOV
MOV
(LR
DEC

#STACK,SP
-(SP)
#USSAV,~(SP)
#MFG18,-(SP)
AMFG16,~(SF)

sINITIAI STACK POINT
:TERMINATOR
:USSAV TABLE ADDRESS
:MFG 18 BIT FILE ADDRESS
:MFG 16 81T FILE ADDRESS

:DONE

#USTAB.R3
#4 R4
(R3) +
2%

MOV

#252. R4

MOV

(SP)+,R3

MoV
DE(
BNE
BNE

;USER BAD SECTOR FILE ADDRESS
:SET 2 SERJAL NUMBER WORDS AND NEXT 2 WORDS
;70 ALL O'S
YET

;BR IF NO

;GET NUMBER OF

ENTRIES LEFT TO FILL

#-1,(R3)+
Ré
3s

:SET REST OF LOCATIONS 10 -1
:DONE YET °
;BR IF NO

:BR IF NOT TERMINATOR

:GET NEXT

TABLE

ON STACK

:THIS CODE LOADS TABLE MFG16, MFG18, USSAV FROM PA(CK BAD SECTOR FILE
JINFORMATION (]F BAD SECTOR FILE

005737
003451
012702

119 012240
120 012244

012703
012704

28
T 00256

Q10700

121 012250
122 012252
;QZ 012254

3%:

001363

33%

117

1%:
’$:

BNE

174 012226
;32 012232

TARINT: MOV
CLR
MOV
MOV
MOV

012223
005304
001375

001404

TABLD:

046240
001414
000400

DW7ou4

TST
BLE

BSFAVL
6%

MOV

#BUFP+4 ,R?

MOV
DE!
BNE

(R2)+,(R3)+
R4
1%

MOV
MOV

MOV

MAFG16,R3
8256, R4

IS AVAILABLE)

;1S BAD SECTOR FILE AVAILABLE °
(BR IF NO
;POINT

:16 BIT

TO FIRST

SERIAL

NUMBER GF

1ST

'MFG' BLOCK OF BAD SECTOR FILE

;GET ADDRESS OF
:WORD COUNT

MFG16 TARLE

:LOAD THE MFG16 TARLE
:DONE YET ?
;BR IF NO

:POINT T0O FIRST SERIAL NUMBER OF 1°7
MRUFPe4L+516,
,R2 ;18 BIT 'MFG' BLOCK OF BAD SECTOR FI.E

JAM
b

AwOS, T, FORMATTER
LRILE

NUMBER

< 212262

012703

*29 015272

02223

o8 012266

30 012274

:%; 012276
133
A

*35 012300
‘2 0123046

}% 012310

012706

MAIRT ;{0 00

(00«29

(00400

005304

2%:

001375

012702

Q05737

100402

<=APR-B'

00'35¢6

oM G188 ,R3

JGET ADDRESS OF MFG'RB TAR.|

MOV

(R2)¢,(R3)e

LOAD THE MFG18 TABLE

DE(

8256, R4
R4

161 012312

012702

1645 012330

005304

142 012316
1643 012322
164 012326

(12703
012704
(12223

060310

00443%C
000400

}Zg 012332

003375

148 01233

(62702

002004

15C 012344

012704

00040C

149 01230

151 012350
152 012352
53 012354
01235¢

012703

(12223
005304
001375

MBUFPeLe<c1] «516,>,R2

;SECTOR 11,

BM]

:BR IF

1T IS

sPOINT

TO FIRST SERJAL NUMBER OF

SEL30

DEC

6%:

A 3

:BR IF NO

MOV

#256. R4

DE(
BNE

JSECTOR 10.

AUSTAB,R3

(R2}+,(R3)+

R4
5%

:DONE

YET

JACCESSES THE USTAB BUFFER ADD

;GET ADDRESS OF USTAB [ABLE
;WORD COUNT

;LOAD THE USTAB TARLE
:DONE YET ?
:BR IF NO

15T

BAD SECTOR FILE

JGET ADDRESS OF USSAV TABLE
;WORD COUNT
:LOAD THE USSAV TABLE

#4 ,R?

MOV

'USR' BLOCK OF

#USSAV,R3
2256, R4
(R2)+,(R3}e

ADD

MOV

216 BIT

RRUFP+4¢<10,%516.>,R2

MOV
MOV
MOV

JFORMAT [N 16 BIT MODE

MOV

BNE

003424

;DONE YET ?

:BR IF NO

MOV
TSY

3%:

<WORD (OUNT

JPOINT TO FIRST SERIAL NUMBER OF 15T
218 BIT "USR® BLOCK DOF BAD SECTOR FJLE

139

"1-2

MOV

MOy

BNE

(61374

"B:39:56 PAGE

JHv B0 RMOS/ %70 5 JRMATTEK
EATER OCTAL SFRIAL NUMETR

MA
T

.. 4.00

4
¢

ENTER OCTAL SERIAL NUMBER

q9 S
OO

n oy

004737
104401

012702
005037

001150

024414
037533
000012
001414
001416

005037
104411

1STR

1¢:

105711

001471
21127
83522

2%:

0C0060

000067
001414

100000

100472

001414
001414
001414
001414
001414
177770
001416

006337

001416

006337

001416

063737
012637
006337
006337
006337
04273%7

001414
001414
001414
001414
001414
100000

042703
060337
005201
005302
001307

177770

100467
100464

111103

0044

001414

BIC
ASL

BM]
ASL
BM]

005737

001426
000402
005237

BM]
ADD
MOV

001476

ASL
ASL
ASL

001474

8IC
MOvVB
BIC

3s:

001416

001414

BSFAVL
5%

;1S BAD SECTOR FILE AVAILABLE

$AUTOB
4%

:BR IF YES
JRUNNING UNDER AUTO MODE
;BR [F YES

PC,S$TKINT

JINITIALIZE THE KEYBOARD

#10. ,R2
MFG16
MFG16¢2

JMAXMUM 10 OCTAL DIGITS ALLOWED

LMESG!

(SP)+,R1
(R1)

b3
(R1),4°'0

;TYPE

'ENTER SERIAL

NUMBER

(OCTAL):

;CLEAR THE LSW OF THE SERIAL NUMBER
;CLEAR THE MSW OF THE SERJAL NUMBER
JREAD IN THE STRING
;ADDRESS OF THE READ [N STRING
;TERMINATOR OF THE INPUT STRING
sBRIF IT IS
JLESS THAN ASCIZ 0 ?
JENTER AGAIN IFf IT IS
JHIGH THAN ASCIZ 7

JENTER AGAIN [F

;SAVE THE LSW
;CLEAR THE SIGN BIT OF LSW

JROTATE THE LSW FIVE TIMES
;7O MOVE THE MOST SIGN DIGIT

;70 BIT 0 10 BIT 2

#177770,mFG16
MFG16+2
6%

JLEFT ON THE MS DIGIT OF

MEG16,MFG16+2
{(SP)+ MFG16

JAPPENDING THE DIGITMS
JRESTORE THE LSw

MFG1642

JSHIFT

THE MSW

THE LSW

LEFT ONE OCTAL

JENTER AGAIN IF SIGN BIT SET

DIGIT

ASL

001414

JSR
TYPE
MGV
(LR
CLR
RDL IN
MOV
TSTR
BEQ
CMPR
BLO
(MPR
BHI
mov
BI¢
ROL
ROL
ROL
ROL
ROL

105711

001034
005737
001006

1ST

BGT
BNE

012601

md amd

012406

:
SERNL

01604

105737
001116

—d

e
e
P

—d —
—

OOC

0C57%7
003123

rorononN

OO0

JINITIALIZED PACK

3 e

d w2 d a2 e

PN
NN 2OV NRIND WO

PONOCONUNOUNUND
=

J
'B:%9:56 PAGE

:THIS CODE ASK OPERATOR TO ENTER A SERJAL NUMBER FOR UNFORMATTED R

LSBITL

4-APR-B°

ADD
INC
DECL
8NE
718718
BNE

TST

BNE
TST

BEQ
B8R
INC

MFG16
MFG16

JSHIFT

5
. MFG16
#81T1

;CLEAR THE SIGN BIT

MFG16

INTO MSw

IHE LSW LEFT ONE OCTAL

DIGIT

#177770,R3

;LOAD THE CURRENT READ IN DIGITS
JLEFT ONLY ONE OCTAL DIGIT

R2
2%

JADJUST THE READ IN STRING ADDRESS
:DECREMENT ONE DIGIT COUNT
:BR [F NOT DONE
JIF 10 DIGITS HAVE BEEN ENTERED

(R1) ,R3

2§.FFG16

(R1)
6%
MFG16

;APPEND

THE

READ

IN (HARACTER

TO LSW

;BR IF NOT <CR> TERMINATOR

;FIRST SERIAL NUMBER ZERO ?
:BR IF NO
JSECOND SERIAL NUMBER ZERQ ?
:BR IF

YES

JASSUME S/N 1, IF

THE SERIAL NUMBER NEEDS 7

r IRML B, KMOS5/ 870 FORMAT "EkR

ENTER C_TAL

SERIAL

56 012632

60 012640

61 0126466
62 0 012654
63 0 012662
66 012670
65 012676
66 012700

8}5;8‘60

NUMBER

MAIRD Juwb. U0

013737

(01414

002420

013737
013737

001414
001416

004430
003426

013737

001416

002422

013737

013737
000403
104401

000634

001414

001416
037174

003426

5%:

4~APR-B'

MOV

MFGI6 MFG18

;BE ENTERED DURING AUTO MODE

MFG16,USTAB

MOV

MFG16+2,USSAV+?

MOV

6%:

MOV

MOV
MOV

004432

'B:39:56 PAGE 12-1

BR
TYPE

MFG16,USSAV
MFG16+2,USTAR+?

MFG16+2 ,MFG18+2
7%
BADENT

APT A(TET(.

JLOAD ALL TAB.ES WITH THE NEW SERIAL NUMBER

JEXIT
;TYPE

'8AD ENTRY'

JTRY AGAIN

MA RC v04.00

004737

d ——d

lolelololelsloleiifelolele
]

105737

001057
005737

—

001454

B wnd —ed

005227
001002

el
b
—ad
el o

L
'8:39:56 PAGE

4
'3

WJTILITY ROUTINE

;THIS CODING TO PROVIDE UTILITY ROUTINE ENTRIES

744
746

B edaded
D eded

QO . ONRPVNEWN —-OPYOE NN

LSBTTL

4-APR-B1

104401
104401
104410

012637
022737
107022
122737
103416
104401
104401

013020
013024

013026
013032
013040
013042
013046
013052
013056

013701
042701
006301
004771
104401

000745

104401

022737
001735
005037
005037
005037

024414
001150

CAL;N:

001270

JSR

PC,STKINT

TST

$COwl

T1STR
BNE
BEQ

177777

2%:
3¢:

037740
040521

001174
000060

001174

000064

001174

$AUTOB
5%
5%

INC

-1

TYPE
TYPE
RDCHR

.MSGBLK
LMUTLTY

BNE

MOV
(Mp
BH]

(SP)+,$TMPO
#'0,8$TMPQ

;ADDRESS OF

BLO

3 3

LSCRLF

001362
001364
001344

R1
PC,aTABCAL{RT)

TYPE

SCRLF

(LR
5%:

L SCRLF

(LR

JENTER MESSAGE BLOCK
JTYPE UTILITY MESSAGF
JREAD IN THE ROUTINE NUMBER

INPUT BUFFER

JINPUT NUMBER LESS THAN O °

s TYPE

TYPE

CMP
BEQ

.$TMPO

(06052
001205

ASL
JSR

THRU

JBR IF SO
; INPUT NUMBER LARGER THAN &

$TMPO,R1
#177760,R1

TYPE

#'4,8TMPO

MOV
BIC

TYPE

201174

TIME

;BR _IF

(MPR

JFIRST

001174
001205
001174
177760

001205
000065

JINITIALIZE THE KEYROARD
;AUTO BYTE SET ?
;IF SO, BRANCHM
JALLOW ANY UTILITY ROUTINE
;BR IF NOT

#'S5,8$TMPO
2%
DS.CYL

DS.TRK

BADSEC

;BR IF

:CR=LF

CHARACTER

;GET NUMBER
JLEFT OF THREE BITS
;WORD
;CALL

s CR-LF

INDEX
THE DESIRED UTILITY ROUTINE

.LOOP BA(CK TO THE
;CR=LF
;TYPE WHOLE

:BR IF

YES

SAME POINT

MESSAGE

AGAIN

;CLEAR ALL PARAMETERS

IRMLBL RMG5/3/2 FORMATTER

E*.P wRITE

BUFFER

MAIRT yUs. 00

4-APR-B1

LSBTTL

18:39:56 PAGE

SETUP WRITE BUFFER

JTHIS (ODE SETS UP THE SELECTED DATA PATTERN TO BE WRITTEN ON FA w

sWITH SWO=1

SSECTOR

7 013056

104401

& 213062

013746

013066

104403

013070
013071
9 013072
'0 013076

013102

14
15
16
17

013120
013124
G13130
013134

12 013106
13 0135112

18 013140
19 013142

20 013150
21 013154
S% 013156
5

24 013162

25 013166
26 013172
27 013176

002
000
104401
104401

036602
036622

012706
005037
005037
005737

001100
177776
0C1406
001320

001006
012737

001205
017642

TYPE

MOV

177777

TYPE
MoV

.SCRLF
#O0_ENTR
, Q#1KVEC

BNE
MoV

PC.TYPACK

ASTACK,SP
PS
UPDBSF
MODE

1%
#-1,UPDBSF

;TYPE

'DRIVE®

;. TYPE

DRIVE

NUMBER

;o TYPE 2 DIGIT(S)
;s SUPPRESS LEADING ZEROS
JTYPE *,°
;TYPE 1 BLANK
;TYPE

PACK

S/N

JRESET STACK POINTER
JPRIORITY - 0
JDON'T ALLOW UPDATE OF °'BSF'
;'FORMAT' OR 'VERIFY HEADER®

001350

2%:

MOV

w(C,R3

:SET JUP COUNTER

MOV

PATB,R2

JSET UP PATTERN

013702

010120

30 013206
31 013210
32 013212

005303
005303
001373

010220

001340

6%:

MOV

R1,(RO)+

DEC
DEC
BNE

R3
R3
4%

MOV

R2.(R0O)+

AT END OF
MODE ?
MODE

;BR IF 'VERIFY HEADER ONLY'
+ALLOW UPDATE OF 'BSF' AT END OF

013703

3s:

IN OCTAI

JCR=LF
;VECTOR FOR CONTROL-O

1%:

#BUFP RO
PATA,R1

"E<TED

..G0 TYPE-=OCTAL ASCII

015110

MOV
MOV

BEING

;:SAVE DRIVE FOR TYPEOUT

TYPE
BR
JMP

046234
001336

,MSFOR
2%
VFYHDR

WHEN LOOPING ON DRIVE

104401
(00402
000137

012700
013701

037315

JMUNTT

DRIVE ,=-(SP)
2
O
. SCOMMA
BLNKS1

MOV
(LR
CLR
TST

001406

RETURN HERE

BYTE
BYTE
TYPE
TYPE

JSR

000060

ALSO,

(SET).

TYPQOS

022622

104401
012737

ST3:

001222

004737

28 013202

29 013204

036573

IMAGE.

;TYPE 'STARTING FORMAT'’
JBEGIN FORMATTING
;BEGIN VERIFYING HEADERS ONLY
;SET UP MEMCRY PCINTER
;SET UP PATTERN IN R1
IN RZ2

JMOV 1ST PAT INTO MEM

MOV 2ND PAT INTO MEM

SKEEP COUNT
;KEEP COUNT
;DO IT AGAIN IF R3 NOT O

PASS

JHRMLB0O RMOS/ 370 FORMATTER
HEADERS

LSBTTL

WNNG

whiTE

000020

n
»H

—

O
OV

112737

005737

D ed et ad ol

016714
017120

D
b

013260

013262
013266

001002
105037
112737

004037
005540
000774
005737
001775

001356
005541
000143

031214

WRTRK:

005541

5
SEQ DUS.

HEADERS

JSR
JSR

PC,SETDPB
PC,SETHDR

movs
TST

#20,FMIDPB+1

005542

005556

CLRB
MovB
JSR

1¢:

2%:

FMTDPB
BR
TST

3%.

;SET DRIVE PARAMETER TABLE
;GO INITIALIZE HEADERS IN THE SE(TOR BUFFER [N ((OWF

SEC30

BNE

BEQ

JLOAD FMT16 BIT

;18 8IT MODE

1%
;BR IF NOT
FMTDPB+1
;JCLEAR THE FMT16 BIT
HSETFMT ,FMTDPR+2
. 'LOAD FORMAT' (OMMAND
RO .RMOS
;START THE COMMAND

;DPB ADDRESS

JQUEUE

FULL

RETURN

.LOOK FOR DONE
;LOOP UNTIL FINISHED

FMTDPB+16

JSET P "SECCU’

TABLE

WRTRKX:

§¥70P8012.#822.

;LAST CYLINDER ?

QQTDPB*11.LSTRK

sLAST TRACK OF LAST (YLINDER ?
;BR IF NO

WITH BAD

S ECTORS ON CURRENT

TRA(CK

et od

WRITE

JSET UP TO WRITE HEADERS AND DATA FOR FORMATTING
004737
004737

ONVRW NN

18:39:5% PAGE

4-APR-81

MATRO v04.00

023727

005552

001466

123737

005551

001324

013310

000137

015076

013314
013320
013324
013330
31 013332

012703
012704
012723
005304
001374

005434
000040

013270

013276
013300
013306

103406

103402

*s:

2%:

177777

CMP
BLO
CMPB
BLO
JMP

;LOAD THE

; THE

=
amlt ——l —l
aald al
i
B

e cnad —— —

— —

013334
013340
013342
013344
013350
013354

005737
003454
005046
012746
012702
005737
100402
012702
010201
012703
012704
062701
023712
001007

001404

003434
00424
001356

002430

123762

005551

116205

000002

001003
010523
062702
020201
002012
020304

3%:

005434
005524
000770
005552

000004

4%:
5%:

000003

6%:

'MFG'

CURRENT

TST
BLE
CLR
MOV
MOV
TST
BM]
MOV
MOV
MOV
MOV
ADD
cMP
BNE
(MPB
BNE
MOVR
MoV
ADD
(MP
BGE
(MP

[RACK ON CYL 822.

#SECCU,R3

JINITILIZE THE

sLOAD ALL LOCATIONS TO -1
;DONE YET ?
;BR IF NO

#32..R4
#-1,(R3)+
R4

DEC
BNE

IF NO

;DON'T DESTROY LAST

WRTRK2Z

MOV
MOV
MOV

;BR

AND

TRACK

;TOTAL OF

‘'USR'
10 BE

BAD SECTOR FILES

#USTAB+8.,~(SP)

HMFG16+8.
,R2

SEC30

3%
#MFG18+8.
,R2
RZ,R1
#SECCU,R3

HSECCU+64.
R4

#252.%2,R1

EQTDPB+12,(R2)
FMTDPB+11,3(R2)

R3,R4

°'SECCU"

ENTRIES

INTO THE

TABLE

'SECCU’'

TABLE FOR

FORMATTED

BSFAVL
9%
-(SP)

6%
2(R2) ,R5
R5,(R3)+
44 ,R2
R2.R1
8%

32.

;1S BAD SECTOR FILE AVAILABLF 7
:BR IF NO
;CLEAR UP THE DUMMY RETURN ADDRESS

;ADDRESS OF 'USR' BAD SECTOR TABLE
;SETUP ADDRESS OF 'MFG16' BAD SECTOR TABLE
;IS IT 16. BIT MODE ?
:BR IF YES
;SETUP ADDRESS OF 'MFG18' BAD SECTOR TABLE
;STARTING ADDRESS OF BAD SECTOR TABLE
:STARTING ADDRESSS OF 'SECCU' TABLE

:ENDING ADDRESS OF TABLE (32. ENTRIES)
:INDEX ADDRESS TU END OF TABLE (126. ENTRIES)

;BAD SECTOR ON THIS CYLINDER ?
;BR IF NO
;BAD SECTOR ON THE SAME TRACK ?
;BR IF NO

;YES=~-SAME CYL & TRK SO SAVE BAD SECTDR ADRS
:PUT BAD SECTOR IN "SECCU' TABLE

;ADVANCE TO NEXT SET OF BAD SECTORS ENTRIES
;AT END OF BAD SECTOR TABLE ?
:BR IF YES
;AT

END OF

°SECCU"

TARLE

JRM B0 RMOS/3/2 FORMATTER

ko TE

HEADERS

8 C13%42
55

MAIAT

L h,L.

<=APR=ET

B S
"B _33:5¢ FAGE T5-?

SEQ 0053

002007

BGE

60 013444

000757

JYES==SHOULD NOT BE
1ONF TRACK
*GET NEXT ENTRY

£2 013446
63 613652

004737
012737

JSR
Moy

PC,RESTRT
#-1,85FAVL

; IMPROPER MFG INFORMAT
[ON
ZINDICATE BAD SECTOR FIIE 1S NOT AVAILABLE

MOV

(SP) R

;GET

BNE

017522
177777

44 013460 000137 012142

‘J

56 013466

€7 013466

{ut40é

011601

000240

98:

1
£

013500
013506
C13510
013514

79 013516

012702

012703
012704
Q22712
001451
021262

80 013522
81 013524

103430
001406

83
8«
85
86
87
88
84
0

013526
013530
013534
013540
013542
013546
013550
013552

(011246
016212
012662
000421
022712
001416
010246
062702

92 013562

022702

95 013576

(012602

MOV

NOP

TABINT

(52)+,R2

JAND START AGAIN

013556

93 013566
94 013570

9% 013600

97 013602
98 013604
99 13610

100 013612

101 013614
102 013616
103 01362

104 013626

016222

101373
012737

005434

005532
000037
177777
000002

177777

2%:

000002
000002

005532
177777

001416
062702
020302

005532

162703

000002

CMpP

111

013646

005037

00136

14 017662

013737

001352

:BR IF NOT DUMMY (TERMINATOR)

SECTOR

'‘SECCU'* IN ASCENDING ORDER

;TGP OF

THE

TABLE

:BOTTOM OF THE TABLE
*TOTAL 32 ELEMENT,SORT 31
:1S THE TABLE EMPTY >
BR IF IT IS, QUICK EXIT
N TH ELEMENT

N+¢1

TIMgS

TH ELEMENT

43
2%

MOV
MOV
MOV
8R
(MP
BEQ
MOV
ADD

(R2) ,-(SP,
2(R2) ,(R2)
(SP)+,2(R2)
43
#-1,(R2)
4$
R2.-(SP)
#2.R2

;STORE N ELEMENT
JSWITCH N+1 ELEMENT TO N FLEMENT
;SWITCH N ELEMENT TO N+1 ELEMENT
JADJUST TOP POINTER
:TERMINATOR ?
BR IF IT IS
;SAVE TOP POINTER
DELET 2(R2)

(MP

#SECCU+62.,R2

:BOTTOM OF

MOV

2(R2), (R2)+

38
#-1,SECCU+62.

(SP)+ R?2

‘BR IF SMALLER
DELCT N+1 TH ELEMENT,
OTHERWISE, N > N+

THE

TABLE ?

JRESTORE

THE TOP POINTER

Ré

:DECREMENT ONE ELEMENT COUNT

:BR IF NOT

#SECCULRS
6$
18

SEXIT
:

6$:

(MP
BEQ
BR
NOP

FLAG.START OF A NEW TRA(K

WRTRK1:

CLR

(LR
LRB

MOV

SAME

:BR IF NOT
:LOAD =1 TG TABLE BOTTOM

R4
6%
#SECCU,RZ

BNE

005544

BAD

* DONE

DEC
BEQ
MOV

005434

001342
005550

(R2),2(R2)

'USR’

6%
#2.R2
R3,RZ

000002

005536

WSECCU+62..R3
#31. Ré
#-1,(R2)
6$

BEG
ADD
(mp

4%:

005434

005037

#SECCU,R2

ADDRESS

BLO
BEQ

MOov

5%:

022703
001407
000727
000240

005037
105037

MOV
MOV
(MP
BEQ

DEC

001341

005304
001410
012702

MOV

BHI
MOV

005304

013630
013634
013636
013640

112 013652
113 013656

18-

000002
000002

105
106
107
108

109 013642

SORT1:

'USR® BAD SECTOR TABLE

STARTING

:THIS CODE SORTS THE BAD SECTOR "ABLE
AND DELETES THE DUPLICATED ONES

76 01374

75
76
77
78

8s:

012602

68 013470 001343

33 013472

THAT MANY ENTRIES FOR

#2,R3

*BR IF ALL DONE
;INCREMENT THE TOP POINTER
JREACH THE BOTTOM ?
;DECREMENT ONE SORT COUNT
;BR If ALL DONE
JRESET TOP POINTER

:UPDATE BOTTOM POINTER
IF

TOP

BOTIOM

*SORT THE REST ELEMENTS
: DONE

SOF Sw

;CLEAR FRROR (OUNTER

WC,FMTDPB+4

-RESTORE

RETRY
FMTDPB+10

;ZERQ THE RETRY (OUNTER
JRESTORE SECTOR
w(

TABLE

KWos, 302 FORMATTER
wEALERS

."‘“ Bs

31367C

012737

046234

»
=
d
A

113737

012701

022711

001512

032711
001403
062701
000767

013742
" 32
133
134
135
136
137

013746
013750
C1375¢4
013756
013760
013762
128 013766
139 013772
'60
41 013774
142 014000

014004
144 014010
145 014012
146 014020
147 014022
143

123711
001416
103402

000137
111102

023702
001463
103471
005202
010237
052721
000432

005536
005434

000002
005550

005550

149 014026

022711
001443

177777

152 014036
15% 014042
154 014044
158 014046
156 14050
157 014054
158
159 014060
160 014064

023702
001430
103436
005202
010237

001360

013702

161 014070
162 014072

163 014076

164 0146102

165 014104
166 014110
167 014114
168 014116
‘69 0146122

014124

111102

052711

162702

006302
016203
113702

006302
166203

062703
005403
010337
000432

0127%7

WRTRKB:

100000

005550

(Mp
BEQ
elr
8EQ

MITIS, (R

;STARTING SECTOR
sR1 POINTS TO THE BAD SECTOR TABL
SEND OF °SECCU®
:BR IF YES

:LOOPING BA(K

WRTRKB
3$

WRTRKX

TABLE

s THE BAD SECTOR HAS ALREADY ACCESSED

;BAD SECTOR = STARTING SECTOR 2
;BR IF
;BR IF

IT IS
START SEC < BAD SECTOR

sSOMETING IS WRONG,
;THE

SAME

TRA(K

TRY SORTING AGAIN ON

(R1) ,R2
MAXSE ,RZ

MOV
BIS
BR

R2 NEXT
#BIT15,(R1)+
WRTRK(C

;BR IF LESS
JNEXT - BAD + 1
JNEXT STARTING ADDRFSS
JMARK THE ACCESSED SECTOR
;TO SET UP WORD COUNT

FMTDPB+10

s INCREMENT THE STARTING SFCTOR

INCB

WRTRKF
WRTRKD
R2

JUPDATE NEXT STARTING ADDRESS
sNEXT BAD SECTOR IS THE LAST SE(CTOR”
;BR IF LAST SECTOR

BIS

#BITIS5,(R1)+

BEQ

WRTRKB

;LOOP AGAIN

BLOS
JMP

1%
HDRSET

; IMPROPER MFG INFORMATION
JEXIT

(mp
BEQ

#-1,(R1)
WRTRKD

;TO SEE IF NEXT BAD SECTOR
:BR IF NONE

WRTRKD

;BR

#BIT1S (R1)

;MARK THE ACCESSED SECTOR

FMIDPB+10,(R1)

FMTDPB+10 ,MAXSEC

(R1) ,R2
MAXSEC,RZ
WRTRKF

005536

INC
MOV

R2
R2 NEXT

005536
000002

WRTRKL: MOV
SuB

BLO

BIS

ASL

JMARK THE ACCESSED SECTOR

;STILL ON ANOTHER BAD SECTOR ?

s IF START SECTOR > MAXSEC

LESS

JBAD SEC +1
JNEXT STARTING ADDRESS

NEXT _R2
#2 R

;CALCULATE THE WORD COUNT
LENDSECTOR = NEXT - 2

WCTBL (R2) ,R3
FMTDPB+10,R2

; WORD CTR FOR SECTOR O TO ENDING SECTOR
sSTARTING SECTOR

;WORD

INDEX

;WORD

INDEX

MoV
MOVB

006164
000402

SuB
ADD
NEG

WCTBL (RZ) ,R3
4258.,R3
R3

WRTRKE

R3,FMTDPB+4

;LOAD THE WORD CTR INTO DPB

MOV

a-1,NEXT

SALL

005544
177777

MoV

Q005536

WwRTRKF:

IN TABLE

JUPDATE THE NEXT
;BAD SECTOR [S THF LAST SECTOR ?

206164
005550

ASL

;sADJUST THE POINTER

MOvR
(mp
BEQ

mMove
Mp
BEtQ

100000

AND BUFFER ADDRESS

;BR IF NOT

FMTDPB+10,(R1)

BEQ
8LO

;RESTORE BA

{mPB

(MPS

1%:

#~1,(R1)
wRTRKD

#2 ,R1

{MPB

001360

NEXT ,FMTIDPB+10
#SECCU,RT

ADD

BLO
INC

005536
100000

015010

50 014032
°51 014034

3$:

15-2

TO SET UP WORD COUNT

JMP

001360

123711

101402

2%:

013270

005550

001771
123737

18:

18:39:56 PAGE

#BUFP_FMIDPB+6

WRTRKA: MOVB
MOV

100000

105237

052721

005550

177777

000137

1TM

MOV
sTHIS CODE

170

4-APR-B"

(C0554¢

s o-a

N = OYMD N

nUNUTy
—

MA'RO v04.00

JWORD COUNT FOR SECTOR O TO STARTING SECTOR
sADJUST ONE SECTOR
JGET THE NEAGTIVE WORD COUNT

;LOAD THE STARTING ADDRESS
DONE

SRV By mMOS, 40

wh,7E

Wt ADERS

FORMAT TER

172 014132

0527

:;fi 014140

73 014136
J

$302

176 014142

012737

179 014154

006302

;;g 014150

“80
181
182
"83
86
*85

0164156
Q14162
014166
0164170
014174
0146200

186 014202

013702

(016203
113702
006302
166203
062703
005403

ML HT

177777

001360

00553€

006164
005550

005550

Ig; C14216

016237

Q0C6064

(0R546

163 014224
184 014232
195 014240

112737
012737
012706

000163
014232
001100

005542
001124

190 014214

196
197
198
199

200
201
202
2034
204
205
206
207

014244
014250
014252
0142546

006302

004037
005540
000774
005737

014260
014262
014264
014272
014276
014300
014302
014304

0061775
100024
012737
004737
104010
104011
104012
104013

5?3 014310

104015

208 014306
211
212
213
214

sMASK THE SECTOR

WRTRKH

sPAT(H

ASL

;WORD

INDEX

R3,FMTDPB+4

;LOAD

THE WORD COUNT

MCV

MOV
MOVB
ASL
SUB
ADD
NEG
MOV

NOP
WRTRKE: MOVB

ASL

MOV
WRIRKZ2:

2%:

001176

MOVB
MOV
MOV

JSR
FMTDPR
B8R
TST

001342

216 014334
gzg 014340

005037
005037

001176
001342

001342

3¢:

MAXSEC R
WCTBL (R2) ,R3
FMTDPB+10,R2
R2
WCTBL (R2) ,R3
#258. ,R3
R3

FMTDPB+10,R2

RZ2

#WRTHD ,FMTDPB+2
#. . 8LPERR
#STACK,SP

RO ,RMOS

;WORD CTR FOR THE ENDING SECTOR
;STARTING ADDRESS
;WORD INDEX
;WORD (TR FOR THE STARTING SECTOR
;ADJUST ONE SECTOR
<NEGAT]IVE WORD COUNT
;DONE

INTO DPB

.STARTING ADDRESS

JLOCATE THE BUFFER ADDRESS
;BUFFER ADDRESS

;SET WRITE HEADER & DATA COMMAND
;SET UP LOOP ON ERROR ADDRESS
JLOAD STACK POINT

FMIDPB+16

;GO FORMAT A TRACK
;ADRS OF PARAMETERS - TBL
JWAIT FOR QUEUE IF FULL
JWAIT FOR COMMAND TO COMPLETE

;DRIVE UNSAFE ERROR

2%
A 3
#3% ,8ESCAPE
PCERINDX
10
1
12
13

EMT

JSR
(MP
BEQ
INC

PC,LOP.(K
#3 ,RETRY
A
RETRY

CLR
CLR

$ESCAPE
RETRY

B8R

.LAST SECTOR

ADRTBL (R2) ,FMTDPR+6

BEQ
BPL
MOV
JSR
Em7
EMT
EMT
EMT

EM7

016646
000003

:PATCH FOR THE LAST SECTOR

WwRTRKH:

005556

004737
022737
001403
005237

sNO MORE BAD SECTOR

104014

000744

#3715, (RY)

#-1_,NEXT

1%:

014312
014316
014324
014326

215 014332

8IS

MOY

031214

014312
016550

5
D
1B:39:56 PAGE 15-3

WRTRKD:

006164
0004602

113702

89 014210

4=-APR-B7

DEC

005544

000240

100007

010337

;gg 074206

:BR IF NOT DONE
;BR IF NO ERROR
;ESCAPE TO 3% ON ERROR
;SEE WHICH ERROR
.
sDRIVE OFFLINE
:PERSISTENT DRIVE UNSAFE ERROR
JUNCORRECTABLE MASSBUS PARITY ERROR
;SOF TWARE TIMEQUT
:DRIVE/CONTROLLER ERROR DURING WRITE

;LOOP ON THE ERROR ?
;ERROR RETRY LIMIT 7
;BR IF RCACHED
;COUNT THE ERROR

;TRY AGAIN

;CLEAR ERROR ESCAPE ADDRESS
;CLEAR THE RETRY (OUNTER

TRL

JHW

RMOS

wi
e TRATK

R/0

L ST

FORMATTER

MATRD

Lu6.00

4~APR-BT

'B:3G:56¢

WHITTEN

PAGE

¥Q

LSBTTL

7
;

:SET UP TO (HECK THE TRACK JUST WRITTEN, WITH A WRITE
:AND DATA COMMAND

£ 01364

> 016352
8 214360

012737
012706

112737

000153

S (6364

004037

031214

1 014372
12 014374
"2 016400

000774
(005737
001775

005556

113737

005566

001344

(013737
005237

001360
0C1344

001344

(012737

014736

001176

1) C14370

jf Cl6a02
6 016406

*7 014412

18 0144616
16 1464422

20 014426

21 014432

22 016440

2% 014444

005540

001005

005337

004737

104010

10401
104012

27 016454

104014

000240

30 0146460
3 014466

(32737
001005

014470
014474
(14476
014500

001344

016550

27 014502

005737

001316

39 014510

012737

014762

42 014530
LZ 01453%

#UCKHD FMTDPBe? ;SET WRITE

¥, ,SLPERR
#STACK,SP

JSETUP LOOP ON ERROR ADDRESS
JLOAD STACK POINTER

1%:

JSR

RO ,RM0S

;G0 CHECK THE

2%:

B8R
TST
B8tC

1%
FMTDPB+16
2%

JWAIT FOR QUEUE IF FULL
JWAIT FOR COMMAND TO COMPLETE
<BR IF NOT DONE

001413

004737
012737

004737

104017

MOV
MoV

FMTDPR

MOVR

BNE
ki §

020146
100000

020754

BADSEC

JADUUST 10 BAD SECTOR

JRESTORE TO LAST SECTOR +1
JINCREMENT TO LAST SECTOR +1

;2ESCAPE TO 118 ON ERROR

i
EMT

1
12

;PERSISTENT DRIVE UNSAFE ERROR
;UNCORRECTABLE MASSBUS PARITY ERROR

EMTY

BIT
. WORD
BNE
EMT

10
13

;DRIVE OFFLINE
;SOF TWARE

TIMEOUT

;DRIVE UNSAFE ERROR
;FILLER FOR

'"ERINDX'

ROUTINE

#JCE RM_REG+RM(S?2
WRITE (HECK ERROR ?
4%
;BR IF YES

RM.REG+RMER1,(PC)+
:CHECK FOR DATA [RRORS
DCK.OPI'DTE.HCRC'HCE!FER
4%
:BR IF YES
16
;CONTROLLER/DRIVE ERROR DURING WRITE

(HE(K

TSY

SOF SwW

JRETRYING THE SECTOR ?

MOV

#12% ,S$ESCAPE

;;ESCAPE TO 12% ON ERROR

JSR

P{,RESET

JRESET THE HEADER BITS AND WRITE HEADER

BEQ
JSR
MOV

00141¢C

.GET THE SECTOR ADDRF3S

JSEE WHICH ERRCR

BIT
BNE

001176

TBL

C,ERINDX

gEM7

TRACK JUST FORMATITED

PARAMETERS -

;BR IF NOT SECTOR O

#1183 ,8ESCAPE

[N TR,

;BR IF NO ERROR

RM_REG+RMDA ,BADSE(C

MOV

DE(C

sADRS OF

CHECK HEADER £ DATA TOMMAND

£1 9

MAXSEC ,BADSEC
BADSEC

JSR

00557C

MOV
INC

NOP

005574

40 014516
&1 014522

MOVB

EMT

040000

(HE{K HEADER

(XTRK:

8PL

033727
130620
001001
104016

38 014506

007124

104013

gg 014456

32
T3
3L
;2

005547

100132

24 014446
25 0146450
26 014452

014352
001100

(HECK TRACK JUST WRITTEN

ErT

PC,RECORD
#MF _HDRBIT
17

;BR IF NO

JRECORD THE BAD SECTOR IN USR
JINDICATE ‘USR' BAD SECTOR
JRETRIES NOT

TABLE

SUCESSFUL-SECTOR NOT

ACCEPTABLE

45
46
&7
48
49
50

(01653
01454¢
014550
014552
014554
014556

005037
032737
(01002
104024
000401

51 014556

104020

£2 0164560
53 014564

013701
113737

S4 014572
55 0145764

006301
016137

001176
040000

005572

(LR
BIT
BNE

$ESCAPE
JRESET ESCAPE ADDRESS
#ERR,RM_REG+RMDS
;DATA ERROR ?
(%
:BR [F YES

EMT

001344
001344

005550

006064

005546

7%:

JWRITE

EMT

;DATA ERROR DURING WRITE (HECK

MoV
MOVB

BADSEC ,R1
;FAILING SECTOR ADDRESS
BADSEC,FMTDPR+10
;SECTOR ADDRESS

ASL
MoV

CHECK ERROR

. CONT INUE

Rl
;SETUP INDEX TO ADDRESS WORDS
ADRTBL
(R1) ,FMTDPB+6
;BUFFER ADDRESS FOR FAILING SEf "0k

5¢

1‘~~‘. g\' MOS8 SORMAT TEH

TRACK

JUST

WO
RQO N N 4NV SN N
OO
4
Kv KS818E oW
m\gmbwm-'oom NO N N ~=000
N RIS
4 At
[V a¥]
”

014624
014626
014632
014636
014640
0146644
0146646
074652
014560
014664

014670
014674
014676
014704
014706
014712
014714
014722
016724

014730
0146734

F
w...

001369
005536

&=-APR

<B1

MOV

005536
000002

8%:

006164
005550

012737
005237
000137

001346
177376

001316
014224

005737
001432
022737
001403
005237

000002

123737

001360

000624

01417
004737
005037
000613

00131¢

00555C

10%:

017072

001316

005037
005037
005037
005737

001342
001316
00553¢

00637

13676

100402

9%
:

001316

014762
014766
014772
014776
015002
015004

000137

(05544

001316

004737
022737
001604
005237

016646
000003

001342

11%:

001342
014364

001176

TST
BM]
MOV
SuB
ASL

MoV
Move
ASL

006164

014736
014742
014750
014752
014756

¢15010

4T,

18:39:

PAGE

5
16-1

WRITTIEN

56 014602
57 014606
58 0164612
49 014614
¢0 014620
1

NEXT R

#2 R1
R1
Ww(TBL (RY1) ,R?
f?tDP801O,r1
R

;WHOLE

TRACK DONE

;sBR IF IT IS
sLOAD CURRENT ENDING SE(TOR
;ADJUST

TWO SECTORS

;WORD INDEX
;WORDCTR FOR ENDING SECTOR
;STARTING ADDRESS

:WORD COUNT
JWORD CTR FOR STARTING SECTOR

SUB
NEG
MOV
MOV
INC
JMP

WRTRK?2

;REFORMAT

17
BEQ
cMP
BEQ
INC
BR

SOF SW
12%
#2,SOF
SW
108
SOF SW

JRETRY IN PROGRESS
;BR _IF NOT

(mMPB
BEQ
JSR
LR
BR

MAXSEC ,FMTDPB+*0
;SEE
12%
;BR IF
PC,SCAWC

sSETUP TO CHECK REMAINING SECTORS ON THE TRA{K
;sCLEAR RETRY COUNTER
sFINISH CHECKING THE TRA(K

JSR
(mpP
BtQ
INC

PCLOP.CK
#3 RETRY
12%
RETRY

;CHECK FOR LOOP ON ERROR
;ERROR RETRY REACHED ?
(BROIF IT IS

(LR
CLR
(LR
TS{
4

14%:

JR1 ENDING SECTOR #

Ww(CTRL (R1) ,R2
R2
R2,SAVW(

JMP

12%:

R
MAXSEC
NEXT

JMpP

;SAVE THE WORD COUNT
#-258, ,FMTDPR+4 ;WORD COUNT FOR 1 SECTOR
SOF SW
;INDICATE THAT A RETRY IS iN PROGRFSS

SOf SW
1%

AR 3

$F SCAPE

RETRY
SOF Sw
NEXT
13%
A
WRTRK

ERROR

SECTOR

;SEE IF LAST RETRY
JBR IF IT IS
;s INCREMENT RETRY (OUNT

JREAD

:COUNT

AGAIN

IF LAST
IT IS

SECTOR ON THE

TRA(K

THE RETRY

;DO THE WRITE CHECK AGAIN

sCLEAR THE ERROR RETURN ESCAPE ADDRESS
;CLEAR THE RETRY (OUNTER
sCLEAR

THE

SOF TWARE

JWHOLE TRACK DONE

:BR

OIF

RETRY (COUNT

)

18419
015016

315020

015024
015032
015036
015042
015044
015050
015052
015056
015062
015066
015072
015074

£15076

015102

015104

§_NMATTE
&

~ANER

777
6«02

006CCe

137

01327C

704

737

040000
005434

414
714

040000

714

52714
111437

004737
062704
000761
000240

004737
000402

000137

VA KD 06,00

4-aFPR-87

G
"8:39:5%¢ PAGE

PORLUNUND 2o

d e

b od e

WO
= Q QOO PN
NPy A OO0 PN N

tlt

-2

2828822
883
SN-'NNN
-r

.,.v-.‘

177777

040000
001344
020754
000002

164" 3¢

00147¢

LSBTT

ROUTINE

7O SET HEADER BIT

HORCET

817
8EQ
JMP

M1 ,aSwR
1%
WRTRK
X

;START AGAIN ON THE

MOV
MOV
P

#UF _HDRBI T
#SECCU,RS
#=1,(R&G)

JINDICATE 'MFG' BAD SE(CTOR

1%:

3%
A ¥

016770
013270

WRTRKZ:

B8EQ
BIT
BNE
8IS
MOVS
JSR

4%
#BIT14,(R4)

#1114, (R4
(R&) ,BADSEC
P(,RESET
#2,R4

JLOOP ON ( RRENT TRA{K
;B8R IF NOT

SAME

TRA(Y

JTABLE FOR BAD SECTOR ON CURRENT
JEND OF TABLE ?
;BR _IF SO
sHAS

THE

;BR If SC
;MASK

SECTOR BE

THE

SECTOR

;SECTOR ADDRESS
JRESET

THE

TRA(K

ASSCESSED ?

TAMLE

HEADER

; INCREMENT THE TABLE POINTER
sLOOPING BACK
JALL DONE

JSR
BR

PC,.TRKIST

:GET UPDATED TRACK AND CYLINDER ADDRESSES

JMP

X
WRTRK

ADD
BR
NOP

VF YHDR

JRETURN HERE

DONE

JAND DO QUICK CHECK OF D]SK

JCONTINUE WITH THE FORMAT

wao.

w=APR=BY

.inz

:7HIS

VERIFY HEADER ROUTINE
(ODE

MAKES

SURE

EACH

CYLINDER FORMATTED

(ONTAINS

THE

OO
OHrOONOID
gOmmbbwwr\:Ng

D —d

—d

D v
d
el

D
g =B
D e S

LA AU

el
el
—

md ned D d

LNA

e
el
b e

QOO MNCOOOOOOOCOOOTO

;PROPER (YL INDER ADDRESS. THE PROGRAM IS LOOKING FOR
;POSSIBLE POSITIONER ERRORS THAT MAY HAVE OCCURRED DURING THE fCRMAT,
005037

(01342

1064401
000402
104401
004737
004737
012700

037337

005737
001003

012701

O,
NN
WWOININ
= 2O
OO OoNUES

VIS ANE BB N
Ao
ON

3%:

106434

005544

005237

001322

012737

015212

001124

023727

005552

001466

005737

WNANUALNUNUNAAAAN

COOOO0OOOOO
ad
ek
ad
e
—b

2%:

005544

"23737
001405

NV TV, LV LV LV AV BV 1V, 1V, JV ]

OCOODO0

kb
et
e
s

016714
017120
046234

177776

103404

LOOOOOOO0

037376

005546
001352
001322
0C1320

012737

vFYHDR:

0C1$2C

010137
013737
005037
005737
001005

112737

[ RV, U RV LV, SV LV, AV BV

S D i SN

PSPy

NN S COONYP
NS W OO NN N

¥ WY AN —=OVRNINE
W=
O V00 ~N o (V.

N NN
AN NN IaVI1ANVTAN
LaW ] SN AN'E o W o N S
FAVNLIV, N ol ol 20 S S SX Y > FoS S WA v N W NN

W= OO0

RV
4

LSBTTL

"B:39:56 PAGE

001002
105037
112737
004037
005540
000774
005737
001775
112737

004037
005540

000737

000020

005551

005547

031214

005547

031214

005737
001775

005556

012737
C04737

015562
(016550

8%:

5%:
108:

005542

17%:

12%:

100046

TYPE
BR
TYPE
JSR
JSR
MOV

MoV

RETRY

;JCLEAR RETRY COUNTER

JMSQVER
2%
MSVER
PC,SETDPB
PC,SETHDR
#BLFP,RO

sTYPE

'STARTING QUICK HEADER VERIFY'

;TYPE

'STARTING HEADER VERIFY'

MODE
1%

A#BUFV,R1

mov
MoV
(LR
TST
BNE

R1,FMTDPB+6
MWC ,FMTDPB+4
SNGSEC
MODE
5%

iNC

SNGSEC

MOV

#-2 ,FMIDPB+4

sSET DRIVE PARAMETER TAB'E
;SET HEADERS IN CORE
;GET STARTING ADDRESS OF EXPECTED HEADERS

;GET STARTING ADDRESS OF RECIEVED HEADERS
;SET UP BUFFER ADDRESS
;SETUP WORD FOR VERIFY ONLY MODE
JSETUP MULTI-SECTOR READ FLAG
;1S IT 'VERIFY HEADER ONLY' MODE
JBR IF YES
;SFTUP SINGLE SECTOR READ

;SETUP LOOP ON ERROR ADDRESS

{Mp

FMTLPB+12,#822.

;1S IT LAST CYLINDER ?

#20,FMTDPB+]
7$

JSETUP WORD COUNT FOR QUICK VERIFY

#. ,8LPERR

MOVB

sLOAD

'FMT'

BIT FOR 16 BIT FORMAT

(MPB
BEQ

FMTDPB+11,LSTRK ;LAST TRACK OF LAST CYLINDER (BSF)
8%
;BR IF YES

BNE
CLRB
MOVR
JSR
FMTDPB
BR
TST
BEQ

8%
sBR IF YES
FMTDPB+1
JLOAD 'FMT' BIT FOR 18 BIT FORMAT
HSETEMT FMTDPR+2
[ 'LOAD FORMAT' COMMAND
RC,RMOS
;START THE COMMAND
;DPB ADDRESS
9%
;QUEUE FULL RETURN
FMTDPB+16
;LOOK FOR DONE
108
;LOOP UNTIL FINISHED

SEC30

;1S IT 16 BIT MODE ?

MOVR

#RDHD ,FMIDPB+2

;SET UP READ HEADER & DATA (OMMAND

B8R

JWAIT IF QUEUE IS FULL

BPL

i5%

;BR

1ST

JSR
FMTDPR

TST
BEQ

RO,RMOS

FMTDPB+16
129

#18%,$E SCAPE
P(,ERINDX

104012
104013

EMT
EMT

12
13

000240

NOP

106014

;1S 1T 'VERIFY HEADER ONLY' MODE 7
;BR IF YES, ELSE

MoV

MOV
JSR

104010
104011

001176

1ST
BNE

BLO

7%:

005556
000173

5%:

68:

001324

001356
005541
000143

4%:

(LR

tEMT
EMT

EMT

10
1

;GO READ HEADER
;ADRS OF PARAMETER TBL

JWAIT FOR COMMAND TO COMPLETE
;BR [F NOT DONE
IF

NOT ERRCR

;;ESCAPE TO 18% ON ERROR
;SEE WHICH ERROR

;DRIVE OFFLINE
;PERSISTENT DRIVE

UNSAFE ERROR

JUNCORRECTABLE MASSBUS PARITY ERROR
;SOF TWARE TIMEQUT
;DRIVE UNSAFE ERROR

JFILLER FOR '"ERINDX' ROUTINE

L L

v LA

s Lotk O ROUTINE

CR3G

032787

OLOLLT

s
153720
¢ 315376
¢ NI5376
7 31686402

005737
001701
005237
022737

(01322

£S5 375612

022737

e 83k

6 T315610

Q01427

101273

Lo,
«7
»8
.9

015620
3168422
015430
015432

001404
032737
001601

" 015432

104022

315636

022737

73 015644

104021

*2 015642

i
’S (15446

76 C15452
7?7 015460

79
BO
81
82
8%
84
BS5

015464

001453

000003

00134¢

TSY
8fQ
ING
MP

SNGSEC
43
RE TRY
#3_RETRY

JALREADY READING SINGLE SE. TOKe
:BR IF ND
J INCREMENT RETRY (OUNT
JTRIED 3 TIMES 2

000200

00557«

(mpP

#(E
RM RFG+14

000400

00557«

001342

100000

Q05622

001466

005551

001324

010000
140000
0646224
0462246

046230

104023

046230

016037

000002

Q46232

023737

046226

046232

Q15550

92 015556
gz 015560

016137
001405
104007

BH1

000002

15%:

16%:

046226

:BR ]F NO

JBR

EMmY

J'HCE® OR *HCRC' ERROR VERIFYING HEADERS

(mpP

#RSE _RM_REG+4?2

;BAD SECTOR ERROR ?

EMT

*CONTROLLER/DRIVE

(R
MOV
MOV

RETRY
#18% ,$ESCAPE
(RO) ,RBUF +4

;CLEAR RETRY (COUNT
;:ESCAPE TO 18% ON ERROR

BLO
CMPB
BNE
BIS
BIS
MOV
(MP

16%
FMIDPB+11,LSTRK
16%
#FMT ,RBUF +4
AMF UF , (RT)
(R1) ,RBUF
RBUF ,RBUF +4

;JBR IF NO
;LAST TRACK OF LAST CYLINDER (BSF) °
;BR IF NO
;BAD SECTOR FILE IS ALWAYS 16 BIT MODE
;SET MFG AND USR GOOD SECTOR BITS
sGET RECIEVED CYLINDER HEADER
JSEE IF CYL READ EQUALS CYL EXPECTED

EMT

BEQ

MOV

19%

FMIDPB+12,#822.

17¢%

Z2{R0) ,RBUF +6

:BR IF

;BR IF (YL CORRECT

JCYLINDER FIELD IN HEADER IS NOT (CORRECT

JGET EXPECTED TRACK/SECTOP

2(R1) ,PBUF +2

sGET RECIEVED TRACK/SECTOR HEADER

BEQ
EMT

19%
7

JBR IF YES
sTRACK/SECTOR FIELD IN HEADER

JCHECK FOR LOOP ON ERROR
JFAILED DURING HEADER CHECK, REJECTED

RBUF +2 ,RBUF +6

;1S

18%:

JSR
JMP

PC,LOP.CK
REJCTS

98 C155/72
99 015576
100 015600

005737
001416
123737

001320

19%:

157
BEQ
(MPR

MODE
;1S
20%
;BR
FMTDPB+ 10 ,MAXSEC

ADD
18T
BNE
ADD

#516. RO
SNGSE €
118
#516. ,R1

103
104
105
106

015614
015620
015624
015626

062700
005737
001235
062701

109 015634

105037

;8; 015632

110 015640
111 0156446
"12 015652

13 015654

000705

105237
123732
101003

004737

BEQ
INCB

005550
001004
001322

001004

005550
005551
(0055571

(07320

2us:
Q0133

EADER

MOV

{MP

001360

ERROR VERIFYING HEADERS

;1S 1T LAST CYLINDER ?

016646
016510

005550

YES

JGET EXPECTED CYLINDER HEADER

Q04737
000137

001412
105237

;]S IT A HEADER (OMPARE ERROR

S5 015562
3? 015566

101 015606
102 015610

13%
;BR IF YES
#H RC,RM_REG+14 ;IS IT A HEADER CR( ERROR ?
14%
JBR IF NO

BEQ

173%:

15¢%

BEQ
BIT
BEQ

(MP

046230

89 015534

90 015542

BEG

13%:

005552

gg 015532

5
'B-T

ANY DRIvE ERKCRS

023727

001401

TR:3G:45¢ PAGE

#ERR ,RM_REG+'2

00117¢

103407
123737
(01003
052737
052711
0211137
023737

==APR-BT
8!7

001342
015562

011037

DSt

005037
012737

015472
015474
015502
015504
015512
015516
015522

86 015530

ML,

(LRR

INCB
(MPB
8Kl

JSR

TRACK AND SECTOR (ORRECT

IT
IF

IS NOT (ORRECT

"FORMAT' MODE ?
VES
;DONE WITH ALL SECTORS ?

20%
FMIDPB+10

:BR IF YES
;UPDATE SECTOR ADDRESS

15%

;G0 COMPARE NEXT SECTOR

;ADJUST POINTER TO NEXT EXPECTED HEADER
;READING ONE SECTOR AT A TIME ?
JBR If YES
;ADJUST POINTER TO NEXT RECIEVED HEADER

FMTDPB+10

;START AY SECIOR O

P( ,UPDTRK

JUPDATE

FMIDPB+11
: INCREMENT TRACK NUMBER
FMTDPB+11 ,MAXTRK
CWAS [T LAST TRA(K ?
218
:BR IF YES

TRACK ADDRESS

IN BUFFER

SRV o0 RM0S5/73/72 FORMAT TER
AHIbY HEADER ROUT INE

C15660

000425

015662

113737
005737
001407

jinr Qe

Ghar QS

[dlolalelslolalalals)

NN
WSOV
NN

QP AEEY S

& ol

NINIPOPONINUNONY =2 2 2 —

001334
001376

005337
023737
002413

00555¢
005552

005237
023737

005552
005552

004737
000137

017206
015144

000406
101004

MATHG

005551

,ub. .00

2% :

4-AP&-B

00132¢

243

MOVB
18T

MINTRK ,FMIDPB+11

DE(
CMP

BLT

22%:

238:
24%:
25%:

18=2

BEQ

001326

'8:39:56 PAGE

B8R
INC
CMP
BH]
JSR
JMP

;GO READ NEXT TRA(K

sGET STARTING TRACK ADDRESS
JSEEKING FROM HI TO (O CYLINDERS ?
22%
:BR IF NO
FMTDPB¢+12
sDECREMENT CYLINDER ADDRESS
FMTDPB+12 ,MAXCYL
:DONE WITH VERIFY ?
25%
;BR IF YES
23%
FMiDPB+12
s INCREMENT CYLINDER ADDRESS BEING (HECKED
FMTDPB+12 ,MAXCYL
;DONE WITH VERIFY ?
25%
;BR IF YES
PC,UPDCYL
;UPDATE CYLINDER ADDRESS [N BUFFER
3%
:GO READ NEXT CYLINDER

WRAP

TE X
JRM BT RMO5/ 372 S LRMAT

END OF

v064.00

4-4PR-81

*8:39:56 PAGE

PASS ROLTINE

LSBT T

END OF

PASS ROUTINE

;'-tqtttltt.ttttt'tfitt"t'ttQQttlQQQnnttt.ntt‘nt.n'.tttwtt.t'nn"-

:*INCREMENT THE PASS NUMBER ($PASS)
;+1F THERES A MONITOR GO 70 |7
;*1F THERE ISN'T JUMP TO DONE
005737
001535
005037
004537
003434
004737
112737
112737

016014
016016
016024

$EQP:
1%:

001406

001342
020250
020410
000020
000143

005541
005542

004037
005540
000774
005737
001775

031214

2%:

005556

3%:

012737

001466

005552
005551

157700

005544
005546
005542

001324
005550

016032
016036
016044
016052

046234
000163

016060

004037

031214

4%:

005556

5%:

001775

012737
004737

016126
016550

005237
022737

001342
000003

000137

016464

122737

000037

005550

113737

005566

001344

000037
001344

001344
005550

bt 2ol

OOOO0OOO0O

—

016100
016106
016172
016114
C16116
016120
016122
016124

140

104010
104011
104012
104013
104014
104015

101347

003431

001176

001342

MOvB

JSETUP THE BUFFER FOR THE BAD
;16 BIT MODE
ASETFMT FMTDPB+2
;SET FORMAT (OMMAND

+SR

RO,RMOS

;CALL

;LOOP IF QUEQU FAILS

;BR IF NOT

FMTDPR
BR
TST

BEQ

MOVB
CLRB
MOV
MOV
MovB

100060

OCOO

016066
016070
016074
016076

005540
000774
005737

JUPDATE LAST TRA(CK °
;BR _IF NO
;CLEAR RETRY COUNT
;SORT THE USTAB IN ASCENDING FORM

Mov

113737
105037
012737
012737
112737

016064

TST
UPDBSF
8%
BEQ
RETRY
CLR
R5,SORT2 |
JSR
USTAB+8.
PC,SETBSF
JSR
#20,FMTDPB+1
MOVB

;ALL DONE

#822. ,FMTIDPB+12 ;CYLINDER ADDRESS
LSTRK,FMTDPB+11 ;TRACK NUMBER
FMTDPB+10
:SECTOR O
#-<258.+32.> FMTDPB+4
;WORD (OUNT
;BUFFER ADDRESS

RO,RMOS

;CALL THE DRIVER

4%
FMTDPB+16

:LOOP IF QUEUE
sALL DONE ?

#6%, SESCAPE
oC ,ERINDX

;ERROR ESCAPE ADDRESS
;ERROR INDICATOR RT.

INC
CMP
BHI
JMP

RETRY
#3,RETRY
4%

; INCREMENT RETRY COUNT
JOVER 3 TIMES ?
JBROIF IT IS

(MPB
BLE
MovB
BNE
MOV

#31.,FMTDPB+10

JSR

FMTDPB
BR
TST
BEQ
8PL

JSR
EMT
EMT
EMT
EMT
EMT
EMT

MOVB

SECTOR FILF

THE DRIVER

H#BUFP ,FMIDPB+6

MOV

6%:

FMTDPB+16

;TABLE ENTRY POINT

HWRTHD ,FMTDPB+2 ;WRITE HEAD AND DATA COMMAND

5%
8%

10
11
12
13
14
15

REJCT3

FAILS

;BR IF NOT
JEXIT IF NO ERROR

;DRIVE OFFLINE
;PERSISTENT DRIVE UNSAFE ERRCR
JUNCORRECTABLE MASSBUS PARITY ERROR
s SOF TWARE TIMEOUT
;DRIVE UNSAFE ERROR
;DRIVE/CONTROLLER ERROR DURING WRITE

;UNABLE
;LAST

TO WRITE

THE BAD SECTOR TRACK

SECTOR ?

:BR IF ALL SET

RM.REG+RMDA ,BADSEC
;FOUND THE BAD SECTOR
7%
;BR IF NOT 0
#31. ,BADSEC
;THE LAST SECTOR IS A BAD SECTOR

BADSEC,FMTDPB+10

;LOAD THE NEW STARTING SECTC(R

A’

FORMATTER

FASS ROUTINE
113701

16210
216216
016224
0162 32
016 236

006301
016137
012737
066137
005037
000710

006064
157700
006164
001342
037427
001126

104401

037442
001126

013746
104405

005037
005037
104401

005737
001030
013737
005237
042737
005327
000001
003013
012737
000001
016330
013700
001405
000005
(04710
000240
000240
000240

MATRD v04.00

MOVB

001216
100000

9%:

001400
001216

000042

001150

004737
000137

017360
024414
010446

232777
001002
000137
000137

000001

011124
013056

TYPE
TST
BEQ
TYPE
MoV
TYPDS

[INDEX
;BUFFER ADDRESS
+WORD COUNT

WCTBL (R1) ,FMTDPR+4

;WORD COUNT

RETRY
A 3

JRESET THE
;BR BA(K

JMSCMPTY

JTYPE

+/NUMERR

:TOTAL ERRORS

SERTTL
2

$ERTTL ,=-4SP)

RETRY FLAG

'COMPLETED®

JANY ERRORS DETECTED
;BR IF NO

;2SAVE SERTTL FOR TYPEQUT
2:G0 TYPE--DECIMAL ASCI] WITH SIGN

JALL ASSIGNED DEVICE DONE
;10 FORMAT NEXT DRIVE

$PASS

;o INCREMENT

MoV

.WORD
SEOPCT

BEQ
RESET
: JSR
$ENDAD
NOP
NOP
NOP
$DOAGN:
JMP
$RTNAD: .WORD

2%:

JLOAD THE WORD TR AND BUFFEH

R1
s WORD
ADRTBL (R1) ,FMTDPR+6
#-<258.+32.> FMIDPR+4

DEVMP
DONE

INC
BIC
DEC
$EOP(CT: .WORD
BGT

1%:

SEQ 0063

BNE

$GET42: MOV

162536

BADSEC( R

'9-1

SERTTL
UPDRSF

MoV

:
DONE

'8:39:56 PAGE

CLR
CLR

TYPE

$ENDCT:

105737

001406
004737

(LR
BR
8%:

001126
001406
042423
001400

001402

AL
MOV
Mov
ADD

0055464
005544
005544

000137
016366

016366
016372
016374
016400
016404

4-APR-81

001344

104401

005737
001405

N —= OO 00 NOMNWN NN

RM0S,3/2

TSTR

BEQ
JSR
JSR
JMP

BIT
BNE
JMp
JMP

,STARS

DEVMP+2 ,DEVMP
#100000, $PASS

%PC)*

,CLEAR THE ERROR ACCUMULATOR
JOON'T ALLOW UPDATE OF °'BSF' AT END OF
STYFE

:.;LO0P?

ansl RO

;2:GET

PC, (RD)

THE ~ASS NUMBER

J;DON'T ALLOW A NEG.

;. YES

$DOAGN

JRESTORE DEVITE MAP FOR AUT0 MODE

$DOAGN

%PC)*.&(PC)*

'"axanasanwnnnn’

s ;RESTORE

NUMBER

COUNTER

MONITOR ADDRESS

;sBRANCH IF

NO MONITOR

;s CLEAR THE WORLD
;.G0

TO MONITOR

;. SAVE ROOM

;:FOR
s ACTTY

a(PC)+
DONE

+ sRETURN

$AUTOB
1%
PC,ST.CLK

JRUNNING IN AUTO MODE
;BR IF NC
;START THE CLOCK

JRETURN TO AUTO MODE START

PC,$TKINT

JINITIALIZE

THE

#SW0, ASWR

;1S SW00=1

(SET)

ASK?Z

;JASK FOR NEXT DRIVE

ST3

;BR IF

YES

KEYBOARD

;GO--LOOP ON SELECTED DRIVE

PASS

SORMATTER

MACRO V04.00

b ma_u.
s
p
=2

4-APR-B1

10401

LSBTTL

REJECT MESSAGE

REJ(TY:

TYPE
TYPE

316630
016434
016440

000435

016442
016446
016454
016462

104401
012737
113737
104025

001205
016534
005551

016464
016470
016474

104401
104401

001205
041563

REJCT3:

104401
104401

001295
041630

REJCTG:

104401
104401

041665

0C120%5

REJCTS:

104401
104401

001205
037643

REJCTG:

005037

001406
042226
015740

REJEND:

016476
016502
016506

016510
016514
016520
016522
016526
016532

016534
016540
016544

18:39:56 PAGE

SEQ 0064

TABLE

Mt L,S5AGE

QOWNT NE NN OO NN N

WMS/3..

N
d

JmM

104401

000417

000412

000405

000400
104401

000137

001205
037704

001176
001364

REJCTZ:

TABLE

+SCRLF
MESG4

;CR=LF

JSCRLF

JCR=LF

:TYPE

‘DISK

IS AN ALIGNMENT PACK'

B8R

REJEND

TYPE
MOV
MOVB

#REJEND ,$ESCAPE

sREPORT [LLEGAL BAD SECTOR

TYPE
TYPE

;CR=LF

.SCRLF
.MESG17

REJEND

TYPE
TYPE
B8R

LSCRLF

,MESG18

JCR=LF
;TYPE 'FATAL

.SCRLF

sCR-LF

EMT

TYPE
TYPE

FMTDPB+11,DS.TRK

REJEND

LMESG19

REJEND

TYPE
TYPE

,S$CRLF

.MESG3

REJEND

CLR

UPDBSF

JMP

$ECP

TYPE

ABORY

;;ESCAPE TO REJEND ON ERROR
:TRACK NUMBER FOR ERROR LOG

;TYPE

s TYPE

sCR=LF
;TYPE

"UNABLE

TO WRITE

BAD

SECTOR FILE

ERROR DFTECTED'

'FAILURE

DURING HEADER VERIFY'

°'OVER 126.

BAD SECTORS DETECTED'

JDON'T ALLOW BSF UPDATE AT END OF PASS

:TYPE

JEXIT

'OPERATION ABORTED®

TRA(K'

2<MU BC RM05/3/2 FORMATTER

¢ FECRT

SUBROUTINES

MA{RO \C4.00

4-APR-81

18:39:56 PAGE 21

;

.SBTTL

;THIS ROUTINE DETERMINES THE ERROR TYPE

5 016550
6 016552

010046
010146

B 016556
9 016562
'0 016564

(012700
032710
060006

13 016572

010000

7 01655

11 016566
12 016570
14
15
1n
17

00500

SUPPORT SUBROUTINES

ERINDX: MOV
MOV
CLR

005556

001921
032710

BIT12

BNE
BIT
.WORD
BNE

19 016606

001400

.WORD

G16610
016612
016614
01661€
016620
016622
016624
016626
016630
016632
016634
016640
016642
016644

001005
032710
000020
001001
005201
005201
005201
005201
005201
006301
060166
012601
012600
000207

BIT

000004

)
:

032777
001402
000177

00100C

41 016662
o2 016666
4«3 016672

005037
033727
072002

001176
005556
004000

2; 016706

000137

016476

gg 016712

000207

001402

162300

162242

001004
N32737

54 016722
55 016726

S6 016734
S7 016742

001222

012737
105037

046234
005550

005543
001352

005544

005546

JBR _IF UNSAFE
s CHECK ERRCOR TYPE
JUNCORRECTABLE MASSBUS PARITY ERROR
;BR _IF PARITY ERROR

(PC)+,(RO)

BIT09.BIT08

2%
(PC)+,(RO)
BITO4
1%
R1
R1
R
R1
R1
R1
R1,4(SP)
(SP) +,R1
(SP)+,RO
PC

sDRIVE PERSISTENTLY UNSAFE

;CHECK ERROR TYPE
; SOF TWARE

TIMEOUT

;BR _IF YES
;CHECK ERROR TYPE
;DRIVE UNSAFE ERROR ?
JBR IF YES
;INDEX=12, ERROR-'USER DEF INED'
s INDEX=10, ERROR=14
;INDEX= 6, ERROR-13
;INDEX= 4, ERROR=12
: INDEX= 2, ERROR=11
s INDEX= 0, ERROR-10
sDEVELOP THE RETURN ADDRESS
JRESTORE R1
JRESTORE RO
;RETURN

1%:

$ESCAPE
;CLEAR THE ERRODR FSCAPE ADDRESS
FMIDPB+16,(PC)+
CHECK FOR 'FATA ' £RROR
BIT14!BIT13!BIT12.BITI10!BITOT
;*'FATAL' ERROR BITS

CLR
BIT
LWORD
BNE
BIT

2%:

005540

4%
(PC)+,(RO)
BIT11!BIT10
3%

TO CHECK FOR LOOP ON FRROR

;LOOP ON ERROR ?
;BR IF NOT
;G0 TO THE LOOP ON ERROR ADDRESS

8tQ

2%
;BR IF YES
H#WLE,RM.REG+RMERT
;WRITE LOCK ERROR ?
3%
;BR IF NOT

REJCT4

JTERMINATE THE FORMAT

RTS

;RETURN

JMP

;THIS ROUTINE

105037
013737

;BR _IF OFFLINE
;CHECK ERROR TYPE

#5W09,aSwR
1%
2$LPERR

3%:

113737

5%
(PC)+,(RO)

LOP.CK: BIT
BEQ
JMP

005574

53 016714

BNE
BIT
.WORD
BNE
INC
INC
INC
INC
INC
ASL
ADD
MoV
Mov
RTS

JROUTINE

37 316646
38 016654
28 016656

44 016674
65 016676
46 016724

1%:
2%:
3%:
4%:
5%:

;CLEAR R1

.WORD

001015
032710
006000
001011

20
21
22
23
24
25
26
27
28
29
30
31
32
%2

WHFNMTDPB+16,RO
;GET DRIVER STATUS WORD
(PC)+, (RO)
;CHECK ERROR TYPE
BI714.BIT13.BIT2!81T1
;DRIVE OFFLINE

BNE
BIT

(32710

;s SAVE RO
:SAVE R1

MoV
BIT
.WORD

016574
Q16576
01660C
016602

18 016604

RO,~(SP)
R1,-(SP)

SETDPR: MOVA

CLRB
MOV

MoV
(LRA

SETS UP THE

INPUT

DRIVE ,FMTDPB

FMTDPB+3
MW( ,FMTDPB+4

#BUFP,FMIDPB+6
FMTDPF 10

TABLE

FOR

THE DRIVER ROUTINE

;SET UP DRIVE #

;CLEAR HIGH ORDER ADRS BITS
;LOAD UP WORD COUNT

;LOAD UP CURRENT ADRS
;SET SECTOR 10 ZERO

JRMLBL RM(S5, 3/7¢ FURMATTER

v(4.00

4-APR-81

B 6
18:39:56 PAGE 21-1

SUBROUT INES

58 096746
59 016754
60 016762
&
' 016766

5
6

113737

013737
005037
000207

001334
(01330
005556

£EC 006t

005551
005552

MOV
MoV
(LR
RTS

sTHIS ROUTINE

MINTRK ,FMIDPB+11

MINCYL FMTDPBe12
FMTDPB+16

THE

;CLEAR R4 STATyS

*RETURN FROM SETUP

CONTROLS

:SET UP STARTING TRK ADRS
SSET JUP STARTING (VL

DISKk ADDRESSING AND

TOTAL

0177 7¢

Vg\l'\)

=2 UM

016770
016770
016774
017002
017004

N
NO W
VISNHAN NN

217 IS ENTERED AFTER EVERY TRK OPERATION
Q)
= b

WHECRT

MARO

o .

113737

005551
005551

TRKTYST:

001332

BHI
JSR

017320

001334
001376

005551

017012
017020
017024
017026
17032
017040
017042
017044
01705C
017056
017060

007407
205337
23737
v02613
000406
005237
023737

005552
005552

064737

017206

3%:

017064
017070

062716
000207

000002

A ¥

005737

101074

005552
005552

1%:

001326

INCB
{MPB

2%:

5%:

FMiDPB+11

: INCREMENT

JBR IF

FMTDPB+11 ,MAXTRK

PC,UPDTRK

JUPDATE

(OUNT

TRA(CK NUMBER

sLAST

TRACK

ADDRESS

YES

YO BE

FURMATTED ON

MOvVA

MINTRK ,FMTDPR+11
;GET STARTING TRACK ADDRESS
WRAP
sSEEKING FROM HI TO LO CYLINDER ?

BEQ
DEC
cMp
BLT
B8R
INC
(MP
BH!
JSR
ADD
RTS

THIS

YL INLEW

IN BUFFER

B8R

1ST

JEXIT

TRK

pd 3

;BR IF NO

.BR IF

FMIDPB+1?2

; INCREMENT CYLINDER ADDRESS

;BR

#2,(SP)

:ADD

¢RETURN,

FMTDPB+12
;DECREMENT (YL INDER ADDRESS
FMTDPB+12 ,MAXCYL
;DONE WITH FORMATTING ?

FMIDPB+12 MAXCYL
PC.UPDCYL

:UPDATE

YES

;DONE

YES

TWO

WITH FORMATTING

CYLINDER ADDRESS

IN BUFFER

TO RETURN ADRS

(NOT DONE)

DONE

FORMAT

—

-— ke
=2 O

s IW

QOCOO

sTHIS ROUTINE SETS UP W( & BA FOR RFMAINING SECTORS
JAFTER A WRITE CHECK ERROR

013737
062737
005237
005037
000207

001346

001004
005550

005544
005546

ADD

(LR

RTS

sTHIS ROUTINE

SAVW( ,FMTDPB+4
#5'5. ,FMTDPB+6
FMTDPB+10
SOF SW
PC
SETS UP

THE

JSET UP W(C

FOR REMAINING SECTORS

;SET UP BA FOR REMAINING SECTORS
JADVANCE TO NEXT SECTOR IN TBL
JRESET RETRY COUNTER
JRETURN TO COMPLETE TRK FORMAT

CYLINDER ADRS,

FORMAT

BIT,

TRACK AND

VV‘J\I\I\I\I}\JVV\I\V

[a¥]

'\JBON o

) —

010000

176

005203

001000

MOV

1%:

MAXSE(C ,R1
#1, $TESTN

MOV
MOV
MoV

MINCYL R

Mov
SWAR
TST

MINTRK ,R3
R3
SEL30

BIS

001356

NOON (o

SETHDR:

001334

£oi214

140000

154

e Gur Gy GhurGnsur

001360
000901
046234
001330

—

s S
irghusPurury

;SECTOR ADRS IN MEMORY WITH THE STARTING CYL - TRK ]NFORMATION

COOOOOCOO0OO0OOO000

£ATZSBRIRIRIVSE

i
D
i
el
il
e
ol
el et o
A
B

MOV
INC

001316

:
SCAWC

BEQ
BIS
MoV
MOV
ADD

INC

JSET UP SECTOR COUNT
. GARBAGE CODE FOR APT

#BUFP RO

;SET UP HEADER POINTER IN RO

#M
) UF F
R2

;SET MFG AND USR GOOD BITS (DEC STANDARD 144)
;PUT STARTING TRK # IN R3
;JUSTIFY TRACK _ADRS
;SEE IF 30 OR 32 SECTOR MODE

#FMT R?

RZ, ‘RO)+

R3,

W)+

#512. RO

;PUT STARTING CYL # IN R?

;BR IF 30 SECTOR MODE
;SET THE 32 SECTOR FORMAT BIT
JWRITE

IN HEADER AREA OF

(CORE

THE

(YL ADRS

JWRITE IN HEADER AREA OF CORE THE TRK ADRS
;JSET UP FOR NEXT HEADER
JUPDATE SECTOR ADRS FOR NEXT HEADER

JRMLBD RM(S5/3/¢ FORMATER

SUPPURT

SUBROUT INES

118 017200

116 017202

:;g 217206

MART

4-aPR-BT

005301

002371

000207

TB:39:56 PAGE 21-2

SEQ 0067

DEC

JMAINTAIN COUNT OF SECTORS

RTS

JEXIT

8GE

119
:59

bE 3

JBR IF NOT LAST SECTOR
- HEADERS ARE

:THIS ROUTINE UPDATES THE CYLINDER ADRS OF
JAND FILLS DATA BUFFER FIELD IN CORE

122 017206
N17206

$10046

017212
017214

010246
010346

017210

013701

126 017232

00303

127 017234
128 01724”

129 01724¢
130 (17246
131 017250
132 017252

133 017256
124 Q7262
135 017266
136 017272
137 017274

138 017276
29 017300
140 017302

017304
17306

017310

141 017312
142

:22 017316

UPDCYL:

010146

123 017216

1¢6 017222
125 0172226

012700
(13703

005737
001402
162710
005220
010320
012702

013720
013720
162702
001371

RO.-(SP)

;;PUSH

MOV
MOV

R2,=(SP)
R3,~(SP)

::PUSH R2 ON STACK
;2PUSH R3 ON STACK

001360

MOV

046234
001334

MOV
MOV

001376

1¢:

000002

2%:

001000

00133¢
001340

3%:

000004

SWARS

TST
BEQ

INC

MOV

(SP)+,R3

DEC
BGE

012602
01260

MOV
MOV

012600

005237

MOV

001214

000207

017320
17322

017324
017330

010046
010146

017334
017336

013701
012700
005720
062710

153 017346
154 017350
155 017352

005301
002372
Q12601

152 017362

0173546

;39 017356

062700

UPDTRK:

001360
046234

RTS

000400

1%:

001004

012600

158

160 Q17%0
0173%¢

;ROUTINE

012737
005037

Q017436
000006

000004

SECTOR

;COUNT SECTORS
:BR IF NOT LAST SECTOR
;:POP STACX

INTO R3

::POP STACK

INTO RO

;.POP STACK INTO RZ
::POP STACK INTO R1

:INCREMENT TST NUMBER FOR EACH CYLINDER CHANGE
;GARBADE CODE FOR APT
TRACK ADRS OF

THE HEADER WORDS

IN CORF

(RO)+
#6400, (RO)

IN RO
:POINT HEADER POINTER TQ TRK - SEC
;INDEX TRK ADRS

R1
1%
(SP)+ ,R1

(SP)+,R0O

TO CHECK FOR KWll<L

ST.CLK: MOV
(LR

;:PLSH RO ON STACK
::PUSH R1 ON STACK

#516.,R0

RTS

JEND OF DATA FJIELD
:NO
:INCREMENT TO NEXT

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

ADD

MOV

000207

THE

MAXSEC ,R1
#BUFP,RO

DEC
BGE
MOV

FILL BUFFER
;FILL BUFFER

SEXIT

Mov
MOV

TST
ADD

:WR]TE TRACK AND SECTOR HEADER
;DATA FIELD LENGTH

(SP)+,R0

$TESTN

TO LO CYLINDERS ?

;DECREMENT CYLINDER NUMBER
J INCREMENT FOR NEXT CYLINDER

(SP)+ ,R?
(SP) +,R1

INC

MOV
MOV

;JSEEKING FROM Hl
;BR 1F NO

R1
1%

;THIS ROUTINE UPDATES

147 017320

JSTARTING SECTOR - 0

R3,(RO) ¢
#512..R2

#4 R2
3%
R3

005301
002355

012603

PATA, (RO)+
PATR, (RO) +

STA(K

JSET UP HEADER POINTER IN RO
;GET STARTING TRA(CK

WRAP
2%

MOV
MOV

RO ON

JSET UP SECTOR COUNT

#BUFP,RO
MINTRK ,R3

#2,(RO)
(RO) +

INTO (ORE

::PUSH R1 ON STACK

MAXSEC R

SUR
INC

Sus
BNE

005203

R1.,-(SP)

LOADED

THE HEADER WORDS

MOV

;22

148
149
150
151

e, 00

JSE” UP SFCTOR COUNT
;SET UP HEADER POINTER

:SET UP FOR NEXT HEADER
;s COUNT SECTORS
:BR ]F NOT LAST SE(CTOR
;POP STALK INTO R1

;JPOP STACK INTO RO

JEXIT

OR kW11-P CLOCKS

#STCLKT,#ERRVEC
:SET UP VECTOR FOR P (LK
QHERRVE(+2
:NEW PSW

ADR:

LAV B

CFRURY

MOS8 FORMATTER
SUBROUTINES

162 017372
163 017376

164
165
166
167

017602
0176410
017414
017620

168 317626

005777
0137646

012776
062716
012736
012777

012777

69 017636 000426

161702
(01304

017616
000002
000300
177777

000135

170 017436
171 017442

062706
012737

000004
0317506

173 017454

013746

001312

*7S 0174666

062?16

72 0172450
74, 017460

176 017472

177 0176476

178 017504

179 017506
180 017512

323 C17520

005777

161634

012776

017616

012736

000300

012777

000402

062706
012737

000207

000002

000100

000004
000006

;gz
1044017

187 017532

001000

186 017526

017534
017540
017544
01?546
017550

194 017552
194 017554

105737

004737
104401
104411
012600
105710
001414
105760

195 017560
196 017562
97 017566

001006
122710
001412

199 017574

001403

Q3 017570

200
201
202
203
Sgg

017576
017602
017604
C17610
017614

2C8 017616
209 017622
S}? 017626

000000
161654

161644

000004

STCLKT:

000004

#135,Q8LKCSR

-SET CLK - CNT UP

STCLK3

SSET UP KW11=-P VECTOR
*POINT TO PSW
‘PSW - PRI 6
:LOAD COUNTER BUFFER

ADD
MOV

#4,SP
JRESTORE THE STACK PNINTER
#STCLK2 ,A#ERRVEC
s CHANGE ERROR VECTOR

MOV

$SLLVEC.~(SP)

a8$LKS

;LOOK FOR KW11=L

MOV

#CLOCK .a(SP)

‘SET UP KWil-L

MOV

#PR6,(SP) +

MOV

STCLKZ2:
STCLK3:

;CHECK FOR KW11=pP
*VECTOR ADDRESS

B8R

ADD

161604

aSLKCSR
SLPVEC,-(SP)

#CLOCK.a(SP)
#2.(SP)
#PRG,D(SP) +
#-1,38LKCSB

TST

000000

18:39:56 PAGE 21-3

MOV
ADD
MOV
MOV

MOV

RESTRT:

024414
042033

1%:

001150

ADD
MOV

RTS

214 017630
215 017636
5;9 017636

TYPE

*KW11-L VECTOR ADDRESS

#2,(SP)

VECTOR

; INCREMENT VECTOR ADDRESS
;PSW - PRIl

#100,38LKS

JSET

STCLK3

#4,SP
#6 . IMERRVEC

KW1l=L

JRESTORE
*RESTORE

INTERRUPT

THE
THE

ENABLE

STACK POINTER
ERROR VECTOR

000131

122710

000116

10440717
000754
104401
000137
(000207

037174

2%:

001205
016534

3%
4%:

JMESGZ

;TYPE

*BR IF SO

JSR
TYPE
RDLIN
[0}
TSTR

PC.STKINT
JMSINIT

(SP)+,R0
(RO)

*ENABLE TO READ
TYPE 'INITIALIZE BAD SECTOR FILE (L) N ?°
;READ THE ENTRY
;SAVE ADDRESS OF RESPONSE
;WAS RESPONSE A CARRIAGE RETURN (DEFAULT °N'):

BNE
CMPB
BEQ

2$
#'Y,(RO)
4

‘BR IF NO
CWAS IT A 'Y'
‘BR IF YES

BNE

;RUN UNDER APT

3%
1(RO)

CMPR

#'N, (ROQ)

TYPE
BR
TYPE
JMP
RTS

JBADENT
s
L$CRLF
REJEND
PC

BEQ

000020
034476

CLOCK:

;ROUTINE

005737
001375
000137

030400
00703«

MOV
JSR
RTI

C.ENTR: T1ST7
BNE
JMP

;BR IF YES
;WAS IT TERMINATED WITH CARRIAGE

JWAS IT A 'N'

*BR IF

TRNSWT
C.ENTR
TST1

:ROUTINE TO INTERCEPT

YES

RESPONSE

RETURN ?

RESPONSE °

:TYPE BAD ENTRY MESSAGE
*TRY AGAIN
*CR-LF
;JUMP TO REJECT END
JEXIT
INTERRUPT EVERY 16MS

#16.,-(SP)
PC,RMTMR

TO INTERCEPT

INFORMATION'

$AUTOB

;THIS CODE SERVICES A CLOTK

012746
004737
000002

' IMPROPER MFG

TSTR

BEQ
1STB

000001

g;g

218

ST
MOV

037572

389

[

4-APR-81

;THIS CODE PRINT THE ABORT MESSAGE AND LET Q.P. RESTART

185 017522
188
189
190
191
192

MACRC v064,.00

'CONTROL

;PUT MILLISECONDS ON THE STACK
;GO REPORT TIME
*RETURN AND CONTINUE
C'

;ALL ACTIVITY STOPPED ?
*BR IF NOT
*START PROGRAM AT BEGINNING
'CONTROL O'

TYPED WHILE PROGRAM 1S FORMATTING

R
5, 3.2 FORMATER
~JRROUTINES

MA(RO ,04.C0
;THE

4-aPR-81
DISK PA(CK.

6
E
18:39:56 PAGE 21-4
THE

CURRENT DISK ADDRESS

"YPED TO THE

sDURING THIS ROUTINE IN THE FOLLOWING FORMAT,

'PRESENT ADDRESS IS: CXXX TXXX
117746

042716
021627
001014

V00~

NAANN

LSTLNT.VT. VN1V

FEP

104401

017710
C17714
017716
017722
017730
017732

017732
017736
017744
017750
017754
017760
017764
017770
017774
020000
020002
020006
256 020012
257 020016

258 020022
259 020030

260
261

005726
105737
001404
005037
005037
000137
022627
001406
005777
012777

000002

005037
012737
104401
104401

013746
004737
004737
104401
104401

005046
113716

004737
0047357
104401

012737
000002

177600
000003
025621

1%:

000017
161240

000100

177776

017630
037506
036613
005552
027100
026670
036621
036615

161230

001372

TYPADR:

1S7
MOV
RT]

(LR

MOV

TYPE
TYPE
MoV

(SP) ,#3%

2%
LSCNTLC
(SP)+

$AUTOB

IS THE CYLINDER ADDRESS

IS THE

TRACK ADDRESS.(IN DE(IMA.)

;READ FROM TTY BUFFER

*STRIP PAR]TY

:CONTROL=C ?

:BR _IF NO
sTYPE A CONTROL-C
;JRESTORE

(*~(C»

STA(K

JRUNNING IN AUTO MODE

REJEND

:JUMP

(SP)+ 217
3%
a$TKR

;CONTROL=-0O ?
JYES
;CLEAR DONE BIT

PS
#C.ENTR,CNTLC

:SET PROCESSOR TO PRIORITY 0
;CHANGE °'CONTROL C*' RETURN ADDRESS

DEVMP+2

#100,3%$7kS

.?DDRIS

FMTDPB+12,-(SP)

-(SP)
FMTDPB+11,(SP}
P(,$SB2D
PC,$SUPRL
LSCRLF
HO.ENTR,3#TKVEC

MoV
RTI

'C*

'T'

:BR_[F NO
JCLEAR DEVICE MAPS

CLR
mova

JSR

SAND

1%
DEVMP

PC,$SB2D

JSR
TYPE

000060

$TKB, - (SP)

#5177, (SP)

JSR
JSR
TYPE

TYPE

G05551
027100

026670
001205
017642

(LR
CLR
_MP

(MP
BEQ

C.$SUPRL

.?LNKSZ

TO CONTROL

REJECT

:ENABLE TTY INTERRUPT

;:ggss&nr ADDRESS 1S:
;PUT

THE

:CONVERT

CYLINDER ADDRESS ON THE
[T

TO DECIMAL

;TYPE DECIMAL NUMBER,

;{;fe 2 SPACES

. CALL

:CLEAR THE STACK
:PUT THE TRACK ADDRESS ON THE STA(K
:CONVERT 1T TO DECIMAL
;TYPE DECIMAL NUMBER, LEFT JUSTIFY
;CR-LF
:;RESTORE ENTRANCE FOR CONTROL-0
:RETURN

JSR

R4, PARENT

: MOV
PARENT
MOV
1%:
MOV

BEG

R3,~(SP)
(R4) ,R3
(R3)+,2%
7%

;SAVE R3
JPARAMETER TABLE ADDRESS
;ADDRESS OF PARAMETER NAME
JBR IF AT END OF TABLE

.WORD

;ADDRESS OF PARAMETER NAME

(R3)+,RS

;ADDRESS OF

TABLE

020046

2%:

TYPE

MOV
MOV
MOV

(R3)+,R2

(R5) ,=(SP)

STA(CK

LEFT JUSTIFY

sPARAMETER ENTRY ROUTINE

267 020032

273 020050
276 020052
275 020054

BEQ

001400
001402
016534

266

270 020042
271 020044
272 020046

TYPE
TST
1SR

001150

262
263
264
265

268 020034
2€9 020036

O.ENTR: MOVR
8I(
(MP
BNE

161314

SWHERE

TERMINAL

s THE

CALLING SEQ

JPARAMETERS

. TYPE

TABLE

THE PARAMETER NAME

sMAXIMUM PARAMETER VALUE
; CURRENT

PARAMETER

VALUE

PARAMETER

“EXT

JRM B

ORMIS/3/, F ORMATTER

v RTSUBROUTINES

276 020056

S77 020060

278 020064
279 020066
2BC 020070
020074
020076
020100
020102
020106
020106
2381 020110
222 020112
283 020114

284 020120
285 020126

286 020126
287 020130
288
289 (20132
290 020134
291 020136
292 020140
Sg} 020144

104405

104401

104411
012601
004537

020036
02013¢
020114
020110
020114
020126
010215
000751
104401

162703

000744

MAIRG 404,00

TYPDS

(36607

T1YPE

RDL IN
MOV
JSR

023172

1%
7%
A
3¢
4%
5%
MOV

3%:
037174

BR
TYPE

4%:

0000L6

010215
0006402
011403
000740
012603
062704
000204

4-APR-81

:6%:
6% :

7%:

000002

SLASH
(SP)+ K1
RS,(K.DIG

R2, (R5)

1$
.SADENT

SUR

#6 ,R3

MOV
BR
MOV
MOV
BR
MOV
ADD
RTS

R2, (R5)
7%
#TABLE ,R3
(R4) ,R3
1%
(SP)+,R3
#2.R4
;ADJUST
R4

18:39:56 PAGE 21-$

JTYPE

PRV

THE CURRENT VALUE

"HE

PARAME
TH L

:READ THE KEYROARD
s INPUT ASCI] STRING ADDRESS
JCHECK THE DIGIT(S)
. CARRIAGE RETURN ONLY ENTERED
JPERIOD ONLY ENTERED
JILLEGAL INPUT
JTERMINATED WITH A CARRJAGE RETURN
s TERMINATED WITH A """
JTERMINATED WiTH A ''."°
:MOVE NEW VALUE TO PARAMETER LOCATION
:GET MORE PARAMETERS
;'"BAD ENTRY'

JDECREMENT THE

:TRY AGAIN

TABLE POINTER

JNEW VALUE
JEXIT
;RELOAD THE PARAMETER TABLE ADDRE S
;RELDAD THE PARAMETER TABLE ADDRESS
:TRY AGAIN
;RESTORE R3
THE RETURN ADDRESS
RETURN FROM THE R4

[

295

;THIS ROUTINE

296
ggg

:CALL
.

%gg

JSR

(OADS

THE BAD SECTOR

INTO

'USTAB'

TARLE

©(C,RECORD

JALL REGISTER USED ARE DESTORIED

301 020146
302 020152

012707
022711

003434
177777

RE CCRD: MOV
1%:
CMP

304 020160
305 020164
306 020166

023711
001010
123761
001004
123761
001416
062701
022701
101355
000411

005552
_
005551

000003

005550

000002

CMP
BNE
(MPS
BNE
(MPR
BEQ
ADD
(MP
BHI
BR

FMIDPR+12,(R1) ;CYLINDER NUMBER MAT{MES °
2%
:BR IF NOT
FMTDPB+11,3{(R1) :TRK NUMBER MAT(CHES ?
2%
:BR IF NOT
FMTDPB+10,2(R1) :SECTOR NUMBER MAT(HES ?
48
:BR TO EXJT,IF THE SPOT HAS REOK[E.
&4 R1
; INCREMENT 4 BYTES
#JSTAB+512,
,R1 ;END QOF TASLE ?
1%
;BR IF NOT
5%
:THROW AWAY THE PA(K

MOVR
RTS

BADSEC,2(RT)
Pr

303 020156

207 0201724
0% 020176
su9 020204

310
311
312
313

020206
020212
020216
020220

214 020222
215 020226

316 020234
317 0202642

2;3 020244

001421

0137117
113761

113761
000207

000137

(000004
004424
005552
005551

Q01344

016522

%fi?

2%:

000003

000002

b ¥

MOV
MOVH

4%:

oY ¥

IMP

:TABLE ENTRY IN R1
JAN OPENING [N THE
:BROIF

TARLE

FMTDPB+12,(R1)
FMTDPR+11,3(R1)

;LOAD THE CYLINDER #
:LCAD THE TRK NUMBER

REJ(TE

:JUMP TO REJECY TOC MANY BAD ~F77 &

;LOAD THE SECTOR NUMBER
CEXIT

:Z:IS ROUTINE WiLL SORT A BAD SECTGR TABLE IN ASCENDING ORDER

222
;52

325 020250
26 020252

BEQ

#USTAB+8. ,R1
#-1,(R1)

;
:

011501
012700

C0C175

LALL

SORTZ:

JSR
R5.SORT?2
TARLF+8.

;ADDRESS OF

MOy
MOV

;TOP POINTER
JTOTAL 126 ELEMENTS

(RS) ,R1
#125. R?

TABLE

'O B8F

SURTF

~VM o
= R

WS 82 FORMATTER
TUBROUTINES

C2C256

208 020260

010103

062703

MA KT

z27° 020272

021161

(000004

126161

000003

000007

26161

000002

000006

732 020276
222 020300

234 020302
35 020310
336 020312

337 020314

228 020322

329 020324

360 020326
341 020330

101013
103426
101006
103421

101001

1727777

(000414

(11146
016146

000002

243 020340
344 020346
745 020352

016161
012661
012661

000006
000006
000004

347
348
249
350
251
3152
;gz

0203%62
0203%64
020366
020370
020372
020376
020400

020103
001342
005302
001404
162703
011501
000734

355 020402
356 020406
357

062705
000205

32 020334

366 C20356

'$:

016117

062701

000004

0CGO04

#=1, (R

JTHE TARLE [S EMPTY °

(MP

(R1),4(RY)

;COMPARE THE C(YLINDER NUMRBER

8EQ

4%:

#500. ,R3
43

BH]
8LO

23
3 3

8H]
8L0

P 3
3%

Z(R1),7(R1)

{MPB

2(R1) ,&6(R1)

B8R

MOV
MOV

(R1) ,=(SP)
2(R1),-(SP)

MOV
MOV
MOV

6(R1),2(R1)
(SP)+,6(RD
(SP)+ ,4(RT)

{MP
BNE
DE(C
BEQ
SUR
MOV
BR

R1,R3
%
R2
4%
84 ,R3
(R5) ,R1
1%

MOV

000004

000002

(mMp

8H1

000002

[Tt

SLOCATE THE HOTTOM POINTER

{MPR

2%:

'8:39:56 FALGE

R1,R3

ADD

022711

001444

4=APR=B"

MOy

(0C764

32% Q20264

330 320270

L, D0

ADD

ADD
RTS

4&(R1),(RY)

#46 R

#2 ,R5
RS

12564=4) X 2
;QUICK EX]IT

JSWITCH ELEMENTS
J INCREMENT POINTER

;COMPARE THE TRACK NUMBFR
JSWITCH ELEMENTS
J INCREMENT POINTER

;COMPARE THF SECTOR NUMRER
;SWITCH ELEMENTS

s INCREMENT POINTER

JSAVE THE CYLINDER NUMBER
JSAVE THE TRK/SEC NUMBERS

;SWITCH THE N+4 BLOCK TO N BLOCK

JSWITCH THE N+6 BLOCK TO N+2 BLOCK
:LOAD THE N+6 BLOCK
LOAD THE N+4 BLOCK

JUPDATE THE TOP POINTER

JREACH THE BOTTOM ?
;BR IF NO
;DONE ENTIRE SORT ?
JBR IF YES
JADJUST THE BOTIOM POINTER
JRESET THE TOP POINTER
;DO NEXT SORT
:ADJUST RETURN ADDRESS
JEXIT

MOS0

EToP BAD

B ORMAT TR

TIR BUFSER

MATH.

Jiwl U

4=APR-BT

"B:39:56 PAGE ¢/

LSRYTL

sTHIS ROUTINE

¢,
g

JSECIORS 0, 2. 4, 6, 8.
:SECTORS 1, 3, 5, 7, 9.

16 BIT MG
18 BIT MFG

)

:SECTORS

16 BIiT USER

sCYLINDER 822.

'2 020610
'3 020614

Q12700
012701

15 0204246

005301

4 020620
£ 0204626

17 020430
0204634
020440
020444

020450

012720
001374

013745

001356

013746
013746
(013746

23 020510

012637

020514
020520
020524
020530

177777

001214

012737
012737

20 020470
21 020476
22 020504

066234
020100

013746

18 020454
19 020462

SETUP BAD SE(CTOR BUFFER

012737
013737
006737
012637
012637
012637
012637

001466
001324
017120

(BAD SECTOR FiLE)

46,

16,..30.

TeE _AST

;SECTORS 11,

15, 17,..31.

SFTRSF: MOV
MOV

#BUFP,RO
#<258.+32.>,R1

;BUFFER ADDRESS
;TOTAL WORD COUNT

JDONE

1%:

MoV
DEC

BNE

MoV

001330
001334
001360

(000037
177777

10,

SETS UP THE BUFFER TO RE-WRITE

001330
0031334

MINCYL ,-(SP)
MINTRK ,=(SP)
MAXSEC,~(SP)

MOV
MOV

#31. ,MAXSEC
#-1,SEC30

MOV
MOV
JSR

001356

MOV

001360
001334
001330
001214

$TESTN,=-(SP)

MOV
MOV
MOV

MOV

001360
(001356

#-1,(R0O)+

SEC30,=-(SP)

#822. ,MINCYL
LSTRK ,MINTRK
PC,SETHDR

(skP)+,SEC30

TRA(K

18 BIT USER

JSET ALL LOCATIONS TQO =i
YET

;BR IF NO

:sPUSH $TESTN ON STACK

J.PUSH MINCYL ON STACK
;sPUSH MINTRK ON STACK
; sPUSH MAXSEC ON STA(K

;:PUSH SEC30 ON STACK

;SET MAX 31 SECTORS
JALWAYS IN 16 BIT MODE

;LOAD LAST CYLINDER
;LAST TRACK
;SET HEADER FIELD IN THE BUFFER

;:POP STACK INTO SEC30

MOV
MOv
MOV
MOV

(SP) + MAXSEC
(SP) + ,MINTRK
(SP)+ MINCYL
(SP)+ _$TESTN

;:POP
;:POP
;;POP
;.P0OTM

STACK
STACK
STACK
STACK

INTO MAXSEC
INTO MINTRK

MoV
MOV

MMFG16,R1
ABUFP+4 ,R2

;LOAD FIRST 4 WORDS TO EVERY SE(CTOR
JBUFFER LOCATION + 4

(LR

4{(R2)

;STORE 3RD WORD ALL Q'S

INTO MINCYL

INTO $TESTN

25 020534
26 020540

27 020544
28 020550
29 020552

30 020560

012701
012702

012703
011112
016162

005062

001414
046240

000040
000002

000004

MOV
MOV
MOV

005062
062702

%g £20576

001364

BNE

26 020600

005046

(LR

-{SP)

38 020604
36 020606

40 020612

005046
012746
012746

001474
046240

(LR
MOV
MOV

-(SP)
MFG16,-(SP)

43 020626
44 Q20632
45 020636

012746
012746
012746

047244
000005
(003424

MOV
MOV
MOV

37 020602

41 020616
42 020622

o6 020662
«7 Q20646
48 20652
4% 020654

005303

005046

(012746
012746

012746
005737
100402
0127'6¢

CLR
ADD

#32..R3
(R1.,(R2)
2(R1),2(R2)

31 020564
32 020570
3T 020574

000006
001004

000002

2%:

DEC

(LR

000005
002420

060310
001356
(61314

MOv
MOV

MOV
TSt
BM!
MOV

€(R2)
#516. .R2
R3

2%
-(SP)

ABUFP+4 = (SP)

#5,-(SP)
#MFG18,-(SP)

;TOTAL 32 SECTORS
;STORE 1ST OCTAL WORD (MSB OF S/N)
;STORE 2ND OCTAL WORD (LSB QF S/N)
JSTORE 4TH WORD ALL 0°S
;ADVANCE TO NEXT SECTOR
;DECREMENT ONE

;BR IF NO

;LOAD TABLES
;DUMMY PAIRS

SECTOR COUNT

INTO APPROPIATE

FOR

TERMINTORS

;TABLE ADDRESS
JBUFFER ADDRESS

sNUMBER OF SECTORS
;s TABLE ADDRESS

#BUFP+4+4516,,-(SP) ;BUFFER ADDRESS
#5,~(SP)
JNUMSER OF SECTORS
#USTAB,-(SP)
;TABLE ADDRESS

SECTOFS

TO LCAD

TO LOAD

ABUFP+4+<516.+10.>,~(SP)
;BUFFER ADDRESS
SEC30
;IS 1T 16 BIT FORMAT MODE ?
3%
:BR [F YES
BRUFP+4+<ST16.*11.>,(SP) :MFG 18 BIT BUFFER ADDRE
¢

l.'v k-(“"L s LNMATT
L
T
YRR (W & _FEER

6
(0=
¢

Leabiv=RT

1
TB:TdiNe PAGE

k3 ¥

MOy

81, ,=-(SP)

MOV
MOV

#USSAV, R
;TABLE ADDRESS IN R?
ABUFP+4+<516,.¢11,> ,R2
JBUFFER ADDRESS [N R?

8M]

L [0)%

#11.,R3

sSECTOR COUNT IN R3

MOV
MOV

#256. R4
(R1)+,(R2)+

*WORD COUNT
= DATA FIELD OF ONE SECTOR
JLOAD TABLE INTO SECTOR DATA FIELD

DEC

. 20660

Cr'e7¢e

L 20664

012701
01279¢

020670
020674
020700
020702
020706
020712
020714
020720
020722
020724
020726
020730
020734
020736
020740
020742
020744
020746
0290750
020752

005737

187

4%:
5%:
3 H

001010

MOV

MOV
DEC
BNE
MoV
ADD
BNE
MOV
MOV
MOV
MOV

BNE

000207

RTS

SEC30

JNUMBER OF SFECTORS T0 LOCAD

JIS

:BR [F

#BUFP+4e<516,+10,>,R2

R1,RS

R4
6%
R5,R1
#516.+4 ,R2
5%
(SP)+ ,R3
(SP)+,R2
(SF)+ ,R1
R1,R5

16 BIT FORMAT MODE

YES

JWORD.

THE

18 BT

TMMODEf

; TEMPORARY STORAGE

ALL DONE ?
:BR [F NOT
;RELOAD THE TABLE ADDRESS
;SKIP ONE SECTOR

sDECREMENT ONE SECTOR COUNT

;BR [F NOT DONE
JNEXT NUMBER OF SECTORS TO LOAD
JNEXT BUFFER ADDRESS
JNEXT TABLE ADDRESS
;1S IT DUMMY TERMINTOR ?

JBR IF NO

HEADER

;BUFFER ADDRESS FOR

JEXIT

;JTHIS ROUTINE WILL SET OR RESET BIT15 AND BIT14 OF
IS

FLAGGED AS A

THE FIRST HEADER

'MFG'

BAD

SECTOR,

CYLIM

(R ADDRESS,

BIT15(MF

sWILL BE RESET(0) AND BIT14(UF BIT) WILL BE SET(1). If THF HEADER IS
;BEING FLAGGED AS A 'USR' BAD SECTOR, BIT15(MF BIT) WwItLL BE SET(1)
JAND BIT14(UF BIT) WILL BE RESET(0).

005552

046224

000001

00555

000137

016442

103402

NNNN

021000
021006
021014
02102
021030

013737
001006
122737

020754
020762
020764
020772
020774

NNTNINNNYN ~

OO VXMW
IDOC00A ~, NN
N NN~y N o) (280
o N0 X
X Yol 3 XV, IV 1V, NN e
s ] \lgwb LA Y [a2V:T,
RS8BT
R RARCE
AN RIS
- RNTo V. ¥
N NN

37
37
37
37

005551
001344

005552
010000
005552

046227
046226
046224
005630
005634
005632
005636
005640
005641
005642
046224
001466

005551

001324

001410
001222
177776
000163
046224
001344
005551

001356
010000

s CALL
:

JSR

PC RESET

RESET:

MoV

FMTDPB+12,RBUF

'$:

MovRe

1%
1LFMIDPB+11
1%
REJCT2

FMIDPB+11,RBUF +3

;GET

PBRIF A
CYL O
;IS THY
YL 0, TRRK O OR 1 ?
:BR IF NO
;CTHERWISE, ILLEGAL BAD SECTORS

:TRACK ADDRESS

MOVB

BADSEC ,RBUF+2

MOV
MOvVB

R-2 , FMTWRT +4
JWORD COUNT =2
HWRTHD ,FMTWRT+2 ;WRITE HEAD AND DATA COMMAND

BIS
MOVB
Mov

2%:
046224

BNE
CMPR
BLO
JMP

MovB
MOVB
MOV
BIS
(MP
BNE
CMF3
BEQ

157
BM]
BIC

;SECTOR ADDRESS

HDRBIT ,RBUF
DRIVE ,FMTWRT

;SET MFG BIT, RESET USR BIT
;SETUP THE DPB FOR OPERATION

HRBUF ,FMTWRT+6

;BUFFER ADDRESS

SEC30
3%

JIN 16 BIT MODE
:BRIF IT IS

BADSEC,FMTWRT+10
;SECTOR ADDRESS
FMTDPB+11,FMTWRT+11
;s TRACK ADDRESS
FMTDPB+12,FMTWRT+12
;CYLINDER ADDRESS
#FMT ,RBUF
;ASSUME 16 BIT MODE
FMTDPB+12,#822. ;1S IT LAST CYLINDER ?
2%
:BR IF NO
FMTDPB+11,LSTRK;IS IT LAST TRACK (BSF) ?
3%
‘BR IF YES
#FMT ,RBUF

JRESET

THE

FMT Bl”

S BC RMOS/3/2 FORMATTER

£°.P BAD SECTOR BUFFER

*08 021142 005630

167 62113

004037

031214

10 021166
11 027152

005737
001775

00564€

0T 020156

000207

09 021144 000774

112 0¢1754 000240

MLIRO

(4. 00

38:
4$:

&4-APR-8"

"8:39:56 PAGE 22-2

FMTWRT

JSR _

RO,RMOS

:CALL THE DRIVER

TST
BEQ

FMTWRT+16
48

BR IF QUEUE FAILS

RTS

NOP

:DPB ADDRESS
:DONE ?
:BR [F NOT

:1GNORE ANY ERRORS
JEXIT

‘M

pedy

st ’

L RMAT T

PR BURRtR

MA RO v04.00

4-APR-B1

1B:39:56 PAGE

EQ 007%

s THE ROUTINE INSERT:

JINSERT A BAD SECTOR ADDRESS INTO ONE OF

JUSSAV TABLES

s CALL

SV, URYes JVATE

ANINEL

TABLE +8.

221160

) e

b o

B ok

521162
021166
621170
021174
021176
021202
021204
021212
021214
021222
021226
20 621226
021230
021234
021236
021242
021259
021256
021262
021264
21270
R ele RNTo NV F

JSR

010446
012746
011504

022714

001420
023714
001010

INSERT:

000176
177777

's:

001362

123764

001364

000003

123764

001344

000002

007004
001415
005316
001413
062704

000755
013714

113764
113764
062706
012604

062705
000205

2%:

000004

001362
001364
001344
00000¢
000002

MOV
MOV
MOV
CMP

BEQ
(MP
BNE

{MPB
BNE
CMPR
BEQ
DEC
BEQ
ADD

000003
000002

3%:

(%:

B8R

MOV
MovRe
MOVR
ADD
MOV
ADD
RTS

THE MFG16, MFG'B, USTAB AND

RS, INSERT
Ré ,=(SP)

#126..-(5P)
(R5) .R4

#-1(R4)

3¢
DS.CYL, (R&)
2%
DS. TRK,3(R4)

2%
BADSEC, 2(R4)
4L
(SP)
4%

#4 R4
1%

DS.CYL, (R&)
DS. TRK.3(R&)
BADSEC.2(R4)

#2,5P

(SP)+ R4
#2.RS
RS

:SAVE THE R4
JENTRIES OF THE TARLE
;TABLE ADDRESS + 8 BYTES
;AN OPEN ENTRY ?
:BR IF SO
sCHECK IF THE BAD SECTOR MAS RE(ORDED
<BR IF NOT
;CYL AND

TRK MAT(CH

;BR IF NOT
;CYL

,TRK AND SEC MAT(H ?

;BR IF SO
;DECREMENT THE ENTRY COUNT
;BR IF EXHAUST
JLOCATE THE NEXT ENTRY
.BR BACK
;LOAD INTO TABLE
.LOAD THE TRA(CK NUMBER
;LOAD THE SECTOR NUMBER
;CLEAR UP THE STACK
JRESTORE R4
:éSi?ST THE RETURN ADDRESS
JEX

TLoiTe

FURMAT
"B R
NUTION ROUTINE

Ma R,

,06.00

&4-APR-81

=S QOO

Nt
=2

NN N

d y

4 b

= OO

TMLA

LSBTTL

L
6
18:39:56 PAGE 24

UTILITY FUNCTION ROUTINES

SJROUTINE TO ENTER
;THE 18 BIT TABL E

021272
021276
021300
021304

005737
001403
104401

042255

021306
021312
021316
021322

1064401

104401

040564
001205
022702

021324
021330
021332
021336
$21340
021342
021346

005 37

001382

004537

021160

021350
021354
021360
021364

104401
104401

040642
001205
022702

005737

001362

004537
002430
000766
004537
002430
000207

021160

021366
021372
021374
021400
021402
V21404

021410
0214612

000207

004577
005702
100404

001424
000766
004537

001424

004537
005720
100404

001320

FUNCTT:

TST

BEQ

TYPE
RTS

1%:

2%:

020250

3%:

TYPE
TYPE
JSR
TABLEZ2

020250

5%:

005737
001403
104401

042255

46 021430
47 021436

012737
012737
012737
0 12737
0 05737
1 00414
0 12737
0 12737
0 12737
0 12737

003434
Ud3%4634
004440
004440
001356

021546
021556
021610
021620

003434
003434
004440
004440

021610
021620
021546
021556

104607

040720

48 021444

49
50
51
52

021452
021460
021464
021466

53 021474
54 021502

55 021510
56
7 021516

000207

FUNCT2:

001320

1%:

TABLE

;sBR

YES

MESGS

:E;PEF'ENTER MFG 16 BIT BAD SECTOR ADDRESS®

,$CRLF
R5.MANTER

MESGE
. SCRLF

'NO UPDATE

FILF

IN VERIFY MODE'

JENTER THE VALUE FROM THE KEYBOARD
JWAS

A VALUE

ENTERED

JBR _IF NO
s INSERT BAD SECTOR INTO THE

18 BIT BAD

JEXIT
'USR'

SE(TOR ADDRESS'

'MFG18'

:SORT THE TABLE WHEN DONE WITH INPUTS

IN THE

16 BIT

;IS 1T 'FORMAT® MOr: ?
‘BR IF YES

TABLE OR

TST
BEQ
TYPE

MODE
1%

RTS

MoV
MOV
MOV
MoV
TST

#USTAB+8. .g§
HUSTAB+8,
H#USSAV+8, '8%
#USSAV+8. 108

MoV
MoV
Moy
MOV

#USTAB+8. .§8$
AUSTAB+8B,
HUSSAV+8, S48
HUSSAV+8. 33

“SET UP *USR' TABLES FOR 18 BIT MODE

TYPE

MESG7

;TYPE

SEC30
2%

TABLE

JNEXT ENTRY

DEF INED BAD SECTORS

,NOUPDT

TABLE

JCR-L
. INPUT VALUES FROM THE KEYBOARD

RTS

°*MFC16'

JNEXT ENTRY
;SORT THE TABLE WHEN DONE WITH INPUTS
;Z;PEF'ENTER MFG

RS ,MANTER

;JUPDATED VALUES ?
;BR IF NOT
s INSERT BAD SECTOR INTO THE

MFG18+8.

AND

sTYPE

IS8T
DS.CYL
8M]
5%
R5, INSERT
JSR
MFG18+8.
4%
BR
R5,SORTZ2
JSR

BMI

2%:

16 B]T

.NOUPDT

MFG16+8.
TYPE
JSR
TABLE3

IN THE

;1S IT 'FORMAT' MODE ?

MODE
1%

JROUTINE TO ENTER
;THE 18 BIT TABLE

021414
(21620
0214272
021426

DEF INED BAD SECTORS

TST
DS.CyL
BMI
3%
R5, INSERT
JSR
MFG16+8.
BR
2%
R5,SORT?
JSR

TYPE

4%:

‘'MFG®

“TYPE

"NO UPDATE

;SET UP "USR'

FILE

IN VERIFY MODE'

TABLES FOR 16 BIT MODE

;1S 1T 18 BIT MODE 2
‘BR IS NO

'ENTER USR 16 81T BAD SECTOR ADDRESS®

2TM B0 kMOS5/3/7 FORMATTER
allTy FUNCTION ROUTINES
58 021522
56 0215%6
60 021532
6]
62 021534
63 021540

021542

004537

001205
02270¢

005737

001362

004537

021160

104401

005702
100404

021546
021550
021552
021556

000030
000766
004537
000000

021560
021564
021570
021574

104401
104401

040776
001205
022702

005737

001362

004537
000000
000766
004537

021160

021576
021602
G21604
021610
021612
021614
021620
021622

004537
005720
100404

000000
000207

020250

MACRD vU4.00

4-APR-81

4%:

5%:
6%:

7%:

.SCRLF

sCR=LF

TST

DS.CYL

JUPDATED

85.30R72

;SORT THE

JENTER BAD SE-TOR FROM THE KEYBOARD

TYPE
TYPE
JSR
TABLE3

. MESGB
SCRLF

;I;PEF'ENTER USR

DS.CYL
9%

;UPDATED INPUT VALUE ?
;BR IF NOT
; INSERT THE BAD SECTOR INTO TABLE

7%
R5,SORT?
0

;BR TO ENTER NEXT SECTOR
;SORT THE TABLE
; TABLE ADDRESS
JEXIT FORM THE TABCAL CALLING

.WORD

RTS

SS.INSFRT

TYPE

"HE

021656
021662
0216€6
021672
21674

001205
022622

010146
012701
104401
004737

001424
041054
022512

104401
104401

104401

012701
004737
012601
000207

FUNCT3:

001205

TYPE
JSR
TYPE

MOV
MOV
TYPE
JSR

041140
002430
022512

TYPE
MOov

JSR
MoV
RTS

;JTHIS

ROUTINE

CONTENTS OF

LSCRLF

s CR-LF

.SCRLF

JCR=LF

P(,TYPACK

;TYPE

PC.TYLIST

.MESG10

021722
021726
021732
021734
021740

104401

004737

001205
022622
001205

003434
004440
001356
003434
004440

FUNCTS:

TYPE
JSR
TYPE

PC,TYLIST
(SP)+ ,R1
PC

MOV
MOV
MOV

MOV
TST
BMI

(ONTENTS OF

MoV
mMov

LSCRLF

JCR-LF

SEC30
1%

#USTAB+8. .R2
RUSSAV+R, .R1

BAD SECTOR FILES

NUMBER

IN DECIMAL

JRESTORE THE R1
JEXIT FROM THE CALLING OF

;CR-LF

R1,-(SP)
R2.,~-(SP)
#USTAB+8., .R1
#USSAV+8, .R2

'MFG'

;TYPE BAD SECTOR LIST

,SCRLF

PC.TYPACK

THE

PACK SERJAL

;FOR 16 BIT MODE AND 18 BIT MODE
021676
021702
021706
021712
021714
021716

SECTOR ADDRESS'

;TYPE 'CONTENTS OF 18 8IT MFG BAD SECTOR FILE®
JADDRESS OF FIRST BAD SECTOR ENTRY IN TABIE

AMFG18+8. LR

THE

18 BIT BAD

;ADDRESS OF FIRST BAD SECTOR ENTRY IN TABLE
;TYPE "CONTENTS OF 16 BIT MFG BAD SECTOR FILE®
;TYPE BAD SECTOR LIST IN DECIMAL

. MESGY

TYPE

TABLE

;SAVE R1

R1,=(SP)
HMFG16+8. LR1

WILL

16 BIT

;ENTER BAD SECTOR FORM KEYBOARD

R5,MANTER

WILL

‘'USR'

s TABLE ADDRESS

;FOR 16 BIT MODE AND 18 Bil MODt
004737

5%
RS, INSERT
¢
3%

:THIS ROUTINE

021624
021630
021634
021640
021642
021646
021652

INPUT VALUE

;BR IF NO
s INSERT THE BAD SE(TOR INTO TABLE
;TABLE ADDRESS
JNEXT ENTRY

BM]
JSR
.WORD
BR
JSR
.WORD

BR
JSR

9%:
10%:

SEQ 007/

RS ,MANTER

TST
BM]
JSR
.WORD

8%:

JSR
TABLEZ2

TYPE

3%:

1B:39:56 PAGE 24~

;TYPE

THE

PACK

'USR'

TABCAL

BAD SECTOR FILES

SERIAL NUMBER

:SAVE R1

;SAVE RZ

;SET UP 'USR' TABLES FOR 16 BIT MODE

;IS IT 16 BIT MODE ?
JBR IF YES
;SET UP 'USR' TABLES FOR 18 BIT MODE

—y gy

RTM ?O RMOS/3/2 FORMATTER
:TLITY

FUNCTION ROUTINES

115 021764
};g 021750

104401
004737

041224
(22512

118 021754
119 021760
120 021762
121 021766
122 021770

104401
010201
004737
012602
012601

041310

132 021772

MATRO v04.00

4-APR-81

18:

022512

000207

StQ 0U78

TYPE
JSR

JMESGN
PC,TYLIST

JTYPE 'CONTENTS OF 16 BIT USR BAD SECTOR FILE®
JTYPE BAD SECTOR LIST IN DECIMAL

TYPE
MOV
JSR
MOV
MOV

MESG12
R2,R1
PC,TYLIST
(SF)+,R2
(SP)+,R1

;TYPE 'CONTENTS OF 718 BIT USR BAD SECTOR FIIE®
:GET ADDRESS TO R1
:TYPE BAD SECTOR LIST IN DECIMAL
:RESTORE R2
:RESTORE R1

RTS

%SZ

18:39:56 PAGE 24-~2

;EXIT FROM THE CALLING OF

:THIS ROUTINE IS USED YO INITIALIZE THE

127 021774
128 022000

005737
001403

3%? 022006

000207

129 022002

132 022010

104401

042314

104401

042143

005037
005037

001420
001422

012702

000374

133 022014
134 022016

010146
010246

137 022030

012701

135 022020
136 022024

138 022034

139 022040

012721

}2; 022046

001374

140 022044

001320

005302

177777

002424
002426
002430

147
148
149
150

012721
005302
001374
012602

177777

51 022102
152 022104

}gz 022110

012702

012601

104401

000207

T1ST
BEQ

MODE
1%

RTS

TYPE

1%:

000374

3%:

:TYPE

'"INITJALIZING MFG BAD SECTOR FILES®

CLR
CLR

MFG16+4.
MFG16+6.

:CLEAR 3RD WORD (ALL 0°'S)
;CLEAR 4Th WORD (ALL 0'S)

MOV

#4252. ,R2

MOV
DEC

%22

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

AMFG16+8. .R1

#-1,(R1)+
R2

:SAVE R1
;SAVE R2

;ADDRESS OF

FIRST BAD SECTOR ENTRY

:NUMBER OF WORDS LEFT
:RESET REST OF
:DONE

YET

;BR IF NO

FILE

7O -1

CLR
(LR
MOV

MFG18+4.
MFG18+6.
#MFG18+8. ,R1

JCLEAR 3RD WORD (ALL 0°'S)
;CLEAR 4TH WORD (ALL 0°'S)
;ADDRESS OF FIRST BAD SECTOR ENTRY

MOV
DEC
BNE
MOV

#-1.(R1)+
R2
3s
(SP)+,R2

RESET REST OF
:DONE YET ?
;BR IF NO
JRESTORE R2

MOV

viov

041502

;1S IT ‘FORMAT' MODE ?
:BR IF YES

LINITMF

TYPE

MOV

2%:

TYPE

RTS

#7252. .R2

(SP)+,R1

JMESG14

;NUMBER OF WORDS LEFT

;RESTORE R}
:TYPE

"DONE

EXIT FROM THE

FILE

TO -1

TABCAL CALLING

:THIS ROUTINE IS USED TO INITIALIZE THE 'USR' BAD SECTOR FILE

157 022112

005737

?2? 022124

000207

158 022116
159 022120

001403
104401

001320
042314

162 022126
163 022132
164 022134

104401
010146
010246

042100

166
167
168
169
120

(05037
012701
012702
012721
005302

003432
003434
000374
177777

165 022136

022142
022146
022152
022156
022162

T2 022164

005037

001374

FUNCT6:

1%:

003430

MODE

RTS

TYPE
MGV
MOV

LINITUS
R1,-(SP)
R2,-(SP)

:TYPE 'INITIALIZING USR BAD SECTOR FILES®
:SAVE R1
:SAVE R2

(LR
MoV
MOV
MOV
DEC

USTAB+6.
#USTAB+8. ,R1
#252.,R2
¢
#-1,(R1)+
R2

;CLEAR 4TH WORD (ALL 0°'S)
:ADDRESS OF FIR:T BAD SECTOR ENTRY
:NUMBER OF WORDS .EFT
RESET REST OF F' E TO =1
:DONE YET ’

BNE

1%
NOINIT

USTAB+4 .,

;1S IT

(16 AND 18 BIT)

TST

REQ
TYPE

CLR

2%:

(16 AND 18 BIT)

'NO INITIALIZATION IN VERIFY MODE'

MOV
MOV

LNOINIT

'MFG' BAD SECTOR FILE

:TYPE

BNE

005037
(005037
012701

022070
022074
022076
022100

FUNCTS:

001424

143 022050
144 022054
145 022060

146 022064

TABCAI

'FORMAT® MODE ?

:BR IF YES
:TYPE "NO INITIALIZATION IN VERIFY MODE"®

:CLEAR 3RD WORD (ALL 0'S)

:BR IF NO

SVl

veoee,

PORMAY Ttk

OTION RLUTINES

MLTRD

v046,.00

4-APR-BT

“B:39:5¢ PAGE

(LR
{LR
MOV
MOV
MOV
DEC
BNE
MOV

USSAVes,
USSAV+6.
#USSAV+8. R

sCLEAR 3RD WORD (ALt 0°'5)
JCLEAR 4TH WORD (ALL 0'S)
sADDRESS OF FIRST BAD SECTOR ENTHY

#-1,(R1)e

JRESET

24-3

170

73 022166
174 022172

022176
022202
177 022206
178 0c2212
179
022214
180 022216
8
022220
182 022222
"33 022226
174

176

"84

005037
0050%~
012701

012702

012721
005302

(06634
004436
004440
000374
177777

001374

012602
012601
104401
000207

;CrL=822..

190 022240

022242

022264
022250
0222564
022256
022260

022262
022264
022266
022270
022272
022276
022302
022306
022312

022314
022316
022322

104401
104401
104411

012601
012702
004537
022342
022334
Cc.334
022270
022334
022334
006302
016201
012702
10440°

012705
012146
104402
104401

005302
001406
005305
001370
000763
104401

000735
104401

000207

041374
041450

FUNCT7:
1%:

000037
023172

006064
000402
001205
000C10

2%:
7%:
(%

036621

037174

5%:

001205

6%:

et —

— OOV
NB KA -

022324
022326
022330
022332
022334
022340
022342
022346

OYMN Y =t D s e el e e

RTS

;sTHIS ROUTINE

138 022230
*89 022234

IASTAS A VAN TN WIS VI N L VN

MOV
TYPE

041502

R-3)
186

191

3%:

8252, ,R2

R2
1
(SP)+ R2
($7)+ R1
JMESG14

IS USED

TYPE
TYPE
KDL IN
Mov
MOV

JSR
6%
5%
5%
’%
5%
5%

ASL
MOV

MOV

TYPE
MOV
MoV
TYPOC
TYPE
DEC
BEQ

FILE

TO =

TO PRINT

A SECTOR OF

OR RM02/3-TRK-4&)
sTYPE

sTYPE
sREAD

THE

"PRINT

LAST

TRACK

A SECTOR OF

(BAD SECTOR FILE:
LAST

'ENTER SECTOR (DECIMAL):
THE SECTOR NUMBER

TRACK
°*

(OCTAL)'

(SP)+ ,R1
;ADDRESS OF READ~IN BUFFER
#31.,RZ ,UPPER LIMIT OF INPUT
R5,.(K.DIG
JCHECK THE DIGIT(S)

;CARRIAGE RETURN ONLY ENTERED
;PERIOD ONLY ENTERED

;ILLEGAL

INPUT

JTERMINATED WITH A CARRIAGE
JTERMINATED WITH A *°,*°
JTERMINATED WITH A *°.""

R2
ANRTBL (R2) ,R1
#258. .R2

JFOUND THE WORD [NDEX

,8-¢RS
(R1)+,-(SP)

;8 WORDS ON A LINE
;CONTENTS OF THE BUFFER

LSCRLF

JBLMNKS2

DEC
BNE
1314
B8R

RTS

TYPE

REST

JEXIT FORM THE TABCAL CALLING

MESGI3
.MSG13A

R2
63
RS
48
3%

TYPE

WORDS LEFT

JDONE €T ?
:BR If NO
;RESTORE R?2
JRESTORE R1
;TYPE 'DONE

(RMO5~TRK=18.

;NUMBER OF

BADENT
LSCRLF

;ADDRESS OF

THE

RETURN

BUFFER

:gg EQR WHOLE SECTOR INCLUDING HEADER

;TYPE

OCTAL

WORD

;TYPE 2 SPACES

;DECREMENT WORD (TR
FINISH
:BR If
;START ANOTHER LINE

;BR IF NOT
;BR IF SO

;1YPE BAD ENTRY
:TRY AGAIN

CR=LF
JEXIT FROM TABCAL CALLING

JROUTINE TO ENTER °'MFG' DEFINED BAD SECTORS IN THE 16 BIT TABLE AND
;THE 18 BIT TABLE. THE SECTOR ADDRESS IS ENTERED AS A BYTE LOCATION
;FROM INDEX ON THE DISK
106401

004537
005736
005737
100442

010446

0641573
022702
0061362

FUNCTS8:
1%:

TYPE
JSR

R5 ,MANTER

.MESG15

;JTYPE

TST
8M]

DS.CvL
6%

WAS ADDRESS UPDATED

TABLE4

Mov

R4, -(SP)

'ENTER MFG BAD SECTOR ADRS

JENTER THE VALUE FROM KEYBOARD

JBR IF NO

JSAVE R4

/DE([MAL)’

R S
-1 CZR!

M B anoszs/z FORMATIER .. - mcno vot. 00 4-APR-81 18 39:56 PAGE 24-1.

SRR

]

001344

224.022600

001344 006264

005004
-

023764

225 022406

101402

226 022410

0057264-

000772

o~ .-,

229 022416

010437

001344

e 7228 0226414

Tocb
)

006204"

230 022622

004537

o«

021160 -

236 022646
237 022452

062704 000002
:
000771,
- = . -\»*

243 022472

)

;

000730

244 022474

:BR IF YES

" BADSEC,BYTE16(R4)
(R&)+

.-.

JSR

RS, INSERT ' ¢

BLOS

001424.- ¥wi-

‘

e,y

[

'& iy 4{:;i-)hd
€ st

L
P

f
-

hat

Yoy

N
A
“

1
-

=
3
A,

¢
<

‘

~ .

B2
N

;

¥
-

5 -

hat

>
.

o
-

PO
5

4
T

B
.

.
A

it
-

"
-

o
N

a4t

N
~

Wk,
e

hal

by,

;

2 ~a

“

&
N

‘

;

N
A s

oak

No~

¥y

REIURN

vg .

:1SORT 'mrms' TABLE

:SORT ."MFG16! TABLE

> [

;

NEXT ENTRY
. J

vrr

B
LN

o«

“

P
Taa
FaS

o
FE

Q%’,

¥oe

e
LRI

. ";RESTORE'R4 -

“

A
R
-

L
N

w -

B
o3

Tas R

c
-

“R

>
o

T
e
N

AL S SN-

Tar,

L L

.c}

- -W

3
x

e A

e, 1N
M

e
e

* %

3
et
.

s ik

-y

®-

N T

Lene

Rs sonrz

J,«Q“’“» * )

YES

= RTS
"y > PL RIS
-

;

b
wr

‘N

ee
2 A

{

€«

TABLE

;SAVE 18 BIT SECTOR ADDRESS
;INSERT-BAD SECTOR INTO 'MFG18' TABLE

.MFG16+8.~

“ VUSRS

*
.

s INSERT BAD SECTOR INTO 'MFG16'

. +SECTOR ADDRESS.

N“JSR -~ RS, sonrz‘

FowoT
R

-E

wat
Y
R
5

[

K
N
-

\ vR

S
E

oTM
e

L
3

SR
g
T
Wt

[

b
e
Yo

3 e

LSS R

|
o
2 v
(e

T M

pers

POt

Fhow T s Taoyv
R
‘-t"f;(v”'t
e,

t gy

RSN

Mouhes

2SAVE 16 BIT SECTOR ADDRESS

;TRY NEXT SECTOR IF NOT FOUND
;LOOPIN BACK

no v s e T BRLT 18

8, LS de Lt
~

]

:15 16 BIT LOCATION FOUND 2

:BR IF

TTASR-' R4

* MFGI8+8.©

. : uj*vfix,

3wy

N 00

N4
oy

"‘vl;«

N{"

$d,

«r

he Ao
.

w,e

;‘3

Y-"

)

2SECTOR ADDRESS

#2,R4
. 4$

247 022506 70024307,
" ", nd i hw e S T AMFGISTS
21.8 022510 000207 >~ ra

SEO 008U

s LOOPING

R4 ,BADSEC

’MOV 7 . R4 ,BADSEC
“:JSR"~ * R5,INSERT

v, s

2wt e

sTRY NEXT SECTOR

.. ADD
..BR

004531%f020250 f
TigeenY 68:

245 022500

’

ASR

"MFG16+48.
¢ ‘
-<MOV .
(SP)+,BADSEC
;GET LOCATION OF SECTOR FOR 18 BIT MODE
CLR .
Ré&
: TABLE .INDEX STARTS FROM 0
CMP
- BADSEC.BYTE18(R4)
;1S 18 BIT LOCATION FOUND ?

- 346 022502 €04557:.0202503%

*
14

BLOS =

< 242 022470 012604- . u:e;&;— el i;*w;fiucmovo, *”(sp)+ R&
*

’

BADSEL.-(SP) " ;SAVE "BADSEC' FOR 18 BIT MODETM"

IST -

010437 001344" =,o,
004537© 021160,
s
002630~ = =,

v ow

:TABLE INDEX STARTS FROM 0

MoV

006204° "= . v. 5%:.-

261 022466

(MP

©*
:
4%:

101403-

539 032456
260 022662

Moy

3%:-

]

LR,

28: .

001424
'
012637 001344
005004 023764 001344
. 006364

238 022454
J

231 022426
232 022430
233 022434
234 022436

. 235 022444

227 022612

v
A g

,ufi»

222 022372- 013746

. 223 02¢376

ROUTINESTTM7 -, o

url LITY:rmgrxou

hal

IS
at

“IRM BC RMOS/372 FORMATTER
JYILITY FUNCTION ROUTINES

y0e.0C

4~APR-81

7
D
18:39:56 PAGE 25

SEQ 008*
sTHIS ROUTINE

IS USED

"YPE

THE BAD SECTOR FILE

ENTRY

[N DECIMAL.

TABLE

ENTRY

O
D iy

JUPON RETURN, R1 WILL BE POINTING TO THE NEXT BAD SECTOR (CYLINDER)
JENTRY,

;CALL

MOV

JSR

H
THE

=O O
N = OV

NP VNN

NN M) =t ~d md ed e od =D b e

MATRT

022610
022612

022614
022620

010146
104401

005711
100432
011146
004737
004737
104401
105046
116116

004737
004737
104401
105046
116116

004737
004737
062701
000742

001205

020126
001002
104401

000207

CONTENTS O

TYLIST:
1%:

MOV
TYPE
TST

R1,-(SP)
JSCRLF
(R1)

TYPE

. SCOMMA

CYL,TRK,SEC

8M]
MOV
JSR
JSR

CLRB
MOVB

000003
027100
026670
035602

3%:

'FILENAME®

2%
(R1) ,=(SP)
PC,$5B2D
PC,$SUPRL

FIRST

sCALL TYPE LIST ROUTINE

FOLLOWING FORMAT:
THE BAD

SECTOR FILE

(DECIMAL)

:ESVEFADDRESS OF FIRST TaBLE ENTRY

;IS IT TERMINATOR ~
JBR IF YES
JPUT CYLINDER NUMBER ON STA(K
;CONVERT IT TO DECIMAL
};SE (.)EGIMAL NUMBER,

LEFT

JUSTIFY

JSR
JSR

CLRB
MOVB
JSR
JSR
ADD

-(SP)
2(R1),(SP)
PC,$582D
PC,$SUPRL
#4 ,R1

;CLEAR STACK LOCATION

JADJUST R1 TO NEXT BAD SECTOR ENTRY
NEXT ENTRY

{mMp

R1,(SP)+

;JWERE

THERE ANY ENTRIES

TYPE

NOENTR

;TYPE

"« NC ENTRIES

2%:

[N THE

JADJDRESS OF

-(SP)
3(R1),(SP)
PC,$SB2D
PC,$SUPRL

TYPE

020002
(27100
226670
000004

042206

TYPED

027109
026670
036602

PC,TYLIST

LIST WILL BE

022512
022514
022520
022522
022524
022526
022532
022536
022542
022544
022550
022554
022560
022564
022566
022572
022576
022602
022606

R
ANUMADR

BNE

RTS

. $COMMA

;CLEAR STACK LOCATION

;PUT

TRACK NUMBER ON STA(K

;CONVERT 1T TO DECIMAL

:;;gg QEQIMAL NUMBER, LEFT JUSTIFY
;PUT

SECTOR NUMBER ON STA(K

;CONVERT IT TO DECIMAL
;TYPE DECIMAL NUMBER, LEFT JUSTIFY

;BR IF

JRETURN

YES

»*

WM e/ %0

~ERGAL

MACRO v04.00

EURMATITER
NUMBER

4~APR-B1

OCTAL

R —_—

)

h ek —

N—-OO QW NN
W - OO00 NN PN

LSBTTL

V1AWl

7
E
18:39:56 PAGE 26

TYPE

PACK

SERIAL

NUMBER

IN O(TAL

JROUTINE TO TYPE THE PACK SERIAL NUMBER [N O(TAL
JCALL:

O
022622
022626
622632
022634
022640
022644
022650
022654
022660
022662

022664

(22670
022674
022700

104401

013746
001414
004737
004737
013746
004737
004537
000005
000406
013746
004737
004737
000207

037473
003426

JSR

TYPACK:

PC,TYPA(K

s CALL ROUTINE

PC,TYPCK

JCALL ROUTINE (WITH NO HEATER ME<

PACKSN

JTYPE 'PACK S/N:'
JGET HI NUMBER (MSB)

USTAB+2,~(SP)

:
TYP(K

02733,
026670
003424
027330
026770
003424
027330
02€670

JSR

MOV

.WORD
B8R

1%:

Mov

2%:

RTS

JSR
JSR

1%
PC,$5820
B(,$SUPRL
USTAB,=(SP)
P(.$5820
?5,FILLZ

USTAB,~(SP)
P(C.$5B20

PC,$SUPRL
PC

;BR IF

ZERQO

;CONVERT TO OCTAL NUMBER
JAND TYPE IT LEFT JUSTIFIED
;GET LOW NUMBER (LSB)
;CONVERT TO OCTAL NUMBER
JTYPE

WITH PRECEEDING ZEROS

;5 DIGITS

;GET LOW NUMBER (LSB)
;CONVERT TO OCTAL NUMBER
JAND TYPE [T LEFT JUSTIFIED
JRETURN

JEMUBO RMOS/3/ ¢ FORMAT? ER

*\TER BAD SECTC R ROUTINE

MACRO v04.00

4-APR-B1

TEoNE

.SBTTL

MANTER:

022716

177777

JSR

RS ,MANTER

MOV

R4 ,~(SP

(R5) ,R4
(R4)+ 2%
3%

s :PUSH R4 ON STA(K
¢GET TABLE POINTER
JGET ADDRESS OF MESSAGE
;BR IF NO MESSAGE

JADDRESS OF

(SP)+ ,R1
(R4)+ R2
R5.(K.DIG

;ADDRESS OF FIRST ASCIZ CHARA(TER
JUPPER LIMIT OF INPUT
;CHECK THE DIGIT(S)

MOV

006002

2%:
2%

TYPE

.WORD

MOV
RDLIN .
MOV
MoV
JSR

#-1,22(R4)

’$

7$
7%
4%
7%

010234

01240¢
004537
023030

023002
023004
023010
023012
£23014
023016
023020
023022
023024
023026

012402
004537
023030

023042

MOV

BEQ

02317¢

022756
022760
022764
022766
222770
022772
022774
02776
023000

023034
023036
023040

1%:

MOV

5¢%:

MOV
JSR
7%
7%
7%
7%
5%
7%
MOV

023172

023030

023030
023030
023000
023030
010234

023030
023030
023024
023030
023030
010234
000403
104401

000723
005725
012604
000205

MOV
JSR
7%
7$
7%
6%

023172

h ]

LS TV o
NN
—

222702
22704
022706
022712
022714
022716
022720
022726
022730
022732
022734
(22740
022742
222744
022746
022750
022752
022754

023030

ENTER BAD SECTOR ROUTINE

TABLE

>
o
Dt
N SN
I

NOANH
WU DIO

Al
19

7
27

JROUTINE TO ENTER BAD SECTOR INFORMATION MANUA LY

sCALL:

522702

‘R

'8:39:56 PAGE

0637174

7%:

8%:

7%
7%
MoV

TYPE
BR
TST
MOV

RTS

<CALL ROUTINE

;ADDRESS QOF

TABLE

MESSAGE

GOES HERE

JINITIALIZE VALUE

;CARRIAGE RETURN ONLY ENTERED

;PERIOD ONLY ENTERED

;ILLEGAL

INPUT

;TERMINATED WITH A

(ARRIAGE

JTERMINATED WITH A *°"’

R2,a(R4)+

(R4&)+ ,R2

R5,(k.DIG

RETUURN

JTERMINATED WITH A """’

;CYLINDER ADDRESS

JUPPER LIMIT OF INPUT
sCHECK THE DIGIT(S)

;CARRIAGE RETURN ONLY ENTERED

JPERIOD ONLY ENTERED

s ILLEGAL INPUT
;TERMINATED WITH A CARRIJAGE RETURN

;TERMINATED WITH A °',°"
;TERMINATED WITH A “°""

¢
R2.@(R&;

; TRACK ADDRESS

(R&4)+,R2
RS,(K.DIG

JUPPER LIMIT OF

INPUT

sCHECK THE DIGIT(S)

;CARRIAGE RETURN ONLY ENTERED

;PER]OD ONLY FNTERED

;ILLEGAL INPUT

;TERMINATED WITH A CARRIAGE

R2,a (R4

LBADENT

1%
(R5)+
+ R4
(SP)
RS

JTERMINATED WITH A '',**
JTERMINATED WITH A *".""

:§§§¥0R OR BYTE ADDRESS

JMESSAGE BAD ENTRY
JENTER SECTOR ADDRESS AGAIN

;ADJUST RETURN ADDRESS

:éP?? STACK [NTO R4
JEX

RETURN

JRW BS RM05/3 2 FORMATER

ENTER BAD SECTOR ROUTINE

MAIRO v04.00

4-APR-81

;THIS

:?gle

CHARACTER IS A DIGIT BETWEEN O AND 7.

MoV

¢
7

:
:

RE TURN 1
RE TURN2

CK.0CT:

(MPB
BLO

(R7) ,#'0
1%

;LESS THAN ZERO?
JYES

BHI
MOVB

'$
(R1),R2

YES
;GET

ROUTINE

18:39:56 PAGE 28

121127
103407

000060

12 023052

121127

000067

15 023062
14 023066
:g 023070

042702
005725
020205

177770

13 023056
16 023060

101004
111102

(mMPB

;THIS

:?gELDEYERMINE IF

;

MOV

;

RE TURN1

29
[4

28 023072
29 023076
30 023100
31 023104
32 023106
33 023110
36 023114
;2 023116

121127
103407
121127
101004
111102
042702
005725
000205

000060

(K.DEC:

000071

000060
18:

USED

RS, CK.DEC

sCHE(X THE CHARACTER

:CHARACTER IS NOT BETWEEN 0-7
JCHARACTER IS IN R2 AS A

;GREATER THAN SEVEN?

(R"),#'0
1%
(R1),#'9
1$
(R1) ,R2
#'G,R2
(RS) +
RS

;
;
;

[

023120
023122
0231264
023130

105711
001417
121127
001413

55 023136
56 023140
S7 023144

001407
004537
0C0410

54 023132

121127

:
;
:
;

MoV
JSR
RETURN
RETURN

#ADR,R1
RS,(K.CHR
ADR1
ADR?

;
;

RETURN

ADRS

(K.CHR:

000054

000056
023072

(HARACTER

CHECK

AN ASCII

CHARACTER

;ADDRESS OF ASCII

CHARACTER

;CHECK THE (HARACTER

:NOT BETWEEN O AND 9

;BETWEEN O AND 9

46
45
46

&7
43

THE

;STRIF AWAY THE AST]]
;ADJUST FOR RETURN
;RETURN

;LESS THAN ZERO?
YES
;GREATER THAN NINE?
JYES
;GET THE CHARACTER
;STRIP AWAY THE ASCI!
;ADJUST FOR RETURN
;RETURN

;THIS ROUTINE WILL CHECK AN ASCII

RETURN
RETURN
RETURN

(HARACTER

;R2 - DIGIT

;DETERMINE WHAT 1T IS.
. CALL

S0
51
52
53

#ADR,R1

28
39

&0
41
42
63

ASCII

IT IS A DIGIT BETWEEN O AND 9.

RE TURNZ
(MPB
BLO
(MPB
BH]
MOVB
BIC
TST
RTS

;ADDRESS OF

#4C7,R2
(R5)+
RS

JSR

JOCTAL DIGIT

(HECK

RS, (K.OCT

g?
23

ROUTINE

(R1),#'7

BIC
TST
RTS

1%:

USED

#ADR _R1

JSR

10 Q23044
11 023050

CHARACTER TO

;ADDRESS OF ASCII CHARACTER
;CHECK CHARACTER
:UNKNOWN CHARACTER
;CARRJAGE RETURN * (R1)-ADR+¢1

ADR3
ADR4
ADRS

;COMMA x (R1)=ADR+1
;PERIOD * (R1)-ADR+1
:DIGIT BETWEEN O AND

TSTR
BEQ
(MPB
BEQ

(R1)
3s
(R1) ,#°,
2%

;*'CARRIAGE RETURN'"?
JYES
;'COMMA'"?
JYES

BEQ
JSR
BR

1%
R5,(k.DEC
4%

JYES
JSDIGIT'
INO

(MPB

(R1).,%'.

;DIGIT BETWEEN 8 AND 9.
:R2 = DIGIT « (R1)-ADR+1

;"'PERIOD'
TM

JM B0 RMOS/3/2 FORMATTER

MATRD

(6,00

4-APR-B*

*NTER BAD SECTOR ROLTINE

58 023146

004537
005725
005725
005725
005725

023044

JSR
18”7

13 ¥

’$:
3%:

005725
005201
011505
000205

4%:

TST

7S7

IS8T
TST
INC

MOV
RTS

;THIS ROUTINE

H
7
'8:39:5%¢ PAGE 2 8=1

RS5,(x.0CT
(R5)«
(R5)+
(RS)+
{RS5)+
(RS)
R1
(RS) ,R5
RS
CHECKS AN ASCII

sOCTAL ?
sDIGIT BETWEEN 8~9%

;DIGIT BETWEEN 0-7
;PER]IOD
s COMMA

: CARRIAGE RETURN

sMOVE POINTER TO NEXT (HARASTER
s UNKNOWN (HARA(TER

;JRETURN

STRING FOR LEGAL

;CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER [N RZ.

s CALL
H

023172
023174
023176
023200
023202
023204
023206

010446
010346
010246
005002
005003
005004
004537

023214
023216
023220
023222
023224
023226
023232
023234
023236
023240
C23242
023244
023246
023252
023254
023256
023260
023262

V23314
023306
023310
023226
023226
062705
006303
010346
006303
006303
062603
060203
004537
023312
023276
023274
023266
023232
023232

97 023270
98 023272

001010
005724
005724
005724
020316
003004

023212

023264
96 023266

023274
100 023276
0 023300
107 C23302
9

023306

105711

(K.DIG:

MOV
MOV
JSR
RETURN
RETURN
RETURN
RETURN
RETURN
RETURN

#ADR,R1
ANUM, R2

MOV

R4,=(SP)
R3,-(SP)
R2,-(SP)
R2
R3
R4
R5,CK.CHR

MOV
MOV

CLR
CLR
CLR
JSR

023120

6%
9%
A

R5,(K.DIG
ADR1
ADR?
ADR3
ADR4
ADRS
ADR¢

023120

TST

TST
IST
(MpP
B8GT

;SAVE R4

;SAVE R3

;SAVE THE MAX.
;START WITH O

SIZE

THE

STACK

:CHECK ONE CHARACTER
:ILLEGAL CHARACTER
’

RETURN

;*8

$(*2)+(x8)

-~ »10

JUPDATE THE INPUT NUMBER
:CHECK ONE CHARACTER

;JLLEGAL CHARA(CTER
:CARRIAGE RETURN
RN

4%
5%:

J"PERIOD'" == R2 = NUMBER

;S?VE

MOV
ASL
ASL
ADD
ADD
JSR

BNE

JU'CR' == R2 = NUMBER
J'COMMA'" ~= R2 = NUMBER

;DIGIT 0-7
:DIGIT 8-9
;STEP RETURN POINTER PAST "(R"' & "PERIOD'' RETURNS
S INPUT NUMBER 2

8%
5%

3%:

;ILLEGAL CHARACTER OR INPUT TOO LARGE == R2-?

1%
ADD
ASL

3%
2%
2%
iSIB

:"'CR'" ONLY ENTERED -- R2=0
;"PERIOD’’ ONLY ENTERED -- R2=0

1%:
2%:

JCHECK DIGITS

: CARRIAGE

000004

;ADDRESS OF ASCIZ STRING
sMAX. MAGNITUDE OF INPUT NUMBER

(R1)

+
(R4)
(R4)+
(R4)+
R3,(SP)
9%

:DIGIT Q-7
;:DIGIT 8-9
:DOES A '"'CR'" FOLLCW THE 'PERIOD'’
;BR IF NOT
; INCREMENT THE RETURN
: INCREMENT THE RETURN
;INCREMENT THE RETURN-

;CHECK THE MAGN]TUDE OF

THE NUMBER

;BR IF ENTERED NUMBER TOO LARGE

JHMUBD HM0S/ 372 FORMATTER

MA“ Ry V06,00

4-APR-B!

'8:39:56 PAGE

28-2

FNTER BAD SECTOR ROUTINE

103 023304

04 023306

108 023310
106 023312
107 023314
108 023,16
106 023320
*10 023322
*1Y 023%24
112 023326

000402

005725

005725
060405
010302
005726
012603
012604
011505
000205

6%:

7%:
8$:
9% :

B8R

;BYPASS INCREMENT

1S7
ADD
MOV
18T
MOV
MOV
MOV
RTS

(RS) ¢
R4 RS
R3,R2
(SP)+
(SP)+ ,R3
(SP)+ R4
(R5) ,RS
RS

; INCREMENT RE TURN
:SETUP RETURN POINTER
JENTERED VALUE
sCLEAN MAX, SIZE OFF OF STA(K
;RESTORE R3
:RESTORE R4
:GET RETURN ADDRESS
:RE TURN

1ST

(RS)+

:INCREMENT RETURN PAST !NvAL
ID RETURN

JRM

-V

ERRCR W'

AN
T TR R

v04.00

18:39:56

PAGE

JSBTTL
S

J
4-APR-81

EQ LOB”

ERROR HANDLER ROUTINE

2232222020222l
ARl
sd Rt
R 2R 2R R R R R R AN RN N

:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERRDR (OUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR Al.
;*AND GO TO TYPERR ON ERROR
;*THE

SWITCH OPTIONS PROVIDED BY

;*SW15-1
;*SW13=1

223320
223334
023336

105037
104407
010137

023756

02336
023354
023362
023366
023370

013737
113737
N 5737
001406
013746

005552
0C5551
005564
_
005564

C13637
105237

001140
001117

02332

023376

024400
234604

023410
0234612
023420

023426

023430
023434
0234640
023444

023452

023460

023466
023470
023476
023500
023504
£23506
023514
023516
023522
023530

23536
023540
023546
023552
023554

010337

°62716

001775
(13777
032777

001402

001370

001116
002000

032777

001000

001060
122737
001454
105737
001047
022737
0071445
013746
012737
013737

000406
012737
012716
000002
012637

022737
001420

023576
23600

001414
042737

032737

155454

000177

001362
001364

000004

7%:

155536
155526

IBSAVE

R1.DDRIVE

MOV
MOVB
TST
BEQ
MGV

FMTDPB+12,DS.CYL
;CURRENT CYLINDER ADDRESS
FMTDPB+11,DS.TRK
;REQUESTED TRACK ADDRESS
RM.REG+RMBA
;NON~ZERO BUFFER ADDRESS ?
7%
;BR IF NO BUFFER ADDRESS
RM.REG+RMBA,~-(SP)
;BUFFER ADDRESS

MOV
INCB

BEQ
MOV
BIT

; sERROR-EMT

R3,ATTIN

#2,(SP)

@ (SP) + ,$GDDAT
$ERFLG

AND N=ERROR

ITEM NUMBER

;. CLEAR THE ITEM BYTE SAVE LOCATION
;:TEST FOR CHANGE [N SOFT-SWR
;DRIVE ADDRESS IF DRIVE ERROR "AlLL

JATTENTION REGISTER CONTENTS

:DECREMENT THE ADDRESS

JGET THE BUFFER WORD WHICH DIDN'T
;.SET THE ERROR FLAG

;:NO - SKIP

001132

LEBELL
SERTTL
(SP) ,$ERRP(
#2 ,3ERRP(

. :RING BELL
;. COUNT THE NUMBER OF ERRORS
;;GET ADDRESS OF ERROR INSTRUCTION

15546¢

BIiT

#BIT09,aSWR

;;SEE IF LOOP ON ERROR IS SET

001130

MOVB

Q01130

02375«

177777

023754

000004

1000%:
1001%:

177777

(023754

000001

023754

(00001

177766

1002%:

(OMPARE

7%
;:DON'T LET THE FLAG GO TO ZERO
$TSTNM,DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG
#RIT10,aSWR
;.BELL ON ERROR?

TYPE
INC
MOV
SuUB

000004

023554

CLRB
CKSWR
MOV

BEQ

1%:

023540

177766

SuB

023756
177777

ERROR

MOV

000002

001200
001126
001132
000002

023560
023566

023570

(01366

104401
005237
011637
162737
117737

$ERROR:

ARE:

BE.L ON ERROR
LOOP ON ERROR

;*SW10-1
:'5209:1
s=CALL
I

THIS ROUTINE

HALT ON ERROR
INHIBIT ERROR TYPEOQUTS

a$ERRPC ,$ITEMB

;;STRIP AND

BNE
(MPB
BEQ
TSTR
BNE
(MP
8tQ
MOV
MOV
MOV

10048
#177,%1TEMB
10048
IBSAVE
1003%
#-1,CPSAVE
10048
ERRVEC(C,-(SP)
#1000%,ERRVE(
177766, (PSAVE

; cBRANCH AROUND ROUTINE IF SO
;:SEE IF THIS 1S THE POWER FAIL CALL
; «BRANCH ARQUND ROUTINE IF IT IS
;oSEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE
;;BRANCH [IF SO
;;SEE IF CPSAVE HAS CPU TRR REG TIMEOUT INDICATION
; «BRANCH IF SO
;:SAVE CONTENTS OF ERROR VECTOR
;:SETUP 'TRAP' RETURN ADDRESS
;:;MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

MoV
RT!
MOV

#1001%, (SP)

BR
MOV

1001%
#-1,CPSAVE

SAVE

THE

ERRCR

ITEM (ODE

;:SET CPYU ERROR REGISTER TIMEOUY INDICATOR
:2SETUP RETURN ADDRESS

(SP)+ ERRVE(

;;RESTORE CONTENTS OF ERROR VECTOR

(MP
BEQ

#-1,CPSAVE
10048

;:SEE IF CPSAVE HAS (PU ERR REG TIMECUT INDICATION
;¢BRANCH IF SO

BEQ
BIC

1004%
#31700,177766

JBRANCH [F OK
:;CLEAR THE BIT FOUND SET

BIT

#3]1700, CPSAVE

;oSEE IF POWER MONITOR BIT IS SET IN (PU ERR REG

P s

KMUS/3/¢

HOHANDLER

-23606
023614

FORMATTER

MACRD v04.00

023756
001130

113737
1127%7

000402

023624
023630
023630
023636
023640
023644
023650
023650
023656

105037

023756

032777

020009

106401

023760
001205

122737

000001

001230

113737

001130
027522

023672

023740
023744
023744
023750
023752
023754
023756

18:39-56 PAGE 2 9=-1

ROUTINE

023622

023660
023666
023672
023673
023674
023676
(23702
023704
023710
023712
023714
023716
023716
023724
023726
023732
023736

4-APR-81

001004
004737

001007
004737
000

155316

105737
001005

005777
100002

20%:

22%:
2%:

023756
155244

104407

001124
001176

105737

023756

001215
000002
000000
000000

001000

001176

1004$

¢ sMAKE IBSAVE NON-ZERC FOR DUAL ERROR (ALL
soSET SITEMB TO SPECIAL POWER FAIL POINTER
: sBRANCH OVER !BSAVE (LEARING

CLRB

IBSAVE

:sCLEAR [BSAVE SO 2ND TIME THROUGH EXITS

81T

#31T713,35WR
208

:sSKIP TYPEQUTS

BNE
JER
TYPE

(MPB
BNE

JSR
.BYTE
BYTE
BR
~ST8
BNE
TST
8PL
HALT

000000

032777
001402
013716
005737
001402
013716

SITEMS, IBSAVE
#177 81 1EMB

MOVR

21%:

000

000777

1003%:
1004%:

MOVB
MOVB
B8R

155230

3%:

4%:

5%:

CPSAVE:
IRSAVE:

PC,TYPERR

SCRLF

HAPTENV, SENV

2%
$ITEMB,21$

PC,$ATYS

0
0
22%

IBSAVE
3%
aSwR
3s

CKSWR

BIT
BEQ

MOV
TST

BEQ
Mov
1518

:sRUNNING

IN APT MODE

2 iNO,SKIP APT ERROR REPORT
;sSET JTEM NUMBER AS ERROR NUMBER
;;REPORT FATAL ERROR TO APT
;JAPT ERROR LOOP

;.SEE IF IBSAVE IS LOADED
;:BRANCH IF NOT =~ NO HALT ON PWR MON BIT ERROR
;;HALT ON ERROR
;sSKIP IF CONTINUE
;.HALT ON ERROR!
FOR CHANGE

IN SOfF T=-SWR

221109.QSHR

;2LO0OP ON ERROR SWIT(CH SET?

$LPERR, (SP)
$ESCAPE
5%
SESCAPE, (SP)

;sFUDGE RETURN FOR LOOPING
s CHECK FOR AN ESCAPE ADDRESS
;oBR IF NONE

IBSAVE

-WORD

0
0

-WORD

;G0 TO USER ERROR ROUTINE

J:TEST

BNE

RT]

JoSKIP TYPEOLT IF SET

J2BR IF NO

;sFUDGE RETURN ADDRESS FOR ESCAPE
;;SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
; sBRANCH BACK TO CALL ORIGINAL ERROR
s JRETURN
IROR REG (ONTENTS
:;LOCATION TO SAVE (P.
;;LOCATION TO SAVE Ilem BYTE

SRV M.

towAND FR ROUTINE

MAIRD v04.00

4-APR-81

1B:39:56 PAGE 3 0

sTHIS ROUTINE USES

THE '‘ITEM (ONTROL BYTE'' (SITEMB) TC DETERMINE
IT THEN OBTAINS, FROM THE ‘ERROR
AND REPORTS THE APPROPIATE INFORMATION

;JWHICH ERROR 1S TO BE REPORTED

OOV
OV NN Ny

JTABLE'" (SERRTB),

s CONCERNING THE ERROR.
TYPERR:

001130
000177

223760
023762
023764
023770
023774
023776
024004
024010
024012
024014
026016
21 024020
024022
026024
024030
024034
024036
024042
024044
024046
024052
024054
024060
024062
024064
024066
024070
024072
024074
024076
024100
024102
024106
024110
024112
024114
24116
024120
024122
024124
024124
024126
024130
024132
024134
024140
024142
024144
024146
dd et

001214
024234

264152
024156
024160

024374
%

N)
b

Fhi

RMUS/3/2 FORMATER

006460
024044
104601
000000

012037
001404
104401
104401

000000
012001
001460
005005
012000
012002
001451
005105
104401
112003
112004

001205
024062

7%:

001205

104401
005760

001404
005105

CLR
MOVB
(MPR
BNE
MOV
MOV

RO
$ITEMB
RO
#177.R0
1%
STESTN,PFTSIN
#PFECH,RO

MOV
DEC
ASL

RO,R1
RO
RO

B8R

ASL
ASL

ADD
MOV
BEQ

TYPE
TYPE
. WORD

MOV
BEQ

TYPE
TYPE

8%:

1%:

036621
12%:
001205
00000¢

RO
RO

MOVR
ROR

B(S
MOV

;SEE IF THIS ERROR (AL IS SPEC]AL POWER FAJL
BRANCH IF NOT
JGET TEST NUMBER
JMOVE POWER FAIL ERROR (ALL TABLE TO RO

JAND COPY IT

;FORM INDEX

INTO R1

FOR ERROR

TARLE

.SCRLF

;GET ERROR MESSAGE (EM) POINTER
;BR IF THERE ISN'T ONE
;"'CARRIAGE RETURN - LINE FEED

J"EM'' POINTER GOES HERE

(RO) +,6%
7%
LSCRLF

BEQ
(LR

MOVB

RO=RS

;CLEAR RO FOR ERROR NUMBER
;ERROR NUMBER

;FORM ADDRESS

17%
RS

TYPE

;SAVE

#SERRTB,RO
(RO)+,4%
5%

TYPOC

10%:

.WORD

MOV

MOV
MOV
BEQ
(oM

9% :

106405

000764
005302
003437

5%:

6%:

013146

104401

4%:

001205

006004
103403
013146
104402
000402

005303
001403

2%:
3%:

SAVREG

(RO)+ R

(RO)+ RO
(RO) +,R2
16%
RS
LSCRLF

(RO)+,R3

(RO)+ R4
R4

10%
d(R1)+,~(SP)

;sPICK UP DATA HEADER

;BR

NONE

(DH)

POINTER

. CARRIAGE RETURN-LINE FEED

;'DH'" POINTER GOES HERE

;PICKUP DATA TABLE (DT) POINTER
;BR IF NONE
;SET INDENT SWITCH
;DATA FORMAT

(DF)

POINTER

JNUMBER Of DH'S TO TYPE
JBR IF DH NUMBER IS 0

;NO INDENT
s CARRIAGE RETURN-LINE FEED
;NUMBER OF DATA WORDS TO TYPE
;AND HOW TO TYPE THEM
;OCTAL OR DECIMAL?
;DECIMAL

;2SAVE @(R1)+ FOR TYPEQUT
; ;GO TYPE--OCTAL ASCII(ALL DIGITS)

11%

MOV

a(R1)+,-(SP)

DEC

::SAVE a{R1)+ FOR TYPEOUT
;G0 TYPE--DECIMAL ASCII WITH SIGN
:MSRE NUMBERS TO TYPE?

TYPE

JBLNKS?

JTYPE 2 SPACES

R2
17%

;MORE DH'S?

13%
RS

;BR IF

TYPDS

BEQ

12%

B8R

TYPE
1ST

LSCRLF
2(RO)

DEC
BLE

BEQ
(oM

.LOOP

JNO
;YES~-=-START A NEW LINE

;ONLY A 'DH' IN THIS REQUEST ?
YES - BYPASS THE

s INDENT?

INDENT

CALL

ERROUR HANDLER ROUT INE

59 024162
60 024164
61 0246170
62 024174
63 024176
) 024200
65 024202
“€ 024204
74 024210
68 024e72
69 024216
70 024220
71 024222
7¢ 026226
73 024230
76 024232
75 024234
76 0246244
’7 024326
78
79 026360

80 024370
81 024372
82 024373
83 024374

001002
1044901

012037
104401

000000
00571C
001C03
062700
000754

;04.0C

BNE

(36621

024176

13¢:
4%:

15%:

104401

036621

16%:

104413

000207
024244
120
1264

024374
000001
003
000
00000

-WORD

TST

ADD

001205

000727

TYPE
MOV
TYPE

BNE

000004

104401

005705
0013s¢

4&-APR-81

17%:

024326
117
105

024360
127
123

001132

723754

TYPE
1ST

BNE
TYPE
BR
RESREG
RTS

7
Mm
'8:39:56 PAGE 30-1

138

:NO

(R0O)+,14%

JGET NEXT DH
JAND TYPE 7

BLNKS2

(RQ)
15%
4 RO
12%

LSCRLF

JTYPE 2 SPACES
;DH POINTER GOES HERE
;TYPE A 'DT* 2

:BR IF A ‘DT’
JINCREMENT THE °'DF*' POINTER
JSEE IF END OF 'DF°’ BLNO(K

RS
8%

; CARRIAGE RETURN-LINE FEED
:INDENT?
:NO

.LOOP

JRETURN

BLNKS?

sTYPE 2 SPACES

;RESTORE RO-RS

PFECH1,PFECHZ ,PFECH3,PFECH4 ;WORDS DEFINING TABLES BELOW
LASCIZ
?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET?
PFE(HZ: .ASCIZ
PTESTNO
ERR PC
C(PUERREG?
.EVEN
PFTSTN,$SERKFC,
(PSAVE 0
PFECH3: .WORD
;NUMBER OF DATA HEADERS
PFECH4: -WORD
BYTE
JNUMBER OF WORDS IN DATA TABLE
BYTE
JALL 3 NUMBERS ARE OCTAL
PFTSTN: .WORD
;CONTAINS TEST NUMBER FOR PF BIT ERROR
PFECH:
PFECH1:

MACRD

JNMLBC RMOS/3/2 FORMATTER

JRMUBU RMOS/3/7 FORMATTER
TTY OINPOT ROUTINE

MACRYU v04.00

4-"~R-81

.SBTTL

TTY

18:39:56 PAGE

SEQ 0091

INPUT ROUTINE

"‘l.'tl.tl‘ttt'tt"'!'.""‘!‘.l't'.fi""!.'fitt.‘t".'...'.'!..'.

024376
024400

024402
024404

“ENABL

000000
000000
000000

LSB

$TKCNT: _WORD
$TKQIN: .WORD
$TKQOUT: -WORD
STKQASRT: .BLKB
$TKQEND-.
.EVEN

024613

0
0

;sNUMBER OF

ITEMS IN QUEUE

;2 INPUT POINTER
s ;OUTPUT POINTER

;. TTY KEYBOARD QUEUE

;*TK INITIALIZE ROUTINE
;*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUFUE
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

txCALL:

24414
024420
024426
024434
024442
026450
024454
024462

005037
012737
013737
012737
012737
005777
012777
000207

024376
024404
024400
024464
000200

024400
024402
000060
000062

000100

154476

154506

i
o

JSR
RETURN

PC,3$TKINT

$TKINT:

CLR
MoV

STKCNT
;sCLEAR COUNT OF ITEMS IN QUEUE
#$TKQSRT,$TKQIN ;sMOVE THE STARTING ADDRESS OF THE

MOV
MOV
MOV
TST
MOV
RTS

$TKQIN,S$TKQOUT

H#STKSR
, ¥ TKVEC
V
#20
a4 TKVEC+2
0,
a$TkB
#100,3%TKS

;*TX SERVICE ROUTINE
*xTHIS ROUTINE WILL

SERVICE

;sQUEUE INTO THE INPUT & OUTPUT POINTERS.
;s INITIALIZE THE KEYBOARD VECTOR

;;"BR' LEVEL 4

;s CLEAR DONE FLAG
;2 ENABLE TTY KEYBOARD INTERRUPT
J2RETURN

TO CALLER

THE

TTY KEYBOARD INTERRUPT
CHARACTER FROM THE INPUT BUFFER AND PUTTING

;*BY READING THE
;*1T IN THE QUEUE.

;*]F THE CHARACTER IS A ''CONTROL~C'' (~C) $TKINT IS CALLED AND
;*UPON RETURN EXIT IS MADE TO THE ''CONTROL-C’'' RESTART ADDRESS (aCNTLO)
024464
024470
024474
024500
026502
024504
C24506

117746
042716

021627
001002
005726
000002

024506
024512

021627
001007

024520
024524
024526
024532
024536
024540
024546

004737
005726
000177
0221627
001004
022737
001500

024550
024550
024556
0246560

022737
001004
104401

024514

104401

$TKSRV: MOVB

154472
177600
000021

30%:

000003

025621
024414

000007

1%:

000176

001154

000007

024376

(SP)+

;sCLEAN RANDOM XON OFF STACK

308

(SP) ,#3
1%

JSR

PCLETKINT
(SP)+

187
JMP
(MP

BNE
(Mp
BEGQ

2%:

;sPICKUP THE CHARACTER
J2STRIP THE JUNK
;oIS IT A RANDOM XON?

cMp
BNE

TYPE

154640

001200

BIC
CMP
BNE
7ST
RTI

,
- (SP)
a$TKB
#~C177,(SP)
(SP) ,A%XON

P
BNE

TYPE

LJEONTLC

CNTLC

(SP) 47
2%

#SWRF
6, SWR

#7,8TKCNT

LEBELL

. <BRANCH

;sRETURN

;1S I7 A CONTROL C?
;;BRANCH IF NO
;o TYP: A CONTROL-C (*OO
THE KEYBOARD
;o INI
::CLEAN UP STACK
;s CON"ROL C RESTART
;:21S T A CONTROL G?
;;BRAMNCH IF NO
::IS “OFT=-SWR SELECTED?

::G0 TO SWR CHANGE

;2 1S THE QUEUE FULL?
;:BRANCH IF NO
J:RING THE

TTY BELL

JeM ol

M5,

FORMAT
T N

MA
N, e.l.

w-APR-81

1B:39:5¢ PAGE

31-1

TNY ROUTINE

026564

(C5726

026566
026570
026574
024576
024602

000451
021627
001021
Q05077
005726

0246610
0264612

100375
1177466

0266046

JIWALIT FOR A CHAR

154344

022627

000021

cMp

(SP)+ 821

012777

000100

001366

024636
0264640
0264044
026650

000002
005237
021627
002405

024656

003002

024670
024674
024702
026704
024712

005237
023727
001003
(12737
000002

02464660
026664

I$TKS

218
a$TKB, =(SP)

024626

024652

s CLEAN (HARACTER FF OF STA(K

BPL
MOVB

108777

042716

0264630

(SP) e«

5%
(SP) 423
32%
a87kS
(SP)+

026616

024622

1S7Y

8R
cmp
BNE
(LR
TST

000023

154354
154350

177600

BIC

000175

042716
112677

0CGC040
177510

BNE

154322

024376
000140

021627

TSTR

MOV

32%:

RTI
INC
tMP
BLT

(024413

024404

024400

5%:

;:LOOP UNTIL IT5 THERE
;:GET THE CHARA(CTER

#5177, (SP)

J:MAKE IT 7-BIT ASCI!
;18 1T A CONTROL-Q?

31%

;sBRANCH [F NO

#100,87TKS

JJREENABLE TTY KEYBOARD INTERRUPTS

$TKCNT
(SP) ,#140
43

:JRETURN
J:COUNT THIS CHARA(TER
;oIS IT UPPER CASE?
:;BRANCH IF YES

BGT

;:BRANCH [F

INC
CMP
BNE
MoV
RT1

$TKQIN
$TKQIN,#STKQEND
5%
#STKQSRT ,$TKQIN

;JUPDATE THE POINTER
;.GO OFF THE END?
;;BRANCH IF NO
;;RESET THE POINTER
: :RETURN

(MP

024400
024400

csEX]T
231S IT A CONTROL=S?
J2BRANIH [f NO
s:DISABLE TTY KEYBOARD INTERRUPITS
JsCLEAN CHAR OFF STA(K

BIC
MOVR

(SP) , #4175

;218 IT A SPECIAL (HAR>

#40,(SP)
(SP)+,a%TKQIN

YES

;oMAKE IT UPPER CASE
csAND PUT [T IN QUEUE

;.'ttQtititfitl!tfi'lttii'it'Ql’l'itt'*fiti.'fi""t".'tl't""t'.'"'

;*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.

s*ROUTINE

024714
024722

022737
001124

024736
024742
0264746

042716
021627
001300

Q24726
024730
024732

105777
100121
117746

000176

Q01154

154230
154224

177600
000007

IS ENTERED

FROM THE

TRAP HANDLER,

AND WILL

:*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
$(CKSWR: CMP
#SWRc G, SWR
22 IS THE SOFT=-SWR SELECTED
BNE
15%
;IEXIT IF NOT
T1STR
a$7KS
;2 1S A CHAR WAITING?
BPL
15%
J1F NOT, EXIT
MOVB
a$TKB,-(SP)
;2 YES
BIC
#AC177,(SP)
JiMAKE IT
7-BIT ASCII
CMP
(SP) ,#7
;2IS IT A CONTROL-G?
BNE
2%
;:IFDNg;iTpUT IT IN THE TTY QUEUE
;AN

M AR

EAASER

R4l

020

22222232222}

i=CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
;*ROUTINE

024750

123727

024756
024760
024762
024766
024772

001674
005726
004737
005077
112737

025000
025004
025010
025014

104401
104401
013746
104402

001150

000001

024414
154166
000001

001151

025633
025640
0C.176

OR FROM

THE

SOF TWARE

. *CONTROL-G BEING TYPED,

6%:

$GTSWR:

CMPR

$AUTOB, #1

SWITCH REGISTER

AND THE

SOFTWARE

TRAP CALL,

AS A RESULT

SWITCH REGISTER BEING SELECTED.

;;ARE WE RUNNING IN AUTO-MODE?

BEQ
TST
JSR
(LR
MOvR

2%
(SP)+
P(,STKINT
a$TKS
#1,8INTAG

;oBRANCH IF YES
;o CLEAR CONTROL-G OFF STACK
;J2FLUSH THE TTY INPUT QUEUE
;:DISABLE TTY KEYBOARD INTERRUPTS
;;SET INTERRUPT MODE INDICATOR

TYPE
TYPE
MoV
TYPOC

LSCNTLG
. SMSWR
SWREG,=(5P)

;;ECHO THE CONTROL=G (*G)
;. TYPE CURRENT CONTENTS
;. SAVE SWREG FOR TYPEQUT
;GO TYPE--OCTAL ASCII(ALL DIGITS,

=M B WMOS/3/ FORMATTER
NPUT ROUT INE
.

MACRD v04.00

4-APR-B'

C
18:39:56 PAGE

312

025016
025022
025024
025026
025032

025034

104401

005046
005046

025651

105777

154126

100375

025040

042716

117746

154122
177600

025044

021627
001015

000003

625050
025052
025056
025062
025070
025072
025100

104401

062706
123727
001003
012777
000177

021627
001005
104401

062706

000737
021627
001022
005766
001403
016677
062706
104401
123727
001003

025250
0252564

012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000667
104401

000720

’

19¢:

78:

TYPE
CLR

(LR
TSTR

8PL

MOVB

+SMNEW
=(SP)

-(SP)
a$TKS

a$TKB,~(SP)

BIC

#°C177.(SP)

(MP
BNE

(S%) .43
9s

2sPROMPT FOR NEW SwWR

¢ :CLEAR (OUNTER
::THE NEW SWR
:sCHAR THERE?

1F NOT TRY AGAIN
;3
;.PICK UP (CHAR
;JMAKE 1T 7-BIT AS(CI]

JoIS IT A CONTROL=-C?

TYPE
ADD

LSCNTLC
#6,SP

. ;BRANCH IF NOT
2o YES, ECHO CONTROL=-C
;. CLEAN UP STA(K

8%:

MOV
_Mp

#100,38TKS
ACNTLC

JsALLOW TTY KEYROARD INTERRUPTS
;. CONTROL-C RESTART

0C0025

CMP

025626
000006

20%:

000015

108 :

025621
00000¢

001151

000001

000130

154060

156266

(MPR
BNE

000004
154006

000002
000006
001205
001151

000001

000100

153764

026074
000060

11$:
14$:

15% 16%:

000067
000060
000002

B8NE

ADD
BR

#6,SP
19¢

TYPE

CMP

BNE

*8%:
DSABL

(SP)
. #15

16%

4(SP)

ADD
TYPE

118
2(5P) ,aSWR
#6,SP
L$CRLF

RT]
JSR

PC.S$TYPEC

CMPR
BNE
MoV

$INTAG,
#1
15%
#100,a8TKS

{MP
8LT
CMP
8GT
BIC

(SP) ,#60
18%
(SP) ,#67
18%
#60, (SP)+

BEQ

17%

ASL

001204

L$CNTLU

BEQ
MOV

ASL

000002
177776

(SP) ,#25

108

17%:

#1
SINTAG,
8%

2(SP)
(SP)

(SP)

ASL
INC

(SP)
2(SP)

B8R

BIS
TYPE
BR
LSB

~2(SP), (SP)
LBQUES
20%

«*()

;;REENABLE TTY KEYBOARD INTERRUPTS?
;2BRANCH IF NO

;1S IT A CONTROL-U?
2 ;BRANCH [F NOT
;.YES, ECHO CONTROL=-U (*U)
.. IGNORE PREVIOUS INPUT

JILET'S "RY IT AGAIN

IS IT A <CR>?
;;BRANCH IF NO
::YES, IS IT THE F]RST (HAR?
. ;BRANCH [F YES

;:SAVE NEW SWR

;:CLEAR UP STA(CK
:;ECHC <CR> AND <LF>

;sRE-ENABLE TTY KBD INTERRUPTS?
; JBRANCH IF NOT
;:RE-ENABLE TTY KBD INTERRUPTS

; sRETURN

;sECHO CHAR
::CHAR < O?
;sBRANCH [F YES

;,C(HAR > 77

;sRRANCH IF YES
J:STRIP-OFF ASCII
;1S THIS THE FIRST (HAR
:;BRANCH IF YES

JsNO, SHIFT PRESENT
(HAR OYVER TO MAKE
M
s

ROOM FOR NEW ONE.

. .KEEP COUNT OF (HAR
;2SET IN NEW (HAR
;sGET THE NEXT ONE
;o TYPE

?2<CR><LF>

;s SIMULATE CONTROL=-U

::QQ"t'ttttitt't.tt""i"'t'.'fi'fi""Q.fi.ltt!.'tltli'll'tt'.lt.

JrM OBl RMUS, By

"FeOINELT

ROUTINE

FORMATTER

MAIRO v04.00

4-APR-81

SEQ 0U9¢
s*THIS ROUTINE

;eCALL:
s
I3

o
025256
025260
025266
025272

(011646
016666
005066
005046

025300
025302
025302
025306
025310
025316
025322
025326
025334
025336
025344

000002

025274

D 8
1B:39:56 PAGE 31-3

000004
000004

0127646

025302

005737
001775
005337
117766
005237
023727
001003
012737
000002

024376

024376
177062
024402
024402
024404

000002

MOV
RT1

TST
BEQ
DEC
MOVR
iNC
CMP
BNE
MOV
RT!

000C04
024413
024402

2%:
.

o
o %

010346

005046
012703
022703
101456
104410
112613
122713
001022
005716
001007
112737
104401
Q012716
005303
020327
103434
111337
104401
000746
005716
001406
112737

025460

005016

025466

007003

025454

0254662

~CALL:

1%:
2%:

000177

000134
025600
177777

10%:

025600
6%:

0256072

025600
025600
5%:

104401

000134
025600

122713

000025

CHARACTER FROM

THE

TTY

J:GET A (RARA(CTER FROM THE QUEUE
;s CHARA(TER IS ON THE STA(K

J:WITH PARITY BIT STRIPPED OFF

#6468 ,-(SP)

:sPUSH DOWN THE PC AND
J2THE PS
;:GET READY FOR A (HARACTER
:sPUT NEW PS ON STA(K

;:PUT NEW PC ON

STA(CK

;:POP NEW PC AND PS

STKCNT
JsWAIT ON A CHARACTER
1%
$TKCNT
;;DECREMENT THE COUNTER
Q$TKAOLT,4(SP)
;:GET ONE CHARACTER
$TKQOUT
;sUPDATE THE POINTER
$TKQOUT ,#$TKQEND ;:DID IT GO OFF OF THE END”
2%
;:BRANCH IF NO
ABTKQSRT,$TKQOUT ::RESET THE POINTER
;RETURN

025600

RETURN HERE

(LR
MOV
MP
BLOS
RDCHR
MOVB
CMPB
BNE
TST
BNE
MOVB
TYPE
MOV
DEC
(MP
BLO
MOVB
TYPE
BR
TST
BEQ
MOVR

TYPE

INPUT A STRING FROM THE

RDL IN

$RDLIN: MOV
025602
025621

SINGLE

t!**'*fi*t*t.fitfitfl"i'"'tt'*t'.t""'tfi'fi"fi"*tt'*'t".t't'tt'

025346

{SP) ,=(SP)
4(SP},2(5P)
4 (5P)
-(SP)

*E:IS ROUTINE WILL

025350
025352
025356
025362
025364
025366
025370
025374
025376
025400
025402
025410
025414
025420
025422
025426
02543C
025434
025440
025442
025444
025446

INPUT

RDCHR
RETURN HERE

$RDC(HR: MOV
MOV
(LR
CLR
64%:
B

wILL

CLR

(MPR

BNE

R3,=(SP)

-(SP)
#STTYIN,R3
#STTYIN+15.
,R3
4%
(SP)+,(R3)
#177,(R3)
5%
(SP)
6%
#'\,9%
,9%
#-1,(SP)
R3
R3,#$TTYIN
4%
(R3),9%
,9%
2%
(SP)
7%
#'\,9%

TTY

;s INPUT A STRING FROM THE

::SAVE R3

::CLEAR THF RUBQUT KEY
. :GET ADDRESS
;;BUFFER FULL?
;:BR [F YES
;:G0 READ ONE (HARACTER FROM THE
;:GET CHARACTER
20 1S 1T A RUBOUT
;:BR IF NO
;1S THIS THE FIRST RUBOUT?
.:BR IF NO
::TYPE A BACK SLASH

TTY

;;SET THE RUBQUT KEY
;cBACKUP BY ONE
;.STACK EMPTY?
;:BR IF YES
..SEYUP TO TYPEOUT THE DELETED (HAR.
:GO TYPE
:;GO READ ANOTHER (HAR.
: RUBQUT KEY SET?
JeBR IF NO
;. TYPE A BACK SLASH

(SP)

.. CLEAR THE RUBOUT KEY

;:BR

#25,(R3)

TTY

2 ;ADDRESS OF FIRST CHARACTER WILL BE ON THE
;o TERMINATOR WILL BE A BYTE OF ALL 0°'S

;1S CHARACTER A (TRL U?
[F NC

STA(CK

MATRO v04.00

JeM B) RMOS5/3/2 FORMATIER
Tty INPUT ROUTINE
104401

025626

122713
001011

000022

000726

TYPE

8%:

001205
025602

104401

001204

4%:

111337
104401
122723

025600
025600
000015

3%:

105063

177777
001206

000717
000712

001305
104401

005726
012603
011646
016666
012766
000002
000
000
136
136
136

015

04C

;2 TYPE
+sTYPE

. SQUES

JITYPE A

B8R

TYPE

'V’

1S CHARACTER A *"TMR'‘/

;sBRANCH IF NO
;sCLEAR THE (HARA(TER

(R3)

B8R

(ONTROL

;¢G0 START OVER

LSCRLF
ST7YIN

llch.

THE

INPUT

llF'.

STRING

2:G0 PICKUP ANOTHER CHA(TER
7

(R3).,9%

2:CLEAR THE BUFFER AND LOOP
. ECHO THE CHARACTER

(MPR
BNE
CLRB

#15,(R3)
2%
=-1(R3)

;s CHECK FOR RETURN
;sLOOP IF NOT RETURN

TST

(SP)+

MOvB

;. CLEAR RETURN (THE 15)
;. TYPE A LINE FEED
::CLEAN RUBOQUT KEY FROM THE STA(CK

LSLF

(SP)+,R3

MoV
S?Y

(SP) ,=-(SP)

4(SP) ,2(SP)
#STTYIN,L(SP)

JRESTORE R3
ADJUST THE STACK AND PUT ADDRESS OF
FIRST ASCI] CHARACTER ON [T

9% :

BYTE

: ;STORAGE

$TTYIN:

.BLKB

15.

; ;RESERVE
JICONTROL
. CONTROL
::CONTROL

MOV

000002
000004

116

csTYPE

JEINTLU

TYPE
TYPE

TYPE

G15
015
015
123

31-4

1%
#22,(RY)
3s

MOV

0G0004
025602

18:39:56 PAGE

BR
(MPB
NE

(LRAB

105013
104401
104401

OO —t—rs
£
ONO
SN
N WA

025470
0254764
025476
225502
025504
025506
025512
025516
025520
025524
025526
025532
025536
025542
025544
025550
025554
025556
025560
025562
025570
025576
025600
025601
025602
025621
025626
025633
025640
025651

4-APR-B1

SONTLC:
SONTLU:
SONTLG:
SMSWR:

SMNEW:

.BYTE

.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
LLASCIZ

FOR ASCII!
;; : TERMINATOR

/72C/<15><12>
72u/<15><12>
/7%G/<15><12>
<15><12>/SWR =
/

NEW =

CHAR,

TYPE

15, BYTES FOR "7y INPUT
''C'
"V’
''G""'

THE

F
AR

G=Abgmn

JSBTTL
N

TRi3vihe PALE

YYPE GOUTINE
A

SR ARl

ARl

XA R

YRS

]

S*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WiTW A O BYTE.

S«THE ROUTINE wILL INSERT A NUMBER OF NULL (HARA(CTERS AFTER A L INE FEED.
+*NOTE1:
;*NOTE2:
;*NOTE3:
.

SNULL C(ONTAINS THE (HARA(CTER TO BF USED AS THE FILLER CHARA( ik,
$FILLS CONTAINS THE NUMBER OF FILLER (HARA[TERS REQUIRED.
$FILLC CONTAINS THE CHARA(CTER TO FILL AFTER.

soCALL:
.*1) USING A
:‘OR

025662
025666
25670
025672
025674
025676
025702
025710
025712
025720
025722
025726
025732
025734
025742
025744
025746
025750
025752
025754
025760
025762
025766
025770
25774
025776
026000
026002
026004
026010
026012
026016
026022
026024

226030
026034
026036
026042
G606t

105737
100002

000000
000430
010046
017600
122737
01011

132737
001405
010037

004737
000000
132737
001003

001173

122716

001430
122716
001006
005726
105037

000755
004737
123726
001350
013746

105366
002770
004737

;1S THERE A TERMINAL?
J:BR IF YES

. ;LEAVE

1053%7

060770

MOV

RO,=(SP)

BNE

628

000100

001231

BIR

BEQ
61%:
62%:
’%:

000602

60%:
3%:

000011

4%:

5%:

001170

026074«
026212

STRING

NO TERMINAL

;:SAVE RO

;<sGET ADDRESS OF ASCIZ STRING
;;RUNNING IN APT MODE

JiNO,GO CHECK FOR APT (ONSOLE

RAPTSPOOL ,$ENVM ;. SPOOL MESSAGE

62%

TO APT

;:NO,GO CHECK FOR (CONSOLE

.+ SETUP MESSAGE ADDRESS FOR APTY

BNE

;2BR OIF

MOv
ADD

RTI
{MPR

BEQ

(LRB
BR

P(,3ATY3
0
RAPTCSLP,BENVYM
60%
(RO)+ ,~(SP)
(SP)+

(SP)+ RO
#2,(SP)
AHT ,(SP)

#CRLF ,(SP)
5%

::SPOOL MESSAGE TO APT
; cMESSAGE ADDRESS
. APT (ONSOLE SUPPRESSED
J2YES,SKIP TYPE QUTY
;:PUSH CHARACTER TO BE TYPED ONTO STACK
IT

ISN'T

THE

;2
1F TERMINATOR POP

;sRESTORE RO
s sADJUST RETURN PC

; JRETURN
;sBRANCH

TERMINATCR

[T OFF

IHE

STACK

<HT>

;;BRANCH IF NOT <(RLF>

{SP)+

JIPOP
22TYPE

<CR><LF> EQUIV
A (R AND LF

$CHARCNT
’%

;sCLEAR CHARACTER COUNT
;:GET NEXT CHARACTER

$FILLC,(SP)+

;oIS 1T TIME FOR FILLER (HARS.?

JSR

PLLSTYPEC

BNE

;.1F NO GO GET NEXT (MHAR.

DE(R
BLY

1(SP)
6%

::DOES A NULL NEED TQO BE TYPED?
;i8R IF NO--GO POP THE NULL OFF (OF

’$

(mMPR

MoV
7%

@2(SP) RO
HAPTENV ,$ENV

JoHALT HERE

R0,61%

JSR
.WORD
BITR
B/ E
MOVR

TST
YPE
€CRLF

026212

AN ASCIZ

MOV

{(MPR
BNE

000200

00000C1

ADDRESS OF

STPFLG
1%

001230

026074
001172

FIRST

T1STB
BPL

104401

001205

$TYPE:

1%:

001231

;:MESADR

TYPE

MOV
CMPB

000040

INSTRUCTION

JMESADR

ME SADR

000002
000001

025732
027512

TRAP

HALT

112046

001005
005726
012600
062716
000002

TYPE

JSR
DECR

SNULL ,-{SP}

PC,8$TYPES
$(HARINT

;:60 TYPE

THIS CHARACTER

;;GET & OF FILLER CHARS. NEEDED
;oAND THE NULL CHAR.

;:60 TYPE A NULL
;:D0 NOT FOUNT AS A (OUNT

+.L00P

STAr

JeMol

WM
S L

a=mARRed?

;HORIZONTAL

026050

026056
026060

026066

026070

026072
026074

026074

11271¢

004737
132737

001372

000040

026074
000007

005726

000724

105777

100022
017746

026112
026116
026120
026120
026124

122716
001012

(00023

105777
100375
117716

153034

526126
0?6132

042716

026136
026142
026144
026144

(005726

026146
026152
026154

105777
100375
116677

026170

001003

026146

026162

122716
001366

122766

026172
026176

105037
000406

026206

001402

026200
026210
026212
026214

122766

105227
000000
000207

$"YPEC:

153060

026100
026192

026106

8%:

9%
(célie

177600
101%:

153030

177600

102%:
10%:

153012
000002
000015

153004

000002

1%:

£ ,(SP)

JJREPLACE TAB WITH SPACE

JSR
8178

PC.STYPEC
87, $(HARCNT

J:TYPE A SPA(E
::BRANCH IF NOT AT

1ST

(SP)+

;2POP SPACE OFF STACk

BNE

:;TAB STOP

TST18

a$TKS

;s (HAR IN KYBD BUFFER?

BIC

k‘??béO.(SP)

::STRIP EXTRANEOUS BI1S

(MPS
BNE

108
At TKRB , -(SP)

ASXOFF , (>P)
102%

;:GET NEXT (HARACTER
;:BR [F NOT
2:GET (HAR

. s WAS (HAR XOFF
;.BR IF NOT

1STR
BPL
MOVR

d$TKS
101%
2% TKB, (SP)

JIWAIT FOR CHAR

(MPB
BNE

ASXON, (SP)
1018

JoWAS [T XON?
::BR IF NOT

#177600, (SP)

::GET (HAR
J3STRIP IT

1ST

(SP)+

JsFIX STACK

TSTB
8PL
MOVB

a$TPS
10¢
2(SP) ,a81Ph

JIWAIT UNTIL PRINTER IS RFADY

BNE

:;BRANCH IF NO

(MPR

026212

000012

MOVR

BIC

000021

PAL

TAB PROCESSOR

8PL
MOV

153054

8 3G-5a

{LRB
BR

(MPS

BEQ

INCBR
$HARCNT:
. WwORD
$TYPEX: RTS

#(R,2(SP)

$CHARCNT
$TYPEX

HLF,2(SP)
S$TYREX

(P{)+
O
PL

;:L0AD CHAR TO BE TYPED INTD DATA REG.
;3 1S CHARACTER A CARRIAGE RETURNT

J3YES--CLEAR (CHARACTER COUNT
JaEXIT

::1S CHARACTER A LINE FEED?

:JBRANCH IF YES

;s COUNT THE CHARA(TER
;2 CHARACTER COUNT STORAGE

Ccru

AND

TVOE

MATRY

0w, 0

4~APR-81

LSBTTL

18:39:5%6 PAGE

BINARY TO OCTAL

(ASCII)

AND

TYPE

.Q"....'.I..Q...‘.'Q"."'.....QI......Qt.t'tl.'..'.'."'....Q

'THIS ROUTINE IS USED TO (HANGE A 16-BIT BINARY NUMBER 10 A 6-DIiGI7
1eOCTAL (ASCII) NUMBER AND TYPE IT,
:«$TYPOS-=~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
PN PN
)

R
'S
YETE

s*CALL:

L TR

B
b URMA®

MOV

NUM, - (SP)

JJNUMBER TO BE

BYTE

N
M

::M=1

TYPQOS
.BYTE

*$TYPON=-~=<ENTER HERE
;*$7YPOS OR $TYPO(
JxCALL:

T %

MOV

“YPON

026216

026222
026230
026234
026240

026242

026250
026256
026264
026266
026270
026272
026276
026300

026304
026310
26314
026320
026322
026324
026326
026330
026332
026334
026336
026340
026344
026346
026352

026354
026356
Ceb360

017646

116637

112637

062716
000406
112737

112737
112737

010346
010446
010546

113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016

042703
001002
005704
001403
005204

000000
000001

026441

NUM, - (SP)

000001
000006
000005

026441
026443
026440

026443
000002

026442

TYPED

::SAVE RS

ADD

#6,R4

:sSUBTRACT

MOVB
MOV

$OFILL R4
12(SP) RS

;;GET THE ZERO FILL SWIT(H
J:PICKUP THE INPUT NUMRBER

(LR
ROL
BR
ROL
ROL
ROL
Mov
ROL

DE(CR

1(SP) ,$0F ILL
(SP)+ _,8%0MODE+1
#2,(SP)
$TYPON

R4 ,-(SP)

32MODE*1.R4

R4, $OMODE

R3
RS
3%
R5
RS

;2 SAVE

Ré4

;;GET

THE NUMBER COF

;ISAVE

DIGITS

IT FOR MAX.

FOR USE

1O TYPE

ALLOWED

.. CLEAR THE QUTPUT WORD
;;ROTATE MSB INTO 'C*°
;.60 DO MSB
;:FORM THIS DIGIY

RS,R3
R3

:2GET LSB OF

;JBR IF

. sSUPPRESS

J;DON'T

$OMODE

#177770,R3
4%

B8EQ

INC

;+LOAD ZERO FILL SWITCH
; ;NUMBER OF DIGITS 10 TYPE
::ADJUST RETURN ADDRESS

BIC
BNE

157

70 BE

;:CALL FOR TYPEOUT

RS,-(5P)

BPL

177770

;;NUMBER

MOV

MOvB

3%:

16 BIT NUMBER

:oSET THE ZERO FILL SWITCH
;oSET FOR SIX(6) DIGITS
;3SET THE ITERATION COUNT
::SAVE R3

zggB

2%:

TYPEOUT

#1,80FILL
#6, SOMODE +1
#5,80CNT
R3,-(SP)

MoV

1$:

TYPEQUT OF

FOR

;:PICKUP THE MODE

$TYPQ(: MOVR
MOVB
$1YPON: MOVR
MOV

000006
026442
026441
000012

. ;CALL

Q(SP) ,=-(SP)

MOVB
MOVB
ADD
BR

026443

::1=TYPE LEADING ZEROS
;:0=SUPPRESS LEADING ZEROS

;*NUMBER TO BE "YPED

TYPGC

$TYPOS: MOV

0RO

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

;*%LYPOC--'ENTFA HCRE FOR
c*CALL:
i
MOV
NUM, - (SP)

TYPED

;eCALL FOR TYPEOUT
J:N=1 70 6 FOR NUMBER OF DIGITS 10O TVYPE

THIS DIGIT

;2TYPE THIS DIGIT?
NO

J:GET RID OF JUNK
JJTEST FOR O

JIBR IF YES

THIS 02

SUPPRESS ANYMORE

052703
052703
110337
106601

105337

003347
002402
005204
000764

012605
012604
012603
016666
012616

L-APR=-§"

TYPE

GO006N
CO0C40

5%:

026436
026436
02644C

7%:

6%:

0006002

000004

8%:
$OCNT:

526442

$OF ILL:
:
$OMODE

"B:3s:5¢ PAGE

BIS
BIS
MOVA

#'C,R3
_R3
2

DE(B
867
BLT
INC

$OCNT
2%
63

TYPE

BR
MOV
MOV
MOV

MOV
MOV
RT}

BYTE
BYTE
RYTE
BYTE
.WORD

R3,8%
8%

2%
(52)+,RS

(SP) +,R4
(SP)+,R3

2(SP) ,4(SP)
(SP)+, (SP)

[w]lelelelal

JeMoy
MUS/372 FORMATTER
=iNAy TC OCTAL (ASCIE) AND

330
soMAKE THIS DIGITY AS(I]
soMAKE ASCI] IF NOT ALRLADY

+3SAVE FOR TYPING
;G0 TYPE TH]IS DIGIT
2o COUNT 8y 1
;2BR IF MORE T0O DO
:;BR IF DONE
;o INSURE LAST DIGIT ISN'T A & AN
;:G0 DO THE LAST DIGI”
;2RESTORE RS
;2RESTORE R4
:2RESTORE R3
;J:SET THE STACK FOR RETURNING

s JRETURN

;STORAGE

FOR ASCII DIGIT

;:TERMINATOR FOR TYPE ROUTINE
;:0CTAL DIGIT COUNTER
;ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE

P
»

MLIRC

[

TPt

v06.00

4-APR-BT

1B:39:5¢ PAGE

3¢

HOUTINE

.SBTTL
S

CONVERT BINARY

2344

P*THIS ROUTINE

TO DECIMAL

IS USED

AND

TO CHANGE

TYPE ROUTINE

AR ER R

16-BIT BINARY NUMBER

10 A

R0 R

5= DIGIT

1*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER 'hE
:«NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TvPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS wlLl ALWAYS Bf

;*REPLACED WITH SPACES.
;eCALL:
- (SP)
MOV
NUA,
- &
TYPDS
.

[

026444
026444
306446
026450
026452

$TYPDS:

026454
026456
026462
026466

026520
026522
026524

026576
026600
026602
026604
026606
026610
026616
026620
026622
026624
Cr662¢

C00001

(LR

SUB
BLT
INC
BR

ADD
TST
BNE
1STB

005702
001002
105716

100407

106316
103003
116663

052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013

012605
012603

012602

012601

000001
000060
000040

8M]
ASLB
8((¢
MOVR
BIS
BIS
MOVB
18T
(MP

177777

000010

BLT
867

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

R3,-(SP)

RS5,=-(SP)
#20200,-(SP?
%2(SP)'RS

#'=,105P)
RO

#3DBLK R3
#' (R3)+
R2
$DTRBL (RQ) ,R1
R1,RS
4%
RC

3%
R1,RS

R2
5%
(SP)

8%:
127277

177776

MOVR

(LRB

MOV
MOV
MOV
MOV

;:PUSH R2 ON STACK
;:PUSH R3 ON STACK
;sPUSH RS ON STACK

::SET BLANK SWITCH AND SIGN
;:GET THE [NPUT NUMBER
J¢BR [F INPUT IS POS.
;:MAKE THE BINARY NUMBER POS.
JosMAKE THE ASCI] NUMBER NEG.
;o ZERO THE CONSTANTS INDEX
;<SETUP THE OUTPUT POINTER
:2SET THE FIRST CHARACTER 10 A BLANK
;s CLEAR THE BCD NUMBER
;:GET THE CONSTANT
:;FORM THIS BCD DIGIT
;:BR IF DONE
. INCREASE THE B(CD DIGIT BY 1

;:ADD BACK THE CONSTANT
JoCHECK IF BCD DIGIT-0
;;FALL

THROUGH

7%
(SP)

1(SP) ,=1(R%)

;s YES~=SET

THE

;+PUT

CHARACTER

#'0,R2
" IR2

n2,(R3)+
~
(RO)
RO #10

1STB
BPL

;:PUSH RO ON STACK
;sPUSH R1 ON STACK

;.STILL DOING LEADING 0°'S?
;.BR IF YES
;.MSD?

MOV

026564
026566
026570
026574

MOV

000055

026472
026500
026502
026506
026512
026514

026536
026540
026542
026544
026546
026554
26560

026650

020200
000020

026470

026526
026530
026532
026534

026660
000040

MOV
MOV
[0}
MOV
MOV
MOV
MOV
BPL
NEG
MOVB
(LR
MOV
MOVB

;;PUT THE BINARY NUMBER ON THE STA(K
.+GO TO THE ROUTINE

9%
=-1{SP),=2(R3)
(R3)

(SP)+,RS

(SP)+ RR
(SP)+,R2
(SP)+ R

;:BR IF NO

SIGN

;sMAKE THE B(CD DIGIT ASCII
JsMAKE [T A SPACE IF NOT ALREADY A DIGIT
THIS

5. JUST INCREMENTING
;:CHECK THE TABLE INDEX
;G0 DO THE NEXT DIGIT
;G0 TO EXIT
;:GET THE LSD
. :G0 CHANGE TO ASCII

THE

DUTPUT BUFFER

J:WAS THE LSD THE FIRST NON-ZERO?
;:BR IF NO

;s YES==SET THE SIGN FOR TYPING
;2SET THE TERMINATOR
;sPOP STACK
;2POP STACK

INTO RS
INTO R3

:;POP STACK

INTO R

;;POP STACK INTO R?

SRV B, RMCS/3/2 FORMATTER

MAIRO vC6.0C

NyERT BINARY TO DECIMAL AND TYPE HOUTINE
026630
026632
026636

026644
026646
026650

026652
026654

026656
026660

012600

104401
016666

012616
000002
023420

001750
000144
000012

(26660
000002

4-APR-B1
MOV

TYPE

0GO0G04
:
$DIRL

:
$DBLK

K
8
*B:39:56 PAGE 34-1
(SP)+ RC

. SDBLK

MOV
MOV

2(SP) ,4(SP)
(SP)+,(SP)

100.
10.
BLKW

RT]
10000.
1000.

;sPOP STA(K INTO RO
J:NOW TYPE THE NUMBER
2:ADJUST

THE

STA(K

;2RETURN T0 USER

IR B0 RMOS5/3/¢ FORMATITER
<

TVYPF

AST]Z,

REPLACE

LEADING

0°S

WITH

4~-APR-B81

SEQ 010¢

$SUPRS = TYPE ASC1Z, REPLACE LEADING 0°'S WITH BLANKS
SSUPRL = TYPE ASCI2, LEFT JUSTIFY

Yol
X

‘;..".Qt"fil".fi.l."."'."tfit..QQ..Q..'."'tQ"t.'....t.'..'..

JCALL:

;FIRST ADDRESS OF

ASCIZ

STRING

#NUMADR
,~ (SP)
P{,$SUPRL

sFIRST

ASC17

STRING

: MOV
$SUPRL
MOV
{LR
BR

RO,-(SP)
4(SP) RO

;SAVE RO

$SUPRS: MOV

RO,~(SP)
4(SP) ,RO
RO, $SUPR2

:SAVE RO

(RO)

;TEgT FOR TERMINATOR
M

L 8
18:39:56 PAGE 35

BLANKS

.SBTTL
.SBTTL

wey,

PRS

n
AN ANANINANIAN W NN PONDTONINUNGION)
— =4 3 -3 = 42
N WAL
2 o OND00~N O NN
= OOV NP NN

§°

MACRO V04.00

028670
026672
026676
026702

010046
016600
005037
000405

026704
026706
026712
G26716
026716
026720
026722
026726
026730
026734
026736
026740
026744
026750

010046
016600
010037

026752
026756
026760
026762
026764

36 026766

000004
026760

105710

001406
122710
007006
112720
000770
005300

112710

005737
001002
010037
104407
000000
12600
012616
000207

$SUPR1:
1%:

000060

026760

2%:

3%
4%:

$SUPRZ:

#NUMADR,
= (SP)

JSR

PC,$SUPRS

Mov
JSR

MOV
MoV

TSTR
BEQ

CMPAR

000040
000060
026760

MOV

BNE
MOVB
BR
DEC
MOVB
TST
BNE
Moy
TYPE
.WORD
Mov
MoV
RTS

$SUPR2
$SUPR1

#'0, (RO

#40, (RO +
1%
RO
#'0,(RO)

$SUPR2

RO, $SUPR2

(sP)+,R0
(SP)+, (SP’

ADDRESS OF

;GET POINTER TO MESSAGE

;GET POINTER FOR TYPING

?
;IS THIS A 0"

JNO
JREPLACE

IT WITH A "BLANK''

sNEXT CHAR,
JBACKUP 1
JMAKE

IT "0’

JLEFT JUSTIFY ?

JNO

S YES
JRESTORE

JRESTORE STACK

"ZRM_ B0 RMOS5/3/2 FORMATTER

$SUPRL = TYPE ASCIZ, LEFT

MACRO v04.00

JUSTIFY

4-~APR-81

;?23IINE

;

18:39:56 PAGE 36

TO REPLACE LEADING ZEROS

IN A NUMERIC

MOV

#ADR,=(SP)

sADDRESS OF

-WORD

:'N'

JSR

RS.REPLZ

STRING wlTH SPACES

NUMBER

(IN ASCII)

JREPLACE PRECEDING ZEROS WITH BLANKS
1S NUMBER OF

MOV

#ADR,-(SP)

;ADDRESS

8
18

:
:

JSR
.WORD

R5,FILLZ
N

;TYPE PRECEDING ZEROS
J'N' IS NUMBER OF DIGITS TO BE

FILLZ:

INC

FILLO

;LEAVE ZERO'S

REPLZ:

MOV
MOV
TST
BNE
CMPR

RO,=(SP)
4(SP) ,RO

sSAVE RO
JADDRESS OF NUMBER

4'0, (RO)

:BYTE EQUAL

MOVB

#40, (RO)

MOV
T1STB

4(SP) RO
(RO +

005237

13 026774
14 026776

010046
016600

15 027002
16 027006

005737
001014

18 027014

001004

20
21
22
23
24
25

G27022
027024
027026
027030
027032
027034

005200
000771
105710
001003
005300
112710

28
29
30
31
32
33
34
35

027046
027050
027052
027054
027060
027062
527064
027066

001376
005300
162500
010037
104407
000000
012600
012418

37 027074

000205

17 027010

19 027016

26 027040
27 027044

36 027070
39 027076

027076
000004
027076

122710

000060

112710

000040

016600
105720

005037
000000

1%:

2%:
000060

000004

33%:
4%:

027062
5%:

(7076

BNE

INC
BR
TSTB
BNE
DEC
MOVB

BNE
DEC
SUB
MoV
TYPE
.WORD

RO
1%
(RO
33
RO
#'J, (RO)

TO RO
;LEAVE PRECEDING ZEROS ?
;BR IF YES

JBR IF NOT
JREPLACE

TO ASCII

*'0*

THE ZERO WITH A SPACE

;PUT ADDRESS OF FIRST CHARACTER ON STA(K
;SEE IF ZERO BYTE TERMINATOR

FILLOC

JRESET FILL FLAG

WOk

TYPED

s INCREMENT THE BYTE ADDRESS
;GO BACK AND LOOK FOR MGRE LEADING ZEROS
;SEE IF ZERO BYTE TERMINATOR
;BR IF NOT
JBACKUP STRING POINTER
JPUT A ZERO BACK IN

CLR

(SP)+,RO
(SP)+,(SP)

TYPED

ASCID)

MOV
MOV

4%
RO
(R5)+,RO
RO,5%

(IN

;BR IF NOT
;BACKUP STRING POINTER
;ADJUST ADDRESS
;GET ADDRESS FOR TYPEOUT
;TYPE THE NUMBER
;ADDRESS OF NUMBER

RTS

FI.L0:

FILLO
3s

NUMBER

TO BE

1; 026770

DIGITS

;.POP STACK INTO RO
JRESTORE STACK

JRETURN

;IF SET, LEAVE PRECEDING ZEROS FOR TYPE

GOe

L ORMATTER

e LTh o mINARY

MACRO V04.00

TG DETIMAL ASCIZ ROUTINE

.SBTTL
A

4-APR-B1

)

18:39:56 PAGE

SINGLE LENGTH BINARY TO DECIMAL AS{]Z ROUTINE
RSS20

:«THIS ROUTINE

WILL

dlR

027116
027122
27126
027130

062716
012666
000207
000000

027112

004737

000002
027130

027130

UNSIGNED BINARY NUMBER

RETURN

$SBR2D:

MOV
MOV

2(sP) 1%
#1%,-(SP)

;s SAVE BINARY NUMBER
;:SET POINTER

ADD
MOV
RTS
.WORD

#S,(SP)
(SP)+,2(SP)
PC
0,0

;;ONLY ALLOW FIVE CHARACTERS
J:PICKUP POINTER
;sRETURN

JSR

000005
000032

1%:

PC.,a#8SB2D

PC.,a#sDB2D

70O AN

027134

000000

RRARRRYAXEYRR

MOV

JSR

NUMBER,-(SP)

016637
012746

CONVERT A 16-BIT

:*UNSIGNED DECIMAL ASCIZ NUMBER.
:'CALL

027100
027106

SEQ 0104

;;PUT BINARY NUMBER ON THF

STA(K

:-ADDRESS OF

(HAR.IS ON

;s CALL

THE

1ST

ASCIZ

.. CALL DOUBLE LENGTH CONVERT

THE

STACK

4~APR~81
MATRO v04.00
AS{II CONVERT ROUTINE

18:39:56 PAGE

9
38

DOUBLE LENGTH BINARY TO DECIMAL ASCI!
AN

ER NN RN NN

RO R AN NN T

CONVERT

ROJUT INE

NN R RN RN AN NN RN AAANRANRRACNANR T RIRNOCEAROEPOOIROETER

:%THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
:'35§§7?55(A5(11) NUMBER.
X

3§

se(ALL
-n

MOV

JSR

RETURN

027134
027136

027142
G27146
027152
027154
27156
027164

027170
027174

027176
027200
027202
027204
027206
007210
027212
027214
027216
02722V
027222
027226

027230
027232
027234
027236
027240
027242
027244
027246

027250
027252
027254
027256
027260
027262
027264
027266
027270
027272
027274
027276
027300
027302

SAVRE©

000002

MOV
MOV
MOV

027314

000002

0C0012
027244
027246

MOV

027222

MOV

’%:

2%:

3%:

000060

MOV
MOV

(LR
SUB
SBC
SuR
BLT
INC
8R
ADD
ADC
ADD

CMpP
BIS

mMovR
DEC
4%:
.WORD
BNE
(LRR
RESREG
RTS
$TNPWR: 145000

2,632

THE

APNTR,=(SP)
PC,a#$DB2D

SIGN OF

THE BINARY NUMBER MUST SE

sPOINTER TO LOW WORD OF BINARY NUMSE
&
;o THE

FIRST ADDRESS OF

::1S ON THE STACK

2(SP) ,R2

#$DECVL
RO

RO,2(SP)
(R2)+.R1
(R2) +,R2

#10.,48
#STNPWR
R4
#STNPWR+2,RS

s s SAVE REGISTERS

;sPICKUP THE DATA POINTER
;:GET ADDRESS OF "‘SDECVL'' STRING

;.PUT ADDRESS OF ASC]Z STRING ON
;;PICKUP THE BINARY NUMBER

;:SET UP TO DO 10 CONVERSIONS
;JADDRESS OF TEN POWER
;. CLEAR PARTIAL

;:SUBTRACT TEN POWER
.:BR IF
;:ADD 1

;. LOOP

;cRESTORE

#'0,R3
R3,(RO)+
(PC)+

JsMOVE TO NEXT TEN POWER
:;CHANGE PARTIAL TO ASC!I
s JSAVE IT
;;DONE?

RZ
(R4)+ ,R2
(R5)+_,(R5)+

(RO)+

2 RETURN

;:1.0E09

113200

;:1.0E07

;2 1.0E06
303240

;:1.0E05

23420
0

;2 1.0EQ4

1750

::1.0803

144

;:1.0E02

SUBTRACTED VALUE

;:BR IF NO
;3 TERMINATOR
;sRESTORE REGISTERS

;21,0808

TEN POWER TO LARGF
TO PARTIAL

(R4)
+ R

160400

2765

ASCIZ

STA(K

JRMOBC RMOS/73/2 FORMATTER

"CUBLE

LENGTM BINARY

TO DECIMAL ASCI]

000072
000000
000G
000000

4-APR-BT

CONVERT ROUTINE

12
0
1
0
$DECVL: .BLkB

9
c
"8:39:56 PAGE 3B~

SEQ 010¢

;21,080
::1.0£00
12,

s ;RESERVE STORAGE FOR AS(IZ STRING

—

027304
027306
027319
J27312
n27314

MA(RD vU4.00

——

e ————

JEMUBL

VINGLE

RMOS/ 32 FORMATTER

CENGTH BINARY

TO OCTAL

MATRG vo%.0C

4-APR-81

ASC]Z ROUTINE

LSBTTL
A

'B:39:56 PAGE

SINGLE LENGTH BINARY
E

“bu

TO OCTAL

AR ARl

ASCIZ ROUTINE

222222

X222

]

S«THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN

SeUNSIGNED OCTAL ASCIZ NUMBER.
seCALL

MOV

RETURN

027330

02733

016637

027360

062716

000005

027342

004737

027352

012666

027346

027356
22730

000002

012746

000207
000000

027360

$S820:

027364

MOV

PC,a#85820

;sPUT BINARY NUMBER ON THE STA(K
;s CALL

. ;ADDRESS

1ST

ASCIZ

CHAR.

THE

2(sP) 18

;:SAVE THE BINARY NUMBER

P(,a#$DB20

;:CALL DOUBLE LENGTH CONVERT ROUTINE

#1%,-(SP)

ADD

#5,(SP)

RTS
.WORD

PC
0,0

mMov
's:

NUMBER ,~(SP)

MOV
JSR

000002
C0000C

JSR

(SP)+,2(SP)

::SET POINTER

JJONLY ALLOW SIX CHARATTERS

J:PICKUP POINTER
:sRETURN

STACK

SRV B

RMOS5/372 SORMATTER

“OUB.E _ENGTH BINARY 70 OCTAL

H? RG v04.00 4-APR-81
AS(I] CONVERT ROUT INE
.SBTTL

1B8:3G:5¢ PAGE

DOUBLE LENGTH BINARY

(M AAlSRRl
s R AR

-THIS ROUTINE WILL

TO OCTAL ASCII

AL A2 222X
22
XX2ER Y]

CONVERT A 32-B1T UNSIGNED BINARY NUMBER

:*UNSIGNED OCTAL ASCIZ NUMBER.
:'CALL

s
s

MOV
JSR

#PNTR,-(SP)
PC,a#tDB20

$DR20:

SAVREG
MOV

2(SP) ,R1

027364
027366

10442
010601

027376
027402
0276406
027410

012704
012703
012100
012101

C27414

110245

927372

Ce7612

027416
027420

027422
027424
027426
027430
027434
027436
027440
027442
027444
027446

027450
027452
027454
027456
027460
027464
027466

012705

000002
027503

000014
177770

005002

003007
001405
(05205
010566
104413
00020?
006203%
006001
006000
00600

006000
006001
006000
040302
0627Q2
000753

MOV

#80CTVL+13.,RS

(LR

MOV
MOV
MOV
MOV

1%:

010002
005304

RE TURN

000002
2%:
3%:

000060
$0CTvL:

MOVR
MOV
DEC

8GT
BEQ
INC
MOV
RESREG
RTS
ASR
ROR
ROR
ROR

ROR
ROR
ROR
BIC
ADD
BR

.BLKB

(ONVERT RCUTINE

R12.,R4
#~C7,R3
(R1)+,R0
{(R1)+ R

R2.=-(RS)
RO,R?
R&
3%
2%

RS
RS,2(SP)
P
R3
R1
RO
R1
RO
R1
RO
R3,R2
#'0,RC
1%
4,

TO AN

J2POINTER TO LOW WORD OF BINARY NUMRER
s:CALL THE ROUTINE
:2THE ADDRESS OF

THE

FIRST

ASCJZ

CHAR,

[S ON

:sSAVE ALL REGISTERS
JsPICKUP THE POINTER TO ' OW WORD
;;POINTER TO DATA TABLE
. D0 ELEVEN CHARACTERS
2 sMASK
. ;LOWER WORD

JiHIGH WORD

;s TERMINATOR

::PUT CHARACTER IN DATA TABLE
;iGET THIS DIGIT
. COUNT THIS CHARACTER

;:BR IF NOT THE LAST DIGIT
JJBR IF IT IS THE LAST DIGIT
;sALL DIGITS DONE~ADJUST POINTER FOR FIRST
;JASCIZ CHAR, & PUT IT ON THE STACK
:;RESTORE ALL REGISTERS
s;RETURN TO USER
;IPOSITION THE MASK FOR THE LAST DIGIT
;sPOSITION THE BINARY NUMBER FOR
J3
THE NEXY OCTAL DiGiT

;sMASK OUT ALl JUNK
. :MAKE THIS (HAR. ASCI!
;:G0 ®UT IT IN THE DATA TARIE
;;RESERVE DATA TABLE

"HE

STA
¢

-(“

MM N

‘_

RMAT TER

ATITNG

ROUTINE

MA(RT

04,00

4-aPR-B1

.SBTTL
CCANNA

027504
02751
0275
027522
027530
027530
027532
027534
027540
027542
027550
027552
027560
(027562
027566
027574
(27600

027602
027606
027610
027612
027616
027620
027624
027632

027634
027642
027650

027654
027660
027662
027662
027666
027670

027674
027676
027702
027704
cerr12
027720
027724
027730
027734
027740
027742
027744
027766
027747

0e7750

112737

000001
000001

027750
027746

iATY]:

1127%7

000001

027750

$ATYS:
SATY(:

112737

000403
010046
010146

105737

001450
122737
001031
132737

001425
017600
062766
005737
001375
010037
105720

001376
163700
006200
010037
012737
000413
017637
062766

001230

000100

0012737

000004
0000G2
01210

001226
000004

027750

105037
012601
012600
000207
o0y
009
000

200200

000001
000100
000040

1%:

2%:

027660
000004

4%:
5%:

001230

000004
000002
001210
027750
027747
027746

1%:

001212
000004

$MF._G:
$LFLG:
$FFLG:
APTSIZE
APTENV
APTSPOOL
APT(SUP

NARP VO RO ARRR O

B8R
MOVB

;270 REPORT FATA. ERROR
;:T0 TYPE A MESSAGE

#1,$FFLG

;7O ONLY REPORT FATAL ERROR

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

:sPUSH RO ON STA(K
J2PUSH R1 ON STACK

HAPTENV,SENV

;. OPERATING UNDER APT?

MOV

MOV
ADD

“ST
BNE

MOV
1518

BNE
SuB
ASR

MOV
ADD
MoV

JSR
.WORD
TSTR

BEQ
BEQ
ST
BNE

MOV
ADD

12%:

N AN

21, 8MFLG

001210

A NN

R1,$FFLG

MOV
MOV

001210

RN L AAN AN RN RN

mMovB

MOvB

BEQ
(MPB
BNE
BIT8
BEQ

001224

105737

105037
105037

000004

001224

013746
00473%7

001416
005737
001413
005737
001375
017637
062766
005237

$ATY3:

027746

000004
000002
177776
025662

000000

RN N AN AN NN AN R AT C NN

MOV
TSTR

000001

18:39:56 PAGE 4

APT (OMMUNICATIONS ROUTINE

INC

(LRB
CLRB
CLRB
MOV
MOV
RTS
BYTE

.BYTE
.BYTE
LE/EN

‘NM

200
001
100
040

SATY(

I RP O

;J:SHOULD TYPE A MESSAGE?

;oIF NOT:

;;IF NOT:

#APTSPOOL
, SENVM ;¢ SHOULD SPOOL MESSAGES?

3%
@4 (SP) RO

BR
;oIF NOT:
;2GET MESSAGE ADDR.

+
(RO

;2SEE IF DONE w/ LAST XMISSION?
WAIT
;oIF NOT:
J:PUT ADDR IN MA]LROX
;;FIND END OF MESSAGE

#2,4(SP)
$MSGTYPE
1%
RO, $MSGAD

;;BUMP RETURN ADDR.

$MSGAD ,RO
RO
RO, $MSGLGT

g;.$MSGTYPE

::SUB START OF MESSAGE
;. GET MESSAGE LNGTH IN WORDS
;2PUT LENGTH IN MA]{BOX
;s TELL APT TO TAKE MSG.

@4 (SP) 4%

;IPL’ MSG ADDR IN JUSR L INKACGE

177776,-(SP)
SC.STYPE

::PUSH 177776 ON STACK

$FFLG
12%
SENV
12%
$MSGTYPE

;s SHOULD REPORT FATAL ERROR?
BR
1F NOT:
;.
;;RUNNING UNDER APT?
BR
;oIF NOT:
;sFINISHED LAST MESSAGE?
WAJT
;oIF NOT:

#2,4(SP)

118

@4 (SP) ,$FATAL

#2,6(SP)
SMSGTYPE
SFFLG

SLFLG
SMFLG
(SP)+ R1

(SP)
¢+ ,RO
pC

0
0
¢

. :BUMP RETURN ADDRESS

;;CALL

TYPE MACRO

:.GET ERROR #
::BUMP RETURN ADDR.
;;TELL APT TO TAKE ERROR
::CLEAR FATAL FLAG
;sCLEAR LOG FLAG
;s CLEAR MESSAGE FLAG
:;POP STACK INTO R}
;:;POP STACK INTO RO
:sRETURN

JJMESSG. FLAG
;:L0G FLAG

;sFATAL

FLAG

MAIRC

y06.00

4=-aPR-87

'B:39:%¢

PAGE

TINES

.SBTTL
A

SAVE AND RESTORE RO-RS ROUTINES

28222

$*SAVE RO=-RS

A2l

ARl

s*CALL:
P
SAVREG
-UPON RETURN FROM $SAVREG

ARl Rl

THE

STACK wWwIL.

RRARRRYRARRRR REN N

LOOK

[ Jkf:

,-TOP---(016)

(e 42===(+18)
;% +4===RS
;- +6===R4

+8=-=--R3

'-410---R2

;e 12===R1
:w+14=-~=R0O

(27752
027752
(27754

010046
010146

027760
027762
027764
027766

010346
010446
010546
C16646

027776
030002

016646
016646

027756

027772

030006

$SAVREG:

MOV
MOV

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

:;PUSH RO ON STA(K
::PUSH R1 ON STACK

000022

MOV
MOV
MOV
MOV

R3.-(SP)
R4 ,-(SP)
RS,-(SP)
22(SP) ,=(SP)

::PUSH
::PUSH
;:PUSH
::SAVE

000022
000022

MOV
MOV

010246

016646

000002

MoV

000022

MOV

RT]

R2,=~(SP)

22(SP) ,~(SP)

22(SP) ,-(SP)
22(SP) ,~(SP)

;:PUSH R2 ON STA(CK
R3
R4
RS
PS

ON
ON
ON
OF

STACK
STACK
STACK
MAIN fLOW

::SAVE PC OF MAIN FLOW

::SAVE PS OF CALL
;:SAVE PC OF CALL

:*RESTORE RO-R>
;«CALL:

030010
030010
030014
030020
020024
030030
030032
030034
30036
030040
030042
030044

(12666
012666
012666
012666
012605
012604
012603
012602

Q1260
012600
000002

000022
000022
000022
000022

RESREG
i
$RESREG:
MoV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV
MOV
RT:

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+ RS
(SP) + R4
{SP)+ ,R3
(SP)+,R2

(SP) ¢ R}
(SR« RO

::RESTORE PC OF CALL
:;RESTORE PS OF CALL
;:RESTORE FC OF MAIN FLOw
;IRESTORE PS OF MAIN FLOW
:;POP STACK INTO RS
::POP STACK INTO R4
;;POP STACK INTO R3
:1POP STACK INTO R2

;:POP STACK INTO R1
::P0P STACK [NTO RO

“JRM BC RMOS/ 2/2 FORMATTER

*RAP DEZODER

YL L yue.00
.SBTT.
S

4=AFR-81

18:39:56 PAGE 43

TRAP DECODER

232222232228 2222222222222

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF
SAND USE IT TO INDEX THROUGH THE TRAP TABLE

;+«OF THE DESIRED ROUTINE.
;*G0 TO THAT ROUTINE.

030046
030050
03005

010046
016600
005740

030060
030062
N30066

006300
016000
000200

030056

$TRAP:

000002

111000

JoTHIS

C30070
030072
030100

017646
016666
000002

000004

000002

;*THIS

030102

030070

030104
030106
030110
N30112
030714

025662
026242
026216
026256
026444

030116

025004

030120
030122
030126
030126
030130

024714
025256
025346
027752
030010

A R R R

THEN USING THE ADDRESS OBTAINE!

::SAVE RO
::GET TRAP ADDRESS
:;BACKUP BY 2

ASL
MoV
RTS

RO
$TRPAD(RO)
,RO
RO

:;POSITION FOR INDEXING
;;INDEX TO TABLE
;G0 TO ROUTINE

(RO).RO

IS USE

TO HANDLE

)

THE "'TRAP'® INSTRU(T]ION
FOR THE STARTING ALDRESS

1T WllL

:2GET RIGHT BYTE GF TRAP

THE ''GETPRI'* MA(CRO

(SP) ,=(SP)
4(SP) ,2(SP)

;;MOVE THE PC DOWN
;:MOVE THE PSW DOWN
;;RESTORE THE PSw

TRAP TARBLE
TABLE

CONTAINS

THE

STARTING ADDRESSES OF

;*BY THE ''TRAF'" INSTRUCTION.

;

RO,=(SP)
2(5P) RO
-(K0)

$TRAPZ: MOV
MOV
RTI
.SBTTL

MOV
MOV
TST

MOVB
030102

THE

ROUTINES

CALLED

ROUT INE

$TRPAD: .WORD

$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS

$TRAP2

::CALL TYPE
;;CALL=TYPOC
;;CALL=TYPOS
;;CALL-TYPON
;,;CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE QCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

$GTSWR

;:CALL=GTISWR

TRAP+6(104406)

GET SOFT-SWR SETTING

$CKSWR
$RDCHR
$RDLIN
$SAVREG
$RESREG

;:CALL=CKSWR
;;CALL=RDCHR
;;CALL=RDLIN
;;CALL-SAVREG
;,CALL RESREG

TRAP+7(104407)
TEST FOR CHANGE I[N SOF T1-SwR
TRAP+10(70441Q) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) SAVE RO-RS ROUTINE
TRAP+13(104413) RESTORE RO-RS5 ROUTINE

KM_S,& o B GRMAT Tk
wN AN
PMUTINE
-

«=4AFR=8'

o
..

LSBTTL
CrANG

030274
000340

000024
000026

0006024

000776
000000
200

1507¢0

030132
000340

R3,-(SP)

$PWRMG:
$PWRAD:

J42

J:PUSH RO ON STACK
J:PUSH R1 ON STA(K
;sPUSH R2 ON STA(CK

R4 ,-(SP)

;sPUSH R4 ON STACK

$POWER:
.EVEN

:sPUSH R3 ON STA(kK

R5,=-(SP)

:sPUSH R5 ON STA(K

MOV

RN RN

: HANG UP
AR AL

AR AARAANRACARNANAR A ARNEAARNARNP AR

HSILLUP,@#PWRVEC

;,SET

FOR FAST

CLR
INC
BNE

;.GET SP
:WAIT LOOP FOR THE
J:WAIT FOR THE INC
::0F
WORD

MOV
Mov

(SP)+ RS
(SP) + R4
(SP)+,R3
(SP)+ R
(SP)+,R1
(SP)+ RO

;:POP
;:POP
;+POP
;;POP
;:POP
;sPOP

MOV
MOV
TYPE

.WORD

MoV

.WORD

RTI

(SP)+,3SWR

::POP STACK

TTY

INTO @SWR

STACK INTOC RS
STACK INTO R4
STACK INTC R3
STACK INTO R2
STACK INTO R1
STACK INTO RO

#3PWRDN ,@#PWRVEC ;:;SET UP THE POWER DOWN VECTOR
#340,Q#PWRVEC+2 :;PRIOD:7
::REPOR7 THE POWER FAILURE

$POWER
(PC)+,(SP)

ST3

;;POWER FAJL MESSAGE POINTER
;;RESTART AT ST3

; JRESTART ADDRESS
;s THE

POWER UP SEQUENCE

::PUT

THE

B8R

.~2

.AS(]Z

<CRUF>/"'POWER UP'Y/

RANR

DOWN

$SAVRE,SP
$SAVRE
$SAVR6
1%

MOV

S$ILLUP: HALT
$SAVR6:

ASWR,=(SP>
::PUSH QSWR ON STA(K
SP,$SAVR6
;s SAVE SP
#$PWRUP ,@#PWRVE( ;;SET UP VECTOR

MOV
MOV
MoV
MOV
MOV

000024
000026

FOR FAST

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

*POWER UP ROUTINE

$PWRUP:

;;SET

MOv

MOV
HALT

1%:

[

012737
104407
030304
012716
013056
000002
000000

000024

#SILLUP,a#PWRVEC

RN CONARATPERARNCRIOTORONTRTOSIOEORTS

#340,a4PWRVEC+2 ;;PRIOD:7

MOV
MOV
MOV

012601
012600
012737

030276
030302
030302
030302

NOL R A RENACRC

MOV
MOV
MoV

CERNARAA N AN AN AN R

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602

9
44

*POWER DOWN ROUTINE

$PWRDN: MO/

000776

030204
030212
030216
030222
03022¢
030230
030234
030236
030240
030242
030244
030246
030250
030256
030264
030266
030270
030272
030274
030276
030300
€30302
030304

1
PAGE

AR AN AANGEANE RN R ANCE OV

150766

030302
030204

'B:39:%¢

POWER DOWN AND UP ROUTINES

MOV

;; BEFORE

WAS

STARTED

THE POWER DOWN WAS COMPLETE

SP HERE

:"“' =N RM05/3/2 FORMATITER
INULE
S DUAL PORT RM/RM DRI, bR

MAIRO v04,.00

(RE, 6.5) 1981

.SBTTL

WOV

2 ol v D —d el ek =it —d ok
WNNRNGNONL
Y AONDTUNININD

¥ 3 WP
~NO [V,
= OND 00 NN
AN = O 000 TM N N

21980

SC5 CHANGES

sxennnnnwnn

;DIGITAL EQUIPMENT CORP.

JMAYNARD, MA 01754

;AUTHOR(S): JIM LACEY/CHUCK HESS

JREVISED BY: MIKE LEAVITT

11-APR-80, 27-MAR-81

".'ttttt‘ktttt*"il’"l’tk"'*t*iit.ttttttti*fittttit’t"tfitt"t"’lt"t'

;STORAGE

FOR RMDS,

RMER1,

sRMERRS
- RMDS
JRMERRS+2 = RMER]

RMERZ,

AND RMMRZ ON AN ERROR 72"’

JRMERRS+4 - RMER?

JRMERRS+6 ~ RMMR?
030320

000000

0000G0

000000

RMERRS:
;TABLE

.WORD
OF

DRIVE

0,0,0,0
ACTIVE

INDICATORS

030330
030331
030332

030337

000
000

DRVACT:

000
000
000
000
000

(DRVACT=8 BYTES)

;DRVACT-Q IF DRIVE IS IDLE
;DRVACT>Q IF DRIVE IS ACTIVE WITH A COMMAND
:DRVACT<0 IF DRIVE
.BYTE

BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

IS ACTIVE WITH AN ERROR RECOVERY OPERATION
;DRIVE 9

0
0
0
O
O
0
O

;DRIVE
;DRIVE
JDRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

1
2
3
4
5
6
7

;TABLE OF DRIVE STATUS INDICATORS (DRVSTA 8 BYTES)
;DRVSTA=Q IF DRIVE IS OFFLINE OR NONEXSITENT
;DRVSTA>Q IF DRIVE IS ONLINE
;DRVSTA<Q

63 030341
030342

ID FOR RM(2 weeneaveren

:10-MAR~78 THE SC,

40 030340

46
&7
48

1981

:NEW DRIVE TYPE ]D FCOR RMOS srencannnn

38
39

SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5)

;NEW DRIVE TYPE

030333

9
J
18:39:56 PAGE 45

110-AUG=77 sxassennnne

030334
030235
030336

34
35
36

4-APR-B1

030343
030344
030345
030346
030347

DRVSTA:

DRIVE

IS UNSAFE

.BYTE

;DRIVE

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

0
0
O
0
0
O

JDRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
JDRIVE

2
3
4
5
6
7

BYTE

:DRIVE

;TABLE OF DRIVE TYPES (DRVTYP=8 BYTES)
;DRVTYP=0Q IF DRIVE IS NONEXISTENT (DRVSTA U, ALSO)
:DRVIYP=7 IF DRIVE IS RMQS #wxwx»
sDRVTYP S IF DRIVE IS RMQ2 axwxxxs
;DRVTYP=4 [F DRIVE [S RMO3

RM/RM DRIVER

(REV 6.5)

1981

DRYTYP:

;TABLE

030360

64 030361

030362
030363

DPINT:

000
000
000

DUAL

PORT

sDRIVE
:DRIVE

JDRIVE

:DRIVE
.DRIVE
JDRIVE

INITIALIZATION

INDICATORS

;DPINT=Q IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE
;DPINT<O IF INITIALIZATION IS IN PROGRESS
_BYTE
BYTE
.BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE

;DRIVE O
;DRIVE
;sDRIVE
;DRIVE
;DRIVE

;sDRIVE
sDRIVE

;DRIVE

;TABLE OF PENDING DUAL PORT REQUESTS
:DPRQS-0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE

&7
68
69

;DPRQS<0 IF

/
030370
73 030371

030372
030373
030374
030375
030376
030377

74
75
76
77
’8
79 030400
80

000
000

DPRQS:

000
000

000
000
000
000

;TRANSFER WAIT

000000

(TRNSWT=1

WORD)

TRNSWT: _WORD

IT WILL

;THIS

CONTAIN THE ADDRESS OF

;SEARCH WAIT KEYS (SRCHWT=1 WORD)

IS A ONE WORD QUEUE

THAT WILL

CONTAIN A KEY

FOR EACH OF

sTHE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0
JREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE.
JEACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE O.
000000

93 030404

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

;"DPB'" OF THE 1/0 OPERATION.

87 030402

FLAG

IS PENDING FOR THAT DRIVE

;DRIVE O
;DRIVE
;DRIVE

:THIS IS A ONE WORD QUEUE.

85
86

.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE

THAT A DUAL PORT REQUEST
NOMNNESIANND)
—

91
G2

:DRIVE

DRIVE

OOOOOOO0O

€5

(30364
030365
030366
030367

000

000
000
000
000

.BYTE
.BYTE
BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE

OQOOOOOOO

52 030350
55 030351
030352
030353
030354
030355
030356
030357

¥ NOT RM0S5/3/2

QOOOOOO0

;:DRVYTYP==1

50
51

59
€0

18:39:56 PAGE 45-1

PORT

4-APR-B1

NN BN

SINGLE/DLAL

MACRO v04.00

NN
NN

CRMOBL RMI57372 FORMATTER

SRCHWT:

.WGRD

;RM DRIVER ACTIVE FLAG (ACTDRV=1 BYTE)
;ACTDRV=0Q IF DRIVER IS INACTIVE

JACTDRV>0 IF DRIVER IS ACTIVE

000

ACTDRV:

.BYTE

JRM By RM(S5/37/2 FORMATTER
MACRO v04.00
SINGOE/DLAL PORT RH/RM DRIVER (REV 6.5) 1981
95
£
gg

000

101
102

SS Y

030410
030411
030412
030413
030414

e e B

.BYTE

JULDFLG>Q IF UNLOAD COMMAND IN PROGRESS
JULDFLG<O (F UNLOAD COMMAND IN WAIT QUEUE

106 030406
109 030407

ACTSTR:

;UNLOAD FLAG (ULDFLG=8 BYTES)
JULDFLG=0Q IF NO UNLOAD COMMAND

103
;Qg

030415

000
000

ULDFLG:

000
000
000
000
000

.BYTE
BYTE

0
0

;DRIVE 0
sDRIVE 1

BYTE

;DRIVE 7

BYTE
BYTT
Byle
DYTE
BYTE

Coo0

0
0
0
0
0

;DRIVE
;DRIVE
JDRIVE
;DRIVE
;DRIVE

2
3
4
5
6

;SAVE REGISTERS FLAG (SAVEFG -1 WORD)
JSAVEFG <0 IF

SAVE

THE RH/RM REGISTERS WHEN THE

;OPERATION IS COMPLETED AS PER (DPB+14).
JSAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER

:(DPB+14),

030416

000000

SAVEFG:

.WORD

AFTER AN ERROR.

;SEEK FLAG (SEEKFG-1 WORD)

;SEEKFG=0 IF WHEN THF DISK ADDRESS ISN'T IN THE WINDOW
;FOR A DATA

TRANSFER

START

A SEARCH

COMMAND

;SEEKFG<0 IF DATA TRANSFER WILL DO IMPLIED SEEKS,
:DISREGARD THE WINDOW

030420

030422
030424
030426
030430
030432
030434
030436
- 030640

9
L
18:39:56 PAGE 45-2

;SOF TWARE TIMER ROUTINE A(TIVE FLAG (ACTSTR=1 BYTE)
JACTSTR=0Q ]F SOf TWARE TIMER ROUTINE [S INACTIVE
JACTSTR>0) IF SOF TWARE TIMER ROUTINE IS ACTIVE

‘gg 030405

WHAANND NI TOTIFONUNONINDON)
=3 = 2 a3
s b s
WO VOO NRAWNBANN 2OV NN
NN—O

4~APR-B1

177777

.WORD

-1

;TIMEOUT TABLE (TIMER-8 WORDS)
177777
177777
177777
177777
177777
177777
177777
177777

135
136
}gg

;sg 030642

SEEKFG:

TIMER:

;THIS

TABLE

.WORD
JWORD
“WORD
"WORD
WORD
_WORD
WORD
JWORD

=1
-1
-1
=1
-1
-1
-1
=1

CONTAINS

THE

TIME ALLOWED FOR AN OPERATION

:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
DRIVE
:DRIVE
:DRIVE

0
1
2
3
&
5
6
7

;DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD)
:DTUW<O IF NO DATA TRANSFER UNDERWAY
*DTUW=+N (WHERE N=O TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

177777

DTUW:

.WORD

-1

161
142

143

;ATTENTION BITS TABLE (ATABIT=8 BYTES)
;THIS TABLE CONTAINS THE (ORRESPONDING BLJ 70 EACH DRIVES
SATTENTION BIT

J~M_BC RM05/3%/2 FORMATTER
MACRO v04.00
IN_ £/DLA. PORT RH/RM DRIVER (REV 6.5) "981
‘44
45
146
147
148

030444
030445
0304646
0304647

145 030450
150 030451
151 030452

}2% 030453

001
002
004
010

ATARI":

020
040
100

200

;2; 30460
168

198 030464

000003

174
175
176
177
178
179

180

MCPEMX:

176700

000254

000005

0C0240

RMADR:

RMVEC:

000000

000002
000004
000006
000010
000012
000014

000016

RMCS1

.WORD

176700

254,5+32.

.WORD

1/0 WINDOW IS S SECTORS

(MXWNDW 1

000026

000032
006036

000040
000042

;CONTROL AND STATUS REGISTER #1

(DRIVE REG. 0)

;LOOK AHEAD REGISTER (DRIVE REG. 7)
:DATA BUFFER REGISTER (NOT A DRIVE REG.)
;MAINTAINABILITY REGISTER (DRIVE REG. 3)

RMDT

RMOF

RMHR

RMMR?2
RMER?2

- 16

JATTENTION SUMMARY PSEUDO» REGISTER (DRIVE REG. 4)

- 6

:DRIVE

TYPE REGISTER

-2

11)

;DESIRED CYLINDER ADDRESS REGISTER

- 36

:DUMMY

40
42

ADDRESS REGISTER

.SBTTL

RH/RM DRIVER INITIAl IZATION CODE

200
201
202

:THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE
AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR
;70 THE PROPER STATE FOR EACH DRIVE.

SECC POSITION REGISTER (DRIVE REG.
ECC PATTERN REGISTER (DRIVE REG.

205

;CALL

207

:NOTE: THIS ROUTINE CALLS DRVINT

PCLRMINIT

10)
(DRIVE REG.

(DRIVE REG.

MAINTENANCE REGISTER #2
:ERROR REG'STER #2 (DRIVE REG. 15)

;gg

JSR

(DRIVE REG.

:OFFSET REGISTER (DRIVE RE~.

= 34

44
= 4

(DRIVE REG.

;SERIAL NUMBER REGISTER

RMEC1
RMEC2

206

000044
000046

= 20
- 22
- 24

RMDC

582

WORD)

RMLA
RMDR
RMMR1

RMAS

000034

191
;g;

;WORD COUNT REGISTER (NOT A DRIVE REG)
:UNIBUS ADDRESS REGISTER (NOT A DRIVE REG)
;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG.
;CONTROL AND STATUS REGIiSTER #2 (NOT A DRIVE REG)
:DRIVE STATUS REGISTER (DRIVE REG 1)
:ERROR REGISTER #1 (DRIVE REG. 2)

RMSN

189
190

.WORD

ALLOWED BEFORE

2
-4
-6
= 10
12
- 14

000030

188

;DRIVE 7

RMW(
RMBA
RMDA
RMCS2
RMDS
RMERT

185

200

;DRIVE 4
:DRIVE §
;DRIVE 6

:DEFINITIONS OF THE RH/RM ADDRESS INDEXES

000020
000022
000024

186

.BYTE

20
40
100

:MAXIMUM SEARCH FOR

MXWNDW:

181
182
83
184

;DRIVE 0
:DRIVE 1
;DRIVE 2
:DRIVE 3

:STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM),
RMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)).

;;;
173

1
2
4
10

QN1

:NUMBER OF ‘MASSBUS CONTROL PARITY ERRORS'' (MCPE)
:CALLING IT FATAL (MCPEMX=1 WORD)

159
;g?
162 030456

M9
18:39:56 PAGE 45-3

.BYTE
BYTE
BYTE
BYTE

.BYTE
.BYTE
.BYTE

154
;gz

;gg 030454

4-APR-81

13)

16)
17)

12)

CZRMLBO RM0S5/3/2 FORMATTER

RMH/RM DRIVER

IN!TIALJZATION CODE

MACRO v04.00

208
209

S}g

212

104412
0137246

216 030502
217 030506
218 030512
219 030516
220 030520
221 030522
222 030524
22% 030530

004737
012701
012702
005021
020102
103775
012702
012721

215 0306476

012737

030534
030536
(030540
030544
030550
030554
030560
030564
030570

020102
101774
005037
005737
005037
005037
013703
012723
013713

234 030600
235 030606
236 030610

012764
005001
004037

233 030574

237
238
239
240

030614
030616
030620
030624

242
263
244
245
246
247
248
249
250
251
252
253
Sgg

030632
030634
030640
030644
030650
030652
030656
030662
030664
030666
030670
030674
030676

241

256
257
258
259
260
261
262
263

264

18:39:56 PAGE 45-«

:
:

RE TURN

RMINIT:

SAVREG
MOV

PS,~(SP)

;SAVE RO - RS
cSAVE THE PRESENT PROCESSOR STATyU-

JSR
MOV
MOV
CLR
(MP
BLO
MOV
(01

PC,CLRQUE
#RMERRS ,R1
#SEEKFG,R2
(R1)+
R1,R2
1%
#DTUW,R2
#-1,(R1)+

;CLEAR ALL REQUEST QUEUES
;FIRST ADDRESS TO BE CLEARED
;LAST ADDRESS TO BE CLEARED
;CLEAR
;ARE WE DONE?
JBR IF NO
;LAST ADDRESS
JINITIALIZE

SNOTE: THE °"P® OR ‘L' CLOCK MUST BE STARTED

213 030466
214 030470

224
225
226
227
228
229
230
231
2%2

4-APR-81

030626

013704

000401
000402
105067
005201
042701

001366
012701
005037
105761
001405
004737
105761
001375
005301
100366
012637
104413
000207

177776

000240
036144
030320
030420

177776

1%:

030442
177777
030340
030342
030344
030346
030460
033114
030462
030456
000040

MOV

2%:

000010

030700

3%:

030340

4%:
5%:

177770

000007
177776
030360

6%:

035600
(030360

7%:
8%:

177776

CMP
BLOS
(LR
CLR
CLR
CLR
MoV
MOV
MOV
MOV
MOV
CLR
JSR
BR
BR
CLRRB
INC
BIC

BNE
MOV
(LR
TSTB
BEQ
JSR
TSTR
BNE
DEC
BPL
MOV
RESREG
RTS

#<5+32 > ,PS

R1,R2
2%
DRVSTA
DRVSTA+?2
DRVSTA+4
DRVSTA+6
RMVEC ,R3
#ISR, (R3)+
RMVEC+2, (R3)

:CHANGE THE PRIORITY 10 S

;DONE?
;LOOP IF NO
JSET ALL DRIVES TO OFFLINE

;SETUP THE RH/RM VECTOR

RMADR R4

.FIRST ADDRESS OF RH/RM

4%
5%
DRVSTA(R1)
R1

;"DVA" NOT SET OR PARITY ERROR
:NORMAL RETURN
JSET DRIVE STATUS TQO OFFLINE
;GO TO NEXT DRIVE

#CLR,RMCS2(R4)
R1
RO,DRVINT

#°C7.R1

3%
#7.R1
PS
DPINT(R1)
8%
PC,SET.IE
DPINT(R1)
7%
R1
6%
(SP)+,PS
PC

;MASSBUS INIT
:START WITH DRIVE O
JINIT THE DRIVE

JMASK OUT UNUSED BITS

;BR IF MGRE DRIVES TO GO
;START WITH DRIVE 7
;CLEAR THE PROCESSOR STATUS
JWAITING FOR DRIVE TO SWIT(CH PORTS ?
:BR NOT WAITING
:SET INTERRUPT
;DRIVE SWITCHED PORTS ?
:BR IF NOT
;GO TO THE NEXT DRIVE
:CHECK NEXT DRIVE
:RESTORE THE PROCESSOR STATUS
JRESTORE RO - RS
;BYE-BYE

JDRIVE INITILIZATION RGUTINE
:THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS
AN RMO5/3/2. IF IT IS, A "READ-IN PRESET'' IS ISSUED AND FMT16
;1S SET TO A "*1''. THEN MOL, DPR., DRY, AND vV ARE CHECKED TO
s INSURE THEY ARE ALL ON A “'1'', AND DEPENDING ON THEIR STATE,
:DRVSTA IS SET TO THE PROPER CONDITION.
s CALL
;
MoV
#DRYNUM,R1
;DRIVE NUMBER T0 R1

MOY

RMADR , R&

*UNIBUS ADDRESS OF RH/RM (RF(5T,

\-J‘.F-l

S URMATTER

NITIACJATION (OfE

8 10
TE:¥9:54 PAGE &5-F
RC ,ORyINT

KE TURNZ

248

030700
030702
36706
030712
930716

030722
030730
030736
030740
230744
030746
030752
030760
(30762
030766

210546
*C5061
*05061
105061

{10164

112764

032764
001403

035600

105061

030340

000522

032764
001512
004037
000026
031210
012605

il
cd
e
ek

022705
001415
112761

022705
001407
022705
001404

000604
020024

000005
020025

000121
035270

Ob&hNOONOON

et —D =D ()
) rd e el

el et d et i
Jda

)

A A AN N L AN W LN W

N AN AN N AN

WA W

012746
004037
000000
031210
012746
004037
000032

100015

116164

004037
000014

43
RO ,RD.RM

;BR [F DRIVE NOT AVAILABLE
;READ THE DRIVE TYPE REG.

030350

2%:

#7177 RMCST(RS)

JLEAVE THIS ROUTINE

;SEE IF DRIVE AVAILARLE

;ERROR RETURN ADLRESS

(TMMpP

8240264 RS

:DUAL PORT RMO3 ?

MOVB
(MP
8EQ
{MP
BEG
MOVB
(MpP

#5S ,DRVTYP(R1)

:SET RMO2 IND]CATOR

’$

#20025 RS

.BR IF

YES

:BR

YES

JSINGLE PORT RMO?

:BR IF

;BR IF

2%
#24027 RS

:BR IF YES
;DUAL PORT RMOS °?

#24025 RS

#7 ,DRVTIYP(R1)
#20027 ,R5

;DUAL PORT RMQZ2 2

:SET RMOS IND'CATOR
;SINGLE PORT RMOS °»

:BR IF

#-1,DRVIYP(R1Y

MOV
JSR
RM(S1
5%
MOV
JSR

#121,~(SP)
RO,WRT.RM

;DO A 'READ-IN PRESET"’

MIT12,-(SP)

:SET FMT16=1

RO,RD.RM

:READ RMDS

b} )

JSR

RMDS

MOV
BPL
MOVB
JSR
RMER

RO,WRY .RM

:SET

JEX]IT

YES

MOvVB
Br

RMOF

000016

JSELECT A DRIVE
;DO A DRIVE (LEAR COMMAND (& SEIZE DRIVE)
#31T12 RM(S2(R4)
SNONEXISTENT DRIVE?

#1117, /RMCST(RG)

;PUT DRIVE TYPE IN RS
:SET RMO3 INDICATOR
:SINGLE PORT RMQ3 7

BEC
(MpP
BEQ

030350

cCLEAR THE DRIVE TYPE INDICATOR

MOVB
(mMP

BEQ

03C350

DRVIYP(RY)

{SP)+ RS
#4 ,DRVTYP(R1)
#20024 RS

MOv

BEC

031210
012605

cCLEAR THE UNLOAD FLAG

:SET DRIVE STATUS TO OFFLINE

036350

000012

ULDFLG(RY)
R1,RMCS2(RG)

DRVSTA(RY)

{LRB
8IT
BEQ
JSR
/RMDT

031210
004037

;SAVE RS
;STARY DRIVE STATUS AS OFFL INE

1%:

024027

000446

RS,=(SP;
DRVSTA(RT)

024025

000007
020027

JNORMAL RE TURN

$GO SET ““IE'* WITHOUT A "'TRE''

024024

1727777

000000

JCALLED BY A SR

JERROR OCCURRED (PARITY)

P(,SET.IE

112761

00000
20GG10

SEQ 0118

DRVINT: MOV
{LRB
(LRS
Lk
MOV
MOVR
817
SEQ
JSR
8R

035110

—

)

ol oD

QOO0
SN NNND
OO

——d —

N NN N AN AN AN (N WA AN AN NN

£22705
001431
022705
001426
112761
022705
001420

004000

e —d —d =D

[olelelelelelelelolualelololelalsBeloleldlelolelolalololololole)

030349
030256
€3040¢
20010
000111
010000

004737

112761

~s OO0 NN B AN

L
RE T RN’

AN LA LANLAN LN AN AN AN N
P
e
e e B 3

w=AER-R
-

& €

LM
L

~ra

-V

)ICATOR

°'OTHER®

(SP)+ RS
3%

;JAND SAVE IT IN RS
:BR If ATA=0
ATARIT(RY) ,RMAS(RS)
:CLEAR ATTENTION BIT
RO,RD.RM

sFIND OUT WHY ATA=1

JeM B
RMCY, 300 SORMATITER
MATRD
~r RM DRIVER INITIALIZATION CODE

322 031152
223 031154
326 031156
325 031160
ggg 031166

0312'0
006126
100004
112761
000407

328 031170
329 031172
330 031176
331 031200
332 031206
333 031210
334 031212
325
336
337
338
339
340
341
342
343
344
345

005105
042705
001003
112761
005720
012605
000200

346 031214
347 031220
248 031226

349 031234
350 031236
351 031240
352 0312464
355
354
255
256
357
558
356
360
361
362
363
364
365

031246
031252
031256
031260
031264
031266
031272
031274
031300
031302
31306
031310
031314

366 031316
267 031322
368 031326
369 031330
270 031336
371 0313460
372 031346
373 031352
T76 031354

177777

3s:
93C340

4%
5¢:

:
:CALL
:
:

:
b
Q13746
013737
112737

104412
011002
005062
111201

013704
105761
003014
105761
001036
105761
001042
004037
000434
105761
003445
105761
001031

177776
030452
000001

030360

030700
030340
030370

120000

778 (31372

006737

(32564

i ¥

000103

0006002

177777
030330

Q30404

2%:

031506

000016

{om
BIC
B8NE
MovB
TST
MOV
RTS

3%:
4%:

c 10
*R:39:56 PAGE 45-¢6

(SP) e

21S

#-1,DRVSTA(RY)

;SET UNSAFE

INDICAIOR

;CHECK MOL,

DPR, DRY,

AND

DPR,

OR vv

MOV
1STR
BGT
ISTR
BNE
1STR
8NE
JSR
B8R
TSTR
BLE
TSTB
BNE

JEXIY

;BR If MOL,

#1 ,DRVSTA(RY)

sSET

JEXIT

(RO)+
(SP)+ ,R5

RO ,RMOS
JSR
PNTADR
RETURN1
RETURN?

mov
MOV
MOvB

1T UNSAFE?

:BR IF NOT

#°(<BIT12.BIT08!RIT07!BIT06>,RS

PRE-PROCESSOR-HANDLES

SAVREG
MOV
CLR
MOVR

030406

012762

00043

RMOS:

030456
030340

376 031362

000440

_
177776
(30404

000016

000010
036242

327 031370

b} 3
ROL
BPL
MO /R
8R

;REQUEST

010164
004037
000460
122762
001003
112761
105761
001043
004737

75 031360

&4=-&PR=-87

Q30340

167077

000001

,ow.00

pPS.,-(SP)
RMVE(+2 ,PS
#1

ACTDRV

(RO) ,R2

16(R2)

(R2) ,R1

RMADR R4

DRVSTA(RY)
1%
ULDFLG(RY)

3s
DPINT(R1)
5%

RO,DRVINT

43
DRYSTA(RY)
63
DPRQS(RY)
5%
R1,RM(S2(R4)

DRIVE

DRY,

STATUS

;STEP OVER THE ERRGR RETURN
JRESTORE RS

SUBSYSTEM REQUEST

;CALL

THE RMOS5 DRIVER

;ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK
;RETURN HERE IF QUEUE IS FULL
JRETURN HERE IF REQUEST IS IN QUEUE OR THERE

;1S AN ERROR CONDITION

;SAVE THE CALLING STATUS
;DON'T ALLOW ANY RM INTERRUPTS
;SET

"'ACTIVE

:SAVE RO ~ RS

DRIVER'® FLAG

;PICKUP THE DRIVE PARAMETER BLOCK POINTER
;CLEAR

THE

STATUS/ERROR

;PICKUP THE DRIVE NUMBER
;UNIBUS ADDRESS OF

RM(S1

;BR IF YES
sTRYING 10 INIT THE DRIVE
:BR IF YES

;GO0 INIT.

THE DRIVE

+ERROR RETURN
;IS DRIVE STATUS ONLINE?
;BR IF NOT
;OUTSTANDING PORT REQUEST FOR THE DRIVF
;BR IF YES
JSELECT THE DRIVE

:BR [F NO

8%
gg.OPT

;BR IF YES
;CALL THE OPTIMIZER

MOV

g§1T15.81713,16(Rg)I1

JSk

PC,C17

BR
BR

#103,2(R2)

#-1,0LDFLG(RT)
DRVALT(RT)

INDICATOR

;CHECK DR]IVES STATUS
;BR IF ONLINE
JUNLOAD COMMAND [N QUEUE?

IS (LEAR

TO ONLINE

MOV
JSR
BR
(MP8
BNE
MOVR
TSTR
BNE
JSR

RO, DRVQUE

JPUT

THIS REQUEST

JQUEUE
;1S

IS FULL

THIS REQ.

IN QUEUE

FOR AN UNLOAD?

;SET THE 'UNLOAD [N QUEUE'' FLAG
;1S THIS DRIVE ACTIVE?

JEX

JSET THE ‘UNLOAD IN QUEUE'® ERROR f LAl

;GO HANDLE

THE PARITY ERROR

MM S g - FURMAT
"t R
S
e WTM LRIVER INITIALJZATION

379 031376
380 0314600
381 031404
382 031406
383 031412
384 031414
031420
031422
031426
031430
031436
031442
031444
031452
031456
31462
031464
031466
031470
£31472
031474
031520
031504

000431
0C4037
000431
032714
001023
004737
000420

“UDE

030350

¢$:

012637
000200

JSR

RO ,DRVQUE

JPUT REQUEST

817
BNE

JSR

#B1706, (R4)
8%
PC,SET.IE

J1E BIT SET ?
JYES
;SET THE INTERRUPT

I1STR

DRySTA(RY)

B8R

IN QUEUE

JQUEUE 1S FULL

;RETURN

JSEE IF DRIVE OFFLINE OR UNSAFE

000016

73
:BR IF UNSAFE
#RiT15!81114,16(R2)
;SET OFFLINE ERROR INDICATOR

100002

000016

8NE
MOV

8%
;BR IF OFFLINE
#1715 .BIT01,16(R2)
JREPORT DRIVE NONEX'STENT

110000

000016

MOV

ARIT1S.BIT12,16(R2)

1460000

1046413

105037

D10

TB:3Q:56 PAGE 45-7

BLT
MOV

005720
000401

005720

035600

105761

104413

000100

030340

001007
012762
000403
012762

wmAPReRT

(36cse

105761

0026412
012762

Ve,

1STR

8%:

9% :

10%:

030404

1727776

B8R

RESREG
ST

DRVTYP(RY)

JSEE

;60 TO eXIT

(RO)+

B8R

10%

TST
CLRB

(R(Q) +
ACTDRV

RESREG

MOV
RTS

(SP)+,PS
RO

OFFLINE

JDRIVE

OR NONEXISTENT

]S UNSAFE

JRESTORE RO ~ RS

JSETUP FOR NORMAL

RETURN

sFINJSH UP, THEN EXIT
JRESTORE RO - RS

;CORRECT THE RETURN ADDRESS
JCLEAR ""ACTIVE DRIVER'' FLAG
JRETURN 'PS’" TO USER LEVEL
JRETURN TO CALLER

;OPTIMIZER-CALLED FOR A PARTICULAR DRIVE
s CALL

:
:

031506
031510
031514
031522
031526
031532
031534
031536
031542
031550
031556
31560
031564
031566
031572
031600
031604

104412

013746

166137
105061

004737
005702
00146€
010164
012764
032764
001442

105761
003014
004737
012762
105761
100047

030444
030370
036316
000010
000111
004000

OPT:

030402

036340

000016

012762
000443

110000

000016

122762

000150

0000602

004737

032150

000434
005737
002006
005737

030340

030442
030420

SAVREG

TST

BEG
TSTR
BGT

JSR

MOV

TST8

8PL

3%:

PC,OPY

PS,=(SP)

MOV
BIT

#DRVNUM ,R1

MOV

BEQ
MOV

1%:

030340

wSR

BI(B
CLRB
JSR

000000
002000

140000

002403

4463

127776

MOV

;DRIVE NUMBER TC R1
;SETUP A COMMAND

;SAVE RO - RS
sSAVE

PROC.

STATUS

ATABIT(R1) ,SRCHWT
JCLEAR LA SEA(H FLAG
DPRQS(R1)
JRESET THE PORT REQ FLAG wx«»
PC,GETREQ
:GET 'DPB’’ POINTER OF REQUEST
7%
R1,RMCS2(R4)

;1S

THERE A REQUEST

IN QUEUE?

JNO=--BR TO EXIT
JLOAD THE DRIVE ADDRESS waxxnws

#1171 _RMCS1(R4)
;CLEAR THE DRIVE
ABIT1T,RMCST(RG)
;DVA SET

;70 PORT REQUEST ,IF NOT
;IS DRIVE ONLINE?

P(C ,POPQUE

;NO--REMOVE REQUEST FROM QUEUE

S YES

#BITIS!BIT14,16(R2)
DRVSTA(RY)

JSET OFFLINE

;1S DRIVE

UNSAFE

;BR TO EXIT

STATUS/ERROR INDICATOR

NOT

MOV

ARITIS!IBIT12,16(R2)
8%

:BR TO EXIT

(MPB
BLT
JSR
BR
TST
BGE

#150,2(R2)
3%
PC,Cl4
8%
DTUW
48

;1S THE REQUEST FOR [/0?
sYES
;CALL THE COMMAND INITIATOR
JBR TO EXIT
:DATA TRANSFER UNDERWAY?
;YES=-GO START A SEAR(H

B8R

TS7

5%
DRVYSTA(RT)

SEEKFG

;DO

JSET UNSAFE STATUS/ERROR INDICATCR

IMPLIED SEEKS?

J=Mo
WM

ODRDLER

wolb

£ RMATTER

OINITIA_IZATION

31646

(3173

L67 031656

032042

449
450
451
452
0
453
0
454 0

177777

031654

(AN

P {

4-aP3-g?

6%:

8PL
JSR
B8R
JSR
B8R
MOVB
MOV

035230

(30370

£$:

ASL

030422

b 61
BR
2SR

032564
000100

455 §
456 0

&57 0
458 4]
459 0
460 0

E
*8:39:5¢ PAGE 45-8

CODE

(AR 031650

035600
17777¢

BIT
BNE
JSR

8%:

MOV

RESREG

RTS

461

3
P{CIT
&s

oL, (13
8%

#-1_,DPRQOS(R1)

R1,R3
R3

TCALL

465

466

A Y4

468

DO A SEAR(H

sSTART A DATA TRANSFER

;START A SEARCH
;GO TO THE EXIT

sSET PORT REQUEST INDICATOR
;SET UP TO ADDRESS WORDS
: CONVERT TO WORD INDEX

JSTART 15. SECOND TIMER

#15000., TIMER(R3) EXIT

73
PC,CI7
#I1T06, (R4)

PC,SET.IE
(SP)+ PS

MOV
MOV
JSR

#DRVNUM
R

#DPB R2
PC,CI?

;PROCESS THE PARITY ERROR

JSEE IF

'IE' ALREADY SET

:BR IF SET
JSET "'IE"" WITHOUT A “'TRE'’
JRESTORE PROC. STATUS
JRESTORE RO - RS

;DRIVE KUMBER
;ADDRESS OF DPR

;C17= CI11,C13, OR (Cl4

;sWHERE:

;CI11-DATA TRANSFER

469

;CI3=SEARCH REQUESTED BY DATA XFER

470
471

;C14=NOT DATA TRANSFER

016246
004037

~ NN NN

o YO BN
N [o NaNTo
9 0

487
488

489
490

491

492

493

494

458 032046

010164

€l 1:

030456
000010
000004
000002

- SR
MOV
MOV
MOV

MOV
ADD

ADD
MoV

MOV

035270

JSk

RMDA

MoV

035270

JSR

RMD(

000002

035270

03045¢
000010
000012
035279

;REMOVE REQUEST FROM ‘DRIVES WAIT'' QUEUE

R2, TRNSWT

;PUT

RMADR R4
R1,RM(S2(R4)
#4 ,R3
82 Ry

;SELECT DRIVE
;DESIRED WORD COUNT

R2.R3

(R3)+, (R4L)+
(R3)+,(R4)+
(R3)+,~(SP)

RO,WRT _RM

{R3)+ ,~(5P)

RM
RO,WRT

REQ.

TRANSFER WAIT

;DPB ADDRESS T0O R3
;RMCS1

QUEUE

ADDRESS

;RMWC ADDRESS

;LOAD WORD COUNT
;LOAD BUFFER ADDRESS
;LOAD SECTOR AND TRACK
;JCALL

THE

LOAD(WRITE)

ROUTINE

s INDEX OF REGISTER TO LOAD
;ERROR RETURN ADDRESS

;LOAD CYLINDER ADDRESS

;LOAD 'COMMAND+GO'', "'A17RA'S"',

MoV
JMP

R1,DTUW

;SET "DATA TRANSFER UNDERWAY''

MOv
MOV
MOv

RMADR,R4

JRMCST

JSR

RM(S?

030442
03252¢

P( ,POPGQUE

2(R2) ,=(SP)
RO,WRT.RM

MOV

499 0%2052
536 032056

L83
484
485
486

03634C
030400

\Ae

013704

740

[

497 032042

&79 0
480 o}
481 C
(82 0

495

004737
010237
010203
013704
010164
062703
062704
012324
012324
012346
004037
000006
032564
012346
004037
000034
032564
016246
004037
000000
032564
010137
000137

0
0
0
0
0
0

[an]

472
47%
476
475
476
477
478

sNO,

. COMMAND INITIATOR

“62
663

—_ o put auiuiNhiguiy

GMIS, 200

JSR

R1,RMCS2(R4)
12(R2) ,=(SP)

RO.WRT.RM

ADDRESS

sSELECT DRIVE

;DESIRED CYLINDER ADDRESS

&A\D "%. "’

MATR
JFM B, M5,
v FORMAT TR
S 'RM DRI VER INITIALIZATION 7ODF

000034
032564
116203

163703
002002
062703

(olelslolalelels]

010346

[e]

-—

Fo3

116266

032150
032154
032160
0321¢4
032170
032172
032176
032202
032204
032¢0¢
032210
032214
032216
032222
032226
032230
032232
032234
032240
032242
032246
032250
032252
32256

004037
00L00%
032564
012746
004037
000000
032564

000011
035270

001007
016246
004037
000034
032564
000546
122703

001013
004037
000032
032564
116216

ADD

MOV

030001

MGV

JSR

RMDA

000131
035270

030456
0C0019
000002
000131

122703

MOVE
SuB
8GE

000040

013704
10164

001007
016246
004037
000006
032564
000403

L=APL=§"

{17

goLo1C
030464

0304-4

116203
122703

MOV
JSR

[MIS1T

{1z

030472

\unnha&r*—i%yb

A A AN N AN AN AN
4
OB ONOMN

RLRONIRNUNORN

AN AN AN

Slelwlelslelole)

45-6G

0010

035270

18:

000012
035270

Z2%:

JSTART A

SEAR(H FOR 1/0 wiNDiW

JCOMBINE THE ADJUSTED SECTOR wl'H
:THE DESIRED TRA(K
JLOAD DESIRED TRA(K B SE(CTOR
SEAR(H

;SET "'SEARCH WAIT'' xFY

MOV
MOV

RMADR R4
R1,RM(S2(R4)
2(R2) ,R2

JRMCS1 ADDRESS
;SELECT DRIVE
JPICKUP THE REQUESTED

;B8R IF NO

(MPR

BNE
MOV
JSR

#3131 ,R3

"0(R2) ,=(SP)

RO, WRT ,RM

(GMMAND

;1S IT A SEARCH COMMAND?
;. OAD DESIRED

TRA(CK & SECTOR

RML
¢

000115

3%:

035110

8R
MPR
BNE
JSR
HMOF

€17

000001

Mmovia
JSR

035270

RMOF

«$:

000117

000103

260 LOAD CYLINDER

:BR

#105,R3

12(R2),=(5P)

03527¢

8131, =(SPS
RO,wWR” .RM

11(R2).,1(SP)
RO,WRT
RM

JBAIKUP BY MAX,

RMDA

000105

030340
000001

sP1(KUP SECTOR ADLCRESS

?}?BIT(R1).SRCHu7

000001

10(R2) ,R3
MXWNDW ,R3
18
#32, ,R3
- {(SP)
R3,

8I58
8R

MOVS8
(MPR
BNE
MOV
4SR

000167

AN AN LA LA

“8:39:5¢ PAGE

RMDC

156137

000567

te,

(RN IV IV LV, LV RV, SN XV, RV, | J
N)~d b d =P e el s »a_a
(R o] RNTe NV P RWNT VR O

501
502
503
504
505
506
597
578
509

8R
{
BEQ
{(MPR
BEQ
MPR
BNE

RO,WRT
RM

(16

(OMMAND

JLOAD DESIRED CYL INDER

;MERGE THE OFFSET VALUE INTC RMOF
;BUT DON'T CHANGE THE UPPER

;BR

1(R2),LSP)

;BYTE

JREGISTER

(RMOF)

Clé

;G0 START
JI1S

THE

(16
#117 ,R3
(16

:BR
;IS
:BR

IF YES
IT A RETURN TO CENTER?
IF YES

;BR IF NO

DRYSTA(RY)

;PUT DRIVE STATUS TO OFFLINE

RO, WRT . RM

R07,R3

#103,R3

030406

MOVR

&1, LDFLG(RT)

l:“

SEEK

RO,RD .RMTM

#1,DRVACT(R1)

RM(

[F NO

;IS 1T AN TOFFSET'" COMMAND?

MCOVR

MCV
SR

#115,R3%

(30330

(LRB

;1S

R3,=-(SF)

RO,wRT.RM

WHEN LOADING

THE

COMMAND

A "RECALIBRATE'" COMMAND?

;IS 1T AN "UNLOAD'' COMMAND?

;SET

THE

DRIVE

:SET "UNLOAD

ACTIVE

INDICATOR

IN PROGRESS'® FLAG

;START THE “UNLOAD'' (OMMAND

-t
e

-M

TR LbR

360 032%6
56 (32352
562 032354
563 £32360
564 (32362
565 J32364
566 032372
567 032376
568 032400
56% 032402
570 032404
571 032410
5§72 232612
573
574 032416
575 032424
576 032430
577 (32434
578 032436
579 032440
580 030442
581 032446
582 032450
032456
032460
585 032664
586 032466
587 032470
588 032474
589 032476
9590 032500
591 032504
592 032512
593 032516
594 932520
595 032524
596

597 032526

598 032530

599 €32536
600 032540
601 032546
602
603 032550
604 0 32552
605 0 32556
606 0 32560
607 032562
3
608
609 0 3
613 0

410
o’;} 3

[N
S SPopeY ]

LN LTE
AL
AT
INJTI

58 032342
559 (032344

617

LMAT TR

032564
000207
122703

COTY

004037
000032
032564

03511C

001014

116266

004037
000032
032564
0004 36
122703
001023
016203
116237
116205

004037
000000
032564
012623
023705
001414
062737
000764
122703

001405

010346
004037
000000
032564
004737
052762
005737
100002

0046737
000207

006301
012761
006201
112761

000207
010346
004037
000000
032564

00000*
035270

L MPR
8NE

JSR

(i7
MOVvR

GO0

000141

JSR

£%:

000006

000010
0000M
03511¢

032434
8%:
3%

032434
000002

032434

000145
035270
036340
0C0200
030416

G 10

BTy BAGE

&5e"(

P
#'63,R3

JRETURN TO USER
SIS IT A ''SET FORMAT®® (OMMAND?

RO,RD.RM

JREAD

o3 ]

:BR [F NO
THE

000016

1(R2),1(SP)

RO,WRT RM

BR
MPRH
BNE

MOv

128
#1461 ,R3
108
6(R2) ,R3

MOVR
MOov8e

10(R2),9%
11(R2) RS

JSR
RM(S?T

RO,RD.RM

MOV
MP

(3PY¢ (R3)+
3¢ ,RS
128

(17

BEQ
ADD

BR
¢
BEQ
MOV
JSR

RMCS?
1z

JSR
BIS
TST
BRL

JSR

0354462

82,9%

IS IT A "'GET REGISTER'' TOMMAND?
JBR IF NO
JPOINTS TO 1ST ADDRESS OF WHERE
;TO PUT THE REGISTER(S)

JINIT. THE INDEX FOP THE FIRST REG.
;INDEX OF LAST REG. TO MOVE
JREAD RH/RM REGISTER

JGET THE CONTENTS OF RH/RM RfG.
;LAST REG. BEEN READ?
;GET OUT IF YES

;INCREASE

JLOAD

P(C,POPQUE
MIT07,16(R2)
SAVEFG
3%
P(,SVRM70

ASt

:BR [f

YES

THE

RETURN TO USER

000001

03033C

MoV

A1, DRVALT(RYD)

;SET

MOv
JSR
RM(S1

RO, wWRT .RM

R3,-(SP)

. LOAD THE

cIs

Bl7

#7112 ,RM{S2(R&)

BNE

106000

RIS
MOy

COMMAND

;REMOVE REQ. FROM QUEUE
JSET THE 'DONE'’ BIT
;SAVE THE RM/RM REGISTERS?
JBR IF NO
s YES==-GO SAVE THE REGISTERS

RrR1
;20000.,¥IMER(R’)

157

INDEX By 2

R3,-(SP)
RO,WRT
RM

MOV

Ci7

THE

:LOOP--MORE TO READ
sIS IT A ''SELECT DRIVE'' COMMAND?

RTS

TO READ

JINDEX OF REG.

8¢
#145,R3

RTS

ASR

AND "TMN(]*

;LOAD "¥MT16', “ECI'°, AND/OR "M( "',

030422

12008

JCOMBINE "FMT16'',"ECI*",

023420

035270

OFFSET

RMO

000761

032764
005792
001001
000207
012762

JSTART

10.

SECOND TIMER

THE DRIVE ACTIVE

JRETURN TO

THE

USER

COMMAND

;DRIVE NON=-EXISTENT ?

JANYTHING IN QUEUE

, OTHERWISE EXIT

;B8R [F QUEUE

#3175 87177, 16(R2)

IS THERE

;SET "PARITY'' ERROR N[ _AT3H

JEMUB

RMUS, 2.0 FORMATTER

DRI GER

INITIALIZATION

£26 032606
25 032612
£26 032618
627 032620

012746
004037
000000
032664

629 032626
£30 032632
£31 03263

105061
105061
105061

628 032622

QL1171
(35270
036222

632 032642

020237

020400

637 032650
438 0326546
gzg 032662

005037
012737
000207

661 032064
642 032666
463 032670
bhé 032672
6465 032676
646 £32700
647 032704
648 032706
649 032712
650 032716
651 032720
£52 032724
653 032726
654 032730
655 032736
656 032740
657 032746
£58 032750
662 032756
663 032764
664 032770
665 032774
66 033000
667 033002
»68 033010
669 033014
670 033020
676 £33026
675 033030
676 033034
677 033040
678 033042
679 033050
680 033054
681 033060
682 033066
683 033070
684 033074
685 033100
686 033106
£87 033110
~88 033172

104412
005001
005003
105761
001003
105761
001443
013702
020137
001402
004737
005792
001413
032764
001404
012762
000403
012762
012763
105061
105061
020137
001005
012737
005037
105061
032764
005201
062703
042701
001314
012737
005037
004737
012764
000406
004737
105061
195067
004737
104413
(000207

001005

G870

OIS

004737

£36 032646

LALE

178:

(030370
030406
030330

030400
177777

030442

030330

2%:

1%:

030370
030400
030442

2%:

036316

3%:

010000

000010

100002

000016

102000

000016

030422

4%:

5%:

030370
030442

177/77
030400
Q30406
010000

Q030642

N
000010

000002
177770
177777
030400
036144
000040

036222
030340
030350
035600

811
=(SF)
RO, WRT 8TM

;00 A TDRIVE

JSR

L
{LRB
(LRB

2CEMPTYQ

:EMPTY

(mMp

DPRQS (R}
ULDFLG(RY)
PRVACT(RY)

R2, TRNSW?

;IfF THIS DRIVE HAD AN 1/0 REQUCLST

BNE

£i8:

177777
030330

MOy
JSR
RM(S1
€18

030442

000010
7%:
2%

THE

(LEAR'T

QUEUE

;CLEAR THE PORT REQUEST FLAG
:CLEAR THE UNLDAD [N QUEUE FlAG
;DRIVE 1S IDLE
:IN PROGRESS CLEAR ALL OF

THE FLAGS

(LR
MOV
RTS

TRNSwT
#-1,DTuw
P

SAVREG
CLR
(LR
1SR
BNE
TSTR
BEQ
MOV
(MP
BEQ
JSR
TST
BEQ
BIT
BEQ
MOV
BR
MOV
MoV
CLRA
(LRR
(MP
BNE
MOV
(LR
{LRR
817
INC
ADD
BIf
BNE
MOV
LR
JSR
MOV
BR
JSR
CLRB
(LRK
JSR
RESREG
R1S

JSAVE RO = RS
R1
R3
DRYALT(RT)
:DRIVE ACTIVE?
2%
;BR OIF IN ACTIVE
DPRQS(RT)
:PORT REQUEST
6%
:BR IF NOT
TRNSWT ,R2
:GET THE *'TRANSFER WAIT'' QUEUE
R1,DTUW
;DID THIS DRIVE HAVE AN [/0 IN PROGRESS?
s
;BR IF YES
PC,GETREQ
JGET THE DPB POINTER
R2
;QUEUE ENTRY FOR DRIVE ?
5%
:BR IF NOT
#BIT12,RMCS2(R4)
J'NED' SET ?
A
;BR IF NOT
#31715.B1T01,16(R2)
:SET 'DRIVE NON-EXISTENT® INDICATOR
5%
: CONT INUE
#BIT°S!BIT10,16(R2)
:SET "NON-CLEARABLE PARITY'' ERROR INDICATOR
#-1,TIMER(R3)
:STOP THE TIMER
DRVACT(R1)
:SET "DRIVE ACTIVE'® TQO IDLE
DPRQS(R1)
;CLEAR PORT REQUEST FLAG
R1,DTUW
:1S THIS DRIVE SETUP FOR A TRANSFER
6%
:BR IF NOT
#-1,DTUW
JRESET THE INDICATOR
TRNSWT
:CLEAR THE TRANSFER QUFUE
ULDFLG(RY)
:CLEAR UNLOAD FLAG
#RIT12,RMCS2(R4)
J'NED' SET ?
R1
:MOVE 70 THE NEXT DRIVE
82 ,R3
#~(7 R1
1%
:BR IF MORE DRIVES
#-1,DTUW
:NO DATA TRANSFERS UNDERWAY
TRNSWT
JCLEAR THE °'TRANSFER WAJT' QUEUE
P(,CLRQUE
;CLEAR ALL OF THE REQUEST QUEUES
#CLR,RMCS2(R4)
;DO A MASSBUS INIT.
8s
; CONTINUE
PC,EMPTYQ
;CLEAR THE DRIVE'S QUEUE
DRVSTA(RT)
;SET DRIVE TO OFFLINE
DRVTYP(R1)
:CLEAR THE DRIVE TYPE [NDICATOR
PC,SET.IE
JSET 'IE'C WITHOUT '‘TRE"’
JRESTORE RO - RS
PC
:RE TURN

JRM ok

WM 3,80 FORMATTER

e WWODRDLER

OINITIALIZAYION (ODE

MAIRD

‘K

92 033114
493 033122
696 033124

655 033130
696 033134
697 033136
698 033142
699 033146
700 033150
;gg 033154
{

1127%7
104412
(13706

013701
002402
004737
004737
104413
105037
000002

GOOCCT

3044

033156
(033326

1%:
’$:

(30404

105061
012737

030330
177777

(030442

708 033172
709 (33200

012761
006201

177777

030422

711

005037

030400

(004037
000000

(35110

707 033170

710 033202

033206

712 033212
713 033220
714 033224
715 033230

006301

013702

052762
010164

MOvR
SAVREG
Moy

MOV
BLY
JSR
JSR
RESREG
(LRA
R"!

000200
000010

032564

718 033236
719 033240
720 033244

100417
005737
100002

030476

004737

0363'¢

033246

004737

728 033256

005702

726 033252

729 033260
730 033262
033266

001403
004737

000207

732 033270
;%2 033274

012714
000207

735 033276

052762

;2? 033324

000207

(033304
033310
033314
033320

004737
004737
012714
012714

TRNSWT

:TRANSFER WAIT

100100

036222
035462
04C* 11
000113

JGET 'DPR'" ADDRESS FROM THE

#R]1107,16(R2)
R1.,RMCS2(R4)

:SET DONE
:SELECT THE DRIVE

RO.RD.RM

(SP)+

3
SAVEFG
1%

PC,SVRH70

18T

RTS

. SR

QUEUE--CLEAR QUEUE

:TRANSFER ERROR(TRE-")?

;IS TRE-1

:BR IF YES
:SAVE THE RH/RM REGISTERS?
;BR IF NO
:YES--SAVE

THE REGISTERS

P(.GETREQ

:GET DPBR PCINTER

2%
PC,0PT

;RR IF NOT
:CALL OPTIMIZER

2113, (R4)
PC

:ENTRY FOR DRJIVE

;RE TURN

2%:

MOV
RTS

3$:

B81S

#31T115.8]1706,16(R2)

RTS

JSR
JSR
MOV
MOV

TIMEOQUT

TRNSWT ,R2

JSR

BEQ
JSR

000016

(L EMPTYQ
P(,SVRH7C
AL0171, (R4S
#113,(R4)

;RELEASE
:RETURN

THE DRIVE

:SET DATA ERROR FLAG

sEMPTY THE ‘DRIVE'S WAIT'® QUEUE
:SAVE THE RH/RM REGISTERS
JISSUE A "DRIVE CLEAR''
;1SSUE A RELEASE TO THE DRIVE

;RETURN

JSPECIAL CONDITION ROUTINE

766 033326
767 033332

116403
001014

769 033340
770 033342

000000
(32664

772 033%6
773 (3335C

100405
004037

771 033344

(LR

8M]
1ST
BPL

000113

;gg

768 033334

;CANCEL

€17

031506

ROUTINE

#=-1,TIMER(R")
R1

ROL

1%:

ACTDRy

:GET "DATA TRANSFER UNDERWAY'® INL;
;BR [F NO DATA TRANSFER UNDERWAY
JCALL TRANSFER DONE
sCALL SPECIAL CONDITIONS
JRESTORE RO = RS
JCLEAR ""ACTIVE DRIVER'® FLAG
;RETURN

MOV
ASR

JSR
RM(S1?

035462

RMADR R4
DTuW,R1
18
PC.TD
PC,SC

JSET "ACTIVE DRIVER'® FLAG
JSAVE RO = RS
;ADDRESS OF RM(S1

;SET DRIVE ACTIVE INDICATOR TO IDLE
;NG DATA TRANSFERS UNDERWA¢

8IS
MOV

006126

#1 AL TDRY

DRVACT(RY)
#~1 DTuw

MOV

000016

ROUTINE

(LRB
MOV
ASL

030400

716 033232
717 033234

110
"B:33:5%¢ PAGE 45-77

SERQYICE

; TRANSFER DONE

705 033156
706 033162

7%
737
738
739

ISk:

030456
0304472

;82

721

4=aPR=BY

JINTERRUPY

721

e,
L

(004037

00001¢

035110

106126

SC:

MOVR
BNE

JSR

RM( ST
(I8

ROLB

(36406

BM]
+SR

RMAS (R4 ) ,R3
2%

;READ "'RMAS''
:BR IF ANY 'ATA' BITS SET

(SP)+

;IS TIETT 12

RO,RD.RM

1%
RU,ES.SAy

:READ CONTROL AND STATUS REGISTER

JYES, NO DRIVES TO (RETK
:SAVE THE ADDRESS IN "S$ES{APE®

A" w

TIRMUBO RMCS/ 370 FORMAT'ER

kri/RM DRIVER

INIT]AL]ZATION

104001

004737

7?24

778

000207
00504¢€

776

110316

777
778

012703
005001

776G

”80
781
’82
78%
784
’85
786

033422

793 033426
794 033432
795 033434

796 033440
797 033444
798 033446

799
800
801
802

033452
033454
033460
033464

1°&

oS
IS2S

WAL W

w...

EmY

(35600

¢%:

000001

$rg:

001373
005726
000207
SC5:

105761

034340
030370

105761

034340
030340

2%:

105761

030406

003420
004737
004737
004737
105767
003414
032737
001000
013705
000504
105761

001033
004737

030340

040000

030322

3%:

030330

4%:

105761

030360

105761
100412

030340

032737
001013
012746
004037
000000

034130
011605
004037
104002

620000

036406

C36406

JPROCESS ALL DRIVES THAT HAVE
;AN "'ATA''=1

;ATA=1?

INC
aASL A
BNE

R
R3

.MOVE

RTS

(SP)+

;CLEAN OFF

TSR
BEQ
JMP
1STB
BEQ
JMP

DPINT(R1}
1%
SC13

JINITIALIZING THE DRIVE
;:BR IF NOT
JPROCESS THE DRIVE

2%
SC13

:BR IF NOT
JSTART THE OUTSTANDING (OMMAND

8G7
18713
BLE
JSR

A3
ULDFLG(RT)
48
PC,GETREQ

;BR IF ONLINE
JUNLOAD IN PROGRESS?
;JBR IF NOT
;GET DPB POINTER

JSR

PC,SC12

DRVSTA(R1)
5%

;SAVE RMDS, RMER1, RMERZ, AND RMMR?
JALSO DO A DRIVE INIT (DRVINT)
.DID DRIVE COME ONLINE?
:NO

3%
RMERRS+2,RS

;BR ]IF ERROR
JYES == PICKUP RMER1

DRVALT(RT)

;DRIVE

TSTR

SC5

SC3

DPRQS (RY)

DRVSTA(RY1)

P({,SVRH70

BIT

#81714 ,RMERRS

B8R

SCHA

BNE
MOV
TSIR

SC6

JSR

pC,scCi12

TSTR

DPINT(R1)

BNE

RM(CS1

INTERRUP!

R3, (SP)

MoV
JSR

035270

ILLEGAL

8l7

BNE

TSTR

030324

INTERRUFT ENABLE

#1,R3

gm]
817
BNE

00011

000701

004637

5¢%:

JSET

MOV

BNE

034270

:RETURN

-(SP)
R3,(SP)

TST8
8LE

030320

LR
MO /R

RTS

JSR

034270

JREPORT

PC,SET.IE

18T

030360

003023

45-13

JSR

CLR

005201

001402
000137

J 10

"B:39:5¢ PAGE

SEQ 0126

<(3:

105761
001402
000137

L=AFR-B'

(ODE

030316
0061005

001323

3 \Nu~u~h~t=uuuu»h~uu

U AN AN WA N N AN N N AN AN W AN

iglelalolalvlelalolelolololelele]

o0 0o 0o 0o O 00 00 J0
n — el =D e D ed b
o DBUR
N
N

803
804 033470
805 033474
806 033476
807 033504
811 033506
033512
033514

821

106303

787
788
739
790 033414
791 033420

792

SCé4

DRVYSTA(RY)

JYES

TO THE NEXT DRIVE

;BR IF MORE

;RETURN

TO (HECK?

THE

T0 USER

STA(K

;PORT REQUEST OUTSTANDING ?

;CHECK THE DRIVE STATUS

;SAVE THE RH/RM REGISTERS

;WAS

THERE

AN ERROR?

. GO PROCESS THE ERROR
ACTIVE

WITH

AND

COMMAND

ERROR

;BR IF EITHER

:SAVE

;ALSO

RMDS, RMER1, RMERZ?. AND RMMR?
DO A DRVINT

sTRYING TO INIT THE DRIVE

;BR IF YES, CHECK ON MORE DR]IVES

;CHECK ON DRIVE'S STATUS

63
:BR If UNSAFE
#BIT13,RMERRS+4 ;ADDRESS PLUG CHANGED ?
7%
;BR IF YES
#111,-(5P)
RO.WRT.RM

;DRIVE
WRITE

CLEAR
THE COMMAND

JREGISTER INDEX

INTO RM(ST

S{8
MOV
JSR
EMT
BR

(SP) ,RS
RO.ES.SAV
2
SC4

JPARITY EXIT ADDRESS
;PICKUP (RMAS) BEFORE THE ERROR CALL
:SAVE THE ADDRESS IN ‘'SESCAPE"
JREPORT THE UNEXPECTED ATTENTION
;GO CHECK FOR MORE ATA'S

_SR

RO,ES.S5A\

;SAVE THE ADDRESS IN 'SESCArt’

RECOVERY

LM oe
JMUS/ 370 ECRMATTER
MAIRS JLh..C
wre ~M O[SV ER OINTTIALI/ATION (LODE

£33604
222 033606

104005
000675

836
837
838
839

033610
033612
033620
533622

006301
012761
006201
004737

841 033632
842 033636
B43 033642
8«4 033644
865 033646
846 033650
847 033652
848 033654
849 033660

000137
004037
000612
034130
011605
006126
100407
105761
003137

851 033670
852 €33672
853 033676
854 033700
855 033702
856 033704
857 033710
858 033714
859 033720
gg? 033722

000470
004037
000014
034130
012605
004737
€12746
(004037
000000
034130

862 033724
863 033726
864 033730
865 033732
866 033734
867 033742
868 (033744
869 033750
870 033752

006105
100406
005702
001447
052762
000443
004037
000012
034130

872 033756

006126

840 03326

850 033662

871 033754

873 033760

0101€4

052762

100011

112761
004737
052762
000423

879
880
881
882
883

001015
112761
112761
006301
012761

034010
034012
034020
034026
034030

884 034036
885 034040

ggg 0346044

888 034052
892 034056

030422

S(é:

036316

000010

030330

10021C

000016

035110

035462
000111
035270

SCGA:

100240

000016

035110

032705

006201
000137

052762

105061
004737

177777
035462
110000

1%:

0303490

030330
030340

035230

030422

030330
(036340

ASL
MoV
ASR
JSR

R
#=1,TIMER(RT)
R1
P(,GETREQ

;SETUP TO ADDRESS WORDS
JSTOP THE TIMER
JRESTORE THE DRIVE ADDRESS
JGET THE DPB POINTER FROM THE QUEUE

JMP
JSR
RMDS
SC8
MOV
ROL
8M]
TSTB
BGT

SC1
RO,RD.RM

:PROCESS THE SEARCH
;READ THE RM'S STATUS REG.

(SP),RS
(SP) +
1%
DRVACT(R1)
$¢11

JAND PUT IT IN RS
;WAS THERE AN ERROR?
:BR IF ERROR
JCHECK DRIVE'S STATE
;BR IF DRIVE ACTIVE WITH ORDER

SC7
RO,RD.RM

;READ ERROR REGISTER #1

000616

BR
JSR
RMER1
SC8
MOV
JSR
MOV
JSR
RM(S1
S(8

R1,RM(CS2(R4)

JSELECT DRIVE

#3]T15.81707.8]1703,16(R2)

(SP)+ RS
PC,SVRH70
#111,=(SP)
RO,WRT.RM

;INFORM USER OF ERROR RECOVER COMPLETION

JAND SAVE IT IN RS
:SAVE RH/RM REGISTERS

:ISSUE A DRIVE CLEAR

ROL
BM]
TST
BEQ
BIS
BR
JSR
RMDS
S(8

RS
JWAS "UNSAFE'" (ONDITION
12
1%
:BR IF YES
RZ
JANYTHING IN QUEUE ?
SC7
:BR IF NOT
AITIS!BITO7!RIT05,16(R2)
;INFORM USER OF ERROR
SC7
RO.RD.RM
:READ DRIVE STATUS REG. #1

ROL

(SP)+

MOV

(SP) ,R5S

;SAVE RMDS IN RS

BPL

:BR [F NO=--UNSAFE CLEARED

:"'ERR''=1?

#-1_,DRVSTA(R1)
DRIVE IS UNSAFE
P(,SVRH70
;SAVE RH/RM REGISTERS
MIT1S!BIT12.16(R2)
:INFORM USER OF UNSAFE ERROR

BNE
MOVh
MOVR
ASL
MOV

"%
:BR IF YES
2-, ,DRVACT(R1)
;ACTIVE ERROR RECOVER
71,DRVSTA(RY)
;ONL INE
R1
#15000.,TIMER(R1)
;START 15, SECOND TIMER

3$:

BIS

#BIT15.8]T107.BIT04,16(R2)

SC7:

{LRB
JSR

’%.

177777
000001

100220

;REPORT THE ADDRESS PLUG (HANGE
;CHECK FOR MORE DRIVES

MOVR
JSR
BIS
BR

000016

010000

033402

5
S{4

BIS
1%:

K 10
°'B:39:56 PAGE 45-1¢

MmT
BR

MOV

Q34160
035110

011605

874 C33762
875 033770
876 033774
877 034002

878 0340046

177777

G~APR=-8"

BIT

ASR
JMp

£317T12,R5

R1
SC4

DRVACT(R1)
PC,POPQUE

JMmoL =12

; INFORM USER OF ERROR

;DRIVE 1S IDLE
JREMOVE THE QUEUE

JMobk, WMTS /370 FORMATTER
MATRG
< &M DRIVER INIT]ALIZATION (ODE
893 034062

034066
895 034070
896 034074
897 034102
898 034106
902 034110
903 034114
904 034120
905 034122
906 034124
907
908 034130
909 034134
910 034136
911 036142
912 034146
913 034150
917 034150
918 034154

030406

A2TA

919
920
921
922
923
924
925
926
927
928

034160
034164
034166
034172
034176

034204
034206
034212
329 034220
930 034224
931 034226
932 034232
933 034240
934 034246
935 034250
936 034256
937 034260
938 034264
939
940 034270
961 034274
942 034302
943 034310
944 034316
945 034324
946 034330
947 034332
948 034334
949 034336
950
951 034340
952 034342
953 034350
954 034352
955 034356

vo6. 00

030406
030444
030340

033402

2%:

105761

030330

S(8:

036316
032564
1¢:

004737
000137

032606
033402

2%:

165761

030406

SC11:

105061
105061
136137

030406
03033C
030444

001012
004737
052762
005737

036340
000200
030416

100002

004737
116164

146137
006301
012761
006201
004737
000137

010164
016437

016437
016437
016437
004037
000401
000207
005726
000674
006301
012761
006201
010164

116164

030402

1%:

000016

035462
030444
030444

000016
030402

177777

030422

030320
030322

sc12:

030422

000010
030444

00001¢

DRVYSTA(RT)

;1S THE DRIVE UNSAFE ?

#111,-(SP)

;DRIVE

RO,WRT.RM

JBR IF

JWRITE

THE

INTO RP(Y!

JPARITY EXIT ADDRESS

;1S DRIVE

s CONTINUE

JSR
B8R

COMMAND

JREGISTER INDEX

DRVACT(R1)

1%
PC,GETREQ
PC.C17

CLEAR COMMAND

TSTB

BEQ
-SR

;CHECK FOR MORE DRIVES
ID.E?

JYES
;GET DPB POINTER
;PROCESS THE PARITY ERROR

JSR
JMP

PC,CI78B

JPROCESS THE UNCORRECTABLE PARITY FRROR

1STR
8LE
CLRB
(LRB
BITB

ULDFLG(R1)

;"UNLOAD [N PROGRESS’'"?

ULDFLG(R1)
DRVACT(R1)

JCLEAR UNLOAD FLAG
JSET DRIVE IDLE

BNE
JSR
BIS
TST
BPL
JSR
MOVB
BI(R

;DOING A SEARCH OPERATION fFOR
;AN 1/0 COMMAND?
:BR ]F YES

#BIT107,16(R2)

:SET 'DONE'' BIT

SC4
1%

;CHECK MORE DRIVES
;BR

ATARBIT(R1) ,SRCHWT
P ,POPQUE
SAVEFG

2’3
PC.,SVRH70

;REMOVE REQUEST FROM QUEUE
;SAVE

THE REGISTERS?

;BR IF NO
:YES--SAVE ALL OF THE RH/RM REG'S

ATAB]IT(R1) ,RMAS(R4)

;CLEAR ATTENTION BIT

ATARIT(R1) ,SRCHWT
;CLEAR
R
;WORD INDEX
#=1,TIMER(RT)
;STOP CLOCK
R
JRESTORE R1

IMPLIED SEEK SET

JSR

JMP

pPC,OPT
SC4

;START A REQUEST
;CHECK FOR MORE DRIVES

MOV
MOV

R1,RM(S2(R4)
RMDS
(R4) ,RMERRS

;SELECT DRIVE
;SAVE THE FOUR REGISTERS THAT

RMER1(R4) ,RMERRS+2

sWILL TELL US SOMETHING

RTS
TST

RMERZ
(R4) ,RMERRS +4
RMMRZ
(R4 ,RMERRS +6
RO,DRVINT
JINIT, THE STATE OF THE DRIVE
1%
;TAKE ERROR EXIT
PC
JRETURN
(SP)+
JPOP PC OFF OF THE STA(K

SC8

;PROCESS THE PARITY ERROR

ASL

;SETUP TO ADDRESS WORDS

ASR

R1
:
R1,RMCS2(R4)
;SELECT
ATABIT(R1) ,RMAS(R4)

MOV
MoV

JSR
BR

$C13:

cUNLOAD [N PROGRESS OR QUEUE
;BR_IF NOT
;CLEAR UNLOAD FLAG
ATABIT(R1) ,RMAS (R4)
;CLEAR ATTENTION BI1?

SC4

MOV

45-15

JMP

ASR

030324
030326

177777

SC8

ASL
MOV

031506
033402
000010
000012
000014
000042
000040
030700

ULDFLG(RY)
18
ULDFLG(RT)

8M!
MoV
JSR
RM(S1

000137

003402

1STR

MovB
TSTR

000111
035270

001405
004737
004737
000402

'B:39:56 PAGL

BGY
(LRA

00016

L 10

L-APR-B81

MOV

MOV
MovB

4#<1,TIMER(R1)

;STOP THE TIMER

THE DRIVE
JCLEAR

THE

ATTENTION BT

J~M_BU RMO5/3/2 FORMATTER

~rRM

DRIVER

INITIALIZATION

956
957
958
959

034364
034370
034372
034376
034402
034404
034410
034412
. 034414
034416
034422
034430
034434
034440
034442
034450
034452
034454
034462
C34464
034466
034472

MAIRC v04.00

030360

105061

030360
030700

004037
000240
105761

003014
005702
001426
004737
052762
004737
004737
000414
032764
001006

906301
012761
006201
000402
004737
000137

M 10

1B:39:56 PAGE

45-16

CODE

105761

001424

4-APR-81

140009

035462
036340

DRYSTA(RY)

7ST

8IS
JSR

JQUEUE ENTRY FOR THE DRIVE
:BR _IF NOT
PC,GETREQ
;GET DPB ADDRESS
#RITISIBITI4,T16(R2)
; INFORM USER THAT DRIVE OFF(L INE
PC,SVRH70
;SAVE THE REGISTERS

B8R

JSR
JSR

600000

035230

030422

031506
033402

2%:

034476
034502
034504
034512
034514
034516
034520
034524
034526
034534
034536
034542
034544
034546
034552
034554
034556
034562
034564

005737
001027
112737
104412

005001
005003
005763
002406
166663
003002
004737
005201
005723
022701
003362
104413
105037
012616
000207

030404

000001

RMTMR:

030405

1¢%:

030422
000002

034566

030422

2%:

000010

030405

3%:
4%:

NOT

;CLEAR THE INIT INDICATOR
;GO INIT THE DRIVE
;DUMMY PARITY ERROR RETURN
sDRIVE ONLINE ?
;BR IF

YES =~ START ORDER

P(C,POPQUE

;JREMOVE

THE QUEUE

MOV

#15000..,TIMER(RY)

JSR

JMP

PC,0OPT

SC4

JSR

PC,RMTMR

TST

ACTDRYV

MOVR
SAVREG
CLR

#1,ACTSTR

BNE

CLR
TS7T
BLT
SUB
BGT

+SR
INC
TST
CMP
86T
RESREG
(LRB
MoV
RTS

JSTART 15. SECOND TIMER

:RM TIMER ROUTINE
s CALL
:
MOV
#TIME ,~(SP)

#31711,RMCST(RS)
;DVA SET ?
A
;SET THEN CALL OPT

ASR

3%:

BIT
BNE
ASL

4%:

;START

THE PENDING REQUEST

;PROCESS OTHER DRIVES

JELASPED TIME

IN MILLISECONDS ON THE

sCALL RMOS TIME ROUTINE

JIF NON ZERO EXIT

;SAVE RO = RS
;START WITH DRIVE O

R3
TIMER(R3)
2%
2(SP) ,TIMER(R3)
2%
PC,.STO
R1
(R3)+
#8. R
1%

ACTSTR
(SP)+,(5P)
PC

‘CALL:
;

JSET "“'ACTSTR"

;1S THE TIMER RUNNING?
:BR

;COUNT THE INTERVAL
;BR IF NO SOFTWARE TIMEOQUT
;CALL SOFTWARE TIMEOUT ROUTINE
sMOVE TO NEXT DRIVE

;OUT OF DRIVES?
:BR IF

JRESTORE RO - RS

;ZERO ACTIVE SOFTWARE TIMEOLT ROUTINE FLAG
;JADJUST THE STACK
sRETURN

:
:

THIS ROUTINE MUST BE ENTERED AT PRIORITY 6
OR GREATER

STO

MOV

JSR
RE TURN

R
#DRVNUM,
PC,STO

STA(K

;CHECK "ACTDRV & ACTSTR'’

;SOFTWARE TIMEOUT ROUT INE

*NOTE:

1ST8

BEQ

00400C

JINITIALIZING THE DRIVE

2%
DPINT(R1)
RO.DRVINT

8GTY

0000176

DPINT(RY)

BEQ
(LRB
JSR
NOP

030340

036316

1578

sDRIVE NUMBER
s CALL

JhMUBO RMOS/3/¢ FORMATTER

kr/RM DRIVER

INITIALIZATION rODE

1016
1017 034566
1018 034570
1019 034572
1020 034574
1021 034576
1002 034602
1023 034606
1024 034612
1028 034614
1029 034616
1030 034620
1031 034622
1032 034626
1033 034630
1034 034634
1035 034636
1036 034642

1037 034646
1038 (34650

1039 034654
1040 034660
1041 034666
1045 034672
1046 034676
1047 034702
1048 034706
1049 034714
1050

010146
010246
010346
010646
013704
010164
004037
000012
035076
105726
100436
105761

001033
105761
001030
013702
020137
001404
000137
004737
052762
004737
105061

105061
0ns5037
01¢737
000470

ST0:

030370

025076
036316

177777

030442

034746
1061 034752
1062 034754
1063 C34760
1064 034762
1065 034770

001003
105761
001446
012763
000442

105761

030360

1073 035016
1074 035022
1075 0350264
1076 035026
1077 035034
1678

'$:

030370

ST03:

030370

030422

CMP
BEQ
JMP
JSR
BIS
JSR
CLRB
(LRB
CLR

1%:

N 10
18:39:56 PAGE 45-17

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

:SAVE R1

:SAVE R2

;SAVE R3
:SAVE R4

RMADR R4
R1,RMCS2(R4)

;GET ADDRESS OF 'RM(S1'*

(SP)+

;1S 'DRY''=1?
JBR IF YES

RO,RD.RM

ST02

DPINT(R1)

ST02
DPRQS(R1)
ST02

TRNSWT ,R2
R1,DTUW
1%

JSELECT THE DRIVE

;READ 'DRIVE STATUS REG'’

sTRYING TO

INTIALIZE

B8R

MovR

RMAS (R4) RS

TSTR
BNE
TSTB
BNE
BR

ATABIT(R1)
RS
ST03
DPINT(R1)
ST06
DPRQS(R1)
ST107
ST09

1518

?§INT(R1)

TSTB

DPRQS(R1)
ST09

BITR
BNE

BNE

BEQ

MOV

#-1,TIMER(R3)

ST09

;TRYING TO

INTJALIZE

JINITIALIZING 1HE DRIVE ?
;BR IF INIT PENDING
;PGRT REQUEST PENDING ?

;BR [F NOT

:STOP THE TIMER
JEXIT

THE PARITY ERROR

PC,CI8
ST09

;GO HANDLE

105061
105061

030360
030340
177777
036316

ST06:

CLRB
(LRB
MOV
JSR
TST
BEQ
BIS
BR

DPINT (R1)
DRVSTA(R1)
#-1,TIMER(R3)

;CLEAR THE INITIALIZE
JSET UNIT OFFLINE
;STOP THE TIMER
;GET THE DPB ADDRESS
JREQUEST IN QUEUE ?

PC.GETREQ
R2
ST09

THE DRIVE

;BR IF YES - DRIVE NOT ONLINE
JOUTSTANDING PORT REQUEST FOR THE DRIVE ?
;BR IF YES - NO RESPONSE TO REQUEST
;OTHER WISE EXIT

JSR
BR

000016

;READ ATTENTION REG
:IESATTENTION FOR THIS DRIVE uP ?

STOS:

140000

ST09

032664

030422

DRIVE

s TRANSFER UNDERWAY ON THIS DRIVE?

004737
000437

012763
004737
005702
001424
052762
000414

THE

;BR _[F YES
;JOUTSTANDING PORT REQUEST FOR THE DRIVE
:BR IF YES
sPICKUP TRANSFER WAIT QUEUE

;BR IF YES
;1F NOT DON'T BOTHER DRIVES
PC,GETREQ
.GET DPB ADDRESS
#BIT15!BIT09,16(R2)
;SET THE ERROR FLAGS
P(C,SVRH70
;SAVE RH/RM REGISTERS
DRVACT(R1)
;DRIVE IS IDLE
ULDFLG(RY)
;CLEAR THE UNLOAD FLAG
TRNSWT
;CLEAR DPB ADDRESS
#-1,DTUW
;CLEAR THE TRANSFER DRIVE #
ST09
;DON'T BOTHER OTHER DRIVES

MOV

ST02:

030444

177777

1S18

BNE

MOV

000016

030360

TST8
BM]
TSTR

101000

035462
030330
030406
030400

105761
001021
105761
001035
000454

1068 034776
1069
1070 035000
1071 035004
1072 035010

MOV
MOV
MOV
MOV
MoV
MoV
JSR
RMDS

BNE

030400
030442

000016

1066
1067 034772

ST01:

030360

116405

136105
001007

4-APR-B1

ST09

034716
034722
034726
034730
034734
034736
034742
034744

1051
1052
1053
1054
1055
1056
1057
1058
1059
1060

MACRO v04.00

:BR

NOT

INDICATOR

ABIT15.BIT14,16(R2)
;INFORM THE USER DRIVE NOTM AVAILARLE
H
IS
ST08
JFIN

w% 5
e W% URIER

<
FORMATTER
MACRO
INITIALIZATION CODE

o
035036
"J80 0350646
'081 035050

Q12763
105061
004737

005792
001407
012762
004737
004737
012604

1089 035102
1090 035104
;825 035106

012602
012601
000207

1088 035100

177777
(30370
036316

0304272

100004

00001¢

036222
035462

&-APR-B'

STO7:

STO8:

MOV
CLRB
JSR

787
8EQ
MOV
JSR
JSR
MOV
MOV

MOV
MOV
RTS
sROUTINE

1095

; CALL

1096

1097
1098
1099
;}8?

8 11
"B:39:56 PAGE 45-78
SEC 013

ST09:

012603

:822

#-1,TIMER(R3)
DPRQS(R1)
PC.GETREQ

;STOP THE TIMER
sCLEAR PORT REQUEST
sGET DPB ADDRESS

(S”)+,R3

JRESTORE R3

013737

1105 035126

062037

1103 035116
“104 035120

1106 035132
1107 035134

1108 035136
1109 035140

(11646
013737

013727

030454

035256

030456

035134

(035134

RD.ADR:

013766

035136

035152
035156
035142
Q35164
035170

062716
032736
001037
Q17746
Q32716

000010
010000

1117 035176

022620

1110 035146

1116 935174

1118 035200
1119 035202

013746

001002

004037
104003

1121
1122
1123
1124
1125

035214
035216
035222
035224
035226

100405
032716
001402
005726
000415

1127
1128
1129
1130
1131

035234
035236
035244
035250
035252

000316
013737
005237
112637
000000

*133 035256

000003

1126 035230

1182 035254

030456

000002

(SP)+,R2
(SP)+ R1
PC

005737

052716

005327

RD.WRD:

173266
020000

JSR

iINDEX
ERRADR

MOV

MOV
MOV

ADD

RO,RD.RM

:GO READ A REGISTER

MCPEMX,RD.RM2

;MAX.

(RO) + ,RD.ADR

;JUSING THE BASE AND THE

1%:

030442

040000

040000
030456
035252

2%:

Q(PlY+ (PO)+

.WORD

MOV

RD.WRD,2(SP)

MOV

RMADR, -~ (SP)

BNE

#RMCSZ, (SP)
#81T12,a(SP)+
RD.RM3
2RMADR ,-(SP)
#31T13,(SP)
(SP)+,(RO)+

JREG. INDEX FROM BASE
;ERROR ADDRESS-=PROCESS ERROR STARTING
;AT THIS ADDRESS
;CONTENTS OF REG. ]S ON THE STA(K

RETRYS ALLOWED

;SAVE RO FOR RETURN
;FORM THE DESIRED ADDRESS

INDEX

JREAD THE DESIRED REGISTER OF
;ADDRESS

IS FORMED HERE

;REG.

CONTENTS PUT HERE

;PUT

THE ADDRESS ON THE

JRETURN

TO THE

USER

;BR IF

;ADJUST

YES

FOR RETURN

SEXIT

JSR
EMT

RO,ES.SAV
3

;SAVE THE ADDRESS IN 'S$ESCAPE’
JREPORT "M(PE’' ERROR

2%
#1714, (SP)
28
(SP) +
RD.RM3

;NO
JUTRE' = 1 ?
:NO
;YES==CLEAN OFF THE STACK AND
;TAKE THE FATAL ERROR EXIT

TST

DTUW

BIS

#BIT14,(SP)

3%:
RD.RM2:

_WORD

DEC

(SP)
RMADR, 3%
3%
(SP)+,a(PC)+
O

(PC)+

RM DRIVE

STA(K

RD.RM4

BM]
BIT
BEQ
TST
BR

THE

;FCRM THE ADDRESS OF RM(S?
;CHECK THE °'NED' BIT
:BR IF DRIVE NON-EXISTENT
JREAD RM(S1
;DID MCPE SET?

SWAB
MOV
INC
MOvVR
.WORD

035252

(SP) ,-(SP)
RMADR ,RD.ADR

MOV

cMP

036406

;RESTORE R2
JRESTORE R1
JRETURN

TO READ A RH/RM REGISTER

ADD
BIT
BNE
MOV
BIT

000432

035202
035206

1120 035210

RD.RM1:

000000

RD.RM:

INDI(CATOR

R
ZQUEUE ENTRY FOR DRIVE ?
ST09
:BR IF NONE
#31T15:8]112,16(R2)
:INFORM USER OF PORT REQUEST ERROR
PC.EMPTYQ
;CLEAR THE QUEUE FOR THE DRIVE
P(,SVRH70
sSAVE THE KEGISTERS
(SP)+ R4
JRESTORE R4

RETURN

1102 035110

1111
1112
1113
V114
1115

v04.00

:DATA TRANSFER UNDERWAY?

;CLEAR "MCPE’’ BY SENDING A *1'' TO ""TRE"’
;POSITION BEFORE WRITING
;FORM ADDRESS OF HIGH BYTE
JWRITE

THE HIGH BYTE OF

;ADDRESS STORAGE

JEXCEEDED MAX. RETRYS

RM(S1

RM 5, 370 FURMAT TER
LMo
we RMOLRIGER INITIALIZATION

T2 035260
AR

035262

‘VQS()

T 36 035264

035266

1‘57

4138

TODE

MATRD

002324

RD.RM4: RTS

12q

JROUTINE

«041

sCALL

1142

1143

D
b

035276
035304
035306
035312
35314
035322
035324
035330
035332
035334
035336
035342
035346
035354
035356
035360
035362
035366
035372
03537¢
035400
035404
035406
035410
035414
035476
035424

00 06 0o

MWRULXWOO
N

\ocn~ughfit~uuv—4Cho NN WU —=O OB NV DN 2O VNN WNI—OD

NNNNNNNNNYOOROC
OO
VNN NI
S

sk
D

D e

b =D

i
B ed

d
D

D ed

—d ed
e

ed md —d
d e
D
el

emd od oD
B
b

D
e

b
b
b
D
—

—
b
—
d
b

o
T

J O S

—2

—

)

—2

b e

d —d

1148 035270

035430
035432

055434
035440
035442
035444
035446
035450
035452

035454
035456
035460

013737
016637
012616
012037
001015
122737
002411
004037
000000
035452
000316
042716
112637

063737
012737
000000
000000
013746
062716
032736
001025
004037
000014
035452
032726
001420
016037
004037
000000
035452
004037
104004

005726
005327
000003
002341
011000
000401
005720
000200

030454
000002

MOV
JSR

;

RE TURN

035446
035356

INDEX
ERRADR

0C0150

MOV

MoV
MOV
MOV
BNE
CMPR
BLT
JSR
RMCS1

035360
035356

035110

WRT.R3

177770
035357
030456

035360

1%:
WRT.R1:
WRT.WD:

WRT.AD:

030456
000010
010000

BIT

WRT.R3
BIY
BEQ

000010
177776

035110

SWAB
BIC
MOVB
ADD
Mov
.WORD
.WORD
MOV
ADD

BNE
JSR
RMER1

03511¢

035430
1%:

030406

WRT.RZ:

MOV
JSR
. WORD

WRT.R3
JSR
EMT
TST

DEC
.WORD

BGE

WRT.R3: MOV
BR
WRT.R4:

WRT.R5:

cn
1B:39:56 PAGE 45-19
RD.RM1
(RO) ,RO
(SP)+,(SP)
RO

TO WRITE

:
;

:
:

1144

4~APR-B1

B8GE
RD.RM3: MOV
MOV

011000
C12616
060200

LAY

v34.0C

TST

RTS

<8R ]F NO

JFATAL

ERROR EX]T

A REGISTER

DATA,~(SP)
RO.WRT.RM

;DATA TO BE LOADED ON THE

STA(CK

sCALL THE ROUTINE TO LOAC(WRITE) THE REG.
;INDEX OF THE REGISTER TO BE LOADED
;ADDRESS TO RETURN TO ON AN ERROR
;ERROR FREE RETURN

MCPEMX ,WRT.R2

sMAX RETRYS ALLOWED

(SP)+, (SP)

JADJUST

#4150 ,WRT.WD
1%
RO,RD.RM

JYES-=DON'T GET

2(SP) ,WRT.WD
%§0)+,URT.AD

(SP)
#~C7,(SP)
(SP)+ ,WRT.WD+1
RMADR ,WRT.AD
(PCY+,a(PC)+

0
0

RMADR,
- (SP)
HRMCSZ, (SP)

#BIT12,a(SP)+
WRT.R3
RO,.RD.RM

#B1TO3, (SP)+
WRT.R4

-2(R0),1%
SO.RD.RM

RO,ES.SAV
4

(SP)+
(PC)+

WRT.R1
(RQ) ,RO
WRT RS
+
(RO)
RO

JSAVE THE WORD TO WRITE
THE

STA(K

;GET INDEX OF REGISTER TO BE WRITTEN
;BR IF NOT RM(S1
;1S THE COMMAND FOR DATA TRANSFERS?
THE OLD A16 & A17,

;NO--~COMBINE A168A17, & PSEL WITH

& PSEL

;THE COMMAND BEFORE SENDING IT TO
:THE

RH/RM

;FORM THE

ADDRESS OF

THE

sLOAD THE DESIRED REG.
sWORD

TO WRITE

DISK REG.

GOES HERE

;ADDRESS IS FORMED HERE
;PUT THE ADDRESS ON THE STA(K
;FORM THE ADDRESS OF RMC(S?2
;CHECK THE °NED' BIT
;BR IF DRIVE NON-EXISTENT

;CHECK FOR PARITY ERROR ON WRITE

;BR If

"PAR 0"

;READ

THE REG.

JPICKUP THE

INDEX

JREG. INDEX
JRETURN TO THIS ADDRESS ON ERROR

;SAVE THE ADDRESS IN 'S$ESCAPE®
;REPORT

THE PARITY ON WRITE

;CLEAR OFF THE STACK
;DECREMENT THE ERROR COUNT
JRETRY COUNTER
;TRY AGAIN IF NOT

FINISHED

ERROR

;EA?; THE ‘PARITY ON WRITE'® ERROR FXxi7
JEX

;ADJUST FOR ERROR FREE EXIT

JROUTINE 1O SAVE THE RM/RM REGISTERS AS PER DPR+14

Smwgmbwl\) ‘(‘)

=b
b
Db

111264

016203
001433
005037
023727

S NN AN N W AN N WWNINND N = b = s

O V00 NP NN 2 OO NN NS AN

001406

062737
000751
004737

035576

104413

TST

BEQ
MOV
MOVB

030456
000010
000014

MOV
BEQ

035542
035542

000022

000200

000010

1%:

2%:
3%:

035110

035542

000046

000002

035542

032564

4%:

5%:
6%:

000207

JROUTINE

sCALL

CLR
(MP
BNE
BIT
BNE
CLR
BR
JSR
.WORD
5%
MOV

{MpP
BEQ

ADD
BR
JSR
RESREG
RTS

TO SET

035620
035622
035626
035634

1246 035636
1247 035640
1248 035642

035646
1250 035650

1249

'251
1252

012604
000207

SET.IE:

030456
000010

040000
000100
010000

000001

000010

1%:

:DPB POINTER T0 R?

SSAVE THE DRIVES REG'S
:SAVE RO = RS

R2
63

4
,
RMADR

"QUEUE ENTRY FOR THE DRIVE
:BR IF NONE

(SP)+, (R3)+
3%, #RME (2
6%
#2,3%
1%

PC.CI7

THE

"ERROR RETURN ADDRESS

*STORE THE REGISTER CONTENTS
*REACHED THE END ?
‘BR IF YES

*INCREMENT THE REGISTER INDEX
*CONTINUE READING THE REGISTERS

*PROCESS
*RETURN

INTERRUPT WITHOUT GETTING A ‘‘TRE"’

MoV
BIS
SWAB
MOVR
BIT

(R4) ,-(SP)
#BIT14,(SP)

*READ RMCS?
“SET THE '‘'TRE'' BIT OF

1ST
BR
MOVB

§§P)+

‘CLEAN OFF

(SP)+,1(R4)
(SP)+.R4

:CLEAR "'TRE""
*RESTORE Ré&

0
0
0

;DRIVE O
‘DRIVE 1
DRIVE 2

R1,RMCS2(R&4)
(SP)
#BIT06, (R4)

*SELECT DRIVE

1254 035652
1257 035653
035654

035655

000
000
000

000

ACNT:

BYTE
BYTE
BYTE
.BYTE

RMCS1

*ADJUST FOR DATO
YSET IE'

#BIT12.RMCS2(R4)
;IS "NED'' 12
1%
:YES--CLEAR ''TRE''

THE

STACK

*RETURN TO CALLER

;QUEUE COUNT

1253

THE UNCORRECTABLF PARITY ERROR

*RESTORE RO - RS

;SAVE R4
*PICKUP ADDRESS OF

MoV
RTS

(R2) ,RMCS2(R4}
;SELECT DRIVE
14.R2) ,R3
*GET THE ERROR TABLE POINTER
68
SEXIT IF NO ADDRESS
3¢
:COUNTER & POINTER
3§, #RMDB
*REACHED THE BUFFER REGISTER
2%
*BR IF NOT
#BITO7.RMCS2(R4)
;'OR' SET ?
2
:BR IF SET
(R3) +
*STORE RMDB AS ZEROES
4%
> CONT INUE
RO.RD.RM
:READ THE SELECTED REGISTER
0
*REGISTER INDEX

R4 ,=(SP)
RMADR , R4

MoV

MoV
MOV

BNE

2%:

#DPBNUM _RZ2

PC.SVRH?0

:DRIVE NUMBER TO R1
SSET IET

RE TURN

010446
013704
010164
011446
052716
000316
112714
032764
001002
005726
000402
112664

'8:39:56 PAGE 45-20

#DRVNUM, R1
PC.SET.IE

MOV

JSR

935600
035602
035606
035612
1241 035614

D ed —d —h =D -

OIS 1N LANI BT, N1, S LLVT ST, U1, ST ST, ST, ¥T,N1,0 1,81, ¥

D
D
=
D e e

035570
012623
023727

MOV
JSR

SVYRH70: SAVREG

106412

005702
001442
013704

000000

4-AFPR-BT

001006
032764
001002
005023
000405
004037

—

104.00

s CALL

WO PO OOOW

MACRG

‘DRIVE 3

THE WORD READ

MATRC
M. RMCS/ 3/
FORMATTER
~= RM CRIVER INITIALIZATION (ODE

£35656
035657
035660
035661

1258
259
1260
'261 035662
1264 035664
035666

(35704
035706
035710
035712
035714
035716
035720

1272
1273 035722
1274 035724

1275 035726
1276 035730
1277 035732

N AN

1278 035734
1279 035736
1280 035740
! 8
035742
1 8
1 8
1 8
1 8
035744
035764
036004
036024
IASIAY
Y LN 1]

SEQ 0134
BYTE
BYTE
BYTE
BYTE

000
000
000
000

18:39:56 PAGE 45-21

0
0
0
0

:DRIVE
;DRIVE
;DRIVE
:CRIVE

4
S
6
7

JDRIVE
sDRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE

O
1
2
3
4
5
6
7

:QUEUE INPUT POINTERS
035744
035764
036004
036024
036044

CINPT:

036064

036104
036124

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

CDRVO
QDRV1
QDuv2
QDRV3
QDRV4
QDRVS
QDRV6
QDRV?7

QUEUE QUTPUT POINTERS

1268 035702
1271

4-APR-81

035744
035764
036004
036024
036044
036064
36104
036124

QOUTPT:

035744
035764
036004
036024
036044
036064
036104
036124
036144

QSTART:
QSTCrP:

QDRVO

;DRIVE O

.WORD

QDRV4

;DRIVE

.WORD
.WORD
.WORD

.WCORD
.WORD

.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD

QDRVI1
QDRV?
QDRV3

QLDRVS

QDRV6
QDRV7
QDRVO
QDRV?

QDRV?
QDRV3
QDRV4

QDRVS
GDRV6
QDRV?
QTVERM

;DRIVE 1
;DRIVE 2
:DRIVE 3
4

:DRIVE 5

;DRIVE 6
:DRIVE 7
:DRIVE O START ADDRESS
;DRIVE 0 STOP ADDRESS & DRIVE

;STOP DRIVE 1--START DRIVE
;STOP DRIVE 2--START DRIVE

;STOP DRIVE 3--START DRIVE

;STOP
;STOP
;STOP
;STOP

DRIVE
DRJVE
DRIVE
DRIVE

4--START DRIVE
5--START DR]VE
6~-START DRIVE
7

;DRIVE REQUEST QUEUES
QDRVO:
ODRV1:

QDRVZ:
QDRV3:

036044
036064
0356104
036124

.WORD

QDRV4:

QDRV5:

QDRVE:
QDRV7:
QTERM=,

036144

.BLKW
.BLKW

10
10

.BLKW

.BLKW
.BLKW

10
10

.BiLkW
.BikW

.BLKW

10
10

JROUTINE TO CLEAR ALL OF
s CALL
M
035652

JSR

CLRQUE: SAVREG

MoV
(LR

THE REQUEST QUEUES

PC,CLRQUE

#Q(NT RZ2
(R2)+

;SAVE RO - RS

;ZERO THE QUEUE COUNTS
;DRIVES O R °

NONWN
B WNT

1265
1266
1267

035670
035672
035674
035676
035700

oY)

YUée, V‘C

START ADDRESS

B
SR

M5/ 3/

~+'KM DRI/ER

FORMATTER

INITIALIZATION FODE

MA{RO v04.00

4~APR-B1

'o98 (36154

{LR
(iR
(LR

"¢ 036156
1302 036166
303 036177
*304 036174

1305 036176

36204
36210
36212
36214

e@lelelele]
s

300
a~
N=COOW
NP
NN O

POPUND
2 2wt bt
b
s

—

JE e

NN AN N L A U

e N A

" T

AN NN w

1306 036200

000010
035722

MOV

1%:

000010
035722

2%:

36216

;CALL
:
105061

206301
016161
006201
000207

035652
035662

EMPTYQ:

035702

2O
g

STV LA

000000800000
AN ANAN
FEEeH Feaded OO~

nnY

~ O~

36260

— b s D
Hroon

NN NN

SEIFR VA
NN

—O

RERRILIRRR

OO
BANV

Bl —d =
D
D
il —d

AL LN N N AN AN NN
AN AN
AN NN
N NN

d
el
e
b
e
el
sl
o
ol
o
e
B e

MOV
MOV

MOV
DEC
BNE

122761

000010

105261

035652

001421

006301
010271
062761
026161
001003
016161
006201
005720
(00200

035652

035662
000002
035662

035662
035724

035722

035662

:
DRVQUE

:DRIVES 2
;DRIVES 4
;DRIVES 6
sMOVE THE

(R1)+,(R2)+
R3
19
#8. R3

s THE

#QSTART
., R

#Q5TART,R]

(R1)+,(K2)+
R3
2%

sADDRESS OF
QUEUE

THE QUEUE

IN'O

INPUT POINTER

JMOVE THE STARTING ADDRESS
;OF THE QUEUE INTO THE
;QUEUE OQUTPUT POINTER

JRESTORE RO =~ RS

SPECIFIED BY R?

;DRIVE NUMBER T0 R1

CLRB

QCNT(R")
;CLEAR NUMBER OF ITEMS [N QUEUE
R1
QINPT(R1),Q0UTPT(R1)
;SET OUTPUT QUEUE POINTER-INPUT POINTER
R1

ASL
MOV
ASR
RTS

TO PU”

PC.EMPTYQ

A REQUEST

IN QUEUE

MOV
MOV
JSR

ADRVNUM,R1

;DRIVE

RO,DRVQUE

;GO PUT REQUEST

(MPR
BEG
INCB

#10,QCNT(RT)

ADD

(mp

BNE

2%:

& 3
& 5
& 7
STARTING

DRVNUM,R1

JSR

ASL
MOV

U 0138

MOV

RE TURN1
RE TURNZ

36242

(R2)+
(R2)
¢
(R2)+
#8. ,R3

JEMPTY THE QUEUE

TCALL

MOy
Dt
BNE

RTS

;ROUTINE

WA
N N WA
AN
N

MOV

RESREG

36220

036222
036226
036230
1323 036236
036240

WINURLRN
= ity

'200 036160
1301 036162

18:39:56 PAGE 45-2¢

MoV
ASR

TST
RTS

A#DPB,R2

2$
ggNT(R1)

NUMBER

;ADDRESS OF PARAMETER BLOCK
JRETURN HERE
JRETURN HERE

IF
IF

IN QUEUE

QUEUE IS FULL
REQUEST IS IN QUEUE

2 1S QUEUE FULL?

:BR [F YES-TAKE RETURN1
s INCREMENT QUEUE COUNT

R2,3QINPT(R1)
sPUT THIS REQUEST N QUEUE
#2,QINPT(R1)
sUPDATE THE QUEUE POINTER
QINPT(R1) ,@STOP(R1)
.TIME TO RESET THE POINTER
1%
:BR IF NO
Q?TART(Rl),OINPT(R1)
JYES-~RESET POINTER
R

(RO) +
RO

s TAKE RETURN 2
JRETURN TG USER

TO GET THE 'DPB'" ADDRESS OF NEXT REQUEST IN QUEUE
JROJTINE_
JCALL

M
N

MGV

JSR
RETURN

ADRVNUM,R®
PC,GETREQ

;DRIVE NUMBER TO R1
.00 GET THE REQUES!
;R2="DPB'’ ADDRESS QOF THE REGQUEST
;R2-0C IF NO REQUEST IN QUEUE

IRM BS BMZS/ 370 S URMAT TEK
MA'RD 06,00
Gr/BM DRIVER INITiAI JZATION (ODE

' 355
1356 03636
1357 036320
1358 036324
1359 036326

005002
105761

'360 036330
1361 036334
1362 036336
1363

GETREQ: (LR

1STB

03565¢
035702

1347

RTS

:
:
:

1371 036340
1372 036344

1373 036346

1374 (36352

1375 036356
*376 036364
1377 036372

1378 036374

1379 036402
1380 036404

1281

105361

506301
017102
005071
062761
026161
001003
016161
006201
000207

035702
035702

MOV
JSR
RE TURN

QCNT(R1)

000002

035702

035702
035724

035722

035702

’

:
N
:

1289

1393 036416

1394 036422
*235 036424
T3 036430

IN QUEUE?

:PICKUP *DPB'* POINTER FOR THIS DR]vF

:RETURN TO USER

:DRIVE NUMBER TO R1
“CALL TO REMOVE REQUEST
*R2=ADDRESS OF DPB REMOVED

ggnr<n1>

:DECREMENT QUEUE COUNT

MOV

DQOUTPT(R1),R2

:GET

RTS

;RETURN TO USER

CLR
ADD
CMP
BNE
ggx

. CALL

036406

:NO

012037
013746
005037
000000
012637
000200

036422
001176
001176
20176

JSR
ERROR
RE TURN

ES.SAV: MOV
MOV
CLR
'$:
LWORD
MOV

RTS

THE 'DPB'’ POINTER

RQ0UTPT(R1)
:REMOVE
#2.Q0UTPT(R1)
:UPDATE
QOUTPT(R1),QSTOP(R1)
1%
;NO~-BR
g?TART(R1),QOUTPT(R1)

;sROUTINE TO SAVE THE CONTENTS
JREPORTS AN ERROR DIRECTLY.

1392 036412

;1S THERE ANY REQUEST

2$
R1
g?ourpr<n1>.a2

#DRVNUM,R1
PC ,POPQUE

POPQUE : nga

035652

1383
1384
1385
1386
138/
1388
1391

CALL

1306

1390

'$:

BEQ
ASL
:gx

6N
'8:39:56 PAGE 45-23

:ROUTINE TO 'POP'* “HE REQUEST FROM QUEUE

1364
1365

1368
1369
13720

4~-4APR-81

RO,ES.SAV
N

DPB ADDRESS FROM THE QUEUE
THE QUEUE POINTER
;TIME TO RESET THE POINTER?
TO EXIT
;YES--RESET THME POINTER

"SESCAPE'

WHEN THE

;. THE ERROR CALL
sTHE RETURN IS PAST

DRIVER

THE ERROR CALL

(RO)+,1%
$ESCAPE ,=(SP)
$ESCAPE
O

;GET THE ERROR CALL
;SAVE THE ADDRESS IN "SESCAPE’
;CLEAR THE ESCAPE RETURN

;RETURN

{SP)+ ,$ESCAPE

;THE

ERROR CALL

IS MGVED HERE

JRESTORE THE ESCAPE ADDRESS

JASCIZ
LASCIZ
LASCIZ
ASCIZ
.ASCIZ
ASCI2Z
LASCIZ
.ASCIZ
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCII

MUNIT:
$COMMA:
COLON:
SLASH:
C:

BO
DN NDNY=SONNNS
NS DD = O =NV
SN

M'8BIT:

BADENT:
MADRER:
MSFOR:

MSQVER:

MSVER:
MSLMPT:
NUMERR:
PACKSN:
ADDRIS:

MESG1:

.ASCIZ

LASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
LASCII

LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ

.ASCI
.ASC i
LASC i

MESG2:
MESG3:

MESG4:
MSGBLK:

S mdded
OO P

—d
D
b
—d
e
med o
i
b

2NN OOOOOO —
=

)
e
ek
b
b
d
e

A NVNVINVOW=—

b
md
end
e

D OON
=

b
)
ek
ad

ENTADR:
MOFFLN:
MDRNP:
MER11:
MUSDR:
MLODEV:
MSELD:
MFORMT:
MVERFY:
M16BIT:

LASCII

.ASCi!
LASCIZ

A
A
ad

BLNKS3:
BLNKS?:
BLNKST:

.AS

MUT. TY:

MEJ\J)

I
I
I
1
)|
1
I
1
l
i
1

I
]
SCI

/ QFFLINE/

/ ONLINE/

@ NOT AN RMOS5/3/7a
/ NOT

PRESENT/

/ UNSAFE/
/ LOAD DEVICE/
/RMQ2/
/R103/
/RMOS/
<CRLF>/UNIT STATUS:/
<CRLF>/DRIVE/

SNNNNNNANNNNN

=00 Qb
md bt —a s
nN =N [0 B e e BN Y Y
nNONOO ONO NN

UNTOFF:
UNTON:
NOTRM:
NOTPRS:
:
NOTSAF
EV:
LOD
$RMO2:
$RM03:
$RMOS:
UNSTAT:

3
B
a3

P32

26051
"‘n:\"ék

TELETYPE MESSAGES

101

H N
18:39:56 PAGE 4t

LSBTTL

BLNKS4:

037021
037033
037062
037106
037141
037174
037215
037270
037315
037337
037376
037427
037442
037473
037506
037533
037572
037643
037704
037740
040007
040066
040145
040224
040303
040362
060641

000
040

— et — O QOO 2= Qb
T 2A0uh =M ronurO~N NNOMNO
- ONININY 2O WWWWO
N ANNONOONO RO WN NNV

NP,
WU —=ONA NN

b bt
s
2

= OOV

PNIND) -

036432
036443
036453
036474
036511
036521
036536
036543
036550
036555
036573
03660¢
036604
036607
036613
036615
036617
36620
036621
036622
036624
036654
036675
036722
036751
036771

«=AFR-B81

e PN NI NI NI NN

MESSAGES

L4630

YWD

“t.ETYPE

RMOS/ 372 FORMATITER

NN N et et ot e b

CRLF>/ENTER ADDRESS LIMITS:/<CRLF>
?DRIVE OFFLINE/<CRLF>
?DRIVE NOT PRESENT/<CRLF>
?DRIVE NOT AVAILABLE/<CRLF>
?DRIVE UNSAFE/<CRLF>
?DRIVE [S LOAD DEVICE/<CRLF>
SELECTED/
/FORMAT & HEADER VERIFY/
/VERIFY HEADERS ONLY/
/. OPERATE IN 16. BIT MODE/<CRLF>
/. OPERATE IN 18. BIT MODE/<CRLF>
/ ?INVALID
/MAX TRACK

ENTRY/<CRLF>
ADRS MUST BE EQUAL

TO OR GREATER/<(RLF>

/THAN MIN TRACK ADRS/<CRLF>

<CRLF>/STARTING FORMAT/<(CRLF>
<CRLF>/STARTING QUICK HEADER YERIFY/<CRLF>
<CRLF>/STARTING HEADER VERIFY/<{RLF>
<CRLF>/COMPLETED/

/, TOTAL ERRORS DETECTED /
DPACK S/N: @
/PRESENT ADDRESS ]S: /
<CRLF>/ENTER

SERJAL

NUMBER

(OCTAL):

<CRLF>/?INCORRECT 'MFG' BAD SECTOR INFORMATION/
<CRLF>/70VER 126. BAD SECTORS DETECTED/
<CRLF>/?DISK

AN ALIGNMENT

PACK/

<CRLF>/SELECT ONE OF THE FOLLOWING FUNCT]ONS/<CRLF>
/UPDATE "USR® BAD SECTORS....vveeeveconcacans .0/<CRLF.

/PRINT
/PRINT

"MFG' BAD SECTORS...uvvernesenncencnns 1/7<(RLF>
"USR' BAD SECTORS.....covvsvenncncnnes 2/<CRLF>

/INITIALIZE

"USR® BAD SECTOR FIlc..rvvnovuouns 3/<(RLF
>

/PRINT A SECTOR GF THE LAST TRACK...veveuonens L/<CRLF
>
/PRINT THIS MESSAGE....... Ceesensescencnsnennn 5/<CRLF»
JCONTINUE . . ovvennnnnnns theececerercnnaasnsaC(RI/CCRLF>
<CRLF>/ZENTER UTILITY FUNCTION (HMELP=S): /

<CRLF>/ENTER 16 BIT

'MFG' BAD SECTOR ALRS (DETIMAL,/

JMOBL WM,
8

L TYPE

e (RMAT
T

MESSAGE
L

58 04064¢

56 046C720

60 040776
1 041054
62 0461140

290

200

200
200

Lo 0414650
£7 061502
£8 041513
o7 041563
70 041563
1 041630
72 041665
73 041732

.5 061374

?6 041771
75 062033

76 042100
77 (42143
78 042206

79 062226
042255
042314
042362
062423

108

‘'t

05
103
°C3

‘16
17

*09

63 0461224
44 061310

80
81
8¢
gz

VA WL,

MESGB:
MESGY:
MESG10:

_ASCIZ
.ASCIZ

<CRLF>/ENTER 18 BIT ‘USR' BAD SECTOR ADRS (DE(IMA;
)/
<CRLF>/CONTENTS OF 16 BIT °*MF(G* BAD SECTOR FILE (DECIMAL
)/

122

MESG13:

_ASCIZ
.ASCIZ

<CRLF>/CONTENTS OF
<CRLF>/CONTENTS OF

'05
104
105

116
117
116

200
200
200

077
077
077

125
06
106

104
200

117
A3

MESGZ:

MESGI1:
MESG12:
MSGI3A:
MESGI4:
MESGIS:
MESG16:
MESG17:
MESGIB:
MESGI9.
MMODE:

117

040

20
290
052

111
11
040

116 , INITUS:
116 " INITMF:
16 NOENTR:

200
200
103
200

e77
077
110
052

055

117

<CRLF>/ENTER 18 BIT

200
200
200

104

In
"B:39:56 PAGE 4¢-T

LAS(IZ

“17
117

120

w=4PR-gT

MESGE:

116

103
103

200

w...

04C
116.

120

116
116
101
052

ASCIZ

.ASCIZ
_ASCIZ

_ASCIZ
_ASCIZ
_ASCIZ

BAD SECTOR ADRS

(DE(IMA{)/

(DE(iMAL)/

BIT 'MFG' BAD SECTOR FILE

16 BIT
18 BIT

<CRLF>/PRINT A 'SECTOR® OF

"USR®' BAD SECTOR FILE
‘USR' BAD SECTOR FILE

(DE(IMAL)/

(DE(IMAL>/
(DECIMAL
./

THE LAST TRACK (OCTAL)/

.ASCIZ

.ASCIZ
_ASCIZ
.ASCIZ

<CRLF>/INITIALIZE ‘'USR' BAD SECTOR FILES/
<CRLF>/INITIALIZE 'MFG' BAD SECTOR fFILES/
/* NO ENTRIES +/<(CRLF>

_ASCIZ
._AS(IZ
.ASCIZ

ASCIZ
_ASCIZ

ABORT:

.ASCIZ

.EVEN

<CRLF>/CONTENTS OF

'USR'

<(CRLF>/ENTER SECTOR (DECIMAL): /
<(RLF>/DONE ./<CRLF>
<CRLF>/ENTER 'MFG®' BAD SECTOR ADRS (DECIMAL)/<(KLF>
sNOT USED
<CRLF>/?UNABLE TO WRITE °'BSF' SUCCESSFUL Y/
<(RLF>/?FATAL DRIVE ERROR DETECTED/
<CRLF>/?FAILURE DURING HEADER VERIFICATION/
/DO YOU WANT TO FORMAT (L) Y ? /

MSIZE:
MSINIT:

NOUPDT:
NOINIT:
MSPRM:
SEA?S:

*MFG* BAD SECTOR ADRS

<(CRLF>/ENTER 16 BIT

_ASCIZ
_ASCIZ
.ASCIZ
ASCIZ

/DO YOU WANT 16. BJT MODE (L) Y ? /
<CRLF>/INITIALIZE BAD SECTOR FILE (L)

/-0OPERATION ABORTED-/<CRLF><07><Q7>

N ?

<CRLF>/?NO UPDATES IN 'VERIFY' MODE/<(RLF>
<CRLF>/?NO INITIALIZATION [N 'VERIFY' MODE/<(RLF
/CHANGE DRIVE PARAMETERS (L) N ? /
<CRLF>/xwewzvassnnnran/<(RLF>

JaM B

M 5,4,

Phe
ke ME

LAGES

L-APR-81

EONMAT
TE

"8:37:5¢

J 1

PAGE

>Ea 0139

)
Y
ey
Y
R
R
L
e
N
Y
ey
e
e
ey ey
e
e

S DB NOADR SO =ONNN

/RH CONTROLLER INTERRUPT OCCURRED (RMA. )/
LASCIZ
/UNEXPECTED ATTENTION OCCURRED/
.ASCI 4
/MASSBUS PARITY ERROR (MCPE=1)/
.ASC 4
/MASSBUS PARITY ERRCR (PAR=1)/
.ASC Z
/ADDRESS PLUG CHANGE BIT SET/
.ASC 4
/RH CONTROLLER DIDN'T RESPOND TO ADDRESSING/
LAS( 2
@TRACK/SECTOR FIELD IN HEADER IS NOT (NRRE(Ta
LASC 4
/DRIVE OFFLINE/
.ASC b4
/PERSISTENT DRIVE UNSAFE ERROR/
.AS( z
/UNCORRE(TABLE MASSBUS PARITY ERROR/
LAS( 4
/SOF TWARE TIMEOUT/
Z
.ASC
/DRIVE UNSAFE ERROR/
LAS( Z
@CONTROLLER/DRIVE ERROR DURING WRITEQ
LASC 4
@CONTROLLER/DRIVE ERROR DURING WRITE CHECK®
.ASC l
.ASC 4
QRETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTABLEw
.ASC 4
@DATA ERROR DURING WRITE CHECKa
@CONTROLLER/DRIVE ERROR VERIFYING HEADERSQ
.ASC z
@'HCE' OR 'HCRC' ERROR VERIFYING HEADERSa®
.AS( z
QCYLINDER FIELD IN HEADER IS NOT (ORRE(Ta
LASC 4
QWRITE CHECK ERROR®
LASC b4
LASC z /1ILLEGAL BAD SECTOR, PACK NOT ACCEPTABLE/
[

= =O PWWWNO

D (D) el

e (O

DHONNO
S

D d e

e ed
d end ek b

=D DO LB NIN) =

ek
et e
e v
d e
b
b
e
e
D
d ed
b
b
d

e
ed
e

SBROND = OO =) -2 2 ONN SO OO 2 —
B POL2ON=ANANNNINONNINIO
S = OO

e ad e e wod amd —h
b e e el e e
ed ()

43522

21 043572
22 043642
23 043664

FRRRRR

i e e

042614

2RO OONOOONINNIONNIO
~2 —ruR)
=3 NN NN S NINWN S WWN O B ISP = AR

062446
042520
042556

N)—

daded mded Dot bl

QOO0 NPNE NN = OPVONO NS WL

ERROR MESSAGES

RMOE L RORMATTER

MAIRD L06.00

ATA b A ER
’

3 543734

122

€ 044054
6 044125

«-APR-87

K 1
18:39:56 PAGE 48

.SBTTL

DATA HEADERS

115

101

DH1:

.ASCIZ

/RMAS

106
104

122
122

111
111

DH3:
DHé4:

.ASCIZ
.ASCIZ

/DRIVE
/DRIVE

104

122

104

122

13 0445790
4 064665

122
122

115
115

17 045054

040

& 0446002

7 044210

8 044223

104

122

9 044310
10 044374

122
122

12 044521

104

044452

15 044761
1€ 045015

18 045142
;8 045227

122
104

104
104

122

111

110

040

%15
115

105
104

122
115
122

040

122
122

111
111

DHZ:

DHé6:

LASCIZ

.ASCIZ

DH10:

.ASCIZ

DH17:

.ASCIZ

DH10A:
DH10B:

_ASCIZ
.ASCIZ

/DRIVE

ERR PC

DH20C:
DHZ23:

.ASCIZ
JASCIZ

/RMSN
/DRIVE

DEZ?:

.ASCIZ
.ASCiZ

/DRIVE
/DRIVE

040

11
M

DH24:

.EVEN

JASCIT

REG ADR
REG ADR
ERR PC

/RMEC1
/RDB

123
111

.ASCIZ
.ASCIZ

RMDS

/DRIVE

DH20:

DH20A:
DH20B:

RM(S1

/RH ADDRESS/

111

103
127

.ASCIZ

/DRIVE

/DRIVE
/RMCS1
/RMWC

RMEC2
RMMR1

SEC 0140

RMER1

RMER.
RMER?

RMDS

RMAS

RMD(

RM(S1/

DATA RM(CS1
RMER1
RMERZ2/
GOOD
BAD
RM(S1 RMER1

RM(CS1

RMW(
RMDT

RM(SZ2

RMRA
RMSN

CYLINDER TRACK

ERR PC CYLINDER TRACK
RMCS2
RMBA

RMDS
RMDA

ERR PC
CY_NDR

(YLNDR
TRACK

RMOF
CYLINDER
ERR PC
EXPCTD

RMERT
RMAS

TRACK/
RECVED/

TRACK
SECTOR

RMDS

RMERZ2/

RMMR2
RMDR

RME(C1
RMMRT

SECTOR/

SECTOR
/

RMER?/

RMER1

RMDA
RMAS
RMOF
CYLINDER
RMER2
RMLA

RMDA/

MEMORY

DATA

RMLA/
TRACK/
RME(2/
RMLT/

DISK/<(R><LF>

DATA/

JAME

TATA

WM S

TARCH

T TR

MA. RS

;

04,00

4-4PR-81

.SBTTL

DATA TABLES

3 Q45270

007370

005560

005574

DT1:

.WORD

5 045322
& 0645336

001366
001366

035134
135360

035136
035356

DI3:
DT&:

.WORD
.WORD

8 045356

001222

001132

046232

DT17:

.WORD

10 045404

005624

005626

001222

001132

& 045306
7 045354

9 065366

11 045422

12 0645440

001366

001274

001222

005602

13 045452

001222

15 045504

005562

14 065464

'6 0645526

17 045534

005560

(05604

005606

001132

005562

001362

005610

005612

001362

001132

001362

005564

005572

001132

005560

005570

005572

005612

001362

005562

005610

001222

005564

005552

DT¢:
DT6:

DT10:

DT17:
DT20:

005566

001222

20 C45602

¢7 065632

001132

005570

001222

21 045627

030322

005560

18 045544

19 045562

030320

046230

.WORD
.WORD

.WORD

. WORD
.WORD
.WORD

DT23:

DT24:

ATTN_RM_REG,RM.REG*+14 RM.REG*42,RM.REG*12,RM
REG*34 ,RM_REG6

DDRIVE.RHERRS.RMERRS'?,RMERRS'A,AYTN,RHCS1

DDR]VE ,RD.ADR,RD.WRD
,RM.REG ,RM.REG*14 ,RM.REG*42
DDRIVE ,WRT.AD,WRT.WD
,RD.WRD ,RM.REG,RM.REG*14 ,AM REG+42
$RMADR

DRIVE,SERRP(C,RBUF
+6,RBUF +2

DRIVE,SERRP(C ,RM.REG,RM.REG+10,RM.REG+12,RM
_REG+14 ,RM REG*42

RM.REG*+44,RM.REG+46,RM.REG+2,RM.REG+4 RM_REG+6,RM.REG*16 ,RM.REG+20

RM.REG*ZZ.RM.REG*Zé.RM.REG*?é.RM.REG*so,Rfl.REG'32.DS.CYL,DS.!RK
DRIVE,SERRPC,DS.CYL,DS.TRK,BADSEC

DRIVE,$ERRP(,DS.CYL,DS.TRK,BADSEC

RM_REG,RM.REG+10,RM.REG*+12,RM.REG+14
,RM_REG+42 ,RM_REG+40,RM.REG*44 ,RM. REG*46

.WwORD

RM.REG+30,RM.REG+$2,DS.CYL.DS.
TRK

.WORD

RM.REG+2,RM.REG+4 ,RM.REG+6,RM.REG+16,RM.REG+20
,RM.REG+22 ,RM_ REG*+24 ,RM_ REG+26

DRIVE,SERRP(
,RBUF +4 ,RBUF

DRIVE,SERRP(C,DS.CYL
,DS.TRK ,BADSEC,$GDDAT RM.REG+22

.WORD

RM.REG,RM.REG+10,RM.REG+12
,RM.REG+14 ,RM_REG+42 ,RM_REG+40 RM_REG+44 ,RM_REG+46

.WORD

RM.REG+30,RM.REG+32,DS.CYL,DS.
TRK

.WORD

DT25:

SEQ 0141

.WORD

005566

0061364

L 1N

"B:39:56 PAGE 49

.WORD

RM,REG+2,RM.KEG+4 ,RM.REG+6,RM.REG+16,RM.REG+20
,RM.REG+22 ,RM.REG+24 ,RM_9EG+ 26

DRIVE,FMTDPB+12,DS.TRK
,BADSEC

SRV R O RMOS
TAaTh
»

HMAT

FORMATTER

v04.00

4&-APR-B1

MmN

18:39:56 PAGE

TAR_ES

2 0645642

000001

S
¢
7
B

000001
006

& 045644

D45646
045650
045652
045654

007

000

001

000

045662

GO0001

13 045666
74 065670
15 045672

000003
007
044310

045674
065676
045700
045702

20 45704
21 045706
22 045710
23 045712
24 045714
25 065716
26 045720
27 045722
28 045724
29 045726
30 045730
31 045732
32 045734
33 045736
34 045740
35 045742
36 0465744
37 045746
38 045750
39 045752

40 045754

000

000001

12 045664

000

000601
006

9 045656

*0 045660

16
17
18
19

MACRO

007
044374
007
000001

005
000004
005
044570
010
044665
010
044761
004
000001
005
000004
007
044570
010
044665
010
044761
004
00001
004

€00

.SBTTL

DATA FORMAT

DF1:

.WORD

DF2:

.WORD
BYIE
.WORD
.BYTE

1
6,0
1
€,0

BYTE

7,0

DF3:
DF4:

034
034

DF10:

LWORD
BYTE
.WORD

3
7.,0
DH10A

BYTE
.WORD
BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
BYTE
.WORD
BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTe
.WORD
BYTE
.WORD

5,34
4
5,34
DHZ20A
8.,0
DHZ0B
8.,0
DRZ20C
4,14
1
5,0
4
7,34
DHZ20A
8.,0
DHZ20B
8.,0
DH20C
4,14
1

DF1/:

DF20:

000

000
034

DF23:
DF 24:

000
000
014
000

.WORD

000

014

LWORD

7,0

DF6:

000
140

BYTE

TABLES

DF25:

BYTE

BYTE
.WORD
BYTE
.WORD

BYTE

1,0

7,0
DH10B
7,140
1

4.0

MACRO v04.00
&-APR-81
b7 BUS ADDRESS AND VECTOR ADDRESS FOR RH./RM

FORMATTER

N 1

1B:39:56 PAG £ 51

SEQ 0143

.SBTTL BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FCR RH/RN(
;THIS ROUTINE

00NN

INSURE

THE BUS ADDRESS

sNOTE: THIS ROUTINE DESTROYS RO=-R4
s CALL

046000
046004

046006
046010
046014
046016
046020
046024
046026
046032
046036
046040
046042
046046
046050
046052
046056
046060
046064
046070
046072
046074
046076
046105

104401

012700
104401

011046
104402
104401
104411

012601

004537
000763

012700
104401

011046
104402
104401
104411

01260
004537
000763
012700
012701
012021
012021
000207

122
122

001374
001374
001295
001274
046076

BUSADR:

T1ST
BEQ
CLR

CHGADR
3%

MOV

A$RMADR ,RO
LMRM(CS1
(RO) ,~(SP)

1¢:

2%:

036621
046114
001274
030456

PC ,BUSADR

RE TURN

046114

001276
046105

JSR

036621

045774

005737
001436
005037

045762
045764
045770

(S AV,]

045756

—

NRP NN
SOV

;REQUIRED.

NN.A..A_.-_.—J_A—J—‘.;_.

135 USED

;OF THE RH/RM |S SETUP FOR THE PROPER ADDRESS.
21T WILL ALSO READ THE ADDRESS FROM THE TTY IFf

3%:

MRMCS1:
MRMVEC:

TYPE

TYPE
MoV
TYPOC
TYPE
RDL IN
MOV

JSR
BR

MOV

TYPE
MOV
TYPOC
TYPE
RDLIN
MOV
JSR
BR

[0}

;LgPUT FROM TTY REQUESTED?

:EASA?LE (HANGE OF RH/RM ADDRESS

CHGADR

. SCRLF

;FIRST ADDRESS
' RMCS1="

JPRESENT RMCS1 ADDRESS
:TYPE

,BLNKS?Z

JTYPE 2 SPACES

(SP)+,R1
R5,CK.NUM
1%
#SRMVE
RO
C

JADDRESS OF

(
JMRMVE

(RO),~(SP)

,BLNKS?
(SP)+,R1
RS, CK.NUM

#SRMADR
RO
#RMADR ,R1

pPC

.ASCIZ

QRM(CS1-3

(RO)+, (R1)+
(RO)+,(RT)+

QRMVEC

;GET THE ENTRY

ASCII

TEXT

;ENTER AND STORE NEW ADDRESS

JERROR RET
;CHECK VERC
J'RMVEC-"'

;PRESENT RH/RM VYECTOR ADDRESS ON
JTYPE IT

;TYPE 2 SPACES

MOV
MOV
MOV
RTS

ASCIZ

JCR=L

THE

;READ THE ENTRY
JASCI] TEXT ADDRESS
JENTER AND STORE NEW ADDRESS
:ERROR RET
:FIRST ADDRESS OF NEW PARAMETERS
;FIRST ADDRLSS OF WHERE TO PUT THEM
;BUS ADDRESS
:VECTOR ADDRESS
JRECTURN

STA(CK

(I
B

RMOS.
3 o BORMATTER

KoM = HEZTK NUMBER

c. TA,

JSBRTTL

JOPWNE N
L)

Lie...

~=APR-B'

B 17

1B:39:56 PAGE 52

(K NUM - (HECK NUMBER

JTHIS ROUTINE

(HECKS AN ASCIZ

(OCTAL)

STRING FOR LEGA!

.’A’:D FORMS AN OCTAL NUMBER IN R?2

JCALL:

:
:

ATNID

O N Nl

2~
s
&

OO0

N) ~d

ML
M

066714
046116
046120
046122
046126

#ADR_R1

JSR

RS,
Ck .NUM

RO=ADDRESS TO STORE
RET1
RET2

(K. NUM: MOV
MOV

mMOv
MOY

000006

046130
046132
066134
0466140
046142
046146
046150

0C0060
000067

046154
046156
046160
046162
046164
046170
046172
066174
046176
046200
046202
046204
046206
046210

CLR

MOVB

A ¥

5%:

0002905

sFINAL OCTAL VALUE

;SAVE R3

R4 ,-(SP)
#6,R3

. SAVE R4
;MAX OCTAL DIGITS IN THE NUMRER

(R1)+,R4

:GET

CURRENT POINTED BYTE

JSHIFT LEFT
:

8177770 .R4

;(HOP OFF HIGHER BITS

ASL
B(S

Re
5%

ADD

R4 ,R2

DEC

046212
046214

;SAVE R2

R2
5%

BIC

3%:

R2,-(SP)
R3,-(5P)

ASL
BCS

B8(S

2%:

ERROK RE TURN
NORMA[ RET

3%
R4 4'0
5%
R4, #'7

ASL

177770

;ADDRESS Of ASCIZ STRING

THE NUMBER

BEQ
(MPR
BLO
CMPR

B8H!

0466152

046 16
046220
046022

MoV

(HARA(TERS

BEQ
BR
MOVB

8NE

23
1%
(R1)+ R4

JBR IF TERMINATOR DETECTED
JSMALLER THAN ASCII=0 ?
JYES,ERROR EXI7
JLARGER THAN ASCII-7 ?

:YES,ERROR EXIT
s ONE

;OCTAL DIGIT
ERROR IF CARRY BIT SET
JAPPENDING CURRENT DIGIT

;DECREMENT BYTE COUNT
;BR [F LAST DIGIT
;LOOPING BACK
;CHFCK TERMINATOR

sBR IF NOT FCUND

TST
BEQ
MOV

RS
4
R2, (RO)

MOV

(SP)+ R4
(SP2+,R3%

;RESTORE 4
;RESTORE R3

R¥S

SEX]T

TST

MOV

(R5)+

{SP)+ R?

JFINAL VALUE - 0 ?
JYES
JREPLACE THE ORIGINAL
sADJUST

FOR NORMAL

JRESTORE RZ2

RET

VALUE

JRMO H

KMUS, R b CRMATTER

READWRITE

BSFERS

ML HT

yinw.J0

L=APR-8"

€12

*2-35-56 PAGE

.SBTTL

:BUFFER STARTS HERE

204622‘-

000000

7 0462%

8
G 106463
|R¥)

0060200

000000

O0CGOCO0

SEG

READ/WR]TE BUFFERS

RBUF:

.WwORD

0,0,0.0

:BUFFER FOR HEADER (HE(CK

BUFP:

.BLKW

<258.+32.>

;FORMAT AND CHECK BUFFER STARTS HERE AND

BUFV:

.BLKW

<258.+32.>

.END

200

sWILL OVERLAY ALL REMAINING (ODE
;BUFFER FOR VERIFY ONLY MODE

[N PROGRAM

YMBOUL

TABLE

ABASE = 176700
ABORT
042226

s (RMAT TR

MAIRC

BUFP
8UFY

ATEST~= 000000

BYTE18

ATA
= 100000
ATARIT
030444

ACPUOP=
ACTDRY
ACTSTR
ADDRIS
ADDWO =
ADDW1 =
ADDW10=
ADDW11=
ADDW1g=

Q00C00
030404
030405
037506
000000
000000
000000
000000
000000

ATIN
ATO
AT1
AT2
AT3
AT4
ATS
AT6
AT7

=
=

001370
000001
000002
000004
C00010
000020
000040
000100
000200

ADDW14=
ADDW15=
ADDWZ2 =
ADDW3 =
ADDWS =
ADDWS =
ADDWE =
ADDW7 =
ACDW8 =
ADDWS =

000000
000000
000000
000000
C00000
000009
000000
000000
000000
000000

AJSWR =
AVECT1=
AVF(T2=
A16
=
A17
=
BADENT
BADSEC
BADTMO
BAl
BITO
=

000000
000254
000000
000400
001000
037174
001344
(006730
000010
000001

= 000123

ADDW13= 000000

ADEVCT= 000000

ADEVM = 000000
ADRTBL
006064

AENV

- 000000

AENVM = 000000

AFATAL= 000000

BITO00 = 000001

81701 = 000002
BIT02 = 000004

BITO3 = 000010

BIT04 = 000020
81105 = 000040

BIT06
BIT07
BIT08
BIT09
BIT1
BIT10
BIT11
81712

AMSGLG= 000000
AMSGTY= (000000

AMTYP1= 000000

aMTYPZ2= 000000

amryp3= 000000
AMTYP4= Q00000

AOE
=
APASS =
APRIOR=
APT(CSU=
APTENV=
APT< 2=
APTSPO=
ASKQ
ASK i
ASK?
Asr 3

001000
000000
Q00000
000040
000001
000200
000100
010714
011000
011124
Cr74464

=
=
=
=

AUNIT = 000000

AMADR1= 000000
AMADR?2= 000000
AMADR3= 000000
AMADRS= 000000
AMAMS
1= 000000
AMAMS
2= 000000
AMAMS
3= 000000
AMAMS4= 000000

AMSGAD= 000000

= 000100
- 000200
= 000400
= 001000
= 000002
- 002000
- 004000
= 010000

D
"B:35 S PAGE S3-T

L-APR=BY

asx3A
011514
ASWREG= 0000G0O

ACOW1 = 000000
A DwZ = 000000

Jlw..u

JM HL WS/ 8

SEW 0146

BUSADR
BYTE16

046234
106434
(45756
006264

DH23
DH24
DH2S
DH3

045015
045054
065227
044054

EMY1
Em12

Em3
£EM14

043052
043110
043153
043174

C
CALIN
CHGADR
(n
(13
Clé
€IS
(16
1z

036613
012706
(01374
031734
032042
032150
032526
032550
032564

DH6
DISPLA
DISPRE
DLT
=
DMD
=
DONE
DPINT
DPR
=
pPRQS

044210
001156
000174
100000
000001
016366
030360
000400
030370

EM16
Em17
Em2
EM20
EM21
EM22
EM23
EM24
EM25

043263
063335
042520
043413
043451
043522
043572
063642
043664

(18
CKSWR =
CKTRK
(K.CHR
(K.DEC
(k.DIG
CK.NUM
(K.OCT
CLOCK
(LR
=

032664
104407
014344
023120
023072
023172
046114
0230644
017616
000040

006364

{178

CLRQUE
CNTLC
COLON

(PSAVE
(R

CRLF

032606

036144

001372
036604

DH4

DRIVE = 001222
DRQ
DRVACT
DRVCLR=
DRVINT
DRVQUE
DRVSTA
DRVTYP
DRY
=
DSWR
=
DS.CyL

DS.TRK

DTO0

= 000001

D102
DT03
DT04
DTOS
D106
DTO7
D108
DT

=
=
=
=
-

- 000200

DTO1T

030442

= 000002

DF17

017630
100000
177570
001366
001400
045642
045666
045702

BIT14 = 040000
BIT15 = 100000

DF20
DF23

045706
045726

D117
pre

BIT3

DF 25

045752

D123

DF6
DH1
DH10
DH10A
DH10B
DH17
DH2
DH20
DH20A
DH20B
DH20C

045662
043734
044223
044310
044374
044452
044002
044521
044570
044665
044761

D13
DT4
DT6
DT?
DVA
=
ECH
=
ECI
=
EMPTYQ
EMTVEC~
EM
£EM10

BiT13 = 020000
BIT2

= 000004

BIT4
BITS

= 000020
= 000040

BIT6
=
BIT7
BiT8
=
BIT9
=
BLNKST
BLNKS2
BLNKS3
BLNKSSL
BPTVE(=
B8SE
=
BSFAvL

000010

000100
000200
000400
001000
036622
036621
036620
036617
000014
100000
001404

DF2

DF 24
DF3
DF4

045646
045732

045652
045656

001364

= 010000
= 000200

DTUW

C.ENTR
DCK
DDISP =
DDRIVE
DEVMP
DF 1
DF10

004000
030330
000111
030700
036242
030340
030350
000200
177570
001362

DTE
DTSY

023754

= 000015

044125

D110
D120

D124
D125

000004
000010
000020
000040
000100
006200
000400
045270

0453266

045440
045306

0465452
045534

045544
045632

045322
045336
045354
045356
004000
000100
004000
036222
000030
042446
043034

gEM15

063217

EM3

EMS
EMS
EM6
EM7
ENTADR
ERINDX
ERR
=
ERROR =
ERRVE(=
ES.SAV

062556

0462614
04651
042705
0462760
036624
016550
040000
104000
000004
036406

FER

= 000020

FMT

= 010000

FILLZ
FILLO

FMTDPB

026770
027076

005540

FMTWRT

FMT16 =
FUNCTT1
FUNCT2
FUNCT3
FUNCT4
FUNCTS
FUNCT6
FUNCT7

FUNCT8

005630

010000
021272
021414
021624
021676
021774
(22112
022230

022350

F1
Fo

- 000002
- 000004

Fé

- 000020

- 000010

FS
=
GETREG=
GETREQ
GO
=
GTSWR =
HCE
=
HCI
=
HCRC
=
HDRBIT
HDRSET
HEDERR
T
=
[AE
=

000040
000141

036316
00000*
104406
000200
002000
000400
001410
0150190
001354
000011
0020600

w (3

PFE(H)
PFEL{HS

001336
001340
024234
024244
02432¢

REJCTS

REJCT6

016476
016510
016522

033326
017072
000004
000100
000200
000400
001000
034160
034270
034340
002000
033376

033402
033474

AN =

VIsNO

OO
W

TREUSNS

2898
=SB SRS I8

QOO0

STARTY
STCLKY
STCLKZ2

007020
017436
017506

STACK = 001100
STARS
062423
START
007012

017512

STCLK3

STKLMT= 177774
STO

ST01
<102
ST03
ST0S
ST06
STo7
ST108
STQ9
ST.CLK
ST}
ST2
ST3

SVRH70

SWR
SWREG
SW0

SWO0
SWO1
SwQ?2

SW03

SWO4
SWOS5
Sw06
Sw0?

|
T I
T
A
T I
O
T
T
I
T

035256
035262

035266
RD.WRD
035136
READ IN- 000121
RECAL - 000107
RECORD
020146
REJCTI
016430
REJCTZ2
016442
REJCT3
016464
REJCTS

SAVREG- 104412
SAVW(
001346

040000
036607
001322

SORT?
SRCHWT

104411

000200
035134
035110
035132

020410
016714
000143
017120
010100
035600

001316
013474
020250
030402

RD.RM?2
RD.RM3
RD
. RM4

104410

000171
000173

SEC30

=
SEER
SEEKFG
SELDRV=
SERNL
SE 1BSF
SETDPB
SETFMT=
SETHDR
SETVEC
SEI.]E
Sk ]
=
SLASH
SNGSE(
SOF Sw
SORT1

QTERM
RBUF
RD(HR
RDDAT
RDHD
RDLIN
RDY
RD.ACR
RD.RM
RD.RM1

fihnnn
1

QOUTPT
QSTART
QSTOP

042314

042206

n
|
| I
¥ B
T

005536

036474
036453
036511
042255
037442
000001
000115
020000
031506
000200
017642
PACKSN
037473
PAR
- 000010
PARENT
020032
FAR?
005754
PAR?
005764
PAR3
005774
PARG
006004
PARS
006014
PAR6
006032
PAT
000020
PATA
PAIR
PFECH

030000

004000

000016
000004
000000
RM(CS?2
000010
RMDA
000006
RMDB
000022
RMDC
000034
RMD5
000012
RMDT
000026
RMEC]
000044
RME (2
000046
030320
000014
000042
000036
030466
000020
000024
000040
000032
000004
000030
034476
030460
= 000002
005560
031214
000117
R6
2000006
R7
2000007
SAVEFG
030416

SEAR(CH=

L B

100000

SECCUY

SC7

S(8

E I

177776

002000
177776
000024
035652
035744
035764
036004
036024
036044
036064
036104
036" 24
035662
035702
035722
035724
036144
046224

017522
000010
011644
001342
030456

104413

S(6A

¥ I

MESG9

PRS
PR6
PR?7
PS
PSEL
PSW

S(é

T A

MESG7
ME SG8

PR4

016534
000113
026774
020754

MF SGS

Mt SG6

PR3

RETRY

RMADR
RMAS
RMBA
RM(S1

wonunni

MESGI14
MESGTS
MESG16
MESG17
MESGT8
MESG19
MESG2
MESGY
ME SG4

PR2

RESVE(=
RE TBAD

()

M188]17T
NBA
NED
NEM
NEXT
NOENTR
NOINIT
NOTPRS
NOTRM
NOTSAf
NOUPDT
NUMERR
OFDIR OFFSET
0PI
oPT
OR
0.ENTR

PRO
PR1

177772
000240
036340
002000
000040
000100
000140
000200
000240
000300
000340

RE JEND
RELSE =
REPLZ
RESET
RESREG=
RESTRT

MER1?
ME SG1
MESG10
MESGT
MESGY?2
MESGT3

PIP

PIRQ
PIRQVE=
POPQUE

024370
024374
002000
001000
020000

l=]
aY)

MCRNP

024360

MOLK

036751
040521
037062
001352
000040
001000
030464
037106
037141

PFECHS
PFE(H4
PFTSIN
PGE
PGM

p.o}

MUTLTY
MVERFY
M C
MWR
MXF
MXWNDW
M16B]IT

mrPE
M’
F EMX

MSG13A

MSINIT
MSIZE
MSPRM
MSQVER
MST(K = 000010
MSVER
037376
MUNIT
036573

MUSDR

MAXCYL
MAXSE
(
MAY TRK

M. ODEV
MMODE
MODE
MOFFUN

MRMVE
MSCMPT
MSELD
MSFOR
MSGBLK

000400
000020
046076
046105
037427
037021
037315
037740
041450
042033
041771
042362
037337

stQ 0147

[

MANTER

MRM( S1

¥ A

»x

MACRER

MPE
MRD

%S 75"
~<

ear
o
F

ST
=
LS TRK

MINX

E 12
18:39:56 PAGE 53-2

L=APR~-8"

3
w

oo
sk
e
oA

[w EZT
TM
—D
TM

SERT
Tk (=

MFG16
MFG18
MF ORMT
MINCYL
MINTRK

[ .

TABLE

1854,€

i
Mil

YMBOL

FURMAT TR

BC AW S5/ 3y

034566
034622
034716
034746
034772
035000
035036
035066
035076
017360
010446
0115646
013056
035462
001154
000176
000001
000001
000002
000004
000010
000020
000040
000100
000200

7
L I
LU

n
o

100000

104405
104401

*YPDS
TYPE
TYPERR

Typns
4

AR,

Hou

TyPOC
TYPON

023760
104402
104404

104403
040000
46634

200000

UPE
USSAY
USTAB

ust
us?2
uss

vF YHDR

A%
=
W(
Ww(E
w(F
WwCkD
WwlKHD
WwCTBL
WLE
WRAP
WRL
WRTDAT=
WRTHD =
WRTRK
WRTRKA
WRTRKB
WRTRKC
WRTRKD
WRTRKE
WRTRKF
WRTRKH
WRTRKX
WRTRKZ

WRTRK1
WRTRK?
wRT.AD
WRT.RM
WRT.R1
WRT.RZ2

WRT.R3
WRT.R4
WRT_RS
WRT.WD
XSI1ZE
XXDP

$APTHD
SATY(
$ATY]

$ATY3

$ATYS

027512
027522

$AUTOR
$BASE
SBDADR
$BDDAT
SBELL
$CDhw1
$CDw?2
$CHARC
$CKSWR
SCMTAG
$CM3
=
$CM4
SCNTLC
$CNTLG
SCNTLU
$C0MMA
$CPUOP
$CRLF
$DBRLK

$DB2D
$DB20
$DECVL
$DEVCT
$DEWM
$DOAGN
$DTRL
$ENDAD
$ENDCT
$ENYV

SENVM
$EOP

SEOP(T
SERFLG
$ERMAX
$ERROR
$ERRPC
$ERRTR
$ERTTL

SESCAP
SETARL
$ETEND
$FATAL
$FFLG
$FILLC
$FILLS
$GDADR
$GDDAT

$GET4?2

$GTSWR
$HD

$HIBTS
$ICNT
$ILLUP
$INTAG

001150
001264

001136
001142

001200
001270
001272
026212
024714
007114
000000
000001
025621
025633
025626
036602
001236
001205
026660
027134
027364
027314
001220
001266
016362
026650
016352
016336
001230
001231
015740
016330
001117
00113
023330
001132
006460
001126
001176
001230
001274
001212
027750
0011722

001171
001134

001140

016342
025004
000002

001100

001120
030276
001153

F
PA

;£

TB:39:se

-2

$ITEMB
$LF
$LFLG
$LK(SB

001130
001204
027747

001302

001300
001310
001312
001122
001124
001304
$MADR1
001242
$MADR?
001246
$MADR3
001252
$MADR4
001256
SMAIL
001210
$MaMS)
001240
$MAMS
2
001244
$MAMS
3 001250
S
tMAMS
001254
$MRADR
001102
SMFLG
027746
SMNEW
025651
$MSGAD
001224
$MSGLG
001226
tMSGTY
001210
$MSWR
025640
tMTYP1
001241
sMTYP?2
001245
$MTYP3
001251
SMTYPS
001255
$NULL
001170
INWTST
0000090
$OCNT
026440
$OCTVL
027466
$OMODE
026442
$PASS
001216
$PASTM
001106
$POWER
030304
$PWRAD
030272
$PWRDN
030132
SPWRMG
030266
$PWRUP
030204
$QUES
001204
$RD(CHR
025256
SRDL IN
025346
$RDSZ = 000017
$RESRE
030010
$SRMADR
001274
$SRMVEC
001276
$RMO?2
036536
$RMO3
036543
$RMOS
036550
$RINAD
06364

$LKCSR
$LKS
$LLVEC
$:. PADR
$LPERR
$SLPVEC

$SAVRE
$SAVRE
$582D
$5820
$SETuP=
$STUP =
$SUPRL
$SUPRS
$SUPR1

$SUPR?
$SVP(
$SWR

UPD TRK

036443
001406
017206
017320
020000
004430
003424
000001
000002
000004
015110
000100
001350
040000
000040
000151
000153
006164
004000
001376
004000
000161
000163
013214
013676
013774
014060
014142
014210
014124
014154
013270
015076
013646
014224
035360
035270
035354
035446
035452
035456
035460
03535¢
010406
001412
001100
027530
027504

4=3PR=E"

UNTON

Hnun

(]

000010
000020

036555
036432

JNSTAT

yvte
L v

027752

03030¢
027100
027330
000116

177777
026670
026704
026716
026760
000210

123000

$SWREG
$TESTIN
$7k3
$TKCNT
$TKINT

001232
001214

$TKQSR
$TKS
$TKSRY
$TMPO

024404

$XOFF
$XON
$3GETS
SOF [L.
.3X

000023
00002
000000
026441
061130

001162

024376

024414
$TKQEN= 024413
$TKQIN
024400
$TKQOU
024402
001160
024464
001174
$TN
= 000002
$ TNPWR
027244
$7PB
001166
$TPFLG
001173
$7PS
001164
$TRAP
030046
$TRAPZ
030070
- 000014
$TRF
$TRPAD
030102
$TSTM
001104
$TSTNM
001116
$TTYIN
025¢€02
$TYPDS
026444
$TYPE
025662
STYPEC(
026074
$TYPEX
026214
$TYPOC
026242
$TYPON
026256
$TYPOS
026216
SUNIT
001222
SUNITM
001110
SUSWR
001234
SVECT?
001260
SVECT?
001262

UPDBSF
uPDLYL

100000

Mi K

HLDFLG
03040€
NS
=

010000
020000

020000
TRNSWT
030400
= 000014
007034
TypL ST
022512
TYPACK
022622
TYPADR
017732
TYP(K
022626

1Rk
4

A (&

UNTOFF

0001700
000200
000400
001000
036615
TAR( AL
006052
TABINT
012146
TABL
D
012226
TABLE
005650
TABLE?Z
005702
TABLE?® 005720
TABLES
005736
TAB XY= 001114
TAP
= 0400C0
1Bl TVE= 000014
1!
033156
TIMER
030422
TVE(
000060
TPVEC
000064
"RAPVE
000034
TRE
040000
TRKTST
016770
TRK1
004000
TR 10
940000
TRKZ
010000
"R 20

AV
0C * 006
<0000°2
002000

1 I

TN Y IR

T2 1 BT

JYMBO.

RS/
2 FORMATIER

TABLE

ERRORS DETECTED:

MATRO 06,00

4~APR-81

vIRTUAL MEMORY USED:
53504 wRDS
( 209 PAGES!
DYNAMIC MEMORY AVA[LABLE FOR TM) PAGES

WJRMLB . BIC,(ZWB/M={IRM B.DOC,(Z7RMLB, SYSMA( /M

18:39:56 PAGE &

JRMUBL RMOS/ 2/ FORMATTER
MALRO v04.00
ROSS REFERENTE TABLE (CREF vO1-05 )
191

Li=18
41-18
L1-1%
G-31e
G-82

13-6

19-3

311

31-1

29-1

31=1

22=1»

32=1+
431

321+

32-1»

6~0n

6=0
9-26
1=t
LT
31=1
25=20
9-51
20~20
25-14
321
18-14

$DBZD

4(0-14
341

38-1#

6-04

19-1
34=1

5=5
19-14
6=04
60
19=14

$ENDCT
$ENV
SENVM
$EOP
$EQOP(T
$ERFLG
$E€ RMAX
S$ERROR
$& RRP(

19=1

SERTTL

6-0#

$FATA
I

12-8

29=-1

L{3~1

(M4
$CMTAG
$CNTLC
SCNTLG
SCNTLY
$COMMA
$CPUOP
$CRLF

$FTABL
$ETEND

10=5

Ga15e
10~-28

1]
3.

$E SCAP

970
9-84

6=0n
6=0n
9=26

6=0#
8=-0#

&=08
291
6=0n
5-8
6=0a

&=t

G~19e

13-8

6-0n

31-1

9-26
31-1

31-14
25=25

46-144

9-26

9-102
20-24

29-1

32-1

9-152

21-202
29-1
51=-16

9~26
31-1

10-69

21-257
29-1

21-186

21=2

13-22
24
30-41

13-27

3114

10-174

24=12
30-26

11-7

24-25
30-31

SATY3
$ATYG
SATY(
SAUTOB
$SBASE
$SBDADR
$BDDATY
$BELL
$(DW1
$COWe
$CHARC(
$CKSWR

SERRTB

I3=1s

G-

]

$ATYY

$DIBL
$ENDAD

331«

$ASTATY

$0820
$DBLK
$DEC
WV
$DEVCT
$ODEVM
$NOAGN

i9='8

3312

1B:39:.5¢& PAGE

$8GE 14
N
$4L0CAT
$AP THD

4-APR-BY

24=71
30-55

13-39
24~87

20~3
24=-104
31-1

350-68

20-7
24=106
31-1

20-12
24=196
31-1

S4-14

10-10
16-1
34-"4

19-14

29~1
32-1

9=31
9=26

20=30

19=-1#
29=1
P26
29=#

41-1
41-1

41=1

29-1

29=1»

29=1
3023

29-1

29~1»

29=1»

30-7

49-8

49-1¢2

49-"3

9=26+
29=1

19-1

11=65

19-1

15=216+
65-773

29-1
16=21+
45-831

29-1

15-202+
29=1

19-1x

29=1»
16=45+
45-:19

45~ 82

45- 9¢

‘1-"

LGlmln

Gi=te

10=119+

¢=0n
L1=1m

16=39+
45-833

18=76+

49-17

19=1»

45= 93»

49-12
20=8r

45- 35

|
2Ted’s

321

e9=1»

49-18

4£3=1

431
4=62

44=1
311

Lb~14
31-1

32wt

19-12

lasl

29-1
29~=1

v Wy

moeNre

L1=1e
21~167+

29~1
29~1

4L~APR-B"

112
T8:Rv:te FASE -

52-1

29~
31

31-1
29~1
3141

31-1s
29~1
371

29-1r

32-1

29-1s

32-1

21=162
21=172
21=-17%

21-168«
21=177«

11=39«

15=-194+

16=7+

18=-25+

21=39

29~1

6~0n

9-21

9-26

9-31

29-1

32-1

41-12

41=Tw

311

32-1

21-163

30-8

6=04

LR
x

41-1%
»

b ekl
b
—

6-04
6~0n
311

6=Q#

31=1

ol
mmd rd el -

6=0n

Pronnn

=62

(4. 00

wp
d

$F
i 0

MATRD
yO1-05 )

JEMy e, RMGS 302 FORMATTER
RS, WEFERENCE TABLE ({REF

41-1

6-0#
6=0n
6~0n
6=-0a
6-08

32-1

33-1%

33=1=

9=21%

40-1

33-1

33~1«

o-0#
S-8#4

16-1

9=26

46-1n

44-1
LL-1n
AT|

441

6=Ca
631
3i-"#&

L1-"

29=1
431

41-1«

41-1%

33wl

33=7»

31-1

311

19=1¢

791«

321

JeMUB. RM S 3. b RMATCER
RUSS REFEREN'E "ABLE (IREF

$TKQSR

34,8

$TKSRV
$TMPO
$IN
$ INPWR
$7P8
$TPFLG

$TPS
$ TRAP
$TRAP?

$TRP

£ TRPAD
$£°STM
$TSTNM
$TTIVIN
$°YPBN
$7vEDS

7=0#

7=0n
19=1#

L4=1
L2-1#

21=249
26=12
L=266

9=26

20=1
L4=266

75~-15
3574w
21=250
35-174
5«5

L=53

=26
29-~1
6~0n

6&=0n
6=0n
31-1
9=468

31=1
31=1
31-1
31-1

6=-0n
32=~1
31=1

6=-0#
4=560
38-1
6=-08
6=0#
6=0n
9=26
431
43=-1
43-1
43=1
43=1
43=1

L46=104
Lo-114

9-73
=74

G418
631

21=255
26-15

4=266
926
29-1
4266
35-20#

35-1G»
21=256
5-5#

4=62
19=1

29-1
9-26

9=21»

21=225
31=1
10-118
31-1

9~84n
9~80%

9-85

9-81

L6=1~

L4=1n

25-18

25-23
39-14

43-1

51-17

51=35

4=-266
9-26
311
4=266

L=2664
9-26
31-1
4~2664

4=2664
9~=-31

4=2664
6-31

9-26
9-31

19-1

19=1

4=266#

4=2664

L=2664

4=2664

35-31«
25-24

26-21

35-12#

4-63
29-1

4~63
29-1

6-0
29=-1

6-0
29-1

30-14
31-1

31-1

311

32-1

31-1

31-14

31-1»

Tl=1e

31~1»

311

43-1
43-1
43-1
43-1#

43~

431
43-1
43-1
43~

(3-1
43-3%
(3-1n

9~26

9-26

9=26

29=1

5=0

9=26

291

9-21

29=1

291

43=1
43~
43=1
L3-8

43~1

1=1
1=1
1-1

1=240+

31-14
13-16+

L3-12

5-8#
6=0n
31=1

29-1
31-1

LIARY|

43-1

4 3=1

LS=<17

43-

$SWREG
$TESTIN
$TxB
$TKCNT
$TKINT
$TKQEN
$TRQIN
$TKO0U

45-164
9~140
9-13%7
9=143

3118
£3~1
45-193
46-54

43=1

$STUP
$SUPR1
$SUPR?2
$SUPRL
$SUPRS
$SVPC
$SWR

L2=-1a

v01=05 )

J 12
&w»APR-B1 18:39:56 PAGE S=/

—

$RMO2
$pm03
$RMOS
SRMADR
SRMVEC
$SRTNAD
$SAVRO
$SAVRE
$£35820
$5820
$SETUP

3'-1#
(%

FONANWN

SRDLIN
$SROCLT
$ROSZ
$RE SRE
SRMEXT

(RO v0&,00

L3-14

43-

W3-1a

431

43~1

L3-"n

JuMoBe RMUS/ 30
ROLS REFERENCE
$TYPE

$TYPEL
$TYPE
X
$TYPQC
$STYPON

$TVPOS
SUNIT
SUNITM
SUSWR
SVECT?
SVECT?
$XOFF
SXON

.SASTA

Al16

Al7
ABASE
ABORT

ACDWI
ACDW?Z

32-1#
311

32=1
3318

33=1
3318
6=0n
5-8#
6=0#4
6=0»
6=0#

32=1

T1=1
41=1
5-8
L7668
L=778
L=263

20=29

FORMATTER
TABLE (CREF
41"

22-1
30-1
§3-1

33-1#

43-1
7-0

9-78

32-1
32=1

41-1

MACRO V04 .00
vO1-0S )

431

43-1

4-APR-B871

32-1

32~1a

45-399+

45-692¢«

45-700%

16=55

19-1

26=194

321

32=1a

431
43-1

9-80

32-1

5~-8#

6=0

L6=~794
6-0

6=0

6~0

ACK
ACPUOP

6=-0
45-348+
45=-G89«
Lb=L3R

AL TDRvV
ACTSTR
ADDRIS

ADDWO
ADDW1
ADDW10

45-:03%

ADDW11

ADDW12

ADDW13
ADDW14
ADCW1S
ADDW?
ADDW?
ADDW4

ADDWS

ADDW6

ADDW?
ADDWS

ADDW®
ADEV(T
ADEVM
ADRTBL
AENV
AENVM
AFATAL

AMADR1
AMADR?
AMADR?
AMADRS
AMAMS1
AMAMS
0

AMAMS3
4
AMAMS
AMSGAD

K 12
18:39:56 PAGE S~-4

6-0
7=0n

6~0
6-0
15=191
6-0

45-987

IRM B0 RMQS/%/2 *ORMATTER

"ROSS REFERENCE

AMSGLG
MSGTY

MTYPT

6=0

AMTYPE
AMTYP,
AQE

6=(
6=0
L1478

APRIOR
APTCSU

6=-0
32-1

AMTYP?2

6-0
6=0

APASS

APTENV

APTS1Z
APTSPO
ASKO
ASK1

ASK?Z

ASK 3
ASK3A
ASWREG

ATO
AT
AT?
AT3
ATS
ATS

arTé6

AT7
ATA
ATABIT
ATESTN

ATIN
AUNIT
AUSWR
AVECT1
AVECT2

6=0

6=~0

L4=1744
4=1344
9-132
6-0

7=04
6=-0

6-0
4<2644
6-0

G-3#
4=94¥
4-68#
4-68

BiT02
BIT03

4-68
4-68

B17T06

BIT07
81108
BIT09
BIT!
BIT10
BITIH

BiT12

6=0
6~0

6=0
411

(i=-12

4114
10=-674

10-127

10-135

10-148

10-153

10-156

19-11

10-40
6-0

10-48

45-1454

45-319

4F<411

45-516

45-896

45-924

45-932

45-933

45-955

45-:52

49-3

49-4

12-66
13-35+«
22-95

21-200
16=16*
23-17

21-283
16~18+
23-25

24-206
16-19r
24-222

27-27
16-20*
24-224

L6344
16-52
24-229+

16-53
24-232+

17-14~
24-234

19-1
24-239+

19-1
49-12

45-455

45-735

45-<43

45-B66

45-8B86

45-928

45-<04

29-1

45~:40

45=393

45-426

45-609

45-654

45-670

45-876

45-B78

45-;°¢

Lh=173%4

BADIMO
BA]
BITO
BIT00

BIT05

L 12

18:39:56 PAGE S=5

6=0

10-191
10-205
6=-0

L=1674
L=-168#
4=1694
L=1708
L=1714
L=172n

4-APR-B1

6~0

10-1784
10-194#
6-0

10=117#

vO1-(5

. 4,00

6=0
-0

=26
32-1
10=6
10-85#

29=1

10-81
7-0
19=-1+

BIT04

(CREF

Li-18
30-1
L1-1N
41=1
10-8
10=-101

BADENT
BADSEC

817101

TABLE

MAIRT

4-68

4=68
4-68

4-68

29=1+
6-0
6-0
6-0
6-0

10-100
7-0
19-1»

10-126
7-0
21-316

10-190
7=0#
22-89

4-684

29-1

L-68#
4-684

45-850

45-.72

9-28

4-68#

4-688
4-684

4-684

4-68
4-68
4-68
L-684
4688
4=668

L4688
L-688
4-68¢
17-3
21-16
21-16

--‘6

‘%-68z

6-0

i;-124

21-43
21-22

45-866

45-329

45-329
21-19
21-19
21-10
21-43
45-282

21-43

45-391

45-€56

45-886

45-382

45-597
65-329
29-1
29-1

45-418
L5-276

45-712

45-658

45-619
45=310

45-850

45-973
45-329

JRMLBO RMOS/3/2 FORMATTER

BUFV
8USADR
BYTE16
gvrf18

~NOndw

L X

2Tl

)

W~y

g e -t g Py

alalaleYs)

C.ENTR
CALIN
CHGADR
cI

(k.CHR
(k.DEC

(x.DIG

Ck .NUM
(k.0oCT
CkSWR
CKTRK
Lo’k
(LR
(LROUE
INTLC
COLON
{ PSAVE

(RLF

12-25

12-43
45-658
(5-:84

15-123

45-735

15-138
45-850

24=200

30-51

30-60

30-71

L6=214

71-86+

11-114

15-36

15-63+

7~0
7-0
1425

7=0

12-6
7=0

45-656

21=10

17-13

21=43

45-806
15-172
45-886

£5-964
45-37¢6
45-966

51-21

51-30

45=:76
45-388

45=:22

45=:26

45=-:40

45=:76

45-:84

7=0
7=0

7-0
7=0

45-%91

45-%93

’oS" ‘c’
45=4,2

10=7

L6=22#
21=2%1

7-0
15-115

2249
53-9#
51-13#
24-224
24-234

22-53

22-56

21=214#

21-215

21-245

9-18+
45-473n
L45-4974
645-519#4

51-13

51-15»

45-5974
45-54/

45-607

L6=174

45-517

45-545
45-454
45-578
45-917
L45-641n

28-50#
28-56
24-192
51-33
28-58
29-1

21-174

45-485
45-589

21-56

45-6034

45-6094

45527

27=17
52-13#

27-20

27-23

21-208#
10-140

45-234

45-681

10=-117+

21-245+

31-1

311

29-1

29-1#

29-1«

29~1»

30-79

9-45
46-27

9-56
46~¢78

9-62

9-63

32-1

11-79

11-81

7-0

7=0
7=0
11-126

7=0
11-84

21-149

22-12

22-26

45-534

45-540

45-544

4£5-558

65-56%

32-1

44-2
46-36

46-12

46-13

L6=23

2243

28-95

28-814

4314

29~1
32-1

29-1
32-1

4624

19-1

45-:67

45-<954

9-6

45-606

18~"5
53-74

11-69

7-0
7-0
11-73

45-770
28-87

9-93
45-680
9=67+

46=154

45=-549
65-489

7-0
11-29

7-0

]
- NOO

18=-71
11=24+
7-0
7-0
7=0
11-141

N —a
— N

L6=-15#4

L=228#

4£5-376

21=43

17=-11

(2,39,

BSFAVL
BUFP

29-1
21-10

21-10

)

G=~134
46<=20n
9-104
L=-684

—NOO
[V,]

4L-684
L-A8BN
L-68H
14-10

)

——a

4-68n
L~CBa

v01-C5

——~~

51775

L-68%
L-682
(=688
(5-619
4~6£8%
L~684
L=684

(CREF

M 12
18:39:56 PAGE S-¢

Ny —

BITIS

8714

TABLE

4~-APR-81

FOl
o

ROCS REFERENCE

MACRO v(C4.00

9-31
46=25

48-17
9-31
46-26

46-32

46-33

46-34

46-35

46=37

4637

LE6-38

JRMLBO RMO5/3/2 FORMATITER

"RUSS REFERENCE

DX
ODISP

DDRIVE
DEvmMP

DF1
DF10

DF17

DF2
DF20

DF23
Df 24
DF 25
DF2

DF&
DF
6

DMl
DH10
DH10A
DH108B
DMH17
DHZ
DH20
DH20A

DH20B

DH20C

DH23
DH24

DH2S
DH3
DHé

DH6
DISPLA
DISPRE
DLTY
DMD
DONE

DPINT

DPk
DPRQS
DRIVE

DRQ
DRVACT
DRVCLR
DRVINT
DRVQUE
DRVSTA

DRVTYP
DkRY
DS.ovL

46~38
46=53
L6-K7
£6-81
4(=153%%
L-684
7=08
7=-0a
19«1+
3~-7

8~56
8-105
8-14
8-112
50-29#
8-140
8=49
8-21
8-28

TABLE

(CREF

46~-39

4654
46-67
46-81
16=33
6=0

29~1x

9-99»

21233
50-3#
8-63

S0-15#
50~5#
50=-21#

50-314
8~133
50-7#
50-9#
50-11#

48-34

8-61

50-15

MACRD v04.00
v01-05 )

46~79
46-55
4“6~68
46-83

9=-26
49-¢4
9-132+

21234+

4-APR-81

46-60
4«6-56
46-68

46-70

49-5

49-6

46-83

9-133

8-70

8-77

8-147

50=-39#

8-68

8-75

46-44
L6-57

N 12

18:39:56 PAGE

46-45
46-58
46-71

46-46
46-59
46-72

§=7

SEQ 015¢
L6=47
46-60
46-75

46-48
46-61

46=49

46-76

46=48
46-62
46=77

9-133«

9-"51

9-151+

10=12+

10-13+

10-18

8-84

8-91

8-98

8-119

8-126

50-13#

8-82

8-89

8-9¢

8-117

8-124

48-8#4

46-50
46-64

46-51
4665

46=52
46-66

10-40

1048+

19-"

19=1

46=63
46-78

46=79

46~-80

46-80

50-17

48-114
48-4H
48-124

50~23
50-25
50=-27
8-131
48-17#

48-19#
(8=5#
LB-6#
LB=74
9=26*
9-26

50-33
50-35
50-37
48-164

291+

19-1
45-245

45-358

45-790

45-817

45-956

45-958+

45-:
397

45-:54

45~:60

45~:70*

45-364
1047+

65-449%
10-158

45-629%
11-25

45646
14-8

45-664*

21-53

45-793

22-91

45-:33
49-8

45-:56
49-9

45~:62
49-12

45~:80+
49-13

49-17

49-18

45-600+

45-631+«

45-644

45-663%

45-705+

45-813

45-848

4£5-880+

4£5-B88+

45-9C8

45-323«

45-945

45-959

45-40n
45-42¢4

45-226+
45-553»
10-"63

45-686»
65-524

45-227+

45-228r
45-796
L5=272%

45-229%
45-804
45-288«

45-239+»
45-819
45-293+

45-271»
L5-874+

45-298+

45-281»
45-881+
45-303

£5-325¢
45-897
45-389

45331~
45-961
45-685+

7-08

13-33»

23-"3

23-¢3

24=16

24-29

24-62

24=75

¢6=279

29="»

10-150

M B, kMO5/3/2 FORMATITER
HOLYS REFERENCE TABLE (CREF

T Re

LTCe
D13
DT )4

DTOS
DTUG
pTN?7
D108

ort

D110
D117
D12
0120
D12

DT
4

DIcS
D13

49=12

49-~"3

49=21
L6588
‘=182
L=182#
(=183
C~"844

49-22

7«0

L=-1864
(-1874
L-188#
L-1894

g-6
8~55
8-104

8=~13

8-111
8-132
8-139
8-146

7=0

69-1¢
7=0

6~0

9=26

49=-3#
8-62
4LI=124

)

8 13

'B:39:56 PAGE S~B

SEQ 0157

49-18
7=0u

£9-21
13=34+

209«

23-15

8-69

8-76

8-83

8-90

8-G7

8-118

8-125

49-9#

45441

45-494x

4L5-638%

45-649

45-665

45-667

45-678+

45-695

45-736
§=26+

45-:85

45- 204

18-50
18-53

19-*

21=5#4

23-24

29-1e

49-1

(9=12

49=13

45=16

49-18

45=706+

45-:36

45-:48+

45-;20

LO=4Lh
L9-134
49-174
49-18#
49=-224
L9=-54

L9-64
L9-7#
L9-8%4
16=33

DTh
D17
DTE
DISY
DTUW
DVA
ECH
ECI
Em
EM10
£m11

45=222

47-34

L7104
L7=114
47-124

EM12
EM13
EM14
EM1S
EM16
EM17

47134

L47-144
L47=154
L7-164
47-174
L7=4H
47184
47194
47=-204

Emo

EM20
EM21
EM22

47-214
L7=22#4

EM23

EM24
EM25
Fm3
E M4
EMS

47-234
475
L7-64

47-8#
47-94

FM6

EM?
EMPTYQ
EMIVEC
ERR

v01-05

4-APR-B1

L-185#

D14

ENTADR
ERINDX

MATRO v04.00

45-683
9=-26~
15-203

4-1334

46=23n
16-22
16-46

REAN

~MLS/ 877

Fhte
f
ER& 2T
£ LSA,

£2

L~68u
L=-684
45=773%
L=1164
L=1172

Fé

L4=1198

Mo.> REFERFNCE

9-26¢

45-833

FUNCT3
FUNCT4
FUNCTS

G=2Ge
45-=Q18

21-1¢0e

21-061.

21=1/"

L=1424
36=-11+

26-16

SO et N
VONONOMNO
”»
* Q0

—h

19=-1+

21=56»
21=93
2=-101

21-59«
21-304

21-67+
21-308

22=93+

22=-95+

49-22

7~0n

2h=6M

11-410
15-114»

15-197
18-27

18=1164+

18-38
18-123~

6-53+

WO =
= Co »

16=119+

11-26+
15=11»
5-143

18-110e
19-1s

21=73x
21-315

22=97~

9-45
43-1

45-910
9-5¢
43-1

45965

45-:39
9-¢2
43~1

GTSwWR

45-726

45-800

431

43-1

9-31

45-839

9-62
43-°

45-=56#
63-1
43-1

18-65

18-67
17=7+

T
HDRB]
HDORSET

IN] TMF
INITUS
INSERT

10TVEC

1SR

11=-43
15=115e

15-199

18-29

18-111
1G=1+

21~54e
21-91e
22-97

21=55¢
21=92¢
22-99

43-1
(3=1

43-1
63=1

7=0

HCE
MC
|
HCRC

13
ILF

29=1e

22-98

L=24L08
L~214N
7=0n
11=45

1AE
1BSAVE

29=1

36-35#

FUNCT6
FUNCT?
FUNCTS
GETREG
GE TREQ
GNS

HEDERR
HT

T=180*

&=1204

19-1+

FUNCT1
EUNCT2

9=28«
(5-:78

~118#

16=6+
18~33«

FMTWRT

=26~
45=:16

13
"B:39:5¢ PAGE S-v

FIiLLo

FILLZ
FmT
EMT16
EMIDPS

9=26
4£5-831

L=AFE-R"

[+
»

£5
FER

(CREF

JCSL00

NN ) s d b b ed e
nN
= 200N
NN —
i
[
L

£3

TABLE

MAIRL
vO'=05

—

‘Q

FORMAT TER

22-90

32-1

291

29-1

291

29-14

29-"+

24-31

24=64

24~77

24-230

24=240

S6=774
L6=764

24-18

45-692#

J9=1n

29=1»

63-1
431

JHMOB RMOS/3/0 EORMATTER
Rosy WEFERENCE TABLE ((REF
F

JDE
CIPL (K
<t

L STRK

Moyl

mM18817

MADRER

MANTER
MAXCYL
MAXSEC

MAX TRK
LK

MCPE

MO PEMX

MDRNP

MERT1
ME SG1
MESG10
MESG11

MESG12

MESGT3
MESGI6

MESG1S
MESG16
MESG17
MESG18

MESG19
MESG2

MESG3

ME SG4

ME SGS

ME SG6
ME SG7
ME SG8

L=-682
9=~128
15«211
L=1294
7=08
11«17
11=15

10=204
26-13
7=0
7-08

21=-12%
7=0

L=-158»
L=798
45=157#

10-152

10-155

12=12

<4=95
26-115
24-118
26~188
24=152
24=215

L6~692

20-13%
20-17
20=-21
21-185

MARD
/(=05

e, ul

«=3PN=F7

L8-17

16-85

18-95

2'=378

10-60+

10=-166+

11=27

11=-71

15-23

7=04
10~32»

24=59
10=24+
10-38+
22-17

24~72

24=216

27-8#

22-18%
10-167«

22+23+
10-202

46=324
46-33#
£6~35#
24=26

21=-148
7=0n

45-;02

L6254
L6=264

10~61»

10=-160+
10-106+

S~-10
SEQ

321

4“6-84

D 13

"8:30:5¢ PAGE

10-197
10-112+

18-29

18-80

19=-1

22=21

18-122
15-133

18-124
15-145

21-77
15-152

21-81
15-177

16-18

18-111

21-68

12-24

12-25«

16=5¢

To=79

18=100

2'-%°
r

45-:;48

Lo6=444
L6-624

L6=-634
LE=-64N

L6-654

24-182

46684

46-674

46~708
46-714
L6=720
L6=454

46~468

L6478

46=574
46=584
46~598

ME SG9
MF
MFG16

21-105
12=14*

1215+

12-27«

12-28«

12=30»

12-40*
15-40

12-41x
22-25

12-42x
22-39

12-43x
24-19

12-46*
24=22

12-29*
12-52
24=-N

26=135+

24=136>

24-137

12-64+

15-43

22-42

24-32

24-35

24-96

24=143+

24=1442

26=145

24-241

10-159«
10-161«

10-197
10-202

21-59
18-11

21-104
21-58

22-17
21-73

22=20«
21-106

2
2

22-17

22=21+

22=23+

10~84r

11-8

14-17

18-8

18-20

18-78

24+6

24=41

24=127

24=-157

12=38«
12-63

12-39«
12-64

MFG18

12-59«

MFORMT
MINCYL
MINTRK
MINX

S1=41

12-26*

12-54

12=31+
12=57«

12-32¢
12=-59

MSG13A

MSGBLK

MSINIT
MSIZE

MSPRM

MSQVER

MST(K
MSVER

MUN]T
MUSDR

MUTLTY

M/ERFY

Mw(
MR
MXf
MXWNDW

NBA
NED
NEM
NEXT
NOENTR
NOIN]T
NOTPRS
NOTRM
NOTSAF
NOUPDT

NUMERR

O.ENTR
OFDIR
OFFSET
oP]

51=4(2#

46=37n

L6-664

46=4L84
L6=754
L6=74n

L6-82#
4L6-38#

46-39#
14~7
46=27n
L6~56#
L5-31n
10=31+

10-105+

10-111«

15=114

18-18

21-55

15=109«

15=119

15=137«

715-156

15-159

15=171«

15=176+

24~159

46-814

45-504

L6=784

L6=-64

L6-54
LE=T7H

24-43

L6=41#
14=13
16-33
65-4094

PA(K SN

Lb=4L2N

PAR
PAR1
PAR?
PAR3

PARG
PARS

PARG

PARENT
PAT

PATA
PAIB
PEECH
PFE (MY

PFE(H2
PFECHS
PFE(H&
PFTTIN

eyt

BALM

46-134

10-36+

oPT
OR

E 13

&~APR-81 18:39:56 PAGE S-11

46=408

46-80#

21=2254

21-258

45-730

45-937

7=0n
7=0n

7=0n

7=04
7=0

7=0#
21=267#
164=26

14=27

7=-0n

MSFOR

, 7'=05

WWIN

MS(MPT
MSELD

(IREF

]

MRJF
M
(

TABLE

VA'R) D ;04,00

—

RUSS NREFERENTE

FURMAT "t R

—

JEM B RM“S’Z'/(

30-754

30=-764

30-77#
30=79#
70-80#
30=79

30-83#

4>-79

16-57

16=59

16-94

JRM B RMOS/ 372 FORMATTER
RCSS RECERENCE TABLE (CREF

PIRC
SiRQvE
PGLE
BR

PR?

B¢

EH3

pog
bR

Fele,

rR7

3 N

FWRVE (

45473

45590

4S5=892

45-927

45-97

45==71a

G=29

21=166

21=176

(=688
45=(58¢

10~67%

10=143%

11ege

14=15%

21=244e

45-214

45=215%

9=26¢

4L4-1w

44=1e

4i=1n

LGu=1w

44=1n

Gh=1e

L5-<87#

45~ 41
4S5= 74»

L5=-43»
4(5- 75«

45«_76

45~ 78«

=684

L¢84
“=68a
L=ABN

(=68
45=410
(=782

L=680

“~684

UDRVZ

45=<bd

Q=26

45-<96
L45=~<68

45-220%
45=<7F

L5=<b6b

45-<71

45~<74

QDRV3

L45=<64

L5=<71

45-<76

QDRVS

L5=<64

45-<71

L5=<O1R
4L5-<bBF

45=222
45==22¢

QDRVE
AORV7?

QINPTY
QOUTPT

GSTART
QSTOP
QTERM
Ré
R7

RBUF

L5-<64

L5=<64
45-<b4

45-</3#
L5=<748
4(5-<81
L=68N
L~684

7=0
22=94

RD.ADR

45=;04*

RD.RM1
RD.AM2
RD.RM3

45-,69
45-;06#8
45-;02+
45«:13

RD.RM

RD.RML
RD.WRD
RDCHR
RDDAT

RDHD

45=284

45-;18
45-;08»
13=-1S

4=260#

L=2618

RDLIN

10=71

RE CAL
RECORD

L=245%
16=40

kDY
READIN

4=75
4=250#

45-<71

45-<77

L5~<71
(5=<71

L5-<79
£5-<80

4(5--02
45-=41
45-<BB#
9=26

45-=07
45-=76

18«77
22-98+

45-;05%

45=314

45-=;75
45-;34
45-;33%
45«:25

21=301»

Ta=96

20=20%

L (ep6n

D1=4?

21=T18

45- 37«

45--57

45=z=7"e

45=252+

45=346

45347

45400

45-<87#

L5-<B7#
45-<87%

L5-<87#

{5-<B7#
(5-<87#
45-=40%
45- 73
45- 4%

«5- 78

926+

18-82+
22-105+

18-84»
4(9-8

" 8-85
(9-8

18-85
49-17

18-89»
(917

18-90«
5%-5x

18-~91

18-91

22-82+

22-88+

22-89v

22-90+

45-538

45-562

45-576

45-714

45-768

45-842

45-852

45-868

45-:2%

L5-:028

45-:55

12-16

27=190

21=278

24=1090

27=15

L3-10

51=22

51=-31

45-:078

45~320

45-<08

49-5

45-:35#

18-41

10-90

45=-35
4(S5-<87»

45=2644n

=26+

11=41

SF.7TN

NEOTe

45--39r
45- 60

49=5
L(3-12

20=-3»
22-86
20=12#

20=16F*

4£5-<78

45-;37%
45~.09
31=1

11-83
20=78
19=1

TTe

L5=<75

45-<71

RE.CTT
wb (12
RE(TT
f

SEQ (161

4=6B2

L5=<548
45=<6)

QDRV4

L=682

GrNT
QORVG

vO1=05

<-APR-81 18:39:56 PAGE S=12

4=1328

(=688
L~688
654622
(=480

L~682

MACRO vi4.00

10-122

49«6

10-180

SRV

RM0S/3/2 LORMATTER

mosy REFEREMCE
Re

END

e CE
we
P 2
RECE”

=t SREG

RESTRT
RESVEC
~F 'BAD

20=5

L=2a78

36-"3%

16=42

0=73

15=6¢2

TABLE

(CREF

(-8
17=15%

38-1

21=-185#

11=23e

~t TRY

18=75¢

7~0n
£9~3
49-9
49-14

WM oRES

£9-15

49=20

“MOS

RMADR

RMA~
~MBA
RM S
RMeS2

RMDA
RMDS
RMD(
RMDS

RMDT
RMECT

RMEC2
RMER1

29-1

11=4¢
9=-85+
45~,;28
45-319«
29~1

45-173%#
L5-769

£5=275+
45-828

45=670
16-16
45-182#
L5-7874
16-46
45~1844

45-681+
19-1
45-<Q2
45-488
45-178%
45-285

=93

45-191%
45-192%
16~32

10-140%

45-<12

21-45

MACRO v04.0C
vO1=05 )

4=-4PR-81

G 13

'8:3%9 :56 PAGE

S~ 13

SEG Gles

20~18

20=22

20-26

20-28#

21=203

21235

&0=1

“3-1%

45253

45-39¢

45~397

65-459

45-687

45=699

4%«:02

65=<27

45==11

11-60
19=1

17162~
19=1»
16~30
£9-3
49-10
49-14
49-16
49-20
15-196
10-139
45-;65
45-896*

11-66+=

15=112»

15-212

15=214+

15=217+

16-86

16-88+

16=92+

18«79

18-67+

18-58

18-65
49-5
49-10
49-14
49-19
49-20
19-1
45-476

18-67
49=5
49-10

18-71
49-6
«9-10
65-15
49-19
49-21

19-1
49-6
49-11
4915
49-19

21=45

49=6
4£9-11
49-15
49-19

29-1

29~1

49-18

49=5
49-10
49-14
49~19
49-20
18~42
{5-353

49-19

49=1G

22-107
45-519

45=3464
45-€94

45-:21

4504

45=;"0

45-514

45=-557

45=577

45-588

45-605

45-626

45715

45-366+
11
45-;

45-416*
45-;66

45=477*
45-;98»

45698+
45-<04

45=520+

45-609
L5=<44

L5654

20=14

2o=82#

16=16

£9-3

(9=-G

49-14

49-15
4£9-20
15-13

9-92
45-:61

T0=1e
16-32
49-3
49-10
49-14

19=1~
16=46
49-3
49-10
49-14

49-20
16-9
45-162#
(5-:97
45-932+«

49-20
18-35
45-233
(5-<38
45-955x
45-418
45-:56
(5=274w
45-954
45-526

45-492
L9-4
45=-276
45-:22*

49-16

51=-36

45-766
45-1754
45-282
45~859
16=30
L5-713x
45-1764

45-308
45-904
L5=1774
45-4 84

45417
45-973
45-234x
45-960r
45-510

45-501
45-315

45-533
45-843

45-869

45-941

45=:24

45-840~

49-14

49-19

49-21
19-1
45-497

£5-<39e

45-1794

45-321

45-853

45-942

45-;70

45-806

¢5-811

45-821

45-941+

45-940n

45-943«

45-944~

«9-4

49-4

10-138

45-2134%

RMOF

45=-944
45-312

45-539

45~543

45-563

45-547

RMSN
RMTMR
RMVE

45-9874
9-81«

451634

45-230

45=232

45-347

10-141¢

45-117#

45-592
L3~

45=719

45-409

45-641

45+693

45-990

45-.94

45=cyn

RMERRS
RMHR
RMINIT
RML
A

RMMR1
RMMR2

RMW(
RTC
SAVEFG
SAVREG
SAVW(
Su
SCO1

45~190#

45-234

38-1

1667+

45=7668

40~1
c1=9

SroQ

SCUe

sCit
sC

scfl\

45-846G
45-8"S

45=9208
LE=Q4
u#

45213

45«929

4£5-349

459
49=11
49=15

45-:51

45-943
45-217

RMER?2

49-9
49-11
49=15

GOFONMAT
TR R
TARLE Y CHEF

4S=735

£5-786

45=818
45=790#
«5-836#
L5-8624
(5-865
45=844

21=-91#

< A’

uPE

“EARTH

G730

10=27%

St
EEx

15«27

TEERFG
SEL DRV
SERNL

SET.IE
SETBSF
SETDPB
SETFMT
SETHDR
SETVE(

SORT1

SRCHWT
ST.rik

ST2

ST8%
STACK

45-888#
45-870

45=905

45-9088

45«949

10=103=

11-13

11=136

15«9

15«41

18=31

21=108

22=17

15=4¢

15=75

15=~92

1604»

15-103

15+105

15=120

17-8

45-77

(5-<374

16=74

14~76+

16=82+

16~93

=
21=94

24=246

10=37»

18-"3

21-53%

18-14
9-83

21-1014
9~904

15«45

15-12

18~23+

15=-111«

16-37

21=325#4

24-21

45-516+
19=5
19-7
10-189
441

11=40

9=-15#4

9~67

21=179#
21=-178

21-180#

L45=:70n
L5=:7
45-:85#
45-:38

ST06

SwC

45-877
45-8€0

45-~457

45-:32
45=:60n

st1o7
ST08
ST09
SVRKZ0
(!

45-8B67
45=854

45=721

18-34

18-60

18-104
16=-72

24~3%4

26~67
£5-933

24~80

24~246

14=14

15-195

16=7

L5=:63
45-856

45-875

45=:65

45=:68B

16=69*
45-924
21=-160#

11-5#4

11-93

4=68
«=t8

16=G

L~688

4=C88

45-:34

45-:5"%

45-:49

45-:58

445=737

45=980C

22-22

L{5=:17#8

S102
ST03
ST05

SWC

45938

45-384

9-184
21=170#

STKLMT
STO
STO?

45-318

(5=278

9=-26

STAR)1
STCLK?
STCLKZ
STCLK3

45-906

45-443

L6-834

STARS
START

45-885

45-218

45-411%
10=-137
10=45
10-183
19=12

S='4

45-83%

L5-1254

18-19»

H 13

'8:39:56 FAGE

45-832

24-50

LE-164

L=aPk=-81

4S5-051#

22=~103

11=-32

SORT?

v(.lC

22=54

22-12#

k1.9
SLASH
SNGSE
€
SOF Sw

MACRC
yO'=05 )

45-80]

4£5~93%i

45~:75

45~G47

2219+

l=23e

FeRRLECJABLE ((REF v01<0S

MATRO ¢v04.00

FORMATTER

ROSS RE

4=-APR-E°

113

TB:¥9:hs At

- R

G=97

Sw(
2

SwC3

*as
g

SW)9

Sw!
Sw'(

:u11

SWl¢

Sw1d
w4

Swis

Sw5

B
Sw8
|

Sw%

9=26
311
9-31

SWR

SWREG

T
TAB. XY

TABCAL

TABINT
TABLD

TABLE

S
TABLE

TABLES
1AP

TRITVE
TM

“IMER
TkVEC

TPVEC(

TRAPVE

TRE

TRK1

TR 10
TRK?
TRK 20

TRK&
TR TST

TRNSWT
TRTIVELC
1571

Ty, [ST
TYPA

TYPADR
‘v

11=-63%
1°=1144
7=0On
7=-0#

10=170»

4~684
L=-68n
L-684
4-80#
4=2034
4=206#

&=2040
“=207#4
4-205#
17=20
21=214
4680
9-11
24=9%
14=11

o T=lhNR
(‘ ¢ - ) fi"

31-1

9=26+
3-1n

31-1

9-26+
446-1
31=-1

9-31
fa-1

45-883«

45-668+

26=27

10-196
24~60
24-73

45-705#
45-452+

45-598~

65-662«

45-708+

45+837»

11=5»

1413

21-258~

31-1»

9=26+

9-26+

45-648

26=14

r=0#

7=0#
4=1924
L~684
(5-697
45=-130a
45~:79¢

9-26+
31-1

24217

21664

45=794

45=474

65-632

45-637+

9-16

9=-214
24=116

21=216
24=120

25-13#

24~97
24-88

24=105

2E~Cn

17-3

19-9

21-37

29=1

45-935«

45-952«

45-976+

L5-993

45-995+

45-679

45-710

45=71"+

45-:35

45=:470

9=-97

45~:64"

487w

SRV

Lo
Tl
v

NWCS, 370

REFERENCE

21=276
9=31
9131

12=-66

13=-13%

10=-158

13-14

3-8

9=51
9=145
10-174
13-21

9~56
9-152

10=-176

20-12
21=246
24=-57
24=152
25-35
30-62

44~

31-1
51-76

51-20

51=29

45=554+

5=630n

711

31-1

15-32

9-8
L34

24~199

30-46

31~1

43-14

(3-12

45273«

9=-103
18-83

14-8

L45-T06#
L=152#

9-59
17=7

331
29=1

9-4(8
L4=23%%8

30=-32

T4-1
30=-64

24-12
24=115
3C=41

9-63
10-70
10-194
13-30

20-7
21-229
246=43
24=132
25-25
30-60
3141

24-215

26e=11
26~=106

19-1

21-°89

9-62
10-69
10-190
13-27

13-22
c0=4
21-202
24=25
24~129
25=20
30~-55
31=-1
43-14

264-208

20-31

19=1

21-185

1B:39:56 PAGE

S-"¢
SEQ e

26=206

26-8
24=104

TYPON
*YPOS

10=152

30-4B
G=45
G~134

4-APR-B’

20~3
21-200
24=~24
24-118
25-14
30-51
31-1
36-32

191

20=29

T YPERR

TABLE

B
O=6
9=-128

10=147

TyPOC

MACRO v04.00
(CREF vO1=05 )

FORMATTER

45-356

21-105
45-371 L

14-19x

19-1

19=1»

20-28+

9-107

10-81
10-204
14=7

9-1(>

10-89

11-7

14=9

=104

10-100

11=10
14-10

20~-17
21=252

26-9
30-68
31-1

20-16
21=251
24-70
24=162
27-12
30-71
31-1

45-669+

20-13
21247
24-58
264-159

9=112

10=-120
11=12
14=12

9=115

10=121
11=15
14«20

9=118
10=126
11=17
18=10

20=20

2021

51=21

31-1
31-1
51=27

24=B7
24=188
29-1
31-1
311
51-30

24=89
264-189
291
31-1
311

45-798

45-893

45-895+

45920

45=922+

L5=: 46"

51-18

26=71

24~182
27=27

21257

21<371

20=24
21=277
24=92
24=196
30-26
I1-1
31=1

Q=121
10=13%
12=1¢7
18=1¢

20~-25
21-283
2695
246=20C
30~27
$1=1
32=1

9-101
9-118
9-131
7=0#
18-126
18«113

Lb=124
IALE]]
Lb=4H
21-8%

21=122#

7=-0#
24=~175

11-05%

11-142

12-61+

12-63+

22-52

24-48

24-49

2454

24-55

24-110

24-114

26=1732

26174

24=109

11-98

24=-113%

11-149

24=165»

12-60
24~166+

12-€2+

24~167

15-39
2610

19-1

27=301

21=311

2245

24=b6

24=47

246=52

24=53

10=30»
16=-30

10=35»

10-104~

10-110»

14=24

16=65

19-1

45-505

45-532

45-542

L5<5%¢

‘Q(’(h'\;

4‘l~:P7

L=104H
4=918
L=-92#%
4=93%

7-04

14=162

21=70

14=22
L=1254
7=0n
L=1054
L=1438
45=722
L=2564
L4=25/78
7=0#
L=1498
7=08

45-742

21=45
10=25+

15165

15-180

15-183

16-62

10~178«

10=207+

18-117

21-74

45=:510

4(5=:61r

45-;64%

49-6

45-;
7

65~;77

65-;83»

45-903
49-6

4=130#

L5=:628
45=:4L8%
45- 57

17=21

21=1474

16=6
15-162

45-:82
45-:B1a
45-;68

18=-7#

45- 73
45-

45-:85#
45--86#

65-604
L5=:490

45625
45«:53

4(5-827
45-:60»

45-487
45-858
45-:63%

L=25%0®

15-103

191

22-93

45-307 45-%311
4=2584

45-483

45-491

45-500
45=;4B4

26-14

26-19

1«127

£5+509

45-513

———

MARC 04,00
(ZRMLBD RMOS/3/2 FORMASTER
CROSS REFERENCE TABLE ((REF vO1-05 )
WRIRK

WRIAK!
RIAK?
WRIRKA
WRIRKB
WRIRKC
WRIRKD

SEQ 06¢

Hg
|}
15«193%8
15-1194
15-128
15-139
15-122

WRIRKE
wRIRKF
WRIRKM
WRTRKX

15-169
15=136
15=174
15«218

XXDP

7=00

WRIRK?
XS12¢

x 13

&-APR=81 18:39:56 PAGE S=17

15=25
10=5#

16~70
16~96
15-1418
15-159#
15-135

15-~18%#
15153
15=179#
15=-130

17=208

9=36%

15-144
15-150

15-154

15=1764

15-171#
17=5

=23

9=39e

940

9=47

9-58

=124

9=126

10=-51

10-53

10=130

10=132

BN R

TARLE

3 SRLTI
13 v'v

Py)
So ke

g 1T

Q3!

63-1

LLabTR
[$aETH

(<S3N
4588

5=5
6=0
5-8

i3 13

me e

AMAT
Ty e

A
L= RY
1S L DR
T

$8 TMM
% » [F
.84 70
2APTY

9-06
L=ABN
AT

L=588

G=264

4-578
4=584
4=57#
L=57»
4-5B8
4574
4=568
4564
4-588
4=56#
4-578
4-574
4-574
4-S68
4-56#

38-1
40-]
19-1
29=1
44=1
31-1
42-1
37-1
39-1
43-1
34-1
32-1
33-1
4—€3
4=62

4-8%
4=-18#
4=31#
4-684
4-68#
18-1294

10-124
21-280

JSWRLO

CKCHR
CKDIG
CKNUM
COMMEN
ENDCOM
ENDTYP

4=568
4-568
4~634

ERRCAL
ERRENT
ERROR

43-2#
28-114#
4-68#

ESCAPE
GETPRI
GETSWR
LOOP
MORETA
MULT
NEWTST
POP
PUSH
REPORT
SETPR]
SETTRA
SETUP
SkIP

4-684
4-68#
4-68#
4=L4
S5-11#4
4-684
4-68#4
4-68¢
C-€8F
4-68#
4-68¢
43-1
4-684
4-68»

16-48
19-1

63-1

43-"

63=1

43-"

43-1

43=1

28-87
24=192

2
2

27-20

27-23

45-831

45-833

45-;19

45-;78

15-205

15-206

15-207

16-39

27-155
21-147

43-1

L3-14

15-208

15-209

16-23

16~24

16-25

16~26

18-93

19-1

18-49

18-76

20-8

22-23
22-17

27-30
27-8

34-1
34+1

36-34
41-1

41-1
41-1

42-1
42-1

44-1
44-1

441
44~

43-1

431

43-1

431

43-1a

&£~0%

5«1

$DB2D
EDB2D
SEOP
.3ERRO
SPOWE
JIREAD
TSSAVE
$SB2D
J$SB20
STRAP
CSTYPD
CSTYPE
$TYPO
CEQUAT
HEADE

CSETUP
CSWRHI

43-1

SE@ 016/

411

L=56#

L=5748

el e= ER=E '8:39:54 PAG% M-1

C REF
G TeLF

LSTAT

.2 MTA

5=216

4-266
4-63
4=64

19-1
45~773
29-1
15-204
16-50
19~1

15-202

9-31
16~7
6-0
9-21
21-140
21-122

%1-]
43-1
9-26

4-65

18-51
19-1

16-21

18-52
20-10

18-53

18-54

18-55

18-69

18-73

18-87

16-27

9-314

16-35
19-1

16~43
19-1

JRM R

HMOS/7372 FORMATTER

RoSs

REFERENCE

JASH
5 TARS

(=684
L=680

SWRSU

TRMTRP

TYPBIN

31=-1
IARS

L{~L88

43-1#

(=684

TYPNAM

4L-684

TYPOCT
TYPTXT

(CREF

5=5

wul~05

5-8

31=1
45-15

32-1

191

30~-48

9=26

)

5-8

4-APR-81

5-8

" 13
"3:39:56 PAGE M-/

6-0

73-1

34-1

354

9=5¢

9-62

9«63

G264

4=A8#

TYPDEC

TYF &M
TYPOCS

TABLE

MACRG v04.00

4-68#
L~684

4-6Bx

(-¢8%

6=-31

9-103

30-46
9=6

14-8

31-1

9~45

6-0

37«1

SEQ 0168
6~=0

38-1

9-21
39-1

19-1
40=1

29-1
411

31=1

&2=1

31=-1

63=1

311

441