Digital PDFs

AH-F919A-MC

June 1980

167 pages

Original

80MB

view download

OCR Version

111MB

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_gray.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:2% PAGE 1 1
.REM

SEQ 0001

PONUNURURURIP
L NV
s e
st s il it

LESEIFIRARNZET ONOWVE N V=000
N WV
NN 2O O

NIl

(IRMLAD RMOS/3/2 FORMATTER

o
e e

THE
AND

PRODUCT CODE:

AC-F918A-M(

PRODUCT NAME:

CZRMLAD RM05/3/2 FORMATTER

DATE CREATED:

APRIL

MAINTAINER:

CX DIAGNOSTIC ENGINEERING

AUTHOR :

MIKE

1980

LEAVITT

INFORMATION
IN THIS DOCUMENT 1S SUBJECT TO CHANGE WITHOUT NOTICE
SHOULD
NOT BE
CONSTRUED AS A
COMMITMENT
BY DIGITAL EQUIPMENT

CORPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY

FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
THE

SOFTWARE DESCRIBED

IN THIS DOCUMENT

IS FURNISHED TO THE PURCHASER

UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED

(WITH
INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)
ONLY FOR USE IN SUCH
SYSTEM,
EXCEPT AS MAY OTHERWISE
BE PROVIDED IN WRITING BY DIGITAL.

DIGITAL EQUIPMENT
CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
g?GI?ELlABILIIV OF ITS
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
L.

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

CONTENTS

ABSTRACT
REQUIREMENTS

%.l
.2

EQUIPMENT
PRELIMINARY PROGRAMS

LOADING PROCEDURES

3.1
3.%
5.3

PAPER TAPE AND XXDP
APT
APT ETABLE DEFINITIONS

STARTING PROCEDURES
4.1
4.2

STARTING ADDRESSES
OPERATOR ACTION

4.6

OTHER UNIBUS ADDRESSES

RH11 = RH70 UNIBUS ADDRESS

4.3

SWITCH REGISTER SETTINGS

WA = O 000N

N == O O 00 NN W IS NN = O O 00

O VN IS NN —a

CIRMLAO RMO5/3/2 FORMATTER

ERROR MESSAGES
MISCELLANEOUS

7.1
7.2
7.3

FORMAT TIMES
HALTING THE PROGRAM
SURFACE VERIFICATION

Lol R o AW
W =0V~

PROGRAM DESCRIPTION

8.1
8.2
8.3
8.4

FORMAT OPERATION
CHECK OPERATION
POSITIONER VERIFICATION
MHEADER VERIFICATION

BAD SPOT FILE

10. RH/RM SOF TWARE DRIVER DOCUMENT

SEQ 0002

MACRO v03.01

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

SEQ 0003

ABSTRACT

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

EACH DATA BLOCK ON THE PACK. EACH HEADER FIELD SPECIFIES THE ADDRESS
OF ITS ASSOCIATED DATA BLOCK ON THE DISK PACK.
IN THE FORMAT OPERATION, THE PROGRAM WRITES THE MEADER OF EACH
DATA BLOCK WiTH 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 THE

"WRITE CHECK HEADER AND DATATM COMMAND.

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

HEADER WORDS TO AN EXPECTED VALUE.

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

SURE THEY ARE CORRECT.

THEN COMPARES THE

TWO HEADER WORDS TO MAKE

IN THE CHECK OPERATION, THE PROGRAM REPEATS THE FORMAT OPERATION

THREE

TIMES WITH DATA PATTERN BEING ROTATED ONE BIT

EACH PASS.

REQUIREMENTS

2.1

EQUIPMENT
PDP=11 PROCESSOR

8K MEMORY

KWil1=L OR KW11-P CLOCK

~a
—oom~

uwuguruwuw-----a.a.._._.
-d adNNb =b =b
WVEWN
= OO0
NV
N = O 000N
VI
OO 00

O VI NN -

CIRMLAD RMOS5/3/2 FORMATTER

PROGRAM LOADING DEVICE
TERMINAL

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

2.2

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

RM05/3/2 DISKLESS TEST, PART

1 & 2

RMO5/3/2 FUNCTIONAL TEST, PART
LOADING PROCEDURES

3.1

PAPER TAPE

AND XXDP

CZRMLAO RM05/3/2 FORMATTER

MACRO V03.01 11-APR=80 13:01:23 PAGE 3o1

59
60
6]

6
6

SEQ 0004

THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE
LOADER OR IT MAY BE LOADED FROM 'XXDP' MEDIA USING THE APPROPRIATE
LOADER.
,
3.2

APT
THIS PROGRAM 1S APT COMPATIBLE TO THE EXTENT THAT APT HOOKS WILL

BE IN THE PROGRAM AND WILL WORK THRU THE ‘OPTION INTERFACE®.

FOR OTHER INTERFACES, APT MAY ONLY LOAD AND START THE PROGRAM,

AUTOMATIC MODE (MONITOR)

74
75

1.
2.

DUMP MODE

INPUT DIALOGUE AFTER PROGRAM STARTS

I1.E. LOAD AND DUMP MODE.

3.3

THE INPUT DIALOGUE IS BYPASSED.
THE BUSS ADDRESS AND CONTROLLER INTERRUPT VECTOR IS

DEFAULTED.

APT ETABLE DEFINITIONS

84
85

THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT
ENVIRONMENTAL TABLE (ETABLE) ENTRIES, VIA RUNNING

THE APT UTILITY PROGRAM '‘TSP'':

90
g}

SOFTWARE ENVIRONMENT:

= 1 IF APT SCRIPT MODE
= 0 IF STANDLONE MODE

ENVIRONMENT MODE:

95
89

BIT 7 = 1
= 0

BIT 6 = 1

10°
}gg

BIT 5 = 1
= 0

}82

BIT & TO BIT O ARE NOT USED

‘88

ETABLE DOES SIZING
PROGRAM DOES SIZING
SPOOL MESSAGES TO APT

= 0

DON'T SPOOL TO APT

SCRIPT MODE

SUPPRESS CONSOLE OUTPUT
ALLOW CONSOLE OUTPUT

106
107
108
}?8

SWITCM 1 (SOFTWARE SWITCH REGISTER)
IF_ENVIRONMENT MODE BIT 7 (SIZING BIT ) IS SET 10 1,
THE SOFTWARE SWITCH REGISTER WILL BE USED, INSTEAD
OF THE HARDWARE CONSOLE SWITCH REGISTER.

SWITCH 2

114

CPU OPTIONS

}}%

(USER SWITCH REGISTER)

NOT USED

CZRMLAD RMOS/3/2 FORMATTER

D i il

D i

D i e

s i il

NNOOC
O OO
VWVVWVWVIWVWWIWOIDWVEESESENESESSNS
‘“uwugwuuuuWNNNNNNNNNN—‘—O—.—'—l
= OOVENOWVSR
WOV
NV
WO 0NV
N =0V~

S£Q 0005

NOT USED

7
3

MEMORY TYPES 1-4& AND MAX MEMORY ADDRESSES
NOT USED

INTERRUPT VECTOR 1:

BUS PRIORITY 1:

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

NOT USED.

9
?

10. BUS PRIORITY 2:
NOT USED

11. BASE ADDRESS:

12. DEVICE MAP:

;

INTERRUPT VECTOR 2:

NOT USED

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

USED WHEN ENVIRONMENT MODE BIT 7 = 1. EACH BIT SET 10
1 INBITS O TO 7 WiLL SELECT THE CORRESPONDING DRIVE
TO BE TESTED.
BITS 8-15 ARE NOT USED.

D il i i

Fo1

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

D i il

13.

CONTROLLER DESCRIPTOR WORDS:
USED WHEN ENVIRONMENT MODE BIT 7 = 1.
NUMBER SPECIFIES THAT PROGRAM RUNS

14,

CONTROLLER DESCRIPTOR WORDS:

USED WHEN ENVIRONMENT MODE BIT

ANY NONE /ERO

IN CHECK MODE.

7 = 1. ANY NONE ZERO

NUMBER SPECIFIES THAT PROGRAM SELECTS 30.(18 BIT MODE)

IN ALL OPERATIONS.

6.1

RH11

THE ADDRESS OF

OR RH70 WILL NOT BE CHANGED FROM ITS DEFAULT VALUE OF

il i il

THE PROGRAM 1S STARTED FROM LOCATION 204 IF 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 1S LOADED.

(SEE SECTION 4.3)

) e
i il
D i
i i
—

STARTING ADDRESSES
THE PROGRAM IS STARTED FROM LOCATION 200 IF

D il il

D i e

D i

D il

SECTORS FOR A TRACK

6.2

OPERATION ACTION
1.

LOAD THE PROGRAM INTO MEMORY

(SEE

SECTION 3).

LOAD THE STARTING ADDRESS = 200 OR 204

THE

176700.

CZRMLAD RMO5/3/2 FORMATTER
};

MACRO v03.01 11-APR-80 13:01:23 PAGg 3-3
3.

174
175

}g?

ENTER THE APPROPRIATE CODE: 'F' FOR FORMAT € QUICK VERIFY, *C' FOR
CHECK OR 'v' FOR VERIFY OPERATION.
IF A CARRIAGE RETURN IS
ENTERED IN RESPONSE TO THE REQUEST, THE PROGRAM WIiiLL ASSUME

}gg

'FORMAT & QUICK VERIFY',

}gg

ENTER THE APPROPRIATE CHARACTER:

192

18 BIT MODE.

}82

199

THE DRIVE TO BE FORMATTED.

'PERIOD' OR

THE DRIVE SELECTED

IS NOT AVAILABLE, THE PROGRAM WILL TYPE AN ERROR MESSAGE AND

RETURN TO THE DRIVE ADDRESS REQUEST.

ggg

AFTER THE OPERATOR HAS SELECTED A DRIVE, THE PROGRAM WILL ASK
FOR ADDRESS LIMITS FOR THE SELECTED DRIVE:

'"ENTER ADDRESS LIMITS:

209
210

N —

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

NON N

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

= OV

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 TO

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

NN
0O NO WV

FOR

16 BIT MODE.

'CARRIAGE RETURN' ENTRY WILL SELECT DRIVE O.

201

°N'

IS ENTERED IN RESPONSE T0

ENTER THE ADDRESS OF

%8%

ASLAS LS LN N N NT ST ST VT NT NT NT N1, N1, 81,87 87
PORNVRURNONUNURU
NN b et e d e e e e d

FOR 16 BIT MODE OR

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

200

%82

"Y'

IF A 'CARRIAGE RETURN'

THIS REQUEST, THE PROGRAM WILL ASSUME

}g;

204

THE PROGRAM WILL THEN ASK FOR THE FORMATTING MODE:
“OPERATE IN 32 SECTOR (16 BIT) MODE (Y OR N)*

191

}gz

THE PROGRAM WILL THEN TYPE THE FOLLOWING MESSAGE
:
'PROGRAM MODE (F, C OR v):'

182
183
184

}g;

SET THE SWITCHES AS REQUIRED AND PRESS °*START',
IF THIS IS THE PROGRAM'S FIRST START, THE STATUS OF THE DRIVES
ON THE SELECTED MASSBUS SUBSYSTEM WILL BE TYPED OUT.
THWIS TYPEOUT
MAY BE INHIBITED ON SUBSEQUENT STARTS BY SETTING Sw<02>.

};g

SEQ 0006

THE PROGRAM WILL THEN ASK FOR THE DATA PATTERN:
(IN CASE OF

FORMAT MODE)

'SELECT DATA PATTERN
(0) ZERO'S

’

CZRMLAO RMOS/3/2 FORMATTER

MACRO v03.01

229
230

ENTER (0, 1 OR 2):°

233
234
%gz

ENTER THE CODE FOR THE REQUIRED PATTERN.
‘'CARRIAGE RETURN' OR
'PERIOD' ENTRIES WILL CAUSE THE PROGRAM TO USE THE 'WORST CASE'
PATTERN.
s

237
%gg

THE 'WORST CASE' PATTERN IS THE FOLLOWING OCTAL SEQUENCE REPEATED
THROUGH THE DATA AREA OF THE SECTOR:

%2?

066666

242

NOTE:

2463
264
245

ggg

%g}

'
|

PATTERN WILL BE RESTORED TO 066666.

248

THE PROGRAM WILL THEN TYPE:

"STARTING FORMAT ON DRIVE N'

253

254
ggg

"STARTING CHECK ON DRIVE N'

257

258

523

"STARTING VERIFY ON DRIVE N'

261
262
263

NOTE:

264

10.

268

ggg

27N

280
281
282
283
284
285

THE OPERATOR CAN DETERMINE WHERE THE DRIVE IS DURING THE OPERATION
BY TYPING A 'CONTROL O'.
THE PROGRAM WILL TYPE THE FOLLOWING
ME SSAGE:

"PRESENT ADDRESS 1S: CXXX

274
5;2

5;;
279

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

267

IN THE CHECK 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

SEQ 0007

(1) ONE'S
(2) WORST CASE

%g;

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

11.

6.3

TXx'

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

RH11 = RH70 UNIBUS ADDRESS

THE PROGRAM ASSUMES THAT THE RH11 OR RH70 ADDRESSES START AT
176700 AND THAT THE VECTOR ADDRESS IS 254.
THESE ADDRESSES MAY
BE CHANGED WHEN THE PROGRAM 1S STARTED FROM LOCATION 204.
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/RH70
ADDRESS IN RESPONSE TO THE REQUEST FROM THE PROGRAM,

CZRMLAD RMO5/3/2 FORMATTER

MACRO v03.01

L.4

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

SEQ 0008

OTHER UNIBUS ADDRESSES

LocC

TAG

CONTENTS

FUNCTION

1160
1162
1164
1166
1276

$TKS
$TKB
$TPS
$1PB
SLKCSR

177560
177562
177564
177566
172540

TTY KEYBOARD STATUS REGISTER
TTY KEYBOARD BUFFER REGISTER
TTY PRINTER STATUS REGISTER
TTY PRINTER BUFFER REGISTER
KW11=P CONTROL REGISTER

1300
1302
1304
1306

$LKCSB
SLPVEC
$LKS
$LKV

172542
104
177546
100

KW11=P COUNTER REGISTER
KW11=P VECTOR ADDRESS
KW11=L CONTROL REGISTER
;ADDRESS OF KW11-L VECTOR

ot d e

e e

NO VI

i e

NN —

AN NN N N N NN NN

SWITCH REGISTER SETTINGS

SW<15>=1...HALT ON ERROR
SW<13>=1,
.. INHIBIT ERROR TYPEOUTS
SW<10>=1...BELL ON ERROR
SW<09>=1...L00P ON ERROR
SW<02>=1...DON'T DISPLAY SYSTEM STATUS AFTER INITIAL START
SW<01>=1,..L00P ON THE CURRENT TRAC(K
SW<00>=1...LO0OP THE PROGRAM ON THE SELECTED DRIVE
IF

THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR

(I.E.

THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER
NOT PRESENT AND WILL USE A '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

IS CALLED BY TYPING A

'CONTROL G'.

TO THE PROMPT

FROM THE SWITCH ENTRY ROUTINE:

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' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE
'SWR = NNNNNN

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

AND

DURING SWITCH ENTRY.

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE 'SOFTWARE' SWITCH
REGISTER MAY BE USED.
IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE

'UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE
ééO:guAgSéDREGlSTER AND THE PROCEDURES DESCRIBED ABOVE MuST
LL

ERROR MESSAGES

CIRMLAD RMO5/3/2 FORMATTER

MACRO v03.01 11-APR-80 13:01:23 PAG% 3=6
1.

SEQ 0009

'RH INTERRUPT OCCURRED (RMAS=0, = AN INTERRUPT OCCURRED, BUT
NOTHING ON THE MASSBUS IS INDICATING AN ATTENTION.

'"UNEXPECTED ATTENTION OCCURRED' = THE INDICATED DRIVE INTERRUPTED,

BUT NO INTERRUPT WAS EXPECTED FROM THE
'MASSBUS PARITY ERROR

(MCPE=1)'

WAS DETECTED BY THE RH WHEN THE

INDICATED DRIVE.

= A CONTROL BUS PARITY ERROR
INDICATED REGISTER WAS READ.

'MASSBUS PARITY ERROR (PAR=1)' = A CONTROL BUS PARITY ERROR
OCCURRED WHEN THE INDICATED REGISTER WAS WRITTEN.
'ADDRESS PLUG CHANGE BIT SET' = THE PROGRAM FOUND THE
BIT SET FOR THE INDICATED DRIVE.

‘'OPE'’

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

"DRIVE OFFLINE'

= THE INDICATED DRIVE 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

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

10.
11.

12.
13.

'SOFTWARE TIMEOUT' - THE OPERATION FAILED TO COMPLETE WITHIN

SECOND.

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

DURING THE OPERATION.

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

'CONTROLLER/DRIVE ERROR DURING WRITE CHECK' - A NON-DATA ERROR

OCCURRED DURING THE WRITE CHECK.

14.

"DATA ERROR DURING WRITE CHECK' - A DATA RELATED ERROR OCCURRED
DURING A WRITE CHECK OPERATICN.
A DATA ERROR 1S CONSIDERED
!acg§ Ogs ggegflE FOLLOWING ERRORS: 'DCK', 'OPI1*', °'DTE', "HCRC',

15.

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

16.

INDICATED

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

THE

VERIFICATION PASS AFTER FORMATTING.

17.

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

18.

"CYLINDER FIELD IN HEADER IS NOT CORRECT'

= THE CYLINDER FIELD

MACRO v03.01

—

CZRMLAO RMOS5/3/2 FORMATTER

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

SEQ 0010
FROM A HEADER READ DURING THE

19.

20.

VERIFICATION PASS

IS NOT CORRECT.

'TRACK/SECTOR FIELD IN HEADER 1S NOT CORRECT' = THE TRACK AND

ES%;?ETFIELD FROM A HEADER READ DURING THE

VERIFICATION IS NOT

'WRITE CHECK ERROR' = THE RH REPORTED A WRITE CHECK ERROR AND

NO DRIVE ERRORS WERE SET.

MISCELLANEOUS

7.1

FORMAT TIME

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

IT TAKES APPROX. 30 MINUTES TO FORMAT AN ENTIRE RMOS5 DISK PACK
IN "FORMAT' MODE. THE 'CHECK' MODE TAKES APPROX. 90 MINUTES FOR

AN ENTIRE RMO5 DISK PACK.

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

Vol

7 HINUTES FOR AN RM03/2 AND

HALTING THE PROGRAM

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

SURFACE VERIFICATION
THE FORMATTER PROGRAM IS NOT INTENDED TO BE USED TO PERFORM DISK
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 ONE TRACK AT A TIME BETWEEN THE LIMITS
SPECIFIED BY THE OPERATOR.

THE FORMAT OPERATION CONSISTS OF A WRITE 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

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

'DCK',

'OP1',

'DTE',

"HCRC',

"HCE"',

| CZRMLAO RMO5/3/2 FORMATTER

MACRO v03.01

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

SEQ 0011

OR 'FER'), THE SECTOR IN ERROR WILL BE REWRITTEN.
THE PROGRAM WILL
CHECK THE SECTOR TWICE; IF A DATA ERROR IS DETECTED IN THE SECTOR
DURING EITHER OF THE WRITE CHECKS, THE PROGRAM WILL DECLARE
THE SECTOR AS BEING "NONRECOVERABLE'.
THE REMAINDER OF THE TRACK IS CHECKED.

FOLLOWING THIS SEQUENCE,
IF DATA ERRORS ARE ENCOUNTERED

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

IF A NON-DATA RELATED ERROR OCCURS DURING THE WRITE CHECK, THE
?80?52"N:§%LT:§E:' THE COMMAND FOR THE ENTIRE TRACK BEFORE PROCEEDING
IT SHOULD BE NOTED THAT THE FORMATTER PROGRAM FORMATS THE PACK ONLY

AND IS NOT DIRECTLY VERIFYING THE SURFACE OF THE PACK.
ERRORS
THAT ARE ENCOUNTERED MAY BE THE RESULT OF BAD AREAS ON THE PACK

BUT, AS THE PROGRAM IS NOT DESIGNED TO PERFORM AN EXHAUSTIVE CHECK
OF THE DISK PACK SURFACE, THE PROGRAM CANNOT MAKE THIS CONCLUSION.
IN GENERAL, HOWEVER, THE OPERATOR CAN ASSUME THAT SECTORS WHICH
THE PROGRAM CALLS 'UNACCEPTABLE' INDICATE BAD AREAS OF THE PACK;
UNFORTUNATELY, SECTORS WHICH 'PASS' CANNOT BE ASSUMED TO BE GOOD.

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

8.2

CHECK OPERATION

8.3

THE CHECK OPERATION IS IDENTICAL TO THE THE FORMAT OPERATION
DESCRIBED IN SECTION 8.1, EXCEPT THAT IN EACH CHECK OPERATION THE

FORMAT OPERATION IS REPEATED THREE TIMES WITH DATA PATTERN BEING
ROTATED ONE BIT POSITION AT EACH PASS.
POSITIONER VERIFICATION (QUICK VERirY)
AFTER THE PROGRAM COMPLETES THE FORMAT OPERATION, THE
POSITIONER IS RETURNED TO THE STARTING CYLINDER AND THE HEADER

FROM SECTOR O ON THE STARTING TRACK IS READ.
THE CYLINDER ADDRESS
FIELD FROM THE HEADER 1S COMPARED TO iHE REQUESTED CYLINDER; IF

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

OF SECTOR O ON THE BEGINNING TRACK OF EACH CYLINDER FORMATTED.
THIS CHECK IS 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 1S COMPARED TO THE EXPECTED CYLINDER,

THE CYLINDER ADDRESSES

DO NOT COMPARE, AN ERROR MESSAGE 1S REPORTED. NEXT, THE TRACK/SECTOR
FIELD FROM THE HEADER 1S COMPARED TO THE EXPECTED TRACK/SECTOR, IF
THE TRACK/SECTOR_ADDRESSES DO NOT COMPARE, AN ERROR 1S REPORTED.

VERIFICATION OF THE HEADERS STARTS FROM SECTOR C ON THE BEGINNING
CYLINDER AND TRACK, AND CONTINUES UNTIL COMPARING SECTOR 29.(18 BIT

MODE) OR 31. (16 BIT MODE) ON ENDING CYLINDER AND TRACK. THIS CHECK
IS PERFORMED TO CONFIRM THAT A DISK HAS PREVIOUSLY BEEN FORMATTED

VONOWVESWN=OOVONO WV

WN =00V

~NVS

WWWWWIWWWWWNI
N NN NN NN
=
b et
s

' CZRMLAO RMO5/3/2 FORMATTER

MACRO v03.01

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

SEQ 0012

AND ALL THE HEADERS ARE IN GOOD CONPITION.

BAD SPOT FILE

SECTORS O THRU 31.,0N CYLINDER 822., LAST TRACK ARE ALWAYS FORHAITED
IN 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 OCTAL DIGITS,WHILE THE SECOND
WORD CONTAINS THE 5 MOST SIGNIFICANT DIGITS.
THE THIRD WORD IS ALWAYS ZERO.
THE FORTH WORD DEFINES THE PACK

IS A DATA PACK

,IF

-yOWV W
OV

IS 0.

THE FOLLOWING 252 WORDS DEFINE THE BAD SECTOR ADDRESS;TwO
WORDS ARE
USED TO DEFINE A SIGNLE BAD SECTOR, THE FIRST
WORD SPTCIFIES THE CYLINDER ADDRESS, THE SECOND WORD
SPEDIFIES THE TRACK (HIGH BYTE) AND SECTOR (LOW BATE) ADDRESSES.
ALL UNUSED LOCATIONS ARE RECORDED WITH
ONES.
THE SECTORS ON THE LAST TRACK ARE FURTHER DIVIDED
GROUPS AS FOLI.OWS:

(VL IV IV IV IV IV AV, IV ]
VIV
WA
VWA

INTO FOUR

(1)

SECTORS
0

SECTORS FOR fe 81T MODE.

6 AND 8.

CONTAIN THE MANUFACTURES DEFINED BAD

(2)

SECTORS1, 3, 5, 7 AND 9.
SECTORS FOR 18 BIT MODE.

CONTAIN THE HANUFACTURES DEF INED BAD

(3)

SECTORS 10., 12.
FOR 16 BIT MODE.

THRU 30.

CONTAIN THE USER DEFINED BAD SECTORS

(4)

SECTORS '1., 13. THRU 31.
FOR 18 BIT MODE.

CONTAIN THE USER DEFINED LAD SECTORS

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

10.

AND

11,

;gglszog?tg PROVIDES A FEW UTILITY ROUTINES TO HANDLE THE BAD
TO ACCESS THESE ROUTINES START THE PROGRAM AT 204.

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

TO ALLOW THE OPERATOR TO ACCESS THE ROUTINES

BY ENTERING THE SELECTED FUNCTION NUMBER.

N U.S.R. BAD SECTORS...cconessonsosnsenssasansese 0
T

RE 6

BAD SELTORS . oonssnusnvensassnnesnsnsinss 1

NN —

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

SEQ 0013

PR]"TUSQR BAD SECTORS .
. ...l...-.’...........’z
INITIALIZE U.S.R. BAD SECTOR FILE....uvuerrrnnnnennnn 3
PRINT A SECTOR OF THE LAST TRACK...eu.nvvvunnnsesnnn &

OO NO NI

THIS MESSAGE......... cesecsescsscs cesesscsscnss 5

EXIT A
S A E BN B R B
ENTER UTILITY FUNCTION:

<CR>

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

EXAMPLE:

CYLINDER

TRACK

=1 / 200

=1/ &

SECTOR =1/ 23
CYLINDER
=1 / .<CR>

THE SECOND AND THIRD ROUTINES TYPE

THE MANUFACTURE AND USER

DEFINED BAD SECTORS ON THE CONSOLE IN OCTAL NUMBER.

THE FIRST TWO WORDS ON THE LlSTlNG ARE THE SERIAL NUMBERS FOLLOWED
BY TWO WORDS OF ALL 0'S.
THE

FOURTH ROUTINE RESETS ALL USER DEFINED BAD SECTOR ADDRESSES TO -1.

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

TO EXIT THE ROUTINE JUST TYPE A "'CARRIAGE RETURN'' <CR>.
10.1

RH/RM DRIVER

THIS DOCUMENT

10.2
OV
~NO W
wWN

N — —

s s s =2 =

ooocoooror
O O

611

621

IS THE USER'S GUIDE

FOR THE RH/RM DRIVER.

TO INITIALIZE THE DRIVER:

JSR
RETURN

PC,RMINIT

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

ARE ONLINE

FOR TESTING.

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

°'DRVSTA'

DRIVE STATE

ONL INE

NONEXISTENT DRIVE
UNSAFE

THE

THE STATE OF

OFFLINE, DRIVE
IS NOT AN RM0S5/3/2., OR

TABLE

IS.

EACH DRIVE WILL

————

MACRO v03.01

NNNNNNNN~N

VITALT
U
WL

| CZRMLAO RMOS/3/2 FORMATTER

- CIRMLAQ RMO5/3/72 FORMATTER

MACRO v03.01 17-APR-80 13:01:23 Plfig 3311

628
629
23?

THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE TAGGED °‘DRVTYP',
THE TABLE CONTAINS ONE BYTE FOR EACH DRIVE AND IS INDEXED BY THE
DRIVE NUMBER. ENTRIES ARE ENCODED AS FOLLOWS:

632

PRVTYP

634
635
636
637
638
gzg

0
4
5
7
1

633

-__-eeess

22}

643

g:g

THE

10.3

646

gg%

4444444

CONDITION

SSSeoSoeoeEaee

NONEXISTENT PRIVE
RMO3
RM0?2
RMOS
NOT AN RM0S/3/2

"RMINIT' ROUTINE WILL DO A READIN PRESET AND WILL SET FMT16.

AFTER THE DRIVER HAS BEEN INITIALIZED, IT IS CALLED USING THE
FOLLOWING SEQUENCE.
CALL:

647
648
649
650
651

JSR
RO,RMO3
PNTDPB
RETURN1
RETURNZ

ggg

*DPB (DATA PARAMETER BLOCK)

656
657

PNTDPB:

.BYTE
.BYTE

0
0

658

.BYTE

660
661
662

.WORD
LWORD

0
0

659

.BYTE

663

664
665
666

667
668
669
670
67!
672
673
674
675
676
677
6;8
6

680
681
63%
6

684

SEQ 0014

10.4

BYTE

.BYTE
_

LWORD
.WORD

O
O

.WORD

;MAKE THE CALL
;ADDRESS OF DPB+
sRETURN IF QUEUE IS FULL
sRETURN IF REQUEST IS IN
;QUEUE OR THERE IS AN

sERROR CONDITION

;(0) DRIVE NUMBER
5(1) OFFSET VALUE OR FMT16, ECT, AND HCI
:(2) COMMAND

:(3) PSEL AND A17 AND Al6

;(4) WORD COUNT (MUST BE NEG.)
:(6) BUFFER ADDRESS OR
JREGISTER TABLE POINTER

:(10) SECTOR ADDRESS OR
JFIRST REG. INDEX
;(11) TRACK ADDRESS OR
sLAST REG. INDEX

:012) CYLINDER ADDRESS
;(14) ERROR TABLE POINTER
sPOINTS TO THE FIRST OF TWENTY
JLOCATIONS OF WHERE THE DRIVER
;1S TO STORE THE RH/RM
JREGISTERS ON AN ERROR. IF LEFT
sIERO REGISTERS ARE NOT SAVED.
2(16) STATUS/ERROR INDICATOR
:BIT15=1=>ERROR OCCURRED
:B1T07=1=>DONE
;BIT14-BI1T09 AND B1T06-B1103
sINDICATE TYPE OF ERROR

THE DRIVER PROVIDES A SOFTWARE TIMEOUT CAPABILITY.
fi
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 11-APR=-80 13:01:23 PAGEC 3212
JSR

PC,RMTMR

SEQ 0015

sCLOCK TICKS

sCALL THE TIMER ROUTINE

IT SHOULD BE NOTED THAT YOU MUST PROVIDE THE CODE TO DRIVE THE

CLOCK.

AND THE ELAPSED TIME MUST BE IN MILLISECONDS.

THE DRIVER WILL SET THE TIMEOUT TO 1 SECOND FOR ALL POSITIONING
AND DATA TRANSFER OPERATIONS AND WILL SET THE TIMOUT TO 30

SECONDS FOR ERROR RECOVERY OPERATIONS.

10.4.1

EXAMPLE - WRITE 1000. WORDS
1$:

2%:

JSR
FMTDPB

BR
TST
BEQ
BMI

FMTDPB:

RO,RMO3
1%

FMTDPB+16

2%
ERROR1

;CALL THE DRIVER

:DPB_ADDRESS
sWAIT FOR QUEUE IF FULL
;WAIT FOR COMMAND TO COMPLETE

;ERROR OCCURRED

:DRIVE #S

.BYTE

.BYTE
.BYTE
.BYTE
.WORD
.WORD

‘WRITE COMMAND

*WORD COUNT

‘BUFFER ADDRESS
*SECTOR
: TRACK

sCYLINDER

.WORD
.WORD
.WORD

;ERROR TABLE

sSTATUS/ERROR INDICATOR

ALTERNATE DPB SETUP

FMTDPB:

.WORD
.WORD
.WORD
.BYTE
.WORD

WRITE
=1000.
WRTBUF

3.5

sTHIS SETUP ACHIEVED

SEVERYTHING THE
sABOVE TABLE DID, 8UT
sIN A CLEANER FORMAT

400,ERRTBS,0

RH/RM REGISTERS

ol g VT To o

RMBA
RMDA
RMCS2
RMDS
RMER1
RMAS
RMLA

RMCS1

RMW(

ol ¥ ] e ]

MNEMONIC

10.5

.WORD

Lo Jo o

CZRMLAD RMO5/3/2 FORMATTER

CIZRMLAD RMO5/3/2 FORMATTER

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

76
764
745
746

RMDB

RMDC

26
30
32
34

RMMR1
RMDT
RMSN
RMOF

747

748

RMHR

749
750

RMMR?2
RMER?

751
;g%

;gg

SEQ 0016

40
42

RMEC1
RMEC2

10.6

44
46

COMMANDS PERFORMED BY THE DRIVER

;gg

COMMAND

CODE

COMMAND TYPE

758
759
760
761
762

NO OPERATION
UNLOAD
SEEK

101
103
105

N
N
P

DRIVE CLEAR
RELEASE
OFFSET
RETURN TO CENTER
READIN PRESET
PACK ACKNOWLEDGE
SEARCH

M
113
115
117
121
123
131

N
N
P
P
N
N
3

RECALIRATE

763

764
765
766
767
768
769
770
7
772
773
774
775
776
777
778
779
780
781
782

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

READ DATA
READ HEADER & DATA

787
788
789
790
791
92
793
794
795

;3?

798

141
143
145
151
153
161
163
171
173

S
S
S
D
D
D
D

D
D

N = HOUSEKEEPING

P = POSITIONING
D = DATA TRANSFER

;gz
;gg

107

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 IS ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR 10
A ONE.

BIT NO.
essssss

MEANING I1F ON A '"1"
ececececccecescecee-

ERROR O7CURRED
DONE (BIT07=0); BITS 14=10 SPECIFIES TYPE

14(1)

USER MADE

DONE (BITO07=1); BITS 06-03 SPECIFIES TYPE
A REQUEST

FOR A FUNCTION 10 BE

’

CZRMLAD RMOS5/3/2 FORMATTER

MACRO v03.01 11-APR-B0 13:01:23 PAGE3 3216

SEQ 0017

PERFORMED ON AN OFFLINE OR UNSAFE DRIVE

1301 )

TO BE PERFORMED ON A DRIVE THAT HAS AN
UNLOAD REQUEST IN QUEUE.

12(2)

PERSISTENT UNSAFE

11(2)

UNCORRECTABLE PARITY ERROR OCCURRED

10(2) (&)
©0 00 0o 0o Co OO 0o 00 OO 0O

USER MADE A REQUEST FOR A FUNCTION

CONDITION EXIST.

FATAL PARITY ERROR.

PERFORMED,

A MASSBUS CLEAR WAS

ALL QUEUES WERE

EMPTIED,

AND

9(3) (&)

SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE

8(4)

SOFTWARE TIMEOUT OCCURRED ON ANOTHER DRIVE

DONE

6(2)

ERROR OCCURRED DURING AN 1/0 OPERATION

5(2)

ERROR OCCURRED DURING AN OPERATION
OTHER THAN 1/0.

4(2)

CORRECTABLE UNSAFE CONDITION OCCURRED

3(2)

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

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

PN =

b o

s e

IDLE STATE

ALL DRVACT'S SET TO THE

821

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

REQUEST WASN'T PUT IN QUEUE.
REGISTERS WERE NOT SAVED)

(2)

REQUEST QUEUE HA. BEEN EMPTIED.

(RH/RM
THE

ISSUED A "DRIVE CLEAK'' TO THE DRIVE.

Ty —

PP AAAAE
R R RRRRRR

840

DRIVER

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

NO WS

(3)

REQUEST QUEUE HAS BEEN EMPTIED.
THE
DRIVER ISSUED A MASSBUS INIT.
ALL

RH/RM REGISTERS FOR THE DRIVE WERE

SAVED AS PER DPB+14 BEFORE THE

(&)

10.8

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

INIT.

1SSUED

ERROR CALLS MADE BY THE DRIVER.
THERE

ARE

A FEW ERRORS

THAT

CAN OCCUR

THAT

CAN NOT BE

INDICATED

IN A DPB.

CZRMLAO RMO5/3/2 FORMATTER

MACRO v03.01

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

SEQ 0018

WHEN THIS TYPE OF ERROR IS DETECTED BY THE DRIVER IT WILL MAKE
AN ERROR CALL OF

THE FORM "'ERROR N'‘,

WHERE

'‘N'' IS THE

NUMBER AND THE ERROR WILL BE AN EMT INSTRUCTION.
N

TYPE

DATA AVAILABLE

RH70 INTERRUPT
OCCURRED (RHA5=0)

*R4= RMCS1'S ADDRESS

UNEXPECTED ATTENTION
OCCURRED

ERROR

R1= DRIVE NUMBER

R3= ATA BIT

*R4= RMCS1'S ADDRESS

R5= (RMAS)

RMERRS

=RMDS

RMERRS+2=RMER1
RMERRS+4=RMER?2
RMERRS+6=RMMR2

MASSBUS PARITY

RD.ADR= ADDRESS OF REG. READ

“

MASSBUS PARITY

WRT.AD= ADDRESS OF

ERROR

(MCPE=1)

(PAR=1)

('OPE' ERROR)

R1= DRIVE NUMBER

R3= ATA BIT

*R4= RMCS1'S ADDRESS
R5= (RMAS)
RMERRS
=RMDS

RMERRS+2=RMER1

RMERRS+4=RMER2
RMERRS +6-RMMR?
*

THIS

THE

ACTUAL

REG.

WRT.WD= WORD WRITTEN

RD.WRD= WORD READ BACK

DDRESS PLUG CHANGE

IT SET

RD.WRD= WORD READ

UNIBUS ADDRESS

(176700)

WRITTEN

CZRMLAD RMO5/3/2 FORMATTER
1
71
72

MACRO v03.01 11-APR-80 13:01:23 PAGE6 62

SEQ 0019

;PROGRAM REVISION #001

LTITLE
CZRMLAD RMO5/3/2 FORMATTER
;*COPYRIGHT (C) 1980
;*DIGITAL EQUIPMENT _CORP.

fHAVNARD MASS.

01754

'PROGRAH BY MIKE LEAVITT

'TH]S PROGRAM WAS ASSEMBLED USING THE
'PACKAGE (MAINDEC-11-DZQAC-C4), 1980.

—y

R T
T

B
B

104000

000004

HALT ON
INHIBIT
BELL ON
LOOP ON

LOOP ON THE CURRENT

0
BASIC

SCOPE

TRACK

LOOP THE PROGRAM ON THE SELECTED DRIVE
DEFINITIONS

;*INITIAL ADDRESS OF

STACK
ERROR

ERROR
ERROR TYPEOUTS
ERROR
ERROR

DON'T DISPLAY SYSTEM STATUS AFTER IMITIAL START

001100

SYSMAC

USE

15
13
0
9

SWITCH

.SBTTL

MAINDEC

OPERATIONAL SWITCH SETTINGS

TR TRTR
L)

SBTTL

PDP=11

= 1100
EMT
107

THE STACK POINTER ##*

1100 s«

;:BASIC DE-INITION OF
;:BASIC DEFINITION OF

ERROR CALL
SCOPE CALL

s *MISCELLANEOUS DEFINITIONS

000011
000012
000015
000200
177776
177776
177774
177772
177570
177570

s 11

;:;CODE FOR HORIZONTAL TAB

(R
CRLF
ggu -

z 15
= 200
= 177776

::CODE FOR CARRIAGE RETURN
;:CODE FOR CARRIAGE RETURN-LINE FEED
s sPROCESSOR STATUS WORD

000000
000001
000002
000003
000004

= X0

; sGENERAL REGISTER

¥4
R3

s sGENERAL REGISTER
s sGENERAL REGISTER

000005
000006
000007
000006
000007

R&
RS
R6
R7
SP
PC

= X2
=z X3

000000

PRO

=12

;:CODE FOR LINE FEED

STKLMT

= 177774

;sSTACK LIMIT REGISTER

DSWR
DDISP

= 177570
= 177570

; sHARDWARE SWITCH REGISTER
: sHARDWARE DISPLAY REGISTER

PIRQ

s 171772

; sPROGRAM INTERRUPT REQUEST REGISTER

;*GENERAL PURPOSE REGISTER DEFINITIONS

z 31
=
=
=
z
=
z

X
X5
X6
37
%6
X7

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

-PRlOthv LEVEL DEFINITIONS

::PRIORITY LEVEL 0

CIRMLAO RMO5/3/2 FORMATTER

BASIC DEFINITIONS

MACRO v03.01 11-APR-80 13:01:23 PAGEH 421

000040
000100
000140
000200
000240
000300
000340

PR1
PR2
PR3
PR4
PRS
PR6
PR7

100000

;*"'SWITCH REGISTER'' SWITCH DEFINITIONS
SW15
= 100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040

SWi4
SW13
sw12
Swil
sW10
Sw09
swo8
sw0?
SwW06
SW05

=
=
=
=
=
=
=

=
=
=
=
=
=
=
=
=
=

40
100
140
200
240
300
340

SW04
SW03
sw02

000001
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

Sw00
=1
SW9=5w09
SW8=5w08
SW7=Sw07
SW6=SW06
SW5=5W05
SW4=SW04
SW3=5w03
Sw2=Sw02
SW1=5w01
SW0=Sw00

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100

BIT15
BIT14
BIT13
BIT12
BIT11
BITI0
BITO9
BITO8
BITO?
BITO6

000040
000020
000010
000004
000002
000001
001000
000400
000200
000100

swW01

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

40000
20000
10000
4000
2000
1000
400
200
100
40

000020
000010
000004

000002

;sPRIORITY
s:PRIORITY
;sPRIORITY
:sPRIORITY
PRIORITY
PRIORITY
..PRIOR!TY

SEQ 0020

= 20
=10
= 4

;*DATA BIT DEFINITIONS (BITOO TO BIT15)
=
=
=
=
=
=
=
=
=
=

100000
40000
20000
10000
4000
2000
1000
400
200
100
BITOS
= 40
BITO4
= 20
BITO3
=10
BITO2
=4
BITOl
=2
BITOO
=1
BIT9=BIT109
BIT8=BIT08
BIT7=B1107
BIT6=BITO06

1
2
3
&
5
6
7

CZRHLAO RMO5/3/2 FORMATTER

BASIC DEFINITIONS

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

SEQ 0021

000040
000020
000010
000004
000002
000001

BIT5=B1T05
BIT4=BIT04
BIT3=BIT03
B172=B1102
BIT1=BIT01
BI1T0=BIT00

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064

ERRVEC
RESVEC
TBITVEC
TRTVEC
BPTVEC
I0TVEC
PWRVEC
EMTVEC
TRAPVEC
TKVEC
TPVEC

=
=
=
=
=
=
=
=
=
=
=

.SBTTL

RH11/RH70 REGISTERS

;CONTROL AND STATUS REGISTER 1

(RMCS1)

1E
RDY
A16
A7
PSEL
MCPE
TRE

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

’

84
85
86
87
88
89
90

000240

000100
000200
000400
001000
002000
020000
040000

;*BASIC "'CPU'' TRAP VECTOR ADDRESSES

10
14
14
14
20
264
30
34
60
64
PIRQVEC = 240

:$C

=
=
=
=
=
=
=

;:TIME OUT AND OTHER ERRORS
..RESERVED AND ILLEGAL INSTRUCTIONS
"' BIT
::TRACE TRAP
: ;BREAKPOINT TRAP (BPT)
:: INPUT/OUTPUT TRAP (I0T) ##SCOPE*+
; ;POWER FAIL
;;EMULATOR TRAP (EMT) ##ERROR#+
::"'"TRAP'' TRAP
;:TTY KEYBOARD VECTOR
;:TTY PRINTER VECTOR

5 ;PROGRAM INTERRUPT REQUEST VECTOR

100
200
400
1000
2000
20000
40000

= 100000

;SPECIAL CONDITION (BIT #15)

;WORD COUNT REGISTER (RMWC)

96
gg

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

138

;CONTROL AND STATUS REGISTER 2 (RMCS2)

: (EACH BIT 1S CALLED BY BIT NUMBER)

101

000001

usi

;UNIT SELECT

104
105
106
107
108
109
110
m
112
113
114
115

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

BAl
PAT
CLR
IR
OR
MPE
MXF
PGE
NEM
NED
UPE
WCE

=10
= 20
= 40
= 100
= 200
= 400
= 1000
= 2000
= 4000
= 10000
= 20000
= 40000

:BUS ADDRESS INCREMENT INHIBIT (BIT #3)
;MASSBUS PARITY TEST (BIT #4)
;CLEAR (BIT #5)
: INPUT READY (BIT #6)
;:OUTPUT READY (BIT #7)
;MASS BUS PARITY ERROR (BIT #8)
;MISSED TRANSFER ERROR (BI) #9)
;PROGRAM ERROR (BIT #10)
:NON EXISTENT MEMORY (BlT M)
:NCN EXISTENT DRIVE (BIT #12)
:UNIBUS PARITY ERROR (BIT #13)
;WRITE CHECK ERROR (BIT #14)

102
103

000002
000004

us2
US4

=2
= 4

sUNIT SELECT
;UNIT SELECT

(BIT #0)

(BIT #1)
(BIT #2)

- CZRMLAO_RMO5/3/2 FORMATTER
100000

) el e e

NNNOOOOOOOOOO
NV
SS S5 35 35 05 55 05 05 5 5 W
N N NN N N N N PO PO N PO AU NI NI NI A = b s
N=OOVRNOWVMB WO VONOWVMSNWN—=OVORNO VS NN OV
NV
WA = OOV NO VS NN = OOV~

RH11/RH70 REGISTERS

MACRO v03.01

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

DLT

SEQ 0022

;DATA LATE (BIT #15)

= 100000

i e

;CONTROL AND STATUS 1 REGISTER.

(#00)

GO0

;60 BIT (BIT #0)

000001
000002
000004
000010
000020
000040
004000

000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

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

F1
F2

=2
=4

sFUNCTION CODE BIT #1
sFUNCTION CODE BIT #2

Fé
F5
DVA

= 20
= 40
= 4000

;FUNCTION CODE BIT #4
;FUNCTION CODE BIT #5
;DEVICE AVAILABLE (BIT #11)

=10

;FUNCTION CODE BIT #3

;:DRIVE STATUS REGISTER (RMDS1)

(#01)

vV
DRY
DPR

;VOLUME VALID (BIT #6)
;:DRIVE READY (BIT #7)
sDRIVE PRESENT (BIT #8)
;PROGRAMABLE (BIT #9)

PGM

=
=
=
=

WRL

= 4000

LST

MOL
P1P
ERR

ATA

100
200
400

1000

= 2000

;LAST SECTOR TRANSFERRED (BIT #10)
;WRITE LOCK

= 10000
= 20000
= 40000

(BIT #11)

:MEDIUM ON-LINE (BIT #12)
;POSITIONING OPERATION IN PROGRESS
;CCMPOSITE ERROR (BIT #14)

= 100000

;ATTENTION ACTIVE

(RMER1)

(BIT #15)

(#02)

ILF
ILR

=1
=2

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

PAR
FER
WCF

=10
= 20
= 40

;PARITY ERROR (BIT #3)
:FORMAT ERROR (BIT #4)
;WRITE CLOCK FAIL (BIT #5)

RMR

ECH
HCE

HCRC
AOE

1AE
WLE
DTE
0Pl
UNS
DCK

;REGISTER MODIFICATION REFUSED

(BIT

= 100
= 200

sECC HARD ERROR (BIT #6)
sHEADER COMPARE ERROR (BIT #7)

=
=
=
=
=
=

s INVALID ADDRESS ERROR (BIT #10)
sWRITE LOCK ERROR (BIT #11)
;DRIVE TIMING ERROR (BIT #12)
;OPERATION INCOMPLETE (BIT #13)
;DRIVE UNSAFE (BIT #14)
:DATA CHECK ERROR (BIT 15)

= 400
= 1000

2000
4000
10000
20000
40000
100000

(BIT #13)

#2)

;HEADER CRC ERROR (BIT #8)
;ADDRESS OVERFLOW ERROR (BIT #9)

sMAINTAINABILITY REGISTER (RMMR1)(#03)

)
) — —h —h D
—

RM REGISTERS

;ERROR REGISTER #01

) e

D el el el il el

) el el el el

) il

)

D e

D el e e

e e

)

) e

D e

.SBTTL

;DATA BUFFER REGISTER (RMDB)
s (EACH BIT IS CALLED BY BIT NUMBER)

000001
000002
000004
000010
000020
000040

DMD

;DIAGINOSTIC MODE

MWR

sMAINTAINABILITY

MCLK
MINX
MSTCK
MRD

=2
=4
= 10
= 20

(BIT #0)

SMAINTAINABILITY CLOCK (BIT #1)
sMAINTAINABILITY INDEX (BIT #2)
sMAINTAINABILITY SECTOR CLOCK (BIT #3)
sMAINTAINABILITY READ (BIT #4)
WRITE

(BIT

#5)

i
|

{

CZRMLAO RM05/3/2 FORMATTER

MACRO v03.01

' RM REGISTERS

};2

177

000001

ATO

:DEVICE 0 (BIT #0)

|
¢
|

179
180
181

000004
000010
000020

AT2
AT3
AT

=4
=10
= 20

:DEVICE 2 (BIT #2)
:DEVICE 3 (BIT #3)
‘DEVICE & (BIT #4)

182
183
}gg

= 200

SEQ 0023

};2

178

DTSY

000200

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

;MAINTAINABILITY SYNC DETECTED (BIT #7)

;ATTENTION SUMMARY PSEUDO-REGISTER

000002

AT1

000040
000100
000200

ATS
ATH
AT7

= 40
= 100
= 200

(RMAS)

:DEVICE 1

(#04)

(BIT #1)

:DEVICE 5 (BIT #5)
:DEVICE 6 (BIT #6)
:DEVICE 7 (BIT #7)

186

;DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05)

}gg

:DRIVE TYPE REGISTER (RMDT) (#06)

191

000001

200
201
202
%82

004000
020000
040000
100000

}gg

192
193
194
195
196
197
198
199

;(EACH BIT IS CALLED BY BIT NUMBER)

DTO0

000002
000004
000010
000020
000040
000100
000200
000400

D701
D102
DTO3
D104
DTOS
DT06
D107
DTO8

DRQ
MOH
TAP
NBA

%82

*
|

=2
=&
= 10
= 20
= 40
= 100
= 200
= 400

=
=
=
=

4000
20000
40000
100000

:DRIVE TYPE NUMBER BIT 1

:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE

TYPE
TYPE
TYPE
TYPE
TYPE
TYPE
TYPE
TYPE

NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER

BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT

2
3
&
§
6
7
8
9

O
1
2
3
&

(BIT
(BIT
(BIT
(BIT
(BIT

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

000100
000200
000400
001000
002000

213

004000

010000
020000
040000
100000

SCO1
sC02
SC06
SC10
SC20

=
=
=
=
=

TRK1

= 4000

TRK2
TRK&
TRK10
TRKC

%53

=
=
=
=

100
200
400
1000
2000
10000
20000
40000
100000

;SECTOR
:SECTOR
:SECTOR
:SECTOR
:SECTOR

COUNT
COUNT
COUNT
COUNT
COUNT

FIELD
FIELD
FIELD
FIELD
FIELD

:TRACK
:TRACK
:TRACK
:TRACK

FIELD
FIELD
FIELD
FIELD

2
3
&
S

(BIT
(BIT
(BIT
(BIT

#12)
#13)
#14)
#15)

:OFFSET REGISTER (RMOF) (#11)

221
222

000001
002000

OFDIR
HC]

=1
= 2000

;OFFSET DIRECTION
:HEADER COMPARE INHIBIT

ggg

010000

FMT16

= 10000

:FORMAT BIT (BIT #12

223

226

227

229

#6)
#7)
#8)
#9)
#10)

;TRACK FIELD 1 (BIT #11)

|
|

‘

;LOOK=AHEAD REGISTER (RMLA) (#07)

207
208
209
210
5};
214
215
216
g};

= 1

004000

EC]

= 4000

:ERROR CORRECTION CODE INHWIBIT (BIT #11)

:DESIRED CYLINDER ADDRESS (RMDC) (#12)
:(EACH BIT IS CALLED BY BIT NUMBER)

sSERIAL NUMBER REGISTER (RMSN)

(BIT #10)

(#14)

|
i

;RM MAINTENANCE

040000

SK1

= 40000

(RMMR2)

(#15)

;SEEK INCOMPLETE

(BIT #14)

;ERROR REGISTER #02 (RMERZ2)
100000

240

BSE

= 100000

;:BAD SECTOR ERROR (BIT #15)

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

;SOME 1ST HEADER WORD DEFINITIONS
100000

040000
010000

= 100000

sMANUFACTURES BAD SECTOR FLAG

FMT

= 10000

;FORMAT

.SBTTL

RM DRIVER COMMANDS

RNOP

= 101

sNO OPERATION

RECAL

= 107

sRECALIBRATE

SEEK

000000

000174
000176

000174
000000
000000

= 105

16 BIT MODE

(BIT #12)

: SEEK

=
=
=
=
=
=

GETREG

= 141

WCKD
WCKHD
WRTDAT
WRTHD
RDDAT
RDHD

= 151
= 153
= 161
= 163
= 171
=173

ABASE
AVECT1

= 176700
= 254

.SBTTL

TRAP CATCHER

SETFMT
SELDRV

111
113
115
117
121
123

;DRIVE CLEAR
:RELEASE
;OFFSET
sRETURN TO CENTER LINE
sREAD IN PRESET
sPACK ACKNOWLEDGE

= 131

: SEARCH

:GET REGISTERS

= 143
= 145

;SET FORMAT (8 ECI OR HCI)
sSELECT DRIVE

;WRITE CHECK DATA
;WRITE CHECK HEADER & DATA
:WRITE DATA
;WRITE HEADER & DATA
+READ DATA
;READ HEADER & DATA

;*ALL UNUSED LOCATIONS FROM & - 776 CONTAIN A ‘.42 HALT"
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:'LOCATION19‘CONTA1NS 0 TO CATCH IMPROPERLY LOADED VECTORS

DISPREG:.:UORD 0
SWREG:

.WORD

(BIT #15)

;USERS BAD SECTOR FLAG (BIT #14)

DRVCLR
RELSE
OFFSET
RTC
READIN
ACK

176700
000254

= 40000

: ;SOFTWARE DISPLAY REGISTER
::SOFTWARE SWITCH REGISTER

; (EACH IS CALLED BY BIT NUMBER)

SEQ 0024

RM REGISTERS

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

MACRO v03.01

CZRMLAO RMO5/3/2 FORMATTER

et
e

[

LS ST ST ST NT STST,87.8) ~N
N N N N N NN NN w
V00~
N 5 (NN
—o

C IRMLAO RMO5/3/2 FORMATTER
1 T RAF CATCHER

MACRO v03.01

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

.SBTTL

SEQ 0025

STARTING ADDRESS(ES)

000200

000137

007014

JMP

ANSTART

::JUMP TO STARTING ADDRESS OF

000204

000137

006776

JMP

S¥BECIN

: CHANGE THE RHM ADDRESS

.SBTTL
A

000210

AAEA

ACT11 HOOKS
AL

284

AR Al

"WORD

000210
.=1100

::1)SET LOC.46 TO ADDRESS OF

T=$SVPC
.SBTTL

)

:SAVE PC

sgquo

001100

286

HOOKS REOU%RED BY ACTI
‘6c .

000046

000052

PROGRAM

20000

SENDAD IN .$SEOP

;3 2)SET LOC. 52 10 20000
' RESTORE
P

APT PARAMETER BLOCK

t.t"'..t'."'"""""""'i'..'.'tl!tl...""t"."t."'.'t.

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
R

000024

000044

001100
000024
000200
000044
001100
001100

T RNz

$X=,

. =24
200
.=hé

;s SAVE CURRENT LOCATION

::SET POWER FAIL TO POINT TO START OF PROGRAM
s:FOR APT START UP
:sPOINT

TO APT

INDIRECT ADDRESS PNTR.

SAPTHDR :;POINT TO APT HEADER BLOCK
=.8X
;;RESET LOCATION COUNTER

t.tt'ttttll't"'t"tt"ttt'ttttttlttttttttttttttttt'tt'ltttttt'

SEYUP APT PARAMETER BLOCK AS DEFINED IN THE APT=-PDP11
s INTERFACE SPEC.

287
288

000000
001210
000310
000310
000310
000032
001114

$APTHD:
$SHIBTS:
$MBADR:
$TSTM:
$PASTM:

SUNITM:

TAB. XY=,

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

O
SMAIL
200.
200.
200.

DIAGNOSTIC

::TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
;;ADDRESS OF APT MAILBOX (BITS 0-15)
::RUN TIM OF LONGEST TEST
s:RUN TIME IN SECS. OF 1ST PASS ON 1 UNII (QUICK VERIFY)
:sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT

SETEND-SMAIL/2

;;LENGTH MAILBOX-ETABLE (WORDS)

;CMTAGSTARTING ADDRESS

WACRO V03.01 11-APR-80 13:01:23 PAGEN 5

—-

C IRMLAO R285/3/2 FORMATTER
| C OMMON TA
!

.SBTTL
R

SEQ 0026

COMMON TAGS
R R R

NN N N R T R R P N R R P

R P

RN AR AR

RN RN

RIS

000000
000

$BDADR:

R
O

$BDDAT: .

WSS B

.
.

$GDDAT:

SAUTON:
S$INVTAG:

;:START OF

000

377

"SBTTL

:;CONTAINS 'BAD' DATA
: sRESERVED==NOT TO BE USED
:sAUTOMATIC MODE INDICATOR
:: INTERRUPT MODE INDICATOR
s sADDRESS OF SWITCH REGISTER
s sADDRESS OF DISPLAY REGISTER
ssTTY KBD STATUS
.
;:TTY KBD BUFFER
;sTTY PRINTER STATUS REG. ADDRESS

ssTTY PRINTER BUFFER REG. ADDRESS

;s CONTAINS NULL CHARACTER FOR FILLS
:sCONTAINS # OF FILLER CHARACTERS REQUIRED

;s INSERT FILL CHARS. AFTER A®''LINE FEED''
s:"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

APT MAILBOX-ETABLE

: sUSER DEF INED
: sESCAPE ON ERROR ADDRESS
::CODE FOR BELL
s sQUESTION MARK
: s CARRIAGE RETURN
ssLINE FEED

AR R AR

R AR

RPN

b
—s
e
b
e
e
e
e
—

rornoroNorONNONN
PONINOND
= b s s
© ~TNNOOSMNNOO

OCOO0O0O0OOOO00
OSOOOOOOO

::'..'I".l.'tl"'tt"".""""'..'tlt'"l".t'l.'\"t'l.t""t

.EVEN
$MAIL:
SMSGTY:
$FATAL:
$TESTN:
$PASS:

$DEV(CT:
SUNIT:
$MSGAD:
$MSGLG:

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

: ;CONTAINS 'GOOD"' DATA

SWR:

$TKS:
$TKB:
$TPS:
$TPB:
$NULL:
.BYTE
SFILLS: .BYTE
$FILLC: .BYTE
STPFLG: .BYTE
$TMPO:
. WORD
$ESCAPE:0
$BELL:
.ASCI1Z
$QUES:
.ASCII
$CRLF:
.ASCI11
$LF:
.ASCIZ

COMMON TAGS

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

DISPLAY:

NNNNNOOOOr

«WORD
.BYTE
.BYTE
.WORD

STSTNM:
$SERFLG:
$ICNT:
SLPADR:
$LPERR:
SERTTL:
SITEMB:
SERMAX:
$SERRPC:
$GDADR:

377

001206

XY
.=TAB.

$CMTAG:

[elelelelalelelelelebdelelelelelelele

S WO ST NVOOST V=00 bNOgJ‘N-‘OOFNONObb

- —
Y —
S
S

001114

WWNWNNINNI
NN N = = s

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
; *USED IN THE PROGRAN.,

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD

AMSGLG

: sAPT MAILBOX
s sMESSAGE TYPE CODE
::FATAL ERROR NUMBER
s s TEST NUMBER
¢+ :PASS COUNT
: :DEVICE COUNT
+:1/0 UNIT NUMBER
: sMESSAGE ADDRESS
s sMESSAGE LENGTH

‘*

CZRMLAO RMO5/3/2 FORMATTER

APT MAILBOX-f TABLE

MACRO v03.01 11-APR-80 13:01:23 PAGg 521
SETABLE

.BYTE
.BYTE

6: .WORD
.WORD

p: . WORD

AENV
AENVM
ASWREG
AUSWR
ACPUOP

ow;m

—

000
000

:
:

JBYTE
.BYTE

AMAMS1
AMTYP1

.WORD

AMADR1

001240
007241

3= 3
- >
< =

cRsnc . PR
s sLnL v,

]

001242

000000

iHAHSZ: .BYTE

001244
201245
001246
001250

SMTYP?2:
$SMADR?:
3:
SMAMS
SMTYP3:
$SMADR3:
SMAMSSL:
SMTYP4:
$MADRS:
SVECT1:
SVECT2:
$BASE:

001251

001252
001254

001255

001256

001260

001274

inAon1:

000000
000000

SDEVM:

$CDW1:
$(DHZ:
SETEND:
MEXIT

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

.WORD
.WORD
.WORD
.WORD

AMAMS?2
AMTYP2
AMADRZ

AMAMS3
AMTYP3
AMADR3

AMAMSS
AMTYPS
AMADRS
AVECT1

AVECT2

ABASE
ADEVM
ACDWI

ACDW2

:APT ENVIRONMENT TABLE
: sENVIRONMENT BYTE
: ;ENVIRONMENT MODE BITS
:sAPT SWITCH REGISTER

s JUSER _SWITCHES
:: CPU_TYPE ,OPTIONS

BITS 15-11=CPu_TYPE

11706=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,0=10
BIT l T 1 10=REAL TIME CLOCK
9=FLOATING POINT PROCESSOR
lT
l L 8=MEMORY MANAGEMENT
;;HIGH ADDRESS,M.S. BYTE

s sMEM.

TYPE,BLK#¥!

" EM.TYPE BYTE

==
(MIGH BYTE)
900 NSEC CORE=001
300 NSEC BIPOLAR=002
S00 NSEC M0S=003
ssHIGH ADDRESS,BLK#1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘'‘TYPE'' ABOVE

ssHIGH ADDRESS.M.S. BYTE

::MEM.TYPE ,BLKN?

ssMEM.LAST ADDRESS,BLKN?2

ssHIGH ADDRESS,M.S.BYTE

ssMEM.TYPE, BLK'S

ssMEM_LAST ADDRESS.BLK#3

s:HIGH ADDRESS ,M.S.BYTE

s:MEM.TYPE ,BLK#G
ssMEM.LAST ADDRESS.BLKW#G

;s INTERRUPT VECTOR#1,BUS PRIORITYA#X!

s INTERRUPT VECTOR#2BUS PRIORITY®N?
;sBASE ADDRESS OF EQUIPMENT UNDER TEST
s:DEVICE MAP
;s CONTROLLER DESCRIPTION WORD#1
s sCONTROLLER DESCRIPTION WORD#?2

SEQ 0027

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

DRIVE

=$UNIT

SOFSW:

.WORD
.WORD
.WORD
.WORD

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

.WORD

000000

.WORD

000000
000000
000000
000000

.WORD
.WORD

.WORD

OO00O0

000000
000001
000000

.WORD
.WORD
.WORD

O—-0O

000000
000000
000000
000000

.WORD
.WORD
.WORD
.WORD

OO0O0O0

.WORD

000000

.WORD

: .WORD

sRH/RM UNIBUS ADDRESS
:RH_INTERRUPT VECTOR
:ADDRESS OF kwl1=P (SR
;ADDRESS OF KW11=P COUNTER BUFFER
:ADDRESS OF KW11-P VECTOR
;ADDRESS OF KW11=L CONTROL REGISTER
:ADDRESS OF KkW11-L VECTOR

;CONTAINS DRIVE NUMBER SELECTED
:SAME PARAMETER USED IN APT
;CONTENTS ARE FOR SOF TWARE DECISIONS
:FORMAT = =1,

CHECK = 0 AND VERIFY ONLY = 1
READ SINGLE SECTOR =

;READ MULTI-SECTOR = 0,

;CONTAINS TH

;TEST. RMO2/

LAST TRACK OF
= 4., RMO5 =

;ENDING CYLINDER
;STARTING CYLINDER
;ENDING TRACK
sSTARTING TRACK
sCONTAINS PATTERN SELECTED

THE UNIT UNDER

18.

:1ST WORD OF PATTERN
:2ND WORD OF PATTERN

sMAINTAINS # OF

WRITE RETRIES MADE

;CONTAINS LAST BAD SECTOR ON FORMAT
;CONTAINS WC FOR REMAINING SECTORS ON ERROR

:30 OR 32 SECTOR TRACK SIZE (IN WORDS)
:2'S COMPLEMENT OF ‘W('

;POSITIONING ERROR DURING FORMAT

30 OR 32 SECTOR MODE INDICATOR
30_SECTOR MODE

I'S = 32 SECTOR MODE

IMAXIMUM SECTOR ADDRESS

1727777

.BLKW
.WORD

INDICATOR

(FOR EITHER

30 OR 32 SECTOR

:FORMAT)
sADDRESS OF CURRENT CYLINDER
:ADDRESS OF CURRENT TRACK
;DRIVE NUMBER OF 'DRIVER' ERROR MESSAGES
sATTENTION REGISTER

IMAGE

;ERROR MESSAGES
sADDRESS OF "“C' RETURN

FOR

°'DRIVER'

: "CHANGE RM/RM ADDRESS' FLAG
=

:WRAP AROUND FLAG,FORMAT FROM HIGH T0 LOW

;CYLINDER NUMBER

:DEVICE MAP FOR APT

;PACK >0, BAD SPOT F ILE A lL ABLE BROH PACK
;EDIT THE BAD SPOT FILE ,IF
;HEAD BIT

INDICATOR

EDIT

;BIT15!BIT14 GOOD SECTOR
;BIT15 ALONE, USER DEFINED BAD SECTOR
;BIT14 ALONE, MFG DEFINED BAD SECTOR

;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH
: THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE

:'XXDP' DEVICE CODE THE RMO5/3/2.

001414
002414

2%6.
-1

;MEG 16 BIT BAD SPOT

TABLE

.WORD
.WORD

SAVSEC:
SAVHC

176700
2

.WORD

‘LLVEC:

PATSEL:
PATA:
PATB:
RETRY:

o
o
o
e
e
e

ENDCYL:
BEGCYL:
ENDTRK:
BEGTRK:

SRMADR: .WORD
SRMVEC: .WORD
SLKCSR: .WORD
$LKCSB: .WORD

LSTRK:

s e

o
o

001412

USER DEFINED TAGS

MODE:
SNGSEC:

000000

SEQ 0028

xrvuoo SsKrooom

s
>
s
b
s
—t

000102

W
NN
w VWSS
WY
&~ NOOSNVO

i o ®

8388388388888 2888

000106

NN
VNN
-

8888838

LSBTTL

e
&

MACRO v03.01

(=l=lelelelelelelelelelelele BNeleleY
)

CIRMLAO RMO5/3/2 FORMATTER
USER DEFINED TAGS

CIRMLAD RMO5/3/2 FORMATTER

USER DEFINED TAGS

MACRO v03.01

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

SEQ 0029

177777

003422

17777
77
17777

003424
004426
004426

7
1 777
7
1e

004430
005430
005432

177777
177777

005434
005534
005536

177777
000000

002616

.WORD

BAD18:

USTAB:

USSAV:

SECCU:
NEXT:

.BLKkw
.WORD
.WORD

.BLKW

-1

256.

;MEG 18 BIT BAD SPOT TABLE

-1
-1

.WORD
.WORD

-1
-1

256.

;USER BAD SPOT TABLE

.BLKW

256.

;USER BAD SPOT TABLE SAVE FROM PACK

32.

;32 WORDS MAX TO STORE BAD SECTORS

.WORD
.WORD

.BLKW

.WORD
LWORD

-1
-1

-1
0

sFLAG, IF NEXT==1,ALL GOOD SPOT ON
: THE

CURRENT

TRACK ARE FORMATTED

005540
005541
005542
005543

005556

000
000
000
000

FMTDPB:

.BYTE

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

000000

OVWOOOOOOOOCO

;DATA/PARAMETER BLOCK - USED FOR ALL DRIVE OPERATION

M.REG

sDRIVE NUMBER
sOFFSET VALUE OR FMT16, ECI, AND HC(C!
; COMMAND

sPSEL AND A17 AND Al6
sWORD COUNT

s TRACK ADDRESS

;CYLINDER ADDRESS
JERROR TABLE POINTER

sSTATUS=ERROR INDICATOR
I 15 = 1: ERROR OCCURRED
I7 07 = 1: DONE
I7 14-10 AND BIT 06-03
ND ICATE TYPE OF ERROR

005620
005622

000000
000000
00

00
000000
000000

RM_REG:

.WORD

.WORD
.WORD
.WORD

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

=lelelelalelaldlelelelelelelelelele]

sRH/RM REGISTERS STORED HERE

005560
005562

(NEG)

:BUFFER ADDRESS
;SECTOR ADDRESS

AFTER AN OPERATION

sRMCST

:RMWC
;RMBA
JRMDA

sRMCS2

sRMDS

sRMER1
;RMAS
JRMLA

sRMDB

sRMMR
sRMDT
s RMSN
s RMOF
JRMCA
sRMDC
sRMER?
:RMMR?

MACRO v03.01 11-APR-80 13:01:23 PAGE 622
.BYTE
.BYTE
.BYTE
.WORD
.WORD

005644

000000

.BYTE
.WORD
.WORD

005646

000000

.WORD

;SPECIAL DPB TO WRITE HEADER OF BAD SPOT

sRMEC2

FMTX:

RMEC]

.WORD

000000
000000

SEQ 0030

OO0O0COWI OOO0OD
[+
-1
8]

005624
005626

CIRMLAD RMO5/3/2 FORMATTER

USER DEFINED TAGS

sONLY TWO WORDS FOR HEADER
:BUFFER ADDRESS
sSECTOR
: TRACK

sCYLINDER ADDRESS
JERROR TABLE

sDONT''SAVE ANYTHING
;STATUS WORD

sPARAMETER LIMIT POINTER TABLE

005650
005656
005664
005672

005776
006011
006024
006035

001467
000005
001467
000005

001330
001334
001326
001332

TABLE:

005702
005710
005716

006046
006057
006070

001467
000005
000040

001364
001366
001346

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

005726
005734
005742

006046
006057
006070

001467
000005
000036

001364
001366
001346

TABLE3:

005752
005760
005766

006046
006057
006101

001467
000005
047301

001364
001366
001346

TABLE4: PARS,823.,DS.CYL
PARG,S,DS. TRK

PAR1,823.,BEGCYL
PAR2,S. ,BEGTRK

PAR3.8235. ENDCYL

PAR&.S. ENDTRK,0

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

PARS.20161.,SAVSEC.0

i
i
i

OO0O0O0O
D

==
OO

i
i

e
e
s
ek
s
s

WOMNW
—_NN—-

022414

PAR1:
PAR2:
PAR3:
PARG:

.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ

@START CYL @
@START TRK @
@QEND CYL @
QEND TRK @

NOO—=
BrN—=

OO
VWO

006046
006057

005776
006011
006024
006035

OoONNNO
W
W

;ASCI] MESSAGES FOR ADDRESS PARAMETERS

PARS:

.ASCI2

/CYLINDER/

PAR7:
PAR8:
.EVEN

.ASCIZ
.ASCIZ

/SECTOR
/
/BYTE POSITION /

022502

PARG:

TABCAL:

.ASCIZ

.WORD

/TRACK

FUNCT2,FUNCT3,FUNCT4,FUNCT6,FUNCT?

;SECTOR BUFFER ADDRESS TABLE
ADRTBL:

.WORD

.WORD
.WORD
.WORD
.WORD

BUFP

BUFP+<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.
4.

sREMAINING WORD COUNT

SECTOR

oo
e
"
"
e
8
8
8
8
8
8

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

OF
OF
OF
OF
OF
OF
OF

sADDRESS
+ADDRESS
sADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
sADDRESS

+ADDRESS OF

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

OF
OF
OF
OF
OF
OF
OF

]
)
]
— )

sADDRESS
sADDRESS
+ADDRESS
;ADDRESS
:ADDRESS
sADDRESS
sADDRESS

§
§
§ CTOR

sADDRESS OF
;ADDRESS OF
:ADDRESS OF

)

;ADDRESS OF

sADDRESS OF §
sADDRESS OF §
+ADDRESS OF S

WNANNI NN PO NORONVNON = = b b d e b et et = O OO IO N
= OVONOWVMH
NN —=O VRNV
WA —=O
¢ ¢ ¢

—
—
—
] —

;ADDRESS OF §
sADDRESS OF 5

o o OO00000000
o o DODDVDDVVDOVD

sADDRESS OF

§
§

alalalalelalel
el e el e

;ADDRESS OF
+ADDRESS OF

sREMAINING WORD
sREMAINING WORD
sREMAINING WORD
;REMAINING WORD
sREMAINING WORD
sREMAINING WORD

sREMAINING WORD

sREMAINING WORD
;REMAINING WORD
;REMAINING WORD

COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNT

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
SECTOR
SECTOR
SECTOR

HEEERYE
S
E
INEEE

+REMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER
;REMAINING WORD COUNT AFTER
;REMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER
+REMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER
sREMAINING WORD COUNT AFTER

PUNUNUNONINUN)
= b e o o ot cod et et =t D QD N O N B NP — O
OV
NN = OV
NO NS NN =
& & s s s s s »

e
e
*
e
s
s
*

VVVVVVVVVVVVVVVYVYV

VVVVVVVVYV

PORVINOUNUINOININD
b b e e e e cd it et = D) OB
O N S NN —
O VNS WDIN = OV
~NO WS WIN = O
¢ o

EEEEEEBEEEENE
NN NN
B

8.+4<

"
.

258.4<
258.4<

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

258.

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

el
R R
N

006316

WCTBL:

AAAANAANANAAANAANAANAANAANAANAAANAANAANAANAAANANAN

006232
006234
006236
006240
006242
006244
006246
006250
006252

SEQ 0031

TABLE

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

.WORD
.WORD

e
e
e
e
el el
el
el
il el e
G
—

NOO VWS S NNININ = e O
OoOfro0orororororosr

—
et =2 OO OOOOOO
OCOO0O0OOONNNNNNNN
VIS WN = ONO WV W
—=O

067100

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

BUFP+<516.+5.>
BUFP+<516.%6.>
BUFP+<516.+7.>
BUFP+<516.+8.>
BUFP+<516.+9.>
BUFP+<516.+10.>
BUFP+<516.*11.>
BUFP+<516.'1§.>
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.>
BUFP+<516.+28.>
BUFP+<516.'§9.>
BUFP+<516.+50.>
BUFP+<516.+31.>

.WORD
.WORD
.WORD
.WORD

006230

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

USER DEFINED TAGS

MACRO v03.01

00 00 00 00 00 00 00 00 00 00 00 00 00 00 O 00 00 00 00 00 0O 00 00 0O 00 00

CIRMLAO RMO5/3/2 FORMATTER

s
o
s

¢
NV
NN 2O

SEQ 0032

;REMAINING WORD COUNT AFTER SECTOR 27
;REMAINING WORD COUNT AFTER SECTOR 28

;REMAINING WORD COUNT AFTER SECTOR 29.

;REMAINING WORD COUNT AFTER SECTOR 30.

+REMAINING WORD COUNT AFTER SECTOR 31

@
*
o
s
“«

VVVVVVVVYV

K
.
=
.
.
.
*
VVVVVVVVYV
VVVVVVVYV

NOWVMS NN =0V

NO WV

NN —=O

VVVVVVVVVVVVVVVVVVVVVYVY

.
2 2 B BN BN B R IR AN

POPONUPOPUNUNIND
= et b ed e e o e
— 000

.
o
.
E
.
.
.
.

p—y

B
.

%
.

A
o

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

630.+<630.
630.+<630. .7.
630.+<630.
630.+<630.
630.+<630.
630.+4<630.
630.+<630.
630.+4<630.
630.+<630.
630.+<630.
630.+<630.
630.+<630.
630.+4<630.
630.+<630.
630.+4<630.
630.+<630.
630.+<630.
630.+<630.
630.+<630.
630.+<630.
630.+<630.
630.+<630.
630.+<630.
630.+<630.
630.+<630.
630.+<630.

027500

BYTE18:

0'50

LSLNLNTNTNTNTNTNTNTNT
N NI NTNT NN

006470
006472
006474

001240

*3,

006432
006434
006436
006440
006442

042350
063536
044724
046112
047300

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

BYTE16:

VYVvVvVvVvyvV

.WORD
.WORD
.WORD
.WORD
.WORD

e e e e

oNSOC

WS VO

ON~NNYN

OO SNO

MACRO v03.01 11-APR-80 13:01:23 PAGg 626

CIRMLAO RMO5/3/2 FORMATTER

USER DEFINED TAGS

CZRMLAD RM05/3/2 FORMATTER

USER DEFINED TAGS

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

030740
03%200
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

.WORD
WORD
LWORD
LWORD
WORD
LWORD
LWORD
LWORD
LWORD
WORD
WORD
LWORD

67%.4<672.+18.>
672.4<672.*19.>
672.4<672.+20.>
672.4<672.%21.>
672.4<672.+22.>
672.4<672.%23.>
672.4<672.%24.>
672.4<$72.%25.>
672.4<672.%26.>
672.4<672.%27.>
672.4<672.+28.>
672.4<672.+29.>

SEQ 0033

CIRMLAO RMO5/3/2 FORMATTER

ERROR POINTER TABLE

MACRO v03.01

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

.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.
TeNOTET:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
SeNOTE2:
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:
;.
v
i
i

M
DH
DT
DF

::POINTS
P:POINTS
::POINTS
*:POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA( HEADER
DATA
DATA|FORMAT

1 006526

$ERRTB:

:ERROR 1

L 006526

S 006530
6 006532
g 006534

062226

043472
045030
045402

;RH/RM INTERRUPT OCCURRED

EM2
DH2
DT2

“;UNEXPECTED ATTENTION OCCURRED

EM3
DH3

:MASSBUS PARITY ERROR

EM4
DH&4
DT4
DF4

:MASSBUS PARITY ERROR (PAR=1)

0
0
0
0

;JUNUSED

EM6
DH6

:RH/RM DIDN'T RESPOND TO ADDRESSING

DH1
DT1
DF 1

(RMAS=0)

:ERROR 2

11 006536
12 006540
13 006542

}g 006544

042270
043540
045046

045406

DFQ

:ERROR 3

18 006546
19 006550

20 006552
g; 006554

042326
043612

045062
045412

(MCPE=1)

DT3
DF3

:ERROR 4

25 006556
26 006560
27 006562
gg 006564

042364
043663
045076
045416

g?
32
33
34
gg

EM1

;ERROR §
006566
006570
006572
006574

000000
000000
000000
000000

g;
39 006576
40 006600

41 006602
42 006604

:ERROR 6
042455
043746
045114
045622

DT6
DF6

CIZRMLAO RMO5/3/2 FORMATTER

MACRO v03.01

' ERROR POINTER TABLE

43
:g

46 006606

042520

gg 006614

045512

EM7

044554
045116

DH23
D17

53 006616

042572

EM10

§5 006622
gg 006624

045126
045426

DT10
DF10

54 006620

'
|

60
61
62
22

;

‘

67 006636

043761

006626
006630
006632
006634

042610
043761
045126
045426

|
|

74 006646
75 006650

81 006656

042732

83 006662

045126

gerz

gg 006664

88 006666
89 006670
90 006672
35 006674

EM12

043761
045126
045426

;PERSISTENT DRIVE UNSAFE ERROR

DH10
DT10
DF10

:UNCORRECTABLE MASSBUS PARITY ERROR

;ERROR 13
042711
043761

EM13
DH10

045126
045426

:SOF TWARE TIMEOUT

DT10
DF10
:ERROR 14

EM14

043761

DH10

:DRIVE UNSAFE ERROR

DT10

045426

DF10

;ERROR 15
042755
043761
045126
045426

32
95 006676
96 006700
97 006702
98 006704
99

EM11
DH10
DT10
DF10

062646

82 006660

:DRIVE OFFLINE

:ERROR 12

76 006652
;g 006654

:ERROR 11

DH10

68 006640
69 006642
;9 006644

:TRACK/SECTOR FIELD IN HEADER IS NOT CORRECT

:ERROR 10

|
|

DF 25

:ERROR 7

47 006610
48 006612

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

EM15
DH10
DT10
DF10

'
043021
043761
045126
045426

-CONTROLLER/DRIVE ERROR DURING WRITE

:ERROR 16
EM16
DH10
g;}g

:CONTROLLER/DRIVE ERROR DURING WRITE CHECK

SEQ 0035

' CIRMLAO RMO5/3/2 FORMATTER
' ERROR POINTER TABLE

}89

MACRO v03.01

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

:ERROR 17

102 006706
103 006710
104 006712

}82 006714

043073
044210
045200

045442

EM17
DH17
DT17

}8;

|
g

109 006716 043151
110 006720 044257

EM20
DH20

}}g 006724

DF 20

117 006730
118 006732
}53 006734

:ERROR 20

111 006722

045212

045446

116 006726 043207

043761
045126
045426

}%5

}59 006746

043260
043761
045126

045426

}gg

132 006752
}gz 006754

043330
044554

045274

045512

}gg

;ERROR 21

EM21

DH10
DT10
DF10

JCONTROLLER/DRIVE ERROR VERIFYING HEADERS

EM22
DH10

;'HCE' OR

"HCRC'

ERROR VERIFYING HEADERS

DT10
DF10

EM23
DH23

sCYLINDER FIELD.IN HEADER

D123

DF 25
;ERROR 24

137 006756
138 006760
139 006762

}2? 006764

043400
044613
045304

045472

}25

DT20

;ERROR 23

130 006746
131 006750

144
145
146
}2;

;DATA ERROR DURING WRITE CHECK

:ERROR 22

123 006736
124 006740
125 006742

;
|
|

;RETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTABLE

DF17

SEQ 0036

EM24
DH24
DT24

JWRITE CHECK ERROR

DF 24

;ERROR 25
006766
006770
006772
0067764

043422
044766
045372
045512

EM25
DH25
D125
DF
25

sILLEGAL BAD SECTOR

IS NOT CORRECT

' CZRMLAO RM05/3/2 FORMATTER

. PROGRAM START

MACRO v03.01

5
3 006776

012737

2 007012

000402

g 007014

005037

& 007004

012737

000001

177777

001376

001270

.SBTTL

PROGRAM START

BEGIN:

MOV

#1,CHGADR

BEGINZ

(LR

$Cow1

START:

9 007020

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

MOV

#-1,8C0W1

SEQ 0037

;ENABLE CHANGE OF

'RH/RM BUS ADDRESS'

;ENABLE USE OF UTILITY ROUTINES

;DISABLE USE OF UTILITY ROUTINES

BEGINZ:
:""t"""'lt""."".""""Q."""..'.'.'.""..'.".""Q.

007020
007022

10 007030
11 007034
}% 007036

000240
012737

005227
001375
000005

000001

000000

001214

TST1:

INC
BNE
RESET

.SBTTL

007040
007044
007046
007052
007054

012706
005026
022706
001374
012706

001114

007060
007066
007074
007102
007110
007116
007126
007130

012737 023620
012737. 000340
012737 027602
012737 000340
012737 027030
012737 000340
005037 001176
112737 000001

007136
007142
007150
007156
007164
007172

013746
012737
012737
012737
022777
001012

007174
007176
007202
72064
007212
007220

000403
012716
000002
012737
012737
012637

0072264
007230
007236
007240
007246

005037
132737
001403
012737

001216
000200

001231

001232

001154

007246
007252

00522;
00104

177777

001154
001100

000004
007176
177570
177570
177777

000030
000032
000034
000036
000024
000026

001131

#1,STESTN
"0
.=

;s SET TEST NUMBER IN APT MAIL BOX
;TTY LOOP, WAIT FOR INCREMENT
;OF WORD
;CLEAR THE WORLD

INITIALIZE THE COMMON TAGS

:sCLEAR THE COMMON TAGS (SCMTAG) AREA
MoV
#SCMTAG,R6
:sFIRST LOCATION TO BE CLEARED
CLR
(R6)+
s CLEAR MEMORY LOCATION
CMP
#SWR,R6
s :DONE?
BNE
.=6
::LOOP BACK IF NO
MOV
#STACK,SP
::SETUP THE STACK POINTER
;s INITIALIZE A FEW VECTORS
MOV
#SERROR ,@#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
MOV
#3640 ,QNEMTVEC+2 ;.LEVEL 7
MOV
#STRAP
,a# TRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS
MOV
#360,3FTRAPVEC+2;LEVEL 7
MOV
#SPWRON,a#PWRVEC ;;POWER FAILURE VECTOR
MOV
#340,9#PWRVEC+2 ;;LEVEL 7
CLR
SESCAPE
:sCLEAR THE ESCAPE ON ERROR ADDRESS
mMove
#1,SERMAX
::ALLOW ONE ERROR PER TEST
:sSI1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

;;EQUAL TO A "*=1'", SETUP FOR A SOFTWARE SWITCH REGISTER.
000004
001154
001156
171762

007204
000176
000174
000004

NOP
MOV

648:
001154
001156

65%:

66%:

67%:
.SBTTL
;s TYPE

MOV
MOV
MOV
MOV
CMP
BNE

OFERRVEC,-(SP)
N64S ,QNERRVEC
#DSWR,SWR
#ODISP,DISPLAY
#-1,3SWR
66%

BR
MOV
RTI
MOV
MOV
MOV

65%
#65%, (SP)

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

CLR
BlT8
BEQ
MOV

$PASS
FAPTSIZE,SENVM
67%
#FSSWREG, SWR
'
TYPE PROGRAM NAME

THE NAME OF

INC
BNE

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
::SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
::TRY TO REFERENCE HARDWARE SWR
s sBRANCH IF NO TIMEOUT TRAP OCCURRED
::AND
THE HARDWARE SWR IS NOT = =1
s :BRANCH IF NO TIMEOUT
s:SET UP FOR TRAP RETURN

’-1
68%

THE PROGRATM

::CLEAR PASS COUNT
;:TEST USER SIZE UNDER APT
ssYES,USE NON-APT SWITCH
::NO,USE APT SWITCH REGISTER
IF

FIRST PASS

ssFIRST TIME?
: :BRANCH IF NO

CZRMLAO RM05/3/2 FORMATTER

. TYPE PROGRAM NAME

MACRO v03.01

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

SEQ 0038

]

007254

104401

007322

007260

005737
001012
123727

000042
001230

000001

00115¢4

000176

007320
007362
007362
007366
007370
007374

000001

001150

000420
005227
001024
104401

000421

,69%

1ST
BNE

NG
70%

:sARE WE RUNNING UNDER XXDP/ACT?
s :BRANCH IF YES

BEQ

70$

*'BRANCH IF YES

CMPB

7?2

YPE ASCIZ STRING

g;sun

718

1'SOFTWARE SWITCH REG SELECTED?

*'BRANCH IF NO

PiGET SOFT=SWR SETTINGS

#1,SAUTOB

::SET AUTO-MODE INDICATOR

68%

::GET OVER THE ASCIZ

CINC

0-1

;FIRST TIME THRU ?

007376
ii’z‘:

007440

SWR, #SWREG

:sARE WE RUNNING UNDER APT?

MOVB

3629‘:
177777

SENV, ¥

CMP

BNE

11273

TYPE

.SBTTL GET VALUE FOR SOF TWARE SUiTCH REGISTER

LASCIZ

BNE
TYPE
BR
ASC1Z

<CRLF>3CZRMLAO - RM0S5/3/2 FORMATTER®<CRLF>
18
7zs

:BR IF NO
..rvpe ASCIZ STRING
‘GET OVER THE ASCIZ
<anr>apaoonAn REQUIRES 20K OF MEMORY@<CRLF>

OCO—=—= =00 —O

007440
007444

OOO0OON—-=ONO

:THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE:
sPAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP
001412
000016

000041

000040
000007

001412
001412

001412
000042

2%:

007512

001412

001205

005227

177777

000517

007556
007562
007564
007570

38:

007572
5;;63:

007612

47 007612
48 007614
&5 007620
50 007622
51 007623

001412

XXDP
¥16,a861
4%
@a#40,XXDP
sz.XXDP

YI¥)

CLRB

BEQ

TYPE

55;4::

104401

CLR
CMPB
BNE
MOV
CMPB
BHIS

LASCIZ

;CLEAR 'XXDP' LOAD DEVICE STORAGE
:LOADED FROM AN RMO5/3/2 ?
:BR_IF NOT
:GET DEVICE INDICATOR AND NUMBER
lS IT
A VALID NUMBER ?
‘YES

XXDP

:NO, DEFAULT TO DRIVE 0

:BR IF NEITHER

73s

::GET OVER THE ASCIZ

74%

:CHAIN MODE OR ACT11 AUTO ACCEPT ?

2:TYPE ASCIZ STRING

<CRLF>/NOT TESTING DRIVE /

CLR
-(SP)
MOVB
XXDP, (SP)
TYPOS

:CLEAR WORD ON STACK
:GET DRIVE ADDRESS
:TYPE THE ADDRESS

TYPE

:CR=LF

.BYTE
BYTE

1
0

INC
BNE
TYPE

#-l
43
76%

LASCIZ

<CRLF>/TO TEST DRIVE /

,SCRLF

758

CLR
-(SP)
MOVB
XXDP, (SP)
TYPOS

BYTE
BYTE

1
0

:ONLY 1 CHARACTER
:SUPRESS LEADING ZEROS
:GET NUMBER OF DRIVES

;FIRST TIME THRU HERE ?
*NO
..rvpe ASCI12 STRING

*GET OVER THE ASCIZ

:CLEAR WORD ON STACK
:GET DRIVE ADDRESS
:TYPE DRIVE ADDRESS

SONLY 1 CHARACTER
:SUPRESS LEADING ZEROS

| CZRMLAO RM05/3/2 FORMATTER

MACRO v03.01
| GET VALUE FOR SOF TWARE SWITCH REGISTER
|

!
|

52 007624
007630

104401
000431

007714

007632

007720

010014
57 010014
38 010022
60 010026
61 010032
62 010034
63 010040
64 01004
65 010056
66 010054
67 010060
68 010062
69 010066

70 010070
71 010076
72 010104
73 010110
74 010112
75 010120
76
77
78
79
80 010126

007014
025576
001150

OCOO0O0O0O~-O0O—-0O—=
-t OO0 = =0O0000

{

O0O000—~
—==0O

{
|

001374

030034
030036

001230

4$:

001260

001260
001276
001264

001276
030036

001264
001274

001274
03003¢

6%:

/., HALT PROGRAM, REMOVE RRDP PACK AND REPLACE

. 79%

IT/<CRLF>

s+ TYPE ASCIZ STRING
ssGET OVER THE ASCIZ

MOV

#START,CNTLC
PC,STKINT

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

TSTB
BNE
JSR
MOV

$AUTOB

;RUNNING AUTO MODE

JSR

5%:

;s TYPE ASCIZ STRING
:;GET OVER THE ASCIZ

1443

Mov

1STB
BEQ
T1STB
BEQ

MOVB
MOV

TST

BEQ

MOV
MOV

/WITH A WORK PACK,

PC,BUSADR

CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF>

:BR_IF YES
sCHECK THE RH/RM ADDRESS

$RMADR,RMADR
SRMVEC,RMVEC

sRH/RM ADDRESS
:
sRH/RM VECTOR ADDRESS

$ENV
SETVEC
$VECTI
6%
SVECT1,SRMVEC
$RMVEC ,RMVEC
$BASE
SETVEC
$BASE ,SRMADR
$RMADR,RMADR

sRUN UNDER APT MODE?

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

;DO NOT CHANGE IF = 0
sNEW VALUE
sRH/RM VECTOR
sUUT BASE REGISTER ADDRESS
;DO NOT CHANGE IF = 0
sNEW BASE ADDRESS
4

sRH/RM ADDRESS

;DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE

027774

SETVEC: JSR
JSR

MOV
INC

170774

000340
001402

036354
001205

010210
010212
010213
93 010214

177776

1%:

2%:

TYPE

+SCRLF

MOV

105764

001404

10000¢
1046401

TYPE
1STB
BMI]

1%
#SW02,aSWR
12%
#PR7,PS
DEVMP

JUNSTAT

R&,=(SP)

2
0
.BLNKS4

BNE

DRVSTA(R4)
5%
6%

1STB

DRVTYP(R4)

BEQ
BPL

TYPE

;START THE CLOCK

JINITIALIZE THE RM DRIVER
sSET THE SAVE REGISTERS FLAG
JFIRST TIME THRU HERE ?
sBR IF NO

z-j.SAVEFG

TYPE

.BYTE

001020

PC,ST.CLK
PC.RMINIT

BEQ
BIT
BNE
MOV
CLR
CLR

TYPOS

94 010220

98 010230
99 010234
100 010236
101 010220

::79%:

TYPE
BR
LASCIZ

78%

SEQ 0039

sPROGRAM WILL USE

81 010132
82 010136
83 010144
84 010150
85 010152
86 010160
87 010162
88 010170
89 010174
90 010176
91 010202
92 010206

95 010224
% 010226

045516
001274
001276

- 78%:

TYPE
BR
.ASCIZ

77s:

007722

N 2

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

+NOTRM

sTYPEOUT THE DRIVE

:BR IF NO

STATUS TABLE

sDON'T ALLOW RM INTERRUPT
sCLEAR DEVICE MAP
sDRIVE TABLE POINTER
sTYPE

"UNIT STATUS'

:CR=LF
;:SAVE R4 FOR TYPEOUT
;s TYPE DRIVE NUMBER
.60 TYPE--OCTAL ASCII

J:TYPE 2 DIGIT(S)
s sSUPPRESS LEADING ZEROS

:TYPE & SPACES

JCHECK DRIVE'S STATUS
;BR IF UNSAFE
sBR IF ONLINE
sSEE IF OFFLINE OR NONEXISTENT
:BR IF NONEXISTENT
:BR 1F OFFLINE
:DRIVE NOT AN RM05/3/2

MACRO v03.01 11-APR-80 13:01:23 PAGg 8-3
4

AO RM05/3/2 FORMATTER
v ALUE FOR SOF TWARE SWITCH REGISTER
10§ 010244
10
104 010246
105 010252
106
107 010254
108 010260
109
110 010262
111 010266
112

113 010270
114 010274
115 010276
116 010302
117 010304
118 010310
119
120 010312
121 010316
122 010324
123 010330
124 010332
125 010336
126 010344
127 010350
128 010352
129 010360
130 010364
131 010366
132
133 010374
134 010376
135
136 010400
137 010402
138 010406
139 010410

000455
104401
000452

036270

38:

104401
000421

036226

48:

104401

036305

005737
001406
123704
001003
104401
000433

007412

000416

TYPE

001402

7%:
8s:

;DRIVE UNSAFE

;BR IF NO

XXDP,R&
LODEV

sBR IF NO

sLOADED FROM THIS DRIVE ?

sDRIVE IS LOAD DEVICE

i1s

TYPE
BISB
TYPE

LUNTON
;DRIVE ONLINE
ATABIT(R4),DEVMP
;SET DEVICE MAP
;TYPE 2 SPACES
,BLNKS2
DRVTYP(R&),RO
#SRM03, 108

CLR

MOV

036347

010376

MOV

CMPB
BEQ

#4,R0
98

#SRM02,108

#5,R0
9%

;GET DRIVE TYPE
;ASSUME ADDRESS OF RMO3 MESSAGE
DEVICE AN RMO3 ?
;1
:BR IF YES

;ADDRESS OF RM02 MESSAGE

;1S DEVICE AN RMO2 ?

#SRMOS, 108

:BR IF YES
;ADDRESS OF

LMORD

:TYPE THE DRIVE TYPE MESSAGE
sMESSAGE ADDRESS HERE

INC

TYPE

LSCRLF

sCR=LF

$AUTOB

sRUNNING UNDER AUTO MODE

TYPE

CMP
BNE

1STB

BEQ

R4 ,#8.
28

000200

001231

001266

001266
177400
001402

001402
001402

;BR

IF NO

016342
000000
000000

SIZING

IS ALLOWED

#BIT7,SENVM

:APT AUTO SIZING ALLOWED

18T

$DEVM

sDEVICE MAP AVAILABLE FROM APT MAIL BOX

MOV

$DEVM, DEVMP

;BR

IF NO

:BR IF NONE
sLOAD IT FROM MAIL BOX

BIC

DE v
9177400,

BNE

MSFX
$EOP

:BR IF DRIVES ASSIGNED
;OTHERWISE ,EXIT

MOV
MOV

#0,BEGTRK
#0,BEGCYL

JALWAYS STARTS FROM 0 TRACK
sALWAYS STARTS FROM O CYLINDER

JMP

MSFX:

BITB
BNE
BEQ

18:

RMOS5 MESSAGE

s INCREMENT DRIVE NUMBER/TABLE POINTER
sFINISHED ?
;sBR IF NOT

;PROGRAM IS RUNNING IN AUTO MODE ~- SEE

XSI1ZE:

TYPE

BNE

010376

001150

NOTSAF

;DRIVE OFFLINE

sPRINT DRIVE

;LOADED FROM THIS DEVICE ?

C(MPB
BEQ

128:

UNTOFF

XXDP
7%

036335

001205

;DRIVE NOT PRESENT
sCHECK NEXT DRIVE

ST
BEQ

010376

118:

NOTPRS

f1s

sPRINT DRIVE TYPE

MOVB
MOV

000010

JCHECK NEXT DRIVE

027716
036342
000004

108 :

TYPE

98 :

N~ dgflflwbw
—_~
w
Ow
Wil
NN
W
NNONNN
uuug ~N NN

156

157 010466
158 010474

TYPE

CMPB

036315

000005

S&
22 g38r288
- AN
L =2 \N
-y N

155 010462

001412

036237
030022
036425

140

141 010414
142 010420
143
144
145 010422
146 010422
147 010430
148
149 010432
150 010436
151 010440
15; 010446
153 010454
154 010460

SEQ 0040

DEVMP

sALLOW MAX 8 DRIVES
sCHECK DEVICE MAP

RMLAO RMOS5/3 /2 FORMATTER
MACRO v03.01
T VALUE FOR SOF TWARE SWITCH REGISTER

159 010505
160 01051
161 010514
16§ 010520
16 OIOSSS
166 0105
165 010534
165 010540
167 010568
168 01055
169 010554
170 010562
171 010570
172 010576
173
176 010600
175 010606
176 010614
177 010620
178 010626
179 010632
180 010634
181 010642
182 010650
183 010656

184 010660
185 010666
186 010670
187 010672
188 010676
189 010700
190
191 010702
192 010706

193 010714
194 010720
195 010722
196 010726
197 010730
198 010734
199

200 010736
201 010742
202 010750
203 010752
204 010756
205 010762
206 010766
207
208 010772
209
210
21
212
213
214 010776
215 011002

01%7?7
005037
005037
01%7 7
005737
00160;
005037
012737
005737
00101;
012737
012737
012737
000413

012737
012737
005037
012737
005737
001006
012737
012737
012737

005001
136137
001005
005201
020127

003770
000434
010137

146137
105761

003757
005737
001403

001466
001400
00160?
17
001270
001320

MOV
(LR
CLR

001320

MOv

TST
BEQ
CLR

001352
001354
001362

MOV
MOV
MOV

017074
160704
001360
000035
001320

001352
001354

133331
133331
000002

001340
001342
001336

030022

001402

030022
027706

3s:

012702
122761
001002
012702
010237
010237
000137

000004
000007

000137

016342

000022
001324
001332
012146

TST

BNE
MOV

CLR

BITB
BNE
INC

CMP

BLE
BR

001402

4%:

5%:

6%:

7%:

:SET FORMAT AND VERIFY MODE
*APT PARAMETER = 0

SYES,DEFAULT TO =1
*NO § T 70 CHECK MODE

:SET 32 SECTOR

:APT PARAMETER =0

:NC,30 SECTOR

:COUNT OF WORDS
#-<258.+32.>,MiC
:WORD COUNT
#31. ,MAXSEC
sMAX 32 SECTOR
#<258.+30.>,WC

sCOUNT OF WORDS
l-<238.-30.>.nu
sWORD COUNT
SEC3
;30 SECTOR

#29. ,MAXSEC

MODE

416
#133331,PATA
#133331,PATB

sMAX 30 SECTOR

:figECK MODE ?

JINITIATE PATTERN
JINITIATE PATTERN

:%.PATSEL

sWORSE

CASE

33
R1
R1,#7

sBR IF

YES

JSTART WITH DRIVE NUMBER 0
ATABIT(R1) ,DEVMP
;1S THIS DRIVE IN DEVICE MAP ?

3
7%

JINCREMENT DRIVE #
JALL DONE WITH MAP ?
sBR IF NO
;DONE !!

R1,DRIVE
sLOAD R1 INTO DRIVE
ATABIT(R1) ,DEVMP
sCLEAR THE BIT FROM DEVICE MAP

BLE

1ST
BEQ
CMPB
BEQ

027716

#<258.+32.>,uW(

:SEEK FROM LO TO M1 CYLINDER ADDRESS

MOV
BI(B
1ST8

001412
001412

MOV

MOV
MOV

000007

001222

MOV
MOV

CLR

2%:

:DON'T ALLOW UPDATE OF BAD SECTOR FILE

020100
157700
000037

001362

EDIT
#-1,MODE
$COW1

MOV
187

1$:

:LAST CYLINDER

BNE

001360

SEQ 0041

#822. ,ENDCYL

WRAP

.*6
MODE
#-1,SEC30
$CDW?
1%

177777
001272

123701

001751

001326

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

MOV

CMPB

BNE
MOV

DRVSTA(R1)

;1S DRIVE ON LINE ?

XXDP

sLOADED FROM THIS DEVICE ?
:8BR IF NO
;LOADED FROM THIS DRIVE ?
;BR IF YES

XXDP,R1

" ,R2
#7,DRVTYP(RY)

MOV
JMP

R2,LSTRK
R2 ,ENDTRK
M5

JMP

$EOP

MOV

sBR

;SETUP TRACK PARAMETER FOR AN RM03/2
;1S DEVICE AN RMOS5 ?
:BR _IF NO
sSETUP TRACK PARAMETER FOR AN RMOS
sSETUP LAST TRACK AND
sEND TRACK FOR AUTO MODE.
+START TO FORMAT OR CHECK

;END OF PASS FOR ALL DRIVES ON SDEVM

sSEE WHICH MODE THE PROGRAM IS TO BE RUN IN.

;MODES ARE:
005037
005037

177776
001320

M1:

CLR

(LR

'FORMAT & VERIFY', "CHECK FORMAT' OR 'VERIFY HEADER FORMAT®
PS

MODE

;SET MODE

7O °"CHECK FORMAT'

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

CIRMLA0 RMOS5/ 3/2 FORMATTER
ALUE FOR SOF TWARE SWITCH REGISTER

036636

001174
001174

TYPE
RDCHR
MOV

000015

001174
000103

001174

000106

001174

000126

001174

(MP

BEQ

TYPE
cMP

BEQ
CMP
BEQ
CMP
BEQ

001204

TYPE

036713

104401
104401
012737

03641
03667
17777

~NNOWw

036767
000001

1%:

001320

2%:

3%:

001320

5%:

001205
037004

MIA:
1%:

001174
001174

000015

001174
000131

001174

000116

001174

——- —
e

[« ZV IV
oSN

4%:

2%
.,SQUES

;TYPE

'VERIFY'

TYPE
TYPE
MOv

.
MFORMT

(YWE
;TYPE

*9°
"FORMAT § VERIFY'

TYPE
TYPE
RDCHR
MOV
CMP
BEQ
TYPE
CMP

:TRY AGAIN
:TYPE REST OF

MCHECK

JGET STARTING ADDRESS
sSET VERIFY ONLY MODE

#-1,MODE
FORMAT

'CHECK'

10 BE

sSET MODE TO FORMAT & VERIFY
IN

+SCRLF
MSIZE
(SP)+,$TMPO
$TMPO,#CR

2%
. $TMPQ

#'Y,$TMPO

30 OR 32 SECTOR MODE
sCR=LF

sTYPE

FORMAT MODE REQUEST

sTYPE

CHARACTER

JREAD KEYBOARD
sGET CHARACTER ENTRY
sCARRIAGE RETURN ?
sBR 1F YES

;1S
sBR
;1S
:BR

ENTRY
IF IT
ENTRY
IF IT

A "Y' ?
IS
A 'N' ?
IS

BEQ

#'N,S$TMPO
(33

. SQUES

:TYPE *?°
;TRY AGAIN

TYPE
TYPE
MOV
MOV
MOV

1TYPg

#-1,SEC30

232 SECTOR INDICATOR

TYPE

(LR

MOV

5%:

,$TMPQ

#'C,8TMPO
1%
#'F,S$TMPO
43
#'v,8TMPO

+MVERFY
#1,MODE

MOV
BR

NNNN=

037053
001360
017074
160704
000035

001360
001352
001354
001362

TYPE
MOv

CMP

2%:
3%:

(SP)+,$TMPO

$TMPO,#CR

TYPE

[olele]
l=lele)

WVNINNYN -t

g -..-.-.-.2

cooo—
-t
OO
norORO
W &~
NN
NNNO
&S
NNNN ~
NNNND — NN W

036417
037132
177777
020100
157700
000037

"PROGRAM MODE'

JREAD THE KEYBOARD
JGET CHARACTER INPUT
s"CR' ENTERED (DEFAULT)
;BR IF YES
sTYPE CHARACTER
s "CHECK' ?
JBR IF YES
:"FORMAT' ?
sBR IF YES
;"VERIFY' ONLY ?
sBR IF YES
sNO CORRECT ENTRY

BEQ

001204

sTYPE

TYPE

BR
4%:

.MMODE

;FIND OUT

B b B b B b D S bk b b
Rt
e QY S "
D e
i
T
el
— et 3 b s s s

B e Sy

NNNO
N—=OO

N
—

54
55
56
57
58
59

e e
R
e

OO0OO0O00O0

50
gi

OO0O0O0O0O00

NNNNNNNNNNNN%}NNNNNNNNNNNN
SISSE

«8
49

OO0O0O0O0O0O0O0O0O0O0OO0O

216 011006
217 011012
218 011014
219 011020
220 0110%6
221 011030
22% 011034
223 011042
226 011044
225 01152
226 011054
227 011062
228 011064
229 011070
230 011072
231 011076
232
233 011100
234 011104
235 011112
236
237 011114
238 011120
239 011124
260 011132
241
262
263
264
245
266
247

SEQ 0042

MOV

JMSEC32

°*y*

sTYPEOUT MODE SELECTED

#<258.+32.>,uC

sTRACK SIZE

s CONT INUE

IN 32 SECTOR MODE

#-<258.+32.>
,Mi(
;2'S COMPLEMENT WORD COUNT
#31. MAXSEC
sMAX SECTOR ADDRESS IN 32 SECTOR MODE

:TYPE OUT 30 SECTOR MODE SELECTED
230 SECTOR INDICATOR

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

MACRO v03.01 11-APR-80 13:01:23 PAGE 8-6
“

CIRMLAD RMO5/3/2 FORMATTER
GET VALUE FOR SOF TWARE SWITCH REGISTER

301
302 011464
303 011470
304 011472
305 011476
306 011500
307 011504
308
309 011506
310 011512
311 011516
312 011524
313 011532
314 011536
315 011542
316 011544
317 011546
318 011552
319
320 011554
321 011560
322 011562
323 011566

oo
O

001334
00133
00133
00554

M1B:

MOV
MOV

CLR

MOV
MOvB

#0,BEGTRK

R STARTING TRACK ADDRESS
R BEGINNING CYLINDER ADDRESS
FROM LO TO HI CYLINDER ADDRESS
P FOR WORST CASE PATTERN
P INVALID DRIVE NUMBER

#0,BEGCYL

WRAP
#2 PATSEL

#-1,FmT0PB

;GO FIND OUT WHAT DRIVE

001374

MO:

001174

1046401

000731
010237
005737

MOV

JSR
CLR

TYPE
RDCHR
MOv

000015

i cd e e e e

011440
294 011442
295 011444
296 011450
297
298 011452
299 011456
300 011460

000000

273 011306
276 011314
275 011322
276 011326
277 011334
278
279
280
281 011342
282 011350
283 011354
284 011360
285 011364
286 011366
287 011372
288 011400
<89 011402
290 011410
291 011412
292 011416
293 011422
011426
011430
011432
011434
011436

SEQ 0043

CMP
BEQ

000056

CMP

001174
001174
023410

W#C.ENTR,CNTLC

PC,STKINT
SERTTL

MUNIT

(SP)+,$TMPO
$TMPO,#CR
1%
STMPO,#'.
1%
,$TMPO
#S$TMPO,
R
RS,CK.CHR

sCONTROL C ABORT ENTRANCE
sINITIALIZE THE TTY KEYBOARD
sCLEAR THE ERROR ACCUMULATOR

;sASK FOR DRIVE NUMBER

JREAD THE KEYBOARD
JGET CHARACTER TYPED
sCARRIAGE RETURN ?
:BR IF YES
sPERIOD ?
;BR IF YES
;TYPE

sGET ADDRESS OF ENTRY
sCHECK ONE

1%:

ZERO

001204

2%:

001222

001412
001412

,$QUES

.MLODEV

PC,ST.CLK
PC,RMINIT

;GO SEE IF DRIVE ZERO IS THERE
:TYPg

*7°

FOR DRIVE

NUMBER AGAIN

;SAVE DRIVE NUMBER

sSTART THE CLOCK

;G0 SEE WHAT DRIVES ARE AVAILABLE
sSAVE THE REGISTERS

DRVSTA(R?2)

;SET "NO OPTIMIZATION' FLAG
;PRIORITY = 0
;LOOK AT DRIVE STATUS

:"DRIVE UNSAFE'
;G0 GET DRIVE NUMBER AGAIN

7%
5%
,MUSDR

036500

:TYPE UNIT NUMBER 0

;LOADED FROM THIS DEVICE ?
:BR _IF NO
;WAS THIS THE DRIVE ?
:BR IF NO
:DRIVE IS LOAD DEVICE

5%:

:DIGIT Q=7
;DIGIT 8-9
JSELECT DRIVE ZERO

XXDP
6%

#-1,SAVEFG
l;‘,SEEKFG
P

027716

sASK

XXDP,R2

4%:

MO
R2,DRIVE

036574

CHARACTER

sILLEGAL CHARACTER
: CARRIAGE RETURN
.

036403

CHARACTER

sBR IF ONLINE
:BR IF DRIVE NOT AVAILABLE

DRVTYP(R2)
6%

:A DRIVE PRESENT?

‘60 GET DRIVE NUMBER AGAIN

.MORNP

;BR _IF

*TYPE 'DRIVE NOT PRESENT'

CIRMLAO RMO5/3/2 FORMATTER
MACRO v03.01
GET VALUE FOR SOF TWARE SWITCH REGISTER
O [=l=]
o
O
OO

SFOSrfOSrOSrOOMNNONVNONVOONSO

- O0000000 [=l=lelele
P leleleT

o
ONNVNOONON~N~N NN~N
o OO OOWWOOO OWwWwWw

001222

-t et O NNONNNONNNN
-

e i ) i i i T\ e i i il
ONVIOON
= NININININWN
- ON e e

330 01161
331 01162
332 01162
333 01163
334 01164
335 01164
336 01164
337 01165
338 01165
339 01166
342 01166
01167
01167
01170
343 01170
346 01NN
345 01N
346
347

036525

o
o
o

324

325 01157
326 01157
327
328 01157
329 01160

353 011736

356 011744
355 011746
356 011750
357
358 011752
359 011760
360 011762
361 011766
362
363 011770
364 011776
365
366
367
368 012000
369 012004
370 012006
371 012010
372 012016

373 012024
374
375 012026
376 012032
377 012034
378 012040
379 012046

000022
001324
001332

SEQ 0044

6%:

1YPE
BR

7%:

MovBe
MOV
MOv
MOV
MOv

027716

(MPB
BNE

8%:

MOV
MOV
MOV

INC

000010
005650
005702
005726
005752
000014
005650
001205

MOV
MOv
MOV
MOV
MOV
ADD
MOV
TYPE

JMERT

;"DRIVE NOT AVAILABLE'
;60 GET DRIVE NUMBER AGAIN

DRIVE,FMTDPB
#0,BEGCYL

sSETUP DRIVE ADDRESS
sCLEAR STARTING CYLINDER ADDRESS
sSETUP END CYLINDER
sCLEAR STARTING TRACK ADDRESS
JGET LAST TRACK FOR AN RM03/?2
;1S DEVICE AN RMOS ?
:BR IF NO
sGET LAST TRACK FOR AN RMOS
JSETUP LAST TRACK AND
JEND TRACK PARAMETERS
JADJUST TRACK LIMIT
:GET TRACK OFFSET IN PARAMETER TABLES
;SETUP TRACK PARAMETER LIMITS IN ''TABLE''
;SETUP TRACK PARAMETER LIMITS IN ''TABLE2"
:SETUP TRACK PARAMETER LIMITS IN '‘TABLE3"
;SETUP TRACK PARAMETER LIMITS IN '‘TABLE&'
sGET OFFSET FOR ENDTRK LIMIT IN "‘TABLE"
:ESTU? TRACK PARAMETER LIMIT

#862. ENDCYL
#0,BEGTRK

¥ ,R0

#7.DRVTYP(R2)

#18.,R0
RO,LSTRK
RO,ENDTRK
RO
#10,R1
RO, TABLE (R1)
RO, TABLE2(R1)
RO, TABLE3(R1)
RO, TABLE4(R1)
¥4 ,R1
RO, TABLE(R1)

+SCRLF

:(R=L

:GET ADDRESS LIMITS

348

349 011720
350 011724
351 011730
352 011732

000007

005540
001330
001326
001334

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

036430
020454
005037
023737
001402
103410
000413

001400
001326

023737
103007

001332

104401

000754
012737
000400

M2:

037230
177777

CLR

001330

001334

1%:

2%:

001400

TYPE
JSR
TABLE

3%:

LENTADR

R4 ,PARENT

WRAP
EQDCVL.BEGCYL

; "ENTER ADDRESS LIMITS'
sENTER THE ADDRESS LIMITS

: TABLE PARAMETERS

;SEEK
FROM LO TO HI CYLINDER ADDRESS
;SEE IF ENDINS CYL EQ TO GT THAN BEGINNING
;BR IF ON THE SAME CYLINDER
:BR IF LESS

CMP
BEQ
BLO
BR

Mé

;70 CHECK DRIVE

CMP
BHIS

ENDTRK ,BEGTRK

;SEE IF ENDING TRACK EQ OR GT THAN BEGINNING
:BR IF YES
sINVALID ADDRESS ENTERED

TYPE
BR

MOv

.MADRER

s TRY AGAIN

#-1,WRAP
Mé

JALLOW SEEK FROM Hl

TO LC CYLINDER ADDRESS

;G0 GET DATA PATTERN FOR FORMAT

005737
003060
001007
012737
012737
000450

001320

104401
104410
012637

037331

023727
001420

:
M4

001340
001342

001174
001174

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

:NO, FORMAT & VERIFY MODE

;CHECK MODE USE WORST CASE DATA
s INITIAL THE DATA PATTERN -SHIFT 3 BITS
;:START TO FORMAT AND CHECK

MOV
MOV

M4A:

000015

TST

BGY
BNE

TYPE
RDCHR
MOV

CMP
BEQ

JMSELP
( SP)+ ,$THPO
$TMPO, #CR
%

;60 TYPE "SELECT PATTERN'
;READ THE KEYBOARD
:CHARCTER ENTRY

:CARRIAGE RETURN ?
:BR IF YES

380 012050
381 012056
382 012060
383 012064
384 012070
012074
012076
012100
012102
012106
012106
385 012110
386 012114
ggg 012120

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

389 012122
390 012126
391 012130
gg% 012134
394 012136
395 012142

001174

000056

001174
001174
023410

036421
000002

1%:

020227
101403
104401
000721

000002

2%:

001204

3%:

104401
010237

001205
001336

4%:

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

$TMPO,#'.
1%
LSTMPO
#STMPO,RY*
RS,CK.CHR
.

SEQ 0045

CMP
BEQ
TYPE
MOV
JSR
38
1%
3
1%
2%
3%
TYPE
MOV
BR

,TWO
"2 ,R2
4%

;PERIOD ?
:BR IF YES
;TYPE CHARACTER
JENTRY ADDRESS
JCHECK ONE CHARACTER
;ILLEGAL CHARACTER
sCARRIAGE RETURN
"g
T
:DIGIT Q=7
;DIGIT 8-9
;TYPE '2°
sWORST CASE PATTERN
;G0 SAVE PATTERN

CMP
BLOS
TYPE
R

R2.#2
4%
,$QUES
M4

;1S # LARGER THAN 2
:BR IF NOT
;TYPE ' 7!
:RETYPE LINE

TYPE
MOV

LSCRLF
R2,PATSEL

:CR=LF
;SAVE PATTERN SELECTED

—

GET

MACRO v03.01
VALUE FOR SOFTWARE SWITCH REGISTER

CZRMLAD RMOS5/3/2 fFO RMATTER

+SBTTL

000060

D
s

VNN
NN

D
i il
-

NN
NMNOMNVMNOMNONY

MOV

#O.ENTR,a#TKVEC
PS

CLR

EDIT
MODE

18T

BGT
BEQ

TYPE

013746

FORMAT

'STARTING FORMAT ON DRIVE N'
CLR

— il el D e
NN
Nt bbb ed

onNorVES
WA
= b et IVs goo ONNNOO>
wvir
oMV~
SO

— b s
oo
b
b e

égO TYPE

START OF

3%
1%

OR VERIFY MODE

DRIVE,=(SP)

::SAVE DRIVE FOR TYPEOUT
::TYPE DRIVE NUMBER
;.60 TYPE--OCTAL ASCII
;:TYPE 1 DIGIT(S)
:é%UPfRESS LEADING ZEROS

MOv

3%:

'CHECK'

'VERIFY ONLY' MODE
"CHECK' MODE

"STARTING CHECK ON DRIVE N’

001222

MOv

:BR IF
:BR IF

;TYPE

TYPE

001406

;"FORMAT',

MSCHK

037505

.BYTE
.BYTE
TYPE

;DON'T ALLOW UPDATE OF BAD SECTOR FILE

"STARTING FORMAT ON DRIVE N'

TYPOS

sVECTOR FOR CONTROL=-O

sPRIORITY = 0

;TYPE

MSFOR

104403

SEQ 0046

SCRLF

#-1,EDIT

—-.sOO—=—=0000
— s s s ) e s e e O
oMW
WO W
NNNNONNNNO

& FEIRSIRISF
o
s
oo
WwWNN
NN
F L T+

001775

012737
012706
112737
004037
005540
000774
100007

001344
177777
001222
001466
001324
005550
045774
157700
000020
000143
030622

001404
005540
005552
005551
005546
005544
005541
005542

005556

RETBAD:

CLR
MOV
MOV
MOv
MOvB

CLRB

1%:

MOv
Mov
MOvB
MOvB

;UPDATE BAD SECTOR FILE AT END OF PASS

012336 001124
001100
000173 005542
030622

3%:

005556

4%:

:CLEAR THE RETRY FLAG
‘RESET THE MFG AVAILABLE
:LOAD DRIVE #

LSTRK.FMTDPB+11
FMTDPB+10

:LAST TRACK
*SECTOR 0

#BUFP,FMTDPB+6

:BUFFER ADDRESS

#-<32.+258.> FMTDPB+4
:WORD COUNT FULL
#20,FMTDPB+1°
;FMT SET
#SETFMT,FMTDPB+2
RO,RMOS
:SET

FLAG

TRACK

INCLUDING HEAD

:SET 16 BIT MODE
THE FORMAT BIT

:THE COMMAND IS DONE

:BR IF NOT

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

:LOOP ON ERROR ADDRESS
*RESET STACK POINT
:RELOAD THE READ HEAD AND DATA COMMAND

:BR IF QUEUE FAIL

‘BR IF

FMTDPB+16

ESCAPE
JSR
ERROR

FORMATTED PACK)

#822..FMIDPB+12 (YL 822

RO,RMOS

BPL

(IF

RETRY
#-1,PACK
DRIVE,FMTOPB

13
FMTDPB+16

2%:

:THIS CODE RETRIEVES THE BAD SPOT FILE FROM THE PACK
;SET UP DPB BLOCK READ CYL 822., LAST TRACK.
[elelelelelalelele Neleleleleleloelelelelelelelele)

—=O Yoo~
NN —=O0VONO WS W

S NWAERWWWW
NN WWNI NN NN NN O NN

N=O0OOVENOWVH NN —=O OO NO WV

VWS BB

H
&
11-APR-B0 13:01:23 PAGE 9

FORMAT

(eleleleleleeleleNeleleleleleBNelele]

b
s
s
s
—

NN = OV

~NON N IS WY —

START OF

MACRO v03.01

gg.ealnox

:READ THE LAST TRACK

*ALL DONE

NOT

:BR IF NO ERROR
;SEE WHICH ERROR

CZRMLAO RMO5/3/2 FORMATTER

CZRMLAO RM0S5/3/2 FORMATTER

START OF

FORMAT

53
54
55
56
57
58
59 012376
60 012406
61 012406
gg 012412

022737

000003

005237
000761

001344

64 012414
65 0126420
66 012426
67 012430
68 012432
69 012440
70 012442
71 012446
72 012450
73 012454
76 012456
75 012462
76 012464
77 012470
78 012472
79 012476
80 012500
81 012506
82 012510
83 012514
84 012520
85 012522

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

001176
001344
005556

gg 012530

103451

000240

151466

6%:

045774

045776
046000

046002
046004

177777

7%:

046006

017112
046006
000400

001404

8s:

ERROR
ERROR
ERROR
ERROR
ERROR
JSR
CMP
BLO
INC
BR

1
12
13
14
21
PC,LOP.CK
#3 RETRY
8%
RETRY
38

CLR
CLR
ST
BM]
CMP
BNE
MOV
SWAB
CMP
BNE
TST
BNE
1ST
BEQ
TST
BNE
CMP
BNE
JMP
ST
BNE
MOV

$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
.46
REJECI
BUFP+12
8%
#400,PACK

NOP

SEQ 0047

3
sCHECK LOOP ON ERROR
*DONT' TRY OVER 3 TIMES
;

:TRY AGAIN
:
:ANY ERROR ?
:BR IF ANY
;ON THE LAST CYLINDER ?
:BR IF NOT
:GET LAST TRACK

sMOVE TRACK TO HI BYTE AND SECTOR
sON LAST TRACK AND SECTOR 0
:BR IF NOT
:SERIAL NUMBER SHOULD NOT 0
:BR IF NOT 0
;SECOND WORD OF SERIAL NUMBER
:BR IF ZERO
;THE THIRD WORD MUST BE 0
‘BR IF NOT

IO LO BYTE

;AN ALIGNMENT PACK ?
‘BR IF NOT

:A DATA PACK ?
sBR IF NOT IDENTIFIED
JSET MFG BAD SPOT FILE AVAILABLE FLAG

*DONE

sTHIS CODE INITIALIZES THE BAD16,BAD18,USTAB,USSAV TABLES

90 012532
91 012536
92 012540
93 012544
946 012550
95 012554

012706
005046
012746
012746
012746
012703

97 012564

005023

96 012560

012704

98 012566
99 012570
100 012572

005304
001375
012704

102
103
106
105

010523
005304
001375
012603

101 012576

012602
012604
012606
012610

}89 012612

108
109

001344

:
;
:
4
3
:58:

001324

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

012705

001362

001100

004430
002420
001414
003424
000004

TABINT: MOV
CLR
MOV
MOV
MOV
MOV

#STACK,SP
-(SP)
#USSAV,=-(SP)
#BAD18,-(SP)
#BAD16,-(SP)
#USTAB,R3

28:

(R%)+

1%:

000374

177777

3%:

MOV

CLR

#6 R4

JINITIAL STACK POINT
;TERMINATOR
JUSSAV TABLE ADDRESS
:MFG 18 BIT FILE ADDRESS
:MFG 16 BIT FILE ADDRESS
JUSER BAD SPOT FILE ADDRESS

sFIRST & WORDS SET 10 O TEMPERARY

DEC
BNE
MOV

R4
2%
#252. R4

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

MOV
DEC
BNE
MOV

RS, (R3)+
R&
38
(SP)+,R3

;DECREMENT WORD COUNT
*BR IF NOT DONE
INEXT TABLE

MOV

BNE

#-1,RS

JLOOPING BACK IF NOT TERMINATOR

;THIS CODE LOADS TABLE BAD16,BAD18,USSAV,FROM PACK

(1F

FORMATTED PA(K)

~ CIRMLAO RM05/3/2 FORMATTER
START OF

FORMAT

110

111 012614

112
113
114
115
116
117
118

012620
012622
012626
012632
012636
012640
012642

005737

003451
012702
012703
012704
012223
005304
001375

001404
046000
001414
000400

119 012644

012702

047004

|
,

121 012654
122 012660

012704
012223

000400

|
|
|
1
,

124
125
126
127
128

001375
012702
005737
100402
012702

|
|

130 012710
131 012714
132 012716
133 012720
134 012722

012704
012223
005304
001375
062702

136 012732
137 012736
138 012740
139 012742
}2? 012744

012704
012223
005304
001375
000240

120 012650

123 012662

012664
012666
012672
012676
012700

L. 129 0127064

;

135 012726

012703

060050
000400

000400

012746
012752
012754
012760

005737
003162
005737
003124

001320

105737
001144

001150

151 012770

004737

025576

154 013004

104401

040101

4
i
|

152 012774
153 013000
155 013010

156
157
158
159
160
‘161
162
163
164
165
166

013014
013020
013024
013026
013030
013032
013034
013040
013042
013046
013050

2%:

3%:

48:

5 :

PACK

33
#BUFP+4,R2
#BAD16,R3
#256.,R4
(R2)+,(R3)+
R
1%

SEQ 0048

;BAD SPOT FILE AVAILABLE FROM PACK ?

;BR IF NOT AVALIABLE
;LOAD BAD16 TABLE FIRST
;TABLE ADDRESS
;WORD COUNT
;LOAD THE BAD16 TABLE
;:BR IF NOT DONE

MOV

#BUFP+520.,R2

;258 X 2 + 2 X 2 + BUFP

MOV
MOV

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

;WORD COUNT
;LOAD THE BAD18 TABLE

DEC

BNE
MOV
ST
BM]
MOV

MOV

#BAD18,R3

;TABLE ADDRESS

;DECREMENT WORD COUNT

2%
:BR IF NOT DONE
#BUFP+44<11,.+516.>,R2
:SECTOR 11.
SEC30
:FORMAT IN 16 BIT MODE
38
;BR IF IT IS
WBUFP+4+<10.+516.>,R2
;SECTOR 10.

FUSSAV,R3

MOV
MOV
DEC
BNE
ADD

#256. ,R4
(R2)+,(R3)+
R&
X3
#4,R2

MOV
MOV
DEC
BNE
NOP

#256. ,R4
(R2)+,(R3)+
R&
5%

MOV

6%:

144
145
146
147

187

BLE
MOV
MOV
MOV
MOV
DEC
BNE
MOV

003424

148 012762
}gg 012766

18:

000004

}2§

|
|

fABLD:

061054
001360
004430

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

002420

005304

012703

MACRO v03.01

#USTAB,R3

;LOAD THE USSAV TABLE

;WORD COUNT
:

;ACCESSES THE USTAB BUFFER ADD

;LOAD THE USTAB TABLE

;WORD COUNT
:LOAD THE TABLE
:DECREMENT THE COUNT
:BR IF NOT ALL DONE
JEXIT

;THIS CODE ASK 0.P TO ENTER A SERIAL NUMBER FOR UNFORMATTED PACK

104401
104401

012702

005037
005037
104411
012601
105711
001471
121127
103761
121127
101356
013746

SERNL:

001404

001205
040022
000012

18:

2%:

000067
001414

MODE
6%
PACK
48

:VERIFY ONLY MODE ?
:BR IF YES
;BAD SPOT FILE AVAILABLE
:BR IF AVAILABLE

JSR

PC,STKINT

:INITIALTHE KEYBOARD

1STB
BNE

001414
001416

000060

TST
BGT
ST
BGT

TYPE
TYPE
TYPE

MOV

CLR
CLR
RDLIN
MOV
1STB
BEQ
(MPB
BLO
(MPB
BHI
MOV

$AUTOB
5%

LSCRLF
MESG
, SN1

#10.,R2

BAD16
BAD16+2

(SP)+,R1
(R1)
3%
(R1),#'0
13
(R1),#'7
1%
BAD16,~(SP)

;RUNNING UNDER AUTO MODE ?
:BR IF YES

:TYPE CRLF
=
;"'ENTER TWO WORDS FOR SN
:

sMAXMUM 10 OCTAL DIGITS ALLOWED

:CLEAR THE LSW OF THE SERIAL NUMBER
:CLEAR THE MSW OF THE SERIAL NUMBER
:READ IN THE STRING
:ADDRESS OF THE READ IN STRING
:TERMINATOR OF THE INPUT STRING
:BR IF IT IS
;LESS THAN ASCIZ 0 ?
;ENTER AGAIN IF 1T IS
:HIGH THAN ASCIX 7 ?
;ENTER AGAIN IF SO
:SAVE THE LSW

' CZRMLAO RMOS5/3 42 FORMATTER
—-=O0000O0—
NOOOOOO
N
e e s e O
NSO
N
e s it e O
orrrrro

001414

ASL
BM]
ASL

BAD16+2
1%
BAD16+2

ASL

BAD16+2

MOV
ASL
ASL
ASL

(SP)+,BAD16
BAD16
BAD16
BAD16

MOVEB
BIC

(R1),R$
#177770,R3

BIC

177770
001414

ADD
INC

DEC
BNE

1STB

001414

3%:

002420
003424
004430
003426
004432
002422

NNN

= WWWWNWWWO
NO N~ —
O NNNNNNWVINWNW
-

BAD16
BAD16
BAD16
BAD16
BAD16

BMI
ADD

001414

4$:

BNE
1ST
BNE

003424

;CLEAR THE SIGN BIT OF LSW
;ROTATE THE LSW FIVE TIMES

:T0 MOVE THE MOST SIGN DIGIT
;TOBIT O TOBIT 2

;LEFT ON THE MS DIGIT OF THE LSW

;SHIFT THE MSW

FREEEE
or

NN
Wl
W

— —d h

OO0O0O00O

— e

025576
001150

CALIN:

1%
BAD16,BAD16+2

#BIT15,BAD16

R3,BAD16
R1

R2
2%

(R1)

APPENDING THE DIGITS INTO MSW

RESTORE THE LSW

“SHIFT THE LSW LEFT ONE OCTAL DIGIT

sCLEAR THE SIGN BIT
sLOAD THE CURRENT READ IN DIGITS
;LEFT ONLY ONE OCTAL DIGIT
;APPEND THE READ IN (HARACTER TO LSW
;ADJUST THE READ IN STRING ADDRESS
;DECREMENT ONE DIGIT COUNT
:BR IF NOT DONE

1%
BAD16
4%

:1F 10 DIGITS HAVE BEEN ENTERED
:MUST BE FOLLOWED BY <(CR>
:SERIAL NUMBER MUST BE NOT 0
:BR IF NOT 0

*ENTER AGAIN IF 2ERO

MOV
MOV
MOV
MOV
MOV
MOV

BAD16,BAD18
*LOAD ALL TABLE WITH THE SERIAL NUMBER,
BAD16,USTAB
BAD16,USSAV
BAD16+42 ,USTAB+2
BAD16+2,USSAV+?2
BAD16+2,BAD18+2
6%

JEXIT

INC
INC
INC

USSAV
BAD16
BAD18

;CODE FOR AUTO MODE APT,ACT,ETC.

USTAB

. DONE

NOP

0460415
041204

NOP

JSR

$AUTOB

TST

$Cow1

TYPE

MSGBLK

BEQ
1%:

2%:

PC,STKINT

1STB

BNE

001270

LEFT ONE OCTAL DIGIT

;ENTER AGAIN IF SIGN BIT SET

BAD16+2

INC

6%:

#177770,BAD16

SEQ 0049

TST

BEQ

5%:

#BIT15,BAD16

ROL
ROL
ROL
ROL
ROL

BIC

p—y

BIC

001416

001414

BMI

(V]
i~
N

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

sTHIS CODING TO PROVIDE UTILITY ROUTINE

PONIPUND o e s e e s e e

—

W= OOVRNO
VS
WN—=O

209 013314
rororonsrororRoNONORON
RO ~N NN

o WWWNWWNWNW
=N
N

oo~ ON

202 01
203 0
204 01
205

NN
N N N N N
NN
NNOWSs SN

167 013054
168 013062
169 013066
170 013072
171 013076
172 013102
173 013106
174 013114
175 013120
176 013122
177 013126
178 013130
179 013134
180 013136
181 013144
182 013150
183 013154
184 013160
185 013164
186 013172
187 013174
188 013200
189 013204
190 013206
191 013210
192 013212
193 013214
194 013216
195 013222
196 013224
197 013230
198 01
199 01
200 01
201 01

(==l =l=l=]
OCOO0O0O
oo
NWWWNWO N NWNWNWNN
=
s s
©O L U U U N NN NN W N N N N NN N NN
WNNNNNNUWNO N NNNNNNNN

FORMA

00O
8000°°°OO
—h e
et et = O
OOO

START OF

MACRO v03.01

TYPE

LMUTLTY

ENTRIES

sINITIALIZE THE KEYBOARD
sAUTO BYTE SET ?
:1F SO, BRANCH
+ALLOW ANY UTILITY ROUTINE ?
:BR IF NOT
sENTER MESSAGE BLOCK
sTYPE UTILITY MESSAGE

Ot
ed s e OO =
—=OO0OONON—O
NS 5NN
= oM S~

WWWMNN—‘-flg
OO SO

ei=l=lelolololelelelelelelalelelolat] oo

VNN NN

S SN NN NN N N NN

VS WNN=OO0VONO VS WN—=OVO~NoOWBWSs

>
O=

DS LN LT ST NT NT NT ST NT NTNT.NT NT,87 ¥
Il

we
—~

/2 FORMATTER

0427
000747
104401
022737
001737
005037
005037
005037

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

001174
000060

001174

000064

001174

RDCHR
MoV

CMP
BHI
CMPB
BLO
TYPE

001174
001205
001174
177760

001364
001366
001346

0,$TMPO

3%:
001174

4%:

JSR
_BR
TYPE
CMP

BEQ
CLR
CLR
CLR

;BR_IF SO

:INPU; ggflBER LARGER THAN 4 ?

:TYPE CHARACTER
s CR=LF
sGET NUMBER
;LEFT OF THREE BITS
;WORD INDEX
;CALL THE DESIRED UTILITY ROUTINE
:LOOP BACK TO THE SAME POINT

+SCRLF

sCR=LF

BIC

ASL

sREAD IN THE ROUTINE NUMBER
;ADDRESS OF INPUT BUFFER
: INPUT NUMBER LESS THAN 0 ?

:BR 1

TYPE
MOV

006120
001205
000065

P)+,$TMPO

SEQ 0050

PC,aTABCAL(R1)

#'5,$TMPO

1%
DS.CYL
DS.TRK
SAVSEC

;TYPE WHOLE MESSAGE AGAIN ?
:BR _IF YES
sCLEAR ALL PARAMETERS

CIRMLAO RMO5/3/2 FORMATTER

' START OF FORMAT

MACRO v03.01

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

SEQ 0051

2 013462

ST1:

:THIS CODE SETS UP THE SELECTED DATA PATTERN TO BE WRITTEN ON EACH

:'t't'ttttt't_-lltt'nQ't't't"""t'ttt'l"'l'."'t'tttt.ttt't""'

:SECTOR IMAGE

7 013462
8 013464
18 013472

000240
012737
005037

11 013476
12 013502
13 013506

005737
001432
002402

.}g 013506

16
17
18
19
20

013512
013516
013522
013526
013530

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

020302
177776
001320

000137

015550

005037
005037
005737
001420
012737

001340
001342
001336

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

000060

1%:

2%:

001340

066666
066666
001352
045774
001340
001342

001340
001342

001342
001336

41 013632

42 013640

43 013644
4, 013646
*S 013652
+5 013660
47 013664
48 013666
49 013670

gg 013674

5%:

CLR
CLR
TST
BEQ
MOV

MOV
CMP
BEQ
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
DEC
DEC
BNE

#O.ENTR,O#TKVEC ;VECTOR FOR CONTROL=0
PS
;PRIORITY = 0
MODE
3%
2%

HDREAD

PATA
PATB
PATSEL
3%
#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%

;CHECK MODE ?
JYES
:NO, FORMAT & VERIFY
;NO,

VERIFY ONLY

:CLEAR DATA PATTERN A
:CLEAR DATA PATTERN B
sSEE IF PATTERN OF ONES
:sBR IF SO
;PATA = AB

:PATB=(D
;SEE IF PATTERN OF ZEROS
:BR IF SO
:SET UP WORST CASE
:SET UP WORST CASE
sSET UP COUNTER
;SET UP MEMORY POINTER
:SET UP PATTERN IN R]
:SET UP PATTERN IN R2
:MOV 1ST PAT INTO MEM
:MOV 2ND PAT INTO MEM
;KEEP COUNT
:KEEP COUNT
;DO IT AGAIN IF R3 NOT 0

;THIS CODE SETS UP FOR THE ACTUAL FORMAT
004737
004737

017352
017556

112737

000020

005737

001002
105037
112737
004037
005540
000774
005737

001775

001360

005541
000143
030622

WRTRK:
005541
:
005542
_

005556

JSR
JSR

PC,SETTBL
PC,SETHDR

;G0 SET UP DRIVER TABLE
;G0 INITIALIZE HEADERS IN THE SECTOR BUFFER IN CORE

MOVB

#20,FMTDPB+1

:LOAD FMT16 BIT

BNE
CLRB
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%
;QUEVE FULL RETURN
FMTDPB+16
:LOOK FOR DONE

18:
28
:
3%:

5¢ 013676
55 013704
56 013706
57 013714

3%:
48:

i?
38 013622
23 013626

ST
BEQ
BLT

JMP

177777

177777
000001

SELPAT: NOP
MOV
CLR

BEQ

SEC$0

118 BIT MODE ?

;LOOP UNTIL FINISHED

;SET UP SECCU TABLE: BAD SPOT ON CURRENT TRACK ,RETRIEVED FROM PACK

023727
103406
123737
103402

005552

001466

005551

001324

WRTRKX: CMP
BLO
(MPB
BLO

FMTDPB+12,#822.
1%
FMTDPB+11,LSTRK
1%

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

' CZRMLAO RM05/3/2 FORMATTER
' START OF FORMAT

58 013716
59

MACRO V03.01

SE@ 0052

015536

005434
000040
177777

N 4

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

1%:

2%:

JMP

WRTRKZ

:DON'T DESTROY LAST

MOV

#SECCU,R3
#32. R
#=1.R2
R2,(R3)+

;INITILIZE THE SECCU TABLE
:TOTAL 32 WORD MAX
*LOAD ALL LOCATION T0 =1
;

:BR IF NOT DONE

MOV
MOV

MOV

DEC
BNE

Ré

TRACK ON CyL 822.

002420

NS S =2NWVWNVONO
N~
VOO—-=0OO0ONOOOO N= W WWNWWNO
NN

(=4 ="
RORS
S
=
SNSS
[« T 2
v OWONOO — (-

w NN o
~N

o~ 5885

o 000000
o

WRTRKY:

003434
001414
001360

g ~ Ng’\fi\flm“

~
oNO
SO SNVO
S

N N NN

~ ~ NNNNNNSN

001404

000776
0056434
000076
000210
005552

MOV
MOV
TST
BMI

1%:

2%:

005551

000002

000004

TST

BLE
CLR

3%:

MOV

ADD
MOV
MOV
ADD
ADD

CMP

BNE
CMPB
BNE
MOovB
MOV

ADD

PACK

:BAD SPOT FILE AVAILABLE AT ALL

-(SP)
NUSTAB+8.,=(SP)
#BAD16,R2

:CLEAR UP THE DUMMY RETURN ADDRESS
;USER BAD SECTOR TABLE
:R2 POINTER OF MFG BAD SPOT TABLE

1$
#BAD18,R2

‘BR IF
3

#SECCU,R3
;gzfiank

:TABLE ADDRESS
:LAST ADDRESS OF THE TABLE

#10,R2

:BAD SPOT STARTS FROM THE STH WORD OF THE FILE

. 6%

SEC30

§§i31 o

FMTOPB+12,(R2)
3%
FMTDPB+11,3(R2)

2(R2) ,RS

RS, (R3)+

:1F

18 BIT MODE CHANGE POINTER
16 BIT MODE

‘R1: LAST ADDRESS OF BAD SPOT TABLE

:BAD SPOT ON THIS CYLINDER ?
sBR IF NOT
:ALSO, ON THE SAME TRK ?

‘BR IF NOT

:BAD SECTOR

‘WORD STORAGE

JSR
MOV

PC,RESTRT

: IMPROPER MFG INFORMATION

TABINT

SAND START AGAIN

1
102
10°
104
102
110
103
112
1
114
1
1
107
108
109 014116
110 014122
m 016123
112 01413
113 014136
114 014140

5%:

MOV

6%:

BNE
NOP

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

—t

4%:

OO0O0O0O0
e 3 =B b

5%
R4 ,R3
4$

*ADVANCE TO NEXT SET
*ALL SPOT ARE CHECKED ?
:BR IF IT IS
SEND OF SECCU TABLE ?
TREJECT THE PACK

CMP
BLO
CMP
BLO
BR

JMP

ADD
MOV

#4.R2
R1.R2

:BR IF NOT

OO0
P

Vo~

VIS NN = OO0 NO VS WD

OO0O0O0O0OCOO0O0OOVOOOOOOOOOOO0OO
) d D o ) e D D D D d o D D D b b d b b B b > b s —D

:LOAD THE BAD SPOT INTO SECCU TABLE IF ANY

#-1,PACK

:LOOPING BACK

*RESET MFG FILE AVAILABLE FLAG
:NEXT TABLE
‘ENDING OF THE TABLE
:BEGINNING OF THE TABLE

:ggnéf NOT DUMMY ADD

;THIS CODE SORTS THE BAD SECTOR TABLE ''SECCU'

sAND DELETES THE DUPLICATED ONES

SORT1:

1%:

MOV

MOV
MOV

CMP
BEQ
CMP

!N ASCENDING ORDER

#SECCU,R2
#SECCU+62.,R3

:TOP OF THE TAB.E
;BOTTOM OF THE TABLE

;BR_IF

#31.,R4
#-1,(R2)

(R2) ,2(R2)

sTCTAL 32 ELEMENT,SORT 31
:1S THE TABLE EMPTY ?

IT IS, QUICK EXIT

N TH ELEMENT

N+1

TIMES
i

TH ELEMENT

' CZRMLAO RMO5/3/2 FORMATTER
| START OF

FORMAT

115 014144
116 014146
117
118 014150
119 014152
120 014156
121 014162
12% 0164164
123 014170
124 014172
125 017174
126 014200
127 016204
128 014210
129 014212
130 014220
131 014222
132 014226
133 014226
134 014232
135 014234
136 014236
137 014240
138 014242
139 014246
140 014252
141 014256

103430
001406
011246
016212
012662
000421
022712
001416
010246
062702
016222
0227 g
1013
012737
012602
005304
001416
062702
020302
001341
005304
001410
012702
162703
022703
001401

000002
000002
177777

177777

005532

48:
5%:

005434
000002
005434

005037

005536

146 014270
147 014274

005037
005037

001316
001344

105037
013757
012737

3%:

000002

000727
000240

148 014300
149 014304
}2? 014312

2%:

000002
000002
005532

14; 014360
143
014262

}:g 014264

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

005550
001354
045774

6%:
WRTRK1:

022737
001003
104401

040373

159 014336
160 014344

113737
012701

005536
005434

162 014354

001513

164 014362
165 014364
166 014370
167 014372
168 014376
169 014400
170 014402
171 014406

001403
062701
000767
123711
001417
103403
104401
000000

161 014350

163 014356

MOV
MOV
MOV
B
CMP
BEQ
MOV
ADD
MOV
CMP
BHI
MOV
MOV
DEC
BEQ
ADD
CMP
BNE
DEC
BEQ
MOV
SUB
CMP
BEQ

(R2),=(SP)
2(R2),(R2)
(SP)+,2(R2)
4
#-1,(R2)

(SP)+,R2
R4
3
#2.R2
R3,R2
1%
R&
6%
#SECCU,R2
#2,R3
#SECCU,R3
6%

CLR

CLR
CLR

SOF SW
RETRY
FMTDPB+10
MWC,FMTDPB+4

i
NOP

R2,=(SP)
#2.R

2(R2),(R2)+

#SECCU+62.,R2
38
#-1,SECCU+62.

#BUFP,FMTDPB+6

;BR IF SMALLER
sDELET N+1 TH ELEMENT, IF SAME
;OTHERWISE, N > N+1
sSTORE N ELEMENT
sSWITCH N+1 ELEMENT TO N ELEMENT
sSWITCH N ELEMENT TO N+1 ELEMENT
sADJUST TOP POINTER
:TERMINATOR ?
:BR IF IT IS
;SAVE TOP POINTER
:DELET 2(R2)
3
:BOTTOM OF THE TABLE ?
:BR IF NOT
;LOAD =1 TO TABLE BOTTOM
;RESTORE THE TOP POINTER
;DECREMENT ONE ELEMENT COUNT
:BR IF ALL DONE
:INCREMENT THE TOP POINTER
;REACH THE BOTTOM ?
:BR IF NOT
;DECRCMENT ONE SORT (OUNT
:BR IF ALL DONE
:RESET TOP PCINTER
;UPDATE BOTTOM POINTER
:EXIT IF TOP = BOTTOM
:

;SORT THE REST ELEMENTS
:DON

:FLAG,START OF A NEW TRACK
:CLEAR ERROR COUNTER
slERDO THE RETRY COUNTER

;RESTORE SECTOR
:RESTORE W(
;RESTORE BA

;THIS CODE TO SET UP WORD COUNT AND BUFFER ADDRESS

154 014320
155 014326
156 014330

}gz 014334

43
2%

CLRB
MOV
MOV

005544
005546

}g%

BLO
BEQ

SEQ 0053

000000

022711
032711

177777

005536

WRTRKA:

005550

18:

2%:

;END OF OPERATION ?
:BR IF NOT

MOVB
MOV

NEXT,FMTDPB+10
#SECCU,RI

;STARTING SECTOR
:R1 POINTS TO THE BAD SECTOR TAB-E

BEQ

WRTRKD

:BR IF

BEQ
ADD
BK
(MPB
BEQ
BLO
TYPE
HALT

33
2./
2%
FMTDPB+10,(R1)
WRTRKB
I3
JMHALT

:BR IF NOT
:ADJUST THE POINTER
:LOOPING SACK
:BAD SPOT = STARTING SECTOR ?
:BR IF IT IS
;BR IF START SEC < BAD SPOT

CMP

BIT

000002

040373

#-1,NEXT
1%
JAHALTY

MALT

100000

005550

CMP
BNE
TYPE

3%:

#-1,(R1)

#BI1T15,(R1)

;OTHERWISE SOMETHING WRONG *eesvese

:END OF TABLE ?
IT IS

:THE BAD SECTOR HAS ALREADY ACCESSED ?

;OTHERWISE

, SOMETHING WRONG

014410
014412
014416
014429

17§
173
174
175
176
177
178
179

014422
014426

N=NN

C 4 RMLAO RMO5/3 42 FORMATTER
S 1 ART OF FORMA

180 014430

525 014616

226 014620
227 014624
228 014630

005536
100000

WRTRKB:

100000

005550
001362

OO0O0O—
W00
NOWVWIWN-—

s 82385

-0
=
v
wo
W
WS NNVVWNNIWNN

sus

ASL
MOV
MOvB
ASL

006232
000402

suB

ADD
NEG
MOV

005544

00623 2
5
005550

005536

:BR IF LAST SECTOR
:BR IF LESS
:BR IF IT IS
sNEXT = BAD + 1

we
R2 NEXT

#BIT15,(R1)+
WRTRKC

FMTDPB+10
#BIT15,(R1)+
FMTDPB+10,
(R1)

WRTRKF: MOV

BIS
DEC
BR

;NEXT BAD SPOT

IS THE LAST SECTOR?

sNEXT STARTING ADDRESS
;MARK THE ACCESSED SECTOR

;70 SET UP WORD COUNT

; INCREMENT THE STARTING SECTOR
:MARK

THE ACCESSED SECTOR

:STILL ON ANOTHER BAD SPOT ?

WRTRKB
:LOOP AGAIN
fi:TDPB‘lO.HA!SEC
:1F START SECTOR > MAXSEC
PC,RESTRT

#-1,PACK

WRTRKD

WRTRKC: MOV

006232
005550

WRTRKF
WRTRKD
WRTRKD

CMP
BEQ

MOV

005536
000002

sUPDATE NEXT STARTING ADDRESS

TABINT
HSET

BIS

SEQ 0054

(R1),R2

MAXSEC,R2

MOV
JMP
JMP

BLOS
BEQ
BLO
INC

005536
100000

177777
001362

INCB
BIS
CMPB
BEQ
CMPB
BLOS
JSR

MOvB
CMP

001362

177777
100000

CMP
BEQ
BLO
BLOS
INC

BIS
BR

005550

MOvB

MOV

77777

200 014506
201 014510
202 014512
203 014516
204
205 014522
206 014526
207 014532
208 014534
209 014540
210 014544
211 014546
212 014552
213 014556
214 014560
215 014564
216
217 014566
218 014574
219 014600
220 014602
221
222 014604
2%2 014612

(A ¥

001362

015450

184 014442
185 014446
186 014452
187 014454
188 014462
189
190
191
192 014464
193
196 014470
195 014474
196 014476
197 014500
198
199 014504

NNty

181 014434
182
183 014436

MACRO v03.01 11-APR-80 13:01:23 PAG& |3°3

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

R2,NEXT
#BIT15,(R1)

NEXT,R2

#2,RS

R2
WCTBL(R2)
,R3
;310P8010.R2
WCTBL(R2)
,R3
#258. ,R3
R3
R3,FMTDPB+4
WRTRKE
#=1,NEXT
#BIT15,(RY)

: IMPROPER MFG INFORMATION

:START AGAIN AND REBUILD FMG FILE
:RESET THE MFG FILE AVAILABLE
;25?}ART POINT

FLAG

;TO SEE IF NEXT BAD SPOT IN TABLE
;BR IF NONE

JUPDATE THE NEXT

;BAD SECTOR IS THE LAST SECTOR ?
:BR IF IT IS

:BR IF LESS
sBAD SEC +1
sNEXT STARTING ADDRESS

sMARK

THE

ACCESSED SECTOR

sCALCULATE THE WORD COUNT
;ENDSECTOR = NEXT = 2
sWORD INDEX
: WORD CTR FOR SECTOR O TO ENDING SECTOR
sSTARTING SECTOR
;WORD INDEX
;WORD COUNT FOR SECTOR O TO STARTING SECTOR
sADJUST ONE SECTOR
sGET TME NEAGTIVE WORD COUNT
sLOAD THE WORD CTR INTO DPB
sLOAD THE STARTING ADDRESS
sALL DONE

WRTRKH

JMASK THE SECTOR
JPATCH FOR THE LAST
sPATCH
‘

WRTRKD: MOV
MOV

#-1,NEXT
MAXSEC,R2

:NO MORE BAD SPOT
sLAST SECTOR

WRTRKN: ASL

R2
WCTBL(R2)
,R3

:WORD INDEX
;WORD CTR FOR THE ENDING SECTOR
:STARTING ADDRESS
:WORD INDEX

MOV
MOVB
ASL

;310P8'10.R2

SECTOR

CZRMLAO RHOS/S{Z FORMATTER

START OF

FORMA

MACRO v03.01 11-APR-80 13:01:23 PAGg. 13-6

229 014632

166203

006232

SUB

231 014642
23% 014644
%g‘ 014650

005403
010337
000240

005544

235 014652
236 014656
ggz 014660

113702
006302
016237

005550
006132

005546

239 014666
+ 112737
260 014676 012737
261 014702 012706

000163
014674
001100

005542
001124

230 014636 06%70% 000402

262 014706

263 014712
264 0147164
245 014716
266 014722
247 014724
268 014726
249 014736
250 014740
251 014742
252 014744
253 0147646
254 014750
255 014752
256 014756

257 0164760
258 014766
259 014770
260 014776
261 014776
ggg 015002

004037

005540
000774
005737
001775
100024
012737
004737
104010
104011
104012
104013
104014
104015

004737

022737
001403
005237
000744
005037
005037

ADD

NEG
- MOV
NOP

030622

014756
017204

017304

000003

112737
012737
012706

269 015032

005540

27 015036
272 015042
273 015044
274 015046
275 015054
276 015056
277 015064
278 015070
279 015074
280 015102
281 015106
282 015110
283 015112
284 015114

3s:

48:

JSR

FMTDPB
BR
ST
BEQ
BPL
MOV
JSR
EMT
EMT
EMT
EMT
EMT
EMT
JSR

CMP
BEQ
INC
BR
CLR
CLR

RO,RMOS

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

160 FORMAT A TRACK

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

:LOOP ON THE ERROR ?

*ERROR RETRY LIMIT ?
‘BR IF REACHED
:COUNT THE ERROR
STRY AGAIN
:CLEAR ERROR ESCAPE ADDRESS
*CLEAR THE RETRY COUNTER

;CHECK THE TRACK JUST WRITTEN

266 015006
267 015014
015022
270 015034

WWRTHD,FMTDPB+2 :SET WRITE WEADER & DATA COMMAND IN TBL
#.,SLPERR
;SET UP LOOP ON ERROR ADDRESS
#STACK,SP
:LOAD STACK POINT

001344

%gg

268 015026

WRTRK2: MOVB
MOV
MOV

001176

001176
001344

*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

R
R3,FMTDPB+4

:WORD CTR FOR THE STARTING SECTOR

*ADJUST ONE SECTOR

WRTRKE: MOVB
ASL
MOV

18:

005556

WCTBL(R2),R3

I3 sa..n%

SEQ 0055

004037
000774

005737
001775
100131
113737
001005
013737
oosgsr
005337
012737
004737
104010
104011
104012
104013

000153
015014
001100

005542
001124

030622

CKTRK:

18:

005556

2%:

005566

001346

001362
001346
001346
015376
017204

001346

001176

MOVB
MOV
MOV

JSR

FMTDPB

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

#WCKHD,FMTDPB+2 :SET WRITE CHECK HEADER & DATA COMMAND IN TBL
#..SLPERR
SSETUP LOOP ON ERROR ADDRESS
#STACK,SP
:LOAD STACK POINTER

RO,RMOS

160 CHECK THE TRACK JUST FORMATTED

:WAIT FOR QUEUE IF

:ADRS OF PARAMETERS - TBL
FULL

FMTDPB*16
:WAIT FOR COMMAND TO COMPLETE
2%
‘BR IF NOT DONE
98
: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 FAILED
#118,SESCAPE
::ESCAPE TO 118 ON ERROR
PCERINDX
JSEE WHICH ERROR
10
1
12
13

CIRMLAD RMO5/3 42 FORMATTER
O—-=O00O0—
O WO
W

040000

EMT

005570

OC==O
WS

OO
OfH
—

—-O—-00

=W
~~o

A OO0 —-O— O—'g Og—'OOOOOO—'
®
3
»

NOWO
WWO

001316

015422
020570
100000

021416

001176
040000

4%:

001176

006132
001362
005536

005550

5%:

7%:

8%:

9%:

001316

005550

001344

::ESCAPE TO 128 ON ERROR

:RESET THE USER BIT

:RESET THE MEADER BITS

$ESCAPE

:RESET ESCAPE ADDRESS

6
24

:BR IF

#ERR,RM.REG+RMDS

;DATA ERROR

IT IS

; CONTINUE

20
SAVSEC,R1

;FAILING 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 SECTOR #
‘WHOLE TRACK DONE

‘BR IF

IT IS

NEXT,R1
#2,R1
R1
WCTBL(R1),R2
FMTDPB+10,R1
R1
:STBL(R\).RZ

:LOAD CURRENT ENDING SECTOR
*ADJUST TWO SECTORS
:WORD INDEX
:WORDCTR FOR ENDING SECTOR
:STARTING ADDRESS
*WORD COUNT
:WORD CTR FOR STARTING SECTOR

R2, SAVMC

:SAVE THE WORD COUNT

SOF SW
WRTRK2
SOF SW
12%
#2,S0FSW

:INDICATE THAT A RETRY
*REFORMAT ERROR SECTOR
:RETRY IN PROGRESS ?
:BR IF NOT
‘SEE IF LAST RETRY

10§

108:

017530
001316

001344
015026
001176

:RECORD THE BAD SPOT

‘BR IF NOT

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

005544

001316

017304
000003

PC,RECORD

006232

001362

:RETRYING THE SECTOR ?

006232
005550

000002

SOF SW
5s

7;.&5551

005546

005536
000002

001350
177376
001316
014666
001316

:BR IF SET

#BIT15,HEADX

6%:

001346
001346

;WRITE CHECK ERROR ?

#128,8ESCAPE

001410

005572

14
#WCE ,RM.REG*RMCS2

SEQ 0056

43
:BR'IF SET
RM.REG*RMER
(PC)+
Y,
:CHECK FOR DATA ERRORS
DCK'OP1'DTE'HCRC'HCE'FER
:DATA ERROR BITS

005574

O -, OO
—

285 015116
286 015120
287 0151%6
288 015130
289 015134
290 015136
291 015140
292 015142
293 015146
294 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 015224
307 015232
308 015234
309 015242
310 015246
31 015%52
312 015254
313 015260
314 015264
315 015266
316 015272
317 015276
318 015300
319 015304
320 015306
321 015312
322 015320
323 015324
324 015330
325 015334
326 015336
327 015344
328 015346
329 015352
330 015354
331 015362
332 015364
iSS 015370
34 015374
335 015376
336 015402
337 015410
338 015412
339 015416
340 015422

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

START OF FORMA

11%:

:BR IF IT IS

SOF SW
- INCREMENT RETRY COUNT
s
*READ AGAIN
MAXSEC,FMTDPB+10°
;SEE IF LAST SECTOR ON THE TRACK
128
:BRIF IT IS
PC,SCAWC
:SETUP TO CHECK REMAINING SECTORS ON THE
SOF SW
:CLEAR RETRY COUNTER
1%
SFINISH CHECKING THE TRACK
PC,LOP.CK

:CHECK FOR LOOP ON ERROR

126

‘BR IF IT IS

1%
$ESCAPE

:DO THE WRITE CHECK AGAIN
:CLEAR THE ERROR RETURN ESCAPE ADDRESS

#3 RETRY
RETRY

12%:

IS IN PROGRESS

*ERROR RETRY REACHED ?

SCOUNT THE RETRY

TRACK

CZRMLAO RMO5/3/2 FORMATTER

370
3N
372
372

WAt O et et s O N
NSO N

3641 015426
342 015432
3643 015436
364 015442
3645 015444
346
347 015450
348 015456
349 015460
350
351
352 015464
353 015472
356 015476
355 015502
356 015504
357 015510
358 015512
359 015516
360 015522
361 015526
362 015532
363 015534
364
365 015536
366 015542
367
368 015544
369

NNNNN

FORMAT

S NOWON)
— —

START OF

MACRO v03.01 11-APR-80 13:01:23 PAGEf 13-6

001344
001316
005536

CLR
CLR

TST
BMI
JMP

014320
000002

163476

HSET:

013676
0460000
005434

001410

177777

1%:

2%:

040000
040000
001346
021416
000002

3%:

017426

000137

013676

WRTRKZ:

SOF Sw
NEXT

WRTRKA
#BIT1,aSwWR

JMP

WRTRKX

MOv
MOV
CMP

#BIT14 HEADX
#SECCU,R4
5;1.(R4)

BEQ
BIT
BNE
BIS

MovBs

A ¥

004737
000402

BIT
BEQ

RETRY

JSR

ADD

NOP

#BIT14, (RG)

#BIT14,(R4)
(R&4) ,SAVSEC
PC,RESET
#2,R4

JSR
BR

PC,TRKTST
HDREAD

JMP

WRTRKX

SEQ 0057

;CLEAR THE RETRY COUNTER

;CLEAR THE SOF TWARE RETRY COUNT
sWHOLE TRACK DONE ?
:BR IF

;LOOP ON CURRENT TRACK ?
;sBR IF NOT

sSTART AGAIN ON THE SAME TRACK

JRESET THE HEADER WORD OF ALL MFG
sDEFINED BAD SECTOR
JRESET THE MFG BIT OF THE 1ST HEADER WORD
sTABLE FOR BAD SECTOR ON CURRENT

END OF TABLE ?
:BR IF SO
sHAS THE SECTOR BE ASSCESSED ?

TRACK

;BR IF SO
sMASK THE SECTOR TABLE

sSECTOR ADDRESS
sRESET THE HEADER
s INCREMENT |HE TABLE POINTER
:LOOPING BACK
sALL DONE
;GET UPDATED TRACK AND CYLINDER ADDRESSES

;RETURN HERE IF DONE
sAND DO QUICK CHECK OF

DISK

;CONTINUE WITH THE FORMAT

:THIS CODE MAKES SURE EACH CYLINDER FORMATTED CONTAINS THE
:PROPER CYLINDER ADDRESS. THE PROGRAM |S LOOKING FOR

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

005737

015
015
015

1046403

—

374 015550
375 015554
376 015556
377 015564
378 015566
379
380 015572
381 015574
382 015600
383 015602
384 015610
385 015616
386
387 015622
388 015626
389 015630
390 015634
391 015636
392 015642
015642

001320

066666

HDREAD:

001340

016342

L
ROR
BCC
BIS

001340
100000

001340
013462
001320

000402

037600

013746

001222

001
000

001340
001342
1%:

1%
#066666,PATA
- +6
$EOP

PATA

.+10

#BIT15,PATA

:figecx MODE ?

*PATTERN HAS BEEN ROTATED TO WORST CASE ?
JEXIT

sCLEAR THE CARRY BIT
JROTATE PATTERN

sSET SIGN BIT IF CARRY=1

;FROM BIT 0

PATA,PATB

sSET BOTH PATTERN
JCONTINUE THE VERIFY OPERATION

TST

MODE

;"FORMAT',

BGT

TYPE

2%:

MODE

MOV

JMP

037537

104401

151
BNE
CMP
BNE
JMP

MSVER

;TYPE

DRIVE,=(SP)

;sSAVE DRIVE FOR TYPEOUT

§s

MOV
TYPOS

.BYTE
.BYTE

MSQVER

TYPE

'CHECK' OR VERIFY MODE

:BR _IF "VERIFY ONLY' MODE
;TYPE "STARTING QUICK VERIFICATION'

'STARTING VERIFICATION'

s TYPE

DRIVE NUMBER

s3TYPE

260 TYPE--OCTAL ASCII
DIGIT(S)

. sSUPPRESS LEADING ZEROS

START OF

FORMAT

393 015652
394 015656
395 015662
396 015666
397 015672
398 015676
399 015702
400 015706

104401
005037
004737
004737
012700
012701
010137
112737

001205
001356
017352
017556
045774
106174
005546
000173

403 015726
404 015732
405 015734

001320

289 015742

005737
003005
012737
005237

408
409
410
411
612
413

015746
015754
015760
015762
015764
015770

616
417
418
419
420
421

424
425
426
427
428

401 015714
LO% 015722

013737
005037

001354
001322

MACRO v03.01

6$:
005542

005544

58:

012737
004037
005540
000774
005737
001775

015746
030622

001124

683:
7%:

015774
016002
016006
016010
016012
016014

012737
004737
104010
104011
104012
104013

016170
017204

016020
016026
016030
016036
016040

032737
001426
022737
001411
032737

040000

005572

000200

005574

000400

005574

430 016050
431 016056
432 016060
433 016062
434 016066
zgg 016070

022737
001406
104021
005037
104022
004737

100000

005622

437 016074
438 016076
439 016102
440 016104
441 016110
462 016114
463 016120
444 016126
445 016130
229 016132

000240
005737
001714
052711
011037
011137
023737
001402
104023

448 016134
449 016140

005737
003451

z}g 015772

2%% 016016

429 016046

005556

100044

8$:

001176

017304
108:

001322
140000
045770
045764
045764

11%:

045770

000416

001320

12%:

+SCRLF
HEDERR
PC,SETTBL
PC,SETHDR
#BUFP,RO
#BUFV,R1
R1,FMTDPB+6
#ROHD,FMTDPB+2

;CR=LF
;CLEAR HEADER CHECK ERROR INDICATOR
;60 SET UP DRIVER TABLE
;GO SET UP HEADERS IN CORE
;GET STARTING ADDRESS OF EXPECTED HEADERS
;GET STARTING ADDRESS OF RECIEVED HEADERS
:SET UP BUFFER ADDRESS
;SET UP-READ HEADER £ DATA COMMAND

MWC,FMTDPB+4
SNGSEC

MODE
6%
#-2,FMTDPB+4
SNGSEC

;VERIFY MODE ONLY ?
:BR _IF YES
;SETUP WORD COUNT FOR QUICK VERIFY
;SETUP SINGLE SECTOR READ

MOV
JSR
FMTDPB
BR
18T
BEQ

¥. SLPERR
RO,RMO5

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

MOV
JSR
EMT
EMT
EMT
EMT

#13%,SESCAPE
PC,ERINDX

EMT

11
12
13
14

BIT
BEQ
CMP
BEQ
BIT

WERR,RM.REG+12
11%
#HCE ,RM.REG+14
9%
#HCRC ,RM.REG+14

1ST
BGT
MOV
INC

BNE

9%:

SEQ 0058

MOV
CLR

BPL

104014

001005

TYPE
(LR
JSR
JSR
MoV
MOV
MOV

MOvB

005544

177776

001322

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

CMP
BEQ
EMT
CLR
EMT
JSR
NOP
TST
BEQ
BIS
MOV
MOV
CMP
BEQ
EMT

7$
FMTDPB+16
8%
1%

;

#BSE ,RM.REG+42
108
21
$ESCAPE
22
PC.LOP.CK

:SETUP WORD FOR VERIFY ONLY MODE
;SETUP MULTI-SECTOR READ FLAG

;BR IF NOT ERROR

;;ESCAPE TO 13$ ON ERROR
;SEE WHICH ERROR
;DRIVE OFFLINE
sPERSISTENT DRIVE UNSAFE ERROR
sUNCORRECTABLE MASSBUS PARITY ERROR
: SOFTWARE TIMEOUT

;DRIVE UNSAFE ERROR

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

YES

;BAD SECTOR ERROR ?
:BR IF YES

;CLEAR THE ERROR ESCAPE ADDRESS
’
sCHECK FOR LOOP ON ERROR
sALREADY READING SINGLE SECTORS ?
:BR_IF NO
sSET MFG AND USER SECTOR GOOD BITS
sGET EXPECTED CYLINDER HEADER
;GET RECIEVED CYLINDER HEADER
+SEE IF CYL READ EQUALS CYL EXPECTED
:BR IF CYL CORRECT

SNGSEC
5%
#MF LUF, (R1)
(RO) ,RBUF +4
(R1) ,RBUF
RBUF ,RBUF +4
12%
23
13%

ST
BLE

MODE
17%

;VERIFY ONLY MODE
:BR IF NO

CIRMLAOD RMO5/3/2 FORMATTER

CZRMLAD RMO5/3/2 FORMATTER

START OF

FORMAT

450 016142
451 016150

652 016156

016037
016137

023737

453 016164
22; 016166

001405
104007

656 016170

004737

225-016174

459 016200
460 016202
661 016210

462 016212
463 016216

464
465
666
467
468
469
470
471
672

000137

000240
123737
001412

105237
062700

016222
016226
016230
016234
016236
016242
016246
016254
016256

005737
001252
062701
000723
105037
105237
123737
101003
004737

475 016264
476 016272
677 016276
478 016300
479 016304
480 016312
481 016314
482 016316
483 016322
484 016330
485 016332

113737
005737
001407
005337
023737
002730
000406
005237
023737
101321
004737

2;2 016262

239 016336

000603

000137

000002
000002

045766

MACRO v03.01

H 5
11-APR-80 13:01:23 PAGE 10-8

045772
045766

MOV
Mov

045772

CMP

BEQ
EMT

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

RBUF+2,RBUF+6

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

:1S TRACK AND SECTOR CORRECT ?

15%
7

:BR IF YES

PC,LOP.CK

sCHECK FOR LOOP ON ERROR

017304

13%:

JSR

JMP

$EOP

;
005550 ,001362

15%:

NOP
CMPB
BEQ

FMTDPB+10,MAXSEC
169
:BR IF

016342

14%:

005550
001004

INCB
ADD

;GO READ NEXT TRACK

19%:

Mmove
TST
BEQ
DEC
CMP
BLT
BR
INC
CMP
BHI
JSR

BEGTRK ,FMTDPB+11
sGET 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%
:BR IF YES
19%
FMTDPB+12
: INCREMENT CYLINDER ADDRESS BEING CHECKED
FMTDPB+12 ,ENDCYL
;DONE WITH VERIFY ?
14%
:BR IF YES
PC,UPDCYL
;UPDATE CYLINDER ADDRESS IN BUFFER

.SBTTL

END OF PASS ROUTINE

16%:
001332

017756

005551

005552
005552

001326

005552
005552

001326

017644

015672

567
568

;DONE WITH ALL SECTORS ?
YES

:UPDATE SECTOR ADDRESS
;ADJUST POINTER TO NEXT EXPECTED HEADER

001004

001334
001400

;END OF VERIFY

FMTOPB+10
#516.,R0

001322

005550
005551
005551

SEQ 0059

17%:

18%:

TST
BNE
ADD
BR
CLRB
INCB
CMPB
BHI
JSR

JMP

SNGSEC
;READING ONE SECTOR AT A TIME ?
7%
:BR IF YES
#516.,R1
;ADJUST POINTER TO NEXT RECIEVED HEADER
11%
;60 COMPARE NEXT SECTOR
FMTDPB+10
:START AT SECTOR 0
FMTDPB+11
s INCREMENT TRACK NUMBER
FMTDPB+11,ENDTRK
;WAS IT LAST TRACK ?
17%
:BR IF YES
PC,UPDTRK
;UPDATE TRACK ADDRESS IN BUFFER

;G0 READ NEXT CYLINDER

".'."".'..'..""""."""".'.."t.'l.i""'.....t...""t.'.

:*INCREMENT THE PASS NUMBER ($PASS)
s*1F THERES A MONITOR GO TO IT
;*1F THERE ISN'T JUMP TO DONE

016342
016342
016346
016350
016354
016360
016362

005737
001537
005037
004537
003434
004737

001406

016374
016402
016406

112737
004037
005540

000143
030622

016366

112737

$EOP:
1%:

001344
020710
021050

000020

005541

005542

1ST
EDIT
BEQ
8%
CLR
RETRY
JSR
R5,SORT2
USTAB+8.
JSR
PC TEXT

MOvB
2%:

MovB
JSR
FMTDPB

#20,FMTDPR+1

;UPDATE LAST TRACK ?
:BR_IF NO
sCLEAR RETRY COUNT
sSORT THE USTAB IN ASCENDING FORM
sTABLE ENTRY POINT
:SET UP THE BUFFER

;16 BIT MODE

NSETFMT, FMTDPB+?2
;SET FORMAT COMMAND
RO,RMO5
sCALL THE DRIVER

[=l=4
oo
WU

005556

O—-=O0OO0—=—0O
[ T
P
Y - T
)
OMNMNINIWVINN

CZRMLAO RMO5/3/2 FORMATTER
END OF PASS ROUTINE

001466

MACRO v03.01

3%:

000163

5%:

100061

BEQ

000706

005737
003007
001403
104401
000405
104401
000402
104401
104401
013746
104405
005037

6%:

001344
000003

001344

017162
000037

005550

005566

001346

000037
001346
001346

001346
005550

006132
157700
006232
001344

005546
005544
005544

MOV
MOV
MOvB
NOP
JSR
FMTDPB

FMTDPB+16

SEQ 0060

;LOOP IF QUEQU FAILS

;ALL DONE

:BR IF NOT

#822.,FMTDPB+12 ;CYLINDER ADDRESS
LSTRK,FMTDPB+11 ;TRACK NUMBER
FMTDPB+10
;SECTOR 0
#-<258.+32.>,FMTDPB+4
;WORD COUNT
;BUFFER ADDRESS

RO,RMOS

;CALL THE DRIVER

6%
FMTDPB+16
5%

;LOOP IF QUEUE FAILS
sALL DONE ?
:BR IF NOT

MOV

#6% ,SESCAPE

;ERROR ESCAPE ADDRESS

EMT

11
12
13
14
15

TST

BEQ
BPL

EMT
EMT
EMT
EMT
NOP
INC
CMP
BHI
JMP
CMPB
BLE
MOvB

BNE

7%:

#BUFP ,FMTDPB+6

JSR
EMT

MOV
MOvB
MovB
ASL
MOV
MOV
ADD

#WRTHD,FMTDPB+2 ;WRITE HEAD AND DATA COMMAND

78.ER1NDX

RETRY

#3,RETRY
4%
REJCT3
#31. ,FMTDPB+10

;EXIT IF NO ERROR

;ERROR INDICATOR RT.

;OVER 3 TIMES ?
:BR IF IT IS
;WRITE THE LAST TRACK FAILS THREE
;LAST SECTOR ?

;BR IF ALL SET

7%
#31, ,SAVSEC

:BR _IF NOT 0
:THE LAST SECTOR IS A BAD SECTOR

RM.REG+RMDA,SAVSEC

:FOUND THE

SAVSEC,FMTDPB+10
:LOAD THE NEW STARTING SECTOR
SAVSEC,R1
sLOAD THE WORD CTR AND BUFFER
R1
:WORD INDEX
ADRTBL (R1) ,FMTDPB+6
sBUFFER ADDRESS

#-<258.+32.>,FMIDPB+4
WCTBL(R1) ,FMTDPB+4

;WORD COUNT
:WORD COUNT

JRESET

037633

MODE
10%
9%
1?;CHP1

sFORMAT, CHECK OR VERIFY MODE
:BR IF VERIFY ONLY MODE
:BR IF CHECK
;FORMAT COMPLETE

037656

i?g(HPI

: CHECK COMPLETE

MVCMPT
NUMERR

;VERIFY COMPLETE
:TOTAL ERRORS

001320

037700
037723
001126
001126

8%:

TIMES

FALLING SPOT

RETRY

CLR
BR

—
L X

~ NNN=
= YNWNN—= ~

OO
NN =
NN o
O - N==WNNNONITN —
(VO
LV ]WWNO
O WWO WWWWw

OO == 0O00—-0O

—.o—.d—.o—.o; o

005237
022737
101345

001176

—

104011
104012
104013
104014
104015
000240

oo
wor

VWSS
oSN sfO00O0

012737
004737
104010

g38 ONN%O 00003000000000

187

CLRB

005556

oocooororO
oV v

MOV
MovB

030622

530

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

$ERTTL,-(SP)
SERTTL

THE RETRY FLAG

:BR BACK

::SAVE SERTTL FOR TYPEOUT

1360 TYPE==DECIMAL ASCI1 WITH SIGN
:CLEAR THE ERROR ACCUMULATOR

CZRMLAO RMO5/3/2 FORMATTER

END OF PASS ROUTINE

NN
oo

;s INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER
;:LOOP?

$DOAGN

ssYES
:sRESTORE COUNTER

$GET42:

ans2 RO
$DOAGN

$ENDAD:

PC, (RO)

;;GET MONITOR ADDRESS
;s sBRANCH IF NO MONITOR
:sCLEAR THE WORLD
2:G0 TO MONITOR
s :SAVE ROOM
::FOR

OO0
o

036

105737
001405
005737
001427
000137

~
~N

032777
001002
000137

$RTNAD:

a(PC)+
DONE

s sRETURN

DONE:

$AUTOB

::gnnxns IN AUTO MODE ?

*ARE ALL DRIVES DONE ?

‘BR IF YES
*NEXT DRIVE FROM APT DEVICE MAP

010466

000001

162120

13%:

14%:

013462

NNy

® B3NeN SR8
was
[>T Y]

#SW0,aSwR
14%
Mo

011342

133331
133331
013462

FSTACK,SP
MODE

15%:

STACK POINTER

JMP

#1333 31,PATA
#1333 31 PATB
ST

sINITIATE PATTERN
JINITIATE PATTERN
;LOOP ON CHECK

INC
INC
BR

$PASS
S$TESTN
17%

104401
104401
104401
000000

001205
040354
040373

REJECT:

+SCRLF
+MESG4

000137

007020

TYPE
TYPE
TYPE
HALT

104401
113737
104025
104401

001205
005551

REJCT2:

JRESET

MOV
MOV

16%:
17%:

001366

*ASK FOR NEXT DRIVE

15%
ST

JMP

001340
001342

;SEE IF SWR 0 SET
‘BR IF SET

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

001216
001214

040373

JsACTI

001402

001100
001320

—h
D

NNN
NNNNN

—

NNNN

001150

%PC)

%PC)*.B(PC)‘

$DOAGN:

000137
017006

NNNN

—5h e d s

000240

—_— s

$PAS S
"0 OQOO.SPASS

001216

$SENDCT:

NNNN

—B b e —d

;ALL ASSIGNED DEVICE DCNE
;7O FORMAT NEXT DRIVE
;RESTORE THE PASS COUNT

12%:

000042

SEQ 0061

DEVMP
DONE
$PASS

$EOPCT:

012

10-10

. STARS

001216
100000

At b b
e i s

11-APR-80 13:01:23 PAGE

037753
001402

001216

~leleloloiN
=lelolol

—_— s > —a

~—

VWAL

0000
0 0 00O oTM 0000000 NNNNNNNNNYNO
:SQINJg\nJ~Uflu-cn:g=~d;\h&wnhu-oChcclsur\ntwnhuu<><>

VYA VAWV
VWV
AW

— el i il ) ) ) il il D i e el D e ) ) D el il

elelo i lolelleloelelelele B elelelelelelelelelelelelelelelelel=lel=l=]

016714
016720
6;2‘

MACRO v03.01

:GARBAGE CODE FOR APT

+MHALT

JMP

BEGINZ

TYPE
MOvB

FMTDPB+11,DS.
TRK

TYPE

JMHALT

SCRLF

: TRACK NUMBER FOR ERROR LOG

CZRMLAO RMO5/3/2 FORMATTER

END OF PASS ROUTINE

606
607
608
609

104401
104401
104401
000000
000137

017162
017166
017172
017176
017200

K
5
11-APR=-80 13:01:23 PAGE 10=11
HALT

007020

JMP

001205
042126
040373

REJCT3:

007020

TYPE

TYPE
TYPE
HALT

JMP

SEQ 0062

BEGINZ
+SCRLF

+MESG17
+MHALT

BEGINZ

;:""'."..tflt.""""""""'ll'..".'t""'.l"'t""'.t""

.SBTTL

SUPPORT SUBROUTINES

::.'"""t.."."""""'""."'..'.'.t""".'"I.t"".'t'.t

;THIS ROUTINE DETERMINES THE ERROR TYPE

017204

010146

017210
017214
017216

033727
060006
001025

017224
017226
017230
017234
630 017236
631 017240
632 017244
633 017246
636 017250
635 017254
636 017256
637 017260
638 017262
639 017264
640 017266
641 017270
642 017272
643 017274
644 017300
645 017302

010000
001020
033727
006000
001013
033727
001400
001006
033727
000020
001001
005201
005201
005201
005201
005201
006301
060166
012601
000207

017206

017220

646

005001

033727

ERINDX: MOV
CLR
BIT

005556

BIT11'BITi0

.WORD

BIT09'BIT08

005556

1$:

28:
38
4$:

5% :

000002

647
648
649 017304
650 017312
gg; 017314

032777
001402
000177

001000

653 017320
654 017324
655 017330
656 017332
657 017334
658 017342
659 017344

005037
033727
072002
001004
032737
001402
000137

001176
(05556

:BR IF
:CHECK
:DRIVE
:BR IF
:CHECK

.WORD

BNE
BIT

005556

5%
FMIDPB416, (PC)+
BIT12
48
FMTDPB+16,(PC)+

BIT14!BITi3'BIT2!BITT

005556

;STORE R1
;CLEAR R1
;CHECK ERROR TYPE

WORD

BNE
BIT
.MORD
BNE
BIT

005556

R1,-(SP)
R1
FMTDPB+16,(PC)+

;DRIVE OFFLINE

OFFLINE
ERROR TYPE
PERSISTENTLY UNSAFE
UNSAFE
ERROR TYPE

;UNCORRECTABLE MASSBUS PARITY ERROR ?

38
:BR IF PARITY ERROR
FMTDPB+16, (PC)+ :CHECK ERROR TYPE

:SOF TWARE TIMEOUT ?

BNE
BIT
.WORD
BNE
INO
INC
INC

2%
FMTDPB+16,(PC)+
BITO4
13
R
R1
R1

:BR IF YES
:CHECK ERROR TYPE
:DRIVE UNSAFE ERROR ?
:BR IF YES
: INCREMENT THE RETURN INDEX
: INCREMENT THE RETURN INDEX
: INCREMENT THE RETURN INDEX

INC

:INCREMENT THE RETURN INDEX

R1,2(SP)
(SP)+,R1
PC

:DEVELOP THE RETURN ADDRESS
:RESTORE R1
*RETURN

INC

ASL

ADD
MOV
RTS

: INCREMENT THE RETURN INDEX

:DOUBLE THE INCREMENT

sROUTINE TO CHECK FOR LOOP ON ERROR
161642

161604

004000
016342

LOP.CK: BIT
BEQ
JMP

9SLPERR

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

1%:

$SESCAPE

:CLEAR THE ERROR ESCAPE ADDRESS

CLR

12H09.3$UR

FMTDPB+16, (PC)+

;CHECK FOR "FATAL' ERROR
:"FATAL' ERROR BITS

3%114'1113-31112'31110'31101
R 1F NOTs
005574

2%:

BIT

ggLs,RM., aeeoaneni URITS LOCK ERROR ?

JMP

$EOP

:BR_IF

s TERMINATE

THE

FORMAT

e P e

=OOVONO VNS WN =00V

NN PONININ
e b s e s b s e s

—=O

000000
000137

oooooooocorOFOrOrOrOr
OO OO

603 017154
685 017156

MACRO v03.01

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

' CZRMLAO RM05/3/2 FORMATTER

' SUPPORT SUBROUTINES

0002¢C7

RIS

;RETURN

Y et

s AV

et AV

(V. IV PRIV ENTPIV.
T N
VNN
NS N
OO HrwN

NNNNNNNNN

[elelelelelelele]
[elelelel Jolele]

:THIS ROUTINE SETS UP THE INPUT TABLE FOR THE DRIVER ROUTINE
OCOO—= =00 — OO
it O et s O et
O VNN
NN
NONNONNO~N
O NN NN NN NN

660
661 017350
662
663
664
665 017352
666 017360
667 017364
668 017372
669 017400
670 017404
671 017412
672 017420
673 017424

SEQ 0063

005540
005544
005546

SETTBL: MOVB ,
CLRB '
MOV
MOV

CLRB

005521
005552

MOVB
MOV
(LR
RTS

DRIVE,FMTDPB
FMTDP+3
MWC,FMTDPB44
#BUFP,FMTDPB+6

:CLEAR HIGH ORDER ADRS BITS
:LOAD UP WORD COUNT
:LOAD UP CURRENT ADRS

BEGTRK,FMIDPB+11"
BEGCYL,FMTDPB+12

;SET UP STARTING TRK ADRS
:SET UP STARTING (YL

FMTDPB+10

FMTDPB416
PC

;SET UP DRIVE #

:SET_SECTOR TO ZERO
;CLEAR RM STATUS
:RETURN FROM SETUP

:THIS ROUTINE CONTROLS THE DISK ADDRESSING AND TOTAL TRK COUNT
;1T IS ENTERED AFTER EVERY TRK OPERATION
678 017426
679 017426
680 017432
681 017440
682 017442
683 017446
684
685 017450

005551
005551

TRKTST:
001332

CMPB
BHI

017756
001334
001400

062716
000207

INCB

JSR

005551

005552
005552

001326

005552
005552

001326

18:

PC,UPDTRK

:UPDATE TRACK ADDREDS

FMTDPB+11,ENDTRK
1%
:BR IF

:LAST TRACK TO BE FORMATTED ON THIS CYLINDER ?
YES

MOvB

BEGTRK,FMTDPB+11

BEQ
DEC

2%
FMTDPB+12

:BR IF NO
sDECREMENT CYLINDER ADDRESS

:BR IF

18T

017644

3%:

INC
CMP
BHI
JSR

000002

4$:

ADD

RTS

WRAP

JEXIT

IN BUFFER

CMP

5%:

: INCREMENT TRACK NUMBCR

2%:

FMTDPB+11

sGET BEGINNING TRACK ADDRESS

;SEEKING FROM HI

FMTDPB+12 ,ENDCYL "

TO LO CYLINDER ?

:DONE WITH FORMATTING ?

YES

FMTDPB+12
s INCREMENT CYLINDER ADDRESS
FMTDPB+12,ENDCYL
;DONE WITH FORMATTING ?
5%
:BR IF YES
PC,UPDCYL
:UPDATE CYLINDER ADDRESS IN BUFFER
¥2,(SP)

+ADD TWO TO RETURN ADRS

;RETURN, DONE FORMAT

!'!

(NOT DONE)

;THIS ROUTINE SETS UP WC & BA FOR REMAINING SECTORS
sAFTER A WRITE CHECK ERROR

013737
062737
005237
005037
000207

001350

005544
005546

001316

SCAWC:

MOV
ADD
INC
g%g

SAVWC ,FMTDPB+4
#516. ,FMTDPB+6
FMTDPB+10
32?50

;SET UP WC FOR REMAINING SECTORS
;SET UP BA FOR REMAINING SECTORS
sADVANCE TO NEXT SECTOR IN TBL
sRESET RETRY COUNTER

;RETURN TO COMPLETE TRK FORMAT

sTHIS ROUTINE SETS UP THE CYLINDER ADRS, FORMAT BIT, TRACK AND
sSECTOR QPRS IN MEMORY WITH THE STARTING CYL = TRK INFORMATION

001362
000001
065774
001330

001214

SETHDR: MOV
MOV
MOV
MOV

MAXSEC,R1
#,STESTN
#BUFP,RO
BEGCYL,R2

:SET UP SECTOR COUNT
: GARBAGE CODE FOR APT

:SET UP HEADER POINTER IN RO
;PUT STARTING CYL # IN R2

| CIRMLAO an0513/§ FOR MATTER

' SUPPORT SUBROUTINES

717 017600
718 017606
719 017610
720 017612
721 017616
722 017620

osgrog
013703
000303
005737
001402
052702

724 017626

010320

723 017624

725 017630

726 017634
227 017636

728 017640
;gg 017642

010220

062700
005203
005301

001360

010000

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

140000
001334
.

1$:

001000

#MF ' UF LR
BEGTRK.R
R}
secso
1$
#FMT,R2

;SET MFG AND USR GOOD BITS (DEC STANDARD 144)
*PUT STARTING TRK IN R3
:JUSTIFY TRACK ADRS
:SEE IF 30 OR 32 secron MODE
:BRIF 30 SECTOR MODE
:SET THE 32 SECTOR FORMAT BIT

MOV

R3, (RO)+

:WRITE IN HEADER AREA OF CORE THE TRK ADRS

MOV
INC
DEC

BGE

000207

SEQ 0064

BIS
MOV
SWAB
ST
BEQ
BIS

ADD

002371

RTS

R2,(RO)+

asiz.,ao

:WRITE IN HEADER AREA OF CORE THE CYL ADRS

*SET UP FOR NEXT HEADER

:UPDATE SECTOR ADRS FOR NEXT MEADER
:MAINTAIN COUNT OF SECTORS

;EXIT = HEADERS ARE LOADED INTO CORE

:BR IF NOT LAST SECTOR

;THIS ROUTINE UPDATES THE CYLINDER ADRS OF THE HEADER WORDS

;gg

sAND FILLS DATA BUFFER FIELD IN CORE
017644
017646
017650
017652

010046
010146
010246
010346

736 017660
737 0176664
738 017670
739 017672
740 017676
741 017700

012700
013703
000303
005737
001402
162710

013701

762 017704

005220

746 017710

012702

743 017706

745 017714
746 017720

747 017726

017730
017732
017734
017736
017740

017742
017744
017746
753 017750
754
;gg 017754

010320

013720
013720

162702

001371
005203
005301
002355
012603

012602
012601
012600
005237

001362

000002

001000

001340
001342

2%:
38:

MOV
MOV
SWAB
ST
BEQ
SUB

INC

::PUSH
::PUSH
::PUSH
::PUSH

#BUFP, RO
BEGTRK,R3
R3
WRAP
2%
#2,(RO)’

:SET UP HEADER POINTER IN RO
:GET BEGINNING TRACK
:STARTING SECTOR = 0
:SEEKING FROM HI TO LO CYLINDERS ?
:BR IF NO
:DECREMENT CYLINDER NUMBER

MAXSEC,R1

ON
ON
ON
ON

STACK
STACK
STACK
STACK

:SET UP SECTOR COUNT

: INCREMENT FOR NEXT CYLINDER

#512..R2

:DATA FIELD LENGTH

06 ,R2

*END OF DATA FIELD ?

MOV
MOV

PATA. (RO)+
PATB. (RO)+

MOV

RO
R1
R2
R3

(RO)+

R3, (RO)+

BNE
INC
DEC
BGE
MOV

3s
R3
R1
1%
(SP)+,R3

RTS

MOV
MOV
MOV
INC

001214

RO,=(SP)
R1,=(SP)
R2,=(SP)
R3.=(SP)

MOV

SUB

000207

(s;)o.az
(SP)+.R1
(SP)+,RO
$TESTN

:WRITE TRACK AND SECTOR HEADER

;FILL BUFFER
;FILL BUFFER

:NO
:INCREMENT TO NEXT SECTOR
:COUNT SECTORS
:BR IF NOT LAST SECTOR
::POP STACK INTO R3

::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO
:INCREMENT TST NUMBER FOR EACH CYLINDER CHANGE
:GARBADE CODE FOR APT
CEXIT

:THIS ROUTINE UPDATES THE TRACK ADRS OF THE HEADER WORDS IN CORE

017756
017760
760 017762
761 017766
762 017772

010046
010146
013701
012700
005720

764 020000

062700

763 017774

1$:

000004

;g;
759 017756

MOV

045774
001334

001400

MOV
MOV
MOV
MOV

062710

UPDTRK:

001362
045774

000400
001004

15:

MOV
MOV
MOV
MOV
ST

RO, =(SP)
R1,=(SP)
MAXSEC,R1
#BUFP,RO
(RO)+

::PUSH RO ON STACK
::PUSH R1 ON STACK
:SET UP SECTOR COUNT
:SET UP HEADER POINTER IN RO
:POINT HEADER POINTER TO TRK = SEC ADRS

ADD

#516. R0

:SET UP FOR NEXT HEADER

ADD

#400, (RO)

SINDEX TRK ADRS

——

735 017654

UPDCYL:

734 017644

748
749
750
751
752

MACRO v03.01

| CZRMLAO RM05/3/2 FOR MATTER

MACRO v03.01

| SUPPORT SUBROUTINES
l

|
|
|
'

765 020004

766 020006
767 020010
020012
;gg 020014

005301

0062372
012691
012606
000207

DEC

BGE
MOV
MOV
RTS

;;(1)
772 020016

012737

774 020030

005777

776 020040
777 020046

012776
062716

779 020056

012777

‘

:
'

773 020024

775 020034
778 020052

780 020064
781 020072

020074

005037

000006

013746

001304

012736

000300

012777
000426

020250
000002

000000

177777

161216

000135

062706

000004

784 020106
785 020112

005777
013746

161176
001312

787 020124
788 020130
789 020134
90 020142
1 020144
792 020150

062716
012736
012777
000402
062706
012737

786 020116

;32 020156

012737

012776

000207

000004

020144

000004

020250

000002
000300
000100

161146

000004
000006

797 020160 105737 001150

799 020166

798 020164

001024

800 020172
801 020176
802 020200
803 020204
804 020212
805 020214
806 020222
807 020226
808 020230
gog 020232

104401
104410
012637
023727
001411
123727
001405
104401
000000
000137

811 €20236

104401

g}f 020246

000207

;COUNT SECTORS

18
(SP)+,R1
(SP)+,R0
PC

:BR IF NOT LAST SECTOR
::POP STACK INTO R1
::POP STACK INTO RO
*SEXIT

000004

#STCLK1,a#ERRVEC

:NEW PSW

$LPVEC,=-(SP)

:VECTOR ADDRESS

aSLKCSR

MOV
ADD

#CLOCK,a(SP)
#2,(SP)

MOV

#PR6,3(SP)+

MOV
BR

#135,38LKCSR
STCLK3

MOV

STCLK1: ADD

MOV

ST
MOV

MOV

ADD
MOV
MOV
BR
STCLK2: ADD
STCLK3: MOV

RTS

;SET UP VECTOR FOR P (LK

SNERRVEC+2

:CHECK FOR KW11-P
:SET UP KW11=P VECTOR
:POINT TO PSW

:PSW = PRI 6

#-1,38LKCSB

:LOAD COUNTER BUFFER

:SET CLK = CNT UP

#,SP

;RESTORE THE STACK POINTER

asLKS
sLLvec -(SP)

:LOOK FOR KW11=L
:KWwl1=L VECTOR ADDRESS

#2,(SP)
#PR6,D(SP)+
#100,38LKS
STCLK3
#4,SP
#6,3¥ERRVEC

s INCREMENT VECTOR ADDRESS
:PSW = PRI 6
:SET KW11=L INTERRUPT ENABLE

#STCLK2,a#ERRVEC
#CLOCK ,a(SP)

:CHANGE ERROR VECTOR

:SET UP KW11-L VECTOR

;RESTORE THE STACK POINTER
;RESTORE THE ERROR VECTOR

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

;

CLR

161206

;gz

ST.CLK: MOV

161244

782 020074

783 020100

SEQ 0065

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

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

812 020242

g}g

817 ozozflo

004737

104401

RESTRT: TSTBE
BNE

025576

JSR

040212
001174
001174

000015

001174

000131

040373
007020

036417

1%:

001205

SAUTOB

;RUN UNDER APT ?

:BR IF SO

PC,STKINT

;ENABLE TO READ

TYPE
RDCHR
MOV
CMP
BEQ
CMPB
BEQ
TYPE
HALT
JMP

JMESG2

;IMPROPER MFG INFORMATION

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

:GET CHARACTER
:CARRIAGE RETURN ?
:BR IF YES
:ENTER ¥ ?
:BR IF YES

TYPE

RTS

TYPE

LSCRLF

:JUMP TO BEGIN2

:TYPE "'y
:CR=LF

JEXIT

;THIS CODE SERVICES A CLOCK INTERRUPT EVERY 16MS

818 0202%
g;g 020260

012746

004737
000002

000020
034272

CLOCK:
.

MOV
JSR
RTI

#16.,-(SP)
PC,RMTMR

;PUT MILLISECONDS ON THE STACK
:GO REPORT TIME
:RETURN AND CONTINUE

33
S

C.ENTR: MOV
1$:
18T
BNE

00000

[=l=l=lel=]

;ROUTINE TO INTERCEPT "CONTROL C' TYPED DURING PARAMETER ENTRY TIME

RESET

JMP

#STACK,SP
TRNSWT
1%
M8

sINITIALIZE THE STACK
:ALL ACTIVITY STOPPED ?
.BR_IF NOT

;CLEAR THE BUS

sSTART AGAIN WITH DRIVE SELECTION

sROUTINE TO INTERCEPT 'CONTROL O' TYPED WHILE PROGPAM 1S FORMATTING
sTHE DISK PACK. THE CURRENT DISK ADDRESS IS TYPED TO THE TERMINAL
;DURING THIS ROUTINE IN THE FOLLOWING FORMAT,

ngw ~o
N
NNNON

N~NSO

160656
177600
000003

0.ENTR: MOVB

026767

TYPE
187
JMP

LSCNTLC
(SP)+
aCNTLC

CMP
BEQ

(SP)+, M7
2%

BIC
CMP
BNE

161042

000017
160616
000100

160606

~ & NNN?

001374

TYPADR:

;READ FROM TTY BUFFER

:BR IF NO

#C177,(SP)
(sP), 0%

:STRIP PARITY
*CONTROL=C ?

STYPE A CONTROL=C (*C)
‘RESTORE STACK
SJUMP TO CONTROL=C RESTART

;CONTROL=0 ?
SYES

13
:?Y

asTKB
#100,9%7kS

:CLEAR DONE BIT
:ENABLE TTY INTERRUPT

CLR
MOV

PS
#C.ENTR,CNTLC

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

MOV
JSR
JSR

FMTDPB+12,=(SP)
PC,$5B2D
PC.$SUPRS

;PUT THE CYLINDER ADDRESS ON THE STACK
:CONVERT IT TO DECIMAL
STYPE IT

MOVB
JSR
JSR

FMIDPB+11,(SP)
PC,$582D

PC.$SUPRS

MOV

#O.ENTR,3#TKVEC ;RESTORE ENTRANCE FOR CONTROL=0

};:g

—=N)—=Wn
OO =WV

S PNNNESSNO
OOWWES
OO W
WO NN —
NN=-=NYNNO
O =t YN =
YN

P PO R PP PR R
—

177776

TYPE
TYPE
CLR

TYPE

000060

RT1]

.eooals

,BLNKS2
.1
=(SP)

LSCRLF

20454

010346

0456
04660

011403
012337

020470

;;ggesenr ADDRESS 1S:

:TYPE 2 SPACES
iy
SCLEAR THE STACK

:PUT THE TRACK ADDRESS ON THE STACK
:CONVERT IT TO DECIMAL
STYPE IT

SCR=LF

JRETURN

JSR

R4 ,PARENT

:THE CALLING SEQ

PARENT: MOV
f
MOV

R3,-(SP)
#TABLE ,R3

;SAVE R3
*PARAMETER TABLE ADDRESS

1$:

(R3)+,2%

*ADDRESS OF

IS THE TRACK ADDRESS.(IN DECIMAL)

@$TKB,=(SP)

sPARAMETER ENTRY ROUTINE
s CALL

o0
N

:;WMERE 'C' IS THE CYLINDER ADDRESS

sAND *T'

2%:

FOESxwo bgel\vg %

(v
(Y I

w
w

~N
~N
(==

LY N NN

OO OO0O0O0O0O0O0O00O0O0O

NONPONNOND
oo o0 [=lelelelelaleleTlaT=]

:PRESENT ADDRESS 1S: CXXX TXXX

OO
RIS O 0o Co OO Co Co OO 0o OO Co ~
zEoEEEeS
~NO W S W =00
SERPSREREEIDTFORIRZ
VS N~ OO
N WV W —=O SEIFRFURZS OO NV
GIN NNNNNNNY

Oo Oo Oo 0o OO Co OO OO

SEQ 0066

TABLE

MOV
MOV

(R&) RS

:PARAMETERS TABLE

*PARAMETER TABLE ADDRESS

PARAMETER NAME

MACRO v03.01 11-APR-80 13:01:23 Plfig 18-15

AD RMO5/3/2 FORMATTER
SUBROUT INES

2%:

S 00

FKESS %S=55% e

- PO

SNt
e \N O

SRSERES

823
228
o

(=leleolelel=~]

—

VAW
WA W
WA

o o 000000000000
Y ~N NINININININININ
N
o o OO0 O0O0O0O0O0O0000O

33
—

=
--g--RRERRR A
& 3TMFRESFRRNSGRoEREFFNISF & w

EERSEEREESS §

0
(R3)+.R
(R3)+.R

(RS),=(5P)

036405

+SLASH

023462

R
(SP)+
RS.CK.DIG

SEQ 0067

;BR IF AT END OF TABLE

;TYPE THE PARAMETER NAME
;ADDRESS OF PARAMETER NAME

:MAXIMUM PARAMETER VALUE
sADDRESS OF PARAMETER

TEXT

sCURRENT VALUE OF PARAMETER
:!Vsi'VNE CURRENT VALUE OF THE PARAMETER
;READ THME KEYBOARD
;INPUT ASCI] STRING ADDRESS
:CHECK THE DIGIT(S)
:CARRIAGE RETURN ONLY ENTERED

;5% ONLY ENTERED

;ILLEGAL INPUT

3s:

037211

R2,(RS)
1%

.BADENT

4$:

000006

#6,R3
1%
R2,(RS)
7%
#TABLE ,R3

5%:
;6%:
6%:

398 020556

%:a).nfi

7%:

000002

RTS
RTS

(SP)+ ,R3
#2,R4
sADJUST

R&
PC

:TERMINATED WITH A CARRIAGE RETURN
:TERMINATED WITH A "
:TERMINATED WITH A "

:MOVE NEW VALUE TO PARAMETER LOCATION
;GET MORE PARAMETERS
:'BAD ENTRY'
;:DECREMENT THE TABLE POINTER
:TRY AGAIN

:NEW VALUE
JEXIT
;RELOAD THE PARAMETER TABLE ADDRESS
;RELOAD THE PARAMETER TABLE ADDRESS

:TRY AGAIN

RESTORE R3

THE RETURN ADDRESS

:RETURN FROM THE Ré&
JRETURN

003434
177777

RECORD:

1%:

005552

005551

000003

005550

000002

2%:

O =i
wrhowv

N=-=-O

OO
==
W==N

v\
W

&Hwvwn

000004
004424

fR8 888

SN
WNNNS
NONO NS NN
OO0 O = —=VOO
=0 O
—=—=N—-O
et D b et b
N 2t 2 et Y s
(P

N -

—

020650

—

ge28e

NOWVESWN—-O

&g
¥£

0640
20642

R g AN O oR&SNEn3RS
== NOND = L == Ly =2 g — N

922

i=l=lelelelelelelelel=]
NN
NN

POMNO —

OOV

b 8t

b b s 2 b s

VOO OOOOOOOO0

908 020570
909 020574
0600

sTHIS ROUTINE LOAD THE BAD SECTOR INTO USTAB TABLE
sCALL SEQ JSR PC,RECORD
sALL REGISTER USED ARE DESTORIED

—_

:
oo

33 b+

89¢ 020550
895 020552
896
897 020554

MACRO v03.01 11-APR-80 13:01:23 PAGE 18°16

TTER

000003
000002

3s:
4%:

MOV

cMP

BEQ

CMP
BNE
CMPB
BNE
(MPB
BEQ
ADD

CMP
BHI
BR
MOV
MOVB
MOVB
RTS
TYPE
TYPE
TYPE
HALT

#USTAB+10,R1
#-1,(R1)

sTABLE ENTRY IN R1
AN OPENING IN THE TABLE

FMTOPB+12,(R1)

;CYLINDER NUMBER MATCHES ?

FMTDPB+11,3(R1)

FMTDPB+10,2(R1)
3 9
[} 4,R1
#USTAB+512.
,R1
1%

:BR IF

IT IS

sBR IF NOT

;TRK NUMBER MATCHES ?

;BR IF NOT

;SECTOR NUMBER MATCHES ?
sBR TO EXIT,IF THE SPOT HAS RECORDED

s INCREMENT & BYTES
JEND OF TABLE ?

sBR
IF NOT
sTHROW AWAY THE PACK

sLOAD THE CYLINDER #
sLOAD THE TRK NUMBER
:%g?? THE SECTOR NUMBER
;THROW AWAY THE PA(K

3
137

g e

S i

sTHIS ROUTINE

[=lelel=]
NN
—

Sies

(=lelelelele]

N=N=ONNNO -

MOV

BEGINZ
SORT

JSR

THE US‘I. IN ASCENDING ORDER

*PC,SORTZ2

’USTl.’Q.,I‘

000175
000764

ADD

c(mP

#-1,(R1)

CMP

(R1),4(RY)

000004

MOV

:
1$:

000003
000002

000002

000004
000006
000006
000004
000004

000004

2%:

3%:

:
-

000002
2

MOV

BEQ
BHI

;TOP POINTER

(RS) R
llZS 2

L] IS

sTOP POINTER
sTOTAL 126 ELEMENTS

JLOCATE THE BOTTOM POINTER

'US‘A.‘SOU..RS

MOV
MOV

2(R1),=(SP)
4(R1),(R1)

sSWITCH THE TWO ELEMENT

s INCREMENT POINTER

sCOPMARE THE TRK NUMBER
sSWITCH ELEMENT
JINCREMENT POINTER
sCOMPARE THE SECTOR NUMBER
sSWITCH ELEMENT
s INCREMENT POINTER
sSAVE THE N BLOCK

sINTO STACK
sSWITCH THE N+1 BLOCK TO N BLOCK

6(R1),2(RY1)

ADD
CMP
BNE
DEC
BEQ
SuB

6 ,R1
R1,R3
1%
R2
4%
#4,R3

JUPDATE THE TOP POINTER
sREACH THE BOTTOM ?
;BR IF NOT
sDECREMENT ONE SORT COUNT
:BR IF ALL DONE
sASJUST THE BOTTOM POINTER

J8R IF NOT ALL DONE

MOV
MOV
ADD
RTS

RTS

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

sLOAD THE N+1
2

#USTAB+8. R
(RS) .M

BLOCK

JRESET TOP POINTER
JRESET THE TOP POINTER

#2.RS
RS

sADJUST RETURN ADDRESS
JEXIT

JEXIT

THE LAST

TRACK

16 BIT MFG
18 BIT MFG

SECYORS 10.{2.14.16. ........ 30,
JSECTORS 11,13,15,17,...... .. 31
—_— s s —

sTHE TABLE IS EMPTY ?

MOV

MOV
MOV

JSECTORS 0 2.64,6.8
;SECTORS *.3,5.7.9

— -

JTHE LAST ELEMENT

sCOMPARE THE CYLINDER NUMBER

3(R1),7(RY)
2%
3
2(R1),6(R1)
2%
3%
(R1),=(SP)

sTHIS ROUTINE TEXT

WN =
O NONON
NNWWNI NN~
SNONOOO
COWV—aON—=O

:2564=4) X 2

;QUICK EXIT

BLO

CMPB
BHI
BLO
CMPB
BHI
BR
MOV

SEQ 0068

sRESTART IF DESIRED ?

MOV
MOV

o
ogoa
-

g2 788822

RRRR S goeees
§ KE¥RR3
oo

NN
NN

R e
I
R
o §
ONOONOON
"
———)
s
NS - YOO
=
O=r~N
o CO
O =
—
O
—O 5 —
msNoN w — s i e B s O ON B
et
SO NS

OO0O0000O0

(=l=l=]

O00O0

St &
NON
—

et
e s

SORT2:

NOr
OOV
W=

O000O0 o

£338% 222233

OO0O00O0

-0

JMP
(ALL SEQ

MACRO v03.01 11-APR-B0 13:01:23 PAGE 18-17

007020

13333233 LMWr\fl
wR=83

VOO VOO0

TTER

CyL 822, LAST

16 BIT USER

18 BIT USER

TEXT:

MOV

#BUFP,RO

;BUFFER ADDRESS

1%:

MOV
DEC
BNE

R2,(R0O)+
R1
1%

JFULL THE BUFFER
sALL DONE ?
sLOOP, IF NOT

MOV
MOV

#<258.+32.>,R1
#-1,R2

$TESTN,=(SP)
BEGCYL ,=(SP)

TRACK

;TOTAL WORD COUNT
JSET ALL LOCATIONS T0 -1

JSAVE
:

TESTN,BEGCYL ,BEGTRK

g
ONNN—-MNOdMNNONNg
NNNNN
N~ NINNNNNN
-t O O O NN NIV N N =
=
N
WNNNNNNNN\AV‘U‘—'&N\IO\I‘O
o
~
NN
-OWw
TN 2 s~ ®
OO0 O0OOOO~NON
gg-fl—-flflflooooostflwflfl
O =OO0OO0OW
R OOO0OOWOOHN
& [-NN
W= NWWON
NN = NSNS
VWWNON
NN = OO NN
X- Y- X- - - N N oo §O°
WNNNINNWNIN
= Y NN NN NN N N NO
e T

22223822222222888
— s it s O - ...._...._.og
v

TM
o

[da’d

OCO0O00O00O

—

[=leleleleleleleleta]

(V]

3337

Ll o

OO~

el e el e
— e ol e

NOONNVO

e e

N =
VAVES

N NN

N= OOV~

oSO

fuu----

N NN N N W
W

NN W

REI3FE FEGFRSERINFRNERINERINSEXNFnER &

&3
D e

D e

D e e

i e

el e

) e

e el

D e

e e e

A WO N N NN N N PNININVIPNINININVININININ
= d
i i i i il il cld D
VWSS
S S

NN
NN NN N NN NN NN NN NN

D e e
e e e
D e
e el
D e e e
e el
D e

OO0O0O0O0O0O0O0O0O0O0O0O0O0O0O OCO00000000000O0O0O0O0OO0OOOOOOOOOO

-0

;
§fl
S S N R e Ssoror cooooo0 o000 000858383 8
0 ol

oo
O

i el
il
il
il o
il
il
D i
D

D —D

) il

) — —

—d —

-l

= —

—

) -

—

) —

— —

—

) -l

) il

=lelelelelelelelelelelelelelelelelelel=l=llalelalelalelT]

D
—

001334
001362
001360
ooog 7
177777
OOIggs

001466
017556
001360

MACRO v03.01 11-APR-B0 13:01:23 PAGE 18-10
001362
001360

MOV
MOV
MOV
MOV
MOV

BEGIRK,=(SP)
nAxgsc.-(sr)
ss; ,=(SP)
#37 MAXSEC
#-1.SEC30

SALWAYS IN 16 BIT MODE

001334

MOV

LSTRK ,BEGTRK

:LAST TRACK

001330

MOV

88‘322

001414
046000
000040
000002
000004
000006
001004

000002

28:

38:

060050
000013

48:

000400

5%:

001010

PC,SETHOR
(SP)+,SEC30

MOV
MOV
MOV

(SP)+.BEGTRK
(SP)+ ,BEGCYL
(SP)+,$TESTN

:SAVE FLAG MAXSEC AND SEC30
:
SSET MAX 31 SECTORS

:LOAD LAST CYLINDER

:SET UP THE HEAD FIELD IN THE BUFFER
;RESTORE SEC30 AND MAXSEC

(SP)+.MAXSEC

MOV
MOV
MOV
MOV
MOV
CLR
CLR
ADD
DEC
BNE

#BAD16,R1
#BUFP+4,R2
#32.,R3
(R1) . (R2)
2(R1),2(R2)
4(R2)
6(R2)
#516. ,R2
R3
2%

:LOAD SERIAL NUMBER TO EVERY SECTOR
:BUFFER LOCATION + &
:TOTAL 32 SECTORS
21 ST SN #
2 ND SN #
:THIRD WORD = 0
:1D = DATA PACK
*ADVANCE TO NEXT SECTOR
:DECREMENT ONE SECTOR COUNT
:BR IF NOT DONE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
ST
BM]
MOV
MOV
MOV
MOV
gg}

#BAD16,-(SP)
;TABLE ADDRESS
#BUFP+4,=(SP)
:BUFFER ADDRESS
#5,-(SP)
*SECTOR COUNT
#BAD18,-(SP)
:TABLE ADDRESS
#BUFP+44516.,-(SP) :BUFFER ADDRESS
#5,-(SP)
:SECTOR COUNT
WUSTAB,=(SP)
:USER DEFINED TABLE
#BUFP+44<516.+10.>,=(SP)
:BUFFER ADDRESS
SEC30
3s
:BR IF IN 16 BIT MODE
#BUFP+44<516.+11.>,(SP) :RESET THE BUFFER ADDRESS
M1, ,-(SP)
:SECTOR LOUNT
#USSAV,R1
:TABLE ADDRESS IN R1
#BUFP+4+<516.#11.>,R2
;BUFFER ADDRESS IN R2
zgcso
:BR IF IN 16 BIT MODE

MOV
MOV

#BUFP+4+<516.+1C.>,R2
:BUFFER ADDRESS FOR 18 BIT MODE
#11. 83
;SECTOR COUNT IN R3

MOV
DEC
BNE
MOV

(R1)+,(R2)+
RG

CLR
CLR
CLR

001414
046000
000005
002420
047004
000005
003424
060050
001360
061054
000013
004430
061054
001360

JSR
MOV

MOV

133
001330
001214

#822.,BEGCYL

SEQ 0069

MOV
MOV

-(SP)
-(SP)
-(SP)

R1,RS
#256. R4

:LOAD TABLE INTO SECTORS
:DUMMY PAIRS

:TEMPOR STORAGE
*WORD COUNT = DATA FIELD OF ONE SECTOR

RS,R1

:LOAD TABLE INTO SECTOR DATA FIELD
:ALL DONE ?
*BR IF NOT
SRELOAD THE TABLE ADDRESS

R3
5%

:DECREMENT ONE SECTOR COUNT
:BR IF NOT DONE

ADD

#520. ,R2

MOV
MOV
MOV
MOV

(SP)+,R3
(SP)+.R2
(5P)+.R1
R1,R5

DEC
BNE

:
:

:SKIP ONE SECTOR

*RETRIEVE NEXT SET OF
‘BUFFER ADDRESS
:TABLE ADDRESS
: TEMPOR STORAGE

SECTOR #

5%
PC

:BR IF NOT DUMMY PAIR
JEXIT

Ayt
S 3 I3 AT

i
el o
) el
D
i
i
i el
il
D i
i
i
e
e

el e

[
b Al Y LV LV LV IV
ONN~N
oorNO

013737
0010

005552

045764

000001

005551

000137
000240
113737
11g737
053737
113737
012737
112737
012737
113737

017134
005551
001346
001410
001222
177776
000163
045764
001346

045767
045766
045764
005630
005634
005632
005636
005640

013737
052737

005552
010000

005642
045764

122737
103409

113737

005737

100403

042737
004037
005630
000774
005737
001775
000207

005551

001360
010000
030622

RESET:

1%:

005641

045764

005646

MOV
BNE

*BR IF NOT CYLO,TRK O OR 1
‘BR IF NOT
REJCT2
:OTHERWISE, ILLEGAL BAD SECTORS
:
FMTDPB+11,RBUF+3
:TRACK ADDRESS
SAVSEC,RBUF+2
;SECTOR ADDRESS
HEADX , RBUF
:SET MFG BIT,RESET USER BIT
DRIVE,FMTX
;SETUP THE DPB FOR OPERATION
#-2,FNTX+4
:WORD *COUNT =2
WWRTHD,FMTX+2
:WRITE HEAD AND DATA COMMAND
#RBUF ,FMTX+6
:BUFFER ADDRESS
SAVSEC,FMTX+10
:SECTOR ADDRESS

MOV
BIS

FMTDPB+12,FMTX+12 :CYLINDER ADDRESS
#FMT,RBUF
;ASSUM 16 BIT MODE

BM]

3%:

BIC
JSR
FMTX
BR
ST
BEQ
RTS

#1,FMTDPB+11
1%

;CYLINDER ADDRESS
:BR IF NOT CN TRACK 0

CMPB
BLO
JMP
NOP
MOVEB
MOVB
BIS
MOVB
MOV
MOVB
MOV
MOVB

MOVB

2%:

FMTOPB+12,RBUF
1%

FMTDPB+11,FMTx+11 :TRACK ADDRESS

SEC30

:IN 16 BIT MODE 2

#FMT,RBUF
RO,RMOS
2%
FMTX+16
38
PC

‘BR IF

IT IS
SRESET THE FMT BIT
:CALL THE DRIVER
:DPB ADDRESS
:BR IF QUEUE FAILS
: DONE ?
‘BR IF NOT
CEXIT

:THE ROUTINE INSERT:
;INSERT A BAD SECTOR ADDRESS INTO ONE OF THE USTAB,USSAV,.BAD16,BAD18 TABLES
:CALLING SEQ
RS, INSERT
JSR
;

S SoaRgeees

oo
W
(=1%

OCO0O00O00O0O0O0O0O0OOOO0O0OO0OO0OOO0O0OO

o lelelelelelelelolelelelelel=l=l=
oD
DN NN

WSS N
oo~

BNE
RTS

SEQ 0070

sTHIS ROUTINE RESET:
&N
;RESET THE BIT 14/15
OF THE 1 ST HEADER WORD OF THE BAD SPOT
sCALLING SEQ;
JSR
PC.RESET
NN
NN
N NN NN

VIV
VWA

WN =0V~
W= O VO NO WV

D il il il i
D il il il
D
D
D ol il
) il il
s
D i
D il il
s
il il il el el ol ol
il il
il el
il
— —

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

61
07

322833383388 28852288555553533333333558

il il

D il

D il il il il

mdod=l=l=lelololele]

D il i

222222

VONOWVS
NN —=OVRNOWVI

ORMATTER

010446

012746

011504
022714
001420
023714
001010
123764
001004
123764
001415
005316
001413
062704
000755

013714
113764

INSERT: MOV

000176

1$:

001364
001366

000003

001346

000002

2%:
000004
001366

000003

3%:

R4 ,=(SP)

:SAVE THE Ré

MOV
CMP
BEQ
CMP
BNE
(MPB
BNE
CMPB
BEQ
DEC
BEQ
ADD
BR

(RS) ,R&
#-1,(R4)
38
DS.CYL,(R4)
28
DS.TRK,3(R&)
2%
SAVSEC,2(R&4)
4
(SP)
4
0 R4
1%

:TABLE ADDRESS + 8 BYTES
:AN OPEN ENTRY ?
:BR IF SO
JCHECK IF THE BAD SECTOR HAS RECORDED
:BR IF NOT
:CYL AND TRK MATCH ?
:BR IF NOT
:CYL ,TRK AND SEC MATCH ?
:BR If SO
:DECREMENT THE ENTRY COUNT
:BR IF EXHAUST
:LOCATE THE NEXT ENTRY
:BR BACK

MOVB

DS.TRK.3(R&)

:LOAD THE

MOV

177777

001364

TABLE

MOV

#126.,-(SP)

DS.CYL,(R&)

*ENTRIES OF THE TABLE

:LOAD INTO TABLE

TRACK NUMBER

ORMATTER

MACRO v05.01 11-APR-B0 13:01:23 PAGE 18-20

fl—‘ddddd‘-ddddddd-dd‘dddd‘ddd‘ddddd“dflddd“dddddddflfldddd‘

£s

RMLAO RMOS/3/2 ¢
PORT SUBROUTINES

100 021672

113764

10; 021704
103 021706

01%606
062705

000002

106
107
108
109
110
111

021714
021720
0217§4
021732
0217640
021746

104401
104401
012737
012737
012737
004437

041236
001205
177777
177777
177777
020454

114 021756

005737

001364

101 051900 062706 001346
000002
}83 021712

}}% 021752
115
116
117
118
119
120

000205

005702

000002

FUNCT1:

001364
001366
001346

100412
005737
100407
005737
100404
004537

122 022004
123 022006

}g; 022012

000747
004537

001424

020710

126 022014

104401

041321

128 022026

012737

177777

001364

130 C22040

012737

177777

001346

}gg 022052

005726

127 022020

129 022032

131 022046

134 022054
135
136
137
138
139
140
1641
1642
143
144

001424

104401

012737

022154
022162
022170
022176

021602

001205 '

177777

28:

001366

012737
012737
012737
012737

3%:

;LOAD THE SECTOR NUMBER
:CLEAR
UP THE STACK

RTS

EXIT

MOV
ADD

001346
021602

020710

48:

;CR=LF
:RESET THE INPUT VALUES
:
:
:ENTER THE VALUE FROM THE KEYBOARD

DS.CYL

:UPDATE

004440,
001360
|

003434
003434
004440
004440/

022272
022302
022372
022402

022372
022402
022272
022302

VALUES ?

BM]
ST
BM]
ST
BM]
JSR

2%
DS. TRK
2%
SAVSEC
2%
RS, INSERT

:
:
:INSERT INTO THE BAD1¢

e
JSR

13
RS,SORT2

INEXT SET
:SORT THE TABLE

TYPE

,MESG6

MOV

#-1,0S.CYL

BAD16+8.

TYPE

MOV

#-1,DS.TRK

#-1,SAVSEC

DS.CYL

BM]
43
ST
DS. TRK
BM]
43
1S1
SAVSEC
BM]
43
JSR
RS, INSERT
BAD18+8.
B
38
JSR
RS,SORT2
BAD18+8.

MOV
ST
BMI

MOV
MOV
MOV
MOV

;CR=LF

R4 ,PARENT

FUNCT2: MOV
MOV
MOV

:BR IF NOT
:
:

SCRLF

JSR

RTS

003434
003434|
004440

:RESTORE Ré
:ASJUST THE RETURN ADDRESS

,MESGS
,SCRLF
#-1,DS.CYL
#-1,DS.TRK
#-1,SAVSEC
R4, PARENT

TABLE3

001366

(SP)+ R4
#2,RS

TYPE
TYPE
MOV
MOV
MOV
JSR

MOV

000207

012737
005737
100414

SAVSEC,2(R4)
#2,SP

BAD16+8.

001364|

012737
012737
012737

153
154
155
156

001346

005737

147 022116
1648 022126
149 022132

150 022140
151 022146
152 022152

020454 |

100412
005737
100407
005737
100404
004537
002430
000747
004537
002430

}:2 022114

001366

004437

022
022062
022
022070
022074
022076
022102
022104
022106
022112

18:

ADD

MOVB

TABLE2

021760
021762
021766
021770
021774
021776

121 022002

4s:

SEQ 0071

:RESET THE

TABLE

INPUT VALUES

:INPUT VALUES FROM THE KEYBOARD

:18 BIT TABLE

;UPDATED VALUES ?

:BR 1F NOT
:
:
;
;
:INSERT THE BAD SECTOR INTO TABLE BAD18
INEXT SET
:SORT THE BAD18 TABLE

;EXIT FROM THE CALLING OF

FUSTAB+8.,38
FUSTAB+8.,58
FUSSAV+8.,78

;SETUP TABLES FOR 16 BITS MODE

FUSSAV+B.,98
SEC30
1$

FUSTAB+8.,78
FUSTAB+8..9%
FUSSAV+8.,38
FUSSAV+B.,58

TABCAL

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

CZRMLAO RMO5/3/2 FORMATTER

NNNN - -

1%:

001364
001366
001346

2%:

100407

005737
100404

3%:
4%

5%:

364

N
oo

005737

001364

005737

001366

100412

68%:

SN
S

NSNSV

001346

— A
s

.WORD
BR
JSR
.WORD
TYPE
TYPE
MOV
MOV
MOV

JSR
TABLE3

005726

1YPE
TYPE
MOV
MOV

NN NNNESS

ugwouuwoo

8288
VWSS §°OO-‘—0
NONN
"‘-‘—‘?O
S S~

: ¥o~ao?
WA = —
ONN~N
O VWAV o~
—
YT
3 bwngONOOngzbog

RN NN N NN NN N NN NN NN

SUPPORT SUBROUTINES

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

021602

020710
177777

0C1406

8%:
9%:

18T
BMI
15T
BMI
1ST
BM]
JSR
.WORD
BR
JSR
. WORD
MOv
RTS

FUNCT3: MOV
1%:

MOv
TYPE
TYPE
MOv

38:

#-1,0S.CYL
#-1,DS.TRK

#-1,SAVSEC
R4 ,PARENT

DS.CvL
6%
DS.TRK
3
SAVSEC
4%
SS.INSERT

R5,SORT?

RESET THE

INPUT VALUES

“ENTER BAD SECTOR ADDRESS FROM THE KEYBOARD
;UPDATED INPUT VALUE ?
:BR IF NOT

s INSERT THE BAD SECTOR INTO TABLE

;TABLE ADDRESS

;ENTER NEXT BAD SECTOR ADDRESS
;SORT THE TABLE

; TABLE ADDRESS

+MESGB
+SCRLF

:?ESS:GE FOR 18 BIT USR TABLE

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

DS.CYL

DS.TRK

SAVSEC

8$
RS, INLERT
0
6%
SS.SORTZ
#-1,EDIT

R1,-(SP)
#BAD16,R1

+MESGY
+SCRLF

(R1)+,-(SP)

1%
"2 ,sP
(MESG10

ADD
TYPE
MOv
TYFE
MOV
BMI]
TYPOC

HSSSAGE FOR ENTER 16 BITS USR TABLE

BMI]

TYPOC

2%:

MESGT
JSCRLF

SEQ 0072

#BAD18,R1
+SCRLF

(R1)+,-(SP)
31

LR=L

;RESET THE INPUT VALUES

*ENTER BAD SECTOR FORM KEYBOARD
sUPDATED INPUT VALUE ?
:BR IF NOT
;BR IF NOT UPDATE

‘BR IF NOT UPDATED

*INSERT THE BAD SECTOR INTO TABLE
;BR TO ENTER NEXT SECTOR

:SORT THE TABLE
sTABLE ADDRESS
sUPDATE BAD SECTOR FILE AT END OF PASS
;EXIT FORM THE TABCAL CALLING
:SAVE R1
;ADDRESS OF THE TABLE
JMESG TO TYPE THE 16 BIT MFG
sCR=LF FIRST
JCALLING SEQ FOR TYPOC RT.
;BR IF END OF TABLE

;TYPE THE VALUE

:LOOPING BACK
sADJUST THE RETURN ADDRESS

sMESG TO TYPE 18 BIT MFG
:TABLE ADDRESS

*CALLING SEQ FOR TYPOC RT.
BR IF END OF TABLE

“TYPE

THE

VALUE

IN OCTAL

(- ¥ 4 V1]

gSRS e

Og~4

NN
O
N—=O
N

- NN
NNNNNOOSHfOO0O0O0OO0OWOoOOHrs+
NNV
= =
NS NNV
= OO

000002

003424
004430
001360

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

5%:

MOV
MOv
TYPE
TYPE
MOv
BMI]
TYPOC

3%:
4%:

ADD
TYPE
TYPE
MOV
BM]
TYPOC
BR
ADD
MOV

MOV
RTS

45 022612

FUNCTS: MOV

N =
e~

NN
NN

j=i=l=]

N
NN

f=1=

5%:

000002

ADD
MOV
RTS

BMI

003424
004430
061672
001205

000002
041742
001205

FUNCTG: MOV
MOV
MOV
MOv
18T

BTM Lt
TM L= T ]
o
—
—O

SFEXNEGFSFERNVGNERR 8N 84

&3
oW

0000

N PONOND
NN
VS

jelolelelelelelelelelelelelelalelelelelaTaT=]

JERRURZE

NN NN
NN
NN
N NN NN NNNN

-O

22642
22644

001420
001422
001424
000374
177777

002424
002426
002430
000374
177777

POND)
SOMNO
b s
8

Cc~

— e
D s i e s il il il i il i e il il s il ol e el i ol D il e il i il S il i D il i D D e
D D e
D e
D il i el D e
B i i S D
NN VoD
NN NNNNLS LS LS NT T N T N T T N S T S L S NI ST N N TNTNTNT NV
VIV WYV S &N
~ooor0rO OO OO
s
SN W
NINININ NI NININININ)
= b b s e s
oo ~Nor
S WNN—-=OO oo~
SNV NN = OV~ VS

MATTER

042061

003430
003432
003434

MOv

CLR
CLR

1%:

2%:

MOV
MOV
MOV

DEC
BNE
CLR
CLR

MOV
MOV
MOv

DEC
BNE

#2,sP
(SP)+ R1

R1,=(SP)

R2.=(S5P)

#USTAB,R1
SUSSAV.R2

SEC30

;SET 16 BIT MODE TABLE

;16 BIT MODE ?

JMESGTT

‘MESG FOR 16 BIT

FUSSAV R1

"S$CRLF

(R1)+,=-(SP)

¥2,SP

MESG12
+SCRLF

(R2)+,=(SP)

‘BR IF END OF TABLE

*ADJUST STACK POINTER

:?Esspce FOR 18 BIT MODE
+CR=L

‘BR IF END OF TABLE

sNEXT SECTOR ADDRESS

(SP)+ ,R2
(SP)+,R1
PC

;RESTORE RZ.R1

#2,SP

R1,=(SP)
R2,=(SP)

BAD16+4.
BAD16+6.

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

BAD18+4.
BAD18+6.

#BAD18+8.
,R1

n252.,R2

#-1,(R1)+
R2

FUNCT6: MOV
MOV

R1,-(SP)

MOv

;SAVE R1

sSAVE R2

:BR IF SO
;OTHERWISE ,RELOAD THE TABLE ADDRESS

(SP) +,R2
(SP) + R
JMES 6i4
PC

CLR

sLOOPING BACK
sADJUST THE RETURN ADDRESS
;RESTORE THE R1
sEXIT FROM THE CALLING OF TABCAL

s
SUSTAB,R2

MOV
MOV
TYPE
RTS

CLR

SEQ 0073

R2,=(SP)
USTAB+4
USTAB+6

FUSTAB+8.
,R1

sADJUST THE STACK POINT

CEXIT FROM THE CALLING OF TABCAL
:SAVE R1,R2

;START AT

THE 5TH WORD

sWORD CTR
SRESET 10 -1
sDECREMENT WORD CTR
:BR IF NOT DONE

;START AT THE 5TH WORD
sWORD CTR
;RESET 10 -1
sDECREMENT WORD CTR
:BR IF NOT DONE
;RESTORE R2,R1
+DONE MESAGE
SEXIT FROM THE TABCAL CALLING
~STORE R1,R2

CIRMLAD RMOS/3/2 ¢ ORMATTER

MACRO v03.01

SUPPORT SUBROUTINES

1271 022730

012702

000374

1273 022740
1274 022742
1275 022744
1276 022750
1277 022754
1278 022760
1279 022764
1280 022770
1281 022772
1282 022774
1283 022776

005302
001374
005037
005037
012701
012702
012721
005302
001374
012602
012601

1285 023004
}%g? 023012

012737
000207

104401

042041

1288 023014

104401

042012

1§7§ 022734 015721 177777

1284 023000

177777

1289 023020
1290 023022
1291 02302¢
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

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 023122
1316 023126
1317 023134
1318 023142
1319 023150

}ggg 023154

104401
012737
012737
012737
004437
005752

042051
177777
177777
047301
020454

1322 023156
1323 023162
1324 023164
1325 023170
1326 023172
1327 023176

005737
100455
005737
100452
005737
100447

001364

}g}z 023120

000207

MOV

#252.,R2

;WORD CTR

DEC
BNE
CLR
(LR
MOV
MOV
MOV
DEC
BNE
MOV
MOV

R2
18
USSAV+4
USSAV+6
#USSAV+8. ,R1
#252. ,R2
#=1,(R1)+
R2
28
(SP)+,R2
(SP)+ R

:DECREMENT WORD CTR
‘BR IF NOT DONE

MOV
RTS

#-1,EDIT
PC

FUNCT7: TYPE

,MESG13

18:

004434
004436
004440
000374
177777

2%:

1%:

000040
023462

28:

3%:
4%:

036425
’

001205

001366
001346

5%:

001364
001366
001346

MOV

TYPE

001406

006132
000402
001205
000010

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

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

RTS

FUNCT8: TYPE
1%:
MOV
MOV
MOV
JSR

TABLE4

TST
BMI
ST
BM]
1ST
BMI]

#=1,(R1)+

JMESGT4

(SP)+,R1
#32. ,R2
RS,CK.DIG

R2
ADRTBL (R2) ,R1
#258.,R2
JOCRLF
#10,RS
(R1)+,-(SP)

SRESET 10 =1

;TABLE ADDRESS
:RESET T0 =1
:DECREMENT WORD CTR
:BR IF NOT DONE

:RESTORE R1,R2

:DONE MESSAGE

;UPDATE BAD SECTOR FILE AT END OF PASS
JEXIT FORM THE TABCAL CALLING

;MESSAGE ENTER SECTOR #

JREAD THE SECTOR NUMBER
sADDRESS OF READ=IN BUFFER
*MAX VALUE
*CHECK THE READ=-IN VALUE

,BLNKS?2
R2
5%
RS
4%
3%
,SCRLF

;:FOUND THE WORD INDEX
;ADDRESS OF THE BUFFER
;WC FOR WHOLE SECTOR INCLUDING HEADER
;CR=LF
:8 WORDS ON A LINE
;CONTENTS OF THE BUFFER
;
sTYPE 2 SPACES
sDECREMENT WORD CTR
‘BR IF
FINISH
*START ANOTHER LINE ?
*BR IF NOT
‘BR IF SO
:CR-LF

,MESG1S
#-1,DS.CYL
#-1,DS.TRK
#20161.,SAVSEC
R4 ,PARENT

JRESET ALL INPUT VALUES
s TRACK NUMBER
;BYTE NUMBER
JENTER THE VALUE FROM KEYBOARD

DS.CYL
6%
DS.TRK
I3
SAVSEC
6%

:UPDATED ?
SEXIT IF NOT
:BR IF NOT UPDATED
;
:BR TO EXIT IF NEG
JEXIT

JEXIT FROM TABCAL CALLING

SEQ 0074

MACRO v03.01 11-APR-80 13:01:23 PAGE 18-26
¥

CZRMLADO RMOS5/3/2 FORMATTER

SUPPORT SUBROUTINES

1328 023200
1329 023206
1330 023210
1;31 023212
1 Sg 023216
1333 023220
1336 023226
1335 023230
1336 022234
1337 023236
1338 023240
1339 023244
13640 023250
1341 023252
1342 023256
1343 023260
1344 023266
1345 023270
1346 023274
1347 023276
1348 023300
1349 023304
1350 023310
1351 023312
1352 023314
1353 023316
1354 023322
1355 023324
1356 023330

1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
137%
1372
1373
1374
1375
1376
1377
1378

1379
1380
1381
1382
1383
1384

023332

022737
003443
010446
013746
005004
023764
101403
062704
000771
006204
010437
004537
001424
012637
005004
023764
101403
062704
000771
006204
010437
004537
002430
012604
000704
004537
001424
004537
002430

047301

001346

006332

000002

Ré,=(SP)

s SAVE

CLR

CMP

: INDEX STARTS FROM 0

BLOS

SAVSEC,BYTE16(R4)

:BR IF FOUND

SAVSEC,=(SP)

s TRY NEXT SECTOR

ASR
MOV
JSR

R4
R&,SAVSEC

sSECTOR ADDRESS
;16 BIT MODE BAD SECTOR ADD

(SP)+,SAVSEC
R4

;LOCATE SECTOR FOR
;RESET INDEX VALUE

:BR IF FOUND

R4
R4 ,SAVSEC

;SECTOR ADDRESS
H

ASR
MOV
JSR

BAD18+8.

6%:

020710

s INSERT INTO TABLE

;USE TABLE

18 BIT

:TRY NEXT SECTOR IF NOT FOUND
:LOOPIN BACK

RS, INSERT

s INSET INTO TABLE

BR
JSR

(SP)+ R4

;RESTORE k&

R5,SORT?2

;SORT BOTH TABLE ANYWAY

JSR

R5,SORT2

RTS

sRETURN TO SERVICE LOOP

BAD16+8.
BAD18+8.

000207

RS, INSERT

"2 ,Ré
4%

MOV

020710

:LOOPING

SAVSEC,BYTE18(R4)

ADD

5%:

;LOCATE THE SECTOR ADDRESS

#2,R4

CLR
CMP
BLOS

000002

sSAVE SAVSEC

ADD

MOv

006432

;700 LARGE ?
;BR lFR20.EXIT

MoV
Mov

BAD16+8.

001346

001346
021602

001346

#20161.,SAVSEC

CMP
BLE

SEQ 0075

sLOOPING BACK

sTHIS ROUTINE IS USED TO CHECK IF AN
sASCII CHARACTER 1S A DIGIT BETWEEN O AND 7.
s CALL

MOV
JSR
RETURN1

#ADR,R1
RS,Cx.OCT

sADDRESS OF ASCI]1 CHARACTER
sCHECK THE CHARACTER

(R1).,#'0

JLESS THAN ZERO?

sCHARACTER IS NOT BETWEEN 0-7
sCHARACTER IS IN R2 AS A
sOCTAL DIGIT

RETURNZ2

023334
023340
023342
023346
023350
023352
023356
023360

121127
103407
121127
101004
111102
042702
005725
000205

000060

CK.OCT:

000067

CMPB
BLO
CMPB
BHI

177770
1%:
sTHIS ROUTINE

1%
(R1),#'7
1%
(R1) ,R2
#*C7,R2
(RS)+
RS

IS USED TO CHECK AN ASCI]

;AND DETERMINE IF
s CALL

:
{
i

CHARACTER

IT IS A DIGIT BETWEEN O AND 9.

#ADR,R1
R5,CK.DEC
JSR
RETURN]
RETURNZ

MOV

;

SVES
sGREATER THAN SEVEN?
JYES
.
JGET THE CHARACTER
;STRIP AWAY THE ASCII
sADJUST FOR RETURN
sRETURN

sADDRESS OF

ASCII

CHARACTER

;CHECK THE CHARACTER
:NOT BETWEEN O AND 9
;BETWEEN O AND 9
:R2 = DIGIT

OO0
=t b s s
COf —=ONON

1%:

*GREATER THAN NINE?
‘YES

;GET THE CHARACTER
;STRIP AWAY THE ASCII
;ADJUST FOR RETURN
sRETURN

0002

JSR
RETURN
RETURN
RETURN
RETURN

RETURN
RETURN

CK.CHR: TSTB
BEQ
CMPB
BEQ
CMPB
BEQ
JSR
BR
JSR
1ST

000054

000056

023362
023334

TST

1%:

TST

4$:

INC
MOy

2%:
3%:

TST
TST

RTS

R
#ADR,R1

R5,CK.CHR
ADR1
ADR2
ADR3
ADR4

ADRS

ADR6

(R1)

(R1),#',
0
N

MOV

N
L
R
L
L
——

39 023462
40 023464
41 023466

W NONNNNNVESWVES
s alh~N
OCOONNINNINIWN=INON
=N — VI = W
N O NI NN
N N -

023460

o
o

C ECK AN ASCII
I

sDETERMINE WHAT I
:

NN NN NN W
NNV NN NV NI NI NI NI NN b b b e e et b et
ONOWVMBWNN=O
VRNV
WN—=O VRNV
W —=O

:5235 THAN ZERO?

(MPB
BLO
(MPB
BHI
MOVB
BIC
ST
RTS

sTHIS ROUTINE Wi

s CALL

SEQ 0076

(R1),#".

R5,CK.DEC
3]
RS,CK.OCT

(R5)+

(RS)+
(R5)+
(R5)+
(RS)+
R1
(R5) ,RS
RS

CHARACTER TO

sADDRESS OF ASCII CHARACTER
sCHECK CHARACTER
sUNKNOWN CHARACTER
:CARRIAGE RETURN * (R1)=ADR+1
;COMMA * (R1)=ADR+1
;PERIOD * (R1)=ADR+1
;DIGIT BETWEEN O AND 7.
:DIGIT BETWEEN 8 AND 9.
:R2 = DIGIT » (R1)=ADR+1
;"'CARRIAGE RETURN'"?

YES

:"'COMMA'"?
:YES
;"'PERIOD'"?

SYES

JDIGIT'TM?

sNO

;OCTAL ?

;DIGIT BETWEEN 8-9
;DIGIT BETWEEN 0-7
;PERIOD
s COMMA
sCARRIAGE RETURN
sMOVE POINTER TO NEXT CHARACTER
JUNKNOWN CHARACTER
sRETURN

sTHIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL
s CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2.
sCALL

MOV

JSR
RETURN
RETURN
RETURN
RETURN
RETURN
RETURN

010446
010346
010246

(K.DIG:

MOV
MOV
MOV

#ADR,R1
#NUM,R2
R5,CK.DIG
ADR1
ADR2

ADR3

;ADDRESS OF ASCI1Z STRING
:MAX. MAGNITUDE OF INPUT NUMBER
:CHECK DIGITS

:"CRTM ONLY ENTERED -- R2=0
:"PERIODTM ONLY ENTERED == R2=0

ADRS

:ILLEGAL CHARACTER OR INPUT TOO LARGE -- R2=?
iR == R2 = NUMBER
:"'COMMA'* == R2_= NUMBER

R4 ,=(SP)

;SAVE R4

ADR4

ADR6

R3,-(SP)
R2,-(SP)

:"PERIOD' -- R2 = NUMBER
;SAVE R3

sSAVE THE MAX. SIZE ON THE STACK

AP GAT AT G ARy

8?°NNNOO
oosr~ooNn

&5 55 B NI

COO0OCOOO

MACRO v03.01 11-APR-80 13:01:23 PAG% 18-25
CK.DEC:

NN NN NN NN NN NN
O O O O O O O O O 00 0o 0o 0o 0o
oo NO VS
N0 — O 0 00 ~O

NN
NN NN NN NN

CZRMLAO RMO5/3/2 FORMATTER
. SUPPORT SUBROUTINES

' CZRMLAO RM05/3/2 FORMATTER

| SUPPORT SUBROUTINES

MACRC v03.01 11-APR-80 13:01:23 PAGEM 18-26

SEQ 0077

WNINNINI
N = b ss

o0
LN NTNTNTNTNTNTNTNTNT
NTNT T T v
00000000000000008

=O V0O~

LI
IV IV
P P

CLR

;START WITH 0

023410

R5,CK.CHR

000004

#6 RS
R3
R3,=(SP)
R3
R3
(SP)+,R3

023410

RS5,CK.CHR

;CHECK ONE CHARACTER
:ILLEGAL CHARACTER
: CARRIAGE RETURN

:DIGIT 0-7
;DIGIT 8-9

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

:SAVE #2
iv
:*8

;(%2)4(#8) = #10
;UPDATE THE INPUT NUMBER

sCHECK ONE CHARACTER
:ILLEGAL CHARACTER
: CARRIAGE RETURN
¢

;DIGIT Q=7
;DIGIT 8-9

;DOES A ""CR'" FOLLOW THE '‘PERIOD'
)
:BR IF NOT
s INCREMENT THE RETURN
s INCREMENT THE RETURN

OO NN~N
VNN
-

e e
b

e et

aEad

el e d

»f o

1442 023470
1443

Fol 2k 2kaf

(=d=l=lelelelelelele]
NNV OOOO

000205

s INCREMENT THE RETURN
sCHECK THE MAGNITUDE OF THE NUMBER
sBR IF ENTERED NUMBER TOO LARGE
sBYPASS INCREMENT
s INCREMENT RETURN PAST INVALID RETURN
s INCREMENT RETURN
sSETUP RETURN POINTER
sENTERED VALUE
sCLEAN MAX. SIZE OFF OF STACK
sRESTORE R3
sRESTORE Ré&
sGET RETURN ADDRESS

RTS

sRETURN

.SBTTL MACRO ROUTINES
.SBTTL
AR

ERROR HANDLER ROUTINE

AR AR

A A

:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
s*AND GO TO TYPERR ON ERROR
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SW15=1
HALT ON ERROR
;*SW13=1
INHIBIT ERROR TYPEOUTS
;*SW10=1
BELL ON ERROR
;*SW09=1
LOOP ON ERROR

s«CALL

' CZRMLAO RMO0S/3/2 FORMATTER
ERROR HWANDLER ROUTINE

7
MACRO V03.01 11-APR-80
13:01:23 PAGEN 10-27

.
023620
023620
023622

023626
023632

010337
013737

$ERROR:
001370

001372
005552

023640
023646
023652
023654
023660
023664
023670
023676
023676
023706
023712
023714

113737
005737
001406
013746
162716
013637
105237
001775
013777
032777
001402
104401

001200

023726

011637

001132

023720
023730

005237

162737

023736
0237464
023752
023754
023760
023764
023764
023772
023774
024002

122737
001007
113737
004737

024007
024010
024012
024016
024020
024022
02640264
024032

000
000777
005777
100002
000000
104407
032777
001402

024040
024044
8%2823

005737
001402
013716

024006

024034

104407
010137

024052

117737
032777
001004
004737
104401

000

013716

005551
005564

001116
002000

000002
155170
020000

7%:
155252
155242

18:
001130
155202

000001

001230

001130
024656

024006

001000

001124

001176
001176

20%:

MOVB
ST
BEQ
MOV
SUB
MOV
INCB
BEQ
MOV
BIT
BEQ
TYPE

FMTDPB#11.0S.TRK :REQUESTED TRACK ADDRESS
RM.REG+RMBA
:NON-ZERO BUFFER ADDRESS
?
7%
:BR IF NO BUFFER ADDRESS
RM.REG*RMBA,=(SP)
:BUFFER ADDRESS
#2,(SP)
:DECREMENT THE ADDRESS
9(SP)+,8GDDAT
:GET THE BUFFER WORD WHICH DIDN'T COMPARE
SERFLG
::SET THE ERROR FLAG
,
7%
::DON'T LET THE FLAG GO TO ZERO
STSTNM,ADISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG
#BIT10.3SWR
::BELL ON ERROR?
1%
1:NO = SKIP
$BELL
::RING BELL

MOV

(SP),SERRPC

3$:

000002

::TEST FOR CHANGE IN SOFT-SWR
:DRIVE ADDRESS IF DRIVE ERROR CALL

R3IATTN
:ATTENTION REGISTER CONTENTS
FMTDPB+12,0S.CYL" ;CURRENT CYLINDER ADDRESS

$ERTTL

::COUNT THE NUMBER OF ERRORS

::GET ADDRESS OF ERROR INSTRUCTION

#2,$ERRPC

QSERRPC,SITEMB
#BIT13,35WR
208
PC, TYPERR
LSCRLF

;;STRIP AND SAVE THE ERROR ITEM CODE
1:SKIP TYPEOUT IF SET
::SKIP TYPEOUTS
1360 TO USER ERROR ROUTINE

CMPB
BNE
MOVEB
JSR

WAPTENV,SENV
2
SITEMB,21%
PC,SATYS

;;RUNNING IN APT MODE
1:NO,SKIP APT ERROR REPORT
::SET ITEM NUMBER AS ERROR NUMBER
:REPORT FATAL ERROR TO APT

BYTE
BR
ST
BPL
HALT
CKSWR
BIT
3E0

0
22%
ASWR
38
#B1109,aSWR
43

::APT ERROR LOOP
::HALT ON ERROR
::SKIP IF CONTINUE
: *HALT ON ERROR'
S:TEST FOR CHANGE IN SOFT-SWR
:LOOP ON ERROR SWITCH SET?
:BR IF NO

ST
BEQ
MOV

$ESCAPE
5%
$ESCAPE,(SP)

::CHECK FOR AN ESCAPE ADDRESS
S:BR IF NONE
::FUDGE RETURN ADDRESS FOR ESCAPE

MOV

48:

: ;ERROR=EMT AND N=ERROR ITEM NUMBER

SUB

.BYTE

22%:
28:

155122

R1,DDRIVE

MOVB
BIT
BNE
JSR
TYPE

21%:

155136

CKSWR
MOV

INC

001132

024054
001205

SLPERR, (SP)

RTI

::FUDGE RETURN FOR LOOPING

: ;RETURN

}

1489
1490
1491

:THIS ROUTINE USES THE "'ITEM CONTROL BYTE'' ($SITEMB) TO DETERMINE
:WHICH ERROR IS TO BE REPORTED, IT THEN OBTAINS, FROM THE '‘ERROR
STABLE'' (SERRTB), AND REPORTS THE APPROPIATE INFORMATION

}23%

1494 0264056
1495 024056
1496 024060

001366

001126

MOV
MOV

001364

005564
000002
001140
001117

ERROR

104412
005000

113700

001130

CONCERNING THE ERROR.

TYPERR:

:SAVE RO-RS
:CLEAR RO FOR ERROR NUMBER
*ERROR NUMBER

SAVREG
CLR
MOVB

SITEMB,RO

SEQ 0078

3/2 FORMATTER

mes
1~

RMLAO RMOS/
ROR MANDLER ROUT INE

1497
024064
1433
4
14
40
1500
02407
1501 8 4076

150 8 6106
1504
4103
1505 8 6112
150?
6114
1507 0 4113
1508 024122
1509 024126
1510 0%61
1511 024132
151; og‘l
1513
024136
1514 024140
1515 024142
1516 024144
1517 026146

001404
106401
106401
ooooog
012037
001404
104401
104401
000000
012001
001460
005005
012000
012002
001451

\soi

1518
1519
1520
1521
1sz§
1523

6100

024150
024152
024156
024160
024162
024164

15264 0561
02461

005
00

012037

005105
104401
112003
112004
006004
103403

013146

1527 024200
1528 024202

005303
001403

1530 024210

000764

1534 024222

005760

1529 026206

1531 026212
153; 026214
1533 024216

1535 026226
1536 024230
1537 024232
1538 024234
1539 026240

024114

18:

001205
024132

gs:
$:

001205
48:
5% :

001205

6%:

7%:

8s:

104405

104401

005302
003431
104401

001404
005105
001002
104401
012037

1541 024246
154; 026250
1543 024252
1544 024254

000000
005710
001003
062700

1549 oz‘%oz
1547 0246266
1548 oz«gro
1549 024272
1550 024276

106401
005705
001332
104401
000727

000754

DEC
ASL
ASL
ASL
ADD

RO
RO
RO
RO
#SERRTB, RO

:FORM ADDRESS

BEQ
TYPE
TYPE
LWORD
MOV
BEQ
TYPE
TYPE
WORD
MOV
BEQ
CLR
MOV
MOV
BEQ

33
,SCRLF

:BR IF THERE ISN'T ONE
:"CARRIAGE RETURN = LINE FEED

O
(RO)+,48
s
,SCRLF

:"EM"' POINTER GOES MERE
‘PICK UP DATA HEADER (DM) POINTER
:BR IF NONE
:CARRIAGE RETURN=LINE FEED

O
(RO)+,R1
158
RS
(RO)+,RO
(RO)+.R2
148
RS
,SCRLF
(RO)+,R3
(RO)+.Ré&
Ré
8s

:"DH'"* POINTER GOES MERE
:PICKUP DATA TABLE (DT) POINTER
:BR IF NONE
:SET INDENT SWITCH
:DATA FORMAT (DF) POINTER
*NUMBER OF DH'S TO TYPE
:BR IF DH NUMBER IS 0
*NO INDENT
:CARRIAGE RETURN=-LINE FEED
;NUMBER OF DATA WORDS TO TYPE
SAND HOW TO TYPE THEM
:0CTAL OR DECIMAL?
:DECIMAL

MOV

COM
TYPE
MOVB
MOVB
ROR
BCS

MOV
TYFOC

000402

1540 024246 104401
1545 024260

006526

013146
104402

1525 024172
1526 024174
026176

026176

MACRD v03.01 11-APR-80 13:01:23 Plfig 10-28

98 :

036425

a(R1)+,=(SP)

MOV

(Rl

DEC
BEQ

R3
108

B8R

TYPDS

TYPE

108:

(RO)+,2$

*,=(SP)

BLNKS2

001205

DEC
BLE
TYPE

R2
158
$CRLF

036425
024246

BEQ
COM
BNE
TYPE
MOV

1%
RS
18
,BLNKS2
(RO)+,128

000002

118:
12%:

000004

001205

138:

036425

14%:

TYPE

2(RO)

.WORD
3
BNE
ADD

O
(RO)
138
#,R0

TYPE
181
BNE
TYPE
BR

,SCRLF
RS
6%
,BLNKS2
6%

10§

;FORM INDEX FOR ERROR TABLE

SGET ERROR MESSAGE (EM) POINTER

;:SAVE @(R1)+ FOR TYPEOUT
2:6G0 TYPE==OCTAL ASCIICALL DIGITS)
;:SAVE @(R1)+ FOR TYPEOUT

1360 TYPE--DECIMAL ASCI1 WITH SIGN
:MORE NUMBERS T0 TYPE?
*NO

STYPE 2 SPACES

:LOOP

‘MORE DH'S?
©INO
TYES==START A NEW LINE

SONLY A 'DM' IN THIS REQUEST ?
‘BR IF YES - BYPASS THE INDENT
* INDENT?
*NO
:TYPE 2 SPACES
*GET NEXT DM

SAND TYPE IT

‘DM POINTER GOES HERE
STYPE A 'DT* 2
BR IF A ‘DT’
:INCREMENT THE 'DF' POINTER

:SEE IF END OF 'DF' BLOCK

:CARRIAGE RETURN=-LINE FEED
S INDENT?
*NO
STYPE 2 SPACES
:LOOP

SEQ 0079

1551 02¢

MACRO v03.01 11-APR-80 13:01:23 PAG& 10-29

}gg; 056;83 0000

10441

158:

RTS

1554

.SBTTL

TYPE ROUTINE

MAAA

RESREG

AL A

;RESTORE RO-RS

PC
A

SEQ 0080

sRETURN
A

;*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.
s*NOTE:
LSNULL CONTAINS THE CHMARACTER TO BE USED AS THE FILLER CHARACTER.

s*NOTE2:

SFILLS CONTAINS THE NUMBER OF

s*NOTES:

FILLER CHARACTERS REQUIRED.

SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

s*CALL:

;*1) USING A TRAP INSTRUCTION
:.OR

TYPE

LMESADR

ssMESADR

IS FIRST ADDRESS OF

$TPFLG
1%

231S THERE A TERMINAL?
;:BR IF YES
ssHALT HERE IF NO TERMINAL
s sLEAVE
s sSAVE RO
2sGET ADDRESS OF ASCIZ STRING
ssRUNNING IN APT MODE
2sNO,GO CHECK FOR APT CONSOLE

AN ASCIZ STRING

TYPE

MESADR

$TYPE:

TSTB
BPL
HALT
BR
MOV
MOV
(MPB
BNE

0243064
024310
024312
0264314
026316
024320
024326
024332

263
024342
0264344
0264350
024354
026356
024
024
024370
024372
024374
0264376
024402
024406
024410
026412
024416
024420
026422
024426
026426
024432
026436
024440
024444
026446
0246452
0246456

105737
100002
000000
000430
010046
017600
122737
001011

132737
001405
010037
004737
132737
001003
112046

001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
1044601
001205
105037
000755
004737
123726
001350
013746
105366
002770

001173

1%:

000002
000001

001230

000100

001231

001170

BITB
BEQ
MOV
JSR
61%:
LWORD
62%:
BITB
BNE
MOvB
- BNE
i 157
60%:
MOV
3%:
ADD
RTI
4%:
CMPB
BEQ
(MPB
BNE
18T
TYPE
SCRLF
CLRB
BR
5%:
JSR
6%:
CMPB
BNE
MOV

000001

7%:

024354
024646
000040

000002
000011
000200

024634

024516
001172

001231

DECB
BLT

3%
RO,=(SP)
#2(SP) RO
#APTENV,SENV
62%
#APTSPOOL ,SENVM
62%
RO,61%
PC,SATY3
O
#APTCSUP,SENVM
60%
(RO)+,-(SP)
4%
(SP)+
(SP)+,RO
#2,(SP)
#HT, (SP)
8%
#CRLF,(SP)
5%
(SP)+

SCHARCNT
2%
PC,STYPEC
SFILLC,(SP)+
2%
$NULL ,=(SP)
1(SP)
6%

; :SPOOL MESSAGE TO APT
s3NO,GO CHECK FOR CONSOLE
ssSETUP MESSAGE ADDRESS FOR APT
2 :SPOOL MESSAGE TO APT
s sMESSAGE ADDRESS
;:APT CONSOLE SUPPRESSED
ssYES,SKIP TYPE OUT
2sPUSH CHARACTER TO BE TYPED ONTO STACK
ssBR IF IT ISN'T THE TERMINATOR
ss1F TERMINATOR POP IT OFF THE STACK
s sRESTORE RO
s sADJUST RETURN PC
:;RETURN
s JBRANCH IF <HT>
;sBRANCH IF NOT <CRLF>
::POP <CR><LF> EQUIvV
s3TYPE A CR AND LF

:3CLEAR CHARACTER COUNT
J3GET NEXT CHARACTER
2:60 TYPE THIS CHARACTER
231S 1T TIME FOR FILLER CHARS.?
ss1F NO GO GET NEXT CHAR.
ssGET # OF FILLER CHARS. NEEDED

2sAND THE NULL CHAR,

2sDOES A NULL NEED TO BE TYPED?
::BR IF NO=--GO POP THE NULL OFF OF

STACK

en—~

RM05/3/2 FORMATTER

CIRMLAO
ERROR WANDLER ROUTINE

C l RML AD RM05/3/2 FORMATTER
1 Y PE ROUTINE

MACRO v03.01 11-APR-80 13:01:23 Plfig 18'30

737

024470

024516
1 SSé? 024634

JUR
DECB
BR

770

PC,STYPEC
SCHARCNT
7%

SEQ 0081

::60 TYPE A NULL
::Dgo=07 COUNT AS A COUNT

JHORIZONTAL TAB PROCESSOR

§ru~ruuru ONN~N

=St
BSNN
NOOON N
b
NN
ooowmwN

L= P
SnR=35
S8R
o
= NONNOWV
NN~

024634

8%:
9%:

$TYPEC:

154432

177600

000023

1018:

1564412

154406
177600
102%:

108:

154370
154362

000002

024634
000002

—=O——

MNOMNN
NN
WO W
NWwWNwN
—_-PN)
== NOO
ONSN=O
WIS
&
—-NYONOOT

ONOCO == -

024640
024646
024654
024656

s (T
=

000001
000001

025104
025102

000001

025104

025102
000001

001230

AR A

‘ATVI:

$ATYS:
SATYS:
$SATYC(:

(SP)

ssREPLACE

PC.ETYPEC

TAB WITH SPACE

#7 . SCHARCNT
9%

ssTYPE A SPACE
s sBRANCH ]F NOT AT
;:TAB STOP

J3GET NEXT CHARACTER

(SP)+

asTKS
108
a8TKB,-(SP)

9177600, (SP)
#SXOFF, (SP)
102$

;:POP SPACE

OFF

STACK

ssCHAR IN KYBD BUFFER?
;:BR I1F NOT
;:GET CHAR
;:STRIP EXTRANEOUS BITS
s sWAS CHAR XOFF

;:BR 1F NOT

1ST8
BPL

9%7ksS

BIC
(MPB
BNE

#177600, (SP)
#SXON, ($P)
101%

ssWAS 1T XON?
;:BR IF NOT

187

(SP)+

ssFIX STACK

asTPS
108
2(SP) ,a$1PB

s:WAIT UNTIL PRINTER IS READY

1STB
BPL
MOvB
CMPB
BNE
CLRB
BR
1$:
CMPB
BEQ
INCB
$CHARC
: . NT
WORD
$TYPEX: RTS

.SBTTL

O=O—=O0

000012

1STB
BPL
MOV
BIC
CMPB
BNE

MOovB

000021

000002
000015

MOVB
JSR
BITB
BNE
1S1
BR

JsWAIT FOR (HAR

101$%

a$1KB, (SP)

1§R.Z(SP)

SCHARCNT
STYPEX
FLF,2(SP)
STYPEX

;:GET CHMAR

JiSTRIP IT

::LOAD CHAR TO BE TYPED INTO DATA REG.
531S CHARACTER A CARRIAGE RETURN?
s sBRANCH IF NO
::g;?;-CLEAR CHARACTER COUNT
3:1S CHARACTER A LINE FEED?

s ;BRANCH 1F

YES

s sCOUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

(PC)+

154436

NN NN SfOMNNNO

NNWNNN

000040
024516
000007

026472

APT COMMUNICATIONS ROUTINE
A

Al R

BR
MOovB

#1,SFFLG
#1,8MFLG
SATYC
#1,$FFLG

MOV
MOV
1518

R1,-(SP)
S:FLG

MOvB
MOvB

BEQ
(MPB
BNE

RO,=(SP)

#APTENV, SENV

SR R

2. 70 REPORT FATAL ERROR
::T0 TYPE A MESSAGE

;.70 ONLY REPORT FATAL ERROR

;:PUSH RO ON STACK
;sPUSH R1 ON STACK
JsSHOULD TYPE A MESSAGE?
s31F NOT: BR
s sOPERATING UNDER APT?

;.1F NOT:

001231

000004
000002
001210

000004

001224

Bl118
BEQ
MOV
1%:

2%:

001224

000004

001210

025014
000004

024304

38:

5%:

108:

001230

000004
000002
001210
025104
025103
025102

118:

001212
000004

MOV
MOV

$MSGAD,
RO
RO
RO,SMSGLGT
;:.$HSGTYPE

;:SUB START OF MESSAGE
s:GET MESSAGE LNGTH IN WORDS
;3PUT LENGTH IN MAILBOX
ssTELL APT TO TAKE MSG.

ADD

34(SP) ,48
#2,4(SP)

;:PUT MSG ADDR IN JSR LINKAGE

RO, SMSGAD

BNE
SuB
ASR

1S18

BR
MOV

$MFLG:
SLFLG:
$FFLG:

- :BUMP RETURN ADDRESS

JSR

179776, -(SP)

sc.srvpe

::PUSH 177776 ON STACK

1STB
BEQ

$FFLG
12%
SENV
12%
SMSGTYPE
11%
@4 (SP) ,SFATAL
#2,4(SP)
SMSGTYPE
$FFLG
SLFLG
SMFLG

; :SHOULD REPORT FATAL ERROR?
BR
;:1F NOT:
; ;RUNNING UNDER APT?
BR
;:1F NOT:
ssFINISHED LAST MESSAGE?
WAIT
;:1F NOT:
s:GET ERROR #

.WORD

BEQ
T1ST
BNE

MOV
ADD

12%:

;:SEE 1F DONE W/ LAST XMISSION?

(RO)+

MOV

1ST

001210

1:GET MESSAGE ADDR.
::BUMP RETURN ADDR.

S:1F NOT: WAIT
::PUT ADDR IN MAILBOX
::FIND END OF MESSAGE

MOV

4%:

025104

TST
BNE

24(SP) RO
#2,4(5P)
%:sctvpi

INC
CLRB
CLRB
CLRB

MOV
MOV
RTS

.BYTE
.BYTE
.EV

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

::CALL TYPE MACRO

: :BUMP RETURN ADDR.

;:TELL APT TO TAKE ERROR

::CLEAR FATAL [FLAG

;:CLEAR LOG FLAG
ssCLEAR MESSAGE FLAG
;:POP STACK

INTO R1

;:POP STACK INTO RO

2 JRETURN

s sMESSG. FLAG
;:L0G FLAG
;sFATAL FLAG

—On

001226
000004

ADD

SEQ 0082

#APTSPOOL ,SENVM ; ;SHOULD SPOOL MESSAGES?
38
33
;s 1F NOT:: BR
.

(=1=l=]

000100

ocoom
o—=OoZ

LEEUENLEEISIS LS & =
NNNONWVINWNON

TINE

7
MACRO v03.01 11-APR-80 13:01:¢3 PAGE 10-31

APTSIZE
APTENV
APTSPOOL
APTCSUP

nhnn

828 32§3832 S8828% EEJ‘U“U‘U
‘fl;r\“>:rflfigfificc::mg
NN = =N E;

ATTER

.SBTTL

BINARY TO OCTAL

040
(ASCII) AND TYPE

‘:.t'.'."...'."""".""""...."'."'...'tl".'."."'!'.ll

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER T0 A 6-DIGIT
s*OCTAL (ASCII) NUMBER AND TYPE IT.

;*$TYPOS=---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF
s*CALL:
NUM,
- (SP)
MOV
M
: NUMBER TO BE TYPED

g
ot

TYPOS

.BYTE
.BYTE

DIGITS TO TYPE

::CALL FOR TYPEOUT

::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
::M=10R 0
::1=TYPE LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

CIRMLAO RM0O5/3/2 FORMATTER

BINARY TO OCTAL (ASCII) AND TYPE

F
7
MACRO v03.01 11-APR-80 13:01:23 PAGE 10-32

SEQ 0083

;*STYPON===<ENTER HERE TO TYPE CUT WITH THE SAME PARAMETERS AS THE LAST

;*$TYPOS OR $TYPOC
s*CALL:
e
MOV
NUM, = (SP)

TYPON

:;NUMBER TO BE

TYPED

s:CALL FOR TYPEOUT

- "

;-%vaoc---curea HERE FOR TYPEOUT OF
J*CALL:

e
e

025106
025112
025120
0251264
025130
025132
025140
025146
0251564
025156
025160
025162

017646
116637
112637
062716
000406
112737
112737
112737
010346
010446
010546
1137064

025170
0251764
025200
025206
025210
025212
025214
025216
025220
025222
025224
025226
025230
02523¢
025236
025242
025244
025246
025250
025252
025256

062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403
005204
052703
052703

025276
025300
025302
025304
025306
025310
025312
025314

003347
002402
005204
000744
012605
012604
012603
016666

025166

025262
025266
025272

005404

110337
104401
105337

000000
000001
025333
000002

025331

000001
000006
000005

025333

$TYPOS: MOV
MOVB
MOVB
ADD
BR
$TYPOC: MOVB
MOVB
STYPON: MOVB
MOV
MOV
MOV
MOVB

NEG

000006
025332
025331
000012
1%:
28:

025332

177770

4$:

000060
000040

5%:

025326
025326
025330

6% :
000002

MOV
TYPOC

000004

A 16 81T NUMBER

NUM,=(SP)

: :NUMBER TO BE TYPED
::CALL FOR TYPEOUT

(SP),=(SP)
1(SP),$O0FILL
(SP)+,$0MODE+1
#2,(SP)
$TYPON
#1,S0FILL
#6,SOMODE+1
#5,SOCNT
R3,=(SP)
R4 ,=(SP)
RS,=(SP)
SOMODE+1,Ré&

::PICKUP THE MODE
;;LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
::ADJUST RETURN ADDRESS

;:SET THE
::SET FOR
::SET THE
::SAVE R3
::SAVE R4
::SAVE RS
::GET THE

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

ADD
MOVB
MOVB
MOV
CLR
ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
BIC
BNE
ST
BEQ
INC
BIS
BIS

#6,R4
R&,SOMODE
$SOFILL,RG
12(SP) .RS
R3
RS
3%
RS
RS
RS
R5,R3
R3
$OMODE
7%
#177770,R3
4%
R4
5%
R4
#'0,R3
#
R3

;:GET LSB OF THIS DIGIT
::TYPE THIS DIGIT?
::BR IF NO
::GET RID OF JUNK
S:TEST FOR 0
: ;SUPPRESS THIS 0?
::BR IF YES
::DON'T SUPPRESS ANYMORE 0'S
::MAKE THIS DIGIT ASCII
::MAKE ASCI1 IF NOT ALREADY

BGT
BLT
INC
BR
MOV
MOV
MOV
MOV

2%
31
RG
2%
(SP)+,RS
(SP)+.R4
(SP)+.R3
2(SP) .4 (SP)

::BR IF MORE TO DO
::BR IF DONE
::INSURE LAST DIGIT ISN'T A BLANK
::60 DO THE LAST DIGIT
:RESTORE RS
:RESTORE Ré
S:RESTORE R3
SiSET THE STACK FOR RETURNING

MOVB
TYPE
DECB

R3,8%
13
$OCNT

::SUBTRACT IT FOR MAX. ALLOWED
::SAVE IT FOR USE
sGET THE ZERO FILL SWITCH
::PICKUP THE INPUT NUMBER
::CLEAR THE OUTPUT WORD
::ROTATE MSB INTO ''C*"
::60 DO MSB
S:FORM THIS DIGIT

::SAVE FOR TYPING
1360 TYPE THIS DIGIT
::COUNT BY 1

8%:

MOV

(SP)+,(SP)

BYTE

(=lelelel-]

OO0OOO0O

RT]

BYTE
$SOCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD

1559
1560

.SBTTL

SEQ 0084

:sRETURN

::STORAGE FOR ASCII DIGITY

;:TERMINATOR FOR TYPE ROUTINE

ssO0CTAL DIGIT COUNTER
ssIERO FILL SWITCH
s sNUMBER OF DIGITS TO TYPE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
:*NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

s*REPLACED WITH SPACES.
s*CALL:
NUM,
- (SP)
MOV
ot

=O0O0O0000O0
8=2828
[ PwvwhornowN

SONO &Moo S

& SONEE
RE
~

=l=l=lelelelelelelelele]

NN oo

0546

$TYPDS:

020200
000020
000055

000001

025550
000040

1%:

2%:

025540

3%:

4%:

5%:

000001
000060
000040

000010

025472

1727777

6%:
7%:

TYPDS

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG
MOVB

CLR

MOV
MOVB

CLR

MOV

SuB

RO,=(SP)
R1.=(SP)
R2.=(SP)

R3,=(SP)

RS =(SP)

#20200,-(SP)
%2(5?),RS

#'=-,1(5P)
RO
#S$DBLK ,R3

# (R

R2
$DTBL (RO) ,R1

BLT
INC
BR

MOvB

BIS
BIS

MOvVB

1S7
CMP

BLT
BGT

MOV

;sPUSH RO ON STACK
;:PUSH R1

ON STACK

;:PUSH R2 ON STACK
;sPUSH R3 ON STACK
;3PUSH RS ON STACK
;SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
;sBR IF INPUT IS POS.

s sMAKE THE BINARY NUMBER POS.
ssMAKE THE ASCI] NUMBER NEG.

;sIERO THE CONSTANTS INDEX
;sSETUP THE OUTPUT POINTER
J2SET THE FIRST CHARACTER TO A BLANK
ssCLEAR THE BCD NUMBER
;sGET THE CONSTANT
;sFORM THIS BCD DIGIT

::BR IF DONE
;s INCREASE THE BCD DIGIT BY 1
::ADD BACK THE CONSTANT
ssCHECK IF BCD DIGIT=0

ADD
1ST
BNE
1ST8
BM]

ASLB
BCC

;:PUT THE BINARY NUMBER ON THE STA(K
;.60 TO THE ROUTINE

::FALL THROUGH IF 0
ssSTILL DOING LEADING 0'S?
6%

1(SP),=1(R3)

#'0,R2
0

R2,(R3)+

(RO)+

RO,#10

2%
8%

RS,R2
6%

::YES==SET THE SIGN
: sMAKE THE BCD DIGI : A SCII
NOT ALREADY A DI GIT
:sMAKE 1T A SPACE |
:sPUT THIS CHARACTER IN THE OQUTPUT BU FFER
2 3JUST INCREMENTING
3
;sCHECK THE TABLE 1| N DEX
;260 DO THE NEXT DI G l 1
::60 TO EXIT
JiGET THE LSD
;.60 CHANGE TO ASCII

MACRO v03.01 11-APR-B0 13:01:23 PAG? 10-33

ORI
R
)

C 4 RMLAD RMOS/3/2 FORMATTER
8 l NARY TO OCTAL C(ASCI1) AND TYPE

CIZRMLAO RM0S/3/2 FORMATTER

MACRO v03.01

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

025476
025476
025500
025506
025510
025512
025514
025516
025520
025522

105726
100003
116663
105013
012605
012603
012602
012601
012600
104401

025534
025536
025540
025542
025544
025546

012616
000002
023420
001750
000144
000012

025526

1580 025550

016666

H
7
11-APR=80 13:01:23 PAGE 10-34

8%:

177777

025550

000002

177776

9%:

000004

(SP)+
9%
=1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+,R}
(SP)+ ,R2
(SP)+,R1
(SP)+ RO
$DBLK

MOV
RTI
10000.
1000.
100.
10.

(SP)+,(SP)

MOV
$DTBL:

$DBLK:

1562

T1STB
BPL
MOVB
CLRB
MOV
MOV
MOV
MOV
MOV
TYPE

LSBTTL

.BLKW

TTY

$(SP),4(SP)

SEQ 0085

;sWAS THE LSD THE FIRST NON-ZERO?
S:BR IF NO
::YES==SET THE SIGN FOR TYPING
::SET THE TERMINATOR
:;POP STACK INTO RS
;:;POP STACK INTO R3
;;POP STACK INTO R?2
::POP STACK INTO RI
;:;POP STACK INTO RO
::NOW TYPE THE NUMBER

TLADJUST THE STACK

::RETURN TO USER

INPUT ROUTINE

.'.'t"'.'.".t"'."""""""l'.".tt't'".'."'.t"."'t't'."

025560
025562
025564
025566

.ENABL

000000
000000
000000

LSB

$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.

025575

0
0
0
7

::NUMBER OF ITEMS IN QUEUE
S INPUT POINTER
::0UTPUT POINTER
::TTY KEYBOARD QUEUE

EVEN

;*TK INITIALIZE ROUTINE
s*THIS ROUTINE WILL INITIALIZE

THE

TTY

KEYBOARD

INPUT

QUEUE

s*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

s«CALL:
8

025576
025602
025610
025616
025626
025632
025636
025644

005037
012737
013737
012737
012737
005777
012777
000207

025560
025566
025562
025646
000200
153324
000100

025562
025564
000060
000062

RETURN

JSR

PC,STKINT

$TKINT:

CLR
MOV
MOV
MOV
MOV
TST
MOV
RTS

$TKCNT
#STKQSRT,STKQIN
$STKQIN,STKQOUT
#STKSRV,a#TKVEC
#200,9#TKVEC+2
a%7kB
#100,387TKS
PC

153314

JsCLEAR COUNT OF ITEMS IN QUEUE
::MOVE THE STARTING ADDRESS OF THE
;;QUEUE INTO THE INPUT & OUTPUT POINTERS.
;;INITIALIZE THE KEYBOARD VECTOR
::'BR" LEVEL &
;sCLEAR DONE FLAG
;sENABLE TTY KEYBOARD INTERRUPT
JsRETURN TO CALLER

;*TK SERVICE ROUTINE

J*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT

;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;1T IN THE QUEUE.
,
=

;*]1F

THE CHARACTER IS A "'CONTROL=C'"

(*C) STKINT IS CALLED AND

J*UPON RETURN EXIT IS MADE TO THE ''CONTROL=C'' RESTART ADDRESS (aCNTLC)

025646
025652
025656

117746
042716
021627

153310
177600
000003

‘YKSRV: MOVB
BIC
CMP

a$T1kB,-(SP)
#0177, (SP)
(sp), 0%

::Pl CKUP

THE CHARACTER
SISTRIP THE JUNK
2315 1T A CONTROL C?

C IRMLAO RMO5/3/2 FORMATTER
1 Ty INPUT ROUTINE

MACRO v03.01 11-APR-80 13:01:23 PAG% 10-35

001007

BNE

1YPE

JSR

WSS S S WNWWWNO
OO0
NN ooV
-‘—'gON ~
W
» NSO

OCO0OO0O0O0O0O0O0O0O0O0

OO0O0O0O0O

NN
NN
VIVWUVTWTAWTAUYTA - VWAV W
~ NNNNNNNNNN
NNNNO o

025670

1$:

022737
001500
022737
001004
104401
005726
000451
021627
001021
005077

001154

000007

025560

001200
000023

3%:

153206
153200

31%:

153174
177600
000021

000100

32%:

000175

026062

000002

(SP)+
aCNTLC

CMP
BNE
TYPE
18T
BR

#7,8TKCNT

CMP

BNE
CLR
18T

T1STB

BPL
MOVB

BIC
CMP
BNE

153152

025560
000140

ST
JMP
CMP
BNE
CMP

BEQ

2%:

MOV
RTI

INC

CMP
BLT
CMP

000040
177522
025562
025562

025575

025566

025562

(%:

5%:

1%
LSCNTLC
PC,STKINT

BGT
BIC
MOVB
INC
CMP
BNE

MOV

RTI

SEQ 0086

;;BRANCH 1F NO

ssTYPE A CONTROL=C

(*C)

ssINIT THE KEYBOARD
ssCLEAN UP STACK
ssCONTROL C RESTART
;:1S 1T A CONTROL G?
s sBRANCH IF NO
2:1S SOFT=-SWR SELECTED?
;.60 TO SWR CHANGE

(2P),l7

FSWREG, SWR

::1S THE QUEUE FuLL?
: :BRANCH IF NO

38
,SBELL

::RING THE

(SP)+

TTY BELL

;s CLEAN CHARACTER OFF OF STACK

5%
(SP),#23
32%
CEILSY

J:ERIY

2318 IT A CONTROL=-S?
s sBRANCH IF NO
;sDISABLE TTY KEYBOARD INTERRUPTS
::CLEAN CHAR OFF STACK
;sWAIT FOR A CHAR
;:LO0P UNTIL ITS THERE
ssGET THE CHARACTER
;:sMAKE IT 7-BIT ASCII
5+1S 1T A CONTROL=-Q?
;sBRANCH IF NO
s sREENABLE TTY KEYBOARD INTERRUPTS

(SP)+

CEILSY

31%

a$TkB,~(SP)

¥ C177,(SP)
(SP)+,#21

3 1%

#100,3%7KkS

s sRETURN

$TKCNT
(EP).1140

(SP),M175
4%
#40, (SP)
(SP)+,a$TKQIN
$TKQIN
gIKOXN,lSTKQEND

2 sCOUNT THIS CHARACTER
;:1S 17 UPPER CASE?
s sBRANCH IF YES
5:1S IT A SPECIAL CHAR?
s ;BRANCH IF YES

;sMAKE

IT UPPER CASE

ssAND PUT IT IN QUEUE
;sUPDATE THE POINTER
;:G0 OFF THE END?
;s sBRANCH IF NO
#STKQSRT,$TKQIN JsRESET THE POINTER
s sRETURN

;:'.'.'."ll'l""""""""".'.t.....t'."'l'..'.'l't"."'t'

026102
026106
026112
026116

OO0
= =-=wOO0O
ONS =O00N

L6064
07072
020u74
026100

— et N NO WV = N0
WO NNy
-~
ONY = 5 N~
ONOO =N~

s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL
s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
000176
153060

153054
177600
000007

001154

: *CALL WHEN OPERATING IN TTY

$CKSWR: CMP

BNE
1518
BPL

MOVB

BIC
CMP
BNE

#SWREG, SWR

INTERRUPT MODE.

3t TKs
15%
3$TKB, = (SP)

;31S THE SOFT-SWR SELECTED
JsEXIT IF NOT
::1S A CHAR WAITING?
::lFSNOI. EXIT
;. VE

331S IT A CONTROL=-G?
so1F NOT, PUT IT IN THE TTY QUEUE

15%

#4C177,(SP)
(SP),#?

JiMAKE

7-BIT ASCII

JsAND EXIT

;:...'l..'..'.."".'l""""'..'.t'lt"...ll"'.ll"!ll'...I'l'

|9 RMLAO RMO5/3/2 FORMATTER
INPUT ROUTINE

123727

026142

112737

026150
026154
026160
026164
026166
026172
026174
026176
026202

104401
1046401

104402
104401
C05046
005046
105777
100375

026204
026210

042716

117746

021627

026214
026220

001150

000001

001151

$GTSWR:

013746

19%:

+SCNTLG

ssECHO THE CONTROL=G (*G)

. SMSWR
SWREG,=(SP)

ssTYPE

. SMNEW

2 ;PROMPT FOR NEW SWR

CURRENT

CONTENTS

s sSAVE SWREG FOR TYPEOUT
2360 TYPE==-OCTAL ASCIIC(ALL DIGITS)

1S1B
BPL

-(SP)
=(SP)

a%$TKS
7%

;sCLEAR COUNTER
;s THE NEW SWR
;sCHAR THERE?
s+1F NOT TRY AGAIN

152752
177600

MOvB

3$TKB,=(SP)

::PICK UP CHAR

000003

CMP
BNE
TYPE

(SP),#3
9%

(MPB
BNE
MOv
JMP

$SINTAG,#1
#100,387KS
ACNTLC

;:1S 1T A CONTROL=C?
s ;BRANCH IF NOT
JsYES, ECHO CONTROL=C (*C)
;sCLEAN UP STACK
s sREENABLE TTY KEYBOARD INTERRUPTS?
s sBRANCH IF NO
ssALLOW TTY KEYBOARD INTERRUPTS
2 sCONTROL=C RESTART

CMP
BNE
TYPE

(SP),#25
10%
LSCNTLU

152756

026767
000006
001151
000100
153120

7%:

ADD

000001
152710

000177

026254
026260
026262
026266
026272

021627
001005
104401
062706
000737

000025

9%:

026774
000006

20%:

026274

021627
001022
005766

000015

108:

8%:

000001

000100

152614

000067
000060

_——

152636

000002
000006
001205
001151

000004

024516
000060

CLR
CLR

BIC

026250

0462726

TYPE
TYPE
MOV
TYPOC
TYPE

16%:

#°C177,(SP)
LSCNTLC

#6,SP

ADD

#6,SP

CMP

W=t
WA
=2 I s~
—t \ Nt PO~
~ O
PE O NPNPHTO
”M‘U
v
A
'U

026120

SEQ 0087

;*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
:*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
6;CONTRO%HGBBEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.
$AUTOB,#
:ARE WE RUNNING IN AUTO-MODE?
BEQ
2%
: :BRANCH IF YES
ST
(SP)+
:sCLEAR CONTROL=G OFF STACK
PC,STKINT
JSR
::FLUSH THE TTY INPUT QUEUE
CLR
a$TKs
;:DISABLE TTY KEYBOARD INTERRUPTS
Move
#1,8INTAG
:sSET INTERRUPT MODE INDICATOR

&S —

11 Y

MACRO v03.01 11-APR-80 13:01:23 PAG% 10-36

BNE

TST
BEQ
MOV
ADD
TYPE
CMPB
BNE
MOV
RTI

JSR
CMP

BLT

CMP
BGT
BIC

19$

), #5

) ,aSWR

LF
YAG "

00,a$7ks

PC,STYPEC
(SP) ,#60
18%
(SP) 067
18%
#60, (SP)+

;sMAKE 1T 7-BIT ASCII

::1S 1T A CONTROL=-V?
s :BRANCH IF NOT
::YES, ECHO CONTROL-U (*U)
:: IGNORE PREVIOUS INPUT

;sLET'S TRY IT AGAIN

30I1S IT A <CR>?
;;BRANCH IF NO
JsYES, IS IT THE FIRST CHAR?
;sBRANCH IF YES
s sSAVE NEW SWR
;sCLEAR UP STACK
;3ECHO <CR> AND <LF>
:RE=ENABLE TTY KBD INTERRUPTS?
:sBRANCH IF NOT
s sRE-ENABLE TTY KBD INTERRUPTS

3 sRETURN

:sECHO CHAR
::CHAR < 0?
;s sBRANCH IF

YES

s ;BRANCH IF
:iSTRIP=0OFF

YES
ASCI!

;:CHAR > 77

17%:

001204

18%:
.DSABL

ASL
ASL
ASL

INC
BIS
BR
TYPE
BR
LSB

S
S
(

SEQ 0088

:s1S THIS THE FIRST CHAR
;sBRANCH IF

000002
177776

( P)

7
S

1ST

BEQ

000002

026424

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

026372

MACRO v03.01

l NI~

CIR MLAO RMO5/3/2 FORMATTER
Ty INPUT ROUTINE

Z(SP).(SP)
SQUES

JsTYPE

20%

YES

ssNO, SHIFT PRESENT
2s
CHAR OVER TO MAKE
ROOM FOR NEW ONE.
H
s sKEEP COUNT OF CHAR
;sSET IN NEW CHAR
ssGE7 THE NEXT ONE
?2<CR><LF>

s sSIMULATE CONTROL=U

Ql"".".t"""""'""""""'.'..t'.'.".'.".'t"Qt"'..

'TH]S ROUTINE WILL
s*CALL:

INPUT

A SINGLE

RDCHR

026430
026436
026442
026444
026450
026452
026452
026456
026460
026464
026472
026476
026504
026506
026514

011646
016666
005066
005046
012746
000002

005737
001775
005337
117766

005237
023727
001003
012737
000002

000004
000004

000002

$RDCHR:

026452

64%:

025560

025560
177074

025564
025564
025566

1%:

(SP) ,=(SP)
4(SP),2(SP)

1ST
BEQ
DEC

$TKCNT
1%
$TKCNT

MOvVB

000004

INC
CMP
BNE

025575
025564

MOV
MOV
CLR
CLR
MOV
RTI

ZS:

MOV

RTI

TTY

s:GET A CHARACTER FROM THE QUEUE
s :CHARACTER IS ON THE STACK
;:WITH PARITY BIT STRIPPED OFF

RETURN HERE

026426

CHARACTER FROM THE

4(SP)

-(SP)
#64%,-(SP)

: :PUSH DOWN THE PC AND

::THE PS

::GET
::PUT
::PUT
::POP

READY FOR A CHARACTER
NEW PS ON STACK
NEW PC ON STACK
NEW PC AND PS

;:WAIT ON A CHARACTER

9$TKQOUT ,4(SP)

:;DECREMENT THE COUNTER
::GET ONE CHARACTER

$TKQOUT
:;UPDATE THE POINTER
SIKQOUT.IS]KOEND ::DID IT GO OFF OF THE END?

#$TKQSRT,$TKQOUT

s :BRANCH IF NO
::RESET

ETURN

THE POINTER

"."."..l'.""""'"""".".".""".it"t.'ltl""'t.lt

'E:{E ROUTINE WILL

INPUT

A STRING FROM THE

RDLIN

RETURN HERE

]

026516

$RDLIN: MOV

026752
026767

1%:

2%:

CLR
MOV

026560

10%:

026750

-(SP)
#STTYIN,RS

s INPUT A STRING FROM THE TTY
:;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
s TERMINATOR WILL BE A BYTE OF ALL 0°'S

::SAVE R3

;sCLEAR THE RUBOUT KEY

MOVB
CMPB

(SP)+,(R3)
#177,(R3)

::GET ADDRESS
JsBUFFER FULL?
JiBR IF YES
;.60 READ ONE CHARACTER FROM THE TTv
;:GET CHARACTER
..lS IT A RUBOUT

1ST

(SP)

..ls }rxs THE FIRST RUBOQUT?

CMP

BLOS

RDCHR

000177

R3,=-(SP)

TTY

BNE

#STTYIN#15,R3

BNE

TYPE

,9%

MOvVB

#'\,9%

:BR IF NO

R
;iTYPE

NO
A BACK

SLASH

%%SHLAO RMO5/3/2 FORMATTER
INPUT ROUTINE

1563
1564

026564
026570
026572
026576
026600
0266064
026610
026612
026614
026616
026624
026630
026632
026636
026640
026644
026646
026652
026654
026656
026662
026666
026670
026674
026676
026702
026706
026712
026714
026720
026724
026726
026730
026732
026740
026746
026750
026751
026752
026767
026774
027001
027006
027017

012716
005303
020327
103434
111337
106401
000746
005716
001406
112737
106401
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
136
136
136
015
040

MACRO v03.01

177777

68:

026752
026750
026750

026750
7%:

026774
8s:

001205
026752
48:

026750
026750
000015

38:

177777
001206

MOVB

#'\,9%

ssTYPE A BACK SLASH

CLR
CMPB

BNE

(SP)
#25,(R3)
13

ssCLEAR THE RUBOUT KEY
s:1S CHARACTER A CTRL U?
ssBR IF NO

ST
BEQ

CMPB
BNE
CLRB

015
015
015
123
118

(SP)
7%
,9%

$SCNTLU

#22,(R3)
3$
(R3)

;:BR IF NO

;sTYPE A CONTROL "V''

;260 START OVER
;31S CHARACTER A '"TMR'"
;s sBRANCH IF NO
ssCLEAR THE CHARACTER

;sTYPE

,SQUES

ssTYPE A

BR
MOVB
TYPE
CMPB
BNE
CLRB-

is
(R3),9%
,9%
#15,(R3)+
2%
=1(R3)

'?°

s :CHECK FOR RETURN
::LOCP IF NOT RETURN

::CLEAR RETURN (THE 15)
;:TYPE A LINE FEED
;s CLEAN RUBQUT KEY FROM THE STACK
: sRESTORE R3
+sADJUST THE STACK AND PUT ADDRESS OF
FIRST ASCII CHARACTER ON IT
33

$TTYIN:
SCNTLC:
$SCNTLU:
$CNTLG:
$MSWR:
SMNEW:

.BLKB
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

15
/*C/<15><12>
/*U/<15><12>
/*G/<15><12>
<15><12>/SWR =
/
NEW =

.SBTTL

POWER DOWN AND UP ROUTINES

INPUT STRING

;sCLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER

.BYTE

THE

2160 PICKUP ANOTHER (HACTER

BYTE

RTI

JsTYPE A "'CR' R "'LF"

,SCRLF
$TTYIN

TYPE

::RUBOUT KEY SET?

LSLF
(SP)+
(SP)+,R3
(SP),=(SP)
4(SP),2(SP)
#STTYIN,4(S

000002
000004

‘

,9%

TYPE
ST
MOV
MOV
MOV
MOV

19%:

103
125
107
012
040

::60 READ ANOTHER CHAR.

TYPE
TYPE

001204

000004
026752

#=1,(SP)

TYPE

000022

SEQ 0089

;sSET 'THE RUBOUT KEY
;sBACKUP BY ONE
s sSTACK EMPTY?
YES
ssBR IF
:;SET¥:PEO TYPEOUT THE DELETED CHAR.

DEC
CMP
BLO
MOVB

TYPE

000025

R3
R, #STTYIN
4%
(R3),9%

MOV

TYPE

58:

000134
026750

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

s sRETURN

s sSTORAGE FOR ASCII CHAR. TO TYPE
s s TERMINATOR

s sRESERVE 15 BYTES FOR TTY INPUT
'
s sCONTROL
22 CONTROL 'U”
;sCONTROL ''G"’

t'"...l.t""""""""""l't't'.l".i'.'i'.".'t"t'ttl'l'

027030
027036
027044
027046
027050
027052
027054
027056

012737
012737
010045
010146
010246
010346
010446
010546

027174
000340

000024
000026

“POWER DOWN ROUTINE

$PWRDN: MOV

MOV
MOV

#340,3#PWRVEC+2
;
RO,-(SP)
;sPUSH RO ON STACK

MOV

R3.=(SP)

;sPUSH R1 ON STACK
ssPUSH R2 ON STACK
:sPUSH R3 ON STACK

MOV

RS.=(SP)

;iPUSH RS ON STACK

MOV

#SILLUP,QNPWRVEC ..SEB ;OR FAST UP

MOV

R1.=(SP)

R2.=(SP)

Ré&.=(SP)

;:PUSH R4 ON STACK
?

THE

- CZRMLAQ RMO5/3/2 FORMATTER
POWER DOWN AND UP ROUTINES

027060

MACRO v03.01

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

01774

MOV
MOV

ngtt

000024

SEQ 0090

ASWR,=(SP)
SP,$SAVRG

..PUSH aSWR ON STACK

: sHANG UP

:SAVE SP

#SPWRUP,a#PWRVEC ::SET UP VECTOR

000000
200

000024

“POWER UP ROUTINE

$PWRUP: MOV
18:

$SAVR6,SP

J:GET SP

INC

$SAVRG

::WAIT FOR THE

CLR

BNE

MOV
MOV

MOV

027030
000340

MOV
MOV

000024
000026

MOV
MOV
$SPWRMG:

042

120

#SILLUP,Q#PWRVEC ;:SET FOR FAST DOWN

MOV

TYPE
.WORD
MOV

$SAVRG
1%

(SP)+,aSWR
(SP)¥.RS

(SP)+.Ré4

S:WAIT LOOP FOR THE TTY
::0F

WORD

INC

::POP STACK INTO aSWR
::POP STACK INTO RS

::POP STACK INTO Ré

(SP)+.R3

::POP STACK INTO R3

(SP)+.R1
(SP)+.RO

:iPOP STACK
:POP STACK

(SP)+.R2

1:POP STACK INTO R2

INTO R1
INTO
RO

#SPWRON,3#PWRVEC :;SET UP THE POWER DOWN VECTOR
#340,9#PWRVEC+2 ;:PRIO:7
SPOWER
(PC)+,

(SP)

: :REPORT THE POWER FAILURE
::POWER FAIL MESSAGE POINTER
::RESTART AT BEGINZ

$PWRAD : fi??“°

BEGINS

$SILLUP: HALT
BR
$SAVRG: 0
$POWER: .ASCIZ

;;THE POWER UP SEQUENCE WAS STARTED
:: BEFORE THE POWER DOWN WAS COMPLETE
;:PUT THE SP HERE
<CRLF>/''POWER UPTM/

.SBTTL

::RESTART ADDRESS

TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS

tt.ttttt."t.t't""ttt"t"tltilttitt.ttltt.'ti'tt't'i'"t"t'

-ruls ROUTINE

IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE

'%ifElNG NUMBERS .
o

]

027216
027220
027224
027226
027230
027234
027236
027240
027244

1568
1569

010046
016600
105710
001403
122720
001773
005300
010037
104401

000004

#NUMADR,=(SP)

::FIRST ADDRESS OF

BEQ
CMPB
BEQ
DEC
MOV

RO,=(SP)
4($P),RO
(RO)
2%
#'0,(RO)+
1%
RO
RO,3$

: :SAVE RO
::PICKUP THE POINTER
: :TERMINATEOR?

::BR IF YES
::1S THIS AN ASCII ''0" ?
;:BR IF YES
: :BACKUP BY '1"
..SAVE FOR TYPING

LMORD

13ASCIZ POINTER GOES HERE

MOV
RTS

(SP)+.(SP)
PC

:RESTORE THE STACK
L RETURN

JSR

$SUPRS: MOV
MOV
1$:
1STB

000060

027246

MOV

28:

38:

.SBTTL

TYPE

MOV

PC,a#$SUPRS

(SP)+,RO

ASCI1Z

160 TYPE

1:RESTORE RO

SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

STRING

- AT

027200
1565 027202
1566
1567

OO0 =000 000O0O0O0O0O0O00O
BN
i i i i et i C D) ) e et

OSr0OoN
o SN

D
s
e
D e
D
e
e —

W WINNININ)
— = O

~N
~

o [=]elelelelelele]

"'."..""."t""""""""'l""t."""""tt"t""'"t

CZRHLAO RMO5/3/2 FORMATTER

MACRO v03.01

- SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

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

SEQ 0091

"""'.'l"."'"""""'0'.'.""..""'Q"'l""."""""

'THIS ROUTINE WILL CONVERT A 16=BIT UNSIGNED BINARY NUHBER T0 AN

:*UNSIGNED DECIMAL ASCIZ NUMBER.
'CALL
MOv
NUMBER ,=(SP)
..PUY BINARY NUMBER ON THE STACK
‘"
PC,a#$5B20
JSR
s CAL
RETUPN
..ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK

027256 016637
027264 012746
027270
027274
027300
027304
027306 000000

000002
027306
027312
000005
000002

027306

$582D:

2(SP),1%

MOv
MOv

JSR

000000

2 :SAVE BINARY NUMBER
;:SET POINTER
ssCALL POUBLE LENGTH CONVERT
ssONLY ALLOW FIVE CHARACTERS
;:PICKUP POINTER

#1$,-(SP)
PC.ansDB2D
#5,(SP)
(SP)* 2(SP)

1%:

ADD
MOV
RTS
.WORD

.SBTTL

DOUBLE LENGTH BINARY TO DECIHAL ASCII

AR AR A

s sRETURN

AR A

Al A

CONVERT ROUTINE
i

]

;*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED

:.gggi??bE(ASCII)
R

s*CALL
*

RETURN

PC,a#$DB2D

$DB2D -

SAVREG
vov

2(SP),R2

o J‘ONNN%’NONO&
~N

027312

000002
027472
000002

000012
027422
027424

"oV
MOV
MOV

MOV
MOV
MOv
MOv

027410

CLR
sus

3%:

000060
4%:

027414

NUMBER.

THE

SIGN OF

MOV
JSR

B
e
Y e |
-\ = NN
O N O &

SB(C
suB
BLT
INC
BR
ADD

. ADC

ADD
CMP
BIS
MOovB
DEC

. WORD
BNE
CLRB

#PNTR,=(SP)

THE BINARY NUMBER MUST BE

s;POINTER TO LOW WORD OF BINARY NUMBER
::THE FIRST ADDRESS OF ASCIZ
::1S ON THE STACK

(R2)+,R1

::SAVE REGISTERS
:;PICKUP THE DATA POINTER
;:GET ADDRESS OF ''SDECVL'' STRING
::PUT ADDRESS OF ASCIZ STRING ON STACK
:;P1CKUP THE BINARY NUMBER

#STNPWR,
R

::SET UP TO DO 10 CONVERSIONS
: ;ADDRESS OF TEN POWER

(R4) ,R1

;:SUBTRACT TEN POWER

#SDECVL, RO
RO,2(SP)

(R2)+.R2
#10.,48

#STNPWR+2,RS
R3
R2

(R5) ,R2

::CLEAR PARTIAL

::BR IF TEN POWER TO LARGE

:sADD 1 TO PARTIAL

::LOOP
:sRESTORE SUBTRACTED VALUE
s;MOVE

TO NEXT

JsSAVE

TEN POWER

;s CHANGE PARTIAL T0 ASCII

. :DONE?

;sBR 1F NO

;s TERMINATOR

——

| CZRMLAO RMOS/3/2 FORMATTER

MACRO v03.01 11-APR

~\~

~N &~
O -

;go 13:01:23 PAGE 18-41

RESREG

STNPWR:

85358k

it
i

; ;RETURN

::1.0€09

190400

::1.0€08

110200

;:1.0807

0;1100

::1.0€06

103240

::1.0€05

23620

::1.0€E04

1750

;:1.0€03

::1.0€E02

::1.0E01

OV
w

2 gS

O=O—=0—=0O

ON)

1572
1573

027470
027472

SEQ 0092

;RESTORE REGISTERS

=t st 2

g=3z2=
=RONRES 82

~N ~N
NNNNNNN ~N~

=il lelelelel1~]

- DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTI

::1.0€00

$DECVL:

.BLkB

.SBTTL

SAVE AND RESTORE RO-R5 ROUTINES

12.

s sRESERVE STORAGE FOR ASCIZ STRING

':."'.'.'"'..."""""""""'l..."""'"..'.."".".""

1*SAVE RO-RS

s*CALL:

SAVREG

:*UPON RETURN FROM S$SAVREL THE STACK WILL LOOK LIKE:
‘%

i*TOP===(4+16)
i* 42-==(4+18)

1% 4+4=-==RS
s* 46===R4

;% 48-=-R}3

;*410=-==R?
;*412===R1
;*414===R0

027506
027506
027510
027512
027514
027516
027520
027522

010046
010146
010246
010346
010446
010546
016646

$SAVREG:

000022
000022

MOV
MOV
MOv
MOV
MOV
MOV
MOv
MOV
MOV
MOV
RTI

;*RESTORE RO-RS

s*CALL:

RESREG

P),=(SP)

2:PUSH RO
;sPUSH R1
::PUSH R2
;sPUSH R3
:sPUSH R4
:sPUSH RS
::SAVE PS
;:SAVE PC
::SAVE PS
;:SAVE PC

STACK
STACK
STACK
STACK
STACK
STACK

MAIN FLOW
MAIN FLOW

CALL

SRESREG:

(SP)+,22(SP)
(SP)+, S(SP)

MOV

O MNMNININNINNINN

MOV
MOV
MOv
MOV

o§o

S3FRIGES

NNNNNNNNNNSN

MACRO v03.31 11-APR=-80 13:01:23 PAGEC lS‘*Z

.SBTTL
MMLAA AR A

ssRESTORE PC OF CALL
CALL

ssRESTORE PC OF MAIN FLOW
;sRESTORE PS OF MAIN FLOW
;:POP STACK INTO RS
::POP STACK INTO R4
s sPOP STACK INTO R3
s :POP STACK INTO R2

(SP)+,22(SP)
(SP)+,RS
(SP)+ R4

(SP)+ ,R3
(SP)+,R2

(SP)+ R
(SP)+,RO

MOV
MOV
RTI

SEQ 0093

:sRESTORE PS OF

(SP)+,22(SP)

MOV
MOV
MOV

NONNINNNNNNNINON

OCO0O0O0O0O0O0O0O0O00O

CIRMLAOD RMO5/3/2 FORMATTER
SAVE AND RESTORE RO-R5 ROUTINES

s :POP STACK
;sPOP STACK

INTO RI
INTO RO

TRAP DECODER
A

;*THIS ROUTINE WILL PiCKUP THE LOWER BYTE OF THE ''TRAP'' INSTRUCTION
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:*G0 TO THAT ROUTINE.
027602
027604
027610
027612
027614
027616
027622

010046
016600
005740

000200

$STRAP:

000002

MOV

RO,=-(SP)

;:SAVE RO

18T

=(R0O)

s sBACKUP BY 2

MOV

2(SP),RO

MOVB
ASL
MOV
RTS

027636

::GET TRAP ADDRESS

(RO) ,RO
RO
$TRPAD(RO) ,RO
RO

;sGET RIGHT BYTE OF TRAP
ssPOSITION FOR INDEXING
;2 INDEX TO TABLE
;260 TO ROUTINE

;sTHIS 1S USE TO HANDLE THE ''GETPRI'' MACRO
027624
027626
027634

011646
016666
000002

000004

000002

$TRAP2: MOV

(SP) ,=(SP)

MOV
RTI

.SBTTL
s*THIS

&(SP),2(SP)

::MOVE THE PC DOWN

::MOVE THE PSW DOWN
:sRESTORE THE PSW

TRAP TABLE
TABLE

CONTAINS THE

STARTING ADDRESSES OF

;*BY THE ''TRAP'' INSTRUCTION.

:
027636
027640
027642
027644
027646
027650

027624
024304
025132
025106
025146
025334

027652

026154

027654
027656
027660
027662
027664

026064
026426
026516
027506
027544

THE

ROUT]NES CALLED

ROUTINE

$TRPAD: .WORD

$TYPE
$TYPOC

STRAP2

;;CALL=TYPE
::CALL=TYPOC

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

$GTSWR

;:CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

$CKSWR
SRDCHR
SROLIN
$SAVREG

;:CALL=CKSWR
::CALL=RDCHR
::CALL=RDLIN
::CALL=SAVREG

TRAP+7(104407)
TEST FOR CHANGE IN SOF T-SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) SAVE RO-RS ROUTINE

$TYPOS
$STYPON
$TYPDS

::CALL=TYPOS
::CALL=TYPON
::CALL=TYPDS

$RESREG ::CALL=RESREG

TRAP+13(104413) RESTORE RO-RS ROUTINE

" CZRMLAO RMOS/3/2 FORMATTER
TRAP TABLE

1576
1583

MACRO v03.01 11-APR-80 13:01:23 PAGE0 18°‘3

SEQ 0094

CIRMLAO RMO5/3/2 FORMATTER

NN -

MACRO_v03.01 11-APR-80 13:01:23 PAGE 11
SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) FEBRUARY 1980
.SBTTL

SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) FEBRUARY 1980

sNEW DRIVE

TYPE ID FOR RMQ2 weewnwnnee

:10=AUG=77 #enneveeene
:10-MAR-78 THE SC, SCS CHANGES

NN = OO0 N0

:NEW DRIVE TYPE ID FOR RMOS weeenennne

sFEBRUARY 1980 weevenvener

et et

;DIGITAL EQUIPMENT CORP.
;MAYNARD, MA 01754

et s b s e

sAUTHOR(S): JIM LACEY/CHUCK HESS/

":"""..""'.'."""""'"'."'l"..'.'. (A2 AR AR AR

RRZ]

;STORAGE FOR RMDS, RMER1, RMERZ2, AND RMMR2 ON AN ERROR ‘72"

=O V0N
NOBNOWVNS W

WNNINO NNV RO NININUNIND =

SEQ 0095

JRMERRS
= RMDS
sRMERRS+2 = RMER1

:RMERRS+4& = RMER2

JRMERRS+6 = RMMR?2

027666

000000

RMERRS:

.WORD

0,0,0,0

;TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES)
;DRVACT=0 IF DRIVE

IS IDLE

;DRVACT>0 IF DRIVE 1S ACTIVE WITH A COMMAND
;DRVACT<0 IF DRIVE 1S ACTIVE WITH AN ERROR RECOVERY OPERAT'ON
027676
027677
027700
027701
027702
027703
027704
027705

DRVACT:

.BYTE
.BYTE
.BYTE

.BYTE
.BYTE
.BYTE
BYTE
.BYTE

0
0
0

0
0
0
0
0

:DRIVE 0
;DRIVE 1
;DRIVE 2

:DRIVE
:DRIVE
;DRIVE
;DRIVE
:DRIVE

3
&
5
6
7

;TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES)

;:DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT
:DRVSTA>0 IF DRIVE IS ONLINE
:PRVSTA<O IF DRIVE IS UNSAFE

DRVSTA:

.BYTE
.BYTE
.BYTE
.BYTE

BYTE
.BYTE
.BYTE
.BYTE

0
0
0
0

;DRIVE 0
;DRIVE 1
;DRIVE 2
:DRIVE 3

:DRIVE
:DRIVE
:DRIVE
:DRIVE

&
5
6
7

;TABLE OF DRIVE TYPES (DRVTYP=8 BYTES)
;:DRVIYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO)
;DRVTYP=7 IF DRIVE IS RMQ5 wwenne
;DRVIYP=5 IF DRIVE IS RMQ2 ##nwne
;DRVTYP=4 IF DRIVE IS RMO3
;DRVTYP==1 I} NOT RM05/3/2

F
8
MACRO_v03.01 11-APR-80 13:01:23 PAGE 111
SINGLE/DUAL PORT RM/RM DRIVER (REV 6.2) FEBRUARY 1980

- CIRMLAD RMO5/3/2 FORMATTER
°

21 0277

000

DRVIYP: .BYTE

027720
027721
02772%
02772
027724
. 027725

000
000
000
000
000
000

BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE

0
0
0
0
0
0

56 02771?

000

56
57

.BYTE

;DPINT<O IF

000
000
000
000
000
000
000
000

DPINT:

027741
027742
027743
027744
- 027745

000

000
000

&
§
6
7

INITIALIZATION IS IN PROGRESS

0
0
0
0
0
0
0
0

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
*:DRIVE

0
1
2
3
&
§
6
7

THAT

A DUAL PORT REQUEST

IS NOT PENDING FOR THAT DRIVE

.BYTE

.BYTE
.BYTE

BYTE
.BYTE
BYTE
BYTE
.BYTE

0
0

0
0
0
0
0

;DRIVE 0

:DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
:DRIVE
:DRIVE

1
2
3
&
§
6
7

;"DPB'" OF THE 1/0 OPERATION.

000000

TRNSWT:

.WORD

sSEARCH WAIT KEYS (SRCHWT=1 WORD)
sTHIS 1S A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF
sTHE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0
JREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE.

;EACH DRIVE

000000

SRCHWT:

.WORD

IS ASSIGNED ONE BIT,

STARTING AT BITOO FOR DRIVE

sRM DRIVER ACTIVE FLAG (ACTDRv=1 BYTE)

89
g?

;TRANSFER WAIT FLAG (TRNSWT=1 WORD)
;THIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS Of

80
8
82
83

g% 027752

DPRQS:

000
000
000
000
000

gg 027750

;DRIVE
:DRIVE
sDRIVE
:DRIVE
:DRIVE
;DRIVE

;DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE

74
75

;g 027746

.BYTE
.BYTE
BYTE
BYTE
BYTE
.BYTE
.BYTE
.BYTE

;DPRQS=0 IF

g;
72 027737
027740

sDRIVE 1

;TABLE OF PENDING DUAL PORT REQUESTS

69 027736

:DRIVE 0

sTABLE OF DUAL PORT INITIALIZATION INDICATORS
;DPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE

60 027726
63 027727
027730
027731
027732
027733
027734
- 027735

SEQ 0096

JACTDRV=0 IF
;ACTDRV>0 IF

000

ACTDRvV:

.BYTE

;SOF TWARE

DRIVER IS INACTIVE
DRIVER 1S ACTIVE

TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE)

CIRMLAO RMO5/3/2 FORMATTER

6 8
MACRO_v03.01 1i-APR-80 13:01:23 PAGE 11-2

SINGLE/DUAL PORT RHM/RM DRIVER (REV 6. 2) FEBRUARY 1980

95
8?

sACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE
JACTSTR>0 IF SOFTWARE TIMER ROUTINE IS ACTIVE

gg 027753

000

100

ACTSTR:

JULDFLG>Q IF UNLOAD COMMAND IN PROGRESS

}82

JULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE

105 027754
108 027755

027756
027757
027760
027761
027762
- 027763

000
000

el
i
il
e
il
il
i
e
i
s
s
i
i

.BYTE
.BYTE
.BYTE
BYTE
BYTE
BYTE

0
0

0
0
0
0
0
0

;DRIVE 0
;DRIVE 1

:DRIVE
;DRIVE
;DRIVE
;:DRIVE
:DRIVE
;DRIVE

2
3
&
S
6
7

(LACNT=8 BYTES)

sLACNT WILL INDICATE THE NUMBER OF LOOK AHMEADS PERFORMED

113 027764
116 027765
027766

it i

.BYTE
BYTE

;:LOOK AMEAD COUNT

}}}

ULDFLG:

000
000
000
000
000
000

110

;ULDFLG=0 IF NO UNLOAD COMMAND

102

S NN W W
NN WO NN NN NN N NN — = ONOWVS WN =0V NOWVS W
=0V~

.BYTE

sUNLOAD FLAG (ULDFLG=8 BYTES)

101

—

SEQ 0097

027767
027770
027771
027772
027773

000
000
000

LACNT:

000
000
000
000
000

.BYTE
.BYTE
.BYTE

BYTE
.BYTE
.BYTE
.BYTE
.BYTE

O
0

0
0
0
0
0
0

;DRIVE 0
:DRIVE 1
sDRIVE 2

;DRIVE
;DRIVE
sDRIVE
;DRIVE
sDRIVE

3
&
§
6
7

;SAVE REGISTERS FLAG (SAVEFG =1 WORD)

;SAVEFG <0 IF SAVE THE RH/RM REGISTERS WHEN THE
;OPERATION IS COMPLETED AS PER (DPB+14).
;SAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER
;(DPB+14), AFTER AN ERROR.

027774

000000

SAVEFG:

.WORD

;SEEK FLAG (SEEKFG=1 WORD)
;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW
;FOR A DATA TRANSFER START

A SEARCH COMMAND

;SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS,
:DISREGARD THE WINDOW
027776

177777

SEEKFG:

.WORD

;TIMEOUT TABLE (TIMER=8 WORDS)
sTHIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION
030000
030002
030004
030006
030010
030012
030014

177777
177777
177777
177777
177777
177777
177777

TIMER:

.WORD
WORD
WORD
.WORD
WORD
.WORD
WORD

-1
-1
=1
-1
-1
=1
=1

:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE

0
1
2
3
&
$
6

CZRMLAO RM05/3/2 FORMATTER

SINGLE/DUAL PORT RH/RM DRIVER
141
162

030016

145

146 030020

177777

030022
030023
030024
030025
030026
030027
030030
030031

001
002
004
010
020
040
100
200

.WORD

-1

SEQ 0098

;DRIVE 7

DTUW:

.WORD

ATABIT:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

1
2
&
10
20
40
100
200

;DRIVE
;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE

0
1
2
3
&
5
6
7

sCALLING IT FATAL (MCPEMX=1 WORD)
000003

166
}g;

MCPEMX:

.WORD

;STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM),
;RMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)).

176700

RMADR:

.WORD

RMVEC:

172
};2

000004

:MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS &
MXLACT: .WORD
&
y

175
};?

001000

;MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD)
MXDLTA: .WORD
B.*64.

000200

MNDLTA:

000005

MXWNDW:

181

}g%

}gg
186

187
188
189
190
191
192
193
194
195
196

.WORD

176700

000254

}gg

ALLOWED BEFORE

};?

178

TO EACH DRIVES

:FSRM TO RH11/RH70 ''MASSBUS CONTROL BUS PARITY ERRORS'' (MCPE)

}gg

169

1980

;ATTENTION BITS TABLE (ATABIT=8 BYTES)
sTHIS TABLE CONTAINS THE CORRESPONDING BIT
;ATTENTION BIT

161

}gg

FEBRUARY

:DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD)
;DTUWCO IF NO DATA TRANSFER UNDE.. JAY
;DTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

144

156
157
158
}23

(REV 6.2)

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

177777

143

147
148
149
150
151
152
153
154
155

MACRO v03.01

254,5+32.

;MINIMUM DELTA DELAY IS 2 SECTORS

.WORD

2v64.

;MAXIMUM SEARCH FOR

.WORD

(MXLACT=1 WORD)

(MNDLTA=1 WORD)

1/0 WINDOW IS 5 SECTORS

(MXWNDW=1

WORD)

;DEFINITIONS OF THE RH/RM ADDRESS INDEXES
000000

000002
000004
000006
000010
000012
000014
000016
000020
000022
000024

RMCS1=0

RMW(=2
RMBA=4
RMDA=6
RMCS2=10
RMDS=12
RMER1=14
RMAS=16
RMLA=20
RMDB=22
RMMR1=24

;CONTROL AND STATUS REGISTER #1

(DRIVE REG. 00)

;WORD COUNT REGISTER (NOT A DRIVE REG)
;UNIBUS ADDRESS REGISTER (NOT A DRIVE REG)
;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05)
;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
;DRIVE STATUS REGISTER (DRIVE REG 01)
;ERROR REGISTER #1 (DRIVE REG. 02)
sATTENTION SUMMARY PSEUDO REGISTER_(DRIVE REG. 04)
:LOOK AHEAD REGISTER (DRIVE REG. 07)
:DATA BUFFER REGISTER (NOT A DRIVE REG.)
;MAINTAINABILITY REGISTER (DRIVE REG. 03)

CZRMLAO RMO5/3/2 FORMATTER

MACRO_v03.01 11-APR-80 13:01:23 PAGE 11-4
SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) FEBRUARY 1980

N-‘OOONOMJ‘WN—‘OOONOMJ‘WN—‘OOg

NNV
NN NN NN N NN NN NN NN N
WNWNWWNWNNI
NN NN NINNIN) = bt b b b et b s s O

201
202
203
204
205
206
207

030052
030054
030060
030066
030072
030076
030102
030104
030106
030110
030114
030120
3 030122
34 0301264
35 030130
36 030134
37 030140
38 030144
39 030150
240 030154
261 030160

000026
000030
000032
000034

RMDT=26
RMSN=30
RMOF =32
RMDC=34
RMHR=36
RMMR2=40
RMER2=642

000036
000040
000042
000044
000046

;SERIAL NUMBER REGISTER
;OFFSET REGISTER (DRIVE
;DESIRED CYLINDER ADDRE
;DUMMY ADDRESS REGISTE
;MAINTENANCE REGI S

;ERROR REGISTER l%

RMEC1=44
RMEC2=46

.SBTTL

;ECC POSITION REG
;ECC PATTERN REGIS

-\
-

197
198
199
200

SEQ 0099

RH/RM DRIVER INITIALIZATION CODE

:THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE

;AVAILABLE FOR TESTING AND SET THE DRVSTA
:TO THE PROPER STATE FOR EACH DRIVE.

INDICATOR

;NOTE: THIS ROUTINE CALLS DRVINT

TCALL
;
:

JSR

RE TURN

PC,RMINIT

INOTE: THE 'P' OR L' CLOCK MUST BE STARTED
104412
013746
012737
004737
012701
012702
005021
020102
103775
012702
012721
020102
101774
005037

242 030164
243 030172
244 030176

005037
005037
005037
013703
012723
013713
013704
012764
005001
004037

247 030204

177776
000240
035740
027666
027776

RMINIT:

177776

1%:

000040

JSR
MOV
MOV
CLR
CMP

BLO

030020
177777
027706
027710
027712
027714
030036
032706
030040
030034

SAVREG
MOV
MOV

2%:

MOV

CMP
BLOS
CLR
CLR
CLR
(LR
MOV

MOV
MOV
MOV
MOV

000010

PS,=(SP)

#<5+32.>,PS

PC, CLRQUE
#RMERRS ,R1

#SEEKFG.R2
(R1)+
R1,R2
1%
#DTUW,R2
#-1,(R1)+
R1,R2

DRVSTA

DRVSTA+2

DRVSTA+4
DRVSTA+6
RMVEC,R3
#ISR, (R3)+
RMVEC+2, (R3)
RMADR R4

:%LR.RHCSZ(RA)

030264

RO,DRVINT
6%

105061

027706

2701

177770

gRVSTA(R\)
1
#C7,R1

2701
5037
5761

000007
177776
027726

1366

7 ,R1

6%:

1STB

DPINT(R1)

;SAVE RO - RS
sSAVE THE PRESENT PROCESSOR STATUS
;CHANGE THE PRIORITY TO S
sCLEAR ALL REQUEST QUEUES
sFIRST ADDRESS TO BE C(LEARED
sLAST ADDRESS TO BE CLEARED

sCLEAR

sARE WE DONE?

;sBR IF NO
sLAST ADDRESS
JINITIALIZE
sDONE?
;LOOP IF NO
sSET ALL DRIVES TO OFFLINE

sSETUP THE RH/RM VECTOR
;FIRST ADDRESS OF
sMASSBUS INIT

RH/RM

:START WITH DRIVE 0

:INIT THE DRIVE
:'DVA' NOT SET OR PARITY ERROR
:NORMAL RETURN
:SET DRIVE STATUS TO OFFLINE
;G0 TO NEXT DRIVE
:MASK OUT UNUSED BITS
:BR IF MORE DRIVES _TO GO

sSTART WITH DRIVE 7
:CLEAR THE PROCESSOR STATUS

;WAITING FOR DRIVE TO SWITCH PORTS ?

CZRMLAO RMO5/3/2 FORMATTER

RH/RM DRIVER INITIALIZATION CODE

2564 030234
255 030236
256 030242
257 030246
258 030250
259 030252
260 030254
261 030260

%gg 030262

001405
004737
105761
001375
005301
100366
012637
10441

MACRO v03.01

035374
027726

BEQ
JSR
1STB
BNE
DEC
BPL
MOV
RESREG

7%:

8s:
177776

000207

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

RTS

8s
PC,SET.IE
DPINT(R1)
7%
R1
6%
(SP)+,PS

:BR NOT WAITING
*SET INTERRUPT
:DRIVE SWITCHED PORTS ?
‘BR IF NOT
:60 TO THE NEXT DRIVE
*CHECK NEXT DRIVE
JRESTORE THE PROCESSOR STATUS
:RESTORE RO - RS

‘BYE-BYE

264
265
266
267
268
598

;DRIVE INITILIZATION ROUTINE
sTHIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS
AN RMO5/372. 1F 1T 1S,
A "READ=IN PRESET'' IS ISSUED AND FMT16
IS SET TO A “"1"'. THEN MOL, DPR, DRY, AND VvV ARE CHECKED TO
sINSURE THEY ARE ALL ON A ”1”. AND DEPENDING ON THEIR STATE,
22VSTA IS SET TO THE PROPER CONDITION.

27
272 ,
273
274
275

:
s
:
:
3

278 030264
279 030266
280 030272
281 030276
282 030302
283 030306
284 030314
285 030322
286 030324
ggg 030330

010546
105061
105061
105061
010164
112764
032764
001403
004737
000520

289 030332
290 030336
291 030344
292 030346

105061
032764
001750
004037
000026
030616
012605
112761

293 030352
294 030354
295 030356
296 030360

297 030366
298 030372
299 030374
0304
301 030402

302 030410

030414
304
030416
305 030422
030426

022705
001431

022705

001420
022705
001415
112761

307 030432 022705
308 030636
309 030440
310 030446

001407
022705
001404

027706
027716
027754
000010
000111
010000

000000
000010

035374
027706
004000

020024

020025

020027

024027

DRVINT: MOV
DULP:
CLRB
CLRB
CLRB
MOV
MOVB
BIT
BEQ
JSR
BR

RS,=(SP)
:SAVE RS
DRVSTA(R1)
;START DRIVE STATUS AS OFFLINE
DRVTYP(R1)
sCLEAR THE DRIVE TYPE INDICATOR
ULDFLG(RT)
sCLEAR THE UNLOAD FLAG
RT1,RMCS2(R4)
:SELECT A DRIVE
l111 RMCST1(R4)
;DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE)
#81112 RMCS2(R4)
JNONEXISTENT DRIVE?
1%
:NO
PC.SET.1E
G0 SET "'IE'"" WITHOUT A "'TRE"
6%
:LEAVE THIS ROUTINE

1%:

DRVSTA(R1)
;SET DRIVE STATUS TO OFFLINE
#BIT11,RMCS1(RG)
JSEE IF DRIVE AVAILABLE
DULP
:8R IF DRIVE NOT AVAILABLE
RO,RD.RM
sREAD THE DRIVE TYPE REG.

027716

;ERROR RETURN ADDRESS
*PUT DRIVE TYPE IN RS
:SET RMO3 INDICATOR

027716

BEQ
CMP
BEQ
MOVB

2%
#24024 ,RS
2%
#5 ,DRVTYP(R1)

:BR IF YES
:DUAL PORT RMO3 ?
R IF YES
SEY RMO2 lNDlCAYOR

027716

BEQ
CMP
BEQ
MOVB

2%
#24025,RS
2%
#7 ,DRVIYP(RY)

:BR IF SO
:DUAL poar RMO2 ?
:BR IF
;SET RHOS lNDlCATOR

024025
000007

;DRIVE NUMBER TO R1
JUNIBUS ADDRESS OF RH/RM (RM(CS?1)
sCALLED BY A JUSR
JERROR OCCURRED (PARITY)
;NORMAL RETURN

(SP)+,RS
I A DRVIYP(R1)

024024
000005

MOV
#DRVNUM,R1
MOV
RMADR,R4
JSR
RO,DRVINT
RETURNI1
RETURNZ2

CLRB
BIT
BEQ
JSR
RMDT
8%
MOV
MOVB

000000

034704

000004

CMP

BEQ
CMP
BEQ

#20024 RS

#20025,RS

#20027 RS
2%
#24027,RS
2%

:SINGLE PORT RM03 ?

:SINGLE PORT RM02?

*SINGLE
PORT RMO5 ?
‘BR IF YES
*DUAL PORT RMOS ?
‘BR IF YES

SEQ 0100

‘

CZRMLAO RMO5/3/2 FORMATTER

' RH/RM DRIVER INITIALIZATION CODE

311 030446
%}% 030454

112761
000446

177777

316 030456
315 030462
316 030466
317 030470
318 030472
319 030476
320 030502
321 030504
322 030506
323 030512
324 030514
325 030516
326 030520
327 030522
328 030530
329 030534
330 030536
331 030540
332 030542
333 030544
ggg 030552

012746
004037
000000
030616
012746
004037
000032
030616
004037
000012
030616
012605
100015
116164
004037
000014
030616
006126
100004
112761
000407

000121
035064

336 030554

005105

338 030562
339 030564
340 030572
341 030574
342 030576
343 030600
344 030606
345 030610
346 030616
gzg 030620

001003
112761
005720
000410
006301
012761
006201
112761
012605
000200

337 030556

042705

MACRO v03.01

027716
2%:

010000
035064
034704

030022
034704

177777

000016

027706

48:

167077
000001

027706

060000

030000

177777

027726

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

MOVB
BR

#-1,DRVIYP(R1)
6%

;SET INDICATOR TO 'OTHER'
JEXIT

MOV
JSR
RMCS1
8%
MOV
JSR
RMOF
8%
JSR
RMDS
8%
MOV
BPL
MOVB
JSR
RMER1
8%
ROL
BPL
MOVB
BR

#121,-(SP)
RO,WRT.RM

;DO A "READ=IN PRESET''

#B1T12,-(SP)
RO,WRT.RM

:SET FMT16=1

RO,RD.RM

;READ RMDS

(SP)+
4%
#-1,DRVSTA(R1)
6%

;1S IT UNSAFE?
:BR IF NOT
;SET UNSAFE INDICATOR
JEXIT

COM

;CHECK MOL, DPR, DRY, AND VvV

:BR IF MOL, DPR, DRY, OR vV 1S CLEAR

BIC
BNE

6%:
7%:

8%:

MOVB
ST
BR
ASL
MOV
ASR
MOVB
MOV
RTS

#‘C<81112'81108'81107'81706> RS

#1,DRVSTA(R1)
:SET DRIVE STATUS TO ONLINE
(RO)+
sSTEP OVER THE ERROR RETURN
8%
CEXIT
R1
;CHANGE INDEX TO ADDRESS WORDS
#60000, TIMER(RY)
sSTART 2 SEC TIMER
R1
;RESTORE R1
#-1,DPINT(R1)
;SET PORT INITIALIZE INIDICATOR
(SP)+,RS
JRESTORE RS
RO
JEXIT

JREQUEST PRE=PROCESSOR-HANDLES SUBSYSTEM REQUEST

gg;

:CALL

35%
35¢

gg;

2
>

359 030622
360 030626
361 030634
362 030642
363 030644

013746
013737
112737
104412
011002

365 030652
366 030654
367 030660

111201
013704
105761

364 030646

005062

177776
030040
000001

000016
030034
027706

177776
027752

RMOS5:

(SP)+,RS
sAND SAVE IT IN RS
4%
:BR IF ATA=0
ATABIT(R1) ,RMAS(R4)
:CLEAR ATTENTION BIT
RO,RD.RM
:FIND OUT WHY ATA=1

ggg

355
356

SEQ 0101

JSR
RO,RMOS
PNTADR
RETURNI1
RETURNZ

;sCALL THE RMOS DRIVER
sADDRESS OF POINTER OF DRIVES PARAMETER BLOCK

MOV
MOV
MOvVB
SAVREG
MOV

PS,=(SP)
RMVEC+2,PS
#1,ACTDRY
(RO) ,R2

sSAVE THE CALLING STATUS
sDON'T ALLOW ANY RM INTERRUPTS
JSET ""ACTIVE DRIVER'' FLAG
sSAVE RO - RS
sPICKUP THE DRIVE PARAMETER BLOCK POINTER

MOVB
MOV
1STB

(R2) .R1
RHADR.R4
DRVSTA(R1)

sPICKUP THE DRIVE NUMBER
JUNIBUS ADDRESS OF RMCS1
sCHECK DRIVES STATUS

CLR

lb(Ré)

JRETURN HERE IF QUEUE 1S FULL
sRETURN HERE IF REQUEST IS IN QUEUE OR THERE

1S AN ERROR CONDITION

sCLEAR THE STATUS/ERROR INDICATOR

" CZRMLAO RMOS/3/2 FORMATTER

105761

027706

105761

027736

—

~
N

030264

012762

409
610
41%
412

031074
031076
031100
031102

413 031106
414 031112
415

418

g
i
|

420
621
422 031114

424 031122

000401
104413
005720
105037

012637
000200

BNE

‘BR IF

3$:

SSV

321115!81115.16(R€;1

032174

48:

éga

gg.cxr

160 HANDLE THE PARITY ERROR

036036

5% :

JSR
BR

RO, DRVQUE
9%

;PUT REQUEST IN QUEUE
:QUEVE 1S FULL

2%:

031114
120000

MOVB
TSTB
ggn

000016

000100
035374
027706

68:

140000
027716

000016

100002

000016

110000

000016

TSTB

7%:

8% :
108:

027752
177776

BIT
BNE
JSR
BR
TSTB
BLT

MOV

9% :

BNE
MOV
BR
MOV

RESREG

DRVSTA(R1)

#=1,ULDFLG(R1)
DRVACT(RT)

gg.opx

#B1106, (R4)
8s

STATUS ONLINE?

:SET THE ''UNLOAD IN QUEUE'' FLAG
:1S THIS DRIVE ACTIVE?
YES

:CALL THE OPTIMIZER

:SET THE "'UNLOAD IN QUEUE'' ERROR FLAG

8s
DRVSTA(R1)
7%

:1E BIT SET ?
TYES
:SET THE INTERRUPT
*RETURN
*SEE IF DRIVE OFFLINE OR UNSAFE
:BR IF UNSAFE

DRVTYP(R1)

:SEE

PC,SET.IE

#BIT15!'BIT14,16(R2)

;SET OFFLINE ERROR INDICATOR

OFFLINE OR NONEXISTENT

8$
:BR IF OFFLINE
#BIT15'B1T01,16(R2)
:REPORT DRIVE NONEXISTENT
8%
;60 TO EXIT
#BIT15'BIT12,16(R2)
:DRIVE 1S UNSAFE

ST
BR

(RO)+
108

TST
CLRB
MOV
RTS

(RO)+
ACTDRV
(SP)+,PS
RO

RESREG

:1S DRIVE

:RESTORE RO - RS

:SETUP FOR NORMAL RETURN
SFINISH 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 DRIVE

417

s CALL
:

419

423 031116

‘BR IF YES

:BR IF NOT
:OUTSTANDING PORT REQUEST FOR THE DRIVE ?
:BR IF YES
:SELECT THE DRIVE
:PUT THIS REQUEST IN GUEUE
*QUEVE IS FULL
1S THIS REQ. FOR AN UNLOAD?
:BR IF NO

027754

406 031062

STRYING TO INIT THE DRIVE

6%
DPRAS(R1)
5%
R1,RMCS2(R4)
RO.DRVQUE
9%
#103,2(R2)
2%

177777
027676

002412
012762
105761
001007
012762

DPINT(R1)

BLE
TSTB
BNE
MOV
JSR
BR
CMPB
BNE

1$:

105761
001043
004737

400 031034
401 031036
402 031044
403 031050
404 031052

TSTB

385 (30754
386 030760
387 030762
388 030766
389 030770
390 030776

004737
000420
105761

. *UNLOAD COMMAND IN QUELE?

<BR IF YES
160 INIT. THE DRIVE
*ERROR RETURN

000002

004737
000431
004037
000431
032714

:BR IF ONLINE

ULDFLG(R1)

5%
RO,DRVINT
48

000103

012762
000434

SEQ 0102

BNE
JSR
BR

122762

;

004037

1STB

BNE

382 030736

416

027726

000010
036036

|
’

105761

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

BGT

004037

397 031022
398 031026
399 031030

027754

1380 030730

391 031000
392 031004
393 031006
394 031012
395 031014

i
I
'

003014
105761

(=l=lelelelelel-]

0 00 ~NON NV
5~ i

—

W NN N N N N NN
~ NNNNNNNN

368 030664
369 030666
370 030672
30674

_RM/RM DRIVER INITIALIZATION CODE

MACRO v03.01

;

104412

013746

146137

177776

030022

OPT:
027750

MOV

JSR

SAVREG

MOV

BICB

#DRVNUM, R1

PC,OPT

PS,=(SP)

:DRIVE NUMBER TO R1

SSETUP A COMMAND

:SAVE RO = RS
*SAVE PROC.

ATABIT(R1),SRCHWT

STATUS

;CLEAR LA SEACH FLAG

425
426
427
428
429

031130
031134
031140
031142
031144

430 031150
431 031156

432 031164
433 031166
434 031172
435 031174
436 031200
437 031206
438 031212
031214

440 031222
441 031224
442
463
L4644
445

105061
004737
005702
001472
010164

012764
032764

001446
105761
003014
004737
012762
105761
100053
012762
000447

027736
036112
000010

000111
004000

0312264
031232
031234
031240
031242
453 031246
454 031250
455 031254
456 031256
457 031262
458 031264
459 031266
460 031272
461 031274
462 031300
463 031302
464 031310
465 031312
466 031314
467 031322
468 031324
469 031330
470 031334
471 031336
472 031342
473 031346
2;; 031350
476
477
478
479
480
48!

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

MOV
BIT

10%:

036134
140000
027706

000016

110000

000016
1%:
-+
:
3

446

&47
448
449
450
451
452

CLRB
JSR
13
BEQ
MOV

000000
000000

027706

000150

000002

2
H
:

031560
030020

2%:

027776
032532

031352

3s:

031460

(%:

177777

027736

060000

030000

5%:

032174
000100

6%:
7%:

035374
177776

8%:

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

DPRQAS(R1)
PC.GETREQ
R2
7%
R1,RMCS2(R4)

SEQ 0103

JRESET THE PORT REQ FLAG wwee
:GET '"'DPB'' POINTER OF REQUEST
;1S THERE A REQUEST IN QUEUE?
;NO==BR T0 EXIT
JLOAD THE DRIVE ADDRESS #eeeene

#111,RMCS1(R4) :CLEAR THE DRIVE
#BITI1,RMCST(RG) "
:DVA SET ?

BEQ
T1STB
BGT
JSR
MOV
1STB
BPL
MOV

5%
;70 PROT REQUEST ,IF NOT
DRVSTA(RY)
;1S DRIVE ONLINE?
1%
YES
PC,POPQUE
;NO=-=-REMOVE REQUEST FROM QUEUE
#BIT1S!BIT14,16(R2)
sSET OFFLINE STATUS/ERROR INDICATOR
DRVSTA(RY)
;1S DRIVE UNSAFE ?
8s
:BR TO EXIT IF NOT
#BIT15'BIT12,16(R2)
JSET UNSAFE STATUS/ERROR INDICATOR
8%

sBR TO EXIT

MOV
JSR
RMCS1
6%

#111,-(SP)
RO,WRT.RM

;LOAD COMMAND ONTO THE STACK
JLOAD THE REGISTER
JREGISTER INCREMENT
;ERROR RETURN ADDRESS

BEQ
CMPB
BLT
JSR
BR
ST

9%
#150,2(R2)
2%
PC,CI4
8%
DTUW

BIT

BGE
ST
BM]

JSR
BR
BR
JSR
BR
JSR
BR
MOVB
MOV
ASL
MOV
BR
JSR
BIT
BNE
JSR
MOV
RESREG
RTS

#BIT11,(R4G)

4%
SEEKFG
3s

;DRIVE AVAILABLE

;BR IF NOT
:1S THE REQUEST FOR 1/0?
SYES
sCALL THE COMMAND INITIATOR
:BR TO EXIT
;DATA TRANSFER UNDERWAY?

sYES==GO START A SEARCH
:DO IMPLIED SEEKS?
SYES

RO,LA
8%
4%
PC,CIN
13
PC,CI3

*NO==DO LOOK AHEAD
JRETURN HERE ON A PARITY ERROR
;G0 START A SEARCH
;START A DATA TRANSFER

7%
PC,C17
#B1106, (R4)
8$
PC,SET.IE
(SP)+,PS

SEXIT
sPROCESS THE PARITY ERROR

:START A SEARCH
8s
160 TO THE EXIT
#-1,DPRAS(R1)
:SET PORT REQUEST INDICATOR
R1,R3
sSET UP TO ADDRESS WORDS
R3
JCONVERT TO WORD INDEX
#60000, TIMER (R3)
;START 10 SEC TIMER

;COMMAND INITIATOR
2
:CALL
:
MOV
#DRVNUM,R1
3
MOV
#DPB,R2
2
JSR
PC,.C1?

JSEE IF

']E' ALREADY SET

‘BR IF SET
e
sSET "'IE"" WITHOUT A '"'TRE
JRESTORE PROC. STATUS
'

;RESTORE RO = RS

;DRIVE NUMBER
;ADDRESS
OF DPB
;C1?2= CI1,C13, OR Cl4
—

- RH/RM DRIVER INITIALIZATION CODE

MACRO v03.01

" CZRMLAO RMOS/3/2 FORMATTER

| CZRMLAO RMOS/3/2 FORMATTER

- RH/RM DRIVER INITIALIZATION CODE

gATA TRANSFER

EARCH REQUESTED BY DATA XFER

NOT DATA TRANSFER

cll:

PC,POPQUE

R2.TRNSWT
R2,R3

sREMOVE REQUEST FROM "DRIVES WAIT'' QUEUE

sPUT REQ.

IN TRANSFER WAIT QUEUE

;DPB ADDRESS T0 R3

030034
000010
000004
000002

4
,
RMADR
R1,RMCS2(R&)

sRMCS1 ADDRESS

#2 R

sRMWC ADDRESS

035064

(R3)
4. (R4)+
(R3)+.=(SP)
RO,WRT.RM

035064

(R3)+,=(SP)
RO,WRT.RM

000002
035064

2(R2),=(SP)
RO,WRT.RM

:LOAD “'COMMAND+GO'', "‘A178A16'', AND 'PSEL"’

030020
032136
030034
000010
000012
035064

glsotuu

:SET "DATA TRANSFER UNDERWAY''

RMADR , R4

;RMCS1

¥4 ,R3

(R$)+, (R4)+

Cl13:

000010
-l

NN,

116203

036134
027746

010346

L ]

500 031422
501 031424
502 031430
503 031432
504 031434
505- 031440
506 031444
507 031446
508 031450
509 031454
510 031460
511 031464
512 031470
513 031474
514 031500
515 031502
516 031504
517
518
519
520 031510
521 031512
522 031516
523 031524
3264 031530
525 031532
526 031534
527 031540
528 031544
529 031546
530 031550
531 031556
532-031560
533 031564
534 031570
535 031574
536 031600
537 031602
538 031606

SEQ 0104
E:

00O
WO O
—_—
s 2 (O
nNO
S NN OWO O S~
—OOW WW NN
=N~
NO WS N NOOOOOWW
o~ &~ S NSNS

482
483
484
485
L8%
487 031352
488 031356
489 031362
490 031364
491 031370
492 031374
493 031400
496 031404
495 031406
496 031410
497 031412
498 031416
499 031420

MACRO v03.01 11-APR-80 13:01:23 PAGEN 1?-9

000001

030034
006010
000002
000131

000010
035064

027750

;LOAD WORD COUNT
«LOAD BUFFER ADDRESS
;LOAD SECTOR AND TRACK
sCALL THE LOAD(WRITE) ROUTINE
s INDEX OF REGISTER TO LOAD
;ERROR RETURN ADDRESS
;LOAD CYLINDER ADDRESS

:SELECT DRIVE
:DESIRED CYLINDER ADDRESS

10(R2) ,R3
?éunou.as

:PICKUP SECTOR ADDRESS
:BACKUP BY MAX. SEARCH FOR 1/0 WINDOW

#32.,R3
R3,-(SP)

.
;COMBINE THE ADJUSTED SECTOR WITH

11(R2),1(SP)
RO WRT.RM

:THE DESIRED TRACK
:LOAD DESIRED TRACK & SECTOR

#177740, (SP)

:CHOP OF ALL EXENTED BITS ,IF ANY

:START A SEARCH

elgall(al),sacnur
Clé:

ADDRESS

R1,RMCS2(R4)
12(R2),=(SP)
RO,WRT.RM

#131,-(SP)
RO WRT.RM

030022

sSELECT DRIVE
;DESIRED WORD COUNT

RMADR , R4

R1,RMCS2(R4)
2(R2) ,R
#131,R
1%
10(R2),=(SP)
RO,WRT.RM

:RMCS1

:SET "'SEARCH WAIT'' KEY
ADDRESS

:SELECT DRIVE
*PICKUP THE REQUESTED COMMAND
:1S 1T A SEARCH COMMAND?
‘BR IF NO
:LOAD DESIRED TRACK & SECTOR

' CZRMLAO RMOS/3/2 2 ¢ OITATTER

18:

000012
035064

2%:

#105,R3

SEQ 0105

;60 L 0 AD D CYLINDER
18 1 T a SEEK COMMAND

:BR 1 F

;1S 1T AN "OFFSET'" COMMAND?

034704

Cl6
#115,R3
6%
RO,RD.RM

000001
035064

1(R2),(SP)
RO,WRT.RM

MOV

JSR

RMDC

c17

3%:

000115

000107

BR
CMPB

12(R2),=(SP)
RO,WRT.RM

6
0 7.R3
6
1 7.R3
6
0 3,R3

4%:

000117
000103

§~gl~

000001
027706
000001

—_

000143

027676

#1,DRVACT(RT)

DRVSTA(R1)

027754

#1,ULDFLG(RY)

R3,-(SP)
RO,WRT.RM

5%:

034704
000001
035064

RMOF

000001

MOvB

RMOF

:LOAD D 3 SIRED CYLINDER

:BR IF NO
sMERGE THE OFFSET VALUE INTO RMOF
sBUT DON'T CHANGE THE UPPER
;BYTE WHEN LOADING THE
;REGISTER (RMOF)
START THE COMMAND
IT A "RECALIBRATE'' COMMAND?
IF YES
IT A RETURN TO CENTER?
IF YES
IT AN "UNLOAD'' COMMAND?
H BR IF N 0
;SET THE DRIVE ACTIVE INDICATOR
;PUT DRIVE STATUS TO OFFLINE
;SET "'UNLOAD IN PROGRESS'' FLAG
;START THE "'UNLOAD'' COMMAND
;GO
;1S
;BR
:1S
:BR
;1S

#143,R3
6$
RO,RD.RM

;RETURN TO USER
;1S IT A "'SET FORMAT'' COMMAND?
:BR IF NO
sREAD THE OFFSET REGISTER

1(R2),1(SP)
RO,WRT.RM

;:COMBINE '‘FMT16'"',"'ECI'', AND "‘MCI"'
;LOAD "'FMT16'', "ECI'", AND/OR "‘HCI"'.

c17

000006

7%:

000010
000011
034704

032044
8%:
9%:

032044
000002

032044

:1$
IS
IT A "'GET REGISTER'' COMMAND?
;BR R IF NO

CMPB
BNE

:POINTS TO 1ST ADDRESS OF WHERE

MCv

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

MOvB
MovBe

RMCS1

c17

MOV

(SP)+,(R3)+
$,R5

ADD

#2,9%

CMP
BEQ

6%:

p—y

000141

~no

p—

e s O
~N
S
2882 —
- O = ON Sn8n8%
S3%
S8
= WO SO0
O=NON
gg=2883:e
NO
S —=NON
O =N
ON=O0O0O0ONN-=00O ON\AN-flN-DN—'NON)g ON)—
NEOENO=OONMNIN
NONS
—
~
NN
W—=0ON~N
OWNWWN=NWN—=O
NN
8OONV!°~8
oO
WOW
omog
NSNS
NN
W
SN 3 SN WNSTON O = s = O NN NN WO SN NS NINWWNO
&~ :!‘ogfluu

000105

035064

§50 031650
§51 031652
552 031656
553 031660
§54 031662
§55 031666
556 031672
557 031674
558 031676
§59 031700
560 031704
561 031706
562 031712
563 031714
564 031720
565 031722
366 031730
67 031734
568 031742
569 031744
570 031750
571 031752
5§72 031754
573 031756
574 031762
575 031764
576 031770
5§77 031772
578 031774
579 032002
580 032006
581 032010
582 032012
583 032014
584 032020
585 032022
586
587 032026
588 032034
589 032040
590 032044
591 032046
592 032050
593 032052
594 032056
595 032060

BR
CMPB
BNE

OOOOOSS-e 08-‘
o ~N o
w

549 031644

RMDA

OON -

539 031612
40 031614
541 031616
34¢ 031620
543 031624
344 031626
545 0316
346 031636
547 031640
548 031642

8§§38~§

RM/RM DRIVER INITIALIZ
ATION CODE
1

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

;GET THE CONTENTS OF RH/RM REG.
;LAST REG. BEEN READ?
;GET OUT IF YES
; INCREASE THE INDEX BY 2

000145

108:

MOV

128%:

JSR
BIS

060000

030000

000001

027676
Cl6:

i e

035256

035064

000016

—N

il e
i

036134
000200
027774

&~
~N

W
nN
N

624 032206

BR
(MPB
BEQ

118:

035064

— -

N
N

(=]
W

N
w

—

NN =

OOVENOWVSWNN-=O

s i ch it

o cooococcccor0rOrOrOr
O

o ~NOrW

222222 sge SON*

NN
NOFREFTSSSFREFN
RSo
HO
OOO§

=il =lelelelelelelelelelelelelelelot
-]i=lelelele]
NN NN NN NN N N U N N NN NN N NN
NN
~N NN
NN
NN NN NN NN NN NN

¢ 9
CZRMLAO RMO5/3/2 FORMAT TER
DEHA(RO v03.01 11-APR-80 13:01:23 PAGE 11-11
RH/RM DRIVER INITIALI IA TION CO

JSR
RMCS1

c17

TST
BPL
JSR
RTS
ASL
MOV
ASR
mMove
RTS
MOv
JSR
RMCS1

c17

032764

010000

000010

005702

C17:
1%:

001001
000207
012762

104000

012746
004037

BR
BIT
BNE
TST

BEQ
BNE

2%:

RTS
MOV

00011
035064

C178:

MOv

036016

2%:

000016

635 032252
636
637 032256
030020

JSR
RMCS?

c18

JSR
CLRB
CLRB
CLRB
CMP
CMP
BNE
CLR

MOV
RTS

SAVREG
BIT
BNE

000010

CLR
CLR
1518
BEQ
BNE
1STB

027676

027736
027746
030020

JSR

22%:

BEQ

MOV

CMP

SEQ 0106

8%
#145,R3
12%
R3,-(SP)
RO,WRT.RM

;LO0OP==MORE TO READ
:
;1S IT A ""SELECT DRIVE'' COMMAND?
:BR IF YES
sLOAD THE COMMAND

PC,POPQUE
#BIT07,16(R2)
SAVEFG

sREMOVE REQ. FROM QUEUE
;SET THE ''DONE'' BIT
;SAVE THE RH/RM REGISTERS?

JRETURN TO USER

13%
PC,SVRH70

sBR IF NO
sYES==GO SAVE THE REGISTERS

;?OOOO.TXHER(Rl)
#1,DRVACT(RY)
PC

R3,-(SP)
RO,WRT.RM

sSET A ONE SECOND TIMER
sSET THE DRIVE ACTIVE
sRETURN TO THE USER

;LOAD THE COMMAND

()

#BIT12,RMCS2(R4:

cl8
R2
c178
2%

sDRIVE NON=-EXISTENT

;BR IF YES
JANYTHING IN QUEUE ?
:BR IF NOT
;BR IF QUEUE 1S THERE

sOTHERWISE EXIT

PC,SVRH70
#111,-(SP)
RO,WRT.RM

;G0 SAVE THE RH/RM REGISTERS
;DO A "DRIVE CLEAR''

PC,EMPTYQ

;EMPTY THE QUEUE

#BIT1S5!'BIT11,16(R2)

DPRQS(R1)
ULDFLG(R1)
DRVACT(R1)
R2,TRNSWT
R1,DTUW
1%
TRNSWT

;SET "'PARITY'" ERROR INDICATOR

;CLEAR THE PORT REQUEST FLAG
sCLEAR THE UNLOAD IN QUEUE FLAG
sDRIVE IS IDLE
sIF THIS DRIVE HAD AN 1/0 REQUEST
sIF THIS DRIVE HAD AN 1/C REQUEST
s IN PROGRESS CLEAR ALL OF

THE FLAGS

#-1,DTuw

#BIT12,RMCS2(R4G)

1%
R1
R3

DRVACT(R1)
5%
22%
DPRQS(R1)
5%
TRNSWT ,R2
R1,DTUW

;SAVE
;BR IF

RO - RS
;1S "NED' SET ?
YES

;DRIVE ACTIVE?
;BR IF NO
sBR IF IN ACTIVE
sPORT REQUEST
;BR IF NOT

;GET THE ''TRANSFER WAIT'' QUEUE

;DID THIS DRIVE HAVE AN 1/0 IN PROGRESS?

WRONN

g:3 §

238
W=
OV ~NO WIS W

TTER
ATION CODE

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

036112

2%:

DRVACT(R1)
DPRAS(R1)
R1,DTUW
5%

MOV

102000

000016

MOV

177777

030000

MOov

MOV

177777
027746
035740
000040

CLR
CLRB

BIT

BNE
INC

ADD

177770

104413
000207

CLRB
CLRB
CMP
BNE

000016

000002

BIC
BNE

030020

MOov
CLR
JSR
MOV

000010

036016
027706
027716
035374

6%:
7%:

sBR _IF YES
;:GET THE DPB POINTER
;QUEUE ENTRY FOR DRIVE ?

JSR

100002

5%:

PC,GETREQ

:BR IF NOT
4%
#BIT12,RMNCS2(RG)
; "NED' SET ?
$
:BR IF NOT
#BITIS!BITO1,16(R2)
;SET "DRIVE NON-EXISTENT' INDICATOR
4%
sCONTI NUE
#BITI1S!BIT10,16(R2)
;SET "'NON=CLEARABLE PARITY'® ERROR INDICATOR
PC,SVRH70
sSAVE RH/RM REGISTERS

000010

004737

TST

BEQ
BIT
BEQ

010000

030020

673 032444
674 032446
675 032452
676 032456

BEQ
JSR

BR
JSR
CLRB

CLRB
JSR
RESREG

RTS

#-1,TIMER(R3)

#-1,DTUW
TRNSWT

;STOP THE TIMER
;SET 'DRIVE ACTIVE'' TO IDLE
;CLEAR PORT REQUEST FLAG
;1S THIS DRIVE SETUP FOR A TRANSFER
:BR _IF NOT
;RESET THE INDICATOR

;CLEAR THE TRANSFER QUEUE
ULDFLG(R1)
;CLEAR UNLOAD FLAG
#BIT12,RMCS2(R4)
; "NED' SET ?
6%
:BR IF YES

R1
#2,R3
#*C7,R1
1%

TRNSWT
PC,CLRQUE
#CLR,RMCS2(R4)

7%
PC,EMPTYQ
DRVSTA(R1)
DRVTYP(R1)

PC,SET.IE

sMOVE TO THE NEXT DRIVE

:BR IF MORE DRIVES.
:NO DATA TRANSFERS UNDERWAY
;CLEAR THE 'TRANSFER WAIT' QUEUE
sCLEAR ALL OF THE REQUEST QUEUES
;DO A MASSBUS INIT.

s CONTINUE
;CLEAR THE DRIVE'S QUEUE
;SET DRIVE TO OFFLINE
sCLEAR THE DRIVE TYPE INDICATOR
sSET "'IE" WITHOUT "'TRE"
;RESTORE RO - RS
:RETURN

;LOOK AHEAD ROUTINE

SCALL

MOv
MOV
JSR

RETURN1
RETURNZ

#DRVNUM,R1
#DPB,R2

;DRIVE NUMBER
sPOINT TO DPB
;60 CHECK THE WINDOW
sERROR RETURN
:START A SEARCH
;START A DATA TRANSFER

RMADR
, R4

;GET RMCS1'S ADDRESS
sSELECT DRIVE
;READ DRIVE STATUS

RO,LA

RETURN3

013704
010164
004037
000012
032700
042716
022726
001044
105261
126137
003033

030034
000010
034704

LA:

157577
000200

027764
027764

030042

MOV
MOV
JSR
RMDS
4%

BIC
CMP
BNE
INCB
CMPB
86T

R1,RMCS2(R4)
RO,RD.RM

#+C020200, (SP)
#200,(SP)+

3%
LACNT(R1)

LACNTC(R1) ,MXLACT

:ERROR RETURN ADDRESS
sON CYLINDER ?
:P6P=0.DRY=1?
:N

: INCREMENT THE LOOK AHEAD COUNT
;EXCEED MAX?
:BR IF YES

SEQ 0107

CZRMLAO RMO5/3/2 FOR MATTER

RH/RM DRIVER INITIALIZATION CODE

710 032600
711 032604
712 032606
713 032610
714 032612
715 032620
716 032624
717 032626

116203
000303
006203
006203
012737
004037
000020
032700

719 032634
720 032636
721 032640

001402
005726
000415

723 032644

002002

718 032630

722 032642

7264 032646
725 032652

726 032656
727 032660
728 032664

729
730
731
732
733

032666
032672
032674
032676
032700

;;g 032704

021664

MACRO v03.01

177776

002406
023703
002003

105061
005720
005720
000402
004737

000200

004000
030044

7642 032726
7643 032730

112737
104412
013704
013701

002403
004737

000402
004737
104413

;23 032750

000002

027764

;CORRECT LA NUMBER ?

(SP)+,R3

sCALCULATE THE DELTA

1$:

ADD
CMP

#<32.+64.>,R3
MXDLTA,R3
3%
MNDLTA,R3
3%
LACNT(R1)
(RO)+
(RO)+
5%
PC,CI7

;MAKE THE DELTA POSITIVE
sCHECK THE DELTA TO SEE

2%:
3%:

032174

48:

5%:

105037

000001

027752

1SR:

030034
030020
032752

033122

1%:
2%:

027752

BGE

BLT
CMP
BGE

CLRB
1ST
TST
BR
JSR

RTS

MOvB
SAVREG
MoV
MoV

#1,ACTDRV

BLT
JSR

RMADR R4
DTUW,R1
1%
PC.TD
2%
PC,SC

CLRB

ACTDRV

BR
JSR
RESREG

RTI

;g?

752 032752
753 032756
754 032764
755 032766
756 032774
757 032776
758 033002
759 033006
760 033014
761 033020
762 0330264
763 033026
764 033030
765 033032
766 033034

(SP) ,RMLA(RG)

7%
(SP)+
3%

;GET DESIRED SECTOR ADDRESS AND
;MULT. BY 64=-ALIGN WITH
:LOOK AHEAD REGISTER

;YES
sNO,CLEAR STACK

sIF IT IS WITHIN THE
;WINDOW=-=-=1F YES, ZERO
s THE LOOK AHEAD COUNT
sAND TAKE THE

1/0 EXIT

sADJUST THE RETURN ADDRESS
JEXIT
;PROCESS THE ERROR

;RETURN

: INTERRUPT SERVICE ROUTINE

744 032734
7645 032736
7646 032742
747 032744

;PRIORITY LEVEL "'7"
sREAD LOOK AHEAD REGISTER

6$:

030046

;gg
738 032706
739 032714
740 032716
7641 032722

10(R2) ,R3
R3
R3
R3
#340,PS
RO,RD.RM

7%:

MovB
SWAB
ASR
ASR
MOv
JSR
RMLA
48
CMP
BEQ
18T
BR
SuB

000020

162603

062703
023703

11-13

SEQ 0108

000010

000340
034704

11-APR-80 13:01:23 PAGE

;SET "ACTIVE DRIVER'' FLAG
;SAVE RO - RS
;ADDRESS OF RHSCSI
;GET "'DATA TRANSFER UNDERWAY'' INDICATOR
:BR IF NO DATA TRANSFER UNDERWAY
:CALL TRANSFER DONE

JEXIT
sCALL SPECIAL CONDITIONS
;RESTORE RO - RS

;CLEAR "'ACTIVE DRIVER'' FLAG

;RETURN

s TRANSFER DONE ROUTINE

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

027774

000016

CLRB
MOV
ASL
MOV
ASR
MOV
CLR
BIS
MOV
JSR
RMCST
17
ROL
BMI
ST

DRVACT(R1)
#-1,DTUW
R1
#-1,TIMER(RT)
R1
TRNSWT ,R2
TRNSWT
#BIT07,16(R2)
R1,RMCS2(R4)
RO,RD.RM
(SP)+
3%

SAVEFG

;SET DRIVE ACTIVE INDICATOR TO IDLE
:NO DATA TRANSFERS UNDERWAY
;CANCEL TIMEOUT

:GET ''DPB'' ADDRESS FROM THE
:TRANSFER WAIT QUEUE--CLEAR QUEUE
;SET DONE
sSELECT THE DRIVE
s TRANSFER ERROR(TRE=1)?

:BR IF
;SAVE

YES

THE RH/RM REGISTERS?

CZRMLAO RMO5/3/2 FORMATTER

RH/RM DRIVER INITIALIZATION CODE

767 033040
768 033042
772 033046
7764 033046
775 033052

776 033054
777 033056
778 033062
779
780 033064
781 033070
782 033072
783 033100
784 033104
785 033110
786 033114

787 033120
788
789

806
807
808
809 033122
810 033126
811 033130
812 033134
813 033136
814
815 033140
816 033142
817 033144

033150
818 033152
819 033156
820 033160
821 033162
822 033164
823 033170
824 033172
825 033174
826 033176
827 0332
828 033202
829 033204
830 033206
831 033210
832 033214
833 033216
834 033222
835 033226
836 033230
837 033234
838 033240
839 033242
840 033246
841 033250
842 033254

10000

00473

035256

004737

036112

000417
012714
000414
052762
004737
004737
012714
012714
000400

MACRO v03.01

031114
: THE

2%:

000113
100100

036016
035256
040111
000113

000016

38:

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

BPL
JSR

1%
PC,SVRHT0

JSR
ST

PC,GETREQ
R2

BEQ
JSR
BR

RELESSE

2%
PC,OPT
SC

DRIVE

COMMAND

#113, (R4)
SC

:BR IF NO

;YES==SAVE THE REGISTERS
:GET DPB POINTER
sENTRY FOR DRIVE ?
:BR IF NOT

;CALL OPTIMIZER
:CHECK OTHER DRIVES

1S FORECD TO ENTER FOR DUAL PORT
;RELEASE THE DRIVE

#BIT15!B1706,16(R2)

MOV

#0111, (R&)

MOV
BR

PC,EMPTYQ
PC.SVRH70

#113, (R4)
SC

OPERATION

; CHECK FOR _OTHER DRIVES
;SET DATA ERROR FLAG

BIS

JSR
JSR

SEQ 0109

;EMPTY THE "DRIVE'S WAIT'* QUEUE
:SAVE THE RH/RM REGISTERS
;ISSUE A 'DRIVE CLEAR"
;1SSUE A RELEASE TO THE DRIVE
sCHECK FOR OTHER DRIVES

sSPECIAL CONDITION ROUTINE
116403
001014
004037
000000
032274

106126
100405
004037
104001

000016

034704

036202

004737
000207
005046

035374

012703
005001

000001

110316

$C:

1%:

2%:

SC3:
SC&:

MOVB
BNE
JSR
RMCS1

C18
1%

ROLB
BM]

JSR
EMT
JSR
RTS

CLR

MOVB
MOV
CLR

SCS5:

034134
027736

1%:

034134
027706

2%:

027754
036112
035256

;READ ''RMAS''

RO,RD.RM

sREAD

(SP)+

?O.ES.SAV
PC,SET.IE
PC
-(SP)

R3, (SP)
#1.R3

;BR IF ANY 'ATA' BITS SET
CONTROL

:YES, NO DRIVES TO CHECK
:SAVE THE ADDRESS IN 'SESCAPE"

:REPORT AN ILLEGAL INTERRUPT
;SET INTERRUPT ENABLE
;RETURN
:PROCESS ALL DRIVES THAT HAVE
JAN 'ATA"'=1

ASLB

R1
R3

sMOVE

1ST
RTS

(SP)+
PC

BEQ
JMP
1ST18
BEQ
JMP

SC13
DPRAS(R1)
2%
SC13

1S18

1S18
BGT
1STB

BLE
JSR

JSR

5C8

SC3

DPINT(R1)
1%

DRVSTA(R1)

5%
ULDFLG(R1)
b1)
PC,GETREQ

PC,SVRH70

STATUS REGISTER

;18 "IE''=1?

;ATA=1?

BNE
INC

AND

JEXIT IF FAIL TO READ

R3, (SP)

BIT

BNE

027726

RMAS (R4) ,R3

JYES

TO THE NEXT

DRIVE

:BR_IF MORE TO CHECK?
;CLEAN OFF THE STACK
;RETURN TO USER
sINITIALIZING THE DRIVE ?
:BR _IF NOT
sPROCESS THE DRIVE

sPORT REQUEST OQUTSTANDING ?

:BR IF NOT
sSTART THE OUTSTANDING COMMAND
sCHECK THE DRIVE STATUS
:BR IF ONLINE
sUNLOAD IN PROGRESS?
:BR_IF NOT
:GET DPB POINTER
:SAVE THE RH/RM REGISTERS

CIZRMLAO RMO5/3/2 FORMATTER

RH/RM DRIVER

INITIALIZATION CODE

843 033260

844
845 033264

846 033270
847 033272
848 033300
849

850 033302

SEQ 0110

JSR

PC,SC12

sSAVE RMDS, RMER1, RMERZ2, AND RMMR?

105761
003414
032737
001000

027706

TSTB
BLE
BIT
BNE
JMP

DRVSTA(RY)
6
#BIT14,RMERRS
38
SC11

‘NO
:WAS THERE AN ERROR?
‘BR IF ERROR
*NO ERROR

BR
T1STB
BNE
JSR

SCOA
DRVACT(R1)
5C6
PC,SC12

013705

878 033432
879 033436
880 033440
881 033442
882 033444
883 033446
884 033450
885 033454

004037
000012
033724
011605
006126
100407
105761
003137

000504
105761
001033
004737
105761
001323
105761
100412
032737
001013
012746
004037
000000
033724
011605
004037
104002
000701

000137

052762

887 033464
888 033466
889 033472
890 033474
891 033476
892 033500

000470
004037
000014
033724
012605
004737

894 033510
895 033514
896 033516

004037
000000
033724

893 033504

034064

004037
104005
000675
006301
012761
006201
004737
010164

886 033456

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

004737

851 033306
85% 033310
853 033314
854 033316
855
856 033322
857 033326
858 033330
859 03333¢
860 033336
861 033344
862
863 033346
864 033352
865 033356
866 033360
867 033362
868 033364
033370
869 033372
870 033374
033374
033400
871 033402
872 033404
873 033406
874 033414
875 033416
876 033422

877 033426

MACRO v03.01

012746

040000

027666
.

027670

027676

5%:

034064
027726

6%:

027706
020000

027672
:

000111
035064

7%:

036202

8s:

036202

177777

030000

SC6:

036112
000010

033754

027676

034704

035256

000111

035064

000016

:YES == PICKUP RMER1 AND

1STB
BNE
T1STB
BM]
BIT
BNE
MOV
MOv
JSR
RMCS1
SC8
MOV
JSR
EMT
BR
JSR
EMT
BR
ASL
MOV
ASR
JSR
MOV

RO,ES.SAV
5
SC&
R1
#-1,TIMER(RY)
R1
PC,GETREQ
R1,RMCS2(R4)

;SAVE THE ADDRESS IN 'SESCAPE'
;REPORT THE ADDRESS PLUG CHANGE
;CHECKX FOR MORE DRIVES
;SETUP TO ADDRESS WORDS
;STOP THE TIMER
JRESTORE THE DRIVE ADDRESS
:GET THE DPB POINTER FROM THE QUEUE
;SELECT DRIVE

JSR
RMDS
5C8
MOV
ROL
BMI
1STB
BGT

RO,RD.RM

;READ THE RM'S STATUS REG.

(SP) ,RS
(SP)+
1%
DRVACT(R1)
SC1

;AND PUT IT IN RS
;WAS THERE AN ERROR?
;BR IF ERROR
;CHECK DRIVE'S STATE
:BR IF DRIVE ACTIVE WITH ORDER

BR
JSR
RMER1
SC8
MOV
JSR

SC7
RO,RD.RM

;READ ERROR REGISTER #1

(SP)+,RS
PC,SVRH70

;AND SAVE IT IN RS
:SAVE RH/RM REGISTERS

Bl1S
1%:

RMERRS+2,RS

160 PROCESS THE ERROR
sDRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ?
:BR IF EITHER
;SAVE RMDS, RMER1, RMER2, AND RMMR?2
:ALSO DO A DRVINT
DPINT(R1)
sTRYING TO INIT THE DRIVE ?
SC&4
sBR IF YES, CHECK ON MORE DRIVES
DRVSTA(RY)
;CHECK ON DRIVE'S STATUS
7%
*BR IF UNSAFE
#BIT13,RMERRS+4 :ADDRESS PLUG CHANGED ?
8$
‘BR IF YES
#113,-(SP)
JRELEASE COMMAND
#111,-(SP)
;DRIVE CLEAR
RO,WRT.RM
;WRITE THE COMMAND INTO RM(CS1
*REGISTER INDEX
sPARITY EXIT ADDRESS
(SP),RS
sPICKUP (RMAS) BEFORE THE ERROR CALL
RO,ES.SAV
:SAVE THE ADDRESS IN 'SESCAPE’
2
:REPORT THE UNEXPECTED ATTENTION
SC4
;G0 CHECK FOR MORE ATA'S

JMP

034704

100210

MOV

:ALSO
DO A DRIVE INIT (DRVINT)
:DID DRIVE COME ONLINE?

MOV

JSR
RMCS1
SC8

scit

*PROCESS THE SEARCH

081115!81107!81163.16(R2)

l1f1,-(SP)
RO,WRT.RM

s INFORM USER OF ERROR RECOVER COMPLETION

;ISSUE A DRIVE CLEAR

33 L53

SCHA:

100240

000016

034704

BEQ
BiS
BR
JSR

RMDS

SC8

177777
035256
110000

W
&~

921 033640

922 033646
923
926 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
94§ 033744
b
944 033744
945 033750

948 033762
949 033766
95? 033772
95
952 034000
953 034002

105061

004737
105761

003002

BPL

027706

MOvB

000016

2%:

010000

o
WN
W
o

S
R

ROL
BMI]
18T

MOv
ROL

WOV~

e
e
e
D

o VONOWVS

1%:

11-APR-80 13:01:23 PAGE

177777
000001

027676
027706

072460

030000

033176
100220
027676

000016

3%:
SC7:

036134
027754

105061
116164
105761
100406

027754
030022
027706

012746
004037

000111
035064

JSR
BIS
BR
BIT
BNE

MOvB
MOvB
ASL
MOv
ASR
JMP

BIS

CLRB
JSR
JSR
1STB

BGT

000016

1%:

2%:
SC8:

033176
027676

004737
000402

1%:

2%:
SC11:

027750

CLRB
MOovB
1518
BMI
MOV
MOv
JSR
RMCS1

SC8

JMP

1STB

BEQ
JSR

11-16

0
— D
e

MACRO v03.01

SC7

SEQ 0111

;WAS "'UNSAFE'" CONDITION =1?

:BR IF YES

sANYTHING

‘BR IF NOT

IN QUEUE

#BIT15!BITO7!BIT 05,16(R2)
:INFORM USER
S c7
RO,RD.RM
;READ DRIVE STATUS REG. #1
(SP) RS

(SP)+

;SAVE RMDS IN RS
;IOERROC=1?

:BR IF NO=--UNSAFE CLEARED
:DRIVE IS UNSAFE
PC,SVRH70
:SAVE RH/RM REGISTERS
|
#BIT15!BIT12,16(R2)
: INFORM USER OF UNSAFE ERROR
SC7
#-1,DRVSTA(RT)

#BIT12,RS

#-1,DRVALT(R1)
#1,DRVSTA(RY)
R1

;'MoLtt =1 ?
;BR IF YES

sACTIVE ERROR RECOVER

sONLINE

:?0000..TIHER(R1)

;START 30 SECOND TIMER

SC4
#BIT15!BITO7!BITO4,16(R2)
: INFORM USER OF
DRVACT(R1)
;DRIVE IS IDLE
PC,EMPTYQ
;DUMP THE QUEUE
PC,POPQUE
sREMOVE THE QUEUE

ULDFLG(RY)
1%
ULDFLG(RY)

sUNLOAD IN RMOGRESS OR QUEUE?
sBR IF NOT
;sCLEAR UNLOAD FLAG

DRVSTA(R1)
2%
#113,-(SP)

;1S THE DRIVE UNSAFE ?
sBR IF IT IS
sRELEASE COMMAND

ATABIT(R1) ,RMAS(R4)

#111,-(SP)
RO,WRT.RM

sDRIVE CLEAR COMMAND
sWRITE THE COMMAND INTO RPCS!

JREGISTER INDEX

SC4
?2VACT(R1)

sPARITY EXIT ADDRESS
sCHECK FOR MORE DRIVES
;lg DRIVE IDLE?

PC,GETREQ

sGET DPB POINTER

PC,C17
2%

sPROCESS THE PARITY ERROR
s CONTINUE

JSR
JSR
JMP

PC,C17

sPROCESS THE PARITY ERROR

SC4

sCHECK MORE DRIVES

BLE
CLRB
CLRB
BlTB

BNE
JSR

PC,CI178B
ULDFLG(R1)
1%

ULDFLG(RY)
DRVACT(R1)

sPROCESS THE UNCORRECTABLE PARITY ERROR

PC,PCPQUE

:"'UNLOAD IN PROGRESS'"?

sBR IF NO

sCLEAR UNLOAD FLAG
:SET DRIVE IDLE

ATABIT(R1),SRCHWT

ERROR

sCLEAR ATTENTION BIT

JSR
BR

1STB

OF ERROR

;DOING A SEARCH OPERATION FOR
;AN

;BR IF YES
sREMOVE

1/0 COMMAND?

REQUEST

FROM QUEUE

| CZRMLAO RMOS/3/2 FORMATTER

' RW/RM DRIVER INITIALIZATION CODE

MACRO v03.01

000016

000016
027750

#BIT07,16(R2)
SAVEFG

030264

2%:

#=1,TIMER(RY)
R1
PC,OPT
SCé

sC12:

R1,RMCS2(R4)

977 034144

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 034224

w
~
~
&

992
993 034230
994 034234
995 034236

004737
000414
032764

030000

000010
030022
027726

000016

PC
(SP)+

SC8
R1
3;1.11HER(R1)

SC13:

18:

027706

DRVSTA(R1)
2% R2
3%

140000

035256

036134

060000

030000

THE FOUR REGISTERS THAT
;WILL TELL US SOMETHING

:RETURN
;POP PC OFF

THE

THE DRIVE
STACK

+PROCESS THE PARITY ERROR
sSETUP TO ADDRESS WORDS
;STOP THE TIMER

:BR_IF NOT

sCLEAR THE INIT INDICATOR
;60 INIT THE DRIVE

:DUMMY PARITY ERROR RETURN

:DRIVE
:BR_IF
;QUEUE
:BR _IF

2%:

ONLINE ?
YES == START ORDER
ENTRY FOR THE DRIVE
NOT

DPB ADDRESS
: INFORM USER THAT

PC,SVRH70

sSAVE THE REGISTERS

gg.POPGUE

;REMOVE THE QUEUE

PC.EMPTYQ

000000

sSELECT DRIVE

PC,GETREQ
;GET
#BIT15!BIT14,16(R2)

000016

004000

;STOP CLOCK
;RESTORE R1
sSTART A REQUEST
;CHECK FOR MORE DRIVES

R1,RMCS2(R4)
;SELECT THE DRIVE
ATABIT(R1) ,RMAS(R4)
;CLEAR THE ATTENTION BIT
DPINT(R1)
sINITIALIZING THE DRIVE ?
DPINT(R1)
RO,DRVINT

036112

:BR _IF NO

RMER2
(R4) ,RMERRS+4
RMMR
(R4 ) ,RMERRS
2
+6
RO,DRVINT
;INIT. THE STATE OF
1%
sTAKE ERROR EXIT

027726
030264

88888888

b
i
s ed
el
) e
el e
—
—

(=l
-0 0O
OOV®NO
WV
LN —-O

w
~
N
w

997 034246
998 034250

004737
052762
004737

177777

;SET "'DONE'' BIT
:SAVE THE REGISTERS?

RMDS
(R4) ,RMERRS ;SAVE
RMER1(R4) ,RMERRS+2

1%:

975 034134
976 034136

SEQ 0112

PC,SVRH70
; YES==SAVE ALL OF THE RH/RM REG'S
ATABIT(R1) ,RMAS(R4)
sCLEAR ATTENTION BIT
ATABIT(R1) ,SRCHWT
:CLZAR IMPLIED SEEK SET
R1
:WORD INDEX

030000

027666
027670
027672
027674

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

#BIT11,RMCS1(R4)

;EMPTY THE REQUEST

;DVA SET

DRIVE OFFLINE

QUEUE

:SET THEN CALL OPT

:?0000.11HER(R1)

4%:

3%:

JMP

PC,OPT

SC4

:START

THE

PENDING REQUEST

;PROCESS OTHER DRIVES

sRM TIMER ROUTINE

sCALL

027752

RMTMR:

JSR

#TIME,-(SP)
PC.RMTMR

SELASPED TIME IN MILLISECONDS ON THE
;CALL RMOS5 TIME ROUTINE

1ST
BNE

ACTDRV

;CHECK "ACTDRV & ACTSTR"

MOV

*IF

NON ZERO EXIT

STAIK

CZRMLAO RM0O5/3/2 FORMATTER

RH/RM DRIVER

INITIALIZATION CODE

1011 034300
1012 034306

112737
104412

000001

005763

030000

1013 034310
1014 034312

005001
005003

1016 034320

002406

1015 034314

1017 034322
1018 034330
1019 034332
1020 034336
1021 034340

1022
1023
1024
1025
1026

034342
034346
034350
034352
034356

}85; 034360

166663
003002
004737
005201
005723

022701
003362
104413
105037
012616

000002

MACRO v03.01

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

027753

1$:

030000

034362

2%:

000010
3%:

027753

4$:

000207

MOVB
SAVREG
CLR
CLR

R1
R3

:START WITH DRIVE 0

BLT

:BR IF NO
;COUNT THE INTERVAL
:BR IF NO SOFTWARE TIMEOUT
;CALL SOFTWARE TIMEOUT ROUTINE
;MOVE TO NEXT DRIVE

#8..R1
1%

;0UT OF DRIVES?
;sBR IF NO
:RESTORE RO - RS
;ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG
:ADJUST THE STACK

SUB
BGT
JSR
INC
TST

CMP
BGT
RESREG
CLRB
MOV

RTS

#1,ACTSTR

TIMER(R3)

2(SP) ,TIMER(R3)
2%
PC,STO
R1
(R3)+

ACTSTR
(SP)+,(SP)

}8%8

;SOF TWARE TIMEOUT ROUTINE

1031

sNOTE:

1032
1033
1034
1035
1036
}ggg

3
:
;CALL:
:
:
:

1039 034362
1040 034364
1041 034366
1042 034370
1043 034372
1044 034376
1045 034402
1046 034406
1047
1048 034410
1049 034412
1050 034414
1051 034416
1052 034422
1053 034426
1054 034430
1055 034432
1056 034436
1057 034442
1058 034444
1059 034450
1060 034454
1061 034462

010146
010246
010346
010446
013704
010164
004037
000012

034466
034472
034476
034502

105061
105061
005037
012737

1062
1063
1064
1065
1066

1067 034510

034672
105726
100436
105761
001033
105761
001030
013702
020137
001404
000137
004737
052762
004737

000470

ST0:

030034
000010
034704

027726

STO1:

027736
027746
030020
034672
036112
101000
035256
027676
027754
027746
177777

000016

1%:

030020

SEQ 0113

;SET ""ACTSTR"'
:SAVE RO - RS

;1S THE TIMER RUNNING?

:RETURN

THIS ROUTINE MUST BE ENTERED AT PRIORITY 6

OR GREATER

STO
MOV
JSR
RETURN
MOV
MOV
MOV
MOV
MOV
MOV
JSR
RMDS
ST05
ST09
1STB
BMI
TSTB
BNE
1578
BNE
MOV
CMP
BEQ
JMP
JSR
BIS
JSR

MOV
CLRB
CLRB
CLR
MOV

#DRVNUM, K1
PC,STO

;:DRIVE NUMBER
:CALL

R1,=(SP)
R2,=(SP)
R3,-(SP)
R4 ,=(SP)
RMADR , R4
R1,RMCS2(R4)
RO,RD.RM

:SAVE R1
;SAVE R2
;SAVE R3
;SAVE R4
;GET ADDRESS OF ''RM(CS1''
:SELECT THE DRIVE
;READ ''DRIVE STATUS REG''

(SP)+
;1S 'DRY''=1?
ST02
sBR IF YES
DPINT(R1)
;TRYING TO INTIALIZE THE DRIVE ?
ST02
;BR IF YES
DPRQS(R1)
;OUTSTANDING PORT REQUEST FOR THE DRIVE
ST02
:BR IF YES
TRNSWT ,R2
sPICKUP TRANSFER WAIT QUEUE
R1,DTUW
;TRANSFER UNDERWAY ON THIS DRIVE?
1%
:BR IF YES
ST09
:1F NOT DON'T BOTHER DRIVES
PC,SETREQ
:GET DPB ADDRESS
#BIT15'BIT09,16(R2)
:SET THE ERROR FLAGS
PC,SVRH70
:SAVE RH/RM REGISTERS

#CLR,RMCS2(R4)
DRVACT(R1)
ULDFLG(R1)
TRNSWT
#-1,DTUW

$109

;"'INIT''
:DRIVE
;CLEAR
;CLEAR
:CLEAR

THE MASS BUS
1S IDLE
THE UNLOAD FLAG
DPB ADDRESS
THE TRANSFER DRIVE #

:DON'T BOTHER OTHER DRIVES

CZRMLAO RM05/3/2 FORMATTER

RH/RM DRIVER

INITIALIZATION CODE

1068 034512

1069 034516
1070 034522

1071 034524
1072 034530
1073 034532
1074 034536
1075 034540
1076 034542
1077 034546
1078 034550
1079 034554
1080 034556

1081 034564

1164

1361
0010

105761
0010
105761
0010
0004
1057
0010
1057
0014
012

1082 034566
1083 034572
1084 034574
1085 034600
1086 034604
1087 034612
1088 034616
1089 034620

1090 034622

1091
1092
1093
1094
1095
1096

034630
034632
034640
034644
034650
034652

1097 034654

1098 034662
1099 034666
1100 034672
1101 034674
1102 034676

MACRO v03.01

000016

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

$T02:

030022

027726

027736

'
.
ST03:

027726

027736
177777

030000

1%:

032274

STOS:

027726
027706
177777
036112

STO6:
030000

140000

000016

177777
027736
036112

030000

100004

000016

036016
035256

MOVB

RMAS (R4) ,RS

TSTB
BNE
TSTB
BNE
BR
TSTB
BNE
1ST8
BEQ
MOV

DPINT(R1)
$T06
DPRQS(R1)
$107
ST09
DPINT(R1)
1%

JSR
BR
CLRB
CLRBE
MOV
JSR
ST
BEQ

PC,C18
ST09
DPINT(R1)
DRVSTA(R1)
#-1,TIMER(R3)
PC,GETREQ
R2
ST09

BR
MOV
CLRB
JSR
ST
BEQ

ST08
#-1,TIMER(R3)
DPRQS(R1)
PC,GETREQ
R2
ST09

;FINISH
;STOP THE TIMER
:CLEAR PORT REQUEST INDICATOR
:GET DPB ADDRESS
:QUEUE ENTRY FOR DRIVE ?
‘BR IF NONE

JSR
JSR
MOV
MOV
MOV

PC,EMPTYQ
PC,SVRH70
(SP)+,R4
(SP)+,R3
(SP)+,R2

;:CLEAR THE QUEUE FOR THE DRIVE
:SAVE THE REGISTERS
:RESTORE R&
:RESTORE R3
:RESTORE R2

RTS

BITB
BNE

BIS

STO7:

STO8:
ST09:

1103 034700

MOV

}}8g 034702

ATABIT(RT),RS
$T103

DPRQS(R1)
ST09
#-1,TIMER(R3)

$T09

;READ ATTENTION REG

:1S ATTENTION FOR THIS DRIVE UP ?
JYES

;TRYING TO INTIALIZE THE DRIVE ?
:BR IF YES = DRIVE NOT ONLINE
;OUTSTANDING PORT REQUEST FOR THE DRIVE ?
:BR IF YES = NO RESPONSE TO REQUEST
;OTHER WISE EXIT
:INITIALIZING THE DRIVE ?
:BR IF INIT PENDING
;PORT REQUEST PENDING ?
:BR IF NOT
;STOP THE TIMER

SEXIT

;GO HANDLE THE PARITY ERROR

;CLEAR THE INITIALIZE INDICATOR
:SET UNIT OFFLINE
;STOP THE TIMER
;:GET THE DPB ADDRESS
;REQUEST IN QUEUE ?
:BR IF NOT

#BIT15!'BIT14,16(R2)

;INFORM THE USER DRIVE NOT AVAILABLE

#BIT15!BIT2,16(R2)

:INFORM USER OF PORT REQUEST ERROR

(SP)+,R1

:RESTORE R1

:RETURN

}}8g

:ROUTINE TO READ A RH/RM REGISTER

1108
1109
1110
1
1112

: CALL
:
;
;
;

}}}2

1115 034704
1116 034712
1117 034714
1118 034722
1119 034726
1120 034730
1121 034732
1122 034734
1123 034742

1124 034746

:
013737
011646
013737
062037
013727
000000
000000
013766
013746

062716

030032

035052

030034
034730

034730

000010

000002

RC,RD.RM

RETURN

MOV
MOV
MOV
ADD
RD.RM1: MOV
RD.ADR:

034732
030034

JSR
INDEX
ERRADR

RD.RM:

RD.WRD:

SEQ 0114

.WORD

.WORD
MOV
MOV

ADD

;GO READ A REGISTER
:REG. INDEX FROM BASE
;ERROR ADDRESS=-PROCESS ERROR STARTING
;AT THIS ADDRESS

sCONTENTS OF REG. IS ON THE STACK
MCPEMX,RD.RM2
(SP),=(SP)
RMADR,RD.ADR
(RO)+,RD.ADR
(PC)+,(PC)+
0
O
RD.WRD,2(SP)
RMADR , = (SP)

#RMCSZ, (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 FORMED HERE
sREG. CONTENTS PUT HERE
:RETURN IT TO THE USER
;PUT THE ADDRESS ON THE STACK

:FORM THE ADDRESS OF RM(S2

" CZRMLAO RMOS5/3/2

RH/RM DRIVER INIT

MOV

’

N
~

BIT
BNE

1%:

036202

030020
040000

040000

030034
035046

[=]
&H

w
v

=lelelelelelelelelelelelelelale] 00000000000

BIT

BNE

173050
020000

4776

035046

(=]
=]
oW

35054
W
v

000200

tCALL

OV
S W
= =2 O 0 O
NOSFNVONONNOO SO0 OONO

NN N NN N NN N NN NN NN NN

035154

000150

034704

035154

062716

g21113.<sp)

JSR
EMT

gO.ES.SAV
DTUW

;CHECK THE 'NED' BIT
:BR IF DRIVE NON-EXISTENT

sREAD RM(CS1

:DID MCPE SET?
;BR IF

YES

*ADJUST FOR RETURN
JEXIT

;SAVE THE ADDRESS IN 'SESCAPE'

*REPORT 'MCPE'' ERROR

*DATA TRANSFER UNDERWAY?

:NO

;NO

¥BIT14,(SP)

SEQ 0115

:IOTREIO

(SP)+

s YES==CLEAN OFF THE STACK AND

#BIT14,(SP)

;CLEAR 'MCPE'' BY SENDING A *1'' TO ''TRE"’

RD.RM3

6SP)+.5(PC)0
(PC)+

RD.RM1
(RO) ,RO

(SP)+,(SP)

;TAKE THE FATAL ERROR EXIT

;POSITION BEFORE WRITING
:FORM ADDRESS OF HIGH BYTE

;WRITE THE HIGH BYTE OF RMCSI1
+ADDRESS STORAGE
;EXCEEDED MAX. RETRYS
:BR_IF NO

;FATAL ERROR EXIT

TO WRITE A REGISTER
MOV

DATA,=(SP)
RO,WRT.RM

:DATA TO BE LOADED ON THE STACK
sCALL THE ROUTINE TO LOAD(WRITE) THE REG.
;INDEX OF THE REGISTER TJ BE LOADED
sADDRESS TO RETURN TO ON AN ERRCR
;ERROR FREE RETURN

MOv
MOV
MOv
MOV
BNE

MCPEMX ,WRT.R2

sMAX RETRYS ALLOWED
:SAVE THE WORD TO WRITE
+ADJUST THE STACK
;GET INDEX OF REGISTER TO BE WRITTEN
:BR IF NOT RMCS1
;1S THE COMMAND FOR DATA TRANSFERS?
;YES==DON'T GET THE OLD Al6 & A17, & PSEL

JSR
INDEX
ERRADR
RETURN

WRT.RM:

ARMADR
, = (SP)

(SP)+,(RO)+
RD.RM&

1ST
BMI
BIT
BEQ
TST
BR
2%:
BIS
SWAB
MOV
INC
MOovB
38:
.WORD
DEC
RD.RM2: .WORD
BGE
RD.RM3: MOv
MOV
sROUTINE

#BIT12,3(SP)+
RD.RM3

CMP
BR

RD.RM4
: RTS

030032
000002

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

010000

35044

[elelelelelelelelelelelelelelelelelal]

VONOWVNSWN =0V~

— -l
— — —d = — - —-d el - — —— —D = - — el —— - — - D — ) = - - - - —D ) - ) D il el D el ) D il D )
fldflfldfldddflddfldflfldddfl—‘d-‘dddfld-flda—‘ddddddddddd-‘d-fld

SN
W WSS
W WNIW
'u~i\ru~u~ru~w\ruow>o1; agoooo\nmu«mmmu‘vnumbbbbb
WN=O VRNV NN —=OOVONO VS
WA —=O VO NO
W

11
11
11
n

WN NN NININIAD
N—= OO0~

11 5 034752
11
34756
11
11

TTER
MACRO v03.01
ATION CODE

CMPB
BLT
JSR
RMCS1
WRT.R3
SWAB
BIC
MovBe
ADD

1%:
WRT.R1: MOV
WRT.WD: .WORD
WRT.AD: . WORD
MOV
ADD

2(SP) ,WRT.WD
(SP)+,(SP)

(20)0.URT.AD
1
#150,WRT.WD
1%
RO,RD.RM

:NO---COMBINE A168A17, & PSEL WITH

:THE COMMAND BEFORE SENDING IT TO
s THE RH/RM

:FORM THE ADDRESS OF THE DISK REG.
;LOAD THE DESIRED REG.

sWORD TO WRITE GOES HERE
RMADR , = (SP)

#RMCS2, (SP)

+ADDRESS IS FORMED HERE
:PUT THE ADDRESS ON THE STACK
:FORM THE ADDRESS OF

RM(CS?2

—————————————————

" CZRMLAO RM0S5/3/2 FORMATTER
' RH/RM DRIVER
|

|
|

INITIALIZATION CODE

1180 035166

1181 035172
1182 035174
1183 035200
1184 035202
1185 035204
1186 035210
1187 035212
1188 035220
1189 035224
1190 035226
1191 035230
035234

1192
1193
1194
1195
1196
1197
1198
}588

035236
035240
035242
035244
035246
035250
035252
035254

032736

001025
004037
000014
035246
032726
001420
016037
004037
000000
035246
004037
104004

010000

034704
000010

177776
034704

035224
1%:

036202

005726
005327
000003
002341
011000
000401
005720
000200

WRT.R2:
WRT.R3:
WRT.R4:
WRT.RS:

#BIT03,(SP)+
WRT.R4
-2(R0),1%
RO,RD.RM
O
'
RO,ES.SAV

(SP)+
(PC)+
3
WRT.R1
(RO) ,RO
WRT.RS
(RO)+
RO

;CMECK THE

'NED' BIT

:BR IF DRIVE NON-EXiSTENT
;CHECK FOR PARITY ERROR ON WRITE

:BR IF "PAR=0"'
;PICKUP THE INDEX
;READ THE REG.
JREG. INDEX
;RETURN TO THIS ADDRESS ON ERROR
;SAVE THE ADDRESS IN 'SESCAPE’
:REPORT THE PARITY ON WRITE ERROR

:CLEAR OFF THE STACK
;DECREMENT THE ERROR COUNT
JRETRY COUNTER
.
:TRY AGAIN IF NOT FINISHED
;TAKE THE "PARITY ON WRITE'' ERROR EXIT
JEXIT
:ADJUST FCR ERROR FREE EXIT

:CALL
:

MOV

#DPBNUM,R2

030034
000010

SAVREG
TST
BEQ
MOV
MOVB

R2
33
RMADR,
R&
(R2) ,RMCS2(R4)

035336

BEQ
CLR

6%
3%

BNE
BIT
BNE
CLR

P Y
:BR IF NOT
#B1T07 ,RMCS2(R4)
:"OR" SET ?
2%
:BR IF SET
(R3)+
;STORE RMDB AS ZEROES

;

1207 035256
1208 035260
1209 035262
1210 035264
1211 035270

104412
005702
001442
013704
111264

1213 035300
1214 035302

001433
005037

1216
1217
1218
1219

035314
035316
035324
035326

1220 035330
035332
035336
035340
035342
035344
1226 035352
1227 035354
1228 035362
1229 035364
1230 035370
}%i} 035372

1221
1222
1223
1224
1225

ST
DEC
.WORD
BGE
MOV
BR
TST
RTS

#BIT12,8(SP)+

WRT.R3
RO,RD.RM

1203
1204

1215 035306

BNE
JSR
RMER1
WRT.R3
BIT
BEQ
MOV
JSR
WORD
WRT.R3
JSR
EMT

;ROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPB+14

1212 035274

———

BIT

SEQ 0116

}%85

}%82

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

016203

023727
001006
032764
001002
005023

000405
004037
000000
035364
012623
023727
001406
062737
000751
004737
104413
000207

SVRH70:

000014

MOV

035336

000022

000200

000010

034704

1%:

2%:
3s:

035336

000046

000002

035336

032174

JSR

&$:

5% :
6$:

CMP

Br
JSR
.WORD
5%
MOV
CMP
BEQ
ADD
BR
JSR
RESREG
RTS

PC,SVRH70

14(R2) ,R3

3%., #RMDB

4%
RO,RD.RM
0

(SP)+,(R3)+
3%, #RMEC2
6%
#2,3%
1%
PC,C17

:DPB POINTER TO R2

:SAVE THE DRIVES REG'S
:SAVE RO - RS
:QUEUE ENTRY FOR THE DRIVE ?
:BR IF NONE
;SELECT DRIVE

:GET THE ERROR TABLE POINTER

:EXIT IF NO ADDRESS
;COUNTER & POINTER

;REACHED THE BUFFER REGISTER ?

: CONTINUE
;READ THE SELECTED REGISTER
;REGISTER INDEX
;ERROR RETURN ADDRESS
;STORE THE REGISTER CONTENTS
sREACHED THE END ?
:BR IF YES
s INCREMENT THE REGISTER INDEX
;CONTINUE READING THE REGISTERS
;PROCESS THE UNCORRECTABLE PARITY ERROR
;RESTORE RO - RS
,
;RETURN

}%gz

:RRUTINE TO SET THE INTERRUPT WITHOUT GETTING A '‘TRE"

1235

:CALL

MOV

#DRVNUM,R1

:DRIVE NUMBER T0 R1

MACRO v03.01

;
;

o—n.a-abgo‘&
s

LW P pr—
Ow-—
OO-‘8°OOOO

Q=
NONO
S=00
OGN
NN
&~

NESPRRE
N

NN NN
VWL
WWNL JNN NN G

OCO0O0O0O0O0O0C 00000

BIS

040000

SWAB
MOVB

000010

BIT
BNE

000001

1$:

2%:

w
w

W
w
»

BR
MOVB
MOV
RTS

.BYTE

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

SEQ@ 0117

PC,SET.IE
RG,=(SP)

RMADR
, R4

R1,RMCS2(R&)
(R&) ,=(SP)

#1114, (5P)

. (SP)
~ #BLT06, (R&)

:SAVE Ré
;PICKUP ADDRESS OF RM( s1
sSELECT DRIVE
sREAD RMCS1

sSET THE ''TRE'' BIT OF THE WORD READ
;ADJUST FOR DATO
SET

.'IE..

#BIT12.RMCS2(R4) ’
;1S "NED''=1?
1%
;YES==CLEAR "‘TRE"’
(SP)+

‘CLEAN OFF THE STACK

;CLEAR ''TRE"'
;RESTORE R4
sRETURN TO CALLER

28
(SP)+,1(R&)
(SP)+.Ré&

0
0
0
0
0
0
0

sDRIVE

:DRIVE

;DRIVE
;sDRIVE
sDRIVE
sDRIVE
sDRIVE
sDRIVE

035456
035460
035462
035464
035466
035470
035472
035474

035540
035560
035600

QINPT:

035620
035640
035660
035700
035720

.WORD

QDRVO

.WORD
.WORD

QDRV1
QDRV2

.WORD

QDRV&

.WORD

QDRV3
QDRVS

QDRV6

QDRV7

;DRIVE

sDRIVE
sDRIVE
:DRIVE
sDRIVE

sDRIVE

sDRIVE
;DRIVE

NOoOWVMSs
LN —O

;QUEUE INPUT POINTERS

QDRVO
QDRV1

.WORD

QDRV&

.WORD
.WORD

QDRVO
QDRV1

.WORD

QDRV&

.WORD

QDRV6

.WORD

QDRV2
QDRV3

QDRVS

TART ADDRESS

"WORD
"WORD

QDRVS
QDRV6
QDRV7

QSTART:
QSTOP:

QDRV2
QDRV3

e b

.WORD
"WORD
.WORD

o
Y
o

S
eD
SO
WWNNINININ
=
OO NNOO

.WORD
.WORD

NN
NN NN

(NN
W

=lelelelelelotNelelel]

QOUTPT:

W
W
W

035540

cCccC<<
<< N

;QUEUE OUTPUT POINTERS

VWAV “l‘\"\fi\fi\fi\fl
guN—flSOD*«.

MOV
MOV

;QUEUE COUNT

i
D i
D
i
D i
D
i
i
i
i

MOV

QCNT:

035504

SET.IE: MOV

030034
000010

000100
010000

JSR
RETURN

636

D i

D A

D S

D i

—

oo
NN
NN
DD
NN NN N NN
NN NN
NN NN NN NN ~N
O OO0
CoCOOOOOO000OOOOD
NN NN NNNNNNOO
O ocoococoo
EEFEESEE
D NN
WN
= OOV NOWV '
AN —=O0V0~N

RH/RM DRIVER INITIALIZATION CODE

N 9
11-APR=80 13:01:23 PAGE 11-22

NOWVMSHWN—O

' CZIRMLAOD RM05/3/2 FORMATTER

TOP ADDRESS & DRIVE

E 1--START D RIVE 2
E 2--START D RIVE 3

E 3--START D RIVE &

E 4=-START D RIVE 5

E 5--START D RIVE 6

START ADDRESS

' CZRMLAO RMOS/3/2 B FORMATTER

RH/RM DRIVER INITIALIZATION CODE

1293 0355

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

035720

.WORD

}%gg osssgz 035740

QDRvV7

}%3?

;DRIVE REQUEST QUEUES

1298 035540
1299 035560

QDRVO:
QDRV1:

130%
1303
1304
1305

QDRvV4:
QDRVS:
QDRV6:
QDRvV7:

1300 035600
1301 035620

}%8?

035640
035660
035700
035720

;STOP DRIVE

.WORD QTERM
QDRV2:
QDRVS:

035740

QTERM=.

.BLkWw
.BLkWw

.BLKkW
.BLKkWw
.BLkWw
.BLkw
.BLKW
.BLKW

:STOP DRIVE

10
10
10
10
10
10

;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES

1310

s CALL

1313 035740
1314 035742
1315 035746
1316 035750
1317 035752
1318 035754
1319 035756
1320 035762
1321 035766
1322 035770
1323 035772
1324 035774
1325 036000
1326 036004
1327 036006
1328 036010
1329 036012

}ggg 036014

104412
012702
005022
005022
005022
005022
012703
012701

012122
005303
001375
012703
012701
012122
005303
001375
104413

JSR

CLROQUE: SAVREG
MOV
CLR
CLR
CLR
CLR
MOV
MOV
1%:
MOV
DEC
BNE
MOV
MOV
2%:
MOV
DEC
BNE
RESREG

035446

090010
035516

000010
035516

000207

RTS

PC,CLRQUE
#QCNT,R2
(R2)+
(R2)+
(R2)+
(R2)+
#8.,R3
#QSTART,R1

(R1)+,(R2)+
R3
1%
#8.,R3
#QSTART,R1
(R1)+,(R2)+
R3
2%

}§§§

;EMPTY THE QUEUE SPECIFIED BY R1

1334
1335

s CALL
:

;g;g

1338 036016
1339 036022
1340 036024
1341 036032
}gzg 036034

105061
006301
016161
006201
000207

035446
035456

EMPTYQ:
035476

6==START DRIVE 7

10
10

}ggg
}g};

SEQ 0118

:SAVE RO = RS
;1JERO THE QUEUE COUN1S
;DRIVES 0 & 1
;DRIVES 2 £ 3
;DRIVES ¢ £ S5
:DRIVES 6 & 7
;MOVE THE STARTING
;ADDRESS OF THE QUEUE INTO

;THE QUEUE INPUT POINTER

:MOVE THE STARTING ADDRESS
;OF THE QUEUE INTO THE
:QUEUE OUTPUT POINTER
;RESTORE RO - RS

MOV

DRVNUM,R1

CLRB
ASL
MOV
ASR
RTS

QCNT(R1)
;CLEAR NUMBER OF ITEMS IN QUEUE
R1
QINPT(R1),Q0UTPT(R1)
;SET OUTPUT QUEUE POINTER=INPUT POINTER
R1
PC

JSR

PC,EMPTYQ

}gzg

:ROUTINE TO PUT A REQUEST

1346
1347
1348
1349

:CALL
:
:
:

MOV
MOV
JSR

#DRVNUM,R1

#OPB,R2
RO,DRVQUE

;:DRIVE NUMBER T0 R!

IN QUEUE

:DRIVE NUMBER

:ADDRESS OF PARAMETER BLOCK
;60 PUT REQUEST IN QUEUE

CZRMLAD RMOS5/3/2 FORMATTER

RH/RM DRIVER INITIALIZATION CODE

MACRO v03.01

1350
}§g1

¢ 10
11-APR=-80 13:01:23 PAGE 11-24

:
:

RETURN]
RE TURN2

1ss§ 036036 122761 000010 035446 DRVQUE: CMPB
1354 036044

1355 036046
1356 036052
1357 036054
1358 036060
1359 036066
1360 036074
1361 036076
1362 036104
1363 036106
}ggg 036110

001421
105261
006301
010271
062761
026161
001003
016161
006201
005720
000200

035446

035456
000002
035456

035456
035520

035516

035456

1%:

2%:

BEQ
INCB
ASL
MOV
ADD
CMP
BNE
MOV
ASR
18T
RTS

#10,QCNT(RY)

SEQ 0119

;RETURN HERE IF QUEUE IS FULL
;RETURN HERE IF REQUEST IS IN QUEUE

;1S QUEUE FULL?

2%
:BR IF YES=TAKE RETURNI
QCNT(R1)
: INCREMENT QUEUE COUNT
R1
R2,3QINPT(R1)
;PUT THIS REQUEST IN QUEUE
#2,QINPT(R1)
;UPDATE THE QUEUE POINTER
QINPT(R1),QSTOP(R1)
:TIME TO RESET THE POINTER
1%
:BR IF NO
QST .T(R1),QINPT(R1)
;YES==RESET PCINTER
R*
(RO)+
;TAKE RETURN 2
RO
:RETURN TO USER

}ggg

sROUTINE TO GET THE ''DPB'' ADDRESS OF NEXT REQUEST IN QUEUE

1368
1369
1370
1371
}%;%

:CALL
:
3
:
:

1374 036112
1375 036114
1376 036120
1377 036122
1378 036124
1379 036130
}gg? 036132

005002
105761
001404
006301
017102
006201
000207

GETREQ:

035446

1%:

035476

2%:

MOV
JSR
RETURN

#DRVNUM,R1
PC,GETREQ

CLR
1518
BEQ
ASL
MOV
ASR
RTS

R2
QCNT(R1)
2%
R1
dQOUTPT(R1),R2
R1
PC

;:DRIVE NUMBER T0 R1
:60 GET THE REQUEST
;R2=""DPB'' ADDRESS OF THE REQUEST
;R2=0 IF NO REQUEST IN QUEUE
;1S THERE ANY REQUEST
;NO

;PICKUP ''DPB'' POINTER FOR THIS DRIVE
;RETURN TO USER

}gg%

;ROUTINE TO ''POP'' THE REQUEST FROM QUEUE

1384
1385
1386

s CALL
:
:

}ggg

1389 036134
1390 036140
1391 036142
1392 036146
1393 036152
1394 036160
1395 036166
1396 036170
1397 036176
}ggg 036200
1401
1402
1403
1404
1405
1406
1407

105361
006301
017102
005071
062761

026161
001003
016161

006201
000207

035446
035476
035476
000002
035476

035476
035520

035516

035476

MOV
JSR

RETURN

POPQUE: DECB
ASL
MOV
CLR
ADD
CMP
BNE
MOV
1%:
ASR
RTS

#DRVNUM, R
PC,POPQUE

IN QUEUE?

:DRIVE NUMBER TO R1
;CALL TO REMOVE REQUEST

:R2=ADDRESS OF DPB REMOVED

QCNT(R1)
;:DECREMENT QUEUE COUNT
R1
¥
SQOUTPT(R1)
,R2 ;GET THE ''DPB'' POINTER
3Q0UTPT(R1)
;REMOVE DPB ADDRESS FROM THE QUEUE
#2,Q0UTPT(R1)
;UPDATE THE QUEUE POINTER
QOUTPT(R1),QSTOP(R1)
:TIME TO RESET THE POINTER?
1%
:NO--BR TO EXIT
QSTART(R1) ,QOUTPT(R1)
:YES=-RESET THE POINTER
R1
PC
:RETURN TO USER

;ROUTINE TO SAVE THE CONTENTS OF 'SESCAPE' WHEN THE DRIVER
:REPORTS AN ERROR DIRECTLY.
3
:CALL
:
JSR
RO,ES.SAV
:
ERROR
N
::THE ERROR CALL
¢
RETURN
:THE RETURN 1S PAST THE ERROR CALL

CIRMLAO RMO5/3/2 FORMATTER

RH/RM DRIVER INITIALIZATION CODE

1408
1409 036%02
16410 036206

012037
013746

1412 036216
16413 036220
}:}g 036224

000000
012637
000200

1411 036212

005037

036216
001176

001176

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

ES.SAV: MOV
Mov
1$:

CLR

.WORD
MOV
RTS

(RO)+,18
SESCAPE,=(SP)
SESCAPE
0
(SP)+ ,SESCAPE
RO

;GET _THE ERROR CALL
;SAVE THE ADDRESS IN 'SESCAPE'
;CLEAR THE ESCAPE RETURN

:THE ERROR CALL IS MOVED MERE
;RESTORE THE ESCAPE ADDRESS
;RETURN

SEQ 0120

CZRMLAO RMO5/3/2 FORMATTER

MACRO v03.01

TELETYPE MESSAGES

% 036226

& 036237
5 036247
6 036270
7 036305
8 036315
9 036335
10 036342
11 036347

12
13
14
15
16
17
18
19

036354
036372
036403
036405
036411
036413
036415
036417

20 036421
21 036423
22 036424
23 036425
24 036426
25 036430
26 036457
27 036500
28 036525
29 036554
30 036574
31 036624
32 036636
33 036672
34 036713
35 036767
36 037004
37 037053
38 037132
39 037211
40 037230
41 037305
&2
43
&,
45
46
47
4«8
49

037331
037356
037373
037406
037426
037452
037505
037537

50 037600
51 037633
52 037656
53 037700
56 037723
55 037753
56 037775
57 040022

040

040
040
040
040
040
122
122
122

200
200
060
040
103

106
124
131
062
040
040

040
040
105
040
040
040
040
040
040
200
200
200
200
200
200
200
11
105
124
200
040
040
040
105
200
200
200

200
200
200
200
124
200
129
105

117

117
116
116
125
1M1
115
115
115

125
104
000
057
000
000
000
000

123
050
050
050
116
123
123
123

123
106
103
126
117
052
122
116

.SBTTL

TELETYPE MESSAGES

UNTON:
NOTRM:
NOTPRS:
NOTSAF:
LODEV:
$RMO2:
S$RMO3:
SRMO5:

ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
LASCIZ

SEQ 0121

106 UNTOFF: .ASCIZ / OFFLINE/

116
117
117
116
123
060
060
060
116
122

040

000

000
116
077
077
077
077
077
123
120
106
106
126
117
117
117
116
116
110

E 10
11-APR-80 13:01:23 PAG E 12

124
104
106
106
104
104
105
122
117
117
105
120
120
120
126
104
101

105
060
061
062
124
126
126
124

124
117
110
105
124
052
105
126

UNSTAT:
MUNIT:
ZERO:
SLASH:
C:
F:
T:
Y:

TWO:
BLNKS&:
BLNKS3:
BLNKS2:
BLNKS1:
ENTADR:
MOFFLN:
MDRNP:
MER11:
MUSDR:
MLODEV:
MSELD:
MMODE:
MFORMT:
MCHECK:
MVERFY:
MSIZE:
MSEC30:
MSEC32:
BADENT:
MADRER:
MSELP:

MSFOR:
MSCHK:
MSQVER:

MSVER:
MFCMPT:
MCCMPT:
MVCMPT:
NUMERR:
STARS:
ADDRIS:
MESG1:

,ASCIZ
L_ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
LASCIZ
LASCIZ
LASCIZ

LASCIZ
.ASCII
.ASCI1
.ASCI1
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
L.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ
LASCII
.ASCI1
LASCII
LASCI1
.ASCIZ
,ASCIZ
,ASCIZ
.ASCIZ

,ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/ ONLINE/
@ NOT AN RM05/3/23
/ NOT PRESENT/
/ UNSAFE/
/ 1S _LOAD DEVICE/
/RMO2/
/RmMQ3/
/RMOS/

<CRLF>/UNIT STATUS:/
<CRLF>/DRIVE: /
/0/
@/ @
/C/
/F/
/17
7Y/

72/
/ /
/ /
7/ /
/ /
/ENTER ADDRESS LIMITS:/<CRLF>
/ ?DRIVE OFFLINE/<CRLF>
/ ?DRIVE NOT PRESENT/<CRLF>
/ ?DRIVE NOT AVAILABLE/<CRLF>
/ 7DRIVE UNSAFE/<CRLF>
/ ?DRIVE IS LOAD DEVICE/<CRLF>
/ SELECTED/
<CRLF>/PROGRAM MODE (F, C 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/<CRLF>
/THAN STARTING ADRS/<CRLF>

<CRLF>/SELECT DATA PATTERN/<CRLF>
7/ (0) ZERO'S /<CRLF>
/7 (1) ONE'S/<CRLF>
/ (2) WORST CASE/<CRLF>
/ENTER (0, 1 OR 2): /
<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, /
<CRLF>/VERIFY COMPLETE, /
/TOTAL ERRORS DETECTED: /
<CRLF>/wesseeewnnnsennns/<(RLF>
/PRESENT ADDRESS 1S: /
/ENTER THE SERIAL NUMBER (MAX. 10 OCTAL DIGITS)/

CIRMLAO RMO5/3/2 FORMATTER

MACRO v03.01

TELETYPE MESSAGES

58 040101
59 040112
60 040164
61 040212
62 040300
63 040354
64 040373
65 0460415
66 0460464
67 040544
68 0606264
69 040704

70 040764
71 061044
72 041124
73 041204
76 0461236
75 041321
76 041404
77 061467
78 041552
79 041622
80 041672
81 041742
82 042012
83 042041
84 042051
85
86 042126
gg 062174

200
200
120
200
200
200
200
200
113
120
120
m

123
117
101
11
012
101
120
123
105
122
122
116

116
126
103
116
m
114
122
105
131
11
11
1M1

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
061
061
116
117
105

m
11
1M
116
116
116
116
116
066
070
066
070
124
116
116

127
120

122
101

111
103

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

SN1:
MESG3:
MESG2:
MESG4:
MHALT:
MSGBLK:

«ASCIZ
.ASCII
«ASCIZ
.ASCII
«ASCIZ
.ASCII
_ASCIZ
.ASCII
«ASCII
ASCIT
ASCIT
«ASCII

<ASCII
+ASCI1
JASCIE
MUTLTY: ASCIZ
MESG5:
.ASCIZ
MESG6:
.ASCIZ
MESG7:
.ASCIZ
MESG8:
.ASCIZ
MESGY9:
.ASCIZ
MESG10: .ASCIZ
MESG11: .ASCIZ
MESG12: .ASCIZ
MESG13: .ASCIZ
MESG14: .ASCIZ
MESG15: .ASCIZ
;MESG16:.ASCIZ
MESGI7: .ASCII
.ASCIZ

.EVEN

<CRLF>/SN ¥ : /
<CRLF>/OVER 126. BAD SECTORS HAVE BEEN DETECTED/<CRLF>
/PACK NOT ACCEPTABLE !/
<CRLF>/INCORRECT MANUFACTURES DEFINED BAD SECTOR INFORMATION/
<CRLF>SLF>/INITIALIZE THE BAD SECTOR FILE (Y OR N) ?/
<CRLF>/ALIGNMENT PACK/
<CRLF>/PROGRAM HALTED !/
<CRLF>/SELECT ONE OF THE FOLLOUING FUNCTIONS/<CRLF>
/KEYIN U.S.R. BAD SECTORS
....cvvvvvvcennnnas «.0/<CRLF>
/PRINT M.F.G. BAD SECTORS....evuuevunnsnnnnrnnn 1/<CRLF>
/PRINT U.S.R. BAD SECTORS......eveunnnesennnnns 2/<CRLF>
/INITIALIZE U.S.R. BAD SECTOR FILE....cccvvuune 3/<CRLF>

/PRINT A SECTOR OF THE LAST TRACK....ocevceuaes 4/<CRLF>
/PRINT THIS MESSAGE....... cecsecssse cecececssss 5/<CRLF>
/ERIY .sevssveoscnses sesessssessscscscse eeees$<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 SeCTOR 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/
<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>

SEQ 0122

o
Al
LM
AM
d
d
o
.
Ll
A
Al
b
Al
Ml
e
Ll
B
Bl
Bl
. Bl
B
B

ASCIZ Q@'HCE' OR 'HCRC' ERROR VERIFYING HEADERSa
ASCIZ QCYLINDER FIELD IN HEADER IS NOT CORRECTa
ASCIZ QWRITE CHECK ERRORA
ASCIZ /ILLEGAL BAD SECTOR, PACK NOT ACCEPTABLE/

EM22:
EM23:
EM24:
EM25:

/UNCORRECTABLE MASSBUS PARITY ERROR/
/SOFTWARE TIMEOUT/
/DRIVE UNSAFE ERROR/
SCONTROLLER/DRIVE ERROR DURING WRITEQ
QCONTROLLER/DRIVE ERROR DURING WRITE CHECKA
QRETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTABLER
@QDATA ERROR DURING WRITE CHECKA
QCONTROLLER/DRIVE ERROR VERIFYING HEADERS®

B, B, Bl

103
1146
111
114

103
106
111
116
116
126
124
116

B, B, Bk, Bk, Bl

110
131
122
114

116
117
122
117
117
105
101
117

«ASCIZ
+ASCIZ
.ASCIZ
_ASCIZ

EM6:
EM7:
EM10:
EM11:

B, B, Bl

ASCIZ
_ASCIZ
ASCIZ
ASCIZ
.ASCIZ
_ASCIZ
ASCIZ
ASCIZ

057
101
111
122

B, B

EMI12:
EM13:
EM14:
EMI15:
EM16:
EM17:
EM20:
EM21:

110
122
122
105

+ASCIZ

047
103
127
m

«ASCIZ

EM4:

043260
043330
043400
043422

EMS:

123

20
21
22
%2

122
124
104
120

104

/UNEXPECTED ATTENTION OCCURRED/
/MASSBUS PARITY ERROR- (MCPE=1)/
/MASSBUS PARITY ERROR (PAR=1)/
/ADDRESS PLUG CHANGE BIT SET/
@RH/RM DIDN'T RESPOND TO ADDRESSINGA
QTRACK/SECTOR FIELD IN HEADER IS INCORRECTd
/DRIVE OFFLINE/
/PERSISTENT DRIVE UNSAFE ERROR/

19 043207

125
123
104
103
103
122
104
103

8 042455
9 062520
10 042572
11 042610
12 042646
13 062711
14 042732
15 042755
16 043021
17 043073
18 043151

101

LASCIZ QRH/RM INTERRUPT OCCURRED (RMAS=0)a

104

115

«ASCIZ
+ASCIZ

101

EM2:
EM3:

7 062621

6 042364

105
123

057 EMI:

110

116
101

ERROR MESSAGES

122

125
115

.SBTTL

SEQ 0123

s e

% 062226

& 042%70
5 042326

610
11-APR-80 13:01:23 PAG E 13

MACRO v03.01

e A

CIRMLAO RMO5/3/2 FORMATTER
ERROR MESSAGES

(IRMLAO RMO5/3/2 FORMATTER
ERROR MESSAGES

MACRO v03.01

1 043472

122

115

& 0463663

104

122

7 044046

122

2 043540
3 043612

5 063746
6 043761
8 044132
9 044210

10
11
12
13
16
15
16

044257
044326
044423
044521
044554
044613
044701

}g 044766
19

104
104

122
122

101

111
111

122
104

110
122

111
040
111

122
104

115
122

1064
111

104
122
122
122
104
040
104

104

115

122
115
115
115
122
040
122

122

105

111
103
127
123
111
040
11

111

H 10
11-APR-B0 13:01:23 PAGE 1 4

DHWI1:

LASCIZ

DM2:
DH3:

.ASCIZ
.ASCIZ

DH6:
DH10:

.ASCIZ
.ASCIZ

DHé:

DHI0A:

DH10B:
DH17:

.ASCIZ
.ASCIZ

.ASCIZ
ASCIZ

DH20:
DH20A:
DH20B:
DH20C:
DH23:
DH24:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII

DW25:

.ASCIZ

.EVEN

.ASCIZ

/RMAS

/DRIVE
/DRIVE

/DRIVE

RMCS1

SEQ 0124

RMER1

RMDS
RMER1
REG ADR DATA

RMER2

RMER2
RMCS1

REG ADR
600D
BAD
/RH ADDRESS/
/DRIVE
ERR_PC RMCS1
RMCS2

RMDA/

RM(CS1 RMERT

RMERZ2/

RMDS

RMER2/

RMER1

/DRIVE
/RMCS1
/RMWC
/RMSN
/DRIVE
7/
/DRIVE

ERR PC CYLINDER TRACK
SECTOR/
RMCS2
RMDS
RMERT
RMER2
RMMR2
RMEC1
RMEC2/
RMBA
RMDA
RMAS
RMLA
RMDB
RMMR1
RMDT/
RMOF
CYLINDER
TRACK/
ERR PC
EXPCTD
RECVED/
MEMORY
DISK/<CR><LF>
ERR PC
CYLNDR
TRACK
SECTOR
DATA
DATA/

RMMR1
RMDT
RMSN
ERR PC CYLINDER TRACK

CYLNDR

TRACK

SECTOR

RMDA

RMCS1/
RMERZ2/

RMEC2

/DRIVE

RMBA

RMD(C

RMAS
RMER!

/RMEC1

/RMDB
/DRIVE

RMW(C

RMDS

RMAS

RMOF
CYLINDER
SECTOR/

RMLA/

TRACK/

CZRMLAO RMOS/3/2 FORMATTER

ERROR MESSAGES

1 045030

MACRO v03.01

110

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

001372

005560

005574

DT1:

.WORD

3 045062

001370

034730

034732

DT3:

.WORD

5 0645114
6 045116

001274
001222

001132

045772

005626

005562

2 065046
& 045076
7 065126

8 045144

9 045162

10 045200

001370

001370
001222

005602

001222

027666
035154

001132

005604

001132

027670

035152
005560

005606

001364

015:
DT4:

DT6:
DI17:

DT10:
DT17:

11 045212
12 065224
13 065244

001222
005560
005562

001132
005570
005564

001364
005572
005566

DT20:

15
16
17
18

065274
045306
045322
065342

001222
001222
005560
005562

001132
001132
005570
005564

045770
001364
005572
005566

DT23:
DT24:

g} 045372

001222

005552

001366

DT25:

14 045264

005610

38 045362 - 005610

005612

001364

ATTN,RM.REG,RM.REG*14 ,RM.3EG+42,RM.REG+12,RM.REG*34 RM.REG*6

.WORD

DDRIVE,RMERRS,RMERRS+J
,RMERRS+4 .ATTN,RMCS]

.WORD

DDRIVE,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+14
,RM.REG+42

.WORD

RM.REG+22,RM.REG+24,RM.REG+26,RM.REG+30,RM.REG+32.DS.CYL.DS.
TRK

.WORD
.WORD

SEQ 0125

RM.REG*+4&,RM.REG+46,RM.REG+2,
RM.REG+4 RM.REG*6,RM.REG*16,RM.REG+20

DRIVE,SERRPC.DS.CYL.DS.TRK,SAVSEC

.WORD
.WORD
.WORD

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,SE
.RBUF
RRPC
+4 .RBUF
DRIVE.SERRPC.DS.CYL.DS.TRK,SAVSEC,SGDDAT,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

DRIVE.FMTDPB+12,DS.TRK.SAVSEC

.WORD

RM.REG*30,RM.REG+52,DS.CYL.DS.
TRK

RM.REG*30,RM.REG+32,DS.CYL.DS.TRK

034

ot
=

o
O

s
-

O
o

e s et it
X

VP
DF20:

x e

000

DF17:

N
s

034

000
140

=
O
SO
OO
oW
>

DF10:

000

DF&:

X
NN
Fl=lelele
el
[ T - <)
>

000

DF3:

000

DF2:

000

-— N~.

000

.WORD

014

000

000
000
014

000

DF25:

o o]ele]
o
@

034

x .

010

044521
004
000001
004

000

DF1:

i O~ NO~
~

005
000004
007
044326
010
044423

000

007
000001
006
000001
006
000001
007
000001
001
000003
007
0464046
007
044132
007
000001
005
000004
005
0464326
. 010
0464423
010
044521
004
000001

o
O

o
~

W
W

—a
—

W
VIV

045514

000001

J 10

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

o
fl

o
&~

o
&~
oy

[=]=]

NN W W WWIN W
NN

NI NI NI NI NI NI NI NI N = b
et e s s s
O 0o ~NOo~ v W= — OOV
NV WN=O0VONO
WV W =0V

1 045402

MACRO v03.01

S =l OO
VONST NS OO OO NSV —yoO

CIRMLAO RMO5/3/2 FORMATTER
ERROR MESSAGES

SEQ 0126

CZRMLAO RMO5/3/2 FORMATTER

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

MACRO v03.01

BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FOR RH/RM

SEQ 0127

;

.SBTTL

sTHIS ROUTINE IS USED TO INSURE THE BUS ADDRESS

sOF

sREQUIRED.
sNOTE: THIS ROUTINE DESTROYS RO=R&

sCALL

19 045544

THE RH/RM 1S SETUP FOR THE PROPER ADDRESS.

51T WILL ALSO READ THE ADDRESS FROM THE TTY IF

6
7

13 045516
14 045522
15 045524
16 045530
17 045534
18 045540

BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FOR RH/RM

005737
001436
005037
104401
012700
104401

011046

20 045546
21 045550
22 045554
23 045556
24 045560
25 045564
26 045566
27 045572
28 045576
29 045600
30 045602
31 045606
32 045610
33 045612
34 045616
35 045620
36 045624
37 045630
38 045632
28 045634

104402
104401
104411
012601
004537
000763
012700
104401
011046
104402
104401
104411
012601
004537
000763
012700
012701
012021
012021
000207

41 045636
2% 045645

122
122

001376
001376
001205
001274
045636

RETURN

JSR

PC,BUSADR

BUSADR:

TST
BEQ
CLR
TYPE
MOV
TYPE

CHGADR
3%
CHGADR
LSCRLF
#SRMADR,RO
,MRMCS1

1%:

MOV

(SP)+,R1
RS.,CK.NUM
2%
#SRMADR,RO
#RMADR ,R1
(RO)+,(R1)+
(RO)+,(R1)+
PC

MRMCS1:
MRMVEC:

.ASCIZ
.ASCIZ

QRMCS1=3
QRMVEC=d

LSBTTL

CK.NUM - CHECK NUMBER (OCTAL)

045654
2%:

036425

045654
001274
030034

3%:

115
115

103
126

4!,

sPRESENT RMCS1

TYPOC
TYPE
RDLIN
MOV
JSR
BR
MOV
TYPE
MOV
TYPOC
TYPE
RDLIN
MOV
JSR
BR
MOV
MOV
MOV
MOV
RTS

036425

001276
045645

(RO) ,=(SP)

sINPUT FROM TTY REQUESTED?
sNO
sDISABLE CHANGE OF RH/RM ADDRESS
;CR=LF
JFIRST ADDRESS
:"'RMCS1=""

,BLNKS?2
(SP)+,R1
RS,CK.NUM
1%
#SRMVEC RO
+MRMVEC
(RO) ,=(SP)
,BLNKS2

ADDRESS

:TYPE 1T
sTYPE 2 SPACES
* ;GET THE ENTRY
sADDRESS OF ASCII TEXT
;ENTER AND STORE NEW ADDRESS
:ERROR RET
sCHECK VERC
:"'RMVEC=""
JPRESENT RH/RM VECTOR ADDRESS ON THE STACK
:TYPE IT
sTYPE 2 SPACES
JREAD THE ENTRY
JASCII TEXT ADDRESS
JENTER AND STORE NEW ADDRESS
:ERROR RET
sFIRST ADDRESS OF NEW PARAMETERS
sFIRST ADDRESS OF WHERE TO PUT THEM
;BUS ADDRESS
;VECTOR ADDRESS
:RETURN

sTHIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS

48
49
50

sCALL:
F
3
3

:220 FORMS AN OCTAL NUMBER IN R2

51
52
53

56 045654
57 045656

:
2

010246
010346

MOV
#ADR,R1
sADDRESS OF
RO=ADDRESS TO STORE THE NUMBER
JSR
RS,CK.NUM

RETI
RET2

CK.NUM: MOV
MOV

ASCIZ STRING

ERROR RETURN
NORMAL RET

R2,-(SP)
R3,=(SP)

;SAVE R2

:SAVE R3

" CZRMLAO RMOS/3/2 FORMATTER

- CK.NUM = CHECK NUMBER (OCTAL)

58 045660

MACRO v03.01

MOV
MOV

000006
Ot O e
s s O et
QOO ONONO -

L1 0

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

1%:

R4 ,=(SP)

#6,R3
R2
(R1)+,R4

000060

R4, #'0

000067

SEQ 0128

;SAVE R4

sMAX OCTAL DIGITS IN THE NUMBER
sFINAL OCTAL VALUE

;:GET CURRENT POINTED BYTE
:BR IF TERMINATOR DETECTED
sSMALLER THAN ASCII=0 ?
sYES,ERROR EXIT
;LARGER THAN ASCII=7 ?

sYES,ERROR EXIT

TSHIFT LEFT

:ONE

*OCTAL DIGIT

177770
76
77
78
79

045734
045736
045740
045742

oo
o

045744
81 045746
82 045750
83 045752
84 045754
85 045756
86 045760
87 045762
88

#177770,R4
R4 ,R2
R3

1%
(R1)+,R4

2%:

3%:

R2
4%
R2, (RO)

(RS)+

4%:

5%:

000205

(SP)+,R4

RTS

(SP)+.R3
(SP)+ .R2
RS

+ERROR IF CARRY BIT SET
sCHOP OFF HIGHER BITS
sAPPENDING CURRENT

DIGIT

sDECREMENT BYTE COUNT
:BR IF LAST DIGIT
;LOOPING BACK
;CHECK TERMINATOR
:BR IF NOT FOUND
;FINAL VALUE = 0 ?
YES

*REPLACE THE ORIGINAL VALUE
*ADJUST FOR NORMAL RET
JRESTORE &

sRESTORE R3
JRESTORE RZ2
JEXIT

CIRMLAO RMO5/3/2 FORMATTER

READ/WRITE ‘BUFFERS

M 10
MACRO v03.01 11-APR-B0 13:01:23 PAGE 18

%
5 045764

.SBTTL

READ/WRITE BUFFERS

RBUF:

.WORD

SEQ 0129

;BUFFER STARTS HERE
000000

9045774
3106174
}?
000200

000000

BUFP:
BUFV:
.END

.BLKW
.BLKW
200

0,0,0,0

<258.+32.>
<258.+#32.>

;BUFFER FOR HEADER CHECK
;FORMAT AND CHECK BUFFER STARTS HERE AND

sWILL OVERLAY ALL REMAINING CODE IN PROGRAM
;BUFFER FOR VERIFY ONLY MODE

N 10

CZRMLAO_RMO5/3/2 FORMATTER

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

| SYMBOL TABLE

| ABASE = 176700

' ACDWT

= 000000

| ACDW2 = 000000
ACK
=
ACPUOP=
ACTORY
| ACTSTR

ADDRIS
ADDWO =
ADDW1 =
ADDW10=
ADDW11=
ADDW12=

000123
000000
027752
027753
037775
000000
000000
000000
000000
000000

ADDW13= 000000

ATO
AT1

AT2

AT3
ATé
ATS
ATé

= 000001

= 000002

= 000004

=
=
=
=
AT7
=
AUNIT =
AUSWR =
AVECT1=
AVECT2=
Al6
=

000010
000020
000040
000100

036411

DISPRE

000174

EMI6

043021

042755

037211
001414
002420

CKTRK
CK.CHR
CK.DEC

015006
023410
023362

DRVQUE
DRVSTA
DRVIYP

036036
027706
027716

EM6
EM7
ENDCYL

001330
006776
007020
001334
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400

CK.NUM
CK.OCT
CLOCK
CLR
=
CLRQUE
CNTLC
(R
=
CRLF
=
C.ENTR
DK
=
DDISP =
DDRIVE
DEVMP
DF1_

045654
023334
020250
000040
035740
001374
000015
000200
020262
100000
177570
001370
001402
045402

DSWR =
DS.CYL
DS.TRK
DTE
=
DTSY
=
DTUW
DTO0
=
DTO1
=
DT02
=
DT03
=
DT04
=
DT0S
=
DT06 =
DT07
=

177570
001364
001366
010000
000200
030020
000001
000002
000004
000010
000020
.
000040
000100
000200

ENTADR
ERINDX
ERR
=
ERROR =
ERRVEC=
ES.SAV
;
FER
=
FMT
=
FMTDPB
FMTX
FMT16 =
FUNCT1
FUNCT2

036430
017204
040000
104000
000004
036202
036413
000020
010000
005540
005630
010000
021714
022116

DF17
DF2
DF20

045442
045406
045446

DT
DTI0
DT17

045030
045126
045200

FUNCT4
FUNCTS
FUNCT6

022502
022612
022710

045472
045512
045412
045416
Du3422
043472
043761
044046
044132
044210
043540
044257
044326
044&?3
044521
044554
044613

DT20
D123
D124
D125
DT3"
DT4
DT6
DT7
DULP
DVA
=
ECH
=
ECI_
=
EDIT
EMPTYQ
EMTVEC=
EM1
EMI0

045212
045274
045304
045372
045062
045076
045114
045116
030266
004000
000100
004000
001406
036016
000030
042226
042572

FUNCT8
F1
=
F2
=
F3
=
4
=
FS
=
GETREG=
GETREQ
60
=
GTSWR =
HCE
=
HCI
=
HCRC
=
HDREAD
HEADX
HEDERR
HSET

023122
000002
000004
000010
000020
000040
000141
036112
000001
104406
000200
002000
000400
015550
001410
001356
015450

D3~
DH&

043612
043663

EMI2
EMI3

042646
042711

IAE
IE

A17

= 001000

BAI

= 000010

81709 = 001000

BIT12 = 010000

000000
000000
000000
000000
000000
000000
000000
000000
001000
000000
000000
000040
000001
000200
000100
000000
100000

BIT13 =
BIT14 =
BIT1S =
BIT2"
=
BIT3 =
BIT:¢
=
BITS
=
BIT6
=
BIT7 =
BIT8
=
BIT9 =
BLNKS1
BLNKS2
BLNKS3
BLNKSe
BPTVEC=
BSE_
=

020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
036426
036425
036404
036423
000014
100000

ATESTN= 000000
ATIN
001372

BUFV
BUSADR

106174
045516

BUFP

042732

EMIS

000000
000400

000200
000000
000000
000254

BIT1
= 000002
BIT10 = 002000
BITI1 = 0046000

030022

EMI4

001156

EMI7
EM2
EM0
EM21

AMADR%= 000000
AMAMS1= 000000
AMAMS2= 000000

ATABIT

043746

DISPLA

100000
000001
017006
027726
000400
027736
001222
004000
027676
000111

BEGCYL
BEGIN_
BEGIN2
BEGTRK
BITO
=
BITOO =
BIT01 =
BIT02 =
BITO3 =
BIT04 =
BITOS =
81706 =
BI1T07 =
BIT08 =

AMAMSL=
AMSGAD=
AMSGLG=
AMSGTY=
AMTYPT=
AMTYP2=
AMTYP3AMTYP4=
AGE
=
APASS =
APRIOR=
APTCSU=
APTENV=
APTS1Z=
APTSPO=
ASWREG=
ATA
=

DH6

006432

oLT
=
DMD
=
DONE_
DPINT
DPR
=
DPRQS
DRIVE =
DR
=
DRVACT
DRVCLR=

ADDW& = 000000
ADDWS = 000000
ADDW6 = 000000
ADDW7 = 000000
ADDW8 = 000000
ADDW9 = 000000
ADEVCT= 000000
ADEVM = 000000
ADRTBL 006132
AENV
= 000000
AENVM = 000000
AFATAL= 000000
AMADRT= 000000
AMADR2= 000000

AMAAS3= 000000

006332

BYTE18

013322
001376
031352
031460
031560
032136
032160
032174
032216
032274

BADENT
BAD16
BAD18

AMADR3= 000000

BYTE16
CALIN
CHGADR
(11
(I3
€14
€IS
(16
€17
(178
(18

ADDW14= 000000
ADDW15= 000000
ADDW2 = 000000

ADDW3 = 000000

SEQ 0130

045774

CKSWR = 104407

(K.DIG

DF10

DF23

DHIS

023462

045426

045466

044766

DRVINT

030264

DRY

= 000200

DTO8

= 000400

045046

EMIT

042610

043073
042270
043151
043207

EM22
EM23
M.
EMIS

EM3~
EMe

042326
042364

EMS

042421

042455
042520
001326

ENDTRK

FUNCT3

FUNCT?

043260
043330
043400
043422

001332

022414

023014

= 000011

= 002000
= 000100

MSELD
oseg 4
MSELP
037331
MSFOR
osrasg
MSGBLK 04041
MS1ZE
osroga
MSQVER 037537
MSTCK = 000010
MSVER
037600
MUNIT
036372
MUSDR
036554
MUTLTY 041204
MVCMPT 037700
MVERFY 036767

MCPE

MXWNDW

MADRER
MAXSEC
MCCMPT
MCHECK
MCLK
=

037230
001362
037656
036713
000002

MuC
MR
=
MXDLTA
MXF
=
MXLACT

001354
000040
030044
001000
030042

MCPEMX
MDRNP
MER11
MESG1
MESGI0
MESG11

030032
036500
036525
040022
041622
041672

MO
M1
M1A
M1B
F)
M4

MESG13

042012

MESGIS

042051

MESG2
MESG3

040212
040112

MESGS

0461236

= 020000

MESG12 041742

MESG14

0462041

MESG17

042126

MESG4

MESGH

MESG7

MESGE
MESGY9

=
MFCMPT
MFORMT
MHALT
MINX =

MLODEV
MMODE
MNDLTA
MODE
MOFFLN
' MOM
=
MO
=
'MPE

' MRD

' MRMCS1

| MRMVEC

| MSCHK

| MSEC30

| MSEC32

045645

037505

037053
037132

RMLA

= 000020

SRCHWT

027750

QDRVO
aDbRv1
@bRv2
aDRV3
QDRV4
QDRVS

035540
035560
035600
035620
035640
035660

RMMR1
RMMR2
RMOF
RMR
RMSN
RMTMR

=
=
=
=
=

012146

aDRv7?

035720

RMWC

= 000002

S$T0

034362

NBA

= 100000

QOUTPT

RMOS

030622

$ST02

034512

NEM
NEXT

= 004000
005536

asTOP
035520
QTERM = 035740

RTC
R6

STOS
ST06

034566
034574

036247

RDCHR = 104410

SAVEFG

STO8

034662

ST.CLK

020016

M4LA

MSFX

NED

012026

010466

= 010000
036270

NOTRM

NUMERR

OFDIR =
OFFSET=
OP1
=
OPT
OR
=
0.ENTR
PACK
PAR
=
PARENT
PART
PAR2
PARS
PARG
PARS
PARG

PAR?
PAR8

PAT

PATA

PATB
PATSEL

030050

QCNT

035446

QDRVé

035700

QINPT

035456

035476

QSTART

035516

RBUF

045764

RMVEC

RM.REG

RNOP

104411
000200
034730
034704
034726
035052
035056
035062
034732
000121
000107
020570
017134
017162
017112

SAVWC
SC
SCAWC
SCOPE
$C01
$C02
$C04
sC10
SC11
$C12
SC13
$C20
SC3
5C4
$C5

RESET

021416

SC6A

RESTRT

020160

06101

= 000020

001340
001342
001336

RELSE = 000113

RESREG= 104413
RESVEC= 000010
RETBAD 012230

= 000101

= 000117
=1000006

STO1

027774

SAVSEC

5C6

SC7

S$C8

001346

=
=
=
=

001350
033122
017530
000004
000100
000200
000400
001000
033754
034064
034134
002000
033172
033176
033210

001322
040101
001316
014116
020710
001100
037753
007014
020074
020144
020150

177774

034416

STO3

ST09

RDLIN =
RDY
=
RD.ADR
RD.RM
RD.RM1
RD.kM2
RD.RM3
RD.RM&
RD.WRD
READIN=
RECAL =
RECORD
REJCT2
REJCTS
REJECT

106070

005560

STKLMT=

SAVREG= 104412

000001
000115
020000
031114
000200
020302
001404
000010
020454
005776
006011
006024
006035
006046
006057

= 000173

030036

STACK =
STARS
START
STCLK1
STCLK2
STCLK3

ST07

RDDAT = 000171

RDHD

000024
000040
000032
000004
000030
034272

SNGSEC
SN1
SOFSW
SORT1
SORT2

=%000007

036305

037723

027666
000014
000042
000036
030052

001360
000105
027776
000145
013462
o1274g
00014
017556
017352
010126
035374
040000
036405

011342
010776
011132
011306
011720
012000

NOTSAF

045636

=
=
=
=
=
=
=
=
=
=
=

SEC30
SEEK =
SEEKFG
SELDRV=
SELPAT
SERNL
SETFMT=
SETHDR
SETTBL
SETVEC
SET.IE
SK1
=
SLASH

RMERRS
RMER1 =
RMER2 =
RMHR =
RMINIT

041321

= 000020

001344
030034
000016
000004
000000
000010
000006
000022
000034
000012
000026
000044
000046

000340
177776
002000
177776
000024

NOTPRS

041467
041552
100000
037633
036672
040373
000004
036574
036636
030046
001320
036457
020000
010000
000400

RETRY
RMADR
RMAS
RMBA
RMCS1
RMCS2
RMDA
RMDB
RMDC
RMDS
RMDT
RMEC1
RMEC2

PR7
=
PS
=
PSEL =
PSW
=
PWRVEC=

040354

0461404

PGE
= 002000
PGM
= 001000
PIP
= o;oooo
PIRQ = 177772
PIRQVE= 000240
POPQUE 0361
34
PRO
= 000000
PR1
= 000040
PR2
= 000100
PR3
= 000140
PRG
= 000200
PRS
= 000240
PR6
= 000300

034542

034632

034672

ST1
SVRH70
SWR
SWREG
sW0
=
SW00 =
sW0l
=
SW02 =
Sw03 =
SW0&
=
SW0S
=
sW06 =
sWw0? =
SW08 =
sW09
=

013462
035256
001154
000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

033404

sWwl

= 000002

033646

sWil

= 004000

033520

033724

SEARCH= 000131
SECCU
005434

SW10

sWwi2

SW13
SWid

MMMMmMmmmmmMm M mMmen

ILF
= 000001
ILR
= 000002
INSERT 02160
10TVEC= 00002
IR
= 000100
ISR
032706
LA
032532
LACNT
027764
LF
= 000012
LODEV
036315
LOP.CK 017304
LST
= 002000
LSTRK
001324

SEQ 0131

NOYOYO
YO YA
aIMmmmm

SYMBOL TABLE

. MNCYCYCYCYOYCYNOYCY M

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

MMM

CZRMLAO RM0O5/3/2 FORMATTER

e ————————————

= 002000

= 010000

= 020000
= 040000

lelelel]

TABLE4
TAB.XY=
TAP
=
TBITVE=
)
TEXT
TIMER

005752
001114
040000
000014
032752
021050
030000

005726

TKVEC = 000060
TPVEC = 000064

TRAPVE=
34
TRE
= 040000

TRKTST
017426
TRK1
=
000
TRK10 = 040000

TRK2 =
TRK20 =
TRK&
=
TRNSWT
TRTVEC=
ST
WO
TYPADR
TYPDS =
TYPE
=
TYPERR
TYPOC =
TYPON =
TYPOS =

UF
=
ULDFLG
UNS
=
UNSTAT
UNTOFF
UNTON
UPDCYL

010009
100000
020000
027746
000014
007020
036421
020354
104405

104401
024054
104402
104404
104403

036417

040000
027754
040000
036354
036226
036237
017644

146374
000000
| ERRORS DETECTED:

$BASE

001264

. ABS.

| VIRTUAL MEMORY USED:

45296 WORDS

(

177 PAGES)

$MSGLG

$MSGTY
$MSWR
SMTYP1
SMTYP?2
SMTYP3
SMTYPSG
SNULL
SNWTST=
SOCNT
$OMODE
$PASS
$PASTM
$POWER
$PWRAD
$PWRDN
$PWRMG
$PWRUP
$QUES
$SRDCHR
$RDLIN
$RDSZ =
SRESRE
$RMADR
$SRMVEC
$RMO2

$RM03
$RMOS

NS SFNNOONIWO
N
H NNNSOSFR OO

012614

SLF
SLFLG
$LKCSB
SLKCSR
$LKS
SLLVEC
SLPADR
SLPERR
SLPVEC
$MADR1
$SMADR?2
$MADR3
$SMADRS
SMAIL
$MAMS1
$SMAMS2
SMAMS
3
$SMAMS
4
$MBADR
SMFLG
SMNEW
$MSGAD

012532

005650
005702

TABLES

wC
001352
WwCE
= 040000
WwCF
= 000040
wCkD
= 000151
WCKHD = 000153
WCTBL
006232
WLE
= 004000
WRAP
001400
WRL
= 004000
WRTDAT= 000161
WRTHD = 000163
WRTRK
013622
WRTRKA
014320
WRTRKB
014436
WRTRKC
014522
WRTRKD
014604
WRTRKE
014652
WRTRKF
014566
WRTRKH
014616
WRTRKX 013676
WRTRKY
013744
WRTRKZ
015536
WRTRK1
014270
WRTRK2 014666
WRT.AD
035154
WRT.RM 035064
WRT.R1
035150
WRT.R2 035242
WRT.R3 035246
WRT.R&
035252
WRT.RS
035254
WRT.WD
035152
XSIZE
010422
XXDP
001412

036415
006120

TABLE_
TABLEZ2

017756
020000
0044390
003424
000001
000002
(00004
000100

NS S VOSSNSO ONO O NOOOWVM— W=

TABLD

UPDTRK
UPE
=
USSAV
USTAB
us1
=
us2
=
Usé¢
=
Vv
=

OO —==NOOO =N NNNN= = \NNO = =d e b b NNt b d AN ot e d e e e e e e e e e e e e e wh A S S
NN
NOWES N = = O =N = MNOWNWNO — N PN
OMNININO = = NININLNLNI
NI NONIND N = = LN NN — N
BB NNNS == NOOPNNOO
= NNO WVMBS O—=NN—=O0OO0OWVWVS SN =S HPONN
= 2w O0O000

TABINT

1000
000004
000010
000020
000040
000100
000200
000400
001000

SEQ 0132
b ed
gl =l elelelelel=l=lelelelrlcleclelelelelelelelelelelelalelaleT=] COO0O0O0O0OOOOO0OOOO
NN CONONNNNONININININOONINOOOlelele Nlelele N Velelelelelelelelelelalelelealalalal
N

1
TABCAL

=
=
=
=
=
=
=
=
=

O=fO0OMMNOST =N NNSFOCOONO—=NON—=OONONOCONNOWVO
S =y—=0O N S NNOoOoONO

swi5
SW
Sw
Swsé
SWwS
. SWwé
SWw7?
Sw8
sw9

ctn

11-APR=80 13:07:23 PAGE 18-3

SYMBOL TABL

MACRO v03.01

OONOOON—=000O0ONOO
OO0OONOO—=—=00—==N—0O ONNNNOONNININOOONINOOODO
— s S s i
O O et e s s \ J) el ot el i o N
W=
OO = = OO N~ — —
N — 2 O
O OO —2 O S~ — —s
s s
— e el e i () e N i i e e e (N ND N\ e s \ Y
ON =t s YNNI NI NIVO NN S NNV N O NO O = OO0 NININ) = WU NNOOWON
S INNNO = NW NN N WPIN =N
NN NS OO NN = NOWNO O OO =
N~~O &

CIRMLAO RMO 2/3/2 FORMATTER

$SRTNAD
$SAVRE
$SAVR6
$5820
$SETUP=
$STUP =
$SUPRS

$SVPC
$SWR
$SWREG
$STESTN
$TKB
$TKCNT
$TKINT
$TKQEN=
$TKQIN
$TKQOU
$TKQSR
$TKS
$TKSRY
$TMPO
$IN
=
$TNPWR
$TPB
$TPFLG
$TPS
$TRAP
$TRAP?2
=
$TRP
$TRPAD
$TSTM
$TSTNM
$TTYIN
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM

$SUSWR

SVECT]
SVECT?2
$XOFF =
$XON
=
$SGET4=
SOFILL
= 001100
M

" DYNAMIC MEMORY AVAILABLE FOR 69 PAGES

D 1N

SEQ 0133

CZRMLAO RMO5/3/2 FORMATTER

SYMBOL TABLE

MACRO v03.01

EN
11-APR-B0 13:01:23 PAGE 18-4

CZRMLA.BIC,CZRMLA/C=CZRMLA.DOC,CZRMLA,SYSMAC/M

SEQ 0134

" CZRMLAO RM05/3/2 FORMATTER

. CROSS REFERENCE TABLE (CREF v01-05 )
$SGE T4

CSOFILL
$4OCAT
SAPTHD
SASTAT
SATY]
$SATY3

MACRO v03.01

11-APR-80

80 13:01:23 Pact
13:01:

10258+

10=758+

8-60
8-74

8-141

9-148

9-217

10-570

10->86

8-163

10-262
9-219

10-262

10-762

10=754+

10=7564»

10-254+

5=0n
8-14

5-0n
8-14

SEQ 0135

| SATYS

SATYC
$AUTOB

$BASE
$BDADR
$BDDAT
$BELL

$COWY
$COW2
S$CHARC
$CKSWR
$CM3
SCMG
SCMTAG
SCNTLC
S$CNTLG
S$CNTLU
$CPUOP
$CRLF

10-762#

WO
[(WEVe
IV o

O?m

—

—ro
S
O~

oc.:»on

—

8-139
10-925
10-204

10-260#

8-149

10-568
10-260#
10-568#

8-15
8-14
8-208

10->86
10-2754
10-457

10-568#
10->86

10-754

10->86#
10->86
10-201

8-283+
8=14»
10->86

10-568#

10->86

10->86+

15-6

10-568+

10->86
10-261+
11-868

10->86+
10=-294+
11-;32

11-817

10-754

10-256+
10-254

10-754

5=0#

10-756+
10-2564
10-754

10-256

10->86+

8-14+

| SFFLG
CSFILLC
$FILLS

8-91

10-864
10->86

SETABL
{ SETEND
| SFATAL

10-762

10-762#4

SENVM
$EOP
SEOPCT
SERFLG
SERMAX
$ERROR
SERRPC
SERRTB
SERTTL
SESCAP

8-14

10-762

SENV

10-262

oo
)

SDEVM
$DOAGN
$DTBL
$ENDAD
SENDCT

10-275

——

$DB2D
$DBLK
S$DECVL
$DEVCT

8=7r

10-756+

10-568+
11=>13¢

10-653+

10->86

CIRMLAO RMO5/3/2 FORMATTER

- CROSS REFERENCE TABLE

$GDADR
$GDDAT
$GET42
$GTSWR

5-0#
10-568#
10-262#

SHIBTS
| $1CNT
- SILLUP
SINTAG
SITEMB
$LF
SLFLG
SLKCSB

&-286#
5=0#
10-764
5-0#
S5-0#
S=0#
10=256#
6-0#

$LKS
SLLVEC

6=0#
6-0#

$HD

SLKCSR

$SLPADR
SLPERR

5=-0n

4&=72

6-0#

S=0n
S5=0#

(CREF

MACRO v03.01

v01-05

10->86*

15-16

10-275

10-764
10=7262
10->86

10-764#
10-?62
10->86

4=72

10->86

10-756+
10=779«

10->86

10-762

10-754

10=762

10=267*

10-408+*

10-651

10->86

4-286

5-0#

8-9

8-14

8-15

10->86
!

10-75¢4

10-756#
10-762#
10-756
10=-256+
10-256
10-?62#

10-256+¢

10-?56+

10-?56+
10-?56

10-756*

10-756¢

10-?54

10-754

10-?58¢
10-?58+

10-?58+

10-258+

10-258¢

10-568+

10-568+«

10-589+

8-298

8-391

10->86

10=254

SPOWER

10-764

10-765#

SPWRDN

8-14

10-764

' SPWRUP

10-764

10-2644
8-228

8-255

| SRDCHR

10-262#

10-275

'SRDLIN

10-262#

10-?75

10-275

10-?62

10-?564

10=240*

10-758+
10-?58#

$RDOCT

10=762¢
10->96

9=40»

10-775

8-14+

SEQ 0136

10-789+

10-758#
10-2?58

5-0#

10-762
10->B6+*

10-780+«

10-784
10-785

SOCNT
SOMODE

| SQUES

10=762
10->86

10-774

6-0#
5-0#
5-0#
5-0#
5-0#
(=286
5-0#
5-0#
5-0#
5-0#
4-286#
10-756
10-762
5-0#
5-0#
5-0#
10-762
S5-0#
5-0#
5-0#
S5-0#
S=0#

5=-0#

4=72

SLPVEC
SMADR1
SMADR2
SMADR3
SMADRG
SMAIL
SMAMS1
SMAMS?
SMAMS3
SMAMSL
SMBADR
SMFLG
SMNEW
SMSGAD
SMSGLG
SMSGTY
SMSWR
SMTYP1
SMTYP2
SMTYPS
SMTYPL
SNULL

$PASS

)

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

10-568

10-?56+

10-568+

10-764#

10=254

10=262

10262

10=262

10-262

$RNS?

10=262

10-762#

H 1

SEQ 0137

YOOFAN=83oONOVNo0O0ONRoOIOLBI]3o0NOW00[VoPOOoPOROOI¢[0 L\OORl[0RFOACTISTOo=b ).PVC0NO0VAOM00RVOOowNODIToWROI0SoOOORB-oDWCOLOL1SyOORVO=UOL=NnO0OIO=]0IO0&RS T0OVIoNO\0O«CTOIoVOOOo0IO*TA0®oIOTPSR1VO0o0aSTITVIOOO"1 "MNILOADNNVOORV—0OOT)LOOTM)ANRUVOLNO00MOOO00IO00N0SR= aDi)VOWO R"U0LORN0II0VE
DSl go[g==uL00"—aclS"oggalo"Sg0gaOl’oPa[P[) =~>= L"NL)o\MO o~ oo —V—d)U |U 1]v[V-O-] O[1L=VNoOo-)1|[=]L-- Y ON S-oM—"I""—|O\\O A~£O34iaiU~deU""Lb~-= ~N i
Bo=e[V—gnlL1]3Y=]0Vgo]l—=oUgeall—VePIW][V oa0\L\a~~o— ~(o--—d=-=BU |I |" N] ~o——H|N ew-"Ll—\]o .bRn41l oeWL— --IL——)\O
o1c0o1C0o Lo oo )U oUL oU

IgAo~uTnNMWRANONgGlnNgVAngiOAnVWOognPA=dC|NO:@-CVOeNOOOg£gLo~PMNooaogOlhgegOAnnvNaggoilEgMgoueODOvsOao[—N(PToOoL"lVUIe[eagNT"-AlaY"g7—ua0nYGlN"JoOa")a-elONoBT=-AN—OM2ooJo]"O1[.\(OC~o(a[¥Nc1~GOGoog-VA—ENu)—O_LMeO—gNNeo&LG1Wg0_Oe—DV-oI2T—[NOoNeogOSd—Oe0CIVm[SgN=ONIGoSogTTPug~.e1TSON0o—-[=oOMA0gNO3OaooL0=[LO)O0VWTONandLkN~~MA-O3eoNod—=VN||aoOOU0I-LE~~oNN-FF~3T-Val—yONtMoTYON&—dLOWAe_oN-Rd1—][LOw—=T0MaTl[
[S)"oaTlNNv(oalTTvNNXVLalNvNal ~~2]NN[O=L~o ~N OSNA(oNA-—

e>TAaU—oEd-a"h—R>NaordNdoLmB—la>eOd>o0~lo-4e—WR>oN—Rl0d~~esVWToD—[>dYaVa0L—o2ARdW"o>ilfa—05O>IdDab~VfVoOoosA-RltN—cFNefoode|coVBel=3aIooggVBl—.o[[a)w[aooe—ANOOe[SSS—ABSl"l"IgoV3va=a0vNT1ollYAiVaG])O"v"TVeoRlNnaW—a[o'Sll"ltnNONNVva""OoP-AepeylaaR0vl¥lEamvao—"’olgAx—[[[VLOClenaoGadoTl"NC[})NaOooyGYx~ultaRwoeO4g2EdnonA4OgS2dEJnao0R0gdu<n-0L-3O@aoO3—@ooORPod=|w~o2Gw[o~aMMN2)~~eWMeN-l}]Na]OoNJ¥neooOV((o[eeNo~WYV(]~xyaRewMyXOayYoYOnFl¥1Y[v1]owN->gea—y=e~eiPb~oO~0Ogoo-NGNOERetBloNul)lNN©e—mV.UlN-=DeegVWlVtNOrogWNgDeeMYAul|eE—X—Oo[Negweou-)OIo2MmCNwe-O.xOOVoRSOiMCMWDe0W~CIOIeES-gxoN=oNlNO~eRL~LbNo-eVMO»olNXl-NlbS0IloEOO-TNV&eO(NelWPYWVeeWA>gdllueL(aOo—eO]3AOSMoWNAoAA]el<@-0[lla]LAOO~VN]~a%>D—M.olPX7ADao.x>7w-NbX-Av—oN~~0N~No0W3OO&aN~e[NNN,d.—odNo[OO|O@—BNAN—NN-Teee0u—y-~<~3NN~VSaEWOSBo——N—wN=4eOXWAESoOVMWWDxdZL~~O-ooAEX—loZA-ODEwOeWVOo&WUEreDLA~N2y-B—lVg—R<MNgW—ZORgaV‘owe=@d0|
Ie

(CREF

MACRO v03.01
v01-05 )

I 11
11-APR =80 13:01:23 PAGE S-3

nEd = =g

CROSS REFERENCE TABLE

CZRMLAO RMO5/3/2 FORMATTER
SEQ 0138

$1YPOS

10-258#

10-?75

J 1N

SEQ 0139

6-0

5=0#
5=-0n
5=0#

8-68

V<O

o
-4
=4 D
wocC

5-0#

&=286#

=200

elelelelelelelelelolalelelelelelalal
Slole)

m\»\nmmmmuwm\.flmmmmwmwo\nm

OOOOOOO% (=lelelelelelelelelelelelelelelelele]

i
(=lelelelelelelele] o

| AMTYP4

SEQ 0140

8-70

o VIV
AWV WV AWV NNV
000 PSSy
EEN

alnlnl

>
P P>

SUNIT

(CREF

K 11
11-APR-80 13:01:23 PAGE S<4

10-308

11=-738+

11=747+«

10-568

10-=00

11-:09

——

CROSS REFERENCE TABLE

MACRO v03.01
v01-05 )

[

CZRMLAO RMO5/3/2 FORMATTER

WSGSGeWeGeGeSeVeGeGSSGWeBUeeeNNNNNNWBeTMW,BBBWiWWWTWWWW.T
AOE

L=157n

L N
SEQ 0141

[-O—r—v——_r-——--— -5-—nvOo-O————=—)0N.--W—eo—0So-———O—On-yMrNNmE-y—STN=W4lSUE(~EOoCD.o-oN -w-o-~-l5]——~——~[N—L«1<ON1TNeNtBO—wOOn-0x-Oo— O—~NLE
»TZx

8-158+

oM—wn®NOON—M OOA©snNOIOo0NNMVD5O oWV OO)o¥ NOo —oooo0N oM—~
oo]1[ oo0N10 5—i
L| } I|
oOO1]© ooooNV"~M1O~s oM——]
) 0 10 H
o. oo= - —
Oo© ooNONO v—
vO MSOOOrvv o—- o

-EDO0>NOV

e
O OM O VO O

PBe b =

@AGAONNGAAONANGAONNGAONAMGNONGVOANNAA0NNNGORMGNNONNOGA0NMGAOMGAONWOGVOOYcNGO-Gl0lolow O~ooOVoI8—-ou<BRy4)yNLTwhoONO-vYioOLeooV-CWAnLYIo)O0OTAO0oONwMeNW<>R[CMY.0SWYOAVOwo w>Ni[ TVOT0- DAOYVIrYVO—N@wd--=~ C01ein—I[NT—a<mYNCoT@wr@o-AN-MH]I[~0eNTNTIreO0mOTSOrI0—TmrO0MNmJOCbetd0NOSr0aoNOV--FOil0d——vI0aeStlovOa0owoLWNdOo0rlo]i0O—lvVw<elWl-0endTt—mOCrE0OWd¢

~0 Orermrer000iRN NOMVi e—mm- LHIN|~AMsO5NM —-er —-r—tL|][I — o~0oMoTNalaOd [|i ToO '¢o~ -—§B 5o
—o
—o
—~-'

B8-329+

8-353

[i¢10 .N~e2 o

-o—
—o
—~JN

10-671

10-716

[o— )iI1 |HL}) )10 41¢0 -—_—oO-H1l0 oO

-&=

10-985

10-991*

10-997«

10-718

10-737

-— -—

Ow ~

x-=

10-986

-— —

O ~ -—

B 10 I

-E=

MACRO v03.01
(CREF v01-05 )

— ——

8-274+

> =

CROSS REFERENCE TABLE

a0 & & ®

" CZRMLAD RMOS/3/2 FORMATTER
"1
1
N =APR-80 13:01:23 PAGE E S-5

SEQ 0142

R=3

10-992+«

10-996+

— -

-— — o -— L.al

o~ — —

-—

BI13

L-78#

N1
SEQ 0143

B 12
- CZRMLAO RMO5/3/2 FORMATTER
MACRO v03.01 11-APR-80 13:01:23 PAG E S-6
. CROSS REFERENCE TABLE (CREF v01-05 )

10-858

10-=06

10-229

17-13

17=15+

10-238

10-7249

12-23#

17=21

SEQ 0144

17-30

00 8 2 2 2

NOV
C0O— N ICD— VNCOM

o.NJVVKQ STV[

11-553

¢|

8-192¢

10-568

10-572

11-557

11-571

11=577

7-7

16=1#

€1
SEQ 0145

vvyEmomXEE SLSASG

- DF1

N0M|~o~LLw.~]25l oA][+ O-w~3HR L~al -—~H

gT0RMLOtMWROeN-"O\ON-—NT—WON yNSI—OUMIAIONMS-oW "i 'I MWIRON\ERACRONM)ANoA=LERMoA=N==ALE—NANO—SMIOSN-—M=RANBNAONARBN=OSRVNTOB:I—NMAJONIAON—NMO0S~0NA0N-- 0=WA0MO0RN0=~it .)
OO0—OwOML|||L~u}n0mO}-——5LLL_NO@oe—M———]i4iH~ a4~-oeo~]4i-10i eO-~ooo~—~~ UBil)tl—

oNo=—)0Tv-oMN«O1NOMN—oM0-M—Oeo&5_oO|—[2O3~VN@o@—v-MvoAN—]I—[Or"2MNa—®YaOwR2NW®3—Ou»‘O]-~—e—[6T1N\‘e1®On=‘V—~—2OMgmME2OMu—®=Om2M23L~-aoa~ToN‘—)~0l06N5T.0NM——~A‘OlND=0nMWR!WO1=mR0=vNa~—— ~~~ ~~ -@Io~0FN—
e

DS.TRK

== -

-— — —— —

11-565+
11-634+
11-664+

alat] O

-— o][+

11-612«

—- »~—N — O-

11-646

yN-Ge -.-e —

-— —
- -— —
11-752+

11-852

-OO"\ —~N1
w e

MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

~ O ~ o — -—G0

oocococococoo

==-o-W0>-O1-0a—wxeE=-XSO I1TO OoIaMT--IT-N3-NOT-OI-oIVOO-CeI=OONIMeT~IYW~TYN_IYYTOYOMTeOTNNYXYeTOYe[eyeOTeeMeaenAeeNeOeOOeY
CZIRMLAD RMO5/3/2 FORMATTER

D 1 12
S1 ~APR=80 13:01:23 PAGE £ S-7
SEQ 0146

— 'L) ~@- -—— P.e -— i

11-884
11-915+

5 L]

w —w

11-922+
11937
11949+

10-;60+

10-;65
10=;79+

10-:61¢

10=-:67

owoeWWwwwwwwwWTwoweTTTTWSWSWWSWWWSWWWeoTwEEoeTeoTTTEEoooTeTeeoeTT
D105
&=196#

E 12
SEQ 0147

OMB3y=-TUMce0-w.o-0—e—L=@>~)o0Na-aNe~—w00V1OOg7-k~RFs1)O[-=-—~5FV——ST~F2OCNMo@Laer2lYa—=€0N]eO—<-20Mo@-eZ-~~Tl3R——NDX3R[‘O-6——7O_—EV_—SO3_]r—UN_NI—LI3_MMpA—JHIb1WONg=1MOO3=1NGN1I2M1TO—I2ON1AWO30N1NAO02TBv0va-—ooNI—2MRhOM2NMAO-oR]2I—O~)=o-R&I3Olt{5—[L>4MOo5RMo7lNDo.Mo'lONIMo3lNDIo3lIWLonl3'OolILkO.Nlso-O~ ~w ~o ~o ]I[-R%OB7ReO8
--~]5——

w—~=1

CIO-—NO—GeRONN-MO—DN@2\LUMyNxOOLTN—.~[AW«w<AAG—OMT|oNN—AXO0VlNOOA)>ONA]!MRWVONBA@rONOOMNI&UAOMEF0OLMNS-«ZTA-T——EWOWRAeMONMBmO Mo~SeMO—Ot§U" G—~V-AGO~MSMOWNENUASOVNUNREIAONCMOv—bNSIA4NAEUI4MNONYAMWOSIeUETMUCNZNWOA~NSeWNMRSUAO0SNWOOMSW—NOOAMNLSNIOAMNCIT—WMMNEAEraoNRe>U0O[OMTVIe3SONNMDOMNa* )O Oo-w—o OSe*+i ]H iI 8—~CeT—ONBTe0RNe0VAT0NeGAN—NNOe0ARNOr—AOM—eNW0A—ONNeAOONVe0—NATOR0N—SI0BO5O0R[~0o ~oOa)'B0V)NO—0Roe0o~E0N~
)~M-AOooao~o~B-|0= oooOg4~")0\OAOaos5¥o)i |l0 Do)-o-.l[L oO~OOv O. ~~Loo Lo ]-1P§! A| lN[ ~aw~— —e —ow ~o~i]i'N0
CROSS REFERENCE TABLE

CIRMLAO RMO5/3/2 FORMATTER
(CREF

MACRO v03.01
v01-05 )

F 12
11-APR=80 13:01:23 PAGE S-8

SEQ 0148

- -

~ [¥a) [a) k3

- -

w el

OO -

11-;33

6=127#

6 12
SEQ 0149

——=—=Fmp—=—o—TT—_——r

fFe

o olalO0V"INO~
Eao)lI[]"a[lIDLN-o~"B~1o«oALgo—-nGuo)_——g_OBN0oL[ONMITNONDOOdO4oeleBNlNVJoZeo)loVNOEeJV0leoTVelOBl—NOdeMl=oe—ITlNleFFdlOoTehoM]l(UNoeonO)MdOe]LN@— -se[t
00 .00 E Ry
(CREF

MACRO v03.01
v01-05 )

g""go ——PP gb P0 b0P0S0
eL) =BNi T D

r0o0L@aC—0MeO<JSOSol4Ua7—olV5~NoOLNOVgWN]]0a2LLav0L¥OIYJl=nl)DL\yNS~¥~oO@M3a2-o0-a1N-ZB[gxlAr0TNJMNrR)ZdFgOOSNWMO-5LWwW~>--3ee53N—AV—Jl-+r0TOAA—a«IgvoRReCN-v-vEg00|gAOOr—WRW0ySoOd3—=NN-OVwgMv—J.MXONg[MVTOOLEWO@TmPk0RBW©V0rEIn40>TB%NtLS.-oc o( o~oooo-o.—>— oO —o ~E-0|awN|g HB" i"O-[——NIO —l-AueO~~yFV—-T~FMOTEsSrWw |WVTB-R.oOow~MdW0IAN—r[_-ExIQ0OOLn—O_>IT&oR«x—&CWT[oOoLoN_.IL¥T&-])L xVa0<—0O)O0MA_-wIOo70OOo2nyA—ToW_WI-oOO—|—wOITNMoNoeON—I1FwVM\0=AOI3o-S0W»—SNW"O3WgO"RNo1 o00wd-[wOMNvGaN—ou|))|dl=SVALLol0OOOo0LVeODV EYNRO[—ILonNoaL—~5)L-—I-XNDO—VdoLlLF0T—S[[1N='T2ROMSaI-=O=tDn—LdIVe-AWVaIDvTldVMO\OeavxeLR)5tnIVaB3T~-eLdND—SVaJAN5gO‘edL1e3~V0DdelUgVR5eLRae2l-dUDIeOO-ewEltXJOeOo]— OeoAASOg-=-aB-eE2d—ul_NlooTedONlgM—soROGONOelNE_lVkWeM—wlDO0—OMGeM«Od-lNJ*-.eEV_nSNlReMl00OVoo—SWlOleeOgOMn._OeEOI—eololoDT—NgN&Ll&lIeEVSoWWOee_NoloNoNlO=ONgO=d—IGO&ll-e0EeeN0DM0_OOeloOooNBOOEV—N“0el&lDT0gUe«I—SirNMleLolOO&ToVTDeOMel-0]-Ge0&lPPNNOlNeel]oNWdVOa0U&elSed—0W—eO]L|Me0lOAWM TOoH NN-=*—ae «&N==[eN«[l [~t[[R
o~o—iN OA[0N—L"eno""k—aaoelo0l'Ys-s—oaeoL»—-dNlnR_ Jg-W—eEe—OlNNOAOgeGMlVeOgMOOo.EeWGWnW—lOOONNQVeN-MGaUSlOOoPSeTNRuMNnlNVTeOSOQOBrlUVeOgnL0—OEglnUMeMNgM30Iu]PNnOlTMMPSPNMu])83IL«®s][
CROSS REFERENCE TABLE

CZRMLAO RMO5/3/2 FORMATTER
11-APR-80 13:01:23 PAGE S-9

H 12

NOTFoi-~T—MmNMITNO0

-e= -* -"&e

SEQ 0150

M=V O

ONMeUtWM e—_—

B-2440

112
SEQ 0151

S
II - — —————— T

MiA

DBLRA-

JTLVN—oW&N¥—WlXM—LN—elekAW—aW-—OWS—ON—T=R-W4oOOdLN~~-~—wn5-WyO"8VN0OG8Uao.gOlAp0—vV‘—'Wy—2O5yM—3EIO8NQQNWO7geOWN‘erDW8IeOWV3Tme5—(GrWNM7GmA0GrW=6GmN‘rOe%GNm6OGer8CAmO7GTr—1WNe8WOTrIe8TW69S6ogIS6o[gV90e-0SL0—wOlRaoMld=|OblV=OooAVbIOloTIiR-O
ogo<-—5l)|'—L
~ao

Ldod[[
~O

oOo~~11

o&—- w
ooO~1

—— ~o-=N—

E(O¥NNOmWbeI)3|m>Nuo—2wnABNTnfR0RlSWWOoyaJfdwLNANOela)—LLAnfRA(UJ\lNJ0fIT,ORvUlJSOf-gA0QNL\lTX0NfmoBN=lLfvMO3lTo5Nf3=2.NRl0v3flTO\f=l\0oLVNwO—-~B]oULFmWlLNITovo([~w——<MmDO-l---U]502~yv+E)NA&-2«=BMg—0AM3NO0TNOA2J>fMDX0lbxo0O=X(efoooa ~oo@ 2No@ OwovFLrO—=iU d1]B.l]~=T)NOI|lUA.EONWHNV8&0A-eM—O—HeRNo-~—2TO ]OMBAN—ONED—ATVWAHVA_W0RrSONaA—XACNtWOHRsNItA)aNZCRSOH*O)-ToNANO~R)ANOESI")OGRAHIANOWIOL0VTNUVRAHBIANRMVIVNaD~-3~VM0TYLNM—0IVV=H0NYON"IVM0VNHwVLI0INVSOAk0OLHNNOV0IVMLNN0OtHVIVV0SLNMOV--V-=bT0e'' AH—l—L—0IMOV0==LHNTMVM0BV-RfLLR,l-YOMO~o~o1oNd~O&UUaUwl[LLooL~0MNeXXC—HeO—-n3i-5e~d0E—oHOJteVMO-gMW—'U=—uVLMo~IManO15OeoHG=0"=MN~La@o@H@ObiaULN0M)R0)NlHe—0M=O~HsMe=O
]o~oLo])NYA(sY]e ~Oo[ o( o~JU '' L o~ao-~na)31d0—~[
CROSS REFERENCE TABLE

CZRMLAO RMO5/3/2 FORMATTER
(CREF

MACRO v03.01
v01-05 )
11-APR -80 13:01:23 PAGE S=10

J 12

SEQ 0152

~N L2l

10-713

10-403

FESSEED NESS

T S
S

8-245

wann BEEIE

MSIZE

12=364

K 12

SEQ 0153

CZRMLAO RMO5/3/2 FORMATTER

CROSS REFERENCE TABLE (CREF v01-05 )
. MSQVER

SEQ 0154

8-269+

10-149

10-401

10667

10-154

10-159

10-179+

10-202+

10-205

10-217+

10-836#

10-865

10-289
11-4220

11=-777

11-963

11=-:01

9=25+

9-85+

9-111

9-146

10-69

10-97+

10-222+

10 =310

10-312

10-343

-383»

10-384

10-585+

—

8-262+

w
TMm

L 12

o, KRN

13:01:

10-389
&=170m
10-391

8=175+

11-APR-80

-t

=2
<

m
r

MSTCK

MACRO V03.01

6-0n
6-0#
6-0#
6-0#
6-0
6-0
6-0
6-0#
10-874#

6-04
6-0#

10-;63

10-16~

10-17+
8-395+

10-20+
1021+
10-18

11-924

11-953

746

°
[
=

8-180+
8-181+
8-182+

10-;31

11-487

11-603

10-778

10-788

11-993

10-745

PR7

L-78#

8-87

SEQ 0155

NYVNAVTVOYVVTO[Oo-IOTO-o—ORITOOITw~TVoOel 0—O~—owWnS«ee-vr—vW—0N—TOMO5o~][

OoI0M[oM0ON+U——rNvg))VawA.lalvoSMM—NNN’eg—TYyOVNaVO—~i>l—=1eNvGLgTnY’VkViaAV—0NNgGel_TuTDNVVan1o1l—Oe[O[IvT~’VVLaooTNM@Oas=eS--=tn[Mkl0)~N——=o©2=N[—OBoMv<Oww-vo—ge-¥R1]¥©a[—S[[leWmwmoMO~[oL[~-)-oe-5~—~[Wa]a')e¥5—Y—o[l]+\YOal=e—+]sN~[Oo=]6—VMel7eYl2O-e5925M6o-O~]L~—J—0oO1O.aoO7~o~—V—*@<ON)h-10~N~s[\1o—cQ-raI2saZ8m-~sIBar'cMea1srDe6N—N-wl1Tnraovos<oe5o—-w-gol]—-Vv0a)[i~—}vn-TM”r—aAOe08WOoS-—VTFLIVvolioigw——c5--le—L3©W5&Vi"l'VSe5MoAV—h“NnOoo-~—-"i"D—[Ln7VVOe\an-le—O8VHO9ElOeL00eNO1Ll0OeNG2lO0eLWW3Y0NWoGeVe06rd—sNr0b7—oeOSOonr]"Nl0}T6—aLOw—GoL[r=-l-ll}—e—74"-—oU—gpwO~L"w -go~lg—_0A-A5~ilkyN—l)—N
XVOag—0)o0o—gOuMYn:VMigTnVeINvLRYyVGiIRVnO~W&O[0O--oW~dO—LB«i§m<o7ACds<EOZOi0Eo0ooe—c=riO~w-s.V=—n§ru»v-s=OVOOwTW0MVTArWN-bWOErDuoW-OTrME>pmwOEsbxT>oMsoDo 0~-O=E2T'iW—eVWxl=aEA-XioOMwIA§)3ETUpNY-"IXwMvEOrANWF<Ioso-3O—)EOIBR—[TcomwXeI®xO-yMr~OLN‘gs"3LOV\o—3oO4NiVgnk0dO&aLgie3-oe&Lg[wMToN2D“-—n=«wPOT@N&PAN*|=OIEXRA2TT3NSG33IVB3o—O5_EOBMG—3VMN-_25&B*II—OLO3_ETV—-r3—3[>U—T_>ZMBO—OV01rI_ErB—M3NV-_HZBO—<OE—V0EJOeGaONTXLxBNO—-IZOBeLAGOO3—BNI3O0LOTOG=O=*LUW3NLLWL#*-.O-D LVo—Mgo=k-"SBRo\oaLn-i0o
—=OOgT—0)1o"ODeOIM—aN—ewlowV"ROMeN—av_vlv0OV"—Mn—iLLaLv_VliuO’i—OeUnaUnn_lvO~oO-—’—nNya~o=Ov~Me@MO-NNoT=®]-]§!i1B~L'oOM—O—4<—v"1'i1i ow—ok)3 oaMO—v~-~—Sov'18+]0—TV~aoO~oew~ow.—A=iB1§’oN O—o"5 "=B1 nOo-~o®-1)—wo[o-~~—AaoP-=-*']+i]1~\«NN0t—b
RASCRTMNRnYSAAR IiP]L0=1.BA-\0~vTON&*oCe-L.BHN—VI0aElNDNNeWN—aENEUN
& *

v01-05 )

MACRO v03.01

~N » o . MFTO0——

LI|

(CREF

Kl & -

£ &- L

CROSS REFERENCE TABLE

CIRMLAO RMO5/3/2 FORMATTER
N 12
11-APR-80 13:01:23 PAGE §=12
SEQ 0156
11=360+

10-:62

11=:45

10-568+

—

0->86

RMOS

9-36

9-43

10-46

10-262

10-268

10-409

10-568 ' 10-568

10-:70

11-359#

SEQ 0157

<OCO)—rOMvN——m~Ogrmeger—g—AL@OIeo-AlMNJIO-—gTwnWeiVa—OnNDNCON—M~VeO>VAOMIaOtNl=~a+Ol—NDORSW—N~CaVeO—DlaDEOooa—0~E-Eaao~H—-40)N!L"~-—O"=0MOO@R—ONSOTNM~o—V-—WWO1Co5MN—VN—VTVNV~M—~OI—oN0r~OVcM—NoVOOoOeoONO0V—OOroS—
-&&% && l= iL

awawn
X xoae£
OaONa0
W
=
010
W0 = - M
gAN
g— N
O][alata¥l
W=
P00
o1

VMCAOYx=3UlNOFB0VOMAOOGe—kROO|aU30NNNoNM—oo-i=o-LL-V—~~_—OeU[N®}0—ob-—nOGILOaOOAV<NeIgWUI«OIaAOMNWeILeV[U—I\ONLA~ow~ aOo5-Sg—N3I'] B] tLiOTOV—o][|L3SMNLLF—VU3OMOGVSOoO—aNr]eLoVNI3I—W—IIVo0TLILOrSO5IeYAL|V—LT-NLMSOVFNLYOMNVONeOILOaOA©oGx—NMO-i§RoV—OL—Nd3VVLW—N—OO0o-- 0-—OOOg-I"|IVeSM_OBO-sMNNVTMOI-AosOR—S—FO8ArEV0TswV<*E0IIEo®dewR—WO0NTO-—xON—LO-—-J——SovYIOA)me3OTVwOeMN0gN[—t=LLWIm|nVONsvNNO3ZA|TO—E_R-OXwC—TT=ooMM—-~T&-—~NEOb&J¥)!nSWO]MISC3O[[N-VM-LOr—OTANIVwOv[-N-OOom—R-EO<GJ1i1|v—~aSrNE]EeN[bRIVNTOmNkzOMe-IrU"NFY—LveNZbO--LCY3—srNO-U"OSIO-EOoOo—@-VW—3vN-N']H]LTmTnEW|NSrBPNEA.O@-@NI-o—-—o3HNO'i5!TEENr|NZLWMAAV—EeNC—OrTANCAOOA a-OeM—o—-~NW=NI]KBi)W)—o0EnOVnOV|NLLBSyCMW—v—O=NVLyvIEO-O—~eO—WwA0i))0IoNRnONNNoCIT»—-w&&A"~-eTN0WM——a(9NVo—-VOE-n-eI«I>IM0NaO—NINM\"0—TIIe-IIOw0OWO—nA®-N)LLVgm—=O0rO@-VMV—e-d@®N\.i]Bo—~r0oT—IAIONr~oWo-OMF—=<di—L]LiI—L
+~5 NO~ oo~.'0e ooT—O—oON——o-—ge——gisVcVL10|B|Io]OaO)MaIeO0uMOO9—-Pe—oo[OaRNOW—0l—M0nOo0NVwOwTMWELIILOOnnlLwMO00OM-nLtO— e~-wOo—o-o—]R]R)]LlN—~—}[ -i )NSn-4OO——o-O]MM—w]]|"""——ONgOV—=~—-nN————'ELvL~—PdBOONOo—e~—V0—N=-o——~aBi'3HlDi—oL .L~v—— ~—-—— ~—— —[oD ~Q o— -~owIM—oYb'e'H 1' 'iBN—MM—N)
O=&M

(CREF

I&OV.&

v01-05 )

MACRO v03.01

&=o="y- N*&- ~O

CROSS REFERENCE TABLE

CIRMLAO RMO5/3/2 FORMATTER
11-APR =80 13:01:23 PAGE S-13

c 13
SEQ 0158

N~-

»"

e—

SEC30

6=-0n

8-166*

8‘176-

8-260+

8-267+

9-126

1042

D1 3

10-74

10-720

10-988

10-990+

¢
10=994

10-:20

10-:26
SEQ 0159

CZRMLAO RMO5/3/2 FORMATTER

C(ROSS REFERENCE TABLE (CREF v01-05 )

SELPAT
SERNL
SET.IE
. SETFMY
| SETHDR
SETTBL

10=-:67

6-0#

10-;51
10-60

10-<23
10-79

10-109

8-312+

11-132#

11-226

11=454

6=255#

&=2664
10-7#
9=-144K
11-255

- SETVEC

0
NWWwWWwWND

SECCU
SEEK
SEEKFG
SELDRYV

MACRO v03.01

11-APR-80

E 13

§80 13:01:23 PAGE $-14
13:01:23

PAGE

10<110

10-127

10-129+

11-685

11-818

11=-<39#

10-464
10-324

10-326

10=;74
11-959«

SEQ 0160

10-138

10-140

10-160

10-328+

10-333+

10-342+

10=706+

10-;94

10-=53

10==55—~

10-241

10=267

10-580

10-823

11=:79
11-892

11-:81
11-910

1 1= :96
| 1= 161

11-;00#
11-:99

i10-353

- Skl
SLASH

' SN1

. SNGSEC
SOF SW

SORT1
SORT2
SRCHWT
ST.CLK

STACK
STARS
START

' ST0

ST01
S$102
ST03
ST0S

ST06

s107
ST08

10-792#

STKLMT

STCLK3

Pl o o O O
O E aF 2E 2k 2 aE 2E 2R 2E2ttt
2
R
1
i
[

STCLK]
STCLK2

11=-:5¢4

11=:67
11-784

8-85

10-649

11-:68#

11-:89
11-99 1

11=-<07#

SwWi5

L-78#

13
SEQ 0161

(CREF

G 13

11-APR-80 13:01:23 PAGE S-15
SEQ 0162

8-85

10-8+

10-865+

10=262+

11-638+

11-651

11-669+

11-678+

10-347

11=-757

MOWNVON D8800007 O=V|0M~ OOWO0O NOWe—V WOOMOVO Bie ey

10=576

11=-758+

10=-649

11=-:55

10->86

11=:17«

11=:80¢

11=:65+

e——lR

CROSS REFERENCE TABLE

MACRO v03 .01
v01-05 )

O OOMANOCOCO
O—MONOO0O0O0O0ONONNO0O WO

CZRMLAO RMO5/3/2 FORMATTER

10-<38

10-= 05

10-224

10-262

10-275#4

17-20

17-29

H13

10=275#

SEQ C163

1YPON

CROSS REFERENCE TABLE (CREF v01-05 )
CZRMLAO RMO5/3/2 FORMATTER

UNSTAT
UNTOFF
UNTON
UPDC YL
UPDTRK
| UPE

us|
Us2

US4
USSAV

113

PAGE
S$-16
80 13:01:23 PAGE
13:01:23

SEQ 0164

9-16

10-392

10=275#

11-384+

11=567+

11-633¢

11-670+

11-839

11-925

11-948+

11=-:64"

9-129

9-200+

9-202+

9-206+

10-:24

10-;49

10-;50

10-¢<22

10=<26

10=<75¢

9-135
10-<25

9-199«
10-<68+

9-201+
10=-<69+

9-209¢
10-<70

10=72

10-568

10-908

10=;47

10-;48

10-;53

8-174+

8-261+

8-268+

10-26

11=-600

oo
LR
3

UNS

11-APR-80

W
=S NOVO
N
R un

1YPOS

UF
ULDFLG

MACRO v03.01

USTAB
vV

w(
WCE
WCF
| WCHKX

| WCKD
| WCKHD
| WCTBL

10-211

10-229

10-315

10-318

10-568

| WRAP

8=275+

8-363

10-476

10-686

10-739

11-523

11=527

11-538

11-569

11-579

8-48

8-113

8115

8-302

8-304

!HRL
;URT.AD

M=;774

WRT.R2
WRT.R3
‘URT.RA
| WRT.RS
iURY.RH

11-;84
11497
11-864
11=;73>

| WRT.WD
' WRTDAT

' WRTHD

| WRTRKA

. WRTRKF

' WRTRKH
' WRTRKX
| WRTRKY
WRTRKZ
XSI1ZE
XXDP
Y

ZERO

[

' WRTRKC
' WRTRKD
' WRTRKE

| WRTRKB

OOOO?OOOO

10-568

| WRTRK
| WRTRK1
| WRTRK2

10-186

10-195

10-200

10-222#

10-2174

10-368

10-365#

8-26+

10-811
12=14#

8-29 .
12-19#

CROSS REFERENCE TABLE (CREF v01-05 )
CZRMLAOD RMO5/3/2 FORMATTER

10-888

PAGE

SEQ 0165

10-275

10=275

4=76
10=>45

10->53

10=275

10-275

10=275

10=275#

10-275

10-275#

5=0%

4-75
oo

-384

11-;32

11-;9

10-253
10-420

10-254
10-421

10-416

ONN

COCOO—=O
U

v
v oowv

NNY

—_—

SETUP
SKIP

-78#
4&-78#
10-275
4-78#
4(-78#

)

&-39#
L-78#
L-78#
10-488#
10=277#
10=>74#
“-8#
10-302
10-568
4-78#
“-78#
L-684

8-293

)

L=16#
L=26#

—

4=73#

OO OO \h?b

L=640
L=640
L=64N
L=-640

10-264
10-762
10-273
10-769
10=207
10-?75
10-760
10-75¢4
10-758
4-78
4=72
4=277
4-73%
L=74

—

ESCAPE
GETPR]
GE TSWR
LOOP
MORETA

4=65#
4=-65#4

J13

M80 13:01:23 PAGE M-1
13:01:23

10->86

.EQUAT
-HEADE
.SETUP
. SWRH]
. SWRLD
CKCHR
(kD16
CKNUM
-OMMEN
ENDCOM
ENDTYP
ERRCAL
ERRENT
. ERROR

L=640
L-64N
L=64N
L=64N0
L-654

5-0

(=286
10-256
(=279
(=481
10-271
10-568

.$TYPO

4=65#
4-65#
L=65#
4-65#
4=-65#
4-66#
4=65#

(=283

.
"
'
'

JSERRD
JSERR]T
.SPOWE
.SREAD
JS$SAVE
.$5B82D
.$SUPR
.STRAP
.STYPD

L=64N

8-14n0

- .SEOP

4-78#
4-68#
L-67#4
L=67N
L=-67H

8-9

10-275

$DB2D

8-14

11-APR-80

5-0

—

.SAPTB
.SAPTH
SAPTY
.SCATC
SCMTA

4=4LB1»
4-4B
1N
4-78#
L=78#
10-275

$SCMRE
SSCMTM
$SESCA
SSNEWT
$$SET
$SSETM
- $8SK1P
. «BACTI

MACRO v03.01

10-756
10-756

10-760
10-756

10-264
10-260

10-764
10-264

10-273
10-264

10-273

10-275

10-775

10-275

CZRMLAO RMO5/3/2 FORMATTER
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

SWRSU
TRMTRP
TYPBIN

L-78#
L-78#
10-256
10-273
L-78#
10-275#
4-78#
&4-78#
2-78‘

10-568
8-15

CTYPTXT

4-78#

8-18

SLASH
STARS

TYPDEC
TYPNAM

(=283
10-256
10-275
8-14

(=286
10-?58
11-14
8-14#
10-726

4-286
10-760

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

4-286
10-762

5=0
10-762

5=0
10=262

5=0
10-?62
:

SEQ 0166

8-9
10-262

10-3
10-264

10-568
10=264

10-612
10=267

10-616
10=269

10->86
10=271