Digital PDFs

AH-F943B-MC

August 1981

167 pages

Original

74MB

view download

OCR Version

96MB

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

OCR Text

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

MACRO v04.00

B 1
18:12:15 PAGE 1

4-APR-81

.REM

SEQ 0001

WM =000 NN

NN o

CZRMTBC RMO5/3/2 DR CMPT TST

NP N

N“,.—j_‘_‘—l—.-—‘.d-\—l—‘

IDENTIFICATION

= OV

PRODUCT CODE:

AC=F942B-MC

PRODUCT NAME:

CZRMTBO

PRODUCT DATE:

APRIL 1981

MAINTAINER:

CX DIAGNCSTIC GROUP

AUTHOR:

MIKE LEAVITT

RM05/3/2 DRIVE COMPATIBILITY TEST

THE INFORMATION IN
THIS
DOCUMENT IS SUBJECT TO CHANGE
WITHOUT
NOTICE AND SHOULD
NOT BE CONSTRUED AS A COMMITMENT
BY
DIGITAL
EQUIPMENT
CORPORATION.
DIGITAL
EQUIPMENT
CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

THE SOF TWARE DESCRIBED

LICENSE

AND

MAY

THIS DOCUMENT

FURNISHED UNDER A

ONLY BE USED OR COPIED IN ACCORDANCE WITH THE

TERMS OF SUCH LICENSE.

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

1980,1981 DIGITAL EQUIPMENT CORPORATION

MACRO Vv04.00

4-APR-81

1
C
18:12:15 PAGE 2

(ZRMTBO RM05/3/2 DR (MPT TST

1.0

ABSTRACT

2.0

HARDWARE REQUIREMENTS

3.0

PRELIMINARY PROGRAM REQUIREMENTS

4.0

GENERAL PROGRAM CONSIDERATIONS
4.1

4.2
4.3

4.4
4.5
4.6
4.7
4.8
4.9

SYSMAC

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

9.0

0000

wnrno
wvi

8.1

=O 0NN

POPUNIND
~3 =
e e e e b

WN=O V0NN

CONTENTS

DESCRIPTION OF PASS 1 TESTS
DESCRIPTION OF PASS 2 TESTS

OVERWRITE AND DRIVE COMPATIBILITY DATA TEST RESULTS

ERROR REPORTING

11.1
11.2
11.3
12.0

TESTS

PRINTOUT OF TEST RESULTS
10.1

11.0

DIALOGUE FOR ADDRESS 210 START
PASS 1 DIALOGUE
PASS 2 DIALOGUE

DESCRIPTION OF
9.7
9.2

10.0

DIALOGUE FOR ADDRESS 200 START
DIALOGUE FOR ADDRESS 204 START

COMMON ERRORS
ERROR HANDL ING

ERROR PRINTOUT EXAMPLE

TABLE DESCRIPTIONS

12.1

TABLE A -

BASIC READ/WRITE TEST SECTORS

SEQ 0002

—

CZRMTBO RM0S/3/2 DR CMPT TST

—

MACRO v04.00

co——————————

4-APR-81

S——

18:12:15 PAGE 2-1

12.2 TABLE B -

WORSE CASE DATA PATTERN

12.4 TABLE D -

BASIC CYLINDER BLOCK LAYOUT EXAMPLE

12.7 TABLE G =

PSEUDO=RANDOM DATA PATTERN

12.3 TABLE C -

61
€2

12.5 TABLE E 12.6 TABLE F =

13.0

CYLINDER BLOCK ASSIGNMENT FOR A GIVEN SURFACE

OVERWRITE CYLINDERS
SELF=TEST CYLINDERS

RM SOF TWARE DRIVER DOCUMENT

SEQ 0003

4-APR-81

E
18:12:15 PAGE 3

SEQ 0004

1.0

RM05/3/2 DRIVES WHICH MAY RCSIDE ON 1 OR MORE RH/RM SUBSYSTEMS.

POPUMNONUNIN)
=2 = e 3 B e s _a =i

WN
2O 00w NN
WM = OO0 NN

NN -a

MACRO Vv04.00

CZRMTBO RM05/3/2 DR C(MPT TST

ABSTRACT

THE PURPOSE OF

THIS PROGRAM IS 70 VERIFY THE COMPATIBILITY OF

UP TO 16

COMPATIBILITY IS DEFINED HERE AS THE ABILITY OF A DRIVE TO WRITE DATA
WHICH CAN BE READ SUCCESSFULLY BY ALL OTHER DRIVES, AND ADDITIONALLY THE
ngbégv OF A DRIVE TO COMPLETELY OVER-WRITE DATA WRITTEN BY ALL OTHER
THE PROGRAM IS DESIGNED TO DETE"T

THE

FOLLOWING CONDITIONS WHICH

COMMONLY CAUSE INCOMPATIBILITY BETWEEN DRIVES:
1.

HEAD MIS-ALIGNMENT

POSITIONER LATERAL MISALIGNMENT

SPINDLE=CARTRIDGE INTERFACE RUNOUT

IMPROPER LEVELS OF WRITE CURRENT

INCORRECT ADDRESSING OF READ/WRITE HEADS

MOST

THE TESTING IS DONE IN TWO
PASSES.
IN
PASS 1,
COMPATIBILITY
DATA
PATTERNS
ARE
WRITTEN BY ALL THE DRIVES UPON THE SAME DISK CARTRIDGE,

AND THE BASIC READ/WRITE CAPABILITY OF EACH DRIVE 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 TO
OVERWRITE DATA WRITTEN BY ALL OTHER DRIVES IS
TESTED ON
THE
SECOND
PASS.

(FOR _THE REMAINDER OF

THIS SPECIFICATION,

OF THE FIRST AND SECOND PASS SHALL APPLY).

THE ABOVE DEF INITIONS

IN BOTH PASSES, THE PROGRAM DIRECTS THE OPERATOR IN
THE
LOADING AND
UNLOADING OF
DRIVES
AND THE MOVEMENT OF THE CARTRIDGE FROM DRIVE TO
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 VARIOUS TESTS OF BOTH PASSES,

THE CAPABILITY

IS PROVIDED TO

LOOP ON CURRENT OPERATIONS, AND SWITCH REGISTER OPTIONS ARE PROVIDED,
gg’g”av gAg;ETY
OF
LOOPING,
RUNNING,
AND
REPORTING
MODES
(SEE

UNEXPECTED ERRORS WILL BE REPORTED 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

IS REQUIRED TO RUN THE RM05/3/2 DRIVE COMPATIBILITY

CZRMTBO RMOS/3/2 DR CMPT TST

MACRO V04.00

4-APR-81

KW11=L OR KW11=P CLOCK

60
61

TERMINAL
RH11 OR RH70 CONTROLLER

18:12:15 PAGE 3-)

SEQ 0005

PROGRAM LOADING DEVICE

?,%

TO 8 DISK DRIVES PER CONTROLLER

(ANY COMBINATION OF

RMOS'S,

RMO3°'S OR RMO2'S)

ANY COMBINATION OF DRIVE TYPES MAY BE MIXED TOGEHTER ON A CONTROLLER. BUT, DO

THE DIFFERENT DRIVE

5
3
67

TO THE PHYSICAL SIZE OF THE DISK PACKS, THE RM03/2°'S AND THE RMOS5'S CANNOT BE
SELECTED FOR COMPATIBILITY TOGETHER. IF FOR SOME REASON AN RMO3/2 AND AN RMOS
ARE SELECTED FOR COMPATIBILITY TOGETHER, THE PROGRAM WILL RECOGNIZE THIS UPON

??
72

74
75
;9

TYPE AND TYPE

THE FOLLOWING MESSAGE:

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

IS REQUIRED WHICH MUST BE

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

3.0

82
83
84

BEFORE RUNNING THE RM05/3/2 DRIVE COMPATIBILITY PROGRAM, THE
SUBSYSTEM(S)
UNDER TEST SHOULD BE CAPABLE OF PASSING THE DISKLESS TESTS AND THE THE
FUNCTIONAL TESTS. IN ADDITION, THE CARTRIDGE MUST BE FORMATTED IN 32 SECTOR

PRELIMINARY PROGRAM REQUIREMENTS

FORMAT USING THE PACK FORMATTER.

4.0

GENERAL PROGRAM CONSIDERATIONS

4.1

SYSMAC

95
9
97
33

100

THIS PROGRAM USES PORTIONS

THE

SYSMAC

DIAGNOSTIC

SYSTEM

MACRO

PACKAGE
.

4.2

XXDP

THIS PROGRAM MAY BE LOADED UNDER XXDP, AND MAY BE

RUN

IN DUMP MODE

101
}85

ONLY.
DUE
TO MANUAL INTERVENTION AND LACK OF
PROGRAM IS NOT XXDP CHAINABLE.

104
%82

4.3

107

THIS PROGRAM MAY BE LOADED UNDER ACT AND MAY BE RUN IN DUMP MODE ONLY.

}83

END-OF-PASS HOOKS,

THE

ACT

IT IS NOT CHAINABLE UNDER ACT.

110

111

1}§

4.4

APT

114

THIS PROGRAM MAY BE LOADED BY

THE

APT

SYSTEM,

BUT

MAY

RUN

CZRMTBO RMOS/3/2 DR (MPT TST

MACRO v04.00

4-APR-871

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

PROGRAM

4.5

(DUMP)

MODE ONLY.

CANNOT BE RUN IN 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 WHICH IS
NOT IN USE , OR LOCKED ON THE PORT BEING TESTED.

4.6

MEMORY MANAGEMENT

MEMORY
MANAGEMENT
IS
NOT
UTILIZED
IN
INSTALLED, IT IS DISABLED BY THE PROGRAM.

THIS

PROGRAM.

IfF

INSTALLED, MEMORY PARITY TRAPS ARE DISABLED BY

THE

4.7

MEMORY PARITY OPTION

‘I,'mew MEMORY

)

VD YR N B WO 2D DN

AR IR S 0000

NN INWIN NN NN AN N NN NN PN NN
— —

by,

SEQ 0006

4.8

BAD SECTORS

THE LIST OF BAD SECTORS ON THE CARTRIDGE

IS OBTAINED

LIST

DRIVE

TESTED ON THE CURRENT SUBSYSTEM.
THIS

FROM

THE

FIRST

ACCORDING TO A SWITCH

MAY

TYPED

THE

CONSOLE AT THE
START OF THE FIRST PASS.
AFTER READING THE BAD SECTOR
FILE, THE PROGRAM SEARCHES THE LIST OF BAD SECTORS TO DETERMINE IF ANY
BAD SPOTS
EXIST IN ANY TEST AREAS ON THE DISK PACK.
IF A BAD SPOT IS
L?(LJ:DBET?ygEDPRESENT IN ANY OF THE TEST AREAS,
THE FOLLOWING MESSAGE
PACK

IS NOT ACCEPTABLE,

4.9

EXECUTION TIME

THE

TOTAL

5.0

PROGRAM LOAD MEDIA

TIME REQUIRED TO RUN

CHANGE PACK AND TRY AGAIN.

THE

DRIVE

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 CAN BE LOADED FROM PAPER TAPE USING THE

ABSOLUTE

LOADER

OR FROM THE ACT OR APT SYSTEMS OR FROM ANY MEDIA SUPPORTED BY XXDP.

CZRMTBO RMOS5/3/2 DR (MPT TST
172

173
174
175

MACRO Vv04.00

PROGRAM OPTIONS

6.1

STARTING ADDRESSES

200 = THIS IS THE STARTING ADDRESS

177

200
207
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223

224
225
226
227
228

1
H
18:12:15 PAGE 3-3

6.0

176

178
179
180
181
182
133
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199

4-APR-81

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.

204 = THIS

THE

STARTING

ADDRESS

RUN

PASS

ALL

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
(E);}gER
SUBSYSTEMS, AND THE DRIVE(S) WHICH WILL BE TESTED ON

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

SYSTEM. THE
INTERRUPT

VECTOR FOR EACH SUBSYSTEM ON THIS SYSTEM, AND IT ASKS FOR

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

6.2

'SOFTWARE' SWITCH REGISTER

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR

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

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

ROUTINE WHICH IS CALLED BY TYPING A "CONTROL G'.

THE PROGRAM WILL

RECOGNIZE THE ‘'CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM
IS AT A HIGHER PRIORITY PROCESSING AN RMB0 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 ZERQOS ARE NOT REQUIRED., "RUBOUT' AND
'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS
DURING SWITCH ENTRY.
ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE ‘SOFTWARE' SWITCH
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1'S IN THE SWITCHES.
ALL SWITCH REGISTER REFERENCES WILL BE TO THE °SOFTWAR:Z' REGISTER
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED.

6.3

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

TYPE

CZRMTBO RMO0S5/3/2 DR CMPT TST

MACRO v04.00

4-APR-81

229
230
231
232
233
234
235
236
237
238
239

240
241
242
243
244
245
24b
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263

1
I
18:12:15 PAGE 3-4

THE

SWITCH SETTINGS ARE:

BIT

OPTION

15
14
13
12

HALT ON ERROR
LOOP ON CURRENT TEST
INHIBIT ERROR REPORTS
REPORT DESCRIPTION ONLY, ON ERRORS

BELL ON ERROR

JNUSED

09
08
07
06-00

7.0

~£Q 0008*

LOOP ON ERROR
APPLY RANDOM STALL BETWEEN OPERATIONS
TYPE BAD SECTOR FILES (BSF'S) AT START
UNUSED

RUNNING THE PROGRAM

ONCE THE PROGRAM HAS BEEN LOADED INTO CORE
mERSROME

SYSTEMS)

THE

(IN

GIVEN

FOLLOWING STEPS MUST BE

SYSTEM,

TAKEN TO RUN

INSURE THAT ALL DRIVES TO BE TESTED ARE POWERED UP AND SINGLE
PORT SELECTED.

LOAD THE DESIRED START ADDRESS.

8.0

MULTIPLE

SET ANY DESIRED BITS IN

PRESENT)
.

THE

HARDWARE

START THE PROGRAM.

FOLLOW ALL INSTRUCTIONS TYPED BY THE

SWITCH

(IF

PROGRAM

PERTAINING

THE
MANUAL
INTERVENTION REQUIRED, AND THE ALTERNATE USE OF
MULTIPLE SYSTEMS (IF THERE ARE ANY).

OPERATIONAL DIALOGUE

THIS SECTION DESCRIBES THE CONSOLE TERMINAL DIALOGUE THROUGH WHICH THE
PROGRAM
DIRECTS
THE
OPERATOR,
IN
THE SELECTION OF OPTIONS AND THE

LOADING AND
UNLOADING OF
DRIVES,
AND
THE
MOVEMENT
OF
THE
TEST
CARTRIDGE.
THE EXACT DIALOGUE WHICH IS USED DEPENDS UPON THE STARTING
ADDRESS WHICH WAS CHOSEN (SEE SECTION 6.1).
IN THE
DRIVES
LETTER
NUMBER
REFERS

8.1

FOLLOWING DISCUSSION AND
IN
THE
PRINTOUT
OF
TEST
RESULTS,
TO BE TESTED WILL BE REFERRED TO BY A LETTER AND A NUMBER.
THE
IS THE SUBSYSTEM
LETTER
NAME
(OPERATOR ASSIGNED),
AND
THE
IS
THE DRIVE NUMBER ON THAT SUBSYSTEM.
FOR EXAMPLE, DRIVE (6
TO DRIVE 6 ON SUBSYSTEM C.

DIALOGUE FOR ADDRESS 200 START

ZRMTBO RMO5/3/2 DR CMPT TST

286
287
288
289
290
29N
292
293

MACRO Vv04.00

4-APR-81

Jd
18:12:15 PAGE 3-5

SEQ 0009~

glfgssgg??LING ADDRESS MAY BE USED FOR DEFAULTING PARAMETERS ON ONE

THE PROGRAM FIRST IDENTIFIES ITSELF AS FOLLOWS:
CZRMTBO - RM05/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 1, AND DIRECTS THE OPERATOR IN
MOUNTING OF THE PACK, AS DESCRIBED IN SECTION 8.4.

THE

PLEASE NOTE THAT THERE IS ONLY ONE SUBSYSTEM ON AN
ADR.
200
STAPRT,
AND IT IS NAMED SUBSYSTEM A.
THE DRIVES IN THE ABOVE EXAMPLE WOULD BE

g‘E\gERSED TO AS A2,A5,A7 IN THE TEST RESULTS PRINTOUT

8.2

THE

END

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 THERE IS JUST ONE

SUBSYSTEM (TOTAL), TO SPECIFY DRIVES TO TEST AND NON-DEFAULT PARAMETER
VALUES, FOR PASS 1.
THE PROGRAM IDENTIFIES ITSELF AS FOLLOWS:

CZRMTBO - RM05/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) =
g(lfi”gngATOR THEN TYPES THE DESIRED DRIVE NUMBERS, AS

IN THE FOLLOWING

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

BY TYPING:

WILL TEST DRIVE(S) 2.,5.7 ON SUBSYS A.
NEXT,

THE PROGRAM ASKS THE FOLLOWING QUESTION:

IS THERE ANOTHER SUBSYS (Y OR N)?
THE OPERATOR TYPES 'Y' OR 'N'.
ASSUMES
THAT 'N' WAS TYPED).
PROCEEDS WITH PASS 1,

(IF JUST
<CR> IS
TYPED,
IF THE OPERATOR TYPED 'N',

THE PROGRAM
THE PROGRAM
AND DIRECTS THE OPERATOR IN THE MOUNTING OF THE

CZRMTBO RM05/3/2 DR CMPT TST
743
344
345

346
347
348
349

350
351

352

353
354
355
356
357
358
359

MACRO V04.00

4-APR-81

18:12:15 PAGE 3-6

SEQ 0010

PACK,
AS DESCRIBED IN SECTI ON 8.4,
FOR THE NUMBERS OF THE DRIVE S TO'BE

(SUBSYS B) AS FOLLOWS:

SuUBSYS B DRIVE(S)

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

THE OPERATOR TYPES THE DRIVE NUMBERS, AS IN THE FOLLOWING EXAMPLE:

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

BY 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

OFf

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
EACH
PARAMETER

THE CURRENT VALUE

IS 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

RMCS1
RMVEC

WHICH BUS ADDRESS AND VECTOR WERE CHANGED:

000000
000

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 1

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

FARMEOLLougER

VALUES,

FOR

PASS

THE

PROGRAM IDENTIFIES ITSELF, AS

CZRMTBO - RM05/3/2 DRIVE COMPATIBILITY TEST
THE DIALOGUE FOR 210 START IS IDENTICAL TO THE DIALOGUE
FOR
THE
204
START
DESCRIBED ABOVE
(SECTION 8.2), FOR THE SELECTION OF SUBSYSTEM
PARAMETERS AND THE SPECIFICATION OF ALL DRIVES TO BE
TESTED
ON
THE
VARIOUS

SUBSYSTEMS.

HOWEVER,

AFTER THIS DIALOGUE

IS COMPLETED,

THE

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

MACRO v04.00

4-APR-81

E
18:12:15 PAGE 3-7

SEQ 001’

PROGRAM PROCEEDS WITH PASS 2, AND DIRECTS THE OPERATOR IN THE MOVEMENT

THE PACK, AS DESCRIBED IN SECTION 8.5.

404

NOTE THAT SINCE THE APPROPRIATE
PROCESSOR MUST BE
STARTED
AT
THE
STARTING ADDRESS
FOR
EACH SUBSYSTEM TO BE TESTED, THE COMPATIBILITY

407

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

405
406
408
409
410
41
472
41
414
415
416
417
418
419
420
421
422
423

424
425

426
427
428
429
430
43
432
433
434
435
436
437
438
439

440
441
442

443
444

445
446
447
448
449
450

451
452
453
454
455
456

TEST MAY BE PERFORMED

8.4

IN STEPS, AT VARIOUS TIMES AND

BETWEEN

VARIOUS

PASS 1 DIALOGUE

AFTER THE SELECTION OF PARAMETERS AND DRIVES HAS BEEN COMPLETED ON THE

CURRENT
SUBSYSTEM (SECTIONS 8.1-8.2), THE PROGRAM INDICATES THE START
OF PASS 1 AS FOLLOWS:
«*x STARTING PASS 1 ON SUBSYS A
NOTE:

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

NEXT, THE PROGRAM SELECTS
THE
FIRST
DRIVE
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)

:?F(;LHESU&I‘;NSTRUCYS THE OPERATOR TC UNLOAD THE DRIVE AND REMOVE THE PACK

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

THE OPERATOR PERFORMS THESE FUNCTIONS AND TYPES <CR> AFTER
HAS BEEN REMOVED.
IN THE SAME MANNER,

THE

PACK

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

THINGS:

(1)

THERE_

ONLY_

ONE SUBSYSTEM (FROM ADR 200

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

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

(2)

THERE

DIRECTS THE OPERATOR TO PERFORM

*x STARTING PASS 1 ON SUBSYS B
(3)

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

PROGRAM

SECT.

SUBSYS,

DIRECTS THE OPERATOR TO BEGIN PASS 2 ON THE FIRST SuBSYS

8.5) AS FOLLOWS:

** STARTING PASS 2 ON SUBSYS A

THE

(SEE

CZRMTBO RM0S/3/2 DR CMPT TST

MACRO V04.00

4-APR-81

Mo
18:12:15 PAGE 3-8
SEQ 001,

457
458
459
460
461
462
463
464
465
466

467

468
469
470
an
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
4,88
489
490
N
492
493
494
495
496
497

NOTE:

8.5

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

TESTED

PASS 2 DIALOGUE

THE OPERATOR RETURNS

TO THE

FIRST SUBSYSTEM TO PERFORM

PASS 2

EITHER

THROUGH
THE
DIALOGUE OF THE ADR 200 START, OR AFTER THE SELECTION OF
PARAMETERS AND DRIVES
HAS
BEEN
COMPLETED
IN ACCORDANCE
WITH
THE
DIALOGUE
OF THE ADR 210 START (SEE SECTION 8.3).
|IN EITHER CASE, THE
PROGRAM INDICATES THE START OF PASS 2 BY TYPING:

*x 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
COMPLETED
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
THE

PROGRAM

DOES

ONE

TWO

THINGS:

(1)

SUBSYSTEM,

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

AR AANAARA
AR NS

(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 DESCRIBED

8.1-8.3.
THE
OTHER TEST NUMBERS ARE
DESCRIPTION OF PASS 1 AND PASS 2 TESTING.

ASSIGNED

BELOW,

SECTIONS

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

A0.A1, A2,...B0,B1,82,...C0,C1,C2,...

WAY

ETC.

ACTUAL

SITUATION:

(SEE SECTION 8.0).

{
|

CZRMTBO RMO5/3/2 DR CMPT TST

MACRO V04.00

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

2};

9.1

516
517

IN PASS
1,
THE
BASIC
READ/WRITE
CAPABILITY OF
EACH DRIVE
IS
DEMONSTRATED,
AND
COMPATIBILITY DATA PATTERNS ARE
WRITTEN BY ALL

2}3
2%?

DESCRIPTION OF

PASS 1

SEQ

TESTS

DRIVES UPON THE SAME TEST CARTRIDGE.

THE SEQUENCE OF OPERATIONS PERFORMED ON EACH DRIVE

522
523

526
527
528
529

ggzs.

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

530

TEST 2 - BASIC READ/WRITE DATA TEST
=~
THE
A WRITE
AND WRITE CHECK OPERATION USING A
PATTERN, AT
THE
APPROPRIATE
SECTOR
FOR
TABLE A)
ON ALL SURFACES.
THE PURPOSE OF

TO VERIFY THE BASIC READ/WRITE CAPABILITY

531

PASS

TEST

3 -

THE

SURFACES

USING

538

WORD

DRIVE 7 USES WORD 7, ETC.

22.?

FOLLOWS:

2335

534

535

536
537

539

IS AS FOLLOWS:

PROGRAM PERFORMS
‘WORST CASE'' DATA
THIS
DRIVE
(SEE
THIS OPERATION IS

THE

DRIVE

THE ENTIRE SECTOR IS WRITTEN WITH THE REPETITION OF

THE DATA PATTERN SHOWN IN TABLE B.

PROGRAM

WRITES

ALL

DRIVE WITHIN THE CYLINDER BLOCKS

TABLE G.

SINGLE

SHOWN

REPEATED

DRIVE 0 USES WORD O,

FROM EACH DRIVE IS UNIQUE.

DRIVE

SECTORS FOR THIS
IN

WORD
1

TABLE C

ALL

OF THE PATTERN IN

USES

THUS, THE DATA

TABLE C HAS

BEEN

DETERMINED

542
543
544
545
546
547
548
549
550
551

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. THE LAST
16 CYLINDERS OF EACH CURRENT
IJONE
(EXCEPT
THE
INNERMOST
ZONE)
IS THE SECOND BLOCK
USED FOR READ TEST IN PASS 2.
WITKIN EACH CURRENT ZONE,THESE TWO BLOCKS ARE IDENTICALLY
WRITTEN.
HOWEVER, THE SECTORS DESIGNATED TO EACH DRIVE
ARE ROTATED FROM ZONE TO ZONE SO THAT THE

554,

WITHIN EACH CYLINDER BLOCK, UP

ggg

CYL INDER.

558
559

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

561
562
563

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 DRIVES.
IF ANY OF THE

ggg

FOR THE MISSING DRIVES ARE SIMPLY NOT WRITTEN.

gg%
555

560

564
567

568

569
570

DATA APPEARS AT VARIOUS ANGULAR POSITIONS ON THE PACK.
(DEPENDING

THE

NUMBER

SECTORS

ARE

WRITTEN

DRIVES BEING TESTED) ON EACH
IN

ZONE 1, WHICH STARTS ON CYLINDER 112,

AND

HAS

THE

ROTATING

DRIVES SHOWN ARE NOT PRESENT, HOWEVER,

THE

BLOCKS

RESERVED

THE ABOVE PATTERN OF SECTOR WRITES

EACH

DRIVE

WRITTEN

INSURES

THAT

DATA

FROM

ADJACENT CYLINDERS TO DATA FROM

EVERY OTHER DRIVE, IN BOTH DIRECTIONS.
IN ADDITION.,
THE
ROTATION OF
THE ABOVE SECTORS FROM CURRENT ZONE TO CURRENT

001

@ 0001

CZRMTBO RMO0S5/3/2 DR (MPT TST

MACRO v04.00

4-APR-81

18:12:15 PAGE 3-10
SEQ

571
572
573
574
575
576
577
578

JONE
DONE

INSURES THAT WRITE TEST AND READ TEST ARE
AT
SEVERAL DIFFERENT ANGULAR POSITIONS WITH RESPECT TO

THE CARTRIDGE.

TEST 4 - DISMOUNTING OF
TEST
CARTRIDGE
IN PASS
1
=~
THE
OPERATOR
UNLOADS
THE
DRIVE
AND
DISMOUNTS
THE
PACK,
AS
DIRECTED BY THE PROGRAM (SEE SECTION 8.4,
TO PROCEED
WITH
THE ABOVE STEPS ON THE NEXT DRIVE.

9.2

DESCRIPTION OF PASS 2 TESTS

IN PASS 2,THE ABILITY OF

g:{‘YIEEN 12’752’?'@0 OTHER
THE

FACH

DRIVES

DRIVE

COMPLETELY

OVERWRITE

DATA

AND TO READ DATA WRITTEN BY ALL OTHER

SEQUENCE OF OPERATIONS PERFORMED BY EACH DRIVE

IS AS FOLLOWS:

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

TEST 6 = WRITE TEST
-~
TEST
THIS
DRIVE'S
APPROPRIATE
CYLINDERS

NEXT,
THE
PROGRAM PROCEEDS
TO
OVERWRITE
CAPABILITY.
FIRST,
THE
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
USES WORD_ 0,
DRIVE 1 USES WORD 1,
DRIVE 7

USES WORD 7, ETC.

THEN, EACH CYLINDER OVERWRITTEN IS READ BACK

THIS

DRIVE

IN EACH OFFSET DIRECTION (+ AND -).
THE PROGRAM SCANS FOR
READ ERRORS (DCK,_HCRC.ETC.) DURING THIS READ,
AND
IF
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 1S 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 DRIVE
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 2
(AS DESCRIBED
IN SECTION 10.2).
EACH SCORE
mDRIVE L‘IOMILE

TO THE OFFSET IN A GIVEN DIRECTION BY THE CURRENT

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 SELF-TEST
THE PROGRAM NEXT EVALUATES
THE
DRIVE'S ABILITY
TO WRITE AND READ ITS OWN DATA, AT VARIOUS
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

001

@ 0002

CZRMTBO RMOS5/3/2 DR (MPT

TST

MACRO Vv04.00

4-APR-81

18:12:15 PAGE 3-11
SEQ 001

628
629
630
631
632
633
634
635
636

IN EACH DIRECTION.

THE PROGRAM SCANS FOR READ ERRORS DURING EACH

READ,
AND
17
A SCORE WHICH IS PROPORTIONAL TO THE FAILING OFFSET.

COMPUTES
THEN,

THE SCORES FOR ALL

SECTORS READ

THIS

CYLINDER BLOCK ARE
AVERAGED,
TO C(OME
UP WITH A DRIVE
SELF-TEST SCORE FOR EACH SURFACE FOR EACH OFFSET
DIRECTION.
THIS SCORE 1S SAVED FOR LATER USE, TO BECOME THE STANDARD FOR
THE

637
638

READS WHICH ARE TO FOLLOW.

TEST 10(OCTAL) = COMPATIBILITY DATA READ TEST

639

SELF-TEST

SCORE

FOR

THIS DRIVE,

HAVING ESTABLISHED

THE PROGRAM PROCEEDS TO

PERFORM THE COMPATIBILITY DATA READS OF THE PATTERNS WRITTEN
BY
ALL
THE DRIVES IN EACH CYLINDER BLOCK (ON EACH SURFACE).
EACH COMPATIBILITY CYLINDER BLOCK SHOWN IN TABLE C IS READ, A

CYLINDER

A TIME IN EACH OFFSET DIRECTION.

THE PROGRAM SCANS
FOR READ ERRORS DURING EACH READ
AND
IF
ONE
OCCURS,
THE
PROGRAM DETERMINES WHICH DRIVE'S DATA WAS BEING READ AT THAT

INSTANT AND A SCORE FOR THAT DRIVE IS DECREMENTED.

TRANSFER_

VALUE.

CONTINUED

THEN, THE

AT THE NEXT SECTOR, WITH THAT OFFSET

THE READS ARE DONE WITH

OFFSETS

IN EACH DIRECTION.

AND A SEPARATE SCORE FOR EACH DRIVE IS KEPT, WHILE
THE CURRENT DRIVE IS READING THE COMPATIBILITY
DATA.
THEN,
EACH SCORE 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 TO THE CAPABILITY OF
THE
CURRENT DRIVE TO SUCCESSFULLY READ THE DATA WRITTEN BY ONE OF
THE OTHER DRIVES, AND SCORES ARE COMPUTED SEPARATELY FOR EACH
SURFACE
(TRACK),
FOR EACH OFFSET DIRECTION.
THUS,
THE

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

OF ONE OR SEVERAL OTHER DRIVES.

TEST 11(OCTAL) - TYPE TEST SCORES AND DISMOUNT PACK IN
THE

OVERWRITE

AND

COMPATIBILITY

PASS

DATA READ TEST SCORES FOR

THIS DRIVE ARE
CONVERTED AND
TYPED.
THEN.,
THE
OPERATOR
UNLOADS
THE
DRIVE AND DISMOUNTS THE PACK AS DIRECTED BY THE
WT(SSEVEECHW 8.5), TO PROCEED WITH THE ABOVE STEPS ON

10.0

PRINTOUT OF

TEST RESULTS

THE TEST RESULTS ARE PRINTED AT THE END OF PASS 2 ON EACH DRIVE
BEING
TESTED.
THESE
RESULTS
PERTAIN
TO
THE
OVERWRITE
TEST
AND
THE

COMPATIBILITY DATA READ TEST.

10.1

TEST RESULTS

THE RESULTS OF

BOTH THE OVERWRITE

ARE PRINTED, REGARD OF
THE MESSAGES:

DEGREE OF

AND OF

SUCCESS.

THE

COMPATI BILI TY DATA READ
THE TES T IS SUCCESSFuUL,

CZRMTBO RMOS/3/2 DR (MPT

0 0003

TST

MACRO Vv04.00

4-APR-81

18:12:15 PAGE 3-12

SEQ 001

|
|

ggg

687

690
691

ggg

«* ALL DRIVES ARE COMPATIBLE #+

IS PRINTED. IF THE TEST IS FAILURE, THE TEST RESULTS

ARE

TABULAR

IN FORM AS SHOWN.

IN THE FOLLOWING EXAMPLE, THERE ARE 2 SYSTEMS, AND THE

TESTED

ARE

SHOWN BELOW:

AO,A1,A2,80.

AND

B5.

THE

ggg

SCORES FOR DRIiVE Al:

696

TRACK

DRIVE

OVRWRT

%’8

* 0

« 0

gg;

701

702
703
;815

NO.

READ

OFST=

THE ABOVE EXAMPLE REVEALS A

OF ST+

POSSIBLE

DRIVES BEING

TEST RESULTS FOR DRIVE A1 ARE

READ

OF ST~

COMPATIBILITY

READ

0FST+
PROBLEM EXISTS

BETWEEN DRIVES AT 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.

706

707

;gg

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 RMOS/3/2 DRIVE COMPATIBILITY PROGRAM. THE ERRORS ARE

;;;.

SELF-EXPLANATORY.

;}‘}

ADDRESS PLUG CHANGE BIT SET

;}g

RH DIDN'T RESPOND TO ADDRESSING

;5(1)

UNCORRECTABLE MASSBUS PARITY ERROR

;55

FATAL MASSBUS PARITY ERROR

PERSISTENT DEVICE UNSAFE

;sg

OPERATION NOT COMPLETED WITHIN TIME LIMIT

;sg

DRIVE WENT OFFLINE

;%(1)

NO RESPONSE TO PORT REQUEST

HEADER CRC ERROR

;;g

DATA CHECK 'DCK' ERROR

WRITE CHECK ERROR - DATA CHECK 'DCK' SET

;gg

WRITE CHCKE ERROR - DATA CHECK 'DCK' NOT SET

;2?

HEADER READ ERROR - 'FMT' BIT DROPPED

CZRMTBO RMOS/3/2 DR CMPT

TST

MACRO v04.00

4-APR-81

18:12:15 PAGE 3-13
SEQ 001

‘

742
763

HEADER READ ERROR = HEADER COMPARE

744

FORMAT ERROR

745
746

ERROR

'FER'

HEADER COMPARE

747
748

'MCE'

'HMCE'

ERROR

MISCELLANEOUS DRIVE ERROR

749
750
751

OPERATION INCOMPLETE

752
753
754

'OPI' ERROR

DRIVE TIMING 'DTE' ERROR
PARITY

755
756

'PAR'

ERROR AFTER OPERATION STARTED

WRITE CLOCK FAILURE

757
758
759
760
761
762
763
764
765
766
767

'WCF'

ERROR

INVALID ADDRESS 'IAE' ERROR
WRITE LOCK

'WLE'

ERROR

DATA CHECK 'DCK® SET DURING WRITE CHECK COMMAND
RH OR UNIBUS TRANSFER ERROR

BUS ADDRESS OR WORD COUNT INCORRECT

768

DATA COMPARE ERRORS = NO OTHER ERROR(S) DETECTED

769
770
771
772
773
774
775

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

776

BUS ADDRESS AND WORD COUNT NOT CONSISTENT

i 4 4
778
779
780

SEEK INCOMPLETE

°'SKI' ERROR

PROGRAM DETECTED POSITIONING ERROR

781
782

DRIVE UNSAFE ERROR

11.2

ERROR HANDLING

ERRORS REPORTED BY THE PROGRAM CONSIST OF
COMMON FAILURES
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.
OTHER ERROR REPORTS MAY (ONSIS:
OF
A

SINGLE DESCRIPTIVE LINE.

11.3

ERROR PRINTOUT EXAMPLE

TST

MACRO V04.00

4-APR-81

F
2
18:12:15 PAGE 3-14
SEG 001§

RH OR UNIBUS TRANSFER ERROR
RMW(
RMBA
RMDA
DRIVE
RM(CS1
000001
144250 174400 0055030 000431

RMCS2

RMDS

010700

000000

RMER1

RMAS

RMDB

RMMR1

RMDT

RMOF

RMDC

RMMR?

000050

024024

000000

010000

000716

000000

011777

ONO
NS W =O

00 0o 0o 0o 0o 0O 0o Co 0O

000100

RME (2
000000

12.0 TABLE DESCRIPTIONS
TEST SECTORS

ADDRESS OF

DRIVE NO.

SECTOR ON EACH SURFACE

CYLINDER

—d

WN—=O

SECTORS

12.2 TABLE B - WORST

CASE DATA PATTERN (REPEATS EVERY 16 WORDS)

WORD NO.

DATA (OCTAL)

0
1

155554

2
3

133331
066663

133315

VS WA —=O0V0 NN

e
md —d e

sS g

TABLE A - BASIC READ/WRITE

VB WA= OO0 NS WA —=O

b ed e

RMER2 ~ RMEC1
000000 004066

12.1

Lt 4t

0005

CZRMTBO RMOS5/3/2 DR (MPT

155546

TST

MACRO v04.00

G 2
18:12:15 PAG E 3-15

4-APR=-81

MNa11NQOnI7ITSfl5QNirOAC)VAO—~1n2V~UOJTIN1l7JN~—c1t0O))1LNn0OC)v5JILnCW&°vN10—:71JNI|lW1(nN7—Z1UlM‘e°11Nl0%Nl5(qMCOO)(2lO1fJM)|l0-— -Mff°7ll(L—C°)OUOn‘1/0U)W~tD()!)J(J NOVMOV
NAAOe-ANMOAWMAVOANAIOAAAINTA

Or—Or——0O O

CZRMTBC RM0OS5/3/2 DR CMPT

—MVO~

12.3 TABLE C = CYLINDER BLOCK ASSIGNMENT FOR A GIVEN SURFACE
CURRENT
ZONE - RANGE

o~ N~

COMPATIBILITY CYL
BLOCK RANGE

1GCl’q(JlR~),QlD1Q|CA1VI£7UI!JH(A)!IS~ZQVO/!*JA:V)!QJC1AIVnOv’ N—W\nMe—ON
-— -— -— - —-—
NO—UM [DIBN v9239M01JM-400M~yvU)-oNMNON

nlzflwa‘=3

7I7LI7INanw

OVERWRITE CYL
BLOCK RANGE

LMOAN0MS—TN\ON

YQEDQO1AMAU

4V0O0~

T oN

no“@wk«d(.

12.4 TABLE D - BASIC CYLINDER BLOCK LAYOUT EXAMPLE

CYLNDER
NUMBERS

1”

[+
o]

e=PT— AV1§)A!UCJ§1£1~§=(9791!025 -—

t—

OVQZIU1NC(JO!J“M7§e€—)‘U7°MAMU1LF/lhO)fl
1OJ(O11M—)1—COAuN1;--—|oI--NanO;3--N~1O~nNv7TL-N)l~-h—
} IN I A A A I O N A A R I LN

NooWVT VT VT VToTQWTAV e e ek Lt

SECTOR NUMBERS

-— — -—— —— ——

— — —— e—

G—y

—

25
+

26
+

27
+

28
[

29
e

30
Ty

Ny|@-99333””>-t568156019273063
.7NUONM—8nO9n—M0MJDII1ITTn2WNN3TOO“N7NO5O6NNOO1"|>m'U‘NeM5%O7OV8WO”&-M~VnIN7ORU8Mo9M9“.M|=w=vm|Moo3A4A6AA9-—A3A2AN8A5NA7—A0AAN5A1AA4A2iN1A
o*

MACRO v04.00
4-APR-81

2ov3582174659‘0310 AWNe1—O4TNwLa—tlal%’aMlt"al"a"Ds}“AONwpelNeD3nl—OenIlnWNeinRMonlm—o]
COCOW OIO NO

TST

—ONIMITNONORO v SNIMTNONsss ARsAS -v

-W w=wO]o MRWTVNIOM—NIOM0IOTN~sOMnNIOsTNNE—OreN—rO—rS~—ra1—P>lcl Ww>N-+ 3Ab

oTI)VGNONO0RTUOOMSO—MSOL—AINTMROJUMTW=NNOO0LNN|I¥|Wm>[\«(W>w&7LD9N“Y071M“-)9230kW1)OalYLEalaE2lTEEL“AIVA“RL|“Om4x®VI«[—w>(o-1)—2A‘—B7B’AN0-o6-B3-N5-IA‘N-R8N—3-RI5—-O2I0IL9I
' 0007
TZRMTBO RM0S5/3/2 DR (MPT

18:12:15 PAGE 3~16

2
SEC

-—

CZRMTB0 RMOS/3/2 DR CMPT TST

MACRO v04.00

4-APR-81

18:12:15 PAGE 3=17

SEQ 0021

12.8 TABLE G = PSEUDO-RANDOM DATA PATTERN

DATA (OCTAL)

= OV
W —=O

-2 —2

WORD #

992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004

28.156.284.415.540.668.796
29.157,285,413,541,669,797
30,158.586.414.54 .670,798
31,159,287,415,543,671,799
32,160,288,416,544,672,800

040135

177070

purt

070414

VIS WA

979
980
931
982
983
984
G985
986
987
988
989
950
991

11
1%
1
14
15

—

970
971
972
973
974
575
976
977
978

13.0 RM SOF TWARE DRIVER DOCUMENT

13.1

THIS DOCUMENT

IS THE USER'S GUIDE FOR THE RM DRIVER.

TO INITIALIZE

THE DRIVER:

JSR

RETURN

PC,RMINIT

UPON RETURN YOU MUST EXAMINE THE 'DRVSTA'® TABLE TO DETERMINE
THE DRIVES THAT ARE ONLINE FOR TESTING.

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

°‘DRVSTA'

TABLE

DRIVE STATE

ONL INE

UNSAFE

THE

THE STATE OF EACH DRIVE WILL

OFFLINE, DRIVE
IS NOT AN RM05/3/2, OR
NONEXISTENT DRIVE

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

TABLE

CONTAINS ONE BYTE FOR EACH DRIVE AND

DRIVE NUMBER.

ENTRIES ARE ENCODED AS FOLLOWS:

INDEXED BY

THE

:
|

CZRMTBO RMOS5/3/2 DR CMPT TST

,
;

1627
1028

‘

1030

MACRO v04.00

4-APR-81

J 2
18:12:15 PAGE 3-18

DRYTYP

SEQ 0022

CONDITION

eenees

csseceses

1031

NONEXISTENT DRIVE

}8§2

NOT AN RM0S/3/2

1032
1033
1034

5
4
7

18%173
1039
;82?

THE
13.2

'RMINIT'

RMO
RMO
RMOS

ROUTINE WILL DO A READIN PRESET AND WILL

AFTER THE DRIVER HAS BEEN INITIALIZED,
FOLLOWING SEQUENCE.

1042
1043
1044
1045
1046
1047

CALL:

}82?

«DPB (DATA PARAMETER BLOCK)

1052
1053
1054
1055
1056
1057
1058
1059

PNTDPB:

JSR

PNTDPB
RE TURN1
RE TURN2

RO,RMOS

1071
1072
1073

.BYTE
BYTE
BYTE
BYTE
WORD
WORD

0
0
0
0
0
O

.BYTE

BYTE

.WORD
.WORD

0
0

LWORD

:(0) DRIVE NUMBER
2(1) OFFSET VALUE OR FMT16, ECT. AND WCI
:(i) COMMAND
“(3) PSEL AND A17 AND A16
*(4) WORD COUNT (MUST BE NEG.)
*(6) BUFFER ADDRESS OR
*REGISTER TABLE POINTER
*(10) SECTOR ADDRESS OR

}877'2

}8773

1080
1081
1082

1083

:MAKE THE CALL
*ADDRESS OF DPB+
*RETURN IF QUEUE IS FULL
*RETURN IF REOQUEST IS IN
*ERROR CONDITION

1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070

1077

IS CALLED USING THE

“QUEUE OR THERE IS AN

}gzg

1076

SET FMT16.

*FIRST REG. INDEX
*(11) TRACK ADDRESS OR
:LAST REG. INDEX
2(12) CYLINDER ADDRESS
“(14) ERROR TABLE POINTER
*POINTS TO THE FIRST OF TWENTY
*LOCATIONS OF WHERE THE DRIVER
*IS 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-B1T09 AND BIT06-BITO3

*INDICATE TYPE OF ERROR
13.3

THE DRIVER PROVIDES A SOF TWARE

TIMEOUT CAPABILITY.

TO UTILIZE THIS CAPABILITY YOU MUST SUPPLY THE

WITH THE ELAPSED TIME IN THE FOLLOWING MANNER:

MOV

#16.,~(SP)

JSR

PC,RMTMR

'RM TIMER'®

;16 MILLISECONDS BETWEEN
*CLOCK TICKS
SCALL THE TIMER ROUTINE

ROUTINE

MACRO V04.00

&-APR-81

K 2
18:12:15 PAGE 3-19
SEQ 0023

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

13.4

EXAMPLE = WRITE 1000. WORDS
1%:

2%:

WRTDPB:

BEQ
BMI

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

.BYTE
.WORD
.WORD
.WORD

RO,RMO5
1%
WRTDPB+16

2%
ERROR1

;CALL THE DRIVER
;DPB _ADDRESS

;WAIT FOR QUEUE

IF FULL

;WAIT FOR COMMAND TO COMPLETE
;ERROR OCCURRED

;DRIVE #5

‘WRITE COMMAND

1000.

;WORD COUNT
;BUFFER ADDRESS
:SECTOR
: TRACK
s CYLINDER
;ERROR TABLE
;STATUS/ERROR INDICATOR

WRTBUF

400
ERRTB5
O

ALTERNATE DPB SETUP
WRTDPS:

5
-1000.

;THIS SETUP ACHIEVED
;EVERYTHING THE
;ABOVE TABLE DID, BUT
:IN A CLEANER FORMAT

RH/RM REGISTERS

A NVOONSNVOONSNVO

13.5

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

PONUNIND
= b e

SRt

- — —

—h o

=l —h

D o
D —h

)

eIRNRIRNRNRIIIFRIR=3

) —d — — —h D — b o
—h — o —d — D
—d D — —d - ok
=
e o D
D
—d e — o —— —d — ) - ) D —d b —

1098

JSR

WRTDPB
BR
TST

1 O—=0Owv

CZRMTBO RM05/3/2 DR CMPT TST

o
o

0010

CZRMTBO RM0S5/3/2 DR CMPT TST

MACRO Vv04.00

1141

L1142

1150

13.6

1132
1154
1155

RMDC
RMHR
RMMR2
RMER?
RME C 1
RME C2

3%
36
40
42
44
46

COMMANDS PERFORMED BY THE DRIVER

COMMAND

CODE

COMMAND TYPE

SEEK

105

DRIVE CLEAR
RELEASE

111
113

N
N

115

OFFSET

TR 2B 28

RECAL IRATE

115
115

1
1

1
1
1

}
3

1
1
1

}

1
1

]

!
1
1
1

}

1
]

;

107

115

RETURN TO CENTER

117

READIN PRESET

PACK ACKNOWLEDGE
GET REGISTER(S)
SET FORMAT

READ HEADER & DATA

N
s
s

151

161
163
171

D
D
D

WRITE CHK HEADER & DATA 153

WRITE DATA
WRITE HEADER & DATA
READ DATA

137

145

CHECK DATA

141
143

SELECT DRIVE

WRITE

121

123

ANANNIZE A

R RN 8 R R R R RN 2B IR Y

SEQ 0024

RMSN

1156

4-APR-81 18:12:15 PAGE 3=20

RMOF

L1143
1144
1145
1146
1147
1148

-n-a-a-.—l-a-n—.—h—a—n—l—h—.—o;-a-a—A—I—A-A—A—l..a-a_a_a..a—a_a..a....n—a—o—a—n_a_a-a_a_a—a

1 0011

173

N = HOUSEKEEPING
P = POSITIONING
D = DATA TRANSFER

S = SPECIAL PROVIDED BY THE DRIVER

3.7

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

BIT NO.

MEANING IF ON A *71*'

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
PERFORMED ON AN OFFLINE OR UNSAFE DRIVE

13(1)

USER MADE A REQUEST FOR A FUNCTION
TO BE PERFORMED ON A DRIVE

THAT HAS AN

CZRMTBO RMOS5/3/2 DR CMPT TST

) 0012

MACRC v04.00

1198

1200

4-APR-81

M2
18:12:15 PAGE 3-21

12(2)

1502
1598
1598

11(2)

1508
1508

9(3) (4)

1211
1212

8(4)

SEQ 0025

UNLOAD REQUEST IN QUELE.

PERSISTENT UNSAFE CONDITION EXIST.

UNCORRECTABLE PARITY ERROR OCCURRED
PARITY ERROR. A MASSBUS CLEAR WAS
PERFORMED.
ALL
DRVACT'SALLSETOUELES
TO THEWERE
IDLEEMPTIED,
STATE AND

SOF TWARE TIMEOUT OCCURRED ON THIS DRIVE

SOF TWARE TIMEOUT OCCURRED ON ANOTHER DRIVE
DONE

5%
193
1518
1518

6(2)

1555
155
1558
155
15%%

el
g

153
5%
153
1538
153
1539
1520
1%
1544
v

NOTES FOR ABOVE
=
REQUEST WASN'T PUT IN QUEUE. (RH/RM
s
REGISTERS WERE NOT SAVED)
s
T OUEUE HAS BEEN EMPTIED. THE DRIVER
s
TSSUED' A"DRIVE CLENR: S0 THE bRIVE:
NOTE: ALL RH/RM REGISTERS ARE SAVED
AS PER DPB+14 BEFORE THE 'DRIVE CLEAR''.
x
ST QUEUE HAS BEEN EMPTIED. THE
o
DRIVER 1SSUSD A RASSEUS THITED" aut
RH/RM REGISTERS FOR THE DRIVE WERE

1588
1508

e
4(2)

1220

1559
1230

1539
153

1254

RROR OCCURRED THAT

CAUSED AN
AOTOMAT1€ RECAL TBRATE SEGUENCE
TIMEOUT. THE DRIVER REQUESTED
THE DRIVE
BUT TE GPPOSITE PORT IO
RELEASE THE DRIVE WITHIN 15. SECONDS.
NON-EXISTENT DRIVE REQUESTED. USER MADE

1548

1249

ERROR OCCURRED DURING AN 1/0 OPERATION
ERROR OCCURRED DURING AN OPERATION
OTHER THAN 1/0.
CORRECTABLE UNSAFE CONDITION OCCURRED

13.8

Py e R Iy

SAVED AS PER DPB+14 BEFORE THE INIT.

*RECAL IBRATE'* SHOULD BE ISSUED
BEFORE ANY OTHER COMAND.

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

————

—

CZRMTBO RMOS5/3/2 DR CMPT TST

'+ 0013

————

SRS

MACRO V04.00

N 2
18:12:15 PAGE 3-22

4&-APR-81

SEQ 0026
1255

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

1256

AN ERROR CALL

}52;
1259

1260

1262

1263

1266

_}52‘50

1267

1268

THE

TYPE

DATA AVAILABLE

RH70 INTERRUPT

*R4= RMCS1°'S ADDRESS

UNEXPECTED ATTENTION

R1= DRIVE NUMBER

OCCURRED (RHAS=0)
OCCURRED

ERROR

R3= ATA BIT

*R4= RMCS1'S ADDRESS

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

1278

1279

MASSBUS PARITY

RD.ADR= ADDRESS OF REG. READ

MASSBUS PARITY

WRT.AD= ADDRESS OF REG. WRITTEN

}Sg?

1282

1283

1284

1285

ERROR (MCPE=1)

ERROR (PAR=1)

ADDRESS PLUG CHANGE

BIT SET ('OPE' ERROR)

RD.WRD= WORD READ

WRT.WD= WORD WRITTEN

RD.WRD= WORD READ BACK

R1= DRIVE NUMBER
R3= ATA BIT

*R4= RMCS1°S ADDRESS
R5= (RMAS)

1286

1287

RMERRS

1288

=RMDS

RMERRS +2=RMER

RMERRS +4=RMER2

}Sgg

RMERRS +6=RMMR?2

}5312

1293

'N'' IS

R5= (RMAS)
RMERRS
=RMDS
RMERRS +2=RMER|

}g;g

THE FORM 'ERROR N'‘, WHERE

1269
1270
1271
1272
}g;l?:

1275

NUMBER AND THE ERROK WILL BE AN EMT INSTRUCTION.

THIS IS THE ACTUAL UNIBUS ADDRESS (176700)

|
|
|

MACRO V04.00

4&-APR-81

18:12:15 PAGE 4

3
SEQ 0027

;*LAST REVISION 04-APR-81

.TITLE
CZRMTBO RM05/3/2 DR CMPT TST
:*COPYRIGHT (C) 1981
;*DIGITAL EQUIPMENT CORPORATION

'COLMADO SPGS., (0. 80919
-PROGRAH BY MIKE LEAVITT

'THIS PROGRAM WAS ASSEMBLED USING

PACKAGE

INHIBIT ERROR TYPEOUTS

IR B

I
T

.SBTTL

001100

104000

000004

000011
000012
000015
000200
177776
177776

177774
177772
177570
177570

SYSMA(

USE

HALT ON ERROR

MAINDEC

BE BN B

SWITCH

THE PDP=-11

18-MAR-81

OPERATIONAL SWITCH SETTINGS

BN B

.SBTYL

(MAINDEC=11-DZQAC~C5),

53
54

LR B

LR
T

0014

CZRMTBO RM05/3/2 DR CMPT TST

LOOP ON TEST

INHIBIT TRACE TRAP
INHIBIT ITERATIONS

BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>
TYPE

THE BAD SECTOR FILE

BASIC DEFINITIONS

s*INITIAL fi%ESS OF THE STACK POINTER w=*+ 1100 =«

ERROR

= EMT

= JOT

;;BASIC DEFINITION OF ERROR CALL

;:BASIC DEFINITION OF SCOPE CALL

'HISCELLMWS DEF INITIONS

;:CODE FOR HORIZONTAL TAB

;:CODE FOR CARRIAGE RETURN

= 12

CRLF
SEU-PS

= 200
= 177776

STKIMT

= 177774

DSWR
DDISP

= 177570
= 177570

PIRQ

£ WItre

;:CODE FOR LINE FEED

;:CODE FOR CARRIAGE RETURN-LINE FEED
2 sPROCESSOR STATUS WORD
;:STACK LIMIT REGISTER

..PROGRAH INTERRUPT REQUEST REGISTER

;HARDWARE SWITCH REGISTER
..HARD\MRE DISPLAY REGISTER

. *GENERAL PURPOSE REGISTER DEF INITIONS

= %0

R2
R3
R4
RS
R6
R7
SP

=
=
=
=
=
e
=

; ;GENERAL REGISTER

= ¥

; ;GENERAL REGISTER

= %

; ;PROGRAM COUNTER

32
X3
%4
25
%6
¥
%6

s :GENERAL REGISTER
: ;GENERAL REGISTER
; sGENERAL REGISTER
; :GENERAL REGISTER
: sGENERAL REGISTER
;s GENERAL REGISTER
s sSTACK POINTER

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

18:12:15 PAGE 4=1

;*PRIORI T Y LEVEL DEFINITIONS
s:PRIORITY LEVEL
ssPRIORITY LEVEL
s:PRIORITY LEVEL
;iPRIORITY LEVEL
PR4
ssPRIORITY LEVEL
PRS
;:PRIORITY LEVEL
PR6
sPRIORITY LEVEL
PR7
s:PRIORITY LEVEL

SWi14
SW13
SW12

SW11
SW10
SwW09%
SW08

oO—

ER'' SWITCH DEF INITIONS

J*"'SWITC

SW15

PAS

o o358588°

WWNON)
= =0

PRO
PR1

Sw07
SW06é
SW05

000001

;*DATA BIT DEFINITIONS (BITOO TO BIT15)
00000

—

QO H

—

—_—

)

—

BRI

OEDN

BIT15

NOWVES WO

SEQ 0028

nnnnnnx

100000

4-APR-81

000000
000040
000100
000140
000200
000240
000300
000340

MACRO V04.00

0015

CZRMTBO RMOS/3/2 DR CMPT TST
BASIC DEFINITIONS

0016

CZRMTBO RM0S5/3/2 DR CMPT TST

| BASIC DEFINITIONS
|

000200

000100
000040

|
f

000020

000010

000004

;

000001

000002

MACRO v04.00

&-APR-81

18:12:15 PAGE 4~2
SEQ 0029

BIT7=BITQ7
BIT6=81T06
BIT5=BIT0S
BIT4=BIT04
BIT3=BIT03
BIT2=BIT02
BIT1=BIT01
BITO=BITO0

000016

000020

000026

000024

69
70
71
72
73
74

000030
000032
000034
000036
000040
000042

000046

000044

000050

000052

000056

79
81
82
83

85
86
87

$TATUS
SRMCS1
$RMW(
SRMBA
$RMDA
SRM(S2
SRMDS
SRMER1
SRMAS
SRMLA
$RMDB
SRMMR1
SRMDT

000060
000062
000064

16
STATUSO$
SRMCS1+
SRMUWC +2
SRMBA+2
SRMDA+2

SRMER2+2
SRMEC1+2

000066

DRIVER COMMANDS

000101

000107

91
92
93

SITTY PRINTER VECTOR
*'PROGRAM INTERRUPT REQUEST VECTOR

000054

*STTY KEYBOARD VECTOR

RM REGISTERS

000105

000111
000113
000115

OFFSET

0
0
0
1
1
1

Vi
= Yoh —

TKVEC
= 60
TPVEC
= 64
PIRQVEC = 240

: : TRACE TRAP
; :BREAKPOINT TRAP (BPT)
:: INPUT/0UTPUT TRAP (10T) »+SCOPEw+
s ;POWER FAIL
; ;EMULATOR TRAP (EMT) ~+ERROR#+
; ;" "TRAP'' TRAP

s INDEX OF STATUS AND REGISTER WORDS RELATIVE TO FMTDPB

000022

EMTVEC = 30
TRAPVEC = 34

.SBTTL

::TIME OUT AND OTHER ERRORS
:RESERVED AND ILLEGAL INSTRUCTIONS

= 20

—

IOTVEC

PWRVEC

)

= 4

= 10
= 14
= 14
= 14

59
60
61
62

000240

ERRVEC

RESVEC
TBITVEC
TRTVEC
BPTVEC

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064

;sNO OPERATION
:SEEK

sRECAL IBRATE
;sDRIVE CLEAR
JRELEASE
JOFFSET

0017

CZRMTBO RMO5/3/2 DR CMPT

| RM DRIVER COMMANDS

‘
|

.
,
,

94
S5

000117
000121

000123

TST

MACRO v04.00

RTC
READIN

= 171

ABASE
AVECT1

= 176700
= 254

000173

RDHD

108
}(1)8

176700
000254

000171

; SEARCH
JGET REGISTERS
;SET FORMAT (8 ECI OR HCI)
JSELECT DRIVE
JWRITE CHECK DATA

RDDAT

;89

105

=
=
=
=
=

= 153

000161
000163

WRTDAT
WRTHD

SEQ 0030

;RETURN TO CENTER L INE
JREAD IN PRESET

WCKHD

103
104

000153

SEARCH
GETREG
SETFMT
SELDRV
WCKD

4=3

= 117
= 121

= 1%3

000131
000141
000143
000145
000151

18:12:15 PAGE

ACK

97
98
99
100
101

102

4<-APR-81

131
141
143
145
151

JPACK ACKNOWLEDGE

;WRITE CHECK HEADER & DATA

= 161
= 163

JWRITE DATA
JWRITE HEADER £ DATA

= 173

;READ HEADER & DATA

;READ DATA

TRAP CAT(HER

TST

MACRO Vv04.00

4-APR-81

.SBTTL

E
3
1B:12:15 PAGE S

SEQ 0031

TRAP CAT(CHER

;*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A ** 42 HALT"'
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

000174
000176

'LOCATIM1O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174

DISPREG:

SWREG:

.SBTTL

.WORD

;SOFTWARE DISPLAY REGISTER

;;SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)

000137

005566

JMP

a#START

;:JUMP TO STARTING ADDRESS OF PROGRAM

z 000204

000137

005604

JMP

a#START1

s CHANGE THE RH/RM UNIBUS ADDRESS

5 000210

000137

005622

JMP

A#START?

;SECOND PASS STARTING ADDRESS

oo~

> 000200

.SBTTL

ACT11 HOOKS

::......'.t.."fi'...i't."'..fi.Q."".."'.'Q'.'.'.t".l'.""..Q

55\‘IZC=-

;SAVE PC

000046

iEgang

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

000052

-WwORD

- OO

—a

;HOOKS REQUIRED BY ACT11

- =$SVPC
.=1100
.SBTTL

40000

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

APT PARAMETER BLOCK

t"'.'..."'.."...."""..'t.'..'ttttt'l.tt.i'.t'tt.'.t'ttt't

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
- LA A A

.$X=.
.=24

200

2222232322222

222222

;;SAVE CURRENT LOCATION
;;SET POWER FAIL TO POINT TO START OF PROGRAM

;:FOR APT START UP

. =44
;sPOINT TO APT INDIRECT ADDRESS PNTR.
$SAPTHDR ;:POINT TO APT HEADER BLOCK
.=.8X
;:RESET LOCATION COUNTER

000044

'tttttttt'tttt.ttitttt't'tt!lttttt.t'tttttttt'n..t't't.tt.ttn'.

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

8838888
333838

0018

CZRMTBO RMOS5/3/2 DR (MPT

Who

$APTHD:
$HIBTS:

.WORD

$TSTM:

.WORD

$MBADR:
$PASTM:
SUNITM:
18

XY=,

:;:TWO HIGH BITS OF

18 BIT MAILBOX ADDR.

300.

;;RUN TIM OF LONGEST TEST

.WORD

SMAIL

. ;ADDRESS OF APT MAILBOX (BITS 0-15)

_WORD
_WORD
.WORD

300.
;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
300.
;:ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT
SETEND-SMAIL/2
;:LENGTH MAILBOX-E
TABLE (WORDS)

0019

(ZRMTBO RMOS/3/2 DR (MPT TST

TOMMON TAGS

MACRO V04.00

&4-APR-81

.SBTTL

G 3
18:12:15 PAGE 6

COMMON TAGS

.';...'......'...."""..'.Q'..‘Q.i't'......""'.".'.t."Q'QQQ'

:*THIS

TABLE

CONTAINS VARIOUS COMMON STORAGE

;*USED IN THE PROGRAM.

001114
001114
001116
001117
001120
001122
001124
001126
00113C
001131
001132
001134
001136
001140

001114

00115C
001151

000
000

000000

001156
001160
001162

177570
177560
177562

001166

001170
001171
001172
001173

SWR:

207
077
015
012

.WORD

$TPS:

177564

$NULL:
$FILLS:
SFILLC:
$TPFLG:

.BYTE
.BYTE
.BYTE
.BYTE

$TPB:

000
002
012
000

001202
01206
001207

.WORD

DISPLAY: .WORD
$TKS:
177560
$TKB:
177562

177566

000000

.WORD
.WORD
WORD

177564

000000
000000

001210

0
0
O

$AUTOB: .BYTE
$INTAG: .BYTE

177570

001174
001176

001200

$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD
$BDDAT:

000000

001152

001164

0
0
0
O
O
O
0
0

$ERMAX: .BYTE
$ERRPC: .WORD

000000
000000

001154

.=TAB.XY
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE

$TSTNM:
$ERFLG:
$ICNT:
SLPADR:
SLPERR:
$ERTTL:
$ITEMB:

001142
001144

001146

$CMTAG:

177566

$TMPO:
,WORD
$TIMES: 0

377
000

377

S$ESCAPE :0

S$BELL:
$QUES:
$CRLF:
$LF:

.ASCIZ
L.ASCII
L.ASCI!

ASCIZ

LOCATiONS

::START OF COMMON TAGS

;:CONTAINS THE TEST NUMBER
;:CONTAINS ERROR FLAG
;:CONTAINS SUBTEST ITERATION COUNT
;:CONTAINS SCOPE LOOP ADDRESS
;;CONTAINS SCOPE RETURN FOR ERRORS
;:CONTAINS TOTAL ERRORS DETECTED
;:CONTAINS ITEM CONTROL BYTE

1
0

;:CONTAINS MAX. ERRORS PER TEST
;;CONTAINS PC OF LAST ERROR INSTRUCTION

;:CONTAINS ADDRESS OF *'GOOD' DATA
;:CONTAINS ADDRESS OF 'BAD' DATA
;;CONTAINS °*GOOD' DATA

0
0

;:CONTAINS °'BAD' DATA
; ;RESERVED--NOT TO BE USED

0
0

;;AUTOMATIC MODE INDICATOR
;: INTERRUPT MODE INDICATOR

DSWR

;;ADDRESS OF SWITCH REGISTER

DDISP

; ;ADDRESS OF DISPLAY REGISTER
::TTY KBD STATUS
;:TTY KBD BUFFER

;:TTY PRINTER STATUS REG. ADDRESS

;:TTY PRINTER BUFFER REG. ADDRESS

0
2
12
O

;;CONTAINS NULL CHARACTER FOR FILLS
;;CONTAINS # OF FILLER CHARACTERS REQUIRED
;s INSERT FILL CHARS. AFTER A "LINE FEED''
;:"'TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)

;;USER DEF INED
::MAX. NUMBER OF

ITERATIONS

;;ESCAPE ON ERROR ADDRESS

<207><377><377> ::CODE FOR BELL
/7?/
;:QUESTION MARK
<15>
; ;CARRIAGE RETURN
12>

;sLINE FEED

:"t'ttttfi'tttt'ttt'tQ'tt'tt".'ttt't..tttttttttttttt't‘tt't'ttttt

.SBTTL

APT MAILBOX-ETABLE

:,-tlttttn'tt'ttttttlt.t"t..t'tttttt't'tnt.tlit'i'nntt.ltt‘Qtn.t‘

001212

001212
001214
001216
001220
001222
001224
001226

.EVEN

000000
000000
000000
000000
000000
000000
000000

SMAIL :

$MSGTY:
SFATAL:
S$TESTN:
$PASS:
$DEVCT:
SUNIT:
$MSGAD:

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

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD

: ;APT MAILBOX

;;MESSAGE TYPE CODE
;.FATAL ERROR NUMBER
;;TEST NUMBER
;;PASS COUNT
;;DEVICE COUNT
;;1/0 UNIT NUMBER
;;MESSAGE ADDRESS

CZRMTBO RM0S/3/2 DR CMPT TST

APT MAILBOX-ETABLE

001230

001232
001232
001233
001234
001236
001240

000000

000
000

000000
000000
000000

MACRO Vv04.00

&4-APR-81

$MSGLG:

.WORD

$ETABLE :
SENV:
.BYTE
SENVM:
_BYTE

$SWREG:
$USWR:
$CPUOP:

' el

.WORD
.WORD
.WORD

AMSGLG

AENV
AENVM

ASWREG
AUSWR
ACPUOP

001244

000000

001246
001247

BIT

AMAMS1
AMTYP1

9=FLOATING POINT PROCESSOR

BIT 8=MEMORY MANAGEMENT
;:HIGH ADDRESS.M.S. BYTE
;;MEM. TYPE,BLK#1
MEM.TYPE BYTE

(HIGH BYTE)

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

AMADR1

;;HIGH ADDRESS,BLK#1

000
000

SMAMSZ: .BYTE
$MTYP2: .BYTE

AMAMS2
AMTYP2

;;HIGH ADDRESS,M.S. BYTE
;:MEM.TYPE,BLK#2

000
000

SMAMS3: .BYTE
SMTYP3: .BYTE

AMAMS3
AMTYP3

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

000000

001254

000000

001260
001262
001264
001266
001270
001272
001274
001276

000000
000254
000000
176700
000000
000000
000000

001256
001257

;;CPU TYPE,OPTIONS

BITS 15-11=CPU TYPE

.WORD

001250

001252
001253

000
000

$MADR1:

;;APT SWITCH REGISTER
;;USER SWITCHES

BIT 10=REAL TIME CLOCK

8
$MAMS1: .BYTE
$MTYP1: .BYTE
;e
o
29

;;MESSAGE LENGTH

;:APT ENVIRONMENT TABLE
: ;ENVIRONMENT BYTE
;:ENVIRONMENT MODE BITS

11/70=06,PDQ=07,0=10

000
000

SEQ 0033

11/04=01,11/05=02,11/20=03,11/40=04,11/45=05

001242
001243

18:12:15 PAGE 6~1

$SMADRZ:

.WORD

$MADRS:

.WORD

SMADR4:
SVECT1:
SVECT2:
$BASE:
$DEVM:
$CDW1:
$CDW2:
Sgg)fi(??

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

SMAMS4: .BYTE
SMTYP4: _BYTE

AMADR?2

AMADR3

AMAMS4
AMTYP4

MEM.LAST ADDR.=3 BYTES,THIS WGRD AND LOwW OF “‘TYPE'® ABOVE

;;MEM.LAST ADDRESS.BLK#2
;:MEM.LAST ADDRESS,BLK#3

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

AMADR4 ; ;MEM.LAST ADDRESS,BLK#%
AVECT1
;;INTERRUPT VECTOR#1,BUS PRIORITY#1
AVECT2
;;INTERRUPT VECTOR#2BUS PRIORITY#2
ABASE
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
ADEVM
;:DEVICE MAP
ACDW!
;;CONTROLLER DESCRIPTION WORD#1
ACDW2
;;CONTROLLER DESCRIPTION WORD#?

s
camh
ih e
) s

~
ro FRISH
oo

pury b

W WWW

8 88888888

0021

CZRMT0 RMOS/3/2 DR CMPT TST
USER DEF INED TAGS

176700

000254

172540
172542

000104

177546

000100
177777

177777
000074
000000

000000
001224

MACRO v04.00

4-APR-81

18:12:15 PAGE 7

B
SEQG 0034

.SBTTL

USER DEF INED TAGS

$RMADR:
SRMVEC:
SLKCSR:
SLKCSB:
SLPVEC:
$LKS:
SLLVEC:

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

176700
254
172540
172542
104
177546

;FIRST ADDRESS OF RH/RM REGISTERS
;VECTOR ADDRESS
;ADDR OF KW11=P STATUS REGISTER
;ADDR OF KWI11=P COUNTER BUFFER
sADDR OF KW11=P VECTOR
;ADDR OF KW11=-L STATUS REGISTER
;ADDR OF KW11=L VECTOR

CLKFLG:

.WORD

-1

:'0"

DRIVE

= SUNIT

UNIT:

.WORD

PCLOCK:
HZ:
STATIN:
PACK:
ATTN:

LSTAD:
CHGADR:
CFLAG:
TSTNM:

.WORD

100
=1

.WORD
.WORD
.WORD

74
0
0

.WORD

.WORD
.WORD
.WORD

50 HZ SYSTEM

;DRIVE # STORAGE:

;ATTN REG STORAGE:

;DRIVE # STORAGE FOR PRINTOUT

;RETRY COUNT IN THE UPPER BYTE

;STORE LAST MEMORY ADDRESS HERE
:CHANGE RH/RM UNIBUS ADDRESS FLAG
: 'CONTROL C' FLAG

.WORD
.WORD

0
O

sHOUR COUNT STORED HERE (MAXIMUM - 999.)
JMINUTE'S COUNT STORED HERE

.WORD

s TRACK ADDRESS LIMIT, RMO3/2 = 4. AND RMOS = 18.

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

CYLIMT:

.WORD

RSTART:
DTYP:
XXDP:

sTEST NUMBER FOR PRINT AND SCORE RT.

SECOND:
SIXTEE:
CMCNT:
CMCYL:
STARSC:
CMSEC:
CMTRK:
NULINE:
SECLMT:
FAULT:

IF A CLOCK IS AVAILABLE

;74 (8) IF 60 HZ SYSTEM; 62 (8)
;'TYPE STATISTICS' INDICATOR
;ENTRY TO THE TABLE D

.WORD

TRKLMT:

O
0
O

IF KW11=P IS ON SYSTEM

.WORD

BADSEC:

HOUR:
MINUTE:

;'0"

.WORD

.WORD
.WORD
.WORD

O
O
O
O
O
O
O
O
31,

822.

0
O
O

;BAD SECTOR/TRACK FLAG

;SECOND'S COUNT STORED HERE
;TIMER ROUTINE COUNTER (FOR ONE SEFCOND>
s ZONE COUNT
;CYLINDER ADDRESS
;STARTING SECTOR (FOR TEST 6.8)
sDALTA CYLINDER COUNT
: TRACK ADDRESS
sNEW LINE FLAG AND COLUMN (TR
sSECTOR ADDRESS LIMIT

sCYLINDER ADDRESS LIMIT

;=1,

IF ALL DRIVES NOT COMPATIBLE

;CONTAINS PROGRAM RESTARTING ADDRESS
:CONTAINS DRIVE TYPE CODE OF DRIVE BEING TESTED
;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH

: THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE

;"XXDP* DEVICE CODE THE RM05/3/2.
.SBTTL

TABLES, CONSTANTS,

AND VARIABLE LOCATIONS

;TABLE 0
;TABLE _ISTED BELOW SPECIFIES THE SECTORS TO BE WRITTEN
;BY A LOGICAL DRIVE.
EACH LOGICAL DRIVE WRITES TWO SECTORS ON ONE

s CYLINDER

16 CYLINDERS IN ONE BLOCK, 2 BLOCKS IN ONE WRITE-CURRENT

*ZONE AND 7 CURRENT ZONES IN A PACK.
001406
001426
001446
001466
001506
001526

LOGO:

LOG1:
L0G2:
LOG3:
LOG4:
LOG5:

.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

0,15..13..10..6.1,11..4,12..13..9..14..2.5.7.8.

1.0.14.,11..7.2.12..5.15..4.10..15..3.6,8..9.
2.1.15..12..8..%.13..6,14..5,11..0.4.7.%..10.
3.2.0.1%5..9..4.14.,7.15..6.12..1.5.8..10..11.
4.3.1.14..10..5,15..8..0.7.13..2.€.9..11..12.
5.4.2.15..11..6.0.9.,1.8..74..%,7.10..12..13.

o0N]eNleOlS0eANleSl0c8olo%el0eSl%elAe0l%eole&e0lo%elo%e0Ll4oeloBoNa0[oe.lo0e-loeO0loeDle'lep0lPeloeola0leolPeale0loe'loloe0lololBm0elBsWuml.MwO“M&0EWYr—WRrU—LrU—.=rR—g—rRI—O=goOLyIN
oTRND[OeL=OQle0-IlMBCetYOhloNI0aolOMeS0lBOYselB0SeIOl%eOsolSCeoOsBl8seOlL8CoelO&eBl&OaB0l®eO-wD=[O.oeelTo0eOmlO0eOhl0oe2OlN0oe3OlOe04aOlN05oBd60eBl7ela0el0el0ebleobl0eblILebl0eblobl0abl0eo)—W[Q-i>lwX-hna-¥gD'4-vn-LV/-RxéSOMvN(WoL.-.\NvlMqs»I.elTOe.qNslO:s»WeN‘=NeOsOs——D

Se]NNsLNA[(e[>Xlel=S2sl5el3EMre>OlteSalReNM8lcelreelSNsYAoElelSelS8Ne8MlelelES8%NReellle%8%ASNe3Mo'llNlse%A&Te8ItMellal%8%ReereMalllr8&8%Ne8oeMtllla&%8Re%roeMltlla&Ne8%%8eeMrllla&&eL%ereNllal%Ye%&%cs8Meatl%sllSe&S®eMes]]-WW.N-oe(t[YeRA&(lvX8eAeelTlLloNS3MReeeeyllTl8tyNNAeeaellTTLln3MTeeetlTlYANlo8MIeaaeSYlltYRlvTMeeaoetllTNANl8-aMIeeeoSllTTAA%l:MAeeSa8lldTSeRl3'NaMeoelltN8looMaoll%TAINlNeGeateRlNlI%3lveeoMSeltlI%%A8looMLoRdal%83lwotaMasllt%%8SlooeaMalelt%%sloeRMeleltL%%M8eloaaTlelt%%eoelemMlleRS8eeM=]l]mw)wPm“W-[wiv]wmWwI§5Lc-aB0W>T"oVnIeV]gwl0NweUvmglaVIVLgwl23WNvTo&0scO=8R]4)—OosO&1sOAR50eILN85Ua—O-+M»v0&0W.IINMO0A!&T5gTNR:W0s.~eI0M4:%s.5WsS001NRO0%w‘vstG:n0DW31s5Q©—0yDNYssvo.[
8

LOCATICNS

4-APR-81
18:12:15 PAGE 7-1

SmOT=Wv-N:eI*MOS& T[elelelelone[lml=lolsNlFneloallSoelEegleleboleleAaleolse)leloe)N%8&seSRNaNwm—TYAN%8S—R&n«uw 1XTROiC7LO0OeV0O0O0O0O0O0D¥NO0O0O0,O0O0O0O0 c8§EForEZIrz8ahcacacwsacsasaes

‘S:-1lol:oRR

-0y

AND VARIABLE

MACRO V04.00

MITWNON vO

CONSTANTS,

TABLES,

o =lelolelelslelelels]

SO§C8IWO3808WB3IW083SWW08IWW03SW8I0M3VW8IS8UO8+W«Wo§S808WA80W838M8WMW3883O8W02388I03W88088W038808W088sW« a<83cI8aN38aW88Sw3dE88Rwd5E3Swd5E3wdT5u8Sw3Ad E58
eEoNOlNeOleleOol0eoleOoel0eOleoOleeloeOlelOellOetloOelOe]]NTE>=VleleOlelDe0loeel0aeoOl0oeelOea0lOeal0eoOle0aeOlaDeelOoeeloe0alOeo0loOalae0loOeal0e-lONe0TcV(T-2lR cZuc>acSecRecSsT»OrTvs—IWsvI)s0NsORsvT—sWv)=v&%W—MIrO—T
022

| CZRMTBO RMOS/3/2 DR CMPT TST
3
SEQ 0035

{

|
|

CZRMTBO RM0S5/3/2 DR CMPT TST

TABLES,

CONSTANTS,

MACRO V04.00

AND VARIABLE LOCATIONS

000
000
000
000

&-APR-81

OVWP15:
OVWP16:
OvVWP17:
OvwP18:

18:12:15 PAGE 7-2
SEQ . 6

.
.

0 ;TRACK 15
0 ;TRACK 16

0 ;TRACK 17
0 ;TRACK 18

;TABLE OF READ SCORE,NEGATIVE OFFSET SCORE

8N%YN([(AT=elel88oel%Noe9lIS8el%A9o3al%eS8oaNl89%eoS%aR%8lo%9l3%eal%58o9l%oalI&.3eol0%8eo9lI%&o3eTl9o&8%le8%Aal9o.%83etRl"TSe8al elelelolelelelelelelelelelelelelelele]

0023

LNRjelelslelelelelolalelelelalelalola%lel59SeD"NYlelelololalelolelelaleleleloloteotelela)%lS8ANll(elelelolololalelolelolealolololelelalel
[=lelelelalelelelaleleleleolelelelelols] (=lelelelelalolelalatalelalelolaletatal [=lelelelolotlelalalolalololatlaleletlateld O0O0O0O0O0O0O0O0O0O0O0O0O0O00O CO0O00O0O0O0DO0OViOO0OIAePDBsYlRN.OCO0O0O0O0O0O0O0O0O0O0O0O0O590O0O0OS2839%.R5NOCO0O0O0O0O0O0O0O0O0OO0O0O0OA%&8SNSO0O0O0O0O0O0ODO0O0O0O0O0O0O0O OCO0O0O0O0O0O0O0O0O0O0O0O0O0O0O0 333333333¢KKKKKKKKKK

[SY88NCO=0lNOeA0le0lYNoO0lSOol0OSaY0lSROo0lSeORl%%0oSOl%80alO%8&a0l8%Oe0l%&aOl088eOl8%&al08&%aOl08%&oOl%%o0lT"5e0Ol
Bs 0 gB OBL O TR0SRSEORISRUL0505%

;TABLE OF READ SCORE,.POSITIVE OFFSET SCORE

;TABLE OF SELF TEST SCORE

8 8 8 8 838

sTRACK 0
sTRACK 1

. TRACK 2

;TRACK 3
sTRACK &
;TRACK S

CONSTANTS,

AND VARIABLE

004372
04374
004376
004400
004402
004404
004406
004410
004412
004414
004416
004420
004422

000
000
000
000
000
000
000
000
000
000
000

LOCATICNS

000
000
000
000
000
000
000

SELF6:
SELF7:

SELF8:
SELF9:
SELF10:
SELF11:
SELF?%:
SELF13:
SELF14:
SELF15:
SELF16:
SELF17:
SELF18:

000
000

.BYTE
.BYTE

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

SEQ 0037

0.0
0,0
0.0
0.0
0.0
0.0

;TRACK 6
;TRACK 7

;TRACK
;TRACK
;TRACK
JTRACK

8
9
10
11

0.0
0.0
0.9
0,0
0.0
0.0

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

1
14
15
16
17
18

0,0

: TRACK 1%

BLKADR:

OFFCOD:

.BYTE

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

DRIVO
DRIV]

;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE
;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE

DRIV3

;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE

DRIV2
DRIV4

DRIVS
DRIV
DRIV7
DRIV10
DRIV11
DRIV12

DRIV13
DRIV14
DRIV15

DRIV16
DRIV17

sADDRESS OF THE PARAMETER BLOCK FOR DRIVE

;ADDRESS OF THE PARAMETER BLOCK FOR CRIVE

- ;ADDRESS OF
;ADDRESS OF
sADDRESS OF
;ADDRESS OF
sADDRESS OF

THE PARAMETER BLOCK FOR DRIVE
THE PARAMETER BLOCK FOR DRIVE
THE PARAMETER BLOCK FOR DRIVE
THE PARAMETER BLOCK FOR DRIVE
THE PARAMETER BLOCK FOR DRIVE

;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE

;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE
sADDRESS OF THE PARAMETER BLOCK FOR DRIVE
sADDRESS OF THE PARAMETER BLOCK FOR DRIVE

sADDRESS OF THE PARAMETER BLOCK FOR DRIVE
;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE

;OFFSET CODE TABLE
sNUMBER FOR NEGATIVE OFFSET (DIR = OUT)
.MUMBER FOR POSITIVE OFFSET (DIR = IN)

;DATA/PARAMETER BLOCK

; COMMAND CODE

;PSEL, A16 AND A17

sWORD COUNT (NEG)
;BUFFER ADDRESS

;SECTOR ADDRESS

: TRACK ADDRESS

(2}

.WORD
. WORD
.WORD

;OFFSET VALUE OR FMT16, HCI OR ECI

.BYTE
.BYTE
. WORD
. WORD
.BYTE

;DRIVER PARAMETER BLOCK, DRIVE #

.BYTE

p o)

FMTDPB:

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

YV, F Y

INDST:

004622

003

e
e e e e T R
NOWVSWN=O

001

NEY .

sTHE START LOGICAL DRIVE # TO WRITE ON EACH CYLINDER OF A BLOCK
;16 CYLINDERS,Z2 BLOCKS,TOTAL 32 CYLINDERS IN ONE ZONE

o -§OOO g elelelole

TABLES,

MACRO V04.00 4-APR-81 18:12:15 PAG% 7=3

: 2333333535358880

0024

CZRMTBO RMO5/3/2 DR CMPT TST

NNSIoruooIR

RM.REG:

|
|

M3
18:12:15 PAGE 7-4
SEQ 0038

.WORD

JRMCST

lelelelelelelelelolelelelelolslalslelsls]

sRMWC

:RMBA
s RMDA

JRMCS2

WCZ

sGENERAL PURPOSE PARAMETER BLOCK

.m
-WORD
. WORD

CYLNDR:

.BLKW

.BYTE
.WORD
. WORD
.BYTE

;DRIVER PARAMETER BLOCK, DRIVE #
;0i FSET VALUE OR FMT16, HCI OR ECI

.BYTE
.BYTE

GENDPB:

)

4-APR-81

N ogooconoocoo

MACRO v04.00
ABLES, CONSTANTS, AND VARIABLE LOCATIONS

0025

ZRMTBO RM05/3/2 DR CMPT TST

; COMMAND CODE
;PSEL, A16 AND A17
:WORD COUNT (NEG)
;BUFFER ADDRESS
;SECTOR ADDRESS

:TRACK ADDRESS
sCYLINDER ADDRESS
;ADDRESS TO SAVE ALL RH/RM REG'S
:STATUS WORD
;BUFFER

SHISTORY FILE FOR 16. LOGICAL DRIVES:(0-17 OCTAL)
000001
000002

SFMT
$COMND
$PSEL
$WRDM

$GAP+4

$GAP

000

001
002

$EMTAB

$8L*

000010
000011
000012
000014
000015
000016
000022
004622
004624
004644
004646
004666

$SEC
$TRK
$CYL
$SYSNM
$PHYDR

1
SFMT+1
SFMT+2
SFMT+3
$SFMT+5
SFMT+7
$FMT+10
SFMT+11
$SFMT+13
$FMT+14

DRIVO:

;HISTORY BLOCK OF LOGICAL DRIVE 0

_BYTE 781,0

sHISTORY BLOCK OF LOGICAL DRIVE 1

.BYTE 782,0

sHISTORY BLOCK OF LOGICAL DRIVE 2

$EMTAB-$COMND

.BLKB

SEMTAB-$COMND

DRIVZ:

sCYLINDER ADDRESS
;SUB SYSTEM A-H
sPHYSICAL DRIVE CODE (ASCII )
sLEFT TWO NULL BYTES
sEND OF HISTORY TABLE

.BYTE 780,0

.BLKB

DRIV1:

000

$SFMT+15

; COMMAND CODE
:PROT SELECT AND A16.A17
WORD COUNT
:BUFFER ADDRESS
;SECTOR ADDRESS
: TRACK ADDRESS

CONSTANTS,

004670
004710
004712
004732
004734
004754
004756
004776
005000
005020
005022
005042
005044
005064
005066
005106
005110
005130
005132
C05152
005154
005174
005176

005216

005220
005240
005242

AND VARIABLE

LOCATIONS

N3
18:12:15 PAGE 7-5

senna~s§omo
.BYTE 783.0
$EMTAB=-$COMND
LBYTE 784,0

.BLKB

DRIV3:

003

000

004

000

.BLKB
DRIV4:

005

000

DRIVS:

006

000

DRIV6:

007

000

DRIV?7:

000

DRIV10:

001

000

002

000

DRIV11: .BYTE 7811,0
$EMTAB=$COMND
.BLKB

003
004

000

005

000

.BLKB

000

005266
005270
005272
005274
005276
005300

066666
155554
133331
066663
155546
133315
066633
155466
133155

sHISTORY BLOCK

.BYTE 7812,0
SEMTAB-$(
DRIV13: .BYTE 7213,0
.BLKB
$EMTAB=-$COMND
DRIV14: .BYTE 7814,0
SEMTAB=-$COMND
: .BYTE 7815,0
SEMTAB-$COMND
.BYTE 7816.0

SEMTAB-$COMND
: .BYTE 7817,0
SEMTAB-$COMND

154666
131555
146666

115555

033333
177070
070414

064531
174473
062422
114352

036620
010031
052336

.WORD
.WORD

PSEUDO:

155554
133331

.WORD

066663

.WORD

155466

155546
133315
066633

.WORD
.WORD

133155
066333

.WORD

033333

.WORD
.WORD

040135
177070

WORD
.WORD
.WORD
.WORD
.WORD

063333

040135

-WORD

.WORD
.WORD
WORD

066333

sHISTORY BLOCK OF LOGICAL DRIVE

.BYTE 7£10,0

$EMTAB-$COMND

.BLKB

:
STNDAT

JHISTORY BLOCK OF LOGICAL DRIVE

$EMTAB=-$COMND

;STANDARD DATA PATTERN
005262
005264

JHISTORY BLOCK OF LOGICAL DRIVE

.BYTE 786,0
$EMTAB-$COMND
.BYTE 787.0

DRIV12:

006

007

$EMTAB=-$COMND

.BLKB

SEQ 0039

.WORD
.WORD
LWORD
.WORD

154666
131555
063333
146666
115555

070414
064531
174473
062422
LWORD
114352
.WORD
036620
.WORD - 010031
.WORD
052336

sHISTORY BLOCK OF LOGICAL DRIVE

sHISTORY BLOCK

sHISTORY BLOCK
sHISTORY BLOCK

LOGICAL DRIVE

TABLES,

4-APR-81

LOGICAL DRIVE

0026

MACRO V04.00

LOGICAL DRIVE

sHISTORY BLOCK

sHISTORY BLOCK
sHISTORY BLOCK

sHISTORY BLOCK

LOGICAL DRIVE

R
e R

CZRMTBO RMOS5/3/2 DR CMPT TST

LOGICAL DRIVE

LOGICAL DRIVE
LOGICAL DRIVE

|
£Q 0027

.‘

CZRMTBO RM0S5/3/2 DR CMPT TST
MACRO v04.00
TABLES, CONSTANTS, AND VARIABLE LOCATIONS

005346

01730

.WORD

017310

102367

.WORD

102367

005350

011347

005354
005356

152567
001246

005352

005360

B &
4-APR-81 1B:12:15 PAGE 7-6

160073

.WORD

.WORD
.WORD
.WORD

011347
152567
001246
160073

ERROR POINTER TABLE

4-APR-81

.SBTTL

&
C
18:12:15 PAGE 8

SEQ 0041

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
s*THE INFORMATION IS OBTAINED B} USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER NDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
«NOTE1:
*NOTE?2:

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP().
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

EM
DH
DT
DF

MACRO v04.00

@ 0028

| CZRMTBO RMOS/3/2 DR CMPT TST

005362

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

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTR:
ERROR 1

005362
005364
005366
00537

036576
041212
041634
041760

EM1
DH1
DTI
DF1

;RH CONTROLLER

EM2
DHZ
DT2
DF2

JUNEXPECTED ATTENTION OCCURRED

INTERRUPT OCCURRED

(RMAS=0)

ERROR 2

005372
005374
005376
005400

036635

041221
041640

041761

ERROR
3
036673
041303
041656
041767

EM3
DH3
D73
DF3

;MASSBUS PARITY ERROR (MCPE=1)

EM4
DH4
DT4
DF4

;JMASSBUS PARITY ERROR (PAR=1)

EM5
DH2
D12
DF2

;ADDRESS PLUG BIT CHANGED

EM6

;RH CONTROLLER DIDN'T RESPOND TO ADDRESSING

ERROR 4

26 005414
27 005416
28 005420
29
30
31
32 005422
33 005424
34 005426

;g 005430

37
38
39 005432

40 005434
41 005436
42 005440

036731
041334
041666
041772
ERROR S

036766
041221
041640
041761
ERROR 6

037022
041376
041700
041760

D16

DF1

2 0029

’

,’

(ZRMTBO RMOS5/3/2 DR (MPT TST

ERROR POINTER TABLE

MACRO v04.00

4-APR-81

D &
18:12:15 PAGE 8=1

:;* ERRORS 7 = 12 ARE PART OF THE ‘DUMP'* SUBRGUT
INE

:ERROR 7

48 005442
49 005444

50 005446
51 005450

000000
041407

041704
000000

55 005452
56 005454

57 005456
58 005460

000000
041460

041720
000000

71 005476
72 005500

0
DH10

DT10
0
;ERROR 11

000000
041531
041734
000000

67
69 005472
70 005474

D7
0

:ERROR 10

62 05462
63 005464
64 005466
65 005470

0
DH7

0
DH11
DT11
0

:ERROR 12
000000
041602

041750
000000

0
DH12

DT12
0

SEQ 0042

CZRMTBO RMOS5/3/2 DR (MPT TST

ERROR POINTER TABLE

MACRO v04.00

4-APR-81

A R Y VL LV IV VL)

g 8882 38388
%

E &
18:12:15 PAGE 9
SEQ 004}

;THIS ROUTINE

BADTMO: MOV
ST

005516

-gss:

oty

(e 200

OOV
NN —=OV00 N

Q@ 0030

CMP
TYPE
BR

LASCIZ

MOV

TYPOC

HANDLES UNEXPECTED

(SP) ,RO

-(RO}

(SP)+,(SP)+
658

648

173612

JMP

sSAVE PC WHERE THE TIME OuT OCCURED
*ADJUST PC =2
*RESTORE STACK POINTER
“:TYPE ASCIZ STRING

::GET OVER THE ASCIZ

<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

RO,-(SP)

NOP

5562

TIMEOUTS

;SETUP FOR TYPING OUT PC
;PUT

aRSTART

.SBTTL

START OF PROGRAM

"HALT(0)'

INSTRUCTION HERE IF YOU WISH

;TO STOP ON UNEXPECTED TIMEOUT.

;JUMP TO RESTART

012737
012737
000414

005566
000400

START:

MOV

#. ,RSTART

;SETUP RESTART ADDRESS

012737
012737
000405

005604
177777

START1: MOV

#. ,RSTART

;SETUP RESTART ADDRESS

012737
005037

005622
001334

START2: MOV
CLR

000240
005227
001375
000005

ggv

START3: NOP

INC

000000

BNE

RESET

.SBTTL

012706
005026
022706
001374
012706

001100

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

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

012737
012737

023610
000340

g#ggigucAon

START3

2200 START ADDRESS FLAG
;204 START ADDRESS FLAG

#. ,RSTART
CHGADR

;SETUP RESTART ADDRESS

#0
o4

;TTY LOOP, WAIT FOR INCREMENT
:OF WORD

;210 START ADDRESS FLAG

;CLEAR THE WORLD

INITIALIZE THE COMMON TAGS

;;CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#$CMTAG,R6
ssFIRST LOCATION TO BE CLEARED
CLR
(R6)+
;:CLEAR MEMORY LOCATION

001114

CMP

001154

BNE

MOV

#SWR ,R6
-6

#STACK
, SP

> :DONE?
;;LO0P BACK IF NO

;:SETUP THE STACK POINTER

;:INITIALIZE A FEW VECTORS
Moy
#$SCOPE ,a#I0TVEC ;;]0T VECTOR FOR SCOPE ROUTINE
MOV
#3640,
I0TVEC+2 ;;LEVEL 7
MoV
#SERROR ,#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE

MOV

023504
001131

000014
000016

MOV
MOV
MOV
MOV
Moy
CLR
CLR

#340,SMEMTVEC+2 ;:LEVEL 7

#STRAP ,@¥TRAPVEC ;.TRAP_VECTOR FOR TRAP CALLS
#340,a#TRAPVEC+2;
LEVEL 7
#SPWRDN ,a#PWRVEC ; ;POWER_FAILURE VECTOR
#3640, #PWRVEC+2 ;;LEVEL 7
SENDCT,SEOPCT
;;SETUP END-OF -PROGRAM COUNTER
S$TIMES
;o INITIALIZE NUMBER NF ITERATIONS

SESCAPE
;:CLEAR THE ESCAPE ON ERROR ADDRESS
MOvVB
#1,SERMAX
::ALLOW ONE ERROR PER TEST
;;INITIALIZE THE ‘‘T-BIT'' TRAP VECTOR. THEN LOAD LOCATION “'SRTRN'', IN
;;THE "END-OF -PASS'' (SEOP)

MoV
MOV

ROUTINE, WITH A 'RTI'' OR 'RTT",

#SRTRN,#TBITVEC ;;SET ''T'' BIT VECTOR TO SRTRN
#340,a#TBITVEC+2 ;;LEVEL 7

0031

94 RMTBO RM05/3/2 DR CMPT TST
INITIALIZE THE COMMON TAGS

006006
006014
006022
006024
006030
006032
006040
006042
006046
006054
006060
006066

32
33

012737
012737
005046
012746
000006
012737
000402
062706
012737
005037
012737
012737

006074
006100
006106
006114
006122
C06130

013746
012737
012737
012737
022777
001012

006132
006134
006140
006142
006150
006156

000403
012716
000002
012737
012737
012637

006162
006166
006174
006176
006204

005037

006212

132737

001403
012737

012737
012737

000002
006042

MACRO v04.00

000010
000012
023616
006060
006066
000004
006134

177570
177570
177777

023610
000010

123727

001406
023727
001005
112737

o ——

MOV

#648,-(SP)

4
9-1

RTT

-(SP)

64%:

BN';V

gg;T.SRTRN

000010

65%:
66%:

MOV

ADD

#10,SP

CLR
MOV
MOV

$T3IT
#.,SLPADR
#. . SLPERR

001122
001124

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

..DWV PS

JAND PC

::TRY

JsRTT

THE

RTT

IS LEGAL==SE)

SRTRN TG A RTT

;RTT ILLEGAL==CLEAN OFF

#RESVEC+2, ilRESVéC:;RESTORE TRAP CAT(CHER
IF NOT FOUND OR IT

;;EQUAL TO A "*=1'", SETUP FOR A SOF TWARE SWITCH REGISTER.
MOV

000004

SWERRVEC,-(SP)

~;;SAVE ERROR VECTOR

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

;:SETUP FOR A HARDWARE SWICH REGISTER
::AND A HARDWARE DISPLAY REGISTER
::TRY TO REFERENCE HARDWARE SWR
..BRANCH IF NO TIMEOUT TRAP OCCURRED

MOV

#67%,QMERRVEC

68%
#68%, (SP)

::BRANCH IF NO TIMEQUT
::SET UP FOR TRAP RETURN

MOV
MOV
(MP
BNE

THE STACK

;CLEAR “'T'" BIT SWITCH
..INITIALIZE THE LOOP ADDRESS FOR SrOPE
:SETUP THE ERROR LOOP ADDRESS

::8128 FOR A HARDWARE SWITCH REGISTER.

::SET UP ERROR VECTOR

AND

THE HARDWARE
SWR IS NOT = -1

006142

67%:

BR
S?Y

000176
000174
000004

:
688

MOV

#SWREG, SWR

;;POINT TO SOF TWARE SWR

CLR
BITB
BEQ
MOV

$PASS
HAPTSIZE ,SENVM
708
#$SWREG, SWR

::CLEAR PASS COUNT
;:TEST USER SIZE UNDER APT
;:YES ,USE NON-APT SWITCH
:sNO,USE APT SWITCH REGISTER

69%:

001220
000200

001233

001234

001154

005502
000300

70%:

MOV

000006

MOV

#BADTMO,ERRVEC

#PR6,ERRVEC+2

;SETUP FOR UNEXPECTED TIMEOUT
;LEVEL 6

TYPE PROGRAM NAME

BNE
CMP

000042

BEQ

006244

TYPE

-728%:

LSBTTL

000042

001232

000001

001154

000176

000001

#DISPREG,DISPLAY
(SP)+ ,@#ERRVEC
;;RESTORE ERROR VECTOR

;;TYPE THE NAME OF THE PROGRAM IF FIRST PASS
INC
#-1
;2FIRST TIME?

177777

023544

MCV
MOV

sSETUP "'TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOQUTS

001150

LASCIZ

2 JBRANCH IF YES

718

*:GET OVER THE ASCI?

72%

(MP

SWR, #SWREG

MovB

::TYPE ASCIZ STRING

<CRLF>aCZRMTB0O - RM05/3/2 DRIVE COMPATIBILITY TSTa<CRLF>
6l
738

GTSWR
BR

;sBRANCH IF NO
J:ACT=112

71%

TST
BNE

BNE

73%:

71%
mnvo,mz

GET VALUE FOR SOF TWARE

(MPB
BEQ

104406

000403

#RTI,SRTRN
#658 QNRESVEC

023610

5igs
005737
001012

MOV
MOV
CLR

.SBTTL

005227
001036
022737
001432
104401
000427

F
18:12:15 PAGE

SEQ 0044

006032
000006

4-APR-81

SWITCH REGISTER

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

SENV .M
73%

;:ARE WE RUNNING UNDER APT?
s JBRANCH IF YES

748

s :BRANCH IF NO

74%

#1,3AUT08B

;;SOFTWARE SWITCH REG SELECTED?

;.GET SOFT-SWR SETTINGS

s+ SET AUTO-MODE INDICATOR

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

0032

’ 006362
38

TAPE

005037

001404

001160
013737

000047

CLR

43 006374
44 006376

000016

000040

001404

BNE
MOV

46 006412

103002

45 006404

122737
122737

47 006414

105037

49 006424
50 006426

001425
104401

000007

001404

48 006420 005737 000042
006432

006460

51 006460
52 006462

53 006466
54 006470
55 006471
56 006472

000412
005046
113716

104403
001
000

75%:
001404

104401

001207

59 006500

005227

177777

61 006506

104401

006514

006512

006534

62 006534
63 006536

64 006542
65 006544
66 006545

67 006546

006552
.

68 006636

001114

000410
005046
113716

104403
001
000
104401

000431
104401

006642

000435

72 006736

004737

73 006742
74 006750
75 006756

76 006762

013737
013737
012705
005025

SEQ CD45

001404

006644

022705
001374
012706

004424

81 007002
82 007010
83 007014

013737
005037
005037

001320
001344
001346

005037

030324
030326
4$:

001100

177776

.ASCIZ

CLR
MOVB

001352

‘BR IF NOT
:GET DEVICE INDICATOR AND NUMBER

'¥XDP'

LOAD DEVICE

*LOADED FROM AN RM0S/3/2 ?

SYES

XXDP

*NO, DEFAULT TO DRIVE 0

2
76$

‘BR IF NEITHER
::TYPE ASCIZ STRING

PYL¥:
75

:CHAIN MODE OR ACT11 AUTD ACCEPT ?
‘GET ovsn THE ASCIZ

<CRLF>/NOT TESTING DRIVE
/
-(SP)
XXDP, (SP)

1
0

$CRLF

;CLEAR WORD ON STACK
*GET DRIVE ADDRESS

*TYPE THE ADDRESS
*ONLY 1 CHARACTER
:SUPRESS LEADING ZEROS
*CR-LF

*GET NUMBER OF DRIVES

INC

#-1

;FIRST TIME THRU HERE ?

BNE
BR

.ASCIZ

CLR
MOVB

LASCIZ

78%

778

*NO

*:TYPE ASCIZ STRING

::GET OVER THE ASCIZ

<CRLF>/TO TEST DRIVE /

-(SP)
XXDP, (SP)

1
O

808

793

:CLEAR WORD ON STACK
:GET DRIVE ADDRESS

*TYPE DRIVE ADDRESS
*ONLY 1 CHARACTER
:SUPRESS LEADING ZEROS
::TYPE ASCIZ STRING

*:GET OVER THE ASCIZ

/., HALT PROGRAM, REMOVE RRDP PACK AND REPLACE

81$

k{3

JSR

PC,STKINT

LASCIZ

STORAGE

“IS IT A VALID NUMBER
?

TYPE

éiavs:

001276
001300
002006

B8R

TYPE

; 62“:

022754

BEQ
TYPE

TYPOS
BYTE
BYTE

006554

g
a#s0, XXDP
47 ,XXDP

TYPE

558

;CLEAR

CMPB

CLRB

XXDP CHAIN OR DUMP

XXDP

#1641

TYPE

28:

ACT11,

CMPB

TYPOS
BYTE
BYTE

-788:

77 006764
78 006770
79 006772

80 006776

1%:
::768:

000517

(MANUAL),

BHIS

006434

gg 006476

60 006504

*PAPER

006362

42 006366

G &
18:12:15 PAGE 9-2

748:
:THE FOLLOWING FINDS OUT THE PROGRAM CONTRGL MODE:

&-APR-81

::TYPE ASCIZ STRING

*:GET OVER THE ASCIZ

/WITH A WORK PACK,

CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF>

:TURN ON THE KEYBOARD INTERRUPT

MOV
MOV
MOV

$RMADR,RMADR
SRMVEC ,RMVEC
#ASNLST,RS

-RH/RM ADDRESS
:VECTOR ADDRESS
:START OF AREA TO CLEAR

cMP
BNE
MOV

#INDST,RS
4$
csncx SP

;LOOK FOR END OF CLEAR AREA
‘BR IF NOT FINISHED
*SETUP THE STACK POINTER

MOV
CLR
(LR

HZ SIXTEE
HOUR
MINUTE

CLR

(R5)+

IT/<CRLF>

*CLEAR THE PROCESSOR STATUS WORD

21760 TH OR 1750 TH SECOND COUNTER VALUE
:CLEAR THE HOUR'S COUNTER
*CLEAR THE MINUTE'S COUNTER

’

84 007020
85 007024
86

005037
005037

88
89 007030
90 0C7034

CLR

(LR

18:12:15 PAGE 9-3

SECOND

:CLEAR THE SECOND'S COUNTER

CFLAG

“CLEAR THE

*(ONTROL

FLAG

:ROUTINE TO DETERMINE BUFFER AREA S!ZE
005227

91 007036

177777

027746

92 007042

030076
001332

93 007050

160000

005670

SIZMEM:

001332 18:
160000
001332
001332 2%:

INC

BNE
JSR
MOV
CMP
BLOS
MOV
SUB

#-1

1
PC.$S1Z2E
SLSTAD,LSTAD
LSTAD,#160C00
2%
#160000,LSTAD
#1500.+2,LSTAD

:SEE

TIME

TO SIZE MEMORY

‘BR IF NOT
*SEE HOW MUCH MEMORY ON SYSTEM
:-SAVE THE LAST ADDRESS
:OVER 28K ?
*NO,THEN DON'T SET THE NEW LIMIT
:SET NEW LIMIT
:SAVE XXDP LOADER AND ABSOLUTE LOADER

;SET UP THE OTHER SYSTEM DEVICES THAT THE PROGRAM WILL USE
004737012737

030264

SETVEC:

JSR

MOV

»H

—

;SETUP IF
005001
005002
005003

016300
004737
022322
005201
022701
002367

MONTR:

004444

021720

PC,CKCLK

#-1.SAVEFG

:START THE CLOCK

*SET THE SAVE REGISTERS FLAG

*XXDP' OR "ACT11' OPERATION

CLR
CLR

R1
R2

;DRIVE #
*AVAIL TABLE

18:

MOV

BLKADR(R3),R0O

-LOAD DPB ADDRESS

28:

(R$)+,(R2)+

* INCREMENT INDEX

CLR

JSR

PC,CLRDPB

INC

BGE

(MP

000007

47 .R1

‘DRIVE#X X 2

INDEX

*CLEAR DPB BLOCK
*NEXT DRIVE

*ALL DRIVE ASSIGN ?
*NO

_a-a-a—-i..‘::—l..l—n—n—a—)—a-b—a—l—l—l..._a—a

&-APR-81

001350
001336

N8oxInTrANISBRIRIRIC288S

;ASSIGN LOGICAL DRIVES TO BE TEST IN THE PASS1 AND PASS 2
*THREE WORDS ARE USED

:
:

—

0033

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

ASNLST
ASSGN1

ASSGN2

IN THE BIT MAPS:

= SPECIFIES THE LOGICAL DRIVES ASSIGNED
= SPECIFIES THE LOGICAL DRIVES WILL BE TESTED IN PASST.

= SPECIFIES THE LOGICAL DRIVES WILL BE TESTED IN PASS2.

*EACH LOGICAL DRIVE MAS A HISTORY FILE LABELED DIRV'Z (Z=0 TO 17)
*THE LOCATIONS LABELED $SYSNM AND SPHYRD IN THE HISTORY FILE
:%a;s ;»)fi SYSTEM NAME (A TO M) AND PHYSICAL DRIVE NUMBER

*THE SUB-SYSTEM ADDRESS AND INTERRUPT VECTOR ARE STORED

*IN THE TABLE LABELED ''SYSADR:''.

*THE LOCATIONS SYSADR AND SYSADR+2 FOR SUB-SYSTEM A,SYSADR+4
*AND SYSADR+6 FOR SUBSYSTEM B , ETC,THE FIRST WORD

*1S THE SUB SYSTEM ADDRESS WHILE THE SECOND WORD IS THE VECTOR

012700
012701
005020
020100

002006
004424

012737

000101

101375

*THE LOGICAL DRIVES ARE ASSIGNED FROM CONSOLE KEYBOARD.
MODOO: MOV
#ASNLST ,RO
:ADDRESS OF 1ST BIT MAPS IN RO
18:

001274

MOV
CLR
CMP
BHI
MOV

#INDST ,R1
(RO) +
R1,RO
18
#'A,$CDW2

*LAST ADDRESS TO CLEAR
*ALL DONE ?
*NO, THEN BRANCH BACK
‘TEMP STORAGE OF SYS "JAME

*CLEAR CURRENT POINTED ADDRESS

0034

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

4-APR-81

&
I
18:12:15 PAGE 9-¢4
SEC 0047

141

142
143
144
145
146
147
148
149

007162
007166
007172
007176
007202
007206
007212

0 007216

005037

001224

104401
104401
104401

041776
042644
00127¢
042644
042752

104401
104401
104401

104401

MOD21:

001207

042006

104411

163 007264
164 007270
165 007272
166 007276
007300

007302
007303

167 007304
168 007310
169 007312
170 007314
171 007316
172 007320

181 007350

182 007352

183 007354
184 007360
185
186 007364

187 007370
188 007372
189 007376
190 007402
191
192
193
194

007410
007414
007420
007426

123702

001010
104401
010246

1%:

022410

104401

000724
005201
105711
001404
122721

001316
000737

005737
003035
013701
042701
005301
006301
006301
062701
010137

005737
001416
013700
011037

TYPE

.QUOTM

.$CDW2
.QUOTM
.BLNKS1
M:SG2

JTYPE

*'' QUOTATION MARK

JTYPE
;TYPE

'TM QUOTATION MARK
1 BLANK

MOV

(SP)+,R1

BEQ
JSR

38
RS,CK.OCT

(R1)

JREAD IN THE DRIVE NUMBERS
;GET THE INPUT LiNE ADDRESS
sgg OF STRING <CR> ?

MOD21

sCHECK THE DIGIT MUST O TO 7,RETURN VALUE IN R2
s INCORRECT DRIVE NUMBER,ENTER AGAIN

030312

176700

TSTB

B8R

001224
001276

BISB
CMP
BNE

001404

043326

28:

R2,-(SP)

.BYTE

TYPE

,LODEV

ISTB

(R1)

001274
177760

1$:

001300
000002

?DRIVE'

;:SAVE R2 FOR TYPEOUT

2:G0 TYPE--OCTAL ASCII

(R1)+

; :SUPPRESS LEADING ZEROS

JTYPE *1S LOAD DEVICE'
;TRY AGAIN

Esgg OF STRING <CR> ?
IMUST BE A COMMA

CHGADR
MOD22
$CDW2,R1

;START AT 200 ?
;BRANCH IF SO

DEC

SLEFT ONLY &4 BITS
;ADJUST INDEX VALUE

#SYSADR ,R1

*SYS ADDRESS TABLE ADDRESS

TST
BEQ

DRIVE
28

MOV
MOV

(RO) ,SRMADR
2(ROY
, SRMVE C

MOV

$RMADR, (RO)

sCHECK IF ANY PHYSICAL DRIVE(S) ASSIGNED
JBRANCH IF NONE
:SYS ADDRESS TABLE ENTRY
s SYS ADDRESS
; SYS VECTOR
+CHECK THE ADDRESS WITH THE OPERATOR
+NEW RH/RM ADDRESS INTO TABLE
JNEW VECTOR OF RH/RM INTQO TABLE
JBRANCH TO NEXT MODULE

MOV

JSR

28:

ST
BGT
MOV

ADD

001272
001276
000002
036300
001276
001300

sTYPE

*ENTER AGAIN ,IF NOT
*LOCATE NEXT DRIVE

MOV
MOD23:

&',

THIS LOAD DEVICE ?
IF NO
THIS THE DRIVE ?
IF NO

ASL
ASL

001224

;1S
;BR
;IS
;BR

BNE

8IC

002014
001272

;DRIVE(S)

MOD21

B8R
3$:

(A TO H)
JSYS=NAME

;sTYPE 2 DIGIT(S)

MOD21

CMPB

001334

,QDRIV

B8R

BEQ

000054

XXDP

MOV

INC

;SUB=SYSTEM

ATABIT(R2),DRIVE
;SET THE PHYS. DRIVE BIT, RZ = DRIVE NUMBER
#176700, SRMADR
;1S 1T STANDARD RH/RM ADDRESS ?
28
;BR IF NO
28
XXDP,R2
2

TYPOS

043336

,S$CRLF
.MESGI

BEQ
CMPB
BNE
TYPE

104403

002
000

:EE”L‘STORAGE OF PHYSICAL DRIVE BIT MAP

RDL IN

105711

160 007254
161 007256
162 007262

DRIVE

TYPE
TYPE

TYPE
TYPE
TYPE
TYPE

012601
001437
004537
000751
156237
022737
001016
005737
001413

(LR

MOV

B8R

#177760,R1
R1
R1

R1,$COWi

$CDW1,RO

PC,BUSADR

$RMVE
C .2 (R0)

MOD11

sSYS NAME ASCII FROM A TO H

;2 WORD INDEX VALUE
:7SYS ADDRESS TABLE'S ENTRY TO CDW1

0035

'
.

CZRMTBO RMOS/3/2 DR CMPT TST
MACRO VC4.00
GET VALUE FOR SOF TWARE SWITCH REGISTER
195
196 007430
197 007436
198

013737
013737

(L1276
001300

002014
002016

MOD22:

;$CDW2
. $CDW1

199

201

sDRIVE

4-APR-81

&
J
18:12:15 PAGE 9-5

SEQ 0048
MOV
MOV

$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

:THIS SECTION OF CODING USES THE ABOVE PARAMETERS
;TO SET UP THE BIT MAP OF ASNLST,ASSGN1,ASSGN2

206 007444
207 007450
208 007452
209

216 007502
217 007504
218 007506
219 007510
220 007512
221 007516
222 007520
223 007524

224 007532
225 007536

226 007542
227 007546
228 007550
229 007556
230 007560

231 007562
232 007566
233 007570
234 007572
235 007574
236 007600
237 007606
238 007614
239 007622
240 007624

241
242 007624
243 007630
244 007632
245 007640

246 007642
247 007646
248 007652
249 007654
250 007660
251 007664

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

062702
000770
016204
113764
050137
050137
050137
005002
136237
001005

005202

001224

MOD11:

TST
BNE
JMP

MOD 30
MOD12

JBR IF YES
sBRANCH,
IF NONE

MCD30:

CMP

#-1,ASNLST

JHAVE ALL

:YES

007624
177777

002006

002006
000001
1%:

BEQ
MOV
MOV
CLR

BIT
BEQ
CLC
ROL

000002

004444
001274
002006
002010
002012

030312

000014

001224

2%:

3s:

000007

000015
000060
000011
030312

4%:
000015
000016
001224

5%:

MOD12:

001334
177777

042651
042006
000001
002006

002006

1%:

2%:

8(CS
ADD
BR
MOV
mMovBa
BIS
BIS
BIS

CLR
BITB
BNE
INC
cMe
BLE
8R
MOV
MOVB
BIS8
MCvB
BI(B
BNE
TST
BGT
CMP
BEQ

TYPE
TYPE

CLR

3%:

MOV

BIT
BEQ

DRIVE

5%
ASNLST,RO
#1,R1
R2
R1,RO

;ANY DRIVE ASSIGN ?

16 LOGICAL DRIVES BEEM ASSIGNED ?

JBR IF YES
;FOUND THE AVAILABLE LOGICAL DRIVE LOCATION
;START FROM LOGICAL DRIVE O
s INDEX VALUE
;1S THE LOGICAL DRIVE AVAILABLE ?

JNEXT LOGICAL DRIVE

#2,.R2

s INCREMENT INDEX VALUE

5$
1%

JBRANCH IF NONE IS AVAI'LABLE
;LOCATE NEXT LOGICAL DRIVE

BLKADR(R2)
,R¢ ;GET THE LOGICAL DRIVE'S HISTORY FILE
$CDW2,$SYSNM(RS)
;LOAD THE ASCII SYS NAME
R1,ASNLST
R1,ASSGN1
R1,ASSGN2

;SET LOGICAL DRIVE ASSIGN BIT
:SET PASS 1 BIT
;SET PASS 2 BIT

;DRIVE #

ATABIT(R2) ,DRIVE
;1S THIS DRIVE ASSIGNED ?
4%
;BR IF YES
R2
;PHYSICAL DRIVE NUMBER
R2 .47
sALL DRIVES DONE YET ?
33
:BR IF NO

5%
RZ2.(R4)

JYES, EXIT
;LOAD THE PHYSICAL DRIVE # INTO HISTORY FILE

MoD 30

JBRANCH IF NOT ALL DONE

CHGADR
7%

;200 START ?
JYES,THEN EXIT

(R4) ,$PHYDR(R4) :GET PHYSICAL DRIVE NUMBER AND
#°'0,$PHYDR(RG)
:MAKE IT ASCII.
#HT ,$GAP(R%)
sMAKE UP FOR SCORE TYPE
ATA?IT(RZ).DRIVE
-DEASSIGN DRIVE BIT FROM L!ST

#-1,ASNLST

sFULL HOUSE

,MESGS
JMESG2

JWILL TEST
sDRIVE(S)

#1,.R4
g:.ASNLST

JBIT MAP OF ASNLST
JASSIGNED LOGICAL DRIVE ?

JYES,THEN EXIT
s INDEX TO LOGICAL DRIVE HISTORY FILE

288
289

004444
000014

104401
104401
104401

005237
122737

001274
000110

012637
023727
001004
104401

000137
104401

005737
001402
000137
005037
000137

.BYTE

042752
000002

4%:

5%:

000131

042741
007162
042744
001334

6%:
7%:

010054
002010
012460

8%:

005737
001002
000137

011004

005037
013737
112737
013737
013737
013701
012777

001270
004444
000101
002014
002016
001272
017444

002010

001272
001274
030324
030326

020172

TYPE
ADD
CLC
ROL
BCS
BR
TYPE
TYPE
TYPE
TYPE
TYPE

INC

001274

001207
042670
001174
001174

18:12:15 PAGE 9-6

;LOAD THE HISTORY FILE ADDRESS

(R5) ,=(SP)

;TYPE

THE PHYSICAL DRIVE #

;TYPE

1 BLANK

#2,R3
R4

5%
3$

MESG6
MESG1

.QUOTM

.$CDW2

.QUOTM
$CDW2

#'H,8CDW2

MOD21

TST

CHGADR

.SCRLF

MESG?7
(SP)
+ ,$TMPO
STMPO #'Y
63
R

BEQ
JMP
CLR
JMWP

;ON THE SAME SYSTEM ?
sNO

0
BLNKS1

CMPB
BLO
TYPE
TYPE
RCCHR
MOV
cMP
BNE
TYPE
JMP
TYPE

SEQ 0049

BLKADR(R3)
,RS

2§YSNM(RS).SCDU2

MOvB
TYPOS

042664
041776
042644
001274
042644

103421
104401
104401
104410

001274

283 010032
284 010036
285 010040
286 010044
287 010050

126537
001005
111546
104403
001
000
104401
062703
000241
006104
103401
000754
104401
104401

268 007744
269 007750
270
271 07754
272 007760
273 007766
274 007770
275 007774
276 010000
277 010002
278 010006
279 010014
280 010016
281 010022
282 010026

016305

252 007666
253 007672
254 007700
255 007702
256 007704
257 007706
258 007707
259 007710
260 007714
261 007720
262 007722
263 007724
264 007726
265 007730
266 007734
267 007740

4-APR-B81

CZRMTBO RMO5/3/2 DR CMPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

XPASS1

s INCREMENT TO NEX7 LOGICAL DRIVE

;BIT MAP OF THE NEXT LOGICAL DRIVE
sBRANCH IF ALL LOGICAL DRIVE'S CHECKED
;BRANCH BACK
;ON

;SUB SYSTEM

JTYPE """ QUOTATION MARK
;
ATOH
JTYPE *'" QUOTATION MARK

;CHECK NEXT SUB SYSTEM
:c%% EIGHT SUB SYSTEMS CHECKED?

;CR=LF
;ASK FOR OTHER SUB SYSTEM
JREAD 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 PASS1 BIT MAP
;BRANCH TO PASS2

THE VARIABLES ARE ASSIGNED AS FOLLOWS:
ADDRESS OF THE CURRENT LOGICAL DRIVE HISTORY FILE
SYSTEM NAME A THROUGH H

$C Dw1
$COW2
SDEVM

ASNLST
ASSGN1

CURRENT LOGICAL DRIVE #
ASSIGNED LOGICAL DRIVES
ASSIGNED LOGICAL DRIVES IN THIS FASS
ADDRESS OF DPB BLOCK FEEDED INTO DRIVER-HANDLER
TEMP STORAGE OF ADDRESS OF THE LOGICAL BLOCK

LAR

we L6

|
|

RO
R1

XPASS1:

1ST
BNE
JMP

ASSGN1
18

sANY DRIVES ASSIGNED FOR PASS1
;BR IF YES, ELSE GO TO
;END OF PASS 1

CLR
MOV
MOvR
MOV
MOV
MOV
Mov

$DEVM
BLKADR, $CDW1

s INDEX OF LOGICAL BLOCK
sADDRESS OF LOGICAL BLOCK 0
;SYS NAME STARTS FRGM A
;LOAD SYS-TEM A INTO
;DIRVER=-HANDLER
<R1=ADDRESS OF LOGICAL BLOCK 1
JRESET ALL INTERRUPT VECTOR

1%:

ENDX1

#'A,$(DW2
SYSADR ,RMADR

SYSADR+2,RMVEC
$CDW1,R1

#IDLEX,@RMVEC

353

b o

i el e

oD o

olelololelololololols]

jelelelololelolelelolels]

-4

g >
D el qach wodd eus:

b o

VONOWNSWN—=O

NN NN NN NN NN

1 0057

MTBO RMO5/3/2 DR CMPT TST
MACRO V04.00
v
UE FOR SOF TWARE SWITCH REGISTER

323 010222
324 C10223
325 010224
326 010230
327 010234
328 010240
329 010244
330
331 010250
332 010252
333 010254
334 010256
335 010260
336 010264
337 010272
338 010300
339 010304
340 010310
341 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

005077
104401

104401
104401
104401
104401
104401
104401
111137

104401

104401
104401
113746
104403

001
000

104401
104401
104401
104401
104401

020170
001207
042021
042664
041776
042644
001274
062644
001224
001207
042045
001274
001224

CLR

TYPE
MOvB

TYPE
TYPE
TYPE
MovB
TYPOS

.BYTE
.BYTE

042752
042073
001207
042106
042752

TYPE
TYPE
TYPE
TYPE
TYPE

2%:

012700
113710
012760
012760
012760

013760
113760
105060
112760

030334
177777
177777
001224
030206

030264
030266

030216
030216
000022
000007

001402
001372
030216

000004

001372

004506
001224
043456
004526
177400
001374
001372
000010
000171

3%:
000006
000014
000004
000012
000011

000002

004037
004506
000774
005737
001775

031062

4%:

004524

5%:

062737

000002

100015

004516

&
L
18:12:15 PAGE 9~7
SEQ 0950

TYPE
TYPE
TYPE
TYPE
TYPE
TYPE

104411

012602
105712
001374
004737
012737
012737
013700
105760
003467
105760
003464
116037
012737
122760
001403
012737

4~APR-81

RDL IN
MOV
TSTB
BNE
JSR
MOV
MOV
MoV
TSTB
BLE
1STB
BLE
MOovB
MOV
CMPB
BEQ
MOV

MOV
MOvVB
MOV
MOV
MOV
MOV
MOvVB
CLRB
MOvB
JSR
FMTDPB

TST

BEQ

BPL
ADD

SRMVE(C+2

‘Efief? THE

MESG3

ixe STARTING PASS 1

+SCRLF

MESG6
MESG1
.QUOTM

.$CDW2

,QUOTM

INTERRUPT LEVEL

;ON

;SUB=SYSTEM
;TYPE

" QUOTATION MARK

(A TO H)
JSYS=NAME

(R1) ,DRIVE

;TYPE ''" QUOTATION MARK
:%SAEFTHE PHYSICAL DRIVE #

. $CDW2

sMOUNT PACK ON THE DRIVE
(A -~ H)
JSYS=NAME

+SCRLF
MESG4

DRIVE ,=(SP)

;TYPE

THE DRIVE #

;TYPE

1 BLANK

0
BLNKS1

MESG8

+SCRLF
MESGY
BLNKS1
(SP)+,R2
(R2)

PC,RMINIT

#-1,SAVEFG

#-1.SEEKFG

DRIVE ,RO
DRVSTA(RO)
63
DRVTYP(RO)

;sCR=LF
JTYPE 1 BLANK

;CHECK IF 0.P. READY
sLOCATE THE INPUT LINE

;FOLLOW BY <CR> ?

;BRANCH IF NOT
JINITIALIZE THE SUB SYSTEM
sSAVE ALL RH/RM REGISTERS

:DON'T DO IMPLY SEEK
;RO=PHYSICAL DRIVE # OF THE SUB SYSTEM

;DRIVE EXIST AND ON LINE ?
;BRANCH IF NOT
;DRIVE IS AN RM05/3/2 ?
6%
sBRANCH IF NOT
DRVTYP(RO) ,DTYP sGET DRIVE TYPE TO BE TESTED
#18. ,TRKLMT
;GET LAST TRACK FOR AN RMOS
;1S DRIVE AN RMOS5 ?
g;.oavrw(am
:BR _IF YES
#4, TRKLMT
;GET LAST TRACK FOR AN RM03/2
#FMTDPB ,RO

DRIVE, (RO)

ER , SBUF (RO)
#BUFF
#RM.REG . 14 (RO)

#-256. , SWRDM(RO)

:DPB ADDRESS
:LOAD THE DRIVE NUMBER
sLOAD BUFFER ADDRESS

sAREA TO SAVE ALL RH/RM REG'S

;WORD COUNT (NEG)
CYLIMT,SCYL(RO) ;CYLINDER 822.
TRKLMT $TRK(RO) sGET BRACK ADDRESS

$SEC (RO)

SEC

#RDDAT, SCOMND (RO) ;READ DATA COMMAND
RO,RMO5
43
FMTDPB+16

5%
7$
#2,FMTDPB+10

sCALL THE DRIVER-HANDLER
+PARAMETER ADDRESS
;LOOPING IF QUEUE IS NOT SUCCESSFUL
: COMMAND DONE ?

*BRANCH IF DONE, WITHOUT ERROR
*TRY NEXT SECTOR (0.2.4.6.8)

366 010460
367 010466
368
369 010470
370 010474
371 010500
372
373
374
375

376

122737
101361

000010

104401
104401

001207
042142

000137

032777

403 010632

004737
000137
000137

004506
020702
010054
011020

417
418
419 010636
420 010640
421 010642
422

4-APR-81

18:12:15 PAGE 9-8

SEQ 0051

(MPB
BHI

#8. . FMTDPB+10
4%

;ALL FIVE SECTORS CHECKED ?
;NO,THEN TRY AGAIN

TYPE

+SCRLF

;CR=LF

JMP

ENDX

;STOP THE TEST

TYPE

.MESG10

;DRIVE

IS NOT READY

;BAD SPOT FILE IS RETRIVED, IS STORED FROM BUFFER+4 TO BUFFER+256. FIRST
JWORD CYLINDER #, SECOND WORD TRK AND SEC NUMBERS, FILF IS TERMINATED BY
:A =1 IN THE CYLINDER NUMBER.

042207
001207
000200

404
405
406
407
408
409
410
a1
412
413
414
415
416

6%:

11004

377 010504
378 010510
379 010314
380 010516
381 010522
382 010524
383 010530
384 010532
385 C10536
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

004516

1 0038

RMTBO RMO5/3/2 DR CMPT TST
MACRO v04.00
T VALUE FOR SOF TWARE SWITCH REGISTER

012704
022714
001411
022704
101406

004537
000422
062704
000764

032777
001404
012700
004737
105760
001022
112760
000716
104401
104401

001404
012700

78:

043466

8%:

177777

044456

000004
170406

004506
020702
000010

000012

98:
108:

000010
118:
170340

128:
138:

#BUFFER+10,Ré

;R4 ADDRESS OF BAD smr FILE

9%
RS, SPOTX

*BRANCH IF IT IS
*CHECK THE CYLINDER POINTED BY (R4)

ssécmm

*SECTOR 10 HAS BEEN READ ?

CMP
BEQ
CMP

#=1, (R&4)
*END OF BAD SPOT FILE?
98
YES
#SUFFER+1000,R4 -END OF BAD SPOT FILE ?

B8R
ADD
B8R
BIT
BEQ
MOV
JSR

11$
#4 R4
8s
#BIT7,aSWR
108
#FMTDPB RO
PC,PRTBAD

BLOS
JSR

010636

000200

MOV

TSTB

BNE

*BRANCH IF BAD SPOT IN THE TEST ZONES
*NEXT BAD SPOT ADDRESS
*LOOPING BACK
;SWITCH 7 SET 2
*BRANCH IF NOT SET
*DPB ADDRESS
*PRINT THE BAD SPOT FILE

MOVB
BR

010..$SEC(RO)
48

;BRANCH IF SO
sREAD SECTOR 10
;LOOPING BACK

TYPE

MESG11

;PACK NOT ACCEPTABLE

BIT
BEQ
MOV
JSR

#BIT7 ,aSWR
128
#FMTDPB,RO
PC,PRTBAD

sSWITCH 7 SET ?
sBRANCH IF NOT SET

TYPE

JMP
JMP

.SCRLF

XPASS1
TST1

:CR=LF

;DPB ADDRESS

:TYPE THE BAD SPOT FILE

sRESTART PASS 1
;PROCEED TO TEST 1

;SUBROUTINE SPOTX
.‘ggfoy THE CYLINDER POINTED BY (R4) IS IN THE TESTING ZONES
1(0-15,

128-143,

256-271

-399,

512-527,

640-655, 768-783.

2112-127, 240-255, 368-363,496-511, 624639, 750-767. 17-32"

11.5-160. 273-288. 401-416. 529-544. 657-672. 785-800 AND 620)
*CALL

JSR

RS, SPOTX

;R4=POINT TO CYLINDER NUMBER

SPOTX:

MOV
MOV
MOV

R1,=-(SP)
ng.qsp)
R3.=-(5P)

:SAVE R1 THROUGH R3

:
:

010146
010246
010346

RET1
RET2

*ERROR RET
*NORMAL RET1

427 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 010730
443 010734
bl
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

CLR
CLR

000007

000021

000160
000006

1%:

000017

052703

000002

162701
005302
001403
062701
000761

000017

000200

012602
012601
005702
001355
005701
001353

021427
001002
052703
005703
001002
062705
012603
012602
012601
000205
104401
104401

000177

2%:
3%:

4%:

001154
000002
000002

5%:

6%:
7%:

MOV
MOV
MOV
MOV
MOV

CMP
BLO
ADD
CMP
BHI
BIS

043044

ENDX1:

170360

=(SP)
-(SP)
-(SP)
#7,=(SP)

#17.,-(SP)
#7,=(SP)

w112,
R

#6,R2

(R*),R1

#15..R1
(R4) ,R1

2%
#B1T1,R3
#15.,R1

;ERROR FLAG

;DUMMY PAIR

;DUMMY PAIR
;ZONE STARTING ADDRESS
;SEGMENT NUMBER

:20NE_STARTING ADDRESS

s SEGMENT NUMBER
:R1=ZONE STARTING ADDRESS

:R2=SEGMENT NUMBER

;CYL IN THE ZONE ?
;BRANCH IF NOT
;CHECK WITH THE UPPER BOND
;CYL IN THE ZONE ?
;BRANCH IF NOT
;SET THE ERROR FLAG

suB
DEC
BEQ
ADD
BR

R2
43
#128. .R1
1$

MOV
MoV
TST
BNE
TST
BNE

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

;POP THE NEXT SET OF ZONE PARAMETERS

CMP
BNE

(R4) ,#620.
6$
#IT1,R3
R3
7$
#2 RS
(SP)+,R3
(SP)+ ,R2
+ ,R1
(SP)
RS

;ON CYLINDER 620 ?

BIS
TST
BNE
ADD
MOV
MOV
MOV
RTS

001207

18:12:15 PAGE 9-9
SEQ 005¢

CLR
CLR

TYPE:
TYPE
JMP

.SCRLF

LMESG21

aRSTART

;THE FOLLOWING CODING FOR TEST 1
PARAHETER IN TST 1
IR IRTETETET)

423 010644
424 010646
425 010650
426 010652

&-APR-81

$COW1

JRESTORE TO THE LOWER BOND
;DECREMENT THE SEGMENT COUNT
JALL SEGMENT CHECKED ?

;ADJUST ZONE STARTING ADDRESS

;LOOPING BACK UNTIL ALL SEGMENTS ARE CHECKED

;DUMMY PAIR

;BRANCH IF NOT

;DUMMY PAIR
;BRANCH IF NOT
NO

*SET ERROR FLAG
ANy ERROR ?

*AD 'UST FOR NORMAL RETURN

*RESTORE R3 THROUGH R1

SEXIT

sCR=LF
sDRIVE NOT ONLINE OR NOT ASSIGNED
;JUMP TO RESTART
THROUGH TEST 4

DRIVE

ADDRESS OF LOGICAL DRIVE BLOCK
PHYSICAL DRIVE #

ASSGN1
ASNLST
$CDW2

ASSIGN LOGICAL DRIVE BIT MAP
ASSIGNED LOGICAL DRIVE MAP INDICATOR
SYS~-NAME

$DEVM

LOGICAL DRIVE # 0-17

0039

CZRMTBO RMO5/3/2 DR CMPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

;$CDW2,DRIVE ARE ONLY CHANGED IN TST1 DURING PASS 1
;SDEVM_ASSGN1,$CDW1 ARE CHANGED BY THE TEST &
;TST 1:DIRECT OPERATOR TO MOUNT AND LOAD PACKS

CZRMTBO RMO5/3/2 DR CMPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

4-APR-B1

18:12:15 PAGE 9-10
SEC 0053

480

S PSR

d e wd e —d
d
o

o
[eleleloleleololelele)

Sope
~

d—l-fl-‘-‘—d-‘—ld-‘dd_‘

&
FReRDEEE

481

—

490 011074
491 011102
492 011106

493 011112

494 011116
495 011122
496 011126
497 C11132
498 011136
499 011142

500 011146
501 011152
502 011156
503 011162
504 011166
505 011170
506 011171
507 011172
508 011176
509 011202
510 011206
511
512 011212
513 011214
514 011516
515 011220
516 011222
517 0112{
518 011232

519 011234
520 011236
521 011240
522 011246
523 011254
526 011260
525 011266
526 011274
527 011300
528 011304

Ts11:

000001

001100
001272
001272
000014
000014
017444
017222
001207
042021

001274
001274
017224

041776
042644
001274
042644
001224
001207

1%:

001274
001224

011312

531 011314
532 011322
533 0113;4
534 011332

SCOPE
MoV
MOV
MOV
cMP
BEQ
MOV
CMPB
BEQ
MOvB
MOV
CLR
TYPE
TYPE
TYPE
TYPE
TYPE
TYPE
TYPE

MOvVB
TYPE
TYPE
TYPE

MOvVB
TYPOS

042752
042073
001207
042106

TYPE

TYPE
TYPE
TYPE

2%:

RDL IN
MOV
1STB

030324
030326
030264
030266

001402

030216

2 2222222222222

#1_STIMES
#1,TSTNM

:;D0 1 ITERATION
sLOAD THE TEST NUMBER

$(DW1,BLKADR

:LOGICAL DRIVE 0

#STACK,SP

SINITIALIZE

THE STACK POINT

s THEN EXIT

sTHEN EXIT

#IDLEX,@RMVEC

;RESET THE INTERRUPT VECTOR

.SCRLF

:CR=LF

$CDW1,R1
sR1=LOGICAL DRIVE BLOCK ADDRESS
$SYSNM(R1) ,$C(DW2 ;STILL ON THE SAME SYSTEM ?
$SYSNM(R1) ,$CDW2 ;LOAD THE NEW SUB SYSTEM NAME

ARMVEC+2

.MESG3

;ON

.MESG1
.QUOTM
.$CDW2

s SUB=SYSTEM
;TYPE *'" QUOTATION MARK
;SYS=NAME
(A TO H)

.QUOTM

(R1) ,DRIVE
.SCRLF

MESG4
. $CDW2

DRIVE,~-(SP)
1

LBLNKST

;CLEAR THE INTERRUPT LEVEL

s** STARTING PASS 1

MESG6

.MESG8

;TYPE *'TM QUOTATION MARK

:LOAD THE PHYSICAL DRIVE #
;CR=LF

sMOUNT PACK ON THE DRIVE
;SYS=NAME
(A TO H)
;THE PHYSICAL DRIVE #

:TYPE 1 BLANK

sAND LOAD

.SCRLF

;CR=LF

(SP)+ RS

;LOCATE THE READIN LINE

:BRANCH IF NOT

.MESGY

(RS)

sNOT CORRECT INPUT LINE FORMAT

$CDW2 ,R1
#177760,R1

;LOCATE THE SYSTEM ADDRESS TABLE
sLEFT ON 4 BITS

:FOUR WORD INDEX VALUE

)%3 011306

530

AL AL

SYSADR(R1) ,RMADR

;ADJUST THE INDEX VALUE

;LOAD THE SYSTEM ADDRESS

SYSADR+2(R1) ,RMVEC ;LOAD THE SYSTEM INTERRUPT VECTOR
PC,RMINIT
SJINITIALIZE THE SYSTEM
#-1,SAVEFG
;SAVE ALL RH/RM REGISTER
#-1,SEEKFG

;DON'T DO ANY IMPLY SEEK

DRVSTA(RO)
5%
DRVTYP(RO)
5%

sON-LINE ?
‘
;BRANCH IF NOT
sCHECK DRIVE TYPE
;BR IF NOT AN RM05/3/2
sWHAT WAS FIRST DRIVE TESTED ?
;BRANCH IF AN RMOZ2 OR RMO3, ELSE
;SEE IF DRIVE IS STILL AN RMOS.
;BR IF YES

DRIVE ,RO

#7,DTYP

3s
#7,DRVTYP(RO) =
6%

;RO=PHYSICAL DRIVE

’
|
|

CZRMTBO RMO5/3/2 DR CMPT TST
MACRO v04.00
GET VALUE FOR 30F TWARE SWITCH REGISTER

535 011334 000404

§36 011336

122760

000007

537 011344

001013

539 011352

552? 011356

104401

000177

043356

542 011362
543 011366
544 011372
545 011374
546
547
548
549

104401
104401
000612

001207
062142

538 011346

104401

030216

001207

3$:

4%:

170016

S$:
68:

&4-APR-81

C
5
18:12:15 PAGE 9-11

SEQ 0054

;ERROR ENCOUNTERED

BNE

‘BR IF YES

(MPB

TYPE

#7,DRVTYP(RO)

LSCRLF

JNOTST

JMP

SRSTART

TYPE
TYPE
BR

JSCRLF
.MESG10
1S71

:-SEE IF DRIVE

IS STILL AN RMO2 OR RMO3.

:CR=LF

;CANNOT SELECT RM03/2°'S AND RMOS'S TOGE THER

*JUMP TO RESTART

s CR=LF
*DRIVE NOT READY
;TRY AGAIN

;TEST 2
*BASIC READ AND WRITE TEST
*ALL LOGICAL DRIVE ACCESS CYLINDER 620

550

:AND SECTOR ADDRESS IS CORESPONDING TO THE LOGICAL DRIVE #

551

:EACH LOGICAL DRIVE PERFORM WRITE AND WRITE CHECK ON ALL TRACKS,

SS(,

:.'ttttt'QQ.tt"ttt'ttt.'t"'ttQt'.ttttt.ttt"'t'.t'ttt.ttttttt'tn

gg%

;(TRKO - TRK4 ON AN RM03/2 AND TRKO - TRK18 ON AN RMOS)

011374

000004

011376
555 011406
556 011412
557 011416
558 011422

012737
012737
012706
012700
013701

560 011432
561 011440
562 011446
563 011454
564 011462

013760 001270
012760 001154
012760 177400
012760 043456
012760 004526

566 011474

112760 000161

569 011512

004506

559 011426

565 011470

113710

105060

000001 001176
000002 001340
001100
004506
001272
001224

000011

567 011502 004737 021042
568 011506 004037 031062

570 011514

000774

§72 011522
573 011526
574 011530
575 011534
576 011540

001775
012700 004506
004737 017452
005760 000016
100433

571 011516

577 011542

005737

004524

112760

000151

578 011550 004037 031062
579 011554 004506
580 011556 000774
581 011360 005737 004524
582 011564

001775

585 011576

005760

583 011566
584 011572
586 011602

587 011604

588 011612
589 011616

012700
004737
100412

112760

105260
126037

#1,8TIMES
#2.TSTNM
#STACK, SP
#FMTDPB ,RO
$CDW1,R1

000010
000012
000004
000006
000014

MOV
MOV
MOV
MOV
MOV

SDEVM,SSEC(RO) :LOAD THE SECTOR #,FROM THE LOGICAL DRIVE NUMBER.
#620..8CYL(RO) :LOAD CYLINDER NUMBER
#-256. ,SWRDM(RO) " ;LOAD NEG WORD COUNT
#BUFFER,$BUF
(RO) :LOAD BUFFER ADDRESS
#RM.REG,14(R0)
:ADDRESS TO SAVE ALL RH/RM REG'S

000002

MOVB

MWRTDAT,SCOMND
(R0)

MOVB

CLRB

2s:
3s:

000002

48:
5%

000016
000011
000011

SCOPE

MOV
MOV
MOV
MOV
MOV

004506
017452
000161

7S12:

001372

:PHYSICAL DRIVE #

S$TRK(RO)

-START FROM TRACK 0

PC,F ILBUF
RO.RMOS

:FILL THE BUFFER WITH STANDARD PATTERN
*CALL THE DRIVER

;BRANCH IF NOT QUEUE SUCCESSFULLY

BEQ
MOV
JSR
ST
BM]

3s
#FMTDPB, RO
PC,PROCESS
16(R0)
63

:BRANCH IF NOT DONE
*RO=FMTDPB ADDRESS
*CHECK THE TERMINATION
*ERROR FLAG SET ?
*BRANCH IF SO

JSR
JSR

FMTDPB
ST

MOVB

FMTDPB+16

:WRITE DATA COMMAND

#WCKD,SCOMND(RO) ;CHANGE TO THE WRITE CHECK DATA COMMAND

JSR
RO, RMOS
FMTDPB
,
BR
48
ST
FMTDPB+16

.
;BRANCH IF NOT QUEU SUCCESSFULLY
*DONE ?

MOV
JSR

#FMTDPB RO
PC,PROCES

:
*PROCESS IF ANY ERROR HAPPENS ?

aM]

‘BRANCH IF SO

INCB
C(MPB

$TRK(RO)
; INCREMENT TO THE NEXT TRACK
$TRK(RO),TRKLMT :ALL TRACKS DONE ?

BEQ

000002

DRIVE.(RO)

;:D0 1 ITERATION
:LOAD TEST NUMBER
*INITIAL THE STACK POINTER
:DPB BLOCK ADDRESS
:ADDRESS OF THE LOGICAL DRIVE BLOCK

MOVB

16(RO)

;CLLL THE DRIVER

*BRANCH IF NOT DONE

*ERROR FLAG SET ?

AWRTDAT,SCOMND(RD) :RESET TO WRITE DATA COMMAND

RM T80 RMO5/3/2 DR CMPT TST
MACRO v04.00
T VALUE FOR SOF TWARE SWITCH REGISTER

003730
000410
104401
104401
104401

&4-APR-81

—

[Sra—yyY

3 FuoR

b b b

NNNY

o
d

b o

d b e nd o o
~N
-

637 012010
638 012012
639 012014
640 012020
641 012024
642 012032

643 012036
644 012044

062704

000020

016104
016002
012703
010422
005303
001375
005046
005046
012746
012746

012737
005037
012737
012700

000001

001100
001406
001270

012760
012760
013701

LSCRLF

;CR=LF

28:

=
=
=
=

= ADDRESS OF FMTDP8S

SCOPE

001362

48:

PHYSICAL DRIVE # OF THIS LOGICAL DRIVE
ENTRY OF TABLE-D
ZONE COUNT
DELTA CYLINDER COUNT

= ENTRY POINTER OF
e

TABLE-D,

CANNOT BE DESTORYED.

ittt

2222222228224

MOV

#1,STIMES

:;D0 1 ITERATION

MOV

W#STACK ,SP

sINITIAL THE STACK POINTER

ADD

#16. R4

:EACH LOGICAL DRIVE TAKES 16 BYTES IN THE TABLE

BNE
MOV

18
R4, PACK

:BRANCH ,UNTIL THE ENTRY IS LOCATED
:SAVE THE TABLE-D ENTRY IN PACK

MOV

#FMTDPB, RO

*ADDRESS OF FMTDPB

MOV
BEQ
DEC

#3,TSTNM
#L0GO, R4
SDEVM,RO
28
RO

DRIVE, (RO)

;LOAD THE TEST NUMBER

;ADDRESS OF TABLE-D
;LOGICAL DRIVE #
;BRANCH IF LOGICAL DRIVE 0

:DECREMENT THE DRIVE # COUNT

:SET UP THE FMTDPB BLOCK
:PHYSICAL DRIVE NUMBER

WMWRTDAT,SCOMND
(RD)

;WRITE DATA COMMAND

MOV
MOV
MOV
MOV

#BUFFER,$BUF
(RO) ;BUFFER ADDRESS
#RM.REG,14(R0O)
;ADDRESS TO SAVE ALL RH/RM REG'S
#-256. , SWRDM(RO)
sNEG WORD COUNT
$DEVM.R1
;LOGICAL DRIVE #

MOV
MOV
MOV
MOV

PSEUDO(R1) ,R¢
$8UF (RO) ,R2
#256. ,R3
R4, (R2)+

:LOAD THE DATA PATTERN
*BUFFER ADDRESS IN R2
*POS WORD COUNT
“FULL THE BUFFER WITH SIGLE WORD PATTERN

BNE

*BRANCH.UNTIL IT IS FULL

DEC

CLR
CLR

001354

= SYS NAME

ASL

38:

;JUMP TO RESTART

DRIVE
PACK
CMCNT
CMSEC

MOVB

000014

aRSTART

= LOGICAL DRIVE #
= ADDRESS OF LOGICAL DRIVE HISTORY BLOCK FILE

MOVB

000002

LHALTI
JHALTX

JBRANCH TO NEXT TEST

$DEVM
$CDW1

MOV

18:

005322
000006
000400

000006
000160
000007
001356
000020
004506

TST3:

TST3

7 ZONES FOR WRITE TEST IN PASS 2
6 ZONES FOR READ TEST IN PASSZ2

MOV

001324
004506
001224
000161
043456
004526
177400
001270

112760
012760

TYPE

$CDW2

:
:
:
:

012700
113710

;NO

JMP

001374
010437

TYPE
TYPE

:
:

001404

BLE

000177

012737
012737
012706
(12704
013700

SEQ 0055

6%:

18:12:15 PAGE 9-12

:DUMY PAIR OF ZONE COUNT
*DUMY STARTING CYLINDER NUMBER

CMEYL

*STARTING CYLINDER NUMBER

#6,~(SP)
#112.,-(sP)
#7,CMCNT

MOV

#16. ,CMSEC

MoV

*DECREMENT THE WORD COUNT

-(SP)
-(SP)

MOV
MOV
MOV
CLR

:WORD INDEX

#FMTDPB,RO

*Z0NE COUNT
*STARTING CYLINDER NUMBER
*ZONE COUNT
*DELTA CYLINDER NUMBER

;RO DPB ADDRESS

0043

CZRMTBO RMO5/3/2 DR CMPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER
645 012050
646 012054

013704
013760

02
06

004037
004506
000774
005737
001775

10
16

20
24
26
661 012144
662 012150
663 012154
664 012162
665 012164
666 012170
667 012174
668 012176
669 012202
670 012204
671 012212
672 012220
673 012224
674 012226
675 012232
676 012236
677 012242
678 012244
679 012250
680
681 012252
682 012254
683 012260
684 012264
685 012270
686
687
688
689
690
691
692
693

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

105060
111460

012700
004737

005760
100453

062760

001324

001356

000011
000010
031062

000012

111460
105260
126037

000010
000011
000011

001372

105060

000011
000012

PACK ,R4

;R4 ENTRY TO TABLE-D

JSR
FMTDPB

RO,RMOS

;CALL THE DRIVER

B8R
TST
BEQ
MOV
JSR

004506
017452
000016

000010
000010

MOV
MOV
CLRB

MOvVB

8%:

000020
000037

003743

5%:
7%:

004524

18:12:15 PAGE 9-13

SEQ 0056

6%:

122760

103353

4-APR-B1

CMCYL,$CYL(RO)
$TRK(RO)
(R4) ,$SEC(RO)
7%

;STARTING CYLINDER
;STARTS FROM TRACK 0
;LOAD SECTOR NUMBER FROM TABLE=D
;BRANCH IF QUEU IS NOTSUCCESSFUL
;;DONE ?!
;BRANCH IF NOT

FMTDPB+16

#FMTDPB,RO
PC,PROCES

sPROCESS TO CHECK IF ANY ERROR

16(R0O)

JERROR FLAG SET ?

;BRANCH IF SO

#31.,8SEC(RO)
7$
(R4) ,$SEC(RO)

;ALL DONE-TWO SECTORS
;BRANCH IF NOT
;RESTORE SECTOR #

#16. ,8SEC(RO)

$TRK(RO)

;WRITE TWO SECTORS ON ONE CYLINDER

: INCREMENT TO NEXT TRACK

$TRK(RO)
, TRKLMT ;LAST TRACK ?
7%
;NO, THEN BRANCH

$TRK(RO)

sRESTORE TO TRACK-0

s INCREMENT TABLE-D ENTRY

$CYL(RO)
DEC

000012
001356

ADD
MOV
DEC
BNE
MOV

012637
005737

9%:

s INCREMENT CYLINDER NUMBER

CMSEC
6%

;DECREMENT THE DELTA CYLINDER COUNT
;BRANCH IF NOT END OF THIS BLOLK

#112. ,8CYL(RO)
;INCREMENTTHE CYLINDER NUMBER TO NEXT ZONE
SCYL(RO) ,CMCYL
;INITAIL THE STARTING CYLINDER IN THE BLOCK
CMCNT
:DECREMENT THE ZONE COUNT
4%
;LOOPING IF NOT END OF ZONE

MOV
TST
BNE
TST
BNE

(SP)+ ,CMCYL
(SP)+,CMCNT

;LOAD NEW PAIR OF STARTING CYLIMNDER
JAND ZONE COUNT

'3 3

;LOOPING BACK

TST4

JBRANCH TO THE NEXT TEST

TYPE
TYPE
JMP

aRSTART

;JUMP TO RESTART

TYPE

cMCYL
43
CMCNT

;NOT END YET ?
;BRANCH IF NOT
JBRANCH [F NOT END

LSCRLF
JHALTZ2
JHALTX

;CR=LF

STEST 4

sUPDATE THE PARAMETERS,$CDW1,SDEVM,ASSGN1
;DIRECT THE OPERATOR TO DISMOUNT PACK AND LOAD TO OTHER DRIVE

:$CDW2,DRIVE ARE CHANGED BY TEST ONE ONLY AFTER THE TEST LOOPING TO TESTI
AR

000004

012737
012737
012706
012777
005077
104401
104401

001176
001340
016002

RAR R AR AR AR AR AR AR

1ST4:

SCOPE
MOV
MOV
MOV
mov
CLR
TYPE
TYPE

RN RN R

AR AR AR AR AR RA RN AR AR

#1,8TIMES

RN AR AR

::D0 1 ITERATION

#4,TSTNM

;LOAD THE TEST NUMBER

SRMVE(C+?2
.SCRLF
MESG12

: CR=LF

#STACK, SP
#IDLEX,9RMVEC

;LOAD THE STACK POINTER
;RESET THE INTERRUPT VECTOR

sCLEAR THE INTERRUPT LEVEL
sUNLOAD DRIVE

RERS

CZRMTBO RMOS5/3/2 DR CMPT

GET

VALUE

FOR SOF TWARE

700 012340

104407

701 012344

013746

704 012353

000

702 012350
703 012352

705 012354

104403
001

104401

706 012360

012701

708 012366

020237

710 012374
711 012376
712 012400

000241
006101
005202

707 012364

709 012372

713 012402

714
715
716
717

012404
012410
012412
012414

718 012416
719 012424

;5(1) 012426
722 012432

723 012434

724 012436

725 012440
726 012442
727 012446
728 012450

;233 012454

005002

001404

000771

040137
001410
005202
006302

016237

006202

010237

TST

MACRO v04.00

4-APR-81

SWITCH REGISTER

001274

TYPE

(01224

001270

002010

001272

#1,R1

CMP

R2,$DEVM

;LOCATE THE CORESPONDING BIT MAP

cLC
ROL
INC

R1
R2

;LOCATE NEXT DRIVE
:
sNEXT DRIVE #

BIC
BEQ
INC
ASL

R1,ASSGN1
43
R2
R2

;DEASSIGN THE LOGICAL DRIVE FOR PASS 1
;NO MORE DRIVES
;GET NEXT LOGICAL DRIVE #
JWORD [NDEX

MOV
ASR

001270

MOV

104411

4%:

RDL IN

MOV

105715

000137

MOV

2%:

012605

001374
005737
001002
000137

BEQ

3%:

004444

BYTE

CLR

1%:

1STB

BNE
TST
BNE
JMP

002010

012460

011020

5%:

731

JSYS=NAME
(A = H)

DRIVE ,=(SP)

TYPE

000001

,$CDW2

SEQ 0057

MOV

TYPOS
BYTE

042310

F
5
18:12:15 PAGE 9-14

JmMP

JPHYSICAL DRIVE #

LMESG13

BLKADR(R2) ,$(DW1
R2

R2,$DEWM
(SP)+,RS

JBRANCH IF LOCATED

;LOCATE THE BIT MAP

;LOAD THE NEW DPB ADDRESS

:RESTORE R2

;LOAD THE NEW LOCICAL DRIVE #

sWAIT UNTIL IT IS DONE

:LOCATE THE INPUT L_INE

(RS)

:TERMINATOR ?

1ST1

;JUMP TO TEST 1

31
ASSGN1
5%
XPASS2

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

;%%

:XPASS2

734

$CDW1

= ADDRESS OF THE CURRENT LOGICAL DRIVE HISTORY FILE

736
737
738

:
2
:

S$DEVM
ASSGN2
ASNLST

= CURRENT LOGICAL DRIVE # O TO 15.
= ASSIGNED LOGICAL DRIVE FOR PASS 2
= ASSIGNED LOGICAL DRIVE

735

;28

005737
001002

000137

017146

745 012472
746 012476
747 012504
748 012512
749 012520
750 012526
751 012532
752 012540

005037
013737
112737
013737
013737
013701
012777
005077

001270
004444
000101
00.014
002016
001272
017444
015564

754 012550

104401

001207

;22 012466

753 012544

755 012554

756 012560

$CDW2

7641 012460
762 012464

005037
104401

104401

002012

001376

042356
042664

INITILIZE FOR PASS 2 TEST

DRIVE

015566

= PHYSICAL DRIVE # OF CURRENT RH/RM SYSTEM

XPASS2: TST
BNE

ASSGN2
1%

:ANYTHING IN TEST FOR PASS 2
;YES,THEN GO ON

1%:

CLR
MOV
MOVB
MOV
MOV
MOV
MOV
CLR

$DEVM
BLKADR, $CDW1
#'A,SCDW2
SYSADR,RMADR
SYSADR+2 ,RMVEC
$COW1,R1
#IDLEX,3RMVEC
BRMVE ( +2

;START FROM LOGICAL DRIVE 0
;ADDRESS OF LOGICAL BLOCK DRIVE 0
;LOAD SYSTEM NAME ‘A"
;LOAD SYSTEM-A ADDRESS TO DRIVER
:LOAD SYSTEM-A VECTOR TO DRIVER
;R1=ADDRESS OF LOGICAL BLOCK
:RESET THE INTERRUPT VECTOR
:CLEAR THE INTERRUPT LEVEL

TYPE

,$CRLF

:CR=LF

JMP

001272
001274
030324
030326

= SYSTEM NAME A THROUGH H

CLR

TYPE
TYPE

XEND?2

FAULT

MESG14
MESG6

;JUMP TO END OF PASS 2

sRESET THE NOT COMPATIBLE FLAG
:START THE PASS 2
;ON

- 789 012744
790 012746
791 012754
792
793 012756
794 012762
795 012766
796 012772

003416

116037

012737

122760
001412
012737
000406
104401
104401

000137

.MESG

;SUB=SYSTEM

.$CDW2

.QUOTM

;SYS=NAME
(A TO H)
sTYPE *'"" QUOTATION MARK

TYPE
TYPE
TYPE

.SCRLF
JMESG4
.$CDW2

;SYSTEM NAME

MOVB

TYPOS

.BYTE

042752
042073
001207
042106

TYPE
TYPE
TYPE
TYPE

2%:

104411

012602
105712
001374
004737
012737
012737
013700
105760
003421
105760

030334

177777
177777

001224
030206

RDL IN

.QUOTM
(R1) ,DRIVE

(R1) ,=(SP)

030216
001402
001372
030216

000004

001372

001207
042142
011004

3%:
BEQ

*'"

QUOTATION MARK

:%ng;E THE PHYSICAL DRIVE #
sMOUNT PACK ON DRIVE

;TYPE 1 BLANK

MESG8
.SCRLF
MESGY

;AND LOAD

(SP)+ ,R2
(R2)

;LOCATE THE KEAD IN LINE
;CARRIAGE RETURN ?
;BR IF NO

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

030264
030266

JTYPE

0
BLNKS1

030216
000022
000007

9-15

TYPE
TYPE
TYPE
TYPE

MOVB

;CR=LF

sTYPE <CR> WHEN DRIVE IS READY

;SAVE ALL RH/RM REGISTERS
;DON'T DO IMPLY SEEK
DRIVE RO
;LOAD THE PHYSICAL DRIVE NUMBER
DRVSTA(RO)
;DRIVE EXISTS AND ON-LINE ?
4%
;BRANCH IF NOT
DRVTYP(RO)
;CHECK DRIVE TYPE
48
:BR _IF NOT AN RM05/3/2
DRVTYP(RO) ,DTYP :GET DRIVE TYPE TO BE TESTED
#18.
, TRKLMT
;GET LAST TRACK FOR AN RMCS
#7 .DRVTYP(RO)
;1S DRIVE AN RMOS ?
5%
:BR IF YES
#4 , TRKLMT
;GET LAST TRACK FOR AN RM03/2
5%

TYPE

»H

774 012652
775 012654
776 012656
777 012660
778 012662
779 012666
780 012674
781 012702
782 012706
783 012712
784 012714
785 012720
786 012722
787 012730
788 012736

104401
104401
104401
104401

041776
062644
001274
042644
001224
001207
042045
001274

771 012642
772 012646
773

104403
001
C00

18:12:15 PAGE

SEQ 005

TYPE
JMP

750 012600

761 012604
762 012610
763 012614
764 012620
765 012624
766 012626
767 012630
768 012631
769 012632
770 012636

104401
104401
104401
104401
111137
104401
104401
104401
111146

4-APR-81

757 012564
758 012570
759 012574

$COW1
$CDW2
$DEWM
ASSGN2
DRIVE
ASNLST

.SCRLF

.MESG10

ENDX1

;CR=LF
;DRIVE IS NOT READY

ADDRESS OF CURRENT LOGICAL DRIVE BLOCK,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 #
ASSIGNED LOGICAL DRIVE IN THE TEST

; IN TEST 5 DIRECT OPERATOR TO CHANGE, LOAD THE PACK
AR

012772
012774

808 013002
809 013010
81C 013014
811 013022

)

€45

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

000001
000005
001100
001272

001176
001340
004444

§T5:

A A AR R

AR A AR R TR R AR AR A AR

#1,8TIMES
#5,TSTNM

#STACK,SP

$CDW1,BLKADR
6%

RAR R AR AR

RRRA

::D0O 1 ITERATION
sLOAD THE TEST NUMBER
;LOAD THE STACK POINTER
;LOGICAL DRIVE 0
s THEN EXIT

FREREEy

017444
015250
001274

(elelelelolele] QO

001272
000014

Relo aNTeRV
V8

812 013024
813 013030

gzgggg

(ZRMTBO RMOS5/3/2 DR (MPT TST
MACRO v04.00
OET VALUE FOR SOr TWARE SW!TCH REGISTER

13074

831 013142
832 013146
833 013152
834 013156
835 013162
836 013166
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 613230
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
85

868 013332

000014

001274
015252

18:12:15 PAGE 9-1¢
,é‘n

MOV

001274

$CDW1,R1

?gvSNfl(R1).SCDU2

$SYSNM(R1) ,$CDW2

#1DLEX ,aRMVEC

177760

002014
002016
001207
042356
042664
041776
042644
001274
042644
001224
001207
042045
001274

4-APR-81

THE HISTORY FILE

;ON THE SAME SUB-SYSTEM
;THEN DON'T UPDATE SYSTEM ADDRESS

ARMVE(+2
$C(DwW2 RO
RO

JRESET THE INTERRUPT VECTCR
;CLEAR THE INTERRUPT LEVEL
;LOCATE SYSTEM ADDRESS TABLE
;ADJUST FOR INDEX FORM O
JLEFT ON FOUR BITS

;INDEX FOR TWO WORD

0677760.R0
R

030324
030326

JADDRESS OF

SYSADR(R0O) ,RMADR ;SYSTEM ADDRESS

SYSADR+2(RO) ,RMVEC ;SYSTEM INTERRUP VECTOR
.SCRLF
MESG14
MESG6

;CR=LF

.QUOTM

STYPE

*"*

QUOTATION MARK

STYFE

**""

QUOTATION MARK

MESG1

.$CDW2
1%:

,QUOTM

(R1) ,DRIVE

.SCRLF
MESG4
. $(DW2

(R1) ,=(SP)

:SLART THE PASS 2

L SUB-SYSTEM

*SYS=NAME(A TO H)

:%gctze THE PHYSICAL DRIVE #

*MOUNT PACK ON DRIVE
*SYSTEM NAME

042752
042073
001207
042106

2%:

030334
177777

BLNKS1
MESG8
.SCRLF
MESGY

;TYPE

(SP)+ ,R2
(R2)

;LOCATE THE READ IN LINE
;CARRIAGE RETURN ?

1 BLANK

;AND LOAD
;CR=LF

;TYPE <CR> WHEN DRIVE

IS READY

:BR IF NO

030264
030266

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

000007

001402

DRVTYP(RO)
5%
#7,.DTYP

000007

030216

#7 ,DRVTYP(RO)

030216

43
#7 ,DRVTYP(RO)

;SAVE ALL RH/RM REGISTERS
;DON'T DO IMPLY SEEK
;LOAD THE PHYSICAL DRIVE NUMBER
;DRIVE EXISTS AND ON-LINE ?
;BRANCH IF NOT
.CHECK DRIVE TYPE
;BR IF NOT AN RM0S/3/2
;WHAT WAS FIRST DRIVE TESTED ?
;BRANCH IF AN RMO2 OR RMO3, ELSE
;SEE IF DRIVE IS STILL AN RMOS.
;BR IF YES
;ERROR ENCOUNTERED
;SEE IF DRIVE IS STILL AN RMOZ2 OR RMO3.

.SCRLF
NOTST

s CANNOT SELECT RM03/2°'S AND RMOS'S TOGE THER

177777

001224
030206

DRIVE RO
2§VSTA(R0)

030216

000007

3%:

001207
043356

4%:

001207

5%:

166046

oRSTART

+SCRLF

;?g E:

YES

;JUMP TO RESTART
s CR=LF

CZRMTBO RMOS5/3/2 DR CMPT

GET VALUE

FOR SOF TWARE

869 013336

870 013342

g;} 013344

104401

000613

TST

MACRO v04.00

SWITCH REGISTER

4&=-APR-81

042142

875
876

.MESG10

3
:

DRIVE
$CDW1

$DEVM
$CDW2

RMADR

=
=
=
=

RMVE C

= SUB=-SYSTEM INTERRUPT VECTOR

2
H

877

g;g

SE0 0060

TYPE

6%:

873
874

18:12:15 PAGE 9-17

ISTS

;DRIVE

IS NOT READY

;TRY AGAIN

PHYSICAL DRIVE NUMBER
DPB BLOCK OF THIS LOGICAL DRIVE
LOGICAL DRIVE #
SUB=-SYSTEM NAME

= SUB-SYSTEM BASE REGISTER ADDRESS

830
881
882

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

885
886
887

;IN TEST 6, EACH LOGICAL DRIVE WRITES 7 CYLINDERS ON EACH TRACK WITH
;A UNJQUE DATA PATTERN.
THESE 7 CYLINDERS HAVE BEEN WRITTEN BY OTHER
sDRIVES IN PASS 1,

ggg

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

ggz

888

= ADDRESS OF THE HISTORY FILE BLOCK OF THE LOGICAL DRIVE=$(DW1

sTHEN, THIS LOGICAL DRIVE EXECUTES ‘WRITE CHECK DATA'® TO SEE IF THIS

891

sTHESE

gg’%

:THE OVER-WRITE TEST IS PERFORMED WITH OFFSETS IN BOTH DIRECTIONS.

&96

TST6:

SCOPE
MOV
MOV
MOV
MOV
MOV
CLR
cMP
BHI

#1,STIMES
#6,TSTNM
#STACK,SP
#OVWNO ,R3
#RDNO R4
(R3)+
R4 ,R3
1%

MoV

#FMTDPB,RO

MOVB

DRIVE, (RO)

gg%

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

000004
012737
012737
012706
012703
012704
005023
020403
101375

905 013404

012700

004506

113710

001224

906 013410
907 013414

013701

908 013420

012760

910 013432

112760

909 013426

000001
000006
001100
002056
003216

000161

000002

013760
012760
012760

001270
043456
004526

915 013466
916 013470

006302
016202

917 0134764

919 013504
920 013506
gg} 013510

923

016003

(12704

010223
005304
001375

001270

AR A AR

MOV

000004

911 013440
912 013446
913 013454

918 013500

1$:

160000

000010

013702

001176
001340

001272

005060

914 013462

7 CYLINDERS ARE SPECIFIED AS SDEVM, SDEVM+128, SDEVM+256, SDEVM+384,

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

MOV
CLR

MOVB

000012
000006
000014

MOV
MOV
MOV

MOV

$COW1,R1

;:D0 1 ITERATION
;LOAD TEST NUMBER
JINITIAL THE STACK POINT
;1 ST ADDRESS TO CLEAR
;LAST ADDRESS+?2
JRESET ALL SCORE BOARD
JALL LOCATIONS ARE CLEARED ?
;BRANCH IF NOT
;SET UP STARTING ADDRESS OF DPB

;HISTORY FILE BLOCK

:LOAD THE PHYSICAL DRIVE #

0-8195..MM(R0) ;LOAD THE WORD COUNT (ONE TRACK)
$SEC(RO)

:START FROM TRACK = 0, SECTOR = 0

MWURTDAT ,SCOMND (R0)

;WRITE DATA COMMAND

SDEVM_SCYL(RO)
;LOAD THE STARTING CYLINDER
#BUFFER,$BUF (RO) ;LOAD THE BUFFER ADDRESS
#RM.REG,14(R0)
;REG'S SAVE ADDRESS

*LOCATE THE DATA PATTERN

MOV

$BUF (RO) RS

:BUFFER ADDRESS

MOV
DEC
BNE

R2,(R3)+
R4
2%

005322
020000

MOV

2%:

AN TR AN AR AR R A AR AR R AN AR NI AR AR AR AR AAR AR

$DEVM,R2

ASL
MOV

000006

AR AR

R2
PSEUDO(R2) ,R2

#8192, ,R4

JWORD INDEX
;LOAD R2 WITH THE DATA PATTERN POINTER
JWORD COUNT

sFILL THE BUFFER
:DECREMENT WORD CTR
;BRANCH IF NOT DONE

;START TO WRITE ONE CYLINDER ON EACH TRACK OF EACH WRITE CURRENT ZONE

0048

CZRMTBO RMOS5/3/2 DR (MPT TST
MACRO V04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER
3§§‘

18:12:15 PAGE 9-18

SEQ 0061

:(7 ZONES ON EACH PACK)

926 013512
927 013516

004037
004506

031062

38:

929 013522
930 013526

005737
001775

004524

48:

932 013534
933 013540

004737
005760

017452
000016

935 013546

004737

030334

105260
126037
003744
105060

000011
000011

928 013520 000774
931 013530

934 013544

936 013552
937 013560

938
939
940
91

4&-APR-81

013566
013572
013600
013602

942 013606
93 013614

gzts. 013622

012700

100010

012737
012737

062760
022760
103333

004506

177777
177777

000011

000200
001417

JSR
RO,RMOS
FMTDPB
,

:CALL THE DRIVER
*PARAMETER BLOCK

ST
BEQ

“WRITE COMMAND DONF
*NO, THEN WAIT

B8R

MOV

#FMTDPB,RO

BPL

22%

JSR
ST

030264
030266
001372

JSR

22%:

000012
000012

FMTDPB+16
48

PC,PROCES
16 RO)

PC,RMINIT

MOV
MOV

#-1,SAVEFG
#-1,SEEKFG

ADD
CMP

#128.,8CYL(RO)
#783..$CYL(RO)

INCB
CMPB
BLE
CLRB

BHIS

‘BRANCH IF QUEUE FAIL

*PROCESS IF ANY ERROR
;ERROR FLAG SET ?

*BRANCH IF NOT

YINITIAL THE DRIVE

$TRK(RO)
$TRK(RO),TRKLMT
3s
$TRK(RO)

;NEXT TRACK
:LAST TRACK IS DONE ?
*NO, THEN BRANCH
*RESET TRACK NUMBER

*BRANCH IF NOT

:MOVE TO NEXT ZONE
:LAST ZONE IS DONE ?

9%6

;RESET THE FMTDPB BLOCK AND EXECUTE WRITE-CHECK COMMAND TO DETECT ANY

323

:AND MAKEUP.

950 013624
951 013630
952 013634
953 013640
954
955 013646

:COMPATIBLE PROBLEM.

005037
012700
005060
013760

004504
004506
000010
001270

000012

112760

000151

000002

956 013654
957 013662
958 013670
959 013674
960 013676
961 013700
962 013704
963 013706
964 013712
965 013716

012760
012760
004037
004506
000774
005737
001775
(12700
004737
004737

967 013726

100011

966 013722

005760

043456
004526
031062

972 013752

004737

014614

975 013764

116060

974 013762

976 013772
g;g 014000
979
980

001407

18:

28:

000016
030334

005760

LOOP2:

004506
017452
015034

004737

973 013756

000006
000014

004524

968 013730

969 013734 012737
970 013742 012737
971013750 000414

LOOP1:

177777
177777

016060 000022
000733

OFF COD
#FMTDPB,RO
$SEC (RO)
SDEVM,SCYL(RO)

MOVB

#WCKD,SCOMND(RO)

48:
000010

000004

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

16(RO)

*ANY ERROR ?

*BRANCH IF NONE

MOV
MOV
B8R

#-1,SAVEFG
#-1.SEEKFG
5%

:NOT UPDATE THE SCORE

SRMWC (RO)

MOVB

SRMDA(RO),$SEC(RO)

JSR

3$:

;SET NEGATIVE OFFSET DIRECTION FLAG
*RO=FMTDPB ADDRESS
*START FROM SECTOR 0,TRACK 0
:STARTING CYLINDER NUMBER

MOV
#BUF FER, $BUF (RO)
*RESET BUFFER ADDRESS
MOV
#RM_REG.14(RO) ;ADDRESS TO SAVE RH/RM REG'S
JSR
RO.RMOS
*CALL THE DRIVER
FMTDPB
~
*PARAMETER BLOCK ADDRESS
BR
1%
:BRANCH IF QUEUE FAILURE
ST
FMTDPB+16
*TEST IF COMMAND IS DONE ?
BEQ
2s
:BRANCH , IF NOT
MOV
#FMTDPB RO
:LOAD THE PARAMETER BLOCK ADDRESS
JSR
PC,PROCES
*REPORT IF ANY ERROR
JSR
PC . LABAD
SLOCATE STARTING AND ENDING SECTORS
ST

000022
000026

CLR
MOV
CLR
MOV

BPL
030264
030266

THE FOLLOWING SUBROUTINE ARE CALLED SCORE, OFFST

JSR

BEQ

MOV
BR

PC,RMINIT

PC, SCORE
5%

SINITIAL THE SYSTEM

: INCREMENT SCORE

*WORD COUNT = 0 /
*BRANCH,

IF WORD COUNT IS 0

;UPDATE STARTING SECTOR

$RMWC (RO) . SWRDM(RO) :UPDATE WORD COUNT
1%
:TO READ THE REST SECTORS

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

981

982 014002

004506

983 014006
984 014014
985 014020
986 014026
987 014034

160000

000010
043456
004526
014244

988 014040
989 014042
990 014046
991 014052
992
993 014054
99 014060
995 014064
996 014070
997 014074
998 014076
999 014102
1000 C14110

014476
004524

030334

177777
177777

7%:

8%:

1011 014140
1012 014146

022760
103402

013760
105260
126037

000137
005737
001005
012737
000137
000137

9%:

000026
000022

000010

000200
001417

000012
000012

013646
001270
000011
000011

000012

118%:

001372

013646
004504

000001
013630
015140

108:

12%:

004504
13%:

K
5
18:12:15 PAGE 9-19
SEQ 0062

MOV

CLRB
MOV
MOV
JSR
BR
JSR
TST
BEQ

MOV
JSR
JSR
TST
BPL
JSR
MOV
MOV

030264
030266

014614
000022

1010 014132

1041 014244
1042 014246

6%:

004506
017452
015034
000016

014116
014120
014124
014130

JSR
TST
BEQ
MOVB
MOV
BR
ADD
cMP
BLO
JMP
MOV
INCB
CMPB
BGT
JMP
TST
BNE
MOV

JMP
JMP

#FMTDPB,RO

;RESET THE DPB BLOCK

#-8192. SWRDM(RO)

;FULL

TRACK WORD COUNT

$SEC (RO)
;RESET TO SECTOR 0,TRACK NOT CHANGED
#BUFFER, $8UF (RO)
;BUFFER _ADDRESS

#RM.REG,14(RO)

RS,OFFST

108

PC ,MAKEUP
;i:TDPBHb
#FMTDPB
RO
PC.PROCES
PC,LABAD

16(R0O)

;ADDRESS TO SAVE ALL RH/RM REG'S
sCALL OFFSET

:BRANCH TO NEXT CYLINDER,If OFFSET FAILS
CALL WRITE CHECK IN OFFSET MODE
OFFSET WRITE CHECK IS DONE ?

.'BRANCH IF NOT

;LOAD THE DPB ADDRESS
JREPORT , IF _ANY ERROR
;LOCATE STARTINF AND ENDING SECTORS
;ANY ERROR ?
;BRANCH,

IF NONE

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

JINITIAL THE SYSTEM

PC,SCORE

;UPDATE THE TEST SCORE
UCND (TR =07?

108

SRMWC (RO)
108

;NOT UPDATE THE SCORE

WORD CTR = 0 ~BRANCH TO NEXT OP

SRMDA (RO) , ssec(nb> ;UPDATE THE NEW STARTING ADDRESS

zgnuc<no>. SWRDM(RO)* ;UPDATE THE NEW WORD COUNT
#128. ,8CYL(RO)
l783. .SCYL(RO)
118%

sADJUST CYLINDER ADDRESS TO NEXT ZONE

SALL 7 ZONES HAVE BEEN TESTED ?

sBRANCH, IF ALL DONE
:TO NEXT WRITE CURRENT ZONE
sRESET CYLINDER ADDRESS
$TRK (RO)
s INCREMENT TO NEXT TRACK
$TRK(RO), TRKLMT sALL TRACKS ARE TESTED ?
12%
;BRANCH IF ALL DONE
LOOP2
:TO NEXT TRACK
OFF COD
sFINISHING TEST THE POSITIVE OFFSET ?
138
;BRANCH IF ALL DONE
#1,0FFCOD
sSET POSITIVE OFFSET DIRECTION FLAG
LOOP1
SRESTART LOCATiON
1817
;BRANCH TO NEXT TEST
LOOP2
S$DEVM, $CYL (RO)

;OFFST ROUT INE
OFFSET THE HEAD IN THE DIRECTION TOWARD SPINDLE OR AWAY FROM THE SPINDLE
1, TOWARD SPINDLE (POSITIVE)
OFFCOD
OFFCOD
0, AWAY FROM SPINDLE (NEGATIVE)
DRIVE
PHYSICAL DRIVE NUMBER
RO
DPB ADDRESS
RETRY
3 TIMES

1013 014150
1014 014156
1015 014164
1016 014166
1017 014172
1018 014200
1019 014204
1020 014212
1021 014214
1022 014220
1023 014224
1024 014226
1025 014234
1026 014240
1027
1028
1029
1030
1631
1032
1033
1034
1035
1036
1037
1038
1039
1040

000006
000014

5%:

4&-APR-81

CALL

010146
010246

QFFST:

JSR
RET1
RETZ2

R5.OFFST

MOV
Mov

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

AIL RETURN ADDRESS

wrm

1001
1007
1008
1009

000004

0049

CZRM T80 RMOS5/3/2 DR (MPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

UCCESSFUL RETURN

sSAVE ALL REGISTERS

CZRMTBO RM05/3/2 DR CMPT TST
i

H
n

004506
000002
001224
000117
031062

23335

000034

=22822822
28
g

TST

2%:

3%:

6%:

BNE
MOvVB

MOVB
JSR

FMTDPB
BR

TST
BEQ

BM]
ADD

MOvB
MOV
MOV
MOV
MOV
RTS

R3,-(SP)

;RO DPB ADDRESS

DRIVE,

;LOAD THE DRIVE NUMBER

$COMND
(RO) , = (SP)
(RO)

:SAVE THE

RO,RMO5

:CALL THE DRIVE HANDLE

;BRANCH IF OUEUE FAILS
:COMMAND DONE ?
“BRANCH IF NOT
:BRANCH IF ERROR EXIST
“SAVE THE PSW

FMiDPB+16
1%

6%
a#PS ,~(SP)

#<5+32
> anps
#FMTDPB
RO
R4
RMADR,

*LOAD PS S

:DPB ADDRESS
:MUSS BUS ADDRESS
:DRIVE NUMBER

DRIVE ,R1
R1,RMCS2(R4)
:LOAD THE DRIVE NUMBER INTO CONTROLLER
$CYL (RO) ,RMDC (R4 5 ;CYLINDER NUMBER
$SEC(RO) RMDA(R4) :SECTOR AND TRACK NUMBER

SWRDM
(RO ,RMWC (R4) " ;WORD COUNT

$BUF (RO) ,RMBA(R4) ;BUFFER ADDRESS
(SP) + ,a#PS
;LOAD THE PSW BACK
#BIT7,SFMT(RO)
;LOAD THE OFFSET DIRECTION

OFF COD
23

#0,$FMT(RO)

JNEG ?
JBRANCH IF NOT

;CHANGE TO OTHER DIRECTION

lfiS.SCM(RO) ;LOAD THE OFFSET COMMAND
RO,RMOS5

;CALL THE DRIVE HANDLE

6%
FMTDPB+16

;BRANCH IF QUEUE FAILS
;OFFSET DONE ?

3¢
63
#2.R5

JBRANCH IF SO
;BRANCH IF ERROR
;ADJUST RETURN ADDRESS

(SP) + ,FMTDPB+$COMND
sRESTORE THE 1/0 COMMAND
(SP)+ R4
JRESTORE REG

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

JEXIT

;AND SET UP THE FOLLOWING PARAMETERS

; CALL
:

DTUW

TRNSWT

PHYSICAL DRIVE NUMBER
;MTDPB

TIMER

DRVACT

JSR

. RET

1/0 COMMAND

#117, $COMND (RO) :RETURN TO CENTER COMMAND

sMAKEUP ROUT INE
sTHIS ROUTINE ISSUES A WRITE CHECK OR READ
;IN OFFSET MODE.
A TEATATE]

004510

BEQ
BM]
MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV
MoV
MOV
MOvVB

000001

000001
000002

FMTDPB
BR
TST

MOV

1063 014364
1064 014372
1065 014400
1066 014404
1067 014412
1068 014416
1069 014420
1070 014426
1071 014434
1072 014440
1073 014442
1074 014444
1075 014450
1076 014452
1077 014454
1078 014460
1079 014460
1080 014464
1081 014466
1082 014470
1083 014472
1084 014474
1085

177776

R4 ,=(SP)
#FMTDPB ,RO

SECOND

— -

wwww

1058 014334
1059 014340
1060 014344
1061 014350
1062 014356

1%:

18:12:15 PAGE 9-20
SEQ 0063

MOVB
MOvVB
JSR

000002

004524
177776
000240

&=-APR-81
MOV
MOV
MOV
MOvBs

< oSN SEaly
nNONO

) —

»H Pl 2l 2P P 2P o
W

o0 o O o

i —d

) -

[elelelolelolalelelelels] o

MACRO V04.00
GET VALUE FOR SOf TWARE SWITCH REGISTER

J050

PC ,MAKEUP

(OMMAND TO THE SELECTED DRIVE

RMTBO RM05/3/2 DR CMPT
VALUE

FOR

SOF TWARE

MACRO v04.00

SWITCH REGISTER

4-APR-81

M5
18:12:15 PAGE 9-21
SEQ 0064

IMAIN PURPOSE OF THIS ROUTINE,TO EXECUTE A COMMAND WHILE ASSURE THAT

sTHIS READ OR WRITE=CHECK COMMAND BEING EXECUTED IN OFFSET MODE.

) —

d —

—d —d - — — — o

elelelolale] [elelolelelelolelolelele]

el o

sROUTINES USED TD,SC,STO,( IN DRIVE HANDLER )

BEIFRRUR
LB BVRRRUNNS

051

TST

4566

14576

014610
014612

40 014614

014614
014616
014620
014622
41 014624
42 014632
43 014634
44 014642
45 014644

010146
010246
010446
012702
022737
001002
012702
005037
110237
013737
012737
013701
013704

001340

030310
030246

112761

030176

006301
012761

030270

010264
012604
012602
012601
000207

MAKEUP: MOV
MOV
MOV
MOV
CMP
BNE
MOV
1%:
CLR
MOVB
MOV
MOV
MOV
MOV
MOVB
ASL
MOV
ASR
MOV
MOV
MOV
MOV
RTS

R1,-(SP)
RZ.=(SP)
R4 ,=(SP)
MICKD ,R2

;WRITE CHECK DATA IN TEST 6

#10, TSTNM

:ON TEST 8 7

FMTDPB+16

“CLEAR THE STATUS WORD

1%
#RDDAT ,R2

*BRANCH IF NOT
:READ DATA COMMAND IN TEST 8

R2,FMTDPB+SCOMND ;LOAD THE COMMAND INTO PDB

DRIVE ,DTUW

;ACTIVE DRIVE NUMBER

#FMTDPB, TRNSWT : TRANSFER UNDERWAY FLAG

DRIVE ,R1

RMADR . R4

:1.oawncm1>

:DRIVE NUMBER

*RH/RM BASE ADDRESS
:ACT!VE &ivs FLAG

1
; WORD
:?OOOO.TI'ER(RH ; ONE SECOND TIMER

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

;ISSURE WRITE CHECK OR READ COMMAND
JRESTORE REG 4, 1
JEXIT

:SCORE ROUT INE

sROUTINE TO UPDATE THE TEST SCORE
TABLEX
ADDRESS OF CURRENT SCORE BOARD

S$DEVM

LOGICAL DRIVE #

DRIVE
CMSEC
STARSC
sCALL
.

010146
010246
010346
010446
023737
003473
022737
001011
005737
001403
012703

SCORE:

001362

001360

000010

001340

004504

003676
003216

1%:

004504

2%:

PHYSICAL DRIVE NUMBER

END SECTOR ADDRESS
START SECTOR ADDRESS

JSR
RET

PC,SCORE

MOV
MOV
MOV
MoV
(MP
BLE
CMP
BNE
TST
BEQ
MOV
BR
MOV
BR
TST
BEQ

R1,-(SP)
R2.-(SP)
R3,-(SP)
R4 ,-(SP)
CMSEC,STARSC
9%
#10,TSTNM
2%

OFF COD
1%

::PUSH R1 ON STACK
;:PUSH R2 ON STACK
;:PUSH R3 ON STACK
;:PUSH R4 ON STACK
;CORRECT START AND STOP ADDRESSES
;BRANCH IF NOT
;ON TEST 8
JBRANCH IF NOT (MUST BE TEST 6)

JNEGATIVE OFFSET ?

sBRANCH !F NEGATIVE OFFSET

zgoPO.R3

;SCORE BOARD ADDRESS

ngNO,RB

;SCORE BOARD ADDRESS

OFFCOD
3%

JNEGATIVE OFFSET
JBRANCH,IF NEGATIVE JFFSET

OOOOOOOSOOOOOOO OOOSOOO lelelelololalels)
de
d e e

~
~N
n
N

— —

48:

000020

58:

3$:

68:

118:

000017

»H

15000

15004

o
n
n

015032

015034
015034
015036

1200 015040
015044
815050
12
15054

000020

023703
002412

7%:

001362

8%:

105221

005204
005203
022704
002367
013701

4-APR-81

000017
002054

000763

012604
012603
012602
012601
000207

18:12:15 PAGE 9-22

SEQ 0065

ggv

zgvupo.as

;SCORE BOARD ADDRESS

MOV

#OVWNO ,R3

:SCORE BOARD ADDRESS

BEQ
ADD
DEC
BNE
MOV
MOV
MOV

68
#16. ,R3
R2
5%
R3, TABLEX
R3,R1
$DEVM,R2

MOVB
ST

MOV

001360
004424

14760

—

002056
004517

001270

14740

002536

002054

8808 8RO 08B RR®R®

012703
000402
012703
113702
005702
001404

—

R2EIIIFNNANIITEIRHRLARZS SZIPRRY
Voo~
28

005¢

/3/2 DR CMPT TST
MACRO v04.00
SOF TWARE SWITCH REGISTER

MOVB
ADD

FMTDPB+STRK,R2
R2

:LOAD THE TRACK NUMBER
‘ON TRACK 0

STARS( ,R3

*START SECTOR

INDST(R2)
,R¢
R3,R4

*BRANCH IF IT IS
‘EACH SCORE BOARD TAKES 16 BYTES
*LOCATED ?
‘BRANCH IF NOT
:STORE THE TABLE STARTING ADDRESS
*RE ASSIGN REGISTERS
*LOGICAL DRIVE #
:LOCATE THE STARTING POINT FOR SCORE BOARD
*UPDATE POINTER

(MP

#15. R4

ADD

R4 ,R1

INCB
INC

(R1)+
Ré

*INC SCORE AND POINT TO NEXT LOGICAL DRIVE
* INCREMENT LOGICAL DRIVE #

BGT
ggs
CMP
BLT

7%
1}g..a4
CMSEC ,R3
9s

INC
CMP
BGE

R3
#15. R4
8s

MOV
CLR

TABLEX,R1
Ré

MOV

(SP)+,Ré4

RTS

MOV
MOV
MOV

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

*SHOULD POINTER BE ADJUSTED ?

:BR IF NO
*ENTRY POINT AT THE SCORE BOARD
*ENDING SECTOR REACHED ?
*BRANCH IF IT IS

* INCREMENT SECTOR COUNT
*TIME TO RESET TABLE ?
*BRANCH IF NOT
*RESET TABLE ADDRESS
*LOGICAL DRIVE 0

*LOOPING BACK

::POP STACK INTO Ré4

1:POP STACK INTO R3
1:POP STACK INTO R2
1:POP STACK INTO R1

:LABAD ROUT INE
*LOCATE THE START SECTOR AND THE TERMINATE SECTOR OF

*OPERATION.

:
;

STARSC
CMSEC

THE PREVIOUS

= STARTING SECTOR
= ENDING SECTOR

INFORMATION FROM SRMDA(FMTDPB)
, SRMWC (FMTDPB) , $SEC (FMTDPR)

et
;
;

010046
010246

012700

116002

042702

116037

:
LABAD

004506
000026
177740
000010

001360

$SEC (FMTDPB) , SWRDM(FMTDPB)

JSR
RET

PC,LABAD

MOV
MOV
MOV

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

MOVB

$SEC(RO),STARSC -STARTING SECTOR ADDRESS

MOVB
BIC

SRMDA(RO) ,R2
#177740,R2

::PUSH RO ON STACK
**PUSH R2 ON STACK
*DPB ADDRESS

:HARDWARE TERMINATING SECTOR
*CHOP OFF HIGH ORDER BITS IF ANY

CZRMTBO RMOS /3/2 DR CMPT TST

0053

|
|

MACRO v04.00

GET VALUE FOR SOF TWARE SWITCH REGISTER

4-APR-B1

1206 015062 005702

1205 015064 001404
1206 015066 005302
1207 015070 010237 001362

41208 015074
1209 015076
1210 015102
1211 015104

BEQ
DEC

000416
005760 000022
001410
026060 000022 000004

1212 015112 001004
1213 015114

116037

000010

001362

1215 om%x.

12737

000037

001362

1214 015122 07403

1216 015132

0i513¢

015134

;5}; 015136

"126C-

MOV

18:

BR
ST
BEQ
cMP
BNE

3s:

012600

1
R2
R2. CMSEC

:TERMINATOR AT 0 SECTOR
*BRANCH IF IT IS

*DECREMENT ONE SECTOR COUNT

*ENDING SECTOR ADDRESS

3
SRMWC (RO)

CEXIT
*WORD COUNT = 0
28
*BRANCH IF IT IS
SRMWC
(RO) , SWRDM(RO) ; WORD COUNT CHANGED AT ALL 2

B8R

#31.,CMSEC

*END AT SECTOR 31

MOV

(SP)+ ,R2

;sPOP STACK INTO R2

MOVB

MoV

000207

SEQ 0066

28
:BRANCH IF CHANGED
$SZC(RO),CMSEC ;END SECTOR = START SECTOR
33
CEXIT

MOVB

2%:

B 6
1B:12:15 PAGE 9-23

RTS

(SP)+,R0O

2 :POP STACK INTO RO

1219
1220

:TEST 7
*SELF TEST:WRITE CYLINDERS SDEVM+17,SDEVM+17+128,SDEVM+17+128X2.ETC.

122
122

*FOR THE SELECTED LOGICAL DRIVE
*$DEVM: LOGICAL DRIVE #

1221

*THEN EXECUTE WRITE CHECK TO DECTECT ANY DATA OR HEADER PROBLEM

}ggg

DRIVE:

1226

PHYSICAL DRIVE #

:"....".'."Q.'t'..t""""t.t..."'.l.'t.'Q..t."'t.'tt.t'.'.'

015140

000004

015142 012737 000001 001176
1227 015150 004737 030334
1228 015154 012737 177777 030264
1229 015162 012737

1ST7:

177777 030266

1230 015170

012737

000007

123% 015202
1233 015206

012702
005022

004356

1235 015214

103374

1238 015230

112760

000161

113710

001224

1231 015176 012706 001100

001340

18:

1234 015210 022702 004422

SCOPE

MOV
JSR
MOV

#-1_ SEEKFG
#7,TSTINM
#STACK , SP

YINITIAL THE STACK

(MP

#SELF18,R2

*ALL DONE ?

MOV
CLR

1236 015216 012700 004506
1237 015222 012760 160000

000004

MOV
MOV

1239 015236

005060 000010

CLR

12641 015246
1242 015252
1243 015256
1244 015262
1245 015270
1246 015276
1247 015

013702
062702
010260
012760
012760
004737
004037

1240 015242

1248 015306

004506

001270
002021
000012
043456 000006
004526 000014
021042
031062

1249 015310 000774
1250 015312 005737 004524
1251 015316

001775

1253 mss;g
1254 015330

004737
005760

1252 015320 012700 004505
1255 015334
1256 015336

017452
000016

100010
004737 030334

::D0O 1 ITERATION
*INITIAL THE DRIVE
*SAVE THE RH/RM REG'S

MOV
MOV
MOV
BHIS

000002

#1.8TIMES
PC.RMINIT
#-1,SAVEFG

#SELFO_R2
(R2)+

,LOAD TEST NUMBER
;CLEAR THE SELF
:

TEST SCORE BOARDS

*BRANCH IF NOT

#FMTDPB RO
:SET UP DPB
#-8192.
. SWRDM(R0O) ;LOAD FULL TRACK WORD COUNT

MOVB

MWRTDAT .SCOMND (RO)

:WRITE DATA COMMAND

MOVE

DRIVE, (RO)

*LOAD PHY. DRIVE

$SEC (RO)

*SECTOR 0,TRAC O

2s:

MOV
ADD
MOV
MOV
MOV
JSR
JSR

3s:

B8R
ST

2s
FMTDPB+16

;BRANCH IF QUEUE FAILS
*ALL DONE ?

MOV

#FMTDPB, RO

*REPORT IF ANY ERROR

FMTDPB

BEQ

JSR
ST

8PL
JSR

$DEVM_R2
#17. R2
R2.,$CYL (RO
#BUFFER , $BUF (RO)
#RM.REG. 14 (RO)
PC,F ILBOF
RO.RMOS

:CYLINDER ADDRESS
*RESET BUFFER ADDRESS
*ADDRESS TO SAVE ALL RH/RM REG'S
*FILL THE BUFFER WITH WORSE CASE PATTERN

PC.FROCES
16{~0)

228
PC,RMINIT

*LOCATE THE STARTING CYLINDER

*CALL DRIVER MANDLER
*BRANCH IF NOT
:ERROR FLAG SET ?

*BRANCH IF NOT
YINITIAL THE DRIVE

MACRO v04.00
SWITCH REGISTER

054

012737
012737
105260
126037

1264 015404

1265 015412
1268
1269 015414
1270 015422
1271
1272 015426
1273 015432
1274 015436
1275 015442
1276 015446
1277 015452
1278 015454
1279 015456

1280 015462

1281 015464
1282 015470

1283 015474

1284
1285
1286
1287

015500
015502
015504
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

103333

177777
177777
000011

4-APR-81

SEQ 0067

030264

030266

000011

001372

000010
000200
001440

000012
000012

C
6
18:12:15 PAGE 9-24
#-1,SAVEFG
#-1,SEEKFG

22%:

$TRK (RQ)
$TRK(RO) ,TRKLMT
2%
$SEC(RO)
#128. ,8CYL(RO)

ggOO..iCYL(RO)

sNEXT TRACK
;ALL TRACK ARE DONE ?
sBRANCH IF NOT
SRESET SECTOR AND TRACK

sADVANCE TO NEXT ZONE

; ALL 7 ZONES ARE DONE ?
;BRANCH IF NOT

SEXECUTE WRITE CHECK TO DETECT ANY DATA OR HEADER PROBLEM
112760
012702

000151
004356

013703
062703
010360
005037
004037
004506
000774
005737
001775
012700
004737
005760
100401
105212

001270
000021
000012
004504
031062

4%:

004524

5%:

000002

MovB
MOV

004506
017452
000016

004537

014244

6%:

004737
005737
001775
012700
004737
005760

014476
004524

7%:

000415

100401
105212
005737
001006
005202

012737
000137
105260
005202
126037

003004
005037
000137

004506
017452
000016

8%:

004504
000001
015446
000011

004504

000011

001372

004504
015446
000010
004356
000200
001440

004504
015446

9%:

10%:

000012
000012

MOV
ADD
MOV
CLR
JSR
FMTDPB
BR
TST
BEQ
MOV
- JSR
TST
BM]
INCB
JSR
BR
JSR
TST
BEQ
MOV
JSR
TST
8MI
INCB
TST
BNE
INC
MOV
JMP
INCB
INC
(MPB
BGT
CLR
JMP
CLR
MOV
ADD
CMP
BLO
CLR
JMP

#WCKD , SCOMND (RO)

:CHANGE TO WRITE CHECK COMMAND

#SELFO,R2

;R2 POINTS TO SCORE BOARD

:?;vnfigs

*LOACATE STARTING ADDRESS

*CAN NOT BE DESTORIED

R3,$CYL (RO)
OF F COD
RO,RMOS

;STARTING CYLINDER
*SET NEGATIVE OFFSET FLAG
:CALL DRIVE HANDLER

4
FMTDPB+16

;BRANCH IF QUEUE FAILS
*ALL DONE ?

#FMTDP
RO
B
PC.PROCES

;BRANCH IF NOT

16(R0)
6$
(R2)
RS,OFFST
8$

;ANY ERROR
*YES,THEN DON'T INCREMENT SCORE
* INCREMENT SCORE
“OFFSET
*BRANCH IF OFFSET FAILS

*BRANCH IF NOT

PC ,MAKEUP
FMTDPB+16

#FMTDPB,
RO
PC.PROCES

16(R0)
8$
(R2)
OFFCOD

:EXECUTE WRITE CHECK IN OFFSET MODE
*ALL DONE /

:REPORT IF ANY ERROR

*ERROR BIT SET ?
*DON'T INCREMENT SCORE
- INCREMENT SCORE

;POSITIVE OFFSET IS DONE ?

:BRANCH ,IF DONE

s INCREMENT SCORE BOARD POINTER

#1,0FFCOD
43
$TRK(RO)

sSET POSITIVE OFFSET FLAG
sPOSITIVE OFFSET TEST
s INCREMENY TO NEXT TRACK

OFFCOD
4%
$3EC(RO)
#SELFO,R2
#128.,8CYL(RQ)
#800.,8CYL(RO)
11%
OFFCOD
4%

SRESET OFFSET DIRECTION
:TRY THE NEXT TRACK
sTRACK 0, SECTOR O
sRESET SCORE BOARD
;ADVANCE TO NEXT ZONE
;ALL 7 ZONES ARE DONE ?
JBRANCH ,IF ALL DONE
JRESET OFFSET FLAG
:TO NEXT ZONE

R2
sADVANCE SCORE BOARD POINTER
$TRK(RO)
, TRKLMT :ALL TRACKS ARE DONE ?
10%
sBRANCH , IF ALL DONE

RMTBO RM05/3/2 DR CMPT TST
MACRO V04.00
GE T VALUE FOR SOF TWARE SWITCH REGISTER
~ W =0V~

000240

D
6
18:12:15 PAGE 9-25

4-APR-81

SEQ 0068

118:

NOP

;TO NEXT

TEST

READ COMPATIBLE TEST
;TEST10 TEST 8
;CYLINDERS TESTED : SDEVM+112,$DEVM+112+128XN
N=1 TO 5
sTHIS TEST SELECT ONE CYLINDER FOR EACH LOGICAL DRIVE FROM
sZONE 1 TO ZONE 6

LOGICAL DRIVE #

$DEVM
DRIVE
MR

015654
015656

5 015664

6 015672

7 015676

015704
015710
C15712
015716

015722
015730

015734

000004
012737
012737
012706
012702
005022
022702
101374
005037
012700
012760
112760

012760
012760

113710

EB‘%&&SE&%

222222223

S¥

:-a W
-d;:;;::rd-fl

e
R
e
R
B
T
b e
b

Yo Yo Yo Yo Yo 3

013703

(e Yo (o Y

e oD d e

b md

K?NU“flUflNUflHUflNUI
PPN
=
s o

4 015652

WWWW
—A—A—hfl-‘-fl-i—hd-fl—i—hfl—d—hd—J-d—hd-fl-d—a;?d-fl—d—MJ-J-a—h—hd-J—&—hfl-fl—hd.J-hfl
WWWWN
~N NN
W
LS
LS TN
W N3 AR
AE TOV*flp*fl#
~NOW R
WN=OVO SIRRRURLEB oo

055

000001
000010
001100
003216

001176
001340

004356
004504
004506

160000
000010
000171
043456
004526
001224
001270
000160
000012

7ST10:

SCOPE

1%:

CLR

LOOP3:

MOV

222222222222%

#1,$TIMES

::D0 1

#STACK , SP

SINITAIL THE STACK POINTZR

/(rgg?g,nz

#RDP18+16.,R2
1$

OFF COD
#FMTDPB, RO

ITERATION

:LOAD TEST NUMBER

:CLEAR THE SCORE BOARD OF READ TEST
;ALL DONE
*BRANCH IF NOT

“SET NEGATIVE OFFSET FLAG
*SET UP DPB BLOCK

#-8192.
, SWRDM(RO) ;LOAD THE WORD CTR,FULL TRACK
$SEC(RO)
: TRACK 0 AND SECTOR 0

DRIVE, (RO)

;LOAD PHY. DRIVE ADDRESS

R3.$CYL(RO)
RO,RMOS

;STARTING CYL ADDRESS
;CALL THE DRIVE HANDLER

:?;gng

004524

2%:

TST

004506
017452
015034
000016

TST

; COMMAND DONE ?
:BRANCH IF NOT

PC,PROCES

:REPORT IF ANY ERROR

16(R0)

#-1,SAVEFG
#-1,SEEKFG

3%:

4%:

000010
000004
000004

PC,LABAD

PC,RMINIT

030264
030266

5%:

JSR
TST

BEQ
MOVB
MOV

6%:

MOV
MOV
CLRB
JSR

7%:

JSR
TST

;LOCATE STARTING CYL

FMTDPB+16
2s

#FMTDPB,RO

014614
000022

014476
004524

#BUFFER,$BUF
(RO) ;RESET BUFFER ADDRESS
#RM.REG,14(R0O)
:ADDRESS TO SAVE ALL RH/RM ADDRESS

JSR

014244

#RDDA
, SCOMND (RO}
T ;LOAD THE READ DATA COMMAND

1%:

000026
000022

#10, TSTNM

031062

030334
177777
177777

PHYSICAL DRIVE #

:LOACATE START AND STOP ADDRESS

;ANY ERROR ?

IF NONE
:BRANCH,

JINITIAL THE SYSTEM

:NOT INCREMENT THE SCORE

SRMWC (RO)

;WORD COUNT= 0

PC,SCORE

JUPDATE THE SCORE

:BRANCH IIF IT IS

$RMDA
(RO) ,$SEC(RO) ;UPDATE THE NEW STARTING SECTOR
SRMWC
(RO) . SWRDM(RO) * ; UPDATE WORD COUNT
1%
2 CONT INUE

#FMTDPB,RO
;RESET THE DPB BLOCK
#-8192, ,SWRDM(RO)
;FULL TRACK WORD COUNT

$SEC (RO)
R5,0FFST

JRESET TO SECTOR 0,TRACK NOT CHANGED
*CALL OFFSET

PC ,MAKEUP
FMTDPB+16

*EXECUTE READ DATA IN OFFSET MODE
*OFFSET READ IS DONE

108

‘BRANCH IF OFFSET FAILS

4&-APR-81

BEQ
MOV
JSR
JSR

TST
BPL

JSR
MOV

030264
020266

000010
000004
10%:

PC,RMINIT

#-1,SAVEFG

#-1,SEEKFG

$DEVM,R3

015776

000001
015716

12%:

004504

MOV
JMP
NOP

13%:
;TESTN

000004
012737
012737
012706
005046
005046
012746
012746
012702

000001
000011
001700
004357

003676
004356

001176
001340

sBRANCH,
IF NONE
JINITIAL THE SYSTEM
;NOT UPDATE THE SCORE
*UPDATE THE SCORE
:WORD COUNT IS 0
‘BRANCH IF IT IS

;LOCATE STARTING CYLINDER
sSTARTING CYLINDER
;TO NEXT TRACK
;ALL SRUFACE ARE DONE ?
;BRANCH IF ALL DONE
;LOOPING UNTIL CURRENT TRACK IS DONE
;OFFSET CODE = POSITIVE ?
;IF EQUAL,THEN ALL DONE
;SET POSITIVE OFFSET FLAG

#1,0FFCOD

LOOP3

:TO NEXT TEST

TEST 9

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

BADSE(

0, (DRIVES ARE COMPATIBLE)

CMTRK

TRACK NUMBER FOR CONTROLLING THE SCCRE TYPING.

RN AR AR AT AR

75111

OFFCOD
138

;ADJUST CYLINDER TO NEXT ZONE
;ALL 6 ZONES ARE DONE ?
;BRANCH IF ALL DONE

THE TEST SCORES
THE OPERATOR TO CHANGE PACK AND MOUNT TO OTHER DIRVE

$DEWM

1433 016400

JARY ERROR ?

#112..R3
R3,$CYL (RO)
$TRK(RO)
$TRK(RO) , TRKLMT
128
1

001372

004504

IF ANY ERROR

;LOCATE THE START AND STOP ADDRESSES

16(R0)

#128. ,$CYL(RO)
#767. . SCYL(RO)

11%:

1408 016320
1409 016324
1410 016326
1411 016334
1412 016340

1427 016352
1428 016360
1429 016364
1430 016366
1431 016270
1432 016374

PC .,LABAD

016264
016270
016274
016300
016304
016312
016314

016342
016344

PC,PROCES

sBRANCH IF NOT

JREPORT

$SRMWC (RO)
| 0$
$RMDA
(RQ) ,$SEC (R0)
;UPDATE SECTOR ADDRESS
SRMWC
(RO) , SWRDM(RO) ;UPDATE WORD COUNT
68
;LOOPING UNTIL CURRENT TRACK IS DONE

1398 C16260
16400
1407
1402
1403
1404
1405
1406

#FMTDPB, RO

PC,SCORE

9%:

000012
000012

9-26

10%

8%:

016250
97 016256

18:12:15 PAGE

SEQ 0069

001775
012700

NONSNOONNNO

SEaN =S S SEREER

-J-‘-a-‘—a.u-asc

eleleleleleclolololele)

Rt
T
S ———

U“flv“flud:

ESRR
29p3eeEREEs
JBJFAN

MACRO v04.00
CZRMTBO RMOS5/3/2 DR CMPT TST
GET VALUE FOR SOF TWARE SWITCH REGISTER
Ret
T

056

SCOPE
MoV
MOV
MOV
CLR
-CLR
MoV
MOV
MOV

=1,

(DRIVES NOT COMPATIBLE)

AN AR AN

AR RARA R A AR AR

#1,8TIMES

#11,TSTNM

SP
#STACK,

-(5P)

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

#SELFO,R2

AR RN

R R

::D0 1_ITERATION
:(0AD THE TEST NUMBER
:LOAD THE STACK POINTER
:DUMMY SCORE BOARD ADDRESSES

*POSITIVE OFFSET READ TEST SCORE ADDRESS

‘POSITIVE OFFSET TEST SCORE
NEGATIVE OFFSET READ TEST SCORE

Y057

C(ZRMTBO RMO5/3/2 DR CMPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER
1434 016404
1635 016410

003216

001372

1%:

000007

1436 016414
1437 016420
1438 016422
1439 016426

2%:

000020

1440 016430

3%:

000006

1441 016434

1442 016436

1443 016440
1444 016442
1445 016444
1446 016450
1447 016454
1448 016456
1449 016460
1450 016462
1651 016464
1452

000020
000002

5%:

012602
001351

1453

1454

1455
1456
1457
1458
1459
1460
1461
1462
1463

016466
016472
016476
016500
016504
016510
016514
016516
016522

1464 016526
1465 016530
1466 016534
1467 016536

1468 016542
1469 016544
1470 016552

1471 016554
1472 016560
1473 016562
1474 016570
1475 016572
1476 016576
1477 016600

1478 016606
1479 016610
1480 016614
1481 016616
1482
1483 016620
1484 016624

1485 016626
1486
1487
1488
1489

016632
016634
016642
016644

1490 016650

&4=-APR-B1

SEQ 0070
MOV
MOV
CMPB
BLOS
MOV
MOovB
ADD
MOVB
DEC
BNE
BR
ADD
ADD

DEC
BGE
MOV
MOV
BNE

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

#16. RS

(R3) ,R4

#6,Ré

Rg.(R3)0
R

38
5%

#16.

#2 ,R2

,R3

2%
(SP)+,R3

(SP)+,R2
1%

sSET ACCEPTANCE FLAG,
005037
005037
005001
012702
012703
030337
001502
005037
123701
001434
122712
101403

004537

000001
122762
101403

001342
001364

000016

KPATH:

017152
000016

017152

004537
000003

017152

004537
000004
000441

017152

122712
101403

000016

122762
101403

000014

122762
101403

000014

000460

001140

2%:

001620

3%:

SPATH:

004537
000002

017152

000460

BIT
BEQ
CLR
(MPB
BEQ
CMPB
BLOS
JSR

CMPB
BLOS
JSR

017152

000016

MOV
MOV

000001

122762

101403

LOOPS:

001366
001270

004537
000002

004537
000001

CLR
CLR
CLR

002056
000001
002006

1%:

18:12:15 PAGE 9-27

000002

CMPB
8LOS
JSR

000003

CMPE
BLOS
JSR
000004
BR

INITIALIZE

BADSEC

JNEGATIVE OFFSET READ COMPATIBLE TEST SCORE
;R1= TRACK NUMBER

;SELF READ TEST SCORE IS TOO LOW
JBRANCH IF NOT
: INCREMENT READ COMPATIBLE SCORE FOk ALL 16 DIRVES
;ADJUST SCORE BY ADDING 6

sUPDATE SCORE AND POINTS TO NEXT DRIVE
JALL DRIVES ARE UPDATED ?
;BRANCH IF NOT
;ADJUST POINTER OF SCORE BOARD ADDRESS
sUPDATE THE SELF TEST SCORE ADDRESS
JALL TRACKS DONE ?
;BRANCH IF NOT

JGET NEXT PAIR

THE

TABLE POINTERS AND

;SET ACCEPTANCE FLAG

CMTRK
R1

;START FROM TRACK 0
:START FROM LOG DRV 0

LOOPS

sBRANCH IF NOT

#OVWNO ,R2
#8170,R3
R3,ASNLST

NUL INE
$DEVM,R1
SPATH

#14.,(R2)
1%

:SCORE BOARD BASE ADDRESS
;BIT POSITION FOR LOG DRV 0
;1S THE LOG DRV UNDER TEST ?
;NEW LINE INDICATOR
:SELF SCORE ?
sBRANCH IF IT IS

;OVERWRITE NEG OFFSET < 14 ?
;BRANCH IF NOT

R5,PRINT

;REPORT EXCEPTIONS

:BRANCH IF NOT

- COLUMN POSITION ON REPORT
#14.,0VWP0~-0VWNO(R2)
:OVERWRITE POS OFFSET < 14 ?
2%
:BRANCH IF NOT
R5.PRINT
sREPORT EXECPTIONS
;COLUMN POSITION ON REPORT
#12. ,RDNO-OVWNO(R2)
;READ NEG OFFSET < 6
38
;BRANCH IF NOT
RS,PRINT
sREPORT EXCEPTIONS
:COLUMN POSITION ON REPORT
#12. ,RDPO-OVWNO(R2)
;READ POS OFFSET < 12 ?

RS,PRINT

LOOPS

sREPORT EXECPTIONS

;COLUMN POSITION ON REPORT

JEXIT

CMPB
BLOS
JSR

#14.,(R2)
1%
R5.PRINT

;OVERWRITE NEG OFF
sBRANCH IF NOT
sREPORT EXECPTION

(MPB
BLOS
JSR

R5,PRINT

sREPORT EXCEPTION

000601

000002

TRACK NUMBER

< 14

s COLUNM POSITION ON REPORT
5;4 . ,OVWPO-0OVWNO (R2)
;OVERWRITE POS OFFSET < 14

;BRANCH [F NOT

sCOLUMN POSITION ON REPORT

1058

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

1491 016652

1492 016656

1493
1496
1495
1496
1497
1493
1499
1500
1501

016660
016666
016670
C16674
016676
016702
C16704
016712
016714

502 016720
ng 016722

013704
006304
122764
101403

004537
000003
013704
006304
122764

101403
004537
000004

005201
000241
006103
005202
022701
103264

005237
012702
005001
013703
001404
062702
005303
001374
012703

0u1364
000006

4{-APR-81

MOV

ASL
CMPB
BLOS
JSR

004356

017152

000006

000003
MOV

3%:

ASL

004357

LOOPS:

000017
LOOP6:

001364
000020

1%:

000001

2%:
;AT

s
;

001364

ROL

R3
R2
#15. ,R1
LOOP4
CMTRK
:?VUNO.RZ

INC
CMP
BHIS
INC
MOV
CLR
MOV
BEQ
ADD
DEC
BNE

001372

104401

001207

TYPE

104401

001207
017444
011274
042272
001274
001224

104401
104401

013746
104403
001
000
104401
104411

012605

DISMNT: TYPE
MOV
CLR

TYPE
TYPE

042310
1%:

TSTB

DEASG:

BNE
(LR

;COLUMN POSITION FOR REPORT PRINTING

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

;FOR EACH TRACK, 16 BYTES
JALL TRACK DONE ?
;BRANCH IF NOT
;BIT MAP POSITION FOR DRIVE 0

.SCRLF

;WAS SCORE PRINTED ?
;BR IF NO
;CR=LF

.SCRLF

#IDLEX ,@RMVE(

ARMVE(C+2

MESG12
. $CDW2

1
0

RDL IN

JREPORT EXCEPTIONS

sALL TRACKS ARE DONE ?

SXTE
.BYTE

MoV

JREPORT EXCEPTIONS
;LOCATE THE SELF TEST SCORE
;WORD INDEX
;SELF READ POS OFFSET < 6 ?
;BRANCH IF NOT

CMTRK, TRKLMT

LOOP4
2ADSEC
DISMNT

DRIVE,=(SP)

TYPE

sLOCATE THE SELF TEST SCORE
sWORD INDEX
sSELF READ NEG OFFSET < 6 ?
sBRANCH IF NOT

LOGICAL DRIVE # START FROM 0
ADDRESS OF SCORE BOARD BASE ADDRESS
BIT MAP, INDICATE LOGICAL DRIVE 0=1

MOV

TYPOS

105715

001374
005002

R3
1%
#81T0,R3

BEQ

011276

#16. ,R2

R1
R2

001342

012777
005077

CMTRK ,R3
2%

THIS POIN
:

CMPB
BLE
TST

003642
005737
001402

gTTRK,Rk

INC

MOV

z
123737

RS5,PRINT

JSR

000004

4%:

CMTRK ,R4
R&
#6,SELFO(R4)

#6,SELFO+1(R4)
4% RS5,PRINT

CMPB
BLOS

017152

C01364
002056

SEQ 0071

2$:

001364

18:12:15 PAGE 9-/°8

LMESG13

(SP)+,RS
(RS)

1%
R2

;NO

: CR=LF

:RESET THE

INTERRUPT VECTOR

:CLEAR THE INTERRUPT VECTOR
:UNLOAD AND DISMOUNT MESSAGE
:SYSTEM NAME
:PHYSICAL DRIVE NUMBER

;MESSAGE TYPE <CR> WHEN READY
sREAD IN ONE LINE
;LOCATE THE READ IN LINE

:CARRIAGE RETURN ?
:BR IF NO
sLOGICAL DRIVE NUMBER

333
NENSAORR oV

s —
—
WNUNIN)

b
b e
b

s v

b
b
e

el i
e

d e

NNNNNNNN ~

wd wld e

~N NN

-> —b

63 017134

012703
020237
001404
0002¢41
006103
005202
000771
040337
001412
005237
013702
006302
016237
000137

004444
012772

000137

023456

000001
€01270

1%:

002012

2%:

4-APR-81

"ND2:

SEQ 007¢
MOV

cMP

BEQ
CLC
ROL
INC

001279
001270

18:12:15 PAGF 9-29

B8R

#1T0,R3
R2,$DEVM
2%

;BIT MAP OF ASSIGNED DRIVE
;1S THE LOGICAL DRIVE UNDER TEST ?
sBRANCH IF IT IS
JSHIFT THE BIT MAP FOR
JNEXT DRIVE
:INCREMENT THE LOGICAL DRIVE #
;LOOPING UNTIL THE LOGICAL DRIVE LOCATED

BIC
BEQ
INC

MOV
ASL
MOV
JMP

R3,ASSGN2
*CLEAR THE ASSIGNED BIT
XEND2
:BRANCH IF NO MORE DRIVES
$DEVM
:INCREMENT THE LOGICAL DRIVE #
$DEVM,R2
*UPDATE SYSTEM BLOCK ADDRESS
R
BLKADR(R2) ,$CDW?
JSYSTEM BLOCK ADDRESS
TSTS
;JUMP TO TEST 5 FOR OTHER DRIVE

JMP

$EOP

JEND OF PASS

sPRINT ROUTINE
;NAME PRINT

*PRINT EXCEPTIONS FOR TEST SCORE

CALL

1588
1589 017152
017152
017154

17156
017160

LR IR I

I T T T T I

*PARAMETER USED
NUL INE
:

010146
010246
010346
010446

005737
100434

104401
104401
104401

013746
104403

001
000

104401
104401
104401
104401

PRINT:

001342

001207
042443
001274
001224

001207

(01207
042465
001207

0
1

BADSEC
BADSE(

JSR
NUMBER
RET

RS.PRINT

R1
$DE VM
R3

MOV
MOV
MOV
MOV
1ST
BMI
TYPE
TYPE
TYPE

MOV

TYPOS

.BYTE
.BYTE

TYPE
TYPE
TYPE
TYPE

A NEW LINE TO PRINT

= 4 COLUNM NUMBER TO PRINT THE EXCEPTION MARK

—

TST

MACRO v04.00
FOR SOF TWARE SWITCH REGISTER

2 &8
OOS
N0 NN

jelelelololelolelels]

AR AN AL AV IV LV, | N
VI
WAL

N J' A

o —d d d o e e D e e D o ok -l

X059

RMOS/3/2 DR (MPT

-1

FIRST EXCEPTION DETECTED

NOT FIRST EXCEPTION (DON'T PRINT THE

COLUMN NUMBER

LOGICAL DRIVE #
LOGICAL DRIVE UNDER TEST
BIT POSITION OF LOGICAL DRIVE

R1,-(SP)
R2.-(SP)
R3,-(SP)

R4 ,~(SP)
BADSEC
18

.SCRLF

MESG16
. $CDW2

DRIVE,=(SP)

;2PUSH R1
;sPUSH R2
. :PUSH R3
;;PUSH R4

ON
ON
ON
ON

+SCRLF
.SCRLF

MESG17
.SCRLF

IN R1

STACK
STACK
STACK
STACK

:FIRST EXCEPTION

;BRANCH IF NOT,DON'T HAVE TO PRINT

JYITLE

s CRLF
;SCORES FOR DRIVE -;SYSTEM NAME
sTYPE

THE PHYSICAL DRIVE #

TITLE)

sCR=LF
JCR=LF

JSUB TITLE 1
sCR=LF

CZRMTBO RMOS5/3/2 DR (MPT TST
MACRO v04.00
T VALUE FOR SOF TWARE SWITCH REGISTER
1604 017234

1605 017240

1606 017264

017252
017260
017264
017266
17272
7276

il ol o

b cuid e

jelelalelelolelols]

NV~
NN

—

1607
1608
1609
1610
161

1622 017342
1623 017350
1624 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
1639 017432

104401
104401

012737
012737
005737

000001
001366

104401

001207

001042

013746
104405

104401
123701
001007
104401
104401
104401

000416
006301
016137
006201
062737
104401
104401

000000

1644 017450
1645
1646

1647
1648 017452
1649 017456
1650 017462
1651 017464
1652 017472

1653 017474
1654 017502
1655 017504

1%:

017356

0C0014
042750

017356

*MESSAGE 'SELF'
STYPE TAB

BR
ASL

(s
R1

4$:
S8

MOV
MOV

6$:

*NEXT STEP
*LOCATE THE SYS HISTORY FILE

:LOCATE THE SYSTEM NAME AND DRIVE #
*RESTORE DRIVE #
:LOCATE THE SYSTEM NAME AND DRIVE #
*TYPE 3 BLANKS
THE SYSTEM AND DRIVE

#1 ,NUL INE
(R5)+,Ré4

STYPE

TAB

cMP
BLO
BEQ

R4, NUL INE
8%
7

:ON THE RIGHT COLUMN 2
*IF LOW NOT PRINT
*BRANCH IF LOCATED

INC
BR

NUL INE
6$
,BLNKSG4
.MARKX
NUL INE

MOV
MOV
MOV
MOV

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

TYPE

TYPE
TYPE
INC

RTS

IDLEX:

*SCORE FOR SDEVM ITSELF
*BRANCH IF NOT
*TYPE 3 BLANKS

*TYPE

TYPE

*CR-LF
*ISAVE CMTRK FOR TYPEOUT

.SELFX
.TAB

TYPE

.WORD

7%:

FLAG

©:G0 TYPE=-=DECIMAL ASCTI WITH SIGN
*TYPE "'TAB'' CHARACTER

$DEVM,R1
28
,BLNKS3

TYPE

*RESET THE ACCEPTANCE
*NOT COMPATIBLE FLAG
JNEW LINE ?

,TAB

BLKADR(R1),3%
R1
#SSYSNM, 38
,BLNKS3

042635
001366
042747
042637
001366

*BRANCH IF NOT

MOV
ASR
ADD
TYPE

3$:
001366

,S$CRLF
(MTRK , - (SP)

TYPE
TYPE

004444

*CR=LF

TYPE
MOV

BNE

:SUB TITLE 2

.$CRLF

#-1,BADSEC
#1,FAULT
NUL INE

CMPB
BNE

28:

,MESG18

MOV
MOV
TST

TYPDS
TYPE

042750
042630
042635

001366

000240
000240
000002

1643 017446

001376

042635
001270

020437
103414
001405
104401
005237
000767
104401
104401
005237

1642 017444

TYPE

001342

1
6
18:12:15 PAGE 9-30

SEQ 0073
TYPE

001364

042635
000001

012604
012603
012602
012601
000205

1640 017442

177777

104401

012737
012504

017432
017434
017436
017440

1641

042546
001207

4-APR-81

,TAB

*ADDRESS FOR TYPING MESSAGE

*INDICATE PRINTER STOPS AT COULMN 1
*RETRIEVE THE DESIRED COLUMN # FROM
*CALLING ROUTINE

*ADVANCE

TO NEXT COLUMN

*INCREMENT COLUMN CTR
*CHECK AGAIN
STYPE 4 BLANKS
*THE EXCEPTION MARK ''* 0"
*NEXT COLUMN
::POP
*:POP
*:POP
1:POP
SEXIT

STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTG

Ré&
R3
R2
R1

382

:RESET ALL RH/RM VECTOR FOR MOUNT AND DISMOUNT

RTI

SEXIT

;PROCESS THE ORDER TERMINATION
111037

005760
100431
032760
001410
032760
001021
032760

001330
000016

PROCES:

100000

000020

040000

000020

040000

000032

MOVB
ST

BM]

BIT

BEQ
BIT
BNE
BIT

(RO),UNIT
$TATUS (RO)
ERPROC

:DRIVE NUMBER FOR ANY ERROR MESSAGES
*SEE IF DRIVER SIGNALED AN ERROR

‘BR IF ERROR

#BIT15,8RMCST
(KOS

;SEE IF 'SC* SET

1%
:BR'IF NOT SET
#BIT14,$RMCST(RO)
;SEE IF ‘TRE® SET
ERPROC
:BR IF SET
#B1T14 ,$RMDS(RO)
;SEE IF 'ERR' SET

CZRMTB0 RMOS5/3/2 DR (MPT

1061

TST

MACRO v04.00

CET VALUE FOR SOF TWARE SWITCH REGISTER

l
;
i

1656 017512
1657 017514

1658 017520
1659 017524
1660 017530

1661 017536

;22% 017544

001015
004737

(20572

012737

177777

004737
004737
012737

000207

020640
030334
177777

1%:

030264

030266

}&g
032760

000200

}ggg 017556

000137

017744

001402

}g;?
1672 017562
1673 017570

2%:

000016
.

.
032760
001025

010000

000016

001025

1678 017612

032760

001000

000016

1680 017622

032760

040002

000016

000004

000016

1681 017630
1682 017632
1683 017640

]'% 017642

001025

001025
032760
001025

BEQ

JMP

ERPRC1: BIT
BNE

]23? 017650

}gg('?) 017668

1701 017664

};8% 017670

104414

000137

037160

;;% 017700

JRETURN

;SET THE NOT IMP FLAG

#31T07,8$TATUS(RO)

ERPRCT1

DONE

;DONE BIT SET ?

:BR IF ORDER DIDN'T COMPLETE NORMALLY

;PROCESS ERROR WITH 'DONE’ BIT SET

#BIT12,$TATUS(RO)
PUNSAF

SEE IF DRIVE WAS UNSAFE
IF YES

BIT

#BIT09, $TATUS (RO} TIROUT"

BIT

#BIT14!BITO1, STATUS(RO)

BNE

BNE
BIT
BNE

PUNSAF
:

017720

FALPAR

:BR_IF THERE IS ONE

SWTIM

:BR
IF

YES

;DRIVE WENT OFFLINE ?

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

;ERROR. RETURN

DISPLY

JMP

,EM12

DUMP?

;UNCORRECTABLE MASSBUS PARITY ERROR OCCURRED
104414

000137

037062

UCPAR:

017720

DISPLY

JMP

EM10

DUMP2

;'FATAL® MASSBUS PARITY ERROR OCCURRED
104414

000137

037125

FALPAR:

017720

;;8’%
1706 017674
1707 017674

#-1,SEEKFG

;DRIVE IS PERSISTENTLY UNSAFE

]lggg

1700 017664

;BR IF SET
sNO ERROR, CHECK ERROR BITS ANYWAY
sNO ERROR, CHECK BUS ADDR & w(
JINITIALIZE THE SUB SYSTEM
;CLEAR THE SAVE FLAG

#BIT11, STATUS(ROSPAR!TY ERROR OCCURRED
UCPAR
IF IT DID
#8IT10, STATUS(ROS;FATAL PARITY ERROR?

RTS

];gg%
1694 017654
1695 017654

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

BIT
BIT

BNE

000207

::2%6;
1688 017644
1689 017644

RTS

SEQ 0074

;PROCESS ORDER COMPLETION WITH 'ERROR' & 'DONE NOT' BITS

1674 017572 032760 004000 000016
001025
1676 017602 032760 002000 000016

1679 017620

MOV

ERPROC: BIT

1675 C17600
1677 017610

BNE
JSR
JSR
JSR
MOV

6
18:12:15 PAGE 9-31

;ORDER TERMINATED WITH AN ERROR = PROCESS THE ERROR

1666 017546
1667 017554

4&-APR-81

DISPLY

JMP

EM11

DUMP2

- SOF TWARE TIMEOUT OCCURRED
104414

000137

037211

SWTIM:

017720

DISPLY

JMP

,EM13

DUMP?

;;‘1'(1)

;DRIVE WENT OFFLINE

1712 017704

OFLIN:

104414

000137

104414
104401
104401
104401
104401

000177

037263
017720

4-APR-81

SEQ 0075
DISPLY

JMP

;PORT REQUEST

PRTIM:

037306
001207
043243
001207
043106
161434

K
6
18:12:15 PAGE 9-32

DUMP2:

LEM14

DUMP?2

TIMEOUT ERROR

DISPLY

LEMI1S

TYPE

IXFATL

TYPE

$CRLF

:CR=LF

TYPE

"S$CRLF

:CR=LF

JMP

aRSTART

;JUMP TO RESTART

TYPE

THALTX

;PROCESS ORDER COMPLETION WITH 'ERROR' & 'DONE' BITS SET
7 017744

8 017752
729 017754
730 017760
731 017766

734 020002
735 020004

736 020010

®¢
7

1744 020050
1745 020054
1746 020062

020064

1748 020070
1749 020076
1750 020109
1751 020104
1752 020112
1753 020114
1754 020120
1755 020126
1756 020130
1757 020134
1758 020142
1759 020144
1760 020150
1761 020156
1762 020160
763 020166
—Qfld—.-fldd

J062

C(ZRMTBO RMOS5/3/2 DR CMPT TST
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

769020212

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

BIT
BEQ

#B81T04'BITO3,$TATUS(RO) ;UNSAFE OCCURRED
+6
:BR IF NOT

000030

BIT

#BIT14,SRMCS2 (RO}

020310
040000

000032

BIT

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:

JMP

BEQ

1%:

JMP

WCKER

BNE
JMP

1%
TRFER

REPORT UNSAFE

;IS 'WCE®' SET ?

;BRANCH IF NOT SET

*WRITE CHECK ERROR

#B1T14,$RMDS (RO) * ; CHECK 'ERR’

:BR IF SET
:PROCESS 'TRE'

BIT

#B1T08,SRMER1T (RO ;*HCRC® SET?

JMP

HCRCER

BEQ

:BR IF NOT

:PROCESS "HCRC®

BIT

#B81T04,SRMERT (RO}; 'FMT' SET?

BIT

#81T07,$RMERT(RO); *HCE' SET?

JMP

CKHCE

BEQ
JMP
BEQ

+6
CKFMT
+6

:BR IF NOT SET
CHECK FORMAT ERROR
:BR IF NOT SET

:CHECK *HCE® ERROR

BIT

#81T13,SRMERT(RO) ;'OPI' SET?

BIT

#8]1T3,$RMER1(RO)" ; *PAR" SET?

BIT

#BITS5,SRMERT(R0)” ; "WCF' SET?

BEQ
JMP

+6
OPIER

:BR IF NOT SET
*REPORT 'OP]*

oh
PARER

:BR IF NOT SET
*REPORT 'PAR'

BEQ
JMP

+6
WCFER

:BR IF NOT SET
*REPORT °‘WCF'®

BEQ
JMP

6
IAEER

:BR IF NOT SET
REPORT 'IAE'

:BR IF NOT SET

BEQ
JMP
BIT

#81T10,$RMERT (RO} ;'IAE' SET?

BIT

#8IT11,8RMERT (RO} ; "WLE® SET?

JMP

WLEER

BEQ
BIT
BEQ
RTS

28
:BR IF NOT SET
731710, $RMDS(RO) “; *LST® SET?
$
:BR IF NOT SET
PC
"AOE' & 'LST' SET, EXIT

BEQ

BIT

28:

UNSAF

- BIT

BEQ

JMP
ST

8PL

*REPORT ‘WLE'

#8179, SRMERT (RO) " ; *AOE' SET?

#B1712,$RMER1 (RO} :SEE IF °*DTE' SET
+6

:BR'IF NOT

.+6

*BR IF NOT

DTEER
$RMER1 (RO)

*REPORT °'DTE' ERROR
*SEE IF 'DCK' SET

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

1770 020214
1771 020220
1772 020226

1773 020230

1774 020236
1775 020240
1776 020244

1777 020250
1778 020254

1779 020260

000137
032760
001006

032760

001004
000137
000137
104401
104401

104007

1780 020262
1781 020264
1782 020266

104010
104011
10401

};gg 020274

000177

1783 020270

104401

020300
060000

000062

100000

000062
3%:

001207
042207

4$:

}g? 020304

61100

104414

000137

020540

}ggo 020334

000137

020540

104414

100000

DCKER:

037414

1811 020350

}g}g 020354

104414

000137

037342

}g}g 020364

1824 020374

1825
1826

JHALTX

ARSTART
('DCK')

DISPLY

:JUMP TO RESTART

CHECK ERROR

,EM21

DUMP

WCKER:

BIT
BNE

#B1T15,$RMERT (RO)
18

JMP

DUMP

JMP

DUMP

DISPLY

1%:

DISPLY

,EM23
,EM22

HCRCER:

DISPLY

JMP

,EM20

DUMP

:REPORT DRIVE ERROR
104414

000137

037757

DRVER:

020540

DISPLY

JMP

:PROCESS FORMAT

104414

000137

037546

CKFMT:

020540

}gsg
1822 020370
1823 020370

000034

020540

}g}g

1816 020360
1817 020360

10
1
12

;REPORT 'HCRC' ERROR

1808

1809
1810 020350

:CR=LF

JMP

037467

1802

}% 020344

LSCRLF
MESG11

;BAD SPOT ?

JBRANCH IF SO
;REPORT ERROR
:REPORT DRIVE ERROR

;WRITE CHECK ERROR PROCESSING

000137

1803
1804 020340
1805 020340

TYPE
TYPE

JMP

020540

1798 020324
1

#81T15, SRMER2 (RO)

TYPE

037363

032760
001004

1799 020330

43
DRVER
SKIER

;PROCESS DATA

1795 020310
1796 020316

1797 020320

BNE
JMP
JMP

EMT
EMT
EMT

;;3%
1794 020310

DCKER
:PROCESS 'DCK*
#BIT14!'BIT13,SRMER2(RO) ;*SKI* OR 'OCYL® SET
3s
g
:BR IF IT IS

EMT

043106

SEQ 0076

JMP
BIT
BNC

BIT

020350
020510

};gg

1788 020300
1789 C20300

6
L
18:12:15 PAGE 9-33

4-APR-81

DISPLY

JMP

,EM30

DUMP

('FER') ERROR

,EM24

DUMP

;PROCESS HEADER COMPARE ('HCE') ERROR
104414

000137

037614

020540

CKHCE:

DISPLY

JMP

,EM25

DUMP

;POSSIBLE POSITIONING ERROR

:DCK BIT SET ?
:BRANCH IF SET

;
|

CZRMTBO RM0S5/3/2 DR CMPT TST
MACRO Vv04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

1827 020400 104414 041120

}ggg 020404 000137 (020540
1830

1831 020410
1832 020410

}ggz 020414

1837 020420
1838 020420

}gzg 020424
1841

}gl.‘g 020434

104414

040011

}g‘sj} 020444

104414

040054

104414

040107

000137 020540

000137

}ggg 020454

}&3 020464

104414

040226

}%g 020474

}g;lg 020504

104414

040264

1880 020514

DTEER:

,EM31

HUMP

'DTE' ERROR
DISPLY

,EM32

JMP
DUMP
:REPORT 'PAR' ERROR
PARER:

DISPLY

JMP
IAEER:

DISPLY

JMP

WLEER:

000137 020540

,EM33

DUMP

,EM3S

DUMP

DISPLY

JMP

,EM36

DUMP

;REPORT FORMAT ERROR
104414

000137

037675

FMTER:

020540

DISPLY

JMP

,EM26

DUMP

;REPORT HEADER COMPARE ERROR
104414

037722

000137 020540

HCEER:

DISPLY

JMP

EM27

DUMP

;PROCESS CONTROL/INTERFACE TRANSFER ERROR
104414

040377

TRFER:

000137 020540

}g;g
1878 020510
1879 020510

DUMP

;REPORT WLE ERROR

}g;?
1872 020500
1873 020500

DISPLY

JMP

000137 020540

}ggz
1867 020470

;REPORT 'JAE' ERROR

}ggg
1861 020460
1862 020460

OPIER:

020540

1853

1854
1855 020450
1856 020450

JMP

:REPORT

1847

1848
1849 020440
1850 020440

18:12:15 PAGE 9-34

POSER: DISPLY ,EMS1

000137 020540

1842

1843 020430
1844 020430

4-APR-81

:REPORT 'OPI' ERROR

1835
183¢

838

|
||

DISPLY

JMP

,EM4O

dumP

:PROCESS 'SKI' OR 'OCYL'
104414

000137

041062

020540

SKIER:

DISPLY

JMP

JREPORT WRITE

,EMSO

DUMP

CLOCK FAILURE

]

SEQ 0077

CZRMTBO RMO5/3/2 DR CMPT TST

GET VALUE FOR SOF TWARE

MACRO V04.00

SWITCH REGISTER

4-APR-81

WCFER:

040164
020540

DISPLY
JMP

N 6
18:12:15 PAGE 9-35

SEQ 0078

,EM34

DUMP

;REPORT DRIVE UNSAFE ERROR

1890 020530

1891 020530

1892 020534
1893
1894 020540

020540

1895 020542
1896 020544
1897 020546
1898
1899 020550
1900 020554
1901 020562
1902 C20570
1903

104414

000137

:
UNSAF

041163
020540

DUMP:

104007
104010
104011
104012

004737
012737
012737
000207

030334

177777
177777

030264
030266

DISPLY

,EM60

JMP

DUMP

EMT
EMT
EMT
EMT

7
10
11
12

JSR

PC,RMINIT

RTS

MOV
MOV

#-1,SAVEFG
#-1,SEEKFG

;CLEAR THE SUB=-SYSTEM

s CKECK ERROR BITS IN THE RH/RM REGISTERS

)

1921
1922
1923
1924
1925
1926

032760
001012
032760
001006
005760
001003
005760
001404
104414

000137
000207

00O

3 ReleRENTe
NV ¥ JWT NP

A
N

33228828

N ——

1907 020572
1908 020600

e
T

060000
177400

000020

CKERR:

000030

000034

:20000.3RHCSI(R0)

SES IF

BIT
BNE

#177400,8RMCS2 (RO)
1%

ERROR BITS IN (S2 /
;YES

BNE
TST

$RHER2(R0)

2¥YES
;ANY ERROR IN ERZ

TST

000062
04064C
020540

gfig

1%:

’

2%:

$RHER1(R0)

4 |

"TRE® OR "MCPE’

:ANV ERROR

BEQ

JBRANCH IF NO ERROR

JMP

DUMP

;TYPE ALL REGISTERS

DISPLY

RTS

,EM44

IN ER1

;CHECK BUS ADDRESS REGISTER AND WORD COUNT REGISTER
020640
020644
020646
020652
020654
020656

1927 020662

1928 020666

1929 020670
1930 020674

1931 020700

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

005760
001011
016046
005416
006316
066016
02266V
001404
104414
000137
000207
104401
104401
104401
016001
016046
005416

000022

(KBUS:

000004

040446
020540

001207
042764
001207
000024
000004

SRMW( (RO)
1%
$WRDM(RO) ,~(SP)
(SP)

ADD
CMP
BEQ
DISPLY
JMP

$BUF (RO) , (SP)
(R0O)
(SP) +,$RMBA
2%
,EM41
DUMP
;TYPE ALL REGISTERS

ASL

000006
000024
1%:

JWORD COUNT = 0

TST
BNE
MOV
NEG

(SP)

:NO

;WORD LENGTH
;GET THE POSITIVE NUMBER OF WORD COUNT

;BYTE COUNT

2%:
RTS
PC
JROUTINE TO DISPLAY. THE SECTOR WHICH GAVE
PRTBAD:

TYPE

+SCRLF

TYPE

MESG19

MOV
MOV

$RMBA (RO) ,R1
$WRDM(RO) ,=(SP)

TYPE

NEG

THE MARD ERROR

s CR=LF

SCRLF

s CR=LF

(SP)

:GET THE POSITIVE NUMBER OF WORD (OUNT

:PUT THE END ADDRESS INTO R1
JFIND THE BEGINNING OF THE SECTOR

CZRMTBO RM05/3/2 DR (MPT TST

MACRO v04.00

GET VALUE FOR SOF TWARE SWITCH 2EGISTER

1940

730

1941 020734
1942 020736
1943 020742
1944 020746
1945 020750
1946 020752
1947 920754
1948 020756
1949 020760
1950 020764
1951 020770
1952
020774
1953 021000
1954 021002
1655 021006
1956 021010
1957 021014
1958 021020
1959 21022
1960 021024
1961 021026

066016

001207

104414

001207

1962 021032

000756

;gg‘so 021040

000207

1963 021034

1966
1967
1968 021042
1969 021044
1970 021050
1971 021054
1972 021056
1973 021062
1974 021066
1975 021070
1976 021072
1977 021074
1978 021076
1979 021100
1980 021104
1981 021110
198% 021112

1983

021114

000022

005046
012746
004737
005716
001403
006316
161601
0004602
162701
062706
012702
02C160
001415
104414
012146
004737
022711
001405
005302
001363
104414

104412
016001
016002
005402
012705
012703

012521
005302
003407
(005303
001373
012703
012705
000766
104413

000400
021764

001000
000004
000007
000024
042752

021162
177777

1%:
2%:

3%:
A Y

)

5$:

6%:

005262
000020

000020
005262

000207

SRMWC (RO), (SP)

;SUBTRACT THE WORDS NCT TRANSFERED

JRESTORE THE WORDS/LINE COUNT

;RETURN

CLR
MOV
JSR
TST
BEQ
ASL
SUB
B8R
SuB
ADD
Mov
CMP
BEQ
DISPLY
MOV
JSR
CMP
BEQ
DEC
BNE
DISPLY

DISPLY

RTS

.SBTTL

1988

ADD

FILBUF: SAVREG
MOV
MOV
NEG
.
MoV
MOV
3s:
MOV
DEC
BLE
DEC
BNE
MOV
MOV
BR
4%:
RESREG

000006
000004

}gg?

-(SP)
sMAKE THE UPPER DIVIDEND 0
#256.,-(SP)
;DIVDE THE WORDS TRANSFERED BY THE SECTOR SIZE
PC.LINKDV
;DIVIDE
(SP)
JREMANDER = 0 ?
1%
sBR IF IT IS = COMPLETE SECTOR TRANSFERED
(SP)
;CONVERT THE RESIDUAL SECYOR SIZE INTO BYTE COUNT
(SP) ,R1
sSUBTRACT IT FROM THE END ADDRESS
23
sFINISH THE SIZING
#1000,R1
sSUBTRACT FULL SECTOR SIZE FROM END ADDR
#4 ,SP
JRESTORE THE STACK POINTER
#7 .R2
;R2 CONTAINS THE WORDS/LINE COUNT
R1,$RMBA(RO)
JPRINTED ALL THE SECTOR ?
5%
;BR IF ALL PRINTED
_BLNKS1
;TYPE 1 BLANK
(R1)+,-(SP)
;PUT THE DATA ON THE STACK
PC,LINCCT
;TYPE THE DATA
#-1,(R7)
JEND OF FILE ?
5%
:BRANCH IF SO
R2
;DECREMENT THE HORIZONTAL COUNT
4%
;BR IF NOT AT THE END OF THE LINE
,S$CRLF
;CR=LF

,SCRLF

$BUF (RO) ,R1
$WRDM(RO) ,R2
R2
#STNDAT RS
#20,R3

(RS)+,(R1)+
R2
43
R3
3
#20,R3
#STNDAT RS
3s

sPRINT WHAT REMAINS IN THE BUFFER

;SAVE THE REGISTERS
;BUFFER ADDRESS
;POSITIVE WORD COUNT
s
;PATTERN ADDRESS
sPATTERN COUNT
;MOVE THE PATTERN INTO THE BUFFER
;DECREMENT THE WORD COUNT
;BR IF DONE (WORD COUNT = 0)
;DECREMENT THE PATTERN COUNT
;BR IF MORE PATTERN
;RESTORE PATTERN COUNT
;RESTORE THE ADDRESS
;CONTINUE DISTRIBUTING THE PATTERN
;RESTORE THE REGISTERS

;RETURN

ERROR MESSAGE GENERATION ROUTINES

sPRINT LINE 1 OF ERROR MESSAGE:

}ggg

s"HH:MM:SS*

1991 021116
199§ 021124

032777
001402

002000

1994 021132
1995 021140
1996 021142

032777
001403
104414

020000

199

4-APR-B1 18:12:15 PAGE 9-36

021126

104401

001202

001207

160030

LINE1:

BIT
BEQ

#SW10,aSWR
1%

;SWITCH 10 SET ?
;BR IF NOT

160014

1%:

BIT
BEQ
DISPLY

#SW13,aSWR
2%
,SCRLF

;INHIBIT TYPEOUT ?
;BR IF NOT
;CR=LF

TYPE

LSBELL

;RING THE BELL

SEQ 0079

RHY%WS/S/Z DR CMPT

ROR

TST

MACRO v04.0C
SSAGE GENERATION ROUTINES

1997 021146
1998 021150
1999 021154

20002001 021160

000404
004737
1044146

000207

(21430
042752

2%:

3s:

2002
2003
2004
2005
22889

2008 021162
2009 021166
2010 021172
2011 021176
2012 021204
2013 021206
2014 021210
?”.29}2 021212

016646
004737
012637
062737
104414
000000
012616
000207

000002
022724
021206
000005

021206

2017
2018
2019
2020
2021
2285%
2024 021214
2025 021220
2026 021224
2027 021230
2028 021232
2029
2030
Sgg}

016646
004737
(004737
012616
000207

000002
022674
022300

2039 021256

2045 021306

2046 021312
2047 021320

2048 021326

2049 021330
2050 021334
2051 021342
2052 021346
2053 021352

RTS

3s
PC,STIME
_BLNKS1

SEQ 0080

SEXIT
JTYPE THE TIME
sTYPE 1 BLANK

JRETURN & TYPE DESCRIPTION

;OCTAL TYPEOUT ROUTINE
;CALL:
:
MOV
NUM,-(SP)
:
JSR
PC,LINOCT
H
RETURN

JPUT THE NUMBER ON THE STACK

LINCCT: MOV
JSR
MOV
ADD
DISPLY
1%:
.WORD
MOV
RTS

;PUT NUMBER IN PROPER LOCATION ON STACK
s CONVERT THE NUMBER TO OCTAL
sGET THE ADDRESS OF THE ASCII STRING
;ADDRESS THE LAST 6 ASCII DIGITS
JTYPE IT
;ADDRESS
sCORRECT THE STACK
;RETURN

LINDEC: MOV
JSR
JSR
MOV
RTS
.SBTTL

2033

2040 021262
2041 021266
2042 021272
20643 021276
2044 021302

B8R
JSR
DISPLY

7
c
18:12:15 °©AGE 9-37

2(SP) ,-(SP)
PC,$SB20
(SP)+,1%
#5.,1%

0
(SP)+,(SP)
PC

JROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT WITH
;LEADING ZERO SUPRESSION
sCALL:
.
:
MOV
NUM,-(SP)
;PUT THE NUMBER ON THE STACK
3
JSR
PC,LINDEC
3
RE TURN

Sgglg

2036 021234
2037 021242
2038 021250

4-APR-B81

2(SP) ,~(SP)
PC.$SB2D
PC.$SUPRS
(SP)+,(SP)
PC

;SET UP STACK FOR CONVERT
sCONVERT IT TO DECIMAL
JTYPE IT (WITH LEADING ZEROS SUPRESSED)
JRESTORE STACK POINTER

GENFRAL SUPPORT SUBROUTINES

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

012737
012737
012737

005037
005777
005037
005037

177777
177777
021330

000006
160014
001316
001314

013701
012721

001306
021526

012777
012777

174575
000131

012711

000434

062706
012737
005777
005037
013701

000300

000004
021376
157742
001316
001312

001316
001314
000004

CKCLK:

MOV
MOV
MOV

000004

;CLEAR CLOCK AVAILABILITY FLAG
;CLEAR KW11=-P CLOCK AVAILABILITY fFLAG
;SET UP VECTOR FOR CLOCK CHECK

SLPVEC.R1
#CLOCK, (R1)+

;CHECK FOR KW11-P
;SET CLOCK AVAILABILITY FLAG
;SET KW11-P CLOCK FLAG
;KW11-P VECTOR ADDRESS
;SET UP KW11=P VECTOR

CLR
TST
CLR
CLR

SNERRVE(C+2
aSLKCSR
CLKFLG
PCLOCK

MOV

#300, (R1)

MOV
MOV

157764
157754

#-1,CLKFLG
#-1,PCLOCK
#CKCLKT,ERRVEC

MOV
MOV

CKCLK1: ADD
MOV
TST
CLR
MOV

:NEW PSW

:PSW - PRI 6

#-1667.,38LKCSB ;LOAD COUNTER BUFFER WITH 16.67
#131,38LKCSR
JSET CLOCK = CNT UP, 10US, CONT INT

CKCLK3

#4,SP
JRESTORE THE STACK POINTER
#CKCLK2 ,@#ERRVEC ;CHANGE ERROR VECTOR TO CHECK FOR KWll=L
a$LKS
;LOOK FOR KW11=L
CLKFLG
sSET CLOCK FLAG
$LLVEC,RT
;KW11=L VECTOR ADDRESS

CZRMTBO RMOS5/3/2 DR (MPT TST
GENERAL SUPPORT SUBROUTINES

2054 021356
2055 021362
2056 021366
2057 021374

2058 021376
2059 021402
2060 021406
2061 021412

012721 021526
012711 000300
012777 000100
000411

MACRO V04.00

157714

000004
043257
000042

zzggg 021414

062706
104401
005737
001400

000177

157760

2064 021420
2065 021426
2066

012737
000207

000006

000004

2067

20682069

2070 021430

005737

001316

2072 021436

104401

001207

2075 021452
2076 021456
2077 021460

004537
000002
104401

022210

2081 021500
2082 021502

000002
104401

2084 021512
2085 021516

004737 022674
004537 022210

2071 021434 001033

4-APR-81

#CLOCK,(R1)+
#300, (R1)
#100,38LKS
CKCLK3

;SET UP Kwll=L VECTOR
‘PSW - PRI 6
“SET KW11=L INTERRUPT

JMP

ARSTART

*JUMP TO RESTART

CKCLK3: MOV
RTS
:ROUTINE

STIME:

2073 027442 013746 001344
2074 021446 004737 022674
042754

,SCRLF

“CR=LF

HOUR, = (SP)
PC,$582D

MOV
JSR
JSR

MINUTE,=(SP)
PC,$582D
RS.REPLZ

LWORD
RTS

005337

001033
013737
005237
022737
001022
005037
005237
022737
001012
005037
005237
022737

2105 021616
2106 021622
2107 021626

005037
012746
004737

g;gg 021632
2110

RS _REPLZ
2
,COLON

2
,COLON

SECOND,-(SP)

PC,$582D
RS.REPLZ
2
PC

*BR IF NOT

*PUT "HOURS® ON THE STACK
*CONVERT TO DECIMAL
STYPE IT
STYPE 2 DIGITS
Lo

:PUT 'MINUTES®' ON THE STACK
*CONVERT TO DECIMAL
STYPE IT
*TYPE 2 DIGITS
peg

:PUT SECONDS ON THE STACK
*CONVERT TO DECIMAL
STYPE IT

STYPE 2 DIGITS

;CLOCK HANDLER ROUTINE

2092 021532
2093 021534
2094 021542
2095 021546
2096 021554
2097 021556
2098 021562
2099 021566
2100 021574
2101 021576
2102 021602
2103 021606
2104 021614

MOV
JSR

2086 021522
zzggg 021524

2091 021526

TIME

TYPE

JSR
JSR

2089

;RESTORE THE ERROR VECTOR

;CLOCK ON THE SYSTEM ?

MOV
18:

#6, SERRVE
PC

CLKFLG

2083 021506 013746 001350
000002
000207

;RESTORE THE STACK POINTER
:'P OR L CLOCK MUST BE ON SYSTEM'
*UNDER MONITOR CONTROL ?
‘BR IF NOT

TST

BNE

LWORD
TYPE

042754

#4 ,SP
NEDCLK
{2
1$

TO TYPE THE

JSR
LWORD
TYPE

2078 021464 013746 001346
2079 021470 004737 022674
2080 021474 004537 0221C

MOV
MOV
MOV
BR

CKCLK2: ADD
TYPE
ST
BEQ

1$:

18:12:15 PAGE 9-38

103002

000002

001352

CLOCK:

001320 001352
001350
000074 001350
001350
001346

000074 001346
001346
001344
001747
001344
000021
034344

001344

DEC

2%:

: INCREMENT THE 1/60 SECOND COUNTER

1%
HZ,SIXTEE
SECOND
#60. , SECOND
1%
SECOND
MINUTE
#60. ,MINUTE
1%
MINUTE
HOUR
#999. , HOUR

_*BR IF A SECOND NOT COUNTED
*RESTORE THE VALUE
*COUNT THE SECOND
AT MAXIMUM ?
*BR IF NOT
*CLEAR THE SECOND'S COUNTER
*COUNT THE MINUTE
AT MAXIMUM ?
*BR IF NOT
*CLEAR THE MINUTE'S COUNTER
*COUNT THE HOURS
*AT MAXIMUM

CLR
MOV
JSR

HOUR
#17.,=(SP)
PC,RMTMR

*CLEAR THE HOURS
*17 MS ON THE STACK
*DRIVER TIMER ROUTINE

BHIS

1$:

SIXTEE

BNE
MOV
INC
CMP
BNE
CLR
INC
CMP
BNE
CLR
INC
MP

RTI

:COMMAND DECODE ROUT INE

*BR IF NOT

SEQ 0081

CZRMTBO RMOS5/3/2 DR CMPT

TST

GENERAL SUPPORT SUBROUTINES

MACRO v04.00

2111

MOV

#-1,CFLAG

JSR

PC.KSR

2113

2114

2115

2118 021634

;

|
'

;CALL:

5”9

2119 021636
2120 021644

2121 021650
2122 021654

2123 021660
2124 021664
2125 021666

104412

012737

000200

004737
005777

021430
157302

005037

005737
001002
000240

001336

000240
104413
062716

000002

2130 C21704
2131 021712

052777
005037

000100
177776

ggg 021716

005777
000207

KSR:

157256

RE TURN2

SAVREG

iN INTERRUPT MODE

:SYSTEM BUSY RETURN

;RETURN AFTER KEYBOARD SERVICED

:SAVE THE REGISTERS

JSR
ST

PC,S$TIME
asTKB

NOP
RESREG
ADD

#2, (SP)

;RESTORE RO - RS
: INCREMENT THE RETURN ADDRESS

BIS
CLR

#B1T06,88TKS
PS

;SET TTY INTERRUPT ENABLE
:SET PRIORITY BACK TO ZERO

157246

:'CFLAG' IS NORMALLY SET BY THE TTY SERVICE

;ROUTINE

#PR4 ,PS

ST
BNE
NOP
7%:

SEC 0082

MOV
CLR

001336

2126 021670
2127 021672
2128 021674

2129 021700

_..

177776

RE TURN1

18:12:15 PAGE 9-39

{2112

&-APR-81

RTS

CFLAG

CFLAG
7%

asTKB

;SET PRIORITY TO 4

;CLEAR THE 'CONTROL C' FLAG

:TYPE THE TIME
;CLEAR ANY GARBAGE IN THE TTY BUFFER
;CHECK THE CONTROL C FLAG
;EXIT IF "CONTROL C' ENTERED
:DUMP CODING FOR LATER USE 3/8/77
;CLEAR THE TTY BUFFER
;RETURN

S}%—g

‘@2‘{{‘"‘ TO CLEAR THE DPB FOR THE ASSIGNED DRIVE

2136

MOV

2138

;

RETURN

2137

2139
2140 021720

021720
021722
021724
021726
2141 021730
2142 021732
2143 021736

010146
010346
010446
010546
010004
062704
012703

2145 021744
2146 021750
2147 021752
021754
021756
021760
5}23 021762

162703
001374
012605
012604
012603
012601
000207

2144 021742

2150 021764

2151 021766

005024

104412

016602
016603

000030
000032

2155 022004
2156 022006
2157 022010

005000
005001
004737

2160 022024

000002

000026

005004

2158 022014
2159 022020

000002
000020

016605

2152 021772

2153 021774
2154 022000

CLRDPB:

010166
010366
104413

022032

000030
006032

18:

#DPB, RO

:DPB ADDRESS

MOV
MOV
MOV
MOV
MOV
ADD
MOV

R1,=(SP)
R3,-(SP)
R4 ,=(SP)
RS,=(SP)
RO, R4
#2 R4
#SEMTAB-2,R3

::PUSH R1 ON STACK
::PUSH R3 ON STACK
::PUSH R4 ON STACK
: ;PUSH RS ON STACK
:GET THE DPB ADDRESS
:ADDRESS OF FIRST LOCN TO BE CLEARED
;NUMBER OF LOCATIONS TO CLEAR

sus
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 R&
::POP STACK INTO R3
:;POP STACK INTO R1
:RETURN

JSR

(LR

LINKDV: SAVREG

MOV

PC,CLRDPB

(R4) +

26 (SP) ,RS

CLR

CLR
CLR
JSR

RO
R1
PC,M.DPID

MOV
MOV

RESREG

30(SP) ,R2
32(SP) ,R3

R1,30(SP)
R3,32(SP)

:CLEAR THE STORAGE LOCATION

:STORE RO - RS

;DIVISOR

;OTHER DIVISOR WORD

;UPPER DIVIDEND WORD
:LOWER DIVIDEND WORD

:CLEAR OTHER DIVIDEND REGISTERS
;G0 TO THE DIVIDE ROUTINE

:REMAINDER ON_THE STACK
;QUOTIENT ON THE STACK

;RESTORE RO = RS

2 022036
3 022040
4 022042

76 022050
77 022054
78 022056

2182 022070
2183 022072
2184 022074
2185 022076
2186 022100
2187 022102
2188 022104
2189 022106
2190 022112
2191 022114
2192 022116
2193 022122
2196 022124
2195 022126
2196 022130
2197 022132
2198 022134
2199 022136
2200 022140
2201 022142
2202 022144
2203 022150
2204 022152
2205 022154
2206 022156
2207 022160
2208 022162
2209 022164
2210 022166

2211 022170
2212 022174
2213 022176
2214 022200
2215 022204

2216 022206
2217

MATS, V04 .00

4-APR-B1

01266
000207

012746
010446
010546
005466
005416
005666
061601
005500
066600
103445
005046
006103
006102
006101
006100
005716
001410
005016
066601
005500
005516
066600
000404
060501

MOV
RTS

000040

000002

.DP40: ROL

ROL
ROL
ROL
TST

005516
005716

001401
005203

BEQ
CLR
ADD
ADC

000002

005500
005516
060400

000006

ADC

ADD
BR
.DP41: ADD
ADC
ADC
ADD
M .DP42: ADC
TST
BEQ
INC
DEC

BGT

ROR
B(S

00010

ADD
ADC
ADD
CLC
M .DP44: ROL
ADD

000006

RTS
ADD

CLV

.DP50:

JMOVE RETURN UP THE STA(K

(SP)+,(SP)
P

DIVISION UTILITY SUBROUTINE
RO-R1-R2-R3=D]VIDEND
R4=R5=DIVISOR
RO-R1=REMAINDER AFTER DIVl SION
RZ=R3=QUCTIENT AFTER D IVI1S ION
ENTER WITH JSR
PC,M.D PID

.DPID: MOV
MOV
MOV
NEG
NEG
SBC
ADD
ADC
ADD
B(S
CLR

000002

000004

18:12:15 PAGE 9-40
SEQ 0083

Beevevsananan,

b
D el
e
d e
D

1 022032

~N NNN

et e

S&AEREL

2161 022026
2162 022030

ASUSTNLSLNINT
NN LNV VT,V

CZRMTBO RMO5/3/2 DR CMPT TST
GENERAL SUPPORT SUBROUTINES

b nd

SEV
RTS

#40,-(SP)
R4 ,=(SP)

;COUNTER FOR DIVISION CYCLES

;HIGH ORDER

RS,=(SP)
asP

;LOW ORDER DIVISOR TO THE STACK
;FORM NEGATIVE
;VERSION OF THE DIVISOR

asP,R1
RO

JPERFORM THE INITIAL SUBTRACTION

2(5p)
2(sP)

2(SP) ,RO

M.DP50

;1F CARRY THEN OVERFLOW HAS OCCURRED
;THIS IS A LONGER LASTING CARRY BIT

-(SP)

R3
R2
R1
RO
aspP
M.DP41
asP

;TEST "'CARRY'’ INDICATOR
:IF _NO "‘CARRY’’ THEN ADD EL SE SUBTRACT
;CLEAR UP FOR NEXT TIME

2(SP) .R1

asSP

4(SP) ,RO; <~
M.DP&2
RS.R1
RO
aSP
. S
|

R4 RO

asSP
aSP
.4

R3
6(SP)

M.DP40
R3
M.DP44
RS.R1
RO
R4 ,R0

#10,SP

#6,5P
PC

;ADD =(DIVISOR)
;SET "'CARRY"’

sADD +(DIVISOR)

;SET "'CARRY"'
;SET "‘CARRY"’

1=>

;TEST THE UPDATE INDICATOR
;IF ZERO FORGET IT
;NO CARRY POSSIBLE HERE
sDECREMENT COUNTER
;BRANCH IF MORE TO DO

;ADJUST

STACK BY & WORDS

‘

271

C(ZRMTBO RMO5/3/2 DR (MPT TST
GENERAL SUPPORT SUBROUTINES

MACRO v04.00

2238 022254
2239 022262
2260 022266
2241 022270
2242 022272
2243 022274
2244 022276
2245
2246
2247
2248
2249
2250
2251
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
2072 022362
2273 022364
2274

sROUTINE TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES
s CALL

MOV

#ADR,=-(SP)

JADDRESS OF NUMBER (IN ASCID)

.WORD

;'N'

RO,=(SP)

;SAVE RO

(R5)+,(5P)
6(SP) ,RO

;SUBTACT DIGITS TO FORM INDEX
;ADDRESS OF NUMBER TO RO

s INCREMENT THE BYTE ADDRESS

2234 022242
2235 022244
2236 022246
2237 (022250

18:12:15 PAGE 9=-41
SEQ 0084

2218
2219
2220

2225 022210
2226 022212
2227 022216
2228 022220
2229 022224
2230 022230
2231 022232
2232 022236
2233 022240

&-APR-81

010046
012746
162516
016600

000012

122710

000006
000060

112710

000040

005200
000771

105710
001003
005300
112710
016637

062637
104401

REPLZ:

1%:

MOV

022270

3%:
4%:

012600
012616
000205

RS ,REPLZ

MOV

#10. ,-(5P)

CMPB
BNE
MOvB

#'0,(RO)
2%
#40, (RO)

SuB
MOV

INC

2%:
0C0060
000006
022270

JSR

TSTB

(RO)

BNE
LEC

3%
RO

MOV

6(SP) 4%

MOVB
ADD

TYPE

#'0,(RO)

(SP)+,4%

.WORD

RTS

MOV
MOV

(SP)+,RO
(SP)+, (SP)

IS NUMBER OF DIGITS TO BE

JMAXIMUM NUMBER OF DIGITS TO BE TYPED
;BYTE EQUAL TO ASCII '0' ?
;BR _IF NOT
JREPLACE THE ZERO WITH A SPACE

;GO BACK AND LOOK FOR MORE LEADING ZEROS
;SEE IF ZERO BYTE TERMINATOR

:BR IF NOT
;BACKUP STRING POINTER

:PUT A ZERO BACK IN

;PUT ADDRESS IN LLOCATION FOR TYPEOUT
;BEGINNING OF SIGNIFICANT DIGITS

:TYPE

THE NUMBER

;ADDRESS OF NUMBER

;RESTORE RO
;MOVE RETURN ADDRESS
sRETURN

;TYPE NUMERICAL ASCIZ STRING SUPRESS LEADING ZEROS

s CALL

#NUMADR,-(SP)

;FIRST ADDRESS OF ASCIZ STRING

$SUPRS: MOV

RO,-(SP)

:SAVE RO

1%:

(RO)
2%

s TERMINATOR ?
:BR IF YES

1$
RO
RO,3$

:BR IF YES
;BACKUP BY "1°
;SAVE FOR TYPING

:
010046
016600
105710
001403
122720
001773
005300
010037
104414

000004

000060
2%:

022330

000000
012600
012616
000207

38:

MoV
JSR

MoV

TSTB
BEQ

PC,$SUPRS
4{SP) ,RO

;PICKUP THE POINTER

CMPB

#'0,(RO)+

DISPLY
.WORD

;GO PRINT
sASCIZ POINTER GOES HERE

;RETURN

BEQ
DEC
MOV

MoV
MOV
RTS

(SP)+,RO
(SP)+, (SP)

;1S THIS AN ASCII

'0* ?

SRESTORE RO
;RESTORE THE STACK

;JROUTINE TO TYPE AT PRIORITY 4
013746
012737
012537
004737
000000
000205

177776

000200
022362
024576

177776

TYPRI4: MOV

MOV
MOV

1%:

JSR
.WORD
RTS

a#PS, = (SP)

#200, a#PS
(R5)+,1%
PC,$TYPE
O
R5

.
TYPED

sSAVE THE PRESENT STATUS

:CHANGE THE PRIORITY TO 4
;MESSAGE ADDRESS

:TYPE THE MESSAGE
sMESSAGE ADDRESS GOES HERE
sRETURN

TST

GENERAL SUPPORT SUBROUTINES

MACRO v04.00

H
7
18:12:15 PAGE 9-42

4-APR-81

SEQ 0085

2275

sROUTINE

s CALL

TO TYPE

ERRORS

DISPLY

JMUST DEFINED IN ‘'TRAP'
;ADDRESS OF MESSAGE

ME SADR
RETURN

032777
001002
000137
062716
000002

020000

024576
000002

156560

$DSPLY: BIT
BNE
JMP
1%:

#B1T13,aSWR

1%
$TYPE
#2,(SP)

ADD
RTI

sTHIS ROUTINE

IS USED

TO CHECK

TABLE

;INHIBIT ERROR TYPEOUT ?

;BR _IF YES
sTYPE THE MESSAGE
s INCREMENT THE RETURN

sRETURN

sASCII CHARACTER IS A DIGIT BETWEEN O AND 7.

— e (— PN
o
o
~nN
NNN

il il
il

022410
022414
022416
022422
022424
022426
022432
022434

—Oonnon

s CALL

)

272

CZRMTBO RMOS/3/2 DR CMPT

042702
005725
000205

000060
0C0067
177770
1%:

#ADR ,R1
MOV
R5,CK.OCT
JSR
RETURN1
RE TURNZ

CMPB
BLO
CMPB
BHI
MOvVB
BIC
TST
RTS

sTHIS ROUTINE

1%
(R1) ,R2

;YES == BRANCH
;GET THE CHARACTER

#~C7,.R2
(R5)+
RS

000060

" CK.DEC:

000071
000060
1%:

;GREATER THAN SEVEN?

;STRIP AWAY THE ASCII
;ADJUST FOR RETURN
;RETURN

IS USED TO CHECK AN ASCII

CHARACTER

IT IS A DIGIT BETWEEN O AND 9.

#ADR ,R1

;ADDRESS OF

ASCII

CHARACTER

R5,(CK.DEC

;CHECK THE CHARACTER
sNOT BETWEEN O AND 9
;BETWEEN O AND 9
:R2 = DIGIT

(R1) ,#'0
1%
(R1),4'9
18
(R1) ,R2
#'0,R2
(R5)+
RS

;LESS THAN ZERO?
:YES == BRANCH
;GREATER THAN NINE?
;YES == BRANCH
;GET THE CHARACTER
;STRIP AWAY THE ASCII
;ADJUST FOR RETURN
sRETURN

RETURNZ2

022436
022442
022444
022450
022452
022454
022460
022462

CHARACTER

;CHARACTER 15 NOT BETWEEN 0-7
;CHARACTER IS IN R2 AS A
;OCTAL DIGIT
;LESS THAN ZERO?
;YES == BRANCH

(R1),#'7

MOV
JSR
RETURN1

ASCII

;CHECK THE CHARACTER

(R1) ,#'0
1%

SAND DETERMINE IF

sCALL

;ADDRESS OF

;THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO
;DETERMINE WHAT IT IS.
;CALL

MoV
JSR
RETURN
RETURN
RETURN
RETURN

#ADR,R1

R5,CK.CHR
ADR1
ADR?
ADR3
ADR4

sADDRESS OF

ASCII

CHARACTER

s CHECK CHARACTER
JUNKNOWN CHARACTER
;CARRIAGE RETURN * (R1)=ADR+1
;COMMA * (R1)=ADR+1
JPERIOD * (R1)=ADR+1

4-APR-81

18:12:15 PAGE 9-43
SEG 0086

K.CHR:

Ui ]

NONNNWN~N—

b el
—d — \ Y

WN=NON)—=N)
— =

000054
000056
022436
022410
18:
2%:

3%:

A ¥

RE TURN

RETURN
TSTB

BEQ
CMPB
BEQ

ADRS

ADR6

(R1)

(R1) %',

*YES == BRANCH

“"PERIOD"

CMPB
BEQ
JSR
BR
JSR

R5,CK.DEC
3]
RS,CK.OCT

JDIGIT'TM?

TST
TST

(R5)
+
+
(RS)
(R5)
+

‘DIGIT BETWEEN 0-7
JPERIOD
; COMMA
;CARRIAGE RETURN
JMOVE POINTER TO NEXT CHARACTER
JUNKNOWN CHARACTER
:RETURN

TST
TST

TST
INC

MOV
RTS

sTHIS ROUTINE

(R§)+"

(RS5)+

(RS5) ,RS
RS

CHECKS AN ASCII

yss == BRANCH

sNO == BRANCH
OCTAL ?
:DIGIT BETWEEN 8-9

STRING FOR LEGAL

s CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN RZ2.
s CALL

2343 022510
234 022512
2345 022516
2346 022520
2347 022522
2248 022524
2349 022526
2350 022530
2351 (022532
2352 022534
2353
2354
2355
2356
2357
2358
2359

L ettt

: o

3
3
3
%36 022464

MACRO V04.00
LTETE
D)

WW
W)

laY]

CZRMTBO RMOS5/3/2 DR CMPT TST
GENERAL SUPPORT SUBROUTINES

2367 022536
2368 022540
2369 022542
2370 022544
2371 022546

MOV
MOV
JSR
RETURN
RETURN
RE TURN
RETURN
RETURN
RETURN

(K.DIG: MOV
MOV

2372 022550

2373 022552
022556
022560
022562
022564
022566

022464

2374 022572
2375 022576
2376 022600
2377 022602
2378 022604
2379 022606
2380 022610
2381 022612
022616

000004

;ADDRESS OF ASCIZ STRING
sMAX. MAGNITUDE
OF INPUT NUMBER
;CHECK DIGITS

:TR"ONLY ENTERED -- R2=0

:"PERIOD'* ONLY ENTERED -- R2=0
;JLLEGAL CHARACTER OR INPUT TOO LARGE -- R2=?
J"'CR'* == R2 = NUMBER
:"'COMMA’ -- R2 = NUMBER

“*PERIOD'* =~ R2
= NUMBER
R4 ,-(SP)

R3.-(SP)
R2.~(SP)
R2
R3
R4

R5,CK.CHR

;SAVE R4
;SAVE R3
;SAVE THE MAX. SIZE ON THE STACK
JSTART WITH 0
:CHECK ONE CHARACTER
:ILLEGAL CHARACTER
: CARRIAGE RETURN

004537
022656

022464

#4 ,R5

R3,-(SP)
R3
R3
(SP)+,R3
R2,R3

;DIGIT Q-7
;DIGIT 8-9

& "PERIOD"" RETURNS
;STEP RETURN POINTER PAST "'(R""

: INPUT NUMBER *2
'SQVE *2

$(x2)+(*8) = *10

:UPDATE THE INPUT NUMBER

:CHECK ONE CHARACTER
s ILLEGAL CHARACTER

)74

|
|

CZRMTBO RMOS5/3/2 DR (MPT

GENERAL SUPPORT

TST

SUBROUTINES

MACRO V04.00

4-APR-81

18:12:15 PAGE 9-44

SEQ 0087

|
|

022620
022622
022624
022626
022630
2382 022632

022642
022640
022632
022576
022576
105711

2384 022636
2385 022640
2386 022642

005724
005724
005724

38:

2383 022634 001010

005725
005725
060405

239 022662

005726

68:
98
8s:

*INCREMENT THE RETURN
*INCREMENT THE RETURN
*INCREMENT THE RETURN

CMP
BR

R3, (SP)
9%
8s

MOV

R3.R2

(R5) +
(R5)+
R4 ,RS

012603
012604
011505
000205

(R4) +
(R4) +
(R4)+

ST
ST
ADD

98 :

(R1)

DIGIT 0-7
‘DIGIT 8-9
*DOES A ''CR'' FOLLOW THE ‘PERIOD’*

BNE

BHI

2393 022660 010302
2395 022664
2396 022666
2397 022670
gggg 022672

: CARRIAGE RE TURN
.

ST
ST
TST

48:
5% :

2387 022644 020316
2338 022646 .101004
2389 022650 000402

2390 022652
2391 022654
2392 022656

5%
i
33
28
2
TSTB

(SP)+

MOV
MOV
MOV
RTS

(SP)+,R3
(SP) +.R&
(R5) ,RS
RS

‘£ IF NOT

*CHECK THE MAGNITUDE OF THE NUMBER
:BR IF ENTERED NUMBER TOO LARGE
*BYPASS INCREMENT

*INCREMENT RETURN PAST INVALID RETURN
* INCREMENT RE TURN
*SETUP RETURN POINTER

*ENTERED VALUE

*CLEAN MAX, SIZE OFF OF STACK

*RESTORE R3
‘RESTORE R&
*GET RETURN ADDRESS
*RETURN

2400

:THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN

2403

%282

5283

.-taafimso DECIMAL ASCIZ NUMBER.

2404

2407

5283

26410 022674
2411 022702
2612 022706
2413 022712
2414 022716
2415 022720
2416
2417
2418
2419
24620
2421
2622
2423
2424
2425
2426
2427 022724
2428 022732
2429 022736
2430 022742
2631 022746
<632 022750
2433

MOV

000002
022720
027004
000002

022720

RETURN

PC,$5B2D

JPUT THE NUMBER ON THE STACK

*CALL

*ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK

INOTE:

THE PROGRAM REQUIRES THIS FORM OF

$SB2D:

MOV
MOV
JSR
MOV
RTS
.WORD

016637
012746
004737
012666
000207
000000

NUMBER,=(SP)

JSR

1%:

THE

°*$SB2D*, NOT THE VERSION ON

SYSMAC LIBRARY, REV C AND LATER

2(SP),1$
#1%,-(SP)
PC,$DB2D
(SP)+,2(SP)
PC
0,0

;SAVE THE BINARY NUMBER
;SET THE POINTER
sCALL THE DOUBLE LENGTH CONVERT
;PICKUP THE POINTER
sRETURN

;THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN
JUNSIGNED OCTAL ASCIZ NUMBER.
*CALL

016637

000002

004737

027200

012746 022750

022750

:
:
:

MOV
NUMBER,-(SP)
JSR
PC,$5B20
RE TURN

*NOTE:
:

THE PROGRAM REQUIRES THIS FORM OF °*$SB20°. NOT THE VERSION ON
THE SYSMAC LIBRARY, REV C AND LATER

$SB20:

000000

1$:

2(SP).1%

:SAVE THE BINARY NUMBER

MOV

#1%,-(SP)

*SET THE POINTER

MOV

(SP)+,2(SP)

‘PICKUP THE POINTER

JSR

012666 000002

000207

MOV

;PUT THE NUMBER ON THE STACK
+CALL
*ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK

RTS

.WORD

PC, $DB20

0,0

*CALL THE DOUBLE LENGTH CONVERT

*RETURN

075

! GENERAL SUPPORT SUBROUT INES
C IRMTBO RM05/3/2 DR CMPT

f
|

TST

MACRC v04.00

2634

4-APR-81

7
K
18:12:15 PAGE 9-45

;KEYBOARD INTERRUPT INITIALIZATION ROUT INE

26435

s CALL

VX
73

Szgg

JSR

RE TURN

PC,STKINT

2439 022754
2640 022762

012737
012737

023004
000240

000060
000062

$TKINT: MOV
MOV

#$TKSRV,TKVEC
#PRS,TKVEC+2

;SETUP VECTOR
:PRIORITY TO §

26442 022774
5222 023002

012777
000207

000100

156156

MOV
RTS

#BI1T06,38TKS
PC

:SET INTERRUPT ENABLE
*RETURN

2441 022770

005777

156166

2445
244b

2449 023004
2450 023006
2451 023012
2452 023020
2453 023022
2454 023026
2455 023032
2456 023040
2457 023044
2458 023050
5223 023054

104410
112637
023727
001017
104401
104401
012737
005077
104401
104401
000177

2461 023060
2462 023066
2463 023070
2464 023076
2465 023100
2466 023104
2467 023110

023727
001024
023727
001020
104401
104401
013746

2469 023120
2470 023124
2471 023130
2472 023136
2473 023140
52;? 023144

005077
000137
012777
000402
104401
000002

sz;g 023146

012746

023146
023146
001207
023452
177777
156114
001207
043106
156320

000003

001336

001154

000176

023146

000007

“CLEAR THE BUFFER

(SP)+,5%
58,43
18
LSCRLF
TSCNTLC
#-1,CFLAG
asTKS
LSCRLF
JHALTX
SRSTART

;READ THE KEYBOARD
:GET THE CHARACTER
“*CONTROL C' ?
“BR IF NOT
*CR-LF
svace
*SET THE 'CONTROL C' FLAG
SCLEAR THE TTY INTERRUPT
*CR-LF
*HALT THE PROGRAM
:JUMP TO RESTART

cMP
BNE
CMP
BNE
TYPE
TYPE
MOV

SWR, #SWREG
3s
5$,47
3s
L$CRLF
"$CNTLG
PS,=(SP)

:SOFTWARE SWITCH REGISTER IN USE ?
*BR IF NOT
**CONTROL G* ?
*BR IF NOT
*CR=LF
2vaGe
*PUT THE STATUS WORD ON THF ~TACK

38:
4$:

CLR
JMP
MOV
BR
TYPE
RTI

asTKS
$GTSWR
#100,3$7KS
48
.58

:CLEAR THE TTY INTERRUPT ENABLE
SGET THE SWITCH REGISTER ENTRY
:ENABLE TTY KEYBOARD INTERRUPT
SEXIT
*ECHO THE CHARACTER
*RETURN

5%:

.WORD

;ENTERED CHARACTER

18%:

023130

156034
026312
000100
023146

000000

ENTER VIA INTERRUPT

$TKSRV: RDCHR
MOVB
CMP
BNE
TYPE
TYPE
MOV
CLR
TYPE
TYPE
JMP

001207
026661
177776

2478
2479

MOV
156022

2%:

#2%,-(SP)

*RETURN ADDRESS

:THIS ROUTINE WILL INPUT A STRING FROM THE TTY
“CALL:

2680
2481

5235

2484 023150
2485 023152
2486 023154
2487 023160
2488 023164
2489 023166
2490 023170

as$TKA

:KEYBOARD INTERRUPT SERVICE ROUTINE
:CALL

gzzg

2468 023114

TST

010346
005046
012703
022703
101467
104410
112613

023426
023452

RDL IN

RETURN HERE

$RDLIN: MOV
CLR
18:
MOV
2%:
CMP
BLOS
RDCHR
MOVB

R3,=(SP)
-(5P)
#STTYIN.R3
*
#$TTYIN+20.,R3
8%

(SP)+,(R3)

::INPUT A STRING FROM THE TTY

*ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

STERMINATOR WILL BE A BYTE OF ALL 0°S

:SAVE R3
:CLEAR THE RUBOUT KEY
:GET ADDRESS
:BUFFER FULL?
‘BR IF YES
‘GO READ ONE CHARACTER FROM THE TTY
*GET CHARACTER

SEQ 0088

076

|
|

!
!

(ZRMTBO RMOS5/3/2 DR CMPT TST
GENERAL SUPPORT SUBROUT INES

2491 023172
2492 023176
2493 023200
2694 093202
2495 023204
2496 023212
2497 023216
2498 023222
2499 023224
2500 023230
2501 023232
2502 023236
2503 023242
2504 023244
2505 023246
2506 023250
2507 023256
2508 023262
2509 023264
2510 023270
2511 023272
2512 023276
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
2527 023356
2528 023362
2529 023366
2530 023370
2531 023374
2532 023400
2533 023402
2534 023404
2525 023406

2536 023414
2537 023422
2538 023424
2539 023425
2540 023426
2541 023452
2542

122773
001022
005716
001007
112737
104401

MACRO V04.00

4-APR-81
(MPB
BNE

#177,(R3)
4$

;1S 1T A RUBOUT
‘BR IF NO

BNE
MOVB

33
#'\,11%

‘BR IF NO
“TYPE A BACK SLASH

MOV
DEC
CMP
BLO
MOVB

#=1, (SP)
R3
R3,ASTTYIN
83
(R3),11$

;SET THE RUBOUT KEY
*BACKUP BY ONE
*STACK EMPTY?
‘BR IF YES
;SETUP TO TYPEOUT THE DELETED CHAR.

ST
BEQ
MOVB

(SP)
5%
#'\,11%

CLR
(MPB
BNE

425, (R3)

023424

177777

TYPE

38:

023426

023424
023424
48:

000134
023424

023424

000025

5%:

TYPE

6$:

000003

001336

000012

7%:

001206

8%:

023424
023424
000015

9%:

177777

001210

103

108:

118’
28
.11$

(sP)
6$

$CNTLU

THIS THE FIRST RUBOUT?

;G0 TYPE
“GO READ ANOTHER CHAR.
*RUBOUT KEY SET?
‘BR IF NO
*TYPE A BACK SLASH

;CLEAR THE RUBOUT KEY
:1S CHARACTER A CTRL U?
“BR IF NO

“TYPE A CONTROL 'V’

:GO START OVER

*1S CHARACTER A CTRL C ?
*BR IF NOT
*SET CNTRL C FLAG

B8R

ios

SEXIT

9s
(R3)

*BRANCH IF NO
*CLEAR THE CHARACTER

,S$CNTLC

SECHO IT

CMPB

#12.(R3)

TYPE
TYPE

,SCRLF
STTYIN

STYPE A "CR” & 'LF"
STYPE THE INPUT STRING

.SQUES
is
<?;;.11s

JTYPE A *'2°
*CLEAR THE BUFFER AND LOOP
:ECHO THE CHARACTER

BNE
CLRB

*IS CHARACTER
A "1F'%

CMPB
BNE
CLRB

#15,(R3)+
28

=1(R3)

;CHECK FOR RETURN
*LOOP IF NOT RETURN
*CLEAR RETURN (THE 15)

TST

(SP)+

*CLEAN RUBOUT KEY FROM THE STACK

TYPE
BR
?9!2

TYPE

MOV

,SLF

(SP)+,R3

(SP) ,~(5P)

:GO PICKUP ANOTHER CHACTER

*TYPE A LINE FEED

*RESTORE R3

*ADJUST THE STACK AND PUT ADDRESS OF

MOV

4(SP),2(SP)

118:

RTI
.BYTE

sRETURN
*STORAGE FOR ASCII

STTYIN:
sgcgbc:

.BLKB
JASCIZ

20.
/*C/<CRLF>

*RESERVE 20. BYTES FOR TTY INPUT
*CONTROL ‘¢

000004

200

L1186

YIS

43, (R3)
78
#=1,CFLAG

MOV

000002

(SP)

CMPB
BNE
MOV
TYPE

001207
023426

000004
023426

TYPE
BR

TYPE

026654

177777
023452

SEQ 0089

000177

000134
023424

18:12:15 PAGE 9-46

MOV

BYTE

#STTYIN,4(SP)

FIRST ASCII CHARACTER ON IT

*TERMINATOR

CHAR.

TO TYPE

THE

END OF

MACRO v04.00

PASS ROUTINE

&-APR-81

M 7
18:12:15 PAGE 10
SEQ 0090

.SBTTL

END OF PASS ROUTINE

':'".l'.'.'..".'..""".'tttl'.".'t.t.'.'.'.Q'.".'..'tl.&'-t

;*INCREMENT THE PASS NUMBER ($PASS)
;*IF SW12=1 INHIBIT TRACE TRAP
;*IF THERES A MONITOR GO 1O IT

;*IF THERE ISN'T JUMP TO FINISH
$EOP:
-

001220

003022
012737

052716
012746
000002
023612
023612
0236 %
0236.¢

2
3 023620

4 023624

5 023626
6 023632

7 023636
8 02364:

000020
010000

104401
104401
104401
104401

.WORD
$EOPCT

000020
023612

18:

$RTRN:

SRTNAD:

$TBIT:

001207
042402
001207
043004

FINISH:

1$:

$STSTAM
srmes
$PAS

;:2ERO THE TEST NUMBER
::27ERO THE NUMBER OF ITERATIONS
:: INCREMENT THE PASS NUMBER

(PC)+
1

¢ :LOOP?

nooooo SPASS

::DON'T ALLOW A NEG. NUMBER

$DOAGN
(PC)+,a(PC)+

;iYES
::RESTORE COUNTER

ane2,RO
$DOAGN

::GET MONITOR ADDRESS
*:BRANCH IF NO MONITOR

#SCLR.T,=(SP)
SRTRN .

::SETUP FOR AN RTI OR RTT
$:GO DO AN RTI OR RTT TO LOAD THE PSW

-(SP)

w62 ,R0
$DOAGN
PC. (RO)

*:INSURE THE ''T’° BIT IS CLEAR

“:WITH A CLEARED 'T'’ BIT

;:INSURE RO CONTAINS THE MONITORS
*:RETURN ADDRESS
::CLEAR THE WORLD
*GO TO MONITOR
*:SAVE ROOM
:FOR
SIACTN
::PUSH OLD PSW AND PC ON STACK

BIC

#20, (SP)

“ICLEAR THE ‘T BIT

BNE
CoM
BM]
BIS
MOV

1s
$TBIT
13
#20, (SP)
#SLOOP,~(SP)

:BR IF NO
..IS IT TIFE FOR TRACE TRAP
*BR IF NO

BIT

155364

$LOOP:

001376

MOV
BR

MOV
BEQ
RESET
SENDAD: JSR
NOP
NOP
NOP
$DOAGN:
TRAP

023616

000137
023620
000000

005737
001004

BGT
MOV

CLR

004710
000240
000240
000240

100402

DEC
$EOPCT: .WORD

$GET42: MOV
BEQ

013700
001405

104400
042716
032777
001005
005137

BIC

SENDCT:

023504
013700
001414
005046
012746
000426

NOP

CLR
CLR
INC

3ol

b
d
—

000240
005037
005037
005237
042737
005327

N = =3

CZRMTBO RMO5/3/2 DR CMPT TST

888

277

RTI

#B1712,aSWR

:iRUN WITH TRACE TRAP?

*:SET TRACE TRAP

::JUMP TO START OF TEST

: SRETURN==THIS IS CHANGED TO

AN "RIT'' IF "RTT" IS A LEGAL

Y INSTRUCTION

JMP

aPC)+

: :RETURN

.WORD

22T BIT STATE INDICATOR

TST

FAULT

:COMPATIBLE

TYPE

,$CRLF

*CR-LF

.$CRLF

‘CR-LF

.WORD

BNE

TYPE

FINISH

.MESG1S

.MESG20

*BRANCH IF NOT
*MESSAGE: ALL DRIVE COMPATIBLE

078

(ZRMTBO RMOS5/3/2 DR CMPT TST

END OF PASS ROUTINE

9 023046

10 023652

11 023656

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

RSTART

;JUMP TO RESTART

TYPE

LSCRLF

sCR=LF

SEQ 0091

CZRMTBC RMOS/3/2 DR (MPT TST

ERROR HANDLER ROUTINE

MACRO v04.00

4-APR-B81

18:12:15 PAGE 11

SEQ 0092

.SBTTL

ERROR HANDLER ROUTINE

."'...'..Q.'.Q...'.....'.......Q.'...'..................QQQ."

'THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

:«SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF
;:*AND GO TO SERRTYP ON ERROR

THE ERROR CALL

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR

s *SW15=1

teSW13=1
:*SW10=1

S *SW09=1
s*CALL

105037
104407

024254
001117

001202
001126

NNN

ARN

8R828~8
=
8%

001132

1%:

ERRO~

TYPE

INC

000002
155170
001000

001132
001130
155202

8IT

000177

001130

CMPB
BEQ

SuB

024254
177777

TSTB

024252

000004
024024
177766

000004
024252

177777

024252

024040
000004

cMP
BEQ
MOV
MOV

10008:
10018:

177777

024252

000001

024252

000001

177766
024254

1002%:

024254
020009

024256

155032

MOV
MOV
RTI
MOV

M
BEQ
BIT
BIC
MOVB
MOovB

00017/ 001130
024110
024114
024114
024122
024124

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

$ERROR: CLRB
CKSWR
7%:
INCB
BEQ
MOV
BIT
BEQ

001116
002000

(olelelelsle]

1003$:
1004%:

: ;ERROR=EMT AND N=ERROR ITEM NUMBER

IBSAVE

SERFLG
78

;:CLEAR THE ITEM BYTE SAVE LOCATION
S:TEST FOR CHANGE IN SOF T-SWR

::SET THE ERROR FLAG
S:DON'T LET THE FLAG
STSTNM,aDISPLAY ::DISPLAY TEST NUMBER
#81T10.aSWR
:BELL ON ERROR?
18

ERROR FLAG

:NO
= SKIP

LSBELL

*:RING BELL

SP;E :'E‘gfctPC

::GET ADDRESS OF ERROR INSTRUCTION

$ERTTL

@SERRPC,SITEMB

::COUNT THE NUMBER OF ERRORS

:;STRIP AND SAVE THE ERROR ITEM CODE

#BIT09.aSWR
10048

;:SEE IF LOOP ON ERROR IS SET
::BRANCH AROUND ROUTINE IF SO

1004$

::BRANCH AROUND ROUTINE IF IT IS

1003s

*:BRANCH IF SO
;:SEE IF CPSAVE HAS (PU ERR REG TIMEOUT INDICATION
*:BRANCH IF SO

#177,$1TEMB
IBSAVE

#-1,CPSAVE

1004$

::SEE IF THIS IS THE POWER FAIL CALL

:;SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE

ERRVEC,-(SP)
#10008 .ERRVEC

-:SAVE CONTENTS OF ERROR VECTOR
:-SETUP 'TRAP' RETURN ADDRESS

#-1, CPSAVE
#10018, (SP)

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

(SP)+,ERRVEC

;;RESTORE CONTENTS OF ERROR VECTOR

#-1,CPSAVE

10048

;;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
;:BRANCH IF SO
;;SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG
;:BRANCH IF OK

SITEMB. IBSAVE

::MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL

;%;gé.crsm

1004%

#BIT00, CPSAVE

#BIT00,177766
#177,$1TEMB

::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

-:CLEAR THE BIT FOUND SET

$:SET SITEMB TO SPECIAL POWER FAIL POINTER

CLRB

10048
IBSAVE

::BRANCH OVER IBSAVE CLEARING
;:CLEAR IBSAVE SO 2ND TIME THROUGH EXITS

BIT

#B1T13,3SWR

;:SKIP TYPEOUT IF SET

JSR

PC,SERRTYP

;:G0 TO USER ERROR ROUT INE

20%

::SKIP TYPEOUTS

|
!

|
|
|

|
|

CZRMTBO RMOS5/3/2 DR CMPT TST

ERROR HANDLER ROUTINE

024130
024134
024134
026142
024144
024152
0264156
024157
024160

104401

MACRO v04.00

024166
024170
024174

001207
000001

001232

001130
025150

024156
21%:
22%:
2%:

104407

001000

023544

105737

024254

3s:

A H

001200

022737
001001

001210
000002
000000
000000

154744

001124
001200

000000

024254

20%:

154760

032777
001402
013716
0C5737
001402
013716

18:72:15 PAGE 11-1

SEQ 0097

024254

026162

4-APR-81

000042

5%:

:
6%

TYPE

.SCRLF

CMPB
BNE
MOvVB
JSR
.BYTE
.BYTE
BR
TSTB
BNE
TST
BPL
HALT
CKSWR

#APTENV, SENV

BIT
BEQ
MoV
TST
BEQ
MOV

221709,QSUR

$ESCAPE, (SP)

;:FUDGE RETURN ADDRESS FOR ESCAPE

CMP
BNE
HALT

#SENDA
, @442
D
6%

::eggucu IF NO

TSTB

IBSAVE
7%

;:SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
::m BACK TO CALL ORIGINAL ERROR

0
0

::LOCATION TO SAVE CPU ERROR REG CONTENTS

BNE

RTI
: -WORD
CPSAVE
IBSAVE: .WORD

s sRUNNING IN APT MODE
*:NO,SKIP APT ERROR REPORT

PC,$ATYS

: ;REPORT FATAL ERROR TO APT

SITEMB,21$

0
¢
22%

IBSAVE

aSWR

*:SET ITEM NUMBER AS ERROR NUMBER
;;APT ERROR LOOP
;;SEE IF IBSAVE IS LOADED
;2BRANCH IF NOT = NO HALT ON PWR MON BIT ERROR
;:HALT ON ERROR
2:SKiP IF CONTINUE
;sHALT ON ERROR'
;;TEST FOR (HANGE

SLPERR, (SP)
gESCAPE

IN SOF T=SWR

;:LOOP ON ERROR SWITCH SET?
;:BR IF NO
;;FUDGE RETURN FOR LOOPING
;;CHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE

;;ACT=-11 AUTO-ACCEPT?

*:LOCATION TO SAVE ITEM BYTE

ZRMTBO RMO5/3/2 DR CMPT TST

RROR MESSAGE

TYPEOUT ROUTINE

MACRO v04.00

4-APR-81

D 8
18:12:15 PAGE 12
SEQ 0094

.SBTTL

ERROR MESSAGE TYPEOUT ROUTINE

t'Q...'..'.".'.t""'."..Q.l"t..."'."""t""."..'.'...

'THIS ROUTINE USES THE '‘ITEM CONTROL BYTE'' (SITEMB)

TO DETERMINE WHICH

;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE'' (SERRTR),
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
024256

024256
024262
024264
024266
024272

104401
010046
005000
153700
001004

001207

024274

013746

001132

024300
024302
024304
024310

$ERRTYP:

CLR

001130

BISB
BNE
MOV

104402

000437
122700

000177

1%:

024312
024320
024324
024326
024330
024332
024334
024336
024342
024346
024350
024352
024354
024360
024364
024366
024370
024372
024376
024400
024402
024404
024410
024412
024412
024414
024416
024420
024422
024426
024430

001216
024434

040

000

024434
024444
024526

024526
117
105

024560
127
123

001132

024252

024560

024574
1000%:

005362

024352

1001$:

2%:

001207
024370

3%:
4%:

001207

5%:
6%:

001207

7%:

TYPOC
BR
(MPB
BNE
MOV
MOV
BR
DEC
ASL
ASL
ASL
ADD
MOV
BEQ
TYPE
.WORD
TYPE
MoV
BEQ
TYPE
.WORD
TYPE
MOV
BNE
MoV
TYPE
RTS

MOV
TYPOC
TST

BEQ

024430

024574

TYPE
MOV

TYPE

.SCRLF

RO,=(SP)
RO

a#$I1TEMB,RO
1%

$ERRPC,~(SP)

6$
#177.RO

1000$

STESTN,PFTSTN

;2"'CARRIAGE RETURN'' & "LINE FEED''
;:SAVE RO
;:PICKUP THE ITEM INDEX

:;1F _ITEM NUMBER IS ZERO, JUST

::TYPE THE PC OF

THE ERROR

::SAVE SERRPC FOR TYPEOUT
: ERROR ADDRESS
560 TYPE=-OCTAL ASCII(ALL DIGITS)
::SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL
::BRANCH IF NOT
$:GET TEST NUMBER
: iMOVE POWER FAIL ERROR CALL TABLE TO RO
:BRANCH TO CALL ERROR
;ADJUST THE INDEX SO THAT IT WILL
:

#SERRTB,RO
(RO)+,2%

.SCRLF

(RO) +,48
5%

0
.SCRLF

(RO) ,RO
7%
(SP)+,RO

. SCRLF

WORK FOR THE ERROR TABLE

;:FORM TABLE POINTER

2:PICKUP ‘ERROR MESSAGE’’ POINTER
::SKIP TYPEOUT IF NO POINTER

;:TYPE THE ‘ERROR MESSAGE'’
;:"ERROR MESSAGE’'® POINTER GOES HERE
;2"'CARRJAGE RETURN'' & "LINE FEED''
;:PICKUP ‘DATA HEADER'' POINTER
;:SKIP TYPEOUT IF O
;:TYPE THE ‘DATA HEADER''

::"DATA HEADER'' POINTER GOES HERE
;2" 'CARRIAGE RETURN'' & "LINE FEED''
;:PICKUP ‘DATA TABLE'' POINTER
;:G0 TYPE THE DATA
;sRESTORE RO
;:"'CARRIJAGE RETURN'' & "LINE FEED'

2 sRETURN

(RO +,~(SP)

+:SAVE @(R0)+ FOR TYPEOUT

2:G0 TYPE--OCTAL ASCIICALL DIGITS)
2:1S THERE ANOTHER NUMBER?

3:BR IF NO

$:TYPE TWO(2) SPACES

BR
:.LOOP
8%:
/
LASCIZ
r
;. TWO(2) SPACES
.EVEN
PFECH:
PFECH1 ,PFECH2 ,PFECH3 ,PFECH4 ;;WORDS DEF INING TABLES BELOW
PFECH1: LASCIZ
?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET?
PFECHZ: .ASCIZ
?TESTNO
ERR PC
(CPUERREG?
.EVEN
PFECH3: .WORD
PFTSTN,$cRRPC, CPSAVE,O

C P4 RMTBO RMO5/3/2 DR CMPT TST
E R ROR MESSAGE TYPEOUT ROUT INE

(24570

0¢s574

000

000000

000

MACRO v04.00

4-APR-81

18:12:15 PAGE 12-1
SEQ 0095

000

PFECH4:

PFTSTN:

.BYTE

.WORD

0,0,0.0

;s CONTAINS TEST NUMBER FOR PF B]

ERROR

CZRMTBO RM0OS/3/2 DR (MPT

TYPE ROUT INE

TIST

MACRO v04.00 4-APR-81 1B:12:15 PAGE 1%
F

.SBTTL

SEQ

TYPE ROUTINE

.'.'.....Q.Q.tt'.'.""t"....'t...".'..t"'...."..'....'."'

'ROUTINE

TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.

:*THE ROUTINE

$*NOTE1:
S*NOTE2:

'NOTE3

WILL

INSERT A NUMBER OF

NULL

CHARACTERS AFTER A L INE

FEED.

SNULL CONTAINS THE CHARACTEP TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

'CALL

'1)
;*

024576

124602

(24604
024606
024610
024612
024616
024624
024626
024634
024636
024642
024646
024650
024656
024660
024662
024664
024666
024670
024674
024676

024702

024704
£24710
024712
024714
024716
024720
024724
024726
024732
024736
024740

024744
024750
024752
024756
124762

105737
100002
000000

000430
010046
017600
122737
001011
132737

001405
010037
004737
000000
132737
001003

001173

001232

000100

001233

024646
025140

112046

001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401
001207
105037
000755

004737
123726

001350
013746
105366
002770
004737
105337
000770

1%:

TYPE

001233

BPL
HALT
BR
MOV
MOV
CMPR
BNE
BITB

BEQ
61%:
62%:

2%:

000002

60%:
3%:

000011

4%:

000200

MOV
JSR
. WORD

025010
001172
001170

000001
025010
02512€

7$:

;;1S THERE A TERMINAL?
;:BR IF YES
JsHALT HERE IF NO TERMINAL
3$
s ;LEAVE
RO,=(SP)
2 :SAVE RO
a2(SP) ,RO
;;GET ADDRESS OF ASCIZ STRING
#APTENV
, SENV
:;RUNNING IN APT MODE
62%
:sNO,GO CHECK FOR APT CONSOLE
#APTSPOOL , SENVM 2 ;SPOOL MESSAGE TO APT
62%
;:NO,GO CHECK FOR CONSOLE
RO,61%
SC.SAYVS

2 ;SETUP MESSAGE ADDRESS FOR APT

MOV
ADD

(RO)+,~(SP)
4%
(SP)
+
(SP)+,R0
#2,(SP)

(MPB

#HT, (SP)

(MPB
BNE

#CRLF , (SP)

: ;BRANCH IF NOT <CRLF>

(SP)+

:sPOP_ <CR><LF> EQUIV
::TYPE A CR AND LF

$CHARCNT

;s CLEAR CHARACTER COUNT
;sGET NEXT CHARACTER
::GO TYPE THIS CHARACTER
221S IT TIME FOR FILLER CHARS.?
..I NO GO GET NEXT CHAR.
J2GET # OF FILLER CHARS. NEEDED
..Aw THE NULL CHAR.

BITB
BNE
MOVB
BNE
TST

RTI

BEQ

$CRLF

5%:
6%:

$TPFLG
18

;:SPOOL MESSAGE TO APT
2 ;MESSAGE ADDRESS
;;APT CONSOLE SUPPRESSED
;:YES,SKIP TYPE OUT
2 sPUSH CHARACTER TO BE TYPED ONTO STACK
J:BR IF IT ISN'T THE TERMINATOR
;:1F TERMINATOR POP IT OFF THE STACK
2 sRESTORE RO
;sADJUST RETURN PC
s sRETURN
;2BRANCH IF <HT>

TST
TYPE

025126

;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

ME SADR
TSTR

000002
000001

000040

USING A TRAP INSTRUCTION
TYPE
.ME SADR

CLRB
BR

JSR
CMPB
BNE
MOV

DECB

BLT
JSR
DECB
BR

#APTCSUP, SENVM

60%

PC,$TYPEC

SFILLC,(SP)+

2%
SNULL,=(SP)
1(SP)

PC,STYPEC

$CHARCNT

;DOES
A NULL NEED TO BE TYPED?
1:BR IF NO=-=-GO POP THE NULL OFF OF STACK
..Go TYPE A NUL

2 +D0O NOT (OLNT AS A COUNT
;.LO0P

009¢

CZRMTBO RMOS5/3/2 DR CMPT

TYPE

ROUTINE

TST

MACRO Vv04.00

4-APR-B1

18:12:15 PAGE

13-1

;HORIZONTAL TAB PROCESSOR
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

112716

004737
132737

001372
005726
000724
105777
100022

017746
042716
122716

001012

105777
100375
117716

042716
122716

001366

000040
025010
000007

8%:

025126

STYPEC:

154144

MOVR

JER
BITB
BNE
TST
B8R
TSTB

BPL
MOV
BIC

154140
177600
000023
154120

#7 . $CHARCNT

9%
(SP)+

as$TKS
108
a$TKB, - (SP)

#177600, (SP)

#SXOFF
, (SP)

102%:
10%:

154076

154070

000002

025126
000002

1%:

TSTB

BPL
MOVB
(MPB
BNE
CLRB
BR
CMPB

BEQ
INCB

$CHARCN
: ,WORD
T
$TYPEX: RTS

s sREPLACE TAB WITH SPACE

;:TYPE A SPACE

s ;BRANCH [F NOT AT
;. TAB STOF

s :POP SPACE OFF STACK
2:GET NEXT CHARACTER
;;CHAR IN KYBD BUFFER?
;:BR IF NOT
::GET CHAR
;:STRIP EXTRANEOUS BITS
;:WAS CHAR XOFF
;:BR IF NOT
;:WAIT FOR CHAR

#SXON, (SP)

1018

;:GET CHAR
;:STRIP IT
;J:WAS IT XON?
;:BR IF NOT

(SP)+

;:FIX STACK

as$TPS
108
2(SP) ,a$TPB

;sWAIT UNTIL PRINTER IS RFADY

#177600, (SP)

000021

000012

(SP)

PC,STYPEC

as$TKS
101$
A$TKB, (SP)

154114
177600

000002
000015

£,

102%

101%:

005726
105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

9%:

ng.?(SP)

$CHARCNT
STYPEX

#LF ,2(SP)
STYPEX
(PC)+

;:LOAD CHAR TO BE TYPED INTO DATA REG.
;:1S CHARACTER A CARRIAGE RETURN?
; sBRANCH IF NO
::Ei?;-CLEAR CHARACTER COUNT
2:1S CHARACTER A LINE FEED?
;;BRANCH IF YES
;s COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

SEC 0097

CZRMTBO RMOS/3/2 DR (MPT

APT

TST

COMMUNICATIONS ROUTINE

025132
025140
025146
025150
025156
025156
025160

MACRO v(4.00

.SBTTL

APT COMMUNICATIONS ROUTINE

2 8 AR

025376
025374

$ATY1:

000001

025376

$ATY4:
$SATYC:

$ATY3:

025374
000001

001232

000100

001233
000004

1%:

001226

2%:

001226

001230
000004
000004
000002
177776
024576
105737
001416

005737
001413
005737
001375
017637
062766
005237
105037
105037
105037

025375
025376

012601
012600
000207
000
000
000
000200
000001
000100
000040

001212

025306
000004

3%:

025376

4%:

108:

001232

MOVB

MOVB
BR
MOVB
MOV
MOV
TSTB
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD
7ST
BNE
MOV

TSTB

BNE
SuB
ASR
MOV
MOV
BR

MOV

ADD
MOV
JSR
,WORD

TSTB
BEQ
TST

11%:

001212

000004
000002
001212
025376
025375
025374

H
8
18:12:15 PAGE 14

SEQ 0098

000001
000001

000004
000002
001212

4-APR-81

001214
000004
12%:

$MFLG:
$SLFLG:
$FFLG:

BEQ
TST
BNE

MOV
ADD
INC
CLRB
CLRB
CLRB
MOV
MOV
RTS
.BYTE

.BYTE
.EVEN
APTSIZE = 200
APTENV
= 001
APTSPOOL= 100
APTCSUP = 040

R 2223222222222

#1,8FFLG
#1,8MFLG
SATY(
” ,$FFLG

;.70 REPORT FATAL ERROR
;:TO TYPE A MESSAGE

RO,=(SP)
R1,-(SP)
SMFLG

;:PUSH RO ON STACK
;:PUSH R1 ON STACK
;:SHOULD TYPE A MESSAGE?
;:1F NOT: BR
; ;OPERATING UNDER APT?

HAPTENV, SENV

;.70 ONLY REPORT FATAL ERROR

3%
;:1F NOT:
BR
géPTSPOOL LSENUM ;;SHOULD SPOOL MESSAGES?
84(S?) RO
#2,4(SP)
?gSGTYPE

;21F NOT:

;2I1F NOT:

WAIT

;iGET MESSAGE ADDR.
;:BUMP RETURN ADDR.
;;SEE IF DONE W/ LAST XMISSION?

RO, SMSGAD
(RO)+

;;PUT ADDR IN MAILBOX
;;FIND END OF MESSAGE

$MSGAD ,RO
RO
RO, SMSGLGT
gg.SHSGTYPE

;.GET MESSAGE LNGTH IN WORDS

4 (SP) .48
#2,4(SP)

;:PUT MSG ADDR IN JSR L INKAGE

Sc.mpe

;2CALL TYPE MACRO

;:SUB START OF MESSAGE

;;PUT LENGTH IN MAILBOX
;:TELL APT TO TAKE MSG.

- -BUMP RETURN ADDRESS

177776.,~(SP)

::PUSH 177776 ON STACK

$FFLG
12%
$ENV
12%
$MSGTYPE

2 :SHOULD REPORT FATAL ERROR?
BR
;:IF NOT:
s sRUNNING UNDER APT?

118
a4 (SP) ,SFATAL
#2,4(SP)
SMSGTYPE
$FFLG
SLFLG
SMFLG
(SP) +,R1
(SP)+,RO

0
0
0

;:IF NOT:

22IF NOT:

WAIT

2 ;FINISHED LAST MESSAGE?

2;GET ERROR #
;+BUMP RETURN ADDR.
;+sTELL APT TO TAKE ERROR
+:CLEAR FATAL FLAG
;;CLEAR LOG FLAG
s sCLEAR MESSAGE FLAG
;:POP STACK INTO R1

;:POP STACK INTO RO

2 JRETURN

. sMESSG. FLAG
;.LOG FLAG
s sFATAL FLAG

CZRMTBO RMOS/3/2 DR CMPT TST

POWER DOWN AND UP ROUTINES

MACRO Vv04.00

4-APR-81

025552
000340

010546
017746
010637
012737
000000
000776

000024
000026

025544

025550
025552
025554
025556
025560

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401

025560

POWER DOWN AND UP ROUTINES
E

025552
025556
025556
025556

000024

153452

025400
000340

000020
023616

012

000024
000026
000002

AR AR

$ILLUP: HALT
BR
$SAVRG: 0
$POWER: LASCIZ
.EVEN

@SWR,=(SP)

;:PUSH a5.% ON STACK

RS,=(SP)

SP,$SAVR6

;;SET FOR FAST UP

;:PRIO:7
2 sPUSH RO
;:PUSH R1
;:PUSH R2
;:PUSH R3
;:PUSH R4

ON
ON
ON
ON
ON

STACK
STACK
STACK
STACK
STACK

;sPUSH R5 ON STACK
;;SAVE SP

#SPWRUP ,@#PWRVEC ;;SET UP VECTOR

*POWER UP ROUTINE

$PWRUP: MOV
MOV
CLR
1%:
INC
BNE
MOv
MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TYPE
. WORD
BIC
CLR

#340,9#PWRVEC+2
RO,=(SP)
R1,=(SP)
R%.-(SP)
R3,-(SP)
R4 ,=(SP)

R AR A AR AR AR A AR

RTI

120

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
HALT
BR

153520

025556
025452

*POWER DOWN ROUTINE
#SILLUP @#PWRVEC
$PWRDN: MOV

025452
025460
025464
025470
025474
025476
025502
025504
025506
025510
025512
025514
025516
025524
025532
025534
025536

SEQ 0099
.SBTTL

025400
025406
025414
025416
025420
025422
025424
025426
025430
025434
025440
025446
025450

18:12:15 PAGE

; sHANG UP
NP AR AR AR

AR A AN

A AR A AN I AN ARAR R

AN,

#SILLUP,@#PWRVEC ;;SET FOR FAST DOWN

SP
$SAVR6,
$SAVR6
$SAVR6
1%

(SP)+,aSWR
(SP)
+ RS
(SP)+ R4

(SP)+,R3
(SP)+ ,R2

;:GET SP
J:WAIT LOOP FOR THE TTY
J:WAIT FOR THE INC
;:0F WORD
;;POP STACK INTO aSWR
;:POP STACK INTO RS
;;POP STACK INTO R4
;;POP STACK INTO R3

;;POP STACK INTO RZ2

;;POP STACK INTO R1
;:POP STACK INTO RO
#SPWRDN ,a#PWRVEC ;;SET UP THE POWER DOWN VECTOR
(SP)+ ,R1
(SP) +,R0

#340,#PWRVEC+?2 ;:PRIO:7

$POWER
#20,2(SP)
$TBIT

.=2
<15><12>' POWER"'

sREPORT THE POWER FAILURE
. ;POWER FAIL MESSAGE POINTER

;:CLEAR "T'" BIT
ssCLEAR THE 'T"' BIT FLAG

;:THE POWER UP SEQUENCE WAS STARTED

;; BEFORE THE POWER DOWN WAS COMPLETE
. sPUT THE SP HERE

CZRMTBO RM05/3/2 DR CMPT

BINARY

TO OCTAL

(ASCiI)

TST

AND TYPE

MACRO V04.00

4-APR-81

J
18:12:15 PAGE

8
16
SEQ 0100

.SBTTL

BINARY TO OCTAL

(ASCIil) AND TYPE

tttttt'.!ifi'lt.'.'.""'."ttt"'.t'.'.ttt"ttlt'tt.tlt""'t..

tTHIS ROUTINE

IS USED

TO CHANGE A

16-BIT BINARY NUMBER

TO A &-DIGIT

s*OCTAL (ASCII) NUMBER AND TYPE 1Y,
:*$TYPOS--~ENTER HERE TO SETUP SUPFRESS ZEROS AND NUMBER OF
s*CALL:

MOV

NUM,
= (SP)

o
ot

.BYTE
BYTE

N
M

TYPOS

; :NUMBER TO BE TYPED
*:CALL FOR TYPEOUT

28
.!'
. w

;*$TYPON====ENTER HERE
;*$TYPOS OR $TYPOC
s*CALL:

MOV

TYPON

DIGITS TO TYPE

.-,-z-1 (r)g 3 FOR NUMBER OF DIGITS TO TYPE

;1=TYPE LEADING ZEROS
$%0=SUPPRESS LEADING ZEROS

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

NUM, = (SP)

;;NUMBER TO BE TYPED
;:CALL FOR TYPEOUT

'STYPOC---ENTER HERE FOR TYPECUT OF A 16 BIT NUMBER
s*CALL:

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
925712
025716
025720
025724
025726
025730
025732

000000
000001
026015
000002
000001
000006
000005

026013

026013
026015
026012

TYPOC

$TYPOS: MOV

MOVB

MOVB
ADD
BR

$TYPOC: MOVB
MOVB
$TYPON: MOVB

MOV
MOV
MOV
MOvVB
NEG
ADD
MOvVB
MOVB
MOV

026015
000006
026014
026013
00012

1%:

2%:

026014

MOV

3%:

(LR
ROL

a(SP) ,-(SP)

;:PICKUP THE MODE
;:LOAD ZERO FILL SWITCH
;sNUMBER OF DIGITS TO TYPE
; ;ADJUST RETURN ADDRESS

1(SP) ,$0FILL

(SP) +,$0OMODE
+1

#2,(SP)
$TYPON

#1,80FILL
#6,30MODE
+1
#5,80CNT

R3,-(SP)
R4 ,-(SP)
R5,-(SP)
$OMODE +1,R4
R4
#6.R4
R4 , SOMODE
$OF ILL R4
12(SP) ,RS
R3
RS

;2sSET THE ZERO FILL SWITCH
;:SET FOR SIX(6) DIGITS
;:SET THE ITERATION COUNT

s :SAVE R3
;:SAVE R4
;sSAVE RS

;;GET THE NUMBER OF DIGITS TO TYPE

;sSUBTRACT IT FOR MAX. ALLOWED
;2SAVE IT FOR USE

;;GET THE ZERO FiLL SWITCH
;;PICKUP THE

INPUT NUMBER

;:CLEAR THE OUTPUT WORD
: ;ROTATE MSB INTO *'C**
..GO DO MSB
;:FORM THIS DIGIT

RS
RS
RS

ROL
DECB

R3
$OMODE

;;GET LSB OF THIS DIGIT

J2TEST FOR O
2 sSUPPRESS THIS 0?
;:BR [F YES
;:DON'T SUPPRESS ANYMORE Q'S

MOV

TST

4%:

;;NUMBER TO BE TYPED
;:CALL FOR TYPEOUT

ROL
ROL
ROL

BPL
BIC
BNE

177770

NUM, - (SP)

BEQ
INC

R5.R3

7%
#177770,R3
R4

;sTYPE THIS DIGIT?

;sBR IF NO
::GET RID OF JUNK

'
|

|
|

CZRMTBO RM0S5/3/2 DR CMPT TST

BINARY

TO OCTAL

(ASCII)

AND

025734

052703
052703

000060
000040
026010

025740
025744
025750
025754
025760
025762
025764

025766
025770
025772
025774
025776

110337
104401
105337

003347
002402
005204
000744

TYPE

MACRO V04.00

5%:

026010
026012

7%:

6%:

012605

012604
012603

000062

000004

8%:

4-APR-81

K 8
18:12:15 PAGE 16~1

8IS
BIS
MovB
TYPE
DECB
BGT
BLT
INC
BR
MOV
MOV
MOV,
MOV
MOV

#'0,R3
#'
,R3

.BYTE

eleolelols)

RTI

$OCNT:
$OFILL: .BYTE
: .WORD
$OMODE

R3,8%

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

2(SP) ,4(SP)
(SP)+,(SP)

;sMAKE THIS DIGIT ASCII
:MAKE ASCII IF NOT ALREADY
;:SAVE FOR _TYPING
:.G0 TYPE THIS DIGIT
;;COUNT BY 1
;:BR IF MORE TO DO
::BR _IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK
;:G0 DO THE LAST DIGIT
;;RESTORE RS
; ;RESTORE R4

;;RESTORE R3
;:SET THE STACK FOR RETURNING
; sRETURN
;;STORAGE FOR ASCII DIGIT
;s TERMINATOR FOR TYPE ROUTINE
;;O0CTAL DIGIT COUNTER
;sZERO FILL SWITCH
;JNUMBER OF DIGITS TO TYPE

SEQ 0101

)89

|
'

CZRMTBO RM0S5/3/2 DR CMPT TST
MACRO V04.00
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

4-APR-81

.SBTTL

18:12:15 PAGE

SEQ 0102

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

AR AR AR R AR R AR A AR AR ARl
s*THIS ROUTINE

]

IS USED TO CHANGE A 16~BIT BINARY NUMBER TO A S5-DIGIT

s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHE THER THE
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

;t?fiftACED WITH SPACES.

026016
026016
026020
026022
026024
026026
026030
026034
026040
026042
026044
026052

005405
112766
005000

000055

026060

112723

000040

026066 016001
026072 160105
026074 002402

026222

026054

026064

000001

1$:

012703 026232
005002

026076
026100

005202
000774

026104

005702

026110

105716

026114

106316

2s:

3$:

026102 060105

4$:

026106 001002

026112

026116
026120

5%:

000001

052702
110223

000040

026142

020027

000010

026150

003002

026156

105726

026132
026136

026140

052702

005720

026146 002746
026152
026154

026160

000060

177777

026162
026170

116663
105013

026200

012601

026172 012605
026174 012603
026176 012602

68:

7%:

;:PUSH RO ON STACK
*:PUSH R1 ON STACK
*:PUSH R2 ON STACK
*:PUSH R3 ON STACK
*:PUSH RS ON STACK
::SET BLANK SWITCH AND SIGN
*:GET THE INPUT NUMBER
Y:BR IF INPUT IS POS.

MOV

#$DBLK ,R3

*:SETUP THE OUTPUT POINTER

CLR

NEG
MOVB
CLR

MOVB

MOV
sus
BLT

INC
BR

ADD
ST

177777

177776

98 :

#' ,(R%)+

$DTBL(RO),R1
R1.RS
X
R2
3s

R1.R5
R2

(SP)

BCC

BIS

#'0.R2

ASLB

MOVB
BIS
MOVB

(SP)

*:CLEAR THE BCD NUMBER

::GET THE CONSTANT
*:FORM THIS BCD DIGIT
$:BR IF DONE

: 1 INCREASE THE BCD DIGIT BY 1

;;ADD BACK THE CONSTANT
*:CHECK IF BCD DIGIT=0

SIEALL THROUGH IF 0

*:STILL DOING LEADING 0°S?

2:BR IF YES
iMSD?

::BR IF NO

*IMAKE IT A SPACE IF NOT ALREADY A DIGIT
*:PUT THIS CHARACTER IN THE OUTPUT BUFFER

*:MAKE THE BCD DIGIT ASCII

(RO) +

$:JUST INCREMENTING

1:GO DO THE NEXT DIGIT

MOV
BR

RS,R2
68

BPL

MOV
MOV
MOV

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

MOV

*:SET THE FIRST CHARACTER TO A BLANK

#' .R2
R2,(R3)+

BGT

MOVB
(LRB

“IMAKE THE BINARY NUMBER POS.
S:MAKE THE ASCI] NUMBER NEG.
*:2ERO THE CONSTANTS INDEX

::YES--SET THE SIGN

RO.#10

TSTB

;:PUT THE BINARY NUMBER ON THE STACK

1:GO TO THE ROUTINE

1(SP),-1(R3)

BLT
8s:

RS
#'<,1(SP)
RO

BM]

010502
000764

100003

RO,=(SP)
R1.=(SP)
R%.-(SP)
R3.=(SP)
R5.=(SP)
#20200,-(SP)
20(SP) .RS
1$

TSTB

116663

. 026126

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPL

BNE

100407

103003

NUM, = (SP)

TYPDS

$TYPDS:

010046
010146
010246
010346
010546
012746 020200
016605 000020
100004

MOV

(SP)+

*:CHECK THE TABLE INDEX
1360 TO EXIT

*:GET THE LSD
1360 CHANGE TO ASCII

*:WAS THE LSD THE FIRST NON-ZEROQ?

*:BR IF NO

=1(SP),=-2(R3)
(R3)

::YES==SET THE SIGN FOR TYPING
*:SET THE TERMINATOR

(SP)+,R1

::POP STACK INTO R1

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

CZRMTBO RM0S/3/2 DR (MPT TST

MACRO v04.00 4-APR-81 18:12:15 PAGE 19-1
M

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

026202
026204
026210
026216
026222
026224
026226
026230
026232

012600
104401
016666
012616
00000 2
023420
001750
000144
000012

(026232
000002

MOv

(SP)+ RO

::POP STACK INTO RO

MOV

2(SP),4(SP)

Y:ADJUST THE STACK

TYPE

000004

MOV
:
$DTBL

$DBLK:

SEQ 0103

RTI

10000.
1000.
100.
10.
BLKW

$DBLK

(SP)+. (SP)

“NOW TYPE THE NUMBER

;;RETURN TO USER

CZRMTBO RM0S/3/2 DR CMPT TST
INPUT ROUTINE

4-APR-81

N 8
18:12:15 PAGE 18
SEQ 0104

.SBTTL
AR

"ENABL

TTY INPUT ROUTINE
AR ARl

026242
026250
026252
026256
026260
026264
026270
026274
026276
026304
026306
026312
026316
026322
026324
026330
026332
026334
026340

022737
001074
105777
100071
117746

042716
022726
001062
123727
001456

000176
152702

001150
026661
026666
000176

104401

026677

005046

105777

152620

117746
042716

152614
177600

026352
026356
026360
026364
026370

021627
001005
104401
062706
000757

000025

026372
026376
026400
026404
026406
026414
026420
026424
026432
026434
026442
026444
026450
026454

021627
001022
005766
001403
016677
062706

026342
026346

100375

AR AR

R A AR AR A A AR

2222222223

AN R AN RN AR AR

AR AR RS

s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
J*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP CALL
: *WHEN OPERATING IN TTY FLAG MODE.
#SWREG, SWR
$CKSWR: CMP
;.15 THE SOFT~SWR SELECTED?
15%
BNE
; JBRANCH IF NO
TSTB
asTKs
;:CHAR THEREZ?
BPL
MovB
BIC
CMP
BNE
CMPB

152676
177600
000007

104401
104401

013746
104402

001154

LSB

SRR AR AN A A AR AR

000001

BEQ

$GTSWR:

19%:

7$:

TYPE
TYPE
MOV
TYPOC
TYPE

CLR
CLR
1STB
BPL

15$

a$TKB, - (SP)

#2C177, (SP)
#7,(SP)+
158

#1
SAUTOB,
15%

.SCNTLG

. SMSWR
SWREG,~(SP)

. SMNEW

=(SP)
-(SP)

;s1F NO, DON'T WAIT AROUND

;:SAVE THE CHAR

;:STRIP=0OFF THE ASCII
;218 IT A CONTROL G?

;iNO, RETUMN TO USER
;;ARE WE RUNNING IN AUTO-MODE?

. sBRANCH IF YES

;;ECHO THE CONTROL-G (*G)
;:TYPE CURRENT CONTENTS
5 :SAVE SWREG FOR TYPEOUT
;G0 TYPE--OCTAL ASCIICALL DIGITS)
; :PROMPT FOR NEW SWR
;;CLEAR COUNTER
;:THE NEW SWR

a$TKS
7%

;:CHAR THERE?
1F NOT TRY AGAIN
;s

MOVB
BIC

as$TKB, - (SP)

;:PICK UP CHAR
;:MAKE IT 7-BIT ASCII

9% :

026654
000006

cmMP
BNE

(SP) ,#25
108

208:

ADD

231S IT A CONTROL-U?
. sBRANCH IF NOT
;:YES, ECHO CONTROL-U (*U)
;s IGNORE PREVIOUS INPUT

000015

108 :

#-C177.(SP)

001003
012777

000002

004737
021627
002420

000100

152516

000001

—_——

152540

000002
000006
001207
001151

025010
000060

TYPE

LSCNTLU

;:LET'S TRY IT AGAIN

CMP
BNE

;IS IT A <CR>?

;JBRANCH IF NO
JoYES, IS IT THE FIRST CHAR?
; ;BRANCH IF YES
. :SAVE NEW SWR
;. CLEAR UP STACK

TST

P-

104401
123727

000004

—d

TTY

MACRO V04.00

(o 2%,
AN

191

]

BEQ
MOV

ADD
TYPE
CMPB
BNE
MOV
RTI
JSR
C(MP

BLT

,
$INTAG#1
15%

;;ECHO <CR> AND <LF>

PC,$TYPEC

:JRE-ENABLE TTY KBD INTERRUPTS?
;sBRANCH IF NOT
;JRE-ENABLE TTY KBD INTERRUPTS
; ;RETURN
. JECHO (CHAR

18%

;JBRANCH IF YES

#100,3$7TKS

(SP)
, 460

;:CHAR < 0?

CZIRM T80 RMOS/3/2 DR (MPT TST
TTY INPUT ROUT INE

MACRO v04.00

8 9
4-APR-81 18:12:15 PAGE 18-1
SEQ 0105

G00067

BGT

000060
000002

17%:

177776

026522

000720

001206

18%:
.DSABL

;:CHAR > 7?

;sBRANCH IF YES

17%

2sBRANCH IF YES

BIC
ST

#60, (SP)+
2(SP)

ASL
ASL
ASL
INC

(5P)
(5P)
(SP)
2(sP)

SIND, SHIFT PRESENT
::
CHAR OVER TO MAKE
::
ROOM FOR NEW ONE.
::KEEP COUNT OF CHAR

78
,SQUES
208

S:GET THE NEXT ONE
STYPE 2<CR><LF>
::SIMULATE CONTROL=-U

BEQ

000002

(SP) ,#67

183

BIS

B8R
TYPE
BR
LSB

=2.5P), (SP)

*:STRIP-OFF ASCII
::1S THIS THE FIRST CHAR

S:SET IN NEW CHAR

t
.'."ttttt't.tttt'ttitt'lfi,t"ttt.tt.......t.l.l'l.Qtt"..'l'l.".l'

:twf ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

026524
026526

011646
016666

000004

000002

026550

042766

117766

152414

000004

000023

026566

026627
001013
105777

152366

117746

152362

026534
026540
026542

026556
026564
026572

026574

056600

026604
026610
026612
026614
026622
026624

105777
100375

100375

042716

000004

TSTB
BPL

042766

000040

000004

136
136
015
040

125
107
012
040

015
015
123
116

a$TKS

a$TKB,-(SP)

#*C177,(SP)

S:WAIT FOR
;;A CHARACTER
“:READ THE TTY

;;WAIT FOR A CHARACTER

*:GET CHARACTER

“:MAKE IT 7-BIT ASCII

(SP)+,#21
2s
18
4(SP) ,#SXON
18
4(SP) ,#140

::IS IT A CONTROL-Q?
:;IF NOT DISCARD IT
;:YES, RESUME
2:1S IT A RANDOM XON?
S:BRANCH IF YES
::IS IT UPPER CASE?

CMP

4(SP) ,.#175

::IS IT A SPECIAL CHAR?

BIC

#40.,4(SP)

S:MAKE IT UPPER CASE

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/U/<15><12>
::CONTROL 'V’
/4G/<15><12>
::CONTROL 'G'
<15><12>/SWR = /
/ NEW = /

BGT

SCNTLU:
S$CNTLG:
SMSWR:
SMNEW:

::GET RID OF JUNK IF ANY

;:LOOP UNTIL ITS THERE

BLT

4$:

#AC<177>,4(SP)

TSTB

BPL

000175

000002

::PUSH DOWN THE PC
::SAVE THE PS

*:1S IT A CONTROL-S?
Z:BRANCH IF NO

000004

3$:

(SP) ,~(SP)
4(SP) ,2(SP)

4(SP) ,#23
3s

. BIC

000021

::WITH PARITY BIT STRIPPED OFF

cMP
BNE

MOVB

177600

:;CHARACTER IS ON THE STACK

MOVB

BIC

2s:

;:INPUT A SINGLE CHARACTER FROM THE TTY

as$TkS
1
@STKB,4(SP)

026627
003003

026654
026661
026666
026677

1%:

000140

026642

026652

SRDCHR: MOV
MOV

cMP
BNE
BR
cMP
BEQ
CMP

002407

026644

177600

RETURN HERE

022627 200021
001366
000750
026627 000004
001744
026627 000004

026632

026634

152420

RDCHR

RTI

::BRANCH IF YES

$:BRANCH IF YES

::G0 BACK TO USER

CZRMTBO RM0S5/3/2 DR CMPT TST

SAVE AND RESTORE RO-R5 ROUTINES

MACRO v04.00

4-APR-B1

c 9
18:12:15 PAGE 19
SEQ 01C6

.SBTTL

SAVE AND RESTORE RO-RS ROUTINES

".-I'....'...'.Q'.Q"".'l.'......"...Q...Q'..Q......'QQ'."'

'SAVE RO-R5

ieCALL:

SAVREG

.'UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
,tYOP--(flb)

% 42===(+18)
;% +4=---RS
e +6==-R4
;* +8---R3
; *+10---R2

;*+12-=--R1
;%+14=-=-<R0

026710
026710
026712
026714
026716
026720
026722

026740
026744

010046
010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

$SAVREG:

RO,=(SP)
R1,-(SP)
RZ,=(SP)

;:PUSH RO ON STACK

R4 ,~(SP)

;sPUSH R4 ON STACK
;:PUSH R5 ON STACK

R3,-(SP)

R5,-(SP)

000022

22(SP) ,~(SP)
22(SP) ,-(SP)
22(SP) ,~(SP)

00022
000022

RTI

22(SP) ,-(SP)

;:PUSH R1 ON STACK
;;PUSH R2 ON STACK

;:PUSH R3 ON STACK
;:SAVE
::SAVE
;:SAVE
.sSAVE

PS
PC
PS
PC

OF
OF
OF
OF

MAIN FLOW
MAIN FLOW
CALL
CALL

;*RESTORE RO-R5
'CALL

026746
026746
026752
026756

$RESREG

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
(SP)+ ,Ré&
(SP;+,R3
(SP)+,R2
(SP)
+ ,R1
(SP)+,RO

;sRESTORE PC OF CALL

;:RESTORE PS OF CALL
;:RESTORE PC OF MAIN FLOW
;;RESTOREPS OF MAIN FLOW
;:POP STACK INTO RS
;:POP STACK INTO R4
;;POP STACK INTO R3
. ;POP STACK INTO R?2
2:POP STACK INTO R1
;:POP STACK INTO RO

|
|

CZRMTBO RM0S/3/2 DR CMPT TST

4-APR-81
CONVERT ROUTINE

MACRO v04.00

DOUBIE LENGTH BINARY TO DECIMAL ASCII

D 9
18:12:15 PAGE 20

SEQ 0107

.SBTTL
AR

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE
A

R A

AR RN AR RN

AR RN AR AN R AR AR AN RN AR

AN AN

'THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
'gggi??bf(AS(“) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE
'

s*CALL
‘.

. w

027004
027006
027012
027016
027022
027024
027026
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

027102

005602

161502

002402

SAVREG
MOV
MOV

#PNTR, = (SP)

PC,a#$DB2D

3%:

000050

005327
000000
001357

4%:

000207
145000
035632

:
$TNPWR

105020
104413

;;POINTER TO LOW WORD OF BINARY NUMBEK
;:THE FIRST ADDRESS OF ASCIZ
;:1S ON THE STACK

2(SP) ,R2

;:SAVE REGISTERS
;;PICKUP THE DATA POINTER

RO,2(SP)
(R2)+,R1

;;PICKUP THE BINARY NUMBER

#SDECVL ,RO

(R2) +,R2

#10. ,4$
#STNPUWR ,RG
cgrupunoz.ns
R
(R4) ,R1
R2
(RS) ,R2

33
R3

005203
000772
062401

002765
113200
000230
041100
000017

MOV
JSR
RETURN

L. MQV
MOV
MOV
MOV
MOV
MOV

161401

005502
062402
022525
052703
110320

;;GET ADDRESS OF “‘SDECVL' STRING
;;PUT ADDRESS OF ASCIZ STRING ON STACK
;:SET UP TO DO 10 CONVERSIONS
;;ADDRESS OF TEN POWER

;:CLEAR PARTIAL
::SUBTRACT TEN POWER

;:BR IF TEN POWER TO LARGE
;:ADD 1 TO PARTIAL
;. LOOP
;JRESTORE SUBTRACTED VALUE

#'0,73%

;:MOVE TO NEXT TEN POWER
;s CHANGE PARTIAL TO ASCII

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

R3,(RO)+
(PC)*
0
1
(RO)+

:2SAVE IT
s ;DONE?

;BR IF NO

..TERHINATOR
;sRESTORE REGISTERS
2 sRETURN
::1.0E09

;:1.0E08

::1.0E07
::1.0E06

103240

;:1.0E0S5

023420

;:1.0E04

001750

::1.0€03

000144

::1.0E02

.
'

!
!
i

CZRMTBO RMOS/3/2 DR CMPT TST

MACRO v04.00

DOUBLE LENGTH BINARY TO DECIMAL ASCII

027154

027156
027160
027162

027164

4-APR-81

CONVERT ROUTINE

000012

000000
000001
000000

E 9
18:12:15 PAGE 20-1

$DECVL:

0
1
0

.BLkB

2:1.0€01
;:1.0€00

12.

s RESERVE STORAGE FOR ASCIZ STRING

SEG 0108

CZRMTBO RMOS5/3/2 DR (MPT TST
MACRO v04.00
4-APR-81
DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE

.SBTTL

R
18:12:15 PAGE

SEQ 0109

DOUBLE LENGTH BINARY TO OCTAL ASCII

CONVERT RCUTINE

LA ALAALALLLALLASAAAS
A
A A A Al
R
e
e A e
T

-THIS ROUTINE WILL

CONVERT A 32-BIT UNSIGNED BINARY NUMBER

s*UNSIGNED OCTAL ASCIZ NUMBER.

t=CALL

e
‘e
027200

104412

027202
027206
027212
027216
027222
027224

016601
012705
012704
012703
(12100
012101

027230

110245

027226

027232

000002
027317
000014
177770

005002

1%:

010002

027234
027236

005304
003007

027242

005205

027252

000207

027262

006001

027272

040302

$DB20:

MOV

JSR
RE TURN
SAVREG

#PNTR, = (SP)
PC,a#$DR20

MOV
MOV
MOV
MOV
MOV
MOV

2(sP) ,R1
#30CTVL+13.,RS
#12. R4
#°C7.R3
(R1)+,R0
(R1)+.R1

MOVB

R2.-(RS)

CLR

MOV
DEC
BGT

RO.R2
R4
3s

027240 001405

BEQ

027244 010566 000002
027250 104413

MOV
RS,2(SP)
RESREG

027254 006203
027256 006001
027260 006000

28:
38:

027274
027300

027302

062702
000753

RTS

ASR
ROR
ROR

R3
R
ao

ROR
ROR
ROR

no
R1
RO

ADD
BR

#°0.R2
18

ROR

027264 006000
027266 006001
027270 006000
000960

INC

BIC

$OCTVL: .BLKB

TO AN

;;POINTER 10 LOW WORD OF BINARY NUMBER

*:CALL THE ROUTINE
22THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK
23SAVE ALL REGISTERS

;:PICKUP THE POINTER TO . 0W WORD
::POINTER TO DATA TABLE
;D0 ELEVEN CHARACTERS
*MASK
*:LOWER WORD
S:HIGH WORD
*:TERMINATOR

“:PUT CHARACTER IN DATA TABLE

P:GET THIS DIGIT

::COUNT THIS CHARACTER
“:BR IF NOT THE LAST DIGIT

“:BR IF IT IS THE LAST DIGIT

::ALL DIGITS DONE-ADJUST POINTER FOR FIRST

“:ASCIZ CHAR. & PUT IT ON THE STACK
::RESTORE ALL REGISTERS
“IRETURN TO USER

©:POSITION THE MASK FOR THE LAST DIGIT
::POSITION THE BINARY NUMBER FOR
i
THE NEXT OCTAL DIGIT

R3,R2

::MASK OUT ALL JUNK

14,

; sRESERVE DATA TABLE

*:MAKE THIS CHAR. ASCII
1360 PUT IT IN THE DATA TABLE

CZRMTBO RM0S5/3/2 DR CMPT

SCOPE

HANDLER RQOUT INE

TST

MACRO v04.00

4-APR-B1

JSBTTL
AR

18:12:15 PAGE

SEQ 0110

SCOPE HANDLER RCUTINE
R

s*THIS ROUTINE

CONTROLS

THE LOOPING OF

2222222222222

SUBTESTS.,

IT WILL

22%3

INCREMENT

;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
J*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

J*SW14=1
J*SW11= 1

|
|

L *SW09=1
L *SWO8=1

s=CALL
i*

|
.

LOOP ON TEST
INHIBIT ITERATIONS

027320

$SCOPE :

027320
027322

104407
032777

040000

gsgggg

000137

027730

027336

000416

027340
027344
027352
027356
027362
027364
027366
027372

013746
012737
005737
012637
000544
022626
012637
000504

000004
027364
177060
000004

027374

032777

000400

151552

151544

001116

027330

027374

027402
027404

027412

027414

027420

027422

001402

001404
127737

001546

001117

022737

177777

000004

027474

022737

177777

024252

027504

032737

000001

024252

027514

042737

000001

177766

017646

000000

027522

027526

027532

JMP

$OVER

$:JUMP OVER SCOPE ROUTINE

BEQ

013746 001154

012737 000176

024252

CODE

FOR

THE

SINO IF SW14=0

XOR TESTERA#S#N

;:1F RUNNING ON THE ‘XOR'’ TESTER CHANGE
$:THIS INSTRUCTION TO A ‘NOP’* (NOP=240)

MOV
MOV
ST
MOV
BR
(MP
MOV
B8R

SMERRVEC,~(SP)
#58 Q#ERRVEC
an177060
(SP)+,@#ERRVEC
$SVLAD
(SP)+,(SP)+
(SP)+.a#ERRVEC
78

BIT

#B]1T08,aSWR

;:LOOP ON SPEC. TEST?

BEQ

SOVER

i:BR IF YES

BEQ

BEQ
C(MPB

28:

20008:
20018:

001154

::SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT
::TIME OUT ON XOR?
:.RESTORE THE ERROR VECTOR
::GO TO THE NEXT TEST
*3CLEAR THE STACK AFTER A TIME OUT
::RESTORE THE ERROR VECTOR
*:LOOP ON THE PRESENT TEST

6$: ; #MRENEND OF CODE FOR THE XOR TESTERAANAN

000004
024252

000002
012637

012716 027470

001424

;:TEST FOR CHANGE IN SOF T-SWR
©:LOOP ON PRESENT TEST?

024252

027466
027470

027512

17777

012737

001430

#BIT14,35WR

5%:

027454

027502

CKSWR
BIT

000004

::SCOPE=]0T

18:

;MRMRNSTART OF

027430 001455
027432 013746 000004
027436 012737 027454
027444 013737 177766
027452 000406
027462

SCOPE

$XTSTR: BR

105737

001502

151624

LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>

2002%:

TSTB

2s
@SWR,STSTAM

SERFLG

“:BR IF NO
“:ON THE RIGHT TEST?

SWR<7:0>

*:HAS AN ERROR OCCURRED?

“:BR IF NO

#-1,CPSAVE

MOV

#-1,CPSAVE

::SET CPU ERROR REGISTER TIMEOUT INDICATOR

RTI
MOV

(SP)+,ERRVEC

;;RESTORE CONTENTS OF ERROR VECTOR

CMP

#-1,CPSAVE

::SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

81T

#BI1T00,CPSAVE

:+SEE IF THE POWER MONITOR BIT IS ON

BIC

#B1T00,177766

MOV

a(SP) ,=(5P)

BEQ
MOV
MOV
MOV
BR
MOV

BEQ

MOV
MOV

*:SEE IF TIMEOUT WAS PREVIOUSLY RECORDED

‘

2005s
ERRVEC,=(SP)
#20008.ERRVEC
177766,CPSAVE
2001%

+:KICK AROUND ROUTINE IF SO
::SAVE CONTENTS OF ERROR VECTOR
:-SETUP 'TRAP' RETURN ADDRESS
::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

#20018, (SP)

*3SETUP RETURN ADDRESS

2003$

20038

*:BRANCH IF SO

**BRANCH TO CONTINUE ROUTINE IF CLEAR
::CLEAR THE BIT FOUND TO BE SET

SWk, = ($P)

*:SAVE SWR ADDRESS

#176, SWR

*:GET SOFTWARE SWR ADDRESS

1:SAVE SWR VALUE

CZRMTBC RMOS/3/2 DR CMPT TST

SCOPE

HANDLER ROUTINE

027540
027544
027552
027554
027560
027564
027564
027572
027574
027602

027604
027612

027614
027620
027624
027626
027634
027636
027642
027644
027650
027656
027660
027666
027674
027700
027706
027712

027716

027722
027730
027736
027742
027744

MACRO Vv04.0C

01000

012676
012637

000000
001154

123737
101015

001131

001117

001000

151352

001124

001122

032777
001404
013737
000446
105037

005037
000415
032777

001011
005737
001406
005237
023737
002024
012737
013737
105237
113737
011637

011637
005037
112737
013777
013716
000002
003720

H
9
18:12:15 PAGE 22-1

SEQ 0111

011677
042777
104177

4-APR-81

151410

001117
001176

004000

MOY

151402

7%:
48:

151320

3$:

001220
001120
001176
000001
027744
001116
001116
001122
001124
001200
000001
001116
001122

001120
001120

001176
001216

001131

151220
:

1$:
$SVLAD:

$OVER:

;:GET CURRENT SWR VALUE

177

<sp>+ a(sP)
(SP)+.SWR

;;CALL SPECIAL POWER FAIL BIT ERROR CALL
;;RESTORE SWR TO ORIGINAL VALUE
;/RESTORE SWR ADDRESS

$ERMAX,SERFLG
s

..MAX ERRORS FOR THIS TEST OCCURRED?

#R] 109, aSwR

MOV
MOV

EMT

2003%:

(SP) ,@SWR

BIC

(MPB
BHI

;;DON'T ALLOW LOOP ON ERROR ON THIS ERROR

;BR _IF NO
::LOOP ON ERROR?
;:BR_IF NO

BIT
BEO

#B1T09,aSWR
4$

CLRB
CLR

$ERFLG
,
$TIMES

BIT

#BIT11,aSWR

;.ZERO THE ERROR FLAG
;sCLEAR THE NUMBER OF ITERATIONS TO MAKE
;sESCAPE TO THE NEXT TEST
::INHIBIT ITERATIONS?

$PASS

..IF FIRST PASS OF PROGRAM

MOV
BR

BNE

BEQ
INC
CMP
BGE
MOV

MOV

iNCB
MOVBE
MOV
MOV
CLR
MOVB
MOV
g?¥

SMXCNT: 2000.

$LPERR, SLPADR
$OVER

1$
1$

1%
$ICNT
$TIMES,$ICNT
$OVER
#1,$I1CNT

;;SET LOOP ADDRESS TO LAST SCOPE

;BR IF YES

INHIBIT ITERATIONS

..INCREHENT ITERATION COUNT

..CHECK THE NUMBER OF ITERATIONS MADE
;BR IF MORE ITERATION REQUIRED

..REINITIALIZE THE ITERATION COUNTER
SMXCNT,STIMES
;;SET NUMBER OF ITERATIONS TO DO
STSTAM
;;COUNT TEST NUMBERS
STSTNM,STESTN
;:SET TEST NUMBER IN APT MAILBOX
(SP)
, SLPADR
;;SAVE SCOPE LOOP ADDRESS
(SP)
. SLPERR
;;SAVE ERROR LOOP ADDRESS
$ESCAPE
;;CLEAR THE ESCAPE FROM ERROR ADDRESS
#1,SERMAX
;2ONLY ALLOW ONE(1) ERROR ON NEXT TEST
$TSTNM,
D] SPLAY ;:DISPLAY TEST NUMBER
$LPADR. (SP)
2 :FUDGE RETURN ADDRESS
..FIXES PS
;sMAX. NUMBER OF ITERATIONS

CZRMTBO RMOS/3/2 DR (MPT

ROUTINE

TO SIZE MEMORY

TST

MACRO v04.00

4-APR-81

18:12:15 PAGE 23

SEG 0117
.SBTTL

ROUTINE TO SIZE MEML.Y

°.'.......'...'-..'."""t'.t..tt...t..'.'..Q...l..tt.'.t.."'t"

S*CALL:
. "

JSR

PC,$S12E

RE TURN

$SIZE:

MOV
MOV

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

;:SAVE RO ON THE S!ACK
::SAVE R1 ON THE STACK

MOV
MOV

a#116,=(SP)
#116,34114

;:1GNORE PARITY ERRORS WHILE SIZING

i#SLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION

027746
027750
027752
027756
027762
027770
027776
030002
030006
030010
030012
030016
030024
030030

010046
010146

013746

013746
012737
012737
013746
013746
010600
104400

012637
012737
012701
005711
005721
00775
162701
010006

012437
012637
012637
012637
010137
012601
012600
000207
000000

000114
000116
000116
000002
000004
000006

MOV

000114
000116

MOV

MOV
MOV
MOV

a#i14,-(sP)

#RT].a#116

::SAVE MEMORY ERROR VECTOR PS & PC

SMERRVEC,=(SP)
;:SAVE PRESENT ERROR VECTOR PS & PC
SNERRVEC+2,=(SP)
SP,RO
;:SAVE THE STACK POINTER

::SET THE ERRVEC PS TO THE PRESENT PS
000006
030036
020000

000002

TRAP

000004
1%:

2%:

000006
000004
000116
000114
030076

(SP)+ ,@#ERRVEC+2
::SAVE THE PSW IN @#ERRVEC+2
#28 ,AMERRVEC
;;SET FOR TIMEOUT

ST
ST

(R1)
(R1)+

$:TEST THIS ADDRESS
::STEP TO NEXT ADDRESS

Sus

#2 ,R1

. :DROP BACK

MOV
MOV
MOV

(SP)+,@#ERRVEC+2 : ;RESTORE ERROR VECTOR
(SP)+
. a#ERRVE(
(SP)+,a#116
:;RESTORE MEMORY ERROR VECTOR

MOV
BR

MOV

MOV
MOV
MOV
MOV

$LSTAD:

;:PUSH OLD PSW AND PC ON STACK

MOV
MOV

RTS

LWORD

#20000,R1
1%

RO, SP

(SP)+.a#114

*:FIRST ADDRESS
;2 TRY ANOTHER

::RESTORE THE STACK

R1,$LSTAD
(SP) +,R1
(SP) +.R0

::LAST ADDRESS
*:RESTORE R1
**RESTORE RO

;:CONTAINS THE LAST ADDRESS

CZRMTBO RMOS5/3/2 DR CMPT

TRAP DECODER

TST

MACRO v04.00

4-APR-31

9
J
18:12:15 PAGE 24
SEQ 0113

.SBTTL

TRAP DECODER

.Q.'tltttt.""'!fi.""'t..fi'tt.fitl AARNANRANAAAAAARAAANA IR

'THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP'' INSTRUCTION
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

:*GO TO THAT ROUTINE.
030100
030102
030106
030110
030112
030114
030120

010046
016600

005740

$TRAP:

000002

111000

006300
016000
000200

030134

MOV

RO,=(SP)

MOV
TST
MovB
ASL
MOV
RTS

2(5P) ,RO
=(R0O)
(RO) ,RO
RO
$TRPAD (RO) ,RO
RO

3iSAVE RO

JGET TRAP ADDRESS
BACKUP BY 2

34GET RIGHT BYTE OF TRAP
;:POSITION FOR INDEXING
;. INDEX TO TABLE
;:G0 TO ROUTINE

;:THIS IS USE TO HANDLE THE “‘GETPRI'‘ MACRO
G30122
030124
030132

011646
016666
000002

000004

000002

$TRAP2: MOV
:?Y

.SBTTL

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

;:MOVE THE PC DOWN
; «MOVE THE PSW DOWN
;;RESTORE THE PSW

TRAP TABLE

;*THIS TABLE

CONTAINS THE STARTING ADDRESSES OF

;%BY THE ''TRAP'' INSTRUCTION.

030134
030136
030140
030142
030144
030146

030122
024576
025614
025570
025630
026016

030150

026312

030152
030154
30156
330160
030162
2 030164
3

026242
026524
023150
026710
026746
022366
000032

$TRPAD:

THE ROUTINES CALLED

ROUTINE
UORD

$TYPE
$TYPOC

$TRAP2

$TYPON
$TYPDS

$TYPOS

s :CALL=TYPE
s sCALL=TYPOC
2 :CALL=TYPOS
;s CALL=TYPON
;s CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4 (104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

$GTSWR

;s CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

2 CALL=CKSWR
s sCALL=RDCHR

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(10441 3)
TRAP+14 (104414 )

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE

$CKSWR
$RDCHR
$RDL IN
$SAVREG
SRESREG
$DSPLY
$TERM=.~-$TRPAD

2sCALL=RPLIN

;s CALL=SAVREG
; s CALL=RESREG
;sCALL=DISPLY

SAVE RO-RS ROUTINE

RESTORE RO-R5 ROUTINE

ROUTINE TO TYPE ERROR MESSAGES

TST
E/DUAL PORT RH/RM DRIVER

4-APR-81

K 9
18:12:15 PAGE 25
SEQ 0114

—

MACRO V04.00
(REV 6.5) 1981

.SBTTL

M BO RM0S5/3/2 DR (MPT

:NEW DRIVE TYPE ID FOR RMO2 ##wawasnnn

SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5)

$10=AUG=77

1981

*xwxxsanntn

:10-MAR-78 THE SC, SCS5 CHANGES

JNEW DRIVE TYPE ID FOR RMOS #*#xwwwwwns

NN = OO0

21980

wawnmnknnnn

d ed

;COPYRIGHT (C) 1977,1981
;DIGITAL EQUIPMENT CORP.
JMAYNARD, MA 01754
JAUTHOR(S): JIM LACEY/CHUCK HESS

OO NN

D ed

sREVISED BY: MIKE LEAVITT

AR AR AR AR

AR A AR

11-APR=80, 27-MAR-81

A A AN AN AR AR AN AR AAAAAAAA AN ARSI A AR

RN AN

;STORAGE FOR RMDS, RMER1, RMERZ2, AND RMMR2 ON AN ERROR ‘2

RMERRS

RMDS

’

—

‘RMERRS+2 = RMER1

RMERRS+4 = RMER?

‘RMERRS+6 = RMMR?
030166

000000

RMERRS:

.WORD

0,0,0,0

sTABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES)

;DRVACT=0 IF DRIVE IS IDLE

sDRVACT>Q IF DRIVE IS ACTIVE WITH A COMMAND

;DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION

030176
030177
030200
030201
030202
030203
030204
030205

000
000
000
000
000
000
000
000

DRVACT:

.BYTE

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

0
0
0
0
0
0
O

;DRIVE 0

sDRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
:DRIVE
;DRIVE

1
2
3
4
5
6
7

;TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES)

;DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT
;DRVSTA>0 IF DRIVE lg ONL INE
;DRVSTA<O IF DRIVE IS UNSAFE

47
48

030206
030207
030210
030211
030212
030213
030214
030215

000
000
000
000
000
000
000
000

DRVSTA:

.BYTE

BYTE
.BYTE
BYTE
.BYTE
BYTE
BYTE
.BYTE

0
0
0
0
0
0
0

;DRIVE 0

sDRIVE
sDRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
:DRIVE

1
2
3
4
5
6
7

;TABLE OF DRIVE TYPES (DRVTYP=8 BYTES)

;DRVTYP=0Q IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO)
:DRVIYP=7 IF DRIVE IS RMO5 wxxwwxx
;:DRVTYP=5 IF DRIVE IS RMO2 sxwxnx

;DRVTYP=4 [F DRIVE IS RMO3

| CZRMTBO RMOS/3/2 DR CMPT TST

MACRO V04.00
SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1981

50
27
52 030216
55 030217

030220
030221
030222
030223
030224
030225

56
57
58
59
60
61 030226

64 030227
030230
030231
030232
030233
030234
030235
€5

000
000
000
000
000
000
000
000

75
76
77
78
79 030246
80
81
82
83

84
85
86
87 030250
88
89
90
91
92
93 030252
94

SEG 0115

DRVTYP:

.BYTE

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

0
0
0
0
O
0
0

;DRIVE 0

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

1
g
4
5
6
7

sTABLE OF DUAL PORT INITIALIZATION INDICATORS

;DPINT=0 IF INITIALIZATION 1S NOT ACTIVE ON THE DRIVE
;DPINT<0 IF INITIALIZATION IS IN PROGRESS

000
000
000
000
000
000
000
000

DPINT:

.BYTE

;DRIVE 0

BYTE
.BYTE
BYTE
BYTE

0
0
0
0

;DRIVE
;DRIVE
;DRIVE
;DRIVE

BYTE

BYTE
ABYTE

0
O

;DRIVE 1

2
3
4
5

:DRIVE 6
;DRIVE 7

sTABLE OF PENDING DUAL PORT REQUESTS

030240
030241
030242
030243
030244
030245

;DRVTYP==1 IF NOT RM05/3/2

68
69
70 030236
73 030237

18:12:15 PAGE 25-1

;:DPRQS=0 IF THAT A DUAL PORT RE QUEST IS NOT PENDING FOR THAT DRIVE
:DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE

000
000

DPRQS:

000
000
000
000
000
000

.BYTE
BYTE
BYTE
BYTE
.BYTE
.BYTE

.BYTE
.BYTE

0
0
O
O
0
0
0
O

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

:DRIVE
:DRIVE

NOWVSsWN=-=O

4-APR-81

s TRANSFER WAIT FLAG (TRNSWT=1 WORD)
:THIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF

:"DPB'* OF THE 1/0 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
;REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE.
;EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0.
000000

SRCHWT:

.WORD

;RM DRIVER ACTIVE FLAG (ACTDRv=1 BYTE)
;ACTDRV=0 IF DRIVER IS INACTIVE
;ACTDRV>0 IF DRIVER IS ACTIVE
000

ACTDRV:

.BYTE

SINGLE/DUAL PORT RM/RM DRIVER

95
96

MACRO v04.00
(REV 6.5) 1981

4-APR-81

ACTSTR:

.BYTE

;UNLOAD FLAG (ULDFLG=8 BYTES)
sULDFLG=0 IF NO UNLOAD COMMAND
JULDFLG>0 IF UNLOAD COMMAND IN PROGRESS
;ULDFLG<O iF UNLOAD COMMAND IN WAIT QUEUE

) e

w—d

SRARIV28 8

;ACTSTR>0 IF SOFTWARE TIMER ROUTINE IS ACTIVE

;= OVONONSWN=O

TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE)

;ACTSTR=0 IF SOF TWARE TIMER ROUTINE IS INACTIVE

e
— o

b ok

— —d
D
d
d — ——d
) e
—

M9
18:12:15 PAGE 25-2

SEQ 0116

;SOF TWARE

n M) = = e e el ed e e

030254
030255
030256
030257

ULDFLG:

030261
030262
030263

.BYTE

BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE

;DRIVE 0

0
0
0
0
0
O
0

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

1
2
3
4
5
6
7

;SAVE REGISTERS FLAG (SAVEFG =1 WORD)

sSAVEFG <0 IF SAVE THE RH/RM REGISTERS WHEN THE
sOPERATION IS COMPLETED AS PER (DPB+14).

;SAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER

:(DPB+14), AFTER AN ERROR.

030264

SAVEFG:

.WORD

;SEEK FLAG (SEEKFG=1 WORD)

;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW
sFOR A DATA TRANSFER START A SEARCH COMMAND

;SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS,
;DISREGARD THE WINDOW

125 030266

177777

SEEKFG:

.WORD

;TIMEOUT TABLE (TIMER=8 WORDS)
;THIS TARLE CONTAINS THE TIME ALLOWED FOR AN OPERATION
130 030270
133 030272

030274
030276

SVBYRAR

CZRMiBO RM0S5/3/2 DR CMPT TST

:d—ldddd

141
142
143

030302
030304
030306

177777

TIMER:

177777
177777
177777
177777
177777
177777

.WORD

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

-1

;DRIVE 0

-1
-1
-1
-1
-1
-1
-1

sDRIVE
:DRIVE
;DRIVE
;DRIVE
sDRIVE
;DRIVE
:DRIVE

;DATA TRANSFER UNDERWAY

1
2
3
4
5
6
7

INDICATOR (DTUW=1 WORD)

;DTUW<O IF NO DATA TRANSFER UNDERWAY
;DTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

030310

177777

DTUW:

WORD

-1

JATTENTION BITS TABLE

(ATABIT=8 BYTES)

;THIS TABLE CONTAINS THE TORRESPONDING BIT TO EACH DRIVES
JATTENTION BIT

i' SINGLE/DUAL PORT RH./RM DRIVER (REV 6.5) 1981
f

[
|

CfRHTBO RMOS5/3/2 DR CMPT TST
144

145 030312
146 030313

001
002

147 030314

004

150 030317

040

;g% 030321

200

148 030315
149 030316

151 030320

100

168

;67)8 030332

1
2

;DRIVE 0
:DRIVE 1

.BYTE
.BYTE

10
20

sDRIVE 3
sDRIVE 4

.BYTE

200

000003

MCPEMX:

.WORD

sDRIVE 2
sDRIVE §

100

;DRIVE 6

sDRIVE 7

sRMVEC

176700

000254

000240

RMADR:

RMVEC:

(THE VECTOR ADDRESS

.WORD

ALLOWED BEFORE

;STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF
(254)),

THE RH/RM),

AND RMVEC+2 (THE BR LEVEL

MXWNDW:

.WORD

176700

254,5+32.
5

;DEFINITIONS OF THE RH/RM ADDRESS INDEXES

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
- 000030
000032

RMCS1
RMW(C
RMBA
RMDA
RMCS?2
RMDS
RMER1
RMAS
RMLA
- RMDB
RMNMR1
RMDT
RMSN
" RMOF

=0
= 2
=4
=6
=10
= 12
= 14
= 16
=20
= 22
= 24
= 26
= 30
= 8D

188

000036

RMHR

= 36

000034 -

= 34

;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG.

;DUMMY

}gg

.SBTTL

RH/RM DRIVER INITIALIZATION CODE

200
201

. THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE
JAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR

203
204
205
206

;NOTE: THIS ROUTINE CALLS DRVINT
5
.
;CALL
;

40
42
44
46

ADDRESS REGISTER (DRIVE REG. 13)

=
=
=
=

207

000040
000042
000044
000046

RMDC

;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. S)
;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
;DRIVE STATUS REGISTER (DRIVE REG 1)
;ERROR REGISTER #1 (DRIVE REG. 2)
JATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 4)
;LOOK AHEAD REGISTER (DRIVE REG. 7)
;DATA BUFFER REGISTER (NOT A DRIVE REG.)
JMAINTAINABILITY REGISTER (DRIVE REG. 3)
;DRIVE TYPE REGISTER (DRIVE REG. 6)
;SERIAL NUMBER REGISTER (DRIVE REG. 10)
;OFFSET REGISTER (DRIVE REG. 11)

RMMR?2
RMER?Z
RMEC1
RMEC2

202

(5)).

;MAXIMUM SEARCH FOR 1/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD)

000005

173
174
175
176
177
178
179
180
181
182
183
184
185
186
189
190
191
'T'gg

SEQ 0117

;NUMBER OF ‘MASSBUS CONTROL PARITY ERRORS'‘' (MCPE)
sCALLING IT FATAL (MCPEMX=1 WORD)

;;‘2

187

.BYTE

12(1)

162 030324

N 9
18:12:15 PAGE 25-3

.BYTE
.BYTE

.BYTE

010
020

159

}2; C3032¢

4-APR-81

ATABIT:

154
};?2

}gg 030322

MACRO v04.00

;MAINTENANCE REGISTER #2
JERROR REGISTER #2 (DRIVE REG. 15)
JECC POSITION REGISTER (DRIVE REG. 16)
JECC PATTERN REGISTER (DRIVE R=G.
17)

;7O THE PROPER STATE FOR EACH DRIVE.

JSR

PC,RMINIT

12)

CZRMTBO RMOS/3/2 DR (TMMPT TST

INITIALIZATION CODE

%
39

iG4

%<8
49

177776

FEREY

258
259

PSS, -(SP)

JSR
MOV
MOV

PC_.CLROUE
S
SRMERRR
#S-EXKFG,R2

8LC
MOV
- MOV

13
DT,
R2
#-1_,(R1)e

(LR
.

CLR

DRVSTA

(LR
CLR

fat

216

0305
0305

000610

030546

3s:

030206

4%:

177770

b} H

177776

030226
035446
030226

68:

7%:
BS:

177776

- RS
SSAVE RO
sSAVE THE PRESENT PROCESSOR STATUS
s CHANGE THE PRIORITY T0 S
cCLEAR ALL REQUEST QUEUES

sFIRST ADDRESS TO BE (I EARED

sLAST ADDRESS TO BE CLEARED
;s CLEAR

DRVSTA+?2

DRVSTA+4
DRVSTA+6

MOV
MOV
MOV
MOV
MOV

RMVEC ,R3
#ISR, (R3)+
RMVEC+z, (R3)
, R4
RMADR
#CLR_RM(S2(RS)

;SETUP THE RH/RM VECTOR

B8R
8R

[ 3
b} 3

:"DVA® NOT SET OR PARITY ERROR

LR
JSR

CLRB

INC

R1
RO,DRVINT

DRVSTA(RY)

-3

BIC

*°C7 R

MOV

&7 R1

BNE

000007

(R1)+
R1
. R2

R1_R2

(LR

05000

#<8+32
> ps

e o

8LCS

030544

it
257

MOV

MOy

17777¢

28:

51
5
Si 030542

RETURN

RMINIT: SAJREG

18:

50 §‘ 5

8 10

1B8:12:15 PAGE 25-¢

INOTE: THE *P* OR °*L° CLOCX MUST BE STARTED

85258838S onos
22
3
BT

}

OCOO0O0000O00C0CO000VVV0VOVVNOVOVVOVVOCOOOOOO

T P
T
Bl

Wn -

EIBVXN
NO WV
3

4-APR-B!

SEQ 0118

——

LAV LUV LWL VLV LWLV

oS @I
NS W
O3

RH/RTMM DRIVER

MACRD v06.00

CLR

TST8

3EQ

DPINT(R1)

JSR
1ST8B

PC,SET.IE
DPINT(RY)

DEC
B8PL
MOy

R1
L}
(SP)+,PS

RTS

BNE

RESREG

;FIRST ADDRESS OF RH/RM
sMASSBUS INIT
;START WITH DRIVE O
sINIT THE DRIVE

sNORMAL RETURN
:SET DRIVE STATUS TO OFFLINE
;GO TO NEXT DRIVE
sMASK OUT UNUSED BITS
BR IF MORE DRIVES TO GO

3 ] TART WITH DRIVE 7
4
;CLEAR
THE PROCESSOR STATUS
sWAITING FOR DRIVE TO SWITCH PORTS ?
;BR NOT WAITING
;SET INTERRUPT
;DRIVE SWITCHED PORTS ?
:BR IF NOT

;GO _TO THE NEXT DRIVE
;CHECK NEXT DRIVE

RESTORE THE PROCESSOR STATUS

JRESTORE RO - RS
;BYE-BYE

;DRIVE INITILIZATION ROUTINE
- THIS ROUTINE DETERMINES IF A DRIVE EXIST. AND 1
S
;AN RMOS/3/2. IF
IT IS, A ' *READ-IN PRESET'’ IS 1
AND FMT16
;IS SET TO A ""1"°. THEN MOL, DPR, DRY, AND WV AR
;INSURE THEY ARE ALL ON A "', AND DEPENDING ON THE
;DRVSTA IS SET T O THE PROPER (ONDITION.
sCALL
_R1
#DRVNUM
MOV
;DRIVE NUMBER TO R1
R4
RMADR
MOV
:
;UNIBUS ADDRESS OF RH/RM (RM(S1)
RC,DRVINT
JSR
J
;CALLED BY A JSR

RM/RM DRIVER

INITIALIZATION (ODE

MACRO v0&4.0C

4-APR-B1
RE TURN

030206
030216
030254
000010
000111
010000

000000
000010

DRVINT: MOV
CLRB
(LRB
(LRB
MOV
MCvB
BIT

BEQ
JSR

035446
030206
004000

00000

18:

034756

CLRB

BIT
BEQ
JSR

RMDT

000004
020024

MOV
MOVB
CMP
BEQ
mP
BEQ
MOVB
(MP
BEQ
cMP

030216

024024
030¢16

024025

SRSRIRERESYS3

jelele]

020025

020027

MOVB
e
BEQ
MP

024027
177777

8EQ
MOVB
BR

030216

2%:

sCLEAR T:5) DRIVE TYPE INDICATOR
;CLEAR THE UNLOAD FLAG

;SELECT A DRIVE
;DO A DRIVE CLEAR COMMAND (B SEIZE DRIVE)

#BIT12,RM(S2(R4) 18

JNONEXISTENT DRIVE?

PC,SET.IE

©GO SET "“IE'* WITHOUT A ''TRE''

DRVSTA{RY)

;SET DRIVE STATUS TO OFFLINE

;BR IF DRIVE NOT AVAILABLE

#BIT11,RMCST(RG)

RO,RD.RM

(SP)+,RS
#4 ,DRVTYP(RY)

#20024 RS

SLEAVE THIS ROUTINE
;SEE

*READ THE DRIVE

DRIVE AVAILABLE

TYPE REG.

;ERROR RETURN ADDRESS
*PUT DRIVE TYPE IN RS
;SET RMO3 INDICATOR

*SINGLE PORT RMO3 2

‘BR IF YES

2
#5,DRVTYP(R1)

‘BR IF YES
:SET RMO2 INDICATOR

#24024 RS

#20025 RS
23

*DUAL PORT RMO3 2

*SINGLE PORT RMO2 7

;BR IF SO

#24025,RS

*DUAL PORT RMO2 ?

#7 ,DRVIYP(R1)

:SET RMOS

#20027,RS
2

*BR IF SO

INDICATOR

:SINGLE PORT RMOS 2

*BR IF YES

#24027 RS

*DUAL PORT RMOS 2

#-1.DRVTYP(R1)
48

:SET INDICATOR TO
CEXIT

;BR IF YES

'OTHER'

;DO A "READ-IN PRESET''

MOV
JSR
RMOF

#BIT12,-(SP)

SSET FMT16=1

JSR

RO,RD.RM

:READ RMDS

(SP)+,RS

;AND SAVE

RMDS

000G16

R1,RM(S2(R4)
#1771 ,RM(ST(RS)

;SAVE RS

sSTART DRIVE STATUS AS OFFLINE

#121,-(SP)
RO,WRT.RM

030312
034756

RS,~(SP)
DRVSTA(RY)
DRVTYP(R1)
ULDFLG(R1)

MOV
JSR
RM(CS1

i
olo Bl

BEQ

030216

NN NN NN NN NN

sERROR OCCURRED (PARITY)
sNORMAL RETURN

RETURNZ

269 030546
270 030550
271 030554
272 030560
273 030564
274 030570

—=OVRNOIWVSWN—=O

C 10

1B:12:15 PAGE 25-5

SEQ 0119

265
266
267
268

KRS

CZRMTBO RMOS5/3/2 DR (MPT TST

MOV
BPL
MOVB
JSR
RMER1
5%

RO,WRT.RM

ATABIT(R1) ,RMAS (R&)
RO,RD.RM

IT IN RS

‘BR IF ATA=0

:CLEAR ATTENTION BIT

SFIND OUT WHY ATA=1

CZRMTBO RMO05/3/2 DR CMPT

RH/RM DRIVER

TST

INITIALIZATION CODE

322 031022
323 031024
324 031026
ggg 031034

006126
100004
112761
000407

327 0371036
328 031040
329 031044
330 031046
331 031054
332 031056
g%z 031060

005105
042705
001003
112761
005720
012605
000200

177777

MA(CRO v04.00

3s:
030206

338

342

347 031074

013746
013737

112737
104412
011002

177776

030330

000001

005062

000016

013704

030324
030206

105767

003014

105761
001036
105761
001042
004037
000434

RTS

; CHECK MOL
, DPR DRY, AND VV

:BR_IF MOL, DPR, DRY, OR VV IS CLEAR
:SET DRIVE STATUS 70 ONL INE
;STEP OVER THE ERROR RETURN

#AC<BIT12!BITO8!BITO7!BITO6>,RS
#1,DRVSTA(RT)
(R2)+
(SP)+ RS
RO

:?;?}ORE RS

RO,RMO5
JSR
PNTADR
RE TURN1
RE TURNZ

;CALL THE RMO5 DRIVER
;ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK
JRETURN HERE IF QUEUE IS FULL
;RETURN HERE IF REQUEST IS IN QUEUE OR THERE
;1S AN ERROR CONDITION

RMOS
:

MOV
MOV
MOvVB
SAVREG
MOV
CLR
MOvB
MOV

;SAVE THE CALLING STATUS
;DON'T ALLOW ANY RM INTERRUPTS

030252

TSTB

8GT

1ST8

BNE

030226

1ST8

030546
030206

105761

030236

001031
010164
004037

177776

030254

105761

003445

JSR

PS,=(SP)

RMVEC+2,PS

#1 ,ACTDRV
(RO) ,R2

16(R2)

(R2) ,R1

RMADR R4

?QVSTA(R1)

ULDFLG(R1?

3%
-DPINT(R1)
5%

RO,DRVINT
43

DRVSTA(R1)

18:

000010

DPRQS (R1)
5%

R1,RM(CS2(R&)
RO,DRVQUE

036110

000103

000002

#103,2(R2)

177777
030176

030254

#<1_ULDFLG(RT)

2s:

031354

376 031236
377 031240
378 031244

MOV

#<1,DRVSTA(RY)
3

;1S 1T UNSAFE?
:BR_IF NOT
:S i}'UNSAFE INDICATOR
JE

:
3
:

111201

354 031124
355 031126
356 031132
357 031134
358 031140
359 031142

68:
5%:

COM
8IC
BNE
MOvB

(SP)+

sREQUEST PRE=PROCESSOR=-HANDLES SUBSYSTEM REQUEST
s CALL

339
340
341

345 031062
346 031066

ROL
BPL
MOV
8R

030206

335
336
337

343
344

D 10

18:12:15 PAGE 25-6
SEQ 0120

167077
000001

4-APR-B!

120000

032432

000016

DRVACT(R1)
8s
PC,OPT
8%

;SET "'ACTIVE DRIVER'' FLAG
;SAVE RO - RS

;PICKUP THE DRIVE PARAMETER BLOCK POINTER
;CLEAR THE STATUS/ERROR INDICATOR
;PICKUP THE DRIVE NUMBER
JUNIBUS ADDRESS OF RMCS1
;CHECK DRIVES STATUS
;BR IF ONLINE
JUNLOAD COMMAND IN QUEUE?

;BR IF YES

sTRYING TO INIT THE DRIVE

;BR IF YES
;GO INIT. THE DRIVE
;ERROR RETURN
;1S DRIVE STATUS ONLINE?

;BR IF NOT
JOUTSTANDING PORT REQUEST FOR THE DRIVE ?
BR IF YES
;SELECT THE DRIVE
PUT THIS REQUEST IN QUEUE
OUEUE IS FULL
;IS THIS REQ. FOR AN UNLOAD?
BR IF NO,
;SET THE 'UNLOAD IN CJUEUE'' FLAG
;1S THIS DRIVE ACTIVE?

.'BR IF YES
sCALL THE OPTIMIZER

3%:

5?1715581713.16(R2)
it

4%:

PC.C17
8$

;SET THE 'UNLOAD IN QUEUE'' ERROR FLAG

‘GO HANDLE THE PARITY ERROR

CZRMTBO RMOS/3/2 DR CMPT TST

RM/RM DRIVER

INITIALIZATION CODE

379 031246

004037

380 03125¢
381 031254
382 031260

000431
032714
omois

384 031266

000420

383 031262

385 031270
386 031276
388 031306

389 031310
390 031312
391 031320
3952 031322

105761
002412

030206

105761

030216

001007
012762
00040
012762

104413
(005720

396 031336

104413

397 031340
398 031342

399 031346

28? 031352

<g:

000100
035446

393 031330
2394 031332

395 03133¢

036110

004737

387 031276 012762

MACRO v04.00 4-APR-B1 18:12:15 PAGEE122-7

012637
000200

110000

000016

8s
‘BR IF OFFLINE
#BIT15'81101,16(R2)
sREPORT DRIVE NONEXISTENT
8s
:GO TO EXIT
#MITIS BIT12,16(R2)
:DRIVE IS UNSAFE

7$:

8s:

108:

030252

177776

409 031356

013746

412 031374

004737

036164

414 031402
415 031406
416 031410
417 031416
418 031426

001466
010164
012764
032764
001442

000010
000111
004000

420 031432
421 031434
422 0316440

003014
004737
012762

424 031452
425 031454
426 031462

100047
012762
000443

438 031474

122762
002403
004737

423 031446

427 031464
436 031464
437 031472

439 031500
440 031502
441 031506
442 031510
443 031514

105761

000434
005737

002006
005737

100003

*SEE IF DRIVE OFFLINE OR UNSAFE
‘BR IF UNSAFE

BNE
MOV
B8R
MOV

177776

030312
030236

030206

110000
000150

030266

(RQ)»
ACTDRV

RTS

MOy

OPT:

SAVREG

JSR

MOy

BICB
(LR8

000000
000000
18:

000016

(SP)s,PS

SFINISH UP,

THEN EXIT

*RESTORE RO - RS

;CORRECT THE RETURN ADDRESS
:CLEAR "ACTIVE DRIVER'® FLAG

SRETURN ‘PS** TO USER LEVEL
*RETURN TO CALLER

)

28:

#DRYNUM,R1

eC,0PT

PS,=(SP)

:DRIVE NUMBER TO R1

SSETUP A COMMAND
;SAVE RO - RS

“SAVE PROC. STATUS

ATABIT(R1),SRCHWT
;CLEAR LA SEACH FLAG
DPRGS(R1)
:RESET THE PORT REQ FLAG ***+

P, GE TREQ

:GET "DPB'" POINTER OF REQUEST

:1S THERE A REQUEST IN QUEUE?

DRVSTA(R1)

*1S DRIVE ONLINE?

8E0
MOV
MOy
&7
BEG

7%
‘NO--BR TO EXIT
R1_RMCS2(R4)
:LOAD THE DRIVE ADDRESS sxsenss
#1711 _RMCSI(R4) -CLEAR THE DRIVE
#1711, RMCST (RS)
:DVA SET ?
5%
;70 PORT REQUEST .IF NOT

B8GT
JSR
MOV

28
YES
P, POPOUE
“NO=~REMOVE REQUEST FROM QUEUE
MmiT15:8I114,16(R2)
sSET OFFLINE STATUS/ERROR INDICATOR

8PL
MOV
B8R

DRVSTA(R1)

13
*BR TO EXIT IF NOT
#BI115!817112,16(R2)
:SET UNSAFE STATUS/ERROR INDICATOR
8%
:BR TO EXIT

;1S DRIVE UNSAFE ?

(MPB
BLT
JSR

#150,2(R2)
3s
PC.C14

;1S THE REQUEST FOR 1/0?
*YES

‘CALL

BGE
ST

48
SEEKFG
4

LYES=-GO START A SEARCH
DO IMPLIED SEEKS?
JNO, DO A SEARCH

TSTH

TSTB

032016

030310

;RESTORE RO - RS
“SETUP FOR NORMAL RETURN

TSY
CLRB

TST

000002

(RO) +

108

ISR

000016

;SEE IF OFFLINE OR NONEXISTENT

B8R

RESREG

;SET OFFLINE ERROR INDICATOR

DRYTYP(RT)

;OPTIMIZER-CALLED FOR A PART!CULAR DRIVE

030250

030206

036206
140000

RE SRE G
ST

MOV

419 031426

DRVSTA(R1)
78

000016

289

005702

*RE TURN

TSTB
8LT

*SET THE INTERRUPT

100002

SCALL

413 031400

PC.SET.IE

#RIT1S!81T14,16(R2)

405

146137
105061

B8R

404

410 031362
411 031370

IN QUEUE

‘QUEUE IS FULL
“IE BIT SET 2
TYES

MOV

104412

:PUT REQUEST

98
#R]1706, (RG)
8s

140000 000016

28%

408 0313564

RO, DRVOUE

BR
g!1
BNE
JSR

000401

005720
105037

JSR

SEQ 0121

BR
3
8PL

8%
DTUW

THE COMMAND INITIATOR

‘BR TO EXIT
*DATA TRANSFER UNDERWAY?

CZRMTBO RM05/3/72 DR (MPT

RH/RM DRIVER

INITIALIZATICN CODE

464 031516

031602

446 031524

004737

031710

448 031532.

112761

177777

03023%¢

035230

030270

000423

447 031530 000420
449 031540

450 031542

010103

006303

451 031544
452 031552

012763
000402

454 031560

032714

453 031554

455 031564

001002

457 031572

012637

223 031600

000207

;

MACRD v04,.00

004737

445 031522

‘

TST

456 031566

458 031576

004737

004737
104413

032432

000100

035446

177776

461

(%
S%:

78:

L68

469

004737

474 031612
475 031614
476 031620
477 031626

010203
0137064
010164
062703

479 03163

012324

010237

062704

036206

030244

012346

483 031646

000006

030324
000070
000004
000002

#=1,DPRQS(RT)

;SET PORT REQUEST

ASL

MOV

MOV
BR

R1,R3

‘GO TO THE EXIT

INDICATOR

“SET UP TO ADDRESS WORDS

*CONVERT

TO WORD INDEX

#15000., TIMER(R3)
7%
SEXIT

;START 15, SECOND TIMER

817

#1106, (R&)

*1E' ALREADY SET

JSR

5C,SET.IE

JSR

PC,C17

BNE

RE SREG

(SBYe,PS

*PROCESS THE PARITY ERROR

“SEE IF

:BR IF SET
SSET

IETM WITHOUT A “‘TRE"’

*RESTORE PROC. STATUS
*RESTORE RO - RS

MOV

MOy
ISR

#DRYNUM R 1

#DPA R
RIE;

004037

016246

491 031674
492 031676
493 031700

000000.
032432
010137 030310

496 031710
497 031714
498 031720

013704
010164
016246

500 031730

00003«

006037

P, PCPOUE

;REMOVE REQUEST FROM ‘DRIVES WAIT'* QUEUE

TMMoV
MOV
MOy
ADD

R2.R3
RMADR , Ré
R1,RMCS2(R4)
#4.R3

:DPB ADDRESS TO R3
*RMCS1 ADDRESS
-SELECT DRIVE
*DESIRED WORD COUNT

MOy

(R$)s, (RG)+

“RMJC ADDRESS

*LOAD WORD COUNT

(R3)s+.=(5P)

*LOAD SECTOR AND TRACK

JSR

RMDA

R2,TRNSWT

#2°RL

(R3)+,(RG)+

RO, WRT RM

;PUT REQ.

IN TRANSFER WAIT QUEUE

;LOAD BUFFER ADDRESS

;CALL

THE LDAD(WRITE) ROUTINE

*INDEX OF REGISTER TO LOAD
:ERROR RETURN ADDRESS

035136

Moy
ISR

(R3)+,=(5P)
RO.WRT .RM

000002

MOV

2(R2) ,=(SP}

;LOAD '‘COMMAND+GO'*, ‘'A178A16'", AND "PSEL"

R1,DTUW

_
;SET "DATA TRANSFER UNDERWAY''

RMADR , R
R1,RMCS2(R4)
12{R2),=(SP)

;RMCS1 ADDRESS
:SELECT DRIVE
:DESIRED CYLINDER ADDRESS

RMD¢
(17

035136

JSR

RM( ST
17
MOy

000137 032374

004037

ISR

MOV

c1?

489 031664

000034
032432

JWHERE:

*C14=NOT DATA TRANSFER

MOV

032432

*ADDRESS OF DPB
:C172= CI11,C13, OR Cl4
:C11=DATA TRANSFER

ADD

035136

;DRIVE NUMBER

;C13=SEARCH REQUESTED BY DATA XFER

MCv

012346
004037

499 031724

c11:

012324

481 031640

2315. 031706

MOVR

472 031602

490 03167¢

JSTART A SEARCH

2;9

487 031660
488 031662

PC,C13

RTS

467

485 031652
486 031654

JSR

B8R

.3
:

484 031650

;START A DATA TRANSFER

MOV

CALL

464

482 031642

PC,.CIN

88 :

465
466

480 031636

SEQ 0127

JSR

463

478 031630

F 10
1B:12:15 PAGE 25-8

;COMMAND INITIATOR

“62

473 031606

&=APR=B1

030324
000010
000012

035136

JMP

(13:

Moy
MGV
MOV
JSR

RMD(

RO, WRT.RM

:LOAD CYLINDER ADDRESS
:
u

INITIALIZATION CODE

501 031732
502 031734
503 031740
504 031744
505 031746
506 031752
507 031754

032432

116203
163703

00200
06270
010346
116266

004037
000006
032432
012746
004037
000000
032432
156137

000567

013704

526 032044
525 032050
526 032052
527 032054
528 032056
529 032062
530 032064
531 032070
532 032074
533 032076
534 032100

535 032102
536 032106
537 032110

538 032114
539 032116
540 032120
541 032124
542 032130
543 032132
544 032134
545 032136
546 032142
547 032144
548 032150
549 032152

010164
116203
122703
001007
016246
004037
000006
032432
000403
122703

001007
016246
004037
000034
032432
000546
122703

001013
004037
000032
032432
116216

004037
000032
032432
000530

56 032206

030312

RO,WRT.RM

NOV
JSR
RM(S1T

#131,-(SP)

;START A SEARCH

BIS8

ATABIT(R1) ,SRCHWT

MOV
MOV

RMADR R4

JRMCS1

2(R2) ,R%

;PICKUP THE REQUESTED C(OMMAND

MOV
JSR

R3,=(SP)

RO,WRT.RM

'$:

R1,RM({S2(R&’

#131,R3

10(R2) ,=(SP)

RO,WRT
RM

000012
035136

2%:

#105,R3

MOV
JSR
RMD
(

12(R2) ,=(SP)

RO, WRT RM

034756

8R
(MPB
BNE
SR

(16
#115,R3
3]
RO,RD.RM

000001
035136

MOvB
JSR

SNE

(17

000115

3s:

RMCF

{17

RMOF

1(R2),(SP)

RO,wWRT .RM

(17

035136

ADDRESS

;SELECT DRIVE

;1S IT A SEARCH COMMAND?
:BR IF NO

:LOAD DESIRED TRACK & SECTOR

(MPS

000001
030206
000001

JSET "'SEARCH WAIT"® KEY

cIs

RMDA

000105

000103

JPICKUP SECTOR ADDRESS
JBACKUP BY MAX. SEARCH FOR 1/0 WINDOW
COMBINE THE ADJUSTED SECTOR WITH
s THE DESIRED TRACK
sLOAD DESIRED TRA(CK & SECTOR

122703
001016

SEQ 0123

11(R2) ,1(SP)

MOVE
(MPS
RNE

000010
035136

10(R2) ,R3

MXWNDW ,R3

25=9

MOvB
JSR

Cl&:

PAu

#32. ,R3

MOV

030250

G 10
18:12:158

ADD

RHDA

030324
000010
000002
000131

000117

010346
004037
000000
032432

00000

18:

000131
035136

122703

112761
105061
112761

(17

00004C
000011
035136

L-APR-B8]

MOvA
SUB
8GE

030332

000107

001522

v04.00

00010

122703

001525

MATRO

4%
:

030176

030254

8R
r

BEQ

CMPR
BEC
(MPS
BNE
mMOovB
CLRB
MOV
MOV
JSR
RM(S?

€1z

#1,DRVACT(RY)

DRVSTA(RY)

#1,ULDFLG(RY)

R3,=(SP)
RO,WRT.RM

CYLINDER
SEEK COMMAND

RH/RM DRIVER

TST

;LOAD DESIRED CYLINDER

;IS IT AN "OFFSET'* COMMAND?
;BR IF NO
;MERGE THE OFFSET VALUE INTO RMOF
;BUT DON'T CHANGE THE UPPER
;BYTE WHEN LOADING THE
JREGISTER (RMOF)

%3%’»9;93‘»938

CZRMTBO RMQOS5/3/2 DR C(MPT

START THE COMMAND
}; CE;RECALIBRATE" COMMAND?

IT A RETURN TO CENTER?
IF YES,
{; zg "UNLOAD'* COMMAND?
THE

DRIVE ACTIVE

INDICATOR

T DRIVE STATUS TO OFFLINE
T "UNLOAD IN PROGRESS'' FLAG

SYART THE "'UNLOAD'* COMMAND

CIZRMTBO RMOS5/3/2 DR (MPT

RH/RM DRIVER

[NITIALIZATION

558 032212
559 03

000207
122703

001014

004037
000032
032432
116266

004037
000032

568
569
570
571
572

032250
032252
032256
032260

573 032264
574 032272
575 032276
576 032302
577 032304
578 032306
579 032310
580 032314
581 032316
582 032324
583 032326
584 032332
585 032334

586
587
588
589
590
591
592

TS7

032336
032342
032344
032346
032352
032360
032364

593 032366
594 032372
595
596 032374
597 032376
598 032404
599 032406
600 032414
601
602 032416
603 032420
604 032424
605 032426
606 032430
607
608 032432
612 032440
616 032442
617 032444
618 032446
622
623 032454

032432
000436
122703

001023
016203

116237
116205
004037
000000
032432
012623
023705
001414
062737
000764
122703

001405
010346
004037
000000
032432
004737
052762
005737
100002

004737
000207

006301
012761
006201
112761

000207

010346
004037
000000
032432
000761

MACRO
CODE

v04.00

5%:

03475¢

RTS
(MPB

ENE
JSR

RMOF

¢i7

000001

MOVR
JSR
RMOF

€17

000141

[ §

000006

s ¥

8R
(MPR
BNE
MOV

8s:

MOVE
MOVB
JSR

000010
000011
03475¢

032302
GY:

RM(S1

(17

000002
000145

108:
118:

035136

0000C1¢

12%:

030270

000001

03017¢

012746

000111

108

6(R2) ,R3
11(R2) ,RS
RO ,RD .RM

10(R2),9%

THE

OFFSET REGISTER

;COMBINE "FMT16"',"ECI', AND “HCI'*
;LOAD “FMT16'", "ECI'", AND/OR "H(CI'".

JIS IT A "'GET-REGISTER'' COMMAND?

;BR IF NO
;POINTS TO 1ST ADDRESS OF WHERE
;T0 PUT THE REGISTER(S)
JINIT, THE INDEX FOR THE FIRST REG.
JINDEX OF LAST REG. TO MOVE
JREAD RH/RM REGISTER

;INDEX OF REG.

128

TO READ

SGET OUT IF YES
THE

INDEX BY 2

:LOOP==MORE TO READ

R3,=(3P)

“IS IT A "SELECT DRIVE'* COMMAND®
‘BR IF YES
*LOAD THE COMMAND

PC ,POPQUE

;REMOVE REQ. FROM QUEUE

#I107,16(R2)

JSR

138
PC,SVRH70

RO,WRT
RM

SAVEF G

:SET THE 'DONE'* BIT
*SAVE

THE RH/RM REGISTERS?

BR IF NO
‘YES==GO SAVE THE REGISTERS
*RETURN TO USER

MOV

R1
:;OOOO.,T]H{R(R1)

MCvB

#1 ,DRVACT(RY)
P(

SRETURN

MCv

R3,=(SP)

:LOAD THE COMMAND

RMCS1?

BIT
TST

BNE

(178:

12%

2141,R3

JREAD

#145,R3
128

RTS

2%:

1(R2) ,1(SP)

RO, wRT RM

BEC
MOV
JSR
RM(S?
€1z
JSR
8IS

JSR

000016

RO,RD.RM

SIS IT A "'SET FORMAT'' COMMAND?
JBR IF NO

(MPB

1z
8R

164000

JRETURN TO USER

: INCREASE

ASR

000010

143,R3

22.9%

ASL

035136

ADD

023420

010000

25-10

;GET THE CONTENTS OF RH/RM REG
;LAST REG. BEEN READ?

TSY
8P

035330

032764
005702
001001
000207
012762

H 10

PAGE

(SP)e,(R3)+
95 RS

MOV
(MP
BEC

032302

036206
000200
030264

18:72:15

SEQ

(00143

000001
035136

4-APR=81

RTS

RO, WRT.RM

;SET

JSTART 10.

SECOND TIMER

THE DRIVE ACTIVE
TO

THE

USER

ris

#RITT2,RMCS2(R4)

sDRIVE NON-EXISTENT ?

JANYTHING IN QUEUE ?
;BR [F QUEUE IS THERE

MOV

#RIT15:BIT11,16(R2)

:OTHERWISE

EXIT

MOV

#111,=(SP)

;DO A "DRIVE CLEAR''

;SET "PARITY'® ERROR INDICATOR

0174

(ZRMTBO RMGS5/3/2 DR CMPT

Rh/RM DRIVER

TST

INITIALIZATION (CODE

626 032460
625 032464

626 032466
627 032470

628 032474
629 032500
630 032504
631 032510
635 032514
636 032516
637 032522
638 032530
639
640 032532
641 032534
642 032536
643 032540
644 032544
645 032546
646 032552
647 032554
648 032560
649 032564
650 032566

651 032572

652 032574
653 032576
654 032504
655 032606
656 032614
657 032616
661 032624
662 032632

663 032636
664 032642
665 032646
666 032650
667 032656
668 032662
669 032666
673 032674
674 032676
675 032702
676 032706
677 032710
678 032716

004037
000000
032532
004737
105061
105061
105061

020237

001005
005037

012737
000207

035136

177777

005001
005003
105761

030176

105761

030236

001003
007443
013702
020137
001402
004737
005702
001413
032764

001404
012762

000403
012762
012763
105061
105061

'%:

03031C

020137
001005
012737
005037
105061

032764
005201
062703
042701
001314

012737
005037
004737
012764
000406
004737
004737
104413

000207

000016

102000
177777

000016
03027¢

(%:

cs:

030310
000010

¢s:

000002
177770

036070
030206
030216
035446

030310
000010
7%:

8%:

TRNSWT

SAVRE
G
(LR
(LR

R1
R3

BEC
BIT
8EC
MOV
3R
MOV
MOV
(LRB
(LRR
(MP
BNE
MOV
(LR
(LRB

BIT
INC

ADD
8I(
BNE
MOV
(LR
JSR
MOV
BR
JSR
(LRB
TLRB
JSR

RESREG
RTS

JEMPTY THE QUEUE

;sCLEAR THE PORT REQUEST FLAG
sCLEAR THE UNLOAD IN QUEUE FLAG
;DRIVE IS IDLE
;1F

THIS DRIVE

HAD AN

/0 REQUEST

s IN PROGRESS (LEAR ALL OF

THE FLAGS

#=1,DTuw

100002

030246
036012
005000

25-11

DPRQS(R1)
ULDFLG(RT)
DRVACT(RY)
R2. TRNSWT
2%

RTS

8EQ
MOV
(MP
BEC
JSR

000010

177777

PC,EMPTYG

(LRB
(LRB
(LRBR
TMMP
8NE
LR
MOV

TSTR

010000

030246
030254
010000

(I8
JSR

BNE

036164

177777

RO,WRT .RM

TSTR

030246
030310

030i76
030236
030310

110

18:12:15 PAGE

+SR

RM( ST

036070
030236
030254
03017¢
030246
030246

4-APR-B1

SEQ

104412

105061
105061

687 032760
688
689

MACRD v06.00

DRVACT(R1)
2%
DPRQS (R1)
3]
TRANSWT ,R2
R1,DTuW

PC,GETREQ
R
5%

121712LRM(S2(R4)

;SAVE RO = RS
;DRIVE ACTIVE?
BR IF

IN ACTIVE

;PORT REQUEST
;BR [F NOT

JGET THE '‘TRANSFER WAIT' " QUEUE

;DID THIS DRIVE HAVE AN [/0 IN PROGRESS?
:BR IF YES
;GET THE DPB POINTER
:QUEUE ENTRY FOR DRIVE ?
:BR IF NOT

:'NED* SET ?
BR IF NOT
g21715‘81101, 16(R2)
;SET "DRIVE NON-EXISTENT'
CONT INUE

INDICATOR

#3]T15:8171Q, 16(R2)
#-1,TIMER(R3)

;SET "NON-CLEARABLE PARITY'® ERROR INDICATOR
;STOP THE TIMER

R1,DTUM

;CLEAR PORT REQUEST FLAG
;1S THIS DRIVE SETUP FOR A TRANSFER

DRVACT (R1)
DPRQS (R1)

#-1,DTUW
TRNSWT

:SET "DRIVE ACTIVE'' TO IDLE

:BR IF NOT

JRESET THE

INDICATOR

;CLEAR THE TRANSFER QUEUE
ULDFLG(R1)
sCLEAR UNLOAD FLAG
;?IT12,RH(S2(R4)
;'NED" SET ?
sMOVE TO THE NEXT DRIVE
#2,R3
27 ,R1
1%

DRVSTA(R1)
DRVTYP(R1)
PC,SET.IE

;BR IF MORE DRIVES
sNO DATA TRANSFERS UNDERWAY
;CLEAR 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"

sRETURN

#-1,DTuW
TRNSWT

PC, CLRQUE
#CLR,RMCS2(R4)

PC,EMPTYQ

;INTERRUPT SERVICE ROUTINE

JRESTORE RO = R5

01,

CZRMTBD RM0S5/3/2 DR (MPT

RH/RM DRIVER

TST

INITIALIZATION

690
691 032762
692 032770

MACRO v04.00

030252

03302¢
033174

ISR:

18:
’%:

030252

MOvB
SAVREG
MOV
MOv
BLT
JSR
JSR
RESREG
(LRB

RT]

030176
177777

030310

177777

030270

10:

CLRB

ACTDRV

000016

004737
005702
001403
004737
000207
012714
000207

052762
004737
004737
012714
012714
000207

#=1,TIMER(RY)
R1
TRNSWT ,R2
TRNSWT

ASL

RM(S1

#M1707,16(R2)

R1,RM(S2(R4)
RO,RD .RM
(SP)+

8PL

035330
036164

1$:

JSR

JSR’

1T
BEQ
JSR

031354

000113
100100
036070
035330
040111
000113

DRVACT(R1)

MOV
ASR
MOV

(LR
BIS
MOV
JSR

C30264

736 033156

PC,SC

#=1,DTuw

clz

737 033162
738 033166
739 033172

RMADR R4

DTUW,R1
1%
PC,TD

MOV

ROL

734 033144
735 033152

#1 ,ACTDRYV

JSET ""ACTIVE DRIVER'' FLAG

;SAVE RO = RS

;ADDRESS OF RM(CS1
;GET "DATA TRANSFER UNDERWAY'' INDICATOR
sBR IF NO DATA TRANSFER UNDERWAY
sCALL

TRANSFER DONE

sCALL SPECIAL CONDITIONS

JRESTORE RO = RS
JCLEAR "ACTIVE DRIVER'' FLAG
JRETURN

; TRANSFER DONE ROUT INE

030246
030246
000200
000010
034756

732 033142

25~ 12

SEQ 0126

030324
030310

700 033022
701

J 10

18:12:15 PAGE

CODE

00000+

693 032772
694 032776
695 033002
€96 033004
697 033010
698 033014
699 033016

4-APR-81

’%:

000076

18:

RTS

MOV
RTS

8IS

JSR
JSR
MOV
MOV
RTS

P(C,SVRH70

PC,GETREQ
R2

PC,OPT
P

¢
#113,(R&)

sSET DRIVE ACTIVE INDICATOR TO iDLE
;NO DATA TRANSFERS UNDERWAY
sCANCEL TIMEOUT

;GET 'DPR’* ADDRESS FROM THE

s TRANSFER WAIT QUEUE--CLEAR QUEUE

;SET DONE
sSELECT THE DRIVE
; TRANSFER ERROR(TRE=1)?

;1S TRE=1 ?
;BR IF YES

;SAVE THE RH/RM REGISTERS?
:BR IF NO
JYES==SAVE THE REGISTERS
;GET DPB POINT-R
;ENTRY FOR DRIVE ?
;BR IF NOT

;CALL OPTIMIZER

sRETURN

;RELEASE

;RETURN

THE DRIVE

#BIT15:B1106,16(R2)

PC.EMPTYQ

PC,SVRH70

260111, (RG)

#1113, (R4)

;SET DATA ERROR FLAG
;EMPTY THE "DRIVE'S WAIT'' QUEUE
:SAVE THE PH/RM REGISTERS

;ISSUE A 'DRIVE CLEAR"
;ISSUE A RELEASE TO THE DRIVE
sRETURN

sSPECIAL C(ONDITION ROUTINE
765 033174
766 033200
767 033202

768 033206
769 033210
770 033212
771 033214
772 033216
033222

116403

001014
004037
000000

000016

034756

.1 ¢

MOVB

BNE
JSR
RM(S1?

ROLB

036254

BM]
JSR
EMT

RMAS (R4) ,R3

;READ 'RMAS''

sBR IF ANY 'ATA' BITS SET

(SP)+
1%

13 "IE' o8
sYES, NO DRIVES TO CHECK
;SAVE THE ADDRESS IN ‘SESCAPE'
JREPORT AN ILLEGAL INTERRUPT

RO,RD.RM

?0.ES.SAV

JREAD CONTROL AND STATUS REGISTER

}
|

;

CZRMTBO RM0S5/3/2 DR CMPT

RH/RM DRIVER

TST

INITIALIZATION CODE

773 033224

774 033230

004737

000207

MACRO v04.00

035446

1%:

005046
110316

;;g 033242

005001

780 033244

030316

SC3:

783 033250
734 033252

005201
106303

SC4:

;g; 033246
785 033254

786 033256
% 033260

789 033262

012703

105761

001402

795 033306
796 033312
797 033314

105761

000137

105761
003022
105761

030236
030206

817 033400

001323

819 033406

100412

814 033370
815
816 033374
818 033402

820 033410

821 033416
825 033420
826 033424
827 033430
828 033432

829 033434

830 033436
033442

831 033444

832 033446
033446
033452

030176

4$:

030226

105761

030206

032737

020000

R1
R3

;MOVE TO THE NEXT DRIVE

ST
RTS

SC3

(SP) +
PC

;BR IF MORE TO CHECK?
SCLEAN OFF THE STACK
SRETURN TO USER

T1STR

DPINT(R1)

sINITIALIZING THE DRIVE ?

TSTR

DPRQS (R1)

:PORT REQUEST OUTSTANDING ?

JMP

SC13

BEQ
oM

BEQ

18
$C13

5%:

030172

036254

000701

036254

7%:

PC,SVRH70
PC,SC12
DRVSTA(R1)

BIT

#BIT14,RMERRS

“YES

:BR IF NOT
:PROCESS THE DRIVE

:BR IF NOT

:START THE OUTSTANDING COMMAND

:CHECK THE DRIVE STATUS
:BR IF ONLINE
“UNLOAD IN PROGRESS?

:BR IF NOT

:GET DPB POINTER

:SAVE THE RH/RM REGISTERS
:SAVE RMDS, RMER1, RMER2, AND RMMR2

;ALSO DO A DRIVE INIT (DRVINT)
:DID DRIVE COME ONLINE?

;NO

BNE
MOV
]
TSIR
BNE

3
RMERRS+2 RS
SCOA
DRVACT(R1)
SCé

:BR IF ERROR
p
:YES == PICKUP RMER1 AND
;GO PROCESS THE ERROR
;DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ?
:BR IF EITHER

TSTB

DPINT(R1)

1STR

DRVSTA(R1)

BNE

PC,SC12

;WAS THERE AN ERROR?

:SAVE RMDS, RMER1. RMER2. AND RMMR2
;ALSO DO A DRVINT
;TRYING TO INIT THE DRIVE ?

SC4

:BR IF YES, CHECK ON MORE DRIVES

BM]

:BR IF UNSAFE

BNE
MOV
JSR
RMCS1

7%
#111,-(SP)
RO,WRT.RM

817

68:

TSTR

JSR

000111
035136

033776

004037
104005

INC
ASLB

BLE

11 8

105761

004037
104002

;ATA=1?

JSR
JSR

030170
034136

011605

R3, (SP)

PC.GETREQ

004737

001013
012746
004037
000000

BIT

BNE

BLE

0307166

*RETURN

JSR

040000

001000
013705
000504
105761
001033

2%:

#1,R3

036164

032737

806 033352
810 033354
811 033360
812 033362
813 033366

;PROCESS ALL DRIVES THAT HAVE
JAN "ATA''=1

030254

030206

805 033344

-(SP)
R3,(SP)

DRYSTA(R)
48
ULDFLG(RY)

105761

003414

CLR
MOVAR

TSTR
BGT
TSTB

035330
034136

804 033342

18:

034206

004737
004737

802

SCS:

034206

800 033326
801 033332
803 033336

:SET INTERRUPT ENABLE

(LR

030226

003420

004737

PC,SET.IE

BNE

798 033320

799 033322

JSR

RTS

MOV

005726
000207

793 033300

794 033302

000001

001373

001402
000137

792 033274

2%:

001005

790 033266
791 033270

K 10
18:12:15 PAGE 25-13
SEQ 0127

775 03332
276 03323¢

777 033236

4&=-APR=-81

SC8

MOV

;CHECK ON DRIVE'S STATUS

#BIT13,RMERRS+4 ;ADDRESS PLUG CHANGED ?

(SP) ,RS

:BR IF YES
;DRIVE CLEAR
JWRITE THE COMMAND INTO RMCS1
;REGISTER INDEX
;PARITY EXIT ADDRESS

:PICKUP (RMAS) BEFORE THE ERROR CALL

JSR
EMT

RO,ES.SAV
2

;SAVE THE ADDRESS IN ‘SESCAPE'
:REPORT THE UNEXPECTED ATTENTION

JSR
EMT

RO,ES.SAV
5

:SAVE THE ADDRESS IN 'SESCAPE®
JREPORT THE ADDRESS PLUG CHANGE

E12

SC4

;GO CHECK FOR MORE ATA'S

CZRMTBO RMOS/3/2 DR (MPT

RH/RM DRIVER

TST

INITIALIZATION CODE

833 033454
834
835 033456
836 033460

837 033466
838 033470
839 033474
840 033500

841 033504
842 033510
843 033512
844 033514
845 033516
846 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
860
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
886
887 033720
891 033724
892 033730

MACRO v04.0C

100407
105761

003137
052762
000470
004037

000014
033776
012605

004737

012746
004037
000000
033776

17277277

030270

105061
105761

BGT

000016
18:

BIS
B8R
JSR
RMER!

MOV
JSR
MOV
JSR
RM(S?

035330
000111
035136

R1RMCS2(R4)

scii

+SELECT DRIVE

*PROCESS THE SEARCH

RO,RD.RM

*READ THE RM'S STATUS REG.

(SP) ,RS
(5P)+

;AND PUT IT IN RS
‘WAS THERE AN ERROR?

1%
DRVACT (R1)
SC11

‘BR IF ERROR
cuecx DRIVE'S STATE

RO,RD.RM

;READ ERROR REGISTER #1

IF DRIVE ACTIVE WITH ORDER

g?ms'B1707!8nbs 16(R2)
(SP)+,RS

;AND SAVE

;INFORM USER OF ERROR RECOVER COMPLETION

IT IN RS

PC,SVRH70
#1171,-(sP)

*SAVE RH/RM REGISTERS
*ISSUE A DRIVE CLEAR

RS
1%
R2

;WAS ‘UNSAFE'* CONDITION =1?
‘BR IF YES
mvmmc IN QUEUE ?

RO, HRY RM

sc8

SC6A:

ROL

TST

100240

000016

034756

1%:

JSR
RMDS

RO.RD.RM

;READ DRIVE STATUS REG. #1

(SP) RS (SP)+

:SAVE RMDS IN RS
STERR' =12

ROL

030206

110000

000016

JSR
BIS

2%:

BIT

177777
000001

030176
030206

MOVB
MOvB

035230

030270

033250
100220

000016

MoV
ASR
JMP
BIS

030176
036206
030254

ASL

3$:
SC7:

IF NOT

gems'BIT07!BI rbs 16(R2)

SC8

177777

SC7

BEQ
8IS

MOv

010000

004737

;SETUP TC ADDRESS WORDS
:STOP THE TIMER
*RESTORE THE DRIVE ADDRESS
“GET THE DPB POINTER FROM THE OUEUE

SC8

032705
001015
112761

006301
012761
006201
000137
052762

R1
#=1,TIMER(R1)
R1
PC,GE TREQ

1ST8

034756

035330

112761

ASL

8M]

03017¢

004737
052762

000423

;CHECK FOR MORE DRIVES

ROL

100406

100011
112761

$C4

JMP
JSR
RMDS
S(8
MOV

006105

005702
001447
052762
000443
004037
000012
033776
011605
006126

BR
MOV
ASR
JSR
MOv

036164
000010
034026
03475¢

100210

L 10

18:12:15 PAGE 25-14

SEQ 0178

000675

006301
012761
006201
004737
010164
000137
004037
000012
033776
011605
006126

4~APR-81

CLRB

JSR

TSTB

:INFORM USER OF ERROR

:BR IF NO--UNSAFE CLEARED
:DRIVE IS UNSAFE
PC, SVRN?O
;SAVE RH/RM REGISTERS
#B1T15'B1T12,16(R2)
: INFORM USER OF UNSAFE ERROR

#-1_,DRVSTA(RT)

sC7

#BIT12,RS5
3s

#-1_,DRVACT(R1)
#1,DRVSTA(R1)

QW =2 12
;BR _IF YES

sACTIVE ERROR RECOVER

:ONL INE

R1
#15000.,TIMER(R1)
R1

;START 15. SECOND TIMER

SC4
#B1T15!BIT07!BIT04,16(R2)
DRVACT(R1)

PC ,POPQUE

ULDFLG(RT)

s INFORM USER OF ERROR

;DRIVE IS IDLE
;REMOVE THE QUEUE
sUNLOAD IN PROGRESS OR QUEUE?

910 034010
911 034014
912 034016
916 034016
917 034022
918
919 034026
920 034032
921 034034

922 034040
923 034044
924
925 034052

926 034054
927 034060
928 034066
929 034072
930 034074

931 034100
932 034106
933 034114
934 034116
935 034124

936 034126
937 034132
938
939 034136

940 034142
941 034150
942 034156
943 034164
944 034172
945 034176

003002
105061
116164
105761
100406

3 2
3 3
3 2

F2 &R

893 033734
894 033736
895 033742
896 033750
897 033754
901 033756
902 033762
903 033766
904 033770
905 033772
906
907 033776
908 034002
909 034004

lolele]

INITIALIZATION CODE
[elelal

RH/RM DRIVER

TST

MACRD v04.00

M 10
18:12:15 PAGE 25-15
SEQ

8GT
000016

ULDFLG(RT)

:BR IF NOT

:CLEAR UNLOAD FLAG

ATABIT(R1),RMAS (R&)
:CLEAR ATTENTION BIT
DRVSTA(R1)
:1S THE DRIVE UNSAFE
?

1%:

“BR IF

RO,WRT.RM

:WRITE THE COMMAND INTO RPCS1

IT IS

033250

2%:

SC4

:PARITY EXIT ADDRESS
:CHECK FOR MORE DRIVES

105761

030176

SC8:

?gucr(an

xgsomvs IDLE?

PC,GETREQ

“GET DPB POINTER

* CONT INUE

]
51

#111,=(5P)

001405
004737
004737
000402

036164
032432

004737
000137

032454
033250

2%:

105761
003402
105061

030254

030254
030176
030312

105061
136137

001012
004737
052762
005737
100002
004737
116164
146137

006301
012761
006201
004737
000137

010164
016437
016437

036206
000200
030264

PC.CI7
1%:

030250

%oncmn

wing IN PROGRESS’“?

1%:

ULDFLG(R1)
*CLEAR UNLOAD FLAG
DRVACT(R1)
“SET DRIVE IDLE
ATABIT(R1) , SRCHWT
;:DOING A SEARCH OPERATION FOR

BITB

035330
030312
030312

000016
030250

B8PL
JSR
MOvB
8I(8

177777

030270

TST

2%:

ASL

MOV
ASR
JSR
JMP

031354
033250

177777

030270

000010
030312
030226

000016

*PROCESS THE PARITY ERROR

SC11:

JSR
BIS

030166
030170
030172
030174

‘REGISTER INDEX

;PROCESS THE UNCORRECTABLE PARITY ERROR

SC4

000016

000010
000012
000014
000042
000040
030546

‘DRIVE CLEAR COMMAND

PC.CI78

sc12:

1%:

954 034224
955 034232

4-APR-B1

012746
004037
000000
033776
000137

CZRMTBO RMOS5/3/2 DR (MPT

SC13:

1%:

MOV
MOV
MOV
MOV
MoV
JSR
RTS
TST

:AN 1/0 COMMAND?
:BR IF YES

PC , POPQUE

:REMOVE REQUEST FROM QUEUE

SAVEFG

*SAVE THE REGISTERS?

#MIT07,16(R2)

:SET 'DONE'’ BIT

:BR IF NO

PC,SVRH70

:YES==SAVE ALL OF THE RH/RM REG'S

R1
#<1,TIMER(R1)
R1
:

;WORD INDEX
:STOP CLOCK
*RESTORE R1

SC4

:CHECK FOR MORE DRIVES

ATABIT(R1) ,RMAS (R4)
ATABIT(R1) . SRCHWT

PC,0PT

R1,RMCS2(R4)

:CLEAR ATTENTION BIT
:CLEAR IMPLIED SEEK SET

*START A REQUEST

;SELECT DRIVE

RMDS
(R4 ) ,RMERRS :SAVE THE FOUR REGISTERS THAT
RMER1 (R4 ) ,RMERRS
+2
sWILL TELL US SOMETHING
RMER2 (R4 ) . RMERRS
+4

RMMR2 (R4 ) , RMERRS
+6
RO,DRVINT
13

:INIT. THE STATE OF THE DRIVF
*TAKE ERROR EXIT

SC8

*PROCESS THE PARITY ERROR

PC
(SP)+

ASL
MOV
ASR

R1
:;1,nnenm1)

TSTB

DPINT (RT)

MOV
MOvVB

:CHECK MORE DRIVES

*RETURN
:POP PC OFF OF

THE STACK

:SETUP TO ADDRESS WORDS
:STOP THE TIMER

R1,RMCS2 (R&4)
“SELECT THE DRIVE
ATABIT(R1) ,RMAS (R4)
:CLEAR THE ATTENTION BIT
;INITIALIZING THE DRIVE ?

0129

CZRMTBO RM0S/3/2 DR CMPT TST

RH/RM DRIVER

INITIALIZATION CODE

956 (34236
957 034240
958 034244
959 034250

960 034252
961 034256
962 034260
963 034262
964 034264
965 034270
966 034276
970 034302
971 034306
972 034310

973 034316
974 034320
975 034322
976 034330
977 034332
978 C34334
979 034340
980
981
982
983
984
985
986
987
988
989
990
991
992
993
99%

995
99
997
998
999
1000
1001
1002
1003
1004

1005

1006

1007
1008
1009
101 0
101 #
101 2
101 3

10 1 #
1
1015

001424
105061

004037
000240
105761
003014
005702
001426
004737
052762
004737
004737
000414
032764
001006
006301
012761
006201
000402
004737
000137

MACRO v04.00

140000

2%
DPINT(R1)
RO,DRVINT

TSTR

DRVSTA(R1)

TST

JSR

PC,GETREQ

g;‘;"

';E " POPQUE

BIT

#BIT11,RMCST(R4)

MOV

#15000. , TIMER(R1)

BGT

BEQ

BIS
JSR

000016

036206
004000

000000

035230

030270

031354
033250

28:

grgf

ASR

48:

JSR

;BR IF NOT
sCLEAR THE INIT INDICATOR
;GO INIT THE DRIVE
;DUMMY PARITY ERROR RETURN
;DRIVE ONLINE ?

BEQ
CLRB
JSR
NOP

030206

035330

N 10
18:12:15 PAGE 25-16

SEQ 0130

030226
030546

036164

&4-APR-81

JMP

;BR IF YES == START ORDER
;QUEUE ENTRY FOR THE DRIVE

BR IF _NOT
GET DPB ADDRESS
#BiT15'BIT14, 16(R2)
; INFORM USER THAT DRIVE OFFL INE

PC,SVRH70

;SAVE THE REGISTERS

*REMOVE THE QUEUE

;DVA SET ?

;SET THEN CALL OPT

;START 15. SECOND TIMER

PC,OPT

5C4

:START

THE PENDING REQUEST

*PROCESS OTHER DRIVES

,-:cu: TIMER ROUT INE

:
:
005737
001027
112737
104412

005001
005003
005763
002406
166663
003002
004737
V05201
005723
022701
003362
104413
105037
012616
000207

030252
000001

RMTMR:

030253

034434

#TIME,-(SP)
PC,RMTMR

TST

ACTDRY

BNE

3$:

4%:

MOVB

#1,ACTSIR

CLR

“START WITH DRIVE 0

TIMER(R3)

xs THE TIMER RUNNING?

(LR

BLT

‘CALL:

“SET “ACTSTR''
*SAVE RO - RS

BR IF NO

2(SP) , TIMER(R3) coum THE INTERVAL
2

*BR IF NO SOF TWARE TIMEOUT

JSR
INC

PC,STO
R1

#8. .R1

RE SREG
CLRB

ACTSTR

RTS

*RETURN

1ST

8GT

MOV

:SOF TWARE
*NOTE:
:

:CHECK *“‘ACTDRV & ACTSTR''

:IF NON ZERO EXIT

BGT
2%:

;ELASPED TIME IN MILLISECONDS ON THE STACK
*CALL RMOS TIME ROUTINE

SUB

030270

000010

030253

MOV
JSR

SAVREG

1$:

030270
000002

CALL

(R3)+

(SP)+, (SP)

*CALL SOF TWARE TIMEOUT ROUTINE
*MOVE TO NEXT DRIVE

:0UT OF DRIVES?

‘BR IF NO

*ADJUST THE STACK

TIMEOUT ROUTINE

THIS ROUTINE MUST BE
OR GREATER
STO

MOV

JSR
RE TURN

#DRVNUM ,R1
PC,5T0

ENTERED AT PRIORITY 6

:DRIVE NUMBER
“CALL

TIMEOUT ROUTINE FLAG

‘

8 n

RH/RM DRIVER INITIALIZATION CODE

1016

10146

1019

1021

SIFARAN

sSAVE R1
sSAVE R2

R1_-(SP)

R2.-(SP)

R3,-(SP)

R4, -(SP)
RMADR R4
R1_RM(S2(RS)

RO_RD.RM

030226

sSAVE R3

sSAVE R4
sGET ADDRESS OF "RM(S1'"
sSELECT THE DRIVE

JREAD "DRIVE STATUS REG''

;BR IF YES

STO1:

;TRYING TO INTIALIZE

nNONSO

==
e

b
A

030246
030310
034744
036164

101000

oOrO

030254
030246

000016

1%:

#BIT15'BIT09,16(R2)

ST09

+SET THE ERROR FLAGS
;SAVE RH/RM REGISTERS
;DRIVE IS IDLE
;CLEAR THE UNLOAD FLAG
;CLEAR DPB ADDRESS
sCLEAR THE TRANSFER DRIVE #
;DON'T BOTHER OTHER DRIVES

RMAS (R4) RS
ATABIT(R1) ,RS

sREAD ATTENTION REG
:igsATTENTI(N FOR THIS DRIVE UP ?

DPINT(R1)
ST06
DPRGS (R1)

sTRYING TO INTIALIZE THE DRIVE ?
sBR _IF YES = DRIVE NOT ONL INE
sOUTSTANDING PORT REQUEST FOR THE DRIVE ?
;BR IF YES - NO RESPONSE TO REQUEST
;OTHER WISE EXIT

PC,SVRH70

TRNSWT
#-1,DTUW

030310

ST02:

ST03

037236

ST07

ST09

—

PC,GETREQ

DRVACT(R1)
ULDFLG(RY)

030226

030226
030236

ST03:

DPINT(R1)
1$
DPRQS(R1)

18%:

#-1,TIMER(R3)

ST09

JINITIALIZING THE DRIVE ?
;BR IF INIT PENDING
;PORT REQUEST PENDING ?
:BR IF NOT
;STOP THE TIMER
JEXIT

032532

STOS:

PC.CI8

;GO HANDLE THE PARITY ERROR

030226
030
177777
V36164

ST06:

DPINT(R1)
DRVSTA(R1)
#-1,TIMER(R3)

;CLEAR THE INITIALIZE INDICATOR
sSET UNIT OFFLINE
;STOP THE TIMER
;GET THE DPB ADDRESS
sREQUEST IN QUEUE ?

177777

012763

s TRANSFER UNDERWAY ON THIS DRIVE?
;BR IF YES
;IF NOT DON'T BOTHER DRIVES
;GET DPB ADDRESS

ST09

000016
030312

~
S

OO
PN - -

177777

sPICKUP TRANSFER WAIT QUEUE

030176

AV LV IV ]

IYRR

035330

THE DRIVE

;BR IF YES
;OUTSTANDING PORT REQUEST ‘OR THE DRIVE ?
sBR IF YES

030236

) A el
ks

D il it il il

ODTOO0O0O00O

1B:12:15 PAGE 25-17

;IS "DRY'=1?

D ol il el el el

IETFIRIR2ZT2

D ol el

D el el el ol

)

23220030
\fl\fl\h\fi??

—Y —Id.‘—‘d-‘-‘—.dddd— —d — b
loleoleloleleolel

~-APR-81

S€E0 019

ST0:

1017
1018

Al il

MACRO v04.00

2233

CZRMTBO RMOS5/3/2 DR (MPT TST

030270

140000

000016

1727777

030270

ST09

;

ST09

PC.GETREQ

R2
ST09

;BR IF NOT

#BIT15'BIT14,16(R2)

STO7:

; INFORM THE USER DRIVE NOT AVAILABLE

STO08

;FINISH

#-1,TIMER(R3)

;STOP THE TIMER

|
|

CZRMTBO RMOS5/3/2 DR (MPT TST

RM/RM DRIVER INITIALIZATION CODE

1079 034712
1080 034716

1081 034752

106% 0%:7 4
1083 0 ;gz
1084 034
1085 034740
1086 034744
1087 034746
1088 034750
1089 034752
1090 034754

1091

105(7)31
004737

005702

001407
012762
004737
004737
012604
012603
012602
012601
000207

MACRO v04.00

000016

STO8:

ST09:

1093

s CALL
:
2

1900

:
1101 034756
013737 030322
035124
RD.RM:
1102 034764
1103 034766

1104 034774
1105 035000

1106 035002
1107 035004
1108 035006
1109 035014
1110 035020
1M 035053

111§ 0350

1113
035032
1114 035036
1115 035042
1116 035044
1117 035046

1118 035050
035050
035054

1119 0359”23

011646
013737

37
013727

030324

035002

013766
013746
062716
032736

035004
030324
(000010
010000

000002

017746
032716
001002
022620
000432

173266
020000

004037
104003

036254

001037

005737

030310

5064

032716

040000

115 035072
1124 035074
1152 035076
1126
035102
1127 035104

005726
15
052716
316
013737

1120 8

CLRB
JSR
TST
BEQ
MOV
JSR
JSR
MOV
MOV
MOV
MOV
RTS

DPRQS (R1)

<CLEAR PORT REQUEST INDICATOR

R2
ST09

sQUEUE ENTRY FOR DRIVE ?
IF NONE

PC.GETREQ

#BIT15!BIT2,16(R
PC,EMPTYQ
PC,SVRH70

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

sGET DPB ADDRESS

; INFORM USER OF PORT REQUEST ERROR
sCLEAR THE QUEUE FOR THE DRIVE
sSAVE THE REGISTERS
RESTORE R4
sRESTORE R3
sRESTORE R2
;RESTORE R1
sRETURN

;ROUTINE TO READ A RH/RM REGISTER

1094
1095
1096
1097
1098

1151

18:12:15 PAGE 25-18
SEQ

030236
(36164

100004
036070
035330

4-APR-B1

n i 035070

1128 035112

100405

001402

005237

1130 033120 ooogoo”“”
1131 035122
113; 035124
1133 035126

005327
000003
002324

JSR
INDEX
ERRADR

035120

JSR
EMT
TST
B8M]
BIT

BR
BIS

INC
MOvB
. WORD
DEC
RD.RM2: . WORD
BGE

;SAVE RO FOR RETURN

(SP)+, (RO)+
. RM4
RD

;FORM THE DESIRED ADDRESS
;USING THE BASE AND THE INDEX
;READ THE DESIRED REGISTER OF THE RM DRIVE
;ADDRESS IS FORMED HERE
;REG. CONTENTS PUT HERE
JRETURN IT TO THE USER
;PUT THE ADDRESS ON THE STACK
;FORM THE ADDRESS OF RM(CS?2
;CHECK THE °NED' BIT
;BR IF DRIVE NON-EXISTENT
;READ RM(CS1
;:DID MCPE SET?
:BR IF YES
;ADJUST FOR RETURN
JEXIT

l;O.ES.SAV

;SAVE THE ADDRESS IN °'SESCAPE'

DTUW

:DATA TRANSFER UNDERWAY?

(RO)+.RD.ADR
A(PC)+, (PC)+
0

0
RD.WRD,2(SP)
RMADR, - (SP)

gms.(sp)

SWAB
MOV

RMADR ,RD. ADR

BIT

BNE
CMP
BR

TST

030324
035120

;MAX. RETRYS ALLOWED

#RMCS2., (SP)

BEQ

2%:

MCPEMX
, RD . RM2
(SP) ,~(SP)

ADD
BIT
BNE

MOV

040000

;GO READ A REGISTER
JREG. INDEX FROM BASE
;ERROR ADDRESS=-PROCESS ERROR STARTING
;AT THIS ADDRESS
;CONTENTS OF REG. IS ON THE STACK

RETURN

MOV
MoV
MOV
ADD
RD.RM1: MOV
RD.ADR: .WORD
RD.WRD: .WORD
MOV
MOV

1$:

RO.RD.RM

#BIT12.3(SP)+
RD.RM3
BRMADR
, = (SP)

2%
#BIT14,(SP)
2%
(SP)
+

RD.RM3
#BIT14,(SP)
(SP)
3%
RMADR,
(()SP)*,B(PC)*

;REPORT ‘MCPE'' ERROR

2NO

JTRE' = 1 ?

2NO
sYES=-CLEAN OFF THE STACK AND
;TAKE THE FATAL ERROR EXIT

;CLEAR "MCPE'* BY SENDING A '"1'" TO ""TRE"'
;POSITION BEFORE WRITING
;FORM ADDRESS OF HIGH BYTE
;WRITE

THE HIGH BYTE OF

(PC)+

;ADDRESS STORAGE
sEXCEEDED MAX. RETRYS

RD.RM1

;BR IF NO

RMC(S1

(ZRMTBO RMOS5/3/2 DR (MPT

RH/RM DRIVER

INITIALIZATION CODE

035132
035134

MACRO v04.00

RD.RM3: MOV

011000
012616
000200

MOV
RD.RM&: RTS
JROUTINE

Dl
i

D e

e e

— e

s CALL
:
:
;
.

122737

35224
35226

) — o

)

) — —— — — —

B o

b d e

b d d d e

013737
016637
012616
012037
001015

BIRRREV2BID

b el

)

—
I

eropdd i

Oo
O

4-APR-81

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

035226
000150

035224

034756

177770

035225
030324

035226

030324
000010
010000
034756
000010
177776

034756

D1
18:12:15 PAGE 25-19

SEQ 0133

d d D e e

DS o S0
YNNIV IITEARTRAR2SBHLR VIV
FPARN SO VRNC N~ —O DRI

D d d ok

1134 035130

s -

TST

MoV
JSR

INDEX
ERRADR
RETURN

MOV
BNE
CMPB
BLT
JSR
RM(CS1
WRT.R3
SWAB
BIC
MOVB
1%:
ADD
WRT.R1: MOV
WRT.WD: .WORD
WRT.AD: .WORD
MOV
ADD
BIT
BNE
JSR
RMER1
WRT.R3
BIT
-

BEQ

1%:

036254

WRT.R2:

WRT.R3:
WRT.R4:
WRT.RS5:

(SP)+, (SP)

;FATAL

ERROR EXIT

TO WRITE A REGISTER

WRT.RM: MOV
MOV
MOV

035276

(RO) RO

MOV
JSR
.WORD
WRT.R3
JSR
EMT
TST
DEC
.WORD
BGE
MOV
BR
TST
RTS

DATA,-{SP)
RO,WRT.RM

;DATA TO BE LOADED ON THE STACK
sCALL THE ROUTINE TO LOAD(WRITE) THE REG.
s INDEX OF THE REGiSTER TO BE LOADED
sADDRESS TO RETURN TO ON AN ERROR
;ERROR FREE RETURN

MCPEMX ,WRT.R2

sMAX RETRYS ALLOWED
;SAVE THE WORD TO WRITE
sADJUST THE STACK

2(SP) ,WRT.WD
+, (SP)
(SP)

{gO)*.URT.AD
#150,WRT.WD

1%
RO,.RD.RM

(SP)
#*C7.(SP)
(SP)+,WRT.WD+1
RMADR
. WRT . AD
(PC)+.a(PC)+

0
0
RMADR, - (SP)

ARMCS2, (SP)

#BIT12.9(SP)+
WRT.R3
RO,RD.RM

;GET 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
;THE COMMAND BEFORE SENDING IT TO
:THE RH/RM

;FORM THE ADDRESS OF THE DISK REG.
;LOAD THE DESIRED REG.
;WORD TO WRITE GOES HERE
sADDRESS IS FORMED HERE
;PUT THE ADDRESS ON THE STACK
;FORM THE ADDRESS OF RM(S2

;CHECK THE °‘NED' BIT

:BR _IF DRIVE NON-EXISTENT
;CHECK FOR PARITY ERROR ON WRITE

#BITO3, (SP)+

WRT.R4

=2(R0),1%
gO.RD.RH
RO,ES.SAV
4

(SP)+
(PC)+

WRT.R1

(RO) ,RO
WRT.RS
(RO)
+

;PICKUP THE INDEX
;READ THE REG.
sREG. 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
:RETRY COUNTER

sTRY AGAIN IF NOT FINISHED

;TAKE THE "PARITY ON WRITE'' ERROR EXIT

JEXIT
;ADJUST FOR ERROR FREE EXIT

;ROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPB+14

“CALL

CZRMTBO RMO0S5/3/2 DR (MPT

INITIALIZATION CODE

228

1228 035444
1229
1230
1231
1232
1233
1234
1235
1236 035446
1237 035450
1238 035454
1239 035460
1240 035462
1241 035466
1242 035470
1243 035474

1244 035502
1245 035504
1246 035506
1247 035510
1248 035514
1249 035516
1250
1251
1252
1253 035520
1256 035521

035522
035523
035524

111264

016203
001433
005037
023727

SVRH70: SAVREG
TST

BEQ

030324
000010
000014
035410
035410

000022

032764
001002
005023

000200

000010

004037
000000
035436
012623
023727
001406
062737
000751
004737
104413
000207

034756

1$:

2%:
3%:

035410

000046

000002

035410

032432

48:

MOV
MOvB
MOV
BEQ
CLR
(MP
BNE
BIT
BNE
CLR
BR
JSR
. WORD

MOV
CMP
BEQ

ADD

5%:
6%:

BR
JSR
RESREG
RTS

#DPBNUM,R2

:DPB POINTER TO R2

R2
6%
RMADR R4
(R2) ,RMCS2 (R4)

;QUEUE ENTRY FOR THE DRIVE ?
;BR IF NONE

PC.SVRH?0

14(R2) ,R3

;SAVE

THE DRIVES REG'S

;SAVE RO = RS

sSELECT DRIVE

;GET THE ERROR TABLE POINTER

JEXIT IF NO ADDRESS
;COUNTER & POINTER

JREACHED THE BUFFER REGISTER ?

2%
;BR IF NOT
5%1T07.RHCSZ(R4)
;'OR" SET ?
(R3)+
43
SO.RD.RH
(SP)+,(R3)+

;BR IF SET
;STORE RMDB AS ZEROES
; CONT INUE
;READ THE SELECTED REGISTER
JREGISTER INDEX
;ERROR RETURN ADDRESS

STORE THE REGISTER CONTENTS

3$.#RMEC2

JREACHED THE END ?

s INCREMENT THE REGISTER INDEX
;CONTINUE READING THE REGISTERS
;PROCESS THE UNCORRECTABLE PARITY ERROR
;RESTORE RO ~ RS
sRETURN

6%
#2,3%
1%
PC.CI17

;BR IF YES

sROUTINE TO SET THE INTERRUPT WITHOUT GETTING A °'TRE'’
s CALL

SET.IE:

030324
000010

#DRVNUM,R1
PC.SET.IE

;DRIVE NUMBER TO R1

R4 ,=(SP)
RMADR, R4
R1,RMCS2(R4)
(R4) ,~(SP)

;SAVE R4
;PICKUP ADDRESS OF RMCS1

(SP)

:gg#u§lsfpn DATO

;IS 'NED''=1?
;YES--CLEAR '‘TRE'’
;CLEAN OFF THE STACK

040000

#MIT14,(SP)

000100
010000

BIT

#B1106, (R4)
1?1712.RHC52(R4)

TST

(SP)+

000001

000010

1%:

2%:

BR
MOVB
MOov
RTS

(SP)+,1(R4)
(SP)+ R4

:SELECT DRIVE

;READ RMCS1

JSET THE '‘TRE'' BIT OF

;CLEAR ''TRE"'

;RESTORE R4
JRETURN TO CALLER

;QUEUE COUNT
QCNT:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

eolelelels)

W
w

jelelelolelele]

WWWWW&WWWW
v

CHS FRGCSEERIRIRACR

D e e e
e
D o
e
D
i
d nd o
ol o o o

e I

1226 035442

005702
001442
013704

E 1
18:12:15 PAGE 25-20
SEQ 0134

104412

4-APR-B1
MOV
JSR

SLVLS
TN NN

MACRO v04.00

— D

RH/RM DRIVER

TST

;DRIVE 0
;DRIVE 1

:DRIVE 2

DRIVE 3
VE 4

THE WORD READ

(ZRMTBO RMOS/3/2 DR (MPT

RH/RM DRIVER

TST

INITIALIZATION CODE

035525

035526

1257 035527

MACRO v04.00

000

000
000

1260 035530

035612

035534
035536
035540
035542
035544
S 035546

035652
035672
035712
035732
035752
035772

}ggz

sDRIVE 5

BYTE

;DRIVE 7

035612
035632
035652

QOUTPT:

1272 035570
1273 035572
1274 035574
1275 035576
1275 035600

035612
035632
035652
035672
035712

QSTART:
QSTOP:

1278 035604
1279 035606

035752
035772

035556
035560
035562
035564
035566

1277 035602
:gg? 035610

.WORD

QDRVO

;DRIVE 0

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

QDRVZ2
QDRV3
QDRV4
QDRV5
QDRV6é
QDRV?7

;DRIVE
;DRIVE
:DRIVE
sDRIVE
;DRIVE
:DRIVE

.WORD

QDRV1

035672
035712
035732
035752
(35772

.WORD
.WORD
.WORD

;DRIVE

2
3
4
5
6
7

.WORD
.WORD
.WGRD
.WORD
.WORD

QDRVO
QDRV1
QDRV?2

QDRV3
QDRV4
QDRVS
QDRV6
QDRV7

:DRIVE 0
;DRIVE 1
;DRIVE 2

.WORD
.WORD
.WORD
.WORD
.WORD

QDRVQ
QDRV]
QDRV?2
QDRV3
QDRV4

;DRIVE O START ADDRESS
;DRIVE O STOP ADDRESS & DRIVE 1
;STOP DRIVE 1--START DRIVE 2
;STOP DRIVE 2--START DRIVE 3
;STOP DRIVE 3--START DRIVE 4

.WORD
.WORD

QDRV6
QDRV?7

;STOP DRIVE 5--START DRIVE 6
;STOP DRIVE 6-=START DRIVE 7

035732

.WORD

036012

.WORD

QDRVS

QTERM

}gg‘;

;DRIVE REQUEST QUEUES

1286 035612
035632
035652

QDRVO:
QDRV1:
QDRV2:
ODRV3:

}sgg

;DRIVE 6

;QUEUE OUTPUT POINTERS

1267 035550
1270 035552
035554

;QUEUE INPUT POINTERS
QINPT:

035632

F 11
18:12:15 PAGE 25-21

BYTE

ng
1263 035532

4-APR-B1

035672
035712
035732
035752
035772

QDRV4:
QDRVS:
QDRV6:
QDRV7:
QTERM=.

036012

.BLKW
.BLKW
.BLKW
.BLKW

.BLkW
.BLKW
.BLKW
.BLKW

1291

;CALL

1294 036012
1295 036014

104412
012702

1297 036022

005022

1296 036020

005022

035520

JSR

CLRQUE: SAVREG
MoV

CLR

;STOP DRIVE 4--START DRIVE S

;STOP DRIVE 7

-10
10
10
10
10

;ROUTINE TO CLEAR ALL OF

}

3
&
5
6
7

10
10
10

;sgg

;2235

;DRIVE
;DRIVE
;DRIVE
:DRIVE
:DRIVE

THE REQUEST QUEUES

PC,CLRQUE
#QCNT ,R?2

;SAVE RO - RS
sZERO THE QUEUE COUNTS

(R2) +

;DRIVES 2 8 3

(R2)+

sDRIVES 0 & 1

START ADDRESS

CZRMTBO RMOS/3/2 DR CMPT

RH/RM DRIVER

INITIALIZATION CODE

1298 036024

1299 036026
1300 036030

1301

TST

036034

000010

1304 036044
1305 036046
1306 036052

001375
012703
012701

000010
035570

1308
1309
1310
};35

005303
001375
104413
000207

036060
036062
036064
036066

012122
005303

012122

G 1

18:12:15 PAGE 25-22
SEQ 0136

CLR

035570

1307 036056

4-APR-81

005022

005022
012703

012701

1302 036040
1303 036042

MALRO v04.00

1%:

2%:

(LR
MOV

(R2)+

(R2) +
43. ,R3

;DRIVES 4 & 5

MOV

#QSTART,R1

JADDRESS OF

1%
#8. ,R3
#QSTART ,R1

;MOVE THE STARTING ADDRESS
;OF THE QUEUE INTO THE

MOV
DEC

BNE
MOV
MOV

MOV

(R1)+,(R2)+
R3

(R71)+,(R2)+

DEC
R3
BNE
2%
RESREG
RTS
'PC

}g}z

;EMPTY THE QUEUE SPECIFIED BY R1

1315

:CALL

1316
};;g

1319
1320
1321
1322

036070
036074
036076
036104

}ggz 036106

105061
006301
016161
(006201

035520
035530

JDRIVES 6 & 7
;MOVE THE STARTING

;QUEUE OUTPUT POINTER
JRESTORE RO - RS

MOV
JSR

DRVNUM,R1
PC,EMPTYQ

EMPTYQ:

CLRB
ASL
MOV
ASR

QCNT(R1)
;CLEAR NUMBER OF ITEMS IN QUEUE
R1
QINPT(R1),Q0UTPT(R1)
;SET OUTPUT QUEUE POINTER=INPUT PUINTER
R1

000207

RTS

:DRIVE NUMBER TO R1

}ggg

;ROUTINE TO PUT A REQUEST IN QUEUE

1327
1328
1329
1330
1331

s CALL
3
:
2
3

1334 036110

122761

000010

1336 036120
1337 036124
1338 036126

105261
006301
010271

035520

1340 036140

1335 036116

001421

035520

026161

035530
000002
035530

035530

1342 036150

016161

035570

035530

};22 036162

000200

1339 036132

1341 036146

1343 036156
1344 036160

062761

001003

006201
005720

INTO

:
-

035550

}ggg

THE QUEUE

;THE QUEUE INPUT POINTER
.

DRVQUE:

MoV
#DRVNUM,R1
MOV
#DPB,R2
JSR
RO, DRVQUE
RE TURN1

RE TURN2
CMPB

#10,QCNT(R1)

INCB
ASL
MOV

QCNT(R1)
R1
R2,3QINPT(R1)

BEQ

ADD

035572

CMP

BNE
1%:

2%:

MOV

ASR
TST

RTS

;DRIVE NUMBER
;ADDRESS OF PARAMETER BLOCK
;GO PUT REQUEST IN QUEUE
;RETURN HERE IF QUEUE IS FULL

;RETURN HERE IF REQUEST IS IN QUEUE
;IS QUEUE FULL?

:BR IF YES-TAKE RETURN1
: INCREMENT QUEUE COUNT

;PUT THIS REQUEST IN QUEUE
;UPDATE THE QUEUE POINTER
QINPT(R1),QSTOP(R1)
:TIME TO RESET THE POINTER

#2,QINPT(R1)

:BR IF NO

R1
(RO) +

;TAKE RETURN 2

QSTART(R1) ,QINPT(R1)

;YES--RESET POINTER

;RETURN TO USER

;gzg

JROUTINE TO GET THE ‘DPB'' ADDRESS OF NEXT REQUEST IN QUEUE

1349

s CALL

1351

1350

1352

;;gz

MOV

RE TURN

JSR

#DRVNUM,R1

PC,GETREQ

:DRIVE NUMBER TO R1

;GO GET THE REQUEST

;R2="DPB'' ADDRESS OF THE REQUEST

:R2=0 IF NO REQUEST IN QUEUE

CZRMTBO RMOS5/3/2 DR CMPT

RH/RM DRIVER

1355
1356
1357
1358
1359

TST

INITIAI JZATION CODE

036164
036166
036172
036174
036176

1360 036202
;%2; 036204

005002
105761
001404
006301
017102

006201
000207

MACRO v04.00

4-APR-B1

GETREQ:

(35520

1%:

035550

2%:

(LR
TSTB
BEQ
ASL
MOV

ASR
RTS

}%22

JROUTINE

1365
1366

s CALL
]

MOV

}ggg

RETURN

1367

1370 036206

1371
1372
1373
1374
1375
1376
1377
1378

036212
036214
036220
036224
036232
036240
036242
036250

}ggg 036252

105361

006301
017102
005071
062761
026161
001003
016161
006201

035520

035550
035550

035550
035572

035570

035550

000207

1382
1383
1384
1385
1386

R1
PC

2
:

1390 036254

036260
036264
036270
036272
036276

012037

013746
005037
000000
012637
(000200

036270
001200
001200

001200

JSR

ASL
MOV
CLR
ADD
CMP
BNE
MOV
ASR

RTS

ERROR
RETURN

ES.SAV: MOV
1%:

;1S THERE ANY REQUEST
;NO

IN QUEUE?

;PICKUP 'DPB'' POINTER FOR THIS DRIVE

JRETURN TO USER

#DRVNUM,R1

;DRIVE NUMBER TO R1

PC,POPQUE

sCALL TO REMOVE REQUEST

;R2=ADDRESS OF DPB REMOVED

QCNT(R1)

;DECREMENT QUEUE

JRETURN TO USER

MOV
CLR
.WORD
MOV
RTS

COUNT

R1
@QOUTPT(R1)
,R2 ;GET THE 'DPB'' POINTER
aQOUTPT (R1)
;REMOVE DPB ADDRESS FROM THE QUEUE
#2,Q0UTPT(R1)
;UPDATE THE QUEUE POINTER
QOUTPT(R1) ,QSTOP(R1)
;TIME TO RESET THE POINTER?
1%
;NO--BR TO EXIT
QSTART(R1) ,QOUTPT(R1)
;YES--RESET THE POINTER
R1

JROUTINE TO SAVE THE CONTENTS OF
;REPORTS AN ERROR DIRECTLY.
:
s CALL
5
JSR
RO,ES.SAV

1387
}%gg
1391
1392
1393
1394
1395

1%:

R2
QCNT(R1)
2%
R1
@QOUTPT(R1)
,R2

SEQ 0137

TO 'POP'' THE REQUEST FROM QUEUE

POPQUE: DECB

000002
035550

H 11
18:12:15 PAGE 25-23

(RO)+,1%

$ESCAPE ,-(SP)
$ESCAPE
0
(SP) +,$ESCAPE
RO

°'SESCAPE' WHEN THE DRIVER

2:THE ERROR CALL
;THE RETURN IS PAST THE ERROR CALL
;GET THE ERROR CALL

;SAVE THE ADDRESS IN °"SESCAPE’
;CLEAR THE ESCAPE RETURN
;THE ERROR CALL IS MOVED HERE
;RESTORE THE ESCAPE ADDRESS
;RETURN

CZRMTBO RMOS5/3/2 DR (MPT TST
MACRO v04.00
BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS

4-APR-81

;

.SBTTL

3
4

sTHIS ROUTINE
;OF THE RH/RM

I 1N

18:12:15 PAGE 26

SEQ 0138

BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS
IS USED TO INSURE THE BUS ADDRESS
|S SETUP FOR THE PROPER ADDRESS.

21T WILL ALSO READ THE ADDRESS FROM THE

6
7
g

sREQUIRED.
JNOTE: THIS ROUTINE DESTROYS RO=R4
JCALL

;;

13 036300

:
104412

14 036302

012790

001276

17 036314
18 036316
19 036322

104402
104401
104411

042752

15 036306
16 036312

104401
011046

20 C36324

012601

23 036334
24 036340
25 036344
26 036346
27 036350
28 036354
29 036356
30 036360
31 036364
32 036366
33 036372
34 036376
35 036402
36 036410
37 036414
38 036420
39 036422

012700
104401
011046
104402
104401
104411
012601
004537
000763
012700
012701
013705
012737
005777
010537
012021
012021

21 036326
22 036332

40 036424
41 036426

42 (036432
43 036434
036434

004537
000763

000407
012716

000002

104006

1%:

036450

001300
036457

2%:

042752

036466
001276
030324
000004
036426
142662
000004

3%:
000004

036434

4%:

5%:

010537
000717
104413

000004

49 036450

122

115

RE TURN
SAVREG

000207

PC ,BUSADR
sSAVE ALL REG

MOV

#$RMADR RO

TYPOC
TYPE
RDLIN

LBLNKS1

TYPE
MOV

MOV

036456

44 036436
45 036442
46 036444

2; 036446

BUSADR:

JSR

JSR
BR

MOV
TYPE
MOV
TYPOC
TYPE
RDL IN
MOV
JSR
B8R
Mov
MOV
MOV
MOV
TST
MoV
MOV
MOV

JMRMCST
(RO) ,=(SP)

(SP) + ,R1

R5,CK.NUM
1%

#SRMVEC ,RO
+MRMVE C
(RO) ,=(SP)
LBLNKS1
(SP)+ ,R1
RS.,CK.NUM
2%
#SRMADR ,RO
#RMADR,R1

aWERRVEC ,RS
#4$ ,a#ERRVEC
@$RMADR

RS ,a#ERRVE(
(RO)+,(R1)+
(RO)+,(R1)+

B8R
MOV

6%
#5%, (SP)

EMT

RT1

TTY IF

6%:

MOV
BR
RESREG

RS5,a#ERRVEC
1%

RTS

MRM(CS1:

.ASCIZ

@RM(S1=d

;FIRST ADDRESS

JRMCS1="'
sPRESENT RMCS1 ADDRESS
:TYPE 1Y
;TYPE 1 BLANK
;GET THE ENTRY

;ADDRESS OF ASCII TEXT

JENTER AND STORE THE NEW ADDRESS
JERROR EXIT

:yECTOR .ADDRESS
;" RMVEC="'
JPRESENT RH/RM VECTOR ADDRESS ON THE STACK
SIYPE 1T
A
;TYPE 1 BLANK
;READ THE ENTRY
;ASCII TEXT ADDRESS
SENTER AND STORE NEW ADDRESS
;ERROR EXIT
;FIRST ADDRESS OF NEW PARAMETERS
sFIRST ADDRESS OF WHERE TO PUT THEM
;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
;SET RETURN ADDRESS

JRETRUN FROM TIME OUT TRAP
JRESTORE THE TIME QUT TRAP
. TRY AGAIN
JRESTORE ALL REG
/

g? 036457

122

115

703

126

MRMVEC: .ASCIZ

QRMVEC=d

52
53

.SBTTL
CK.NUM - CHECK NUMBER (OCTAL)
;THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS

;AC\IAIDLFORMS AN OCTAL NUMBER IN RZ2
CALL:
o

MOV

#ADR,R1

JADDRESS OF ASCIZ STRING

CZRMTBO RMOS5/3/2 DR (MPT

(K.NUM - CHECK NUMBER

57
58
59
60 036466
61 036470
62 036472

010246
(10346
010446

64
65
66
67
o8
69

036500
036502
036504
036506
036512
036514

005002
112104
001424
120427
103425
120427

71 036522

006302

63 036474

70 036520

72 036524

73 036526

74 036530

012703

101022

(OCTAL)

000006

MACRO v04.00

4-APR-81

:
JSR
3
RET
:
RET
CK.NUM: MOV
MOV
MOV

MOV

1%:
000060
000067

BCS

060402
005303
001401
000754
112104
001004
005702
001402
010210
005725
012604
012603
012602
000205

042704

ASL

ASL
BCS

177770

BIC

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

JMAX OCTAL DIGITS IN THE NUMBER

JYES,ERROR EXIT

103416

78 036542
79 036544
80 036546
81 036550
82 036552
83 036554
84 036556
85 036560
86 036562
87 036564
88 036566
89 036570
90 036572
91 036574

#6,R3

ASL

BCS

006302
103414

RS, CK.NUM
;RS CHANGED
JERROR EXIT
JNORMAL EXIT
R2,~(SP)
sSAVE R?2
R3,=(SP)
;SAVE R3
R4 ,=(SP)
;SAVE R4
R2
(R1)+,R4
3%
R4,4'0
5%
R4 ,4'7

BHI

006302

J 1
18:12:15 PAGE 26~1

CLR
MOVB
BEQ
CMPB
BLO
CMPB

103420

75 036532
76 036534
77 036536

TST

ADD
DEC
BEQ
BR
MOVB
BNE
TST
BEQ
MOV
TST
MOV
MOV
MOV
RTS

JFINAL OCTAL VALUE
;GET CURRENT POINTED BYTE
sBRANCH,IF TERMINATOR DETECTED
;SMALLER THAN ASCII=0 ?
sYES,ERROR EXIT
;LARGER THAN ASCII=7 7
JSHIFT LEFT

;

#177770,R4

;CHOP OFF HIGHER BITS

R2
5%

R4 ,R2
R3
2%
1%
(R1)+,R4
5%
R2
5%
R2, (RO)
(R5)+
(SP)+ R4
(SP)+,R3
(SP)+ ,R2
RS

s ONE
;JOCTAL DIGIT
JERROR IF CARRY BIT SET
JAPPEND ING CURRENT DIGIT TO NUMBER
;DECREMENT BYTE COUNT
;BRANCH,IF LAST BYTE

;LOOPING BACK
;CHECK TERMINATOR
JERROR EXIT
JFINAL VALUE = 0
;YES, TAKE ERROR EXIT
JREPLACE THE ORIGINAL VALUE
;ADJUST FOR NORMAL RETURN ;RESTORE R4
;RESTORE R3
JRESTORE R2
SEXIT

SEQ 0139

CZRMTBO RMO0S5/3/2 DR CMPT
ERROR MESSAGES

TST

MACRO Vv04.00

;

3 036576

122

.ASCIZ

/RH_INTERRUPT OCCURRED (RMAS=0)/

101
101

123
123

EM3:
EM4:

.ASCIZ
.ASCIZ

/MASSBUS PARITY ERROR (MCPE=1)/
/MASSBUS PARITY ERROR (PAR=1)/

110

040

.ASCIZ

/RH DIDN'T RESPOND TO ADDRESSING/

101

104

037062
037125
037160
037211

125
106
120
117

116
101
105
120

14 037306

116

16
17
18
19

104
127
127
110

9
10
11
12

13 037263

15 037342

122

104

116

EM10:
EM11:
EM12:
EM13:

.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

117

040

EM15:

.ASCIZ

101
122
122
105

124
111
111
101

EM21:
EM22:
EM23:
EM24:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

117

122

110

105

22 037722
23 037757
24 040011
25 040054
26 040107
27 040164
28 040226
29 040264

110
115
117
104
120
127
111
127

31 040377
32 040446
33 040512
34 040573
35 040640
36 040722
37 041010
38 041062
39 041120
40 041163

122
102
104
103
105
105
102
123
120
104

30 040315

41 041206
42

104

040

LASCIZ

103
126
122
105

20 037614

106

EM2:
EMS:

105

21 037675

105

104

110

037363
037414
037467
037546

ERROR MESSAGES

EMI1:

7 036766

8 037022

.SBTTL

040

125

115
115

K11

18:12:15 PAGE 27

110

4 036635

5 036673
6 036731

4-APR-81

111

101

EM6:

EM14:

EM20:

.ASCIZ

101

EM25:

105
111
120
122
101
122
116
122

101
123
105
111
122
111
126
111

EM27:
EM30:
EM31:
EM32:
EM33:
EM34:
EM35:
EM36:

.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

110
125
101
101
122
103
125
105
122
122

040
123
124
116
122
103
123
105
117
111

EM40:
EM41:
EM&42:
EM43:
EM44:
EM45:
EM46:
EM50:
EM51:
EM60:

.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

101

040

124

000

EM26:

EM37:

EMé61:
.EVEN

.ASCIZ

/UNEXPECTED ATTENTION OCCURRED/

/ADDRESS PLUG CHANGE BIT SET/

/UNCORRECTABLE MASSBUS PARITY ERROR/
/FATAL MASSBUS PARITY ERROR/

/PERSISTENT DEVICE UNSAFE/
/OPERATION NOT COMPLETED WITHIN TIME LIMIT/

/DRIVE WENT OFFLINE/

/NO RESPONSE TO PORT REQUEST/

/HEADER CRC ERROR/

/DATA CHECK ('DCK') ERROR/
/WRITE CHECK ERROR - DATA CHECK ('DCK’) SET/
/WRITE CHECK ERROR - DATA CHECK ('DCK’) NOT SET/
/HEADER READ ERROR =~ °'FMT’' BIT DROPPED/

/HEADER READ ERROR ~ HEADER COMPARE ('HCE') ERROR/

.ASCIZ

/FORMAT ERROR ('FER')/

_ASCIZ

/DATA CHECK ('DCK') SET DURING WRITE CHECK COMMAND/

.ASCiZ

/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 ('IAE') ERROR/
/WRITE LOCK (°WLE') ERROR/
/RH CONTROLLER OR UNIBUS TRANSFER ERROR/
/BUS ADDRESS OR WORD COUNT INCORRECT/

/DATA COMPARE 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 VALID/
/BUS ADDRESS AND WORD COUNT NOT CONSISTENT/
/SEEK INCOMPLETE ('SKI‘') ERROR/
/PROGRAM DETECTED POSITIONING ERROR/
/DRIVE UNSAFE ERROR/
/
/

SEQ 0140

12 041634
13 041640
14 041656
15 041666
16 041700
17 041704
18 041720
19 041734

g? 041750
22
23
26
25

041760
041761
041767
041772

000
000
000

030170
035004
035224
004530
004542
004560
004574

000

000
000

DTY:
DT2:
DT13:
DT4:
DT6:
DT?7:
DT10:
DT11:
DT12:
DF1:

DF2:

DF3:

DF&:

L 11

18:12:15 PAGE 28
/RMAS
/
/DRIVE
RMDS
RMER1
/DRIVE
REG ADR
DATA
/DRIVE
REG ADR
GOOD
/RMADR
/
/DRIVE
RMCS1
RMWC

/RMCS2
/RMMR1
/RMER2

RMDS

RMDT
RMEC1

RMER1

RMOF
RMEC2

RMERZ2
/
BAD

RMMR?

RMBA

RMDA

RMDC
/

RMMR2

RMAS

RMDB

NN\

g 2t b
g

alalalalalele)

nuuhvunnunn

(]

— bt et

DH7:
DH10:
DH11:
DH12:

DH4:
DH6:

>P>>>P>>

DH3:

DH1:

DHZ:

NNNNNNNNN

4-APR-81

VNN
=
b b e d s

b
e
D
e
d
ed
)
d
—

—d
—
o

000000
030166
035002
035226
000000
004526
004540
004554
004572

O—=O—=0O—=——O

9 041602
10
11

) —d —

8 041531

— e B ) = NI NI
—
VIWARWARNI
NN N

7 041460

MACRO v04.00

TST

—

|
|

NRRRORRRR

1 041212

2 041221
3 041303
4 041334
5 041376
6 041407

e
e ey

n
o

(ZRMTBO RMOS5/3/2 DR (MPT
ERROR MESSAGES

ATTN,O

DRIVE.RHERRS.RMERRS*Z.RMERRS*‘,RMERR506,AYTN.0

DRIVE ,RD.ADR,RD.WRD,0
DRIVE ,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.R
,RM.REG+16 ,RM.REG+22,0
EG+14
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

€2 RMTBO RMO5/3/2 DR

| ERROR MESSAGES

|
:

1 0461776

2 042006

CMPT

123

104

TST

125

122

MACRO V04.00

052
200

7 042142

200

9 042272
10 042310
11 042331
12 042356
13 042402
14 042443
15 042465

125
040
124
052
052
123
040

116
101
131
052
052
103
040

114
116
120
040
040
117
040

17 042630
18 042635
19 042637

123
011
052

105
000
040

114

8 042207

16 042546

101
124

200

040

20 C42644
21 042646
22 042651
23 042664
24 042670
25 042741
26 042744
27 042747
28 042750
29 042751
30 042752

042
054
127
117
200
131
116
040
040
040
040

32 042756
33 042762
34 042764
35 043004
36 043022
37 043044
41 043106
42 043125
43 043176
44 043243
45 043257
46 043326
47 043336
23 043356

040
077
040
124
200
104
007
104
104
106
200
040
040
040

31 042754

072

g% 043456

052
115

040
117

104

122

116
131
120

000
040
1
116
11
200
200

104
120
101

040

060

000
114
040
123
000
000

000

000
057
000
102
105
052
122
120
122
122
101
040
077
111
077

040
101
123
052

111

122
111
111
124
047
104
123
103

MESG2:

MESG3:
MESG4:

MESG8:
MESGY9:

MESG10:

MESG11:

MESG12:
MESG13:

.ASCIZ

<CRLF>/DRIVE

TEST

.ASCIZ
.ASCIZ
.ASCIZ

MESG17:

SELFX:
TAB:
MARKX:

.ASCIZ
ASCIZ
.ASCIZ

MESG18:

/+» STARTING PASS 1 /
<CRLF>/MOUNT PACK ON DRIVE

.ASCIZ
.ASCII
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

MESG14:
MESG15:
MESG16:

/DRIVE(S):

SEQ 0142

.ASCIZ
.ASCIZ

/AND LOAD. /
/TYPE <CR> WHEN DRIVE READY./
IS NOT READY,

IS ABORTED/

<CRLF>/PACK IS NOT ACCEPTABLE, CHANGE PACK AND TRY AGAIN/
/UNLOAD DRIVE /
/ AND REMOVE PACK/<CRLF>
/TYPE <CR> WHEN DONE./
/*+ STARTING PASS 2 /
/+* ALL DRIVES ARE COMPATIBLE ##/<CRLF>
/SCORES FOR DRIVE /
/
TRACK
DRIVE
OVRWRT
OVRWRT
READ

.ASCIZ

QUOTM:
COMMA:
MESGS:
MESG6:
MESG7:
vY:
N:
BLNKS4:
BLNKS3:
BLNKS2:
BLNKS1:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
JASCIZ
LASCIZ
.ASCII
.ASCII
.ASCII
.ASCIZ

7'V
/, /
/wWILL TEST /
/ON /
<CRLF>/1S THERE ANOTHER SUB=SYSTEM (Y OR N)
/Y/<CRLF>
/N/<CRLF>
7/ /
/ 7/
7/ 7/
7/ /

SLASH:
QUES:
MESG19:
MESG20:
STARS:
MESG21:
HALTX:
HALT1:
HALT2:
XFATL:
NEDCLK:
QDRIV:
LODEV:
NOTST:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

COLON:

.ASCIZ

BUFFER:

000200

18:12:15 PAGE 29

102 MESG1: .ASCIZ /SUBSYS /

111

3 042021
4 042045

S 042073
6 042106

4-APR-81

.END

200

NUMBR

/SELF/
<HT>
/* O/<HT>

/:/

READ

OFST=

OFST+

OFST=

READ/

OFST+/

? /

&/ a
/7%/
/ BAD SPOT FILE /
/TEST COMPLETE/
<CRLF>/#xssxsxaxsxanaxnns/<CRLF>
/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' CLOCK REQUIRED ON SYSTEM/<CRLF>
/ ?DRIVE/
/ IS LOAD DEVICE/
@ ?CANNOT SELECT RM03/2'S AND RMOS'S TOGETHER (NOT COMPATIBLE)a@<CRLF>

;

|
|

CZRMTBO RMOS/3/2 DR (MPT TST

SYMBOL

MACRO V04.00

TABLE

ABASE = 176700
ACDW1 = 000000
ACDW2 = 000000
ACK
= 000123
ACPUOP= 000000
ACTDRV 030252
ACTSTR 030253
ADDWO = 000000
ADDW1 = 000000
ADDW10= 000000
ADDW11= 000000
ADDW12= 000000
ADDW13= 000000
ADDW14= 000000

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

000100
000200
000400

AMADR4= 000000
AMAMS 1= 000000
AMAMS 2= 000000
AMAMS
3= 000000
AMAMSS
= 000000
AMSGAD= 000000
AMSGLG= 000000
AMSGTY= 000000
AMTYP1= 000000
AMTYP2= 000000
AMTYP3= 000000
AMTYP4= 000000
APASS = 000000
APRIOR= 000000
APTCSU= 000040
APTENV= 000001

BLKADR
BLNKS1
BLNKSZ
BLNKS3
BLNKS4
BPTVEC=
BUFFER
BUSADR
CFLAG
CHGADR
cIl
cI3
Cl4
cI5
clé
clz

004444
042752
042751
042750
042747
000014
043456
036300
001336
001334
031602
031710
032016
032374
032416
032432

DH12
DH2
DH3
DH4
DH6
DH7
DISMNT
DISPLA
DISPLY=
DISPRE
DONE
DPINT
DPRQS
DRIVE =
DRIVO
DRIV1

041€02
041221
041303
041334
041376
041407
017016
001156
104414
000174
017744
030226
030236
001224
004622
004644

EM12
EM13
EM14
EM15
EM2
EM20
EM21
EM22
EM23
EM24
EM25
EM26
EM27
EM3
EM30
EM31

037160
037211
037263
037306
036635
037342
037363
037414
037467
037546
037614
037675
037722
036673
037757
040011

HOUR
HT
=
HZ
IAEER
IBSAVE
IDLEX
INDST
I0TVEC=
ISR
KPATH
KSR
LABAD
LF
=
LINDEC
LINET
LINKDV

APTSPO=
ASNLST
ASSGN1
ASSGN2
ASWREG=

000100
002006
002010
002012
000000

CI8
(kKBUS
(KCLK
C(KCLK1
CKCLKZ

032532
020640
021234
021330
021376

DRIVI1
DRIVIZ
DRIV13
DRIV14
DRIV15S

005064
905106
005130
005152
005174

EM33
EM34
EM35
EM36
EM37

040107
040164
040226
040264
040315

LODEV ~ 043336
LOGO
001406
LOG1
001426
LOGI0
001646
LOGI1
001666

= 000000

(KHCE

020370

004710

EM4?2

040512

LOG1S

000000
000000
000000
000000
000000
C00000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

AMADR3= 000000

APTS12= 000200

ATABIT
030312
ATESTN= 000000
ATIN
001326

AUNIT

BITO8
BIT09
BIT1
BIT10
BIT11
BIT12
BIT13
BIT14
BIT15
BIT2
BIT3
BIT4
BITS

BIT6
BiT7
BIT8

BIT9

178

(KCLK3
(KERR
(KFMT

000400
C01000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040

= 001000

032454

021420
020572
020360

DH11

DRIVIO

DRIVI6
DRIV17
DRIVZ

DRIV3Z

104407
022464
022436
022536
036466
022410
001316
021526
021720
035012
001354
001356
001362
001364

SEQ 0143

CKSWR =
CK.CHR
CK.DEC
CK.DIG
CK.NUM
CK.OCT
CLKFLG
CLOCK
CLRDPB
CLRQUE
CMCNT
CMCYL
CMSEC
CMTRK
COLON
COMMA
CPSAVE
CR
=
CRLF
=
CYLIMT
CYLNDR
DCKER
DDISP =
DEASG
DF1
DF2
DF3
DF 4
DH1
DH10

ADDW15=
ADDWZ =
ADDW3 =
ADDW4 =
ADDWS5 =
ADDW6 =
ADDW7 =
ADDW8 =
ADDW9 =
ADEVCT=
ADEVM =
AENV =
AENVM =
AFATAL=
AMADR1=
AMADRZ=

AUSWR = 000000
AVECT1= 000254
AVECT2= 000000
BADSEC
001342
BADTMO 005502
BITO = 000001
BITO0 = 000001
BITO1 = 000002
B1702 = 000004
BITO3 = 000010
BITO4 = 000020
BITO5 = 000040
BIT06 = 000100
BITO07 = 000200

N 11

4-APR-81 18:12:15 PAGE 29-1

041772
041212
041460

DRIV4
DRIVS
DRIV6
DRIVZ
DRVACT
DRVCLR=
DRVER
DRVINT
DRVQUE
DRVSTA
DRVTYP
DSWR
=
DTEER
DTUW
DTYP
DT1
DT10
DT11
D112
DT2
DT3
DT4
DT6
D17
DUMP
DUMP2
EMPTYQ
EMTVEC=
EM1
EM10

004732
004754
004776
005020
030176
000111
020350
030546
036110
030206
030216
177570
020420
030310
001402
041634
041720
041734
041750
041640
041656
041666
041700
041704
020540
017720
036070
000030
036576
037062

EM43
040573
EM44
040640
EM4S
040722
EM46
041010
EM5
036766
EM50
041062
EMS1
041120
EM6
037022
EM60
041163
EM61
041206
ENDX1
011004
ERPRCT1
017562
ERPROC
017546
ERROR = 104000
ERRVEC= 000004
ES.SAV 036254
FALPAR 017664
FAULT
001376
FILBUF
021042
FINISH 023620
FMTDPB 004506
FMTER
020460
GENDPB 004576
GETREG= 000141
GETREQ 036164
GTSWR = 104406
HALTX
043106
HALT1
043125
HALTZ2
043176
HCEER
020470

042754
042646
024252
000015
000200
001374
004616
020300
177570
017070
041760
041761
041767

0461531

005042

005216
005240
004666

EM11

EM32

EM4
EM4O
EM&1

037125

040054

036731
040377
040446

HCRCER

LINOCT

LOGI2
LOG13
LOG14

020340

001344
000011
001320
020440
024254
017444
004424
000020
032762
016530
021634
015034
000012
021214
021116
021764

021162

001706
001726
001746

001766

.
I

(ZRMTBO RMOS/3/2 DR (TMPT TST
SYMBOL TABLE
L

001446

LOGS

%1&

LOG

1566

LOG
L0G4

PIRG

= 177772

RDNG

001366

POSER

020400

RDN9

OFFSET= 000115

PROCES

017452

PRTIM

017714

063257
04

OFFCOD

004504

OFFST

014244

LOOP1
L
LOOP
LOOPS
LOOPS
LOOPS
LSTAD
MAKEUP
MARK X
MCPEMX
ME SG1
fi%??
ME SG1
SG‘li
SG1
SG14
MESG15

1
1
15716
16;1
1672
167

OPIcR
oPT
OVWND
OvWN1
OVWN10
OvWN11
Mi
OvuWN1
OVWN14
OVWN15
0M19
OVWN17
CvWN18
m

SG1
!Sfls

46
;‘6

2561’

SG1

2
4

40
“h

NUL INE

OFLIN

PRTBAD

017152

020702

RDP1

RDP10

= W

003716

RMOS

004156

RSTART

004136

RDP11

RMC

RM.REG

RNOP

0
4
030326
004526

031062

= 000101

001400

OVWNS

003776
004016
004036
004056
004076
004116
035002
034756

OVWN?
0

002236
256

QDRV
QDRV4

RD.RM2
RD.RM3

035124
035130

SEARCH= 000131
SECLMT 001370

OVWNG6

002216

00?§76

QDRV.

035652

QDRVS

035732

QSTOP

035572

035672
035712

oOwWP14

003076

QTERM = 036012

MOD
MOD
MOD
MONTR
MRMCS1
MRMVE (
MXWNOW
M.DPID
M.[P4LO
M.DP41
M.DP&2
M.DP44
M.DPS0

003676

003436

RMTMR
RMVEC

76
16
005336
002356
376
%16
436
456
002476
9“95516
116
002136
%2156
176

NSG?

MOD1
mm;
MOD

RDPO

RMSN

RTC
= 000117
R6
=
R7
=
7
SAVEFG 0
SAVREG= 104412
SC
033174
SCOPE = 000004
SCORE
014614
scn
0340
sC1
0341
sC1
034206
SC3
033244
SC4
033250
.~ SC5
03
SCé
033456
SC6A
033572
SC7
033720

SG
:SG‘

MINUTE

003376
003416

004176
0046216
004236

QDRV6
QDRV7?
QINPT
QOUTPT
QSTART

ME SG
!Sgs
ME S

RDN7
RDNS

RDP1
RDP1
RDP14
RDP15
RDP16
RDP17
RDP1B
RDP%
RDP
RDP4
RDPS
RDP6
RDP?7
RDP8
RDP9
RD.ADR
RD.RM

002536
002556
002776
003016
003036

SGS5

SEQ 0144

PRO
= 000000
PR1
= 002040
FR%
= 000100
PR
= 000140
PR¢
= 000200
PRS
= 000240
PR6
= 000300
PR7
= 000340
PS
= 177776
PSEUDO 005322
PSW
= 177776
PUNSAF 017644
PWRVEC= 000024
QCNT
035520
QDRIV
043326
QDRVO
035612
QGDRV1
035632

OVWN4

10
031354

PIRQVE= 000240
POPOUE (36206

OWwP0
OWP1
OVWP10
OWP11
OV\'1§

S
S

B 12
4-APR-B1 18:12:15 PAGE 29-2

062764

NEDCLK
NOTST

%1;&
1

MACRO v04.00

OVwP13

003056

035752
035772
035530
035550
035570

OvwP15
OWP16
OVWWP17

003116
003136
003156

QUES
042762
QUOTM
042644
RDCHR = 104410

OvwP
OvwP
OVWP4
OVWP5S
0
ovwP
OVWP8
owP9
PACK
PARER
PCLOCK

002576
002616
36
002656
002676
002716
002736
002756
001324
020430
001314

PFECH]
PFEC
PFECH3

024444
024526
024560

OvwP18

PFECH

PFECHS
PFTSTN

003176

024434

024570

024574

RD.RM1

RD.RM4

004276
004316
004336

003736
003756

035000

035134

SC8

033776

SECOND

001350

RD.WRD 035004
READIN= 000121
RECAL = 000107
RELSE = 000113
REPLZ
022210

SEEK =
SEEKFG
SELDRv=
SELFX
SELFO

105
030266
000145
042630
004356

RESVEC= 000010

SELF10

004402

RESREG= 104413

SELF1

004360

RMADR
030324
RMAS = 000016
RMBA = 000004

SELF11
SELF12
SELF13

004404
004406
004410

RDHD = 000173
RDLIN = 104411
RDNO
003216
RDM1
003236
RDN10
003456
RDN11
003476
RDN1
003516
RDN1
003536
RDN14
003556
RDN15
003576
RDN16
003616

RMCS2 = 000010
RMDA = 000006
RMDB = 000022
RMDC = 000034
RMDS = 000012
RMDT = 000026
RMECT1 = 000044
RMEC2 = 000046
RMERRS 030166
RMER1 = 000014
RMER2 = 000042

SELF15
SELF16
SELF17
SELF18
SELF
SELF
SELF4
SELF5
SELF6
SELF7
SELFB

004414
004416
004420
882622
362
004364
004;66
004370
004%72
004374
004376

RDN18
RDN2
RDN3

003656
003256
003276

RMINIT 030334
RMLA = 000020
RMMR1 = 000024

SETFMT= 00014
SETVEC
7074
SET.IE 035446

003336

RMOF

RDDAT = 000171

RDN17

RDN&
RDNS

003636

003316

RMCS1 = 000000

RMHR

= 000036

RMMR?2 = 000040

= 000032

SELF14

SELF9

SIXTEE

SIZMeEm

004412

0044

001352

007030

CZRMTBO RMOS5/3/2 DR CMPT TST

SYMBOL

TABLE

SKIER
SLASH

020510
042756

MACRO v04.00

TAB. XY= 001114
T181TVE= 000014

SAUTOB
SBASE

TIMER
030270
TKVEC = 000060
TPVEC = 000064

$BDDAT 001142
SBELL
001202
$8UF
= 000006

SPATH

STARS

043022

TRAPVE= 000034

START

005566

TRKLMT

SPOTX
0106
SRCHWT 030,
STACK = 001100

STARSC

START1
START
START

001360

STATIN
STKLMT=

001322
177774

SWREG

000176

TYPRI4

2383 =
Wl

001000

001372

1ST1_
1ST10

1ST11
1512
1573
1ST4
1ST5
1ST6
1ST7
TYPDS
TYPE
TYPOC
TYPON

SWIIM
017674
SW0
=
1
SWO =
1
Sw01
= 000002
SWe =
Sw03
= 000010
swa = 000020
SW05 =
0
SW06 =
000100
SW07
=
000200

020500

TRNSWT 030246
TRTVEC= 000014
TSTNM 001340

005262
034434
034470
034564
034614
cgzu.o
034646
034704
034734
034744
035330

001154

033024

TRFER

STNDAT
STO
ST01
ST02
ST03
570
ST06
S107
STO8
STO9_
SVRH70

SWR

011020
015654

=
=
=
=

001210

SLKCSB

001304

SLFLG

025375

SRMBA = 000024

SRMDB = 000042
SRMDC = 000054

SRMDS = 000032

SLKCSR 001302
$LKS
001310
SLLVEC 001312

SRMDT = 000046
SRMEC1= 000064
SRMEC2= 000066

SLPERR
SLPVEC
SLSTAD
SMADR1
$MADR2
SMADR3
SMADRG
SMAIL
SMAMS1
SMAMS?
SMAMS3

SRMHR = 000056
SRMLA = 000040
SRMMR1= 000044
SRMMR2= 000060
SRMOF = 000052
SRMSN = 000050
SRMVEC 001300
SRMWC = 000022
SRTNAD 023614
SRTRN
023610
$SAVRE 026710

SLOOP
SLPADR

023812
001122

001124
001306
030076
001244
001250
001254
001260
001212
001242
001246
001252

SMAMSS 001256
SMBADR

001102

SRMER1= 000034
SRMER2= 000062

$SAVR6 025556
$SB2D

022674

035226

SERMAX

001131

SNULL

001170

$SWRMK=

$ERRPC
SERRTB
SERRTY

001132
005362
024256

SOCNT
$OCTVL
SOMODE

026012
027302
026014

WRT.RM 035136

XEND2
XFATL

017146
043243

SWS
Sw6

= 8880‘0
=
000100

XPASS2
XXDP

012460
001404

Sw8
Sw9

=
= 001000

$APTHD
SATYC

001100
025156

002054

$ATYZ

025150

TABLEX

001270

SLF

025552
001151
001130

WRT.AD

WRTHD = 000163

SDEVCT 001222

SRRCS1= 000020
SRM(S2= 0000
= 000026

0011

$SB20
022724
$SCOPE 027320
$SEC = 000010
$SETUP= 000137
$SIZE
027746
$STUP = 177777
$SUPRS 022300
SSVLAD 027674
$SVPC = 000214
$SWR = 177600

e
SW3

SYSADR
TAB

= 000000
= 000001

SILLUP
$INTAG
SITEM8

SICNT

025374
026677
001226
001230
001212
026666
001243
001247
001253
001257

035326

$CM3
$CM.

SRMADR 001276
SRMAS = 000036

SMFLG
SMNEW
$MSGAD
$MSGLG
SMSGTY
SMSWR
SMTYP1
SMTYP2
SMTYP3
SMTYP,

WRT.R5

SW?

025126

SCKSWR 025242
SCLR.T 023534
SCMTAG 001114

$HD
= 000000
$HIBTS 001100

$DOAGN 023554
$DSPLY 022366
$DTBL
026222
SEMTAB= 000022
$ENDAD 023544
SENDCT 023512
SENV
001232
SENVM
001233
SEOP
023456
SEOPCT 023504

SCHARC

001274

SEQ 0145

UCPAR
017654
ULDFLG 030254
UNIT
001330
UNSAF
020530
WCFER
020520
WCKD = 000151
WCKER
020310
WCKHD = 000153
WLEER
020450
WRTDAT= 000161

SWi4

Swh

001272

SDEVM

035222
035314
035320

= 100000

$COW1

SCDW2

022340

TYPOS = 104403

WRT.R1
WRT.R2
WRT.R3

SW15

$BDADR 001136

SCNTLC 023452
SCNTLG 026661
SCNTLU 026654
$COMND= 000002
$CPUOP 001240
SCRLF
001207
$CYL
= 000012
$DBLK
026232
$DB2D
027004
$DB20
027200
SDECVL 027164

=
=
004000
= 01
=

001150
001266

016342
011374
011650
012274
012772
013344
015140
104405
104401
104402
104404

SW10
Swil
sw12
SWi3

C 1
18:12:15 PAGE 29-3

4-APR-B1

WRT.Ré

WRT.WD
XPASS1

SATYT
SATY3

SERFLG 001117
$ERROR 023662

035324

SERTTL

001126

035224

SETABL

001232

010054

$FFLG

042741

025132
025140

$SESCAP

SMXCNT

SNWTST=

027744

SOVER

027730

SPASTM

001106

$SYSNM= 000014

$TATUS= 000016
$STBIT
023616
STERM =
32
STESTN

001216

$TIMES

001176

001200

SPASS

001276
001214

$PHYDR= 000015
SPOWER 025560

001172
001171

$PWRDN
SPWRMG

025400
025534

$TKSRV
STMP0

$GAP = 000016
$GDADR 001134

SQUES
SRDCHR

001206
026524

STNPWR
$TPB

$GTSWR

SRESRE

026746

$TRAP

SETEND
SFATAL
$FILLC
SFILLS

$FMT

025376

= 000001

$GDDAT 001140
$GET42 023516
026312

$PSEL =

001220

$SWREG 001234

SPWRUP 025452

SRDLIN 023150
$RDSZ = 000001

S$STIME

$TKB
STKINT

021430
001162
022754

$TKS

001160

$STN

= 000012

023004
001174

027114
001166

STPFLG 001173
$TPS
001164

030100

’

CZRMTBO RMOS/3/2 DR (MPT TST

SYMBOL

MACRO v04.00

|
|

$TRAP2 030122
$TRK
= 000071

023426
026016

TABLE

STTYIN
$TYPDS

$TRP
= 000015
$TRPAD 030134
$7STM
001104
$TSTAM 001116

. ABS.

043456
000000

ERRORS DETECTED:

STYPE
STYPEC
STYPEX

4-APR-B1

024576
025010

025130

000
001

VIRTUAL MEMORY USED:
60416 WORDS
( 236 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
70 PAGES
CZRMTB.BIN,CZRMTB/(=CZRMTB.DOC,(ZRMTB,SYSMAC/M

$TYPOC
STYPON

$TYPOS
SUNIT
SUNITM

D 12
18:12:15 PAGE 29-4
025614
025630

025570
001224
001110

SUSWR
SVECT1

SEG 0146

001236
001262

SVECT2
001264
SWRDM
= 000004

$XOFF = 000023

$XON = 000021
$XTSTR 027336
$$GE T4= 000001
SOFILL
026013

= 001100

CZRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

$SGET4

SOFILL

$40CAT
$APTHD
SASTAT
$ATY]
Y3
SATYL
SATY(
$AUTOB

$BASE
$3DADR

$BDCAT
$SBELL
$8UF
$COW1

$COW2

$CHARC

$CKSWR
$CLR.T
$CM3
$CM4
$CMTAG
SCNTLC
S$CNTLG
$CNTLU
$COMND
$CPUOP
S$CRLF

10-1

16=1
11-1

5-11

14=1
14=14

13-1

4-APR-B81

E 12
18:12:15 PAGE S-1
SEQ 0147

10-1#
16=1+

16=1»

9-36+

18-1

9-C93
9-351+
9-184+

111
9-563+

111
9-624*
9-303+

11-1

9-630
9-307

9-912+
9-484

9-917
9-486

9-956+
9-558

9-985+
9-718+

G-:64
Q=746

Q=<bbn
9-750

Q=z=3hn

9-810

9=(26
9-812

9-(69
9-906

9=140+
9-502
13-14
24-1
10-1#
6-0#
6-0
9-31
9-116
18-1

9-147
9-516
13-1»
24~1

9-178
9-700
13-1x

9-223
9=747%
13-1»

9-253
9-759

9-268
9-764

9=271+
9-813

9-272
9-815+

9-304*
9-818

9-315
9-830

9-320
9-835

9-487
9-739

9489+
9-295

6~0#
9-31

6-0#
9-31

9-31

G-31

7-0

7-0
9-910«

7-0
9-955+

7-0
9-:46

7-0
9~:48»

7-0
9=:70*

7-0
9=:79«

9-369

9-397
9-825
9-A21

9-463
9-833
9-A77

9-492
9-842

9-500

9-509
9-868
9-(61

9-538
9-230
9-(63

10-1#
16=1#4

22-1

S5-11#

14-1

14=14
14-1#
14=14

9-188

9-1414
18-14

18-1#

7=0
7-0#
9=<69*

9-357+
9-=35+

7-0

7-0
9-566«

9-587+

9-144
9-682
9-200
9-H53
13-1
9-561+
9-<b3*

9-274
9-698
9-a01
9-H57
13-1
9-646+
9-<64

9-310
9-754

9-327
9-771

7-0

9-623+

10-5

9-793
9-A19
10-7

10-10

11-1

11=1

9-203
9-H65
13-1
9-666*
9-<74x

9-670%
9-=09+

9-671
9-=10

9-911»
9-=41x

9-942+
9-=95«

9-943
9-296

9=-953«
9->02*

9-627
P32

9-708
9-760+

9-720~
9-761

9=745%
9-a13

9-911

9-914

9-953

9-210

9-C34

9-(36

12-1

12=1

9-:13»

9-:14

9=:17=

9-:17

9-.64

9-<41

7-0

17-1#

9-560
9->00
10-1

9-614
9->63
10-1#
T=0

9-E43

11-1

13-1
13-1

$ERROR

9-31

SEQ 01458

9=31»

11=1

22-1

11 -w
22 -1

22-1
22-1

22-1
22-1+

22=1

1=1»

11=1~

12-1

111

22=1+

25=772

111

6=0#

1M=1#

$ERRP(

6-0#

11-=1

11-1

n =1

$ERRTY
SERTTL
SESCAP

11-1
6=0#
6-0#
25=-=92%
6=0#
5=11

12=14
11-1
9-31+
25-=94+

11=1
11-1

11=1»
111

111

14=1~
13-1

14=1x«
13-1

14=1»

$ERRTE

8-0#

12=1

$E TABL
$ETEND
SFATAL
$FFLG
$FILLC
$FILLS
SFMT

6-0#
14-1
6-0#

6=0#
14=1»
14=1#
13-1

7=0

$GDADR
$GDDAT
$GET42
$GTSWR
$HD
$HIBTS
$ICNT
$ILLUP
SINTAG

6-0#
6~0#
10-1#
9-H70
4~54
5114
6-0#
15-1
6-0#

18-1#
L=54

24=1
(=54

24=1

22-1
15-1
18-1

22-1
15-1#
18-1

2a=1

$LF
SLFLG
$LKCSB
$LKCSR
$LKS
$SLLVEC

6=0#
1414
7-0#
7=0#
7=0n
7-O#

9-131
14=1»
9=D46*
9-D40
9-D51
9-p53

11-1

$GAP

$ITEMB

6~0#

7=0

6=-0#

$LO0OP

10-1

$MADR1

6-0#

$MADRS

6-0#

$LPADR
$LPERR
SLPVEC
SLSTAD
$MADRZ
$MADR3

6-0#
6-0#
7-0#
9-92

13-1

7=-0#

9=237*

11-1

10-1#

9-31x
9-31x
9-D43
23-1#

7=0

11-1

22=1+

18=1
11-1
11-1

11=1e

22=1+
22-1

22=1»
22=1+

11-1

15-1

11-1+

9=D4 7%
9-D56+

22-1
11-1

22-1
22-1

23-1x»

6-0#
6-0#

5-11
6-0#
604
6-0#
6=-0#

5-11

6-0#

9-31

$MFLG
SMNEW
$MSGAD
$MSGLG
$MSGTY
SMSWR
MTYP1
MTYP?

14-1
18-1
6-0#
604
6-0#
18-1
6=0#
6=0#

14=14
18-1#
14=1
14=1»
14=1
18-1#

14=-1x

14=1»

5-11#

9-36

14=1%
14=1

25=-=81

G=:69+

SMAIL
SMAMS1
SMAMS?
$MAMS3
SMAMSS

SMBADR

18:12:15 PAGE S=2

SERMAX

6-0#

(CREF v01-05 )
10-1#

4-APR-81

——

$ERFLG

MACRO v04.00

W—
I

CROSS REFSE NCE TABLE
10-1
1«
SEOPCT

TST

.
.

CZRMTBO RMOS/3/2 DR CMPT

14-1x

14=1x

22-1

25-=91

CROSS REFERENCE

SMTYP3

BMTYP4

| BMXCNT
- SNULL
LOBNWTST
| SOCNT
$OCTVL
$OMODE
$OVER
$PASS
$PASTM
$PHYDR
$POWER
$PSEL
$PWRDN
$PWRMG
$SPWR!P
$QUES
$R2A
$RDCHR
$RDDE
C
$RDL IN
$RDOCT
$RDSZ
$RE SRE
SRHEXT
$RMADR
$RMAS
$RMBA
$RMCS1

$RM(CS2
$RMDA
$RMDB
$RMDC

(CREF

22-1

13~1
9-554#

16=1»

21-1#
16=-14

22-1
9=31»

241

18-14

26-1
9-H84L#
24-1
18-1
19-1#4
25-164
7-08
4=728
4~674
4~654
4-694

4-684
4=748
4=798
4=704
4=764
4-83n
4-8hn
4=714
9-C11
4-82#
4-80#
4-734
4-754
4-814
4-784
4=774
7-08

9-31

15-1

19-14

9-D25
9-D09
9-31
7-08

MACRO v04.00

v01-05

22=1#
13-1
9-£934

16=1+
22-1
10-1

16~

9-6104
16=1+

9-236+

15-1

15-14

9-124

2210-

24=1

241

24-1

25-<16

4-APR-81

9-807#

13-1

18-1

9-196

26-14

9-192

9-C27
9-a51

9-A30
9-975

9-C37
9-a53
9-C09
9-:10

9-(52
9-C07

9-a55

9-A33

9-A62

4-72

9-A36

9-A39

9-A42

4-83
4-81
4=74
4-76
4-82
4-79
4-78
9-74
4-67

9-A71

9-A73

9-C13

9-190+
9-973

9-193
9-976

9-197
9-:08

9-31«

10-1
15=1~

10-1#
15=1»

9-D84

9-H10#

9-393»

9=-560+

24-1
9-D74
9=H27#
22=14
9-356+

15-1»

24~1
9-D79
9-391

9-<268

22=1

9-189~

9-31»

9-8964

10=1»

9-159

15-1#

G 12

18:12:15 PAGE S5=-3

9-z24m

9-3264

16=1»

11-1

241

18-1#
264-1
25-193
9-73
4-73
4-68
4-66
4-70
4-69
4=75
4-80
4-71
4-77
4-84

)

22-1
13-1

9-235+
15-1#

15-1#

4664
10-1#

$SEC

TABLE

TST

—

CZRMTBO RMOS/3/2 DR CMPT

9-<01

22=1

26-32

26-36

9-=64

9-=92

9-A45

9-AL8

9-A51

9-A54

9-A57

=311

9-<09

9-<1

9-=62

9-=65

9-648*

9-658+

9-659

9-661+

9-909+

26-23

9-A60

9-952+

9-A65

9-A68

9-A95

9-=93

9-c21

9-(40

=975+

9-984»

(ZRMTBO RMOS5/5/2 DR (MPT TST
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

$SETUP
$SI1Z2E

:
.
|

$STUP
$SUPRS
$SVLAD
$SVPC
$SWR

9-:62
4-111

9-<13
4=-11

9-<39%
4=111

9=cf2*
4=111

H 12
18:12:15 PAGE S=4

9==(7%
4=111

Qez3fr
(=111

Gezf4w
4=1114

9-31
10-1

9-31
11-1

9-31
1=

9-31
11-1

9-31
15-1

9-31
18=1

9==z69+
4=1114
9-31
18-1

4-111
(-1112
9=D26
22-1
5-8
L=44m
9-31

4=111
4=-1118
9-£52#4
22=1#
5-8#
4-54
9-31

(=111
4-1118

(=11
4-1114

(=111

4=111

4=1114

4=55
9-31

4=55
9-481

4=55
9-554

4=55
9-610

4=55
9-693

11-1

15-1

9-3
10-1

9-91

10-1

$SWREG
SSWRMK

9-<03
(=11

4-APR-81

22-1

23-1#

10-1

22-1

10-1

22=1

22-1

11=1

22-1

11-1

4=1114

9=13¢

9-3¢

4=1114

L=1114

Lt=111%

6-0

€-0
9=>26

9=-31
10-1

9-36

22=1

4=111m

9-<26
11-1

11=1

9==24
11=1

11=1

9=21

11=1

22-1

22=1

22-1

22=1

4=55

22-1

22=1

22-1

9-489
9-a72 +
10=1»

9-813
9=a74
15=1+«

9-815
9-a76

9-a2¢
9-a78

22-1

$SYSNM
S$TATUS
$1BIT
STERM
$TESTN
$TIME
$TIMES

6~0#
4-55
22-1
7-0#

9-31
4=55
22-1
9-223+

455
22-1

931+
24-3#
6~0#
9-(98
6-0#

10-1

12-1
9-D70#
9-31*

12-1
9-E21
9-481*

22=1*
9=554*

9-610*

9-693*

9-807+

9-896*

9-<26*

9==24»

9=>26+

10-1+

$TKB

6=-0#

9-E22

9-E29

9-H41

13-1

18-1

18~1

9-H42*

9-H56+

F=HEI*

9=H71+

13=1

13-1

18-1

9-481
9-896

9-4814
9-896

9-554
9-896#

9-554
9-<26

9-554#
9-<26

9-610
9-<26#

9-610

=24

9-6104
9-=24

9-693

9-693
9->26

9-693#
9->26

9-938+

9-939

9-:18+

9-:19

$TKINT
$TKS
$TKSRY

$TMPO
$TN

4~64#

22-1

9-72
1%-?#

9-H39

6=-0#

L=454
3183€a

9-253
9-a49

4=65

22=1x

22=1%

9-H39#
9-E30*
9-H4O#

9-277x

9-278

4-54
9-807

9-481
9-807#

4=55
22-1

9-487
9-a66
10-1#

4=55
22-1

22-1

4=1114

22-1

SEQ 0150

G==92+
4=1114
9-31

STNPWR
$TPB
$TPFLG
$TPS
$TRAP
$TRAP2

$TRK

$TRP

20-1
6-0#
6-0#
6-0#
9-31
24-1

7=-04

9-:56

264-1

24~-1
24-1

264~1

$TRPAD
$TSTM
$TSTNM
$TTYIN
$TYPBN
$TYPDS
$TYPE
$TYPEC
$TYPEX

24=2
24-1
5-11#
6-0#
9-HB6
24-1
17-14
9-F71
13-1
13=1

20-1
13-1
13-1
13-1
24=-14
2414

9-355«

9-<59*

24-1

24~1

20-1#
13-1
13-1
13-1

13=-1»
13-1
13-1

9-565«

9-588+

9-589

9-647%

9=-662%

9-663

24-1

24~=1

24=1

241

24=1

9-<60

24-1
264-1

24=1#4

9-=01«

24-1

9-=03

24~1

24-1

24~1

24=14

24-14

9=>03x

24-1

24=14

24=2
24-14

- 24=2
24=3

24=2

24=24

10-1=
9-H87

11-1
9-H99

11-1
9-122

11-1
9-136

22-1
9=-1404

24=1
S-F83
13-1
13-1

24=~1
13-14
13-1
13-1#

14-1
13-14

24=1
18-1

24=1

9=>04

24-1
24~1

24=14

22-1

9-A27

24=1

24=1#4

24-1
24~1
24~1
24-14

24-1
24-1
24-1
24-14

22-1

24=-1

=244

264-1

241
24-1
24-1#

264-1

241
241
24=-1n

CZRMTBO RM0S5/3/2 DR CMPT

TST

$TYPOC
$TYPON

16-1#
16~1

24=1
24~

SUNIT
SUNITM
SUSWR
$VECT
SVECT2

6-04
S-11#
6=0n
6-04
6-0#

CROSS REFERENCE

TABLE

S$TYPOS

16=14

241

7=-0n

9-353*

$WRDM
$XOF F

$XON

9==93+

13-1

24=1
16=14

G-(23

13=1

13-1

22-1#
141

141

ACDW1

6~-0

6-0

ACK

ACDW2

5-11
4-1084

6~0

6-0
25-93#
25-99#

ADDW1
ADDW10

6-0
6-0

ADDW11

S5-11#
6-0

6-0

6-0
25-347+
25-988+

6~0

ADDW12
ADDW13
ADDW14

6-0
6-0
6-0

ADDW2

6-0

ADDW4
ADDWS
ADDW6

6-0
6-0
6-0

ADDW9
ADEVCT
ADEWM
AENV
AENVM
AFATAL

6-0
6-0
6-0
6=0
6-0
6-0

6=0
6-0
6-0
6-0
6-0

AMADR2
AMADR3

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
6-0
6-0

ADDW15
ADDW3

ADDW7
ADDWS8

AMADR1

AMADR¢
AMAMS 1

AMAMS?
AMAMS3
AMAMSS
AMSGAD
AMSGLG
AMSGTY
AMTYP1
AMTYP2
AMTYP3

)

112

1B:12:15 PAGE

9=562*
9-(38

9=626*

9-908*

25-691*

25-699+

9-C70

9=976x

18-1

6-0

6=-0

ACPUOP
ACTDRV
ACTSTR

ADDWO

v01-0S5

4-APR-81

6-0

6-0
6-0

6-0

6-0
6-0

S=5

SEQ 0151

7=0

$XTSTR
.BASTA

.$X
ABASE

(CREF

MACRO v04.00

25-398x
25-:02+

25-G86

9=983+

G=:11x

G=:63

9=<11

Gec372

Gez33e

GezfSe

G=z(Be

CZRMTBO RMO0S5/3/2 DR CMPT TST

ASNLST

ASSGN1
ASSGN2
ASWREG
I
ATABI
ATESTN
ATTN
AUNIT
AUSWR
AVECT]

AVECT2
BADSEC

BADTMO

BITO
BITOO
B8ITO1
BITO2
BIT03
BITO4
81105
BIT06
BITO7
BITO8
BITO9
BITi
BIT10
BIT11
BIT12

BIT13
BIT14
BIT15
BITZ2
BIT3
BIT4
BITS
BIT6

BIT7
BIT8
BIT9

BLKADR

BLNKS1
BLNKS?2
BLNKS3

BLNKS4
BPTVEC
BUFFER
BUSADR

13-1

11-1

9-3
13-1

7=0#
7=0#
7-04

6-0
9-158
6~0
7-0#4

6-0

14=1
14-14

J 12

18:12:15 PAGE

S~6

14=14

9-135
9-286+*
9-741

9-210
9-298
9~258+

9-238

25-1454

25-318

9-"28

9-290

9-a06+

=219
11-1
9-a80

11-1

APT(CSU

APTENV
APTSI1Z
APTSPO

TABLE

4-APR-B1

CROSS REFERENCE
AMTYP4
6-0
APASS
6~0
APRIOR
6-0

MACRO v04.00
(CREF v01-05 )

9=224+

9-244

9=250

9->60

25-410

25=515

25-895

25-923

25-931

25-932

25-954

25-<42
25-865

25-885

25-927

25-<C3

25-425

25-608

25-653

25-669

25-875

25-877

9-726

25=:51

28-13
6-0

9-A27
9-A27
25-865
9-£30
9-A36
9-a78
9-454
9-A54
9-AS57
9-A6S

25-<43
9-A71
9-a55

9-A73

9-251

25-390
25-849

22-1
25-655

2e=1

25-:71

9-A39

25-885

9-H42
9-A42
22-1
11-1

25-328
25-328
25-328

25-381
25~590

25-454
25=711

25-734
25-849

11-1

22-1

25-:39

11-1

25-618
25-328

25-972
25-392

22-1
10-1

25-281
25-275

25-657
25-417
25-309

9-F 81
9-280

11-1
9-A30

25-375
9-A33

25-820
9-A71

22-1

25-387

25-422

25-805

25-965

25-:75

25-;21

9-A95

25-375
25-965

25-387
25-:39

25-390
25=:75

25-392
25-:83

25-422

25-425

25-618

25-655

25-657

25-734

9-A62

25~=:14

25-875
25-:83

25-885

9-398

9-:66

9-222
9-325

9-252
9-329

9-303
9-507

9-484
9-769

9-840

9-718

9-746
9-C54

9-810

9-(99

26-18

26=27

29-30#

9-380

9-563

9-624

9-912

9-956

9-985

9-<44

9-=36

29-52#

9-263

9-a20

29-284
9-377

SEQ 0153

bt et B

et bt e

ma NOWVSN—

K 12
CZRMTBO RMOS5/3/2 DR « P7 ioT
MACRO V04.00 4-APR-81 18:12:15 PAGE S=7
CROSS REFERENCFE TAR'
[ (CREF _Vv01-05 )
7-0#
CFLAG
9-85+
9-E20
9-£23
9=HS5%
9=]15w
/=08
CHGADR
916+
9-20+
9=24+
9=176
9-242
9-283
25-444
25-446
25-438
25-494
25-5964 25-606
25-534
25-546
25=548
25-377
25-484
25-488
25-567
25-588
25-605
35-6088 95-715
28-910
98-¢15
25-623#
25-626
25-769
25-:66
9-G36#
CK.CHR
9-G81

26-510 25514

25-526 25-533

25-539

25=543

25=557

25-563

bt bt

83°098" 25-501

CK.DEC
(K.DIG
CK .NUM
CK.OCT
CKBUS
CKCLK

CKCLK1
CKCLK2
CKCLK3
CKERR

CKFMT
CKHCE
CKSWR
CLKFLG

cLOCK
CLRDPB
CLRQUE
CMCNT
CMCYL
CMSEC
CMTRK
COLON
COMMA
CPSAVE
CR
CRLF

9-G14#
9-G6&74

26604

26-21

9-156
9-a58
9-100
9-D38
9-D50
G-D48
9-a57
9-A41
9-A44
11-1
7-0%

9-Ghé

9-D64LH

22-1
9-D4 1+
9-D914

25-<94#
9-672%
9-646
9-668+
9->91
29-31#
111
13-1
9-36

29-24

CYLIMT
CYLNDR
DCKER
DDISP
DEASG
DF1
DF2

9-31

28-22#
28-23#

DF3
DF4
DH1
DH10
DH11
DH12
DH2

28-24

DH3
DH&
DH6

DH7

8-49

28-6#

24-14
9-D52+

9-D70

9=-675*
9=671x
9-:41
9->67

9-678
9-674r
9-,73
9-311%

9676
9=<07*
9-214

9=<13*
9-226

9=<15+
9-al

11-1

1=1+

11=1=

12-1

22-1

22-1»

9-36
29-25

9-50
29-26

9=61
29-36

967
29-36

9=68
29-37

9-141
29-41

13-1
29-42

13-1

29-4
29-45

29-7
29-45

29-8
29-48

29-43

CZRMTBO RM0S5/3/2 DR CMPT TST

CROSS REFERENCE
DISMNT
9-229
DISPLA
DISPLY

DISPRE
DONE
DPINT
DPRQS

DRIVO
DRIV1
DRIV10
DRIV1i
DRIV12

TABL E

MACRO Vv04.00
(SREF v01-05 )

9-31»
9-a95
9-838
9-(63
9-31
9-A274

25-244
25-363

9-31+

11=1»

9-(96

9-(99

9-A01
9-844

9-A07
9-850

4-APR-81

L 12
18:12:15 PAGE S~8
SEQ 0154

22=1+

9-A13
9-B56

9-A18
9-B62

9-D12

9=F60

9-A89
9-867

24~2#

9-A97
9-873

9-A%9
9-B79

9-B05

25-957+

25-:30

25-:32

25-:53

25-:55

9-811

9-817

9=-C15

55-:6!

5=:59

25=:69*

9-B823

9-827

9-(29

9-(54

25-247
25=411»

25-357

25=44Bx 25-628% 25-645

25-789

25-816

25-955

9-158«
9-701
28-13
25-371

9-186
9-761«

9-206
9-781

9-228
9-832+

$-317+
9-907

9-321
9-:47

9-338
9-:59

9-350
9-:14

9-499+
9-:16

9-503

9-<40

9-526

28-17
25-630*

9-238+
9-852

25-643

25-662*

25-704*

25-812

25-847

25-879+

25-887*

25-907

25-663+ 25-792

25=:79»

CRIV13

DRIV14

DRIV1S

DRIV16
DRIV17
DRIVZ2
DRIV3
DRIV4
DRIVS
DRIV6E
DRIV?7
DRIVE
DRVACT
DRVCLR
DRVER
DRVINT
DRVQUE
DRVSTA
DRVTYP

DSWR

DT1
DT10
DT11
D112
D12

DT3

DT4

DT6

D17

DTEER
DTUW
DTYP
bumpP

DUMP2

EM1

7-0#

9=143%
9-622
9-296

25-30#
25=:44%
9-810#

25-269#
25-379
9-527
25-361

9-343
25-292*
6-0
28-12#
28-18#
28-19#
28-20#
8-34
28-14#4
28-15#

=38

28-14
25=551%

28-15
25-599%

25-359
25-=34H
9-782
25-385

25-944

25-958

9-853

25-408

25-225+

25-226%

25-227+

25-228+

25-238+

25-270+

25-873«

25-280+
25-880+

25-324*

25-330«

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=

25221

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-B06
9-B86
9-AC8

9-857
9-B12
9-B92
9-A14

9-B18
9-B94#
9-A194

9-B24
9-C16

9-828
9-(30

9-833

9-839

9-845

9-851

9-857

9-B63

25-419

25-423

25-552%

25-683+

25-795

25-803

25-818

25-896

25-960

28-13#

28-16#4
28-174

9-8374
25-13%#

9-343
9-A98
9-B74
9-296
27=3#4

CZRMTBO RMOS5/3/2 DR CMPT TST
MACRO V04.00
CROSS REFERENCE TABLE (CREF v01-05
)
EM10
9-a95
27-9#
EM1
9-A01
27-10#
EM12
9-a89
27-11#4
EM13
9-AQ7
27-12#
9-A13
EM14
27-134
EM1S
9-A18
27-144
EM2
8-11
27=4h
EM20
9-805
27-154
9-A89
EM21
27-164
9-A99
EM22
27-17#
9-A97
EM23
27-184

EM24
EM25

EM26

EM27

EM3

4-APR-81

18:12:15 PAGE S=9
SEQ

075°

27-19#
27=20#
27=21#
27=22#
27-5#
27=23#
27=24M
27=25#
27=264
27=27#
27-28#
27=29%4

27-6#
27-31#
27-32#

27-35#4
27-7H
27-38#4
27-39%4
27-8#
27-40#

25-682

9-31«
9-371
9-a7#
9-a54
9-31

ES.SAV

FALPAR
FAULT
F ILBUF
FINISH
FMTDPB

25-735

9-31+
9-4634

25-:84

25-=19%

9-795

9-a56

9-664

9-31+

9-31%

9-33«

9-34+

Sg-lz.

22-1«

22-1x

22=-1+

22-1*

25-830
9-A00#
9-753«
9-<46

25-832

25-;18

25-:77

25-=90#

9-a07+
9-C68#

10-3

9-349
9-621
9-990
8:<;§

9-360
9-644
9-993
g-<§g

9-362
9-650
9-:45
9-<50

9-365*«
9-652
9-:50
9-<52

9-366
9-654
9~:3¢
9-<77

9-D38x

9-D39%

9-DS50+

9-Dé4*

11-1

22-1

11=-1»

23-1

23=1x

23-1«

23-1»

231~

9-389
9-905
9=:57
9-<79

9-400
9-927
9-:72
9-<81

9-557
9-929
9-:74
9-<89

9-569
9-931
9=:79%
9-<9N

9-571
9-951
9-;12+
9-=32

9-573
9-959
9=:13»
9-=43

9-579
9-961
9-:15
9-245

9-581
9-963
9-:56
9-=47

N 12
CZRMTBO RMOS/3/2 DR (MPT TST
MACRO V04.00 4-APR-81 18:12:15 PAGE S~10
CROSS REFERENCE TABLE (CREF v01-05 )
FMTER
9-861#
7-04
GENDPB
4-984
GETREG
GETREQ
25-412
25-650
25=725
25=799
25-838
25-909
25-964
9-50
GNS
5=1
5-1
9-6
9-36
9-61
9=67
241
24=1
24=1
24-1
24=1
24=1
241
24~
24=2
24=2
24=1
9-36
GTSWR
24-1#
HALT1
9-593
29=42#
HALT?
9-683
29-434
HALTX
9-A83
9-594
9-684
9-A22
9~HS8
29-414
HCEER
9-B67#4
HCRCER
9-A38
9-B04#
7=0#
HOUR
9-82+
9-D73
9-E02+
9-E03
9=EQ5+
HT
4-58#
13-1
13-1
9-237
25-18
29-19
HZ
7=-04
9-81
9-D93
9-A56
9-B49#
IAEER
IBSAVE
11-1
11-1
11-1
11-1
11-14
11-1+
11-1%
9-696
9-490
9-aL2#
IDLEX
9-751
9-816
9=736
9-.66
INDST
9-77
9-136
9=-31«
IOTVEC
9-31+
ISR
25-691#

K IPARQ
KPATH
KSR
&ABAD
LF

L INDEC

LINET

L INKDV
LINOCT
LODEV

LOGO
LOG1
LOG10
LOG11
LOG12
LOG13
LOG14
LOG15
LOG2
LOG3
LOG4
LOGS
LOG6
LOG?
LOG8
L0G9
LOOP1
LOOP?2

9-995
13-1

9-=77

9-95+

9-G6+

9-613

9-:25

M.DP4LO
M.DP41

9-92+
9-F03
9-E9%4n

LOOP6
(STAD

9-=49

29-474

L OOPS

L OOP4

Q=994
13-1

9-ESO#
9-D08#

9-:16
9->11
9-210
9->81

L 0OP3

Po: 21

=227
9-205#4
9-93

SCe 01%

25=:72
24~
24=1

11=1»

25-:80
24=1

2¢=1

25==55#

24=1
24=1

24=1

24=1
=1

CZIRMTBO RMO5/3/2 CR (MPT !'Sl
MACRG v0¢.00
CROSS REFERENCE TABLE (CRE
v01-05
M.DP42
9
9-E98
M.DP4l
9=F
9-F 104

M.DPSO

MARKX

9-@37

T e
9o

25-157#

25-:01

25-:47

=mo

9370

9-543

9-79%

9-145

msgp

mmg 9gg
9-7

ma;g
MES515
mmg

-794

Bl
G 3 o5
[

B 13

4-APR-B1 18:12:15 PAGE S-11
SEQ

O~F 148

MCPEMX

MESG]

9=150

gf‘

g.-;,\r

9-313

29-8#

=72
9495
9-869

5-757
29-7#

9-828

144

ol
29-344

29~
9-763

9-834

29-4#

sgg
[

9=494

9-756

9-827

29-23#

9-51

9-772

29-5k
29-64
9-D99

9-E01+

gzs
S
ggg

sas

MINUTE

MOD

29-1»

9=244
29-10#
9-826 29-12#
9=247
sg: 1]
7%
9=493
9501
29=224
9=312
29244

29-2#

9=50

9-770

9-83+

9-D78

9-841
9-843
9-D98*

9-168

9-173

9-281

9-a30
9-:67

MOD

Q=242

.’8
===E'1
MXWNDW

9-2104 9-239
64N
2-385

MOD
MOD

9=15
9=196#

9-zgz

5?5 p

9-865

29-484

9-950%

9-:22

9-az7*
9=:04r

9-<86

9-=70

o 3

25-936

ggL?gs

9=>62+

9-308

9-a34
9-.45

9-238+
9-:51

9=<75%

9-<96

9->73

9->77

9->87

212

g;?

(it

8222

O=:418

9=-Al12#4
1L

9->58

25-978

9->69

9=<99x

9-=05+

9=z310

9->08|

BO RM05/3/2 DR (MPT TST
MACRO v04.00
RSF;:S':“ TABLE (CREF v01-05 )

9-;52

9=->69

9->87

N " n (o] o

25-891

]

C13
4-APR-B1 18:12:15 PAGE S-12

25-926

SEQ 0158

25-970

25-=70#

9-=76

9-alBa

D 13

CZRMTBO RMOS5/3/2 DR CMPT TST
MACRO v04.00 4-APR-B1 18:12:15 PAGE S-13
CROSS REFtRENCE M&% (CREF v01-05 )
PS
4=58#4
9-80=
9-:55
9-:56%
9-:65+
(=58
9-E19«
9-E31~

| PSEUDO

PSW

PUNSAF
PWRVE (
QCNT
QDRIV

25-251»

7-0#

4~584

9-973
(=584
25-<53#
9-165

QDRVO
QDRV1
QDRY
QDRV
QDRV4
QDRVS
QDRV6
QDRV7
QINPT
QOUTPT
QSTART
QSTOP
QTERM
QUES
QUOTM
R6

5-<60
5-<63
25-<63
5-<63
5=<6
5-<6
5-<63
5-<63
5=<60#
S5=<67#
25-<72#
25-<7
25-<
29-334
9=-146
4=584

RD.ADR

25=:03+

RD . RM

RD.RM1
RD.hH%

4=58#

25-223

25-;05#
25=;01»

25-345

15-1»
25-=36*

15-1»
25-=56

15=1«

25-=70+

15=1»

29464
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#

15-1»
25-=34

25-<72
25-<73
25-<74
25-<75
25-<76
25-<77
25-<78
25-<79
25-=38+
25-=59
25-=06
25-=75

25-<86#
25-<B6#
25-<86#
25-<86#
25-<86#
25-<Bé#
25-<86#
25-<Bé#
25-=39%
25-=72
25-=42

25-=40
25-=73%
25-=77

25-=42*
25-=74x

25=-=75

25==77~

9-148

9-267

9-269

9-314

9-316

9-496

9-498

9-758

9-7€¢0

9-829

9-831

29-20#

25-;04%

25-:06#

25=:74

25-<07

25-561

25-575

25-713

25-767

25-841

25-851

25-867

25-:22

25=-:01#

9-774
9->34

9-845
9->73

9-246

24-1#4

26=-19

26-28

9-3884

9=31»
25=<95

9-31

25-313

9-916

9=31%

25-319

9-31x
28-14

25-537

25-:33
25=;32#
25=:;24
25~ 364
25-:08

28-14

28-15

4=105#

9-152
7=0#

9-331
9-900

9-512
9=:49

9-722
9-=27

7=0#
7=-0#
7=0#
7=04
7=0%
7=0#
7-0
7=0#
7=-04
7=0#
7=-0%
7=-0#
7=0n
7=-0#4
7=0#
7=0n
7=0#
7=0n

9-.47

9->32

9->77

RDN1

RDN10
RDN11
RDN1
RDN1
RDN14
RDN15
RDN16
RDN17
RDN18
RDNZ
RDN3
RDN4
RDNS
RDN6
RDN7
RDN8
RDNS
RDPO

4=1

7=0#

G-HB9
9-;11

25-243«

151«

25-;34m

RDDAT
RDHD

SEQ 0159

9-31+
25-=19%

9-629

9=H4L9
9-357

RDL IN
RDNO

25=214

25-457«

25-;07#

9-276

25-213

25-409

RD.WRD

RDCHR

9-H67

25-399+

25-:1
25-;:1

9=F 69+

25-346+

RD.RM3

RD.RM4

9-F68

24-1#
9-=35

25-:54

CZRMTBO RM0S5/3/2 DR CMPT TST
MACRO V04.0C
CROSS REFERENCE TABLE (CREF v01-05 )
RDP1
RDP10
RDP11

4-APR-81

E 13

18:12:15 PAGE S~14
SEQ 0160

RDP12

RDP13
RDP14

RDP15

RDP16

RDP17
RDP18

9-=29

RDP2

RDP3

RDP4

RDPS

RDP6

RDP7
RDP8
RDP9
READIN

RE CAL

REL SE
REPLZ
RESREG

9-p80
9-E27
26-46
9-31

RESVEC

25-393

25-396

G-957

25-162#
25-:96

9-:71

9-986
28-19
9=<47
25-23%2
25-<37

25-491

25-458

25-68¢€

25-:01

25-<26

28-19

9=-<45

9-=37
28-19

28~17
28-20

28-17
28-20

25-352
26~-33

25-475
28-16

25-518

25-693

25-513

25-556

25-576

25-604

25-625

25-476%
25=;97+

25-497+
25-<03

25-519+
25-<38«

25-608
25-<43

25-669

25-680~

28-13

25-274*
25-827
25-253+
25-930x
25-483

25-281
25-858
25-273~
25-953+
25-509

25=:21%
25-525

25-487
25-842

25-500
25-868

25-532
25940

25-852

25-941

25-:69

25-805

25-810

25-820

25-941+

25=942*

25-943+

28-13

9-523

9-778

9-849

9-935

9-998

9-<27

9-<56

9-=52

9-=80

9-R99

25-212#4

25-943
25-311

25-538

25-542

25-562

9-308+
9-737+

9-309+
25-163#

25-229

9-522+

9-696+

9-697+

9=749+

9=751»

9-816*

9-817«

9-568

9305+
25-:03

25-318+

25-175#
25-173#
25-768
25-177#
25-839+
25-1764
25-<01
25-187#
25-314
25-284

25-<11
25-320
25-942
25-216

9-£07
Q=74
9-824+
G=:63

25-252

9-31+
9-352
28-18
9-649
9-748+
o g hb)

28-18

25-185#

9-F 254

20~1

9-31#
7-0#
28-18
9-578
9-521%
25-:09

7-0

RM.REG

9-D85
9-E60

25-986#
9-306*
9=236*
25=1744

25-765

9-913

25-895+

9-490+

25-346

28-19

9-<76

9-=42

25-3454

CZRMTBO RMOS5/3/2 DR CMPT TST

CROSS REFER%’;SE
RSTART

16:?1

RTC
SAVEFG

L=944
9-101+

TABLE

(CREF

911
9-336*

SAVREG

25-1178

22—%%8

25-591

SC
s

25-697
25-840

25-765#
25-848

SC12
SC13
SC3

25-801
25-791
25-7804

9-E18

MACRO V04.00

v01-05

9=15+
9-524x

25-718

F 13
18:12:15 PAGE S-15

9-23«

9-465

9-540

9-595

9-685

9-8¢€6

9-A23

9-A84

9=D¢2

9-H59

9=779%

9-850*

9=936%

0-969*

9-999%

G=c28*

9=<57¢

9==53s

Ye=B1%¢

9=3ab0*

9=(00+

25-640

25-692

25-989

25-=:93

25-928

21=1

24=14

25212

25-348

25-408

25-831

25-833

25-884

25-905

25-917

25-937

25-979

25-864

25-866

25-876

25-887#4

9-481

9-554

9-610

9-693

25-904

25-9074#

25-948

9=<26

9==24

9=>26

9=<S58*

G==54*

25-783%#
25-781
25-813
25-811

25-817
25-789#
25-835#
25-861#

S(8

25-828

25-843

SCORE
SEARCH
SECLMT
gEgEND

9-972
4-97#
7-0#
Z-g;'

9-84

9-D83

9-D94*

9-D9S

9=D97*

SEEKFG

2%-3;;-

zg-zigt

9-780*

9-851+

9-937x

9=970%

9=:00%

G9=<29*

SELDRV

4-100#

SELF1
SELF1C
SELF11
SELF12
SELF13
SELF14
SELF15
SELF16

7=-0#

7-0#
7-0#
7-0#
7-0#
7-0#
7-0#
7-0#
7-0#

9-<32

9-<70

9-=08

9->31

9->33

9->93

9->99

7-0#
7-0#

9-<34

29-174
25-277

25-383

25-456

25-685

25-773

25-<36#

9-81+

9-D91+

9-D93~

SCOPE

SELFO

SELF17
SELF18

SELF?2

25-850

L(=538#

7-0#

SELF3
SELF&
SELFS
SELF6
SELF7
SELF8
SELF9
SELFX
SET.IE
SETFMT
SETVEC
SIXTEE
SIZMEM
SKIER
SLASH

7=0#
7=0#
7=0%
7=-0#
7-0#
9-a16
25-246
4-99%
9-100#
7-0#
9-8%9#
9-A76
29-32#

SPOTX

9-382

SPATH

9-:07

25-853

9-,404

25-859
9-=61

25-869
9-=89

9-807

9-896

7-0n
7=-0m

9=->64

9-878#

9->83#

9-419#

25-<94

25-9194

25-93%#
25-950#

SC4
SCS
SCé
SC6A

SC?7

SEQ 0161

9=19+

20-1

25-814
25-794
25-785

9-ES0

)

4-APR-81

G==82¢

G-gEl*

F=(01*

25-125#

G 13

CZRMTBO RMOS/3/2 DR (MPT TST
MACRO v04.00
4-APR-81 18:12:15 PAGE S~16
CROSS REFERENCE TABLE (CREF v01-05 )
SRCHWT
25-87#
25410+
25=515¢ 25-953
25=932+
4L~58#
9-79
STACK
9-612
9-695
9-809
9-31
9-483
9-556
STARS
10-9
29-364
7=0#x
STARSC
9-:41
9-:65
9-<03+
START
5«1
9-15#
START1
9-194
5-3
START?
5-5
9=23#
G=17
START3
9=264
9=21
7=0#
STATIN
4L-58#
STKLMT
7=0#
9-(80
STNDAT
9=(72
STO
25-:16#
STO1

STO2
£T03
STOS

ST06

ST07
ST08
ST09
SVRH70

25-:31

25-:59#

25-:33

25-:504

25-:48
25-736

e3=:37
25-800

SEQ 0160

25-:69%
25162
25-855

25=:64
25-874

25-:67
25-930

25=:74
25:966

25=:86#

25=~:93%#

Sw13

9-31

11-1

9-31

11-1

22-1*
9-31
9-AQ6#
9-183
9-317
6=0

22=1+
9-36

9-37+

3-31+

9= 620

9-196+
9-a26

9-:80

9-31¢

11-1

22-1%
9-H61

9-37s

11-1

22-1»
18-1

9-197+
9-305
29-18#
5-a33

9=-31n

15-1

9-36

9-387

15=1+

18-1

9-521

9-522

18-1
9-306

10-1

22=1

(ZRMTBO RMOS5/3/2 DR C(MPT

CROSS REFERENCE

1)
. TIMER

25-696

TeVEC

4-58#
4=S8#

TPVEC

TRFER

TRAPVE

TRKLMT
TRNSWT
TRTVEC

TST1
TST10

ST
TST2

1ST3

1ST4

TSTS

1576
TST7

TSTNM
TYPDS
TYPE

TYPOC
TYPON
rYrPOsS

TYPRI4
UCPAR
ULDFLG

UNLT
UNSAF

9-;20+

25=:71»
4-58#
9-A3S
7=-0%
9-226
9=:15»

4=58%

$=403
==24K
9=>264
9=-5544
9-591
9-681

9-8074

9-8564
9-:26
7-04
9-a11
9-6
9-165
9-310
9-329
9-500
9-682
9-762
5-830

9-235
9-912
9=A77
9-HS57
9-131
12-1
26-18
9-8
24-14
9-53

9-F 684

9-a75
25-106#
7-0#
9-A29

WCHKX

9-A53
25-721

WLEER

9-A32
4=102#
9-A59

WCFER

WwCKD
WCKER
WCKHD
WRT.AD

WRT.R1
WRT.R2

WRT.R3
WRT R4
WRT.RS

4=101#

25=:50+
25-.61#4

25=:47*
25-:;56
25-:72
25-:83

TABLE

TST

(CREF

25=7044
25=130#
25=:78»

MACRO v04.00
v01-05 )

4&-APR-81

18:12:15 PAGE

13
$=17
SEC 0163

25=597+

25=661+

25=707+

25-836+

25-882+

25-93%4»

25=951«

25=975¢+

25=992

25=994e

25-:63s

9=-347+

9-355

9-589

9-663

9787+

Q=790

9-939

9=:19

9=<60

9-=03

9=>04

9=>35

25=473x

25-631

25-636+

25-647

25=667+

25=678+

25-709

25=710»

25=:34

25=:4bw

9-4814

9-544

9-729

9-610#
9-6934
9-870

9-264

9-;43

9=<30*

9=-=25+

9-145
9-268
9-319
9-493
9-539
9-755
9-794
9-843
9-a01
9-a36
9-p72

9-147
9-274
9-325
9-495
9-543
9-757
9-826
9-865
9-a03
9-A19
9-D82
9-121
12-1
18-1

25=451»

9=-H39+

Q=H4)*

9=31»
9-B72#
9-344n

9-31+

25794

9-<26#4

9-482+
24=-1k
9-36
9-167
9-311
9-369
9-501
9-683
9-763
9-831
9-238
9-a15
9-A78
9-H58

9-555+

9-611«

9-694*

9-808«

9-56
9-247
9-313
9-396
9-5C7
9-6%3
9-769
9-834
9-244
9-a17
9-(34

9-61
9-259
9-314
9-397
9-508
9-699
9-770

9-67
9-265
9-315
9-463
9-509
9-700
9-771
9-840
9-294
9-a24
9-C36

12-1

9-50
9-246
=312
9-370
9-502
9-684
9-764
9-833
9-239
9-a16
9-A83
9-H65
10-6
13-1
26=27
12-1

9-64

9-68

9-D59
9-107
11-1

11-1

18-1

9-146
9-269
9-320
9-494
9-542
9-756
9-825
9-864
9-202
9-a37
9-D77
9-116
12-1
18-1

9-702

9-766

9-837

$-241

=297

24=-14

25-668+

25-797

25-892

25-894+

25-919

25-921+

9-266
9-316
9-464

9-538

9-a26

9-a33

9-705
9-772
9-841
9-295

10-7
19=1

9-H96
10-9
17-1

18-1

2414

26=17

26-26

9-166

9-256

9-322

9-504

25-272+

£5~3555

25-370*

25-553«

25-629*

25-741
9-577
9-A94H

9-955

9-,08

9-<69

12-1

26-24

_9-a%#

9-a48+
9-B9CH
9-B84L#

9-B55#4
25=,;60+
25-:81
25-;80#4
25=:67
25-:844
25-.:85#

25-:634

28-15

25=:70

25=:76

25-;824

9-267
9-318
9-492

9-510

9-835
9-293
9-a23
TM3
9-H73
10-8
16-1

10-5

9-144

9-(93
9-102
10-10
18-1

9-754
9-793
9-842
9-300

18-1

9-111

9-149

9-280
9-327
9=-497

9-593
9-759
9-828
9-269
9-205
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-a10
9-A22
9-HS4
9-127
12-1
26=15

“JRMTBO RMOS/3/2 DR CMPT TST
MACRO v04.00
(ROSS REFERENCE TABLE (CREF v01-05 )

WRT
. RM

25-306

WRT
. WD

25-;48+

WRTHD

4=104#

. WRTDAT

25-310
25-624
25-.52

25-482
25-826
25=:59%

9-A20
9-285

9-259
29-44m
9-298#

9-2664

9280

29=25#

25-603

4=103#

XENDZ2

9=743

XPASS2
XXDP

9-287
7=08

XFATL
XPASS1

9-566

9=728
9=4 1=

9-887

9-402
9=7414
9=44n

4-APR-B81

113

18:12:15 PAGE

SEG 0164

25-486
25857
25-:624

25-490
25-902
28-15

25=499
25=:474

9-910

9-<38

9=45

O=47n

9-52

T 9-623

S~18

25=508

25=512

25=5¢4

9-63

9=161

9-163

25=5%

25=541

25=555

25=565

25=586

CZRMTBO RMOS5/3/¢ DR CMPT TST
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

$SCMRE
$SCMTM
$SESCA
SSNEWT

$$SET

5-250#
5-2504#
4-58#
4-58#

9-481

9-554

264~1

.5DB2D
.8DB20
.SEOP
.SERRO
.SERRT
-SPOWE
.SREAD
BSAVE
.5SCOP
.8SIZE
.STRAP
LSTYPD
STYPE
LBTYPO
LEQUAT
.HEADE
SETUP
LSWRHI
.SWRLO

4-494
4-49%
4=504
4-48¢
4-48%
4504
4&-47#
4-49%
4-50#
4-49%
4-49#
4-48%4
4-47#
4-48¢
4-47#
4-47#
4-47#
4-474
4-47#

5-8
6-0
5-11
144
5=1
5-250
20~
21-1
10-1
11-1
12-1
15~
18-1
19-1
22-1
23-1
24-1
17-1
13-1
16-1
4-58
4-54
4-111
4-55
4=554

4-56

CKDIG

4-18#

25-772
9-A79

25-830
9-A80

10-1
9-36
6-0

23-1
9-364

9-481
9-:05
9-:40

9-554
9-<16
9-:99

(KCHR

CKNUM

COMMEN
ENDCOM
ERRCAL
ERROR
ESCAPE
GETPRI
GETSWR
MORETA
MULT
NEWTST
POP
PUSH
REPORT
SETPRI

SETTRA
SETUP
SKIP
SLASH

STARS

9-3)
9-31
4-58#
4-47#
4-50#
4-50#4
4-504#
4-48#
4-484

4L-84

J 13

18:12:15 PAGE M=1

SEQ 0165

6-0

24-1

$$SETM
$$SETU
$8SKIP
LSACTY
.SAPTB
.SAPTH
-SAPTY
LSCATC
SCMTA

4-APR-81

9-314
9-314

G-G73

24=1

9-610

$-693

9-807

9-894

24=1

9-<26

24=1

24~1

24=1

25-832
9-A81

25-;18
9-A82

25-;77
9-894

9-895

9-896

9-693
9-E47
9-E40

9-807
14~
14~

9-896
14-1
14-1

24-1

24=1

24~1

9-224

24=1

9=>26

24=1

24=14

9-897

22-1

26-43

9-<26
15-1
14-1

9-=24
15=1
15-1

9->26
17-1
15-1

19-1
17-1

191

24~1

24=1

24-1

24=1»

24=2

6=0#

9-G81

4-314

4-58#
4-58#
24-4#
4-584
4-58#
4-58¢
4-58#
5-14#
4-584
4-58#
4-58#
4-58#
4-58#
4-58#

24-i

4-584
4584
4-58#4

4-58#4

9-<26

24-1

9-31

5-8

9-=24

24~-1

9-610
9-239
9-289

24~1

24=¢

=11

9->26

5 -11
10- 1

5=11
1-1

6-0

6-0
4=1

9-481

15=1

9-554

15<1

9-610

16=1

9-693

17=1

9-B07

18-1

9-896

18-1

CZRMTBO RMOS5/3/2 DR (MPT

CROSS REFERENCE

SWRSU

TRMTRP

TYPBIN

TYPDEC

TYPNAM
TYPNUM
TYPOCS

TYPOCT
TYPTXT

TABLE

18-1

19-1

24-18#

24=3

L~58#

4-S8#

L(-58#

4-58#
4-58#
4-S8#

L(=58#
4-S58%#

TST

(CREF

9-31

MACRO v04.00

v01-05

)

20=1

21=1

12=1

18-

9-31#

4-APR-81

K1
18:12:15 PAGE M~¢

22=1

23=1

9=67

9-68

9-a11

9-36

9-166

12-1

9-6

9-50

9=61

24=1

25=1§

SEQ 0166