Digital PDFs

AH-F943B-MC

August 1981

167 pages

Original

8.4MB

view download

OCR Version

7.6MB

view download

Document:	CZRMTB0 RM02-03-05 RM05-3-2 DRV CMPT TST AUG 1981 bw
Order Number:	AH-F943B-MC
Revision:	000
Pages:	167
Original Filename:	CZRMTB0__RM02-03-05__RM05-3-2_DRV_CMPT_TST__AH-F943B-MC__AUG_1981_bw.pdf

OCR Text

_‘_ Eicfé‘ 1'9'5“:1m‘?i&”',,‘f EBEE

MACRO v04.00

4~-APR-81

1
8
18:12:15 PAGE 1
SEQ 0001

.REM

PNOMNOMNONININ)
L D a2
D w2
NN LR T e XeTe RNTo RO, P VI VE Te I¥o T, - ENTe

XU ¥ NV STIN

~IRMTBC RM05/3/2 DR (MPT TST

IDENTIFICATION
PRODUCT

CODE:

AC~F
94 2B-M(

PRODUCT NAME:

CZRMTBO

RM05/3/2 DRIVE

PRODUCT DATE:

APRIL

MAINTAINER:

CX DIAGNGSTIC

AUTHOR :

MIKE

COMPATIBILITY

TEST

1981

GROUP

LEAVITT

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

EQUIPMENT
(ORPORATION.
DIGITAL
NO RESPONSIBILITY FOR ANY ERRORS

WITHOUT
DIGITAL

EQUIPMENT
CORPORATION ASSUMES
THAT MAY APPEAR IN THIS MANUAL.

THE SOF TWARE DESCRIBED
IN
THIS DOCUMENT
IS
FURNISHED UNDER A
LICENSE
AND
MAY
ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
TERMS OF

DIGITAL

USE

SUCH LICENSE.

EQUIPMENT

CORPORATION ASSUMES NO RESPONSIBILITY FOR

RELIABILITY OF

SUPPLIED BY DIGITAL.

((C)

ITS

1980,1981

SOFTWARE

EQUIPMENT THAT

DIGITAL EQUIPMENT C(ORPORATION

THE

IS NOT

MACRO v04.00

4~APR-B1

c
18:12:15 PAGE 2

SEQ 000¢
CONTENTS

1.0

ABSTRA(T

2.0

HARDWARE REQUIREMENTS

3.0

PRELIMINARY PROGRAM REQUIREMENTS

4.0

GENERAL

NIN) —d md e e

Fa Rl N s R
P o
»~
L] L] .
.
. . - .
O QO NN
NN Y

NWN 2O OW® N

-2

TIRMTBO RM05/3/2 DR CMPT TST

PROGRAM CONSIDERATIONS

SYSMA(
XXDP

ACT
APT
DUAL-ACCESS
MEMORY MANAGEMENT
MEMORY PARITY OPTION
BAD SECTORS
EXECUTION TIME

5.0

PROGRAM LOAD MEDIA

6.0

PROGRAM OPTIONS
6.1

6.2
6.3

STARTING ADDRESSES

°'SOFTWARE' SWITCH REGISTER
OPERATIONAL SWITCH SETTINGS

7.0

RUNNING THE PROGRAM

8.0

OPERATIONAL DIALOGUE
8.1
8.2

DIJALOGUE FOR ADDRESS 200 START
DIALOGUE FOR ADDRESS 204 START

8.4
8.5

PASS 1 DIALOGUE
PASS 2 DIALOGUE

8.3

9.0

DESCRIPTION OF
9.1
9.2

10.0

TEST RESULTS

OVERWRITE AND DRIVE

COMPATIBILITY DATA TEST RESULIS

ERROR REPORTING

11.1
11.2

11.3

12.0

TESTS

DESCRIPTION OF PASS 1 TESTS
DESCRIPTION OF PASS 2 TESTS

PRINTOUT OF

10.1
11.0

DIALOGUE FOR ADDRESS 210 START

COMMON ERRORS
ERROR HANDL ING
ERROR PRINTOUT EXAMPLE

TABLE DESCRIPTIONS
12.1

TABLE A -

BASIC READ/WRITE

TEST SECTORS

(ZRMTBO RMOS/3/2 DR (MPT

TST7

MACRO v04.00

4-APR-81

1
D
'8:12:15 PAGE 2-1

SEQ 0003

58
59

12.2
12.3
12.4
12.5
12.6
12.7

60
61
€2
63
64

13.0

TABLE B TABLE C -

TABLE
TABLE
TABLE
TABLE

D
E
F
G

-~
-

WORSE CASE DATA PATTERN
CYLINDER BLOCK ASSIGNMENT FOR A GIVEN SURFA(CE
BASIC CYLINDER BLOCK LAYOUT EXAMPLE
OVERWRITE CYLINDERS
SELF-TEST CYLINDERS
PSEUDO-RANDOM DATA PATTERN

RMTM SOFTWARE DRIVER DOCUMENT

TIST

MACRO v04.00

4-APR-B1

E
18:72:15 PAGE

SEQ 0004
ABSTRA(T

1.0
THE

PURPOSE

THIS

PROGRAM

TU VERIFY

THE

COMPATIBILITY OF

RMOS5/3/2 DRIVES WHICH MAY RCSIDE ON 1 OR MORE RH/RM SUBSYSTEMS,
LOMPATIBILITY IS DEFINED HERE AS THE ABILITY OF A DRIVE TO WRITE DATA

WHICH CAN BE READ SUCCESSFULLY BY ALL OTHER DRIVES, AND ADDITIONALLY THE
Ag}LégY OF A DRIVE TO COMPLETELY OVER-WRITE DATA WRITTEN BY ALL GTHER
DRIVES.
THE

PROGRAM

COMMONLY

OOV

b add

b d

2OV

(ZRMTBO RMOS5/3/2 DR (MPT

CAUSE

DESIGNED

TO DETE"T

THE

FOLLOWING CONDITIONS WHICH

INCOMPATIBILITY BETWEEN DRIVES:

HEAD M]S-ALIGNMENT

POSITIONER LATERAL MISALIGNMENT

SPINDLE-CARTKIDGE

INTERFACE RUNOUT

IMPRCPER LEVELS OF

WRITE

INCORRECT ADDRESSING OF

MOST

CURRENT

READ/WRITE HEADS

THE TESTING IS DONE IN TWO
PASSES.
IN
PASS 1,
PATTERNS
ARE
WRITTEN BY ALL THE DRIVES UPON THE
AND THE BASIC READ/WRITE CAPABILITY OF EACH DRIVE

(OMPATIBILITY

DATA

SAME DISK CARTRIDGE,
IS DEMONSTRATED.
IN

PASS 2,
THE COMPATIBILITY DATA FROM ALL DRIVES IS READ BY EACH DRIVE,
WITH
HEAD OFFSET, AND THIS IS COMPARED
WITH
EACH
DRIVE'S
ABILITY TO READ ITS OWN DATA.
IN ADDITION, EACH DRIVE'S CAPABILITY TQ
OVERWRITE DATA WRITTEN BY ALL OTHER DRIVES IS
TESTED
ON
THE
SECOND
PASS.

THE

(FOR

THE REMAINDER OF

THIS SPECIFICATION,

FIRST AND SECOND PASS SHALL APPLY).

THE ABOVE

DEFINITIONS

IN BOTH PASSES, THE PROGRAM DIRECTS THE OPERATOR IN
THE
LOADING
AND
UNLOADING
OF
DRIVES
AND THE MOVEMENT OF THE CARTRIDGE FROM DRIVE T0
DRIVE, THROUGH MESSAGES AT THE CONSOLE TERMINAL.
AT THE COMPLETION OF
TESTING
ON_
EACH DRIVE DURING THE SECOND PASS A SUMMARY IS PRINTED OF
COMPATIBILITY TEST RESULTS FOR THAT DRIVE.
WITHIN THE

VARIOQUS

TESTS OF BOTH PASSES,

THE

CAPABILITY

IS PROVIDED

LOOP
ON CURRENT OPERATIONS, AND SWITCH REGISTER OPTIONS ARE PROVIDED,
gg?TIGN ZA§§ETY
OF
LOOPING,
RUNNING,
AND
REPORTING
MODES
(SEE

UNEXPECTED ERRORS WILL BE REPORTFD AS THEY
OCCUR.
THE
REPORT
INCLUDE DESCRIPTION AND APPLICABLE DEVICE REGISTER CONTENTS.

2.0

WILL

HARDWARE REQUIREMENTS

THE FOLLOWING HARDWARE
PROGRAM,

PDP-11

PROCESSOR

12K MEMORY

S REQUIRED

TO RUN THE

RMO5/3/2 DRIVE

COMPATIBILITY

LIRMTBO RMQOS5/3/2 DR (MPT TST

MACRO Vv04.00

4-APR-81

3-1
SEQ 0005

58
59
60
61
62

18:12:15 PAGE

KW11=-L OR KW11-P CLOCK
PROGRAM LOADING DEVICE
TERMINAL

RH11 OR RH70 CONTROLLER
1 TO 8 DISK DRIVES PER CONTROLLER
DRIVE

(ANY COMBINATION OF

ANY

COMBINATION OF

TYPES MAY BE MIXED

ARE
THE

SELECTED FOR COMPATIBILITY TOGETHER, THE PROGRAM WILL
DIFFERENT DRIVE TYPE AND TYPE THE FOLLOWING MESSAGE
:

TO THE PHYSICAL SIZE OF THE DISK PACKS,
SELECTED FOR COMPATIBILITY TOGETHER. IF

RM0OS'S,

RM03'S OR RM02°'S)

TOGEHTER ON A CONTROLLER.

BUT,

THE RM03/2°'S AND THE RMOS'S CANNOT BE
FOR SOME REASON AN RM03/2 AND AN RMOS
RECOGNIZE

THIS UPON

?CANNOT SELECT RMO3/2'S AND RMO5°'S TOGETHER (NOT COMPATIBLE)
IN ADDITION, A SINGLE RM03/2 OR RMO5 DISK CARTRIDGE

IS REQUIRED WHICH MUST BE

FORMATTED IN 32 SECTOR FORMAT, ON A RELJABLE WELL=~ALIGNED(REFERENCE PACK)
RM03/2 OR RMOS DRIVE. THIS CARTRIDGE WILL BE MOVED FROM DRIVE TO DRIVE, (ON UP
TO 16 DRIVES) CON EACH OF THE TWO PASSES.

3.0

PRELIMINARY PROGRAM REQUIREMENTS

BEFORE RUNNING THE RM05/3/2 DRIVE COMPATIBILITY PROGRAM, THE
SIBSYSTEM(S)
UNDER TEST SHOULD BE CAPABLE OF PASSING THE DJSKLESS TESTS AND THE ~“ME
FUNCTIONAL TESTS. IN ADDITION, THE
FORMAT USING THE PACK FORMATTER.

4.0

GENERAL PROGRAM CONSIDERATIONS

4.1

SYSMAC

THIS PROGRAM USES PORTIONS
PACKAGE.

4.2

THIS PROGRAM MAY BE

PROGRAM

OO0
wa—logm\l

Yo GG

SYSMAC

DIAGNOSTIC

[N 32

SYSTEM

SECTOR

MA(CRO

DUE

LOADED UNDER XXDP,

TO MANUAL

S NOT

AND MAY BE

INTERVENTION AND LACK OF

XXDP CHAINABLE.

RUN

DUMP

MODE

END-OF-PASS HOOKS,

THE

ACT

THIS PROGRAM MAY BE LOADED UNDER ACT AND MAY BE
IT IS NOT CHAINABLE UNDER A(T,

RUN

IN DUMP MODE

ON_Y.

e
uw

4.3

THE

FORMATTED

XXDP

ONLY.

106

CARTRIDGE MUST BE

4.4

APT

THIS PROGRAM MAY BE

LOADED BY

THE

APT

SYSTEM,

BuUl

MAY

RUN

MACRO v04.00

.1
G
18:12:15 PAGE 3-2

4-APR-8?

SEQ 000¢
PROGRAM

4.5

(DUMP)

MODE

ONLY.

CANNOT

RUN

[N APT

SCRIPT MODE.

DUAL-ACCESS

THIS PROGRAM DOES NOT UTILIZE THE DUAL~ACCESS OPTION IN ANY
WAY,
AND
ALL
DRIVES UNDER TEST SHOULD BE DE-SELECTED THROUGH THE PORT WHJCH [S
NOT IN USE , OR LOCKED ON THE PORT BEING TESTED.

—_—— —_

—

b d Dt D et D

b D s

WD nany PNIPNIPNOPONININ)
~ b b s
20 oo~ N
AN = OV~
N

CZRMTBO RMOS/3/2 DR (MPT TST

4.6

MEMORY MANAGEMENT

MEMORY

MANAGEMENT

INSTALLED,

4.7

NOT

UTILIZED

THIS

IS DISABLED BY THE PROGRAM,

PROGRAM,

DISABLED BY

THE

MEMORY PARITY OPTION

%023%” MEMORY

4.8

INSTALLED,

MEMORY PARITY

TRAPS ARE

BAD SECTORS

THE LIST OF

DRIVE

BAD SECTORS ON THE

CONSOLE AT THE

CARTRIDGE

TESTED ON THE CURRENT
(SEE

SECTION 6.2)

START OF

IS OBRTAINED

SUBSYSTEM.

THIS

THE FIRST PASS.

LIST

FROM

THE

FIRST

ACCORDING TO A SWIT(H

MAY

TYPED

THE

AFTER READING THE BAD SECTOR

FILE, THE PROGRAM SEARCHES THE LIST OF BAD SECTORS TO DETERMINE IF ANY
BAD SPOTS
EXIST [N ANY TEST AREAS ON THE DISK PACK.
[IF A BAD SPOT IS
F?ENDBET?YEEDPRESENT IN
ANY OF THE TEST AREAS,
THE FOLLOWING MESSAGE
O ~NON NN

)l
—d

—d —d and =

°51

WitL

PACK

IS NOT ACCEPTABLE,

4.9

EXECUTION TIME

THE

TOTAL

5.0

PROGRAM LOAD MEDIA

TIME

REQUIRED

TO RUN

CHANGE

THE

PACK AND

DRIVE

TRY AGAIN.

COMPATIBILITY

PROGRAM

DIRECTLY
PROPORTIONAL
TO
THE
NUMBER
OF
DRIVES
TO
BE TESTED AND
REQUIRES ABOUT 2 MINUTES PER RM03/2 DRIVE AND ABOUT 5 MINUTES PER RMOS
DRIVE, NOT INCLUDING OPERATOR INTERVENTION.

THIS PROGRAM (AN BE

LOADED FROM PAPER TAPE

OR FROM THE ACT OR APT

USING THE

ABSOLUTE

L GADER

SYSTEMS OR FROM ANY MEDIA SUPPORTED BY XXDP.

CZRMTBO RMOS/3/2 DR (MPT TST

MACRO v04.00

4-APR-81

1
H
18:12:15 PAGE 3-3

172

6.0

PROGRAM OPTIONS

174
175

6.1

STARTING ADDRESSES

173

176

200 = THIS IS THE STARTING ADDRESS

177

FOR

DEFAULT

PARAMETERS

AND

RUNNING
OF
PASS
1 AND PASS 2 ON A SINGLE SUBSYSTEM,
THE
PROGRAM WILL USE
DEFAULT
RH/RM BASE
ADDRESS,
INTERRUPT
VECTOR AND PRIORITY. THE PROGRAM WILL ASSUME ALL DRIVES TO BE
TESTED RESIDE ON ONE RH/RM SUBSYSTEM ONLY.

178
179
180

181

182
133

204 = THIS

THE

STARTING

ADDRESS

RUN

PASS

ALL

190

210 = THIS

THE

STARTING

ADDRESS

RUN

PASS

ALL

RH/RM SUBSYSTEMS WHICH RESIDE ON THIS PDP-11 SYSTEM. THE
PROGRAM WILL ASK FOR THE RH/RM BASE ADDRESS,
INTERRUPT
VECTOR, AND PRIORITY FOR EACH SUBSYSTEM ON THIS SYSTEM, AND
IT ASKS FOR THE LETTER NAMES (A THRU
H)
ASSIGNED
TO
ALL
QL?ER
SUBSYSTEMS, AND THE DRIVE(S) WHICH WILL BE TESTED ON

184
185
186
187
188
189

191
192
193
194
195
196
197
198
199

200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215

RH/RM SUBSYSTEMS WHICH RESIDE ON THIS PDP-11
PROGRAM WILL ASK FOR THE RH/RM BASE ADDRESS,

VECTOR FOR EACH SUBSYSTEM ON THIS SYSTEM, AND [T ASKS FOR

THE LETTER NAMES (A THRU KH) ASSIGNCD TO ALL OTHER SUBSYSTEMS,
AND THE DRIVE(S) WHICH WILL BE TESTED ON EACH.

6.2

'SOFTWARE'
IF

SWITCH REGISTER

THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR

THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS
NOT PRESENT AND WILL USE A 'SOF TWARE' SWITCH REGISTER.
THE

'SOF TWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8).
THE
SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTRPOLLED THROUGH A KEYBOARD

ROUTINE WHICH

IS CALLED BY TYPING A

'CONTROL G'.

THE PROGRAM WILL

RECOGNJZE THE ‘CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM
IS AT A HIGHER PRIORITY PROCESSING AN RMBO INTERRUPT.
THE
‘SOF TWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:

'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
DURING SWITCH ENTRY.

216

217

218
219
220

221
222
223
224
225
226
227
228

SYSTEM. THE
INTERRUPT

AND

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THc °SOF TWARE' SWITCH
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1'S IN THE SWITCHES.
ALL SWITCH REGISTER REFERENCES WILL BE TO THE 'SOFTWARC' REGISTER
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED.

6.3

OPERATIONAL SWITCH SETTINGS
WITH ALL SWITCHES SET TO ZERQO, THE PROGRAM wiLL
ALL ERRORS AND CONTINUE TESTING.

TYPE

(ZRMTBO RMOS/3/2 DR CMPT TST

MACRO v04.00

4-APR-81

1
3-¢

[
18:12:15 PAGE

‘@ 0008

229
230
231
232
233
234
235
236
237
238
239

THE

279
280
281
282
283
284
285

SETTINGS

ARE:

BIT

OPTION

HALT ON ERROR
LOOP ON CURRENT TEST
INHIBIT ERROR REPOPTS
REPORT DESCRIPTION ONLY, ON ERRORS
JNUSED
BELL ON ERROR
LOOP ON ERROR
APPLY RANDOM STALL BETWEEN OPERAT]ONS
TYPE BAD SECTOR FILES (BSF'S) AT START

OO
—ad
Lo Role EJ NIV R o

2«0

241

262
263
244
245
246
247
248
249
250
251
252
253
256
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278

SWITCH

06-00

UNUSED

7.0

RUNNING THE PROGRAM

ONCE

THE PROGRAM HAS BEEN LOADED INTO (ORE

¥ZERER02§EM MULTIPLE

THE

INSURE THAT ALL DRIVES
PORT SELECTED.

LOAD THE DESIRED START ADDRESS.

TO BE

SET ANY DESIRED BITS IN

7THE

PRESENT).

START

FOLLOW ALL

THE

(IN

GIVEN

FOLLOWING STEPS MUST BE

8.0

SYSTEMS)

SYSTEM,

TAKEN TO RUN

TESTED ARE POWERED UP AND SINGLE

HARDWARE

SWITCH

(IF

PROGRAM,

INSTRUCTIONS TYPED BY THE

THE
MANUAL
INTERVENTION
REQUIRED,
MULTIPLE SYSTEMS (IF THERE ARE ANY).

PROGRAM

PERTAINING

AND THE ALTERNATE USE

OPERATIONAL DIALOGUE

THIS SECTION DESCRIBES

PROGRAM

DIRECTS

THE

CONSOLE

OPERATOR,

TERMINAL

THE

DIALOGUE

THROUGH WHICH

SELECTION OF

OPTIONS AND

THE

LOADING AND
UNLOADING
OF
DRIVES,
AND
THE
MOVEMENT
OF
TYHE
TEST
CARTRIDGE.
THE EXACT DIALOGUE WHICH IS USFD DEPENDS UPON THE STARTING
ADDRESS WHICH WAS (HOSEN (SEE SECTION 6.1).

IN THE FOLLOWING DISCUSSION AND

THE

PRINTOUT

TEST

RESULTS,

DRIVES TO BE TESTED WILL BE REFERRED TO BY A LETTER AND A NUMBER.
"HE
LETTER IS THE SUBSYSTEM
LETTER
NAME
(OPERATOR
ASSIGNED),
AND
THt
NUMBER
IS
THE DRIVE NUMBER ON THAT SUBSYSTEM.
FfOR EXAMPLE, DRIVE (%
REFERS TO DRIVE 6 ON SUBSYSTEM C.

8.1

DIALOGUE FOR ADDRESS 200 START

CZRMTBO RMO5/3/2 DR CMPT

TST

MACRO v04.00

4-APR-81

1
J
18:12:15 PAGE 3-5
Fo 000¢

286
287
288
289
290
2N
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
3in
312
313
314
315
316
317
318
319
320

321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342

;Gésseg?QAJNG ADDRESS MAY BE USED FOR DEFAULTING PARAME TERS ON ONE

THE PROGRAM FIRST IDENTIFIES ITSELF AS FOLLOWS:
CZRMTBO ~ RM0S/3/2 DRIVE COMPATIBILITY TEST
THEN,
THE PROGRAM ASKS THE DRIVES TO BE
THE PROGRAM TYPES THE
DRIVE LIST, AS IN THE FOLLOWING EXAMPLE
:

TESTED.

DRIVES = 2,5,7<CR>
THE PROGRAM NOW PROCEEDS WITH PASS
MOUNTING OF THE PACK, AS DESCRIBED

1, AND DIRECTS THE
IN SECTION 8.4.

OPERATOR

THE

PLEASE NOTE THAT THERE IS ONLY ONE SUBSYSTEM ON AN
ADR.,
200
STAPT,
AND IT IS NAMED SUBSYSTEM A.
THE DRIVES IN THE ABOVE EXAMPLE WOULD BE
ggggRgED TO AS A2,A5,A7 IN THE TEST RESULTS PRINTOUT
AT
THE
END
OF

8.2

DIALOGUE FOR ADDRESS 204 START

THIS STARTING ADDRESS MUST BE USED ON EACH SYSTEM, WHEN THERE IS
MORE
THAN
ONE
SUBSYSTEM,
BUT
IT MAY ALSO BE USED WHEN THERF IS JUST ONE

SUBSYSTEM (TOTAL), TO SPECIFY DRIVES TO TEST AND NON-DEFAULT PARAME TER
VALUES, FOR PASS 1.
THE PROGRAM IDENTIFIES

ITSELF

AS FOLLOWS:

CZRMTBO - RM0S5/3/2 DRIVE COMPATIBILITY TEST
THEN,

EACH

THE

PROGRAM ASKS THE OPERATOR FOR THE DRIVES

THE

POSSIBLE

TeSTED

SUBSYSTEMS (STARTING WITH A - THE NAMES RANGE

FROM SUBSYS A TO SUBSYS H,

DRIVE ON EACH):

THERE COULD BE UP TO 8 SUBSYSTEMS, WITH A

SUBSYS A DRIVE(S) =
E;OingIL’ERATOR THEN TYPES

THE DESIRED DRIVE NUMBERS,

IN THE

FOLLOWING

SUBSYS A DRIVE(S) = 2,5,7<(R>
THE PROGRAM THEN VERIFIES THE DRIVE NUMBERS
WILL
NEXT,

TEST DRIVE(S)

THE PROGRAM ASKS

TYPING:

2,5.7 ON SUBSYS A,
THE FOLLOWING QUESTION:

IS THERE ANOTHER SUBSYS

(Y OR N)?

THE OPERATOR TYPES 'Y' OR 'N'.
(IF JUST
<CR> IS
TYPED,
THE PROGRAM
ASSUMES
THAT 'N' WAS TYPED).
IF THE OPERATOR TYPED 'N°,
THE PROGRAM
PROCEEDS WITH PASS 1,
AND DIRECTS THE OPERATOR IN THE MOUNTING OF THE

MACRO v04.00

1
K
18:12:15 PAGE 3-6

4-APR-B1

SEQ 0010

PACK,
AS DESCRIBED IN SECT] ON 8.4.
FOR THE NUMBERS OF THE DRIVE S TO BE
(SuBSYS B) AS FOLLOWS:

SuBSYS B DRIVE(S)
THE OPERATOR TYPES

[F 'Y' WAS TYPED, THE PROGRAM ASKS
TESTED ON THE NEXT SUBSYSTEM

THE DRIVE NUMBERS,

[N THE FOLLOWING EXAMPLE:

SUBSYS B DRIVE(S) = 2,3<CR>
THE PROGRAM THEN VERIFIES THE DRIVE NUMBERS.

TYPING:

WILL TEST DRIVE(S) 2,3 ON SUBSYS B.
NEXT,

THE PROGRAM WILL ASK:

IS THERE ANOTHER SUBSYS

(Y OR N)?

AND IN THE SAME MANNER, THE OPERATOR SPECIFIES THE DRIVES ON
THE REMAINING SUBSYSTEMS, UNTIL ALL HAVE BEEN SPECIFIED.

EACH

ALL SUBSYSTEMS MUST BE TESTED IN THE ORDER IN WHICH
THE
LETTERS
ARE
ASSIGNED
(A
THRU H).
NEXT, THE PROGRAM ALLOWS THE OPERATOR TO ALTER
THE RH/RM BUS ADDRESS, VECTOR ADDRESS FOR THIS SUBSYSTEM.
FOR
EAC(H
PARAMETER

THE

CURRENT VALUE

TYPED,

AND

THE OPERATOR IS GIVEN THE

OPPORTUNITY TO TYPE IN A NEW VALUE,
PLUS
<CR>. IF JUST <CR> IS TYPED,
THE PARAMETER IS NOT CHANGED.
WHEN THE PROGRAM IS FIRST LOADED, THE
FOLLOWING DEFAULT VALUES ARE ASSIGNED:
RH/RM BUS ADDRESS = 177670,
VECTOR ADDRESS = 240, (IF 200 START). THE FOLLOWING EXAMPLE SHOWS A
PRINTOUT

RM(CS1
RMVE(

WHICH BUS ADDRESS AND VECTOR WERE

TST

C(ZRMTBO RMOS/3/2 DR CMPT

000000
000

CHANGED:

177670
254

THEN THE PROGRAM PROCEEDS WITH PASS 1, AND DIRECTS THE OPERATOR IN THE
MOUNTING
OF THE PACK, AS DESCRIBED IN SECTION 8.4.
AT THE COMPLETION

OF PASS 1 ON THE SUBSYSTEM, THE PROGRAM WILL INFORM THE
TO PERFORM PASS

8.3

OPERATCR

HOW

ON THE NEXT SUBSYSTEM.

DIALOGUE FOR ADDRESS 210 START

THIS STARTING ADDRESS MUST BE USED ON EACH SYSTEM, WHEN THERE IS
MORE
THAN
1
SUBSYSTEM,
BUT
IT
MAY
ALSO BE USED WHEN THERE IS JUST ONE
SUBSYSTEM
(TOTAL)
,
TO
SPECIFY
DRIVES
TO
TEST
AND
NON-DEFAULT

?Gfiflgsng

VALUES,

FOR

PASS

THE

PROGRAM IDENTIFIES [TSELF, AS

CZRMTBO - RM05/3/2 DRIVE COMPATIBILITY TEST
THE DIALOGUE

THE

204

PARAMETERS AND THE SPECIFICATION OF ALL DRIVES TO
BE
TESTED
ON
VARIOUS
SUBSYSTEMS.
HOWEVER,
AFTER THIS DIALOGUE IS COMPLETED,

THE
THE

START

FOR 210 START

DESCRIBED

ABSOVE

IDENTICAL

TO THE DIALOGUE

FOR

(SECTION 8.2), FOR THE SELECTION OF

SUBSYSTEM

CZRMTBO RMOS5/3/2 DR CMPT TST
400
401
402
4N3
404

406

MACRO v04.00

4-~APR-81

1
L
18:12:15 PAGE 3~7
-EQ 001

PROGRAM PROCELDS WITH PASS 2, AND DIRECTS
OF THE PACK, AS DESCRIBED IN SECTION 8.5.

THE OPERATOR

NOTE THAT SINCE THE APPROPRIATE
PROCESSOR
MUST
BE
STARTING
ADDRESS
FOR
EACH SUBSYSTEM TO BE TESTED,
TEST MAY BE

PERFORMED

8.4

DIALOGUE

IN STEPS,

VARIOUS

TIMES AND

IN THE MOVEMENT

STARTED
AT
THE
THE COMPATIBILITY
BETWEEN

VARIOUS

DISTANT
LOCATIONS,
BY
MOVING
THE TEST PACK AND SAVING THE PRINTOUT
FROM EACH PASS ON EACH PDP-11 SYSTEM INVOLVED.

PASS

AFTER

THE

SELECTION OF

PARAMETERS AND DRIVES HAS BEEN COMPLETED ON THE

CURRENT
SUBSYSTEM (SECTIONS 8.1-8.2),
OF PASS 1 AS FOLLOWS:
xx STARTING PASS 1

NOTE:

THE PROGRAM INDICATES THE START

ON SUBSYS A

THAT SUB=SYSTEM 'A’ IS ALWAYS THE FIRST SUB-SYSTEM TO BE
REGUARDLESS OF HOW MANY SUB-SYSTEMS ARE TO BE TESTED.

TESTEC

NEXT, THE PROGRAM SELECTS
THE
FIRST
ORIVE
TO
BE
TESTED
ON
THIS
SUBSYSTEM,
AND INSTRUCTS THE OPERATOR TO MOUNT THE TEST CARTRIDGE AND
LOAD THE HEADS ON THAT DRIVE, AS IN THE FOLLOWING EXAMPLE:

MOUNT PACK ON DRIVE A2 AND LOAD.
TYPE

<CR> WHEN DRIVE READY.

THE OPERATOR PERFORMS THIS TASK AND TYPES <CR> WHEN THE DRIVE IS READY.
THE PROGRAM PERFORMS PASS 1 FUNCTIONS ON THIS DRIVE (SEE SECTION 9.1)
:gDFénguéNSTRUCTS THE OPERATOR TC UNLOAD THE DRIVE AND REMOVE THE PA(CK

UNLOAD DRIVE A2 AND REMOVE PACK.
TYPE <(CR> WHEN DONE.

THE OPERATOR PERFORMS THESE FUNCTIONS AND TYPES <CR> AFTER
HAS BEEN REMOVED.

444
445

449
450
451
452
453
454
455
456

THE

PA(K

IN THE SAME MANNER, THE PROGRAM INSTRUCTS THE OPERATOR IN THE MOVEMENT
OF
THE
PACK
THROUGHOUT
THE
REST
OF
THE
DRIVES
ON
THE CURRENT
SUBSYSTEM.
WHEN THIS HAS BEEN COMPLETED,
THE
FROGRAM DOES
ONE
OF
THREE

START)

THINGS:

(1)

THERE_

IS
ANOTHER
SUBSYSTEM,
THE
PROGRAM
PASS 1 ON THE NEXT SUBSYS AS FOLLOWS:

*%x STARTING PASS 1

(3)

PROGRAM

SECT.

ONLY

ONE

SUBSYSTEM

THE PROGRAM BEGINS PASS 2 (SEE SECTION 8.5).
DIRECTS

THERE

THE OPERATOR TO PERFORM

ON SUBSYS B

THERE ARE NO MORE DRIVES TO TEST IN PASS 1 ON ANY
DIRECTS

(FROM ADR 200

(2)

THE OPERATOR TO BEGIN PASS 2 ON THE

8.5) AS FOLLOWS:

*x STARTING PASS 2 ON SUBSYS A

FIRST

SUBSYS,

SUBSYS

THE

(SEE

CZRMTBO RM05/3/2 DR (MPT

TST

MACRO v04.00

4-APR-81

M1
18:12:15 PAGE 3-8

SEQ 001,

457
458
459
460
461
462
463
464
465
466
467
468
469

470
47
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486

487
488
489
490
N
492
493
494
495

NOTE:

THAT

SUB-SYSTEM

REGARDLESS OF

8.5

PASS 2 DIALOGUE

THE

OPERATOR RETURNS

'A'

[S ALWAYS

THE

FIRST

HOW MANY SUB=~SYSTEMS ARE

TO THE

FIRST

THE

START OF

PASS

2 BY

PASS 2

EITHER

OR AFTER THE SELECTION Of
IN
ACCORDANCE
WITH
THE

THE ADR 210 START (SEE SECTION 8.3).

PROGRAM INDICATES

TESTED

TESTED.

SUBSYSTEM TO PERFORM

THROUGH
THE
DIALOGUE OF THE ADR 200 START,
PARAMETERS AND DRIVES
HAS
BEEN
COMPLETED

DIALOGUE

SUB=-SYSTEM TO BE
T BE

TYPING:

IN EITHER CASE,

THE

*» STARTING PASS 2 ON SUBSYS A
THE PROGRAM THEN DIRECTS THE OPERATOR IN THE UNLOADING, PACK MOVEMENT,
AND
LOADING
OF ALL DRIVES ON (HE FIRST SUBSYSTEM, IN THE SAME MANNER
AS DESCRIBED FOR PASS 1 (SEE SECTION 8.4).

HOWEVER, AFTER PASS 2 TESTING (SEE
SECTION 9.2)
IS
(GWPLETED
ON
A
GIVEN
DRIVE,
THE
ENTIRE TEST RESULTS FOR THAT DRIVE ARE TYPED.
THE
DETAILS OF THIS
PRINTOUT
ARE
DESCRIBED
IN
SECTION 10,
AFTER
THE
DETAILS OF THE TESTING ARE DESCRIBED.

WHEN PASS 2 HAS BEEN COMPLETED FOR ALL DRIVES ON THE FIRST
SUBSYSTEM,
THE
PROGRAM
DOES
ONE
OF
TWwO
THINGS:
(1) IF THERE IS ONLY ONE
SUBSYSTEM (FROM ADR 200 START) OR IF ALL DRIVES ON ALL SUBSYSTEMS HAVE
BEEN
TESTED
IN
PASS 2
(FROM ADR 210 START), THE ENTIRE TESTING AND
REPORTING HAVE BEEN COMPLETED, AND THE PROGRAM TYPES:
TEST

COMPLETE

KRN ANRANAA AR LN

(2) IF THERE IS ANOTHER SUBSYSTEM, HOWEVER, THE
PROGRAM
DIRECTS
OPERATOR
TO PERFORM PASS 2 ON THE NEXT SUBSYSTEM AS FOLLOWS:

THE

** STARTING PASS 2 ON SUBSYS B

9.0

DESCRIPTION OF

TESTS

THE MAIN FUNCTIONAL BLOCKS OF CODE IN THE PROGRAM
ARE
£
_.GNED
TEST
NUMBERS, FOR THE PURPOSE OF IDENTIFICATION IN ERROR PRINTOUT®,
TEST 0
REFERS_TO THE OPERATOR INPUT DIALOGUE ROUTINES DESCRIRED
IN
SECTIONS

8.1-8.3.

THE

OTHER

DESCRIPTION OF PASS 1

TEST

NUMBERS

ARE

AND PASS 2 TESTING.

ASSIGNED

BELOW,

THE

IN THE FOLLOWING SECTIONS, TABLES
A-G
ARE
REFERRED
TO.
IN
THESE
TABLES, DRIVES ARE NAMED FROM 0-7 FOR ILLUSTRATIVE PURPOSES, ALTHOUGH
THE DRIVES ARE NAMED THE
FOLLOWING
WAY
IN
AN
ACTUAL
SITUATION:

AO,A1, A2,...B0,B1,B2,...C0,C1,C2,...

ETC.

(SEE

SECTION 8.0).

CZRMTBO RMOS/3/2 DR (MPT

TST

MACRO V04.00
9.1

4~APR-81

1
N
18:12:15 PAGE 3-9

DESCRIPTION OF

PASS 1

SEQ 001

TESTS

1,
THE
BASIC
PASS
READ/WRITE
IN
CAPABILITY
OF
EACH
DRIVE
IS
DEMONSTRATED,
AND
(OMPATIBILITY
DATA
PATTERNS
ARE
WRITTEN BY ALL
DRIVES UPON THE SAME TEST CARTRIDGE.
THE

SEQUENCE OF

OPERATIONS PERFORMED ON EACH DRIVE

IS AS FOLLOWS:

TEST 1 MOUNTING
OF
TEST
CARTRIDGE
FOR
PASS
1
=~
THE
OPERATOR MOUNTS THE PACK ON THIS DRIVE AND MANUALLY LOADS THE
HEADS, AS DIRECTED BY THE PROGRAM (SEE SECTION 8.4).

TEST 2 - BASIC READ/WRITE DATA TEST
=~
THE PRCGRAM
PERFORMS
A
WRITE
AND WRITE CHECK OPERATION USING A 'WORST (CASE'' DATA
PATTERN, AT
THE
APPROPRIATE
SECTOR
FOR
THIS
DRIVE
(SEE
TABLE A)
ON_
ALL SURFACES.
THE PURPOSE OF THIS OPERATION IS
T0 VERIFY THE BASIC READ/WRITE CAPABILITY
OF
THE
DRIVE
ON
PASS
1.
THE ENTIRE SECTOR IS WRITTEN WITH THE REPETITION OF
THE DATA PATTERN SHOWN IN TABLE B.

TEST
3 THE
PROGRAM WRITES
ALL
SECTORS FOR THIS
ORIVE WITHIN THE CYLINDER BLOCKS
SHOWN
IN
TABLE ¢
ON
ALL
SURFACES
USING
A
SINGLE
REPEATED
WORD
OQF THE PATTERN IN
TABLE G.
DRIVE O USES WORD O,
DRIVE
1
USES
WORD
1,
DRIVE 7 USES WORD 7, ETC.
THUS, THE DATA
ESETOSQCH DRIVE IS UNJQUE.
TABLE C HAS
BEEN
DETERMINED
AS
IN EACH OF THE SEVEN WRITE
CURRENT
ZONES
ON EACH
SURFACE,
SECTORS
ARE WRITTEN WITHIN TWO DISTINCT CYLINDER BLOCKS.
THE FIRST 16 CYLINDERS OF EACH WRITE
CURRENT
ZONE

IS THE FIRST BLOCK USED FOR WRITE TEST IN PASS 2.

549
550

16 CYLINDERS OF EACH CURRENT
IONE
(EXCEPT
THE
INNERMOST
ZONE)
IS
USED FOR READ TEST IN PASS 2.
WITHIN EACH CURRENT ZONE,THESE TWO BLOCKS
WRITTEN.
HOWEVER, THE SECTORS DESIGNATED
ARE ROTATED FROM ZONE TO ZONE SO THAT THE
DATA APPEARS AT VARIOUS ANGULAR POSITIONS
WITHIN EACH CYLINDER BLOCK, UP
égE?figggNG
ON
THE
NUMBER
OF
l

THE LAST

THE SECOND BLOCK
ARE IDENTICALLY
TO EACH DRIVE
ON THE PACK.

TO
32
SECTORS
ARE
WRITTEN
DRIVES BEING TESTED) ON EACH

THE BASIC LAYOUT OF A TYPICAL
CYLINDER
BLOCK
(S
SHOWN
TABLE D, WHERE THE BLOCK SHOWN IS THE READ TEST BLOCK FOR

ZONE 1, WHICH STARTS ON CYLINDER 112,

AND

HAS

THE

ROTATING

STARTING
SECTOR = SECTOR 0.
EACH NUMBER INSIDE THE BLOCK IS
THE NUMBER OF THE DRIVE WHICH WRITES
THAT
SECTOR.
TABLE D
SHOWS THE BLOCKS WRITTEN BY EACH OF 16 DKIVES.
IF ANY OF THE
DRIVES SHOWN ARE NOT PRESENT, HOWEVER,
THE
BLOCKS
RESERVED
FOR THE MISSING DRIVES ARE SIMPLY NOT WRITTEN.
THE ABOVE PATTERN OF

SECTOR WRITES

INSURES

THAT

DATA

FROM

EACH
DRIVE
IS
WRITTEN
ON ADJACENT CYLINDERS TO DATA FROM
EVERY OTHER DRIVE, IN BOTH
DIRECTIONS.
IN ADDITION,
THE
ROTATION

THE

ABOVE

SECTORS FROM CURRENT

ZONE

TO CURRENT

Q@ 0001

rJRMTB0 RMOS5/3/2 DR (MPT

TST

MACRO v04.00

4-APR-81
JONE
DONE
THE

18:12:5 PAGE

3-10

INSURES 1HAT WRITE TEST AND READ TEST ARE
AT
SEVERAL DIFFERENT ANGULAR POSITIONS WITH RESPECT

CARTRIDGE.

TEST 4 ~ DISMOUNTING OF
TEST
CARTRIDGE
IN
PASS
1
THE
OPERATOR
UNLOADS
THE
DRIVE
AND
DISMOUNTS
THE
PA(K,
AS
DIRECTED BY THE PROGRAM (SEE SECTION 8.%4,,
TO
PROCEED
WITH
THE

9.2

ABOVE

STEPS ON

DESCRIPTION OF

THE

TEST

OPERATIONS PERFORMED BY EACH DRIVE

5 =

MOUNTING

TEST

CARTRIDGE

607
608
610
611
612
613
6id
615
616

617
618
619
620
621
622
623
624
625
626
627

FOR

PASS

THE

TEST 6 = WRTTE TEST
NEXT,
THE
PROGRAM
PROCEEDS
T0
TEST
THIS
DRIVE'S
OVERWRITE
CAPABILITY.
FJRST,
THE
APPROPRIATE
CYLINDERS
IN
TABLE E
FOR
THIS
DRIVE
ARE
OVERWRITTEN,
ON EACH SURFACE.
THE DATA USED IS A REPETITION
OF A SINGLE WORD OF THE PATTERN IN TABLE G,
DRIVE
0

THEN,

DRIVE 7

EACH CYLINDER OVERWRITTEN IS READ BACK

EACH

OFFSET

READ ERRORS

€05

IS AS FOLLOWS:

THE PROGRAM (SEE SECTICN 8.5).

USES
WORD
O,
DRIVE 1 USES WORD 1,
USES WORD 7, ETC.
601

DATA
OTHER

OPERATOR MOUNTS THE PACK ON THIS DRIVE AND MANUALLY LOADS THE
HEADS, AS DIRECTED BY

DRIVE.

FACH
DRIVE
TO
C(OMPLETELY
OVERWRITE
DORIVES
AND TO READ DATA WRITTEN BY ALL

IS TESTED.

SEQUENCE

PASS 2 TESTS

IN PASS 2,THE ABILITY OF
WRITTEN
BY
ALL
OTHER

DRIVES,

THE

DIRECTION (+ AND -).

(DCK HCRC,ETC.)

DURING

THIS

DRIVE

THE PROGRAM SCANS FOR
READ,

AND

ONE

OCCURS,
THE
PROGRAM DETERMINES
WHICH DRIVE'S DATA HAS NOT
BEEN CORRECTLY OVERWRITTEN, AND A SCORE
FOR
THAT
DRIVE
IS

DECREMENTED.

THEN,

THE

TRANSFER

IS CONTINUED AT THE NEXT

SECTOR, WITH THAT OFFSET VALUE.
THE READS ARE DONE WITH
ALL
OF
THE
ABOVE OFFSETS APPLIED, AND A SEPARATE SCORE FOR EACH
DRIVE IS KEPT, WHILE THE
CURRENT
DRIVF
IS
PERFORMING
THE
OVERWRITES.
FOR EACH TRACK , SCORES ARE AVERAGED OVER
ALL CYLS TESTED, IN EACH OFFSET DIRECTION.
AT THE COMPLETION
OF
THE
OVERWRITE
TEST ON THIS DRIVE, THE SCORES Of ALL THE
DRIVES_ARE CONVERTED AND STORED, FOR PRINTING AT THE
END
OF
PASS
¢
(AS
DESCRIBED
IN
SECTION
10.2).
EACH
SCORE
gg?C(E)RTI?fLWE\L TO THE OFFSET IN A GIVEN DIRECTION BY THE CURRENT
WH

SUCCESSFULLY READING THE DATA IT WROTE OVER ONE OF THE
OTHER
DRIVE'S
DATA,
THUS,
THE PRINTOUT REVEALS WHICH DRIVES ARE
INVOLVED, IN A SITUATION IN WHICH A
DRIVE
CANNOT
OVERWRITE
ONE OR SEVERAL OTHER DRIVE'S DATA.
TEST 7 - DRIVE

DRIVE'S

SELF-TEST

ABILITY

THE PROGRAM NEXT

EVALUATES

THE

WRITE AND READ ITS OWN DATA, AT VARIOQUS

POSITIONS ON THE PACK,
FIRST, ALL SECTORS
OF THE
APPROPRIATE
CYLINDERS
SHOWN
IN
TABLE F FOR THIS DRIVE ARE
WRITTEN WITH THE DATA
PATTERN
SHOWN
IN
TABLE B,
FOR
ALL
SURFACES.
THEN,
THE
SECTORS
ARE
READ WITH OFFSET

0 0000

~IRMTBD RMOS5/3/2 DR (MPT

T1S7

MACRO v04.00

4<~APR-81

18:12:15 PAGE

3-11
SEQ 001

628
629
630
63!
632
633
634
635
636
637
638
639
640

IN EACH DIRECTION.

THE

THEN,

THE

SCORES FOR ALL

SECTORS READ

THIS SCORE IS SAVED FOR LATER USE,
THE
READS WHICH ARE TO FOLLOW.

READ,

SELF-TEST

SCORE

FOR

THIS

UP
WITH
A
DRJVE
OFFSET
DIRECTION.

TO BECOME

THIS DRIVE,

AND

TO THE FAILING OFFSET.

THE

TESI 10(OCTAL) - COMPATIBILITY DATA READ TEST

PERFORM THE

STANDARD FOR

HAVING ESTABLISHED

THE PROGRAM PROCEEDS TO

COMPATIBILITY DATA READS OF

THE PATTERNS

WRITTEN

B8Y
ALL
THE DRIVES IN FACH CYLINDER BLOCK (ON SACH SURFACE).
EACH COMPATIBILITY CYLINDER BLOCK SHOWN IN TABLE C IS READ, A
CYLINDER
AT
A TIME IN EACH OFFSET DIRECTION.
THE PROGRAM SCANS
FOR READ ERRORS DURING EACH
READ
PROGRAM
DETERMINES WHICH DRIVE'S

644

645

646
647

INSTANT AND A SCORE FOR THAT DRIVE

TRANSFER

648
649
650
651
652
€53
654

674

DURING EACH

A SCORE WHICH IS PROPORTIONAL

CYLINDER
BLOCK
ARE
AVERAGED,
1O
(OME
SELF~TEST SCORE FOR EACH SURFACE FOR EACH

641
642
643

655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673

PROGRAM SCANS FOR READ ERRORS

COMPUTES

CONTINUED

AND
F
ONE
OCCURS,
DATA WAS BEING READ AT

IS DECREMENTED.

THEN,

THE
THAT

THE

THE NEXT SECTOR, WITH THAT OFFSET

VALUE.
THE READS ARE DONE WITH
OFFSETS
IN EACH DIRECTION.
AND
A SEPARATE SCORE FOR EACH DRIVE IS KEPT, WHILE
THE

CURRENT DRIVE

EACH SCORE

IS READING THE

COMPATIBILITY

DATA,

THEN,

IS APPROPRIATELY ADJUSTED TO REFLECT THE SELF-TEST

SCORE FOR THE
CURRENT
DRIVE
AT
THAT
PARTICULAR
CYLINDER
BLOCK.
THE
SCORES
ARE
THEN
AVERAGED
OVER
ALL CYLINDER
BLOCKS.
EACH SCORE IS PROPORTIONAL 7O THE CAPABILITY OF
THE
CURRENT DRIVE TO SUCCESSFULLY READ THE DATA WRITTEN BY ONE OF
THE

OTHER DRIVES,

SURFACE

(TRACK),

AND

FOR

SCORES ARE

EACH

COMPUTED

OFFSET

SEPARATELY FOR [ACH

DIRECTION.

THUS,

THE

PRINTOUT REVEALS WHICH DRIVES ARE INVOLVED [N A SITUATION
[N
WHICH
A
PARTICULAR DRIVE HAS DIFFICULTY IN READING THE DATA

ONE OR SEVERAL OTHER DRIVES.

TEST 11(OCTAL) =~ TYPE TEST SCORES AND DISMOUNT PACK IN

THE
OVERWRITE
THIS DRIVE ARE

UNLOADS

THE

DRIVE AND DISMOUNTS THE PACK AS DIRECTED BY THE

PROGRAM (SEE SECTION 8.5),
THE NEXT DRIVE.

10.0

PRINTOUT OF

TO PROCEED WITH THE

ABOVE

STEPS ON

TEST RESULTS

THE TEST RESULTS ARE PRINTED AT THE
TESTED.
THESE
RESULTS
PERTAIN

END OF PASS 2 ON EACH DRIVE
BEING
TO
THE
OVERWRITE
TEST
AND
THE

75
676
677
678
679

COMPATIBILITY DATA READ TEST.

681
682
683

THE RESULTS OF BOTH THE OVERWRITE AND OF THE
ARE PRINTED, REGARD OF DEGREE OF SUCCESS. IF
THE MESSAGES:

10.1

PASS

AND
COMPATIBILITY
DATA READ TEST SCORES FOR
CONVERTED
AND
TYPED,
THEN,
THE
OPERATOR

TEST RESULTS
(OMPATIBIL 1Ty DATA READ
THE TEST | S SUCCESSFuL,

0 0003

CZRMTBO RMO5/3/2 DR CMPT

TST

MACRO v04.00

4-APR-81

D 2
18:12:15 FAGE 3-12
SEQ 001

ggz

687

t»

ALL

IS PRINTED.,

DRIVES ARE

THE

TEST IS FAILURE,

ggg

ARE

690
69
692
693
232

IN THE FOL.OWING EXAMPLE,
TESTED
ARE
A0,A1,A2,B0,
SHOWN BELOW:

TRACK

DRIVE

988

701

THE ABOVE

EXAMPLE

706
707

TEST RESULTS

THERE ARE 2 SYSTEMS, AND
THE
DRIVES
BEING
AND
BS5.
THE "EST RESULTS FOR DRIVE Al ARE

SCORES FOR DRiVE A1l:

ggg

;82

THE

TABULAR IN FORM AS SHUWN,

696

702
703

(OMPATIBLE

NO.

READ

OVRWRT

*+ 0

OFST-

REVEALS A

READ

OF ST+

POSSIBLE

OFST-

COMPATIBILITY

READ

OFST»

PROBLEM EXISTS

BETWEEN DRIVES A1 AND A2.
NOTICE THAT ON TRACK O, THAT THE OVERWRITE
SCORES WERE UNACCEPTABLY LOW (0), AND THE PROGRAM NOTED THESE BAD SCORES
WITH AN ASTERISK

().

ALL

ACCEPTABLE

TEST

RESULTS ARE NOT PRINTED.

;83

11.0

ERROR REPORTING

;}?

11.1

COMMON ERRORS

712
713
;}é

THE FOLLOWING IS A LIST OF COMMON ERROR MESSAGES WHICH ACCOMPANY ERROR
TYPEOUTS
FROM THE RM05/3/2 DRIVE COMPATI[BILITY PROGRAM. THE ERRORS ARE
SELF~EXPLANATORY.

;}g

ADDRESS PLUG CHANGE BIT SET

;}g

RH DIDN'T RESPOND TO ADDRESSING

;S?

UNCORRECTABLE MASSBUS PARITY ERROR

;S%

FATAL MASSBUS PARITY FRROR

;gg

PERSISTENT DEVICE UNSAFE

;sg

OPERATION NOT COMPLETED WITHIN TIME LIM]IT

;Sg

DRIVE WENT OFFLINE

;%?

NO RESPONSE TO PORT REQUEST

;g%

HEADER CRC ERROR

;gg

DATA CHECK 'DCK' ERROR

;%9

WRITE CHECK ERROR =~ DATA CHECK

'DCK'

;%g

WRITE CHCKE ERROR - DATA (HECK

°'DCK' NOT SET

;2?

HEADER READ ERROR -

'FMT'

BIT DROPPED

SET

"IJRMTBO RM0S5/3/2 DR (MPT

TST

MACRO Vv04.00

4-APR-81

18:12:15 PAGE

3-13
SEQ 001

742
743
7464

HEADER READ ERROR - HEADER

FORMAT

745
766

OPERATION

752
733
756

755
756
757

PARITY

'PAR'

ERROR

‘'DTE'

‘'OP]'

ERROR AFTER OPERATION STARTED
°'WCF'

INVALID ADDRESS

'IAE'

WRITE

ERROR

LOCK

'WLE'

ERROR

DATA CHECK

'DCK'

SET DURING WRITE

DATA COMPARE

(HECK (OMMAND

TRANSFER ERROR

BUS ADDRESS OR WORD COUNT

769
770
771
772
775
774
775
776
777
778
779
780
781
782

ERROR

CLOCK FAILURE

RH OR UNIBUS

768

INCORRE(CT

ERRORS - NO OTHER ERROR(S)

DETECTED

CAN'T MATCH DATA READ WITH A PATTERN

ERROR BIT(S)

SET, BUT NO ERROR SIGNALED BY THE Rh

ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VAL ID
BUS ADDRESS AND WORD COUNT NUT CONSISTENT
SEEK

INCOMPLETE

'SKI'

ERROR

PROGRAM DETECTED POSITIONING ERROR

DRIVE UNSAFE ERROR

783

795
796
797
798

TIMING

ERROR

INCOMPLETE

DRIVE

WRITE

758
759
760
761
762
763
764
765
766
767

794

'HCE'

MISCELLANEOUS DRIVE

751

‘H(E'

'FER'

HEADER COMPARE

767
748
749
750

784
785
786
787
788
789
790
791
792
793

ERROR

(OMPARE

11.2

ERROR HANDL ING

ERRORS REPORTED BY THE PROGRAM CONSIST OF

COMMON

FAJLURES

RESULTING

FROM
ATTEMPTED
SUBSYSTEM FUNCTIONS, AS WELL AS CERTAIN ERRORS UNIQUE
TO PARTICULAR
TESTS.
EACH
ERROR
PRINTOUT
CONSISTS
OF
AN
ERROR

DESCRIPTION AND TEST NUMBER, POSSIBLY FOLLOWED BY HEADER LINES, COLUMN
HEADINGS,
AND
COLUMNS
OF
REGISTER
CONTENTS
IN
OCTAL.
AS
MUCH
MEANINGFUL
REGISTER
DATA
AS POSSIBLE (FOR EXAMPLE, RH/RM .
STERS,
ARE REPORTED

IN A GIVEN ERROR.

SINGLE DESCRIPTIVE

11.3

LINE.

ERROR PRINTOUT

EXAMPLE

OTHER ERROR REPORTS MAY

(ONSiS.

t ZRMTBO RMOS/3/2 DR (MPT

0005

T1ST

MACRO v04.00

4-APR-81

799

F
18:12:15 PAGE

2
3-14

Eu 0016

800
801
802

RH OR UNIBUS TRANSFER ERROR
DRIVE
RMCS1
RMWC
RMBA
RMDA
000001
144250
174400
0055030 000631

804
805

RMCS2

RMDS

RMERT

RMAS

RMDB

808
809
810

RMMR1
000050

RMDT
024024

RMOF
010000

RMDC
000716

RMMR2
011777

812
813
14

RMER?
000000

RMEC1
004066

RMEC?
000000

806

816
817

g}g
gsg

gsg

824

gzzg

000100 ©10700 000000 000000 0000CO

12.0 TABLE DESCRIPTIONS
12.1

TABLE A - BASIC

READ/WRITE

TEST

ADDRESS OF

DRIVE NO.

SECTORS

SECTOR ON EACH SURFACE

CYLINDER

SECTORS

827
828
829

0
1
2

620
620
620

0
1
2

831
832
833
83
835

4
5
6
7
8

620
620
620
620
620

4
5
6
7
8

830

836
837
838
839
840
841
842
843

Bec

8¢

620

9
11
12
13
14
15

620
620
620
620
620
620
620

12.2 TABLE B - WwORST

gi.g

WORD NO.

850
851
82

0
1
2

854
855

]
5

CASE

DATA

DATA PATTERN

(OCTAL)

066666
155554
13333

066663
165546
133318

9
1
12
13
14
15
10

(REPEATS EVERY 16 WORDS)

TIRMTBC RMOS/3/2 DR (MPT

TST

MACRO v04.00

6
2
18:72:15 PAGE 3-15

4-APR-81

856

866
807
868
869
870
871
872
872
874
875
876
877
878
879
880
881
882

—_—

b e

857
858
859
860
861
862
863
864
865

VNN
—= OO0 NN

SEQ 001¢

72.3 TABLE

066633
155466
133155

066333

154666
131555

063333
146666
115555

033333

C - CYLINDER BLOCK ASSIGNMENT FOR A GIVEN SURFACE

CURRENT
20NE - RANGE

OVERWRITE CYL
BLOCK RANGE

- (YL

0-127

- 384-511

COMPATIBILITY CvL
BLOCK RANGE

cYL 0-15

2 - 128255
3 - 256-383

128-143
256~271

S ~ 512639
6 - 640-767

512-527
640-655

cyL 112-127
240-255
368-383
496-511
624~-639

384-399

7 - 768822

752-767

768-783

883

884
885
886
88/
888
889
890
891
892
893
894
895
8%6
897
898
899
900
901
90¢
903
904
905
906
907

08
909
910
911
912

12.4

TABLE D - BASI{ CYLINDER BLOCK LAYOUT EXAMPLE

CYLNDER

NUMBERS

112

SECTOR NUMBERS
0

116
10
11715
118
5
119
12

11
0
6
13

12
1
7
146

13
2
8
15

121

120

122
123
124
12
126
127

1
3
6

7
2

2
4
7

11
9
8

8
3
15
12
10
9

113
114
115

2
3
5
8

9
4

6
+

4
6
9

5
7
10

6
8
11

7
9
12

14
3
9
0
1

15
4
10
1
2

7
+

8
+

9
+

10
+

4
9
15
6

5
10
0
7

6
11
1
8

7
12
2
9

8
13
3
10

9
14
4
1N

9
7?7
6

6
1
13
10
8
7

&«

12
14
1

13
15
2

14
(0
3

11
6
2
15
13
12

12
7
3
0
14
13

13
8
&
1
15
14

16
9
S
2
0
15

15
10
6
3
1
0

0
11

1
12

2
13

3
1%

&
15

13
11
10

10
5
1
14
12
11

&
2
1

S5
3
2

6
&
3

7
5
&

8
6
S5

15
oo

11
13
0

3
8
14
5

14
+

10
12
15

2
7
13
4

13
+

9
11
1%

1
6
12
3

12
+

8
10
13

0
S5
11
2

11
+

1S
1
&

S5
0

O
2
S

temmjenmctacctccatoentccntreninneinectenstnantennteonatnantanctans

vNwnnnyn—ne—eO—y30ON2NONMOONZNSNN—NCIWMVOI1WZoW7283053812612?3‘164599‘50230150
*[})NeIMTWND-~sysS»>woNA—A—NAA—AA—ANANAA
O
W
O
I
N
I
M
O
I
~
P
I
N
O
N
O
O
D
W
ONN0—00I0M0IAWNONOOwUo>w—-tJ O TNONDOO—OIMO W ~-w! dLa — -

oTAvWIU—NNSOOMVyDNNPS\—TOMNPMINOTN—NOSOROISMNOSRJOVTSR—RWsANNRNAOMINOrsFM—~IRIQ®W1}I>lI@)IR[Ww-4W.>-w[=~7YsYNYM0NIoT“oOTaMLV7&vN]IX8&I0OWY9oN&SvOMs0&TvS1NOA3oW\MkOEsINoWOsN3ElNWyNsROMNWaA[3aNNIlIEDSNAMlAKNN3DIRNNaAAIdALOWeT3RlVAIVTA0BW{a|WaOP>&4tlRIN«[4o7—-2W[->=a.[_—Y+V5—-1|—62—I8‘-B—17O51B40--R~06I13-R95B2‘-N8R73-I—35—Rc02I40O39[
I(F—Q0NJDOWU2—M=NGOLMVN 62738ZIT“O|nNw9nu5n&in AgODoY4NIBwVO=NX)t~MV MONI£12NDIMWON|MINOD=TIN2S0t0W0ON00
O35O3N8TN8M3—2O8O3 EV.JBRPEV]oTRoYoWSNNmSoSRerSASnL -

1 0007
TIRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
4-APR-81
18:12:15 PAGE

3-'6

— (415007582396‘3

— -—

-L)

C(ZRMTB0 RMOS/3/2 DR

C(MPT

TST

MACRO v04.00

4-APR-81

18:12:15 PAGE

3-17

EQ 002°
970
7N
92
973
974
575
976
977
978

28.156,284,412,540,668,796

14
15

31,159,287,415,543,671,799
32,160,288,416,544,672,800

12
13

29.157,285,413,541,669,797
30,158,286,414,542,670,798

979

INN—=O

040135

177070

)

= OV

e
e

e
R

VIS

o
o

070414
064531

13.0 RM SOF TWARE DRIVER DOCUMENT

131

THIS DOCUMENT

IS THE USER'S GUIDE

THE DRIVER:

INITIALIZE

JSR
RETURN

FOR THE RM DRIVER.

PC,RMINIT

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

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

DRVSTA

DRIVE STATE

ONL INE

NONEXISTENT DRIVE
UNSAFE

THE DRIVE TYPE

OFFLINE, DRIVE

IS NOT AN RM05/3/2, OR

IS DEFINED IN AN 8 BYTE LONG TABLE

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

TAGGED 'DRVTYP'.
INDEXED BY

THE

CZRMTBO RMOS5/3/72 DR C(MPT

TST

MACRO v04.00

J
18:12:15 PAGE

4~-APR-81

2
3-18
SEQ 0022

1027

1028
%9
1030
10
1032

DRVTYP
essses

1034

0
5

1033

RMO3

RMOS

-1

18%5

1040

NONEXISTENT DRIVE
RMO2

;8%:

1039

CONDITION
ecocecce--

THE
13.2

10461

1042
1043
1044

'RMINIT'

AFTER

THE

NOT AN RM05/3/2
ROUTINE WILL

DO A READIN PRESET AND WILL

DRIVER HAS BEEN INITJALIZED,

FOLLOWING SEQUENCE.
CALL:

1045

JSR
PNTDPB

RO ,RMO5S

RE TURN1

1046

*DPB (DATA PARAMETER BLOCK)

1052
1053
1054
1055
1056
1057
1058
1059

PNTDPS:

.BYTE
BYTE
BYTE
LBYTE
MWORD
LWORD

0
O
0
O
O
O

BYTE

WORD
.WORD

O
O

.WORD

;(0) DRIVE NUMBZR
(1) OFFSET VALUE OR FMT16, ECT, AND HC]
;(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
JLAST REG. INDEX
:€12) CYLINDER ADDRESS
:(14) ERROR TABLE POINTER
JPOINTS TO THE FIRST OF TWENTY
JLOCATIONS OF WHERE THE DRIVER
;1S TO STORE THE RH/RM
REGISTERS ON AN ERROR. IF LEFT
;ZERO REGISTERS ARE NOT SAVED.
;(16) STATUS/ERROR INDICATOR
:BIT15=1=>ERROR OCCURRED
:BIT07=1=>DONE

;BIT14-RIT09 AND BIT06-8BIT03

}8;;.

1076
1077

;INDICATE TYPE OF ERROR
13.3

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

}853

WITH THE ELAPSED TIME

1080
1081
1082

MOV

#16.,-(SP)

JSR

PC,RMTMR

1083

IS FULL

;OUEUE OR THERE IS AN
JERROR CONDITION

}83(1)

1070
1071
1072
1073

QUEUE

JRETURN |F REOGUEST IS IN

1060
1061
1062
1063
1064
1065
1066
1067
1068
1069

IS CAL_ED USING THE

MAKE THE CALL
;ADDRESS OF DPR»
JRETURN IF

RE TURNZ2

1047
}823

SET FMT16.

IN THE FOLLOWING MANNER:

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

MACRO v04.00

&-APR-81

K
2
18:12:15 PAGE 3~19
SFQ 0023

1084
1085

IT SHOULD BE NOTED THAT YOU MUST PROVIDE THE (ODE 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 OPERATJIONS.

1086
1087

13.4

EXAMPLE - WRITE 1000. WORDS
18:

28:

WRTDPB:

BNRRRAN NS SZ I

D e

D
h

D ed wd

—d —d

D e

D cd e

d =D e

D id
)

) wed

)
D

D md

WA
—

d
b

d e tmd e

d wd wd wd

d ed

)

b wd
—d el md

JSR
WRTDPB
BR

ggg

ggTDPB*16

;CALL THE DRIVER
;DPB ADDRESS
JWAIT FOR QUEUE [F FULL
;WAIT FOR COMMAND TO COMPLETE

BMI

ERROR1

;ERROR OCCURRED

.BYTE

RO,RMOS
1%

;DRIVE #5

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

0
161
0
-1000.
WRTBUF
3
5
400

H
JWRITE COMMAND
H
;WORD COUNT
;BUFFER ADDRESS
JSECTOR
; TRACK
;CYLINDER

. WORD

:STATUS/ERROR INDICATOR

.WORD

ERRT1ZS

;ERROR TABLE

ALTERNATE DPB SETUP

) wd i

d wed e wad

)

D wwmd

D e

d oD amd

d =D oD

T RaAn =3 3RIRIREC28Y

1098

— wd md md

0010

CZRMTBO RMOS/3/2 DR (MPT TST

WRTDPB:

,WORD
.WORD

5
WRITE

;THIS SETUP ACHIEVED
;EVERYTHING THE

.gO?g

gR;BUF

IN A CLEANER FORMAT

.WORD

400,ERRTBS,0

.WORD
.BY

13.5

RH/RM REGISTERS

-1000.

;ABOVE TABLE DID, BUT

CZRMTBO RMCS/3/2 DR CMPT TST
1141
1142

L
18:12:15 PAGE

2
3-20

SEQ 0024

RMSN
RMOF

30
32

1143

RMDC

1145

RMMR?

147

RMEC1

.‘—d—.—l—l—l‘-—.—ld-fl—‘—.—l—l—l-l—l—l—h—l—l—l—d_l—l—l-—l—i—d—‘—l—l—l-fl-‘-fl—ld—.—ldd-‘—‘—.—‘—‘—l—‘—.—h

1144

RMER?

}:g
}g({

RMHR

146

RME(?2

13.6

COMMANDS PZRFORMED BY

46
THE

DRIVER

}gg

COMMAND

CODE

COMMAND TYPE

154
158
156

SEEK
RECAL IRATE

105
107

P
P

OFFSET
RETURN TO CENTER
READIN PRESET

115
117
121

P
P
N

57
58

—l—l-—.—l—l—-‘—lc—l;-—ld—.—l—l—l-.—l—l—ld—ld—‘—.d—l—l-l—d—l—l—l—l—l—C-J.-l—l—‘-ld

DRIVE CLEAR
RELEASE

PACK ACKNOWLEDGE

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

READ DATA
READ HEADER & DATA

123

131
141
143
145
151
153
161
163

P
S
S
S
D
D
D
D

171
173

HOUSEKEEPING
POSITIONING
DATA TRANSFER
SPECIAL PROVIDED BY THE

D
D

DRIVER

‘

DP8 STATUS/ERROR INDICATOR WORD
THIS INDICATOR WIIL INFORM THE USER OF THE RESULTS OF THE REQUEST.
THIS IS ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO

81T NO.

MEANING IF ON A """

S R

13.7

N
N

R R R AN 2B IN VG INUNIITLEAF RS

1Ak
113

ERROR OCCURRED
DONE (BIT07=0); BITS 14=9 SPECIFIES TYPE
DONE (BIT07=1); BITS 6-3 SPECIFIES TYPE

14(1)

USER MADE A REQUEST FOR A FUNCTION TO BE

4-APR-81

nuunn

' 0011

MACRO v04.00

13(1)

USER MADE A REQUEST FOR A FUNCTION

PERFORMED ON AN OFFLINE OR UNSAFE

TO BE PERFORMED ON A DRIVE

DRIVE

THAT HAS AN

)

0017

(ZRMTBO RMO5/3/2 DR (MPT TST

MACRC Vv04.00

4-~APR-81

m 2
18:12:15 PAGE 3-21
SEQ 0025

1198

1200
1503

12(2)
11(2)

1893
183
15%
1508
5%

1511
1212

H
158
1318
158

2
1

153
%%
153
1238
153
153
1520
184
154
1542
1548
1588
1508
1539
1535
1254

DONE

362

1250

1249

4(2)

1555
1952
155
155
15%t
1559

PERSISTENT UNSAFE CONDITION EXIST.
UNCORRECTABLE PARITY ERROR OCCURRED

9(3) (4)
8(4)
6(2)
5(2)

1220

IN QUELE.

FATAL PARITYALLERROR.
MASSBUS
CLEAR AMD
WAS
PERFORMED,
QUEUES A WERE
EMPTIED.
ALL DRVACT'S SET TO THF IDLE STATE
SOF TWARE TIMEOUT OCCURRED ON THIS DRIVE
SOF TWARE TIMEOUT OCCURRED ON ANOTHER DRIVE

10622 ¢4)

UNLOAD REQUEST

ERROR OCCURRED DURING AN 1/0 OPERATON
ERROR OCCURRED DURING AN OPERATION
OTHER THAN 1/0.
CORRECTABLE UNSAFE CONDITION OCCURRED
RIVE ERROR OCCURRED THAT CAUSED AN

T OMAT16 RECAL TORATE Y SE SO
T REQUEST TIMEQUT. THE DRIVER REQUESTED
e DRIVE BT T amposiTe DonY DID NO"
RELEASE THE DRIVE WITHIN 15. SECONDS.
~EXISTENT DRIVE REQUESTED. USER MADE
PyS LR
3 SR

NOTES FOR ABOVE
e
o=
REQUEST WASN'T PUT IN QUEUE. (RH/RM
)
REGISTERS WERE NOT SAVED)
=
REQUEST OUEUE HAS BEEN EMPTIED. THE DRIVER
@
TSSED A T DRIVE CLenk: S0 THEDsRIvEE
NOTE:
ALL RH/RM REGISTERS ARE SAVED
AS PER DPB+14 BEFORE THE 'DRIVE CLEAR''.
=
REQUEST QUEUE HAS BEEN EMPTIED. THE
3
DRIVER ISSUED A MASSBUS INIT. ALL
RH/RM REGISTERS FOR THE DRIVE WERE
SAVED AS PER DPB+14 BEFORE THE INIT.
A "RECALIBRATE'* SHOULD BE ISSUED
“
BEFORE ANY OTHER COMMAND.
13.8

ERROR CALLS MADE BY THE DRIVER.
THERE ARE A FEW ERRORS THAT LAN OCCUR THAT CAN NOT BE INDICATED IN A DPB.

0013

CZRMTBO RMOS/3/2 DR (MPT TST

MACRO v04.00

4-APR-81

N
2
18:12:15 PAGE 3-22

<EQ 0026

1255
1256
}sgg

WHEN THIS TYPE OF ERROR 1S DETECTED BY THE DRIVER
AN ERROR CALL OF THL FORM 'ERROR N'', #HERE 'N'' 1S
NUMBER AND THE ERROK WILL BE AN EMT INSTRUCTION.

1259
1260

IT WILL MAKE
THE ERROR

——

TYPE

DATA AVAILABE

1263
}Sgls'

RH70 INTERRUPT
OCCURRED (RHAS=()

*Rb= RMCS1'S ADDRESS

1266
1267
1268

UNEXPECTED ATTENTION

R1= DRIVE NUMBER
R3= ATA BIT
*R&= RMCS1'S ADDRESS

1261
1262

mmmmenalllllis

0C CURRED

1269
1270
1271

RS= (RMAS)
RMERRS
=RMDS
RMERRS +2=RMER';
RMERRS
+4 =RMER2

1272

}ggz

RMERRS +6=RMMR?

1275

MASSBUS PARITY

RD.ADR= ADDRESS OF

1278
1279

MASSBUS PARITY
ERROR (PAR=1)

WRT.AD= ADDRESS OF REG.
WRT.WD= WORD WRITTEN

1282
1283

ADDRESS PLUG CHANGE
BIT SET ('OPE' ERROR)

R1= DRIVE NUMBER
R3= ATA BIT

}5;9

ERROR (MCPE=1)

}53(1)

1284
1285
1286
1287
1288
}Sgg

THIS

THE

REG. READ

RD.WRD= WORD READ BACK

*R4= RMCS1'S ADDRESS
R5= (RMAS)
RMERRS =RMDS
RMERRS +2=RMER i
RMERRS +4=RMER?
RMERRS +6=RMMR?

;535

1293

RD.WRD= WORD READ

ACTUAL UNIBUS ADDRESS

(176700)

WRITTEN

TST

MAIRO V04.0C

4-APR-B1

18:'2:15 PAGE

¢4

3
SEQ 0027

J*LAST REVISION 04-APR-81

53
54

TITLE

CZRMTBO RM05/3/2 DR (MPT TIST

:*COPYRIGHT (()

1981

;*DIGITAL EQUIPMENT C(ORPORATION
;*COLORADO SPGS., (O. 80919
*

; *PROGRAM BY MIKE LEAVITT
<

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMA(
;*PACKAGE

(MAINDEC-11-DZQAC-(C5),

18-MAR-81

. %

.SBTTL

OPERATIONAL

SWITCH SETTINGS

P N

%
%

.SBTTL

NV OO —=-=NIWHW

%
%
2

0NN
B,

B
%

SWITCH

8,
8¢

0014

CZRMTBO RMOS5/3/2 DR (MPT

HALT ON ERROR

LOOP ON
INHIBIT
INHIBIT
INHIBIT
BELL ON
LOOF ON
LOOP ON
TYPE

TEST
ERROR TYPEOUTS
TRACE TRAP
ITERATIONS
ERROR
ERROR
TEST IN SWR<7:0>

THE BAD SECTOR FILE

BASIC DEF INITIONS

J*INITIAL ADDRESS OF

THE

STACK POINTER wex

001100
104000
000004

STACK
ERROR

000011
000012
000015
000200
177776
177776
177774
177772

PIRQ

000000
000001
000002
000003
000004
000005
000C06
000007
000006
000007

. *GENERAL PgRPOSE REGISTER DEF INITIONS
; ;GENERAL REGISTER
- X
. . GENERAL REGISTER
- X2
; :GENERAL REGISTER
- X3
; ; GENERAL REGISTER
R4
- %4
; ;GENERAL REGISTER
RS
- %5
;:GENERAL REGISTER
R6
- %6
;. GENERAL REGISTER
R7
X7
;;GENERAL REGISTER
SP
- %6
;STACK POINTER
PC
1¥4
; ;PROGRAM COUNTER

177570
177570

SCOPE

= 1100
= EMT
=

;;BASIC DEFINITION OF ERROR CALL
;;BASIC DEFINITION OF SCOPE CALL

s*MISCELLANEOUS DEFINITIONS
= 11
;;CODE
LF
= 12
;. CODE
CR
= 15
;. CODE
CRLF
= 200
;:CODE

PSW=PS

STKIMT

DSWR
DDISP

RO
R1
R2
R3

1700 ==«

FOR
FOR
FOR
FOR

HORIZONTAL TAB
LINE FEED
CARRIAGE RETURN
CARRJAGE RETURN~LINE FEED

= 177776

; ;PROCESSOR STATUS WORD

= 17777«

;o STACK LIMIT REGISTER

= 177772

= 177570
= 177570

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

100000

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

Sw06
SW05
SW04

Sw03

o
TI T I
T
[
T
[
S
T

300
340

;:PRIORITY LEVEL

;sPRIORITY LEVEL
;;PRIORITY LEVEL

100000

40000

20000
10000
4000

2000

100C
400

200

SW07

240

s 'SWITC
SW15
SW14
SW13
SW12
SW11
SW10
SwQ9
SWO8

200

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;«DATA BIT DEF INITIONS
100000

BITO0
=
BIT9=BIT0
BIT8=BIT08

40000

20000

10000
4000

2000

1000
400

200

(BITOO TO BIT15)

NOWNENN
O

AT}
T
| B
T I

PR7

PR6

PRS

PR4

DEFINITIONS
;sPRIORITY
;;PRIORITY
;;PRIORITY
;;PRIORITY
JPRIORITY

TI T

040000
£20000
010000
004C00
002000
001000
000400
000200
000100
000040
000020
00001C
000004
000002
000001
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

&-1

100000

18:12:15 PAGE

:*PRIORITY LEVEL
PRO
- 0
PR]
40
PR2
100
PR3
140

RN
R
R R
R

000140
000200
000240
000300
000340

4-AP R-81

SEQ 0028

—

000000
000040
000100

MACRO v04.00

[=]
(o]

BASIC DEF INITIONS

7ST

CIRMTBO RM05/3/2 DR (MPT

@®

0015

CZRMTBO RMOS5/3/2 DR (MPT

0016

BASIC CEFINITIONS

59
60
61

62
63
65

67
69
70
71
72
73
74
75

77
78

80
81
82
83

85
87
88
91
92
93

TST

MACRO v04.00

4 -APR=-81

000200
000100
000040
000020
000010
000004
000002
000001

BIT17=B] 107
BIT6=81 106
B175=81 105
BIT4=B] T04
BI73=81] 103
BIT2=Bl 102
BIT1=BI 101
BIT0=B! T00

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240

= 4
RESVEC
= }2‘
TBITVEC
TRTVEC
= 14

18:12:15 PAGE

4=2

SEQ 0029

s *BASI( "'(PU"’" TRAP VE(CTOR ADDRESSES

ERRVEC(

=
=
PWRVE{
=
=
EMTVEC
TRAPVE( =

BPTVEC
JI0TVEL

14
20
24
30
34

= 60

TKVEC
TPVEC
PIRQVEC

= 66

.SBTTL

RM REGISTERS

= 240

;. TIME OUT AND OTHER ERRORS

;:B,g,s,eg\fio AND ILLEGAL INSTRUCTIONS
;: TRACE

TRAP

; ;BREAKPOINT TRAP (RPT)
;o INPUT/0UTPUT TRAP (10T,

»«SCOPEw»
; ;POWER FAJL
;JEMULATOR TRAP (EMT) #«ERROR+*»
;2 "TRAP'' TRAP
;:TTY KEYBOARD VECTOR
2:YTY PRINTER VECTOR
; ;PROGRAM INTERRUPT REQUEST VECTOR

; INDEX OF STATUS AND REGISTER WORDS RELATIVE TO FMTDPR
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062
000064
000066

000101
000105

000107
000111
000113
000115

S$TATUS

SRM(CS1
SRMW(
$RMBA
SRMDA
$RMCS2
$RMD
S
$RMER1
$RMAS
$SRMLA
$RMDB
SRMMR1
$RMDT
$RMSN
SRMOF
$RMD(
$RMHR
SRMMR?2
$RMER?
$RMEC1
SRME (2

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

.SBTTL

RM DRIVER COMMANDS

RNOP

= 101

SEEK

RECAL

DRVCLR

RELSE

OFFSET

$TATUS+?2
SRM(CS1+2
SRMU(+2
SRMBA+?
SRMDA+?
SRM(S2+2
SRMDS+?2
SRMER1+?2
SRMAS+?2
SRMLA+?
SRMDB+?2
SRMMR1+2
SRMDT+?2
SRMSN+?2
SRMOF +2
SRMD(+2
SRMHR+?
SRMMR2+?2
SRMER?2+?2
SRME(1+2

= 105
= 107
=1
= 113
- 115

;NO OPERATION

:SEEK
JRECAL IBRATE
.DRIVE (LEAR
JRELEASE
JOFFSET

0017

CZRMTBO RMOS5/3/2 DR
RM DRIVER COMMANDS

95
9%
97
98

(MPY

000117

TST

MACRO v04.00

4-APR-81

RT(

117

;RETURN TO CENTER t INE

143

;SET FORMAT

READIN
ACK
SEARCH
GETREG

=
=
=
=

000145
000151

SELDRV
WCkD

= 145
= 151

103
104

000161
000163

WRTDAT
WRTHD

= 161
= 163

189

000173

RDHD

000143

102

000153

195

108

;98

000171

176700

000254

4=3
SEQ 0030

000121
000123
000131
000141

100
101

18:°2:15 PAGE

SETFMT

WCKHD

RDDAT
ABASE

AVECT1

121
123
131
141

153

171

176700

= 173

= 254

JREAD IN PRESET
;PACK ACKNOWL
E DGE
;SEARCH
;GET REGISTERS

(& ECI

;SELECT DRIVE
;WRITE CHECK DATA
;WRITE

OR H(;)

(HECK HEADER £ DATA

;WRITE DATA
;WRITE HEADER & DATA
;READ DATA

;READ HEADER & DATA

CIRMTBO RMOS5/3/2 DR (MPT

TRAP CAT(HER

MACRO v04.00

4&-APR-81

.SBTTL

000000

18:12:15 PAGE

5§

SEQ 0031

TRAP (AT(HER

.=0

s*ALL UNUSED LOCATIONS FROM & - 776 (ONTAIN A ‘" +2,HALT''

s*SEQUENCE TO CATCH JLLEGAL TRAPS AND INTERRUPTS
000174
000176

:'LOCATION194CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

DISPREG: .WORD
SWREG:

.WORD

.SBTTL

;:SOF TWARE DISPLAY REGISTER

:;SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)

000137

005566

JMP

a#START

;2JUMP TO STARTING ADDRESS OF PROGRAM

000137

005604

JMP

A#START1

; CHANGE

000210

000137

005622

JMP

a#START?2

;SECOND PASS STARTING ADDRESS

[0 NTe
SV, ¥

000200
2
3 000204

.SBTTL

ACT11

THE RH/RM UNIBUS ADDRESS

HOOKS

;:..Itt't.ttt'.fi..t'.tl.'t"fit.Q"t.iQ"".t'fi"."t..tt.t"'t"'

000046

- o

000052

000214
000046

*HOOKS REQUIRED BY ACT11

023544

000052
040000
000214

001100

55!'6’& .

;SAVE PC

iEgng

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

‘WwORD

L _$SVPC

.~1100
.S8TTL
MR

40000

;:2)SET LOC.S2 TO 40000
>

RESTORE PC

APT PARAMETER BLOCK
sl

2222222

2222

222222

RS RR 2T

*SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
; AR

000024
000044

RN AT AR R AN AR

001100
000024
000200
000044
001100
001100

L=,
.=24
200
. Thb

AN RN R

AN AR RN RN AN N O AR AN AANN AN A RN ARSI AN TN AN AR ND

;s SAVE CURRENT LOCATION
::SET POMER FAIL TO POINT TO START OF PROGRAM
:;FOR APT START UP
;sPOINT TO APT INDIRECT ADDRESS PNITR.

SAPTHDR c:POINT TO APT HEADER BLOCK
=.8X
;:RESET LOCAT]ON COUNTER

. tnt'ttnttttttttt.Qt'tttttt'ttttt!tttttntttttttttt"t"n't-o-ntt

:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP'1 DIAGNOSTIC
: INTERFACE SPEC.

8888888
333555

0018

TST

000000
001212
000454
000454
000454
000032
001114

SAPTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:
SUNITM:
TAB

.WORD
.WORD
_WORD
_WORD
.WwORD
.WORD

0
::TWO HIGH BITS OF 18 BIT MA]IBOX ADDR.
$MATL
;;ADDRESS OF APT MAILBOX (BITS Q=-15)
300.
JsRUN TIM OF LONGEST TEST
300.
J;RUN TIME IN SECS. OF 1ST PASS ON 1 UNJT (QUICK VERIFY)
300.
;ADDITIONAL RUN TIME (SE(S) OF A PASS FOR EA(H ADDED UNI”
SETEND-$MAIL/Z2
;.LENGTH MA[{BOX~E
TABLE (WORDS:

“IRMTB) RMOS/372 DR (MPT
TAGS

MACRO Vv04.00

&-APR-B1

18:12:15 PAGE

€

3
$E0 003¢

LSBTTL

COMMON 7 AGS

';"'..i."'.'tt L

AAA R

AR AR RS AR

$*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCAT;ONS

000000
000000
000000

000000
000
001
000000
000000
000000

000000
000000
000000
000000
000
000
000000
177570
177570

177560
177562
177564
177566
000
002
012
000
000000
000000
000000
207
077
015
012

377
000

377

$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
$NULL:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$TMPO:
,WORD
$TIMES: O
$SESCAPE:0
$BELL:
.ASCIZ
SQUES:
.ASCJI
$CRLF:
LASC]!
$LF:
.ASCI2Z

;;START OF

COMMON TAGS

;o CONTAINS THE TEST NUMBER
;. CONTAINS ERROR FLAG
;o CONTAINS SUBTEST ITERATION COUNT
;;CONTAINS SCOPE LOOP ADDRESS
;: .ONTAINS SCOPE RETURN FOR ERRORS
;;CONTAINS TOTAL ERRORS DETECTED
;;CONTAINS ITEM CONTROL BYTE
;. CONTAINS MAX. ERRORS PER TEST
;. CONTAINS PC OF LAST ERROR INSTRUCTION
;:CONTAINS ADDRESS OF 'GOOD' DATA
;. CONTAINS ADDRESS OF 'BAD’ DATA
;:CONTAINS °'GOOD' DATA
;. CONTAINS °'BAD' DATA
; ;RESERVED--NOT TO BE USED
;;AUTOMATIC MODE INDICATOR
;2 INTERRUPT MODE INDICATOR

;;ADDRESS OF SWITCH REGISTER
;;ADDRESS OF DJSPLAY REGISTER

001146
00115C
001151
001152
001154
001156
001160
001162
001164
001166
001170
001171
001172
001173
001174
001176
001200
001202
01206
001207
001210

. WORD
$TSTNM: _RYTE
$ERFLG: .BYTE
$ICNT:
.WORD
$LPADR: .WORD
$LPERR: .WORD
$ERTTL: .WORD
$ITEMB: .BYTE
$SERMAX: .BYTE
$ERRPC: .WORD
$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD
$BDDAT: .WORD
.WORD
.WORD
$AUTOR: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: ,WORD

001140
001142
001144

000000
000
200

.=TAB XY

S(.n

001134
01136

SCMTAG:

o0 [elololelolololalololleleleleololelolo]

—

00
001124
001126
00113C
001131
001132

001114

;:TTY KBD STATUS

;. TTY KBD BUFFER

;:TTY PRINTER STATUS REG.
;sTTY PRINTER BUFFER REG.

ADDRESS
ADDRESS

;s CONTAINS NULL CHARACTER FOR FILLS
;;CONTAINS # OF

e =

NO NN

d bk
—h
ad

;*USED IN THE PR OGRAM,

QO —~MNO

“OMMON

bt
e Tt ok —

0019

TIST

FILLER CHARACTERS REQUIRED

;o INSERT FILL CHARS. AFTER A "LINE FEED"

2 'TERMINAL AVAILABLE'® FLAG (B}T<07>-0-YES)

s :USER DEF INED
;:MAX. NUMBER OF ITERATIONS
. ;ESCAPE ON ERROR ADDRESS

<207><377><377> ;;CODE FOR BELL
/?/
2 ;QUESTION MARK

<15>

;s CARRIAGE RETURN

<12>

J;LINE FEED

';!fi"*'t'fittttttt'lt"it.tt'.tt..'i'ittilt'lt't'tttt"tt't'l"t'

"SBTTL

APT MAJL BOX~E TABLE

':tti.l.i*t"tt. \ A22820222280302
2R 2232222322 RRRARRRR

000000
000000
000000
000000
000000
000000
000000

.EVEN
:
SMAIL
$MSGTY:
$FATAL:
$TESTN:
$PASS:
$DEVCT:
$UNIT:
$MSGAD:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
,WORD

AMSGTY
AFATAL
ATESTN
APASS
ADEV(CT
AUNIT
AMSGAD

;. APT MATLBOX
s :MESSAGE TYPE (ODE
;:FATAL ERROR NUMBER
::TEST NUMBER
; ;PASS COUNT
;:DEVICE COUNT
;o170 UNIT NUMBER
;s MESSAGE ADDRESS

0020

CZRMTBO RM0S/3/2 DR (“PT

APT

MA[_BOX-ETABLE

001230
001232

000000

001233
001234
001236
001240

000
000000
000000
000000

001232

000

TST

MACRO v04.00

&4-APR-81

PMSGLG: .WORD
SETABLE:

SENV:

SENVM:
$SWREG:
SUSWR:
$CPUOP:
i

_BYTE

_BYTE
.WORD
_WORD
.WORD

I
;r

H
3
18:12:15 PAGE 6=1

AMSGLG

AENV

;;MESSAGE LENGTH
;;APT ENVIRONMENT TAR.

; ;ENVIRONMENT BYTE

AENVM ; ENVIRONMENT MODE BIT'S
ASWREG
;;APT SWITCH REGISTER
AUSWR
;;USER SWITCHES
ACPUOP
;.(PU TYPE,QPT]ONS
BITS 15-11=CPU TYPE

i
J*

001242
001243

BIT
BIT

BIT

10=REAL TIME CLOCK
9=FLOATING POINT PROCLSSOR

B=MEMORY MANAGEMENT

SMAMS1:
SMTYPT:

C01244

000000

i
:*
it
$MADR1:

.WORD

AMADR1

900 NSEC CORE=001
300 NSEC BIPOLAR=00?2
500 NSEC M0S=003
;;HIGH ADDRESS,BLKA1

001246
001247
001250
001252

000
000
000000
000

$MAMSZ:
$MTYP2:
SMADRZ:
SMAMS3:

BYTE
.BYTE
.WORD
_BYTE

AMAMS?
AMTYP2
AMADR?2
AMAMS3

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

SMAMS,:
SMTYP4:
SMADR4:
$VECT1:
SVECT2:
$BASE:
$DEVM:
$CDW1:
$CDW2:
$ETEND:

(BYTE
_BYTE
.WORD
.WORD
.WORD
.WORD
_WORD
_WORD
.WORD

AMAMSS
;;HIGH ADDRESS
. M.S.BYTE
AMTYP4
;:MEM_
TYPE ,BLK#%
AMADR4 ; ;MEM.LAST ADDRESS,BLKN4
AVECT1
;;INTERRUPT VECTORA1,BUS PRIORITY#1
AVECTZ2
;.INTERRUPT VECTOR#2BUS PRIORITY#?
ABASE
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
ADEVM
;.DEVICE MAP
ACDW1
;;CONTROLLER DESCRIPTION WORD#1
A(DW?
;; CONTROLLER DESCRIPTION WORD#?

001253
001254
001256
001257
001260
001262
001264
001266
001270
001272
001274
001276

000
000000
000
000
000000
000254
000000
176700
000000
000000
000000

SMTYP3:
SMADRS:

MEXIT

_BYTE
.WORD

AMAMS1
AMTYP1

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

000
000

.BYTE
.BYTE

SEQ 0033

AMTYP3
AMADR3

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

MEM.TYPE

BYTE

(HIGH BYTE,

MEM,LAST ADDR.=3 BYTES,THIS WGRD AND (Ow OF

;. MEM.TYPE ,BLKA#3
;.MEM.LAST ADDRESS,BLK#3

‘‘TYPE’' ABOVE

TST

MATRO v04.00

4&-APR-B1

18:12:15 PAGE

3
SEQ 0034

001332
001334
001336
001340
001342
001344
001346
001350
001352
001354
001356
001360
001362
001364
001366
001370
001372
001374
001376
001400
001402
001404

172540
172542

000104

177546

000100
177777

USER DEF INED

$RMADR:
SRMVEC:
$LK(SR:
$LKCSB:
$LPVEC:
$LKS:
$LLVEC:

176700
. WORD
.WORD
256
172540
.WORD
172542
.WORD
.WORD
104
177546
.WORD
100
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
= SUNIT
.WORD
.WORD

PCLOCK:

177777

CLKFLG:
MZ:
STATIN:

000074
000000
000000
001224
000000

PACK:

DRIVE
ATTN:
UNIT:

000000

000000
000000
000000
000000
000000
000009
000000
000000
000000
000000
000000
000000
000000
000000
000000
000037
000000
001466
000000
000000
000000
000000

LSTAD:
(HGADR:
CFLAG:
TSTNM:

BADSEC:

HOUR:
MINUTE:

SECOND:
SIXTEE:
.
CMCNT
:
tMmCYL
STARS(:
(MSEC:
:
CMTRK
NUL INE :
SECLMT:

TRKLMT
:

CYLIMT:

FAULT:
RSTART:

DTYP:

XXDP:

001326
001330

176700

000254

.SBTTL

. WORD
. WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORC

. WORD
. WORD
.WORD
.WORD
.WORD

QOO OWMOWOOOOOOOONOOCOOO0OO

001276
001300
001302
001304
001306
001310
001312
001314
001316
001320
001322
001324

TAGS
JFIRST

ADDRESS

RH/RM REGISTERS

JVECTOR ADDRESS
;ADDR OF KW11=-P STATUS REGISTER
;ADDR OF KWI11-P COUNTER BUFFER

;ADDR OF
JADDR OF
;ADDR OF

;70"

KW11=P VECTOR
KW11=|. STATUS REGISTER
KW11=L VECTCR

IF KW11=P ]S ON SYSTEM

:'0" IF A CLOCK ]S AVAILABLE

;74

(8)

J'TYPE

60 HZ SYSTEM;

STATISTICS®

INDICATOR

(8)

SO HZ SYSTEM

JENTRY TO THE TABLE D

;DRIVE # STORAGE:

JATTN REG STORAGE:

;DRIVE # STORAGE FOR PRINTOUT

JRETRY COUNT

IN THE UPPER BYTE

;STORE LAST MEMORY ADDRESS HERE
;CHANGE RM/RM UNIBUS ADDRESS FLAG
:"CONTROL C* FLAG

;TEST NUMBER FOR PRINT AND SCORE

RT.

;BAD SECTOR/TRACK FLAG
JHOUR COUNT STORED HERE (MAXIMUM - 999.)
JMINUTE®S COUNT STORED HERE
JSECOND'S COUNT STORED HERE
;TIMER ROUTINE COUNTER (FOR ONE SFCOND:
;JONE COUNT
:CYLINDER ADDRESS
;STARTING SECTOR (FOR TEST 6.8)

;DALTA CYLINDER COUNT

;s TRACK ADDRESS

JNEW LINE FLAG AND COLUMN (TR
;SECTOR ADDRESS LIMIT

;TRACK ADDRESS LIMIT,

RM03/2 = 4.

;CYLINDER ADDRESS LIMIT

AND RMOS

.SBTTL

TABLES,

;CONTAINS PROGRAM RESTARTING ADDRESS
;CONTAINS DRIVE TYPE CODE OF DRIVE BEING TESTED

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

CONSTANTS,

AND VARIABLE

LOCATIONS

;TABLE N
JTABLE _ISTED BELOW SPECIFIES THE SECTORS TO BE WRITTEN
EACH LOGICAL DRIVE WRITES TWO SECTORS ON ONE
;BY A LOGICAL DRIVE.
16 CYLINDERS IN ONE BLOCK, 2 BLOCKS IN ONE WRITE-CURRENT
;CYLINDER
017
000
001
002
003
004

NOWWD

000
001
002
003
004
005

—d
b ek

:ZONE AND 7 CURRENT ZONES IN A PA(K.
001406
001426
001446
001466
001506
001526

001
002

LOGO:
LOG1:
LOG2:
LOG3:
LOG4:
LOGS:

.BYTE
BYTE
.BYTE
BYTE
BYTE
.BYTE

18.

;=1, IF ALL DRIVES NOT COMPATIBLE

J"XXDP' DEVICE CODE THE RMQS5/3/2.

OO0

0021

(ZRMT0 RMOS/3/2 DR (MPT
USER DEF INED TAGS

13.'10-'6p1

11..4 12-0130090014092050708-

LA1.,702012..5018.,4.10.015..3.6.8..9.
12..8.,8.13..6 14..5,11..0.4.7.%..10.
1%5..9..4.14,,7.15..,6.12..1.5.8..10..11.
14..10..5.15..8..0.7.13..2:€.9..11..12.
15..11..6.0.9.,1.8..14..5,7.10 .12..13.

CZRMTBO RMOS5/3/2 DR (MPT

2020

TABLES,

CONSTANTS,

AND

00" 546
001566
001606
001626
001646
001666
001706
001726
001746
001766

006
007
010
on
012
013
014
015
016
017

002006
002010
002012
002014
002054

000000
000000
000000

TST

VARIABLE

005
006
007
010
on
012
013
014
015
016

MACRO v04.00
LOCATIONS

003
004
005
006
007
010
011
012
013
014

00C000

!
|

4-APR-87

18:12:15 PAGE

7-1

SEQ 0035

LOG6:
LOG7:
LOGS:
LOG9:
L0G10:
LOGI11:
LOG12:
L0G13:
LOG14:
LOG15:

.BYTE

6.5,3,0.12.,7.1,10..2.9..15..4.8..11..13..14.

BYTE
BYTE
BYTE

13..12..10..7.5.714..8..1.6..0.6.11..15.22.4"s
14..13..11..8..4.,15..9..2.10..1.7,12.76.3°5"¢
15..14..12..9..5.0,16..5.11..5.8.713.°1.4°6.7

ASNLST:
ASSGN1:
ASSGNZ:
SYSADR:
TABLEX:

L,MCRD
WORD
WORD
BLKW
WORD

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

7.6.4.1.13..8.,5 11..5.10..0°5.9.%12.14. 15
8.,7.5,2,14..9..8,12.°4,11.,1.6,10.,15%.,15.°0
9..8..6,%5.15..,10..4,15..5.15.2277.11..14..0°1
100.9..7,.6,0.11..5.14..6.13..3°8.,12..157.1.2
11..10..8.,5.1,12..6,15..7.14..4,9.,13.,0.5.%
12..11..9..6.2.13..7.0.8.,15..5,10..14..1.3°4

O
0
0
16.
O

;A BIT SET IS AN ASSIGNED LOGICAL DRIVE
:A BIT SET IS AN ASSIGNED LOGICA. DRIVE FOR PASS 1
;A BIT SET IS AN ASSIGNED LOGICAL DRIVE FOR PASS 2
*SUB SYSTEM ADDRESS TABLE
:CURRENT SELECTED SCORE BOARD

:SCORE BOARD TABLES
;TABLE OF OVERWRITE SCORE
. NEGATIVE OFFSET SCORE
002056
002076
002116
002136
002156
002176

000
000
000
000
000
000

OVWNO:
OVWN1:
OVWNZ:
OVWN3:
OVWN4:
OVWNS:

002236

000

OVWN/:

002216

002256
002276
002316
002336
002356
002376
002416
002436
002456
002476

002516

00C

000
000
000
0G0
000
000
000
000
000
000

000

000
000
000
000
000
000
000
000
000
000

000N

000

000
000
000
000
000
000
000
000
000
000

000

OVWNG:

OVWNS:
OVWN9:
OVWN10:
OVWNI11:
OVWN12:
OvwN13:
OVWN14:
OVWN15:
OVWN16:
OVWN17:

OVWN18:

.BYTE

0,0.0,0,0,0,0,0.0,0.0.0.0.0.0.0 ;TRACK C

.BYTE
.BYTE
.BYTE
BY1e
BYTE

0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0
0,0,0.0.0.0.0.0.0.0.0.0.0.0.0.0
0.0.0.0.0.0.0.0.6.0.0.0.0.0.0.0
0,0,0,0,0,0,0,0.0,0,0,0,0,0,0.0
0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0

.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE
BYTE
.BYTE
.BYTE
BYTE
JBYTE

0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 :TRACK i
-TRACK
:TRACK
:TRACK
;TRACK
:1RACK

0.0.0.0.0.0.0.0.0.0.0.C.0.0.0.0 -TRACK
0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 -TRACK
0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 -TRACK
0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 -TRACK
0,0.0.0.0.0.0.0.0.0.0.0.0.0.0.0:TRACK

0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 -TRACK
0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0:TRACK
0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 :TRACK
0,0.0.0.0.0.0.0.0.0.0.0.0.06.0.0-TRACK
0,0,0,0,0,0.9,0.0.0.0.0,0,0,0.0;TRACK

2
3
4
§
6
8
9
10
11
12

13
14
15
16
17

0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 -TRACK 18

. TABLE OF OVERWRITE SCORE.POSITIVE OFFSET SCORE
002536
002556
002576
002616
002636
002656
002676
002716

002736
002756
002776
003016
003036
003056
003076

000
000
000
000
000
000
000
000

000
000
000
000
000
000
000

000
000
000
000
000
000
000
000

000
000
000
000
000
000
000

000
000
000
000
000
000
00C
000

000
000
000
000
000
000
000

OvwP0O:
oOvwPl:
oOvwP2:
oOvwP3:
OvwP4:
OVWPS:
OvwP6:
OvwP?7:

OvwP8:
OvwP9:
OVWwP10:

OvwP11:
ovwP12:
OvwrP13:
OvWP14:

.BYTE

0,0,0,0.0,0.0.0.0,0.0.0,0,0.0.0 :TRACK 0

BYTE
.BYTE

0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 :TRACK 2
0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 :TRACK 3

JBYTE
BYTE
.BYTE

0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 :TRACK S
0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 :TRACK 6
0.0.0.0.0.0.0.0.0.0.0.0.G.0.0.0 :TRACK 7

.BYTE

.BYTE
BYTE
.BYTE
J8YTE
BYTE
JBYTE
BYTE

0.0.0.0.0.0.0,0.0.0.0.0.0.9.0.0 :TRACK &

0.0.0.,0.0,0.0.0.0.0.0.0.0.0.3.0 :TRACK 8
0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0
0.0.0.0.0.0.0.0.€.0.0.0.0.0.0.0
0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0
0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0
0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0

:TRACK
:TRACK
:TRACK
:TRACK
:TRACK

0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 :TRACK

9
10
11
12
13
14

OVWP17:
OVWP18:
TABLE

003216
003236
003256
003276
003316
003336
003356
003376
003416
003436
003456
003476
003516
003536
003556
003576
003616
003636
003656

000
000
009
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000

000
000
000
000
000
000
000
000
020
€00
000
000
000
000
000
000
000
000
000

000
000
000
000
600
000

000
000
000
600
000
000
000
000

RDNO :

_BYTE
.BYTE

.BYTE
.BYTE
OF

READ

BYTE

0.0.0,0,0,0,0.0 0,0,0,0,n,0,0,0 :TRACK
2,0,0,0,0,0,0,0,0,0,0,0,0.0,0,0 ;TRACK

0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;TRACK
0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0 :TRACK
SCORE,NEGATIVE

OFFSET

SCORE

0,0,0,0,0,0,0,0.,0,0,0,0,0,0,0,0 ;TRACK

RDN1:
RDNZ:
RDN3:

BYTE
BYTE
.BYTE

0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;TRACK
0,2,0,0,0,0,0,0,0,0,0,0,0,0.0,0 :YRACK
0.0,0,0,0,0,0,0,0,0,0,0,0.0,0,0 :TRACK

RDN6 :

.BYTE

0,0,0,0,0,0,0.0,0,0,0,0,0,0.,0.,0 ;TRACK

RDNS:
RDNG:
RDN10:
RDN11:

BYTE
BYTE
.BYTE
.BYTE

0.0,0,0,0,0,0,0,0,0.0,0.,0,0,0,0
0.0,0,0,0,0,0,0.0,0,0.0.0,0,0,0
0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,0,0.0,0,1,0,0,0,0.0,0,0.0

:TRACK
;TRACK
:TRACK
;TRACK

RON13:
RDN14:
RDN15:
RDN16:

.BYTE
.BYTE
.BYTE
.BYTE

0.0,0,0,0,0,0,0,0,0,0,0,0.,0,0,0
0.0.0,0,0.0,0,0,0,0,0.0,0,0.0,0
0,0,0,0,0.0,0.0,0.0.0,0,0.0,0,0
0.0.0,0,0,0.0,0,0.0.0,0.0,0.0.,0

:TRACK
:7RACK
;TRACK
:TRACK

RDN& :
RDNS :

RDN? :

RDN12:

RDN17:

BYTE
BYTE
.BYTE

.BYTZ

.BYTE

J
I

OVWP15:
OVWP16:

[0
N[0 RV,]

000
000
000
000

SEG

0.0,0,0,0,0,0,0,0.0,0,0,0,0,0,0 :TRACK
0,0,0,0,0,0,0,0,0,0.0,0,0,0,0.0 ;:TRACK

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.0 :TRACK

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;TRACK

0,0.0,0,0,0.0,0,0,0.0,0.0,0,0.0 :TRACK

000
000
00G
000

3
7-2

00376

000
000
000
000

K
18:12:15 PAGE

—h ek ad wed b ek ek kb D QO NONVNA
WNO NN
O

003116
003136
003156

4-APR-81

000

RDPQ :

RDP1:
ROP2:
ROP3:

.BYTE

BYTE
.BYTE
.B8YTE

RDP4 :

BYTE

RDP6:

.BYTE

RDPS :

ROP7:
ROP8:
RDP9:
RDP10:
RDP11:
ROP12:
RDP13:
RDP14:
RDP1S5:
RDP16:

RDP17:
RDP18:

.BY1E

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYIE

.BYTE
.BYTE
.BYTE

.BYTE
.BYTE

0.0,0.0,0,0.0,0,0,0,0,0,0.0.0.0 ;TRACK

0.0.0,0,0.0,0,0,0,0,0,0.0.0,0.0 :TRACK
0,0,0,0.0,0,0,0,0.0,0,0.0,0.0.0 ;TRACK
0,0,0.0.0.0,0.0.0.,0.0,C.0.0.0.0 :TRACK

0.,0.0,0.0,0.,0.0,0,0.0,0.0,0.0,0 :TRACK

0,0,0,0,0,0,0,0,0,0,0,0.0.0,0,0 , TRACK

0,0,0,0.0.0,0,0.0,0.0,0,0.0.0.0 ;TRACK

0,0.0,0.0,0,0,0,0,0.0.0,0.G.0.0
0.,0.0.0.0.0,0,0,0,0.0.0.0,0.0.0
0,0.0.0,0.0.0,0.0,0,0,0.0,V.0.0
0,0,0,0.0.0,0.0.0.0.0,0.0,0.0.0
0,0,0,0,0,0.0.0.0,.0,0.0.0.0,0.0
0,0,0.0,0,0.0,0.0.0.0,0.9.0,0.0
0,0,0,0,0.0,0,0,0,0.9.0.0,0,0.0
0,0,0,0.0,0.0,0,0,0.2.0.0.0.0.0
0,0,0,0,0.0.0,0.0.0.0.0,0,0.0.0
0,0,0,0.0,0,0,0,0,0,0,0.0,0,0,0

;TRACK
;TRACK
;TRACK
;TRACK
;TRACK
;TRACK
;TRACK
;TRACK
;TRACK
;TRACK

0,0,0,0.0,0,0.0.0,0,0.0.0.0.0.0 ;TRACK
0,0,0,0,0,0,0.0,0,0,0,0.0,0.0,0 ;TRACK

000
000

ek b e d e e b b = D OO NN
O NS W= O

003676
003716
003736
003756
003776
004016
004036
004056
004076
004116
004136

= O

sTABLE OF READ SCORE,POSITIVE OFFSET SCORE

;TABLE OF SELF TEST SCORF
SELFO:

.BYTE

0,0

: TRACK

SELF2:
SELF3:
SELF4:
SELFS:

.BYTE
.BYTE
.BYTE
.BYTE

0,0
0,0
0.0
0.0

. TRACK
: TRACK
: TRACK
s TRACK

SELFY:

.BYTE

0.0

: TRACK

NENANN
- O

0023

(ZRMTBO RMOS/3/2 DR CMPT TST
MACRO v04.00
TABLES, CONSTANTS, AND VARIABLE LOCAT]IONS

0024

CZRMTBO RMO5/3/Z DR (MPT TST

MACRO v04.00

&-APR-81

TABLES, "ONSTANTS, AND VARABLE LOCATIONS
104372
J04374
004376
004400
004402
004404
004406
004410
004412
004414
004416
004420
004422

000
000
000
000
000
000
000
000
000
000
000
000
000

SELF6:
SELF7:
SELF8:
SELF9:
SELF10:
SELF11:
SELF12:
SELF13:
SELF14:
SELF15:
SELF16:
SELF17:
SELF18:
;THE

L
18:12:15 PAGE

3
7-9%

SEQ 0037

.BYTE
.BYTE

0,0
0.0

;TRACK 6
:TRACK 7

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

0.0
0.0
0.0
0.0
0.0
0.0
0.9
0.0
0.0
0.0

: TRACK
:TRACK
STRACK
:TRACK
TRACK
STRACK
:TRACK
:TRACK
:TRACK
$TRACK

.BYTE

START

0.0

LOGICAL

:TRACK 8

9
10
11
12
13
14
15
16
17
18

DRIVE # TO WRITE ON EACH CYLINDER OF A BLOCK

;16 CYLINDERS,Z BLOCKS,1OTAL 32 CYLINDERS IN ONE ZONE
004424

000

004444
004444
004446
004450
004452
004454
004456
004460
004462
004464
004466
004470
004472
004474
004476
004500
004502

004622
004544
004666
004710
004732
004754
004776
005020
005042
005064
005106
005130
005152
005174
005216
005240

004504

000000

001

003

INDST:

BLKADR:

OFFCOD:

.BYTE

0,1.3,6,10.,15.,5,12.,4,13.,7.,2,14.,11.,9..8.

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

DRIVO
DRIV]
DRIVZ2
DRJV3
DRIV4
DRIVS
DRIV
DRIV7
DRIVIO
DRIV11
DRIV1Z2
DRIV13
DRIV14
DRIVIS
DRJV16
DRIV17

;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
sADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
sADDRESS
;ADDRESS
;ADDRESS

.WORD

:OFFSET CODE TABLE

OF
OF
OF
OF
OF
OF
OF
OF
Of
OF
OF
OF
OF
OF
OF
OF

THE
THE
THE
THE
THE
THE
THE
THE
THE
THE
THE
THE
THE
THE
THE
THE

PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER

000
000

004511
004512
004514
004516
004517
004520
006522
004524

000
000000
043456
000
000
000000
004526
000000

004510

000

FMTDPB:

.BYTE
.BYTE

O
0

;DRIVER PARAMETER BLOCK, DRIVE #
;OFFSET VALUE OR FMT16, HCI OR ECI

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

O
0
BUFFER
O
0
O
RM.REG
0

JPSEL, A16 AND A17
;WORD COUNT (NEG)
BUFFER ADDRESS
;SECTOR ADDRESS
s TRACK ADDRESS
;CYLINDER ADDRESS
ADDRESS TO SAVE ALL RH/RM REG'S
s STATUS WORD

.BYTE

FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR

DRIVE
DRIVE
DRIVE
DRIVE
CRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE

sNUMBER FOR NEGATIVE OFFSET (DIR = OUT)
.""IMBER FOR POSITIVE OFFSET (DIR - IN)

;DATA/PARAMETER BLOCK

004506
004507

BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK

; COMMAND (ODE

O
1
2
3
&
S
€
7
10
11
12
13
i4
15
16
17

CONSTANTS,

004526
004530
004532
004534
004536
004549
004542
004544
004546
004550
004552
004554
004556
004560
004562
004564
004566
004570
004572
C04574

AND

vARJABL{

000000
000000
000000
000000
000000
000000
000000
000000
000000

LOCATIONS

&-APR-81

RM.REG:

000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

18:12:15 PAGE

7-4

SEQ 0038
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

. WORD
.WORD
.WORD
-WORD
. WORD

LRM(S?
JRMWC

s RMBA
; RMDA

;RMCS?2
JRMDS
;RMER1
;RMAS

;RMLA
; RMDR

;RMMR1
:RMDT
s RMSN

s RMOF
JRMCA
;RMDC

:RMER2
:RMMR?

.RMEC1

sRMEC2

GENDPR:

.BYTE
.BYTE
.BYTE
.BYTE

.WORD
. WORD

.BYTE

. WORD
-WORD

004616

CYLNDR:

.BLKW

000
000
000
000
177776
004616
000
000
000000
004526
000000

004576
004577
004600
004601
004602
004604
004606
004607
004610
004612
004014

<M
~N O§O°Ofi
[ K=lelela]
P
g
P
[~]

: GENERAL PURPOSE PARAMETER BLOCK

;DRIVER PARAMETER BLOCK, DRIVE #
;01 FSET VALUE OR FMT16, HCI OR ECI
; COMMAND CODE

;PSEL, A16 AND AY7
:WORD COUNT (NEG)
;BUFFER ADDRESS
:SECTOR ADDRESS

; TRACK ADDRESS

;CYLINDER ADDRESS
;ADDRESS TO SAVE ALL RH/RM REG'S
;STATUS WORD

;BUFFER

000001
000002
000003

SFMT
$COMND
$PSEL
SWRDM
$8L°
$SEC
$TRK
$CYL
$SYSNM
SPHYDR
$GAP
SEMTAB

000010
000011
000012
000014
000015
000016
000022

04622
004624
004644

004646
004666

000

001

000

002

000

DRIVO:
.BLKB
DRIV1:
.BLKB
DRIVZ:

sHISTORY FILE FOR 16. LOGICAL DRIVES:(0-17 OCTAL)

TABLES,

MACRO v04.00

0025

TST

lolololololelololololololololelelololel
o]

rZRMIBO RMOS/3/2 DR (MPT

$FM1+1
SFMT+2
$SFMT+3
SFMT+S
SFMT+7
$SFMT+10
$FMT+11
$FMT+13
$FMT+14
$FMT+15
$GAP+4

.BYTE 780,0
$EMTAB-SCOMND
.BYTE 781,0
$EMTAB-SCOMND

.BYTE 782.,0

: COMMAND CODE

;PROT SELECT AND A16,A17

;WORD COUNT
+BUFFER ADDRESS
sSECTOR ADDRESS

s TRACK ADDRESS

:CYLINDER ADDRESS
;SUB SYSTEM A-H

sPHYSICAL DRIVE CODE

SLEFT TWO NULL BYTES
JEND OF MISTORY TABLE

(ASCII

;HISTORY BLOCK OF LOGICAL DRIVE O
;HISTORY BLOCK OF LOGICAL DRIVE 1

¢HISTORY BLOCK OF LOGICAL DRIVE 2

)

004670
004710
004712
004732

004734

004754
004756
004776
005000
005020
005022
005042
005044
005064
005066
005106
005110
005130
005132
$05152
005154
005174
005176
005216
005220
005240
005242

AND VARIABLE

003

000

004

000

005

000

006

000

007

000

00"

000

002

000

003

000

004

000

005

000

006

000

007

000

LOCATIONS

N3
18:12:15 PAGE 7-5

.BLKB
DRIV3:
.BLKB
DRIV4:
.BLKB
DRIVS:

$EMTAB--$COMND
,BYTE 783,0
SEMTAB-S$COMND
,BYTE 784,0
SEMTAB-$COMND
,BYTE 785,0
.BLKB
SEMTAB-SCOMND
DRIV6:
.BYTE 786.0
.BLKB
SEMTAB-SCOMND
DRIV7:
.BYTE 787.0
.BLKB
SEMTAB-$COMND
DRIV10: .BYTE 7810,0
.BLKB
SEMTAB-$COMND
DRIVI1: .BYTE 7811,0
.BLKB_
S$SEMTAB-$COMND
DRIVIZ2: .BYTE 7812.0
.BLKB_
$EMTAB-SCOMND
DRIV13: .BYTE 7813,0
.BLKB
SEMTAB-S$COMND
DRIV14: .BYTE 7814,0
.BLKB_
SEMTAB-SCOMND
DRIV15: .BYTE 7€15,0
.BLKB
SEMTAB-SCOMND
DRIV16: .BYTE 7816.0
.BLKB_
SEMTAB-SCOMND
DRIV17: .BYTE 7817,0
.BLKB
S$EMTAB-SCOMND

;STANDARD DATA PATTERN
005262
005264
005266
005270
005272
005274
205276
005300
005302
005304

005306

005310
005312
005314
005316
005320

005322
005324
005326
005330
005332
005334
005336
005340
005342
005344

066666
155554
133331
066663
155546
133315

STNDAT:

066633
155466

133155
066333
154666
131555
063333
146666

115555
033333

040135
177070
070414
064531

174473
062422
114352

036620
010031
052336

PSEUDO:

.WORD

066666

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

155554
133337
066663
155546
133315
066633
155466
133155
066333
154666
131555
063333
146666
115555
033333

.WORD

040135

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

177070
070414

064531
174473
062422
114352
036620
0710031
052336

Se@ 0039

JHISTORY BLOCK OF LOGICAL DRIVE
;HISTORY BLOCK OF LOGICAL

DRIVE

CONSTANTS,

4-APR-81

TABLES,

MACRO v04.00

JHISTORY 8LOCK OF LOGICAL DRIVE

TST

;HISTORY BLOCK OF LOGICAL DRIVE

0026

CZRMTBO RMOS/3/2 DR (MPT

JHISTORY BLOCK Of

LOGICAL DRIVE

JHISTORY BLOCK OF LOGICAL DRIVE 10

;HISTORY BLOCK OF LOGICAL DRIVE n
;HISTORY BLOCK OF LOGICAL DRIVE 12

JHISTORY BLOCK OF LOGICAL DRIVE 13
sHISTORY BLOCK OF LOGICAL DRIVE 14
JHISTORY 8LOCK OF

LOGICAL DRIVE 15

;HISTORY BLOCK OF LOGICAL DRIVE 16
JHISTORY BLOCK OF LOGICAL DRIVE

£EQ 0027

ZRMIBO RMOS/3/2 DR (MPT TST

TABLES,

(ONSTANTS,

005346
005350
005352
005354
005356
005360

MACRO v04.00

AND VARIABLE LOCATIONS

01730
011347
102367
152567

001246
160073

4-APR-81

8 4
18:12:15 PAGE 7-6
SEQ 004

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

tRROR PCINTER

TABLE

TST

MACRO

v04.00

4-APR-81

18:12:15 PAGE

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE

;*THE

INFORMATION FOR EA(H ERROR THAT (AN OCCUR.

INFORMATION IS OBTAINED BY USING

;*'OCATION SITEMB.

;*NOTE1:

J*NOTEZ:

THE

INDEX NUMBER FOUND

THIS NUMBER INDICATES WHICH ITEM [N THE

SITEMB IS O THE ONLY PERTINENT DATA IS

TABLE

IS PERTINENT.

(SERRP(C).

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

M
DH
DT
DF

005362

“EQ 0041
.SBTTL

D b D
) b —d
AS 1AV 1PNIPNOND
S 14N}
— —s b~
HWN N=2OYONCWVNBWN
=
= OV N NS WA 2

Q@ 0028

"IRMTBO RM0OS5/3/2 DR TMPT

;;POINTS
;:POINTS

;:POINTS
;;POINTS

7O THE ERROR MESSAGE
TO THE DATA HEADER
TO THE DATA
TO

THE

DATA FORMAT

SERRTB:

sERROR 1
005362
C05364
005366
005370

036576
041212
041634
041760

SZ}

;RH CONTROLLER

INTERRUPT OCCURRED

(RMAS 0)

DTY
DF1

;ERROR 2
005372
005374
005376
005400

036635

gfi%

061221
041640

JUNEXPECTED ATTENTION OCCURRED

D12

061761

DF2

JERROR 3
005402
005404
005406
005410

25 005412
26 0056414
27 005416
28 005420

036673
041303
041656
041767

Sfl%

:MASSBUS PARITY ERROR (MCPE 1)

D13
DF3
JERROR &

036731
041334
041666
041772

EMS
DH4
D14
DF&

;MASSBUS PARITY ERROR

(PAR-1)

EM5

sADDRESS PLUG BIT CHANGED

JERROR S
32 005422
33 005424
34 005426
35 005430

036766
041221
041640
041761

DH2
D12

DF2

JERROR 6

39 005432

40 005434
41 005436
42 005440

037022
041376
041700
0w 1760

Ezg

D16

DF
1

JRH CONTROLLER DIDN'T RESPOND

TO ADDRESSING

"IRMTBC RM(QS/3/2

3 0029

(MPT

ERROR POINTER TABLE

50 005446
51 005450
52
53
54
55 005452
56 005454
57 005656
58 005460
59
60
61
62 C0546¢2
63 005464
64 005466
65 005470
66
67
68
69 005472
70 005474
71 005476
72 005500

MACRO v04.00

4~APR-81

&
D
18:12:15 PAGE 8-1

SEQ 004/

:* ERRORS 7 = 12 ARE PART OF

45
46
&7
48 005442
L9 005444

TST

JERROR 7
000000
061407
041704
£00000

0
DH?7
D17
0
JERROR '0

000000
041460
041720
000000
JERROR 11

000000
041531
041734
000000

0
DH11
DTN
0

JERROR 12
000000
041602

041750
000000

0
DM12
DT12
0

THE ‘DUMP'' SUBRC'TINE

ERROR POINTER TABLE

TST

MACRO v04.00

s THIS ROUTINE

011600
005740
022626
104401

000417

005554
005554
005556
005560

000240

005562

000177

D
e

e
— e

&
E
18:72:15 PAGE 9
HANDLES UNEXPECTED

BADTMO: MOV
187
cMP

005516

TYPE

::65%:

643

010046
106402

(SP) ,RO
-(RO)

(SP)+,(SP)+

,658%

;SAVE PC WHERE
;ADJUST PC =2
JRESTORE

STACK

THE

TIME Oul OCCURED

POINTER

::TYPE ASCIZ STRING

648

.sGET OVER THE ASCIZ

MOV

RO,=-(SP)

;SETUP FOR TYPING OUT PC

LASCI2Z

<CRLF>/UNEXPECTED BUS

NOP
173612

TIMEQUTS

TYPOC

JMP

D —d

B (NN = OO 00

2
3 005502
4 005504
5 005506
6 005510
005514

4-APR-81

>EQ 004}

= OO 00

0 0030

(ZRMTBO RMOS/3/2 DR (MPT

.SBTTL

START OF
MQvV
MOV
B8R

TIMEOUT,

PC=/

;PUT 'HALT(0)* INSTRUCTION HERE
;TO STOP ON UNEXPECTED TIMEOUT.

ARSTART
PROGRAM

012737
012737
000414

005566
000400

001400
001334

START:

005604
005612
005620

012737
012737
000405

005604
177777

001400
001334

START1: MOV
MOV
BR

#. RSTART
#-1,CHGADR

;SETUP RESTART ADDRESS
1204 START ADDRESS FLAG

005622

012737
005037

005622
001334

001400

START?2: MOV
CLR

:SETUP RFSTART ADDRESS

005634

000240
005227
001375
000005

005636
005642
005644

START3: NOP

000000

INC
SNE

RESET

LSBTTL

RSTART

#400, CHGADR
START3

START3

RSTART

CHGADR

#0
=4

INITIALIZE

sSETUP RESTART ADDRESS

:200 START ADDRESS FLAG

2210 START ADDRESS FLAG

;TTY LOOP,
*OF WORD

WAIT FOR

INCREMENT

;CLEAR THE WORLD

THE

COMMON TAGS

;.CLEAR THE COMMON TAGS (SCMTAG) AREA

001114

005646
005652
005654
005660
005662

012706
005026
022706
001374
012706

001100

005666
005674
035702
005710
005716
005724

027320
000340
023662
000340
030100
000340
025400
000340
023512
001176
001200
000001

000020
000022
000030
000032
000034
000036
000024
000026
023504

005764

012737
012737
012737
012737
012737
012737
012737
012737
013737
005037
005037
112737

005772
006000

012737
012737

023610
000340

000074
000016

005732
005740
005746
005754
005760

YOU WISH

;JUMP TO RESTART

005566
005574
005602

005630

001154

001131

#SCMTAG,RE
(R6)+

-sFIRSYT LOCATION TO BE CLEARED
;s CLEAR MEMORY LOCATION

MOV
CLR
cMP
BNE
MOV

#SWR ,R6

2 :DONE?

#STACK ,SP

;:SETUP THE STACK POINTER

Moy
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MoV
(LR
CLR

#$SCOPE ,a#10TVEC ;:I0T VECTOR FOR S(OPE ROUTINE
#340,3NI0TVEC+2 ;:LEVEL 7
#SERROR ,QNEMTVEC ;.EMT VECTOR FOR ERROR ROUTINC
#3400, NEMTVEC+2 ;;LEVEL 7
N#STRAP ,@#TRAPVEC ;:TRAP VECTOR FOR TRAP (ALLS
#3640 ,8#TRAPVEC+2;
LEVEL 7
#SPWRDN ,@#PWRVEC ; ;POWER FAILURE VECTOR
#3640 ,9#PURVEC+? ;;LEVEL 7
SENDCT,SEOPCT
;2SETUP END-OF -PROGRAM COUNTER
$TIMES
;o INITIALIZE NUMBER NF ITERATIONS
$ESCAPE
;:CLEAR THE ESCAPE ON ERROR ADDRESS

.~6

JoINITIALIZE A FEW VECTORS

..LO0P BACK [F NO

#1,S$ERMAX
; ALLOW ONE ERROR PER TEST
;;INITIALIZE THE ''T-BIT'' TRAP VECTOR. THEN LOAD LOCATION "'SRTRN'',
;:THE "END-OF -PASS'’ ($EOP) ROUTINE, WITH A 'RT;""
OR 'RTT",
MOVB

Mov

MoV

#SRTRN,a#TBITVEC
#360,9TBITVEC+2

;;SET "'T'" BIT
;LEVEL 7

VECTOR

TO $R'RN

0031

"IRMTBO RMOS/3/2 DR (MPT T1ST
INITIALIZE THE COMMON TAGS
006006
006014
006022
006024
006030
006032
006040
006042
006046
006054
006060
006066
006074
006100
006106
006114
006122

012737
012737
005046
012745
000006
012737
000402
062706
012737
005037

012737
012737
013746
012737
012737
012737
022777

C06130

001012

006132
006134
006140
006142
006150
006156

000403
012716
000002
012737
012737
012637

006162

005037

006166

006174
006176
006204

32
33 006204
006212
35
36

006220
006224
06226
006234

006236
006242

000002
006062

MACRO v04.00

000010
000012
023616
006060
006066

000004
006134

177570
177570
177777

023610
000010

023616
000010
001122
001124

,,AND P(

ggv

zg;r,SRTRN

65%:

668:

ADD

#10,SP

RTT

MOV
CLR
MOV
MOV

MOV

;TRY

THE

JRYT

ILLEGAI.--CLEAN OFF

IRTT

RTT

IS LEGAL--SE)

SRTRN TG A RIT

THE STACK

WRESVEC+2, aRESVEL : ;RESTORE TRAP CATCHER
$TRIT
;:CLEAR T 'BIT SWITCH
#.,SLPADR
;:INITIALIZE THE LOOP ADDRESS FOR SrOPE
#.,SLPERR
;:SETUP THE ERROR LOOP ADDRESS

IF NOT FOUND OR IT IS

BNE

698

;BRANCH IF NO TIMEOUT TRAP OCCURRED

MCV
MOV

CLR

BEQ
MoV
MOV

MOV
-SBTTL

000042

006244

71;23
.SBTTL

001232

000001

001154

000176

#SWREG, SWR

;/ND

THE HARDWARE

SWR

TO SOF TWARE

SWR

;;BRANCH [F NO TIMEOUT
..SET UP FOR TRAP RETURN
::POINT

#D]ISPREG,DISPLAY
(SP)+ ,@#ERRVEC
; RESTORE

$PASS

. CLEAR PASS COUNT

708
#$SWREG, SWR

::YES,USE NON-APT SWIT(H
sNC,USE APT SWIT(CH REGISTER

NAPTSIZE ,$ENVM

#BADTMO,ERRVEC

#PR6,ERRVEC+2

= -1

ERROR VE(TOR

[ TEST USER SIZE UNDER APT

TIMEQUTS

;SETUP FOR UNEXPECTED

:LEVEL 6

OF THE PROGRAM [F FIRST PASS
£-1
;:FIRST TIME?
718
::BRANCH IF NO
#SENDAD ,a#42
JLACT=112
71%
;:BRANCH IF YES

718

LASCIZ

72%

TIMEQUT

IST
BNE

Y (P4
73s

BEQ

738

BNE

GTSWR

movse

;TYPE ASCIZ STRING

‘GET OVER THE ASCIZ

<CRLF>a(ZRMTB0 - RMOS/S/Z DRIVE COMPATIBILITY TSTa<CRLF>

GET VALUE FOR SOF TWARF

(MP

73%:

IS NOT

TYPE PROGRAM NAME

(MPB

104406

001150

68%
#68S, (SP)

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

THE NAME
INC
BNE
(MP
BEQ
TYPE

000042

#DSWR, SWR
#DDISP ,DISPLAY
#-1,3SWR

sSETUP “'TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS

;:TYPE

177777

;.SAVE ERROR VECTOR

;;SET UP ERROR VECTOR

B1718

70$:

SNERRVEC,~(SP)

#67% QHERRVEC

MOV
MoV
(MP

€9%:

000004
000006

000001

; :DUMMY PS

MOV

023544

-(SP)

;.SIZE FOR A HARDWARE SWITCH REGISTER.

68$:

005502
000300

112737

#6648, -(SP)

000176
000174
000004

012737
012737

000403

MOV

67%:

001154

005737
001012
123727
001406
023727
001005

;:SET SRTRN 70 A RT]
;;TRY TO DO A RTT

006142

001234

104401

#RT],SRTIRN
#658 SRESVEC

BR
S?Y

006322
006322
006326
006330
006336
006340
006346
006350
006352
006354

64$:

173024

001233

000427

MOV
MOV

(LR

000004
001154
001156

001220
000200

022737
001432

9-1

;.BEQUAL TO A '*~1'', SETUP FOR A SOF TWARE SWITCH REGISTER.

132737
001403
012737

005227
001036

18:72:15 PAGE

SEQ 0044

006032

000006

4-APR-81

SENV ., ¥
SWR,#SWREG

743

74%

#1,%AU108

SWITCH REGISTER

;s ARE WE RUNNING UNDER XXDP/A(T?
:;BRANCH IF YES

;ARE WE RUNNING UNDER APT?

;JBRANCH IF
;.SOF TWARE

YES

SWITCH REG SELECTED?

:JBRANCH [F NO

;2GET

SOF T-SWR SETTINGS

;sSET

AUTO-MODE

INDICATOR

“IRMTBG RMOS5/3/2 DR (MPY

GET

VALUE

37
38
39

FOR SOf TwARE

63 006374

001160
013737
122737

006376
006404
006412
006414

006420
006424
50 006426
006432

006460
006460
006462
006466
006470
006471
006472
006476

54
55
56
57
58
59 006500
6C 006504
61 006506
006512

006534
62 006534
63 006536
64 006542
65 006544
66 006545
67 00654¢
006552
006636
68 006636
006642

72
73
74
75
76
77
78
79

80
81
82
83

4
G
'B:°2:15 PAGE 9-¢
SE.

748
:

005037

51
52

SWIT(H REGISTER

&-APR-81

JTHE FOLLOWING FINDS OUT THE
;PAPER TAPE (MANUAL), ACT11,

2 006366
44
45
46
7
48
49

MALRO v04.00

006362

TST

006736
006736
006742
006750
006756
006762
006764
006770
006772
006776
0C7002
007010
007014

122737

103002
105037

005737
001425

104401
000412

005046

113716
104403
00
000
104401

000517
005227
001114
104401
000410
005046
113716
104403
001
000
104401

000431
104401

000435

004737
013737
013737
012705
005025
022705
001374
012706

005037
013737
005037
005037

001404
000016

000047

000040
000007

001404
001404

001404
000042

1%:

006434
::76%:
75%:

001404

a#40, XXDP
#7 XXDP
13

BHIS
CLRB
TST
BEQ
TYPE
BR

2%:

::78%:

001404

79%:

006644

:.81%:

030324
030326
4%

004424

001100

XXDP

;NO, DEFAULT TO DRIVE 0
;CHAIN MODE OR ACT11 AUTD A(LCEPT
;BR IF NEITHER

INC
BNE

,76%
75%

;:TYPE

;FéRST

33
.78%
7%

-(SP)
XXppP, (SP)

.BYTE
.BYTE

PROGRAM,

81%

JSR
MOV

PC,STKINT

(LR

MO\
(LR

(LR

DRIVE

0
.80%

,
#STACKSP
PS
HZ,SIXTEE
HOUR
MINUTE

;CLEAR WORD ON STACK
;GET DRIVE ADDRESS
DRIVE ADDRESS

JONLY 1 CHARACTER
;SUPRESS LEADING ZEROS
;o TYFE ASCIZ STRING
;:GET OVER THE ASCIZ
REMOVE

RRDP PACK AND REPLACE

IT/<CRLF>

;o TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

/WITH A WORK PACK,

$RMADR ,RMADR
SRMVEC ,RMVE(
NASNLST
RS
(RS)+
NHINDST
RS
1]

THRU HERE

;. TYPE ASCIZ STRING
:.GET OVER THE ASCIZ

;TYPE

B8R

(LR
(MP
BNE

TIME

CLR
MOVR

MOV
MOV

THE ADDRESS

*GET NUMBER OF DRIVES

#-1

HALT

JONLY 1 CHARACTER
:ggP{egss LEADING ZEROS

<CRLF>/T0 TEST

LASCIZ

DRIVE

;TYPE

0
SCRLF
3s

79%

STRING

;CLEAR WORD ON STA(K
;GET DRIVE ADDRESS

XXDP, (SP)

ASCIZ

..GET OVER THE ASCI/

TESTING

BR
ASCIZ

B8R
LASCIZ

LOAD DEVICE STORAGE

JGET DEVICE INDICATOR AND NUMBER
;$ESIT A VALID NUMBER ?

YLY

MOV

001352

NOT

.BYTE
.BYTE

TYPE

3%:

:ER [F

=(SP)

TYPE

;:808:

(LR

TYPOS

006554

'¥XDP*'

;LOADED FROM AN RM0S/3/2 ?

<CRLF>/NOT

TYPE

77%:

;CLEAR

LASCIZ

006514

001320
001344
001346

MOV
(MPB

TYPE

177777

177776

AXDP
416,344

MOVB
TYPQOS

001207

022754
001276
001300
002006

(LR

CMPS
BNE

PROGRAM CONTRGL MODE:
XXDP (HAIN OR DUMP

CLEAR LOCATION 40 AND RESTART

PROGRAM./<(RLF>

;TURN ON THE KEYBOARD INTERRUPT

;RH/RM ADDRESS

:VECTOR ADDRESS

;START OF

AREA TO CLEAR

;LOOK FOR END Of CLEAR AREA
;BR _IF NOT FINISHED
;SETUP THE STACK POINTER
;CLEAR THE PROCESSOR STATUS WORD

21760 TH OR 1/50 TH SECOND COUNTER VALUE

sCLEAR THE HOUR'S COUNTER
;CLEAR YHE MINUTE'S COUNTER

“JRMTBO RMOS5/3/2 DR (MPT

0033

TST

MACRO v04.00

3" VALUE FOR SOF TWARE SWITCH REGISTER
8 007020
gz 007026

005037
005037

001350
(01336

(LR
(LR

;ROUTINE

89 007030
90 067034

005227
001002

92 007042

013737

91 007036

93 007050
% 007056
35 007060

29 007066

177777

004737

027746

023727
101403
012737

001332

162737

SIZMEM:

030076

G01332

160000

001332

005670

160000

001332

1%:

28%:

18:12:15 PAGE

9-3%

SECOND
CFLAG

SEQ 0046
:CLEAR THE SECOND'S COUNTER
:CLEAR THE *(ONTROL C' FLAG

TO DETERMINE BUFFER AREA S!ZF
INC
BNE

¥-1
18

;SEE IF TIME
‘BR IF NOT

MOV

SLSTAD,LSTAD

-SAVE

CMP
BLOS
MOV

SUB

PC,$SI12E

LSTAD,#160C00
2%
#160000,LSTAD

#1500.+2,LSTAD

100 007074

(04737

012737

021234

177777

030264

}82

SETVEC:

JSR

MOV

;SETUP IF

105 007106
106 007110

107 007112
108 007114
109 007120

110 007126

111 007126
112 007130

}]2 007134

005001
005002

005003
016300
004737

022322
005201
022701

002367

MONTR:

004444
021720

1$:

28:

000007

#<1,SAVEFG

MEMORY

THE LAST ADDRESS

:OVER 28K ?
INO,THEN DON'T SET
-SET NEW LIMIT

THE NEW L IMIT

-SAVE XXDP { OADER AND ASSOLUTE LOADER

;START

THE PROGRAM WILL USE
THE

CLOCK

*SET THE SAVE REGISTERS FLAG

"XXDP' OR ‘*ACT11' OPERATION

(LR
CLR

R1
R2

;DRIVE
*AVAIL

(R$)+, (R)+

* INCREMENT INDEX

CLR
MOV
JSR

R3
BLKADR(R3,R0
PC,CLRDPB

INC
P

R1
#7.R1

8GE

115
116

PC, CKCLK

TO SIZE

*SEE HOW MUCH MEMORY ON SYSTEM

;SET UP THE OTHER SYSTEM DEVICES THAT

185 067100

#
TABLE

INDEX

*DRIVEN X 2
-LOAD DPB ADDRESS
*CLEAR DPB BLOCK

*NEXT DRIVE
‘ALL DRIVE ASSIGN ?

*NO

117
118
19

;ASSIGN LOGICAL DRIVES TO BE TEST IN THE PASS1 AND PASS 2
*THREE WORDS ARE USED IN THE BJT MAPS:
:
ASNLST
= SPECIFIES THF LOGICAL DRIVES ASSIGNED
:
ASSGN1
= SPECIFIES THE LOGICAL DRIVES WILL BE TESTED

122

*EACH LOGICAL DRIVE HAS A HISTORY FILE LABELED DIRV'I (Z-0 10 17)

}Sg

:%50§5 ;75 SYSTEM NAME (A TO H) AND PHYSICAL DRIVE NUMBER

;5?

123

ASSGN2

126

*THE SUB-SYSTEM ADDRESS AND INTERRUPT VECTOR ARE STORED

129

“THE LOCATIONS SYSADR AND SYSADR+2 FOR SUB=SYSTEM A,SYSADR+4

}%}

:IS THE SUB SYSTEM ADDRESS WHILE THE SECOND WORD IS THE VECTOR

JIN THE TABLE LABELED ‘'SYSADR:"'.

130

*AND SYSADR+6 FOR SUBSYSTEM B , ETC,THE FIRST WORD

;%z

*THE LCGICAL DRIVES ARE ASSIGNED FROM CONSOLE KEYBOARD.

135 007136

136
137
138
139

007142
007146
007150
007152

146 007156

012700

012701
005020
020100
101375

012737

002006

MODOO:

004424

000101

001274

MOV

MOV
CLR
CMP
BHI

MOV

IN PASSI.

= SPECIFIES THE LOGICAL DRIVES WILL BE TESTED IN PASS2.

STHE LOCATIONS LABELED $SYSNM AND SPHYRD IN THE HISTORY FILE

gsg

4&-APR-81

NASNLST,RO

#INDST ,R1
(RO) +
R1,R0
1$

#'A,$DW2

:ADDRESS OF

1ST BIT MAPS

IN RO

*LAST ADDRESS TO CLEAR
*CLEAR CURRENT POINTED ADDRESS
*ALL DONE 2
*NO, THEN BRANCH BACK

“TEMP STORAGE OF

SYS “AME

4<~APR-81

[
18:12:15 PAGE

&
9-¢

SEQ 004/

161

146 007176
147 007202
148 007206
OV00 N [« JU PNV
Bl o]

—

)

—

149 007212

007216

007222
007224
007226
007230
007232
007236
007240
007246
C07254
007256
007262
007264
007270
007272
007276
007300
007302

007303

007304
007310
007312
007314
007316
007320
007324
007326

005037
104401
104401
104401
104401
104401
104401

104401

001224
001207
041776
042644
00127¢
062644
042752

MOoD21-

042006

104411

RDL IN
MOV
1STB
BEQ

012601
105711

001437
004537
000751
156237

022737
0C1016
005737
001413

022410

030312

176700

001404

104401

043336

002
000

000724
005201
105711
001404
122721
001316
00C737

JSR

001224

81s8
(M
BNE

001276

001404

123702
001010
104401
010246
104403

043326

TYPOS

.BYTE

TYPE

2%:
000054

:zgflfFSTORAGE OF PHYS]CAL DRIVE BIT MAP

,QUOTM

JTYPE

*''"

JTYPE
:TYPE

' QUOTATION MARK
1 BLANK

JREAD

IN THE

LSCRLF
MESG

.$CDW2
.QUOTM
BLNKS1T
MISG2
(SP)+,R1
(R1)

33
RS,CK.OCT
MOD21

1518

007364
007370
007372
007376
007402
007410
007414
0074620
007426

005737
001416
013700
011037
016037

001224

MOD23:

001272
001276
000002
036300
001276
001300

1%:

3s:

001274
177760

TST

8GT
MOV
8IC
DEC

ASL
ASL
ADD

002014
061272

MOV

001300
000002

TST

BEQ
MOV
MOV
MOV
JSR
Mo

;SUB=-SYSTEM

QUOTATION MARK

JSYS=NAME
(A TO H)

;DRIVE(S)

DRIVE

NUMBERS

JGET THE INPUT LiNE ADDRFSS
JEND OF STRING <(CR> ?
JYES

JCHECK THE DIGIT MUST O TO 7,RETURN VALUE

s INCORRECT DRIVE NUMBER,ENTER AGAIN

IN R?

ATABIT(R2) ,DRIVE
;SET THE PHYS. DRIVE BIT, RZ - DRIVE NUMBER
#176700, SRMADR
;18 };
STANDARD RH/RM ADDRESS 2

Exs rnxs LOAD DEVICE ?
IF
IS }?IS THE DRIVE

,ADRIV

R2,=-(5P)

2
0
LODEV
21
MOD
R1
(R1)

TYPE

DRIVE'

::SAVE R2 FOR TYPEOUT

;.60 TYPE--OCTAL AS(CII
J2TYPE 2 DIGIT(S)
::SUPPRESS LEADING ZEROS

JTYPE

IS LOAD DEVICE®

;TRY AGAIN

Eggg OF STRING <CR> ?
(R1)+

nooé1
18

001334

000406

INC

8EQ
cMP8

005737
003035
013701
042701
005301
006301
006301
062701
010137

004737
013710
013760

DRIVE

TST

BEQ
cMP8
BNE
TYPE
MOV

007330
007334
007336
007342
007346
007350
007352
007354

007360

(LR

TYPE
TYPE
TYPE
TYFE
TYPE
TYPE
TYPE

3% 5T

142
143 007162
144 007166
145 007172

[ 3% 01V, ALY
I [V, 1V, |

0034

TIRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
GET VALUE FOR SOFTWARE SWITCH REGISTER

CHGADR
MOD22
$(DW2,R1
#177760
,R1
R1
R1
R1

‘MUST BE A COMMA

*ENTER AGAIN ,IF NOT
‘LOCATE NEXT DRIVE

:START AT 200 ?
JBRANCH IF SO
;SYS NAME ASCI]

FROM A TO H

JLEFT ONLY 4 BITS
;ADJUST INDEX VALUE
;2 WORD INDEX VALUE

#SYSADR
R

*SYS ADDRESS TABLE ADDRESS

DRIVE

;CHECK IF ANY PHYSICAL DRIVE(S)
:BRANCH IF NONE
2SYS ADDRESS TABLE ENTRY

R1,$CDW1

2%
$CDW1,RO

(RO)
, SRMADR

2(RO) ,SRMVE(

PC,BUSADR

$RMADR, (RC)
,
2 RO)
$RMVE(
MOD11

27SYS ADDRESS TABLE'S ENTRY 70O CDW
ASSIGNED

:7SYS ADDRESS
: SYS VECTOR
¢ CHECK THE ADDRESS WITH THE OPERATOR
sNEW RH/RM ADDRESS
INTQO TABLE
JNEW VECTOR OF RH/RM [NTO TABLE
JBRANCH TO NEXT MODULE

199
196 007630
197 007436
198

002014
002016

;$CDW?

199

- ed 2D D

—

AN 1AV 1,01,V 1,V7,81, ¥ ~no

200
201
202
203
204
205
206 007444
207 007450
208 007452
209
210 007456
00r464
2 007466
3 007472
4 007476

5 307500

6 007502
7 007504

007506
007510
007512
007516
007520
007524
224 007532
225 007536
226 007542
227 007546
228 007550
229 007558
230 007560
231 007562
232 007566
233 007570
234 007572
235 007574
236 C07600
237 007606
238 007614
239 007622
240 007624
241
262 007624
243 007630
264 007632
245 007640
246 007642
247 007646
248 007652
8
219
220
221
222
223

249 007654
250 007660
251 007664

MOD22:

;DWW

;DRIVE

&=APR-81

&
J
18:12:15 PAGE 9-5

SEQ 0048
MOv

MOV
"wan

rfIRMTBO RM0OS/3/2 DR CMPT TST
MACRO VC4.00
GET VAIUE FOR SOF TWARE SWITCH REGISTER

$RMADR, SYSADR
;LOAD THE SYSTEM ADDRESS TABLE
SRMVEC,SYSADR+2 ;LOAD THE VECTOR

ASCI] NAME OF SUB SYSTEM (A TO H)
ENTRY TO THE SYS ADDRESS TABLE

PHYSICAL

DRIVES

TO BE ASSIGNED

ITHIS SECTION OF CODING USES THE ABOVE PARAMETERS
;TO SET UP THE BIT MAP OF ASNLST,ASSGN1,ASSGNZ

005727
001002
000137
022737
001457
013700
012701
005002
030100
001406
000241
006101
103445

062702
000770
016204
113764
050137
050137
050137
005002
136237
001005
005202
020227
003770
000415
110214
111464

152764
112764
146237
001315

005737
003100
022737
001474
1044601
104401

005003
012704
030437
001421

001224

MODi1:

1ST
BNE
JMP

MGCD30:

cMP
BEQ
MOV
MOV
CLR
8IT
BEQ
cLe

007624
177777

002006

002006
000001
18

ROL

000002

004444

001274

002006
002010
002012

030312

000014

001224

2s:

3s:

4%:

000015
000016
001224
5%:

001334
177777

042651
042006
000001
002006

MOD12:
002006

MOov8

8IS
BIS
8IS

000007

000015
000060
000011
030312

8(s
ADD
BR
MOV

1%:

2%:

3%:

CLR
Bl118
BNE
INC
e
BLE
BR
MOVB
MOVB
Bis8
MCvB
BICA
BNE
TST

BGT
cMP
BEQ

TYPE
TYPE

(LR
MoV

BIT
BtQ

MoD 30
MoD 12

DRIVE

;ANY DRIVE ASSIiON ?
JBR IF YES
If NONE
;BRANCH,

#=1,ASNLST

;g£v§FA5%516 LOGICAL DRIVES BEEM ASSIGNFD °

5%
ASNLST RO

#1,R1

R
R1,R0

SFOUND THE AVAILABLE LOGICAL DRIVE LOCATION
*START FROM LOGICAL DRIVE 0
“INDEX VALUE
;igsrus LOGICAL

DRIVE

AVAILABLE

sNEXT LOGICAL DRIVE
sBRANCH IF NONE 1S AVAI' ABLE
#2,R2
; INCREMENT INDEX VALUE
18
SLOCATE NEXT LOGICAL DRIVE
)
,R4
BLKADR(R2
;GET THE LOGICAL DRIVE'S HISTORY FILE
$CDOW2, $SYSNM(R4)
JLOAD THE ASCI] SYS NAME
R1,ASNLST
;SET LOGICAL DRIVE ASSIGN BIT
5%

R1,ASSGN1
:SET PASS 1 BIT
R1,ASSGN2
;SET PASS 2 BIT
R2
;DRIVE #
ATABIT(R2) ,DRIVE
;1S THIS DRIVE ASSIGNED ?
43
:BR IF YES
JPHYSICAL DRIVE NUMBER

;ALL DRIVES DONE YET ?
;BR IF NO
cYES., EXIT
RZ2, (R4)
;LOAD THE PHYSICAL DRIVE # INTO HISTORY FILE
(R4) ,SPHYDR(R&) :GET PHYSICAL DRIVE NUMBER AND
#'0,3PHYDR(R4)
;MAKE IT ASCII.
#HT ,SGAP(R%)
JMAKE UP FOR SCORE TYPE
ATABIT(RZ) ,DRIVE
;DEASSIGN DRIVE BIT FROM L!ST
MoD 30
;BRANCH IF NOT ALL DONE
CHGADR
7%

#-1,ASNLST

,MESGS
MESGZ

#1,R4
R4 ,ASNLST

;200 START ?

SYES,THEN EXIT

JFULL HOUSE
JYES,THEN EXIT
JWILL TEST
;DRIVE(S)
JINDEX TO LOGICAL DRIVE HISTORY FILE
sBIT MAP OF ASNLST
:zgslfiNED LOGICAL DRIVE ?

CZRMTBO RMOS5/3/2 DR (MPT

GET VALLCZ

FOR SOFTWARE

TST

SWITCH REGISTER

252 007666
253 007672
256 007700
255 007702
256 007704
257 007706

016305
126537
001005
111546
104403
001

004444
(000014

259 007710
260 007714
261 007720
262 007722
263 007724
264 007726

104401
062703
000241
006104
103401
000754

042752
000002

266 007734
267 007740
268 007744

104401
104401
104401

258 007707

265 007730

000

104401

042664

59(9) 007750

104401

042644

271 C07754
272 007760
273 007766

005237
122737
103421

0C1274
000110

275 007774
276 010000
277 010002
278 010006
279 010014
280 010016
281 010022
282 010026
283 010032
284 010036
285 010040
286 010044

104401
104410
012637
023727
001004
104401
000137
104401
005737
001402
000137
005037

042670

274 007770

ggg 010050

104401

000137

MACRD v04.00

&4-APR-81

001274

58%:

041776
042644
001274

001207

001174
001174

TYPE
ADD
CLC
ROL
B(CS
BR

,BLNKS1
#2,R3

sTYPE 1 BLANK
; INCREMENT TO NEX7 LOGTCAL DRIVE

R4
Y ]
3s

;BIT MAP OF THE NEXI LOGICAL DRIVE
JBRANCH IF ALL LOGICAL DRIVE'S CHECKED
sBRANCH BACK

TYPE
TYPE
TYPE

MESG1
.QUOTM
.$CDW2

;SUB SYSTEM
STYPE " QUOTATION MARK
; ATOH

INT
CMPB
8LO

$COW2
#'H,8C0W?
7%

;CHECK NEXT SUB SYSTEM
JALL EIGHT SUB SYSTEMS (HECKED?
JYES

TYPE
RCCHR
MOV
M
BNE
TYPE
JMP
TYPE
TST
BEQ
JMP
CLR

JMESG?7

;ASK FOR OTHER SUB SYSTEM
SJREAD IN A LINE
;GET INPUT CHARACTER
;1S IT INPUT °YES® ?
:BR IF NO
;TYPE *'Y' CHARACTER
;SET UP OTHER SUB SYSTEM
;TYPE "N’ CHARACTER
;START AT 210
;YES ,EXECUTE PASS2 ONLY
:TO PASS1
sCLEAR THE PASS! BIT mAP
;BRANCH TO PASS2

TYPE

000131

042741
007162
042744
001334

6$:
7$:

010054
002010
012460

8%:

SEQ 0049

BLKADR(R3)
,RS ~ ;LOAD THE HISTORY FJLE ADDRESS
$SYSNM(RS) ,$(DW2
ON THE SAME SYSTEM ?
31
JNO
(R5),=(SP)
;TYPE THE PHYSICAL DRIVE #

TYPE

001274

MOV
(MPB
BNE
MovB
TYPOS
BYTE

RYTE

4%:

18:12:15 PAGE 9-6

JMP

JMESG6

.QUOTM

.SCRLF

(SP) +,$TMPQ
STMPO . #'Y
6$
LY
MOD21
N
CKGADR
8%
XPASS1
ASSGN1
XPASS2

;ON

JTYPE

*''

QUOTATION MARK

;CR=LF

289

;PASS ONE, THE VARIABLES ARE ASSIGNED AS FOLLOWS:

291

290
292
293
294

295
539

$(DW1

= ADDRESS OF THE CURRENT LOGICAL DRIVE HISTORY FILE

:
H
;

$DEVM
ASNLST
ASSGN1

= CURRENT LOGICAL DRIVE #
= ASSIGNED LOGICAL DRIVES
= ASSIGNED LOGICAL DRIVES IN THIS FASS

XPASS1:

TST
BNE
JMP

ASSGN?
13

sANY DRIVES ASSIGNED FOR PASS1
;BR IF YES, ELSE GO TO

CLR
MOV
MOVR
MOV
MOV
MoV
MOV

$DEVM
BLKADR, $CDW1
#'A,$CDW2
SYSADR,RMADR
SYSADR+2 ,RMVEC
$CDW1,R1
#IDLEX,aRMVEC

s INDEX OF LOGICAL BLOCK
sADDRESS OF LOGICAL BLOCK O
2SYS NAME STARTS FRGM A
sLOAD SYS-TEM A INTO
;DIRVER-HANDLER
;R1=ADDRESS OF LOGICAL BLOCK 1
;RESET ALL INTERRUPT VECTOR

:
:

298 010054
299 010060

005737
001002

002010

000137

011004

302 010066
303 010072
304 010100
305 010106
306 010114
307 010122
308 010126

005037
013737
112737
013737
013737
013701
012777

001270
004444
000101
002014
002016
001272
017444

% 010062

;

001272
001274
030324
030326
020172

1$:

$CDW2

RO
R1

= SYSTEM NAME A THROUGH H

= ADDRESS OF DPB BLOCK FEEDED INTO DRIVER-HANDLER
= TEMP STORAGE OF ADDRESS OF THE LOGICAL BLOCK

ENDX1

JEND OF PASS 1

TZRMTBO RMOS5/3/2 DR (MPT TST
MACRO V04.00
GETM VALUE FOR SOF TWARE SWITCH REGISTER

205077

104401
104401
104401
1046407
104401
1046401
104401
111137

104401

104401
104401
113746
104403

001
000
104401
104601

328
329
330
331
332
333
334
335
336

C10240
010244

010250
010252
010254
010256
010260
010264
337 010272
338 010300
339 010304
340 010310
241 010312
342 010316
343 010320
344 010326
345 010334
346 010342
347 010344
348
349 010352
350 010356
351 010362
352 010370

353 010376
354 010404

355 010412
356 010420
357 010424
358
359 010432

360 010436
361 010440
362 010442
363 010446
364 070450
365 010452

104401
104401
104401

1046411
012602
105712
001374
004737

012737
012737
013700

105760
003467
105760

003464
116037
012737
122760
001403
012737

020170
001207
042021
042664
041776

(LR

TYPE
TYPE
TYPE
TYPE
TYPE
MovB

001274

042644
001224
001207
0642045
001274
001224

TYPE
TYPE

TYPE
MOVB
TYPOS

.BYTE
.B TE

042752
042073
001207
042106
042752

TYPE
TYPE
TYPE
TYPE
TYPE

2%:

177777
177777
001224
030206

030266

1STB

BLE

030216

1S18

030216
000022
000007

001402
001372
030216

000004

001372

BLE
MOV8B
MOV
CMPB
8EQ
MOV

012700
113710
012760
012760
012760
013760
113760
105060

004506
001224
043456
004526
177400
001374
001372
000010
000171

004037
004506
000774
005737
001775

031062

4%:

004524

5%:

062737

000002

112760

100015

RDLIN
MOV
1STB

BNE
JSR
MOV
MOV
MOV

030264

3s:
000006
000014
000004
000012
000011
000002

004516

4
L
18:'2:15 PAGE 9-/

SEQ 0950
TYPE
TYPE

042644

030334

«-APR-81

ARMVE(
+2

LSCRLF

MESG3

-MESG6
MESG1
,QUOTM

.$CDW2

.QUOTM

(R1) ,DRIVE

+SCRLF
.MESG4
. $CDW2

DRIVE,~(SP)

sCLEAR THE

. CR=LF

INTERRUPT LEVEL

;%% STARTING PASS 1
;ON
. SUB=SYSTEM

JTYPE "' QUOTATION MARK
(A TO H)
;SYS-NAME
JTYPE ' QUOTATION MARK

:%gAEFTHE PHYSICAL

DRIVE #

JMOUNT PACK ON THE DRIVE

(A -~ H)
;SYS=NAME

;TYPE

THE

JTYPE

1 BLANK

DRIVE

0
BLNKS1

.MESG8

+SCRLF
.MESGS
,BLNKS1
(SP)+ ,R2

(R2)
2%

PC,RMINIT
#-1,SAVEFG
#-1,SEEKFG

DRIVE,RO

DRVSTA(RO)

6%
D§VTYP(RO)
6
DRVTYP(RO) ,DTYP
#18., TRKLMT

g;.DRVTYP(RO)

JCR=LF

JTYPE 1 BLANK

JCHECK IF 0.P. READY
;LOCATE THE INPUT LINE
JFOLLOW BY <(CR> ?
;BRANCH IF NOT
JINITIALIZE THE SUB SYSTEM
JSAVE ALL RH/RM REGISTERS

;DON'T DO IMPLY SEEK
;RO=PHYSICAL DRIVE # OF THE SUB SYSTEM
JDRIVE EXIST ANN ON LINE ?
JBRANCH [F NOT

;DRIVE IS AN RM05/3/2 ?

+BRANCH [F NOT
:GET DRIVE TYPE TO BE TESTED
;GET LAST TRACK FOR AN RMOS

74, TRKLMT

;1S DRIVE AN RMQS ?
:BR IF YES
JGET LAST TRACK FOR AN RM0O3/?2

MOV

#FMTDPB,RO

:DPB ADDRESS

MOV
MOV
MoV
MOVS
CLRB
MOVR

#RM.REG . 14 (RO)

JSR
FMTDPB
BR

RO, RMOS

MOvB
MOV

TST

8EQ
8PL
ADD

DRIVE, (RO)
;LOAD THE DRIVE NUMBER
ER , $BUF (RO) <LOAD BUFFER ADDRESS
#BUFF

#-256.
. $WRDM(RO)
CYLIMT SCYL(RO)
TRKLMT,$TRK(RO)

$SEC(RO)

sAREA TO SAVE ALL RH/PM REG'S

;WORD COUNT (NEG)
;CYLINDER B22.
;GET TRACK ADDRESS

:SEC O

WRDDAT,$COMND
(RO) ;READ DATA COMMAND

FMTDPB+16

5%
7$

#2 ,FMTDPB+10

;CALL THE DR]VER-HANDLER

JPARAMETER ADDRESS

;LOOPING IF QUEUE IS NOT SUCCESSFUL
- COMMAND DONE ?
;BRANCH [F NOT
;BRANCH IF DONE, WITHOUT ERROR
;TRY NEXT

SECTOR

(0,2,4.6.8)

0038

(ZRMTBO RMOS/3/2 DR (MPT T1ST
MACRO V04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

366 010460
367 010466
368
369 010470
370 010474
371 010500

372
373
374
375
376
377 010504
378 010510
379 010514
380 010516
381 010522
382 010524
383 010530
364 010532
385 G10536
386
387 010540
388 010546
389 010550
390 010554
391 010560
392 010564
393 010566
394 010574
395
396 010576
397 010602
398 010606
399 010614
400 010616
401 010622
402 010626
403 010632
404

122737
101361

000010

104401
104401

001207
042142
011004

000137

;A =1
012704
022714
001411
022704
101406

043466
177777

010636

032777
001404
012700
004737

000200

1057€0
001022
112760

000716
104401
104401

032777
001404
012700
004737
000137
000137

7$:

8%:

044456

004537
000422
062704
0007564

#8. ,FMTDPB+10
3

JALL FIVE SECTORS CHECKED °
JNO,THEN TRY AGAIN

TYPE

SCRLF

;CR=LF

JMP

ENDX1

;STOP THE TEST

TYPE

MESG10

IS RETRIVED,

000004
170406

004506
020702
000010
000012
042207
001207
000200
004506
020702
010054
011020

;DRIVE

IS NOT READY

IS STORED FROM BUFFER+4 TO BUFFER+256. FIRST

SECOND WORD

IN THE CYLINDER NUMBER.

TRK AND SEC NUMBERS,

FILF

#BUFFER+10,R4

;R4 ADDRESS OF BAD SPOT FILE

B8R

118

;BRANCH [F BAD SPGT IN THE TEST ZONES

tMP
BEQ
MP
BLOS
JSR

#-1,(R4)
98
#SUFFER+1000,R4
9%
R5,SPOTX

JEND OF BAD SPOT FILE ?
JYES
END OF BAD SPOT FILE ?
sBRANCH IF 1T IS
;CHECK THE CYLINDER POINTED BY

#4 R4
8s

9s:

BIT

MIT7,3SWR

108:

MOV
JSR
1ST8

#FMTDPB
RO
PC,PRTBAD
$SEC(RO)

MOV8

#10. ,8SEC(RO)

TYPE
TYPE

JMESGT
SCRLF

sPACK NOT ACCEPTABLE
;CR-LF

XPASS1
TsT

sBRANCH IF NOT SET
;DPB ADDRESS
;TYPE THE BAD SPOT FILE
JRESTART PASS 1
;PROCEED TO TEST 1

BEQ

BNE

BR
118:

170340

128:
138:

TERMINATED BY

MOV

ADD
BR

000010

BIT
BEQ
MOV
JSR

JMP
JMP

108

138

#BIT7 ,8SWR
128
#FMTDP8
RO
PC_PRTBAD

sNEXT BAD SPOT ADDRESS
;LOOPING BACK
;SWITCH 7 SET

;BRANCH IF NOT SE7
;DPB ADDRESS
;PRINT THE BAD SPOT FILE

;SECTOR 10 HAS BEEN READ ?

;BRANCH IF SO

;READ SECTOR 10

:LOOPING BACK

;SWITCH 7 SET ?

s SUBROUTINE SPOTX
:gEEOLF THE CYLINDER POINTED BY (R4) IS IN THE TESTING ZONES

1(0-15, 128-143, 256-271, 384-399, 512-527, 640-655. 768-783.
1112-127. 260-255, 368-383. 496-511. 624~639, 752-767, 17-32.

$145-160. 273-288. 401-416. 529-544. 657-672. 785-800 AND 620)

‘CALL

414
415
416

;

617

421 010642

(MPB
BHI

;WORD CYLINDER #,

407
408
409
410
411
412
413

622

6%:

18:12:15 PAGE 9-~8

SEQ 0051

:BAD SPOT FILE

405
406

418
419 010636
420 010640

0064516

&4-APR-81

010146
010246
010346

SPOTX:

JSR

RET1

RS, SPOTX

RET2

JERROR RET

*NORMAL RET1

MOV

R1,=-(SP)

Mov

R3,-(SP)

MOV

:R4=POINT TO CYLINDER NUMBER

RZ,=(SP)

;SAVE R1

THROUGH R3

(R4)

0039

(ZRMTBO RMOS5/3/2 DR (MPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER
423
424
425
426
427

010646
010646
010650
010652
010654

428 010660

429 010664
430 010670

431 010674
432 016700
433 010702
434 010704
435 010710
436 010712
437 010714
438
439 010720
440 010724
441 010726
442 610730
443 010734
4k
445 010736
446 010740
447 010742
448 010744
449 010746
450 010750
451
452 010752
453 010756
454 010760
455 010764
456 010766
457 010770
458 010774
459 010776
460 011000
461 011002
462
463 011004
464 011010

465 011014

466
467
468

469

470

471

472

473
474
475

476
477
4/8

479

005003
005046
005046
005046
012746
012746
012746
012701
012702
021401
103410

062701
021401

000007
000021
000007
000160
000006

162701

000017

021427
001002
052703
005703
001002

062705
012603
012602

001154
000002

000002

000177

001207
043044

#7.~(SP)

;DUMMY PAIR
;ZONE STARTING ADDRESS
;SEGMENT NUMBER

MOV

#7.,<(SP)

;DUMMY PAIR

s ZONE STARTING ADDRESS
; SEGMENT NUMBER
;R1=7Z0NE STARTING ADDRESS
;R2=SEGMENT NUMBER
;CYL IN THE ZONE ?

#7,~(SP)
#112. R1
#6,R2

BLO
ADD
CMP
BHI
BIS

38
#15. R
(R4) SR
2s
#B1T1,R3

28:
3%

suB
DEC
BEQ
ADD
BR

#15. ,R1
R2
4$
#128. ,R1

JRESTORE TO THE LOWER BOND
;DECREMENT THE SEGMENT COUNT
JALL SEGMENT CHECKED ?
JADJUST ZONE STARTING ADDRESS
sLOOPING BACK UNTIL ALL SEGMENTS ARE CHECKED

4$:

MOV
MOV
TST
BNE
ST
BNE

(SP)+,R2
(SP)
+ .R1
R2
1%
R1
18

;POP THE NEXT SET OF INNE PARAMETERS

;DUMMY PAIR
;BRANCH 1F NOT

cCMP

(R4) ,#620.

;ON CYLINDER 620 ?

BIS
TST
BNE
ADD

#8171,R3
R3
78
#2 RS

:SET ERROR FLAG
:YES
<AD 'UST FOR NORMAL RETURN

MOV
MOV
RTS

(SP)~ .R2
+ _R1
(SP)
RS

JEXIT

TYPE
TYPE

L$CRLF
JMESG21

1%:

5%:
6$:
7%:

012601
000205
104401
104401

JERROR FI AG

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

MOV
MOV
MOV

000200

012602
012601
005702
001355
005701
001353

CLR
CLR
CLR

MOV

000017

000002

18:12:15 PAGE 9-9
SE.

CLR

101002
052703

005302
001403
062701
000761

4-APR-81

ENDX1:

CMP

BNE

MOV

JMP

170360

(R3) LRI

(SP)+,R3

SRSTART

;THE FOLLOWING CODING FOR TEST 1
CPARAMETER IN TST 1

$COwW1

DRIVE
$DEVM

ASSGN1

ASNLST

$CDW2

JBRANCH IF NOT
;JCHECK WITH TH: UPPER BOND
;CYL IN THE ZONE ?
;BRANCH IF NOT
;SET THE ERROR fLAG

;DUMMY PAIR

;BRANCH IF NOT

:NO

;ANY ERROR ?

JRESTORE R3 THROUGH R1

s CR=LF
sDRIVE NOT ONLINE OR NOT ASSIGNED
;JUMP TO RESTART

THROUGH TEST 4

= ADDRESS OF LOGICAL DRIVE BLOCK

= PHYSICAL DRIVE #
= LOGICAL DRIVE # 0-17
- ASSIGN LOGICAL DRIVE BIT MAP
= ASSIGNED LOGICAL DRIVE MAP INDICATOR
= SYS-NAME

:$CDW2,DRIVE ARE ONLY CHANGED IN TST1 DURING PASS 1
;$SDEVM_ASSGN1,$CDW1 ARE CHANGED BY THE TEST 4

;TST 1:DIRECT OPERATOR TO MOUNT AND LOAD PACKS

rTIRMTBO RM0S/3/2 DR (MPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWIT(H REGISTER
480
L8

482
483
484
485
485
487

011020
011022

011030
011036
011042
011050
011052
011056

488
439
490
491

011064
011066
011074
011102

493
494
495
496
497
498

011112
011116
011122
011126
C1113%2
011136

492 011106

499 011142

500 011146
501 011152
502 011156
503 011162
S04 011166
505 011170
506 011171
507 011172
508 011176
509 011202
510 011206
SN
512 011212
513 011214
514 011216
515 011220
516 011222

S17 011226
518 011232
519 C11234
520 011236
521 011240
522 011246
523 011254
524 011260
525 011266
526 011274
527 011300
528 011304
529 011306
530 011312

531 011314

532 011322
533 011324
534 011332

000004
0127%7
012737
012706
023737
001551
013701
126137

001272
000014

104401
104401

000014
017444
017222
001207
042021
042664
0461776
042644

001426
116137
012777
005077
104401
104401
104401

104401
104401
111137
104401
104401
104401
113746
104403
001
104401
104401
104401
104401

000001
000001

001100
001272

001176
001340
004444

001274
001274
017224

001274
042644
001224
001207
042045
001274
001224

18:

004737

012737
012737

013700
105760

003426
105760
003423
122737
001005
122760

001420

SCOPE
MoV
MOV
MOV
(mP
BEQ
MOV
CMPB
BEQ
MovB
MOV
CLR
TYPE
TYPE
TYPE
TYPE
T1YPE
TYPE
TYPE

MovB
TYPE
TYPE
TYPE

TYPOS

BYTE
.BYTE

042752

TYPE
TYPE
TYPE
TYPE

042073
001207
042106

2%:

RDL IN

MOV

15718

BNE
MOVB
B8i(
DEC

001274

177760

002014
002016
030334
177777
177777
001224
030206

030324
030326
030264
030266

ASL
ASL

MOV
MoV
JSR
MOV
MOV
MOV

1STB

030216
000007

001402

000007

030276

18:'2:15 PAGE

9-10
.
SE

Mov8

104411

012605
105715
001374
113701
042701
005301
006301
006301
016137
016137

Al il

TST1:

4-APR-81

BLE
1ST8
BLE
CMPB
BNE
(MPB
BEQ

#1,STIMES
#1,T°TNM
#STACK ,SP

$(DW1 ,BLKADR

;.00 1

R R R

ITERATION

;LOAD THE

TEST NUMBER

JINITIALIZE THE STACK POINT
:LOGICAL DRIVE O

$CDW1 R

JTHEN EX]T
;R1=LOGICAL

JTHEN

LEXIT

JRESET

THE

DRIVE BLOCK ADDRESS

$SSYSNM(R1),$CDW2
;STILL ON THE SAME SYSTEM °

$SYSNM(R1) ,$CDW2 ;LOAD THE NEW SUB SYSTEM NAME

#IDLEX,aRMVEC

INTERRUPT

RMVE(+2
LSCRLF

;CLEAR THE
;CR=LF

MESGH
. MESGT

;JON
;SUB=-SYSTEM

.MESG3

,QUOTM

.3CDWe

LQUOTM
(R1) ,DR!VE
.SCRLF

MESG4
,$CDWe

DRIVE ,-(SP)

VECTOR

INTERRUPT LEVEL

;ax STARTING PASS 1
JTYPE

''**

QUOTATION MARK

JSYS-NAME
(A 7O H)

JTYPE *'" QUOTATION MARK
;LOAD THE PHYSICAL DRIVE #
;CR=-LF

JMOUNT PACK ON THE DRIVE
JSYS~NAME
(A TO H)
;THE PHYSICAL DRIVE #

0
J3LNKSH

;TYPE

LSCRLF

;CR=-LF

.MESG8

JMESGY
(SP)+ RS
(RS)
2%
$CDW2,R1
#177760.R1
R1
2}

1 BLANK

JAND LOAD

;LOCATE THE READIN LINE
;NOT CORRECT INPUT LINE FORMAT
:BRANCH IF NOT
;LOCATE THE SYSTEM ADDRESS TABLE
JLEFT ON &4 BITS
;ADJUST THE INDEX VALUE
;FOUR WORD INDEX VALUE

SYSADR(R1) ,RMADR
:LOAD THE SYSTEM ADDRESS
SYSADR+2(R1) ,RMVEC ;LOAD THE SYSTEM INTERRUPT VECTOR

PC.RMINIT
#~1,SAVEFG
#-1,SEEKFG

JINITIALIZE THE SYSTEM
;SAVE ALL RH/RM REGISTER
;DON'T DO ANY IMPLY SEEK

DRIVE RO
DRVSTA(RO)

;RO=PHYSICAL DRIVE #
JON-LINE ?

DRVTYP(RO)
5%

;CHECK DRIVE TYPE
JBR IF NOT AN RM05/3/2

#7,DTYP

#7 ,.DRVTYP(RO)
63

;BRANCH ]F NOT

JWHAT WAS FIRST DRIVE

TESTED ?

JBRANCH IF AN RMOZ2 OR RMO3, ELSE

JSEE IF DRIVE IS STILL AN RMOS.

;BR

YES

"IRMTBO RM0S/3/2 DR (MPT 1ST

GET

VALUE

FOR 30F TWARE

MACRD v04.00

SWITCH REGISTER

535 011334
536 011336
537 011344

000404
122760
001013

539 011352
229 011356

1064401

104401
000177

001207

48:

542 011362
543 011366

10464401
104401

001207
062142

5¢%:

§38 011346

5446 011372
545 011374
S«wb
547
548
549
550
559

000612

G00007

030216

043356
170016

68:

000004
012737
012737
012706
012700
013701
113710
013760
012760
012760
012760
012760
105060
112760
004737
004037
004506
000774
005737
001775
012700
004737
005760
100433
112760

579 011554

004506

004037

000774

581 011560
582 011564
583 011566
584 011572

005737
001775
012700
604737

586 011602

100412

587 011604

588 011612
589 011616

43
#7 ,DRVTYP(R(Q)
68

:ERROR ENCOUNTERED
JSEE IF DRIVE IS STILL AN RMO2 OR RMO3.
‘BR IF YES

TYPE
JMP

JNOTST
BRSTART

JCANNOT SELECT RMO3/2°'S AND RMOS'S TOGETHER
:JUMP TO RESTART

TYPE
TYPE

LSCRLF
"MESG10

TYPE

B8R

.S$CRLF

TS71

{CR=-LF

:CR=LF
‘DRIVE NOT READY
;TRY AGAIN

.'"t'ttt'.t!.tttQttttttt'tt"tttttttttttttfittt'tttfit'tttttttttt'tt

011374
011376
555 011404
556 011412
557 011416
558 011422
559 011426
560 011432
561 011440
562 011446
563 011454
564 0116462
565 011470
566 011474
567 011502
568 011506
569 011512
570 011514
571 011516
§72 011522
573 011526
574 011530
575 011534
576 011540
577 011542

585 011576

BR
) ]
BNE

J(TRKO - TRK4 ON AN RM0O3/2 AND TRKO - TRK18 ON AN RMOS)

SS‘.

580 011556

c
5
18:72:15 PAGE 9~11

STEST 2
*BASIC READ AND WRITE TEST
SALL LOGICAL DRIVE ACCESS CYLINDER 620
*AND SECTOR ADDRESS [S CORESPONDING TO THE LOGICAL DRIVE #
*EACH LOGICAL DRIVE PERFORM WRITE AND WRITE CHECK ON ALL TRACKS.

gg%

578 011550

3$:

&-APR-81

005760
112760

105260
126037

000001
000002
001100
004506
001272
001224
001270
001154
1776400
0463456
004526
000071
000161
021042
031062

001176
001340

TST2:

000010
000012
000004
000006
000014
000002
28:

004524

004506
017452
000016
000151

031062

000002

004524

5§

004506
017452

000016

000161

000011
000011

48:

SCOPE
MOV
#1,8TIMES
::D0 1 ITERATION
MOV
#2.TSTNM
:LOAD TEST NUMBER
MOV
#STACK, SP
“INITIAL THE STACK POINTER
MOV
#FMTDPB RO
:DPB BLOCK ADDRESS
MOV
$CDW1,R1
*ADDRESS OF THE LOGICAL DRIVE BLOCK
MOVB
DRIVE. (RO)
*PHYSICAL DRIVE #
MOV
SDEVM,$SEC(RO)
-LOAD THE SECTOR #,FROM THE LOGICAL DRIVE NUMBER.
MOV
#620.,$CYL(RO)
:LOAD CYLINDER NUMBER
MOV
#-256. ,SWRDM(RO) “;LOAD NEG WORD COUNT
MOV
#BUFFER,$BUF
(RO) :LOAD BUFFER ADDRESS
MOV
#RM_REG.14(RO)
:ADDRESS TO SAVE ALL RH/RM REG'S
CLRB
$TRK(RO}
:START FROM TRACK 0
MOVB
MWRTDAT,SCOMND
(RO)
:WRITE DATA COMMAND
JSR
PC,FILBUF
;FILL THE BUFFER WITH STANDARD PATTERN
JSR
RO ,RMOS
*CALL THE DRIVER
FMTDPB
BR
2s
;BRANCH IF NOT QUEUE SUCCESSFULLY
ST
FMTDPB+16
BEQ
33
:BRANCH IF NOT DONE
MOV
#FMTDPB RO
*RO=FMTDPB ADDRESS
JSR
PC.PROCESS
*CHECK THE TERMINATION
157
16(RO)
*ERROR FLAG SET
BMI
63
*BRANCH IF SO
MOVB
MWJCKD,SCOMND(RO) ; CHANGE TO THE WRITE CHECK DATA COMMAND

JSR

RO, RMOS

;CLLL THE DRIVER

B8R

;BRANCH IF NOT QUEU SUCCESSFULLY

FMTDPB

ST
BEO
MOV
JSR

FMTDPB+16
5%
#FMTDP8 RO
PC,PROCES

:DONE ?
*BRANCH IF NOT DONE
:
*PROCESS IF ANY ERROR HAPPENS ?

aM]

"BRANCH IF SO

000002
001372

MOVE

INCB
(MPB

16(R0)

*ERROR FLAG SET ?

MWRTDAT SCOMND(RD) :RESET TO WRITE DATA COMMAND
$TRK(ROJ
: INCREMENT TO THE NEXT TRACK
S$TRK(RO).TRKLMT -ALL TRACKS DONE ?

SEQ 0054

CZRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
GET VALUE FOR SOFTWARE SWITCH REGISTER

610

611
612
613
614
615
616

617
618

619
620

003730
000410
104401
104401
104401

000177

001207
043125
043106

.t Q 005%

6$:

BLE
BR

TST3

:NO
JBRANCH TO NEXT TEST

JMP

@RSTART

;JUMP TO RESTART

TYPE
TYPE
TYPE

167530

JTEST

1B:12:15 PAGE 9-12

+SCRLF
LHALTI
JHALTX

;CR=LF

JWRITE 7 IONES FOR WRITE TEST IN PASS 2

PACK

CMCNT
CMSEC

(O}
T O
T

$CDW1
$CDW2
DRIVE

FOR READ TEST IN PASS2
LOGICAL DRIVE #
ADDRESS OF LOGICAL DRIVE HISTORY BLOCK FILE
SYS NAME
T

6 JONES
S$DEVM

(T O T

JWRITE

590 011624
591 011626
592 011630
593 011634
594 011640
595 011644
596
597
598
599
600
601
602
603
604
605
606
607
608
609

4-APR-81

PHYSICAL DRIVE # OF

THIS LOGICAL DRIVE

ENTRY OF TABLE-D
ZONE COUNT
DELTA CYLINDER COUNT
ENTRY POINTER OF TABLE~D,

ADDRESS OF

FMTDPB

CANNOT BE DESTORVED.

':'t'tttt""t"tfitt""'t"iQttfi'tlttttttttfittttfittttt.tt*ttttt'

011650
011652
011660
011666
011672
011676
011702
011704
011710
011712
011714

621 011720
622 011724
623 011730
624 011736
625 011744
626 011752
627 011760
628 011764
629 011766
630 011772
631 011776
632 012002
633 012004
634 012006
635
636
637 012010
638 012012
639 012014
640 012020
641 012024
642 012032

643 012036
644 012044

000004
012737
012737
012706
012704
013700

001404

062704
005300
001374

000001
000003
001100
001406
001270

001176
001340

1S713:

000020

1$:

010437

001324

2s:

012700
113710
112760
012760
012760
012760
013701
006301
016104
016002
012703
010422
005303
001375

004506
001224
000161
043456

005046
005046
012746
012746
012737
005037
012737
012700

004526

177400
001270

BNE
MOV

MOV
MOVB
MOVB
MOV
MOV
MOV
MOV

000002
000006
000014
000004

ASL

005322
000006
000400

000006
000160
000007
001356
000020
004506

SCOPE
MOV
MOV
MOV
MOV
MOV
8EQ
ADD
DEC

3%:

001354
001362

4%:

MOV
MOV
MOV
MOV
DEC
BNE
(LR
CLR
MOV
MOV
MoV
CLR
Mov
MOV

#1,STIMES

;.D0 1

N#STACK,SP

SINITIAL THE STACK POINTER

#3, TSTNM

#LOGO,R4
$DEVM_RO

ITERATION

;JLOAD THE TEST NUMBEP

;ADDRESS OF TABLE-D
sLOGICAL DRIVE #

sBRANCH IF LOGICAL DRIVE O

#16. R4
RO
1%
R4 .PACK

JEACH LOGICAL DRIVE TAKES 16 BYTES IN THE
:DECREMENT THE DRIVE # COUNT
;BRANCH ,UNTIL THE ENTRY IS LOCATED
;SAVE THE TABLE-D ENTRY IN PACK

#FMTDPB RO

;ADDRESS OF FMTDFB

DRIVE, (RO)

:SET UP THE FMTDPB BLOCK
;PHYSICAL DRIVE NUMBER

NWRTDAT ,$COMND (RO)

;WRITE DATA COMMAND

#BUFFER,$BUF
(RO) :BUFFER ADDRESS
#RM.REG,14(R0O)
;ADDRESS TO SAVE ALL RH/RM REG'S
#-256. , SWRDM(RO)
:NEG WORD COUNT
SDEVM,R1
;LOGICAL DRIVE #
R1
“WORD INDEX
PSEUDO(R1)
,R¢
:LOAD THE DATA PATTERN
$BUF (RO) ,R2
*BUFFER ADDRESS IN R2
#256. R3
*POS WORD COUNT

R4, (R2)+

*FULL THE BUFFER WITH SIGLE WORD PATTERN

-(5P)
-(SP)
#6,~(SP)
#112..~(SP)
47, CMCNT
CMEYL
#16. , CMSEC
#FMTDPB,RO

:DUMY PAIR OF ZONE (OUNT
:DUMY STARTING CYLINDER NUMBER
*JONE COUNT
*STARTING CYLINDER NUMBER
*ZONE COUNT
*STARTING CYLINDER NUMBER
*DELTA CYLINDER NUMBER

R3
38

*DECREMENT THE WORD COUNT
*BRANCH,UNTIL IT IS FULL

2RO DPB ADDRESS

TABLE

"IRMTBO RMQ5/3/2 DR (MPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

645 012050

646 012054
647 012062
648 012066

b
e

- -t
—d
b—

&» osrNSO

N NS NNINOA)
=

—

[ASIAN T NT, ST, 81,8 1,N1,N1,¥7,97,97,] n

—

[V,]

649 012072
650 012076

013704
013760

105060
111460

004037
004506
000774
005737
001775
012700
004737
005760
100453
062760
122760
103353

004524
004506

MOV

017452
000016

001372

105060

000011
000012

000410
104401
104401
104401

000177

012274
012276
69 012304
695 012312
696 012316
697 012324
698 012330
699 012334

JSR
TST
BM]

ADD
cMPs

BHIS
MOVR

INCB

(MPB
BLE
CLRB
INC

INC
DEC
BNE

001362
000160
000012
001354

000G12
001356

ADD

001354

9%:

(MCVL,$CYL
(RO
$TRK (RO)
(R&4) ,$SEC(RO)
RO,RMOS

FMTDPB+16

#FMTDPB,RO
PC,PROCES

16(R0O)
9

#16. ,$SEC(RD)

;21.,SSEC(RO)

JR4 ENTRY

TO TABLE-D

sSTARTING CYLINDER
;STARTS FROM TRACK 0

;LOAD SECTOR NUMBER FROM TABLF-~D
;CALL THE DRIVER
JBRANCH IF QUEU ]S NOTSUCCESSFUL
;DONE ?
JBRANCH ]f NOT
;PROCESS

TO CHECK

JERROR FLAG SET ?
;BRANCH IF SO
JWRITE

ANY ERROR

TWO SECTORS ON ONE

CYLINDER

JALL DONE-TWO SECTORS
JBRANCH [F NOT
(R4),$SEC(RO)
;RESTORE SECTOR #
S$TRK(R0O)
; INCREMENT TO NEXT TRACK
$TRK(RO)
, TRKLMT ;LAST TRACK ?
’$
;NO, THEN BRANCH
$TRK(RQ)
;RESTORE TO TRACK-0
$CYL(RO)
;s INCREMENT CYLINDER NUMBER
R4
: INCREMENT TABLE-D ENTRY
;DECREMENT THE DELTA CYLINDER COUNT

#112.,8CYL(RO)

JBRANTH

IF NOT END OF

THIS BLOCK

TST4

JMP

@RSTART

TYPE
TYPE
TYPE

167104

PA(CK ,R4

BNE

TST

001207
043176
043106

9-13

JINCREMENTTHE CYLINDER NUMBER TO NEXT ZONE
$CYL(RO) ,CMCYL
JINITAIL THE STARTING CYLINDER IN THE BLOCK
CMCNT
:DECREMENT THE ZONE COUNT
43
;LOOPING IF NOT END OF ZONE
(SP)+,CMCYL
;LOAD NEW PAIR OF STARTING CYLINDER
(SP)+,CMCNT
JAND ZONE COUNT
tMcyL
;NOT END YET ?
43
BRANCH IF NOT
CMCNT
;BRAN(H [F NOT END
43
;LOOPING BACK

MOV
DEC
BNE
MOV
MOV
TST
BNE

001356
001354
001356

687
689
690
691
692
693

BR
TST
BEQ

8%:

000010
000911
000011

679 012250

JSR

FMTDPRB

111460
105260
126037

005260
005204
005337
001331
062760
016037
005337
001304
012637
01637
005737
001275
005737
001272

MOV
CLRB
MOvB

7%:

18:72:15 PAGE

SEQ 0056
MOV

S%:
6%:

000060
000010

003743

012252
012254
012260
012264
012270

000012

000020
000037

2162

681
682
683
684
685

001324
001356
000011
000010
031062

4&-APR-B1

.SCRLF
JHALT?
+HALTX

JBRANCH TO THE NEXT
sCR=-LF

TEST

;JUMP TO RESTART

sTEST &
sUPDATE THE PARAMETERS,$(DW1,$DEVM,
ASSGNI
;DIRECT THE OPERATOR TO DISMOUNT PACK AND LOAD TO OTHER DRIVE

:$CDW2,DRIVE ARE CHANGED BY TEST ONE ONLY AFTER THE TEST LOOPING TO TEST1
a2

000004
012737

012737

012706
012777
005077
104401
104401

000001

000004
001100
017444
016000
001207
042272

001176

001340
016002

1574

SRRRS2SR0
2RR2RRdRR2222 3222222322222 2R 22 ]}

SCOPE
MoV
MOV
MOV
mov
CLR
TYPE
TYPE

;D0 1 ITERATION

#1,3TIMES
#4,TSTNM
#STACK,SP

:LOAD THE TEST NUMBER
;LOAD THE STACK POINTER

SRMVE C+2

;CLEAR THE

#IDLE:. ,3RMVE(

.SCRLF

JMESGT2

JRESET

;CR=LF

THE

INTERRUPT

VECTOR

INTERRUPT LEVEL

JUNLOAD DRIVE

GET

VALUE

FOR SOF TWARE

700 012340
701 012344

104401

013746
104403

001
000

104401

720
721
722
73
724
725
726
727
728
729
730
731
732

012701
005002
020237
001404
000241
006101
005202
000771
040137
001410
005202
006302
016237
006202
010237
012432
012434
012436
012440
012442
012446
012450
012454

001274
001224

BYTE
BYTE

042310
000001

TYPE
MOV

001270

1%:

2%:

002010

1s:

0044464

001272

001270
A
¥

002010

012460
011020

5%:

734

736
737
738
739
740
741 012460
742 012464
743 012466
744

745 012472
746 012476
747 012504

748
749
750
751
752
753%
754

755

756

CLR
CMP
BEC
cLe

ROL
INC
B8R
Bl(C

BEQ
INC

ASL
MOV
ASR
MOV

RDL IN

MOV
1ST8
BNE
TST
BNE
JMP
JMP

: XPASS2

733

ASNLST

DRIVE

002012

005037
013737

001270
004444
000101
00" J1¢6
002016
001272
017444
015564
001376
001207
042356
042¢64

112737

013737
013737
013701
012777
005077
005037
104401
104401
104401

XPASS2:

017146

001272
001274
030324
030326
015566

1%:

. $CDW2

JSYS=NAME
(A ~ H)

DRIVE ,-(SP)

JPHYSICAL

DRIVE

MESG13

#LR1

R
RZ,$DEVM
2%

JBRANCH IF

R1
R2

sNEXT

;LOCATE THE CORESPONDING BIT MAP
LOCATED

;LOCATE NEXT DRIVE
DRIVE

;LOCATE THE BIT MAP
;DEASSIGN THE LOGICAL DRIVE FOR PASS 1
:NO MORE DRIVES
sGET NEXT LOGICAL DRIVE #
JWORD INDEX
BLKADR(R2) ,$CDW1
;LOAD THE NEW DPB ADDRESS
R2
JRESTORE R?2
RZ,SDEVM
;LOAD THE NEW LOCICAL DRIVE #

1%
R1,ASSGN1
43
R2
R2

JWAIT UNTIL IT IS DONE
;JLOCATE THE INPUT LINE

(SP)+ RS
(RS)
‘s

TERMINATOR ?
JBRANCH IF NOT

;OTHER DRIVES ?
;BRANCH IF MORE DRIVES IN TEST
JBRANCH TO PASS 2

ASSGN1

5%
XPASS2

JJUMP TO TEST 1

sT1

INITILIZE FOR PASS 2 TEST
$CDw1
$CDW2
$DEVM
ASSGN2

005737
001002
000137

18:12:15 PAGE 9-14

StQ@ 0057
TYPE
MOV
TYPOS

1044117

012605
105715
001374
005737
001002
000137
000137

&-APR-81

nunny

0044

MACRO v04.00
SWITCH REGISTER

“ZRMTB0 RM0S5/3/2 DR rMPT T1ST

ADDRESS OF

THE

PHYSICAL

DRIVE # OF

TST

(LR

MOVB
MoV

MOV
MOV

MoV
(LR
(LR

TYPE
TYPE
TYPE

DRIVE

CURRENT

HISTORY FILE

RH/RM SYSTEM

SANYTHING IN TEST FOR PASS 2
JYES,THEN GO ON

BNE
JMP
MOV

CURRENT LOGICAL

SYSTEM NAME A THROUGH H
CURRENT LOGICAL DRIVE # G TO 15.
ASSIGNED LOGICAL DRIVE FOR PASS 2
ASSIGNED LOGICAL DRIVE

;JUMP TO END OF PASS 2

$DEVM

sSTART FROM LOGICAL DRIVE 0

#'A,$CDWC

SYSADR ,RMADR

;LOAD SYSTEM NAME ‘‘A'’
;LOAD SYSTEM-A ADDRESS TO DRIVER

#IDLEX ,aRMVE(

;R1=ADDRESS OF LOGICAL BLOCK
JRESET THE INTERRUPT VECTOR

FAULT

JRESET

BLKADR, ${Dw1
SYSADR+2 ,RMVE (
$COW1 ,R1

SRMVE(+2

,SCRLF
MESG14
MESGO

;ADDRESS OF LOGICAL BLOCK DRIVE O

;LOAD SYSTEM-A VECTOR TO DRIVER

JCLEAR THE INTERRUPT LEVEL
JCR=LF
JSTART
;ON

THE

NOT

COMPATIBLE

THE PASS 2

FLAG

“IRMTB0O RM05/3/2 DR (MPT

GET

VALUE

FOR SOF TWARE

757 012564

104401

758 012570

104401

750 012600

106601

759 012574

104401

761
762
763
764
765

012604
012610
012614
012620
012626

111137
106401
104401
104401
111146

767
708
769
770
771

012630
012631
012632
012636
012642

001
€00
104401
104401
104401

774
775
776
777
778
779
780
781
782
783
784

012652
012654
012656
012660
012662
012666
012674
012702
012706
012712
012714

104411
012602
105712
001374
004737
012737
012737
013700
105760
003421
105760
003416

766 012626

77 012646

785
786
787
788
- 789
790

TST

SWIT(H REGISTER
061776

(42644
042644

030334
177777
177777
001224
030206

793 012756
79 012762

104401
104401

001207
042142

79 012772

000137

1$(DW2

SSYS=NAME
(A TO H)

(R1),DRIVE
,SCRLF
[MESG&
. $(DW2
(R1),=(SP)

:LOCATE
:CR=LF

TYPE
TYPE

030264
030266

030216

000007

795 012766

TYPE

BYTE
BYTE
TYPE
TYPE

28:

116037
012737
122760
001412
012737

000406

; SUB=SYSTEM

TYPOS

042196

030216
000022

001402
001372

000004

001372

3%:

030216

011004

RDLIN
MOV
1STB
BNE
JSR
MOV
MOV
MOV
TSTB
BLE
TSTB
BLE

MOVB
MOV
(MPB
BEQ
MOV

BR
48:

TYPE
TYPE

JMP

798

;

$CDW!

800
801
802

:
:
:

$DEVM
ASSGN2
DRIVE

799

SEQ 0056

,MESG]

MOVB
TYPE
TYPE
TYPE
MOVB

062752
042073
001207

G
5
18:12:15 PAGE 9-1%

TYPE

001224
001207
042045
001274

104403

104401

4-APR-B'

TYPE

001274

012720
012722
012730
012736
012744
012746

791 012754

MACRO v04.00

$(DW2

.QUOTM

ENDX1

ADDRESS OF

:TYPE

**''

QUOTATJON MARK

THE

PHYSICAL

:TYPE <CR> WHEN DRIVE

IS DRIVE AN RMOS 2
:BR_IF YES
:GET LAST TRACK FOR AN RMO3/2

;CR=LF
:DRIVE

IS NOT READY

CURRENT LOGICAL DRIVE Bl OCK,ONLY CHANGED BY TST9

= SYSTEM-NAME, ONLY CHANGED BY TEST 5

= CURRENT LOGICAL DRIVE #
= ASSIGNED LOGICAL DRIVE'S BIT MAP FOR PASS 2
= PHYSICAL DRIVE #

YIN TEST S DIRECT OPERATOR TO CHANGE, LOAD THE PACK

807

001176
001340
0C4444

T§15:

SCOPE
MOV
MOV
MOV
CMP
BEQ

IS READY

:GET DRIVE TYPE 10 BE TESTED
GET LAST TRACK FOR AN RMCS

ggg
000001
000005
001100
001272

:SAVE_ALL KH/RM REGISTERS
:DON'T DO IMPLY SEEK
:LOAD THE PHYSICAL DRIVE NUMBER
:DRIVE EXISTS AND ON-LINE 2
:BRANCH_IF NOT
:CHECK DRIVE TYPE
:BR_IF NOT AN RM05/3/2

000004
012737
012737
012706
023737
001550

DRIVE

:LOCATE THE KEAD IN LINE
: CARRIAGE RETURN ?
:BR 1F NO

DRVIYP(RO),DTYP
#1B.,TRKLMi ~
#7,DRVTYP(RO)
5§
¥4, TRKLMT
,SCRLF
,MESG10

QUOTAT[ON MARK

:TYPE 1 BLANK
:AND LOAD
SCR=LF

[SCRLF
MESGY

:MOUNT PACK ON DRIVE
FSYSTEM NAME

1
0
,BNKST
[MESGB

(SP)+,R2
(R2)
2%
PC,RMINIT
#-1,SAVEFG
#-1,SEEKFG
DRIVE,RO
DRVSTA(RO)
43
DRVTYP(RO)
48

TYPE

382

012772
012774
808 013002
809 013010
810 0713014
811 013022

ASNLST

QUOTM

= ASSIGNED LOGICAL DRIVE IN THE TEST

#1.8TIMES
#5°TSTNM
#STACK, SP
$CDW1.BLKADR
6$

;:DO 1 ITERATION
*(0AD THE TEST NUMBER
*LOAD THE STACK POINTER
-LOGICAL DRIVE 0
TTHEN EXIT

812
813
814
8'5

013024
013030
013036
213040

b —
D
b

8¢5
826
827

N NN N AN N NN NN N NN
— b
e o
b ed
b nd
b
e pive)
o NN
ES SN
WM
NANNIND
—O
N [ea12970
Y,07 0 N[a¥To
V70 N3,V
V10 N [AST 2o 3

816 03046
817 (13054
818 013060
819 0’ 3064
820 013066
821 (3072
822 013074
823
824
[e]leolelelslololololole] QO

d md

b o

828
829
830
831
832
833
834
835
836 013166
D

0046

JRMIB) RMOS/3/72 DR (MPT TST
MACRO v04.00
J87 VALUE FOR SOr TWARE SW!TCH REGISTER

837 013170
838 013172
839 013173
840 013174
841 013200
842 013204
843 013210
844
845 013214
846 013216
847 013220
848 013222
849 013224
850 013230
851 013236
852 013244
853 013250
854 013254
855 013256
856 013262
857 013264
858 013272
859 013274
860 013302
861 013304
862 013306
863 013314
864 013316
865 013322
866 013326
857
868 013332

013701

126137

001443

116137

012777
005077
013700
005300
042700
006300
006300
016027
016037
104401
104401
1044601
104401
104401
104401
104401
111137
104401
104401
104401
111146
104403

001
o0

104401
104401
104401
104401

001272
00014
000014
017444
015250
001274

105760
003426
105760

003423

122737
001005
122760
001420
000404

MOV

001274

{MPB

BEQ

001274
015252

mMovB
MOv

(LR

MOV

DEC
BIC
ASL

177760

ASL
MOV
MOV
TYPE
TYPE
TYPE
TYPE
TYPE
TYPE

002014
002016
001207

042356
042664
041776
062644
001274
062644
001224
001207
042045
001274

1%:

MOvVR

MOVB

TYPOS

042752

042073

001207
042106

030334
177777
177777
001224
030206

001402

000007

030216

001207
043356

4%:

104407

001207

5%:

3%:

165046

INTERRUPT VECTOR
INTERRUPT LEVEL

JLOCATE SYSTEM ADDRESS TABLE

RO
;ADJUST FOR INDEX FORM O
#177760,R0
;LEFT ON FOUR BITS
RO
RO
;INDEX FOR TWO WORD
SYSADR(RO) ,RMADR ;SYSTEM ADDRESS

SYSADR+2(R0O) ,RMVEC ;SYSTEM INTERRUP VE(TOR
SCRLF
;CR-LF
LMESG14
;START THE PASS 2
MESG6
;ON
MESG1
;SUB~SYSTEM

,QUOTM

.$CDW2

.QUOTM

(R1) ,DRIVE

SCRLF
+MESG4
. $CDW2

(R1),=(SP)

JTYPE

*''"

QUOTATION MARK

JTYFE

QUOTATION MARK

;SYS=NAME(A TO H)

:%gCA;E THE PHYSICAL DRIVE #
JCR=-L

JMOUNT PACK ON DRIVE
JSYSTEM NAME

JTYPE

RDL IN
MoV
1ST8
BNE

BLNKST
.SCRLF

(SP)+ ,R2

(R2)
23

PC,RMINI1
#-1,SAVEFG
#~1,SEEKFG

DRIVE RO
DRVSTA(RO)

5%
DRVTYP(RO)
5%

CMPB

#7.DTYP

(MPB

47 ,DRVTYP(R0)

BNE

104401
104401
000177

030216

JRESET THE
;CLEAR THE

JMESGY

BLE

000007

IRMVE C+2
$(DW2 RO

.MESG8

TST8

000007

#IDLEX,QRMVE(

TYPE

MOV
MoV
MOY
1578
BLE

030216

JADDRESS OF THE HISTORY FILE
$(DW1 R
$SYSNM(R1) ,$(DW?2
;ON THE SAME SUB-SYSTEM
18
;THEN DON'T UPDATE SYSTEM ADDRESS
$SYSNM(R1) ,$(DW2

JTYPE 1 BLANK
;AND LOAD

JSR

030264
030266

SEQ 0059

TYPE
TYPE

2%:

H
5
"B:":15 PAGE 9-1¢

.BYTE
.BYTE

TYPE

122760

001013

TYPE

TYPE
TYPE
TYPE

104411

012602
105712
001374
004737
012737
012737
013700

4-APR-B1

BEQ
BR
CMPS
BNE

3
#7 ,DRVTYP(RO)

6%
.SCRLF

;CR~LF

<CR> WHEN DRIVE

IS READY

;LOCATE THE READ IN LINE
; CARRJAGE RETURN ?

:BR IF NO

sSAVE ALL RH/RM REGISTERS
;CON'T DO IMPLY SEEK
;LOAD THE PHYSICAL DRIVE NUMBER
;DRIVE EXISTS AND ON~-LINE ?
;BRANCH [F NOT
.CHECK DRIVE TYPE
;BR IF NOT AN RM0S5/3/2
sWHAT WAS FIRST DRIVE

TESTED

JBRANCH IF AN RMOZ2 OR RMO3, ELSE
JSFE IF DRIVE IS STILL AN RMOS.

;BR IF YES
;ERROR ENCOUNTERED
JSEE IF DRIVE IS STILL AN RMOZ2 OR RMQO3.
;BR IF YES

TYPE
TYPE
JMP

NOTST
oRSTART

JCR=LF
JCANNOTM SELECT RMO3/2°S AND RMOS'S TOGLETHER
JJUMP TO RESTART

TYPE

LSCRLF

;CR=LF

"IRMTBO RM05/3/2 DR (MPT

GE”TM

VALUE

FOR SOF TWwARE

869 013336

104401

820 013342 000613

TST

MACRO v04.00

SWITCH REGISTER

042142

)

18:12:15 PAGE 9-17

TYPE

.MESG10

DRIVE
$CDW1
$DEVM
$CDW2
RMADR

=
=
=
=
=

B8R

;DRIVE

iST5

0 0060

IS NOT READY

“TRY AGAIN

g;; 013344

68 :

873
874
875
876
877

;
:
:
:
:

830
881
882

:THE ABOVE PARAMETERS CANNOT BE MODIFIED BY THIS TEST (TST6)
1THE FOLLOWING REG'S ARE ASSIGNED AS:
:
RO
= ADDRESS OF DPB FIELD INTO DRIVER HANDLER=FMTDPB

885
886

;IN TEST 6, EACH LOGICAL DRIVE WRITES 7 CYLINDERS ON EACH TRACK WITH
;A UNIQUE DATA PATTERN,
THESE 7 CYLINDERS HAVE BEEN WRITTEN BY OTHER

S;S
322

RMVEC

PHYSICAL DRIVE NUMBER
DPB BLOCK OF THIS LOGICAL DRIVE
LOGICAL DRIVE #
SUB-SYSTEM NAME
SUB-SYSTEM BASE REGISTER ADDRESS

= 5UB-SYSTEM INTERRUPT VECTOR

= ADDRESS OF

THE HISTORY FILE BLOCK OF

THE

LOGICAL

887
888

*DRIVES iN PASS 1.
*THEN, THIS LOGICAL DRIVE EXECUTES 'WRITE

891

;THESE

ggg

;THE OVER-WRITF TEST

.'_'tttt.l’t.i'l‘t‘tttlQttt"'t.t.Qt'.ttttttttttttttttltttt't'ttt'.t'

ggg

000004
012737
012737
012706
012703
012704
005023
020403
101375

905 013404
906 013410
907 0134146

012700
013701
113710

004506
001272
001224

909 013426
910 013432

005060
112760

000010
000161

013702

001270

012760

911 013440
912 013446
913 013456

013760
012760
012760

915 013466
916 013470

006302
(016202

914 013462
917 013474

218 013500
919 013504
920 013506
gg; 013510
923

7 CYLINDERS ARE

SPECIFIED AS SDEVM,

“SDEVM+512, SDEVM+640 AND SDEVM+768.

013344
013346
897 013354
898 013362
899 013366
900 013372
901 013376
902 013400
382 013402

908 013420

CHECK DATA’' TO SEE

;LOGICAL DRIVE CAN OVER-WRITE ALL DATA WRITTEN BY OTHER DRIVES.

ggg

—

&~APR-B1

016003

012704

010223
0053C%
001375

000001
000006
001100
002056
003216

160000

001176
001340

1576:

18:

THIS

SDEVM+256,

$DEVM+384.

IS PERFORMED WITH OFFSETS IN B807TH DIRECTIONS.

SCOPE
MOV
MOV
MOV
MOV
MOV
CLR
o, o
BHI

#1,8TIMES
#6,TSINM
#STACK, SP
NOVWNO .R3
#RDNO , R4
(R3)+
R4 ,R3
18

::D0 1 ITERATION
;LOAD TEST NUMBER
“INITIAL THE STACK POINT
*1 ST ADDRESS TO CLEAR
*LAST ADDRESS+?
*RESET ALL SCORE BOARD
;ALL LOCATIONS ARE CLEARED
*BRANCH IF NOT

MoV
MOV
MOVB

NFMTDPB,RO
$COW1,R1
DRIVE, (RO)

;SET UP STARTING ADDRESS OF DPB
*HISTORY FILE BLOCK
*LOAD THE PHYSICAL DRIVE #

MOV

#-8192.
, SWRDM(RO) ;LOAD THE WORD COUNT (ONE TRACK)

MOV
MOV
MGV

$DEVM,
$CYL (RO)
;LOAD THE STARTING CYLINDER
#BUFFER,
$8UF (RO) " ;LOAD THE BUFFER ADDRESS
#RM.REG.14(RO)
:REG'S SAVE ADDRESS

005322

ASL
MOV

RO
PSEUDO(R?) ,R2

020000

MOV

#8192, RS,

001270
043456
004526

000004

SDEVM+128,

CLR
MOVB

000002

000012
000006
000014

MOV

000006

MOV
2s:

;START

MOV
DEC
BNE

$SEC (RO}
-START FROM TRACK = 0, SECTOR
MWRTDAT.SCOMND(R))
:WRITE DATA COMMAND

$DEVM,R2

‘LOCATE THE DATA PATTERN

$8UF (RO) ,R$

BUFFER ADDRESS

R2, (R3)+
R
2s

TO WRITE ONE

DRIVE-$(DW!

*WORD INDEX
)
:LCAD R2 WITH THE DATA PATTERN POINTER

*WORD COUNT

‘FILL THE BUFFER
*DECREMENT WORD CTR
"BRANCH IF NOT DONE

CYLINDER ON EACH TRACK OF

EACH WRI'E CURREN' ZONE

TIRMTIBO RMOS/3/2 DR (MPT TST
MACRO V04.00
GET VALUE FOR SOFTWARE SWIT(H REGISTER

&4-APR-81 18:12:15 PAGE 9-18

SEQ 006

;{7 IONES ON EACH PA(K)

929 013522
930 013526
931 013530
932 013534
933 013540
934 013544
935 013546
936 013552
937 013560
938 013566
939 013572
340 013600
941 013602
942 013606
943 C13614
944 013622
945

%6
947
348
949
950 013624
951 013630

952 013634

953 013640

954
955
956
957
958
959

013646
013654
013662
013670
013674
013676
013700
013704
013706
013712
013716
013722

960
961
962
963
964
95
966
967 013726
968 013730
%9 013734
970 013742
971 013750
972 013752
973 013756
974 013762
975 013764
976 013772
977 014000
978
979
980

004037
004506
000774
005737
001775
012700
004737
005760
100010

04737
012737
012737
105260
126037
003744
105060
062760
022760
103333

031062

3s:

004524

4%:

004506
017452
000016

030334

1777277
177777

000011
000011

000011
000200
0C1417

JSR

FMTDPS

TST

BEQ

MOV
JSR
TST
BPL

030264
030266

001372

JSR

22%:

000G12
000012

MOV
Mov
INCB
CMPB
BLE
CLRB
ADD
cMP

BHIS

RO,RMOS

FMTDPB+16

#FMTDPB,RO
PC,PROCES

16 .\R0O)

22%

PC RMINIT
#=-1,SAVEFG
#-1,SEEKFG

JCALL THE DRIVER

;PARAMETER BLOCK

JBRANCH IF QUEUE FAJL
;WRITE COMMAND DONF ?
JNO,THEN WAIT
JPROCESS

ANY

ERROR

;ERROR FLAG SET ?
JBRANCH IF NOT
JINITIAL THE DRIVE

$TRK(RO)
JNEXT TRACK
$TRK(RO)
, TRKLMT ;JLAST TRACK IS DONE ?
3s
JNO. THEN BRANCH
$TRK (RO)
JRESET TRACK NUMBER
#128.,8CYL(RO)
sMOVE TO NEXT ZONE
4783, ,3CYL(RO)
;LLAST ZONE IS DONE ?

JBRANCH IF NOT

JRESET THE FMTDPS BLOCK AND EXECUTE WRITE-CHECK COMMAND TO DETECT ANY
;COMPATIBLE PROBLEM. THE FOLLOWING SUBROUTINE ARE CALLED SCORE, OFFST
JAND MAKEUP
005037
012700
005060

004504
004506
000010
001270

112760

000151
043456
004526
031062

013760

012760
012760
004037
004506
000774
005737
001775
012790
004737
004737
005760
100011
004737
012737
012737
000414
004737
005760
001407
116060

016060
000733

LOOP1:
000012

000002
000006
000014

004524

LOOP2:
1%:

2s:

004506
017452
015034
000016

030334

177777
1727777

MOov8
MOV
MOV
JSR
FMTDPB
8R
TST
8tQ

MOV
JSR

030264
030266

014614
000022
000026
000022

CLR
MOV
CLR
MOV

3s:

000010
000004

JSR
TST
BPL
JSR
MOV
MOV
BR
JSR
TST

BEQ

MOVB
MOV
BR

OFFCOD

#FMTDPB,RO

$SEC(RQ)
$DEVM, ECYL (RO)

#WCKD, SCOMND (RO)

#BUFFER,
$8UF (RO)
#RM.REG,
14 (RO)

RO RMOS

;SET NEGATIVE OFFSET DIRECTION FLAG

;RO=FMTDPB ADDRESS
;STAR/ FROM SECTOR 0O,TRACK O

sSTARTING CYLINDER NUMBER
;TOTAL

7 CYLINDERS ON ONE TRACK
;WRITE-CHECK-DATA COMMAND

JRESET BUFFER ADDRESS
;ADDRESS TO SAVE RH/RM REG'S
sCALL THE DRIVER

;PARAMETER BLOCK ADDRESS

1%
FMTDPB+16

;BRANCH IF QUEUE FAILURE
STEST IF COMMAND IS DONE ?

N#FMTDPB ,RO

;LOAD THE PARAMETER BLOCK ADDRESS

:BRANCH ,

IF NOT

PC ,PROCES
PC,LABAD

cREPORT IF ANY ERROR
SLOCATE STARTING AND ENDING SECTORS

;BRANCH IF NONE

16(R0O)

PC,RMINIT
#-1,SAVEFG
#-1,SEEKFC
5%
PC,SCORE

SRMWC (RO)
58

;ANY ERROR ?

JINITIAL

THE SYSTEM

sNOT UPDATE
s INCREMENT

THE SCORE

SCORE

sWORD COUNT = 0 /
;BRANCH, IF WORD COUNT IS 0

$RMDA
(RD) ,$SEC(RD) ~ ;UPDATE STARTING SECTOR
SRMWC
(RO) , SWRDM(RO)
18

;UPDATE WORD COUNT

;70O READ THE REST SECTORS

JTHE FOLLOWING CODING TEST THE COMPATIBLE PROBLEM IN OFFSET MODE OFFCOD = O
s (NEGATIVE) AND OFFCOD = 1(POSITIVE).

CZRMTBO RMOS5/3/2 DR {MPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

981

982 014002
983 014006
984 014014
985 014020
986 014026
987 014034
988 014040
989 014042
990 014046
991 014052
992
993 014054
994 014060
995 014064
996 014070
997 014074
014076
014102
14110
014116
014120
014124

014130
014132
014140

014146
014150

014156
014164
014166

1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1631
1032
1033

014172
014200
014204
014212
014214
014220
014224
014226
014234
014240

012700
012760

105060

012760
012760
004537
000443
004737
005737
001775

000010
043456
004526
014244

004737
012737
012737
000414
004737
005760

030334

100011

001407
116060
016060
000732
062760

022760
103402

000137

013760

105260
126037
003002

000137
005737
001005
012737
000137
000137

000004
000006
000014

014476
004524

004506
017452
015034
000016
1772777
177777

MOV

NFMTDPB,RO

6%:

MOV
MOV
JSR
BR
JSR

#BUFFER, $BUF (RO)
;BUFFER ADDRESS
#RM.REG,14(R0O)
;ADDRESS TO SAVE ALL RH/RM REG'S
R5,0FFST
sCALL OFFSET
108
JBRANCH TO NEXT CYLINDER,If OFFSET FAILS
PC ,MAKEUP
sCALL WRITE CHECK IN OFFSET MODE

BEQ

030264
030266
8%:
9%:
000010
000004

000200

000012
000012

10$:

000012

11$:

001372

013646
004504
000001
013630
015140

MOV
CLRB

TST

12%:

004504
13$:

;

MOV
JSR
JSR
TST

#FMTDPB,RO
PC,PROCES
PC,LABAD
16(RO)

;LOAD THE DPB ADDRESS
;REPORT , IF ANY ERROR
;LOCATE STARTINF AND ENDING SECTORS
sANY ERROR ?

JSR
MOV
MOV
AR
JSR
TST

PC,RMINIT
#-1,SAVEFG
#-1,SEEKFG
108
PC,SCORE
SRMW( (RO)

JINITIAL

ADD
TMwe
8LO
JMP
MOV
INCB
tMPB
BGT
JMP
TST

#128. ,8CYL(RO)
#783..SCVL(RO)
118
LOOP2
$DEVM,SCYL(RO)
$TRK(RO)
$TRK(RO)
, TRKLMT
12%
LOOP2
OFF COD

;ADJUST CYLINDER ADDRESS TO NEXT ZONE
SALL 7 ZONES HAVE BEEN TESTED ?
JBRANCII, IF ALL DONE
:TO NEXT WRITE CURRENT ZONE
RESET CYLINDER ADDRESS
s INCREMENT TO NEXT TRACK
;ALL TRACKS ARE TESTED ?
sBRANCH IF ALL DONE
:TO NEXT TRACK
sFINISHING TEST THE POSITIVE OFFSET °

MOV
JMP
JMP

#1,0FFCOD
LOoP1
1817

sSET POSITIVE OFFSET DIRECTION FLAG
SRESTART LOCAT.ON
;BRANCH TO NEXT TEST

BEQ
Mov8
ggv

BNE

;BRANCH,

IF NONE
THE

;NOT UPDATE

SYSTEM

THE SCORE

sBRANCH IF ALL DONE

IN THE DIRECTION TOWARD SPINDLE OR AWAY FROM THE
TOWARD SPINDLE (POSITIVE)

= 1.

SPINDLE

= 0, AWAY FROM SPINDLE (NEGATIVE)
= PHYSICAL DRIVE NUMBER
= DPB ADDRESS

RETRY

= 3 TIMES

RS,OFFST

;

JSR
RET1

RETZ2

OFFST:

MOV
MOV

R1,=(SP)
RZ,=(SP)

;
;

010146
010246

138

;

DRIVE
RO

OFFSET WRITE CHECK IS DONE

;BRANCH IF NOT

;UPDATE THE TEST SCORE
;JWORD CTR = 0 ?
108
:IF WORD CTR = O ,BRANCH TO NEXT OP
SRMDA (RO) , SSEC(RG) ;UPDATE THE NEW STARTING ADDRES
2§MUC(RO),SWRDM(RO) ;UPDATE THE NEW WORD COUNT

OFFCOD

s CALL

1038
1039

OFFCOD

;

;
H

;RESET THE DPB BLOCK

#~8192. 'SWRDM(RO) :FULL TRACK WORD COUNT
$SE C (RO}
;RESET TO SECTOR 0,TRACK NOT CHANGED

FMTDPB+16

BPL

000026
000022

013646
001270
000011
000011

SEQ 006¢

5%:

7%:

014614
000022

001417

K
5
18:12:15 PAGE 9-19

;OFFST ROUTINE
;OFFSET THE HEAD

1034

1042 014246

160000

012700
004737
004737
005760

1035
1036
1037

1040
1061 014244

004506

4-APR-81

OFFSET FAIL RETURN ADDRESS
OFFSET

SUCCESSFUL RETURN

JSAVE ALL RFGISTERS

1063 014250

014252
0146254
014260
014264
1043 014270
1049 014276
1050 014302
1051 014304
1052 014306
1053 014312
1054 014314
1055 014316
1056 014322
1057 014330
014334
014340
014344
014350
14356
014364
014372
014400
014404
014412
1044
104°
1046
1047

014416
1069 014420
1070 014426
1071 014434

1972
1073
1074
1075
1076
1077
1078
1079

1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094

014440
014442
014444
014450

014452
014454

014460
014460
014464
014466
014470
014472
014474

010346
010446
012700
116046
113710
112760

004037
004506
000465
005737
001775

100461
013746
012737
012700
013704
013701
010164
016064
016064
016064
016064
012637
112760
005737
001003
112760
112760
004037

004506

000406
005737
001775
100402
062705
112637
012604
012603
012602
012601
000205

004506
030324
001224
000010
000012
000010
000004
000006
177776
000200
004504

000000
000115
031062
004524
000002

JSR

RO,RMOS

*CALL THE DRIVE HANDLE

;BRANCH IF QUEUE FAILS

BM]

:BRANCH IF ERROR EXIST

MOV

#<5+%2.5> a0Ps

000034
000006
000002
000004
000001
000001
000002

TST
BEQ

FMTDPB+16
1%

SNPS = (SP)

OFF COD

*NEG ?

MOVB
MOVB

#0,S$FMT(RO)
#115,SCOMND(RO)

*CHANGE TO OTHER DIRECTION
:LOAD THE OFFSET COMMAND

#B]T7.8FMT(RO)

JSR

RO,RM0S5

FMTDPR

004510

THE PSW

:LOAD PS §

BNE

“SAVE

¥FMTDPB RO
‘DPB ADDRESS
RMADR , R4
:MUSS BUS ADDRESS
DRIVE .R1
‘DRIVE NUMBER
R1,RMCS2(R4)
:LOAD THE DRIVE NUMBER INTO CONTROLLER
$CYL (RO) ,RMDC(R4) :CYLINDER NUMBER
$SEC(RO) .RMDA(R4G) -SECTOR AND TRACK NUMBER
$WRDM
(RO) ,RMWC (R4) " :WORD COUNT
$8UF (RO) ,RMBA(R4) :BUFFER ADDRESS
(SP) +,34PS
:LOAD THE PSW BACK

MOVB

28:

*COMMAND DONE ?
‘BRANCH IF NOT

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

.LOAD THE OFFSET DIRECTION

:BRANCH IF NOT

JCALL THE DRIVE HANDLE

BR
ST

6$
FMTDPB4+16

:BRANCH IF QUEUE FAILS
*OFFSET DONE ?

BM]

*BRANCH IF ERROR

8EQ

3¢

*BRANCH IF SO

ADD

#2.RS

MOVB

(SP)+,FMTDPB+SCOMND

MOV
MOV

(SP)+ R3
(SP)+ R2

MOV

MOV
RTS

*ADJUST RETURN ADDRESS

;RESTORE REG

(SP)+ ,R1
RS

JEXIT

ISSUES A WRITE CHECK OR READ

;IN OFFSET MODE.

;AND SET UP THE FOLLOWING PARAMETERS

DTUW

1095

;
:

DRVACT
TIMER

1097
1098
1099

; CALL
;

;

TRNSWT

JER
. RET

;RESTORE THE

(SP) +.R&

sMAKEUP ROUTINE

¢THIS ROUTINE

;

1096

R& .= (SP)
#FMTDPB RO
;RO DPB ADDRESS
SCOMND (RO),=(SP)
:SAVE THE 1/0 COMMAND
DRIVE, (RO)
;LOAD THE DRIVE NUMBER
#117,$COMND(RO) -RETURN TO CENTER COMMAND

MOV

177776

9-20

R3,-(SP)

FMTDPR

004524
177776
000240

MOV
MOV
MOVE
MOVB
MOVEB

000002

18:12:15 PAGE

SEC

MOV

004506
000002
001224
000117
031062

&-APR-81

D50

TIRMTBO RMOS5/3/2 DR (MPT TST
MACRO v04.00
GET VALUE FOR SOf TWARE SWITCH REGISTER

= PHYSICAL DRIVE NUMBER

= FMTDPB

=1
= 1 SECOND

PC ,MAKEUP

1/0 COMMAND

(OMMAND TO THE

SELECTED DRIVE

X051

“JRMTBO RM0OS5/3/2 DR (MPT

TST

MACRO v04.00

GET VALUE FOR SOFTWARE SWITCH REGISTER
1100

4-APR-81

M
5
18-72:15 PAGE 9-21

101

JMAIN PURPOSE

}}82

JROUTINES USED TD,SC,STO,(

1102

SEQ 0064

THIS ROUTINE,TO EXECUTE

A COMMAND WHILE

;THIS READ OR WRITE-CHECK COMMAND BEING EXECUTED

1105 014476

1106 014500
1107 014502
1108 014504
1109 014510
1110 014516
1111 014520
1112 014526
1113 014530
1114 014534
1115 014542
1116 014550
1117 014554
1118 014560
1119 014566
1120 014570
1121 014576

010146

010246
010446
012702
022737
001002
012702
005037
110237
013737
012737
013701
013704
112761
006301
012761
006201

1122 014600

010264

}]gg 014612

000207

1123 014604
11246 0146606
1125 014610

012604
012602
012601

MAKEUP:

000151
000010

001340

000171
004524
004510
001224
004506
001224
030324
000001

030176

060000

030270

1%:
030370
030246

000000

MOV

IN DRIVE HANDLER )

R¢ =(SP)
R4 ,-(SP)
MICKD ,R2
JWRITE CHECK DATA [N TFST 6
#10,TSTNM
JON TEST B ?
1
;BRANCH IF NOT
#RDDAT ,R2
JREAD DATA COMMAND IN TEST 8
FMTDPB+16
sCLEAR THE STATUS WORD
R2,FMTDPB+SCOMND ;LOAD THE COMMAND INTO PDB
DRIVE.,DTUW
JACTIVE DRIVE NUMBER
#FMTDPB, TRNSWT ; TRANSFER UNDERWAY FLAG
DRIVE ,R1
;DRIVE NUMBER
RMADR R4
;RH/RM BASE ADDRESS
#1,DRVACT(R1)
JACTIVE DRIVE FLAG
R1
JWORD INDEX
#60000, TIMER(R1) ; ONE SECOND TIMER
R1

MOV
MOV
MOV

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

RTS

THAT

R1,-(SP)

MOV
MOV
MOV
(MP
BNE
MOV
(LR
MOVB
MOV
MOV
MOV
MOV
MOVB
ASL
MOV
ASR

MOV

R2,RM(CS1(R&)

JISSURE WRITE CHECK OR READ COMMAND

pPC

SJEXIT

JRESTORE REG &4,

1128

;SCORE ROUTINE

}}%g

STARSC

= START SECTOR ADDRESS

. CALL
:
:

JER
RET

PC,SCORE

MOV
MOV
MOV
MOV

R1.,~-(SP)
R2,~(SP)
R3,~(SP)
R&,-(SP)

1129
1130
113
1132
1133

ASSURE

IN OFFSET MODE.

JROUTINE TO UPDATE THME TEST SCORE
:
TABLEX
= ADDRESS OF CURRENT SCORE BOARD
:
$DEVM
= LOGICAL DRIVE #
:
DRIVE
= PHYS]CAL DRIVE NUMBER
:
CMSEC
= END SECTOR ADDRESS

1136
1137
1138
1139

1140 014614

014614
014616
014620
0146622

010146
010246
010346
010446

1143 014634
1144 014642
1145 014644
1146 014650
1147 0146652
1148 014656
1149 016660
1150 014664
1151 014666
1152 014672

022737
001011
005737
001403
012703
000413
012703
000410
005737
001403

1141 0146246
1142 014632

023737
003473

SCORE
:

001362

001360

000010

001340

004504
003676
003216

1%:

00450L

2%:

(MP
BLE
CMP
BNE
TST
BEQ
MOV
BR
MOV
BR
TST
8EQ

CMSEC,STARSC
9%
#10,TSTNM
23
OFFCOD
18
#RDPO,R3
43
#RDNO,R3
4%
QFFCOD
3%

;:PUSH
:+sPUSH
;:PUSH
::PUSH

R1
R2
R3
R4

ON
ON
ON
ON

STACK
STACK
STACK
STACK

JCORRECT START AND STOP ADDRESSES
;BRANCH IF NOT

;ON TEST 8
JBRANCH [F NOT (MUST BE TEST 6)
JNEGATIVE OFFSET ?
JBRANCH 'F NEGATIVE OFFSET
:SCORE BOARD ADDRESS
;SCORE BOARD ADDRESS
;NEGATIVE OFFSET
JBRANCH,IF NEGATIVE OJFFSET

(ZRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

juer

00000000
N N N NNNNNNN

LNN—'O\OW\IO*\J!J\LNN—'OO

012703
000402
012703
11370
005702
001404
062703
005302
001374
010337
010301
013702
013703

015032

116204
060304
022704
003003
162704
000772
060401
023703
002412
105221
005204
005203
022704
002367
013701
005004
000763

002536

&4-APR-81

N
S
18:12:15 PAGE 9-22

SEQ 0065
ggv

ngUPO,R3

;SCORE BOARD ADDRESS

002056
004517

4%:

3%:

MOV

#OVWNO,R3

s SCORE BOARD ADDRESS

000020

5%:

002054

6%:

TSY
8EQ
ADD
DEC
BNE

R
6$
#16.,R3
R
5%

JON TRACK 0
JBRANCH IF 1T IS
JEACH SCORE BOARD TAKES 16 BYTES
sLOCATED ?
;BRANCH IF NOT

MOV
MOV
MOVB
ADD

$DEVM,R2
STARSC,R3
INDST(R2),R4
R3,R4

;LOGICAL DRIVE #
;START SECTOR
-LOCATE THE STARTING POINT FOR SCORE BOARD
‘UPDATE POINTER

001270
001360
004424

11$:

000017
000020

7%:

001362

8s:

MOVR

MOV
MoV

002054
o

012604
012603
012602
012601
000207

R3,TABLEX
R3,R1

;LOAD

THE

TRACK NUMBER

;STORE THE TABLE STARTING ADDRESS
JRE ASSIGN REGISTERS

CMP

5. ,RG

ADD

R4 ,R1

INCB
INC

(R1)+
R4

“INC SCORE AND POINT TO NEXT LOGICAL DRIVE
: INCREMENT LOGICAL DRIVE #

8GE
MOV
CLR
&R

TABLEX,R1
R4
8s

8GT
gge

CMP
BLT
INC
TMP

000017

FMTDPB+$TRK
,R2

7
q%g..n4

CMSEC.R3
o8

R3
#15. R4
8$

*SHOULD POINTER BE ADJUSTED ?

*BR IF NO
:ENTRY POINT AT THE SCORE BOARD

*ENDING SECTOR REACHED ?
*BRANCH IF IT IS
*INCREMENT SECTOR COUNT
STIME TO RESET TABLE ?
*PRANCH IF NOT
*RESET TABLE ADDRESS
*LOGICAL DRIVE 0
*LOOPING BACK

MOV

(SP)+,R&

;:POP STACK

INTO R4

g?g

égp)+,a1

“:POP STACK

INTO RI

MOV
MOV

(SP) +.R3
(SP) +.R2

*:POP STACK INTO R3
1:POP STACK INTO R2

;LABAD ROUT INE
;LOCATE THE START SECTOR AND THE TERMINATE SECTOR OF
;OPERATION.

;
.

STARSC
(MSEC

THE PREV!IOUS

= STARTING SECTOR
-~ ENDING SECTOK

S INFORMATJON FROM SRMDA (FMTDPB) ,SRMWC (FMTDPB) , $SEC (FMTDPB)
;

‘CAlL
:
;
010046
010246
012700
116002

042702

116037

LABAD:

004506
000026
177740
000010

$SEC(FMTDPB)
, SWRDM(FMTDPB)

JSR
RET

PC.LABAD

MOV
MOV
MOV

RO, ~(SP)
R2,=(SP)
#FMTDPB,RO

:sPUSH R2 ON STACK
.DPB ADDRESS

BIC

#177769,R?

;CHOP OFF

MOvB
001360

MOVB

$RMDA (R() ,R?
$SEC(RO) ,STARSC

;sPUSH RO ON STA(K

<HARDWARE TERMINATING SECTOR

HIGH ORDER BITS IF ANY

;STARTING SECTOR ADDRESS

1204 015062
1205 015064
1206 015066

005702
001404
005302

1208 015074
1209 015076

000416
005760

000022

026060

000022

000004

000010

001362

600037

001362

1207 015070

0053

TIRMTBO RMOS5/3/2 DR (MPT T1ST
MACRO v04.C0
GET vALLE FOR SOF TWARE SWIT(H REGISTER

1210 015102

1211 015104

1212 015112

1213 015114
1214 015122

1215 015124

1216 015132

0:513c
015134

1217 015136
1218
1219
1220

010237

001410

001004

116037
071403

1737

JTERMINATOR AT O SECTCR

TST

SRMWC (RO)

;WORD COUNT = (

8EQ
(o, o
BNE
MOVB
BR

%g:

MOVR

"126C
012600

MOV

L 017

000207

RTS

18
R2
R2.CMSEC
3s

1222

23
JBRANCH IF
SRM
(RO) ,SWRDM(R0O)
W( ; WORD
s 3
JBRANCH ]F
$SEC(RO) ,CMSEC ;END SECTOR
33
JEXIT

IR AR

1237 Y15222
1238 015230
1239 015236

12640 015242
12641 015246
1242 015252

000004
012737

004737
012737
012737
012737
012706
012702
005022
022702
103374
012700

012760
112700
005060

113710
013702
062702

000001

001176

177777
177777

030264
030266
001340

030334

000007
001100
004356

004506

160000
000161

000010
001224
001270
002021
000012
043456
004526
021042
031062

010260

1245 015270

012760

1247 015302
1248 015306
1249 015210
1250 015312
1251 015316
1252 015320

004037
004506
000774
005737
001775
012700

1256 015330

005760

00450%
017452
000016

1256 015336

004737

030334

1246 015276

1253 015324

1255 015334

012760
004737

004737

100010

004524

7ST7:

cEND AT SECTOR 31

(SP) + ,R2

;:POP STACK INTO R2

(SP)+,R0O

;:POP STACK INTO RO

PHYSICAL

AR AR AN

SCOPE

000004
000002

#SELFO,R2
:CLEAR THE SELF TEST SCORE BOARDS
(R2)+
:
#SELF18.R2
JALL DONE ?
13
;BRANCH IF NOT
#FMTDPB,RO
:SET UP DPB
#-8192. ,$WRDM(RO) ;LOAD FULL TRACK WORD COUNT

CLR
MOVB

$SEC(RO)
DRIVE, (RO)

MOV

3s:

AN RN RN R RN AN RANN T ANRRNNARANRNARANNRANANRAA
NN

MOV
CLR
M
BHIS
MGV
MOV

ADD
MOV
MOV
2%:

AR NN AR P AT AN

#1,8TIMES
PC,RMINIT
#-1,SAVEFG
#-1,SEEKFG
#7,TSTNM

MOVB

000006
000014

DRIVE

MOV
JSR
MOV
MOV
MOV

MOV

1%:

004422

1243 015256

1244 015262

CHANGED
= START SECTOR

;DRIVE:

015150
015154
015162
015170
015176
015202
015206
015210
015214
015216

IT IS
COUNT CHANGED AT apL

#31,,(MSEC

;SDEVM: LOGICAL DRIVE #

015140
015142

JBRANCH [F [T IS
SPECREMENT ONE SECTOR TOUNT
SENDING SECTOR ADDRESS
JEXIT

sSELF TEST:WRITE CYLINDERS $DEVM+17 ,SDEVM+17+128, SDEVM+17+128X2.ETC.
sTHEN EXECUTE WRITE CHECK TO DECTECT ANY DATA OR HEADER PROBLEM
;FOR THE SELECTED LOGICAL DRIVE

1223

1227
1228
1229
1230
1231
1232
1233
1236
1235
1236

TSY

8EQ
DEC
MOV
BR

1%:

JTEST

B
6
18:12:15 PAGE 9-23
SEQ 0066

001362

1221

12264
1225
1226

4-APR-B1

MOV
JSR
JSR

FMTDPS

BR
TST
BEQ

#STACK,SP

;;DO 1 ITERATION
JINITIAL THE DRIVE
;SAVE THE RH/RM REG'S

.LOAD TEST NUMBER

JINITIAL THE STACK

MWRTDAT , SCOMND (RO)

(WRITE DATA COMMAND

$DEVM,R?2

;LOCATE THE STARTING CYLINDER

;SECTOR O,TRAC: O
;LOAD PHY. DRIVE

#17..R2
R2.$CYL(RO)
#BUFFER, SBUF (RO)

:CYLINDER ADDRESS
JRESET BUFFER ADDRESS

RO ,RMOS

;CALL DRIVER HANDLER

#RM_REG, 14 (R0O)
PC.,FILBUF

;ADDRESS TO SAVE ALL RH/RM REG'S
JFILL THE BUFFER WITH WORSE CASE PATTERN

2%
FMTDPB+16
3

:BRANCH IF QUEUE FAILS
;ALL DONE ?
:BRANCH IF NOT

MOV
JSR
TST

AFMTDPB,RO
PC.,"ROCES
16(~0)

:REPORT

ERROR FLAG SET

JSR

PC,RMINIT

JINITIAL

BPL

22%

:BRANCH IF NOT

THE DRIVE

ANY ERROR

CZRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
GET VALUE FOR SOf TWARE SWIT(H REGISTER

Y054

1257 015342

1258 015350

:
!

1259
1260
1261
1262

012737

015356
015362
015370
015372

105260
126037
003744
005060

1264 015404
;ggz 015612

022760
103333

1263 015376

062750

177777

000011
000011

000010

000200
001440

030264

(30266
001372

000012

1274
1275
1276

1277

C
6
1B:12:15 PAGE 9-c«

SEQ 006/

MCV

#-1,SAVEFG

INCB
CMPB
BLE
CLR

$TRK (RO)
$TRK(RO) ,TRKLMT
2%
$SEC(RO)

;ALL TRACK ARE DONE ?
JBRANCH IF NOT
JRESET SECTOR AND TRA(K

#800.,8CYL(RO)
2%

; ALL 7 ZONES ARE DONE
sBRANCH [F NOT

MOV

ADD

000012

}%gg
1269
1270
1271
1272
1273

22%:

4-APR-81

cMP
BHIS

#-1,SEEKFG

#128.,8CYL(RO)

JNEXT

TRA(K

;ADVANCE TO NEXT ZONE

JEXECUTE WRITE CHECK TO DETECT ANY DATA OR HEADER PROBLEM
015614
015422

112760
012702

000151
004356

015426
015432
015436
015442
015446
015452
015454
015456

013703
062703

001270
000021

1278
1279
1280 015462
1281 015464
1282 015470
1283 015474
1284 015500
1285 015502
1286 015504
1287 015510
1288 015512
1289 015516
1290 015522
1291 015524
1292 015530
1293 015534
1294 015540
1295 015542
1296 015544
1297 015550
1298 015552
1299 015554
1300 015562
1301 015566
1302 015572
1303 015574
1304 015602
1305 015604
1306 015610
1307 015614
1308 015620
1309 015624
1310 015632
1311 015640
1312 015642
1313 015646

010360
005037
004037
004506

000774
005737
001775
012700
004737
005760
100401
105212
004537
000415
004737
005737
001775
012700
004737
005760
100401
105212
005737
001006
005202
012737
000137
105260
005202
126037
003004
005037
000137
005060
012702
062760
022760
103404
005037
000137

000002

movs
MOV

48:

004524

5%:

004506
017452
000016

014244

6%:

014476
004524

7$:

004506
017452
000016
004504

015446
000011
000011

004504
015446
000010
004356
000200
001440
004504
015446

BR
TST
BEQ
MOV
JSR
TST
B8M]
INCB
JSR
B8R
JSR
1ST
BEQ
MOV
JSR
TST
B8M]
INCB
TST
BNE
INC
MOV
JMP
INCB
INC
(MPB
BGT
CLR
JMP
CLR
Mov
ADD
CMP
BLO
CLR
JMP

43
FMTDPB+16
5%
#FMTDP8
RO
PC,PROCES
16(RO)
63
(R2)
R5,0FFST
8%
PC ,MAKEUP
FMTDPB+16
’$
#FMTDPB
RO
PC.PROCES
16(R0O)
8$
(R2)
OFFCOD
93
R2
#1,0FFCOD
43
$TRK(RO)
R2
$TRK(RO)
, TRKLMT
108
OFFCOD
4%
$3EC(RO)
#SELFO,R2
#128.,8CYL(RQO)
#800.,8CYL(RO)
118
OFFCOD
4%

MOV
ADD

000012
004504
031062

000001

MOV
CLR
JSR

AWCKD , $COMND (RO)
s CHANGE TO WRITE C(HECK
HSELFO,R2
;R2 POINTS TO SCORE BOARD
;CAN NOT BE DESTORIED
$DEVM_R3
;LOACATE STARTING ADDRESS
#17. ,R3
R3,$CYL (RO)
;STARTING CYLINDER
OF+COD
;SET NEGATIVE OFFSET FLAG
RO,RMOS
;CALL DRIVE HANDLER

8%:
004504

9%:
001372

10%:
000012
000012

FMTDPB

(OMMAND

sBRANCH IF QUEUE FAILS
JALL DONE ?
;BRANCH IF NOT
;ANY ERROR
SYES,THEN DON'T INCREMEMT SCORE
s INCREMENT SCORE
sOFFSET
;BRANCH IF OFFSET FAILS
JEXECUTE WRITE CHECK IN OFFSET MODE
;ALL DONE /
sBRANCH IF NOT
JREPORT IF ANY ERROR
JERROR BIT SET ?
sDON'T INCREMENT SCORE
; INCREMENT SCORE
sPOSITIVE OFFSET IS DONE °
;BRANCH Il DONE
s INCREMENT SCORE BOARD POINTER
;SET PCSITIVE OFFSET FLAG
sPOSITIVE OFFSET TEST
s INCREMENT TO NEXT TRACK
sADVANCE SCORE BOARD POINTER
;ALL TRACKS ARE DONE ?
;BRANCH , IF ALL DONE
JRESET OFFSET DIRECTION
;TRY THE NEXT TRACK
;TRACK 0, SECTOR C
SRESET SCORE BOARD
;ADVANCE TO NEXT ZONE
ALL 7 ZONES ARE DONE ?
JBRANCH ,IF ALL DONE
JRESET OFFSET FLAG
. TO NEXT ZONE

)055

'
[

CZRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

4-APR-81

D
6
18:12:15 PAGE 9-25

1314 015652 000240

118$:

NOP

1316
1317

;TEST10
TEST 8
:CYLINDERS TESTED

SEQ TUer

:TO NEXT TEST
:

READ COMPATIBLE TEST
SDEVM+112,$DEVM+112+128XxN

N=1

10 §

1318
319
1320

:THIS TEST SELECT ONE CYLINDER FOR EACH LOGICAL DRIVE FROM
ZZ0NE 1 TO ZONE 6
:

132‘.

"_'itkl'ttl’t'i'*t*'tfi’*t!‘t"'i.ifitt*fl'ttfifi.t*"t't"'.'t."'t.'t"'

1321
1322

:
:

015654
015656

1325
1326
1327
1328
1329

000004
012737

015664
015672
015676
015702
015704

012737
012706
012702
005022
022702

1332 (15716

012700

1330 015210
1331 015712

1333
1334
1335
1336
1337

101374
005037

015722
015730
015734
015742
015750

012760
005060
112760
012760
012760

1339 015762
1340 015766

013703
062703

1338 015756

113710

1341 015772

010360

1344
1345
1346
1347
1348

016004
016006
016012
016014
016020

000774
005737
001775
012700
004737

1350 016030
1351 016034
1352 016036

005760
100011
004737

1342 015776
1343 016002

1349 016024

004037
004506

004737

1353 016042
1354 016050
1355 016056
1361 016060

012737
012737
000414
004737

1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373

001407
116060
016060
000733
012700
012760
105060
004537
000443
004737
005737

1362 016064

016070
016072
016100
016106
016110
016114
016122
016126
016132
016134
(16140

005760

000001

000010
901100
003216

001176
001349

18:

004356
004504
004506
160000
000010
000171
043456
004526
001224
001270
000160

TST10:

0G0004

LOOP3:

000002
000006
000014

18:

004524

2s:

004506
017452
015034
900C016

030264
030266
38:

000022

160000
000010
014244
014476
004524

BHI
CLR

MOV

MOV
CLR
MOVB
MOV
MOV

MOV

JSR
FMTDPR

BR
TST
BEQ
MOV
JSR

4s:
000010
000004
000004

5%:

68:
78:

= LOGICAL DRIVE #
= PHYSICAL DRIVE #

#1,8TIMES

#10, TSTNM
#STACK, SP
#RDNO R2
(R2)
+
#RDP18+16.,R2

::D0O 1_ITERATION

:LOAD TEST NUMBER
:INITAIL THE STACK POINTER
:CLEAR THE SCORE BOARD OF READ TEST

;ALL DONE
:BRANCH IF NOT
:SET NEGATIVE OFFSET FLAG
#FMTDPB, RO
:SET_UP DPB BLOCK
#-8192. SWRDM(RO} ;LOAD THE WORD CTR,FULL TRACK
$SEC (RO)
;TRACK 0 AND SECTOR 0
WRDDAT,SCOMND(RO) ;LOAD THE READ DATA (OMMAND
#BUF FER, $BUF (RO) ;RESET BUFFER ADDRESS
#RM.REG,14(RO)
;ADDRESS TO SAVE ALL RH/RM ADDRESS
DRIVE, (RO)
:LOAD PHY. DRIVE ADDRESS
SDEVM.R3
:LOCATE STARTING CYL
#112. .R3

1$
OFF COD

R3.S$CYL (RO)
RO ,RMOS

:STARTING CYL ADDRESS

:CALL THE DRIVE HANDLER

TST
BPL
JSR
MOV
MOV
BR
JSR

1$
FMTDPB+16
23
NFMTDPB,
RO
PC,PROCES
PC,LABAD
16(R0)
3$
PC,RMINIT
#-1,SAVEFG
#-1.SEEKFG
5%
PC,SCORE

BEQ
MOVB
MOV
BR
MOV
MOV
CLRB
JSR
BR
JSR
TST

5%
:BRANCH IIF IT IS
SRMDA(RO),$SEC(RQ) ;UPDATE THE NEW STARTING SECTOR
SRMWC
(RO) , SWRDM(RO) * ;UPDATE WORD COUNT
18
; CONTINUE
#FMTDPB,RO
RESET THE DPB BLOCK
#-8192. 'SWRDM(RO)
;FULL TRACK WORD COUNT
$SEC(RO)
RESET TO SECTOR O,TRACK NOT CHANGED
R5,0FFST
:CALL OFFSET
10§
:BRANCH IF OFFSET FAILS
PC ,MAKEUP
PEXECUTE READ DATA IN OFFSET MODE
FMTDPB+16
1OFFSET READ 1S DONE ?

JSR

014614

004506

MOV
MOV
MOV
CLR
P

MOV
ADD

031062

000026
000022

SCOPE
MOV

MOVB

000012

030334
177777
177777

$DEVM
DRIVE

TST

SRMWC (RO)

: COMMAND DONE ?
:BRANCH IF NOT
:REPORT IF ANY ERROR
LOACATE START AND STOP ADDRESS
:ANY ERROR ?
:BRANCH,
IF NONE
SINITIAL THE SYSTEM

;NOT INCREMENT THE SCORE
UPDATE THE SCORE

$WORD COUNT= 0

MACRO v04.00
(ZRMTBO RMOS5/3/2 DR (MPT TST
GET VALUE FOR SOF TWARE SWIT(H REGISTER
1374 016144

1375 016146

1376 016152

1377 016156
1378 016162
1379 016106

*380 0°6170
016174

1382 016202
1383 016210
1389 016212

1390 016216

016222

1362 016224
1393 016232

1394 016240

1395 016242
1396 016250

1397 016256

1398 16260
1399

1400 016264
1407 016270

402 016274
1403 016300

146046 016304

1405 016312
1406 016314
1407
1408 016320

16409 016324
16410 016326
1611 016334
1412 016340
1413

030334

004737
005760
001407

014614
000022

000414

116060

016060
000732
062760
022760
103402

177777
177777

MOV

JSR
JSR
TST

BPL

000012
000012

001270
000160
000012
000011
000011

MOV

10%:

ADD

(MP
BLO

11%:

MOV
ADD

MOV
INCB
cMP8

007137¢

867

015776

JMP

004504
000001
015716

12%:

IST
BNE
MOV
JMP
NOP

004504
13%:
JTEST1N

#FMTDPB,RO
PC,PROCES
PC,LABAD

16(R0O)
3%

PC,RMINIT

#-1,SAVEFG
#-1,SEEKFG

103

PC,SCORE

SRMW(C (RO)

;BRANCH [F NOT

;JREPORT

JLOCATF

THE

ANY ERROR

START AND

L2 e<ROR 7
JBRANCH,
IF NONE
JINITIAL

THE

sNOT UPDATE

;UPDATE

THE

STOP ADDRESSES

SYSTEM

THE SCORE

SCORE

sWORD COUNT IS O

109
;BRANCH IF IT IS
$SRMDA(RQ) ,$SEC(RO)
;UPDATE SECTOR ADDRESS
SRMWC (RO) , SWRDM(RO) ;UPDATE WORD COUNT
63
;LOOPING UNTIL CURRENT TRACK IS DONE
#128.,8CYL(RQ)
#767.,3CYL(RO)
18
13

;ADJUST CYLINDER TO NEYT ZONE
JALL 6 ZONES ARE DONE ?
JSRANCH [F ALL DONE

$DEVM,RY

;LOCATE STARTING CYLINDER

712. ,R3
R3,$CYL (RO)
$TRK (RO)
STRK(R0O)
, TRKLMT
12¢
18

OFFCOD
13

#1,0FFCOD

LOOP3

sSTARTING CYLINDER
;TO NEXT TRACK
;ALL SRUFACE ARE DONE ?
SBRANCH IF ALL DONE
;LOOPING UNTIL CURRENT TRACK IS DONE

OFFSET CODE = POSITIVE ?
;IF EQUAL,THEN ALL DONE
sSET POSIiTIVE OFFSET FLAS
. TO NEXT TEST

TEST 9

JREPORT THE TEST SCORES
;DIRECY THE OPERATOR TO CHANGE PACK AND MOUNT TO OTMER DIRVE

1416

1617
1418
‘419
1420
1421
16422
1423
1624

1427
1428
1429
1430
1431
1632
1433

TST
B8EQ
MovBs

JMP

1414
1415

1425
1426

JSR

9%:

000200
001377

013703
062703
010360
105260
126037
003002
000137

MOV
MOV
B8R

8%:
000010
000004

015776

JSR

030264
020266

000026
000022

000137

005737
001005
012737
000137
000240

BEQ

$DEVM
BADSE(C

= LOGICAL DRIVE #, SHOULD NOT BE UPDATED BEFORE
REPORT IS COMPLETED.
nu

1391

100011

9~26

SEQ 0069

(04506
017452
015034
000016

004737
012737
012737

1B:12:15 PAGE

=1,

THE

(DRIVES ARE COMPATIBLE)

(DRIVES NOT COMPATIBLE)

CMTRK

]

016342
016344

016352
016360
0616364
016366
016%70
016374
016400

000004
012737
012737
012706
005046
005046
012746
012746
012702

000001
000011
001100

004357
003676
004356

001176
001340

SRR

15111

1381

001775
012700
004737
004737
005760

&-APR-81

TRACK NUMBER FOR CONTROLLING THE

2222240320222

SCOPE
MOV

MOV

MOV
(LR
-CLR
Mov
MOV
Mov

d303220R22222

#1,STIMES
#1171, TSTNM
#STACK,SP

-(SP)
=(SP)
#SELFO+1,-(SP)
#RDPO, - (SP)

#SELFO,R2

2222203222232

S(CRE

TYPING.

3232332232222

.:D0O 1 ITERAT]ON
;LOAD THE TEST NUMBER
;LOAD THE STACK POINTER
.DUMMY SCORE BOARD ADDRESSES

*POSITIVE OFFSET READ TEST SCORE ADDRESS
JPOSITIVE OFFSET TEST SCORE
JNEGATIVE OFFSET READ TEST SCORE

"/RMTBO RMOS5/3/2 DR (MPT TST
MACRO v04.00
GET vALUE FOR SOF TWARE SWITCH REGISTER
1463 016404

1635 016410

1636 016414
1437 0164620
1438 016422

012703
13701
122712

1%,

2%:

000020

1439 016426

14640 016430

3%:

000006

1641 056434

1642
443
1644
14665
1446
1447
1448
1449

003216
(01372
000007

016436
016440
016442
Q164464
016450
016454
016456
016460

000020
000002

S%:

1458 016500
1459 016504

016510
1461 016514
1662 016516
1463 016522
1464 016526
1465 016530
1466 016534
16467 016536
1468 016542
1469 016544
1470 016552
1471 016554
1472 C16560
1473 016562
1474 016570
1475 C16572
1476 016576
1477 016600
1478 016606
1479 016610
1460

1481
1482
1483
16484
1485

122712
101403

001342
001364
002056
000001
002006

000016

004537
000001
122762

017152

004537
000002

017152

1014603

122762
101403

000016

000014

017152

016616

000441

016620
016624
016626

122712

000016

1490 016650

122762
101403

101403

000014

004537
000001
122762

017152

004537
000002

017152

101403

LOOP4:

001366
001270

004537
000004

1486 016632

£Z3AZR4

;ADJUST SCORE BY ADDING 6

R4, (R3)+
RS
gg

;UPDATE SCORE AND PGINTS TO NEXT DRIVE
JALL DRIVES ARE UPDATED ?
JBRANCH IF NOT

ADD
ADD
DEC

#16. ,R3

;ADJUST POINTER OF

MOV
MOV

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

CMP8
BLOS

MOV
MOVB
ADD
MOVB

#16. RS

#2,Re
R1

JSET ACCEPTANCE FLAG,

017152

1487 016634
1488 016642
489 016644

JNEGATIVE OFFSET READ COMPATIBLE TEST SCORE
;R1= TRACK NUMBER
;SELF READ TEST SCORE [S TOO LOW
JBRANCH IF NOT

BNE

005037
005037
005001
012702
012703
030337
001502
035037
123701
001434

000016

KPATH:

000460

1%:

001140

2%:

001620

000460

6
9-¢27

#RDNO,R3
TRKLMT ,R1
#7,(R2)
3

MOV
MOV

BGE

004537
000003

1480 016614

F
18:12:15 PAGE

SE@ 0070

DEC
BNE
BR

1450 016462
1651 016464

1452
1453
1454
1455 016466
1456 016472
1457 016476

4-APR-81

INITIALIZE

; INCREMENT READ COMPATIBLE

+UPDATE THE SELF
JALL TRACKS DONE

JBRANCH IF NOT

SCORE ADDRESS

JGET NEXT PAIR

THE

TABLE

POINTERS AND

TRA(K NUMBER

CLR
CLR
CLR

BADSE(
CMTRK
R1
#OVWNO ,R2

SET ACCEPTANCE FLAG
;START FROM TRACK 0
:START FROM LOG DRV O
;SCORE BOARD BASE ADDRESS

8IT
8EQ
CLR
(MPB
BEQ
CMPS
BLOS
JSR

R3,ASNLST

;1S THE LOG DRV UNDER TEST ?

NUL INE
$DEVM ,R1
SPATH

;NEW LINE INDICATOR
sSELF SCORE ?
;BRANCH IF IT IS

sBRANCH IF NOT

MOV
MOV

000001

(MP8
BLOS
JSR

000002

#3170,R3

LOOPS

#1646, ,(R2)
RS,PRINT

;BIT POSITION FOR LOG DRV 0

;BRANCH IF NOT

;OVERWRITE NEG OFFSET < 14 ?

;REPORT
-COLUMN
#14. ,0VWPO-0OVWNO(R2)
2%
JBRANCH
R5,PRINT
SREPORT
;COLUMN
#12. ,RDNO-OVWNO
(R2)

EXCEPTIONS
POSITION ON REPORT
;OVERWRITE POS OFFSET <
IF NOT
EXECPTIONS
POSITION ON REPORT

;READ NEG OFFSET < 6
;BRANCH IF NOT
JREPORT EXCEPTIONS
; COLUMN POSITION ON REFORT

RS.PRINT

(mMpPE
BLOS
JSR

#12. ,RDPO-OVWNO(R2)
.READ POS OFFSET <
43
;BRANCH IF NOT
RS,PRINT
sREPORT EXECPTJONS

LOOPS

. COLUMN POSITION ON REPORT
SEXIT

SPATH:

(MPS
B8LOS
JSR

”4&. (RS

JOVERWRITE NeG OFF < 14

1%:

000003

000004

000601

(MPS
8LOS
JSR

000002

(OLUNM POSITION ON REPORT
#14. ,0VWPO-0OVWNO
(R2)
;OVERWRITE POS OFFSET

RS.,PRINT
23

RS,PRINT

fOk ALL

SCORE BOARD ADDRESS

TEST
?

cMPs
8BLOS
JSR

3%:

SCORE

14 °

;BRANCH IF _NOT
JREPORT EXECPTION

:BRANCH IF NOT
sREPORT EXCEPTION

JCOLUMN POSITION ON REPORT

16 DIRVES

TIRMTBO RMOS/3/2 DR (MPT TST
MACRO v34.00
T VALUE FOR SOF TWARE SWITCH REGISTER
1491 016652
1492 916656
1493 016660

1494 016666
1495 016670

1496 016674

'497 016676

1493 016702

1499 C16704
1500 016712
1501 016714
1502 016720
1503 016722
1504
1505 016722

1506
1507
1508
109
510 0

511
!

016724
016726
016730
016732
G16736
016740

1 512 016744
1 513 016750
!

514
1 515
!
1 516
1 517
1 518
1 519
1 520
1 521
1 522
1

016752
016756
016760
016764
016766
016770

013704
006304

0uv1364

004537
000003
013704
006304

017152

122764
101403

000006

122764

000C06

004537

017152

101403

000004

005201
000241
006103
005202
022701
103264

005237
012702
005001
013703
001404
062702
005303
001374
012703

SEQ 007

cs:

004356

001364
004357

MOV
ASL
CMPS
BLOS

CMTRK ,R4
R4

LOOPS:

LOOP6:

C01364
002056
001364

000020

1%:

000001

2%:
JAT

6%
RS,PRINT

CMTRK,R3
2%

s INCREASE THE LOGICAL DRIVE #
;JADJUST THE BIT POSITION
;POINTS TO NEXT DRIVE
;UPDATE SCORE B0ARD BASE ADDRESS
;ALL DRIVES ARE CHECK ?
;BRANCH IF NOT ALL DONE
sNEXT TRACK
JRESET SCORE BOARD BASE ADDRESS
;LOGICAL DRIVE START FRM 0
;LOCATE THE SCORE BOARD BASE ADDRESS
JBRANCH IF ON TRACK 0

R3
1%
#3]710,R3

JALL TRACK DONE ?
;BRANCH [F NOT
;8IT MAP POSITION FOR DRIVE O

#16. ,R2

123737
003642
005737
001402
104401

0013064

NSO

016774
317002
017004
017010
] 5 3 0 017012
1 5 34
5 35
017016
5 36 017022
1 5 37
017030
1 5 38 017034
1 5 39 017040
1 5 40 017044
1 P 41 017050
5 42 017052
5 43 017053
5 44 017054
1 S 45
1 5 46 017060
1547 017062
1548 017064
1549 017066

1046401

001207

017070

012777
005077
104401
104401

013746

104403
001
000

104401

104411
012605

001372

001342
001207

017444
011274
042272
001274
001224

DISMNT:

LOGICAL DRIVE # START FROM 0

ADDRESS

*WAS SCORE PRINTED °

TYPE
MOV

#IDLEX,aRMVE(

TYPE

RDL IN
MOV
TSTR

DEASG:

SCORE BOARD BASE

INDICATE LOGICAL DRIVE 0 1

2ADSE(
DISMNT

.BYTE
.BYTE

105715

001374
005002

81T MAP,

::\“L)L TRACKS ARE DONE

TYPE
TYPE
MoV
TYPQS

1%:

ADDRESS OF

CMTRK, TRKLMT

(LR

042310

1% BYTES

tme8
BLf
TST
BEQ
TYPE

011276

;FOR EACH TRACK,

R2
R3

1 525

INDEX

;SELF READ POS OFFSET < 6 °
sBRANCH IF NOT
;COLUMN POSITION FOR REPORT PRINTING

R3
R2
#15. ,R1
LOOP4
CMTRK
#OVWNO ,R2
R1

INC
(MP
BHIS
INC
MoV
CLR
MoV
BEQ
ADD
DEC
BNE
MOV

;WORD

JREPORT EXCEPTIONS

INC
cLC

THIS POIN
R1

JREPORT EXCEPTIONS
;LOCATE THE SELF TEST SCORE

#6,SELFO+1(RS)

ROL

000017

sLOCATE THE SELF TEST SCORE
JWORD INDEX
;SELF READ NEG OFFSET < 6 ?
;BRANCH IF NOT

3$
R5,PRINT

000004

1 526
1 527
1 5 28
1 5 29

155
b0

(MTRK R4
R4
#6,SELFO(RG)

JSR

1 524

MOV
ASL
(MPB
BLOS
JSR

000003

3%:

1 523

G
6
18:72:15 PAGE 9-¢K

4-APR-81

BNE
CLR

LOOP4

*BR IF NO

-$CRLF

JCR=LF

.SCRLF

;CR-LF

SRMVE(+2

;CLEAR THE

DRIVE.,~-(SP)

:SYSTEM NAME
sPHYSICAL DRIVE NUMBER

MESG12
. $CDW2

JRESET

THE

INTERRUPT VECTOR

SJUNLOAD AND DISMOUNT MESSAGE

JMESG13

(SP) +,RS
(RS)

1%
R2

JMESSAGE TYPE <(CR> WHEN READY
JREAD

[N ONE LINE

JBR

JLOCATE THE READ IN LINE
s CARRIAGE RETURN ?
IF

sLOGICAL DRIVE NUMBER

CJRWTBO RMOS5/37¢2 DR IMPT TST
MACRO v04.00
GE”TM vALUE FOR SOF TWARE SWITCH REGISTER

*Ro&R

2NN

elelelalolsle]

00 ~NO Nl

VIV, IV, IV NIV

1551 017072
0N 7076
52
0 102
53
1 5%
01
1 55
01
1 56
01
01
57
58
01
1
1

1559 017120
1560 017122
1561 017126

1562 017132

1563 017134
1564 017142
1565
1566 01,146
1567
1568
1569

012703
020237
001404
000241
006103
005202
000771
040337
001412
005237
013702
006302
016237
000137
000137

00000
01270

1$:

&-APR-81

2%:

001279

001270

004444
012772

001272

023456

ND2:
JPRINT

1570

MOV

#MIT0,R3

BEQ
CLC

(MP

INC
B8R
BIC
BEQ
INC

R3
R2
1%

R3,ASSGN2
XEND?2
$DCVM
$DEVM,R2

MOV
ASL
MOV
JMP

BLKADR(R2)
, $(Dw"

JUMP

$EOP

1515

;END OF

017152
017154
C17156
017160

15
15 91 017166
15
1593 017170
1594 017174

15
15
15 97 017210
15 98 017212
1599 017213
1600 017214
1601 017220
1602 017224
1603 017230

:PARAMETER USED

CALL

;SYSTEM BLOCK ADDRESS
;JUMP TO TEST 5 FOR OTHER DRIVE
PASS

ROUTINE

SPRINT EXCEPTIONS FOR

1571

;BIT MAP QOF ASSIGNED DRIVE
;1S THE LOGICAL DRIVE UNDER TEST ?
sBRANCH IF IT IS
JSHIFT THE BIT MAP FOR
JNEXT DRIVE
;INCRFMENT THE LOGICAL DRIVE #
;LOOPING ,UNTIL THE LOGICAL DRIVE LOCATED
;CLEAR THE ASSIGNED BIT
sBRANCH IF NO MORE DRIVES
; INCREMENT THE LOGICAL DRIVE #
;UPDATE SYSTEM BLOCK ADDRESS

R2,.SDEVM

;NAME PRINT

NUL INE

BADSEC
BADSE(

0
-1

JSR

NUMBER

TEST

= &

SCORE

A NEW LINE

TO PRINT

COLUNM NUMBER TO PRINT

THE

EXCEPTION MARK

FIRST EXCEPTION DETECTED
NOT FIRST EXCEPTION (DON'T PRINT

RS .PRINT

TITLE)

COLUMN NUMBER

RET

THE

R1
$DEVM
R3

LOGICAL DRIVE 4
LOGICAL DRIVE UNDER TEST
BIT POSITION OF LOGICAL DRIVE

IN R1

157¢
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589 017152

9-29

SEQ 007¢

ROL

002012

18:12:15 PFAGE

010146
010246
010346
010446
005737
100434

104401
104401
104401

013746

104403

PRINT:

MOV

001342

001207
042443
001274
001224

001207
(01207
042465
001207

MOV

TST
BM]

TYPE

MOV

TYPOS

BYTE
.BYTE
TYPE
TYPE
TYPE
TYPE

R1.-(SP)
RZ,=(SP)
R3,-(SP)

;:PUSH R2 ON STACK

JBRANCH IF NCT,CON‘'T HAVE TO PRINT

R4 ,~(SP)
BADSEC

.SCRLF
.MESG16
. $CDW2

DRIVE,-(SP)

;2PUSH R1 ON STACK

. ;PUSH R3 ON STACK
;sPUSH R4 ON STACK

;FIRST EXCFPTION

;TITLE

. CRLF

;SCORES FOR DRIVE =-;SYSTEM NAME
;TYPE

THE PHYSICAL

.SCRLF
LSCRLF

JMESG17
.SCRLF

:CR=LF

JCR=LF

JSUB TITLE 1
;CR=LF

DRIVE

1604 017234
'605 017240
1606 017244
607 017252
1608 012260
1609 017264
1610 017266
1611 0" 7272
017276
1612 017300
1613 017304
1614 017,10
1615 017312
1616 017316

1617
1618
1619
1620
1621
1622

017322

017326
017330

017332
017340
017342
1623 017350
1424 017354
1625 017356
1626 017360
1627 017364
1628 017372

1629
1630 017374
1631 017400
1632 017402
1633 017404
1634 017410
1635 017414
1636 017416
1637 017422
1638 017426
1629 017432

QU P WL E J o)

012737
012737
005737
001042
104401

013746
104405

104401
123701
001007
104401
104401
104401

000416
006301
016137
006201
062737
104401
104401
000000
104401

012737
012504
020437
103414
001405
104401
005237
000767
104401
104401
005237

017442

017444
017446
0174590

000240
000240
000002

017440

042546
001207
177777

000001
001366

017452
1649 017456
1650 017462
1651 017464
.

1652 017472

1653 017474

1654 017502

1655 017504

4-APR-81

001342

001376

1%:

001207
001364

042750
042630
042635

JMESG18
LSCRLF

MOV
MOV

#-1 _BADSEC
#1,FAULT

TST

BNE

017356

0C0014
042750

017356

2%:

001366

5%:

6%:

042747
042637
001366

7%:
85

IDLEX:

JRESET THE ACCEPTANCE
:NOT COMPATIBLE FLAG
sNEW LINE

FLAG

,TAR

;;SAVE CMTRK FOR TYPEOUT
;GO TYPE-~DECIMAL ASCT]
;TYPE "'TAB'' CHARACTER

LBLNKS3
LSELFX
.TAB

;TYPE 3 BLANKS
JMESSAGE 'SELC’
;TYPE TAB

MOV

BLKADR(R1),3%

;LOCATE THE SYSTEM NAME AND DRIVE #

ADD

H#SSYSNM, 3%

.SCRLF

CMPR
BNE

SDEVM,R1
2%

BR
ASL

43
R1

TYPE

.WORD

JBLNKS3

TYPE
MOV

,TAB
#1 NUL INE

CMP
BLO

R4 ,NUL INE
8s

TYPE

.TAB

MOV

BEOQ

042635
001366

(MTRK ,~(SP)

TYPE

4%:

NUL INE

:SUB TITLE
;CR=LF

;BRANCH IF NOT

ASR

3%:

9-30

“YPE
TYPE
TYPE

004444

0642635
000001

TYPE
TYPE

TYPE

042635
001270

18:12:15 PAGE

SEQ 0C73

MOV
TYPDS
TYPE

(R5) +,R4

;CR-LF

;SCORE FOR SDEVM ITSELF
;BRANCH [F NOT

JRESTORE DRIVE #

;LOCATE THE SYSTEM NAME AND DRIVE #
;TYPE

3 BLANKS

;TYPE

THE

SYSTEM AND DRIVE

:ADDRESS FOR TYPING MESSAGE

:TYPE TAB
;INDICATE PRINTER STOPS AT

COULMN 1

JRETRIEVE THE DESIRED COLUMN # FROM

;CALLING ROUTINE

;ON THE RIGHT COLUMN 2
;IF LOW NOT PRINT

;BRANCH IF LOCATED
JADVANCE

TO NEXT COLUMN

NUL INE

TYPE
TYPE
INC

LBLNKS4
JMARK X
NUL INE

;TYPE 4 BLANKS
;THE EXCEPTION MARK ''+
NEXT COLUMN

MOV
MOV
MOV
MOV
RTS

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

;:POP
;:POP
;:POP
:;POP
JEXIT

SIGN

NEXT STEP
JLOCATE THE SYS HISTORY FILE

INC

WITH

: INCREMENT COLUMN CTR

;CHECK AGAIN

STACK
STACK
STACK
STACK

INTO
INT0O
INTO
INTG

Q"'

R4
R3
R?
R1

figg

:RESET ALL RH/RM VECTOR FOR MOUNT AND DISMOUNT

RT]

JEXIT

;PROCESS THE ORDER TERMINATION

22222

104401

012604
012603
012602
012601
000205

017432
017434
017436

[

1060

“IRMIBC RMOS/3/2 DR (MPT TST
MACRO v04.00
587 vALUE FOR SOF TWARE SWITCA REGISTER

111037

005760
100431
032760
001410
032760
001021

032760

001330
000016

PROCES:

100060

000020

040000

000020

040000

000032

MOVB

TST
BM]

BIT

BEQ
BIT
BNE
BIT

(RO) ,UNIT

$TATUS (RO)
ERPROC

:DRIVE

NUMBER FOR ANY ERROR MFSSAGES

;SEE IF DRIVER SIGNALED AN ERROR
:BR IF ERROR

#RITIS5,9RMCST1(K0)

;SEE IF

"SC* SET

13
;BR IF NOT SET
KBIT14 ,$RMCST(RO)
;SEE IF 'TRE® SET
ERPROC
:BR ]F SET
#BIT164,$RMDS(RO)
;SEE IF 'ERR' SET

1061

CIRMTB0 RMOS/3/2 DR (MPT TST
MACRO v04.00
CET VALUE FOR SOF TWARE SWITCH REGISTER
1656 017512
1657 017514
1658 017520
1659 017524
1660 017530
1661 017536

1662 017544
1663

001015
004732
004737
004737
012737
012737
000207

020572
020640
030334

177777
177777

1681 017630
1682 017632

1683 017640
1684 017642
1685
1686
168/
1688 017644

1689 017644
1690 017650

1691
1692

1693
1694 017654
1695 017654
1696 017660
1697
1698
1699

017664
017664
017670

BNE

1%:

030264
030266

1664

1665
1666 017546
1607 017554
1668 017556
1669
1670
1671
1672 017562
1673 017570
1674 01772
1675 17600
1676 017602
1677 017610
1678 017612
1679 017620
1680 017622

&-APR-81

JSR

JSR
JSR

MOV
MOV

2%:

RTS

J
18:12:15 PAGE

6
9-31

ERPROC

PC,CKERR
PC,CKBUS
PC,RMINIT
#-1,SAVEFG
#-1,SEEKFG
PC

SEQ 0074

;BR IF

SET

:NO ERROR, (HECK ERROR BITS ANYWAY
sNO ERROR, (HECK BUS ADDR £ w(
JINITIALIZE THE SuB SYSTEM
;CLEAR THE SAVE FLAG
sSET THE NOT IMP FLAG
;RETURN

;ORDER TERMINATED WITH AN ERROR - PROCESS THE ERROR
032760
001402
000137

000200

000016

BIT
BEQ
JMP

ERPROC:

017744
;PROCESS

032760
001025
032760
001025
032760
001025
032760
001025
032760
001025
032760
001025
000207

010000

000016

004000

000016

002000

000016

001000

000016

040002

000016

000004

000C16

ERPRC1: BIT

BNE
BIT
BNE
BIT
BNE
8IT
BNE
BIT
BNE
817
BNE
RTS

sDRIVE
104414

000137

037160
017720

ORDER

PUNSAF
:

#31T07,8TATUS(RO) ;DONE BIT SET ?
ERPRC1
;BR 1F ORDER DIDN'T COMPLETE NORMALLY
DONE

COMPLETION WITH

;PROCESS ERROR WITH

'ERROR'

#BIT12,8TATUS(RO)

;SEE

°'DONE

DRIVE WAS UNSAFE

PUNSAF

{BR

YES

FALPAR

;BR

_IF

THERE

000137

037062
017720

UCPAR:

DISPLY
JMP

000137

037125
017720

FALPAR:

DISPLY
JMP

PRTIM
PC

:BR IF IT DID
;ERROR. RETURN

LEM12

DUMP?

LEM10
DUMP2

LEMNT

DUMP2

;SOF TWARE TIMEOUT OCCURRED
104414

000137

037211
017720

SWTIM:

DISPLY
JMP

LEM13

DUMP?

;DRIVE WENT OFFLINE
OFLIN:

IS ONE

OFLIN
:BR IF IT DID
#BIT2,$TATUS(RO)
;PORT REQUEST TIME QUT °

;'FATAL' MASSBUS PARITY ERROR OCCURRED
104414

BITS

#B1T09,8$TATUS(RO) ;TIMEOUT?
SWTIM
:BR IF YES
#BIT14!BITO1,$TATUS(RO)
;DRIVE WENT OFFLINE ?

;JUNCORRECTABLE MASSBUS PARITY ERROR OCCURRED
104414

BIT

#81T11,8TATUS(RO) ;PARITY ERROR OCCURRED
UCPAR
;BR IF IT DID
#B1T10,$TATUS(RO) ;FATAL PARITY ERROR?

IS PERSISTENTLY UNSAFE
DISPLY
JmP

NOT'

'DONE*

SET

713 017704

b S WA = O0V00 NNV

WA = O 000NN S

e
T S P
R
N
G
S
S
G
N S S
S
S
NNNSNSNN SNNNNNNSNNNNNNNNY
NN NN
N NN NN NN N N == b s b 2

Jo6

(ZRMTBO RMOS/3/¢2 DR (MPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

1735
1736
1737
1738
1739
1740
1741

017710

017714
017714
017720
017724
017730
017734
017740

1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769

104414
104401
104401
104401

104401
000177

037263
017720

;PORT
PRTIM:

037306
001207
043243
001207
63106

DUMP2:

161436

K
6
18:12:15 PAGE 9-32

SEQ 0075
DISPLY
JMP

REQUEST

LEMI14

DUMP2

TIMEOUT

DISPLY

LEM15

TYPE
TYPE
TYPE
JMP

SXFATL

TYPE

ERROR

.SCRLF

s CR-LF

.SCRLF

;CR=LF

ARSTART

;JUMP TO RESTART

HALTX

;PROCESS ORDER COMPLETION WITH

017744
017752
017754
017760
017766
€17770
017774

020002
020004
020010
02C016
20020
020024
020032
120034

1762 020040

1743
1744
1745
1746
1747
1748
1749
1750
1751

104414

000137

&4~-APR-81

020046
020050
020054
020062
020064
020070
020076
020109
020104

020112
020114
020120
020126
020130
020134
020142
020144
020150
020156
020160
020166
020170
020172
020200
025202

020206
020212

032760
001402
000137
032760
001402
000137
032760
001002
000137
032760
001402
000137
032760
001402
000137
032760
001402
000137
032760
001402
000137
032760
001402
000137
032760
001402
000137
032760
001402
000137
032760
001402
000137
032760
001405
032760
001401
000207
032760
001402
000137
005760
100002

000030

000016

020530
040000

000030

020310
040000

000032

020500
000400

000034

020340
000020

000034

020360
000200

000034

020370
02¢ )00

000034

020410
000010

000034

020430
000040

000034

020520
002000

000034

020440
004000

000034

020450
001000

000034

002000

000032

010000

000034

020420
000034

DONE :

BIT

8EQ
JMP
BIT
BEQ
JMP

BIT
BNE
1%:

JMP
8I7

BEQ

JMP
BIT
8EQ
JMP
BIT

BEQ
JMP

BIT
BEQ
JMP
BIT
BEQ
JMP

BIT
BEQ
JMP
BIT
8EQ
JMP

BIT

BEQ
JMP

8IT
BEQ
8I7T
BEQ

2%.

RTS

BIT
BEQ
JMP
TST

BPL

"ERROR'

& °'DONE*® BITS SET

#B1T04!BITO3,$TATUS(RO) ;UNSAFE OCCURRED
.+6
;BR [F NOT

UNSAF

JREPORT UNSAFE

WCKER

JWRITE

MBITI4,8RMCS2(R0O)
;IS 'WCE' SET ?
.+6
JBRANCH IF NOT SET
MIT14,$8RMDS(RO)

CHECK ERROR

;CHECK 'ERR’

;BR IF SET

TRFER

;PROCESS

HCRCER

sPROCESS

.*+6

;BR _IF NOT SET

'TRE’

#M]TO8,$RMERT(RO) ;'HCRC'® SET?
.+6
;BR IF NOT
#BITOL,SRMERT(RO)
CKFMT

;*FMT®

'HCRC®

SET?

. CHECK FORMAT ERROR

#31707 ,$RMERT(RO)

;'HCE®' SET?

. +6
CKHCE

:BR _IF NOT SET
;CHECK °'HCE' ERROR

OPIER

cREPORT

#8IT13 SRMER1(RO) ;°OP1* SET?
.*6
;BR IF NOT SET
°‘OPI°*

#3]T3,$RMERT
(RO) ;'PAR® SET?
+6

PARER

;BR IF NOT SET
;REPORT

°‘PAR‘*

WCFER

<REPORT

°'WCF'

WLEER

;REPORT

°‘WLE'

;'AOE'

#BIT5,SRMERT(RO) ;*WCF' SET?
.46
;BR IF NOT SET

#3]T10,$RMERT(RO) ;'JAE' SET?
.+6
;BR IF NOT SET
IAEER
:REPORT °AE'
#MIT11,8RMERT(RO) ;'WLE' SET?
.+6
sBR IF NCT SET

#BIT9,SRMERT(RO) ;'AOE' SET?
2%
sBR IF NOT SET
31T10,$RMDS(RO) ; *'LST* SET?
cd
;BR IF NOT SET
&

°'LST'

SET,

;SEE IF °'DTE® SET
#B1712,8RMERT(RO)
;BR IF NOT
.46
DTEER
;REPORT 'DTc' ERROR
$RMER1(RO)
JSEE IF °'DCK' SET
:BR IF NOT
.46

EXIT

1770
1721
1772
1773

020214

1775
1776
1777
1778
1779
1780
1781

020240

020220
020226
020230
1774 020226

020244
020250
020254
020260
020262
020264
1782 020266
1783 020270
1784 020274

1785
1786

1787
1788 020300
1789 20300

1790 020304
1791

1792
t793%
1794 020310
1795 020310
1796 020316

1797 020320
1798 020324
1799 020330
1800 020334
1801
18C2
1803
1804 020340
1805 020340
1806 320344

000137
032760
001006
032760
001004

000137
000137
104401

104401

104007

104010
104011
104032
104401

000177

020300
060000

000062

100000

000062

020350
020510
00107
042207

SEQ 0076
JMP
BIT

043106
16110C

000137

DCKER
sPROCESS 'DCK’
MITIL!BITI3,SRMER2(RD) ;'SKI'

DCKER:

TYPE
TYPE

LSCRLF
LMESGI

JMP

SKIER

FMT
EMT
EMT
EMT

7
10
1
12

JMP

BRSTART

JREPORT DRIVE ERROR
;CR=LF

JHALTX

('DCK')

DISPLY
JMP

;JUMP 10 RESTARI

CHECK ERROR

_EM21
DUMP

JWRITE CHECK ERROR PROCESSING
032760
001004
104414

000137
104414

000137

100000

037467
020540
037414
020540

000034

WCKER:

1%:

;REPORT

104414

000137

037342
020540

OO0
NR NS WA

020350
020350
020354

104414

000137

037757
020540

HCRCER:

BIT
BNE
DISPLY
JMP
DISPLY
JMP

°*HCRC'

DISPLY
JMP

DRVER:

DISPLY
JMP

;PROCESS FORMAT

020360
020360
020364

104414

000137

037546
020540

#BIT15,8RMERT (RO)
18
_EM23
pumMpP
EMZ?
DUMP

ERROR

EMZ0

DUMP

1822 020370
1823 020370
1824 020374
1825
1826

:
CKFMT

DISPLY
JMP

EM30
DUMP
('FER')

ERROR

,EM24

DUMP

;PROCESS HEADER COMPARE ('HCE') ERROR

—

— —) el ed

1811

'OCYL®

33
(BR IF IT IS
#BIT15,8RMER2(RO)
:BAD SPOT ?
43
JBRANCH IF SO
DRVER
JREPORT ERROR

TYPE

037363
020540

BN
8IT
BNE
JMP

;PROCESS DATA

106414

L
6
18:12:15 PAGE 9-33

4&~-APR-81

JREPORT DRIVE ERROR

o 00 0o 0o 0o 0o 0o 0o Co 00
N ) d —d md —ed o =D —d

)063

(/RMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

037614
020540

:
CKHCE

DISPLY
JMP

,EMZ5S

DUMP

;POSSIBLE POSITIONING ERROR

;DCk BIT SET ?
;BRANCH IF SET

SET

064

“ZRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
GET VALUE FOR SOFTWARE SWITCH REGISTER
1827 020400
1828 020404
1820
1830

1831 020410
1832 020410
1833 020414
1834

106414

000137

104414

000137

041120
(20540

040011
020540

1835

183¢
1837 020420
1838 020420
1839 020424
1840
1841

1842
1843 020430

1844 020430
1845 020434

1846
1847
1848
1849
1850
1851
1852
1853
1856
1855

&-APR-81

DISPLY

JREPORT

'OP1'

000137

040054
020540

DTEER:

000137

040107
020540

PARER:

020450
1856 020450
1857 020454
1858
1859
1860
1861 020460
1862 020460
1863 020464
1864
1865
1866
1867 020470
1868 020474
1869
1870
1871
1872 020500
1873 020500
1874 020504
1875
1876
1877
1878 020510
1879 020510
1880 020514
1881
1882
1883

104414

000137

040226
020540

1AEER:

040264
020540

DISPLY
'PAR'

DISPLY
*IAE'

DISPLY
JMP

;REPORT

104414
000137

'DTE®

JMP

;REPORT

020440
020440
020444

DISPLY

JMP
.REPORT

104414

JMP

JREPORT

104614

SEQ 007/

POSER:

OPIER:

WLEER:

M
6
1B:12:15 PAGE 9-34

,EMS?

DiMP
ERROR

bumpP

ERROR

,EM3?2

DUMP
ERROR

,EM33

pumMP

ERROR

,EM3S

DUMP

WLE ERROR

DISPLY
JMP

,EM36

DUMP

JREPORT FORMAT ERROR

104414

000137

037675
020540

FMTER:

DISPLY
JMP

,EM26

DUMP

REPORT HEADER COMPARE ERROR
104414

000137

037722
020540

ACEER:

DISPLY
JMP

,EM27

DuMP

;PROCESS CONTROL/INTERFACE TRANSFER ERROR
104414

000137

040377
020540

TRFER:

JMP

;PROCESS
041062
020540

DISPLY

SKIER:

,EM4O

vUMP

'SKI' OR 'OCYL'
DISPLY
JMP

,EMS0

DUMP

;REPORT WRIIE CLOCK FAILURE

(ZRMTBO RMOS5/3/2 DR (MPT TST

GET VALUE FOR SOF TWARE
1884 020520
1885 020520

}ggg 020524

104414

000137

MACRO Vv04.00

SWITCH REGISTER

WCFER:

(40164

020540
JREPORT

1890 020530
1891 020530

]Igg% 020534

1894 020540

104414

000137

020540

104007

1896 020544
}ggg 020546

104011
104012

1899 020550

004737

1895 020542

1900 020554
1901 020562
1902 €20570
1903
1904

UNSAF
:

041163

020540

DUMP:

032760
001012
032760
001006
005760
001003

1914 020624

(001404

030334

177777
177777

030264
030266

060000

000020

177400

000030

1924 020652
1925 020654
1926 020656

020662
020666

020670
020674
020700

1934 020702
1935 020706
1936 020712
1937 020716
1938 020722
1939 020726

SEQ 0078

_EM34

UNSAFE

,EM60

DuUMP

ERROR

JSR

PC ,RMINIT

1
12

#-1,SAVEFG
#-1,SEEKFG
PC

;CLEAR

CKERR:

THE

SUB-SYSTEM

005760

000062

104414
000137
000207

0460640
020540

BIT
BNE
BIT
BNE
TST
BNE

#60000, SRMCS1(RO)
1%
#177400,8RM(S2(RO)
1%
$RMER1 (RO)
18

JSEE IF "TRE® OR °*M(PE’
SYES
JERROR BITS IN (S2 /
JYES
;ANY ERROR IN ER1
JYES
ANY ERROR IN ER?

BtQ

TST

1$:

’

2%:

DISPLY
JMP
RTS

SRMER?2 (RO)

,EM44
DUMP
PC

;BRANCH

sTYPE AL_.

;CHECK BUS ADDRESS REGISTER AND WORD

1921 020640
1922 020644
1923 020646

13%%

DuMP

EMT

MoV
MoV
RTS

000034

‘43128

1927
1928
1929
1930
1931

EMT

18:12:15 PAGE 9-35

:CKECK ERROR BITS IN THE RH/RM REGISTERS

020572
020600
020602
020610
020612
020616

1915 020626
1916 020632
}g}g 020636

DISPLY

EMT
EMT

11382

1913 020620

DRIVE

JMP

104010

012737
012737
000207

DISPLY

JMP

}%g

1907
1908
1909
1910
1911
1912

4-APR-81

005760
001011
016046
005416
006316
066016

022660
001404

000022

(KBUS:

000004
000006

000024

104414
00C137
000207

040446
020540

104401
104401
104401
016001
016046
005416

001207
042764
001207
000024
000004

1%:

2%:

TST
BNE
MOV
NEG
ASL
ADD
cMp
8EQ
DISPLY
JMP
RTS

$SRMW( (RO)
1%
$SWRDM(RO) ,-(SP)

TYPE
TYPE
TYPE
MOV
MOV
NEG

.SCRLF
MESGT9
SCRLF
SRMBA (R() ,R1
$WRDM(RO) ,=(SP)
(SP)

(SP)
(SP)
$BUF (RQ) , (SP)

(SP)
+, $SRMBA
(R()
2%
,EM41
puMP
PC

NO ERROR

REGISTERS

COUNT REGISTER

JWORD COUNT = 0
:NO
;WORD LENGTH

:GET THE POSITIVE NUMBER OF WORD (OUNT
;BYTE COUNT

sTYPE ALL REGISTERS

JROUTINE TO DISPLAY. THE SECTOR WHICH GAVE THE HARD ERROR

PRTBAD:

;CR-LF
s CR=LF
;PUT THE END ADDRESS INTO R}
;FIND THE BEGINNING OF THE SECTOR
;GET THE POSITIVE NUMBER OF WORD C(OUNT

"IRMTBU RMOS5/3/2 DR (MPT TST

SET

VALUE

FOR SOF TWARE

1940 020730

19671

020734

1942 020736
1963 020742
1944 020746
1945 020750
1946 020752
1847 920754
1648 020756
1949 020760
1950 020764
1951 020770
1952 020774

0660°6

005046

104414

042752

004737

021162

1655 021006

0121456

1957 021014
1958 021020
1959 (21022

022711
001405
005302

1961 021026
1962 021032
1963 021034

104414
000756
104414

1960 021024

;ggé 021040
1966
1967
1968 021042
1969 021044
1970 021050
1971 021054
1972 021056
1973 021062
1976 021066
1975 021070
1976 021072
1977 021074
1978 021076
1979 021100
1980 0211046
1981 021110
1982 021112

1983 021114

1984
1985

000022

001000
000004
000007
000024

001415

1956 021010

SWITCH ?EGISTER

012746
004737
005716
001403
006316
161601
000402
162701
062706
012702
02C160

1953 021000

1954 021002

001363

000207

104412

016001

016002
005402

012705
012703
012521
005302
003407
(005303
001373
012703
012705
000766
104413
000207

MACRO v04.00

000400
021764

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

177777

001207

5¢%:

6%:

SRMUC (RO), (SP)

;SUBTRACT

THE WORDS NCT

-(SP)

JMAKE

UPPER DIVIDEND 0

MOV
JSR
IST
8EQ
ASL
SuB
B8R
SUB
ADD
Mov
CmpP

#256.,-(SP)
PC.LINKDV
(SP)
1
(SP)
(SP) .R1
28
#1000 ,R1
84 ,SP
*7 ,R2
R1,$RMBA(RO)

DISPLY

_BLNKS1

B8EQ

000004

3%:

000020
005262
4%:

.SBTTL

1988

;DIVDE THE WORDS TRANSFERED BY THE SECTOR SIZE
:DIVIDE
;REMANDER = 0 ?
JBR IF IT IS -~ COMPLETE SECTOR TRANSFERED
;CONVERT THE RESIDUAL SECIOR SIZE INTO BYTE
;SUBTRACT IT FROM THE END ADDRESS
JFINISH THE SIZING
;SUBTRACT FULL SECTOR SIZE FROM END ADDR
JRESTORE THE STACK POINTER
;R2 CONTAINS THE WORDS/LINE COUNT
JPRINTED ALL THE SECTOR ?

(R1)+,-(SP)

;BR IF ALL PRINTED
:TYPE

1 BLANK

;PUT THE DATA ON THE STA(K

PCLINOCT

#-1,(R7)
5%
R2

. TYPE

JEND OF FILE ?
;BRANCH IF SO
;DECREMENT THE HORIZONTAL COUNT

THE DATA

BNE

;BR

NOT AT

RTS

;RE TURN

DISPLY
BR
DISPLY

,$CRLF
3s
_$7RLF

MOV

$8UF (RO) R

MOV
MOV
MOV
DEC
BLE
DEC
BNE
MOV
MOV
BR
RESREG
RTS

#STNDAT RS
#20,R3
(RS)+,(R1)+
R2
4%
R3
3s
#20,R3
#STNDAT RS
3t

MOV
NEG

005262
000020

THE

$WRDM(RO) ,R2

THE

END OF

(32777
001402
104401
032777
001403
104414

002000

160030

LINE1:

<BUFFER ADDRESS

;POSITIVE WORD COUNT

;PATTERN ADDRESS
JPATTERN COUNT
;MOVE THE PATTERN INTO THE BUFFER
;DECREMENT THE WORD COUNT
JBR IF DONE (WORD COUNT = Q)
;DECREMENT THE PATTERN COUNT
;BR IF MORE PATTERN
JRESTORE PATTERN COUNT
;RESTORE THE ADDRESS
JCONTINUE DISTRIBUTING THE PATTERN
;RESTORE THE REGISTERS
;RETURN

ERROR MESSAGE GENERAT]ON ROUTINES

001202
020000

160014

1%:

001207

BIT
BEQ

TYPE
BIT
BEQ
DISPLY

#5W10,aSWR
13
LSBELL
ASW13,aSWR
2%
,S$CRLF

L INE

;SAVE THE REGISTERS

s "HH:MM:SS!
021116
021124
021126
021132
021140
021142

THE

:CR~LF
JRESTORE THE WORDS/LINE COUNT
;PRINT WHAT REMAINS IN THE BUFFER

JPRINT LINE 1 OF ERROR MESSAGE:

}ggg

TRANSFERED

JSR

FILBUF: SAVREG

000006

SEQ

CLR

cTMP
BEQ
DEC

001207

8 7
18:12:15 PAGE 9-36

ADD

MOV

}3%%

1991
1992
1993
1994
1995
1996

&4-~APR-81

;SWITCH 10 SET ?
;BR IF NOT
;RING THE BELL
JINHIBIT TYPEOUT
;BR IF NOT
s CR=LF

COUNT

T 7y

CZIRMTBO RMOS/3/2 DR (MPT

ERROR MESSAGE

1997 021146

MACRO v04.0C

GENERATION ROUTINES

000404

1998 021150

004737

588? 021160

000207

1999 021154

TST

104414

(21430

2%:

042752

3s:

4-APR-81

7
c
18:12:15 °AGE 9-37

JEXIT

JSR

PC,$TIME

JTYPE

RTS

JRETURN & TYPE DESCRIPTION

DISPLY

_BLNKS1

2002

;OCTAL TYPEOUT ROUTINE

2004
2005

2
N

2003

:CALL:

588(7:

2008 021162
2009 021166
2010 021172
2011 021176
2012 021206
2013 021206
2014 021210
58}2 021212

016646
004737
012637
062737
104414
000000
012616
000207

000002
022724
021206
000005

021206

2017
2018
2019
2020
2021
016646
004737
(004737
012616
000207

000002
022674
022300

THE

TIME

BLANK

NUM,~-(SP)
PC,LINOCY

;PUT THE NUMBER ON THE STACK

2(SP) ,-(SP)
P(,$SB20
(SP)+,1%
n5.,1%

;PUT NUMBER IN FROPER LOCATION ON STACK
;CONVERT THE NUMBER TO OCTAL
:GET THE ADDRESS OF THE ASCII STRiING
;ADDRESS THE LAST 6 ASCII DIGITS
JTYPE IT
;ADDRESS
;CORRECT THE STACK
;RETURN

O
(SP)+,(SP)
PC

RETURN

LINDEC: MOV
JSR
JSR
MOV
RTS
.SBTTL

sggg

2053 021352

RETURN

LINCCT. MOV
JSR
p[0]%
ADD
DISPLY
1%:
WORD
MOV
RTS

2033

2036 021234
2037 021242
2038 021250
2039 021256
2060 021262
2041 021266
2042 021272
2063 021276
2044 021302
2045 021306
2046 021312
2047 021320
2048 021326
2049 021330
2050 021334
2051 021342
2052 021346

MOV
JSR

JTYPE

;ROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND
YPE IT WITH
;LEADING ZERO SUPRESSION
;CALL:
.
:
MOV
NUM, - (SP)
JPUT THE NUMBER ON THE STACK
:
JSR
PC,LINDEC

585%

2024 021214
2025 021220
2026 021224
2027 021230
2028 021232
2029
2030
Sg%}

SEQ . &

2(SP) ,=-(SP)
PC.3$SB2D
PC.$SUPRS
(SP)+, (5P}
PC

JSET UP STACK FOR CONVERT
;CONVERT IT TO DECIMAL
JTYPE IT (WITH LEADING ZEROS SUPRESSED)
JRESTORE STACK POINTER

GENFRAL SUPPORT SUBROUTINES

JROUTINE TO CHECK FOR KWll-~L OR KW11~P (CLOrKS
012737
012737
012737
005037
005777
005037
005037
013701
012721
012711
012777
012777
000434
062706
012737
005777
005037

013701

177777
177777
021330
000006
160014
001316
001314
001306
021526
000300
174575
000131

000004
021376
157742
001316

001312

00131€¢
D01314
000004

157764
157754
000004

CKCLK:

MOV
MOV
MOV
CLR
TST
CLR
CLR
MOV
MOV
MoV
MOV
MOV
BR
CKCLK1: ADD
MOV
TST
(LR

MOV

#-1,(LKFLG
#-~1,PCLOCK
#CKCLKT,ERRVEC
a#ERRVE(C+2
asSLKCSR
CLKFLG
PCLOCK
SLPVEC R
#CLOCK, (R1)+
#300, (R1)
#-1667.,38.KCS8
#131,a8LKCSR

;CLEAR CLOCK AVAILABILITY FLAG
;CLEAR KW11=-P CLOCK AVAILABILITY fLAG
;SET UP VECTOR FOR CLOCK CHECK
:NEW PSW
;CHECK FOR KW11-P
JSET CLOCK AVAILABILITY FLAG
;SET KW11=P CLOCK FLAG
;KW11-P VECTOR ADDRESS
JSET UP KW11-P VECTOR
:PSW - PRI 6
;LOAD COUNTER BUFFER WITH 16.67
JSET CLOCK = CNT UP, 10US, CONT INT

CLKFLG

sSET CLOCK FLAG

CKCLK3
#6,SP
;RESTORE THE STACK POINTER
#CKCLK2 ,a#ERRVEC
;CHANGE ERROR VECTOR TO CHECK FOR kWll-L
asLKS
;LOOK FOR KW11-L

$LLVEC,RT

;KW11=-L VECTOR ADDRESS

“IRMTBC PM0OS5/3/2 DR (MPT
JENERAL

SUPPORT

TST

SUBROUTINES

2054 021356
2055 021362
2056 21366
2057 021374
2058 021376
2059 021402
2060 0214C6
2061 021412
Sgg% 021414

012721
012711
012777
000411
062706
104401
005737
001400
000177

2064 021420
2005 021426
2066
2067

012737
000207

2070
2071
2072
2073
2074
2075
2076
2077
2078

021430
021434
021436
(21442
021446
021452
021456
021460
021464

005737
001033
104401
013746
004737
004537
000002
104401
013746

2080 021474
2081 021500
2082 021502
2083 021506
2084 021512
2085 021516
2086 021522
Sggg 021524

004537
000002
104401
013746
004737
004537
000002
000207

021526
(00300
000100

MACRO v04.00

157714

000004
043257
000042
157760

000006

000004

Sggg

2079 021470

004737

005337
001033
013737

2095 021546
2096 021554
2097 021556

022737
001022
005037

2099 021566
2100 021574
2101 021576
2102 021602
2103 021606
2104 021614
2105 021616
2106 021622
2107 021626
g}gg 021632
2110

SEQ 0081

MOV
MOV
MOV
BR
CKCLK2: ADD
TYPE
TST
BEQ
1%:
JMP

#CLOCK, (R1)+
#30C, (R1)
#100,38LKS
CKCLK3
#4,SP
JNEDCLK
42
1%
BRSTART

JSET UP Kwll=L VECTOR
;PSW -~ PR] 6
JSET KW11=L INTERRUPT

CKCLK3: MOV
R1S

#6, #ERRVEC
PC

;RESTORE

;RESTORE THE STACK POINTER
J'P OR L CLOCK MUST BE ON SYSTEM'
JUNDER MONITOR CONTROL ?
:BR IF NOT
;JUMP TO RESTART
THE FRROR VELTOR

001316

STIME:

001207
001344
022674
(022210
042754
001346

022674

TST
BNE
TYPE
MOV
JSR
JSR
.WORD
TYPE
MOV

CLKFLG
18
.SCRLF
HOUR,-(SP)
PC,$S82D
RS ,REPLZ
2
,COLON
MINUTE ,=(SP)

;CLOCK ON THE SYSTEM ?
:BR IF NOT
;CR=LF
;PUT "HOURS® ON THE STA(K
;CONVERT 70 DECIMAL
JTYPE IT
;TYPE 2 DIGITS
AR
JPUT "MINUTES' ON THE STA(K

JSR
.WORD
TYPE
MOV
JSR
JSR
.WORD
RTS

RS ,REPLZ
2
,COLON
SECOND ,-(SP)
PC.$SB20
RS,REPLZ
2
PC

TYPE IT
;TYPE 2 DIG4TS
0!
;PUT SECONDS ON THE STA(K
:CONVERT TO DECIMAL
JTYPE IT
;TYPE 2 DIGITS

JSR

02c21C
042754
001350
022674
022210
18:

P(C,$S82D

;CONVERT TO DECIMAL

;CLOCK HANDLER ROUTINE

2091 021526
2092 021532
2063 021534

2098 021562

7
D
18:12:15 PaGE 9-38

ROUTINE TO TYPE THE TIME

5833

2094 021542

4~APR-B81

005237

022737
001012
005037
005237
022737
103002
005037
012746
004737
000002

001352
001320
001350
000074

CLOCK:
001352

001350

001346

000074

001346

001346
001344
001747

001344

001344
000021
034344

DEC
BNE
MOV
INC
.MP
BNE
(LR

INC

1%:
2%:

CMP
BNE
CLR
INC
(MP
BHIS
CLR
MOV
JSR
RTI

SIXTEE
1%
HZ,SIXTEE
#60. ,SECOND
1%
SECOND

JINCREMENT THE 1/60 SECOND COUNTER
;BR IF A SECOND NOT COUNTED
JRESTORE THE VALUE
;COUNT THE SECOND
AT MAXIMUM ?
;BR IF NOT
JCLEAR THE SECOND'S COUNTER

#60. ,MINUTE
1%
MINUTE
HOUR
#999. ,HOUR
1%
HOUR
#17.,=-(5P)
PC,RMTMR

;AT MAXIMUM ?
:BR IF NOT
;CLEAR THE MINUTE'S COUNTCR
:COUNT THE HOURS
;AT MAXIMUM
:BR IF NOT
:CLEAR THE HOURS
;17 MS ON THE STACK
;DRIVER TIMER ROUTINE

SECOND

MINUTE

; COMMAND DECODE ROUTINE

;COUNT THE MINUTE

CIRMTBO RMO5/3/2 DR (MPT TST
GENERAL SUPPORT SUBROUTINES

MACRO V04.00

2111
2112
2113
2114

;CALL:
;
;
:

2115

5”9

2118 021634
2119 021636
2120 021644

2121 021650

104412
012737
005037

004737

2122 021656
2123 021660
2126 021664
2125 021666
2126 021670
2127 021672
2128 021674

005777
005737
001002
000240
000240
104413
062716

2130 C21704
2131 021712
S}%g 021716

052777
005037
000207

2129 021700

&-APR-81

005777

000200
001336

177776

JSR

PC.KSR

RE TURN]
RE

SAVREG
MOV
CLR

7%:

000002

;"CFLAG'
JROUTINE

SEO 0082

IS NORMALLY SET BY THE
N INTERRUPT MODE

;RETURN

#PR4 ,PS
CF L AG

PC,S$TIME
aSTKB
CFLAG
7%

AFTER

KEYBOARD

;SAVE THE REGISTERS
JSET PRIORITY TO 4
JCLEAR THE °'CONTROL ('

JTYPE THE TIME

#2,(SP)

;RESTORE RO - RS
s INCREMENT THE RETURN ADDRESS

BIS
CLP
RTS

#MIT06,38TKS
PS
PC

JSET TTY INTERRUPT ENABLE
;SET PRIORITY BACK TO ZERO
JRETURN

as$Tk8

JCLEAR THE TTY BUFFER

JROUTINE TO CLEAR THE DPB FOR THE ASSIGNED DRIVE

2136

;CALL:

2137
2138
2139

2160 021720
021720
021722
021726
021726
2141 021730
2142 021732

:
.
CLRDPS:

2743 021736

010146
010346
010446
010546
010004
062704
012703

2145 021744
21646 021750
2147 021752
021754
021756
021760
Slzg 021762

162703
001374
012605
012604
012603
012601
000207

2150 021764
2151 021766
2152 021772

104412
016605
005004

000026

2154 022000

016603

000032

21464 021742

2153 021774

2155 022004
2156 022006
2157 022010
2158 022014
2159 022020
2160 022024

$05024

(016602

005000
005001
004737
010166
010366
104413

000002
000020
000002

000030

022032
000030
006032

1%:

FLAG

;CLEAR ANY GARBAGE IN THE TTY BUFFER
;CHECK THE CONTROL C FLAS
JEXIT IF *CONTROL C' ENTERED
;DUMP CODING FOR LATER USE 3/8/77

2134

2135

TTY SERVICE

SERVICED

TST
TST
BNE
NOP
NOP
RESREG
ADD

7ST

157246

JSYSTEM BUSY RETURN

TURN2

JSR

157302
001336

157256

#-1,CFLAG

021430

0C0100
177776

MOV

KSR:

18:12.15 PAGE 9-3%9

MOV

#DPB_RO

;DP8B ADDRESS

MOV
MoV
MOV
MOV
MOV
ADD
MOV

R1,-(SP)
R3,-(SP)
R4 ,~(SP)
RS,=(SP)
RO,RG
#2 R4
#S$EMTAB-2.,R3

;:PUSH R1 ON STAZK
::PUSH R3 ON STACK
::PUSH R4 ON STACK
:JPUSH RS ON STACK
,GET THE DPB ADDRESS
;ADDRESS OF FIRST LOCN TO BE CLEARED
;NUMBER OF LOCATIONS TO CLEAR

SUB
BNE
MOV
MOV
MOV
MOV
RTS

#2,R3
1%
(SP)+ RS
(SP)+ R4
(SP)+,R3
(SP)+ ,R1
PC

:DECREMENT THE BYTE COUNT
;LOOPING BACK
;:POP STACK INTO RS
;;POP STACK INTO R4
;IPOP STACK INTO R3
::POP STACK INTO R1
IRETURN

26(SP) ,RS
R4

;STORE RO - RS
:DIVISOR
;OTHER DIVISOR WORD

JSR
RETURN

(LR

LINKDV: SAVREG
MoV
CLR
MOV

MOV

(LR
CLR
JSR
MOV
MOV
RESREG

PC,CLRDPB

(R4)+

30(SP) ,R?

32(SP) ,R3

RO
R1
PC,M.DPID
R1,30(SP)
R3,32(SP)

;CLEAR THE STORAGE LOCATION

JUPPER DIVIDEND WORD

JLOWER DIVIDEND WORD

JCLEAR OTHER DIVIDEND REGISTERS
.50 TO THE DIVIDE ROUTINE
JREMAINDER ON THE STA(K
JQUOTIENT ON THE STACK
JRESTORE RO - RS

CZRMTBO RMOS5/3/2 DR (MPT TST
GENERAL SUPPORT SUBROUTINES

2161 022026
S;g% 022030

012676
000207

4-APR-81

MOV
RTS

2164
2165

:
:

266

2167
2168
S}?g

F
7
18:72:15 PAGE 9-40

(SP)+,(SP)
PC

EC 0083

;MOVE RETURN UP THE

STA(K

DIVISION UTILITY SUBROUTINE
RO-R1-R2-R3=D]VIDEND
R4=R5=DIVISOR

RO~-R1=REMAINDER AFTER DIVISION
RJI-R3=QUCTIENT AFTER DIVISION
ENTER WiTH JSR
PC,M.DPID

2171 022032
2172 022036
2173 022040
2174 022042
2175 022046
2776 022050
2177 022054
<178 022056
2179 022060
2180 C22064
2181 022066
2182 022070
2183 022072
2184 022074
2185 022076
2186 022100
2187 022102
2188 022104

012746
010446
010546
005466
005416
005666
061601
005500
066600
103445
005046
006103
006102
006101
006100
005716
001410
005016

2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206

005500
005516
066600
000404
060501
005500
005516
060400
005516
005716
001401
005203
005366
003347
0060C3
103404
060501

2189 022106
022112
022114
022116
022122
022124
022126
022130
022132
022134
022136
022140
022142
022144
022150
022152
022154
022156

2207 022160
2208 022162
22C9 022164
2210 022166
2211 022170
2212 022174
2213 022176
2214 022200
2215 022204
2216 022206

2217

MACS, V04.00

066601

005500
060400
000241
006103
062706
000242
000207
062706
000262
0060207

000040
000002

000002
000002

000002
000004

000006

(00010
000006

¥.DPID: MOV
MOV
Mov
NEG
NEG
SB(C
ADD
ADC
ADD
8(CS
CLR
M.DP40O: ROL
ROL
ROL
ROL
TST
BEQ
CLR

#40,-(SP)
R4,=(SP)
R5,=(SP)
2(SP)
asP
2(3P)
asP,R1
RO
2(SP) ,RO
M.DP50
=(SP)
R3
R2
R1
RO
aSP
M.DP41
asP

;COUNTER FOR DIVISION CYCLES
JHIGH ORDER
;LOW ORDER DIVISOR TO THE STA(K
;FORM NEGATIVE
;VERSION OF THE DIVISOR

ADC
ADC
ADD
BR
M.DP41: ADD
AD(
ADC
ADD
M.DP42: ADC
TST
BEQ
INC
DEC
BGT
ROR
BCS
ADD

RO
asP
N
4(SP) ,R0O; <~
M.DF62
R5.R1
RO
asP
N
R4,RO
<~
asP
asP
L
>
R3
¢
1
6(SP)
i<=
M.DP40O
R3
M.DP44
R5.R1

;ADD -(DIVISOR/
JSET ‘'CARRY"’

ADD

AD(C
ADD
CLe
M.DP44: ROL
ADD
CLV
RTS
M.DP50: ADD
SEV
RTS

2(SP) R

;PERFORM THF

INITIAL

SUBTRA(TION

;1F CARRY THEN OVERFLOW HAS OCCURRED
;THIS IS A LONGER LASTING (ARRY B]T

JTEST "'CARRY'" INDICATOR
;1F NO "'CARRY'* THEN ADD E! SE
sCLEAR UP FOR NEXT TIME

;ADD +(DI1VISOR)
;SET "'CARRY'’
;SET ""CARRY'’
sTEST THE UPDATE INDICATOR
;IF ZERO FORGET IT
;NO CARRY POSSIBLE HERE
sDECREMENT COUNTER
;BRANCH ]F MORE T0 DO

RO
R4 RO

R3
#10,SP

PC
#6,5P
PC

JADJUST STACK BY 4 WORDS

SUBTRA(T

271

CZRMTBO RMOS/3/2 DR (MPT TST
GENERAL SUPPORT SUBROUTINES

2218
2219
2220
2221
2222
2223
2224
2225 022210
2226 022212
2227 022216
2228 022220
2229 022224
2230 022230
2231 022232
2232 022236
2233 022240
2234 022242
2235 022244
2236 022246
2237 (22250
2238 022254
2239 022262
2240 022266
2241 022270
2242 022272
2263 022276
2244 022276
2245
2246
2247
2248
2249
2250
ces’
2252 022300
2253 022302
2254 022306
2255 022310
2256 022312
2257 022316
2258 022320
2259 022322
2260 022326
2261 022330
2262 022332
2263 022334
2264 022336
2265
2266
2267
2268 (022340
2269 022344
2270 022352

2271 022356
2272 022362
2273 022364
2274

MACRO v04.00

&~-APR-B1

18:12:15 PAGE 9-41

SEQ 0084

JROUTINE TO REPLACE LEADING ZEROS IN A NUMERITM STRING wlTH SPACES
s CALL
, = (SP)
#ADR
MOV
:
;ADDRESS OF NUMBER (IN ASCID)

JSR

REPLZ:

MOV

:
010046
012746
152516
016600
122710
001004
112710

005200
000771

000012
000006
000060

1%:

000040

105710

001003
005300
112710
016637
062637
104401

28:
0C0060
000006

022270

00000
012600
012616
000205

3¢
4$:

.WORD

MOV

SUB
MOV

RS,.REPLZ

;'N'

RO,=(SP)

;SAVE RO
JMAXIMUM NUMBER OF DIGITS TO BE “YPED
sSUBTACT DIGITS TO FORM INDEX
JADDRESS OF NUMBER TO RO
;BYTE EQUAL TO ASCII 'O’ 2

#10.,-(5P)
(R5)
4+, (SP)
6(SP) RO

CMPB

#'0. (RO)

MOVB
INC

440, (RO)
RO

TSTR
BNE
0EC

(RO)
3$
RO

B8NE

B8R

MOVE
MOV
ADD
TYPE

.WORD
MOV
MOV
RTS

#'0, (RO)
6.SP),4$
(SP)+.4$
O
(SP)+,R0
(SP)+. (SP)
R5

1S NUMBER OF DIGITS TO BE TYPED

:BR IF NOT

;REPLACE THE ZERO WITH A SPACE
; INCREMENT THC BYTE ADDRESS
;GO BACK AND LOOK FOR MORE LEADING ZEROS
JSEE IF ZERO BYTE TERMINATOR
JBR IF NOT
;BACKUP STRING POINTER
;PUT A ZERO BACK

;PUT ADDRESS IN 1.OCATION FOR TYPEOUT
JBEGINNING OF SIGNIFICANT DIGITS

;TYPE THE NUMBER
;ADDRESS OF NUMBER

:RESTORE RO
;MOVE RETURN ADDRESS

;RETURN

;TYPE NUMERICAL ASCIZ STRING SUPRESS LEADING ZEROS
s CALL
H
010046
016600
105710
001403
122720
001773

005300
010037
104414
000000

Mov
JSR

$SUPRS: MOV
MOV
1%:
TST8

000004
000060

2%:

022330

3s:

012600
012616
000207

BEQ
cMPB
BEQ
DEC
MOV

DISPLY
.WORD
MOV
MOV
RTS

- (SP)
#NUMADR,
PC,$SUPRS

;FIRST ADDRESS OF AS{IZ STRING

RO,~(SP)
4{SP) ,RO
(RO)

:SAVE RO
;PICKUP THE POINTER

2%
#'0,(RO)+
1%
RO
RO,3$
0
(SP)+,RO
(SP)+, (SP)

s TERMINATOR ?

;BR IF YES
;1S THIS AN ASCII
:BR IF YES
;JBACKUP BY '1°'

°0*

;SAVE FOR TYPING

;G0 PRINT
sASC12 POINTER GOES KERE

<RESTORE RO
JRESTORE THE STA(K
;RETURN

c;ROUTINE TO TYPE AT PRIORITY 4
013746
012737
012537
004737
000000
000205

177776
000200

022362
024576

177776

TYPRI4:

MOV

MOV
1%:

JSR
WORD
RTS

a4#PS ,~(SP)

#200,4PS

(R5)+,1%

PC,.$TYPE
O
RS

;SAVE

THE PRESENT STATUS

s TYPE

THE MESSAGE

;CHANGE THE PRIORITY 70 4
JMESSAGE ADDRESS

JMESSAGE ADDRESS GOES HERE
JRETURN

dI7¢

rIRMTBO RM0OS/3/2 DR (MPT

GENERAL SUPPORT SUBROUTINES
2275
2276
2277
2278
2279
2280
2281 022366
2282 022376
2283 022376
2284 0224C2
2285 022406
2286
2287
2288
2289
2290
2291
2292
<293
2296
2295
2296 022410
2297 022414
2298 022416
2299 022422
2300 022424
2301 022426
2302 022432
2303 022434
2304
2305
23006
2307
2308
2309
2310
2311
2312
2313
2314 022436
2315 0226442
2316 022444
2317 022450
2318 022452
2319 022454
2320 022460
2321 022462
2322
2323
2324

2325
2326
2327
2328
2329
2330
;33

MACRO v04.00

SEQ J0L8"
JROUTINE
;s CALL

032777
001002
000137
062716
000002

020009

024576
000002

156560

TYPE

ERRORS

:
;
:

DISPLY
ME SADR
RETURN

$DSPLY:

BIT

#M1T13,aSWR

1%:

ADD
RTI

#2,(SP)

;MUST DEFINED IN 'TRAP'
;ADDRESS OF MESSAGE

1%
$TYPE

BNE
JMP

sTHIS ROUTINE

000060

H
7
18:12:15 PAGE 9-42

&-APR-8'

USED

TABLE

JINHIBIT ERROR TYPEOUT ?
:BR [F YES

;TYPE

THE MESSAGE

. INCREMENT THE RETURN
JRETURN

TO CHECK

JASCII
s CALL
:
:

CHARACTER IS A DIG!T BETWEEN O AND 7.

MOV
JSR

#ADR ,R1
RS5,CK.OCT

;ADDRESS OF ASCII C(HARACTER
;CHECK THE CHARA(CTER
;CHARACTER 15 NOT BETWEEN 0-7
;CHARACTER IS IN R2 AS A
;OCTAL DIGIT

(K.OCT:

CMPB
8LO
CMPB
BHI
movs

(R1),#°0
18
(R1) ,#'7
1%
(R1) ,R2

JLESS THAN ZERO?

RE TURN1
RETURNZ

0C0067

177770

BIC

A#~C7,R2

TST
RTS

1%:

(R5)+
R5

JYES == BRANCH

;GREATER THAN SEVEN?

JYES -~ BRANCH

;GET THE CHARA(CTER

;STRIP AWAY THE ASCII

;ADJUST FOR RETURN
JRETURN

:THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER
JAND DETERMINE IF IT IS A DIGIT BETWEEN 0 AND 9.

;CALL
:

MOV

:
H

000060

CMPB

18:
;THIS

#'0

MOvVB
BIC

(R1) ,R2
#'0,R2

RTS

TST

ROGUTINE

(R1),4'9
18
(R5)+

WILL

CHECK

;DETERMINE WHAT IT IS.
;CALL
#ADR ,R1
MoV
H
R5,CK.CHR
JSR
RETURN
RETURN
RETURN
RETURN

;ADDRESS OF ASCI] CHARACTER
s CHECK THE CHARACTER
;NOT BETWEEN O AND 9
JBETWEEN O AND 9

;R2 = DIGIT

B8LO

(MP8
BH]

000060

000205

RE TURN?

(K.DEC:

000071

#ADR R

JSR
R5.CK.DEC
RE TURN1

ADR1
ADR?2
ADR3
ADR4

sLESS THAN ZERO?
;YES -- BRANCH
;GREATER THAN NINE?
;YES =~ BRANCH
sGET THE CHARACTER

;STRIP AWAY THE ASCII

;ADJUST FOR RETURN

sRETURN

AN ASCII

CHARACTER

;ADDRESS OF ASCII CHARACTER
s CHECK CHARACTER
;UNKNOWN CHARACTER
s CARRIAGE RETURN * (R1)=ADR+1
;COMMA « (R1)-ADR+1
;PERIOD

(R1)

ADR+1

CIRMTBO RMQS/3/2 DR (MPT TST
GENERAL SUPPORT SUBROUTINES
2332
2333

S%%g

MACRO V04.00

4-APR-81

105711
001417

2339
2340
2341
2342
2343
2364

022474
022476
022502
022504
022510
022512

001413
121127
001407
004537
000410
004537

2346 022520
2347 022522

005725
005725

2338 022470

2345 022516

121127

005725

2348 0225246

005725

2350 022530

005201

2349 022526

RETURN
RETURN

ADRS
ADR6

;DIGIT BETWEEN O AND 7
;DIGIT BETWEEN 8 AND O,

fK.(HR:

TSTR
BEQ

(R1)
3s

;"'CARRIAGE RETURN'"?
JYES == BRANCH

BEQ
CMPB
BEQ
JSR
BR
JSR

2%
(R1) ,#',
1%
RS,CK.DEC
4
RS,CK.OCT

JYES ~= BRANCH
;' PERIOD'
"TM
JYES == BRANCH
JDIGIT?
JNO =- BRANCH
;OCTAL ?

ST
TST

(RS) +
(RS)+

2351 022532
Sgg% 022534

000054

CMPR

000056
022436
022410

TST

1%:
2%:

005725

3%:

011505
000205

:
:

2336 022464
2337 022466

18:12:15 PAGE 9-43

4%:

(R1) 4",

(RS5)+

TST

(R5)+

iNC

TST

MOV
RTS

(RS5)+

(RS) RS
RS

JR2 = DIGIT « (R1)=ADR+"

SUCOMMA'
2

;DIGIT BETWEEN £-9
;DIGIT BETWEEN 0-7
:PERIOD
; COMMA

. CARRIAGE RETURN

JMOVE POINTER TO NEXT CHARA(TER

JUNKNOWN CHARACTER
:RETURN

2354

;THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL

2357
2358
2357
2360
2361
2362
2363
2364

;
;
;
:
:
:
:
:

sggg

:E:ARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2.
;CALL

Sggg

2367 022536
2368 022540
2369 022542
2370 022544
2371 022546
2372 022550
2373 022552
022556
022560
022562
022564
022566
022570
2374 022572

010446
010346
010246
005002
005003
005004
004537
022652
022660
022657
022654
022572
022572
062705

2380 022610
2381 022612
022616

060203
004537
022656

2375 022576
2376 022600
2377 022602
2378 022604
2379 022606

006303
010346
006303
006303
062603

022464

000004

022464

MOV
MOV
JSR
RETURN
RETURN
RETURN
RETURN
RETURN

RETURN

(K.DIG: MOV
MOV
MOV
CLR
CLR
CLR
JSR
6%
o
6%
7%
1%
1%
18
ADD

2%:

ASL
MOV
ASL
ASL
ADD
ADD
JSR
es

#ADR,R1
#NUM_R2
RS.CK.DIG
ADR1
ADR2
ADR3
ADR4
ADRS

:ADDRESS OF ASCIZ STRING
sMAX. MAGNITUDE OF INPUT NUMBER
;CHECK DIGITS
:'CR'* ONLY ENTERED -- R2=0
J"PERIOD’* ONLY ENTERED -- R2=0
;ILLEGAL CHARACTER OR INPUT TOO LARGE -- R2 ?
JU'CR'' == R2 = NUMBER
;'COMMA' -- R2 = NUMBER

Ré,-(SP)
R3,~(SP)
R2.-(SP)
R2
R3
R4
RS,CK.CHR

;SAVE Ré
;SAVE R3
;SAVE THE MAX. SIZE ON THE STACK
SSTART WITH O

ADR6

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

;'PERIOD'' -- R2 = NUMBER

;CHECK ONE CHARACTER
;s JLULEGAL CHARAC(TER
;CARRIAGE RETURN
;0L
[
;DIGIT Q-7
:DIGIT 8-9
;STEP RETURN POINTER PAST "'(R'" & 'PERIOD'’ RETURNS
JINPUT NUMBER «?2
JSAVE =2
s
;8
J(x2)+(%8) = =10
JUPDATE THE INPUT NUMBER
;CHECK ONE CHARACTER
s ILLEGAL C(HARA(CTER

)74

L ZRMTBO RM0S/372 DR (MPT TST
GENERAL SUPPORT SUBROUT INES

022620 022642
022622
022640
022626
022632
022626
022576
022630 022576
2382 022632
105711
2383 022634
001010
2384 022636 605724
2385 022640
005724
2386 022642
005724
2387 022644
020316
2338 022646 101004
2389 022650 000402
2390 022652 005725
2391 022654 005725
2392 022656 060405
2393 022660
010302
2394 022662
005726
2395 022664
012603
2396 022666 012604
2397 022670 011505
2398 022672 000205
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410 022674
016637
2411 022702 012746
2612 022706 004737
2413 022712 (12666
2414 022716
000207
2615 022720 000000
2416
2417
2418
2419
2420
2421
2422
2423
2624
2425
24626
016637
2427 022724
2428 022732 012746
2429 022736 004737
2430 022742 012666
2631 022746 000207
432 022750 000500

2633

MACRC v04.00

4-APR-81

18:12:15 PAGE 9+44

SEQ 0087

48:
5§ :

3
i
3¢
2%
2s
TSTR
BNE
ST
ST
ST

6$:
7%
8$:
9%

BHI
BR
ST
ST
ADD
MOV

(R1)
8s
(R4)+
(R4) +
(R4)+

: CARRIAGE RE TURN
L
AL
‘DIGIT 0-7
:DIGIT 8-9
:DDES A ''CR'’ FOLLOW THE 'PERIOD*
‘Lt 1F NOT
; INCREMENT THE RETURN
*INCREMENT THE RETURN
*INCREMENT THE RETURN

9%
8s
(RS) +
(R5)+
R4 RS
R3.R2

:BR IF ENTERED NUMBER TOO LARGE
*BYPASS INCREMENT
“INCRELMENT RETURN PAST INVALID RETURN
*INCREMENT RE TURN
*SETUP RETURN POINTER
*ENTERED VALUE

CMP

R3, (SP)

(SP)+

MOV

MOV
RTS

(SP)+,R3

(SP)+.R&

(RS) ,RS
RS

*CHECK THE MAGNITUDE OF THF NUMBER

:CLEAN MAX. SIZE OFF OF STACK
*RESTORE R3

*RESTORE Ré

*GE1 RETURN ADDRESS
*RETURN

:THIS ROUTINE WILL CONVERT A 16=BIT UNSIGNED BINARY NUMBER TO AN
;ggfiGNED DECIMAL ASCIZ NUMBER.

;
;

MOV
JSR

INOTE:

THE PROGRAM REQUIRES

$SB2D:

MOV
MOV
JSR
MOV
RTS
LWORD

000002
022720
027004
000002

022720

000000

RE TURN

NUMBER,~(SP)
PC,$58B20D

1%:

;PUT THE NUMBER ON THE STAC(K
:CALL
:ADDRESS OF

THIS FORM OF

THE

1ST ASCIZ

°*$SB2D'.

THE SYSMAC LIBRARY, REV C AND LATER
2(SP).1$
#18,~(SP)

PC,$DB2D
(SP)+,2(SP)
PC
0.0

NOT

THE

CHAR

IS ON

THE

STACK

THE

STACK

VERSION ON

;SAVE THE BINARY NUMBER
*SET THE POINTER
*CALL THE DOUBLE LENGTH CONVERT
‘PICKUP THE POINTER
*RETURN

;THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN
‘%fiffG“ED OCTAL ASCI2 NUMBER.
:

MOV

RETURN

INOTE:
:

THE PROGRAM REQUIRES THIS FORM OF °*$SB20'. NOT THE VERSION ON
THE SYSMAC LIBRARY, REV C AND LATER

$S820:

MOV
MOV
JSR
MOV
RTS
LWORD

000002
022750
027200
000002

000000

022750

JSR

NUMBER,-(SP)

PC,$SB20

2(SP).1%
#18,-(SP)
PC,$0B20
(SP)+,2(SP)
PC
0.0

;PUT

SCALL

THE MUMBER ON THE STACK

*ADDRESS OF

THE

1ST

ASCIZ

CHAR

:SAVE THE BINARY NUMBER
SSET THE POINTER
*CALL THE DOUBLE LENGTH CONVERT
‘PICKUP THE POINTER
*RETURN

IS ON

CZRMTBO RMOS5/3/2 DR (MPT

075

TST

GENERAL SUPPORT SUBROUTINES

MACRG v04.00

263

7
K
18:12:15 PAGE 9-45

;KEYBOARD INTERRUPT INITIALIZATION ROUTINE

2435
2636

;s CALL
;

52%;

4-APR-81

JSR

RE TURN

PC.STKINT

2439 022754
2640 022762

012737
012737

023004
000240

000060
000062

$TKINT: MOV
MOV

#STKSRV,TKVEC
#PRS, TKVEC+2

:SETUP VECTOR
:PRIORITY TO §

2642 022774
5222 023002

012777
000207

000100

156156

MOV
RTS

#RIT06,38TKS
PC

;SET INTERRUPT ENABLE
:RETURN

2641 022770

005777

156166

TST

3$TKB

:CLEAR THE BUFFER

26445

:KEYBOARD INTERRUPT SERVICE ROUTINE

Szzg

2446

s CALL

2649 023004
2450 023006
2451 023012
2452 023020
2453 023022
2454 023026
2455 023032
2456 023040
2457 023044
2458 023050
Szgg 023054

104410
112637
023727
001017
104401
104401
012737
005077
104401
104401
000177

2461 023060
24662 023066
2463 023070
2664 023976
2665 023100
24666 023104

023727
001024
023727
001020
104401
104401

2467 023110

2468 023114
2669 023120
2470 023124
2471 023130
2472 023136
2673 023140
gz;g 023144
%2;9 023146

013746

012746
005077
000137
012777
000402
104401
000002

023146
023146
001207
023452
177777
156114
001207
043106
156320

000003

001336

001154

000176

023146

000007

$TKSRV: RDCHR
MOVR
CMP
BNE
TYPE
TYPE
MOV
CLR
TYPE
TYPE
JMP
1%:

001207
026661

177776

023130
156034
026312
000100
023146

000020

156022

ENTER VIA INTERRUPT

cMP
BNE
CMP
BNE
TYPE
TYPE

(SP)+,5%
5,43
18
LSCRLF
LSCNTLC
#-1,CFLAG
a$TKS
LSCRLF
JHALTX
BRSTART

;READ THE KEYBOARD
;GET THE CHARACTER
;'CONTROL C*' ?
:BR IF NOT
:CR-LF
;'ec
;SET THE °*CONTROL C' FLAG
:CLEAR THE TTY INTERRUPT
:CR-LF
:HALT THE PROGRAM
;JUMP TO RESTART

SWR, #SWREG
3s
58,47
3s
LSCRLF
LSCNTLG

:SOF TWARE SWITCH REGISTER IN USE ?
:BR IF NOT
I*CONTROL G* ?
:BR IF NOT
;CR-LF
;'°G*

MOV

PS,=-(SP)

38
4%

MOV
CLR
JMP
MOV
BR
TYPE
RTI

#2%,-(SP)
asTKS
$GTSWR
#100,287KS
48
.58

:RETURN ADDRESS
;CLEAR THE TTY INTERRUPT ENABLE
:GET THE SWITCH REGISTER ENTRY
SENABLE TTY KEYBOARD INTERRUPT
JEXIT
;ECHO THE CHARACTER
:RETURN

5%:

WORD

JENTERED CHARACTER

2%:

2478
2479

;THIS ROUTINE WILL
JCALL:

2481
SZS%

:
;

2480

;

2484 023150
2485 023152
2486 027154
2487 023160
2488 023164

010346
005046
012703
022703
101467

2690 023170

112613

2489 023166

104410

023426
023452

INPUT A STRING FROM THE TTY

RDL IN

RETURN HERE

$RDL IN: MOV
CLR
1%:
MOV
2%:
CMP
B8LOS

ROUCHR

MOVR

;PUT THE STATUS WORD ON THF ~TA(CK

;2 INPUT A STRING FROM THE TTY

:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
;TERMINATOR WILL BE A BYTE OF ALL 0'S

R3,-(SP)
~(SP)
#STTYIN,R3
*
#STTYIN+20.,R3
8¢

:SAVE R3
:CLEAR THE RUBOUT KEY
GET ADDRESS
BUFFER FULL?
:BR IF VYES

(SP)+, (R3)

:GET CHARACTER

:GO READ ONE CHARACTER FROM THE TTY

SEQ 0088

276

{ZRMTBO RM0OS5/3/2 DR rMPT T1ST
GENERAL SUPPORT SUBROUTINES
2691 023172
2692 023176
2493 0235200
2494 023202
2695 023204
2696 023212
26497 023216
2498 023222

1227°3%
001022
005716
0C1007
112737
10441
012716
005303

2500 023230
2501 023232
2502 023236

103445
111337
104401

2699 023226

2503 023242

2504 023244
2505 023246
2506 023250

000746

005716
001406
112737

104401
005016

2512 023276

000726

2513 023300
2514 023304
2515 023306
2516 023314
2517 023320
2518 023322
2519 023326
2520 023330
2521 023332
2522 023336
2523 023342
2524 023344
2525 023350
2526 023352

023424
3%

023404
023424
A ¥
000134

023424
000025

122713
007006
012737
104401
000427
122713
001011
105013
104401
104401
000706
104401
000701
111337

000003

104401
122723
001274
105063
104401

2534 023404
2535 023406
2536 023414
2537 023422
2538 023424
2539 023425
2540 023426

011646
016666
012766
000002
000
000

ggzg 023452

000134
023424
177777
_

122713
001003
104401

2527 023356
2528 023362
2529 023366
2530 023370
2531 023374
2532 023400
2533 023402

000177

020327 023426

2507 023256
2508 023262

2509 023264
2510 23270
2511 023272

MACRO v04 00

005726
012603

136

023424
5¢:

026654

177777
023452

6$:
001336

000012

78:

001207
023426

001206

8s:

023424
023424
000015

9s:

177777
001210

000004
023426

103

108 :

000002
000004

200

4-APR-81

SEQ 0089

CMPB
BNE
TST
BNE
MOVB
TYPE
MOV
DEC

#177,(R3)
4
(SP)
33
A'\,11%
1%
#-1,(SP)
R3

;IS IT A RUBOUT
‘BR IF NO
;1S THIS THE fFIRST RUBOUT?
‘BR IF NO
;TYPE A BACK SLASH

BLO
MOVB
TYPE

83
(R3),11%
11%

‘BR [F

YES
;SETUP TO TYPEOUT THE DELETED (HAR.
;GO0 TYPE

TST
BEQ
MOVB

(SP)
58
#'\.11$

JRUBOUT KEY SET?
‘BR IF NO
*TYPE A BACK SLASH

CMPB
BNE
TYPE

#25, (R3)
6
LSCNTLU

M8
BNE
MOV
TYPE
8R
CMPB
BNE
CLRB
TYPE
TYPE
BR
TYPE
BR
MOVB

#3,(R3)
78
#=1,CFLAG
LSCNTLC
108
#12,(R3)
9s
(R3)
L$CRLF
CSTTYIN
2s
. $QUES
is
(R3).11$

CMP

TYPE
CLR

B8R

TYPE
(MPB
BNE
CLRB
TYPE

TST
MOV
MOV
MOV
MOV
RTI
118:
BYTE
BYTE
STTYIN: .BLKB
SENELC: JASCIZ
.EVEN

7
L
18:12:15 PAGE 9-46

R3,A$TTYIN
2

L1118
(sP)

118
#15,(R3)+
28
=1(RY)
LSUF
(SP)+
(SP)+,R3

{SP) ,=-(SP)
4(SP} ,2(SP)
#STTYIN,4(SP)
0
0
20.
/~C/<CRLF>

;SET THE RUBOUT KEY
‘BACKUP BY ONE

“STACK EMPTY?

*GO READ ANUTHER CHAR.

;CLEAR THE RUBOUT KEY

18 CHARACTER A CTRL U?
‘BR [F NO
:TYPE A CONTROL 'V’

:GO START OVER

*1S CHARACTER A CTRL C ?
‘BR [F NOT
SSET CNTRL C FLAG
SECHO IT
SEXIT
“IS CHARACTER A ‘LF'"
SBRANCH IF NO
*CLEAR THE CHARACTER
STYPE A "CR
& 'LF"
STYPE THE INPUT STRING
*GO PICKUP ANOTHER CHACTER
STYPE A *2°
SCLEAR THE BUFFER AND LOOP
:ECHO THE CHARACTER

;CHECK FOR RETURN
SLOOP IF NOT RETURN
*CLEAR RETURN (THE 15)
:TYPE A LINE FEED

*CLEAN RUBOUT KEY FROM THE STACK
*RESTORE R3

ADJUST THE STACK AND PUT ADDRESS OF
:
FIRST ASCII CHARACTER ON IT
:RETURN
*STORAGE FOR ASCII CHAR. TO TYPE
*TERMINATOR
*RESERVE 20. BYTES FOR TTY INPUT
SCONTROL ‘'C*

THE

)77

rZRMTBO RMOS/3/2 DR (MPT
END OF PASS ROUTINE

TST

MACRO v04.00

4-APR-81

1B:12:15 PAGE

1
SEQ 0090

.SBTTL
A

END OF

PASS ROUTINE

2222208022222
R R
R R R R R R N R S N R R R R R R 22 R AR RN
T

**INCREMENT THE PASS NUMBER (SPASS)

;*IF SW12=1 INHIBIT TRACE TRAP

s*]F THERES A MONITOR GO TO [T
;*IF THERE ISN'T JUMP TO FINISH
023456
023456
023460
023464
023470
023474
023502
023504
023506
023510
023512
023514
023516
023522
023524
023526
023532
023534
023534
023540
023542
023544
023546
023550
023552
023554
023554
023556
023562
023570
023572
023576
023600
023604
023610

000240
005037

005037
005237
042737
005327
000001

012737
000001
023504
013700
001414
005046
012746
000426

013700
001405
000005
004710
000240
000240
000240
104400

042716
032777
001005
005137
100402

052716
012746
000002

000137
023620
000000

4 023624

005737
001004

5 023626
6 023632

7 023636

8 02364:

001116
001176
001220
100000

001220

003022

023612
023617
%
0236°
02361

2
3 023620

$EOQP:

104401
104401
104401
104401

000042

023534

$CLR.T:

000042

000020
010000
023616

000020
023612

NOP
CLR
CLR
INC
BIC
DEC
$EOPCT: . WORD
BGT
MoV
$ENDCT: . WORD
SEOPCT
$GET42: MoV
8tQ
CLR
MOV
BR

155364

MOV
BEQ
RESET
$ENDAD: JSR
NOP
NOP
NOP
$DOAGN:
TRAP
BIC
BIT
BNE
COM
aMI
8ls
1$:
MOV
RTI
$RTIRN:
$LOOP:

001376

001207
042402
001207
043004

STSTNM

STIMES
$PASS
#100000,8PASS
%PC)*

::Egg;z ALLOW A NEG. NUMBER

$DOAGN

J:YES
;.RESTORE COUNTER

ars2 RO
$DOAGN
~(SP)

;:GET MONITOR ADDRESS
;:BRANCH IF NO MON]TOR
;o INSURE THE ‘T’ BIT [S CLEAR
;:SETUP FOR AN RTI OR RTT
::GO0 DO AN RT] OR RTT TO LOAD THE FSW
;:WITH A CLEARED ''T°’ BIT

w42, RO

;s INSURE RO CONTAINS THE MON]TORS
s sRETURN ADDRESS
;:CLEAR THE WORLD

;PC)*.S(PC)+

#SCLR.T,~(SP)
$RTRN

$DOAGN

PC. (RO)

;260 TO MONITOR
. :SAVE ROOM
;:FOR

JACTI
#20, (SP)

#IT12,aSWR
1%
$1817
18

#20, (SP)
#$L00P,~(SP)

;:PUSH OLD PSW AND PC ON STACK

2sCLEAR THE "'T'' BIT

J3RUN WITH TRACE TRAP?
::BR IF NO
;IS IT TIME FOR TRACE TRAP
;:BR IF NO
;:SET TRACE TRAP
;3JUMP TO START OF TEST
;cRETURN=-THIS

IS CHANGED T0

J2AN "RIT
IF "RTT
IS A LEGAL

2 INSTRUCTION

$RTNAD:
$1BIT:

JMP
. WORD
.WORD

d(PC)+
BINISH

FINISH:

TST

FAULT

TYPE
1%:

;.ZERO THE TEST NUMBER
;. ZERQ THE NUMBER OF [TERATIONS
.. INCREMENT THE PASS NUMBER

TYPE

TYPE
TYPE

.SCRLF

MESG15
.$CRLF

.MESG20

; sRETURN

;2T BIT STATE INDICATOR
;COMPATIBLE ?
JBRANCH IF NOT

JCR=LF

;?SSE?GE: ALL DRIVE COMPATIBLE

078

(ZRMTBO RMOS/3/2 DR (MPT TST

END OF PASS ROUTINE

9 023046

10 023652

11 023656

1064401

104401

000177

043022

(01207

155516

MACRO v04.00

4-APR-81

N 7
18:12:15 PAGE 10-1

TYPE

,STARS

;TYPE STARS MESSACE

JMP

DRSTART

;JUMP TO RESTARTY

1YPE

LSCRLF

;CR=LF

SEQ 0091

rIRMIBC RMOS/3/2 DR (MPT 1ST

ERROR HANDLER ROUT INE

MACRO V04 .00

4-APR-B1

18:12:15 PAGE

°°

SEQ 0097

LSBTTL

ERROR HANDLER ROUTINE

. ..'.'.'.‘.......".""..."l....'.."."t‘.t"l"l'."..t".t'

'THIS ROUTINE WILL

INCREMENT

THE

ERROR FLAG AND

THE

ERROR

C(OUNT,

:*SAVE THE ERROR JTEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;*AND GO TO SERRTYP ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE-

:'SU1S=1
;eSW13=1
;*SW10=1

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BE.L ON ERROR

s *SW09=1

s+CALL

023662
023666
023670

023674

023676
G23704
023712
023714
023720
023724
023730
023736
023744
023752
023754
023762
023764
023770
023772
026000
024002
V24006
024014
0264022
024024
024032

105037
104407
105237

024254

$ERROR:

001117

7%:

013777
032777
001402
104401
005237
011637
162737
117737
032777
001060
122737
001454
105737
001047
022737
001445
013746
012737
013737
000406
012737
012716

001116
0C2000

001775

1558242

001202
001126
001132
000002
155170
301000

001132
001130
155202

000177

001130

18:

ERRO~

(LRB

IBSAVE

INCB
BEQ
MOV

$ERFLG
;:SET THE ERROR FLAG
7%
;;DON'T LET THE FLAG GQ
STSTNM aDISPLAY ;;DISPLAY TEST NUMBER

CKSWR

#31T710,aSWR

INC
MoV

SERTTL
(SP) ,$ERRPC

BEQ
TYPE

B8IT

BNE
(MP8
BEQ
TSTR

177777

024252

000004
024024
177766

BNE
M
BFQ

000004
024252

MOV
Bngv

177777

024252

024040

000002
012637

0264044
0264052
024054
024062
0264064
024072
024100
0264106

022737
001420
032737
001414
042737
113737
112737
000402

026110

105037

024254

032777
001004
004737

020000

000004
177777

024252

000001

024252

000177

177766
024254
001130

024256

MOV

1%
LSBELL

#2 ,$ERRP(
aSERRPC ,SITEMB

#BIT09,aSWR
10048
#177,317EMB
10043

IBSAVE

..CLEAR THE

ITEM BYTE SAVE LOCATION

;. TEST FOR CHANGE

[N SOFT-SWR

;.BELL ON ERROR?

TO ZERO
ERROR FLAG

;:NO - SK]P
s cRING BELL

;. COUNT THE NUMBER OF ERRORS
;;GET ADDRESS OF ERROR INSTRUCTION

;;STRIP AND SAVE

THE ERROR [TEM CODE

;2SEE IF LOOP ON ERROR IS SET

; ;BRANCH ARDUND ROUTINE IF SO
;:SEE IF THIS IS THE POWER FAIL CALL
; ;BRANCH AROUND ROUTINE IF IT IS

;.SEE

THIS

THE 2ND ERROR CALL

IN THIS ROUTINE

1003s
#-1,(PSAVE
10048

;:BRANCH IF SO
;:SEE IF (PSAVE HAS (PU ERR REG TIMEOUT
;;BRANCH IF SO

#10008 ,ERRVEC
'115(7)1726.CPSAVE

;:SETUP "TRAP' RETURN ADDRESS
:;MOVE (PU ERROR REGISTER TO CPSAVE FOR TEST

ERRVE(C,-(SP)

INDICATION

;;SAVE CONTENTS OF ERROR VECTOR

10008:

MOV
S?Y

#-1,CPSAVE
#10018, (5P)

::SET (PU ERROR REGISTER TIMEOUT
;:SETUP RETURN ADDRESS

10018:

MOV

(SP)+ ,ERRVEC

;;RESTORE CONTENTS OF

10028:

(MP
BEQ

#-1,CPSAVE
1004%

;:SEE IF CPSAVE HAS (PU ERR REG TIMEOUT
; sBRANCH IF SO

BEQ
BIC
MOVB
MOVB
B8R

10048
#81T00,177766
$ITEMB, IBSAVE
”77,81TEMB
1004%

::BRANCH IF 0K
;;CLEAR THE BIT FOUND SET
;:MAKE IBSAVE NON-ZERQO FOR DUAL ERROR CALL
;:SET SITEMB TO SPECIAL POWER FAIL POINTER
; ;BRANCH OVER IBSAVE CLEARING

C(LRBR

|BSAVE

;sCLEAR IBSAVE SO 2ND TIME THROUGH EXITS

BIT
BNE

MIT13,85WR
208

J:SKIP TYPEOUT IF
::SKIP TYPEOUTS

8I7

;882::
155032

; cERROR=EMT AND ~=ERROR [TEM NUMBER

BIT

SuB
Mova

024254

024036
024040

026114
026114
024122
026124

155252

LOOP ON ERROR

JSR

#MI1T00,CPSAVE

PC,S$ERRTYP

INDICATOR

ERROR VECTOR

INDICATION

;.SEE IF POMWER MONITOR BIT IS CET IN CPU ERR REG

SET

;:GO TO USER ERROR ROUTINE

rZRMIBO RMOS/3/2 DR (MPT

ERROR WANDLER ROUT INE

024130
026134
024134
026142
0246144
024152
026156
024157
024160
024162
024166
024170
026174
024176
024200
024202
024202
024210
024212
024216
024222
024224
024230
024230
024236
026240
024242
026242

024246

024250

024252
024254

TST

MA(RO v04.0C

001207

122737

000001

001232

113737

001130

024156

004737
000
000
000777
105737
001005
005777
100002

025150

001402
013716

2%:

154760

001000

154744
4%:

001200

024254

(MPS

#APTENV, SENV

s sRUNNING [N APT MODE

MOVB

SITEMB,21%

;:SET ITEM NUMBER AS ERROR NUMBER

000042
o8

PC,8ATYS
0

T1STR

IBSAVE

BYTE
BR

BNE

HALT
CKSWR

aSWR

MOV

S$ESCAPE, (SP)

#SENDAD ,aa 42

HALT

.2SEE IF

IBSAVE 1S LOADED

;cHALT ON ERROR

;:SKiP 1F CONTINUE

c.HALT ON ERROR!
;.TEST FOR [HANGE

[N SOF T-SWR

;:LOOP ON ERROR SWIT(H SET?
;:BR IF NO

$SLPERR, (SP)

;.FUDGE RETURN FOR LOOPING

;:BR IF NONE

., CHECK FOR AN ESCAPE

ADDRESS

;;FUDGE RETURN ADDRESS FOR ESCAPE
;:ACT=11

AUTO-ACCEPT?

;;BRANCH IF NO
s 2YES

IBSAVE

BNE

.WORD

0
O

RT]
.WORD

ERROR TO APT

;:BRANCH IF NOT - NO HALT ON PWR MON B]T FRROR

$ESCAPE

BNE

FATAL

TST

BEQ

;cREPORT

;sAPT ERROR LOOP

#31709,a3SWR
43

MOV

::NO,SKIP APT ERROR REPORT

¢
22%

BIT
BEQ

TSTR

(PSAVE:
IBSAVE:

pd 3

JSR
.BYTE

TST

001124
€C1200

105737

.SCRLF

B8PL
35

023544

000000
000000

8
11-1

TYPE

BNE

22%:

024254

022737
001001
000000

001210
000002

20%:

21s:

000000
104407

032777
001402
013716
0C5737

C
18:72:15 PAGE

SEQ 0092

104401

001007

4-aPR-81

;:SEE

ITEM BYTE

SAVE

LOCATION HAS AN ERROR CALL

;;BRANCH BACK TO CALL ORIGINAL ERROR
2 JRETURN
;;LOCATION TO SAVE

;;LOCATION TO SAVE

(PU ERROR REG CONTENTS
ITEM BYTE

CZRMTB) RMOS/3/2 DR (MPT TST
ERROR MESSAGE TYPEOUT ROUTINE

MACRO vN4.00

4-APR-81

D
18:12:15 PAGE

8
12

SEQ 0094
.SBTTL

ERROR MESSAGE

TYPEOUT ROUTINE

. t'..tt.ttt".'t.'.t't""t'tlfi'.".."'t""Qttt.'t'.'."

...."

:*THIS ROUTINE USES

THE 'ITEM CONTROL BYTE'' (SITEMB) TO DETERMINt WHI(H
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE 'ERROR TABLE'' (SERRTB,,
:«AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

026256
024256
026262
024264
024266
024272

024274

026300
024302
024304
024310

0264312
024320
024324

026326
024530
024332
024334
024336

024342
024346
024350
024352
024354
024360
024364
024366
024370
024372
024376

026400
024402
024404
024410
024412

024412
024414

024416
024420
024422
024426
024430

104401
010046

001207

153700
001004

001130

005000

013746

$ERRTYP:

CLR
B1SB
BNE

001132

MoV

000177

TYPOC
BR
(MP8

104402

000437
122700
001006

013737
012700
000406
005300
006309
00€£300
006300
062700

012037
001404

001216
024434

1%:

024574

005362

024352

104401

1001%:

012037
001404

2s:

001207
024370

3s:

104401

000000

104401
011000

0C1004
012600
104401

000207

013046
104402
005710
001770

4%:

001207

5%:

6%:

001207

7%:

024430

240

040

000

024434
024444
024526

024444

024526

024560

127
123

PFECH:
PFECH1:
PFECHZ:

024560

024574

001132

024252

PFECH3:

120
124

117
105

BR
DEC

ASL
ASL
ASL

$ERRPC,-(SP)

7177 ,RO
10008
STESTN,PFTSTN
#PFECH,RO

1001$

.WORD

0
.SCRLF
(RO)+,48
S$

TYPE

TYPE
MOV

BEQ
TYPE
. WORD
TYPE
MoV

BNE
MOV
TYPE

;2"'CARRIAGE RETURN'' £ ‘LINE FEEL"
; :SAVE RO
;:PICKUP THE ITEM INDEX
;:1F

ITEM NUMBER IS ZERO, JUST

;:TYPE

THE

(RO)+,2%
3s

0
.SCRLF

(RO) ,RO
78
(SP)+,RO

.SCRLF

THE

ERROR

. :SAVE SERRPC FOR TYPEOUT
.
; ;ERROR ADDRESS
;G0 TYPE--OCTAL ASCIIC(ALL DIGITS)
;:GET ouT
;;SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL
;;BRANCH [F NOT
c:GET TEST NUMBER
::MOVE POWER FAIL ERROR CALL TABLE TO RO

+sBRANCH TO CALL ERROR
: ADJUST THE INDEX SO THAT

#SERRTB,RO

;cFORM TABLE POINTER

;:PICKUP 'ERROR MESSAGE'" POINTER
. :SKIP TYPEQUT IF NO POINTER

;. TYPE

THE ‘¥ERROR MESSAGE'’

;2 ERROR MESSAGE'' POINTER GOES HERE
;2 'CARRJAGE RETURN'' & 'LINE FEED''
;:PICKUP 'DATA HEADER'' POINTER

SKIP TYPEOUT IF O

;:;TYPE THE ‘DATA HEADER''

;2" DATA HEADER'' POINTER GOES HERE
;2 'CARRIAGE RETURN'' & "LINE FEED''
J:PICKUP ‘DATA TABLE'' POINTER
;:G0 TYPE THE DATA

;;RESTORE RO

;:""CARRJAGE RETURN'' & 'LINE FEED''

. JRETURN

MoV
TYPOC
TST

(RO +,-(SP)

+:SAVE @(R0O)+ FOR TYPEOUT

(RO)
6%
.83
’$
/7

"IS THERE ANOTHER NUMBER?

B8R

.ASCI1Z
.EVEN

IT WILL

WORK FOR THE ERROR TABLE

RTS

TYPE

8%:

. SCRLF

RO,-(SP)
RO
?:SITEMB.RO

ADD
Mov
BEQ

BEQ

104401

000771

BNE

MOV
MoV

i0008:

104401

000000

TYPE
MOV

+:G0 TYPE-~OCTAL ASCII(ALL DIGITS)

::BR IF NO
..TVPE TWO(2)
;.LOOP

SPACES

;. TWO(2) SPACES

PFECH1 ,PFECH2 ,PFECH3,PFECH4 ; ;WORDS DEF INING TABLES BELOW
.ASCI1Z
?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET>
LASCIZ
?TESTNO
ERR PC
(PUERREG?
.EVEN
PFTSTN,$tRRPC,(PSAVE,Q
.WORD

(ZRMTBO RM0S5/3/2 DR (MPT TST
ERROR MESSAGE TYPEOUT ROUTINE

(24570

0cs574

000

000000

000

MACRO v04.00

000

&-APR-B1

PFECH4:

PFTSTN:

.BYTE

.WORD

18:12:15 PAGE

12-1

SEQ 0095

0,0,0,0
O

;s CONTAINS

TEST

NUMBER

FOR

ERROR

TZRMTBN RMOS5/3/2 DR “MPT

"YPE

ROUT INE

'ST

MACRO v04.00

&-APR-81

18:°2:15 PAGE

.SBTTL

TYPE

ROUTINE

. .t"'.'t.'Q.ttfi.'.."'"'t'tt't....t'..."tt'....""t.t.'.'.!'

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A Q BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL C(HARA(CTERS AFTER A LINE FEED.

SNULL CONTAINS THE CHARACTEP TO BE USED AS THE FILLER (HARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

;*NOTE:
'NOTEZ

S eNOTE3:

JeCALL:
-1) USING A TRAP INSTRUCTION
TYPE
.MESADR
'OR
T
.

. ®

;MESADR

IS FIRST

ADDRESS OF

AN ASCIZ

STRING

TYPE
ME SADR

024576
126602
G24604
024606
024610
024612
024616
024624
024626
024634
024636

024642

024646
024650

024656
024660
024662
024664
024666
024670
024674
024676
024702
024704
024710
024712
024714
024716
024720
024724
024726
024732
024736
024740

024744
024750
024752
024756
1,24762

105737
100002
000000
000430
010046

017600

122737
001011
132737
001405
010037

004737

000000
132737
001003

001173

105366

002779
004737
105337
000770

1%:

000002
000001

001232

000100

001233

024646
025140

000040

001233

61%:
62%:

2%:

112046

001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401
001207
105037
000755
004737
123726
001350
013746

$TYPE:

000002

60%:
3%:

000011

4%:

000200

025126

025010
001172
001170
000001

025010
02512¢

5%:
6%:

TSTB
BPL
HALT
B8R
MOV
MOV
{MPR

BNE
BITB
BEQ
MOV
JSR
. WwORD
BITB
BNE

STPFLG
19

;:1S THERE A TERMINAL?
J:BR IF YES

;. LEAVE

RO,=(SP)

a2(SP) ,RO

JJHALT HERE

NO TERMINAL

::SAVE RO

;.GET ADDRESS OF ASCIZ STRING
J;RUNNING IN APT MODE
628
;:NO.GO CHECK FOR APT CONSOLE
#APTSP
,OOL
SENVM ; :SPOOL MESSAGE TO APT
629
;:ND,GO (CHECK FOR CONSOLE
RO.61$
s :SETUP MESSAGE ADDRESS FOR APT
SC.SAYYS
;:SPOOL MESSAGE TO APT
; ;MESSAGE ADDRESS
NAPTEN
, SENV
V

#APT(SUP, SENVM

60%

;:RPT

CONSOLE

SUPPRESSED

JYES,SKIP TYPE OUT
. sPUSH CHARACTER TO BE TYPED ONTO STACK
J:BR IF IT ISN'T THE TERMINATOR
;:]F TERMINATOR POP [T OFF THE STA(K
::RESTORE RO
;;ADJUST RETURN P(C
; sRETURN

BNE
TST
MOV

(RO)+,~(SP)
43
(SP)+
(SP)+,RO
#2,(SP)

(MP3

#HT, (SP)

;;BRANCH IF

#CRLF, (SP)

s JBRANCH IF NOT <(CRLF>

{SP)+

;:POP

MOVB

ADD
RT]

BEQ
cMP8
BNE

TST
TYPE
SCRLF
CLRB
BR
JSR
(MPB
BNE
MOV

DECB
BLT
JSR
DECB
BR

;sTYPE

$CHARCNT

PC,STYPEC

$FILLC,(SP)+

<HT>

<CR><LF> EQUIV

A (R AND LF

;s CLEAR CHARACTER COUNT
;;GET NEXT CHARACTER
;GO TYPE

THIS CHARACTER

PC,STYPEC

s.1S IT TIME FOR FILLER CHARS.:
1F NO GO GET NEXT CHAR.
;o
:.GET # OF FILLER (HARS. NEEDED
:sAND THE NULL CHAR.
;:DOES A NULL NEED TO BE TYPED?
::BR IF NO--GO POP THE NULL OFF OF STA(K
2260 TYPE A NULL

’$

;. LO0P

SNULL ,=(SP)
1(SP)

$CHARCNT

;.D0O NOT (OUNT AS A (OUNT

"IRMTB0O RM0OS5/3/2 DR CMPTM
ROUTINE

MACRO v04.00

4-APR-81

;HORIZONTAL

024764
024770
024774
025002
025004
025006
025010
025010
025014
025016
025022
025026
025032
025034
025034
025040
025042
025046
025052
025056
025060
025060
025062
025062
025066
025070
025076
025104
025106
025112
025114
025122
025124
025126
025130

18:12:15 PAGE

13-1

SEQ V097

112716

004737
132737

001372
005726
000724
105777
100022

017746
042716

000040
025010
000007

105777
100375
117716

154120

122716

001366

$TYPEC:

1018%:

154114
177600

000021

102%:

005726
105777
100375
116677
122766

001003

105037
000406
122766
001402
105227
000000
000207

9%:

154140
177600

000023

042716

025126

154144

122716

001012

8%:

10%:

154076

000002
000015

154070
000002

025126

000012

000002

—

TYPE

TAB PROCESSOR

MOVB

PC,STYPEC
#7 ,$CHARCNT
9%
(SP)+

(SP)

J.REPLACE TAB WIIH SPACE
JiTYPE A SPACE
. :BRANCH [F NOT AT
;. TAB STOF
;.POP SPA(CE OFF S1ACK
2;GET NEXT CHARACTER

BPL
MOV
BIC
CMPB
BNE

TSTB

as$TKS
108
a$TKB, ~(SP)
#177600, (SP)
H#SXOFF
, (SP)
1028

;;CHAR IN KYBD BUFFER?
;:BR IF NOT
::GET CHAR
;sSTRIP EXTRANEOUS BITS
;;WAS CHAR XOfF
;:BR IF NOT

TSTB
BPL
MOvVB

a$TKS
1018
as$TKB, (SP)

;:WAIT FOR (HAR

JER
BIT8B
BNE
TST
8R

:2GET CHAR

BIC
cMPB
BNE

#177600, (SP;
#SXON, (SP)
1018

;¢STRIP [T

TST

+
(SP)

;oFIX STACK

TSTB
BPL
Mov8
(MP8
BNE
CLRB
BR
cMP8

as$TPS
108
2(SP) ,a$TPB
#CR,2(SP)
18
$CHARCNT

;:WAIT UNTIL PRINTER IS RFADY

BEQ
INCB

$CHARCN
: ,WORD
T
$TYPEX: RTS

STYPEX
WLF ,2(SP)

X
$TYPE
(PC)+
0

;;WAS IT XON?
J:BR IF NOT

+sLOAD CHAR TO BE TYPED INTO DATA REG.
22 1S CHARACTER A CARRIAGE RETURN?
. :BRANCH [F NO

::E;?;-CLEAR CHARACTER COUNT

;1S CHARACTER A LINE FEED?

;;BRANCH IF

YES

;¢COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

&-APR-81
APT

.SBTTL
i

$ATYY:

000001
000001

025376
025374

SATY3:

000001

025376

SATVYS

R AR AR R AR AN AR A RPN RN AN N A

SATY(:

025374
000001

001232

000100

001233

000004
000002
001212

0C0004

001226

017637
062766
013746
004737
000000

000004
000002
177776
024576

1%:

2%:

105737
001416

025376

005737
001413
005737
001375
017637
062766
005237
105037
105037
105037
012601
012600
000207
000
000
000
000200
000001
0001900
000040

3%:

5%:

10%:

001232

001212

000004
000002
001212
025376
025375
025374

BR
MovB
MoV
MoV
TST8

MOV
ADD

7ST
BNE
Mov
TSTB
BNE
SuB
ASR

MOV
MOV

001212

025306
000004

MOvVB
MOvVB

BEQ
CMPB
BNE
BITB
BEQ

001226

001230
000004

8
14

COMMUNICATIONS ROUTINE

11%:

001214
000004
12¢%:

SMFLG:
$LFLG:
$FFLG:
APTSIZE
APTENV
APTSPOOL
APTCSUP

BR
MOV
ADD
MOV
JSR
.WORD
TSTB

BEQ
TST
BEQ
TST
BNE
MoV
ADD
INC
CLRB
CLRB
CLRB

MOV
MOV
RTS

.BYTE
.BYTE
.BYTE

OQC—-O2

025132
025140
025146
025150
025156
025158
025160
025162
025166
025170
025176
025200
025206
025210
025214
025222
025226
025230
025234
025236
025240
025244
025246
025252
025260
025262
025270
025276
025302
025306
025310
025310
025314
025316
025322
025324
025330
025332
025340
025346
025352
025356
025362
025366
025370
025372
025374
025375
025376

H
1B:12:15 PAGE

SEQ C

(OMMUNICATIONS ROUTINE

MACRO v(4.00

O =0ONI<
HOOOMmM

APT

IS1

nwonoun

JRMTBO RMOS/3/2 DR (MPT

AR NN AN

AROAN

R AN SRRV RN I I NI IO PR

#1,SFFLG
#1,SMFLG
SATY(
#1,8FFLG

;;70 REPORT FATAL ERROUR
;;TO TYPE A MESSAGE

RO,=(SP)
R1,-(SP)
SMFLG
5%

;sPUSH RO ON STACK
;;PUSH R1 ON STACK
. 2SHOULD TYPE A MESSAGE?
BR
;:1F NOT:

#APTENV,SENV

;:TO ONLY REPORT FATAL ZRROR

;;OPERATING UNDER APT?
RR
;:1F NOT:

géPTSPOOL,SENVM ;s SHOULD SPOOL MESSAGFS?
;:IF NOT:
BR
86 (S3) ,R0
;2GET MESSAGE ADDR.
#2,4(SP)
;:BUMP RETURN AaDDR.
??SGTYPE
;.SEE IF DONE W/ LAST XMISSION?
WAIT
;0IF NOT:
RO, $MSGAD
.sPUT ADDR IN MAILBOX
(RO)+
;JFIND END OF MESSAGE

$MSGAD,RO
RO
RO, SMSGLGT

;. 5UB START Of MESSAGE
;.GET MESSAGE LNGTH IN WORDS
;;PUT LENGTH [N MAILBOX
;s TELL APT TO TAKE MSG.

34(SP) 48

;:PUT MSG ADDR

177776,=(SP)

::PUSH 177776 ON STACK

$FFLG
12%
SENV
12%
S$MSGTYPE
118
84 (SP) ,SFATAL
#2,64(5P)
SMSGTYPE
$FFLG
SLFLG
SMFLG
(SP) +,R1
(SP)+ RO

;sSHOULD REPORT FATAL ERROR?

#4 , SMSG
YPE
T
5§

#2.4(SP)

PC.3TVAE

0
0
0

IN JSR L INKAGE

- -BUMP RETURN ADDRESS

ZiCALL TYPE MACRO

;o1F NOT:

;;1F NOT:

JoIF NOT:

WAIT

:;RUNNING UNDER APT?
;2 ;FINISHED LAST MESSAGE?

;:GET ERROR #
;;BUMP RFTURN ADDR.
;s TELL APT TO TAKE ERROR
;:CLEAR FATAL FLAG
;s CLEAR LOG FLAG
;. CLEAR MESSAGE FLAG
;:POP STACK INTO R1

:;:POP STACK INTO RO

;s sRETURN

. sMESSG. FLAG

..L0G FLAG

. ;FATAL

FLAG

“JRMTBC RMOS/2/2 DR (MPT

TST

POWER DOWN AND UP ROUTINES

MACRO v04.00

4~-APR-B1

18:%2:15 PAGE

1§

SEQ 0099
.SBTTL

POWER DOWN AND UP ROUTINES

'"t..'ttt..l'.."'t.""'.'..!tfi.fit.".t..tt'.tt..l"tt".'t.t"t

025400
025406
025414
025416
025420
025422
025424
025426
025430
025434
025440
025446
025450

025552
000340

000024
000026

*POWER DOWN ROUTINE
#$ILLUP ,@#PWRVEC
$PWRDN: MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV

010146
010246

010346
010446
010546

017746
010637
012737
000000
000776

153520

025556
025452

MOV

MOV
MOV
HALT
BR

000024

;,SET

FOR FAST UP

#3640 ,/PWRVEC+2 ;;PP]O:7
RO,~(SP)
: :PUSH RO ON STA(CK
; sPUSH R1 ON STA(K
R1,-(SP)
R2,-(SP)
. sPUSH RZ ON STACK

R3,-(SP)

R4 ,~(SP)

RS5,-(SP)

ASWR, = (SP)

SP,$SAVR6

NSPWRUP ,@#PWRVEC

.=l

; ;PUSH R3 ON STACK

; ;PUSH R4 ON STA(K
:1PUSH R5 ON STA(K
2 :PUSH
N DN STACK

;s SAVE

;.SET UP VE(CTOR

: s HANG

-.-Qtttttt?wtttt'ttttt'tt'ittttttttttttfitttttttttttttttttttt'ttttt

[

025452

025460
025464
025470
025474
025476

025502
025504
025506
025510
025512
025514
025516
025524
025532
025534
025536

025544

025550
025552
025554
25556
025560

012737
013706
005037
005237
001375
012677
012605
012604

025552
025556
025556
025556

000024

153452

012603
012602

012601
012600
012737
012737
104401
025560
042766
005037
000002
000000
000776
000000
015

025400
000340
000020
023616

000024
000026
000002

:POWER UP ROUTINE

$PWRUP: MOV
MOV
CLR
1%:
INC
BNE
MOv
MOV
MOV
Mov
MOV
MOV
MOV
MOV
Mov
TYPE
$PWKMG: . WORD

8I(
CLR

$ILLUP:

012

120

RTI
HALT

BR
$SAVRG: ¢
$POWER: ASCIZ
.EVEN

HSILLUP,QW#PWRVEC

;,SET FOR FAST

COWN

$SAVR6,SP
$SAVR6

JsGET SP
J:WAIT LOOP FOR THE

. :0F

(SP)+,RS
(SP)+ R4

;:POP STACK
;:POP STACK

$SAVR6G

(SP)+,aSwWR
(SP)+,R3

JJWAIT FOR THE INC

ITY

WORD

;2POP STACK INTO aSwWR
INTO RS
INTO R4

;;POP STACK INTO R3

(SP)+ R2
;:POP STACK INTO RZ
(SP)+ R1
::POP STA(CK INTO RI
(SP)+ R0
;.POP STACK INTO R)
NSPWRDN
, A#PWRVEC ;.SET 9P THE POWER DOWN VECTOR
#340,3#PWRVEC+2 ;:PRIO:
JREPORT

THE POWER FAILURE

$POWER
#20,2(SP)

;;POWER FAIL MESSAGE POINTER
:.CLEAR "T'' BIT

;s THE POWER UP SEQUENCE WAS STARTED
;; BEFORE THE POWER DOWN WAS COMPLETE

$IBIT

<15><12>' POWER""

;:CLEAR THE ''T'' BIT FLAG

; sPUT

THE SP HERE

CZRMTBO RMOS/3/2 DR CMPT TST
MACRO Vv04.00
BINARY TO OCTAL (ASCi]) AND TYPE

4-~APR-81

J
1B:12:15 PAGE

8
16
SEQ 0100

.SBTTL

BINARY

TO OCTAL

(ASCiI])

AND

TYRE

tlt'ttlt"t.".'.""ttt.i'fifit'ttt.ttfitttQtttt‘ FANEAARNAANAANRER S

'THIS ROUTINE

IS USED

TO CHANGE A 16-BiT BINARY NUMSER

TO A A-DIGIT

s#0CTAL (ASCII) NUMBER AND TYPE [T,
:*%LEEOS---ENTER HERE TO SETUP SUPFRESS ZEROS AND NUMBEP OF
X

DIGITS TO TYPE

I
o

MOV
TYPQS

NUM, - (SP)

.BYTE

BYTE

;NUMBER TO BE TYPED
;sCALL FOR TYPEOUT

’

::N=1

;:M=1T

TO 6 FOR NUMBER OF DIGITS TO TYPE

0RO

::1=TYPE LEADING ZEROS

:‘

;0=SUPPRESS LEADING ZEROS

:*$TYPON=--=ENTER HERE

;*$TYPOS OR STYPOC
:'CALL:

A
o

MOV

TYPON

TO TYPE

NUM, -(SP)

NUT WITH THE

SAME

PARAMETERS AS

THE LAST

JsNUMBER TO BE TYPED
;;CALL

FOR

TYPEOUT

:‘ELIEOC---ENTER HERE FOR TYPECUT OF A 16 BIT NUMBER
.*

MOV

NUM,~(SP)

$TYPOS:

MOV
MovB

3(SP) ,~(SP)
1(SP) ,$OF ILL

025570
025574
025602
025606
025612
025614
025622
025630
025636
025640
025642
025644

025650
025652
025656

025662
025666
025672

025674
025676
025700
025702
025704
025706
025710
325712
025716
025720
025724
025726
025730
025732

017646
116637
112637
062716
000406
112737
112737
112737
010346
010446
010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105

010503
006103
105337
100016

042703
001002
005704
001403
005204

000000
000001
026015
000002
000001
000006
000005

026013

026013
026015
026012

MOVB
ADD

B8R

$TYPOC: MOVB
MOVB
$TYPON: MOVB

2%:

3%:

4%:

::PICKUP THE MODE
;cLOAD ZERO FILL SWITCH

;;NUMBER OF DIGITS 10 TYPE
. ;ADJUST RETURN ADDRESS

R4 ,~(SP,

;:SAVE R4

ngZB

;2"005*1.R4

R3,~-(SP)

RS5.,-(SP)

ADD

#6,.R4

MOV
(LR

12(SP) RS
R3

ROL

BR
ROL

ROL
ROL
MOV
ROL
DECB

BPL
BIC
BNE

177770

TYPEOUT

MoV

MOVB
MOVB
1%:

$TYPON

FOR

;:SET THE ZERO FILL SWITCH
s:SET FOR SIX(6) DIGITS
:sSET THE ITERATION COUNT

MOV

000006
026014
026013
00012

(SP)+,$SOMODE+1
#2,(SP)

JJNUMBER TO BE TYPED

. sCALL

#1,80FILL
#6,30MODE +1
#5,80CNT

MOV

026015

026014

TYPOC

TST
BEQ
INC

;:SAVE R3
;2SAVE RS
;:GET

THE NUMBER OF

DIGITS

J:SUBTRACT IT FOR MAX. ALLOWED

R4, SOMODE
$OFILL R4

;:SAVE IT FOR USE
;oGET THE ZERQ FILL SWITCH

;;ROTATE MSB INTO *'C*’

3s
RS

RS
RS
R5.R3
R3
$OMODE

7%
#177770,R3
48
R4
5%
R4

TO TYPE

2:PICKUP THE INPUT NUMBER
. sCLEAR THE OUTPUT WORD
.. GO0 DO MSB
;sFORM THIS DIGIT

;2GET LSB OF THIS DIGIT
;sTYPE THIS DIGIT?
;s.BR IF NO

;.GET RID OF JUNK
;2TEST FOR O

2 :SUPPRESS THIS 0?
;sBR [F YES
;.DON'T

SUPPRESS ANYMORE

Q'S

025734
025740
025744
025750
025754
025760
0e5762
025764
025766
025770
025772
025774
025776
026004

026006
026010
026011
26012
026013

G26014

052703
052703
110337
104401
105337

003347

002402
005204
000744
012605
012604
012603

016666
012616
000002
000
000
000
000
000000

000060
000040
026010
02601C
026012

4-APR-81

5%:

7%:

6%:
0000G2

000004

8%:
$OCNT:
$OFILL:
$OMODE:

K
18:12:15 PAGE

8
16-1

SEa 0101

8IS
8IS
MOVB
TYPE
DECB
BGT
BLT
INC
BR
MOV

#'0,R3
X'
R3

MOV
MOV

2(SP) S4(SP)

BYTE
.BYTE
.BYTE
.BYTE

[elolele]e]

(7RMTBO RMOS5/372 DR (MPT TST
MACRO v04.00
BINARY TO OCTAL (ASCID) AND TYPE

MOV

RTI

.WORD

R3,8$
,8%

$0CNT
28

68
R4

pé3

(52)+,R5
(SP)
+ R4,
(SP)+_R3

(SP)+. (SP)

;JMAKE THIS DIGIT ASCI1I
JJMAKE ASCI] IF NOT ALREADY

::SAVE FOR TYPING

:.G0 TYPE THIS DIGIT
;s COUNT BY 1
;.BR IF MORE TO DO
;.BR IF DONE
;. INSURE LAST DIGIT ISN'T A BLANK
;:G0 DO THE LAST DIGIT
;;RESTORE RS
JJRESTORE R4

;RESTORE R3
;;SET THE STACK FOR RETURNING
; sRETURN
;.STORAGE FOR ASCII DIGIT
;. TERMINATOR FOR TYPE ROUTINE
;;0CTAL DIGIT COUNTER
;;ZERQ FILL SWITCH
:;NUMBER OF DIGITS TO TYPE

)89

(ZRMTBO RMOS/3/2 DR (MPT

CONVERT BINARY

10 DECIMAL

TST

ANC

MACRO v04.00
TYPE ROUTINE

4-APR-81

LSBTTL
AR AN R

18:12:15 PAGE

SEQ J10.
CONVERT BINARY
R AR RN NN RN

tTHIS ROUTINE

IS USED

s*SIGNED DECIMAL

TO DECIMAL AND TYPE ROUTINE
TR

RN AN AN RN RN N AANNNA A AN AANAN RN RO ANANTNAT NS

TO CHANGE A

(ASCII)

16-BIT BINARY NUMBER TO A S5-DIGIT
IT, DEPENDING ON WHETHER THE

NUMBER AND TYPE

:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;*REPLACED WITH SPACES.

J«CALL:
o
I

026016
026016
026020
026022
026024
26026
026030
26034
026040
026042
020044
026052
026054
026060
026064
026066
026072
026074
026076
026100
026102
026104
026106
026110
026112
026114
026116
026120
026126
026132
026136
026140
026142
026146
026150
026152

026154
026156
026160
026162
026170
026172
026174
026176
026200

019046
010146
010246
010346
010546
012746
016605
100004

005405
112766
005000
0127C3
112723
0C65002
016001
160105
002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663
052702
052702
110223
005720

020027
002746
003002
010502
000764
105726
100003
116663

105013
012605
012603
012602
012601

$TYPDS:

020200
000020
000055

000001

026232
000040

1%:

2s:

026222

3s:

4%:

5%:
000001
000060
000040

177777

6%:
7%:

000010

8%:
177777

177776

9% :

MOV
TYPDS

= (SP)
NUM,

;.PUT THE BINARY NUMBELR ON THE STA(CK
;.60 TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV
MOV

RO, ~(SP)
R1.-(SP)
R2.~-(SP)
R3.~(SP)
R5,=(SP)
#20200,
- (SP)

;. .PUSH RO ON STA(K

MOV
BPL
NEG
MOVB
CLR
MOV
MOVB

(LR

MOV

SUB
BLT
INC
BR
ADD

20(SP) RS

1$
RS

#'=,1(SP)

RO
#SDBLK ,R3

# (RS

R2
$DTBL (RO) ,R1
R1,RS

MOV
MOV
MOV
MOV

;PUSH R3 ON STACK
;:PUSH RS ON STACK

;:SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
;:BR IF INPUT IS POS.
;:MAKE THE BINARY NUMBER POS.
JJMAKE THE ASCII NUMBER NEG.
;s ZERO THE CONSTAMTS INDEX
::SETUP THE OUTPUT POINTER
J:SET THE FIRST CHARACTER TO A BLANK
;:CLEAR THE B(CD NUMBER
;sGET THE CONSTANT
;FORM THIS BCD DIGIT

;:BR IF DONE
;s INCREASE THE BCD DIGIT BY 1
;;ADD BACK THE CONSTANT
;:CHECK IF BCD DIGIT=0
JJCALL THROUGH I O
c:STILL DOING LEADING 0°S?
;:BR IF YES

TST
BNE
TSI8

BM]
ASLA
8CC
Movs
BIS
8IS
MOVR
TST
(MP
BLT
BGT
MOY
B8R
1ST8
BPL
MOVB
(LRB

;sPUSH R1 ON STACK
;:PUSH R2 ON STACK

. sMSD?

;:BR IF NO
J3YES~-SET THE SIGN

< :MAKE THE B8CD DIGIT ASCIlI

(SP)+

12
-1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP)+,R2
(SP)+ ,R1

;sMAKE IT A SPACE IF NOT ALREADY A DIGIT
J+sPUT THIS CHARACTER IN THE OQUTPUT BUFFER
T
ING
2 ¢ JUST INCREMEN
INDEX
TABLE
THE
JsCHECK
DIGIT
NEXT
::GO DO THE
;G0 TO EXIT
J3GET THE LSD
;G0 CHANGE TO aSCl!
JJWAS THE LSD THE FIRST NON-ZERO?
::BR [F NQ

.,VES--SET THE SIGN FOR TYPING
::SET THE TERMINATOR

JsPOP STACK
;:POP STACK
;:POP STACK
;:POP STACK

INTO RS
INTO R3
INTO R?
INTO R1

CZRMTBO RMOS/3/2 DR (MPT

CONVERT

BINARY

TO DECIMAL

026202
026204
026210
026216
026220
026222
026224
0c6226
026230
026232

012600
104401
016666
012616
000002
023420
001750
000144
000012

TST

AND

(26232
000002

MACRO v04.00

TYPE

ROUTINE

4-APR-81

SEQ 0103
MOV

(SP)+,RO

::POP STACK

MOV

5(SP),4(SP)

STADJUST THE STACK

TYPE

000004

$DTRL:

$DBLK:

M
8
18:12:15 PAGE 17-1

MOV
RTI
10000.
1000.
100.
10.
BlKkW

$DBLK

(SP)+. (SP)

TINOW

TYPE

INTO RO

THE

NUMBER

;:RETURN TO USER

INPUT

ROUTINE

MACRO v04.00

4-APR-87

N
8
18:12:15 PAGE 18

SEQ 0104
.SBTTL

TTY

INPUT

ROUTINE

':t't.".'.‘.tt.t.tt"'"'Q.Qtt&tttt'.tfit.tittt't'ttfil'ttttttt"t

- ENABL

LSB

::t'tt.'t..t‘tttttfitt'tittt'fittt.fit'fifi"flflttt'ttt'ttttt'tt.tt'ttt

;*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.

s*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
s*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP (ALL

026242
026250
026252
026256
026260
026264
026270
026274
026276
026304

022737
001074
105777
100071
117746

042716
022726
001062

000176

001154

; *WHEN OPERATING IN TTY FLAG MODE.
#SWREG, SWR
cMp
s21.

$CKSWR:

152702

152676
177630
000007

123727
001456

001150

104401
104401

026661
026666
000176

026324
026330
026332
026334
026340

104401
005046
005046
105777
100375

026677

026342
026346

117746
042716

152614
177600

026352
026356
026360
026364
026370

021627
001005
104401
062706

000025

:
9%

026654
000006

20%:

026372
026376
026400
026404
026406
026414
026420
026424
026432
026434
026442
026444
026450
026454

021627
001022
005766
001403
016677
062706

000015

10%:

026306
026312

026316
026322

013746
104402

000001

152620

BNE
T1STB
B8PL
MovB
BIC
CMP
BNE
(MPB
BEQ

19%:

TYPE
TYPE
MOV
TYPOC
TYPE
CLR

7$:

1518

$GTSWR:

15$
a$TKS
158
as$TKB,~(SP)

# C177,(SP)
#7.(SP)+
15$
,
$SAUTOB#1
15$

THE SOFT~SWR SELECTED?
;«BRANCH [F NO
;s CHAR THERZ?

;;1F NO, DON'T WAIT AROUND
;s SAVE THE CHAR
2:STRIP=0FF

THE ASCII

;oIS IT A CONTROL G?

;iNO, RETUNN TO USER

;.ARE WE RUNNING IN AUTO-MODE?

. cBRANCH IF YES

.SCNTLG
» SMSWR

;cECHO THE CONTROL-G (*G)

.SMNEW

s sPROMPT FOR NEW >wWR

SWREG,
- (SP)

;:TYPE CURRENT CONTENTS

.. SAVE SWREG FOR TYPEOUT
;:GO TYPE--OCTAL ASCII(ALL DIGITS)

~(SP)
=(SP)

BPL

asTkS
78

;s CLEAR COUNTER
;s THE NEW SWR
;:CHAR THERE?
IF NOT TRY AGAIN
;s

MovBe

a$TKB, ~(SP)

KAC177,(SP)

;+PICK UP (HAR
:MAKE IT 7-BIT ASCII

(Mp
BNE

(SP) ,#25
108

1S 1T A CONTROL-U?
. sBRANCH IF NOT

CLR

BIC

001003
012777
000002
004737
021627
002420

000001

000100

152516

025010

000060

LS —

152540

000002
000006
001207
00115

L X

104401
123727

000004
-—

000757

TYPE
ADD

LSCNTLU

(Mp
BNE
TST
BEQ

MoV
ADD
TYPE
(MPR
MoV
RT]
JSR
{Mp
BLT

;:YES, ECHO CONTROL-U (*U)
. s IGNORE PREVIOUS INPUT

;;LET'S TRY IT AGAIN

B8R

BNE

—

TTY

1ST

o~
L2

)91

CZRMTBO RMOS/3/2 DR (MPT

]
SP)
$
(SP) ,aSwR

#1
$INTAG,
15%

#100,a8$7KS
PC,S$TYPEC

(SP), #60

18%

oIS IT A <CR>?
;JBRANCH [IF NO
::YES, IS IT THE FIRST (HAR?
:;BRANCH IF YES
;s SAVE NEW SWR

s CLEAR UP STACK
:ECHO <CR> AND <LF>
::RE-ENABLE TTY KBD INTERRUPTS®
; sRRANCH [F NOT
;JRE~ENABLE TTY kBD INTERRUPTS

s JRETURN

;.ECHO CHAR

J:CHAR < 0?

;JBRANCH IF YES

TIRMTHO AMOS/3/2 DR (MPT TST
INPUT

ROUT INE

026456
026462
026464
026470

026474

C2647¢
026500
026502
026504
026510
026514
026514
026522

4-APR-81

18:12:15 PAGE

18-1

SEG 0105

021627
003015
042726
005766
001403

006316
006316
006316

005266
056616
000707
104401
000720

G00267

(P
8GT

000060
000002

B8I(

#60,(SP)+

8EQ

178

ASL

000002

17%:

001206

18%:

177776

.DSABL

(SP) ,#67
18%

ASL
ASL
INC
BIS

BR
TYPE
BR
LSB

J:(HAR > 7?

2(SP)
(5P)

(SP)
(SP)
2(SP)
., (5P)
=2.SP)

78
. SQUES
20%

:sBRANCH [F YES
;;STRIP-OFF ASCl1
;:1S THIS THE FIRST (HAR
;cBRANCH IF YES
J;NO, SHIFT PRESENT
ce
os

(HAR OVER TO MAKE
ROOM FOR NEW ONE.
;sKEEP COUNT OF CHAR
::SET IN NEW CHAR
:sGET THE NEXT ONE
2o TYPE

2<CRO<LF>

2 :SIMULATE CONTROL=-U

""Qttttt'fitttlt*ttflt"Qt""tt'.lttt.tt.tttfi*tt!t'tt.t'.tl't"'.t'

:*THIS

s+CALL:

i
I

ROUTINE

WILL

INPUT

A SINGLE

026524
026526
026534
026540

026542
026550
026556
02¢.564
026566
026572

026574
026600
026604
026610

026612
026614
026622
026624
026632
026634
026642
026644
026652
026654
026661
026666
026677

1646
6666

05777

100375
117766
042766
026627
001013
105777
100375
117246

042716
022627
001366
000750
026627
001744
026627
002407
026627
003003
042766
000002
136
136
015
040

000004
152420

000002

152414
177600
000004

000004

SRDCHR:
1%:

000004

000023

152366

2%:

152362
177600

000004

000021

000004

000140

000004

000175

000040

000004

125
107
012
040

015
015
123

116

3$:

THE

TTY

MOV

. .PUSH DOWN THE PC
;:SAVE THE PS
s sWAIT fOR
. sA CHARACTER
J;READ THE TTY
;:GET RID OF JUNK [F ANY
;1S IT A CONTROL~-S?
;BRANCH IF NO
;:WAIT FOR A CHARACTER
;:LOOP UNTIL ITS THERE
;:GET CHARACTER
;cMAKE IT 7-BIT ASCII
:21S IT A CONTROL-Q?
1F NOT DISCARD IT
;o
. :YES, RESUME
;1S IT A RANDOM XON?
;;BRANCH IF YES

MoV

(SP) ,=(SP)

4(SP),2(SP)

TSTB

a$TKS

BIC

#AC<177>.4(SP)

BPL
MOVB

cMP
BNE
TSTB
BPL
MOVB

cMP
BNE
BR
e
BEQ

cMP

BLT

4%:

cMP
BGT
BIC
RTI]

SMNEW:

.ASCIZ

SCNTLU:
S$CNTLG:
SMSWR:

FROM

;o INPUT A SINGLE CHARACTER FROM THE
;s CHARACTER IS ON THE STA(CK
;:WITH PARITY BIT STRIPPED OFF

.BIC

"00021

CHARACTER

RDCHR
RETURN HERE

—

TTY

MACRO v%.00

.ASCIZ
.ASCIZ
L_ASCIZ

1s
a$TKB,4(SP)

4(SP) ,#23%
3s
a$TksS
2$
3$TKB,~(SP)

#-C177.(SP)

(SP)+, 421
28
1$
4(SP) ,#SXON
1$
4(SP) ,#140
43
4(SP) #4175
43
#40,4 (SP)

/~u/<15><12>
/~G/<15><12>
<15><12>/SWR = /

NEW = /

;IS IT UPPER CASE?
; ;BRANCH IF YES
;oIS IT A SPECIAL CHAR?
;:BRANCH IF YES
;sMAKE [T UPPER CASE
;G0 BACK TO USER
s+ CONTROL "V’
;;CONTROL *''G""

TTY

CZRMIBO RMOS/3/2 DR (MPT
AND RESTORE

PO-RS5 ROUTINES

MATRO v04.00

4-APR-81

c9
18:12:15 PAGE 19

SEQ 01C6
CSBTTL
N TR

SAVE

A AR R AR

AND RESTORE RO-R5 ROUTINES

N N AN A NN N T R O R P RN L N AN AN N R AN N NN RN NN AN

C R ANANN ORI ARARTRNAS

;*SAVE RO-~-RS

;*CALL:
;e

SAVREG

:*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
;«TOP~==(+16)
;v #2-~=(+18)
;%

+4=--R5

+6===R4

:* +8---R3

;*+10~~-=R?2
;x+12---R1
;*¢14---R0

026710
026710
C26712
026714
026716
026720
026722
026724
026730
026734
026740
026744

010046
010146
010246
010346
010446
010546
016646
016646
0166456
016646
000002

$SAVREG:

000022
000022

00022

000022

MOV
MCV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

RO,~(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
R4 ,-(SP)
R5,=(SP)

22(SP) ,--(SP)
22(SP) ,-{SP)
22(SP) ,-(SP)
22(SP) ,-(SP)

;;PUSH RO
;:PUSH R1

::PUSH R2
::PUSH R3

2 ;PUSH R4

;. :PUSH RS

222222

SAVE

TST

;:SAVE PS OF

;2SAVE P(C OF
;:SAVE PS OF
< :SAVE P( OFf

STACK
STACK
STACK
STA(CK
STACK
STACK
MAIN FLOW
MAIN FLOW
CALL
CALL

;*RESTORE RO-R5

026746
026746
026752
026756
026762
026766
026770
026772

026774
026776
027000
027002

s*CALL:
RESREG
i*

012666
012666
012656
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

$RESREG:

MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV

RTI

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+ RS

. sRESTORE PC OF CALL
. ;RESTORE PS OF CALL
. ;RESTORE PC OF MAIN FLOW

(SP;+ ,R3
(SP)+,R2
(SP)+,R1

s sPOP
;;POP
. :POP
. .POP

(SP)
+ ,Ré

(SP)+,R0

;;RESTORE PS OF MAIN FLOW
;:POP STACK INTO RS
;sPOP STACK INTO R4

STACK
STACK
STACK
STACK

INTO R3
INTO R?2
INTO R1
INTO RO

CZRMTBO RMOS/3/2 DR (MPT

DOUBI€ LENGTH BINARY

TST

MACRO v04.00

TO DECIMAL ASCI]

4&-APR-81

CONVERT ROUTINE

.SBTTL

DOUBLE

D
9
18:12:15 PAGE 20
SEQ 01,

LENGTH BINARY TO DECIMAL ASCII

CONVERT ROUTINE

d .'t.tttt'tt.tt'tt.""t"'.ttl"" AR RS AR 2R

$*THIS ROUTINE

;*DECIMAL

WILL

(ASCII)

$*POSITIVE.

s«CALL
1B]

.o %

027004
027006
027012
027016
027022
027024
627026
027034
027040
027044
027046
027050
027052
027054
027056
027060
027062
027064
027066
027070
027072
027076
027100
027102
027104
027106
027110
027112
027114
027116
027120
027122
027124
027126
027130
027132
027134
027136

027140
027142
027144
027146
027150
027152

104412

016602
012700
010066
012201
012202
012757
012704
012705
005003

$DB2D:

000002
027164
000002

000012
027114
027116

MOV

JSR
RETURN

SAVREG

MOV
Mov

MOV
MOV
MOV
MOV
MOV
MOV

027102

CONVERT A 32-8IT BINARY NUMBER TO AN UNS IGNED
THE SIGN OF THE BINARY NUMBER MUST BE

NUMBER.

#PNTR,~(SP)

PC.a#$0B2D

;;POINTER TO LOW WORD OF BINARY NUMBEK
;. THE

FIRST

ADDRESS OF

;215 ON THE STACK

2(SP) ,R2

#$DECVL
RO

RO,2(cP)
(R2)
+ ,R1
{R2)+,R2

#10.,49
#STNPWR
R4
#STNFUWR+2,RS

. SAVE REGISTERS
;;PICKUP THE DATA POINTER
;.GET ADDRESS OF “‘SDECVL' STRING

;;PUT ADDRESS OF ASCIZ STRING ON STACK

;.PICKUP THE BINARY NUMBER

;;SET UP TO DO 10 CONVERSIONS
: ;ADDRFESS OF TEN POWER

161401

:2CLEAR PARTIAL
;sSUBTRACT TEN POWER

161502
002492

;:BR IF

005602

005203
000772
062401
005502
062402
022525
052703
110320

005327
000000
001357

145000

035632

160400

002765
113200
000230
041100
000017
103240

000001
023420
000000
001750
000000
000144
000000

TEN POWER TO LARGF

;:ADD 1 TO PARTIAL

3%:

(R4)+,R1
R2
(R4) +,R2
(RS)+,(R5)+

#'0.7%

000050
4%:

105020
104413

€00207

ASCIZ

R3,(RO)+
(PC)+
0
1}

+
(RO)

$TNPWR:

;.LOOP
;sRESTORE SUBTRACTED VALUE
;:MOVE TO NEXT TEN POWER
.. CHANGE PARTIAL TO ASCII
;JSAVE

;.DONE?

;:BR IF NO
; : TERMINATOR
;2RESTORE REGISTERS
. :RETURN

::1.0€E09

::1.0€08
;:1.0€07
::1.0E06
;:1.0E05
231.0E04

2:1.0€E03
::1.0€02

(IRMTBG RMOS/3/2 DR (MPT

DOUBLE

LENGTH BINARY

027154
027156
027160
027162
1’7164

TST

TO DECIMAL

J000*2
000000
000001
000000

MACRO v04.00
ASCII

C(ONVERT

4-APR-81

ROUTINE

$DECVL:

12
0
1
0
.BLkB

9
E
18:12:15 PAGE 20-1

SEQ 0108

;21,0800
;:1.0E00
12,

;cRESERVE

STORAGE FOR ASCIZ STRING

“JRMTBO RMQS5/3/2 DR (MPT

DOUBLE

_ENGTH BINARY

TST

TO OCTAL

MACRO v04.00

ASCI]

CONVERT

4-APR-87

ROUTINE

.SBTTL

18:12:15 PAGE

DOUBLE LENGTH BINARY

SEQ 0109

TO OCTAL

ASCII

CONVERT RCUTINE

:.'......'QQ'QQ".""'."t.'tt'.'Qttt'!!t"ttttttt.tttt!tt'tt".t

J*THIS ROUTINE WilLL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN
J*UNSIGNED OCTAL AS(CIZ NUMBER.

swCALL

MOV

RE TURN

$DB20:

SAVREG
MOV
MOV
MOV

-w

027200
027202
027206
027212

027216

027222
027224
027226
£27230
027232
027234
027236
0272640
0272642
027244
027250
027252
027254

027256

104412
016601
012705
012704

012703

(12100
012101
005002
110245
010002
005304
003007
001405
005205
010566
104413
000207

006000
006001
006000
006001
006000

0272764
027300
027302

062702
000753

040302

MOV

177770

1%:

000002

006203
006001

027260
027262
027264
027266
027270

027272

000002
027317
000014

2$:
38

000260

JSR

MOV
MOV
(LR
MOvR
MOV
DEC
BG”
BEQ
INC
MOV
RESREG
RTS

ASR
ROR

ROR
ROR
ROR
ROR
ROR

8l1(C

ADD
BR
$0CTvL: .BLKB

A#PNTR,-(SP)
PC,a#$DB20

2(SP) R
#80CTVL+*13.,RS
#2. R4

#~C7.R3

(R1+,R0
(R1)+,R1
R2
R2,=(RS)
RO.R?
Ré
38
2$
RS
RS,2(5P)

P(
R3

;cPOINTER 10 LOW WORD OF BINARY NUMBER
;. CALL

THE ROUTINE

$2THE ADDRESS OF

THE

FIRST ASCIZ (HAR.

22SAVE ALL REGISTERS
;:PICKUP THE POINTER TO _OW4 WORD
;;POINTER TO DATA TABLE
;:D0 ELEVEN CHARA(TERS

L IMASK

; ;LOWER WORD
:sHIGH WORD
;. TERMINATOR
. sPUT (HARACLTER IN DATA TABLE
;sGET THIS DIGIT
:2COUNT THIS CHARA(TER
;:BR IF NOT THE LAST DIGIT
(:BR IF IT IS THE LAST DIGIT
;:ALL DIGITS DONE-ADJUST POINTER FOR FIRST
;:ASCIZ CHAR, £ PUT [T ON THE >TACK
2sRES JRE ALL REGISTERS
JsRETURN TO USER

;;POSITION THE MASK FOR THE LAST DIGIT
;:POSITION THE BINARY NUMBER FOR

R3 _RZ2

J:MASK OQUT ALL JUNK

RO
R
RO
R1
RO

#°'0,R2
18
14,

1S ON THE

THE NEXT OCTAL DIGIT

:IMAKE THIS (HAR. ASCII
;:G0 PUT IT IN THE DATA TABLE
; :RESERVE DATA TABLE

STACK

TIRMIBO RMOS5/3/72 DR “MPT

>C0PE

HANDLER ROU” INE

157

MATRO v04.00

&-APR-B1

S
6
'8:12:15 PAGE 22

SEQ 0110

.SBTTL
MR

SCOPE HANDLER RCUTINE

ALES RS

RARRS R

s*THIS ROUTINE

CONTROLS

THE

LOOPING OF

;*AND LQAD THE TEST NUMBCR(STSTAM)
;*AND LOAD THE ERROR FLAG (SERFLG)

J*THE

SWITCH OPTIONS PROVIDED BY

TeSWi4=1

LOOP ON TEST

t*SW09=1

LOUP ON ERROR

teSWl1=1

027320
027320
027322
07330
027332
027336

104407

032777
001402
000137

027336

000416

027340
027344
027352
027356
027362
027364
027366
27372
027374
027374
027402
027404
027412
027414
027420
027422
027430
027432
027436
027444
027452
027454
027462
027466
027470

013746
12737
005737
012637
000544
022626
012637

000406
012737
012716
000002
012637

027474
027502
027504
027512
027514
027522
027526
027532

022737
001430
032737
001424
042737
013746
017646
012737

000504

032777
001404
127737
001546
105737
001502

022737
001455
013746
012737
013737

$SCOPE:

040000

151624

027730

1$:

SCOPE

177060
000004

000004

CKSWR

#BIT14,a5WR

$OVER

B8EQ

151552

151544

001116

001117

000004
027454

177766

000004
024252

17,777

024252

027470
000004

wiLL

A2 R

INCREMENT

THIS ROUTINE ARE:

CODE

é$

FOR

THE

XOR

a#177060

B8R

$SVLAD

MOV

(SP) +.@#ERRVEC

#58 QMERRVEC

(SP)+ ,R#ERRVEC

(SP)+,(SP)+

IN SOF T-5WR

TESI>

TESTERAN#AN

;:1F RUNNING ON THE *XOR'* TESTER (MANGE
22THIS

:-SAVE

INSTRUCTION TO A 'NOP'* (NOP=240)

THE

CONTENTS OF

::SET FOR TIMEOUT

THE ERROR VECTOR

::TIME OUT ON XOR?

:-RESTORE

THE ERROR VECTOR

226G TO THE NEXT TEST

:;CLEAR THE STACK AFTER A TIME OUT

::RESTORE

THE ERROR VECTOR

S:LOOP ON THE PRESENT TEST

CODE FOR THE XOR TESTERMANAN

#21T08.aSWR

;:LO0P ON SPEC.

2005$

S:KICK AROUND ROUTINE IF SO

BEQ
(MPB
BEQ
TSTB
BEQ
(WP

2%
aSWR,STSTNM
$OVER
$ERFLG
3s
#-1,CPSAVE

MOV

ERRVEC,=(SP)

BEQ

FOR CHANGE

JeNO IF SW14=0

BIT

024252

::JUMP OVER SCOPE ROUTINE

S¥ERRVEC ,~(SP)

63 :;NARNEND OF

28:

22L00P ON PRESENT

MOV

B8R

000400

177777

MOV

SUBTESTS.

INMTO THE DISPLAY REG.(DISPLAY<7:0>)
INTO DISPLAY<15:08>

;:TEST

MOV

00004

;:SCOCE=]OT

BIT

$XTSTR: BR

027364

LOOP ON TEST IN SWR<7:0>

;MRRRNSTART

000004

R R R

INHIBIT ITERATIONS

:*SWO08=1
seCALL

TEST?

;sBR IF NO
T:ON THE RIGHT TEST?
SWR<7:0>
‘iBR [F YES
*ZHAS AN ERROR OCCURRED?
S:BR IF NO
SISEE IF TIMEOUT WAS PREVIOUSLY RECORDED
$:SAVE CONTENTS OF

ERROR VECTOR

MOV
ggv

#20008.ERRVEC
;85;26,CPSAVE

20008:

MoV

#=1,CPSAVE

;:SET CPU ERROR REGISTER TIMEOUT INDICATOR

20018:

MOV

(SP)+,ERRVEC

;:RESTORE CONTENTS OF ERROR VECTOR

(MP

#-1,CPSAVE

::SEE

#B]1T00,CPSAVE
2003$
#B1T00,177766

::SEE IF THE POWER MONITOR BIT IS ON
*:BRANCH TO CONTINUE ROUTINE IF CLEAR
::CLEAR THE BIT FGUND TO BE SET

#176,SwR

PiGET SOF TWARE SWR ADDRESS

z?y

177777

024252

000001

024252

000001
001154
000000
000176

177766

8I7
8EQ
BIC

001154

MOV

20028:

BEQ

MOV
MOV

#20018, (SP)

2005$

Swk, = (5P)
(SP),=(5P)

:-SETUP 'TRAP' RETURN ADDRESS
;sMOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

SiSETUP RETURN ADDRESS

IF CPSAVE HAS CPU ERR REG TIMEOQUT

*IBRANCH [F SO

*:SAVE
*:SAVE

SWR ADDRESS
SWR VALUE

INDICATION

(ZRMTBC RM0O5/3/2 DR (MPT
HANDLER ROUTINE

011677

151410

042777

01000

012676
012637

000000

123737
101015
032777
001404

00113

001117

001000

151352

001124

001122

105037

005037
000415
032777
001011
005737
001406
005237
023737
002024
012737
013737

105237
113737
011637

011637
005037
112737
013777
013716

000002
003720

001154

001117
001176

18:12:15 PAGE

004000

151320

001220
0631120
001176
000001
027744
001116
001116
001122
001124

001200
060001

001116
001122

2003%:

7%:

001120
001120

001176
001216

3%:

,aSWR

171169 ASWR

MOV
Mov

(SP)+,a(SP)
(SP)+.SWR

CMPB
BHI

$ERMAX
, SERFLG

BIT
BEQ

BR
CLRB

CLR
B8R

BIT
BNE
TST
BEQ
INC
CMP
BGE
1%:
MOV
Mov
$SVLAD: iNCB
MOVB
MOV
MOV

$OVER:

(SP)

BIC

EMT

A ¥

—

013737
000446

MOY

151402

N —
NN
O —a

1046177

4-APR-81

22-1

SEQ 011

-0
o

027540

027544
027552
027554
027560
027564
027564
027572
027574
027602
027604
027612
027614
027620
027624
027626
027634
627636
027642
27644
027650
027656
027660
027666
027674
027700
027706
027712
027716
027722
027730
027736
027742
027744

MACRO V04.0C

——

S{OPE

TST

CLR
MovB
MoV

MoV
RTI

SMXCNT: 2000.

3s
z?1709,aswa

$LPERR, SLPADR
SOVER
$ERFLG ,
$TIMES
1'$

#81T11,3SWR

:;GET CURRENT SWR VALLE
;;DON'T ALLOW LOOP ON ERROR ON THIS ERROR
ssCALL SPECIAL POWER FAIL BIT ERROR CALL
;;RESTORE

SWR TO ORIGINAL

;;RESTORE SWR ADDRESS
;;MAX,
;:BR

VALUE

ERRORS FOR THIS TEST OCCURRED?
NO

;.LOOP ON ERROR?
;:BR IF NO
;;SET LOOP ADDRESS TO LAST SCOPE
;. JERO THE ERROR FLAG
;;CLEAR THE NUMBER OF [TERA:{IONS TO MAKE
J;ESCAPE TO THE NEXT TEST
;o INHIBIT ITERATIONS?
..BR IF YES
IF

FIRST PASS OF PROGRAM
INHIBIT ITERATIONS

.,INCREMENT ITERATION COUNT
;. CHECK T/ NUMBER OF ITERATIONS MADE
;.BR IF MORE ITERATION REQUIRED
;SREINITIALIZE THE ITERATION COUNTER
;:SET NUMBER OfF JTERATIONS TO DO
;. COUNT TEST NUMBERS
;;SET TEST NUMBER IN APT MAILBOX
;. SAVE SCOPE LOOP ADDRESS
. :SAVE ERROR LOOP ADDRESS
;. CLEAR THE ESCAPE FROM ERROR ADDRESS
41, SERMAX
;sONLY ALLOW ONE(1) ERROR ON NEXT TEST
$TSTNM,
3D SPLAY ;:DISPLAY TEST NUMBER
$LPADR, (SP)
2 sFUDGE RETURN ADDRESS
;:FIXES PS

$ICNT
STIMES, $ICNT
$OVER
#1,$1CNT
SMXCNT, STIMES
$TSTNM
STSTNM STESTN
(SP) ,$LPADR
(SP) ,$LPERR
SESCAPE

JsMAX.

NUMBER OF

JTERATIONS

"JRMTBO RMOS/3/2 DR (MPT

ROUTINE

TO SIZE MEMORY

TST

MACRO v04.00

4-4aPR-81

.SBTTL

ROUTINE

I
18:72:15 PAGE

9
23

SEQ 01«

TO SIZE MEML .Y

'"..'t.l'tl".t'..""""'.tt'..'.'..tQ.tQ'.."lt'."t't...'.t"

;«CALL:

JSR

RE TURN

$SI12E:

MOV
MOV

PC,8SI1ZE

;=SLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION

027746
027750

010046
010146

027752
027756

013746
013746

027776

013746

027762
027770

000114
00011¢

012737
012737

000116
000002

030002
030006

013746
010600

000006

030010
€30012
030076
030024
030030
030032
030034
030036
030042
030044
030050
030054
030060
030064
030070
030072
030074
030076

104400
012637
012737
012701
005711
005721
C€00775
162701
010006
012537
012637
012637
012637
010137
012601
012600
000207
000000

000004

0C0006
030036
020000

000002
000006
000004
000116
000114
030076

000174
0C011¢

000004

MOV
MOV

MOV
MOV
MOV

RO,=(SP)
R1,=-(SP)
#1114 ,-(SP)
a¥116,~-(SP)
#116,a4114
#RT] ,a#116

a#ERRVE(C,~(SP)

;:SAVE RO ON THE © A(CK
;. SAVE R1 ON THE STA(CK

;s SAVE MEMORY ERROR VECTOR PS & PC
;. JGNORE PARITY ERRORS WHILE SIZING
;.SAVE PRESENT ERROR VECTOR PS & PC

MOV
SHERRVE(+2,-(SP)
MOV
SP,RO
;.SAVE THE STACK POINTER
;;SET THE ERRVEC PS TO THE PRESENT PS
“RAP
;:PUSH OLD PSW AND PC ON STACK
MOV
(SP)+ ¥ERRVE(C+?2
;:SAVE THE PSW IN Q#ERRVE(C+?2
MOV
#2% ,oNERRVE(
;oSET FOR TIMEOUT
MOV
#20000,R1
::FIRST ADDRESS
18:
TST
(R1)
;cTEST THIS ADDRESS
TST
(R1)+
;.STEP T0 NEXT ADDRESS
B8R
1%
;s TRY ANOTHER
2%:
SuUB
#2,R1
. :DROP BACK
MOV
RO,SP
;:RESTORE THE STACK
MOV
(SP)+ ,a#ERRVE(+2 ;.RESTORE ERROR VECTOK
MOV
(SP) + ,a#ERRVE(
MOV
(SP)+,a#116
JsRESTORE MEMORY ERROR VECTOR
MOV
(SP)+ a4
MOV
R1,SLSTAD
;sLAST ADDRESS
MOov
(SP)+ ,R1
;sRESTORE R1
MOV
(SP)+ RO
;cRESTORE RO
RTS
PC
$LSTAD: .WORD
O
;:CONTAINS THE LAST ADDRESS

CZRMTRBO RMOS5/3/2 DR (MPT

TRAP DECODER

TST

MACRO v04.00

.SBTTL
S

9
J
18:12:15 PAGE 24

4-APR-31

SEQ 0113

TRAP DECODER

R AR AR AN RN

NN NN

s*THIS ROUTINE

WILL

IR AN AN R AANN AN NN R AN NN RANAN NN ANARNNA

PICKUP THE

LOWER BYTE

THE

AR,

‘‘TRAP'' INSTRUCTION

J*AND USE IT TO INDEX THROUGH THE TRAF TABLE FOR THE STARTING ADDRESS
;*OF

THE DESIRED ROUIINE.

;*GO TO THAT ROUTINE.
030100
030192

010C46
016600

030170
030112
030114
030120

111000
006300
016000
000200

030106

005740

$TRAP:

000002

MOV
MOV

RO,=(SP)
2(5P) ,RO

MovBe
ASL
MoV
RTS

(RO ,RO
RO
$TRPAD(R0)
,RO
RO

1ST

030134

THEN USING THE ADDRESS OBTAINED

-(RQO)

IT WILL

3¢ SAVE RO
41GET TRAP ADDRESS

$$BACKUP BY 2

$2GET RIGHT BYTE OF TRAP
;:POSiTION FOR INDEXING
;. INDEX TO TABLE
;:GO TO ROUTINE

;sTHIS IS USE TO HANDLE THE “‘GETPRI'' MACRO
G30122
030124
030132

011646
016666
000002

000004

000002

$TRAP2: MOV
MOV
RTI
.SBTTL

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

;;MOVF THE PC DOWN
;;MOVE THE PSW DOWN
;;RESTORE THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

;%BY THE '‘TRAP'' INSTRUCTION.
:

030136

030122

030140
030142
030144
030146

025614
(25570
025630
026016

030136

024576

$TRPAD:

ROUTINE
.WORD

STRAP?

$TYPOC
$TYPOS
STYPON
$TYPDS

. .CALL=TYPOC
;:CALL=TYPOS
;;CALL=TYPON
. ;CALL=TYPDS

S$TYPE

;s CALL=TYPE

TRAP+1(104401)

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TYPE
TYPE
TYPE
TYPE

;;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

030150

026312

$GTSWR

030152
030154
30156
330160
030162
2 030164

026242
026524
(023150
026710
026746
(022366

$CKSWR ;; CALL=(CKSWR
SRDCHR ;; CALL=RDCHR
SRDLIN
;:CALL=RDLIN
$SAVREG ..CALL=SAVREG
$RESREG ; ; CALL=RESREG
$DSPLY
;:CALL=DISPLY

000032

$TERM=, -$TRPAD

TTY TYPEOUT ROUTINE

OCTAL NUMBER (WITH LEADING ZEROS)
OCTAL NUMBER (NO LEADING ZEROS)
OCTAL NUMBER (AS PER LAST CALL)
DECIMAL NUMBER (WITH SIGN)

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
TRAP+13(104413) RESTORE RO-RS5 ROUTINE
TRAP+14(104414) ROUTINE TO TYPE £ERROR Mc SSAGES

CZRMTBO RM0S/3/2 DR (MPT TST
SINGLE/DUAL PORT RH/RM DRIVER

MACRO V04.00
(REV 6.5) 1981

&-APP-81

NN S NN

.SBTTL

B b od b b ol

txnflunflvmflvma
CONOWVIES WA= O D00 NON VNN = O N0 00

sxwnnnxnnns

JMAYNARD, MA 01754

JAUTHOR(S): JIM LACEY/CHUCK HESS
JREVISED BY: MIKE LEAVITT
11-APR-80,

27-MAR-81

d 2

":tttttttfittfittttttttttttt'tttfititttttttttttttt'tttttt'ttttvt'ttt

;STORAGE FOR RMDS, RMER1, RMERZ2, AND RMMRZ2 ON AN ERROR ‘72"’

RMDS

sRMERRS

PIN) —

;RMERRS+Z = RMER1

JRMERRS+4 = RMERZ2
JRMERRS+6 = RMMR?
030166

000000

RMERRS:

0,0,0,0

INDICATORS (DRVA(CT=8 BYTES)

;DRVACT=0 IF DRIVE IS IDLE
;DRVACT>0 IF DRIVE IS ACTIVE WITH A COMMAND
;DRVACT<0 IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION

000

000
000
000
000
000
000
000

DRVACT:

.BYTE

BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE

:DRIVE 0

0
0
0
0
0
0
0

;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
:DRIVE

1
2
3
4
§
6
7

;TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES)
;DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT

;DRVSTA>0 IF DRIVE

40 030206
43 030207
030210
030211
030212
030213
030214
w“ 030215

.WORD

;TABLE OF DRIVE ACTIVE

wetxxtanwwe

sCOPYRIGHT (C) 1977,1981
;DIGITAL EQUIPMENT CORP.

35
36

1981

:10-MAR-78 THE SC, SC5 CHANGES
JNEW DRIVE TYPE ID FOR RMOS sawswnwwwnn

33 030177
020200
030201
030202
030203
030204
% 030205

(REV 6.5)

JNEW DRIVE TYPE ID FOR RMO2 sawnwasxwnn

30 030176

SEQ 0114

SINGLE/DUAL PORT RH/RM DRIVER

J10=AUG=77

21980

K
9
18:12:15 PAGE 25

IS ONLINE

;DRVSTA<O IF DRIVE IS UNSAFE
000
000
000
000
000
000
000
000

DRVSTA:
.

.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
:DRIVE

0
0
O
0
0
0

0
1
2
3
4
S
6
7

;TABLE OF DRIVE TYPES (DRVTYP=8 BYTES)

:DRVTYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO)
;DRVTYP=7 [F

;DRVTYP-5

DRIVE

IS RMQS

wawwxn

IS RMQ2 wawwnx

;DRVTYP=4 IF DRIVE IS RMQ3

)

CZRMTBO RMOS/3/2 DR (MPT TST
SINGLE/DUAL PORT RH/RM DRIVER

MACRO Vv04.00
(REV 6.5) 1981

4-APR-81

9
L
18:12:15 PAGE 25-1

;DRVTYP==1

52 030216
55 030217

030220
030221
030222
030223
030224

56 030225

000
000

000
000
000
000
000

000
000
0oc
000
000
000
000
000

000
000

;DRIVE 7

;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE

2
3
4
5
6

.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE

O
0
0
0
O
O

INITIALIZATION IS

IN PROGRESS

sDRIVE
;DRIVE
;DRIVE
;DRIVE
sDRIVE
;DRIVE
sDRIVE
:DRIVE

0
1
2
3
4
5
6
7

DPRQS:

.BYTE
BYIE

BYTE
BYTE
BYTE
.BYTE
.BYTE
BYTE

0
O

O
0
O
0
0
O

;DRIVE 0
;DRIVE 1

:DRIVE
JDRIVE
:DRIVE
;DRIVE
:DRIVE
:DRIVE

2
3
4
S
6
7

s TRANSFER WAIT FLAG (TRNSWT=1 WORD)
sTHIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF
;"DPB'* OF THE 1/G OPERATION.

000000

TRNSWT:

.WORD

;SEARCH WAIT KEYS (SRCHWT=1 WORD)
;THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF
;THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0
JREQUEST THAT 1S AT THE TOP OF THEIR REQUEST QUEUE.

;EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0.

000000

89
90
g;

32 030252

DPINT:

000
000
000
000
000
000

81
82
83
84

gg 030250

BYTE

0
0
O
O
0

;TABLE OF PENDING DUAL PORT REQUESTS
;DPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE
;DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE

75
76
;g

gg 030246

JDRIVE 0
;DRIVE 1

;DPINT<O JF

66
67
28

030240
030241
030242
030243
030244
24 030245

0
0

;TABLE OF DUAL PORT INITIALIZATION INDICATORS
;DPINT=0Q IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE

70 030236
73 030237

NOT RM05/3/?2

.BYTE
BYTE

.BYTE
BYTE
BYTE
BYTE
BYTE

000

57
58

61 030226
64 030227
030230
030231
030232
030233
030234
¢5 030235

DRVTYP:

SEG 0115

SRCHWT:

.WORD

JRM DRIVER ACTIVE FLAG (ACTDRV=1 BYTE)
;ACTDRV=0 IF DRIVER IS INACTIVE
;ACTDRV>0 IF DRIVER IS ACTIVE

000

ACTDRV:

.BYTE

CZRM1BO RM0OS/3/2 DR (MPT TST

PORT RH/RM DRIVER

95
96
97
98
99 030253
100
101
102
103

(REV 6.5)

1981

4-APR-81

;ACTSTR=Q IF
JACTSTR>0 IF

000

ACTSTR:

TIMER ROUTINE
TIMER ROUTINE

IS INACTIVE
S ACTJIVE

sJUNLOAD FLAG (ULDFLG=8 BYTES)
JULDFLG=Q IF NO UNLGAD COMMAND

JULDFLG>Q IF UNLOAD COMMAND [N PROGRESS
JULDFLG<O iF UNLOAD COMMAND IN WAIT QUZUE

000
000

ULDFLG:

000
000
000
000
000
000

.BYTE
BYTE
BYTE

BYTE
BYTE
BYTE
.BYTE
.BYTE

0
0
O

;DRIVE
;DRIVE
;DRIVE

O
0
0
0
O

;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE

;SAVE REGISTERS FLAG (SAVEFG =1 WORD)
sSAVEFG <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),

030264

000000

SAVEFG:

.WORD

sSEEK FLAG

AFTER AN ERROR.

(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

030266

177777

127

129
130 030270
133 030272
030274
030276

030300
030302
030304
030306

SEEKFG:

.WORD

-1

;TIMEOUT TABLE (TIMER=8 WORDS)
sTHIS TARLE CONTAINS THE TIME ALLOWED FOR AN OPERATION

128

SRSSBEURAR

.BYTE

SOF TWARE
SOF TWARE

177777
177777
177777
177777
177777
177777
177777
177777

TIMER:

.WORD

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

;DRIVE

-1
-1
-1
-1
-1
-1
~1

;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

NOWVISTM
W =O

Ombwr\_fif OVONONEWN—=O

d
b

b wd b

d wmd
d
b el o
d wd

N) = md ed Db Db

b w—b —
——d

e el

29128 1,81,¥7 N}

030256
030257
030260
030261
030262
030263

SEQ 0116

;SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE)

104

105
1n6 030254
109 030255

18:12:15 PAGE 25-2

NOWVISs
W
—=2O

SINGLE/DUAL

MACRD v04.00

;DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD)
;DTUWKO IF NO DATA TRANSFER UNDERWAY

;DTUW=+N (WHERE N=0 TO 7)

030310

177777

DTUW:

.WORD

-1

SATTENTION BITS TABLE
;THIS

IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

TABLE

(ATABIT=8 BYTES)

CONTAINS

JATTENTION BIT

THE

TORRESPONDING BIT

TO EACH DRIVES

C/RMTBO RMOS/3/2 DR (MPT TST
SINGLE/DUAL PORT RH.'RM DRIVER
144

145 030312
146 030313
147 030314

148 030315
149 030316
150 230317

151 030320
152 030321
153
154
155
156

}gg 030322

001
002
004
010
020
040
100
200

168

;?8 030332

.BYTE
BYTE
.BYTE

.BYTE
.BYTE
.BYTE

.BYTE
BYTE

000003

MCPEMX:

.WORD

JRMVEC

176700

000254
000005

000240

RMADR:

RMVEC:

.WORD

178

000012

RMDS

=12

180
181
182

000016
000020
000022

RMAS
RMLA
RMDB

000026
000030
000032
000034
000036
000040
000042
000044

RMDT
RMSN
RMOF
RMD(C
RMHR
RMMR?
RMERZ?
RMEC1

;g;

198
199

200
201
202
203
204
205
206
2C7

;DRIVE ¢
;DRIVE 3

40
100
200

;DRIVE 5
:DRIVE 6
;DRIVE 7

;DRIVE 1

:DRIVE 4

(MCPEMX=1 WORD)

3
(THE FIRST ADDRESS

(776700)

THE RH/RM),

(5)).

176700

254,5+32.

sMAXIMUM SEARCH gOR 170 WINDOW IS 5 SECTORS
MXWNDW: .WORD

=0
Z
= 4
- 6

184
185
186
187
188
189
190
191

4
10

SEQ 011/

(THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL

RMCS1
RMW(
RMBA
RMDA

'83

;:DRIVE 0

;STORAGE FOR RMADR

000000
000002
000004
000006

179

sCALLING IT FATAL

171
172
173
174
175
176

177

N9
18:12:15 PAGE 25-3

:NUMBER OF 'MASSBUS CONTROL PARITY ERRORS'' (MCPE) ALLOWED BEFORE

160

}2; C3032¢

4-APR-81

ATABIT:

159

161
162 030324

MACRO v04.00
(REV 6.5) 1981

(MXWNDW-1 WORD)

;DEFINITIONS OF THE RH/RM ADDRESS INDEXES

000010

000014

000024

000046

RM(S?2

RMERT1

RMMRT

RME(C2
.SBTTL

;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 0)
;WORD COUNT REGISTER (NOT A DRIVE REG)

JUNIBUS ADDRESS REGISTER (NOT A DRIVE REG)
;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 5)
;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
;DRIVE STATUS REGISTER (DRIVE REG 1)

= 10
- 14

;ERROR REGISTER #1

16
- 20
= 22

SJMAINTAINABILITY REGISTER (DRIVE REG.

26
30
32
34
36
40
42
44

JERROR REGISTER #2 (DRIVE REG. 15)
cECC POSITION REGISTER (DRIVE REG. 16)
17)
JECC PATTERN REGISTER (DRIVE R-G.

- 46

RH/RM DRIVER

INITIALIZATION CODE

THE PROPER STATE

JNOTE:
;
. CALL
;

FOR EA(CH DRIVE.

THIS ROUTINE CALLS DRVINT

JSR

PC,RMINIT

sDRIVE TYPE REGISTER (DRIVE REG. 6)
;SERIAL NUMBER REGISTER (DRIVE REG. 10)
;JOFFSET REGISTER (DRIVE REG. 11)
;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG.
;DUMMY ADDRESS REGISTER (DRIVE REG. 13)
sMAINTENANCE REGISTER #2

;THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE
JAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR
;TO

(DRIVE REG.

;LOOK AHEAD REGISTER (DRIVE REG. 7)
;DATA BUFFER REGISTER (NOT A DRIVE REG.)

= 24
=
=
=
=
-

(DRIVE REG. 2)

SJATTENTION SUMMARY PSEUDO REGISTER

12)

"IRMTIBC RMOS/3/2 DR CMPT TST
INITIALIZATION

SNOTE: THE °P° GR °L° CLOCX MUST GE STARTED
177776

000249

036012
030166
030266

RMINIT:
17777¢

~
QRILREL FRENG
RR o
SR E PR

SEPLERS 33 3333 RR2S 3 BLELLELE
o

99923993 53C)<3<3(3CD<D

VW NO NS NN

RE TURN

QOQO QOOOOOOOL

= O

810

18:°2:15 PAGE 25-¢

SEQ 0118

NILA VT N1 V1,V 1,V I W1 N1 V]
— e e
kb
PN =

4-~APR-8:

(ODE

RH/RM DRIVER

MACRO v06.0C

030472
030474
030500
030502
030506
030512
030516
030520
030524
030530
030532
030534
030536
030542
030544

030310

1727777

s ¥

030206

030210
030212
030214
030326
032762
030330
030324
€05000
030546

030206
177?770

005C*D
3$:
A ¥

b} ¥

000007
177776

030226

£$:

035446
030226

7%:

gs:

177776

SA/REG

MOy
mOv
JSR
MOV
MoV
{LR
{(mp
8.0
MOV

MOv

o
8,
8LCS
(LR
(LR
(LR
LR
MOV
MOV
MOV
MOyY
MOV
LR
JSR
B8R
B8R
{LRB

INC

BIC
B8NE
MOV
(LR
TSTR

3t0
JSR

1578

BNE
DEC
8P
MOy

RESREG
RTS

sSAVE RO - RS
;SAVE THE PRESENT PROCESSOR STATUS

PSS, =(5P?

C<§-32.>,PS

:CHANGE THE PRIORITY Y0 S
SCLEAR ALL REQUEST QUEUES

P, (LRQUE

SRMERRS
R

sFIRST ADDRESS

#S EXFGR?

(R1)e
R1_RZ
1%

R2
oD TN,

&=-1_(R1)e
R1.R2

sSET ALL DRIVES TO OFFLINE

DRVSTAe¢?

DRVSTA«4
DRVSTA+6
RMVEC R3

;SETUP THE RH/RM VE(TOR

#ISR, (R3)«

RMVECe+c, (R3)

:gLR.RH(SZ(Ré)
RO,DRVINT
43

5%
DRYSTA(RY)
R

(7 R1

DPINT(R1)
8$
P(,SET.IE
DPINT(RY)

(! EARED

;LOOP If NO

DRVSTA

4
,
RMADR

TO BE

sLAST ADDRESS TO BE CLEARED
< CLEAR
:ARE WE DONE’
:BR ]F NO
;LAST ADDRESS
JINITIALIZE
.DONE?

;FIRST ADDRESS OF RH/RM
sMASSBUS INIT
JSTART WITH DRIVE O

;INIT THE DRIVE

;'DVA® NOT SET OR PARITY ERROR

sNORMAL RETURN
cSET DRIVE STATUS TO OFFL INE
;G0 TO NEXT DRIVE
SMASK OUT UNUSED BITS
;BR IF MORE DRIVES TO GO
cSTART WITH DRIVE 7
;CLEAR THE PROCESSOR STATUS
SWAITING FOR DRIVE TO SWITCH PORTS ?
;BR NOT WAITING
;SET INTERRUPT
;DRIVE SWITCHED PORTS ?

3 ]

;BR IF NOT
;GO TO THE NEXT DRIVE
sCHECK NEXT DRIVE

;BYE-BYE

73
R1

(SP)+ ,PS

JRESTORE THE PROCESSOR STATUS

JRESTORE RO - R5

sDRIVE INITILIZATION ROUTINE
JTHIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF

;AN RMOS5/3/2. IF IT IS, A" READ-IN PRESET'’ IS ISSUED AND FMT16
;IS SET TO A "1°',

THEN MOL,

DPR, DRY, AND VvV ARE (HECKED 19D

SINSURE THEY ARE ALL ON A ‘1 ', AND DEPENDING ON THEIR STATE,

;DRYSTA
JCALL

‘

IS SET

TO THE PROPER CONDITION,

MOV

#DRVNUM_R1

MOv
JSR

RMADR R4
RG,DRVINT

;DRIVE NUMBER TO R1
;UNIBUS ADDRESS OF RH/RM (RM(S1)
;CALLED BY A JSR

CZRMTIBO RM0OS5/3/2 DR [(MPT TST
MACRO v04.0C
RH/RM DRIVER INITIALIZATION (CDE

265
266
267
268
269 030546
270 030550
271 030554
272

010546
*05061
105061
105061

275
276

032764
001403
004737
000520

278
279
280
281
282
283
284
285
286

287
288
289
290
291

292

293
294
295
296
297

112764

105061

03c764
001512
004037
000026
031056
012605
112761
022705
001431
022705
001426
112761

022705
001420
022705
001415

112761
022705
001407
022705
001404

030206
030216
03025
000010

00011
010000

DRy INT: MOV
CLRB

002000
000610

030206
004000

C00000

87
8EQ
JSR
B8R
i ¥

034756

(.RR

817
8EQ

JSR
RMDT

000004
020024

MOV
MOVB
(P

030216

BEQ
(mP
BEQ
MOVS
(mp
BEQ
e
8tgQ

024024
000005
020025

030c16

024025

00007
020027

030216

MOVB
(P

8EQ
4
8EC
MOv/B
BR

024027
177777

012746
004037
000000
031056
G12746

000121
035136

030276

2%:

SERROR OCCURRED (PARITY)
NORMAL RETURN

[o % RN

2283

—

o
~

PC,SET.IE

JNONEXISTENT

DRIVE?

“GO SET "IE'’ WITHOUT A ''TRE'
“LEAVF

THIS ROUTINE

DRYSTA{RY)
;SET DRIVE STATUS TO OFFLINE
#3711, RM(ST(RS)
.SEE IF DRIVE AVAILABLE
43
:BR ]f DRIVE NOT AVAILABLE
RO,RD.RM

JREAD

(SP)+ RS

;ERROR RETURN ADDRESS
;PUT DRIVE TYPE IN RS

#20024 RS

;SINGLE PORT RMO3

#4 ,DRVTYP(R1)

23
8246024 RS
2%

#5 ,DRVTYP(R1)
#20025.RS

it 3

#246025 RS
2%

#7 ,DRVTYP(R1)

820027 ,RS
2%

#246027 RS

THE

;SET RM0O3

DRIVE

TYPE

REG.

INDICATOR

:BR IF YES
;DUAL PORT RMQ3 ?
;BR IF YES

°?

JSET RMO2 IND]CATOR
;SINGLE PORT RMOZ2 7

:BR IF SO

;DUAL PORT RM(OZ ?
:BR ]JF SO
:SET RMOS

INDICATOR

:SINGLE PORT RMOS ?

JBR IF YES

;DUAL PORT RMOS5 2

JEXIT

MOV
JSR
RM(CS1

#121,-(SP)
RO, WRT_RM

:DO A "READ-IN PRESET"’

MOV
JSR
RMOF

#MIT12,~-(SP)
RO,WRT.RM

:SET FMTI16=1

RO,RD.RM

;READ RMDS

(SP) + RS
33

;AND SAVE IT IN RS
:BR IF ATA=0

RO,.RD.RM

JFIND OUT WHY ATA=1

RMDS

000016

MITI2,RM(S2(RG) NO
1%

STATUS AS OFFL INE

CLEAR 1 . DRIVE TYPE INDICATOR
;CLEAR THE UNLOAD fLAG
JSELECT A DRIVE
;DO A DRIVE CLEAR COMMAND (R SE1ZF DRIVE)

A 3

030312
034756

R1,RM(S2(R4)
#1717 RMCST(RS)

;SAVE RS

sSTART DRIVE

;BR IF

5%
JSR

034756

RS,~(SP)
DRYSTA(RY:
DRYTYP(R1)
ULDFLG(RY1)

010000
035136

NN
— OO0

(LRB
(LRB
MOV
MOVB

035446

112761
000446

NN —

AN LN LN NN AN N N AN AN N
POR)
—b =d ad & md cd b b b

310

SEQ 0119
RE TURN

010164

277

C10

'B:"2:!5 PAGE 25-¢

RE TURNS

273

274

4-APR-B81

MOV
BPL
MOvB

JSR

RMER?

#-1,DRVTYP(R1)

;SET

ATABIT(R1) ,RMAS(RG)

YES

INDICATOR

'OTHER®

JCLEAR ATTENTION BIT

CZRMTBO RM0O5/3/2 DR (MPT

RH/RM DRIVER

322
323
324
ggg

TST

INITIALIZATION CODE

031022
031026
031026
031034

006126
100004
112761
000407

327 037036
328 031040
329 031044
330 031046
231 031056
332 031056
g; 031060

005105
042705
001003
112761
005720
012605
000200

17?777

MALRC

&-APR-81

D10

18:12:15 PAGE

25-6
SEQ 012

030206
38:

167077
000001

v04.00

030206

48:
5%:

ROL
BPL
MOVB
BR

(SP)e
13
#-1 DRVSTA(RY)
X 3

(oM
8IC
BNE
MOVR
1St
MOV
RTS

RS
JCHECK MOL, DPR, DRY, AND VvV
#°C<BIT12!8]T08'RITO7! 81706> RS
43
:BR [F MOL, DPR DRY, OR vV IS CLEAR
#1 DRVSTA(R1)
:SET DRIVE STATUS 1O ONLINE
(RJ)+
;STEP OVER THE ERROR Rt TURN
(SP)+,RS
*RESTORE RS
RO
EXIT

1S 1T UNSAFE?
:BR IF NOT
;SET UNSAFE INDICATOR
JEXIT

[

ggg

:REQUEST PRE=-PROCESSOR=-MANDLES SUBSYSTEM REQUEST

337
338
339
340

;CALL
;
:
:

342

341

222

345 031062

013746

350 031106
351 031112
352 031114
353 031120
354 031124
355 031126
356 031132
357 031134
358 031140

005062
111201
013704
105767
003014
105761
001036
105761
001042

360 031146
361 031150
362 031154
363 031156
364 031162
365 0311664
366 031170
367 031174
368 031176

000434
105761
(003445
105761
001031
J10164
004037
000460
122762

370 031206
371 031214
372 031220
373 031222
374 031226
375 031230
376 031236
377 0312640
378 031246

112761
105761
001043
004737
000440
012762
000434
004737
000631

346
347
248
349

031066
031074
031102
0311064

359 031142

369 031204

13737
112737
104412
011002

004037

001003

177776

030330
000001

177776
030252

RMOS:

000016
030324
030206
030254
030226
030546

030206
030236

1%:

000010
036110
000103

000002

177777
030176

030254

2s:

032432

000G1¢

3%:
4%

RO, RMOS

RE TURN1

MOV

;CALL THE RMOS DRIVER
;ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK
JRETURN HERE

RE TURN2

QUEUE

IS FULL

JRETURN MERE IF REQUEST IS IN QUEUE OR THERE

;IS AN ERROR CONDITION
PS.,=(SP)

;SAVE THE CALLING STATUS

CLR
mOov8
MOV
TSTR
8GT
1ST8
BNE
TSI
8NE

(RO) R
16(R2)
(R2) R
RMADR , R4
DRVSTA(R1)
1%
ULDFLG(RY?
b1
DPINT(RY)
5%

JCLEAR THE STATUS/ERROR INDICATOR
;PICKUP THE DRIVE NUMBER
JUNIBUS ADDRESS OF RM(S1
;CHECK DRIVES STATUS
;BR IF ONLINE
JUNLOAD COMMAND IN QUEUE?
;BR ]F YES
;TRYING 10 INIT THE DRIVE
:BR IF YES

8R
1SIB
B8LE
7ST8
8NE
MOV
JSR
BR
(MPR

43
DRVSTA(R1)
63
DPRQS(R1)
5%
R1,RM(S2(R&)
RO .DRVQUE
98
#103,2(R2)

JERROR RETURN
;1S DRIVE STATUS ONLINE?
;BR IF NOT
JOUTSTAND
ING PORT REQUEST FOR THE DRIVE ?
:BR IF YES
:SELECT THE DRIVE
;JPUT THIS REQUEST IN QUEUE
cQUEUE IS FULL
;IS THIS REQ. FOR AN UNLOAD?

MOVB
1S18
BNE
JSR
BR
MGy
BR
JSR
8R

#-1,ULDFLG(RY)
:SET THE 'UNLOAD IN CJEUE'' FLAG
DRVACT(R1)
;1S THIS DRIVE ACTIVE?
8s
*BR IF YES
PC,OPT
;JCALL THE OPTIMIZER
8%
,
..
#MBITIS!BIT13,16(R2)
;SET THE "UNLOAD IN QUEUE''
ERROR FLAG
8$
SEXIT
PC,C17
;GO HANDLE THE PARITY ERROR
8%

MOV
MOVB
SAVREG
MOV

RMVE(+2,PS
#1 ,ACTDRY

JSR

RO,DRVINT

BNE

031354
120000

JSR
PNTADR

JDON'T ALLOW ANY RM INTERRUPTS
JSET "ACTIVE DRIVER'' FLAG
;SAVE RO - RS
;PICKUP THE DRIVE PARAMETER BLOCK POINTER

;GO IN]T,

‘BR IF NO,

THE DRIVE

CIRMTBO RMQS/3/2 DR rwPT

RH/RM DRIVER

INITIALIZATION

379 031246
380 03125¢
381 031254
382 031260
383 031262
384 031266
385 031270
386 031274
387 031276
388 031304
389 031310
90 031312
391 037320
162 031322
393 031330
294 031332
395 03133
396 031334
397 03130
398 03132
399 031346
400 031352

401
402
453
404
405
606

407
408 031354

409
610
411
412
413
414
415
416
417
418
419

031356
031362
031370
031374
031400
031402
031404
031410
031416
031424
031426
420 031432
421 031434
622 031440
423 031446
424 031452

425
426
427
436
437
438
439

TST

004037
000431
032714
001023
04737

000420
105761
002412
012762
105761
001007
012762

000403

012762

1044613

MACRD v04.00
(ODE

036119

<s:

000100
035446
030206

140C00

00006

100002

000016

110000

000016

030216

106413

105037

012637
000200

£ 10
25-7

'B:'2:'S PAG E

SEQ 0127

005720
000401
005720

4=-APR-BT

°s:
8s:
98 :

A ¥

030252

177776

JSR
BR
Q!
BNE
JSR
B8R
1S18
8L’
MOV
'S8
BNE
MOv
B8R
MOV
RESREG
TS7
B8R
RESREG
TsT
(LRA
MOy
RTS

RO ,DRVQUE

JPUT REQUEST

JQUEUE

JYES

JRETURN

#1706, (R&)
PC,SET.1E

IN QUEUE

IS FULL

JIE BIT SET ?

JSET

THE

INTERRUPT

DRYSTA(RY)
7%

JSEE IF DRIVE OFFLINE OR UNSAFE
JBR IF UNSAFE

DRYTYP(RY)
8s

JSEE IF OFFLINE OR NONEX]STENT
;BR IF OFFLINE

(RQ) e

;SETUP FOR NORMAL RETURN

MITIS . B8IT14,16(R2)

JSET OFFLINE ERROR INDICATOR

M1T15.81701,16(R2)
JREPORT DRIVE NONEXISTENT
8%
;60 TO EXIT
MIT15.8]112,16(R2)
JDRIVE ]S UNSAFE
108

(RQ)

ACTDRvY

(SP)e ,PS

;RESTORE RO ~ RS
JFINISH UP,

THEN EXIT

JRESTORE RO ~ RS
;C(ORRE(CT

THE RETURN ADDRESS

JCLEAR *ACTIVE DRIVER'' FLAG

JRETURN ‘PS’’ TO USER LEVEL

JRETURN TO CALLER

;OPTIMIZER=-CALLED FOR A PARTICULAR DRIVE

ECALL
104412

013746

146137
105061

004737
005702
001466
010164
012764
032764
001442
105761

005014
004737
012762

177776

030312
030236
036164
000010
000111
004000

oPT:

SAYREG
MOy
88
{LRS
JSR
TS?
BEQ
MOy

00000C
000090

MOy
MAJ

140000

000G16

105761
100047

030206

012762
000443

110000

000016

122762

000150

000002

002403
004737
0004 34
005737
002006
005737
100003

MOv
JSR

03025C

030206
036206

.
H

MOy
TSTR
8P
MOV
BR

032016
030310
030266

8tQ
TSTH
aG?
JSR

3%:

“MPS
8.7
JSR
B8R

ST
B8GE
TST
8PL

SDRYNUM R
e, oPT

;DRIVE NUMBER T0 R1
JSETUP A COMMAND

;SAVE RO - RS

PS ,=(SP)
<SAVE PROC. STATUS
ATABIT(R1),SRCHWT
;CLEAR LA SEACH FLAS
DPRQS (R1)
JRESET THE PORT REQ FLAG »env
P{,GETREQ
;GET "DPB’’ POINTER OF REQUEST
R2
;1S THERE A REQUEST IN QUEUE?
7%
JNO--8R T0 EXIT
RT_RM(S2(RS)
SLOAD THE DRIVE ADDRESS wwwwwes

#1717 _RM(ST1(R4)

CLEAR THE DRIVE

ggvSTAtfll)

:IESDRIVE ONL INE?

P( ,POPQUE

;NO==-REMOVE REQUEST FROM QUEUE

#MITIT _RMCST(RSG)
;DVA SET ?
b} 4
;10 PORT REQUEST ,IF NOT
M 4

MITISBITI4, 16(R2)
;SET OFFLINE STATUS/ERROR INDICATOR
DRYSTA(RT)
;1S DRIVE UNSAFE ?
8%
;BR T0 EXIT IF NOT

MITI5'BIT12,16(R2)
;SET UNSAFE STATUS/ERROR INDICATOR
;BR TO EXIT
8s
;;SO.Z(RZ)

;IESYHE REQUEST FOR 1/0?

PC, (14
8%
DTuW
48
SEEKFG
49

cCALL THE COMMAND INITIATOR
JBR T0 EXIT
;DATA TRANSFER UNDERWAY?
;JYES==GO START A SEARCH
;DO IMPLIED SEEKS?
<NO, DO A SEARCH

IRMTIBO RMOS5/3/2 DR CMPT

RH/RM DRIVER

T1ST

[NITIALIZATICN

464 031516

445 031522

446 031524

467 031530

448 031532
649 031540
450 031542

004737
000423
004737
000420
112761

010103

MACRD v0&.00
(ODE

03710
1272777

035230

031554
031560
031564
031566
031572
458 031576
459 031600

032432
000100

452 031552

035446
1272776

460
&A1
462

f 10
18:12:15 PAGE 25-8

SEQ 012,

031602

451 031544

45%
454
455
456
457

4=-APR-BY

03023¢

JSR
8R
JSR
8k
MO /8B
MOv

AS{

C3027¢

MOV
B8R

AY
’8:

8%:

JSR
81’
8nE
JSR

MOy

RESREG
RTS

PC,IIN

8s
PC,CI3
8s

#-1 ,DPRQS(RY)

R1,R3
R3

TaL.

#1706, (RG)

83
5(,SET.IE
(SP)e PSS

#DRYNUM
R1
apP8 k2

465

466

ceme

L7
$68
469

497 031714
498 031720
499 031724

S00 031730

: CONVERT

TO WORD INDEX

JSTART 15. SECOND TIMER

PROCESS THE PARITY ERROR
JSEE IF 'JE' ALREADY SET
JBR If SET

;RESTORE PROC. STATUS
JRESTORE RC - RS

;DRIVE NUMBER
;ADDRESS OF DPB
JC12= CI11,C13, OR (l4
:
sWHERE
;CI11=DATA TRANSFER

;C13=SEARCH REQUESTED BY DATA XFER

&70

495
496 031710

;60 TO THE EXIT
;SET PORT REQUEST INDICATOR
sSET UP TO ADDRESS WORDS

0,
0.0,

463

031602
031606
031612
031614
031620
031624
031630
031634
031636
481 031640
482 031642
483 031646
484 031650
485 031652
486 031654
487 031660
488 031662
489 031664
490 03167¢
L,91 031674
492 031676
493 031700
494 031704

;START A SEAR(CH

#15000., TIMER(R3) EXIT
78
PC,C17

TRANSFER

JTOMMAND INITIATOR

464

&71
472
473
474
475
476
477
478
479
480

JSTART A DATA

;C14=NOT DATA TRANSFLR

004737

036206
030245

013704

030324
00000
000004
000002

010237
010203

010164
062703
062704
012324
012324
012346
004037
000006

032432
012346
004037
000034
032432
016246
004037
000000
032432
010137
000137

013704
010164
016246
0049037
00003¢

-SR

P ,PCPQUE
R2. TRNSwWT

R2.R3

RMADR
,
4
R1,RMCS2 (RG)

ADD

24 R3
a2 Ré

(R8s, (RL)

JREMOVE REQUEST FROM "DRIVES WAIT'® QUEUE
;PUT REQ. IN TRANSFER WA]T QUEUE
;DPB ADDRESS 10 R3

SRMCS1 ADDRESS

SSELECT DRJVE
sDESIRED WORD COUNT

+RMW( ADDRESS

)
¢ «(SP)
(RY

;LOAD WORD COUNT
;LOAD BUFFER ADDRESS
:LOAD SECTOR AND TRA(CK
cCALL THE LOAD(WRITE) ROUTINE
s INDEX OF REGISTER TO LOAD
;ERROR RETURN ADDRESS
sLOAD CYLINDER ADDRESS

2{R2)
,= (5P

;LOAD "'COMMAND+GO'‘, '‘A178A16'°, AND "PSEL"’

030310
032374

R1,DTUW

;SET "DATA TRANSFER UNDERWAY''

030324
000010
000012
035136

Ré
RMADR,
R1,_RMCS2(RS)
12(R2) ,=(5P)
RO,WRT.RM

JRM(CS1 ADDRESS
;SELECT DRIVE

(R3)
¢ (RG)

(R3)+.=(SP)

035136

RO, WRY RM

035136

RO,WRT .RM

0000G¢
035136

RO,WRT
RM

JSR

RMD

;DESIRED CYLINDER ADDRESS

14T

031732
031734
031740
031744
031746
506 031752
031754
031762
031766
510 031770
031772
031776
032002
032004
032006
032014

Yl
%IV, IV [ AV LV IV, IV, LV LV, TV, TV YV ]
IR M)
b b od D b D s s
[e V. F VN WP OV NON
& nw —

507
502
503
504
505

032016
032022
£3202€
032032
032036
032040
032044
032050
032052
527 032054
528 032056
529 032062
530 032064
032070
032074
032076
032100
032102
032106
032110
032114
032116
032120
032124
32130
032132
032134
032136

032142
032144
032150
032152
032156
032160
032166
032172
032200
032202
032206
032210

032632
116203
163703

002002
062703
010346
116266
004037

000006
(32432
012746
004037
000000

032432

000011

035136

030324
000010
0€00602
000131

016246
004037
000006
0324632
000403
122703

001007
016246
004037
000034
032432
000546
122703

001013
004037
000032
032432
116216

004037
000032
032432
000530
122703
001525
122703
001522

122703
001016
112761
105061
1127617

010346
004037
000000
032432

“WovBe

SU8
BGE

<000C?

000131
035136

013704

4-APR-8'

ADD

-9

#131,=(SP)

;START A SEAR(H

8]S8
BR

ATABIT(R1),SR(HWT

MOV
MOV

RMADR ,Ré&

(MP8

MOV
JSR
RMDA

NC0012
035136

R3,=(SP)

HOV
JSR
RM(S1

RNE

#32. ,R3

JPICKUP SECTOR ADDRESS
JBACKUP BY MAX. SEAR(CHM FOR [/0 WINDOW

RO,WRT.RM

MOVR

000105

10¢(R2) ,R3

T{UNDU.RS

;COMBINE THE ADJUSTED SECTOR WITH
sTHE DESIRED TRA(K
LOAD DESIRED TRA(K & SECTOR

o o]

8NE

MOvY
+SR

RO,W4RT_RM

JSET ''SEARCH WA[T"' KEY

cIs

RY RM(S2 (R4
2(R2) ,R3
#131,R3
1%

T0(R2) ,~(SP)

RO,WRT
RM

JRMCS1

ADDRESS

JSELECT DRIVE
;PICKUP THE REQUESTED (OMMAND
:1S IT A SEARCH COMMAND?
:BR IF NO
:LOAD DESIRED TRACK & SECTOR

2%
#105,R3
3%
12(R2) ,=(SP)

.‘lsg

(16
#°15,R3
43

ég } "OFFSET’* (OMMAND?

RO, wWRT_RM

;60 L OAD CYLINDER

SEEK COMMAND

;LOAD DESIRED CYLINDER

MO
(

000115

7s:

B8R

MPR

034756

BNE
. SR

000001
035136

0 0172}
+SR

RMCF

{17

RO,RD .RM

- MERGE YHE OFFSET VALUE INTO RMOF
;BUT DON'T (HANGE THE UPPER

1(R2), (SP)
RO, WRY RM

sBYTE WHEN LOADING THE
JREGISTER (RMOF)

RMOF

(17

000107

A ¥

000117

00C103

03513¢

11(R2),1(SP)

MOv
MOvB
JSR
RMDA

(30250

00000
035136

000001
030206
000001

'8:°2:15

SEQ 0123

000040

030312

010164
116203
122703
001007

vebo L

(00010
030332

156137

000567

MA TR

03017¢
030e5¢4

B8R
{MPR
8tQ
MP8
BEQ
MPR
BNE
MOvB
TLRB
MQy8
MOV
JSR

qn"( 1

(l6
#107,R3

GO START

#1,DRVACT(RT)

DRYSTA(RY)

#1 ,ULDFLG(RY)

RZ,-(SP)
RO,WRT.RM

THE (OMMAND

1S IT A *RECALIBRATE'" (OMMAND”

BR IF YES
T AEgETURN TO CENTER?
ey

“MPT

INITJALIZATION CODE

Ny -4

“JRMTBC RMOS/3/2 DR

R ’RM DRIVER

SET

;PUT

ag "UNLOAD'* COMMAND?

THE

DRIVE ACTIVE

DRIVE

STATUS

INDICATOR

TO OFFLINE

;SET "UNLOAD IN PROGRESS'® FLAG
;START THE "UNLOAD'' COMMAND

JRMTBO RMOS/3/72 DR "MP”

BM DRIVER

°S”

INITIALIZATION (ODE

558 032212
555 032214
560 032220
561 032002
562 032226
563 032230
564 032232
565 032040
566 032244
567 032266
568 032250
509 032252
5§70 032256
571 032260
572
573 032264
576 032272
575 032276
576 032302
577 G32304
578 032306
579 032310
58C 032314
581 032316
582 032324
583 032326
584 032332
585 032334
586 032336
587 032342
588 032344
589 032346
590 032352
591 032360
592 032364
593 032366
594 032372
595
596 032374
597 032376
598 032404
599 032406
600 032414
601
602 032416
603 032420
606 032424
605 032426
606 032430
607
608 032632
612 032440
616 032442
617 032444
618 032446
622
623 032454

000207
122703
001014
004037
000032
032432
116266
004037
000032
032432
000436
122703
001023
016203

116237
116205
004037
000000
032432
012623
023705
001414
062737

(00764
122703
001405
010346

004037

000000
032432
004737
052762
005737
100002
004737
00C207
006301
012761
006201
112761

000207
010346
004037
000000
032432
000761

MAR(C

CoC 43

[

03575¢
000001
035136

4=APR=8°

RS
(MPR

BNE
4SR

0000

MovBe
- SR
RMOF

00014

ts:

000006

’Y:

0323Ce
£%:
% ¥

(3230
0C0CO¢

¥
IS
1°%:

035136

00006

030270

0060001

03017¢

012746

000111

RM(S1

JRETURN TO USER

¢$

BR IF NO

#°43,R3

READ

1(R2),1(SP)

JCOMBINE

000010

000016

"ECI'',

JINIT. THE INDEX FOR THE FIRST
JINDEX OF LAST REG. TO MOVE

RQ,RD.RM

;INDEX OF REG.
(SP)e

(R3)e

:GET

THE

TO READ

CONTENTS OF

‘LAST REG. BEEN READ?

:INCREASE THE INDEX BY 2

8s
#1465 ,R?

;LOOP-=-MORE TO READ
21S IT A "'SELECT DRIVE'' COMMAND®

Ry, =(3P}
RO, WRT . RM

;LOAD THE

;BR [F YES

R1
;;OOOO.,TIHGR(R1)

P(,POPQUE

SAVEFG

#1
Pl

DRVACT(RY)

H3,=(SP)
RO, wWRT _RM

(OMMAND

;REMOVE REQ.

FROM QUEUE

;SET THE "DONE'* BIT
;SAVE

THE RH/RM REGISTERS?

;BR IF NO
JYES==G0 SAVE THE REGISTERS
JRETURN TO USER

JSET

<START 10.

SECOND TIMER

THE DRIVE ACTIVE

JRETURN

THE

USER

JLOAD THE COMMAND

rf1s

8I7

#BITT2,RM(S2(R4)

RTS

2%
P

:BR IF QUEUE IS THERE
JOTHERW] SE EXIT

#111,-(SP)

;DO A "DRIVE CLEAR''

MOV

RH/RM REG

“GET OUT IF YES

ASL

MOv

REG.

;READ RH/RM REGISTER

138
P{,SVRHZ(

TST
BNE

AND "H(C['’

AND/OR "H(]"".

10{R2),9%
T1(R2) RS

8PL
JSR

JSR
MCs?
1z
8R

“FMT16',"ECI"",

;BR IF NO
JPOINTS TO 1ST ADDRCSS OF wWHERE
;T0 PUT THE REGISTER(S)

MITC7,16(R2)

RTS

IS IT A "'GET REGISTER'' (OMMAND>

108
6(R2) ,R3

JSR
8IS

MOV
ASR
MOVS

OFFSET

JLOAD “FMT16',

'2%

22,9%

RTS

THE

FORMAT'' (OMMAND?

216" R3

ADD

TSY

RO,WRT . RM

98 RS

BR
(MPR
B8EC
MoV

IT A "'SET

RO,RD.RM

MOV
(mP

MCv

035136

164000

12%:

*38:

023420

010000

MO /B
MOvB

RH(S'

035330

032764
005702
001001
000207
012762

8R
(MPS
BNE
mMOv

BEC

T3c3822

00645

036206
000200
030264

25-10

RMOF

{1”

000010
0000
03475¢

H 10

'8:72:15 PAGE

;DRIVE NON-EXISTENT ?

JANYTHING

#MIT15.81T11, 16(R2)

IN QUEUE

JSET "'PARITY'" ERROR INDICATOR

TIRMTB0O RMGS5/3/2 DR (MPT

Rn/RM DRIVER

INITJALJZATION

624 032460
625 032464
626 032460
627 032470
628 032674
629 032500
630 032504
631 032510
635 032514
636 032516
637 032522
638 032530
639
640 032532
641 032534
642 032536
663 032540
644 032544
545 032546
646 032552
647 032554
648 032560
649 032564
650 032566
651 032572
652 032574
€53 032576
654 032504
655 032606
656 032614
657 032616
661 032624
662 032632
6563 032636
664 032642
665 032646
666 932650
667 032656
668 032662
669 032666
673 032674
674 £32676
675 032702
676 032706
677 032710
678 032716
679 032722
680 032726
681 032734
682 032736
683 032742
684 032746
685 032752
686 032756
687 032760
688
689

004037
000000
032532
004737
105061
105061
105061

020237
001005
005037

012737

000207

MAIRD v04.00

4&=-4PR-81

105761

001443
013702
020137
001402
004737
005702
001413
032764
001404
012762
000403
012762
012763
105061

105061
020137
001005
012737
005037
105061

032764
00520
062703
042701
001314
012737
005037

004737
012764
000406
004737
105061
105061

004737
104413
000207

25-1°

(ODE

035136
036070
030236
230254
030174
030246
030246

177777

i ¥

. SR
RM(S?

RC,wRT
. RM

2SR
CLRR
CLRB
{LRBR

PC,EMPTYQ

(18

“Mp

8NE

63037

DRYA(T(RY)
2$

030236

100002

000074

177777

030246
030254
010000

00016

03027¢

030246
036012
005000

036070
030206
030216
035446

JDRIVE ACTIVE?
;BR JF IN ACT]IVE
THE °‘TRANSFER WAIT'® QUEUE
THIS DRIVE KAVE AN [/0 IN PROGRESS?

PC,GETREQ

;GET

THE

MBITI2,RM(S2(RG)

.BR [F

NOT

:BR IF YES

DPB POINTER

;QUEUE ENTRY FOR DRIVE ?
:BR [F NOT

J'NED®

SET

(4 3
:BR IF NOT
;g1715!81101,16(fl2)
sSET °*DRIVE NON-EXISTENT'
4%:
cs:

MOV
MOy

; CONT INUE

#8]T15:81710,16(R2)
#=1_TIMER(RY)
DRVACT(R1)

¢s:

(LR
{LRR
8]

JRESET

TRNSWT

P(,CLRQUE

#CLR,RM(S2(R4)

8%:

JSR
(LRR
TLRB

PCEMPTYQ

JSR

DRVSTA(R1)
DRVTYP(RY)
PC,SET.IE

RTS

RESREG

;BR IF NOT
THE

INDICATOR

;CLEAR THE TRANSFER QUEUE
ULDFLG(RY)
JCLEAR UNLOAD FLAG
;BIT12.RHCSZ(94)
:'NED' SET ?
]
JMOVE T0O THE NEXT DRIVE

#~1, DT

7% :

TIMER

;SET "DRIVE ACTIVE'' TO IDLE

#-1,DT

000010

:SET "NON-CLEARABLE PARITY'' ERROK INDICATOR

;STOP THE

;CLEAR PORT REQUEST FLAG
;1S THIS DRIVE SETUP FOR A TRANSFER

22 ,R3
(7 R

030310

INDICATOR

R1,DTUM

030310

000002
177770
177777

;SAVE RO - RS

JGET
:DID

DPRQS (R1)

00000

QUEUE

TRNSWT ,R?
R1,DTuw

R?
000070

THE

JCLEAR THE PORT REQUEST FLAG
JCLEAR THE UNLOAD IN QUEUE FLAG
;DRIVE IS IDLE
JIF THIS DRIVE HAD AN ]/0 REQUEST
¢+ IN PROGRESS CLEAR AL. OF THE FLAGS

;PORT REQUEST

036164
010000

JEMPTY

DPRQS(R1)

030246
030310

030:76
030236
030310

TRNSW?Y

K1
R3

630°76

102000
1777727

DPRQS (R
ULDFLG(RY)
DRVACT(RY)
RZ . TRNSWT
23
P

1044612

005001
0G5003
105761
001003

110

'8:°2:15 PAGE

JINTERRUPT SERVI(E ROUTINE

;BR [F MORE DRIVES

:NO DATA TRANSFERS UNDERWAY

JCLEAR THE

°'TRANSFER WAIT' QUEUE

;CLEAR ALL OF

THE REQUEST QUEUES

;DO A MASSBUS INIT.
s CONT INUE
;CLEAR THE DRIVE'S QUEUE
sSET DRIVE TO OFFLINE

sCLEAR THE DRIVE TYPE INDICATOR
JSET "'IE'" WITHOUT ''TRE"’

JRESTORE RO -~ RS
JRETURN

CZRMTBD RMOS5/3/2 DR (MPT

RH/RM DRIVER

TST

INITIALIZATION

690
691 032762
692 032770
693 032772
694 032776
695 033002
€96 033006
697 033010
698 033016
699 033016
;89 033022

112737
104412
013706
013701
002402
004737
004737
104413
105037
000002

MACRO v04.00

705 033030
706 033036

105061

012737

006301

707
708
709
710
711
712
713

033040
033046
C33050
033054
033060
033066
033072

012761
006201
013702
005037
052762
010164
004037

715
71€
717
718
719
720

033100
033102
033104
033106
033112
033114

032432
006126
100417
005737
100002
004737

714 033076

000000

033120
033124
033126
033130
033134

004737
005702
001403
004737
000207

;g% 033142

000207

731 033136
734 033144

735 033152
736 033156

737 033162

738 033166
;23 033172

012714

052762

(0000

030252

ISR:

030324
030210
03302¢
033174

18
28:

030252

030176

1777?27

030310

177777

030270

030246
030246
000200
000010
034756

MOvB
SAVRE G
MOV
MOV
BLT
SR
ISR
RESREG
CLRB
RT]

012714

000113

ROUTINE

DRVACT(R1)

JSET DRIVE ACTIVE

INDICATOR 1O iDLE

:GET ‘DPR'‘ ADDRESS FROM THE
STRANSFER WAIT QUEUE--CLEAR OQUEUE
:SET DONE
“SELECT THE DRIVE
*TRANSFER ERROR(TRE=1)?

€17
ROL
aM]
ST
BPL
JSR
JSR°
23
BEQ
JSR

(SP)+
38
SAVEFG
18
P(, SYRH70
P(.GETREQ
R2
2$
PC,OPT

;IS TRE=1 2
‘BR IF YES
:SAVE THE RH/RM REGISTERS?
:BR IF NO
:YES=~SAVE THE REGISTERS
:GET DP8 POINT-R
SENTRY FOR DRIVE ?
*BR IF NOT
SCALL OPTIMIZER

2s:

MOy

#7113, (RG)

*RELEASE ThE DRIVE

1I$:

BIS

#BIT15!'BIT06,16(R2)

MOV

#0111, (RG)

RTS

040111

;gz

AC'DRV

#-1,TIMER(RY)
R1
TRNSWT ,R2
TANSWT
#MIT07,16(R2)
R1,RMCS2 (R4)
RO.RD.RM

ASL

's:

0600'6

RMADR , R4
DTUW,RY
1$
PC.'D
pC.SC

JSET "'ACTIVE DRIVER'' FLAG
*SAVE RO = RS
*ADDRESS OF RM(S1
:GET 'DATA TRANSFER UNDERWAY'' INDICATOR
‘BR IF NO DATA TRANSTER ULNDERWAY
“CALL TRANSFER DONE
*CALL SPECIAL CONDITIONS
*RESTORE RO - RS
:CLEAR "ACTIVE DRIVER'' FLAG
*RE TURN

MOV
ASR
MOV
(LR
8IS
MOV
JSR

RMCST

000113

,ACTDRY

#-1,DTuwW

031354

100100

(LRB

MOV

00006

035330
036764

036070
035330

000207

L :

30264

004737
004737

012714

25-12

SEQ 012«

; TRANSFER DONE

704 0330264

J 10

*B:"2:15 PAGE

CODE

;8%

725
727
728
729
730

4&=APR=-81

RTS

RYS

JSR
JSR

MOV

PC
PC

*NO DATA TRANSFERS UNDERWAY
;CANCEL

TIMEOUT

*RETURN

JKRETURN

:SET DATA ERROR FLAG

PCEMPTYQ
PC.SVRH70

;EMPTY THE 'DRIVE'S WAIT'* QUEUE
“SAVE THE PH/RM REGISTERS

#1113, (R4)

*ISSUE A RELEASF TO THE DRIVE

SISSUE A 'DRIVE CLEAR"

‘RETURN

;SPECIA. CONDITION ROUTINE

765 033174
766 033200
767 033202

768 033266
769 033210

770 033212
771 033214
772 033216

033222

116403
001014
004037
000000
032532
106126
100405
004037

104001

000016

SC:

034756

MOVB
BNE
JSR

RMAS(R4) ,R3
2
RO,RD.RM

036254

RGLB
BM]
JSR

(SP) e
1%
RO,ES.SAV

RM( S
(18

EMT

;READ ‘RMAS'’
*BR IF ANY 'ATA® BITS SET
JREAD CONTROL AND STATUS REGISTER

SIS
IET=1?
*YES, NO DRIVES TO CHECK
*SAVE THE ADDRESS IN ‘SESCAPE®

JREPORT AN ILLEGAL INTERRUPT

CZRMTBO RMOS/3/2 DR (MPT

RH/RM DRIVER

TST

INITIALIZATION CODE

773 033226
774 033230
775 033.32

776 03323

777 033236

004737
000207

MACRC v04.00

012703

035446

18
28:

00000"

;;g 033242

005001

780 033244

030316

sc3:

783 033250
784 033252
785 033254

005201
106303
001373

SC4:

;g; 033246

786 033256
;gg 033260

789 033262

790 033266

791
792
793
794
795
796
797

033270
033274
033300
033302
033306
033312
033314

798 033320
799 033322

800 033326
801 033332
802

001005

005726
000207
(30226

$CS:

000137
105761
001402
000137
105761
003022
105761

0346206
030236

18:

034206
030206

2% :

003420
004737

004737
004737

803
806
805
806
810

033336
033342
033344
033352
033354

105761
003414
032737
001000
013705

812
813
814
815
816
817
818
819
820

033362
033366
033370

811 033360

821 033416
825 033420
826 033424
827 033430
828 033432

829 033434

830 033436
033442

831 033444

832 033446
033646
033452

030254

035330
034136
030206
040000

030766

zy:

105761
001033
004737

030176

105761
001323
105761
100412
032737

030226

001013
012746
004037
000000
033776

011605

004037
104002

034136
58

030206
020000

030172

000111
035136

036254

000701

004037
104005

P(LSET.1E
e

:SET INTERRUPT ENABLE
*RE TURN

MOVR

MOV

R3, (SP)

CLR

#1.R3

JAN TATA''=1

0362564

£$:
78:

-(SP)

BIt

R3,

INC
ASLR
BNE

R1
R3
$C3

TSTR

DPINT(R1

Jmp
TSTB
BEC
NP
TSTB
BGT
TSTB

sC13
DPROS(RY)
28
SC13
DRVSTA(RY)
43
ULDFLG(RM)
8
PC.GETREQ

BNE

BEQ

BLE
_SR
JSR

036164

030170

000504

JSR
RTS
C.R

ST
Q7S

105761

001402

K 10
18:12:15 PAGE 25-13
SEQ 0127

005046

110316

4~=APR=81

scé

(SP)

(SP)+
PC
18

JSR

PC, SVRH?0
PC.SC12

TSTB
8LE
8]1
BNE
MOV

DRVSTA(R1)
13
#BIT14,RMERRS
38
RMERRS +2 RS

TSTR
BNE
JSR

DRVACT(R1)
SCé
PC.SC12

B8R

SCHA

*PROCESS ALL DRIVES

THAT HAVE

;ATA=1?

TYES

:MOVE

TO THE NEXT DRIVE

:BR IF MORE

TO CHECK?

“CLEAN OFF THE STACK
‘RETURN TO USER

;INITIALIZING THE DRIVE

‘BR [F NOT

*PROCESS THE DRIVE
*PORT REQUEST OUTSTANDING ?
‘BR [F NOT
SSTART THE OUTSTANDING COMMAND
:CHECK THE DRIVE STATUS

*BR IF ONLINE
“UNLOAD IN PROGRESS?
“BR IF NOT
:GET DPB POINTER

“SAVE THE RH/RM REGISTERS
;SAVE RMDS, RMER1, RMER2, AND RMMR?
SALSO DO A DRIVE

INIT

(DRVINT)

:DID DRIVE COME ONLINE?
:NO
-WAS THERE AN ERROR?
‘BR IF ERROR
SYES =~ PICKUP RMERT AND

160 PROCESS THE ERROR

BNE
MOV
JSR
RMCS1
SC8

‘DRIVE ACTIVE WITH COMMAND
OR ERROR RECOVERY ?
:BR IF EITHER
SSAVE RMDS, RMER1, RMER2, AND RMMR?
*ALSO DO A DRVINT
DPINT(R1)
STRYING TO INIT THE DRIVE 2
SCé
:BR IF YES, CHECK ON MORE DRIVES
DRVSTA(RY)
*CHECK ON DRIVE'S STATUS
63
‘BR IF UNSAFE
#RIT13,RMERRS+4 :ADDRESS PLUG CHANGED ?
78
*BR IF YES
#111,-(5P)
*DRIVE CLEAR
RO,WRT.RM
SWRITE THE COMMAND INTO RMCS1
*REGISTER INDEX
*PARITY EXIT ADDRESS

JSR
EMT

RD,ES. SAV
2

JSR
EMT

TSTB
BNE
TSTB
BM]
8I7

MOV
B8R

(SP) ,RS

‘PICKUP (RMAS) BEFORE THE ERROR CALL

SC4

*GO CHECK FOR MORE ATA'S

RO,ES.SAV
5

:SAVE THE ADDRESS IN 'S$ESCAPE'
sREPORT THE ADDRESS PLUG (HANGE

$SAVE THE ADDRESS IN 'SESCAPE®
*REPORT THE UNEXPECTED ATTENTION

CIRMTB0O RMOS/3%/2 DR (MPT

RH/KM DRIVER

TST

INITIALIZATION CODE

B33 033454

000675

835 033456
836 033460
837 033466
838 033470
839 033474
840 033500
841 033504
842 033510
843 033512
844 033514
845 033516
866 033520
847 033522
848 033526
849 033530
850 033536
851 033540
852 033544
853 033546
854 033550
855 033552
856 033556
857 033562
858 033566
859 033570

006301
012761
006201
004737
010164
000137
004037
000012
(33776
011605
006126
100407
105761
003137
052762
000470
004037
000C14
033776
012605
004737
012746
004037
0000GO
033776

861 033572
862 033574
863 033576
864 033600
865 033602
866 033610
867 033612
868 033616
869 033620
870 033622
871 033624
872 033626
873 033630
874 033636
875 033642
876 033650
877 033652
878 033656
879 033660
880 033666
881 033674
882 033676
883 033704
884 033706
885 033712

006105
100406
005702
001447
052762
000443
004037
000012
033776
011605
006126
100011
112761
004737
052762
000423
032705
001015
112761
112761
006301
012761
006201
(00137
052762

887 033720
891 033724
892 033730

105061
004737
105761

177777

MA(CRO

J06.0C

03027C

03017¢
0C00'6

034756

035330
000111
035136

SC6A:

100240

000016

034756

177777
035330
110000

25-14

000016

2%:

177777
000001

030176
030206

035230

030270

033250
100220

000016

$C4

;CHECK FOR MORE DRIVES

ASL
MOV
ASR
JSR
MOV
JMP
ISR
RMDS
58
MOV
ROL
Ml
1578
BGT
8IS
BR
JSR
RMER?
S8
MOV
JSR
MoV
JSR
RMCS1
S8

R1
&=1,TIMER(RT)
R1
PC,GE TREQ

;SETUP TC ADDRESS WORDS
;STOP THE TIMER
*RESTORE THE DRIVE ADDRESS
<GET THE DPB POINTER FROM THE QUEUE

scii

*PROCESS THE SEARCH

(SP) ,RS
(SP)+

:AND PUT IT IN RS
:WAS THERE AN ERROR?

ROL
BM]
TST
BEQ
8IS
B8R
JSR
RMD'S
S8

MOV
ROL
BPL
MOV8

030206

010000

030176
036206
030254

L 10

18:572:15 PAGE

SEQ Q1.
~

036164
000010
034026
034756

100210

4~APR-81

38:
SC7:

JSR
BIS
BR
BIT
BNE
MOVB
MOV
ASL
MOV
ASR
NP
BIS
LRB
JSR
7518

RYRMCS2 (R&)
RO,RD.RM

*SELECT DRIVE

:READ THE RM'S STATUS REG.

18
DRVACT (R1)

‘BR IF ERROR
CHECK DRIVE'S STATE

RO,RD.RM

sREAD ERROR REGISTER #1

(SP)+ RS
PC,SVRH70

JAND SAVE IT IN RS
;SAVE RH/RM REGISTERS

sCn

IF DRIVE ACTIVE WITH ORDER

2?171581T07'81763 16(R2)

#1171 ,-(SP)
RO,WRT .RM

;INFORM USER OF ERROR RECOVER (OMPLETION

;ISSUE A DRJVE C(LEAR

JWAS 'UNSAFE'" CONDITION =17

SC7

B8R IF NOT

1%
R2

;BR IF YES
ANYTH]NG IN QUEUE

28;715'81107! BITOS 16(R2)
.

;INFORM USER OF ERROR

RO,RD.RM

;READ DRJVE

(SP) ,RS

'SAVE RMDS IN RS

(SP)+

STATUS REG.

J'ERR'=1?

:BR IF NO=--UNSAFE CLEARED

#-1_DRVSTA(RT)
PC,SVRH70

DRIVE IS UNSAFE
;SAVE RH/RM REGISTERS

#MIT12,RS
3s

JMOL' =
12
:BR_IF YES

z;.DRVSTA(R1)

ONL INE

g?;T15!BIT12.16(R2)

#-1,DRVACT(R1)

;ACTIVE

;}5000.,TIHER(R1)

s INFORM USER OF UNSAFE ERROR

ERROR RECOVER

sSTART 15.

SC4

#BIT1S!BIT07!BIT04,16(R2)
DRVACT(R1)
PC,POPQUE

ULDFLG(RT)

;DRIVE

JREMOVE

SECOND TIMER

: INFORM USER OF ERROR
IDLE

THE

QUEUE

JUNLOAD IN PROGRESS OR QUEUE?

CZRMTBO RMOS5/3/2 DR (MPT

RH/RM DRIVER

TST

INITIALIZATION

MACRD v04.00

003002

901
902
903
904
905

033756
033762
033766
033770
033772

012746
004037

000N
035136

033776
000137

033250

2$:

907
908
909
910
911

033776
034007
034004
034010
034014

001405
004737
004737
000402

105761

030176

SC8:

036164
032432

004737
000137

032454
033250

2%:

105761

030254

SC11:

897 033754

912 034016

916 034016
917 034022

000000

919
920
921
922
923

034026
034032
034034
034040
034044

925
926
927
928
929
930

034052
034054
034060
034066
034072
034074

001012
004737
052762
005737
100002
004737

034126
034132

006301
012761
006201
004737
000137

931
932
933
934
935

936
937
938
939
90
941
942
93
944
945
946

034100
034106
034114
034116
034124

034136
034142
034150
034156
034164
034172
034176
034200

%7 034202
948 034204

949
950 034206
951 034210
952 034216
953 034220
954 034224
955 034232

003402
105061

105061
136137

116164
146137

010164
016437
016437
016437
016437
004037
000401
000207
005726
000674

006301
0127¢1
006201
010164
116164

105761

Mm10
18:12:15 PAGE 25-15

CODE

893 033734
894 033736
895 033742
896 033750

105061
116164
105761
100406

4-APR-B1

(30254
030312
030206

030254
030176
030312

000016

1%:

8G!
(LRB
mMovBs

1STB

aM]

MOV

JSR

RM(S1

1%:

030250

18:

SC8

000010
030312
030226

030270
000016

COMMAND INTO RP(CS1

:PARITY EXIT ADDRESS

* CONT INUE

JSR
JMP

PC,CI78
SC4&

TSTR

ULDFLG(R1)

8LE
CLRB
(LRB
BITA

ASL

MOV
MOV
MOV
MOV
MoV
JSR
B8R
RTS
1ST

ASL

MOV
ASR

MOV
1$:

THE

SREGISTER INDEX

MOV
ASR
JSR
JMP

SC13:

:WRITE

RO,WRT .RM

030270

177777

IT IS

“GET DP8 POINTER

177777

1%:

“BR IF

PC,GETREQ

1ST

sC12:

:DRIVE CLEAR COMMAND

1gsomv5

000016
030250

030166
030170
030172
030174

#1171, =(5P)

:CLEAR ATTENTION BIT

?t;mcr(m)

035330
030312
030312

000010
000012
000014
000042
000040
030546

;1S THE DRIVE UNSAFE ?

1S18

BEQ
JSR
JSR

BPL
JSR
MOvB
8lc8

031354
033250

DRVSTA(R)

ATABIT(R1),RMAS (R4)

SCe

000016

2%:

;:BR IF NOT
:CLEAR UNLOAD FLAG

JMP

BNE
JSR
BIS

036206
000200
030264

1$
ULDFLG(RY)

MovB

TSTB

PC.CI7

ULDFLG(R1)
DRVACT(R1)

:CHECK FOR MORE DRIVES
IDLE?

:PROCESS THE

PARITY ERROR

:PROCESS THE UNCORRECTABLE PARITY ERROR
:CHECK MORE DRIVES
;''UNLOAD IN PROGRESS’"

:BR

ATABIT(R1),SRCHWT

:DOING A SEARCH OPERATION FOR

SAN 1/0 COMMAND?

;BR IF

MIT07,16(R2)

;SET "DONE'* BT

‘B8R IF NO

PC . POPQUE
SAVEFG

YES

*REMOVE REQUEST FROM QUEUE
;SAVE THE REGISTERS?

PC,SVRH70

:YES==SAVE ALL OF

;WORD INDEX

R1
PC.OPT

:RESTORE R1
*START A REQUEST

R1,RMCS2(R4)

sSELECT DRIVE

ATABIT(R1) ,RMAS (R4)
ATABIT(R1) . SRCHWT

#-1,TIMER(R1)

SC4

THE RHM/RM REG'S

:CLEAR ATTENTION BIT
:CLEAR IMPLIED SEEK SET

:STOP CLOCK

:CHECK FOR MORE DRIVES

RMDS (R4 ) ,RMERRS :SAVE THE FOUR REGISTERS THAT

RMER1(R4) ,RMERRS +2

RMER2 (R4 ) ,RMERRS
+4
RMMR? (R4 ) .RMERRS
+6
RO,DRVINT
:INIT.

SWILL TELL US SOMETHING

THE STATE OF

THE DRIVF

18
PC
(SP)+

sTAKE ERROR EXIT
*RETURN
:POP PC OFF OF THE

R1
g;urmsk(nn

:SETUP TO ADDRESS WORDS
:STOP THE TIMER

SC8

STACK

$PROCESS THE PARITY ERROR

R1,RM(CS2(R4)
SSELECT THE DRIVE
ATABIT(R1) ,RMAS (R4)
:CLEAR THE ATTENTIGN BIT
DPINT(R1)

;INITIALIZIISG THE DRIVE ?

CZRMTBO RMOS5/3/2 DR (MPT

RH/RM DRIVER

INITIALIZATION CODE

956 (034236
957 034240
958 034244
959 034250

960 034252
561 034256
962 034260
963 034262
964 034264
965 034270
966 034276
970 034302

971 034306
972 034310
973 034316
974 034320
9/5 034322
976 034330
977 034332
978 €34334
979 034340
980
981
982
983
984
985
986 034344
987 034350
988 034352
989 034360
9% 034362
991 034364
992 034366
993 034372
9% 034374

995
99
997
998
999

1000
1001

1002
1003

1004

034402
034404
034410
034412
034414
034420
034422
034424
034430
034432

1005
1006
1007
1008
1009
1010
1011
.
1012
1013
1014
1015

TST

001424
105061

(30226
030546

105761

030206

004037
000240

003014

005702
001426

004737
052762
004737
004737
000414
032764
001006
006301
012761

006201
000402
004737
000137

MACRO v04.00

4~APR-81

SEQ 0130

B8EQ

CLRB
JSR

DPINT(K1)
RO,DRVINT

:BR [F NOT

15TR
BGT

DRVSTA(RT1)
23

;DRIVE ONLINE ?
;BR IF YES -~ START ORDER

;BR IF NOT

NOP

TST

036164

140000

035330

N 10
18:12:15 PAGE 25-16

8tQ

JSR

000016

036206

000000

035230

030270

031354
033250

2%:

A ¥

PC,.GETREQ

005737
001027
112737
104412

005001
005003
005763
002406
166663
003002
004737
V05201
005723
022701
003362
104413
105037
012616
000207

030252

000001

RMTMR:

030253

030270
000002

034434

1%:

030270

000010

030253

3s:
A ¥

#MIT11,RMCST(RS)

MOV
ASR
BR

#15000.,TIMER(RT)
R1
33

JMP

5C6

JSR

;g.POPOUE

é?

PC,0PT

;CALL:

THE

QUEUE

;DVA SET ?

;SET THEN CALL OPT
JSTART

;START

THE

15.

ACTDRY

SAVREG
CLR

;SAYE RO - RS
;START WITH DRIVE O

TST

TIMER(R3)

;IS

2(SP),TIMER(R3)

;COUNT

(LR

43
#1 ,ACTSTR
R3

B8LT

g 3

BGT

JSR
INC
TST

e
86T
RESREG
(LRB
MOV
RTS

PC,STO
R1
(R3)+

#8. ,R1
1%

ACTSTR
(SP)+,(SP)
PC

JELASPED TIME
;CALL RMOS

IN MILLISECONDS ON THE STACK

TIME ROUTINE

JCHECK *ACTDRV & ACTSTR'’

;1F NON ZERO EXIT
JSET “ACTSTR''

THE

;BR IF NO

THE

INTERVAL

:BR 1F NO SOF TWARE TIMEOUT
;CALL
JMOVE

SOF TWARE TIMEOUT ROUTINE
TO EXT DRIVE

;OUT OF DRIVES?
cBR IF NO
JRESTORE RO - RS
;1ERO ACTIVE SOF TWARE
;ADJUST THE STACK
JRETURN

THIS ROUTINE MUST BE ENTERED AT PRIORITY 6
OR GREATER
STO

;

RE TURN

JSR

#DRVYNUM _R1
PC,ST0

TIMER RUNNING?

TIMEQUT ROUTINE

MOV

TIMER

PENDING REQUEST

TIST

BNE
MOVB

PC,RMTMR

SECOND

;PROCESS OTHER DRJIVES

#TIME ,-(SP)

JSR

.
M

JREMOVE

MOV

. SOF TWARE

JNOTE:
M

;GET DPS ADDRESS

BIT

225

SUB

2%:

JQUEUE ENTRY FOR THE DRIVE

MiT15!'BIT14,16(R2)
; INFORM USER THAT DRIVE OFFL INE
PC.,SVRH70
;SAVE THE REGISTERS

;RM TIMER ROUTINE
s CALL

;DUMMY PARITY ERROR RETURN

8IS
JSR

éSR

004000

;CLEAR THE INIT INDICATOR
;GO INIT THE DRIVE

;DRIVE NUMBER
s CALL

TIMEOUT ROUTINE FLAG

“IRMTBO RM0OS/3/72 DR (MPT

RH/RM DRIVER

INITIALIZATION CODE

1016 0344636

1017 024436

1018
1019
1020
1021
1022

TST

N346440
0364442
034446
034450
034456

010146

ST0:

010246

010346
010446
013706
010164
004037

030324
000010
034754

1023 034460
1027 0346462
1028 0346466

000012
034744
105726

1030 034470

105761

030226

105761

030236

013702
020137

030245
030310

004737
052762
004737

034744
036164
101000
035330
030176

1029 034466

MATRO v04.00

100436

ST01:

001033

1033 034502

001030

1036
1037
1038
1039
1040
1046

034514
034516
(34522
034526
034536
034540

001404
000137

1046 034550
1047 034554
}828 034562

005037
012737
000470

1050
1051
1052
1054
1054
1055
1056

034564
034570
034574
034576
034602
034604
034610

116405
136105
001007
105761
001021
105761
001035

000016
030312

1059
1060
1061
1062
1063

034616
034620
034622
034626
034630

105761
001003
105761
001446
012763

030226

1066 034640

004737

032532

ST0S:

1069 034646
1070 034652

105061
105061

030226
030206

ST06:

004737
005702
001424
(052762
000414

036164

012763

1034 034506
1035 034510

1045 034544

}82; 034612

}82? 034636

;82; 034644

1071 034676

1072
1073
10724
1075
lggg
*(
1078

034664
034670
034672
03676
034702

0347064

105061

030254

030246
177777

000437

012763

MOV
MmOV
wv
MoV
JSR

R3.-(SP)
R4 ~-(SP)
RMADR R4
R1,RM(S2(RS4)
RO_RD.M

:SAVE RY
sSAVE R4
:GET ADDRESS Of "Rm(S1"’
SELECT THE DRIVE
SREAD *DRIVE STATUS REG"

am!

ST02

030310
ST0Z:

030226
.
037236

030236

177777

030270

177777

030270

140000

000016

177777

030270

1$%:

75718

DPINT(RY)

STRYING TO INTJALIZE

TIST8

DPRQS(R1)

MOV
o,

TRNSWT ,R2
R1.DTWM

JSR
8IS
JSR
CLRB

1%
;BR IF YES
ST09
;IF NOT DON'T BOTHER DRIVES
PC,.GETREQ
;GET DPB ADDRESS
#MITIS!BIT09,16(R2)
;SET THE ERROR FLAGS
PC,SVRH70
;SAVE RH/RM REGISTERS
DRVACT(R1)
;DRIVE IS IDLE

CLR
MOV
BR

ULDFLG(RY)

TRNSWT
#~1,0TuW
STO9

;CLEAR THE UNLOAD FLAG

MOVB
8118
BNE
1STB
8NE
1S18
BNE

RMAS (R4) RS
ATABIT(R1) RS
ST03
DPINT(R1)
ST06
DPRGS(R1)
sT07

JREAD ATTENTION REG
;1S ATTENTION FOR THIS DRIVE UP ?
JYES
JTRYING TO INTIALIZE THE DRIVE ?
;BR IF YES = DRIVE NOT ONLINE
;OUTSTANDING PORT REQUEST FOR THE DRIVE
;BR If YES - NO RESPONSE TO REQUEST

178
BNE
TST18B
B8EQ
MOV

DPINT(RT)
18
DPRQS (R1)
ST09
#-1_TIMER(R3)

JINITIALIZING THE DRIVE ?
;BR IF INIT PENDING
;PORT REQUEST PENDING ?
;BR IF NOT
;STOP THE TIMER

JSR

PC.CI8

:GO HANDLE

CLRB
CLRB

DPINT(R1)
DRVSTA(RY)

;CLEAR THE INITIALIZE
JSET UNIT OFFLINE

JSR
TST
BEQ
8IS
B8R

PC,GETREQ
:GET THE DPB ADDREZSS
R2
JREQUEST IN QUEUE ?
ST09
;BR IF NOT
#IT15!BIT14,16(R2)
JINFORM THE USER DRIVE NOT AVAILABLE
STO8
JFINISH

MOV

#-1,TIMER(R3)

BNE

MOV

ST07:

:SAVE R?

;IS *DRY':=1?

STD3:

R2.-(SP)

(SP)+

CLRE

000454

000442

;SAVE R

8EQ
JMP

1$:

S€0 0131

R1,-(SP)

BNE

000016

8 11
18:72.15 PAGE 25-17

MOv

MOV

RMDS
ST09
1S18

1031 034474

1032 034476

/-AFPR-8"

ST02

STO9

ST09

#-1,TIMER(R3)

;BR IF YES

JBR IF YES

THE DRIVE

;OUTSTAND
ING PORT REQUEST

;BR IF YES

OR THE

DRIVE

JPICKUP TRANSFER WAIT QUEUE
;s TRANSFER UNDERWAY ON THIS DRIVE®

;CLEAR DPB ADDRESS
;CLEAR THE TRANSFER DRIVE #
;DON'T BOTHER OTHER DRIVES

;OTHER WISE EXIT

JEXIT

THE PARITY ERROR

;STOP THE TIMER

;STOP THE

TIMER

INDICATOR

"IRMTBO RMOS/3/2 DR (MPT

RM/RM DRIVER

TST

MACRO v04.00

4-APR-81

INITIALIZATION CODE

1079 034712
1080 034716
1081 034722

034724
034726
034736
034740
034744
034746
034750
034752
034754

105061
004737
005702

001407
012762
004737
004737
012604
012603
012602
012601
000207

036070
035330

00001¢

STO8-

ST09:

CALL

VO*\hwa—'COQ\Jg RES28E
W

d
d
ek
oD

WA WA
DU RO PO NG PO RLNOLNU N —
WA == OO0 NN
WAL= OO

) —d
b =D
D o
d
)
D
D
D

et
e o e Y Ga B
QOO
o
e

e
D e

e
R
e
Bt
D
b

D —
——

b
b

D
D

il
e
el

et
D

cadh

B
B

ad md
e

ok od

——d

D md e

Y o 1

1098

CLRB
JSR
IST
B8EQ
MOV
JSR
JSR
MOV
MOV
MOV
MOV
RTS

:ROUTINE

DPRQS (R1)

PC.GETREQ

ST09

013737

030322

035124

013737
062037
013727

030324
035002

035002

011646

000000

000000
013766
013746
062716
032736
001037
0177+6
032716
001002
022620
000432
004037
104003

035004
030324
000010
010000
173266

020000

036254

005737

030310

032716
001402
005726
000415
052716
000316
013737
005237
112637
000000
005327
000003
002324

040000

100405

000002

040000

030324
03520

035120

RD.

RD .RM1:
RD .ADR:
RD .WRD:

sCLEAR PORT REQUEST INDICATOR
;GET DPB ADDRESS
sQUEUE ENTRY FOR DRIVE ?
:BR IF NONE

#MIT1S'BIT2,16(R2)
PC.EMPTYQ

PC.,SVRH70
(SP)+ R4
(SP)+,R3
(SP)+ _R2
(SP)
+ R1
PC

TO READ

; INFORM USER OF PORT REQUEST ERROR
;CLEAR THE QUEUE FOR THE DRIVE
*SAVE THE REGISTERS
*RESTORE R4
*RESTORE R3

JRESTORE R?2
*RESTORE R1

SRETURN

A RH/RM REGISTER

RO,RD.RM

;G0 READ A REGISTER
JREG. INDEX FROM BASE
;ERROR ADDRESS=~PROCESS ERROR STARTING
;AT THIS ADDRESS
:CONTENTS OF REG. IS ON THE STA(KX

MOV
MoV
MOV
ADD
MOV
-WORD

MCPEMX
,RD .RM?
(SP) ,-(SP)
RMADR
,RD .ADR
(RQ) +,RD.ADR
a(PC)+, (PO)+

sMAX. RETRYS ALLOWED

MOV
MOV
ADD
BIT
BNE
Mov
BIT
BNE
tMp
BR

RD.WRD,2(SP)
RMADR,
- (SP)
#RMCSZ2. (SP)

JSR
INDEX
ERRADR
RETURN

034756
034764
034766
034774
035000
035002
035004
035006
035014
035020
035024
035030
035032
035036
035042
035044
035046
035050
035050
035054
035056
035062
035064
035070
035072
035074
035076
035102
035104

25-18

SEQ 013¢

03023
(36164

100004

18:12:15 PAGE

.WORD

JSR
EMT
TST
B8MI]
BIT
BEQ
TST
BR
2%:
8IS
SWAB
MoV
INC
MovB
3%:
.WORD
DEC
RD. RMZ
: .WORD
BGE

0
0

MBIT12,8(SP)+
RD.RM3
aRMADR,
- (SP)
1§1T13.(SP)
(SP)+,(RO)+
RD .RM4

;SAVE RO FOR RETURN

;FORM THE DESIRED ADDRESS
sUSING THE BASE AND THE INDEX
;READ THE DESIRED REGISTER OF THE RM DRIVE
;ADDRESS IS FORMED HERE

JREG. CONTENTS PUT HERE

JRETURN IT TO THE USER
;PUT THE ADDRESS ON THE STACK
;FORM THE ADDRESS OF RM(CSZ2
;CHECK THE °'NED' BIT
:BR IF DRIVE NON-EXISTENT
sREAD RMCS1
:DID MCPE SET?
;BR IF YES
;ADJUST FOR RETURN

JEXIT

RO,ES.SAV
3

;SAVE THE ADDRESS IN 'SESCAPE’

23
#MIT14,(SP)
23

JTRE = 1

(SP)+

RD.RM3
#MIT14,(SP)
(SP)

RMADR,
3%
33
6SP)¢,8(PC)¢

SREPORT ‘MCPE'’ ERROR

;£STA TRANSFER UNDERWAY?

:NO

JYES=-CLEAN OFF

THE

STACK AND

sTAKE THE FATAL ERROR EXIT

sCLEAR 'MCPE'" BY SENDING A '"1'" 1O ""TRE""

;POSITION BEFORE WRITING
;FORMTM ALDRESS OF HIGH BYTE
JWRITE

THE HIGH BYTE OF

(PC)+

;ADDRESS STORAGE
;EXCEEDED MAX. RETRYS

RD.RM1

;BR

RM(SI

(ZRMIBO RM0OS5/3/2 DR (MPT

RH/RM DRIVER

INITIALIZATION (ODE

D d d i

035132

035134

MACRO v04.00

4-APR-81

RD.RM3: MOV
MOV

011000
012616
000200

RD .RM¢ :

JROUTINE

LCALL

035136
035144
035152

035154
035160
035162
035179
035172
035176
035200
035202
035204
035210
035214
035222
035224
035226
035230
035234
035240
035244
035246
035252
935254
035256
035262
035264
035272
035276
035300
035302
035306
035310
035312
035314
035316
035320
035322
035324
035326

013737
016637
012616
012037
001015
122737

002411
004037
000000
035320
000316
042716
112637

063737
012737
000000
000000
013746
062716
032736

001025
004037
000014
035320
032726
001420
016037
004037
000000
035320

004037
104004
005726
005327
000003
002341
011000
000401
005720
000200

030322
000002

035314
035224

WRT.RM:

035226

000150

035224

034756

177770

035225
030324

035226

1%:
WRT.R1:
WRT.WD:
WRT.AD:

030324
000010
010000
034756

034756

RTS

036254

WRT.R2:

A REGISTER

;DATA TO BE LOADED ON THE STA(K
sCALL THE ROUTINE TO LOAD(WRITE) THE REG.
s INDEX OF THE REGISTER TO BE LOADED
;ADDRESS TO RETURN TO ON AN ERROR
;ERROR FREE RETURN

MOV
MOV
MOV
MoV
BNE
(MPB
8LT
JSR
RMCS1
WRT.R3
SWAB
8IC
MOVB
ADD
MOV

MCPEMX ,WRT .R2

sMAX RETRYS ALLOWED
;SAVE THE WORD TO WRITE
;JADJUST THE STA(CK
JGET INDEX OF REGISTER TO BE WRITTEN
;BR IF NOT RMCS1
;1S THE COMMAND FOR DATA TRANSFERS?
;YES=-DON'T GET THE OLD A16 & A17, & PSEL
:NO---COMBINE A168A17, & PSEL WITH

.WORD
.WORD
MOV
ADD
BIT
BNE

JSR
.WORD
WRT.R3
JSR
EMT
TST
DEC
.WORD
BGE

WRT.R3: MoV
BR
WRT.R4:

ERROR EXI7

DATA,-(SP)
RO,WRT.RM

MOV
1%:

;FATAL

MOV
SR
INDEX
ERRADR
RETURN

RMER1
WRT.R3
BIT
BEQ

035276

(RO) ,RO
(SP)+,(SP)
RO

TO WRITE

JSR

000010
170776

0o 1
18:12:15 PAGE 25-19

SEQ 0133

D d o
S e el d ad d
d
b el e e
—

;

X0 3¢ 3 QYA VALV IV IV, IV IV TV YV TV, P
0 S
3
TRIRRREVZBIS JFANINIISEIRTR [0deoom\IOmwa—'oom\lom?a
R
N

1136 035130

]

TST

WRT.RS: RTS

2(SP) ,WRT.WD

(SP) +,(SP)
(RO)+,WRT.AD
1%
#150 ,WRT. WD
18
RO,RD.RM

(SP)
#~C7,(SP)
(SP)+ ,WRT.WD+1
RMADR ,WRT.AD
(PC)+,a(PC)+

0
0

RMADR,
- (SP)
A#RMCSZ, (SP)

#BIT12,a(SP)+
WRT.R3
RO.RD.RM

#BITO3, (SP)WRT.R4

-2(R0) 1%
gO.RD.RM
RO,ES.SAV
4

+
(SP)
(PC)+

WRT.R1

(RO) ,RO
WRT.RS
(RO)+
RO

:THE COMMAND BEFORE
; THE RH/RM

;FORM THE ADDRESS OF THE DISK REG.
;LOAD THE DESIRED REG.

;JWORD TO WRITE GOES HERE

;ADDRESS

IS FORMED HERE

;PUT THE ADDRESS ON THE STACK
;FORM THE ADDRESS OF RM(CS?2

;CHECK THE °'NED' BIT
;BR IF DRIVE NON-EXISTENT

;CHECK FOR PARITY ERROR ON WRITE

;BR IF "PAR=0"
JPICKUP THE INDEX

JREAD THE REG.

JREG.

INDEX

JRETURN TO THIS ADDRESS ON ERROR

;SAVE THE ADDRESS IN "SESCAPE'

JREPORT THE PARITY ON WRITE ERROR

;CLEAR OFF THE STACK
;DECREMENT THE ERROR COUNT
JRETRY COUNTER
;TRY AGAIN

NOT

FINISHED

:EQ§$ THE "PARITY ON WRITE'® ERROR EX]T
;JADJUST FOR ERROR FREE EXIT

;JROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPR+14

“CALL

SENDING IT

FZRMTBO RMOS5/3/2 DR (MPT

RH/RM DRIVER

TST

INITIALIZATION

CODE

MACRO v04.00

1190

;

MOV

SVRH?0:

SAVREG
;SAVE RO - RS
TST
R2
;JQUEUE ENTRY FOR THE DRIVE ?
BEQ
6$
.
:BR IF NONE
MOV
RMADR
,
4
MOVB
(R2) ,RMCS2(R4)
;SELECT DRIVE
MOV
14(R2) ,R3
:GET THE ERROR TABLE POINTER
BEQ
6%
ZEXIT IF NO ADDRESS
CLR
3$
:COUNTER & POINTER
(MP
3%, #RMDB
;REACHED THE BUFFER REGISTER
BNE
2%
:BR IF NOT
BIT
#1707 ,RMCS2 (R4)
;'OR' SET ?
BNE
28
;BR IF SET

:
035330
035332
035334
035336
035342
035346
035352
035354
035360
035366
035370
035376

016203
001433
005037
023727
001006
032764
001002

1206 035402
1207 035404
1208 035410

000405
004037
000000

1210 035414

012623

1214 035434
1215 035436

(00751
004737

1205 035400

1209 $35412

1211 035416
1212 035424
1213 035426
1226 035442

}Ssg 035444

104412
005702
001442
013704
111264

JSR

030324
000010
000014

035410
035410

000022

000200

000010

1%:

005023

CLR

034756

2%:
3$:

035436

023727
001406
062737
104413

18:12:15 PAGE 25-c0
SEQ 0134

};g;
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1263
1204

&-APR-81

035410

000046

000002

035410

032432

1%%9

MOV

(SP)+,(R3)+

BR
JSR

5%:

000207

4$
RO,RD.RM
0

CMP
BEQ
ADD

(33)+

BR
JSR
LWORD
5¢

4$:

#DPBNUM ,R2

PC,SVRH?0

RE SREG

RTS

3§, #RMEC2
63
#2,3%

18
PC.CI7
PC

;DPB POINTER

10 R2

:SAVE THE DRIVES REG'S

:STORE RMDB AS ZEROES

: CONTINUE
:READ THE SELECTED REGISTER
:REGISTER INDEX
:ERROR RETURN ADDRESS

:STORE THE REGISTER CONTENTS
:REACHED THE END ?
:BR IF YES
: INCREMENT THE REGISTER

INDEX

:CONTINUE READING THE REGISTERS
:PROCESS THE UNCORRECTABLE PARITY ERROR
:RESTORE

*RETURN

RO ~ RS

:?RUTINE TO SET THE INTERRUPT WITHOUT GETTING A '‘TKE'’
s
:
:

1232
1233
15??

]

1236 035446

010446

1237
1238
1239
1240
12641

035450
035454
035460
035462
035466

013704
010164
011446
052716
000316

1263
1244
1245
1246
1247

035474
035502
035504
035506
035510

032764
001002
005726
000402
112664

}ggg 035516

000207

12642 035470

1248 035514

1251
1252

112714

012604

030324
000010

CALL

RE TURN

SET.IE:

MOV

040000
000100

010000

000001

MOV
JSR

MOV
MOV
MOV
8IS
SWAB
MOVB

000010

28:

8IT
BNE
TST
BR
MOVB

MOV

RTS

#DRVNUM R
PC,SET.IE

;DRIVE NUMBER TO R1
SSET TIE”

R4 ,~(SP)

;SAVE

RMADR , R4
R1,RMCS2(R4)
(R4) ,~(SP)
#sITi4,(SP)
(SP)
#BIT06, (R4)

Ré4

;P1CKUP ADDRESS OF RMCS1
:SELECT DRIVE
*READ RMCS?
SSET THE "'TRE'' BIT OF THE WORD READ
:ADJUST FOR DATO

SSET TIE"

#31T12.RMCS2(R4)
;1S 'NED''=12
1$
;YES--CLEAR *TRE"
(SP)+
“CLEAN OFF THE STACK

23
(SP)+,1(R4)
(SP) +.R4

:CLEAR *'TRE"'

:RESTORE Ré4

‘RETURN TO CALLER

;QUEUE COUNT

1253 035520

000

035522
035523
035524

000
000
000

1256 035521

000

QCNT:

.BYTE

BYTE

BYTE
BYTE
BYTE

0
0
0

;DRIVE 0

*DRIVE

:DRIVE 2
:DRIVE 3
*DRIVE &

TIRATBO RM0OS5/3/2 DR (MPT

RH/RM DRIVER

TST

INITJALIZATION (ODE

035525
035526

BYTE
BYTE

000

.BYTE

;Sgg

1260 035530

035612

035536

(035672

1263 035532
035534

035540
035542
035544
1264 035546

F
18:12:15 PAGE

0
0

035712
035732
035752
035772

;DRIVE 5
;DRIVE 6

;DRIVE 7

_WORD

QDRVO

JDRIVE

.WORD

QDRV3

;DRIVE 3

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

QDRV1
QDRV?

QDRV4
QDRVS
QDRV6
QDRV7

sORIVE 1
;DRIVE 2

;DRIVE 4
;DRIVE §
JDRIVE 6
;DRIVE 7

:QUEUE OUTPUT POINTERS

1267 035550

035612

1271

G35554
035556
035560
035562
035564
035566

(035652
035672
035712
035732
(035752
(35772

1272
1273
1274
1275
1275
1277
1278
1279

025570
035572
035574
035576
035600
035602
035604
035606

035612
035632
035652
035672
035712
035732
035752
035772

1270 035552

:ggg 035610

QOUTPT:

035632

QSTART:
QSTOP:

036012

.WORD

QDRVO

;DRIVE 0

.WORD
.WORD
.WORD
.WGRD
.WORD
.WORD

QDRV?2
QDRV3
QDRV4
QDRVS
QDRV6
QDRvV7

;JDRIVE
;DRIVE
;DRIVE
;DRIVE
JDRIVE
;DRIVE

.WORD

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

.WORD

QDRVI

QDRVO
QDRVI
QDRV?2
QDRV3
QDRV4
QDRVS
QDRV6
QDRV7

QTERM

;ggg

;DRIVE REQUEST QUEUES

1286 035612
035632
035652

GDRVO:
QDRV1:
QDRVZ:

}ggg

11
25-21

;QUEUE INPUT POINTERS
QINPT:

035632
035652

3522

035672
035712
035732
035752
035772

ODRV3:
QDRV4:
QDRVS:
QDRV6:
QDRV7:
QTERM=,

036012

;sgg

JROUTINE

1291

;CALL

;sgg

4-APR-B1

000
000

1257 035527

MACRO v04.00

;

1296 036012
1295 036014

106412
012702

1297 036022

005022

1296 036020

005022

035520

.BLKwW
.BLKW
.BLKW
.BLKW
BLkW

.BLKW
.BLKW
.BLKW

CLRQUE: SAVREG
MOV

(LR

CLR

2
3
4
§
6
7

;DRIVE 0 START ADDRESS
;DRIVE O STOP ADDRESS & DRIVE

;STOP DRIVE 1-~START DRIVE 2
;STOP DRIVE 2--START DRIVE 3
;STOP DRIVE

3--START DRIVE

;STOP DRIVE 6--START DRIVE

;STOP DRIVE 4--START DRIVE S
;STOP DRIVE 5--START DRIVE 6

:STOP DRIVE 7

10
10
10

10
10
10
10
10

TO CLEAR ALL OF

JSR

JDRIVE

THE REQUEST QUEUES

PC,CLRQUE
#Q(NT,R?

:SAVE RO - RS
;ZERO THE QUEUE

(R2)+

:DRIVES 2 & 3

(R2)+

;DRIVES Q £ 1

COUNTS

START ADLCRESS

"IRMTBO RMOS5/3/2 DR (MPT

RH/RM DRIVER

1298
1299
1300
1301

INITIALIZATION

036024
036026
036030
036034

1302 036040

1303 036042
1304 036044

1305 036046

238
D

)

—=O NN
NS WO

036060
036062
036064
036066

005022
005022
012703
012701
012122
005303
001375
012703
012701
012122
005303
001375

MACRO v04.00

SEQ 0136

(LR

000010
035570

1%:

2%:

1044613

000207

d
i
)

PANAD
R RRRIRRRRYR PR
S W= OV
NN
WA - CDMDOD\R;

——
b
b

b —d —
wnd ——d ad
) —d e
D

MOV

DEC
BNE
RESREG
RTS

CALL
036070
036074
036076
036104
036106

1335 036116
036120
036124
036126
036132
036140
036146
036150
036156
036160
036162

MOV
MOV

(R2)+
(R2)+

JDRIVES 4 & 5
JDRIVES 6 & 7

43, ,R3

;MOVE

#QSTART R1

é§1)*,(R2)0

THE

STARTING

sADDRESS OF

:THE QUEUE

THE

QUEUE

INTO

INPUT POINTER

1%
#8. ,R3

sMOVE THE STARTING ADDRESS

é§1)+,(R2)*

;QUEUE OUTPUT

#QSTART ,R1

;OF

THE

QUEUE

INTO THE

POINTER

;RESTORE RO - RS

JEMPTY THE QUEUE SPECIFIED BY R1

1327
1328
1329
1330
133
1332
1333
1334 936110

—d

MOV
MOV
MOV

DEC
BNE

105061

006301
016161
006201
000207

035520
035530

MOV
JSR

EMPTYQ:

CLRB
ASL
MOV
ASR
RTS

035550

1325
1326

el e

6 N
18:12:15 PAGE 25-22

CODE

1324

—

4-APR-81

NINONAY —

b e

N INWN
N NN NN NN

d ol

N NN NN

1306 036052
7 036056

—ed

TST

;ROUTINE

s CALL
:
.
M
.
122761

001421
105261
006307
010271
062761
026161
001003
016161
006201
005720
000200

000010

035520

DRVQUE:

035520

035530
000002
035530

035572

035570

035530

1%:

2%:
;ROUTINE

s CALL
;

;DRIVE NUMBER

gSNT(R1)

;CLEAR NUMBER OF

S{NPT(RT).OOUTPT(R1)

MOV
MOV

JSR
RETURN1

#DRVNUM,R1

#DPB ,R2
RO, DRVQUE

#10,QCNT(RT)
2%

MOV

R2,38QINPT(R1)

10 GET

MOV

JSR
RETURN

IN QUEUE

;SET OQUTPUT QUEUE POINTER INPUT POUINTER

;DRIVE NUMBER

;ADDRESS OF PARAMETER BLOCK
;GO PUT REQUEST IN QUEUE
SRETURN HERE IF QUEUE IS FULL

SRETURN HERE IF REQUEST IS IN QUEUE

(CMPB
BEQ
INCB

RTS

ITEMS

IN QUEUE

RE TURNZ

ADD
mp
BNE
MOV
ASR
TST

TO R1

TO PUT A REQUEST

ASL

035530

DRVNUM,R1

PC.EMPTYQ

ggNT(R1)

#2,QINPT(R1)

;IS QUEUE FULL?
;BR IF YES-TAKE RETURN1
s INCREMENT QUEUE COUNT

;PUT THIS REQUEST IN QUEUE

;UPDATE

THE

QUEUE POINTER

QINPT(R1),QSTOP(R1)
;TIME TO RESET THE POINTER
1%
;BR JF NO
Q?TART(R1),QINPT(R1)
R

(RO)+
RO

JYES--RESET POINTER

:TAKE RETURN 2
JRETURN TO USER

THE ‘DPB’'' ADDRESS OF NEXT REQUEST
#DRVNUM,R1
PC.GETREQ

IN QUEUE

sDRIVE NUMBER TO R1
;GO GET THE REQUEST

;R2='DPB'" ADDRESS OF

THE REQUEST

;R2=0 IF NO REQUEST IN QUEUE

"/RMTB0 RMOS5/3/2 DR (MPT

INITIAI [ZATION

005002
105761
001404

4-APR-81

CODE

GETREQ:

035520

1%:

035550

006301
017102
006201
000207

MACRO v04.00

JROUTINE

(Y,

CALL

\:-—l W

Eanlle s JECm R I

EIEYFEEEY

2O0~
o

NN NN
Al
iV, IV, ]

JEEPRENY ESER

RH/KM DRIVER

TST

WA
~NO

—

~N N
W

WWN

1374
1375
1376
1377
1378
1379

1380

ASL
MOV
ASR
RTS

036206
036212
036214
036220
036224
036232
036240
036242
036250
036252

105361
006301
017102
005071
062761
026161
001003
016161
006201
000207

035520

03555¢
035550
0C0002
035550
035570

MOV

DECB

ASL
MOV

(LR
ADD
CMP
BNE

035550

035572

035550

1%:

@QOUTPT(RT
,RZ
)
R1

MOV
ASR
RTS

JSR

036270
001200
001200

001200

ES.SAV:

1%:

ANY

REQUEST

IN QUEUE?

;PICKUP ‘DPB'' POINTER FOR THIS DRIVE
JRETURN

TO USER

QCNT(R1)
R1

;DECREMENT QUEUE COUNT
;GET THE 'DPB’* POINTER

JRETURN

JREMOVE DPB ADDRESS FROM THE QUEUE
#2.Q0UTPT(R1)
;UPDATE THE QUEUE POINTER
QOUTPT(R1) ,QSTOP(R1)
;TIME TO RESET THE POIMNTER?
18
:NO=--BR TO EXIT
QSTART(R1) ,QOUTPT(R1)
;YES--RESET THE POINTER
R1

MoV

(RO)+,1%
$SESCAPE ,~(SP)

CLR
.WORD
MOV
RTS

TO USER

°'SESCAPE' WHEN THE DRIVER

RO,ES.SAV
N

MOV

;R2=ADDRESS OF DPB REMOVED

aQOUTPT(R1)
,R2
3QOUTPT(R1)

ERROR

RETURN

012037
013746
005037
000000
012637
000200

THERE

;DRIVE NUMBER TO R1
;CALL TO REMOVE REWUEST

JROUTINE 7O SAVE THE CONTENTS OF

CALL

;Lg

#DRVNUM
R
PC,POPQUE

;REPORTS AN ERROR DIRECTLY.

1385
1386
1387
1388

1390 036254
139 036260
1392 036264
1393 036270
13%4 036272
1395 036276

POPQUE
:

R2
QCNT(R1)

SEQ 0137

TO "POP'' THEt REQUEST FROM QUEUE

RETURN

1382
1383
1384

1389

BEQ

JSR

1368

1371

CLR

TSTR

H 11
18:°2:15 PAGE 25-23

SESCAPE

(SP)+,$ESCAPE

;s THE ERROR (ALL
;THE RETURN IS PAST

THE

ERROR CALL

:GET THE ERROR CALL
.SAVE THE ADDRESS IN "SESCAPE’
. CLEAR THE ESCAPE RETURN

;THE ERROR CALL IS MOVED HERE
JRESTORE THE ESCAPE ADDRESS
JRETURN

TZRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
BUSADR = GET BUS ADDRESS AND VE(TOR ADDRESS
WA

LSBTTL

SEQ 013

BUSADR - GET BUS ADDRESS AND VE(TOR ADDRESS

;AEQS}EEDALSO READ

THE

INOTE:

DESTROYS RO-R4

THIS ROUTINE

JSR
RETURN

104402
104401
104411

012601
004537
000763
012700
104401
011046
104402
104401
104411

012601
004537
000763
012700
012701
013705
012737
005777
010537
012021
012021
000407
012716
000002
104006

010537
000717

BUSADR:
1%:

001276
036450

036466
001300
036457

2%:

3%:

000004

036434

5%:
000004

104413

6%:

122

000207
122

TYPE
MoV

"03
126

ADDRESS

FROM

THE

TTY

PC ,BUSADR

; SAVE ALL REG
;FIRST ADDRESS

#$RMADR ,R0O

.MRM(S1

(RO) ,~(SP)

+BLNKS1
(SP)+,R1
R5,CK.NUM

18
#SRMVEC
RO

JMRMVEC

(RO) ,~(SP)

;"RMCS1="’

sPRESENT RMCS1
JTYPE IT

;sTYPE

1 BLANK

JTYPE
sTYPE

IT
1 BLANK

ADDRESS

;GET THE ENTRY
;ADDRESS OF ASCII TEXT
SENTER AND STORE THE NEw ADDRESS
JERROR EXIT
;VECTOR ADDRESS
;' RMVEC="’
;PRESENT RH/RM VECTOR ADDRESS ON THE STA(CK

TYPE

~BLNKS1

MOV
JSR
BR
MOV
MOV
MoV
Mov
1ST
MOV
MOV
MOV
B8R
MOV

(SP) +,R1
RS, CK.NUM

#58, (SP)

;SAVE ERROR VECTOR
;LOAD NEW VECTOR ADDRESS
sLEGAL I/0 ADDRESS ?
YES,IF NOT TRAP TO TIMEOUT
;LOAD THE BUS ADDRESS
;LOAD VECTOR ADDRESS
;COMMON EXIT
sSET RETURN ADDRESS

EMT
MOV
BR

6
RS ,a#ERRVEC
1%

s TRY AGAIN

RDLIN

036466

162662

JSR
BR
MoV

T1YPOC

042752

001276
030324
000004
036426

SAVREG
MOV
TYPE

MOV
TYPOC
TYPE
RDLIN
MOV

042752

—

036450
036457

104412

012790
104401
011046

[
Y

R
S
S
S

1 1
2f

IS USED TO INSURE THE BUS ADDRESS
THE RH/RM [S SETUP FOR THE PROPER ADDRESS.

TCALL

2OV

JOF

VO NP NN

I
18:'2:15 PAGE

:THIS ROUTINE

036300
036302
036306
036312
036314
036316
036322
<0 036324
036326
036332
036334
036340
036344
036346
036350
036354
036356
036360
036364
036366
036372
036376
036402
036410
036414
036420
036422
036424
036426
036432
036434
036434
036436
036442
036444
036446
[

4-APR-B1

RT]

RESREG
RTS

#SRMADR ,RO

ARMADR ,R1

S#ERRVE(
RS

#4S ,aNERRVEC

aSSRMADR
RS ,a#ERRVE(
(RO)+,(R1)+
(RO)+,(R1)+
63

MRM(S?:

MRMVEC:

LASCIZ
LASCI2Z

.SBTTL

(K.NUM - (HECK NUMBER

JREAD THE ENTRY

sASCI] TEXT ADDRESS

;ENTER AND STORE NEW ADDRESS
;ERROR EXIT
;FIRST ADDRESS OF NEW PARAMETERS

;FIRST ADDRESS OF WHERE

JRETRUN FROM TIME QUT

TO PUT

TRAP

JRESTORE THE TIME OUT TRAP

JRESTORE ALL REG

aRM(S1=a
aRMVE(=a

(OCTAL)

;THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS
JAND FORMS AN OCTAL NUMBER IN R?
JCALL:

Mov

#ADR,R1

JADDRESS OF

ASCIZ

STRING

THEM

CZRMTBO RM(0S/3/2 DR (MPT

(K.NUM - (HEC(K NUMBER

TST

(O(CTAL)

57
58

:
;

60 036466
61 036470
62 036472
63 036474
64 036500
65 036502
66 036504
67 036506
o8 036512
69 036514

010246
(10346
010446
012703
005002
112104
001424
120427
103425
120427

71
72
73
76
75
76

006302
103420
006302
103416
006302
103414

70 036520

036522
036524
036526
036530
036532
C36534

77 036536
78 036542
79 036544

80 036546
81 036550

82 036552

83
84
85
86
87
88

101022

042704
060402
005303

0014601
(000754

112104

036554
036556
036560
036562
036564
036566

001004
005702
001402
010210
005725
012604

90 036572

012602

89 036570
91

MACRO v04.00

036574

012603
000205

000006

000060

000067

4-APR-B1

JSR
RET
RET

CK
. NUM: MOV
MOV
MOV
MOV
(LR
1%:
MOVR
BEQ
(MPB
BLO
CMPB
81l

ASL
B(S
ASL
BCS
ASL
BCS

177770

BIC
ADD
DEC

2$%:
3%:
4%
S%:

BEQ
BR

MOVR

J 1

18:12:15 PAGE

26-1

SEQ 0139

RS, CK.NUM
RS CHANGED
JERROR EX]T
R2,=(SP)
R3,~(SP)
R4 ,-(SP)
#6,R3
R2
(R1)+ ,R4
3s
R4 ,4'0
5%
R4 #'7

sNORMAL

R2
5%
R2
5%
R2
5%

EXIT

:SAVE R2
:SAVE R3
SAVE R4
JMAX OCTAL DIGITS IN THE NUMBER
JFINAL OCTAL VALUE
JGET CURRENT POINTED BYTE
JBRANCH,IF TERMINATOR DETECTED
JSMALLER THAN ASCII-0 ?
JYES,ERROR EXIT
;LARGER THAN ASCII-7 *
JYES,ERROR EXIT

JSHIFT LEFT
;

JONE

JOCTAL DIGIT

#177770,R4
R4 ,R2
R3

JERROR IF CARRY BIT SET
;CHOP OFF HIGHER BITS
JAPPEND ING CURRENT DIGIT
;DECREMENT BYTE COUNT

(R1)+,R4

;CHECK TERMINATOR

2%
1%

TO NUMBER

;BRANCH,IF LAST BYTE
;LOOPING BACK

BNE
TST
BEQ
MOV
TST
MoV

5%
R2
b}
RZ, (RO)
(RS5)+
(SP) + ,R4

JEPPOR EXIT
cFINAL VALUE = 0
JYES, TAKE ERROR EX]IT
JREPLACE THE ORIGINAL VALUE
;ADJUST FOR NORMAL RETURN ;RESTORE R4

MOV

(SP)+ R2

JRESTORF RZ2

MOV
RTS

(SP)+ R}

;RESTORE R3
JEXIT

CZRMTBO RMOS5/3/2 DR (MPT
ERROR MESSAGES

TST

MACRO vG64.00

;

3 036576

122

110

& 036635
S 036673

125
115

116
101

7 036766

101

104

125
106
120
117
104
116

116
101
105
120
122
117

6 036731

8 037022

9
10
11
12
13
16

15
16
17
18
19

037062
037125
037160
037211
037263
037306

037342
037363
037414
037467
037546

115

122

110
104
127
127
110

101

110

105
101
122
122

105

040

4-APR-81

.SBTTL

ERROR MESSAGES

EMI:

LASCIZ

105
123

EMZ:
EM3:

JASCIZ
LASCIZ

104

EMS:

.ASCIZ

123

040

103
124
122
105
111
040
101
124
111
111

101

K 1
18:12:15 PAGE 27

EM4:

EM6:

EM10:
EM11:
EM12:
EM13:
EM14:
EMI5:
EM20:
EM21:
EM22:
EM23:

EM24:

SEQ 0140

/RH_INTERRUPT OCCURRED (RMAS=0)/

.ASCIZ

/UNEXPECTED ATTENTION OCCURRED/
/MASSBUS PARITY ERROR (MCPE=1)/
/MASSBUS PARITY ERROR (PAR=1)/

.ASCIZ

/RH DIDN'T RESPOND T9 ADDRESSING/

.ASCIZ
LASCIZ
ASCIZ
LASCIZ
.ASCIZ
LASCIZ

.ASCIZ
LASCIZ
LASCIZ
CASCIZ
.ASCIZ

/ADDRESS PLUG CHANGE BIT SET/

/UNCORRECTABLE MASSBUS PARITY ERROR/
/FATAL MASSBUS PARITY ERROR/
/PERSISTENT DEVICE UNSAFE/
/0QPERATION NOT COMPLETED WITHIN TIME LIMIT/
/DRIVE WENT OFFLINE/
/NO RESPONSE 10 PORT REQUEST/
/HEADER CRC ERROR/
/DATA CHECK ('DCK') ERROR/
/WRITE CHECK ERROR - DATA CHECK
/WRITE CHECK ERROR - DATA CHECK

/HEADER READ ERROR =~

('DCK') SET/
(°'DCK°') NOT SET/
'FMT' BIT DROPPED/

20 G37614
21 037675
22 037722
23 037757
24 040011
25 040054
26 040107
27 040164
28 040226
29 0460264
30 040315
31 040377
32 040446
33 040512
34 040573
35 040640
36 040722
37 041010
38 041062
39 041120

110
106
110
118
117
104
120
127
11
127
104
122
102
104
103
105
105
102
123
120

105
117
105
111
120
122
101
122
116
122
101
110
125
101
101
122
103
125
105
122

101
122
101
123
105
111
122
111
126
111
124
040
123
124
116
122
103
123
105
117

EM25:
EM26:
EMZ27:
EM30:
EM31:
EM32:
EM33:
EM34:
EM35:
EM36:
EM37:
EM4O:
EM41:
EM4L2:
EM43:
EM44:
EM4S:
EMA46:
EM50:
EM51:

.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
ASCIZ
LASCIZ
ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
LASCIZ
LASCIZ
CASCIZ
LASCIZ

/HEADER READ ERROR ~ HEADER COMPARE ('HCE') ERROR/
/FORMAT ERROR ('FER')/
/HEADER COMPARE (°'HCE') ERROR/
/MISCELLANEOUS DRIVE ERROR/
/OPERATION INCOMPLETE (°'OPI') ERROR/
/DRIVE TIMING ('DTE‘') ERROR/
/PARITY ('PAR') ERROR AFTER OPERATION STARTED/
/WRITE CLOCK FAILURE ('WCF') ERROR/
/INVALID ADDRESS ('IJAE') ERROR/
/WRITE LOCK ('WLE') ERROR/
/DATA CHECK ('DCK') SET DURING WRITE CHECK COMMAND/
/RH CONTROLLER OR UNIBUS TRANSFER ERROR/
/BUS ADDRESS OR WORD COUNT INCORRECT/
/DATA COMPARE ERRORS - NO OTHER ERROR(S) DETECTED/
/CAN'T MAT(CH DATA READ WITH A PATTERN/
/ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH/
/ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID/
/BUS ADDRESS AND WORD COUNT NOT CONSISTENT/
/SEEK INCOMPLETE (°SKI') FRROR/
/PROGRAM DETECTED POSITIONING ERROR/

2; 0461206

040

000

E?ég&

LASCIZ

40 041163

104

122

111

EM6E0:
.EV

.ASCIZ

/DRIVE UNSAFE ERROR/

h
)
b
d
b
d

N OO NN

—

030170
035004
035224

004530
004542
004560
004574
000
000
000

DT1:
DT2:
DT3:
DT4:
DT6:
DT7:
DT10:
DT11:
DT12:

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

DF1:

.BYTE
.BYTE
.BYTE
.BYTE
.EVEN

DF2:

DF3:

DF&:

o
N
Y
T

> >

.AS
JAS
JAS

.AS

[gn](e IaTafalalale)

DH1:
DHZ:
DH3.
DH4:
DH6:
DH7:
DH10:
DH11:
DH12:

LASCI
.EVEN

NNNNRNN AN

4=~APR-81

NN
=
b b md ed ed

b
b
md
b e
D
—ad

000
000
000

000
000
000
000

122
122

041760
0641761
061767
041772

104

) e

006000
030166
035002
035226
000000
004526
004540
004554
004572

104
122

—

001326
001224
001224
001224
030324
001224
004536
004552
004570

122
104
104

041634
041640
041656
041666
041700
061704
041720
041734
20 41750

b —d

122

AN = O V00NN
NN

0461212
0461221
041303
041334
041376
041407
0461460
041531
041602

e d

MACRO Vv04.00
O—=O—=0O——
+O

ERROR MESSAGES

TST
— b A N =2 NN
—
NWALAROWARNORGAD
0

CZRMTBO RM0O5/3/2 DR (MPT

L 1

18:12:15 PAGE

/RMAS
/
/DRIVE
RMDS
RMER1
/DRIVE
REG ADR
DATA
/DRIVE
REG ADR
GOOD
/RMADR
/

/DRIVE
/RMCS2
/RMMR1
/RMER2

RMCST1
RMDS
RMDT
RMEC1

RMW(
RMER!
RMOF
RMEC2

RMER?
/
BAD

RMMRC

RMBA
RMAS
RMD(
/

RMDA
RMDB
RMMR?

RMAS

/
/
/

ATTN,O
DRIVE ,RMERRS ,RMERRS+2 ,RMERRS +4 ,RMERRS+6,ATTN,
0O
DRIVE ,RD.ADR,RD.WRD,0
ODRIVE ,WRT.AD ,WRT.WD,RD.WRD,0
RMADR,
0
DRIVE ,RM.REG,RM.REG+2,RM.REG+4 ,RM.REG+6,0

RM.REG+10,RM.REG+12
,RM.REG+14 ,RM.REG+16,RM.REG+22.0
RM.REG+24 ,RM.REG+26 ,RM.REG+32 ,RM.REG+34 ,RM_REG+40,0
RM.REG+42 ,RM.REG+44 ,RM.REG+46,0

077

MESG21:
HALTX:

HALT1:
HALTZ2:
XFATL:

LODEV:

NOTST:

.END

200

Bt Bt Bt b
B

N NI NI N NI NI N N N

Bt By Bt By B
gB

Bt St Do

e N NI NI NI NI NI INE NI NI NI NI N NI NI N N

<CRLF>/DRIVE IS NOT READY, TEST IS ABORTED/
<CRLF>/PACK [S NOT ACCEPTABLE, CHANGE PACK AND

/UNLOAD DRIVE /
/ AND REMOVE PACK/<CRLF>
/TYPE <CR> WHEN DONE./
/=« STARTING PASS 2 /
/xx ALL DRIVES ARE COMPATIBLE »*/<(CRLFf>
/SCORES FOR DRIVE /
/
TRACK
DRIVE
OVRWRT
OVRWRT
READ
/
NUMBR
READ
OFSTOFST+
QOFST=
/SELF/

s Bt

TRY AGAIN/

READ/
QOFST+/

/% Q/<HT>

NNNNNN

/., /
/WiLL TEST /
/ON /
<CRLF>/1S THERE ANQOTHER SUB-SYSTEM
/Y/<CRLF>
/N/<CRLF>
/ /

NN\

Bt St Py B

/AND LOAD. /
/TYPE <CR> WHEN DRIVE READY./

Bt Bt Bt Bt Bt

LASC
.ASC
.ASC

BUFFER:

000200

by St Bmag ot St B

-ASC

NEDCLK: .
QDR]V:

g B

=SBl DNNDD2ONNNNO—==O
HSFOONOOORS,=NO/~NO—=N

=S OO0
d
a0

O
O

PP PE LI PEPIPBIEIELEELEEEED
BB

LASC
.ASC
.ASC
-ASC

et N N N NG N N N Bt B

STARS:

e St

MESG19:
MESG20:

wninn nNnUnnununununovmunumnunununnumuvunuvunumuvuvmumuvmonunnnn,m
aTaleal CRAICIICIIICICICIOIOICIIOIIMIOYTIICICIICIIIDILN
YD

COLON:
SLASH:
QUES:

/SUBSYS /
/DRIVE(S): /
/** STARTING PASS 1 /
<CRLF>/MOUNT PACK ON DRIVE

/'Y

BLNKS4:
BLNKS3:
BLNKSZ:
BLNKS1:

.EVEN

043456

M
18:12:15 PAGE 29

<HT>

(o]
g Domag St

[

> >

MESGS:
MESG6:
MESG7:

by Bomg

077

QUOTM:
COMMA:

NN N N NG N NG I

101
040

MESG16:
MESG17:
MESG18:
SELFX:
TAB:
:
MARKX

.
.

et b

040

120
122
122

000
000

MESG14:

MESG15:

YOS

200
040
040

000
000
057
000
102
105
052
122

040

MESGS:
MESG9:
MESG10:
MESG11:
MESG12:
MESG13:

[V X7,17,]

040
124
200
104
007
104
104
106

200
200

114

MESG3:

MESG4:

077

I8}
116
11

MESG1:
MESG?:

> 3> >

127
117
200
131
116
040
040
040
040
072
040

on
052
042
054

QO
O

123
040
040
123

(=]

052

—

125
040
124
052

n
W

200
200

H
o

101
124

200

4-APR-81

SEQ 014c¢

PRPEYINY o Yo QU SIGUIGEEY
, JUIrur Y
ONO RN ===
NNO
NN
N
= a2 NN

042356
042402
042443
042465
042546
042630
042635
042637
42644
042646
042651
042664
042670
042741
042744
042747
042750
042751
049752
042754
042756
042762
042764
042004
043022
043044
043106
043125
043176
043243
043257
043326
043336
043356

123
104
052

MACRO v04.00
QOQOOOUVNCOOWMNIN =S =200
&H =20

041776
042006
042021
042045
042073
042106
042142
042207
042072
042310
042331

TST
[y
elelelel lolet lole]_— b
b ad b wd b O
HOHOOI~H OV WO = NO W =Ny

NN N ~ — e d md o
NN SN
= OV
NRA VNS

d —d

= O000NN
NN —

(ZRMTBO RM0S5/3/2 DR rMPT
ERROR MESSAGES

(Y OR N)

/ BAD SPOT FILE /
/TEST COMPLETE/

CCRLF>/tsxxxananxxnnnn/CCRLF>

/DRIVE NOT ON-LINE OR NOT ASSIGNED/<CRLF>
<07>/PROGRAM HALT/<CRLF>
/DRIVE FAILED ON BASIC READ & WRITE TEST/<CRLF>
/DRIVE FAILED ON WRITE TEST (TEST 4)/<CRLF>
/FATAL ERROR/
<CRLF>/ L' OR *P'
/ ?DRIVE/
/ 1S LOAD DEVICE/

CLOCK REQUIRED ON SYSTEM/<CRLF>

@ ?CANNOT SELECT RMO3/2'S AND RMOS5'S TOGETHER (NOT COMPATIBLE)@<(RLF>

(ZRMTB0O RMOS/3/2 DR (MPT
SYMBOL TABLE

ABASE = 176700

TST

MACRO V04.00

2,5WR = 000000

4-APR-81

N1
18:12:15 PAGE 29-1

CKSWR = 104407

DRIV4

SEQ 0147

004732

EML3

040573

DRVACT
030176
DRVCLR= 000111

EM5
£EM50

036766
041062

ACDW! = 000000
ACOW2 = 000000
ACK
= 000123

AVECT1= 000254
AVECTZ2= 000000
BADSEC
001342

(K.CHR
CK.DEC
CK.DIG

022464
022436
022536

DRIVS
DRIV6
DRIVZ

ACTSTR
ADDWO =
ADDW1 =
ALDW10=
ADDW11=
ADDW12=

030253
000000
000000
000000
000000
000000
ADDW13= 000000
ADDW14= 000000
ADDW15= 000000
ADDWZ = 002000
ADDW3 = 000000
ADDW4 = 000000
ADDWS = 000000
ADDW6 = C00000
ADDW7 = 000000
ADDW8 = 000000
ADDWS - 000000
ADEVCT= 000000
ADEWM = 000000
AENV
000000
AENVM = 000000
AFATAL- 000000
AMADR1= 000000
AMADRZ- 000000
AMADR3= 000000

BIT00 =
81701 =
1702 =
B8IT03 =
BIT04 =
BITOS =
BIT06 =
81107 =
81708 =
81709 =
BIT1T
BIT10 =
BIT11 =
BIT12 =
BIT13 =
BIT14 BIT15 =
BITZ2
=
BIT3
BIT4
BITS
BIT6
BiT7
=
BIT8
=
BIT9

000001
000002
000004
000010
000020
000040

CLKFLG
CLOCK
CLRDPB
CLRQUE
CMCNT
CMCYL

001316
021526
021720
035012
001354
001356

DRVER
DRVINT
DRVQUE
DRVSTA
DRVTYP
DSWR
=

020350
030546
036110
030206
030216
177570

000200

CMTRK

001364

DTUW

030310

ERROR =

CYLIMT

001374

041640

FINISH

000040
000100
000200
000400
001000

AMAMS
1= 000000
AMAMS2- 000000
AMAMS
3- 000000
AMAMSS= 000000
AMSGAD= (000000
AMSGL G- 000000
AMSGTY= 000000
AMTYP1= 000000
AMTYP2- 000000
AMTYP3 000000
AMTYP4= 000000
APASS - 000000
APR]OR= 000000
APT(SU= 000040

BLNKS1
BLNKSZ2
BLNKS3
BLNKS4
BPTVECBUFFER
BUSADR
CFLAG
CHGADR
1
I3
Cl14
CI5
16

042752
042751
042750
0462747
000014
043456
036300
001336
001334
031602
031710
032016
032374
032416

DH2
DH3
DH4
DH6
DH7
DISMNT
DISPLA
DISPLYDISPRE
DONE
DPINT
DPRQS
DRIVE DRIVO

APTSPO
ASNLST
ASSGN1
ASSGN?
ASWREGATARIT

(18
CkBUS
CKCLK
(KCLKT
CkCLKZ
(KCLK3

032532
020640
021234
021330
021376
021420

DRIVI1
DRIVIZ
DRIVI3
DRIV14
DRIV1S
DRIVI6

(kM1

020360

ACPUOP= 000000
ACTDRV
030252

AMADR4= 000000

APTENV= 000001
APTS12= 000200

000100
002006
002010
002012
000000
030312

ATESTN= 000000
ATIN

001326

ANIT

000000

BADTMO 005502
BITO
= 000001

BLKADR

1z
(178

(KERR

(KkHCE

000100

CK.NUM
CK.OCT

CMSEC

000400
001000
000002
002000
004000

COLON
COMMA
CPSAVE
CR
=
CRLF
=

020000
040000
100000
000004
000010
000020

CYLNDR
DCKER
DDISP =~
DEASG
DF 1
DF2

004444

DH1Z2

010000

032432
032454

020572
020370

DF3
DF 4
DH1
DH10
DH11

036466
022410

001362

042754
042646
026252
000015
000200
004616
020300
177570
017070
041760
0461761
041767
0461772
041212
041460
041531

041€02

DTEER
DTYP
DT1
DT10
DT
D112
DT2

004754
004776
005020

020420

001402
041634
041720
041734
041750

D73
DTS
DT6
DT?7
DUMP
DUMP2

041656
041666
041700
0461704
020540
017720

EM12

037160

EMPTYQ
EMTVEC=
EM1
EM10
EM1

EM4L4
EM4S
EM4L6

EMST
EM6
EM60
EM61
ENDX1
ERPRCT1

ERPROC

004506
020460
004576
000141
036164
104406

036070
000030
036576
037062
037125

HALTX
HALT1
HALT2
HCEER
HCRCER

HOUR

HT
HZ
IAEER
IBSAVE
IDLEX
INDST
I0TVEC
ISR
KPATH
KSR
LABAD
LF
LINDEC
LINET

005064
905106
005130
005152
005174
005216

EM33
EM34
EM35
EM36
EM37
EM4

040107
040164
040226
040264
040315
036731

LODEV
LOGO
LOG!]
LOGI0
LOGI1
LOG12

DRIVZ

004666

EM41

DRIV3Z

004710

DRIV17

005240

040011
040054

EM4O

040377

EMe2

040512

040446

104000

FMTDPB
FMTER
GENDPB
GETREG=
GETREQ
GTSWR =

037211
037263
037306
036635
037342
037363
037414
037467
037546
037614
037675
037722
030673
037757

EM31
EM3?

017546

000004
036254
017664
001376
021042

EM13
EM14
EM15
EM2
EM20
EM21
EM22
EM23
EM24
EM25
EM26
EM27
EM3
EM30

004644
005042

041120
037022
041163
041206
011004
017562

ERRVEC=
ES.SAV
FALPAR
FAULT
FILBUF

041221
041303
041334
041376
041407
017016
001156
104414
000174
017744
030226
030236
001224
004622

DRIVY
DRIVIO

040640
040722
041010

LINKDV
LINOCT

023620

043106
043125
043176
020470
020340

001344

000011
001320
020440
024254
017444
004424
000020
032762
016530
021634
015034
000012
021214
021116

021764
021162
043336
001406
001426
001646
001666

LOG13

001706
001726

LOG15

001766

LOG14

001746

TIRMIB0O RM(S/3/0 DR Wt

5 YMBOL

TAB.
t

1062

701446
001466
201506
001526

L 0G4

L 0G5

001546
001566

LOG6

L0G7

< 0G8
LNGY
L O0OP1
LOOP

001606
0016%8

WRORUR)
= — s
s ls

POPOQUE
POSER

PRINT
PROCES

OFFST
L IN
OF
OPlcR

PRTBAD

PRTIM
PRO

- —

NNNONODONOON

PRI
PR2
PR3
PR4

000240
036206
023400
017152
017452
020702
017714
000000
000040
000100
000140

20-2

003356
003374
00341¢
003436
003676
003716
004136
004156
004176
004216
004236
004256
004276
004316
004336
003736
003756
003776
004016
004036
004056
004076
004116
035002
034756
035000
035124
035130
035134
035004
000121
000107
000113
022210

RDNO

RDN7

PRS

PRG

PR7

PS
PSEUDO

PSW

PUNSAF
PWRVE
(
QCNT
QDR]IV
QDRV(
QDRV1

Ve~NOwn

F3IAIAAZAAZIIA

= 177772

PIRQVE=

QDRV?.
QDRV3
QDRV4

—=C

QDRV5
QDRV6
QDRV7

QINPT
QOUTPT
QSTART
QSTOP
QTERM

104413

MINUTE

RONO

RDH

RDN10Q

7 S

RDN11
RDN12

RDN13
RDN14
RDN15

022166
022( \'\)

PFE(H4
PFTSTN

024574

RDN16

RDN17
RDN18
RDN2
RDN3
RDN&
RDNS

= 000010
03G324
000016
000004
000000
000010
000006
000022
000034
000012
000026
000044
000046
030166
000014
000042
000036
030334
000020
= 000024
000040
000032

T A1

QUES

QuUOTM
RDCHR
RDDAT
RDHD
RDUIN

()]

—

o
o~
NG -

—

L OOP

“E:"2:°5 PAGE

PIRQ

NED(LK
NOTST
MA [NE
OFF (0D
OFFSET=

NN NN BN

gg)gy:sr::n::)
E;UJ\AON)OWh

&NN
N

0136
013646

8 12

L-APQ-B°

L 0G3

003316
003336

RMSN

RMTMR
RMVEC

= 000030

034344
030326

RMW(
= 000002
RM.REG
004526
RMOS
031062
RTC
R6
R7

= 000117
=X000006
=X000007

SAVEFG 030264
SAVREG= 104412
033174
SC
SCOPE = 000004
SCORE
014614

scn
SC12
SC13
SC3
SC4

034026
034136
034206
033244
033250

SC6
SC6A
s¢7
S(8
SEARCH=
SECLMT
SECOND
SEEK
=
SEEKFG
SELDRV=
SELFX
SELFO
SELF1
SELF10
SELF11

033456
033572
033720
033776
000131
001370
001350
000105
030266
000145
042630
004356
004360
004402
004404

SELF14
SELF15
SELF16
SELF17
SELF18
SELF2
SELF3
SELF4

004412
004414
004416
004420
004422
004362
004364
004366

< SCS

SELF12
SELF13

SELFS
SELF6
SELF7
SELF8
SELF9
SETFMT=
SETVEC
SET.IE
SIXTEE
SIZmEM

033262

004406
004410

004370
004372
Q04374
004376
004400
000143
007074
035446
001352
007030

(IRMIBO RM0OS5/3/2 DR rmp;

SYMBOL

TABLE

SKIER
SLASH

020510
042756

JPATH
SPOTX
SRCHWT
STACK =
STARS
STARSC
5TART
START]1

STARTZ
START3
STATIN
STIKLMT=
STNDAT
STO
ST01
ST02

S103
STOS
57106
S107
S108
STO9
SVRH70

016620
010636
030250
001100
043022
001360
005566

D05604

005622
005634
001322
177774
005262
034434
034470
034564

034614
034640
034646
034704
034734
034744
035330

1ST
TAB. Xv=
1B8ITVE=
TM
TIMER
TKVEC =
TPVEC =
TRAPVE=
TRFER
TRKLMT
TRNSWT
TRTVEC=

TSTNM
TST1
TST10
TST11
TST2
7573
TST4
TSTS
TST6

1S17

MACRO v04.00
001114
000014

4-APR-81
$AUTOB
$BASE

(O T4
18:12:15 PAGE 29-3
001150
001266

033024
030270
000060
000064
000034
020500
001372

$BDADR
$BDDAT
$BELL
$BUF
=
$COW1
$(DW2
SCHARC

001136
001142
001202
000006
001272
001274
025126

000014
001340
011020
015654
016342
011374
011650
012274

SCLR.T
$CMTAG
$CM3
=
$CMé
=
SCNTLC
SCNTLG
SCNTLU
$COMND=

030246

012772
013344
015140
104405
104401
104402
104404

$CKSWR

$CPUOP
$CRLF
$CyL =
$DBLK
$DB2D
$0820
S$DECVL

001310
001312
(023612
001122
001124
001306
030076
001244

SMAIL
SMAMST1
SMAMS?
SMAMS3
MAMSS
S$MBADR
SMFLG
SMNEW
$MSGAD
$MSGLG
$MSGTY
SMSWR
SMTYP1
SMTYP2
$MTYP3
SMTYP4
SMXCNT
SNULL
SNWTST=
$OCNT
$O0CTVL

001240
001207
000012
026232
027004
027200
027164

S$DEVCT
$DEVM
$DOAGN
$DSPLY
$DTBL
$EMTAB=
$ENDAD
$ENDCT
$ENV
SENVM
$EOP
SEOPCT
$ERFLG
SERMAX
$tRROR
$ERRPC
SERRTB

001222
001270
023554
022366
026222
000022
023544
023512
001232
001233
023456
023504
001117
001131
023662
001132
005367

=
=
=
=
=
=
=
=
=
=
=
=
=
=

w13
Swié
Sw15
swe
Sw3

=
=
=
=
=

020000
040000
100000
0000064
000010

WRT.R4
WRT.RS
WRT.WD
XEND2
XFATL

035324
035326
035224
017146
043243

$ERTTL
$ESCAP
SETABL
SETEND
SFATAL

001126
001200
001232
001276
001214

000100
000200
000400
001000

XXDP
Y
$APTHD
SATYC

001404
042741
001100
025156

$FILLS
$FMT
=
$GAP =
$GDADR

0462635

$ATY3

025140

Swe
=
SWS
=
Swé6
=
Sw?
=
Sw8
=
w9
=
SYSADR

TAB

TABI EX

000020
000040

002014

002054

XPASS1
XPASS2

$ATY]

$ATYS4

010054
012460

025132

025150

$ERRTY

$FFLG
$FILLC

$GDDAT

$GET42

$GTSWR

SRMDT = 000046

$LKS
SLLVEC
$LOOP
SLPADR
SLPERR
SLPVEC
SLSTAD
SMADR1

104403
022340
017654
030254
001330
020530
020520
000151
020310
000153
020450
000161
000163
035226
035136
035222
035314

035320

SLKCSR

023534
001114
000000
000001
023452
026661
026654
0000902

025242

TYPDS =
TYPE
=
TYPOC =
TYPON =
TYPOS =
TYPRI4
UCPAR
ULDFLG
UNIT
UNSAF
WCFER
WwCKD
=
WCKER
WCKHD =
WLEER
WRTDAT=
WRTHD =
WRT.AD
WRT.RM
WRT.R1
WRT.R2

WRT.R3

SRMADR
001276
SRMAS = 000036

001120
025552
001151
001130
001210
025375
001304

001154
000176
017674
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000

= 010000

0
= 000000
$HIBTS
001109

SICNT
SILLUP
$INTAG
S$ITEMB
SLF
SLFLG
$LKCSB

SWR
SWREG
SWIIM
SWQ
SwO0
Sw01
SWw02
w03
Sw04
SWO05
Swo6
Sw07
SWO08
Sw09
Swl
SW10
Sw1l

w12

SEQ 0145

$MADR2
S$MADR3

$MADRS4

001302

001250
001254
001260
001212
001242
001246
001252

SRMBA =
SRM(S1=
$RMCS2=
SRMDA =
SRMDB =
SRMDC =
$RMDS =

000024
000020
000030
000026
000042
000054
000032

SRMEC
1= 000064
SRME(2= 000066
SRMER1= 000034
SRMER2= 000062
$SRMHR = 000056
SRMLA = 000040
SRMMR1= 000044
SRMMR2= 000060

$RMOF =
$RMSN =
SRMVEC
SRMWC =
SRTNAD
SRTRN
$SAVRE

000052
000050
001300
000022
023614
023610
026710

001256
001102
025374
026677
001226
001230
001212
026666
001243
001247
001253
001257
027744
001170
000000
026012
027302

$SAVR6
$5B2D
$5B20
$SCOPE
$SEC
=
$SETUP=
$SIZE
$STUP =
$SUPRS
$SVLAD
$SVPC =
$SWR =
$SWREG
$SWRMK=
$SYSNM=
$TATUS=
$1BIT

$OVER
$PASS
$PASTM
$PHYDR=
$POWER

027730
001220
001106
000015
025560

$TESTN
$TIME
$TIMES
$TkB
$TKINT

001216
021430
001176
001162
022754

001171
000007
000016
001134

SPWRMG
SPWRUP
SQUES
$RDCHR

025534
025452
001206
026524

$TMPO
$TN
$TNPWR
$TPB

001174
000012
027114
001166

023516

$RDSZ = 000001

$TPS

001164

024255

025376
001172

001140

026312

$OMODE

026014

$PSEL = 000003
$PWRDN 025400

$RDLIN

$RESRE

023150

026746

025556
022674
022724
027320
000010
000137
027746
177777
022300
027674
000214
177600
001234
000000
000014
000016
023616

$TERM = 000032

$7KS
$TKSRV

$TPFLG

$TRAP

001160
023004

(001173

030100

CZRMYBO RMOS/3/72 DR (MPT TSY

SYMBOL

TABLE

MACRO v04.00

$TRAP2
$TRK
$TRP

030122
000011
000015

023426
026016
024576
025010

$TRPAD

STTIYIN
$TYPDS
STYPE
$TYPEC
STYPEX

030134

$1STM
$TSTNM

001104
001116

. ABS.

063456
000000

ERRORS DETECTED:

4-APR-81

025130

000
001

VIRTUAL MEMORY USED:
60416 WORDS
( 236 PAGES)
DYNMMI( MEMORY AVAILABLE FOR
70 PAGES
"IRMTB.BIN,{ZRMTB/(=CZRMTB.DOC,(ZRMTB,SYSMA(/M

$TYPOC
STYPON
$TYPOS

SUNIT

SUNITM

D 12
18:12:15 PAGE 294

025614
025630
025570
001224
001110

SUSWR
SVECT1
SVECTZ2
SWRDM =
$XOFF =

001236
001262
001264
000004

000023

$XON

= 000021

$XTISTR
$SGE T4=
SOFILL
LS
=

027336
000001
026013
001100

(ZRMTBO RMOS/3/2 CR (MPT

(ROSS REFERENCE

TABLE

TST

(CREF

MACRO Vv04.00

v01-05

4-APR-81

)

E 12

18:12:15 PAGE

SEQ 0147

18-1

$CHARC
$CKSWR
$CLR.T

$(M3
$CM4

9=-271x
9-813

9-31

$-31

oo oD

9-304
5-818

9-315
9-830

9-320
9-835

9-487
9-239

&=0n

OO~ NSO0OAOWN~n

$082D
$0820

$DBLK

$OECVL

SDEVCT
$DEVM

$DOAGN
$OSPLY

$0TBL

$SEMTAB
$ENDAD

S$ENDCT
SENV
SENVM
$EOP

9-H12
9-H29
17-1
20-1
6-0n
6-04
9-<72
10-1
9-F8IM
17-1
7-0
7-0

5-8
9-31
6-0#
6-0#

9-266

20-1#4
21-1»
17-1
20-1#

9-302*
9-=39
10-1
24-2
17-1#
7-0
7-0

9-36
10-1#
9-36
9-31
10-1#

—

®&

-—

—

«u

[a d

-—

®&

9-500

9-C61
12-1

9-538
9-230
9-(63
12=1

9-:14

Q=: 17w

9-:17

9-.64

9—<41

7=0

7-0

9-868

9-C36
-

-—

[aV]Va) "alA

OO—y[ aPtODO~NO0NO
O ANINO
OOMO OO
eMM
Mmo y N

O Mg

Olwsms

,v04704t7;9

25-%— ARONONONO QNe R4LWA,SU4A ONoMONON (YoNoYReTRV (YaNSVoPR [XYNe3Jo, —NO0ONaOoNnN— 0O Mi@OmtYN ON—e MLokO [L] 1[L} O5MION TP9T2[3Lwan«o) TYC334T o
—

-—

$CyL

9-489+
9-295

9-H66
9-111
7~0
7-0
9~; 13

T0NOxTVORqRITNNM

$CPUOP
S$CRLF

9-268
9-764

i(11BOr—11teL—= MN

SCMTAG
SCNTLC
$CNTLG
$CNTLU
$COMND

S-1

17-14

9-560
9->00

10-1

9-614
9->63

10-14

9-627
9-252

7-0

7-0
9-E4S
11-1

7-0

7-04
10-1#

9-708
9-760+

9-720
9-261

9-745

9-al3

7=0

14=1

9-911

9-914

7-0

9-953

F 12
"IRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
4-APR-81 18:12:15 PAGE S=2
CROSS REFERENCE TABLE (CREF v01-05 )
SEQPCT
9-31%
101
10-1#
SERFLG
6-O#
11-1
11-1
11-1=
22-1
22-1
22-1
22-1

$ERMAX

$ERROR
SERRPC
BERRTE

$ERRTY

NP
SETABL
SETEND

SFATAL

6-0#

9-3
6-04
8-O8

11-1

oo
Zon

9-31«

M11-1
121

12=-1#

25-292+ 25-294+
6-0F
S5-11

6=0n

14-1
6~

1418
13-1

$GAP

7-0

SGDADR
SCDDAT
SET4L2
SGTSWR
$HD
SHIBTS
SICNT.
SILLUP
SINTAG
SITEMB
SLF

6-O
6-O
10-1#
O-H70
L~54
5-11
6-O8
15-1
6-O8
6-08
6-0F

SUKCSB
SLKCSR
SLKS
SLLVEC
$LO0P
SLPADR
SLPERR
SLPVEC
$LSTAD
$MADR1
$MADR?
$MADR3
SMADRS

7-OF
7-0#
7-OF
7-OF
10-1
6-08
6-O#
7-O#
9-92
6-0n
6-0#
6-0#
6=-0n

SMAMS 1

6-0n

SLFLG

SMA]L

SMAMS?

$SMAMS 3

14=-1#

5-11

25-832

25=:18

7-0

7-08

22=1»

11-1

M=le

1=1=

12-1

1T
11-

111
-

221

25-772

1h=Te
13-1

Tb=1v
1321

14=1s

7-0
-

7-0

111+

121

9-237+

“1e

7-0

18-14
4-54

24-1
4£~5¢4

24-1

22-1
1521
18-1
11-1
9-131

22-1
15-14
18-1
111
11-1

22-1

221+«

22-1«

18-1
171
111

11-1
13-1

Me1e

22-1
551

22-1
55-1

201
551

22-1s
55-1e

11-1

13-1

14=1»

9-Dé46e
9-D4O
9-D51
9-D33
10-1#
O-31s
O-31x
9-D43
23-1#

25-830

25-:77

25--81

581

25-:91

23-1»

5-11

6=-0n

9-31

14=1x

-0

9=:66s

9=:69s

9-Dé47+
9-DS6e
22-1
111

9-36

22-1

6-0#

6=-0#

MFLG

14-1

14=-14

14=1x

$SMSGAD
$MSGLG

6=-0#
6=-0n

14=-1
14=1»

14=1»

5-11#

18-1

MSGTY
MSWR

6-0#
18-1

MTYP?

6=~0n

MTYP]

25-8

22=-1

6-04

SMNEW

22-1s

22=1

SMAMSS

SMBADR

221

22-1

6-O#

14-1»

SFFLG
SFILLC

HET

SEQ 0146

6=0n

18-1#
14-1
18-1#

14-1

i
14=1n

G 12

—

CZRMTBO RMOS/3/2 Dk (MPT TST
MACRO v04.00 &4-~APR-81 18:12:15 PAGE S=3
CROSS REFERENCE TABLE (CREF v01-05 )
MTYP3
6-0n
SMT VP4
6~0n
SMXCNT
22-1
22-1
22-1
22-1#
131
C SNULL
6~0x
13-1
13-1
T
SMWTS
9-610#
9-807#
9=-554#
9-£934
9-896#
=<6
9==24A
SOCNT
16=1+
16=1+
$OCTVL
21-1#
$SOMODE
16=-14
16- ) ]
16=1+
6=1
16=1»
, SOVER
22-1
22-1
2222-14
10~
$PASS
10-1+
9=31«
10-1»
10-1
22=1
22=1
SPASTM
$PHYDR
9-235+
9-236+
~ SPOMWER
15-1#
$PSEL
S$PWRDN
15-1
15-1#
SPWRMG
15-1#
$PWR:
P
$QUES
9-124
11-1
6=-0n
11-1
13-1
13-1
18-1
SR2A
264~1
18-14
$RDCHR
241
24=1
$RDDEC
c4-1
$RDL IN
9-H84LH
24-1
24-1
$RDOCT
264~1
$RDS?
18-1
18-14
$RESRE
16-1#
24-1
SRHEXT
25-164
25-193
25-<16
$RMADR
7-0n
9-73
9-159
9-192
9-189+
9-196
26=14
26-32
$RMAS
4-73
L{=724
$RMBA
L{=674
4-68
9-C27
9-C37
9-C52
L~65#
$RM(S1
4-66
9-a51
9-a53
9-C07
SRM(S2
L{-694
4-70
9-C09
9-A30
L(-68#
4-69
$RMDA
9-:10
9-975
9-<01
9-=64
9-=92
$RMDB
4=75
L=744
4-80
(=794
$RMD(
4-71
$RMDS
4&=704
9-A33
9-a55
9-A62
T
SRMD
L-764
=77
4834
$RMEC1
4-84
4-844
$RME(2
4=72
$RMER1
L7148
9-A42
9-A36
9-A39
9-ALS
9-A4L8
9-A51
9-C11
4-83
L(=-82#4
SRMER?
9-A71
9-C13
9-A73
4-81
BRMHR
4-80#
L-734
$RMLA
4=74
L-754
SRMMR1
4-76
4-82
SRMMR?
L-814
L-78#4
$RMOF
4-79
L=774
$RMSN
4~-78
7=-0n
$RMVE
(
9-19Q+
9-74
9-193
9-197
26=23
L{-664
$RMWC
4-67
9-973
9-:08
9-976
1
9-<09
9-<11
9-:
10-1#
SRTNAD
SRTRN
9-31
9-31»
10-1
9-31+
10-1#
15=1
$SAVR6
15-1#
15-1»
15=-1»
15=1»
19-1#
$SAVRE
24-1
24-1
9-D25
$582D
9-D74
9-p79
9-D84
9-H104
$5SB20
9-D09
G=H27H
$SCGPE
9-31
22=14
7=-0a
$SEC
9-356+
9-391
9~560+
9-393+
9-648+
9-658+«
9659

SEQ Char

9->264

22-1

26-36

9-A54

9-AS57

9-=62

9-=65

9-661+

9-909+

9-A60

9-952+

9-A65

9-A68

9-A95

9-=93

G-re?

9=-(40

9-975

9984

G=:"(w

$TKSRY

$TMPO
3TN

9-H39

6-0#4
4=4L5A

9-HLO¥

9-277«
4-54

S$STRPAD
$TSTM
$TSTNM
STIYIN
STYPBN
$TYPDS
STYPE
STYPEC
$TYPEX

2641
24-1

26-1
24~1
24-2
24-1
5-11#
6-0#
9-HB6
24-1
17-1#4
9-F71
13~1
13-1

6-0

6~0
Q==24

22-1
22-1

— =
)

4=1114

9-<26
11-1

B \

4=55

9-815
9-a76

9-a2¢
9-378

nONy
—

—

N'}J'—‘OJ\
]

41110

22-1

11=1

9-H41

13-1

18-1

9-H42*

9-H56+

9-HE9>

9-H71+

13-1

9-278
9-481

9-481

9-481#4
9-896

9-554
9-896#4

9-554
9-<26

9-647+
9=->03~«
24-1
24~1
24=1
24=-14

9-662+
9->04
24~1
26~1
24~1
24-1n

24-1
24=1
24-1
24-14

24~1
264~1
26~1
24-14

24~
24~
2424-1a

24-=1
24-1
241

261
261
24~1

1-1
9-122

22-1
9-1404

22-1

22=1

22-1

22-1+

141
13-14

24=1

9-355+«

9-565+

9-588«

24-1
24=1

24-1
24-1

24~1
24-1

9-<60

241
24=14
242
24-3

10-1+
9-H87

11-1
9-H99

24-1
9-F83

24-1
13-1#
13-1
13-1#

AV,]

—

9-£29

9-896

N —

931

22-1

9-<26+

9-807#

¢-0

936

10~1

9-896+

9-489
9-as2 10-1»

22-1

9-36

9=>26

9-807+

13-1»

13-1
13-1

4=1118

9693+

9-a66

1341

24-1
24-1
242
24-14

4=1114

9610+

13-1
13-1

$TRP

4=1114

9-554»

22=1x

13-1
13-1
24-14
24-14

9-<59%

9-31

22-1+

6-0#
6-0#
9-31
24-1

9-:56

4=1114

9-36

1241
9-t21
9-481+

STPFLG
$TPS
$TRAP
$TRAP2

7=-04

4-1114

9-31

10-1#

20-1#

$TRK

4~1114

9-31
22=1

10-1

9-a49

20-1

13-1

4=111a

4-55
22-1
9-487

$TNPWR

6~-0#

4=55

SEQ 0150

4-55
22-1
9-253

9-807
9->264
20-1

$TPB

9-807

9=:92¢

22-1

SH'WN

9-£22
9-H3o#
9-E30*

=112

111

9-382

9-A27

Q==241

9=->26+

10-1=

18-1

9-5544
9~<26

9-610
9=-<26#

9-610
9-=24

9-6104
9~=24

9~693
9-=24n

9-693
9->26

96934
9->26

9-663

9-665+

9-938+

9-939

9-941»

9-:18+

9-:16

=04
9-72
1%—?‘

22-1
22=1

[}
W

$TxB
$TKINT
$TKS

22-1x

22~1
22=1

1
—@ 00

12-1
9-D704
9-31»

9==z£90
=114
9-31
18-1

22-1

—\N
W

$SYSNM
$TATUS
$18I7
STERM
$TESTIN
STIME
$TIMES

22-1

9-31
4=55
22-1
9-223+
4-65
10-1

non)
—

22-1

6~0#
4-55
22-1
7-0#
4-64n
9-31»
24-3#
6-Oa
9-(98
6-0#

22-1

)

22-1

nJy

$SWREG
SSWRMK

151

ASE

11-1

'
——apsn
oo

—OH0

H 12
(IRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00 4-APR-81 18:12:15 PAGE S=4
CROSS REFCRENCE TABLE (CREF v01-05 )
9-:62
9-<03
9-<13
9-<39+
9-<62+
07«
Gaz34r
Qg
$SETUP
4-111
-'1N
4-111
4=-111
4=111
1"
Lt=111»
4(=1112
9-3
9-31
9-31
9-31
9-31
9-31
9-31
10-1
10-1
11-1
11-1
11-]
1
15«1
18+1
$S1ZE
9-91
23-1#
$STUP
&-111
4=-111
=113
11N
=1
4=111
4&=1114
4=1114
4-1118
4-1110
4111
4-1118
$SUPRS
9-D26
9-F 524
$SVLAD
22-1
22-1#
$SvP(
5-8
5-84
$SWR
(=440
4-54
4=55
6=-55
4=~55
4=55
9-31
9-31
9-31
9-31
9-610
9-693
10-1
10-1
10-1
10-1
11-1
11=1

13-1
13-1

9-=01«

24-1
24=-14
24-2

24-1#

24-14

2641

241
241
24-10

261

241
241
24-m

(ZRMTB) RMOS/3/2 DR (MPT TST
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )
$TYPOC
16-1#
24-1
24=1

$TYPON

$TYPOS
SUNIT
SUNITM
SUSWR
SVECTY
SVECT?
SWROM

SXOF F
$XON

SXTSTR
LSASTA

.3X
ABASE

ACDW1

A(DW?
ACK

16-1

16-14
6-0»
S5-11#
6=0n
6-0#
6-0#
7-On
9-293«
13-1
13-1
22-1#
141
5«11
4-108¢
6=0

6~-0
4=

ACPUOP
ACTDRV
ACTSTR
ADDWO
ADDW1
ADDWIO
ADDW11
appwil2

60
25-93#
25-99#

ADDW?2

6-0

ADDW?7

6-0

ADDW13
ADDW14
ADDW1S
ADDW3
ADDW4
ADDWS
ADDW6

6-0
6-0
6-0
6¢-0
6-0

ADEWM

6=-0

AFATAL

AMADR1
AMADR?
AMADR3
AMADRG
AMAMS 1
AMAMS?

AMAMSS
AMAMSS
AMSGAD
AMSGLG
AMSGTY
AMTYP]
AMTYP?
AMTYPY

9~353%
9~(23
1313-1

9=562+
9-(38

141
S-11#
6~0
6-0
6~0
25-347+
25-988+

6-0

6-0
6-0

6-0

6-0
6-0
6-0
6-0
6-0
6-0

6-0
6-0
6=0
6-0
6=0
6~0
6-0
6-0

9-626%
9~(70

9=908%

25-691x

25-699+

I 12

18:72:15 PAGE

9=976x

18-1

6~0

6=-0

6-0
6-0
6-0
6-0

6-0
6-0

AENV
AENVM

24=1

6-0
6-0
6-0

ADDWS
ADDW9

ADEV(CT

16-'#»

24-1
7=V

4-APR-81

6-0
6-0

6-0
6-0
6-0
6-0
6-0
6-0

6=0
6-0
6-0
6-0
6~0
6-0
6-0
6-0

25-398+
25-:02+

25-086

9=983+

S-5

9=:11a

9=:63

9ec1]

Gec37¢

SEQ 0151

9e_33e

Ge-gS5s

9e_gBe

CZRMTBO RMOS5/3/2 DR CMPT TST
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )
AMTYP4
6-0
6-0

APASS
APRIOR
APTCSU
APTENV

6~0
6-0
13-1
11-1

APTSI2
APTSPO

9-3
13-1

ASSON1
ASSGNZ2
ASWREG
ATABL T

7-0#
70«
6-0
2—658

ASNLST

ATESTN

7-0O#

131
14=-14
161
9-75
9-225+

9-226*

6-0
2-628
-

161

14=-1»

9-135

9-238

25-145#

9-33

4-58

4-584

11-1

4-58#
4-58#4

4-58#

BITO1
81102

4-58
4-58

28-12
6-0
6-0
6~0
6~0

9->55+
9->59

4-58#
4-58#

9-"28
9-219

9-251

22-1

9-A27
9-A27

25-849
9-A39

25-:71
25-885

9-£30
9-a66

9-H62
9-A42

25-328
25-328

4-58%
4-58#
4-58¢
¢-58%

9-437
9-@76
9-az4
9-ar2

9454
9-A54
9-A57
9-A6s

BITI
BITIO
BITI1T
BITIZ

4-584
4-58%¢

9224+

9-726

25-410

9-244

9-250

9->60

_
25-515

25-895

25-923

25-931

25-932

25-954

25-<42
25-865

25-885

25-927

25-<(C3

9-206+

25-390

4=-58#
4-58#4

4-58
4-58

9-290

9-a80

4-58
4£-58

BITO8
BITO9

25-318

11-1

BIT06
BIT07

4-584

9~ 714

25-865

9-A36
9-a78

22-1
11-1

25-655

25-328
11-1

‘

22~1

25-381
25~590

25-454
25-711

25-734
25-849

22-1

25-:39

9-A62
22-1
10-1

11-1
25-281
25-275

25-657
25-417
25-309

25-618
25-328

25-972
25-392

25-425

25-608

25-653

25-669

25-875

25-877

25-387

25-422

25-805

25-965

25-:75

25-:21

25-657

25-7%

BITI3
BITIL

4-58¢
4-58#

9-A45
9-3%3

9-A71
9-355

9-F81
9-aB0

11-1
9-A30

25-375
9-A33

25-820
971

25-:14
22-f

BITIS

4-58¢
25-849

9-351
25-865

9-A73
25-875

9-A95
25-885

25-375
25-965

25-387
25-:39

25-390
25-:75

25-392
25-:83

25-422

25-425

25-618

25-655

4L-584

9-A48

9-398

9-:66

9-108
9-259

9-222
9-325

9-252
9-329

9-303
9-507

9484
9-769

9~718
6-840

9=746
9-(54

9-310
9-(99

9-263
26-18

9-a20
26-27

29-30»

9-323
29-274

29-28#

9~351
26-13#

9-377

9-380

9-563

9-624

9-912

9-956

9-985

9=<dé

9=-x36

29-52#

BIT?2

BIT3

BIT4
BITS
BIT6

L(-58#

4-58#
4-584
4-584

9-a82

L4-58#

9-387

BITO9

L{-58#

9-A60

BIT8

BLKADR
BLNKS1
BLNKSZ

BLNKS3
BLNKS4
BPTVEC
BUF FER
BUSADR

4=5S8#

7-0#
9-149
29-29#

9-a15
9-a36
L=-58#
7-0
9-191

25-:83

9-A51

BIT?7

25-:51

6-0

4-58
4-58

4-58

9 =212

28-13

817103
BITO4
81105

9-210

9-298
9-258+

9-3#

BITO0O

SEQ 015¢

14=1#

9-286+
9-741

BADTMO

BITO

S=6

14-1#

7-04
6~0
6=0
4-1094
6-0

7-0#

J 12

18:12:15 PAGE

6~0

ATTN
ANIT
AUSWR
AVECT1
AVECT2

BADSEC

4&-APR-81

K 12
P~
T
MACRO v04.00
4&4-APR-81 18:12:15 PAGE S=7
TaR
(CREF v01<05 )
9-£20+
9=H55+
9=]15«
Y-85e
9-£23
924+
9-20~
9-16+
9-176
9-242
9-283

(ZRMTBO RMOS/3/2 DR

CROSS KEFERENCF
7-un
CFLAG
CHGADR
7~Jn

Cl
Cl
Cl
Cl
Cl

ooa NN

Cl
Cl
CK. CHR
(k.DEC
(x.DIG
(k. NUM
(k.0CTY
(xBUS
CKCLK
(kCLK]

CkCLK2
CKCLK3

CKFRR
CKFMY

(KHCE

(KSWR
CLKFLG
CLOCK
CLRDPB
CLRQUE
CMCNT
(MCYL
CMSEC
(MTRK
COLON
COMMA
CPSAVE
(R
CRLF

CyLIMT
CYLNOR
DCKER
DDISP
DEASG
DF1
DF2
DF3
4
DF
DH1

DH10
DH11
DH12
DH2
DH3
DH4

DH6

DH7

25-444
25-446
25-438
25~494
25-534
25-377
25-567
25~623
25-626

25-602#
25~492
25=-6084

SEQ 0153

25-501
25-715

25=510
25-910

25-514
25-<15§

25-526

25-533

25-539

25-543

25-557

25-563

9->G7

9-678
9=-6724r
9-.73
9=211»

9-676
9=<07%
9-214

9=<13¢
9-226

Q=¢15«
9-a11

11-1

11=-14

11=1r

11=1«

12-1

22-1

22-1+

9-36
29-¢5

9-50
29-26

9-61
29-36

9-67
29-36

9-68
29-37

9-141
29-41

13-1
29-42

13-1
29-43

29-4
29-45

29-7
29-45

29-8
29-48

9-G36#
9-Gl4a

9-G67#
26~21

9-156
9~-a358
9-100
9-D38
9-DSO
G-D48
9-a57
9-A41
9=-A44
11-1
7-0n
9-D44
9-109

25-215
7-0n

7-0On

7-0n

7-0#
9-D77
29-21#
111

4(=58#
4=58%

29-10

7=-0#
7=-0
9-A70
4-584
9-250#
8-7
8-14
8-21

8-28
8-5
8-56
8-63
8-70
8-12
8-19
8-26
8-40
8-49

9-D6LH

22=1
9-D4 1~
9-D914

25-<9%4n
9-672*
9-646
9~668+
9->91
29=-31»
111
13-1
9-36
29-24

9-31

28-22#4
28-234

28-2#4

26-14
9-D52*

9675+
9-671+

9-:41

9-D70

L 12
CZRMTBO RMOS5/3/2 DR (MPT TST
MACRO v04.00
4-APR-81 1B:12:15 PAGE S-8
CROSS REFERENCE TABLE (CREF vO1-0S )
DISMNT
9-229
9-2354
DISPLA
9~31
9=-31+
11=1e
6=-0#
22-1+
DISPLY
9-a89
9-a95
9-A01
9-AQ7
9-A13
9-A18
9-A89
9-A97
9-832
9-838
9-844
9-850
9-B56
9-B62
9-867
9-873
9=-(61
9-(99
9-(63
9-(96
9-D12
9-~F60
24=~2#
DISPRE
S5-1#
9-31
9~268
DONE
9=A27H

DPINT
DPRQS

ORIVO
DRIV1
ORIV10
ORIV1i
DRIV1Z2
CRIV13
DRIV14
DRIV15
DRIV16
DRIV17
DRIVZ2
DRIV3
DRIV4
DRIVS
DRIV6
DRIV7
DRIVE

25-614
25~70#
7-0
7-0
7-0
7-0
7-0

7-0#

9=-143+
9-622
9-296

25-30#
25=:44%
9-8104

DSWR

DT1
DT10
DTN
D112
D12

D13

DUMP2
EM1

9-811
9-891

9-817
9-C15

25-957+

25-:30
25-:32

25=:53
25=:55

25-:59
25-:61

25=:69*
25=:79«

9-823

9-~(29

9-RB27

9-(54

25-247
25-4 1=

25-357

25-789
25-628r

25-816
25-645

25-955
25-663+

9-158«
9-701
28-13
25=371

9-186
9-761~
28-14

9-206
9-781

9-228
9-832+

28-17
25-630+

9-238w
9-852

9-317+
9-907

9-321
9~:47

9-338
9-:59

9-350
9-;14

9-499+
9-:16

9-<40

9--38

25-643

25-662+

25=704+

25-812

25-847

25~879+

25-887+

25-907

2 5-448+

25-792

7-0%
7-0#
7-0#

DRVTYP

DTYP
bump

9-B05
9-B85

7=-0n

DRVCLR
DRVER
DRVINT
DRVQUE
DRVSTA

DTEER
DTWW

7=0#
7-04
7=-0n
7-0n
7=-0#
7=-0n
7-0#

9-A%9
9-879

7-0#
7-0x
7-0n
7-0#

DRVACT

DT4
DT6
D17

25-244
25-363

SEQ 0154

9-A67
O=; 142
25-:19

9-A90
9-868
9-a90
8-4

25-551«

28-15
25-599x

9-503

9-526

252694
25-379
9-527
25-361

25-359
25--344
9-782
25-385

25-944

25-958

25-419

9-853

25-404
25-423

25-225+
25-552*

25-226+
25-683+

25-227+
25-795

25-228+
25-803

25-238+
25-818

25-270+
25-873+

25-280~
25-880+

25-324*
25-89%6

25-330«
25-960

9-343
25-292*
6-0
28-12#4
28-18#
28-194
28-204

9-345
25-297+

9-529
25-302+

9-533
25-388

9-536
25-684+

9-784

9-786

9-788

9-855

9-859

9-862

25-52#

25-271«

25-221

25-440

25-493%

25-637+

25-648

25-664

25-666*

25-677+

25-694

25-705+

25=:35

25-:47w

9-531
9-800
9-B80
9-A02

9-786+
9-806
9-B86
9-AC8

9-857
9-812
9-892
9-A14

9-818
9-8944
9-A194

9-B24
9-(16

9-B28
9-C3C

9-833

9-B39

9-845

9-851

9-857

9-863

8-34
28-144
28-15#
28-164
28-174
9-8374
25-1394
9-343«
9-A98
9-874
9-396
27-3#

9-31

28-13#

CZRMTBO RMOS5/3/2 DR (CMPT

CRO>S REFERENCE

TABLE

EM2?2

27-17#4

EM10
EM11
EM12
EM13
EM14
EMIS
EM2
EM20
EM21

EM23
EM24
EM2S

9-a95
9-A01
9-a89
9-A07
9-A13
9-A18
8-11
9-805
9-A89

9-A99

9-A97
9-817
9-823

EM26
EM27
EM3
EM30
EM31
EM32
EM33
EM34
EM35
EM36
EM37
EM4

9-862
9-867
8-18
9-811
9-B32
9-838
9-844
9-885
9-850
9-856
27-304
8-25

EM41
EM&2

9-C29
27-334

EML4
EM4S
EM46
EM5
EMS0
EM51
EM6
EM60
EM61
EMPTYQ
EMIVEC
ENDX1
ERPRC1
ERPROC
ERROR
ERRVEC

9-C15
27-364
27-37#4
8-32
9-879
9-827
8-39
9-891
27414
25-627
4-58#
9-300
9-367
9-a50
4-584
4-58#
22-1
26=37%
25-772

EM4LO

EM4L3

ES.SAV

FALPAR
FAULT
FILBUF
FINISH
FMTDPB

9-873

27-344

9-a77
7-0#
9-567
10-1
7-0#

9-583
9-982

g—<2g

TST

(CREF

27-#
27-10#
27-11#
27-12#
27-13#
27-14n
27~4N
27-15#
27-16#

MACRO V04.00

v01-05
)

4-APR-81

M2
18:12:15 PAGE S-9

27-18#
27-19#
27-20#

27-21#
27-224
27-54
27-23#
27-24#
27-25#4
27-264
27-27#4
27-28«#
27-29#4
27-6#

27-314
27-32#
27-35#

27-74
27-38#4
27-39%#
27-84
27-40#4
25-682
9-31»
9-371
9-a724
9-a54

25-735
9-31»
9-4634
9-a56

9-3664

9-31
20-1*
26-44*
25-B30

9-31«
22-1+

9-31»
22-1+

9-33«
22-1+

9-34
22~1»

25-832

25-;18

25-;77

25-=90#4

9-365+
9-652
9-:50

9-366
9-654
9-:52

9-A00#
9-753+
9-<46
10-3#
9-349

9-621
9-990

g—<;§

25-:84
9-795

9-a07+«
9-C68#

10-3

9-360
9-644
9-993

9-362
9-650
9-:45

3-<?g

25-=19#

9-<50

9-<52

9-<77

9-D38*
23-1

9-D39+
23-1

9-D50+
23-1»

9-D64*
23-1«

11-1
23-1~

11=-1~
23-1x

11-1»
26~34

22~
26=35+

9-389
9-905
9-:57

9-400
9-927
9-:72

9-557
9-929
9-:74

9-569
9-931
9-:79%

9-571
9-951
9-;12+

9-573
9-959
9=;13r

9-579
9-961
915

9-581
9-963
9-:56

9-<79

9-<&1

9-<89

9-<N

9-=32

9-243

9-245

9~ 47

CZRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )
FMTER

GENDPB
GETREG
GETREQ
GNS
GTSWR
HALT
HAL T2

HAL TX
HCEER
HCRCER

HOUR
HT
HZ

1AEER
IBSAVE
IDLEX
INDST
IOTVEC
ISR

K JPARQ
KPATH
KSR
L ABAD
tF
L INDEC

L INET

L INKDV
LINOCT
LODEV

LOGO
LOG1
LOG10
LOG11
1L0G1?2

4-APR-81

L OOP3

L 00P4

L 0OPS
LOOP6

Lt STAD
M.DP4LO

M_DP41

5-10
SLO 015¢

9-861#
7-04

£-98%

25-412

5=1
24-1
24~1
9-36
9-593
9-683
9-594
9-B67#
9-A38
7-0%
L{~58%

7~-0n
9-A56
11-1
9-308
7-0a
L(~584

25-230
23~1

9=->65#
9-E18#
9-965
4-58#
9-D24#
9-C9N
9~(43
9-(56
9-167
7=-0#
7-08
7=-04

25-650
5-1
264~1
24~1
24-1a
29=420
29-434
9-684

9-B04H
9-82+
9-237
9-81
9-8494
11-1
9-490
9-77
9~31x
25-691#

9-995
13-1

242

25-799
9-36
241
24=2

25-838
9-50
241

25-909
9-61
24-1

9-A22

9-A83

9-H58

29-414

9-E02«
13-1

9-£03
26-18

9-EQ5+
29-19

11-1

1M1-14

9-:904
131

9~ 49

9=-=77

=95«

9-6+

25-725
9-6

24+-1

9-D93
9-696
9-136
9-31+«

9-751
9-.66

9-816

9-E50#

9-D08#
29-47H
9-613%

LOG13

LOG14
LOG15
LOG2
LOG3
L 0G4
LOGS
LOG6
LOG?
LOG8
L 0G9
L OOP1
LOOP2

N 12

18:12:15 PAGE

9~:25
9-:16
9->11
9-210
9->81

9~92
9-F03
9-E94n

9-:21

9-227
9-2054
9-93

9-736

25-964
9-6/
24-1

11-1+

9-au2n

25=:7¢
24~1

11=1+

11-1+%

25-:80

24=1

2« =1

25-2554
24-1
24-1

“IRMTB0O RMOS/3/2 LR (MPT

"ROSS REFERENCE
M.DP4?2
9-£93

M_DP4L4

M.DPSO

9-f 05
9-£80
9-€57
9-989
9-a37

25-157#
9-145

TABLE

TST

(CREF

9-E98s
9~F 104
O~F i4#

9-E71#
9~-05#

29=-19#
25-.01
9-266
9-543
9-A78
9-238

9=-244

9~-826
29-134
29=144

MACRG v0«.00

v01-05

9-<88

25~:47

9-%13

4-APR-81

B8 13

18:12:15 PAGE S-11

9-=72

9-495
9-869

G-757
29-7#4

9-763

9-834

29-4a

9-494

9-756

9-827

29-234

9-770
9-772
9-p78

9-841
9-843
9-D98+

29-5#
29-64
9-D99

9-€01~

9-168

9-173

9-281

9-ac’
9=:24c

9-a30
9-:47

9-794
29-8#

SEQ 0157

9-828

29-1#

29-5#
29-10#
29-12#

29~15#
29-16#

29-34n

9~247
29-35#4
29-37#
9-493
9-501
29=22#
9-312
29=244
9~508
9-510
9=-83»

9-2064
9=2424
9-157
9-196#

9-2104

29=-2#

29-3#4

9-239

26=4#
26-50#
25-503
29-264
29-454
9-865
9=>62+

9-950

=41
9=-A12#

9-831#
25-408#
9-899

9-a34r
9-.45

9-338¢
9-:51

9=-<?752

9-<96

9->73

9->77

9->87

9-212

9-=70

25-729
9-:55

25-936

9->58

25-978

9->69

9=<99«

9~z05+

9--12+

Qez31e

9->08

(e avT80 RM0S/3/2 DR (MPT TST
MACRO v04.00
(ROSS REFERENCE TABLE (CREF v01-05 )

OVWN1&G
OVWN15
OVwN16
OvWN17
OVWN18

7=0n
7=-08
7-0#
7-0#
7-0w

OvwN3

7=-0#

OVwWN2

OviiNG

7=0#

7=0n
7=-08
7=0#
/=QN

CvwP1
ovwP10
owP11
OvwP12

7=0n
7-0n
7=-0#
7=0#

7'0‘
7=0#

OvwP13

7=-0#

OVwP15

7=0#

ovVWP14

ovwP16
OVWwP17
OVWP18
VWP
ovwP3
NVWP4
DVWPS
OVWP6

PARER

9-A50

PFECH
PFECHT
PFECHZ
PFECH3
PFECHG
PFTISIN
PIRQ
PIRQVE

12=1
12-1
12-1
12-1
12-1
12«1
(=584
4L-58#

7=-0#

POPQUE
POSER
PRO

25-421
9-827#
4-58#

“R3

4-S8#

PRS

“«-S8#

PR1
PR?
PR4

PR6
PR7
PRINT
PROCES
PRTBAD
PRT M

9-:52

9=->69

=619+

9-645

9=D37+

9=D42o+

9~>87

7=0#
7=0#
7-0#
7=0#
7=0#
7=0n
7=0#
7=-0#

7=04
7=0n
7=0n

PCLOCK

[}

7=0n

ovwP?
OvwrP8
ovwP9
PACK

SEQ (-

7=0#

OVWNS
OVWNG
OVWN?
OVWNS

OVWQ
OVWP(

Cc 13
4-APR-81 18:12:15 PAGE S-12

9-B434

12=-1#4
12-14
12=1#
12-1#
12=-1#4
12-14

12=1x

25-472

25-589

25-891

25-926

25-970

25--70#

9->79
9-932

9->85
9-964

9->89
9-994

9->95
9-<53

LS8
«w~58#
4S8N

9-£19

L-58#
(-S8#
9->67
9-574
9-390
9-a83

9-34

9=-H40

9->71
9-584
9-401
S-a17#

9->75
9-655
9-(34n

9-201
9-<82

9-789#
9-<92

9- 48

9- 76

9-wl B

"IRMTBO RMOS/3/2 DR (MPT

"TROSS REFtRENCE

PSEUDO
PSW

PUNSAF
PWRVE
(
QCNT
QAR]IV

QDRVO
QDRV1
QDRV2

QDRV3

QDRV4
QDRVS
QDRV6

QDRV?

QINPT
QOUTPT
QSTART
QSTOP
QTERM
QUES

4~58

25251
7-0#
4(-S8#

9-a73

LS8

25~<53#

9-165
25-<60

25-<63
25-<63
25-<63
25-<63
25~-<63
25-<63
25~<63
25-<60#
25-<67#
25=<72n
25~<734
25-<80
29-33#

9-146
4-58#
4L(-S84
25-;03~

25-283
25-,68
25=:054
25-;01+
25-:12

25=:17

25-.07#
9-276
4=105#
4~106#
9-152
7=~0n
7-0#
7-0#
7-0n

TABLE

TST

(CREF

9-629

9-388#

9-31s
25~<95
29-4L6N
25-<67
25-<70
25-<70
25-<70

25-<70
25-<70

25-<70

25-<70
25-=21
25=-=21+
25~-=01
25-=40
25-<87#

HACRO v04.00

v01-05
)

9-916

9-31+
25-=19»

25-<72
25-<73
25-<74
25-<75
25-<76

25~<77
25-<78
25-<79
25-=38+«
25-=59
25-=06
25-=75

9-:55

25-399s

151«

25-:34n

25-.08
9-H4L9
9-357

28-14

9-H67

25-213

25=214%

SEQ 0159
25-243.

25-<86#
25~<86#
25~<86#
25-<86#4
25-<86#
25-<B6#
25-<86#
25-<B6#
25--39=
25-=72
25-=42

25-240
25-273«
25-277

25- 42*
25-=74~

25-=75

25-=77~

9-314

9-316

9-496

9-498

9-758

9-760

9-829

9-831

29-20#

25-561

25-575

25-713

25-767

25-841

25-851

25-867

25~:22

25=;01m

9-774
9->34

9->73

9-845

9-246

24-1#

26=-19

26-28

9-H89
9~:11

28-15
24=14
9-=35

9-331

9-900

9-512
9=:49

9-722
7--27

9-;47

9->32

9~>77

7=-0n
7=-0#
7=-0#
7=-0W
7-0n
7=-0n
7=-0n
7=0#
7-0m
7-0#
7=0n
7=-0n
7=-0a

7=-0m

7-0#
7=-0n

15-1»

9-F 69

15=1e

28-14
25-537

25-:24

9-F68

15-1+

25-,; 064
25-319

25~; 364

15-1=

9-E31e

25-=70+

25=:;04~

25-;324

15-1»

25457+

9-£19e

25-=56

9-269
9-31»

25-<07

25409

9=:65+

25-=36+

9-267
9=31=

25-;74
25~:33

9=:56+

D 13

18:12:15 PAGE S~13

25-=34

9-148
9-31

25-313

4-APR-81

25-;54

(ZRMTBG RMOS/3/2 DR (MPT TST
MACRO v04.0C
1 ROSS REFERENCE TABLE (CREF v01-05 )

RDP1

RDP1(Q

RDP"1
RDP12

RDP13
RDP14

RDP15S

RDP16

7=04

7=0n

7-0#
7=0n
7-0#

9-=29

7=0#
7-04

7-04

RDP8
RDPS
READIN
RE CAL
RELSE

7-04
7-08
«-95#
4-90#
L=92#

RESREG

22-(?%

22-527

RESVEC
RM.REG

4-58#
7-0

9-31
7-0

REPLZ

RMOS

RMADR
RMAS
RMBA

RM(CS1

SEQ 0160

7=0#

RDP&

RDP?7

9-D75

28-17
9-359
9-73x

25-:20

25-180#
9-:64v

9-p80

28-18
9-568

9-305*

25-;03

25-318+
25-1754

9-D85

9-E60
9-31»
7-0#

28-18
9-578

9-521%

25-;09

9~F 254

20-1

G=31«
9-352

28-18
9-649

Q-7({8+

25-;13

21-1
9-564

28-18
9-926

O9-823«

25-;27

24=14

25=252

25-393

25-396

25-458

25-68¢€

25-698

25-:01

25~<26

9-625

9-913

G=-957

9-986

9-<45

9-=37
28-19

28-17
28-20

25-<37

25-352

26~33

25-475
28-16

28-17
28-20
25-3454
25-496

25-518

25-693

28-18
9-958
§-:58

25-:60

25-417

25-49

25-513

25-556

25-576

25-587

25-604

25-625

25-415%

25-476%

25~497%

25-519«

25~<38+

25-608
25-<43

25-653

25-669

25-680~

c8-13

28-13

25=616*

9-:60r

25-177#

25-2353+

25-273%

25-275

25-365¢

RMDA
RMDB
RMD(
RMDS

O=-:62%
25-182#¢
9-:61+
25-178#4

25-176#
25~<01
25-1874
25-314

25-48B3

25-509

25-525

RME(C

25-191#

RMDT

25-1844

25-28B4

25-827

25-939x

25-858

25-953«

25-903

26~:21%x

25-972

25-:5§

25-:10

25-:;65

25-532
25-940

25-852

25-941

25-:69

25-805

25-810

25-820

25-940*

25-941+*

_
25-942+«

25-943+

28-13

9-998

9-<27

9-<56

9-=52

9--80

9-w59

9-R99

25-2124

9=522¢«
25=346

9-£96*

9=697%

9=74(9»

9-751»

9-752+

9-816

9-817w

25-:23

25-<11
25-320
25-942
25-216

RMINIT
RMLA

9-335
25-181»

9-523

9-778

9-849

9-935

9-968

2S-189#
25-1864
25-185#
9-E07
Q=74+
G-824c
9=:632

25-943
25-311

25-538

25-542

25-562

25-566

9-309*
25-1634

9-490%
25-229

9-49iv
25-231

RMTMR
RMVE

RMW(

25-183#

25-986#
9-306%

9=-236+
25-174(a

25-<03

25-500
25-868

25-192¢
25=-1794
25-190#
5%—%33’

RMMR?
RMOF
RMSN

25-;97«

25-487
25-842

RMEC?
RMER1
RMER?
RMERRS

RMMR1

9- 42

25-:50

25=-307

25-839%

25-:96

25-232

28-19
9-<76

25-954

25-281

25-712+

25-:64

25-162%

28-19
9=-<47

25-931x

25-274*

25-768

9-:;17

28-19
9-:71

25-895+

25-1734

25-714

28-19
9-:49

25-765

9~.22%

AMCS?2

S~14

7-0#
7=-0#

7=0n

RDPS
RDP6

E 13

18:12:15 PAGE

7=-0n

RDP1?7

RDP18
RDP2
RDPY

4-~APR-81

9-308*
9-737+

CZRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

RNOP
RSTART
RT(C

SAVEFG

SAVREG
SC

st
SC12

SC13
SC3

SCs
<5
SC6
SC6A
SC?7
S(8
SCOPE

SCORE
SEARCH

SECLMT
SECOND
SEEK
SEEKFG
SELDRV

SELFO
SELF1

L-88y
7-0n
10-11
L=94N
9-101»

25117«
9-(68

26-13
25-697
25-840
25~801
25-791
25-780#
25-783
25-781

25-813
25-811
25-850
25-828
4L-S3#
9-972
L=-97n
7~0n
7-0n
4894

9=-337.

25217

4L=-100#
7=-0#

7-0#

9-11

9-336*

25-591

9-£18

9=18x

9524

25~-718
9-ES0

4-APR-81

F 13
18:12:15 PAGE S-15

SEQ 0161

9~19+

923+

9=465

9-540

9=595

9-685

9-8646

9-A23

9=-A84

9=D&2

9-+59

9=727G+«

9-850r

9=-934«

0=969+

9-999%

9=28t

9=<S57*

9=z53e

YozFle

9=gh0*

9=C00*

25-640

25-692

25-989

25-:93

25-<94

25-9¢28

20+

21-1

24=1#

25212

25-348

25-408

25-765#
25-848
25-814
25=-794
25-785
25-817
25-789#
25-835#
25-8614
25-864
25-843

25-8%1

25-833

25~884

25-905

25-917

25=937

25-979

25-B66
25-853

25-876
25-859

25-887#4
25-869

25-904

25-9074
9-896

25-948
9~<26

9~-=24

9=>26

984«

9-D83

9-D94x

9-D9S

9=-D97

9~525%

9-780r

9-851+«

9-937«

Q-970w

9-:00%

G=<29r

9=<58%

9=~_S54r

9-<3?2

9-<70

9-=08

9->31

9->3%

9->93

9->99

29=174
25=277

25-3B3

25-456

25-685

25-773

25-<36M

9=-81¢

9=-D91r

9=DPY3»

9-481
9-:07

25-642

25-9194
25-939#4
25-950#

9-554
9-:408

9-610
9-261

9-693
9-=89

9-807

7-0a
7-0m

7=-0n
7-0#
7-0n
7-0n

7-0n

7-0n
7-0#
7-0#

9-916

25-246
SETVEC
SIXTEE
SIZMEM
SKIER
SLASH
SPATH
SPOTX

4~99#
9-100#
7-0#
9-89#
9=A76

29-32#
9=->64
9-382

9-<34

9-R78#

9->83#
94194

G==82¢

G-@ble

F=(0le

25-125#

“IRMTBO RM0OS/3/2 DR C(MPT
ROSS REFERENCE

SRCHWT
STACK
STARS
STARSC
START

25-87#4
(~58#
10-9
7-0#
5-1

START?

5=§

STARTY

5-3

START3
STATIN
STRLMT
STNDAT
STO
STO1
STO2
<103
STOS
ST06
ST07
ST08
STO9
SVRH70
SwO

G=-17
7-0O#
4-58#
7=0n
25-996
25=:30#
25-:29
25~-:52
25~:664
25=:54
25-:56
25-:76
25-:27
<5-593
L-58#

Sw01

4-58

SWO3
SWO4
SWO5
SWO6

4L-58
(=58
4L=58
4L(-58

Sw(8
SwOS
Sw1
Swi0

4-58
4-58
L=58#
4L-58%

SW0O0

Sw0?2

SW0O7

SWi1?

Swi12
SW13
SW14

SW15S

Swe

Sw3
SWé

{-58

(-58

(=584

4-58#

L{-584

L-S8a

(CREF

25=410
9-31
29-364
F=~.41
9-154
9-194
9=234
9-21

MACRO v04.00

v01-05

)

25=515¢

2€-923

9-,65

9-<03~

9-79

9-483

4-APR-81

25-932+

G 13

18:12:15 PAGE

S-16

SEQ 016

9-556

9-612

9-695

9-809

9=264

9-(72
25=:16#

9-(80

%
25~:
25~:59#

25-:33

25=:504

25-:48
25-736

25-:57
25-800

25-:62
25-855

25~:64
25-874

25=:67
25-930

25-:74
25:966

9-31+

9-31»
11-1

9-31x
15-1

9-36
15-1»

9-387
18-1

18-1

9-305

9-306

9-521

9-522

25-:69#
25-:78#
25-:84#
25~:37
25-720

9-898

25=:86#
25~-:85

25~:93»

9-398
18-1+

9-(91
22=1

9-(9¢
22-1

9-748

9-749

9-823

4-58#
4-584

4-584
4-58~
4-584
4-584
4-584
4-58%4
4-58#
4-584
9-CN

9-(9¢%

L-58#

L~584

L{-58#
L=-58#

SWS

4-58#

SW6
SW7
Sw8
S
SWR

4(~584
L(-584
4L-58#
L=-58#
6=-0#

11-1

SWREG
SwTIm
SYSADR
TAB

TAB. XY
TABLEX

4-58

TABLE

TIST

TVE

22-1
S5-1#

9-a79
7-0#
9-a12

S5-12#
7-0#

4(-58#

9-31

11-1

22-1+

9-31
9-A06#
9-183
9-317
6~0
9=-62¢

9-%1+

9-31

11-1

1141

22-1»

9-36

22-1+
9-H61

9-196+
9-a26

9=-197+
9-233

9-: 80

9-31+

22-1»

29-18#

9-F 81

22-1

-804

9~H61
22-1

10-1

22~

{JRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )
1D
25=-704»
25-696

TIMER

TXVEC
TPVEC

TRAPVE
TRFER
TRKLMT
TRNSWT
TRTVEC

TST1

1ST10
ST
TST2

1813

1ST4

1STS

15876

T1ST?
TSTNM
TYPDS
TYPE

9-;20¢

25=:71e
(-S8#
(-S8#
4~S8#
9-A3S
7=0#
9-226

G«~:15+
4-58#
$-403
G==24»A
9=>264
9-554#
9-591
9-681

9-807#

9-8964
9-~:26
7-04
9-al1
9-6
9-165
9-310
9-329
9-500
9-682
9-762
9-830

9-235

9-12
9-A77
9-H57
9-131
12-1

TYPOC
TYPON
rypPos

TYPRI4

UCPAaR
UWDFLG
UNLT
UNSAF

WCFER
WCHKX
w(KD
WCKER
WCKHD

WLEER
WwRT_AD
WRT.R1
WwRT.R2

WRT.R3
WRT R4
WwRT_RS

26-18
9-8

24L=-14

9-53
9-F 684
9-a75

28=130#
25~:78

25=451#

9=H39»

9=H40e

9=31»
9-B72#4
9=344»

9-31e

25-794
9-481#

&-APR-81

25-597+

25-661+

25=707«

25-836¢

25-882¢

25-93%4«

25=951e

25=975¢

25-992

25=994e

25-:63.

9=347+

9-355

9-589

9-663

9-787¢

9-790+

7-939

9=:19

9=-<60

9==03

9=>04

9=->35

25=6"3«

25-631

25-636+

25647

25667+

25=678+

25-709

25=710»

25=:3

25=:46*

9-544

9-729

9-611x

9-694~

9-808+

9-8G7+

9-.09

9-;43

9=<30»

9-=25+

9=>27»

9-56

9-61
9-259
9-314

9-68

9-145
9-268
9-319
9-493
9-539
9-755
9-794
9-843
9-a01
9-336
9-D7?2
9-111

9-146
9-269
9-320
9-494
9-542
9-756
9-825
9-864
9-a02
9-a37
9-p77
9-116
12-1

9-147
9-274
9-325
9-495
9-543
9-757
9-826
9-865
9-a03

9-148
9-275
9-326

9-a26
9-C93
9-102
10-10
18-1

9-144
9-267
9-318
9-492
9-538
9~754
9-793
9-842
9-a00
9-a33
9-059
9-107

16-1

9-67
9-265
9-315
9-463
9-509
9-700
9-771
9-840
9-294
9-acé
9-(36
9-H96
10-9
17-1

24-14

26=-17

2626

9-610#

9-6934
9-870

9-264

9~-< 26N
9-482+

9-555~

2414
9-36

9-167
9-311
9-369
9-501
9-683

9-763
9-831
9-238
9-a15

9-50
G-246
9-312
9-370
9-502
9-684
9-764

9-833
9-239

9-247

9-313
9-396
9-5 7
9-6%3
9-769
9-834
9-244
9-al17
9-C34
9-H66
10-7

9-397

9-508
9-699
9-770

9-835
9-293
9-a23
9-(35
9-H73

9-64

9-166

9-256

9-322

9-504

9-792

25-629*

25-668+

9-Q9LH

15-1

25-553»

25-721

25-741
9-577
9-AG4LH

9-955

9-.08

9-<69

9-AS59
25-:50"
25-:614
25=:;47+

25-:56
25=:72
’25-.83%

9-705
9-772
9-841
9-295

18-1

12-1

26=-24

10-8

25-370+

4=1024

9-510

12-1

10-5

25-355

9-A32

9-266
9-316
9-464

9-a16
9-A83
9-H65
10-6
13-1
26=27
12-1

9-A78
9-H58

5=272~

4=101#

S=17

SEQ 0163

25~-106#
7-0n
9-A29
9-A53

H 13

18:12:15 PAGE

9-248«
9-BOCH
9-884#

9-855#
25-:60+

25-:81
25-:80#4
25=:67
25~:844
25-.85#

25-:;634

28-15

25-:70

25=;76

25-;82#

9-496
9-592
9-758
9-827
5-868
9-a04
9-A20
9-F 40
9-122
12-1
18-1

18-1

9-A19
9-D82
9-121
12-1
18-1

9-766

9-837

$-241

9-297

25-797

25-892

25-894

25-919

25-921+

11-1

18-1

11-1

[ 4

9=149
9-280
9-327
9-497
9-593
9-759
9-828
9-369
9-a05
9-A21
9-H53

9=-124

12-1
2414

25=:45~

9-150
9-282
9-328
9-498
9-594
9-760
9-829
9-230
9-310
9-A2/2
9-H54

9-127

12-1
26-15

JRMTBO RM0S5/3/2 DR (MPT

"RLS REFERENCE

“RT _RM
wRT WD

«RTDAT
WRTHD

XEND2

XFATL
XPASS!
XPASS?2

XXDP
vy

25=-306
25-603
25~:48e

4-103#
L(=104L4
9-743
9-A20

9-285
9-287
7=Q8

9280

TABLE

TST

(CREF

25-310
25-624

MACRO v(4.00

vO1-05

25-:52

25-482
25-826
25-:59+

9-259

9-2664

9~-728

9-402
9-741a

9-566

29=44a
9-298#4
A

29=-25#

9-687

9=4L4w

)

4=-APR-81

I 13

18:12:15 PAGE

S-18

SEQ 0164

25-486
25857
25-:628

25-490
25-902
28-15

25-499
2S=:47N

9-910

9-<38

9=45

G=l 7

9-52

T 9-623

25~508

25=512

25=5¢¢4

9-63

9-161

9-163

25=5%1

25=541

25-55%

25-565

25=586

"JRMTBO RMOS/3/¢ DR (MPT

CROSS

SSCMRE
$SCMTM
$SESCA

SINEWT
$S$SET
.

$$SETM

$$SETU

REFERENCE

TABLE

5-250#
S-2504#
(~-58»

6-0

(CREF

(-58#
241

9-481
24-1

9-31

9-31#

$SSKIP
.$ACT
.$APTR
.SAPTH
LSAPTY
LSCATC
.SCMTA

6-3

9-31x

(=-58#
(=47
(=504
4=50#
4-S0&
4-4Ba
4-4

5-8
6-0
S-11
141
5-1
5-250

.$DB20
.SEOP
.SERRO
.$ERRT
. SPOME
.SREAD

L=498
(~50#
L~L8a
L-L8N
4~50#
L=47N

.$SCOP

4=50#

22~1

.STRAP

4=49#4

24-1

4-488
L-47N

16-1
4-58

.$D82D

.$SAVE

.$S1ZE

[RIAST |

[RYAST

L4~458

.8TYPD
.$STYPE

(~4L88
L=4748

.HEADE
.SETUP
. SWRH]

L=474
L-474

L=47H

CKCHR

L-84

LSTYPO
.EQUAT

.SWRLO

4-47#

CKDIG
CKNUM

4~18#%
L&=-314

ENDCOM

4L-58#4

COMMEN

TST

MACRO v04.00
v0:-0S5

9~554
24=1

9-807
24-1

25-832
9-A81

25-:;18
9-A82

25-:77
9-894

9-896
24~1

4-55

4-55#4

4-56

6-6G73

9-36
6-0

23-1

POP

4-58#

9-481

9-55¢4

9-610

9-693

4{-584

9-.40

9-.99

9-289

9-£40

4-584
24-i

SKIP
SLASH

(=58
4L-58#

L{-58#

L=-58#

9-<26

22-1

2643

24=14

9-.83

9-<16

24~1

24-1

5-8

5~11

9-31

9-=24

.
9-895

9-896

9~364

4L-58#

SETPR]
SETTRA

24=1

9-G81

10-1

4{-584

9->26
24=1

454
4-11

(-584

4-587

9=¢<26
24=1

17-1
13-1

L-58%
5-144
4L-58%

STARS

9=-693
24=~1

23-1

GE TSWR
MORETA
MULT

SETUP

9-610
24-1

19~13

25-830
9-A80

REPORT

SEQ 0165

21-1
10-1
11-1
12-1
i5-1
18-1

25-772
9-A79

PUSH

)

20-1

24~4#
4-58#
4(-584

NEWTST

J 13
18:72:15 PAGE M-

6=-0On

ERRCAL
ERROR
ESCAPE
GE TPR]

4~APR-81

9=>26

9-339

24~1

5-11

10-1

9~E47

24~1

5-~11

11=1

9-807

9~896

9-<26

9=>26

141

15=1

17-1

19-1

171

19-1

24-1

24=1

24-1

24~1n

14-1

6-0

12=1

14-1

6-0

13=1

14-1

6-0

14=1

15=-1

9-554

16="

9-510

16=1

9-693

17=-1

“IRMTBO RM0OS5/3/2 DR (MPT

TYPNUM
TYPO(S
TYPOCT

TYPTXT

geecEee

TRMTRP
TYPBIN
TYPDEC
TYPNAM

SWRSU

—

oo
bl‘bl‘l;l\bbb
]
11

(ROSS REFERENCE

TABLE

TST

(CREF

19-1

9-31

24~3

MACRO v04.00

v01-05

)

&-APR-81

K13

18:12:15 PAGE M=¢
SEQ 0166

20=1

21=-1

22-1

23=1

12-1
9-50

189-61

9-67

9-68

9-31#

9-a11
9-36

9-166
12-1
9-6

24=1

25=15