Digital PDFs

AH-F919A-MC

June 1980

167 pages

Original

7.8MB

view download

OCR Version

7.1MB

view download

Document:	CZRMLA0 RM05-3-2 RM05-3-2 FORMATTER JUN 1980 bw
Order Number:	AH-F919A-MC
Revision:	000
Pages:	167
Original Filename:	CZRMLA0__RM05-3-2__RM05-3-2_FORMATTER__AH-F919A-MC__JUN_1980_bw.pdf

OCR Text

RMO9/3/2

RM05/3/2

CZRMLAO

FORMATTER

AH-F919A-MC
EIGHE 1 OF 1

i
COPYRIGHTE 1980 B g
JUN

1980

MADE

USA

MACRO v03.01

11-APR-80 13:01:23 PAGE

.REM

1
SeQ 0001

NOVE WA

e B
Kl

<O O~

Ny e

RALAQ RMOS/3/2 FOPMATTER

¥ ]

~V=O O

IDENTIEICATION

W1 W] W1 W] VT V] V]

VB
NN = OO
NOVNE

PRODUCT

CODE:

AC-F918A-M(

PRODUCT

NAME:

CZRMLAQ RM0O5/3/2 FORMATTER

DATE

(P AV 1V IV IV (VTP

THE

AND

CORPORATION.
FOR ANY

THE

AUTHOR:

MIKE

SOF TWARE

SYSTEM,

CONSTRUED

DIGITAL EQUIPMENT
THAT

MAY

DESCRIBED

UNDER A LICENSE
(WITH

IN THIS DOCUMENT

NOT

ERRORS

APPEAR

EXCEPT AS

DIGITAL EQUIPMENT

g?GI?ELlABILl]Y OfF
L.

(C)

1980

DIAGNOSTIC

LEAVITT

SUBJECT

COMMITMENT

THIS MANUAL.

WITHOUT

DIGITAL

NOTICE

EQU]IPMENT

CORPORATION ASSUMES NO RESPONSIBILITY
IS FURNISHED

THE

PURCHASER

COMPUTER SYSTEM AND CAN BE

MAY OTHERWISE

NOTJCE)

BE PROVIDED

CORPORATION ASSUMES

ITS

TO CHANGE

IN THIS DOCUMENT

DIGITAL'S

ENGINEERING

FOR USE ON A SINGLE

INCLUSION OF

APRIL

MAINTAINER:

INFORMATION
SHOULD

CREATED:

ONLY

FOR USE

(OPIED

IN SUCH

IN WRITING BY DIGITAL.

NO RESPONSIBILITY FOR THE USE

SOFTWARE ON EQIPMENT THAT

1980 DIGITAL EQUIPMENT

|S NOT

(ORPORATION

SUPPLIED BY

MACRO v03.01

11-APR=-80 13:01:23 PAGE 2

N
—

CIRMLAQ RMOS/3/2 FORMATTER

CONTENTS

ABSTRACT

WL:WWWMNNNNNNNNNN—'-‘
[J
e QU SR
QR DY
N
WA = OO
NO VNN = OO
NN
NN~
OO0~

REQUIREMENTS

2.1
2.2

EQUIPMENT
PRELIMINARY PROGRAMS

LOADING PROCEDURES

3.1
3.2
3.3

PAPER TAPE AND xXDP
APT
APT ETABLE DEFINITIONS

STARTING PROCEDURES
4.1

STARTING ADDRESSES

4.2

OPERATOR ACTION

4.4

OTHER UNIBUS

4.3

RMI1

= RH70 UNIBUS ADDRESS
ADDRESSES

SWITCH REGISTER SETTINGS
ERROR MESSAGES
MISCELLANEOUS

7.1

7.2

7.3

FORMAT TIMES

HALTING THE

PROGRAM

SURFACE VERIFICATION

PROGRAM DESCRIPTION

BAD

10.

8.1
8.2
8.3
8.4

FORMAT DPERATION
CHECK OPERATION
POSITIONER VERIFICATION
HEADER VERIFICATION

SPOT

FILE

RH/RM

SOF TWARE

DRIVER DOCUMENT

SEQ 0002

MACRO v03.01

11-APR-80 13:01:23 PAGE 3

SEQ 0003

CIRMLAQ RMOS/3/2 FORMATTER

O VN

ABSTRA(CT

THE RMO5/3/2 FORMATTER PROGRAM PROVIDES THME FACILITIES TO FORMAT,
TO CHECK

VERIFY

TME

HEADER

FIELD Of

)

= OO0

IN THE FORMAT OPERATION, THE PROGRAM WRITES THE HEADER OF EACH
DATA BLOCK W.TH A CYLINDER NUMBER, TRACK NUMBER AND SECTOR NUMBER.

ALSO, WRITES THE DATA FIELD WITH SELECTED DATA PATTERN.
THE PROGRAM THEN VERIFIES THE WRITTEN DATA BLOCKS VIA EXECUTING

2O OOV

i i S

"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 COMPARING THE TwO

I 1,V ], V][A¥],V] V1, UT VY VY, V) ¥ P

HEADER WORDS TO AN EXPECTED VALUE.

IN THE VERIFY OPERATION, THE PROGRAM RFEADS THE MEADER OF SECTOR 0
THRU 29.(18 BIT MODE) OR 31, (16 BIT MODE) ON EACH CYLINDER AND

TRACK

SURE

TO BE

VERIFIED,

THEY ARE CORRECT.

THEN COMPARES

THE

TWO HEADER WORDS

IN THE CHECK OPERATION, THE PROGRAM REPEATS THE
THREE TIMES WITH DATA PATTERN BEING ROTATED ONE

FORMAT
BIT AT

TO MAKE

QPERATION
EACH PASS.

REQUIREMENTS

2.1

(VA

AV IV

NN~ OOV

THE HEADER AND DATA FIELDS OR

EACH DATA BLOCK ON THE PACK. EACH MEADER FIELD SPECIFIES THE ADDRESS
OF 1TS ASSOCIATED DATA BLOCK ON THE DISK PA(K.

EQUIPMENT
PDP=-11

PROCESSOR

8K MEMORY

KWil=-L OR KW11=P (CLOCK

PROGRAM LOADING DEVICE
TERMINAL

RH11 OR RH70 CONTROLLER
1 70 8 DISK DRIVES (ANY COMBINATION OF

2.2

PRELIMINARY

RMOS°'S,

RMO3'S OR RM(Q?2'S)

PROGRAMS

THERE AREF NO PREQUISITE PROGRAMS, PROVIDING THE RM SUBSYSTEM S
KNOWN TO BE OPERATIONAL.
IF THE STATE OF THE RM SUBSYSTEM |S

UNKNOWN,

THE

FOLLOWING PROGRAMS SHOULD BE

FORMATTER PROGRAM,

RM05/3/2 DISKLESS TEST, PART
RM05/3/2 FUNCTIONAL TEST,

LOADING PROCEDURES

PAPER

TAPE

AND

XXDP

PART

& 2
1

RUN PRIOR

TO USING

THE

CIRMLAD RMOS5/3,2 FORMATTER

MACRO v03.01

11-APR-80 13:01:23 PAGE

3-1

SEQ 0004
THE PROGRAM MAY BE

L8:BE: OR
.

3.2

LOADED FROM PAPER

TAPE

IT MAY BE LOADED FROM ‘'xxXDP*®

USING

THE

ABSOLUTE

MEDIA USING THE APPROPRIATE

APT
THIS PROGRAM

FOR OTHER

I1.E.

(CMPATIBLE

INTERFACES,

APT

MAY

THE

EXTENT

THRU THE

ONLY

THAT

APT

HOOXS WILL

START

THE

FhOGRAM,

°'OPTION INTERFA(CE'.

LOAD AND

LOAD AND DUMP MODE.

AUTOMATIC MODE

APT

IN THE PROGRAM AND WILL WORK

THE

INPUT

(MONITOR)

DIALOGUE

IS BYPASSED.

THE BUSS ADDRESS AND CONTROLLER INTERRUPT VECTOR

DEFAULTED.

DUMP MODE

INPUT DIALOGUE AFTER PROGRAM STARTS
APT

ETABLE

THE

FOLLOWING DEFINITIONS

THE

APT

DEFINITIONS

ENVIRONMENTAL TABLE
1.

UTILITY

SOF TWARE

0 If
2.

FOR

PROGRAM ''TSP'':

SPECIFYING

VIA RUNNING

APT

SCRIPT MODE

STANDLONE MODE

7 = 1
= 0

ETABLE DOES SIZING
PROGRAM DOES SIZING

BIT 6 = 1
= 0

SPOOL MESSAGES TO APT
DON'T SPOOL TO APT

BIT 5

SUPPRESS CONSOLE OUTPUT
ALLOW CONSOLE OUTPUT

SCRIPT MODE

SWIT(4 1 (SOFTWARE SWITCH REGISTER)
1F ENVIRONMENT MODE BIT 7 (SIZING BIT
THE

SOFTWARE

THE HARDWARE CONSOLE

SWITCH 2

(PU OPTIONS

SWITCH REGISTER.

(USER SWITCH REGISTER)

NOT USED

)

SWITCH REGISTER WILL BE USED

Lol 72l

BIT 4 TO BIT O ARE NOT USED
3.

APT

ENVIRONMENT:

ol
il
el
D
i
il
il
D
)
el

-ttt id b s O OODOOOO
PN —=O OO ~NO WS

VALID

ENTRIES,

ENVIRONMENT MODE:

BIT

103

ARE

(ETABLE)

3.3

CIRMLAQ RM0S5/3/2 FORMATTER

MACRO v03.01

11-APR-80 13:01:23 PAGE 3-2

;}2

S£Q 0005

NOT USED

17
}}g

MEMORY TYPES 1-& AND MAX MEMORY ADDRESSES
NOT USED

120

INTERRUPT VECTOR 1:

123
}sg

BUS PRIORITY 1:
NOT USED.

126

INTERRUPT VECTOR 2:

}%5

127
128
129

USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFALLT = 254

NOT USED
10. BUS PRIORITY 2:

}g?

NOT USED

132

11. BASE ADDRESS:

135
136
137
138
139

12. DEVICE MAP:
USED WHEN ENVIRONMENT MODE BIT

}gz

USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 176700
7 = 1.

EACH BIT SET 10

7 =

ANY NONE

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

140
161

13.

144
145
146
}4;

14.

CONTROLLER DESCRIPTOR WORDS:
USED WHEN ENVIRONMENT

}:%

MODE

BIT

NUMBER SPECIFIES THAT PROGRAM RUNS

(ERO

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)
SECTORS FOR A TRACK IN ALL OPERAT]ONS.

—O

STARTING PROCEDURES

6.1

STARTING ADDRESSES

W
NOWVNE WA —=OOVD NN
= OOV

i
i el i
D el
D el
D
il
el
i
D
ld
)
ol
i
s et
-

NNOOOCO
OO0 OO0V VNN

149

THE PROGRAM IS STARTED FROM LOCATION 200 IF THE ADDRESS OF
RH11 OR RH70 WILL NOT BE CHANGED FROM ITS DEFAULT VALUE OF
THE

PROGRAM

IS STARTED FROM LOCATION 204

THE

ADDRESS Of

THE RH11 OR RH70 IS TO BE CHANGED FROM THE PRELOADED VALUE.
NOTE THAT STARTING ADDRESS 204 IS VALID ONLY ONCE AFTER THE
PROGRAM

(SEE

6.2

LOADED.

SECTION 4.3)

OPERATION ACTION

LOAD THE

PROGRAM

[NTO MEMORY

(SEE

SECTION

LOAD THE

STARTING ADDRESS - 200 OR 204

3).

THE
176700.

CIRMLAO RMOS/3/2 FORMATTER

MACRO v03.01

11-APR-80

13:01:23 PAGE

3-3

SET

MAY

THE

PROGRAM WILL

"PROGRAM MODE

e
il e
D el o

THE

THEN TYPE

(F,

STARTS BY

THE

SETTING

Sw<02>.

FOLLOWING MESSAGE:

OR v):°

FOR

'FORMAT & QUICK VERIFY',
PROGRAM WILL

"OPERATE

THEN ASK

IN 32 SECTOR

FOR

THE

(16 BIT)

FORMATTING MODE:

MODE

i i

ENTER THE APPROPRIATE (HARACTER: 'Y'
18 BIT MODE.
IF A 'CARRIAGE RETURN'
THIS REQUEST,

THE

'START'.

ENTER THE APPROPRIATE CODE: 'F' FOR FORMAT & QUICK VERIFY, *C'
(HECK OR 'v' FOR VERIFY OPERATION.
IF A CARRIAGE RETURN ]S
ENTERED IN RESPONSE TO THE REQUEST, THE PROGRAM Wi
L ASSUME

o
i

INHIBITED ON SUBSEQUENT

THE SWITCHES AS REQUIRED AND PRESS

1F THIS IS THE PROGRAM'S FIRST START, THE STATUS OF THE DRIVES
ON THE SELECTED MASSBUS SUBSYSTEM wiLL BE TYPED OUT.
THIS TYPEOUT

B e

el e

0 O O O O O ~O O 00 00 00 00 00 OB 00 00 00 00 ~d ~ N ~J ~J ~ ~J ~J
NO N
(NN~ O V00NV
(NN = OO0~
N
Nny

SEQ 0006

THE

PROGRAM WILL

‘DRIVE:

PROGRAM WILL

THEN ASK

FOR

(Y OR N)'

FOR 16 BIT MODE OR 'N'
IS ENTERED IN RESPONSE

ASSUME

16 BIT

FOR
10

MODE.

A DRIVE:

ENTER THE AODRESS OF THE DRIVE TO BE FORMATTED.
A °'PERIND' OR
'CARRIAGE RETURN' ENTRY WILL SELECT DRIVE O. IF THE DRIVE SELECTED
1S NOT AVAILABLE, THE PROGRAM WILL TYPE AN ERROR MESSAGE AND

RETURN TO THE DRIVE ADDRESS REQUEST.
AFTER THE OPERATOR HAS
FOR ADDRESS LIMITS FOR

SELECTED A DRIVE, THE
THE SELECTED DRIVE:

= OOV

NO N

—=O

[ASIASIASIANIANI
N1, N1, N1, U1, N1, V], 6], V]
POROND —t e e e e et e e
b e

'ENTER ADDRESS LIMITS:

PROGRAM WILL

ASK

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 BE LESS THAN THE STARTING

CYLINDER ADDRESS.
IN THIS CASE, THE PROGRAM WILL FORMAT
OR VERIFY THE DISK PACK FROM THE STARTING CYLINDER T0

CYLINDER 822 AND THEN FROM CYLINDER O TO THE ENDING CYLINDER.
THE

PROGRAM WILL THEN ASK FOR
(IN CASE OF FORMAT MODE)

'SELECT DATA PATTERN
(0)

ZERO'S

THE

DATA PATTERN:

MACRO v03.01

O 00NN WD = OO

ENTER THE CODE FOR THE REQUIRED PATTERN.

‘'CARRIAGE RETURN'

;2%?%82' ENTRIES WILL CAUSE THE PROGRAM TO USE THE
THE 'WORST CASE' PATTERN IS THE FOLLOWING OCTAL
THROUGH THE DATA AREA OF THE SECTOR:

'WORST CASE®

SEQUENCE

REPEATED

066666

262
263
266
245

NOTE:

IN THE CHMECK OPERATION, THE ABOVE MENTIONED MESSAGE IS
BYPASSED. THE DATA PATTERN IS INITIATED TO 133331 AND IS
ROTATED ONE BIT TO THE RIGHT AT EACH PASS OF THE CHECK
OPERATION. AFTER THE CHECK OPERATION 1S DONE, THE DATA

529

PATTERN WILL BE

268

%gg

RESTORED TO 066666.

THE PROGRAP WILL THEN TYPE:

%g;

*STARTING FORMAT ON DRIVE N'

253
254
255
256
257

*STARTING CHECK ON DRIVE N'
OR

258
%gg

*STARTING VERIFY ON DRIVE N'

261
262
263

NOTE:

264

IF A NEW PACK 1S UNFORMATTED, THE PROGRAM ALSO ASKS YOU T0
ENTER TWO SERIAL NUMBERS. (EXCEPT IF OPERATING IN VERIFY
ONLY MODE) THESE TWwO SERIAL NUMBER MUST BE NON-ZERO DECIMAL
NUMBERS.

S0t

267

10.

268

269
270
2N

THE OPERATOR CAN DETERMINE WHERE THE DRIVE

TYPING A

ME SSAGE:

'CONTROL 0'.

"PRESENT ADDRESS IS:

274

11.

S;g

279
280
281
282
283
284
285

SEQ 0007

(1) ONE'S
(2) WORST CASE
ENTER (0, 1 OR 2):'

329

S;g

11-APR-80 13:01:23 PAGE 3-4

[aST VT ST VT, N1, 81,1, V1, V], VT, ¥
N AN AN N N AN RN (NN D

CZRMLAO RMOS5/3/2 FORMATTER

4.5

RH11

THE PKOGRAM WILL

CXXX

1S DURING THE OPERATION

TYPE

THE

FOLLOWING

Txx'

TO CHANGE EITHER THE ADDRESSING MODE OR THE OPERATION MODE,

PROGRAM MUST BE STARTED FROM LOCATION 200 OR 204 AGAIN.

THE

- RH70 UNIBUS ADDRESS

THE PROGRAM ASSUMES THAT THE RH11 OR RH70 ADDRESSES START AT
176700 AND THAT THE VECTOR ADDRESS 1S 254.
THESE ADDRESSES MAY
BE CHANGED WHEN THE PROGRAM 1S STARTED FROM LOCATION 204,
IF THE RH11 = RH70 IS NOT AT THE DEFAULT ADDRESS, THE PROGRAM MUST
BE STARTED FROM 204 INITIALLY AS THE PROGRAM GOES THROUGH THE
ADDRESS CHANGE ROUTINE AT INITIAL START ONLY.
ENTER THE RH11/RW70
ADDRESS IN RESPONSE TO THE REQUEST FROM THE PROGRAM,

CZRMLAD RM0S/3/2 FORMATTER

MACRO v03.01

6.6

11-APR-80 13:01:23 PAGE

3-5

SEQ 0008

OTHER UNIBUS ADDRESSES

LocC

TAG

CONTENTS

FUNCTION

1160
1162
1166
1166
1276

$7KS
$7KB
$TPS
$1PB
$LKCSR

177560
177562
177564
177566
172540

TTY KEYBOARD STATUS REGISTER
TTY KEYBOARD BUFFER REGISTER
TTY PRINTER STATUS REGISTER
TTY PRINTER BUFFER REGISTER
KWwi11=-P CONTROL REGISTER

1302
1304
1306

$LPVEC
$LKS
LKV

104
177546
100

KWwl11=-P VECTOR ADDRESS
KW1T1=L CONTROL REGISTER
;ADDRESS OF KWl1-L VECTOR

1300

$LKCSB

172542

KW11-P COUNTER REGISTER

SWITCH REGISTER SETTINGS

NN — O
=S OV

L LA L A

PNIN) and e ed e

NO VN

e o

N AN LN AN AN (N AN AN

rd eed ed

309

SW<15>=1,
. . HALT ON ERROR
SW<13>=1,
.. INHIBIT ERROR TYPEOQUTS
SW<10>=1...BELL ON ERROR
SW<09>=1...L00P ON ERROR
SW<02>=1...DON'T DISPLAY SYSTEM STATUS AFTER INITIAL START
SW<C1>=1,..LO0P ON THE CURRENT TRA(K
SW<00>=1...L00OP THE PROGRAM CN THE SELECTED DRIVE
IF

THE
NOT

THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR
PROGRAM WILL DETERMINE
PRESENT AND WILL USE A

(1.E.

THAT THE HARDWARE SWITCH REGISTER
'SOFTWARE' SWITCH REGISTER.
THE

AN 11/34)
IS

'SOFTWARE' SWITCH REGISTER 1S LOCATED AT LOCATION 176. THE
SETTINGS NF THE °'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD

ROUTINE WHICH

CALLED BY

TYPING A

'CONTROL

G'.

THE

PROGRAM WILL

RECOGNIZE THE 'CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM
IS AT A HIGHER PRIORITY PROCESSING AN RM INTERRUPT.
THE

'SOFTWARE'

TO THE

SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE

PROMPT

FROM THE

SWITCH ENTRY

'SWR = NNNNNN

ROUTINE:

NEW =*

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER
IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT REQUIRED., 'RUBOUT'
'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS
DURING SWITCH ENTRY.
ON PROCESSORS WITH HARDWARE
REGISTER MAY BE

USED.

SWITCH REGISTERS,

THE

PROGRAM FINDS ALL

'SOFTWARE'

16 SWITCHES

'UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE
éEOEBUASEEDREGlSTER AND THE PROCEDURES DESCRIBED ABOVE MUST
LL

ERROR MESSAGES

AND

SWITCH

IN THE

CIRMLAD RMOS/3/2 FORMATTER

MACRO v03.01

1
J
11-APR-80 13:01:23 PAGE 3-¢

343
344

SEQ 0009

'RH INTERRUPT OCCURRED
NOTHING ON THE MASSBUS

(RMAS=0, - AN INTERRUPT OCCURRED,
IS INDICATING AN ATTENTION.

'"UNEXPECTED ATTENTION OCCURRED' - THE INDICATED DRIVE

BUT NO INTERRUPT WAS EXPECTED FROM THE
'MASSBUS PARITY ERROR

WAS

DETECTED BY

THE

(MCPE=1)'

RH WHEN

THE

BUT

INTERRUPTED,

INDICATED DRIVE.

- A CONTROL BUS PARITY ERROR
INDICATED REGISTER WAS

READ.

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

ERROR

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

'OPE'

'"RH DIDN'T

RH AT

THE

RESPOND TO ADDRESSING'

INDICATED ADDRESS

'DRIVE OFFLINE'

- THE

AND

THE

PROGRAM ACCESSED

RECEIVED NO RESPONSE.

INDICATED DRIVE

THE

HAS GONE OFFLINE

'PERSISTENT DRIVE UNSAFE ERROR' - THE INDICATED DRIVE HAS BECOME
UNSAFE AND THE CONDITION CANNOT BE CLEARED BY ISSUING °'DRIVE

CLEAR'

INSTRUCTIONS.

'UNCORRECTABLE MASSBUS PARITY ERROR'

- THE PROGRAM ATTEMPTED

T0O PERFORM AN OPERATION AND DETECTED 3 SUCESSiVE MASSBUS PARITY

ERRORS OR THE PROGRAM ATTEMPTED TO CLEAR A
DRIVE AND A PARITY ERROR OCCURRED.

10.
1.

12.

13.

'SOF TWARE TIMEOUT'
1 SECOND.

'PAR'

ERROR

IN THE

- THE OPERATION FAILED TO COMPLETE WITHIN

'DRIVE UNSAFE ERROR' - A NON-PERSISTENT UNSAFE ERROR OCCURRED

DURING THE OPERATION.

*CONTROLLER/DRIVE ERROR DURING WRITE® - THE

INDICATED NON-DATA

'CONTROLLER/DRIVE ERROR DURING WRITE CHECK®'

- A NON-DATA ERROR

ERROR WAS DETECTED DURING A FORMAT OPERATION.
OCCURRED DURING THE WRITE CHECK.

14.

'DATA ERROR DURING WRITE CHECK' - A DATA RELATED ERRCR OCCURRED
DURING A WRITE CHECK OPERATICN.
A DATA ERROR IS CONSIDERED
Iacg§ Ogs QEE;vE FOLLOWING ERRORS: °'DCK', °'OPI®, 'DTE’, °'H(CRC',

15.

'RETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLE' - THE
SECTOR FAILED DURING RETRY FOLLOWING A DATA ERROR.

16.
17.

18.

INDICATED

'CONTROLLER/DRIVE ERROR VERIFYING HEADERS' - AN ERROR OCCURRED DURING

THE VERIFICATION PASS AFTER FORMATTING.

'*HCE'

THE

ERROR VERIFYING HEADERS'

- A HEADER ERROR OCCURRED DURING

VERIFICATION PASS AFTER FORMATTING.

‘CYLINDER FIELD IN HEADER IS NOT

CORRECT'

- THE CYLINDER FIELD

CIRMLAO RM0S5/3/2 FORMATTER

MACRO v(3.01

K
1
11-APR-80 13:01:23 PAGE 3-7

SEQ 0010

FROM A HEADER READ DURING

19,

20.

THE

VERIFICATION PASS

IS NOT

CORRECT.

'TRACK/SECTOR FIELD IN HEADER ]S NOT CORRECT' = THE TRACK AND
EggggET'lELD FRCM A HEADER READ DURING THE VERIFICATION IS NOT

'WRITE CHECK ERROR'

NO DRIVE

ERRORS WERE

MISCELLANEOUS

7.1

FORMAT

- THE RH REPORTED A WRITE

CHECK ERROR AND

SET.

TIME

IT TAKES APPROX. 10 MINUTES TO FORMAT AN ENTIRE RM03/2 DISK PA(K
IN 'FORMAT' MODE. THE °'CHECK' MODE TAKES APPROX. 30 MINUTES FOR
AN ENTIRE RMO03/2 DISK PACK.

1T TAKES APPROX. 30 MINUTES TO FORMAT AN ENTIRE RMOS5 DISK PA(K
IN 'FORMAT' MODE. THE 'CHECK' MODE TAKES APPROX. 90 MINUTES FOR

AN ENTIRE RMO5 DISK PACK.

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

HALTING

THE

7 MINUTES FOR AN RM03/2 AND
:

PROGRAM

THE QPERATOR SHOULD NOT HALT THE PROGRAM VIA THE CONSOLE
FOrMAT OPERATION. HALTING THE PROGRAM MAY LEAVE A SECTOR
FORMATTED.
TO TERMINATE THE FORMAT, TYPE A 'CONTROL C'.

7.3

SURFACE

DURING A
INCORRECTLY

VERIFICATION

THE FORMATTER PROGRAM IS NOT INTENDED TO BE USED TO PERFORM D]SK
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.

PROGRAM DESCRIPTION

8.1

FORMAT OPERATION

THE

PROGRAM FORMATS

THE

PACK

THE

FORMAT OPERATION CONSISTS OF

SPECIFIED BY THE OPERATOR.

ONE

TRACK AT

A WRITE

TIME

BETWEEN

THE

LIMITS

HEADER AND DATA COMMAND

FOR

THE ENTIRE TRACK FOLLOWED BY A WRITE CHECK HEADER AND DATA COMMAND.
IF AN ERROR OCCURS DURING THE WRITE, THE PROGRAM WILL RETRY THE
WRITE BEFORE CONTINUING.
IF A DATA RELATED ERROR IS DETECTED

456

DURING THE WRITE CHECK (A DAYA ERROR IS DEFINED AS ONE OF
THE FOLLOWING ERRORS:

'DCK',

'OP1',

°'DTE',

'HCRC',

"HWCE',

CZRMLAO RM05/3/2 FORMATTER

MACRO v03.01

457
458
459
460
461
6462

SeEQ 0011

OR 'FER'), THE SEZTOR IN ERROR WILL BE REWRITTEN.
THE PROGRAM WILL
(HECK THE SECTOR TWICE; IF A DATA ERROR ]S DETECTED IN THE SECTOR

DURING EITHER OF THE WRITE CHECKS, THE PROGRAM WILL DECLARE
THE SECTOR AS BEING 'NONRECOVERABLE'.
FOLLOWING THIS SEQUENCE,
THE REMAINDER OF THE TRACK IS CHECKED.
IF DATA ERRORS ARE ENCOUNTERED
IN ANY OF THE REMAINING SECTORS, EACH SECTOR WILL BE HANDLED AS
DESCRIBED ABOVE.

463

&64

6465

466

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

PROGRAM WILL RETRY

467
468
469
4«70
671
672
473
L74

475
476
477
478
479
480
481
482
4,83
484
485
486
4,87
4«88
4,89
490
491
432
493
494
495
496
497

11-APR-80 13:01:23 PAGE 3-8

TO THE NEXT TRACK.

THE

CUMMAND

FOR

THE

ENTIRE

TRACK BEFORE

THE
PROCEEDING

1T 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 PA(K;
UNFORTUNATELY, SECTORS WHICH 'PASS' CANNOT BE ASSUMED TO BE GOOD.
DURING THE FORMAT OPERATION, THE PROGRAM FILLS
WITH THE PATTERN SELECTED BY THE OPERATOR.

8.2

CHECK OPERATION

8.3

THE DATA FIELD

THE CHECK OPERATION 1S IDENTICAL TO THE THE FORMAT OPERATION
DESCRIBED IN SECTION 8.1, EXCEPT THAT IN EACH CHMECK OPERATION THE

FORMAT OPERATION IS REPEATED THREE TIMES WITH DATA PATTERN BEING
ROTATED ONE BIT POSITION AT EACH PASS.
POSITIONER VERIFICATION

(QUICK

VEKRirY)

AFTER THE PROGRAM COMPLETES THE FORMAT OPEKATION, THE
POSITIONER 1S 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 iHE EQUESTED CYLINDER; IF
THE CYLINDER ADDRESSES DO NOT COMPARE, AN ERROR MESSAGE 1S TYPED.
THE PROGRAM CHECKS THE CYLINDER ADDRESS FIELD FROM THE HEADER

SECTOR O Oh THE BEGINNING TRACK OF EACH CYLINDER FORMATTED.

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

8.4

HEADER VERIFICATION

(VERIFY ONLY)

THE HEADER VERIFICATION OPERATION PERFORMS A READ HEADER AND DATA
TO AN ENTIRE TRACK AT A TIME,
THEN COMPARES THE EXPECTED HEADER

WORDS WITH RECIEVED HEADER WORDS. THE CYLINDER ADDRESS FIELD FROM THE
HEADER

IS COMPARED TO THE EXPECTED CYLINDER,

THE

CYLINDER ADDRESSES

DO _NOT COMPARE, AN tRROR MESSAGt IS REPORTED. NEXT, THE TRACK/SECTOR
FIELD FROM THE HEADER 1S COMPARED TO THE EXPECTED TRACK/SECTOR, IFf
THE

TRACK/SECTOR ADDRESSES DO NOT

VERIFICATION
CYLINDER AND
MODE) OR 31.
IS PERFORMED

COMPARE, AN ERROR

1S REPORTED.

OF THE HEADERS STARTS FROM SECTOR C ON THE BEGINNING
TRACK, AND CONTINUES UNTIL COMPARING SECTOR 29.(18 BI1
(16 BIT MODE) ON ENDING CYLINDER AND TRACK. THIS CHECK
TO CONFIRM THAT A DISK HAS PREVIOUSLY BEEN FORMATTED

IV IV IV IV TV ) (WAL LV TV LV LW AV LV LV LV IV LV TV IV W IV [V IV [V LU, (W IV
GV
1V]
a2l
2P
AN N AN N NN NN W NNV N PO PO NI AU NI NI NI N
b e o b s
(e RV PNV T ST o) OO NN
NN OO0
N
NI NN = OO0~
NS

CIZKRMLAO RM0S5/3/2 FORMATTER

MACRO v03.01

L
11-APR-80 13:01:23 PAGE 3-9
AND ALL

THE HEADERS ARE

SEQ
IN GOOD

CONTITION.

BAD SPOT FILE

SECTORS 0 THRU 31.,0N CYLINDER 822., LAST TRACK ARE ALWAYS FORMATTED
JN 16 BIT MODE. THEY CONTAIN THE BAD SECTOR ADDRESS ON THE
PACK FOR BOTH 30. AND 32, SECTOR OPERATIONS.

THE DATA FIELD OF EACH SECTOR OF THE BAD SPOT FILE 1S DESCRIPTED BELOW:
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 OCTA. DIGITS,WHILE THE SECOND
WORD CONTAINS THE 5 MOST SIiGNIFICANT DIGITS.
THE

THIRD WORD

IS ALWAYS

ZERO.

THE

FORTH WORD DEFINES THE

PACK

IS A DATA PACK

,IF

IS 0.

THE FOLLOWING 252 WORDS DEFINE

THE BAD SECTOR ADDRESS;TwWO

SPEDIFIES THE TRACK

AND SECTOR

WORDS ARE USED TO DEFINE A SIGNLE BAD SECTOR, THE FIRST
WORD SPICLFIES THE CYLINDER ADDRESS, THE SECOND WORD

SECTORS ON

(1)

SECTORS C, 2, 4, 6 AND 8.
SECTORS FOR 16 BIT MODE.

CONTAIN THE MANUFACTURES DEF INED BAD

567

(2)

SECTORS 1,

7 AND 9.

CONTAIN THE MANUFACTURES DEF INED BAD

550
gg;

(3)

SECTORS 10., 12.
FOR 16 BIT MODE.

THRU 30.

CONTAIN THE USER DEFINED BAD SECTORS

553
ggg

(&)

SECTORS '1., 13.
FOR 18 BiT MODE.

THRU 31.

CONTAIN THE USER DEFINED LAD SECTORS

556
ggg

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

559
560
561

THE PROGRAM PROVIDES A FEW UTILITY ROLTINES TO HANDLE THE BAD
SECTOR FILE.

564

BEFORE THE PROGRAM FORMATS THE PACK,THE PROGRAM TYPES THE "OLLOWING

(O I

gg%

THE

LAST

RECORDED WITH

TRACK

SECTORS FOR 18 BIT MODE.

ARE

ONES.

ADDRESSES.

THE

GROUPS AS FOL .OWS:

ARE

(LOW BATE)

UNUSED

228

LOCATIONS

(HIGH BYTE)

ALL

FURTHER

DIVIDED

INTO

TO ACCESS THESE ROUTINES START THE PROGRAM AT 204.

565
gg?

MESSAGE TO ALLOW THE OPERATOR TO ACCESS THE ROUTINES
BY ENTERING THE SELECTED FUNCTION NUMBER.

568
569
570

KEYIN U.S.R. BAD SECTORS....ouvrieiininnnnnernnnnnns 0
PRINT M.F.G. BAD SECTORS...ivreiiiiinininrnenonnns |

FOUR

10.

AND 11,

0012

CIZRMLAO RM0S5/3/2 FORMATTER

MACRO v03.01

N1
11-APR-80 13:01:23 PAGE 3-10

O OO0 ~NO NS (NN —

(W IV IV IV IV I T TV IV TV, TV
0000 N NN~~~

SEQ 0013
PRI..T

U.S.R.

BAD

SECTORS......cvvvvuunn Ceeeeecenenas

PRINT
PRINT

A SECTOR OF THE LAST TRACK. ... ... vveeeveoccanes 4
THIS MESSAGE .. viverirreeneneneeneonnennnnnonas 5

INJTIALIZE U.S.R. BAD SECTOR FILE.... oo

ennonnans 3

EXIT........ et et e s osees e e ensasearecaaonanasnanase <(R>
ENTER UTILITY FUNCTION:

THE FIRST ROUTINE ALLOWS THE USER DEFINED BAD SECTORS
TO BE ENTERED MANUALLY BY SPECIFING YHE CYLINDER ADDRESS, TRA(CK
ADDPESS AND SECTOR ADDRESS IN DECIMAL VALUE.
TO EXIT FROM
THE ROUTINE JUST ENTER A PERIOD(.) FOLLOWED BY A <(CR>.

EXAMPLE:

CYLINDER

TRACK

-1/

=17/

200

SECTOR
=1 /7 23
CYLINDER
=1/ .<CR>
THE SECOND AND THIRD ROUTINES TYPE

THE MANUFACTURE AND USER

DEFINED BAD SECTORS ON THE CONSOLE

THE FIRST TWO WORDS ON THE
BY TWO WORDS OF ALL 0°'S.
THE

FOURTH ROUTINE

IN OCTAL NUMBER.

LISTING ARE

THE

SERIAL NUMBERS FOLLOWED

RESETS ALL USER DEFINED BAD

SECTOR ADDRESSES

TO -1.

THE FIFTH ROUTINE ALLOWS A WHOLC SECYCR OF THE BAD SPOT FILE
RETRIEVED FROM THE PACK BEING FORMATTED TO
BE TYPED ON THE CONSOLE.

TO EXIT

10.1

10.2

THE ROUTINE JUST

TYPE

A ''CARRIAGE RETURN'' <(R>.

RH/RM DRIVER

THIS DOCUMENT

IS THE USER'S GUIDE

THE

INITIALIZE

JSR

RETURN

FOR

THE

RH/RM DRIVER.

DRIVER:

PC.RMINIT

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

DRIVES

THAT

ARE

ONLINE

FOR

TESTING.

EIGHT BYTES; ONE BYTE PER DRIVE.
BE INDICATED AS FOLLOWS:

THE

DRVSTA

DRIVE

ONLINE

NONEXISTENT
UNSAFE

THE

'DRVSTA'

STATE OF

STATE

OFFLINE, DRIVE
1S NOT AN RM05/3/2, OR
DRIVE

TABLE

IS.

EACH DRIVE WILL

CIRMLAO RMOS/3/2 FORMATTER

MACRO v03.01

1°-APR-80 13:01:23 PAGE

SEQ 0014

628
629
630
631
632
633
634

THE
THE

DRIVE
TABLE

TYPE IS DEFINED IN AN 8 BYTE LONG TABLE
CONTAINS ONE BYTE FOR EACH DRIVE AND 1S

DRIVE NUMBER.

636
637
638
639

CONDITION

NONEXISTENT PRIVE

RMO?2

RMQ3

?
-1
THE

10.3

'RMINIT'

RMOS
NOT AN RMQS5/3/2
ROUTINE

WILL

AFTER THE DRIVER HAS BEEN
FOLLOWING SEQUENCE.

CALL:

JSR
PNTDPB
RE TURNI

DO A READIN PRESET

AND WILL

INITIALIZED,

CALLED USING

RO,RMO3

RETURNZ

*DPB

TAGGED 'DRVIYP',
INDEXED BY THE

ENTRIES ARE ENCODED AS FOLLOWS:

PRVTYP

635

640
661
64?2
643

3-11

:MAKE THE CALL
;ADDRESS OF DPBe
;RETURN [F QUEUE

JRETURN IF

REQUEST

SET

FMT16.
THE

FuLL

:QUEUE OR THERE IS AN
sERROR CONDITION

(DATA PARAMETER BLOCK)

PNTDPB:

.BYTE
.BYTE
BYTE
.BYTE

0
0
0
0

.BYTE

.WORD
.WORD

0
0

.WORD
.WORD

.WORD

0
0

:(0)
JC1)
; (2)
;(3)

DRIVE NUMBER
OFFSET VALUE OR FMT16, ECT, AND HC(I
COMMAND
PSEL AND A17 AND Al%
;(4) WORD COUNT (MUST BE NEG.)
;(6) HBUFFER ADDRESS OR

JREGISTER TABLE POINTER
;(10)

SECTOR ADDRESS OR

;(11)

TRACK ADDRESS OR

;012)
;(14)

CYLINDER ADDRESS
ERROR TABLE POINTER

JFIRST

REG.

JLAST REG.

INDEX

JPOINTS TO THE FIRST OF
;LOCATIONS OF WHERE THE
;1S TO STORE THE RH/RM
JREGISTERS ON AN ERRQOR.
sLERD REGISTERS ARE NOT
;(16)

STATUS/ERROR

TWENTY
DRIVER
IF LEFT
SAVED.

INDICATOR

:BIT15=1=>ERROR OCCURRED
:BIT07=1=>DONE
;BIT14-B1T09 AND BIT06-B1703
JINDICATE 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 FOLLOWING MANNER:
MOv

#16.,-(SP)

+16 MILLISECONDS BETWEEN

MACRO v03.01

685
686
687
688
689
690
691

JSR
1T

AND

PC,RMTMR

SEQ 0015

SCLOCK TICKS
;CALL THE TIMER ROUTINE

SHOULD BE NOTED THAT YOU MUST PROVIDE THME CODE TO DRIVE
DATA

TRANSFER OPERATIONS AND WILL

EXAMPLE - WRITE

1000. WORDS

1$:

RO,RMO3

sCALL

2s:

FMTDPB:

710
14 R
712

JSR

FMTDPB
BR

e
s
71¢
717
78
719

DRIVER

8Mi

ERROR?

:ERROR OCCURRED

.BYTE

.BYTE
.BYTE
.BYTE
.WORD

TO 30

FULL

WAl FOR COMMAND TO COMPLETE

;DRIVE

O
161
0
-1000.

:
JWRITE (OMMAND
:
JWORD COUNT

WRTBUF

;BUFFER ADDRESS

BYTE
.BYTE
.WORD

3
5
400

JSECTOR
s TRACK
JCYLINDER

.WORD

JSTATUS/ERROR INDICATOR

ERRTBS

ALTERNATE

.WORD

.WORD
.WORD
.WORD
.BYTE
.WORD

DPB

;ERROR TABLE

SETUP

sTH]S

=-1000.

;ABOVE

WRITE

WRTBUF

3,5

400,ERRTBS,0

RMDS

RMER1

RMAS
RMLA

N0
e

RMCS2

INDEX

NOo

RMCST

RMW(
RMBA
RMDA

TABLE

DID,

8uUT

;IN A CLEANER FORMAT

RH/RM REGISTERS
MNEMONIC

SETUP ACHIEVED

SEVERYTHING THE

el ol o

10.5

THE

TIMOUT

5:TDPB*16

.WORD

FMTDPB:

THE

;é;

.WORD

nsg

SET

.DPB _ADDRESS
;WAIT FOR QUEUE

10.64.1

THE

IN MILLISECONDS.
SECOND FOR ALL POSITIONING

SECONDS FOR ERROR RECOVERY OPERATIONS.

702
703
704
709
706
707
708
709

720
721
722
723
126
725
726
727
728
729
730
3
732
733
73
735
736
737
738
739
740
741

3-12

CLOCK.
AND THE ELAPSED TIME MUST BE
THE DRIVER WILL SET THE TIMEOUT TO 1

69?2

693
694
695
696
697
698
699
700
701

11-APR-80 13:01:23 PAGE

PN\

CIZRMLAO RM0S/3/2 FORMATTER

CIRMLAO RM05/3/2 FORMATTER

MACRO v03.01

742
743
744
745
766
747
748
749
750
751
52
47

D 2
11-APR=-80 13:01:23 PAGE 3-13

SEQ 0016

RMDB
RMMR |
RMDT
RMSN
RMOF
RMD(
RMHR
RMMR2
RMERQ
RME (]
RME (2
10.6

COMMANDS PERFORMED BY

22
24
26
30
32
34
36
40
Y.
44
46
THE

DRIVER

;29

COMMAND

CODE

(OMMAND TYPE

758
759
760
761
762

NO OPERATION
UNLOAD
SEEK
RECALIRATE
DRIVE CLEAR
RELEASE

101
103
105
107
11
113

N
N
P
P
N
N

SEARCH
GET REGISTER(S)
SET FORMAT
SELECT DRIVE
WRITE CHECK DATA
WRT CHK HOR & DATA
WRITE DATA
WRITE HEADER & DATA
READ DATA

131
141
143

p
3
3

763

764
765
766
767

OF FSET
RETURN TO CENTER
READIN PRESET
PACK ACKNOWLEDGE

768
769
770

772
773

774
775
776

777

READ HEADER & DATA

778

779
780
781
782

6
787
788
789
790
791
42
793
79
795

793

798

145

151
153

161
163
171

173

P
P
N
N

D
D
D
D
D

N = HOUSEKEEPINC
= POSITIONING
D = DATA TRANSFER

78t

15
117
121
193

S = SPECIAL PROVIDED BY THE DRIVER

10.7

DPB STATUS/ERROR INDICATOR WORD
THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST.
THIS 1S ACCOMPLISHED BY SETTING VARIES BITS OF TME INDICATOR 10
A ONE.
BIT NO.
MEANING 1F ON A "'1"°
ettt
ug it At

ERROR 0 (URRED
DONE (BI107-0); BITS 14-10 SPLCIFIES TYPE

DONE (BIT07=1); BITS 06-03 SPECIFIES TYPE

14(1)

USER MADE

A REQUEST

FOR A FUNCTION T0 BE

CZRMLAQ RMO5/3/2 FORMATTER

MACRO v03.01

11-APR-80

13:01:23 PAGE

3-14

SEQ 0017
799

PERFORMED ON AN OFFLINE

1301 )

TO BE

PERFORMED ON A DRIVE

HAS

PERSISTENT

11(2)

UNCORRECTABLE PARITY ERROR OCCURRED

UNSAFE

CONDITION EXIST.

FATAL PARITY ERROR.

A MASSBUS CLEAR WAS
AND

9(3) (4)

SOF TWARE

TIMEOUT OCCURRED ON THIS DRIVE

8(4)

SOF TWARE

TIMEOUT OCCURRED ON ANOTHER DRIVE

DONE

6(2)

ERROR OCCURRED DURING AN

5(2)

ERROR QCCURRED DURING AN OPERATION
OTHER THAN [/0.

4(2)

CORRECTABLE

3¢2)

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

WAL =200V

NS (NR) — OO0
NGO NI NN -

UNSAFE

1/0 OPERATION

CONDITION OCCURRED

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

NON-EXISTENT DRIVE REQUESTED.
USER MADE
A REQUEST FOR A NON-EXISTENT DRIVE.

NN
Sy e R o Lo BoNTo NV P LN V] ro =S OO
LRV

THAT

PERFORMED, ALL QUEUES WERE EMPTIED,
ALL DRVACT'S SET TO THE IDLE STATE

oo [o o Jo -To Yo Xo Yo Yo Yo To Yo Yo Yo Yo Yo o
To Yo Yo Yo Yo ] [o Jo o -To Yo Yo Yo Yo To Yo ]
SN » Pl Wl IV IV TV IV
TV
O] N1 V1,91 91,91 91 ST,V [ P
P
P
St i S S
S
vt

-To Yo Jo Yo Yo To Jo Yo To

VAN

IN QUEUE.

12(2)

10(2) (&)

(o Jo T

DRIVE

USER MADE A REQUEST FOR A FUNCTION
UNLOAD REQUEST

855

OR UNSAFE

(1)

REQUEST WASN'T PUT
REGISTERS WERE NOT

(2)

REQUEST

QUEUE

IN QUEUE.
SAVED)

(RH/RM

HA_. BEEN EMPTIED.

ISSUED A 'DRIVE

THE

"LEAW'' TO THE DRIVE.

DRIVER

NOTE: ALL RH/RM nESISTERS ARE SAVED
AS PER DPB+14& BEFORE THE "DRIVE CLEAR''.

(3)

REQUEST

DRIVER

QUEUE HAS BEEN EMPTIED.

ISSUED A MASSBUS

RH/RM REGISTERS

(4)

10.8

ERROR CALLS MADE BY
THERE

ARE

THE

A FEw ERRORS

FOR

THE

INIT.

DRIVE

THE

ALL

WERE

SAVED AS PER DPB¢14& BEFORE

THE

INIT.

A "'RECALIBRATE'' SHOULD BE
BEFORE ANY OTHER COMMAND.

[SSUED

DRIVER.

THAT

CAN OCCUR

THAT

(AN NOT

INDICATED

IN A DPB.

CIRMLAQ RMO0S5/3/2 FORMATIER

MACRO v03.01

11-APR-80 13:01:23 PAGE

3-15

Sea 0018

856
857
858
859
860
861
862
863
864
865
866
867
868

WHEN THIS TYPE OF ERROR IS DETECTED BY THE DRIVER T WILL MAKE
AN ERROR CALL OF THE FORM ''ERROR N'', WHERE '‘N'' IS THE ERROR
NUMBER AND THE ERROR WILL BE AN EMT INSTRUCTION.
N

TYPE

DATA AVAILABLE

RH70 INTERRUPT
OCCURRED (RHA>=0)

*R4= RM(CS1'S ADDRESS

UNEXPECTED ATTENTION

R1= DRIVE NUMBER

OCCURRED

R3= ATA BIT

*R4= RM(CS1°'S ADDRESS

RS5=

(RMAS)

RMERRS

=RMDS

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

MASSBUS PARITY

RD.ADR= ADDRESS OF

REG. READ

MASSBUS

WRT.AD=

REG.

ERROR

ERROR
5

(MCPE=1)

RD.WRD= WORD READ

PAR]TY

(PAR=1)

RD.WRD= WORD

ADDRESS PLUG C(HANGE

BIT

SET

ADDRESS

(°OPE'

ERROR)

READ BA(K

R1= DRIVE NUMBER

R3= ATA BT

*R4=

R5=

RMCS1'S ADDRESS

(RMAS)

RMERRS

=RMDS

RMERRS+2=RMER1

RMERRS+4=RMER?
RMERRS +6-RMMR?2
«

THIS

THE

ACTUAL

WRT.WD= WORD WRITTEN

UNIBUS

ADDRESS

(176700)

WRITTEN

CZRMLAO RM0S/3/2 FORMATTER

MACRO v03.01

11-APR-80 13:01:23 PAGE &

2
SEQ 0019

.PROGRAM REVISION #001
LTITLE

CZRMLAO RM05/3/2 FORMATTER

;*COPYRIGHT (C) 1980
;*DIGITAL EQUIPMENT CORP.

;*MAYNARD, MASS.

01754

*«PROGRAM BY MIKE LEAVITT
:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
:*PACKAGE

(MAINDEC-11-DZQAC-C4),

1980.

OPERATIONAL SWITCH SETTINGS

SWITCH

.SBTTL

BN ER

HALT

INHIBIT ERROR TYPEQUTS
BELL ON ERROR
LOOP ON ERROR
DON'T DISPLAY SYSTEM STATUS AFTER IMITIAL
LOOP ON THE CURRENT TRA(CK
LOOP THE PROGRAM QN THE SELECTED DRIVE

.SBTTL

STACK
ERROR

000011
000012
000015
000200
177776
177776

7774

BASIC

DEFINITIONS

S*INITIAL ADDRESS OF

001100
104000
000004

SCOPE

ON ERROR

= 1100
= EMT
=

]OT

;*MISCELLANEOUS

THE

STACK

POINTER

#e«

1100

we«

..BASIC DE-INITION OF ERROR CALL
;:BASIC DEFINITION OF SCOPE CALL
DEFINITIONS

=12
=15
= 200
= 177776

..CODE FOR HORIZONTAL TAB
..CODE FOR LINE FEED
.. CODE FOR CARRIJAGE RETURN
.. CODE FOR CARRIAGE RETURN-LINE FEED
. :PROCESSOR STATUS WORD

STKLMT

= 177774

ssSTACK LIMIT REGISTER

DSWR
DDISP

= 177570
= 177570

LF
(R
CRLF
PS

PSW=PS

PIRQ

177772

; ; PROGRAM INTERRUPT REQUEST
; HARDWARE SWITCH REGISTER
; ;HARDWARE DISPLAY REGISTER

. *GENERAL PURPOSE REGISTER DEFINITIONS
= X0
; s GENERAL REGISTER
= %
s s GENERAL REGISTER
= X2
s s GENERAL REGISTER
= X3
s s GENERAL REGISTER
= X
s s GENERAL REGISTER
= X5
; ;GENERAL REGISTER
= 16
;s GENERAL REGISTER

000006
000007
000006
000007

RO
R1
R2
R3
R&
RS
R6
R7
SP
PC

000000

PRO

= X7
= 16
= X7

'PRIORIYYOLEVEL

;s GENERAL REGISTER
::STACK POINTER
: :PROGRAM COUNTER

DEFINITIONS
;.PRIORITY

LEVEL

START

000040
000100
000140
000200
000240
000300
000340

PR1
PR2

100000

SW15
SWié

PR3
PR&

PRS

[ X
T I
T
1 O

10000
4000

2000

T
S
TT T T
T

:;PRIORITY LEVEL
;sPRIORITY LEVEL
::PRIORITY LEVEL

20000

1000
400

200

100
40

LEVEL
LEVEL
LEVEL
LEVEL

T I

—

[gn)

—

| =t

SW13

Sw12
SWi
SW10
Sw09
Sw08
Sw07
SW06
SW05
Swo4
SW03
SW02
SWO1
SW00
SW9=5w09
SW8-5w08
SW7=Sw07

2
1

SW6=Sw06
SW5=5w05
SW4=SW04
SW3=5W03
SW2=5w0?2
SW1=5w01

N
W
1
8
1
W

)
]
el
]
)
el o)

OOOO N
[e N1 -RVe]

— oy
=y

—4
—d =
]
)
el
] e

st Gt Dot St Bt D) Bt St Pt Gt G

O NOOOVOOOOOOOOOCQ
b b et b ed —t
N
O
MNIWS VNN
OO —MNINES W
OO

DATA Bl

By Bt Pt Bt Gt Bt Bt B

SW0=5w00

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

PR7

Gt St

100000

;:PRIOR]TY
;:;PRIORITY
;;PRIORITY
;;PRIORITY

240
300
340

PR6

(e
eXeedoodoodoeloodoodoodooRoedoo
oo ooReoRooRooRoo oo ookoold

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

40
100
140
200

ITIONS

(BITO0 1O BIT1S)

NON
N SN
—

SEQ 0020

Bt Guamt Py

BASIC DEFINITIONS

H
2
11-APR-80 13:01:23 PAGE 4-1

MACRO v03.01

CIRMLAO RM0S5/3/2 FORMATTER

CZRMLAO RM05/3/2 FORMATTER

BASIC DEFINITIONS

MACRO v03.01

1
2
11-APR-80 13:01:23 PAGE 4-2

000040
000020
000010
000004
000002
000001

BIT1=8]1T101
B1T0=B1100

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064

ERRVEC
RESVEC
TBITVEC
TRTIVEC
BPTVEC
I0TVEC
PWRVEC
EMTVEC
TRAPVEC
TKVEC
TPVEC

=
=
=
=
=
=
=
=
=
=
=

.SBTTL

RH11/RH70 REGISTERS

000240

SEQ 0021

BIT15=B110S
BIT4=BIT04
BIT3=8]T03
BIT2=BI102

:*BASIC '""CPU'' TRAP VECTOR ADDRESSES
&
10
14
14
14
20
24
30
34
60
64

PIRQVEC = 240

;:TIME OUT AND OTHER ERRORS
:;RESERVED AND ILLEGAL INSTRUCTIONS
5T BlT
;s TRACE TRAP
; :BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (]0T) »«SCOPEwe
; :POWER FAIL
;;EMULATOR TRAP (EMT) =+ERRORe+
::"'"TRAP'' TRAP
;:1TY KEYBOARD VECTOR
;:TTY PRINTER VECTOR
:;PROGRAM INTERRUPT REQUEST

VECTOR

g%
84
85
86
87
88
89
90

000100
000200
000400
001000
002000
020000
040000

;CONTROL AND STATUS REGISTER 1

(RM(CS1)

IE
RDY
Al6
A7
PSEL
MCPE
TRE

:INTERRUPT ENABLE (BIT #6)
;READY (BIT #7)
;HIGH ORDER BUS ADDRESS BIT (BT #8)
;HIGH ORDER BUS ADDRESS BIT (BIT #9)
;PORT SELECT (BIT #10)
;MASSBUSS PARITY ERROR (BIT #13)
:TRANSFER ERROR (BIT #14)

:SC

=
=
=
=
=
=
=

100
200
400
1000
2000
20000
40000

= 100000

:SPECIAL CONDITION (BIT #15)

93
gg

:WORD COUNT REGISTER (RMW(C)
s (EACH BIT 1S CALLED BY BIT NUMBER)

96
gg

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

133

;CONTROL AND STATUS REGISTER 2 (RM(CS2)

101
102
103
104
105
106
107
108
109
110
11
112
113
114

115

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

040000

usi
use
US4
BAl
PAT
CLR
IR
OR
MPE
MXF
PGE
NEM
NED
UPE

Ww(E

R
z 2
= 4
=10
= 20
= 40
=100
= 200
= 400
= 1000
= 2000
= 4000
= 10000
= 20000

= 40000

;UNIT SELECT (BIT #0)
JUNIT SELECT (BIT #1)
JUNIT SELECT (BIT #2)
;BUS ADDRESS INCREMENT INHIBIT (BIT
:MASSBUS PARITY TEST (BIT #¢)
;CLEAR (BIT #5)
: INPUT READY (BIT #6)
;OUTPUT READY (BIT #7)
:MASS BUS PARITY ERROR (BIT #8)
:MISSED TRANSFER ERROR (BI) #9)
;PROGRAM ERROR (BIT #10)
;NON EXISTENT MEMORY (BIT #11)
JNCN EXISTENT DRIVE (BT w12}
;UNIBUS PARITY ERROR (BIT #13)

;WRITE CHECK ERROR (BIT #14)

#3)

CZRMLAO_RM05/3/2 FORMATTER
~NO VNS WA =000~
VNS WA= OVONO VNS WA =00V

100000

11-APR-80 13:01:23 PAGE 4-3

DLT

SEQ 0022

;DATA LATE (BIT #15)

= 100000

;DATA BUFFER REGISTER (RMDB)
;(EACH BIT IS CALLED BY BIT NUMB ER)
.SBTTL

000001
000002
000004
000010
000020
000040
004000

RM REGISTERS

s CONTROL AND STATUS 1 REGISTER.

(#00)

G0
F1

z 1
= 2

;60 BIT (BIT #0)

=10

;FUNCTION CODE BIT #3

FS
DVA

= 40
= 4000

;DEVICE AVAILABLE

Fé&

sFUNCTION CODE BIT

= 4

000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

Vv
DRY
DPR

= 20

;FUNCTION CODE BIT #¢4
;FUNCTION CODE BIT #5

(RMDS1)

(BIT #11)

(#01)

= 100
= 200
= 400

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

= 2000

PGM

WRL
MOL
PIP

= 4000
= 10000
= 20000

sLAST SECTOR TRANSFERRED (BIT #10)
JWRITE LOCK (BIT #11)
:MEDIUM ON-LINE (BIT #12)
;POSJTIONING OPERATION IN PROGRESS (BIT #13)

ATA

JATTENTION ACTIVE

LST

ERR

1000

=1
=2

PAR
fER
WCF

=10
= 20
= 40

HCE
HCRC

= 200
= 400

ECH

AOE
1AE
WLE
DTE
oP]
UNS
bCK

= 100
=
=
=
=
=
=
=

1000
2000
4000
10000
20000
40000
100000

(BIT #9)

;CCMPOSITE ERROR (BIT #14)

100000

ILF
ILR

RMR

:PROGRAMAELE

= 40000

;ERROR REGISTER #01
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040009
100000

;FUNCTION CODE BIT #2

:DRIVE STATUS REGISTER

N
OO0
= OOV NN NN —=O VO NOWVNEWN

— e

il i il il el el

) il

e e

)

) el

D e

NNNOOOOOOOOCOO
NN
S S5 85 55 0 0

D e

e sl el e

i e

d e

o o

D o

ol e

D oD il e

8 0 2 NN NN N NN N N N RO PO PO RO NI AU PO PO PO A

d e

D e

o e o

RH11/RH70 REGISTERS

MACRO v03.01

(RMER1)

(BIT

#15)

(#02 )
:JLLEGAL FUNCTION (BIT #0)
;JLLEGAL REGISTER (BIT #1)
;REGISTER MODIFICATION REFUSED (BIT #2)

;PARITY ERROR
;FORMAT

ERROR

(BIT #3)
(BIT

w4)

sWRITE CLOCK FAIL (BIT #5)
sECC HARD ERROR (BIT #6)
;HEADER COMPARE ERROR (BIT #7)
;HEADER CRC ERROR (BIT #8)
:ADDRESS OVERFLOW ERROR (BIT #9)
: INVALID ADDRESS ERROR (BIT #10)
;WRITE LOCK ERROR (BIT #11)
:ORIVE TIMING ERROR (BIT #12 )
;OPERATION INCOMPLETE (BIT # 13)
;DRIVE UNSAFE (BIT #14)
;DATA CHECK ERROR (BIT 15)

JMAINTAINABILITY REGISTER (RMMR1 ) (#03)
000001
000002
000004
000010
000020
000040

DMD
MCLK

MINX
MSTCK

MRD
MWR

=1
=2

=4
=10

= 20
= 40

;DIAGINOSTIC MODE (BIT #0)
+MAINTAINABILITY CLOCK (BIT #1)
;MAINTAINABILITY

INDEX

(BIT

#2)

SMAINTAINABILITY WRITE

(BIT

#5)

;MAINTAINABILITY SECTOR CLOCK (BIT #3)
;MAINTAINABILITY READ (BIT #4)

CIRMLAD RM05/3/2 FORMATTER

RM REGISTERS

220
221
222
223
224
225
226
227
228
229

N = SN — SN0 —
OO0OOO
oo

T|
T
TR

AT?

OFDIR
HCI

ECI
FMT16

OO0 NON NN
—

Y
N
N
W

s R
B
B

el
e
e

e R

—4 —4
=
—r

ot P

Drt G

ODOOD
N
N
"

)
e N
N
N
B
P

HWNO—O
el
il ol
e

(#11)

;OFFSET DIRECTION
;HEADER COMPARE INHIBIT (BIT #10)
;ERROR CORRECTION CODE INMIBIT (BIT #11)

;FORMAT BIT (BIT #12

;DESIRED CYLINDER ADDRESS (RMD() (#12)
:(EACH BIT

[

JOFFSET REGISTER (RMQOF)

s TRACK F
JTRACK F
s TRACK F

/R RER

20000

MmMmMmmm

40000
100000

reeere
DOV OCO

TRK1Q
TRK
O

F
F

:TRACK
:TRACK

4000
10000

ODDO®

TRK1
TRK?2

400
1000

COUNT
COUNT
COUNT
COUNT
COUNT

2000

;SECTOR
sSECTOR
:SECTOR
sSECTOR
sSECTOR

100

)

(#07)

(RMLA)

200

TRK&

(BIT #14)

X N

sLOOK-AHEAD REGISTER

000001
002000
004000
010000

[oodecloolocRoodooRoekoohoo

:TAPE DRIVE

;NOT BLOCK ADDRESSED (BIT #15)

100000

TAP
NBA

004000
010000
020000
040000
100000

(#05)

;DRIVE TYPE NUMBER
;DRIVE TYPE NUMBER
;DRIVE TYPE NUMBER
;DRIVE TYPE NUMBER
:DRIVE TYPE NUMBER
;DRIVE TYPE NUMBER
;DRIVE TYPE NUMBER
;DRIVE TYPE NUMBER
;DRIVE TYPE NUMBER
;DRIVE REQUEST REQUIRED (BIT #11)
+MOVING HEAD (BIT #13)

DRQ
MOH

SCO1
SC02
SCO4
SC10
520

(RMDA)

(#06)

D100
D101
D102
D103
D104
DTOS
D106
D107
D108

000100
000200
000400
001000
002000

(BIT #0)
(BIT #1)
(BIT #2)
(BIT #3)

;DEVICE 5 .BIT #5)
;DEVICE 6 (BIT #¢)
;DEVICE 7 (BIT #7)

;DRIVE TYPE REGISTER (RMDT)

004000
020000
0460000
100000

#7)

JDEVICE & (BIT #4)

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

000001
000002
000004
000010
000020
000040
000100
000200
000400

0
1
2
3

;DEVICE
;DEVICE
;DEVICE
;DEVICE

(BIT

(#04)

[

ATbH

ATS

AT4

TR T

AT2
AT3

ATO
AT1

(RMAS)

DETECTED

AN SN
—

218
219

000001
000002
000004
000010
000020
000040
000100
000200

PSEUDO-REGISTER

o~~~

215
216
217

;ATTENTION SUMMARY

;MAINTAINABILITY SYNC

BN
—

214

= 200

o
o
o

210
21
212
213

DTSY

—

206
207
208
209

000200

200
201
202
203
204
205

SEQ 0023

186
187
188
189
190
121
192
193
194
195
196
197
198
199

K
2
11-APR-80 13:01:23 PAGE 4-4

173
176
175
176
177
178
179
180
181
182
183
184
185

MACRO v03.01

]S CALLED BY BIT

NUMBER)

JSERJAL NUMBER REGISTER (RMSN)

(#14)

CZRMLAO RM0OS5/3/2 FORMATTER

RM REGISTERS

230

MACRO v03.01

; (EACH

NIV
NIN N MAINIAL
NI NI NN NN
N PN ~o
NN £S5 NN N NN NN N |V
= OOV
NO NI NN
— OV~
N NP —

CALLED BY BIT

;RM MAINTENANCE

040000

11-APR-80 13:01:23 PAGE 4-5

SK1

SEQ 0024

NUMBER)

= 40000

(RMMR2)

;SEEX

(#15)

INCOMPLETE

(BIT #14)

;ERROR REGISTER #02 (RMER2)
100000

BSE

= 100000

;BAD SECTOR ERROR

(BIT #15)

:ECC POSITION REGISTER (RMEC1) (#16)
s (EACH BIT IS CALLED BY BIT NUMBER)
;ECC PATTERN REGISTER (RMEC2) (M17)
s (EACH BIT IS CALLED BY BIT NUMBER)

;SOME 1ST HEADER WORD DEFINITIONS
100000

040000
010000

= 100000

;MANUFACTURES BAD SECTOR FLAG

FMT

:FORMAT

000000

10000

RM DRIVER COMMANDS

RNOP
SEEK
RECAL
DRVCLR
RELSE

=101
= 105
= 107
= 111
= 113

RTC
READIN

=117
= 121

16 BIT MODE

(BIT

#12)

;NO OPERATION
. SEEK
;RECALIBRATE
;DRIVE CLEAR
:RELEASE

= 115

sOFFSET

ACK
SEARCH
GETREG
SETFMT
SELDRV
WCKD
WCKHD

=
=
=
=
=
=
=

;PACK ACKNOWLEDGE
+SEARCH
sGET REGISTERS
;SET FORMAT (& ECI OR HCI)
;SELECT DRIVE
;WRITE CHECK DATA
¢WRITE CHECK HEADER & DATA

ABASE
AVECTY

= 176700
= 254

.SBTTL

TRAP CATCHER

WRTDAT
WRTHD
RDDAT
RDHD

;RETURN TO CENTER LINE
;READ IN PRESET

123
131
14]
143
145
151
153

= 161
= 163
= 171
=173

;WRITE DATA
;WRITE HEADER & DATA
+READ DATA
;READ HEADER & DATA

;*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A *.+2,HALT"

*«SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
000174
000176

000174
000000
000000

:'LOCATION194C0NTAINS 0 1O CATCH IMPROPERLY LOADED VECTORS

DISPREG: .WORD
SWREG:

.WORD

(BIT

;USERS BAD SECTOR FLAG (BIT #14)

.SBTTL

OFFSET

176700
000254

= 40000

0
0

;:SOF TWARE DISPLAY REGISTER
::SOF TWARE SWITCH REGISTER

#15)

CIRMLAQ RMO5/3/2 FORMATTER

TRAF

CATCHER

MACRO v03.01

M2
11-APR-80 13:01:23 PAGE 4-6

SBTTL

000200

280
281 000204

282

STARTING ADDRESS(ES)

000137

007014

JMP

IFSTART

::JUMP TO STARTING ADDRESS OF

000137

006776

JMP

INBECIN

s CHANGE

283

ACT11

.SBTTL
MR

000046
000052
284

000210
000046
016772
000052
020000
000:10
001100

286

SEQ 0025

SRR

$SVPC=,
.46
$ENDAD
.WORD

.=$SVPC
.=1100

THE RH ADDRESS

HOOKS

:HOOKS REQUIRED BY ACT11

.SBTTL

PROGRAM

SRR R

sSAVE PC

Js1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP
20000

::2)SET LOC.52 TO 20000

;. RESTORE PC

APT PARAMETER BLOCK

;:.tt.tt.fi'tt.i.'."'"'"""t'.!'l"ti.t.t.t.t'tt'tt.tt't"i't.

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

:;t.t"lt't'ttt..'t""""'t"..'t..t'i.'t"t"l.'t'..t'.""ttt

000024
000044

001100
000024
000200
000044
001100
001100

L$X=.

200

. =hé

$APTHDR
R
1
A

SRS

¢ s SAVE CURRENT LOCATION
::SET POWER FAIL TO POINT TO START OF PROGRAM
:;FOR APT START UP
::POINT TO APT INDIRECT ADDRESS PNTR.
;;POINT

TO APT HEADER BLOCK

s +RESET LOCATION COUNTER
RRRAARRRsRRdiddR

RARXERRZ

]

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

287
288

000000
001210
000310
000310
000310
000032
001114

$SAPTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:
SUN] TM:
TAB.XY=.

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

$MAIL

::TWO HIGH BITS OF
;;ADDRESS OF

18 BIT MAILBOX ADDR.

APT MAILBOX

(BITS 0-15)

200.
;:RUN TIM OF LONGEST TEST
200.
;:RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
200.
;.ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT
SETEND-SMAIL/2
,;LENGTH MAILBOX-ETABLE (WORDS)
sCMTAGSTARTING ADDRESS

MACRO v03.01 1-APR-80 13:01:23 PAGEN 52

CIRMLAD RM05/3/2 FORMATTER

COMMON TAGS

.SBTTL

SEQ 0026

COMMON TAGS

"."Q""ll"""'"'"""""it"'.".'l"t"'.."""."".

*THIS TABLE

CONTAINS VARIOUS COMMON STORAGE LOCATIONS

.WORD

B B

.WORD
$8DDAT: .WORD
LWOKD
.WORD
SAUVY: .BYTE
$INTLG: .BYTE
.WORD
SWR :
.WORD
DISPLAY: .WORD

$TKS:

377

001205
001206

000

377

177560

$7KB:
177562
$TPS:
177564
$TPB:
177566
$NULL:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$TMPO:
.WORD
$ESCAPE:0
$BELL:
.ASCI2
$QUES:
.ASCII
$CRLF:
.ASCII
$LF
ASCIZ

;:START OF COMMON TAGS

icdel=leleolalaloleolelol Joleolaolalelelole)]

$TSTNM:
$ERFLG:
SICNT:
SLPADR:
SLPERR:
$ERTTL:
$ITEMB:
$ERMAX:
$ERRPC:
$GDADR:
$8DADR:
$GDDAT:

.WORD
.BYTE
.BYTE
.WORD
.wURD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD

s CONTAINS
: ;CONTAINS
;s CONTAINS
: :CONTAINS
;c CONTAINS
;s CONTAINS
+-CONTAINS
:;CONTAINS
;. CONTAINS
;: CONTAINS
;;CONTAINS

THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS OF 'GOOD' DATA
ADDRESS OF 'BAD' DATA

;;CONTAINS 'GOOD' DATA

:;CONTAINS 'BAD' DATA
: sRESERVED-=NOT TO BE USED
:cAUTOMAT]I( MODE INDICATOR
;o INTERRUPT MODE INDICATOR
; sADDRESS OF SWITCH REGISTER
. ;ADDRESS OF DISPLAY REGISTER
J3T1TY KBD STATUS

SWR
DISP

;. TTY KBD BUFFER

;:TTY PRINTER STATUS REG. ADDRESS
J:TTY

PRINTER BUFFER REG.

ADDRESS

;s CONTAINS NULL CHARAC "“ER FOR FILLS
+sCONTAINS # OF FILLER CHARACTERS REQUIRED

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

000000
000
000
000000
000000

XY
.=TAB.

OO =IO

$CMTAG:

BN N NN NN

NI N

ST NNO~NO

— —

001114

SN —~OC ST NOOST N0

D
e

i o
D

el
D el e
e
D il
) el el
il el
il
il
e
—t e

i
)
il
el
il el
el
il
i

) el

D o

00
00

elololeleololeolalolols)

:*USED IN THE PROGRA!:,

2" 'TERMINAL AVAILABLE'' FLAG
;:USER DEFINED

(BIT<07>=0=YES)

;;ESCAPE ON ERROR ADDRESS
<207><377><377> ;. CODE FOR BELL
/?/
JJQUESTION MARK

<15>
<t

;s CARRIAGE RETURN

J:LINE FEED

tt."ttttttt""'t"'."'t"".."'tti"'lt'tt"ttl."ttll'tt.!

.SBTTL

APT MAILBOX-ETABLE

SNOO

PONORIN)
—o — —s s

PORLALRURLALRL
PO R

—

wuh

)

o
lelelelalelelelals]

::...'.l"tttll"t.t".t"""t't't""'t.tl'i"tH't"'tttt.t'tt!

000000
000000
000000
000000

000000
000000
000000
« Y0000

.EVEN
SMAIL:
$MSGTY:
SFATAL:
$TESTN:
SPASS:
$DEV(T:
$UN]T:
$MSGAD:
$MIGLG:

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

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

:APT

MA]LBOX

: sMESSAGE TYPE (ODE
::FATAL ERROR NUMBER
¢+ s TEST NUMBER
¢ s PASS COUNT
¢ :DEVICE COUNT
+:1/0 UNIT NUMBER
;s MESSAGE ADDRESS
s sMESSAGE LENGTH

CIRMLAO RMOS5/3/2 FORMATTER

APT MAILBOX-f TABLE

SEQ 0027

000
000
000000
000000
000000

SETABLE:
$ENV:
.BYTE
SENVM:
BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD
.

AENV
AENVM
ASWREG
AUSWR
ACPUOP

GO
v e n. GAYPNS.
o w,

000000

001244
21245
0)1246

000
000
000000

$SMAMS?2:
$MTYP2:
SMADR?2:

X e
T

AMS1:
TYP1:

.BYTE
.BYTE

AMAMS]
AMTYP]

»
»
B %

ADR1:

01252
001254
(01255
01256
001260
01262
001264
001266

001270
88}%;{

000
000

000000
000
000
000000
000254
000000
176700
000000

000000
000000

SMAMS3:
$SMTYP3:

$SMADR3:
SMAMSL:
SMTYP4:
$MADRG:
SVECT1:
SVECT2:
$BASE:
SDEVM:

$(DW1:
:E?gzfi

ND:

CMEX]T

.TYPE BYTE

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003

.WORD

AMADRY

.BYTE
.BYTE
.WORD

AMAMS?
AMTYP2
AMADRZ

;.HIGH ADDRESS,M.S. BYTE
;.MEM.TYPE,BLKN?
;;MEM.LAST ADDRESS.BLKA?

AMAMSY
AMTYP3

. :HIGH ADDRE
. M.S.BYTE
SS
;:MEM.TYPE,BLKN3

ACDW!
A(CDWZ2

;s CONTROLLER DESCRIPTION WORD#!
;;CONTROLLER DESCRIPTION WORDS?

601250
001251

BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT
;;HIGH ADDRESS,M.S. BYTE
:::EH. TYPE ,BLKA1
ME

000
000

:APT ENVIRONMENT TABLE
: ENVIRONMENT BYTE
;ENVIRONMENT MODE BITS
;;APT SWITCH REGISTER
;:USER SWITCHES
;;CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE

11/7064=01,11,05=02,11/20=03,11/40=06,11/45=05
11/70=06,PDQ=07,Q=10

001262

00 240
00" 241

11-APR-B0 13:01:23 PAGE 5-1

001230
001,30
00131
001232
001234
001236

MACRO v03.01

_BYTE
.BYTE

.WORD
BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
_WORD

.WORD
.WORD

;:H1GH ADDRESS.,BLKA1
MEM.LAST ADDR.=3 BYTFS,THIS WORD AND LOW OF

AMADR3
;;MEM.LAST ADDRESS,BLKA#3
AMAMSS
;:HIGH ADDRESS,.M.S.BYTE
AMTYP4L
;:MEM.TYPE,BLK#G
AMADRL ; :MEM._LAST ADDRESS,BLK#G
AVECTY
;;INTERRUPT VECTORA#1,BUS PRIORITY#1
AVECT2
;;INTERRUPT VECTOR#2BUS PRIORITY®?
ABASE
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
ADEVM
;;DEVICE MAP

''TYPE'' ABOVE

CIRMLAQ RMO5/3/2 FORMATTER
USER DEFINED TAGS

MACRD v03.01

11-APR-8B0 13:01:23 PAGE 6

3
SEQ 0028

USER DEFINED TAGS

000102
001222

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

DRIVE

=$UNIT

SOF SW:

176700
254
172540

;RHW/RM UNIBUS ADDRESS

177546

:ADDRESS OF KW11-L CONTROL REGISTER

KWl11-P VECTOR

100,102 ;ADDRESS OF

kwll-L VECTOR

:CONTAINS DRIVE NUMBER SELECTED

.WORD
.WORD
.WORD
.WORD

SEC30:

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

MODE:

SNGSEC:
LSTRK:

ENDCYL:
BEGCYL:
ENDTRK:
BEGTRK:

001356
001360

0000
40000
000000
000000
000000
000000

001362

000000

MAXSEC:

.WORD

001364
001366
001370
001372

000000
000000
000000
000000

DS.CvrL:
DS.TRK:
DDRIVE:

.WORD
.WORD
.WORD
.WORD

OO0V

.WORD
.WORD

.WORD

O—-0O

PATSEL:
PATA:
PATB:
RETRY:

SAVYSEC:
SAVW(:
Wwi:

MWl:
HEDERR:

ATTN:

001374
001376
001400

000000
000001
000000

001402
001404
001406
001410

000000
000000
000000
000000

HEADX:

.WORD
.WORD
.WORD
.WORD

001412

000000

XXDP:

.WORD

CNTLC:

(HGADR:
WRAP:

DEVMP:
PA(CK:

EDIT:

:RH INTERRUPT VECTOR

:ADDRESS OF Kwli=P (SR
:ADDRESS OF Kwl1-P COUNTER BUFFER

172542
104,106 ;ADDRESS OF

OO0

10000
10000

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

OOO0OO

000106

SRMACR:
SRMVE(:
$LKCSR:
$LK(SB:
$LPVEC:
$LKS:
SLLVEC:

OCOO0O0O0O0O0OOOOOOO

001274
001276
001300
001302
001304
001310
001312

;SAME PARAMETER USED

;CONTENTS ARE FOR SOF TWARE DECISIONS
;FORMAT

12777

BAD16:

.BLKW
.WORD

= =1,

CHECK

= 0 AND

VERIFY

ONLY

;READ MULTI=-SECTOR = O, READ SINGLE SECTOR = 1
;CONTAINS THE LAST TRACK OF THE UNIT UNDER

;TEST. RM02/3 = 4., RMOS = 18,
.ENDING CYLINDER

;STARTING CYLINDER

;ENDING TRACK
:STARTING TRACK
;CONTAINS PATTERN SELECTED
:1ST WORD OF PATTERN

:¢ND WORD OF PATTERN

;MAINTAINS # OF

WRITE

RETRIES MADE

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

;30 OR 32 SECTOR TRACK SIZE (IN WORDS)
:2'S COMPLEMENT OF 'w(°
;POSITIONING ERROR DURING FORMAT

INDICATOR

;30 OR 32 SECTOR MODE INDICATOR
;0 = 30_SECTOR MODE
:1'S = 32 SECTOR MODE
:?6;;:?? SECTOR ADDRESS (FOR EJTHER 30 OR 32 SECTOR
s ADDRESS OF CURRENT CYLINDER
:ADDRESS OF CURRENT TRACK
;DRIVE NUMBER OF ‘DRJVER' ERROR MESSAGES
SATTENTION REGISTER

;ERROR MESSAGES

;ADDRESS OF

IMAGE

FOR

'DRIVER'

'“C°' RETURN

: "CHANGE RH/RM ADDRESS' FLAG =
;WRAP AROUND FLAG,FORMAT FROM HIGH TO LOW

;CYLINDER NUMBER
;DEVICE MAP FOR APT

;PACK >0, BAD SPOT FILE AVAILABLE FROM PA(K
,IF EDIT >0

.EDIT THE BAD SPOT FILE

;HE AD BIT

INDICATOR

GOOD SECTOR
;Bl ¥}5!BIT14
S ALONE, USER DEFINED BAD SECTOR
;B1
;Bl IR & ALONE, MFG DEFINED BAD SECTOR

;TH E
: THE

LOW BYTE

2?6.

CONTAINS

THE

PROGRAM WAS LOADED.

;"XXDP'

001414
002414

IN APT

DEVICE

CODE

;MEG 16 BIT BAD SPOT

DRIVE

THE

THE RM05/3/2.

TABLE

NUMBER FROM WH](H

HIGH BYTE

CONTAINS

THE

CIRMLAQ RMOS5/3/2 FORMATTER

USER DEFINED TAGS

004430
005430
005432

005434
005534
005536

~N~
~N~

—

~~
~N~

003424
004426
004426

~N~
~N~

002420
003620
003422

1727777

000000

SEQ 0029

.WORD

BAD18:

;MFG 18 BIT BAD SPOT

.BLKW
.WORD
.WORD

USTAB:

;USER BAD SPOT TABLE

USSAV:

.BLKW
.WORD
.WORD

<USER BAD SPOT TABLE SAVE FROM PA(K

SECCU:

.BLKW
.WORD
.WORD

;32 WORDS MAX TO STORE BAD SECTORS

JFLAG, IF NEXT==1,ALL GOOD SPOT CN
¢ THE CURRENT TRACK ARE FORMATTED

005551
005552
005554
005556

FMTDPB:

BYTE
.BYTE
.BYTE
.BYTE
.WORD
.WORD
.BYTE
.BYTE

.WORD
.WORD
.WORD

000000

OVOOOOOOOO0O

;DATA/PARAMETER 8LoCk - JSED FOR ALL

005540
005541
005542
005543
005544
005546
005550

TABLE

.WORD

177777

11-APR-80 13:01:23 PAGE 6-1

177777

—

0024616

MACRO v03.01

M.REG

DRIVE OPERATION

;DRIVE NUMBER
;OFFSET

; COMMAND

VALUE

OR FMT16,

;PSEL AND A17 AND AY6
;WORD COUNT

(NEG)

:BUFFER ADDRESS
;SECTOR ADDRESS

;TRACK

ADDRESS

JCYLINDER ADDRESS

:ERROR TABLE POINTER
STAYUS ERROR INDICATOR
118 = :
T 07 = 1:

ERROR OCCURRED
DONE

T 14-10 AND BIT 06-03
CICATE TYPE OF ERROR
JRH/RM REGISTERS

005574
005576
005600
005602
005604
005606
005610
005612
005614
005616
005620
005622

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000

RM_REG:

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

STORED HERE
[eleleloelelaloldlalalelelolalalelo]e]

005560
005562
005564
005566
005570
005572

ECI,

AFTER

JRMCST
sRMWC
;RMBA
;RMDA

JRMCS2

JRMDS
JRMERT
;RMAS
JRMLA
;RMDB

; RMMRI

JRMDT
;RMSN
: RMOF
JRMCA
JRMDC

;RMER?
:RMMR?

AN OPtRAT]ON

AND HC(!

;RMECH

.BYTE
.BYTE
.BYTE
.BYTE

;SPECIAL DPB TO WRITE HEADER OF BAD SPOT

005630
005631
005632
005633
005634
005626
005640
005641
005642
005644

000000

.WORD
.BYTE
.BYTE
.WORD
.WORD

005646

000000

.WORD

FMTX:

SEQ 0030

.WORD
.WORD

;RMEC?2

000000
000000

005624
005626

13:01:23 PAGE 6-2

@D N
C

USER DEFINED TAGS

11-APR-80

OOO0ODV
I OOOO

MACRO v03.01

CIRMLAQ RM0O5/3/2 FORMATTER

;ONLY TWO WORDS FOR HEADER
;BUFFER ADDRESS
sSECTOR
s TRACK

sCYLINDER ADDRESS
;ERROR TABLE

JDONT''SAVE ANYTHING
JSTATUS WORD

sPARAMETER LIMIT POINTER TABLE
005650
005656
005664
005672

005776
006011
006024
006035

001667
000005
001467
000005

001330
00133¢
001326
001332

TABLE:

PAR1,823. ,BEGCYL
PARZ,S
BEGTRK
PAR3,8 25, ENDCYL
PARG.S. LENDTRK,0

005702
005710
005716

006046
006057
006070

001467
000005
000040

001364
001366
001346

TABLEZ:

PARS,823.,DS.CYL
PARG,S. .DS.TRK
PAR7,32.,SAVSEC,0

005726
005734

006046

006057

001364
001366
001346

TABLE3:

006070

001467
000005
000036

PARS,823.,D0S.CYL
PARG,S. .DS.TRK
PAR7,30.,SAVSEC,0

005752
005760
005766

006046
006057
006101

001467
000005
047301

001364
001366
001346

TABLEG:

PARS5,823.,D5.CYL
PARG,S, DS.TRK
PAR8,20161.,SAVSEC.0

005742

006120

022116

022414

P Y
&5 A = O

i
i

OO0O0O0O

—
i
i

NOO—=

o
P
[o X o ¥
— NN
—

e
el
el

— PN
D

il
il
—

WO NN

NN NN
VIV R LRV )

OOMNN

—
—
b

006046
006057
006070
006101

—

006035

005776

006011
006024

JASCI] MESSAGES FOR ADDRESS PARAMETERS

022502

PAR1:
PAR?:
PAR3:

.ASCIZ

PARG:

PARS:

/CYLINDER/
/TRACK
/
/SECTOR
/
/BYTE POSITION /

PARG:

PAR7:
PARS:
.EVEN
TABCAL:

@START (YL @
@START TRK o
dEND CYL o
8END TRK 3

.WORD

FUNCT2,FUNCT3 FUNCT&,FUNCT6,FUNCT7

sSECTOR BUFFER ADDRESS TABLE
006132
006134

006136
006140
006142

045774
047000
050004
051010
052014

ADRTBL:

.WORD
.WGRD
.WORD
.WORD
.WORD

BUFP

SUFP+<516.%1.>
BUFP+<516.¢2.>
BUFP+<516.+3.>
BUFP+<516,.¢4.>

;ADDRESS OF

;ADDRESS
:ADDRESS
;ADDRESS
:ADDRESS

OF
OF
OF
OF

SECTOR 0

SECTOR
SECTOR
SECTOR
SECTOR

1.
2.
3.
&.

CZRMLAO RM0S/3/2 FORMATTER

USER DEFINED TAGS

MACRO v03.01

F
3
11-APR-80 13:01:23 PAGE 6-3

SEQ 0031

006144
006146
006150
006152
006154
006156
006160
006162
006164
006166
006170
006172
006174
006176
006200
006202
006206
006206
006210
006212
006216
006216
006220

053020
054024
055030
056034
057040
060044
061050
062054
063060
064064
065070
066074
067100
070104
071110
072114
073120
074124
075130
076134
077140
100144
101150

JWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.MORD
.MORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.MORD
-WORD

BUFP+<516.95.>
BUFP+<516.+6.>
BUFP+<516.¢7.>
BUFP+<516.+8.>
BUFP+<516.9.>
BUFP+<516.+10.>
BUFP+<516.¢11.>
BUFP+<516.¢12.>
BUFP+<516.+13.>
BUFP+<516.+14.>
BUFP+<516.¢15.>
BUFP+<516.+¢16.>
BUFP+<516.¢17.>
BUFP+<516.+18.>
BUFP+<516.¢19.>
BUFP+<516.¢20.>
BUFP+<516.¢21.>
BUFP+<516.¢22.>
BUFP+<516.¢23.>
BUFP+<516.%24.>
BUFP+<516.¢25.>
BUFP+<516.¢26.>
BUFP+<516.¢27.>

006226
006226
006230

103160
104164
105170

.WORD
.WORD
.WORD

BUFP+<516.229.> -ADDRESS OF
BUFP+<516.+30.> :ADDRESS OF
BUFP+<516.¢31.> :ADDRESS OF

006222

006232
006234
006236
006240
006242
006244
006246
006250
006252
006254
006256
006260
006262
006264
006266
006270
006272
006274
006276
006300
006302
006304
006306
006310
006312
006314
006316

102154

000402
001004
001406
002010
002412
003014
003416
004020
006422
005024
005426
006030
006432
007034
007436
010040
010442
011044
0116446
012050
012452
013054
013456
014060
014462
015064
015466

.MORD

OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF

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

5.
&.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.

BUFP+<516.+28.> :ADDRESS OF SECTOR 28.

CREMAINING WORD

COUNT

WCTBL:

258.
258.+4<258.*1.>
258.4<258.+2.>
258.4<258.+¢3.>
058.+4<258.+4.>
258.4<258.¢5.>
258.+4<258.+6.>
258.4<258.¢7.>
258.+4¢<258.+8.>
258.4<258.+9.>
258.+4<258.+10.>
258.4¢<258.+11.>
258.4¢258.¢12.>
258.4<258.+13.>
258.+<258.¢14.>
258.4<258.+15.>
258.+4¢258.+16.>
258.+<258.¢17.>
258.+4<258.+18.>
258.+<258.¢19.>
258.+<258.¢20.>
258.+<258.+91.>
258.+¢258.¢22.>
258.4¢258.¢23.>
258.4<258.¢24.>
258.+¢258.¢25.>
258.+<258.¢26.>

.WORD
.MORD
JMORD
.WORD
JWORD
JWORD
.WORD
JWORD
.WORD
JMORD
.WORD
LNORD
JWORD
LMORD
.MORD
JWORD
JMORD
JMORD
JWORD
JWORD
.WORD
JWORD
LMORD
JWORD
JWORD
WORD
WORD

;ADDRESS
ADDRESS
:ADDRESS
:ADDRESS
:ADDRESS
:ADDRESS
:ADDRESS
:ADDRESS
‘ADDRESS
:ADDRESS
:ADDRESS
:ADDRESS
:ADDRESS
:ADDRESS
:ADDRESS
:ADDRESS
:ADDRESS
:ADDRESS
:ADDRESS
:ADDRESS
:ADDRESS
;ADDRESS
:ADDRESS

SECTOR 29.
SECTOR 30.
SECTOR 31.

TABLE

:REMAINING WORD
:REMAINING WORD
:REMAINING WORD
:REMAINING WORD
:REMAINING WORD
:REMAINING WORD
-REMAINING WORD
:REMAINING WORD
:-REMAINING WORD
:REMAINING WORD
:REMAINING WORD
:REMAINING WORD
:REMAINING WORD
-REMAINING WORD
:REMAINING WORD
-REMAINING WORD
-REMAINING WORD
:REMAINING WORD
-REMAINING WORD
:REMAINING WORD
:REMAINING WORD
:REMAINING WORD
:REMAINING WORD
:REMAINING WORD
:REMAINING WORD
:REMAINING WORD
:REMAINING WORD

COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT

AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER
AFTER

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

0
1.
2.
3.
&.
§.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
COUNT AFTER SECTOR 24.
COUNT AfTER SECTOR 25.
COUNT AFTER SECTOR 26.

CIRMLAO RM0S5/3/2 FORMATTER

USER DEFINED TAGS

006320
006322
006326
006326
006330

016070
016472
017074
017476
020100

006332
006334
006336
006340
006342
006344
006346
006350
006352
006354
006356
006360
006362
006364
006366
006370
006372
006374
006376

001166
002354
003542
004730
006116
007304
010472
011660
013046
014234
015422
016610
017776
021164
022352
023540
024726
026116
027302

MACKO v03.01

BYTE16:

.WORD
.WORD
.WORD
.WORD
LWORD

258.4¢258.227.>
258.4¢258.¢28.>
258.+4¢258.¢29.>
258.4<258.¢30.>
258.4<258.¢31.>

.WORD
LWORD
.WORD
LWORD
.WORD
.WORD
.WORD
MWORD
LMWORD
.WORD
.MWORD
.WORD
LWORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD

630.
630.+4<630.*1.>
630.+<630.%2.>
630.+<630.+3.>
630.4<630.%4.>
630.4<630.+5.>
630.+<630.%6.>
630.+4<630.¢7.>
630.+4<630.+8.>
630.+4<630.¢9.>
630.+<630.+10.>
630.+4<630.*11.>
630.+<630.¢12.>
630.+<630.+13.>
630.+4<630.%14.>
630.+<630.+15.>
630.+4<630.+16.>
630.+<630.+17.>
630.+4<630.+18.>

006400
006402
006404
006406
006410
006412
006414

030470
031656
033044
034232
035420
036606
037774

.WORD
.WORD
.WORD
.WORD
LMWORD
.WORD
.WORD

006420
006422
006426
006426
006430

042350
043536
044724
066112
047300

.WORD
.WORD
.WORD
.WORD
.WORD

006416

041162

006432
006634
006436
006440
0064642
006444
006446
006450
006452
0064564
006456
006460

001240
002500
003740
005200
006440
007700
011140
012400
013640
015100
016340
017600

006474

027500

006462
006464
006466
006470
006472

021040
022300
023540
025000
026240

11-APR-80 13:01:23 PAGE 6-¢

BYTE18:

;REMAINING
;REMAINING
:REMAINING
;REMAINING
;REMAINING

WORD
WORD
WORD
WORD
WORD

COUNT
COUNT
COUNT
COUNT
COUNT

AFTER
AFTER
AFTER
AFTER
AFTER

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

630.+<630.%26.>

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
MORD
LMWORD
LMWORD

672.
672.4<672.%1.>
672.4<672.¢2.>
672.4<672.¢3 >
672.4<672.%4.>
672.4<672.¢5.>
672.4<672.%6.>
672.4<672.¢7.>
672.+4<672.+8.>
672.4<672.49,>
672.4<672.+10.>
672.+4<672.*11.>

LMWORD

672.¢4<672.017.>

630.4<630.¢27.>
630.+4<630.¢28.>
630.4<630.129.>
630.+4<630.+3C.>
630.4<630.¢30,>

672.4<672.%12.>
672.4<672.*13.>
672.4<672.%14.>
672.4<672.%15.>
672.0<672.-19.>

27
28
29
30
31

1
!

630.+4<630.+19.>
630.+<630.+20.>
630.+<630.+21.>
630.4<630.%22.>
630.+<630.+23.>
630.4<630.¢24.>
630.+4<630.¢25.>

MWORD

LWORD
LWORD
LMWORD
MORD
.WORD

SEQ 0032

’

CZRMLAO RMOS5/3/2 FORMATTER

JSER DEFINED TAGS

006476
006500
006502
006504
006506
006510
006512
006514
006516
006520
006522
006524

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

MACRO v03.01

.EVEN

H
3
11-APR-80 13:01:23 PAGE 6-5
MORD
MORD
LMWORD
MORD
.WORD
.WORD
.WORD
LMWORD
.WORD
LMORD
.WORD
.WORD

672.4<672.%18.>
672.4<672.19.>
672.4<672.%20.>
672.4<672.721.>
672.¢<672.-2§.>
672.4<672.%23.>
672.4<672.%24.>
672.4<$72.925.>
672.4<672.%26.>
672.4<672.¢27.>
672.4<672.+28.>
672.4<672.429.>

SEQ 0033

CIZRMLAO RM0OS5/3/2 FORMATTER

ERROR POINTER

TABLE

MACRO v03.01

11-APR-80 13:01:23 PAGE

.SBTTL

3
SEQ 0034

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;eNCTEY:
1F SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

;*NOTEZ:
M

;:;POINTS TO THE ERROR

D¢

;;POINTS

M
oY

006526

5 006530
6 006532
g 006534

042226

043472
045030
045402

THE

DATA FORMAT

EM1

;RH/RM

EM2
DHZ
D12

SUNEXPECTED ATTENTION OCCURRED

EM3
DH3
D13
DF3

;MASSBUS PARITY ERROR

(MCPE=1)

EM4
DH4
DT4
DF&

;MASSBUS PARITY ERROR

(PAR-1)

0
0
0
0

JUNUSED

EM6

JRH/RM DIDN'T RESPOND TO ADDRESSING

DH1
DT
DF1

INTERRUPT

OCCURRED

(RMAS:=0)

:ERROR 2

11 006536
12 006540
13 006542

}g 006544

042270
043540
045046

045406

DEp

:ERROR 3
006546
006550
006552
006554

042326
043612
045062
045412

JERROR &

006556
006560
006562
006564

042364
043663
045076
045416

%(13
32
33
34
gz

MESSAGE

;:POINTS TO THE DATA! HEADER
;.POINTS TO THE DATA

:ERROR 1

& 006526

25
26
27
%g

DH
DT

$ERRTB:

18
19
20
5;

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

:ERROR 5
006566
006570
006572
006574

000000
000000
000000
000000

gg
39 006576

40 006600
41 006602
42 006604

JERROR 6
042455

043746
045114
045422

DH6
D16
DF6

CIZRMLAOQ RM0S5/3/2 FORMATIER

ERROR POINTER TABLE

MACRO v03.01

NO WV
= O

7-1

SEQ 0035

:ERROR 7

006606
006610
006612
49 006614
[V IV IV TV TV IV TV IV ]

11-APR-80 13:01:23 PAGE

EM?7

;TRACK/SECTOR

FIELD

IN HEADER

IS NOT

CORRECT

;ERROR
006616
006620
006622
006624

;DRIVE OFFLINE
045126
045426

<ERROR
006626
006630
006632
006634

042610
043761
045126
045426

¢PERSISTENT DRIVE UNSAFE ERROR

:ERROR

006636
006640
006642
006664

062646
043761
045126
045426

:UNCORRECTABLE MASSBUS PARITY ERROR

sERROR

006646
006650
006652
006654

042711
043761
045126
045426

; SOF TWARE TIMEOUT

;ERROR
006656
006660
006662
006664

042732
043761
0645126
065426

;DRIVE UNSAFE ERROR

;ERROR

006666
006670
006672
006674

0462755
043761
045126
045426

:CONTROLLER/DRIVE

ERROR

DURING WRITE

;ERROR

006676
6 006700
97 006702
98 006704
99

043021
043761
045126
045426

;CONTROLLER/DRIVE ERROR DURING WRITE CHECK

CIRMLAO RM05/3/2 FORMATTER

ERROR POINTER TABLE

}8?

MACRO v03.01

K
3
11-APR-80 13:01:23 PAGE 7-2

JERROR 17

102 006706
103 006710
106 006712

}82 006714

043073
044210
045200

0456442

}8g

EM17
DH17
D117

}}% 006724

043151
044257
045212

045446

}}g

SUCESSFUL - SECTOR NOT ACCEPTABLE

DF17

EM20
DH20
DT20

;DATA ERROR DURING WRITE

CHECK

DF20

;ERROR 21

116 006726
117 006730
118 006732

}53 006734

043207
043761
045126

0645426

}5;

EM21
DH10
D110

;CONTROLLER/DRIVE

ERROR VERIFYING HEADERS

DF10

sERROR 22

123 006736
1264 006740
125 006742

}%9 006744

043260
043761
045126

045426

}gg

EM22
DH10

:"MCE'

"HCRC'

ERROR VERIFYING HEADERS

DT10
DF10

:ERROR 23

130 006746
131 006750
132 006752

}gz 006754

043330
0644554
045274

045512

}ig

EM23
DH23
D123

;CYLINDER FIELD

IN HEADER

DF 25

;ERROR 24

137 006756

043400

EM2¢4

}2? 006764

045472

DF 24

138 006760
139 006762

044613
045304

}ag

DH24
D124

:WRITE CHECK ERROR

;ERROR 25

;RETRIES NOT

:ERROR 20

109 006716
110 006720
111 006722

144
145
146
}4;

SEQ 0036

006766
006770
006772
006774

043422
044766
045372
0645512

EM2S
DH25
D125
DF 25

;ILLEGAL BAD SECTOR

IS NOT

CORRECT

CIZRMLAQ RM05/3/2 FORMATTER

PROGRAM START

MACRO v03.01

;
3006776

012737

2 007012

000402

g 007014

005037

& 007006

012737

000001

177777

001376

001270

.SBTTL

PROGRAM START

BEGIN:

MOV

#1,CHGADR

BEGIN?

(LR

$CoW!

START:

9 007020

11-APR-80 13:01:23 PAGE 8

MOv

BRIM

SEQ 0037

:ENABLE CHANGE OF

'RH/RM BUS ADDRESS'

;ENABLE USE OF UTILITY ROUTINES

;DISABLE USE OF UTILITY ROUTINES

BEGINZ:
.'"'t't't't'ttt.t"""""""""Q".'i.t...'l'.....".""""t

007020
007022
10 007030
11 007034
}% 007036

000240
012737
005227
001375
(00005

000001
000000

00121¢

007040
007044
007046
007052
007054

012706
005026
022706
001374
012706

007060
007066
007074
007102
007110

012737
023620
012737. 000340
012737
027602
012737
000340
012737 027030

007116

007124
007130

012737

001154
001100

000340

001176
000001

007136
007142
007150
007156
007164
007172

013746
012737
012737
012737
022777
001012

000004
007176
177570
177570
177777

007174
007176
007202
007204
007212
007220

000403
012716
000002
012737
012737
012637

007224
007230
007236
88;522

005037
132737
001403
012737

000030
000032
00003¢
000036
00002¢

000026

001131

INITIALIZE THE COMMON TAGS

MOV

OOSZZ;
00104

;;LEVEL 7

MOV
MOV
MOV
MOV
CMP
BNE

aNERRVEC,-(SP)
N64S ,ANERRVEC
#DSWR,SWR
#DDISP,DISPLAY
#-1,3SWR
66%

;;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 OC(URRED

65%
#65%,(SP)

; :BRANCH IF NO TIMEOUT
;:SET UP FOR TRAP RETURN

656%:

BR
MOV
RTI
MoV
MOV
MOV

675

CLR
Bl18
BEQ
MOV

$PASS
FAPTSIZE ,SENVM
67%
#SSWREG, SWR

648
001154
001156

001231

001232

001154

177777

#3640 ,a#PWRVEC+2

(LR
SESCAPE
s:CLEAR THE ESCAPE ON ERROR ADDRESS
MovBe
#1,SERMAX
:;ALLOW ONE ERROR PER TEST
;sS12E FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

65%:

.SBTTL

007246
007252

+.SET TEST NUMBER IN APT MAIL BOX
;TTY LOOP, WAIT FOR INCREMENT
:0F WORD
;CLEAR THE WORLD

MOV
#SCMTAG,R6
s:FIRST LOCATION TO BE CLEARED
CLR
(R6)+
:: CLEAR MEMORY LOCATION
CMP
FSWR,R6
: . DONE?
BNE
.=b
;. LOOP BACK IF NO
MOV
W#STACK,SP
::SETUP THE STACK POINTER
;o INITIALIZE A FEW VECTORS
MOV
NSERROR,QNEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
MOV
M3640 ,QNEMTVEC+2 ;;LEVEL 7
MOV
NSTRAP ,Q#TRAPVEC ;;TRAP YECTOR FOR TRAP CALLS
MOV
#3640, 8N TRAPVEC+2;LEVEL 7
MOV
#SPWRON ,a#PWRVEC ;.POWER FAILURE VECTOR

000004
001154
001156
171762

001216
000200

.SBTTL

#1,$TESTN
¥0
.~b

;;EQUAL TO A "'-1'", SETUP FOR A SOFTWARE SWITCH REGISTER.

007204
000176
000174
000004

NOP
MOv
INC
BNE
RESET

s CLEAR THE COMMON TAGS (SCMTAG) AREA

001114

005037
112737

TST1:

.. TYPE

INC
BNE

THE

HARDWARE

SWR

IS NOT

FSUREG, SWR
:POINT TO SOFTWARE SWR
#DISPREG,DISPLAY
(SP)+ ,a#ERRVEC
;;RESTORE ERROR VECTOR

TYPE PROGRAM NAME

THE

::AND

NAME

’-1
68%

THE

PROGRATM

::CLEAR PASS COUNT
;. TEST USER SIZE UNDER APT
¢s YES,USE NON-APT SWITCH
¢+NO,USE APT SWITCH REGISTER
IF

FIRST

PASS

;. FIRST TIME?
; ;BRANCH IFf NO

= -1

CIRMLAO RMO5/3/2 FORMATTER

TYPE PROGRAM NAME

007254

1046401

[V TVITE], VT, NT,N1,81 .NT,§1,81,¥
N = OO0 ~NO NN

v gy
oo ~Oo

007260
007264
007266
007274
007276
007304
007306
007310
007312
007320
007320
007362
007362
007366
007370
007374

MACRO v03.01

007322

SBTTL

000042

001230

000001

001154

000176

000001

001150

70$:
71%:
. 698:

005227
001024
104401

000421

bés.

177777

007376
D728
1%:

007440

.
001412
000016

007454
007462
007470
007472

000040

000007
001412
000042

007476
007502
35 007504
007510

007536
007536
007540
007544
007546
007547
007550
007554
007556
007562
007564
007570
007612
007612
007614
007620
007622
007623

001412
001412

001412

104401

001205

005227
001114
104401
000410

177777

001
000

000517

0 05046
1 13716
1 046403
001

’s:

g;SUR

718

;:GET SOFT-SWR SETTINGS

Move

#1,8AUTOB

::SET AUTO-MODE

68%

GET OVER THE ASCIZ

INC
BNE
TYPE
BR
.ASCIZ

#-1
1%
. 12%
1%

;FIRST TIME THRU ?
:BR IF NO
::TYPE ASCIZ STRING
.. GET OVER THE ASCIZ

ASCIZ

:JYPE ASCIZ STRING

INDICATOR

<CRLF>3CZRMLAO - RM05/3/2 FORMATTERQ<CRLF>

<CRLF>3PROGRAM REQUIRES 20K OF

MEMORYI<CRLF>

TAPE

(MANUAL),

BHIS
CLRB
187
BEQ
TYPE

BR
.ASCI2

BR
LASCIZ
(LR
MovB
TYPOS
.BYTE
.BYTE

CHAI!N OR DUMP

XXDP

:CLEAR

ane0, xxpp

:GET DEVICE INDICATOR AND NUMBER

JYES

XXDP

Y%
3¢
748

738

<CRLF>/NOT

'XXDP'

LOAD DEVIZE

*LOADED FROM AN RM0S5/3/2 ?
:BR IF NOT

#7,XXDP

iNC

BNE

XXDP

¥16,a041
43

-(SP)
XXDP, (SP)

TYPE

ACT11,

CLR
MovB
TYPOS
.BYTE
.BYTE
TYPE

007572

001412

,69%

MOV
(MPB

113716
104403

TYPE

GET VALUE FOR SOF TWARE SUITCH REGISTER
TST
NG
: sARE WE RUNNING UNDER XXDP/ACT?
BNE
70$
s :BRANCH IF YES
CMPB
SENV. M
: sARE WE RUNNING UNDER APT?
BEQ
70%
: ;BRANCH IF YES
CMP
SWR, #SWREG
::SOFTWARE SWITCH REG SELECTED?
BNE
s
s :BRANCH [F NO

CLR
CMPB
BNE

000041

007512

005046

SEQ 0038

HE FOLLOWING FINDS OUT THE PROGRAM (ONTROL MODE:

;PAPER

007440
007444
007452

11-APR-80 13:01:23 PAGE 8-1

215

IT A VALID NUMBER

*NO,

DEFAULT

T0O DRIVE

:CHAIN MODE OR ACT11
:BR IF NEITHER
;3 TYPE ASCIZ STRING

L SCRLF
i

CR-LF
:GET NUMBER OF

-1
43
76%

:FIRST TIME THRU HERE
*NO
::TYPE ASCIZ STRING

<CRLF>/T0 TEST

-(SP)

XXDP, (SP)

AUTO ACCEPT

DRIVE
/

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

GET ovsn THE ASCIZ

TESTING

*SUPRESS LEADING ZEROS
DRIVES

SGET OVER THE ASCIZ

DRIVE

:CLEAR WORD ON STACK

:GET

DRIVE

ADDRESS

:TYPE DRIVE ADDRESS
SONLY

CHARACTER

STORAGE

+ SUPRESS LEADING ZEROS

CZRMLAO RM05/3/2 FORMATTER

MACRO v03.01
GET VALUE FOR SOF TWARE SWITCH REGISTER

.- 78%:

N0
NN
NN
NN

007014
025576

001150

NN = N NN =N =N
NN NNNESENESN
WWOWWIWNO WMWK
NNONNNO NN

OCOO0O0O0O-O—=0O—
-t QO = =2 OO000

010026

TYPE

7hs:

007722

0645516
001274
001276

79%

001374

4‘:

001230

BR
LASC1Z
TYPE

5%:

001276
030036

001264
001274

001274
03003¢

PROGRAM,

. 19%

REMOVE

RRDP PACK AND REPLACE

IT/<CRLF>

J:TYPE ASCIZ STRING
;;GET OVER THE ASCIZ

FSTART ,CNTLC

PC,S$TKINT

: 'CONTROL C' ADDRESS
:TURN ON THE KEYBOARD INTERRUPT

1S18
BNE
JSR

$AUTOB

+RUNNING AUTO MODE

MOV
MOv

1S18

BEQ

6$:

HALT

MOV

1ST8

001260
001276
001264

/.,

;. TYPE ASCIZ STRING
:.GET OVER THE ASCIZ

o
.ASCIZ

BEQ

001260

788

1443

SEQ 0039

JSR

030034

030036

11-APR-80 13:01:23 PAGE 8 =2

007632

i
=
NNNON
NN
=N
NNNON

010022

000435
[=l=]

010014
010014

104401

O-—

007714
53 007714
007720

104401

000431

OO0~
——O00

52 007624
007630

MOvB
MOV

TST

BEQ

MOv
MOV

/WITH A WORK

PC,BUSADR

PACK,

CLEAR

LOCATION 40 AND RESTART

;BR _IF YES
;CHECK THE RH/RM ADDRESS

$RMADR,RMADR

;RH/RM ADDRESS
+RH/RM VECTOR ADDRESS

$ENV
SETVEC
$VECTY
6%
SVECT1,$RMVEC
SRMVEC,RMVEC
$BASE
SETVEC
$BASE
, $RMADR
$RMADR,RMADR

sRUN UNDER APT MODE?

$RMVEC ,RMVEC

PROGRAM./<CRLF>

:NO, DO NOT LOAD FROM E-TABLE
JUUT INTERRUPT VECTOR

;DO NOT CHANGE IF =0
JNEW VALUE
JRH/RM VECTOR
sUUT BASE REGISTER ADDRESS
;D0 NOT CHANGE IF = 0
;sNEW BASE ADDRESS
’

JRH/RM ADDRESS

;DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE

oen

00 1
00 9
77 7
77 7

'96403

106401
106401
010446

-— - OO
NSNWAN

QO NNNO
OV
NN
OO SONONO
SO
O
OO

X
T
e Y
e
R
T
S
R

OOOOOOOOOOO0OOO

P
I
R
X
B
IR

OOOOOOO

OOO0O0O0OO0

DOO0O0

004737
004737
012737
005227
001404
032777
001113
012737
005037
005004

230

OO0

OOO0O0O0OCOOO0OO0O0OO

;PROGRAM W]LL

170774

000340
001402

177776

036354
001205

10000¢
104401

JUSR
JSR

MOV
INC

1%:

2%:

BEQ
BIT
BNE
MOV
CLR
CLR

TYPE

MOV

TYPOS

001020

001404

027774

000004

036423
027706

105764

SETVEC:

Le771¢
(

056247

USE

PC,ST.CLY
PC,RMINIT

;START

THE

#-1
1%

JFIRST

TIME

#-1,SAVEFG

#5W02,aSWR
128
#PR7,PS
DEVMP

+UNSTAT
LSCRLF

R4,
- (SP)

;BR IF NO
;TYPEOUT

;B8R IF NO

"UNIT

STATUS®

;sTYPE

DRIVE

NUMBER

JsTYPE 2 DIGIT(S)
;.SUPPRES' LEADING ZEROS

1518
BEQ
BPL
TYPE

DRVTYP(R4)

NOTRM

TABLE

;.60 TYPE--QOCTAL AS(C]I

:BR

STATUS

;CR=LF
;:SAVE R4 FOR TYPEOUT

5%
69

DRIVE

;DRIVE TABLE POINTER

BM]
BNE

DRVSTA(RSG)

THE

JTYPE

:TYPE &

TYPE
1518

THRU HERE

:DON'T ALLOW RM INTERRUPT
sCLEAR DEVICE MAP

2
0
BLNKS4

.BYTE
.BYTE

CLOCK

JINITIALIZE THE RM DRIVER
JSET THE SAVE REGISTERS FLAG

PACES

JCHECK CRIVE'S STATUS
JBR IF UNSAFE
IF

ONLINE

SSEE IF OFFLINE OR NONEXISTENT
:BR IF NONEXISTENT
sBR IF OFFLINE

;DRIVE NOT AN RM05/3/2

CIRMLAD RM0S5/3/2 FORMATTER

GET

VALUE FOR SOF TWARE

MACRO v03.01

SWITCH REGISTER

}8§ 010244

000455

104 010246

104401

036270

104401

036226

}82 010252

107 010296

}gg 010260

110 010262

000452

00041

}}; 010266

000416

104401

036305

5%:

113
114
115
116
117
}}g

010270
010276
010276
010302
010304
010310

005737
001406
123704
001003
106401
000433

00412

120
121
122
123
124
125
126
127
128
129
130

010312
010316
010326
010330
010332
010336
010344
010350
010352
010360
010364

104401
156437
104601
005000
116400
012737
122700
001411
012737
122700
001403

}gg 010366
133 0103764

012737

000000

136
137
138
}28

0106400
010402
013606
010410

005204
020427
001275
104401

141

010414

}25 010620

001402

027716
036342
000004

010376

036335
000005

010376

036347

010376

105737

001566

001205

1649 010432

005737

001266

151

010440

013737

001266

153 010454
154 019460

005737
001002

001402

000137

016342

012737
012737

000000
000000

NOTPRS

;DRIVE NOT PRESENT

TYPE

B8R

UNTOFF

;DRIVE OFFLINE

:PRINT DRIVE TYPE

;LCADED FROM THIS DEVICE °?
‘BR IF NO
;LOADED FROM THIS DRIVE ?
:BR If NO
:DRIVE 1S LOAD DEVICE

TYPE
BISB
TYPE
CLR
MOVB
MOV
CMPB
BEQ
MOV
(MPB
BEQ

LUNTON
:DRIVE ONLINE
ATABIT(R&),DEVMP
;SET DEVILE MAP
,BLNKS?
;TYPE 2 SPACES
RO
DRVTYP(R4L)
R0
;GET DRIVE TYPE
#SRM03,10%
;ASSUME ADDRESS OF RMO3 MESSAGE
#4,R0
:1
DEVICE AN RMQ3 ?
9%
‘BR IF YES
#3RM02,10%
;ADDRESS OF RMOZ2 MESSAGE
#5,R0
:1S DEVICE AN RMQ2 ?
9%
‘BR IF YES

MOV

#SRMOS . 108

‘PRINT DRIVE TYPE

SADDRESS OF

TYPE

.MORD

11%:

INC
CMP
BNE
TYPE

R4
R4, #8.
2%
,$CRLF

JINCREMENT DRIVE NUMBER/TABLE
SFINISHED ?
*BR IF NOT
SCR-LF

SAUTOB

JRUNNING UNDER AUTO MODE

1518

XSI2E:

;TYPE

RMOS MESSAGE

9% :

BEQ

001231

SCHECK NEXT DRIVE

XXDP
7%
XXDP ,R4
7%
,LODEV
11

8% :

T1YPE

f1s

ST
BcQ
C(MPB
BNE
TYPE
8R

;PROGRAM

000200

TYPE

68 :

001150

132737
001162

;CHECK NEYT DRIVE

JDRIVE UNSAFE

128

144

145 010622
1646 010422
}4; 010430

NOTSAF

108 :

000010

036315

036237
030022
036425

SEQ 0040

001412

104601

}gg 010376

B &
11-APR-80 13:01:23 PAGE 8-3

IS RUNNING

THE DRIVE

TYPE MESSAGE

‘MESSAGE ADDRESS HERE

IN AUTO MODE

‘BR IF NO
- SEE

SIZING

POINTER

IS ALLOWED

BITB
BNE

W#BIT7.SENVM
M

:APT AUTO SIZING ALLOWED
‘BR IF NO

187

SOEVM

;DEVICE MAP AVAILABLE

MOV

$OEVM, DEVMP

SLOAD

ST
BNE

DEVMP
MSF X

. [0]']
MOV

#0,BEGTRK
#0,BEGCYL

150 010436

152 010446
}gg 0106462

157 0106466
158 010474

001406

042737

1776400

BEQ

001402

1$:

BIC

JMP

001334
001330

MSFX:

#177400,0EVMP
$E0P

:BR

NONE

FROM APT MAIL BOX

1T FROM MAIL BOX

SALLOW MAX 8 DRIVES

SCHECK DEVICE MAP
*BR IF DRIVES ASSIGNED

SOTHERWISE.EX]T

JALWAYS STARTS FROM O TRACK
JALMAYS STARTS FROM O CYLINDER

CIRMLAQ RMOS5/3/2 FORMATTER

GET

VALUE

FOR SOFTWARE

159
160
161
162

010502
010510
010514
010520

165
165
167
168
69
170
171

010534
010560
010546
010552
01054
010562
010570

005737
001012
012737
012737
012737

176 010600
175 010606
176 010614

178
179
180
181
182
183
1846
185
186

163 010526
166 010532

012737
005037
005037
012737
005737
001402
005037
012737

MACRO v03.01

SWITCH REGISTER

0016466
001400
001406
177777
001270
001320
177777
001272

020100

001326

001360

001352

001354
001362

012737
012737
005037

017074
160704
001360

001352
001354

010626
010632
010634
010642
010650
010656
010660
010666
010670

005737
001006
012737
012737
012737
005001
136137
001005
005201

001320

188 010676
}gg 010700

003770
000434

020127

000007

191
192
193
194
195
196
197

010702
010706
C1071&4
010720
010722
010726
010730

010137
146137
105761
003757
005737
001403
123701

001222
030022
027706

200
201
202
203
204
205

010736

012702

0000.
4

000137

000022
001324
001332
012146

000137

016342

};g 010576

177 010620

187 010672

}gg 010734

010742
010750
010752
010756
010762

%8? 010766

Sgg 010772

000413

012737

001751

122761
001002
012702
010237
010237

000035

001362

133331
133331
000002

001340
(001342
(01336

030022

001402

2$:

3%:

0061402

4%:

000007

MOV
MOV
(LR

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

187
BNE
MOV
MOV
MOV
(LR
81718
BNE
INC

MODE
;CHECK MODE ?
416
;NO
#133331,PATA
JINITIATE PATTERN
#133331,PATB
JINITIATE PATTERN
#2,PATSEL
;WORSE CASE
R1
JSTART WITH DRIVE NUMBER 0
ATABIT(R1) ,DEVMP
;1S THIS DRIVE IN DEVICE MAP
33
:BR IF YES
R
JINCREMENT DRIVE #

BLE
BR

13
7%

([0}

5%:

6% :

7%:

#29. ,MAXSEC

R1,#7

;MAX 30 SECTOR

sALL DONE WITH MAP ?

R1,DRIVE
;LOAD R1 INTO DRIVE
ATABIT(R1) ,DEVMP
;CLEAR THE BIT FROM DEVICE
DRVSTA(RY)
;1S DRIVE ON LINE ?
3
;BR IF NO
XXDP
;LOADED FROM TMIS DEVICE ?
5%
;8R IF NO
XXDP,R1
;LOADED FROM THIS DRIVE ?

:BR IF

MOV

"6 ,R2

;sSETUP TRACK PARAMETER FOR AN RM03/?

JMP

JSTARY TO FORMAT OR (MECK

JMP

$EOP

(MPB
BNE
MOV
MOV
MOV

#7,DRVIYP(RY)
6%
18, ,R2
R2,LSTRK
R2,ENDTRK

005037
005037

177776
001320

M1:

CLR
(LR

'FORMAT

PS
MODE

MAP

YES

;1S DEVICE AN RMOQS ?
;BR IF NO
:SETUP TRACK PARAMETER FOR AN RMQS
;SETUP LAST TRACK AND
JEND TRACK FOR AUTO MODE.

JEND OF PASS FOR ALL DRIVES ON SDEVM

JSEE WHICH MODE THE PROGRAM IS TO BE RUN IN.
JMODES ARE:

JBR IF NO
;DONE '

MOV
BI(B
1578
BLE
187
BEQ
CMPB

BEQ

027716

$COw1
.*6

JLAST CYLINDER
JSEEK FROM LO TO Ml CYLINDER ADDRESS
JDON'T ALLOW UPDATE OF BAD SECTOR FILE
;SET FORMAT AND VERIFY MODE
JAPT PARAMETER = 0
YES,DEFAULT T0 -1
sNO, SET TO CMECK MODE
JSET 32 SECTOR

187
BNE
MOV
MOV
MOV

C(MP

001412

210

214 010776
215 011002

1%:

#822. ,ENDCYL
WRAP
EDIT
#-1,M0DE

SEQ 0041

MODE
#-1,S€C30
$(Dw?
:APT PARAMETER =0
1%
:NC,30 SECTOR
#<258.¢32.>,4C
;COUNT OF WORDS
#-<258.+32.> ,MiC
;WORD COUNT
731, ,MAXSEC
JMAX 32 SECTOR

001412

PAR|

§1§
1

MOV
(LR
CLR
MOV
187
BEQ
CLR
MOV

001320

157700
000037

&
C
11-APR-80 13:01:23 PAGE 8-4

& VERIFY',

'CHECK

FORMAT'

°'VERIFY MEADER FORMAT'

;SET MODE 70 *CHECK FORMAT'

CIRMLAQ RMOS5/3/2 FORMATTER
MACRO v03.01
GE! VALUE FOR SOF TWARE SWITCM REGISTER

216 011006
217 011012
218 011016

104401
104410
0126357

220 011026

001432

219 011020

221
222
223
226
225
226
227
228

023727

036636

001174

011030
011034
011062
011064
91°)52
011054
011062
011066

104401
022737
001413
022737
001622
022737
001406
104401

230 011072

gg; 011076

104401

000415

036713

233 011100
236 011104
ggz 011112

106401
012737
000407

036767
000001

237 011114
238 011120
239 011126

104401
106401
012737

036413
036672
177777

229 011070

5:? 011132

000742

001174

000106

001174

000126

001174

szg

2647 011144

248
269
250
251
252
253
256
255

011150
011156
011160
011164
011172
011176
011202
011206

529 011210

106401
104401
104410

012637

023727
001415
104401
022737
001411
022737
001424
104401
000752

001205
037004
001174

000015

001174
000131

001174

000116

001174

“$TMPO
#'C,8TMPO
1%
¥'F,$TMPO
48
2V, 8TMPO
2%
,$QUES

§s

SGET STARTING ADDRESS

28:

TYPE
MOV
BR

JMVERF Y
#1,M0DE
5¢

:TYPE *VERIFY'
SSET VERIFY ONLY MODE

38
48

TYPE
TYPE
MOV

JF
MFORMT
#-1,MODE

STYPE 'F°
STYPE 'FORMAT § VERIFY'
SSET MODE 1O FORMAT & VERIFY

TYPE

036417
037132
177777

001360

262 011236

012737

157700

001354

261 011230
263 011244

012737

020100

ggg 011252

012737

000415

000037

266
267
268
269
5;?

104401
005037
012737
012737
012737

037053
001360
017074
160704
000035

011256¢
011260
011264
011272
8:1%80
6

TYPE
TYPE
RDCHR

MOV

CMP
BEQ
TYPE
CMP
BEQ
CMP
BEQ
TYPE
BR

104401
104421
012737

28
3.

IN 30 OR 32 SECTOR MODE

,$CRLF
TMSIZE
(SP)+,$TMPO

$TMPO . #CR
28
,$TMPO
#'Y,8TMPO
3
P'N,STMPO
43
,$QUES

:CR=-LF
STYPE FORMAT MODE REQUEST
:READ KEYBOARD

*GET

CHARACTER ENTRY

:CARRIAGE RETURN ?
‘BR IF YES
:TYPE CHARACTER
*1S ENTRY A ‘y* 2
BRIF IT IS
S1S ENTRY A 'N' 2
BRIF IT IS
STYPE '

K,
TMSEC32
#-1,5EC30

STYPE 'v'
STYPEOUT MODE SELECTED
232 SECTOR INDICATOR

MOV

#-<258.+32.5
MuC’

MOV

B8R

1S 10 BE

'CHECK'

TYPE
TYPE
MOV

001362

FORMAT

STYPE REST OF

STRY AGAIN

MOV

MCHECK

001352

001352
001354
001362

‘BR IF YES
STYPE CHARACTER
SUCHECK® 2
‘BR IF YES
S'FORMAT' 2
‘BR IF YES
SYVERIFY' ONLY ?
‘BR IF YES
*NO CORRECT ENTRY

STRY AGAIN

001204

258 011212
259 011216
260 011222

272

TYPE
CMP
BEQ
CMP
BEQ
CMP
BEQ
TYPE

S'CR' ENTERED (DEFAULT)

MIA:
18

001174

(SP)+,$TMPO

$STMPO . #CR

;FIND OUT

266 011132
265 011136
266 011142

;TYPE "PROGRAM MODE
*READ THE KEYBOARD
:GET CHARACTER INPUT

B8R

001320

,MMODE

CMP

BEQ

001206

001320

SEQ 0042

TYPE
RDCHR
MOV

G00O1S

001174
000103

&
D
11-APR-80 13:01:23 PAGE 8-5

TYPE
‘LR
MOV
MOV
MOV

#<288.¢32
>, wC
#31.

MAXSEC

:TRACK SIZE IN 32 SECTOR MODE

;2'S COMPLEMENT WORD COUNT
;MAX SECTOR ADDRESS [N 32 SECTOR MODE

*CONTINUE

JMSEC30
;TYPE OUT 30 SECTOR MODE SELECTED
SEC30
230 SECTOR INDICATOR
#<258.¢30.>,WC
:TRACK SI2E IN 30 SECTOR MODE
#-<258.+30.>
. MuC’ ;2'S COMPLEMENT WORD COUNT
#29. MAXSEC
;MAX SECTOR ADDRESS IN 30 SECTOR MODE

CIRMLAQ RMO5/3/2 FORMATTER

GET

MACRO v03.01

VALUE FOR SOF TWARE

SWITCM REGISTER

273
276
275
276

000000
000000
001400
000002

011306
0113164
011322
011326

S;g 01133¢

012737
012737
005037
012737

112737

177777

001334
0C1330
001336

005540

%gg
281
282
283
286
285
286
287
288

MIB:

&
E
11-APR-80 13:01:23 PAGE B8-6

MOv
LY
CLR
MOV

MOv8

#0,BEGTRX
#0.BEGCYL
URAP
#2 PATSEL

#-1,smiDPB

SEQ 0043

;CLEAR STARTING TRACK ADDRESS
‘CLEAR BEGINNING CYLINDER ADDRESS
JSEEK FROM LO TO MI CYLINDER ADDRESS
JSETUP FOR WORST (CASE PATTERN

SSETUP INVALID DRIVE NUMBER

;GO FIND OUT WHAT DRIVE
011342
011350
011354
011360
011364
011366
011372
011400

289 011602

290 011610
291 011612
292 011416

293 011422
011626
011430
0116432
0116436
011636
011640
294 011442
295 011444

012737
004737
005037
104401
104410
012637
023727
001420

023727
001414
104401
012701

004537
011452
011442
011452
011442
011460
011452
005002
104401

020262
025576
001126
036372

001374

001174
001174

000015

001174

000056

MO:

023410

‘BR IF YES
STYPE CHARACTER
:GET ADDRESS OF ENTRY

TYPE
BR
MOV

.SQUES
MO
R2,DRIVE

;TYyPE '
;ASK FOR DRIVE NUMBER AGAIN
*SAVE DRIVE NUMBER

ST
BEQ
C(MPB
BNE
TYPE

B8R

XXDP
43
XXDP,R2
4
LMLODEV

:LOADED FROM THIS DEVICE
‘BR IF NO
‘WAS THIS THE DRIVE ?
‘BR IF NO
:DRIVE 1S LOAD DEVICE

48:

JSR
JSR
MOV
MOV
(LR
TSTB
86T
BEQ
TYPE
BR

PC.ST.CLK
PC.RMINIT
#-1,SAVEFG
#-1.SEEKFG
PS
DRVSTA(R2)
7%
5¢
_MUSOR
M0

:START THE CLOCK
160 SEE WHAT DRIVES ARE AVAILABLE
:SAVE THE REGISTERS
SSET °NO OPTIMIZATION' FLAG
*PRIORITY = 0
:LOOK AT DRIVE STATUS
*BR IF ONLINE
:BR IF DRIVE NOT AVAILABLE
:'DRIVE UNSAFE'
260 GET DRIVE NUMBER AGAIN

1STB
BNE
TYPE
BR

DRVIYP(R2)
6%
_MDRNP
MO

:A DRIVE PRESENT?
:BR IF SO
STYPE 'DRIVE NOT PRESENT'
260 GET DRIVE NUMBER AGAIN

001204

2S:

001222

302
303
306
305
306

011464
011470
0116472
01476
011500

005737
001406
123702
001003
104401

001412

309 011506
310 011512
311 011516
312 011526
313 011532
314 011536
315 011542
316 0115464
317 011546
g}g 011552

004737
004737
012737
012737
005037
105762
003015
001403
1064401
000673

020016
030052
177777
177777
177776
027706

320
321
322
323

105762
001003
104401
000665

027716

001412

036574

027774
027776

036554

RS,(K.(CHR

*PERIOD ?

:GO SEE IF DRIVE ZERO 1S THERE

104401
000731
010237

036500

1%
,$TMPO
#$TMPO,R1

$STMPO, ' .

298 011452
299 011456
ggg 01146C

011554
011560
011562
011566

BEQ
TYPE
MOV

R2
lERO

1$:

000403

000716

(SP)+,$TMPO
$TMPO,#(R
1%

;CONTROL C ABORT ENTRANCE
JINITIALIZE THE TTY XEYBOARD
JCLEAR THE ERROR ACCUMULATOR
“ASK FOR DRIVE NUMBER
JREAD THE KEYBOARD
:GET CHARACTER TYPED
;CARRIAGE RETURN ?
‘BR IF YES

JSR
2%
18
2%
s
38
2%
(LR
TYPE

ggg 0116450

gg; 011504

#C.ENTR,CNTLC
PC,STXINT
SERTTL
JMUNIT

CMP

001174
001174

036403

MOV
JSR
CLR
TYPE
RDCHR
MOV
CMpP
BEQ

sCHECK ONE CHARACTER
JILLEGAL CHARACTER
;CARRJAGE RETURN
PR
AR
DIGIT Q-7
:DIGIT 8-9
:SELECT DRIVE ZERO
;TYPE UNJT NUMBER 0

CIRMLAO RM05/3/2 FORMATTER
MACRO v03.01
GE1 VALUE FOR SOF TWARE SWITCH REGISTER

324
~
325 011570
104401
ggg 01157¢
000662

036525

328 011576
329 011604

113737
012737

001222
000000

005540
001330

331
332
333
334
335
336
337
338
339
342

012737
012700
122762
001002
012700
010037
010037
005200
012701
010061
010061
010061
010061
062701
010061

000000
000004
000007

001334

330 011612

011620
011626
011632
011640
011642
011646
011652
011656
011660
011664
011670
01167¢
011700
3643 011704
3644 011710

%‘2 011714
&

012737

104401

001466

SEQ 0044

1YPL
BR

JMERTY
MO

:"URIVE NOT AVAILAB_E'
160 GET DRIVE NUMBER AGAIN

7%:

MOVB
MOV

DRIVE,FMTDPB
#0,BEGCYL

;SETUP DRIVE ADDRESS
JCLEAR STARTING CYLINDER ADDRESS

MOV

027716
8% :

000010
005650
005702
005726
005752
000014
005650

001205

MOV
MOV
CMPB
BNE
MOV
MOV
MOV
INC
MOV
MOV
MOV
MOV
MOV
ADD
MOV

TYPE

g:g

63 :

001326

000022
001324
001332

11-APR-80 13:01:23 PAGE 8-7

#8862 ENDCYL

#0,BEGTRX
#6.RO
#7.DRVTYP(R2)
8s
#18. R0
RO,LSTRK
RO.ENDTRK
RO
7M0,R1
RO, TABLE (R1)
RO,TABLE2(R1)
RO,TABLE3(R1)
RO,TABLEG(RT)
746 ,R1
RO, TABLE(RY)

LS$CRLF

-SETUP END CYLINDER

:CLEAR STARTING TRACK ADDRESS
:GET LAST TRACK FOR AN RMO3/2
:IS DEVICE AN RMQS ?
‘BR IF NO
:GET LAST TRACK FOR AN RMQS
SSETUP LAST TRACK AND
*END TRACK PARAMETERS
*ADJUST TRACK LIMIT
JGET TRACK OFFSET iN PARAMETER TABLES
:SETUP TRACK PARAMETER LIMITS IN ''TABLE'
:SETUP TRACK PARAMETER LIMITS IN "'TABLE2'
:SETUP TRACK PARAMETER LIMITS IN "‘TABLE3"
JSETUP TRACK PARAMETER LIMITS IN "'TABLEG''
JGET OFFSET FOR ENDTRK LIMIT IN "'TABLE"
JSETUP TRACK PARAMETER LIMIT

LCR-LF

:GET ADDRESS LIMITS

349 011720
350 011724

351 011730
352 011732

104401
00<437
005650
005037

353 011736
354 0117644
355 011746

036430
020454

001400

001326

§§9 011750

023737
001402
103410

000413

358
359
360
§g;

011752
011760
011762
011766

023737
103007
104401
000754

001332

363 011770

012737

ggg 011776

000400

M2:

001330

001334

037230
177777

gb?

WRAP

. TABLE PARAMETERS
JSEEX
FROM LO TO M]

170 CHECK DRIVE

CMP
BHIS
TYPE
BR

ENDTRK ,BEGTRX
M4
,MADRER
M2

;SEE IF ENDING TRACK EQ OR GT THAN BEGINNING
‘BR IF YES
;INVALID ADDRESS ENTERED
STRY AGAIN

#-1,URAP

JALLOW SEEX FROM H]

CMP
BEQ
BLO

1%:
2$:

001400

TYPE
JSR
TABLE
CLR

3%:

MOV

B8R

JENTADR
R4 ,PARENT

ENDCYL,BEGCYL
1%
3

J'ENTER ADDRESS LIM]TS®
JENTER THE ADDRESS LIMITS

CYLINDER ADDRESS
JSEE IF ENDING CYL EQ TO GT THAN BEGINNING
;BR ]F ON THE SAME CYLINDER
:BR IF LESS

TO LC CYLINDER ADDRESS

;G0 GET DATA PATTERN FOR FORMAT

368 012000
369 012006

005737
003060

001320

371 012010
372 012016
g;s 01202¢

012737
012737
000450

133331
133331

375
376
377
378
379

1064401
104410
012637
023727
001420

037331

370 012006
&

012026
012032
012034
012040
012046

001007

00117¢4
00117¢

M4 :

BNE

001340
001342

MOV
MOV
8R
MGA

000015

ST
BG!

TYPE
RDCHR
MOV
(MP
BEQ

MODE
M5

;1S 1T CHECK MODE ?
*NO, VERIFY ONLY MODE

#133331,PATA
#133331,PATB
MS

:CHECK MODE USE WORST CASE DATA
JINITIAL THE DATA PATTERN -SHIFfT
:START TO FORMAT AND CHECK

M4LA

JMSELP

(SP)+,8$THPO
$TMPO,#(R
18

INO. FORMAT € VERIFY MODE

;60 TYPE 'SELECT PATTERN'
*READ THE KEYBOARD
JCHARCTER ENTRY
JCARRIAGE RETURN ?
BR IF YES

3 BITS

CIRMLAO RM0S5/3/2 FORMATTER

GEY

VALUE

FOR SOFTWARE

380 012050

381
382
I83
384

023727

012056
012060
012064
012070
012074
012076
012100
012102
012104
012106
385 012110
386 012114
%gg 012120

001414
104401
012701
004537
012130
012110
012130
012110
012122
012130
104401
012702
000406

389
390
391
gg%

012122
012126
012130
012134

394 012136
395 012142

MACRO v03.01

SWITCH REGISTER

001176

000056

&
6
11-APR-80 13:01:23 PAGE B8-8

(mMP

001174
001174
023410

036421
000002

020227
101403
104401
000721

000002

001204

3%:

104401
010237

001205
001336

$IMPO, 2,

1%
,$1mMpP0
#LTMPO,RY
RS,(K.CHR
.

SEQ 0045

;PERIOD ?

BEQ
TYPE
MOV
JSR
38
1%
3$
1%
2%
s
TYPE
MOV
BR

L TW0
"R
XY

;BR IF YES
:TYPE CHARACTER
JENTRY ADDRESS
JCHECK ONE CHARACTER
JILLEGAL C(HARACTER
;CARRIAGE RETURN
L
g
;DIGIT Q-7
:DIGIT 8-9
JTYPE '2°
;WORST CASE PATTERN
;G0 SAVE PATTERN

(MP
BLOS
TYPE
BR

R2.,#2
X9
LSQUES
M4

;1S # LARGER THAN 2
:BR JF NOT
:TYPE '
:RETYPE LINE

TYPE
MOV

LSCRLF
R2,PATSEL

:CR=LF
;SAVE PATTERN SELECTED

CIRMLAO RM0S5/3/2 FORMATTER

START OF

FORMAY

MACRO v03.01

;

.SBTTL

& 012146

;GO TYPE

5 012146
? 012154

012737
005037

020302
177776

8 012160
9 012164

005037
005737

001406
001320

10 012170
11 012172
12 012174

003017
001403
104401

037452

104401

037505

012206

013746

001222

012212
012214
012215

104403
001
000

}2 012200

15 012202
16 012206

17 012216
18 012222

;g 012230

000402

104401
012737

001205
177777

000060

1$:
2%:

001406

3s:

SEQ 0046

FORMAT

'STARTING FORMAT ON DRIVE N'
MOV
(LR

#O.ENTR,I#TKVEC ;VECTOR FOR CONTROL=0
PS
;PRIORITY = 0

(LR
187

EDIT
MODE
3%

;DON'T ALLOW UPDATE Of BAD SECTOR FILE
:'FORMAT', °*CHECK' OR VERIFY MODE ?

¢
MSFOR

:BR IF 'VERIFY ONLY' MODE
:BR IF 'CHECK' MODE
;TYPE 'STARTING FORMAT ON DRIVE N'

TYPE

L MSCHK

;TYPE

MOV

DRIVE,=(SP)

;;SAVE DRIVE FOR TYPEOUT

1YPOS
.BYTE
BYTE

TYPE
MOV

;:TYPE

1
0

LSCRLF
#-1,EDIT

'STARTING CHECK ON DRIVE

DRIVE

NUMBER

:CR=LF
;UPDATE BAD SECTOR FILE

;SET UP DPB BLOCK READ CYL 822.. LAST TRACK.

24
25
26
27
28
29
30
31
32

012230
012234
012242
012250
012256
012264
012270
012276
012304

005037
012737
013737
012737
113737
105037
012737
012737
112737

001344
177777
001222
001466
001324
005550
045774
157700
000020

34
35
36
37
gg

012320
012324
012326
012330
012334

004037
005540
000774
005737
001775

030622

40 012336
41 0%2344
42 012350

012737
012706
112737

44
45
4«6
47
ag

005540
000774
005737
001775
100007

33 012312

43 012356
012362
012364
012366
012372
012374

112737

004037

000143

001404
005540
005552
005551

005542

030622
005556

END OF

PASS

FORMATTED PA(CK)

RETRY
:CLEAR THE RETRY fLAG
#-1,PACK
;RESET THE MFG AVAILABLE FLAG
DRIVE ,FMTDPB
:LOAD DRIVE #
¥822.,FMIDPB+12 (YL 822
LSTRK,FMTDPB+11 ;LAST TRACK
FMIDPB+10
:SECTOR 0
#BUFP,FMTDPB+6
;BUFFER ADDRESS
#-<32.%258.>,FMTDPB+4
;WORD COUNT FULL TRACK
#20,FMTDPB+1
FMT SET

JSR
FMTDPB
B8R
TST
BEQ

RO,RMOS

:SET THE FORMAT B8]7

1%
FMIDPB+16
2%

:THE COMMAND S DONE
:BR IF NOT

MoV
MOV
MOVB

#.,SLPERR
#STACK,SP
#ROHD ,FMTDPB+2

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

6%:

FMTDPB
BR
ST
BEQ
BPL

3%
FMIDPB+16
4%
6%

;BR IF QUEUE FAIL
;ALL DONE
:BR IF NOT
:BR IF NO ERROR

;
:
;

ESCAPE
JSR
ERROR

5%
PC.ERINDX
10

;SEE WHICH ERROR

1%:
2%:

001124

005542

(IF

CLR
MOV
MoV
MOV
MOVB
CLRB
MOV
MOV
MOVB

005546
005544
005541

005556
012336
001100
000173

RETBAD:

;:60 TYPE-=OCTAL ASCII
;:TYPE 1 DIGIT(S)
;s SUPPRESS LEADING ZEROS

:THIS CODE RETRIEVES THE BAD SPOT FILE FROM THE PACK

50
51
52

MS:

START OF

BGT
BEQ
TYPE

11-APR-80 13:01:23 PAGE 9

3%:

MOVB

JSR

#SETFMT,FMTIDPB+2

RO, RMOS

INCLUDING HEAD

;SET 16 BI1 MODE

SREAD THE LAST TRACK

CIRMLAO RM0S5/3/2 FORMATTER

START

FORMAT

MACRO v03.01

5
55

:
:

56
§7
58
59 012376
60 012604
51 0126406

022737
103451
005237

64
65
66
67
68
69
70
71
72
73
76
75
76
77
78
79
80

012614
0126420
012624
012430
012432
012640
012442
0126446
012450
012456
0126456
012462
0126466
0126470
012472
012476
012500

005037
005037
005737
100437
022737
001033
013700
000300
020037
001025
005737
001003
005737
001417
005737
001014
022737

82
83
84
85

012510
012514
012520
012522

000137
005737
001003
012737

gg 012612

81 012506

gg 012530

000761

001002

000240

000003

63 :

045774

001324

045776
046000
046002
046004

177777

78:

046006

000400

001404

8s:

012706

91
92
93
9%
95

012536
012540
012544
012550
012554

005046
012746
012746
012746
012703

99 012570
100 012572

001375
012704

96 012560
97 012564
98 012566

101 012576

012704
005023
005304

012705

102 012602
103 012604

010523
005304

105 012610
}8? 012612

012603
001362

104 012606

001375

001100

004430
002420
001414
003424
000004

TABINT:

1$:
2%:

000374

177777

12
13

14
21
PC,LOP.CK
¥3 RETRY
8$
RETRY

3¢

;TRY AGAIN

CLR
(LR
ST
BM]
CMP
BNE
MOV
SWAB
CMP
BNE
TSt
BNE
ST
BEQ
13
BNE
CMP

$ESCAPE
RETRY
FMTDPB+16
8$
#151466,BUFP
8s
LSTRK,RO
RO
RO,BUFP+?2
8$
BUFP+4
7%
BUFP+6
8$
BUFP+10
8$
#-1,BUFP+12

;

JMP
ST
BNE
MOV

REJEC
BUFP+12
8$
#400,PACK

BNE

017112
046006

SEQ 0047

ERROR
ERROR
JSR
CMP
BLO
INC

B8R

001176
001344
005556

151466

ERROR

ERROR
ERROR

NOP

;THIS CODE

90 012532

108
109

001364

:
:
15¢:

001344

gg
-

4
1
11-APR-80 13:01:23 PAGE 9-1

.46

;
*CHECK LOOP ON ERROR
*DONT' TRY OVER 3 TIMES
:

:ANY ERROR ?
‘BR IF ANY
;ON THE LAST CYLINDER ?
‘BR IF NOT
;GET LAST TRACK
*MOVE TRACK TO HI BYTE AND SECTOR
;ON LAST TRACK AND SECTOR O
‘BR IF NOT
*SERIAL NUMBER SHOULD NOT 0
‘BR 1F NOT 0
-SECOND WORD OF SERIAL NUMBER
:BR IF IERO
:THE THIRD WORD MUST BE 0
;BR IF NOT
*AN ALIGMMENT PACK ?

‘BR IF NOT

;A DATA PACK ?
:BR IF NOT IDENTIFIED
;SET MFG BAD SPOT FILE AVAILABLE FLAG

- DONE

INITIALIZES THE BAD16,BAD18,USTAB,USSAV TABLES

MOV

#STACK,SP

;INITIAL

CLR
MOV
MOV
MOV
MOV

-(SP)
#USSAV,=(SP)
#BAD18,-(SP)
#BAD16.-(SP)
FUSTAB . R3

:TERMINATOR
:USSAV TABLE ADDRESS
JMFG 18 BIT FILE ADDRESS
:MFG 16 BIT FILE ADDRESS
*USER BAD SPOT FILE ADDRESS

BNE
MoV

28
#252.,R4

:BR IF NOT DONE
JSET =1 TO ALL THE REST

MOV
CLR
DEC

26 R4
(R3)+
R4

MOV

#-1,RS

MOV
DEC

RS, (R3)+
R4

MOV
BNE

(SP)+,R3
1%

BNE

;THIS CODE

10 LO BYTE

LOADS

TABLE

STACK

POINT

;FIRST & WORDS SET 10 O TEMPERARY

LOCATIONS

:DECREMENT WORD COUNT
‘BR IF NOT DONE
*NEXT TABLE

JLOOPING BACK

IF NOT TERMINATOR

BADV6,BAD1I8,USSAV,FROM PACK

(1F

FORMATTED PA(K)

CIRMLAO RM05/3/2 FORMATTER

START

FORMAT

110
111 012614
112 012620
113 012622
116 012626
115 012632
116 012636
117 0126640
118 012642
119 012644
120 012650
121 012654
122 012660
123 012662
126 012664
125 012666
126 012672
127 012676
128 012700
129 012704
130 012710
131 012714
132 012716
133 012720
136 012722
135 012726
136 012732
137 012736
138 012740
139 012742

}2? 012744

005737
003451
012702
012703
012704
012223
005304
001375
012702
012703
012704
012223
005304
001375
012702
005737
100402
012702
012703
012704
012223
005304
001375
062702
012703
012704
012223
005304
001375

001404
046000
001414
000400

047004
002420
000400

MACRO v03.01

:
TABLD:

1%:

2%:

061054
001360

060050
004430
000400

000004
003424
000400

000240

3%:

5%:

6%:

187
BLE
MOV
MOV
MOV
MOV
DEC
BNE
MOV
MOV
MoV
MOV
DEC
BNE
MOV
TST
BM]
MOV
MOV
MOV
MOV
DEC
BNE
ADD
MOV
MOV
MOV
DEC
BNE

;THIS CODE

4
1446
1645
1646
147
148
}gg

.
SERNL:

151
152
153
154
155
156
157
158
159
160
161
162
163
1664
165
166

005737
003162
005737
003124

012766

001146

105737

001150

012770
012774
013000
013004
013010
013014
013020
013026
013026
013030
013032
013034
013040
013042
013046
013050

004737
104401
104401
104401
012702
005037
005037
104411
012601
105711
001471
121127
103761
121127
101356
013746

025576
001205
040022
040101
00001¢
001414
001416

012762

001320
001404

2%:
000060
000067
001414

JEXIT

ASK O.P TO ENTER A SERIAL NUMBER FOR UNFORMATTED PA(K

TST
BGT
TST
BGT

MODE
6%
PACK
43

sVERIFY ONLY MODE ?
;BR IF YES
sBAD SPOT FILE AVAILABLE
;8R IF AVAILABLE

BNE

;BR IF

15718

1%:

SEQ 0048

PACK
;BAD SPOT FILE AVAILABLE FROM PA(CK
6%
;sBR IF NOT AVALIABLE
#BUFP+4 ,R2
sLOAD BAD16 TABLE FIRST
#BAC16,R3
+TABLE ADDRESS
#256.,R4
JWORD COUNT
(R2)+,(R3)+
sLOAD THE BAD16 TABLE
R4
JBR IF NOT DONE
1%
#BUFP+520.,R2
;258 X 2 ¢+ 2 X 2 + BUFP
#BAD18 ,R3
sTABLE ADDRESS
#256.,R4
;WORD COUNT
(R2)+,(R3)+
;LOAD THE BAD18 TABLE
R&
;DECREMENT WORD COUNT
2%
;BR ]F NOT DONE
NBUFP+4+<11,.¢516.>,R2
sSECTOR 11.
SEC30
;FORMAT IN 16 BIT MODE
3
;BR IF IT IS
#BUFP+4+4<10.+¢516.>,R2
;SECTOR 10.
PUSSAV,R3
sLOAD THE USSAV TABLE
#256. R4
;WORD COUNT
(R2)+,(R3)+
;
R4
4%
N6 ,R2
JACCESSES THE USTAB BUFFER ADD
#USTAB,R3
JLOAD THE USTAB TABLE
#256. R4
;WORD (OUNT
(R2)+,(R3)+
;LOAD THE TABLE
R4
:DECREMENT THE COUNT
5%
;BR IF NOT ALL DONE

NOP

}4%

012746
012752
0127564
012760

11-APR-80 13:01:23 PAGE 9-2

JSR
TYPE
TYPE
TYPE
MOV
(LR
CLR
RDLIN
MOV
1578
BEQ
(MPB
BLO
(MPB
BHI
MOV

$AUTOB

PC,BTKINT
LOCRLF
LMESG
. SN1
#10. ,R2
BAD16
BAD16+2
(SP)+,R1
(R1)
3%
(R1).,#'0
19
(R1),#*7
1%
BAD16,-(SP)

sRUNNING UNDER AUTO MODE
YES

JINITIALTHE KEYBUARD
;TYPE CRLF
J'ENTER TWO WORDS FOR SN
:
JMAXMUM 10 OCTAL DIGITS ALLOWED
JCLEAR THE LSW OF THE SERIAL NUMBER
JCLEAR THE MSW OF THE SERIAL NUMBER
JREAD IN THE STRING
sADDRESS OF THE READ IN STRING
;TERMINATOR OF THE INPUT STRING
sBR IF IT IS
JLESS THAN ASCIZ 0 ?
JENTER AGAIN JF IT IS
;HIGH THAN ASCIX 7 ?
JENTER AGAIN IF SO
;SAVE THE LSW

CIRMLAQ RMO5/3/2 FORMATTER

START OF

FORMAY

167
168
169
170
171
172
173

013056
013062
013066
013072
013076
013102
013106

042737
006137
006137
006137
006137
006137
042737

175 013120
176 013122
177 013126

100731
006337
100726

174 013116

178 013130

179
180
181
182
183
184
185

013134
013136
013144
013150
013154
013160
013164

186 013172
187 013174

006337

100723
063737
012637
006337
006337
006337
042737

111103
042703

188 013200
189 013204
190 013206
191 013210
192 013212
193 013214
194 013216
195 013222
196 013226
197 013230
198 013232
199 013240

200
201
202
203
ggg

013246
013254
013262
013270
013276

060337
005201
005302
001307
105711
001273
005737
001003
005737
001665
013737
013737

206
207
208
s?g

013300
013306
013310
013314

005237
005237
005237
005237

5}5 013320

000240

013737
013737
013737
013737
000410

100000
001614
001414
001414
001414
001414
177770

001416

215 013322
216 013326
217 013330

218 013334
219 013336
53? 013342

222 013344
223 013350

001414

:CLEAR THE SIGN BIT OF LSW
:ROTATE THE LSW FIVE TIMES
210 MOVE THE MOST SIGN DIGIT
270 BIT 0 TO BIT 2
;
;
LEFT ON THE MS DIGIT OF THE LSW

BM]
ASL
BM]

1%
BAD16+2
13

CENTER AGAIN IF
;
:

BM]
ADD
MOV
ASL
ASL
ASL
BIC

1%
BAD16,BAD16+2
(SP)+.BAD16
BAD16
BAD16
BAD16
#BIT15,BAD16

;
:APPENDING THE DIGITS INTO MSW
*RESTORE THE LSW
*SHIFT THE LSW LEFT ONE OCTAL DIGIT

ADD
INC
DEC
BNE
1STB
BNE
ST
BNE
TST
BEQ
MOV
MOV

JAPPEND THE READ IN (MARACTER TO LSW
*ADJUST THE READ IN STRING ADDRESS
:DECREMENT ONE DIGIT COUNT
:BR IF NOT DONE
S1F 10 DIGITS HAVE BEEN ENTERED
:MUST BE FOLLOWED BY <CR>
SSERIAL NUMBER MUST BE NOT 0
‘BR IF NOT 0
;
*ENTER AGAIN IF ZERO
JLOAD ALL TABLE WITH THE SERIAL NUMBER,

MOV
MOV
MOV
MOV
BR

R3, BAD16
R1
R2
28
(R1)
1%
BAD16
43
BAD16+2
1%
BAD16,BAD18
BAD16,USTAB

BAD16,USSAV
BAD16+2,USTAB+2
BAD1642.USSAV+?
BAD16+2,BAD18+2
63
SEX]T

5¢:

INC
INC
INC
INC

USSAV
BAD16
BAD18
USTAB

;CODE FOR AUTO MODE APTY,ACT,ETC.

6% :

NOP

ASL

001416

001414

MOVEB
BIC

177770

001414

001416

001414
001414
001414
001416
001416
001416

004430
001414
002420
003424

002420
003424
004430
003426
004432
002422

SEQ 0049

#BIT15,8AD16
AD16
BAD16
BAD16
8AD16
BAD16
#177770,BAD16

001414

BIC
ROL
ROL
ROL
ROL
ROL
BIC

001416
001414
001414
001414
001414
001414
100000

11-APR-80 13:01:23 PAGE 9-3

001416

%}3

MACRO v03.01

4$:

BAD16+42

(R1),R$
#177770,R3

SSHIFT THE MSW

LEFT ONE OCTAL DIGIT
SIGN BIT SET

;

;
;
:CLEAR THE SIGN BIT

SLOAD THE CURRENT READ IN DIGITS
SLEFT ONLY ONE OCTAL DIGIT

: DONE

:THIS CODING TO PROVIDE UTILITY ROUTINE ENTRIES

000240
004737
105737

001052
005737
001447
106401
104401

025576
001150

CALIN:

001270
040415
041204

18
28

NOP
JSR
TSTB

PC,STKINT
$AUTOB

BNE
187
B8EQ

43
$COwW!
4%

TYPE
TYPE

LMSGBLK
"MUTLTY

SINITIALIZE THE KEYBOARD
SAUTO BYTE SET ?

:1F SO, BRAN"H
JALLOW ANY UTILITY ROUTINE
;BR 1F NOT
;ENTER MESSAGE BLOCK
STYPE UTILITY MESSAGE

0427
006301
004771
000747
104401

022737
001737
005037
005037
005037

MACRO v03.01 11-APR-80 13:01:23 PAG% 9-4

001174
000060

001174

000064

001174

RDCHR
Mov
(MP
BHI
CMPB

TYPE
TYPE
MOV

177760

001174

4%:

JSR
BR
TYPE

CMP
BEQ
CLR
CLR
CLR

JREAD

IN THE

ROUTINE

;TYPE

CHMARACTER

NUMBER

sADDRESS OF INPUT BUFFER
s INPUT NUMBER LESS THAN 0 ?
sBR IF SO
sINPUT NUMBER LARGER THAN & ?
sBR JF SO

sGET NUMBER
JLEFT OF THREE BITS
;WORD INDEX
sCALL THE DESIRED UTILITY ROUTINE
;LOOP BACK TQO THE SAME POINT

ASL

3%:

SEQ 0050

;sCR=LF

BIC

006120

001364
001366
001346

+,$TMPO
$TMPO

BLO

001174
001205
001174

001205
000065

b P NONNO
— ad e

224 013354
225 013356
226 013362
227 013370
228 013372
229 013400
230 013402
231 013406
232 013412
233 013416
234 013422
235 013424
236 013430
237 013432
238 013432
239 013436
260 013444
261 013446
262 013452
263 013456
264 013462

Ottt
s OO =
—OOONON—O
LS B NP — PO
S~
NELS S NONO
S
OO OO — NN NN —

CIRMLAO RM05/3/2 FORMATTER
START OF FORMAT

LSCRLF

”'5,8TMPO
1%
DS.CYL
DS.TRK
SAVSEC

sCR=LF

;TYPE

:BR IF

WHOLE

YES

MESSAGE

AGAIN

;CLEAR ALL PARAMETERS

CIRMLAQ RMO5/3/2 FORMATTER

START OF

FORMAT

MACRO v03.01

11-APR-80 13:01:23 PAGE 10

2 013462

ST1:

:THIS CODE

;:l.'t"tt'.’l I A A A NN

SETS UP THE

:SECTOR IMAGE

7 0136462

000240

8 013464
18 013472

012737
005037

020302
177776

11 013476
12 013502
13 013504

005737
001432
002402

001320

000137

015550

16 013512
17 013516

005037
005037

001340
001342

19 013526

001420

}g 013506

18 013522

20 013530
21 013536
22 013544
23 013552
24 013554
25 013562
26 013570
27 013576
28 013600
29 013604
30 013610
31 013612
32 013614
33 013616
gg 013620

005737

012737
012737
022737
001406
012737
012737
013703
012700
013701
013702
010120
010220
005303
005303
001373

00006C

SELPAT:

18:

NOP

001336
001340
001342
001336

066666
066666
001352
045774
001340
001342

001340
001342

38
48
5%

X2 R R R

R XX

RSS2SR

18T
BEQ
BLT

MODE
3¢
2%

;CHECK MODE ?
TYES
INO, FORMAT & VERIFY

CLR
(LR

PATA
PATB

;CLEAR DATA PATTERN A
*CLEAR DATA PATTERN B

BEQ

:BR IF

MOV
MOV
CMP
BEQ
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
DEC
DE(
BNE

RN Y 2

SELECTED DATA PATTERN TO BE WRITTEN ON EACH

#O.ENTR,@#TKVEC ;VECTOR FOR CONTROL=0
PS
:PRIORITY = 0

177777
177777
000001

R A XX

MOV
CLR

JMP

HDREAD

PATSEL
#177777,PATA
#177777.PATB
#1,PATSEL
{3
#066666,PATA
#066666,PATB
WC,R3
#BUFP,RO
PATA,R!
PATB,R2
R1, (RO)+
R2.(RO)+
R3
R3
5¢

:NO, VERIFY ONLY

:SEE 1F PATTERN OF ONES
SO

:PATA = AB
:PATB=(CD
:SEE IF PATTERN OF ZEROS
:BR IF SO
:SET UP WORST CASE
;SET UP WORST CASE
:SET UP COUNTER
:SET UP MEMORY POINTER
*SET UP PATTERN IN R1
:SET UP PATTERN IN R2
IMOV 1ST PAT INTO MEM
:MOV 2ND PAT INTO MEM
:KEEP COUNT
:KEEP COUNT
:D0 IT AGAIN IF R3 NOT 0

;THIS CODE SETS UP FOR THE ACTUAL FORMAT

38 013622
33 013626
&

013632

«3
4,
5
.5
47
48
49

013646
013646
013652
013660
013664
013666
013670

42 013640

g? 013676

004737
004737

017352
017556

112737

000020

005737
001002
105037
112737
004037
005540
000774
005737

001775

001360
005541
000143
030622

WRTRK:
005541

005542

JSR
JSR

PC.SETTBL
PC.SETHOR

MOVB

#20,FMTDPB+1

BNE
(LRB
MOVB
JSR
FMTDPB
BR
ST

1$
:BR IF NOT
FMTDPB+1
:CLEAR THE FMT16 BIT
#SETFMT,FMTDPB+2
;'LOAD FORMAT'® COMMAND
RO, RMOS
;START THE COMMAND
:DPB ADDRESS
2%
:QUEUE FULL RETURN
FMTDPB+16
:LOOK FOR DONE

1$:
2%

005556

38:

54
55
56
57

AR A AR A

SEQ 0051

BEQ

;60 SET UP DRIVER TABLE
160 INITIALIZE HEADERS IN THE SECTOR BUFFER IN CORE
;LOAD FMT16 BIT

SEC$0

118 BIT MODE ?

:LOOP UNTIL FINISHED

;SET UP SECCU TABLE: BAD SPOT ON CURRENT TRACK

J13676
913704
013706
013714

023727
103406
123737
103402

005552

001466

005551

001324

WRTRKX: (MP
BLO
(MPB
BLO

FMIDPB+12,#822.
1$
FMTDPB+11,LSTRK
18

,RETRIEVED FROM PACK

;LAST CYLINDER ?
:BR IF NO
:LAST TRACK OF LAST CYLINDER ?
:BR If NO

CIRMLAOQ RM05/3/2 FORMATTER

START

FORMAT

gg 013716

000137

015536

60
61
62
63
64
gg

012703
012704
012702
010223
005304
001375

005434
000040
177777

013722
013726
013732
013736
013740
013762

MACRO v03.01

1$:
2%:

gg
013750
013752
013754
013760
013766
013770
013772
013776
014000
0164006
014010
0164014

82 016016
83 014022

84
85
86
8/

014026
0164030

005737

003461
005066
012746
012702
WO5737
100402
012702
010201
062701
712703
012704
060304

062702
023712

001007
123762

001404

002420

000076

000710
005552
005551
000002

89 014046

062702

000004

91
92
93
gg

014056
014056
014060
014062

103412
020403
103401
000757

96 01640664
97 0164070
gg 014076

004727
012737
000137

100
10%
102
103

011601
062701
012602
001343

90 014052

014102
014104
014110
014112

}8§ 014114

010523

020102

1$:

000776
005434

001003
116205

88 014044

WRTRKY:

003434
001414
001360

0164036
014040

020160
177777
012532
000766

000240

2%:
000003

SEQ 0052

JMP

WRTRKZ

:DON'T DESTROY LAST TRACK ON CYL 822.

MOV
MOV
MOV
MOV
DEC
BNE

#SECCU,R3
#32. . Ré
#-1.R2
R2,(R3)+
R4
28

SINITILIZE THE SECCU TABLE
:TOTAL 32 WORD MAX
*LOAD ALL LOCATION TO -1
:

001404

TST

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

ADD
CMP

BNE
CMPB

BNE
MOVB

48:

5¢:

6$:

106

:BR IF NOT DONE

PACK

6%
-(SP)
NUSTAB+8.,-(SP)
#BAD16,R2
SEC30
1$
#BAD18,R2
R2,R1
#510.,R1
#SECCU,R3
862 . .RG
R3, R4

#10,R2
FMTOPB+12,(R2)

38
FMTDPB+11,3(R2)
3%
2(R2),R5

MOV

RS, (R$)+

CMP

R1.R2

ADD

0 R2

;BAD SPOT FILE AVAILABLE AT ALL

:BR IF NOT
SCLEAR UP THE DUMMY RETURN ADDRESS
-USER BAD SECTOR TABLE
:R2 POINTER OF MFG BAD SPOT TABLE
*1F 18 BIT MODE CHANGE POINTER
:BR If 16 BIT MODE
;
“R1:

LAST ADDRESS OF

012702
012703
012704
022712

005434
005532
000037
177777

SORT1:

114 014140

021262

000002

113 014136

001451

*ADVANCE TO NEXT SET

SALL SPOT ARE CHECKED ?

5¢
RG,R3
4
28

‘BR IF IT IS
SEND OF SECCU TARIE
TREJECT THE PACK
*LOOPING BACK

JSR
MOV
JMP

PC,RESTRT
#-1,PACK
TABINT

: IMPROPER MFG INFORMATION
:RESET MFG FILE AVAILABLE FLAG
*AND START AGAIN

MOV
ADD
MOV
BNE

(SP),R1
#502. ,R1
(SP)+.R2
2%

:NEXT TABLE
‘ENDING OF THE TABLE
‘BEGINNING OF THE TABLE
*BR 1F NOT DUMMY ADD

:DONE

N ASCENDING ORDER

MOV
MOV
MOV
CMP

#SECCU,R2
NSECCU+62.,R3
#31. R4
#-1,(R2)

:TOP OF THE TAB.E
:BCTTOM OF THE TABLE
,uuTAL 32 ELEMENT SORT
1S THE TABLE EMPTY ?

(MP

(R2),2(R2)

N TH ELEMENT

BEOQ

THE FILE

*WORD STORAGE

BLO
CMP
BLO
BR

NOP

TABLE

SLAST ADDRESS OF THE TABLE
:
:BAD SPOT STARTS FROM THE STH WORD OF
:BAD SPOT ON THIS CYLINDER ?
:BR IF NOT
-ALSO, ON THE SAME TRK ?
‘BR IF NOT
:BAD SECTOR

SAND DELETES THE DUPLICATED ONES
0164116
014122
014126
014132

BAD SPOT

;
-TABLE ADDRESS

:THIS CODE SORTS THE BAD SECTOR TABLE ‘'SEC.1"

}8g

109
110
111
112

:LOAD THE BAD SPOT INTO SECCU TABLE IF ANY

69 013744
70
71
72
73
76
75
76
77
78
79
80
81

11-APR-80 13:01:23 PAGE 10-1

PBR IF 1T IS, QuUICK ExIT
:

N+1

TIMES

TH ELEMENT

)

138
139
140
1641
162
1643

146
145
146 014270
1647 014274

el
D
S sk
il
D
il
el
el
il
il
D
D el
D
ld
D
o
el el
—

—

NN
OO OO0
VUVIVIWAWMWMWANUIWAWD
= OOV
NO VWA= OOV
NO NS
N~ O

148 014300
01¢
014

177777
000002
000002
005532
177777

~no S~

MOV
ADD
MOv
cMP

1%:

WRTRK1:

005544
005546

005536

MOv
MOv

100000

000002

005550
040373

CODE

WRTRKA:

040373
005550

#SECCU,R3

CLR
CLR
CLRB

1$:

2%:

BR
(mPB
8tQ
8LO
TYPE
HALT

sADJUST

TOP POINTER

;DELET 2(RQ)

;BOTTOM OF THE TABLE
:BR IF NOT

;LOAD -1 TO TABLE BOTIOM
;RESTORE THE TOP POINTER

;DECREMENT ONE ELEMENT COUNT
sBR IF ALL DON:

"FLAG.START

;DONE

A NEW

SOFf Sw
RETRY

sCLEAR ERROR COUNTER

MWC,FMTDPB+4
#BUFP,FMTDPB+6

JRESTORE Ww(
sRESTORE BA

TRACK

;JERQO THE RETRY (OUNTER

FMTDPB+10

;RESTORE

SECTOR

UP WORD COUNT AND BUFFER ADDRESS

;END OF OPERATION ?
:BR IF NOT

#-1 ,NEXT
1%
JAHALT

JOTHERWISE SOMETHING WRONG trevsen
PB+10

cMp

ADD

SAME

sSWITCH N+1 ELEMENT TO N ELEMENT
sSWITCH N ELEMENT TO N+1 ELEMENT

*SORT THE REST ELEMENTS

Move
MOV

BEQ
8117
8EQ

:STORE N ELEMENT

6%
1%

TO SET

cMP
BNE
TYPE
HALT

;OTHERWISE, N > N+1

s INCREMENT THE TOP POINTER
;REACH THE BOTTOM ?
;BR ]F NOT
;DECR_MENT ONME SORT (OUNT
;BR IF ALL CONE
;RESET TOP PCINTER
;UPDATE BOTTOM POINTER
SEXIT JF TOP = BOTTOM

BR
NOP
CLR

6%:

:THIS

1272717

MOV

6%
#SECCU,RZ
n2,R3

SuB
cmMp
BEQ

005536

005536
005434

ADD
cMp

6%
" ,R2
R3,R2
1%

BNE
DEC
BEQ

005634
000002
005434

177777

#-1,SECCU+62.
(SP)+,R2
RG

DEC
8EQ

5¢:

001316
001344
005550
00135¢
045774

§2ECCU’62..R2

MOv
MOv

TH ELEMENT,

s TERMINATOR ?
:BR IF IT IS
sSAVE TOP POINTER

2(R2),(R2)+

BHI

005532

000002

$
#-1,(R2)
6%
R2,=(SP)
" ,R2

BR
(MP
BEQ

2$:

N~
—~
—~0WV

O =2 ONIO = =t

MOv

—_0

137

= AN
= NONO = NOONO —
NEWO
NN NNV NN
NSO VN

125
126
127
128
129
130
131
132
133
134
135
136

QO =2t ON

1264

0146164
0146170
016172
0% 174
01400
014204
014210
0146212
014220
014222
014224
014226
014232
014234
014236
014249
014242
014246
014252
014256
014260
014262
0146264

;DELET N+1

R 2),=(SP )
(
)
S P)+,2(R 2)

MOv
MOv

000002
000002

SEQ 0053

+BR ]F SMALLER

$
$

BLO
BEQ

AP~

014150
0146152
014156
014162

0146144
014146

MACRO v03.01 11-APR-80 13:01:23 PAGE 13-2

115
116
17
118
119
120
121
122
123

(o]

FORMAT

OO0O0CO—-0O0O0O0O0O0O0O0O0O

CIZRMLAO RMO5/3/2 FORMATTER

START Of

#BIT15,(RY)

”2.R1
4$
FRIDPB+10,
(RY)

WRTRKB
'3
JMHALT

sSTARTING SECTOR
;R1

POINTS TO THE BAD SECTOR TABLE

;END OF TABLE ?
JBR IF IT IS
sTHE BAD SECTOR HAS ALREADY ACCESSED ?
<BR IF NOT
sADJUST THE POINTER
:LCOPING SACK
sBAD SPOT = STARTING SECTOR ?
BRIF IT IS
¢BR IF START SEC < BAD SPO1
;OTHERWISE

SOMETHING WRONG

CIRMLAOQ RMOS5/3/2 FORMATTER
FORMAT

11-APR-80 13:01:23 PAGE

10-3

SLa 0054

PRI

- OO
OOMrn—
N —2 =
Sy
NVOOO

O00O
OWVNM—=O
OOV
BNV
WNWO
PO = )

001362

005536
100000

(MP
BEQ
8LO
BLOS
INC

WRTRKB:

001362

i
il sl Al

022711
001443

177777

sl
el i

015450

023702

001362

111102

(MP
BEQ

BLOS

BEQ

BLO
INC

100000

005536
000002
006232
005550

209

[AS1AS I, 1 N1, W1 U1 N1 ST S1, N1 ,N1, V1, VT, N1, V1, V1,V 9], ¢}
PORNURURUNRONUNRORUND
~ —t = ot d e
d e b —b
WNOWNE
W= O 0D NN
W —O

WRTRK(C:

000432

014600
014602

012737
052711
005302
000405

014604
014612

012737
013702

014616
014620
0146624
014630

006302
016203
113702
006302

177777
100000

177277

001362

006232
005550

005536

:
WRTRKF

#-1,(R1)
WRTRKD
(R1) ,R?
MAXSEC,R?
WRTRKD
WRTRKF
WRTRKD

MOV

MoV

NEXT,R2

sus
ASL
MOv

THE

LAST

SECTOR?

;MARK THE ACCESSED SECTOR
;70 SET UP WORD COUNT

JRESET

THE

;BR

sBR IF

LESS

JNEXT
sMARK

STARTING ADDRESS
THE ACCESSED SECTOR

02 ,R2

;CALCULATE THE WORD (OUNT
JENDSECTOR = NEXT = 2

FMTDPB+10.R2

; WORD CTR FOR SECTOR O TO ENDING SECTOR
:STARTING SECTOR

R2
WCTBL(R2)
,R3
R?2
WCTBL(R2)
,R3

;WORD

INDEX

;WORD INDEX

;WORD COUNT FOR SECTOR O YO STARTING SECTOR
;ADJUST ONE SECTOR

#-1,NEXT

JALL DONE

WRTRKH:

ASL
MOV
MOVB
ASL

;BAD SEC +1

MOv

MOv
MOv

FLAG

;70 SEE IF NEXT BAD SPOT IN TABLE
;BR ]F NONE
;UPDATE THE NEXT
;BAD SECTOR IS THE LAST SECTOR ?

MOV

WRTRKD:

AVAILABLE

JEX

JGET

BIS
DEC
BR

MFG FILE

;SE?}ART POINT

R3
R3.FMTDPB+4

005536

#-1,PACK
TABINT
HSET

BIS

sus
ADD
NEG

005544

WRTRK(

R2
R2,NEXT
#MBIT1S,(RD)

MOvB
ASL

006232
000402

;BR 1F LAST SECTOR
:BR JF LESS
:BR IF 1T IS
JNEXT = BAD ¢ 1
SNEXT STARTING ADDRESS

FMTDPB+10
s INCREMENT THE STARTING SECTOR
#BITIS5,(R1)¢
JMARK THE ACCESSED SECTOR
FMTOPB+10,
(R1)
JSTILL ON ANOTHER BAD SPOT ?
WRTRKB
;LOOP AGAIN
FMTOPB+10,MAXSEC
JJF START SECTOR > MAXSEC
1%
; IMPROPER MFG INFORMATION
PC,RESTRT
JSTART AGAIN AND REBUILD FMG FILE

Mov8e
(mMP

005536

;NEXT BAD SPOT

INCB
B1S
(mMPB
8EQ
(mPB
BLOS
JSR
JMP
JMP

18:

WRTRKD
WRTRKD

;UPDATE NEXT STARTING ADDRESS

BIS

MOV

000137

(R1),R2
MAXSEC,R2
WRIRKF

R2
R2,NEXT
#BIT1S5,(R1)

005550
100000
005550

005550

mMOvB

MOv

= bty

——t Q= O =
ONOMNWVO
== MO
S NNNSNANY
OWN=MNIW

il
—

"
"
»
~N

[eloleiNolololo Nolelels]

il o

D il el

i et

OO 0 O 0 0 O D00 00000000000
AD NN N~~~
NOWNE WA —=O 000N
N
WA = OO0 ~NO N
N

START Of

MACRO v03.01

WRTRKE

THE NEAGTIVE WORD COUNT

;LOAD THE WORD CTR INTO DPB
;LOAD THE

STARTING ADDRESS

#BIT15,(RY)
R

JMASK THE SECTOR
JPATCH FOR THE LAST
JPAT(H

#-1,NEXT

:NO MORE BAD SPOT
;LAST SECTOR

;WORD INDEX
<WORD CTR FOR THE ENDING SECTOR
sSTARTING ADDRESS

WRTRKH

MAXSEC,R2

WCTBL(R2),R3
agIDPB'IO.RZ

<WORD

INDEX

SECTOR

CIRMLAO RMOS5/3/2 FORMATTER

START

MACRO v03.01

FORMAT

229
230
231
232
%gz

0164632
014636
014642
014646
014650

166203
062703
005403
010337
000240

006232
000402

235 014652
236 014656
%gg 0164660

113702
006302
016237

005550
006132

005546

239 014666 + 112737
260 014676
012737
261 014702
012706

000163
014674
001100

005542
001124

262 0164706

263 014712
264 014716
265 014716
266 014722
267 0164726
268 016726
269 0164736
250 014740
251 014762
252 0164744
253 014746
254 014750
255 014752
256 014756
257 014760
258 014766
259 014770
260 014774
261 014776
ggg 015002

004037

005540
000774
005737
001775
100024
012737
004737
104010
104011
104012
104013
104014
104015
006737
022737
001403
005237
000744
005037
005037

SUB
ADD
NEG
MOV
NOP

005544

030622

005556
014754
017204

017304
000003

268 015026

269 015032
270 015034
27 015036
272 015042
273 015044
276 0150646
275 015056
276 015056
277 015064
278 015070
279 015076
280 015102
281 015106
282 015110
283 015112
284 015114

112737
012737
012706

004037

005540
000774
005737
001775
100131
113737
001005
013737
005237
005337
012737
004737
104010
104011
104012
104013

WRTRK2: MOVB
MOV
MOV

WWRTHD,FMTIDPB+2
:SET WRITE MEADER © DATA COMMAND IN TBL
#..SLPERR
:SET UP LOOP ON ERROR ADDRESS
#STACK, SP
SLOAD STACK POINT

001176

001344

001176
001344

000153
015014
001100

4$:

005562
001124

001176

1%
FMTDPB+ 16
28
48
#3%,$ESCAPE
PC,ERINDX
10
1
12
13
14
15
PC,LOP.CK

#3 RETRY

48
RETRY
%
$ESCAPE
RETRY

160 FORMAT A TRACK

*ADRS OF PARAMETERS - TBL
:WAIT FOR QUEUE IF FULL
*WAIT FOR COMMAND TO COMPLETE
‘BR IF NOT DONE
‘B8R IF NO ERROR
S;ESCAPE 10 3% ON ERROR
:SEE WHICH ERROR

:LOOP ON THE ERROR 2
*ERROR RETRY LIMIT ?
‘BR 1F REACHED
1COUNT THE ERROR
STRY AGAIN
*CLEAR ERROR ESCAPE ADDRESS
*CLEAR THE RETRY COUNTER

MOVB
MOV
MOV

WWCKHD,FMTDPB+2 :SET WRITE CHECK HEADER £ DATA COMMAND
#.,SLPERR
*SETUP LOOP ON ERROR ADDRESS
#STACK,SP
SLOAD STACK POINTER

FMTDPB
BR
ST
BEQ
BPL
MOVB
BNE
MOV
INC
DEC
MOV
JSR
EMT
EMT
EMT
EMT

*ADRS OF PARAMETERS - TBL
13
CWAIT FOR QUEUE IF FULL
FMIDPB+16
*WAIT FOR COMMAND TO COMPLETE
2%
‘BR IF NOT DONE
9%
‘BR IF NO ERROR
RM.REG*RMDA,SAVSEC
:GET THE SECTOR ADDRESS
3%
:BR IF NOT SECTOR 0
MAXSEC,SAVSEC
-RESTORE TO LAST SECTOR +1
SAVSEC
“INCREMENT TO LAST SECTOR 1
SAVSEC
SADJUST SECTOR TO THE ONE THAT FALLED
#118
. SESCAPE
::ESCAPE TO 118 ON ERROR
PC,ERINDX
:SEE WHICH ERROR
10
1
12
13

2%:

001346

RO, RMOS

CKTRK:

005554

001362
001346
001346
015376
017204

EMTDPB
BR
TSt
BEQ
BPL
MOV
JSR
EMT
EMT
EMT
EMT
EMT
EMT
JSR
CMP
BEQ
INC
BR
CLR
CLR
THE

1$:

001346

JSR

;CHECK

03062

005566

:WORD CTR FOR THE STARTING SECTOR
*ADJUST ONE SECTOR
*NEGATIVE WORD COUNT
:LOAD THE WORD COUNT INTO DPB
:DONE

FMTDPB+10,R2
:STARTING ADDRESS
R2
:LOCATE THE BUFFER ADDRESS
ADRTBL (R2) ,FMTDPB+6
:BUFFER ADDRESS

2%:

001344

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

SEQ 0055

WRTRKE: MOVB
ASL
MOV

18:

ggg

266 015006
267 015016
015022

D5
11-APR-80 13:01:23 PAGE 10-¢

JSR

TRACK JUST WRITTEN

RO, RMOS

160 CHECK THE TRACK JUST FORMATTED

IN TBL

CIRMLAQ RMOS5/3/2 FORMATTER

STARY QOF

FORMAT

285 015116
286 015120
287 015126
288 015130
289 015134
290 015136
291 015140
292 015142
293 015146
296 015150
295 015156
296 015162
297 015170
298 015174
299 015176
300 015202
301 015210
302 015212

303 015214

304 015216
015216
305 015220
306 015226
307 015232

104014
032737
001005
033727
130620
001001
104016
005737
001413
012737
004737
012737
004737
104017
005037
032737
001002
104024

040000

001316
015622
020570
100000
021416
001176
040000

005237
000137
005737
001432
022737
001403
005237
000625
123737
001417
004737
005037
000614
004737
022737

001316
014666
001316
)
000002

005237
000137
005037

001344
015026
001176

337 0156410

001176
001410

005572

012737

001404

6%:

322
323
324
325
326
327
328
329
330
331
332
333
334
335
336

338 015612
339 015416
340 015422

48:

000401

308 015234
309 015242
310 015246
311 015252
312 015254
313 015260
314 015264
315 015266
31¢ 015272
317 015276
318 015300
319 015304
320 015306
015320
015324
015330
015334
015336
015344
015346
015352
015354
015362
015364
015370
015374
015376
015402

005570

005576

104020
013701
113737
006301
016137
013701
005737
100404
013701
162701
006301
016102
113701
006301
166102
005402
010237

321 015312

MACRO v03.01 11-APR-80 13:01:23 PAGE 10-5

001346
001346

006132
001362
005536

005550

7%:

005546

005536
000002

8$:

006232
905550
006232
001350

177376

005544
9% :

001316

005550

10%:

017530
001316

017304
000003

001344

14
#WCE ,RM.REGHRMCS2
;WRITE CHECK ERROR 2
43
:BR'IF SET
RM.REG*RMERY,
(PC)+
;CHMECK FOR DATA ERRORS
DCK'OPI'DTE'HMCRC!'HCE'FER
:DATA ERROR BITS
43
:BR IF SET
16
SOF $W
;RETRYING THE SECTOR ?
31
:BR IF NOT
#128 ,8ESCAPE
:;ESCAPE TO 128 ON ERROR
PC,RECORD
:RECORD THE BAD SPOT
#BiT1S,HEADX
:RESET THE USER BIT
PC,RESET
*RESET THE HEADER BITS
17
$ESCAPE
:RESET ESCAPE ADDRESS
#ERR,RM.REG+RMDS
;DATA ERROR ?
6$
:BR IF IT IS
24

EMT
MOV
MOVB
ASL
MOV
MOV
TST
BM]
MOV
SUB
ASL
MOV
MOVB
ASL
SUB
NEG
MOV

20
SAVSEC ,R1
JFAILING SECTOR ADDRESS
SAVSEC.FMTDPB+10
;SECTOR ADDRESS
R1
;SETUP INDEX TO ADDRESS WORDS

ADRTBL(R1) ,FMTDPB+6
BUFFER ADDRESS FOR FAILING SECTOR
MAXSEC,R1
;R1 ENDING SECTDR #
NEXT
*WHOLE TRACK DONE ?
8$
‘BR IF IT IS
NEXT R
JLOAD CURRENT ENDING SECTOR
02 ,Ri
SADJUST TWO SECTORS
R1
:WORD INDEX
WCTBL(R1) ,R?
;WORDCTR FOR ENDING SECTOR
FMTDPB+10.R1
:STARTING ADDRESS
R1
:WORD COUNT
WCTBL(R1),R2
;WORD CTR FOR STARTING SECTOR
RO
R2, SAVWC
:SAVE THE WORD COUNT

INC
JMP
ST
BEQ
CMP
BEQ
INC
BR
C(MPB
BEQ
JSR
(LR
BR
JSR
CMP

SOF SW
:INDICATE THAT A RETRY IS IN PROGRESS
WRTRK?
JREFORMAT ERROR SECTOR
SOF SW
:RETRY IN PROGRESS ?
12%
:BR IF NOT
#2,S0FSW
JSEE IF LAST RETRY
10§
:BR IF IT IS
SOF SW
- INCREMENT RETRY COUNT
1%
*READ AGAIN
MAXSEC,FMTDPB+10
;SEE IF LAST SECTOR ON THE TRACK
128
:BRIF IT IS
PC,SCAWC
JSETUP TO CHECK REMAINING SECTORS ON THE
SOF SW
SCLEAR RETRY COUNTER
18
SFINISH CHECKING THE TRACK
PC,LOP.CX
*CHECK FOR LOOP ON ERROR
#3 RETRY
*ERROR RETRY REACHED ?

INC
JMP
(LR

RETRY
1$
$ESCAPE

B8R

MOV

001316
001362

EMT
BIT
BNE
BIT
.WORD
BNE
EMT
3
BEQ
MOV
JSR
MOV
JSR
EMT
CLR
BIT
BNE
EMT

1$:

BEQ
128

SEQ 0056

: CONTINUE

#-258.,FMTDPB+4 :WORD COUNT FOR 1 SECTOR

12¢

(BR IF IT IS

SCOUNT THE RETRY
:DO THE WRITE CHECK AGAIN
)
SCLEAR THE ERROR RETURN ESCAPE ADDRE3S

TRACK

CIRMLAO RM05/3/2 FORMATTER

START

FORMAT

361 015626

001344

CLR

RETRY

005737
100402

005536

1ST
BM]

NEXT
.46

#B1T1,3SWR

005037

g:g 015444

000137

014320

367 0156450

032777

000002

348 015456
369 015660
350
351

352 015464
353 0156472

354 0156476
355 015502
356 015504

357
358
359
360
361
362
ggz

001402
000137

012737
012704

022714
001414
032714

001316

(LR

JMP

040000
005434

BIT

BEQ
JMP

1$
WRTRK X

001410

18:

MOV
MOV

#BIT14,HEADX
#SECCU,RG

2%:

040000

365 015536
366 015542

004737
000402

017426

ggg 015544

000137

013676

WRTRKA

HSET:

177777

001006
052714
111437
004737
062704
000761
000240

SOF SW

163476

013676

015510
015512
015516
015522
015526
015532
015534

367

F
5
11-APR-80 13:01:23 PAGE 10-6

005037

42 015632

363 0156436
344 015642

MACRO v03.01

040000
001346
021416
000002

3%:
6$:
WRTRKZ:

370
371

SEQ 0057

;CLEAR THE RETRY COUNTER

;CLEAR

THE SOF TWARE RETRY COUNT

;WHOLE TRACK DONE ?
;BRIF IT IS

;LOOP ON CURRENT TRACK ?

:BR IF NOT
;START AGAIN ON THE SAME TRA(K
;RESET THE HEADER WORD OF ALL MFG
;DEFINED BAD SECTOR

;RESET THE MFG BIT OF THE 1ST HEADER WORD
;TABLE FOR BAD SECTOR ON CURRENT TRACK

(MP
BEQ
BIT

#-1,(R&)
4“3
#BIT14, (R&)

3
#BIT14,(R4)
(R&),SAVSEC
PC,RESET
n2,RG
28

:BR IF SO
:MASK THE SECTOR TABLE
;SECTOR ADDRESS
;RESE7 THE HEADER
: INCREMEN] (HE TABLE POINTER
;LOOPING BACK
;ALL DONE

JSR
BR

PC,TRKTST
HDRE AD

;GET UPDATED TRACK AND CYLINDER ADDRESSES
;RETURN HERE IF DONE

JMP

WRTRKX

BNE
BIS
MOVB
JSR
ADD
BR
NOP

;END OF TABLE ?
:BR_If SO
;HAS THE SECTOR BE ASSCESSED ?

;AND

DO QUICK

CHECK

DISKk

;CONTINUE WITH THE FORMAT

:THIS CODE MAKES SURE EACH CYLINDER FORMATTED CONTAINS THE
;PROPER CYLINDER ADDRESS. THE PROGRAM IS LOOKING fOR

g;g

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

374
375
376
377
%;g

015550
015554
015556
015564
015566

005737
001022
022737
001002
000137

380
381
382
383
384
ggz

015572
015574
015600
015602
015610
015616

000241
006037
103003
052737
013737
000137

387 015622
388 015626

005737
003003

390 015634

000402

389 015630

001320

066666

001340

016342
001340
100000
001340
013462
001320

104401

037537

104401

037600

015642

013746

001222

015646
0156,0
015651

104403
001
000

391 015636
392 015642

HDREAD:

001340
001342
18:

2%:
38:

TST
BNE
CMP
BNE
JMP

MODE
19
#066666 ,PATA
.46
$EOP

cLe
ROR
BC(C
BIS
MOV
JMP

PATA
.+10
#BIT15,PATA
PATA,PATB
ST1

:CHECK MODE ?
:NO
;PATTERN HAS BEEN ROTATED TO WORST CASE

SEXIT
;CLEAR THE CARRY BIT
;ROTATE PATTERN
;SET SIGN BIT IF CARRY=
;FROM BIT 0
;SET BOTH PATTERN
;CONTINUE THE VERIFY OPERATION

TS7
BGT
TYPE

MODE
2s

MSQVER

;'FORMAT', 'CHECK' OR VERIFY MODE ?
;BR IF 'VERIFY ONLY' MODE
;TYPE 'STARTING QUICK VERIFICATION'

TYPE

5¢

JMSVER

;TYPE

MOV

DRIVE,=-(SP)

::SAVE DRIVE FOR TYPEOUT

TYPOS
BYTE
.BYTE

1
0

.60 TYPE--0OCTAL ASCII
;:TYPE 1 DIGIT(S)
: ;SUPPRESS LEADING ZEROS

'STARTING VERIFICATION'

;:TYPE DRIVE NUMBER

START

FORMAT

393
396
395
396
397
398
399

015652
015656
015662
015666
015672
015676
015702

106401
005037
004737
004737
012700
012701
010137

001205
001356
017352
017556
045774
106174
005546

MACRO v03.01

400
401
602
403
4046
405
:8?

015706
0157164
015722
015726
015732
015734
015742

112737
013737
005037
005737
003005
012737
005237

000173
001354
001322
001320

005542
005544

177776
001322

005544

5%:

408
#09
410
611
612
413

015746
0157564
015760
015762
015766
015770

012737
004037
005540
000774
005737
001775

0157646
030622

001124

6$:
7%:

616 015774

012737

418 016006

104010

2}? 015772
417 016002

005556

100044

004737

016170

017206

104011
104012
104013
104014

424
425
426
427
628

016020
016026
016030
016036
016040

032737
001426
022737
001411
032737

040000

005572

000200

005574

000400

005574

430
431
632
433
434

016050
016056
016060
016062
016066

022737
001406
104021
005037
104022

100000

005622

4%2 016070
4

637
438
639
6640
441
662
463
664
445
429

004737

016074
016076
016102
016104
016110
0161164
016120
016126
016130
016132

000240
005737
001714
052711
011037
011137
023737
0014602
104023
000416

448 016134
649 016140

005737
003651

001176
017304

;SET UP-READ HEADER & DATA (OMMAND
:SETUP WORD FOR VERIFY ONLY MODE
;SETUP MULT]-SECTOR READ FLAG
sVERIFY MODE ONLY ?
:BR IF YES
.SETUP WORD COUNT FOR QUICK VERIFY
;SETUP SINGLE SECTOR READ

MOV
JSR
FMIDPB
BR
TST
BEQ

¥.,SLPERR
RO,RMOS

7%
FMTIDPB+16
8$

;SETUP LOOP ON ERROR ADDRESS
;G0 READ HEADER
;ADRS OF PARAMETER TBL
JWAIT IF QUEUE IS FULL
;WAIT FOR COMMAND TO COMPLETE
:BR |F NOT DONE

MOv

#138,SESCAPE

;.ESCAPE

;ORIVE OFFLINE

10%:

140000
045770
045764
045764

001320

11$:
065770

12%:

118

PC,ERINDX

;BR IF NOT ERROR
TO

13% ON ERROR

;SEE WHICH ERROR

EMT
EMT
EMT
EMT

1
12
13
14

;PERSISTENT DRIVE UNSAFE ERROR
sUNCORRECTABLE MASSBUS PARITY ERROR
s SOF TWARE TIMEOUT
;DRIVE UNSAFE ERROR

BlT
BEQ
CMP
BEQ
BIT

NERR ,RM_REG+12
11$
WHCE ,RM_REG+14
9%
#HCRC ,RM.REG+14

ANY DRIVE ERRORS ?
;BR IF NO
;]S IT A HEADER COMPARE ERROR
:BR IF YES
;]S IT A HEADER CRC ERROR ?

BNE

:BR

(Mp
BEQ
EMT
CLR
EMT
JSR

001322

;CR=LF
;CLEAR HEADER CHECK ERROR INDICATOR
:6C SET UP DRIVER TABLE
;60 SET UP HEADERS [N CORE
;GET STARTING ADDRESS OF EXPECTED HEADERS
:GET STARTING ADDRESS OF RECIEVED HEADERS
sSET UP BUFFER ADDRESS

#ROHD ,FMTDPB+2
MWC,FMTDPB+4
SNGSEC
MODE
6%
N-2,FMTDPB+4
SNGSEC

JSR

9%:

JSCRLF
HEDERR
PC,SETTBL
PC,SETHDR
#BUFP,RO
#BUFV,RI
R1,FMNTDPB+6

SEQ 0058

MOvB
MOV
CLR
187
BGT
MOV
INC

EMT

016010
016012
016014
016016

001005

TYPE
(LR
JSR
JSR
MOv
MOV
MOV

BPL

001176

619
420
621
25%

429 016046

8%:

6
5
11-APR-80 13:01:23 PAGE 10-7

#BSE ,RM.REG+42
10%
21
SESCAPE
22

YES

BAD SECTOR ERROR ?
:BR IF YES
;CLEAR THE ERROR ESCAPE

ADDRESS

PC,LOP.CK

:CHECK FOR LOOP ON ERROR

NOP
157
BEQ
BIS
MOV
MOv
(MP
8tQ
EMT
BR

SNGSEC
5%
#MF'UF, (RY)
(RO) ,RBUF ¢4
(R1),RBUF
RBUF ,RBUF +4
12%
23
13%

sALREADY READING SINGLE SECTORS ?
:BR IF NO
sSET MFG AND USER SECTOR GOOD BITS
;GET EXPECTED CYLINDER HEADER
;GET RECIEVED CYLINDER HEADER
JSEE IF CYL READ EQUALS (YL EXPECTED
:BR JF CyL CORRECT

187
BLE

MOCE
17%

SVERIFY ONLY MODE
.BR 1t NO

L/~

CIRMLAO RMO5/3/2 FORMATTER

CIRMLAD RM0OS/3/2 FORMATTER

START

FORMAT

650 016162
651 016150

016037
016137

453 016164
:gg 016166

001405
104007

456 016170
:gg 0161764

004737
000137

659
460
661
662
463
664
665
666
667
468
469
670
471
472

016200
016202
016210
016212
016216
016222
016226
016230
0162364
016236
016242
016246
0162564
016256

000240
123737
001412
105237
062700
005737
001252
062701
000723
105037
105237
123737
101003
004737

675
476
677
478
479

016264
016272
016276
016300
016304

113737
005737
001407
005337
023737
002730
000406
005237
023737
101321
004737
000137

652 016156

:;2 016262

480
481
482
483
484
485
ng
4

016312
016314
016316
016322
016330
016332
016336

023737

000603

000002
000002

045766

MACRO v03.01

H
S
11-APR=-80 13:01:23% PAGE 10-8

045772
045766

MOV
MOV

045772

017304
016342
005550 ,001362

RBUF+J,RBUF+6
15¢
7

;BR IF

13%:
14%:

JSR
JMP

PC,LOP.CK
$EOP

;CHECK FOR LOOP ON ERROR
;END OF VERIFY

15%:

NOP
(MPB
BEQ
INCB
ADD
18T
BNE
ADD
BR
(LRB
INCB
(MPB
BHI
JSR

001006

16%:
001332

017756
001334
001400

005552
005552
005552
005552

005551

17%:

001326

017644
015672

18%:
19%:

567
568

;GET EXPECTED TRACK/SECTOR HEADER
;GET RECIEVED TRACK/SECTOR HEADER

(MP

BEQ
EMT

005550
001006
001322

005550
005551
005551

2(RO),RBUF +6
2(R1) RBUF+2

SEQ 0059

.SBTTL

:1S TRACK AND SECTOR CORRECT ?

FMTOPB+10,MAXSEC
16%
;BR

YES

:DONE WITH ALL SECTORS
YES

FMTDOPB+10
#516.,R0
SNGSEC

;UPDATE SECTOR ADDRESS
;ADJUST POINTER TO NEXT EXPECTED HEADER
;READING ONE SECTOR AT A TIME ?

;60 READ NEXT TRACK

MOvB
TST
BEQ
DEC
CMP

BEGTRK ,FMTDPB+11
;GET BEGINNING TRACK ADDRESS
WRAP
;SEEKING FROM HI TO LO CYLINDERS ?
18%
:BR IF NO
FMTDPB+12
;DECREMENT CYLINDER ADDRESS
FMTDPB+12 ,ENDCYL
;DONE WITH VERIFY ?
14%
sBR IF YES
19%
FMTDPB+1?2
: INCREMENT CYLINDER ADDRESS BEING CHECKED
FMTDPB+12,ENDCYL
;DONE WITH VERIFY ?
149
;BR 1F YES
PC,UPDCYL
;UPDATE CYLINDER ADDRESS IN BUFFER
31
;G0 READ NEXT CYLINDER

BLY
BR
INC
(MP
BHI
JSR
JMP
END OF

7%
;B8R IF YES
#516.,R1
;ADJUST POINTER TO NEXT RECIEVED HEADER
11%
;60 COMPARE NEXT SECTOR
FMIDOPB+10
sSTART AT SECTOR 0
FMIDPB+11
s INCREMENT TRACK NUMBER
FMTDPB+11,ENDTRK
JWAS IT LAST TRACK ?
17%
;BR IF YES
PC,UPDTRK
;UPDATE TRACK ADDRESS IN BUFFER

PASS ROUTINE

."tl.'...I..t"'t""""""ttttttttltt'!lt'l"lttt'tt'ttt'l'

'INCREHENI THE PASS NUMBER ($PASS)
;*1F THERES A MONITOR GO 10 IT

:+1F THERE ISN'T JUMP TO DONE
016342
016342

016346
016350
016354
016360
016362

016366
016376
016402
016406

005737

001537
005037
004537
003434
004737

112737

112737
004037
005540

$EOP:
1%:

001406

001344
020710
021050

000020

000143
030622

005541

005542

2$:

1ST

EDIT

MCvB

#20,FMTDPB#1

BEQ
8%
(LR
RETRY
JSR
RS,SORT?2
USTAB+8.
JSR
PC,TEXT

MOvB
JSR
FMTDPB

;UPDATE LAST TRA(K ?

:BR IF NO
:CLEAR RETRY COUNT
:SORT THE USTAB IN ASCENDING FORM
s TABLE ENTRY POINT
sSET UP THE BUFFER

;16 BIT MODE

NSETEMT,FMTDPB+2
;SET FORMAT (OMMAND
RO,RMOS
.CALL THE DRIVER

CZRMLAO RM05/3/2 FORMATTER
END OF PASS ROUTINE

016410
016412
016416

000774
005737
001775

016420
016626
016434
0164640
016446
016454
0166462
016464
016470
016472
016474
016500
016502

012737
113737
105037
012737
012737
112737
000240
004037
005540
000773
005737
Q01775
100061

016504
016512
016516
016520
016522
016524
016526
016530
016532
01652«
916540
016546
016550
016554
016562
016564
016572
016576
016602
016610
016614
016616
016624
016632
016640
016644

012737
004737
104010
104011
104012
104013
104014
104015
000240
005237
022737
101345
000137
122737
003431
113737
001003
012737
113737
113701
006301
016137
012737
066137
005037
000706

016646
016652
016654
J16656
016662
016664
016670

005737
003007
001403
104401
000405
10464401
000402

037633

016676

104401

037723

016672

016702

016706
016710

MACRO v03.01

B8R
1871
BEQ

2%
FMTOPB+16
3%

MOV
MOvVB
(LRB
MOV
MOV
MOVB
NOP
JSR
FMTDPB
BR
187
BEQ
BPL

#822. ,FMTDPB+12 ;CYLINDER ADDRESS
LSTRK,FMTDPB+11 ;TRACK NUMBER
FMTOPB+10
JSECTOR 0
#-<258.¢32.>,FMTDPB+4
JWORD COUNT
#BUFP ,FMTDPB+6
;BUFFER ADDRESS
FWRTHD ,FMTDPB+2 ;WRITE HEAD AND DATA (OMMAND

005544

005546
005542

005556

5%:

001176

6%:

001344
000003

001344

017162
000037

005550

005566

001346

000037
001346
001346

001346
005550

006132
157700
006232
001344

005546
005544
005544

001320

3%
005552
005551

030622

016532
017204

7%:

8%:

037656

9% :

104401

037700

10%:

013746

001126

104405
005637

001126

10-9
SEQ 0060

005556
001466
001324
005550
157700
045774
000163

11-APR-80 13:01:23 PAGE

11%:

;LOOP IF QUEQU FAILS
JALL DONE ?
;BR If NOT

RO,RMOS

;CALL THE DRIVER

4%
FMTDPB+16
5%
8%

;LOOP ]JF QUEUE FAILS
JALL DONE ?
;BR IF NOT
;EXIT IF NO ERROR

#63 ,9ESCAPE
PC,ERINDX
10
1
12
13
14
15

JERROR ESCAPE ADDRESS
JERROR INDICATOR RT,

MOV
JSR
EMT
EMT
EMT
EMT
EMT
EMT
NOP
INC
{MP
BHI
JMP
(MPB
BLE
MOvB
BNE
MOV
Move
MOvB
ASL
MOV
MOV
ADD
CLR
BR

RETRY
;
#3,RETRY
;OVER 3 TIMES ?
4%
;BR IF IT 1S
REJCT3
JWRITE THE LAST TRACK FAILS THREE TIMES
#31.,FMTDPB+10
;LAST SECTOR ?
8%
;BR IF ALL SET
RM_REG+RMDA,SAVSEC
JFOUND THE FALLING SPOT
7%
:BR IF NOT O
#31.,SAVSEC
;THE LAST SECTOR IS A BAD SECTOR
SAVSEC,FMTIDPB+10
JLOAD THE NEW STARTING SECTOR
SAVSEC,R1
JLOAD THE WORD CTR AND BUFFER
R1
JWORD INDEX
ADRTBL(R1) ,FMTDPB+6
;BUFFER ADDRESS
#-<258.+32.> ,FMIDPB+4
;WORD COUNT
WCTBL(RY) ,FMTDPB+4
JWORD COUNT
RETRY
JRESET THE RETRY FLAG
4%
:BR BACK

1ST
BGT
BEQ
TYPE
BR
TYPE
BR

MODE
10%
9%
JMECHMPY
11%
JACCMPT
11%

JFORMAT, CHECK OR VERIFY MODE
;BR 1F VERIFY ONLY MODE
:BR IF CHECK
JFORMAT COMPLETE

TYPE

NUMERR

;TOTAL ERRORS

T1YPE

MOV

fYPDS
(LR

JMVCMPT

‘ERTIL,-(SP)
SERTTL

JCHECK COMPLETE

SVERIFY COMPLETE

;:SAVE SERTTL FOR TYPEOUT

;.60 TYPE--DECIMAL ASCI! WITH SIGN
JCLEAR THE ERROR ACCUMULATOR

CZRMLAO RM0S5/3/2 FORMATTER

END OF

PASS ROUTINE

0167164
016720
016724
016726
016732
016734
016740
0167646
016750
016752
016754
016756
016760
016762
016766
016770
016772
0167764
016776
017000
017002
017002

104401
005737
001030
005337
000240
005237
042737
005327
000001
003013
012737
000001
016750
013700
001405
000005
004710
000240
000240
000240

000042

017006
017012
017014
017020
017022

105737
001405
005737
001427
000137

001150

576 017026

032777

000001

581 017046
582 017052

012706

001100

$GET4L?: MOv
BEQ

aNL2 RO

$ENDAD:

PC, (RO)

::GET MONITOR ADDRESS
;;BRANCH ]F NO MONITOR
;;CLEAR THE WORLD
;.60 TO MONITOR

:
DONE

013462

585 017060
586 017066
ggg 017074

012737
012737
000137

133331
133331
013462

582 017100
590 017104
23; 017110

005237
005237
000775

001216
001214

593 017112
994 017116
595 017122

104401
104401
104401

001205
040354
040373

gg; 017130

000137

007020

599
600
601
602

104401
113737
104025
104401

001205
005551

040373

MOV

.WORD
$EOPCT

RESET
JSR
NOP
NOP
NOP

%PC)*

%PC)‘,O(PC)O

$DOAGN

13%:

14%:

001340

001342-

;2 SAVE ROOM

1518

$AUTOB

::g~~1~6 IN AUTO MODE

BIT
BNE
JMP
MOV

18T
BEQ
JMP

*ARE ALL DRIVES DONE ?
‘BR IF
*NEXT
#SWO,aSWR
14%

#STACK,SP
MODE

YES

DRIVE

FROM APT

DEVICE

MAP

;SEE IF SWR O SET
SET

sBR IF
+ASK

FOR NEXT

;RESET

STACK

DRIVE

POINTER

15¢
ST

;s CHECK MODE ?
JYES
;D0 THE FORMAT OR CHECK AGAIN

MOV
MOv

JMP

”33 331,PATA
#1133 331,PAT8B
ST1

INITIATE PATTERN
;INITIATE PATTERN
.LOOP ON CHECK

169%:

INC
INC
BR

$PASS
$TESTN
17%

:GARBAGE CODE FOR APT

REVECT:

TYPE
TYPE
TYPE
HALT
JMP

SCRLF

BEGINZ

TYPE
MOVB

FMIDPB+11,DS.TRK

TYPE

JMHALT

15%:

17%:

001366

;. LOOP?

s sRETURN

1ST

162120

::DON'T ALLOW A NEG. NUMBER

o(PC)+
DONE

BEQ

;RESTORE THE PASS COUNT

JMP
.WORD

BEQ
JMP

001320

000137

017134
017140
017146
017150

I YES
;sRESTORE COUNTER

010466

011342

000000

$DOAGN

001402

ggz 017054

596 017126

. INCREMENT THE PASS NUMBER

$RTNAD:

001002
000137
005737
001402

$PASS
#100000, $PASS

DEC
NOP
INC
BIC
DEC
$EOPCT: .WORD
BGT

$DOAGN:

570
571
572
573
2;2

,STARS

SEQ 0061

¢ALL ASSIGNED DEVICE DCNE
;70 FORMAT NEXT DRIVE

12%:

001216

10-10

DEVMP
DONE
$PASS

$ENDCT:

569 017004

580 017042

TYPE
187
BNE

001216

001216
100000

11-APR-80 13:01:23 PAGE

037753
001402

000137
017006

577 017034
g;g 017036

MACRO v03.01

REJCTZ:

EMT

LMESG4

JMHALT

SCRLF

s TRACK

NUMBER

fOR

ERROR

LOG

CZRMLAO RMOS5/3/2 FORMATTER
PASS ROUTINE

603 017156
282 017156

000000
000137

606
607
608
609
g}?

104401
104401
104401
000000
000137

017162
017166
017172
017176
017200

HALT
JMP

007020

001205
062126
040373

REJCT3:

007020

612

.SBTTL

5
10-11

SEQ 0062

BEGINZ

TYPE
TYPE
TYPE
HALT
JMP

JOCRLF
LMESG17
JMHALT

BEGINZ

R R R

R R R AR

SUPPORT SUBROUTINES

.‘."Q"tl""...t""'t""""'t"t'tI.'ttltt"!".t'tt'l"'ttt"t

¢ THIS ROUTINE

017204
017206
017210
017214
017216
017220
0172264
017226
017230
017234
017236

010146
005001
033727
060006
001025
033727
010000
001020
033727
006000
0010132

631 017240

033727

633
634
635
636
637
638
639
640
641
642
663
644
g:g

001006
033727
000020
001001
005201
005201
005201
005201
005201
006301
060166
012601
000207

632 017244

0172646
017250
017254
017256
017260
017262
017264
017266
017270
017272
0172764
017300
017302

001400

ERINDX: MOV
CLR
BIT
LWORD
BNE
BIT
.WORD
BNE
8l7
.WORD
BNE

005556
005556
005556

005556
005556

BIT

1$:
2%:
3%:
L$:
5%:

000002

032777
001402
000177

001000

653 017320
654 017324

005037
033727

001176
(05556

656 017332

001004

658 017342
659 017344

BNE
BIT
.WORD
BNE
INC
INC
INC
INC
o+
INC
ASL
ADD
MOV
RTS

THE

ERROR

TYPE

R1,-(SP)
s STORE R1
R1
:CLEAR R1
FMIDPB+16,(PC)+
;CHECK ERROR TYPE
BIT14!BIT13.BIT2!BIT1
;DRIVE OFFLINE
5%
;BR _IF OFFLINE
FMTIDPB+16,(PC)+ ;CHECK ERROR TYPE
BIT12
sDRIVE PERSISTENTLY UNSAFE
3
:BR _1F UNSAFE
FMTDPB+16,(PC)+ ;CHECK ERROR TYPE
BIT17'BIT10
;UNCORRECTABLE MASSBUS PARITY ERROR ?
3%
;BR IF PARITY ERROR

FMTDPB+16, (PC)+ ;CHECK ERROR TYPE

B1T09!B1T08

2%
FMTOPB+16,(PC)+
BITO04
,
1%
R1
R1
R1
R}
R1
R1
R1,2(SP)
(SP)+,R1
PC

sSOFTWARE TIMEOUT ?

;BR IF YES
;CHECK ERROR TYPE
;DRIVE UNSAFE ERROR ?
sBR IF YES
s INCREMENT THE RETURN INDEX
: INCREMENT THE RETURN INDEX
s INCREMENT THE RETURN INDEX
; INCREMENT THE RETURN INDEX
: INCREMENT THE RETURN INDEX
;DOUBLE THE INCREMENT
;DEVELOP THE RETURN ADDRESS
;RESTORE R1
;RETURN

;ROUTINE TO CHECK FOR LOOP ON ERROR

649 017304
650 017312
gg} 017314

657 017334

.WORD

22;

655 017330

DETERMINES

072002

032737
001402
000137

161642

161604

004000
016342

LOP.CK: BIT
BEQ
JMP

#SW09,3SWR
1%
ISLPERR

1%:

$ESCAPE
¢CLEAR THE ERROR ESCAPE ADDRESS
FMTOPB+16,(PC)+
CHECK FOR 'FATAL' ERROR

CLR
BIT

.WORD

BIT14!BIT{3'BIT121BITI0'BITO1

BIT

NWLE ,RM.REG*RMER]

BNE

005574
2%:

:LOOP ON ERROR ?
;BR If NOT
;GO TO THE LOOP ON ERROR ADDRESS

BEQ
JMP

;*FATAL® ERROR BITS

:BR IF NOT,

3%
$EOP

:BR 1F NOT
; TERMINATE THE FORMA1

;WRITE LOCK ERROR ?

e
o

oocoooo

Velo - ENTo
JV,

613

620
621
622
623
624
625
626
627
628
629
630

K
11-APR-80 13:01:23 PAGE

>
&

END OF

MACRO v03.01

CIRMLAD RM0S5/3/2 FORMATTER

SUPPORT

SUBROUTINES

660

gg; 017350

MACRO v03.01

000227

3%:

ggz
665
666
667
668
669
670
671
672
g;z

017352
017360
017364
017372
0176400
017404
0176412
017420
017424

113737
105037
013737
012737
105037
113737
013737
005037
000207

001222
005543
001356
045774
005550
001334
001330
005556

005540

;RETURN

MOVB ,
CLRB
MOV
MOV
CLRB
MOVB
MOV
CLR
RTS

DORIVE,FMTDPB
:SET UP DRIVE #
FMIDPB+3
;CLEAR HIGH ORDER ADRS BITS
MWC,FMTDPB+4
:LOAD UP WORD COUNT
#BUFP ,FMTIDPB+6
;LOAD UP CURRENT ADRS
FMTDPB+10
:SET SECTOR TO 2ERO
BEGTRK,FMTDPB+11
;SET UP STARTING TRK ADRS
BEGCYL ,FMTOPB+12
;SET UP STARTING (YL
FMTOPB+16
:CLEAR RM STATUS
PC
;RETURN FROM SETUP

;1T 1S ENTERED AFTER EVERY TRK OPERATION

TRKTST:

017426
017432
017440
017442
017446

105237
123737
101003
004737
000425

005551
005551

685 017450
686 017456

113737
005737

001334
001400

005337
023737

005552
005552

001326

005552
005552

001326

687 017462

688 017464
689 017470

001407

017476
017500
017502
017506
017514
017516

002413
000406
005237
023737
101004
004737

697 017522
ggg 017526

062716
000207

001332

017756
005551

1$:

FMTDPB+ 11
: INCREMENT TRACK NUMBLR
FMIDPB+11,ENDTRK
:LAST TRACY{TO BE FORMATTED ON THIS CYLINDER ?
1%
:BR IF YES
PC,UPDTRK
;UPDATE TRACK ADDREPS IN BUFFER
X3
JEXIT

MOVB
18T

BEGTRK,FMTDPB+11
;GET BEGINNING TRACK ADDRESS
WRAP
;SEEKING FROM H] TO LO CYLINDER ?

DEC
CMP

FMTDPB+12
;DECREMENT CYLINDER ADDRESS
FMTDPB+12,ENDCYL
:DONE WITH FORMATTING ?

017644

3%:

BLT
BR
INC
CMP
BH]
JSR

000002

4%
5$:

ADD
RTS

2s:

INCB
CMPB
BHI
JSR
BR

BEQ

700

b3 3

:BR IF NO

5%
:BR IF YES
3$
FMTDPB+12
; INCREMENT CYLINDER ADDRESS
FMTDPB+12,ENDCYL
;DONE WITH FORMATTING ?
5%
:BR IF YES
PC,UPDCYL
;UPDATE CYLINDER ADDRESS IN BUFFER

N2, (SP)
PC

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

;THIS ROUTINE SETS UP WC & BA FOR REMAINING SECTORS

;8;

:AFTER A WRITE CHECK ERROR
017530
017536
017544
017550

;8g 017554

013737
062737
005237
005037

0006207

001350
0010046
005550
001316

005544
(05546

SCAWC:

MOV
ADD
INC
CLR

RTS

709
710

SAVWC ,FMTDPB+4
#516. ,FMTDPB+6
FMTDPB+10
SOFSW
PC

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

;RETURN TO COMPLETE TRK FORMAT

;THIS ROUTINE SETS UP THE CYLINDER ADRS,

;};

713
714
715
716

RTS

SEQ 0063

:THIS ROUTINE CONTROLS THE DISK ADDRESSING AND TOTAL TRK COUNT

678 017426

702
706
705
706

SETTBL:

005544
005546
.
0055%1
005552

8;?

690
691
692
693
6946
ggz

;THIS ROUTINE SETS UP THE INPUT TABLE FOR THE DRIVER ROUTINE

675

679
680
681
682
ggz

11-APR-80 13:01:23 PAGE 10-12

FORMAT BIT,

TRACK AND

;SECTOR ADRS IN MEMORY WITH THE STARTING CYL - TRK [NFORMATION
017556
017562
017570
017574

013701
012737
012700
013702

001362
000001
045774
001330

001214

SETHDR: MOV
MOV
MOV
MOV

MAXSEC,R1
#,$TESTN
#BUFP,RO
BEGCYL,R2

;SET UP SECTOR COUNT
; GARBAGE (ODE FOR APT
:SET UP HEADER POINTER IN RO
;PUT STARTING CYL # IN R?

CZRMLAD RMO5/3/2

SUBROUTIN

11-APR-80 13:01:23 PAGE

140000

8IS

001334

MOV

SWAB
187
BEQ
BIS
MOV

001360
010000

1%:

MOV
ADD

001000
660

INC
DEC
BGE

0023N

RTS

10-13

SEQ 0064

MMF LUF ,R2

D USR GOOD BITS

BEGTRK,R3
R3
SEC30

N G TRK
# IN R3
A CK_ADRS

1512 ,RO
PC

001362
045774
001334

001400
000002

001000
001340
001342
000004

1%:

BEQ
Sus
INC

2%:

MOV
MOV

3%:

MOV

MOV
SUB

BNE
INC
DEC
BGE

MOV
MOV
MOV
MOV

001214

sTHIS

001362
045774
1%:

WRAP

#2,(RO)
(RO)+
R3,(RO)+
#512.,R2
PATA, (RQ) ¢+
PATB,(RO)+
N6 ,R2

ROUTINE

UPDATES

THE HEADER WORDS

sSEEKING FROM HI TO LO CYLINDERS ?
:BR IF NO
;DECREMENT CYLINDER NUMBER
¢ INCREMENT FOR NEXT CYLINDER
;WRITE TRACK AND SECTOR HEADER
;DATA FIELD LENGTH
sFILL BUFFER
;FILL BUFFER
:530 OF DATA FIELD ?

(YL ADRS
TRK ADRS

:sPUSH RO ON STA(CK
¢ sPUSH R1 ON STA(CK
: sPUSH R2 ON STA(K
: ;PUSH R3 ON STA(K
;SET UP SECTOR COUNT
:SET UP HEADER POINTER IN RO
+GET BEGINNING TRACK
;STARTING SECTOR = 0

BEGTRK,R3
R3

RTS

MOV
MOV
MOV
MoV
1ST
ADD
ADD

IN CORE

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

INC

UPDTRK:

000400
001004

MOV
MOV
MOV
MOV
MOV
MOV
MOV
SWAB
TST

FIELD

N
el * 2 * ]
NN NN WS =N

UPDCYL:

[
=4

o
o

COO0OO0O0O0OO0OO0O
00000 —~O000O0O0O0O0OOO
—t e id =t DOOQOOO et et et e OO OO QO b d e e b et

)

el cnld

)

017644
017644
017646
017650

144)

:UPDATE SECTOR ADRS FOR NEXT WEADER
;MAINTAIN COUNT OF SECTORS
;BR IF NOT LAST SECTOR
¢EXIT - HEADERS ARE LOADED INTO CORE

R1
1%

FILLS DATA BUFFER

(DEC STANDARD

0 R 32 SECTOR MODE
3 CTOR MODE
SECTOR FORMAT BIT
E ADER AREA OF CORE THE
:WRITE IN HEADER AREA OF CORE THE
sSET UP FOR NEXT HEADER

1%
NEMT R2
R2. (RO)+
R3,(RO)+

:THIS ROUTINE UPDATES THE CYLINDER ADRS OF

sAND

—

SUPPORY

MACRO v03.01

+ INCREMENT TO NEXT SECTOR
«COUNT SECTORS
;BR IF NOT LAST SECTOR
:;POP STACK INTO R3
::POP STACK INTO R?2
:.POP STACK INTO R1
:;POP STACK INTO RO

¢ INCREMENT TST NUMBER FOR EACH CYLINDER CHANGE
:EQ??ADE CODE FOR APT
THE

RO,=-(SP)
R1,-(SP)
MAXSEC,R1
#BUFP,RO
(RO)+
#400, (RO)
#516. R0

TRACK

ADRS OF

THE HEADER WORDS

::PUSH RO ON STACK

IN CORE

;;PUSH R1 ON STA(CK
;SET UP SECTOR COUNT
:SET UP HEADER POINTER IN RO
;POINT HEADER POINTER TO TRK - SEC ADRS
: INDEX TRK ADRS
:SET UP FOR NEXT HEADER

CZRMLAO RMO5/3/2

MACRO v03.01

020004
020006

[ol=l=lale]

SUPPORT SUBROUTIN

11-APR-80 13:01:23 PAGE
DEC
BGE
MOV
MOV

020160
020164
020166
020172
020176
020200
020204
020212
020214
020222
020224

020230
020232

NOOOONNOONNOOCO
O NN

000402

s e
et
TN

020074
000006
161244
001304
020250
000002
000300
177777

000135

000004
020144
161176
001312
020250
000002
000300
000100
000004
000006

000004

ST.CLK:

000000

161206
000004
¢00005

000004

105737

001024
00473

10460
104410

012637
023727
0016411

001150

000015

122727
001405
106401
000000
000137

001174

000131

1046401
1046401
000207

036417
001205

SNERRVE(+2
aSLKCSR
SLPVEC,-(SP)

ADD

#2,(SP)

#CLOCK.@(SP)

#PR6,3(SP)+

‘PSW - PRI

#6 SMERRVEC

:RESTORE THE STACK POINTER
*RESTORE THE ERROR VECTOR

#100,a8LKS
STCLK3
¥, SP

RTS

PC
PRINT

THE

ABORT

TSTB

$AUTOB

;Egfin

L MESG2

BNE
JSR

UP KWil-L

VECTOR

- INCREMENT VECTOR ADDRESS

:SET KW11=L

MESSAGE

AND LET

INTERRUPT ENABLE

0.P.

:RUN UNDER APT

RESTART
?

18
PC,STKINT

‘BR IF SO
*ENABLE TO READ

CMPB
BEQ

(SP)+,$TMPO
$TMPO . #CR
1%
$TMPO.#'Y
1$

;GET CHARACTER
:CARRIAGE RETURN 2
‘BR IF YES

JMP

BEGIN2

:JUMP TO BEGIN2

TYPE
TYPE
RTS

Y
.SCRLF
PC

TYPE
HALT

CLOCK:

:SET

MOV
BR
ADD

MOV
CMP
BEQ

1$:

#CLOCK.a(SP)

#2,(SP)

STCLK2:
STCLK3: MOV

007020

SSET CLK - CNT UP

STCLK3
¥, SP
;RESTORE THE STACK POINTER
#STCLK2,a#ERRVEC
:CHANGE ERROR VECTOR
ASLKS
;LOOK FOR KW11=L
$LLVEC,-(SP)
:KW11-L VECTOR ADDRESS

MOV

040373

*POINT TO PSW

‘PSW - PR] 6
*LOAD COUNTER BUFFER

#135,3SLKCSR

ADD

CODE

;SET UP VECTOR FOR P (LK

:NEW PSW
‘CHECK FOR KW11-P
:VECTOR ADDRESS

:SET UP KW11=P VECTOR

#PRG,A(SP)+
#-1,38LKCSB

MOV

;THIS

012746
004737
000002

#STCLKY,a¥ERRVEC

CLR
ST
MOV

MOV

025576
060212
001174
001174

MOV

BR
STCLK1: ADD
MOV
TST
MOV

RESTRT:

< LEXIT

TO CHECK FOR KWll-L OR KW11-P CLOCKS

MOV
MOV

161146

SEQ 0065

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

MOV

:THIS

e ot e

OO0
~NO VNI
L

©On 0o 0o Co Co O Oo 0o Co

0
811 €20236
020242
020246

NPV
NN ALY N O NN NN N NN
NNNNNNNNESNNNNNNNON
NN
=4 N5 NN O N N NN — N S NN

788 020130
789 020134
90 020142
1 020144
792 020150
793 020156
794
795

[=lrlelelalalelelelelolololelolele
o)
e O e e D e PO ot e e (O et d OO =

020072
020074
020100
020106
020112
020116
020124

R
s
(SP)+,R1
(SP)+.RO

RTS

;RGUTINE

10-14

CODE

MOV
JSR
RT]

- IMPROPER MFG INFORMATION

CENTER ¥ 2
‘BR IF YES

,MHALT

SERVICES A CLOCK

#16.,-(SP)
PC,RMTMR

;TYPE "y
SCR-LF
CEXIT

INTERRUPT

EVERY

16MS

:PUT MILLISECONDS ON THE
160 REPORT TIME
*RETURN AND

CONTINUE

STACK

CIRMLAD RM0S5/3/2 FORMATTER

SUPPORT

SUBROUTINES

MACRO v03.01 11-APR-80 13:01:23 PAGE 18-15
;ROUTINE TO INTERCEPT
giENTR:

0D 0o OD OO 0P OB OO QB OB OB OO 0O OD 00 (o Yo To To To Yo To
L ol 2R ol aE ulf 2F 2 ¥ oW VTP
Tey VIV
TV
IV V]
L ole B¥Te JV P YV VP Yo XV T, TNT. 3 AN
= OO

850

;ROUTINE

°"CONTROL C' TYPED DURING PARAMETER ENTRY TIME

MOv
ST

#STACK,SP
TRNSWT

SINITIALIZE THE STACK

RESET
JMP

sSTART AGAIN WITH DRIVE SELECTION

BNE

828

SEQ 0066

TO INTERCEPT

:ALL ACTIV]ITY

.BR ]F NOT
;CLEAR THE BUS

'CONTROL O°'

TYPED WHILE

STOPPED

PROGPAM IS FORMATTING

:THE DISK PACK. THE CURRENT DISK ADDRESS IS TYPED TO THE TERMINAL
;DURING THIS ROUTINE IN THE FOLLOWING FORMAT,

:PRESENT ADDRESS 1S: CXXX TXXX
020302
020306
020312
020316
020320
020324
020326
020332
020332
020336
020340
020344
020352
020354
020354
020360
020366
020372
020376
020402
020406
0204612
020416
020422
020424
020430
020434
020440
020444
020452

117746
042716
021627
001005
104401

005726
000177

022627
001406
005777
012777
000002
005037
012737
104401
104401

013746
004737
004737
106601
106401

005046
113716
004737
004737
1046401

012737
000002

160654
177600

0.ENTR:

000003

026767
161042

000017
160616

000100

160606

2%:
177776

020262
037775
036411
005552
027256
027216
036425

001374

TYPADR:

036415

005551
027256
027216
001205
020302

020456
020460

020470

CYLINDER ADDRESS

1S THE TRACKX ADDRESS.(IN DECIMAL)

BNE

:STRIP PAR]TY
s CONTROL=-C ?
:BR IF NO

JMP

aCNTLC

;JUMP TO CONTROL=C RESTART

CMP
BEQ
13
MOV

(SP)+,#17
28

38 7kB
#100,387xS

;CONTROL-0 ?
JYES
sCLEAR DONE BT
JENABLE TTY INTERRUFTM

(LR
MOV
TYPE
TYPE

PS
#C.ENTR.CNTLC
JADDRIS
“C

:SET PROCESSOR TO PRIORITY O
sCHANGE 'CONTROL C' RETURN ADDRESS

TYPE
151

RTI

#AC177 (SP)
(sP),
0%
LSCNTLC
(SP)+

MOV
JSR
JSR
TYPE

FMTDOPB+12,-(SP)
PC,$582D
PC.$SUPRS
,BLNKS?

CLR
MOVB

2(sP)
FMIDPB+11,(SP)

TYPE
MOV
RT]
;PARAMETER ENTRY

02045¢

JAND 'T'

IS THE

@$TKB,=(SP)

BIC
(MP

JSR
JSR

]

PC,$5820
PC.SSUPRS

L$CRLF
#O._ENTR,INTKVEC

JSR

R4 ,PARENT

PARENT:
:

MOV
MOV

R3,-(SP)
#TABLE ,R3

1%:

MOV

(R3)+,2%

TABLE

MOV

JREAD

FROM TTY BUFFER

;TYPE A CONTRO:
=C
+RESTORE STACK

(*C)

::E?ESENT ADDRESS ]S:

JPUT THE CYLINDER ADDRESS ON THE STACK
;CONVERT IT TO DECIMAL
JTYPE

:I;fE 2 SPACES
sCLEAR THE STACK

:PUT THE TRACK ADDRESS ON THE STA(K
sCONVERT IT TO DECIMAL

JTYPE

sCR=LF
JRESTORE ENTRANCE FOR CONTROL=-0

sRETURN

ROUTINE

s CALL
;

;

°'C*'

MOVB

TYPE

000060

;WHERE

(RG),RS

;THE CALLING SEQ
.PARAMETERS TABLE

s SAVE R3

JPARAMETER TABLE
JPARAMETER TABLE

ADDRESS
ADDRESS

;ADDRESS OF PARAMETER NAMt

CIRMLAQ RMIS/3/2 FORMATTER

SUPPORT

878
879
880
881
882
883
884
885
886
887
888

SUBROUTINES

MACRO v03.01

0204646
020666
020470
020472
0204764
020476
020500
020502
020506
020510
020512
020516
020520
020522
020524
020526
020530
020532
02053
020536
020542
020546
020550
020552

010215
000402

9% :

897 020554

011403

6% :

889
890
891
892
893
894
895
896
898
899
900
901

38%

020556
020560
020562
020566

001435
104401
000000
012302
012308
011546
104405
104401
1046
012601
004537
020460
020560
020536
020532
020536
020550
010215
000751
104401
162703
000746

000740
012603
062704
000204

2%:

036405
023462

3s:
03721
000006

;6%

7%:

000002

;

904
905

11-APR-80 13.01:23 PAGE

BEQ
1YPE
.WORD
MoV
MOV
mov
TYPDS
TYPE
RDLIN
MOV
JSR
1%
7%
«$
3
‘3
5¢
MOV
BR
TYPE
SuB
BR

10-16

7%
0
(R3)+,R?
(R3)+,RS
(RS) ,=(SP)
LSLASH
(SP)+ RI
RS,C(X.DIG

R2, (RS)
1%
LBADENT
6 ,R3
1%
RZ (RS)

JBR JF AT END OF TABLE
;TYPE THE PARAMETER NAME
;ADDRESS OF PARAMETER NAME TEXT
“MAX]MUM PARAMETER VALUE
:ADDRESS OF PARAMETER
;CURRENT VALUE OF PARAMETER
JTYFE THE CURRENT VALUE OF THE PARAMETER
PR
A
JREAD THE KEYBOARD
JINPUT ASCII STRING ADORESS
JCHECK THE DIGIT(S)
;CARRIAGE RETURN ONLY ENTERED
;5% ONLY ENTERED
sJLLEGAL INPUT
TERHINATED WITH A CARRIAGE RE TURN
JTERMINATED WITH A
sTERMINATED WITH A
‘MOVE NEW VALUE 10 PARAHETER LOCATION
;GET MORE PARAMETERS
;'BAD ENTRY'
;DECREMENT THE TABLE POINTER
:TRY AGAIN

MOV
BR
MOV

lTABLE R3

BR
MOV
ADD
RIS

1%
:TRY AGAIN
(SP)+,R3
;RESTORE R3
"2 .R4
sADJUST THE RETURN ADDRESS
R&
;RETURN FROM THE R4

MOV

RTS

(R&),RS$

sNEW VALUE
JEXIT
JRELOAD THE PARAMETER TABLE ADDRESS

:RELOAD THE PARAMETER TABLE ADDRESS

:RETURN

;THIS ROUTINE LOAD THE BAD SECTOR
JCALL SEQ
JUSR
PC,RECORD

38?

SEQ 0067

INTO USTAB TABLE

JALL REGISTER USED ARE DESTORIED

908 020570

C12701

003434

911 020602
912 020606
913 020610

023711
001010
123761

005552

005551

000003

CMP
BNE
(MPB

123761

005550

000002

(MPB

909 020574
910 020600

914 020616

915 020620

022711
001421

001004

916
917
918
919
920
921

020626
020630
020634
020640
020642
020644

001416
062701
022701
101355
000411
013711

923
924
925
926

020656
020664
020666
020672

113761
000207
104401
104401

922 020650

927 020676
928 020702

113761

104401
000000

RECORD

177777

1$:

000004
004424
005552

005551

001346
001205
040112
040373

2%:

000003

000002

3%:

4%:
9¢:

MOV

SUSTAB+10,R1

:TABLE ENTRY

N R

(MP
BEQ

#-1,(RY)
b1 9

BNE

BR IF NOT

BEQ
ADD
(MP
BH]
BR
MOV

(3 9
e R
FUSTAB+S12.,R1
1%
5%
FMTDPB¢12,(R1)

BR 10 EXIT,IF THE SPOT HAS RECORDED
:lNCREH&NI 4 BYTES
;END OF TABLE ?
:BR IF NOT
;THROW AWAY THE PAC(K
,LOAD THE CYLINDER #

MOVB
RTS
TYPE
TYPE

SAVSEC,2(RY)
PC
JSCRLF
JMESGY
JMHALT

;LOAD THE SECTOR NUMBER
JEXIT

MOvV8

TYPE
HALT

;4N OPENING [N THE
:BR IF IT IS

TABLE

FMTDPB+12,(R1) ;CYLINDER NUMBER MATCHES
2%
;BR ]F NOT
FMTOPB*11,3(R1) :TRK NUMBER MATCHES ?
FMTOPB+10,2(R1)

;SECTOR NUMBER MATCHES

FMTDOPB+11 ,3(RY) ;LOAD THE TRK NUMBER

:THRCW AWAY

THE PA(K

MACRO v03.01 11-APR-80 13:01:23 PAGE0 18-17

CIRMLAQ RMOS/3/2 FORMATTER
SUPPORT SUBROUTINES

020704

000137

007020

JMP

BEGINZ

SEQ 0008

;RESTART

DESIRED

:THIS ROUTINE SORT TME USTAB IN ASCENDING ORDER
JCALL SEQ
JSR
*PC,SORT?
020710

000175

000764

ADD

MOV

000004

1$:

MOV
(mP
BEQ
(MP

000003

000007

2%:

BHI
BLO
(MPB
8H]
BR
MOV

161

000002

000006

e
e
* 21 * 2% & —t

020103

021024
021026
021030
021032

001342
005302
001404
162703

021036
021040
021042
021042
021046

011501
000734
062705
000205

000002
000004
000006
000006
000004
000004

BH]
BLO

(MPB

—

161

MOV

MOV
MOv

177777

CO IO =
—o

020774
021000
021006
021012
021016
021022

o>
NOO
— st —'O—‘O‘k:—‘O‘Lfl—‘—‘—‘N
o
O
N) —
o
PO
N—NWN

020736
020740
020742
020750
020752
020754
020762
020764
020766
020770

000002

000004
.

000002
:

~NO ~N
~NO
&~

~N—~

~NOw

wno

-0

o0
oo

H & NONOOO
OOV
ONN—O

W~
NO RN
WNNWNN NN

[elolelelelelals]
— e OO P i b b

—

o
o
o

;SECTORS
JSECTORS
JSECTORS
JSECTORS

;TOP

(RS),R1
9125, ,R2

POINTER

:TOP POINTER
JTOTAL 126 ELEMENTS

R1,R3

JLOCATE

THE BOTTOM POINTER

#500. ,R3

22564+4) X 2

2%
1%

JSWITCH THE TWO ELEMENT
JINCREMENT POINTER

#USTAB+S08.,RY
#-1,(R1)
43
(R1),4(R1)
I(R1),7(RY)

THE LAST ELEMENT
JTHE TABLE 1S EMPTY ?
;QUICK EXIT
;COMPARE THE CYLINDER NUMBER
:COPMARE

THE

TRK NUMBER

SWITCH ELEMENT
:INCREMENT POINTER
;COMPARE THE SECTOR NUMBER
JSWITCH ELEMENT
;INCREMENT POINTER
;SAVE THE N BLOCK

MOV

6(R1),2(RY1)

MOV

(SP)+,4(RY)

MOV
MOV
MOV

FUSTAB+8. R1

2%
33
2(R1),6(R1)
2%
3%
(R1),=(SP)

ADD
(MP

2(R1),=(SP)
&(R1),(RY)

JINTO STACK
JSWITCH THE N+1

(SP)+,6(R1)

:LOAD

R
R1,R3

THE

N+1

BLOCK

TO N BLOCK

BLOCK

;UPDATE THE TOP POINTER
;sREACH THE BOTTIOM ?

BNE
DEC
BEQ
SuB
MOV
MOV
BR

19
R2
4%
#6 ,R3

FUSTAB+8. R
(RS) ,R1
1%

;BR JF NOT
;DECREMENT ONE SORT (COUNT
;BR IF ALL DONE
JASJUST THE BOTTOM POINTER
RESET TOP POINTER
;RESET THE TOP POINTER
;8R IF NOT ALL DONE

ADD
RTS

"2 ,RS
RS

:ADJUST RETURN ADDRESS
JEXIT

RTS

JTHIS ROUTINE

o
~N

946
965
946
947
948
949
950

020726
020730
020732

Ot
it it 2 0 QO ONIOONOONION
QOO0OO0O0O0OO0O0O
= atausa000 gooo

020710
020712
020716
020720

SORT?:

0,2
* 3
v,
11,

TEXT:

MOV

1%:

MOV

TEXT

THE

JEXLT
LAST

TRACK

822,

LAST

TRA(K

6.8
16 BIT MFG
,9
18 BIT MFG
6,16,........
16 BIT USER
b I I A, 3
18 BIT USER
#BUFP,RO

MOV
MOV

#<258.¢32.>,R1
¥-1,R?

DEC

MOV

BEGCYL,-(SP)

BNE
MOV

(YL

R2,(RO)+

1%
$TESTIN, - (SP)

:BUFFER ADDRESS

;TOTAL WORD COUNT
sSET ALL LOCATIONS T0
JFULL

THE BUFFER

JALL DONE

;LOOP, 1F NOT
sSAVE TESTN,BEGCYL ,BEGIRK
;

CIRMLAD RMOS/3/2 FO RMATTER

SUPPORT

SUBROUTINES

MACRO v03.01

986
987
988
989
990

021102
021106
021112
021116
021126

013746
013746
013746
012737
012737

001334
001362
001360
000037

992
993
99¢
995
996
997
998
999
1000
1001
1002
1003

021140
021146
021152
021156
021162
021166
021172
021176
021202
021206
021212
021216

013737
004737
012637
012637
012637
012637
012637
012701
012702
012703
011112
016162

00132¢
017556
001360
001362
001324
001330
001214
001414
046000
000040

001334

000002
000004
000006
001004

000002

991 021132

1006
1005
1006
1007
1008
1009
1010
1017

021222
021226
021232
021236
021240
021242
021244
021246

012737

005062
005062
062702
005303
001364
005046
005046
005046

177777

001466

1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022

021250
021254
021260
021264
021270
021274
021300
021306
021310
021314
021316

012746
0127646
012746
012746
012746
012746
012746
012746
005737
100402
012716

001414
046000
000005
002420
0470064
000005
003424
060050
001360

1024
1025
1026
1027
1028
1029
1030

021326
021332
021336
021342
021344
021350
021354

012701
012702
005737
100402
012702
012703
010105

004430
061054
001360

1032
1033
103¢
1035

021362
0213664
021366
021370

012122
005304
001375
010501

1037
1038
1039
1040
1041
1042

021376
021400
021402
0214606
0214086
021410

005303
001366
012603
012602
012601
010105

1023 021322

1031 021356

1036 021372

012746

061054

001362
001360

001330

000013

060050
000013

012704

000400

062702

001010

5%:

6%:

13:01:23 PaGE

MOV
MOV
MOV
MOV
MOV

BEGTRK, = (SP)
MAXSEC,=(S5P)
SEC30,=(SP)
#37 MAXSEC
#-1SEC30

;
:SAVE FLAG MAXSEC AND SEC30
;
SSET MAX 31 SECTORS

MOV
JSR
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

LSTRK.BEGTRK
PC,SETHDR
(SP)+,SFC30
(SP)+.MAXSEC
(SP)+.BEGTRK
(SP)+,BEGCYL
(SP)+.$TESTN
#BAD16,R1
#BUFP+L,R2
#32. ,R3
(R1) . (R2)
2(R1),2(R2)

:LAST TRACK
JSET UP THE HEAD FIELD IN THE BUFFER
CRESTORE SEC30 AND MAXSEC

CLR
CLR
ADD
DEC
BNE
CLR
(LR
(LR

4(R2)
6(R2)
#516.,R2
R3
2%
-(SP)
-(SP)
=(SP)

STHIRD WORD = 0
“1D = DATA PACK
JADVANCE TO NEXT SECTOR
JDECREMENT ONE SECTOR COUNT

1., -(SP)

SSECTOR LOUNT

lZéb..Rk

;WORD COUNT = DATA FIELD OF ONE SECTOR

MOV

2%:

11-APR-80

#825..BEGCYL

10-18

CALWAYS

SEQ 0069

IN 16 BIT MODE

-LOAD LAST CYLINDER

:
JLOAD SERIAL NUMBER TO EVERY StECTOR
*BUFFER LOCATION + &
STOTAL 32 SECTORS
1 ST SN #
22 ND SN #

:BR IF NOT DONE
JLOAD TABLE INTO SECTORS
;DUMMY PAIRS

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
ST
BM]
MOV

#BAD16,-(SP)
;TABLE ADDRESS
#BUFP+4& ,=-(SP)
JBUFFER ADDRESS
#5,-(SP)
“SECTOR COUNT
#BAD18,=(5P)
;TABLE ADDRESS
PBUFP+4+516,,-(SP) :BUFFER ADDRESS
#5,-(SP)
JSECTOR COUNT
#USTAB,-/SP)
JUSER DEFINED TABLE
#BUFP+44<516.¢10.5,=(SP)
“BUFFER ADDRESS
SEC30
33
;BR JF IN 16 BIT MODE
#BUFP+4+<516.211,.>,(SP) -RESET THE BUFFER ADCRESS

MOV
MOV
ST
BM]
MOV
MOV
MOV

#USSAV,R1
;TABLE ADDRESS IN R1
#BUFP+4+<516.%11 > ,R?
;BUFFER ADDRESS IN R?
SEC30
:BR IF IN 16 BIT MODE
48
;
FBUFP+4+<516.¢1C.>,R?
;BUFFER ADDRESS FOR 18 BIT MODE
#1.,R3
:SECTOR COUNT IN R3
R1,RS
;TEMPOR STORAGE

MOV
DEC
BNE
MOV

(R1)¢,(R2)¢
R&
6%
RS,R1

JLOAD TABLE INTO SECTOR DATA FlELD
JALL DONE ?
*BR IF NOT
RELOAD THE TABLE ADDRESS

DEC
BNE
MOV
MOV
MOV
MOV

R3
5%
(SP)+ R}
(SP)+ ,R2
(SP)+,R1
R1,RS

:DECREMENT ONE SECTOR COUNT
:BR IF NOT DONE
RETRJEVE NEXT SET OF SECTOR #
;BUFFER ADDRESS
;TABLE ADDRESS
;TEMPOR STORAGE

MOV

ADD

#520. ,R2

:SKIP ONE SECTOR

CIRMLAO RM0S5/3/2 FORMATTER

SUPPORT

SUBROUTINES

1043 021412
1044 021414

MACRO v03.01

00136
00020

BNE

021570

021572
021576
021600

0002
1137
1137
0537
1137
0127
1127
0127
1137
1137
0137
0527
005737
100403
042737
004037
005630

000774

005737
001775
000207

045764

200001

005551

017134

14/15 OF

RESET:

MOV
BNE
CMPB
BLO

FMTDPB+12,RBUF
1%
#1,FMTDPB+11
1%

D et el el el
el
D el e
——h el el

1096

1097

1098
1099

;gg

REJCT2

NOT DUMMY PAIR

JEXIT

THE BIT

THE

JSR

HEADER WORD OF

PC.RESET

;CYLINDER ADDRESS
:BR IF NOT CN TRACK 0

:BR IF NOT CYLO,TRK O OR 1
‘BR IF NOT
;OTHERWISE,

ILLEGAL BAD SECTORS

MOVB
MOVB
BIS
MOVB
MOV
MOVB
MOV
MOVB
MOVB
MOV
BIS

FMTDPB+11,RBUF+3
:TRACK ADDRESS
SAVSEC,RBUF+2
;SECTOR ADCRESS
HEADX , RBUF
SSET MFG BIT,RESET USER BIT
DRIVE,FMTX
SSETUP THE DPB FOR OPERATION
#-2,FATX 4
:WORD *COUNT =2
WWRTHD,FWTX+2
:WRITE HEAD AND DATA (OMMAND
#RBUF ,FMTX+6
SBUFFER ADDRESS
SAVSEC,FMTX+10
:SECTOR ADDRESS
FMTDPB+11,FMTX+11 ;TRACK ADDRESS
FMTIDPB+12,FMTX+12 :CYLINDER ADDRESS
#FMT,RBUF
;ASSUM 16 BIT MODE

010000
030622

045764

BM]
BIC
JSR

28
#FMT,RBUF
RO,RMOS

005646

2%:

FMTX

SEC30

SIN 1% BIT MODE 2

SBR IF IT IS
SRESET THE FMT BIT
:CALL THE DRIVER

‘DPB ADDRESS

;BR IF QUEUE FAJLS

FMTX+16

RTS

CEXIT

BEQ
ROUTINE

DONE

:BR

NOT

INSERT:

;INSERT A BAD SECTOR ADDRESS INTO ONE OF
SCALLING SEQ
:

JSR

010446
012746
0115
0227
0014
0237
0010
1237
0010
1237
0014
0053
0014
0627
0007
0137
1137

SPOT

045767
045766
045764
005630
005634
005632
005636
005640
005641
005642
045764

:THE

021602
021604
021610
021612
021616
021620
021624
021626
021634
021636
021644
021646
021650
021652
021656
021660
021664

THE BAD

005551
001346
001410
001222
177776
000163
045764
001346
005551
005552
010000
001360

D il el

) il

) el

D i

D el

l=lelelolale [olelolelelaolelelelololalololelole] OO0 O0O0OOO0O0OOCOO0ODO
Qo 00 Qo 0o Qo OO [+ 0000 N NNNNNNNNNO [o oo gY o X o Yo o ¥ o ¥ e Ve QW IV IV IV, IV TV TV ]
WO
NS W N = OOV
NOWVNE NN 2OV
NO NS WA —=O OV ~NO NS W

021442
0214464
021452
021460
021466
021674
021502
021510
021516
021524
021532
021540
0215646
021552
021556
021562
021566

005552

SEQ 0070

;BR IF

;RESET

:CALLING SEQ;

0137
0010
1227
1034
0001

10-19

RTS

;THIS ROUTINE RESET:

021416
021624
021426
021434
021436

11-APR-80 13:01:23 PAGE

INSERT:

000176
177777

18:

001364
001366

000003

001346

000002

000004
000003

MOV

RS, INSERT

R4 ,~(SP)

:SAVE

(RS) .R&

:TABLE ADDRESS + 8 BYTES

:BR IF

#1206, ,~(SP)

CMP

#-1,(R4)

CMP

DS.CYL, (R&)

BEOQ

ADD

04 ,RG

BEQ

BNE
(MPB
BNE
CMPB
2% :

001364
001366

TABLE

DEC
BEQ

BR
MOV
MOVB

THE USTAB,USSAV.BAD16.BAD18 TABLES

28
DS.TRK,3(R&)
2%
SAVSEC,2(R4)
(SP)
3

1%
DS.CYL, (R&)
DS.TRK,3(R&)

THE Ré

:ENTRIES OF THE TABLE

:AN OPEN ENTRY

:CHECK

SO
IF

THE BAD SECTOR HAS RECORDED

:BR IF NOT
SCYL AND TRK MATCH ?
‘BR IF NOT
SCYL ,TRK AND SEC MATCH ?

:BR IF SO

:DECREMENT THE ENTRY
:BR IF EXHAUST
SLOCATE

THE

COUNT

ENTRY

‘BR BA(K
SLOAD INTO TABLE
SLOAD THE TRACK NUMBER

CZRMLAQ RM05/3/2 FORMATTER
SUBROUTINES

1100
1101
1102
1103

021672
021700
021704
021706

}}82 021712

113764
062706
012604
062705
000205

1106
1107
1108
1109
1110
1111

021716
021720
021726
021732
021740
021746

104401
104401
012737
012737
012737
004437

041236
001205
77777
177777
177777
020454

1114 021756
1115 021760
1116 021762

005737
100412
005737

001364

1118
1119
1120
1121
1122
1123

021770
021774
021776
022002
022004
022006

005737
100404
004537
001424
000747
004537

001346

020710

1126
1127
1128
1129
1130
1131

022016
022020
022026
022032
C22040
022046

104401
104401
012737
012737
012737
004437

061321
001205
177777
177777
177777
020656

1134
1135
1136
1137
1138
1139
1140
11641
1162
1143
1164
}}QS

022054
022060
022062
022066
022070
022074
0c2076
022102
022104
022106
022112
022114

005737
100412
005737
100407
005737
100404
004537
002430
000747
004537
002430
000207

001364

1147
11648
1149
1150
1151
1152

022116
022124
022132
022140
022146
022152

012737
012737
012737
012737
005737
100414

}}}% 021752

1117 021766

}}gg 022012

}}g% 022052

1153 022154

1156 022162

1155 022170
1156 022176

005702

100407

0014264

005726

MACRO v05.01

TYPE
TYPE
MOv
MOv

MESGS
CSCRLF
#-1,0S5.CYL
#-1,0S.TRK

:CR=LF
SRESET
;

MOV
JSR
TABLE?

#-1,SAVSEC
R4 ,PARENT

:
SENTER THE

TST
BM]
1ST

0S.CvL
2%
DS.TRK

;UPDATE VALUES
sBR IF NOT
:

BM]

021602

2%:

3$:

001366
001346

021602

003434
003434

022272
022302

012737

003434

022372

012737

00444C

022272

003434

004440

1ST
SAVSEC
BM]
2%
JSR
RS, INSERT
BAD16+8.
BR
1%
JSR
RS,SORT?

BAD16+8.

TYPE
TYPE
Mov
MOV
MOV
JSR

TABLES3

022372
022402

012737

RTS

SAVSEC,2(R&)
n,sp
(SP)+ R4
N2 ,RS
RS

001366

004440
004440
001360

012737

MOvB
ADD
MOV
ADD

000002

020710

022402

022302

13:01:23 PAGE

001346
000002

001364
001366
001346

11-APR-80

FUNCT2:

+MESGO
JSCRLF
#-1,05.CYL
#-1,D0S.TRK
#-1,SAVSEC
R4 ,PARENT

10-20

SEQ 0071

sLOAD THE SECTOR NUMBER
;CLEAR UP THE STA(CK
;RESTORE R4
sASJUST THE RETURN ADDRESS

JEXIT

THE

:
s INSERT
:
SNEXT
;SORT

INPUT VALUES
VALUE

FROM THE

INTO THE BAD1c¢

SET
THE

KEYBOARD

TABLE

sCR=LF
SRESET
:

THE

:
: INPUT

VALUES FROM THE

INPUT

VALUES

;18 BIT TABLE

1ST
DS.CYL
BM]
43
TST
DS.TRK
BM]
3
1ST
SAVSEC
BMI]
3 )
JSR
RS, INSERT
BAD18+8.
BR
3%
JSR
RS,SORT?
BAD18+8.
RTS
PC

SNEXT
;SORT

SET
THE

JEXIT

FROM THE

MOV
MOV
MOV
MOv
15T
BM]

FUSTAB+8.,3%
#USTAB+8.,5%
FUSSAV+8., 7%
#USSAV+8.,9%
SEC30
1%

;SETUP TABLES FOR 16 BITS MODE
:
:
:
:IN 16 BIT MODE ?
;BR 1S SO,OTHERWISE RELOAD THE

MOV

FUSTAB+8.,9%

MOv

MOV

MOv

NUSTAB+8.,7%

FUSSAV+B., 3%

FUSSAV+8.,5%

;UPDATED VALUES
:BR 1F NOT
:

KEYBOARD

:
:
:
; INSERT

THE BAD SECTOR

[NTO TABLE

BAD18 TABLE
CALLING OF

TABCAL

:SET UP TABLES FOR 18 BITS MODE

BAD18

TABLES

CIRMLAO RM05/3/2 FORMATTER

SUPPORT

1157

MACRO v03.01

SUBROUTINES

104401
104401

041404
001205

1$:

022222
022230
022236
022242
0222644
022250
022252
022256
022260
022264
022266
022272
022274
022276
022302

012737
012737
004437
005702
005737
100412
005737
100407
005737
100404
004537
000000
000747
004537
000000

177777 ! 001366
177777 001346
020454

022304
022310
022314
022322
022330
022336
022342

104401
104401
012737
012737
012737
004437
005726

041467
001205
1177777
177777
177777
020456

022344
022350
022352
022356
022360
022364
022366
022372
022374
022376
022402
0226404
022412

005737
100412
005737
100407
005737
100404
004537
000000
000747
004537
000000
012737
000207

001364

022414

010146

022422
022426
022432
022434
022436
022440
022442
022446
022452
022456
022462
022464
022466

104401
104401
012146
100402
104402
000772
062706
104401
012701
104401
012146
100402
104402

022214 012737 177777\ 001364 2%:

012701

10-21
SEQ 0072

022204
022210

022416

11-APR-80 13:01:23 PAGE

001364

001366

001346
021602
020710

3%:

6$:
5%:

6% :

001366

001346
021602

020710
177777

001414

041552
001205

000002
041622
002420
001205

7%:
8%:
9% :

1YPE
TYPE

MoV

[ [}
MOV
JSR
TABLEZ2
1S1
BM]
1S7
8M]
TST
B8M]
JSR
.MORD
BR
JSR
.WORD

3s:

#-1,DS.TRK
#-1,SAVSEC
R4 ,PARENT

:
:
:ENTER BAD SECTOR ADDRESS FROM THE KEYBOARD

#-1,0S.CvL
DS.CyL

43
DS.TRK
(3
SAVSE(C

JRESET THE INPUT VALUES
;UPDATED INPUT VALUE

:BR IF NOT
:
:
;

;
sINSERT THE BAD SECTOR INTO TABLE
;TABLE ADDRESS
JENTER NEXT BAD SECTOR ADDRESS
;SORT THE TABLE
;TABLE ADDRESS

TYPE
TYPE
MOV
MOV
MOV
JSR
TABLE3

LMESGS8
LSCRLF
#-1,08.0YL
#-1,DS.TRK
#-1,SAVSEC
R4 ,PARENT

;MESSAGE FOR 18 BIT USR TABLE
;CR=LF
JRESET THE INPUT VALUES
:
:
JENTER BAD SECTOR FORM KEYBOARD
:

18T
BM]
157
BM]
ST
BM]
JSR
.WORD
BR
JSR
.WORD
MOV
RTS

DS.CYL
8%
DS.TRK
8%
SAVSEC
8%
RS, INLLRY
O
6%
RS,SORT2
0
#-1,ED1T
PC

;UPDATED INPUT VALUE ?
;:BR IF NOT
:BR ]F NOT UPDATE
H
:
;sBR IF NOT UPDATED
JINSERT THE BAD SECTOR INTO TABLE
H
JBR TO ENTER NEXT SECTOR
;SORT THE TABLE
;TABLE ADDRESS
;UPDATE BAD SECTOR FILE AT END OF PASS
JEXIT FORM THE TABCAL CALLING

R1,-(SP)

:SAVE R1

LMESGY
LOCRLF
(R1)+,=-(SP)
2%

JMESG TO TYPE THE 16 BIT MIG
;CR=LF F]RST
;CALLING SEQ FOR TYPOC RT.
;BR ]F IND OF TABLE
;TYPE THE VALUE
;LOOPING BA(K
JADJUST THE RETURN ADDRESS
JMESG TO TYPE 18 BIT MFG
;TABLE ADDRESS
:
;CALLING SEQ FOR TYPOC RT,
;BR IF END OF TABLE
JTYPE THE VALUE IN OCTAL

MOV

2%:

JMESSAGE FOR ENTER 16 BITS USR TABLE
;CR=LF

43
RS, INSERT
O
2%
RS,SORT?2
0

FUNCT3: MOV
1%:

LMESG?
LOCRLF

TYPE
TYPE
MOV
BM]
TYPOQC
BR
ADD
TYPE
MOV
TYFE
MOV
BM]
TYPOC

¥#BAD16.R1

1%
¥2,SP
LMESG10
#BAD18,R1
JSCRLF
(R1)+,=(SP)
4%

;ADDRESS OF THE TABLE

CIRMLAQ RM0S5/3/2 FORMATTER

SUPPORT

SUBROUTINES

1214
1215
1216
}g}g

0226470
022472
022476
022500

000772
062706
012601
00C207

1219
1220
1221
1222
1223
1224
1225
1226

022502
0225064
022506

022516
022522
022526
022530

010146
010246
012701
012702
005737
100404
012702
012701

1228 022540
1229 022544

‘04401
012146

022512

1227 022536

1230
1231
1232
1233

104401

022546
022550
022552
022554

100402
104402
000772
062706

1235 022564

104401

1234 022560

104401

1236
1237
1238
1239
1240
1261
1262

022570
022572
022574
022576
022600
022604
022606

}%22 022610

000207

1245
1246
1247
1248
1249
1250
1251
1252
1253
1256
1255
1¢56
1257
1258
1259
1260
1261
1262

022612
022614
022616
022622
022626
022632
022636
022642
022644
022646
022652
022656
022662
022666
022672
022676
022676
022700

010146
010266
005037
005037
012701
012702
012721
005302
001374
005037
005037
012701
012702
012721
005302
001374
012602
012601

}sgg 022706

000207

1266
1267
1268
1269
1270

010146
010246
005037
005037
012701

1263 022702

022710
022712
022714
022720
022724

012246
100402
104402
000772
062706
012602
012601

104401

MACRO v03.01

1
6
11-APR-80 13:01:23 PAGE 10-22
38
n2,SP
(SP)+,R1
PC

:LOOPING BACK
:ADJUST THE RETURN ADDRESS
:RESTORE THE R1
SEXIT FROM THE CALLING OF TABCAL

R1,=-(SP)
R2.=(SP)
SUSTAB,RT
NUSSAV.R2
SEC30
13
NUSTAB,R2
#USSAV.R1

;SAVE R
:SAVE R2
SSET 16 BIT MODE TABLE

003424
004430

FUNCTL: MOV
MOV
MOV
MOV
3
BM]
MOV
MOV

001205

2%:

$CRLF
(R1)+,-(SP)

000002

003424
094430

001360

041672

48
58

1$:

BR
ADD
MOV
RTS

SEQ 0073

TYPE

TYPE
MOV

000002

BM]
TYPOC
BR
ADD

001205

TYPE

041742

000002

5%:

TYPE

001420
001422
001424
000374
177777
002424
002426
002430
000374
177777

042041

003430
003432
003434

1$:

2%:

TABLE ADDRESS

;

“MESG FOR 16 BT
:
;BR JF

END OF

TABLE

LMESG12

;
;
YADJUST STACK POINTER
*MESSAGE FOR 18 BIT MODE

28
#2,5P

"S$CRLF

SCR=LF

MOV
BM]
TYPOC
BR
ADD
MOV
MOV

(R2)+,=(SP)
5%

:
:BR IF

48
¥#2,5P
(SP)+ ,R2
(SP)+ R

:NEXT SECTOR ADDRESS
JADJUST THE STACK POINT
:RESTORE RZ2.R1
:

MOV
MOV
CLR
CLR
MOV
MOV
MOV
DEC
BNE
CLR
CLR
MOV
MOV
MOV
DEC
BNE
MOV
MOV

R1,=(SP)
R2,-(SP)
BAD16+4.
BAD16+6.
#BAD16+8. ,R1
#252.,R2
#-1,(R1)+
R2
1%
BAD18+4.
BAD18+6.
#BAD18+8.,R1
#252. .R2
#-1,(R1)+
R2
28
(SP)+,R2
(SP)
¢ R

:SAVE R1,R2

RTS

FUNCTS:

LMESGTT

;16 BIT MODE ?
‘BR IF SO
-OTHERWISE ,RELOAD THE

TYPE

FUNCTG: MOV
MOV
CLR
CLR
MOV

END OF

TABLE

;EXIT FROM THE CALLING OF

TABCAL

;START AT THE STH WORD
*WORD CTR
SRESET 10 -1
*DECREMENT WORD CTR
;BR IF NOT DONE
;START AT THE STH WORD
*WORD CTR
SRESET 10 -1
:DECREMENT WORD CTR
:BR IF NOT DONE
‘RESTORE R2.R1

LMESGTs

:DONE MESAGE

R1 ~(SP)
R2.-(SP)
USTAB+4
USTAB+6
FUSTAB+S.
,R1

+STORE R1,R2

SEXIT FROM THE

TABCAL CALLING

CIRMLAQ RM0OS5/3/2 FO RMATTER

SUPPORT

1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285

MACRO v03.01

SUBROQUTINES

022730
022734
022740
022742
022744
022750
0227564
022760
022764
022770
022772
022774
022776
023000
023004

012702
012721
005302
001374
005037
005037
012701
012702
012721
005302
001374
012602
012601
104401
012737

1288 023014
1289 023020
1290 023022
1291 023024
1292 023030
1293 023034
1294 023036
1295 023040
1296 023042
1297 023044
1298 023046
1299 023050
1300 023052
1301 023056
1302 023062
1303 023066
1304 023072
1305 023074
1306 023076
1307 023102
1308 023104
1309 023106
1310 023110
1311 023112
1312 023114

104401
104411
012601
012702
004537
023050
023050
023020
023050
023050
023050
006302
016201
012702
104401
012705
012146
104402
104401
005302
001403
005305
001370
000763
104401

1315
1316
1317
1318
1319
}ggg

023122
023126
023134
023142
023150
023154

104401
012737
012737
012737
004437
005752

042051
177777
177777
047301
020454

1322
1323
1324
1325
1326
1327

023156
023162
023164
023170
023172
023176

005737
100455
005737
100452
005737
100447

001364

}%gg 023012

}%}; 023120

000207

000374
177777

1%:

004434
004436
004440
000374
177777

042041
177777

2$:

001406

042012

FUNCT?7:
1%:

2%:

006132
000402
001205

3%:

000010

4%:

036425
.

001205

001346

5%:

001364
001366
001346

MOV
MOV
DEC
BNE
(LR
(LR
MOV
MOV
MOV
DEC
BNE
MOV
MOV
TYPE
MOV

RTS

000040
023462

001366

11-APR-80

TYPE
RDLIN
MOV
MOV
JSR
2%
2%
1%
2%
2%
2%
ASL
MOV
MOV
TYPE
MOV
MOV
TYPOC
TYPE
DEC
BEQ
DEC
BNE
BR
TYPE

RTS

FUNCT8: TYPE
1$:
MOV
MOV
MOV
JSR
TABLES
TST
BM]
TST
BM]
ST
BM]

13:01:23 PAGE

10-23

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

R2
1%

USSAV+4
USSAV+6
#USSAV+8., R
#252.,R2
#-1,(R1)+
R2
2%
(SP)+,R2
(SP)+,R1
LMESG14
#-1,ED1T

LMESG13

(SP)+,R1
#32.,R2
R5,(K.DIG

R2
ADRTBL (R2) ,R1
#258. ,R2
LSCRLF
#10,RS
(R1)+,=(SP)

SEQ 0074

JWORD (TR
JRESET 10 -1

;DECREMENT WORD (TR
:BR IF NOT DONE
sTABLE ADDRESS
:RESET

10 -1

DECREMENT WORD (TR
:BR IF NOT DONE
JRESTORE R1,R2
;DONE MESSAGE
JUPDATE BAD SECTOR FILE AT END OF
JEXIT FORM THE TABCAL CALLING
JMESSAGE ENTER SECTOR #
JREAD THE SECTOR NUMBER
JADDRESS OF READ-IN BUFFER
JMAX VALUE
;CHECK THE READ-IN VALUE

;FOUND THE WORD INDEX
JADDRESS OF THE BUFFER
;WC FOR WHOLE SECTOR INCLUDING HEADER
:CR-LF
;8 WORDS ON A LINE

JCONTENTS OF THE BUFFER
:
sTYPE 2 SPACES
;DECREMENT WORD (TR
;8R IF
FINISH
JSTART ANOTHER LINE ?
;BR IF NOT
:BR IF SO
:CR=LF
sEXIT FROM TABCAL CALLING

LMESG1S
#-1,0S.CYL
#-1,D0S5.TRK
#20161.,SAVSEC
R4 ,PARENT

JRESET ALL INPUT VALUES
:TRACK NUMBER
;BYTE NUMBER
;ENTER THE VALUE FROM KEYBOARD

DS.CYL
6%
DS.TRK
6%
SAVSEC
6%

JUPDATED ?
SEXIT IF NOT
:BR IF NOT UPDATED
:
JBR TO EXIT IF NEG
JEXIT

.BLNKS?
R2
5%
RS
43
3%
LSCRLF

PASS

M
O

OOOO Q—O00O00Q00O
OoO—=00 CONO —=—ON
L=l Jo N = N MNO
WIS
VSN~ NENONES SN
NN
O ~ OO W
NN
-E VP ol a¥ o Yo JV LoV

orocooNOO o

PORINIRININININI
NN 2]
NN (NN
NN N NN N
LpSdaSdaSiaN]
ST VI V] V1,0 V] ~N
WNININNIN)
= — = Oo

OO0 00O0O00O0O000

RMATTER

001346

062704
00077
006204
010437
004537
002430
012604
000704
004537
001424
004537
002430
000207

000002

001346

001346
021602

CMP
BLE

#20161.,SAVSEC
6%

CLR

MOV
MOv

006332

2$:

3%:

R4 ,=(SP)
SAVSEC,=(SP)

(MP
BLOS

5%:

020710
020710

;SAVE Ré
:SAVE SAVSEC

ADD

"2 ,R4

;TRY NEXT

MOv

R4, SAVSEC

;16 BIT

BR
ASR

2%
R4

MOV
CLR
CMP

SECTOR

;LOOPING
;SECTOR ADDRESS
MODE

: INSERT

BLOS
ADD
BR
ASR

5%
N2, R4
3
R4

MOV

s INSET

(SP)+ R4

;RESTORE

1%
RS,SORT2

;LOOPING BA(CK
;SORT BOTH TABLE

JSR

RS,SORT?2

RTS

;RETURN TO SERVICE

;

MOV

RETURN1

OCQ
= o e s
O —=ONON
ANSIN)
b e s |y =t
-~
O —a L OOOMNON
NN
~N~N~N

023334
023340
023342
023346
023350
023352
023356
023360

000205

000060

CHARACTER

(X.0CT:

000067
177770

CMPB
BLO
CMPB
BHI
MOVB

MOV

RETURNI

JSR

RETURNZ2

ANYWAY

LOOP

;sADDRESS OF ASCII

CHARACTER

sCHARACTER

BETWEEN 0-7

JCHECK THE

CHARACTER

;sCHARACTER

IS NOT

IN RZ2 AS A

(R1),#'0
1%
(R1),#'7
1%
(R1) ,R2

;LESS THAN ZERO?
JYES
JGREATER THAN SEVEN?
JYES
*
;GET THE CHARACTER

(RS)+
RS

sADJUST FOR RETURN
JRETURN

IS USED

NOT FOUND

;OCTAL DIGIT

#*C7,R2

TST
RTS

;AND DETERMINE
s CALL

RS,Cx.0CT

RE TURNZ

sTHIS ROUTINE

BETWEEN O AND

#ADR,R1

JSR

BIC
1$:

IS A DIGIT

18 BIT

BR
JSR

BAD16+8.

18 BIT

INTO TABLE

sTHIS ROUTINE 1S USED TO CHECK IF AN

SECTOR ADD

;BR 1F FOUND
;TRY NEXT SECTOR IF
;LOOPIN BACK
;SECTOR ADDRESS

R4, SAVSEC

BAD18+8.

:ASCI]
s CALL

BAD

INTO TABLE

(SP)+,SAVSEC
;LOCATE SECTOR FOR
R4
JRESET INDEX VALUE
SAVSEC,BYTE18(R4)
;USE TABLE

JSR
RS, INSERT
BAD18+8.
6$:

;700 LARGE ?
:BR IF SO,EXIT
; INDEX STARTS FROM 0

JSR
RS, INSERT
BAD16+8.

006432

SEQ 0075

SAVSEC,BYTE16(R4)
;LOCATE THE SECTOR ADDRESS
3%
;BR IF FOUND

MOV

LYl

001346

001346
021602

NN N (¥

NN NN
AN
e A
U L W U L AN U
W L

000002

S ~NOO
O
OW
WwWH~

023316
023322
023324
023330
023332

MACRO v03.01 11-APR-80 13:01:23 PAGE 18-24

001346

- NN

—000
OoONO
—

001624

047301

L A

OO 000000 00 NN NNNNNNNNO oo oo O O VNNV
N S (V] N—= OV
W= OV
NN
NN -2 OO OO ~NO
NV

dddddddddd-‘dd—‘fl-‘flddddd‘dddddddaadddddddddddd-‘dddd‘ddadd —

IV ] AN AN N N NN NN NN LY d ol el o ol 2ad N L IV IV (W IV T (W VIV ~
NNV »n & P 2P 2k 2@ VIV IV IV VIV
TV TV TV 1) nJ
LN —=O O 0O ~NO N W~ OOV NO N
LN — OO oo

CZRMLAD RMO5/3/2
SUPPORT SUBROUTI N

I1F

TO CHECK

;STRIP AWAY THE ASCII

AN ASCI]

CHARACTER

IS A DIGIT BETWEEN O AND 9.

#ADR,R1

RS,CK.DEC

+ADDRESS OF

ASCI]

CHARACTER

;CHECK THE CHARACTER

:NOT BETWEEN O AND 9

;BETWEEN 0 AND 9
;R2 = DIGIT

CZRMLAO RMO5/3/2 FORMATTER

SUPPORT

1385
1386
1387
1388
1389
1390
1391
1392
}ggz

SUBROUTINES

023362
023366
023370
023374
023376
023400
023406
023406

121127
103407
121127
101004
111102
042702
005725
000205

000060

MACRO v03.01

11-APR-80 13:01:23 PAGE 10-25

(K.DEC:

000071
000060

1%:

(MPB
BLO
CMPB
BHI
MOVB
BIC
ST
RTS

(RV),#'0
1%
(R1),#'9
18
(R1),R2
#'0,R2
(RS)+
RS

SEQ 0076

:LESS THAN ZERO?
JYES
;GREATER THAN NINE?
JYES
;GET THE CHARACTER
;STRIP AWAY THE ASCII
;ADJUST FOR RETURN
;RETURN

1395
1396
1397
1398
1399
1400

;THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO
;DETERMINE WHAT 1T IS.
; CALL
;
MOV
#ADR,R1
;ADDRESS OF ASCII CHARACTER
;
JSR
RS,CK.CHR
:CHECK CHARACTER
;
RETURN
ADR1
:UNKNOWN CHARACTER

16404

1401
1402
1403
1405

}289
1408 023410
1409 023412
1410 023414
1411 023420
1412 023422
1413 023426
1414 023430
1415 023434
1416 023436
1417 023442
1418 0234644
1419 023446
1420 023450
1421 023452

1422 023454
1423 023456
}252 023460

;
;
;

RETURN
RETURN
RETURN

ADR?
ADR3
ADR&

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

;

RETURN

ADRé

;DIGIT BETWEEN 8 AND 9.

RETURN

:
10571
001417
121127
001413
121127
001407
004537
000410
004537
005725
005725
005725
005725
005725

005201
011505
000205

CK.CHR:
000054
000056

023362
023334

1$:

28:
3s:

TSTB
BEQ
CMPB
BEQ
CMPB
BEQ
JSR
BR
JSR
ST
TST
ST
ST
ST

INC
MOY
RTS

($:

ADRS

(R1)
3s
(R1),#',
2%
(R1),#'.
1%
RS,CK.DEC
43
RS,CK.OCT
(RS)+
(RS)+
(R5)+
(RS)+
(RS)+

R1
(RS) ,RS
RS

1426

;THIS ROUTINE CHECKS AN ASCII

1429

}255

14636
4

010446

010346
010246

CALL

MOV

;
:
:
:
:
:

MOV
JSR
RETURN
RETURN
. RETURN
RETURN

RETURN

}4;;

1440 023464
1441 023466

:R2 = DIGIT * (R1)=ADR+1
;""CARRJAGE RETURN''?
;YES
;"COMMA'"?
JYES
:"'PERIOD'"?
JYES
JDIGIT'TM
:NO
:0CTAL ?
;DIGIT BETWEEN 8-9
;DIGIT BETWEEN 0-7
;PERIOD
; COMMA
; CARRIAGE RETURN

;MOVE POINTER TO NEXT CHARACTER
:UNKNOWN CHARACTER
:RETURN
STRING FOR LEGAL

:EgARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2.

1430
1431
1432
1433
1434
1435

1439 023462

;:DIGIT BETWEEN 0 AND 7.

RETURN

(K.DIG: MOV
MOV
MOV

#ADR,R1

#NUM,R2
RS,CK.DIG
ADR1
ADR2
ADR3
ADR4

;ADDRESS OF ASCIZ STRING

;MAX. MAGNITUDE OF INPUT NUMBER
;CHECK DIGITS
:"'CR"* ONLY ENTERED -- R2=0
;"'PERIOD'' ONLY ENTERED -- R2:=0
;JLLEGAL CHARACTER OR INPUT TOO LARGE == R2-?
'CR'' == R2 = NUMBER

]
¢
.

ADRé6

:'PERIOD’* -- R2 = NUMBER

{

Ré4,=(SP)

:SAVE R4

ADRS

R3,-(SP)
R2,-(SP)

:"'COMMA'’ == R2 = NUMBER
:SAVE R3
;SAVE THE MAX.

SIZE ON THE STA(K

CIRMLAQ RM05/3/2 FO RMATTER

SUPPORT

1442
1443
16464
16445

SUBROUTINES

023470
023472
023476
023476

023502
023504
023506
023510
023512
023514

1646 023516

1447 023522

1448 023526

1649
1450
1451
1452
16453

1454
1455
1456
1457
1458
1459
1460
1461
1462
16463
16464
1465
1466

023526
023530
023532
023534
023536

023542
023544
023546
023550
023552
023554

023556
023560
023562
023564
023506
023570
023572
023574
023579
023600
023602
023604
023606

1467 023610
1468 023612
1469 023614

}2;? 023616

1472
1473
1485
1486

005002
005003
005004
004537

023576
023604
023576
023600
023516
023516

062705

006303

023602
023566
023564
023556
023522
023522

105711
001010
5724
005724
005724
020316
002004
000402
005725
005725
060405
010302
005726

11-APR-80

CLR
(LR
(LR
JSR

023410

000004

010346

006303
006303
062603
060203
004537

MACRC v03.01

63
9$
63
7%
18
1%

1%.

ADD

2$:

ASL

MOV

023410

3
5%:

6$:
7%:
8$:
9% :

012603
012604
011505
000205

¥4 RS

R3,=(SP)

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

1STB
BNE
1ST
187
TST
(MP
BGE
BR
1ST
ST
ADD
Mov
TST

(R1)
8%
(R4)+
(RG)+
(R&L) ¢
R3, (SP)
9%
8%
(R5)+
(R5)+
R4, RS
R3,R2
(SP)+

MOV
MOV
MoV

RTS

10-26

R
R3
R4
RS,CK.CHR

ASL
ASL
ADD
ADD
JSR

8$
5%
49
3%
2%
2$

3%:

13:01:23 PAGE

(SP)+,R3
(SP)+,R&
(R5),R5

.SBTTL

MACRO ROUTINES

.SBTTL

ERROR HANDLER ROUTINE

SEQ 0077

;START WITH 0

;CHECK ONE CHARACTER

s JLLEGAL CHARACTER
:CARRIAGE RETURN
LY
S
;DIGIT Q-7
:DIGIT 8-9

;STEP RETURN POINTER PAST ''CR'' & "'PERIOD'' RETURNS

: INPUT NUMBER #2

:SAVE

L
:*8
;(%2)+(#8) = 10
;UPDATE THE INPUT NUMBER
;CHECK ONE CHARACTER

:JLLEGAL CHARACTER
: CARRIAGE RETURN
A
L
;DIGIT Q-7
;DIGIT 8-9

;DOES A ''CR'' FOLLOW THE ‘‘PERIOD'’
;BR IF NOT
s INCREMENT THE RETURN
s INCREMENT THE RETURN
: INCREMENT THE RETURN
;CHECK THE MAGNITUDE OF THE NUMBER
;BR IF ENTERED NUMBER TOO LARGE
:BYPASS INCREMENT
s INCREMENT RETURN PAST INVALID RETURN
s INCREMENT RETURN
;SETUP RETURN POINTER
SENTERED VALUE
:CLEAN MAX, SIZE OFF OF STACK

;RESTORE R3
;RESTORE R4
;GET RETURN ADDRESS

;RETURN

"'tl'tlltt.tlt""'ti"""t"ttt'ttt.!tttt'tlttl'ttttlt'.t.t"t!

;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
«*AND GO TO TYPERR ON ERROR
;*THE

SWITCH OPTIONS PROVIDED BY

s *SW15=1
. *SW13=]
;*SW10=1

; *SW09-=1
s*CALL

THIS ROUTINE

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR

LOOP ON ERROR

ARE:

CIRMLAO RMO5/3/2 FORMATTER

ERROR HANDLER ROUTINE

MACRO v03.01
o

1487
1488
1489
1490
1491

023620
023620
023622
023626
023632
023640
023646
023652
023654
023660
023664
023670
023676
023676
023704
023712
023714
023720
0237264
023730
023736
023744
023752
023754
023760
023764
023764
023772
0237764
024002
024006
024007
024010
024012
024016
024020
026022
0264024
024032
024034
024040
024044
8%28?3

122737
001007
113737
004737
000
000
000777
005777
100002
000000
104407
032777
001402
013716
005737
001402
013716

024052

000002

104407
010137
010337
013737
113737
005737
001406
0137646
162716
013637
105237
001775
013777
032777
001402
104401
005237
011637
162737
117737
032777
001004
004737
104401

$ERROR:

001370
001372
005552
005551
005564

001116
002000
001200
001126
001132
000002
155170
020000

7$:
155252
155242
18:

001132
001130
155202

024054
001205
000001

001230

001130
024656

024006

001000

001124
001176
001176

208:

21%:

22%:
2$:

155136

155122

3$:

($:
s

ERROR

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

CKSWR
MOV
MOV
MOV
MOvVB
TST
BEQ
MOV
suB
MOV
INCB
BEQ
MOV
8l1
8tQ

:: TEST FOR CHANGE IN SOFT-SWR
R1,DDRIVE
;DRIVE ADDRESS IF DRIVE ERROR CALL
R3,ATIN
JATTENTION REGISTER CONTENTS
FMTDPB+12,DS.CYL
;CURRENT CYLINDER ADDRESS
FMTOPB+11,DS.TRK
;REQUESTED TRACK ADDRESS
RM.REG+RMBA
sNON-ZERO BUFFER ADDRESS ?
7%
;BR I1F NO BUFFER ADDRESS
RM.REG+RMBA,-(SP)
;BUFFER ADDRESS
N2, (SP)
+DECREMENT THE ADDRESS
@(SP)+ ,$GDDAT
;GET THE BUFFER WORD WHICH DIDN'T (OMPARE
S$ERFLG
:sSET THE ERROR FLAG
7%
s:DON'T LET THE FLAG GO TO ZERO
$TSTNM QDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG
#BIT10,3SWR
;.BELL OMN ERROR?
1$
::NO - SKIP

TYPE
INC
Mov
SuB
movae
BIT
BNE
JSR
TYPE

,$BELL
SERTTL
(SP) ,SERRPC
#2,$ERRPC
a$ERRPC,$I1TEMB
#BI1T13,3SuWR
20%
PC,TYPERR
+SCRLF

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

CMPB
BNE
Move

NFAPTENV, SENV
2%
$ITEMB,21%
PC,BATY4
0
0
22%
aSWR
3%

s :RUNNING IN APT MODE
;.NO,SKIP APT ERROR REPORT
;:SET ITEM NUMBER AS ERROR NUMBER
:.REPORT FATAL ERROR TO APT

JSR
.BYTE
BYTE
BR
TST
BPL
HALT
CKSWR
BIT
8kn
Mov
1ST
BEQ
Mov

#BIT09,3SwWR
3
$LPERR, (SP)
$ESCAPE
5%
$ESCAPE, (SP)

RTI

;;STRIP AND SAVE THE ERROR ITEM (CODE
¢ SKIP TYPEOUT IF SET
;. SKIP TYPEQUTS
::G0 TO USER ERROR ROUTINE

::APT ERROR LOOP
;:HALT ON ERROR
;. SKIP 1F CONTINUE
;;HALT ON ERROR!
;o TEST FOR CHANGE IN SOF T-SWR
:;LOOP ON ERROR SWITCH SET?
::BR IF NO
;.FUDGE RETURN FOR LOOPING
;s CHECK FOR AN ESCAPE ADDRESS
;.BR IF NONE
:;FUDGE RETURN ADDRESS FOR ESCAPE
: ;RETURN

l
:THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE
;WHICH ERROR IS TO BE REPORTED, IT THEN OBTAINS, FROM THE "'ERROR
;TABLE'® (SERRTB), AND REPORTS THE APPROPIATE INFORMATION
<CONCERNING THE ERROR.
;

}43%
4

1494 024056
16495 024056
1496 024060

001364
001366

005564
000002
001140
001117

11-APR-80 13:01:23 PAGE 10-27

104412
005000
113700

TYPERR:
001130

SAVREG
(LR
MovB

RO
$1TEMB,RO

;SAVE RO-RS
sCLEAR RO FOR ERROR NUMBER
; ERROR NUMBER

SEQ 0078

CIRMLAQ RMO5/3/2 FC’ MATTER

ERROR HANDLER ROUTIN.

NIRNINININ) = 2 et bt el e et et 2 s O O OO OO
XV
P 3
PN OONO
NS NN —OO~[«
NN
WV

1064401
106401
000000

012037
001404

104401
1046401
000000
012001
001460

DEC

ASL
ASL
ASL
ADD
MOV

006526
024114

024613¢

2%:

001205
43

1 ¥

005005

012000

012002
001451
005105
104401
112003
112004

006004

7%:

103403

013146
1046402

000402

8%:

013146
104405

005303
001403
104401

000764
005302
003431
106401

005760
001404
005105
001002
104401
012037
1046401

000000
005710
001003
062700
000754

:
9%

036425
10%:

001205
000002

(RO)+,2¢

;''EM'" POINTER GOES MERE

BEQ

;PI1CK UP DATA HEADER (DM) POINTER
;BR IF NONE

:"'DH'' POINTER GOES HERE

14%

sNUMBER OF DH'S TC TYPE
;BR IF DH NUMBER [S 0
+NO INDENT

MOV

TYPE
TYPE
.WORD

MOV

BEQ
CLR

TYPE
MOVB
MOv8
ROR
BCS
MOV
TYFOC

(RO)+,46%

JSCRLF

(RO)
¢+ ,R1
15%
RS
(RO)+,RO
(RO)+,R?2
RS

LOCRLF

(RO)+,R3
(RO)
¢+ ,R4

a(R1)+,=-(5P)

MOv
TYPDS

a(R1

DEC
BEQ

12%:

13¢:

104401
000727

036425

149%:

:DATA FORMAT

;CARRIAGE

sAND HOW TO TYPE

TYPE

TST
BNE

TYPE

FEED

THEM

;OCTAL OR DECIMAL?
;DECIMAL
:.SAVE @(R1)¢+ FOR TYPEOQUT
:.60 TYPE--OCTAL ASCII(ALL DIGITS)

;. SAVE @(R1)+ FOR TYPEOQUT
;.60 TYPE=-=DECIMAL ASCII WITH SIGN
;MORE NUMBERS T0 TYPE?

:NO

sONLY A

PQINTER

RETURN-LINE

TYPE
1ST

TYPE
MOv
TYPE
.WORD
TST

(DF)

:NUMBER UF DATA WORDS TO TYPE

:MSRE DH'S?

ADD

001205

;PICKUP DATA TABLE (DT) POINTER
;BR IF NONE
;SET INDENT SWIT(H

sTYPE 2 SPACES

JLOOP

BLE

BNE

000004

*,=(SP)

;CARRIAGE RETURN-LINE FEED

TYPE
BR
DEC

;N
JYES==START

'DH'

A NEW LINE

IN THIS REQUEST

sBR IF YES - BYPASS THE
; INDENT?

BNE
11%:

;FORM ADDRESS

+SCRLF

8eQ

104401

005705
001332

#SERRTB, RO

com

036425
024246

TABLE

TYPE
TYPE
.WORD

BEQ
COM

6%:

INDEX FOR ERROR

;GET ERROR MESSAGE (EM) POINTER
;BR IF THERE ISN'T ONE
:"'CARRIAGE RETURN - LINE FEED

MOV
MOV

001205

SEa 0079

BEQ

001205

10-28
;FORM

STYPE 2 SPACES
JGET NEXT DM
;AND

TYPE

:DH POINTER GOES HERE

;TYPE A

'DT*

:BR IF A DT’

: INCREMENT THE °‘'DF' POINTER
;SEE IF END OF 'DF' BLOCK
sCARRIAGE RETURN-LINE FEED
s INDENT?

;NO

TYPE 2 SPACES

.LOOP

INDENT

:NO

P
) il
—l

il arld il el

D il il il el il il el

) el sl B

el il il B

LV IV IV IV IV IV IV IV IV IV IV IV IV IV IV IV TV IV T IV IV IV IV

WNES B85 883NN
N N N NN NN NI O N
OCO®NO VB W =O OV - JOWNSWN
OO0~

)
=
)
=l
el
=

AAUAAA VA VAW

)
)
)

AN AN

el
=
b
=

AN
WA

)
)
=

LAA AN VAW

=l
s

005300
006300
006300
006300
062700
012037
0016046

11-APR-80 13:01:23 PAGE

Ore
Dy
—W——~O
PAPDPNPO
N ND
>oOo

024064
024066
024070
024072
024074
502 024100
03 024104
024106
026112
026116
024116
024122
024124
024130
024132
024134
024136
024140
024142
024144
024146
024150
026152
0246156
024160
024162
026164
024166
024170
024172
0246176
026174
024176
024200
024202
024204
024210
024212
024214
024216
024222
024226
024230
024232
024234
024240
024244
024246
024250
024252
0242564
024260
024262
024266
024270
024272
024276

1497
1498
1499
1500
1501

MACRD v03.01

CIRMLAQ RMOS5/3/2 FORMATTER
) 59
1 22
1
\ 55

5N
—

ERROR HANDLER ROUTINE

024300
024302

MACRO v03.01

104413
00007

11-APR-B0 13:01:23 PAGE

15%:

RESREG

.SBTTL

RTS

TYPE

ROUTINE

10-29

SEQ 0080

;RESTORE RO-RS

sRETURN

":."'t"""""""'""'""""'I'."""""""'""""'..

;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

J*NOTE:
;*NOTEZ:
s *NOTES3:

L9NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CMARACTER.
S$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
S$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

‘¥

.*CALL:
:*1) USING A TRAP INSTRUCTION
o
TYPE
MESADR
.*0R

024304
0246310
024312
024314
024316
024320
024324
024332
024334
024342
024344
024350
0243564
024356
024364
024366
024370
024372
024374
024376
024402
024404
024410
024412
024416
024420
024422
024424
024426
024432
024434
024440
026444
026446

026452
024456

105737

00
132737
00
010037
00
00
1 132737
00

001173

001230

000100

001231

024354
024646
000040

MESADR

$TYPE:

T1S718B
BPL
HALT
BR
MOV

MOV

(MPB
BNE
8118
BEQ

MOV

001231

61%:
62%:
2%:

TYPE

1%:

000002
000001

000002

60%:
3%

000011

4%:

000200

JSR
.WORD
BI18
BNE

Mov8e

024634
024516
001172

5¢:
6%:

001170

000001

7%:

$TPFLG
1%

RO,=(SP)
92(SP) RO

lA:TENV,SENV

#APTSPOOL ,SENVM

629

RO,61%
PC,SATY3

#APTCSUP,SENVM

60%

ANt

(RO)+,-(SP)
3

MOV
ADD

(SP)
¢ ,RO
#2,(SP)

=7 187

RT]
(MPB

(SP)+

;1S THERE A TERMINAL?
J:BR IF YES

JoHALT

. LEAVE

HERE

IFf

TERMINAL

;:SAVE RO
J.GET ADDRESS OF ASCIZ STRING
J:RUNNING IN AFT MODE
JiNO,GD CHECK FOR APT (ONSOLE

;:SPOOL MESSAGE TO APT
JiNO,GO CHECK FOR CONSOLE
;SETUP MESSAGE ADDRESS FOR APT
;:SPOOL MESSAGE TO APT
;sMESSAGE ADDRESS
. sAPT CONSOLE SUPPRESSED
;:YES,SKIP TYPE QUT
;;PUSH CHMARACTER TO BE TYPED ONTO STACK

J:BR IF IT ISN'T THE TERMINATOR
J;1F

TERMINATOR POP

;;RESTORE RO
;;ADJUST RETURN P(
; ;RETURN

IT OFF

;:BRANCH JF

#FCRLF, (SP)

;;BRANCH 1F NOT <(CRLF>

(SP)+

$CRLF
CLRB
BR

:sPOP <CR><LF> EQUIV
:;TYPE A CR AND LF

$SCHARCNT

;s CLEAR CHARACTER COUNT
JGET NEXT CHARACTER
;.60 TYPE THIS CHARACTER

BNE

BEQ
CMPB
BNE
187

8$
5%

JSR
(MPB

PC,8TYPEC
SFILLC,(SP)+

MOV

$NULL ,=(SP)

DE(B
B8LT

1(SP)

THE

STACK

<HT>

WFHT, (SP)

TYPE

37
000755
004737
123 726
50

;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

;1S IT TIME FOR FILLER CHARS.?
Jo1F NO GO GET NEXT CHAR.
J:GET # OF FILLER CHARS. NEEDED

;;AND

THE NULL

CHAR.

;:DOES A NULL NEED TO BE TYPED?
;;BR IF NO--GO POP THE NULL OFF OF

STAC(K

CIRMLAD RM0OS5/3/2 FORMATTER

TYPE

ROUTINE

11-APR-80 13:01:23 PAGE

O~~~

024460
0246466
024470

MACRO v03.01

JUR
DECB
BR

PC,STYPEC
SCHARCNT
7%

10-30

SEQ 0081

;60 TYPE A NULL
;:D0 NOT COUNT AS A COUNT
.. LOOP

\FTe Yo Yo J, V)

Y o POV I P )

WNNNWN
O =y~

O~NNNO
— et fS N

[o ke o Yo AV L VI

OO0 —O—

O
-00
—_ PN NO W

QOOO
~s =

154436

ONSH =200
= PN NO W

000040
024516
000007

[

026472
024476
024502
026510
024512
024514
026516
026516
024522
024524
024530
024534
026540
024542
0265642
026546
024550
024554
024560
026564
024566
026566
024570

QOOWO
—
OW—aro~r

JHOR]IONTAL TAB PROCESSOR

154432
177600

000023
101%:

154412
1564406
177600
000021

000002
000015

10%:
156362

000002

024634
000012

000002

[
XV,]

024630
024632
024634
024636

1$:

MOVB

JSR
BlTB
BNE
187
B8R
1878
BPL
MOV

£,

(SP)

PC,ETYPEC

#7 $CHARCNT
9%
(SP)¢

s TKS
108
as$TkB, - (SP)

JJREPLACE

;;BRANCH JF

J;CHAR

IN KYBD BUFFER?

;.BR IF NOT

;:6ET CHAR
J:STRIP EXTRANEOQUS B]TS

#SXOFF
, (SP)
102%

;:BR

1578
BPL
MOve

a%7xs

J:WAIT

88 TKkB, (SP)

NOT AT

;:TAB STOP
;:POP SPACE OFF STA(K
J:6ET NEXT C(HARACTER

9177660, (sP)

101%

TAB WITH SPAC(E

J:TYPE A SPACE

BIC
(MPB
BNE

J.WAS

CHAR

XOFF

FOR

(MHAR

NOT

J:GET (MAR

8l(
(MPB

BNE

#177600, (SF)
#$XON, (SP)
101%

;:WAS |T XON?
;.BR ]F NOT

1ST

(SP)+

b IX

1518
BPL
MOVB
(MPB
BNE
CLRB
BR
(MPB

asT1Ps

soWAIT UNTIL PRINTER |S READY

2(SP),a$71PB

J:LOAD CHAR T0 BE

10%

BEQ
INCB
SCHARC
: .WORD
NT
$TYPEX: RTS
.SBTTL

APT

#(R,2(SP)
1%
SCHARCNT
$TYPEX
WLF,2(SP)
$STYPEX
(PC)+

J.SIRIP

STACK

TYPED INTO DATA REG.
;1S CHARACTER A (CARRJAGE RETURN?

;sBRANCH

::EE?;-CLEAR CHARACTER (OUNT

2:1S CHARACTER A LINE FEED>
JsBRANCH

YES

;. COUNT THE (MHARACTER

.. CHARACTER

COUNT

STORAGE

COMMUNICATIONS ROUTINE

NN
- NONOO

(WHIVIIV TVD o o

MO MNN
NS~
— )= NOO
ONSN=O

024656
024664
026664
026666
024670
024674
024676
024704

WO NN

;:"'..'.'...".""""'l""'...'..'."'.lt"t"'tl"t'.'ttltt'

024640
024646
024656

- OO b b
- ) b

STYPEC:

154370

024604
024612
024614
024620
024622

ron

026634

9%:

102%:

024570
024574
024576

8%:

000001
000001

025104
025102

$ATY1:
$SATY3:

000001

025104

$ATYL:
SATY(:

025102

000001

001230

MOVB
MOVB
BR
MOVB

#1,8FFLG
1, SMELG

;.70 REPORT FATAL ERROR
;.10 TYPE A MESSAGE

M1,S8FFLG

;.70 ONLY REPORT FATAL ERROR

MoV
MOV
1518
BEQ
(MPB
BNE

RO,=(SP)
R1,-(SP)
SMFLG

;sPUSH RO ON STACK
;:PUSH R1 ON STA(K
s SHOULD TYPE A MESSAGE?
B8R
;:1F NOT:

J:1F NOT:

SATY(

FAPTENV,SENV

; sOPERATING UNDER APT?

CIRMLAQ RMO5/3/2 FORMATTER

APT

COMMUNICATIONS ROUTINE

132737
001428
017600
062766
005737
001375
010037

0247646
02647646
026752
026754
024760
026766
026770
0264776

001376
163700
006200
010037
012737
000413
017637
062766

001226
0000064

00°210

000006
000002

025014
000004

025010

004737

024306

025006

025014
025016
025016
025022
025024
025030
025032
025036
025040
025046
025056

025060
025064

025070
025076
025076
025100
025102
025103

025104

1558

105720

013746

000000

105737
001416
005737
001413
005737
001375
017637
062766
005237

105037
105037
105037
012601
012600
000207
000
000

000

000200
000001
000100

000040

11-APR-80

000100

001231

000004
000002
001210

(00004

001224

1%:

001224

177776

3$:

001230
001210

025104
025103
025102

10-31

BITB
BEQ
MOV
ADD
ST
BNE
MOV

WAPTSPOOL,SENVM
3%
24 (SP) RO
#2,4(5P)
SMSGTYPE
1%
RO, $MSGAD

BNE
SUB
ASR
MOV
MOV
BR
MOV
ADD

28
SMSGAD , RO
RO
RO, SMSGLGT
#4 SMSGTYPE
5$
34 (SP) .48
#2,4(SP)

JSR

.MORD

PC,STYPE

S:CALL TYPE MACRO

1STB
BEQ
3
BEQ
ST
BNE
MOV
ADD
INC

$FFLG
129
$ENV
12%
SMSGTYPE
1%
?4(SP) ,$FATAL
#2,4(SP)
SMSGTYPE

:;SHOULD REPORT FATAL ERROR?
;:]F NOT:
BR
::RUNNING UNDER APT?
::1F NOT:
BR
S:FINISHED LAST MESSAGE?
SIF NOT:
WAIT
::GET ERROR #
::BUMP RETURN ADDR.
;:TELL APT TO TAKE ERROR

118

MOV
48:
5%
108 ;

025104

0000064
000002
001210

13:01.¢3 PAGE

SFQ 0082

026706
02647164
0264716
024722
026730
026736
0264736

026762

MACRO v03.01

118:
001212
000004

128:

SMELG:
SLFLG:

$SFFLG:

CLRB
CLRB
CLRB
MOV
MOV
RTS
.BYTE
.BYTE

'E'EE

.EVEN

(RO)+

170776 ,-(5P)

$FFLG
S$LFLG
$SMFLG
(SP)+,R1
(SP)+.RO
PC
0
O

;:SHOULD SPOOL MESSAGES?
;:1F NOT:
BR
$:GET MESSAGE ALDR.
::BUMP RETURN ADDR.
;;SEE 1F DONE W/ LAST XMISSION?
STF ONOT:
WAIT
$:PUT ADDR IN MAILBOX

$:FIND END OF MESSAGE

;:SUB START OF MESSAGE
;:GET MESSAGE LNGTH IN WORDS
S:PUT LENGTH IN MAILBOX
S:TELL APT TO TAKE MSG.

::PUT MSG ADDR IN JSR LINKAGE
- -BUMP RETURN ADDRESS

::PUSH 177776 ON STACK

S:CLEAR FATAL FLAG
1:CLEAR LOG FLAG
::CLEAR MESSAGE FLAG
1:POP STACK INTO RI
$:POP STACK INTO RO
S RETURN
$IMESSG. FLAG
21006 FLAG

S:FATAL FLAG

APTSIZE = 200
APTENV
= 001
APTSPOOL= 100

APTCSUP = 040

.SBTTL

BINARY TO OCTAL

(ASCII) AND TYPE

"'°'tt.'I..'.'..'.""""""'"'..""'ll".tl..'lt.'ttlttt""t

¢*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER 10 A 6-DIGIT
;*OCTAL (ASCII) NUMBER AND TYPE IT,

;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF
soCALL:
NUM,
- (SP)
MOV
.t
J:NUMBER TO BE TYPED

.*
o
.‘.

TYPOS

.BYTE
BYTE

;. CALL
;:N-1

FOR TYPEOQUT

TO 6 FOR NUMBER OF

::M-1 0RO

J:1=TYPE

DIGITS

LEADING ZEROS

TYPE

TO TYPE

;:0=SUPPRESS LEADING ZEROS

TO OCTAL

(ASCII)

AND TYPE

11-APR-80 13:01:23 PAGE

10-32

SEQ 0083

:*$TYPON=--=-ENTER HERE TO TYPE CUT WITH THE SAME PARAMETERS AS THE LAST

;*$TYPOS OR $TYPOC
JwCALL:
L4
MOv
NUM,
= (SP)
TYPON
]

::NUMBER 10O BE TYPED
¢ CALL FOR TYPEOUT

Se$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 81T NUMBER
NUM,
= (SP)

;.NUMBER TO BE TYPED
;. CALL FOR TYPEOUT

$TYPOS:

MOV
MOvB
MOvB
ADD

::P1CKUP THE MODE
JLOAD ZERO FILL SWITCH
J+NUMBER OF DIGITS TO TYPE
:sADJUST RETURN ADDRESS

—

$TYPOC:

$STYPON:

MOVB
MOvVB
MOvB
MOv
MOV
MOV
Movs
NEG
ADD
MOvB
MOvB
MOv

a(SP),=(SP)
1(SP) ,SOFILL
(SP)+,$0MODF
+1
#2,(SP)
$TYPON
#1,80F1LL
#6,$0MODE
+1
#5,800NT

N NN
NN

OO0

000001
000006
0v0005

MOv
TYPOC

02535

(Vo AV IV,

000000
000001
025333
000002

(a8 1,9]
V]

NN = =
2 QOO NN
OOV
D NWNNIN —~ O
NOO SO SO, OONO
SO ONO SO

PORNIPINININININD
acd b o coad e eid o o oo e o
b o ah b

.oCALL:

jelolclelololalolololalole] jelelclolololelolola
A A 1AV 1 T, N1 ST, N1, VT N1, ST, U1 ST 1,1 V1,V 1 1 V71 V1.VT
AL NS SN WA AN VA VWA UVNN WD WU

BINARY

MACRO v03.01

025333
437

000006
025332
025331
000012

CLR

1%:

ROL

2%:

ROL
ROL
ROL
MOV
ROL

025332

177770

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

RS,=(SP)
$OMODE +1,R4
R4
"6, R4

R4, $OMODE
$OFILL,R4
12(SP) RS

000060
000040
025326
025326
025330

5¢%:
7%:

$OMODE
7%

6%:
016666

000002

000004

J:SUBTRACT 1T FOR MAX. ALLOWED
;.SAVE 17 FOR USE
J;GET THE ZERO FILL SWITCH
;.PI1CKUP THE INPUT NUMBER
;sCLEAR THE OUTPUT WORD

J:GET LSB OF

;. TYPE

THIS DIGIT

THIS DIGIT?

;;BR IF NO
;sGET RID OF JUNK

;sMAKE

THIS DIGIT

ASCII

;;MAKE ASCI] IF NOT ALREADY
;:SAVE FOR TYPING
;.60 TYPE THIS DIGIT
::COUNT BY 1
;i8R IF MORE 10 DO
::BR IF DONE

MOVB
TYPE

MOV
MOv
MOV
MOv

DIGITS TO TYPE

JJTEST FOR O
;s SUPPRESS THIS 0?
;:BR ]F YES
;;DON'T SUPPRESS ANYMORE 0°'S

BEQ
INC
BIS
BIS

DECB
BGT
8LT
INC
BR

J:GET THE NUMBER OfF

;:60 DO MSB
J;FORM THIS DIGIT

BNE
IST

4%:

J:SAVE RS

J:ROTATE MSB INTO ¢

DECB
BPL
BI(

;oSET THE IERO FILL SWITCH
;SET FCR SIX(6) DIGITS
;sSET THE ITERATION COUNT
;:SAVE R3
;:SAVE Ré

¢+ R4
(SP)

;o INSURE LAST DIGIT ISN'T A BLANK
;.60 DO THE LAST DIGIT
;JRESTORE RS
;;RESTORE R4

2(SP) ,4(SP)

;:SET THE STACK FOR RETURNING

(SP)+,RS

(SP)+ R}

;:RESTORE R3

—

CIRMLAD RM0OS/3/2 FORMATTER

(ASCI])

012616
000002

AND TYPE

MACRO v03.01

11-APR-80
MOV
RT]

8%:

.BYTE

13:01:23 PAGE
(SP)+,(SP)

$OCNT:
$OFILL:
$OMODE:

.BYTE
.WORD

LSB8TTL

CONVERT BINARY

10-33

SEQ 0084

: ;RETURN
;s STORAGE FOR ASCII DIGIT

OOO0O0O

TO OCTAL
COOLOOO0O

s TERMINATOR FOR

TYPE

ROUTINE

;;O0CTAL DIGIT COUNTER
JlERO FILL SWIT(H
;JNUMBER OF DIGITS TO TYPE
TO DECIMAL AND

TYPE

ROUTINE

AR AR AR
X
A R
A R R R R X R R E F X E RS R R R
R X RN R R R XX )

;*THIS ROUTINE

IS USED

CHANGE

16-B]T

BINARY

NUMBER

T0 A

5-DIGIT

:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
;*NUMBER ]S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
+*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;*REPLACED WITH SPACES.

seCALL:

$TYPDS:

0046
0146
0246

Ot et Q-2 OQQ =P e ecd e o e
AR
RO AN RO N (=4
l=3=]
ONNO~NS [
AV Vv
ONOOOO (=]
&H
NN
WO O W »~
oo

O—-=00—-0O0—=0000000

025334
025334
025336
025340
025342
025344
025346
025352
025356
025340
025362
025370
025372
025376
025402
(25604
025410
025412
025614
025416
025420
025422
025426
025426
025430
025632
025434
025436
025444
025450
025654
025456
025460
025464
025466
025470
025472

2746

6605

016001

020200
000020
000055

000001

025550
000040

1$:

2%:

025549

3s:

100407

5%:

000001
000060
000040
000010

Mov
TYPDS

MoV
MOV
MOV
MOV
MOV
MOV
MOV

4%:

O = NN
OO

BINARY

S LS TIST VT V1 VT
AASASNSNUNN
W
N LN AN L

CIRMLAD RMOS/3/2 FORMATTER

177777

BPL
NEG
MOVB

(LR

MOV
MOV8

(LR

MOV

SUB
BLT
INC
BR

RO,=-(SP)

RY,-(SP)

R2,=(SP)
R3,-(SP)
RS,=(SP)
#20200,~(SP)

20(SP) RS

1%
RS
#'-,1(SP)
RO
#$0BLK R3

# (RS

nz
$OTBL (RO) R
R1,R5
(3

BCC

BIS
8IS

MOVB

151
(MP
BLT

BGT

MOV

;:PUSH RO ON STA(K

;;PUSH RY ON STACK

::PUSH R2 ON STA(CK
::PUSH R3 ON STACK

;:PUSH RS ON STACK

;sSET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
;;BR IF INPUT ]S POS.

JsMAKE
;:MAKE

THE
THE

BINARY NUMBER POS.
ASCI] NUMBER NEG.

;. lERO THE CONSTANTS INDEX
;;SETUP THE OUTPUT POINTER
J:SET

THE

FIRST

CHARACTER

J:CLEAR THE BCD NUMBER
;.GET THE CONSTANT

TO A BLANK

;.FORM THIS BCD DIGIT

;:BR 1F DONE
;. INCREASE THE BCD DIGIT BY

;. CHECK JF BCD DIGIT=0
;:FALL THROUGH [f O
..SIlLL DOING LEADING 0°'S?

157
BNE

1518
BMI
ASLB

;:PUT ThnE BINARY NUMBER ON THE STA(K
;.60 TO THE ROUTINE

;:ADD BACK THE CONSTANT

ADD

MOVB

7%:

NUM,
- (SP)

63
1(SP),-1(R3)

#'0,R0

R2,(R3)+

(RO+

RO,#10

2%
8¢

RS, R2

,.BR 1F NO
JYES--SET THE SI 6 N
::HAKE THE BCD DI olT I ASCII
JsMAKE 1T A SPACE IF NOT ALREADY A DIGI 1
JPUT THIS CHARAC TER IN THE OUTPUT BUFF ER

;. JUST INCREMENT] NG
;2CHECK THE TABLE IN DEX
;.60 DO THE NEXT DlG I
;.60 TO EXIT
2.GET THE LSD
;.00 CHANGE TO0 ASCII

CIZRMLAOQ RM0S5/3/2 FORMATTER

CONVERT

BINARY

TO DECIMAL

025476
025476
025500
025506
025510
025512
025514
025516
025520
025922

105726
100003
116663
105013
012605
012603
012602
012601
012600
104401

025534
025536
025540
025562
025544
0255646

012616
000002
023420
001750
000144
000012

025526

<61

025550

016666

AND

MACRO v03.01

TYPE

ROUTINE

H
7
11-APR-80 13:01:23 PAGE 10-3¢

8$:
177777

025550

000002

177776

1518
BPL
MOVB
CLRB
MOV
MOV
MOV
MOV
MOV
TYPE

98 :

002004

MOV
$DTBL:

$DBLK:

1562

(SP)+
9%
=1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+.R3
(SP)+ ,R2
(SP)+ R
(SP)+.RO
$DBLK

SBTTL

MOV
RT]
10000.
1000.
100.
10.
.BLKW

TTY

$(SP),4(SP)
(SP)+. (SP)

SEQ 0085

JoWAS THE LSD THE FIRST NON-ZERO?
SIBR IF NO
::-YES-=SET THE SIGN FOR TYPING
*iSET THE TERMINATOR
1:POP STACK INTO RS
S:POP STACK INTO R3
;;POP STACK INTO R?
J:POP STACK INTO R1
S:POP STACK INTO RO
;:NOW TYPE THE NUMBER

TIADJUST THE STACK
;:RETURN T0 USER

INPUT

ROUTINE

.'.‘l'l'.".'.".t""'"""'""'t'."'..'t'...'t.'.".""t""'

025560
025562
025564
025566

"ENABL

000000
000000
000000

LSB

$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
sgxgs~o=.

025575

0
0
0
7

; :NUMBER OF ITEMS IN QUEUE
“UINPUT POINTER
110UTPUT POINTER
::T1Y KEYBOARD QUEUE

.EVEN

;*TK INITIALIZE ROUTINE
;*THIS

ROUTINE

.*SETUP THE
JeCALL:
.

025576
025602
025610
025616
025624
025632
025636
025644

005037
012737
013737
012737
012737
005777
012777
000207

025560
025566
025562
025646
000200
153324
000100

025562
025564
000060
000062

WiLL

INITIALIZE

RETURN

JSR

PC,$TKINT

$TKINT:

CLR
MOV
MOV
MOV
MOV
ST
MOV
RTS

$TKCNT
FOTKQSRT ,STKQIN
$TKQIN,STKQOUT
#STKSRV,#TKVEC
#200,3#TKVEC+2
S TKB
#100,a8TKS
PC

153314
;*TK

THE

TTy

KEYBOARD

INPUT

QUEUE

INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPI

::CLEAR COUNT OF ITEMS IN QUEUE
;:MOVE THE STARTING ADDRESS OF THE
;;QUEUE INTO THE INPUT & OUTPUT POINTERS.
::INITIALIZE THE KEYBOARD VECTOR
::'BR" LEVEL &
**CLEAR DONE FLAG
;:ENABLE TTY KEYBOARD INTERRUPT
:*RETURN TO CALLER

SERVICE ROUTINE

S#THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
“«BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
‘«]T IN THE QUEUE.

“«]F THE CHARACTER IS A '‘CONTROL-C'' (*C) STKINT 1S CALLED AND
;*UPON RETURN EXIT IS MADE TO THE ''CONTROL=C'' RESTART ADDRESS (aCNTL()

025646

025652
025656

117746

042716
021627

153310

177600
000003

‘IKSRV: MovB

BIC
CMP

a$1kB,-(S5P)

l‘(177 (SP)
(sp), 0%

J:PICKUP THE CHARACTER

J:STRIP THE JUNK
“:1S 1T A CONTROL (?

)

CIR MLAO RM05/3/2 FORMATTER
11y INPUT ROUTINE
(oS BN
o
]

NNNNO o

oo o

~ -~

02676
02557

1 5347
000007

NNNNNNNNN

&£
NN
NN
oroo0sroco0oo

ALV LV LV LV LV LV 1V, JV ]

PORRIRORIRIRININ

(VLN ALV LV
LValV

FORORIRINIRORD

jelelelelolololelocBNelolololelele]

025662
025664
5670

MACRO v03.01

1%:

000176

00115¢

000007

025560

2%:

001200
3%:

000023
153206

31%:

153200

153174
177600
000021

000100

BNE
1YPE
JSR
187
JMP
CMP
BNE
cMP
BEQ
(mMP
BNE
TYPE
18T

(MP
BNE

153152

32%:

000175

000040
177522
025562
025562

025575

025566

025562

4(%:

5%:

13:01:23 PAGE

PC,OTKINT

:INIT THE KEYBOARD
;sCLEAN UP STACK
2sCONTROL C RESTART
2318 IT A CONTROL G?
;:BRANCH ]F NO
J:1S SOFT-SWR SELECTED?
;.60 TO SWR CHANGE

#7,8TK(NT

;:1S THE QUEUE FULL?

SCNTLC
(gP),l?

FSWREG, SWR

ssRING THE

5¢

:sBRANCH IF

(SP)+

(*C)

TTvy BELL

::EL??N CHARACTER OFF

(SP),#23

STA(K

;:1S IT A CONTROL=-S?
;:BRANCH ]F NO
J:DISABLE TTY KEYBOARD INTERRUPTS
;:CLEAN CHAR OFF STA(K
JsWAIT FOR A CHAR
J:LO00P UNTIL ITS THERE
;;GET THE CHARACTER
:sMAKE 1T 7-BIT ASCII
215 1T A CONTROL=-Q?
;sBRANCH IF NO
JsREENABLE TTY KEYBOARD INTERRUPTS

32%

(SP)+

asIKs

318

3$7KB,-(SP)
(SP)+,#21
31
#100,3%TKS

;;RETURN

:sCOUNT THIS CHARACTER
;218 1T UPPER CASE?

$TKCNT

(2P),#140

(SP),M175

CONTROL=-C

38
,$BELL

¥AC177,(SP)

MOV
RTI

J:TYPE

(SP)+

BlC
CMP
BNE

INC
CMP
BLT
cMp
BGT
8lC
MOvB
INC
CMP
BNE

SEQ 0086

; :BRANCH ]1F

CJOONTLC

MOV
RTI

10-35

CLR
1ST
1ST8
BPL

Movs

025560
000140

026062

11-APR-80

;;BRANCH 1F

3]
#40, (SP)
(SP)+,3$TKQIN
$TXQIN
gIKQIN,lSTKQEND

YES

2315 IT A SPECIAL (HAR?
::BRANCH IF YES

;sMAKE 1T
JoAND PUT

UPPER CASE
IT IN QUEUE

JJUPDATE THE POINTER
::G0 OFF THE END?
;:BRANCH JF NO
#STKQSRT,$TKQIN ;RESET THE POINTER
; s RETURN

".'t".lt'l't.'Il""""""""'".t't"lt.'t"'.ltl'.l"tt!ttlt

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
FROM THE TRAP HANDLER, AND WILL
:*ROUTINE 1S ENTERED
s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP

L. 6064
C.’ 272
020u74
026100
026102
026106
026112
026116

022737
001124
105777
100121
117746

062716
021627
001300

000176
153060
153054
177600
000007

00115¢

iz:gbk U?gg OPERATING IN TTY
#SWREG,
SWR
BNE
15¢
1518
At TKS
BPL
15%
MOvVB
a$TKB,-(SP)
#AC177,(SP)
BIC
(SP) .07
CMP
BNE
2%

INTERRUPT MODE.

:s1S THE SOFT-SWR SELECTED
J:EXIT IF NOT
215 A CHAR WAITING?
N

;IFSNOT. EXIT
|

2 s MAK E

IT
7-BlT ASCII
.. 1S IT A CONTROL-G?
Jo1F NOT, PUT IT IN THE TTY QUEUE

;AN D

EXIT

""".'l't...l.""""""""""...'..'t..'!.l"'.'lll".!'l"'

CIZRMLAO RMO5/3/2 FORMATTER
INPUT

ROUTINE

11-APR-80 13:01:23 PAGE

10-36

SEQ 0087

;*CONTROL ]S PASSED TO THIS POINT FROM EJTHER THE TTY INTERRUPT SERVICE
;*ROUTINE

001150

¢00001

JSR
CLR

001151

021627

MOv
TYPOC
TYPE

. SMNEW

csFLUSH THE

TTY

INPUT

QUEUE

=(SP)
=(SP)

;s TYPE

;. SAVE

CURRENT

CONTENTS

SWREG FOR TYPEOUT

::G0 TYPE--OCTAL ASCII(CALL DIGITS)
;. PROMPT FOR NEW SWR
;s CLEAR COUNTER
. THE NEW SWR

CLR
CLR
1S16
BPL

a%TKsS
4)

152752
177600

MOvB

a$TKB, - (SP)

::PI1CK UP CHAR

000003

CMP
BNE
TYPE

(SP) ,#3
9$
JOCNTLC

;oIS IT A CONTROL=-C?
; ;BRANCH 1F NOT
J:YES, ECHO CONTROL=-C (*(0)
J:CLEAN UP STACK
J;REENABLE TTY KEYBOARD INTERRUPTS?

152756

7%:

BIC

026767
000006
001151

000001

000100

152710

153120

ADD

8%:

000025

9%:

026774
000006

20%:

000015

10%:

000004
152636

000002
000006
001205
00115

000001

000100

152614

024516
000060

000067
000060

16%:

(MPB
BNE
MOv
JMP

;. CHAR

NAC177,(SP)

¥6,SP

gIN1AG,l1

$
#100,3%7kS
aCNTLC

TYPE
ADD

JsALLOW TTY KEYBOARD INTERRUPTS
;s CONTROL=C RESTART

s BRANCH

0,a87KS

JSR

C,9TYPEC

BGT
BIC

#60, (SP)+

(MP
BLT
(MP

; sBRANCH

301S IT A <CR>?

CMP

BNE

(MPB
BNE
MOv
RTI

;sMAKE IT 7-BIT ASCII

;.15 1T A CONTROL-U?
: ;BRANCH IF NOT
;. YES, ECHO CONTROL-U (*U)
:: IGNORE PREVIOUS INPUT
soLET'S TRY IT AGAIN

CMP
BNE

1ST
BEQ
MOv
ADD
TYPE

THERE?

+.1F NOT TRY AGAIN

026274
026300
026302
026306
026310
026316
026322
026326
026334
026336
026344
026346
026352
026356
026360
026364
026366

104401

062706
000737

AS A RESULT

;ECHO THE CONTROL=G (*G)

—r

021627
001005

CALL,

LSCNTLG

LSMSWR
SWREG,
= (SP)

026254
026260
026262
026266
026272

TRAP

#1,8INTAG

—

021627
001015
104401
062706
123727
001003
012777
000177

SWITCH REGISTER

::DISABLE TTY KEYBOARD INTERRUPTS
:sSET INTERRUPT MODE INDICATOR

»
[~

026214
026220
026222
026226
026232
026240
026242
026250

19%:

TYPE
TYPE

PC,STKINT

as$TKs

Fdal]

117746

SOFTWARE

(=]

042716

027017

026204
026210

$GTSWR:

100375

027001
027006
000176

Mov8

L 1

026150
026154
026160
026164
026166
026172
026174
026176
026202

OR FROM THE

; *CONTROL=G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.
6%:
(mMPB
$AUTOB,
#1
;;ARE WE RUNNING IN AUTO-MODE?
BEQ
2%
. ;BRANCH IF YES
(SP)+
TST
;s CLEAR CONTROL-G OFF STACK

—

TTY

MACRO v03.01

SP) ,#60

JJYES, IS 1T THE FIRST (HAR?
s ;BRANCH IF YES
;:SAVE NEW SWR
J:CLEAR UP STAC(K
:;ECHO <CR> AND <LF>
;:RE-ENABLE

TTY KBD

s ;BRANCH 1F
;:STRIP=-0FF

YES
ASCL!

INTERRUPTS?

J:BRANCH [F NOT
;:RE=-ENABLE TTY XBD INTERRUPIS
;;RETURN
;sECHO CHAR
::CHAR < 0?7
; ;BRANCH ]F YES
::CHAR > 7

CIR MLAQO RMO5/3/2 FORMATTER
11y INPUT ROUTINE

026372
026376
026400
026402
026604
026406
026412
026416
026420
026424

005766
001403
006316
006316
006316
005266
056616
000667
1064401
000720

MACRO v03.01

K
11-APR-80 13:01:23 PAGE

000002

17%:

001204

188:
.DSABL

Sea 0088

2(SP)

ASL
ASL
ASL

(SP)
(SP)
(SP)

SiNO, SHIFT PRESENT
25
"CHAR OVER T0 MAKE
*:
ROOM FOR NEW ONE.

;:GEV THE NEXT ONE

$08

*:SIMULATE CONTROL-U

BEQ

000002
17777¢

7
10-37

INC
8IS

B8R

TYPE
BR
LSB

17¢

2(SP)
=2(SP), (SP)
$QUES

;215 THIS

THE

;;BRANCH [F

FIRST

CHAR

YES

**KEEP COUNT OF CHAR
TYSET IN NEW CHAR

PETYPE

2<CR><LF>

;:tt"..t."'t.""""""'.'"'.t"""'t"i"'.t..'tt.t.t'."'

;*THIS ROUTINE WILL
s*CALL:

RDCHR

$RDCHR:

MOV
MOV
CLR
CLR

X
M

026426

026430
026436

026442
026444
026450

026452
026452
026456
026460
026464
026472
026476
026504
026506
026514

011646
016666
005066

005046
012746
000002

000004
000004

026452

005737
001775
005337

025560

005237
023727

025564
025564

012737

225566

117766

001003

000002

848

025560
177074

1%:

000004

025575
025564

2%:

RETURN

MOV
RTI]

INPUT A SINGLE CHARACTER FROM THE TTY

HERE

(SP),=(SP)
4(SP),2(SP)
4(SP)
-(SP)

#6463 ,-(SP)

J:GET

A CHARACTER

FROM THE

;s CHARACTER IS ON
;:WITH PARITY BIT

QUEUE

THE STA(CK
STRIPPED OFF

;.PUSH DOWN THE PC AND
;:THE PS
;:GET READY FOR A CHARACTER
;sPUT NEW PS ON STACK

JsPUT NEW PC ON

STACK

;.POP NEW PC AND PS

ég;

?IKCNT

DEC
MOVB
INC
CMP

$TKCNT
;sDECREMENT THE COUNTER
99TKQOUT,&(SP)
;:GET ONE CHARACTER
$7xQOUT
;JUPDATE THE POINTER
$TKQOUT,#S$TKQEND ;;DID IT GO OFF OF THE END?
2%
;;BRANCH IF NO
#$TKQSRT ,$TKQOUT ;;RESET THE POINTER
::RETURN

BNE
MOV
RT]

J;WAIT ON A CHARACTER

;;lt..t'"Il't'.""""""""".".'l.t'.'ll.ttlit!l'tttttl.li

;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

;vCALL:
ML
o
o

026532
026534
026536
026540
026544
026546
026550
026552
026560

SRDLIN:
S NONONO SN
OO
=) = = =\ NO
—NNONNNO
O N

026516
026520
026522
026526

026752
026767

2%:

000177

10%:

000134
026750

1%:

026750

RDLIN

RETURN HERE

MOV

(LR
MOV

CMP

FIRST

FETTYIN+15,R3

;;BUFFER FULL?

BNE

MOVB
CMPB

(SP)+,(R3)
#177,(R3)

15T

(SP)

6%
#'\,9%
,9%

TTv

CHARACTER WILL

J;TERMINATOR WiLL BE A BYTE

;:SAVE R3

-(SP)
#STTYIN,RY

TYPE

A STRING FROM THE

;;ADDRESS

R3,=(SP)

BLOS
RDCHR

BNE
MOVB

;o INPUT

;sCLEAR THE RUBOUT
:3GET ADDRESS

ALL

0°'S

KEY

+:BR IF VYES
::60 READ ONE CHARACTER FROM THE TTv
::GET CHARACTER
;018 1T A RUBOUT

;:BR 1F NO

;o1S

THIS

THE

FIRST

;:BR IF NO
;:TYPE A BACK SLASH

RUBQUT?

THE

STACX

CIR MLAO RMOS5/3/2 FORMATTER
Ty INPUT ROUTINE

1563
1564

026752
026750
026750

MOv

OEC
CMP
8LO

MOvVB
TYPE

5%:

000134
026750

11-APR-80 13:01:23 PAGE

6%:

026750

000025

7%:

BR
1ST
BEQ

10-38

#-1,(SP)

R3
R3INSTTIYIN
48
(R3),9%
$

iBR IF YES
J:SETUP TO TYPEOUT THE DELETED CHAR.
;.60 TYPE
;:G0 READ ANOTHER (HMAR.
;:RUBOUT KEY SET?
IF

s TYPE

A BACK

SLASH

;s CLEAR THE RUBOUT KEY
;1S CHARACTER A CTRL U?
s:BR IF NO

(MPB

;. TYPE A CONTROL "'V

;.60 START OVER

8¢:

000022

;:1S CHARACTER A '"R'"
; sBRANCH IF NO
;sCLEAR THE CHARACTER

001205
026752
001204

4%:

026750
026750
000015

:
3%

;s TYPE

THE

J;TYPE

INPUT

STRING

;.60 PICKUP ANOTHMER (HACTER
'Y

;sCLEAR THE BUFFER AND LOOP
;oECHO THE CHARA(CTER
s CHECK FOR RETURN

::LOCP IF NOT RETURN
s CLEAR RETURN (THE 15)
::TYPE A LINE FEED
+ . CLEAN RUBQUT KEY FROM THE STA(CK
; sRESTORE R3
:;ADJUST THE STACK AND PUT ADDRESS OF
FIRST ASCII CHARACTER ON 117
i

177777

001206

000004
026752

SEQ 0089

;sSET THE RUBOUT KEY
; sBACKUP BY ONE
;:STACK EMPTY?

;:BR

MOvB
TYPE
CLR

026774

000002
000004
9s:
— ) b e
[0 JV LV AV IV, }

136
136
136
015
040

177777

—_— OO0

012716
005303
020327
103434
111337
104401
000746
005716
001406
112737
104401
005016
122713
001003
104401
000726
122713
001011
105013
104401
104401
000717
104401
000712
111337
104401
122723
001305
105063
104401
005726
012603
011646
016666
012766
000002
000
000

OO
b et et
H—=OMNO
O N~

026564
026570
026572
026576
026600
026606
026610
026612
026614
026616
026626
026630
026632
026636
026640
026644
026646
026652
026654
026656
026662
026666
026670
026674
026676
026702
026706
026712
026714
026720
0267264
026726
026730
026732
026740
026746
026750
026751
026752
026767
026774
027001
027006
027017

MACRO v03.01

RTI

s sRETURN

$TTYIN:
$CNTLC:
$CNTLU:
$CNTLG:
$MSWR:
SMNEW:

.BYTE
.BYTE
.BLKB
LASCIZ
.ASCI1Z
LASCIZ
.ASCI1Z
LASCI12

.SBTTL

POWER DOWN AND UP ROUTINES

s sSTORAGE FOR ASCI1
;s TERMINATOR

C/7<15><12>
2>
/*0/<15><1
2>
/°G6/<15><1

<15><12>/5uWR
/
NEW =/

CHAR.

1D TYPE

J:RESERVE 15 BYTES FOR TTY INPUT
::CONTROL '‘C''
::CONTROL 'V
;:CONTROL ''G'"

"'".t.'t..lil'tt"""""t"t.i..Ittt'tttflttltttlttttt'tt'.t'!l

027030
027036
027044
027046
027050
027052
0270564
027056

012737
012737
010045
010146
010246
010346
010446
010546

027174
000340

0000264
000026

-POWER DOWN ROUTINE
$PWRDN: MOV
#SILLUP,QNPWRVEC
MOV
MOv
MOv
MOV
MOv
MOv
MOV

;;SET

FOR

FAST

#340,30PWRVEC+?
RO,=(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)

;;PRIO:7
;:;PUSH RO ON STACK

RS ,=(SP)

;;PUSH RS ON STA(CK

R4, =(5P)

;:;PUSH R1 ON STACK
s sPUSH R2 ON STACK
;sPUSH R3 ON STACK

:;PUSH R4 ON STACK

THE

CIRMLAQ RM0S5/3/2 FORMATY

MACRO v03.01

POWER DOWN AND UP ROUTINE

027060
027064
027070
027076
027100

017746
010637
012737
000000

11-APR-80 13-01:23 PAGE
ASWR,=(SP)

HRVT

ISPURUP alPURVEC ..SEY UP VECTOR

HAL

000776

SEQ 0090

MOV

000024

10-39

..PUSH aSWR ON STA(CK

SP, $SAVRG

;SAVE SP

s sHANG UP

".'tt.".fi.t""""'""'."'tl"'"."."'."t""""'t'"'

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401
027202

00002t

pouen UP ROUTINE

$PWRUP: MOV
1$:

$SAVRG,SP
$SAVRG
$SAVRG
18
(SP)+,aSWR
(SP)+ RS

MOV
MOV
MOV
MOV
MOV
TYPE
.WORD

(SP)+.R2
SiPOP STACK INTO R2
(SP)+ R
S:POP STACK INTO R1
(SP)+.RO
S:POP STACK INTO RO
#SPWRDN,3#PWRVEC +;SET UP THE POWER DOWN VECTOR
#340,3#PWRVEC+2 ;:PRIO:7
::REPORT THE POWER FAILURE
$POWER
*'POWER FAIL MESSAGE POINTER

MOV
MOV

027030
000340

000024
000026
$PWRMG:

MOV

$PWRAD : ég?ao
SILLUP:

1565 027202
1566
1567

200

042

120

HALT

BR
$SAVRG: 0

SPOWER: .ASCIZ
.SBTTL

#SILLUP,Q#PWRVEC ;;SET FOR FAST DOWN

MOV
CLR
INC
BNE
MOV
MOV

:;GET SP
T WAIT LOOP FOR THE TTY
S WAIT FOR THE INC
1i0F
WORD
S:POP STACK INTO aSWR
1:POP STACK INTO RS

(SP)+ R
(SP)+.R3

(PC)+,

BEGINS

1:POP STACK
2 POP STACK

(SP)

*'RESTART

INTO Ré
INTO R3

AT BEGINZ

*:RESTART ADDRESS

;iTHE POWER UP SEQUENCE WAS

)

STARTED

‘' BEFORE THE POWER DOWN WAS COMPLETE
:PUT THE SP HERE

<CRLF>/''POWER up“

TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS

"".'t.tt".t""""""t'i"'t'tl't'tt"l'tttt'l"'ltl'tl"t't"

s*THIS ROUTINE

1S USED

TO TYPE

;*LEADING NUMBERS.
svCALL
M
MOV
#NUMADR,=(SP)
o*
JSR
PC,a#8SUPRS
027216
027220
027224
027226
027230
027234
027236

010046
016600
105710
001403
122720
001773
005300

000004

MOV

RO,-(SP)

;sSAVE RO

1%:

1S18

(RO)

2 TERMINATEOR?

1568
1569

MOV

2%:

000207
.SBTTL

4(SP),R0O

BEQ

BEQ
DEC
MOV

1%
RO
RO,3$

LWORD

MOV
RTS

(SP)+, (SP)
PC

CMPB

3%:

027254

;;FIRST ADDRESS OF

$SUPRS:

000060

027246

AN ASCIZ NUMBER SUPPRESSING

TYPE

MOV

#'0,(R0O)¢

(SP)+,R0O

SINGLE LENGTH BINARY

ASCIZ STRING

J:PICKUP THE POINTER
JiBR IF

YES

;1S THIS AN ASCII 'O ?
;:BR IF YES
::BACKUP BY '"1"'
..SAVE FOR TYPING
.60 TYPE

JsASCIZ POINTER GOES HERE

:sRESTORE RO
JsRESTORE
;;RETURN

THE

STACK

TO DECIMAL ASCIZ ROUTINE

027102
027110
027114
027120
027124
027126
027132
027134
027136
027140
027142
027144
027146
027154
027162
027164

7
MACRO v03.01 11-APR-80 13:01:23 PAGE 10-40
SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

CZRMLAO RM05/3/2 FORMATTER

SeQ 0091

:;""".'..".."""""""""'.'.."'"'t'.."".l"'t""l'

;*THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN
s *UNSIGNED DECIMAL ASCIZ NUMBER.

seCALL

MOV
JSR
RETURN

,"
¥

—

(VALV}

’

027256
027264
027270
027274
027300
027304
027306

016637
012746
004737
062716
012666
000207
000000

000002
027306
027312
000005
000002

027306

000000

$582D:

MOv
MOV
JSR

ADD
MOV
RTS

1%:

.WORD

.SBTTL

DOUBLE

NUMBER,
= (SP)
PC,a#85B2D

..EHT BINARY NUMBER ON THE STACK

2(SP),1%

;:SAVE BINARY NUMBER
s:SET POINTER
;. CALL DOUBLE LENGTH CONVERT
JONLY ALLOW FIVE CMARACTERS
J.PICKUP POINTER

#$,-(SP)
PC.a#8DB20
#5,(SP)
(SP)+,2(SP)

0.0

LENGTH BINARY

: ;ADDRESS OF

THE 1ST ASCIZ CHAR.IS ON THE STACK

JsRETURN

TO DECIMAL ASCII

CONVERT ROUTINE

""tt'..tt't'..'."""'l""tt"'.ttt.tlttl'.t'..t.t.'.'t.t'.'."

¢*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
s*DECIMAL (ASCI]) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE

¢*POSITIVE.
swCALL
:t
MOv
JSR
b
RETURN

027312

027314
027320
027324
027330
027332
027334
027342
027346
027352
027354
C27356
027360
027362
027364
027366
027370
027372
027374
027376
027400
0274604
027406
027410
027412
027614

$DB2D

000002
027472
000002

000012
027622
027424

MOV
MOv
MOV
MOV
MOv
MOV

027410

3%:

000060

000000
001357
105020

SAVREG
vov
'OV

CLR
sus
SBC
SuB
BLT
INC
BR
.

;;POINTER TO LOW WORD OF BINARY NUMBER
;:THE

FIRSYT

ADCRESS OF

;.15 ON THE STA(K

ASCIZ

2(SP),R2

::SAVE REGISTERS
::P1CKUP THE DATA POINTER

(RO +,R1

;.PICKUP

#SDECVL, RO
RO,2(SP)

(R2)+.R2
#10.,48

#STNPWR,
R4
FSTNPWR+2,RS

R3
(R&),R1
R2

:;GET ADDRESS OF ''SDECVL'' STRING
:sPUT ADDRESS OF ASCIZ STRING ON STA(K
THE

BINARY NUMBER

;:SET UP TO DO 10 CONVERSIONS

. ;ADDRESS OF TEN POWER

;. CLEAR PARTI]AL
::SUBTRACT TEN POWER
¢:BR IF
:;ADD

TEN POWER TO LARGE

TO PARTIAL

ADD

;. LOOP
;.RESTORE SUBTRACTED VALUE

ADD
CMP

;;MOVE

TO NEXT

Move

J.SAVE

ADC

BIS

4%:

#PNTR,-(SP)

PC,a#$0B82D

DEC
.WORD
BNE
CLRB

TEN POWER

;s CHANGE PARTIAL 10 ASCII
s sDONE?

::BR _IF NO
;; TERMINATOR

(IRMLAO RM05/3/2 FORMATTER

MACRO v03.01

DOUBLE LENGTH BINARY TO DECIMAL ASCII

027416
027420
027422
027426
027426
027420
027432
027434
027436
027440
027442
(27444
027446
027450

027452
027454
027456
027460
0276462
027464
027466
027470

1972
1573

027472

104613
000207
145000
035632
160400
002765
113200
000230
041100
000017
103240

CONVERT ROUTINE

RESREG
RTS
$TNPWR: 145000
35632
160400
2765
113200
230
041100
17
103240

000001
023420
000000

1750
0
144
0
12
0
1
0
$DECVL: .BLKB
LSBTTL

SEQ 0092

..RESTORE REGISTERS
sRETURN
::1.0€09

::1.0eN8
5:1.0€07
.:1.0E06
;. 1.0€E05

1
23420
0

001750
000000
000144
000000
000012
000000
000001
000000

11-APR-80 13:01:23 PAGE 10-41

::1.0€06

;:1.0E03
::1.0€802
::1.0E0
::1.0€00
12.

;;RESERVE

STORAGE

FOR ASCIZ STRING

SAVE AND RESTORE RO-RS ROUTINES

M "'l.t.'tt.t't"ttt'tt""titttttt'tt'tltt'tttt'ttl"tt't!t"tt

:«SAVE RO-RS

;*CALL:

-'
SAVREG
'UPON RETURN FRCM $SAVREu

THE

STACK WILL

LOOK LIKE:

'TOP---(*16)

Te 42e==(418

:* 44-==RS
v 46=-=-=R¢4

;* +8---R3

;2410--=R?

Jr¢12=-==R1
;x414-=-=R0

027506
027506
027510
027512

027514
027516
027520
027522
027525
027532
027536
027542

$SAVREG:

010046
010146
010246

010346
010446
010546
016646
016646
016646
016646
000002

MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
RT]

000022
000022
000022
000022

;*RESTORF RO-RS

JeCALL:
B

RESREG

RO,-(SP)
R1,-(SP)
R2,-(SP)

R3,-(SP)
R4 ,-(SP)
RS,-(SP)
22(SP) ,=-(SP)
22(SP) ,=(SP)
22(SP),=(SP)
22(SP),=(SP)

. .PUSH RO ON STA(K
;:PUSH R1 ON STACK
;PUSH R2 ON STACK

::PUSH
;.PUSH
;;PUSH
:sSAVE
..SAVE
:;SAVE
;SAVE

R3
R4
RS
PS
PC
PS
PC

ON STA(CK
ON STACK
ON STACK

OF
OF
OF
OF

MAIN FLOW
MAIN FLOW
CALL
CALL

CIRMLAD RM05/3/2 FORMATTER

SAVE AND RESTORE RO-RS ROUTINES

MACRO v03.51

$RESREG:

was

—

SEQ 0093

(SP)¢,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+ RS

s sRESTORE PC OF CALL
«.RESTORE PS OF CALL
¢ ;RESTORE PC OF MAIN FLOW
;RESTORE PS OF MAIN FLOW
;.POP STACK INTO RS

MOv
MOV
MOv
MOV

(SP)+ ,R3
(SP)+ ,R2
(SP)+ R
(SP)+,RO

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

(SP)+ R4

RTI

.SBTTL

10-%2

MOv
MOv
MOv
MOV
MOv
MOv

NN
~N~

11-APR-80 13:01:23 PAGE

;.POP

STACK

STACK
STACK
STACK
STACK

INTO R4

INTO
INTO
INTO
INTO

R3
RZ
R!
RO

TRAP DECODER

R Iy

;*THIS ROUTINE WILL PiCKUP THE LOWER BYTE OF THE ''TRAP'' INSTRUCTION
s*AND USE 1T TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED T WILL
;*G0 TO THAT ROUTINE.
027602
027604
027610
027612
027614
027616
027622

027624
027626
027634

010046
016600
005740
111200
006200
016000
000200

011646
016666
000002

$TRAP:

000002

RO,=(SP)
2(SP),RO

1ST

MOovB
ASL

027636

000004

MOV
MOV

=(RO)

: ;BACKUP BY 2

$TRPAD(RO)
RO
RO

;;INDEX TO TABLE
;.60 TO ROUTINE

(RO) ,RO
RO

MOV
RTS

000002

;s THIS

1S USE

$TRAPZ:

MOV

.SBTTL

TRAP TABLE

s*THIS

TO HANDLE

THE

4(SP),2(SP)

CONTAINS

THE

027636
027640
027642
027644
027646
027650

027624
024304
025132
025106
025146
025334

027652

026154

027654
027656
027660
027662
027664

026064
026426
026516
027506
027544

;.MOVE

THE PC DOWN

;.MOVE THE PSw DOWN
;.RESTORE THE PSW

STARTING

;*BY THE "'TRAP'' INSTRUCTION.

;

;:GET RIGHT BYTE OF TRAP
;:POSITION FOR INDEXING

''GETPRI'' MACRO

(SP),=(SP)

MOv
RTI

TABLE

;. SAVE RO
::GET TRAP ADDRESS

ADDRESSES OF

THE

ROUTINES

CALLED

ROUT INE

$TRPAD: .WORD

$TYPE
STYPOC
$TYPOS
STYPON

STRAP?2

;:CALL=TYPE
::CALL=TYPOC
::CALL=TYPOS
::CALL=TYPON

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE

DECIMAL NUMBER

$GTSWR

;;CALL=GTSWR

TRAP+6(104406)

GET

SOFT-SWR SETTING

$CKSWR

::CALL=CKSWR

TRAP+7(104407)

TEST

FOR CHANGE

TRAP+11(104411)
TRAP+12(104412)

TTY TYPEIN STRING ROUTINE
SAVE RO-RS ROUTINE
RESTORE RO-RS ROUTINE

$STYPDS

SRDCHR

::CALL=TYPDS

::CALL=RDCHR

SROLIN
::CALL=ROLIN
$SAVREG ::CALL=SAVREG

$SRESREG ::CALL=RESREG

TRAP+5(104405)

TRAP+10(104410)

TRAP+13(104413)

(WITH SIGN)

IN SOF T-SWR

TTY TYPEIN CHARACTER ROUTINE

157

158

WO
>

C IRMLAO RMOS/3/2 FORMATTER
1 RAP 1 TABLE

MACRO v03.01

D 8
11-APR-80 13:01:23 PAGE 10-43

SEQ 0094

CIZRMLAO RMOS5/3/2 FORMATTER
NR —

SINGLE/DUAL PORT RH/RM DRIVER

.SBTTL

SEQ 0095

SINGLE/DUAL PORT RM/RM DRIVER

(REV 6.2)

FEBRUARY

1980

;10=AUG=77 tevrveerere

:10-MAR=-78 THE SC, SCS CHANGES

SNEW DRIVE TYPE 1D FOR RM0OS wevenenney

= OO0~
OO NO VNS WA= OV

;NEW ORIVE TYPE ID FOR RM02 reeenencee

;FEBRUARY

1980 reervenceee

;COPYRIGHT (C)

1977

:DIGITAL EQUIPMENT (CORP.

;MAYNARD, MA 01754
¢AUTHOR(S): JIM LACEY/CHUCK

NS WA

b cd b s od b b s s s
WO AN POPRIPINININD

MACRO v03.01 11-APR-80 13:01:23 PAGE
(REV 6.2) FEBRUARY 1980

HESS/

.';'.'tt't...'..t""'"""".'t""""'l." reRetONOROARRRRRRRROR

027666

000000

:STORAGE

FOR RMDS, RMER1, RMERZ,
RMERRS
= RMDS
:RMERRS+2 = RMER]
;RMERRS+4 = RMER?
;RMERRS+6 = RMMR?2

RMERRS:

.WORD

AND RMMR2 ON AN ERROR ‘'‘2'’

0,0,0,0

;TABLE OF DRIVE ACTIVE
;DRVACT=0

;DRVACT>0 IF

INDICATORS (DRVA(CT=8 BYTES)

DRIVE

IDLE

1S ACTIVE WITH A COMMAND

;:DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERAT'NN
027676
027677
027700
027701
027702
027703
027704
027705

DRVACT:

.BYTE

BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE

;TABLE OF

:DRIVE

0
0
0
0
0
0
0

;DRIVE
;DRIVE
;DRIVE
JDRIVE
;DRIVE
;DRIVE
;DRIVE

DRIVE STATUS INDICATORS

1
2
3
&
S
6
7

(DRVSTA=3 BYTES)

;DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT

;DRVSTA>0 [F
JPDRVSTA<O

000
000
000
000
000

000

DRVSTA:

.BYTE
.BYTE
.BYTE
BYTE

BYTF
.BYTE
.BYTE
BYTE

DRIVE
DRIVE

IS ONLINE

IS UNSAFE

0
0
0
0

;DRIVE 0O
sDRIVE 1
;DRIVE 2
;DRIVE 3

sDRIVE

0
0
0

JDRIVE &
;DRIVE 5
;DRIVE 6

:TABLE OF DRIVE TYPES (DRVTYP=B BYTES)

;DRVTYP=Q IF DRIVE IS NONEXISTENT
;DRVTIYP=7 |F DRIVE 1S RMOS seenen
;DRVTYP=S5 |f DRIVE IS RMO2 ewnnne
:DRVTYP=4 |f ORIVE IS RMO3
:DRVIYP==1 [t NOY RMQS5/3%/2

(DRVSTA=0, ALSO)

(IZRMLAO RMOS5/3/2 FORMATTER

SINGLE/CUAL PORT

51 027716
56 027717
027720
027721
027722
027723
027724
" 027725

RH/RM DRIVER

000
000
00
009
000
000
000
000

56
57

(REV 6.2)

F
11-APR-80 13:01:23 PAGE

FEBRUARY

1980

DRVIYP:

.BYTE
.BYTE
LBYTE
.BYTE
LBYTE
.BYTE
.BYTE
.BYTE

DPINT:

;TABLE OF

027740
027761
027742
027743
027744
’s 027745

000
000
000
000
000
000

74
75
;?

;g 027746

000000

.BYTE
.BYTE

.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE

THAT

A DUAL PORT

TRNSWT:

.WORD

O
1
2
3
4
S
6
7

REQUEST

THAT A DUAL PORT REQUEST

0
0

;DRIVE
JDRIVE

0
0
0

IS NOT

PENDING FOR

THAT

000000

SRCHWT:

.WORD

0
0
0

O
1

:DRIVE S
;DRIVE 6
JDRIVE 7

WILL

CONTAIN

THE

ADDRESS Of

IS ASSIGNED ONE BIT, STARTING AT BIT00 FOR DRIVE O.

:RM DRIVER ACTIVE FLAG (ACTDRV=1

BYTE)

:ACTORV=0 IF DRIVER IS INACTIVE

sACTDRV>0

000

ACTDRV:

.BYTE

;SOF TWARE

DRIVE

IS PENDING FOR THAT DRIVE

:DRIVE 2
;DRIVE 3
;DRIVE &

JEACH DRIVE

DRIVE

;SEARCH WAIT KEYS (SRCHWT=1 WORD)
;THIS 1S A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH Of
;THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE [/0
JREQUEST THAT 1S AT THE TOP OF THEIR REQUEST QUEUE.

92 027752

PENDING DUAL PORT REQUESTS

;TRANSFER WAIT FLAG (TRNSWT=1 WORD)
:THIS IS A ONE WORD QUEUE. IT
;"'DPB'' OF THE 1/0 OPERAT]ON.

80
8
82
83

gg 027750

DPRQS:

INITIALIZATION IS IN PROGRESS
JDRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
*:DRIVE

;DPRQS<O IF
000
000

O
1
2
3§
4
S
6
7

INITIALIZATION INDICATORS
INITIALIZATION IS NOT ACTIVE ON THE

0
0
0
0
0
0
0
0

:DPRQS=0

69 027736
72 027737

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE

SEQ 0096

;DRIVE
:DRIVE
JDRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

;DPINT<O IF

000
000
000
000
000
000
000
000

8
11-1

0
0
0
0
0
0
0
0

;TABLE OF DUAL PORT
;DPINT=0 IFf

60 027726
63 027727
027730
027731
027732
027733
027734
6 027735

MACRO v03.01

DRIVER

IS ACTIVE

TIMER ROUTINE

ACTIVE

FLAG

(ACTSTR-1

Bylt)

CIRMLAO RMOS5/3/2 FORMATTER

SINGLE/DUAL PORT

RH/RM DRIVER

MACRO_v03.01

(REV 6.2)

FEBRUARY

95
gg

000

100
101
102

027756
027757
027760
027761
027762
109 027763

000
000

s
e
i
D
i
)
e
D el
i
il
e
i e
i
e

.BYTE
.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

0
0

IS INACTIVE
]S ACT]IVE

;DRIVE 0
;DRIVE 1

0
0
0
0
0
0

:DRIVE
;ORIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE

027766
027767
027770
027771
027772
027773

000
000

LACNT:

000
000
000
000
000

.BYTE
BYTE

BYTE
.BYTE
.BYTE
.BYTE
.BYTE

000

.BYTE

2
3
&
5§
6
7

(LACNT=8 BYTES)

JLACNT WILL

113 027764
116 027765

SOFTWARE TIMER ROUT.NE
SOFTWARE TIMER ROUTINE

;LOOK AHEAD COUNT

ULDFLG:

000
000
000
000
000
000

110

.BYTE

SEQ 0097

;ULDFLG<O I+t UNLOAD COMMAND IN WAIT QUEUE

105 027754
108 027755

ACTSTR:

11-2

;UNLOAD FLAG (ULDFLG=8 BYTES)
JULDFLG=0 IF NO UNLOAD COMMAND
JULDFLG>Q IF UNLOAU COMMAND IN PROGRESS

}82

& U N AN N N AN AN NN N N NN N RO NONO N — —
ONOWVMEWN
OOV
NO WV
WA —O VD~

1980

;ACTSTR=) 1F
;ACTSTR>0 I1F

gg 027753

——h e

1i-APR-80 13:01:23 PAGE

INDICATE

THE NUMBER OF LOOK AWEADS PERFORMED

0
0

0
0
0
O
0

;DRIVE
;DRIVE

0
1

;DRIVE

;DRIVE 2
;DRIVE 3
;DRIVE &
:DRIVE §
;DRIVE 6

;SAVE REGISTERS FLAG (SAVEFG =1 WORD)

SAVEFG <0 I1F SAVE THE RH/RM REGISTERS WHEN THE
;OPERATION

1S COMPLETED AS PER

:(DPB+14),

AFTER AN ERROR.

(DPB+14),

:SAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER
027774

000000

SAVEFG:

.WORD

;SEEK FLAG (SEEXKFG=1 WORD)
;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T

[N THE WwINDOW

sFOR A DATA TRANSFER START A SEARCH (OMMAND

;SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS,
sDISREGARD THE WINDOW
027776

030000
030002
030004
030006
030010
030012
030014

177777

177777
17777
177777
177777
177777
177777
177777

SEEXKFG:

.WORD

-1

;TIMEOUT

TABLE (TIMER=8 WORDS)
sTHIS TABLE CONTAINS THE

TIMER:

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

-}
-1
-1
-1
-1
-1
-1

TIME

:DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE

ALLOWED

0
1
2
3
4
5
6

FOR AN OPERATION

CZRMLAO RM05/3/2 FORMATTER

NN —
NN = OO0 NN
NPV
NO NS NN 2OV
NOWVNE NN = O VONOWNEB NN =2 OOV
VB NN —= OOV

el i i

e i

D e el

) ey

VO OOOO VPO

D el

)

D e

D et

D e

ol el e e

D e

i e

D e

e ot i

D o

oD el el oD reh

NN NN NNNNNNOOCOOTOCOOOO
O WVNNVWNWNNVNNNNES DS
SSS S

SINGLE/DUAL PORT RH/RM DRIVER

030016

MACRO v03.01 11-APR-80 13:01:23 PAGE
(REV 6.2) FEBRUARY 1980

\reeer

.WORD

11-3

SEQ 0098

;ORIVE

;DATA TRANSFER UNDERWAY

INDICATOR (DTUwW=1 WORD)
;DTUWKO IF NO DATA TRANSFER UNDE.. JAY
;DTUW=+N (WHERE N=O TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

030020

177777

DTUW:

.MORD

-1

SATTENTION BITS TABLE (ATABIT=8 BYTES)
;THIS TABLE CONTAINS THE CORRESPONDING BIT
;ATTENTION BIT

030022
030023
030024
030025
030026
030027
030030
030031

001
002
004

ATABIT:

010

020
040

200

.BYTE

.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

;DRIVE

2
&
10
20
40
100
200

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

;FSRM TO RH11/RH70 '‘MASSBUS

;CALLING IT FATAL
030032

000003

MCPEMX:

.WORD

TO EACH DRIVES

1
2
3
&
5
6
7

CONTROL BUS PARITY ERRORS'' (MCPE)

(MCPEMX=1 WORD)

ALLOWED BEFORE

:STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM),
;RMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)).

030036

030034

176700
00025¢

030042

000004

;MAX]MUM NUMBER OF
MXLACT: .WORD
4

030044

001000

;MAXIMUM DELTA DELAY IS 8 SECTORS
MXDLTA: .WORD
B.*64.

(MXDLTA=1

WORD)

030046

000200

;MINIMUM DELTA DELAY IS 2
MNDLTA: .WORD
2v64.

(MNDLTA=1

WORD)

030050

000005

;MAXIMUM SEARCH FOR
MXWNDW: .WORD
5

(MXWNDW=1

000240

RMADR:
RMVEC:

.WORD
.WORD

;DEFINITIONS OF
000000
000002

000004
000006
000010
000012
000014
000016
000020
000022
000024

176700
254,5+32.
LOOK

AHEADS

ALLOWED

SECTORS

[/0 WINDOW

SECTORS

(MXLACT=1

WORD)

THE RH/RM ADDRESS INDEXES

RMCS1=0
RMWC=2

;CONTROL AND STATUS REGISTER #1 (DRIVE
;WORD COUNT REGISTER (NOT A DRIVE REG)

RMCS2=10
RMDS=12
RMER1=14
RMAS=16
RMLA=20

REG.
:CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
;ORIVE STATUS REGISTER (DRIVE REG 0O1)
;ERROR REGISTER ¥#1 (DRIVE REG. 02)
;ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 064)
:LOOK AHEAD REGISTER (DRIVE REG. 07)

RMBA=4
RMDA=6

RMDB=2?2

RMMR1=24

REG.

00)

;UNIBUS ADDRESS REGISTER (NOT A DRIVE REG)
;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE

;DATA BUFFER REGISTER (NOT A DRIVE REG.)
;MAINTAINABILITY REGISTER

(DRIVE REG.

03)

05)

CZRMLAO RM05/3/2 FORMATTER

SINGLE/DUAL PORT

197
198
199
200
201
202
203
204

RH/RM DRIVER

MACRO v03.01 11-APR-80 13:01:23 PAGE
(REV 6.2) FEBRUARY 1980

000026
000030
000032
000034
0C0036
000040
000042
000044

%82

RMDT=26
RMSN=30
RMOF =32

SEQ 0099

;ORIVE TYPE REGISTER (DRIVE REG. 06)
:SERIAL NUMBER REGISTER (DRIVE REG. 10)
SOFFSET REGISTER (DRIVE REG. 11)

RMDC =34
RMHR=36
RMMR 2240
RMERZ=42
RMECT=44

0000646

11-¢4

:DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG.
:DUMMY
ADDRESS REGISTER (DRIVE REG. 13)
:MAINTENANCE REGISTER #2
:ERROR REGISTER #2 (DRIVE REG. 15)
:ECC POSITION REGISTER (DRIVE REG. 16)

RMEC2=46

:ECC PATTERN REGISTER (DRIVE REG.

58;

.SBTTL

209
210

;THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE
JAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR

RH/RM DRIVER INITIALIZATION CODE

2N
g}g

STO THE PROPER STATE FOR EACH DRIVE.
*NOTE: THIS ROUTINE CALLS DRVINT

214
215
216

:CALL
:
;

RE TURN

%58

JNOTE:

THE

RMINIT:

SAVREG
MOV

PS,=-(SP)

JSR
MOV
MOV
CLR
CMP
BLO
MOV
MOV
CMP
BLOS
(LR
CLR
CLR
(LR
MOV
MOV
MOV
MOV
MOv
CLR
JSR
BR
BR
CLRB
INC

PC,CLRQUE
#RMERRS, R
NSEEKFG.R2
(R1)+
R1,RZ
1%
#DTUW,R2
#-1,(R1)+
R1,R2
2%
DRVSTA
DRVSTA+2
DRVSTA+4
DRVSTA+6
RMVEC,R3
#ISR, (R3)+
RMVEC+2, (R3)
RMADR R4
NCLR,RMCS2(R4)
R1
RO,DRVINT
4$
5%
DRVSTA(R1)
R1

g}g

221 030052
222 030054

104412
013746

224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
260
241
242
243
264
245
246
247
268

006737
012701
012702
005021
020102
103775
012702
012721
020102
101774
005037
005037
005037
005037
013703
012723
013713
013704
012764
005001
004037
000401
000402
105061
005201

223 030060

249
250
251
252
253

030066
030072
030076
030102
030104
030106
030110
030114
030120
030122
030124
030130
030134
030140
030144
030150
030156
030160
030164
030172
030176
030200
030202
030204
030210

030212
030216
030220
030224
030230

012737

042701
001366
012701
005037
105761

177776

000240

035740
027666
027776

177776

030020
177777

28:

027706
027710
027712

027714
030036
032706
030040
030034
000040

000010

030264

027706

48
5%

177770
000007
177776
027726

JSR

6% :

PC,RMINIT

'P* OR

MOV

18:

17)

BIC
BNE
MOV
CLR
ISTB

'L'

CLOCK MUST BE STARTED

#<6e32.5,p5

”C7,.R1
{1
#7,R1
PS
DPINT(R1)

:SAVE RO - RS
;SAVE THE PRESENT PROCESSOR STATUS

:CHANGE THE PRIORITY 10 §

*CLEAR ALL REQUEST QUEUES
JFIRST ADDRESS TO BE C(LEARED
:LAST ADDRESS TO BE CLEARED
{CLEAR
*ARE WE DONE?
‘BR IF NO
SLAST ADDRESS
SINITIALIZE
:DONE?
SLOOP IF NO
JSET ALL DRIVES TO OFFLINE

:SETUP THE RM/RM VECTOR
JFIRST ADDRESS OF
:MASSBUS INIT
:START WITH DRIVE
SINIT THE DRIVE
S'DVA' NOT SET OR
*NORMAL RETURN
SSET DRIVE STATUS
:G0 TO NEXT DRIVE

RHW/RM

O
PARITY ERROR
TO OFFLINE

sMASK OUT UNUSED BITS
*BR IF MORE DRIVES T0 GO
SSTART WITH DRIVE 7
:CLEAR THE PROCESSOR STATUS
*WAITING FOR DRIVE 10 SWITCH PORTS

°?

12)

CZRMLAOQ RM0S5/3/2 FORMATTER

RH/RM DRIVER

INITIALIZATION CODE

256
255
256
257

030234
030236
030242
030246

001405
004737
105761
001375

259
260
261
ggg

030252
030254
030260
030262

100366
012637
104413
000207

258 030250

MACRO v03.01

SEQ 0100

035374
027726

7%:

005301

8s$:
177776

264
265
266
267

BEQ
JSR
1878
BNE

8$
PC,SET.IE
DPINT(R1)
7%

:BR NOT WAITING
*SET INTERRUPT
;DRIVE SWITCHED PORTS ?
:BR IF NOT

BPL
MOV
RESREG
RTS

6%
(SP)+,PS

:CHECK NEXT DRIVE
JRESTORE THE PROCESSOR STATUS
*RESTORE RO - RS
‘BYE-BYE

DEC

:G0 TO THE NEXT DRIVE

:DRIVE INITILIZATION ROUTINE
:THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS
AN RMOS5/3/72. 1F 1T 1S, A '"'READ-IN PRESET'' IS ISSUED AND FMT16
;IS SET TO A “'1'', THEN MOL, DPR, DRY, AND vv ARE CHECKED TO

268
269
270
271
272

s INSURE
:DRVSTA
s CALL
;
:

273
274
275

;
;
;

578

278 030264
279 030266
280 030272
281 030276
282 030302
283 030306
284 030314
285 030322
286 030324
Sgg 030330

010546
105061
105061
105061
010164
112764
032764
001403
004737
000520

289 030332
290 030336
291 030344
292 030346
293 030352
2964 030354
295 030356
296 030360

105061
032764
001750
004037
000026
030616
012605
112761

298 030372
299 030374

001431
022705

297 030366

300 030400
301 030402

302 030410

303
306
305
306

J
8
11-APR-80 13:01:23 PAGE 11-5

030414
030416
030422
030426

307 030432

308 030436
309 030640
310 030446

022705

001426
112761

022705

001420
022705
001415
112761

022705

001407
022705
001404

027706
027716
027754
000010
000111
010000

000000
000010

035374
027706
004000

000000

034704

000004

020024

027716

024024
000005

020025

020027

024027

MOV
#DRVNUM,R1
MOV
RMADR R4
JSR
RO,DRVINT
RETURNI1
RETURNZ

;DRIVE NUMBER T0 R1
;UNIBUS ADDRESS OF RH/RM (RM(S?)
JCALLED BY A JSR
JERROR QCCURRED (PARITY)
;NORMAL RETURN

DRVINT: MOV
DULP:
CLRB
CLRB
CLRB
MOV
MOVB
BIT
BEQ
JSR
BR

RS,=(SP)
:SAVE RS
DRVSTA(RY)
;START DRIVE STATUS AS OFFLINE
DRVIYP(R1)
;CLEAR THE DRIVE TYPE INDICATOR
ULDFLG(RY)
;CLEAR THE UNLOAD FLAG
RT,RMCS2(R4)
“SELECT A DRIVE
#111,RMCS1(R4)
:DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE)
#BIT12,RM(S2(R4G)
JNONEXISTENT DRIVE?
1%
:NO
PC,SET.IE
;GO SET "IE'" WITHOUT A "'TRE"
6%
JLEAVE THIS ROUTINE

1%:

CLRB
BIT
BEQ
JSR
RMDT
8%
MOV
MOvVB

DRVSTA(RY)
JSET DRIVE STATUS TO OFFLINE
#BIT11,RMCST(RS)
JSEE IF DRIVE AVAILABLE
DULP
;8R IF DRIVE NOT AVAJLABLE
RO,RD.RM
JREAD THE DRIVE TYPE REG.
(SP)+,RS
#4 ,DRVTIYP(RY)

;ERROR RETURN ADDRESS
*PUT DRIVE TYPE IN RS
:SET RMO3 INDICATOR

BEQ
CMP

28
#26024 ,RS

‘BR IF YES
:DUAL PORT RMO3 ?

CMP

220024 ,RS

:SINGLE PORT RMO3 2

027716

BEQ
MOVB

28
#S,DRVIYP(R1)

027716

BEQ
CMP
BEQ
MOVB

2%
#24025 RS
2%
#7 ,0RVIYP(RY)

‘BR IF SO
:DUAL PORT RMO2 ?
:BR IF SO
;SET RMOS INDICATOR

2%
#24027,RS
2%

‘BR IF YES
*DUAL PORT RMOS 2
‘BR IF YES

024025

000007

THEY ARE ALL ON A "'1''., AND DEPENDING ON THE]R STATE,
IS SET TO THE PROPER CONDITION.

CMP

BEQ
CMP
BEQ

#20025,RS

#20027,RS

‘BR IF YES
:SET RMO2 INDICATOR

:SINGLE PORT RM02 ?

:SINGLE PORT RMQS ?

’

CIZRMLAQ RM05/3/2 FORMATTER

INITIALIZATION CODE

030446
030454
030456

112761

000446

177777

027716

012746
004037
000000
030616
012746
004037

030552
030554
030556
030562
030564
030572
030574
030576
030600
030606
030610
030616
030620

100015
116164
004037
000014
030616
006126
100004
112761
000407

005105
0642705
001003
112761
005720
000410
006301
012761
006201
112761

012605
000200

K
11-APR-80 13:01:23 PAGE
MovB

2%:

#-1,DRVIYP(R1)

;SET

MOV

#121,-(SP)

;DO A "'READ-IN PRESET''

#B1T12,-(S5P)

JSET FMT16-=1

JSR
RM(CST

RMOF

JSR

RMDS

MOV

000016

000001

027706

060000

030000

177777

027726

8%:

RO.RD.RM

sREAD RMDS

(SP)+,RS

JAND SAVE

JBR If

IN RS

(SP)+

;1S

#-1,DRVSTA(R1)

;SET UNSAFE

ATABIT(R1) ,RMAS(R4)

ATA=0

;CLEAR ATTENTION BIT

1T UNSAFE?

BPL

JEXIT

COM

;CHECK MOL, DPR, DRY, AND vV

81C

BNE

7%:

‘

JFIND OUT WHY ATA=1

MOVB

6%:

'OTHER'

RO,RD.RM

4L%:

JSR

RMER1

167077

RO,WRT.RM

INDICATOR

MOVB

027706

RO,WRT
. RM

JEXIT

BPL

ROL

177777

SEQ 0101

JSR

030022
034704

8
11-6

8%
MOV

000032
030616
004037
000012
030616
012605

MOvVB
TST
BR
ASL
MOV

;BR IF

NOT

INDICATOR

#‘C<BIT12'81108'BI107'81706> RS

JBR IF MOL, DPR DRY, OR vV IS CLEAR

#1,DRVSTA(RY)
(RO)+
8%

:SET DRIVE STATUS TO ONLINE
JSTEP OVER THE ERROR RETURN
:EXIT

(SP)+,RS

;RESTORE RS

ASR
MOVB

R1
JCHANGE INDEX TO ADDRESS WORDS
#60000,TIMER(RY)
sSTART 2 SEC TIMER
R1
;RESTORE R1
#-1,DPINT(RT)
;SET PORT INITIALIZE INIDICATOR

RTS

MOV

JEXIT

JREQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST
s CALL

JSR

RETURNI

030622
030626
030634
030642
030644
030646
030652
030654
030660

NN = N = 2NN
N
NNNVOO
S NN
OO
O —uln
—
e NN
NN O

:
= O - OO—==OO

W) = O D00~
S NN —

PIOPIPINR)
ot md ed ed o e d b

AN LN AN AN AN N N N AN AN N NN

RH/RM DRIVER

MACRO v03.01

177776

030040
000001
000016
03003¢
027706

RMO5:

PNTADR

RO,RMOS

PS,=(SP)
RMVEC+2,PS
#1,ACTDRV

MOVB

(R2),R1

1S18

POINTER OF

QUEUE

DRIVES PARAMETER BLOCKX

IS FULL

JRETURN HERE IF REQUEST IS IN QUEUE OR THERE
:1S AN ERROR CONDITION

Mov
MOV
MOvB
SAVREG
MOV

MOV

JADDRESS

JRETURN HERE

RETURNZ2

CLR

;CALL THE RMOS DRIVER

(RO)

,R2

16(RS)

RMADR , R4

DRVSTA(RY)

:SAVE THE CALLING STATUS
;DON'T ALLOW ANY RM INTERRUPTS
;SET "ACTIVE DRIVER' FLAG
*SAVE RO - R
:PICKUP THE DRIVE PARAMETER BLOCK POINTER

:CLEAR THE STATUS/ERROR INDICATOR
:PICKUP THE DRIVE NUMBER

*UNJBUS ADDRESS OF RMCS)

:CHECK DRIVES STATUS

CZRMLAO RM0S5/3/2 FORMATTER

RH/RM DRIVER

030664
030666
030672
0306764

(=
o

o
N
o

NN NN NN W
NNNNNN ~

00~
O N (N~n

368
369
370
371

INITIALIZATION CODE

706
710
716
;16

379

003014
105761
001036
105761
001042
004037
000434
105761

003445

105761
001031
010164
004037
000460
122762
001003
112761
105761

001043
004737
000440
012762
000434
004737
000631
004037

MACRO v03.01

SEQ 0102
1578

19
ULDFLG(R1)

:BR IF ONLINE
+UNLOAD COMMAND IN QUELE?

1518

DPINT(R1)

;TRYING TO INIT THE DRIVE

BGT

027754

BNE

027726

030264

027736

1%:

1578

000010
036036
000002

177777

027754

2%:

TSTB

031114
000016

OO~V
NN -2

aF o

X
s

Y
e

e
e

8$
gg.opt

:PUT THIS REQUEST IN CUEUE
;QUEUE IS FULL
;1S THIS REQ. FOR AN UNLOAD?
:BR _IF NO

;SET THE "'UNLOAD IN QUEUE'' FLAG
21§ THIS DRIVE ACTIVE?

;BR IF YES
:CALL THE OPTIMIZER

;SET THE "'UNLOAD IN QUEUE'' ERROR FLAG

gg.cxr

160 HANDLE THE PARITY ERROR

036036

5%:

JSR

RO, DRVQUE
9¢

:PUT REQUEST IN QUEUE
SQUEVE 1S FULL

:YES

#B1106, (R4)

PC,SET.IE

140000

000016

100002

000016

110000

000016

6$:

1S18

7%:
8%:

MOV
RESREG

9% :
108:

BR
RESREG
TST
CLRB

TST

MOV
RTS

000200

‘1E BIT
:SET

THE

SET

INTERRUPT

8s
*RETURN
DRVSTA(R1)
SSEE IF DRIVE OFFLINE OR UNSAFE
7%
*BR IF UNSAFE
#BIT1S!BIT14,16(R2)
;SET OFFLINE ERROR INDICATOR
DRVTYP(R1)
:SEE IF OFFLINE OR NONEXISTENT
8%
<BR If OFFLINE
#BIT15!BIT01,16(R2)
sREPORT DRIVE NONEXISTENT
8%
;G0 TO EXIT
#BIT15!BIT12,16(R2)
;DRIVE 1S UNSAFE
(RO)+
108
(RC)+
ACTDRV
(SP)+,PS
RO

;RESTORE RO - RS

:SETUP FOR NORMAL RETURN
'FINISH UP,
THEN EXIT

“RESTORE RO - RS

*CORRECT THE RETURN ADDRESS
:CLEAR "'ACTIVE DRIVER'' FLAG
"RETURN 'PS‘' TO USER LEVEL
*RETURN TO CALLER

;OPTIMIZER-CALLED FOR A PARTICULAR DRI]VE

CALL

;
LS
~Oory

—-— O —SO
[« XV
P
-— g B~

)

=t wed

[p T

—

W AN AN

QOO

OPT:
027750

MOV

JSR

SAVREG

MOV

BI(B

#DRVNUM, R
PC.OPT

JSELECT THE DRIVE

JSR

:15 DRIVE STATUS ONLINE?
¢BR_IF NOT
;OUTSTANDING PORT REQUEST FOR THE DRIVE
;BR IF YES

027716

DRVSTA(RY)
6%
DPRQS(R1)
5%

#-1,ULDFLG(RY)
DRVACT(R1)

THE DRIVE

sERROR RETURN

032174

027706

—

:BR IF YES

s60 INIT.

521T15281113,16(RE;IT

035374

L il ol o

:BR IF YES

RO,DRVINT

RO,DRVQUE
9¢
#103,2(R2)
2%

000100

H
N

R1,RMCS2(R4)

000103

120000

027706

027676

11-APR-80 13:01:23 PAGE 11-7

;DRIVE NUMBER TO R1
;SETUP A COMMAND

;SAVE RO - RS

PS,=(SP)
: SAVE
ATABIT(R1),SRCHWT

PROC. STATUS
;CLEAR LA SEACH FLAG

CZRMLAQ RM05/3/2 FORMATTER
425
426
427
428
429
430
431

INITIALIZATION CODE

031130
031134
031140
031142
031144
031150
031156

432 031164
433 031166

003014
004737
012762
105761
100053
012762
000447

000010
000111
004000

CLRB
JSR
18T
BEQ

MOV
MOV

000000
000000

027706

10$:

036134
140000
027706

000016

110000

000016

446

PC,.GETREQ

R2
7%
R1,RMCS2 (R4)

031256
031262
0312664
031266
031272
031274
031300
031302
031310
031312
031314
031322
031324
031330
031334
031336
031342
0313646
031350

122762
002403
004737
000440
005737
002012

005737
100404

004037
000427
000403
004737
000423
004737
000420
112761
010103
006303
012763
000402
004737
032714
001002
004737
012637
104413
000207

000150

DRVSTA(R1)
1%

#150,2(R2)

2%:

DTUW
4%
SEEKFG

027776

032532

RO,LA

031352

3%:

031460

177777

027736

060000

030000

63
PC.CIT

8%
PC,CI3
8%

5%:

032174
000100

6%:
7$:

035374
177776

8%:

;1S THERE A REQUEST IN QUEUE?
:NO--BR TO EXIT

¢LOAD THE URIVE ADDRESS weveene

;170 PROT REQUEST

:$ESDRIVE ONLINE?

#-1,DPRQS(R1)

MOV
RESREG
RTS

;CALL THE COMMAND INITIATOR
JBR TO EXIT
JDATA TRANSFER UNDERWAY?
sYES==GO START A SEARCH

:egSIHPLIED SEEKS?

:NO--DO LOOK AHEAD
+RETURN HERE ON A PARITY ERROR
;6O START A SEARCH
;START A DATA TRANSFER

:START A SEARCH
;G0 TO THE EXIT
:SET PORT REQUEST INDICATOR
sSET UP TO ADDRESS WORDS
¢ CONVERT TO WORD INDEX

;START 10 SEC TIMER

PC,C17
#B1T06, (R&)

;PROCESS THE PARITY ERROR

PC,SET.IE
(SP)+,PS

sSET "'IE"" WITHOUT A ''TRE"

;SEE IF °'IE' ALREADY SET
:BR IF SET
+RESTORE PROC. STATUS
;RESTORE RO - RS

s COMMAND INITIATOR

TCALL

MOV
MOV

JSR

NOT

;LOAD COMMAND ONTO THE STA(K
sLOAD THE REGISTER
JREGISTER INCREMENT
sERROR RETURN ADDRESS
;DRIVE AVAILABLE ?
;BR JF NOT
:IESYHE REQUEST FOR 1/0?

R1,R3
R3
;20000.TIHER(R3) EXIT
JSR
BIT
BNE
JSR

,IF

INDICATOR
;1S DRIVE UNSAFE ?
:BR TO EXIT IF NOT
#BITI5!BIT12,16(R2)
sSET UNSAFE STATUS/ERROR INDICATOR
8$
¢BR TO EXIT

PC,Clé

030020

¢RESET THE PORT REQ FLAG wwee

;GET ''DPB"' POINTER OF REQUEST

02VSTA(R1)
8

#BIT11,(RL)

031560

SEQ 0103

PC,POPQUE
;NO--REMOVE REQUEST FROM QUEUE
MBITI5!BIT14,16(R2)
;SET OFFLINE STATUS/ERROR

000002

11-8

#1171 RMCST (RG) ;CLEAR THE DRIVE
g211i1.nncs1<aa>
;OVA SET ?

#111,-(SP)
RO,WRT.RM

LICRC

031224
031232
031234
031240
031242
0312646

656 031250
455 031254

656
457
458
459
460
661
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
4«78
479
480
48!

BGT
JSR

DPRQS(R1)

645

468
449
450
451
652
653

1S18

MOv
1ST8

L44

647

BIT
BEQ

031172
031176
031200
031206
031212
031214
031222
031224

001446
105761

027736
036112

634
635
436
437
438
439
440
461
442
643

105061
004737
005702
001472
010164
012764
032764

11-APK-80 13:01:23 PAGE

RH/RM DRIVER

MACRO v03.01

#ORVNUM,R1

#0PB,R?
PC.CI?

:DRIVE NUMBER
+ADDRESS> OF DPB
;C12= C11,C13, OR Cl4

CZRMLAQ RM0S5/3/2 FORMATTER

RH/RM DRIVER

INITIALIZATION CODE

MACRO v03.01

(82

483
484
232

487
488
489
490
491
492
493

004737
010237
010203
013704
010164
062703
062704

495 031406

012326

494 031404

496 031410

012324

012346

031412
031416
031420
031622
0314246
031430
031432
031434
031440
01444
031446

004037
000006
032174
012346
004037
000034
032174
016246
004037
000000
032174

509 031454

000137

508 031450
510
511
512
513
514
515
516
517
518
519
520

000002
035064

013704
010164
016246
004037
000034
032174
116203

030036
000010
000012
035064

031510

010346

522 031516

523 031524

524 031530
525 031532
526 031534
527 031540
528 031544
529 031546
530 031550
531 031556
532.031560
533 031564

534 031570

031574
031600
031602
031606

116266

004037

000006
032174
012746
004037
000000
032174
156137
000567
013704
010164

116203

122703
001007
016246
004037

032136

C13:

000010

177740

000011

035064

;
;
;
1$:
000001

Clé:

000002

MOV

(R3)+, (RG)+

< LOAD BUFFER ADDRESS

JSR
RMDA
€17
MOV
JSR
RMD(
c17
MOV
JSR
RM(CS1
c17

RO,WRT.RM

;CALL THE LOAD(WRITE) ROUTINE
;INDEX OF REGISTER TO LOAD
;ERROR RETURN ADDRESS
:LOAD CYLINDER ADDRESS

(RE)+, (R&)+

(R3)+.-(SP)

(R3)+,=(SP)
RO,WRT.RM

SLOAD WORD COUNT

:LOAD SECTOR AND TRA(K

2(R2),-(SP)
RO,WRT.RM

;LOAD ‘‘COMMAND+GO'’, ‘‘A178A16'', AND ''PSEL"’

MOV

R1,DTUW

;SET '"'DATA TRANSFER UNDERWAY''

MOV
MOV
MOV
JSR
RMD(
c17
MOVB
SuB
BGE
ADD
MOV

RMADR, R4
R1,RMCS2(R4)
12(R2) ,-(SP)
RO,WRT.RM

;RMCS1 ADDRESS
:SELECT DRIVE
;DESIRED CYLINDER ADDRESS

10(R2),R3

;P1CKUP SECTOR ADDRESS

JMP

BIC

RMDA
c17
MOV
JSR
RM(S1
c17
BISB
BR
MOV
MOV

MOVB

000131

035064

;REMOVE REQUEST FROM ''DRIVES WAIT'' QUEUE
;PUT REQ. IN TRANSFER WAIT OQUEUE
;DPB ADDRESS T0 R3
;RMCS1 ADDRESS
:SELECT DRIVE
;DESIRED WORD COUNT
;RMWC ADDRESS

JSR

027750

030034
000010

000010

PC,POPQUE
R2, TRNSWT
R2.R3
RMADR, "4
R1,RMCS2(R&)
¥4 R3
"2 R4

MOVB

000131
035064
030022

JSR
MOV
MOV
MOV
MOV
ADD
ADD

MOV

035064

C31460
331464
031470
031474
031500
031502
031506

:CIT=DATA TRANSFER
;C12=SEARCH REQUESTED BY DATA XFER
:C14=NOT DATA TRANSFER

MOV

035064

030020

042716

CI1:

030034
000010
000004
000002

010137

521 031512

535
536
537
538

036134
027746

SEQ 0104

;WHERE:

:
;
;
031352
031356
031362
031364
031370
031374
031400

497
498
499
500
501
502
503
504
505
506
507

N 8
11-APR-80 13:01:23 PAGE 11-9

CMPB
BNE
MOV
JSR

c1é

MXWNDW,R3
1%
#32.,R3
R3,<(SP)

;COMBINE

11(R2),1(SP

;THE DESIRED TRACK

2177740, (5P
RO,WRT.RM

#131,-(SP)
RO,WRT.RM

;BACKUP BY MAX.

SEARCH FOR 1/0 WINDOW

THE ADJUSTED SECTOR WITH

;CHOP OF ALL EXENTED BITS ,IF ANY
:LOAD DESIRED TRACK & SECTOR
:START A SEARCH

ATABIT(R1),SRCHWT
;SET "*SEARCH WAIT'
€15
RMADR, R4
;RMCS1 ADDRESS
R1,RMCS2(R4)
;SELECT DRIVE

2(R2),R3

¥131,R3
13
10(R2),=(SP)
RO,WRT .RM

KEY

:P1CKUP THE REQUESTED (OMMAND
;1S 1T A SEARCH COMMAND?
:BR IF NO
;LOAD DESIRED TRACK & SECTOR

CZRMLAO RM05/3/2 FORMATTER

RH/RM DRIVER

INITIALIZATION CODE

539 031612
560 031616
561 031616
542 031620
963 031626
544 031626
565 031632
546 031636
567 0316640
568 031642

000006
032174
000403
122703
001007
016246
004037
000034
032174
000546

550 031650
551 031652
552 031656
553 031660
556 031662
555 031666
556 031672
557 031674
558 031676
559 031700
560 031704
561 031706
562 031712
563 031714
564 031720
565 031722
566 031730
567 031734
568 031742
569 031744
570 031750
571 031752
572 031756
573 031756
574 031762
575 031764
576 031770
577 031772
578 031774
579 032002
580 032006
581 032010
582 032012
583 032014
584 032020
585 0320¢2
586
587 032026
588 032034
589 032040
590 032044
9591 032046
592 032050
593 032052
996 032056
595 032060

001013
004037
000032
032174
116216
004037
00003
032174
000530
122703
001525
122703
001522
122703
C01016
112761
105061
112761
010346
004037
000000
032174
000207
122703
001014
004037
000032
032174
116266
004037
000032
03217¢
000436
122703
001023
016203

549 031646

122703

116237
116205
004037
000000
032174
012622
023705
001414
062737

MACRO v03.01

18:

000012
035066

2s:

000115

3%:

(34704

000001
035064

000107

000117
000103

02767¢
027754

035064

000143

5%:

034704
000001
035064

000001

000141

6% :

000006

7%:

000010
0000M
034706

032044

8$:
9% :

032044

000002

SEQ 0105

000105

000001
027706
000001

11-APR-80 13:01:23 PAGE 11-10

032064

RMDA
7
BR
(MPB
BNE
MOV
JSR
RMD(C
cl17
BR
(MPB

BNE
JSR
RMOF
17
MOvB
JSR
RMOF
cl7
BR
(MPB
BEQ
(MPB
BEQ
(MPB
BNE
MovB
CLRB
MOovB
MOV
JSR
RMCS1
c17
RTS
CMPB
BNE
JSR
RMOF
cl17
Mmove
JSR
RMOF
c17
BR
CMPB
BNE
MCvV
MOvVB
Move
JSR
RMCST
c17
MOV
(MP
BEQ
ADD

2%
#105,R3
3%
12(R2),=(SP)
RO,WRT.RM
Clé

;G0 LOAD CYLINDER
;1S 1T A SEEK COMMAND
;BR IF NO
;LOAD DESIRED CYLINDER

#115,R3

:1S

1(R2), (SP)
RO,WRT .RM

;BYTE WHEN LCADING THE
;REGISTER (RMOF)

Cleé
#107,R3
Clé
#117,R3
clé
#103,R3
5%
#1,DRVACT(RY)
DRVSTA(R1)
#1,ULDFLG(RT)

:CO START THE COMMAND
;1S IT A "'RECALIBRATE'' COMMAND?
;BR IF YES
;1S 1T A RETURN TO CENTER?
;BR IF YES
;1S 1T AN "UNLOAD'' COMMAND?
:BR 1F NO
;SET THE ORIVE ACTIVE INDICATOR
sPUT DRIVE STATUS TO OFFLINE
;SET ''UNLOAD IN PROGRESS'' FLAG
;START THE 'UNLOAD'' COMMAND

PC
#143,R3
6%
RO,RD.RM

;RETURN TO USER
;1S IT A ''SET FORMAT'' COMMAND?
;BR If NO
;READ THE OFFSET REGISTER

1(R2),1(SP)
RO,WRT.RM

;COMBINE ''FMT16'","'ECI'", AND "‘HC]'’
;LOAD ''FMT16'', "ECI'', AND/OR "'HCI''.

6%
RO,RD.RM

R3,-(SP)
RO,WRT.RM

12%
#141,R3
10%
6(R2),R3
10(R2),9%
11(R2) RS
RO,RD.RM
(SP)+,(R3)+
9% ,R5
12%
#2,9%

IT AN "'OFFSET'' COMMAND?

;B8R IF NO
sMERGE THE OFFSET VALUE INTO RMOF
:BUT DON'T CHANGE THE UPPER

;1S IT A "'6ET REGISTER'' COMMAND?
:BR IF NO
;POINTS TO 1ST ADDRESS OF WHERE
;7O PUT THE REGISTER(S)
;INIT. THE INDEX FOR THE FIRST REG.
s INDEX OF LAST REG. TO MOVE
+READ RH/RM REGISTER
: INDEX OF REG. TO READ
:GET THE CONTENTS OF RH/RM REG.
;LAST REG. BEEN READ?
;GET OUT IF YES
: INCRCASE THE INDEX BY 2

€32202

032204
032206
032210

036134
000200
027774

000016

035256

060000

030000

000001

027676

010000

JSR
BIS
TST
BPL
JSR

JSR
RMCS1

cl?

RTS
ASL
MOV

ASR

MOvB
RTS
MOv

JSR
RMCS1

000010

Cl7:

BR
BIT
BNE

TST
BEQ
BNE

2%:

RTS
MOV

N
0001
035064

C178:

MOv

036016
027736
027754
027676
027746

2%:

104000

032216
032222
032226
032230
032232
032236
032242
032246
032252

012746
004037
000000
032274
004737

032256

001005
005037
012737
000207

020237

12%:

1$:

012762

105061
105061
105061

MOV

c17

005702
001001
000207

11%:

Clé6:

035064

BR
(MPB
BEQ

000016

030020

104412

032764

1%:

027736
027746
030020

JSR
RMCS?

Cl18

22%:

SEQ 0106

;LOOP--MORE TO READ

IS IT A "'SELECT DRIVE'' COMMAND>

sBR IF YES
;LOAD THE COMMAND

PC,POPQUE
#BIT07,16(R2)

;REMOVE REQ. FROM QUEUE
;SET THE ''DONE’' BIT

SAVEFG
13%
PC,SVRH70

PC
R1

JSAVE THE RM/RM REGISTERS?
;BR IF NO

JYES=-=-G0 SAVE THE REGISTERS
;RETURN TO USER

;SET A ONE SECOND TIMER

;?0000.T1HER(R1)
#1,DRVACT(R1)
PC

R3,-(SP)
RO,WRT.RM

;SET THE DRIVE ACTIVE

sRETURN

;BR IF

YES

1 T12,RMCS2 (R4

THE

USER

;LOAD THE COMMAND

;DRIVE

SANYTHING

:BR IF NOT

NON-EXISTENT

IN QUEUE

:BR IF QUEUE 1S THERE

;OTHERWISE EXI1T
#BIT15!BIT11,16(R2)
;SET "'PARITY'' ERROR INDICATOR
PC,SVRH70
;60 SAVE THE RH/RM REGISTERS
#M11,-(Sp)
;D0 A '"DRIVE CLEAR'
RO,WRT.RM
PC

JSR
CLRB
CLRB
CLRB
CMP
CMP
BNE
CLR

PC.EMPTYQ

JEMPTY

RZ.,TRNSWT
R1.,DTUW

s1F THIS DRIVE HAD AN [/0 REQUEST
:1F THIS DRIVE HAD AN [/C REQUEST

BIT
BNE

#BIT12,RM(CS2(R4)

MOv
RTS
SAVREG

000010

027676

JSR

11-11

#145,R3
12%
R3,-(SP)
RO,WRT.RM

D +—e

035064

004737
000207
006301
012761
906201
112761
000207
010346
004037
000000
032174
000761
032764

108:

100002

000145

=t P\ o=

032174

000764
122703
001405
010346
004037
000000
032174
004737
052762
005737

11-APR-80 13:01:23 PAGE

CcCDOWRO

b i

D e e e

e o

e e

e i

s e

e e

et DO O

NNO
OO N
S NNWNININ
= = O OO N~~~
il el N el Jelo Jole Polole VNP Yol P Yol ¥
e

=l=l{elololelololelolalelolalololololololole]

LA U U U U U U U U U AN LN U AN AN N AN NN AN N N
[ASIaSIASI ST ST NI NI N1, ST STNT N T,NT, ST S N1 V] N1 V1.7 €78}

—

d e

ocococoooo

596 032066
597

—

INITIALIZATION CODE

—

RH/RM DRIVER

MACRO v03.01

CIRMLAO RM05/3/2 FORMATTER

CLR
CLR
1518

BEQ
BNE

1518
BEQ
MOV
CMpP

DPRQS(R1)
ULDFLG(RY)
DRVACT(R1)
1%

TRNSWT
#-1,0TUW
PC

R1
R3
DRVACT(R1)
5%

22%
DPRQS(R1)

5%
TRNSWT ,R?
R1,DTUW

THE QUEUE

JCLEAR THE PORT REQUEST FLAG
sCLEAR THE UNLOAD IN QUEUE FLAG
sDRIVE IS IDLE
s IN PROGRESS CLEAR ALL OF

THE

FLAGS

;sSAVE RO - RS
;1S 'NED* SET ?

;BR

YES

JDRIVE ACTIVE?
;BR 1F NO

;BR IF IN ACTIVE
;PORT REQUEST

;BR IF NOY
JGET THE ''TRANSFER WAIT'' QUEUE

;DID THIS DRIVE HAVE AN 1/0 IN PROGRESS?

CIZRMLAOQ RM05/3/2 FORMATTER

INITIALIZATION CODE

= ONNOO
—
= OV
NO—=OO~N
WO Wooor
NN
= =

NON
=N =N
NENSNSN
220000
—0O
NN
S SN

RH/RM DRIVER

032436

032444
0326446
032452
032456
0324€0
032466

005201

062703

042701
001314
012737
005037
004737
012764
000406
004737
105061
105061

004737
104413
000207

MACRO v03.01

036112

2s%:

010000

000010

100002

000016

BEQ
JSR
TST
BEQ
BIT
BEQ

MOV

B8R

102000

000016

MOv

177777

030000

(8:

MOv

027676
C27736
030020
177777
027746
027754
010000

030020

000010

000002
177770
177777
027746

035740
000040

JSR

CLRB
CLRB
CMP
BNE

MOV

5%:

CLR
CLRB
BIT
BNE
INC

036016

027706
027716
035374

7%:

CLRB
CLRB
JSR
RESREG
RTS

;BR IF YES
:GET THE DPB POINTER
sQUEUE ENTRY FOR DRIVE ?
:B R

NOT

: 'NED' SET ?

NOT
;SET

'DRIVE NON-EXISTENT®

CONTINUE

#-1, TIMER(R3)

DRVACT(R1)
DPRQAS(R1)
R1,0TUW

#-1,0TUW
TRNSWT

ULDFLG(R1)

#BIT12,RMCS2(R4)

TRNSWT
PC,CLRQUE

PC,EMPTYQ
DRVSTA(R1)
DRVTYP(R1)

PC,SET.IE

:STOP THE TIMER

;SET ''DRIVE ACTIVE'' TO IDLE

;CLEAR PORT REQUEST FLAG
;1S THIS DRIVE SETUP FOR A TRANSFER
;BR IF NOT
JRESET THE INDICATOR
sCLEAR THE TRANSFER QUEUE
;CLEAR UNLOAD FLAG

; 'NED' SET ?

;BR IF YES
sMOVE TO THE NEXT DRIVE
:BR 1F MORE DRIVES
:NO DATA TRANSFERS UNDERWAY
;CLEAR THE °'TRANSFER WAIT' QUEUE
;CLEAR ALL OF THE REQUEST QUEUES
;DO A MASSBUS INIT.

s CONTINUE
;CLEAR THE DRIVE'S QUEUE
;SET DRIVE TO OFFLINE
;CLEAR THE DRIVE TYPE INDICATOR

SSET "IE'' WITHOUT *‘TRE"

;RESTORE RO - RS
+RETURN

;LOOK AHEAD ROUTINE

‘CALL

MOv
MOV

#DRVNUM,R1
#DPB,R2

RO,LA
JSR
RETURNI
RE TURN?2
RETURN3

032532

013704
010164
004037
000012
032700
042716
022726
001044
105261
126137

003033

030034
000010
034704

LA:

JSR

RMDS
63

157577
000200

027764
027764

MOV
MOV

030042

BIC
CMP
BNE
INCB
(MPB
367

INDICATOR

#BIT15!81T10, 16(R2)
sSET ''NON-CLEARABLE PARITY'' ERROR
PC,SVRH70
;SAVE RH/RM REGISTERS

;ELR,RMCSZ(Ré)

BR
JSR

SEQ 0107

R IF
lng15'BITO116( RZ)

MOv

CLR
JSR

6%:

gnglZL,RMCS2(R4)

MOV

BIC
BNE

000010

PC,GETREQ
R2
43

R1
N2 ,R3
#C7,R1
1%
#-1,DTUW

ADD

030020

11-APR-80 13:01:23 PAGE 11-12

RMADR R4

R1,RMCS2(R4)
RO,RD.RM
#~(020200,
(SP)
g%OO.(SP)O

:DRIVE NUMBER
;POINT TO DPB
;60 CHECK THE WINDOW
:ERROR RETURN
;START A SEARCH
;START

A DATA TRANSFER

;GET RMCS1'S ADDRESS
SSELECT DRIVE
;READ DRIVE

STATUS

:ERROR RETURN ADDRESS
:ON CYLINDER

PéP
=0,DRY=1?

LACNT(R1)
s INCREMENT THE LOOK AHEAD COUNT
52(NT(R1),HXLACT
{EXCEED MAX?

;BR IF YES

INDICATOR

CIZRMLAG RM0S5/3/2 FORMATTER

RH/RM DRIVER

INITIALIZATION CODE

MACRO v03.01

000010

000340
03470¢

11-APR-80 13:01:23 PAGE
MovB

SWAB

177776

6%:

000020

ASR
ASR
MOV

JSR

RMLA
I3 3

(mMp

RO,RD.RM

sREAD LOOK

R3
R3
#340,PS

(SP) ,RMLA(RG)

;PRIORITY LEVEL ''7''

AHEAD REGISTER

;ngRECT LA NUMBER

7$:

B8R
SuB

3%
(SP)+,R3

sCALCULATE THE DELTA

1%:

CMP

2%:

032174

sGET DESIRED SECTOR ADDRESS AND
sMULT. BY 64==ALIGN WITH
;LOOK AHEAD REGISTER

3% :
032700
032704

030046

027764

SEQ 0108

BEQ
TST

004000
030044

10(R2) ,R3

11-13

5%:

BGE
ADD

BLT
CMP
BGE
CLRB
TST

787
BR

JSR

RTS

(SP)+

1%
#<32.¢64.>,R3

MXDLTA,R3

L1
MNDLTA,R3
3%
LACNT(R1)
(RO)+

(RO)+
5%

PC,C17

sNO,CLEAR STA(K

;MAKE

THE

DELTA POSITIVE

:CHECK THE DELTA TO SEE

JIF 1T 1S WITHIN THE
;WINDOW=-==1F YES, ZERO
;THE LOOK
;AND TAKE

AHEAD COUNT
THE 1/0 EXIT

:éDf?ST THE RETURN ADDRESS

JEX
;PROCESS
JRETURN

THE

ERROR

JINTERRUPT SERVICE ROUTINE
032706
032714
032716
032722
032726
032730
032734

032736
032742
032744
032750

000001

027752

ISR:

030034
030020

032752
033122
000002

1%:

2%:

027752

MovB
SAVREG

105061

012737
006301
012761
006201
013702
005037
052762
010164
004037
000000
032174
006126
100417

005737

027676

177777

030020

177777

030000

027746
027746
000200
000010
034704

000016

;ADDRESS OF RHS(CSI

RMADR,R&
DTuW,R1
1%
FC,TD

JSR

PC,SC

JEXIT

CLRB
RTI

ACTDRY

JRESTORE RO - RS
sCLEAR ""ACTIVE DRIVER'' FLAG

RESREG

CLRB
MOV
ASL
MOv
ASR
MOV

CLR
B1S

MOV

JSR
RM(CS1

cl7

027774

;SET "'ACTIVE DRIVER'' FLAG
sSAVE RO - RS

MOV
MOV
BLT
JSR

s TRANSFER DONE

032752
032756

#1,ACTDRYV

ROL
BM!

15T

;GET "'DATA TRANSFER UNDERWAY'' INDICATOR
;BR 1F NO DATA TRANSFER UNDERWAY
;CALL TRANSFER DONE

sCALL SPECIAL CONDITIONS

sRETURN

ROUTINE

DRVACT(R1)
¥-1,0Tuw
R1
#-1,TIMER(RY)
R1
TRNSWT ,R2
TRNSWT
#BITO7,16(R2)

R1,RMCS2(R4)
RO,RD.RM
(SP)+

SAVEFG

;SET DRIVE ACTIVE INDICATOR TO IDLE
sNO DATA TRANSFERS UNDERWAY

;CANCEL TIMEOUT

;GET ''DPB'' ADDRESS FROM THE

;TRANSFER WAIT QUEUE--CLEAR QUEUE
;SET DONE
;SELECT THE DRIVE

; TRANSFER ERROR(TRE=1)?

:BR

YES

;SAVE THE RH/RM REGISTERS?

)

CIRMLAO RMOS5/3/2 FORMATTER

RH/RM DRIVER

INITIALIZATION

NN NN N (]
N ]
MMMWMWWS

N s
O
oOrosr

—d

H e
o nro

OO0OO0O0OO0OO
OOOOO0OO0O0

767 033040
768
3
772
3
774
3 046
775
3
776
3
777
3
778
3
779
780
3
781
3 070
782
33072
783
3
784
3
785
3
786
3
787
3
788
789
806
807
808
~NOWNES
NN — o

el ol

)

(o
-JoTN«
To-To
Jo Jo To Yo ][o ]

—_

)
—

OO0

809

100002

MACRO v03.01
CODE

004737

035256

004737
005702
001403
004737
000417

036112

012714
000414
052762
004737
004737
012714

000113

012714
000400

BPL

JSR

JSR
1S7
BEQ

031114

100100

036016
035256
0401
000113

F
11-APR-80 13:01:23 PAGE

2IHE

000016

3%:

JSR
BR

RELEASE
MOV

Sk
B1S
JSR
JSR

MOV
MOV

1%
PC,SVRH70

;BR IF NO

THE

REGISTERS

;GET DPB POINTER
JENTRY FOR DRIVE ?
:BR IF NOT

PC,GETREQ

113, (R4)
SC

SEQ 0109

sYES==SAVE

PC,OPT
SC
DRIVE COMMAND

9
11-t4

;CALL OPTIM]IZER
; CHECK OTHER DRIVES

FORECD TO ENTER FOR DUAL PORT
;RELEASE THE DRIVE
CHECK FOR OTHER DRIVES

OPERATION

flBIT1S!BITOb,16(R2)
PC,EMPTYQ

PC,SVRH70
#40111,(R&G)
#M113,(RG)
SC

;SET DATA ERROR FLAG
;EMPTY THE "'DRIVE'S WAIT" QUEUE
;SAVE THE RH/RM REGISTERS
;1SSUE A "DRIVE CLEAR"
;1SSUE A RELEASE TO THE DRIVE
;CHECK FOR OTHER DRIVES

;SPECIAL CONDITION ROUTINE
116403
001014
004037
000000
032274

106126
100405
004037
104001

004737
000207
005046

110316
012703
005001

000016

SC:

034704

MOvB

BNE
JSR
RMCS1

RMAS (R4) ,R3

;READ "'RMAS'’

RO,RD.RM

;READ

c18
1%

ROLB

BM]
JSR
EMT
JSR

036202

035374

RTS

CLR

MOvB
MOV

000001

030316
001005
005201

SCé:

CLR
BIT
BNE
INC

SCS5:

BNE
1ST
RTS
1578

2%:

JMP
1518
BEQ
JMP
1518

SC3:

106303

001373

027726

216

034134
027736

230

034134
027706

242
246

02775¢4

036112
035256

ASLB

BEQ

BGT

1S18

BLE
JSR
JSR

(SP)+

1%
$O.ES.SAV
PC,SET.IE
PC
=(SP)

R3,(sP)
#,R3
R1

R3, (SP)
SCS5
R1
R3
SC3
(SP)+
PC

DPINT(R1)
1%
SC13
DPRQAS(R1)
2%
SC13
DRVSTA(RY1)
5%
ULDFLG(R1)
5%
PC.GETREQ

PC,SVRH70

;BR IF ANY 'ATA' BITS SET
CONTROL

JEXIT IF FAlL

;1S VIET=1?

AND

STATUS

TO READ

:YES, NO DRIVES TO CHECK

:SAVE THE ADDRESS IN 'SESCAPE'
;REPORT AN ILLEGAL INTERRUPT
sSET INTERRUPT ENABLE
;RETURN
;PROCESS ALL

;AN 'ATAM=1

DRIVES

THAT

HAVE

:ATA=1?

JYES

sMOVE TO THE NEXT DRIVE
:8R IF MORE 10 CHECK?
;CLEAN OFF THE STA(K
;RETURN TO USER
;INITIALIZING THE DRIVE
:BR IF NOT

sPROCESS THE

DRIVE

;PORT REQUEST QUTSTANDING ?
:BR IF NOT
¢START

THE OUTSTANDING COMMAND

:CHECK THE DRIVE STATUS
:BR IF ONLINE
:UNLOAD IN PROGRESS?
«BR IF NOT
;GET DPB POINTER
;SAVE

THE

RH/RM REGISTERS

CIRMLAO RMOS5/5/2 TORMATTER

RH/RM DRIVER

INITIALIZATION CODE

MACRO v03.01

11-APR-BO 13:01:23 PAGE

SEQ 0110

843 033260

004737

034064

JSR

PC,SC12

845
846
B47
848
849

033264
033270
033272
033300

105761
003414
032737
001000

027706

850 033302

033306
033310
033314
033316

027670

$s.

DRVSTA(RY)
6%
#BIT14,RMERRS
3s
SC11

851
852
853
854
855
856
857
858
859
860
861
862

013705

TSTB
BLE
BIT
BNE
JMP

027676

5¢%:

BR
1818
BNE
JSR

SCHA
DRVACT(RY)
SC6
PC.SC12

844

000504
105761
001033
004737

033322
033326
033330
033334
033336
033344

105761
001323
105761
100412
032737
001013

863 033346

012746

864
865
866
867
868
869
870
871
872
873
B76
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889

890
891
892
893
894
895

033352
033356
033360
033362
033364
033370
033372
033374
023374
033400
033402
033404
033406
033414
033416
033422
033426
033432
033436
033440
033442
033444
033446
033450
033454
033456
033464
033466
033472

033474
033476
033500
033506
033510
033514

896 033516

004037
000000
033724
011605
004037
104002
000701

00464037
104005
000675
006301
012761
006201
004737
010164
000137
004037
000012
033724
011605
006126
100407
105761
003137
052762
000470
004037
000014
033724
012605
004737
012746
004037
000000
033724

040000

027666
:

034064
027726

6%:

027706
020000

027672

;

000111

0350646
7%:

036202

8$:

036202

177777

030000

SC6:

036112
000010
033754
034704

027676

100210
034704

035256
000111
035064

11-15

000016
1%:

MOV

1578
BNE
1STB
BM]
BI1T
BNE
MOV

MOV

RMERRS+2,RS

;SAVE RMDS, RMERY, RMERZ2, AND RMMR?

sALSO DO A DRIVE INIT (DRVINT)

:DID DRIVE COME ONLINE?
*NO
:WAS THERE AN ERROR?
:BR IF ERROR
;NO ERROR

:YES == PICKUP RMERT AND

:60 PROCESS THE ERROR
;DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ?
:BR IF EITHER
:SAVE RMDS, RMER1, RMER2, AND RMMR?
:ALSO DO A DRVINT
DPINT(RY)
TRYING TO INIT THE DRIVE ?
SC4
:BR IF YES, CHECK ON MORE DRIVES
DRVSTA(RY)
JCHECK ON DRIVE'S STATULS
7%
:BR IF UNSAFE
#BIT13,RMERRS+4 ;ADDRESS PLUG CHANGED ?
8$
‘BR IF YES
#113,-(SP)
JRELEASE COMMAND

#1171 .-(SP)

:DRIVE CLEAR

JSR
RMCS
SC8
MOV
JSR
EMT
B8R

RO,WRT_.RM
(SP),RS
RO,ES.SAV
2
SC&

;WRITE THE COMMAND INTO RM(S1
*REGISTER INDEX
JPARITY EXIT ADDRESS
;PICKUP (RMAS) BEFORE THE ERROR CALL
:SAVE THE ADDRESS IN 'SESCAPE'
;REPORT THE UNEXPECTED ATTENTION
;60 CHECK FOR MORE ATA'S

JSR
EMT
BR
ASL
MOV
ASR
JSR
MOV
JMP
JSR
RMDS
5C8
MOV
ROL
BM]
TSTB
867
81S
BR
JSR
RMER?
SC8
MOV
JSR
MOV
JSR
RMCS
SC8

RO,ES.SAV
5
$Ch
R1
#-1,TIMER(R1)
R1
PC.GETREQ
R1,RMCS2(R&)
scit
RO,RD.RM

;SAVE THE ADDRESS IN 'SESCAPE'
;REPORT THE ADDRESS PLUG CHANGE
SCHECK FOR MORE DRIVES
JSETUP TO ADDRESS WORDS
:STOP THE TIMER
JRESTORE THE DRIVE ADDRESS
:GET THE DPB POINTER FROM THE QUEUE
SSELECT DRIVE
:PROCESS THE SEARCH
:READ THE RM'S STATUS REG.

(SP),RS
;AND PUT IT IN RS
(SP)+
:WAS THERE AN ERROR?
1%
;BR 1F ERROR
DRVACT(R1)
:CHECK DRIVE'S STATE
AR
;BR IF DRIVE ACTIVE WITH ORDER
#B1T15'B1T07'BIT03,16(R2)
;INFORM USER OF
SC7
RO,RD.RM
;READ ERROR REGISTER w1
(SP)+,RS
PC,SVRHTO
#111,-(5P)
RO,WRT.RM

JAND SAVE 1T IN RS
“SAVE RH/RM REGISTERS
“1SSUE A DRIVE CLEAR

ERKOR RECOVER COMPLETION

CZRMLAQ RMOS/3/72 FORMATTER

RH/RM DRIVER

897
898
899
500

INITIALIZATION CODE

033520
033522
033524
033526

006105
100406
005702
001447

902 033536

000443

MACRO v03.01

SCOA:

901 033530 052762 100240 000016
903
904
905
906
907
908
909
910
911
912

033540
033544
033546
033550
033552
033554
033556
033564
033570
033576

004037
000012
033724
011605
006126
100011
112761
004737
052762
000423

916 033616
917 033622
918 033624
919 033632
920 033634
921 033640
922 033646
923
924 033652
925 033656
926 033662
927 033664
928 033670
929 033676
930 033702
931
932 033704
933 033710
934 033714
935 033716
936 033720
937 033724
938 033730
939 033732
940 033736
941 033742
942 033744
943
944 033744
945 033750
946 033754
947 033760
948 033762
949 033766
950 033772
951
952 034000
953 034002

112761
006301
012761
006201
000137
052762
105061
004737

036134

913 033600
914 033604
915 033606

032705
001015
112761

105761
003002
105061
116164
105761
100406

034704

177777
035256
110000

000016
2%:
Q27676

072460

030000

033176
100220
027676

000016

027706

3%:
SC?

027754

027754
030022
027706

012746
004037
000000
033724
000137
105761
001405
004737
004737
000402

000111
035066

004737
000137
105761
003402
105061
105061
136137

032216
033176
027754

001012
004737

027706

177777

000001

00006

1%:
.

033176
027676

2% :
SC8:

036112
032174

027754
027676
030022
036134

1%:
:
2% :
SC11:

027750

ROL
BM]
181
REQ

RS
1%
R2
SC7

B8R

SC7

BiS
1%:

010000

H 9
11-APR-80 13:01:23 PAGE 11-16

1%:

JSR
RMDS
SC8
MOV
ROL
8PL
MOVB
JSR
BIS
BR

BIT
BNE
MOvVB

MOVB
ASL
MOV
ASR
JMP
BIS
CLRB
JSR
JSR
T1ST8B
BGT
CLRB
MOvVB
1518
B8M]
MOV
MOV
JSR
RM(CS
SC8
JMP
1S1B
BEQ
JSR
JSR
BR
JSR
JSR
JMP
1S1B
BLE
CLRB
CLRB
BITB
BNE
JSR

SEQ 0111

:WAS "'UNSAFE'' CONDITION =1?
‘BR IF YES
ANVTHING IN GUEUE ?
IF NOT

lBITlS!BITO?.BITbS 16(R2)
RO,RD.RM

:INFORM USER OF ERROR

JREAD DRIVE STATUS REG.

(SP),RS
:SAVE RMDS IN RS
(SP)+
LUERR''=12
2%
JBR 1F NO=--UNSAFE CLEARED
#-1,DRVSTA(RY)
:DRIVE IS UNSAFE
PC,SVRHT70
;SAVE RH/RM REGISTERS
#BIT15!'BIT12,16(R2)
;INFORM USER OF UNSAFE ERROR
SC7
#BIT12.RS
38
#-1,DRVALT(R1)

n1 ,DRVSTA(R1)

;'MOL
= 1 2
‘BR IF YES
ACTIVE ERROR RECOVEPR

:ONLINE

xsoooo ,TIMER(RY)

;START

30 SECOND TIMER

sca
#81715.81707.81704,16(R2)
;INFORM USER OF
DRVACT(RY)
;DRIVE IS IDLE
PC,EMPTYQ
;DUMP THE QUEUE
PC,POPQUE
;REMOVE THE QUEUE

ERROR

ULDFLG(RY)
JUNLOAD IN RMOGRESS OR QUEUE?
1%
:BR IF NOT
ULDFLG(R)
JCLEAR UNLOAD FLAG
ATABIT(R1) ,RMAS(R4)
;CLEAR ATTENTION BIT
DRVSTA(RY)
;1S THE DRIVE UNSAFE ?
2%
;BR IF IT IS
#113,-(SP)

#¥111,-(SP)
RO,WRT.RM
SCh
DRVACT(RY1)
1%
PC,GETREAQ
PC,C17
2

JRELEASE COMMAND

;DRIVE CLEAR COMMAND
;WRITE THE COMMAND INTO RP(CS!
JREGISTER INDEX
JPARITY EXIT ADDRESS
:CHECK FOR MORE DRIVES
;1S DRIVE IDLE?
SYES
;GET DPB POINTER
JPROCESS THE PAR]ITY ERROR
: CONT INUE

PC,C17
JPROCESS THE PARITY ERROR
PC,CI78
JPROCESS THE UNCORRECTABLE PARITY ERROR
SCh
:CHECK MORE DRIVES
ULDFLG(R1)
:"'UNLOAD IN PROGRESS'"TM?
1%
‘BR IF NO
ULDFLG(R1)
SCLEAR UNLOAD FLAG
DRVACT(RY)
JSET DRIVE IDLE
ATABIT(R1),SRCHWT
:DOING A SEARCH OPERATION fOR
;AN 170 COMMAND?
2%
:BR If YES
PC,PCPQUE
;REMOVE REQUEST FROM QUEUE

CIRMLAO RM05/3/2 FORMATTER

RH/RM DRIVER

954
955
956
957
958
959
960
961
962
963

964
965
966
967
968
969
970
971

INITIALIZATION CODE

034006
034014
034020
034022
034026
034034
034042
0364044
034052
034054

034060
034064
034070
034076
0341064
034112
034120
034124

052762
005737
100002
004737
116164
146137
006301
012761
006201
004737

000137
010164
016437
016437
016437
016437
004037
000401

972 034126
973 034130
974 034132
975 034134
976 034136
977 036144
978 034146
979 034152
980 034160
981 034164
982 034166
983 034172
984 034176
985 034200
986 034204
987 034206
988 034210
989 034212
990 034216
991 034226

000207
005726
000674
006301
012761
006201
010164
116164
105761
001424
105061
004037
000240
105761
003014
005702
001426
004737
052762
004737

993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
188;

004737
000414
032764
001006
006301
012761
006201
000402
004737
000137
d

99?2

034230
034234
034236
034244
034246
034250
034256
034260
034262
034266

00
02

005737
001027

11-APR-80 13:01:23 PAGE

11-17

SEQ 0112
000016

BIS

#BITO7,16(R2)

03
03
03

000016
027750

BPL
JSR
MOVB
8l1(B

2%
sBR IF NO
PC,SVRH70
¢ YES==SAVE AL OF THE RH/RM REG'S
ATABIT(R1) ,RMAS(R4)
sCLEAR ATTENTION BIT
ATABIT(R1),SRCHWT
;CLEAR IMPLIED SEEK SET

030000

MOV

#-1,TIMER(RY)

187

2§:

ASL

033
0000
000012
000014
000042
000040
030264

027666
027670
027672
027674

SC12:

1$:

177777

030000

000010
030022
027726

000016

SC13:

1%:

027726
030264
027706

036112
140000
035256

000016

004000

000000

060000

030000

031114
033176
- wny

027752

ASR
JSR
JMP

2%:

4%:
k3 ¥

:SAVE

THE

sWORD

INDEX

R1
PC,OPT
SC&

sRESTORE R1
sSTART A REQUEST
;CHECK FOR MORE DRIVES

REGISTERS?

;STOP CLOCK

R1,RMCS2(R4)
sSELECT DRIVE
RMDS (R4) ,RMERRS ;SAVE THE FOUR REGISTERS THAT
RMER1(R4) ,RMERRS+2
;WILL TELL US SOMETHING
RMER2(R4) ,RMERRS+4
RMMR2
(R4) ,RMERRS+6
RO,DRVINT
INIT. THE STATE OF THE DRIVE
1%
:TAKE ERROR EXIT

TST

(SP)+

RTS

:RETURN

B8R
ASL
:gx

SC8
R1
;;1.11nsn<n1)

;PROCESS THE PARITY ERROR
;SETUP TO ADDRESS WORDS
:STOP THE TIMER

MOV

R1,RMCS2 (R&4)

*SELECT THE DRIVE

RO,DRVINT

;60 INIT THE DRIVE
;DUMMY PARITY ERROR RETURN
;DRIVE ONLINE ?
;BR ]F YES =-- START ORDER

MOVB
T1S78
BEQ
CLRB

:POP PC OFF

THE

STA(K

ATABIT(R1) ,RMAS(RS)
;CLEAR THE ATTENTION BIT
DPINT(R1)
JINITIALIZING THE DRIVE ?
2%
:BR IF NOT
DPINT(R1)
JCLEAR THE INIT INDICATOR

JSR
NOP
1STB
BGT
1S7
BEQ
JSR
BIS
JSR

DRVSTA(RY)
2%
R2
JQUEUE ENTRY FOR THE DRIVE
3%
:BR IF NOT
PC,GETREQ
;GET DPB ADDRESS
MBITIS!BIT14,16(R2)
:INFORM USER THAT DRIVE OFFLINE
PC,SVRHT70
;SAVE THE REGISTERS

JSR
BR
BIT
BNE
ASL
MOV
ASR
BR
JSR
JMP

PC.,POPQUE
;REMOVE THE QUEUE
3¢
#BIT11,RMCST1(RSG)
:DVA SET ?
(3 1
JSET THEN CALL OPT
R1
#60000, TIMER(RY)
R1
3%
PC.,0OPT
JSTART THE PENDING REQUEST
SC4
sPROCESS OTHER DRIVES

PC,EMPTYQ

;RM TIMER ROUTINE
;CALL
;
MOV
#TIME ,-(SP)
JSR
PC,RMTMR
RMTMR:

;SET ''DONE’’ BIT

SAVEFG

MOV
MOv
MOV
MOv
Moy
JSR
BR

JSR

036134

1009 034272
1010 034276

MACRO v03.01

TST
BNE

ACTDRvV
4%

JEMPTY THE REQUEST QUEUE

JELASPED TIME IN MILLISECONDS ON THE
;CALL RMOS TIME ROUTINE
.

;CHECK ''ACTDRY & ACTSTR"
:IF NON 2ERO EXIT

STAIN

CIZRMLAQD RM0S5/3/2 FORMA TTER

RH/RM DRIVER

1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1026
1025
1026

INITIALIZATION CODE

034300
034306
034310
034312
034314
034320
034322
034330
034332
034336
034340
034342
034346
034350
034352
034356

}8%; 034360

112737
104412

005001
005003
005763

002406
166663
003002
004737
005201
005723
022701
003362
104413
105037
012616

000001

MACRO v03.01

034362

027753

MOVB
SAVREG

1%:
030000
2%:

000010
027753

000207

13:01:23 PAGE

11-18
SEQ 0113

030000
000002

11-APR-80

CLR
(LR
TS7T
BLT
sSuB
BGT
JSR
INC
TST
CMP
BGT
RESREG
CLRB
MOV

RTS

#1,ACTSTR

R1
RY
TIMER(R3)
2%
2(SP),TIMER(R3)
29
PC,ST0
R1
(R3)
¢
#8. ,R1
1%
ACTSTR
(SP)+,(SP)

;SET "'ACTSTR"
JSAVE RO - RS
:START WITH DRIVE 0

;1S THE TIMER RUNNING?
;BR ]F NO
:COUNT THE INTERVAL
:BR IF NO SOFTWARE TIMEOQUT
JCALL SOFTWARE TIMEOUT ROUTINE
JMOVE TO NEXT DRIVE

;OUT OF DRIVES?
;JBR JF NO
JRESTORE RO - RS
JIERO ACTIVE SOFTWARE
JADJUST THE STACK

;SOF TWARE TIMEOUT ROUTINE

1031

JNOTE:

THIS ROUTINE MUST

;CALL:
:
;
;

STO
MOV
JSR
RETURN

#DRVNUM, &1
PC,STO

;DRIVE NUMBER
sCALL

STO:

MOV

R1,=-(SP)

;SAVE

1034
1035
1036
1037
1038
1039
10640
10641
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066

M
H

034362

010146

034364
034366
034370
034372

010246
010346
010446
013704

034406

000012

034376
034402

010164
004037

034410
034412
034414
034416
034422
034424
034430
034432
034436
034442
034444
034450
0344564
034462

034672
105726
100436
105761
001033
105761
001030
013702
020137
001404
000137
004737
052762
004737

034466
034472
034476
034502

105061
105061
005037
012737

1067 034510

000470

030034

000010
034704

STO1:

027736
027746
030020

034672
036112
101000
035256
027676
027754
027746
177777

MOV
MOV
MOV
MOV
MOV
JSR

;

027726

OR GREATER

1%:
;

RMDS
ST0S
ST09
1518
8M]
1578
BNE
1818
BNE
MOV
(MP
BEQ
JMP
JSR
BIS
JSR
MOV
CLRB
CLRB
(LR
MOV

BE ENTERED AT

R2,=-(SP)
R3,-(SP)
R4 ,-(SP)
RMADR, R4
R1,RMCS2(R4)
RO,RD.RM

FLAG

:RETURN

}8%8
1032
1033

TIMEOUT ROUTINE

PRIORITY 6

;SAVE RZ2
JSAVE R3
JSAVE R&
;GET ADDRESS OF ''RM(CS1'
;SELECT THE DRIVE
+READ 'DRIVE STATUS REG'

(SP)+
;1S "DRY''=1?
ST102
;BR IF YES
DPINT(R1)
sTRYING TO INTIALIZE THE DRIVE ?
ST102
JBR IF YES
DPRQS(R1)
;OUTSTANDING PORT REQUEST FOR THE DRIVE
ST102
;BR IF YES
TRNSWT ,R2
;sPICKUP TRANSFER WAIT QUEUE
R1,DTUW
s TRANSFER UNDERWAY ON THIS DRIVE?
1%
;BR IF YES
ST109
s1F NOT DON'T BOTHER DRIVES
PC,5ETREQ
JGET DPB ADDRESS
#BIT15'BIT09,16(R2)
;SET THE ERROR FLAGS
PC,SVRH70
:SAVE RH/RM REGISTERS
#CLR,RMCS2(R4)
:"'INIT'' THE MASS BUS
DRVACT(R1)
JDRIVE 1S IDLE
ULDFLG(RY)
sCLEAR THE UNLOAD FLAG
TRNSWT
JCLEAR DPB ADDRESS
#-1,0Tuw
JCLEAR THE TRANSFER DRIVE #

$109

;DON'T BOTHER OTHER DRIVES

CZRMLAQ RM0OS5/3/2 FORMATTER

RH/RM DRIVER

INITIALIZATION

1068 034512

COD

116405

000016

1070 034522
1071 034524

001007
105761

027726

1074
1075
1076
1077
1078
1079
1080

001035
0004546
105761
001003
105761
00144
012763

1069 034516
1072 034530
1073 034532

034536
034540
0364542
034546
034550
034554
034556

136105

001021
105761

1081 034564

000442

1083 034572
1084 034574

000437
105061

1082 034566

1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096

034600
034604
034612
034616
034620
034622
034630
034632
034640
034644
034650
034652

1098
1099
1100
1101
1102
1103
}}82

034662
034666
034672
034674
034676
034700
034702

1097 034654

004737
105061
012763
004737
005702
0014264
052762
000414
012763
105061
004737
005702
001407

012762

004737
004737
012604
012603
012602
012601
000207

MACRO v03.01

11-APR-80 13:01:23% PAGE

ST02:

9
11-19

MOvB

RMAS (R4)

BNE
1S18

$103
DPINT(R1)

SYES
JTRYING TO INTIALIZE THE DRIVE

1%:

BNE
BR
T1STB
BNE
1818
BEQ
MOV

S107
ST09
DPINT(R1)
1%
DPRQS(R1)
ST109
#-1,TIMER(R3)

;BR IF YES = NO RESPONSE TO REQUEST
;OTHER WISE EXIT
“INITIALIZING THE DRIVE ?
:BR If INIT PENDING
;PORT REQUEST PENDING ?
;BR IF NOT
;STOP THE TIMER

032274

STO5:

JSR

PC,C18

260 HAYDLE THE PARITY ERROR

027726
027706
177777
036112

ST06:

CLRE
MOV
JSR
18T
BEQ
B81S
B8R
MOV
CLRB
JSR
ST
BEQ

;CLEAR THE INITJALIZE INDICATOR
DRVSTA(RY)
SSET UNIT OFFLINE
#-1,TIMER(R3)
;STOP THE TIMER
PC,GETREQ
;GET THE DPB ADDRESS
R2
neoussv IN QUEUE 2
$T09
R IF NOT
#BITIS!BITI4, 16(R2)
;INFORM THE USER DRIVE NOT AVAILABLE
ST08
sFINISH
#-1,TIMER(R3)
:STOP THE TIMER
DPRQS(R1)
;CLEAR PORT REQUEST INDJCATOR
PC,GETREQ
;GET DPB ADDRESS
R2
*QUEUE ENTRY FOR DRIVE ?
ST09
BR 1F NONE

030022

027736

‘

027726

STO3:

027736
177777

030000

140000

000016

177777
027736
036112

030000

100004

000016

036016
035256

STO7:

ST08:
ST09:

BITB
BNE
1518

BR
CLRB

MOV

JSR
JSR
MOV
MOV
MOV
MOV
RTS

,RS

ATABIT(RT).RS

$T06
DPRQAS(RY)

$109

$T09
DPINT(R1)

JREAD ATTENTION REG

:IS ATTENTION FOR THIS DRIVE UP ?

1108
1109
1110
1mnm
1112
}}}2

SCALL
.
.
.
:
:

034706
034712
034716
036722
034726
034730
034732
034734
034742

1124 034746

013737
011646
013737
062037
013727
000000
000000
013766
013746

062716

030032

035052

030034
034730

034730

034732
030034

000002

000010

RC,RD.RM

;G0 READ A REGISTER
;REG. INDEX FROM BASE
JERROR ADDRESS=-PROCESS ERROR STARTING
sAT THIS ADDRESS
JCONTENTS OF REG. IS ON THE STACK

MCPEMX,RD.RM2
(SP) ,-(SP)
RMADR,RD.ADR
(RO)+.RD.ADR
a(PC)+,(PC)+
0
0
RD.WRD,2(SP)
RMADR -(SP)

:MAX. RETRYS ALLOWED
;SAVE RO FOR RETURN
:FORM THE DESIRED ADDRESS
:USING THE BASE AND THE INDEX
:-READ THE DESIRED REGISTER OF THE RM DRIVE
;ADDRESS IS “ORMED HERE
*REG. CONTENIS PUT HERE
:RETURN 1T 10 THE USER
sPUT THE ADDRESS ON THE STACK

RETURN

RD.RM:

MOV
MOV
MOV
ADD
RD.RM1: MOV
RD.ADR: .WORD
RD.WRD: .WORD
MOV
MOV

ADD

;INFORM USER OF PORT REQUEST ERROR

;CLEAR THE QUEUE FOR THE DRIVE
:SAVE THE REGISTERS
;RESTORE R4
:RESTORE R3
‘RESTORE R2
;RESTORE R1
*RETURN

JROUTINE TO READ A RH/RM REGISTER
JSR
INDEX
ERRADR

CEXIT

#BIT15!BITZ, 16(Ré)

PC,EMPTYQ
PC,SVRH?O
(SP)+,R4
(SP)+,R3
(SP)+.R2
(SP)+ ,R1
PC

‘BR IF YES - DRIVE NOT ONLINE
;OUTSTANDING PORT REQUEST FOR THE DRIVE

}}8?

1115
1116
1117
1118
1119
1120
1121
1122
1123

SEQ 0114

SRMCS2, (SP)

*FORM THE AZDRESS OF RMCS?2

CIZRMLAO RM05/3/2 €0 RMATTER

RM/RM DRIVER

INITIAI 1ZATION CODE

1125 034752
1126 034756

032736
003037
0°7746
032716
001002
022620
000432

034776
€35002
035004
035010
035012
035016

006037
104003
005737
100405
032716
001402

1127
1128
1129
1130
1131
1132

034760
034766
034770
034772
034776
034776

1133
1134
1135
1136
1137 035020
1138 035022
1139 035026
1140 035030
1161 035032
1142 035040
1143 035044
1144 035046
1145 035050
1146 035052
1147 035054
1148 035056
1149 035060

}}gg 035062

005726
000415
052716
000316
013737
005237
112637
000000
005327
000003
002324
011000
012616
000200

MACRO v03.01

11-APR-80

BIT
BNE

173050
020000

1$:

036202
030020
040000

040000
035046

MOV
BIT
BNE
CMP
BR

#BIT12,3(SP)+
RD.RM3

:CHECK THE 'NED' BIT
;BR IF DRIVE NON-EXISTENT
:READ RM(S1
;:DID MCPE SET?
:BR IF YES
:ADJUST FOR RETURN
JEXIT

RO,ES.SAV
3
DTUW
2%
#BIT14,(SP)
2%

;SAVE THE ADDRESS IN 'SESCAPE’
;REPORT "'MCPE'' ERROR
:DATA TRANSFER UNDERWAY?
:NO
JUTRE = 12
:NO
;YES==CLEAN OFF THE STACK AND
:TAKE THE FATAL ERROR EXIT
;CLEAR "MCPE'' BY SENDING A ''1'' TO '‘TRE"
;POSITION BEFORE WRITING
;FORM ADDRESS OF HIGH BYTE

aRMADR, - (SP)
#BIT13,(SP)
1%
(SP)+, (RO)+
RD.RM4

JSR
EMT
18T
BMI
BIT
BEQ
TST
BR
2%:
BIS
SWAB
MOV
INC
MOVB
3%:
WORD
DEC
RD.RM2: .WORD
BGE

(SP)+
RD.RM3
#BIT14,(SP)
(SP)
RMADR, 38
3%
(SP)+,a(PC)+
0
(PC)+
3
RD.RM1

RD.RM4: RTS

RD.RM3:

}}2%

MOV
MOV

(RO),RO
(SP)+,(SP)

;WRITE THE HIGH BYTE OF
;ADDRESS STORAGE
;EXCEEDED MAX. RETRYS

RM(CS1
.

:BR IF NO
:FATAL ERROR EX]T

;ROUTINE TO WRITE A REGISTER

1154

s CALL

1155
1156

:
:

MOV
JSR

}}28

RETURN

1157
1158

1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176

11-20
SEQ 0115

010000

030034
035046

13:01:23 PAGE

:
:

035064
035072
035100
035102
035106
035110
035116
035120
035126
035126
035130
035132
035136
035142
035150
035152

013737
016537
012616
012037
001015
122737
002411
004037
000000
035246
000316
042716
112637
063737
012737
000000

030032
000002

1178 035156

013746

030034

1177 035154

1179 035162

000000

062716

035242
035152

035154

000150

035152

034704

177770
035153
030034

000010

035154

INDEX
ERRADR

WRT.RM: MOV
MOV
MOV
MOV
BNE
CMPB
BLT
JSR
RMCS1
WRT.R3
SWAB
BIC
MOVB
1$:
ADD
WRT.R1: MOV
WRT.WD: .WORD

WRT.AD:

.WORD

MOV

ADD

DATA,=-(SP)
RO,WRT.RM

;DATA TO BE LOADED ON THE STACK

;CALL THE ROUTINE TO LOAD(WRITE) THE REG.
;INDEX OF THE REGISTER T9 BE LOADED
;ADDRESS TO RETURN TO ON AN ERRCR

;ERROR FREE RETURN

MCPEMX,WRT.R2
2(SP) ,WRT.4WD
(SP)+,(SP)
(RO)+,WRT.AD
1%
#150,WRT.WD
18
RO,RD.RM

(SP)
#*C7,(SP)
(SP)+,WRT
. WD+
RMADR ,WRT.AD
(PC)+,a(PC)+
0
0
RMADR, = (SP)

#RMCS2, (SP)

;MAX RETRYS ALLOWED
;SAVE THE WORD TO WRITE
;ADJUST THE STACK
;GET INDEX OF REGISTER TO BE WRITTEN
:BR IF NOT RMCSI
;1S THE COMMAND FOR DATA TRANSFERS?
;YES==DON'T GET THE OLD Al16 & A17, & PSEL
;NO---COMBINE A168A17, & PSEL WITH
:THE COMMAND BEFORE SENDING [T T0
:THE RM/RM

;FORM THE ADDRESS OF THE DISK REG.
;LOAD THE DESIRED REG.
:WORD TO WRITE GOES HERE

sADDRESS ]S FORMED HERE

;PUT THE ADDRESS ON THE STACK

;FORM THE ADDRESS OF RM(S?2

CZRMLAO RM05/3/2 FORMATTER
=2 OO0 ~NONE
NN = O

WNANNTNINN
= =2 O OO ~N~NO

035252
035254

010000

034704
000010
177776
034704

035224
1¢:

WRT.R3:
WRT.R4&:

TST

(RO)+

SVRH70:

030034
000010
000014

000207

B8R

RTS
TO SAVE

1%:

2%:
3%:

035336

000046

000002

035336

(% :

5%:
6%:
¢ROUTINE
CALL

(SP)+

WRT.RS
RO

THE

JCLEAR OFF

JEXIT

;ADJUST

THE STACK

FCR ERROR

FREE

EXIT

RH/RM REGISTERS AS PER DPB+14

MOV

#DPBNUM,R?

PC,SVRH?70

JSAVE TWE DRIVES REG'S

SAVREG
TST
BEQ

R2
6%

;SAVE RO - RS
;QUEUE ENTRY FOR THE DRIVE
;BR 1F NONE

JSR

MOV

034704

032174

1871

MOovB
MOV

000010

;READ THE REG.

DECREHENT THE ERROR COUNT
JRETRY COUNTER
;TRY AGAIN IF NOT FINISHED
;TAKE THE ‘'PARITY ON WRITE'' ERROR EXIT

000200

RO.RD.RH

:BR If '"'PAR=0Q"'
;PICKUP THE INDEX

(PC)+
3
WRT.R1
(RO),RO

s CALL
.

000022

lBlTOS (SP)+

WRT
‘Z(RO) 1%

;sCHECK THE °'NED' BIT
:BR IF DRIVE NON=EX,>TENT
JCHECK FOR PARITY ERROR ON WRITE

DEC
.WORD
BGE
MOV

WRT.RS:

035336
035336

#BIT12 a(SP)+
WRT.R3
RO, RD RM

RO,ES.SAV
4

_
WRT.RZ:

002341
011000
000401
005720
000200

BIT
BNE
JSR
RMER1
WRT.R3
BIT
BEQ
MOV
JSR
MORD
WRT.R3
JSR
EMT

SEQ 0116

JREG. INDEX
JRETURN TO THIS ADDRESS ON ERROR
:SAVE THE ADDRESS IN 'SESCAPE’
JREPORT THE PARITY ON WRITE ERROR

036202

\fl\h\fi\fl\fl\h\flm\fl\fl\.fl

O VOO ~NO WV
WA
NO WV
OV
N

ANN) = O OVMNO WV

NN NN NN NI NN NNV NN

M9
11-APR-80 13:01:23 PAGE 11-21

JROUTINE

=lelelelelelelelelelelelelolelalelelelalolelel
el
U U U L Wl U U L U U Ll L A L L U L L N
N
N

INITIALIZATION CODE

S b b et et 2 et b =2 = O O OO0 O OO0 OCOOVOVVOOVVOY

= O OO0 ~NO N S (NN

el el

)

il
el
B

il
el

el
e

—

e cd

D ol e

el o

e i

)

D el

el e

s el e

MNORLNLMNLNLALRLNLNVRNRNLNINI
NN NNV NNV
NN PNV NI NPV NI PNINININI NINININ
b e b
b e

)

D e

OO 000000000000 00000000

RH/RM DRIVER

MACRO v03.01

RMADR,R&

;:DPB FOINTER TO R?

CMP

(R2) ,RMCS2(R4)
14(R2) ,R3
6%
3%
3%.,#RMDB

BIT
BNE
CLR

#B1T07,RMCSZ(R4}
;'0OR' SET ?
2%
;BR ]F SET
(R3)+
;STORE RMDB AS ZEROES

JSR
.WORD
5%
MOV

RO,RD.RM
O

BEQ
CLR

BNE

CMP

BEQ
ADD
BR
JSR
RESREG
RTS

TO SET
MOv

;SELECT DRIVE
JGET THE ERROR TABLE POINTER

JEXIT IF NO ADDRESS
;COUNTER & POINTER
JREACHED THE BUFFER REGISTER ?

;8R IF NOT

;s CONTINUE

(SP)+,(R3)+
3%, #RMEC?

JREACHED THE END ?

6%
#2,3%
1%
PC,C17
PC

THE

JREAD THE SELECTED REGISTER
JREGISTER INDEX
;ERROR RETURN ADDRESS
sSTORE THE REGISTER CONTENTS
;BR IF YES
:INCREMENT THE REGISTER INDEX
;CONTINUE READING THE REGISTERS
PROCESS THE UNCORRECTABLE PARITY ERROR
sRESTORE RO - RS
JRETURN

INTERRUPT WITHOUT GETTING A '‘TRE''

#DRVNUM,
R

;DRIVE NUMBER T0 R!

CIRMLAD RM0S5/3/2 FORMATTER

INITIALIZATION CODE

N
9
11-APR=-80 13:01:23 PAGE 11-22

OO-20000 ~OQO0O0O0O00O

OOO_OOOOC 200000

Il o ¥ ol ol o F W L (Y V[V ]
W NN
b ot 0 OO NN
[aS 1o 1 NTe 0 p el J, S o 3 o)

:
:
SET.IE:

030034
000010
0460000
000100
010000

000001

PC,SET.IE

;SET “'IE"

MOV

R4, =(SP)
RMADR , R4

:SAVE R&
*PICKUP ADDRESS OF

MoV

BIS

SWAB
MOvB

000010

BIT
BNE

18:
2%:

1ST
BR

MovBe
MOv
RTS

;QUEUE COUNT

.BYTE
.BYTE
.BYTE

.BYTE
.BYTE
BYTE
.BYTE

000

SEQ 0117

JSR
RETURN

R1,RMCS2 (R&)

MOV
MOV

QCNT:

(R&),~(SP)

#1114, (5P)
(SP)

SSELECT DRIVE

RMCS1

‘READ RM(CS!

:SET THE "'TRE'' BIT OF THE WORD READ
*ADJUST FOR DATO

#BLT06, (R4)

SSET “IE

égp)+

:CLEAN OFF

(SP)+,1(R&4)

;CLEAR ''TRE"'

0
0
0
0
0
0
0
0

:DRIVE
:DRIVE
;DRIVE
:DRIVE
:DRIVE
:DRIVE
;DRIVE
:DRIVE

#BIT12.RMCS2(R4)
IS ''NED''=1?
1%
;YES==CLEAR ''TRE"'

(SP)+.R4
PC

THE

STACK

*RESTORE R4
:RETURN TO CALLER

0
1
2
3
&
§
6
7

;QUEUE INPUT P OINTERS

035472
035474

035540
035560
035600
035620
035640
035660
035700
035720

QINPT:

.WORD

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

QDivO
QDRV1
QDRV?
QDRV3

;DRIVE O
:DRIVE 1
‘DRIVE 2
:DRIVE 3

QDRVS

:DRIVE 5

QORV7

:DRIVE

QDRV4

QDRV6

:DRIVE

;QUEUE OUTPUT POINTERS

MNOO

VWAV
NNV
RNUND —

— ot e
o0
&0 &~

VWD A

VAW VAN
WVVALVALAWILL

NN NN N

OO0O0O =t =

035476
035500

OOO0O00O00

—
—.—l—‘—.—.-‘.‘—‘—‘-‘d-fl—._Q—.—‘—.—D—‘d—b—.—‘-‘—‘—.—“—.-‘—.—.d-.-‘d-‘-‘—‘—._‘—J—‘—._‘—‘—. - il el il e il D )
~n NNINMNRNNIAN
LS, ST, €T UY WY, V] . ¥1,¥71 V7, V1 N1, N1, ¥, N1, N1, NT,N 1, VT, ¥ N7, 81,87,¥1,871,§] o
NN NN NN NN L¥1,% L1, 91,81,¥1,NT,¥1,91,91,8T.§)
o
OOV
OCO000000 NN NN NNNNNNOO oo
[o Yo Yo JV IV IV
RV IV IV IV IV V.Y =
Pl
o &~ 5PN
N NN
o~
N = OOV
NO WV
NN =O D00 N WV
NN —=O 00D ~No
~o ¥ ]
MM
= OO0~

RH/RM DRIVER

MACRO v03.01

035540
035560

QOUTPT:

035600
035620

QSTART:
QSTOP:

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

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

QDRVO

;DRIVE 0

QDRV?
QDRV3

:DRIVE 2
:DRIVE 3

QDRVS

:DRIVE S

QDRV7

:DRIVE

QDRV1

QORV4

QDRV6

QDRVO
QDRV1
QDRV?
QDRV3
QDRV4
QDRVS
QDRV6

:DRIVE
1
:DRIVE

*DRIVE

:DRIVE O START ADDRESS
:DRIVE O STOP ADDRESS
.£ DR 1 v E
-STOP DRIVE 1--START DRIVE 2
:STOP DRIVE 2--START DRIVE 3
:STOP DRIVE 3--START DRIVE 4
:STOP DRIVE &--START DRIVE 5
:STOP DRIVE S--START DRIVE 6

START

ADDRESS

CIRMLAQ RM0S5/3/ 2 f _FORMAT TER
DEPACRO v03.01
RH/RM DRIVER IN ITIALIZA
11
TION
03 5720
03 5740

.MORD
.WORD

QDRVO:

.BLKW

QDRV6:

.BLKW

QDRVS:
QDRV7:

QTERM=.

104412

035446

.BLKkW

.BLKW
.BLKW

10
10

;

JSR

PC.CLRQUE

CLROUE:

SAVREG
MOV
CLR

#QCNT,R2
(R2)+

CLR
CLR
CLR

O=O0O0O0O0O0O0OOCO o
OO0OO0OO0O—=2——=200
—-— pury
O =2 \NNONIN
= NN ~N
NS NN = N NWWN—~
YN
O—=NOMNOONONOO
SN AN AN =2 LN AN N =2 N

NS W) - OO 00

QDRV4L:

005022

036014

SSTOP DRIVE

10
10

CALL

~NO NS NN = OV~
WO NO VNS NN = O OONO WS NN 2OV

d
el o
o
D e
D
i
e
e
el e
e
ld e
il
e
i o
il
D
D
i
e
e
i
i
D rd e
D
ot

A L A U U Ul N U A AN U N U U U N A U U N U
U
AN U NN N NN N
AN
N N N A NN NN NN NI NI NO PINOININD —b b e b s s ecd b acd s oo

i
s
i e
i
el
)
i
—r o

.BLKW

.BLKW
.BLKW

;ROUTINE TO CLEAR ALL OF

740

;STOP DRIVE 6-=START DRIVE

QTERM

QDRV1:
QDRV2:

QDRV3:

035740

A A8 L L L L W
D02

QODRV?7

SEQ 0118

;DRIVE REQUEST QUEUES

jelololelolololsl

N N N NN N NN
VAN NNV

1293 035534
1294 035536
1295
1296
1297
1298
1299
1300

B 10

11-APR-B0 13:01:23 PAGE 11-23

MOV

1$:

:SAVE RO - RS
:1ERO THE QUEUE
:DRIVES 0 & 1

(R2)+
(R2)+
(R2)+

COUNTS

;DRIVES 2 ¢ 3
:DRIVES & & 5
;DRIVES 6 £ 7

#8. ,R3

:MOVE

THE

STARTING

:THE

QUEUE

INPUT

MOV

#QASTART,R1

DEC

MOV

8. ,R3

:MOVE

MOV
DEC
BNE

(R1)+, (R2)+
R3
2%

*QUEUE OUTPUT POINTER

MOV

BNE

2%:

THE REQUEST QUEUES

MOV

RESREG
RTS

(R1)+,(R2)+

#QSTART,RI

SADDRESS OF THE QUEUE INTO

:OF

THE

;RESTORE

POINTER

STARTING ADDRESS

QUEUE

INTO

THE

RO - RS

;EMPTY THE QUEUE SPECIFIED BY R!

CALL
;

MOV

JSR

PC,EMPTYQ

DRVNUM,R1

:DRIVE NUMBER T0 R1

EMPTYQ:

ggna

g%NT(R1)

:CLEAR NUMBER OF

;

036016
036022
036024
036032
036034

105061

006301
016161
006201
000207

035446
035456

035476

;ROUTINE

LCALL
:
:

zgx

g%NPY(R\).QOUIPT(Rl)

RTS

10 PUT

MOV
MOV

JSR

A REGUEST

#DRVNUM, R1
#DPB,R2
RO,CRvaUE

ITEMS

IN QUEUE

;SET OUTPUT QUEUE POINTER=INPUT POINTER

IN QUEUE

;DRIVE NUMBER
*ADDRESS OF PARAMETER BLOCK

.60 PUT REQUEST

IN QUEUE

CIRMLAQD RMOS5/3/2 FORMATTER

RH/RM DRIVER

INITIALIZATION CODE

MACRO v03.01

1350

}%g}

1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
}%gg

036036
036044
036046
(36052
036054
036060
036066
036074
036076
03610«
03610
036110

122761
0014621
105261
006301
010271
062761
026161
001003
016161
006201
005720
000200

000010

035446

035456
035520

035516

035456

RETURN]

RETURN?

DRVQUE:

CMPB
BEQ
INCB
ASL
MOV
ADD
(MP
BNE
MOV
ASR
TST
RTS

035446
035456
000002
035456

¢ 10

11-APR-80 13:01:23 PAGE 11-24

1%:
2%:

SEQ 0119

JRETURN HERE If QUEUE IS FULL

JRETURN HERE ]F REQUEST IS IN QUEUE
#10,QCNT(RY)
;1S QUEUE FULL?
2%
JBR IF YES-TAKE RETURNI
QCNT(RY)
s INCREMENT QUEUE COUNT
3
R2,3QINPT(R1)
;PUT THIS REQUEST IN QUEUE
#2,QINPT(RY)
;UPDATE THE QUEUE POINTER
QINPT(R1),QSTOP(R1)
JTIME TO RESET THE POINTER
1%
:BR IF NO
QST .T(R1),QINPT(R1)
;YES=-<=RESET PCINTER
R*
(RJ))+
;TAKE RETURN 2
RO
JRETURN TO USER

}ggg

JROUTINE TO GET THE ''DPB'' ADDRESS OF NEXT REQUEST IN QUEUE

1368
1369
1370
1371
}g;%

s CALL
:
;
:
:

1374
1375
1376
1377
1378
1379
}gg?

036112
036114
036120
036122
036124
036130
036132

005002
105761
001404
006301
017102
006201
000207

GETREQ:

035446

1%:

035476

2%:

MOV
JSR
RETURN

#DRVNUM R
PC,GETREQ

CLR
1518
BEQ
ASL
MOV
ASR
RTS

R2
QCNT(RY)
2%
R1
®QOUTPT(R1),R2
R1
PC

;1S THERE ANY REQUEST
sNO

IN QUEUE?

;PICKUP ''DPB'' POINTER FOR THIS DRIVE

;RETURN TO USER

}gg%

JROUTINE

1384
1385
1386
}ggg

:CALL
.
;
;

MOV
JSR
RE TURN

#DRVNUM, R
PC,POPQUE

;DRI1VE NUMBER T0 R1
;CALL TO REMOVE REQUEST
JR2-ADDRESS OF DPB REMOVED

POPQUE:

DECB

QCNT(R1)

;DECREMENT QUEUE COUNT

CMP
BNE
MOV
ASR
RTS

;GET THE ''DPB'' POINTER
sREMOVE DPB ADDRESS FROM THE QUEUE
JUPDATE THE QUEUE POINTER
QOUTPT(R1),QSTOP(R1)
JTIME TO RESET THE POINTER?
1%
:NO-=-BR T0 EXIT
QSTART(R1) ,QOUTPT(R1)
JYES=-=-RESET THE POINTER
R1
PC
sRETURN TO USER

1389 036134

1390
1391
1392
1393

1394
1395
1396
1397

036140
036142
036146
036152

036160
036166
036170
036176

}ggg 036200
1401

105361

006301
017102
005071
062761

026161
001003
016161
006201

000207

035446

035476
035476
000002
035476

035476
035520

035516

035476

1%:
JROUTINE

T0 ''POP'' THE REQUEST

;DRIVE NUMBER T0 R1
;60 GET THE REQUEST
;R2=""DPB'' ADDRESS OF THE REQUEST
;R2=0 1F NO REQUEST IN QUEUE

ASL
MOV
CLR
ADD

R1
9QOUTPT(R1),R2
9QOUTPT(RY)
#2,Q0UTPT(RY)

TO SAVE

THE

CONTENTS OF

1402
1403
1404
1405

JREPORTS AN ERROR DIRECTLY.
;
JCALL
;
JSR
RO,ES.SAV

1407

1406

ERROR

RE TURN

FROM QUEUE

'"SESCAPE'

WHEN THE

::THE ERROR CALL

*THE RETURN IS PAST

DRIVER

THE ERROR CALL

CIRMLAO RMOS/3/2 FORMATTER

RH/RM DRIVER

1408
1409
1610
1611
16412
16413
}:}g

INITIALIZATION CODE

036202
036206
036212
036216
036220
036224

012037
013746
005037
000000
012637
000200

036216
001176
001176
001176

MACRO v03.01

0D 10

11-APR-80 13:01:23 PAGE

11-25
SEQ 0120

ES.SAV: MOV
MOV
CLR
1%:
.WORD
MOV
RTS

(RO)+,18
$ESCAPE ,-(SP)
$ESCAPE
0
(SP)+ ,SESCAPE
RO

JGET THE ERROR CALL
;SAVE THE ADDRESS IN 'SESCAPE'
JCLEAR THE ESCAPE RETURN
;THE ERROR CALL IS MOVED HERE
JRESTORE THE ESCAPE ADDRESS
;RETURN

CIRMLAO RMOS5/3/2 FORMATTER

MACRO v03.01

TELETYPE MESSAGES

;
3
&
5
6
7
8
9
10

036226
036237
036247
036270
036305
036315
036335

036342
036347
036354
036372
036403
036405
036411
036413
036415
036417
20 036421
11
12
13
14
15
16
17
18
19

21
22
23
24

040
040
040
040
040
040
122

122
122
200
200
060
040
103
106
126
131
062

036423
036424
036425
036426

040
040
040
040

26 036457
27 036500

040
040

117
117
116
116
125
M
115

115
115
125
106
000
057
000
000
000
000
000

28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
&4

036525
036554
036574
036624
036636
036672
036713
036767
037004
037053
037132
037211
037230
037305
037331
037356
037373

040
040
040
040
200
200
200
200
200
200
200
M
105
124
200
040
040

000
116
077
077
077
077
077
123
120
106
106
126
117
117
117
116
116
110
123
050
050

&7
4«8
49
50
51
952

037452
037505
037537
037600
037633
037656

200
200
200
200
200
200

123
123
123
123
106
103

25 036430

65 037406
46 0374626

53
54
55
56
57

037700
037723
037753
037775
040022

105

040
105

200
124
200
1¢9
105

050
116

126
117
052
122
116

106
116
117
117
116
123
060

060
060
116
122
0640

E 10
12

11-APR-80 13:01:23 PAG E

.SBTTL

TELETYPE MESSAGES

UNTOFF:
UNTON:
NOTRM:
NOTPRS:
NOTSAF:
LODEV:
$RMO2:

_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ

S$RMO3:
SRMOS:
UNSTAT:
MUNIT:
lERO:
SLASH:
C:
F:
T:
Y:
TWO:

_ASCIZ
,ASCIZ
,ASCIZ
_ASCIZ
,ASCIZ
LASCIZ
ASCIZ
CASCIZ
ASCIZ
CASCIZ
LASCIZ

_ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
_ASCIZ
.ASCIZ

<CRLF>/STARTING FORMAT ON DRIVE /
<CRLF>/STARTING CHECK ON DRIVE /
<CRLF>/STARTING QUICK VERIFY ON DRIVE /
<CRLF>/STARTING VERIFY ON DRIVE /
<CRLF>/FORMAT COMPLETE, /
<CRLF>/CHECK COMPLETE, /

104
104

MOFFLN:
MDRNP:

.ASCIZ
_ASCIZ

104
105
122
117
117
105
120
120
120
126

MLODEV:
MSELD:
MMODE:
MFORMT:
MCHECK:
MVERFY:
MSIZE:
MSEC30:
MSEC32:
BADENT:

106
106

104
101
105
060
061
062
126
126
126
126

126
117
110
105
126
052
105
124

MER11:
MUSDR:

MADRER:
MSELP:

MSFOR:
MSCHK:
MSQVER:
MSVER:
MFCMPT:
MCCMPT:

MVCMPT:
NUMERR:
STARS:
ADDR]S:
MESG1:

/RMQ3/
/RMOS/
<CRLF>/UNIT STATUS:/
<CRLF>/DRIVE: /
/0/
@/ a
/C/
/F/
/1/
/Y/

.ASCIZ
,ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI1
.ASCIZ
.ASCI]
.ASCI1
CASCI1

.ASCII
.ASCI1
.ASCI1
.ASCIZ2

ENTADR:

/ QFFLINE/
/ ONLINE/
@ NOT AN RM05/3/23
/ NOT PRESENT/
/ UNSAFE/
/ IS LOAD DEVICE/
/RM02/

72/
/ /
/ /
/ /
/ /
/ENTER ADDRESS LIMITS:/<CRLF>
/ ?DRIVE OFFLINE/<CRLF>
/ 7DRIVE NOT PRESENT/<CRLF>
/ ?DRIVE NOT AVAILABLE/<CRLF>
/ 7DRIVE UNSAFE/<CRLF>
/ ?0RIVE 1S LOAD DEVICE/<CRLF>
/ SELECTED/
<CRLF>/PROGRAM MODE (F, € OR V): /
<CRLF>/FORMAT & VERIFY/
<CRLF>/FORMAT & VERIFY WITH ROTATING DATA PATTERN/
<CRLF>/VERIFY ONLY/
<CRLF>/OPERATE IN 32 SECTOR MODE (Y OR N) ? /
<CRLF>/OPERATION WILL BE IN 30 SECTOR (18 BIT) MODE/<CRLF>
<CRLF>/OPERATION WILL BE IN 32 SECTOR (16 BIT) MODE/<CRLF>
/INVALID ENTRY/<CRLF>
/ENDING DISK ADRS MUST BE EQUAL TO OR GREATER/<(RLF>
/THAN STARTING ADRS/<CRLF>
<CRLF>/SELECT DATA PATTERN/<CRLF>
/ (0) ZERQ'S /<CRLF>
/ (1) ONE'S/<CRLF>

BLNKS&:
BLNKS3:
BLNKS2:
RLNKS1:

124

SEQ 0121

.ASCIZ

,ASCIZ
.ASCIZ

LASCI1
.ASCIZ

_ASCIZ
,ASCIZ
LASCIZ
.ASCIZ
L.ASCIZ

/7 (2) WORST CASE/<CRLF>
/ENTER (0, 1 OR 2): /

<CRLF>/VERIFY COMPLETE, /
/TOTAL ERRORS DETECTED: /
<CRLE>/wesesnrnennenne/C(RLF>
/PRESENT ADDRESS IS: /
/ENTER THE SERIAL NUMBER (MAX.

10 OCTAL DIGITS)/

CIRMLAQ RM0S/3/72 FORMATTER

MACRO v03.01

TELETYPE MESSAGES

SEQ 0122

58
59
60
61
62
63
66
65
66
67
68

040101
040112
040164
040212
040300
040354
040373
0460415
040464
040544
040624

200
200
120
200
200
200
200
200
113
120
120

123
17
101
1RR
012
101
120
123
105
122
122

116
126
103
116
M
114
122
105
15
1M
11

70
71
72
73
76
75
76
77
78
79

040764
0461044
041124
041204
041236
041321
041404
061467
041552
041622

0461672
0641742
042012
042041
042051

120
120
105
200
200
200
200
200
200
200

200
200
105
104
200

122
122
130
105
105
105
105
105
061
061

m
m
M
116
116
116
116
116
066
070

042126
042174

127
120

122
101

111
103

69 040704

80
81
82
83
84
85
86
gg
89

F 10
11-APR-80 13:01:23 PAGE 12-1

IR R

116

061
061
116
117
105

SN1:
MESG3:
MESG2:
MESGL:
MHALT:
MSGBLK:

066
070
126
116
116

LASCIZ
.ASCI]
LASCI2Z
.ASCII
LASCIZ
.ASCI]
_ASCIZ
.ASCI]
LASCI]
LASCI]
LASCI]

<CRLF>/SN # : /
<CRLF>/OVER 126. BAD SECTORS MAVE BEEN DETECTED/<CRLF>
/PACK NOT ACCEPTABLE !/
<CRLF>/INCORRECT MANUFACTURES DEFINED BAD SECTOR INFORMATION/
<CRUF><LF>/INITIALIZE THE BAD SECTOR FILE (Y OR N) 7/
<CRLF>/ALIGNMENT PACK/
<CRLF>/PROGRAM HALTED !/
<CRLF>/SELECT ONE OF THE FOLLOWING FUNCTIONS/<CRLF>
/KEYIN U.S.R. BAD SECTORS ...vvvirrreneencnaas 0/<CRLF>
/PRINT M.F.G. BAD SECTORS ... vveeeenrncennnnne 1/<CRLF>
/PRINT U.S.R. BAD SECTORS. ... vieeeeenonncnnnn 2/<CRLF>

LASCI]
ASCIT
CASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/PRINT A SECTOR OF THE LAST TRACK....vveeeuenne 4/<CRLF>
/PRINT THIS MESSAGE....vviierrenneecncennnnnnns S/<CRLF>
XY oitieeereenoeoncosacennsonasnancenasnse <CR>/
<CRLF>/ENTER UTILITY FUNCTION: /
<CRLF>/ENTER 16 BIT M.F.G. BAD SECTOR ADDRESS IN DECIMAL/
<CRLF>/ENTER 18 BIT M.F.G. BAD SECTOR ADDRESS IN DECIMAL/
<CRLF>/ENTER 16 BIT U.S.R. BAD ScCTOR ADDRESS IN DECIMAL/
<CRLF>/ENTER 18 BIT U.S.R. BAD SECTOR ADDRESS IN DECIMAL/
<CRLF>/16 BIT M.F.G. BAD SECTOR FILE IN OCTAL/
<CRLF>/18 BIT M.F.G. BAD SECTOR FILE IN OCTAL/

LASCIT ZINITIALIZE U.S.R. BAD SECTOR FILE.eveeeeeunens 3/<CRLF>

MUTLTY:
MESGS:
MESG6:
MESG7:
MESG8:
MESG9:
MESG10:
MESGI1: .ASCIZ
MESG12: .ASCIZ
MESG13: .ASCIZ
MESG14: ,ASCIZ
MESG15: .ASCIZ
SMESG16:
. ASCIZ
MESG17: ._ASCI]
ASCIZ

.EVEN

<CRLF>/16 BIT U.S.R. BAD SECTOR FILE IN OCTAL/
<CRLF>/18 BIT U.S.R. BAD SECTOR FILE IN OCTAL/
/ENTER SECTOR NUMBER
/
/DONE '/<CRLF>
<CRLF>/ENTER M.F.G. BAD SECTOR ADDRESS IN DECIMAL/<CRLF>
/ILLEGAL BAD SECTOR, PACK NOT ACCEPTABLE '/<(CRLF>
/WRITE BAD SECTOR FILE NOT SUCCESSFUL,/<CRLF>
/PACK 1S NOT ACCEPTABLE '/<CRLF>

e
e
e
A
ol o
Al
Al
Al
Al
AL
Al
i
Al
AL
Al
Ak
Bkl
n
AMD
Bkl
Bkl
Ak, Lkl
Bl
Bk, Bl
Bl
Bl

LASCIZ
Q'HCE' OR 'HCRC' ERROR VERIFYING HEADERSQ
LASCIZ
QCYLINDER FIELD IN HEADER IS NOT CORRECT®
.ASCIZ
GSWRITE CHECK ERRORa
LASCIZ /ILLEGAL BAD SECTOR, PACK NOT ACCEPTABLE/

EM22:
EM23:
EM24:
EM?PS:

Ak, Bt

103
1164
111
116

EM16:
EM17:

EM20:
EM21:

116
126

/DRIVE OFFLINE/
/PERSISTENT DRIVE UNSAFE ERROR/
/UNCORRECTABLE MASSBUS PARITY ERROR/
/SOFTWARE TIMEOUT/
/DRIVE UNSAFE ERROR/
QCONTROLLER/DRIVE ERROR DURING WRITER
QCONTROLLER/DRIVE ERROR DURING WRITE (HE(K3
QRETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLEa
QDATA ERROR DURING WRITE CHECK3
QCONTROLLER/DRIVE ERROR VERIFYING HEADERSA

124
116

.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI1Z
-ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

110
131
122
114

EM10:
EMI1:
EMI12:
EM13:
EMIG:
EM15:

047
103
127
m

QRH/RM DIDN'T RESPOND TO ADDRESSINGa
QTRACK/SECTOR FIELD IN HEADER 1S INCORRECTa

043260
063330
043400
043422

.ASCIZ
LASCIZ

111
122
103
106
111
116

EM6:
EM7:

/UNEXPECTED ATTENTION OCCURRED/
/MASSBUS PARITY ERROR (MCPE=1)/
/MASSBUS PARITY ERROR (PAR=1)/
/ADDRESS PLUG CHANGE BIT SET/

043151
0643207

122
105
116
117
122
117
117
105
101
117

QRH/RM INTERRUPT OCCURRED (RMAS=0)a

<ASCIZ
<ASCIZ
LASCIZ
.ASCIZ

20
21
22
%3

043021
043073

057
101

LASCIZ

EM2:
EM3:
EM4:
EMS:

104
120
125
123
104
103
103
122
104
103

110
122

EM1:

105
123
123
106

042572
042610
042646
042711
062732
042755

122
1264

057

10
11
12
13
14
15
16
17
18
19

8 042455
9 062520

110

116
101
101
104

125
115
115
101

122

062270
042326
062364
062621

3 062226

&
5
6
7

ERROR MESSAGES

.SBTTL

;

SEQ 0123

ERROR MESSAGES

610
13

11-APR-80 13:01:23 PAG E

MACRO v03.01

CIRMLAOQ RM0S5/3/2 FORMATTER

CIRMLAD RM0OS5/3/2 FORPATTER
ERROR MESSAGES
1

MACRO v03.01

043472

122

115

& 043663

104

122

2 043540
3 043612

104
104

101

H 10
11-APR-80 13:01:23 PAGE 1 4

DH1:

.ASCIZ
.ASCIZ

/RMDB
/DRIVE

8 046132
9 044210

122
104

115
122

104
111

DH1QB:
DH17:

}g 044766

104

REG ADR

/RH ADDRESS/
/DRIVE
ERR PC

DHé:

DH6:
DH10:

104
122
122
122
104
040
104

/DRIVE

.ASCIZ
.ASCIZ

111

040
111

044257
046326
0464423
0446521
044554
044613
044701

.ASCIZ

.ASCIZ
.ASCIZ

110
122

10
11
12
13
14
15
16

RM(S1

DH2:
DH3:

122
104
122

/RMAS

111
111

S 063746
6 043761
7 0464046

ASCIZ

122
122

115

122
115
115
115
122
040
122

122

105

111
103
127
123
111
040
BN

111

DHIQA:

DH20:
DH20A:
DH20B:
DH20C:
DHZ23:
DH264:

DH2S:
.EVEN

,ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIL
LASCIZ

LASCIZ

/DRIVE
/DRIVE

SEQ 0124

RMER!

RMDS
RMER1
REG ADR
DATA

600D

RM(S1

RMER?2
RM(S1

BAD

RM(S2

RMBA

RMDS

RMAS
RMER!

RM(S1

RMDS

RMDA/

RMER1

RMER?/

RMER1

RMER2/

RM(S1/
RMER?2/

RMEC2

/DRIVE
/RMCSY
/RMWC
/RMSN
/DRIVE
7
/DRIVE

ERR PC CYLINDER TRACK
SECTOR/
RMCS2
RMDS
RMER1
RMER2
RMMR2
RMEC1
RMEC2/
RMBA
RMDA
RMAS
RMLA
RMDB
RMMR1
RMDT/
RMOF
(CYLINDER
TRA(K/
ERR PC
EXPCTD
RECVED/
MEMORY
DISK/<(R><LF>
ERR PC
C(YLNDR
TRA(CK
SECTOR
DATA
DATA/

RMMR1
RMDT
RMSN
ERR PC CYLINDER TRACK

CYLNDR

TRA(K

SECTOR

RMDA

RMDC

/RMEC1

/DRIVE

RMW(

RMER2

RMAS

RMOF
CYLINDER
SECTOR/

RMLA/

TRA(CK/

CIRMLAO RMOS/3/2 FORMATTER
ERROR MESSAGES

045030

001372

005560

MACRO v03.01

SEQ 0125

005574

DTI:

.WORD

034732

DT3:

.WORD

2 045046

001370

027666

4 065076

001370

035154

035152

3 045062

001370

034730

027670

S 065114
6 045116

001274
001222

001132

045772

8 065164

005626

005562

7 045126

9 045162

001222

005602

001132

005604

005560

005606

DIT2:

DT4:

DT6:
DI7:

DT10:

10
11
12
13

045200
045212
065226
065264

001222
001222
005560
005562

001132
001132
005570
005564

007364
001364
005572
005566

DT17:
DT20:

15
16
17
18

065274
0645306
045322
065362

001222
001222
005560
005562

001132
001132
005570
005564

045770
001364
005572
005566

DT23:
DT24:

5} 045372

001222

005552

001366

DT25:

14 065264

005610

38 065362 - 005610

005612

110

11-APR-80 13:01:23 PAGE 15

001364

ATTN,RM.REG,RM.REG+14 RM,EG+42,RM.REG*12 ,RM.REG
34, RM.REG+6
*

.WORD

DDRIVE,RMERRS,RMERRS+2
,RMERRS+4 . ATTN,RMCS]

.WORD

DORIVE.WRT.AD.WRT.WD.RD.WRD.RM.REG,RM.REG*14,RM.REG*42

"WORD
.WORD

DDRIVE.RD.ADR.RD.WRD,RM.REG,RM.REG*14,RM.REG+42

SRMADR
DRIVE,SERRPC,RBUF+6,RBUF
+2

.WORD

DRIVE,SERRPC.RM.REG.RM.REG*10,RM.REG+12,RM.REG+1
,RM.REG+42
4

.WORD

RM_REG+22.RM.REG+24.RM.REG+26,RM.REG*+30,RM.REG+32.DS.CYL.DS.
TRK

.WORD

RM.REG+44,RM.REG+46,RM.REG+2
,RM REG+4 RM.REG+6,RM.REG*16,RM.REG*20

.WORD
.WORD
.WORD
.WORD

DRIVE,SERRPC.DS.CYL.DS.TRK,SAVSEC
DRIVE.SERRPC.DS.CYL.DS.TRK.SAVSEC
RM,REG,RM.REG+10,RM.REG*12.RM.REG+14 ,RM.REG+42,RM.REG+40,RM.REG+44 ,RM.REG+46
RM.REG*2,RM.REG+4 RM.REG+6.RM.REG*16.RM.REG+20.RM.REG+22
. RM.REG*24 .RM.REG*26

.WORD
.WORD
.WORD
.WORD

DRIVE,SERRPC.RBUF
+4 .RBUF
DRIVE.SERRPC.DS.CYL.DS.TRK,SAVSEC.$GDDAT,RM.REG+22
RM.REG,RM.REG+10,RM.REG*12.RM.REG*14 ,RM.REG+42,RM.REG+40,RM.REG+44 ,RM.REG*46
RM.REG*2,RM.REG*4 ,RM.REG+6.RM.REG+16.RM.REG+20
RM.REG+22 .RM.REG+24 .RM.REG+26

.WORD

.WORD
.WORD

RM.REG*30,RM.REG+$2,DS.CYL
.DS. TRK

RM.REG*30,RM.REG+32,DS.CYL.DS.
TRK
DRIVE,FMTDPB+12,DS.TRK,SAVSEC

034

DF20:

000
000
014

000

03¢

DF23:

DF24&:

000

O
O

O = O Ny —

YO
X~NO NN
«
—

000
014

.WORD
.BYTE
.WORD
.BYTE
.WORD

000

DF25:

.WORD

.BYTE

DF17:

52 OCOO0C0O
N
[ I
o]
>

034

.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD

140

NOW

.WORD

000

DF10:

DF6:

.WORD
.BYTE
.WORD
.BYTE
.WORD

DF&:

.WORD

-—

000

DF3.

000

.WORD

O©

000

DF2:

Ny
NN
SF2r OO0O0OO
N~
o
@
>

000

.WORD

000

DF1:

000

b—-bgmomc
LSOO
XTe
XNEND
X
X
eMOWVNE
X
-N

26 045464
045466
045470
045472
045474

000001
007
000001
006
000001
006
000001
007
000001
001
000003
007
044046
007
046132
007
000001
005
000004
005
044326

11-APR-80 13:01:23 PAGE

045402
045404
045406
045410
045412
045414
045416
045420
045422
045424
045426
045430
045432
045634
045436
045440
0454462
045444
045446
045450
045452
045654
045456
045460
045462

MACRO v03.01

VB NN =2 OO0V

NO WV

PONIPVRININY
=
b d e e e
b cd e

= O V00NN

—

CIRMLAO RM0O5/3/2 FORMATTER
ERROR MESSAGES

SEQ 0126

CIRMLAO RM0S5/3/2 FORMATTER
—

MACRO v03.01 11-APR-80 13:01:23 PAG
BUSADR =~ GET BUS ADDRESS AND VECTOR ADDRESS FOR RH/RM

.SBTTL

SEQ 0127

BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RM/RM

e ek

2O D00 N0 N

:THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS
;OF THE RH/RM IS SETUP FOR THE PROPER ADDRESS.
;1T WILL ALSO READ THE ADDRESS FROM THE TTY IFf
;REQUIRED.
;NOTE: THIS ROUTINE DESTROYS RO=-R4
s CALL

NO NS

oo e o

005737
001436
005037

b o e

104401

012700

NN = OOV

106401

AWNAAININI NI NI PO PNINIRNININD =

011046

—_ VW NV

104402
104401
1064411
012601
004537
000763
012700
104401

011046

106402
104401
104411
012601
004537

000763
012700
012701
012021

001376

001376
001205
001274
045636

.
.

JSR
RETURN

PC,BUSADR

BUSADR:

;Eé

g:GADR

CLR

CHGADR

MOV
TYPE

#$RMADR,RO
,MRM(S1

TYPE

1%:

MOV

TYPOC
TYPE
RDLIN
MOV

036425

045656
001276
045645

JSR
BR
MOV

2%:

TYPE
MOV
TYPOC
TYPE
RDLIN
MOV

—

;PRESENT RM(CS1 ADDRESS

.BLNKS?

(SP)+ R

RS,CK.NUM
1%
#SRMVEC ,RO

JTYPE 1T
JTYPE 2 SPACES
:;GET THE ENTRY
JADDRESS OF ASCII

TEXT

JENTER AND STORE NEW ADDRESS
:ERROR RET
:CHECK VERC

JMRMVE
(RO),-(SP)

JFIRST ADDRESS OF
;BUS ADDRESS
;VECTOR ADDRESS
;RETURN

MRMCS1:
MRMVEC:

.ASCIZ
.ASCIZ

aRM(S1=d
QRMVEC=3

<SBTTL

CK.NUM - CHECX NUMBER

:CALL:

ROUTINE

LBLNKS?

RS,CK.NUM
2%
#SRMADR,RO

CHECKS

JENTER AND STORE NEW ADDRESS
;ERROR RET
JFIRST ADDRESS OF NEW PARAMETERS

ASCIZ

MOV

#ADR,R1

RET?2

NORMAL RET

.
:
.

RM/RM ADDRESS

:FIRST ADDRESS
;"'RMCS1="

(RO) ,=-(SP)

;AND FORMS AN OCTAL NUMBER

010246
010346

CHANGE OF

#RMADR ,R1
(RO)+,(R1)+
(RO)+,(R1)+
PC

;T4IS

65656
45656

JCR=LF

MOV
MOV
MOV
RTS

JSR
BR
MOV

3%:

103
126

DISABLE

LOCRLF

(SP)+,R1

045654

045634
045636
045645

FROM TTY REQUESTED?

;''RMVEC="'
JPRESENT RH/RM VECTOR ADDRESS ON
:TYPE |7
;TYPE 2 SPACES
;READ THE ENTRY
JASCI] TEXT ADDRESS

036425

001274
030034

IgPUT

MOV

R2,=-(SP)
R3,=-(SP)

TO PUT

(OCTAL)
STRING FOR

IN R2

LEGAL

JADDRESS OF

RO=ADDRESS TO STORE THE NUMBER
RS,CK.NUM
JSR
ERROR RETURN
RET1

(K.NUM: MOV

WHERE

:SAVE R?

CHARACTERS

ASCIZ

:SAVE

STRING

THE

THEM

STACK

CIZRMLAO RM0S5/3/2 FORMATTER

CK.NUM -~ CHECK NUMBER

NOS S o
NS

NNONONINI NN

O—=ONOMNNNINIMNGD o

010446
012703

At Ot O
e s e O et O
OQOO0OONONO—-O
WONWNO
=2 O WO —row

58 065660
9 065662
065666
045670

(OCTAL)

103414

MACRO v03.01

L 10

11-APR-80 13:01:23 PAGE

SEQ 0128
MOv
MOV

000006
1%:

000060

(LR

MOvB

BEQ

(MPB
BLO
(MPB
BHI

000067

R2
(R1)+,R4

R4, #'0

3%:
(%

5¢%:

;MAX OCTAL DIGITS IN
sFINAL OCTAL VALUE

ASL
BCS

LONE

DEC
BEQ
BR

MovB
BNE

1ST
BEQ

MOv

1ST

MOv
MOv
MOv

RTS

THE

NUMBER

;GET CURRENT POINTED BYTE
;BR IF TERMINATOR DETECTED
;SMALLER THAN ASCII-0 ?
JYES,ERROR EXIT
;LARGER THAN ASCII-7 ?
JYES,ERROR EXIT

TSHIFT LEFT

BCS
BIC

177770

;SAVE Ré

ASL

*OCTAL DIGIT

ASL

2%:

000205

R4, =(SP)
#6,R3

BCS

ADD

045762

17-1

#177770,RS
R4 ,R2

1%
(R1)+,R4

+ERROR [F CARRY BIT SET
:CHOP OFF HIGHER BITS
;APPENDING CURRENT DIGIT
;DECREMENT BYTE COUNT

¢BR IF

LAST DIGIT

sLOOPING BA(CK
; CHECK TERMINATOR
:BR ]F NOT FOUND
0~
sFINAL VALUE
; YES

SREPLACE THE ORIGINAL VALUE
SADJUS: FOR NORMAL RET
JRESTORE &

JRESTORE R3

;RESTORE RZ
JEXIT

CIRMLAQ RM05/3/2 FORMATTER

READ/WRITE BUFFERS

M10
11-APR-80 13:01:23 PAGE 18

;

.SBTTL

;BUFFER STARTS HERE

2 045764

—

MACRO v03.01

000000

7 045774
8
3 106174
1

000200

000000

SEQ 0129

READ/WRITE BUFFERS

RBUF:

.WORD

0,0,0,0

;BUFFER FOR HEADER (HECK

BUFP:

.BLKW

<258.¢32.>

BUFV:

.BLKW

<258.¢32.>

;FORMAT AND CMECK BUFFER STARTS HERE AND
;WILL OVERLAY ALL REMAINING CODE IN PROGRAM
;BUFFER FOR VERIFY ONLY MODE

.END

200

(IRMLAO RM05/3/2 FORMATTER
SYMBOL TABLE
ABASE = 176700
ACOWY = 000000

ACOW?2 =
ACK
=
ACPUOP=
ACTORV
ACTSTR
ADDRIS
ADDWO =
ADDW1 =
ADDW10=
ADDW11=
ADDW12=
ADDW13=
ADDW14=
ADDW15=
ADDWZ =
ADDW3 =
ADDW4 =
ADDWS =
ADDOW6 =
ADDW?7 =
ADDW8 =
ADDW9 =
ADEVCT=
ADEVM =
ADRTBL
AENV
=
AENVM =
AFATAL=

000000
000123
000000
027752
027753
037775
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
006132
000000
000000
000000

AMADR1= 000000
AMADR?2= 000000

AMADR3= 000000

AMADR4= 000000

AMAMS
1= 000000
AMAMS2= 000000
AMAMS3= 000000
AMAMSS=
AMSGAD=
AMSGLG=
AMSGTY=
AMTYPT=
AMTYP2=

000000
000000
000000
000000
000000
000000

AMTYP3- 000000

AMTYP4= 000000

AOE
=
APASS =
APRIOR=
APTCSU=
APTENV=
APTS12=
APTSPO=
ASWREG=
ATA
=
ATABIT
ATESTN=
ATIN

001000
000000
000000
000040
000001
000200
000100
000000
100000
030022
000000
001372

AT0
AT1

MACRO v03.01
= 000001
= 000002

AT2
=
AT3
=
AT4
=
ATS
=
AT6
=
AT?7
=
AUNIT =
AUSWR =
AVECT1=
AVECT2=
A1S
=
A17
=
BADENT
BAD16
BAD18
BAl
=
BEGCYL
BEGIN
BEGINZ
BEGTRK
BIT0
=
BIT00 =
BI1101 =
BIT02 =
81703 =
BIT04 =
BIT05 =
BIT06 =

000004
000010
000020
000040
000100
000200
000000
000000
000256
000000
000400
001000
037211
001414
002420
000010
001330
006776
007020
001334
000001
000001
000002
000004
000010
000020
000040
000100

BIT07 = 000200
BIT08 = 000400

B1109 = 001000

N 10
11-APR-80 13:01:23 PAGE 18-1
BYTE16
BYTE18

C
CALIN
CHGADR
Il
C13
Cl4
€15
clé
€17
ci7s
c18
C(KSWR =
CKTRK
CK.CHR
(K.DEC
(K.DIG
CK.NUM
CK.OCT
CLOCK
CLR
=
CLRQUE
CNTLC
CR
=
CRLF
=
C.ENTR
DCK
=
DDISP =
DDRIVE

036411
013322
001374
031352
031460
031560
032136
032160
032174
032216
032274
104407
015006
023410
023362
023462
045654
023334
020250
000040
035740
001374
000015
000200
020262
100000
177570
001370

DF10

045426

DEVMP
DF 1

BIT1

= 000002

DF17

BIT113
BIT14
81715
8112
BI113
BIT¢

=
=
=
=
=
=

DF 24
DF25
DF3
DFé&
DF6
DH1

B1T6

= 000100

BIT10 = 002000
BIT11 = 00400V
BIT12 = 010000

BITS

020000
040000
100000
000004
000010
000020

= 000040

BIT7
=
BIT8
=
8119
=
BLNKS1
BLNKS2
BLNKS3
BLNKSL
BPTVEC=
BSE
=
BUFP
BUF vV
BUSADR

000200
000400
001000
036426
036425
036424
036423
000014
100000
065774
106174
045516

006332
006432

SEQ 0130

DH6
DISPLA

DISPRE
LT
=
bMp
=
DONE
DPINT
DPR
=
DPRQS
DRIVE =
DRG
=
DRVACT
DRVCLR=
DRVINT
DRVQUE
DRVSTA
DRVTYP
DRY
=
DSWR
=
DS.CYL
DS.TRK
DTE
=
DTSY
=
DTUW
DT00
=
D701
=
0102
=
DT03
=
D104
=
D105
=

001402
045402

DT06
D107

045642

D108

042270
043151
043207
043260
043330
043400

EM25
EM3
EM
EMS
EM6
EM7
ENDCYL
ENDTRK
ENTADR
ERINDX
ERR
=
ERROR =
ERRVEC=
ES.SAV
F
FER
=
FMT
=
FMTDOPB
FMTX
FMT16 =

043422
062326
042364
042421
042455
042520
001326
001332
036430
017204
040000
104000
000004
036202
036413
000020
010000
005540
005630
010000

043021
043073

045030

FUNCT4

022502

= 000400

043761

DT6

044132
044210
063540
044257
044326
044423
044521
044554
044613
046766
043612
063663

DULP
DVA
=
ECH
=
ECI
=
EDIT
EMPTYQ
EMTVEC=
EM?
EM10
M1
EM12
g3

DH10B
DH17
DH2
DH20
DH20A
DH20B
DH20C
DH23
DH24
DHZ5
DH3
DH4

EM2
EM20
Em1
EM22
Em23
EM24

EMI6
EmM17

021714
022116

DH10

044046

042732
042755

FUNCT1
FUNCT2

045406
045446
045466

DHI0A

000174
100000
0GG0O1
017006
027726
000400
027736
001222
004000
027676
000111
030264
036036
027706
027716
000200
177570
001364
001366
010000
000200
030020
000001
000002
000004
000010
000020.
000040

EM14
EMI5

= 000100
= 000200

DF2
DF20
DF23

065472
045512
045612
045416
045422
043472

063746
001156

DT10
D117
DT2

045126
045200
045046

FUNCT3

045114

GETREG=

022612
022710
023014
023122
000002
000004
000010
000020
000040
000141

030266
004000
000100
004000
001406
036016
000030
062226
062572
042610
042646
062711

60
=
GTSWR =
HCE
=
HC1
=
HCRC
=
HDREAD
HEADX
HEDERR
HSET
HT
=
1AE .« =
It
=

000001
104406
000200
002000
000400
015550
001410
001356
015450
000011
002000
000100

D120
D123
D124
DT25
D13
DT4

045212
045274
045304
045372
045062
045076

01?7

045116

FUNCTS
FUNCT6
FUNCT?

022414

FUNCT8
F1
=
F2
=
F3
=
Fé
=
FS
=

GETREQ

036112

RETBAD

RMOS

RNOP
RTC
Ré

SAVSEC

01000

men
ANNYNYE

SAVWC

MM
OVNOYOYONCIYOIYOYVYEOY
N

R7
SAVEFG
SAVREG=

[

MMMMmMm
OVYOYOYOYOYM

RMOF
RMR
RMSN
RMTMR
RMVEC
RMW(
RM.REG

YD MMM

NN =2 O P OWR NS = e OO = =0ONOO

NOHr —=O—0 OO NNONWONO
—
NN
2N =2 N
O N =2 NN =2 Y B =t Ny =
OVt = s OO O NNV SO 5 NNO O
OO0
—=NWVO SO NI NONOWVO VO

=lelelelelolelolelolelololelelslele]le)]

RMMR?2

040000

lolelely)

001336

RMHR
RMINIT
RMLA
RMMR1

PAT
PATA
PATB
PATSEL

RMER2

)

PAR%

PARS
PARG
PAR7
PARS

RMEC?2

RMERRS
RMER1

[7]

W
H

PACK
PAR
=
PAPENT
PAR]

PAR2
PAR3

nun

X
<

= 000200

020302
001404
000010
020454
005776
006011
006024
006035
006046
006057
206070
406101
= 000020
001340
001342

RMDT
RMEC

MSEC30
MSEC32

0.ENTR

KMDS

MMMOOOOOOOOOON

MRMCS1
MRMVEC
MSCHK

OFFSET

OP]
oPT
R

RMDA
RMDB
RMDC

OO0 ~=2OO0OO0OOOOOOOOOO0OOOO
OO0 —-O0O0O0O0O0OOOOOOOOOOO
= OMNIONIO =t = =2 NI O QNN N ININANIN O O O O O 5TM L L L L LN W N N W W
AN AN N
NOOH = ONNNOOOST NNNE SO
5 OO S NN
NN
PN
=t P et et ek AN e et YO OO NNNOVES =
S Y ~NNN S Sy~ oo
N
Ot et s s NN NO NN
NNV O NG = NN = O BN —
NN o o
OOOWRNINVNLS
O NSO NV ST OO =S W= OO0
O0O(@] =)

MPE
MROD

[»]

NBA
NED
NEM
NEXT
NOTPRS
NOTRM
NOTSAF
NUMERR
OFDIR

M5
M5F
X

M4
M4
A

—t

M1B

SEQ 0131

RMBA

MXWNDW

MO
Mi
M1A
M2

=
MF
MFCMPT
MFORMT
MHALT
MINX
=
MLODEV
MMODE
MNDLTA
MODE
MOFFLN
MOH
MOL

PR3

8-2

RMCS1
RM(S2

MSQVER
MST(K =
MSVER
MUNIT
MUSDR
MUTLTY
MVCMPT
037700
MVERFY
MwC
MR
=
MXDLTA
=
MXF
MXLACT

RETRY
RMADR
RMAS

MSFOR
MSGBLK
MSIZE

PGE
PGM
P1P
PIRQ
PIRQVE=
POPQUE
PRO
PR1
PR

[aal

036525

MSELD
MSELP

—t e b o i D i o

000001
000002
021602
000020
000100
032706
032532
027764
000012
036315
017304
002000
001324
037230
001362
037656
036713
000002
020000
030032
036500

OOO0OO0OOOO0O

r
»x

ILF
ILR
INSERT
10TVEC=
IR
z

[elelaleleleolelaolelels]
S5 UM N O NN £ L
~ OO NONNO NN
NOWVANO OO & SN0
O WNNO = (N
— NN
S NNOO~NSVNIPD—

SYMBOL TABLE

11-APR-80 13:01:23 PAG

AV
]

MACRO v03.01

C7RMLAO RMO5/3/2 FORMATTER

CIZRMLAO RM05/3/2 FORMATTER

MACRO v03.01

SYMBOL TABLE

SWi5

SW2
sw3
SWw&
SWS

Swé
=
SW?
=
Sw8
=
SWw9
=
1
TABCAL
TABINT
TABLD

UPDTRK

000004
000010
000020
000040

use
use
vV
w(

10
TEXT
TIMER
TKVEC =
TPVEC =
TRAPVE=
TRE
=
TRKTST
TRK1
=
TRK10 =
TRk2
=
TRK20 =
TRX4
=
TRNSWT
TRTVEC=
W0
TYPADR
TYPDS =
TYPE
=
TYPERR
TYPOC =
TYPON =
TYPOS =

WRAP

UF
=
ULDFLG
UNS
=
UNSTAT
UNTOFF
UNTON
UPDCYL
.

0014600

$BDADR

$8DDAT
$BELL
$COWY
$COW2

146374
000000
ERRORS DETECTED:

000
001

VIRTUAL MEMORY USED:

45296 WORCS

(

177 PAGES)

$SAVRE
$SAVR6
$5820
$SETUP=

027506
027200
027256
000116

017002
025540
016772
016756

SMNEW
SMSGAD
$SMSGLG
$SMSGTY

027017
001224
001226
001210

001117

$SMTYP4L

001255

023620
001132
006526
001126

SNWTST=
SOCNT
$OMODE
$PASS

001230

$SPASTM

$SPOWER

000000
025330
025332
001216
001106

026154
000000
001100
001120
027174
001151
001130

SPWRAD
$SPWRDN
SPWRMG
$PWRUP
$QUES
SRDCHR
SRDLIN
$RDSZ =

SRESRE
$SRMADR
SRMVEC
SRMO2
$RMO3
$RMOS

027170
027030
027164
027102
001204
026426
026516
000015

SETEND
SFATAL
$FFLG
$SFILLC
$SFILLS
$GDADR
$GDDAT
$GET42

ABS.

025103
001302
001300
001310

001210
001240
001244
001250

035246
035252
(035254
035152
010422
001412
036417
036403

001100
024664
024640
(024646
(0c4656
001150
001264

SLFLG
$LKCSB
SLKCSR
$LKS

SMAIL
SMAMS1
SMAMS?
$MAMS3

WRT.R3
WRT.R4
WRT.RS
WRT.WD
XSIZE
XXDP
Y
1ERO

$SAPTHD
SATYC
SATYY!
SATYY
SATYSL
$SAUTOB
$BASE

0170064

001236
001205
025550
027312

SCNTLU

036421
020354
104405
104401
024054
104402
1064404
104403

040000
027754
040000
036354
036226
036237
017644

$SRTNAD

$CPUOP
$CRLF
$DBLK
$DB2D

$DOAGN
$DTBL
SENDAD
SENDCT
SENV
SENVM
$EOP
SEOPCT
SERFLG
$SERMAX
$SERROR
$SERRPC
SERRTB
SERTTL
SESCAP

035242

001206

SLLVEC
SLPADR
SLPERR
SLPVEC
$SMADR1
$MADR2
$SMADR3

032752
021050
030000
000060
000064
000034
040000
017426
004000
040000
010009
100000
020000
027746
000014

WRT.R2

SLF

024634
026064
001114
000000
000001
026767
027001

004000
000161
000163
013622
014320
014436
014522
014604
016652
014566
014616
013676
013744
015536
014270
014666
035154
035064
035150

007020

001136

001142
001200
001270
001272

SCHARC
$CKSWR
$CMTAG
$CM3
=
$CM&
=
SCNTLC
$CNTLG

WRL
=
WRTDAT=
WRTHD =
WRTRK
WRTRKA
WRTRKB
WRTRKC
WRTRKD
WRTRKE
WRTRKF
WRTRKH
WRTRKX
WRTRKY
WRTRKZ
WRTRK1
WRTRK2
WRT.AD
WRT.RM
WRT.R1

TAB.XY= 001114
TAP
= 040000
TBITVE= 000014

1838

= 100002
= 400004
= 000100
001352
= 040000
= 000040
= 000151

WCE
wCF
WwCkD
WCKHD = 000153
WCTBL
006232
WLE
= 004000

012614

005650
005702
005726
005752

017756

UPE
= 020000
USSAV
004430
USTAB
003426
us
= 000001

000100
000200
000400
001000
036415
006120
012532

TABLE
TABLE2
TABLES
TABLEG

(N
:23 PAGE 18-3
SEQ 0132

= 100000

=
=
=
=

11-APR-80 13:0

$DECVL
$DEVCT
SDEVM

SETABL

$GTSWR
$HD
=
$HIBTS
$ICNT
SILLUP
$INTAG
$ITEMB

026774

027472
001220
001266

001230
001231
016342
016750
001131

001176

001274
001212
025104
001172
001171
001134
001140
016762

SMADRGL

$MAMSL
SMBADR
MG

$SMSWR
SMTYP1
$MTYP2
SMTYP3

$NULL

001312
001122
001124
001304
001242
001246
001252

001256

001254
001102
025102

027006
001241
001245
001251

001170

027202

027544
001274
001276
036335
036342
036347

$STUP =
$SUPRS
$SVPC =
$SWR
=
$SWREG
$STESTN
$TKB

177777
027216
000210
123000

001232
001214
001162
$TKCNT
025560
STKINT
025576
$TKQEN= 025575

$TKQIN

025562

$TKQOU
$TKQASR
$TKS
$TKSRYV
$TMPO
$IN
=
$STNPWR
$TPB
$TPFLG
$TPS
$STRAP
STRAP2
$TRP
=
$TRPAD
$1STM
$STSTNM
$TYYIN
$TYPDS
$STYPE

025564
025566
001160
025646
001174
000002
027422
001166
001173
001164
027602
027624
000014
027636
001104
001116
(26752
025334
024304

STYPEX
$TYPOC
STYPON
$TYPOS
SUNIT
SUNITM
SUSWR
SVECT1

024636
025132
025146
025106
001222
001110
001234
001260

STYPEC

SVECTZ2
$XOFF =
$XON
=
$$GET4=
$OFILL
L8X
-

024516

001262
000023
000021
000000
025331
001100

SEQ 0133

UGepTBoSWNld

D T D LDD D D ndelodd —d

69 PAGES

fand ol

FOR

——
2e

DYNAMIC MEMORY AVAILABLE

C/RMLAQ RMOS/3/2 FORMATTER

SYMBOL

TABLE

MACRO v03.01

E 1

11-APR-80 13:01:23 PAGE

CZRMLA.BIC,CZRMLA/C=CZRMI A.DOC,CZRMLA,SYSMAC/M

18-4
SEQ 0134

CIRMLAO RM0S5/3/2 FORMATTER

8-60
8-74

8-141

9-148

9-217

10-570

10->86

8-163

10-262
9-219

10-262

10=-75¢4+
10-?75

10-754»

10-254+

10-758¢

OOOO?
Po

5=-0n
8-14

[aS 1,V

O?O

——
c— ——

AN
NNV
N

HroO—

N
— N

—

OO0

WO
WO
&~

]

——

OO0

—n
O~

o<.>cn

el
—

oc‘>on

OO
&~
O~

el
—

[e X=X LAV ] 0003 NONNON
00— —

WV
D s Y OO S
NI\
—s

8-91

10-864
10->86

10=-260#

8-151
10-568#

8
8-

8- 146

10->86

10-75¢4
10-754
10-5684

10-756
10-756
10-659

10- >86

10->86+

10->86

10->86¢

10-568
9-64+
10->86

10-568¢
10-248»
11-817

10->86
10-279¢
11-870

10-256+
10-754
10-25¢4

10-256+
10-75¢4

10-?56

—

Qo
o
=

1 0- 378

10-754
10-457

XY )

b
d
—

-—

10-762#

10-7624

V2N OV V bt VNN s -

8-1¢4
10-762

10-262

—

el
ok
—t el ol
—-—

—

[+
AV,

S$ENV
SENVM
$EOP
$EOPCT
SERFLG
SERMAX
S$ERROR
S$ERRP(

—

S$OEVM
$DOAGN
$DTBL
SENDAD
SENDCT

SETABL
SETEND
SFATAL
$FFLG
$FILLC
$FILLS

10-258»

SEQ 0135

—
e
—

eleloelalV) ocnooooomooonono.n
'
U
OO0) OOONOO®
OOOWVWN
LI
I
]
]

]
NV VWO OO V-

$082D
$DBLK
$DECVL
$DEVCT

SERRTB
SERTTL
SESCAP

(CREF

-—

]
[]
.
[}
[}
[
"
[elelelelel < v oD < NIV cOWN
N oo w AVl N OO0 00NN
L. 2 R
R
%
o o ~ oo OO~
Co 00

QOO

e
e
e el e

TABLE

8-7+

—

$$GE T4
$OF ILL
$40CAT
SAPTHD
SASTAT
SATY
$ATY3
SATYS
SATY(
$AUTOB
$BASE
$BDADR
$BDDAT
$BELL
$COW1
$COW2
$SCHARC
$CKSWR
$SCM3
M4
SCMTAG
SCNTLC
SCNTLG
SCNTLU
$CPUOP
$CRLF

CROSS REFERENCE

f
11-APR-80 13:01:23 PAGE S-1

MACRO v03.01
v01-05 )

10->86

CIRMLAO RMOS5/3/2 FORMATTER

CROSS REFERENCE

$GDADR
$GDDAT
$GET42
$GTSWR

$HD
$HIBTS
$1CNT
siLLup
SINTAG
S1TEMB
SLF
SLFLG
$LK(SB
$LKCSR
$LKS
SLLVEC
SLPADR
SLPERR
SLPVEC
SMADR1
$MADR?
$MADR3
SMADRS
SMAIL
SMAMS1
SMAMS?2

10->86*

15-16

10-275
4=72

10-275
4-72

10-264
10-762

10=-2648
10-762
10->86
10->86

)

10-262
10->86
10-75¢4

10-25¢4

10-262

10-762

10-240+

10-267+

10-408*

10-651

10->86

4&-286

5-04

8-9

8-14

8-15

10->86

10-?56#
10-262#
10-256
10-756¢
10-256
10-262#

10-256¢

10-256+

10-762

10=->86+

10-262+
10->96

10-?5¢

10-754

10-2758«
10-2758#
8-14+

10-258¢
10-758
10-568

10-258¢
10-568

10-275¢

10-256+

10-756

o
Co Qo

-0n

10-256¢

$PASS
SPASTM
SPOWER
SPWRAD
$PWRDN
SPWRMG
$PWRUP
$QUES
$R2A
$RDCHR
$RDDEC
$RDLIN
$RDOCT

v01-05

—_——

=
—

=762
-0#

SMTYPG
$NULL
SNWTST
SOCNT

SOMODE

(CREF

10-780+
10-789¢

—

SMAMS3
SMAMSS
$SMBADR
SMFLG
SMNEW
$SMSGAD
$MSGLG
$MSGTY
SMSWR
SMTYP1
SMTYP?
SMTYP3

TABLE

6
11-APR-80 13:01:23 PAGE S-2

MACRO v03.01

10-758¢

10-568+

10->86

10-265#

10-264#
10-264
S-04
10-775
10-2624
10-27%
10-2624
10-275

10-764
10-264#

10-2644

8-228

8-255

10-275

10-275%

10-275

10-775

8-298

8-391

SEQ 0136

$RNSZ

10-762

10-762#

SEQ 0137

TNeMiBV

VeVelSN[o00OONMOO00
(CREF

MACRO v03.01
v01-05 )

11 1
N -APR=-80 13:01:23 PAGE $-3

= -

TABLE

["aY"aY"aY"a} M~ o ]¥oVIR[a ~~O

«ogOT-'[g»0)a—nel'Ngluga—loTO'Nlag10le0’a1L]PlN eanlNaoIVLIa]~~«oLN [ooo-a-]U 1L Y] oOwo-oLl1n]Awano uaOO-—L AU1nL-o

Z]TAOFoNeuIbRM1aXOV.xN—ueNdNolO.NAooDel0SNAoaZ84oO-oF=Ln]OldaS—NnyNXltaWRWeAknoDdXl0AsMLEeOO=tanbl[IWTOa2lOOLoONO-—A=-oA])N[IeCaDNIOaVF:lV0lOOTLVC*TAaN2OTOQ-l1OoNaNWaVowO[YgNl=3AI00"M'ox]LaMYoCNNWleAgPSOSNal¥gLNR—lIaOL’TYDteoOANNSVa—eVN¢gL4WPNylWIR-YWN’o(V[W O—TV—As[|.PAg]Nal}WOINJNoTQlPFD0WRONoR¥AOWRTAAeO-PRNeNTneA-OORNOgTyONyY[AgCTOnXN3x=oOD4NaNWRG)!oJo—---Va7AVDkMTO2Oa3o-oSO][LL0Une]N[0aTM]ae[NOIDLDa@VxoTY[L¥aed0]0OXOo->IO—RTeI [Oy~eooO-—e0NO—OMI[1]C}—SNTWoZN=-OeMOOV[0—VOotVRaN&&We[L¥WT2ONO1O]N©Da—O[o&-1VN—«—yIO}O0V—IVOAOgW(C-AO—OWL2o]0I0V0]OuIIN-—W-OY[[vNIAJaTTOOXoNO-R—]001.o1VG—NDIVnTNO&OWOR-[CI[1S«[n—OerONZT—DNWAOoP04MO=CNtMRNXVaAoM-5O0N-AmA]e[-]LdL—l—l[—+—N-ELNOOO]0~OL:DVVOakOCDNeWx--OOl——YOOoNw0xbs00)TnlNGN\aIl-oO-MB[COOOdna—d¥LYLNRV0NFOQT40MMeNNO»b~PkVDS~o=—N1NUn3~eOITNO-xOTOMNNoVNNTOtM=GD-~OCO—-N[}—OVONON-OS0ORRALV—L0ROP[-~OaRa]1 ][—V"—]aWcm—eNCEMwcQrUxO—YeaNAE—0e0(WO-NoM7LC—Vromr)
rg—oOQe[—===YL0L!"V1n»nlaV)eOl-——'vg8gla[T—Va-00gL4llYeO0V"a—.1.Y]lV [Lo<Q(aX-a1~L0eV=JVl]ea]~L]I3a)e0o—Vo][] ~[(o[-oo-a-d=]L d[)U =]L ]N«¥——L])L O-]—(~ooL—-L=]])]]N—o] ©Oo-2-2]LK]1]——]ONL[LI o~n"]1][]r]Ia-Woaa—- dUL"1«nL]L0Oa0b—n

NTO>=qE8oQR0n—a>NAeOAl=a>P0cAaO[->aaLdg]¥0]NCelNXAa>l|P8OAoo>q§PONALoA>QRs~o[OPNlVLLAy]>]oaA-l[0N=w0LAoSlTT[[OeSNOoV—=Y0PeaaYTClY]TSYN'SNNlTeAaPN0aOlTTlYVSRNSv—aeNl4OPalNlvYT(LLV[P[VNOeZA—[[SXee[yY.—gTNNYl]N[l)2Aa]—ZwaX—ALn"OW—R=a0Lsal’AooOagbla’—gxsL1oR}aW=—AnxyO0O@oN—L]N-—[[g[o41MoO2g0aoaYllaVa]]"0aVV¥¥n2p[o[X]IYT[yoa0~1oAVaaq~aa[AwW—¥¥VsV¥aV¥XoeJFDd][l¥]]]].vENena-~OO0(0Oo[-(NOVOeYCABa3N-L0~L123OgVoU]OACNOXWooOgP—0M(O[3oeN|2lAkWXIOV-ReN1.OoMSM—A3Ie9IVNRN0ITOB-SPOALTL(O0(INN]oo20obNM][]l-DO0W[S-N1NU[—Y0AyMO-40—aaoMa9MOAA[5oA-d0D0o—aA0OO~O~)MDA—~o1tX,aND=XnVo,>Ob-AaX—YOV(oNN-30A]s7Rxo(~[YOVa0eLO-N\ONt©a020NLPI~AO—NNoLRwoueTo~e3—VnWENUA>N—yy)L—REEM=NASXOA=[EXIA~oL>XSO[A-y3]—XREwAZ[aeW>VR-LUdEEYA]waK-~NXrVn—A]N«OANNCAA<NNOAL=-DWNu
CROSS REFERENCE

CZRMLAO RM0OS5/3/2 FORMATTER

SEQ 0138

$1YPOS

10-7588

10-?75

J 1
SEQ 0139

CIRMLAO RM05/3/2 FORMATTER

CROSS REFERENCE TABLE

SUNIT
SUNITM
SUSWR
SVECTY
SVECT2
$XOFF
$XON

S5-0#
4-286H
5-0#
5-0#
5-0#
10-754
10-254

.$X
A6
A17
ABASE

4-286
4~86N
Y
4=2740

ACDW?2

ACK
ACPUOP
ACTORV
ACTSTR

ADDRIS
ADDWO
ADDW1
ADDWIO
ADDW11
ADDW12
ADDW13
ADDW14
ADDWIS

ADDW?2
ADDW3

ADDW4
ADDWS
ADDW6
ADDW?
ADDWS
ADDW9
ADEVCT
ADEVM

ADRTBL
AENV
AENVM
AFATAL
AMADR1

AMADR2
AMADRY
AMADRG
AMAMS |
AMAMS?
AMAMS3
AMAMSL
AMSGAD
AMSGLG
AMSGTY
AMTYPI
AMTYP2
AMTIYPY
AMTYPS

5-0

4=2620
5-0
11-92#
11-98#¢
10-853
5-0
§-0
S5-0
5-0
5-0

)

SEQ 0140

6-0
8-68

8-70

10-75¢4
10-75¢

10-256

4-286#4

5-<0

5-0

)

5-0

5-0
11-361+
11-:11¢

12-56#

11412+
11-:25¢

11-738+

11-747+

10-308

10-568

10-:=00

11-:09

5-0

5-0
5-0

5-0
5-0
5-0
5-0
5-0
5-0
5-0
5-0

6-0#
5-0
5-0
5-0
5-0

§-0
5-0
5-0
5=0
5-0
5-0
5-0
5-0
5-0
5-0
5-0
§5-0
§5-0
5-0

5-0
5-0
10-237
5-0
5-0
5-0
5-0
5-0
5-0
5-0
5=-0
5=0
5-0
5-0
5-0
5-0
5-0
5«0
5-0
5-0
5-0

e
. <G o

ACDWI

10-256

v01-05

K 11
11-APR-80 13:01:23 PAGE S-4

——

.SASTA

(CREF

MACRO v03.01

GWAGbABleGlGlGlGeGlWYbleGGlblGlblbGUleeeNt\od\oF\odotNkGeeTe%".eee".AOt

6=157#

L n
SEQ 0141

BO—AMONMLe—II—AIINITAIMIOIMRI3T(XL~]r[e«l[a]Y]Lo(Y)]o-[)—[No0Y)[o[]N[}--[} ][}

bOe——O-|P_V-o_OI——yMoI0Oy~0OLOW~-oW—PbWN~—MAOoItI—O|0INPtI-OM[}t—IPNtaN5~—M|0PSO-~AO|0—=otOgV00W-o]Vt—et"<oWoO]N]OAU[h0(LMYA-LUVVo—)MaA]0)[L+AO@aO—gN8OOW]0[eO3S—]YaeooO-BY—~oNhKZr|[eN>WD>CMUGo—o~-oB)0—~aFcOo—aAvIVMEI—NrOrNLrL—Or-—rO—r—CEr
%- Y Y[

--[

¥i T

-[aO—o_]Nr—v_e« -— (a[-J—)]oXe}
«

[ f « «&
L] [

MACRO v03.01
v01-05 )

- -

(CREF

[} [ - & & &

NOO~—®—OA OvOO -~NSo—~ ‘—Oe ]—OoulilL~onl a[[adL
[
[
L
)
g—g— —— —— O— oOnd[o—

[=
OMIOI~—LI e||~Oo]I| o OL| o1 N] e10t¢t ~]

@AId03OaTa~—VTReyN0nxO03Ig—TdN0W—MOMO--~—OO||]\0aNYrl0JeL¥IPeV0oSMoOTOIWIMg——OVO—NeOkTOUmIMlNMMO~—g<N0m-I||StaN—etXNNO[IrORJ-®Y—I0GVL@O0NTM"—V0YOIMI+rYA\IuOOOg—o~-AO0Oon6N]]]d)P4g~Ty—OVORNILMO0IM—MI—CN0WgN~INT—EOAG—-AT1OtdOIMIOTFNAPA0TAO0OOAR._INAoE]Od0NNRV6—O4APT—AOII0oOM0[--AM-—OORO—]G]|]|N~P~}N——VoNNOXIAVN—~Yav:AO[RNP|MrHOD[o0~AAIINARdE0MONII-NN4Mo|O0OROINNoM=m-AA|t0E—IMNoRG0OINOdOwaO0OWF—A—nG]dvk0EDB[OIaYORDAo»GN0aAg0—-——O4OYOeWB>N][U[l]0VLU}waaTLL|~lmMZ--oA)n[NWs—l—ulROLO2®~R©—NYoE[O-Oov~—aA[~LAN-))]]-)—}V—LRB=A»OWMU—O—2-N3NMVwOOIMas—N4-N.NOOOn-O®]I]-]d]TA~——NLORV-eI—WeaoT—oO-NNON=-roVTI01]VNLE—N~NEQNO0)W«r—I1&-MOM0NmNOe0.OOR~C-m~y11-[y|O«T~rCO0—LeN[QAw=AO—¥yTnaC)OLOrCC=OLOodd7C]eoR0[VLO-IOUN gC—eR([vN-ow—L g[aa—3o—L~RMaL]1 =d]]]o—Y[0[Vdo]tLL-]CJN1IrEOR.SLs57eC.oL5oO.]Cr.I—LoF5.CATe7.Do-NOr.IA2TM€NyeNAOONVeoXVL)EIOVoO"oloudeDoAYdlV]I[WaTe,D=&>cVYrNAeVD0oV lLooL-XICG[a]3RdlZ—VlNCadeGeYa——QNVLlaOUadOOIOUwa[li
o£OoMgoO[Loggu=")pmZ~—4eao--—lIlA~—O—o(5=Iyn2TM—OL|yIe8[00--—w—N Lo~o—~a[J']—t] o-LooO0)op—~~]))~lfo[<~r} [[OONWO—\2AvV4)4a4«)oo~9-M~N—vVau[0]vdNNNN_LO—OOOOyVoeNNNN0N—ovN—SErO|1 [Oo-o—— oo— w~ ~o[|V]}}—lL
CROSS REFERENCE TABLE

CIRMLAQ RMO5/3/2 FORMATTER
MmN
1
S11-APR -80 13:01:23 PAGE E S-5

SEQ 0142

[I|!}

4-78¢#

e WUl GWP W W WWP WWPWP W W W W WT W A

8113
IR
SEQ 0143

NMv—0—0OFTNaA]N[aOVNOSTANMO~0OgO[alVOALAo]y[o
L-—oWw-]14[a~1D\o—0NeOoO8N]IeNTNMaTIINN2a.INLGTIa1O—N|TI2<ON—RN2OgHaGefLo0ndO[PAOgnW=N-0A]Ia—-|_—Z——V)e-)—Ie—l—VTaRK-|L-~L—aSg0olokkoLO-oLlO-O0OOROW0ON-—~o]-1[]}[—
- W= WTM ® W = n

oOnaNcnN-IMNPg w- V.-OoO

']o~[~e]'N}N[ oo[]]&0V4.aILRNRoIL10It0LeI0Llg-I.LLR[l~L1L oo|||Mw-~I]!|[|— a0OOw—]0|0II110LIL0It1.I []U ]L ]
gOWNg—VOIN[[Ya) L~~] o--0—1

voOA—eOUa«M-oOlaMo=owL8—F2N1|O2N4RLOL5|Jw7OnVI8OLNJdMOORZTNXEONxOOMTOrMZOVIMTXM—OWAYAOWMNR=oPYOV “®1r“tOMOoA2tNoOv8Wo0Nd2WErVie®S8r—O RZT"es6lgwmnMS6P>R9ADM0>S]0CaN-l8oRal6:OS600WONORW8DO>A9-X6~_RNJ1I)W]LO d0X1_J1DTNe1kOORt1MN1OIDt1O

Y<ooLw>~-[-@-[R(0)o—w4>——WN])]VoL[lV——a=aNQ[}lla-Y8ao1)-R5=.—-—XYQ1NO=|.)MOo8ws[N~0OI0o—NO]tLNJoeOVa8CooOO3VSO—O8¢-n—]—VdNlENTALolgXiYL112—Ol—IaNNIgMgVvVNlo2eT-N—F8TeMveRlaIeIOOT[D_)OIL4~2VTX—eTEagoeW[aIaaN0—lnIWYVlRhVM25VB—XNJJaOVlOaoMLUll[aLNVN(27I2Vo—-4A—MSeVYOUa[TlOWgo8o0LCONO¥DVNbEIlWXr5LwN-L-0N)—AOr0WM0OM—8xOXAOUNXV-xMUrOOrSIWAL—[)]TWDe»NUrO——WLERVOoT~eXURUgCLOMOrswU|gWrV—WO=vINUerO»LT(MA—o—TEW=N]]MNyW)M0—NeD[I—raOIOwO—DInd[sNO4O-VV—rpalV-MB]][VOao———a[]—[XowM wL -o-AN~—VVM-WN-el4cEaOIa—A—A—OdSl)OISN_I[O0OOND-R[DENMOMOVTUNLOMUIO-LNWL-oIL'WOANw0UMe«WN]—NU06OOxUN—Y0Mw608QW0oL9ceOOU0reo8O-W3—]M(L—0NYaVMaOMo-QYOOV—O7X~l[][ n0—[]tNMf.o=a0o5OTOOOlN.P0eVeONNoelN[l}oOV~eo2.oClWl[oeqO0MT=lYDMN&OGZODE~oe'NZO~LNJIADNrlNO~ogo-~-—»]0-IoaW—)[o[5V[~[l—MM—N}B—][ad~PDaF'IGDOO60Da4—0[[0OXD60O0D6®0
CROSS REFERENCE TABLE

CIRMLAO RMO5/3/2 FORMATTER
(CREF

v01-05

MACRO v03.01
)

[GNOo—L_VI—MA -—-e—- L»k]n3
L
]

N -APR-80 13:01:23 PAGE S-6

B 12
SEQ 0144

0
0

11-577

DF1

16=-1#

¢ 12
SEQ 0145

ouacaLcaucacacaEwvTivsa

-oL-——-—-———g—
&B%BSL.Ha-e—so0=>=Nw>OmNAMhNNdYOZDO-O-[0Oa¥]w»MW](oLRwnw-RW3NYVe.lOo«@«0»s -- a - - -

O060OG TOO|RMOTBROLIVON]—IO—I'N0[MOAMIOCL] O RN—]OWNIO~]]
0Me~OO—.1r0©W-5Le]—MOO&0AM—&NO0O]&~tL V~Mo—«oL'N]l ao—-a[dLo]L[a-~.]0— ] [

YN—BOEIo-aOwYOQ|-=OYer=—--OIOYNVo~IUoMvIe(NOIVM=TYoYNVW—gNIO~OA"——O-OO@od-AV-Ou]'M[81ONNV——pLFW—[—WAoHeRO—U+LO2=[&r=ONOa~o0VNON]0nOAOqaNN0OoV--eONODLN—0=V0-0=X—(a—W0]o—oYO&WN—=UXW]OOHoO]wssS[L]YEO~0S=INW>a[VT2oaNAAgTeyOM——M—NM—NAL—M—Mg=]1VL=]l))]o1OaAYmyMIeoOe9YN—aN]s—W--MTg]dge=IO—PmI[o2—eOI93h.O—a—O[o—¥—>WNRE]—o-D[M—[M[|]nLa@[DLD.DseAOYZ—SM-ReMa3m—N=YX=YDODaOO-O—~A0a[—]OEo0o>YOaXon~lR"ooo~9-—WW-O—4~--eO5v-N®wM-o][—O€N—}]!]d|0N——B©[M——[+3+[A>MOe-N-O=——N—VPegNOM—W-OOJ—MY—TooWO«—AoN0Xel]|1[ll]"L_=V}ONM—aP~—QYW.NOO——"1m~OO.>IaVO4L-gO--e3-n[o~0r)[s_RnZ—le—N—L}NOT8—YWTVEaNa-ae~—a~--M-LO—OMNAo-Q-YMw2&]o[a[]00=_[®[n—y}——l}—IXlRVrZY%OVye=—.T—2Y~M.TyRN-V~elIFTOO—NVae[oSoNSTa-MA~o]-[]—0A[NYI+MOOgA\REYNO©IRS—$~oBMRNe—A=)yINO%_—NoEOwoM—UW=%YABNINIWFYNN44=E—T=WRXOYS—NoNOPANeAYI2RMO=V-NLe—YNORIkOTVA"NeRTIXbDO=3BNY=EMI-RY~DM=TO-RY~TOBe-OYOTo—e~0N[(-[0~O--g=~ooo~aTVehYU[][Y]V8——}a00]])M=N-VTU0YIMSOAeT0NoNO-GY8NTNAEMb8NI~-W~4~O~SNbO[o0~—BlNTMMYA-NOI0b=—ImNy-e&ARYN~—OWnOoP0bIeyMNA—gb0=M=Mn.M—OeNY0e[(-—— @o~ ~~ w-po~~ a[o~-oA~~Te0~]—=][—V7—l——o}Y
of1J9o][©”--e]-»—[]X.(]-W~[Ye]V[)—ogS][0N=Mgg~OLO-[]Y— ao-<~d]—[LV[[-g—VVa|]aall)e~—-]3
fi.V2LA-Eo[RY.wVM—ea~oRqXalM'Y

' ¢ ' ) ' D] (R
- [ --

-La—gd Owa-Mm0aR
-&«

]«

[] .] - [] -] ]

MACRO v03.01
v01-05 )

OO Mmo y o YM

(CREF

W© O < v O

CROSS REFERENCE TABLE

CIRMLAO RM05/3/2 FORMATTER

D 1 12
S11 -APR-80 13:01:23 PAGE £ S-7
SEQ 0146

o~n

&=196#

-ewewrwrwsw Wreswrwrw-r

DY05

E 12
SEQ 0147

-—ondandlL-— -—
“‘—7-—?—-7-7=-n—77-£7—-—‘lfl—‘—!—l.P‘lfPi‘P6P7GP?g7eP7G7od[77?-—7—777——73—7-?—1—‘—6e68—0“-‘—18‘
-- —

xw< r-ZEO 0>

.
- ~L-y ~b

CNOWo—=—nyoG0O&eLVOXeNL~OM«dNo-OSA-Mo—*L—y—L1]A|ol.0-tOOML>y]03o~)o~AV—E7~O~IT—aA]LlI~B0[NSXnA«GO=+ROE3Nw—O0teLbnN0XNY]ON-OOX-_YVy§)GTO—|eTQ~>LOGoFO0ooV@OTXY2MoOS[oNNNAMaO]o[[) "UAr]/NolL0AVOL1O=o VoE—-ea-R~el11ee N)——0«o—-BeIOWeO0€Ie0&IRSAI<A—LaEWMO[—¥—~—IMG1ZA'\|-}«AN—aEAOTfWU-bOO20ZlOObNNaA>S-LlM—NN2(R3M0LNa0ZLJNWOOAaNa5VOlNNeG..R—1OAIxaBIWNlN5MN.aWAIIlOIGNLaMNDNSlA3UJYOOMaI22IDSl—NN3WaAR2OT2lNbIS2rOMFlWRM—a2SIReWelN2E8EMtWea.OTDYyNW22TNy6~a2ONNl05IW3aMOLoMl0N2aOOl3Q6MaUVeTIlNL0M.aNRltW0or‘Oa\O-aoawaLoN-OUN—-i'e&]W[]]—0040[rOOo]mVM%TeWC—5JSOM3ENTDoB]-I3oVY0O-O—Na~O —o Oo—o -—o ]LV]O8O—]]] =I[—[[0V—M])aaMe>N5NN.—BaoUeYLI|V.RWlOoNOeYNVrNaDNAYIVaS—TN—lCTIveOONoeVRIlrAeOM—ae3eVRINOlNM8—IROIAVNI8reNAa&—AnLIMlIR.eMVARI—Ea5=ONOINWNV(o[ aoM~0( ~- 0~ ~Oo[ ~R~~Le]2]]] '| ]] ]N[04[E—OTOLlO=eORa=000=~
[OMo]~¢ 0~a-~~e]|—}l [aow-~- -V[0a}~——l
CROSS REFERENCE TABLE

CIRMLAO RM0S5/3/2 FORMATTER
(CREF

MACRO v03.01
v01-05 )
N -APR=-80 13:01:23 PAGE S-8

(La~OVl=o]

12
SEQ 0148

— —

]

~ Vo) ~ -

— —

]

wv O

— —

]

O0 .

11-,33

wewrwrwrwsrwrwrws

1278

—r—r—————r—— TT—rT

£
G 12
SEQ 0149

a0oa~p [o oO—Yaa_l10B—NVOa[lo. CO4RNOCeVPROJCoOPE0XO<OaNlC’a0lOo—0OWNO¥L0MWoMw-O—|a|nl.[lL0=NOVaIaIeyOanll~Yty.ay¥RV-IaI—ag)!)lbbMlON—Co-42>¥RT(4eX.}0—ITaroOMN-—0eaIT|dD_—MQL—w—TONI[l»MONIWGOAVI[N=xMV—]N~Le[Xc~—4-— -D]L1tY J[]e]"lyp[[—X«3I»OnN(JOweV|o)ONYAB0NoXIONY«o[AMO-V[m>]a«—N)OaXVQA0oeONT0ooJ3N]O[-A8VNXAI[oO3|DLaIN-~0I4TI=T3RRoO—1OMoW-Ia-sA)|NE|o~lO—M¥NBR0nVSyX0~IIeBORV—N[NaIla-O~-W—TOOe[cF0[—[lMVnNxD—O\eVYAO=V~LT53NOeVO0cNO-MJOO.O1NW-V.]—L.0-a)0lCkRTMOONO—VeDWl—oI1eA-VOOOgaMN00OWVlIaeWIlL—N1ToOiNO0-FNotolNL«OOaNeSRL0l1OrONXT—OM0L0NXWN0gOMSOM8-aNWT—Vl1OONONL8VR0SNO0NPa— No-[[|$[~aeoA5aI.MO—sON2A.aN.oNIBRe
[AVaY~¥a) OWeN—O~OONVN
-)oy—Lok-[— 11RB11uraE 11aS|11elRV11V’oN11aE11XXL11a11VL
—o—L|Las—dL 1—0l0O01—0O181O0—18a100—1Mb001
—gL1——9 1]00D]0100]810P6]00

(CREF

MACRO v03.01
v01-05 )
11-APR-80

[- L-)

L] a8 -&&

TABLE

c2al’al ON OMC -N

XOO2OTIJJ—)~N0FoOOaOXyoDOIZNaaJyNT-OQ0OaI7Erd0OO—NNW-»RIIFNn»VJrWOOBCX—MJ—W~OW-LERgTNtBI_y~oev£--IoEIRJ|—TO_N—JX0-TbIGTrROVvOT>MIwNrZo—- Oo-xoOw]It—uM[~nrm0E—OeVrBOOCArErWIwmO-NoT~Iu]dLrIL&O—TU«OL—IOtUW~aoo JO—-To0WNU—e}I—eOEETXV<WO-X-0RsTNCVYIoLOAdOIR[FILNI»WO3L oAnVl0WoYVS-oOV[—"Vo-OI|ea—l)NONN EAolVMNeOa--~V—L—DeNn0[Id—D[LZWON[VUDaC2—XV-V=eOIZUI&O—ODE=TVXM-ZIaW—)3DOMIW-TNI3OZ—O.LD3OT0e—Nr(LW—O-eVOrPOM1e0OZ[O.—-N—OO1A1eVN1N«O[0&VSMo1O1OVOOIM1No]&WO011NeA\«OOO1OoTL&SI—VO11MAO--0O1TT&0OIOONN-MA—aP&«~ISrb—ONoOOor-IbR——W-O—aAFEOeerXOLNEeO
L"]0o(oa=[n]~~]dL oo o)| 1 VS00—e[|o|YlVoXOIV}Loo———IL| CFNO1—o|PO-UOAOMO1NMNWOFVOAaINN0O1M\yO-ONDNIbIACO1PAD=OI0NO0S~0IONFO10o&80OMI O-]&|[
CROSS REFERENCE

CIRMLAO RM0OS5/3/2 FORMATTER
'3:01:23 PAGE

N1
S-9

SEQ 0150

=.-

.&L«R

IAoBPASR AoDD ooloAAO o— o-——"=S—T

8-2440

RiA

112
SEQ 0151

¥—4b—OgNgg-—w 4-—o)g[~¥0NNa)o«—->-=a[»]0R——R\RRXeleleeNlelIololOoMloloOlolololL>oloolL0owl(L~—=Xn2)-—»no0-—
o ]
»-s«

oo[—~[]]}L
-

MACRO v03.01
v01-05 )
N =APR-80
13:01:23 PAGE

~N .2}

—

wvevwevwevwr
v -

(CREF

("oao——~—![[]}}e0
[4

[a) L.a]

EOJV(gOJOg.RNNVX>IeSWeE—]2NkAOMXXATWJNVSoEIZ-N0OwEJT—mXemT—Rw2IYEVVWMOao(N1n\SoJJUVLLLd7OVB=JWWE-TAUX0\N0Oom-DLX=—MEWG3—LoO=IM3W&0oET=Bw7REe—0IFROE--owVOR=—0w-[W—BNoJ][—oa5-IULrOY]-0R—-[[]a~00o—[)-+EAVI-wgOAM-XO2[RyAVMC0y~NIvAOADZeWYTOo3ON=~0S((([oeOo[ O~[NzFo-—X—==]=[] a0]~V0])]U)WICRANWeEVAOEIMX-ONaeIRM~SW—(~~0»-=N]OnNI)V..EE-J—WIAOCOsWVgITNT—rNOaMNAXEgIRR ANWeOZeWTONXNceOLUIgDZNLTHJOEOeNWAZNFV(TIP~UVNOEMOP—NINMVEPNOWQYVMADVOreNTVILo-OOnr]V)IA[D—la[EeYNWPNtOrSOTNVGII—NVMO0IfWr~DVIFTNrVO—ADWVNVrXWTN—VMRVIr—OVANIMUTTmLNOXOA—-WFYe]1 —IwRYOOIVMnTVINOMOoUR}VeVhTOWNo—aPAYd.TLOOooONoL-NV&[aUNa~T—[nXaOORBL04~wX¥LTeE«.-—-]~]NNdIueARMoFOD¥JdNU]VVs.IXWMWM-NOL—<UoN1KOO~N.sCA]Vz.MWO.MN<Ve0IoNs<Aa~~ aOog~aTRM]Oa])U ['0o0CEo[MOTOPMWA6.y6N0LOaY[MwSEG0
aO~o<Lo(o-4][]A[}—~ye0Rl« Vo[ ~oo ~e[][ ]rNl ~0(oa[~~——)]]Jeo
CROSS REFERENCE TABLE

CZRMLAO RM05/3/2 FOFMATTER

J 12
S-10

SEQ 0152

mS1Z€

8-265

12-360

kK 12
SEQ 0153

_aA_a_a

asm

CIRMLAO RM05/3/2 FORMATTER

PIP

PIRQ
PIRQVE

POSQUE
PR
PR1
PR?

PR3

PR&
PRS
PR6

B-262+

8-269¢

10-149

10-401

10-667

10-179+

10-202+

10-205

10-217+

8-175+

o
oo

]

—

R
R
B
R

4¢

10-156

10-159

10-836#

10-865

10-289
11-422¢

11-777

11-963

11-:01

9-25¢

9-85

9-11

9-1646

10-69

10-97+

10-=19

10-222+

10-310

10-312

10-343

*+
v

10-383+
10=746

10-384

10-585+

6-0
6-0

6-0

6-0
6-0
8-3
4=

PARENT
PAT
PATA
PATB
PATSEL
PGE
PGM

SEQ 0154

6-0n

wWwo

PARS

6-0
4-1
6-0

g)\‘_ao_a

6-0

PAR7

=170+

PAR?2

4
4-2
4=

-t

11-3
6-1

PAR6

)

oPY
OR

PAR3
PAR&
PARS

v01-05

8-1
8-

10
9

PACK
PAR
PAR1

(CREF

L 12

11-APR-80 13:01:23 PAGE S-11

L. E R

NUMERR
0.ENTR

OFDIR
OFFSET
0Pl

TABLE

]
O‘OC.)VOO

4
N
4
11
11
4

4
10
8

VwROWOWVI

NOTRM
NOTSAF

—

MSQVER

MSTCK
MSVER
MUNIT
MUSOR
MUTLTY
MVCMPY
MVERFY
MWl
MWR
MXDLTA
MxF
MXLACT
MXWNDOW
NBA
NED
NEM
NEXT
NOTPRS

Ot it Nt et 2 s s O PINPVNNI
N —]
ON—O QOW|— 20O OO ~N—~N~NYWNO
— 00O~
O =
PNDWWRNIWOON
WOOWND
O

CROSS REFERENCE

MACRO v03.01

6-0
6-0
6-0

4=
4=
4~
4-7
4-7
11-435
4

6 0
6 -0
6 0

6-0n
6-0#

10-:11

10-; 31

10-,;63

10-;82

8 371«
g =372«
276+

10-16*
10-17+«
8-395+«

10-20«
10-2 1+
10-1 8

10-25+

10-29

11-953

11-993

11-:89#

11-487

11-603

10-778

10-788

4-78#
4-78#4

4-784

4-784
4(-784
4«-78¢

11-924

10-745

PR7

(-784

8-87

M 12

SEQ 0155

—e—-—-—---—
eY3—V,eM—(ARVY[e0aVRV8AN0=1N0O—VJEO~M[)N}«aOM5-0d—L'—~[o]I|[}-10—0e~-'08o—0O[onwa'!NNl1Yr—D--—006000—O4h~e—r§dU~Na"L'0
.—ooo——[oV[[MM=OTVONeNe]]}]||ww1aQ&1a£Nvv+.o="—pIe[OA-——VVBIg2MWMewAviERoY.¥«OO—nvIkvNIgR"XX[VVaX2waiw—0—OaIgLLPAvhvJYoww0XuOaO7hWeTgIDDMlNvnAa~VoNOw’aNV@]AeAnO~FLneee|O[Lgy0a0FNN—lo0O-M—~aVMOoN—[OgO-WWoO——~~[--]'-Laa[«L]y0)l2—]«))[ORJ—VN-VwMOI.uNv%V[[O-——<o..<-<~o-v—-~8aDG~1—eanoo]]¥V_—olI[]wn]hOVVan.O]Ih,FeIOIoVJOMgJ>rEXCWrRgYROeN~L[OUARDI2—NOOIW(D~o-owOO—~o7]][NNNYVJOONTao[»0wo]~-gOsa<N~)A¥[]]n0[y—)(l0—VOgOMso—YeOIge4ea»s—gXn0OcerngNgSMgeNerOQw—N—"I1nO0vNWN0oooa—\--o~—a—-FWSw]]o)oV—y|dVA[0g\}[—[o[+i«LO)n@neIAMe[QA-T1-OFV—WUYTa2Vle[VA-NLoo.Lw-~o<~NV3Va2-- ——Vo])R-[aV—Baal=]l]TMa-<&EH--R«3wVIr-—VNTBMNwVOONO)o—nCV|WVPYoeeOOco-3GOV""k-T]l]«v—[0O—UVNIoOVa=D~ZWO-||YlUHW—e—VOxeN=MgNV0DadIIOOxeMlEr—MgH—OaNOeL=lBgxJ—NIoElFOvAWNoT=POxlLWNOooHLOlIV=OEaexMOnMvdONZao-DOONLY(n[l-O—~¢]UoTLo~wDoOl4T(N<Y&M]O[&1-&—l)NWO0AaN-4—=~-[NnA~LoM. (o0[ No —o avO~oo-M-LNA&ha=3]~]&Sd1Ldn—[- 0]—Xt[]M]ldL
Kav—AaN)Loloal—a"MoONYtaToeNlYOMVaAlb=WO&T4X0N[«wO-W0(~A<cOJ-B][eCXaNITLrOxWCMOROaOT08VOx0LoO(Wo]@Wa0Y\wV)oaIOWWW=NcERrWXLx]wTZ—Mo-ZOLDWcNw»>Wad[DOIW>RNVOWcW=IxNa=MWxWANOxV2]]naNW0IEm[OaXwAENExTZW-oOXIM"|a—ECCONTMOxsE®NrX*Be~AItIrNm—eaEIrcaSnKxre0XtIxLr4namrOIOsmLee3TI0rWmoo0EO«eNI\aexFmlL8x—OeRSTm0LM8—e[VO0[=—|]V0ART10OV0XOe2VN>0O32VxNrO.>0Vae—2)rYVMC3Q-- $—oBIV2LrOaTe—50—I3V—rrX3O«IV—OAOrDV0-«D—N3StD0VrOVAa53—NRVr0NNV—-ArSeNI0R—3OF0rDN0—OD.O2r8N—IDrO0D-8—NMN-Ter80—N0W-I[|Ow8AVW0-N4oQGs[-IU0aOLeVYQ3-~«I@[
0V]LVOOgML[ALWoaYwlO.IgwTYVoVvOiiogLY0OVvwLngvT0nnVwOoOsoL[vnwT©O[OOa0—[1)]'®[-g—]]— ] 2ow<—--—-|']!]]}—"Naowo-o['D] ] [o-L([O© -o-o-V='! ]9a]——))
Wu®=w&L-mn -—=ePGT

- &- -

v01-05

MACRO v03.01
)

L[2TMNOWe.V4—-VVVPINHEHLHWI -—LPgo

[ -

(CREF

- -

CROSS REFERENCE TABLE

CZRMLAO RMO5/3/2 FORMATTER
N 12
11-APR-80 13:01:23 PAGE S-12
SEQ 0156

RMOS

9-34

9-43

10-46

10-262

10-268

10-409

B 13

10-568

10-:70

11-359#

SEQ

0157

MACRO v03.01
v01-05 )

|—L0—!0oQ=yoO—-|1 ) NL]eOeN]—"L~ ] oO —— go ~O ]] ]]]

(CREF

&& +

CROW\x3OMIOaLMMVJNALNNIO—VMNOIeAMNOU<eIL—NUNAOGLNDIUoOCNML0JO OIL—WVNaWOL0IGUdQPAraVO0~LONmrRMVeFNLrO—EOaO0MLOK>O 3W—DOHOAMNEMVwI-MWLEONoI—IeWTWOeX—VSDFIONTXZOYN2SNEI—CoeWT&>OrOISV0LOUEVDYONOLC>S.~eJ<OmLDnFiP>TEOSOMUYWNEPS~FTBWEMUOVN(O7XoLEo0WOoIVSNo—EOZD~NVZEV0OrZMrIo—N«LTO<A~N«COEO<ODAXO<wVONnNDISUI¢eVT~wnN—MVDIgVOAIMVWyOVNTBDO~WPO£€—&

XQ»NV\n,FAILV,OoN—bM]lRrV—o)GL]Yo->Woo—-~-NAlo')]J1OWF—4—~VlSNe,a0—nXu-OA——nOdYR[nh[0VVo,aB=GNdY0V,oMGlIY0VL,anGXd—NBRlVO,ro[a]OLOo~-4—---.-o—~%]nGR[’]I']5~}}[d—l—VOA1[,Le6oYI|0Vl,&fNXO\LV,V-O-—LGNr||0VN—,.G-eXIIRMOVm,IL~r——I—eG[XOVT-MYV3NFXIVAPJXVA3IRXbVaN-Tex-A~-Ied1MoX——OOVL~NIVMOO]L—ZM[O0VOW—o—r—e—g-O—O0o=2aV1NO+1r«|1]"I|)naM]||Y]))Qtnd—_Ea_OdLMolWIsONaO~-3—lC-O—»n—VkeTBLdOe—&sOnw\—0]aIl¥X—OE0heOl®LaOVWONVM[M0A—nA—rM—VOI]RLIo[AISmVP0a]niL]W—W[R0XaOoNN.—€OYeYMT——N0-WV—d-O--A_r\LIaVPIOX——WJxrlAI[eaAnv0AluL—VLY(—INnalo]Wx0cwwoN—lvn[oLY(--0-O=~04]ia[=ym"]0g}5———[=)v-0[—-3e——.r3=,U[vaw-o~-O-e—VN]|15)01\a———el.--——0LeA3DeONa---—I]U—e—L~N==r—[—«-wI[[a[-V0)—-o—LOOaa-N"-o-3vVL—]L 1[]a[]eaN]|}[—o-}—=——]])VO«ATrNIRN—esNoaLO~-—o-=na]rI]d[0[l——}.IL=LWIeONNGWEOvA|r~(0O—]o3-4-M—~N-o=—]=r[A].}—]0[4OL~]=-NIlLE—L0O3IevO~W=—c-NNM-B—|O]A0P-—e—=-5NOO—o-—A~O=]N]]R"I&I&IO[—rOeI[VSL0r—4-Va~KN——O-—04}O[N&Il-g0|LY[FI[EbN0«ADM—JXoNI0NTERYLN©aN--NO—Ww-Oo~OMY-¥N—=odpO=-o[]NJ]&o~[8[|—0.y——Y[Or3eOAIg0O@bVdOT(D—rw-o—Lvd—-]¢-|4aN0DgL»VOt0La=LV.loOWI0rU*N—e.eVoL[-T-—-oF-3o-WS-L-"~==3¥.—Md[4]O[T—~[t—}T[a——}E~Y«l«M[)[-«
(ROSS REFERENCE TABLE

CIRMLAO RMO5/3/2 FORMATTER
N -APR-80 13:01:23 PAGE S-13

c 13
SEQ 0158

o~Ms

SEC30

6-0n

8-166*

8-176+

8-260+

B8-267+

9-126

10-42

0D 13

10-74

10-720

10-988

10-990+

10-994+

10-:20 SEéoaigg

CIRMLAO RM0S5/3/2 FORMATTER

Sw12
Swi3
Swis

10-109

11-226

11-45¢4

SEQ 0160

10-110

10=127

10-129¢

11=471
10-568
10-993

11-685

11-818

11-<392

10-<23
10-79

S-1¢4

10-438
10-322+

10-464
10-324

10-326

10-;43
11-950

10-:74
11-959+«

10-587
9-90

10-138

10-140

10-160

10-328¢

10-333e

10-342¢

10=-706+

10-;94

10-=5%

10-255—

10-241

10-267

10-580

10-823

11=:79
11-892

11-:81
11-910

11-:83%
11-957

1 1 -:89
1 1-9 9 1

1 1-:96
1 1=:61

11=;00#
11-:99

13-353

[

O
»

NS~

—

el
el
——

WO W
L 2

NN.

)

[V,

— el

.0
0
001
NN NN
= (NS
O

—

——

10-792#

11-:54

11-:68#

4-78
4-78
(-78
4<-78
(-78
4<-78
4(-78
(-78
(-78
4«-78#
4(-784
L-784
(-784
4«-78#
4-784

»r~N

—

— e

-—

—d

ol
) e

]

—

SNAN NN

—

»n

|
L

-—
—
—

(CREF

—

s107
S108
S109
SVRH70
Sw0
Sw00
Swo1
Sw02
Sw03
Sw04
Sw05
Sw06
Swo7
Sw08
Sw09
Sw1
w10
Swil

Y BT o S R
R
A
I o Nwwwmmwmooonw—-oo—-onmouwmm—awmw
O~
00~y - Q0 00 OO NN OO CORMRBVNDWNDOO
OO H
N O~NN
VNS BRO
—= &~ NNNOO
—
B 0D
00—
&Hues
N O 0
= O®O
wwnes
O

ST106

ST01
$102
S103
ST05

wed

S10

STKLMT

STCLK3

SN1
SNGSEC
SOFf SwW
SORT1
SORT?
SRCHWT
ST.CLK
ST1
STACK
STARS
START
STCLKY
STCLK2

Skl
SLASH

10-:67
6-0#
4=255#
=312«

—

SECCU
SEEX
SEEKFG
SELDRY
SELPAT
SERNL
SET.IE
SETFMY
SETHDR
SETTIBL
SETVEC

TABLE

E 13

11-APR-80 13:01:23 PAGE

- 00 NWN

CROSS REFERENCE

MACRO v03.01
v01-05
)

8-85

10-649

11-:75
11-842

11=<07»

SWiS

«-788

SEa 0161

CIRMLAO RM05/3/2 FORMATTER

(CREF

SEQ 0162

8-15

8-85

10-347

10-576

10-649

10->86

11-873¢

11-G18~

11-961¢

11976+

11-998¢«

11=:15

1M=:17¢

11-:80¢

11-669¢

11-678+

11-757

11-758¢

11-:55

11-:651

32
20

11-466+

11=610»

11-663+

11-755¢

10-8+

10-865+

10-262+

10-262¢

11-639

11-638¢

11-651

g—e

3
2

|
U
L
e
F
g
—
—
P
g
—
—
p
g
P
G
s
i
g
—
—
O
0
W
—
N
e-—gMO0OOVN
46

5
2
2
3

3
3
0

—VgagetlW—ggaVgeS—Oe4gN—Fgg—oVOl—AegToL—VPAOYQNO]-[X

CoIOFrO OO O

TABLE

613

11-APR-80 13:01:23 PAGE S-15

OO0 O

CROSS REFERENCE

MACRO v03.01
v01-05 )

2
3
2
5
8

13
26

38
1 5
60
87
<0

1
6

?5
?

27
10-<38

10-= 05

10-224

9
9

8
0
9
0
86
760
762

10-26¢

2
2
1

3
8
9
0-<?2

10-275#4

17-20

7
6

0
2
2
209
762
0-762

17-29

0
3
1

5
6
1

0
3

1
6

0
3
2
5

6
1

<35

107
244
325
154
5¢8

840
0~-,26

4
4

g—eo—

5
2
8
3

6
14 -

H 13

10=275#

SEQ 0163

1YPON

CIRMLAO RM05/3/2 FOPMATTER

USTAB

6
0
6

9-200+

9-202+

9-206*

10-:2&4

10-;49

10-;50

10-;55

10-<21

9-95

10-<25

9-135

9-199«
9-201+«
9-209¢
10-<68+ 10-<69+ 10-<70

10-72

10-568

10-908

10-918

8-169«

8-174+

B-261+

B-268«

10-26

=208

10-211

10-226

10-229

10-315

10-318

10-568

B8-275+

8-352+

8-363+

10-476

10-686

10-739

11=-,;84

11-,;90

11-,96#4
?

11-523

11-527

11-538

11-545

10-;56

10-<22

10-<26

10-<7Se

10-:1

0-:18

10-;47

10-;4

0-:48

10 -;.5§

11-555

11-569

11-579

11-600

8-302

8=30N4

OO
N—
coOmR®BRnN

AoV

ad e

e -]

U
[aN]
(V.

—

Se ORANS: e 8. 05 00 0,

o
— 000000
(e Xs L o} e

s
)
i
D
il
e

o
)

—

el )
el
—
Y

N |

NN =P =N — (NN
SNV WNOO SN
O AN OO
NN NN
B
W
L
33

OO?OOOOOO
$
000
0

P
G
[

)

—ld

D e

)

) vl el

il
e
—

60+

10-186

10-195

10-200

10=222#

8-30

8-32¢

10-2174

10-368

»n

N
o

O
]
O'

— O
&H -0
B — e

—
—

WRTRKY
WRTRKZ
XS1ZE

9-129

11-:64¢

WRTRKE
WRTRKF
WRTRKH
WRTRKX

9-92

11-948«

—

WRTRKA
WRTRKB
WRkiRK(
WRTRKD

11-670¢

WRTRK?

11-633¢

US4
USSAV

WRY.WD
WRTDAT
WRTHD
WRTRK
WRTRK1

11=567+

—

104

WRT.R2
WRT.R3
WRT .R&
WRT.RS
WRT.RM

11-384¢

ust
us?

w(
WCE
WwCF
WCHKX
wCKD
WCKHD
WwCTBL
WLE
WRAP
WRL
WRT.AD
WRT.R1

11-369

8
8
8

SEQ 0164

10=-275#

—

8-92
10-717

113

13:01:23 PAGE S-16

10-392

(CREF

11-APR-80

9-16

1YPOS

Ut
ULDFLG
UNS
UNSTAT
UNTOFf
UNTON
UPDCYL
UPDTRK
UPE

TABLE

— O 00
LI
]
PO
WSO
-

CROSS REFERENCE

MACRO v03.01
v01-05
)

8-37

8-48

CIRMLAD RMO5/3/2 FORMATTER
CROSS REFERENCE TABLE (CREF
$SCMRE

(MM

(=480

L(-4B81#

4-78#
4-78#
10-275
8-14
L(-78#

8-9
10=-275
8-140

.SAPTB
LSAPTH

G~674
L=678

5-0
L-286

LSAPTY

LSCATC
LSCMTA
$0B2"

$ECP
R
TN
LB 1
.SPOWE
.SREAD
.$SAVE
.$5B2D
SSUPR
STRAP
LSTYPD
LSTYPE
.$TYPO

LEQUAT
.HEADE
LSETUP
. SWRH]
LSWRLD
CKCHR
(kD16
CKNUM
OMMEN
ENDCOM

ENDTYP
ERRCAL
ERRENT

ERROR

ESCAPE
GETPR]
GE TSWR
LOOP

L(~684

10-256

4-654
4-654
L-654
L-66#
4654
4-648
4-644
4648
4L-644
4-654
4-654
4&-654
4-640
&-640
&-64n
G-640
4-734
t-164
(=264
4&~394
(-784
4&-784

10-568
10->86

SEQ 0165

’
10=275

10=?75

10=275

10-?75

10-275

10=?7%

10=-?75

10=275#

10-284

10-285

10-?75

10-775#

S-0n

=279
4-481
10-271

10=-264
10-262
10-273
10-769
10-?07
10-275
10-260
10-754
10-758
4-78
6-72
=277
&-73
6-74
8-293
10-888

6-75

4-76

8-384

10->45

10->53

10-4884
10-2772¢
10->744

10-568
11-817
10->86

11-868

11-870

11-;32

11-:91

10-302
10-568

10-250

10-30&
10-568

10-251

10-252

10-253

10-254

10-255

10-281

10-282

10-283

10-248

10-418
10-568

10-279

10-294

10-416

4«-84

&=-784
4&-78#4
(=684
4=524

MORETA
MULT
NEWTST
POP
PUSH
REPORY

4=289¢
4-78#
&-78#
=784
4-78#
&-78#

SETTRA
SETUP
SKIP

10-275
4-78#
4-78#4

SETPR]

4-283

L-67TH
L=640
L~654
L~654

J 13

11-APR=-80 13:01:23 PAGE M-1

5-0

$SESCA
SINEWT
$$SET
$OSETM
$$SKIP

LBACTY

MACRO v03.01
v01-05 )

4&-78#

L-784
10-267

10-419
10-601

10-420

10-421

10-422

10-432

10-434

10-445

8-15

B-15#

10-767
10-759

10-?56
10-?56

10-256
10-?56

10-760
10-756

10-?64
10-?60

10-764
10-764&

10-?73
10-?64

10-773%

10=-?75

10-?75

10-775

10-?75

10-?75%

10-?79

10=-27%

10-?79%

10-454

10-568

5-0

8-9
10-752
10-73&

10-262

10-?75
8-14

10-29N

10-568

10-298
10-568

CIRMLAO RMOS5/3/2 FORMATTER

CROSS REFERENCE TABLE

SLASH
STARS

SWRSU

TRMTIRP
TYPBIN
TYPDEC

TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

(-78#
L-78#
10-25¢
10-273

4(-784

10-275#
4&-784
2-78'
4-784#
&-78#

4-784
4-7B#4

(CREF

v01-05

£-283
10-756
10-275
8-14

4-286
10-758
11-1¢4
8-144

10
8

10-226

8-9

10-?
8-1

MACRO v03.01
)

4&-286
10-260

K13

11-APR-80 13:01:23 PAGE M-2

£-286
10-762

5=0

10262

5=0

10-762

SEQ 0166

5-0

10-762

8-9
10-262

10-3

10-264

10-568
10=764