Digital PDFs

AH-F919B-MC

August 1981

169 pages

Original

91MB

view download

OCR Version

125MB

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_gray.pdf

OCR Text

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

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

FORMATTER

MACRO

v04.00

18:3G:56 PAGE

=O000 NP N

PURONUNY
~d b et b d b

b s

NN OO0 NN S N

-REM

4-APR-81

IDENTIFICATION

PRODUCT CODE:

AC-F918B-M(

PRODUCT NAME:

(ZRMLBO

PRODUCT DATE:

APRIL

MAINTAINER:

CX DIAGNCSTIC GROUP

AUTHOR :

MIKE

RMO5/3/2 FORMATTER

1981

LEAVITT

THE INFORMATION IN
THIS
DOCUMENT IS SUBJECT TO CHANGE
NOTICE AND SHOULD
NOT BE CONSTRUED AS A COMMITMENT
BY
EQUIPMENT
CORPORATION.
DIGITAL
FQUIPMENT
CORPORATION
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
THE SOF TWARE DESCRIBED
IN
THIS DIOCUMENT
LICENSE
AND
MAY
ONLY BE USED OR COPIED
TERMS OF SUCH LICENSE.

WITHOUT
DIGITAL
ASSUMES
MANUAL.

IS
FURNISHED 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.

(()

1980,1981

DIGITAL EQUIPMENT CORPORATION

& ML S\

RMOS5/73/2 FORMATTER

MACRO v04.00

4-APR-81

18:39:56 PAGE 2

CONTENTS

NP NI NN -+ D000 NN

ABSTRACT

REQUIREMENTS

NN—A-J-—J.A-.A.;—D-A -d wd

2.1
2.2

;
EQUIPMENT
PRELIMINARY PROGRAM

LOADING PROCEDURES

3.1
3.2
3.3

PAPER TAPE AND XXDP
APT
APT ETABLE DEFINITIONS

= OV

STARTING PROCEDURES
4.1
4.2
4.3

STARTING ADDRESSES
OPERATOR ACTION
RH11 = RH70 UNIBUS ADDRESS

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
L

BAD SECTOR FILE

9.1
10.

FORMAT OPERATION
POSITIONER VERIFICATION
HEADER VERIFICATION

BAD SECTOR FILE UTILITY

RH/RM SOF TWARE

DRIVER DOCUMENT

“MOS/3/2 FORMATTER

MACRO v04.00

4-APR-B1

1
D
1B:39:56 PAGE 3

ABSTRACT

THE RM05/3/2 FORMATTER PROGRAM PROVIDES THE FACILITIES TO FORMAT,
TO CHECK THE HEADER AND DATA FIELDS OR VERIFY

THE HEADER FIELD OF

EACH DATA BLOCK ON THE PACK. EACH HEADER FIELD SPECIFIES THE
OF ITS ASSOCIATED DATA BLOCK ON THE DISK PACK.

ADDRESS

IN THE FORMAT OPERATION, THE PROGRAM WRITES THE HEADER OF EACH
DATA BLOCK WITH A CYLINDER NUMBER, TRACK NUMBER AND SECTOR NUMBER.
ALSO, WRITES THE DATA FIELD WITH SELECTED DATA PATTERN.

md s ek b

N =2 OO0 NN DWW~ O 000 NN onn

"ML
B

THE PROGRAM THEN VERIFIES THE WRITTEN DATA BLOCKS VIA EXECUTING

=D e

‘WRITE CHECK HEADER AND DATA'' COMMAND.

THE

THE PROGRAM THEN PERFORMS A VERIFY OF SECTOR ZERO, ON EACH OF
THE TRACKS SELECTED FOR FORMATTING. THE VERIFY IS ACCOMPLISHED BY

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

PONIND 2

HEADER WORDS

TO AN EXPECTED VALUE.

IN THE VERIFY OPERATION, THE PROGRAM READS THE HEADER OF SECTOR O
THRU 29.(18 BIT MODE) OR 31. (16 BIT MODE) ON EACH CYL INDER AND

TRACK TO BE VERIFIED, THEN COMPARES
SURE THEY ARE CORRECT.

THE

TWO HEADER WORDS TO MAKE

REQUIREMENTS

EQUIPMENT
PDP-11

PROCESSOR

12K MEMORY
KW11=L OR KW11=-P CLOCK
PROGRAM LOADING DEVICE
TERMINAL

RH11 OR RH70 CONTROLLER
1 TO 8 DISK DRIVES (ANY COMBINATION OF RMOS'S, RMO3'S OR RMOZ2'S)

e.2

PREL IMINARY PROGRAMS
THERE ARE NO PREQUISITE PROGRAMS, PROVIDING THE RM SUBSYSTEM IS
KNOWN TO BE OPERATIONAL.
IF THE STATE OF THE RM SUBSYSTEM IS
UNKNOWN, THE FOLLOWING PROGRAMS SHOULD BE RUN PRIOR TO USING THE
FORMATTER PROGRAM.

———————

RM05/3/2 DISKLESS TEST, PART 1 & 2

RM05/3/2 FUNCTIONAL

TEST,

PART

LOADING PROCEDURES

3.1

PAPER

TAPE

AND XXDP

THE PROGRAM MAY BE LCADED FROM PAPER

TAPE USING THE ABSOLUTE

LOADER OR IT MAY BF LOADED FROM 'XXDP' MEDIA USING THE APPRUPRIATE

MACRO v04.00

3.2

18:39:56 PAGE 3-1

APT

THIS PROGRAM

IS APT

(OMPATIBLE

THE

EXTENT

IN THE PROGRAM AND WILL WORK THRU THE

FOR OTHER

INTERFACES,

THAT APT HOOKS WiLl

‘OPTION INTERFA(CE'.

APT MAY ONLY LOAD AND START

1.E. LOAD AND DUMP MODE.

AUTOMATIC MODE

NN NN N NN NC

&4-APR-B1
LOADER.

NORWV
S N) - OO® IO

W OO

Wvien

JRMLBD RMOS/ 377 FORMATTER

THE

PROGRAM,

(MONITOR)

INPUT DIALOGUE

IS BYPASSED.

THE BUSS ADDRESS AND CONTRCLLER INTERRUPT VECTOR !S
DEFAULTED.

DUMP MODE

INPUT DIALOGUE AFTER PROGRAM STARTS
3.5

APT ETABLE DEFINITIONS
THE

FOLLOWING DEFINITIONS ARE

VALID FOR SPECIFYING APT

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

SOFTWARE ENVIRONMENT
:

O IF

VIA RUNNING

APT

SCRIPT MODE

STANDLONE MODE

:
ENVIRONMENT MODE

BIT 7 = 1
= 0

ETABLE DOES SIZING
PROGRAM DOES SIZING

BIT 6 = 1
=0

SPOOL MESSAGES TO APT IF SCRIPT MODE
DON'T SPOOL TO APT

BIT 5 = 1
= 0

SUFPRESS CONSOLE OUTPUT
ALLOW CONSOLE OUTPUT

BIT 4 TO BIT O ARE NOT USED
3.

SWITCH 1

(SOF TWARE SWITCH REGISTER)

IF ENVIRONMENT MODE BIT 7 (SIZING BIT )

IS SET 1O 1,

THE SOF TWARE SWITCH REGISTER WILL BE USED,
OF THE HARDWARE CONSOLE SWITCH REGISTER.
4.

SWITCH 2 (USER SWITCH REGISTER)
NOT USED

CPU OPTIONS
NOT USED

MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES

INSTEAD

FORMATTE

MACKO V04.00

4=-APR=81

Fol

18:39:56 PAGE

3-2

’s

INTERRUPT VECTOR 1:

BUS PRIORITY 1:

INTERRUPT VECTOR 2:

10.

BUS PRIORITY 2:
NOT USED

11.

BASE ADDRESS:

US[D WHEN ENVIRONMENT MODE BIT

1;DEFAULT

13.

NO7 USED

USED WHEN ENVIRONMENT MODE BIT 7

14.

—O0

W=
omwgmbw
o»

IN CHECK MODE.

CONTROLLER DESCRIPTOR WORDS:

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

STARTING PROCEDURES
4.1

NOND W
OOV

D el — et
ok
il el
)
il ol
il ol

176700

USED WHEN ENVIRONMENT MODE BIT 7 = 1. ANY NONE ZERO

SECTORS FOR A TRACK

OO O YT
VN S

1;DEFAULT =

CONTROLLER DESCRIPTOR WORDS:

NUMBER SPECIFIES THAT PROGRAM RUNS

~ (sJe ooto deg

254

12. DEVICE MAP:
USED WHEN ENVIRONMENT MODE BIT 7 = 1. EACH BIT SET TO
1 IN BITS O TO 7 WILL SELECT THE CORRESPONDING DRIVE
TO BE TESTED.
BITS 8-15 ARE NOT USED.

134

NOT USED.

]

e
WA
2O 000 N NS Ny

b
D

il
D
b
D
el
i
il
il
il

NN NN

PO AU N AU

nor

NOT USED

STARTING ADDRESSES

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

THE RESTART ADDRESS PROVIDES THE OPERATOR WlTH

THE ABILITY TO
CHANGE THE DEFAULT
RM/RH ADDRESSES AND TO 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 FIRST START, THE STATUS OF THE DRIVES
ON THE SELECTED MASSBUS SUBSYSTEM WILL BE TYPED QUT.
THIS TYPEQUT
MAY BE INHIBITED ON SUBSEQUENT STARTS BY SETTING Sw<02>.

ZRML B0

BM0O5/3/2

FORMATTER

1;5

MACRD

V04,00

4-APR-B1

174,

THE

1B:39:56 PAGE

PROGRAM WILL

1
3-3

THEN TYPE

THE

FOLLOWING MESSAGE
:

‘DO YOU WANT TO FORMAT (L) Y 2°

176

ENTER THE

179

MODE WILL BE ENTERED.

177
178

APPROPRIATE

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

180

’gf

182

}23

THE PROGRAM WILL THEN ASK FOR THE FORMATTING MODE:

'DO YOU WANT 16 BIT MODE

(L)

Y ?°

185
186

ENTER THE APPROPRIATE CHARACTER: 'Y' FOLLOWED BY A CARRIAGE RE T'/RN
OR JUST A CARRIAGE RETURN (DEFAULT) FOR 16 BIT MODE. IF THE

338

MODE .

187

RESPONSE IS 'N' FOLLOWED BY 4 CARRIAGE RETURN, THEN ENTER 18 BIT

;39

}g%

THE PROGRAM WILL THEN ASK FOR A DRIVE:
‘DRIVE:

194
195

ENTER THE ADDRESS OF THE DRIVE TO BE FORMATTED.
ENTER THE DRIVE
NUMBER FOLLOWED BY A CARRIAGE RETURN. IF THE DRIVE SELECTED IS NOT

}gg

THE DRIVE ADDRESS REQUEST.

196

AVAILABLE,

199

NOTE:

200
58;

THE

PROGRAM WILL

IT NOT POSSIBLE

TYPE AN ERROR MESSAGE AND RETURN T0

TO ENTER A MULT-DRIVE ENTRY FOR

THE ONLY WAY ALL THE DRIVES CAN BE FORMATTED,
TO RUN THIS PROGRAM.

203

582

ggg

THIS PROMPT.

IS TO SETUP A CHAIN

AFTER THE OPERATOR HAS SELECTED A DRIVE, THE OPERATOR WILL BE

ASKED TO CHANGE THE DRIVE PARAMETERS WITH THE FOLLOWING PROMPT:

*CHANGE DRIVE PARAMETERS (L) N ?°

508

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

209
210
211
212
5;2

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

%}g

THE PROGRAM WILL ASK FOR ADDRESS LIMITS FOR THE SELECTED DRIVE:

g;g
219
220
221
222

gsz

205
226
227

}?é

"ENTER ADDRESS LIMITS: °
A

THE PREVIOUSLY SELECTED OR DEFAULT VALUES FOR BEGINNING CYLINDER
AND TRACK AND FOR ENDING CYLINDER AND TRACK WILL BE TYPED OUT.

IF A 'CARRIAGE RETURN' IS TYPED AS A RESPONSE, THE PRESENT VALUE
WILL BE USED: IF A "PERIOD' IS TYPED, THE PROGRAM WILL BYPASS

THE REMAINING ENTRIES AND WILL USE THEIR PRESENT VALUES.

NOTE: THAT THE CYLINDER AND TRACK VALUES ARE DECIMAL NUMBERS.
THE ADDRESS SPECIFIED BY THE BEGINNING TRACK MUST BE LESS THAN
THE ENDING TRACK ADDRESS IF THESE TWO ADDRESSES ARE ON THE SAME

CYLINDER.

ON THE OTHER HAND, THE ENDING CYLINDER ADDRESS MAY

FORMATTER

4-APR-B81

18:39:56 PAGE 3-4

BE LESS THAN THE

SRy
oy Ay

ZAMUBO RMOS/3/2

MACRO v04.00

PROGRAM WILL

STARTING CYLINDER ADDRESS.

FORMAT

VERIFY

THE

DJSK

PACK

IN THMIS CASE,

FROM

THE

Twi

STARTING

E;L{zggg TO CYLINDER 822 AND THEN FROM CYLINDER O TO THE ENDING
L

THE PROGRAM WILL
OR

235

THEN TYPE:

'STARTING FORMAT'

'STARTING HEADER VERIFY'
NOTE: IF A NEW PACK IS UNFORMATTED, THE PROGRAM ALSO ASKS YOU T0
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

agsgxzéNG A 'CONTROL O'.
'PRESENT ADDRESS

11.

TO CHANGE

IS:

THE DRIVE

THE PROGRAM WILL

(XXX

IS DURING THE OPERATION

TYPE

THE FOLLOWING

TXX'

EITHER THE ADDRESSING MODE

THE

OPERATION MODE,

PROGRAM MUST BE STARTED FROM LOCATION 200 OR 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 IS STARTED FROM LOCATION 204.

EggggALHE RH11/RH7C ADDRESS

IN RESPONSE

TO THE REQUEST FROM THE

SWITCH REGISTER SETTINGS

THE PROGRAM IS 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

BY TYPING A 'CONTROL G'.

THE PROGRAM WILL RECOGNIZE THE °'CONTROL G'

AT ANY TIME EXCEPT WHEN THE PROGRAM IS

IN KEYBOARD ENTRY MODE, OR

IS AT A HIGHER PRIORITY PROCESSING AN DRIVE INTERRUPT.

THE

"SOF TWARE'

SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE

PROMPT FROM THE

SWITCH ENTRY ROUTINE:

'SWR = NNNNNN

285

NEW ="'

EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH REGISTER
IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT REQUIRED. °'RUBOUT'
AN?TECO?T?gL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING
SWITCH

ENTRY.

IRMLBO "M0O5/3/¢

FORMATTER

MACRO

v04.00

Ré

287
88

4-APR-81

I
18:39:56 PAGE

1
3-5

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THME °SOFTWARE®' SwiT(m
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1°'S IN THE SWIT(HMES.

2RG
399

ALL SWITCH REGISTER REFERENCES WILL BE TO THE *SOFTWARE® REGISTER
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED.

291

292

2693

Sw<15>=1

HALT ON ERROR

295

SW<10>=1

BELL ON ERROR

297
298
%38

Sw<02>=1
SW<01>=1
SW<00>=1

DCON'T DISPLAY SYSTEM STATUS AFTER INITIAL
LOOP ON THE CURRENT TRACK
LOOP THE PROGRAM ON THE SELECTED DRIVE

294

SW<13>=1

296

SwW<09>=1

301
302
303

CEASRERI

206

ggg

INHIBIT ERKOR TYPEOQUTS

LOOP ON ERROR

START

ERROR MESSAGES

'RH INTERRUPT OCCURRED (RMAS=0) = AN INTERRUPT OCCURRED, BUT

NOTHING ON THE MASSBUS IS INDICATING AN ATTENTION.

309
;}?

312

315
g;?

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

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

;}2

318
glg

"UNEXPECTED ATTENTION OCCURRED' - THE INDICATED DRIVE INTERRUPTED,
BUT NO INTERRUPT WAS EXPECTED FROM THE INDICATED DRIVE.
'MASSBUS PARITY ERROR (MCPE=1)" = A CONTROL BUS PARITY ERROR

WAS DETECTED BY THE RH WHEN THE

INDICATED REGISTER WAS READ.

'OPE’

351

%Sg

'DRIVE OFFLINE' -~ THE INDICATED DRIVE HAS GONE OFFLINE

326
327
ggg

'PERSISTENT DRIVE UNSAFE ERROR' = THE INDICATED DRIVE HAS BE{OME
UNSAFE AND THE CONDITION CANNOT BE CLEARED BY [SSUING °'DRIVE
CLEAR" INSTRUCTIONS.

330

ggg

332

INDICATED ADDRESS AND RECEIVED NO RESPONSE.

'UNCORRECTABLE MASSBUS PARITY ERROR' - THE PROGRAM ATTEMPTED

TO PERFORM AN OPERATION AND DETECTED 3 SUCESSIVE MASSBUS PARITY

ERRORS OR THE PROGRAM ATTEMPTED TO CLEAR A 'PAR' ERROR IN THE

%%2
335
g%g

'RH DIDN'T RESPOND TO ADDRESSING' = THE PROGRAM ACCESSED THE

RH AT THE

DRIVE AND A PARITY ERROR OCCURRED.
10.

'SOFTWARE TIMEOUT' - THE OPERATION FAILED TO COMPLETE WITHIN
1 SECOND.

238

11.

'DRIVE UNSAFE ERROR' = A NON-PERSISTENT UNSAFE ERROR OfCURRED

341

12.

;28
342

DURING THE OPERATION.

'CONTROLLER/DRIVE ERROR DURING WRITE"' = THE

INDICATED NON=DATA

ERROR WAS DETECTED DURING A FORMAT OPERATION.

2RMLBO

RM0OS/3/72

EORMATTER

MACTRO

v04.00

343

4-APR-81

18:39:56 PAGE

3-6

344
;25

13.

"CONTRCLLER/DRIVE ERROR DURING WRITE (HECK' = A NON=DATA [RROR
OCCURRED DURING THE WRITE (HECK.

347
%48

14.

'DATA ERROR DURING WRITE CHECK' = A DATA RELATED ERROR OUCURRED
DURING A WRITE (HECK OPERATION.
A DATA ERROR [S CONSIDERED

[}

349

TO BE ONE OF THE FOLLOWING ERRORS:

gg?

‘HCE®, OR "FER,

352

15.

§§2
2

'RETRICS NOT

SUCESSFUL

SECTOR NOT

‘DCk*',

'OPI',

ACCEPTABLE'

'DTE",

SECTOR FAILED DURING RETRY FOLLOWING A DATA ERROR.

THE

[NDICATED

355

16.

358
ggg

17.

361

18.

364
365
ggg

19.

"TRACK/SECTOR FIELD IN HEADER IS NOT CORRECT' - THE TRACK AND
SECTOR FIELD FROM A HEADER READ DURING THE VERIFICATION IS NOT
CORRECT.

368
369

20.

'WRITE CHECK ERROR' = THE RH REPORTED A WRITE (HECK ERROR AND
NO DRIVE ERRORS WERE SET.

;gg

gg%

370
371
372
373
72

375
g;g

"CONTROLLER/DRIVE ERROR VERIFYING HEADERS' = AN ERROR OCCURRED DURING

THE VERIFICATION PASS AFTER FORMATTING.

"'HCE' ERROR VERIFYING HEADERS' = A HEADER ERROR OCCURRED DURING
THE VERIFICATION PASS AFTER FORMATTING.

"CYLINDER FIELD IN HEADER IS NOT CORRECT' = THE CYLINDER FIELD

FROM A HEADER READ DURING THE

MISCELLANEOUS

FORMAT TIME

378
%gg

VERIFICATION PASS

IS NOT

CORRECT.

eececsccceea=-

THE 'FORMAT' MODE WILL TAKE APPROX. 10 MINUTES FOR AN ENTIRE RMO3/?2
AND APPROX. 30 MINUTES FOR AN ENTIRE RMOS.
:

381

THE 'VERIFY' ONLY MODE TAKES APPROX. 7 MINUTES FOR AN RM03/2 AND

§g§

APPROX. 20 MINUTES FOR RMOS.

384

ggg

(457

387
388
ggg
;g}

393
294

395
;gg

398

HALTING THE PROGRAM
THE OPERATOR SHOULD NOT HALT THE PROGRAM VIA THE CONSOLE DURING A
FORMAT OPERATION. HALTING THE PROGRAM MAY LEAVE A SECTOR INCORRECTLY
FORMATTED.
TO TERMINATE THE FORMAT, TYPE A 'CONTROL C°.

SURFACE VERIFICATION

THE FORMATTER PROGRAM IS NOT INTENDED TO BE USED TO PERFORM D]SkK
PACK VERIFICATION.
IF THE PROGRAM REPORTS A SECTOR AS BEING °'NOT
ACCEPTABLE', THIS MAY IN FACT INDICATE A BAD SURFACE; HOWEVER,
SECTORS WHICH 'PASSED' MAY OR MAY NOT BE GOOD.

ISRM 5 i_ a2
)

FORMAT COPERATION

THE PROGRAM FORMATS THE PACK ONE

SPECIFIED BY THE OPERATOR.

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

IF AN ERROR OCCURS DURING THE WRITE, THE PROGRAM WILL RETRY THE

WRITE BEFORE

o P S
N el 3 ot e
2 ol ol oy ol o
NN W IWNNI NPORONINURU
RO RO N — — -3
PN —O0ONOCOWVME
NN 2O 000N

THE REMAINDER OF

THE

A DATA RELATED ERROR

IS DETECTED

TRACK

IS CHECKED.

DATA ERRORS ARE

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

PROGRAM WILL RETRY
TO THE NEXT TRACK.

ENCOUNTERED

THE

COMMAND FOR

THE

ENTIRE

TRACK BEFORE

THE

PROCEEDING

IT SHOULD BE NOTED THAT THE FORMATTER PROGRAM 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 PACK
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'

SN N
N—=OOD
N (o

CANNOT BE ASSUMED TO BE GOOD.

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

Ak
AR N

IN ANY OF THE REMAINING SECTORS, EACH SECTOR WILL BE HANDLED AS
DESCRIBED ABOVE.

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

446

447
448
445
450

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

OF SECTOR O ON THE BEGINNING TRACK OF EACH CYLINDER FORMATTED.

451

o456

CONTINUING.

DURING THE WRITE CHECK (A DATA ERROR IS 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,

445

455

LIMITS

THE PACK IS WRITTEN WITH A 'WORST CASE' DATA PATTERN, WHICH IS A OCTAL

444

454

TRACK AT A TIME BETWEEN TYE

NUMBER 155555, FOLLOWED BY AN OCTAL NUMBER OF 133332,

ine

8.1

435

452
453

18:39:56 PAGE 3-7

PROGRAM DESCRIPTION

416

443

4-APR-B1

n S

s
ol
ob
il
il

FoF F ol LlSN

@ 1v BNT, NNLF NN

MACRO v04.00

THIS CHECK IS PERFORMED TO CONFIRM THAT THE DISK'S POSITIONER
ADVANCED PROPERLY DURING THE FORMAT OPERATION.

8.3

HEADER VERIFICATION (VERIFY ONLY)

THE HEADER VERIFICATION OPERATION PERFORMS A READ HEADER AND DATA

ZRML B
'A%

458
45%
LED
461
462

“h3
LE4

465

466
467
468
469
470

471
472
473
474
475
476
477
478

479
480
481
482
4L83%
484
485

RMOS/3/2

FORMATTER

MACRO v04.00

4-APR-81

L - %
18:39:56 PAGE 3-8

TO AN ENTIRE TRACK AT A TIME, THEN COMPARES THE EXFECTED HEADER
WORDS WITH RECIEVED HEADER WORDS. THE CYLINDER ADDRESS FIELD FROM THt
HEADER IS COMPARED TO THE EXPECTED CYLINDER, IF THE CYLINDER ADDRESSES

DO NOT COMPARE, AN ERROR MESSAGE IS REPORTED. NEXT,

THE TRACK/SECTOw

FIELD FROM THE HEADER IS COMPARED TO THE EXPECTED TRACK/SECTOR, IF
THE TRACK/SECTOR ADDRESSES DO NOT COMPARE, AN ERROR IS REPORTED.

VERIFICATION
CYLINDER AND
MODE) OR 31.
IS PERFORMED
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 CHE(CK
TC CONFIRM THAT A DISK HAS PREVICUSLY 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 CONTAIN THE BAD SECTOR FILE ON THE PACK FOR BOTH
30. SECTOR(18 BIT MODE) AND 32. SECTOR(16 BIT MODE) OPERATIONS.
é?EOBATA FIELD OF

EACH SECTOR OF

THE BAD SECTOR FILE

IS DESCRIPTED

THE FIRST TWO WORDS IN THE DATA FIELD SPECIFY THE SERIAL NUMBER Of
THE PACK.
THE SERIAL NUMBER MUST BE A NON-ZERO NUMBER AND CONSISTS
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 SIGNIFICANT DIGITS.

486

THE THIRD WORD IS ALWAYS ALL 0'S.

488
4,89
490
491
492
493
494
495

THE FORTH WORD IS USUALLY ALL 0'S, UNLESS THE PACK IS AN AL IGNMENT
PACK, IN WHICH CASE THE WORD WILL BE 177777.

4L87

THE FOLLOWING 252. WORDS DEFINE THE BAD SECTOR ADDRESS INFORMATION.

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

UNUSED LOCATIONS ARE RECORDED WITH ONES (177777).

;gf SEgTORS ON THE LAST TRACK (BSF) ARE DIVIDED INTO FOUR GROUPS AS
LLOWS:

(1) SECTORS 0, 2, 4, 6 AND 8. CONTAIN THE MANUFACTURES (MFG) DEF INED
BAD SECTORS FOR 16 BIT MODE.
(2) SECTORS 1, 3, 5 5, 7 AND 9. CON:AIN THE MANUFACTURES (MFG) DEF INED
BAD SECTORS FOR 18 BIT MODE.

(3) SECTORS 10., 12. THRU 30. CONTAIN
SECTORS FOR 16 BIT MODE.

THE USER

(USR)

DEFINED

BAD

(4) SECTORS 11., 13. THRU 31.
SECTORS FOR 18 BIT MODE.

THE USER

(USR)

DEFINED

BAD

CONTAIN

THE SECTORS IN EACH GROUP ARE IDENTICAL AND SECTORS O, 1, 10. AND 17,

ARE USED AS REFERENCE SECTORS BY THE PROGRAM.

~N
o LAk

VY LVET
INo 1o LRNTE SN

v WAL AL A WA LY AU
n N POPOAUNDNINY
o 2 eb
s

FORMATTER

MACRO v04.00

9.1

4-APR-B1

18:39:56 PAGE

O NN
N —

NN N WN N AN N NN

(W IV TV AV LV LV I TV IV )

3-9

BAD SECTOR UTILITY
THE PROGRAM PROVIDES A FEW UTILITY ROUTINES

SECTOR FILE.
MESSAGE
THE

THE BAD

TO ACCESS THESE ROUTINES START THE PROGRAM AT 204.

TO ALLOW THE OPERATOR TO ACCESS THE UTILITIES BY ENTERING

SELECTED FUNCTION NUMBER.

WFDATE "R DD SECTORS. . c.cicsvvscvensosncscnsonvee 0
PRINT
'MFG' BAD SECTORS........ prednsudes
s nnvins vel
BRINT - "USKR" BAD SELTORS iie-ssssmssnoscarcves covaenl

'USR' BAD SECTOR FILE.......... cesossess s3

PRINT A SECTOR OF

THE LAST

TRACK...:cocecccenscscesse 4

PRINT THIS MESSAGE .cvac-isssonssssunvsncsvsosssons csad
CONTIMIE . .« s csvsnssosnsssssossnsonsosvssvecsosoces <CR>

ENTER UTILITY FUNCTION (HELP=5):
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.
EXAMPLE:

CYL,TRK,SEC= C,T,S<CR> ;ENTERS BAD CYL,TRK,SEC
CYL,TRK,SEC= <CR>
SEXIT

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

NN
NN —

TO HANDLE

BEFORE THE PROGRAM FORMATS THE PACK,THE PROGRAM TYPES THE FOLLOWING

INITIALIZE

NI AT
YUY
NNAN
AN NN

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

EO?TENTS OF

16 BIT

"MFG OR USR' BAD €"CTOR FILE

(DECIMAL)

CO?TENTS OF 18 BIT
C.T.

"MFG OR USR' BAD SEL/OR FILE

(DECIMAL)

WHERE "XXXXXX' IS THE OCTAL SERIAL NUMBER OF THE PACK. WHERE 'C'
IS THE DECIMAL CYLINDER ADDRESS, 'T' IS THE DECIMAL TRACK ADDRESS,
AND 'S" IS DECIMAL SECTOR OF THE BAD SECTOR. IF THERE ARE NO ENTRIES
nggggTLY IN THE BAD SECTOR FILES, THE FOLLOWING TYPEOUT WILL
A

PACK S/N:

XXXXXX

CONTENTS OF 16 BIT 'MFG OR USR' BAD SECTOR FILE
* NO ENTRIES «

(DECIMAL)

“2RM B0 RMO5/3/2 FORMATTER

MACRO v04.00

$71

599
600
601
602
603
604
605

607

"MFG OR USR' BAD SECTOR FILE

(DECIMAL)

THE FOURTH (3) UTILITY WILL RESET ALL BAD SECTOR ENTRIES
IN THE
'USR' BAD SECTOR FILE TO -1. THE SERIAL NUMBER WILL NOT BE INITIALIZED
BY THIS UTILITY.

580
581
532
583
584
585
586
587

598

~ NO ENTRIES «

579

593
59
595
596
567

18:39:56 PAGE 3-10

CONTENTS OF 18 BIT

572
573
574
575
576
577
578

588
589
590
591
592

4-APR-B1

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

OF DATA FROM THE LAST TRACK ON THE LAST CYLINDER (BAD SECTOR FILE).
THIS WILL ALLOW THE OPERATOR TO PHYSICALLY SEE WHAT

SECTOR FILE.

IS IN THE BAD

THE DATA IS TYPED OUT IN BLOCK FORM IN OCTAL.

TYPING A '5" WILL ALLOW THE OPERATOR TO DISPLAY THE UTILITY MESSAGE
AGAIN ON THE CONSOLE. TO CONTINUE THE PROGRAM OFERATION, JUST TYPE
A "'CARRIAGE RETURN'' <(CR>.
10.1

RH/RM DRIVER

THIS DOCUMENT

IS THE USER'S GUIDE FOR THE RH/RM DRIVER.

TO INITIALIZE THE DRIVER:
JSR
RETURN

PC.RMINIT

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

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:
DRVSTA
>0

DRIVE STATE
ONL INE

OFFLINE, DRIVE

IS NOT AN RMO5/3/2, OR

NONEXISTENT DRIVE
UNSAFE

THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE TAGGED °'DRVTYP'.

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

DRVTYP

0
4
5

CONDITION

NONEXISTENT DRIVE
RMO3
RMO2
RMOS

CZRMLBO RMOS5/3/2 FORMATTER

MACRO v0&4.00

4-APR-B1

1B8:39:56 PAGE

3-11

-1

THE

10.3

"RMINIT®

SEG Guia

NOT AN RM05/3/¢

ROUTINE WILL

DO A READIN PRESET AND WILL

AFTER THE DRIVER HAS BEEM INITIALIZED,
FOLLOWING SEGUENCE.

CALL:

JSR

PNTDPB

RO,RMO3

JMAKE

FMT16.

IS CALLED USING

THE

THE CALL

;ADDRESS OF

RETURN1
RETURNZ

SET

DPB+

JRETURN IF QUEUE IS FuLL
JRETURN IF REQUEST IS IN

;QUEUE OR THERE IS AN
SERROR CONDITION

*DPB- (DATA PARAMETER BLUCK)
PNTDPB:

.BYTE
.BYTE

0
0

AYTE

: (2) COMMAND
;(3) PSEL AND A17 AND A16
;(4) WORD COUNT (MUST BE NEG.)
; (6) BUFFER ADDRESS OR
;JREGISTER TABLE POINTER
;(10) SECTOR ADDRESS OR

BYTE

:(11)

.WORD
.WORD

O
O

BYTE
BYTE
.WORD
.WORD

.WORD

;(0)
;(1)

O
O
0
O

DRIVE NUMBER
OFFSET VALUE OR FMT16, ECT, AND HC]

;FIRST REG.

INDEX

TRACK ADDRESS 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
JREGISTERS ON AN ERROR. IF LEFT
:ZERO REGISTERS ARE NOT SAVED.
;(16) STATUS/ERROR INDICATOP
;BIT15=1=>ERROR OCCURRED

;BI1T07=1=>DONE

;BIT14-BIT09 AND BIT06-BI1103
s 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

WITH THE ELAPSED TIME
IN THE

MoV

#16.,-(SP)

JSR

PC ,RMTMR

FOLLOWING MANNER:

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

IT SHOULD BE NOTED THAT YOU MUST PROVIDE THE CODE TO DRIVE
CLOCK.
AND THE ELAPSED TIME MUST BE IN MILLISECONDS.
THE DRIVER WILL

SET

THE

TIMEOUT

TO 1

SECOND FOR ALL POSITIONING

AND DATA TRANSFER OPERATIONS AND WILL SET THE TIMOUT TO 30
SECONDS FOR ERROR KECOVERY OPERATIONS.
10.4.1

EXAMPLE - WRITE 1000. WORDS

THE

v04.00

L=-APR-B1

1%:

686

(2R

2%:

695

FMTDPR:

1R:39:56 PAGE

JSR

FMTDPB
B8R

RO,RMO03
1%

;DPB ADDRESS
JWAIT FOR QUEUE IF FULL

5:10%016

BM]

ERRORT .

+ERROR OCCURRED

.BYTE
BYTE
.BYTE
LY.

S
O
161
O

;DRIVE #3
3
;WRITE COMMAND
v

.WORD
JOVIE

WRTBUF
8

;BUFFER ADDRESS
;SECTOR

.BYTE
.WORD
.WORD
.WORD

=1000.

5
400
ERRTRS
0

ALTERNATE

.WORD
.WORD

.WORD
.WORD
BYTE
.WORD
10.5

;CALL THE DRIVER

gés

.WORD

FMTDPR:

3-12

JWAIT FOR COMMAND

TO COMPLETE

;WORD COUNT

s TRACK
sCYLINDER
;ERROR TABLE
;STATUS/ERROR INDICATOR

DPB SETUP

5
WRITE
=1000.
WRTBUF
3.5
400,ERRTRS,0

;THIS SETUP ACHIEVED
;EVERYTHING THE

;ABOVE TABLE DID, BUT
;IN A CLEANER FORMAT

RH/RM REGISTERS

MNEMONI C

RMCS1
RMW(
RMBA

RMDA

RM(CS?2
RMDS

RMER1
RMAS
RMLA
RMDB
RMMR1
T

RMSN
RMOF
RMDC

RMHR
RMMR?

RMER?
RME C1

RMEC?

INDEX

0
2
4

14
16
20
22
24

30
32
34

36
40
42
44
46

v04.00

10.6

L-APR-B1

18:%9:56 PAGE

COMMANDS PERFORMED BY

3-132

THE DRIVER

COMMAND TYPE

10.7

OOV

i
et
b

READ DATA
READ HEADER & DA TA

N =2 (N = N =2 NN =2 =2

il
i sl

DATA

WRITE HEADER & DATA

d o

WRITE

WRT CHK HDR & DA TA

SINOON NN

CHECK DATA

il o

SEARCH
GET REGISTER(S)
:
SET FORMAT
SELECT DRIVE

WRITE

ZZTVVZ2T0

el
i
o
i

B BN

PACK ACKNOWLEDGE

DRIVE (LEAR

RELEASE
OF ~SET
RETURN TO CENTER
READIN PRESET

SEEK

RECAL IRATE

el el -t

=2 b a2 O (=]

CODE

HOUSEKEEPING

wova

POSITIONING

DATA TRANSFE R
SPECIAL PROV IDED BY THE DRIVER

DPB STATUS/ERROR INDICATOR WORD
THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST.
THIS IS ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO
A ONE.

BIT NO.
o

e o

MEANING IF ON A "11""

ERROR OCCURRED

164(1)

USER MADE A REQUEST FOR A FUNCTION TO BE

13(1)

USER MADE A REQUEST FOR A FUNCTION

DONE
DONE

(BIT07=0); BITS 14-9 SPECIFIES TYPE
I
(BIT07=1); BITS 6-3 SPECIFIES
TYPE

PERFORMED ON AN OFFLINE OR UNSAFE

TO BE PERFORMED ON A DRIVE

UNLOAD REQUEST

IN QUEUE.

DRIVE

THAT HAS AN

12(2)

PERSISTENT UNSAFE

11(2)

UNCORRECTABLE PARITY ERROR OCCURRED

10€2) (4)

FATAL PARITY ERROR.
A MASSBUS CLEAR WAS
PERFORMED, ALL QUEUES WERE EMPTIED, AND

ALL DRVACT'S SET

CONDITION EXIST.

T0 THE

IDLE

STATE

2/2

FORMATTER

MACRO

v04.00

4-4PR-B1

1B:39:56 PAGE

3-14

O D0~y NS

RRRBRR®0000 0o (0 A0 0o 06 00 (o 0 (e 0 W 00w

SEC

9(3) (&)

SOF TWARE

TIMEOUT OCCURRED ON TWIS DRIVE

8(4)

SOF TWARE

TIMEOUT OCCURRED ON ANOTHER DRIVE

DONE

" ERROR OCCURRED DURING AN 1/0 OPERATION

5(2)

ERROR OCCURRED DURING AN OPERATION
OTHER THAN [/0.

4(2)

CORRECTABLE UNSAFE CONDITION OCCURRED

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

et e

WA = OO NN
D WA

os
& ¢

€(2)

—

PORT REQUEST TIMEOUT.
THE DRIVER REQUESTED
THE DRIVE BUT THE OPPOSITE PORT DID NOT
RELEASE THE DRIVE WITHIN 15. SECONDS.

NON-EXISTENT DRIVE REQUESTED.

USER MADE

REQUEST WASN'T PUT

(RH/RM

A REQUEST

FOR A NON-EXISTENT DRIVE.

NOTES FOR ABOVE
(1

IN QUEUE.

REGISTERS WERE NOT SAVED)

(2)

REQUEST QUEUE HAS BEEN EMPTIED.

THE DRIVER

ISSUED A "DRIVE CLEAR'' TO THE DRIVE.

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

(4)

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 A FEW ERRORS

WHEN THIS

TYPE OF

THAT CAN OCCUR THAT

ERROR IS DETECTED BY

CAN NOT BE

INDICATED

THE DRIVER IT WILL MAKE

AN ERROR CALL_ OF THE FORM 'ERROR N'', WHERE 'W'' IS THE ERROR

NUMBER AND THE ERROR WILL BE AN EMT INSTRUCTION.
N

TYPE

DATA AVAILABLE

—

10.8

REQUEST QUEUE HAS BEEN EMPTIED.
THE
DRIVER ISSUED A MASSBUS INIT.
ALL
RH/RM REGISTERS FOR THE DRIVE WERE

RH70 INTERRUPT

*R4= RMCS1'S ADDRESS

IN A DPS.

001

CZRMLBO RMO5/3/¢ FORMATTER

MACRD v04.00

4-APR-81

3267‘.
858

R5G
860

18:39:56 PAGE 3-1%

OCCURRED (RHAS=0)
2

UNEXPECTED ATTENTION

OCCURRED

1
842

863
864
ggz

R1= DRIVE NUMBER

R3= ATA BIT
*RL= RM(S1'S ADDRESS
R5= (RMAS)
RMERRS
=RMDS

RMERRS +2=RMER

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

867

MASSBUS PARITY

RD.ADR= ADDRESS Of

REG. READ

870

[

MASSBUS PARITY

WRT.AD= ADDRESS OF

REG.

ggg

871

ERROR

ERROR (PAR=1)

g;%

B74
875
876

(MCPE=1)

R1= DRIVE NUMBER
R3= ATA BIT
*R4= RMCS1'S ADDRESS
R5=

878

(RMAS)

RMERRS

879
880
g}
ggz

WRT.WD= WORD WRITTEN

RD.WRD= WORD READ BA(K

ADDRESS PLUG CHANGE
BIT SET ('OPE' ERROR)

877

RD.WRD= WORD READ

=RMDS

RMERRS +2=RMER1
RMERRS+4=RMER?
RMERRS+6=RMMR?
»

THIS

THE

ACTUAL

UNIBUS ADDRESS

(176700)

WRITTEN

FORMAT

TER

MACRO

VO4.00

4-APR-81

6 2
18:39:56 PAGE 4

:*LAST REVISION 04=-APR-81
(ZRMLBO RMQOS5/3/2 FORMATTER
LTITLE
;=(OPYRIGHT (C) 1981
:*DIGITAL EQUIPMENT

CORPORATION

'COLORADO SPGS., (0. 80919
-PROGRAM BY MIKE LEAVITT

~THIS PROGRAM WAS ASSEMBLED USING

1 *PACKAGE
-a

"SBTTL
i

64
66
&7

SWITCH

mmEmemememen

28
o
o
.%
o*
e

15
13
10
9
2
1

.SBTTL
001100
104000

000004

000011
000012

000015

000;00
177776
177776
177774
1772772
177570
177570

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

000000

THE PDP=11

18=MAR=-81

MAINDEC

SYSMAC

OPERATIONAL SWITCH SETTINGS

pet|

(MAINDEC=11=DZQAC=(5),

USE
e

- -

HALT ON ERROR
INHIBIT ERROR TYPEOQUTS
BELL ON ERROR
LOOP ON ERROR
DON'T DISPLAY SYSTEM STATUS AFTER INITIAL START
LLOOP ON THE CURRENT TRACK
LOOP THE PROGRAM ON THE SELECTED DRIVE

BASIC DEFINITIONS

:*INITIAL ADDRESS OF THE STACK POINTER #xx 1100 ===

STACK
ERROR
SCOPE

= 1100
= EMT
= I07

;:BASIC DEFINITION OF
;:BASIC DEFINITION OF

ERROR CALL
SCOPE CALL

:'HISCELLANEOUS DEFINITIONS
HT
=
;:CODE FOR HORIZONTAL TAR
LF

= 12

;;CODE FOR LINE FEED

ggu .

= Y27776

; ;PROCESSOR STATUS WORD

(R
CRLF

=
= 200

:;CODE FOR CARRIAGE RETURN
::;CODE FOR CARRIAGE RETURN~-LINE FEED

STKLMT

= 177774

;;STACK LIMIT REGISTER

DSWR
DDISP

= 127570
= 177570

; ;HARDWARE SWITCH REGISTER
; :HARDWARE DISPLAY REGISTER

PIRQ

= Y27772

: :PROGRAM INTERRUPT REQUEST REGISTER

. *GENERAL PURPOSE REGISTER DEF INITIONS

= X0

: ;GENERAL REGISTER

R2
R3
R4
RS
R6
R7

=
=
=
=
=
=

;;GENERAL
;JGENERAL
:;GENERAL
:;GENERAL
; ;GENERAL
; ;GENERAL

= %1

R
X3
%4
%5
36
%7

= %6

= ¥

'PRIORITY LEVEL

PRO

= 0

; sGENERAL

;:STACK POINTER

; ;PROGRAM COUNTER
DEFINITIONS

;:PRIORITY Levet ©

RMOS/3/2

FORMATTER

MACRO

v04.00

4=-APR-B1

H
1B:39:56 PAGE

OEF INITIONS

000040
000100
000140

000540
000%00

000340
100000

5460000
020000
010000
004000
002000
001000

000400
000200
000100
000040
000020
000010
000004
000002
000001
001090
000400

000200
000100
000040
000020
000010
000004
000002

000001

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020

2
&=

PR1

PR2

ssPRIORITY

LEVEL

100

PRZ

s:PRIORITY

LEVEL

140

PR&

;sPRIOCRITY

LEVEL

200

PRS

::PRIORITY

240

LEVEL

PR6

300

s;PRIORITY

LEVEL

PR7

;:PRIORITY

340

LEVEL

;sPRIORITY

LEVEL

;" 'SWITCH
Sw15
=
Sw1é
=
SW13
=

Sw12

= 10000

SW10

= 2000

Swi?

SwW09
SW08
SW07

SwW06
Sw05
SW04

SwW03
SwW02
SwWo1
SwW00

SW9=Sw09
SW8=Sw08
SW7=Sw07
SW6=SW06
SW5=SwW05
SW4=SW04
SwW3=Sw03
SwW2=Sw02

= 4000

= 1000
= 400
= 200

= 100

= 40
= 20

=10
=4
=2
=1

SW1=Sw01

Sw0=SW00
:*DATA BIT DEFINITIONS
BIT15S
= 100000

BIT14
BIT13

= 40000
= 20000

BIT11
BITI0
BITO9
BITO8

=
=
=
=

BITO6

= 100

BITO4

= 20

BIT12

BITO7
BITOS

= 10000
4000
2000
1000
400

= 200
= 40

BIT03
=10
=4
BITO2
8IT01
=2
=1
BITOO
BIT9=BIT09
EI1T8=BIT08
BIT7=BI1T07
BITE=BIT06

(BITOO TO BIT15)

NN SN

JAMUBO

MACRO v04.00

L-APR-R]

1
18:35: 56 PAGE

&=¢

8I115=B]T05
BIT4=R1T04

BIT13=B]IT103
8112=81102
BiT1=BITOT
BITO=BITO00

s*BASI( 'TPU' TRAP VECTOR ADDRESSES
=
::TIME OUT AND OTHER ERRORS
= 10
;;RESERVED AND ILLEGAL INSTRUCTIONS

ERRVEC
RESVEC

TBITVEC =
TRIVEC
=

14
14

BPTVEC
IOTVEC

= 14
= 20

TKVEC
TPVEC

= 60
= 64

.SBTTL

RH REGISTERS

PWRVEC
= 24
EMTVEC
= 30
TRAPVEC = 34

PIRQVEC = 240

;s TRACE TRAP
; ;BREAKPOINT TRAP (BPT)
:: INPUT/0UTPUT TRAP (I0T) #=SCOPE=»
;;POWER FAIL
:;EMULATOR TRAP (EMT) *=ERRORw+
::"'TRAP'' TRAP

;:TTY KEYBOARD VECTOR
;TTY PRINTER VECTOR
; ;PROGRAM INTERRUPT REQUEST

; CONTROL AND STATUS REGISTER 1

(RMCS1)

s INTERRUPT ENABLE

= 100

RDY

= 200

A17
PSEL
MCPE
TRE

=
=
=
=

Al16

256

= 400

1000
2000
20000
40000

= 100000

VECTOR

(BIT #6)

;READY (BIT #7)
JHIGH ORDER BUS ADDRESS BIT (BIT #8)
;HIGH ORDER BUS ADDRESS BIT (BIT #9)
;PORT SELECT (BIT #10)
;MASSBUSS PARITY ERROR (BIT #13)
s TRANSFER ERROR

(BIT #14)

sSPECIAL CONDITION (BIT #15)

;WORD COUNT REGISTER (RMW()
; (EACH BIT

IS CALLED BY BIT NUMBER)

:BUS ADDRESS REGISTER (RMBA)
; (EACH BIT IS CALLED BY BIT NUMBER)

:CONTROL AND STATUS REGISTER 2 (RM(S2)
{ G
L

USé
BAI

us2

CLR
IR
OR

000100
000200
000400
001000
002000

MPE
MXF
PGE

010000
020000
040000

WCE

NEM
NED
UPE

PAT

JUNIT SELECT (BIT #0)
JUNIT SELECT (BIT #1)
JUNIT SELECT (BIT #2)
;BUS ADDRESS INCREMENT INHIBIT (BIT #3)
:MASSBUS PARITY TEST (BIT #4)
;CLEAR (BIT #5)
; INPUT READY (BIT #6)

;OUTPUT READY (BIT #7)
;MASS BUS PARITY ERROR (BIT #8)

sMISSED TRANSFER ERROR (BIT #9)
T

000010
000020

us1

000001

;PROGRAM ERROR (BIT #10)
sJNON EXISTENT MEMORY (BIT #11)
sNON EXISTENT DRIVE (BIT #12)
;UNIBUS PARITY ERROR (BIT #13)
JWRITE

CHECK ERROR

(BIT #14)

JAM
e

MOs,
TE

FORMATTER

MACRO v04.00

4-APR-B1

J
2
18:39:56 PAGE 4-3

il
i
sl
ol
B

PUNIPINY
b b et wod os o o
o b e (D D €
WA
=
OO0 YO NP Nl -+ 0O -

124

100000

DLT

100000

s (EACH BIT

.SBTTL

IS CALLED BY BIT NUMBER)

RM REGISTERS

;CONTROL AND STATUS 1 REGISTER. (#00)
000001

;GO BIT

000010
000020

Fe
F3
F4

=4
=10
= 20

sFUNCTION CODE BIT #2
;FUNCTION CODE BIT #3
;FUNCTION CODE BIT #4

004000

DVA

000002

000100

100000

= 100
= 200
= 400

;VOLUME VALID (BIT #6)
;DRIVE READY (BIT #7)
;DRIVE PRESENT (BIT #8)

LST

= 2000

;LAST SECTOR TRANSFERRED (BIT #10)

PGM
WRL

= 1000

= 4000

MOL

= 10000

ERR

= 40000

PIP

ATA

(BIT #9)

JWRITE LOCK

(BIT #11)

(BIT #12)

;POSITIONING OPERATION IN PROGRESS

;COMPOSITE ERROR (BIT #14)

100000

SATTENTION

(RMER1)

ACTIVE

(BIT

#15)

(402)

=1
=2

JILLEGAL FUNCTION (BIT #0)
s ILLEGAL REGISTER (BIT #1)

= 100
= 200
= 400

;ECC HARD ERROR (BIT #6)
;HEADER COMPARE ERROR (BIT #7)
JHLADER CRC ERROR (BIT #8)

=4
= 10
= 20
= 40

AOE
1AE

= 1000
= 2000

= 4000

=
=
=
=

10000
20000
40000
100000

(BIT #13)

JREGISTER MODiF ICATION REFUSED
;PARITY ERROR (BIT #3)
;FORMAT ERROR (BIT #4)
WRITE CLOCK FAIL (BIT #5)

)

(BIT #2)

;ADDRESS OVERFLOW ERROR (BIT #9)
s INVALID ADDRESS ERROR (BIT #10)
;JWRITE LOCK ERROR (BIT #11)

;DRIVE TIMING ERROR (BIT #12)
;OPERATION INCOMPLETE (BIT #13)
;DRIVE UNSAFE (BIT #14)
;DATA CHECK ERROR (BIT 15)

SMAINTAINABILITY REGISTER (RMMR1) (#03)

o -AOOQ\ngbUlN

LAWY

;PROGRAMABLE

JMEDIUM ON-LINE

= 20000

RMR
PAR
FER
WCF

DTE
OPl
UNS
D(K

000001

il vl sl el sl

(BIT #11)

vV
DRY
DPR

WLE

)

;DEVICE AVAILABLE

(#01)

ECH
HCE
HCRC

sFUNCTION CODE BIT #5

= 4000

:DRIVE STATUS REGISTER (RMDS1)

ILF
ILR

151

(BIT #C)

sFUNCTION CODE BIT 41

= 40

;ERROR REGISTER #01

et ol

(B]T #15

;DATA BUFFER REGISTER (RMDB)

000400
001000
002000
004000
010000
020000
040000

it ot

:DATA LATE

000010
000020
000040

DMD

;DIAGINOSTIC MODE

MINX
MSTCk
MRD
MWk

=
=
=
=

JMAINTAINABILITY
JMAINTAINABILITY
JMAINTAINABILITY
JMAINTAINABILITY

MCLK

= 2

4
10
20
40

(BIT #0)

JMAINTAINABILITY CLOCK

(BIT #1)

INDEX (BIT #2)
SECTOR CLOCK (BIT #3)

READ

WRITE

(BIT #4)

(BIT #5)

JRM{ B0 RMOS5/3/2 FORMATTER

M REGISTERS

*Z%

164

000200

165

166

MACRO Vv04.00

4-APR-B1

DTISY

= 200

18:39:56 PAGE 4-4

SMAINTAINABILITY SYNC DETECTED (RIT #7)

;ATTENTION SUMMARY PSEUDO=REGISTER (RMAS)

(#04)

167
168

000001
000002

ATO
AT1

=1
s 2

;DEVICE 0 (BIT #0)
:DEVICE 1 (BIT #1)

170

000010

AT3

= 10

:DEVICE 3 (BIT #3)

= 40

:DEVICE 5 (BIT #5)

169

000004

171

000020

173

000100

172

;;g

000040

000200

AT2
AT4

ATS

ATé

AT?7

= 4

:DEVICE 2 (BIT #2)

= 20

:DEVICE 4

= 100

(BIT #4)

:DEVICE 6 (BIT #6)

= 200

:DEVICE 7 (BIT #7)

176

:DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA)

;gg

:DRIVE

TYPE REGISTER

:(EACH BIT IS CALLED BY BIT NUMBER)

1;;

(RMDT)

(#05)

(#06)

181
182
183
184
185

000001
000002
000004
000010
000020

DTO0
D101
DT02
DTO3
DT04

=
52
=z 4
= 10
= 20

:DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE

188
189

000200
000400

DT07
DTO8

= 200
= 400

;DRIVE TYPE NUMBER BIT 8
;DRIVE TYPE NUMBER BIT 9

MOH
TAP

= 20000
= 40000

186
187

190
191
192

}gz

000040
000100

004000

020000
040000

100000

DTOS
DT06

DRQ

NBA

= 40
= 100

= 4000

= 100000

TYPE
TYPE
TYPE
TYPE
TYPE

NUMBER BIT
NUMBER BIT
NUMBER BIT
NUMBER BIT
NUMBER BIT

1
2
3
4
S

;DRIVE TYPE NUMBER BIT 6
;DRIVE TYPE NUMBER BIT 7

:DRIVE REQUEST REQUIRED (BIT #11)
:MOVING HEAD (BIT #13)
:TAPE DRIVE (BIT #14)
;NOT BLOCK ADDRESSED (BIT #15)

:LOOK-AHEAD REGISTER (RMLA) (#07)

;gg
197
198
199

000100
000200
000400

SCO1
Sc02
SCO4

= 100
= 200
= 400

:SECTOR COUNT FIELD O (BIT #6)
:SECTOR COUNT FIELD 1 (BIT #7)
:SECTOR COUNT FIELD 2 (BIT #8)

585

002000

SC20

= 2000

:SECTOR COUNT FIELD 4

200

001000

SC10

= 1000

:SECTOR COUNT FIELD 3 (BIT #9)

(BIT #10)

203

004000

TRK1

= 4000

:TRACK FIELD 1

205
206

020000
040000

TRK4
TRK10

= 20000
= 40000

JTRACK FIELD 3 (BIT #13)
:TRACK FIELD 4 (BIT #14)

206

58;

010000
100000

NUF ¥}

s =D
el e
el
el

Rele (R NTe RV ¥

PURORONUNGRLNO
N

TRK20

= 10000

= 100000

(BIT #11)

;TRACK FIELD 2 (BIT #12)
:TRACK FIELD S

(BIT #15)

;OFFSET REGISTER (RMOF) (#11)

5?8

Fall

TRKZ2

000001

002000
004000
010000

OFDIR

HCI
ECI
FMT16

= 2000
= 4000
= 10000

:OFFSET DIRECTION

:HEADER COMPARE [NHIBIT (BIT #10)
:ERROR CORRECTION CODE INMIRIT (BIT #11)
:FORMAT BIT (BIT #12

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

(#i4)

“IRMLBO RMOS/3/2 FORMATTER

REGISTERS

MACRY v04.00

Ty
4-APR-B1 1B8:39:56 PAGE 4=5

559

:(EACH IS CALLED BY BIT NUMSBER)

55%

:RM MAINTENANCE

g%g
P4

040000

= 40000

100000

;SEEK INCOMPLETE (BIT #14)

BSE

= 100000

:BAD SECTOR ERROR (BIT #15)

(#16)

230

:ECC POSITION REGISTER (RMEC1)

233
ggg

;ECC PATTERN REGISTER (RMEC2) (#17)
:(EACH BIT IS CALLED BY BIT NUMBER)

5;9

:SOME 15T HEADER WORD DEF INITIONS

:(EACH BIT IS CALLED BY BIT NUMBER)

3%;

238
239
52?

100000
040000
010000

gz%
24k
245
246
247
248
249
250
251

000105
000107
000111
000113
000115
000117
000121
000123

253
254
255
256
257
258
259
260
Sg;

000141
000143
000145
000151
000153
000161
000163
000171
000173

263
264

176700
000254

252

(#15)

:ERROR REGISTER #02 (RMER2)

Sgg
%gg

Sk 1

000131

MF
UF
FMT

= 100000
= 40000
= 10000

.SBTTL

RM DRIVER COMMANDS

SEEK
RECAL

=
=
=
=
=
=
=
=

105
107
111
113
115
117
121
123

RDHD

=
=
=
2
=
=
=
=
=

141
143
145
151
153
161
163
171
173

ABASE
AVECT1

= 176700
= 254

DRVCLR

RELSE
OFFSET
RTC

READIN

ACK
SEARCH
GETREG
SETFMT
SELDRV
WCKD
WCKHD
WRTDAT
WRTHD
RDDAT

= 131

:MANUFACTURES BAD SECTOR FLAG (BIT #1%)
;USERS BAD SECTOR FLAG (BIT #14)
:FORMAT 16 BIT MODE (BIT #12)

:SEEK
:RECAL IRRATE

:DRIVE CLEAR

;RELEASE
:OFFSET
:RETURN TO CENTER LINE
:READ IN PRESET

:PACK ACKNOWLEDGE
:SEARCH
:GET REGISTERS
:SET FORMAT (8 ECI OR HCI)
:SELECT DRIVE
:WRITE CHECK DATA
:WRITE CHECK HEADER & DATA
:WRITE DATA
:WRITE HEADER & DATA
:READ DATA

:READ HEADER & DATA

CIRM BO RMOS/3/ ¢ FORMATTER
(ATOMER

4=-APR-B1

000000

000176
000176

1B:39:56 PAG
E

SEQ 002°

TRAP CAT(HER

.SBTTL

s*ALL UNUSED LOCATIONS FROM 4 = 776 (ONTAIN A '',¢2 HALT"
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

'LOCATICN10 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

DISPREG: .WORD ©

000174
000000
000000

SWREG:

.WORD

::SOF TWARE DISPLAY REGISTER

::SOF TWARE SWITCH REGISTER

STARTING ADDRESS(ES)

.SBTTL

5 000200

000137

007012

JMP

DHSTART

::JUMP TO STARTING ADDRESS OF

3 000204

000137

007020

JMP

BASTART1

:CHANGE

.SBTTL

PROGRAM

THE RM/RM ADDRESS

ACT11 HOOKS

FRAR AR AR AR AR AR AR AR AR AR R AR AR RN RTAARNRAAARANARAARA
AR RN R AR AR

000046

000052
o~

TRAP

MACRD v04.00

000210
000046
016352
000052
020000
000210
001100

REQUIRED BY A(T11

HOOK

SSVPC=.

:SAVE PC

iEgng

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .S$EOP

WORD

" =$5VPC
.=1100
.SBTTL

20000

;:2)SET LOC.52 TO 20000
**"RESTORE PC

APT PARAMETER BLOCK

A A A A A A AR A AR A A A AR AR AR R AR AR A AR A AR AN AR AR

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
IR

- 001100
000024
000024 000200
000044
001100
001100

RRARARRRAR AR

RA AR AN R AR AR

RRARRARARRRRNRA AR

A AR AR

RAA AR AR R AR RN R

$X=.
.=24

2 ;SAVE CURRENT LOCATION
;:SET POWER FAIL TO POINT TO START OF PROGRAM
200
;;FOR APT START UP
=44
;;POINT TO APT INDIRECT ADDRESS PNTR.
$APTHDR ;;POINT TO APT HEADER BLOCK
=,$X
;;RESET LOCATION COUNTER
S RAERRRRRRAEARREAARR
AT RRARERRRKRARAERAE IR R IR
AR AR RRRNRRRA TR

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
s INTERFACE SPEC.

000000
001210
002734
002734
002734
000032
001114

$APTHD:

$HIBTS:
$MBADR:

.WORD
.WORD

O
$MAIL

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

$PASTM: .WORD

1500.

::RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)

$TSTM:

SUNITM:

TAB.XY=.

.WORD

.WORD
.WORD

1500.

;;RUN TIM OF LONGEST TEST

1500.
- -ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT
S$ETEND-SMAIL/2
;;LENGTH MAILBOX-ETABLE (WORDS)
;CMTAGSTARTING ADDRESS

MACRO v04.00

CZRMLBO RMQS5/3/2 FORMATTER

COMMON TAGS

4-APR-81

.SBTTL

N 2
18:39:56 PAGE 6

SEQ 0024

COMMON TAGS

RAR AR AR A AR ARAAAA R AR AR RRARRAAAAAAARARAAAAARARAARANR
AR R RN

“*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

177570
177560

$TKS:
$TKB:
$TPS:
$TPB:

177562
177564
177566
000
002

$NULL:
$FILLS:
$FILLC:
$TPFLG:

012

000
000000
000000
207
077
015
012

377

000

377

177560
177562
177564
177566
.BYTE
.BYTE
.BYTE
.BYTE

$TMPO:
.WORD
$ESCAPE:0
$BELL:
$QUES:
$CRLF:
$LF:

.ASCIZ
.ASCII
.ASCII
ASCIZ

COMMON TAGS

;s CONTAINS THE TEST NUMBER

2 sCONTAINS ERROR FLAG
;s CONTAINS SUBTEST ITERATION COUNT
;s CONTAINS SCOPE LOOF ADDRESS
;s CONTAINS SCOPE RETURN FOR ERRORS

. sCONTAINS TOTAL ERRORS DETECTED
;s CONTAINS ITEM CONTROL BYTE
; sCONTAINS 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 INDICATOR
;: INTERRUPT MODE INDICATOR
; ;ADDRESS
; ;ADDRESS
;.TTY KBD
;:TTY KBD

.WORD
$TSTNM: .BYTE
$ERFLG: .BYTE
$ICNT:
.WORD
$LPADR: .WORD
$LPERR: .WORD
$ERTTL: .WORD
$ITEMB: .BYTE
$ERMAX: .BYTE
$ERRPC: .WORD
$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD
$BDDAT: .WORD
.WORD
.WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
.WORD
SWR:
DISPLAY: .WORD

;sSTART OF

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570

.=TAB.XY
=4 [oleleloleleleololeloblelololololslele)
%)

$CMTAG:

DDISP

OF SWITCH REGISTER
OF DISPLAY REGISTER
STATUS
BUFFER

;:TTY PRINTER STATUS REG. ADDRESS
;:TTY PRINTER BUFFER REG. ADDRESS
;s CONTAINS NULL CHARACTER FOR FILLS

;s CONTAINS # OF FILLER CHARAZTERS REQUIRED
;o INSERT FILL CHARS. AFTER A "LINE FEED''

001114

QO —=NO

oornNONS

WWNINNIN)
= — b =

d e

d ad —h

28833383

—

e
e
e
i T

“«USED IN THE PROGRAM.

;:"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

; ;USER DEF INED
;;ESCAPE ON ERROR ADDRESS
<207><377><377> ;:CODE FOR BELL
;sQUESTION MARK
;. CARRIAGE RETURN

L 2L
<15>
<12>

;;LINE FEED

'.'l"**itttt*i*tt*ttitttl!ttttltttt**ttttfi*fi*t*tt*ttttt'tttttttfitt

"SBTTL

APT MAILBOX-ETABLE

38883888

-2 R
—

o0
oo
|

——

nonro S LSLSV
ST, NT, V)
nng POMNY
= = =D b —2
o NOONESNOO

".'l'*l’t"*'*tttttttttt't't*'ttt*tti*’ttfi!itti*ttti*t*tttttttlt'tttt

000000
000000
000000
000000
000000
000000
000000
000000

.EVEN
:
$MAIL
$MSGTY: -WORD
$FATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
$DEVCT: -WORD
$UNIT:
.WORD
$MSGAD: .WORD
$MSGLG:. .WORD

;;APT MAILBOX

AMSGTY
; sMESSAGE TYPE CODE
AFATAL
s ;FATAL ERROR NUMBER
ATESTN- ;;TEST NUMBER
; ;PASS COUNT
APASS
ADEVCT
;;DEVICE COUNT
AUNIT
;:1/0 UNIT NUMBER
AMSGAD
: :MESSAGE ADDRESS
AMSGLG
; sMESSAGE LENGTH

000000
000000
000000

i Qs
G
i

NOFINPON

38388

0012;8

FERZ

“JRMUBD RMOS/3/2 FORMATTER
APT MAI BOX=-ETASLE

000

MACRO v04.00

4&-APR-B1

$ETABLE:
SENV:
BYTE
SENVM:
BYTE
$SWREG: . WORD
SUSWR:
.WORD
$CPUCP: . WORD

1B:39:5%6 PAGE 6=

AENV
AENVM
ASWREG
AUSWR
ACPUOP

;:APT ENZVIRONMENT

; sENVIRONMENT BYTE

TARLE

: sENVIRONMENT MODE BITS
;sAPT

SWITCH REGISTER

;JUSER SWITCHES
;:CPU TYPE,OPTIONS
817S 15=11=CPU TYPE

11/704=01,11/05=02,11/720=03,11/40=04,11/45=05
11/70=06,PDQ=07,0=10

v
:

001240
0012461

TE
JBYTE

AMAMS1
AMTYP1

001242

.WORD

AMADR1

001244
001245
001246
001250
001251
001252

2
:
:
:
:
:
:
:
:
:
:

JBYTE
JBYTE
.WORD
SAviE
JBYTE
.WORD
YT
JBYTE
.WORD
.WORD
.WORD

MAMS
2
AMTYP?2
AMADR?
AMAMS
3

001254
001255

001256
001260
001262
001264
001266
001270
001272
001274

000000

.WORD

-WORD

.WORD

AMTYP3
AMADR3

AMAMS4
AMTYP4
AMADRYS
AVECT1
AVE(CT2
ABASE

ADEVM

ACDW1

ACDW2

BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
FE=MEMORY MANAGEMENT
;:HIGH ADDRESS ,M.S. BYTE
;:MEM. TYPE _,BLK#1
MEM.TYPE BYTE
==
(HIGH BYTE)
900 NSEC CORE=001

300 NSEC BIPOLAR=002
500 NSEC MOS=003
;sHIGH ADDRESS,BLK#1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF "‘TYPE'' ABOVE
;:HIGH ADDRESS,M.S. BYTF

; :ME
TYPE M.
,BLK#?2

::MEM.LAST ADDRESS.,BLK#?
:sHIGH ADDRESS,M.S.BYTE

: :MEM.
TYPE ,BLK#3

;JMEM.LAST ADDRESS,BLK#3
;;HIGH ADDRESS.,M.S.BYTE
,BLKA#S
TYPE M.
: :ME

s sMEM.LAST ADDRESS.,BLK#4

;s INTERRUPT VECTOR#1,BUS PRIORITY#1

:: INTERRUPT VECTOR#Z2BUS PRIORITY#?2

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

;;CONTROLLER DESCRIPTION WORD#1
;;CONTROLLER DESCRIPTION WORD#2

TAGS

002616
002616

MACRO v04.00

4-APR-B!

1772777
177777

1B:39:56 PAGE

.WORD
.WORD

7-1

-1
<=1

;THIS TABLE wiILL CONTAIN A (OPY OF
002420
003420
003422

177777
177777

MFG18:

.BLKW

.WCRD
.WORD

256.

=1
=1

sTHIS

TABLE

WILL

sPACK

IS BEING FORMATTED

THE 18 BIT "MFG' FILE

;MFG 18 BIT BAD SECTOR TABLE

CONTAIN THE

16 BIT

"USR'

FILE

PACK

IS BEING FORMATTED

;IN 16 BIT MODE; ELSE THIS TABLE WILL CONTAIN THE 18 BIT "USR' FILE IF

003424

004426

004b26

177777

USTAB:

177777

.BLKW
.WORD
.WORD

256.
-1
=1

IN 18 BIT MODE

;USER BAD SECTOR TABLE

;THIS TABLE WILL SAVE THE 18 BIT 'USR' FILE IF PACK IS BEING FORMATTED
:IN 16 BiT MODE; ELSE THIS TABLE WILL SAVE THE 16 BIT "USR®' FILE IF THE
;PACK IS BEING FORMATTED IN 18 BIT MODE
004430
005430
005432

177777
177777

USSAV:

.BLKW
.WORD
.WORD

256.
-1
-1

;USER BAD SECTOR SAVED TABLE

;CONTAINS A LIST OF CURRENT BAD SECTORS ON THE TRA(K BEING FORMATTED
005434
005534
005536

177777

000000

SECCU:
NEXT:

.BLKW

.WORD
WORD

3%.

;MAXIMUM OF 32. BAD SECTORS

:FLAG,
:THE

IF NEXT==1,ALL GOOD SPOT ON

CURRENT

;DATA/PARAMETER BLOCK - USED FOR ALL

005540
005541
005542
005543
005544
005546
095550
C05551
005552
005554
005556

FMTDPB:

.BYTE

BYIE
BYTE
BYTE
.WORD
.WORD
BYIE
B¥IE
.WORD
.WORD
.WORD

0
O
O
0
O
O

RM.REG

TRACK ARE

FORMATTED

DRIVE OPERATION

;DRIVE NUMBER

;OFFSET VALUE OR FMT16, ECI, AND H(]
: COMMAND
;PSEL AND A17 AND A16
;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

;RH/RM REGISTERS STORED HERE

005560
005562
005564
005566
005570

RM.REG:

.WORD

.WORD
.WORD
.WORD
.WORD

O
0
O
0

ERROR

AFTER AN OPERATION

;RMCST

S RMWC
s RMBA
s RMDA
;RM(S?

THE

JRM B0 RMOS/3/2 FORMATTER

MACRD

SER DEF INED TAGS

005572

000000
000000
000000
000000
000000
000000

005612
005614
005616
005620

000000
000000
G00000
000000

00G000

005622
005624
005626

000000
000000
000000

005630
005631

000
000

005632
005633

4-4PR-B1

000000

005574
005576
0056CC
205602
005604
00560¢

005610

(4. 00

FMTWRT:

000
000

. wORD
.WORD
JWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

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

;RMDS
SRMERT
s RMAS
JRMLA
: RMDB
s RMMR1
sRMDT
:RMSN
s RMOF
sRMCA
s RMDC
JRMERZ
:RMMR?
SRMECT
JRMEC2

.BYTE
BYTE

0
O

sSPECIAL DPB TO WRITE HEADER OF BAD SECTOR

=2
RBUF

;ONLY TWO WORDS FOR HEADER
;BUFFER ADDRESS

O
O

;CYLINDER ADDRESS
;ERROR TABLE
;DONT''SAVE ANYTHING °
;STATUS WORD

BYTIE
.BYTE

005634
005636

177776
046224

LWORD
.WORD

005642
005644

000000
000000

.WORD
.WORD

005646

000000

005640
005641

000
000

5
E
1B:39:56 PAGE 7-/

BYTE
BYTE

.WORD

0
O

O
O

;SECTOR
: TRACK

JPARAMETER LIMIT POINTER TABLE

005650
005656
005664
005672

005754
005764
005774
006004

001466
001466
000004
000004

001330
001326
001334
001332

TABLE:

PAR1,822..MINCYL
PARZ,822. ,MAX(CYL
PAR3,4. ,MINTRK
PARS,
4. ,MAXTRK 0

005702
005704
005710
005714

006014
001466
000004
000037

001362
001364
001344

TABLE2: PARS
822..DS.CYL
4. ,DS.TRK
31..BADSEC

:ASCIZ MESSAGE FOR INPUT

005720
005722
005726
005732

006014
001466
000004
000035

001362
001364
001344

TABLE3: PARS
822..05.CvL
4, ,DS.TRK
29. ,BADSE(

:ASCiZ MESSAGE FOR INPUT

005736
005740
0057644
005750

006032
001466
000004
047300

001362
001364
001344

TABLE4: PAR6
822..DS.CYL
4,DS. TRK
20160, ,BADSEC

:ASCI7 MESSAGE FOR INPUT

cASCII MESSAGES FOR ADDRESS PARAMETERS
005754

005764
005774
006004

115

115
115
115

101
11
101

116

130
116
130

PAR1:

PAR2:
PAR3:
PAR4:

_ASCIZ

LASCIZ
_ASCIZ
LASCIZ

/MINCYL /

/MAXCYL /
/MINTRK /
/MAXTRK /

LASCIZ
LASCIZ

/CYL,TRK,SEC=

.WORD

FUNCT2 ,FUNCT3 FUNCT4 FUNCTH FUNCT?

.WCRD

BUFP+<51

BUFP+<51
BUFP+<51
BUFP+<51

BUFP+<51

.WORD
.WORD
. WCRD
.WORD

100404
101410
102414
103420
104424

105430

;ADDRESS
;ACDRESS
sADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
s ADDRESS
;ADDRESS
;ADDRESS

s
o
&
s
s
s
v

;ADDRESS

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

;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS

PR
S
N )

BUFP¢<S16 '9

BUFP+<51
BUFP+<51

;ADDRESS

065330
066334
067340
070344
071350
072354
073360
074364
075370
076374
077400

BUP

BUFP+<5i6.*1.
BUFP+<516.+2.
BUFP+<516.+3.
BUFP+<516.+4,
BUFP+<516.+5.
BUFP+<516.
*6.
BUFP+<516.+7.
BUFP+<516.+8.

053260
054264
055270
056274
057300
060304
061310
062314
063320
064324

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

e —d e —d ek ek =d =2 O OO YO N DW= O

ADRTBL:

258.+<258. «11.>
258, +<258, «12.>

AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
COUNT AFTER
COUNT AF TER
JREMAINING WORD COUNT AFTER
JREMAINING WORD COUNT AF TER

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

SECTOR
SECTOR
SECTOR

)

COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT

sREMAINING WORD
sREMAINING WORD
JREMAINING WORD
;JREMAINING WORD
;REMAINING WORD
sREMAINING WORD
2 58.+<258.%6. >
SJREMAINING WORD
2 58.+<258.+7. N
;REMAINING WORD
2 58.+<258.+8. >
;REMAINING WORD
2 58.+<258.+9, >
JREMAINING WORD
258.+<258. 10 > JREMAINING WORD
258.
258.+<258.+1. >
258, +4<258.+2. >
258.+<258.+3, >
258.+<258.
%4, >
2 58.+<258.+5. >

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

SR T

.WORD

WwiTBL:

~ ek o

000402
001004
001406
002010
002412
003014
003416
004020
004422
005024
005424
006030
006432

-‘“‘—‘O@\IO‘\J\J\WN—‘O

JREMAINING WORD COUNT TABLE

006074

0466234
047240
050244
051250
052254

006066
006070
006072

Q06064

TABLE

;SECTOR BUFFER ADDRESS

TABCAL
:

/CYL,TRK ,BYTE=

EVEN

—SOVONO
NS WA
O

021676

PARG:

PUN = v

—h

—

021624

PARS
:

114
114

VVVVVVVVV

021414

7-3%

&-APR-81

VVVVVVVVVVVVVVVVVVVVVV

006052

006014
006032

TAGS
ol —

JSER DEF INED

18:39:56 PAGE

MACRO v04.00

l".'lll'..."'.'l...

CIRMLBO RMOS/3/2 FORMATTER

006364
006366
006370
006372

013046
014234
015422
016610
017776
021164
022352
023540
024726
026114
027302
030470
031656
033044
034232
035420
036606
037774
041162
042350
043536
044724
046112
047300
BYTE18:

-WORD
.WORD
. WORD
. WORD

.+<630.%6.
.+<630.%7.
.+<630.+8.
. +<630.+9,
.+<630.+10.
.+<630.+11.
.#<630.+12.
. +<630.+13.
.+<630.%14.
.+<630.%15.
.+<630.%16.

.+<630.+17.
.+<630.+%18.

).+<630.+19,

.+<630.+20.
.+<630.%21.
+<630.%22.

+<630.%23.
.+<630.+24.
+<630.#25.
630. +¢630.+26.
630. +<630.+27.
.

630. +<630.+28.
630. +<630.%29.

630. +<630.+30.
630. +<630.+31,

672. +<672.%1.>
672. +<b672.%2.>
672. +<672,.43.>

JREMAINING WORD COUNT AFTER SECTOR

.
B
.
L]
.

L]
-

JREMAINING WORD COUNT AFTER SECTOR

JREMAINING WORD COUNT AFTER SECTOR
COUNT AFTER SECTOR
JREMAINING
;REMAINING WORD COUNT AFTER SECTOR
sREMAINING WORD COUNT AFTER SECTOR
COUNT AFTER SECTOR
JREMAINING
JREMAINING WORD COUNT AFTER SECTOR
JREMAINING WORD COUNT AFTER SECTOR
JREMAINING WORD COUNT AFTER SECTOR
JREMAINING WORD COUNT AFTER SECTOR
COUNT AFTER SECTOR
JREMAINING
WORD
COUNT AFTER SECTOR
sREMAINING
WORD
COUNT AFTER SECTOR
JREMAINING
WORD
COUNT AFTER SECTOR
JREMAINING
WORD
COUNT AFTER SECTOR
JREMAINING
WORD
COUNT AFTER SECTOR
JREMAINING

JREMAINING WwORD COUNT AFTER SECTOR
SREMAINING WORD COUNT AfFTER SECTOR

N —d b b bl d =p
Wi N LS LV L] POPONONI
= OO0 N AW
000 NO W BNV

=N
Y. "
9
%

VVVVVVVVVVVVVVVVVVYV

.
.
.
.
.
.
.
.
.
K
a

WL N W
i

AL NN A NN RPN NN
AL

.+<630.+5,

VVVVVVVVYV

011660

.+<630.*1.
.+<630.+2.
.+<630.%3,
.+<630.%4.

VVVVVVVVVVVVVVVVVVVVYVYV

006336
006340
006342
006344
006346
006350
006352
006354
006356
006360
006362

007304
010472

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

.+<258.%26.
. +<258.%27.
.+<258.%28.
. +<258.+29,
.+<258.+30.
.+<258.+31.

006324
006326
006330
006332

BYTE16:

7-4

006274
006276
006300
006302
006304
006306
006310
006312
006314
006316
006320
006322

001166
002354
003542
004730
006116

.WORD

el 00 00 00 00 00 o 0o GO 0o 1 Co 0o OO 00 OO GO OO

011446
012050
012452
013054
013456
014060
014462
015064
015466
016079
016472
017074
017476
020100

PO NURL NN

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

O OCONONONOCONOCOCONOCONONOCONONON

00703«
007436
010040
010442
011044

18:39:56 PAGE

NN AN N N NN NN N NN NN NN NN NN WY
o elelolelslslslialslslolslaleolalaslololelololelelolo

4&-APR-B1

W AN AN

MATRO v04.00

o oo

JRM B EMOS5/3/72 FORMATTER
»E& DEF INED TAGS

31.

JSER DEF INED TAGS

006374
006376
006400

006440
007700
011140

006402
006404
006406
0066410

012400
013640
015100
016340

006414
006416
0064620
006422

021040
022300
023540
025000

006412

006424
006426
006430
006432
006434
006436
006440
06442
006444
006446
006450
006452
006454
006456

MATRO (04,00

JWORD
LWORD
JWORD
.WORD
.WORD
.WORD
.WORD
. WORD
WORD
.WORD
.WORD
LWORD
WORD
WORD
.WORD
.wWORD

017600

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

4-APR-B1

LWCRD

.WORD
WORD

.EVEN

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

18:39:56 PAGE

7-%5

672.4<672.%4.>
672.+4<672.+5.>
672.+<672.%6.>

672.4<672.+7.>
672.+<672.+8.>
672.4<672.+9.>
672.+<672.+10.
€72.+4<672.+11.

672.+<672.+12.
672.+<672.+13.
672.+<672.+*14,
672.+<672.+15.

672.+<672.*16.
672.+<672.*17.
672.+<672.+18.
672.+<672.%195.
672.+<672.+20.
672.+<672.%21.
672.+<672.%22.
672.+<672.%23.
672.+<672.%24.
672.+<672.%25.
672.+<672.*26.
672.+<672.%27.
672.+<672.%28.
672.+<672.%29.

VVVVVVVVVVVVVVVVVVVYV

7AMU B0 RM0S/3/2 FORMATTER

JRMUBD RMOS/ 372 FOPMATTER
ERROR POINTER TABLE

MACRD v0&.00

&4-APR-B1

18:39:5¢ PAGE

3
560

.SBTTL

ERROR POINTER TABLE

;+THIS

TABLE

CONTAINS THE

INFORMATION FOR FACH ERROR

THAT

(AN OC(CUR.

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
s*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM [N THE TABLE IS PERTINENT,
I*NOTE:
1F SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP(),

IeNOTE2:

EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

N
i
i
i
1 006460

$ERRTR:

:FRROR

4 006460

5 006462
6 006464
g 006466

;:POINTS
::POINTS
;;POINTS
:;POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR ME SSAGE
DATA HEADER
DATA
DATA FORMAT

£EM1

:RH CONTROLLER INTERRUPT OCCURRED (RMAS=(Q)

;UNEXPECTED ATTENTION OCCURRED

042446

04373
045270
045642

£M
DH
DT
DF

DH1
D11
DF1
:ERROR 2

11 006470

042520

EM2

;g 006476

045646

DF2

12 006472
13 006474

044002
045306

DH2
D12

;ERROR 3

}?
18 006500
19 006502

042556
044054

EM3
DH3

51 006506

045652

DF3

20 006504

045322

D13

;ERROR &

25 006510

042614

EM4

27 006514

045336

DT4

006512

Sg 006516

044125

32 006520
33 006522
34 006524
;2 006526

47 006536

:MASSBUS PARITY ERROR (PAR=1)

DF4
:ERROR 5

000000
000000
000000

000000

§§
39 006530
40 006532
41 Q06534

DH4

045656

:MASSBUS PARITY ERROR (MCPE=1)

0
0
;

s UNUSED

;ERROR 6
042705
044210
045354
045662

EM6
DHE
D16
DF6

:RH CONTROLLER DiDN'T RESPOND TO ADDRESSING

_JRMLBO RMOS/3/2 FORMATTER

ERROR POINTER

TABLE

46 006540

47 006542

48 006544
49 006546
50
51

006550
006552
006554
006556

58
59
60 006560
61 006562
62 C06564
63 006566
64

042760
045015
045356
045752

EM7
DH23
D17
DF 25

sTRACK/SECTOR FIELD

IN HEADER

IS NOT

(ORRE(T

043034
044223
045366
045666

EMI10
DH10
Dr1Q
DF10

sDRIVE OFFLINE

;ERROR 11
043052
044223
045366
045666

EM11
DH10Q
DT10
DF10

sPERSISTENT DRIVE UNSAFE ERROR

JERROR 12

67 006570
68 006572
69 006574
70 006576
71
72
74
75
76
77

18:39:56 PAGE 8-

;ERROR 10

4-APR-B1

;ERROR 7

52
53
54
55
56

MACRO v04.00

006600
006602
006604
006606

043110
044223
045366
045666

EM12

DH10

JUNCORRE(CTABLE MASSBUS PARITY ERROR

DT10
DF10

;ERROR 13
043153
044223

045366
045666

EM13

DH10
DT10
DF10

; SOF TWARE TIMEOUT

;ERROR 14
EM14
DH10
DT1C
DF10

;DRIVE UNSAFE ERRCR

;ERROR 15
EM15
DH10
Dr10
DF10

s CONTROLLER/DRIVE ERROR DURING WRITE

:ERROR 16
EmM 1

DH1
DT1

DF1

(elelels

81 006610
82 006612
83 006614
84 006616

;CONTROLLER/DRIVE ERROR DURING WRITE (HE(K

“ZRMLBO RMCS5/3/2 FORMATTER

FRROR POINTER TARLE

MACRO v06.00

:89

102

103

4-APR-B1

'8:39:56 PAGE B8~¢

:ERROR 17

006640

006642

106 006644

}82 006646

043335

;}% 006656

045440

;;g C06666

D117

DF17

043413
044521
045452

EM20
DH20
DT20

045706

DF20

043451
044223
045366

EM21
DH10
DT10

045666

:ERROR 22
043522
(044223

EM22
DH10

;gg 006676

045666

DF10

045366

:CYLINDER FIELD IN HEADER IS NOT CORRECT

DF25

;ERROR 24
043642

;2? 006716

045732

045054
(045544

EM24

DH24
DT24

;WRITE CHECK ERROR

DF 24

:ERROR 25

}2%

147 006726

EM23
DH23
D123

045752

137 006710

144 006720
145 006722
146 006724

DT10

043572
045015
045534

;;2
138 006712
139 006714

:"HCE' OR "HCRC' ERROR VERIFYING HEADERS

:ERROR 23

}Sg

}gz 006706

:CONTROLLER/DRIVE ERROR VERIFYING HEADERS

DF10

123 006670
124 006672

130 006700
131 006702
132 006704

;DATA ERROR DURING WRITE CHECK

:ERROR 21

}S;

125 006674

SRETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTARLE

:ERROR 20

}}g
116 006660
117 006662
118 006664

DH17

045702

;8;
109 006650
110 006652
111 006654

EM17

044452

043664
045227
045632
045752

EM25
DHZ5
D125
DF25

:ILLEGAL BAD SECTOR

SEQ 00%

JRMLBO BMOS/3/2
POINTER

TABLE

MACRO v04.00

4-APR-81

;THIS ROUTINE

3 006730
4 006732
5 006734

6 006736
006742

PON ~d = bl b ed b e b
—Ov OOV
NN -

5%
&g

007002
7 007002

011600
005740
022626
104401

000417

BADTMO: MOV

006744
13658:

010046
104402

000001
177777

001374
001270

HANDLES UNEXPECTED

(SP) ,RO

SEQ 0037
TIMEOUTS

:SAVE PC WHERE

<CRLF >/UNEXPECTED BUS

¢0goc
Y

012737
012737

ASCIZ

000411

001270

-(RO}
(SP)+,(SP)+
658

NOP

005037
000406

18:39:56 PAGE

ST
CMP
TYPE

000240

648

RO,=(SP)
1ST1

PC=/

:SETUP FOR TYPING OUT PC
'HALT(0)*

INSTRUCTION HERE

‘BRANCH TO START

START:

B8R

MOV

TIMEOUT.

*TO STOP ON UNEXPECTED

START OF PROGRAM

START1: MOV

TIME QUT OCCURED

[GET OVER THE ASCIZ

;PUT

_SBTTL

CLR

THE

TADJUST PC =2
‘RESTORE STACK POINTER
::TYPE ASCIZ STRING

TIMEOUT.

$CDW1

IST1

;DISABLE USE OF UTILITY ROUTINES

#1,CHGADR

;ENABLE CHANGE OF

#-1.$CDW1

*ENABLE USE OF

YOU WISH

'RH/RM BUS ADDRESS'

UTILITY ROUTINES

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

007052

000240
012737
005227
001375
000005

000001
000000

001214

T8T1:

007054
007060
007062
007066
007070

012706
005026
022706
001374
012706

RESET

001154
001100

007152
007156
007164
007172
007200
007206

000004
007212

—

O
NS
~—

ONNNNY
—
NN NS
NN

A = b d
8 800000
=N

023330
000340
030046
000340
030132
000340
001176
000001

177570
177570
177777

007220

#1.$TESTN

#0
e

INITIALIZE

::SET

TEST NUMBER

IN APT MAIL BOX

“TTY LOOP, WAIT FOR INCREMENT
*OF WORD
"CLEAR THE WORLD

THE

COMMON TAGS

;:CLEAR THE COMMON TAGS ($CMTAG) AREA

001114

007074
007102
007110
C07116
007124
007132
007140
007144

007210
007212

NOP
MOV

INC
BNE

.SBTTL

FRROR

FORMATTER

000030
000032
000034
000036
000024
000026

001131

MOV
(LR
CMP
BNE
MOV

#$CMTAG,R6
(R6) +
#SWR ,R6
=6
#STACK,SP

MOV

#SERROR ,@#EMTVEC ;:EMT VECTOR FOR ERROR ROUTINE

;;INITIALIZE A FEW VECTORS
MOV

Mov

;:FIRST LOCATION TO BE CLEARED
;;CLEAR MEMORY LOCATION
s ;DONE?
;:LOOP BACK IF NO
;:SETUP THE STACK POINTER

#3640, QWEMTVEC+2 ;. LEVEL 7

#STRAP ,a#TRAPVEC ;.TRAP VECTOR FOR TRAP CALLS

MCV

#340 ,@#TRAPVEC+2;LEVEL 7

MOV
CLR
MOvVB

#3640 ,a#PWRVEC+2 ;;LEVEL 7
$ESCAPE
;:CLEAR THE ESCAPE ON ERROR ADDRESS
#1,SERMAX
. .ALLOW ONE ERROR PER TEST

MOV

#$PWRDN ,d#PWRVEC ; ;POWER FAILURE VECTOR

;sSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A **~1"", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
MoV
MOV
MOV
(MP

000004
001154
001156
171746

BNE
648 :

MOY/

@#ERRVEC,-(SP)
#64% ,QNERRVEC
#DSWR, SWR
#DDISP,DISPLAY
#-1,aSWR

66%
65%

#65%, (SP)

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR

;:SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
;. TRY TO REFERENCE HARDWARE SWR

;BRANCH IF NO TIMEOUT TRAP OCCURRED

;;AND

THE HARDWARE SWR IS NOT = =1

; ;BRANCH IF NC TIMEOUT

;:SET UP FOR TRAP RETURN

JRWMLB0O RMOS/3/72 FORMATTER

INITIACIZE

THE COMMON TAGS

007216

000002

007220
007226
00723&

012737
012737
012637

007240

005037

007264
007252
88;523
27

28 007262

238 007270

132737
001403
012737
012737

012737

(000176
000174
000004

001216

MACRD v04.00

0011564
001156

000200

001231

001232

001154

006730

000300

000004

65%:

005227

177777

007304
C07310

104401
(000420

007312

007352
007356

0057357
(01012

000042

007366
007370

001406
023727

007400

104406

007302

001023

668 :

CLR

$PASS

678

B8!18B
B8EQ
MOV

007360

007376

007402

007404

3 007412

123727

MOV

001005

000403

112737

.SBTTL

000GO1

001154

000176

#BADTMO,ERRVEC

MOV

::69%8:
68%:

001230

#APTSIZE ,$ENVM
67%
#$SWREG, SWR

#PR6,ERRVEC+2

TYPE PROGRAM NAME

THE NAME

BNE

68%

INC

TYPE
BR

_ASCIZ

001150

;. TEST USER SIZE UNDER APT
s 3YES,USE NON-APT SWIT(H
J:NO,USE APT SWITCH REGISTER

71%:

::BRANCH IF NO

;.TYPE ASCIZ STRING
:3GET OVER THE ASCIZ

70%
SWR,#SWREG

SENV ., #1

MOVB

FIRST PASS

<CRLF>aCZRMLBO = RM05/3/2 FORMATTERQ<CRLF>

BEQ
CMP

;LEVEL 6

ssFIRST TIME?

,69%
68%

ans2
70%

BNE

;SETUP FOR UNEXPECTED TIMECUT

PROGRAM IF

TST
BNE

CMPB

70%:

#=1

THE

GET VALUE FOR SOF TWARE

GTSWR

000001

. 2:CLEAR PASS COUNT

;SETUP "'TIMEQUT'® TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS

;:TYPE

007352

€Q 003%E

#SWREG, SWR
;sPOINT TO SOf TWARE SWR
#D]SPREG,DISPLAY
(SP)+ Q#ERRVE(
;:RESTORE ERROR VECTOR

.SBTTL

007276

RTI

18:39:56 PAGE 9-1

MOV
MOV
MOV

000006

4&-APR-81

SWITCH REGISTER

;2ARE WE RUNNING UNDER XXDP/A(CT?
;JBRANCH IF YES

;;ARE WE RUNNING UNDER APT?

:;BRANCH IF YES
;:SOFTWARE SWITCH REG SELECTED?

71%

::BRANCH IF NO

;iGET SOFT-SWR SETTINGS

71%

#1,%AUTOB

;:SET AUTO-MODE INDICATOR

;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE:

;PAPER TAPE

36 007412

005037

38 007424

001160

41
42
43
44
45

103002
105037
005737
001425
104401

37 007416

39 007426
40 007434
007442
007444
007450
007454
007456
007462

007510

122737

013737
122737

000412

46 007510
47 007512
48 007516
49 007520

005046
113716
104403
001

51 007522
52 007526

104401
000517

50 007527

000

001412

000016

9D00041

000040
000007

001412
001412

001412
000042

CLR

2%:

;:73%:

72%:

001205

;CLEAR 'XXDP' LOAD DEVICE STORAGE

:BR IF NOT

#16.,a#41

MoV
CMPB

a#40, XXDP
#7 ,XXDP

72%

BHIS
CLRB
TST
BEQ
TYPE

XXDP CHAIN OR DUMP

XXDP

CMPR

BNE

007464

001412

(MANUAL), ACT11,

;LOADED FROM AN RM05/3/2 ?

;GET DEVICE INDICATCR AND NUMBER
:IS IT A VALID NUMBER ?

2%
XXDP
-4
3%
,73%

;YES
:NO, DEFAULT TO DRIVE O
;CHAIN MODE OR ACT11 AUTO ACCEPT ?
:BR IF NEITHER
;:TYPE ASCIZ STRING

;:GET OVER THE ASC!Z

L.ASCIZ

<CRLF>/NOT TESTING DRIVE /

CLR
MOVB
TYPOS
BYTE

-(SP)
XXDP, (SP)

;CLEAR WORD ON STACK
;GET DRIVE ADDRESS
:TYPE THE ADDRESS
JONLY 1 CHARACTER

TYPE
BR

LSCRLF
4%

:CR-LF
JGET NUMBER OF DRIVES

.BYTE

;SUPRESS LEADING ZEROS

MACRO v04.00
CZRMLBO RMOS/3/2 FORMATTER
GET VALUE FOR SOF TWARE SWITCH REGISTER

007530
007534
007536
007542

005227

177777

104401

007544

001114

0004190

2:75%:
764%:

007564
007564
007566
007572
007574
007575
007576
007602

000
104401
000431

007604

007666
007666
007672

000435

104401

007674

007766
007766
007774

012737
004737

007012
024414

105737
001010
004737

001150

010000
010004
010006
010012
010020
010026
010026

010032
010034
010040
010042
010050
010056
010062
010064
010072

005046

113716
104403
001

013737
013737
105737
001422

105737
001406

113737
013737
005737
001406
013737
013737

3%:

001412

+ =778
76%:

001372

001230

5%:

;FIRST
sNO

LASCIZ

74%

“:GET OVER THE ASCIZ

<CRLF>/T0Q TEST.DRIVE

CLR
MOVB

-{SP)
XXDP, (SP)

.BYTE
.BYTE

1
0
L77%
76%

;CLEAR WORD ON STACK
:GET DRIVE ADDRESS
:TYPE DRIVE ADDRESS
SONLY 1 CHARACTER

TYPE
BR

LASCIZ

001276
030460

001264
001274

001274
030456

::TYPE ASCIZ STRING
/

:SUPRESS LEADING ZEROS
::TYPE ASCIZ STRING
“:GET OVER THE ASCIZ

/. HALT PROGRAM, REMOVE RRDP PACK AND REPLACE

IT/<CRLF>

,78%

;:TYPE ASCIZ STRING

LASCIZ

MoV
JSR

#START ,CNTLC
PC,STKINT

;'CONTROL C' ADDRESS
;TURN ON THE KEYBOARD

TSTB

$AUTOB
5%

JRUNNING AUTO MODE
sBR 1F -YES

$RMADR ,RMADR
$RMVEC ,RMVEC

:RH/RM ADDRESS
sRH/RM VECTOR ADDRESS

TSTB

$ENV
SETVEC

;RUN UNDER APT MODE?
;NO, DO NOT LOAD FROM E-TABLE

$RMVEC ,RMVEC
$BASE
SETVEC
$BASE , 8RMADR
$RMADR ,RMADR

;RH/RM VECTOR
;UUT BASE REGISTER ADDRESS

MOVB
MOV
IST

BEQ
MOV

MoV

THE

PC ,BUSADR

$VECTT
6%
$VECT1,$RMVEC

;CHECK

INTERRUFT

JSR
MOV
MoV

BEQ

6%:

THRU HERE

48
::GET OVER THE ASCIZ
/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF>

TYPE

1STB

001260
001276
001264

75%

TIME

BEQ

001260

SEQ 0039

#-1
4%

BNE

030456
030460

N 3
18:39:56 PAGE 9-¢2

INC
BNE
TYPE
BR

TYPOS

22 78%:

045756
001274
001276

4-APR-81

RH/RM ADDRESS

;sUUT INTERRUPT VECTOR
;DO NOT CHANGE IF = 0
;NEW VALUE

;DO NOT CHANGE IF = 0
;NEW BASE ADDRESS
;RH/RM ADDRESS

;DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE

%Ommbbwuwmfl—-?o
RN
OO
SNO

=D
e
D

el ol

ool il o

D e
D
o

ol ol i

) o

o
ol ol

) et

OOO0OO0CO0COCOOCOO

slelelelelolalslelelelelsle)

;PROGRAM WILL USE

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

104401
010446

017360
030466
030456
000040
177777
177777

000004

000010
030416

SETVEC: JSR
JSR
MOV
MOV

MoV

171010

001400

1%:

036555
001205

2%:

INC
BEQ
BIT
BNE
CLR
CLR
TYPE

TYPE

MOV

#C.57.01LK

;START THE CLOCK

#-1,SAVEFG
#=1
1%

;SET THE SAVE REGISTERS FLAG
;FIRST TIME THRU HERE ?
:BR _IF NO

DEVMP
R4

;CLEAR DEVICE MAP
;DRIVE TABLE POINTER

PC,RMINIT
RMADR,RC
#CLR,RMCS2(RO)

#5W02,aSWR
12%

JUNSTAT

LSCRLF
R4 ,-(S5P)

JINITIALIZE THE RM DRIVER
;GET BASE ADDRESS
;CLEAR MASSBUS

;TYPEOUT THE DRIVE
;BR _IF NO

sTYPE

"UNIT STATUS'

STATUS

sCR=LF
;2SAVE R4 FOR TYPEOUT

TABLE

MACRO v04.00
SWIT(H REGISTER

AMLBO RMOS /3/2 FORMATTER

VALUE

FOR SOF TWARE

010166
010170

104403

106 010172
105 010176
106 010202
107 010204
108
109 0190
110 016212
111 010214

104401

010171

112 010216
113 010222

114
115 010224
116 010230
117

118 010232

002
000

105764
100416

105764

001404

100006

104401

036474

3%:

104401

036432

4%:

104401

036511

001412

6%:

122 010244

000421

124 010246

005737
001406

127 010260

001003

129 010266

000436

125 010252
126 010254

128 010262

130
131
132
133
134

010270
010274
010302
010310

135 010314
136 010316

137
138
139
140
141
142
143
144
145

010322
010330
010334
010336
010344
010350
010352

123704

001412

104401

036521

036443
030444
001400

036621

030350
036543
000004

T1YPE

TYPE

7%:

8%:

010362

036550

010362

010360

000010
001400

ssTYPE 2 DIGIT(S)
2+ SUPPRESS LEADING ZEROS
sTYPE & SPA(CES
;CHECK DRIVE'S STATUS
;BR IF UNSAFE

DRVTYP(RS)
3%
4%
NOTRM
1%
,NOTPRS

;BR IF ONLINE

JSEE IF OFFLINE OR NONEXISTENT
;BR IF NONEXISTENT
JBR IF OFFLINE
;DRIVE NOT AN RM0S5/3/2
sCHECKX NEXT DRIvVe
;DRIVE NOT

PRESENT

sCHECK NEXT DRIVE

JUNTOFF

;sDRIVE OFFLINE

JPRINT DRIVE

TYPE

. NOTSAF

sDRIVE UNSAFE

1ST

XXDP
7%
XXDP ,R&
7%
i%gDEV

;LOADED FROM THIS DEVICe ?
;BR IF NO
;LOADED FROM THIS DRIVE ?
;BR IF NU
;DRIVE IS LOAD DEVICE

LUNTON

;DRIVE ONLINE

DEVMP ,DEVMP+?2

sSAVE DEIVICE MAP

DRVTYP(RS) ,RO
#$RM03,10%

;GET DRIVE TYPE
;ASSUME ADDRESS OF RMO3 MESSAGE

BEQ
CMPB
BNE
TYPE

001400
001402

BLNKSS
DRVSTA(RS)
5%

;s TYPE DRIVE NUMBER
<+G0 TYPE==O(TAL ASCII

036536
000005

001402
001205

146 010362

e
148 010364
149 010366
150 010372
151 010374
152 010402

8Mi
BNE

1STB

036453

000455

2
0

BEQ
BPL

104401
000460

000424

123

030350

<) “
18:39:56 PAGE %-3%

TYPOS
BYTE
BYTE

TYPE
TSTB

001020

119 C10236
120

121 010240

036617
030340

4-aPR-381

TYPE

BISB
MoV
TYPE

CLR
MovB

MOV

tMP8
BEQ
MOV
(MPB
BEQ
MOV

ATABIT(RS) ,DEVMP

é%LNKSZ

#4,R0
9%
#3RMO2,10%
#5,R0
9%
#3RMOS,10%

sPRINT DRIVE

TYPE

;SET DEVICE MAP

;TYPE 2 SPACES

;1S DEVICE AN RMO3 ?
:BR IF YES
;ADDRESS OF RMOZ2 MESSAGE
;1S DEVICE AN RMOZ2 ?
;BR IF YES
;ADDRESS OF RMOS MESSAGE

9%
:
10%:

TYPE

-WORD

sTYPE THE DRIVE TYPE MESSAGE
;MESSAGE ADDRESS HERE

11%:

INC
{MP
BNE
MOV

R4
R4, 48,

; INCREMENT DRIVE NUMBER/TABLE
JFINISHED ?

12%:

TYPE

23
DEVMP+2 ,DEVMP

LSCRLF

;BR IF NOT
;GET DEVICES TO TEST

;CR=LF

POINTER

ZRMLBC

FOR

AUTO

MACRD v04.00

4-4aPR-B1

C
1B:39:56 PAGE

&
10

MODE

SIZE FOR AUTO MODE

;IF RUNNING IN AUTO MODE, THEN AUTO SIZE DRIVES TO BE FORMATTED
105737

001150

132737

000200

005737
001406
013737
042737

001266

001540

001134

001266

177400

XSIZE:

001231

001400
001400

1%:

TSTR

$SAUTOB

BEC
BITE
BNE

ASKQ
#B]T7 ,8ENVM
ASKQ

TST

$DEVM

BEQ
MOV
BIC

JRUNNING UNDER AUTO MODE ?

JBR IF NO
JAPT AUTO SIZING ALLOWED ?
;BR IF NO

1%
$DEVM,DEVMP
#1776400,DEVMP

;DEVICE MAP AVAILABLE FROM APT MAIL

;BR IF NONE
JLOAD IT FROM MAIL BOX
;ALLOW MAX 8 DRIVES

BOX

;RETURN HERE IF RUNNING IN CHAIN MODE AND MORE DRIVES TO TEST

005737

001400

000137

016342

001002

25 010502
26 010506
27 010512
28 010520
29 010524
30 010526
31 010534
32 010542
33 010550
34
35 010552

012737
012737
012737
005037
005037
012737
005737
001012
012737
012737
012737
000413

012737
012737
005037
012737
005001
126137
001005
005201
020127
003770
000711
010137

£ %233

O00O0

146137
105761

SN
-

OO0

[

AN SN

[

WM0S/3/2 FORMATTER

003757
005737

001403

000000
001466

001334
001330
001226

1%:

177777

001356

2%:

020100

001350
001352
001360

000000

001376
001320

001272
157700

000037
017074

160704

001356
000035

030444

001222
030444
030340

012702

000004
000007

122761

001360
001400

6%:

001412
001412

DEVMP
1%

sCHECK DEVICE MAP
;BR [F DRIVES ASSIGNED

MOV
MOV
MOV

#0 ,MINTRK

;ALWAYS STARTS

MODE
#-1,SEC30
$CDw2
3%
#<258.%32.>,uWC

;SET TO 'FORMAT' MODE
;SEr 32 SECTOR
;APT PARAMETER =0
:NO,30 SECTOR

CLR
CLR

MOV
TST

MOV
MOV
MOV
BR

001350
00135¢

001400

TST
BNE
JMP

BNE

000007

123701

001751

% i -

FROM O

TRACK

JALWAYS STARTS FROM O CYLINDER
;LAST CYLINDER
;SEEK FROM LO TO HI CYLINDER ADDRESS

;COUNT OF WORDS

#=-<258.%32.>
,MW(
;WORD COUNT
221..HAXSEC
;MAX 32 SECTOR

#<258.+30.>
W

R1,47
5%
ST

;ALL DONE WITH MAP ?
;BR IF NO
.DONE !!

MoV
BI(B
1ST18
BLE

R?,DRIVE

;LOAD R!

DRVSTA(RY)
5¢

;IS DRIVE ON LINE ?
;BR IF NO

:BR [F

#4 ,R2

;SETUP TRACK PARAMETER FOR AN RM0O3/?2

TST

7%:

#0 ,MINCYL
#822. ,MAXCYL
WRAP

;GET MONITOR

MOV
Moy
CLR
MOV
(LR
BIIB
BNE
INC
(MP
BLE
BR

BEQ
(MPB
BEQ

030350

$GET42

MOV
(MPB

;COUNT OF WORDS
#-<258.+30.>,Mu(
<WORD COUNT
;30 SECTOR
SEC30

#29. . MAXSEC
*MAX 30 SECTOR
R1
;START WITH DRIVE NUMBER O
ATABIT(R1) ,DEVMP
;IS THIS DRIVE IN DEVICE MAP ?
63
;BR IF YES
R1
; INCREMENT DRIVE #

ATABIT(R1) ,DEVMP

XXDP
7%
XXDP,R1

#7 ,DRVTYP(R1)

INTO DRIVE

:CLEAR THE BIT FROTMM DEVICE MAP

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

YES

;1S DEVICE AN RMOS ?

JRMLBO RMOS5/3/2 FORMATTER
FOR AUTO MODE

61 010704
63

001002

015702

010237
010237
137

58 010672

000022
001324

001332
011566

v06.00

4~-APR-B81

8%:

BNE
MOV
MOV
MOV
JMP

&
D
1B:39:5¢ PAGE 10-1

<33

;BR _IF NO
JSETUP TRACK PARAMETER FOR AN RMOS
sSETUP LAST TRA(CK AND

#18. ,R2
R2.LSTRK
R2 ,MAX TRK

JEND TRACK FOR AUTO MODE.

ST2

;START

TO FORMAT OR (HE(K

;SEE WHICH MODE THE PROGRAM [S TO BE RUN IN.
OR 'VERIFY HEADER FORMAT'
:MODES ARE: ‘FORMAT & VERIFY'
177776

ASKOQ:

001320
001205

061732

1%:

000001
0C0131

000116

037174

2%:

3%:

001320

4%:

CLR
(LR

TYPE
TYPE
RDL IN

OO0O0O0OC
N
e —2 —
O

012737
012737
012737
012737
000413

—t ettt
2 D

005037
012737
012737
012737

e
—t —

'}\J-‘—-O\l
ooy

2R R OCOO0O0COO0O0O
N
RORORD)
— — —
s
o P oo RO §38

OO0O0O0O0OCOVOOVOO
— e
D e b
e b 2
—
— D e e D el e D D —d — D —D

001406
122710
001420
104401
000756

104401

1046411
012600
105710
001414
105760
001006
122710

041771

ASK1:

000001

000131
000116

037174
177777

020100
157700

000037

001356
017074
160704

000035

1%:

001356
001350
001352
001360

001350
001352
001360

2%:

3%:

4%:

:?358?5

MODE

LSCRLF
.MMODE

JTYPE

MOV
TSTB
BEQ
TSTB
BNE
(MPB
BEQ
CMPB
BEQ

(SP)+ RO
(RO)
48
1(RO)
2%
#'Y,(RO)
4%

;READ

'FORMAT" MODE

'DO YOU WANT

THE

KEYBOARD

TO FORMAT

(L)

:WAS

IT A

"Y'

RESPONSE

JWAS

T A

'N'

RESPONSE

;BR IF YES

#'N, (RO)

s TYPE BAD ENTRY MESSAGE
:TRY AGAIN

INC

MODE

;SET 'VERIFY HEADERS ONLY' MODE

TYPE
RDL IN
MOV
TSTB
BEQ
1STB
BNE
CMPB
BEQ
(MPB
BEQ
TYPE
BR

FORMAT

TO BE

?°

:BR IF YES

IN 16.

MSIZE
(SP)+,R0O
(RO)

1(RO)
1%
'Y, (RO)

%
#'N, (RO)
3%

.BADENT

ASK1

OR 18. BIT MODE

:TYPE ‘DO YOU WANT 16 BIT FORMAT MODE (L) v ?°
;READ THE ENTRY
;SAVE ADDRESS OF RESPONSE
:gaslfiféggNSE A CARRIAGE RETURN (DEFAULT °Y¥*)?
;WAS

TERMINATED WITH CARRIAGE

;WAS

IT A

;BR _IF NO

:BR IF YES

'Y'

RESPONSE

RETURN ?

sWAS IT A 'N' RESPONSE ?
:BR 1F YES
. TYPE BAD ENTRY MESSAGE
;TRY AGAIN

MOV
MOV
MOV

#-1,SEC30
;32 SECTOR iINDICATOR
#<258.%32.>,WC
;TRACK SIZE IN 32 SECTOR MODE
#=-<258.%32.
,MW(
>
;2'S COMPLEMENT WORD CQUNT
#31. MAXSEC
;MAX SECTOR ADDRESS IN 32 SECTOR MODE
4%
s CONT INUE

CLR
MOV

SEC30
#<258.%30.>,uWC

MOV

MOV
MOov

'v")?

JWAS IT TERMINATED WITH CARRIAGE RETURN ?
JBR IF NO

TYPE

. SAVE ADDRESS OF RESPONSE
:gsslfiféggNSE A CARRIAGE RETURN (DEFAULT

3%
.BADENT

;sFIND OUT

QOO0O00
B b
e e

s
dée

ol s ol il et
(=]
el
’nnhu—KD(MD*vShnghumragygcn\fig
'fi

MACRD

230 SECTOR INDICATOR

;TRACK SIZE IN 30 SECTOR MODE
#-<258.+30.>,MWC
:2"'S COMPLEMENT WORD COUNT
#29. ,MAXSEC
;MAX SECTOR ADDRESS IN 30 SECTOR

MODE

JRMLB0O
1

7€

FOR

RM0S5/3/2

FORMATTER

AUTO MODF

MACRO v04.00

117 011124
118 011132
119 011136

012737
004737
005037

121

104401

120 011142
011146

122 011152
123 011154

"24 011156
011162
011164
011166
011170
011172
125 011174

104401

104411
012601

017630
024414
001126
036573
036604

004537
011176
011176
011176
011176
011204
011176

023120

001372

ASKkZ:

129 011204

010237

001222
001412

2%:

001406

123702
001003
104401

001412

011232
011236
011242
011246
011254
011262
011270
011274
011300

004737
004737
013700
012760
012737
012737
005037
105762
003015

017360
030466
030456
000040

;23 011310

000705

150 011312
151 011316
152 011320

105762
001003
104401

030350

}gg 011230

146 011302
147 011304

}gz 011324

155 011326

000735

001403
104401

000677

177777
177777
177776
030340

000010
030416
030420

‘DIGIT 8-9

104401

036722

158 011334
159 011342
160 011350
161 011356
162 011364
163 011370

113737
012737
012737
012737
012700
122762

001222
000000
001466

165 011400

012700

000022

000000
0000C4
000007

;TYPE BAD ENTRY MESSAGE
;ASK FOR DRIVE NUMBER AGAIN

MOV

R2,DRIVE
XXDP

;SAVE DRIVE NUMBER
;LOADED FROM THIS DEVICE ?
;BR IF NO

TST

JSR
JSR
MoV
MOV
MOV
MOV
CLR
1STB
BGT
BEQ

3%
XXDP ,R2

3%
MLODEV
ASK?2
PC,ST.CLK

PC,RMINIT
RMADR ,RO
#CLR,RMCS2(R0O)
#-1,SEEKFG
PS

DRVSTA(RZ)

005540
001330
001326
001334

030350

6%:

DRIVE

;DRIVE

IS LOAD DEVICE

;START

THE

(CLOCK

;GO SEE WHAT DRIVES ARE AVAILARLE

:GET BASE ADDRESS
:CLEAR MAS5SBUS
;SAVE

THE REGISTERS

;SET 'NO OPTIMIZATION® FLAG
;PRIORITY = 0
;LOOK AT DRIVE STATUS
:BR IF ONLINE
;BR IF DRIVE NOT AVAILABLE
‘DRIVE UNSAFE'

16O GET DRIVE NUMBER AGAIN

1STB

:A DRIVE

:BR IF SO

PRESENT?

'DRIVE NOT PRESENT®

TYPE

:TYPE

TYPE

;'DRIVE NOT AVAILABLE'
;GO GET DRIVE NUMBER AGAIN

;GO GET DRIVE NUMBER AGAIN

5%:

;WAS THIS THE
;BR IF NO

BNE

036675

;SAVE ADDRESS OF RESPONSE
sCHECK ONE (HARACTER
s ILLEGAL (HARACTER
: CARRIACE RE TURN

DIGIT 0=7

TYPE

4%:

°'DRIVE®
s Y
THE ENTRY

BADENT

TYPE

3%:

JCLEAR THE ERROR ACCUMULATOR

;TYPE
I
;READ

ASK?

TYPE

036751

000674

001002

(SP)+ ,R1
RS,(K.(HR

;CONTROL C ABORT ENTRANCE
JINITIALIZE THE TTY KEYROARD

BEQ
CMPB
BNE

036771

}gg 011332

166 011376

LMUNTT

1%:

011214

.COLON

SERTTL

037174

132 011216
133 011222
134 011224

TYPE
RDL IN
MOV
JSR

104401

005737

#C.ENTR,CNTLC
PC,S$TKINT

1%
1%
1%

000750

130 011210

MOV
JSR
CLR

TYPE

}gg 011202

126 011176

137
138
139
160
141
142
143
1644
145

&
E
1B8:39:56 PAGE 10-2

;GO FIND OUT WHAT DRIVE

131

4-APR-B81

MOvB

DRIVE,FMTDPB

MOV

#0 ,MINCYL

mov

#0 ,MINTRK
#4 RO
#7 ,DRVTYP(R2)
7%
#18.,R0

MOv
MOV
MOV
(MPB
BNE

#822., ,MAXCYL

;SETUP DRIVE ADDRESS

sCLEAR STARTING CYLINDER ADDRESS
sSETUP END CYLINDER
sCLEAR STARTING TRACK ADDRESS

:GET LAST TRACK FOR AN RM03/?2
;1S DEVICE AN RMOS ?
:BR IF NO
JGET LAST TRACK FOR AN RMOS

JRML B0 RM0S5/3/2 FORMATTER
“12E *OR AUTO MODE

166 011604
167 011410

010037

170 011414

MACRD

001324
001332

1B:39:5¢ PAGE

7%:

MOV
MOV
MOV
MOV
MOV
MOV

RO,LSTRK
RO MAXTRK
RO,TABLE+16
RO, TABLE+24
RO, TABLE2+¢

RO, TABLE 3+6

JSETUP LAST TRACK AND
JEND TRA(K PARAME TERS
;SETUP TRACK PARAMETER
sSETUP TRACK PARAMETER
;SETUP TRACK PARAMETER
sSETUP TRACK PARAMETER

TYPE

LSCRLF

J(R=L

005674
005710
005726

173 011424

011430
011434

005744
001205

174 011440

4-APR-B1

005666

011420

v04.00

MOV

RO, TABLE4+6

10-3

LIMITS IN ‘TABLE'
LIMITS IN ‘'TABLE""
[ IMITS IN ‘TABLEZ""
LIMITS IN ‘TABLE 3"

:ggTUf TRACK PARAMETER LIM]TS

;GET ADDRESS LIMITS

176
177

178 011444

179 011450

180 011454
181 011456

182 011460
183 011462

184 011464

005037
104401
104411

042362

012600

105710
001441
105760

000001

001006

500

122710

000116

104401

037174

—

— oy
—h —

ot —

O000

COOCDOO0
— e —h e Dk b
D
D~ —d —D

AAF RRAKEER Zu2e
88 IR
SHERIRSFE =R

OO0CO0OO
— o )l il
T
I eS

185 011670

ASK3:

001376

122710
001406
001430

000754
104401

004437
005650

036624

ASK3A:

020032

023737

001332

1STB

(RO)

001330

MSPRM

MOV

(SP)+,R0O

BEQ

ST2

1(R0O)
1%
#'Y,(RO)

037215

012737

177777

2%:
001376

3%:

v“:

JREAD

‘'(CHANGE DRIVE PARAMETERS

THE

ENTRY

;SAVE ADDRESS OF

:gasxfiféggNSE A CARRIAGE RETURN (DEFAULT
JWAS

TERMINATED WITH CARRIAGE

ASK3

;TYPE BAD ENTRY MESSAGE
:TRY AGAIN

TYPE
JSR

R4 ,PARENT

LENTADR

;TYPE

TYPE

JBADENT

RESPONSE

MAXCYL ,MINCYL
3

1%:

;TYPE

2%
#'N, (RO)
ST2

001334

JASSUME SEEK FROM LO TO HI CYLINDERS

8NE
CMPB
8EQ
(MPB
BEQ

103006
104401

000756

18:

2%:

001326

WRAP

T1STB

0C0131

023737
001402
103410
000412

(LR
TYPE
RDL IN

;BR IF NO

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

°'N')7

RETURN 7

'ENTER ADDRESS LIM]JTS:'

JENTER THE ADDRESS LIMITS
;TABLE PARAMETERS
;SEE IF ENDING CYL EQ TO GT THAN STARTING
;BR IF ON THE SAME CYLINDER
JBR 1P LESS
;TO CHECK DRIVE

MAXTRK ,MINTRK
2 )
.MADRER
ASK3A

;TRY AGAIN

#~1,WRAP

JALLOW SEEK FROM H]

JSEE IF ENDING TRACK EQ OR GT
;BR IF YES
s INVALID ADDRESS ENTERED

THAN STARTING

TO LO CYLINDER ADDRESS

JRMU
B0

THEE

ThE

RMOS/

DRIGE

372

FORMA -vér‘

MATRC

NUMMER

06.00

4-APR-ET
TYPE

LSBTTL

THE DRIVE NUMBER

;TYPE THE DRIVE TO BE FORMATTED AND STAKT

§ 011566
¢ 011576
7 011600
8 011606
9 011610

012737
005037
104401
005737
001403

11
12
13
14
15

000402
104401
005737
100403
1046401

037141

104401

037106

10 011612

011616
011620
011624
011630
011632

16 011636

17 011640
18 011644

104401

000402

0176472

177776

S12:

000060

001205
001320
037062

005037
012737
013737
012737
113737
105037
012737
012737
112737
112737
004037
005540
000774
005737
001775

39 011752

012737

011760
011764
011772
011776
012000
012002

012706
112737
004037
005540
000774
005737

47 012010
60 012012
61 012020
62 012022
gz 012026

100007
022737
103452
005237
000761

65 012030

005037

t£8 012044
69 012066

BEQ

037033
001356

1¢:

TYPE

2%:

;CR=LF
;1S IT

§QVERFV

sTYPE

'VERIFY HEADERS'

,MFORMT

;TYPE

'FORMAT & VERIFY'

;BR IF

1ST

SEC30

é;PE

ZQ18811

TYPE

JMI6BIT

8M]

2::

LSCRLF
MODE

CODE

RETRIEVES

THE

;BR IF

'FORMAT'

YES

MODE

001775

005037
005737
100440
022737

001404
005540
005552
005551
005546
005544
005541
005542

005556

011752
001100
000173
031214

RETBAD:

BAD

YES

;TYPE

'OPERATE

IN 18 BIT MODE'

;TYPE

'OPERATE

IN 16 BIT MODE'

SECTOR FILE

FROM THE

4%:

001347

001342
001176

6%:

001342
005556
151466

;LAST TRACK

#BUFP ,FMTDPB+6

:BUFFER ADDRESS

FMTDPB+10

#-<32.+258.> ,FMIDPB+4

JSR

RO.RMOS

;SET

ASETFMT ,FMTDPB+?2
1%

:;WORD COUNT FULL

;SET 16 BIT MODE

FMTDPB+16
2%

;THE COMMAND IS DONE ?
:BR IF NOT

MOV
MOV

#. ,SLPERR
#STACK,SP

;LOOP ON ERROR ADDRESS
sRESET STACK POINT

JSR

RO,RMOS

;sREAD THE LAST

FMTDPB

TST

#RDHD ,FMTDPB+2
3%

FMTDPB+16

BEQ
BPL
CMP
BLU
INC
BR

3 3
6%
#3 RETRY
9%
RE TRY
3%

(LR
CLR

$ESCAPE
RETRY

8M]

-8

EMTDPB+16

2151466 ,BUFF

TRACK INCLUDING HEAD

THE FORMAT BIT

15T
BEQ

MOVB

IS NOT AVAILABLE

sSECTOR O
JFMT SET

B8R

FORMATTED PA(K)

#822. ,FMTIDPB+12 ;CYLINDER 822.

#20,FMTDPB+1

FMTDPS

(IF

;INDICATE BAD SECTOR FILE
;LOAD DRIVE #

MOVB

MovB

PACK

RETRY FLAG

LSTRK ,FMTDPB+11

1ST

046234

THE

MovB

MOV

;CLEAR

#-1,BSFAVL
DRIVE ,FMTDPB

MOV

1%:

RETRY

MOV
MOV

(LRB

001124

005542

(LR

MOV

2%:

005556
000003

J1S IT 16 BIT MODE ?

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

22
23 011644
26 011650
25 011656
26 011664
27 011672
28 011700
29 011706
30 011712
31 011720
32 011726
33 011734
3, 011740
35 011742
36 011744
;g 011750

66 012034
67 012040

#O.ENTR,Q#TKVEC ;VECTOR FOR CONTROL=C
PS
JPRIORITY = 0

é;PE

:THIS

46 012006

MOV
(LR

TYPE
TST

20
21

40
41
42
43
44
45

&
G
18:39:56 PAGE 1)

;RELCAD THE READ HEAD AND DATA (OMMAND
TRACK

;BR IF QUEUE FAIL

JALL DONE

;BR [F NOT
;BR IF NO ERROR
JEXCEEDED RETRY LIMIT ?
;BR [F YES
s INCREMENT RETRY COUNT
:TRY AGAIN

sANY ERROR ?

JBR IF YES
JON THE LAST (YLINDER 7

CJRMLB0 RMOS/3/2 FORMATTER

TYPE

TWE

DRIVE

70 012054
71 012056

NUMBER

BNE
MOV

020037

046236

{MP

005737

(46240

74 012070

001026

75 012072

78 012106
79 012106

80 012112

001003
005737
001420
005737

001015

BNE

046242

BNE
TST

046244

016430

86 012136

012737

000400

87 012144

88 012146
gg £12146

000400

177777
046246
:

012706
005046

100 012200
101 012202

005023
005304

012746
012746
012746
012703
012704

012704
012723

108 012222

012603

}(1)8 0122246

001100

004430
002420
001414
003424
000004

005304
001374

000374
177777

117

118 012234
119 012240

120 012244

121 012250

122 012252

:‘;‘ 012254
125

126 012256

8EQ
ST

9%
BU' P+10

7%
BUF P+6

BNE

1%:

2%:

BUFP+12
9%

B8R

10%

3%:

;THIS

#400,BSFAVL

;SERIAL NUMBER SHOULD NOT 0

JBR IF NOT O
;SECOND WORD OF SERJAL NUMBEKR
;BR [F ZERO (CORRUPT)
sTHE THIRD WORD MUST BE 0

:BR IF NOT (CORRUPT)

AN AL IGNMENT PACK ?
:BR IF NOT
JREJECT FOR BEING AN AL IGNMENT PACK
;1S DISK A DATA PACK ?
sBR IF NO (CORRUPT)

JINDICATOR BAD SECTOR FILE [S AVAILABLE
SFILE OK..

INITIALIZES THE MFG16.

MFG18, USTAB AND USSAV TABLES

#STACK,SP
-(SP)

JINITIAL STACK POINT
:TERMINATOR

(R3) +
R4

;70 ALL 0°'S
:DONE YET ?

MOV
MOV
MOV
MOV
MOV

#USSAV,=(SP)
#MFG18,=(SP)
#MFG16,=(SF)
#USTAB,R3
#4 R4

BNE

(LR
DEC

JON LAST TRACK AND SECTOR 0O

:BR [F NOT

#-1,8UFP+12
8%
REJCTY

5T
BNE

TABINT: MOV
CLR

JMOVE TRACK TO Ml BYTE AND SECTOR T0O LO Ry Tf

(MP
BNE
JMP

:USSAV TABLE ADDRESS
:MFG 18 BIT FILE ADDRESS
;MFG 16 BIT FILE ADDRESS
;USER BAD SECTOR FILE ADDRESS
:SET 2 SERIAL NUMBER WORDS AND NEXT 2 WORDS

;JBR IF NO

MOV
MOV

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

;GET NUMBER OF ENTRIES LEFT TO FILL
;SET REST OF LOCATIONS TO -1

MOV

(SP)+,R3

:GET NEXT TABLE ON STACK

DEC
BNE

R4
3%

BNE

}3%
”g 012232

BUF P+4

MOV

001363

114 012226

001404

001375

104 012206
105 012212
106 012216
107 012220

8%:

;BR IF NOT
JGET LAST TRACK

RO ,BUFPs?

:THIS CODE

93 012146
9 012152

;85 012204

Q46246

9%:
10%:

?;12

95 012154
96 012160
97 012164
98 012170
99 012174

7%:

11-1

9%
LSTRK RO

022737
001002
000137
005737
001004

18:39:56 PAGE

SwWAR

81 012114
82 012122
83 0121264

84 012130
85 012134

&=-APR-B1

i
(01324

000300

76 012076
77 012700

06,00

001034
013700

72 012062

73 012066

MACRO

CODE

1%
LOADS

TABLE MFG16,

:DONE YET °
:BR IF NO

:BR IF NOT TERMINATOR
MFG'8,

USSAV FROM PACK BAD SECTOR FILE

;INFORMATION (]F BAD SECTOR FILE IS AVAILABLE)
005737

003451

012702
012703

012704

012223
005304
001375

012702

001404

TABLD:

046240

001414

000400

0472644

1%:

TJST

- BLE

BSFAVL

MOV
MoV

#BUFP+4 R2
#MFG16,R3

MOV
DEC
BNE

MOV

#256. R4

{(R2)+,(R%)+

;1S BAD SECTOR FILE AVAILABLE ?

JBR IF NO
;POINT

TO FIRST SERIAL NUMBER CF

1ST

;16 BIT "MFG' BLOCK OF BAD SECTOR FILE

:GET ADDRESS OF MFG16 TABLE
;WORD COUNT

;LOAD THE MFG16 TABLE
:DONE YET ?
:BR IF NO
sPOINT TO FIRST SERIAL NUMBER QF

1°7

MBUFP+4+516,
,R2 ;18 BIT "MFG' BLOCK OF BAD SECTOR FILE

JRMURO RMOS5/3/2 FORMATTER
Th E

DRIVE

012703

DEC
BNE

MOV
ST

SR8

o Qr4
o

ronano

lelels]

2%:

MOv
MOV
MOV

BM]

1B:39:56 PAGE

#MFG1B,R3
#256. R4

(R2)+,(R3)+

11-2

;GET ADDRESS OF MFGIE TAR(§

;WORD COUNT

;LOAD THE MFG18 TARLE

;DONE YET ?

:BR IF NO

JPOINT TO FIRST SERIAL NUMBER OF 157
218 BIT 'USR® BLOCK OF BAD SECTCR FILE
ARUFP+4+
< 1 .'516SSECTOR 11,
>-R2
SEL30
;FORMAT IN 16 BIT MODE
3%

JBR IF

nNOoOSMO

FRA QAR

W NN&
LAV
IANTANT,
STN
N T, N
o
WNAN
W AN
v

N
NN

3%:
4%:

5¢:

6%:

MOV
MOV
MOV
MOV
DEC

157

;16 BIT "USR' BLOCK OF BAD SECTOR FILE
#BUFP+4+<10,%516.>
,R2
;SECTOR 10.
#USSAV,R3
;GET ADDRESS OF USSAV TARLE
#256. ,R4
;WORD COUNT
(R2)*,(R3)+
;LOAD THE USSAV TABLE

BNE

;DONE YET ?
:BR IF NO

ADD
MOV
MOV
MOV
DEC
BNE

#4 ,R2

JACCESSES THE USTAB BUFFER ADD
;GET ADDRESS OF USTAB TARLE

#USTAB,R3

#256. R4
(R2)+,(R%3)+
R4

sPOINT TO FIRST SERIAL NUMBER OF

jelelelolaleleiiNelelslele]s)
e el e o B I R I S Sy

BAFRRAIEY o

B
D ol ol ol
Bl il
il
b el
ol
o

SeD s> ~
LRV
N Y 0

il ol

145

MACRD 04,00

0024,

815702 00480

TYRE

4=~APR-81

;WORD COUNT
;LOAD THE USTAB TABLE
;DONE YET ?
;BR IF NO

JRMUBO RMOS/3/2 FORMATTER
OCTAL

SERTAL

.SBTTL

el
ek -

J
18:39:56 PAGE

“
! P4

ENTER OCTAL

SERIAL NUMBER
NUMBER FOR UNFORMATTED OR

JINITIALIZED PACK
005737
003123

e
o
e

12412

001404

105737
001116

001150

004737
104401

024414
037533
000012

012702
005037
005037

:
SERNL

001414
001416

PUNY -

000067
001414

100000

001414
001414
001414
001414
001414

177770
001416

001474

~
N

MOV

TSTB

BEQ
CMPB
BLO
CMPB
BHI

ASL

8M]

ASL

BM]
ASL

BM]
ADD
MOV
ASL

001416

ASL
ASL

0014174

8IC
MOvB
BIC

177770

ADD

e Qo
G
e

PC,$TKINT

BiC

s Spenc o

Yot Qoo G

[slelelelelelolelelolelelelololels)

JSR
TYPE
MOV

ROL
ROL
ROL
ROL
ROL

001414

3%:

001416

001414

BI(

001416

001414

BNE

MOV

001414

001416

001414
001414
001414
001414
001414
100000

BSFAVL

CLR
CLR
RDL IN

2%:

0C0060

TST
BGT

1ST8B

ed e

el ed

4L-APR-B71

;THIS (ODE ASK OPERATOR TO ENTER A SERIAL

=OVONPNE
WM —=O00

v04.00

NUMRI
R

5Ny

FATER

MACRO

4%:

INC
DEC
BNE
1STB
BNE

TST
BNE
TST
BEQ
BR
INC

5%
$AUTOB

;1S BAD SECTOR FILE AVAILABLE ?

;JBR IF

YES

;BR [F

YES

JRUNNING UNDER AUTO MODE

JINITIALIZE THE KEYBOARD

MESG]

;TYPE

MFG16
MFG16+2

;CLEAR THE LSW OF THE SERIAL NUMBER
;CLEAR THE MSW OF THE SERIAL NUMBER
JREAD IN THE STRING

(SP) +,R1
(R1)

3%
(R1) ,#'0
6%
(R1) ,4#'7
6%
MFG16,-(SP)

#BIT15 ,MFG16

MFG16
MFG16
MFG16
MFG16
MFG16
#177770,mFG16
MFG16+2
6%
MFG16+2

6%
MFG16+2
6%
MEGI6E MFG16+2
(SP)+ ,MFG16
MFG16
MFG16
MFG16

#81T15,MFG16
(R1) ,R3

#177770.R3

g?.MFG16
R2
2%

(R1)
6%
MFG16
5%
MFG16+2
6%
5%
MFG16

'ENTER SERIAL NUMBER (OCTAL):

JMAXMUM 10 OCTAL DIGITS ALLOWED

;ADDRESS OF

THE READ IN STRING

;TERMINATOR OF THE INPUT STRING
;B8R IF It IS
;LESS THAN ASCIZ O ?
JENTER AGAIN IF IT IS
JHIGH THAN ASCIZ 7

JENTER AGAIN IF SO

;SAVE THE LSW
;CLEAR THE SIGN BIT OF LSW
JROTATE

THE LSW FIVE

TIMES

27O MOVE THE MOST SIGN DIGIT

;TO BIT 0 TO BIT 2

JLEFT ON THE MS DIGIT OF
sSHIFT THE MSW

THE LSW

LEFT ONE OCTAL DIGIT

JENTER AGAIN IF SIGN BIT SET

;APPENDING THE DIGITS INTO MSw
JRESTORE

THE LSW

JSHIFT THE LSW LEFT ONE OCTAL DIGIT
;CLEAR THE SIGN BIT

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

THE

READ

JADJUST THE READ

IN (CHARA(TER

TO LSW

IN STRING ADDRESS

;DECREMENT ONE DIGIT COUNT
;BR IF NOT DONE
;IF

10 DIGITS HAVE BEEN ENTERED

;BR IF NOT <CR> TERMINATOR
;FIRST SERIAL NUMBER ZERO ?
;BR IF NO
;SECOND SERIAL NUMBER ZERQ ?
;JBR IF YES
JASSUME S/N 1,

THE SERIAL NUMBER NEEDS

C2RMLE0 RMOS/3/2 FORMATTER

ENTER OCTAL

SERIAL

58
59 012632
60 012640

61 012646

62 012654

63 012662
646 012670
65 012676
66 012700
67 012704
68 012706

NUMBER

013737

C01414

013737
013737
013737
013737

001414
001414
001416
001416
001416

104401

037174

013737
000403
000634

MACRO v04.00

005

420

003424

5%:

004430
003426
004432
002422

6%:
7%:

4&-APR-81

MOV

&
K
18:39:56 PAGE 12-1

MFG16,MFGT8

:BE ENTERED DURING AUTO MODE APT,ACT,ETC.
*LOAD ALL

MOV
MOV
MOV
MOV
MOV
BR

MFG14,USTAB
MFG16,USSAV
MFG16+2,USTAB+2
MFG16+2,USSAV+2
MFG16+2 MFG18+2
7$
JEXIT

TYPE

,BADENT

;TYPE

TABLES WITH THE NEW SERIAL NUMBER

'BAD ENTRY'

;TRY AGAIN

JRMLBO

ROUTINE

FORMATTER

MATRO v04.00

JSBTTL

WNND

ITILITY

RMOS/3/2

4-APR-B1

&
13

L
1B:39:56 PAGE

UTILITY ROUTINE

QOO NRPNEBWN
OO
NN

;THIS CODING TO PROVIDE UTILITY ROUTINE ENTRIES
004737

024414

001057
005737
001454

001270

105737

e e s e

005227
001002
104401

104401
104410

012637
022737

[

101022
122737
103416
104401

104401

013701
042701
006301
004771

104401

013024

000745

013026
013032
013040
013042
013046
013052
013056

104401

022737
001735
005037
005037
005037

CALIN:

001150

18:

037740
040521

28:
3%:

001174
000060

001174

000064

001174

;BR IF NOT

INC

#-1

sFIRST

LJMUTLTY

JTYPE UTILITY MESSAGE
JREAD IN THE ROUTINE NUMBER

8NE

TYPE
TYPE
RDCHR
MOV

CMP
BHI

(MPB
BLO
TYPE

001174
001205
001174
177760

TYPE

MOV
BIC
ASL
JSR
TYPE
BR

006052
001205

001174

4%:

001362
001364
001344

PC,S$TKINT
$AUTOB

BEQ

177777

001205
000065

JSR
1ST8
BNE
TST

5%:

TYPE

(MP
BEQ
CLR
CLR
CLR

$CPwW1

3%
.MSGBLK
(SP)+,$TMPO

#'0,$TMPO
4%
#'4,8TMPO

4%
,$TMPO
LSCRLF
$TMPO ,R1
#177760,R1
R1
PC,aTABCAL{R1)

LSCRLF

JINITIALIZE THE KEYBOARD
JAUTO BYTE SET ?
;1F

SO, BRANCH

JALLOW ANY UTILITY ROUTINE ?
TIME

;ADDRESS OF

;BR IF SO
;TYPE CHARACTER
JCR=LF
:GET NUMBER
JLEFT OF THREE BITS
;WORD INDEX
;CALL THE DESIRED UTILITY ROUTINE

;CR=LF

;LOOP BACK TO THE SAME POINT

sCR=LF

Pt 3

;:BR IF YES

DS.CYL
DS.TRK
BADSEC

INPUT BUFFER

; INPUT NUMBER LESS THAN O ?
;BR IF SO
; INPUT NUMBER LARGER THAN 4

LSCRLF

2'S,$TMPO

THRU ?

;BR _IF NO
JENTER MESSAGE BLOCK

;TYPE WHOLE MESSAGE AGAIN ?

sCLEAR ALL PARAMETERS

(ZRMLBO RM(S5/3/2 FORMATTER

SETUP WRITE

BUFFER

MACRO v04.00

4-APR-B1 1B:39:56 PAGE 14

;

.SBTTL

;THIS CODE SETS UP THE SELECTED DATA PATTERN TO BE WRITTEN ON FA(H

;WITH SW0=1

JSECTOR

)

7 013056

104401

8 013062

013746

013066
013070
013071
9 013072

104403
002
000
104401

036573

036602

10
11
12
13
14

013076
013102
013106
01%112
013120

104401
004737
104401
012737
012706

036622
022622

16
17
18
19

C13130
013134
013140
013142

005037
005737
001006
012737

0C1406
001320

15 013124

20 013150
21 013154
Sg 013156

005037

ST3:

001222

001205
017642
001100

001406

015110

1%:

264 013162
25 013166
26 013172
27 013176
28 013202

013703
012700
013701
013702
010120

001350
046234
001336
001340

2%:

30 013206
31 013210
32 013212

005303
005303
001373

29 013204

010220

TYPE

3%:
4%:

JMUNIT

;TYPE

TYPOS
BT
BYTE
TYPE

2
O
. SCOMMA

;:TYPE DRIVE NUMBER
::GO TYPE--OCTAL ASCII
J:TYPE 2 DIGIT(S)
;s SUPPRESS LEADING ZEROS
JTYPE ',°

JPRIORITY = 0

:sSAVE DRIVE FOR TYPEOUT

.MSFOR
2%
VF YHDR

;TYPE "STARTING FORMAT'
;BEGIN FORMATTING
;BEGIN VERIFYING HEADERS ONLY

MOV

sTYPE 1 BLANK
;TYPE PACK S/N IN OCTAl
,SCRLF
;CR=LF
#O.ENTR,Q#TKVEC ;VECTOR FOR CONTROL=0
#STACK,SP
JRESET STACK POINTER

CLR
TST
BNE
MOV

UPDBSF
MODE
1%
#-1,UPDBSF

MOV
MOV
MOV
MOV
MOV

WC,R3
#BUFP,RO
PATA,R1
PATB,R2
R1,(RO)+

;SET
;SET
;SET
;SET
:MOV

DEC
DEC
BNE

R3
R3
4%

JKEEP COUNT
JKEEP COUNT
;DO IT AGAIN IF R3 NOT O

TYPE
BR
JMP

MOV

JBLNKS1
PC,TYPACK

R2.,(R0O)+

TESTED

'DRIVE'

DRIVE ,=(SP)

CLR

037315

ALSO, RETURN HERE WHEN LOOPING ON DRIVE BEING

(SET).

MOV

TYPE
MOV

000060

104401
(000402
000137

IMAGE.

TYPE
JSR

177776

177777

SETUP WRITE BUFFER

:DON'T ALLOW UPDATE OF °'RSF' AT END OF PASS
;'FORMAT' OR 'VERIFY HEADER® MODE ?
:BR IF 'VERIFY HEADER ONLY' MODE
JALLOW UPDATE OF °'BSF' AT END OF PASS

UP COUNTER
UP MEMCRY POINTER
UP PATTERN IN R1
UP PATTERN IN R2
1ST PAT INTO MEM

:MOV 2ND PAT INTO MEM

JRMLBO RMOS/3/2 FORMATTER

wRITE

WEADERS

MACRO v04.00

4-APR-B1

18:39:56 PAGE

SEQ 005:

;

.SBTTL

SSET UP TO WRITE HEADERS AND DATA FOR FORMATTING

5 013214
6 013220

8 013224

004737
004737

016714
017120

112737

000020

9 013232

005737

11 012240

105037

10 013236

001002

12 0132464
13 013252
14 013256

112737
004037
005540

16 013262

005737

15 013260 000774
}g 013266

001775

001356
005541

000143
031214

WRTRK:

005541

005542

005556

JSR
JSR

PC.SETDPB
PC.SETHDR

:SET DRIVE PARAMETER TABLE
*GO INITIALIZE HEADERS IN THE SE(TOR BUFFER IN (ORF

MOVB

#20,FMTDPB+1

;LOAD FMT16 BIT

BNE

“BR IF

18%:
28:
3%

WRITE HEADERS

CLRB

SEC30

FMTDPB+1

218 BIT MODE ?
NOT

*CLEAR THE FMT16 BIT

MOVB
JSR
FMTDPB

#SETFMT,FMTDPB+2
;'LOAD FORMAT' COMMAND
RO.RMOS
;START THE COMMAND
*DPB ADDRESS

FMTDPB+16

B8R

BEQ

*QUEUE FULL RETURN

:LOOP UNTIL FINISHED

*LOOK FOR DONE

sSET UP 'SECCU' TABLE WITH BAD SECTORS ON CURRENT TRACK

21 013270

22 013276
23 013300
26 013306

023727
103406
123737
103402

005552

001466

005551

001324

52 013310

000137

015076

27 013314

012703

005434

28 013320
29 013324
30 013330
gg 013332

012704
012723
005304
001374

WRTRKX: CMP

1$:

000040
177777

2%:

FMTDPB+12,#822.

;LAST CYLINDER ?

JMP

WRTRKZ

:DON'T DESTROY LAST

MOV

#SECCU,R3

;INITILIZE THE *SECCU' TABLE

BLO
CMPB
BLO

MOV
MOV
DEC
BNE

:LOAD THE

1%
:BR IF NO
FMTDPB+11,LSTRK :LAST TRACK OF LAST CYLINDER ?
1%
‘BR IF NO

#32. R
#=1.(R3)+
RG
2%

*TOTAL OF 32. ENTRIES
*LOAD ALL LOCATIONS TO -1
*DONE YET ?
*BR IF NO

'MFG' AND 'USR' BAD SECTOR FILES INTO THE

“THE CURRENT TRACK TO BE FORMATTED

36 013334
37 013340
38 013342
39 013344
40 013350
41 013354
42 013360
43 013362
—
44 013366
45 013370
46 013376
47 013400
48 013404
49 01310

005737
003454
005046
012746
012702
005737
100402
012702
010201
012703
012704

062701
023712
001007

001404

003434

007424
001356

002430

000770
005552

000003

50 013412
51 013420
52 013422

123762
001003
116205

005551

54
55
56
57

062702
020201
002012
020304

000004

53 013426

013430
013434
013436
013440

010523

3%:

005434
005524

4%:
5%

000002
6%:

IRACK ON CYL 822.

'SECCU®

TABLE FOR

ST
BLE
CLR
MOV
MOV
ST
BM]
MOV
MOV
MOV
MOV

BSFAVL
9%
-(SP)
#USTAB+8.,-(SP)
#MFG16+8..R2
SEC30
3g
MMFG18+8.,R2
R2.R1
#SECCU,R3
#SECCU+64.
R4

;1S BAD SECTOR FILE AVAILABLE ?
*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)

CMPB
BNE
MOVB

FMTDPB+11,3(R2)
6%
2(R2),RS

:BAD SECTOR ON THE SAME TRACK ?
‘BR IF NO
*YES==SAME CYL & TRK SO SAVE BAD SECTOR ADRS

ADD
CMP
BNE

MOV

ADD
CMP
BGE
CMP

#252.%2 Ri
FMTDPB+12,
(R2)
6%

RS, (R3)+

24 R2
R2.R1
8$
R3,R4

*INDEX ADDRESS TO END OF TABLE
:BAD SECTOR ON THIS CYLINDER ?
‘BR IF NO

(126. ENTRIES)

*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' TABLE ?

RM(CS/%/2 FORMATIER

b4
IR
M 80

HEADERS

L-APR-81

18:39:56 PAGE

15-1

8GE

000757

sYES==SHOULD NOT BF
.ONFE TRA(K
sGET NEXT ENTRY

JSR

PC RESTRY

: IMPROPER MFG INFORMATION

JMP

TABINT

;AND START AGAIN

002001

SR SR28

Ll ITE

MACR0

)

&7
68
&9
70

004737
012737
000137

011601
01260
00134
000240

8%:

;THIS

75 013500

76 013504
77 C13510

78 013514

79 013516

80 013522
81 013524
a2
83 013526
8« 013530
85 013534
86 013540
87 013542
88 013546
89 013550
90 013552
91 013556

92
93
94
95

013562
013566
013570
013576

9 013600
97 013602
98 013604
99 013610
100 013612
101 013614
102
103
104
105
106
107
108
109

013616
013620
013624
013630
013634
013636
013640
013642

111
112
113
114

013646
013652
013656
Q17462

110

#-1_8SFAVL

MOV
MOV

(SP) ,R1
(SP)+,R2

BNE

9%:

73
74 013474

MOV

CODE

SORTS

THE BAD

022712
001451
021262

103430

005434
005532
000037

SORT1:

000002

1%:

:BR IF NOT DUMMY (TERMINATOR)

SECTOR

177777

022712
001416

177777

062702
016222
022702

000002
000002

010246

101373
012737
012602

3s:

177777

005532

005304

001416
062702
020302
001341
005304
001410
012702

162703

022703
001401
000727
000240
005037

005037
005037
105037

013737

000002

4%:

5%:

005434
000002
005434
6%:

001316
001342
005550
001352

WRTRK1:

005544

;BOTTOM OF

TABLE

THE TABLE

32 ELEMENT,SORT

;N TH ELEMENT : N+1
;BR IF SMALLER

sDELET N+1

;BR IF

#2,R2

;DELET 2(R2)

ADD

R2,=(SP)

TH ELEMENT

TH ELEMENT,

#-1,(R2)

IF SAME

JSWITCH N ELEMENT TO N+1 ELEMENT
;ADJUST TOP POINTER

:TERMINATOR ?
IT

;SAVE TOP POINTER

MOV
cMP
BHI
MOV
MOV
DEC
BEQ
ADD
(MP
BNE
DEC
BEQ
MOV

2(R2) ,(R2)+
#SECCU+62..,R2
3%
#-1_SECCU+62.
(SP)+,R2
R4
6%
#2.R2
R3,R2
1%
R4
6%
#SECCU,R2

BEQ
BR
NOP
CLR

6%
1%

:
;SORT THE REST ELEMENTS
:DONE
;FLAG,START OF A NEW TRACK

CLR

SOF SW

;CLEAR FRROR COUNTER

(LR
CLRB
MOV

#2,R3
#SECCU,R3

RETRY
FMTDPB+10
MW( ,FMTDPB+4

TIMES

;OTHERWISE, N > N+1
sSTORE N ELEMENT
;SWITCH N+1 ELEMENT TO N FLEMENT

BEQ

(MP

;1S THE TABLE EMPTY ?
JBR IF IT IS, QUICK EXIT

MOV
BR

SuB
CMP

005536

(R2) ,2(R2)
4%

THE

(R2) ,=(SP)
2(R2) ,(R2)
(SP)+,2(R2)
4%

MOV

005532

JTOTAL

#-1,(R2)
6%

MOV
MOV

2%:

#31. R4

(MP
BEQ
BEQ

000002
000002

;TOP OF

#SECCU+62.,R3

CMpP
8LO

TABLE "'SECCU'" IN ASCENDING ORDER

#SECCU,R2

MOV
MOV

001406
011246
016212
012662
000421

MOV

IS NOT AVAILABLE

- DONE

sAND DELETES THE DUPLICATED ONES

01270
01270
012704

s INDICATE BAD SECTOR FILE

;GET 'USR' BAD SECTOR TABLE
sSTARTING ADDRESS OF °‘USR' BAD SECTOR TABLE

NOP

THAT MANY ENTRIES FOR

:
;BOTTOM OF THE TABLE ?
;BR IF NOT
;LOAD =1 TO TABLE BOTTOM
;RESTORE THE TOP POINTER
;DECREMENT ONE ELEMENT COUNT
;BR IF ALL DONE
; INCREMENT THE TOP POINTER
;REACH THE BOTTOM ?
;BR IF NOT
;DECREMENT ONE SORT COUNT
;BR IF ALL DONE
JRESET TOP POINTER

;UPDATE BOTTOM POINTER
:EXIT IF TOP = BOTTOM

;ZERO THE RETRY (OUNTER
;RESTORE SECTOR
;RESTORE WwC

JHEMIBD RMOS/%/2 FORMATTER
whiTE WEADERS

115

013670

16
117

012737

113737

118

012701
022711
001512
032711
001403
062701
000767
123711

FHRUK
B NNIN
OV~

013742
013746
013750

C13754
013756
013760
013762
013766
013772
013774

111102

023702
001463

005202
010237
052721
000432
105237

052721

145 014012

001771
123737

146 014020

147 014022
148
149 014026
150 014032
014034

152 014036

153
154
155
156
157
158
159

MOV

014042
014044
014046
C14050
014054

005434
177777

005550

CODE

1%:
-

100000

000002
2%:

005550
013270

3%:

001360

123711

101402

005536
100000

005550
100000
005550

005550

000137

015010

022711

177777

111102
023702
001430

001360

001443

WRTRKB:

MOVB
CMP
BEQ
BLO
INC
MOV
BIS
BR

INCB
BIS
CMPB
BLOS
JMP

103436

005202
010237
052711

(mMP
BEQ
BIT
BEQ
ADD
BR
(MPR
BEQ
BLO
JMP

BEQ

1%:

MP
BEQ
MOVB
CMP
BEQ
BLO

‘69 014122

000432

171

012737

170

014124

——

177777

MoV
MOVB

ASL

SuUB

ADD

MO
BR
005536

WRTRKF:

THE POINTER

FMTDPB+10.(R1)
WRTRKB

:BAD SECTOR =
BR IF IT IS

WRTRKX

JSOMETING IS WRONG,
“THE SAME TRACK

(R1) ,R2
MAXSEC ,R2
WRTRKF
WRTRKD
R2
R2,NEXT

#R3IT15,(R1)+

WRTRKC

*BR IF

STARTING SECTOR

START SEC < BAD SECTOR

TRY SORTING AGAIN ON

“UPDATE NEXT STARTING ADDRESS
*NEXT BAD SECTOR IS THE LAST SECTOR?
‘BR
‘BR

IF LAST SECTOR
IF LESS
INEXT = BAD + 1
*NEXT STARTING ADDRESS

:MARK THE ACCESSED SECTOR
*TO SET UP WORD COUNT

FMTDPB+10

; INCREMENT THE STARTING SECTOR

FMTDPB+10,
(R1)

-STILL ON ANOTHER BAD SECTOR ?

#BIT15,(R1)+

-MARK THE ACCESSED SECTOR

WRTRKB
‘LOOP AGAIN
FMTDPB+10, MAXSE C
:IF START

HDRSET
#-1,(R1)

SECTOR > MAXSEC
;: IMPROPER MFG INFORMATION
CEXIT

:TO SEE

NEXT BAD SECTOR

IN TABLE

WRTRKD

‘BR IF NONE

MAXSEC ,R2
WRTRKF

‘BAD SECTOR IS THE LAST SECTOR ?

R2
R2NEXT
#BIT15, (R1)

*BAD SEC +1
*NEXT STARTING ADDRESS
*MARK THE ACCESSED SECTOR

(R1) ,R2

*UPDATE THE NEXT

#-1,NEXT

006164
000402

ASL

005544

*LOOPING BACK

*ADJUST

MOV

166 014110

166203
062703

005403
010337

#2.R1

*THE BAD SECTOR HAS ALREADY ACCESSED ?

NEG

163 014076

167 014114
168 014116

;BR IF NOT

*WORD INDEX
- WORD CTR FOR SECTOR O TO ENDING SECTOR
:STARTING SECTOR
*WORD INDEX
:WORD COUN1 FOR SECTOR O TO STARTING SECTOR
;ADJUST ONE SECTOR
:GET THE NEAGTIVE WORD COUNT

WRTRK(: MOV
SuB

006302

#B1T15, (R1)

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

005536
000002

164 014102
165 014104

;STARTING SECTOR
*R1 POINTS TO THE BAD SECTOR TABLF
‘END OF 'SECCU' TABLE 2
‘BR IF YES

:CALCULATE THE WORD COUNT

013702
162702
006302
016203
113702

006164
005550

NEXT,FMIDPB+10
#SECCU,RT
#-1.(RD)
WRTRKD

NEXT ,R2

100000

161 014070
162 014072

AND BUFFER ADDRESS

:BR

005536

014060

;RESTORE BA

WRTRKD

INC
MOV
BIS

160 014064

15-2

TO SET UP WORD COUNT

CMPB

001360

1B:39:56 PAGE

#BUFP FMTDPE+6

WRTRKA: MOVB
MOV

103471

014000

014004
014010

001416
103402
000137

005536

4-APR-BT

005546
;THIS

120

151

046234

MATRO v04.00

#2 ,R2

R3,FMTDPB+4
WRTRKE

LESS

"ENDSECTOR = NEXT = 2

*LOAD THE WORD CTR INTO DPB
*LOAD THE STARTING ADDRESS
JALL

DONE

JRMLBO RMOS/ 377 FORMATITER

WEADERS

172 014132 0527'1

173 014136

005302

176 014142
;;g 014150

012737
013702

179 014154
180
014156

006302
016203

182 014166
133 014170
184 014174

006302
166203
062703

;;g 014140

181

014162

MACRD

1137202

177777
001360

005536

006164
005550

005544

189 014210
190 014214

113702
006302

005550

016237

006064

005546

193 014224
194 014232
195 014240

112737
012737

012706

000163
014232
001100

005542
001124

197 014250
198 014252
199 014256

005540
000774
005737

196 014244

200 014260
201 014262

202 014264
205 014272
204 014276
205 014300
206 014302
207 014304
208 014306
ggg 014310
211 014312

212 014316

213 014324

214 014326

215 014332

216 014334
g}g 014340

004037
001775
100024

004737

016646

022737

001403

000003

005237

001342

005037
005037

001176
001362

000744

B8R

WRTRKH

:PATCH

SPATCH FOR THE LAST SECTOR

WRTRKH:

ASL
MOV
MOVB
ASL
SUB
ADD
NEG

Re
WCTBL(R2),R3
FMiDPB+10.R2
R2
WCTBL(R2),R3
#258. ,R3
R3

WRTRKE: MOVB
ASL

FMTDPB+10,R2
R2

WRTRK2:

MOVR
MOV
MOV

#WRTHD,FMIDPB+2
:SET WRITE HEADER & DATA COMMAND
#. . SLPERR
;SET UP LOOP ON ERROR ADDRESS
#STACK, SP
*LOAD STACK POINT

FMTDPR
BR
ST

1%
FMTDPB+16

MOV

28:

001176

001342

#=1,NEXT
MAXSE C ,R2

1%:

005556

014312
016550

;MASK THE SECTOR

MOV
NOP

031214

012737
004737
104010
104011
104012
104013
104014
104015

#81T15, (R1)

WRTRKD: MOV
MCV

006164
000402

010337
000240

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

8IS
DEC

005403

;g; 014216

4-APR-81

100000

185 014200

186 0164202
}gg 0°4206

v0s.00

JSR

;WORD INDEX
:WORD CTR FOR

THE ENDING SECTOR
:STARTING ADDRESS

*WORD INDEX
-WORD CTR FOR THE STARTING SECTOR
*ADJUST ONE SECTOR

*NEGATIVE WORD COUNT

“LOAD THE WORD COUNT INTO DPB
: DONE
:STARTING ADDRESS
:LOCATE THE BUFFER ADDRESS

ADRTBL (R2) ,FMTDPR+6

RO,RMOS5

:BUFFER ADDRESS

*ADRS OF PARAMETERS - TBL
*WAIT FOR QUEUE IF FULL
*WAIT FOR COMMAND TO COMPLETE

MOV
JSR
EMT
EMT
EMT
EMT
EMT
EMT

2$
4%
#3%, $ESCAPE
PC,ERINDX
10
11
12
13
14
15

JSR

PC.LOP. (K

:LOOP ON THE ERROR ?

BEQ

*BR IF REACHED

CMP

B8R

CLR
CLR

#3.RETRY
RE TRY

$E SCAPE
RETRY

IN TBL

260 FORMAT A TRACK

BEQ
BPL

INC

48:

R3,FMTDPB+4

;NO MORE BAD SECTOR
“LAST SECTOR

*BR IF NOT DONE
*BR IF NO ERROR

*;ESCAPE TO 3$ ON ERROR
*SEE WHICH ERROR
L
*DRIVE OFFLINE
*PERSISTENT DRIVE UNSAFE ERROR
*UNCORRECTABLE MASSBUS PARITY ERROR
*SOF TWARE TIMEQUT
*DRIVE UNSAFE ERROR
*DRIVE/CONTROLLER ERROR DURING WRITE
*ERROR RETRY LIMIT ?
“COUNT

THE ERROR

“TRY AGAIN

*CLEAR ERROR ESCAPE ADDRESS
*CLEAR THE RETRY COUNTER

- A

JUS

FORMATTER

WRITTEN

MACRD

v04 .00

14 W I

LSBTTL

B e

NN
wW SO O

-‘“

0146344

014352
014360

014364
014370
01437¢
014374
014400

014402

016404
014412
014414
014422
014426

014450
014452
014454
014456

1127%7
0127%7

000153
014352
001100

004037
005540
000774
005737
001775

031214

113737
001005
013737

005566

001344

001360
0C1344
001344
014736
016550

001344

012706

005237
005337
012737
004737
104010
104011
104012
104013
104014

37 014502
38 014506
39 014510

005737
001413
012737
004737
012737
004737

43 014534
44

45 014536

46 01454¢
47 014550

48 014552
49 014554

50 014556

1%:

005556

2%:

001176

3s:

130620

005570

005574

001001

104016

104017

005037
032737
001002

001316

014762
020146

100000
020754

001176
040000

(%:

001176

005572

104024
000401

6%:

104020

- 013701

001344

006301
016137

001344

005550

006064

005546

113737

JSETUP LOOP ON ERROR ADDRESS
;LOAD STACK POINTER

JSR

RO,RMOS

;GO CHECK THE

BR
TST
G
Bt
BPL

1%
FMTDPB+16

;WAIT FOR QUEUE IF FULL
;WAIT FOR COMMAND TO COMPLETE

:BR

FMTDPR

7%:

(HECK HEADER € DATA COMMAND

;BR IF NOT DONE
IF

NO ERROR

;GET

THE

SECTOR ADDRESS

;BR IF NOT SECTOR O

PC ,ERINDX

;SEE

;RESTORE TO LAST SECTOR +1
: INCREMENT TO LAST SECTOR +1
;ADJUST 10 BAD SECTOR
;;ESCAPE TO 118 ON ERROR
WHICH ERRCOR

;DRIVE OFFLINE

sPERSISTENT DRIVE UNSAFE

;DRIVE UNSAFE ERROR

ERROR

EMT
EMT
EMT

12
13

BIT
BNE
BIT
. WORD
BNE
EMT

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

TST

BEQ

CLR
BIT
BNE
EMT
BR

;UNCORRECTABLE MASSBUS PARITY ERROR
; SOF TWARE TIMEOUT

sFILLER FOR 'ERINDX'® ROUTINE

(HE(K

SOF SwW

;RETRYING THE SECTOR ?

#12%,8ESCAPE
PC,RECORD
#MF _HDRBIT
PC,RESET
17

;:ESCAPE TO 12% ON ERROR
JRECORD THE BAD SECTOR IN USR TABLE
;INDICATE 'USR' BAD SECTOR
JRESET THE HEADER BITS AND WRITE HEADER
JRETRIES NOT SUCESSFUL-SECTOR NOT ACCEPTABLE

$ESCAPE

JRESET ESCAPE ADDRESS

6%
24

;BR IF YES
JWRITE CHECK ERROR

#ERR,RM.REG+RMDS

;BR IF NO

;DATA ERROR

- CONT INUE

EMT

;DATA ERROR DURING WRITE C(HECK

MoV
MOVB
ASL

BADSEC,R1

sFAILING SECTOR ADDRESS

;SETUP INDEX TO ADDRESS WORDS

MoV

TRACK JUST FORMATTED

MAXSEC ,BADSEC
BADSEC
BADSEC
#11%,$ESCAPE

sADRS OF PARAMETERS = TBL

RM.REG+RMDA ,BADSEC

MOV
INC
DEC
MJV
JSR
EMT
EMT

JSR
MoV
JSR
EMT

5%:

(HE(K HEADER

#. SLPERR
#STACK,SP

MOV

001410

TRACK JUST WRITTEN, WITH A WRITE

#WCKHD ,FMTDPB+2 ;SET WRITE

NOP

040000

THE

MOvB
MOV
MOV

MOvVB
BNE

000240

032737
001005
033727

42 0146530

(KTRK:

100132

014460
014466
014470
014474
014476
014500

40 014516
41 014522

005542
001124

(HECK TRA(CK JUST WRITTEN

JSET UP TO (HMECK

014440
014444
014446

18:39:56 PAGE

JAND DATA COMMAND

21 014432

31
32
33
34
35

4-APR-B1

BADSEC,FMTDPB+10

;SECTOR ADDRESS

ADRTBL
(R1) ,FMTDPB+6

;BUFFER ADDRESS FOR FAILING SECTOR

JRM RO RMOS5/3/2 FORMATTER
mE (K TRACK JUST WRITTEN

56 014602

57 014606

013201

005737

58 016612
59 014614

100404
013701

61
£2
£2
6

014624
014626
0164632
014636

006301
016102
1137201
006301

66 014644

005402

«0 014620

£5 014660

162701

MOV

005536

BM]
MOV

000002

001346

;? 014664

000137

012737
005237

177376
001316

72 0164670

005737

001316

74 014676

022737

000002

76 014706

005237

001316

123737

001360

;; 014712
79 014714

001403
000624

80 014722
81 014726
&2 014730
gz 014734

(001417
004737
005037
000613

85 014736
86 014742
87 014750
88 014752

004737
022737
001404
005237

001342

91 014762

005037

001176

93 014772

005037

001316

95 015002

100402

gg 014756
92 014766

94 014776

96 015006

97 015010

000137
005037
005737

000137

9% :

016646
000003

001342

118

001342
005536

013676

;SAVE

JMP

WRTRK?2

;REFORMAT ERROR SECTOR

SOF SW

:RETRY IN PROGRESS ?

CMP

#2,S0F SW

:SEE IF LAST RETRY

INC

SOF SW

(MPR

MAXSEC,FMTDPR+10

12%

ISE

gM]

JMp

:BR

108

THE WORD COUNT

;BR IF

NOT

:READ AGAIN
;SEE

LAST

SECTOR ON THE

TRACK

12%
PC, SCAWC
SOF Sw
1%

:BR IF IT IS
;SETUP TO CHECK REMAINING SECTORS ON THE
;CLEAR RETRY COUNTER
:
sFINISH CHECKING THE TRACK

PC,LOP.CK
#3 RETRY
12%
RETRY

:CHECK
:ERROR
:BR IF
:COUNT

;

FOR LOOP ON ERROR
RETRY REACHED ?
IT IS
THE RETRY

;DO THE WRITE CHECK AGAIN

$F SCAPE

:CLEAR THE ERROR RETURN ESCAPE ADDRESS

SOF Sw

;CLEAR THE SOF TWARE RETRY (OUNT

RETRY
O

: INCREMENT RETRY COUNT

(LR

:WORD CTR FOR STARTING SECTOR

#-258. ,FMTDPR+4 ;WORD COUNT FOR 1 SECTOR
SOF SW
:INDICATE THAT A RETRY IS IN PROGRESS

R2, SAVWC

JMp

12%:

;ADJUST TWO SECTORS

MOV

JSR
CMP
BEQ
INC

014364

;WORD INDEX
JWORDCTR FOR ENDING SECTOR
;STARTING ADDRESS
:WORD COUNT

BEQ
JSR
(LR
BR

017072
001316

R1
WCTBL (R1) ,R2
FMTDPB+10,~1
R1

:WHOLE TRACK DONE ?

WwCTBL (R1) ,R2

BEQ

10%:

:BR IF IT IS
:LOAD CURRENT ENDING SECTOR

SUR

BR
005550

8$
NEXT,R1

#2 ,R1

BEQ

001316

;R1 ENDING SECTOR #

SuUB

MOV
INC

014224

S
16-1

MAXSEC ,R1

NEG

(05544

F
18:39:56 PAGE

TST

ASL
MOV
MOVR
ASL

005550

010237

75 0147064

8%:

006164

57 014646

001432

4-APR-81

(05536

006164

73 0164676

V04,00

001360

166102

£8 014652
£9 014560

MACRD

NEXY

138

WRTRKA

:CLEAR THE RETRY COUNTER
:WHOLE

SBR IF

TRACK DONE

TRA(K

RMOS/ 3/ FORMATTER
TO

SET

WEADER 817

MACKD v06.00

WO = O Q00 NP NP NN

-—a

PUNININD
=D =d el —d b o e e

OO0

.SBTTL

015010

032777

000002

015016
015020

001402
000137

013270

015024

012737

040000

015042

001414

015032
015036

012704
022714

005434
177777

015044
015050
015052
015056
015062
015066
015072
015074

032714
001006
052714
111437
004737
062704
000761
000240

15076
015102

004737 016770
000402
Lo
000137 013270

015104

164136

001470

ROUTINE

HDRSET: BIT

BEQ
JMP

18:

2%:

040000

040000
001344
020754
000002

4-APR=-81

3%:
4%:

B3
18:39:%6 PAGE 17
TO SET HEADER B]T

#8171,aSWwR

MOV

#UF _HDRBIT

8EQ

MOV
CMP

BIT
BNE
BIS
MOVB
JSR
ADD
BR
NOP

WRTRKZ: JSR
BR
JMP

& LOOP ON (!'RRENT TRA(K ?

3
WRTRKX

#SECCU,RS
#=1,(R4)

#BIT14, (R4)
3%
#B1T14, (R4)
(R4) ,BADSEC
PC,RESET
#2.R4
2%
PC,TRKTST
VF YHDR
WRTRKX

:BR IF NOT
:START AGAIN ON THE SAME

;INDICATE

TRACK

°*MFG' BAD SECTOR

;TABLE FOR BAD SECTOR ON CURRENT TRA(Kk
JEND OF TABLE ?
:BR IF

;sHAS THE SECTOR BE ASSCESSED ?
;BR IF SC

JMASK THE SECTOR TABLE
;SECTOR ADDRESS
JRESET THE HEADER
s INCREMENT THE TABLE POINTER
sLOOPING BACK
JALL DONE

;GET UPDATED TRACK AND CYLINDER ADDRESSES
sRETURN HERE IF DONE
JAND DO QUICK CHECK OF DISkK
;CONTINUE WITH THE FORMAT

PORMATTER

(RO

04,00

1B:39:56 PAGE

5
18

VERIFY HEADER ROUTINE

;THIS (ODE MAKES SURE EACH CYLINDER FORMATTED (ONTAINS THE
;PROPER CYLINDER ADDRESS.

THE PROGRAM IS LOOKING FOR

KEINEELEREREFNYRS

vl s

ok -l

Sanaunon

D macd il o
i
sl
D s
) s

) ol -l - -l o = o
el
— e

104401

000402
104401
004737
004737
012700
012701
010137

013737

001324

Sancon

roN
SRRSO

000173
031214

7%:

015 562
55
016550

8%:
9%:
108:

005542
11%:
12%:

005556

001176

MODE

;TYPE

'STARTING HEADER VERIFY'

JGET STARTING ADDRESS OF EXPECTED HEADERS

005551

112737
004037
005540
000737

'VERIFY HEADER ONLY'

#BUFP RO

123737
001405
005737
001002
105037

005556

JOR IF YES, ELSE
;TYPE 'STARTING QUICK HEADER VERIFY'

MOV

5%:
6%:

005542

LMSVER

;1S

3%:

001124
005541
001466

005541
000143
031214

TYPE

;CLEAR RETRY COUNTER

;SET DRIVE PARAMETER TABLE

005544

001356

1%
ég30VER

PC,SETDPB

015212
000020
005552

103404

MODE

JSR

012737
112737
023727

2 —D
b —d
D
d

1$:

106434

001322

RETRY

TST

2%:

212

TN
NN

e
e
e
e

03737¢
016714
017120
046234

4%:

VWA ANNTVLAWVY
VNN
N
WWN
TN
SN

037337

005546
001352
001322
0C1320

(LR

BNE
A;PE

005544

004037
005540
000774
005737
001775

e e

VFYHDR:

177776

112737

OCOOD0O0

001342
061320

005037
005737
001005
012737
005237

— d

o —— -

005037
005737
001003

N
- ) ol

elalelolelslvolslelelalaleleolelolelslele
e lale

;POSSIBLE POSITIONER ERRORS THAT MAY HAVE OCCURRED DURING THE FORMAT,

COOO0OOOCOO

D
d
D
i
ol
e
i

NO NS WA

=« OO

NN N

.SBTTL

4-APR-B1

JSR

PC,SETHDR

MOV

#BUFV,R1

MOV
Mov
(LR
TST
BNE

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

iNC

SNGSEL

MOV

#=2 ,FMTDPB+4

MOV
MOVB

#.,3LPERR
#20,FMTDPB+1

CMP
8LO
CMPB
BEQ

TST
BNE
CLRB
MOVB
JSR

FMTLPB+12,#822.
7%
~
FMTDPB+11,LSTRK
8%

FMTDPB

;SET

HEADERS

IN CORE

;GET STARTING ADDRESS OF

;SETUP WORD COUNT

;SETUP SINGLE SECTOR READ

;SETUP LOOP ON ERROR ADDRESS
JLOAD 'FMT' BIT FOR 16 BIT FORMAT

;IS IT LAST CYLINDER ?
;BR IF NO
;LAST TRACK OF LAST CYLINDER (BSF)
s8R I YES

SEC30
;1S IT 16 BIT MODE ?
8%
;BR IF YES
FMIDPB+1
sLOAD 'FMT' BIT FOR 18 BIT FORMAT
H#SETFMT FMTDPB+2
[ 'LOAD FORMAT' COMMAND
RC,RMOS
sSTART THE COMMAND
:DPB ADDRESS

;QUEUE FULL RETURN

BEQ

10%

;LOOP UNTIL FINISHED

FMTDPB+16

MoVB
JSR
FMTDPRB

#RDHD ,FMTDPB+2
RO,RMO5

BEQ
BPL

12%
i5%

;LOOK FOR DONE

SET UP READ HEADER & DATA COMMAND
;GO READ HEADER
;ADRS OF PARAMETER TBL

BR
TST

6%
FMIDPB+16

JWAIT IF QUEUE IS FULL
;WAIT FOR COMMAND TO COMPLETE

MOV
JSR
EMT
EMT

#18%,$ESCAPE
PC ,ERINDX
10
11,

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

EMT

EMT
NOP

FOR QUICK VERIFY

TST

RECIEVED HEADERS

;SET UP BUFFER ADDRESS
;SETUP WORD FOR VERIFY ONLY MODE
;SETUP MULTI-SECTOR READ FLAG
;1S IT 'VERIFY HEADER ONLY' MODE
sBR _IF YES

12
13

;BR IF NOT DONE
;BR IF NOT ERROR

;DRIVE OFFLINE
;PERSISTENT DRIVE UNSAFE ERROR
JUNCORRECTABLE MASSBUS PARITY ERROR
s SOF TWARE

TIMEQUT

sDRIVE UNSAFE ERROR
FILLER FOR '"ERINDX' ROUTINE

JEM D RMOS /30 FORMAT TER
ARIEY sEADER ROUTINE

S8 015360

Q32737

040000

60 015370
61 015374
t2 015376

005737
001701
005237

001322

4 0156410

101273

5% 01536

001427

MACRO

;ANY DRIVE ERRORS

TST
8EQ
INC
(MP

SNGSEC
4%
RE TRY
#3, RETRY

JALREADY READING SINGLE
JBR IF NO
; INCREMENT RETRY (OUNT

(mMP

#HCE RM_REG+14

;IS IT A HEADER COMPARE ERROR ?

£5 015412

022737

000200

005574

68 0154
o9 015632

001401

000400

005574

104022

71 015436
72 015442
;2 015444

022737
001453
104021

100000

75 015446

005037

001342

77 015460
78 015464

011037
023727

046230
005552

76 015452

79 015472

80
81
82
83
846
85
86
g;

012737

103407

015562

005622

001176

123737
001003
052737
052711
011137
023737
001401
104023

005551

001324

010000
140000
046224
046224

046230

89 015534
90 015542

016037
016137

000002
000002

046232
046226

92 015556
32 015560

001405
104007

015550

023737

BH]

BEQ
81T
BEQ

046226

14%:

15%:

046232

?
SECTORS

JTRIED 3 TIMES ?
;BR IF NO

13%
:BR IF YES
#HCRC,RM_REG+14 ;IS IT A HEADER CRC ERROR ?
22

J'HCE® OR 'HCRC® ERROR VERIFYING WEADERS

(MP
BEQ
EMT

#RSE ,RM.REG+42
19%
21

;BAD SECTOR ERROR ?
;BR IF YES
;CONTROLLER/DRIVE ERROR VERIFYING HEADERS

RETRY

s CLEAR RETRY COUNT

(RO) ,RBUF +4
FMIDPB+12,#822.

sGET EXPECTED CYLINDER HEADER
;1S IT LAST CYLINDER ?

BLO

17%:

EMY

MOV
(MP

046230

;BR

;BR IF NO

(LR

16%:

15%

14%

MOV

001466

015474
015502
015504
015512
015516
015522
015530
015532

BEG

13%:

P 015432

1B-?

#ERR ,RM_REG+12

001342

0014
(032737

PAGE

817

001342
000003

66 015620
£7 015422

TE:39:5¢

005572

022737

63 015402

L=APR=ET

v04, 00

#18%,$ESCAPE

16%

;;ESCAPE

;BR

TO 18% ON ERROR

IF ‘NO

CMPB
BNE
BIS
BIS
MOV
(MP
BEQ
EMT

FMIDPB+11,LSTRK
16%
#FMT ,RBUF +4
#MF ' UF , (R1)
(R1) ,RBUF
RBUF ,RBUF +4
17%
23

MOV
MOV

2(R0) ,RBUF +6
2(R1) ,PBUF +2

;GET EXPECTED TRACK/SECTOP ‘EADER
;GET RECIEVED TRACK/SECTOR HEADER

BEQ
EMT

19%
7

;BR IF YES
;TRACK/SECTOR FIELD IN HEADER IS NOT CORRECT
;CHECK FOR LOOP ON ERROR
;FAILED DURING HEADER CHECK, REJECTED

(MP

RBUF
+2 ,RBUF+6

;LAST TRACK OF LAST CYLINDER (BSF) ?
;BR IF NO
;BAD SECTOR FILE IS ALWAYS 16 BIT MODE
;SET MFG AND USR GOOD SECTOR BITS
;GET RECIEVED CYLINDER HEADER
JSEE IF CYL READ EQUALS CYL EXPECTED
:BR IF CYL CORRECT
;CYLINDER FIELD IN HEADER IS NOT CORRECT

;IS TRACK AND SECTOR CORRECT

95 015562
39 015566

004737
000137

016646
016510

18%:

JSR
JMP

PC.LOP.CK
REJCTS

98
99
100
101
102
103
104
105
106

C15572
015576
015600
015606
015610
015614
015620
015624
015626

005737
001416
123737
001412
105237
062700
005737
001235
062701

001320

19%:

ST
BEQ
(MPB

ADD

MODE
;IS IT "FORMAT' MODE ?
20%
;BR IF VES
FMTDPB+10,MAXSEC
;DONE WITH ALL SECTORS ?
208
;BR IF YES
FMTDPB+10
;UPDATE SECTOR ADDRESS
#516. ,R0
;ADJUST POINTER TO NEXT EXPECTED HEADER
SNGSEC
;READING ONE SECTOR AT A TIME ?
11%
;BR IF YES
#516. .R1
;ADJUST POINTER TO NEXT RECIEVED HEADER

15%

;GO COMPARE NEXT SECTOR

109 015634

105037

005550

(LRR

FMTDPB+10

;START AT SECIOR 0

JSR

PC,UPDTRK

JUPDATE

;gg 015632

110 015640
111 015644
112 015652

113 015654

000705

105237
123737
101003

004737

005550
005550
001004
001322
001004

005551
005551

017320

001360
:

BEQ

.
i

INCB
ADD
1ST

BNE

20%:
001332

INCB
(MPB
BHI

FMTDPB+11
s INCREMENT TRACK NUMBER
FMTDPB+11,MAXTRK
;WAS IT LAST TRACK ?
218
;BR IF YES

TRACK ADDRESS IN BUFFER

JRMUB0 RMOS/3/72 FORMATTER

ARIFY HEADER ROUT INE

114 015660
116 015662
117 015670
118 015674

119 015676

120 015702
121 015710

122 015712

123 015714

124 015720

125 015726
126 015730
1¢7 015734

128 015740

MACRO v04.00

000425
113737

005737
001407
005337
023737
002413
000406
005237
023737
101004

004737
000137

00133
001376

00555¢
005552
005552

005552
017206
015144

005551

21%:

23%:
24%:
25%:

18=2

;GO READ NEXT TRACK

263

MOovR
TST

MINTRK ,FMTIDPB+11
sGET STARTING TRACK ADDRESS
WRAP
JSEEKING FROM H] TO LO CYLINDERS ?

CMP

FMTDPB+12
;DECREMENT CYLINDER ADDRESS
FMTDPB+12 ,MAXCYL
:DONE WITH VERIFY ?

BLT

22%:

18:39:56 PAGE

BEQ
DEC

001326

00132¢

4=APR=81

INC
CMP
BHI
JSR
JMP

22%

sBR IF NO

25%
23%

;BR IF YES

25%

;BR IF YES
sUPDATE CYLINDER ADDRESS IN BUFFER
;GO READ NEXT CYLINDER

FMiDPB+12
;s INCREMENT CYLINDER ADDRESS BE ING (HECKED
FMTDPB+12 ,MAXCYL
:DONE WITH VERIFY ?

PC,UPDCYL
3%

MATRO v04.00

SBTTL

4-APR-B1

END OF

18:39:56 PAGE

PASS ROUTINE

':...'.I...Q."...."""'Q..fi.....Q.'.tt.'.t.QQ".."..t..'t."'

L% INCREMENT THE PASS NUMBER ($PASS)
‘«]F THERES A MONITOR GO TO IT
“«IF THERE ISN'T JUMP TO DONE
005737
001535
005037
004537
003434
004737
112737
112737

016014
016016
016024
016032

016036
016044

016052

e
-

S
—_—

—

OCOO0O
D
ek e~

OCOOO0OO0O0

0 —2

OO0OOOO

016060
016064
016066
016070
016074
016076

004037
005540
000774
005737
001775
012737
113737
105037
012737
012737
112737

$EQOP:
1%:

001406

001342
020250

020410
000020
000143

005541
005542

005556

3%:

001466

005552
005551

157700

005544

005546
005542

031214

4%:

005556

5%:

012737
004737

016126
016550

100060

001176

005237
022737

001342
000003

000137

016464

122737

000037

005550

113737

005566

001344

113737

000037
001344

001344
005550

003431

001003
012737

;SETUP

001342

6%:

#20,FMTDPB+1

H#SETFMT ,FMTDPB+2

;TABLE ENTRY POINT

THE BUFFER FOR

;16 BIT MODE
;CALL

BEQ

2$
FMTDPB+16
3%

;LOOP IF QUEQU FAILS
sALL DONE ?
;BR IF NOT

MoV

#822. ,FMTDPB+12 ;CYLINDER ADDRESS

JSR
FMTDPB
BR

RO,RMOS

:CALL

:LOOP IF QUEUE FAILS

BEQ
BPL

5%
8s

:BR IF NOT
SEXIT IF NO ERROR

MoV

#6$, SESCAPE
oC,ERINDX

:ERROR ESCAPE ADDRESS
;ERROR INDICATOR RT. -

TST

THE

BAD

SECTOR

;SET FORMAT COMMAND

RO,RMOS

THE DRIVER

LSTRK,FMTDPB+11
FMTDPB+10

;TRACK NUMBER
;SECTOR O
#-<258.%32.> FMTDPB+4
;WORD COUNT
H#BUFP ,FMTDPB+6
;BUFFER ADDRESS
HWRTHD ,FMTDPB+2 ;WRITE HEAD AND DATA COMMAND

FMTDPB+16

10
11

;ALL

THE DRIVER
DONE

:DRIVE OFFLINE

:PERSISTENT DRIVE UNSAFE ERRCR

12
13
14
15

;UNCORRECTABLE MASSBUS PARITY ERROR
:SOF TWARE TIMEOUT
:DRIVE UNSAFE ERROR
:DRIVE/CONTROLLER ERROR DURING WRITE

INC
CMP
BHI
JMP

RE TRY
#3 ,RETRY
43

: INCREMENT RETRY COUNT
:OVER 3 TIMES ?
:BR IF IT IS

CMPB
BLE

#31.,FMTDPB+10

MOVB

BNE

7%:

SETASE

JSR

FMTDPB
BR
181

JSR
EMT
EMT
EMT
EMT
EMT
EMT

104015

101347

JSR

MOVB
CLRB
MOV
MoV
MOVB

004037
005540
000774
005737
001775

104010
104011
104012
104013
104014

;UPDATE LAST TRACK ?
;BR_IF NO
;CLEAR RETRY COUNT
;SORT THE USTAB IN ASCENDING FORM

MOVB
MOVB

2%:

046234
000163

UPDBSF
8%
RETRY
R5,SORTZ |

USTAB+8.

031214

001324
005550

TST
BEQ
CLR
JSR

MOV
MovB

REJCT3

UNABLE

TO WRITE THE BAD SECTOR TRACK

;LAST SECTOR ?

;BR IF ALL SET

RM.REG+RMDA ,BADSE(
;FOUND THE BAD SECTOR
7%
;BR _IF NOT O
#31. ,BADSE(
;THE LAST SECTOR IS A BAD SECTOR

BADSEC,FMTDPB+10

;LOAD THE NEW STARTING SECTOR

FILF

JRMLBO

END OF

RM0S/3/2

FORMATTLR

PASS ROUTINE

001344

016202
016206
016210
016216
016224
016232
016236

016240

wold vl wilh

= O 00NN
N
NN

016244

016250
016252
016256
016262
016264
016270
016274
016300
016304
(16306
016314
016320
016326
016330
016332
016334
016336
016340
016342
016346
016359
016352
016354
016356
016360
016362
016362
016364

016366
016372
016374
016400

MACRO v04.00

006064

157700

006164
001342
104401

037427
001126

104401

037442
001126

005737
001405
013746
104405

005037
005037
104401

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

MOvB

100000

8%:

9%:

001216

000042

004737
004737
000137

017360
024414
010446

032777
001002
000137
000137

000001

011124
013056

;LOAD THE WORD CTR AND BUFFEK
- WORD

ADRTBL (R1) ,FMTDPB+6

INDEX

JBUFFER ADDRESS

TYPE
TST

JMSCMPT
$ERTTL

TYPE
MOV
TYPDS

CLR
(LR

BNE
MOV
INC
BIC
DEC
$EOPCT: .WORD
BGT
MOV
$ENDCT: .WORD
$EOPCT
$GET42: MOV
BEQ

9%
,NUMERR
$ERTTL,=SP)
$ERTTL
UPDBSF

,STARS

JTYPE 'COMPLETED'
;ANY ERRORS DETECTED
;BR IF NO
;TOTAL ERRORS

2.GO TYPE--DECIMAL ASCII WITH SIGN

;CLEAR THE ERROR ACCUMULATOR
JOON'T ALLOW UPDATE OF 'BSF' AT END OF
JTYFE

"axxsxnnnmnnnn’

DEVMP
DONE

JALL ASSIGNED DEVICE DONE
;10 FOCRMAT NEXT DRIVE

$PASS

;. INCREMENT

DEVMP+2 ,DEVMP
#100000, $PASS
%PC)*

THE PASS NUMBER

;:DON'T ALLOW A NEG.
2:L00P?

a#4? RO

;2GET MONITOR ADDRESS

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

PC,(RD)

;G0 TO MONITOR
;;SAVE ROOM

a(PC)+
DONE

2 sRETURN

:
DONE

$AUTOB
1%

JRUNNING IN AUTO MODE
;BR IF NO

PC,$TKINT

JINITIALIZE

162536
2%:

BEQ
JSR
JSR
JMP

BIT
BNE
Jmp
IMP

%PC)*.S(PC)+

$DOAGN

JRESTORE DEViCE MAP FOR AUTO MODE

2:YES

TSTB

;:SAVE SERTTL FOR TYPEOUT

$DOAGN

RESET

001150

BADSEC(C ,R1

19-1

#-<258.+32.> ,FMIDPB+4
;WORD COUNT
WCTBL(R1) ,FMTDPB+4
;WORD COUNT
RETRY
JRESET THE RETRY FLAG
4%
;BR BA(CK

TYPE
-y

001400

1B:39:56 PAGE

MOV
ADD
CLR
BR

BEQ

000137
016366
105737
001406

ASL
MOV

005544
005544
005544

001126
001406
042423
001400

001402
001216

4-APR-81

;;RESTORE

NUMBER

COUNTER

; :BRANCH IF NO MONITOR

;. CLEAR THE WORLD

2sFOR

23ACTY

PC,.ST.CLK
ST1

#SW0,aSWR
2%
ASK 2

ST3

;START THE CLOCK

THE KEYBOARD

JRETURN TO AUTO MODE START
:1S SW00=1 (SET) ?
:BR 1F YES
sASK FOR NEXT DRIVE

;GO--LOOP ON SELECTED DRIVE

PASS

JRMLEB0O RMOS/3/72 FORMATTER
BE R T MESSAGE
TABLE

OO0 NS Nl

REJECT MESSAGE

REJ(T:

TYPE
TYPE

016442
016446
016454
016462

104401
012737
113737
104025

001205

016464
016470
016474

104401
104401
000417

001205
041563

REJCT3:

016476
016502
016506

1044017
104401
000412

001205
041630

REJCT4:

C16510
21 016514
22 016520

104401
104401
000405

001205

REJCTS:

24 016522
25 016526
26 016532

104401
104401
000400

001205
037643

REJCT6:

28 016534
27 016540
30 016544

005037
104401
000137

001406
042226
015740

REJEND:

B end

QOO NT

b od o dowed b e

001205
037704

016534
005551

041665

18:39:56 PAGE 20

.SBTTL

104401
104401
000435

001176
001364

4-APR-81

016430
016434
016440

D) e

MACRO v04.00

REJCT2:

TABLE

SCRLF

JMESG4

; CR=LF
;TYPE 'DISK

IS AN ALIGNMENT

REJEND

TYPE
MOV

#RE JEND , $€ SCAPE

:CR=LF
::ESCAPE TO REJEND ON ERROR

sREPORT ILLEGAL BAD SECTOR

.SCRLF

s CR=LF

MOVB
EMT
TYPE
TYPE
BR
TYPE
TYPE
BR
TYPE
TYPE
BR

SCRLF

FMTDPB+11,DS.
TRK

MESG17

REJEND

. TRACK NUMBER FOR ERROR LOG

;TYPE

"UNABLE

TO WRITE BAD

SECTOR FILE

LSCRLF
LMESG18

;CR=LF
sTYPE 'FATAL ERROR DETECTED'

.$CRLF
.MESG19

s CR=LF
sTYPE 'FAILURE DURING HEADER VERIFY'

+SCRLF

s CR=LF
;TYPE 'OVER 126.

REJEND

TYPE
TYPE
BR

REJEND

CLR

UPDBSF

JMP

$ECP

TYPE

PACK'

.MESG3

LABORT

BAD SECTORS DETECTED'

;DON'T ALLOW BSF UPDATE AT END OF PASS

:E;?; 'OPERATION ABORTED®

TRA(K®

CZRMLBO RMOS5/3/2 FORMATTER
WPPORT

SUBROUTINES

MACRO Vv04.00

4-APR-81

;

.SBTTL

sTHIS ROUTINE

18:39:56 PAGE 21

SUPPORT SUBROUTINES
DETERMINES

THE

ERROR

TYPE

5 016550
6 016552

010046
010146

8 016556
9 016562
10 016564

(12700
032710
060006

15 016576

032710

7 016554

11
12
13
14

016566
016570
016572
016574

16 01660C
17 016602

18 016604

005091

BNE
BIT
WORD
BNE

(005201

005201
005201
005201
006301
060166
012601
012600
000207

1%$:

000004

:
4

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

37 016646
38 016654
zg 016656

032777
001402
000177

00100C

41
42
43
44
45
46

016662
016666
016672
016674
016676
016724

005037
033727
072002
001004
032737
001402

001176
005556

gg 016712

000207

2; 016706

000137

162300

162242

004000

53 016714
54 016722
55 016726
56 016734
57 016742

BIT11!BIT10
3%

sUNCORRECTABLE MASSBUS PARITY ERROR ?
;BR _IF PARITY ERROR

.WORD

BIT09!BITO8

INC

INC
INC
INC
ASL
ADD
MOV
MoV
RTS

005540
005544

005546

2%
(PC)+,(RO)
BITO4
1$
R1

;CHECK ERROR TYPE

;SOFTWARE TIMEOUT ?

;BR IF YES
;CHECK ERROR TYPE
;DRIVE UNSAFE ERROR ?
;BR IF YES
;INDEX=12, ERROR='USER DEF INED'

: INDEX=10, ERROR=14

R1
R1
R1
R1
R1,4(SP)
(SP) +,R1
(SP)+,RO
PC

:INDEX= 6, ERROR=13
;INDEX= 4, ERROR=12
;INDEX= 2, ERROR=11
;INDEX= 0, ERROR=10
;DEVELOP THE RETURN ADDRESS
;RESTORE R1
;RESTORE RO
sRETURN

1%:

CLR
BIT
.WORD
BNE
BIT
8EQ

$ESCAPE
;CLEAR THE ERROR ESCAPE ADDRESS
FMTDPB+16,(PC)+
-CHECK FOR 'FATAL' ERROR
BIT14!BIT13!BIT12!BIT10!BITO1
;'FATAL' ERROR BITS
2%
;BR IF YES
#WLE ,RM.REG+RMERT
;WRITE LOCK ERROR ?
3%
;BR IF NOT

REJCT4

s TERMINATE THE FORMAT

RTS

;RETURN

38:

001222
005543
001352
046234
005550

(PC)+,(RO)

;CHECK ERROR TYPE

TO CHECK FOR LOOP ON ERROR

JMP

;THIS ROUTINE

113737
105037
013737
012737
105037

(PC)+, (RO)

OFFLINE
ERROR TYPE
PERSISTENTLY UNSAFE
UNSAFE

#SW09 , aSWR
1%
a$LPERR

2%:

JCLEAR R1

LOP.CK: BIT
BEQ
JMP

005574

016476

#FMTDPB+16,RO
;GET DRIVER STATUS WORD
(PC)+, (RO)
s CHECK ERROR TYPE
BIT14!BIT13!BIT2!BIT1
;DRIVE OFFLINE

.WORD
BNE

BNE
BIT
.WORD
BNE
INC

JROUTINE

:SAVE RO
;SAVE R1

;BR _IF
;CHECK
sDRIVE
;BR IF

BIT

001005
032710
000020
001001
005201

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

5%
(PC)+,(RO)
BIT12
4%

BIT

(32710

25 016622

016624
016626
016630
016632
016634
016640
016642
016644

MOV
BIT
.WORD

006000
001011

001400

26
27
28
29
30
31
32
%Z

CLR

005556

001021
032710
010000
001015

19 016606

20 G16610
21 016612
22 016614
23 01661€
24 016620

ERINDX: MOV
MOV

SETDPB: MOVB
CLRB
MOV
MOV
(LRB

SETS UP THE

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

INPUT

TABLE FOR THE DRIVER RGUTINE

DRIVE ,FMTDPB
FMTDPB+3
MWC ,FMTDPB+4
#BUFP,FMTIDPB+6
FMTDPE+10

;SET UP DRIVE #
;CLEAR HIGH ORDER ADRS BITS
;LOAD UP WORD COUNT
;LOAD UP CURRENT ADRS
JSET SECTOR TO ZERO

JRMLBO RMOS/3/2 FORMATTER

SUPPORT

SUBROUT INES

58 096746

59 016756

&0 016762

016766

113737

00133&4

005037

005556

013737

000207

(01330

MACRD v04.00

4-APR-B1

005551

MOVB

005552

6
og

B 6
1B:39:56 PAGE 21-1

MINTRK ,FMIDPB+11

MOV

MINCYL ,FMTDPB+12

RTS

(LR

FMTDPB+16

:SET UP STARTING TRK ADRS

SET UP STARTING (YL

;CLEAR R4 STATUS

;RETURN FROM SETUP

;THIS ROUTINE CONTROLS THE DISK ADDRESSING AND
;17 IS ENTERED AFTER EVERY TRK OPERATION

TOTAL

TRK

COUNT

66 016770

&7 016770
68 016774
<9 017002
70 017006
;; 017710

105237
123737
101003
0.4737
00(..25

00555
(005551

7% 017012

113737

001334

764

€0 0066

017020

75 017026

76 017026

001376

(05337

005552

77 017032

(023737

79 017042
80 017044

000406
005237

005552

82 017056
gz 017060

101024
004737

78 017040

81 01705C

002413

023737

85 017064
86 017070
87
88

062716
000207

91
92
93
94

013737
062737
005237
005037

001332

017320

005737
001407

TRKTST:

005552

005551

gg 017116

001326

114 012176

MINTRK ,FMTDPR+11

JGET STARTING TRACK ADDRESS

TST

WRAP

JSEEKING FROM HI

DEC

FMTDPB+12

;DECREMENT CYL INDER ADDRESS

CMP

BLT

FMTDPB+12 ,MAXCYL
5%

;BR IF NO
;BR IF

TO LO CYLINDER ?

;DONE WITH FORMATTING ?

YES

2%:

017206

3%:

BHI
JSR

5%
PC.,UPDCYL

:BR IF YES
‘
;UPDATE CYLINDER ADDRESS IN BUFFER

000002

4%:
5S:

ADD
RTS

#2,(SP)
PC

;ADD TWO TO RETURN ADRS (NOT DONE)
JRETURN, DONE FORMAT !!

005552

001326

CMP

FMTDPB+12 ,MAXCYL

; INCREMENT CYLINDER ADDRESS

;DONE WITH FORMATTING ?

:THIS ROUTINE SETS UP WC & BA FOR RFMAINING SECTORS

000207

001346
001004
005550
001316

005544
005546

AFTER A WRITE

CHECK ERROR

SCAWC:

SAVWC ,FMTDPB+4
#5'%, ,FMTDPB+6
FMTDPB+10
SOF SW

MOV
ADD
INC
CLR

RTS

112 017170
113 0172172

MOvVB

3%
FMTDPB+12

;SET UP WC FOR REMAINING SECTORS
;SET UP BA FOR REMAINING SECTORS
;ADVANCE TO NEXT SECTOR IN TBL
RESET RETRY COUNTER

RETURN TO COMPLETE TRK FORMAT

:THIS ROUTINE SETS UP THE CYLINDER ADRS, FORMAT BIT, TRACK AND

188

110 017162
111 017166

FMiDPB+11
; INCREMENT TRACK NUMBER
FMTDPB+11 ,MAXTRK
JLAST TRACK TO BE FORMATTED ON THIS (YL INDEWR
1%
;BR IF YES
PC,UPDTRK
;UPDATE TRACK ADDRESS IN BUFFER
4%
JEXIT

B8R
INC

101 017120
102 017124
103 017132
106 017136
105 017142
106 017146
107 017152
108 017154
109 017160

INCB

BEQ

017072
017100
017106
017112

18%:

cMPR
BHI
JSR
BR

;SECTOR ADRS IN MEMORY WITH THE STARTING CYL - TRK INFORMATION

013701
012737
012700
013702
052702
013703
000303
005737
001402
052702
010220

010329
062700
005203

001360
000201
046234
001330
140000
001334
001356
010000

001000

CQ1214

SETHDR: MOV
MoV
MOV
MOV
BIS
MOV
SWAR
TST
BEQ
1$:

BIS
MOV

MOV
ADD
INC

MAXSEC ,R1
#1,8TESIN
#RUFP,RO
MINCYL ,R2
#MF ' UF ,R2
MINTRK,R3
R3
SEC30
1%
#FMT ,R2
R2,(RD)+

R3,0)+
#512..,R0
R3

:SET UP SECTOR COUNT
:GARBAGE CODE FOR APT
:SET UP HEADER POINTER IN RO
:PUT STARTING CYL # IN 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
:BR IF 30 SECTOR MODE
:SET THE 32 SECTOR FORMAT BIT
:WRITE IN HEADER AREA OF CORE

THE

(YL ADRS

:WRITE IN HEADER AREA OF CORE THE TRK ADRS
:SET UP FOR NEXT HEADER
:UPDATE SECTOR ADRS FOR NEXT HEADER

— N

RRS

005301

DEC
8GE

b
—

NN N

QOO

RTS

UPDCYL:

~
n
~
n

—

000303
005737

001402

~
N
~N
o

—

144
145
146

001360
046234
001334
001376

162710

000002

162702

001000
001336
001340
000004

005220
010320
012702
013720
013720

e
B T T I ey

nono e
e T L
Y
n = OV®WN>

awuuuuusyuxnuuueunNHJnJthJannu
VMBS WN=O
00N NS W
C Voo~

Det
e
e JE S
—

001371
005203
005301
002355
012603
012602
012601
012600
005237

1$:

2%:
38:

001214

000207

C
1B:39:56 PAGE

6
21-2

sMAINTAIN COUNT OF SECTORS
:BR IF NOT LAST SECTOR
SEXIT = HEADERS ARE LOADED INTO (ORE

R1
8

UPDATES

THE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
SWAB
TST
BEQ
SuB
INC
MOV
MOV
MOV
MOV
SuB
BNE
INC
DEC
BGE
MOV
MOV
MOV
MOV
INC

RO,=(SP)
R1,-(SP)
R2.,-(SP)
R3,-(SP)
MAXSEC ,R1
#BUFP,RO
MINTRK ,R3
R3

CYLINDER ADRS OF

RTS

:
UPDTRK

000400
001004

NNNNNNNN

d —D
D —d

1%:

MOV
MOV
MOV
MOV

;:PUSH R3 ON STACK

sSET UP SECTOR COUNT
;SET UP HEADER POINTER IN RO
;GET STARTING TRACK
;STARTING SECTOR = 0
;SEEKING FROM HI TO LO CYLINDERS ?

;BR IF NO

sDECREMENT CYLINDER NUMBER
s INCREMENT FOR NEXT CYLINDER
JWRITE TRACK AND SECTOR HEADER
;DATA FIELD LENGTH
sFILL BUFFER
JFILL BUFFER
:ggb OF DATA FIELD ?

+
(RO)
R3, (RO)+

#512. ,R2
PATA, (RO) +
PATB, (RO) +

#4 ,R2
3%
R3

;s INCREMENT TO NEXT SECTOR
;COUNT SECTORS
;BR IF NOT LAST SECTOR

R1
1%
(SP)+,R3
(SP)+,R2
(SP) +,R1
(SP)+,R0O
$TESTN

;:POP STACX INTO R3

;.POP STACK INTO R2

:;POP STACK INTO R1

;;POP STACK INTO RO
; INCREMENT TST NUMBER FOR EACH CYLINDER CHANGE

:gfi??ADE CODE FOR APT
TRACK ADRS OF

RO,=(SP)
R1,-(5”)
MAXSEC ,R1

#BUFP,RO
(RO)+

TST
ADD
ADD

#4600, (RO)
#516.,R0

RTS

DEC
BGE
Mov
MOV

;sPUSH R2 ON STACK

R1
1%
(SP)+,R1
(SP)+,R0O

et e d —d

SRR
Sand
R

001360
046234

slslelalelalelslels

17324
7330

017320
017322

HEADER WORDS

;3PUSH R 10N S TACK

#2,(R0O)

THE

" ;:PUSH RO ON STACK

WRAP

sTHIS ROUTINE UPDATES

147 017320

ogmm\nm
[VVW
LV IV I IV—=OO0
IV P o
~“OPYBNYO

4-APR-B1

JAND FILLS DATA BUFFER FIELD IN CORE

142
143 017316

. et kb
b
s

,04.00

:THIS ROUTINE

141 017312

THE HEADER WORDS

IN CORE

;:PUSH RO ON STACK
::PUSH R1 ON STACK
JSET UP SECTOR COUNT
;SET UP HEADER POINTER IN RO
;POINT HEADER POINTER TO TRK = SEC ADRS
s INDEX TRK ADRS
:SET UP FOR NEXT HEADER

;COUNT SECTORS
;BR IF NOT LAST SECTOR
::;POP STACK INTO R1
;:POP STACK INTO RO

JEXIT

sROUTINE TO CHECK FOR KW1l=L OR KW11=P CLOCKS

e
33

e
it ol v

Vit

C TM

MATRD

012737
005037

017636

000004

ST.CLK: MOV
CLR

#STCLKT ,@#ERRVEC

ANERRVE(+2

;SET UP VECTOR FOR P (LK

JNEW PSW

JRM B0

SUPPORT

RMOD5/3/2

SUBROUT INES

162 017372
163 017376

164 017402

165 017410

166 01746414
167 017420
168 017426
169 017434

170 017436

017442

017450
017454
017460
017466
017472
017476
017504
017506
017512
17520

005777
013746
012776
062716
012736
012777
012777
000426
062706
012737
005777
013746
012776
062716
012736
012777
000402
062706
012737
000207

MACRO v04.00

]

104401
105737

001000
004737

~§

104401
104411

012600
105710
001414

161702

001304
017616
000002
000300
177777

000135

000004
017506
161634

001312
017616
000002
000300
000100
000004
000006

000000
161654
161644

000004

161604

000004

MOV

#135,$LKCSR

STCLK3

JCHECK FOR kKW11=P
JVECTOR ADDRESS
:SET UP KW11=P VE(CTOR
JPOINT

TO PSW

:PSW = PRI 6
sLOAD COUNTER BUFFER
JSET CLK = CNT UP

#4.SP
JRESTORE THE STACK POINTER
#S7CLK2,a#ERRVEC
; CHANGE ERROR VECTOR

STCLK1: ADD
MOV
ST

asLKS

;LOOK FOR Kw1l1=L

MOV
ADD
MOV
MOV

#CLOCK.@(SP)
#2.(SP)
#PR6,D(SP)+
#100,38LKS

sSET UP KW11-L VECTOR

MOV

$LLVEC.=-(SP)

STCLK3
. SP
#4
#6 . I#ERRVEC

BR
STCLK2: ADD
STCLK3: MOV
RTS

037572
001150

RESTRT:

024414
042033

1%:

000131

122710

000116

104401

037174

2%:

104401

001205
016534

001412
001403

000207

;KW11-L VECTOR ADDRESS

s INCREMENT VECTOR ADDRESS

;PSW = PRI

sSET KW11=L INTERRUPT ENABLE
JRESTORE

THE

STACK POINTER

sJRESTORE THE ERROR VECTOR

TSTB

(RO)

000020
034476

CMPB
BEQ
CMPB
BEQ
TYPE
BR
TYPE
JMP
RTS

CODE

CLOCK:

MOV
JSR
RTI

(SP)+,RO

1(RO)
2$
#'Y,(RO)
4%
#'N, (RO)
33
BADENT
i$
,$CRLF
REJEND
PC

SERVICES A CLOTK

#16.,~(SP)
PC,RMTMR

sTYPE

'IMPROPER MFG

INFORMATION'

;RUN UNDER APT ?
:BR IF SO
;ENABLE TO READ
sTYPE 'INITIALIZE BAD SECTOR FILE (L) N 2°
;READ THE ENTRY
:SAVE ADDRESS OF RESPONSE
:gaS[?E$§g~SE A CARRIAGE RETURN (DEFAULT °N")?
;WAS

TERMINATED WITH CARRIAGE

;WAS

IT A

:BR IF NOC

'Y'

RESPONSE

RETURN ?

+BR-IF ¥YES
sWAS IT A 'N' RESPONSE ?
;BR iF YES
;TYPE BAD ENTRY MESSAGE
:TRY AGAIN

sCR=LF
;JUMP TO REJECT END
JEX1T
INTERRUPT EVERY

16MS

sPUT MILLISECONDS ON THE STA(CK
;GO REPORT TIME
sJRETURN AND CONTINUE

012746
004737
000002

PC,STKINT
LMSINIT

TSTB
BNE

;THIS

208 017616
209 017622
210 017626

JSR
TYPE
RDL IN

BNE

4%:

,MESG2

$AUTOB

BEQ

122710

001006

TYPE

TSTB

MOV

000001

000137

Wl —

aSLKCSR

B8R

000000

D 6
1B:39:56 PAGE 21-3

SLPVEC,~(SP)
#CLOCK .a(SP)
#2.(SP)
#PR6,(SP)+
#-1,38LKCSB

MOV
MOV
ADD
MOV
MOV

105760

000754

S LS LN LN
N1, VTN

4-APR-B1

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

g BELRQRRCLEBEIRRR

W20V

Rttt
D
e
s TS SRS
R
S

— b

NOWNS W no

002000 00~~~ NN NN N

171

FORMATTER

017636

- NN
W NW
NN

017630
017634

558

e IR

00 YO N

;ROUTINE TO INTERCEPT 'CONTROL C°
030400
007034

C.ENTR:

TST
BNE
JMP

TRNSWT
C.ENTR
TST1

JALL ACTIVITY STOPPED ?

;BR IF NOT

;START PROGRAM AT BEGINNING

sROUTINE TO INTERCEPT 'CONTROL O' TYPED WHILE PROGRAM IS FORMATTING

JRMUB0 RMOS/3/2 FORMATTER

SUPPORT

SURROUTINES

MACRO v04.00

4-aPR-81

:THE

420
2!

:DURING THIS ROUTINE
$

gz‘

:PRESENT

255 017642 117746 161314
226 017646 042716

229 017660
230 017664

231 017666

001014

104401
005726

105737

232 017672
23% 017674
234 017700
Sgg 017704

001404
005037
005037
000137

237 017710
238 C17714
239 017716
260 017722
241 017730
gzg 017732

022627
001406
005777
012777
000002

244 017732

005037

246 017744

104401

245 017736

001400

001492
016534

1%:

000017

2%:

161240

3%:
177776

012737

017630

247 017750
248 017754
249 017760
250 017764
251 017770
252 017774
253 020000

104401
013746
004737
004737
104401
104401
005046

036613
005552
027100
026670
036621
036615

255 020006
256 020012
257 020016
258 020022
Sgg 020030

004737
004737
104401
012737
000002

027100
026670
001205
017642

254 020002

113716

037506

268 020034
269 020036
270 020042
271 020044
272 020046
27% 020050
276 020052

275 020054

001372

TYPADR:

(05551

261

262
263
264
265
266
267 020032

161230

IS:

DISK

ADDRESS

TYPED

THE

TERMINAL

IN THE FOLLOWING FORMAT,
CXXX

TXXX

a$TKB,~(SP)

#5C177, (SP)

BNE

1STR

$AUTOB

(SP) 4%

:WHERE

1%
DEVMP
DEVMP+2
REJEND

cMP
BEQ

(SP)+,#17
3%

'C*'

JAND 'T'

THE

CYLINDER ADDRESS

IS THE TRACK ADDRESS.(IN DECIMAL)

;READ FROM TTY BUFFER

- ;STRIP PARITY

JSONTLC
(SP)+

BEQ
CLR
CLR
JMP

*CONTROL=C ?
:BR IF NO

;TYPE A CONTROL=C (*C)
;RESTORE STACK
JRUNNING IN AUTO MODE

;BR IF NO
:CLEAR DEVICE MAPS

:JUMP TO CONTROL C REJECT

a$TKB

#100,a8TKS

;CONTROL=0 ?
JYES
;CLEAR DONE BIT
:ENABLE TTY INTERRUPT

(LR

:SET PROCESSOR TO PRIORITY 0

TYPE

LADDRIS

: '"PRESENT ADDRESS

MOV
RT]

MOV

#C.ENTR,CNTLC

TYPE
MOV
JSR
JSR
TYPE
TYPE
CLR

£
FMTDPB+12,-(SP)
PC,$SB2D
PC,$SUPRL
,BLNKS2
T
-(SP)

JSR
JSR
TYPE
MOV
RTI

PC,$SB2D
PC,$SUPRL
LSCRLF
#O.ENTR,@#TKVEC

MOvAB

000060

CURRENT

BIC

TYPE
ST

001150

THE

ADDRESS

CMP

025621

000100

PACK.

0.ENTR: MOVBR

177600

227 017652 021627 000003

228 017656

DISK

18:39:56 PAGE 21-4

219

FMTDPB+11,(SP)

;CHANGE

'CONTROL C' RETURN ADDRESS

1S:

:PUT THE CYLINDER ADDRESS ON THE STA(K
:CONVERT IT TO DECIMAL
;TYPE DECIMAL NUMBER, LEFT JUSTIFY
;TYPE 2 SPACES
S i
:CLEAR THE STACK

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

:PARAMETER ENTRY ROUTINE

s CALL
:
:

010346

011403
012337
001435
104401

012302
012305

011546

JSR

TABLE

PARENT: MOV

020046

1%:
2%:

MoV
MOV
- BEQ
TYPE
.WORD
MOV
MOV

MOV

R4 , PARENT

;THE CALLING SEQ

R3,-(SP)

:SAVE R3

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

(R3)+,R2
(R3)+,RS

(RS) ,=(SP)

:PARAMETERS TARLE

:PARAMETER TABLE ADDRESS
:ADDRESS OF PARAMETER NAME
:BR IF AT END OF TABLE
;TYPE THE PARAMETER NAME
:ADDRESS OF PARAMETER NAME TEXT
:MAXIMUM PARAMETER VALUE

:ADDRESS OF

PARAMETER

;CURRENT VALUE OF PARAMETER

JEM B

APRORT

RMOS/3/2 FORMATTER
SUBROUT INES

276 020056
277 020060
278 020064
279 020066
280 020070
020074
020076
020100
020102
020104
020106
231 020110
282 020112
263 020114
284 020120
285 020124
286 020126

287 020130

288
289 020132
290 020134

291 020136
292 020140
293 020144
294
295

104405
106401
104411

012601
004537
020036
02013¢
020114
020110
020114
020126
010215
000751
104401

162703

000744

MACRO

023172

1B:39:56 PAGE

21-5

.SLASH
(SP)+
X1
RS.(K.DIG

JSR

7%
43

3%:
4%:

037174

0000Ué

5%:
:6%:
6%:

011403
000740

062704
000204

4-APR-B1
TYPDS
TYPE
RDLIN
MOV

036607

010215
000402

012603

¥04.00

7%:

000002

4%
5%
MOV
BR
TYPE
SUB
BR

R2, (R5)
1%

.SADENT
#6,R3

VALUE

THE

PARAME TEH

THE KEYBOARD

sINPUT ASCII1

STRING ADDRESS

:CHECK THE DIGIT(S)
s CARRIAGE RETURN ONLY ENTERED
;PERIOD ONLY ENTERED
s ILLEGAL INPUT
sTERMINATED WITH A CARRIAGE RETURN
;TERMINATED WITH A """

JMOVE NEW VALUE TO PARAMETER LOCATION
;GET MORE PARAMETERS

. "BAD ENTRY'

;DECREMENT THE TABLE POINTER

;TRY AGAIN

(R4G), RS

;RELOAD THE PARAMETER TABLE ADDRESS

R2. (R5)
7%
#TABLE ,R3

JNEW VALUE
SEXIT
;RELOAD THE PARAMETER TABLE ADDRESS

1%
;TRY AGAIN
(SP)+ ,R3
JRESTORE R3
# R4
ADJUST THE RETURN ADDRESS
R4
:RETURN FROM THE R4

MOV
ADD
RTS

JSR

READ

CURRENT

;TERMINATED WITH A ',

MOV
BR
MOV
MOV
BR

;THIS ROUTINE
s CALL

IVPE THE

LOADS

THE BAD SECTOR

INTO

'USTAB'

TABLE

PC,RECORD

JALL REGISTER USED ARE DESTORIED
301 020146
302 020152

123761
001004
123761
001416
062701
022701
101355
000411
013711
113761

113761
000207
000137

003434

RECCRD: MOV

177777

1$:

005552

005551

000003

005550

000002

o
005552
005551
001344
016522

2%:

000003
000002

3%:
4%:

bt ¥

s CALL
3
:

325 020250
326 020252

CMP

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

;TABLE ENTRY IN Ri
;AN OPENING

IN THE

TABLE

BEQ
CMP
BNE
(MPS
BNE
CMPB
BEG
ADD
CMP
BHI
BR
MOV
MOVE
MOVB

3%
BR 1F LT IS
(R1) ;CYLINDER NUMBER MAT(MES ?
FMTDPB+12,
2%
;BR IF NOT
FMTDPB+11,3(R1)
;; TRK NUMBER MATCHES ?
2%
‘BR IF NOT
FMTDPB+10,2(R1) sSECTOR NUMBER MAT(HES ?
4%
*BR TO EXIT,IF THE SPOT HAS RECORDED
#4 ,R1
:IN(REMENT 4 BYTES
.
,R1
#JSTAB+512
JEND OF TASBLE ?
1%
:BR IF NOT
5%
:THROW AWAY THE PACK
FMIDPB+12,
(R1)
;LOAD THE CYLINDER #
FMTDPB+11,3(R1) ;LOAD THE TRK NUMBER
%2?? THE SECTOR NUHBER
BADSEC,2(R1)

JMP

REJ(TE

RTS

;JUMP TO REJECT TOO MANY BAD SECTORS

;THIS ROUTINE wittL SORT A BAD SECTOR TABLE IN ASCENDING ORDER

ot e o

ko e

d e o

CSOWNYO
NP WN—=O

AN LN NN N NN N N N N

303 020156
304 020160
305 020164
306 020166
%07 020174
308 020176
509 020204
020206
020212
020216
020220
020222
020226
020234
020042
020244

0127017
022711
001421
023711
001010

011501

012702

000175

SORTZ2:

JSR

R5,SORT?2

MOV
MOV

(RS) ,R1
#125. R

TABLF +8.

;ADDRESS OF

. TOP POINTER

TABLE

'O BE

STOTAL 126 ELEMENTS

SURTED

) RMOS/73%/2 FORMATTER
SUBROUTINES

020256

020260

NP -

WNIN NN

021161
101013
103426
126161

(000004
000003

000007

126161

000002

000006

020310
020312

101006
103421

020272
020276
020300
020302

333 NSOV
AR

(00764

022711
001444

020314

177777

020322
020324
020326
020330
020334

101001
000414
011146
016146
016111

000004

020356

062701

0C0004

020340
020346
020352

016161
012661
012661

020103
001342

020366
020370
020372
020376
020400

005302
001404
162703
011501
000734

020402
020406

062705
000205

000004

000002

4%:

JLOCATE THE BOTTOM POINTER

#=1,(RD
43

sTHE TABLE IS EMPTY ?
1UICK EXIT

(R1) ,4(R1)
2%
2%
Z(R1),7(R1)

;s COMPARE THE CYLINDER NUMRBER
sSWITCH ELEMENTS
; INCREMENT POINTER
© ;COMPARE THE TRA(CK NUMBER

(MPR

2(R1),E(R1)

;COMPARE THE SECTOR NUMBER

MOV
MOV
MOV

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

’$
3%

2%
3%
(R1) ,=(SP)
2(R1) ,~(SP)
4&(R1),(RY)

ADD

;

R1,R3

{mMP
BHI
8LO
CMPB

BHI
B8R
MOV
MOV
MOV

000002

#500. ,R3

BHI
BLO

2%:

1B:39:56 PAGE 271-6

ADD

(MP
BEQ

18$:

000002

000006
000006
000004

4-APR-B1

MOV

062703

020264
020270

020362
020364

010103

MATRD 04,00

#4 ,R1

CMP
BNE

R1,R3
1%

DEC
BEQ .
SUB
MOV
B8R

ADD
RTS

R2
4%
#4 ,R3
(RS) ,R1
1%

#2,RS
RS

1254=4) X 2

JSWITCH ELEMENTS
s INCREMENT POINTER

;SWITCH ELEMENTS
- INCREMENT POINTER
;SAVE THE CYLINDER NUMBER
;SAVE THE TRK/SEC NUMBERS
;SWITCH THE N+4 BLOCK TO N BLOCK

;SWITCH THE N+6 BLOCK TO N+2 BLOCK
:LOAD THE N+6 BLOCK
;LOAD THE N+4 BLOCK

:UPDATE THE TOP POINTER

JREACH THE BOTTOM ?
:BR IF NO

;DONE ENTIRE SORT ?
sBR LF -YES
;sADJUST THE BOTTOM POINTER
JRESET THE TOP POINTER
;DO NEXT SORT

;ADJUST RETURN ADDRESS
SEXIT

4L=-APR=81

PNt
NN U

SETUP BAD SECTOR BUFFER

;THIS ROUTINE SETS UP THE BUFFER TO RE=WRITE
sCYLINDER B22. (BAD SECTOR FILE)

$SECTORS 0. g %. 6. 8

020430

24
25 020534
26 020540
27 020544
28 020550
29 020552
30 020560
31 020564
32 020570
33 020574
34 C20576
35
36 020600
37 020602
38 020604
39 020606
40 020612
41 020616
42 020622
43
o6

012701
012702
012703
011112
016162
005062

005062

062702
005303
001364
005046
005046
005046
012746
012746
012746
012746
012746

046234
020100

177777

001214
001330
001334
0C1360
001356
000037
177777

001466
001324

017120
001356
001360

001360
001356

001330
001334

000002
000004
000006
001004

000002

2%:

MOV
MOV
MoV
MV
MoV
MOV
MOV
MOV
MoV

$TESTN,=(SP)
MINCYL ,=(SP)
MINTRK ,=(SP)
MAXSEC,=(SP)

SEC30,-(SP)

#31. ,MAXSEC
#-1,SEC30
#822. ,MINCYL

LSTRK ,MINTRK

PC.SETHDR

(SP)+,SEC30

(SP)+ ,MAXSEC
(SP)+ ,MINTRK
(SP)+ ,MINCYL
(SP)+,$TESTN
AMFG16,R1
#32..R3
(R1),(R2)

ADD
DEC

4(R2)
&(R2)
#516. .R2
R3

MoV
CLR
CLR

CLR

061314

#-1,(RO)+
R1
1%

MoV
MoV
MOV
MOV

BNE

001414

#<258.+32.>,R1

JSR

CLR
(LR
MOV
MOV
MOV
MOV

MOV

MOV
MOV

TST
BM!
MOV

MOV
MoV
DEC

MOV
MOV
MOV
MOV
MOV

TRA(r

P,RO

BNE

001414
046240
000040

12716

00402

SFTBSF: MOV

001214

05737

12746

;SECTORS 1

i4, 16,..30
1 E 1 ?l 2k

001334
001330

046240
000005
002420
047244
000005
003424
060310
001356

12746
12746

{SECTORS 10

1%:

THE LAST

012700
012701
012720
005301
001374
013746
013746
013746
013746
013746
012737
012737
012737
013737
004737
012637
012637
012637
012637
012637

020410
020414
020420
020424
020426

020434
020440
020444
020450
020454
020462
020470
020476
020504
020510
020514
020520
020524
020530

44
45

:SECTORS

O - jelelele]

N
NN - OO

e
I
TR

SBTTL

18:39:56 PAGE 2 <

#BUFP+4
R2

2(R1),2(R2)

=(SP)
={SP)

«(SP)
#MFG16,-(SP)
#BUFP+4 ,-(SP)
#5,-(SP)
AMFG18,-(SP)

;BUFFER ADDRESS
;TOTAL WORD COUNT
sSET ALL LOCATIONS TO =1
;DONE YET ?
;BR IF NO
;;PUSH STESTN ON STACK
;;PUSH MINCYL ON STACK
:sPUSH MINTRK ON STACK
;sPUSH MAXSEC ON STACK

;.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
;:POP STACK INTO MAXSEC
:;POP STACK INTO MINTRK
;;POP STACK INTO MINCYL
;. POP STACK INTO $TESTN
;LOAD FIRST 4 WORDS TO EVERY SECTOR
;JBUFFER_LOCATION + 4

:TOTAL 32 SECTORS
;STORE 1ST OCTAL WORD
;STORE 2ND OCTAL WORD

(MSB OF
(LSB OF

;STORE 3RD WORD ALL 0°'S

S/N)
S/N)

JSTORE 4TH WORD ALL 0'S

sADVANCE TO NEXT SECTOR

;DECREMENT ONE SECTOR COUNT
;BR IF

;LOAD TABLES INTO APPROPIATE SECTOFS

;DUMMY PAIRS FOR TERMINTORS

;TABLE ADDRESS
sBUFFER ADDRESS
;NUMBER OF SECTORS TO LCAD
; TABLE ADDRESS
#BUFP+4+516. ,-(SP) ;BUFFER ADDRESS
#5,-(SP)
;NUMBER OF SECTORS TO LOAD
#USTAB,-(SP)
sTABLE ADDRESS
;BUFFER ADDRESS
HBUFP+4+<516.%10.>,-(SP)
SEC30
;1S IT 16 BIT FORMAT MODE ?
;BR.1F YES
3%
#RBUFP+4+<516.%11.>,(SP) ;MFG 18 BIT BUFFER ADDRESS

JRML BC
.
TUF BAD

FORMATT F R
SECTOR BUFFER

50 020660

000013

020664

006430
061314
001356

020670
020674
020700

MALRO

vue LU

4L=-APR=81

1
18:39:56 PAGE

3s:

MOV

#11,,=(SP)

MOV

#USSAV,R1
; TABLE
HBUFP+4+<516., *11.>,R2

MoV
ST
BMI
MOV

060310
000013

MOV

MOV
MOV
MOV
DE(

000400

;NUMBER OF SECTORS TO LOAD
ADDRESS IN R1
;BUFFER ADDRESS

IN R?

;1S 1T 16 BIT FORMAT MODE ?
;BR IF YES

SEC30

3]
HBUFP+4+<516. *10.>,R2
#11.,R3
R1,RS
#256. R4
(R1)+,(R2)+
R4

;BUFFER ADDRESS FOR 18 BIT MODE

"~ ;SECTOR COUNT IN R3
; TEMPORARY STORAGE

JWORD COUNT = DATA FIELD OF

ONE

MOV

RTS

JEXIT

MOV
ADD
DEC

RS,R1
#516.+4
,R2

BNE

MOV
MOV
MOV

BNE

;THIS ROUTINE
JWCORD. IF THE

;BR

WILL

SET

HEADER

OR RESET BIT15 AND BIT14
OF THE

IS FLAGGED AS A

;BEING FLAGGED AS A

FIRST HEADER

"MFG' BAD SECTOR, BIT15(MF BIT:

sWILL BE RESET(0) AND BIT14(UF BIT) WILL BE SET(1).

IF THF HEADER IS

'USR' BAD SECTOR, BIT15(MF BIT) WILL BE SET(1)

JAND BIT14(UF BIT) WILL BE RESET(0).

. CALL

020772

020774

021000
021006
021014
02102
021030

013737
001006
122737
103402
000137
WWMNONONO NN N
NNV ~IN
NN\
WINW
NN WNW
NNN NN
NNN

020754
020762
020764

3737

005552

046224

000001

005551

016442

005551
001344
001410
001222
177776
000163
046224
001344
005551
005552
010000
005552

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

005551

001324

001356
010000

046224

RESET:

SECTOR

;LOAD TABLE INTO SECTOR DATA FIELD
JALL DONE ?
;BR IF NOT
;RELOAD THE TABLE ADDRESS
;SKIP ONE SECTOR
;DECREMENT ONE SECTOR COUNT
;BR IF NOT DONE
sNEXT NUMBER OF SECTORS TO LOAD
JNEXT BUFFER ADDRESS
JNEXT TABLE ADDRESS
;1S IT DUMMY TERMINTOR ?

BNE

001010

22-1

JSR

PC,RESET

MOV
BNE
CMPB
BLO
JMP

FMTDPB+12,RBUF
1%
1.FMTDPB+11
1%
REJCTZ

MovB
MOVB
BIS
MOVB
MOV
MOVB
MOV
MOVB
MOvVB
MoV
BIS
{MP
BNE
CMF3
BEQ
TST

FMTDPB+11,RBUF +3
. TRACK ADDRESS
BADSEC ,RBUF+2
;SECTOR ADDRESS
HDRBIT ,RBUF
sSET MFG BIT, RESET USR BIT
DRIVE ,FMTWRT
;SETUP THE DPB FOR OPERATION
#=2 FMTWRT
+4
;WORD COUNT =2
HWRTHD ,FMTWRT +2 ;WRITE HEAD AND DATA COMMAND

BMI
BIC

H#RBUF ,FMTWRT +6

BADSEC ,FMTWRT+10

;GET CYLIM
¢R ADDRESS,
JBR IF N°0 CYL O
;IS TH
CvL 0, TRR O OR 1 ?
:BR IF NO
;CTHERWISE, ILLEGAL BAD SECTORS

;BUFFER ADDRESS
;SECTOR ADDRESS

FMTDPB+11,FMTWRT+11

; TRACK ADDRESS

;CYLINDER ADDRESS
;ASSUME 16 BIT MODE
FMTDPB+12,4#822. ;IS IT LAST CYLINDER ?

FMTDPB+12 ,FMTWRT+12

#FMT ,RBUF

;BR IF NO

#FMT ,RBUF

JIN 16 BIT MODE ?
;BR IF IT IS
JRESET THE FMT BIT

FMTDPB+11,LSTRK ;1S IT LAST
'BR IF- YES

TRACK (BSF) ?

MACRO

107 021136

T08 021142
108 021144

110 021146

111

021152

112 021154

113 527156

004037
005630
000774
005737
001775

000240
000207

v0&.00

031214

3%:

00564¢

4%
:

4-APR-BT

JSR

FMTRRT

B8R

J
6
1B:39:56 PAGE 22-2
RO ,RMOS

1ST

FMTWRT+16
4%

RTS

8EQ
NOP

sCALL THE DRIVER
.DPB ADDRESS
:BR IF QUEULE FAILS
;DONE ?
sBR IF NOT

2 IGNORE ANY ERRORS
JEXIT

MACRO v04.00

SFFER

s THE

ROUTINE

1B:39:56 PAGE

SEQ 0075

INSERT:

SINSERT A BAD SECTOR ADDRESS INTO ONE OF

SUSSAV TABLES
*CALL

FREFXRVRORCIANIGRE

b
b
b
D wd
b
b e
e
b e
nd e
b
D

POPUPUNININONIAININY
= b et —d 2 -

o o sleleleololslalelelelel@lele
n SIS NN TN LN N TN VT VTN LV LWL

n N NN-a—a-a_‘._a_a-—u - el
W n = OV
NN
WN
OO0

4-APR=-B1

010446

012746

000176

022714

177777

011504

001420
023714
001010
123764
061004
123764

001415
005316
001413
062704
000755
013714
113764
113764

062706
012604
062705
000205

JSR

TABLE+8.

MOV

001362

R4 ,=(SP)

#126. ,-(SP)

CMP

#-1,(R4)

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

BEQ
(MP
BNE

(R5) .R&4

3%
DS.CYL, (R&)
2%

001364

000003

001344

000002

CMPB
BNE
CMPB

000003
000002

MOVB
MOVB

DS.TRK.3(R4)
BADSEC.2(R4)

MOV
ADD
RTS

(SP) +,Ré
#2 RS
RS

000004

001362
001364
001344

000002
000002

BEQ
DEC
BEQ
ADD
BR
MOV

ADD

USTAB AND

RS, INSERT

MOV

THE MFG16, MFG!B,

4%
(SP)
4%
#4 R4
1%
DS.CYL, (R&)

#2,SP

:SAVE

THE

*ENTRIES OF THE TABLE

:TABLE ADDRESS + 8 BYTES
“AN OPEN ENTRY

‘BR IF SO
‘CHECK IF THE BAD SECTOR HAS RECORDED
‘BR IF NOT
SCYL AND TRK MATCH ?
‘BR IF NOT
:CYL ,TRK AND SEC MATCH ?

:BR If SO
*DECREMENT THE ENTRY COUNT
‘BR IF EXHAUST
:LOCATE THE NEXT ENTRY
*BR BACK
*LOAD INTO TABLE
*LOAD THE
:LOAD THE

TRACK NUMBER
SECTOR NUMBER

;CLEAR UP THE STACK

*RESTORE R&
*ASJUST THE RETURN ADDRESS
SEXIT
:

ITY

RMOS/3/2 FORMATITER

FUNCTION ROUTINES

MACRO

v04.00

4-APR-B1

e NOnS
VeB
W N =O

YR NP N

nrony
PONUPNINUNUAININD
—d = ed
e kg =

WAL= OO

SSBTTL

021272
021276

005737
001403

001320

021304

104401

000207

042255

021306

104401

040564
001205
022702

00537

001362

004537
001424
000766

021160

021300

021312
021316
021322

021324
021330
021332
021336
021340
021342
021346
021350
021354
021360
021364

0045%7
0057u2
100404

004537
001424

020250

104401
104401

040642
001205
022702

005737

001362

004537
002430
000766
004537
002430
000207

021160

004537
005720
100404

FUNCTT:

TST
BEQ

TYPE
RTS

1%:

2%:

3%:

4%:

020250

5%:

TYPE
TYPE
JSR
TABLEZ2

021414
(21420
021422
021426

51 021464
52 021466
53 021474
54 021502
55 021510
57 021516

FUNCT2:

001320

042255

003434
023434
004440
004440
001356

021546
021556
021610
021620

003434
003434
004440
004440

021610
021620
021546
021556

040720

1%:

2%:

°*'MFG'

DEF INED BAD SECTORS

JSR
TABLE3

TABLE

AND

;BR

YES

sTYPE

.MESGS

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

R5,MANTER

‘ENTER THE VALUE FROM THE KEYBOARD

.SCRLF

RS ,MANTER

'USR'

FILE

JWAS A VALUE ENTERED

JBR _IF NO

IN VERIFY MODE'

s INSERT BAD SECTOR INTO THE

'MFC16"

TABLE

JNEXT ENTRY

;SORT THE TABLE WHEN DONE WITH INPUTS

“INPUT VALUES FROM THE KEYBOARD
;UPDATED VALUES ?
;BR _IF NOT

;INSERT BAD SECTOR INTO THE °"MFG18' TABLE
JNEXT ENTRY
;SORT THE TABLE WHEN DONE WITH INPUTS
JEXIT

DEF INED BAD SECTORS

MODE
1%

.NOUPDT

RTS

MOV

#USTAB+8. 4%
H#USTAB+8. 6%
HUSSAV+8.

MOV
MOV
Mov
151
BMI
MOV
MoV
Moy
Mov

#USTAB+8. ,8%
AUSTAB+8. ‘108
#USSAV+8.
HUSSAV+8. ‘68

TYPE

MESG7

HUSSAV+8. 108

SEC30
2%

"NO UPDATE

:z;PEF'ENTER MFG 18 BIT BAD SECTOR ADDRESS'®

MESG6E
.SCRLF

TST
DS.CYL
B8MI
5%
RS, INSERT
JSR
MFG18+8.
4%
BR
R5,SORT2
JSR
MFG18+8.
PC
RTS

TST
BEQ
TYPE

16 BIT

.NOUPDT

TST
DS.CYL
BMI
3%
RS, INSERT
JSR
MFG16+8.
BR
2%
R5,SORT2
JSR
MFG16+8.
TYPE
TYPE

IN THE

;1S IT 'FORMAT' MODE ?

MODE
1%

sJROUTINE TO ENTER
;THE 18 BIT TABLE

45
46 021430
47 021436
48 021444
49 021452
50 021460

UTILITY FUNCTION ROUTINES

;ROUTINE TO ENTER
;THE 18 BIT TABLE

29 021366
30 021372
31 021374
32 021400
33 021402
34 021404
35 021410
36 021412

40
41
42
43
4

L
6
18:39:56 PAGE 24

IN THE

16 BIT

TABLE OR

;IS IT "FORMAT' MODE ?
28R

sTYPE

YES

'NO UPDATE OF

FILE

IN VERIFY MODE'

;SET UP 'USR' TABLES FOR 16 BIT MODE

18 BIT MODE

USR'

TABLES FOR 18 BIT MODE

JRMLB0O RM0OS/3/2 FORMATTER

UTILITY

FUNCTION ROUTINES

58 021522
59 021526

104401
004537

001205
(2270¢

62 021534
63 021540

005737
100404

001362

65 021546
66 021550

0000G0
000766

g? 021532

64 021542

67 021552

@g 021556
<)

70 021560

005702

004537

021160

004537

020250

104401

040776

000000

71 021564
72 021570

104401
004537

75 021576
76 021602
77 G21604

005737
100404
004537

79 021612

000766

81 021620
g% 021622

000000
000207

;2 021574

78 021610

80 021614

005720

000000

004537

001205
022702

4-APR-81

3%:

6%:

5%:

6%:

7%:

021160

020250

8%:

9%:

10%:

18:39:56 PAGE 24-1

SEG 0077

TYPE
JSR

.SCRLF
RS ,MANTER

sCR=LF
JENTER BAD SEZTOR FROM THE KEYBOARD

TST
BMI
JSR
.WORD
BR

DS.CYL
5%

RS, INSERT

;UPDATED INPUT VALUE
;BR IF NO

C
3%

s TABLE ADDRESS
JNEXT ENTRY

.WORD

;TABLE ADDRESS

TABLEZ2

JSR

TYPE

001362

R5,SORT?

;SORT THE °'USR' 16 BIT TABLE

TYPE
JSR

MESG8

.SCRLF
R5 ,MANTER

;TYPE

TST
BM]
JSR

DS.CYL
9%
RS, INSERT

;UPDATED INPUT VALUE ?
;BR _IF NOT
s INSERT THE BAD SECTOR

;BR TO ENTER NEXT

TABLE3

WORD

JSR

.WORD
RTS

R5,SORT2
0
PC

"ENTER USR 18 BIT BAD SECTOR ADDRESS'

sCR=LF
;ENTER BAD SECTOR FORM KEYBOARD

;SORT THE TABLE

91 021642
92 021646

32 021652
95 021656

96 021662

97 021666
98 021672
188 21674

104401
004737
104401

010146
012701
104401

004737

001205
022622
001205

022512

041140

004737
012601

022512

TYPE

002430

MoV
JSR
MOV
RTS

000207

101
}8%

TYPE
JSR
TYPE

MoV
MoV
TYPE
JSR

001424
041054

104401

012701

FUNCT3:

.SCRLF
PC,TYPACK
.$CRLF

R1.=(SP)
#MFG16+8. ,R1
.MESGY
PC,IYLIST

107 021712
108 021714
109 021716
110 021722

104401
004737
104401
010146
010246
012701
012702

112 021732
113 021734
114 021740

100404
(012702
012701

021726

005737

001205
022622
001205

003434
004440
001356

003434

004440

FUNCT4:

'MFG' BAD SECTOR FILES

;ADDRESS OF FIRST BAD SECTOR ENTRY IN TABLE
;TYPE °'CONTENTS OF 16 BIT MFG BAD SECTOR FILE®

;TYPE BAD SECTOR LIST IN DECIMAL

MESG10

;TYPE

PC,TYLIST
(SP)+,R1

;TYPE BAD SECTOR LIST IN DECIMAL
:RESTORE THE R1
JEXIT FROM THE CALLING OF TABCAL

AMFG18+8. ,R1
PC

TYPE
JSR
TYPE
MoV
MOV
MOV
MoV

$CRLF
PC, TYPACK
.SCRLF
R1,-(SP)
R2,=(SP)
#USTAB+8. ,R1
#USSAV+8.
,R?

BMI
MOV
Mov

1%
#USTAB+8. R2
#USSAV+R, ,R1

TST

SECTOR

s CR=LF
:TYPE PACK SERIAL NUMBER
;CR=LF
;SAVE R1

"CONTENTS OF 18 BIT MFG BAD SECTOR FILE®

;ADDRESS OF FIRST BAD SECTOR ENTRY IN TABLE

;THIS ROUTINE WILL TYPE THE CONTENTS OF
;FOR 16 BIT MODE AND 18 BIT MODE

104 021676
105 021702
106 021706

INTO TABLE

; TABLE ADDRESS
EXIT FORM THE TABCAL CALLING

:FOR 16 BIT MODE AND 18 Bi! MODE

87 021624
88 021630
89 021634
90 021640

s INSERT THE BAD SECTOR INTO TABLE

;THIS ROUTINE WILL TYPE THE CONTENTS OF ‘THE

111

MACRO v04.00

SEC30

THE

°'USR' BAD SECTOR FILES

sCR~LF
;TYPE PACK SERIAL NUMBER
sCR=LF

;SAVE R1
;SAVE RZ
;SET UP 'USR'
;IS

TABLES FOR 16 BIT MODE

16 BIT MODE

;BR IF YES
;SET UP 'USR'
H

TABLES FOR 18 BIT MODE

"ZRMLBO RMOS5/3/2 FORMATIER
FUNCTION ROUTINES

}1§ 021750

115 0217464

004737

104401

041224

118 021754
119 021760
120 021762
121 021766
122 021770

104401
010201
004737
012602
012601

041310

}Sz 021772

MACRO v04.00
18:

(22512

022512

000207

TYPE

127 021774

129 022006

SEQ

PC,TYLIST

JMESG1

sTYPE

TYPE
MOV
JSR
MOV
MOV

JMESG12
R2.R1
PC,TYLIST
(SP)+,R2
(SP)+,R1

;TYPE 'CONTENTS OF 18 BIT USR BAD SECTOR FILE"'
;GET ADDRESS TO R1
;TYPE BAD SECTOR LIST IN DECIMAL
:RESTORE R2
;RESTORE R1

005737
001403
104401

000207

001320

FUNCTS:

*CONTENTS OF

042314

JEXIT FROM THE CALLING OF TABCAL

LINITMF
R1,=(SP)
R2,-(SP)
MFG16+4.
MFG16+6.

;TYPE "INITIALIZING MFG BAD SECTOUR FILES®
;SAVE R1
:SAVE R2
:CLEAR 3RD WORD (ALL 0'S)
;CLEAR 4TH WORD (ALL 0°'S)

#252. ,R2
#-1,(R1)+

:NUMBER OF WORDS LEFT
;RESET REST OF FILE TO -1

001420
001422

138 022034
139 022040

012702
012721

000374
177777

MOV
MOV

140 022044

}2; 022046
143 022050
144 022054

022060
022064
022070
022074

149 022076
150 022100
151 022102

152 022104
}gz 022110

005302

MOV
2%:

001374

005037
005037

012701
012702
012721
005302

001374
012602
012601

104401
000207

DEC

BNE
002424
002426

002430
000374
177777

3%:

041502

}22

(16 AND 18 BIT)

TYPE
MOV
MOV
CLR
CLR

001424

'MFG' BAD SECTOR FILE

RTS

042143

012701

SECTOR FILE"®

MODE

104401
010146
010246
005037
005037

137 022030

1%:

16 BIT USR BAD

JTYPE BAD SECTOR LIST IN DECIMAL

TST

BEQ
TYPE

022010
022014
022016
022020
022024

;1S IT 'FORMAT' MODE ?

1%
LNOINIT

:BR IF YES
;TYPE "NO INITIALIZATION IN VERIFY MODE'

#MFG16+8. ,R1
R2

;ADDRESS OF FIRST BAD SECTOR ENTRY
:DONE

YET

:BR IF NO

CLR
CLR

MFG18+4.
MFG18+6.

;CLEAR 3RD WORD
:CLEAR 4TH WORD

BNE
MOV
MoV

3%
(SP)+,R2
(SP)+,R1

:BR IF NO
:RESTORE R2
:RESTORE R1

MOV
MoV
MoV
DEC

TYPE
RTS

#MFG18+8. ,R1
#252. ,R2
#=1,(R1)+
R2

LMESG14
PC

(ALL 0°'S)
(ALL 0°'S)

:ADDRESS OF FIRST BAD SECTOR ENTRY
:NUMBER OF WORDS LEFT
RESET REST OF FILE TO -1
:DONE YET ?

:TYPE "DONE !'°
sEXIT FROM THE TABCAL CALLING

:THIS ROUTINE IS USED TO INITIALIZE THE 'USR' BAD SECTOR FILE (16 AND 18 BIT)

157 022112
158 022116
159 022120
;g? 022124
162 022126

163
164
165
166

:THIS ROUTINE IS USED TO INITIALIZE THE

128 022000
129 022002

145
146
147
148

18:39:56 PAGE 24-2

JSR

RTS

%SZ

132
133
134
135
136

4-APR-81

005737
001403
104401
000207

001320

104401

042100

022132
022134
022136
022142

010146
010246
005037
005037

168 022152

012702

167 022146
169 022156

170 022162
171 022164

012701

012721

005302
001374

FUNCT6:

042314
1%:

TST
REQ
TYPE
RTS
TYPE

MODE
1%
NOINIT
PC

;IS IT 'FORMAT' MODE ?
;BR IF YES
:TYPE 'NO INITIALIZATION IN VERIFY MODE'

LINITUS

:TYPE

003430
003432

MOV
MOV
CLR
CLR

R1.-(SP)
R2,=(SP)
USTAB+4.
USTAB+6.

000374

MOV

#252.,R2

003434

177777

MOV

2%:

MOV
DEC
BNE

#USTAB+8. ,R1
#-1,(R1)+
R2
2%

'INITIALIZING USR BAD SECTOR FILES®

:SAVE R1
;SAVE R2
;CLEAR 3RD WORD (ALL 0'S)
:CLEAR 4TH WORD (ALL 0'S)

:ADDRESS OF FIRST BAD SECTOR ENTRY
:NUMBER OF WORDS LEFT

;RESET REST OF F'_E TO =1

:DONE YET ?
;BR IF NO

0078

JRMLBO RMOS/3/2 FORMATTER
TILITY FUNCTION ROUTINES

MACRD v04.00

B 7
1B:39:56 PAGE 264-3

4-APR-81

172

173 022166
174 022172
175 022176

005037
00503
012701

(04s34
00443%6
004440

012721

177777

176 022202

012702

178 022212

005302

177 022206

179 022214

180 022216

181 022220
182 022222

gz 022226

000374

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

MOV

#=1,(R1)+

JRESET REST OF

#252. ,R2

DEC

8NE

012602

000207

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

MOV

3%:

001374

012601
104401

(LR
(LR
MOV

MOV

(SP)+ ,R2

MOV
1YPE

041502

JNUMBER OF WORDS LEFT
;DONE “ET ?

TO =1

:BR IF NO

;RESTORE R2

(S2)+,R1
JMESG14

RTS

FILE

;RESTORE R1
:TYPE 'DONE

'°*
;EXIT FORM THE TABCAL CALLING

185

:THIS

;gg

:CYL=822., (RMOS-TRK=18. OR RM02/3-TRK=4)

188
189
190
191
192

022230
022234
022240
022242
022244

104401
104401
104411
012601
012702

022254
022256
022260
022262
022264
022266

022342
022334
(2. 334
022270
022334
022334

022250

004537

193 022270
194 022272

006302
016201

196 022302

104401

195 022276

197 022306
198 022312
199 022314

200 022316
201 022322

202 022324
203 022326
204 022330
205 022332
206 022334
207 022340
<08 022342

041374
041450

023172

012702

000402

012705
012146
104402

000010

104401
005302
001406
005305
001370
000763
104401
000735
104401

g?g 022346 000207

FUNCT7:
1%:

000037

006064
001205

TYPE
TYPE
KDL IN
MOV
MOV

2%:
3%:

037174

5%:

001205

6%:

USED

TO PRINT

SECTOR

THE

LAST

TRACK

RS5,(CK.DIG

;CHECK THE DIGIT(S)

ASL
MOV

R2
ADRTBL(R2)
,RT

;FOUND THE WORD INDEX
;ADDRESS OF THE BUFFER

TYPE

LSCRLF

MOV

#258. ,R2

MOV
MoV
TYPOC

#8..R5
(R1)+,=(SP)

TYPE
DEC
BEQ
DEC
BNE
BR
TYPE
BR
TYPE

SECTOR

;TYPE 'PRINT A SECTOR OF LAST TRACK
;TYPE 'ENTER SECTOR (DECIMAL): *
JREAD THE SECTOR NUMBER
(SP)+,R1
;ADDRESS OF READ-IN BUFFER
#31.,R2 ;UPPER LIMIT OF INPUT

6%
5%
5%
2%
5%
5%

RTS.

(BAD

JMESG13
.MSG13A

JSR

036621

21
212

ROUTINE

JBLNKS2
R2
6%
RS
43
3%
LBADENT
1%
JSCRLF

. PC

FILE’

(OCTAL)'

;CARRIAGE RETURN ONLY ENTERED
;PERIOD ONLY ENTERED
;ILLEGAL INPUT
:TERMINATED WITH A CARRIAGE RETURN
TERMINATED WITH A '",""
;TERMINATED WITH A """
:WC FOR WHOLE SECTOR INCLUDING HEADER
;CR-LF

;8 WORDS ON A LINE
:CONTENTS OF THE BUFFER
;TYPE OCTAL WORD

;TYPE 2 SPACES
:DECREMENT WORD (TR
:BR IF FINISH
:START ANOTHER LINE ?
:BR IF NOT
:BR IF SO
;TYPE BAD ENTRY
:TRY AGAIN
:CR=LF

“EXIT FROM TABCAL CALLING

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

S}z

;FROM INDEX ON THE DISK

215 022350
216 022354
5:; 022360

104401
004537
005736

041513
022702

219 022362
220 022366
221 022370

005737
100442
010446

001362

FUNCT8: TYPE
1%:
JSR
TABLE4

ST
BM]
MOV

.MESG15
R5,MANTER

:TYPE 'ENTER MFG BAD SECTOR ADRS (DECIMAL)®
:ENTER THE VALUE FROM KEYBOARD

DS.CYL
6%
R4 ,-(SP)

:WAS ADDRESS UPDATED 2
:BR IF NO
:SAVE R4

nonunuNy
NNNN&NNNNNN ALV
FHRUR ISP RS W ANV)

013746
005004
023764
101402

005724
000772
006204
010437
004537
001424
012637
005004
023764
022446

237 022452
238 022454
239 022456
240 022462

241 (22466

242 022470
243 022472
264 022474
245 022500
246 022502

267 022506
268 022510

kol

Ral

wn
N
-

'Y
<o

A
I

-t

)

-ty

.
|

ROUTINES

101403

062704
000771
006204
010437
004537
002430
012604
000730
004537
001424
004537
002430
000207

MACRD v04.00

001344

006264

2%:

4-APR-B1

e
1B:39:56 PAGE 24~4

MOV
(LR
MP
BLOS

BADSEL,=(SP)
;SAVE "BADSEC' FOR 18 BIT MODE""
R4
:TABLE INDEX STARTS FROM 0
BADSEC,BYTE16(R4)
;1S 16 BIT LOCATION FOUND ?
3%
:BR IF YES

3%:

001344
021160

020250
020250

R4 ,BADSE C

RS. INSERT
‘

006364

4%:

000002

001344
021160

ASR

MOV

001344
001344

(R&)+

5%:

6%:

$TRY NEXT

:LOOPING

SECTOR

:SECTOR ADDRESS

- :SAVE 16 BIT SECTOR ADDRESS
:INSERT BAD SECTOR INTO

‘MFG16'

TABLE

MOV
(SP)+,BADSEC
;GET LOCATION OF SECTOR FOR 18 BIT MODE
CLR
R4
:TABLE INDEX STARTS FROM 0
(MP
BADSEC,BYTE18(R4)
;1S 18 BIT LOCATION FOUND ?
BLOS
5%
:BR IF YES
ADD
#2 ,Ré
:TRY NEXT SECTOR IF NOT FOUND
BR
4$
:LOOPIN BACK
ASR
R4
:SECTOR ADDRESS
MOV
R& ,BADSE
:SAVE 18 BIT SECTOR ADDRESS
JSR
RS, INSERT
:INSERT BAD SECTOR INTO ‘MFG18' TABLE
MFG18+8.
MOV
(SP)+,R4
;RESTORE Ré&
BR
1$
INEXT ENTRY
JSR
R5,SORT2
:SORT 'MFG16" TABLE
MFG16+8.

JSR

RS,SORT?2

;SORT 'MFG18' TABLE

RTS

:RE TURN

MFG18+8.

/7 FORMAT e
FUNCTION ROU TINES
e

MACRO

v04.00

4-APR-B1

7
0
18:39:56 PAGE 25

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

s CALL

,R1
A#NUMADR
PC,TYLIST

CONTENTS OF
..

SN
S
S
SN
R
U

MOV
JSR

JADDRESS OF

FIRST

TABLE ENTRY

sCALL TYPE LIST ROUTINE

STHE LIST WILL BE TYPED IN THE FOLLOWING FORMAT:

\~u~JuuunLnuumnxvvnununJNJmuugg
NP NN SO CONNEWN—=O
VNN
WA O 000 gTM un i Ny

sTHIS ROUTINE IS USED TO (YPE THE BAD SECTOR FILE ENTRY [N DECIMAL.

022512
022514
022520
022522
022524

022526
022532
022536
022542
022544
022550
022554
022560
022564
022566
022572
022576
022602
022606
022610
022612
022614
022620

010146
104401

005711
100432
011146
004737
004737
104401
105046
116116
004737
004737
104401
105046
116116

004737
004737
062701
000742

020126
001002
104401
000207

: MOV

TYPE

001205

TST

027100
026670
036602

2%:

042206

3%:

THE BAD SECTOR FILE

(DECIMAL)

R1,-(SP)

:EQVEFADDRESS OF FIRST TABLE ENTRY

(R1)

;IS IT TERMINATOR *
;BR IF YES
sPUT CYLINDER NUMBER ON STACK
JCONVERT IT TO DECIMAL

.SCRLF

2%
(R1) ,=(SP)
PC,$SB2D
PC,$SUPRL

CLRB
MOovB
JSR
JSR

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

;CLEAR STACK LOCATION
;PUT TRACK NUMBER ON STACK
JCONVERT IT TO DECIMAL

CLRB
MOVB
JSR
JSR
ADD
BR

=(SP)
2(R1),(SP)
PC,$SB2D
PC, $SUPRL
#4 R1
1%

;CLEAR STACK LOCATION

(MP

R1,(SP)+

TYPE
RTS

,NOENTR
PC

;WERE THERE ANY ENTRIES 7
;BR IF YES

TYPE

090002
027100
26670
000004

'FILENAME'

BMI
MOV
JSR
JSR

TYPE

000003
027100
026670
036602

CYL,TRK,SEC

BNE

. $COMMA

:};zg QEgIMAL NUMBER, LEFT JUSTIFY

;;;gg QEQIML NUMBER, LEFT JUSTIFY

;PUT SECTOR NUMBER ON STACK

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

JNEXT ENTRY

TO NEXT BAD SECTOR ENTRY

JTYPE '~ NO ENTRIES
;RETURN

JRMU RO

BACK

VNN
OO0 NP Nr

TYPE

RMOS/2/72
SERLAL

MACRD v04.00

FORMATTER
NUMBER

4-APR-81

OCTAL

.SBTTIL
;ROUTINE
JCALL:

:
022622
022626
022632
022634
022640
022644
022650
022654

17 022660
18 022662
19 022664

20 (22670
21 022674
22 022700

106401

013746
001414
004737
004737

013746
004737
004537

000005
000406
013746
004737
004737
000207

7
E
1B:39:56 PAGE 26

037473

003426

TYPA(CK
:

TO TYPE
JSR

SERIAL

NUMBER

IN OCTAL

THE PACK SERIAL NUMBER IN O(TAL
PC,TYPACK

s CALL

ROUTINE

PC,TYPCK

sCALL

ROUTINE (WITH NO HEADER MESSAGE)

;TYPE

'PACK S/N:'

.PACKSN

:
TYPCK

USTAB+2,-(SP)

;GET HlI NUMBER (MSB)

USTAB,=(SP)
PC,$SB20

;GET LOW NUMBER (LSB)
;CONVERT TO OCTAL NUMBER

02733C
026670
003424
027330
026770
,
003424
027330
02670

TYPE PACK

1%
PC.$5820
PC,$SUPRL
USTAB,=(SP)
PC,$SB20
RS.FILLZ
SS

PC,$SUPRL
PC

:BR IF ZERO
s CONVERT TO OCTAL NUMBER
JAND TYPE IT LEFT JUSTIFIED
;GET LOW NUMBER (LSB)
sCONVERT TO OCTAL NUMBER
sTYPE WITH PRECEEDING ZEROS
;5 DIGITS

JAND TYPE
;RETURN

IT LEFT

JUSTIFIED

JEMUB0 RMOS/3/2 FORMATTER

MACRDO v04.00

PNTER BAD SECTCR ROUTINE

4-APR-81

.SBTTL

ENTER BAD SECTOR ROUTINE

sROUTINE TO ENTER BAD SECTOR
sJCALL:
;
JSR
RS,MANTER

5
;

8 022702
022702
9 022706
10 022706
11 022712

12
12
14
15
16

18:3%9:56 PAGE 27

022714
022716
022720
022726
022730

17 022732

022734
022740
022762
022744

010446
011504
012437
001402
104401

000000

012774
104411
012601
012402

022746
022750
022752

004537
023036
023030
023030
023030
022754
(023030

20 022756
022760
022764
022766
022770
022772

012402
004537
023030
023030
023030
023030

022776

023030

2% 023002
023004

012402
004537

Ig 022754

022774

%; 023000

023010
023012
023014
023016
023020
023022
24 023024
52 023026

27 023030
28 023034
29 023036
30 023040
31 023042

1%:

177777

00C002

2%:

.WORD

3%:

MOV
RDLIN »
MOV
MOV

023172
.

4%:
023172

023000

104401
000723
005725
012604
000205

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

S%:

023172

037174

7%:

;ADDRESS OF FIRST ASCIZ CHARA(CTER
JUPPER LIMIT OF INPUT

MOV

R2,d(R&) +

MOV
JSR
7%
7%
7%
7%

(R4)+ ,R2
R5.CK.DIG

B%:

R2.a(R&+

MOV
JSR

(R4)+ ,R2
RS,(K.DIG

MOV
RTS

MESSAGE

JINITIALIZE VALUE

GOES HERE

JCHECK THE DIGIT(S)
;sCARRIAGE RETURN ONLY ENTERED
;PERIOD ONLY ENTERED
s ILLEGAL INPUT

;TERMINATED WITH A CARRIAGE RETURN
;TERMINATED WITH A """’
;TERMINATED WITH A """

;CYLINDER ADDRESS

;UPPER LIMIT OF INPUT
;CHECK THE DIGIT(S)
;CARRIAGE RETURN ONLY ENTERED
JPERIOD ONLY ENTERED
;s ILLEGAL INPUT
:TERMINATED WITH A CARRIAGE RETURN
;TERMINATED WITH A """

MOV

TYPE
BR
TST

;BR IF NO MESSAGE

(SP) + ,R1
(R4)+,R2

R5.CK.DIG

7%
7%
7%
6%
’%
7%
MOV
BR

::PUSH R4 ON STACK
sGET TABLE POINTER
;GET ADDRESS OF MESSAGE
;ADDRESS OF

JSR
8%
7%
7%
7%
4%
7%

#-1,22(R4)

010234

023030
023030
023030
023024
023030
023030
010234
000403

MOV
MOV
MOV

BEQ
TYPE

010234

;s CALL ROUTINE
;ADDRESS OF TABLE

TABLE

MANTER:

022716

INFORMATION MANUA(LY

R2,d(R4)+
8%

,BADENT
1%
(R5) +

(SP) +,R4
RS

;TERMINATED WITH A "'."'
; TRACK ADDRESS

;UPPER LIMIT OF INPUT
JCHECK THE DIGIT(S)

;CARRIAGE RETURN ONLY ENTERED
JPERIOD ONLY FNTERED
s ILLEGAL INPUT
;TERMINATED WITH A CARRIAGE RETURN
;TERMINATED WITH A """
;TERMINATED WITH A *'.**
;SECTOR OR BYTE ADDRESS
SEXIT

:MESSAGE BAD ENTRY
;ENTER SECTOR ADDRESS AGAIN
;ADJUST RETURN ADDRESS
;2POP STACK INTO R4
JEXIT

3
ECTOR

URMA TER
ROUT INE

MACNO

y04.00

sCALL
3

MOV

:
3

RETURN1
RE TURN?

CK.OCT:

CMPB
BLO
CMPB
BHI
MOVB

JSR

10 023044

121127

000060

12 023052
13 023056
14 023060

121127
101004
111102

000067

11 023050

15 023062

16 023066
;7 023070

103407

042702

005725
000205

177770

;ADDRESS OF ASCII!

(HARACTER

sCHE(X THE CHARA(CTER

;CHARACTER IS NOT BETWEEN 0=7
J(HARACTER IS IN R2 AS A

- ;OCTAL DIGIT
(R7) ,#'0
1%
(R1) ,#'7
1%
(R1) ,R2

JLESS THAN ZERO?
JYES
;GREATER THAN SEVEN?
JYES
cGET THE CHARACTER

(R5)+

;ADJUST FOR RETURN

RTS

IS USED

;STRIF AWAY THE ASCII
;RETURN

TO CHECK AN ASCII

CHARACTER

;R2 = DIGIT

121127
103407
121127
101004
111102
042702
005725
000205

000060

(K.DEC:

000671
000060
1%:
<THIS

CMPB
BLO
(MPB
BHI
MOVB
BIC
TST
RTS

ROUTINE

(R, #'0
1%
(R1) ,#'9
1%
(R1).R2
#'0,R2
(R5)
+
R5
WILL

CHECK

;DETERMINE WHAT IT IS.

. CALL

40
41
42

MOV
JSR

RETURN
RETURN
RETURN

43
[AA

RETURN

55 023136
56 023140
57 023144

sAND DETERMINE IF IT IS A DIGIT BETWEEN O AND 9.
s CALL
#ADR,R1
MOV
;
;ADDRESS OF ASCII CHARACTER
R5,CK.DEC
JSR
:
;CHECK THE CHARACTER
:
RETURN!1
;NOT BETWEEN O AND 9
RE TURNZ
S
JBETWEEN O AND 9

023120
023122
023124
023130
023132

RS,CK.OCT

#*°C7.R2

;THIS ROUTINE

24
25
26
27
28 023072
29 023076
30 023100
31 023104
32 023106
33 023110
34 023114
35 023116
36
37
38
39

#ADR,R1

BIC
TST

1%:

20
21
e

SO
51
52
53
54

18:3G:56 PAGE 28

;THIS ROUTINE 1S USED TO (HECK IF AN
sASCIi CHARACTER IS A DIGIT BETWEEN O AND

&7
48
49

4-APR-B1

105711
001417
121127
001413
121127
001407
004537
0QC0410

(K.CHR:

000054
000056

023072

TSTR

BEQ
CMPR
BEQ
(MPB
BEQ
JSR
BR

#ADR,R1
R5,(K.CHR
ADR!
ADR?2
ADR3
ADR4

ADRS

(R1)

3%
(R1) .,#',
2%
(R1) ,4'.
1%
RS,(K.DEC
4%

:5525 THAN ZERO?

;GEEATER THAN NINE?
<,

:GET THE CHARACTER

*STRIP AWAY THE ASCII

*ADJUST FOR RETURN
*RETURN
AN ASCII

CHARACTER

;ADDRESS OF

ASCII

;CHECK CHARACTER

CHARACTER

JUNKNOWN CHARACTER

;CARRIAGE RETURN * (R1)=ADR+1
;COMMA «

(R1)=ADR+1

JPERIOD * (R1)=ADR+1
;DIGIT BETWEEN O AND 7.
;DIGIT BETWEEN 8 AND 9.
;R2 = DIGIT

(R1)=ADR+1

;"'CARRIAGE RETURN'TM
SYES
J''COMMA'"?
JYES
J"'PERIOD'"?

JYES
S DIGIT'"?
.

JRMLBO RMOS5/3/2 FORMATTER

MACRD

(04,00

4-APR-B1

ENTER BAD SECTOR ROUTINE

004537
005725
005725
005725
005725
005725
005201
011505
000205

023044

JSR
IST

1%:

2%:
3%:
4%:

IST
7ST
IST
TST

INC
MOV
RTS

;THIS ROUTINE

18:39:56 PAGE

7
28~-1

RS5,Ck.0OCY
(RS) +
(R5)+
(RS)+
(RS)+
(RS)+
R
(RS) ,RS
RS

CHECKS AN ASCII

;0CTAL

;DIGIT BETWEEN 8=9
:DIGIT BETWEEN O=7
;PERIOD
; COMMA
:CARRIAGE RETURN
JMOVE POINTER TO NEXT
JUNKNOWN C(HARACTER
JRETURN

CHARACTER

STRING FOR LEGAL

s CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN RZ.

s CALL

81 023172
82 023174
83 023176
84 023200
85 023202
86 023204
87 023206
023212
023214
023216
023220
023222
023224
88 023226
89 023232
90 023234
91 023236
92
93
%
95

023240
023242
023244
023246
023252

023254
023256
023260
023262
023264
9% 023266
97 023270

98 023272
99 023274

100 023276

101 023300

102 023302

010446
010346
010246
005002
005003
005004
004537
023306
023314
023306

(K.DIG:

006303
062603
060203
004537
023312
023276
023274
023266
023232
023232
105711
001010
005724
005724
005724
020316
003004

MoV
Mov
MOV

CLR
CLR
CLR
JSR
6%
9%
63
7%

023120

023310
023226
023226
062705
006303
010346
006303

MOV
MoV
JSR
RETURN
RE TURN
RETURN
RETURN
RETURN
RETURN

#ADR,R1

;ADDRESS OF

R5,CK.DIG
ADR1

;CHECK DIGITS
J''CR'" ONLY ENTERED == R2=0

ADR3
ADR4
ADRS
ADRé

;ILLEGAL CHARACTER OR INPUT
;''CR'"" == R2 = NUMBER
J"'COMMA'' == R2 = NUMBER
;"'PERIOD'" == R2 = NUMBER

#NUM,R2

ADR?2

;SAVE R4
;SAVE R3

R2
R3

:START WITH O

R2.,+{SP)
R4
R5.CK.CHR

000004

1%:

ADD

023120

JSR

8%
5%

#4 RS
R3

R3,-(SP)
R3
R3
(SP)+,R3
R2.R3
RS.CK.CHR

3%:
:
4%

5%:

7STB

BNE

TST
TST

1ST
(MP
BGT

TOO LARGE == R2=?

;SAVE THE MAX. SIZE ON THE STACK

sCHECK ONE

CHARACTER

s ILLEGAL CHARACTER
: CARRIAGE RETURN

;DIGIT 0-7
:DIGIT 8-9

;STEP RETURN POINTER PAST "'CR'' & 'PERIOD'' RETURNS
:INPUT NUMBER =*?

;SAVE x2
;x4
;*8
;(%x2)+(x8) = *10
;UPDATE THE INPUT NUMBER
;CHECK ONE CHARACTER
;ILLEGAL CHARACTER

: CARRIAGE RETURN

3%
2%
2%

INPUT NUMBER

;'"PERIOD'" ONLY ENTERED == R2=0

R4 ,-(SP)
R3,-(SP)

1%
ADD
ASL
MoV
ASL
ASL
ADD

ASCIZ STRING

JMAX. MAGNITUDE OF

(R1)
8%

(R&4) +
(R4) +

(R&4) +

R3, (SP)
9%

;DIGIT 0-7
;DIGIT 8-9

:DOES A ''CR'' FOLLCW THE 'PERIOD'’
:BR IF NOT

: INCREMENT THE RETURN
: INCREMENT

THE RETURN

s INCREMENT THE RETURN®

;CHECK THE MAGNITUDE OF
sBR

THE NUMBER

ENTERED NUMBER TOO LARGE

=MUBD RM0OS5/3/2 FORMATTER

ENTER BAD SECTOR ROUTINE

103 0233064

106 023306
10% 023310
106 023312

000402

005725
005725
060405

107 023314
108 023,16

010302
005726

110 023322

012604

106 023320

111

023%24

;}% 023326

012603

011505

000205

MACRD v04.00

4-APR-B1

|
18:39:56 PAGE

7
28-2
-

6£%:
7%:

8%:
9%:

B8R
1ST
1ST
ADD
MOV
1ST
MOV
MOV
MOV
RTS

JBYPASS INCREMENT
o INCREMENT RETURN PAST INVALID RE TURN
s INCREMENT RETURN
sSETUP RETURN POINTER
SENTERED VALUE
sCLEAN MAX, SIZE OFF OF STA(K

8%
(RS)+

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

(SP)+,R3
(SP)+ R4

(RS) ,RS
RS

JRESTORE R3

JRESTORE R4
JGET RETURN ADDRESS

JRETURN

CIZRMLBO =M0O5/7
FORMATTER
FRROR HAND L FR ROUTINE

MAIRD v04.00

4-APR-B1

.SBTTL
AR

1B:39:56 PAGE

ERROR HANDLER ROUTINE

A R AR RN AR AR AN ARARA TR ARAARNARARARAANRARAARARAR
AR EARAR RN
TR RO R N

$*THIS ROUTINE

;*SAVE

WILL

INCREMENT

;*THE

SWITCH OPTIONS PROVIDED BY

s*SW15=1
;*SW13=1

;*SW10=1

023426
023430

001402
104401

023420

023434
023440
023444
023452

032777

(05237
011637
162737
117737

023756
001366
001370
005552
005551
005564

$ERROR:

001362
001364

005564
000002
001140
001117
001116

002000

001200
001126
001132
000002
155454
001000

78:
155536

155526

001132
001130

023460
023466
023470
023476
023500
023504
023506
023514
023516
023522
023530

032777
001060
122737
001454
105737
001047
022737
001445
013746
012737
013737

023540
023546
023552
023554

012737
012716
000002
012637

000004

023560

022737

177777

023754

000001

023754

000001

177766

023536

023566
023570
023576
023600

000406

001420
032737
001414
042737

000177

023756

155466

001130

177777

:
023754

000004
023540
177766

000004
023754

177777
023554

023754

1000%:
1001%:
1002%:

THIS ROUTINE

THE

ERROR (OUNT,

THE ERROR CALL

ARE:

BELL ON ERROR
LOOP ON ERROR

; ;ERROR=EMT AND N=ERROR

ITEM NUMBER

CLRB
CKSWR
MoV
MOV
MOV
MOVB
TST
BEQ
MGV
SuB
MoV
INCB
BEQ ~
MOV

;:CLEAR THE ITEM BYTE SAVE LOCATION
:TEST FOR CHANGE IN SOF T=SWR
R1,DDRIVE
;DRIVE ADDRESS IF DRIVE ERROR CALL
R3,ATTN
JATTENTION REGISTER CONTENTS
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
#2,(SP)
;DECREMENT THE ADDRESS
a(SP)+ ,$GDDAT
;GET THE BUFFER WORD WHICH DIDN'T (COMPARE
$ERFLG
;:SET THE ERROR FLAG
7%
;;DON'T LET THE FLAG GO TO ZERO
$TSTNM,aDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG

BEQ
TYPE

1%
LSBELL

2sN0 = SKIP
. :RING BELL

#31709,aSWR
1004%
#177,%1TEMB
1004%
IBSAVE
1003%
#-1,CPSAVE
10048
ERRVEC,=(SP)
#1000 ,ERRVEC
177766 ,CPSAVE

;;STRIP AND SAVE THE ERRCR ITEM CODE
;:SEE IF LOOP ON ERROR IS SET
; ;BRANCH AROUND ROUTINE IF SO
;;SEE IF THIS IS THE POWER FAIL CALL
; ;BRANCH AROUND ROUTINE IF IT IS
;oSEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE
;;BRANCH IF SO
;;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
; sBRANCH IF SO
;;SAVE CONTENTS OF ERROR VECTOR
;.SETUP 'TRAP' RETURN ADDRESS
;:MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

MoV
MOV
RTI
MTMov

#-1,CPSAVE
#1001%, (SP)

;:SET CPU ERROR REGISTER TIMEOUT INDICATOR
;:SETUP RETURN ADDRESS

(SP)+ ERRVE(

;.RESTORE CONTENTS OF ERROR VECTOR

(MP

#-1,CPSAVE

;;SEE

BIT

1%:

ERROR FLAG AND

HALT ON ERROR
INHIBIT ERROR TYPEOUTS

;-§w09=1
*CALL
s
5 &
ERROR

105037
104407
010137
010337
013737
113737
00:5737
001406
013746
162716
013637
105237
001775
(013777

THE

THE ERROR ITEM NUMBER AND THE ADDRESS OF

**AND GO TO TYPERR ON ERROR

023330
023334
023336
023342
023346
023354
023362
023366
023370
023374
023400
023404
023410
023412

“FQ OOB7

INC
MOV
SuB
MOVB
BIT
BNE
CMPB
BEQ
TSTB
BNE
CMP
BEQ
MOV
MOV
MOV

BEQ
BIT
BEQ
BIC

IBSAVE

#BI1T10,aSWR

$ERTTL
(SP) ,$ERRP(
#2,$ERRP(C
a$ERRPC,$ITEMB

1001%

1004%
#81700,CPSAVE
1004%
#B1700,177766

;;BELL ON ERROR?

;;COUNT THE NUMBER OF ERRORS
;:GET ADDRESS OF ERROR INSTRUCTION

IF CPSAVE HAS (PU ERR REG TIMECUT INDICATION

2 sBRANCH IF SO
;;SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG
2 sBRANCH [F OK
;;CLEAR THE BIT FOUND SET

JRMUBO

RMOS/372 FORMATTER

FRROR HANDLER ROUT INE

023606
023614
023622

113737

11273%7
000402

001130
000177

MACRO v04.00

023756
001130

105037

023756

032777

020000

104401

023760
001205

122737

000001

001230

113737

001130
027522

023672

001004
004737

001007

004737
000

155316

105737
001005

005777
100002

1003%:
1004%:

20%:

2%:

155244

104407

023756

001000

105737

023756

001215
000002
000000
000000

001124
001176
001176

1004$

;sMAKE IBSAVE NON=ZERC FOR DUAL ERROR CALL
soSET SITEMB TO SPECIAL POWER FAIL POINTER
: ;BRANCH OVER !BSAVE CLEARING

CLRB

IBSAVE

;:CLEAR IBSAVE SO 2ND TIME THROUGH EXITS

BIT
BNE
JSR
TYPE

#B1T13,aSwR
208

CMPB

HAPTENV, SENV

s :RUNNING IN APT MODE

PC,$ATYS

;sSET ITEM NUMBER AS ERROR NUMBER
; ;REPORT FATAL ERROR TO APT

JSR
.BYTE
.BYTE
BR
7STB

BNE

TST
BPL
HALT

000000

032777
001402
013716
005737
001402
013716

$ITEMS, IBSAVE
2177, 81 TEMB

MOVB

22%:

023756

155230

3%:

4%:

5%:

CPSAVE:

:
IBSAVE

1B:39:56 PAGE 2 9=-1

MOVB
MOV
BR

BNE

21%:

000

000777

4-APR-81

PC,TYPERR

.SCRLF

2%
$1TEMB,21%

0
0
22%
IBSAVE
3%
aSWR

CKSWR

BIT
BEQ

MOV
TST

BEQ
MOV
1578

2?1109.SSHR
$LPERR, (SP)
$ESCAPE

$ESCAPE, (SP)
IBSAVE

BNE

.WORD
.WORD

0
0

RTI

::SKIP TYPEOLT IF SET
" 3a3KIP TYPEQUTS
2:G0 TO USER ERROR ROUTINE

s sNO,SKIP APT ERROR REPORT

:JAPT ERROR LOOP

;.SEE 1F

IBSAVE IS LOADED

;:BRANCH IF NOT = NO HALT ON PWR MON BIT ERROR
;sHALT ON ERROR

;:SKIP IF

CONTINUE

;sHALT ON ERROR!
;s TEST FOR CHANGE IN SOF T-SWR
;:LO0P ON ERROR SWITCH SET?
;:BR IF NO
;:FUDGE RETURN FOR LOOPING
;:CHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE
;:FUDGE RETURN ADDRESS FOR ESCAPE

;;SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
. sBRANCH BACK TO CALL ORIGINAL ERROR
2 JRETURN

. sLOCATION TO SAVE (CPL " RROR REG CONTENTS
;.LOCATION TO SAVE Iltm BYTE

JHEMURD

FREOR

RMOS5/%/72 FORMAT TER

SANDLER ROUTINE

MACRO v04.00

18:39:56 PAGE

7
30

sTHIS ROUTINE USES THE °‘‘ITEM CONTROL BYTE'' (SITEMB) TC DETERMINE
sWHICH ERROR IS TO SBE REPORTED, IT THEN OBTAINS, FROM THE ‘ERROR
sTABLE'' (SERRTB), AND REPORTS THE APPROPIATE INFORMATION

s CONCERNING THE ERROR.

6 023760
7 023762
8 023764

9 023770

10 093774

14 023776

16 034004
17 024010
18 024012
19 024014

20 024016
51 024020
52 024092
5% 024024
5% 024030
55 024034
56 024036
57 024042
58 024044
59 024046
30 024052
31 024054
32 024060
33 024062
3% 024064
35 024066
36 024070
37 024072
38 024074
39 024076

20
47
42
43
44
45
46

4-APR-81

024100
024102
024106
024110
024112
024114
024116

024120

47 094122

48 024124

104412

005000
113700
122700

001006
013737
012700
000407
010001
005300
006300
006300
006300
062700
012037
001404
104401
104401

000000
012037
001404
104401
104401

000000
012001
001460
005005
012000
012002
001451
005105
104401
112003
112004

013146

50 024132
51 024134
52 024140
53 024142

001403

%4 024144

88 024146

56 024152

57 024156
38 024160

001130
000177

001214
024234

006460
024044

000764
005302
003431
104401
005760
001404
005105

CLR

BNE

#177 ,R0
1%

MOV

2%:
3%:

4%:

5%:

001205
6%:
7%:

001205

8%:
9%:

11%:

036621
12%:

001205
000002

$TESTN,PFTSTN

;SAVE RO=RS5

JCLEAR RO FOR ERROR NUMBER

;ERROR NUMBER
sSEE IF THIS ERROR CALI.
;BRANCH IF NOT

:
IS SPECIAL POWER FAIL

JGET TEST NUMBER
;MOVE POWER FAIL ERROR CALL

#PFECH,RO

ADD
MOV
BEQ
TYPE
TYPE
. WORD
MOV
BEQ
TYPE
TYPE
.WORD
MOV

#SERRTB,RO
(RO)+,4%

;FORM ADDRESS

.$CRLF

;"'CARRIAGE RETURN - LINE FEED

ASL

BEQ
CLR

BEQ
com
TYPE
MOvVB
MOvB
ROR
BCS
MOV

TYPOC

:
108

$1TEMB,RO

MOV
BR
MOV
DEC
ASL
ASL

MoV
MOV

104405
005303
104401

024374

001205

024062

SAVREG

MOVB
CMPB

1%:

006004
103403
013146
104402
000402

054154
054156

49 024130

TYPERR:

3%
RO,R1

(RO) +,6%
7%

.$CRLF

0
+ ,R1
(RO)
17%
RS
(RO)+,R0O
(RO) +,R2
16%
RS

.SCRLF

(RO)
+ ,R3
(RO)+ R4

R4
108

a(R1)+,-(SP)

MOV
TYPDS
DEC
BEQ
TYPE
BR
DEC
BLE
TYPE
TST
BEQ
(oM

a(R1)+,-(SP)

R3
128

LBLNKS2

9%
R2
17%
$CRLF

5(RO)

138
RS

TABLE

JAND COPY IT INTO R1
;FORM INDEX FOR ERROR TABLE

;GET ERROR MESSAGE

(EM) POINTER

;BR IF THERE ISN'T ONE

:"EM'' POINTER GOES HERE

;P1CK UP DATA HEADER (DH) POINTER
;BR IF NONE
s CARRIAGE RETURN-LINE FEED

:"DH'' POINTER GOES HERE

;PICKUP DATA TABLE (DT) POINTER
;BR IF NONE
;SET INDENT SWITCH
;DATA FORMAT (DF) POINTER

sNUMBER OF DH'S TO TYPE
;BR IF DH NUMBER IS 0
;NO INDENT

; CARRIAGE RETURN-LINE FEED
;NUMBER OF DATA WORDS TO TYPE
;AND HOW TO TYPE THEM
;OCTAL OR DECIMAL?
;DECIMAL

;:SAVE a(R1)+ FOR TYPEOUT
;G0 TYPE--OCTAL ASCII(ALL DIGITS)
;:SAVE @{(R1)+ FOR TYPEOQUT
;:GO TYPE--DECIMAL ASCII WITH SIGN
:MgRE NUMBERS TO TYPE?
;N

;TYPE 2 SPACES
;LOOP

;MORE DH'S?

;NO
;YES=-START A NEW LINE

;ONLY.A "DH" IN THIS REQUEST ?

:BR IF

YES = BYPASS THE

s INDENT?

INDENT

TO RO

CALL

CZRMLBC RMOS/3/2 FORMATTER

MACRD v04.00

ERROR HANDLER ROUT INE

59 024162

60 024164
61 0264170

001002

104401
012037

62 024174
63 024176
64 024200

104601
(000000
00571C

56 0264204

062700

69 0264216

(CS705

65 024202

67 0264210
68 024¢12

001003

000754
104401

70 024220

001352

72 0264226
73 026230
76 024232

75 024234

000727
104413
000207
024244

;g 024326

124

79 024360

024374

71 024222

76 024244

80
81
82
83

024370
024372
024373
024374

104401

120

000001
003
000
(C00000

4-APR-B1

BNE

(36621
024176

13%:
14%:

001205

15%:

036621

16%:

024326

024360

105

123

127

(23754

13%

TST

ADD

#4 ,RO

TST

TYPE

JBLNKS?2

BNE

;NO

BLNKS2
(RO)+,14%

O
(RO)

B8R
TYPE

30-1

15%

JTYPE 2 SPACES
JGET NEXT DH

:AND TYPE IT
:DH POINTER GOES HERE

12%
LSCRLF

;TYPE A 'DT*

:BR IF A 'DT'

s INCREMENT THE

°'DF' POINTER

JSEE IF END OF °'DF' BLN(K
;CARRIAGE RETURN=L
INE FEED
s INDENT?

:NO

;TYPE 2 SPACES

PFECH:

BR
8%
;LOOP
RESREG
;RESTORE RO=-RS
RTS
PC
;RETURN
PFECH1,PFECH2,PFECH3,PFECH4 ;WORDS DEF INING TABLES BELOW

PFE(H2:

.éegél

17%:

001132

TYPE
.WORD

BNE

000004

117

TYPE
MOV

1B:39:56 PAGE

PFECH1:

.ASCIZ

PFECH3: .WORD
PFECH4:
PFTSTN:

.WORD
BYE
AYTE
.WORD

?POWER MONITOR BIT

?TESTNO

ERR PC

IN CPU ERROR REGISTER FOUND SET?

(PUERREG?

PFTSTN,SERRPC,CPSAVE,0
1
3
O
O

;NUMBER OF DATA HEADERS
;NUMBER OF WORDS IN DATA TABLE
JALL 3 NUMBERS ARE OCTAL
;CONTAINS TEST NUMBER FOR PF BIT ERROR

“JRMLBO RM05/3/2 FORMATTER
TTYy INPUT ROUTINE

MACRU v04.00

4-~R-B1

JSBTTL

N 7
1B:39:56 PAGE 31

TTY INPUT ROUTINE

:.‘...‘....."".".'.'."'...'t."."..'...'..'..."..........."

024376
024400
0264402
024404

.ENABL

000000
000000
000000

LSB

$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.

024413

0
O
O
7

- sNUMBER OF ITEMS IN QUEUE
;2 INPUT POINTER
;;OUTPUT POINTER
22 TTY KEYBOARD QUEUE

.EVEN

;«TK INITIALIZE ROUTINE
;*THIS ROUTINE WILL INITIALIZE

;*SETUP THE

;xCALL:

Sl
8

C24414
024420
024426
024434
024442
024450
024454
024462

005037
012737
013737
012737
012737
(€05777
012777
000207

024376
024404
024400
024464
000200
154506
000100

024400
024402
000060
000062

154476

JSR

RETURN

$TKINT: CLR
MoV
MOV
MOV
MOV
TST
MOV
RTS
;*TK

THE TTY KEYBOARD INPUT QUEUE
INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

SERVICE

PC,$TKINT
$TKCNT
#STKQSRT,$TKQIN
$TKQIN,$TKQOUT
#STKSRV,@#TKVEC
#200,9#TKVEC+2
a$TkB
#100,%TKS
PC

;;CLEAR COUNT OF ITEMS IN QUEUE
;:MOVE THE STARTING ADDRESS OF THE
;;QUEUE INTO THE INPUT & OUTPUT POINTERS.
;;INITIALIZE THE KEYBOARD VECTOR
;;'BR'' LEVEL 4
;:CLEAR DONE FLAG
;;ENABLE TTY KEYBOARD INTERRUPT
;2RETURN TO CALLER

ROUTINE

**THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;*]IT IN THE QUEUE.

;*IF THE CHARACTER IS A "'CONTROL=C'' (*C) $TKINT IS CALLED AND
:*UPON RETURN EXIT IS MADE TO THE ''CONTROL=-C'' RESTART ADDRESS (@CNTLC)
024464
024470

117746
042716

024500
024502
024504
24506
024506
024512.
024514
024520
024524
024526
024532

001002
005726
000002

024474

021627

154472
177600

$TKSRV: MOVB
BIC

000021

;:PICKUP THE CHARACTER
;:STRIP THE JUNK

BNE
ST
RTI

30%
(SP)+

;;BRANCH IF NO
;sCLEAN RANDOM XON OFF
; ;RETURN

CMP
BNE
TYPE
JSR
ST
JMP
CMP
BNE
CMP
BEG

(SP) ,#3
1%
LSCNTLC
PC,$TKINT
(SP)+
alNTLC
(SP) &7
2%
#SWREG, SWR
6%

015 17 A CONTROL C?
:BRANCH IF NO
;2TYPE A CONTROL=-C (*C)
;s INIT THE KEYBOARD
;:CLEAN UP STACK
;sCONTROL C RESTART
;21S IT A CONTROL G?
; ;BRANCH IF NO
:
::1S SOFT=SWR SELECTED?
;G0 TO SWR CHANGE

cMP
BNE
TYPE

#7 ,$TKCNT
3%
JIBELL

::1S THE QUEUE FULL?
;:BRANCH IF NO
J:RING THE TTY BELL

CMP

30%:

000003

024536
024540
024546

021627
001007
104401
004737
005726
000177
021627
001004
022737
001500

000176

001154

024550
024550
024556
024560

022737
001004
104407

000007

024376

025621
024414
154640
000007

001200

Q$TKB,-(SP)
#2C177,(SP)

1%:

2%:

(SP) ,#3X0ON

;:IS IT A RANDOM XON?

STACK

JRMLEBO RMOS/2/2 FORMATTER
Ty [INPUT ROUTINE
024564

0264566
0264570
0264574
024576
024602

024604

105777

154350

024616

042716

024630

024636
024640
024644
0264650

024652

!
|
;
g

000023

005077
005726

024656
024660
024664
024670

024674

024702

0247046

024712

117746

022627
001366

012777

000002
005237
021627
002405

021627

003002
042716
112677
005237

023727
001003

C12737
000002

4-APR-B1

154356

31%:

154344

177600

000021

;sCLEAN CHARACTER CFF OF STACK

(LR
TST

asTks
(SP)+

..DISABL;. TTY KEYBOARD INTERRUPTS
:;CLEAN CHAR OFF STACK

BPL

000100

154322

024376
000140

S$
(SP) ,#23
32%

1STR

32%:

MOVR

a$TKB,=(SP)

(MP
BNE

(SP)+,#21
31%

#2177, (5P)
#100,38TKS

RTI
INC
(MP
BLT

cMP

4%:

024400

024413

024404

024400

CMP

;WAIT FOR A CHAR

;3L00P UNTIL ITS THERE

;:GET THE CHARACTER

::MAKE IT 7-BIT ASCII
::1S IT A CONTROL=Q?
;sBRANCH IF NO

:REENABLE TTY KEYBOARD INTERRUPTS

$TKCNT
(SP) ,#140
A 1

;RETURN
;sCOUNT THIS CHARACTER
;21S 1T UPPER CASE?
. sBRANCH IF YES

43
#40, (SP)
(SP)+ ,a$TKQIN
$TKQIN

;;BRANCH IF YES
;sMAKE IT UPPER CASE
;:AND PUT IT IN QUEUE
::UPDATE THE POINTER

(SP) 4175

BGT
BIC
MOVB
INC

::1S 1T A SPECIAL (HAR?

$TKQIN,#$TKQEND ;;GO OFF THE END?

BNE
5%:

SIEXIT
:21S IT A CONTROL=S?
SBRANCH IF NO

STKS

MOV

000175
000040
177510
024400

B8R
cMP
BNE

BIC

B 8
18:39:56 PAGE 31-1
(SP)+

1ST

000451
021627
001021
100375

02464622
0264626

005726

024610

0264612

MACRC v04.00

MOV

:2BRANCH IF NO

#STKQSRT,$TKQIN ;;RESET THE POINTER

RTI

:;RETURN

hd .fi'i'*.Q"‘!t"Q'tt'"i"'t'ttt"*.l.fifi.'.."""'.Q""".'t"

1*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE IS ENTERED
FROM THE TRAP HANDLER, AND WILL

024714
024722
024724
024730

022737
001124
105777
100121

000176

024736
024742
024746

042716
021627
001300

177600
000007

024732

117746

001154

154230

154224

:*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
$CKSWR: CMP
#SWRcG, SWR
;:1S THE SOFT-SWR SELECTED
BNE
15%
;:EXIT IF NOT
1STB
a$TkS
::1S A CHAR WAITING?
BPL
15%
;.
IF NOT, EXIT

MOvVB

@$TKkB,~(SP)

BIC
CMP
BNE
TR

AR AR A

:=CONTROL

#*C177,(SP)
(SP) 47
2%
A

A A

R R

001150

024760
024762
024766
024772

123727
001674
005726
004737
005077
112737

025000
025004
025010
025014

104401
104401
013746
104402

025633
025640
0C.176

024414
154166
000001

000001

001151

J:MAKE IT
7-BIT ASCII
;215 IT A CONTROL=-G?
::A;DNgliTPUT IT IN THE TTY QUEUE

RN A A A AR AT AR

AN AR AR A AR AR

IS PASSED TO THIS POINT FROM EITHER THE

;*ROUTINE OR FROM THE

024750
024756

sYES

SOF TWARE

SWITCH REGISTER

AR A AR AR AR AR R

TTY

INTERRUPT SERVICE

TRAP CALL,

AS A RESULT

:*CONTROL=-G BEING TYPED, AND THE SOFTHARE SWITCH REGISTER BEING SELECTED.

6$:

CMPB
BEQ
TST
JSR
CLR
MOVB

TYPE
$GTSWR: TYPE
Mov
TYPOC

SAUTOB, #1
2%

(SP) +
PC,S$TKINT
a$TKS
#1,8INTAG

;ARE WE RUNNING IN AUTO-MODE?
..BRANCH IF YES
;;CLEAR CONTROL-G OFF STACK
;sFLUSH THE TTY INPUT QUEUE
;sDISABLE TTY KEYBOARD INTERRUPTS
;sSET INTERRUPT MODE INDICATOR

LSCNTLG
. SMSWR
SWREG,=(5P)
;

;;ECHO THE CONTROL-G (*G)
;:TYPE CURRENT CONTENTS
;sSAVE SWREG FOR TYPEQUT
;:G0 TYPE--OCTAL ASCII(ALL DIGITS)

JRMLBO RM(OS/3/2 FORMATTER
v
INPUT ROUT INE

025016

025022
025024
025026
025032

104401

025651

105777
100375

154126

005046
005046

MACRD v04.00

19%:

7%:

4-APR-BT
TYPE

(

1B:33:56 PAGE

JIMNEW

31-2
2:PROMPT

FOR NEW SWR

(LR
CLR
TSTB
BPL

-(SP)
-(SP)

;:CLEAR COUNTER
;s THE NEW SWR
;sCHAR THERE?®
;s1F NOT TRY AGAIN

a%TKsS

025040

042716

117746

154122
177600

MOVB
BIC

A$TKR, = (SP)

:;PICK UP CHAR

025044
025050

021627
001015

000003

CMP
BNE

(SP) 43
9%

;:1S IT A CONTROL=C?

BNE

#6,SP
#1
$INTAG,
8%

025034

104401

062706

123727

001003
012777
000177

021627
001005
104401

062706
000737
021627
001022

005766
001403
016677
062706
104401
123727

001003
012777
- 000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
025242 056616
025246 000667
025250 104401
025254 000720

025621
000006
001151

000001

000120

154060

154266

TYPE
ADD
CMPR

8%:

000025

9%:

025626
000006

20%:

000015

10%:

000004

000001

000100

153764

#100,3%TKS
aCNTLC

CMP
BNE
TYPE
ADD
BR

(SP) 425
108

CMP
BNE

BNE

MOV
RTI
JSR
{MP

026074
000060

BLT
MP
BGT
BIC

000067

000060
000002

000002
177776

17%:

TST
BEQ
ASL
ASL
ASL
INC

001204

18%:

TYPE

.DSABL

LBONTLC

MOV
JMP

TST
BEQ
MOV
ADD
TYPE
CMPB

154006

000002
000006
001205
001151

B C177.(SP)

BIS
BR

BR
LSB

LSCNTLU

#6,SP

19%

(SP) ,#15
16%

4(SP)

11%

2(SP) ,aSwR
#6,SP
. SCRLF

#1
$INTAG,
15%
#100,a8TKS
PC,STYPEC

(SP) ,#60

#60, (SP)+
2(SP)
17%
(SP)
(SP)
(SP)

JJMAKE IT 7=-BIT ASCII
s ;BRANCH IF NOT
2YES, ECHO CONTROL=C
;s CLEAN UP STACK

;;REENABLE TTY KEYBOARD INTERRUPTS?
; :BRANCH IF NO
;sALLOW TTY KEYBOARD INTERRUPTS
;s CONTROL=C RESTART
;1S IT A CONTROL=-U?
: sBRANCH

[F NOT

;.YES, ECHO CONTROL=-U (*U)
;s IGNORE PREVIOUS INPUT

;:LET'S TRY IT AGAIN

;218 IT A <CR>?
:;BRANCH IF NO
;2YES, IS IT THE FIRST (CHAR?
;;BRANCH IF YES
;:SAVE NEW SWR
;;CLEAR UP STACK
;sECHC <CR> AND <LF>

;;RE-ENABLE TTY KBD INTERRUPTS?
;JBRANCH IF NOT
;;RE-ENABLE TTY KBD INTERRUPTS

; ;RETURN

;:ECHC CHAR

::CHAR < 0?
;sBRANCH [F YES
;.CHAR > 77

;;BRANCH IF YES

J:STRIP-0OFF ASCII

;:1S THIS THE FIRST (CHAR
;sBRANCH IF YES
;:NO, SHIFT PRESENT
CHAR OVER TO MAKE
5
ROOM FOR NEW ONE.
>3

. ;KEEP COUNT OF (HAR
;2:SET IN NEW CHAR
;sGET THE NEXT ONE

20%

;s SIMULATE CONTROL=-U

2(SP)
=2(SP), (SP)

L SQUES

(*()

;s TYPE

?2<CR><LF>

:;Q.'itit'tfi'.""'t""i‘"t'.'Qfi"t'fi.'..'.".'.t'tt""t't"t'

BU 8MOS/3/2 FORMATTER
T
R(CUI
~UU TINE

MACRO v04.00

4-APR-B1

18:39:56 PAGE

31-3

;+THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

s*CALL:
- "

- %

RDCHR
RETURN HERE

ssGET A (HARACTER FROM THE QUEUE
;sCHARACTER IS ON THE STA(K
;:WITH PARITY BIT

- "

025256

011646
016666
005066
005046
012746
000002

005737
001775
005337

117766
005237

025344

023727
001003
012737

000002

000004
000004

000002

025302

177062

TST

$TKCNT

RTI

024376
024376

MOV

(SP) ,=(SP)
4(SP) ,2(SP)
4(5P)
={SP)
#64% ,-(SP)

$RD(HR: MOV
MoV
CLR
CLR

BEQ
DEC
MOVB
iNC
CMP
BNE

000G04

024402
024402

024413

024404

024402

25:
AR

MOV
RTI

AR AR R AT AR

#STKQSRT,$TKQOUT

104401

005016
122713
001003

$RDLIN: MOV
CLR
1%:
MOV
2%:
CMP

025602
025621

000177

000134
025600

10%:

025600

177777

6%:

025602

025600
025600
5%:

000134
025600

000025

025600

a{SH)
H#STTYIN,R3

MOvB
CMPB
BNE

(SP)+, (R3)
#177,(R3)
5%

TST
BNE
MovB
TYPE
MoV

(SP)
6%
#'\,9%
9%
#=1,(SP)

TYPE
BR

9%
2%

TST

BEQ

MOVB
TYPE

7%:

R3,-(SP)

#STTYIN+15.
,R3
4%

DEC
(MP
BLO
MOVB

CLR
CMPB
BNE

;JWAIT ON A CHARACTER

;;RESET

; ;RETURN

THE POINTER

INPUT A STRING FROM THE

BLOS

RDCHR

;sGET READY FOR A (CHARACTER
;sPUT NEW PS ON_STACK
;¢PUT NEW PC ON STACK
;;POP NEW PC AND PS

AN AAN AR AR AR AAAA A AR AR AR AAAAARAAAAAAA AR AR AR

.‘t

010346
005046
012703
022703
101456
104410
112613
122713
001022
005716
001007
112737
104401
012716
005303
020327
103434
111337
104401
000746
005716
001406
112737

:sPUSH DOWN THE PC AND

ssTHE PS

1%
$TKCNT
; ;DECREMENT THE COUNTER
4
(SP)
@$TKQAOUT,
;:GET ONE CHARACTER
$TKQOUT
; ;UPDATE THE POINTER
$TKQOUT ,#$TKQEND ;;DID IT GO OFF OF THE END?
2%
;JBRANCH IF NO

$*THIS ROUTINE WILL
s *CALL:
:t
RDLIN
:t
RETURN HERE

025346
025350
025352
025356
025362
025364
025366
025370
025374
025376
025400
025402
025410
025414
025420
025422
025426
025430
025434
025440
025442
025444
025446
025454
025460
025462
025466

STRIPPED OFF

TTY

;:INPUT A STRING FROM THE TTY
; ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STA(K
:; TERMINATOR WILL BE A BYTE OF ALL 0°'S

;;SAVE R3

;:CLEAR THE RUBOUT KEY
;:GET ADDRESS
;BUFFER FULL?
;:BR IF YES
2:G0 READ ONE CHARACTER FROM THE TTY
::GET CHARACTER
;1S IT A RUBOUT
BR IF NO

..IS THIS THE FIRST RUBOUT?
;:BR IF NO

;:TYPE A BACK SLASH
;:SET THE RUBOUT KEY

; ;BACKUP BY ONE
;:STACK EMPTY?
J:BR IF YES
;:SETUP TO TYPEOUT THE DELETED (HAR.
;:GO TYPE
;G0 READ ANOTHER (HAR.
::RUBOUT KEY SET?
;:BR IF NO

(SP)
#25,(R3)
8%

;sCLEAR THE RUBOUT KEY
;:1S CHARACTER A CTRL U?
.:BR IF NO

R3
R3,#STTYIN
4%
(R3),9%
(SP)

#'\,9%
.9%

;:TYPE A BACK SLASH

MACRO v04.00

JRM_BO RMOS/3/2 FORMATTER
TTy INPUT ROUTINE
104401

025626

122713
001011
105013

000022

000726

TYPE

8%:

BR
(MPB
BNE
(LRB

104401
104401

001205
025602

104401

001204

4%:

111337
104401
122723

025600
025600
000015

3%:

104401

177777
001206

TYPE
(MPB
BNE
CLRB
TYPE

000004
025602

MOV
MOV
MOV
MOV

001305
105063

005726
012603
011646
016666
012766
000002
000
000
136
136

136

015
040

TYPE
TYPE

TYPE

MOvB

TST

000002
000004
9%:
~b =4O
b\
b e
[0
WNRV
LV, IV, |

000712

ONINWVW

000717

oo-—l—l—l
HL20MN0

025470
025474
025476
825502
(25504
025506
025512
025516
025520
025524
025526
025532
025536
025542
025544
025550
025554
025556
025560
(25562
025570
025576
025600
025601
025602
025621
025626
025633
025640
0256571

4-APR-B1

$TTYIN:
$CNTLC:
$CNTLU:
$CNTLG:
$MSWR:
$VNEW:

RTI

BYTE
.BLKB
LASCIZ
.ASCIZ
LASCIZ
LASCIZ
ASCIZ

E
18:39:56 PAGE

LJBONTLU

8
31-4
;:TYPE

A (ONTROL

‘U

;sTYPE

THE

STRING

. 2G0 START OVER
2315 CHARACTER A '"TMR'"?
;sBRANCH IF NO
;sCLEAR THE CHARAC(CTER

1%
#22,(R3%)

(R3)

JSCRLF
LSTTYIN

:sTYPE A

;3CLEAR THE BUFFER AND LOOP
. ECHO THE CHARACTER

#15,(R3)+

=1(R3)
LSLF
+
(SP)

(SP)+ ,R3

(SP) ,=(SP)
4L(SP) ,2(SP)

#STTYIN,L(SP)

0
0]
15.
/2C/<15><12>
72U/<15><12>

;:CHECK FOR RETURN
;:LO0OP IF NOT RETURN
;sCLEAR RETURN (THE 15)
;:TYPE A LINE FEED
:;CLEAN RUBOUT KEY FROM THE STACK
:;RESTORE R3
;;ADJUST THE STACK AND PUT ADDRESS OF
22

FIRST ASCI]

; sRETURN

NEW =

CHARACTER ON

;:STORAGE FOR ASCI] CHAR. TO TYPE
;:TERMINATOR
;;RESERVE 15. BYTES FOR TTY INPUT
2+CONTROL 'C°°

;;CONTROL 'V’

/%G/<15><12>
/:.‘CONTROL .
<15><12>/SWR =
/

INPUT

~ 2:G0 PICKUP ANOTHER CHACTER

2%
LSQUES
1%
(R3),9%
,9%

THE

EORMAT
S

MATRO

vU6.00

L-APR-E1

LSBTTL

TYPE

F
18:3G:56 PAGE

8
3¢

ROUTINE

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

s*ROUTINE

TO TYPE ASCIZ MESSAGE. MESSAGE MUST

TERMINATE WiTH A O BYTE,

;*THE ROUTINE WILL INSERT A NUMBER OF NULL C(HARACTERS AFTER A L INE FEED.
:*NOTE1:

SNULL

:«NOTE3:

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

;*NOTE2:

CONTAINS THE C(HARACTER TO BE USED AS THE FILLER (HARA(TER,

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

s*CALL:
-1) USING A TRAP
OR

Ta
*

TYPE

INSTRUCTION

MESADR

;JMESADR

IS FIRST

ADDRESS COF

S$TPFLG

;:1S THERE A TERMINAL?

AN ASCIZ

STRING

TYPE

ME SADR

025662
025666
625670
025672
025674
025676
025702
025710

025712

025720
025722
025726
025732
025734
025742
025744
025746
025750
025752
025754
025760
025762
025766
025770
025774
025776
026000
026002
026004
026010
026012
026016
026022
026024

026030
026034
026036
026042
026046

105737
100002

000000
000430
010046
017600
122737
001071
132737
001405
010037

004737
000000
132737
001003

122716

001430
122716
001006
005726

1%:

000002
000001

001230

000100

001231

025732
027512

000040

001231

61%:

62%:
2%:

000002

000011

105037
000755

004737
013746

001170

105366

0000061

105337

026074
026212

002770
004737
000770

NO TERMINAL

;;APT CONSOLE SUPPRESSED

BNE

TST

ADD

BEQ
(NP

al(SP) RO
#APTENV ,$ENV
62%
#APTSPOOL ,$ENVM
62%
RO,61%

;.GET ADDRESS OF ASCIZ STRING
. ;RUNNING IN APT MODE
;2NO,GO CHECK FOR APT CONSOLE
; ;SPOOL MESSAGE TO APT
;:NO,GO CHECK FOR CONSOLE
:sSETUP MESSAGE ADDRESS FOR APT
;:SPOOL MESSAGE TO APT
; sMESSAGE ADDRESS

;:YES,SKIP TYPE 0QUT
;sPUSH CHARACTER TO BE TYPED ONTO STACK
;:BR IF IT ISN'T THE TERMINATCR

(SP)+,R0O

;sRESTORE RO

AHT , (SP)

; :RETURN
;;BRANCH IF

(SP)+

#2,(SP)

8%
#CRLF, (SP)

:21F

TERMINATOR POP

IT OFF

THE

<HT>

:
:;BRANCH IF NOT <CRLF>
;:POP

(LRB
BR
JSR
CMPB
BNE

$CHARCNT
2%
PC,$TYPEC
$FILLC,(SP)+
2%

::CLEAR CHARACTER COUNT
;:GET NEXT CHARACTER
;G0 TYPE THIS CHARACTER
;21S IT TIME FOR FILLER (HARS.?
;21F NO GO GET NEXT CHAR.

DECR

1(SP)

MOV

$NULL ,-(SP)

BLT

(3 3

B8R

JSR
DECR

PC,8TYPEL
$CHARCNT

STAC(K

;;ADJUST RETURN PC

{SP)+

TYPE
$CRLF

7%:

PC,3ATY3
O
RAPTCSUP,SENVM
60%
(RO) +,=(SP)

BNE

5%:
6%

;s LEAVE

JSR
.WORD
BITR
BIE
MOVR

1ST

026074
001172

YES

;sHALT HERE

;s SAVE RO

4%:

026212

;:BR IF

RO,=(SP)

MOV
CMPB
BNE
BITR
BEQ
MOV

RTI
CMPR

3%:

MOV

000200

123726

001350

60%:

104401

001205

1STB

BPL

HALT

112046

001005
005726
012600
062716
000002

$TYPE

001173

J2TYPE

<CR><LF> EQUIV

A (R AND LF

..GET # OF FILLER CHARS. NEEDED

;: THE NULL CHAR.

;DOES A NULL NEED TO BE

TYPED?

BR IF NO--GO POP THE NULL OFF OF STAlk

..GO TYPE A NULL
::D0 NOT COUNT AS A COUNT

2:L00P

B
JRML

TePE

RMOS /372

ROUTINE

FORMATTER

MACRO

;HORIZONTAL
112716

004737
132737

001372
005726
000724
026100
026102
026106

026112

026116
026120
026120

026124
026126
026132
026136
026142
026144
026144

026146
026146

026152
026154
026162

026170
026172
026176
026200
026206
026210
026212
026214

105777
100022

017746
042716

000040
026074
000007

105777
100375
117716

153034

122716

001366

$TYPEC:

101%:

153030
177600

000021

102%:

005726
105777

100375
116677

000002
000015

105037

026212

122766
001402
105227

000012

000406

000000
000207

10%:

153012

122766

001003

9%:

153054
177600

000023

042716

0Oce2ic

153060

122716

001012

8%:

153004
000002

TAB PROCESSOR

MOVB
JSR
B8iT8
BNE
TST
BR

1518
8PL
MOV

BIC
(MPS
BNE

1%:

,(SP)

#7 ,$(HARCNT
9%

(SP)+

JJREPLACE TAB WITH SPA(E
;:TYPE A SPACE
. sBRANCH IF NOT AT
;. TAB STOP
;;POP SPACE OFF STA(K
;sGET NEXT (CHARACTER

a$TKS
108
B
= (SP)
a$Tk
#177600, (SP)

;sCHAR IN KYBD BUFFER?
;:BR IF NOT
;:GET CHAR

#SXOF
, (SP)
F
102%

. sWAS CHAR XOFF
;:BR IF NOT

asTKS

;;WAIT FOR (CHAR

A$TKB, (SP)

;:GET (HAR

;;STRIP EXTRANEOUS BITS

TST8B
BPL
MOVB
BIC
(MPB
BNE

#177600, (SP)
#$XON, (SP)

101$

;sWAS IT XON?
;:BR [F NOT

IST

(SP)+

;sFIX STACK

T1STR
BPL
MOVB
CMPB
BNE

a$TPS

CLRB

000002

PC,STYPEC

BR
CMPB

BEQ
INCB

$CHARCNT
: . WORD
$TYPEX: RTS

1018

108

;

2(SP) ,a$1PB

#(R,2(SP)

1%
$CHARCNT
$TYPEX

ALF ,2(SP)

$TYPEX
(P()»

3:STRIP 17

;:WAIT UNTIL PRINTER IS RFADY
;;LOAD CHAR TO BE TYPED INTOD DATA REG.
;:1S CHARACTER A CARRIAGE RETURN?
. ;BRANCH IF NO
::gE?;-CLEAR CHARACTER COUNT

;:IS CHARACTER A LINE FEED?

:BRANCH IF

YES

;s COUNT THE CHARACTER
;s CHARACTER COUNT

STORAGE

A
T TER
JRM G RMOS/3 ORM
(ASCIT)
AND
HINARY TO CCTA|

TVPE

MACRO v04.00

L-APR-B1

SBTTL

18:39:56 PAGE

BINARY TO OCTAL

(ASCII)

AND TYPE

..Q.....Q.Q‘.'.'...."'..Q'.'..Q.'.lQ.....'..'t.'..."..."l.lt

'THIS ROUTINE

IS USED

TO (HANGE

16=BIT BINARY NUMBER

T0 A 6=DiGI7

:+0CTAL (ASCII) NUMBER AND TYPE [T,
:*$TYPOS=--~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TPt
c*CALL:

MOV

,
= (SP)
NUM

BYTE

N
M

TYPOS

.BYTE

;s sNUMBER TO BE TYPED
;:CALL FOR TYPEOUT
J3N=1 Y0 6 FOR NUMBER OF DIGITS TO TYPE
JiM=1 OR 0
;:1=TYPE LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

:*$TYPON=--=-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC

SwCALL:
.

MoV
TYPON

= (SP)
NUM,

;sNUMBER TO BE TYPED

;.CALL

FOR TYPEOUT

L*$TYPOC---ENTFX HCRE FOR TYPEOUT OF A 16 BIT NUMBER

s *CALL:
. %

026216
026222
026230
026234
026240

026242

026250
026256
026264
026266
026270
026272
026276

026300
026304
026310
026314
026320
026322
026324
026326
026330
026332
026334
026336
026340
026344
026346
026352

026354
026356
026360

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
026443
000002

000001
000006
000005

026441

026443
026440

$TYPOS:

MOV
TYPGC

- (SP)
NUM,

;:NUMBER TO BE TYPED
;:CALL FOR TYPEOUT

MoV
MOVB

@ (SP) ,=(SP)
1(SP) ,$0F ILL
(SP) +,$0OMODE
+1
#2,(SP)
$TYPON

;;PICKUP THE MODE
:sLOAD ZERO FILL SWITCH
;sNUMBER OF DIGITS TO TYPE

MOVB
ADD
BR

$TYPOC: MOVB

026443

MOVB
MOVB
MOV
MOV
MOV
MOVB

000006
0264472
0266441
000012

MOVB
MOVB
MOV

026442

$TYPON:

NEG
ADD

(LR

1$:

ROL

2%:

ROL

3%:

177770

ROL
ROL
MOV
ROL
DECBR
BPL
BIC

BNE
1ST

4%:

. BEQ

INC

#1,80FILL
#6,$0MOD+1
E

#5,80CNT
R3,-(SP)
R4 ,=(SP)
R3,=(SP)
$OMODE +1,R4
R4
#6,R4
R4 , $OMODE
R4
$OFILL
12(SP) ,R5
R3
RS

RS
R5
RS

RS,R3

R3
$OMODE
7$
#177770,R3
4%
R4

2 ;ADJUST RETURN ADDRESS

;;SET THE ZERO FILL SWITCH
;:SET FOR SIX(6) DIGITS
;;SET THE ITERATION COUNT
::SAVE R3
;:SAVE R4

;:SAVE R5

;sGET THE NUMBER OF DIGITS TO TYPE
2 sSUBTRACT IT FOR MAX.
:;:SAVE IT FOR USE

ALLOWED

;:GET THE ZERO FILL SWITCH
;sPICKUP THE INPUT NUMBER
;;CLEAR THE OUTPUT WORD

;sROTATE MSB INTO 'C'*

;:G0 DO MSB

::FORM THIS DIGIT

;.GET LSB OF THIS DIGIT

;s TYPE THMIS DIGIT?
"BR IF NO

;GET RID OF

JUNK

..TEST FOR 0
;s SUPPRESS THIS 0?
;:BR IF YES
;:DON'T SUPPRESS ANYMORE 0'S

052703
052703
110337

104401
105337

003347
002402
005204
000744
012605
012604
012603
016666

012616
000002
000
000
000
000
000000

4=APR=8"

TYPE

000060
C00C&0

5%:

026436
026436
026440

7%:

6%:

000002

000004
8%:

8IS
BIS
MOV
TYPE

DECB
BGT
BLT
INC
BR
MOV
MOV
MOV
MOV
MOV
RTI

‘BYTE
$OCNT:
‘BYTE
$OFILL: ‘BYTE
: -WORD
$OMODE

»
1
1B:35:5¢ PAGE

8
331

#'C
. R3
&'
_R3

JsMAKE

R3,8%

,8%
$OCNT
2%
6%
R&

2%
(57)+,RS

(SP)+ R4
(SP)+,R3

2(SP) ,4(SP)
(SP)+,(SP)

OO0

JHM
0 BMOS/3/2 FORMATTER
BINARY 7O OCTAL (ASCII) AND

THIS DIGIT ASCII

ssMAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING
22G0 TYPE THIS DIGIT
;s COUNT BY 1
;:BR IF MORE TO DO
:3BR IF DONE

;s INSURE LAST DlGX; ISN'T A B ANK
;:GO DO THE LAST DIGIT
;:RESTORE RS
;JRESTORE R4
:2RESTORE R3
;sSET THE STACK FOR RETURNING
s sRETURN

;:STORAGE FOR ASCII DIGIT
;s TERMINATOR FOR

;;OCTAL DIGIT

TYPE

COUNTER

;sZ2ERO FILL SWITCH
JJNUMBER OF

ROUTINE

DIGITS TO TYPE

3/2

<INARY

FORMATTER

DECIMAL

AND

MACRD v064.00

TYPE

ROUTINE

4-APR-B81

.SBTTL

J
1B:39:56 PAGE

8
34

CONVERT BINARY TO DECIMAL

AND TYPE ROUTINE

::'t"t't't"i'tt.tl"'.."Q.QQ."t."'t"!tt"'."".'tt..!Q'."

;*THIS ROUTINE

IS USED

TO CHANGE

16=-BIT BINARY NUMBER

TO A S=DIGIT

;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER TKE
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED

-'BEFORE

THE FIRST DIGIT OF

?EPLACED WITH SPACES.

SaCALL

;&%

026444
026444
026446

(010046
0710146

026452

010346

026450

010246

026454
026456
026462
026466
026470

010546
012746
016605
100004
005405

026500
026502
026506
026512
026514
026520
026522
026524
026526
026530
026532
026534

005000
012703
112723
005002
016001
160105
002402
005202
00G774
060105
005702
001002

026472

026536
026540
026542
026544
026546
026554
026560
026564
026566
026570
026574
026576

026600

026602
026604
026606
026610
026616
026620
026622
026624
026626

$TYPDS:

112766

105716
100407
106316
103003
116663
052702
052702
110223
005720
020027
002746
003002

000055

C€00001

026660
000040

1%:

2%:

026650

7%:

4%:

5%:
000001
000060
000040

177777

6% :
783

000010

010502

000764
105726
100003
116663
105013
012605
012603
012602
012601

177777

177776

ALWAYS BF

NUM,-(SP)

.sPUT THE BINARY NUMBER ON THE
.:G0 TO THE ROUTINE

MOV
MOV

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

;2PUSH RO ON STACK
;:PUSH R1 ON STACK

MOV -

R3,-(SP)

;:PUSH R3 ON STACK

R2.,=(SP)

MoV
MOV
MOV
BPL
NEG

R5,=(SP)
#20200,=(SP}
20(SP) ,RS
1%
RS

CLR
MOV
MOVB
CLR
MOV
SuB
BLT
INC
BR
ADD
151
BNE

RO
#3DBLK ,R3
#' ,(R3)+
R2
$DTBL (RO) ,R1
R1,R5
4%
R2
3%
R1,RS
R2
5%

MOVB

1STR
BM]
ASLB
B(C
MOVB
BIS
BIS
MOovB
18T
CMP
BLT
BGT

MOV
8%:

LEADING ZEROS WILL

MOV
TYPDS

MOV
020200
000020

THE NUMBER.

BR
1STR
BPL
MOVB
(LRB
MOV
MOV
MOV
MOV

#'=-,1(SP)

STA(K

;:PUSH R2 ON STACK

;sPUSH RS ON STACK
;2SET BLANK SWITCH AND SIGN
;2GET THE INPUT NUMBER
;:BR IF INPUT IS POS.
s JMAKE THE BINARY NUMBER POS.

;sMAKE THE ASCII NUMBER NEG.

;. JERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
;2SET THE FIRST CHARACTER TO A BLANK
;sCLEAR THE BCD NUMBER
;2GET THE CONSTANT
;:FORM THIS BCD DIGIT
;:BR IF DONE
;s INCREASE THE BCD DIGIT BY 1

(SP)
7%
(SP)
6%
1(SP) ,=1(R3)
#'0,R2
&' ,RC
R2,(R3)+
(RO) +
RO,#10
2%
8%

;:ADD BACK THE CONSTANT
;. CHECK IF BCD DIGIT=0
::FALL THROUGH IF 0
;:STILL DOING LEADING 0°'S?
;;BR IF YES
s :MSD?
;:BR IF NO
;:YES=-SET THE SIGN
;.MAKE THE BCD DIGIT ASCII
JiMAKE IT A SPACE IF NOT ALREADY A DIGIT
;:PUT THIS CHARACTER IN THE OUTPUT BUFFER
;2 JUST INCREMENT
ING
:;CHECK THE TABLE INDEX
::G0 DO THE NEXT DIGIT
;160 TO EXIT

6%
(SP) +
9%
-1{SP),=2(R3)
(R3)
(SP)+,RS
(SP) + ,R3
(SP)+ ,R2
(SP) + ,R1

;GO CHANGE TO ASCI!I
;:WAS THE LSD THE FIRST NON-ZERO?
;:BR IF NO
;;YES--SET THE SIGN FOR TYPING
:SET THE TERMINATOR
..POP STACK INTO RS
;:POP STACK INTO R3
;:POP STACK INTO R?2
;:POP STACK INTO R1

RS5,R2

::GET THE LSD

JRMUBD RMOS5/3/2 FORMATTER
MACRO v064.00
"ONVERT BINARY TO DECIMAL AND TYPE ROUTINE

026630
026632
026636

026644
026646
026650
026652
026654

026656
026660

012600
104401

(26660
000002

4-APR-81
MOV

TYPE

000004

MOV
MOV

$DTRL:

$DBLK:

RTI

10000.
1000.

100.
10.

BLKW

18:39:56 PAGE

(SP)+ ,RC

. $DBLK

2(SP) ,4(SP)
(SP)+,(SP)

34-1

..POP STACK INTO RO

;sNOW TYPE
S:ADJUST

ThE NUMBER

THE

STACK

;;RETURN TO USER

CZRMLEBO RMOS5/3/2 FORMATTER

MACRO v04.00

4-APR-81

$SUPRS = TYPE ASC]Z, REPLACE LEADING 0°'S WITH BLANKS

L 8
18:39:56 PAGE 35

5EG U10¢

.SBTTL
-SRTTL

.':."Q'.fi'Q'I'.."‘.'."...'.Q.t'.'.'.".'...""'..'..'.'.."."

5
6
;

SCALL¢
:
3
&

MOV
JSR

#NUMADR , = (SP)
PC,$SUPRS
.

;FIRST ADDRESS OF ASCIZ STRING

MOV

#NUMADR ,= (SP)

;FIRST ADDRESS OF

RO,=-(SP)

;SAVE RO

12 026670

010046

13 026672
14 026676

}2 026702

016600
005037

000405

000004
026760

17 026704
18 026706
19 026712

010046
016600
010037

000004
026760

21 026716

105710

20 C26716

22 026720
23 026722
24 026726
25 026730
26 026734
27 026736
28 026740
29 026744
30 026750
31 026752
32 026756
33 026760
34 026762
35 026764
36 026766

001406
122710
001006
112720
000770
005300
112710
005737
001002
010037
1044017
000000
(012600
012616
000207

000040
000060
026760
026760

JSR

$SUPRL: MOV

$SUPRS:

$SUPR1:

PC,$SUPRL

ASCI7

MOV
(LR

4(SP) ,RO
$SUPR2

MOV
MOV
MOV

RO,-(SP)
4(SP) ,RO
RO, $SUPR2

;SAVE RO
;GET POINTER TO MESSAGE
JGET POINTER FOR TYPING

(RO)

;TEST FOR TERMINATOR

O
(SP)+,R0
(SP)+, (SP)
PC

;RESTORE RO
JRESTORE STACK

1%:

000060

$SUPRS = TYPE ASCIZ, REPLACE LEADING 0°'S WITH BLANKS
$SUPRL = TYPE ASCIZ, LEFT JUSTIFY

TSTBR

BEQ
CMPB
BNE
MOVB
BR
2%:
DEC
MOVB
3%:
TST
BNE
MOV
4%:
TYPE
$SUPR2: .WORD
MOV
MOV
RTS

STRING

;GET POINTER TO MESSAGE

$SUPR1

2%
#'0, (RO)
3%
#40, (RO) +
1%
RO
#'0,(RO)
$SUPR2
4%
RO, $SUPR2

YES
;dS TMIS AR
7
;NO
JREPLACE IT WITH A "BLANK''
JNEXT CHAR.
sBACKUP 1
;JMAKE IT '0"
JLEFT JUSTIFY ?
;NO
L¥ES

JRMLBO RMOS/3/72 FORMATTER

$SUPRL

TYPE

ASCIZ,

LEFT

MACRO v04.00

JUSTIFY

4-APR-B1

JROUTINE
sCALL:

M 8
18:39:56 PAGE 36

TO REPLACE LEADING ZEROS

IN A NUMERIC

STRING WITH SPACES

MOV

#ADR,=(SP)

;sADDRESS OF

.WORD

J'N' 1S NUMBER OF DIGITS TO BE TYPED

JSR

RS.REPLZ

NUMBER

(IN ASCII)

JREPLACE PRECEDING ZEROS W!ITH BLANKS

MOV

#ADR,=(SP)

.WORD

FILLZ:

INC

FILLO

;LEAVE ZERO'S

REPLZ:

MOV

RO,=-(SP)

;SAVE RO

TST
BNE

FILLO
3%

sLEAVE PRECEDING ZEROS ?
;BR IF YES

}5 026770

005237

13 026774

010046

15 027002
16 027006

005737
001014

18 027014

001004

20 C27022
21 027024

005200
000771

23 027030
24 027032
25 027034
26 027040
27 027044
28 027046
29 027050

001003
005300
112710
016600
105720
001376
005300

31 027054
32 027060
33 027062

010037
104407
000000

35 027066
36 027070
37 027074
38
39 027076

(12618
005037
000205

14 026776

17 027010
19 027016

22 027026

30 027052

34 027064

027076

016600

000004

122710

000060

112710

000040

027076

105710

162500

2%:
000060
000004

59
4%:

MOV

5%:
(7076

FILLO:

RS,FILLZ

4(SP) ,RO

CMPR

#'0,(RO)

MOVB

#40, (RO)

BNE

INC
BR

T1STB

RO
1%

(RO)

BNE
DEC
MOVB
MOV
TSTB
BNE
DEC

33
RO
#'0,(RO)
4(SP) RO
(RO) +
4%
RO

MOV
TYPE
.WORD

RO,5%

SUB

027062

012600

000000

1%:

JSR

(R5)+,R0O

MOV
CLR
RTS

O
(SP)+,R0O
(SP)+, (SP)
FILLC
RS

.WORD

MOV

sADDRESS OF

NUMBER

(IN ASCID)

;sTYPE PRECEDING ZEROS
J'N'

IS NUMBER OF

DIGITS

TO BE

TYPED

;ADDRESS OF NUMBER TO RO
;BYTE EQUAL TO ASCII

;BR IF NOT
JREPLACE

'0'

THE ZERO WITH A SPACE

s INCREMENT THE BYTE ADDRESS
;GO BACK AND LOOK FOR MCRE LEADING ZEROQS

;SEE IF ZERO BYTE TERMINATOR

;BR IF NOT
;BACKUP STRING POINTER
;PUT A ZERO BACK IN
;PUT ADDRESS OF FIRST CHARACTER ON STACK
;SEE IF ZERO BYTE TERMINATOR
;BR IF NOT
;BACKUP STRING POINTER

;ADJUST ADDRESS

;GET ADDRESS FOR TYPEOUT
;TYPE THE NUMBER
;ADDRESS OF NUMBER

. ;POP STACK INTO RO
sRESTORE STACK
JRESET FILL FLAG
;RETURN

;IF SET, LEAVE PRECEDING ZEROS FOR TYPE

RMOS/3%/2

4-APR-81
MA(RO Vv04.00
TO DECIMAL ASCIZ ROUTINE

FORMATTER

ENGTH BINARY

.SBTTL
AR

’

18:39:56 PAGE

SEQ 0104

SINGLE LENGTH BINARY TO DECIMAL AS({IZ ROUTINE

AR AR AR AR A AR AT AR AN TR AR RARA I ARARARARAAR AR

S*THIS ROUTINE WILL

CONVERT A 16~BIT UNSIGNED BINARY NUMBER

TO AN

$*UNSIGNED DECIMAL ASCIZ NUMBER.

:'CALL

>
b
&

027100
027106
027112
027116
027122
27126
027130

016637
012746
004737
062716
012666
000207
000000

000002
027130
027134
000005
000002

000000

027130

$SB2D:

MoV
JSR
RE TURN

MOV

JSR

ADD

MOV

18:

RTS
.WORD

,
= (SP)
NUMBER
PC.a#$582D

;:?gzLBJNARv NUMBER ON THE STACK

1} $
2(5P)

;:SAVE BINARY NUMBER

PC,a#$DB2D
#5,(SP)

;. CALL DOUBLE LENGTH CONVERT
;2ONLY ALLOW FIVE CHARACTERS

#1%,-(SP)

(SP)+,2(SP)

0.0

*:ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK
;:SET POINTER

;iPICKUP POINTER
; RETURN

&MS

LENGTH

FOPMATTER

BINARY

TO DECIMAL

MACRO v04.00
4-APR-B1
ASCII CONVERT ROUTINE

LSBTTL
C ARA

1B:39:56 PAGE

DOUBLE LENGTH BINARY TO DECIMAL ASCII
R IR RN AN RN ANA AR AN

CONVERT ROUTINE

CR TR AR R RAANRRARRRARRCAR RN EARAERRRNRTRRRRTOIRROTS

:*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
:.gsgi??bE(AS(IX) NUMBER.
s

s«(ALL
.

027134
027136
027142
027146
027152
027154
027156
027164
027170
027174
027176
027200
027202
027204
027206
0¢7210
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

PuEE——

027302

$D82D:

000002
027314
000002

000012

027244
027246

027232
1$:
2%:

3%:

MOV
JSR
RE TURN

SAVREG
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
(LR

SUB
SBC
SuB
BLT
INC

#PNTR,=(SP)

PC,a#3DB2D

$TNPWR:

SIGN OF

THE BINARY NUMBER MUST BE

+;POINTER TO LOW WORD OF BINARY NUMBER

;:THE FIRST ADDRESS OF ASCIZ
111S ON THE STACK

2(SP) ,R2
#SDECVL ,RO
RO,2(SP)
(R2)+,R1
(R2) +,R2

#10.,4%
#STNPWR
,R4
#$TNPWR+2
,RS
R3
(RS) LR1
R2
(RS) ,R2

3%
R3

(R4)
+ ,R1
R2
(R4)
+ ,R2
(RS5)+,(RS5)+

#'0.R3

4%:

THE

R3,(R0O)+
(PC)+
0.

1%
(RO)+
PC

;sSAVE REGISTERS

;sPICKUP THE DATA POINTER
2:GET ADDRESS OF '‘SDECVL'" STRING

:sPUT ADDRESS OF ASCIZ STRING ON STA(K
;:PICKUP THE BINARY NUMBER

;:SET UP TO DO 10 CONVERSIONS
; ;ADDRESS OF TEN POWER
;sCLEAR PARTIAL

;:SUBTRACT TEN POWER
;:BR IF TEN POWER TO LARGF
;:ADD 1 TO PARTIAL
. .LOOP
;;RESTORE SUBTRACTED VALUE

;sMOVE TO NEXT TEN POWER
;;CHANGE PARTIAL TO ASCII
;SAVE IT
s ;DONE?

;:BR IF NO
;s TERMINATOR
s RESTORE REGISTERS

:JRETURN

;:1.0E09

::1.0E08
;:1.0€07
::1.0E06

::1.0E05
::1.0E04

::1.0603
;:1.0€02

“ZRMUBO RMOS5/3/2 FORMATTER

MACRO v04.00

DOUBLE LENGTH BINARY TO DECIMAL ASCII

0 gsgz
1

02731 2
027314

000000

E..2
4-APR-B1 1B:39:56 PAGE 38~

CONVERT ROUTINE

21,001

0
$DECVL: .BikB

2:1.0€E00
12,

JRESERVE STORAGE FOR ASCIZ STRING

SEQ

JRMLBO RMOS/3/2 FORMATTER
INGLE

LENGTH BINARY

MACRO v04.00

7O OCTAL ASCIZ ROUTINE

JSBTTL

4-APR-B1

D §
18:39:56 PAGE 39

SINGLE LENGTH BINARY

TO OCTAL

ASCIZ ROUTINE

:."..'....IQ'.....".""'.l'...."...".....'.'.'.'"'.....'."'

;*THIS ROUTINE WILL

CONVERT A 16=-BIT UNSIGNED BINARY NUMBER

:.l(,:EII.GNED OCTAL ASCIZ NUMBER.

TO AN

-n

e
i

MOV
JSR

NUMBER, - (SP)
PC,a#$5820

$S820:

MOV
MOV
JSR
ADD
MOV
RTS

2(SP),1%
#1%,-(SP)
PC.,a#$DB20
#5,(SP)
(SP)+,2(SP)
PC

!
}
|
?

027330
027336
027342
027346
027352
027356

027360

—

016637
012746
004737
062716
012666
000207

000000

000002
027360
027364
000005
000002

027360

G00000

1$:

———

RE TURN

.WORD

0.0

:sPUT BINARY NUMBER ON THE STA(K
s CALL

;;ADDRESS OF

1ST ASCIZ CHAR.

;;SAVE THE BINARY NUMBER
;:SET POINTER

IS ON THE STACK

s:CALL DOUBLE LENGTH CONVERT ROUTINE
ssONLY ALLOW SIX CHARATTERS

;:PICKUP POINTER
; sRETURN

MA: O v04.00
4-APR-B1
JRMLBO RMOS/3/2 FORMATTER
DOUBLE LENGTH BINARY TO OCTAL AS 11 CONVERT ROUTINE
.SBTTL

9
E
1B:39:56 PAGE 40

DOUBLE LENGTH BINARY

CARRR R A AAARAARAAAR
A

-YHIS ROUTINE WILL

T0O OCTAL ASCII

AR RN R AR ARARANARRRAANCARAR
RN ENCRREROE TR ORI RS

CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN

:*UNSIGNED OCTAL ASCIZ NUMBER.
:'CALL
b

MOV

RE TURN

$DR20:

SAVREG

027364
027366
027372
027376
027402
0274606
027410

000002
027503
000014
177770

027412

027414
027416
027420
027422
027424
027426
0274320
027434
027436
027440
027442
027444
027446
027450
027452
027454

027456
027460
027464

027466

1%:

000002
2%:
3%:

062702
000753

000060

JSR

MOV
MOV
MOV
MOV
MOV
MOV

(LR

MOVR

MOV
DEC
BGT
BEQ
INC
MOV
RESREG
RTS

ASR
ROR

ROR
ROR
ROR
ROR
ROR

BIC

ADD

BR
$0CTYL: .BLKB

CONVERT RQUTINE

#PNTR,-(SP)
PC,a#$DB20

2(SP) ,R1

#80CTVL+13.,RS
#12. R4
#~(C7,R3

(R1)+,R0
(R1)+,R1
R2
R2.=(R5)
RO,R2
R4

3%
2%

RS
RS,2(SP)
P{

R3
R1
RO
R1

¢ ;POINTER TO LOW WORD OF BINARY NUMRER
- 3o CALL THE ROUTINE
;s THE ADDRESS OF

THE FTRST ASCIZ (HAR.

;sSAVE ALL REGISTERS
;;PICKUP THE POINTER TO "OW WORD
;:sPOINTER TO DATA TABLE
;:D0 ELEVEN CHARACTERS
s s MASK
;;LOWER WORD
;sHIGH WORD
;;TERMINATOR
;:PUT CHARACTER IN DATA TABLE
;GET THIS DIGIT
:2COUNT THIS CHARACTER
;:BR IF NOT THE LAST DIGIT
;:BR IF IT IS THE LAST DIGIT
;;ALL DIGITS DONE-ADJUST POINTER FOR FIRST
;sASCIZ CHAR. & PUT [T ON THE STACK
;;RESTORE ALL REGISTERS
;;RETURN TO USER
;;POSITION THE MASK FOR THE LAST DIGIT
;:POSITION THE BINARY NUMBER FOR
23

THE

OCTAL

DiGiT

RO
R1
RO
R3,R2

2sMASK OUT ALL JUNK

1%
14.

2:G0 PUT IT IN THE DATA TABLE
s JRESERVE DATA TABLE

#'0,R2

IS ON THE

;sMAKE

THIS (HAR.

ASCII

STAK

ZRML BO

RM(5/3/2 FORMATTER

IMMUNICATIONS

MACKO

ROUTINE

v04.00

4=-APR-B1

.SBTTL
AR

112737
027504
112737
02751
02752
000403
027522 1127%7
027530
027530 010046
027532 010146
105737
027534
027540 001450
122737
027542
027550 001031
132737
027552
027560 001425
027562 017600
027566 062766
027574 005737
(27600 001375
027602 010037
105720
027606
027610 001376
163700
027612
027616 006200
027620 010037
027624 012737
027632 000413
027634 017637
027642 062766
027650 013746
027654 004737
027660 000000
027662
105737
027662
027666 001416
027670 005737
027674 001413
027676 005737
027702- 001375
027704 017637
cez7712- 062766
027720 005237
105037
027724
027730 105037
105037
027734
027740 012601
027742 012600
027744 000207
027746
000
027747
000
027750
000

200200
000001
000100
000040

027750
027746

$ATY1:
$ATYS:

000001

027750

$ATY4L:
SATY(:

027746

001237

000004
000062
001210

000004

001224

#1,3FFLG

BR
MOVB

#1,3FFLG

000004

001210

000004
000002
177776
025662

027660
000004

gg.SMSGTYPE

:sPUT LENGTH IN MAILBOX
;sTELL APT TO TAKE MSG.

@4 (SP) ,4%

::PUT MSG ADDR IN JSR L INKAGE

JSR

177776,-(SP)

SC.STYPE

::PUSH 177776 ON STACK

TSTB
BEQ
IST
BEQ
TST
BNE
MOV

$FFLG
12%
$ENV
12%
$MSGTYPE

;:SHOULD REPORT FATAL ERROR?
BR
::IF NOT:
; ;RUNNING UNDER APT?

BNE
SUB
ASR

001230

001210

BR
MOV
ADD

MoV

5%:
10%:

027750

11%:

001212
000004

.WCORD

$MFLG:
$LFLG:
$FFLG:
APTSIZE

;:SHOULD TYPE A MESSAGE?
BR
;oIF NOT:
#APTENV, SENV
; ;OPERATING UNDER APT?
3%
BR
;:1F NOT:
#APTSPOOL
, SENVM s sSHOULD SPOOL MESSAGES?
3%
BR
;oIF NOT:
@4 (SP) ,RO
;sGET MESSAGE ADDR.
#2,4(SP)
;;BUMP RETURN ADDR.

+
(RO)
2%
$MSGAD ,RO

#2,4(SP)

11%

@4 (SP) ,$FATAL

INC

RTS

(SP)+ ,RO
pPC
‘

CLRB
CLRB
CLRB
MoV
MOV

.BYTE
BYTE
.BYTE
.EVEN
= 200

APTENY
= 001
APTSPOOL= 100

APTCSUP = 040

;2PUSH R1 ON STACK

#2,4(SP)
$MSGTYPE

ARD

12%:

~;:TO ONLY REPORT FATAL ERROR

;:GET MESSAGE LNGTH IN WORDS

TSTB

::TO REPORT FATAL ERROR
::T0 TYPE A MESSAGE

RO
RO, $MSGLGT

MoV

TR NS

;;SEE IF DONE W/ LAST XMISSION?

MOV
MOV

$MSGTYPE
1%
RO, $MSGAD

BNE

2%:

$ATY(

AR AT

;2PUSH RO ON STACK

MOV
ADD
0

1%:

#1,8MFLG

AA RN AN AN R AR AN AN AR AR

RO,=(SP)
R1,~(SP)
$MFLG

MOV

BEQ
CMPB
BNE
BIT8
BEQ

001224

000004
000002
001210
027750
027747
027746

MCvB

MOVB

TSTR

000100

001226

APT (OMMUNICATIONS ROUTINE

MOV

001230

18:39:56 PAGE &

AR A RN AR R RN AN RN RN AN AN A RN

000001
000001

000001

$FFLG
$LFLG
SMFLG
(SP)+ ,R1

0
0
¢

:oIF NOT:
;:PUT

ADDR

WAIT

IN MA]LBOX

;;FIND END OF MESSAGE

::;SUB START OF MESSAGE

- :BUMP RETURN ADDRESS

::CALL TYPE MACRO

3:1F-NOT:

;sFINISHED LAST MESSAGE?
WAIT
::1F NOT:
::GET ERROR #
;:BUMP RETURN ADDR.
;:TELL APT TO TAKE ERROR
::CLEAR FATAL FLAG
:2CLEAR LOG FLAG
;:CLEAR MESSAGE FLAG
::POP STACK INTO R1
;2POP STACK INTO RO
; :RETURN

s sMESSG. FLAG
::L0G FLAG

JFATAL

FLAG

M0S/3/2
TORE

FORMATTER
MACRO
RO=RS ROUTINES

v04.00

4-APR-81

.SBTTL

18:39:5¢ PAGE

SAVE AND RESTORE RO=-RS ROUTINES

.-'-"Q.Qt...'.tt't'..."Q"'Qt....tt."'tttt'Q.nn'o'..'.oon'to"-'

;*SAVE RO=-RS

s*CALL:

SAVREG

s*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
-

SxTOP===(+16)

;e sduen(slf)

+4=---RS

;% +6=--R4

:* +8---R3

s 10nnfRY
;*+12---R1
*x+14===R0O

027752

010046

027756

010246

(277564

010146

027760
027762
027764

010346
010446
010546

027772
027776

016646
016646

027766

030002
030006

$SAVREG:

016646

016646
000002

MOV

RO,=(SP)

::PUSH RO ON STACK

MOV

R2,=(SP)

:sPUSH R2 ON STA(K

MOV.

MOV
MOV
MOV

000022

MOV

000022
000022

MoV
MOV

000022

MOV
RTI

R1,=(SP)

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

22(SP) ,=(SP)

22(SP) ,=(SP)
22(SP) ,=(SP)

22(SP) ,=(SP)

;;PUSH R1

ON STA(K

::PUSH R3 ON STACK
;:PUSH R4 ON STACK
;:PUSH R5 ON STACK

:;SAVE PS OF MAIN FLOW

;:SAVE PC OF MAIN FLOW
::SAVE PS OF CALL

::SAVE PC OF CALL

;*RESTORE RO=-R5

s *CALL:

030010
030010
030014
030020
020024
030030
030032
030034
C30036
030040
030042
030044

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

RESREG
&9
$RESREG:
MoV
(SP)+,22(SP)
MOV
(SP)+,22(SP)
:
MOV
(SP)+,22(SP)
MOV
(SP)+,22(SP)
MOV
(SP)+,R5
MOV
(SP) + R4
MOV
(SP)+ ,R3
MoV
(SP) +,R2
MOV
(SP)+,R1
MOV
(SP)+,RO
RTI

;;RESTORE PC OF CALL
:;RESTORE PS OF CALL
;;RESTORE PC OF MAIN FLOW
;;RESTORE PS OF MAIN FLOW
;.POP STACK INTO RS
;;POP STACK INTO R4
;;POP STACK INTO R3
::POP STACK INTO R2
. :POP STACK INTO R1
::POP STACK INTO RO

A0S,

310

EORMAT
TE R

MAIRO

y06.00

4-APR-B1

.SBTTL

1B:39:56

PAGE

TRAP DE(ODER

PR
e T

;*THIS ROUTINE

WILL

PICKUP THE

LOWER BYTE

THE

"'TRAP'" INSTRUCTION

;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*0OF

THE DESIRED ROUTINE.

:*GO TO THAT ROUTINE.
030046

010046

030056
030060
030062

111000
006300
016000

030050
030054

030066

016600
005740

000200

$TRAP:

000002
030102

THEN USING THE ADDRESS OBTAINED

MOV

RO,=(SP)

::SAVE RO

MOVB
ASL
MOV

(RO) ,RO
RO
$TRPAD(RO)
,LRO

:2GET RIGHT BYTE OF TRAP
;:POSITION FOR INDEXING
;;INDEX TO TABLE

MOV
TST

2(5P) RO
-(R0O)

RTS

IT WllLL

::GET TRAP ADDRESS
::BACKUP BY 2

;GO TO ROUTINE

;:THIS IS USE TO HANDLE THE ''GETPRI'' MACRO
C30070
030072
030100

011646
016666
000002

000004

000002

$TRAP2: MOV
MOV
RTI
.SBTTL
;*THIS

(SP) ,=(SP)
4(SP) ,2(SP)

;:MOVE THE PC DOWN
;:MOVE THE PSW DOWN
;;RESTORE THE PSw

TRAP TABLE
TABLE

CONTAINS

THE

STARTING ADDRESSES OF

;*BY THE '‘TRAP'' INSTRUCTION.

030070

030116

025004

$GTSWR

030120
030122
030124
030126
030130

024714
025256
025346
027752
030010

$CKSWR - ; :CALL=CKSWR
$RDCHR
- :CALL=RDCHR
$RDLIN
;;CALL=RDLIN
$SAVREG ;;CALL=SAVREG
$RESREG ;;CALL=RESREG

025662
026242
026216
026256
026444

ROUTINES

CALLED

ROUT INE

030102

030104
030106
030110
030112
030114

THE

$TRPAD: .WORD

$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS

$TRAP?

;2 sCALL=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 OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZERQS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

;. CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

TRAP+7(104407)
TEST FOR CHANGE IN SOFT-SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) SAVE RO-RS ROUTINE
TRAP+13(104413) RESTORE RO-R5 ROUTINE

POWER

:(Mt.v‘l /%

DOWN

AND

FORMAT TER

MACHC

J0&L.00

4-APR-B1

1B:39:%6

ROUTINES

.SBTTL
AR

03027%
000340

000024
000026

9
44

POWER DOWN AND UP ROUTINES
AR AR AR R AN R RN R AN

*POWER DOWN ROUT INE

$PWRDN: MOV
MOV
MOV
MoV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
HALT
BR

150766

030302
030204

|
PAGE

000024

030202

RN R RN TR RN

AN RN R AN E R AR ARI

RS NI RROIRTRERTSIES

#SILLUP,Q#PWRVEC ;;SET FOR FAST UP
#3460 ,Q8PWRVEC+2 ;;PRIO:7

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

RS5,=(SP)

aSWR,=(SP)
SP,$SAVR6

#$PWRUP ,@#PWRVEC

.~2

;sPUSH
23PUSH
;sPUSH
::PUSH

RO
R1
R2
R3

ON
ON
ON
ON

STACK
STACK
STACK
STACK

;3PUSH R4 ON STA(K

;sPUSH R5 ON STACK

;;PUSH aSWR ON STACK
s :SAVE SP
;;SET UP VECTOR

; sHANG UP

'"'t.‘l"'tt'l'."i"l‘t"!"fi't‘tll't'..ttQfi.'t.t.ti."ti'ttfili"t

030204

030212
030216
030222
03022¢
030230
030234
030236
030240
030242
030244
030246
030250
030256
030264
030266
030270
030272
030274

030276
030300
€30302

2 030304
3

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600

012737

012737
104401

030304
012716
013056
000002
000000
000776
000000
200

030276
030302
030302
030302

000024

1%:

150720

030132
000340

042

*POWER UP ROUT INE

$PWRUP:

MOV

CLR
INC
BNE
MOV

MOV

000024
000026

120

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TYPE
$PWRMG: .WORD
MOV
$PWRAD: .WORD
RTI
$ILLUP: HALT
BR

$SAVR6: O
$POWER: .AS(CIZ
.EVEN

ASILLUP ,@#PWRVEC

;;SET

FOR FAST

DOWN

$SAVR6, SP
$SAVR6
$SAVR6

;.GET SP
;iWAIT LOOP FOR THE
J:WAIT FOR THE INC

(SP)+,R5

;;POP STACK INTO RS

1%
(SP) +,3SWR

::0F
WORD
;:POP STACK

TTY

INTO @SwWR

(SP) + ,R4
::POP STACK INTO R4
(SP)+ ,R3
;;POP STACK INTC R3
(SP)+,R2
;:POP STACK INTO R2
(SP) +,R1
;2POP STACK INTO R1
(SP)+,RO
;:POP STACK INTO RO
#3PWRDN ,@#PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340 ,Q#PWRVEC+2 ;;PRIO:7

$POWER

; sREPORT

THE POWER FAILURE

;;POWER FAIL MESSAGE POINTER

(PC)+,(SP)
ST3

;;RESTART AT ST3
. ;RESTART ADDRESS

;:THE POWER UP SEQUENCE WAS STARTED
;:; BEFORE THE POWER DOWN WAS COMPLETE
- :PUT

<CRLF>/"POWER UPTMY/

THE

SP HERE

KMO5/3/2 FORMATTER

£/DUAL

PORT RM/RM DRIVER

MACRO v04.00
(REV 6.5) 1981

4-APR-B1

onT

.SBTTL

18:39:56 PAGE

9
45

SINGLE/DUAL PORT RH/RM DRIVER

:NEW DRIVE TYPE

(REV 6€.5)

1981

ID FOR RMQO2 swwnevennn

POPOTUNININD
3 2 o
wod el o i e ek

VB WP = O 000NV
NN OO0 gTM N

;10=AUG=77 sxxxsxxsxnnn

;10-MAR-78 THE SC,

SC5 CHANGES

:NEW DRIVE TYPE ID FOR RM(QS sxwawsnnws

21980 sxwwxxkxnwn

;COPYRIGHT (C) 1977,1981
;DIGITAL EQUIPMENT CORP.

;MAYNARD, MA 01754

;AUTHOR(S): JIM LACEY/CHUCK HESS

SJREVISED BY: MIKE LEAVITT

11-APR-80, 27-MAR-81

;"tt‘ttflt'tfi*tk!’ttttt"'ti‘t'fi'ttt'tttfi'i.."'t'tttttttt't'.'Q'.t

;STORAGE FOR RMDS, RMER1, RMERZ2, AND RMMRZ ON AN ERROR ‘2"
;RMERRS

= RMDS

JRMERRS+2 = RMER1
;RMERRS+4 = RMERZ2

;RMERRS+6 = RMMR?

030320

000000

RMERRS:

.wWwORD

0,0,0,0

;TABLE OF DRIVE ACTIVE

INDICATORS (DRVACT=8 BYTES)

;DRVACT=0 IF DRIVE
:DRVACT>0 IF DRIVE

IS IDLE
IS ACTIVE WITH A COMMAND

:DRVACT<O0 IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION

030330
030331
030332
030333
030334

DRVACT:

.BYTE
LYIE

O
O

AYTE - 0
.BYTE
O
JYIE
-0
BYTE
-0
BYTE
O
BYIE - 0

030235
030336
030337

;DRIVE 9
;DRIVE 1

;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
:DRIVE

2
3
4
5
6
7

;TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES)
:DRVSTA=0Q IF DRIVE IS OFFLINE OR NONEXSITENT
;DRVSTA>0 IF DRIVE

IS ONLINE

;DRVSTA<QO IF DRIVE IS UNSAFE

~—

46
&7
48
49

030340
030341
030342
030343
030344
030345
030346
030347

DRVSTA:

.BYTE
0
BYIE. - D
.BYTE
O
BYTE
O
BYIE
O
SYIE
D
BYTE
0
BYHE . O

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

0
1
2
3
4
5
6
7

;TABLE OF DRIVE TYPES (DRVTYP=8 BYTES)

;DRVTYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=U, ALSO)
;DRVTIYP=7 IF DRIVE IS RMQOS5 wwxnn»

;DRVIYP=5 IF DRIVE
;DRVTYP=4 [F DRIVE

IS RMQ2 ##xxxx
IS RMO3

MACRO v04.00
SINGLE/DUAL PORT RM/RM DRIVER (REV 6.5) 1981
“JRMLBO RMQ5/3/2 FORMATTER

4-APR-B1

K
9
18:39:56 PAGE 45-1

;DRVTYP==1

50
51

52 030350
55 030351
030352
030353
030354
030355
030356
030357

DRVTYP:

.BYTE
BYTE

BYTE
BYTE
BYTE
BYTE
BYIE
.BYTE
;TABLE OF

DUAL

IF NOT RM05/3/2

0
O

;DRIVE 0
:DRIVE 1

O
O
O
©C
Q
O

sDRIVE
;DRIVE
- sDRIVE
;DRIVE
<DRIVE
:DRIVE

PORT

:DPINT=Q IF

;DPINT<O IF

030360
030361
030362
030363
(30364
030365

DPINT:

SYIE
JYE
BYTE
BYTE
SAVIE

030366

030367

INDICATORS

INITIALIZATION IS NOT ACTIVE ON THE DRIVE
INITIALIZATION IS

0
O
O

IN PROGRESS

;DRIVE 0
;DRIVE 1
;DRIVE 2

0
0
O
0
0

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

3
4
5
6
7

;TABLE OF PENDING DUAL PORT REQUESTS
:DPRQS=0Q IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE
;DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE

67
69

.BYTE
BYTE
BYTE

INITIALIZATION

2
3
4
5
§
7

030370

DPRQS:

73 030371

030372
030373

030374

030375
030376
030377

.BYTE
.BYTE
BYIE
BYIE
.BYTE
SYIE
BYTE
SYTE-

0
0
0
O
O
0

;DRIVE
sDRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

0
0

;DRIVE 6
;DRIVE 7

s TRANSFER WAIT FLAG

(TRNSWT=1

WORD)

sTHIS IS A ONE WORD QUEUE.
:"DPB'* OF

030400

000000

TRNSWT:

.WORD

THE

IT WILL CONTAIN THE ADDRESS OF

I1/0 OPERATION.

;SEARCH WAIT KEYS (SRCHWT=1 WORD)
;THIS

0
1
2
3
4
5

IS A ONE WORD QUEUE

THAT WILL

CONTAIN A KEY

FOR EACH OF

;THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0
JREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE.

;EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE O.

030402

000000

SRCHWT:

.WGRD

;RM DRIVER ACTIVE FLAG (ACTDRV=1 BYTE)
;ACTDRV=0 IF DRIVER IS INACTIVE

;ACTDRV>0 IF DRIVER IS ACTIVE

030404

000

ACTDRV:

.BYTE

CZRMLBO RMOS/3/2 FORMATTER

MACRC v04.00

SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1981

4-APR-B1

9
L
18:39:56 PAGE 45-2

;SOF TWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE)
JACTSTR=0Q IF
JACTSTR>Q IF

ACTSTR:

BYTE

SOF TWARE
SOF TWARE

TIMER ROUTINE
TIMER ROUTINE

IS INACTIVE
IS ACTIVE

;UNLOAD FLAG (ULDFLG=8 BYTES)
sULDFLG=Q IF NO UNLOAD (OMMAND
JULDFLG>0 IF UNLOAD COMMAND IN PROGRESS
JULDFLG<O iF UNLOAD COMMAND IN WAIT QUEUE

—d el ot ok

el ed e

)

D e

—h

D e d ed o

—h

WWWMNONDMNONOFONINONONOND
= — =3 e e 2 el D

WO VO NIWVNBWN
SOV NN WN—=O

ULDFLG:

134
135
136

137
138

030414
030415

142

143

;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

0
1
2
3
4
5
6
7

;SAVE REGISTERS FLAG (SAVEFG =1 WORD)
;SAVEFG <0 IF

SAVE

THE RH/RM REGISTERS WHEN THE

;OPERATION IS COMPLETED AS PER (DPB+14).
;SAVEFG=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 THE DISK ADDRESS ISN'T IN THE WINDOW
;FOR A DATA TRANSFER START A SEARCH COMMAND
;SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS,
;DISREGARD THE WINDOW
030420

177777

SEEKFG:

.WORD

;TIMEOUT TABLE

030422
030424
030426
030430
030432
030434
030436
030440

139 030442

140
141

BYTE
0
ik
SYIE
O
N LA
MY
0
Wy
;| e
AYiE
O
BYTE
0

177777
177777
177777
177777
177777
177777
177777
177777

TIMER:

-1
(TIMER=8 WORDS)

;THIS

TABLE

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

-1
-1
=1
-1
=1
-1
-1

.WORD

CONTAINS

;DATA TRANSFER UNDERWAY

THE

TIME ALLOWED FOR AN OPERATION

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

0
1
2
3
4
5
6

;DRIVE 7

INDICATOR (DTUW=1 WORD)

;DTUW<O IF NO DATA TRANSFER UNDERWAY
;DTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

177777

DTUW:

.WORD

-1

SATTENTION BITS TABLE (ATABIT=8 BYTES)
;THIS TABLE CONTAINS THE CORRESPONDING BLI
SATTENTION BIT

TO EACH DRIVES

CZRMLBO RMOS5/3/2 FORMATTER

SINGLE/DUAL
144
145
146
147
148

PORT RH/RM DRIVER (REV 6.5)

030444
030445
030446
030447

oo
002
004
010

}2% 030453

200

145 030450
150 030451
151 030452

;gg 030454

020
040
100

;g; C30460
;98 030464

1
2
4
10

;DRIVE 0
:DRIVE 1
;sDRIVE 2
;DRIVE 3

.BYTE

200

;DRIVE 7

20
40
100

SEC 0116

sDRIVE 4
sDRIVES
:DRIVE 6

;NUMBER OF *MASSBUS CONTROL PARITY ERRORS'' (MCPE) ALLOWED BEFORE
;CALLING IT FATAL (MCPEMX=1 WORD)

000003

MCPEMX:

.WORD

;STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM),
;RMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)).
176700

000254

000005

;;}

0C0240

RMADR:

RMVEC:

.WORD

176700

254,5%32.

;MAXIMUM SEARCH FOR I/0 WINDOW IS S5 SECTORS (MXWNDW=1 WORD)

MXWNDW:

.WORD

;DEFINITIONS OF THE RH/RM ADDRESS INDEXES

173

000000

RMCS1

175
176
177
178
179

000004
000006

RMBA
RMDA

174

18:39:56 PAGE 45-3

.BYTE
Sk
.BYTE
BYTE

BYTE
.BYTE
BYTE

159
}2?
162 030456

1981

4-APR-81

ATARIT:

154
;ég

168

MACRD v04.00

;CONTROL AND STATUS REGISTER #1

(DRIVE REG.

=%
=6

;UNIBUS ADDRESS REGISTER (NOT A DRIVE REG)
;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG.

180

000010
000012
000014
000016

RM(S2
RMDS
RMER1
RMAS

= 10
ol
s
=1
=16

182
183

000022
000024

RMDB
RMMR1

=z 22
= 24

sDATA BUFFER REGISTER (NOT A DRIVE REG.)
;MAINTAINABILITY REGISTER (DRIVE REG. 3)

185
186

000030
000032

RMSN
RMOF

=50
= aD

000040

RMMR2

= 40

;SERIAL NUMBER REGISTER (DRIVE REG. 10)
;OFFSET REGISTER (DRIVE RE~. 11)
;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG.
:DUMMY
ADDRESS REGISTER (DRIVE REG. 13)
;MAINTENANCE REGISTER #2

= 44

;ECC POSITION REGISTER (DRIVE REG.

184

187
188

189

000020

000026

000034
006036

190

000042

;g;

000046

191

000044

RMLA

RMDT

RMDC
RMHR

RMERZ2
RMEC1

;WORD COUNT REGISTER (NOT A DRIVE REG)

RMW(C

181

000002

;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
;DRIVE STATUS REGISTER (DRIVE REG 1)
;ERROR REGISTER #1 (DRIVE REG. 2)
SATTENTION SUMMARY PSEUDO» REGISTER (DRIVE REG. 4)

= 20

;LOOK AHEAD REGISTER

=" 2%

:DRIVE TYPE REGISTER (DRIVE REG. 6)

= 8
=36

= 2

;ERROR REG'STER #2 (DRIVE REG. 15)

RMECZ2

= 46

;gg

.SBTTL

RH/RM DRIVER INITIALIZATION CODE

200
201
202
582

;THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE
JAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR
;7O THE PROPER STATE FOR EACH DRIVE.
JNOTE: THIS ROUTINE CALLS DRVINT

205
206
207

s CALL
;
;

JSR

(DRIVE REG.

JECC PATTERN REGISTER (DRIVE REG.

PC,RMINIT

16)

17)

12)

CZRMLBO RM0S5/3/2 FORMATTER

RH/RM DRIVER

;

INI!TIALIZATION CODE

INOTE: THE *P* OR ‘L' CLOCK MUST BE STARTED

212

216 030502

004737

215 030474

177776

012737

000240

217 030506
218 030512
219 030516
220 030520

012701
012702
005021
020102

030320
030420

222 030524
223 030530
224 030534
225 030536
226 030540
227 030544
228 030550
229 030554
230 030560
231 030564
232 030570
233 030574
234 030600
235 030606
236 030610
237 030614
238 030616
239 030620
240 030624
241 030626
242 030632
243 030634
244 030640

012702
012721
020102
101774
005037
005037
005037
005037
013703
012723
013713
013704
012764
005001
004037
000401
000402
105067
005201
042701
001366
012701
005037

246 030650
247 030652

001405
004737

221 030522

245 030644

248 030656
249 030662
250 030664
251 030666
252 030670
253 030674
sgg 030676

103775

105761

105761
001375
005301
100366
012637
104413
000207

RETURN

RMINIT: SAVREG
MOV

MOV

JSR

MOV
MOV
CLR
CMP

1%:

BLO

030442
177777

28:

030340
030342
030344
030346
030460
033114
030462
030456
000040

000010

030700

3$:

030340

4$:
5%:

177770
000007
177776

030360

6%:

035600

030360

177776

PS,-(SP)

#<5%32.>,PS
PC, CLRQUE

#RYERRS ,R1
#SEEKFG,R2
(R1)+
R1,R2

MOV
MOV
CMP
BLOS
CLR
CLR
CLR
CLR
MOV
MOV
MOV
MOV
MOV
CLR
JSR
BR
BR
CLRB
INC
BIC
BNE
MOV
CLR

#DTUW,R2
#=1,(R1)+
R1,R2
2%
DRVSTA
DRVSTA+2
DRVSTA+4
DRVSTA+6
RMVEC ,R3
#1SR, (R3)+
RMVE(+2, (R3)
RMADR , R4
#CLR,RMCS2(R4)
R
RO,DRVINT
4%
5%
DRVSTA(R1)
R1
#*C7.R1
3
#7.R1
PS

BEQ
JSR

8%
PC,SET.IE

T1STB

7%:
8%:

260
261
262

TSTB
BNE
DEC
BPL
MOV
RESREG
RTS

DPINT (R1)

DPINT(R1)
7%
R1
6
:
(SP)+,PS
PC

;SAVE RO - RS
sSAVE THE PRESENT PROCESSOR STATUS

:CHANGE THE PRIORITY T0 5

;CLEAR ALL REQUEST QUEUES

:FIRST ADDRESS TO BE CLEARED
:LAST ADDRESS TO BE CLEARED
:CLEAR
:ARE WE DONE?

:BR IF NO

:LAST ADDRESS
:INITIALIZE
:DONE?
:LOOP IF NO
:SET ALL DRIVES TO OFFLINE

;SETUP THE RH/RM VECTOR

;FIRST ADDRESS OF RH/RM

:MASSBUS INIT
:START WITH DRIVE 0
:INIT THE DRIVE
;"DVA" NOT SET OR PARITY ERROR
:NORMAL RETURN
:SET DRIVE STATUS TO OFFLINE
:GO TO NEXT DRIVE

:MASK OUT UNUSED BITS
:BR IF MORE DRIVES TO GO
:START WITH DRIVE 7
:CLEAR THE PROCESSOR STATUS
JWAITING FOR DRIVE TO SWITCH PORTS ?
:BR NOT WAITING
:SET INTERRUPT

:DRIVE SWITCHED PORTS ?
:BR IF NOT
:G0O_TO THE NEXT DRIVE
:CHECK NEXT DRIVE
*RESTORE THE PROCESSOR STATUS
:RESTORE RO - RS
:BYE-BYE

;DRIVE INITILIZATION ROUTINE
:THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS
:AN RM05/3/2. IF IT 1S, A ‘READ-IN PRESET''
IS ISSUED AND FMT16
2IS SET TO A *1"". THEN MOL, DPR, DRY, AND VV ARE CHECKED TO
:INSURE THEY ARE ALL ON A “1"". AND DEPENDING ON THEIR STATE,
:DRVSTA IS SET TO THE PROPER CONDITION.
s CALL

263

;

264

S —

177776

036144

256
257
258
259

51?
104412
013746

18:39:56 PAGE 45-4

213 030466
214 030470

f
|
!
|

4-APR-81

588

!
|

MACRO v04.00

—

MOV
MOV

#DRYNUM,R1
RMADR, R4

;DRIVE NUMBER TO R1

JUNIBUS ADDRESS OF RH/RM (RM(S1)

B
JRM
-

wMOS /32

N /RM DRIVER

FORMATTER
WA[
D
INITIALIZATION CODE

8 10

265

266

267
268
269
270 030700

271
272
273
276
275

030702
030706
030712
030716
030722

030340
030250
03040¢
020010
000111
010000

276 030730

030340
004000

1%:

035110

000004
020024

030350

000005
020025

030350

024025

000007
020027

030350

S2%
REENSFRE
RO SN
NN
xpnuu

B8R

A 3

JLEAVE

CLRB
B8IT
BEQ

DRVSTA(RY)

JSET DRIVE

43
RO,RD.RM

;BR IF DRIVE NOT AVAILABLE
;READ THE DRIVE TYPE REG.

MOV

(SP)+ RS
#4 ,DRVTYP(RY)
#20024 RS

;PUT DRIVE TYPE IN RS
;SET RMO3 INDICATOR
;SINGLE PORT RMO3 ?

(MP
BEQ
MOVB
(MP
BEQ
CMP
BEQ

#24024 RS

;DUAL PORT RM0O3 ?

#20025 RS

tTMMP

824027 ,RS

;DUAL PORT RMOS ?

#=1_,DRVIYP(R1)

;SET

MOVB
cMP
BEQ

024027
177777

BEQ
MOVB

030350

012746
004037
000000

000121
035270

2%:

010000
035270

JCALLED BY A USR

JERROR OCCURRED (PARITY!

030444
035110

#1711, ,RMCST(RG)

JSELECT A DRIVE
;DO A DRIVE (LEAR COMMAND (& SEIZE DRIVE)

:?ITIZ.RH(SZ(Rk).NO
PLSET,IE

#BIT11,RMCST1(RS)

2%
2%

#5,DRVTYP(R1)

#24025 RS

#7 ,DRVTYP(R1)
#20027 RS

JNONEXISTENT DRIVE?

;GO SET ““IE'" WITHOUT A "'TRE''
THIS ROUTINE

STATUS TO OFFLINE

;SEE IF DRIVE AVAILABLE

;ERROR RETURN ADLRESS

;BR IF YES

:BR IF YES

;SET RMO2 INDICATOR

;SINGLE PORT RM0O2

:BR IF SO

;DUAL PORT RM0OZ2 ?

;BR IF SO

;SET RMOS IND!CATOR
;SINGLE PORT RMOS ?

;BR IF YES

°'OTHER®

#121,-(SP)
RC,¥RT .RM

;DO A '"READ=IN PRESET"'

#BIT12,-(SP)

:SET FMT16=1

RO,RD.RM

;READ RMDS

5%
MOV
BPL
MOVB
JSR
RMER1

RO,WRT.RM

(SP)+,R5
3%

JEXIT

It )ICATOR

MOV
JSR
RMCS1
5%
MOV
JSR
JSR
RMDS

000016

;SAVE RS
;START DRIVE STATUS AS OFFLINE
- «CLEAR THE DRIVE TYPE INDICATOR
sCLEAR THE UNLOAD FLAG

035110

:NORMAL RE TURN

RMOF

o
Sw

RS,=(SP)
DRVSTA(R1)
DRVIYP(R1)
ULDFLG(R1)
R1,RMCS2(RG)

MOVR
CMP
BEG

024024

o
s Db TM L= ]
e

MOV
CLRB
(LRS
(LkA
MOV
MOVS

JSR
RMDT

e L B
B

RO,DRVINT

WWN
N
b
b

OCO

N AN N N W NN W AW N N W W N NN
o ol et il il ol i ) e il ol el ol e il v

OCOCOOOOOOOOCOCOOOODOO0

SR
RE TURN?

8IT
8EQ
JSR

8888888
—

oy ol et o

)

W
O
~30 NN

AN NN N NN N N N

900600
00601

035600

251 031010
292 021014
293 031016
294 031024
295 031030
29 031032
297 031036

45-5

RETURNZ

277 030736
278 030740
279 030744
280
281 030746
282 030752
283 030760
284 (30762
285 030766
286 030770
287 030772

RORS

18:39:56 PAGE

sue .UV

JAND SAVE IT IN RS
;BR IF ATA=0
:
ATABIT(R1) ,RMAS(R4)
;CLEAR ATTENTION BIT
RO,RD.RM
;FIND OUT WHY ATA=1

JRMLBO RMOS/3/2 FORMATTER

Rr/RM

DRIVER

INITIALIZATION

322 031152
323 031154

226 031156
325 031160
ggg 031166
328 031170
329 031172
330 031176
331 031200
332 031206
333 031210
334 031212
335
336
337
338
339
340
341
342
343
344
345

346 031214
247
348
349
350

031220
031226
031234
031236

351 031240
352 031244
353 031246
354 031252
355 031256
356 031260
357 031264
558 031266
359 031272
360 031274
361 031300
362 031302
363 031306
364 031310
365 031314
366 031316
267 031322
368 031326

,04.00

100004
112761
000407
005105
042705
001003
112761
005720
012605
000200

4=-APR-8]

¢ 10
'8:39:56 PAGE 45-6

CODE

031210
006126

b3 3
ROL

177777

030340
3%

167077
000001

B8PL
MOVR
8R

030340

4%
85

(oM
BIC
BNE
MOVB
1ST
MOV
RTS

(SP)e

k.
s CALL
:
2
:
:

‘

Q13746

013737
112737
104412
011002

005062
111201
013704
105761

003014
105761
001036
105761

369 031330
370 031336
371 031340
372 031346
373 031352
374 031354
375 031360
376 031362
378 031372

004737

000434

177776

030462
000001

000016

177776
030404

RMOS5 :

;

030456
030340
030406

030360

030700
030340
030370

18:

000010
036242

000103

000002

177777
030330

030406

031506
120000

JEXIT

;CHECK MOL,

(032564

MOV

MOV
MOVB
SAVREG
MOV

(LR
MOVB
MOV
1STB
BGT
1STR
BNE
TSIB
BNE
JSR
8R
1STR
BLE
1S78
BNE
MOV
JSR
BR

3%:
4%:

JSR

2%:

B8R

DPR, DRY,

#°(<BIT12:B1708:B1107!BI1T06>,R5
4%
;BR IF MOL, DPR,
#1 ,DRVSTA(RT)

+
(RO)
(SP)+ RS
RO

RO,RMOS

RETURN1
RETURNZ

CMPB
8NE
MOVB
T1STR
BNE
JSR
BR
MOV

)
000016

JSR
PNTADR

IS 1T UNSAFE?
JBR IF NOT
JSET UNSAFE INDICATOR

#-1 ,DRVSTA(RY)
3

;REQUEST PRE=-PROCESSOR=HANDLES

001042
004037
000434
105761
003445
105761
001031
010164
004037
000460
122762
001003
112761
105761
001043
004737
000440
012762

377 031370

MATRD

AND VvV

DRY, OR VvV IS (LEAR

“SET DRIVE STATUS TO ONLINE

‘STEP OVER THE ERROR RETURN
:IE?)E(flORE RS
SUBSYSTEM REQUEST

;CALL THE RMO5 DRIVER

;ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK
sRETURN HERE IF QUEUE IS FULL
JRETURN HERE IF REQUEST IS IN QUEUE OR THERE

;1S AN ERROR CONDITION
PS,.~(5P)

RMVE(C+2,PS

;SAVE THE CALLING STATUS
;DON'T ALLOW ANY RM INTERRUPTS

(RO) ,R2

;PICKUP THE DRIVE PARAMETER BLOCK POINTER

#1,ACTDRV
16(R2)

(R2) ,R1
R4
RMADR,
DRYSTA(RY)
1%

ULDFLG(RY)

DPINT(R1)
5%

RO,DRVINT

43
DRYSTA(R1)
6%
DPRQS(R1)

R1,RMCS2(R4)

RO, DRVQUE

9%
#103,2(R2)

#-1,ULDFLG(RT)

DRVACT(RY)
8%

;SET "'ACTIVE DRIVER'' FLAG
:SAVE RO - RS

;CLEAR THE STATUS/ERROR INDICATOR
;PICKUP THE DRIVE NUMBER
;UNIBUS ADDRESS OF RM(CS1
;CHECK DRIVES STATUS
;BR IF ONLINE
JUNLOAD COMMAND IN QUEUE?
;BR IF YES
;TRYING 10

INIT

THE

DRIVE

;BR IF YES
;GO INIT. THE DRIVE
;ERROR RETURN
;1S DRIVE STATUS ONLINE?
:BR IF NOT
;OUTSTANDING PORT REQUEST FOR THE DRIVE ?
;BR IF YES
;SELECT THE DRIVE
;PUT THIS REQUEST

IN QUEUE

;QUEUE IS FULL
;1S THIS REQ. FOR AN UNLOAD?
:BR IF NO
;SET THE 'UNLOAD IN QUEUE'' FLAG
;IS THIS DRIVE ACTIVE?
:BR IF YES

;CALL THE OPTIMIZER
8%
£
;SET THE ''UNLOAD IN QUEUE'' ERROR FLAG
#31715!BIT13,16(R2)
8%
SEXIY
PC.C17
;GO HANDLE THE PARITY ERROR
PC,OPT

JRMUB0O RMOS5/3/2 FORMATTER
MACRD
He/BM DRIVER INITIALIZATION CUDE

379 031376
380 031400

000431
004037

¥
(36242

282 031406
383 031412
386 031414

032714
001023
004737

000100

386 031422
387 031426
388 031430
389 031436

105761
002412
012762
105761

030340

391
392
393
394
395
396
397

012762
000403
012762
104413
005720
000401
104413

381 031404

385 031420

330 031442

031444
031452
031454
031462
031464
031466
031470

000431

000420

001007

398 (031472

005720

400 031500

012637

399 031474

285 031504

105037

000200

4=4PR-B1

2
5%

R
JSR

8%
RO, DRVQUE

;PUT REQUEST IN QUEUE

817
BNE
JSR

#1706, (R&)
8%
PC,SET.IE

:1E BIT SET ?
SYES
;SET THE INTERRUPT

TSTR
BLT
MOV
1STR

DRVSTA(R1)
- :SEE IF DRIVE OFFLINE OR UNSAFE
7%
;BR IF UNSAFE
#RiT15!BIT14,16(R2)
;SET OFFLINE ERROR INDICATOR
DRVTYP(R1)
:SEE IF OFFLINE OR NONEXISTENT

MOV
&R
MOV
RESREG
ST
BR
RESREG

#RIT15!B1T01,16(R2)
;REPORT DRIVE NONEX'STENT
8%
;GO TO EXIT
#RIT1S!BIT12,16(R2)
:DRIVE 1S UNSAFE
JRESTORE RO - RS
(RO) +
:SETUP FOR NORMAL RETURN
108
JFINISH UP, THEN EXIT
JRESTORE RO - RS

CLRB

ACTDRV

RTS

035600
68

140000
030350

000016

100002

000016

110000

000016

1B:39:56 PAGE

B8R

7%:
8%:

10%:

177776

45-7

B8R

;QUEUE IS FULL

BNE

9% :
030404

D 10

,L4.00

TST

MOV

;RETURN

:BR IF OFFLINE

(RO) +

;CORRECT THE RETURN ADDRESS

(SP)+,PS

JRETURN 'PS'' TO USER LEVEL

;CLEAR "'ACTIVE DRIVER'' FLAG
:RETURN TO CALLER

282

;OPTIMIZER-CALLED FOR A PARTICULAR DRIVE

405

;CALL

28;

406

405
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425

031506
031510
031514
031522
031526
031532
031534
031536
031542
031550
031556
031560
031564
031566
031572
031600
031604

104412
013746
146137
105061
004737
005702
001466
010164
012764
032764
001442
1057617
003014
004737
012762
105761
100047

427 031614
428 031616
437 031616
438 031624
439 031626
440 031632
441 031634
442 031640
443 031642

000443

426 031606

177776
030444
030370
036316

000010
000117
00400¢

MOV

#DRYNUM,R1

OPT:

SAVREG
MOV
BI(B
CLRB
JSR
ST
BEQ
MOV
MOV
BIT
BEQ
TSTB
BGT
JSR
MOV
TST8
BPL

:SAVE RO - RS
PS,=(SP)
:SAVE PROC. STATUS
ATABIT(R1) ,SRCHWT
:CLEAR LA SEACH FLAG
DPRQS(R1)
RESET THE PORT REQ FLAG *»w*»
PC,GETREQ
:GET '"DPR'' POINTER OF REQUEST
R2
;1S THERE A REQUEST IN QUEUE?
7%
;NO--BR TO EXIT
R1,RMCS2(R4)
;LOAD THE DRIVE ADDRESS *»#x#x»
#111,RMCS1(R4)
;CLEAR THE DRIVE
#BIT11,RMCST(R4)
:DVA SET ?
:
5%
;TO PORT REQUEST ,IF NOT
DRVSTA(R1)
;IS DRIVE ONLINE?
2%
:YES
PC ,POPQUE
:NO--REMOVE REQUEST FROM QUEUE
#RITI5!BIT14,16(R2)
:SET OFFLINE STATUS/ERROR INDICATOR
DRVSTA(R1)
;IS DRIVE UNSAFE ?
8%
:BR TO EXIT IF NOT

:BR TO EXIT

#150,2(R2)
3%
PC,CI4
8%
DTUW

:1S THE REQUEST FOR 1/0?
:YES
:CALL THE COMMAND INITIATOR
:BR TO EXIT
:DATA TRANSFER UNDERWAY?

030402

000000
002000

030340

1%:

036340
140000
030340

000016

012762

110000

000016

122762
002403
004737
000434
005737

000150

000002

002006
005737

2%:

030420

3%:

CMPR
BLT
JSR
BR
ST
BGE
TST

:DRIVE NUMBER TO R1

PC,OPT

MOV

032150
030442

JSR

;SETUP A COMMAND

#RIT15!'BIT12,16(R2)

A 3
SEEKFG

:SET UNSAFE STATUS/ERROR INDICATOR

:YES==-GO START A SEARCH
;DO IMPLIED SEEKS?

JRMUBD RMOS5/2/2 FORMATTER
MATRD
Se/RM DRIVER INITIALIZATION (ODE
444
445
446
447

(031646
031650
031654
031656

100003
004737
000423
004737

469 031664
450 031472
451 0316764
452
031676

112761
010103
006303
(012763

177777

(30370

035230

030422

004737

032564

4468 031662

453

000420

0317064

000402

455 0%1712

032714

454 031706
456
657
458
459

031716
031720
031724
031730

22? 031732

001002
004737
012637
104413

(31734

032062

000100

035600
177776

gz
2

2;}

47% 03173

004737

036340

476 031746

013704

030456

478 031756
479 031762

062703
062704

000004
000002

481 031770
482 031772

012324
012346

484 032000
485 032002
486 032004

000006
032564
012346

010237
010203

010164

012324

030400

035270

004037
000034
032564
016246
004037
000000
032564
010137

035270

497 032042

013704

030456

499 0%2052

016246

000012

458 032046
500 032056

000137
010164

004037

Cl1:

E 10

18:39:5¢ PAGE

45-8

BPL
JSR
41

4 3
PC,CI
es

sNO, DO A SEAR(H
;START A DATA TRANSFER

B8R

;GO TO THE EXIT

JSR

MOVB
MOV
ASL
MOV

B8R

PC,C13

:START A SEARCH

#-1,DPRGS(R1)
;SET PORT REQUEST INDICATOR
R1,R3
;SET UP TO ADDRESS WORDS
R3
-sCONVERT TO WORD INDEX
#15000., TIMER(R3)
JSTART 15, SECOND TIMER

JEXIT

BIT

#BIT06, (R&)

;SEE

RTS

JSR

BNE
JSR
MOV
RESREG

PC.CI7

;PROCESS THE PARITY ERROR

8%
PC,SET.IE
(SP)+ PS

JSR

"IE'

ALREADY SET

:BR IF SET
JSET “'IE' WITHOUT A "'TRE"’
JRESTORE PROC. STATUS
JRESTORE RO = RS

;DRIVE KUMBER
:ADDRESS OF DPBR

2C17= C11,.C13. OR Clé
;WHERE:

:C11=DATA TRANSFER
;C13=SEARCH REQUESTED BY DATA XFER

:C14=NOT DATA TRANSFER
PC ,POPQUE

R2, TRNSWT
R2.R3

MOV

R1,RM(CS2(R4)

MOV

(R3)+,(R4)+

RMDA
c17
MOV

;REMOVE REQUEST FROM 'DRIVES WAIT'' QUEUE

RMADR , R4

:PUT REQ. IN TRANSFER WAIT QUEUE
:DPB ADDRESS TO R3
:RMCS1 ADDRESS

#4 ,R3
#2 R4

;DESIRED WORD COUNT
;RMWC ADDRESS

(R3)+,(R4)+
(R3)+ ,=(SP)

:LOAD BUFFER ADDRESS
;LOAD.SECTOR AND TRACK

RO,WRT.RM

{R3)+,=(SP)
RO,WRT ,RM

;SELECT DRIVE

:LOAD WORD COUNT

:CALL THE LOAD(WRITE)

ROUTINE

;INDEX OF REGISTER TO LOAD
;ERROR RETURN ADDRESS
;LOAD CYLINDER ADDRESS

JSR
RMDC
c17
MOV
JSR
RM(ST
17
MOV

2(R2),~(SP)
RO,WRT.RM

:LOAD ''COMMAND+GO'', "'A17BA1&'',

R1,DTUW

:SET "DATA TRANSFER UNDERWAY''

MOV

RMADR ,R&

JMP

€13:

PC.C1?

MOV
MOV

JSK

032526

#DRVNUM, R
#DPR ,R2

MOV
MOV

030442

035270

JSR

ADD
ADD

000002
035270

000010

MOV
MOV

MOV

000010

004037

232 032036

8%:

469
470

487 032006
488 032012
489 032014
490 032016
491 032022
492 032026
493 032030
494 032032

L68

48% 031774

6$:

JCALL
3
-

Le?7

480 031766

S%:

4=-4PR-B1

;COMMAND INITIATOR
z

LEL
465
L6

477 031752

4%:

000207

62
463

476 0317640
475 0317244

JU4.00

MOY
MOV

JSR

€IS

R1,RMCS2(R4)
12(R2) ,~(SP)

RO,WRT.RM

:RMCS1

ADDRESS

sSELECT DRIVE

:DESIRED CYLINDER ADDRESS

AND "%SEL''

MATRC
IRMLB0 RMOS5/3/7¢ FORMAT TER
R /RM DRIVER INITIALIZATION CODE

501 032062

000034
032564

000010

002002
062703
010346

000040

= O

004037
000008
032564
012746
004037
000000
032564

000567
013704
010164

030456
000010
000002
000131

&~ o

— -2

527 032204

528 032206
529 032210
530 032214
032216
032222
032226
032230

001007
016246
004037

000006
032564
000403
122703
001007
016246

004037
000034
032564
000546
122703

001013

(17

8GE

ADD

MOV
MOV
JSR
RMDA

000001

€1z

000131
035270
0304<4

32164
523 032170
526 032172
525 032176
526 032202

Jnnuw:uununn
N
WINW
ID‘MSthhflhu*

000011
035270

156137

116203
122703

4=APL=§1

MOVE

030464

i un

WWIWN
QOO
EECNDC)
nn

MOV

JSR
KM ST

17z

030402

ogomo
035270

000105
000012
035270

1%:

2%:

035110

—
-

000103

ol el ol

BNE
MoV
JSR

(MPB
BNE
JSR
RMOF

JSR
RMOF
r
.

BEQ
(MPR
BEQ
{MPR
BNE
MCVR
(LRR
MOVR

NN AN N AN

rurofoRoRLNURLNY

SN AU

000117

#8131 ,=(SP)
RO,WRT.RM

;START A SEAR(H

_
RM
RO,WRT

;bR

(MPB

MOV

1SR

THE ADJUSTED SECTOR wlTw

s THE DESIRED TRACK
sLOAD DESIRED TRA(K & SE(TOR

MOV

sCOMBINE

11(R2) ,1(5P)

;RMCS1

RMDC

3%:

JPICKUFP SECTOR ADDRESS
(BACKUP BY MAX, SEARCH FOR 1/0 WINDOW

, R4
RMADR
R1,RM(SZ2(R4)
2(R2) ,R3

c17

000115

10(R2) ,R3
MXWNDW ,R3
1%
#32. ,R3
R3,={5P)

MOV

cl7

000107
OOOO0O00000

ATABIT(R1),SR (HWT

(17

2703

T8:39:5¢ PAGE 45-G

BISR
BR

MOVB
CMPR
B8NE
MOV
JSR

000001
035270

2232888
m
OronRL =N

= OO0 NN

PORIND =S b el =D e el d md e -

AN LA
AN W

116266

RMD(

116203

163703

FUR

JSET "'SEARCH WAIT'' kEY

cIs

#131,R3

10(R2) ,=(SP)
RO,WRT.RM

ADDRESS

;SELECT DRIVE
;PICKUP

THE

REQUESTED

;IS IT A SEARCH COMMAND?
IF

;LOAD DESIRED TRACK & SECTOR

#105.R3

;GO LOAD CYLINDER
;1S IT A SEEK COMMAND

12(R2) ,=(SP)

;LOAD DESIRED CYLINDER

RO,WRT.RM

16
#115,R3
4%
RC,RD.RM

(GMMAND

;BR

;IS IT AN "'OFFSET"" COMMAND?

;BR IF NO
JMERGE THE OFFSET VALUE INTC RMOF
;BUT DON'T CHANGE THE UPPER

1(R2),(SP)
RO,WRT.RM

;BYTE WHEN LOADING THE

Ccl6

;GO START THE COMMAND
;1S IT A "RECALIBRATE"'" COMMAND?
;BR IF YES

#107,R3
16
#117,R3
(16

#103,R3
5%

#1,DRVACT(RY)

DRVSTA(RT)

#1,ULDFLG(RT)

R3,=-(SP)
RO,WRT.RM

;REGISTER (RMOF)

;IS IT A RETURN TO CENTER?
;BR IF YES

;IS IT AN "'UNLOAD'" COMMAND?

;BR IF NO
;SET THE DRIVE ACTIVE INDICATOR
JPUT DRIVE STATUS TO OFFLINE
JSET "UNLOAD IN PROGRESS'' FLAG
;START

THE “UNLOAD'' COMMAND

ML
JRMUBU WMOS/3/0 FORMATTER
ar/RM DRIVER INITIALIZATION (ODE

032346
032352
032354
032360

032564

182;83
000743
14

0010

004037

564 032362

565 032364
566 032372
567 032376
568 032400
50% 032402
570 032404
571 032410

580 032442
581 032446

582
ng
584
585
586
587

000002

032434
8%:
3%

- COMBINE "¥MT16',"ECI'", AND "W(C]"'
;LOAD "FMT16'", "ECI"", AND/OR "M(I"".

8R
CMPR
8NE

12%
#1417 ,R3

IS IT A "'GET REGISTER'' COMMAND?

MOV

6(R2) ,R3

JPOINTS TO 1ST ADDRESS OF WHERE

MOVR
MOVRB

10(R2) ,9%
11(R2) ,RS
RO,RD.RM

JINIT. THE INDEX FOP THE fIRST REG.
; INDEX OF LAST REG. TO MOVE
JREAD RH/RM REGISTER

588 032474

036340
000200
030416

11%:

000016

035482

000207

010346
004037
000000
032564
000761

032764
005702

001001
000207
012762

12%:

13%:

023420

030422

000001

030330

ADD

10%:

035270

JSR
RM(S1

MOV
CMP
BEG

032434

000145

589 032476
590 032500

591 032504
592 032512
593 032516
594 032520
595 032524
596
597 032526
598 032530
599 032536
600 032540
601 032546
602
603 032550
604 032552
605 032556
606 032560
607 032562
608
609 0 032564
613 0 32572
617 0 32574
“18 0 32576
616 032600
623

1(R2),1(SP)

MOVB
JSR
RMOF

032434

032450
032456
032460
032464
032466
032470

=153

035270

{MPR
BEQ
. MOV
JSR
RM(CS?

€17

JSR
BIS
TST
8PL

104000

RO, RD.RM

JREAD

000010

o000

108

THE

OFFSET

(SP)+,(R3)+

3% RS
12%

#2,9%

#145,R3
128
,

;BR IF NO

:TO PUT THE REGISTER(S)

;GET THE CONTENTS OF RH/RM REG.
:LAST REG. BEEN READ?
*GET OUT IF YES

*INCREASE

THE

INDEX BY 2

:LOOP=-=MORE TO READ

R3,=(SP)

(IS IT A "'SELECT DRIVE'" COMMAND?
‘BR IF YES
:LOAD THE COMMAND

P( ,POPGUE

;REMOVE REQ. FROM QUEUE

SAVEF G

:SAVE

RO.WRT .RM

#BIT07,16(R2)
13§

:SET THE "DONE'’ BIT

ASt

R1
g;oooo.,rxnen(a1>

#71,DRVACT(R1)
s

R3,=(SP)

THE RH/RM REGISTERS?

:BR IF NO

PC,SVRH70

MOV
ASR
MOvAa
RTS

TO READ

;INDEX OF REG.

JSR

RTS

:YES==GO SAVE

THE

*RETURN TO USER

;START

10.

REGISTERS

SECOND TIMER

;SET THE DRIVE ACTIVE
SRETURN TO THE USER

;LOAD THE

RO, WRT . RM

BIT
ST
BNE

#BIT12,RMCS2(R4)
;DRIVE NON-EXISTENT
R2
;ANYTHING IN QUEUE ?

RTS
MOY

COMMAND

MOV
JSR
RM( ST

Ci7

010060

TO USER

RO,WRT .RM

000001

000006

579 032440

sRETURN

RMO

000141

000010
000011
035110

45=10

JI1S IT A "'SET FORMAT'' (OMMAND?
:BR IF NO

(17

572 032412
573
574 032416
575 032424
576 032430
577 (32434
578 032436

G 10

18:23%:5¢ PAGE

#1463,R3
3 ]

BNE
JSR

035110

000001
035270

Ltbl

15
R(meg

— Y

560
561
862
563

558 032342
555 (32344

ADD<R?

:BR IF QUEUE

IS THERE

PC
-OTHERWISE EXIT
#BiTISIBITIY, 16(R2)
sSET "PARITY'" ERROR

INDI_ATOR

JRMU B RMOS/23/2 FORMATTER
kr/RM DRIVER INITIALIZATION

66 032606

012746

032064
032666
032670
032672
032676
032700

647 032704
648 032706
649
650
651
€52

032712
032716
032720
032724

653 032726

654 032730
655 032736

656 032740

657 032746
658 032750
662 032756
663 032764
6646 032770
665 032774
666 033000

667 033002
668 033010

669 033014
670 033020
6746 033026
675 033030
676 033034
677 033040
678 033042
679 033050
680 033054
681 033060
682 033066
683 033070
684 033074
685 033100
686 033104
£87 033110
5g§ 033172
[

)

'8:35:5¢

PAGE

45-M1

8111 ,=(SP)

;00 A "DRIVE (LEAR''

004737

036222

1%:

JSR

2C,EMPTVYQ

JEMPTY THE QUEUE

105061
020237

030330
020400

(LRB
(mMpP

DPRVACT(RY)
RZ2, TRNSW?

“sDRIVE IS IDLE
sIF THIS DRIVE HAD AN T1/0 REQUEST

105061
105061

6461
642
643
644
645
646

4=-APR-RT

MOV

629 032626
630 032632

636 032646
637 032650
638 032654
gzg 032662

J0&. 00

C178:

004037
000000
032664

£31 032636
632 032642

00011

625 032612
£26 032616
627 032620

628 032622

CODE

001005
005037
012737

000207
1046412
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
105061
004737
104413
000207

(35270

030370
030406

030400
177777

030442

CL
{LRR
8NE
(LR
MOV

2%:

RTS

£18:
;

030330

030400
030442

036316

BEQ
MOV

2%:

CMP
BEQ
JSR
1ST

3%:

010000

000010

100002

000016

102000
177777
030330
030370
030442

000016
030422

177777
030400

(030442

030406
010000
:
000002
177770

¢
000010

177777
030400
036144
000040

030442

036222
030340
030350
035600

SAVREG
CLR
(LR
TSTB
BNE
TSTR

1%:
:

030370

JSR
RMCST
(I8

BEQ

:
;

6%:

000010
7%:
8%:

DPRQS(R1)
ULDFLG(RY)
2%
TRNSWT
#-1,DTUW

JCLEAR THE PORT REQUEST FLAG
JCLEAR THE UNLOAD IN QUEUE FLAG
;IN PROGRESS CLEAR ALL OF

THE FLAGS

R1
R3
DRVALT(RT)
2%
DPRQS(R1)
6%
TRNSWT ,R2
R1,DTUW
3%
PC,GETREQ
R2

;SAVE RO = RS

;DRIVE ACTIVE?
;BR IF IN ACTIVE
;PORT REQUEST
;BR IF NOT
;GET THE ''TRANSFER WAIT'' QUEUE
;DID THIS DRIVE HAVE AN [/0 IN PROGRESS?
:BR IF YES
;GET THE DPB POINTER
:QUEUE ENTRY FOR DRIVE

;BR IF NOT

BIT
BEQ

#BIT12,RMCS2(R4)
+*NEDY- SET ?
4%
;BR IF NOT

B8R
MOV
MoV
CLRR
CLRB
(MP
8NE

5%
s CONT INUE
#8IT15!BIT10,16(R2)
;SET "NON-CLEARABLE PARITY'" ERROR INDICATOR
#=1,TIMER(R3)
;STOP THE TIMER
DRVACT(R1)
;SET "DRIVE ACTIVE'' TO IDLE
DPRQS(R1)
;CLEAR PORT REQUEST FLAG
R1,DTUW
;IS THIS DRIVE SETUP FOR A TRANSFER
6%
;BR IF NOT

MOV

4%:
5%:

RO,WRT
. RM

MOV
(LR

CLRB
BIT
INC
ADD
BIC
BNE
MoV
CLR
JSR
MOV
BR
JSR
CLRB
(LRR
JSR
RESREG
RT1S

#RITI1SIBITOT1,16(R2)

#-1,DTUW
TRNSWT

;SET "DRIVE NON-EXISTENT' INDICATOR

JRESET THE INDICATOR
;CLEAR THE TRANSFER QUEUE

ULDFLG(RY)
;CLEAR UNLOAD FLAG
#BIT12,RMCS2(R4) .
;'NED* SET ?
R1
JMOVE 7O THE NEXT DRIVE
#2 ,R3
#*(C7 ,R1
1%
:BR IF MORE DRIVES
#=1,DTUW
;NO DATA TRANSFERS UNDERWAY
TRNSWT
;CLEAR THE 'TRANSFER WAIT' QUEUE
P(,CLRQUE
;CLEAR ALL OF THE REQUEST QUEUES
#CLR,RMCS2(R4)
;DO A MASSBUS INIT.
8%
:
: CONT INUE
PC,EMPTYQ
;CLEAR THE DRIVE'S QUEUE
DRVSTA(RT)
;SET DRIVE TO OFFLINE
DRVTYP(R1)
JCLEAR THE DRIVE TYPE INDICATOR
PC,SET.IE
;
JSET "IE'" WITHOUT '‘TRE"’
JRESTORE RO = RS
P
;RETURN

"M B

WMOS

Fe R LR

/300 FORMATTER

INITIALIZATION CODE

q;‘:n:‘

. ..6. v

L=APk=R]

S INTERRUPTY

033114
693 033122
696 033126
695 033130
£96 033134
697 033136
698 033142
699 033146
700 033150
;83 033154

1127%7
106412
013704
013701
002402
004737
004737
1046413
105037
000002

000001

030406

030456
030442
033156
(033326

18:
2s:

(30404

;82
706 033162

719
720
721
726

SERVICE

MOyR
SAVRE G
MOV
MOV
BLY
JSR
JSR
RE SREG
(L
RTI

ROUTINE

#1 ,ACTDRY
RMADR , R4
DTUW,R1
1%
PC,TD
PC,SC

ACTDRY

JSET "ACTIVE DRIVER'® FLAG
:SAVE RO = RS
;ADDRESS OF RM(S1
;GET 'DATA TRANSFER UNDERWAY'' INDICATOR
:BR IF NO DATA TRANSFER UNDERWAY
;CALL TRANSFER DONE
;CALL SPECIAL CONDITIONS
JRESTORE RO - RS
;CLEAR "'ACTIVE DRIVER'' FLAG
:RETURN

: TRANSFER DONE ROUTINE

705 033156
707
708
709
710
711
712
713
714
715
716
717
718

SA:

110
18:33:56 PAGE 45-12

033170
033172
(33200
033202
033206
033212
033220
033224
033230
033232
033234
033236

105061

012737

006301
012761
006201
013702
005037
052762
010164
004037
000000
032564
006126
100417

033240
033244
033246
033252

005737
100002
004737
004737

729 033260

001403

728 033256

730 033262

005702

004737

731 033266 000207
732 033270
012714

;;2 033274

000207

735 033276
736 033304

052762
004737

;29 033324

000207

737 033310
738 033314
739 033320

004737
012714
012714

030330

177777

030442

177777

030422

030400
030400
000200
000010

030416

03636

1%:

031506
000113
100100
036222

2%:
000016

3%:

035462
040111
000113

DRVACT(RY)

#=1,DTuw

R1
#-1,TIMER(RT)
R1
TRNSWT ,R2
TRNSWT
#B1107,16(R2)
R1,RMCS2(R4)
RO,RD.RM
(SP)+
3%

TST
BPL
JSR
JSR

SAVEFG
13
PC,SVRH70
PC,GETREQ

BEQ

187

JSR

PC,OPT

RTS

RTS
MOV

P(
#113,(R4)

:SET DRIVE ACTIVE
:NO DATA

;CANCEL

INDICATOR TO IDLE

TRANSFERS UNDERWAY

TIMEOUT

:GET 'DPR'' ADDRESS FROM THE
:TRANSFER WAIT QUEUE--CLEAR QUEUE
:SET DONE
:SELECT THE DRIVE
:TRANSFER ERROR(TRE=1)?
;1S TRE=1 ?
:BR IF YES

:SAVE THE RH/RM REGISTERS?
:BR IF NO
;YES==SAVE THE REGISTERS
:GET DPR PCINTER
:ENTRY FOR DRIVE

;PR IF NOT

:(ALL OPTIMIZER
;RETURN
;RELEASE

:RETURN

THE DRIVE

81s
JSR

#BIT15!B1706,16(R2)
;SET DATA ERROR FLAG
PC,EMPTYQ
;EMPTY THE 'DRIVE'S WAIT"' QUEUE

RTS

=T¢

JSR
MOV
MOV

PC,SVRHZ0
#40111,(R4)
#113,(R4)

:SAVE THE RH/RM REGISTERS
:ISSUE A ‘DRIVE CLEAR''
:1SSUE A RELEASE TO THE DRIVE

:RE TURN

:SPECIAL CONDITION ROUTINE

766 033326
767 033332

116403
001014

769 033340

000000

004037

770 033342
771 033344

032664
106126

773 033350

004037

772 033346

000016

035462

(LRB

MOV

ASL
MOV
ASR
MOV
(LR
8IS
MOV
JSR
RMC ST
c17
ROL
BM]

035110

;gg

768 033334

100405

000016

035110

SC:

MOVR
BNE

JSR

RM(CST

€18
ROLB

036406

BM]

JSR

RMAS (R4) ,R3
2%

;READ 'RMAS''
:BR IF ANY °'ATA' BITS SET

(SP)+

18 TE=1?

RO,ES.SAV

:SAVE

RO,RD.RM

:READ CONTROL AND STATUS REGISTER

JYES, NO DRIVES TO (HECK
THE ADDRESS

IN 'SESCAPE"

TIRMLBO RMOS/3/2 FORMATTER

&rn/RM DRIVER

[NITIALIZATION

033354

776 033356
775 03336¢

10400

004737
000207

776 033364

005046

778 033370

012703

777 03336

110316

MATRD

v04.00

gmMT

(35600

1$:

2s%:

781 033376

(030316

$C3:

784 033402
785 033404

005201
106303

SCh:

787 033410
;gg 033412

005726
000207

790 033414

791
792
793
794
795

105761

001402
000137
105761
001402
000137

797 033444
798 033446
799 033452

(003023
105761
003420

796 033440

105761

034340

030370

030340

036316
035462
034270

105761
003414
032737
001000
013705
000504
105761
001033
004737

030340

817 033526
818 033532
819 033534
820 033540
821 033542
822 033550
826 033552

105761
001323
105761
100412
032737
001013
012746

828 033562
829 033564
830 033566
831 033570
033574
832 033576
833 033600
033600

000000
034130
011605
004037
104002
000701

004037

2%:

030406

004737
004737
004737

827 033556

1%:

034340

800 033454
801 033460
802 033464
803
804 033470
805 033474
806 033476
807 033504
811 033506
812 033512
813 033514
814 033520
815 033522
816

SCS:

040000

030320
3%:

030330

4%:

034270

030360

5%:

030340
030324

000111

035270

036406

(36406

7%:

AN 'ATA''=1

#1 ,R3

BI7

R3, (SP)

;ATA=1?

INC
ASLR

R1
R3

JMOVE

1ST
RTS

(SP)+
PC

:CLEAN OFF THE STACK
sRETURN TO USER

TSTR

DPINT(R1)

TSTR

DRYSTA(R1)

BEQ
JMP
1STB
BEQ
JMP

SC5

SC3

SYES

THE

NEXT DRIVE

;BR IF MORE TO CHECK?

JINITIALIZING THE

DRIVE

1%
SC13
DPRQS(R1)
2%
SC13

:BR IF NOT
;PROCESS THE DRIVE
;PORT REQUEST OUTSTANDING ?
;BR IF NOT
:START THE OUTSTANDING COMMAND

BGT
1STR
BLE

43
ULDFLG(R1)
4%

:BR IF ONLINE
:UNLOAD IN PROGRESS?
;BR IF NOT

1STB
BLE
BIT
BNE
MOV
8R
TSR
BNE
JSR

DRVSTA(R1)
5%
#B]1T14 ,RMERRS
3%
RMERRS+2,RS
SC6A
DRVACT(R1)
SCé
PC,SC12

:GET DPB POINTER
:SAVE THE RH/RM REGISTERS
:SAVE RMDS, RMER1, RMER2, AND RMMR?
JALSO DO A DRIVE INIT (DRVINT)
;DID DRIVE COME ONLINE?
:NO
;WAS THERE AN ERROR?
;BR IF ERROR
;YES == PICKUP RMER1 AND
;GO PROCESS THE ERROR
:DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ?
:BR IF EITHER
:SAVE RMDS, RMER1, RMER2, AND RMMR?

TSTB
BNE
TSIB
BM]
BIT
BNE
MoV

DPINT(R1)
SCh
DRVSTA(R1)
6%
#81T13,RMERRS+4
7%
#111,-(SP)

:TRYING TO INIT THE DRIVE ?
;BR IF YES, CHECK ON MORE DRIVES
:CHECK ON DRIVE'S STATUS
:BR IF UNSAFE
;ADDRESS PLUG CHANGED ?
;BR IF YES
;DRIVE CLEAR

JSR

6$:

INTERRUPT

JSET INTERRUFT ENABLE
:RE TURN

MOV

JSR
JSR
JSR

030322

020000

JPROCESS ALL DRIVES THAT HAVE

R3, (SP)

BNE

030360

-(SP)

MOVR

BNE

001373

JREPORT AN ILLEGAL

PC,SET.1E
PC

(LR

001005

033420
033422
033426
033432
033434

45-13

JSR
RTS

(LR

000001

(005001

786 033406

J 10

“B:39:56 PAGE

(ODE

Z;g 033374

;g% 033400

4-APR=-B1

RM( ST
SC8
MOV
JSR
EMT
BR
JSR

PC,GETREQ
PC,SVRH70
PC,SC12

RO,.WRT.RM

:CHECK THE DRIVE STATUS

;JALSO

DO A DRVINT

:WRITE THE COMMAND INTO RM(S1

(SP) ,RS
RO,ES.SAV
2
SC4

;REGISTER INDEX
;PARITY EXIT ADDRESS
:PICKUP (RMAS) BEFORE THE ERROR CALL
:SAVE THE ADDRESS IN 'SESCAPE’
JREPORT THE UNEXPECTED ATTENTION
;GO CHECK FOR MORE ATA'S

RO,ES.SAV

;SAVE THE ADDRESS IN 'SESCAPE'

JRMUBO KMOS/372 FORMATTER

kr/RM

DRIVER

INITIALIZATION

033604

000675

836 033610

006301

838 033620
839 033622
840 033626
841 033632
842 033636
843 033642
Bob 033644
845 033646

006201
004737
0101€4
000137
004037
000012
034130
011605

012761

846 033650
847 033652
848 033654
849 033660
850 033662
851 033670
852 C33672
853 033676
854 033700
855 033702
856 033704

006126
100407
105761
003137
052762
000470
004037
000014
034130
012605
004737

858 033714
859 033720
gg? 033722

004037
000000
034130

857 033710

012746

862 033724
863 033726
864 033730
865 033732

006105
100406
005702
001447

867 033742

000443

866 033734

868 033744

879 034010
880 034012
881 034020
882 034026
883 034030
884 034036
885 034040

001015
112761
112761
006301
012761
006201
000137

888 034052
892 034056

105061
004737

100011

032705

052762

030422

S(C6:

030330
10021C

000016

0351710

035462

000111

035270

000016
1%:

K 10
1B:39:56 PAGE 45-14

000016

177777
000001

030330
030340

035230

030422

100220

030330
036340

0000616

;REPORT THE ADDRESS PLUG (HANGE

;SETUP TO ADDRESS WORDS

R1
P(,GETREQ
R1,RMCSZ(R&)
SCN
RO,RD.RM

JRESTORE THE DRIVE ADDRESS
;GET THE DPB POINTER FROM THE QUEUE
" JSELECT DRIVE
;PROCESS THE SEARCH
JREAD THE RM'S STATUS REG.
:

S{4

#-1,TIMER(RT)

JCHECK FOR MCRE DRIVES
sSTOP THE TIMER

(SP) ,RS
JAND PUT IT IN RS
(SP) +
;WAS THERE AN ERROR?
1%
;BR IF ERROR
DRVACT(R1)
;CHECK DRIVE'S STATE
SC1
:BR IF DRIVE ACTIVE WITH ORDER
#RIT15!BIT07!BIT03,16(R2)
;s INFORM USER OF ERROR RECOVER COMPLETION
SC7
RO,RD.RM
;READ ERROR REGISTER #1
(SP)+,RS
PC,SVRH70

#111,=-(SP)

ROL
8M]
5% 4
BEQ

R5
1%
R2
SC7

RO,WRT.RM

JAND SAVE IT IN RS
:SAVE RH/RM REGISTERS

:ISSUE A DRIVE CLEAR

;JWAS "UNSAFE'' CONDITION =12
:BR IF YES
JANYTHING IN QUEUE ?
:BR IF NOT

BIS

#BIT15!'BITO7!RITO5,16(R2)

JSR

RO,.RD.RM

RMDS
SC8
MOV
ROL

SC7

; INFORM USER OF ERROR

;READ DRIVE STATUS REG. #1

MOVB
JSR
BIS
BR

(SP) ,RS
:SAVE RMDS IN RS
(SP)+
"ERR''=1?
2%
;BR IF NO--UNSAFE CLEARED
#-1,DRVSTA(R1)
;DRIVE IS UNSAFE
P(,SVRH70
;SAVE RH/RM REGISTERS
#BIT15!BIT12,16(R2)
:INFORM USER OF UNSAFE ERROR
A

BNE
MOVh
MOVB
ASL
MOV
ASR
JMP

%%
;BR IF YES
2-7,DRVACT(R1)
;ACTIVE ERROR RECOVER
#1,DRVSTA(RY)
;ONL INE
R1
#15000., TIMER(R1)
;START 15. SECOND TIMER
R1
SC4
:

(LRB
JSR

DRVACT(R1)
PC,POPQUE

BIT

3%:

BIS

S(7:

MOV

BPL

030340

010000

033402

ROL
BM]
TSTB
BGT
BIS
BR
JSR
RMER1
SC8
MOV
JSR
JSR
RM(S1
S(8

SC&A:

177777
035462
110000

ASL

MOV

ASR
JSR
MOV
JMP
JSR
RMDS
SC8
MOV

036316
00001C
034160
035110

035110

112761
004737
052762
000423

%g? 034044

177777

004037

874 033762
875 033770
876 033774
877 034002

878 0340046

£EMT

B8R

100240

000012
034130
011605
006126

4=-APR-B1

(ODE

052762

869 033750
870 033752
871 033754
872 033756

873 033760

04,00

104005

ggg 033606
837 033612

MACRD

£#317T12,R5

«'MOL"" = 1.2

#BIT1S5!BITO7!BIT04,16(R2)

;INFORM USER OF ERROR

;DRIVE IS IDLE
JREMOVE THE QUEUE

RMOS/3/2

Rr/BM DRIVER

INITIALIZATION CODE

893 034062

894 034066

895 034070
896 034074
857 034102
898 034106
902 034110
903 034114
904 034120
905 034122
906 034124
907
908 034130
909 034134

910 034136
911 034142
912 034146

913 034150

917
918
919
920
921
922
923
924
925
926

FORMATTER

034150

034154

034160

105761

030406

105061

030406
030444
030340

003002

105761

2%:

030330

SC8:

004737
000137

032606
033402

2%:

105761

030406

SCil:

105061
105061
136137

030406
030330
030444

001012
004737
052762
005737

931 034226
932 034232
933 034240
934 034246
935 034250
936 034256
937 034260
938 034264
939
940 034270
941 034274
942 034302

004737

946 034330
947 034332
948 034334
949 034336
950
951 034340
952 034342
953 034350
954 034352
955 034356

033402

100002
116164

146137
006301
012761
006201
004737
000137

010164
016437
016437

014437
016437
004037
000401
000207
005726
000674

006301
012761
006201
010164

116164

036340
000200
030416

1%:

030402

1%:

000016

035462
030444
030444

000016
030402

177777

030422

2%:

000010
000012
000014
000042
000040
030700

18:39:56 PAG

TSTB
BGY
(LRB

ULDFLG(R1)
1%
ULDFLG(RT)

JUNLOAD IN PROGRESS OR QUEUE?
:BR_IF NOT
;CLEAR UNLOAD FLAG

DRVSTA(R1)
2%

;1S THE DRIVE UNSAFE
sBR IF IT IS

MOVB
TSTB

030320
030322
030324
030326

SC8

000010
030444

000016

CLEAR COMMAND

THE

COMMAND INTO RP(S1

JREGISTER INDEX
JPARITY EXIT ADDRESS

;1S DRIVE IDLE?
sYES
;GET DPB POINTER
;PROCESS THE PARITY ERROR

JSR
JMP

PC,CI7B
SCé

;PROCESS THE UNCORRECTABLE
;CHECK MORE DRIVES

TSTR
BLE
CLRB
CLRB
BITB

ULDFLG(R1)
;"UNLOAD IN PROGRESS'"?
1%
;BR_IF NO
ULDFLG(R1)
:CLEAR UNLOAD FLAG
DRVACT (R1)
;SET DRIVE IDLE
ATABIT(R1) ,SRCHWT
;DOING A SEARCH OPERATION FOR

BNE
JSR
BIS

TST
BPL
JSR
MOvVB

BI(B

MOV

MOV
MOV
MoV
MOV

JSR
BR

SC13:

;DRIVE

~ ;WRITE

DRVACT(R1)
1%
PC,GETREQ
PC,C17

030422

RO,WRT.RM

TSTB

BEQ
JSR
JSR
BR

RTS
TST

177777

#111,-(SP)

;sCLEAR ATTENTION BIT

SCé

MoV
ASR
JSR
JMP

scie2:

ATABIT(R1) ,RMAS (R4)

JMP

ASL

031506
033402

10
45-15

L-APR-B1

BM]
MOV
JSR
RMCS1

036316
032564

034204
927 034206
928 034212
929 034220

945 034324

18:

001405
004737
004737
000402

003402

943 034310
944 034316

000016

l";"' . WU

000111
035270

034164
034166
034172
034176

930 034224

MACRD

mre

JRMUB0O

ASL

MOV
ASR

MOV
MGVRB

sCHECK FOR MORE DRIVES

s CONT INUE

;BR IF

;AN 1/0 COMMAND?

PC ,POPQUE

;REMOVE

SAVEFG

;SAVE

#BIT07,16(R2)

PARITY ERROR

YES

REQUEST

FROM QUEUE

;SET "DONE'’ BIT

THE REGISTERS?

;BR IF NO

PC,SVRH70
:YES==SAVE ALL OF THE RH/RM REG'S
ATABIT(R1) ,RMAS (R4)
;CLEAR ATTENTION BIT
ATABIT(R1) ,SRCHWT
;CLEAR
R1
sWORD INDEX
#-1,TIMER(R1)
;STOP CLOCK
R1
;RESTORE R1

PC,0OPT
SC4

IMPLIED SEEK SET

;START A REQUEST

;CHECK FOR MORE DRIVES

R1,RM(S2(R4)
;SELECT DRIVE
RMDS
(R4) ,RMERRS ;SAVE THE FOUR REGISTERS THAT

RMER1(R4) ,RMERRS+2

sWILL TELL US SOMETHING

RMERZ
(R4) ,RMERRS +4
RMMRZ2
(R4 ) ,RMERRS +6
RO,DRVINT
JINIT. THE STATE OF THE DRIVE
1%
;TAKE ERROR EXIT
PC
sRETURN
(SP)+
;POP PC OFF OF THE STACK

SC8

sPROCESS THE PARITY ERROR

R1
sSETUP TO ADDRESS WORDS
#-1,TIMER(RT)
;STOP THE TIMER
R1
R1,RMCS2(R4)
;SELECT THE DRIVE
ATABIT(R1) ,RMAS(R4)
JCLEAR THE ATTENTION BIT

CZRMLBO RMQS5/3/2 FORMATTER

RH/RM DRIVER

INITIALIZATION CODE

956 034364
957 034370

105761
001424

960 034402
961 034404
962 034410

000240
105761
003014

G58 034372
959 034376

105061
004037

963 034412
964 034414
965 034416
966 034422
967 034430

005702
001426
004737
052762
004737

973 034442

032764

971 034434
972 034440

974 034450
975 034452
976 034454
677 034462
978 (C34464
979 034466

gg? 034472

004737
000414

001006
006301
012761
006201
000402
004737

000137

MACRO v04.00

030360

1%:

030360
030700

1STR
BEQ
CLRB
JSR

NOP
TSTR
BGT

030340

036316
140000
035462

000016

004000

000000

035230

030422

ik 3
BEQ
JSR
BIS
JSR

036340

031506
033402

982
983
384
ggg

JSR
BR

2%:

BIT

4%:
3%:

JMP

BNE
ASL
MOV
ASR
1]
JSR

M 10
18:39:56 PAGE 45-16

DPINT(R1)
2%

JINITIALIZING THE DRIVE
JBR IF NOT

DRVSTA(R1)
2%

;DUMMY PARITY ERROR RETURN
;DRIVE ONLINE ?
. sBR IF YES == START ORDER

DPINT(R1)
RO,DRVINT

R2
3%

034476

005737

990 034512
991 034514
992 034516
993 034520
034524
995 034526
996 034534
997 034536
998 034542
999 034544

104412
005001
005003
005763
002406
166663
003002
004737
005201
(005723

034546
034552
034554
034556
034562

%882 034564

001027
112737

022701
003362
104413
105037
012616

000207

030404
0000017

RMTMR:
030405

030422
000002
034566

1%:
030422

2%:

000010
030405

3%:
4%:

TST

BNE
MOVR

SAVREG
CLR
CLR
ST
BLT
SUB
BGT
*SR
INC
1sT
CMP
BGT
RESREG
CLRB
MOV

RTS

PC,POPQUE
3%

JCLEAR THE INIT INDICATOR
;GO INIT THE DRIVE

;QUEUE ENTRY FOR THE DRIVE
:BR IF NOT

;REMOVE

#31T711 ,RMCST1(R4)

THE QUEUE

;DVA SET ?

4%
;SET THEN CALL OPT
R1
#15000. ,TIMER(RY)
;START 15. SECOND TIMER
R1
3%
PC.OPT
;START THE PENDING REQUEST

SC4

ACTDRV

4%
#1,ACTSTR

R1
R3
TIMER(R3)
2%
2(SP) ,TIMER(R3)
2%
PC,STO

(R3)+
#8. ,R1
1%
ACTSTR

(SP)+,(SP)
PC

;88;

;SOF TWARE TIMEOUT ROUTINE

1009
1010
1011
1012
1013
1014
1015

JNOTE:
;
;CALL:
2
:
;

;PROCESS OTHER DRIVES

JELASPED TIME IN MILLISECONDS ON THE
;CALL RMOS5 TIME ROUTINE

JSR

RE TURN

#DRVNUM,R1
PC,STO

STACK

:CHECK ''ACTDRV & ACTSTR'

;IF NON ZERO EXIT
;SET "ACTSTR"

;SAVE RO - RS
;START WITH DRIVE O
;IS THE TIMER RUNNING?
:BR IF NO
;COUNT THE INTERVAL
;BR IF NO SOFTWARE TIMEOUT
.CALL SOFTWARE TIMEOUT ROUTINE
;MOVE TO NEXT DRIVE
;OUT OF DRIVES?
;BR IF NO
;RESTORE RO - RS
;ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG
:ADJUST THE STACK

;RETURN

THIS ROUTINE MUST BE ENTERED AT PRIORITY 6
OR GREATER

STO
MOV

PC,GETREQ
;GET DPB ADDRESS
#BIT1SIBIT14,16(R2)
s INFORM USER THAT DRIVE OFFLINE
PC,SVRH70
:SAVE THE REGISTERS

;RM TIMER ROUTINE
s CALL
£
MOV
#TIME ,-(SP)
>
JSR
PC,RMTMR

988 034502
989 034504

1000
1001
1002
1003
1004

4-APR-81

;DRIVE NUMBER
s CALL

CZRMLBO RMOS5/3/2 FORMATTER

Rri/RM DRIVER

INITIALIZATION CODE

MACRO v04.00

1016
1017 034566
1018 034570
1019 034572

STO:

1020 034574

1021
1002
1023
1026
1028
1029

030456
000010
035110

034576
034502
034606
034612
034614
034616

4-APR-B1

MOV
MOV
MoV
MOV
MOV
MoV

JSR

RMDS

ST09
7ST8

1030 034620
1031

030360

1033 034630

030370

1032 034626

1034 034634
1035 034636

ST01:

1038 (34650
1039 034654

035076
036316

1047 034702
1048 034706

035462
030330
030406
030400
177777

1040 034660
1041
1045 034672
1046 034676

101000

TSTB

BNE

TSTB
BNE
MOV

030400
030442

1036 034642
1037 034646

BMI

CMP
BEQ
JMP
JSR
BIS
JSR
CLRB
CLRB
CLR

000016

030442

MOV
BR

N 10
18:39:56 PAGE 45-17

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

;SAVE R1
;SAVE R?2

R4 ,=(SP)
RMADR ,R4

;SAVE R4
;GET ADDRESS OF ‘RM(S1'’

R3,-(SP)

R1,RM(CS2(R4)
RO,RD.RM
+
(SP)

ST02
DPINT(R1)
ST02
DPRQS (R1)
ST02

TRNSWT ,R2
R1,DTUW
1%

ST09

;SAVE R3

. sSELECT THE DRIVE
JREAD 'DRIVE STATUS REG''

;1S 'DRY''=1?
;BR IF

YES

sTRYING TO INTIALIZE

THE DRIVE

JBR IF YES
;OUTSTANDING PORT REQUEST FOR THE DRIVE
BR-1F

YES

BR 1P YES

PC,GETREQ

;1F NOT DON'T BOTHER DRIVES
:GET DPB ADDRESS

RMAS (R4) ,RS
ATABIT(R1)
,RS

sREAD ATTENTION REG
:IESATTENYION FOR THIS DRIVE UP ?

#BIT15!BIT09,16(R2)
;SET THE ERROR FLAGS
PC,SVRH70
:SAVE RH/RM REGISTERS
DRVACT(R1)
;DRIVE IS IDLE
ULDFLG(RT)
;CLEAR THE UNLOAD FLAG
TRNSWT
;CLEAR DPB ADDRESS
#=1,DTUW
;CLEAR THE TRANSFER DRIVE #
ST09
;DON'T BOTHER OTHER DRIVES

000470

1051 034716
1052 034722
1055 034726
1054 034730
1055 034734
1056 034736
1057 034742
1058 034744
1059

116405

136105
001007
105761
001021
105761
001035
000454

030444

1061 034752

105761

030360

034754
034760
034762
034770

001003

105761
001446
012763
000442

030370

34772
34776

004737
000437

032664

STOS:

JSR
BR

PC.CI8
STO09

;GO HANDLE THE PARITY ERROR

35000

105061
105061

030360
030340
177777
036316

ST06:

CLRB
CLRB
MoV
JSR
TST
BEQ
BIS
BR

DPINT(R1)
DRVSTA(R1)
#-1,TIMER(R3)

;CLEAR THE INITIALIZE INDICATOR

STO8

sFINISH

1060 034746

OO
OOO0O0O0O000C

JFANANISO
~

oo~

D
e e

slalelelelelelels]

ZEEER

1062
1063
4
5

012763
004737
005702
001424
052762
000414

000016

STO2:

030360
030370

177777

140000

MOVB

BITB
BNE
1STB
BNE

TSTB
BNE
BR

STO3:

030422

000016

ST07
STO09

?QINT(R1)

TSTB

DPRQS (R1)
STQ9

BEQ

030422

ST03

DPINT(R1)
ST06
DPRQS(R1)

TSTB

BNE

MoV
BR

;PICKUP TRANSFER WAIT QUEUE
; TRANSFER UNDERWAY ON THIS DRIVE?

1049 034714

1050

#-1,TIMER(R3)

STO9

;TRYING TO INTIALIZE

THE DRIVE

;BR IF YES - DRIVE NOT ONLINE
;OUTSTANDING PORT REQUEST FOR THE DRIVE ?
;BR IF YES - NO RESPONSE TO REQUEST
;OTHER WISE EXIT

JINITIALIZING THE DRIVE ?
sBR IF INIT PENDING
;PCRT REQUEST PENDING ?

;BR IF NOT

;STOP THE TIMER
SEXIT

JSET UNIT OFFLINE
;STOP THE TIMER
PC.GETREQ
;GET THE DPB ADDRESS
R2
;REQUEST IN QUEUE ?
ST09
:BR IF NOT
:
;INFORM THE USER DRIVE NOT AVAILARLE
14,16(R2)
#BIT15!BIT

5/ ¢ FORMATTER
JHMUBD RMOS/

Re/RM

DRIVER

INITIALIZATION

1079 035036
1080 035044

1081

035050

012763
1050€1

004737
005702
001407
012762
004737
004737
012604
012603
012602
012601

MACRDO v04.00

&4-4PR-B1

B 11
18:39:56 PAGE 45-18

CODE

177777

(30370
036316
100004

036222
035462

030622

00001¢

ST07:

ST08:

STO9:

000207

MOV
CLRB
JSR
TST
B8EQ
MOV

#-1,TIMER(R3)

;STOP THE

PC,GETREQ

+GET DPB ADDRESS

MOV
MOV
MOV
MOV

(SP)+ R4

JSR
JSR

RTS

DPRQS(R1)
R2
ST09

TIMER

sCLEAR PORT REQUEST

INDICATOR

:QUEUE ENTRY FOR DRIVE
:BR IF NONE

#81T15'BI12,16(R2)

;INFORM USER OF PORT REQUEST ERROR

PC,EMPTYQ
PC,SVRH70

;CLEAR THE QUEUE FOR
;SAVE THE REGISTERS

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

JRESTORE R3
JRESTORE R2
:RESTORE R1

THE

DRIVE

;RESTORE R4

JRETURN

;ROUTINE TO READ A RH/RM REGISTER

*CALL
:
3

SRIRIRGERSG 38

WA
— —

8\4\‘\020\"\1!3\3\

i
aiiianit i i
i i i o
PUNY = b e it e e B D e e D e —d -3 o
ViU

VIV
P S
SN0

&nwwNNNNNNNNNN
= OOV
N WN—=O

S LS LN LN

VO NONSWN—=C

R
I

(slelelsleleleleleleclelolelolelolslolololslalolololololololololole
o]

h el e

e
T

G
R

et e

e e
B

—d e

b -2

I I)
I

b
b

e
e
I

ek
e
b

I
|

,.....w..__.__-.

b el

—y

JE Ry

1097

5256

030454

035256

030456
035134

035134

035136
030456
000010
010000

000002

RD.RM:

JSR
INDEX

ERRADR
RETURN

;CONTENTS OF REG.

MOV

BIT

BNE

173266

MOV

1%:

036406
030442

040000

BIT
BNE
CMP
BR

JSR
EMT
TST
BM]

BIT

BEQ
TST

040000
030456
035252

2%:

035252
3%:
RD.RM2:

;GO READ A REGISTER

;REG. INDEX FROM BASE
;ERROR ADDRESS==PROCESS ERROR STARTING

MOV
MOV
ADD
RD.RM1: MOV
RD.ADR: .WORD
RD.WRD: .WORD
MOV
MOV
ADD

020000

RO,RD.RM

BIS

SWAB
MOV
INC
MOVB

.WORD

DEC
.WORD

;AT

THIS ADDRESS

IS ON THE STA(K

MCPEMX ,_RD.RM2
(SP) ,-(SP)
RMADR ,RD .ADR
(RO)+ ,RD.ADR

;MAX. RETRYS ALLOWED
:SAVE RO FOR RETURN
;FORM THE DESIRED ADDRESS
;USING THE BASE AND THE INDEX

0
0

;ADDRESS IS FORMED HERE
;REG. CONTENTS PUT HERE

a(PO)+, (PC)+

RD.WRD,2(SP)
RMADR,-(SP)
#RMCSZ, (SP)

#BIT12,a(SP)+
RD.RM3
aRMADR,~(SP)
#BIT13,(SP)
1%

(SP)+.(R0O)+

sREAD THE DESIRED REGISTER OF

THE RM DRIVE

JRETURN IT TO THE USER

;PUT THE ADDRESS ON THE STA(CK
;FCRM THE ADDRESS OF RM(S?2

;CHECK THE °'NED' BIT
;BR IF DRIVE NON-EXISTENT
;READ RMC(S1
;DID MCPE SET?
:BR IF

YES

;ADJUST FOR RETURN

RD.RM4

JEXIT

RO,ES.SAV

;SAVE

DTUW
2%
#BIT14,(SP)
2%

;DATA TRANSFER UNDERWAY?
;NO
S IRE' =% -7
sNO

RD.RM3
#BIT14,(SP)
(SP)

;TAKE THE FATAL ERROR EXIT
;CLEAR "MCPE'" BY SENDING A *"1'* TO ""TRE"*
;POSITION BEFORE WRITING

(SP) +

gQADR,3$

(SP)+,a(PC)+
0
§PC)’

THE ADDRESS

IN 'SESCAPE’

;REPORT "MCPE'' ERROR

;YES==-CLEAN OFF

THE

STACK AND

:FORM ADDRESS OF HIGH BYTE

;WRITE THE HIGH BYTE OF RM(S1
;ADDRESS STORAGE

;EXCEEDED MAX. RETRYS

JRMLBO RMOS/3/72 FORMATITER

RH/RM DRIVER

INITIALIZATION (ODE

1134 035260
1135 035262
1136 035264

:];; 035266

MACRDO v04.0C

002324
011000
(012616

4-APR-B1

BGE
RD.RM3: MOV
MOV

000200

RD.RM4: RTS

:;zg

:ROUTINE

:CALL
.
2

MOV
JSR

145
};29

:
e

ERRADR
RETURN

1148 035270
1149 035276

013737
016637

030454
000002

1151 035306

012037

035360

1150 035304

1152
1153
1154
1155

035312
035314
035322
035324

1156 035330

012616

001015
122737
002411
004037

000000

0C0150

035452
000316
042716
112637
063737
012737

177770
035357

1165 035362

013746

030456

032736
001025
004037
000014

010000

1166 035366
1167
1168
1169
1170

035372
035376
035400
035404

1171 035406
1172 035410

1173 035414
1174 035476

1175 035424
1176 035430
1177 035432

000000
000000

062716

035452
032726

001420
016037

1178 035434

004037
000000
035452
004037

1179
1180
1181
1182
1183
1184
1185

005726
005327
000003
002341
011000
000401
005720

035440

035442
035444
035446
035450
035452
035454
035456

;;gg 035460
11 88

104004

000200

030456

MOV

BNE
CMPB
BLT
JSR

(035356

RM(CS1

035360

;

WRT.R3
SWAB
BIC
MOVB
1%:
ADD
WRT.R1: MOV

WRT.WD:
WRT.AD:

000010

036406

.WORD
.WORD

MOV

;

035430
1%:

DATA,=(SP)
RO,WRT.RM

TST
DEC
WRT.R2: .WORD
BGE
WRT.R3: MOV
BR
WRT.R4: TST

WRT.RS: RTS

THE

TO BE

THE

LOADED

;MAX RETRYS ALLOWED
sSAVE THE WORD TO WRITE

(RO) + ,WRT_.AD

sGET INDEX OF REGISTER TO BE WRITTEN

(SP) +,(SP)

1%
#150 ,WRT.WD
1%
RO,RD.RM

(SP)
#4C7,(SP)
(SP)+,WRT.WD+1
RMADR ,WRT.AD
(PC)+,a(PC)+

REG.

;ADJUST THE STACK

;BR IF NOT RMCS1
;1S THE COMMAND FOR DATA TRANSFERS?
JYES=-DON'T GET THE OLD A16 & A17, & PSEL
;NO---COMBINE AT68A17, & PSEL WITH

;THE COMMAND BEFORE SENDING IT TO
:THE RH/RM

RMADR ,-(SP)

;FORM THE ADDRESS OF THE DISK REG.
;LOAD THE DESIRED REG.
;WORD TO WRITE GOES HERE
;ADDRESS IS FORMED HERE
;PUT THE ADDRESS ON THE STACK

#BIT12,8(SP)+
WRT.R3
RO,RD.RM

;CHECK THE °'NED' BIT
;BR IF DRIVE NON-EXISTENT
:CHECK FOR PARITY ERROR ON WRITE

0
O

#BITO3,(SP)+

EMT

;INDEX

MCPEMX,WRT.R2
2(SP) ,WRT.WD

WRT.R3
BIT

JSR
.WORD
WRT.R3
JSR

:
;DATA TO BE LOADED ON THE STACK
sCALL THE ROUTINE TO LOAD(WRITE)

;ADDRESS TO RETURN TO ON AN ERROR
;ERROR FREE RETURN

#RM(CSZ2, (SP)

BEQ
MOV

:BR [F NO
;FATAL ERROR £X]T

A REGISTER

ADD

BIT
BNE
JSR
RMER1

035110

1177776
035110

INDEX

WRT_.RM: MOV
MOV

035110

1157 035332
1158 035334
1159 035336
1160 035342
1161 035346
1162 035354

1163 035356
1164 035360

035446
035356

RD.RM1
(RO) ,RO
(SP)+,(SP)
RO

TO WRITE

1141
1142
1143
1144

cn
1B:39:56 PAGE 45-1%

WRT.R4
-2(R0),1%
RO,RD.RM
0

;FORM THE ADDRESS OF RM(CS?2

:BR IF 'PAR=0Q"'
;PICKUP THE INDEX

RO,ES.SAV

;READ THE REG.
;REG. INDEX
JRETURN TO THIS ADDRESS ON ERROR
;SAVE THE ADDRESS IN 'SESCAPE’

(SP)+
(PC)+
3
WRT.R1
(RO) ,RO
WRT.RS
(RO) +

:CLEAR OFF THE STACK
:DECREMENT THE ERROR COUNT
;RETRY COUNTER
:TRY AGAIN IF NOT FINISHED
;TAKE THE "PARITY ON WRITE'® ERROR FXIT
SEXIT
)
;ADJUST FOR ERROR FREE EXIT

;REPORT THE PARITY ON WRITE ERROR

SJROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPB+14

ENDMAT

RM DRIVER

UNMA

MACRO

TER

INITIALIZATION

v04.00

18:39:56 PAGE

MOV

#DPBNUM_R2

SVRH70:

SAVREG

CODE

;s CALL
92

93
94 035462
95 035464
96 035466
97 035470
98 035474
99 035500

00 035504

1201 035506
1202 035512
1203 035520

1204 035522
1205 035530

1206 035532

OOC OOO0O00O

O\AJ\WN—'OOVO\U'J\WN—‘OS

1
1242
1243
1244
1245

035542

104412

111264

016203
001433
005037
023727
001006
032764
001002
005023
000405
004037
000000
035570
012623
023727

001406

062737
000751
004737

104413
000207

JSR
TST

BEQ

030456
000010
000014

MOV

MOVB
MOV

035542
035542

000022

000200

000010

035110

1%:

000046

000002

035542

032564

CMP

BNE

BIT

2%:
3%:

035542

BEQ
CLR

4%:

BNE
CLR
BR
JSR

.WORD
5%

MOV

CMP

BEQ

ADD

5%:
6%:

BR
JSR
RESREG
RTS

PC.SVRH?0

R2
6%

R4
RMADR,

45-20

;DPB POINTER TO R2
sSAVE

THE DRIVES REG'S

;SAVE RO - RS
.QUEUE ENTRY FOR THE DRIVE ?
:BR [F NONE

(R2) ,RMCS2(R4>
sSELECT DRIVE
14.R2) ,R3
GET THE ERROR TABLE POINTER
6%
SEXIT IF NO ADDRESS
3$
;COUNTER & POINTER
JREACHED THE BUFFER REGISTER ?
3% ,#RMDB
2%
;BR IF NOT
*POR* - SET 2
#B1TO7 ,RMCS2(R4)

RO,RD.RM
0

(SP)+,(R3)+
3% ,#RMEC2
6%

#2,3%

;BR IF SET
;STORE RMDB AS ZEROES
; CONT INUE
sREAD

THE

SELECTED REGISTER

JREGISTER INDEX
JERROR RETURN ADDRESS
;STORE

THE REGISTER CONTENTS

B8R IF

YES

JREACHED THE END ?

s INCREMENT THE REGISTER INDEX
;CONTINUE READING THE REGISTERS
;PROCESS

THE UNCORRECTABLE

JRESTORE RO - RS
;RETURN

PARITY ERROR

;ROUTINE TO SET THE INTERRUPT WITHOUT GETTING A ''TRE"
s CALL

MOV

RETURN

935600
035602
035606
035612

SET.IE: MOV

030456
000010

035614
035620
035622
035626
035634

MOV
MOV
MoV

040000

000100
010000

BIS
SWAB
MOVB

000010

BIT

1246 035636

1247 035640

1248 035642

1249 035646

1250 035650
1251
1252
1253
1254 0 3 035652
1257 0 35653

0 3 5654
2
5
03565

000001
000207

JSR

1%:

2%:

BNE
TST
BR
MOVR

MOV
RTS

#DRVNUM,
R1
PO SETIE

;DRIVE NUMBER TO R1

R4 ,-(SP)
, R4
RMADR
R1,RMCS2(R4)
(R4) ,~(SP)

:SAVE R4
:PICKUP ADDRESS OF RM(CS1

#BIT14,(SP)

QCNT:

.BYTE

.BYTE
BYTE
BTt

:READ RMCS1

:SET THE "'TRE'' BIT OF
:ADJUST FOR DATO
:SET "'IE"
#BI1T06, (R4)
;1S "NED''=1?
ggITTZ.RMCSZ(R4)

:YES--CLEAR ''TRE"’

THE STACK

+
(SP)

:CLEAN OFF

(SP)+,1(R4)
(SP)+ ,R4

;CLEAR ''TRE"’

2%
PC

;QUEUE COUNT
000
000
000
000

;SELECT DRIVE

(SP)

[alelele]

s vl

ol el

)

) e

)

D d o

el el

LS LSTIS TN LS IAS TN AN LAV NS T VLN IASLASLASIAN
LN 1N LN 1 V1N )
H B wWnwWW NN WNWWWANININ
=
=
el
OV~

1207 035534
1208 035536

005702
001442
013704

4-APR-81

;JRESTORE R4

JRETURN TO CALLER

THE WORD READ

JEM B RMOS/3/72 FORMATTER
MACRD v04.00
e RM DRIVER INITIALIZATION CODE

035656
035657
035660
1288 035661

000
000
000
000

BYTE
BYTE
BYTE
BYTE

;Sgg
1261

:QUEUE
035662

1264 035664
035666

035670
035672
035674
035676
- 035700

035744

036024
036044
036064
036104
036124

035744

035714
035716

036064
036104

1271 035704
035706
035710
035712

.WORD

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

036124

035722

035744

1275 035726

036004

1274 035724

035730
035732
035734
035736

1280 035740
;Sg; 035742

QOUTPT:

035764
036004
036024
036044

035720

1276
1277
1278
1279

O
0
0
0

:DRIVE
;DRIVE
:DRIVE
JCRIVE

&
5
6
7

GDRVO

:DRIVE

QDRV3
QDRV4
QDRVS
QDRV6
QDRV?7

:DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE

3
&
5
6
7

QDRV1
QDRV?2

.WORD

QDRVO

.WORD
.WORD

QDRVS
QDRV6

.WORD
.WORD
.WORD
.WORD

QSTART:

035764

QSTCP:

036024
036044
036064
036104

QDRV7

.WORD

QDRVO

:DRIVE O START ADDRESS

.WORD

QDRV?2

:STOP DRIVE 1--START DRIVE 2

.WORD

.WORD
.WORD
.WORD
.WORD

036124
036144

.WORD
.WORD

QDRV1

QDRV3
QDRV4
QDRVS
GDRV6

QDRV?7
QTERM

:DRIVE REQUEST QUEUES

1287 035744

QDRVO:

.BLKW

QDRV1:
ODRVZ2:
QDRV3:

_BLKW
.BLKW
.BLkW

10
10
10

036064
036104
036124

QDRVS:
QDRV6:
QDRV7:

.BLKW
.BLKW
.BLKW

10
10
10

QDRV4:

036144

QTERM=, .

.BLkWw

;DRIVE
;DRIVE
:DRIVE
;DRIVE

:DRIVE O STOP ADDRESS & onxve 1 START ADDRESS
;STOP
:STOP
:STOP
:STOP

DRIVE
DRIVE
DRIVE
DRIVE

;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES

1292

:CALL

1295 036144
1296 036146

1267 036152

104412
012702

005022

035652

JSR

CLRQUE :, SAVREG
MoV
(LR

DRIVE
DRIVE
DRIVE
DRIVE

PC, CLRQUE
#QCNT ,R2
(R2)+

3
&
5
6

:STOP DRIVE 6=-START DRIVE 7
:STOP DRIVE 7

;sg?
;ggz

2--START
3--START
4=--START
5--START

035764
036004
036024

036044

:DRIVE 0

1
2
3
4
;DRIVE 5
:DRIVE 6
:DRIVE 7

.WORD

QDRV1
QDRV2
QDRV3
QDRV4

;ggz

;Sgg

:DRIVE 1
:DRIVE 2

:QUEUE OUTPUT POINTERS

1268 035702

1273

E N

18:39:56 PAGE 45-21

INPUT POINTERS

CINPT:

035764
036004

;529

4-APR-B1

:SAVE RO = RS
:2ERO THE QUEUE COUNTS
:DRIVES 0 & 1

JRMLBO WMOS5/3/2 FORMATTER

/RM DRIVER

MACRO v04.00

4<-APR-B1

1N
45-22

INITIALIZATION CODE

1298 (036154

1299 036156

005022

oosogz
012703

1303 036172

012122

1305 036176

001375

1302 036166
1304 036174

P 0135

005022

1200 036160
1301 036162

012701

(LR

(R2)+

;DRIVES 2 & 3

(LR
MOV

(R2)+
#8. ,R3

;DRIVES 6 & 7
JMOVE THE STARTING

MOV

(R1)+,(R2)+

(LR

000010
035722

005303

MOV

MoV
MOV
MOV

#8. ,R3
#Q5TART ,R1
(R1)+,(R2)+
2%

001375

BNE

;;;% 036220

000207

RTS

036216

104413

#QSTART,R1
R3

1210 036214

2%:

005303

(R2)+

DEC

BNE

012703
012701
012122

1309 036212

000010
035722

1%:

1306 036200
1307 0362046
1308 036210
1311

F
18:39:%6 PAGE

DEC

RESREG

3232

;EMPTY THE QUEUE SPECIFIED BY R

1316
1317

:CALL
:

;;;g

1320 036222

1321 036226

1322 036230
1323 036236
} ;Slg 036240

105061

035652

016161
006201
000207

035662

006301

MoV

JSR

EMPTYQ: CLRB
ASL

035702

MOV
ASR
RTS

;DRIVES 4 £ S
:ADDRESS OF

:MOVE THE STARTING ADDRESS
;OF THE QUEUE INTO THE
:QUEUE OUTPUT POINTER
;RESTORE

;:DRIVE NUMBER T0 R1

QCNT(R1)

;CLEAR NUMBER OF

QINPT(R1),Q0UTPT(R1)
R1
PC

ROUTINE TO PUT A REQUEST IN QUEUE

1328

s CALL

1335 036242

:
2
:
:
:
122761

000010

1337 036252
1338 036256
1339 036260

105261
006301
010271

035652
‘
035662

1341 036272

026161

035662

1343 036302
1344 036310

016161
006201

1336 036250

1340 036264

1342 036300

1245 036312
;;29 036314

001421

062761

001003
005720
000200

000002
035722

035652

DRVQUE:

035662
035662

CMPB

#10,QCNT(R1)

;1S QUEUE FULL?

INCB
ASL
MOV

QCNT(R1)
R1
R2,AQINPT(R1)

: INCREMENT QUEUE COUNT

BEQ

(MP

2%:

;SET OUTPUT QUEUE POINTER=INPUT POINTER

:DRIVE NUMBER
;ADDRESS OF PARAMETER BLOCK
;GO PUT REQUEST IN QUEUE
RETURN HERE IF QUEUE IS FULL
;RETURN HERE IF REQUEST IS IN QUEUE

BNE
1%:

ITEMS IN QUEUE

MOV
#DRVNUM,R1
MOV
#DPB,R2
JSR
RO,DRVQUE
RETURN1
RE TURN2

ADD

035724

RO - RS

DRVNUM,R1

PC,EMPTYQ

INTO

;ggg
1329
1330
13
1332
;ggz

THE QUEUE

;THE QUEUE INPUT POINTER

MOV
ASR

ST
RTS

:BR IF YES-TAKE RETURN1

;PUT THIS REQUEST IN QUEUE
:UPDATE THE QUEUE POINTER
QINPT(R1),QSTOP(R1)
:TIME TO RESET THE POINTER
1%
;BR IF NO
QSTART(R1) ,QINPT(R1)
:YES--RESET POINTER
R1
(RO) +
:TAKE RETURN 2

#2.QINPT(R1)

:RETURN TG USER

;gzg

;ROUTINE,
TO GET THE 'DPB'' ADDRESS OF NEXT REQUEST IN QUEUE

1350
1261

s CALL
:

1353
1354

3
:

1352

MOV

JSR

RE TURN

SDRVNUM ,R1

PC,GETREQ

:DRIVE NUMBER TO R!

:G0 GET THE REQUEST

:R2="DPR'’' ADDRESS OF THE REQUEST
;R2=0 IF NO REQUEST IN QUEUE

JRMLBO BMOS/3/2 FORMAT TER

“/RM DRIVER INITIAI JZATION (ODE
1255

12356 036316
1357 036320
1358 036324
1359 036326
1260 036330
1361 036336
;ggg 036336

005002
105761
001404
006301
017102
006201
000207

MACRO v04.00

g
035652

4=APR-81

e 1N
18:39:56 PAGE 45-23

GETREQ: (LR
1STB
BEQ
1%:
ASL
MOV
ASR
2%:
RTS

035702

R2
QCNT(R1)
2%
R1
AQOUTPT(R1),R2
R1
PC

;1S THERE ANY REQUEST IN QUEUE?
:NO

:PICKUP ‘DPB'' POINTER FOR THIS DR]VE
sRETURN TO USER

1322

:ROUTINE TO *POP'* THE REQUEST FROM QUEUE

1306

s CALL
:

MOV

#DRVNUM,R1

;:DRIVE

1368
3%98

:
:

JSR
RE TURN

P, POPQUE

;CALL TO REMOVE REQUEST
:R2=ADDRESS OF DPB REMOVED

QCNT(R1)

:DECREMENT QUEUE COUNT

1267

1371 036340
1372
1373
1374
1375

105361

036364
036346
C36352
036356

006301
017102
005071
062761

1378 036374
1379 036402

016161
006201

1376 036364
1377 036372

;;g? 036404

026161
001003

035652
035702
035702

POPQUE: DECB

000002

035702

035722

035702

000207

ASL
MOV
CLR
ADD

035724

CMP
BNE

1%:

1383

:ROUTINE

1386

s CALL

};gg

RTS

TO SAVE

:
;
:

1391 036406
1392 036412

036416
036422

036424

036430

012037
013746

005037
000000

012637
000200

036422
001176

001176

JSR
ERROR
RETURN

ES.SAV: MOV
MOV
1%:

CLR
LWORD

MOV
RTS

TO R1

:GET THE 'DPB'' POINTER
:REMOVE DPB ADDRESS FROM THE QUEUE
:UPDATE

THE QUEUE

POINTER

QOUTPT(R1),QSTOP(R1)
:TIME TO RESET
1%
:NO==BR TO EXIT
QSTART(R1),Q0UTPT(R1)
Rl

THE CONTENTS OF

:REPORTS AN ERROR DIRECTLY.

138/
1388
}ggg

1393
1394
1395
139¢

MOV
ASR

R1
AQOUTPT(R1)
,R2
@Q0UTPT (R1)
#2,Q0UTPT(R1)

NUMBER

RO,ES.SAV
N

(RO)+,18
$ESCAPE,=(SP)
$ESCAPE
0
(SP)+,$ESCAPE
RO

THE POINTER?

;YES==RESET THE POINTER

:RETURN TO USER
'S$ESCAPE'

WHEN THE DRIVER

::THE ERROR CALL

:THE RETURN IS PAST THE ERROR CALL

;GET THE ERROR CALL
:SAVE THE ADDRESS IN "SESCAPE'
;CLEAR THE ESCAPE RETURN
;THE ERROR CALL IS MOVED HERE

;RESTORE THE ESCAPE ADDRESS

;RETURN

TELETYPE MESSAGES

106

UNTOFF:

_ASCIZ

/ OFFLINE/

1317
117
116
117

NOTRM:
NOTPRS:
NOTSAF:
LODEV:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@
/
/
/

$RMO3:

.ASCIZ

/RM03/

50 040066
51 040145
52 040224
53 040303
54 040362
55 060441
56 040521
57 040564

11¢

ASCIZ
.ASCII

/17
7/ /

)
e

PACKSN:

.ASC

MESG1:
MESG2:

.ASC
.ASC

MESG4:
MSGBLK:

.ASC
.ASC

MUTLTY:

.ASC
.ASC
LASC
.ASC
.ASC
+AS(
_ASC

MSCMPT:
NUMERR:

ADDRIS:

MESG3:

MESGS:

.ASCIZ
.ASCIZ

.ASC

LASC

MSFOR:
MSQVER:
MSVER:

.ASC
AS(
.ASC
.ASCIZ
.ASCIZ

= NN NN NI NI NI N

MADRER:

.ASCIZ

.ASC

e Rl e

BADENT:

.ASCII
.ASCI]
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
L.ASCIZ
.ASC
.ASCIZ
.ASCIZ
.ASC
.ASC
.ASCIZ

M18BIT:

/RMO5/

@/ @

I e

ANy

il
e
e
e
e
D
D

DD 20O =N
YO NNESE NN
NN

105

122
122
116
122
122
117
105

d cd

200

120
120
1
120
120
103
200

= "VNVNI O N~ =

077
077
077
123
120

105

D cd wd

200
200
200
200
125

200

BLNKS3:
BLNKS2:
BLNKS1:
ENTADR:
MOFFLN:
MDRNP:
MER11:
MUSDR:
MLODEV:
MSELD:
MFORMT:
MVERFY:
M16BIT:

/RMO2/

.ASCIZ

ASCIZ

b=t Lt

037572
037643
037704
037740
040007

103
040
101
122

45
46
47
4«8
49

200
054
120
120

2 OO

44 037533

101
110
123
123
123

42 037473
43 037506

077

40 037427
41 037442

115
124
200
200
200

040

35 037215
36 037270
37 037315
38 037337
39 037376

054

116
104
104
104
104
104
105
122

D wd

040

105
077
077
077
077
077
123
17
105
040

34 03?174

33 037141

000

3 e (OO A=

040
040
040
200
040
040
040
040
040
040
106
126
054

20 £36620
21 036621
22 036622
23 036624
24 036654
25 036675
26 036722
27 036751
28 036771
29 037021
30 037033
31 037062
32 037106

NOT AN RMO0S/3/2a
NOT PRESENT/
UNSAFE/
LOAD DEVICE/

<CRLF>/UNIT STATUS:/

SLASH:

7/ ONLINE/

.ASCIZ

.ASCiZ
.ASCIZ
.ASCIZ

T
BLNKS4:

ok ool

000

040

124
040

000

UNSTAT:

.ASCIZ

MUNIT:
$COMMA:
COLON:

e ik e

18 (36615
19 036617

057

103

040

122

17 036613

16 036607

104
000
040

2 ad e

200
054
072

$RMO5:

116

200

060

.ASCIZ

R e R

125

12 036555

13 036573
14 036602
15 036604

115

SRMO2:

060

122

060

115

036550

115

NI NN NN NI NI NI NI N

122

10 036543

3 036536

s NI

116
116
125
114

_ASCIZ

040
00
040
040

UNTON:

e I el e

036453
026474
036511
036521

116

5
6
7
8

117

040

3 036432

& (036443

H 11

18:39:56 PAGE 4¢

.SBTTL

et Bt bt g b

e R

MESSAGES

4-APR-B1

NN N

TELETYPE

MACRO v04.00

JRML B0 RMOS/ 372 FORMATTER

<CRLF>/DRIVE/
/.
/i /
/C/

7/ /
7/ /
/ /
<CRLF>/ENTER ADDRESS LIMITS:/<CRLF>
/ ?DRIVE OFFLINE/<CRLF>
/ 2DRIVE NOT PRESENT/<CRLF>
/ ?DRIVE NOT AVAILABLE/<CRLF>
/ ?DRIVE UNSAFE/<CRLF>
/ ?DRIVE IS LOAD DEVICE/<CRLF>
/ SELECTED/
/FORMAT & HEADER VERIFY/
/VERIFY HEADERS ONLY/
/, OPERATE IN 16. BIT MODE/<CRLF>
/.

OPERATE

IN 18.

BIT MODE/<CRLF>

/ ?INVALID ENTRY/<CRLF>

/MAX TRACK ADRS
/THAN MIN TRACK
<CRLF>/STARTING
<CRLF>/STARTING
<CRLF>/STARTING

MUST BE EQUAL TO OR GREATER/<CRLF>
ADRS/<CRLF>
FORMAT/<CRLF>
QUICK HEADER VERIFY/<CRLF>
HEADER VERIFY/<CRLF>

<CRLF>/COMPLETED/
/, TOTAL ERRORS DETECTED /

aPACK S/N: @

/PRESENT ADDRESS

1S:

<CRLF>/ENTER SERIAL

NUMBER

(OCTAL):

<CRLF>/?INCORRECT 'MFG' BAD SECTOR INFORMATION/
<CRLF>/?0VER 126. BAD SECTORS DETECTED/
<CRLF>/?DISK

IS AN ALIGNMENT

PACK/

<CRLF>/SELECT ONE OF THE FOLLOWING FUNCTIONS/<CRLF>
UPRATE "USR" BAD SECTORS.....ccvsisacosssesnve 0/<CRLF>

TPRINT
"G BAD SELTURS. . o.usissosigissasen 1/<CRLF>
ZPRINT . “USR" BAD SECTOMS: . ossvsoansbanssinnse 2/<CRLF>
/INITIALIZE 'USR' BAD SECTOR FIlc..ccveeenenns 3/<(RLF>
/PRINT A SECTOR OF THE LAST TRACK.....cocnueee L/<CRLF
>
ZPRINT TH1S PESSAGE. s sivvsnsonsnanssnsosenvnsns 5/<CRLF
>
FCONTINUE ..o coonosssnnvesnsasnarsgase pacenss <(R>/<(RLF>
<CRLF>/ENTER UTILITY FUNCTION (HELP=5): /
<CRLF>/ENTER

16 BIT

'MFG'

BAD

SECTOR ADRS

(DECIMAL)/

L-APR-RT

I n

18:39:56 PAGE

46~

NN NNNNO OO

\hO*—'—"\)—‘—‘—‘-—“\J\gON

AN Rt e Yo X To Yo Yo No Mo leloNe NV,]

e ua—
T

—-—i—aN—.‘—l—-l—d—l-—l—‘

O ol ed w3 w2 2 B3 @ OO

Lo T Tam T e B0 T am T R
i B Ll S R

TI )
Y

NNONNNO ==Y

e
e kb T

—y
I
e
e
e
R

—
o

QOO OODCO
WO N WANWN
WA 0

83 042423

SIRRTSRTEAINNY Ny

'V*MSS) FFZITUMISINE
— PN E; UhflUUVC)b(D’WD*Q’
NN

FRRRRRRRRRRRR
g—l—l
e e e R YU —_—yEEE a%

€

3ITIBORER2SHE 32

"My
r

042143

V04 .00

MESGE:
MESG7:
MESGB:
MESGY:
MESG10:
MESG11:

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

MESG12:
MESGI3:
MSG13A:
MESG14:
MESGIS:
MESG16:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

MESGI8:

.ASC1Z

MESG17:

.ASCIZ

MESGI9:

.ASCIZ

MMODE:
MSIZE:
. MSINIT:

INITUS:
INITMF:
NOENTR:
ABORT:

NOUPDT:
NOINIT:
MSPRM:
STARS:

LEVEN

.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASC1Z
.ASCIZ
.ASCIZ
.ASCIZ

<CRLF>/ENTER 18 BIT
<CRLF>/ENTER 16 BIT
<CRLF>/ENTER 18 BIT

*MFG' BAD SECTOR ADRS
'USR' BAD SECTOR ADRS
'USR' BAD SECTOR ADRS

(DECIMAL)/
(DE(IMAL)/
(DE( IMA[)/

<CRLF>/CONTENTS OF 16 BIT *MFG' BAD SECTOR FILE (DECIMAL
)/
<CRLF>/CONTENTS OF 18 BIT 'MFG' BAD SECTOR FILE (DECIMAL)/
<CRLF>/CONTENTS OF 16 BIT "USR®' BAD SECTOR FILE (DE(IMAL)/
<CRLF>/CONTENTS OF 18 BIT °‘USR' BAD SECTOR FILE (DECIM&[
./
<CRLF>/PRINT A "SECTOR' OF THE LAST TRACK (OCTAL)/
<CRLF>/ENTER SECTOR (DECIMAL): /
<CRLF>/DONE !/<CRLF>
<CS%F>gEgTER 'MFG' BAD SECTOR ADRS (DECIMAL)/<(kLF>

;NI

<CRLF>/?UNABLE TO WRITE 'BSF' SUCCESSFUL.Y/
<CRLF>/?FATAL DRIVE ERROR DETECTED/
<CRLF>/?FAILURE DURING HEADER VERIFICATION/
/D0 YOU WANT TO FORMAT (L) Y ? /

/D0 YOU WANT

16.

BIT MODE

(L)

? /

<CRLF>/INITIALIZE BAD SECTOR FILE (L) N L
<CRLF>/INITIALIZE 'USR' BAD SECTOR FILE S/
<CRLF>/INITIALIZE 'MFG' BAD SECTOR FILE 5/

/* NO ENTRIES */<(CRLF>
/=0PERATION ABORTED=/<CRLF><07><07>
<CRLF>/?NO UPDATES IN 'VERIFY' MODE/<CRLF>
<CRLF>/?NO

/CHANGE

INITIALIZATION

DRIVE PARAMETERS

(L)

CCRLF>/xxxxmwnwnnnxnxnn/<CRLFD>

'VERIFY'

N 2?2 /

MODE/<(RLF>

0 v04.00

EMI:
EMZ:
EM3:

J 11
47

PAG E

/RH CONTROLLER

INTERRUPT OCCURRED

/UNEXPECTED ATTENTION OCCURRED/

(RMAS=0)/

/MASSBUS PARITY ERROR (MCPE=1)/
/MASSBUS PARITY ERRCR (PAR=1)/
/ADDRESS PLUG CHANGE BIT SET/
/RH CONTROLLER DIDN'T RESPOND TO ADDRESSING/

EMS:

B e

@TRACK/SECTOR FIELD IN HEADER IS NOT (NRRECTa

e i

EMS:
EM6:
EM7:
EMI10:
EM11:
EM12:
EM13:
EM14:
EMiS:
EM16:
EM17:
EM20:
EM21:
EM22:
EM23:
EM24:
EM2S:

18:39:5%

ERROR MESSAGES

el
TM R
T eL )
e B O B NUNY ~ =
ON=DHONNO
&
S =200
WM
= = O P WWWNO

d e

d ek

D e

d o

el o

BN
= OO ==
=2 —2ONN =000 — FENNSLON=2NNNNNOVZWNINO
S =000

NNV O NN
~2 PO
P NWNWENWWN S WNO S SN =wvioianang

2% 043664

—Ja—ho—ldd—l—i-fl-—l—l—‘—-‘—‘d—d—‘—‘d—l

% SRR

WA = D

~ n N =N
= o=
n n n =S WNNN
S WOMN

»
RRERRRRRRRRRRRRRRRR
WINWNWNNINNWN

no =

C 000NN

PUONUNY =3 d wd cd b = 3 d

ook

NN —=O 000 N

NS N

SBTTL

L=APR=B1

FORMATTER

/¢

/DRIVE OFFLINE/
/PERSISTENT DRIVE UNSAFE ERROR/
/UNCORRE(TABLE MASSBUS PARITY ERROR/
/SOF TWARE TIMEOUT/
/DRIVE UNSAFE ERROR/
@CONTROLLER/DRIVE ERROR DURING WRITEQ@
@CONTROLLER/DRIVE ERROR DURING WRITE (HE(CK®
@RETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTABLEw@
aDATA ERROR DURING WRITE CHECKa
@CONTROLLER/DRIVE ERROR VERIFYING HEADERSa

@'HCE' OR 'HCRC' ERROR VERIFYING HEADERSa
- @CYLINDER FIELD IN HEADER IS NOT CORRE(CTa
aWRITE CHECK ERRORa
/ILLEGAL BAD SECTOR,

PACK NOT

ACCEPTABLE/

e
R el
TM e e
)
= e N B NN
= =L OO =N
e O
2 ed O = (NNW= =2 SN
O e e ek ek

—

MACRO v04.00

- ) =D d e
ed cad e e N d ek el ed
n NN = =3 S PUN) = =R = RIRO N
n RO N NN N
NN O RDNON

043734
044002
044054
044125
064210
064223
064310
064374
0464452
064521
044570
064665
044761
045015
045054
045142
045227

o
=~

n) -2

O L

NP NS WA

r—

=OD00 N

JRMLBU RMOS/3/72 FORMATTER
DATA wEADERS

4=-APR-81

K 11
18:39:56 PAGE 48

.SBTTL

DATA HEADERS

DH1:
DH2:
DH3:
DH4:
DH6:
DH10:
DH10A:
DH10B:
DH17:
DH20:
DH20A:
DH208B:

LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
LASCIZ

DH20C:
DH23:
DH24:
DH25:
.EVEN

.ASCIZ
.ASCIZ
LASCIZ

LASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCI1
.ASCIZ
LASCIZ

SEC 0140

/RMAS
RM(S1
RMERT
RMERZ
RMDS
RMD(
/DRIVE
RMDS
RMER1
RMERZ2
RMAS
RM(S1/
/DRIVE
REG ADR
DATA
RM(CS1
RMER1
RMER2/
/DRIVE
REG ADR
GOOD
BAD
RMCS1 RMER1
/RH ADDRESS/
/DRIVE
ERR PC "RMCS1
.RMCS2
RMDS
RMER1

/RMECT
/RMDB

/DRIVE
/DRIVE

/RMCST

RMECZ2
RMMRT

RMWC
RMDT

RMBA
RMSN

RMDS

RMER1T

RMER2

RMMRZ2

RMAS

RMLA

RMDB

ERR PC CYLINDER TRACK
ERR PC CYLINDER TRACK

RMCS2

/RMWC

RMBA

RMDA

/DRIVE
/DRIVE

ERR PC
CYLNDR

(YLNDR
TRACK

/RMSN
;DRIVE

RMOF
CYLINDER
ERR PC
EXPCTD

TRACK/
RECVED/
TRACK
SECTOR

RMDA
RMAS
RMOF
CYLINDER
SECTOR/
SECTOR/

SECTOR
/

MEMORY
DATA

RMDA/

RMERZ/
RMERZ/
RMLA/
TRACK/
RME (1
RMMR1

RMEC2/
RMDT/

DISK/<(CR><LF>
DATA/

JRMLBD AMOS5/4/2
DATA

FORMATTER

MACRD v04.00

&4-4APR-8B1

L-H

1B:39:56 PAGE

TARLES

SEQ

.SBTTL

DATA

.WORD

% 045270 0071370 005560 005574 DT1:
4 045306

001366

030320

030322

DT2:

6 0645336

001366

035360

035356

DT4:

8 045356
9 045366

001222
001222

001132
001132

046232
005560

11 045422

005602

(05604

005606

5 045322
7 045354

10 045404

001366

001274

0351

0056246

005626

045440
045452
045464
045504

001222
001222
005560
005562

001132
001132
005570
005564

17 045534

001222

001132

12
13
14
15

16 045524

005610

005612

18 045544

001222

001132

20 045602
21 045622
22 045632

005562
005610
001222

005564
005612
005552

19 045562

005560

005570

035136

005562

D13:

.WORD

DT6:

.WCRD

DI17:
DT10:

001362
001362
005572
005566

DT17:
DT120:

046230

DT123:

001362

005572

005566
001362
001364

.WORD
.WORD

TABLES

ATTN,RM.REG,RM.REG+14 ,RM.REG+42 ,RM.REG+12
,RM.REG* 34 ,RM_RE G+6
DDRIVE.RHERRS.RMERRS*?.RMERRS*A.ATTN,RMCS1

DDRIVE ,RD.ADR,RD.WRD ,RM.REG,RM.REG+14 ,RM.REG+42

DPRIVE ,WRT.AD ,WRT.WD ,RD.WRD ,RM . REG,RM.REG+14 ,RM_REG+4?
$RMADR

.WORD
.WORD

DRIVE,SERRP(,RBUF
+6,RBUF +2
DRIVE ,$ERRPC ,RM.REG,RM.REG+10,RM.REG+12
,RM_ REG+74 ,RM_ REG+4?2

.WORD

RH.REG*ZZ.RM.REG*Zé.RM.REGOZé,RM.REG'30.RM.REG'32.DS.CVL,DS.IRK

.WORD

.WORD
.WORD
.WORD
.WORD

.WORD

RM.REG+44,RM.REG+46,RM.REG+2
,RM.REG+4 ,RM_REG+6
,RM . REG+16 ,RM_REG+20
DRIVE,$ERRP(C,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 RF G+46
RM.REG+2,RM.REG+4,RM.REG+6,RM.REG+16,RM.REG+20
,RM_REG+22 ,RM.REG+24 ,RM_RE G+ 26

RM.REG*BO.RM.REG+32,DS.CYL.Ds.TRK
DRIVE,SERRPC,RBUF
+4 ,RBUF

DT24:

.WORD

DRIVE,$ERRPC,DS.CYL,DS.TRK,BADSEC,$GDDAT
,RM.REG+22

DT25:

.WORD
.WORD
.WORD

RM.REG+2,RM.KEG+4,RM.REG+6,RM.REG+16,RM.REG+20,RM.REG+22
,RM.REG+24 ,RM, PG+ 26
RM.REG+30,RM.REG+32,DS.CYL,DS.TRK
DRIVE,FMTDPB+12,DS.TRK,BADSEC

.WORD

RM.REG,RM.REG+10,RM.REG+12
,RM.REG+14 ,RM.REG+42 ,RM.REG+40 ,RM . REG+44 ,RM . REG+46

.SBITL

DATA FORMAT TABLES

DF1:

.WORD
BYTE
.WORD
BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD

000

29 045726
30 045730
31 045732
32 045734
33 045736
34 045740

35 045742
36 045744
37 45746
38 045750

39 045752
40 045754

014
000

034

DF23:

DF 24 :

000
000

014

000

DF25:

O
O

rEr

o
—=SO5

4\00800‘\
[}
>

000

Socl\
>

DF20:

L |

034

DF17:

034

140

PO~

000

.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
BYTE
.WORD
.BYTE

—=nPus

DF10:

DF6:

DF4:

6.0

) ' POy
HOO

DF3:

LoR

DF2:

1
7,0
1

28888

2
o

000

M1 1
1B:39:56 PAGE 50

N
IO N
S W=

OO N

ND WA = OO

045642
045644
045646
045650
045652
045654
045656
045660

4&-APR-81

S =P OUOOD NSNS0
0D NSNS
NOND NW—
N
N
.
s T
Xy T P
.
Y
<4 ilo

TABLES

FORMAT

PODIAININ)
D b wd b ol d o s wd wd

DATA

MACRD v04.00

JRMLBU RMOS/3/2 FORMATTER

;THIS ROUTINE

;OF

15 USED

TO INSURE

THE BUS ADDRESS

THE RH/RM IS SETUP FOR THE PROPER ADDRESS.

:NOTE:
s CALL

THIS ROUTINE DESTROYS RO=-Ré&
JSR

PC ,BUSADR

TST
BEQ
CLR

CHGADR

;INPUT FROM TTY REQUESTED?

CHGADR

;DISABLE (CHANGE OF RH/RM ADDRESS
JsCR=LF
;FIRST ADDRESS
;' RMCS1=""

RE TURN

104401

104411
012601

004537
000763
012700
104401

011046
104402
104401
104411

012601
004537
000763
012700
012701
012021
012021
000207
122
122

BUSADR:

1%:

036621
046114

001276
046105

2%:

036621
046114

001274
030456

012700

001374
001205
001274
046076

104401

001374

005737
001436
005037

104402

40
41 046076
42 046105

SEQ 01473

:17 WILL ALSO READ THE ADDRESS FROM THE TTY IF
;REQUIRED.

011046

22 046014
23 046016
24 046020
25 046024
26 046026
27 046032
28 046036
29 046040
30 046042
31 046046
32 046050
33 046052
34 046056
35 046060
36 046064
37 046070
38 046072
39 046074

N1 1
18:39:56 PAGE 5 1

.SBTTL BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FCR RH/RNF

—

nd
d
b
D ek
d
d
—d

ONOPNEDNWN
=D 0NN WA -

MACRO v04.00
4-APR-81
JRMLBO RMOS5/3/2 FORMATTER
BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FOR RH/RM

3%:

MRMCS1:

MRMVEC:

TYPE
MoV
TYPE
MOV
TYPOC
TYPE
RDLIN
MOV
JSR
BR
MoV
TYPE
MOV
TYPOC
TYPE
RDLIN

MOV
JSR
BR

.SCRLF

#$RMADR ,RO

.MRMCS1

(RO) ,=(SP)

.BLNKS?2
(SP)+,R1
RS, CK.NUM
1%
#SRMCVE
,RO

sNO

;PRESENT RMCS1 ADDRESS
:TYPE IT

;TYPE 2 SPACES

;GET THE ENTRY
;ADDRESS OF

ASCII

JENTER AND STORE NEW ADDRESS
JERROR RET
s CHECK VERC

C
.MRMVE
(RO) ,-(SP)

;" RMVEC="'

.BLNKS2

;TYPE 2 SPACES

(SP) +,R1
R5,CK.NUM

#$SRMADR ,RO
#RMADR ,R1

MoV
MOV
MOV
MoV
RTS

LASCIZ
.ASCIZ

Q@RMCS1=a
QRMVE(C=a

(RO)+,(R1)+
(RO)+, (R1)+

TEXT

;PRESENT RH/RM VECTOR ADDRESS ON THE STACK
;TYPE 17
;READ THE ENTRY
;ASCII TEXT ADDRESS
JENTER AND STORE NEW ADDRESS
;ERROR RET
;FIRST ADDRESS OF NEW PARAMETERS
;FIRST ADDRESS OF WHERE TO PUT THEM
;BUS ADDRESS
;VECTOR ADDRESS
;RETURN

2/2

FORMATIER

L WS-’;‘

ML R

4=APR-ET

CK.NUM - (HECK NUMBER

(OCTAL)

;THIS ROUTINE (HECKS AN ASCIZ STRING FOR LEGA!

;A!AHD

FORMS

;CALL:

i .
{1

12 06461146

010246

14 046116
15 0646120

010346
010446

17 046126
18 046130

005002
112104

16 046122

19 046132

20 046134
21 046140
22 046142
2% 046146

012703
001424

120427
103425
120427
101022

26 046150

006302

31 046170
32 046172
33 046174

060402
005303
0014601

25 046152
26 046154
27 046156
28 046160
29 046162
30 046164

103420
006302
103416
006302
103414
042704

34 046176
35 046200
36 046202

000754
112104
001004

38 046206

001401

37 046204

010210

41 046214

012604

43
046220
44 046222

012602
000205

04616

#ADR _R1

JSR

RS, CK.NUM

RET2

NORMAL RET

0C0060

000067

RETI

(LR
MOovVB
8EQ

2%:
3%:
4%:

5%:

R2,-(SP)

R3,-(SP)
R4 ,-(SP)

#6,R3

R2
(R1)+,R4
3%

R4, 4'0
5%
R4, &8'7
5%

BCS
ASL
BCS
ASL
B(S
BIC

5%
R2
5%
R2
5%
8177770 ,R4

ADD
DEC
BEQ

BR
MOVRB
BNE

R4 RZ
R3
2%

1%
(R1)+,R4
5%

IST

MoV

RZ2, (RO)

BEQ
TST

MOV

MOV
MOV
RTS

[(HARA(CTERS

;ADDRESS OF ASCIZ STRING

THE NUMBER

ERROR RETURN

CMPR
BLO
CMPB
8HI
ASL

177770

IN R2

RO=ADDRESS TO STORE

MOV

NUMBER

MOV

MOV
MOV

000006

005725

012603

AN OCTAL

CK.NUM: MOV

005702

39 046210

40 046212

JSBTTL

B 12

1B:39:56 PAGE

;SAVE R2

.SAVE R4

;SAVE R3

;MAX OCTAL DIGITS IN THE NUMBER
;JFINAL OCTAL VALUE
;GET CURRENT POINTED BYTE
;BR IF

TERMINATOR DETECTED

;SMALLER THAN ASCII=0 ?
;YES,ERROR EXIT
;LARGER THAN ASCII=7 ?
sYES,ERROR EXIT
JSHIFT LEFT

:
s ONE
5
;OCTAL DIGIT
sERROR IF CARRY BIT SET
;CHOP OFF HIGHER BITS

JAPPENDING CURRENT DIGIT
;DECREMENT BYTE COUNT
;BR IF LAST DIGIT

;LOOPING BACK
;CHECK TERMINATOR
:BR IF NOT FCUND

sFINAL VALUE = 0 ?

JYES

(R5)+

;ADJUST FOR NORMAL RET

(SP) # R4

(SP)+ ,R3

{SP)+ R2
RS

SREPLACE THE ORIGINAL VALUE
;RESTORE 4

:RESTORE R3
JRESTORE R?2
JEXIT

MACRO v04.00
.SBTTL

NNy
OO0 NN

-t

Lag LM

RMOS/3/2 FORMATTER
ITE BUFFERS

4-APR-81

C 12
53

18:35:56 PAGE

SEC 0745

READ/WRITE BUFFERS

SBUFFER STARTS HERE

RBUF:

.WORD

0,0,0.0

JBUFFER FOR HEADER (HE(K

0466234

BUFP:

BlkWw

<258.+32.>

sFORMAT

1064634

BUFY:

BLKW

<258.+32.>

;BUFFER FOR VERIFY ONLY MODE

.END

200

046226

000000

000200

GOOCOO

0GOCOQ

AND

(HECK BUFFER

STARTS HERE

AND

sWILL OVERLAY ALL REMAINING (ODE IN PROGRAM

100000

001404

DF6

DH1
DH10
DH10A
DH108
DH17
DH2
DH20
DH20A
DH20B
DH20C

OO0

000400
030370
001222
004000

043642

062556
042614
04c651
042705
042760
036624
016550
040000

030330
000111
030700
036242
030340
030350
000200

104000

177570

001362
001364
010000
000200
030442

000001
000002
000004
000010
000020
000040
000100
006200
000400
045270

045366

045706
045726
045732
045752

045440

045306
045452

045652

045656
045662
043734
044223
044310
044374
044452
044002
044521
044570
044665
044761

(=]

016366
030360

hhnuuwnunnn

DF10
DE17
DF2
DF20
DF23
DF 24
DF 25
DF3
DF4

100000

000001

(K.O0CT
CLOCK
CLR
CLRQUE
CNTLC
COLON
CPSAVE
(R
CRLF
C.ENTR
DCK
DDISP
DDRIVE
DEVMP
DF1

032042
032150
032526
032550
032564
032606
032664
104407
014344
023120
023072
023172
046114
023044
017616
000040
0367144
001372
036604
023754
000015
000200
017630
100000
177570
001366
001400
045642
045666
045702
045646

045534
045544
045632
045322
045336
045354
045356
004000
000100
004000
036222
000030
042446
043034

nmunmnn

000010
000020
000040
000100
000200
000400
001000
036622
036621
036620
036617
000014

044210
001156
000174

012706
001374
031734

000004
036406
000020
026770
027076
010000
005540
005630
010000
021272
021414
021624
021676
021774
022112
022230
022350
000002
000004
000010
000020
000040
000141
036316
000001
104406

000200
002000
000400
001410
015010

001354

BYTE1S

noin

100000
000004

045227
044054
044125

045756
006264
006364
036613

BUSADR

000001
000002

000004
00010
000020
000040
000100
000200
000000
000000
000254
000000
000400
001000
037174
001344
006730
000010 000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000

045015
045054

106434

BYTE16

R RRRR
NN
AN N NN AN
NWWWN
S NN N b et OO
& Vv
= YN
= N
N
W -AU ANON
'S ALV LV OWVIN NS WORN

046234

BUFP
BUF
YV

[
(I
O
O

001370

£ 0146

BITO07
BIT08

100000
030444
000000

PAG E

BIT06

011514
0000G0

18:35:5%4

L=APR=R]

inn

BITO3
BITO4
BITOS

AENVM =
AFATAL=

ADRTBL
=
AENV

BITO
BITO00
BITOY
BIT02

ADEVCT
ADE VM

A17
BADENT
BADSEC
BADTMO
BAI

ADDW7

ACDW8
ADDWS

A16

ADDW6

AVECT1
AVECT2

ADDWS

AUNIT
AUSWR

ADDW3

ADDWS

ATS
ATé
AT7

ADDW1
ADDW1
ADDW1
ADDW1
ADDW1
ADDWZ

000000

ADDW1

VS
W —=O

ADDRIS
ADDWO
ADDWN

ACTDRY
ACTSTR

000123
00000
030404
030405
037506

ATABIT
ATESTN=
ATTN
ATO
AT1
AT2
AT3
AT4

ACK
ACPUOP

ASK 3A

ASWREG=
ATA
=

ABASE = 176700
ABORT
062226
ACDWT
000000
ACDWZ
000000

-t

TABLE

ACRO v04.00

FORMATTER

—

SYMBOL

RMOS/3/2

"2RMLBO

000011
002000

r~ -—

—

00>

—3

MLODEV

MOFFLN
MO

MOL

M18BIT
NBA
NED
NEM
NEXT
NOENTR
NOINIT
NOTPRS
NOTRM
NOTSAF
NOUPDT
NUMERR
OFDIR
OFFSET
OPI
OPT
=
OR
0.ENTR

037141
100000

010000
004000

005536
042206
042314
036474
036453
036511
042255
037442
000001
000115
020000
031506
000200
017642
PACKSN
037473
PAR
= 000010
PARENT
020032
PAR1
005754
PAR2
005764
PAR3
005774
PAR&
006004
PARS
006014
PAR6
006032
= 000020
PAT
PATA
001336
PATR
001340
PFECH
024234
PFECH]
024244
PFECHZ
02432¢

QDRVO
QDRV1
QDRVZ2
QDRV3
QDRV4
QDRVS
QDRVE&
QDRV7
QINPT

QOUTPT
QSTART
QSTOP
QTERM

RBUF
RDCHR
RDDAT
RDHD
RDLIN
RDY
RD.ADR
RD.RM

RD.RM1

RD.RM2
RD.RM3
RD.RM4

177776

000024
035652
035744
035764
036004
036024
036044
036064
036104
036124
035662
035702
035722
035724
036144
046224

104410

000171
000173
104411

000200
035134
035110
035132

035256
035262
035266

RD.WRD
035136
READIN= 000121

RECAL = 090107
RECORD
020146

REJCT1
REJCTZ2
REJCT3
REJCT4

REJCTS

016430
016442
016464

016476
016510
016522

RMMR1 = 000024

RMMR2 = 000040
RMOF
= 000032
RMR
= 000004
RMSN
= 000030
RMTMR
034476
RMVEC
030460
RMWC
= 000002
RM.REG
005560
RMOS
031214
RTC
= 000117
R6
=%2000006
R7
=%000007

SAVEFG
SAVREG=
SAVW(C
SC
SCAWC
SCOPE =
SC01
=
SC02 =
SC04
=
SC10
=
SC11
SC12
SC13
SC20 =
SC3
SC4
SCS

030416
104412
001346
033326
017072
000004
000100
000200
000400
001000
034160
034270
034340
002000
033376
033402
033474

STCLK3

PR
RS AR

=
SEEK
SEEKFG
SELDRV=
SERNL
SE TRSF
SETDPB
SETFMT=
SETHDR
SETVEC
SE7.IE
=
SK]
SLASH
SNGSEC
SOF SW
SORT1
SORTZ2
SRCHWT
STACK =
STARS
START
START1
STCLK1
STCLK2

OCO0O

S(8
SEARCH=
SECCU
SEC30

{wle]

SC6A

SC7

[elelelolelele

[}

177776

002000

SC6

WO
nNO
NN

PS
PSEL
PSW
PWRVE
C
QCNT

177772
000240
0363240
002000
000040
000100
000140
000200
000240
000300
000340

REJEND
016534
RELSE = 000113
REPLZ
026774
RESET
020754
RESREG= 104413
RESTRT
(017522
RESVEC= 000010
RETBAD
011644
RETRY
001342
RMADR
030456
RMAS
= 000016
RMBA
= 000004
RMCS1 = 000000
RMCS2 = 000010
RMDA
= 000006
RMDB
= 000022
RMDC
= 000034
RMD3S
= 000012
RMDT
= 000026
RMECT = 000044
RMEC2 = 000046
RMERRS
030320
RMER1 = 000014
RMER2 = 000042
RMHR
= 000036
RMINIT
030466
RMLA
= 000020

PR4

PRS
PR6
PR7

024360
024370
024374
002000
001000
020000

S RS

PR3

PRO
PR1
PR2

[

046105
037427
037021
037315
037740
MSG13A 041450
MSINIT
042033
MSIZE
041771
MSPRM
042362
MSQVER
037337
MST(CK = 000010
MSVER
037376
MUNIT
036573
036751
MUSDR
MUTLTY
040521
MVERFY
037062
M
001352
MWR
000040
MXF
001000
MXWNDW
030464
M16BIT
037106
MRMVEC
MSCMPT
MSELD
MSFOR
MSGBLK

046076

PFECH4
PFTSTN
PGE
PGM
PIP
PIRQ
PIRQVE=
POPQUE

MRM( S1

PFECH3

042100

MRD

06214

000400
000020

MEE

HWnnn

VLununuununununuvaanunuon

VNN

23es ZgC\C\ SRIGGRAK222992

=333 FRARAAARARARAAA

MINTRK

023756
000120
000001
00000

nnn

IBSAVE

[E
iLF
iLR
INITME
INITUS
INSERT
10TvEC

Segnass SRR

MACRO v(4.00 4-APR-B1 18:39:56 PAGEESg-Z

JRMLB0 RMOS/3/72 FORMATTER
SYMBOL TABLE

001316
013474

020250
030402
001100
062423
007012
007020
017436
017506
017512

STKLMT= 177774

ST0

ST01

ST02
ST03
STOS

ST06
ST07
ST08
STO9
ST.CLK
ST1
ST2
ST3

SVRH70
SWR
SWREG

SW0
SwW00
SWO1

SwQ2
SW03

SW04

Sw05

SwO6
SwQ?7

034566
034622
034716
034746
034772
035000
035036
035066
035076
017360
010446
011566
013056
035462
001154
000176
000007
000001
000002
000004
000010
000020
000040
000100
000200

03040¢
NS
= 040000
036555
UNSTAT
ULDFLG

036432

UNTOFF

036443
001406
UPDBSF
uPDCYL
017206
UPD TRK
017320
UPE
020000
004430
USSAY
003424
USTAB
us1
000001
us2
000002
000004
usSsé
vF YHDR
015110
= 000100
vV
Ww(
001350
WCE
040000
Ww(CF
000040
wCKD
000151
WCKHD
000153
WwCTBL
006164
WLE
004000
WRAP
001376
WRL
004000
WRTDAT
000161
WRTHD
000163
WRTRK
013214
WRTRKA
013676
WRTRKB
013774
WRTRKC
014060
WRTRKD
014142
UNTON

WRTRKE
WRTRKF
WRTRKH
WRTRKX
WRTRKZ

WRTRK1
WRTRKZ2

4-APR=81

18:39:5¢

001150
001264
001136
001142
001200
001270
001272
026212
024714
001114
000000
000001
025621
025633
025626
036602
001236
001205
026660
027134
027364
027314
001220
001266
016362
026650
016352
016336
001230
001231
015740
016330
001117
001131
023330
001132
006460
001126
001274

001212
027750

WRT.R1
WRT.R2
WRT.R3
WRT.R4
WRT.RS
WRT
. WD

XSIZE
XXDP

$APTHD
$ATYC
$ATY]

$ATYSL

;

001176
001230

WRT.AD
WRT.RM

$ATY3

v04.00

027522

001172
001171
001134
001140
016342
025004
0000C2
001100
001120
03027¢
001151

001130
001204
027747
001302
001300
001310
001312
001122
001124
001304
001242
001246
001252
001256
001210
001240
001244
001250
001254
001102
027746
025651
001224
001226
001210
025640
001241
001245
001251
001255
001170
SNWTST= 000000
026440
027466
026442
001216
001106
030304
030272
030132
030266
030204
001204
025256
025346
$RDSZ = 000017
030010
001274
001276
036536
036543
036550
016364

027752

03030¢
027100
027330
$SE TUP= 000116
$STUP = 177777
026670
026704
026716
026760
000210

123000

001232
001214
001162
024376
024414
$TKQEN= 024413
024400
024402
024404
001160
024464
001174
000002
027244

001166
001173
001164
030046

030070
000014

030102
001104
001116
025602

026444
025662
026074
026214
026242
026256
026216
001222
001110
001234
001260

001262
000023
000021
$S$GET4= 000000
026441
L]

MACRD

FORMATTER

Hnhn

‘2

001100

i
i

18:39:56 PAGE

TARLE
$8GE T4
$OF I1LL

$ASTAT

41=1

$ATYE

L1='m
Li-1m
Li=1%
9=31e

ATV

ATV,
$ATY(

$ALUTOR
ERASE
$BDADR
$RDDAT

G=82

SBELL

$lDw!
$Chwe

Sk SWR
$cM3
$(M4
$CMTAG
$CNTLC
$CNTLG
$CNTLY
$COMMA
$CPUOP
$CRLF

$ENDCT
$ENV
$ENVM
$EOP
$EOPCT
$ERFLG
$€ RMAX
$ERROR
$t RRP(

PERRTRB

$ERTTL

$& SCAP

$F TARL
$E TEND

$FATAL
}TR

12-8

13-6

19-3

31-1

29-1

31=-1

32-1#4
43-1

32«1+
43-1

32-1+

32=1+

9=-26
311

9-26
31-1

31-1

31=-1

25-20

31=14
25=25

46=148

9=51

9=102

9~152

31-18

20=20
25=14
32=1
38=-14

40=1#
34=1

$DBLK
$DECVL
$DEVCT
$DEVM
$DOAGN

10=5

29-1

6=0#

$DB2D

9=70
9-84

9=15e
10-28

$CHARC

$DTBL
$ENDAD

23-1a

S=-8#

$APTHL

|
-

G-

="
7.8

$40CAT

38-1#4

9-19+

-0

20-24
29-1

32-1

13-8

6=0a

9-26

9-26
31-1

10-69

21257

21=23%1

31=1

13+22

Y3-27

13-30

31-14

11=7

10-174
24-12
30-26

24=25
30-31

21-202
29-1

29+1

29-1
32-1

32=1
32+1

41-1

41=1

51-16

21-186

24-58
30-41

24=71
30-55

24=87
30-68

20~3
264=104

20-7
24-106

49=-12

31=1

20=-12
26=196
31-1

34=14

10-10
19-1

346-14

19-1#
19=-1#
19=1

19-1#

9=31
9-26

20-30

19-1#

29=1»

29-1

9=26+
29-14

29=1
30-23

10=119¢
9=26+

29-1

291

29=1»

29-1+

30-79

49-8

49-G

649-12

49-13

49-17

19=1
11=65+

19=1
15=202+

19=1x
15=216+

29~1
16=21+
45-831

29+-1

29=1+»
16=45+
45-:19

16=91+
45-;78

18=49%
45--82

18=76+
45-=92

19=1»

CO=En

45=:9%%

45235

29=1

29-1

65-773%

=08

41=1e
4118

41-1

41=T»

Gl=1n«

16=39
45-833

2l=l
e

=12

15=1%
L3=7
4=67

41=1+
21=167+

21-162

31-1

29~
51=

16=7+

6=0#

9-21

41-14

411w

321

29=1x

32=1

30-8

29-1

9-31

9-26

291

52=1

31-1

32=1

41=1%
»

sl sl

41-1

41=1%

41-1+

R 2
i

WSS WS

29-1»

21-168#

15=194+

32-1

52«1

33=1x

33=1»

33-1#

9=26+

3N=-12

31=-1
29-1
29=1

11=39+

40=14

L2="

=62

21=177%

21-163

$RDCHR
$RDDE(

43=1

21-172

21-173

6=-0%
§3=1

49=-1F

Lo=18

29-1
29=1

L4184
Lé=1

321
52=1

44=1
21-1

44-1
44-1#

112

PAGE

10=20

Vv01=05

6=0n

t-(l"

(kE F

TABLE

18:39: 5%

R '

(=8

L=-La

L-APR-B1

FORMATTE
R

EEERENE

\:NW

—

;'M

Ware " fGve

33=1e

19-1

thate

10m1s

LL=28
44=1
“6-1a

L4148

29=1

43=1

43-1

31=1

52=1

<SMLBL RMOS/3/2 FORMATTER
ROSS REFERENCE TABLE (CRE F

9=140
9=137
G=143
7=08

7=08

16=14
L4=1
Lo=-14

21=249
26=12
L=266

9=26

29=1

L4=266

75=15
35«74
21=250
35-174
5=5
L=53%
G=26

$SWREG
$TESTN
$TKB
$TKCNT

29-1
6=0#
6=04
6=0#
31=1

$TKQEN
$TKQIN
$TKQOU

31-1
31=1
31=1

$TKINT

$TKQSR

$TkS

$TKSRV
$TMPO
$TN
$ INPWR
$7PB

$TPFLG
$TPS
$ TRAP
$TRAP?
$TRP

§£ TRPAD

$7STM
$§TSTNM
$TTVIN
$TYPRN
$TYEDS

G=68

31-1

6=0#4

32=1
31=1
6=0#

4=54#

L6=104
LE=118

G=73
F=74

L4-14

)

45=<17

584+
9-80»

49=7

=17

51=26

Li=Tn

44=1+

25-18
26=20

25-28

43-1

4=266

4=266
9=26
31-1
4=266

G=26
31-1
L=2664

9=26
31-1
4=2664

35-29
25-19

35-33#
25=29

4-63
19=1

19-1

19=1

9=26

29-1

4=266

35-204
35=1Gn
21=256
5=5#

4=-62
19=1

29-1
9-26

921+

21=225
31=1

10-118
31-1
31-1
31=1
31=1

21=240+
31-14
13=-16+
4=62

38-1

S5=¢

Li=1

43-1

21=255
26=15

J 12
PAGE

29-1

21-102+*
21-239
31-14
12-11
31-1#
31-14
31-1#4
31-1
31-1

13-17
9-21
38-1#

51-35

37-14

31-1
4=2664

=31

4=2664
=31

9-26
9=31

4=2664

L=2664

26=13

26=21

35-12#

463

463
29-1

29-1

4-63
29-1

22-17

22023+

31=1»

31=1

30-14
31-1

31-1

19-6

31=1w

30=-11
31-1

21-188

311

3t=1

31=-14

31-1x=

31=1»

31=1x

31-1

31=1»

1321

1323

13-31

43-1
43-1
43-1

4=2668

4=63

31-1

=12

9-21

4=266H

31-1e

9=214

L=2664
9-26

4=2664

L-63

9-26
19-1

9=-26

19=1

=266

L=2664

4=63
29-1

6-0
29-1

6=0
29-1

31-1

32-1

31-1+

9=26
29~1

9=26

291

9-21

6=0

29=1

29~1

3i=1+

32=1

43-1

43-1
43-1
£3=1

$5TUP
$SUPR1
$5UPRZ
$SUPRL
$SUPRS
$SVPC
$SWR

(5-164

31-18
43=1
45-193
L6=9%

18:3G:5%4

31-1

L2=14

431

4&=APR-B1

‘

$RMO2
£M03
$RMOS
$MMADR
$SRMVE
C
SRTNAD
$SAVRE
$SAVRE
$5B2D
$5820
$SETUP

2.8

v01=05

V04 .00

$ROLIN
$RDCCT
$RDSZ
$RE SRE
SRHEXT

MACRD

32-1
3¢=1
32-1

43~
43-1
43-1

91
31=1
43-1

43=18

31=1

. 4318

3=-1a

43-1
63-1
43-1
43-14

43-1
43-1
43-1

(3-8

43-1
43-1
L3-14

L3-1#

43=1
43=1

43=1

L3=-m

""M\ b\

RMOS/3/72

ROSS REFERENCE
$TYPE
$TYPEC
$TVPEX
$7YPOC
$TYPON
$TYPOS
SUNIT

- SUNITM
-

$USWR
SVECTI

SVECT?2

SXOFF
$XON
LSBASTA
Alé

A17
ABASE
ABORT

ACDW1

ACDWZ

ACK
ACPUOP
ACTDRvV
ACTSTR
ADDRIS

ADDWO
ADDW1

2o-148

31=-1
32=1

3314

331
33-14

6=0n
S-8#
6=08
6=08
6=08
32=1
21=1

FORMATTER

TABLE

(CREF

43-1

30=1

o=-1»

z2=1

43=1

45-692%

45-700%

16=55

19=1

246=194

32=1
32=1

32=1

L6=794
6=0

4=251#

45-399%
45-:03+

9-80C

S~8#

6=0

6~0

6=0

6=0
45-348%
45-589+
Lb=4L3n

45-987

ADDW10

ADDW11
ADDW12
ADDW13
ADDW14

ADCW15

ADDW?2
ADDW?3
ADDW4

ADDW5
ADDW6
ADDW?

ADDW8

ADDW9
ADEVCT
ADE VM
ADRTBL
AENV
AENVM

AFATAL

AMADR1
AMADR?
3
AMADR
AMADR4
AMAMS1
AMAMS
2

AMAMS
3
&
AMAMS
AMSGAD

6~0
6-0
15=191

;

K 12

18:39:56 PAGE S -4

43=1

9=-78

20=29

43=1

32-14

43=-1

43=1
7=0

)

4-APR-B7

32=-1

32-1

3314

41=1

6=0
6=0

vO1-05

41"

L41=1

5-8
L=T7EM
L=774
4=2634

MACRO v04.00

JRMLBO RMOS/%/2 FORMATTER
(ROSS REFERENCE TABLE (CREF
AMSCGLG
AMSGTY

AMTYP]

AMTVYR?

APTCSU

APTENV
APTSIZ
APTSPO

ASKO
ASk1
ASKZ

ASK3

ASK3A

ASWRE
G

ATO
AT1
AT2
AT3

v01-05

)

Py ;.'4 . l:“}

L=-APR-B]T

18:39:56 PAGE

S=5

6=0
6£=0
6=0)
6=0
6=0
6=0

L=147%8

6=0
6=0
32-1

29=1

41-1

32-1
10=6

L1=-14
10=-674

=26

10-894
10=117#
10=1784

10-135

L1=-14

10-148

10-153

10-156

19-11

45-145#

45-319

45-411

45-516

45-896

45-924

45-932

12-66
13=35«

21-200

21-283

24-206

2727

23-17

23-25

L6=344
16=52

10=1944
6-0
L=1674
L=168#
L=1694

AT4

ATS

atTé

AT7

ATA
ATABIT
ATESTN
ATTN

AUNIT

4£5-933

4£5-955

49-4

AUSWR

22-95

29-1
45-391

45-656

16=16+

16-18«

16=19*

24222

16-20*
24=224

45-866

45-886

45-928

45-<04

45-393

45-426

45-609

45-654

24=229%

16=53

17=14»

24-232x

24-234

45-670

45-876

24=239+

45-:72
45-886

4,5-382
45-59N
45-329
29-1

45-455
45-712

45-735
45-850

29-1

45=:40

29-1

45-658

45-418
45-276

45-619
45-310

45-973

45-329

45-<43

-t

—
—
i —

10-190
7=-0#
22-89

nN=O -ofi%xfiiunihu n

2223338390938
o

g Pt

g P

g B

® oo domDod

AVECT1
AVECT2
BADENT
BADSEC

AMTYP3
AMTYPS
ADE
APASS
APRIOR

- q

MACRO

D
b

— —t ot

—y

O [« TRNTe V. TSEPNTA

SRPPIo wowm

—
P
e

LTM
WP SR o
v

BO RMOS5/3/2 FORMATTER

BLNKS4
SPTVEC

BSE

BSFAVL
BUFP

L=6£88

(=684
L=6ER
45-619
4=£6£84
L~684

4=684
L-688
L-6Ba
L=684
4L=684
4=684
14=10
G=134
46=208

9=-104
L=-684

L=228#
7=04
7=0
7=0
7=0

11=135

BUF
V
SUSADR

BYTE16
?VTE18

+«

-p o

5
Ey NO N WN—- o

CALIN

OO In)

BLNKS3

X v

BLNKS
BLNKSZ

|
|

REFERENCE

22=46

18-16

9=72
7=0#
7=0#

21=247

10-117
13=54
7=0#
45-445
45=447
45-439
45-495
45=535
45-378
45-568
45-6244
45-627
10=-124

28-28#
21-280
51=24
28-104

29-1

1664

21=164
L=964

45-216
7=-0#
10-121

29=1

4=-684
4=-684
46=23

TABLE

(CREF

v01-05

21=10

21=43

12-25

12=43
45-658
45-:84

17-11

65-656

21=10

MACRO v04.00

17=-13

)

29-1
21-10

4-APR-81

M 12
18:39:56 PAGE S-6

15-123

45-735

15-138
45-850

45-821
45-388
15142
45-866

30-51

30-60

30-71

46=214

15-36

15=63+

45-376

21=43

45-:15§
45-42%
15-157
45-876

45-96%
45=37¢
45=966

45=:76
45-388
45=:40

45=:22

45=:26

45=:76

45=-:84

7=0
7=0
11-81

45-391

45-393

as-(“1

45403

45l
D¢

7=0

10=7

46=228
21=251

24=200

51-21

51=30

7=0

11=75

11-77

11-79

L6=19#4
18-71
11=24+
7=0
7=0
7-0
11-141

22=49
53-94
51-13#
24=224
24=234

L6=174
21=2144
9-18+
45-4734
45-4974
45-5194
45-517
45-545
45-454
45-578
45-917
456414
28=50#

28-56
24-192
51-33
28-58
£9=1

11-86+
7=0
7=0
7-0
14-25

7=0
7=0
11-69
19-1

7=0
7=0
11=-73
21=-56

45-603#
45-493
45-6054

45-502

28-81#4

22-53

7=0

11-84

7=0
11-118

7=0
11-126

21-103

21-124

21-149

22-12

22=26

22=40

22-43

45-515
45-<16

45=527

45-534

45-540

45-544

45-558

45-56%

30-79

3¢-1

44=2
46=36

46=-12
L6=37

46-13

L6=23
LE~38

21-215

21-245

51-13

51-15«

45-5974
45-547
45-485
45-589

45-607
45-549
45-489
45-60¢

45-770
28-87

45-:67

27-17
52-13#

27-20

27-23

45-234

45-681

21-245+

31=1

31-1

29-1

29-14

29=1x

29-1x»

9-45
4627

9-56
46-28

9-62
46=32

46-33

28-95

43-1#

21=-208#

10=-140
L5-<95%
10=117*

29-1
32-1

9-31
46=25

48-17
9-31
4626

9-63

32=1

46-34

46-35

46=37

“JRMUBO RMOS/3/2 FORMATTER

CTROSS

REFERENCE

46~38
46=53

=
|
.

DEVMP

)

46-81
L4-15%4
L~68#
7=0n

46~81
16-33
6~0
29=1=

LE6-68
46-83

46~-68

9=26
49-4

49-5

19=1»

21=233x

21=234»

7=0#

3-7
8-56
8-105
8-14
8-112
50-294

DF 25

8-49

DF2?

v01=0S5

46=39
46-55

DF 1
DF10
DF17
DF2
pF 20
DF23

DF 264

(CREF

46~39
46=54

LE6=67
DCK
DDISP
DDRIVE

TABLE

MACRO v04.00

46=67

9=G9«

50-3#
8-63
50-19#
50-5#
50-21#

8-140

50-31#

8-21

50~7#

8-133

9-132+«

46=40
46=56

46-83

9-133

8-70

8-77

8-147

50-3%#

8-68

8-75

4-APR-81
Lb=44
L6=57

46=70

49-6

N 12
1B8:39:56 PAGE S=7

46-45
46-58

46=71

L6=46
46=59

L6=72

SEQ 015¢&

L6=47
46-60

46=48
L6=61

46=49

46=76

46=4B
46-62
46-77

46=63

46-50
4664

L6=51
L6=£5

LE=570
LE6=60

10=40

10=48+

19="

19=1

46=75

9-133+

9-7517

9=151%

10=12«

10=13»

10-18

8-84

8-91

8-98

8-119

8-126

50-134

8-82

8-89

8-9¢

8-117

8-124

L8-8#4

L6-78

46=79

46=-80

4L6=80

DF&
DFé
DH1
DH10
DH10A
DH10B
DH17
DHZ
DH20
DH20A
DH20B
DH20C

8-28
8-42
8-5
8-54
48-9#
48-10#
8-103
8-12
8=110
48-13#
48-14#
48-15#

50-94
50-11#
48-34
8-61
50-15
50-17
48-11#
LB8-4LH
48-12#
50-23
50-25
50-27

DH24
DH25
DH3
DH4
DH6
DISPLA
DISPRE
DLT
DMD
DONE

8-138
8-145
8-19
8-26
8-40
6=0#
5-14
4=106#
L=157#
19-1

48-17#
48-19#
48-5#
L8-6#
4LB8=74
9=26*
9-26

45-245

45-248

45-358

45-790

45-817

45-956

45-958«

45-:31

45-:54

45-:60

45=:70x

45-70#
45'35

45=364
10=47%

45=412%
10=129*

45-449%
10-158

45-629%
11-25

45-646
14-8

45-664*
21-53

45-793
22-91

45-:33
49-8

49-9

45-:56

45-:62
49-12

45-:80+
49-13

49-17

49-18

45-644

45-663*%

45-705~

45-813

45-848

45-880+

4£5-888+

45-908

45-323«

45-804

45-271»
L5-874+
45-298+

45-281+
45-881+
45-303»

45-325+
45-897

45-389

45=331x
45=961

45-354
45-:7x

2462

24=75

24=219

29=1»

L5=

DHZ23

%;aNt
3

DPRQS
DRIVE

8-47

42-?}#
-127#

8-131

19-1

50-33
50-35
50-37

L8-164

9=26%

19-3#

29-1«

DRQ
DRVACT

4=190#
2%-33?

45-372

45-552%

45-600%

45-631%

DRVCLR
DRVINT
DRVOQUE

4=246#
45-236
45-367

45-270#
45-380

45-360
45-=35#

45-945

45-959

45-362

45-386

10=144

45-420

45-408

45-226%

45-227%

45-228B%

45-229%

10=57

10=150

10=163

45-524#

45-272x

45-288«

45-239+
45-819
45-293+

7=0

7=-0

7=0

23-13

23-23

24=16

24=29

DRVSTA

gz¥rvp

DS.CYL

—:

9=105

2-}32‘

10=-49

9-136

45-424

7=0#

45-553+

13-33»

45-684*

45-796

45=685

JRMUBO RMOS5/3/2 FORMATITER

ROSS REFERENCE

£9=12
7=0
£9=21

(=658

(=181#
L=182#8
L=-1R3%y
L=1844
L=185#

L(=1864
L=187#
L-1E8#
L=18B5%

TABLE

(CREF

49-"3

MACRO v04.00

v01-05

7=0

49=16
7=0

6=0

9=26

4922

L9=-34

8-62

L9=124
LO9=4La
L9-134
L9174
49-184
49=-22#
49=-54
L9-64

)

4-APR-B1

49-18
7-08

49-21
13=34s

8-69

8-76

8-83

45-441

45-494%

45-638%

45-736
G=2b%

45-:85

45-=20#

18-50
18-58

19=1

21-5#

B 13

1B:39:56 PAGE S-8

SEQ 0157

20-9=

23-15

8-90

' 8=G7

8-118

8-125

49-9#

45649

45-665

45-667*

45-678*

45-695

23=24

45-11

£9=12

49=13

Lu=16

49-18

45=706

45=-:3%6

45=:48*

45-;20

4L9=74

4L9~-84
16=33

45-222

47=34
47=104
W7=-114
47-12#
47-13#
47=-144
47=154
47-164
47=-174
L7-44
47-18#
47-194
47-204
47=-21#
47=224
G7=23%

47=5#
L7-6#
8-46

45-628
4-684
10-194
15-203

4=-133#

47-84
L7-9%

45-683
9=-26~
46=234
16=22
16=46

36-39%

21-110

22-98

22-105

11=-67

11-25+
15-8+

19=1»

18-36
18-120
19=-1»

11-26+
15=11»
15-143
16=53+
18-38
18-123~
19=1+

15-12»
15-145
16=55+
18=41«
18-124
19=-1w

16=33

EMTIDPR

10-158+

15=127
16=10
18=34»
18~119»

21=57»
21-248
29-1

FMTWRT

22=91+

FUNCT2

24=4614
2L=87R
24=1044

FUNCT3

FUNCT4
FUNCTS
FUNCT6
FUNCT?7
FUNCT8

GE TREG

GE TREG
GNS

GTSWR

T
HDRBI
HDRSET
HEDERR
HT

[AE
IBSAVE

15141+
16-12

11=27+

15=115»

19-1+

21=58+
21=254
29-1
22=92+

21=59+
21-304
49-22
22-93~

21-60+
21-306

21=67+
21-308

21=73~
21-315

22=94»

22=95+

2297+

45=726

45-800

45-839

45-910
9~5¢6
43-1

45-965

45-:39

29-14

29=1+

29=1e

24~230

24=240

24=157#
24-188#4
45-651
5=1
43-1

43-1

HCE
HC
I
HCRC

21-160»

H=1184

FILLZ
FmMT

FUNCTT

G=2G~

45-=91#%

L=1194

36-15
36=-114
18=-82

FMT16

45-:78

43-1#
16-33

16-33

43-1

9-31
43-1

9-62
43=-1

INI TMF
INITUS

18-67
17=7+

32-1

29=1

29-1

INSERT

I0OTVEC

24=31

24=64

ISR

L6=778
LE=764

24-18

45-692%

45-=564

9-£3
43-1

43-1
43-1

18-65

16=41+

17-34

9-45
43-1

22=50

ILF

ILR

36=36=

9=26~

FILLO

45=:1%

18:39:56 PAGE

F5
FER

G=28+

G260
45-833

WWO
£~ 00

Fé

L-APR-B1

]
[}
OGO‘NU\U\-—‘

F2
F3

. UL
yUs

9=-2¢
45-831

)

£5.S5AY

VO’-OS

4L-€84
L=684
45=77%
L=1164
L=117#

(CREF

ERROR
: RRVEC

TABLE

RMOS/3/2 FORMAT ER

ROSS REFERENCE

JRM R

24=77

29=1»

ZRMLBU
-

RU3D

LODEV
LOP.CK
LS?
LSTRK
MIARIT

MIBR]T

MADRER

MANTER

MAXCYL
MAXSE
C

RMOS/3/2 FORMATTER

REFERENCE
L-684
9-128

15=211

4=1294

7=04
11=17
11=15

10-204
26-13

(CREF

MCLK

45-157#
10-152
10-155
12-12

c4=95
24=115
24-118
24-188
24=152
24=215

46=-694

20-13

v01-05

)

D13

18:39:56 PAGE

=10

32-1

LE=17

18-95

21=37#

10-60»

10-166¢

11-27

11=71

15-23

24=26

24=59

24=72

24=216

27-8»

21-148

10~38+
22-17

22-18+

2223+

10-112«

15-133

10202

18-111

21-68

L6=574
46=58#
46=5%
L6=-604
L4614
16=41
11-97
12=-36+*
12-61

12=15+«
12=39x
12-64

12-24
12=-40%
15-40

12-25«
12-41+
22~25

12-26*
12-42+
22=39

11-96

12-64x

15=43

22-42

46=30#
7=0#
7=0%

10-197

10-202

21-59

46-28#
46=734
10=26+

11-8

14=17

32=1

-84
16-85

46=328
L6-334
46=-358
7=04
10=32#
7=0#

MAX TRK

MCPE

TABLE

4-APR-81

45-;02
L6=254

10-24+

10-61+

10-160+
10-106+

10=-167+

10-197

18-120

18-29

18-80

18=124

21-77

15-145

SEQ

19=1

22=101

15-152

16=5¢

16=79
¥ 4

45-;48

L6=264
K
Lb=44

L6=628
L6-634
Lb=64H

L6-654

24-182

4L6=-684

L6=674

L6=704
L6=714
L6=724
Lb=4L54
Lb=464

L6=4LT7H

264=245

Si=412

18-11

12=27+
12-43~»

26-19

12-28+
12=46+

24=22

12=29+
12-52
24-91

24=135+

26=136*

24-137

24=32

24-35

24-96

24=143»

26=144»

26=145

24-247

21- 0§

22%%7
21=73

22=20+
21106

22=23%

21=125

22-17

22=21+

22=23+

18-8

18-20

18-78

246

2441

264=127

26=157

12=30+
12-54

12=31+
12=57

12=32¢
12=59

JRMLBO

RMOS5/3/2

CROSS REFERENCE

MRMVUE
C

MS(MP

MSELD

L6=25H

MSG13A

24-189

MSF
O

MSGBLK

MSINIT

MSIZE

MSPRM

MSQVER
MST(CK

MSVER
MUNIT
MUSDR
MUTLTY
MUERFY

Mw(
MWR

§1=27
16=1

MXWNDW

NEA
NED

NEM
NEXT
NOENTR
NOINIT
NOTPRS

NOTRM
NOT SAF
NOUPDT
NUMERR
0.ENTR
OFDIR
OFFSET
OP]

oPT
OR

PACK SN
PAR
PAR1

PAR?
PAR3
PARS

PARS

PARG
PARENT

PAT

PATA
PATR

PFECH
PFE(H]

PFE(CH2
PFE(HS
PFE (H4

PFTCIN
PGE

BGM

14=20

TABLE

(CREF

Lb=74LR

11=10

7=08

L=162%
4=1004
45=169#
4=1934
4(=103#
4=102#
7=0#

25=35

24=129
9=115
9=112
9=121

24=8

19=1
11=5
4=2114
L=24L8k
4=151#%

45=374

18:39:56

E
PAGE

13
S-17

)

L6=378

10~-89
10-179
18-10
4=1604

13=14

4&~-APR-RT

LE=E6R

46=488

18-12
10=120
10=147

vO1 ~-05

04,00

51=428
L5=408

13-13

21-189

MATRD

FORMATTER

LE=75H

L6E~82#

46=-38#
46-35%

14=7
46=278
L6=564
L5=314

10=31+

LH=134

10=36+

10=105+

10-111+

15-114

18-18

21=55

15=119

15=137%

15=156%

15-159

15=171+

15=176+

45=504

15=109+
4Lb=78%
24159
46=6n
46=54
Lb=7H

46-814

2443

L6-80#

14=13

21=225#

21-258

16=33
45=-409#

45-730

45-937

4b=41#

Lb=42n
7=0#
7=0#
7=0#
7=0#
7=0
7=0#

7=0#

21=2674
14=26

14=27

30-75#

21=133
21=134

30-76#

30-774

30-75#4

30-80#
30-79

30-83#

45-379

16=57

16=59

16=9¢4

HMOE, 270 FORMATTER
REFERENCE TABLE (CREF

A RO

L=1308
L=6B%
L=6RE

45=422
L= 58

vO1=05

v046.0 [

4=-APR-81

F
18:39:56

PAGE

S=12

L5=927

L5=971

L5==72

10=143+

11=6»

14=15«

21=244s

45214

45=215#

L4=1+
45-=35
L5-<87#
45-<87#
4L5-<87#
L5-<B7#
45-<87#
45-<87#%
L5-<87#
45-<87#
45==40%
45-=73
45-243

L4=1n

45=-=37~

La=1x
45-=57

44=1n
45=-=7"1»

44=1n

Gh=1r

45-=41

45-:43%

45-275+

45-=76

45-=78+

49-8

18-85

18-85
49-17

18-89+
49-17

53-5#

18=90~

45-562

45=576

45-714

21=190

21=278

45=47%

45=590

L5=-EG?

G=29

21=166

21=176

L=6.84

10=67»

G=26*

L=fEE
L=hHRE
L=6R8

L=£R8

Le=6B8
L=FBA
L=688

L=68

45=410
U‘-‘u

PulVE(

QONT
QDRYO

QbR

QDRV?Z

QDRYV3
QDRV&

QDRVS

QDRVE

DRV7

QINPT

QOUTPT
GSTART
QsSTOP

QTERM

R7
RBUF
RD.ADR
RD .RM

RD .RM1

RD.RM?
RD.RM3
RD.RM4
RD.wRD
RDCHR
RDCAT

RDL IN
kDY

READIN
RE CAL
RECORD

REJCTT
REJCT?2

REJCTZ
RE
1 Ta

REJCTS

REJCTE

L=788
L=6B8

4=6,84

L5=<548
45=<6]
45=<bb

45=<bb
45=<bb
45=<bl
45=<b4
45-chlt
45=<blt
45=<618
45-<688
45-<738
L5=<748
45-<81
4=H84

L-684
7=0

22=94

45=;04%

45=458+

=26

45-<96
45-<68
45-<71

45~<71
45-<71
45=<71
45-<71
4L5~<77
45=<71
4L5==22
45-=22+
45-=02
45241
L5-<B8#
9=26

18=77+

22=-98*

45-:05*

45-284

45-314

45=;18
45-:08#
13=15
4=260#
4=2618

45-;37#
45-;09
31-1

45=;69
45=:064
45=:02%
45=:13

10=-71

4=758
4=250#%

L=2458

45-;75
45-:34
45-;334
45=:25

11=41

10=-90

16=40
11-83
20=7#

21=301#
20=3#
22=86

18=96
Jl=l6m

20=208
271=3%18

19=1
20=16¢

20-124
21=47

45-=2(0+
4L5-<73
L5=<74

45-<7S
45-<76
45=<77
45-<78
45-<79
45=-<B0
45-=39«
45-=60
45-=07
45-=76
9=26+

9=-26+

18-82+

18-84+
49-8
49-5

22-105+

45-;07#

45=320

45-<08

45-538

45==74»
45-=78

45=244n

45=252+

45=34¢

45347«

45=400¢

18-91

22-82+

22-88+

22-89*

22=90»

45-768

45-842

45-852

45-868

45=-:23

45=;02#8

45=;55

24=190

27=15

L3-1m

S1=22

51=-31

45-:35#
49=5

43=14
18-41

10-122

49-6

10-180

TRM

SMOS/3/¢ FORMATTER

MACRO

ROSS REFERENCE TASLE (CREF y01<05 )
&t END
RELSE
REPLZ

RESE?Y

HESREG

RESTRY
RESVEC
<F TRAD

~ETRY

" HE G

20=5

L=2a78

36=13%

=47
=73

RMAS
HMRA

RM( S

M52
RMDA

RMDE
RMD(
RMDS

RMDT

RMEC1T
RME C2
RMER1
RMER2

RMERRS
RMHR
RMINIT
RML
A
RMMR1

RMMR?
RMOF

RMSN
RMTMR
RMVE
C
RMW(
RTC

SAVEFG
SAVREG
SAVWC
SC
SOt

SCO2

SCO04
sC10

C12

17=15

20=14

c2=82%

4-APR-B1

G 13

18:39% :56 PAGE

S-13

20-18

20-22

20=26

20=-28#

21=203

21=23%5

15=6¢

i8-1

21-185#

40=1

3-1#

£5<253

45-394

45-397

45-459

4S5-687

45-699

45=:07

45=c27

4S=c11

708

11=23«

11=-60
19-1

17=62»
19=1»
16=30
49<-3
49-10
49=-14
49-16
45-20
15-196
10-139

11=66*
10=1x

15-212

15=214%

15=217+

16-86

16-88+

16=92+

18=7¢

18=62+

16=-32
49=-3

15=112»
19=1=
16=46
49-3

18-67
49-5
49-10
49-14
49-19
4£9-21
19=1
45-497

18=71
49=6
49-10
49=15
49=19
49-21

19=1
49=6
49=11
49=15
49=19

21=45
496
49=11
49=15
49=10

29=1
49-9
49«11
49=15
45=19

29=1
45=9
49=11
&49-15

49-20
16-9
45-162#
45-:97
45-932x%

49-14
49-18
49-20
18-35
45-233
45-<38
45-955x

18-65
49-5
49-10
49-14
49-19
49-20
19=1
45-476

22-107

45-519

45=346#
45-694

45=:21

45-;04

45=;10

45=417x*
45-973
45=-234*
45-940+
45-510

45-418
45-;56
45=274%
45-954+
45=526

45-492
49-4
45=276
45=:22%

45-514

45-557

45577

45-588

45-605

45-626

45-715

65-366*
45-;11

45-416+
45-;66

45=477*

45-498+

45-520%

45-609

45-654

L=hBR
T1=238
18=63

70}

4L9=73

L5=5

wMOS
RMADR

20-8

v06.0C

4G=11
£9=15
45=20
11=33

Q=73

L5=:14
45=1304

29=1
45=173%#
45=769
=93
45-670
16=16
45-182#
45-187#
16=46
45-1844%
45-1914
45-192#
16=32
45-190#
45-234
45-188#
9-%1
45-181#
45-183#
45-18%9%

45-186#

L=1404

45-185#

21=-209

Q=74*
L5=1744
L4=249n
9=04»
30-6
7=0%
45-698
4{=1974
4-1G8#
4=19%9#
4=200#
45=-841
45=807

18=752
7=08

49=3
4L5=9
49=14
49=15
49=-20
11=4¢2
G=85+
45-,28
45=319«

29-1

45=275+
45-828
10=140*
45-681«
19-1
45-<02
45-488
45-1784
45-285

45-<12

16=16

49-3

49-9
49-14

49-15
4£9-20
15-13
9-92

45=;:61
45-766
45-1754
45-282
4£5-859
16=30
45-713x
45=176#

45-;65

45-896*

45-308
45-904
45-177#
45-840+
45-484

45-533

49-10
49-14
49-16

49-10

18-58

49=5
49-10
49-14
49-19
49-20

18=42
45=353

51=36

45-:51

45-501
45-315

45-843

45-869

45-941

45=:24

45=;98*

45-<04

45-<39%

45-943
45=-217

45-17%#

45-321

45-853

45-942

45=:70

45-806

45-811

45-821

45941+

45-942«

45-943%

45-944n

49-4

10-138

45-2134

45-944
45-312

45-539

45-543

45-563

45-567}

981+

45-1634

45-230

45-232

45-347

10=-141+

45=1174
40=1
21=91

45=-592
L3-8

45-719
45-213

45-929
45-349

45-409

456471

45-653

45-990

45=;94

45=<95

45-846
45-815

§5=G2(s
L5=5408

21-45

45-9874

38-1
16=67+
45-766#

45-15

45-<44

o)
SFR

SCAWC
TEARTH

"Ef SC'

SECCU

FEK
SEEREG

SELDRV
SERNL
SET.IE
SETRSF
SETDPB
SETFMT
SETHDR
SETVEC

Skl
SLASH
SNGSE
C
SOF Sw

SORT1
SORT2

SRCHWT

ST.CLk

ST3

STACK
STARS
START

STARI1
STCLK?
STCLKZ

STCLK3
STKLMT

STO
ST

ST102
STO3
STOS

5106

STo7
STO8

ST09

SVRHZ0
Swi

SwO0
N1

‘\."»

L5=78Lm
L5=782
L5=814
L5-B12

45-85%1

(CREF

vO1=05

)

4=-APR=-ET

H 13

18:39: 56 PAGE

S-14

L5=755

L5=551%

45=786
45-818
45=790#

45-B3¢

45-83,

45-BBS

45-906

45918

45938

45-8€7

45-RB77
45-860

45-B8B#
45-870

45=905

4590848

45-949

10-109+

1113

11=13%6

15«9

18=31

21-108

22-17

15=74

15=75

15=92

15«G4

15«105

15=120

17=8

45-774

45-<37#

21=94»

65-836#
(5-862#
45=-865
L5=844

21=914
10=27»

45=854

10=37»

10=103*

24=111

22=54

22-103

24-50

45-1254

45-218

45-443

45=278

45-384

45-457

45-6B6

18-34

19<1

18-60
16=69%

18-104
16=72

16=74

16=76*

16=82*

24~34

24=67

24~80

24=244

24=246

14514

15195

16=7

45=:63
45-856

45=:65
45-875

45-:68
45-931

16=27

22=12#
18=13
11=32
18=14
9-83

LE=164

18=19x

15=111~

21=325#

15=45

21-53#

15=12
21-1014
9-904

18=23«
16=37

24-21

45=4711*
10-137
10-45
10-183
19-12"
9=26

45-=516*
19=5
19-7
10-189
44-1
11=40

9=15#4

9=67

L6-834

9-18#

15=46

22~22

45-924
21-160#

45-933s

11-54

11=93

21=1704

21=179#

21=178

21-180#

45=:174

45-:32
45=-:608
45=:708
L5=:79%
45-:85#
45=:38
45=721
16=G

L=688

45-:34

L5=-:5"n

45-:49
L5<737

45=:58
45=801

45-:75
45=-G¢7

]

L=208
L5=7R'#»

TARLE

v0&4,.00

Pake
o)

€709

KI=IYL

MACRO

FORMATTER

EFERENCE

&MOS / 3

LS5=:878
L5=:86

L5=-;54m

ROSS REFERENCE

/2
Swi

SwC?2

SWOG

Swis

Sw!

Swll

Wi
Swle
Swisd

L=h5

L=68

L=hB
=
L=f
L=4B
L=6B
L=bR

L=68

L=6BR
L=684

L=688

L=HBa
L=688

SW3

SWS

SWé

SW?7

Swi
SwS
Swh

SWREG

T
TAB. XY

TABCAL

TABINT
TABLD
TABLE

TABLEZ

3
TABLE

TABLES
TAP
TBITVE

D
TIMER

TeVEC
TPVEC
TRAPVE
TRE

TRK1

TRK10

TRK2

TRK20

TRK
&
TRKTST
TRNSWT
TRYVEC

IsT!

TYLIST

TYPA(K
TvPADR
Yoy

((REF

:{“:.“,

113

‘..‘:

,07=lf

L-LBa

G=tE8
L=tRE
L=6,B8

4=68%

(=688
L=bB8
L=fRE

21=3%7

L=688
L=684
L=684

‘wlé

su;S

TARLE

LeAPR-81

IR B0 MMD5/8/2 FORMATIER

L=6EN

L=68R
L=-688
L=680
L=684
L=688
L=68%

9=26
31=1
9-31

6=08
29=1
5=1#

21=252

9=26+

31=1

9=26n

31-7w

311

9=-26+

44-1
31=1

9-31

9=-97

17-3

19-9

1=3%7

29-1

45-883« 45-935e

45=952+

45-976+

£5-993

45=995+

4£5-668%

45-710

45=711s

45-:35%

L5=:47

44=1~

5=94

7=0#
11=-63%

11=1144
7=0#
7=0#
7=0#
=08

10=170*
24=14
24=27

10-196
24=60
24~73

45=705#
45-452+

45-598+

45-662+

45-708+ 45-837+

L=-684

11=5»

14=13«

21-258+

3i=1s

31-1s

L-684
4=-80#

9=26+

45648

L=192#
L-688

45-697
45-1304
L5=:79¢

L=68#

24=217

4=203#
4=2064

“=204m

&=2074
4=205#

17=20

21=-66#4

21=214

45=794

45=474

45-632

45=637+

24=-93%

26=97

9-16

S=214
24=116

21=216
24=120

25-13#

L=688
9=-11

14=11
J1=244n

24=-88

246=105

2E=58

45-679

45=:64

L5=:7;0w

TYeps
tyOf
t

191

L)
=128

10=147

12=66

1G=1

c0=29
26=8
26=104

TYPERKN
TYPOC
TYPON

TYPQS

ULDFLG
UNS
UNSTAT
UNTOFF
UNTON
UPDBSF
UPDC YL
PP TRK
UPE
us?
us?
US4
USSAV
USTAR

vF YHDR

vV
w(
Wik
Wik
W HE X
wikD
WCKHD

21=276
9=-31

9-131

10-152
13-13
19-1

21-185

26=11

24=106
24=208
30-32

31=1
34-1
30-64
24=199

9-59
17=7
45=273~

MACRO v04.00

vO1=05

30-48
G9=465

9-134
10-155

13-14
19-1

)

(3-1%
=51

9-56

10=-174
13-21

13-22

9=145

35-32

30-46

31=-1

9-103

14-8

31-1

18-83
45-356

J 13
18:39:56 PAGE S-16
SEQ

20-3
21-200
24=24
24-118
25-14
30-51
31-1
36~32

21-189
24-12
24=115
24=215
3C-41

4-APR-81

9-152

10-179

9=-62
10-69
10-190
13-27

20=7
21-229
2443
246=132
25-25
30-60
31+1

21-105
45-371~

9-63
10-70
10-194
13-30

20-12
21=246
24=57
24-152
25-35
30-62

24=-20C
30-27
31=1

45-798

45-893

45-895+

45-920

45=922+

L5=:46

311

24=95

32=1

L6=12o#
4634
Lb=4n
14=16+

19=1

19-1«

20-28+

1195

12=61*

12-63+

22=52

24-48

24=49

24=54

24-55

24-110

24-114

26=173

24=174+

11-98

12-60+
24=166+

12-62+

24=167

15-39

26-10

19=1

21=301

21=311

22=45

24=46

2447

26=52

24=53

10-104~

10-110+

14=24

19+1

45-525

45-532

45-542

45=556

21-83
21=70

24=113
17-21

10=30+
16=30

26=14

26=19

L5-742

10=25+

10=178+

10~207+

18=117

21=74

21=127

45=;64n

49-6

45=;
71

45=;77

65-;83%#

WRT.RS

45=:61*
45-;82
45-:814
45-,;68
45=-,85#
45-;86#

45-483
45-827
45=;60+

45-487
45-858
45-;634

45-691
45-903

45=500
45=-:4B4

45-509

wRT WD

45-625
45=:5%
15=193

19-1

22=93

WwRTDAT
whe THD

24=196
30-26
31=1

24=92

45-669*

16=65

WRT RM

30-68

12=12
18=1¢

20=2%
21-283

«5=630«

16=62

WwRT.R&4

26=9

Q=121
10-13%

20=24
21=277

51=29

15-183

WwRT.R3

31-1
§1-18

20=16
21=251
24=70
24=162
27=12
30-71
31=1
51=21

11=17
18-10

51-20

15-180

WRT.R1
WwRT.R2

20-13
21=247
24=58
24=159

9=-118
10=-126

44-1

15=165

wRAP
WR(
WRT,AD

10=204

14=7

9=102
10-89
11=7
14=9

31-1
51-16

16-6
15=162

wi TBL
WLE

9-101
10-81

1€

21=45

45-%311

49-6

45-513

CJRMULBOD RMOS/472 FORMAT TER
(ROSS REFERENCE TABLE (CREF

WGRIRK

WRIRK1
WRTRK?

WRTRKA
WRTRKB
WwRTRK(
WRTRKD
WRTRKE
WRTRKF
WRTRKM
WRTREX
WRTRK?
X512¢
pp

MAIRC

v01=05

)

v0s.00

L-APR-B1

K 13

T8:39:5% PAGE

5=17

15=111#8
15«19y
15=1159#
15-128%
15-=139
15=122

15=169
15=134
15=174
15=21#

15=25

10=54
7=08

16=70
16=96

15=141%
15=159#

15-135

15=185#
15=153
15=179#%
15=130
17=20#

=36+

15=144

15=150

15-154

15=1764

15=171#
17=5

9=39¢

17=23

- G40

9=470n

9=47

9-58

9=124

9-126

10=51

10-53

10=130

To=1%p

ESCAPE
GETPRI
GE TSWR
LOOP

MORE TA

T
MUL
NEWTST

POP
PUSH
REPORT
SETPR]
SETTRA
SE TUP
SKIP

6=0

L=bER
&3=1

9=21
(3=

L=K8N
L=588
L=SB#

5=5
6=0

9=26

G=264

L=584
(=588

5-8
41-1

4=588
L=574
L=578
4=588
L=57#

40-1
16-1
29-1
44-1
31-1

4=564
4=-584

37-1
39-1

L=564
L=574
L=578

L{=564

L=578

32-1

4{3-2#

28-114#
4(-68#
16=48
19-1
(=682
L-684
L-684
L=44

S5=114

L-68#

L{-684

4-682
L=-684
L-68%
L-684
43-1
L-68%
4=68%

43=-1

43-1

27-20

2725

6&=08

34-1

33-1
4-638
4=62
4266
4=63
4=64
10-124
21-280

4=65
28-87
24=192

L-68#

L-68#
18-129%

43=1

42-1

43-1

L=-57#
L=S64
L=564
L=564
L=564
4=634
L-8#
4-18#
4=314

SEQ

5=1
5=216
38~

L{=564
L=574

43-1

4=66
28-95
27-17
:

19-1

45-773

45-831

45-833

45-:19

45-:78

19-1
15-202

15-205
18-51
19-1
16-21

15-206
18-52
20-10
16=39

15-207
18-53

15-208
18-54

15=209
18=55

18-49

18-76

20-8

29-1
15-204
16=50

9-31
16-=7

O P
WO~

L=6B8

vO1=0S

L 13

18:39:56 PAGE M-1

LLAPTH
LBAPTH
BAPTY
LSCATC
LEMTA
.$082D
.$DB20
.SEOP
.3ERRO
. EPOWE
.IREAD
.$SAVE
.$S82D
.$SB20
.5 TRAP
.E$TYPD
.STYPE
.3TYPO
.EQUAT
.HEADE
.SETUP
.SWRHI
.SWRLO
CKCHR
CKDIG
CKNUM
COMMEN
ENDCOM
ENDTYP
ERRCAL
ERRENT
ERROR

§=2164
S5=2168

((REF

4L~APR=81

$ACT

TABLE

v04.00

oo~

TFENEWT
$$5ET
35t TMTM
85k [P

REFERENCE

MACRD

16=27
19-1

9-314

6=0

9-21

21-140
21=122

21-155
21-147

22-23
22-17

27-30
27-8

2=
43-1
9=-26

43-1

3 JTS
$gmMTm

SORMATTER

= ',"

BMOS/3/2

JEMLE

441
44-1

43-14

16=35
19-1

16=43
191

JRMUBU RMOS/73%3/2 FORMATTER

CROSS REFERENCE
SLASH

STARS

| SWRSU

TRMTRP
TYPBIN
TYPDEC

TYPNAM
TYF UM

TYPOCS
TYPOCT

TYPTXT

L=684

TABLE

(CREF

MACRO v04.00

vO1-05

L-688
22-;

5=5
"5;-}5

5-8
32=1

4-6B

9-26

G=264

43%-1#
4-6B%
4-684

4-684
L-684

4-684

4=-68x

4-684

19~1

30-48

9-103

14-8

9=-6

9=45

G=31

30-46

31-1

)

4-APR-B1

M 13
718:39:56 PAGE M=/

5-8
33-1

5-8
341

6=0
35<4

9-56

9-62

9-63

6=0
37-1

6=0
38-1

9-21
19-1

16-1
40=1

29=1
41=1

3=l
40=1

311
4i=]