Digital PDFs

AH-F928A-MC

June 1980

364 pages

Original

19MB

view download

OCR Version

17MB

view download

Document:	CZRMOA0 RM05-3-2 RM05-3-2 FCTNL TST 3 JUN 1980 bw
Order Number:	AH-F928A-MC
Revision:	000
Pages:	364
Original Filename:	CZRMOA0__RM05-3-2__RM05-3-2_FCTNL_TST_3__AH-F928A-MC__JUN_1980_bw.pdf

OCR Text

RM0S/3/8

EZembaoTM TN TST ¥ PYcR2SiRoRC,

EwiEy -o HIRNEL

RI03/3/2

RMO5/3/2
CZRMOAO

FCTNL TST

AH-F928A-MC

JUN 1980

EIEHE 2 OF B . anoie

H0R0HEY

CZRMOAO RMOS/3/2 FCTNL TST 3

MACRD v03.01

11-APR-80 13:39:53 PAGE 1

—

.REM

NN = OO0 NON NS NN

SEQ 0001

IDENTIFIC&IION

PRODUCT CODE:

AC~F927A-M(

PRODUCT NAME:

(CZRMOAO RM05/3/2 FCTNL

DATE CREATED:

APRIL

MAINTAINER:

(X DIAGNOSTIC GROUP

FAUTHOR:

MIKE LEAVITT

TST 3

1980

THE INFORMATION
IN THIS DOCUMENT IS SUBJECT TO CHANGE W]THOU1 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

IN THIS DOCUMENT IS FURNISHED TO THE PURSHASER

UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
(WITH
INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)
ONLY FOR USE IN SUCH
SYSTEM,
EXCEPT AS
MAY OTHERWISE
BE PROVIDED IN WRITING BY DIGITAL.
DIGITAL EQUIPMENT
g‘;GI?ELMBILITY OF
L.

(C)

CORPORATION ASSUMES
NO RESPONSIBILITY FOR THE USE
ITS
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
1980 DIGITAL EQUIPMENT CORPORATION

C
1
11-APR~80 13:39:53 PAGE 2
CONTENTS

INTRODUCTION
1.

ABSTRA(T

UNIT UNDER TEST

OPERATING REQUIREMENTS

2.
3.

HARDWARE REQUIREMENTS

MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE
1.

HALTING

2.
3.
5.

SWITCH OPTIONS
STARTING

RESTARTING

OPERATOR INTERFACE
1.
.
.

[]

[o SV, PN VN], N}

MACRO v03.01

PROGRAM 1.D.
CONSOLE DIALOGUE
PROGRESS REPORTS
PERFORMANCE REPORTS

PROGRAM HALTS

cRROR REPORTS

ENVIRONMENTAL SUPPORT
1.

PROCESSOR COMPATIBILITY

NONWN SN

DININ) o

b mcd e

d d d =

OV NOWVILSNWNN
= OV NIV
NN -

CZRMOAO RMOS5/3/2 FCINL TST 3

MEMORY PARITY HARDWARE
MEMORY MANAGEMENT HARDWARE
ACT, APT COMPATIBILITY
XXDP COMPATIBILITY
OPERATING SYSTEM COMPATIBILITY

2.
.
.
.
.
.

DUAL PORT CONFIGURATIONS

TEST DESCRIPTION

SEQ 0002

CZRMOAQ RMO5/3/2 FCTINL TST 3

MACRO v03.01

1
D
11-APR-80 13:39:53 PAGE 3
SEC 0003

1.0

INTRODUCTION

'§

1.1

ABSTRACT

6
7
8

THE
RM0S5/3/2
SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM
WHICH
USES
FUNCTIONAL
MEANS
TO
VERIFY
THE
OPERABILITY
OF
THE
RM05/3/2 DISK
SUBSYSTEM.
IN PARTICULAR,
THE
PROGRAM SERVES
THE

11
12

DISK

FOLLOWING PURPOSES:

TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE
DRIVE,
INCLUDING MECHANICAL
POSITIONING AND
DATA
TRANSFER

OPERATIONS;

15
}9

TO
IMPLICITLY
ESTABLISH
ELECTRICAL INTERFACE;

18
53

TO
VERIFY THE FUNCTIONALITY OF THE RM05/3/2 SUBSYSTEM.
THE MASSBUS CONTROLLER, MASSBUS ADAPTER AND THE DISK DRIVE.

21
22
23
24
Sg

THE TEST IS COMPRISED OF 3 PARTS, WHICH WOULD NORMALLY BE RUN
IN
SEQUENCE,
STARTING WITH PART 1.
BRIEFLY, PART 1 TESTS HOUSEKEEPING
AND MECHANICAL POSITIONING OPERATIONS;
PART 2 TESTS WRITE.
READ AND

27
28
29

CONFIDENCE

WRITE
CHECK
OPERATIONS
USING HEADER AND DATA;
READ AND WRITE CHECK OPERATIONS USING DATA.

THE

1.2

32
33

THE UNIT UNDER TEST (UUT) IS THE RM0S5/3/2 DISK
CONSISTS OF THE RH MASSBUS CONTROLLER,
THE RMO5/3/2

UNIT UNDER TEST

AND THE STORAGE MODULE DISK DRIVE.

Sg};vsresrmc

)
2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS

45
29

50
51
52
53
gg

THE FOLLOWING

MINIMUM

HARDWARE

OPERATIONAL, IS REQUIRED TO LOAD
FUNCTIONAL TEST:
PDP-11

SUBSYSTEM WHICH
MASSBUS ADAPTER,

NOTE THAT A DISK PACK IS REQUIRED

AND IS CONSIDERED AN INTEGRAL OF

38
39
2?

INCLUDING

PART 3 TESTS WRITE.

§<1)

DRIVE/ADAPTER

AND

THE STORAGE MODULE DISK

CONFIGURATION,

EXECUTE

ASSUMED

THE RMO5/3/2 SUBSYSTEM

PROCESSOR

16K MEMORY

KW11-L OR KW11-P CLOCK
PROGRAM LOADING DEVICE
TERMINAL
RH11 OR RH70 CONTROLLER
1 7O B DISK DRIVES (ANY COMBINATION OF RMO5'S. RMO3'S OR RM02'S)

CZRMOAO RMOS5/3/2 FCTNL TST 3

MACRO v03.01

1
E
11-APR-80 13:39:53 PAGE 3-1
SEQ 0004

2.2

MEDIA REQUIREMENTS

EACH UNIT BEING TESTED MUST BE LOADED WITH A
SCRATCH
DISK
PA(K
BEFORE TESTING BEGINS
ON
THAT
UNIT.
THE DISK MUST BE FORMATTED AND
CONTAIN A
READABLE COPY OF THE MFG AND USR BAD SECTOR FILES.

2.3

PREREQUISITE DIAGNOSTIC PROGRAMS

RM05/3/2 DISKLESS DIAGNOSTIC, PART 1 & 2
RMO5/3/2 FUNCTIONAL TEST, PART 1

3.0

OPERATING PROCEDURE

3.1

8§ 2

THE PROGRAM MAY BE LOADED BY EITHER OF

THE FOLLOWING MEDIA:

.PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE.
.XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE.

3.2
OF

SWITCH OPTIONS
THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE
THE PROGRAM.

SW15
SW14
SW13
Sw12

HALT ON ERROR
LOOP ON TEST (CURRENTLY BEING EXECUTED)
INHIBIT ERROR TYPEQUTS
UNUSED

SW10
SW09
Sw08

BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SW07-00

SwW11

INHIBIT TEST ITERATIONS

THE LOW ORDER 8 SWITCHES

Sggg OLO

UTILITY

SPECIFY

(SW07-SW00),

THE OCTAL NUMBER OF

ARE

USED

CONJUNCTION

WITH

THE TEST WHICH THE PROGRAM WILL

b b b b ek

(o]
5wm-:o%m\|8\n

104

3.3

STARTING

THE PROGRAM STARTS AT LOCATION 200,
WHICH
PROVIDES
WORST
CASE
TEST CONDITIONS IF RUNNING IN AN AUTOMATIC ENVIRONMENT.
IF RUNNING IN

A STAND-ALONE ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE
THE OPERATOR TO CONTROL TEST CONDITIONS.

ALLOW

MACRO v03.01

3.4

d ) i oy b

(9,
]
AW
NA
N AW= OV
NN NI
= 2 =N 2 W
~
W
NRAVNEB WA =000

CZRMOAO RMOS/3/2 FCTNL TST 3

Fo1

11-APR-80 13:39:53 PAGE 3-2

SEQ 0005

HALTING
THE PROGRAM SHOULD BE HALTED BY

NOTE:

TYPING CONTROL

FROM THE

CONSOLE.

IF THE
PROGRAM IS
HALTED
BY ANY OTHER MEANS,
BAD HEADER
INFORMATION
MAY BE LEFT ON THE DISK PACK.
THiS OF
COURSE
IS BEING PERFORMED AT

THE

TIME OF

THE

3.5

) D

d o

&E\P;NDS ON WHICH TEST
LT.

THE

d
D el d cod D D wd
— md d o

39
12?

RESTARTING
PROGRAM CAN BE

4.0

OPERATOR INTERFACE

4.1

PROGRAM ID
THE PROGRAM TYPES

IS _STARTED

AFTER BEING

RESTARTED AT ADDRESS 200.

ITS TITLE AND MAINDEC NUMBER THE

LOADED.

ALSO,

A WARNING

FIRST

MESSAGE IS

NOTIFING THE OPERATOR OF POSSIBLE HEADER CORRUPTION IF

TIME

TYPED,

THE PROGRAM IS

HALTED
IMPROPERLY.
THE PROGRAM IDENTIFICATION AND THE WARNING DO NOT
OCCUR IF THE PROGRAM IS RESTARTED.

142

143
}zg

4.2

146
147
;Izg

WHEN THE PROGRAM IS RUNNING IN STAND
ALONE
MODE,
IT
ENTERS A
CONSOLE DIALOGUE
SEQNENCE AFTER TYPING
THE PROGRAM ].D. AND WARNING
MESSAGE
. (SEE SECTION 4.1)

150
151
;Ig%

THE FIRST QUESTION TYPED QUT IS:
‘TYPE HELP TEXT
(Y/N) ?'',
IF
THE
OPERATOR
RESPONDS WITH A 'Y'', THE PROGRAM WILL TYPE A BRIEF
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC.

154

CONSOLE DIALOGUE

NOTE:

}gg

THE FIRST

QUESTION IS

ONLY ASKED

ON THE

START AND NOT ON SUBSEQUENT START-UP'S.

INITIAL PROGRAM

157
158
159

THE SECOND QUESTION TYPED IS, ‘‘CHANGE ADDRESSES (Y/N) ?''. IF THE
UNIBUS
ADDRESS OF THE
RH/RM IS
NON STANDARD,
THE
OPERATOR SHOULD
RESPOND
WITH A '%Y'',
THEN ANSWER SUBSEQUENT
QUESTIONS
TO
SPECIFY

}2}

OPERATOR RESPONSE IS A 'N'', THE PROGRAM SKIPS TO THE THIRD QUESTION.

160

163

164

THE

TYPE

UNIBUS ADDRESS,
THE

THIRD

VECTOR

QUESTION

DRIVE NUMBER(S)

ADDRESS AND INTERRUPT PRIORITY.

TYPED IS,

AND TERMINATE

°'TYPE *A’° TO TEST ALL DRIVES, OR

INPUT WITH

A CARRIAGE RETURN.'

165

THEN,

}gg

TESTED AND TERMINATE HIS INPUT WITH A "'CARRIAGE RETURN''.

166

169
170
17

'DRIVE(S):'

IF THE

IS TYPED AND WAITS FOR THE OPERATOR TO TYPE AN '‘A'’,

TO TEST ALL POSSIBLE DRIVES OR THE NUMBER(S) OF THE DRIVE(S) HE WANTS
NOTE:

THE
THE
THE

LONG
VERSION OF THE
THIRD QUESTION IS ONLY TYPED ON
INITIAL ®ROGRAM START.
ON ALL SUBSEQUENT STARTS, ONLY
'DRIVE(S):' PROMPT IS TYPED.

CZRMOAO RMOS/3/2 FCTINL TST 3

MACRO v03.01

.1
G
11-APR-80 13:39:53 PAGE 3-3

IF_THE PROGRAM IS RESTARTED, THE FIRST QUESTION
TYPED
IS,
'VUSE
DEVICES
(Y/N) ?''.
IF
THE
OPERATOR
TYPES '*Y'', THE
TEST
IS

d D cad e

4.3

PROGRESS REPORTS

FOR

ALL

MESSAGE AND AN ERROR SUMMARY.

D e e

4.4

PERFORMANCE REPORT

PROGRAM.

RESTARTED USING THE SAME DEVICES AS THE LAST TIME, OTHERWISE, THE TEST
?gggARTS
THE
DIALOGUE
AS
IF THE PROGRAM WERE STARTED FOR THE FIRST

D e

i i

b d

SAME

)

000
00ETM
00000000 Y~y
YNV
RECSSGSLRAR LB
BRI RRRER
2B IFIFININ

SEQ 0006

AN END OF PASS REPORT OCCURS EACH TIME
IN THE

TEST QUE.

THE

END OF

PROGRAM

PASS REPORT

EXECUTED

INCLUDES A

NININININ — et cd b e

d d

D i

DEVICES

4.5

v
b o

DURING

4.6

THE

EXECUTION

THE

PROGRAM HALTS

THERE ARE NO SCHEDULED HALTS DURING THE
PROCESSOR HALTS ARE DUE TO THE TRAP CAT(HER.

EXECUTION OF

THE

PROGRAM.

ERROR REPORTS

THE FIRST LINE OF THE ERROR REPORT (ONTAINS
THE
NUMBER
OF
THE
UNIT
BEING TESTED, THE TEST NUMBER, THE ERROR NUMBER AND THE VALUE Of
THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED.
THIS LINE IS FOLLOWED
BY
THE
ERROR MESSAGE:
ONE OR MORE LINES OF TEXT WHICH GIVE A BRIEF,
YET COMPREHENSIVE DESCRIPTION OF THE
ERROR,
THE
ERROR MESSAGE
IS
NORMALLY
FOLLOWED BY ONE
OR MORE
PAIRS OF LINES CONTAINING DATA
HEADERS AND DATA PERTININENT TO
THE
ERROR,
INCLUDING EXPECTED
AND

ACTUAL

D md e

PPN

[+ L NTo YV, P NV N}

205
206
207
208
209
210
21

NO PERFORMANCE REPORTS ARE GIVEN

TEST RESULTS.

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

THE RMO5/3/2 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON ANY PDP-11
PROCESSOR,
PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE
MET, AND PROVIDING THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO
SUSTAIN DATA TRANSFER OPERATIONS.

225
226
227

5.2

2
220
221
222
552

DUAL PORT CONFIGURATIONS

CZRMOAQ RMOS/3/2 FCINL TST 3

MACRO v03.01

11-APR-80 13:39:53 PAGE 3-¢
SEQ 0007

THE RMO5/3/2 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST

DUAL
PORT
LOGIC
IN
THE
RMOS5/3/2
ADAPTER
BUT
IS
EXECUTABLE
ON
RM0S5/3/2
SUBSYSTEMS
HAVING
THE
DUAL PORT OPTION PROVIDING THE DUAL

PORT

5.3

SWITCH IS SET

TO THE APPROPRIATE PORT

(A OR B).

MEMORY PARITY HARDWARE
MEMORY PARITY HARDWARE

IS NOT USED DURING THE

EXECUTION

RM05/3/2 SUSBYSTEM FUNCTIONAL TEST.

5.4

THE

MEMORY MANAGEMENT HARDWARE
MEMORY

MANAGEMENT

SUSBYSTEM FUNCTIONAL

5.5

ACT11, APT11

HARDWARE

TEST.

NOT

CAPABILITIES OF

USED

DURING

THE

RM0S/3/2

THE MASSBUS CONTROLLER.

COMPATIBILITY

THE RMO5/3/2
SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH
ACT11
AND APT11
IN
BOTH
DUMP
AND
AUTOMATIC MODES.
FURTHER, THE PROGRAM
WILL EXECUTE
A
QUICK
PASS DURING THE FIRST PASS IN SUPPORT OF QUICK
VERIFY MODE.

5.6

XXDP COMPATIBILITY

THE RMO5/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN
DUMP
AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE
THE RM05/3/2 1S THE XXDP LOADING DEVICE.

5.7

OPERATING SYSTEM COMPATIBILITY
THE PROGRAM

6.0

S NOT COMPATIBLE

WITH ANY SOf TWARE OPERATING SYSTEM.

TEST DESCRIPTION

CONTROLLER ACCESS

TEST

PURPOSE
:

TO
VERIFY
THAT
THE
UNIBUS
ADDRESS OF
CORRECT, AS DEFINED AT LOCATION $BASE.

THE

SUBSYSTEM

MACRO V03.01

I 1

11~APR-80 13:39:53 PAGE 3-5
SEQ 0008

286
287
288
289

PROCEDURF:

THE TEST TRIES TO ACCESS ALL
MASSBUS
CONTROLLER
REGISTERS
USING
THE
S$BASE
ADDRESS.
REGISTER CONTENTS ARE IGNORED DURING
THE TEST, AND THE TEST FAILS IF A
BUS
TIMEOUT
OCCURS
FOR
ANY
REGISTER TRANSFER.

292

293

IF_THE TEST FAILS AND THE PROGRAM
IS
RUNNING
IN A
STAND
ALONE
ENVIRONMENT, I.E., LOCATION 42 IS O, THE PROGRAM WILL JUMP
TO LOCATION 204 WHICH ALLOWS THE OPERATOR
TO
CHANGE
THE
$BASE

ADDRESS
VIA CONSOLE DIALOGUE.
THE END OF PASS HANDLER.

DEVICE AVAILABLE

OTHERWISE,

THE PROGRAM ESCAPES

TEST

PURPOSE
:

AND

ONOWVISWN=-O

294
295
296
297
298
299
300
301
302
303
304
305
306
307
308

TO VERIFY THAT THE UNIT UNDER TEST IS AVAILABLE FOR TESTING,
IS NOT LOCKED OR PROGRAMMED TO THE ALTERNATE PORT.

PROCEDURE
:

THIS TEST
SELECTS
THE
DEVICE
AND
READS
CONTROL
STATUS
REGISTERS 1 AND 2 TO VERIFY THAT THE SELECTED DEVICE IS AVAILABLE
FOR TESTING, AS INDICATED BY DVA STATUS, BIT 11 OF RMCS1 AND
NED
EgATgaé
BIT
12
OF
RM(CS2.
THE RESULTS OF THE TEST CAN VARY AS
:
LL

NONEXISTANT DEVICE - THE DEVICE IS NONEXISTENT OR IS LOCKED
ON THE ALTERNATE PORT AND IS THEREFORE NOT AVAILABLE FOR TESTING;

319

.DEVICE NOT AVAILABLE -~ THE DEVICE EXISTS BUT IS

THE ALTERNATE PORT AND

IS NOT AVAILABLE FOR TESTING;

.BUS TIMEOUT - THE MASSBUS CONTROLLER
NONEXISTENT DEVICE;

.DEVICE AVAILABLE - THE DEVICE

FAILED

SEIZED

DETECT

IS AVAILABLE FOR TESTING.

THE PROGRAM JUMPS TO THE SUBPASS HANDLER WHICH
SELECTS
NEXT DRIVE TO BE TESTED IF THE DEVICE IS NOT AVAILABLE.

DRIVE

TYPE

THE

TEST

:
PURPOSE
TO
VERIFY THAT THE UNIT UNDER TEST
SINGLE PORT OR
DUAL PORT SUBSYSTEM,

IS AN RMOS,

RMO3 OR RMO?

oo
]

CZRMOAQ RMOS/3/2 FCTINL TST 3

CZRMOAO RMOS5/3/2 FCTNL TST 3

MACRO v03.01

1
J
11~APR-80 13:39:53 PAGE 3-6

SEQ 0009

PROCEDURE :

THIS TEST READS

THE

DRIVE

DATA

AND

TYPE

RMDT,

THE

DATA FUNCTIONALITY OF

THE

SELECTED
DEVICE AND VERIFIES THAT THE DEVICE IS A SINGLE PORT OR
DUAL
PORT
RMO5/3/2 SUBSYSTEM.
IF THE SELECTED DEVICE IS NOT AN
RM05/3/2, THE
PROGRAM JUMPS
TO
THE SUBPASS HANDLER WHICH WILL
SELECT THE NEXT DEVICE FOR TESTING.

WRITE/READ DATA TESTS
PURPOSE :

TO_

RM05/3/2

TEST

WRITE

SUBSYSTEM

USING

READ

A SET OF VARIABLES WHICH INCLUDE WORD

COUNT, HEAD MOTION, HEAD SWITCHING AND ERROR CONDITIONS.

PROCEDURE :

ALTHOUGH EACH
TEST
EXERCISES
A
DIFFERENT
VARIABLE,
THE
GENERAL
PROCEDURE
OF
EACH
TEST
IS
THE
SAME.
1HE DRIVE IS
INITIALIZED AND RECALIBRATED IF ‘PIP'' OR '‘SKI'' ARE ACTIVE SO THAT
THERE
ARE
NO ERRORS WHEN A TEST BEGINS.
THEN, THE TEST FORMATS
THE SECTOR BEING USED, WHICH MAY VARY FROM THE
PROGRAM
LISTING,
BECAUSE
SECTORS
ARE SUBSTITUTED DURING RUN TIME IF THE SELECTED
SECTOR IS LISTED IN THE
BAD
BLOCK
TABLE
OF
THE
LAST
TRACK.
FOLLOWING THAT, THE TEST PERFORMS ANY EXPLICIT SEEKS REQUIRED FOR
THE CONDITIONS OF THE TEST.
REGISTERS ARE PRESET AND
THE
WRITE
DATA
COMMAND
IS
EXECUTED.
WHEN THE WRITE COMMAND IS COMPLETE,
THE TEST STORES ALL
SUBSYSTEM
STATUS
AND
CHECKS
FOR
PRIMARY
ERRORS
WHICH PRECLUDE
OTHER
STATUS
CHECKS.
IF THERE ARE NO

PRIMARY ERRORS,

THE

TEST

VERIFIES

THE

RESULTS

THE

WRITE

COMMAND AND THEN CHECKS FOR SECONDARY ERRORS.
LOOP ADDRESSES ARE
MODIFIED FOLLOWING THE SUCCESSFUL COMPLETION OF THE WRITE COMMAND
IN ORDER
TO
SHORTEN EXECUTION TIMES AND ENHANCE SCOPING LOOPS,
THEN THE PROGRAM EXECUTES THE READ
DATA
PORTION
OF
THE
TEST,
VERIFYING THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND.
NOTE:

THAT
THE
SECTOR
USED DURING A
TEST MAY DIFFER FROM
THE
PROGRAM
LISTING BECAUSE THE PROGRAM SUBSTITUTES A GOOD SECTOR IF
THE ONE SELECTED IS LISTED IN THE BAD BLOCK
TABLE
OF
THE
LAST

ggfigfi1

WRITE,

UNLESS

SPECIFIED OTHERWISE,

ALL

TESTS

ARE

IN 16 BIT

READ ZEROS TEST

THE

TEST WRITES AND READS AN ALL

ZEROS DATA

FIELD,

CAUSING

CZRMOAQO RMOS/3/2 FCTINL TST 3

MACRO v03.01

K
1
11-APR-80 13:39:53 PAGE 3-7

SEQ 0010
400
401
402
403
604
405
406
407

408
409
410
an
412
413
414
415
416
417
418
419
420
421

422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439

THE DRIVE

TO USE NORMAL WRITE GATE

THOUGHOUT

THE WRITE PROCESS.

WRITE, WRITE CHECK ZEROS TEST
THE TEST WRITES AND WRITE CHECKS AN ALL
VERIFYING THAT THERE ARE NO ERRORS.

ZEROS

DATA

FIELD,

WRITE, WRITE CHECK ZEROS W/ WCE ERROR TEST

EACH

THE

BIT

TEST WRITES AN ALL ZEROS DATA

IN THE LAST WORD

COMMAND IS EXECUTED AND THE TEST
CHECK ERROR IS DETECTED.

WRITE,

THE

FIELD,

THEN

WRITE BUFFER.

COMPLEMENTS

A WRITE CHECK

VERIFIES THAT THE CORRECT WRITE

READ ONES TEST

THE TEST WRITES AND READS AN ALL ONES
DATA
FIELD,
CAUSING
THE DRIVE TO USE NORMAL WRITE GATE THOUGHOUT THE WRITE PROCESS.

WRITE,

WRITE

THE

CHECK ONES TEST

TEST WRITES AND WRITE CHECKS AN ALL ONES DATA FIELD.

440
441
442

443
444
445
446
447
448
449

WRITE, WRITE CHECK ONES W/ WCE ERROR TEST

THE TEST WRITES AN ALL ONES
DATA
FIELD,
THEN
PERFORMS
A
WRITE CHECK DATA COMMAND AFTER COMPLEMENTING EACH BIT [N THE LAST
WORD OF
THE
WRITE BUFFER.
THE TEST VERIFIES THAT
THE
CORRECT
WRITE
CHECK ERROR IS DETECTED.

WRITE,

WRITE

THE

TEST

CHECK MULTIPLE

SECTORS TEST

SEEKS TO CYLINDER O TO

INSURE

THERE

HEAD

MACRO v03.01

1
L
11-APR-80 13:39:53 PAGE 3-8

SE@ 0011
457
458

459

460
461
462
463
464
465
466
467
468
469
4«70
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486

MOTION
DURING
DATA
TRANSFER.
THE WRITE DATA COMMAND FOLLOWS,
WITH THE WORD COUNT EQUAL TO MULTIPLE SECTORS.
THE SAME SECTORS
ARE VERIFIED WITH A WRITE CHECK DATA COMMAND.

WRITE,

READ WITH IMPLIED SEEK TEST

THIS TEST SEEKS TO THE LAST CYLINDER PRIOR TO

ON CYLINDER 0,

TRACK O, SECTOR 0.

WRITING

DATA

THE EXPLICIT SEEK INSURES THAT

THERE WILL BE MAXIMUM HEAD MOTION DURING THE IMPLIED SEEK OF
THE
WRITE
COMMAND.
THE SAME OPERATION, INCLUDING THE EXPLICIT SEEK
IS REPEATED FOR READ DATA.

WRITE,

WRITE

CHECK WITH +

AD SWITCHING TEST

THE TEST SEEKS TO CYLINDER O TO
INSURE
THERE
IS
NO
HEAD
MOTION
DURING DATA TRANSFER.
THE WRITE DATA COMMAND STARTS WITH

CYLINDER O,

MULTIPLE

TRACK O, SECTOR 31,

THE

WORD

COUNT

EQUAL

SECTORS WHICH CAUSES THE SUBSYSTEM TO SWITCH FROM TRACK

0 TO TRACK 1 AFTER THE FIRST OF THE MULTIPLE SECTORS ARE WRITTEN.

THE SAME
SECTORS
ARE VERIFIED WITH A WRITE
CHECK DATA COMMAND,
USING THE SAME WORD COUNT AND STARTING SECTOR.

487

488
489
490
491
492
493
494
495
496
497
498

500
501
502
503

WRITE,

LAST

WRITE

CHECK WITH MID-TRANSFER SEEK TEST

THIS TEST WRITES MULTIPLE SECTORS STARTING WITH CYLINDER

TRACK AND SECTOR 31.,

FIRST SECTOR IS
WRITTEN.
WRITE CHECK DATA COMMAND.

WRITE,

CAUSING A MID-TRANSFER SEEK AFTER THE

THE

SAME SECTORS

ARE VERIFIED WITH A

READ W/ HCE ERROR TEST

A SECTOR IS FORMATTED WITH AN
INCORRECT
HEADER,
THEN
THE
TEST
WRITES AND READS DATA FROM THE SECTOR AND VERIFIES THAT THE
"ORRECT ERROR IS DETECTED.
EACH
BIT
POSITION
OF
BOTH
HEADER
WORDS IS TESTED IN THIS MANNER.

WRITE,

READ W/ HCI

TEST

CZRMOAQ RMOS/3/2 FCTINL TST 3

MACRO v03.01

M
11-APR~-80 13-39:53 PAGE 3-9

SEQ 0012
A SECTOR 1S FORMATTED WITH AN INCURRECT HEADER, THEN WRITTEN
AND
READ
WITH HEADER COMPARE INHIBITED.
THE TEST VERIFIES THAT
NC ERROR IS DETECTED.

WRI

RERY W/

JVC ERROR TEST

VOLUME VALiD IS RESET BY SETTING

AND

RESETTING

DIAGNOSTIC

MODE.
THE
TEST YHEN EXECUTES A WRITE DATA COMMAND AND VERIFIES
THAT INVALID (OMMAND STATUS SETS.
THE TEST IS REPEATED FOR
READ
DATA COMMAND.

WRITE,

READ W/ ABORT TEST

THE TEST SETS AN ERROR IN THE ERROR REGISTER AND EXECUTES
A
WRITE
DATA
COMMAND
VERIFYING THAT ‘PIP’'‘' REMAINS INACTIVE.
THE
SAME PROCEDURE IS USED FOR READ DATA COMMAND.

WRITE, READ EACH CURRENT LEVEL
THE

TEST

TEST WRITES AND READS 7. cACH OF

THE FOLLOWING CYLINDERS

IN ORDER TO WRITE AT EACH PC3>IBLE CURRENT THRESHOLD.
CYLINDER

110 mA

128

104 MA

256

97 mA

384

91 MA

512

84 MA

640

77 MA

768

70 MA

WRITE,

WRITE

CHECK W/ CURRENT LEVEL SWITCHING TEST

THE TEST WRITES 2 SECTORS STARTING WITH THE LAST

SECTOR

Coeo

CZRMOAO RMOS/3/2 FCTINL TST 3

CZRMOAQ RMOS5/3/2 FCTINL TST 3

MACRO v03.01

571

N
1
11-APR-80 13:39:53 PAGE 3-10
CYLINDER

383,

SEQ 0013

THE FIRST SECTOR IS WRITTEN AT ONE CURRENT LEVEL

572
573

AND THE SECOND SECTOR IS WRITTEN AT ANOTHER CURRENT LEVEL.
SECTORS ARE VERIFIED WITH A WRITE CHECK DATA COMMAND.

579

WRITE, READ EARLY PEAK SHIFT TEST

581
582

THIS TEST WRITES AND READS A
SINGLE
SECTOR
PATTERN DESIGNED TO INTRODUCE EARLY PE~K SHIFT.

588

WRITE, READ MIXED PEAK SHIFT TEST

590
591

THIS TEST WRITES AND READS A SINGLE
SECTOR
PATTERN DESIGNED TO INTRODUCE MIXED PEAK SHIFT.

597

WRITE, READ EACH TRACK TEST

599
600

THE TEST WRITES AND READS WITH EACH
EARLY, NORMAL AND LATE WRITE GATES.

606

READ, WRITES CHECK MULTIPLE SECTORS IN OFFSET MODE TEST

608
609
610

THE TEST EXECUTES READ DATA AND WRITE CHECK DATA COMMANDS IN
OFFSET
MODE
IN BOTH OFFSET DIRECTIONS WITH THE TRANSFER SIZE OF
TWO SECTORS AT A TIM:.

616

HEAD

BOTH

USING

DATA

USING

DATA

MIX

USING

MACRO v03.01

B 2
11-APR-80 13:39:53 PAGE 4

SEQ 0014
1

486
487

;PROGRAM REVISION #4001
LTITLE
CZRMOAO RMO5/3/2 FCTNL TST 3
:*COPYRIGHT (C) 1980
;*DIGITAL EQUIPMENT CORP.
: *MAYNARD, MASS.

01754

*«PROGRAM BY MIKE LEAVITT
* %

1#THIS PROGRAM WAS ASSEMBLED USING THE PDP-11
s *PACKAGE (MAINDEC-11-DZQAC-C4), 1980.
- %

.SBTTL
1

OPERATIONAL SWITCH SETTINGS
SWITCH

USE

YR
N
T
I
LIIR I

NP Nk NP B

8,0,
N,
S
S

490
9N

b
B
LAE 2

BE B

00,0,

489

BE N

NS NE B

.SBTTL

O =MW
H NN NOOOO
= NIWSN

488

SCOPE

HALT ON ERROR

LOOP ON
INHIBIT
UNUSED
INHIBIT
BELL ON
LOOP ON
LOOP ON
TN128
TN64
TN32
TN16
TN8
TNG
TN2
N1

TEST
ERROR TYPEOUTS
ITERATIONS
ERROR
ERROR

TEST IN SWR<7:0>

BASIC DEFINITIONS

é;i?éTIAL A?ggESS OF

ERROR

MAINDEC SYSMAC

= EMT

= JOT

THE

STACK POINTER =x*

17100 #«x

;:BASIC DEFINITION OF ERROR CALL

;:BASIC DEFINITION OF

SCOPE CALL

s *MISCELLANEOUS DEFINITIONS

LF
CR
CRLF

ggu Ps

STKLMT

PIRQ

DSWR
ODISP

= 12
=15
= 200

= 177776

= 177774

= 177772

= 177570
= 177570

;:CODE FOR HORIZONTAL

;;PROCESSOR STATUS WORD

;:STACK LIMIT REGISTER

; PROGRAM INTERRUPT REQUEST REGISTER

; HARDWARE SWITCH REGISTER
; HARDWARE DISPLAY REGISTER

; *GENERAL PURPOSE REGISTER DEF INITIONS

RO
R1
R2
R3

= 20
=21
= X

=23

TAB

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

;s GENERAL REGISTER
;;GENERAL REGISTER
; ;GENERAL REGISTER

;. GENERAL REGISTER

[S
o

CZRMOAQ RMOS/3/2 FCINL TST 3

BASIC DEFINITIONS

000004 |

C 2
MACRO V03.01 11-APR-80 13:39:53 PAGE 4~-1

Ré

= %

000005
000006
000007 000006
000007

RS
R6
R7
SP
PC

000000
000040
000100
000140
€00200
000240
000300
000340

PRO
PR1
PR2
PR3
PR4
PRS
PR6
PR7

100000
040000
020000
010000
004000
002000
001000

SW15
Swi4
SWi3
sWi2
SW11
SW10
SW09

= 100000
= 40000
= 20000
= 10000
= 4000
= 2000
= 1000

000200
000100
000040
000020
000010
000004

SW07
SWo6
SWO5
SW04
SWo3
SW02

= 200
= 100
=40
= 20
=10
=4

000400

000002

000001
001000

000400

000200
000100
000040
000020

000010

=
=
=
=
=

: :GENERAL REGISTER

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

:*PRIORITY LEVEL DEFINITIONS
=0
=40 = 100
=
=
=
=
=

140
200
240
300
340

::PRIORITY
::PRIORITY
::PRIORITY
::PRIORITY
::PRIORITY
::PRIORITY
::PRIORITY
:sPRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

0
1
2
3
4
S
6
7

s*''SWITCH REGISTER'® SWITCH DEFINITIONS

SW08

= 400

SWO01

SW0
=1
SW9=SW09

SW8=SW08

SW7=SW07
SW6=SW06
SW5=SW05
SW4=SW04

SW3=SW03

000004
000002
000001

SW2=SW02
SW1=SW01
SW0=SW00

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100

BITIS
BIT14
BIT13
BIT12
BIT11
BITI0
BIT09
BITO8
BITO7BIT0O6

000040

%5
%26
%7
%6
%7

SEQ 0015

:*DATA BIT DEFINITIONS (BITO0 TO BIT15)

BITOS

= 100000
= 40000
= 20000
= 10000
= 4000
= 2000
= 1000
= 400
= 200
= 100

= 40

[ aa W

CZRMOAQ RMOS5/3/2 FCINL TST 3

000020
000010
000004
000002
000001
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

492

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

BIT04
BIT03
BIT02
BIT01
BIT00
BIT9=81 10
BIT8=8] 708
BIT7=81 107
BIT6=BI 106
BIT5=81 105
BIT4=8] T04
BIT3=8] 703
Bl T12=81 102

BIT1=8] 101
B1T0=81 100

;*BASIC ''CPU'* TRAP VECTOR ADDRESSES
;. TIME OUT AND OTHER ERRORS
J:B%EES}/;D AND ILLEGAL INSTRUCTIONS

ERRVEC
RESVEC
TBITVEC

TRTVEC
BPTVEC

. :TRACE TRAP
: :BREAKPOINT TRAP (BPT)

PWRVE
(

; sPOWER FAIL
; sEMULATOR TRAP (EMT) ==ERROR*%

TKVEC
TPVEC
PIRQVEC

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

I0TVEC

;o INPUT/0UTPUT TRAP (10T) =«SCOPE=x«

EMTVEC
TRAPVEC

;" TRAP'' TRAP

493

.SBTTL

495
496
497
498

;*RMCS1 CONTROL. STATUS REGISTER

494

499

500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519

004000
000040

000020

000010
000004
000002
000001
000077
000000
000002
000004
000006
000010
000012

000014
000016
000020

000022
000022
000024

000026

DVA
Fé
F3

F1
FO
GO

FNCMSK

RM REGISTER BIT DEF INITIONS

=
=
=
=
=
=
=
=

BIT1
BIT0S
BIT04
BITO3
BIT02
BITO1
BIT00
000077

;DEVICE AVAILABLE-READ ONLY
sFUNCTION CODE
sFUNCTION CODE
sFUNCTION CODE
sJFUNCTION CODE
sFUNCTION CODE
;G0 BIT
sFUNCTION CODE MASK

sFUNCTI ON CODES (BITS 01-05 OF RM(CS1)
= 000000
;NOP_COMMAND
ILFO2
= 000002
s ILLEGAL COMMAND
SEEK
= 000004
; SEEK COMMAND
RECAL
= 000006
sRECALIBRATE COMMAND
DRVCLR
= 000010
;DRIVE CLEAR COMMAND
NOP

OFFSET
RT(
RIP

=
=
=
=
=

ILF24
ILF26

= 000024
= 000026

RLEASE

PAKACK
PACACK

000012
000014
000016
000020
000022

= PAKACK

sRELEASE COMMAND
;OFFSET COMMAND
JRETURN TO CENTERL
INE COMMAND
JREAD IN PRESET COMMAND
sPACK ACKNOWLEDGE COMMAND

s ILLEGAL COMMAND
;ILLEGAL COMMAND

SEQ 0016

Y o~

D 2
11-APR-80 13:39:53 PAGE 4-2
— NS =)
oo

BASIC DEFINITIONS

MACRO v03.01

tinnnn

CZRMOAO RMOS/3/2 FCTNL TST 3

CZRMOAO RMOS/3/2 FCINL TST 3

RM REGISTER BIT DEFINITIONS

520
523

524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552

553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571

000030
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
C00056
000060
000062
000064
000066
000070
000072
000074
000076

MACRO v03.01

11~APR-80 13:39:53 PAGE 4-3
SEQ 0017

SEARCH
ILF30
ILF32
ILF34
ILF36
ILF40
ILF42

ILF44
ILF&6
wCD
WCH

= 000030
= 000030
= 000032
= 000034
= 000036
= 000040
= 000042

s SEARCH COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s JLLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s JLLEGAL COMMAND

= 000052

;WRITE CHECK HEADER AND DATA

= 000044
= 000046
= 000050

;1LLEGAL COMMAND
s ILLEGAL COMMAND
JWRITE CHECK DATA COMMAND

ILF54
ILF56

= 000054
= 000056

= 000062

;WRITE HEADER AND DATA COMMAND

= 000070
= 000072

sREAD DATA COMMAND
;READ HEADER AND DATA COMMAND

ILF64
ILF66

RD
RH

= 000060

= 000064
= 000066

ILF74
ILF76

= 000074
= 000076

;*RMDA

DISK ADDRESS REGISTER

: TRACK ADDRESS DEFINITIONS

s ILLEGAL COMMAND
s ILLEGAL COMMAND

JWRITE DATA COMMAND

s ILLEGAL COMMAND
; ILLEGAL COMMAND

; ILLEGAL COMMAND
s ILLEGAL COMMAND

010000
004
002000
001000
000400

TA8

= BIT11

TA2
TA1

= BIT09
= BITO8

000020
000010
000004
000002
000001

SA16
SA8
SA4
SA2
SA1

177400
000377

TADMSK
SADMSK

= 177400
= 000377

;*RMDS

DRIVE STATUS REGISTER

ATA
ERR
PIP

= BIT15
= BIT14
= BIT13

JATTENTION ACTIVE
;COMPOSITE ERROR
;POSITIONING IN PROGRESS

=BITN

JWRITE LOCK

100000
040000
020000
010000
004000
002000
001000
0004
000200
000100
000001

TA16
TA4

BIT12

= BIT10

;SECTOR ADDRESS DEFINITIONS
=
=
=
=
=

BITO4
BIT03
81102
BITO1
BITO0

:TRACK & SECTOR MASKS

MOL
WRL

L8T
PGM

DPR
DRY
Vv
oM

= BIT12

= BIT10
= 8IT09

=
=
=
=

BIT08
BIT07
BIT06
81100

; *RMER1 ERROR REGISTER #1

s TRACK ADDRESS 16.

s TRACK ADDRESS 8.

; TRACK ADDRESS 4

; TRACK ADDRESS 2
s TRACK ADDRESS 1

sSECTOR
;SECTOR
;SECTOR
;SECTOR
;SECTOR

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

16.
8.
4
2
1

; TRACK ADDRESS MASK
;SECTOR ADDRESS MASK

sMEDIUM ON LINE

sLAST BLOCK TRANSFERRED
; PROGRAMMABLE

;DRIVE PRESENT
;DRIVE READY
;VOLUME VALID
;OFFSET MODE ACTIVE

RM REGISTER BIT DEFINITIONS

572

573
574
575
576
S77
578

579
580
581

582

583
584
585
586
587
ggg
590
591

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

gg%

F
2
11-APR-80 13:39:53 PAGE 4=4
SEQ 0018

DCK
UNS
OP]
DTE
WLE
1AE

=
=
=
=
=
=

BIT1S
BIT14
BIT13
BIT12
BITN
BIT10

000377

ggg

AOE
HCRC
HCE

= BIT09
= BITO8
= BIT07

;ADDRESS OVERFLOW ERROR
JHEADER CRC ERROR
JHEADER COMPARE ERROR

WCF
FER
PAR
RMR
ILR
ILF

=
=
=
=
=
=

JWRITE CLOCK FAILURE
;FORMAT ERROR
;PARITY ERROR
JREGISTER MODIFICATION REFUSED
;ILLEGAL REGISTER
JILLEGAL FUNCTION

ECH

= BIT06
BIT0S
BIT04
BIT03
BIT02
BITO1
BIT00

;*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

;*RMLA

LOOK AHEAD REGISTER

002000
001000
000400
000200
000100

SC4
SC3
Sc2
SC1
SCO

=
=
=
=
=

28(;

003700

SCTMSK

= 003700

ggg

100000

040000

614
615
616
€17
618
619
620

621

622
623
624
ggg
627
628

BIT10
BIT09
BIT08
BIT07
BIT06

;MASK FOR ATTENTION BITS

;SECTOR
JSECTOR
;SECTOR
JSECTOR
JSECTOR

COUNT
COUNT
COUNT
COUNT
COUNT

= 16
= 8
= 4
= 2
= 1

;SECTOR COUNT MASK

;*RMMR1 MAINTENANCE REGISTER #1

612

613

JECC "HARD'' ERROR

NDTMSK
= DCK'DTE'WLE'AOE 'HCRC''ICE'ECH'WCF !FER
J"NDTMSK'* IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA

600
601
602
603
ggé

610

;DATA CHECK ERROR
:DRIVE UNSAFE
;OPERATION INCOMPLETE
;DRIVE TIMING ERROR
JWRITE LOCK ERROR
;INVALID ADDRESS ERROR

;COMMANDS, I.E., HOUSEKEEPING AND POSITIONING COMMANDS

ggg
239

MACRO v03.01

JWRITE ONLY BITS

DB(CK

= BIT1S

;DEBUG CLOCK

DBEN

= BIT14

;DEBUG CLOCK ENABLE

010000
004000
002000
001000
000400
000200
000100

DTO
MCLK
MRD
MUR
MOC
MSER
MDF

=
=
=
=
=
=
=

BIT12
BITN
BIT10
BIT09
BIT08
BJT07
BIT06

;DIAGNOSTIC TIMEOUT
MAINTENANCE CLOCK
JREAD DATA
JUNIT READY
;ON CYLINDER
;SEEK ERROR
;DRIVE FAULT

000010
000004
000002
000001

MwP
M]
MSC
DMD

=
=
=
=

BIT03
BIT02
BIT0Y
BIT0C

;WRITE PROTECT
; INDEX PULSE
:SECTOR COMPARE
;DIAGNOSTIC MODE

100000

;READ ONLY BITS
0Cc
= BIT15

020000

000040

DEBL

= BIT13

= BIT0S

;DIAGNOSTIC END OF BLOCK

;SECTOR PULSE

;OCCUPIED

CZRMOAO RMOS/3/2 FCINL TST 3

RM REGISTER BIT DEFINITIONS

629
630
631
632
633
634
635
636
637
638
639
640
641

642
643
644
645

646
647
648
649
650
651
652

653
654
655
656
657
658

659
660
661
662
663
664

665

666
667
668
669

670
671
672
673
674
677

678

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

000004

000002
000001

MACRO v03.01

G ¢
11-APR-80 13:39:53 PAGE 4-5
SEQ 0019

= BIT14

JRUN AND GO

REX

= BIT12

JEXCEPTION

PLFS

= BIT10

;LOOKING FOR SYNC

PDA
PHA

= BIT08
= BIT07

:DATA AREA
sHEADER AREA

EBL

ESRC
ECRC
CONT

= BJT13
= BITN

= BIT09

= BIT06

JEND OF BLOCK

;ENABLE SEARCH

;ENABLE CRC OuT

s CONT INUE

W(C
EECC

= BITOS
= BITO04

;WORD CLOCK
JENABLE ECC OUT

LST
OMD

= BITO
= BIT00

sLAST SECTOR AND TRACK
;DIAGNOSTIC MODE

;*RMDT

DRIVE TYPE REGISTER

MWD
LS

= BJTO3
= BITO?

;WRITE DATA BIT
;LAST SECTOR

100009
040000
020000
004000

MOH
DRQ

= BIT13
=8ITN

;MOVING HEAD = 1
;DRIVE REQUEST REQUIRED

020024
024024

SNGPRT
DULPRT

= 020024
= 024024

;SINGLE PORT DRIVE TYPE (RM02)
;DUAL PORT DRIVE TYPE (RMOZ)

J*RMOF

OFFSET REGISTER

FMT16

= BIT12

;16 BIT WORD FORMAT

HCI
OFD

= 8IT10
= BIT07

JHEADER COMPARE
;OFFSET FORWARD

s*RMDC

DESIRED CYLINDER ADDRESS PREGISTER

CYLMSK

= 001777

010000
004000

002000
000200

001777

NSA

TAP

ECI

= BIT15

= BIT14

=BITN

;NOT SECTOR ADDRESSED = 0

;TAPE DRIVE = 0

SECC INHIBIT

INHIBIT

;MASK FOR CYLINDER ADDRESS

;*RMMR2 MAINTENANCE REGISTER #2
100000

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

;READ ONLY BITS

RQA

RQB
TAG
TST

cC
CH

B809
8808
8807
BB06

BB0OS
BB04
8803

BB0?2

8801
8800

= 8IT15

= BIT14
= BIT13
= BIT12

= 8ITN
= BIT10

=
=
=
=

BIT09
BIT08
81107
BIT06

= BITOS

= BIT04
= B8IT03

= BIT02

= BITO1
= B8IT00

JPORT A REQUEST

;PORT B REQUEST
; TAG CONTROL
s COMMAND SEQUENCE TEST BIT
sCONTROL OR CYLINDER TAG
;CONTROL OR HEAD TAG

;TAG BUS
;TAG BUS
. TAG BUS
:TAG BUS

;TAG BUS

. TAG BUS
;TAG BUS

s TAG BUS

; TAG BUS
;TAG BUS

CZRMOAO RMOS/3/2 FCTNL TST 3

RM REGISTER BIT DEF INITIONS

ggg

681
682
683
684
685
686
687
ggg

100000
040000
020000
010000
004000
002000
000200
000010

100000
040000

232

SEQ 0020

BSE
SK1
OPE
Iv(C
LSC
L8c
DVv(
DPE

=
=
=
=
=
=
=
=

.SBTTL

PROGRAM MNEMONICS

MSE
USE

= BIT1S
= BIT14

.SBTTL

RM REGISTER INDEX VALUES
= 00
= 06
=12
= 14
=16
= 20
= 24
= 26

697
698
699
700
701
702
703
704
705
706

000000
000006
000012
000014
000016
000020
000024
000026
000030
000032

RMCST
RMDA
RMDS
RMER1
RMAS
RMLA
RMMR1
RMDT
RMSN
RMOF

708

000036

RMHR

707

709
710
711

712
715

116

;}g

H 2
11-APR-80 13:39:53 PAGE 4-6

. *RMER2 ERROR REGISTER 2

gg?

692
ggz

MACRO v03.01

000034

000040
000042
000044
000046
000050

000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076

000077

BIT15
BIT14
BIT13
BIT1?
BITN
BIT10
BITQ7
BITO3

= 30

RMDC

= 32
= 34

RMMR?
RMER2
RMECT
RMEC2
ILRG50

=
=
=
=
=

ILRGS2
ILRG54
ILRG56
ILRG6O
ILRG62
ILRG64
ILRG66
ILRG70
ILRG?2
ILRG74
ILRG76

= 36

=
=
=
=
=
=
=
=
=
=

40
42
44
46
50

52
54
56
60
62
64
66
70
7¢
74
= 76

IDXMSK

;BAD SECTOR ERROR
sSEEK INCOMPLETE
;OPERATOR PLUG ERROR
s INVALID COMMAND ERROR
;LOSS OF SYSTEM (CLOCK
sLOSS OF BIT cLOCK
sDEVICE CHECK
;DATA PARITY ERROR

sMANUFACTURING DETECTED SECTOR ERROR
;USER DETECTED SECTOR ERROR

sCONTROL STATUS REGISTER #1
;DISK ADDRESS REGISTER
sDRIVE STATUS REGISTER
;ERROR REGISTER #1
SJATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER
sMAINTENANCE REGISTER
;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER

;HOLDING REGISTER

sMAINTENANCE REGISTER #2
;ERROR REGISTER #2
;ECC POSITION REGISTER
sECC_PATTERN REGISTER
sILLEGAL REGISTER 50

;ILLEGAL
sILLEGAL
;ILLEGAL
;ILLEGAL
;ILLEGAL
;ILLEGAL
;ILLEGAL
;ILLEGAL
;ILLEGAL
sILLEGAL
s ILLEGAL

5¢
54
56
60
62
64
66
70
72
74
REGISTER 76

;MASK FOR REGISTER INDEX NUMBER

;}3

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITIONS

;55

J*RMCS1

CONTROL STATUS REGISTER #1

SC
TRE
MCPE
PSEL

=
=
=
=

723
724
725
726

100000
040000
020000
002000

BIT15
BIT14
81113
8IT10

;SPECIAL CONDITION-READ ONLY
s TRANSFER ERROR
sMASSBUS CONTROL BUS PARITY ERROR-READ ONLY
;PORT B SELECT

CZRMOAO RMOS/3/2 FCINL TST 3

MACRO v03.01

RH CONTROLLER REGISTER BIT DEFINITIONS

727
728

001000

729

730
731
732
733
734
735

[

11-APR-80 13:39:53 PAGE 4-7

SEQ 0021
A17
A16
RDY

= BITQ9
= 817108
= BITQ7

= BIT06

sADDRESS EXTENSION
;ADDRESS EXTENSION
sREADY-READ ONLY

s INTERRUPT ENABLE

;*RMCS2 RH CONTROL STATUS REGISTER #2
DLT

= BIT1S

;DATA LATE~READ ONLY

UPE
NED

= BIT13
= BIT12

sUNIBUS PARITY ERROR
sNONEXISTANT DRIVE-READ ONLY

WCE

736
737
738
739
740
741
742
743
744
745
746
749

NEM
PGE
MXF
MDPE

=
=
=
=

PAT
BAl

= BIT04
= BIT03

OR
IR
CLR

000001

= BIT14

u2
Ul
uo

BITN
BIT10
BIT09
BIT08

= BIT07
= BIT06
= 81705

= BIT02
= BITO1
= 8IT00

;JWRITE CHECK ERROR-READ ONLY

sNONEXISTANT MEMORY-READ ONLY
;PROGRAM ERROR-READ ONLY
sMISSED TRANSFER
;MASSBUS DATA BUS PARITY ERROR-READ ONLY

sOUTPUT READY-READ ONLY
s INPUT READY~READ ONLY
;CONTROLLER CLEAR
sPARITY TEST
;UNIBUS ADDRESS

SJUNIT SELECT
JUNIT SELECT
JUNIT SELECT

INCREMENT

INHIBIT

sUNIT SELECT MASK
000007

UNTMSK

= 7

JUNIT SELECT MASK

;*RMCS3 RH70 CONTROL STATUS REGISTER 43
100000
040000
020000
010000
004000
002000
000100
000010

000004
000002
000001

APE
DPEHI
DPELO
WCEHI
WCELO
DBL
IE

= BIT06

IPCK1
IPCKO

= BITO1
= BITOO

.SBTTL

RH11/RH70 CONTROLLER REGISTER INDEX VALUES

IPCK3
IPCk2

RMCST

RMW(
RMBA

= BIT13

;ADDRESS PARITY ERROR
;DATA PARITY ERROR HIGH WORD

;DATA PARITY ERROR LOW WORD

= BIT12
= BITI
= BIT10

SWRITE CHECK ERROR HIGH WORD
;WRITE CHECK ERROR LOW WORD
;DOUBLE WORD TRANSFER

= BITO03
= BITQ?

s INVERT PARITY CHECK
s INVERT PARITY CHECK

= 00

= 02
= 04

s INTERRUPT ENABLE

s INVERT PARITY CHECK
s INVERT PARITY CHECK

;CONTROL,

STATUS REGISTER #1

;WORD COUNT REGISTER
;BUS ADDRESS REGISTER

RMCS2
RMDB

=10
= 22

;CONTROL, STATUS REGISTER #2
;DATA BUFFER

RMCS3

= 52

;CONTROL, STATUS REGISTER #3

ABASE

= 176700

sUNIBUS ADDRESS

.SBTTL

TRAP (AT(CHER

RMBAE

176700
120254

= BIT15
= BIT14

AVECTT

= 50

= 120254

;BUS ADDRESS EXTENSION

sUNIBUS VECTOR ADDRESS AND PRIORITY

CZRMOAQ RMOS/3/2 FCINL TST 3

TRAP CATCHER

J
2
11-APR-80 13:39:53 PAGE 4-8
SEQ 0022

000000

000174
000176

MACRO v03.01

.=0

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

*LOCATION10 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

DISPREG:
SWREG:
.SBTTL

gg 000200

000137

786

005420

.WORD
.WORD

; :SOFTWARE DISPLAY REGISTER
*SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)

JMP
.SBTTL

0
0

SSTART

;:JUMP TO STARTING ADDRESS OF PROGRAM

ACT11 HOOKS

. *tttttt*ttttt*lttt*t*"t't*'tfifitfi'tittti!t***ttfittfittttt'tfit'tt

000046

000204
000045
835828

000052

000000

788
789

*HOOKS REQUIRED BY ACT11

$SVPC=.
.=46
ssgng

WORD

000204

001100

T=$SVPC

.=1100
"SBTTL

:SAVE PC
:31)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

;:2)SET LOC, 52 T0 ZERO
**"RESTORE
P

APT PARAMETER BLOCK

t*tfifi‘t'*.ttfi"tfitfittitt't'fi.ttt'fitfittttfi't'i’ttttt"tttttfii'ttt

ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT

001100

000024

000044

tttit't*ttfifitttttttttt'tttttttttt'tttttt*itttiitttfififi'tit.ttiti

.$X=.

000024
000200
000044
001100

=24
200
=44
$APTHDR

001100

.=.8X

::SAVE CURRENT LOCATION

::SET POWER FAIL TO POINT TO START OF PROGRAM
1iFOR APT START UP
::POINT TO APT :NDIRECT ADDRESS PNTR.
::POINT TO APT HEADER BLOCK
:+RESET LOCATION COUNTER

""Qfii'tl’fittttt*ttttt*"t"i"fitfififit'ttl"ifi'fii*fifitfit"'fiitttttt'tit

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

790

001100
001102
001104
001106
001110
001112

000000
001222
000001
000002
000002
000042

001114

SAPTHD:

$HIBTS:
SMBADR:
$TSTM:
SPASTM:
SUNITM:

TAGADR=.

.WORD
.WORD
.WORD
.WORD
.WORD
WORD

O
::TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
SMAIL
- -ADDRESS OF APT MAILBOX (BITS 0-15)
1
“'RUN TIM OF LONGEST TEST
2
“'RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
2
'ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT
SETEND-SMAIL/2
;:LENGTH MAILBOX~E TABLE (WORDS)

mea~—

CZRMOAQ RMOS/3/2 FCTNL TST 3

CZRMOAO RMOS/3/2 FCINL TST 3

COMMON TAGS

MACRO v03.01

K 2
11-APR-80 13:39:53 PAGE S

.SBTTL

SEQ 0023

COMMON TAGS

;:ttttttlttfi'ifi*t*ttttt*'tt'ttttt**ifittttttttttttttttttttittttttt

:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

.=TAGADR

.BYTE
.BYTE
.WORD
$LPADR: .WORD
SLPERR: .WORD
$ERTTL: .WORD
SITEMB: .BYTE
SERMAX: .BYTE
$ERRPC: .WORD
SGDADR: .WORD
$8DADR: .WORD
$GDDAT:
$8DDAT: .WORD
SAUTOB:
$INTAG:

s ;AUTOMATIC MODE INDICATOR
;- INTERRUPT MODE INDICATOR
:;ADDRESS OF SWITCH REGISTER
: ;ADDRESS OF DISPLAY REGISTER

SWR:
DISPLAY:

;s CONTAINS THE TEST NUMBER
;s CONTAINS ERROR FLAG
;s CONTAINS SUBTEST ITERATION COUNT
; ;CONTAINS SCOPE LOOP ADDRESS
;s CONTAINS SCOPE RETURN FOR ERRORS
;s CONTAINS TOTAL ERRORS DETECTED
s : CONTAINS ITEM CONTROL BYTE
+ sCONTAINS MAX. ERRORS PER TEST
;s CONTAINS PC OF LAST ERROR INSTRUCTION
;;CONTAINS ADDRESS OF °'GOOD' DATA
;2 CONTAINS ADDRESS OF 'BAD' DATA
;; CONTAINS 'GOOD* DATA
;s CONTAINS ‘BAD' DATA
; RESERVED=-NOT TO BE USED

STSTNM:
JERFLG:

;s START OF COMMON TAGS

dololelelelelele

SCMTAG:

o0 jelelolalelololololeol

NO NN

NINONIN)
b —2 —b —

0071114

RRSHRKZS O

$888888888885888

; *USED IN THE PROGRAM.

$TKS:

;. TTY KBD STATUS

$TKB:
$TPS:
$TPB:
$NULL:
$FILLS:

;. TTY KBD BUFFER
;:TTY PRINTER STATUS REG. ADDRESS

$STMP3:

377
000

377

$TMPS:
$TIMES:
$ESCAPE:
$8ELL:
$QUES:
LASCI1
$CRLF:
LASCII
SLF
LASCIZ
AR AR A

.SBTTL
e

001222
001222
001224
001226

AR AR

.EVEN
$MA]IL:
$MSGTY:
$FATAL:
$TESTN:

OOOOOO',—\;NO

$FILLC:
$TPFLG:
$TMPO:
$TMPT:
$STMP?2:

;:TTY PRINTER BUFFER REG. ADDRESS
;s CONTAINS NULL CHARACTER FOR FILLS
;s CONTAINS # OF FILLER CHARACTERS REQUIRED

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

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

s sUSER DEF INED
s JUSER DEF INED
;cUSER DEF INED
s cUSER DEF INED
..USER DEF INED

NUMBER OF ITERATIONS
ESCAPE ON ERROR ADDRESS

<207><377><377> ..CODE FOR BELL
/?/
;.QUESTION MARK
<15>
¢ s CARRIAGE RETURN
<12>
;.LINE FEED

AR A AR AR RN R AR

AN N R AR AN R R AN NN RN AN NN NN RN RN

AR AR RN NANR NN

APT MAILBOX~ETABLE
AR A AR AR

A AN R AN AN

.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESIN

RN AN AR RN RN AN NN RN NN R AR AN R

: ;APT MAILBOX
s sMESSAGE TYPE CODE
s :FATAL ERROR NUMBER
;s TEST NUMBER

NN NN AN NRE NN

APT MAILBOX-ETABLE

MACRO v03.01

11-APR-80 13:39:53 PAGE 5-1
SEQ 0024

$PASS:
.WORD
$DEV(CT: .WORD
S$UNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
SETABLE:
SENV:
.BYTE
SENVM:
$SWREG: .WORD
$SUSWR:
.WORD
$CPUOP:

APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR

ACPUOP

; sPASS COUNT
:sDEVICE COUNT
;170 UNIT NUMBER
; ;MESSAGE ADDRESS
; sMESSAGE LENGTH

J;APT ENVIRONMENT TABLE

s cENVIRONMENT BYTE
; sENVIRONMENT MODE BITS

;sAPT SWITCH REGISTER

;:USER SWITCHES

;.CPU TYPE,OPTIONS

BITS 15-11=CPU TYPE
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05

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

BYTE

BY. E

AMAMS1
AMTYP

B8IT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT B8=MEMORY MANAGEMENT

;;HIGH ADDRESS.,M.S. BYTE
J:MEM. TYPE..BLKM

MEM.TYPE BYTE

(HIGH BYTE)

900 NSEC CORE=001

300 NSEC BIPOLAR=002
500 NSEC MOS=003
J:HIGH ADDRESS .,BLK#1

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘‘TYPE'' ABOVE

;:HIGH ADDRESS.M.S. BYTE

: JMEM. TYPE ,BLKAN?2

s :MEM.LAST ADDRESS.,BLK#?
;:HIGH ADDRESS.M.S.BYTE

2 JMEM.TYPE ,BLKA3

s sMEM.LAST ADDRESS.BLK#3
;:HIGH ADDRESS.M.S.BYTE
: :MEM.TYPE ,BLKN
JsMEM.LAST ADDRESS.,BLKA#G
;s INTERRUPT VECTORAN1,BUS PRIORITYM
;s INTERRUPT VECTORNZBUS PRIORITY#?2

s ;BASE ADDRESS OF EQUIPMENT UNDER TEST
;;DEVICE MAP
2 ;CONTROLLER DESCRIPTION WORD#1
s s CONTROLLER DESCRIPTION WORDA?2
;:DEVICE DESCRIPTOR WORDX0
2:DEVICE DESCRIPTOR WORD##1
;:DEVICE DESCRIPTOR WORD#?
;:DEVICE DESCRIPTOR WORD#3
2:DEVICE DESCRIPTOR WORD#4
;:DEVICE DESCRIPTOR WORDAS
;:DEVICE DESCRIPTOR WORD#6
;:DEVICE DESCRIPTOR WORD#7

CZRMOAO RMOS/3/2 FCINL TST 3

CZRMOAQ RMOS5/3/2 FCTNL TST 3
USER DEF INED TAGS
0

001326
001330

001332
001333

000000
000000

000
000

MACRO v03.01

m 2
11-APR-80 13:39:53 PAGE 6

.SBTTL

USER DEFINED TAGS

CTLFG:
XXDP:

.WORD
.WORD

LSTRK:

.8YTE
.BYTE

O
O

0
O

SEQ 0025

;CONTAINS CONTROL=C FLAG
;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH
: THE PROGRAM WAS LOADED.

THE HIGH BYTE CONTAINS THE

;' XXDP'* DEVéCE CODE FOR THE RM05/3/2.

:LO BYTE
sH1 BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT
:UNDER TEST. RM02/3
= 4., RMOS
= 18.

;THE REGISTER INPUT BUFFER IS USED FOR

;STORING DRIVE STATUS

001334

GETBUF:

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

000000
000000
000009
000000
000000
000000
000000
000000
000000
000000
400000
000000
000000
000000
000000
000000
000000
000000
000000
000000

:REGISTER INPUT
RMCS11: .WORD
RW/ICI:
.WORD
RMBAI:
.WORD
RMDAI:
.WORD
RMCS2I: .WORD
RMDSI:
.WORD
RMER1I: .WORD
RMASI:
.WORD
RMLAI:
.WORD
RMDBI:
.WORD
RMMR1I: WORD
RMDTI:
.WORD
RMSNI:
.WORD
RMOFI:
.WORD
RMDCI:
.WORD
RMHRI:
.WORD
RMMR2I: .WORD
RMERZ2I: .WORD
RMECII: .WORD
RMEC2I: .WORD

001406

000000

RMCS31:

001404

000000

RMBAEI:

.WORD

BUFFER
O
O
O
0
O
0
0
O
O
0
0
0
0
O
O

0
0

O
0
0
0

;CONTROL, STATUS REGISTER #1
sWORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DISK ADDRESS REGISTER
:CONTROL, STATUS REGISTER #2
.DRIVE STATUS REGISTER
;ERROR REGISTER #1
;ATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER
:DATA BUFFER
sMAINTENANCE REGISTER #1
sDRIVE TYPE REGISTER
:SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER
sMAINTENANCE REGISTER #2
;ERROR REGISTER #2
;ECC POSITION REGISTER
sECC PATTERN REGISTER

;BUS ADDRESS EXTENSION REGISTER

sCONTROL, STATUS REGISTER #3

:THE REGISTER OUTPUT BUFFER IS USED FOR
sASSEMBLING DATA GOING TO REGISTER

001410
001410
001412
001414
001416
001420
001422
001424
001426

001430
001432
0014634
001436

2UTBUF:
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000C
X0
000000

;REGISTER OUTPUT BUFFER
RMCS10: .WORD
O
RMWCO:
.WORD
O
RMBAO:
.WORD
0
RMDAQ:
.WORD
O
RMCS20: .WORD
O
RMDSO:
.WORD
0
RMER10: .WORD
0
RMASO:
.WORD
0

RMLAO:
RMDBO:
RMMR10:
"MDTO:

.WORD
.WORD
.WORD
.WORD

0
0
0
O

sCONTROL, STATUS REGISTER M
sWORD COUNT REGISTER
;BUS ADDRESS REGISTER
;D1SK ADDRESS REGISTER
sCONTROL, STATUS REGISTER #?
:DRIVE STATUS REZSTER
;ERROR REGISTER M
CATTENTION SUMMARY REGISTER

;LOOK AHEAD REGISTER
;DATA BUFFER
sMAINTENANCE REGISTER M1
;DRIVE TYPE REGISTER

CZRMOAQ RMOS/3/2 FCINL TST 3
USER DEF INED TAGS

001440
001442

001444
001446
001450
001452

001454
001456
001460
001462

000000
0000M

000000
000000
000000
000000

MACRO v03.01

11-APR~8( 13:39:53 PAGE 6-1

SEQ 0026
RMSNO:
RMOFO:
RMDCO:
RMHRO:
RMMR20:
RMER20:
RMEC1D:

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

0
0
O
0
0
(¢
O

RMBAEO:

.WORD

RMEC20:

RMCS30:

.WORD

s SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
;HOLDING REGISTER
sMAINTENANCE REGISTER #2
;ERROR REGISTER #2
;ECC POSITION REGISTER

sECC PATTERN REGISTER

;CONTROL, STATUS REGISTER #3

;BUS ADDRESS EXTENSION REGISTER

sEACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN
sTHE LOW BYTE AND THE ,."TENTION BIT IN THE HIGH BYTE. THE
;FIRST WORD CONTAINS TH® ADDRESS OF THE DEVICE UNDER TEST
;IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE
cEND OF THE QUE.
001464

000000

001506

000000

001510

001512
001514

001516
001520

001522

000000

000000
000000

TSTQUE:

.WORD

.BLKW
.WORD

8.
O

s CONTAINS DEVICE POINTER

sTEST QUE FOR DEVICES UNDER TEST
s TABLE TERMINATOR GOFS HERE WHEN

;ALL 8. DEVICES ARE UNDER TEST.

JMEDIA ENABLE IS SET IF THE BAD SECTOR FILES HAVE BEEN RECOVERED
;FOR THE UNIT UNDER TEST, OTHERWISE IT IS ZERO.

MEDENB:

.WORD

sMEDIA ENABLE

sLOCATIONS ''ASNDC'' AND ‘‘ASNDC’' CONTAIN THE CYLINDER, TRACK AND SECTOR
;ADDRESS ASSIGNED BY THE BAD SECTOR MODULE.

ASNDC:
ASNDA:

CLKADR:
CLKVCT:

.WORD
_WGRD

.WORD
WORD

0
0
0
O

;ASSIGNED DESIRED CYLINDER
;ASSIGNED TRACK, AND SECTOR
sUNIBUS ADDRESS OF kW11 CLOCK
;VECTOR ADDRESS OF KW11 CLOCK

sTHE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH
;ARE READ BY THE GET SUBROUTINE.
THE LIST IS TERMINATED BY
;A NEGATIVE BYTE.

GETINX:

.BLKB

23.

;GET INDEX TABLE

sTHE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH
:ARE WRITTEN BY THE PUT SUBROUTINE.
THE LIST IS TERMINATED BY

001551

;A NEGATIVE BYTE.
PUTINX: .BLKB
23.
;PUT

TAGS HERE

;PUT

INDEX TABLE

ERR(

POINTER TABLE

MACRO v03.01

11-APR-80 13:39:53 PAGE 7

.3
SEQ 0027

.SBTTL

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

J*NOTE?:
J*NCTEZ:

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

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

;:POINTS TO THE ERROR MESSAGE

:;POINTS TO THE DATA HEADER

;.POINTS TO THE DATA
:.POINTS TO THE DATA FORM/.T

$ERRTB:

;ERROR
072254
076346
076472
076562

WRONG UNIT

EMT1
EHT1
EDT1
EFT1

;ERROR

DEVICE WENT UNAVAILABLE

EMT?
EHT]
EDT]
EFT1

076562

s ERROR
072266
076346
076472
076562

DEVICE WENT NONEXISTENT

EMT3

EHTI
EDT?
EFT

:ERROR

ond
el b

072274
076346
076472
076562

[« NV,
P

001636

CONTROLLER NOT READY

EMT4
EHTI
EDTI
EFT1
;ERROR

001640
001642
001644
001646

072302
076346
076472
076562

SELECTED

DRIVE NOT READY AND GO NOT RESET

EMTS
EHTI
EDTI
EFT1

M o~

CZRMOAOQ RMOS/3/2 FCTNL TST 3

CZRMOAO RMOS/3/2 FCTINL TST 3

ERROR POINTER TABLE
18
19

MACRO v03.01

072310
076346
076472
076562

UNEXPECTED VALUE FOR '‘ATA'* STATUS

EMTO
EHTI
EDT
EFT1

:ERROR

072316
000000
000000
000000

BUS TIMEOUT TRYING TO READ OR WRITE REGISTER

EMT7

;ERROR

072324
076346
076472

DRIVE NOT READY BUT GO IS RESET

EMT10
EHT1
EDTI
EFT1

076562

:ERROR
072330
076346
076472
076562

GO NOT RESET BUT DRIVE

IS READY

EMT11
EHTI
EDT
EFT

:ERROR
072334
076346
076472
076562

INCORRECT FUNCTION CODE

EMT12
EHTI
EDT1
EFT1

:ERROR

072342
076346
076472
076562

PARITY ERROR READING REMOTE REGISTERS

EMT13
EHTI
EDT1
EFT

- ERROR

001736

SEQ 0028

;ERROR
001650
001652
001654
001656

11-APR-80 13:39:53 PAGE 7-1

072354
076346
076472
076562

TRANSFER ERROR

INCORRECT

EMT14
EHTI
EDTI
EFT1

;ERROR

INCORRECT WORD COUNT

ERROR POINTER TABLE
40

001740
001742
001744
001746

001750
001752
001754
001756

072370
076346
076472
076562

001760

072400
0763456
076472

072410
076346
076472
076562

50
52

002000
002002

072420
076346
076472
076562

072430
076346
076472
076562

072440
076346
076472
076562

INCORRECT CYLINDER ADDRESS

INCORRECT WLE

STATUS

INCORRECT UPE

STATUS

EMTZ23
EHTI
EDTI
EFTI

59
61

INCORRECT DISK ADDRESS

EMT22
EHT
EDT1
EFT1

- ERROR
002020
002022
002024
002026

EMT21
EHT1
EDTI
EFT1

:ERROR

INCORRECT ACE

EMT20

53
002010
002012
002014
002016

INCORRECT LBT STATUS

EHTT
EDT1
EFT1

;ERROR

002006

:ERROR
001770
001772
001774
001776

INCORRECT BUS ADDRESS

EMT17
EHT1
EDT1
EFT1

076562

EMTI16
EHTI
EDT
EFT

;ERROR
001762
001764
001766

EMT1S
EHT
EDT]
EFT1
;ERROR

44
46

SEQ 0029

072362
076346
076472
076562

D 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 7-2

;ERROR

CZRMOAQ RMOS/3/2 FCTNL TST 3

CZRMOAQ RMOS/3/2 FCTINL TST 3

ERROR POINTER TABLE

002030

MACRO v03.01

E 3
11-APR-80 13:39:53 PAGE 7-3
SEQ 0030

072450
076346
076472
076562

EMT24
EHTI
EDT]
EFT1
;ERROR

072460
076346
076472
076562

072470
076346
076472
076562

072500
076346
076472
076562

002076

072510
076346
076472
076562

INCORRECT WCE STATUS

INCORRECT MDPE STATUS

INCORRECT DCK STATUS

EMT30

EHT1
EDT?
EFT

;ERROR

072520

INCORRECT ECH STATUS

EMT3
EHTI

076346

076472
076562

EDT1
EFT1
:ERROR

072530
076346
076472
076562

DLT SHOULD NOT BE

SET

MXF

SET

EMT3?2
EHTI
EDTI
EFT
;ERROR

072540

EMT27
EHTI
EDT
EFT

. ERROR
002070

STATUS

EMT26
EHTI
EDTI
EFTI

;ERROR
002060
002062
002064
002066

INCORRECT WCF

EMT25
EHTI
EDT
EFT1

;ERROR
002050
002052
002054
002056

33
EMT33

SHOULD NOT BE

CZRMOAO RMOS/3/2 FCINL TST 3

ERROR POINTER TABLE

SEQ 0031

076346

076472
076562

83
85

F
.3
11-APR-B0 13:39:53 PAGE 7-4
mmm

002122
002124
002126

MACRO v03.01

:ERROR
002130

072550
076346
076472
076562

SET

INCORRECT HCRC

STATUS

EFT1

072570
076346
076472

INCORRECT HCE STATUS

EMT36
EHT
EDT
EFTI

076562

;ERROR
072600
076346
076472
076562

INCORRECT FER STATUS

EMT37

EHT1
o711
EFTI
;ERROR

072610

DPE

SHOULD NOT BE

SET

(NOT A DATA COMMAND)

EMT40
EHT
EDTI
EFTI

076346
076472
076562

. ERROR
072616
076346
076472

LOST 'MOL'* DURING PACK ACKNOWLEDGE

EMT4T
EHT
EDTI
EFTT

076562

. ERROR

072626
076346

SHOULD NOT BE

EMT35
EHT1
EDT

:ERROR

9c
93

DTE

EHT1
EDT1
EFT1

072560
076346
076472
076562

DT
FT

EMT34

;ERROR

EMTL?2
EHTI

UNSAFE ERROR DURING PA(CK ACKNOWLEDGE

Mmeo

ERROR POINTER TABLE

002220
002222
002224
002226

002240

SEQ 0032

:ERROR

"OPI'* ERROR DURING PACK ACKNOWLEDGE

;ERROR

"RMR'' ERROR DURING PACK ACKNOWLEDGE

;ERROR

“'ILR"" ERROR DURING PACK ACKNOWLEDGE

;ERROR

“'ILF'’" ERROR DURING PACK ACKNOWLEDGE

072650
076346
076472
076562

Wi W

omd
b

072660
076346
076472
076562

—

——
—a

002246

072640
076346
076472
076562

—

002230
002232
002234
002236

11-APR-80 13:39:53 PAGE 7-5

076472
076562

252

002214
002216

MACRO v03.01

o JaNTo

. ERROR

—

072670
076346
076472
076562

b
—b
b

N —
=00

072700
076346
076472
076562

072706
076346
076472
076562

124

ERROR STATUS

INCORRECT

PARITY ERROR WRITING REMOTE

REGISTERS

EMTSO

EHT]
EDT
EFT

. ERROR

072716
076346
076472

COMPOSITE

EMT47
EHT
EDT
EFT

s ERROR

122

EMTS51
EHTT
EDT

INCORRECT

IAE STATUS DURING SEEK COMMAND

TMM

CZRMOAO RMOS/3/2 FCTNL TST 3

CZRMOAO RMOS/3/2 FCTINL TST 3

ERROR POINTER TABLE

002306

MACRO v03.01

H 3
11-APR-80 13:39:53 PAGE 7-6

076562

EFT1

;ERROR

072730
076346
076472
076562

EMTS3

072764
076346
076472
076562

147

PIP

STILL

SET AFTER SEEK - SKI

IS RESET

EMT56

EHT]
EDTI
EFT1
;ERROR

073024
076346
076472
076562

ATA DID NOT

SET DURING SEEK COMMAND

EMTS57
EHTI
EDTI
EFT1
. ERROR

073034
076346

CHECK DURING SEEK COMMAND

EDT1
EFT1

073006
076346
076472
076562

002370
002372

DEVICE

EMTSS
EHTI

;ERROR

146

INCOMPLETE ERROR DURING SEEK COMMAND

EMT54

072774
076346
076472
076562

144
145

SEEK

EHTI
EDTI
EFT1

s ERROR

002366

OPI ERROR DURING SEEK - MEDIUM IS ON LINE,
ON CYLINDER LATCH DIDN'T RESET

EHT
EDT1
EFT

:ERROR

143

ERROR DURING SEEK = MEDIUM [S NOT ON LINE

EHTI
EDT1]
EFTI

072746
076346
075472
076562

141
142

OP1

EMTS2

:ERROR

140

SEQ 0033

60
EMT60
EHT

IVQC ERROR DURING SEEK COMMAND - LOST
VOLUME VALID

ASSUME

Mg~

———

CZRMOAQ RMOS/3/2 FCINL TST 3

ERROR POINTER TABLE

ERRONEOUS IVC ERROR DURING SEEK COMMAND -

- ERROR

MOL

073072
076346
076472
076562

0o ~NO

b
b
—

;ERROR

000000
000000

073110
076346

076472
076562

073130
076346
076472
076562

073150
076346
076472
076562

073162

DID NOT DETECT '‘IVC'' ERROR DURING SEEK

DRIVE EXECUTED A SEEK WITH ERROR SET

UNEXPECTED ERROR SET

IN RMER1

UNEXPECTED ERROR SET

IN RMER?

EMT66
EHTI
EDT1
EFM

;ERROR
002460

DRIVE

EMTES
EHTI
EDT
EFT1

;ERROR
002450
002452
002454
002456

UNUSED

EMT64
EHTI
EDT
EFTI

;ERROR
002440
002442
002444
002446

IS ZERO, BUT OPIl WAS NOT

REPORTED DURING SEEK COMMAND

. ERROR
002430
002432
002434
002436

IS STIL SET

EMT62
EHT
EDTI
EFT

:ERROR
002420
002422
002424
002426

VOLUME VALID

073052
076346
076472
076562

002410
002412
002414
002416

SEQ 0034

OOO0O0O

b
ad
e
b

002400
002402
002404
002406

076472
076562

v
(VP
YV 1, N)

148
149
150
b)Y

11-APR-80 13:39:53 PAGE 7-7

002374
002376

MACRO v03.01

EMT67

CZRMOAOQ RMOS/3/2 FCTNL TST 3

ERROR POINTER TABLE

002462
002464
002466

MACRO v0:.01

11-APR-80 13:39:53 PAGE 7-8

SEQ 0035

076346
076472
076562

:ERROR

ERRONEOUS "'IAE'' ERROR DURING RECAL IBRATE

:ERROR

"ILF'' ERROR DURING RECALIBRATE

073174
076346
076472
076562

073204
076346

076472
0765¢"

EFT1

s ERROR
073214
076346
076472
076562

"OPI'" ERROR DURING RECALIBRATE DUE TO ‘MOL'" = 0

EMT72
EHT
EDTI
EFT1

;ERROR
073232
076346

"OPI'' ERROR DURING RECALIBRATE BECAUSE ON
CYLINDER DIDNT DROP

EMT73

EHTI
EDTI
EFT?

076472
076562

;ERROR
073250
076346
076472
076562

"'IVC'' ERROR DURING RECALIBRATE = 'WV''
= 0

EMT74
EHTI
EDT1
EFTI
;ERROR

073260

ERRONEOUS "'IVC'" ERROR DURING RECALIBRATE = 'WV'*' = 1

EMT7S

076346
076472
076562

EHT1
EDTI
EFTI

JERROR

073300

EMT76

"'SKI'' ERROR DURING RECAL IBRATE

ERROR POINTER TABLE

K 3
11-APR-80 13:39:53 PAGE 7-9
SEQ 0036

076346
076472
076562

HT
DT
FT

mmm

002552
002554
002556

MACRO v03.01

sERROR
073310
076346

;ERROR

073322
076346
076472
076562

202
203
204

100

LOST "MOL'' DURING RECALIBRATE - 'OPI''
- 0

EMT100
EHTI

EDTI
EFT1
JERROR

073340
076346
076472
076562

101

LOST 'VV'' DURING RECALIBRATE = *'IVC'' = 0

EMT101
EHT1

EDT1
EFT1

sERROR
073356
076346
076472

102

"ATA'* DID NOT SET DURING RECAL IBRATE

EMT102
EHTI
EDT1

076562

EFT1

;ERROR
073366
076346
076472
076562

103

‘OM'' DID NOT RESET DURING RECAL IBRATE

EMT103
EHTI
EDT1
EFT1

sERROR
073400
076346
076472
076562

104

"PIP'" IS STIL SET AFTER RECALIBRATE

EMT104
EHT1
EDT
EFT1
;ERROR

073416
076346

"DVC'" OCCURRED DURING RECAL IBRATE

EMT77
EHT
EDTI
EFT1

076472
076562

201

105

EMT105
EHTT

UNEXPECTED ''ILR'" ERROR DURING RECAL IBRATE

CZRMOAQ RMOS/3/2 FCTNL TST 3

ERROR POINTER TABLE

002644
002646

MACRO v03.01

11-APR-80 13:39:53 PAGE 7-10

SEQ 0037

076472
076562

DT
FT1

;ERROR
073426
076346
076472
076562

106

UNEXPECTED 'RMR'' ERROR DURING RECAL IBRATE

EMT106
EHTI
EDT1
EFT1
;ERROR

"UNS'* ERROR DURING RECALIBRATE -~ AC POWER IS LOW

;ERROR

CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS

:ERROR

NONEXISTENT DEVICE

:ERROR

DEVICE NOT AVAILABLE

073436
076346

076472
076562

073476
076374
076512
076602
;ERROR

073504

EMT113
0
0
0

< ERROR
002730
002732
002734

073520
076400
076514

BUS TIMEOUT-NED STATUS FAILURE

114

EMT1
EHTI
EDTY

DEVICE NOT AN n4%05/3/2
O

002720
002722
002724
002726

002710
002712
002714
002716

073470
076374
076512
076602

—

002700
002702
002704
002706

073456
076370
076510
076600

E R

002670
002672
002674
002676

CZRMOAO RMOS/3/2 FCTINL TST 3

CZRMOAO RMOS/3/2 FCTINL TST 3
ERROR POINTER TABLE

002736

235
236
237

238
239
240

EFT114
;ERROR

073526
076346
076472
076562

073536
076346
076472
076562

116

RMBA NOT

INITIALIZED BY UNIBUS

117

RMCS2 NOT

INITIALIZED BY UNIBUS

RMER1

INITIALIZED BY UNIBUS

EMT117

EHT1
EDT1
EFT1

;ERROR
073556
076346
076472
076562

120

NOT

EMT120
EHT1
EDT1
EFT1

;ERROR
073566
076346
076472
076562

121

RMAS NOT

INITIALIZED BY UNIBUS

EMT121
EHT]
EDTT
EFT
;ERROR

073576
076346
076472
076562

122

RMMR1

NOT

INITIALIZED BY UNIBUS

EMT122
EHTI
EDTI
EFT1
;ERROR

076346
076472
076562

NOT INITIALIZED BY UNIBUS

FFT1

073546
076346
076472
076562

073606

RMCS1

EMT116
EHT]
EDT

;ERROR

244

115

EMT1i5
EHTI
EDT]
EFT1
;ERROR

245

246

SEQ 0038

076604

241
243

M3
MACRO v03.01 11-APR-80 13:39:53 PAGE 7-11

123

EMT123

EHTI
EDT
EFT1

RMDS NOT

INITIALIZED BY UNIBUS

CZRMOAOD RMOS/3/2 FCTNL TST 3

ERROR POINTER TABLE

256
Sgg
073616
076346
076472
076562

259
003040
003042
003044
003046

073626
076346
076472
076562

262

‘322
003050
003052
003054
003056
265

RMMRZ2 NOT INITIALIZED BY UNIBUS

;ERROR

RMCS1 NOT CLEARED BY CONTROLLER CLEAR

EMT12S
EHT1
EDT]
EFTY

003070
003072
003074
003076

073662
076346
076472
076562

271
%;g
003100
003102
003104
003106

073706
076346
076472
076562

RMBA NOT CLEARED BY CONTROLLER CLEAR

;ERROR 130

RMCS2 NOT CLEARED BY CONTROLLER CLEAR

JERROR

RMER1 NOT CLSARED BY CONTROLLER CLEAR

EMT130
EHTI
ECTI
EFT1
131

EMT131
EHTI
EDT1
EFT1

;ERROR

003110
003112
003114
003116

127

EMT127
EHT1
EDT1
EFTI

073674
076346
076472
076562

274
5;2

126
EMT126
EHTI
EDT1
EFT1

073650
076346
076472
076562

268

RMEC2 NOT INITIALIZED BY UNIBUS

:ERROR 125

;ERROR

003060
003062
003064
003066

124
EMT124
ENTI
EDT?
EFT1

073636
076346
076472
076562

%gg

%93

SEQ 0039

:ERROR
003030
003032
003034
003036

%2?

N3
MACRO v03.01 11-APR-80 13:39:53 PAGE 7-12

132

EMT132
EXT
EDT1
EFT1

RMAS NOT CLEARED BY CONTROLLER CLEAR

277
278
279

SEQ 0040

:ERROR
003120
003122
003124
003126

073720
076346
076472
076562

133

RMMR1

NOT CLEARED BY CONTROLLER CLEAR

EMT133
EHT]

EDT1
EFTI
:ERROR

073732
076346
076472
076562

134

RMDS NOT CLEARED BY CONTROLLER CLEAR

EMT134

EHTI
EDT
EFT

:ERROR

073744
076346
076472
076562

135

RMEC2 NOT CLEARED BY CONTROLLER CLEAR

EMT135

EHTI
EDT1
EFT1

:ERROR

073756

136

RMMRZ NOT CLEARED BY CONTROLLER CLEAR

EMT136
EHTI
EDT1
EFT1

076346
076472

076562

;ERROR
073770
076346
076472
076562

137

RMCS1 NOT CLEARED BY ERROR CLEAR

EMT137
EHT1
EDT
EFTI
;ERROR

074000
076346
076472
076562

140

RMCS2 NOT CLEARED BY ERROR CLEAR

EMT140
EHT
EDT
EFTT

- ERROR

074010
076346
076472
076562

MACRO v03.01 11-APR-80 13:39:53 PAGE 7-13

141

EMT141
EHTI
EDTI
EFT1

RMCS1 NOT CLEARED BY DRIVE CLEAR

mey

CIZRMOAQ RMOS/3/2 FCTNL TST 3
ERROR POINTER TABLE

CZRMOAO RMOS/3/2 FCTNL TST 3
ERROR POINTER TABLE

4
C
MACRO v03.01 11-APR-80 13:39:53 PAGE 7-14
SEQ 0041
;ERROR

074020
076346
076472
076562

074030
076346
076472
076562

=
—
—

nN=O

WINW

—t
b md

wvids
N

—t
b

RMAS NOT CLEARED BY DRIVE

CLEAR

145

RMMR1

NOT CLEARED BY DRIVE

(LEAR

EMT145
EHT1
EDT1
EFT1

074060
076346
076472
076562

146

RMMRZ2 NOT CLEARED BY DRIVE CLEAR

EMT146
EHT
EDTT
EFT

;ERROR
074070
076346
076472
076562

CoO~NON

WNWW

074050
076346
076472
076562

- ERROR

147

RMERZ NOT CLEARED BY DRIVE CLEAR

EMT147
EHTI
EDT1
EFT1

sERROR
003270
003272
003274
003276

144

EMT144
EHT1
EDT
EFT1

;ERROR

003260
003262
003264
003266

RMERT NOT CLEARED BY DRIVE CLEAR

EDT
EFT1

07404690
076346
076472
076562

003256

143

EMT143
EHT

;ERROR

003250

RMDS NOT CLEARED BY DRIVE CLEAR

EMT142
EHT]
EDTI
EFT1
;ERROR

003246

142

074100
076346
076472
076562

150

RMECZ2 NOT CLEARED BY DRIVE CLEAR

EMT150

EHT]
EDTI
EFTI

319
;ERROR

151

MEDIUM nNOT ON LINE

CZRMOAO RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

321

003300

MACRO Vv03.01

D 4
11-APR-80 13:39:53 PAGE 7-15

076110
076346
076472
076562

322

EMT151
EHTI
EDT?
EFT1
<ERROR

324

074122
076346
07647¢
076562

325

074152

333

003346

074170
076346
076472
076562

334
335

339

003366

SHOULD NOT BE SET,

IS LOW

155

VOLUME VALID NOT SET BY PACK ACK

156

OFFSET MODE NOT SCT BY OFFSET COMMAND

EMT156
EHT1
EDT1
EFT1

< ERROR
003360
003362

UNSAFE

EFTI

074202
076346
076472
076562

337

154

EMT155
EHTI
EDT1

;ERROR
003350
003352
003354
003356

IS SET

EDTi
EFT1

;ERROR
003340

UNSAFE SHOULD BE SET BECAUSE DVC

EMT154
EHT

076346
076472
076562
331

153

EMT153
EHT1
EDT1
EFT1

:ERROR

330

DRIVE FAULT

EHT1
EDT1
EFTT

074134
076345
076472
076562

328

152

EMT152

;ERROR

327

SEQ 0042

074214
076346
076472
076562

157

OFFSET MODE NOT RESET BY RTC COMMAND

EMT157
EHT1
EDT1
EFTI

:ERROR

160

RMOF

NOT RESET BY RIP COMMAND

CZRMOAQ RMOS/3/2 FCTNL TST 3
ERROR POINTER TABLE

003370
003372
003374
003376

MACRO v03.01

_&4
E
11-APR-80 13:39:53 PAGE 7-16

SEQ 0043

074226
076346
076472
076562

EMT160
EHT]
EDT
EFTI

. ERROR
074236
076346
076472
076562

161

EMT161
EHT
EDTI
EFT1

;ERROR
074250
076346
076472
076562

162

RMDC NOT RESET BY RIP COMMAND

EMT162
EHT
EDT1
EFT1

;ERROR 163
076142
076430
076526
076616

353
354
355

RMDA NOT RESET BY RIP COMMAND

DATA WAS ECC CORRECTED BUT DOES NGT CUMPARE WITH

WRITE

BUFFER

EMT336
EHT336
EDT336
EFT336
:ERROR

074272
076346
076472
076562

164

OPI

SHOULD NOT BE

SET

IVC SHOULD NOT BE

SET

EMT164
EHTI
EDTI
EFT1

356

;ERROR

074300

165

EMT165
EHTI
EDT
EFT1

076346
076472
076562

;ERROR

074306
076346
076472
076562

166

IAE

SHOULD NOT BE SET

EMT166
EHTI
EDTI
EFT1

;ERROR

167

NEM SHOULD NOT BE

SET

a2ly

ERROR POINTER TABLE

003460
003462
003464
003466

MACRO V03.01

11-APR-80 13:39:53 PAGE 7-17
SEQ 0044

074314
076346
076472

EMT167
EHT
EDT
EFTI

076562

365
UNUSED

367

;ERROR

370

074332
076346
076472
076562

074342
076346
076472
076562

374
375
376

385

074362
076346
076472
076562

074374
076346
076472
076562

INITIALIZED BY UNIBUS INIT

174

RMERZ NOT

INITIALIZED BY CONTROLLER CLEAR

175

SELECTED DEVICE

IN WRITE

EMT17S
EHTI
EDT
EFT1

;ERROR
074402

RMER2 NOT

EMT174
EHTI
EDT1
EFT

JERROR

003550

173
EMT173
EHTI
EDT
EFT1

JERROR

383

"ATA'' NOT SET BY OFFSET COMMAND

EFT1

074352
076346
076472
076562

380
381
382

172
EMT172
EHTI
EDT1

JERROR

377
378
379

"ATA'' NOT SET DURING RETURN TO CENTERLINE

EMT171
EHTT
EDT1
EFTI

JERROR

373

171

176
EMT176

CANNOT

SET DIAGNOSTIC MODE

PROTECT

CZRMOAQ RMOS/3/2 FCTNL TST 3

076346
076472
076562

386

;ERROR
003560
003562
003564
003566

392
393
394

INCORRECT "TMMOL'" STATUS DURING DIAGNOSTIC MODE

EHTI
EDTI
EFTI

JERROR
003570
003572
003574
003576

177

EMT177

074410
076346
076472
076562

389
391

HT
DT
FT

mmm

003552
003554
003556

G _4
11-APR-80 13:39:53 PAGE 7-18

074422
076346
076472
076562

200

INCORRECT "PIP'" STATUS DURING DIAGNOSTIC MODE

EMT200
EHTI
EDT
EFT1
;ERROR

074434
076346
076472
076562

201

INCORRECT "WRL'' STATUS DURING DIAGNOSTIC MODE

EMT201
EHTI
EDT1
EFTI

395
JERROR

397

074446
076346
076472

;ERROR

400

INCORRECT "'SKI'* STATUS DURING DJAGNOSTIC MODE

EMT202
EHTI
EDT1
EFT

076562

398

202

074460
076346
076472
076562

203

INCORRECT 'DVC'’' STATUS DURING DIAGNOSTIC MODE

EMT203
EHTI
EDT
EFT1

401

;ERROR

403

003636

074472
076346
076472
076562

404
405

003642

074510
076346

"VV'' WAS NOT RESET BY MAINTENANCE UNIT READY

EMT204
EHT

EDT1
EFT1
;ERROR

003640

204

205
EMT205
EHTI

SELECTED DEVICE HAS A PERSISTENT '‘SKI'' ERROR

SEQ 0045

meo

ERROR POINTER TABLE

MACRO v03.01

——d
b
b

CZRMOAQ RMOS/3/2 FCTINL TST 3

ERROR POINTER TABLE

003644
003646
407
408
409

207

'MOL'" - MEDIUM IS OFF LINE

UNEXPECTED LOSS OF

VOLUME VALID - 'WV'' =0

EFT1

;ERROR

074542
076346
07647¢
076562

210

EMT210
EMTI
EDT]
EFTI

;ERROR
003700
003702
003704
003706

UNEXPECTED LOSS OF

EMT207
EHT]
EDTI

416

417
418

"LBC'' CID NOT SET DURING DIAGNOSTI(C MODE

EDT1
EFT1

074530
076346
076472
076562

003670
003672
003674
003676

206

EMT206
EHT]

;ERROR

wH W

—

EDT
EFTI

076520
076346
076472
076562

412

SEQ 0046

;ERROR

11-APR-80 13:39:53 PAGE 7-19

076472
076562

411

P2 X o 3

MACRO v03.01

074550
076346
076472
076562

UNEXPECTED MECHANICAL MOTION - "PIP'" = 1

EMT211
EHT1
EDTI
EFT1

419

420
621

422
423
424

;ERROR
003710
003712
003714
003716

074564
076346
076472
076562

074600
076346
076472
076562

425
426

074610
076360
076502

FAULT - 'DVC''
= 1

213

UNEXPECTED SEEK

INCOMPLETE ERROR - “'SKI''
= 1

EMT213
EHTI
EDTI
EFT1
JERROR

003730
003732
003734

UNEXPECTED DEVICE

EMT12
EHTT
EDTI
EFT1
;ERROR

003720
003722
003724
003726

212

214

EMT214
EHT?
EDT2

DRIVE

EXECUTED A RECALIBRATE WITH ERROR SET

CZRMOAQ RMOS/3/2 FCINL TST 3

ERROR POINTER TABLE

003736

EFT2
;ERROR

003740
003742
003744
003746

074630
076360
076502
076572

074642
076346
076472
076562

074652
076346
076472
076562

217

INCORRECT ''IAE'’ STATUS

EDT1
EFT1

074662

INCORRECT "WLE'' STATUS

EMT220
EHT1

076472
076562

EDT1
EFTT

:ERROR
074672
076340
076472
076562

221

INCORRECT 'OP]'* STATUS

EMT221
EHT
EDT1
EFTT

;ERROR
074702
076346
076472
076562

222

RM DID NOT DETECT RMR ERROR

EMT222
EHT
EDT1
EFT1
< ERROR

074712
076404
076516
076606

INCORRECT "'IVC'' STATUS

EMT217
EHT

076346

444
445

216

;ERROR 220

443

DRIVE DID NOT DETECT ''IVC'' ERROR DURING RECAL IBRATE

EMT216
EHT1
EDT1
EFT1
;ERROR

440
441
442

215

EMT215
EHT2
EDTZ
EFT2
. ERROR

437
438
439

11-APR-80 13:39:53 PAGE 7-20

076572

428

429
430

MACRO V03.01

223

EMT223
EHT223
EDT223

EFT223

RM DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS

SEQ 0047

SEQ 0048

:ERROR

452

000000

000000
000000
000000
000000

;ERROR
000000
000000
000000

461
462

—d

. ERROR
NO

UNUSED

UNUSED
OO0

004100
004102
004104
004106

— e

UNUSED

OO0

000000

. ERROR

467
468
469

004070
004072
004074
004076

—_—r—

464
465
466

:ERROR

KRR
OOO§

463

UNUSED

OOOO

004060
004062
004064
004066

UNUSED

OOOO

004050
004052
004054
004056

458
459
460

;ERROR

QOO0

455
456
457

225
QOO0

;ERROR

454

UNUSED

QOO0

000000

224

449
450
451

J
4
11-APR-80 13:39:53 PAGE 7-21

ERROR POINTER TABLE

MACRO v03.01

CZRMOAQ RMOS/3/2 FCTINL TST 3

UNUSED

MACRO v03.01

K
4
11-APR-80 13:39:53 PAGE 7-22

;ERROR

233

473
474
475

. ERROR

234

476
477
478

;ERROR

235

479
480
481

sERROR

;ERROR

237

UNUSED

elolole

470
Y4
472

~nN

CZRMOAQ RMOS/3/2 FCINL TST 3
ERROR POINTER TABLE

QOO0

UNUSED

lololele

UNUSED

482
483
484

UNUSED

QOO0

004156

000000

lololele)

000000
000000
000000
000000

UNUSED

485

000000
000000

004176

000000

;ERROR
004200
004202

004206
N

000000
000000
000000
000000

UNUSED

OO0

004170
004172

488
489
490

. ERROR

QOO0

487

UNUSED

SEQ 0049

_4
L
11-APR-80 13:39:53 PAGE 7-23

SEQ 0050

492
493

:ERROR

494
495
496

;ERROR

497
498
499

:ERROR

500
501
502

;ERROR

:ERROR

246

UNUSED

lelolole)

242

UNUSED

OO0

243

UNUSED

elolole)

UNUSED

OOOO

074766
076346
076472
076562

"ATA'' NOT RESET BY GO WHEN 'ERR''
= 0

EMT246
EHT
EDT1
EFTI
;ERROR

074776
076346
076472
076562

247

"ATA'' NOT RESET BY WRITING |MAS

EMT247
EHTI
EDT
EFT
;ERROR

075010
076346
076472
076562

250

"ATA'' WAS RESET BY GO WHEN 'ERR'' = 1

EMT250
EHT1
EDT]
EFT1
;ERROR

251

PROGRAM

INTERRUPT WAS NOT GENERATED

—y

MACRO V03.01

CZRMOAQ RMOS/3/2 FCTINL TST 3
ERROR POINTER TABLE

CZRMOAOQ RMOS/3/2 FCTNL TST 3

ERROR POINTER TABLF

514

004300
004302

MACRO v03.01

SEQ 0051

075024
076360
076502
076572

EMT251
EHT2
EDT2
EFT2

;ERROR
075032
076360
076502
076572
518
519
520

11-APR-80 13:39:53 PAGE 7-24

252

PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GFNERATED

EMT252
EHT?
EDT2
EFT2
:ERROR

075040
076345
076472
076562

253

OFFSET MODE WAS NOT RESET BY WRITING RMDC

EMT253
EHTI
EDT
EFT1

;ERROR
075056
076346
076472
076562

254

INCORRECT ‘‘ILF'* STATUS

EMT254
EHT1
EDTI
EFT1
:ERROR

075066
076346
076472

255

INCORRECT ‘'ATA'' STATUS

EMT255
EHT1
EDT]
EFTI

076562

;ERROR
075076
076416
076516
076606

256

INCORRECT "‘ILR"* STATUS

EMT256
EHT256
EDT223
EFT223

;ERROR

075106
076346
076472
076562

257

INVALID IAE STATUS DURING SEARCH COMMAND

EMT257
EHT1
EDTI
EFT1

;ERROR

260

“'IVC'" WAS NOT DETECTED DURING SEARCH COMMAND

ERROR POINTER TABLE

SEQ 0052

075120
076346
076472
076562

EMT260
EHT1
EDTI
EFTT
sERROR

075132
076346
076472
076562

075152
076346
076472
076562

DRIVE EXECUTED SEARCH WITH ERROR SET

262

"LBC'" ERROR NOT SET DURING DIAGNOSTIC MODE

EMT262
EHT1
EDTI
EFT
;ERROR

004420

261
EMT261
EHT1
EDTT
EFT1

;ERROR
004410
004412
004414
004416

MACRO v03.01 11-APR-80 13:39:53 PAGE 7-25

075162
076346
076472
076562

263

"'SKI'" ERROR DURING SEARCH COMMAND

EMT263
EHT]
EDT]
EFT

;ERROR
075172
076346
076472
076562

264

"IVC’' ERROR DURING SEARCH = LOST VOLUME VALID

EMT264

EHTI
EDT
EFT1

:ERROR
075212
076346
076472
076562

265

ERRONEOUS

IVC ERROR DURING SEARCH - VOLUME

EMT265
EHTI
EDT

EFT
;ERROR

075232
076346
076472
076562

266

DEVICE FAULT

(DVC)

DURING SEARCH

EMT266
EHTI
EDT1
EFT1

:ERROR

267

SKI1 SHOULD HAVE BEEN SET BECAUSE CYLINDER
ADDRESS IS TOO LARGE

IS VALID

[2Ta)

CZRMOAQ RMOS/3/2 FCTNL TST 3

CIZRMOAO RMOS/3/2 FCTNL TST 3

ERROR POINTER TABLE

004460
004462
004464
004466

8 5
MACRO v03.01 11-APR-80 13:39:53 PAGE 7-26

0752644
076346
076472

EMT267
EHT]
EDTI
EFT1

076562

:ERROR
075262
076346
076472
076562

271

OPI

ERROR DURING SEARCH BECAUSE ON CYLINDER

DIDN'T DROP

EMT271
EHT]
EDTI
EFT

;ERROR
075314
076346
076472
076562

272

LOST MOL DURING SEARCH,

OPI

IS NOT SET

EMT272
EHT1
EDT
EFT1

:ERROR

075332
076346
076472

273

PIP STIL

SET AFTER SEARCH

EMT273
EHT1
EDT
EFT1

076562

;ERROR
075350
076346
076472
076562

274

PARITY ERROR OCCURRED WHILE WRITING REMOTE
REGISTERS BUT MXF DID NOT SET

EMT274
EHT1
EDT1
EFTI

:ERROR

579

OPI ERROR DURING SEARCH BECAUSE MOL = 0

EHTI
EDT1
EFT1

075276
076345
076472
076562

075366
076346
076472
076562

270

EMT270

:ERROR

004540
004542
004544
004546

SEQ 0053

275
EMT275
EHT
EDT1
EFT1

MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA
COMMAND STARTED

CZRMOAQ RMOS/3/2 FCTNL TST 3
ERROR POINTER TABLE

c.5
11-APR-80 13:39:53 PAGE 7-27
SEQ 0054

;ERROR
oMo

580
581
582

MACRO v03.01

075400
076346
076472
076562

276

;Egé” ERROR DURING DATA TRANSFER BECAUSE 'MOL'' WAS

EMT276
EHTT

EDT1
EFT

:ERROR

277

"OPI'' ERROR DURING DATA TRANSFER BECAUSE 1) ON
CYLINDER DIDN'T DROP OR 2)

3) RUN TIMED OUT
075414
076346
076472
076562

EMT277
EHT1
EDT1
EFT1

;ERROR

004570
004572
004574
004576

075432
076346
076472
076562

592
593

595

596
597
598

601

ERRONEOUS ''IVC'’" ERROR DURING DATA TRANSFER = VOLUME
IS VALID

EHT1
EDTI
EFT1

075474
076346
076472
076562

302

"ILR'' ERROR DURING DATA TRANSFER

EMT302
EHT
EDT1
EFT
:ERROR

075506
076346
076472
076562

303

"ILF'' ERROR DURING DATA TRANSFER

EMT303

EHT1
EDT
EFT1

;ERROR
075520
076346

301

EMT301

-ERROR

602

"'IVC'' ERROR DURING DATA TRANSFER BECAUSE VOLUME

WAS NOT VALID

EHT1
EDT]
EFT1

075452
076346
076472
076562

603

300

EMT300

:ERROR

599

SEARCH TIMED OUT OR

304
EMT304
EHT1

"RMR’* ERROR DURING DATA TRANSFER

CZRMOAO RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

004634
004636

D
5
MACRO v03.01 11-APR-80 13:39:53 PAGE 7-28
SEQ 0055

076472
076562

EDT1
EFTI

;ERRGR
004640
004642
004644
004646

075532
076346
076472
076562

EFTI

075544
076346
076472
076562

075554
076346
076472
076562

075574
076346
076472
076562

TO CYLINDER

310

DEVICE FAULT DURING DATA TRANSFER

EHT]
EDT1
EFT1

075606
076346
076472
076562

LOSS OF BIT CLOCK DURING DATA TRANSFER

EMT3IN
EHT
EDTT
EFT1

075620
076346

312

LOSS OF

SYSTEM CLOCK DURING DATA TRANSFER

EMT312

EHTI
EDT1
EFT1

076472

076562

075632
076346
076472

ERROR DUE

EMT310

s ERROR
004720
004722
004724

DRIVE DID NOT DETECT SKI

EDT1
EFT1

;ERROR

0
2

307

EMT307
EHT]

s ERROR
004700
004702
004704
004706

"'SKI'" ERROR DURING DATA TRANSFER

EHTT
EDTI
EFT1

;ERROR

004670
004672
004674
004676

306

EMT306

;ERROR
004660
004662
004664
004666

INCORRECT "'IAE’’ STATUS DURING DATA TRANSFER

EMT305
EHT
EDTY

s ERROR
004650
004652
004654
004656

305

313

EMT313

EHT1

EDT

UNSAFE ERROR DURING DATA TRANSFER (DVC = 0)

CZRMOAO RMOS/3/2 FCTNL TST 3

ERROR POINTER TABLE

004726

626
627
628

MACRO v03.01

E
S
11-APR-80 13:39:53 PAGE 7-29
SEQ 0056

076562

EFT1

;ERROR
004730
004732
004734
004736

075652

076562

632
633
634

075664
076346
076472
076562

637

004760

004766

638
639
640

075710
076346
076472
076562

005006

075720
076346
076472
076562

320

FORMAT ERROR DURING DATA TRANSFER

EMT320

EHTI
EDT1
EFT1

075730

321

HEADER COMPARE ERROR DURING DATA TRANSFER

EMT321
EHTI
EDT1
EFTI

076346

076472
076562

075740
076346
076472
076562

HEADER CRC ERROR DURING DATA TRANSFER

EDTI
EFT1

JERROR

005010
005012
005014
005016

317

EMT317
EHT]

< ERROR
005000
005002

ERRONEOUS WRITE LOCK ERROR

EDT1
EFT1

- ERROR

004770
004772
004774
004776

316

EMT316
EHTI

;ERROR

004762

WRITE LOCK ERROR

EDTI
EFT1

075676
076346
07647¢
076562

635

315

EMT315
EHTI

;ERROR
004750
004752
004754
004756

TIMING ERROR DURING DATA TRANSFER

EFT
;ERROR

004740
004742
004744
004746

DRIVE

EMT314
EHT]
EDT]

076346
076472

629

631

314

322

EMT322

EHTI
EDTI
EFT

HEADER ERRORS SHOULD NOT BE SET

ERROR POINTER TABLE

647
648
649

650
651
652

653
654
€55

656
657
658

005020
005022
005024
005026

075746
076346
076472
076562

005030
005032
005034
005036

075756
076346
076472
076562

075770
076346
076472
076562

DATA PARITY ERROR DURING READ COMMMAND

327

OFFSET MODE NOT RESET BY WRITE

(OMMAND

DATA PARITY ERROR DURING WRITE

COMMAND

EHT1
EDT
EFT1

076032
076346
076472
076562

076042
076346
076472
076562

326

EMT327

330
EMT330
EHTI
EDTI
EFT1

:ERROR
005100
005102
005104
005106

DATA CHECK ERROR DURING DATA

EMT 326

076020
076346
076472
076562

665

UNCORRECTABLE

EHTI
EDT1
EFT1

sERROR
005070
005072
005074
005076

325
EHTI
EDTI
EFT1

076002
076346
076472
076562

662
663

CORRECTABLE DATA (CHECK ERROR DURING DATA TRANSFER

EMT325

;ERROR
005060
005062

324

EMT324

. ERROR

005050
005052
005054
005056

DATA (HECK ERROR DURING DATA TRANSFER

EHT
EDT1
EFTT
; ERROR

005040
005042
005044
005046

323

SEQ 0057

EMT323
EHT]
EDT?
EFT
;ERROR

005066

667

F
5
11-APR-80 13:39:53 PAGE 7-30

:ERROR

659
661

MACRO v03.01

EMT33
EHT
EDT]
EFT

WRITE

CLOCK FALURE

DURING WRITE

COMMAND

TRANSFER

[2Ta)

CZRMOAQ RMOS5/3/2 FCTINL TST 3

MACRO v03.01

076054
076346
076472

076066
076346
076472
076562

PIP STIL

SET AFTER DATA

TRANSFER - SKI

= 0

EDT1

EFT1

076104
076346
076472
076562

334

LOST MOL DURING DATA TRANSFER - OP] = 0

EMT334
EHT1
EDT1
EFTT

;ERROR
076122
076346
076472
076562

335

LOST VOLUME VALID DURING DATA TRANSFER - IVC

EMT335
EHTI
EDT1
EFT

;ERROR
076142
076430
076526
076616

336

DATA READ DOES NOT COMPARE WITH DATA WRITTEN

EMT336
EHT336
EDT336
EFT336
;ERROR

076152
076442
076536
076626

337

WRITE

CHECK ERROR NOT DETECTED

WRITE

CHECK ERROR AT UNEXPECTED ADDRESS

EMT337
EHT337
EDT337
EFT337
;ERROR

689

333

EMT333
EHTI

:ERROR

076430
076526
076616

DATA LATE ERROR DURING DATA TRANSFER

EMT332

:ERROR

076162

332
EHTI
EDT
EFTI

076562

005170
005172
005174
005176

SEQ 0058

;ERROR

670

11-APR-80 13:39:53 PAGE 7-31

340

EMT340
EHT336
EDT336
EFT336

CZRMOAQ RMOS/3/2 FCTINL TST 3
ERROR POINTER TABLE

CZRMOAOQ RMOS/3/2 FCTNL TST 3

ERROR POINTER TABLE

690
6N

MACRO v03.01

H
S
11-APR-80 13:39:53 PAGE 7-~32

JERROR
005200

076174
076430
076526
076616

692
693

076202
076346
076472
076562

076226
076454
076546
076635

344

"HCE'' NOT DETECTED DURING DATA TRANSFER

EMT 344
EHT344
EDT344
EFT344
:ERROR

076240
076346
076472
076562

345

"BSE'' NOT DETECTED DURING DATA TRANSFER

EMT 345
EHT
EDTI
EFT1

;ERROR
076250
076346
076472

707

"FER'* NOT DETECTED DURING DATA TRANSFER

EDTI
EFT1

346

HEADER ERROR WAS DETECTED W/ H(CI

SET

EMT346
EHTI
EDT
EFTI

076562

708
709

343

EMT343
EHT1

JERROR

704
705
706

"IVC"" ERROR NOT DETECTED DURING DATA TRANSFER

EMT342

076214
076346
076472
076562

701
702
703

342

EHTI
EDTI
EFT1

:ERROR

005236

INCORRECT DATA DURING WRITE CHECK ERROR

EMT 341
EHT336
EDT336
EFT336
:ERROR

694

341

SEQ 0059

;ERROR

076264
076346
076472
076562

347

DATA TRANSFER NOT ABORTED W/ COMP ERROR SET

EMT347
EHTI
EDTI
EFTI
;ERROR

350

LOST VOLUME VALID DURING SEARCH - "‘'Iv('' = 0

—

CZRMOAQ RMOS/3/2 FCINL TST 3

ERROR POINTER TABLE

005270
005272
005274

005276

MACRO v03.01

076276
076346
076472
076562

076324
000009
000000
000000

725
726
727

“ATA'' DID NOT SET DURING SEARCH

352

PROGRAM TIMEOUT WHILE

EMT352
0
0
0
;ERROR

076330
076466
076560
076646

353

LOOK AHEAD TEST FAILS

EMT353
EHT353
EDT353
EFT353

JERROR
076340
076346
076472
076562

351
EMT351
EHT1
EDT1
EFT

JERROR

724

SEQ 0060

EMT350

076314
076346
N76472
C7¢ 562

722

EHT
EDT1
EFT1

;ERROR

719
720
721

11-APR-80 13:39:53 PAGE 7-33

354

BSE

SHOULD NOT BE

EMT354

EHT1
EDTI
EFT1

.PUT ERROR TABLE HERE

SET

TESTING RMLA

CZ
13

CZRMOAO RMOS/3/2 FCTNL TST 3
ERROR TABLE USAGE

MACRO v03.01

11-APR-80 13:39:53 PAGE 8

5
SEQ 0061

;

.SBTTL

;THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR

6
7

;
;

EMT - ERROR MESSAGE TABLE ADDRES>
EHT - ERROR HEADER TABLE ADDRESS

EFT - ERROR FORMAT TABLE ADDRESS

11
12

:THE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS
;FOR THE PARTICULAR ERROR.
EACH ERROR MESSAGE TABLE LISTS THE ADDRESS

sTYPED BY THE ERROR TYPE SUBROUTINE.

17
18
19
20
21
22

;SIMILARLY, THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES
:OF HEADER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR.
FEACH ENTRY
;IN THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF
;DATA, HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATEDC FORMAT AND
;HEADER. THAT IS, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA,
;BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE

;NUMBER,

;

ERROR TABLE USAGE
I.E.,

EDT - ERROR DATA TABLE ADDRESS

;OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND

:NO MESSAGE TO BE TYPED FOR THE ERROR.

THE EMT ENTRY IS ZERO,

THERE

JMUST ALSO HAVE A FORMAT.

25
26
27
28

;IN SUMMARY,
:
EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE,
:
EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS
;
OF MESSAGE STRINGS, HEADERS. DATA OR FORMAT.

—

CZRMOAQ RMCS/3/2 FCTNL TST 3

ERROR TABLE USAGE

2
3 005340

4 005342
5 005344

6 005346
005352

N
P

11-APR-80 13:39:53 PAGE 9

5
SEQ 0062

;THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS
011600

005740
022626

104401
000417

BADTMO: MOV

5;255:

010046
104402
000240

(SP) ,RO

sSAVE PC WHERE THE TIME OUT OCCURED

TST

-(RO}

SADJUST PC =2

TYPE

,65%

:;TYPE ASCIZ STRING

CMP

005354

(SP)+, (SP)+

648

?egoc

RO,=-(SP)

TASCIZ

*RESTORE STACK POINTER

“GET OVER THE ASCIZ

<CRLF>/UNEXPECTED’ BUS TIMEOUT, PC=/

NOP

;SETUP FOR TYPING OUT PC
;PUT

'HALT(0)'

INSTRUCTION HERE

YOU WISH

:TO STOP ON UNEXPECTED TIMEOUT.

Nelo . RNTe JV, P JVI .S PN Y o )

7 005412
8 005414
9 005416

MACRO v03.01

0056420
005422
005426
005430

000240
005227
001375
000005

000000

.SBTTL

START OF PROGRAM

START:

NOP

.SBTTL

005432
005436

012706
005026

005444
005446

001374
012706

005452
005460
005466
005474
005502
005510
005516
005524
005532
005540
005544
005550
005556
005564

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

065342
000340
065736

005572
005576
005604
005612
005620
005626

013746
012737
012737
012737
022777
001012

000004
005632

005630
005632

000403
012716
000002
012737
012737

005440

005640
005646

022706

001114

;TTY LOOP, WAIT FOR INCREMENT

INITIALIZE

:OF WORD
SRESET THE WORLD
THE COMMON TAGS

;. CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#S$CMTAG,R6
;.FIRST LOCATION TO BE CLEARED
CLR
cMP

001154

001100

INC

BNE
RESET

BNE

(R6) +
#SWR ,R6

-6

MOV
#STACK, SP
;INITIALIZE A FEW VECTORS

;s CLEAR MEMORY LOCATION
s :DONE?

:;LOOP BACK IF NO

;;SETUP THE STACK POINTER

MOV

#$SCOPE ,a#IOTVEC ;. I0T VECTOR FOR SCOPE ROUTINE

MOV
MOV
MOV

#SERROR,@¥EMTVEC” : ;EMT VECTOR FOR ERROR ROUTINE
#3640, QWEMTVEC+D ;:(EVEL 7
#STRAP,@#TRAPVEC : ; TRAP_VECTOR FOR TRAP CALLS

MOV

MOV
MOV

CLR

#340, 4 [OTVEC+2 soLEVEL 7

#3640, @#TRAPVEC+2; LEVEL 7

#SPWRDN, a#PWRVEC s ;POWER _FAILURE VECTOR

#340,@¥PWRVEC+2 ;:LEVEL 7
SENDCT,SEOPCT
::SETUP END-OF ~PROGRAM COUNTER

S$TIMES

;o INITIALIZE NUMBER OF ITERATIONS

SESCAPE

:;CLEAR THE ESCAPE ON ERROR ADDRESS

MOV
MOV

#..SLPADR
#. SLPERR

,.INITIALIZE THE LOOP ADDRESS FOR SCOPE
;SETUP THE ERROR LOOP ADDRESS

MOV

SHERRVEC,~(SP)

;;SAVE ERROR VECTOR

MOV
MOV
cMP

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

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

65%
#65%, (SP)

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

#SWREG, SWR

;;POINT TO SOF TWARE SWR

MOvVB

#1,SERMAX

;c;ALLOW ONE ERROR PER TEST

::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
s;EQUAL TO A "=1'', SETUP FOR A SOF TWARE SWITCH REGISTER.
MOV

177570
177570
177777

BNE

005640

64$:

BR
g?y

000176
000174

65%:

MOV
MOV

#64S ,Q¥ERRVEC

66$

#D I SPREG,DISPLAY

;;SET UP ERROR VECTOR

:;BRANCH IF NO TIMEOUT TRAP OCCURRED

..AND

THE HARDWARE SWR IS NOT = -1

CZRMOAO RMOS5/3/2 FCTNL TST 3
INITIALIZE THE COMMON TAGS

MACRO v03.01

012637

000004

005660
005664
005672
005674
005702

005037

001230
000200

001243

012737

001244

001154

012737
012737
012746
012746
00002

005340
000300

000004
000006

21 005702
22 005710
23 005716
005722
005726
005730

000300

66%:

CLR

67%:

BEQ
MOV

(SP)+ ,a#ERRVEC

$PASS

N#APTS1ZE ,$ENVM

673
#$SWREG,
SWR

MoV
Q?Y

#PR6,~(SP)
#68$,-(SP)

000042

006014

001242

000001

001154

000176

000001

001150

000427

;:sPUT NEW PS ON STACK

JJPUT NEW PC ON

STACK

TYPE PROGRAM NAME

;. TYPE THE NAME OF THE PROGRAM IF FIRST PASS
INC
#-1
;:FIRST TIME?
BNE
69%
; :BRANCH IF NO

.SBTTL

000042

sCLEAR PASS COUNT

..TEST USER SIZE UNDER APT
2. YES,USE NON-APT SWITCH
:iNO,USE APT SWITCH REGISTER

;:POP NEW PC AND PS

68%:

037650

s ;RESTORE ERROR VECTOR

;SETUP 'TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS
MOV
#BADTMO,ERRVEC
JSETUP FOR UNEXPECTED TIMEOUT
MOV
#PR6,ERRVEC+2
JLEVEL 6

005730

177777

112737

MOV
8IT8

SBTTL

005730

SEQ 0063

005654

132737
001403

11-APR-80 13:39:53 PAGE 9-1

71$:
72%:
;2708

69%:

CMP
HSENDAD
J:ACT=112
, 3442
BEQ
69%
..BRANCH IF YES
TYPE
.708
sTYPE ASCIZ STRING
GET VALUE FOR SOF TWARE SWITCH REGISTER
TST
a6l
..ARE WE RUNNING UNDER XXDP/ACT?
BNE
713
CMPB
SENV. 41
BEQ
718
P
SWR,#SWREG
..SOFTUARE SWITCH REG SELECTED?
72%
; ;BRANCH IF NO

72$

;;GET SOFT-SWR SETTINGS

MOov8

#1,3AUT08

BR
.ASCIZ

69%
:GET OVER THE ASCIZ
<CRLF>aCZRMOAO - RM05/3/2 FUNCTIONAL TEST, PART 3a<(RLF>

;;SET AUTO-MODE INDICATOR

;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE
:
*PAPER TAPE (MANUAL), ACT11. XXDP CHAIN OR DUMP

001330
000016

000041

000040
000007

001330
001330

001330
000042

XXDP
416, 3441

;CLEAR 'XXDP* LOAD DEVICE STORAGE

MOV
CMPB
BHIS
CLRB
ST
BEQ

a#40,XXDP
#7.XXDP
1%
XXDP
G2
23

:GET DEVICE INDICATOR AND NUMBER
:{’ES” A VALID NUMBER ?

BNE

18:

006144

TYPE

73;“

001330

CLR
(MP8

ASCIZ

748

738

;LOADED FROM AN RM0S5/3/2
?
:BRANCH IF NOT

sNO, DEFAULT TO DRIVE 0
;CHAIN MODE OR ACT11 AUTO ACCEPT ?
;BR IF NEITHER
;s TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

<CRLF>/NOT TEST ING DRIVE /

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

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

SONLY 1 CHARACTER

MACRO v03.01

GET VALUE FOR SOF TWARE SWITCH REGISTER

44 006201
45 006202
29 006206

48 006210
49 006214
50 006216
006222

006244
51 006244
54 006254

000

104401
000517

001217

005227
001114

177777

104401
000410
005246
113716
104403
001
000
104401

000431

252

104401
000435

105737
001515
012737

M 5
11-APR-80 13:39:53 PAGE 9-2

006224

sGET NUMBER OF DRIVES

INC
BNE

#-1
3

:zéRST TIME THRU HERE ?

758

TYPE

5§;65:

LASCIZ

ggPfiESS LEADING ZEROS

$CRLF

76%

,,TYPE ASCIZ STRING

.GET OVER THE ASCIZ

<CRLF>/TO TEST DRIVE /

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

001330

006264

BYTE
BYTE

1
0

778

TYPE

§§;8$:

006354

LASCIZ

TYPE

§§79$:

LASCIZ

;CLEAR WORD ON STACK
;GET DRIVE ADDRESS
:TYPE DRIVE ADDRESS
JONLY 1 CHARACTER
;SUPRESS LEADING ZEROS
s TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

78%

/., HALT PROGRAM, REMOVE RRDP PACK AND REPLAC. IT/<CRLF>
798

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

/WITH A WORK PACK,

CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF>

:CHECK FOR AUTO MODE OR STANDLONE MODE

001150

000377

.BYTE

TYPE

28:

SEQ 0064

TSTB
BEQ

001300

MOV

$AUTOB
STANDAL ONE

sRUNNING IN AUTO MODE
:BR IF NO

#377.,$DEVM

:SET DEVICE MAP FOR ALL DRIVES

ig?ganm IS RUNNING IN AUTO MODE = SEE IF SIZING IS ALLOWEC

132737
001075

000200

001243

005001
013700

001276

136137

071616

001300

071416
001330

006652

001462
012737
005737
001403
123701
001435

BITB

#BIT7,$ENVM
78

;SIZING ALLOWED ?
;NO

CLR
MOV

R1
$BASE ,RO

sSTART FROM DRIVE 0
sLOAD THE BASE ADDRESS

BITB

ATNTBL(R1),$DEVM

MOV

#LODEV,S$

~6IS DEVICE PRESENT IN MAP ?
;
:GET ADDRESS OF LOAD DEVICE ME SSAGE

BEQ

BNE

1$:

8EQ
TST

001330

XXDP

LOADED FROM RM05/3/2
7

CMPB

XXDP,R1

IS THIS THE DRIVE ?
:YES, TRY NEXT DRIVE

MOV
MOV

#CLR,RMCS2
(RO)
R1,RMCS2(RO)

MOV
BIT
BNE
MOV
BIT
8CQ
MOV
BIT
BEQ

MNOTPRS
5%
MNED ,RMCS2 (RO)
3s
NOTAVL ,5$
#DVA,RMCS1(RO)
3s
NOFFLIN,SS
AMOL
. RMDS (RO)
33

:CLEAR MASS BUS
sLOAD THE DRIVE ADDRESS
:TRY TO ACCESS AN RM DRIVE REGISTER

BEQ

000040
000010
000012
071436
010000

006652
000010

071453
004000

006652
000000

071472
010000

006652
000012

000010

28%:

RMDS (RO)

sGET ADDRESS OF NOT PRESENT MESSAGE
;1S DRIVE PRESENT
?
‘BR IF NO
;GET ADDRESS OF AVAILABLE ME SSAGE
;1S DRIxS AVAILABLE
?
‘BR IF
;GET ADDRESS OF OFF LINE MESSAGE
;1S MEDIUM ON LINE ?

:BRINO

CZRMOAO RMOS/3/2 FCTNL 1ST 3

MACRO v03.01

GET VALUE FOR SOF TWARE SWITCH REGISTER

96 006624

97 006632

98 006636

146137

071616

104401

071410

104401

99 006642
006644

010146
104403

006647
100 006650

000
104401

006646

001217

001300

3$:

002

BI(B
TYPE

TYPE

000000

5%:

103 006654
104 006656
}82 006662

005201
020127
003706

107 006664
108 006670
109 006672
110 006674
111 006676
}}% 006700

104401
005004
005304
001376
005304
001376

001217

}}é 006702

000137

007612

000007

ATNTBL(R1) ,$DEWM
.SCRLF

,MSGDRV

MOV
TYPOS

R1,-(SP)

.BYTE
TYPE

.BYTE

}8} 006652

11-APR-80 13:39:53 PAGE 9-3

SEQ 0065

s CR=LF

sCLEAR DEVICE FRCM BIT MAP

;TYPE 'DRIVE'

;¢ SAVE R1 FOR TYPEOUT
;.60 TYPE--OCTAL ASCII

s:TYPE 2 DIGIT(S)

;: SUPPRESS LEADING ZEROS
;TYPE ERROR MESSAGE

WORD

;ADDRESS OF MESSAGE GOES HERE

6$:

INC
cMP
BLE

R1
R1,4#7
1%

s INCREMENT THE DRIVE ADDRESS
sALL DRIVES ARE CHECKED ?
+BRANCH IF NOT

’$:

TYPF
CLR
DEC
BNE
DEC
BNE

.SCRLF
R4
Ré
.=2
R4
.~2

;CR=LF
s THESE TWO LOOPS ARE ADDED T0O
;WAIT FOR TTY TO FINISH TYPING.

JMP

CMNSTART

;JUMP TO COMMON START

—

CZRMOAO RMOS5/3/2 FCTNL TST 3

CZRMOAO RMOS/3/2 FCINL TST 3

STANDALONE

INPUT ROUTINES

MACRO v03.01

SEQ 0066

STANDALONE INPUT ROUTINE S

004737

066146

:
STANDALONE
JSR

006712
006716

005227
001426

177777

INC

006720

BEQ
igEE

104401

070755

001176
001176
001176

—b

NNNN
WNINON)
NNORSO

b nd
i ad

.SBTTL

P4
3 006706
006706

VB W =000~
NS

8 6
11-APR-80 13:39:53 PAGE 10

TYPE

001217
007612

123727
001427
104401
000752

001176

2$:

071352

104401

070345

001176
001176
001176

001176
071352

CMPB
BEO

STMP1.A'N
13

48:

s YES RESPONSE
.mll

LCR=LF

,$CRLF

*KEEP PREVIOUS PARAMETERS

:NO RESPONSE ?
JYES, GET NEW PARAMETERS
sNO, TYPE ' ILLEGAL INPUT °

. CNSLO8

:TRY AGAIN

IF OPERATOR WANTS HELP TEXT

TYPE

106314

;MAINTAIN PREVIOUS PARAMETERS ?
;GET RESPONSE
;ECHO RESPONSE

(SP)+,$TMP1
,$TTMPI

CMNSTART

(MPB
BEQ
CMPB
BEQ

000116

JYES

,CNSLOO

JMP

TYPE
RDCHR
MOV
TYPE

000131

JFIRST TIME THRU HERE ?

STMPY
. 4'Y
2s

TYPE

gges

#=1

(MPB
BNE
TYPE

000116

JINITIALIZE CONSOLE

IF THE USER WANTS TO KEEP SAME DEVICES FOR TESTING
TYPE
RDCHR
MOV

000131

PC.S$TKINT

TYPE

,MSHELP

(SP)+,$TMP1

,$TMPI

$TMPY. #'Y
4
STMP1.A'N
13
CNSLO8

_HELP

JWANT HELP ?

;GET RESPONSE
;SAVE AND ECHO RESPONSE

:ueg IT A YES RESPONSE ?

:gég IT A NO RESPONSE ?

*NO, TYPE ' ILLEGAL INPUT'

‘TRY AGAIN

SYES = TYPE HELP TEXT

§§55 IF USER WANTS TO CHANGE ADDRESSES

001217
070722

RDCHR
MOV

001176
001176
001176

000131

001176

000116

071352

53
54 007114
55 007114
56 007120
007124

TYPE
TYPE

TYPE

(MPB
BEQ
(MPB
BEQ
TYPE

,SCRLF
“UBUSQST

(SP)+,$TMP1

,$TMPI

STMP1. A'Y
6$
STMP1.4#'N
128
CNSLO8

£8+4

:CR-LF

sWANT TO CHANGE ADDRESS ?

;GET RESPONSE
;SAVE AND ECHO RESPONSE

;veg IT A YES RESPONSE

*WAS IT A NO RESPONSE ?

;YES

;NO, TYPE * ILLEGAL INPUT °

:TRY AGAIN

gglALOGUE TO CHANGE THE UNIBUS ADDRESS,

104401

013746
104402

0710

0012

TYPE

MOV

TYPOC

CNSLO1

$8ASE
, - (SP)

VECTOR ADDRESS AND INTERRUPT PRIORITY

:TYPE CURRENT BUS ADDRESS
;:SAVE $BASE FOR TYPEOUT
;.G0 TYPE--OCTAL ASCIICALL DIGITS)

57 007126
58 007132
59 007134
60 007140
61 007142
62 007150
63 007152
64 007156
65 007160
66
67 007166

104401

104413
012637
001412
022737
101403
104401

000760
013737

TYPE
RDOCT

070336

001176

B8LOS
TYPE

071026

001176

001276

7%:

8%:

071070

68 007172
69 007174

MOV
BEQ
WP

001176
160000

001272

70 007200
71 007202
72 007203
73 007204
74 007210
75 007212
76 007216
77 007220
78 007226
79 007230
80 007234

001176

071110
001176

MOV

TYPE

001272

9% :

10%:

071144

001273

001176

113737

001176
001176
001176
001176
001176
001176

(SP)+,$TMP1
108
#1000,$TMP1
9%
.CNSLO4
8%
$TMPT ,SVECT

TYPE
CLR
MOVB

,CNSLO5S
-(SP)
SVECT1+1,(SP)

;GET CURRENT BR LEVEL

.BYTE
BYTE

1
O

JONLY 1 DIGIT
:SUPPRESS LEADING ZEROS

MOV

(SP)+,$TMP1

177777

071207

.QUES

(SP)
(SP)
(SP)
(SP)
(SP)

LQUES

12%

;GET NEW VECTOR ADDRESS
;CARRIAGE RETURN?
JYES=SKIP TO NEXT ENTRY
:¥Eg[9R ADDRESS < 1000 ?
; TYPE WARNING MESSAGE
;RETRY

;STORE NEW VECTOR ADDRESS

;GET NEW PRIORITY

; CARRIAGE RETURN ?
JYES=SKIP TO NEXT ENTRY

cTMwP
B8LT

STMP1 47
118

;%Egfi% PRIORITY ?

108

:TRY AGAIN

. CNSLO6

ASL
ASL

STMP1
$TMPI

ASL

$TMP1

ASL
MOVB
%giALOGUE

005227
001002
104401

,CNSLO3

MOV
BEQ
M
BH!
TYPE
BR
MOVB

ASL

001273

;STORE NEW BUS ADDRESS

;TYPE 3 DIGITS
s SUPPRESS LEADING ZEROS

TYPE

11%:

$TMP1,$BASE

;TYPE WARNING MESSAGE
;s TRY AGAIN

3
0

BEQ

071156

,CNSLO?2

63+4

.BYTE
.BYTE

TYPE
RDOCT

000007

;JGET NEW BUS ADDRESS
s CARRIAGE RETURN ?
;JYES=SKIP TO NEXT ENTRY
:eégf ADDRESS IN 1/0 PAGE ?

;GET CURRENT VECTOR ADDRESS

TYPOS

001176

(SP)+,$TMP1
8$
#160000, $TMP1

-(SP)
$VECT1, (SP)

ASR
ASR
ASR
ASR
ASR

070336

.QUES

SEQ 0067

CLR
MOVB

TYPE
RDOCT

001176

81 007236
82
83 007244
84 007250

B8R

TYPOS

070336

001000

*TYPE WARNING MESSAGE
*STORE NEW PRIORITY

$TMP1

$TMP1
$STMP1,SVECT14+1

TO INPUT DEVICE NUMBERS

INC
BNE

TYPE

-1
138

.CNSLO7

JFIRST TIME THRU ?
;BR_IF NO
s TYPE

INPUT

INSTRUCTIONS

—~n l

STANDALONE INPUT ROUTINES

MACRO v03.01 11-APR-80 13:39:53 PAGE 10-1

CZRMOAQ RMOS/3/2 FCTNL TST 3

CZRMOAO RMOS/3/2 FCTNL TST 3
INPUT ROUTINES

W
o

b ed o

~
P

D d d D D d b

£LEEY ~n
~
ro&R

— = s
NoE8® QRARINKDS AINDNININININONONIN)
OO NOANEB NN OV~ &
S
888
S
SS833 S
NNN ~

SIS ~

STANDALONE

104401
104411

012637
023727
001007
104401

012737
000137

d od d d d el

D e

023727
001436
104401
023727
002430
023727
003427
000423

NN
=o Jy¥Te) &~

b
b

104401

005037

104411
012637
023727
001432

MACRO v03.01

001217

13%:

001300
071374
001176

16%:

001176

000101

070331
000377
006462

001300

001176

000015

001176
001176

000060

001176

000067

001176
001176

16%:

000015

071352

17%:

001176
177770
071616
000377

18%:

o~
&~

wnn

144 007546

— b i cnd b o
&»H

000067

122737
101337
104401
000137

JTYPE

‘DRIVE(S):

;GET RESPONSE

;1S INPUT "A"
2

158

:NO

#377,$DEVM

JSET DEVICE MAP FOR ALL DRIVES
;JAUTO SIZE.

$TMP1 A(R
17%
. STMP1
$TMP1
. 4'0

JYES,

TYPE '‘ALL'' AND GO

s CARRIAGE RETURN ?

JYES

sECHO RESPONSE
JNUMBER < 0 ?
JYES
JNUMBER > 7 ?

:NO

001176

013701
042701
156137

(SP)+,$TMP1
$TMP1,#'A

;CLEAR DEVICE maP

s ILLEGAL INPUT

2 007536

146

-MSDRVS

XS12

15%:

SEQ 0068

;CR=LF

LALL

000060

147 007554
148 007560
149 007564
150 007572

TYPE
CLR
TYPE

RDCHR
MOV

070342
001176
001176

145 007552

D 6
11-APR-80 13:39:53 PAGE 10-2

001217
006462

(SP)+,$TMP1

$TMP1 ,#CR
19%

;GET RESPONSE
;CARRIAGE RETURN ?
JYES

. STMP1

;ECHO RESPONSE

. COMMA

001300
001300
19%:

;TYPE

¢,

$TMP1,4°'0
17%
$STMPY A7
18%

JNUMBER < 0 ?
. YES
JNUMBER > 7 2

148

:RETRY

.CNSLO8

;NO

;TYPE '* ?ILLEGAL

INPUT"'

$TMP1 ,R1
JR1 = DRIVE NUMBER
#~C7,R1
ATNTBL
(R1) ,$DEVM
;SET DEVICE
#377,3DEVM
;DONE ?
16%
sNO

-SCRLF

XS12

;CR-LF
2GO SIZE DEVICES

IN MAP

T¢

CZRMOAOD RMOS/3/2 FCINL TST 3
INPUT ROUTINES

2 007612
3 007612

SEQ 0069

13700
12703
10137
12702
00

CMNSTART:
MOV

001300
001466
001464
000001

1%:

2$:

PG
G
I

3%:

A ¥

007706
64%:

5%:

.SBTTL

000042

007742

007756
»8 007764

29 007764
30 007766
31 007772
32 007774
33 010000
34 010002
35 010006
36
37 010012
38 010016
39 010022

40 010026
41 010032

010036

001242

000001

023727

001154

000176

000403
112737

000001

001150

000240
105737
001007
005737
001002
000137
000137

005420
037460

105037
005037
005037

001116
001206
001326

004737
012746

012746

001300

010044

:YES - ENTER DEVICE NUMBER IN QUE

ADD
ASL
TST8

#2,R1
R
R2

sADVANCE ENTRY POINTER
:ADVANCE DEVICE POINTER
;DONE ALL DEVICES ?

SENTER NEXT DEVICE

PC,S1Z2CLK
5$

;SEE IF CLOCK PRESENT
JYES = CLOCK IS PRESENT

,65%

,,TYPE ASCIZ STRING

CLR

(R1)

JSR
BR

EMT

.ASCIZ

HALT

B8R

;R2 = DEVICE POINTER
;R3 = DEVICE NUMBER
:1S THIS DEVICE IN MAP ?
sNO

643

JYES
;ADVANCE DEVICE NUMBER
s TERMINATE TEST QUE

<CRLF>/PROG HLT/’

;GET OVER THE ASCIZ

;PROGRAM HALT

GET VALUE FOR SOFTWARE SWITCH REGISTER
TST
aws2
;;ARE WE RUNNING UNDER XXDP/ACT?
BNE
66%
; BRANCH IF YES

SENV 41

..ARE WE RUNNING UNDER APT?

SWR,#SWREG

..SOFTUARE SUITCH REG SELECTED?

BEQ

66$

BNE
GTSWR
BR

67%

66%:
67%:

MOvB

READY:

NOP

2%:

JR1

ATNTBL (R3),1(R1);ENTER ATTENTION BIT IN QUE

38
R3

1%:

R1,TSTQUE

8EQ
INC

CMPS

000042

066146
000300

#1.R2
R3
R2.RO
23
R3, (R1)

TYPE

;.65%:

DEVICE MAP
ADDRESS OF FIRST ENTRY IN QUE
sINITIALIZE ENTRY POINTER

MOV
CLR
8IT
BEQ
MOV

;SIZE FOR CLOCK

044720

;RO

N#TSTQUE+2,R1

mMovB

000001

3 V00NN
NN —

071616
000002

$DEVM,RO

MOV
MOV

4 007616
5 007622

E 6
11-APR-80 13:39:53 PAGE 11

sASSEMBLE TEST QUE FROM DEVICE MAP

SOOOO

STANDALONE

MACRO v03.01

T1STB

67%

;.SET AUTO-MODE

$DEVM

JANY DRIVES IN MAP ?

2%
el
1%

JMP

$EOP

CLRB

CLR
CLR
JSR
MoV
Mov

;BRANCH IF NO
::GET SOFT-SWR SETTINGS

#1,3AUTOB

BNE
TST
BNE

JMP

;BRANCH IF YES

START

$TSTNM

$TIMES
CTLFG
PC,STKINT
#PR6,~ (SP)
#64$,~(SP)

INDICATOR

JREADY TO START TEST

:BR IF YES
sANY MONITOR PRESENT ?
;BR IF YES

;JUMP TO START

sRETURN CONTROL TO MONITOR

;RESET TEST NUMBER

JINITIALIZE NUMBER OF [TERATIONS
;CLEAR CONTROL-C FLAG
JINITIALIZE TTY
;.PUT NEW PS ON STACK
;.PUT NEW PC ON
STACK

CZRMOAO RMOS/3/2 FCTNL TST 3

MACRO v03.01

GET VALUE FOR SOF TWARE SWITCH REGISTER

010042

000002

42 010044
43 010052

117737
005037

49 010070

52
53
56
55

010110
010114
010120
010122

56 010130

SEQ 0070

001234

012737
013700
012760

042702
022702
001003
012737

RTI

46
47 010056
48 010064

11-APR-80 13:39:53 PAGE 11-1

001332

movB
CLR

;LOAD UNIT NUMBER
;CLEAR MEDIA ENABLE

#TAG,LSTRK

:ASSUME LAST

#CLR,RMCS2(RO)

:CLCAR MASSBUS

$BASE ,RO

RMDT (RO) ,R2

#177770.R2
47 ,R2
3%

3%:

#TA16!TA2,LSTRK

TRACK FOR RM02/3 = 4.

:RO = UNIBUS ADDRESS

aTSTQUE ,RMCS2 (RO}

000007
001332

STSTQUE ,SUNIT
MEDENB

:CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE THE LAST TRA(K
;OF THE DIFFERENT DRIVE TYPES

000070
000010

011000

;;POP NEW PC AND PS

;SELECT DEVICE UNDER TEST

;GET RMDT AND

:SAVE DRIVE TYPE B8ITS
;IS IT AN RMOS ?
sNO, MUST BE AN RMOZ2 OR RMO3
;YES--SET LAST

TRACK =

18.

CZRMOAO RMOS/3/2 FCTNL TST 3

MACRO v03.01

GET VALUE FOR SOF TWARE SWITCH REGISTER

G 6
11-APR-80 13:39:53 PAGE 12

SEQ 0071

R AN A A

JeTEST
AR

N—l—b—l_‘—l_‘—l—b—‘-—‘

OV NOVEWN—=OO0VO
YOS W

010130

000004
000240
012706

013700
013701
012737
005001
013746
013746
012737
012737

000004
000006
010262
000300

36 010342

010346

010350

010352

NRNARS

000004
000006

s sPUSH ERRVEC ON STA(CK
s ;PUSH ERRVEC+2 ON STACK

#PR6,ERRVEC+2

MovB
MOV

R1,RMCS1+1(RO)
R1,RMWC(RO)

;MOVE HI BYTE TO RM(CS?
;MOVE WORD COUNT REGISTER

R1,RMBA(RO)
RMBA (RO) ,R2
R1,RMCS2(RO)

;MOVE BUS ADDRESS REGISTER

000006
000004

(MP

;START OF

TEST

JINITIALIZE STACK POINTER
JRO = UNIBUS ADDRESS

#STACK,
SP

$BASE RO

TSTQUE ,R1
#1,$TESTN

;(R1)

= DEVICE BEING TESTED

;oSET TEST NUMBER IN APT MAIL BOX

RMWC (RO) ,R2

RMCS2(RO)
,R2
R1,RMDB(RO)

RMDB(RO) ,R2
(SP)+ ERRVE(+2
;EP)*,ERRVEC

;MOVE (ONTROL STATUS REGISTER

;MOVE DATA BUFFER
. 2POP STACK INTO ERRVE(C+?2
;.POP STACK INTO ERRVEC
;NO BUS TIMEOUT OCCURRED

TST
BNE
JMP

JYES-GO GET $BASE

5%:
7%:

JMP

$EOP

;GO TO END OF PASS HANDLER

SRR AR

A A AN A R A A AN AR AR AN

EMT

005420

037460

:SCOPE CALL

(SP)+,(SP)+
(SP)+ ERRVE(+?
(SP)+,ERRVEC(
110
el
5%
START

MOV
MOV

000042

SRTEST 2

A AR A

N A

;STAND ALONE MODE ?
JNO!!

A AR RN NN NN AR NARA RN R AR RN R AN

DEVICE AVAILABLE

AN AN AN AN

;ADJUST STACK
;.POP STACK INTO ERRVE(C+2
;:POP STACK INTO ERRVEC

AN AN

ARS

TEST

R AR AR AR AN AN N R AN AR RN A RN RA RN RN N RN NN NTN RN

1ST2:

012706
013700
013701
012737

001100
001276
001464
000002

004737
000404
000240

053604

104000

AN RN NN AN

ERRVEC,=(SP)
ERRVEC+2,~(SP)
#38 ,ERRVEC

000004
000240

ANAS

CLR
MOV
MOV
MOV
MOV

010314
010314
010316
010320
010324
010330
010334

001226

MOV
MOV
MOV
MOV

30
31 010310
32 010314
33
34

A AN A AN AN N A NN RN RARNNR RN

CONTROLLER ACCESS TEST

MOV
MOV
MOV
MOV
MOV

022626
012637
012637

RN A NN A AR

SCOPE
NOP
MOV
MOV
MOV
MOV

110169

22
23 010262
24 010264
25 010270
26 010274
27 010276
28 010302
29 010304

A AR N

AR A AR AR AR AN A AN I TR T AR R RAA AR A AN RN N A RN NN N

TST1:

001100
001276
001464
0000.1

A AR AN

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

JSR
BR
NOP

EMT

#STACK,SP

$BASE RO

sSCOPE CALL
sSTART OF TEST
;INITIALIZE STACK POINTER

TSTQUE ,R1
#2,$TESTN

;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
;.SET TEST NUMBER IN APT MAIL BOX

PC.CNTCLR

2GO ISSUE CONTROLLER CLEAR

;GO TO 2% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR NUMBER DEF INED BY SUBROUT INE

—

CZRMOAQ RMOS/3/2 FCINL TST 3

OEVICE AVAILABLE TEST

010354
37 010360
38 010360
39 010364

40 010370
21 010376

2
43 010404

46 010412
65 010420
46 010424
47 010430
48 010436
49 010440
50 010442

51
52
53
gé

010444
010452
010454
010456

56 010460
57 010462
58 010466
59 010472
60 010474
61 010500
62
63

000137

010474

013746
013746

000004
000006

MACRO v03.01

SEQ 0072
-

012737
013737

010460
000300

000n04
000006

016037

000000

001176
001174

016037
012637
012637
032737
001402
104117
00V0414

032737
001012
104112
000405
022626
012637
012637
104113
000137

000010
000006
000004
010000

004000

001176

3%:

037422

MOV

ERRVE(C,~-(SP)

;:PUSH ERRVEC ON STACK

MOV
MOV
MOV

ERRVE(+2,-(SP)
#5% ,ERRVEC
PR6,ERRVE(+?2

MOV
MOV
MOV

RMCS1(RQ),$TMP1 ;GET DVA STATUS
RMCS2(R0O) ,$TMPO :GET NED STATUS
(SP)+ ERRVE(C+?2
+.POP STACK INTO ERRVEC+?2

BIT
BEQ
EMT

ANED ,$TMPO
3s
111

JMNONEXISTENT DEVICE ?
JNO!!

BIT
BNE
EMT
BR

#DVA,$TMP1
9
112
7%

;DEVICE AVAILABLE ?
JYES!!

(SP)+,(SP)+

;ADJUST STACK

(SP) + ,ERRVEC

;. ;POP STACK INTO ERRVEC

CMP

MOV
EMT

7%:
9%:

JMP

(SP)+ _ERRVEC

(SP)+ ERRVE(C+?

113

;sPUSH ERRVEC+2 ON STA(K

;cPOP STACK INTO ERRVEC

2 .POP STACK INTO ERRVE(C+?2

$EOSP

.'"fi**""""fi*"‘fi.".".""".‘fi"'t'.'fi.fit.."".."fi.‘fi.""'t'

J*TEST 3

000004
000240
012706

013700
013701
012737

TST3:

001100
001276
001464
000003

001226

004737
000404
000240

053604

010540
66 010544
67 010544
010552
010560
010566
010572
010574
010576

000137

010676

112737
112737
012737
004737
000402
000240
104000

000026
000200
010702
044230

022737
001435
022737
001431

020024

001362

024024

001362

69 010600

;GO TO 7% IF ERROR

MOV

65 010526
(010532
010534

010536

B8R

5%:

000006
000004

JMP

MOV

001174

010500
010500
010502
010504
010510
010514
010520

H 6
11-APR-80 13:39:53 PAGE 12~1

104000

DRIVE TYPE

SCOPE
NOP
MOV
MOV
MOV

MOV

JSR

001522
001523
001362

ASTACK,SP
$BASE RO
TSTQUE ,R1

#3,8TESTN

PC,.CNTCLR

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
;RO = UNJBUS ADDRESS
s(R1) = DEVICE BEING TESTED

;:SET TEST NUMBER IN APT MAIL BOX

;GO ISSUE CONTROLLER CLEAR

;GO TO 2% IF NO ERROR

NOP
EMT
JMP

JRETURN HERE IF ERROR
;ERROR NUMBER DEF INED BY SUBROUTINE
;GO0 TO 4% IF ERROR

MOVB
MOVB
MOV
JSR

HRMDT ,GE T INX
#200,GETINX+1
A58 ,RMDT]
PC,.GET

JSETUP GET INDEX TABLE
JSETUP TERMINATOR BYTE
;SET RMDT INPUT BUFFER = 5%
;GO READ RMDT VIA GET SUBROUTINE

BR
NOP
EMT

3%:

TEST

AR R R A R R R R R AR R AR A AN A AN AN RN RN AR A AN R A RN R RN NNRNNRNRA AR AR RS

CMP
BEQ

(MP

BEQ

;GO TO 3% IF NO ERROR
JRETURN HERE IF ERROR

;ERROR DEF INED BY GET SUBRQUTINE

#SNGPRT ,RMDT ]
5%
#DULPRT ,RMDT]
5%

;SINGLE PORT RMQ3 ?
JYES !

;DUAL PORT RMO3 °

JYES

CZRMOAQ RMOS/3/2 FCTNL TST 3
T3
DRIVE TYPE TEST
76 010620
75 010626
76 010630

022737
001425
022737

79
80
81
gg

0104L0D
010646
010650
010656

MACRO v03.01

SEQ 0073

020025

001362

024025

001362

022737
001-‘.12
022737
001411

020027

001362

024027

001362

84, 010660
85 010666
gg 010674

012737
012737
104114

020026
024024

001176
001200

88 010676
gg 010702

000137

037422

;gm%“ 001421

11-APR-80 13:39:53 PAGE 12-¢
#SNGPRT!'BITO,RMDT!]
58
#DULPRT!'BITO,RMDT!

‘YES !

CMP
BEQ
CMP
BEQ

ASNGPRT!BIT1!BITO,RMDT]
b}
#DULPRT'BIT1!BITO,RMDTI
13

SINGLE PORT RM0OS5 ?
YES
:DUAL PORT RMOS 7

MOV
MOV
EMT

#SNGPRT,$TMP1
#DULPRT
. $TMP2
114

;LOAD ACCEPTABLE VALUES

JMP

$EOSP

;GO TO SUBPASS HANDLER.

BEQ

A ¥
5 :

CMP
BEQ
CMP

SINGLE PORT RMOZ ?
YES
DUAL PORT RMO?2 ?

""ttttttttttl’tttttttttttt*ttttt*ttfitfiflttttttt*t*tt*ttttttttttt.t'

S¥TEST &

010702
010702
010704
010706
010712
010716

o 010722

WRITE,

READ ZEROS

. ttttttttttttttttttttt'ttt'itt*ttttttttttttttttt*ttttttttttttttt

000004
000240
012706
013700
013701

1574
001100
001276
001464

012737 000004

001226

SCOPE
NOP
MoV
MOV
MOV

MOV

#STACK,SP
$BASE , RO
TSTQUE ,R1

#4,STESTN

.SCOPE CALL
‘START OF TEST
JINITIALIZE STACK POINTER
‘RO =" UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED

*:SET TEST NUMBER IN APT MAIL BOX

. tttttttt'tttttfittttttt'ttttttfittittttttt!ttttttfitfiittttttttt'tt

3;'

LOOP A1

gg 010730

108 :

98
99 010730

010734

004737

154130

FORMAT ,WRITE ,READ

;PREPARE DEVICE FOR TEST
JSR
PC,TSTPRP

040472

. WORD

154130

JPREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE

010736
010740
010742
100 010744
101
102
103
104
105

000404
009240
104000
000137

B8R
NOP
EMT
JMP

011710

010750
010750
010756
010764

012737
012737
012737

000000
000000
106314

001444
001416
001414

107 011000
}83 011006

012737
012737

010000
000063

0014642
001410

106 010772

012737

177376

001412

20%
3508

JRECALIBRATE IF ''SKI'* OR 'PIP'' IS SET
JVERIFY RECALIBRATION

;GO TO 208 IF NO ERROR
RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
50 TO 3508 IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER
208:
MOV
#0,RMDCO
;CYLINDER = 0
MOV
#0.RMDAO
*TRACK = 0, SECTOR = 0
MOV
#8UF ONE , RMBAO
“BUS ADDRES$S

MOV

MOV
MOV

#-258. ,AMWCO

#FMT16.RMOF O
#WH!GO,RMCS10

22 + 256. WORDS (2'S (OMP)

16 BIT FORMAT
JWRITE HEADER AND DATA (OMMAND

CZRMOAQ RMOS/3/2 FCTINL TST 3

gOOOOOOO
g%WNNN—'
oo
N

SSRR2
4\0284\0
o

b
b
d

011710

(=]

d
d

.SCTMSG

25%:

EMT
JMP

3508

MoV

#ZEROS ,$TMPO

MoV
JSR

;GO _TO 25% IF NO ERROR

;TYPE BAD SECTOR MESSAGE

JERROR # DEFINED BY BADSCT SUBROUTINE

;GO TO 3508 IF ERROR

;STARTING ADDRESS OF PATTERN

#1,8TMP1

;RANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

PC.GENBUF

;SETUP PARAMETERS AND EXCUTE COMMAND
MOV
MOVB
Mov8
MOVB

#PUTINX ,R2
#RMDC, (R2) +
#RMDA, (R2) +
#RMBA, (R2) +

;R2 = BYTE ENTRY POSITION

movs

#200, (R2)

¢ TERMINATE TABLE

MOvVB
MOvVB
mMOovB

30%:

044500

JSR

408

JMP

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 408 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

BRNBES

40%:

PC PUT

NOP
EMT

011710

#RMWC, (R2) +
#RMOF
, (R2) +
W#RMCS1,(R2)+

004737
000404
000240

044230

000137

011710

004737
000405
000240

057742

) =

BRISFRE

b d b ek =B

b
b
b

—

puerd

TYPE

;CALL BAD SECTOR MODULE

25%

JWAIT FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

2 =

PC,BADSCT

045042

b
b

s Qoo

001174
001176

001551

b ed e b ek
d ekt = OO
b
WA — el
NONSNO &H

b
b

e
—

eleolelololeololels)

i
b
D —d
b
b

070230

071730
000001
043344

JSR

B8R

004737

o Qe

;VERIFY THAT SECTOR IS NOT BAD

041416

SEQ 0074

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

—

elelelelele]

Guur§

b
b
b

Ghnr P
- ur PG

b ad

(olelelelelele]

BUEN

b
b
—)

HiN
(= 1Ve]

-—

004737

J
6
11-APR-80 13:39:53 PAGE 12-3

044144

141
142 0112
143 011206
144
145
146

READ ZEROS

011132

—b

RUK 28 ¥8N

b
d ed

d
d

b
b

b b =D ad
b e
b e

D d o
d
b D b o

d
b

b
b

(elolelelelelelelalelelelolale)

C NN

—b e

b ad e

b o

d e

ed e

NIPIPNININININ)
= e eed b e e b = b

=2 O000NN
NN —

110

WRITE,

MACRO v03.01

104000

.GO GET REGISTER STATUS
JSR

NOP

50%:

012737
000410

EMT
JMP

;GO READ REGISTER(S) WITH GET SUBROUT INE

508

;GO TO 508 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

3508

JSR

011710

60%:
001124

PC,DTASTS

B8R

60%

EMT
JSR

PC,a(SP)+

NOP

011210

PC,GET

;GO TO 3508 IF ERROR

JVERIFY RESULTS OF WRITE COMMAND

104000

004736
000137

;GO TO TIMOUT SUBROUTINE

JMP

3508

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 60% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE

;GO BACK FOR MORE ERROR CHEC(KS

;GO TO 3508 IF ERROR

sMOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
BR

#708,SLPERR
80%

';'tttttttitfifi‘ 4238222880222

‘LooP #2

WRITE ,READ

;SKIP TO WRITE OPERATION
222222

22222

XS X

2202R;

WRITE,

READ ZEROS

MACRO v03.01

147
}zg 011210

150
151 011210
011214

011216
011220
011222
011224

;gg 011230

154
155 011230
156 011230
157 011236
158 011244
159 011252
160 011256
161 011262
162 011266
163 011272
164 011276
165 011302
}gg 011306

004737

154130

000404
000240
104000
000137

012737
012737
012737
012702

011710

106320
177400
000061
001551

168 011312

004737

044500

011320
011322

000240
104000

000404

000137

011710

004737

044144

17 011334

004737

045042

175
176 011340

004737

044230

171

172 011330

173

011344

011346
011350
011352
;;g 011356
179
180 011356

011362

000404

000240
1046000
000137

011710

004737

045226

000405

:PREPARE DEVICE FOR TEST
JSR
PC, TSTPRP
.WORD
154130

040472

000006
000034
000032
000004
000002
000000
000200

011326
;gg 011330

SEQ 0075

708

112722
112722
112722
112722
112722
112722
112722

011316

11-APR-80 13:39:53 PAGE 12-4

808 :
001414
001412
001410

BR
NOP
EMT
JMP

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

*SELECT DEVICE & VERIFY DEVICE AVAILABLE
*CLEAR CONTROLLER & SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
‘RECALIBRATE IF '‘skI’’
OR 'PIP'’ IS SET
*VERIFY RECALIBRATION

80$

*GO TO 80$ IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
:GO TO 3508 IF ERROR

3508

;SETUP PARAMETERS AND EXCUTE COMMAND
1208
:
MOV
ABUF ONE +4 , RMBAO
MOV
#-256. ,RMJCO
;CHANGE
MoV
MWD 'GO,RMCS10
MOV
#PUTINX ,R2
MOVB
#RMDA, (R2)+
MOVB
#RMDC. (R2)+
MOVB
#RMOF
. (R2)+
MOVB
#RMBA. (R2)+
MOVB
#RMWC. (R2)+
MOVB
#RMCST.(R2)+
MUVB #200, (R2)+

JSR

B8R

NOP
EMT

1308 :

PC,PUT

JSR

:GO TO 1308 IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE

3508

:GO TO 3508 IF ERROR

TO READ ALL REGISTERS

PC.GETSTS

;WAIT FOR COMMAND TO COMPLETE

JSR

PC.TIMOUT

;GO GET REGISTER STATUS
JSR
PC,GET

1408 :

NOP
EMT
JMP

1408

3508

;TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

1308

;SETUP GET INDEX TABLE

:MOVE MEMORY ADDRESS
WORD COUNT
WRITE DATA COMMAND
JLOAD PUT REGISTER INDEX TABLE

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE
;GO READ REGISTER(S) WITH GET SUBROUT INE

:GO TO 1408 IF NO ERROR

:RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
:GO TO 3508 IF ERROR

;VERIFY RESULTS OF WRITE COMMAND
JSR
PC ,PRIERR
;GO CHECK FOR PRIMARY ERRORS

B8R

1508

:GO TO 1508 IF NO ERROR

CZRMOAO RMOS/3/2 FCTNL TST 3

%(Z'RP‘DAO RMO5/3/2 FCTNL TST 3
WRITE,

011364
011366
011370

011372

181 011376
182 011376

011402

011404
011406
011410

011412
183 011416
186 011416

011422
011424
011426
011430

READ ZEROS

000240
104000
004736

000137

011710

004737

057742

000405

000240
104000
004736
000137

011710

004737

046060

000405
000240
104000
004736

011432

000137

011710

187
188 011436

012737

011446

}gg 011436

]"8)8 011444

000410

MACRO v03.01

11-APR-80 13:39:53 PAGE

SEQ 0076

NOP
EMT
JSR

PC,a(SP)+

JSR

PC,DTASTS

JMP

1508
:

B8R

1608:

1808 :
001124

JSR

PC,SECERR

197 011446
011452

011454

011456

011460
011462

;gg 011466

004737
154130

;GO CHECK FOR SECONDARY ERRORS

;GO TO 180% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
. GO BACK FOR MORE ERROR CHECKS

PC,a(SP)+

3508

:G0 TO 3508 IF ERROR

2008

JSKIP TO NEXT OPERATION

AN AN AR RN NN AR NN AR

RN R RRAAN AR AN RN AN

READ

JPREPARE DEVICE FOR TEST

040472

JSR
. WORD

000404

000240

104000
000137

NOP

011710

012737
012737
012702
112722
112722
112722

000006
000032
000034

209 011526

112722

000002

211 011536

112712

210 011532

*GO TO 3508 IF ERROR

1908 :

200
201 011466
202 011466
203 011474
204 011502
205 011506
206 011512
207 011516

208 011522

*RETURN HERE IF ERROR
cERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

; CHANGE LOOP ADDRESSES
MOV
#1908, SLPERR

;LOOP 43

}32 011446

;G0 VERIFY RESULTS OF DATA TRANSFER

:GO TO 1608 IF NO ERROR

180%

NN AR AN AR AR AR R AN AR A AR

192
193

:GO TO 3508 IF ERROR

160s

PC,a(SP)+
3508

MNP

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR (CHECKS

3508

NOP
EMT
JSR
JMP

B8R
NOP
EMT
JSR

191

196

12-5

107324
000071

001551

112722 000004
112722

000000

000200

2008 :
001414
001410

EMT
JMP

PC,TSTPRP
154130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'' OR 'PIP'' IS SET
;VERIFY RECALIBRATION

2008

160 TO 2008 IF NO ERROR

3508

<ERROR # DEFINED BY TSTPRP SUBROUTINE
*GO TO 3508 IF ERROR

‘RETURN HERE IF ERROR

;SETUP PARAMETERS AND EXCUTE COMMAND
2408:
MOV
#BUF TWO+4 , RMBAD
MOV
#RD ' GO.RMCS10
MOV
#PUT INX,R2
MOVB #RMDA, (R2)+
MOVB
ARMOF
. (R2)+
MOVB
WRMDC. (R2)+

MOVB

#RMBA. (R2)+

MOVB

WRMCST, (R2)+

MOVB

#RMWC. (R2)+

#200. (R2)

: CHANGE MEMORY ADDRESS
*READ DATA COMMAND

*LOAD PUT REGISTER INDEX TABLE

WRITE, READ ZEROS

212
213 0115642

004737

011550
011552

000240
104000

011546

000404

MACRO v03.01

044500

M 6
11-APR-80 13:39:53 PAGE 12-6

JSR

PC,PUT

B8R

250s

JMP

3508

NOP
EMT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

:GO TO 2508 IF NO ERROR

*RETURN HERE IF ERROR
$ERROR # DEFINED BY PUT SUBROUT INE

011554

000137

011710

216
17 011560

004737

044144

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

218
216 011564

004737

0450642

:WAIT FOR COMMAND TO COMPLETE
JSR
PC.TIMOUT

220
221 011570
011574

004737
000404

044230

5}2 011560

011576
V11400
011602
222 011606

224
225 011606
011612
011614

011616
011620

000240
104000

000137

011710

004737
000405
000240

045226

104000
004736
000137

011710

227 011626

004737

057742

011634
011636
011640
011642

000240
104000
004736
000137

229 011646
011652
011654
011656
011660

004737
000405
000240
104000
004736

011622
226 011626

011632

228 011646

011662

gg? 011666
232
233 011666
011672
011674

011676

011700
011702
011704
234 011710
235
236 011710
237

000405

011710
046060

000137

011710

004737
106320
107324

043602

000404

000240
104000
000137

2508 :

;GO GET REGISTER STATUS
JSR
PC,GET
BR
260s
NOP
EMT
JMP
3508
2608
:

;GO TO TIMOUT SUBROUTINE

:GO READ REGISTER(S) WITH GET SUBROUTINE
:GO TO 2608 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
:GO TO 3508 IF ERROR

;VERIFY RESULTS OF READ COMMAND
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS
BR
270s
1GO TO 2708 IF NO ERROR
NOP
*RETURN HERE IF ERROR

2708
:

EMT
JSR
JMP

JSR

B8R

2808:

3008 :

NOP
EMT
JSR
WP

JSR
BR
NOP
EMT
JSR

JMP

PC.3(SP)+
3508

PC,DTASTS

2808

PC,a(SP)+
3508

PC,SECERR
3008

PC,a(SP)+

3503

;GO VERIFY DATA
JSR
PC, CMPBUF
.WORD
BUFONE
+4
.WORD BUF TWO+4

B8R

011710

:GO TO 3508 IF ERROR

3108:
350s:

NOP
EMT
JMP

310s
3508

:ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

:GO TO 2808 IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR

;GO CHECK FOR SECONDARY ERRORS
*GO TO 3008 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;GO COMPARE WRITE, READ DATA BUFFERS
;STARTING ADDRESS OF WRITE BUFFER
*STARTING ADDRESS OF READ BUFFER

;G0 TO 3108 IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEFINED BY CMPBUF SUBROUT INE
:GO TO 3508 IF ERROR

SEQ 0077

CZRMOAQ RMOS/3/2 FCTINL TST 3

C%RHOAO RMO5/3/2 FCINL TST 3
WRITE, WRITE

MACRO v03.01 11-APR-80 13:39:53 PAGE 13-7
N

CHECK ZEROS

238

SRR RARRA AN AR R P AANRAANANAAAAARANARARANAAAARARNRANNRRANNNNORONNR

OHOHrNNOO

WNOA)
= = —

SNNNNSNNWY

b
b wmd

Guor Gunr Qs

d cad

jrur G

—t

elololelelele]

Punrd

J*TEST S

AR RN AN R

000004
000240
012706
013700
013701
012737

T1STS:

001100
001276
001464
000005

AR AR

246 011736
011742

011744
011746
011750
011752

012022
012026

AR NANANANNANARANAAANNANAN
AN INORN NS

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

;(R1) = DEVICE BEING TESTED

#5,8TESTN
AR

A R AR

;sSET TEST NUMBER IN APT MAIL BOX

AR RN AN RN RAN

AN RN NN NN SN RANRN NS

FORMAT ,WRITE ,WRITE CHECK DATA

108:

004737
154130

000404
000240
104000
000137

;PREPARE DEVICE FOR TEST

040472

JSR

WORD

NOP

EMT
JMP

012666

248

249 011756
250 011756
251 011764
252 011772
253 012000
254 012006
255 012014
256
257

#STACK,SP
$BASE RO
TSTQUE R

MOV

001226

243 011736

WRITE, WRITE CHECK ZEROS

AR NN AR AT

SCOPE
NOP
MOV
MOV
MOV

LOOP A1

247

SEQ 0078

PC,TSTPRP

154130

20%
3508

;PREPARE DEVICE FOR TEST

sTASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI'*
OR 'PIP'' IS SET
;VERIFY RECALIBRATION

;GO TO 208 IF NO ERROR

RETURN HERE

IF ERROR

SERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 3508 IF ERROR

ébgAD PARAMETERS AND GENERATE DATA BUFFER

012737
012737
012737
012737
012737
012737

000000
000000
106314
177376
010000
000063

004737

041416

012030
012034
012036
258 012042
259 012042
260 012050
261 012056

071730
000001
043344

266 012072
267 012076
268 012102

001551
000034
000006
000004
000002

001444
001416
001414
001412
001442
001410

#0,RMDCO
#0 ,RMDAO

sCYLINDER = 0
sTRACK = 0, SECTOR = 0

MOV

#-258. ,RMWCO

;2 + 256. WORDS (2°'S COMP)

MOV

MOV
MOV

#BUF ONE ,RMBAO

;16 BIT FORMAT
;WRITE HEADER AND DATA COMMAND

JSR

PC,BADSCT

;CALL BAD SECTOR MODULE

TYPE

,SCTMSG

:TYPE BAD SECTOR MESSAGE

BR
25%:

;BUS ADDRESS

#FMT16,RMOFO
#WH!GO,RMCS10

;VERIFY THAT SECTOR IS NOT BAD

070230
012666

MOV
MOV

25$

EMT
JMP

3508

MOV
MOV
JSR

#ZEROS,$TMPO
#1,8TMP1
PC,GENBUF

:GO TO 258 IF NO ERROR

:ERROR # DEFINED BY BADSCT SUBROUTINE
:GO TO 3508 IF ERROR

;SETUP PARAMETERS AND EXCUTE COMMAND
MOV
#PU TINX,R2
Mov8
HRMDC, (R2)+
MOVB
#RMDA
. (R) +
MOvB
A#RMBA, (R2) +
MovB
#RMWC, (R2) +

;STARTING ADDRESS OF PATTERN
JRANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT
;R2 = BYTE ENTRY POSITION

B 7
MACRO Vv03.01 11-APR-80 13:39:53 PAGE 12-8
C%RHOAO
RMOS/3/2 FCINL TST 3
. WRITE CHECK ZEROS
F-'
—f

SEQ 0079

#RMOF , (R2)
+

JSR
BR
NOP
EMT
JMP

PC,PUT

044500

012140

044144

;SETUP GE; INDEX TABLE TO READ ALL REGISTERS
PC.GETSTS
;GO TO GETSTS SUBROUTINE
JWAIT FOR COMMAND TO COMPLETE
PC,TIMOUT
JSR

SSNWWNONIN)
— —

PONINANIADNININI
NN
— d e d d wd d D d ek

mMovB
mMOov8
movBe

000200

30s:

012666

012144

004737

045042

012150
012154
012156
012160
012162
282 012166
283

004737
000404
000240

044230

000137

012666

285 012166
012172
012174
012176
012200
012202
286 012206
287
288
289 012206
290 012214

004737
000405
000240

057742

104000

40%:

JSR

EMT

50%:

012216

000410

JMP

3508

PC,GET

50%

3508

JSR
BR

PC,DTASTS
60%

EMT
JSR

PC,a(SP)+

NOP

012737

408

JVERIFY RESULTS OF WRITE COMMAND

104000

012666

#200, (R2)

;GO GET REGISTER STATUS
NOP

004736
000137

#RMCST, (R2)+

60%:

001124

JMP

3508

2GO TO TIMOUT SUBROUTINE

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 508 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 60% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
2GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

80%

LOOP ”2

2233302828028 23

TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO _TO 408 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

JMOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#70%,SLPERR
(B 2232242233823 232288

202322803

;SKIP TO WRITE OPERATION
800R03228002 2228020 0d0RdS

WRITE ,WRITE CHECK DATA

:
708

012216

297
298 012216
012222

s TERMINATE

004737
154130

040472

;PREPARE DEVICE

JSR

.UORD

FOR TEST

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST

s TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE € VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

012224
012226
012230
012232

000404
000240

000137

012666

NOP
EMT

JMP

80%

:RECALIBRATE IF '‘SKI'* OR 'PIP'* IS SET
sVERIFY RECALIBRATION
;GO TO 808 IF NO_ERROR

350%

JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3508 IF ERROR

JRETURN HERE

IF ERROR

CZRMOAQ RMOS/3/2 FCTINL TST 3

WRITE, WRITE CHECK ZEROS

MACRO v03.01 11-APR-80 13:39:53 PAGE 12-9

ggg 012236

808 :

301
302 012236

:SETUP PARAMETERS AND EXCUTE COMMAND
1208

303 012236 012737 106320 001414

MOV

177400
000061
001551
000006
000034
000032
000004
000002
000000
0002090

315 012320

004737

044500

012326

000240

012332

000137

012666

318
1 012336

004737

044144

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
:GO TO GETSTS SUBROUTINE

320
o1 012342

004737

045042

:WAIT FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

323 012346

004737

044230

012354
012356
012360
%Sé 012364

000240
104000
000137

012330

g;g 012336

322

012352

326
327 012364

012370
012372

012374
012376

012400
328 012404
329 012404

104000

000404

NOP

012666

004737
000405
000240
104000
004736
000137

045226

004737

057742

012410 000405

000240
104000
004736

012666

012412
012414
012416
012420
330 012424
331 012404

000137

012666

004737

046060

012432
012434
012436

000240
104000
004736

012430 000405

JSR

EMT

1308

JMP

#<256..RMJCO
MJD1GO.RMCS10
HPUTINX ,R2
#RMDA, (R2)+
#RMDC. (R2)+
#RMOF
. (R2)+
#RMBA. (R2)+
ARMWC. (R2)+
#RMCST, (R2)+
#200, (R2)+

: CHANGE MEMORY ADDRESS

012737
012737
012702
112722
112722
112722
112722
112722
112722
112722

000404

MOV
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

#BUF ONE +4 , RMBAD

304 012244
305 012252
306 012260
307 012264
308 012270
309 012274
310 012300
311 012306
312 012310
g}z 012314

012324

001412
001410

SEQ 0080

PC,PUT

130s

3508

;GO GET REGISTER STATUS

JSR
BR

1408:

NOP
EMT
JMP

;CHANGE WORD COUNT
:WRITE DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

:TERMINATE TABLE
;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

26O TO 1308 IF NO ERROR

‘RETURN HERE IF ERROR

:ERROR # DEFINED BY PUT SUBROUTINE

2GO TO 3508 IF ERROR

;GO TO TIMOUT SUBROUTINE

PC,GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

3508

"RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
*GO TO 3508 IF ERROR

1408

26O TO 1408 IF NO ERROR

;VERIFY RESULTS OF WRITE COMMAND
JSR
PC,PRIERR
;G0 CHECK FOR PRIMARY ERRORS

BR
NOP
EMT
JSR

1508:

JMP

PC,a(SP)+
3508

JSR

PC,DTASTS

B8R

1608:

1508

1608

*GO TO 1508 IF NO ERROR
*RETURN HERE IF ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

16O TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

*GO TO 1608 IF NO ERROR

NOP
EMT
JSR

PC.a(SP)+

"RETURN HERE IF ERROR
*ERROR # DEF INED BY DTASTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

*RETURN HERE IF ERROR
“ERROR # DEF INED BY SECERR SUBROUTINE
*GO BACK FOR MORE ERROR (HECKS

JMP

B8R

NOP
EMT
JSR

3508

1808

*GO TO 3508 IF ERROR

2GO TO 1808 IF NO ERROR

CZRMOAQ RMOS5/3/2 FCINL TST 3
MACRO v03.01
15
WRITE, WRITE CHECK ZEROS

012440
332 012444

000137

012666

335 012444
336 012452

012737
000410

012454

IMP

180%:

001124

MOV

R A AN

200$
A AR

AR AR

;SKIP TO NEXT OPERATION
AR AR AR AN NN A AR AANNRAA RN NN

WRITE CHECK DATA

ARRAAR

190%:

344 012454
012460

004737

012462
012464
012466
012470
345 012474
346
347
348 012474
349 012474
350 012502
351 012506
352 012512
353 012516
354 012522
355 012526
356 012532
357 012536
358
359 012542
012546
012550
012552
012554
360 012560
361
362
3 012560

000404
000240
104000
000137

366
367 012570
012574
012576

;GO TO 350% IF ERROR

#1908
. SLPERR

B8R
‘{ooP #3

364
s 012564

3508

SEQ 0081

;CHANGE LOOP ADDRESSES

341 012454

11-APR-80 13:39:53 PAGE 12-10

154130

:PREPARE DEVICE FOR TEST

040472

JSR

PC, TSTPRP

B8R

2008

_WORD

NOP
EMT

012666

200$:

154130

3508

:PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF “'SKI'' OR 'PIP'* IS SET
;VERIFY RECALIBRATION

;GO TO 2008 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 3508 IF ERROR

ézg;UP PARAMETERS AND EXCUTE COMMAND

012737

000051
001551
000006
000032
000034
000004
000002
000000
000200

001410

MOVB

044500

012666

044144
045042

044230

mov

MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

JSR

NOP
EMT

250%:

IMP

MJICD
! GO,RMCS10

#PUTINX
R2
#RMDA, (R2)+
ARMOF
. (R2)+
ARMDC. (R2)+
#RMBA. (R2)+
#RMMC. (R2)+
ARMCSi,(R2)+

;WRITE CHECK DATA DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

#200, (R2)
PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

3508

JRETURN HERE IF ERROR
SERROR # DEFINED BY PUT SUBROUTINE
2GO TO 3508 IF ERROR

2508

;G0 _TO 2508 IF NO ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE
;WAIT FOR COMMAND TO COMPLETE
JSR

PC,TIMOUT

;GO GET REGISTER STATUS
JSR

B8R

NOP

PC,GET

2608

;GO TO TIMOUT SUBROUTINE

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO _TO 2608 IF NO ERROR
SJRETURN HERE

ERROR

WRITE, WRITE

012600
012602
012606
370
3N 012606
012612
012614
012616
012620
012622
372 012626
373 012626

012632
012634
012636
012640
012642
374 012646
375 012646
012652
012654
012656
012660
012662
376 012666

CHECK ZEROS

104000

000137

012666

004737
000405
000240

045226

104000
N04736
000137

004737
000405
000240

MACRO v03.01

SEQ 0082

EMT
JMP

260%:

004737
000405
000240

012666

270%:

057742

012666

2708

EMT
JSR
JMP

PC,a(SP)+

012666

PC.DTASTS

2808

PC,a(SP)+

JSR
BR
NOP
EMT
JSR

;GO TO 3508 IF ERROR

.GO VERIFY RESULTS OF DATA TRANSFER
;GO _TO 2808 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

3508

300%:

;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

3508
3008

;GO _TO 3008 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

:
3508
SRR

AR A AR AN

*TEST 6
AR AR

000004
000240
012706
013700
013701
012737

TST6

001100
001276
001464
000006

WRITE,

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

SRR AR AR

012714

A A AN AR A AR AR RN AR NI R AR AN RN NN RARANRARRARN

A AN AR A AR AR AN

AN AN

WRITE CHECK ZEROS W/ WCE ERROR
AN AR R AR AN NN AR ARNRANRANRAARANARRNNRA
R
NN

#STACK,
SP

$BASE ,RO

TSTQUE ,R1
#6,STESTN

A AR AN A AR AN

LOOP 1

012714
012720

;GO _TO 2708 IF NO ERROR
sJRETURN HERE I[F ERROR

3508

JSR
BR
NOP
EMT
JSR
JMP

280$:

046060

378 012666
379
380

012666
012666
012670
012672
012676
012702
012706

;GO TO 3508 IF ERROR

NOP

104000

004736
000137

sERROR # DEFINED BY GET SUBROUTINE

350%

sVERIFY RESULTS OF WRITE CHECK COMMAND
PC,PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS

104000

004736
000137

11-APR-80 13:39:53 PAGE 12-11

:SCOPE CALL
;START OF TEST
sINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS

;(R1)

= DEVICE BEING TESTED

;.SET TEST NUMBER IN APT MAIL BOX

R RN AR AN RN N AR RN AR AR RNAARN RN AN

RN AR AN RN

FORMAT ,WRITE ,WRITE CHECK DATA

10$:

004737
154130

040472

;PREPARE DEVICE

uoro

FOR TEST

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
;SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

000404
000240

BR
NOP

20%

IF VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE [F ''SKI'* OR 'PIP'* IS SET
;VERIFY RECALIBRATION
;GO 10 20% IF NO ERROR
JRETURN HERE IF ERROR

—~

C%RMO#O RMOS5/3/2 FCTNL TST 3

CZRMOAQ RMOS/3/2 FCINL TST 3

WRITE, WRITE

012726
5 012730
390
391 012734
392 012734
393 012742
394 012750
395 012756
396 012764
ggg 012772
399

013000
013004
013006

013012
013014
400 013020

CHECK 2EROS W/ WCE ERROR

104000
000137

012737
012737
012737
012737
012737
012737

000000
000000
106314
177376
010000
000063

004737
000405
104401

041416

104000
000137

405 013040

012702

112722

496 013044

407 013050

004737
112722

;R2 = BYTE ENTRY POSITION

000006

MOVB

#RMDA
, (R2) +

000032

mMOov8

044500

104000

000137

014062

18 013116

004737

044144

420 013122

004737

045042

421
422 013126

004737

044230

417
419

013132
013134
013136
013140
252 013144

000404
000240
104000
000137

014062

425
426 013144

004737

057742

013152

000240

013150

000405

#ZEROS ,$TMPO

JSR

PC, GENBUF

MOVB

000004
000002

013112

2;2 013116

;ERROR # DEFINED BY BADSCT SUBROUTINE
;GO TO 3508 IF ERROR

H#PUTINX,R2

004737

013110

3508

;CALL BAD SECTOR MODULE
;GO TO 25% IF NO ERROR
;TYPE BAD SECTOR MESSAGE

MOV

001176

000034

000000
000200

000404
000240

001174

258
:

EMT
JMP

PC,BADSCT
25%
.SCTMSG

001551

043344

112722
112712

013104
013106

JSR
BR
TYPE

;RANGE OF PATTERN

411
412
413
414

112722

;VERIFY THAT SECTOR IS NOT BAD

#1,8$TMP1

112722
112722

013070
013074
013100
013100

:ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3508 IF ERROR

3508

01"
MOV

408 013054
409 013060

410 013064

001444
001416
001414
001412
001442
001410

014062

071730
000001

SEQ 0083

:LOAD PARAMETERS AND GENERATE DATA BUFFER
208
:
MoV
#0,RMDCO
:CYLINDER = 0
MOV
#0 ,RMDAO
;TRACK = 0, SECTOR = 0
MOV
#BUF ONE ,RMBAO
:BUS ADDRESS
MOV
#-258. ,RMWCO
;2 + 256. WORDS (2'S COMP)
MOV
#FMT16,RMOFO
;16 BIT FORMAT
MOV
#WH'!GO,RMCS10
JWRITE HEADER AND DATA COMMAND

070230

012737
012737

F
7
11-APR-80 13:39:53 PAGE 12-12

EMT
JMP

014062

401 013020
402 013026
282 013034

MACRO v03.01

MOVB
MOVB

30%:

MOVB
MOVB

JSR

HRMOF
, (R2) +

#RMCST, (R2)+
#200, (R2)

PC,PUT

408

JmMp

3508

;SETUP GET

JSR

INDEX TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

TO READ ALL REGISTERS

PC,GETSTS

PC., TIMOUT

;GO EGT REGISTER STATUS
JSR
PC,GET

50%:

BR
NOP
EMT
JMP

508

3508

:TERMINATE TABLE

;GO TO 40% IF NO ERROR
;RETURN HERE IF ERROR

WAIT FOR COMMAND TO COMPLETE

JSR

;GO GENERATE BUFFER FOR FORMAT

#RMBA, (R2) +
#RMIC, (R2) +

B8R
NOP
EMT

40%:

H#RMDC, (R2) +

;STARTING ADDRESS OF PATTERN

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE
:GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 508 IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
:GO TO 3508 IF ERROR

JVERIFY RESULTS OF WRITE COMMAND
JSR
PC,DTASTS
;GO VERIFY RESULTS OF DATA TRANSFER

B8R

NOP

603

;GO TO 60% IF NO ERROR
JRETURN HERE IF ERROR

cgnm»o RMOS5/3/2 FCINL TST 3
MACRO Vv03.01 11-APR-80 13:39:53 PAGE
WRITE, WRITE CHECK 2EROS W/ WCE ERROR

0131564
01356

013160

25; 013164
429
430 013164

2§} 013172

104000
004736

000137

014062

012737
000410

013174

EMT
JSR

JMP

608 :
001124

433

12-13

PC,a(SP)+

3503

SEQ 0084

;ERROR # DEFINED BY DTASTS SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#708
, SLPERR

80%

;SKIP TO WRITE OPERATION

ttttttttt'tt*tttttttt'ttttttttfitttttttttttt*ttttttttttt'ttttt't

2%‘5

LOOP [ ¥4

2;; 013174

708 :

(38

439 013174
013200

004737
154130

WRITE,.WRITE CHECK DATA

;PREPARE DEVICE FOR TEST

0640472

JSR
.WORD

PC,TSTPRP
154130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

*SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE IF VOLUME NOT VALID

*VERIFY PACK ACKNOWLEDGE

013202
013204

013206
013210

229 013214
442
443 013214

000404
000240

104000
000137

444 013214

012737

446 013230

012737

445 013222

447 013236
448 013242
449 013246
450 013252
451 013256
452 013262

453 013266
2§§ 013272

456 013276

013302
013304
013306
013310

012737

012702
112722
112722
112722
112722
112722

BR
NOP

014062

177400

106320

000061

001551
000006
000034
000032
000004
000002

112722
112722

000000
000200

004737

044500

000404
000240
104000
000137

014062

013314

004737

044144

5 013320

004737

045042

22; 013314
459
461

808 :
001412

EMT
JMP

cRECALIBRATE IF ''SKI'' OR 'PIP'' IS SET
*VERIFY RECALIBRATION

80%

:GO TO 808 IF NO ERROR
*RETURN HERE IF ERROR

cERROR # DEFINED BY TSTPRP SUBROUTINE
*GO TO 3508 IF ERROR

3508

;SETUP PARAMETERS AND EXCUTE COMMAND
1208:

MOV

001414

MOV

001410

MOV

MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
JSR

1308

BR
NOP
EMT
JMP

#-256. ,RMWCO

ABUF ONE +4 ,RMBAD

#JD'GO,RMCS10

#PUT INX ,R2
ARMDA, (R2)+
#RMDC. (R2)+
WRMOF
. (R2)+
#RMBA. (R2)+
WRMMC. (R2)+
#RMCST, (R2)+
#200, (R2)+
PC,PUT

JSR

;LOAD PUT REGISTER INDEX TABLE

;TERMINATE TABLE

*GO TO 1308 IF NO ERROR
*RETURN HERE IF ERROR
SERROR # DEFINED BY PUT SUBROUTINE
*GO TO 3508 IF ERROR

3508

TO READ ALL REGISTERS

PC,GETSTS

cWAIT FOR COMMAND TO COMPLETE

JSR

; CHANGE MEMORY ADDRESS

*WRITE DATA COMMAND

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

130s

JSETUP GET INDEX TABLE

;CHANGE WORD COUNT

PC, TIMOUT

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

l
CZRMOAO RMOS/3/2 FCINL TST 3

WRITE, WRITE

463

464 013324

013330
013332
013334
013336

CHECK ZEROS W/ WCE

004737
04

004737
000405
000240
104000
004736
000137

469
470

004737
00405
000240

ERROR

H
7
11-APR-80 13:39:53 PAGE 12-14

SEQ 0085

;GO READ STATUS FOR WRITE COMMAND

044230

014062

465 013342
467
468

MACRO v03.01

JSR
BR
NOP
EMT
JMP

1408%:

471
472

004737
000405
000240

JSR
BR

NOP

014062

EMT
JSR
JMP

150%:

057742

JSR
BR
NOP

EMT
JSR

C14062

JMP

160$:

046060

JSR
BR

NOP

104000

013416
473 013422
474
475
476 013422

677
478
479
480
481 013430
482
483 013430
484 013434
485
486
487 013440

013444

488 013460

004736
000137

014062

012737

013430

;GO READ REGISTER(S)

3508

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
:GO TO 3508 IF ERROR

1408

WITH GET

:GO TO 1408 IF NO ERROR

SUBROUT INE

;CHECK FOR ERRORS DURING WRITE OPERATION

045226

104000

004736
000157

PC,GET

EMT
JSR
JMP

180%:

001124

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

150%

;GO TO 1508 IF NO ERROR

JRETURN HERE

PC,a(SP)+

;GO BACK FOR MORE ERROR CHECKS

3508

;G0 TO 3508 IF ERROR

PC,DTASTS

;GO VERIFY RESULTS OF

160%

PC,a(SP)+

IF ERROR

;JERROR # DEFINED BY PRIERR SUBROUTINE

DATA TRANSFER

;GO _TO 1608 IF NO ERROR

sRETURN HERE

ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS

3508

;GO TO 3508 IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

180%

;GO _TO 180% IF NO ERROR

;sRETURN HERE

ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE

PC,a(SP)+

;G0 BACK FOR MORE ERROR (HECKS

3508

;GO TO 3508 IfF ERROR

s CHANGE LOOP ADDRESSES
MOV

LR4

#1908, $LPERR

AR R AR A AN AN AR

;LOOP #3

AR AR A AR

WRITE

A AR AN AR RN R AN RN RN RNRNNRANNRNN AR

RANN R

CHECK DATA

190%:

012703
050337

000001
107316

004737

040472

154130

014062

195%:
sPREPARE

MoV

BIS

DEVICE

JSR
.WORD

200%:

BR
NOP
EMT
JMP

#1,R3

R3 ,BUF TWO-2

FOR TEST
PC,TSTPRP

154130

200%

3508

;R3+WCE BIT POSITION

s CHANGE LAST WORD OF BUFFER

;PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI''
OR 'PIP'' IS SET
;VERIFY RECALIBRATION
2GO _TO 2008 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 350% IF ERROR

I%gRHOAO RMOS/3/2 FCINL TST 3
WRITE, WRITE

013532
013534
013536
012540
503 01354/

CHECK ZEROS W/ WCE ERROR

d
d

001551

e
e

004737

044144

013550

004737

045042

510 013554

004737
000404
000240
104000
000137

044230

013572
013576

004737
000405
000240
104000

AN
o

004736
000137
o

b ok
o
—

VIV

s
s —b
—

Lol RNe qV, ]

VivhwoaLA

013560
013562
013564
013566
013572

032737
001030

JSR

NOP
EMT

250%:

JSR

523 013656
524 013664

525 013670

012737

260$:

2508

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO _TO 2508 IF NO ERROR

JRETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUT INE

;GO TO 3508 IF ERROR

PC, TIMOUT

;GO TO TIMOUT SUBROUTINE

EMT
JMP

2603

;GO TO 2608 IF NO ERROR

3508

;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 3508 IF ERROR

JRETURN HERE IF ERROR

;CHECK FOR ERRORS DURING WRITE CHECK DATA OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS

045226

270s

IMP

PC,3(SP)+
3508

BIT
BNE

MJCE ,RMCS2 ]
285$

JSR

PC,DTASTS

NOP
EMT
JSR

PC,3(SP)+

MOV
BIS

RMCS21,$GDDAT
MJCE, SGDDAT

MOV
MOV

R3,$TMPO
#B0F TWO=2, $TMP1

NOP
EMT
JSR

014062

107316

PC,PUT

;GO READ STATUS FOR WRITE CHECK DATA OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUT INE

014062

001344
040000
001344
001174

JWRITE CHECK DATA DATA COMMAND
sLOAD PUT REGISTER INDEX TABLE

#RMOF
. (R2)+
#RMDC. (R2) +
A#RMBA. (R2)+
#RMWC. (R2)+
WRMCST,(R2)+
#200, (R2)

;WAIT FOR COMMAND TO COMPLETE

NOP

040000

MICD
! GO,RMCS10
#PUTINX
R2
#RMDA, (R2) +

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;60 TO GETSTS SUBROUTINE

001344

270%:

057742

013737
052737
013737
010337

MOV
MOV
MOVB

B8R

014062

522 013650

SEQ 0086

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

044500

013544

508

40%:

000200

014062

506
507

001410

000051

000137

505

11-APR-B0 13:39:53 PAGE 12-15

éREAD DATA FROM DEVICE

—

489
490
491 013460
492 013460
493 013466
494 013472
495 013476
496
497 013506
498
499 013516
500 013522
501
502 013526

MACRO v03.01

001140
001140
001142
001176

280%:

JMP

MOV

2808

3503

RMCS21, $8DDAT

;GO TO 2708 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

;WAS ‘WCE'* DETECTED??
JYES!!
;GO VERIFY RESULTS OF DATA TRANSFER
;G0 _TO 280% IF NO ERROR
sRETURN HERE [F ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO0 BACK FOKR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

;EXPECTED STATUS

JRECEIVED STATUS
;FAILING BIT POSITION
sFAILING ADDRESS

CZRMOAO RMOS/3/2 FCINL TST 3

MACRO v03.01

WRITE, WRITE CHECK ZEROS W/ WCE ERROR

526 013676
527 013700
528 013702
529 013702
013710
013716
013722
013724
013726
013730
530 013734
531 013734
532 013742
533 013750
534 013754
535 013762
536 013770
537 013776
538 014004
539 014006
540 014010

104337
000470

112737
112737
004737
000404
000240
104000
000137

014062

013737

001356

541 014012
542 014020

mMovB
JSR
BR
NOP

001140

295%:

;GO READ RMDB VIA GET SUBROUTINE

JRETURN HERE IF ERROR
;ERROR DEF INED BY GET SUBROUTINE
;GO TO 3508 IF ERROR
JRECEIVED DATA

BUF TWO-2, $GDDAT
R3,$GDDAT

JEXPECTED DATA

JEXPECTED ADDRESS

cRECEIVED ADDRESS

#2.,$8DADR

;ADJUST BUS ADDRESS

295%
340
3508

JYESY!

CMP

$GDDAT ,$8DDAT

JSR

PC,SECERR

013434

MRS

WRITE,

AR A AR

R AR AR R AR A AR

1S17:

001100

001226
b

;RETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUT INE

;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

R3,BUF TWO-2
R3
3508
195%

J*TEST 7
R

.GO CHECK FOR SECONDARY ERRORS

;G0 TO 3008 IF NO ERROR

3508

8IC
ASL
BEQ

At d

JYES!!

PC,a(SP)+

3508:
o0

:DATA 0K??

3008

JMP

300%:

;ADDRESSES 0K??

2963
341
3508

EMT
JSR

SCOPE
NOP
MOV
MOV
MOV
MOV

TABLE

;G0 _TO 2908 IF NO ERROR

$GDADR, $8DADR

107316

001276
001464
000007

PC,GET

290%

#BUF TWO-~2, $GDADR

001142

INDEX

;SETUP TERMINATOR BYTE

RMBA] ,$8DADR

014062

000004
000240
012706
013700
013701
012737

sSETUP GET

RMDB] ,$BDDAT

MOV

046060

014032
014034
014036
014040
0146042
548 014046
549 014046
550 014052
551 014054
552 014056
553 014062

#RMDB , GE T INX

#200,GETINX+1

3508

296%:

546
547 014026

ittt

;RESTORE DATA PATTERN
JSHIFT TO NEXT BIT
SEXIT IF DONE
JREPEAT TEST FOR NEXT DATA BIT
eIttty

22222322222222222;

READ ONES
NI AR AN

RN AR N R AN AR AN RNNRN RN A NRRANN

NN N NN AR

;SCOPE CALL
sSTART OF

TEST

#STACK, SP

sINITIALIZE STACK POINTER

TSTQUE ,R1
#7,STESTN

;(R1) = DEVICE BEING TESTED
;;SET TEST NUMBER IN APT MAIL BOX

$8ASE RO

;RO = UNJ]BUS ADDRESS

A ARtt
T
Y2232
t
2222228

‘{oor M
560 014110
561
562

EMT
JMP

107316
001140
107316
001340
000002
001134

543 014022
564 014024
545 014026

014062
014062
014064
014066
014072
014076
014102

MOVB

2908%:

SEQ 0087

337
3508

EMT
B8R

285%:

000022
000200
044230

11-APR-80 13:39:53 PAGE 12-16

FORMAT ,WRITE ,READ

:
108

;PREPARE THE DEVICE FOR TEST

WRITE,

563 014110
014714

READ ONES

004737
154130

MACRO v03.01

7
K
11-APR-80 13:39:53 PAGE 12-17
SEQ 0088

040472

JSR

WORD

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:
;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE

564

014116
014120
014122
014124

565
566 014130
567 014130
568 014136
569 014144
570 014152
571 014160

572 014166
573
574
014174
014200
014202
014206
014210
575 014214
576 014214
577 014222
578 014230
579
580
581 014234
582 014240
583 014244
584 014250
585 014254
586 014260
587 014264
588 014270
589 014274
590
N
592 014274
014300

593 014312
594
595
014312
596
597

000404
000240
104000

C00137

NOP

EMT

015070

JMP

20$

3508

ébgAD PARAME TERS AND GENERATE

012737
012737
012737
012737
012737
012737

000000
000000
106314
177376
010000

004737

041416

MOV

MOV
MOV

#0_,RMDCO

ERROR

;GO TO 3508 IF ERROR
DATA BUFFER

sCYLINDER = 0

sTRACK = 0,

#-258. ,RMJCO

;2 + 256. WORDS (2°'S (OMP)

#8UF ONE ,RMBAO

#FMT16,RMOFO
#WH!GO,RMCS10

;BUS ADDRESS

SECTOR = 0

;16 BIT FORMAT
JWRITE HEADER AND DATA COMMAND

;CALL BAD SECTOR MODULE

TYPE

.SCTMSG

:TYPE BAD SECTOR MESSAGE

001174
001176

;ERROR # DEFINED BY TSTPRP SUBROUTINE

FC ,BADSCY

EMT
JMP

255

;GO _TO 20% IF NO ERROR

JRETURN HERE

JSR

015070

''SKI''
OR ‘PIP'' IS SET

#0,RMDAO

;VERIFY THAT SECTOR IS NOT BAD

070230

;VERIFY RECALIBRATION

MOV
JSR

25%

3508

NONES , $TMPO

#1,8TMP1

PC . GENBUF

;GO TO 25% IF NO ERROR

;ERROR # DEFINED BY BADSCT SUBROUT INE
*GO TO 3508 IF ERROR

:STARTING ADDRESS OF PATTERN

*RANGE OF PATTERN

*GO GENERATE BUFFER FOR FORMAT

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
#PUTINX,R2
JR2 = BYTE ENTRY POSITION
#RMDC, (R2) +
MOVB
#RMDA, (R2) +

30s:
044500

MOVB
MOVB
MOVB
MOVB
MovB

#RMBA, (R2) +
#RMWC, (R2) +
WRMOF
, (R2) +
#RMCST, (R2) +
#200, (R2)

.FORMAT THE DRIVE
JSR
PC,PUT
B8R
408
NOP
EMT

;TERMINATE

TABLE

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 408 IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED RY PUT SUBROUTINE
;GO TO 3508 IF ERROR

015070

40%

044144

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
JSR
;GO TO GETSTS SUBROUT INE

JMP

3508

SWAIT FOR COMMAND TO COMPLETE

-t

C%RMOAO RMOS/3/2 FCTINL TST 3

CZRMOAOD RMOS/3/2 FCTNL TST 3

WRITE, READ ONES

014316

004737

0450642

599
600 014322
014326
014330
014332
014334

004737
000404
000240
104000
000137

044230

598

604 0164340
014344
014346
014350
014352
014354
605 014360
606
607
608 014360
609 014366
610

611
612
613
614 014370
615
616
617

618 014370
014374

004737
00405
000240
104000
004736
000137

012737
000410

0047
1541

000404
000240

014404

000137

619 014410
620
621
622 014410

623 014410
624 014416
625 014424
626 014432
627 014436
628 014442
629 014446
630 014452
631 014456
632 014462

104000

JSR

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

NO ERRORS DURING FORMAT
JSR
PC,DTASTS
;GO VERIFY RESULTS OF DATA TRANSFER

60$

NOP
EMT
JSR

;G0 TO 60% IF NO ERROR

JRETURN HERE

IF ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE

PC,a3(SP)+

JMP

015070

26O BACK FOR MORE ERROR CHECKS

3508

;GO TO 3508 IF ERROR

:MOVE LOOP ADDRESSES TO NEXT OPERATION
#708,SLPERR

MOV

80%

B8R

040472

SEQ 0089

:GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR
508
;GO TO 508 IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUTINE
JMP
3508
;GO TO 3508 IF ERROR

057742

014370

11-APR-80 13:39:53 PAGE 12-18

014376
014400

014402

015070

MACRO v03.01

AR AN AR AR A AR

;SKIP TO WRITE OPERATION
R

;LOOP #2

WRITE ,READ

:PREPARE gSVICE

FOR TEST

.WORD

BR
NOP
EMT
JMP

015070

R A AR AN R R AN RN R AR NN RN

PC,TSTPRP

154130

80%
3508

RA A RN AR RN NN AN

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;RECAL IBRATE IF ‘'SKI'' OR ‘PIP*' IS SET
;VERIFY RECALIBRATION

;GO _TO 80$ IF NO ERROR
sRETURN HERE IF ERROR

JERROR # DEFINED BY TSTPRP SUBROUT INE

;GO TO 3508 IF ERROR

;WRITE DATA TO THE DRIVE

012737
012737
012737
012702
112722
112722
112722
112722
112722
112722

106320
177400
000061
001551
000034
000032
000004
000002
000000

120%:

MOV
MOV
MOV
MOV
MOvVB
MOvB
MovB
MOVB
MOv8
MovB

#BUF ONE +4 ,RMBAO
s CHANGE MEMORY ADDRESS
#-256. ,RMICO
s CHANGE WORD COUNT

MWD !GO, RMCS10
#PUTINX
R2
#RMDA, (R2) +
#RMDC, (R2) +
W#RMOF
, (R2)
+
#RMBA, (R2)
+
#RMWC, (R2)
+

#rMCST, (R2)+

JWRITE DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

CZRMOAO RMOS/3/2 FCINL TST 3
WRITE, READ ONES

633 014466
634
635 014472
014476

m 7
11-APR-80 13:39:53 PAGE 12-19
SEQ 0090

112722

000200

004737
04

044500

MOVB

4200, (R2)+

JSR

PC,PUT

B8R

EMT

:GO TO 1308 IF NO ERROR

*RETURN HERE

IF ERROR

*ERROR # DEFINED BY PUT SUBROUT INE
$GO TO 3508 IF ERROR

3508

130%:

; TERMINATE TABLE
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

1308

NOP

015070

636 014510

638

MACRO Vv03.01

014510

044144

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
26O TO GETSTS SUBROUTINE

014514

045042

;WAIT FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

643 014520
014524
014526
014530

044230

639
640
641

015070

647 014536
014542
014544
014546
014550
014552
648 014556
649 014556
014562
014564
014566
014570

045226

014572
650 014576
651 014576
014602
014604
014606
014610
014612
652 014616
653
654
655 014616
656 014624
657
658
659
660
661 014626
662
663
664 014626

;GO READ STATUS FOR WRITE COMMAND
JSR

PC,GET

EMT

JMP

:
1408

IF ERROR

JERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

:CHECK FOR ERRORS DURING WRITE OPERATION
JSR

PC,PRIERR

B8R

015070

1508

057742

1508

1605

046060

PC.a(SP)+
3508

JSR

PC.DTASTS

1608

001124

;GO VERIFY RESULTS OF DATA TRANSFER

260 TO 1608 IF NO ERROR

PC,a(SP)+

350s

:G0 TO 3508 IF ERROR

JSR

PC.SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUT INE
160 BACK FOR MORE ERROR CHECKS

1808

NOP
EMT
JSR

1808

IF ERROR

:ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
160 TO 3508 IF ERROR

NOP
EMT
JSR

B8R

015070

;60 CHECK FOR PRIMARY ERRORS

260 TO 1508 IF NO ERROR

*RETURN HERE

EMT
JSR
JMP

B8R

015070

014626

;GO _TO 1408 IF NO ERROR

JRETURN HERE

3508

NOP

012737
000410

2GO READ REGISTER(S) WITH GET SUBROUTINE

1408

NOP

014532
644 014536

.GO TO TIMOUT SUBROUTINE

JMP

3508

*RETURN HERE IF ERROR
*ERROR # DEFINED BY DTASTS SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 1808 IF NO ERROR

:GO TO 3508 IF ERROR

s CHANGE LOOP ADDRESSES
MOV
BR

ARl

;LOOP #3

#1908, SLPERR
2008

sttt

ittt

;SKIP TO NEXT OPERATION

ittt

Iizs

22323222202

READ

1908:

004737

040472

sPREPARE DEVICE FOR TEST
JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

CZRMOAO RMOS/3/2 FCTNL TST 3
17
WRITE, READ ONES
014632

014634
014636
014640
014642

222 014646
667
668 014646
669 014646
670 014654

MACRO VO03. 01

154130

000404
000240
104000
000137

012737

N 7
11-APR-80 13:39:53 PAGE 12-20
.WORD

015070

107324

2008 :
001414

BR
NOP
EMT
JMP

154130

200%
3508

SEQ 0091

;TASK DESCRIPTOR AS FOLLOWS:

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER € SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF 'SKI"*
OR 'PIP'' IS SET
*VERIFY RECALIBRATION

:GO TO 2008 IF NO ERROR
*RETURN HERE IF ERROR
SERROR # DEFINED BY TSTPRP SUBROUTINE
:GO TO 3508 IF ERROR

JREAD DATA FROM DEVICE
2408:
MOV
#BUF TWO+4 , RMBAQ

; CHANGE MEMORY ADDRESS

671 014662
672 014666
673 014672
674 014676
675 014702
676 014706
677 014712

g;g 014716

012737
012702
112722
112722
112722
112722
112722
112722
112712

000071
001551
000006
000032
000034
000004
000002
000000
000200

680 014722

004737

044500

014730
014732
014734

000240
104000
000137

015070

014740

004737

044144

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;G0 TO GETSTS SUBROUTINE

014744

004737

045042

JWAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

687
688 014750

004737

044230

014756
014760
014762

000240
104000
000137

015070

692 014766

004737

045226

014774

000240

015000

004736

014726

gg; 014740

3
S

014754

233 014766

691

014772

014776

015002

693 015006

694 015006

000404

000405

001410

MOV
MoV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
JSR

B8R

NOP
EMT

2508 :

B8R

2608:

NOP
EMT
JMP

JSR

B8R

EMT

004737

057742

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

3508

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
:GO TO 3508 IF ERROR

2508

16O TO 2508 IF NO ERROR

;G0 TO TIMOUT SUBRCx!TINE

2608

3508

160 TO 2608 IF NO ERROR

JRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
160 TO 3508 IF ERROR

;CHECK FOR ERRORS DURING READ OPERATION

NOP

015070

*READ DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

;GO READ STATUS FOR READ OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

104000

000137

#RD !GO ,RMCS10
#PUTINX ,R2
#RMDA, (R2)+
#RMOF
. (R2)+
WRMDC. (R2)+
#RMBA. (R2)+
#RMWC. (R2)+
#RMCST, (R2)+
#4200, (R2)

2708

PC,PRIERR

2708

;G0 CHECK FOR PRIMARY ERRORS

GO TO 2708 IF NO ERROR
JRETURN HERE IF ERROR

*ERROR # DEFINED BY PRIERR SUBROUTINE

JSR

PC,a(SP)+

:GO BACK FOR MORE ERROR CHECKS

JSR

PC,DTASTS

:GO VERIFY RESULTS OF DATA TRANSFER

JMP

3508

:GO TO 3508 IF ERROR

WRITE, READ ONES

015012
015014
015016
015020
015022
695 015026
696 015026
015032
015034
015036
015040

697 015046
698 015046

699 015070

MACRO v03.01

B 8
11-APR-80 13:39:53 PAGE 12-21
SEQ 0092

000405
000240

104000

004736
000137

015070

004737
000405
000240
104000
004736
000137

046060

004737
106320
107324
000404
000240

043602

104009
000137

2808%:

015070

300%:

015070

310s:

701 015070
702
703

015122

3508

JSR
BR
NOP
EMT
JSR

PC,SECERR
300

JSR
.WORD
.WORD
BR
NOP
EMT

PC.,CMPBUF
BUF ONE +4
BUF TWO+4
310%

;GO CHECK FOR SECONDARY ERRORS

;GO _TO 3008 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
2GO BACK FOR MORE ERROR CHECKS

PC,a(SP)+

JMP

3508

JMP

;GO TO 3508 IF ERROR

;GO COMPARE WRITE, READ DATA BUFFERS
sSTARTING ADDRESS OF WRITE BUFFER
: STARTING ADDRESS OF READ BUFFER

;GO TO 3108 IF NO ERROR

JRETURN HERE

IF ERROR

;ERROR # DEFINED BY CMPBUF SUBROUTINE

3508

AR R AR AR AR AR

;GO TO 3508 IF ERROR

000004
000240

012737

AR A A

WRITE, WRITE CHECK ONES

001100

SCOPE
NOP
MoV

#STACK,SP

000010

MOV
MoV

TSTQUE ,R1
#10,8TESTN

001276
001464

AR RN AR NN RN R A AN AN NNARNANRNRANRNNR RN

AR AN A AR AR AN AR AR AR A AT AR A A RN AR RN RAN RN AR AN NNAR

TST10:

MOV

001226

$BASE ,RO

AR RAN

AR RN A NS

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS

;(R1) = DEVICE BEING TESTED
;oSET TEST NUMBER IN APT MAIL BOX

'.*Qttt*tt*tttfi*ttkfittfit'*ttt*fittt*ttfittfifi'fittttfifitfitttfittttfitit*

;LOOP #1

FORMAT ,WRITE ,WRITE CHECK DATA

108
:

004737
154130

040472

000404
000240
712
713
714 015136

PC,a(SP)+

JMP

s*TEST 10

704
705
706
707
708 015116
709
710
711 015116

;GO TO 280% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

3508:

015070
015070
015072
015074
015100
015104
015110

280%

NOP
EMT
JSR

000137

016046

:PREPARE THE DEVICE FOR TEST
JSR

.WORD

BR
NOP
EMT

JMP

PC,TSTPRP

154130

208

3508

-PREPARE DEVICE FOR TEST
; "ASK DESCRIPTOR AS FOLLOWS:
;SELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE

;RECALIBRATE IF ''SKI'*
OR ‘PIP'’ IS SET
;VERIFY RECALIBRATION
;GO _TO 208 IF NO ERROR

sJRETURN HERE IF ERROR
SERROR # DEFINED BY TSTPRP SUBROUT INE

;GO TO 3508 IF ERROR

ébng PARAMETERS AND GENERATE DATA BUFFER

-—‘f‘\j

C%RMOAO RMO5/3/2 FCTNL TST 3

MACRO v03.01
€2 RMOAO RMOS/3/2 FCINL TST 3
I8 0
WwR
€. WRITE CHECK ONES
001444
001416
001414
001412
001442
001410

012737
012737
012737
012737
012737
012737
004737

MOV
MOV
MOV
MOV
MOV
MOV

726 015236
727
728
729 015242
730 015246
731 015252
732 015256
733 015262
734 015266
735 015272
736 015276
737 015302
738
739
740 015302

741 015320
742
743

744
745

001551
000034
000006
000004
000032
000000
000200

044500

016046

015320

044144

015324

045042

746
747
748 015330

015334
015336
015340
015342
749 015346

752 015346

015352
015354
015356
015360

044230

PC,BADSCT

Efl?e

,SCTMSG

001174

001176

057742

25§

SEQ 0093

;CYLINDER = 0

sTRACK = 0, SECTOR = 0
*BUS ADDRESS

; 2 + 256. WORDS (2'S COMP)
116 BIT FORMAT
JWRITE HEADER AND DATA COMMAND
:CALL BAD SECTOR MODULE

©GO TO 258 IF NO ERROR

“TYPE BAD SECTOR MESSAGE

SERROR # DEF INED BY BADSCT SUBROUTINE
$GO TO 3508 IF ERROR

JMP

3508

mov

#ONES
, STMPO

;STARTING ADDRESS OF PATTERN

JSR

PC . GENBUF

;GO GENERATE BUFFER FOR FORMAT

MOV

#1,8$TMP1

‘RANGE OF PATTERA

:LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

20%:

MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

#PUT
INX ,R2
#RMDC, (R2)+
ARMDA. (R2)+
#RMBA. (R2)+
#RMWC. (R2)+

JSR

PC,PUT

JMP

3508

BR
gg¢
40%:

;R2 = BYTE ENTRY POSITION

HRMOF
. (R2)+
#RMCST,(R2)+
#200. (R2)

;FORMAT THE DRIVE

408

:TERMINATE TASLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
16O TO 408 IF NO ERROR
‘RETURN HERE IF ERROR
;ERROR # DEFINED B PUT SUBROUTINE
*GO TO 3508 IF ERROR

:SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE

JSR

PC.TIMOUT

;GO TO GETSTS SUBROUTINE

:GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR

?fl?

016046

#0 ,RMDCO
#0 . RMDAO
#BUF ONE , RMBAO
#=258. ,RMWCO
#EMT16 . RMOF O
MJH'GO,RMCS10

JSR

016046
071666
000001
043344

:VERIFY THAT SECTOR IS NOT BAD

041416

070230
723 015222
724 015222
725 015230

11~-APR-80 13:39:53 PAGE 12-22

50%:

JMP

PC,GET

50$

3508

:VERIFY NO ERRORS DURING FORMAT
JSR

B8R

gg¢
JSR

PC,DTASTS

60%

PC,a(SP)+

;GO READ REGISTER(S) WITH GET SUBROUTINE
“GO TO SO$ IF NO ERROR
"RETURN HERE IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE
*GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

‘GO TO 608 IF NO ERROR

"RETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

RMO#O RMOS5/3/2 FCINL TST 3
MACRO v03.01
WRITE, WRITE CHECK ONES

000137

016046

012737
000410

015376

001 124

3508

JMP

60%:

SEQ 0094

;GO TO 3508 IF ERROR

-MOVE LOOS ADDRESSES TO NEXT OPERATION
#70%,SLPERR
BR
80%
e

7
762 015376
763
764
765
766 015376
015402

D 8
11-APR-80 13:39:53 PAGE 12-23

AA A AN AR AN A RN AR AN

;LOOP #2

;SKIP TO WRITE OPERATION

AR RN AR R A AR

AN RN AR NA AN RN A NNRRN AN,

WRITE,WRITE CHECK DATA

70%:

004737
154130

040472

;PREPARE DEVICE

JSR
JWORD

FOR WRITE OPERATION

PC,TSTPRP
154130

;PREPARE DEVICE FOR TEST
*TASK DESCRIPTOR AS FOLLOWS:

:SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE

015404
015406
015410
015412
767 015416
768
769
770 015416
771 015416
772 015424
773 015432
774 015440
775 015444
776 015450
777 015454
778 015460
779 015464
780 015470
;21 015474
2
783 015500
015504
015506
015510

015512

784 015516
785
786
. 015516

788

9 015522

000404
000240
104000
000137

B8R

NOP

016046

EMT

80%:

JMP

80$

3508

VOLUME NOT VALID

SVERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ‘‘SKI'’ OR 'PIP'' IS SET
*VERIFY RECALIBRATION

:GO TO 80$ IF NO ERROR

*RETURN HERE

ERROR

*ERROR # DEFINED BY TSTPRP SUBROUT INE

*GO TO 3508 IF ERROR

i-ggirs DATA TO THE DRIVE

MOV
MOV
MOV
MOV

012737

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

000200

044500

JSR

B8R

NOP

016046

044144

045042

1308

EMT

#BUF ONE +4 , RMBAO
: CHANGE MEMORY ADDRESS
#-256. ,RMYCO
;CHANGE WORD COUNT
MJD1GO.RMCS10
;WRITE DATA COMMAND
#PUT INX ,R2
*LOAD PUT REGISTER INDEX TABLE

WRMDA, (R2)+
#RMDC. (R2)+
WRMOF
. (R2)+
#RMBA. (R2)+
#RMWC. (R2)+
#RM(CST,(R2)+
#200, (R2)+
PC,PUT

130s

3508

: TERMINATE TABLE
;GO WRITE REGISTER(S)

WITH PUT SUBROUTINE

:GO TO 1308 IF NO ERROR

*RETURN HERE

ERROR

*ERROR # DEFINED BY PUT SUBROUT
INE
GO TO 3508 IF ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC.GETSTS

;WAIT FOR COMMAND

JSR

TO COMPLETE

PC.TIMOUT

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT

;GO READ STATUS FOR WRITE COMMAND

SUBROUT INE

—

C%SMAO RMO5/3/2 FCTNL TST 3

WRITE, WRITE CHECK ONES

791 015526

004737

015534
015536
015540

000240
104000

000137

016046

795 015544

004737

045226

015552
015554
015556
015560
796 015564

000240
104000
(04736
000137

016046

797 015564

004737

057742

015572
015574
015576
015600

000240
104000
004736
000137

016046

004737

046060

015532

;gg 015544
794

000404

015550 000405

015570

798 015604
799 0156064

015610

015612
015614
015616

000405

015620

016046

803 015624

012737

015634

802

§8§ 015632

000410

815

816 015654

JSR

NOP
EMT

JMP

1408 :

PC,GET

1408

SEQ 0095

:GO READ REGISTER(S) WITH GET SUBROUTINE

$GO TO 1408 IF NO ERROR

‘RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE

3508

26O TO 3508 IF ERROR

;CHECK FOR ERRORS oun1~c WRITE OPERATION

JSR

B8R
1508:

JSR

PC,DTASTS

001124

3508

1608

NOP
EMT
JSR
IMP

PC,a(SP)+
3508

JSR

PC,SECERR

B8R

NOP
EMT
JSR
JMP

1808 :

1ERR

PC,a(SP)+

B8R

1608:

1sés

NOP
EMT
JSR
JMP

;GO CHECK FOR PRIMARY ERRORS

:GO TO 1508 IF NO ERROR

*RETURN HERE IF ERROR
<ERROR # DEFINED BY PRIERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
‘GO TO 3508 IF ERROR
;GO VERIFY RESULTS OF DATA TRANSFER

:GO TO 1608 IF NO ERROR

*RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
. GO BACK FOR MORE ERROR CHECKS
*GO TO 3508 IF ERROR
;GO CHECK FOR SECONDARY ERRORS

1808

*GO TO 1808 IF NO ERROR

PC,a(SP)+
3508

*G0 TO 3508 IF ERROR

;RETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
. G0 BACK FOR MORE ERROR CHECKS

;s CHANGE LOOP ADDRESSES
MOV

;LOOP #3

g?g 015634

015642
015644
015646
015650
g}z 015654

#1908, SLPERR

2008

;SKIP TO NEXT OPERATION

""'tttttttttttttttt'tt'tttttt'tt't‘tt'ttfitttttttttttttttttttttttt

ggg

811
812 015634
015640

11-APR-80 13:39:53 PAGE 12-24

044230

000240
104000
004736
000137

38? 015624

MACRO v03.01

WRITE CHECK DATA

1908 :

004737
154130

000404
000240
104000
000137

040472

016046

;PREPARE DEVICE FOR WRITE CHECK DATA OPERATION
JSR
PC, TSTPRP
;PREPARE DEVICE FOR TEST
JWORD
154130
*TASK DESCRIPTOR AS FOLLOWS:

200s :

BR
NOP
EMT
JMP

200%

3508

SSELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'' OR 'PIP'* IS SET
;VERIFY RECAL IBRATION
:GO TO 2008 IF NO ERROR
*RETURN HERE IF ERROR
SERROR # DEFINED BY TST. RP SUBROUTINE
GO TO 3508 IF ERROR

-WRITE CHECK DATA DATA FROM DEVICE

2408:

CZRMOAO RMOS/3/2 FCTINL TST 3
MACRO v03.01
110
WRITE, WRITE CHECK ONES

F
11-APR-80 13:39:53 PAGE

8
12-25

SEQ 0096

817 015654
818 015662
819 015666
820 015672
821 015676

012737
012702
112722
112722
112722

112722
112722
112722
112712

827 015722
015726
015730
015732
015734

004737
000404
000240
104000
000137

016046

830
831 015740

004737

044144

sSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

832
833 015744

004737

045042

JWAIT FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

834
835 015750

004737

044230

;GO READ STATUS FOR WRITE CHECK DATA OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

822
823
824
ggg

015702
015706
015712
015716

ggg 015740

015754

015756
015760
015762
ggg 015766

838
839 015766
015772
015774
015776
016000
016002

840 016006
841 016006
016012
016014

016016
016020
016022
842 016026
843 016026
016032
016034
016036
016040
016042
gzé 016046
846 016046
847

848

000404

000240
104000
000137

004737
000405
000240
104000
004736
000137
004737
000405
000240
104000
004736
000137
004737
000405
000240
104000
004736
000137

000051
001551
000006
000032
000034

001410

000004
000002
000000
000200

MOV
MOV
MovB
mMovB
MOV8

MOVB
mMovB
MovB
movs

MJCD'GO,RMCS10
#PUT INX ,R2
#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC
, (R2) +

044500

JSR
BR

PC,PUT
2508

016046

045226

016046

057742

016046
046060

016046

2508 :

NOP
EMT
JMP

260%:

NOP
EMT
JMP

JWRITE CHECK DATA DATA (COMMAND
;LOAD PUT REGISTER INDEX TABLE

#RMBA, (R2) +
W#RMWC, (R2) +
W#RMCS1, (R2)+
#200, (R2)

3508

2608

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO _TO 2508 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT INE
;GO TO 3508 IF ERROR

;GO TO TIMOUT SUBROUTINE

;GO TO 260% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 3508 IF ERROR

;CHECK FOR ERRORS DURING WRITE CHECK DATA OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS
BR
270%
;GO TO 2708 IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY PRIERR SUBROUTINE
JSR
PC,a(SP)+
;GO BACK FOR MORE ERROR CHECKS
JMP
3508
;GO TO 3508 IF ERROR

270%:

280%:

300%:

JSR
BR
NOP

EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS
280%
PC,a(SP)+
3508
PC,SECERR
3008

PC,a(SP)+
3508

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 280% IF NO ERROR
JRETURN HERE IF ERROR

SERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR
;GO CHECK FOR SECONDARY ERRORS
;G0 TO 3008 IF NO ERROR
JRETURN HERE [F ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

3508
:
""""i't"'t"t"t.fit""""‘lt"ilfittflfi".tfi"fi.‘t".lt.'t'.'.

C 4 R MOAO RMOS5/3/2 FCINL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE
T
WRITE, WRITE CHECK ONES W/ WCE ERROR
i

S*TEST 11

016062
016066

849
850
851
852
853 016074
854

856 016074
016100

TST11:

013701
012737

016172
016174
868 016200

869 016200
870 016206
871 016214
872

873
874 016220
875 016224

876 016230
877 016234
878 016240
879 016244

CHECK ONES W/ WCE ERROR

001100
001276
001464
000011

SCOPE
NOP
MOV
MOV
MOV
MOV

001226

#STACK, SP
$BASE , RO
TSTQUE ,R1

#11,$TESTN

;SCOPE CALL
*START OF TEST
*INITIALIZE STACK POINTER
‘RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED

$:SET TEST NUMBER IN APT MAIL BOX

""fittttt*tttttttttttttttttt'itt'ttttitt*ttttttttttittQtfitt'tttttt

:LOOP #1

FORMAT ,WRITE,WRITE CHECK DATA

:
108

004737
154130

;PREPARE

040472

THE

JSR

LWORD

000404
000240

000137

017244

EMT
JMP

012737
012737
012737
012737
012737
012737

000000
000600
106314
177376
010000
000063

004737

041416

104000

016166

WRITE

SEQ 0097

":!t't!ttt'ttttttfittttttttt'ttttt'fifittttttttittt'tttttttttttttt't

016046
016046

016050
016052
016056

WRITE,

8
12-26

NOP

20%:
001444
001416
001414
001412
001442
001410

154130

MOV
MOV
MOV
MOV

STASK DESCRIPTOR AS FOLLOWS:

:SELECT DEVICE € VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
*VERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ''SKI'*
OR 'PIP'' IS SET
*VERIFY RECALIBRATION

:GO TO 208 IF NO ERROR

3508

:ERROR # DEF INED BY TSTPRP SUBROUTINE
:GO TO 3508 IF ERROR

#BUF ONE , RMBAO
#-258. ,RMICO
#FMT16.RMOFO
MWH! GO .RMCS10

JSR

PC ,BADSCT

TYPE

,SCTMSG

BR
55

001174
001176

:PREPARE DEVICE FOR TEST

208

;VERIFY THAT SECTOR IS NOT BAD

017244

001551
000034
000006
000004
000002
000032

FOR FORMAT OPERATION

PC.TSTPRP

:RETURN HERE

ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER
MOV
#0,RMDCO
:CYLINDER = 0
MOV
#0.RMDAO
STRACK = 0, SECTOR = 0

070230

071666
000001
043344

DEVICE

EMT
JMP
MOV

MOV
JSR

25$

3508
HONES , $TMPO

#1,$TMP
PC . GENBUF

*BUS ADDRESS
“WORD COUNT = 1 SECTOR
*16 BIT FORMAT
*WRITE HEADER AND DATA COMMAND

;CALL BAD SECTOR MODULE

:GO TO 258 IF NO ERROR

*TYPE BAD SECTOR MESSAGE

*ERROR # DEFINED BY BADSCT SUBROUTINE
:GO TO 3508 IF ERROR
;STARTING ADDRESS OF

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
MOV
MOVB
MOVB
MOVB
MOVB
MOVB

#PUTINX ,R2
#RMDC, (R2)+
#RMDA. (R2)+
#RMBA. (R2)+
#RMWC. (R2)+
#RMOF
. (R2)+

PATTERN

*RANGE OF PATTERN
1GO GENERATE BUFFER FOR FORMAT
:R2 = BYTE ENTRY POSITION

H 8
CZRMOAQ RMOS/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-27
T
WRITE, WRITE CHECK ONES W/ WCE ERROR
-

880 016250
88 016254
882 016260
883
884
885 016260
016264
016266
016270
016272
016276
887

112722
112712

000000
000200

004737
000404
000240

044500

104000

017244

016276

004737

044144

016302

004737

045042

893 016306
016312
016314
016316
016320
894 016324
895

004737

044230

891

016344
016352

JSR

EMT
JMP

40%:

JSR

EMT
JMP

50s%:

350%

TO COMPLETE

PC,TIMOUT

508

3508

cVERIFY NO ERRORS DURING FORMAT
JSR

EMT

016354

408

;TERMINATE

TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 40% IF NO ERROR

JRETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUT INE

;GO TO 3508 IF ERROR

;GO TO TIMOUT SUBROUTINE

. GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

NOP

012737
000410

PC,PUT

JWAIT FOR COMMAND

057742

017244

#200, (R2)

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC.GETSTS
;GO TO GETSTS SUBROUTINE

017244

000137

ARM(CS
|, (R2)+

;FORMAT THE DRIVE

NOP

897 016324

016330
016332
016334
016336
016340
016344

30%:

NOP

000137

889
890

MOVB

MOvVB

SEQ 0098

JSR
JMP

60%:
001124

PC,DTASTS

60%

PC,a(SP)+
3508

;GO TO 508 IF NO ERROR

;JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 60% IF NO ERROR

;RETURN HERE IF ERROR

cERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MoV
BR

#70% ,SLPERR
80s

;SKIP TO WRITE OPERATION

,';tfitttt*ttfit**l'fittt'ttt*tt"tttit**tttttfitttttttttttttttttttttt

;LOOP #2
016354

016354
016360

WRITE ,WRITE CHECK DATA

70%:

004737
154130

040472

;PREPARE DEVICE FOR WRITE OPERATION
JSR

LWORD

PC,TSTPRP

154130

sPREPARE DEVICE

FOR TEST

s TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE € VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE

016362
016364
016366

000404
000240
104000

NOP
EMT

80%

;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI'' OR 'PIP'" IS SET
;VERIFY RECALIBRATION
;GO TO 80% IF NO ERROR

JRETURN HERE

ERROR

;ERROR # DEF INED BY TSTPRP SUBROUTINE

TMm

MACRO v03.01

WRITE, WRITE CHECK ONES W/ WCE ERROR

016370
911 016374
912
913
914 016374
915 016374
916 016402
917 016410
918 016416
919 016422
920 016426
921 016432
922 016436
923 016442
924 016446
ggg 016452
927 016456
0164662
016464
016466
016470
928 016474
929
930
931 016474

932

016500

000137

017244

;WRITE

3508

DATA TO THE

;GO TO 3508 IF ERROR

DRIVE

004737
000404
000240
104000
000137

044500

017244

004737

0464144

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
JSR
;GO TO GETSTS SUBROUTINE

004737

0450642

;WAIT FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

004737
000404
000240
104000
000137

044230

;GO READ STATUS FOR WRITE COMMAND
JSR
PC,GET
;60 READ REGISTER(S) WITH GET SUBROUTINE
BR
1408
;GO TO 1408 IF NO ERROR

940 016542
941 016542

000137

017244

004737

057742

016554
016556
942 016562
943 016562
016566
016570
016572

JMP

SEQ 0099

177400
106320
000061
001551
000006
000034
000032
000004
000002
000000
000200

004737
000405
000240
104000
004736

016546
016550
016552

012737
012737
012737
012702
112722
112722
112722
112722
112722
112722
112722

933
934
935 016504
016510
016512
016514
016516
936 016522
937
938
939 016522
016526
016530
016532
016534

016536

80%:
120$:

11-APR-80 13:39:53 PAGE 12-28

000405
000240
104000

004736
000137
004737
000405
000240
104000

017244

045226

017244
046060

001412
001414
001410

MOV
MOV
MOV
MOV
MOvB
MOVB
mMOovB
mMovB
MOovB
MOvVB
MOvB
JSR
BR
NOP
EMT

130%:

1408$:

NOP
EMT
JMP

#-256. ,RMW(O
s CHANGE WORD COUNT
#BUF ONE +4 ,RMBAD
; CHANGE MEMORY ADDRESS

#4D ! GO,RMCS10
#PUTINX ,R2
#RMDA, (R2) +
#RMDC, (R2) +
#RMOF
, (R2) +
A#RMBA, (R2) +
#RMWC, (R2) +
#RMCST,(R2)+
#200, (R2)+
PC,PUT

308

3508

JWRITE DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

s TERMINATE TABLE
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 1308 IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

;GO TO TIMOUT SUBROUTINE

JRETURN HERE

3508

ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERRUR

sCHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS
BR
1508
;GO TO 1508 IF NO ERROR
NOP
;RETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY PRIERR SUBROUTINE
JSR
PC,a(SP)+
:GO BACK FOR MORE ERROR CHECKS
JMP
3508
;GO TO 3508 IF ERROR

1508
:

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

JSR
JMP

PC,a(SP)+

;RETURN HERE IF ERROR
SERROR # DEFINED BY DTASTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS

JSR
BR
NOP
EMT

PC,SECERR

BR
NOP
EMT
160$%:

1608

3508
1808

;GO _TO 1608 IF NO ERROR

;GO TO 3508 IF ERROR

;GO CHECK FOR SECONDARY ERRORS
;GO TO 180% IF NO ERROR

JRETURN HERE

ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE

—

CZRMOAQ RMOS/3/2 FCINL TST 3

CZRMOAO RMOS/3/2 FCINL TST 3
WRITE, WRITE

016574
016576

CHECK ONES W/ WCE

004736
000137

017244

012737

016610

944 016602
945
946
947 016602
948
949
950
951
952 016610
953
954 016610
955 016614
956
957
958 016620
016624

012703
040337

000001

004737
154130

040472

016626
016630

000404
000240

959 016640
960
961
962 016640
963 016640
964 016646
965 016652

JSR
JMP

001124

PC,a(SP)+

;G0 BACK FOR MORE ERROR CHECKS

3503

;GO TO 350% IF ERROR

; CHANGE LOOP ADDRESSES
MOV

#1908, SLPERR

R AR AR AR A A AR AR A RN A AT

WRITE

AN AN AR AN R AR RN

ANRA RN AR RN NRN AR AR

NNNA R

CHECK DATA

190%:

104000

000137

107316

017244

195%:
;PREPARE

MOV

BIC

DEVICE

JSR

.WORD

BR
NOP
EMT

200%:

#1,R3
R3,BUF TWO-2

JR3+WCE BIT POSITION

; CHANGE LAST WORD OF BUFFER

FOR WRITE CHECK DATA OPERATION
PC,TSTPRP
;PREPARE DEVICE

154130

200%
3508

FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:
;SELECT DEVICE & VERIFY DEVICE AVAILARLE
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF ''SKI''
OR 'PIP'' IS SET
;VERIFY RECALIBRATION
;G0 TO 2008 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3508 IF ERROR

.READ DATA FROM DEVICE

012737

000051
001551

240%:

000032
000034
000004

973 016706
016712
016714
016716
016720
974 016724

979
980

SEQ 0100

180%:

e NN

969 016672

977
978

ERROR

J
8
11-APR-80 13:39:53 PAGE 12-29

‘LooP #3

970 016676
971 016702
972

975
976

MACRO v03.01

MJICD
! GO,RM(CS10

#PUTIN
,R2
X
#RMDA, (R2) +
#RMOF
, (R2) +

;WRITE

CHECK DATA DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

#RMDC, (R2) +
#RMBA, (R2) +
MRMIC, (R2) +
ARMCST, (R2)+
#200, (R2)

044500

017244

MOV
MOV
MOVB

PC,PUT

2508

250%:

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO _TO 2508 IF NO ERROR

;JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;G0 TO 3508 IF ERROR

016724

004737

044144

sSETUP GET INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
JSR
;60 TO GETSTS SUBROUTINE

016730

004737

045042

JWAIT FOR COMMAND TO COMPLETE
PC,TIMOUT
JSR

;GO TO TIMOUT SUBROUTINE

;60 READ STATUS FOR WRITE CHECK DATA OPERATION

%%?WO RMO5/3/2 FCINL TST 3
WRITE, WRITE

CHECK ONES W/ WCE ERROR

981 01673

004737

016742
016744
016746

000240
104000
000137

017244

984
985 016752

004737

045226

016760
016762
016764
016766

000240
104000
(004736
000137

016740

ggg 016752

016756

986 016772
987 016772
988 017000
989 017002

017006

017010
017012
017014
017016
990 017022
991 017022
992 017030

993 017036
994 017044

995 017050

000404

000405

032737
001030
004737

000405

C01344
040000

010337

001174

013737

012737

112737

017070
017076
017104

112737
012737
004737

017112

000240

1002 017116

000402

001344

2608 :

B8R

001344

001140
001140

001176

000022

001522

001356

001142

001134

001136

001140

001142

1016 017206
1017 017210

000416

PC,a(SP)+
3508
MJCE ,RMCS2]
285$
PC,DTASTS

2808

MOV
BIS

RMCS21.,$GDDAT
MICE, SCODAT

MoV

R3, STMPO

RMCS21, $SBDDAT

MOV

#BUF TWO=2, $ TMP1

MOVB

#RMDB,GETINX

B8R

2950s

EMT
BR
2858
:

270s

MOVB
MOV
JSR

337
3508

#200,GETINX+1
#350% , RMDB]
PC,GET

EMT

023737
001402
104340

023737
001402
104341

3508

PC,a(SP)+
3508

NOP

1009 017160
1010 017166
1011 017170

000424

260s

NOP
EMT
JSR
JMP

MOV

001523
001356

001134
001136

1013 017174
1014 017202
1015 017204

2808
:

001142

107316
001140
107216
001340

1012 017172

BIT
BNE

JSR

013737
050337
012737
013737

162737

NOP
EMT
JSR
IMP

B8R

1004 017126
1005 017132
1006 017136
1007 017144

1008 017152

2708$:

104000

013737

NOP
EMT
JMP

PC,GET

000002

;GO READ REGISTER(S) WITH GET SUBROUTINE

:GO TO 2608 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
:GO TO 3508 IF ERROR

:CHECK FOR ERRORS ouax~c WRITE CHECK DATA OPERATION
JSR
PC ,PRIERR
;60 CHECK FOR PRIMARY ERRORS

107316

000200
017244
044230

SEQ 0101

JSR

057742

013737
052737

999 017062
1000 017062

1003 017116

040000

K
8
11-APR~80 13:39:53 PAGE 12-30

017244

104337
000471

1001 017114

044230

000240
104000
004736
000137

996 017056
ggg 017060

017110

MACRO v03.01

2908:

001140

MOV

MOV
8IS
MOV
MOV

001136

SUB

TM
BEQ
EMT

295%:

2968:

B8R

(MP
BEQ
EMT

B8R

:GO TO 2708 IF NO ERROR

SRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
. GO BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR
;WAS 'WCE'* DETECTED??
SYES!

;60 VERIFY RESULTS OF DATA TRANSFER

+GO TO 2808 IF NO ERROR

*RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR
;EXPECTED STATUS

;RECEIVED STATUS

JFAILING BIT POSITION

SFAILING ADDRESS

;SETUP GET INDEX TABLE

:SETUP TERMINATOR BYTE
:SET RMDB INPUT BUFFER = 350%
.GO READ RMDB VIA GET SUBROUTINE

:GO TO 2908 IF NO ERROR
*RETURN HERE IF ERROR

:ERROR DEFINED BY GET SUBROUTINE
RMUB] , $BDDAT

BUF TWO=2, SGDDAT
R3,$GDDAT
#8UF TWO-2, $GDADR
RMBA] , SBDADR

#2.$8DADR

;RECEIVED DATA

SEXPECTED DATA

:EXPECTED ADDRESS
*RECEIVED ADDRESS

*CORRECT MEMORY ADDRESS

$GDADR, SBDADR
2958
340

*ADDRESSES 0K??
SYES!!

$GDDAT, SBDDAT
2968
341

:DATA 0K??
SYES!!

3508

p—

WRITE, WRITE

CHECK ONES W/ WCE ERROR

1018
1019 017210

004737

017216
017220
017222

000240
104000
004736

017214

017224

1020 017230
1021 017230

1022 01723
1023 017236

1024 017240
?8%2 017244

000405

SEQ 0102

046060

000137

017244

050337

107316

000137

016614

006303
001402

L
8
11-APR-80 13:39:53 PAGE 12-31

JSR

B8R

NOP
EMT
JSR

JMP

3008:

BIS

ASL
BEQ

JMP

3508 :

1027

MACRO v03.01

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,3(SP)+

*RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

3008

3508

:GO TO 3008 IF NO ERROR

:GO TO 3508 IF ERROR

R3,BUF TWO=2

;RESTORE DATA PATTERN

R3
3508

SSHIFT TO NEXT BIT
SEXIT IF DONE

195%

*REPEAT TEST FOR NEXT DATA BIT

:;tttttttttttttttttttttttttt*tttttttttttttttttttitttitttttttttttt

S*TEST 12

017244
017244
017246
017250
017254
017260
1028 017264

WRITE, WRITE CHECK MULTIPLE SECTORS

::tttttttttt*tttttt*ttttttt'ttttttttttttt*ttttttttttttt'ttttttttt

000004
000240
012706
013700
013701
012737

T§112:

001100
001276
001464
000012

SCOPE
NOP
MOV
MOV
MOV
MOV

001226

1029

#STACK,SP
$BASE ,RO
TSTQUE ,R1
#12.8TESIN

:SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
$:SET TEST NUMBER IN APT MAIL BOX

".'tttttttttttttttttttttttttttttttttttttttttttttttttttttttttt'tttt

}83?

SLooP #1

}8§§ 017272

108 :

1034
1035 017272
017276

004737
154130

FORMAT ,WRITE ,WRITE CHECK

;PREPARE THE DEVICE FOR FORMAT OPERATION
JSR
PC,TSTPRP
<PREPARE DEVICE FOR TEST
.WORD
154130
;TASK DESCRIPTOR AS FOLLOWS:

040472

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
017300
017302
017304
017306
}823’)9 017312

000404
000240
104000
000137

020250

1038
1039 017312
1040 017320
1041 017326

012737
012737
012737

000000
000000
106314

001444
001416
001414

1043 017342
}%g 017350

012737
012737

010000
000063

001442
001410

004737

041416

1042 017334

1046

017356

017362

012737

000405

176774

20%:

001412

BR
NOP
EMT
JMP

20%
3508

SRECALIBRATE IF ''SKI'* OR 'PIP'' IS SET
;VERIFY RECALIBRATION

;GO _TO 208 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3508 IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER
MOV
#0,RMDCO
sCYLINDER = O
MOV
#0,RMDAO
:TRACK = 0, SECTOR = 0
MOV
#BUF ONE . RMBAO
;BUS ADDRESS

MoV

MOV
MoV

#-258.*2, RMWCO

#FMT16,RMOFO
#WH!GO,RMCS10

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC ,BADSCT

25§

;WORD COUNT FOR 2 SECTORS (2'S COMP)

;16 BIT FORMAT
;WRITE HEADER AND DATA COMMAND

;CALL BAD SECTOR MODULE

:GO TO 258 IF NO ERROR

—

CZRMOANTM RMOS/3/2 FCTINL TST 3

MACRO Vv03.01

017364
017370
017372

1047
1048 017376
1049 017404
1050 017412

012737
012737
004737

071730
000001
043344

702

000137

020250

017474

004737

044144

017500

004737

045042

004737

044230

g 288

1070
1071
1072 017504

017510
017512
017514
017516
1073 017522
1074
1075
1076 017522

004737

001174

25$%:

001176

EMT
JMP

MOV

MOV
JSR

MOvB

012737
012737
012737

177000
106314
000060

. GO GENERATE BUFFER FOR FORMAT

JSR

:
408

NOP
EMT
JMP

;R2 = BYTE ENTRY POSITION

#RMDC, (R2) +

#RMCST, (R2)+
#200, (R2)

W#RMIC, (R2) +
#RMOF
, (R2) +

PC,PUT

40%

3508

s TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 40% IF NO ERROR

JRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE
;WAIT FOR COMMAND TO COMPLETE
JSR

PC.,TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;G0 READ REGISTER(S) WITH GET SUBROUTINE
BR

50%:

EMT
JMP

508

JSR

60%:

001124
001412
001414
001410

NOP
EMT
JSR
JMP

;GO _TO 508 IF NO ERROR

;RETURN HERE

3508

;VERIFY NO ERRORS DURING FORMAT

057742

017614

s STARTING ADDRESS OF PATTERN

JRANGE OF PATTERN

#PUTINX
R

;FORMAT THE DRIVE

020250

012737

SECTOR MESSAGE

;GO TO 3508 IF ERROR

#ZEROS,$TMPO

mMov8
movBe

NOP

020250

;TYPE BAD

;ERROR # DEFINED BY BADSCT SUBROUTINE

#1,8TMP1
PC.GEMBUF

#RMDA, (R2) +
#RMBA, (R2) +

MovB
MovB

308

000137

3508

mMovs
MovBe

017536
1077 017542
1078
1079
1080 017542
1081
1082
1083 017550
1084 017556
1085 017564

.SCTMSG

SEQ 0103

:LOAD PU;OSEGISTER INDEX EABLE FOR FORMAT OPERATIION

Q
[=
o

I G S

000404
000240
104000
000137

TYPE

017470
017474

044500

N
G

004737
000404
000240

ZERE

017456
017462
017464

104000

SECTORS

020250

001551

017466

1069

070230

NNN"&NNNN
n

1053 017416
1054 017422
1055 017426
1056 017432
1057 017436
1058 017442
1059 017446
1060 017452
017456

104401
104000
000137

Y, Y

WRITE, WRITE CHECK MULTIPLE

M 8
11-APR~-80 13:39:53 PAGE 12-32

PC,DTASTS

60$

PC.a(SP)+
3508

IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

;GO _TO 60% IF NO ERROR

RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE

;GO0 BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#708,SLPERR
JREGENERATE DATA BUFFER

MOV
MOV
MoV

#-256.%2 RMJCO

#BUF ONE,RMBAO
#D ,RMCS10

;CHANGE WORD COUNT

. CHANGE BUS ADDRESS
JWRITE DATA

C%SMOfiO RMO5/3/2 FCINL TST 3

CZRMOAO RMOS5/3/2 FCTINL TST 3

T12

MACRO v03.01

WRITE, WRITE CHECK MULTIPLE SECTORS

1086 017572
1087 017600
1088 017606

}838 017612

012737
012737
004737

000410

071666
000001
043344

11-APR-80 13:39:53 PAGE 12-33
SEQ 0104

001174
001176

MOV
MOV
JSR

1091

;STARTING ADDRESS OF PATTERN
*RANGE OF PATTERN

80$

;SKIP TO WRITE OPERATION

tttttti'ifittttfit*tfiti"fititt*fitt*tt*tl 1438322322322 2222232320 X°0 ¢

}835

‘{ooP #2

1094 017614
1095
1096
1097
1098 017614
017620

708
:

017622

0176264
017626
017630
;933 017634
1101
1102
1103
1104
1105
1106
1107
1108

HONES , $TMPO
¥1,$TMP1
PC . GENBUF

017634
017634
017642
017646
017652

004737
154130

:PREPARE DEVICE FOR WRITE OPERATION
JSR
PC, TSTPRP
;PREPARE DEVICE FOR TEST
JWORD
154130
*TASK DESCRIPTOR AS FOLLOWS:

040472

000404

000240
104000
000137

B8R
020250

80$:

NOP
EMT
JMP

017656
017662

000061
001551
000006
000034
000032
000004

1110 017672
}}}5 017676

112722
112722

000000
000200

MOVB
MOVB

1113 017702
017706

004737
000404

044500

JSR
BR
NOP
EMT
JMP

017710
017712
017714

112722 000002

000240
104000
000137

020250

00/737

044144

1110 017724

004737

045042

1120
1121 017730

004737

044230

017736
017740

000240
104000

;};; 017720

1116
117 017720

1118

017734

000404

001410

80$
3508

JWRITE DATA TO THE DRIVE
1208:
MOV
MD ! GO,RMCS10
MOV
#PUT INX ,R2
MOVB
#RMDA, (R2)+
MOVB
ARMDC. (R2)+
MOVB
WRMOF
. (R2)+
MOVB
#RMBA. (R2)+

012737
012702
112722
112722
112722
112722

1109 017666

WRITE,WRITE CHECK

MOVB

130$:

SELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'' OR 'PIP'' IS SET
sVERIFY RECALIBRATION

:GO TO 80$ IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
*GO TO 3508 IF ERROR

;WRITE DATA COMMAND
*LOAD PUT REGISTER INDEX TABLE

#RMWC. (R2)+

#RMCST,(R2)+
#200, (R2)+

PC,PUT
1308

3508

;TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
:G0 TO 1308 IF NO CRROR

RETURN HERE IF ERROR
:ERROR # DEFINFD BY PUT SUBROUTINE
:GO TO 3508 IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC.GETSTS
;GO TO GETSTS SUBROUTINE

;WAIT FOR COMMAND TO COMPLETE

JSR

PC, TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

NOP
EMT

1408

:GO TO 1408 IF NO ERROR
*RETURN HERE IF ERROR
;ERROR # DEFINED BY GE1

SUBROUTINE

CZRMOAO RMOS/3/2 FCTINL TST 3

112

B 9
MACRO Vv03.01 11-APR-80 13:39:53 PAGE 12-34

WRITE, WRITE CHECK MULTIPLE SECTORS

017742

000137

020250

1124
1125 017746

004737

045226

017754
017756
017760

000240
104000
004736

}}gg 017746

017752

017762

000405

1126 017766
1127 017766
017772

000137

020250

004737

057742

020002

000137

020250

004737

046060

0177764
017776
020000

1128 020006
1129 020006

020012

020014
020016
020020
020022
}};9 020026
1132
1133 020026

000405
000240
104000
004736

000405

000240
104000
004736
000137

020250

012737

020036

H%owmaowmo

JMP

1408 :

150s

JMP

3508

JSR

PC,DTASTS

JMP

3508

JSR

PC.SECERR

NOP
EMT
JSR

1508:

BR
NOP
EMT
JSR
1608:

B8R

NOP
EMT
JSR
JMP

1808 :

001124

:LOOP #3

}}zg 020036

PC,a(SP)+

1608

PC,a(SP)+

1808

PC,a(SP)+
3508

:GO TO 1508 IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;G0 VERIFY RESULTS OF DATA TRANSFER

GO TO 1608 IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;G0 CHECK FOR SECONDARY ERRORS

:GO TO 1808 IF NO ERROR

:RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR

; CHANGE LOOP ADDRESSES
MOV
#1908
, SLPERR
RN A

}}gg

1142 020036
020042

;GO TO 350$ IF ERROR

:CHECK FOR ERRORS oun1~c WRITE OPERATION
JSR
PC,PR]
;GO CHECK FOR PRIMARY ERRORS

1136

1141

3508

SEQ 0105

2008

:SKIP TO NEXT OPERATION

A AN R A AR R AR AR AR AR NN AR A A AN AR R AN R A RN RN AR AN R AR RN N RN A AR AR

WRITE CHECK

1908 :
004737
154130

;PREPARE DEVICE FOR READ OPERATION

040472

JSR
.WORD

PC,TSTPRP
154130

;PREPARE DEVICE FOR TEST
STASK DESCRIPTOR AS FOLLOWS:

*SELECT DEVICE & VERIFY DEVICE AVAILABLE

:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
SVERIFY PACK ACKNOWLEDGE
020044
020046
020050
020052

;}22 020056

1145
1146 020056
1147 020056
1148 020064
1149 020070
1150 020074

000404
000240
104000
000137

012737
012702
112722
112722

020250

000051
001551
000006
000032

2008 :
001410

BR
NOP
EMT
JMP

2008

3508

:RECALIBRATE IF '‘SKI"*
OR 'PIP'' IS SET
*VERIFY RECALIBRATION

:GO TO 2008 IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
:GO TO 3508 IF ERROR

JREAD DATA FROM DEVICE
2408;

MOV
MOV
MOVB
MOVB

MJCD ! GO,RMCS10
#PUT INX . R2
#RMDA, (R2)+
WRMOF
. (R2)+

;READ DATA COMMAND
:LOAD PUT REGISTER INDEX TABLE

—O

bt
B
d ad
— e

1
1152
1153
1154 020114
1155 020120

020250

020142

044144

020146

0450642

020152
020156
020160
020162
020164
020170

044230

020170
020174
020176
020200
020202

045226

020250

——h

MOVB

MOVB
JSR

NOP

020142

N
o
N

2&L8

MOVB
MOVB
MOvVB

000034
000004
000002
000000
000200
044500

020130
020132
020134
020136

b ok

e
ek
—

—

— el
—
ek
o

—
—d d
o

— e d
— d d
Viun

ungfifi Afia 2;000

1156
115 7 020126

—d

c 9
11-APR-80 13:39:53 PAGE 12-35

TNL TST 3
MACRO v03.01
CHECK MULTIPLE SECTORS

WRITE,

—b d b e b i;“J

CZRMOAQ RMOS/3/

057742

EMT

250%:

oo
Nn
=] o
NN
N
o

~N ~
WN

—

046060

JSR

NNN NN
00 ~NO N

b b
—

ko
e
b

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 2508 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

PC,PUT

250%

3508

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

260%:

;CHECK FOR ERRORS DURING READ OPERATION
PC,PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS
BR
2708
;GO TO 2708 IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
JERROR # DEFINED BY PRIERR SUBROUTINE
PC,a(SP)+
JSR
;GO BACK FOR MORE ERROR CHECKS
JMP
350
;GO TO 3508 IF ERROR

270%:

280%

;GO VERJFY RESULTS OF DATA TRANSFER
;GO TO 280% IF NO ERROR

EMT
JSR

PC,a(SP)+

3508

SJERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+
3508

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

JSR

280%:

JMP
BR

300%:

JSR
JMP

PC,DTASTS

JRETURN HERE

3008

ERROR

;GO _TO 3008 IF NO ERROR

350%:

020250

4232382222022

LRTEST 13
e

020250
020250

#200, (R2)

;GO READ STATUS FOR READ OPERATION
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUTINE
2608
BR
;GO TO 260% IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUTINE
JMP
350%
;GO TO 3508 IF ERROR

EMT

020250

#RMCST, (R2)+

:WAIT FOR COMMAND TO COMPLETE

NOP

020250

#RMDC, (R2) +
#RMBA, (R2) +
#RMWC, (R2)+

:SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

NOP

020250

SEQ 0106

000004

A28

TST13:

2200200002382

WRITE,

READ W/

220032 RC2RRRZER2RARERRSAD

IMPLIED SEEK

233323322232323232322223232302223232222222228202800230020280200888028¢8%0%
28|

SCOPE

;SCOPE CALL

]

0000 ~J
gmg

00 Q0 00 00 00 OO
W
=200

)

e
—d

o
—

—

i ed o

d e

020252
020254
020260

020270

000240
012706
013700
013701
012737

001100
001276
001464
000013

D 9
11-APR-80 13:39:53 PAGE 12-36
NOP

MOV
MOV
MOV
MOV

001226
B2

2122222232823

‘LooP 1

TEST

JINITIALIZE STACK POINTER
sRO = UNJBUS ADDRESS
;(R1) = DEVICE BEING TESTED
;;SET TEST NUMBER [N APT MAIL BOX
2202308 220

FORMAT ,WRITE ,READ

280320202200 00d20dddaddRddt)

10%:

020276

020276
020302

;START OF

#STACK, SP
$BASE ,RO
TSTQUE ,R1
#13,8TESTN
3023320200002

SEQ 0107

004737
154130

;PREPARE THE DEVICE FOR FORMAT OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
.WORD
154130
; TASK DESCRIPTOR AS FOLLOWS:
;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE IF VOLUME NOT VALID

0460472

;VERIFY PACK ACKNOWLEDGE

O O 0 OO Q 00 g0 Co

020304
020306
020310
020312
020316
020316
020324
020332
020340
020346
020354
020362

000404
000240
104000
000137

021470

20%

;VERIFY RECALIBRATION
;GO _TO 20% IF NO ERROR

JMP

3508

;GO TO 3508 IF ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE

ébgAD PARAMETERS AND GENERATE DATA BUFFER

012737
012737
013737
012737
012737
012737
012737

000000
000000
001444
106314
177376
010000
000063

020370
020374
020376
020402
020404

004737
000405

041416

000137

021470

00 020410
01 020416
8% 020424

012737
012737

071666
000001
043344

99 020410

NOP
EMT

001444
001416

021472

001414
001612
001442
001410

#0,RMDCO
#0,RMDAO
RMDCO, 360%
#BUF ONE ,RMBAO
#-258. ,RMWCO

;CYLINDER = 0
;TRACK = 0, SECTOR = 0
;SAVE DESIRED CYLINDER
;BUS ADDRESS
;2 + 256. WORDS (2'S COMP)

MOV

#WH!GO,RMCS10

;WRITE HEADER AND DATA COMMAND

MOV

;CALL BAD SECTOR MODULE

TYPE

.SCTMSG

;TYPE BAD SECTOR MESSAGE

EMT

001174
001176

25%:

;16 BIT FORMAT

PC ,BADSCT

258

JMP

3508

MOV
MOV
JSR

#ONES ,$TMPO
”1,8TMP1
PC.GENBUF

;GO TO 25% IF NO ERROR

;ERROR # DEFINED BY BADSCT SUBROUTINE

;GO TO 3508 IF ERROR

;STARTING ADDRESS OF PATTERN

;RANGE OF PATTERN
;G0 GENERATE BUFFER FOR FORMAT

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
MOV

308

#PUTINX ,R2

MOvVB
MOVB
Mov8

#RMDC, (R2) +
#RMDA, (R2) +
ARMBA, (R2) +

mMova
movs

#RMCS, (R2)+
#200, (R2)

Mov8
MOvB

000200

H#FMT16,RMOF O

JSR

070230

001551
000034

MOV
MOV
MOV
MOV
MOV

;VERIFY THAT SECTOR 1S NOT BAD

B
b
b ed

I
b b

S WOF W U
N
b b ek —d e

BYREREOLEBEZ

OR 'PIP'' IS SET
JRECALIBRATE IF ''SKI''

:R2 = BYTE ENTRY POSITION

NFRMJC, (R2) +
WRMOF
, (R2) +

s TERMINATE TABLE

-4

MACRO Vv03.01
C 4 R MOAOQ RMOS5/3/72 FCTNL 1ST 3
T 3
WRITE, READ W/ IMPLIED SEEK

MACRO v03.01
CZR MOAQ RMOS/3/2 FCTNL TST 3
113
WRITE, READ W/ IMPLIED SEEK
1214
1215
1216 020470

004737
000404
000240
104000
000137

021470

1220 020506

004737

044144

1221
1222 020512

004737

045042

004737
000404
000249
104000

044230

000137

021470

004737
000405
000240
104000
004736
000137

057742

020474
020476
020500
020502
}S}g 020506
1219

1223
12264 020516
020522
020524
020526
020530
;ggg 020534
1227
1228 020534
020540
020542

020544
020546
020550
}5%8 020554
1231

1232 020554
15;2 020562

012737
000410

;SETUP GET

JSR

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO _TO 40% IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTiNE
;GO TO 3508 IF ERROR

40%

3508
INDEX TABLE

TO READ ALL REGISTERS

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE
JSR
PC.TIMOUT
;GO READ STATUS
JSR
BR
NOP
EMT
JMP
50%:

;GO TO GETSTS SUBROUTINE

:GO TO TIMOUT SUBROUTINE

FOR FORMAT OPERATION
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUT INE
508
;GO TO 508 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

3508

;GO TO 3508 IF ERROR

;VERIFY NO ERRORS DURING FORMAT
JSR
PC,DTASTS
;GO VERIFY RESULTS OF DATA TRANSFER
BR
60%
;G0 TO 60% IF NO ERROR
NOP
;RETURN HERE IF ERROR

021470

EMT
JSR
JMP

60% :

001124

PC,a(SP)+
3508

;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION

MOV
BR

#70% ,$LPERR
80%

;SKIP TO WRITE OPERATION

.'"ttit'ttt't"fit*tttfitttttt'tfiitt*fit*tt*fittttt*t**'tttttttit'ttttt

1236
1237
}ggg 020564

020570

BR
NOP
EMT
JMP

40%:

1235

1240
12641 020564

SEQ 0108

;FORMAT THE DRIVE
JSR
PC,PUT

044500

020564

11-APR-80 13:39:53 PAGE 12-37

;LooP #2

WRITE ,READ

70%:
004737
154130

;PPEPARE DEVICE FOR WRITE OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST

060472

WORD

154130

;TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE

SVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

;RECALIBRATE

020572
020574
020576
020600

1242 020604
1243 020604

000404
000240
104000
000137

021470

012737

001466

001444

80%:

BR
NOP
EMT
JMP

80%

MoV

#822. ,RMDCO

3508

IF ''SKI'' OR "PIP'* IS SET

;VERIFY RECALIBRATION

;G0 _TO 80% IF NO ERROR
JRETURN HFRE [F ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 350% IF ERROR
;SEEK TO LAST CYLINDER

MOAO RMOS/3/2 FCTNL IST 3
MACRO v03.01
WRITE, READ W/ IMPLIED SEEK
1264 020612
1245
1246 020620

012737

000005

004737

044500

001410

SEQ 0109
MOV

#SEEK.GO,RMCS10

JSR
BR

PC,PUT
90%

NOP

EMT

021470

004737

044144

004737

045042

004737
000404
000249

044230

104000
000137

004737
000405
000240

JMP

1260
1261
1262 020704

1263 020704
1264 020712
1265 020720
1266 020726
1267 020734
1268 020740

1269 020744
1270 020750
1271 020754
1272 020760
1273 020764
1274 020770
1275
1276 020774

021000
021002
021004
021006

1277 021012
1278
79
1280

021012

004736
000137

3508

JWRITE

SEEK

COMMAND

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO _TO 908 IF NO ERROR

JRETURN HERE

ERROR

JERROR # DEFINED BY PUT SUBROUTINE

;GO TO 350% IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

JWAIT FOR COMMAND TO COMPLETE
JSR

PC,TIMOUT

;GO GET REGISTER STATUS
JSR
BR

NOP

EMT

021470

JMP

PC,GET
100%

3508

;VERIFY §ESULTS OF SEEK COMMAND

052344

SR
BR
NOP
EMT
JSR

104000

020700
1259 020704

11-APR-80 13:39:53 PAGE 12-38

021470

PC,SEKSTS

1108

PC,a(SP)+

350%

;GO TO GETSTS SUBROUTINE

:GO TO TIMOUT SUBROUTINE
;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 1008 IF NO ERROR
JRETURN HERE

ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF

SEEK OPERATION

;G0 TO 1108 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINE

;GO BACK FOR MORE

ERROR CHECKS

;GO TO 350% IF ERROR

:SB;UP PARAMETERS AND EXCUTE WRITE DATA COMMAND
013737

021472
177400
106320

001444
001412
001414
001410

3608 ,RMDCO

#-256. ,RMICO
#BUF ONE +4 ,RMBAO

#MD ! GO,RMCS10
#PUTINX,R2
#RMDA, (R2) +
#RMD(C, (R2)
+
#RMOF
, (R2) +
#RMBA, (R2) +

000004
000002
000000
000200

#RMIC, (R2) +
#RM(CST,(R2)+
#200, (R2)+

044500

PC,PUT

021470

3508

045042

1308

;WAIT

FOR COMMAND

JSR

TO COMPLETE

PC.,TIMOUT

JRESTORE CYLINDER

; CHANGE WORD COUNT
; CHANGE BUS ADDRESS

;WRITE DATA COMMAND
;LOAD PUT REG4STER INDEX

TABLE

;TERMINATE TABLE
;GO WRITE REGISTER(S)

WITH PUT

SUBROUTINE

;GO TO 130% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

;GO TO TIMOUT SUBROUT INE

MOAO RMOS/3/2 FCTNL TST 3
MACRO v03.01
WRITE, READ W/ IMPLIED SEEK
1281
1282 021016

021022
021024
021026
021030
1283 021034

004737
000404
000240

044230

000137

021470

104000

1285
1286 021034

140s

JMP

3508

NOP
EMT

140%:

021470

1508

PC.a(SP)+

JSR

PC.DTASTS

NOP

021470

1608

021124

*GO TO 3508 IF ERROR

1608

{RETURN HERE

ERROR

:ERROR # DEF INED BY PRIERR SUBROUTINE
:GO PACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
:GO TO 1608 IF NO ERROR

*RETURN HERE

ERROR

3508

:GO TO 3508 IF ERROR

JSR
8R

PC,SECERR
1808

;GO CHECK FOR SECONDARY ERRORS
:GO TO 1808 'F NO ERROR

EMT
JSR

JMP

180%:

3508

:GO TO 1508 IF NO ERROR

PC,a(SP)+

NOP

012737
000410

*RETURN HERE IF ERROR
*ERROR # DEF INED BY GET SUBROUTINE

EMT
JSR

JMP

046060

1508

EMT
JSR

JMP

057742

021470

:GO TO 1408 IF NO ERROR

;CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC.PRIERR
;GO CHECK FOR PRIMARY ERRCRS
NOP

000137

SEQ 0110

;GO READ STATUS FOR WRITE COMMAND
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

045226

021040
021042

G 9
11-APR-80 13:39:53 PAGE 12-39

PC,a(SP)+

3508

*ERROR # DEFINED BY DTASTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

*RETURN HERE

ERROR

*ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

: CHANGE LOOP ADDRESSES
MOV
#190$
, SLPERR
BR

2008

;SKIP TO NEXT OPERATION

:.'tttttt*ttttttttttttt'*tt*tttttt*tttfifitktttttttttttttitttttttttt

‘LooP #3

READ

190$%:

004737
154130

;PREPARE

040472

DEVICE

JSR
.WORC

FOR READ OPERATION

PC,TSTPRP
154130

;PREPARE DEVICE FOR TEST
$TASK DESCRIPTOR AS FOLLOWS:

:SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE

000404
000240
104000
000137

021470

012737
012737

001466
000005

2008
001444
001410

200%

JMP

3508

NOP
EMT

MOV

MoV

#822. ,RMDCO

#SEEK.GO,RMCS10

VOLUME NOT VALID

*VERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ‘‘SKI"
OR 'PIP'* IS SET
*VERIFY RECALIBRATION

:GO TO 2008 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE

$GO TO 3508 IF ERROR

:SEEK TO LAST CYLINDER

;WRITE

SEEK COMMAND

MOAO RMOS5/3/2 FCINL TST 3

MACRO v03.01

WRITE.

READ W/

1307
1308 021160

004737

021166
021170
021172

000240
104000
000137

021470

1311
1312 021176

004737

064144

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

1313
1314 021202

004737

045042

JWAIT FOR COMMAND TO COMPLETE
JSR
PC.,TIMOUT

1315
1316 021206

004737

044230

;G0 GET REGISTER STATUS
JSR
PC,GET

021164

;ggg 021176

021212
021214
021216
021220

}g}g 021224

000404

000404
000240
104009
000137

1319
1320 021224

004737

021232
021234
021236
021240

000240
104000
004736
000137

021230

;ggg 021244

1323
1324 021244
1325 021244
1326 021252

1327 021260

1328 021266
1329 021272
1330 021276
1331 021302
1332 021306
1333 021312
1334 021316
};;2 021322

000405

013737
012737
012737
012702
112722
112722
112722
112722
112722
112722

IMPLIED SEEK

H
9
11-APR-80 13:39:53 PAGE 12-40

044500

JSR

2108 :

021470

2208 :

B8R

021470

107324

BR
NOP
EMT
JMP

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

3508

JRETURN HERE IF ERROR
<ERROR # DEFINED BY PUT SUBROUTINE
*GO TO 3508 IF ERROR

210s

2208
3508

JVERIFY RESUTS OF SEEK COMMAND
JSR
PC,SEKSTS

052344

021472
000071

NOP
EMT
JMP

P, PUT

2308 :
001444
001410

001414

NOP
EMT
JSR
WP

2308

PC,a(SP)+
3508

:GO TO 2108 IF NO ERROR

.GO0 TO TIMOUT SUBROUTINE
. G0 READ REGISTER(S) WITH GET SUBROUTINE

:GO TO 220% IF NO ERROR
JRETURN HERE IF ERROR
<ERROR # DEFINED BY GET SUBROUTINE
:GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF SEEK OPERATION

:GO TO 2308 IF NO ERROR

JRETURN HERE IF ERROR
cERROR # DEFINED BY SEKSTS SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR

. SETUP PARAMETERS AND EXCUTE READ DATA COMMAND
2408:
MOV
3608, RMDCO
;RESTORE CYLINDER
MOV
#RD ! GO,RMCS10
*READ DATA COMMAND
MOV
#BUF TWO+4 ,RMBAO
;LOAD STARTING BUFFER ADDRESS
MOV
#PUTINX ,R2
;LOAD PUT REGISTER INDEX TABLE
MOVB
WRMDA, (R2)+
MOVB
#RMOF
. (R2)+
MOVB
#RMDC. (R2)+
MOVB
#RMBA. (R2)+
MOVB
WRMMC. (R2)+
MOVB
#RMCST,(R2)+

112712

001551
000006
000032
000034
000004
000002
000000
000200

1337 021326

004737

044500

021334
021336
021340

0002640
104000
000137

021470

1340
1541 021344

004737

045042

;WAIT FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

1342
1343 021350

004737

044230

.GO READ STATUS FOR READ OPERATION
JSR
PC,GET
.GO0 READ REGISTER(S) WITH GET SUBROUTINE

021332

}ggg 021344

000404

MOVB

#200., (R2)

JSR

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

3508

;RETURN HERE ]F ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
:G0 TO 3508 IF ERROR

2508 :

NOP
EMT
JMP

2508

:GO TO 2508 IF NO ERROR

;GO TO TIMOUT SUBROUTINE

SEQ 0111

C 4 RMOAO RMOS/3/2 FCTNL TST 3

021354

021366

021366
021372
021374
021376
021400
021402
021406
021406
021412
021414
021416
021420
021422
1350 021426
1351 021426
021432
021434
021436
021440
021442
1352 021446
1353 021446
021452
021454
021456
021460
021462
021464
021470

000404
000240
104000
000137

SEQ 0112
NOP

EMT

021470

260%:

021470

004737
000405
000240

057742

JSR

021470

004737

046060

000405
000240
104000
004736
000137

004737
106320

5708

2808

021470
021470

000401

021472

000000

*RETURN HERE

ERROR

;GO CHECK FOR PRIMARY ERRORS

NOP
EMT
JSR
JMP

PC,a(SP)+
3508

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR

JSR
8R

PC,DTASTS
280s

;GO VERIFY RESULTS OF DATA TRANSFER
:GO TO 2808 IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

JSR

PC,SECERR

3508

021470

3008

NOP
EMT
JSR

%008

JMP

.WORD
LWORD

NOP

021470

310%:
350%:

360%:

:GO TO 2708 IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEF INED BY DTASTS SUBROUT'NE
:GO BACK FOR MORE ERROR CHECKS

*GO TO 3508 IF ERROR

;GO CHECK FOR SECONDARY ERRORS

GO TO 3008 IF NO ERROR

PC.a(SP)+

*RETURN HERE IF ERROR
*ERROR # DEF INED BY SECERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

PC ., CMPBUF

;GO COMPARE WRITE, READ DATA BUFFERS

3508

JSR

043602

000240

000137

3508

*ERROR # DEFINED BY GET SUBROUTINE
:GO TO 3508 IF ERROR

2708

JMP

107324
000404

104000

;GO TO 260% IF NO ERROR

PC,PRIERR

104000

004735
000137

2608

:CHECK FOR ERRORS DURING READ OPERATION

045226

C00137

11-APR-80 13:39:53 PAGE 12-41
BR

021474

BUFONE
+4
BUF TWO+4

310s

:GO TO 3508 IF ERROR

;STARTING ADDRESS OF
:STARTING ADDRESS OF

;GO TO 3108 IF NO ERROR

*RETURN HERE

EMT
JMP

3508

B8R

3708

.WORD

ERROR

*ERROR # DEF INED BY CMPBUF
:GO TO 3508 IF ERROR

WRITE BUFFER
READ BUFFER

SUBROUTINE

370%:
;;ttit'titttttfitttttfiitttttt't.ttlttfit.ttfitt"tt't'!'tlttttt'.ttt

LATEST 14

021474

021474
021476
021500
021504
021510
021514
\%,

—

MACRO v03.01
WRITE, READ W/ IMPLIED SEEK

WRITE, WRITE CHECK W/ HEAD SWITCHING

;;Qt'tttt'!tfittttlfittttttt't'it'.fitt'fiittt.'tltttlttit'tttt'ttttt

000004
000240

012706
013700
013701
012737

15114

001100
001276
001464
000014

SCOPE
NOP
MOV

MOV
MOV
MOV

001226
A

AR SR

;LOOP #1

#STACK, SP
$BASE ,RO
TSTQUE ,R1
#14,$TESTN

;SCOPE CALL
*START OF TEST
SINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX

FORMAT ,WRITE ,WRITE CHECK

2222222222222

CZRMOAO RMOS/3/2 FCINL TST 3

MACRO v03.01

WRITE, WRITE CHECK W/ HEAD SWITCHING

1367
1368
1369 021522
1370 021522
1371 021530

012737
112737

000000
000000

001444
001417

1373 021544
1374 021552

012737
012737

010000
106314

001442
001414

}ggg 021566

012737

000063

001410

021574
021600
021602
021606
021610
1379 021614

004737
000405
104401
104000
000137

041416

022702

1381
1382
1383
}ggg

021622
021624
021632
021640

001345
012737
012737
004737

123727

001416

000037

071666
000001
043344

001174
001176

1386
1387 021644
021650

004737

040472

1372 021536

1375 021560
1378

1380 021614

112737

012737

154130

000037
176774

001416

J
9
11-APR-80 13:39:53 PAGE 12-42
SEQ 0113

:LOAD PARAMETERS AND GENERATE DATA BUFFER
10s:
MOV
#0,RMDCO
:CYLINDER = 0

158%:

0016412

MOVB

MOV
MOV

MoV

MOV

#0.RMDAO+1

“TRACK = 0

NFMT16,RMOFO
#BUF ONE ,RMBAO

216 BIT FORMAT
*BUS ADDRESS

#31. RMDAO

#-258.*é.RMUCO
MJH GO, RMCS10

JVERIFY THAT SECTOR IS NOT BAD

070230
208:

JSR
BR
TYPE
EMT
JMP

PC,BADSCT
20$
,SCTMSG

cMP8

RMDAQ,#31.

BNE
MOV
MOV
JSR

3508
15%
#ONES ,$TMPO
#1,$TMP1
PC . GENBUF

“SECTOR = 31.

;WORD COUNT FOR 2 SECTORS (2'S COMP)
*WRITE HEADER AND DATA COMMAND

.CALL BAD SECTOR MODULE
:GO TO 208 IF NO ERROR
;TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE
:GO TO 3508 IF ERROR
;IS LAST TRACK ASSIGNED ?

‘BR IF NO
;STARTING ADDRESS OF PATTERN
*RANGE OF PATTERN
:GO GENERATE BUFFER FOR FORMAT

;PREPARE THE DEVICE FOR FORMAT OPERATION
JSR
PC,TSTPRP
JPREPARE DEVICE FOR TEST
.WORD
154130
;TASK DESCRIPTOR AS FOLLOWS:

:SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER € SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

021652

021654
021656
021660
;ggg 021664

000404

B8R

308

*RECALIBRATE IF "‘SKI*
OR 'PIP'* IS SET
*VERIFY RECALIBRATION

:GO TO 308 IF NO ERROR

000240
104000
000137

022702

1390
1391 021664
1392 021670
1393 021674
1394 021700
1395 021704
1396 021710
1397 021714
}ggg 021720

012702
112722
112722
112722
112722
112722
112722
112712

001551
000034
000006
000004
000002
000032
000000
000200

cLOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
MOV
#PUT INX ,R2
:R2 = BYTE ENTRY POSITION
MOVB
#RMDC, (R2)+
MOVB
#RMDA. (R2)+
MOVB
#RMBA. (R2)+
MOVB
#RMWC. (R2)+
MOVB
WRMOF
., (R2)+
MOVB
#RMCST, (R2)+
MOVB #200. (R2)
;TERMINATE TABLE

1400
1401 021724

004737

044500

.FORMAT THE DRIVE
JSR
PC,PUT

021730
021732
021734
021736

1402 021742

000404
000240
104000
000137

022702

308 ;

40$:

NOP
EMT
JMP

B8R
NOP
EMT
JMP

3508

408

3508

JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
:GO TO 3508 IF ERROR

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 40% IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEF INED BY PUT SUBROUT
INE
;G0 TO 3508 IF ERROR

CZRMOAO RMOS/3/2 FCINL TST 3

WRITE, WRITE

1403
1404
1405
1606

b o d
b
—

W=
O

Pl
oW L

—_—

CHECK W/ HEAD SWITCHING

021742

004737

044144

021746

004737

045042

004737

044230

1407
1408
1409 021752

021756
021760
021762
021764
021770

MACRO v03.01

JSR

PC,GETSTS

;WAIT FOR COMMAND

JSR

TO COMPLETE

PC, TIMOUT

;60 TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR FORMAT OPERATION
JSR

NOP
EMT

JMP

50%:

PC,GET

508

3508

;VERIFY NO ERRORS DURING FORMAT

057742

JSR

022702

012737

022062

001124

012737
012737
012737
012737
012737
004737
000410

177000
106314

001412
001414

n00001
v00060
043344

001176
001410

60%:

:GO READ REGISTER(S) WITH GET SUBROUTINE

:GO TO SO$ IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE

:GO TO 3508 IF ERROR

B8R

60$

PC.DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

JMP

PC.a(SP)+
3508

:RETURN HERE IF ERROR
:ERROR # DEF INED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR

NOP
EMT
JSR

000137

071730

SEQ 0114

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

022702

021770
021774
021776

K
9
11-APR-80 13:39:53 PAGE 12-43

:GO TO 608 IF NO ERROR

:MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#70$, SLPERR
;REGENERATE BUFFER

MOV

MOV
MOV
MOV
MOV
JSR

001174

#-256.%2 ,RMJCO

; CHANGE WORD COUNT

#BUF ONE , RMBAO
#ZEROS, $TMPO
#1,$TMP1
MID,RMCS10
PC , GENBUF

:CHANGE BUS ADDRESS
:STARTING ADDRESS
*RANGE
:WRITE DATA
*GENERATE BUFFER

80$

+SKIP TO WRITE OPERATION

""ttfitt'ttltt'ttttttt'tt"'ttttittttfit"ttfittttttttttfit'itt't't't

:LooP #2

WRITE.WRITE CHECK

708:

022062
022066

004737
154130

;PREPARE DEVICE FOR WRITE OPERATION

040472

JSR
LWORD

PC,TSTPRP
154130

;PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:

*SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VAL ID
SVERIFY PACK ACKNOWLEDGE

*RECALIBRATE

022070
022072
022074
022076
1435 022102
1436 022102

000404
000240
104000
000137

022702

012737

000005

NOP

001410

80$

EMT
JMP

3508

MOV

#SEEK ' GO,RMCS10

IF *'SKI**
OR 'PIP'’ IS SET

*VERIFY RECALJBRATION

GO TO 80$ IF NO ERROR

‘RETURN HERE

ERROR

*ERROR # DEFINED BY TSTPRP SUBROUT INE
:GO TO 3508 IF ERROR
;LOAD SEEK COMMAND

CZRMOAQ RMOS5/3/2 FCINL TST 3
WRITE, WRITE

1437
1438 02

CHECK W/ HEAD SWITCHING

004737
000404
000240

044500

000137

022702

022126

004737

044144

022132

004737

045042

004737
000404
000240

044230

000137

022702

004737

052344

104000

1439 022126

1440
1641

1442
1443

1444
1445
1446 022136

022142
022144
022146
022150

1447 022154
1448
1449
1450 022154

022160
022162
022164
022166
022170

104009

000405
000240

000061
001551
000006
000034
000032
000004
000002
000000
000200

1471
1472

022702

022260

004737

044144

022264

004737

045042

9
L
11-APR-80 13:39:53 PAGE 12-44

SEQ 0115
JSR
BR
NOP
EMT
JMP

PC.,PUT
90%

350%

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO _TO 90% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT INE

;GO TO 3508 IF ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE
JWAIT FOR COMMAND TO COMPLETE

JSR

PC, TIMOUT

;GO GET REGISTER STATUS

100%:

JSR
BR
NOP
EMT
JMP

PC,GET
1008

3508

JVERIFY RESULTS OF SEEK COMMAND
JSR

NOP
EMT
JSR

110%:

001410

JMP

;GO TO TIMOUT SUBROUTINE

:GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 100% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

PC,SEKSTS

;GO VERIFY RESULTS OF SEEK OPERATION

PC,a(SP)+
3508

;GO TO 3508 IF ERROR

1108

;GO TO 1108 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS

.WRITE DATA TO THE DRIVE
120%:
MOV
MWD ! GO,RMCS10

MOV
MOVB

MRMDC, (R2) +

MOvB
MOovB

#RMBA, (R2) +
#RMIC, (R2) +

MOVB
MOVB
JSR

NOP
EMT

130%:

JMP

;WRITE

#PUTINX,R2
#RMDA, (R2) +

MOvVB
MOVB

044500

022246
022250
022252
022254

1469
1470

90%:

022702

1451 022174
1452
1453
1454 022174
1455 022174
1456 022202
1457 022206
1458 022212
1459 022216
16460 022222
1461 022226
1462 022232
1463 022236
1464
1465 022242

1466 022260
1467
1468

MACRO V03.01

DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

#RMOF
, (R2) +

#RM(CST,(R2)+
#200, (R2) +
PC,PUT

1308

3508

;TERMINATE TABLE
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO _TO 1308 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT INE

;GO TO 3508 IF ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE
JSR

PC, TIMOUT

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR WRITE COMMAND

M9
CZRMOAO RMOS/3/2 FCINL TST 3
MACRO Vv03.01 11-APR-80 13:39:53 PAGE 12-45
T14
WRITE, WRITE CHECK W/ HEAD SWITCHING

1473 022270
022274

004737

044230

JSR

140%:

JSR
BR

PC,PRIERR
1508

EMT
JSR

1508

022702
057742

1605

3508

JSR

PC,DTASTS

NOP
EMT
JSR

PC,a3(SP)+

JSR
BR

PC.SECERR
1808

EMT
JSR
JMP

PC,3(SP)+
3508

180%:

001124

MOV
BR

022404
022406
022410
022412

1495 022416
1496 022416
1497
1498 022424

*RETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;GO CHECK FOR SECONDARY ERRORS
$GO TO 1808 IF NO ERROR
SRETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR

LSRRl

#1908, SLPERR
2008

;LOOP #3

1494 022376
022402

;GO VERIFY RESULTS OF DATA TRANSFER

:GO TO 1608 IF NO ERROR

: CHANGE LOOP ADDRESSES

1491 022376

IF ERROR

:GO TO 3508 IF ERROR

3508

NOP

022702

*RETURN HERE

:ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

1608

JMP

046060

;GO CHECK FOR PRIMARY ERRORS
:GO TO 1508 IF NO ERROR

PC,a(SP)+

JMP

B8R

022702

022376

*RETURN HERE IF ERROR
SERROR # DEFINED BY GET SUBROUTINE
:GO TO 3508 IF ERROR

:CHECK FOR ERRORS DURING WRITE OPERATION

045226

012737
000410

:GO TO 1408 IF NO ERROR

3508

NOP

1485 022366
1486 022374

;GO READ REGISTER(S) WITH GET SUBROUTINE

1408

NOP
EMT

022702

1474 022306
1475
1476
1477 022306

PC,GET

SEQ 0116

;SKIP TO NEXT OPERATION

itiit

gttty

T222232222 2]

WRITE CHECK

190%:

004737
154130

;PREPARE DSVICE FOR READ OPERATION

040472

000404
000240
104000
000137

022702

012737

000005

004737

044500

001410

200$:

JS
.WORD

PC,TSTPRP

BR
NOP
EMT

200%

;GO _TO 2008 IF NO ERROR

3508

;GO TO 3508 IF ERROR

MOV

#SEEK!GO,RMCS10

JSR

PC.PUT

154130

;PREPARE DEVICE FOR TEST

sTASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF *'SKI'' OR 'PIP'' IS SET
;VERIFY RECAL IBRATION

sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;LOAD SEEK COMMAND

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

CZRMOAO RMO5/3/2 FCINL TST 3

114

N 9
MACRO V03.01 11-APR-80 13:39:53 PAGE 12-46

WRITE, WRITE CHECK W/ HEAD SWITCHING

022430
022432
022434
022436
}ggg 022442

000404
000240
104000
000137

022702

1502 022442

004737

044144

1503
1504 022446

004737

045042

;WAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

1505
1506 022452

004737

044230

;GO READ REGISTER STATUS
JSR
PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

1501

022456
022460
022462
022464
}ggg 022470
1509
1510 022470
022474
022476
022500
022502

022504
}g}; 022510

1513
1514 022510
1515 022510

000404
000240
104000
000137

004737
000405

000240
104000
004736
000137

210$:

BR
NOP
EMT
JMP

210%

SEa 0117

;GO _TO 2108 IF NO ERROR

JRETURN HERE

3508

IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;G0 TO 3508 IF ERROR

sSETUP GET INDEX TABLE TO READ ALL REGISTERS

JSR

022702

220$:

BR
NOP
EMT
JMP

PC,GETSTS

2208

022702

3508

230%:

;GO _TO 2208 IF NO ERROR

JRETURN HERE

;GO VERIFY RESULTS OF SEEK
JSR
PC,SEKSTS
BR
2308
NOP
EMT
JSR
PC,a(SP)+

052344

;GO TO GETSTS SUBROUTINE

;READ DATA FROM DEVICE
2408%:
Mov
#WCD!GO,RMCS10

IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

;GO VERIFY RESULTMS OF SEEK OPERATION

;GO _TO 2308 IF NC ERROR

sRETURN HERE ]F ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

012737
012702
112722
112722
112722
112722
112722
112722

000051
001551
000006
000032
000034
000004
000002
000000

004737
000404
000240
104000
000137

_
022702

1528
1529 022574

004737

044144

JSETUP GET INDEX TABLE TO READ ALL REGJSTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

15
1531 022600

004737

045042

;WAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

1532
1533 022604
022610

004737
000404

044230

;GO READ STATUS FOR READ OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR
260%
;GO TO 260% IF NO ERROR

1516 022516
1517 022522
1518 022526
1519 022532
1520 022536
1521 022542
1522 022546

}ggz 022552

1525 022556
022562
022564
022566
022570
;gsg 022574

112712

001410

000200

MOV
mMOovB
MOovB
mMOovB
mMovB
MOov8
MOovB

mMove

#PUTINX
,R2
#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
#RMBA, (R2) ¢
#RMIC, (R2) +
#RMCST, (R2) +

044500

JSR
BR
NOP
EMT
JMP

PC,PUT
2508

2508%:

;READ DATA COMMAND
sLOAD PUT REGISTER INDEX TABLE

#200, (R2)

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;G0 _TO 2508 IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

;GO TO TIMOUT SUBROUTINE

CZRMOAO RMOS/3/2 FCINL TST 3

114

B 10

MACRO v03.01

11-APR-80 13:39:53 PAGE 12-47

QRS

d
b
b
—

[V 1V, IV,1V,

WRITE, WRITE CHECK W/ HEAD SWITCHING

022612
022614
022616
022622

SEQ 0118

000240
104000

000137

022622

NOP
EMT

022702

260%:

JMP

NOP
EMT
JSR

2708

022702

JMP

057742

JSR

B8R

NOP

022702

2808

046060

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

3503

2808

PC,SECERR

300%:

3008

PC,a(SP)+

350s

:GO TO 3508 IF ERROR

:GO TO 2808 IF NO ERROR

*RETURN HERE

IF ERROR

:ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR

;GO CHECK FOR SECONDARY ERRORS

:GO TO 3008 IF NO ERROR

*RETURN HERE

ERROR

:ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

350%:
fitttfitt'tfittttttttttttttt*tttttttttti**itttfitttt*tt*tt'fiiitttt'

RTEST 15

022722

PC,a(SP)+

JSR

:GO TO 2708 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

PC.a(SP)+
3508

EMT
JSR

022702

27bs

EMT
JSR
JMP

NOP

022702
022702
022704
022706
022712
022716

:GO TO 3508 IF ERROR

:CHECK FOR ERRORS DURING READ OPERATION
JSR
1ERR
;GO CHECK FOR PRIMARY ERRORS

045226

1542 022702
1543
1544 022702
1545
1546

3508

;RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE

WRITE, WRITE CHECK W/ MID-TRANSFER SEEK

tttttttttfi'tt'ttt***tttttt'tttttfittfittfit*tfitttfitttttttt'tt'fittt

000004
000240
012706
013700
013701
012737

t8715:

001100
001276
001464
000015

001226

SCOPE
NOP
MOV
MOV
MOV

MOV

#STACK, SP
$BASE , RO
TSTQUE R

#15,$TESTN

:SCOPE CALL
*START OF TEST
SINITIALIZE STACK POINTER
‘RO = UNIBUS ADDRESS
:(R1) = DEVICC BEING TESTED

*;SET TEST NUMBER IN APT MAIL BOX

"tttttttttt.ttfitttttttttfi*titt*tttttfitttitttttttttttttttttttttt

sLooP #

FORMAT ,WRITE ,WRITE CHECK

%6ng PARAMETERS AND GENERATE DATA BUFFER

001444

012737
013737
112737
012737
012737
012737
012737

004737
000405

001416
001416

MoV

#0,RMDCO

;CYLINDER = 0

MmOV
MOVB

LSTRK,RMDAO
#31.,RMDAO

001414

MOV

ABUF ONE ,RMBAO

*BUS ADDRESS

001410

MOV

MH1GO,RMCS10

*WRITE HEADER AND DATA COMMAND

1442

001412

041416

158:

MOV

#FMTi6,RMOFO

#-258. %2, RMJCO

;VERIFY THAT SECTOR IS NOT BAD
JSR

PC,BADSCT

20§

*SET LAST TRACK AND
*LAST SECTOR

216 BIT FORMAT

*WORD COUNT FOR 2 SECTORS (2' COMP)

;CALL BAD SECTOR MODULE

:GO TO 208 IF NO ERROR

c 10
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-48

%%RMAO RMOS5/3/ 2 ECTNL TST 3
5
WRITE, WR TE CHECK W/ MID-TRANSFER SEEK
023010
023014
023016

1562 023022

1563 023022

104401
104000
000137

023724

123737

001417

001333

071730
000001
043344

001174
001176

1564 023030
1565 023032
1566 023040
}ggg 023046

001342
012737
012737
004737

1569
1570 023052

004737

023056

154130

070230

060472

20$:

TYPE
EMT
JMP

3508

(MP8

RMDAO+1,LSTRK+1

BNE
MOV
MOV
JSR

,SCTMSG

SEQ 0119

:TYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROUTINE

;GO TO 3508 IF ERROR

;1S LAST TRACK ASSIGNED ?

15%
#ZEROS ,$TMPO
#1,8TMPY
PC,GENBUF

:BR IF NO
;STARTING ADDRESS OF PATTERN
;RANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

;PREPARE THE DEVICE FOR FORMAT OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST

LWORD

154130

;TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

;RECALIBRATE IF ''SKI'* OR 'PIP'' IS SET
023060
023062
023064
023066
}g;‘;— 023072
1573

1574 023072
1575 023076

1576 023102
1577 023106
1578 023112
1579 023116
1580 023122
1581 023126

1582 023132

1583 023132

023136
023140
023142

023144
;ggé 023150

000404
000240
104000
000137

023724

012702
112722

001551
000034

112722
112722
112722
112722
112722
112712

004737

000404
000240
104000

000006
000004
000002
000032
000000
000200
044500

25%:

BR
NOP
EMT
JMP

253
3508

;VERIFY RECALIBRATION
;GO _TO 258 IF NO ERROR
;PETURN HERE IF ERROR
JERROR # DEFINED BY (STPRP SUBROUTINE
;GO TO 3508 IF ERROR

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

MOV

30%:

mMOovB
MOVB
MOVB
MOvVB
MOVB
MOVB
movB

#PUTINX ,R2
#RMDC, (R2) +

NRMDA, (R2) +
W#RMBA, (R2) +
NRMWC, (R2) +
#RMOF
, (R2) +
#RMCS1, (R2)+
#200, (R2)

JSR
BR
NOP

PC,PUT

JMP

3508

EMT

;R2 = BYTE ENTRY POSITION

408

; TERMINATE TABLE
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 40% IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

000137

023724

1586
1587 023150

004737

0464144

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

1588
1589 023154

004737

045042

JWAIT FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

004737

044230

1590

1591 023160

023164
023166
023170
023172

1592 023176
1593

000404
000240
104000
000137

023724

408 :

;GO TO 3508 IF ERROR

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR

508
:

BR
NOP°
EMT
JMP

PC,GET

508

3508

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO _TO 508 IF NO ERROR
sRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 3508 IF ERROR

CZRMOAQ RMOS/3/2 FCINL TST 3

115

MACRO v03.01

D 10
11-APR-80 13:39:53 PAGE i2-49

WRITE, WRITE CHECK W/ MID-TRANSFER SEEK

1594
1595 023176

023202
023204
023206
023210
023212
}ggg 023216

004737

023724

}288 023216

012737

023270

1601
1602 0232246

012737

000060

1598

1603 023232

1604
1605
1606
1607
1608
1609
1610
}g};

023240
023246
023254
023262
023266

012737

012737
012737
012737
004737
000410

sVERIFY NO ERRORS DURING FORMAT
JSR
PC,DTASTS
:GO VERIFY RESULTS OF DATA TRANSFER
BR
60$
;GO _TO 60% IF NO ERROR

057742

000405
000240
104000
004736
000137

177000

106314
071666
000001
0463344

SEQ 0120

NOP
EMT
JSR
JMP

60$:

001124
001410

001412

MOV

MoV

MOV
MOV
MOV
JSR
BR
AN

023274

023276
023300
023302
023304
;g;g 023310
1619
1620 023310
1621 023310
1622 023316

1623 023322
1624 023326
1625 023332
1626 023336
1627 023342
1628 023346

#-256.%2 ,RMJCO

#BUF ONE , RMBAO
#ONES
, $ TMPO
#1,8$TMP1
PC, GENBUF
80$

AR AN AN A AR

;WRITE DATA

s CHANGE WORD COUNT
s CHANGE BUS ADDRSS
JPATTERN ADDRESS

;PATTERN RANGE

;SKIP TO WRITE OPERATION

AN A A NI AN RN AR AR AN N RA A AR AN AR RARAANNR O ARNAN AN

N RN

WRITE ,WRITE CHECK

70$:
004737

154130

000404
000240
104000
000137

012737
012702

112722
112722
112722

}ggg 023352

112722
112722
112722
112722

1631 023356

004737

023362
023364

;GO TO 3508 IF ERROR

#708,SLPERR

sREGENERATE BUFFER
MOV
MWD RMCS10

LOOP w2

1615
1616 023270

;GO BACK FOR MORE ERROR CHECKS

;MOVE LOOP ADDRESSES TO NEXT OPERATION

001414
001174
001176

}g}z 023270

PC,a(SP)+
3508

:RCTURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE

000404
000240

;PREPARE DEVICE FOR WRITE OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST

040472

023724

000061
001551

000006
00UV034
000032

000004
000002
000000

000200

044500

80$:

001410

.WORD

154130

BR
NOP
EMT
JMP

80%

3508

:WRITE DATA TO THE DRIVE
120$:
MGV
#WD ! GO,RMCS10
MOV
#PUTINX ,R2
MOVB
A#RMDA
, (R2) +
MOVB
#RMDC, (R2) +
mMovB
#RMOF
, (R2) +
MOvVB
#RMBA, (R2) +
MOVB
#RMWC, (R2) +
mMovBe
#RMCST, (R2)+
MOVB
#200, (R2) +

JSR

BR
NOP

PC,PUT

1308

;TASK DESCRIPTOR AS FOLLOWS:

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF '‘SKI'' OR ‘PIP'’ IS SET
;VERIFY RECALIBRATION
;GO TO 80% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 350% IF ERROR

;WRITE DATA COMMAND

JLOAD PUT REGISTER INDEX TABLE

s TERMINATE

TABLE

;G0 WRITE REGISTER(S) WITH PLT SUBROUTINE

;GO TO 1308 IF NO ERROR
JRETURN HERE IF ERROR

IRMOAQ RMOS5/3/2 FCTINL TST 3
WRITE, WRITE

000137

023724

023374

004737

044144

023400

004737

045042

1639 023404

004737

044230

1635
1636

2228

WN=O

1637
1638

023410
023412
023414
023416
023422

E 10
11-APR-80 13:39:53 PAGE 12-50

CHECK W/ MID-TRANSFER SEEK

023366
023370
1632 023374

1633
1634

MACRO v03.01

104000

1308

EMT

JMP

JSR

140%:

1508

057742

EMT
JMP

1608

046060

023724

023516

3508

;GO READ REGISTER(S) WITH GET SUBROUTINE

;G0 TO 1408 IF NO ERROR

JRETURN HERE

ERROR

JERROR # DEFINED BY GET SUBROUTINE
;GO 70 3508 IF ERROR

;GO TO 3508 IF ERROR

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

1808

001124

;GO BACK FOR MOKRE ERROR CHECKS

160%

;G0 TO 1608 IF NO ERROR

EMT
JSR
JMP

PC,a(SP)+
3508

SERROR # DEFINED BY DTASTS SUBROUTINE
.GO BACK FOR MORE ERROR CHECKS
;G0 TO 3508 IF ERROR

JSR
BR

PC,SECERR
180%

EMT
JSR
JMP

PC,a(SP)+
3508

RETURN HERE

ERROR

;GO CHECK FOR SECONDARY ERRORS
;GO TO 180% IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
. GO BACK FOR MORE ERROR CHECKS
;GO TO 350% IF ERROR

; CHANGE LOOP ADDRESSES
MOV
BR

#1908, SLPERR
200%

;SKIP TO NEXT OPERATION

,'.'.'tttttt'tt'tttttttfi"i'tttttitt'ttttttiititttttttttttttttt'ttt

1655

1656
1657 023512
1658
1659
1660 023512

140%

3508

NOP

023512

PC,GET

PC,a3(SP)+

B8R

023724

012737
000410

;GO TO TIMOUT SUBROUTINE

JSR

JMP

NOP

1649
1650
1651 023502
1652 023510
1653
1654

PC, TIMOUT

;60 TO GETSTS SUBROUTINE

;CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC,PRIERR
:G0 CHECK FOR PRIMARY ERRORS
BR
1505
;GO TO 1508 IF NO ERROR
NOP
:RETURN HERE IF ERROR
EMT
JERROR # DEFINED BY PRIERR SUBROUTINE

023724

023470
023472
023474
023476
1648 023502

;GO TO 3508 IF ERROR

;GO READ STATUS FOR WRITE COMMAND

045226

1646

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE

023724

1647

;ERROR # DEFINED BY PUT SUBROUTINE

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

NOP

1644
1645

3508

SEQ 0121

;LOOP 43

WRITE CHECK

190¢%:

004737
154130

040472

;PREPARE DEVICE FOR READ OPERATION
JSR
.WORD

PC,TSTPRP
154130

;PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

VOLUME NOT VALID

CZ?HOAO RMOS5/3/2 FCINL TST 3
WRITE,

WRITE

MACRO v03.01

11-APR-80 13:39:53 PAGE

CHECK W/ MID-TRANSFER SEEK

12-51

SEQ 0122

sVERIFY PACK ACKNOWLEDGE
JRECALIBRATE

NNNN%NNNN
n

d OO
d

b md

d e

d md

023554
023560
023564
023570
023574

200s$:

B8R
NOP
EMT
JMP

000051
001551
000006
000032
000034

001410

240%:

#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
#RMBA
, (R2) +
#RMWC, (R2)+

PC,PUT

2508

3508

250%:

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO TO 2508 IF NO ERROR
;RETURN HERE

ERROR

JERROR # DEFINED BY PUT SUBROUTINE

2GO TO 3508 IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
JSR
;60 TO GETSTS SUBROUTINE

065042

;JWAIT FOR COMMAND TO COMPLETE
PC.TIMOUT
JSR

023724

1690 023704

;READ DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

064144

044230

1688 023664
1689 023664

;GO TO 3508 IF ERROR

#RMCS1, (R2)+
#200, (R2)

023724

023660

3508

MICD
! GO,RMCS10
#PUTINX
,R2

044500

1687 023644

2008

''SKI''
OR 'PIP'"
IS SET

JREAD DATA FROM DEVICE

—td cnd

1669
1670
1671
1672
1673

023532
023532
023540
023544
023550

023724

—ted e

A §38

023520
023522
023524
023526
023532

;VERIFY RECALIBRATION
;GO _TO 2008 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

045226

023724
057742

023724

;G0 TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUT INE
BR
260%
;GO TO 260% IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
SERROR # DEFINED BY GET SUBROUTINE
JMP
3508
;GO TO 3508 IF ERROR
:
2608

;CHECK FOR ERRORS DUP NG READ OPERATION
PC,PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS

270%:

280%:

BR
NOP
EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR
JMP

2708

PC,a(SP)+

3508

;GO TO 2708 IF NO ERROR
sRETURN HERE [F ERROR

JERROR # DEFINED BY PRIERR SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

PC,a(SP)+

JRETURN HERE [F ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

280%

350%

;GO _TO 280% IF NO ERROR

;GO TO 3508 IF ERROR

CZRMOAQ RMOS/3/2 FCINL TST 3

115

G 10
11-APR-80 13:39:53 PAGE 12-52

MACRO v03.01

WRITE, WRITE CHECK W/ MID-TRANSFER SEEK

1691

023704

004737

023712
023714
023716

000240
104000
004736

023710

023720

1692 023724
1693
}ggg 023724

000405

000137

046060

JSR

NOP
EMT
JSR

023724

300$:

023724
023724
023726
023730
023734
023740
1697 023744

000004
000240
012706
013700
013701
012737

TST16
001100
001276
001464
000016

}%’8
1701 023752
1702 023756

012704
012703

000000
000001

1705
1706 023762

004737

060472

3=
NOWNS WO

d
D
b
b

b —
b
b

b od
b

d
b

NNNNNNNNNNN

023770
023772
023774
023776

JRETURN HERE IF ERROR
SERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR (HECKS

PC a(SP)+

3508

154130

000404
000240
104000
000137

WRITE,

SCOPE
NOP
MOV
MoV
MOV
MoV

s A A

:LOOP #1

023766

:GO_TO 3008 IF NO ERROR

:GO TO 3508 IF ERROR

012737
012737
012737
012737
012737
012737

000000
000000
106314
177376
010000
000063

15%:

;PREPARE

#STACK,SP
$BASE ,RO
TSTQUE R
#16,8TESTN

0264046
024052
24054
024060

00473/
000405
104401
104000

041416
070230

sSCOPE CALL
:START OF TEST
JINITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
(R1) = DEVICE BEING TESTED
;SET TEST NUMBER IN APT MAIL BOX

FORMAT ,WRITE ,READ

#0,R4
#1,R3

;R4 = 1ST HEADER WORD
;R3 = HCE BIT

THE DEVICE FOR FORMAT OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST

.WORD

BR
NOP
EMT
JMP

001444
001416
001414
001412
001442
001410

ARARNRA R

READ W/ HCE ERROR

154130

20%
370%

ébgAD PARAMETERS AND GENERATE

024002
0264002
024010
024016
026026
024032
024040

AR R RN RN AR AN RN NN AT AR A NN

A ettt
I
222222220222
y

MOV
MoV

10%:

025572

RN NN

AR AR AN R R AR A AN RN AT TR AN NN AR AR NN NN ARN R AN R AR AN NN NN R AR ANNNR AR

001226

1698

};82 023762

;GO CHECK FOR SECONDARY ERRORS

3008

RN AR AR A AR AN A AN A AR AN

tTEST

b ek

PC,SECERR

350%:

1696

SEQ 0123

MOV
MoV
MoV
MOV
MoV
MOV

TYPE

EMT

;SELECT DEVICE & VERIFY DEVICE AVAILABLE

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF '‘SKI'' OR 'PIP'' IS SET
;VERIFY RECALIBRATION

;GO _TO 208 IF NO ERROR
JRETURN HERE IF ERROR
SERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3708 IF ERROR
DATA BUFFER

#0,RMDCO
#0,RMDAO
#8UFONE ,RMBAO

sCYLINDER = 0
;TRACK = 0, SECTOR = O
;BUS ADDRESS

N#FMT16,RMOFO

;16 BIT FORMAT

#-258. ,RMJCO

#WH!GO,RMCS10

JVERIFY THAT SECTOR IS NOT BAD
JSR
BR

s TASK DESCRIPTOR AS FOLLOWS:

PC ,BADSCT

25%
.SCTMSG

;2 + 256. WORDS

(2°'S COMP)

;WRITE HEADER AND DATA COMMAND
;CALL BAD SECTOR MODULE

;GO TO 258 IF NO ERROR
;TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE

%%RMOAO RMOS/3/72 FCINL TST 3
MACRO Vv03.01
6
WRITE, READ W/ HCE ERROR

024062

000137

1719 026066

012737

1718 024066

1720 024076

025420
071730

012737

000001

1723
1726 024106

030364

106314

1726 0264114
1727 026120

040364
000402

106314

};55 026102

1725 024112

4553 024122
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741

024126
024126
024132
024136
024142
024146
024152
024156
024162
024166
0264166

0264172
024174
024176
026200
1742 024204
1744

004737

001403

050364

043344

001174

25%:

001176

H 10

11-APR-80 13:39:53 PAGE

JYP

12-53

3508

MOV

:GO TO 3508 IF ERROR

#ZEROS,$TMPO

MOV

#1,$TMP

JSR

SEQ 0124

PC . GENBUF

:STARTING ADDRESS OF PATTERN

‘RANGE OF

PATTERN

:GO GENERATE BUFFER FOR FORMAT

: CHANGE HEADER WORD TO FORCE HCE DURING WRITE & READ
BIT
R3,BUFONE(RG)
;SET OR RESET FOR MCE??

BEQ

26$

BIC
8R

R3,BUFONE (R4)
27$

:RESET BIT FOR HCE

106314

26$:

012702
112722
112722
112722
112722
112722
112722
112712

001551
000034
000006
000004
000002
000032
000000
000200

004737

044500

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
57%:
MOV
WPUTINX,R2
:R2 = BYTE ENTRY POSITION
MOVB
#RMDC, (R2)+
MOVB
WRMDA. (R2)+
MOVB
WRMBA.(R2)+
MOVB
#RMWC.(R2)+
MOVB
WRMOF
; (R2) +
MOVB
WRMCST, (R2)+
MOVB
#4200, (R2)
; TERMINATE TABLE
308:
JSR
PC,PUT
;60 WRITE REGISTER(S) WITH PUT SUBROUTING

000404
000240
104000
000137

025420

408:

BIS

R3.BUFONE(R4)

BR
NOP
EMT
JMP

:SETUP GET

408

:G0_TO 408 IF NO_ERROR
sRETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUTINE
:60 TO 3508 IF ERROR

3508
INDEX

TABLE

:SET FOR HCE

TO READ ALL REGISTERS

17ag 024204

004737

044144

1746
174y 026210

004737

045042

;WAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

1748
1749 026214

004737

044230

;GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

026220
026222
024224
024226
1750 024232

000404
000240
104000
000137

JSR

025420

508:

BR
NOP
EMT
JMP

PC,GETSTS

508

3508

;G0 TO GETSTS SUBROUTINE

;60 TO TIMOUT SUBROUTINE

G0 _TO 508 IF NO_ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY GET SUBROUTINE
60 TO 3508 IF ERROR

1752
1753 024232

004737

0246236
0246240
024242
024244
026246

000405
000240
104000
004736
000137

1756
1757 024252
1758 024260

012737
000410

1754 024252

;VERIFY NO_ERRORS DURING FORMAT
JSR
PC,DTASTS

057742

025420

024262

608:
001124

BR
NOP
EMT
JSR
P

608

PC,a(SP)+
3508

;GO VERIFY RESULTS OF

DATA TRANSFER

;60 TO 608 IF NG ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
G0 TO 3508 IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#70%,SLPERR
BR
808
;SKIP TO WRITE OPERATION

CZRMOAQ RMOS/3/2 FCTNL TST 3

116

WRITE,

READ W/ HCE

ERROR

MACRO Vv03.01

[ 10

11-APR-80 13:39:53 PAGE 12-5¢4

SEQ 0125

1759

1760
1761
1762
1763 024262

""""..."."""'""'.""'Q'fi"fifi.'t."".'t"*"‘.ttfi.'."'.

JLOOP #2
70%:

1764

1765

1766 024262

024266

WRITE ,READ

004737

154130

.PREPARE

040472

DEVICE

JSR

. WORD

FOR WRITE

PC,TSTPRP

OPERATION

154130

sPREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

024270
024272
024274
024276
1767 024302

000404
000240

000137

025420

80%:

1768

1769
1770 024302
177 024302
1772 024310

1773 024316
1774 024324
1775 024330
1776 024334
1777 024340
1778 024344
1779 024350
1780 024354
1781 024360

%ggin

012737
012737
012737
012702

106320
177400
000061

001551
000006
000034

001414
001412
001410

1785
1786

MOV
MOVB

025420

179 024412

044230

THE

#PUTINX ,R2
#RMDA, (R2) +

#RMBA, (R2) +

;LOAD PUT REGISTER INDEX TABLE

#PRMOF
, (R2) +

#RMIC, (R2) +

#RM(CS1,(R2)+

MOVB

#200, (R2)+

JSR

PC,PUT

130%:

;GO TO 3508 IF ERROR

NBUF ONE +4 ,RMBAO ; CHANGE BUS ADDRESS
#-256. ,RMICO
; CHANGE WORD COUNT
MID !GO ,RM(CS10
JWRITE DATA COMMAND

MOVB

EMT

JRETURN HERE IF ERROR
cERROR # DEFINED BY TSTPRP SUBROUTINE

DRIVE

MRMDC, (R2) +

1308

350%

cTERMINATE TABLE
;GO WRITE REGISTER(S)

WITH PUT SUBROUTINE

;G0 TO 1308 IF NO ERROR

;RETURN HERE

ERROR

JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

JWAIT FOR COMMAND

JSR

TO COMPLETE

PC,TIMOUT

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
JSR

NOP

025420

VOLUME NOT VALID

;GO TO 80% IF NO ERROR

MOVB

MOvVB

NOP

045042

1793

DATA

024406

024416
024420
026422
024424
1792 024430

350%

MOVB

044144

1789

JMP

MOvVB

024402

1787
1788

80%

MOV
MOV
MOV

1782
1783 024364

024370
024372
024374
024376
1784 024402

NOP
EMT

.VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI''
OR 'PIP'’' IS SET
JVERiIFY RECALIBRATION

1408

EMT

PC,GET

1408

;GO READ REGISTER(S)

:RETURN HERE

3508

WITH GET

;60 TO 1408 IF NO ERROR
IF

ERROR

SUBROUTINE

JERROR # DEFINED BY GET SUBROUTINE
;GO TO 350%

ERROR

CZRMOAO RMOS/3/2 FCTNL TST 3

116

WRITE,

1794

1795 024430

N=O

00
00 G0

ZeIRERECEEIFS

024434
026436
026440
024442
024444

032703
001037
032703
001061

JSR

NOP

EMT
JSR
IMP

025420

CTsT
BNE

BIT

010000

BNE
BIT
BNE

140000

032737
001102

000200

001350

057742

1453

PC,a(SP)+
3508

©GO CHECK FOR PRIMARY ERRORS

2GO TO 1458 IF NO ERROR
"RETURN HERE

IF ERROR

"ERROR # DEFINED BY PRIERR SUBROUT INE
'GO BACK FOR MORE ERROR CHECKS
‘GO TO 3508 IF ERROR

;1S THIS THE FIRST HEADER WORD ?

#FMT16,R3

:SHOULD FER BE SET ?

1463

1558
#MSE ' USE ,R3
1658

‘NO !!

CYES !
*SHOULD BSE BE SET ?
LYES 1)

BIT

#HCE ,RMER11

;WAS HCE DETECTED ??

JSR

PC.DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

BNE

B8R

NOP

013737
012737
010437
001002
005237
010337
104344
000137

001350
000200
001174

EMT
JSR
N

1505

025420

001142
001140

001174
001176

MoV

1518:

175$

1508

*GO TO 1508 IF NO ERROR
"RETURN HERE

IF ERROR

PC.a(SP)+

3508

RMER1],$BDDAT

;RECEIVED STATUS

R4, $TMPO

‘R4 = HEADER WORD NUMBER AND

MHCE , SGDDAT

BNE
INC
MOV

1578
$TMPO
R3,$TMP1

EMT
JMP

LYES

"ERROR # DEFINED BY DTASTS SUBROUT INE
1GO BACK FOR MORE ERROR (HECKS
16O TO 3508 IF ERROR

MOV

025420

344
3508

SEXPECTED STATUS
*ADJUST NUMBER.

:R3 = BIT POSIITON

%gggxrv THAT A FORMAT ERROR WAS DETECTED

032737
001046

000020

1828 024570

004737

057742

025420

#FER,RMER1]

,WAS FER DETECTED ??

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,a(SP)+

"RETURN HERE IF ERROR
*ERROR # DEFINED BY DTASTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

mov
MOV

#FER,SGDDAT
RMERT1,$BDDAT

:EXPECTED STATUS
:RECEIVED STATUS

BNE

JSR

B8R
1605
—h

——

—

o0
OO

000020
001350

©oBIT

001350

025420

1833 024626

PC,PRIERR

%Zggxrv THAT A HEADER COMPARE ERROR WAS DETECTED

b
b
b
b
b o
b

;CHECK FOR ERRORS DURING WRITE OPERATION

045226

1824 024560
1825 024560
1826 024566

024574

SEQ 0126

§2§§°°E THE TYPE OF ERROR PRODUCED BY THE BIT POSITION OF R3

024454
024460
024462
024466
024470
024470
024476

ERROR

104000

004736
000137

005704
001006

00 0o 0o 0o Oo 0o 00 0o

—

004737
000405
000240

024450
024450
024452

024500
024504
024506
024510
024512
024514
3 024520
4 024520
5 024526
6 024534
7 024540
8 024542
9 024546
20 024552
1821 024554
P N
U QI

READ W/ HCE

J 10
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-55

EMT
JMP

175%

1608

3508

343
3508

TYES

*GO TO 1608 IF NO ERROR
:GO TO 3508 IF ERROR

JVERIFY THAT A BAD SECTOR ERROR WAS DETECTED

RMOAO RMO5/3/2 FCINL TST 3

WRITE,

READ W/ HCE ERROR

1836 024632
1837 024632

032737

100000

1840 024642

004737

057742

026650
024652

000240
104000

}gga 024640

024646

1841
1842
1843
1844
}gzg

024656
024656

024662
024662
024670
024676
024700

001021

000405

004736
000137
013737
012737
104345
000137

1847
1848 024704
1849 024704

004737

024712
024714
024716

000240
104000
004736

024710

000405

001376

K 10

11-APR-80 13:39:53 PAGE

165$:

001376
100000

001142
001140

1708
:

025420

1758

SYES 11

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

JSR
JMP

PC,a(SP)+
3508

*RETURN HERE IF ERROR
<ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR

MOV
MOV
EMT
JMP

RMER2I,$BDDAT
#BSE, $GDDAT
345
3508

000137

025420

1852
}ggz 0264724

012737

024732

B8R

NOP
EMT
JSR

JMP

1808 :

001124

1855

‘{oop #3

}ggg 024732

024736

024740
024742
024744
0247646

;ggg 024752

1864
1865 024752
1866 024752
1867 024760
1868 024766
1869 024774
1870 025000

1808

PC,a(SP)+

3508

;WAS BSE DETECTED ??

:GO TO 1708 IF NO ERROR

;RECEIVED STATUS
SEXPECTED STAIUS

;GO CHECK FOR SECONDARY ERRORS

:GO TO 1808 IF NO ERROR

*RETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

: CHANGE LOOP ADDRESSES
MOV
#190S , SLPERR
AR Al st s sl

1856
1857

1860
1861 024732

170$

:CHECK FOR OTHER ERRORS
1758
JSR
PC,SECERR

046060

SEQ 0127

#BSE,RMER2 ]

025420

12~56

BIT

BNE

NOP
EMT

024720

;ggg 024724

MACRO V03.01

ittt

2222222202¢

READ

1908 :
004737

154130

000404
000240
104000
000137

012737

012737
012737

012702
112722

;PREPARE DEVICE FOR READ OPERATION
JSR
PC,TSTPRP
sPREPARE DEVICE FOR TEST

040472

LWORD

025420

107324

177400
000071

001551
000006

2008 :
001414

001412
001410

BR
NOP
EMT
JMP

154130

2008

3508

:READ DATA FROM DEVICE
2408:
MOV
#BUF TWO+4 ,RMBAO
MOV
#-256. ,RMJCO
MOV
#RD'GO,RMCS10
MOV
#PUTINX,R2
MOYB
A#RMDA, (R2)+

STASK DESCRIPTOR AS FOLLOWS:
*SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
*VERIFY PACK ACKNOWLEDGE

:RECALIBRATE IF '‘SKITM
OR 'PIP'* IS SET
*VERIFY RECALIBRATION

:GO TO 2008 IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
‘GO TO 3508 IF ERROR

; CHANGE BUS ADDRESS

:CHANGE WORD COUNT
-READ DATA COMMAND

:LOAD PUT REGISTER INDEX TABLE

CZRMOAOD RMOS/3/2 FCTNL TST 3

116

WRITE,

1871
1872
1873
1874
1875
1876
1877
1878

READ W/ HCE ERROR

025052

0464144

025056

045042

#200, (R2)

JSR

PC,PUT

250%:
JSR

250s
3508

PC.GETSTS

:WAIT FOR COMMAND TO COMPLETE

JSR

;GO WRITE REGISTER(S)

WITH PUT SUBROUTINE

:GO TO 2508 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE

:GO TO 35C$ IF ERROR

PC.TIMOUT

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUT INE

:GO READ STATUS FOR READ OPERATION
JSR
BR

025420

2608:

EMT
JMP

PC,GET
260s

3508

;GO READ REGISTER(S) WITH GET SUBROUTINE
:GO TO 2608 IF NO ERROR

*RETURN HERE

ERROR

:ERROR # DEFINED BY GET SUBROUTINE
:GO TO 3508 IF ERROR

;CHECK FOR ERRORS DURING READ OPERATION

045226

JSR

NOP
EMT

025429

265

010000
140000

PC,PRIERR

2658

;GO CHECK FOR PRIMARY ERRORS

:GO TO 265% IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUT INE

JSR

PC,a3(SP)+

;1S THIS THE FIRST HEADER WORD ?

BIT
BNE
BIT
BNE

#FMT16,R3
275$
#MSE 'USE ,R3
2858

;SHOULD FER BE SET ?
YYES 1!
:SHOULD BSE BE SET ?
SYES !!

JMP

BNE

032703
001037
032703
001061

#RMCST, (R2)+

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

NOP

3508

2663

;GO BACK FOR MORE ERROR CHECKS
*GO TO 3508 IF ERROR

INO !

§Z§§"Y THAT A HEADER COMPARE ERROR WAS DETECTED

032737
001102

025150

000200

001350

057742

013737

001350

8IT
BNE

#HCE ,RMER1]
295$

JSR

PC,DTASTS

B8R
2708

025420
907 025170

MOVB

NOP
EMT

044230

025066
025070
025072
025074
025100

025140
025140
025146

ARMOF, (R2)+
#RMDC. (R2)+
WRMBA. (R2)+
#RMWC. (R2)+

025420

1884
1885
1886 025062

025100
025104
025106
025110
025112
025114
025120
025120
1893 025122
1894
025124

MOVB
MOVB
MOVB
MOVB

MOVB

044500

1882
1883

L 10

11-APR-80 13:39:53 PAGE 12-57

SEQ 0128

025004
025010
025014
025020
025024
025030

025034
025040
025042
025044
025046
1879 025052

1880
1881

MACRO v03.01

001142

2708

:WAS HCE DETECTED ?2?
SYES !
;GO VERIFY RESULTS OF

DATA TRANSFER

:GO TO 270% IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

*RETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

MOV

RMER11,$8DDAT

;RECEIVED STATUS

JMP

3508

:GO TO 3508 IF ERROR

MOAQ RMOS/3/2 FCTNL TST 3

~NRANS WO

012737

000200
001174

001140

001174
001176
000137

025420

032737
001046

=SSOV

000020

275%:

057742

2718
$TMPO
R3,$TMP1
344
3508

JEXPECTED STATUS

;R4 = HEADER WORD NUMBER AND

;ADJUST NUMBER.

;R3 = BIT POSITION

104343
000137

280%:

;WAS FER DETECTED ??
JYES !!

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,a(SP)+

3508

;GO _TO 280% IF NO ERROR
JRETURN HERE IF ERROR
SERROR # DEFINED BY DTASTS SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

MOV
MOV

#FER, SGDDAT
RMER1I,$BDDAT

JEXPECTED STATUS
JRECEIVED STATUS

JMP
EMT
JMP

025420

032737
001021

100000

001376

285%:

JSR
BR

025420
001376

100000

001142
001140

290$:

025374
025376

012704

000002

NOP
EMT
JSR
JMP

MOV

EMT
JMP

000350

046060

BIT

BNE

057742

025420

025404

#FER,RMER1]
295$

280$

343
3508

JVERIFY THAT A BAD SECTOR ERROR WAS DETECTED

1934 025332
1935 025332
1936 025340
1937 025346
1938 025350
1939
1940
1941 025354
1942 025354

025400
025402

—

000020
001350

—

012737
013737

BIT
BNE

025420

025316
025320

VO NON S

001350

(o]
O

BNE
INC
MOV
EMT
JMP

#HCE
, SGDDAT
R4 ,$TMPO

SEQ 0129

.VERIFY THAT A FORMAT ERROR WAS DETECTED

1922 025260
1923 025260
1924 025266
1925 025274
1926 025276
1927
1928
1929 025302
1930 025302
1931 025310
1932
1933 025312

194
194
194
194
194
194
1949

M 10
11-APR~80 13:39:53 PAGE 12-58
MOV
MOV

271%:

0 Lol el elVel e llelVolVo
Vo RVe XV}
e P Pinr P P
Per Purd
NN Pur P S

WRITE, READ W/ HCE ERROR

MACRO v03.01

#BSE
, RMER2]

SYES

PC,DTASTS
2908

;GO VERIFY RESULTS OF DATA TRANSFER
;GO _TO 2908 IF NO ERROR

PC,a(SP)+
3508
RMER21, $BDDAT

#BSE
, SGDDAT

345
350

;CHECK FOR OTHER ERRORS
595$

RETURN HERE

IF ERROR

sERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR
sJRECEIVED STATUS
SEXPECTED STAIUS

JSR

PC,SECERR

NOP
EMT
JSR

PC,a(SP)+

3508

;GO CHECK FOR SECONDARY ERRORS
;GO _TO 3008 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUT INE
2GO BACK FOR MORE ERROR (HECKS
;GO TO 3508 IF ERROR

ASL
BNE

R3
310s

sSHIFT TO NEXT BIT
;REPEAT IF NOT DONE

TST

:ggggyo HEADER WORD DONE??

B8R

300%:

;WAS BSE DETECTED ??

295$

JMP

BNE
MOV

3008

3508
#2.R4

*SETUP FOR 2ND HEADER WORD

CZRMOAO RMOS/3/2 FCTNL TST 3

WRITE, READ W/ HCE ERROR

950 025410
951 025414
952 025414
953 025420
1954 025420
1955
1

012703

000001

000137

023762

MACRO v03.01

N 10
11-APR-80 13:39:53 PAGE 12-59
SEQ 0130

310$:
350%:

000464

Mov

#1,R3

JMP

15%

3708

sSETUP FOR HCE

;EXIT IF ERROR

ttttttttttttittttttttttttt'tttttttt.tt*ttttttttttttfitt'tfiitttlt

*REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER
AL E

1958 025422
1959 025422

965 025456
025462

012737
012737
012737
012737
004737

004737
054130

177776

010000

106314
000062

043344

001412

3553:

001442

001414
001410

040472

MOV
MOV
MOV
MCV
JSR

JSR
.WORD

adiiddti

iitllzt

000404
000240
104000
000137

;BUFFER ADDRESS,REFORMAT THE SECTOR
;JWRITE HEAD AND DATA COMMAND
¢SET UP THE BUFFER

PC.,GENBUF

:PREPARE DEVICE FOR TEST

054130

;TASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

012737

1972 025524

1973 025530
1974 025534

1975 025540
1976 025544
025550
025552
025554
025556
1977 025562
1978 025564
1979 025570

000063
001551
000006
000032
000034
000004
000002
000000
000200
044500

#WH'!GO,RMCS10
H#PUTINX ,R2

ARMDA, (R2) +
#RMOF , (R2)
+
#RMDC, (R2)
+
#RMBA, (R2) +
#MIC, (R2) +
#RMCST, (R2)+
#200,(R2)+
PC,PUT

025572

365%:

045042

1980 025572
1981
1982

;FORMAT THE SECTOR

;SET UP THE REGS

3658

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 365% IF NO ERROR

3708

:GO TO 3708 IF ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT INE

PC, TIMOUT

;WAIT FOR FINISH

370%:
AL AS SRRt

*TEST 17

025572
025572
025574
025576
025602
025606
025612

VOLUME NOT VALID

;GO _TO 3608 IF NO ERROR
SJRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3608 IF ERROR

3608
001410

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'*
OR 'PIP'" IS SET
;VERIFY _RECAL IBRATION

3608
025476

sALWAYS IN 16 BITS MODE

sPACK ACKNOWLEDGE

025464
025466
025470
025472
1966 025476
1967 025476
1968 025504
1969 025510
1970 025514
1971 025520

sONLY TWO HEAD WORDS

#FMT16,RMOFO
#BUFONE ,RMBAO
#WH RMCS10
PC,TSTPRP

WRITE,

2222222222221

READ W/ HCI

ttttfittttt'lttttt'tittit"'ttttttt'tttttt.t'it't.tt"tt.tt"ttt

000004
000240
012706
013700

013701
012737

TST17

001100
001276
001464
000017

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

H#STACK,SP

s SCOPE CALL
sSTART OF TEST
;INITIALIZE STACK POINTER

ISTQUE ,R1
#7,8TESTN

;(R1) = DEVICE BEING TESTED
;.SET TEST NUMBER IN APT MAIL BOX

$BASE RO

;RO = UN]BUS ADDRESS

CZRMOAO RMOS/3/2 FCTNL IST 3

WRITE, READ W/ HCI

MACRO v03.01

8 1
11-APR-80 13:39:53 PAGE 12-60

SEQ 0131

.“'fi'fl"flQQ'fifififiQ".fi'fi."""""fii'fi**.fi*.".**'t'.tfifififi"fi"t'fifi

;LOOP #1

1987
1988
1989
1990
1991
1992

025620
025624
025630

012704
012703

000000
000001

025630

004737

040472

025634

154130

10%:
15%:

FORMAT ,WRITE ,READ
MOV
MOV

#0,R4
#,R3

JHEADER WORD
JHCE BIT

;JPREPARE THE DEVICE FOR FORMAT OPERATION
JSR

LWORD

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDGE

2333

025636
025640
025642
025644

1997
1998
1999
2000

025650
025650

025656
025664
025672
025700

2001 025706
2002
2003
025714
025720
025722
025726
025730
2004 025734
2005 025734
2006 025742
2007 025750
2008
2009
2010 025754
2011 025760
2012 025762
2013 025766
2014 025770
2015
2016
2017 025774
2018 025774
2019 026000
2020 026004
2021 026010
2022 026014

000404
000240
104000
000137

NOP

EMT

JMP

027176

208

3708

JRECALIBRATE IF "'SKI''
OR 'PIP'' IS SET
sVERIFY RECALIBRATION

*GO TO 208 IF NO ERROR

*RETURN HERE

IF ERROR

*ERROR # DEFINED BY TSTPRP SUBROUTINE

26O TO 3708 IF ERROR

ébng PARAMETERS AND GENERATE DATA BUFFER

012737

012737
012737
012737
012737

012737
004737
000405
104401
104000
000137
012737
012737
004737

030364
001403
040364
000402
050364

000000
000000
106314
177376
070000
000063

001444
001416
001414
001412
001442
001410

MOV

#-258. ,RMJCO

;2 + 256. WORDS (2'

MOV

#WH!GO,RMCS10

;WRITE HEADER AND DATA COMMAND

MOV

#BUFONE ,RMBAO

H#FMT16 ,RMOFO

258

001174
001176

;16 BIT FORMAT

COMP)

PC ,BADSCT

;CALL BAD SECTOR MODULE

TYPE

.SCTMSG

;TYPE BAD SECTOR MESSAGE

25%

;GO TO 258 IF NO ERROR

EMT
JMP

3508

;ERROR # DEFINED BY BADSCT SUBROUTINE
;GO TO 3508 IF ERROR

MOV
MOV
JSR

#ONES , $TMPO
#1,$TMP1
PC, GENBUF

;STARTING ADDRESS OF PATTERN
;RANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

; CHANGE HEADER WORD TO FORCE ERROR DURING WRITE
BIT
BEQ

106314

8IC

27s:

B8R
8IS

R3,BUFONE(R4)
27%

R3,BUFONE(R4)

28%
R3,BUFONE(R4)

éggAD PUT REGISTER

012702
112722
112722
112722
112722

;BUS ADDRESS

JSR

027024

106314

;CYLINDER = 0
*TRACK = 0, SECTOR = 0

MOV

070230

106314

#0 ,RMDCO
#0 . RMDAO

;VERIFY THAT SECTOR IS NOT BAD

041416

043344

Moy
MOV

MOV
MOvB
MOvB
MovB

mMovs

INDEX TABLE

#PUTINX ,R2
H#RMDC
, (R2) +
#RMDA
, (R2) +
#RMBA, (R2) +

#RMWC
, (R2) +

;SET OR RESET BIT??

;RESET BIT

;SET BIT
FOR FORMAT OPERATIION

;R2 - BYTE ENTRY POSITION

117

WRITE, READ W/ HCI

2023 026020
2024 026024
2025 026030
2026 026034

112722
112722
112712

000C32
000000
0002C0

2029 026034

004737
000404
000240

044500

000137

027024

026040
026042
026044
026046
2030 026052

104000

cn
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-61

30%:

mMovB
mMovB
MOVB

:FORMAT

THE DRIVE

JSR

B8R

NOP

026052

004737

044144

026056

004737

045042

2037 026062
026066
026070
026072
026074
2038 026100

004737
000404
000240
104000
000137

044230

2041 026100
026104
026106
026110
026112
026114
2042 026120

004737
000405
000240
104000
004736
000137

057742

2045 026120
2046 026126

012737
000410

026130

40%:

EMT
JMP

PC,PUT

40%

350%

:TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 408 IF NO ERROR
:RETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

:SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC.GETSTS

:WAIT FOR COMMAND TO COMPLETE
JSR

PC,TIMOUT

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR
50%
;GO TC SO$ IF NO ERROR
NOP

027024

50%:

EMT
JMP

JRETURN HERE

3508

IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 3508 IF ERROR

JVERIFY NO ERRORS DURING FORMAT
JSR
PC,DTASTS
;GO VERIFY RESULTS OF DATA TRANSFER
BR
60$
;GO TO 608 IF NO ERROR
NOP

027024

60%:
001124

EMT
JSR
JMP

;RETURN HERE

PC,a(SP)+

3508

IF ERROR

;ERROR # DEFINED BY DTASTS SUBROUT INE
;GO BACK FOR MORE ERROR (CHECKS
;GO TO 350% [F ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#708 ,SLPERR
B8R
80%
;SKIP TO WRITE OPERATION
2

2332232332232222322323322242383232332332323234323232333233323223323222430423222824%3]

LOOP N2
2051 026130
2052
2053
2054 026130
026134

#RMOF
, (R2) +
ARMCST, (R2) +
#200, (R2)

SEQ 0132

WRITE ,READ

:
708

004737

154130

040472

;PREPARE DEVICE FOR WRITE OPERATION

JSR

LWORD

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

:SELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

:RECALIBRATE IF '‘SKI'* OR ‘PIP'* IS SET

026136
026140

000404
000240

NOP

80%

JVERIFY RECALIBRATION

:GO_TO 80$ IF NO ERROR
JRETURN HERE

ERROR

—

CZRMOAO RMOS/3/2 FCTNL TST 3

C%;PDAO RMOS5/3/2 FCTNL TST 3
WRITE, READ W/ HCI

026142
026144
2055 026150
2056
2057
2058 026150
2059 026150
2060 026156
2061 026164

012737
012737
012737

2063 026176
2064 026202
2065 026206
2066 026212
2067 026216

112722
112722
112722
112722
112722

2062 026172

104000
000137

012702

MACRO v03.01

027024

012000
000061
106320

001551

808:

001442
001610
001414

D 11
11-APR-80 13:39:53 PAGE 12-62
EMT
JMP

MOV

MOVB
MOVB
MPVB
MOVB
MOVB

2068 026222
%893 026226

112722
112722

000000
000200

MOVB
MOVB

2071 026232
026236
026240
026242
026244

004737
000404
000240
104000
000137

044500

027024

JSR
BR
NOP
EMT
JMP

2074
2075 026250

004737

044144

2077 026254

004737

045042

2078
2079 026260

004737

044230

58;5 026250

2076

026264

026266
026270
026272
583? 026276
2082

000404

000240
104000
000137

1308 :

JSR

B8R

027024

1408 :

005037

001140

2086 026322

032737

000220

001350

001350
177557

001142
001142

001376
100000

001142
001376

2089 026340
2090 026346
2091 026350
2092 026350
2093 026356

2094 026364

042737
000412

013737
032737
001406

WRMCSi.(R2)+
#200, (R2)+

PC,PUT
1308

3508

;TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
:GO TO 1308 IF NO ERROR
*RETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE
16O TO 3508 IF ERROR

PC,TIMOUT

;G0 TO TIMOUT SUBROUTINE

NOP
EMT
JMP

1408

3508

*GO TO 1408 IF NO ERROR

;RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
*GO TO 3508 IF ERROR

;CHECK FOR ERRORS DURING WRITE OPERATION

583? 026316

001407
013737

*LOAD PUT REGISTER INDEX TABLE

WRMDA, (R2)+
#RMDC.(R2)+
WRMOF
. (R2)+
#RMBA. (R2)+
WRMWC. (R2)+

;G0 READ STATUS FOR WRITE COMMAND
JSR
PC,GET
;GO0 READ REGISTER(S) WITH GET SUBROUTINE

045226

2087 026330
2088 026332

#PUTINX RS

JWAIT FOR COMMAND TO COMPLETE

004737
000405
000240
104000
004736

000137

;INHIBIT HEADER COMPARE
“WRITE DATA COMMAND
;LOAD STARTING BUFFER ADDRESS

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

2083 026276
026302
026304
026306
026310

026312

:ERROR # DEFINED BY TSTPRP SUBROUT INE
16O TO 3508 IF ERROR

3508

;WRITE DATA TO THE DRIVE
1208:
MOV
#FMT16!HCI ,RMOFO
MOV
#D
! GO.RMCS10
MOV
lBUFONEM RMBAQ

000006
000034
000032
000004
000002

SEQ 0133

027024

1508:

JSR
8R
NOP
EMT
JSR

PC.a(SP)+

CLR

$GDDAT

BIT

#HCE 'FER,RMERTI

JMP

BEQ
MOV

151$:

PC.PRIERR
1508

3508

151%
RMER11, $8DDAT

:GO CHECK FOR PRIMARY ERRORS
260 TO 1508 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

260 TO 3508 IF ERROR

BIC
BR

#~C<HCE 'FER>, $BDDAT
1528

MC
BIT
8EQ

RMER2] , $BDDAT
#8SE , RMER2]
155%

SEXPECTED STATUS

;ANY ERROR??

;RECEIVED STATUS
*CLEAR DONT CARES
:RECEIVED STATUS
*ANY BAD SECTOR ERROR ?
:NO !!

C 4 RMOAQ RMOS5/3/2 FCTNL TST
T 7
WRITE, READ W/ HCI
i

2095 026366
2096 026374
2097 026374
2098 026376
2099 026402
2101 026402
2102 026402

042737

077777

104346
000137

027024

004737
000405

MACRO v03.01

001142

EN
11-APR-80 13:39:53 PAGE 12-63

152%:
155%:
160%:

057742

027024

170%:

046060

BIC

#*(BSE ,$8DDAT

EMT
JMP

346
3508

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

JSR
BR

NOP

012737
000410

026452

180%:

001124

NOAWVMS W= O

027024

MOV

A AN A AN A A

;LOOP #3

154130

;GO VERIFY RESULTS OF

170%

;PREPARE

040472

JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE

PC,a(SP)+

;GO BACK FOR MORE

3508

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

1808

;G0 TO 180% IF NO ERROR

;JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE

PC,a(SP)+

;GO BACK FOR MORE ERROR CHECKS

3508

;GO TO 3508 IF ERROR

#1908, SLPERR

200$

A AR AR

AR A AN AR AR AR AR AN AN RARAAR RN RARANR RN R RN RN

DEVICE

JSR
.WIRD

FOR READ OPERATION
PC,TSTPRP
;PREPARE DEVICE FOR TEST

154130

s TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE €& VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

2
=D —d

200%:

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ‘'SKI'* OR 'PIP'' IS SET
;VERIFY REC/.IBRAT]ION

200%

;GO _TO 2008 IF NO ERROR

3508

;GO TO 3508 IF ERROR

;sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

NNNNQNNN
IAY]

b
b
b
b

27 026522
28 026526
29 026532

-—b

1%,

o
N
o
o
N
o

—td b =d d O OO

D =D

;READ DATA FROM DEVICE

N
I

)

ERROR CHECKS

;GO TO 3508 IF ERROR

READ

BR
NOP
EMT

027024

n
o

ko)
b
d
b

DATA TRANSFER

;GO TO 1708 IF NO ERROR

sPACK ACKNOWLEDGE

IASISLSTNTNT,
ST NT AN T,V 1o 0 10N T, §)

FOR ERROR

190%:

004737

—t

;SAVE BSE

; CHANGE LOOP ADDRESSES

e R

b cod

EMT
JSR
JMP

SEQ 0134

000071
107324

001410
001414

240%

MOV
MOV
MoV
MovB
mMovBe
mMovB
MOvVB
MovB

#RD !GO,RMCS10

#8UF TWO+4 ,RMBAD
#PUTINX ,R2
#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
#RMBA, (R2) +

ARMWC, (R2) +

JREAD DATA COMMAND

;LOAD STARTING BUFFER ADDRESS
:LOAD PUT REGISTER INDEX TABLE

CZRMOAO RMOS5/3/2 FCINL TST 3

WRITE, READ W/ H(CI

MACRO v03.01

SEQ 0135

2130 026536
S}%} 026542

112722
112712

000000
000200

MOvB
MOVB

#RMCST, (R2)+
#200, (R2)

2133 026546
026552
026554
026556
026560
g}%g 026564

004737
000404
000240
104000
000137

044500

JSR
BR
NOP
EMT
JMP

PC,PUT
250%

2137 026564

004737

044144

2138
2139 026570

004737

045042

2136

2140
2141 026574
026600
026602
026604
026606
S;:g 026612
2144
2145 026612
026616
026620
026622
026624
026626
S}zg 026632

2148 026636
2149 026644
2150 026646
2151 026654
2152 026662
2153 026664
2154 026664
2155 026672
2156 026700
2157 026702
2158 026710
2159 026710
2160 026712
2161 026716
2162
2163 026716
2164 026716
026722
026724
026726
0267
026732
2165 926736
2166 026736

027024

004737
000404
000240
104000
000137

044230

004737
000405
000240
104000
004736
000137
005037

045226

2508%:

JSR

;GO READ STATUS
JSR
BR
NOP
EMT
JMP
260%:

000220

001350

001350
177557

001142
001142

013737
032737
001406
042737

001376
100000

001142
001376

077777

001142

057742

004737

046060

027024

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUTINE

FOR READ OPERATION
PC,GET
;GO READ REGISTCR(S) WITH GET SUBROUTINE
2608
;GO _TO 2608 IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
3508
;GO TO 3508 IF ERROR

; CHECK FOR ERRORS DURING READ OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS
BR
2708
;GO _TO 2708 IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY PRIERR SUBROUTINE
JSR
PC,a(SP)+
;GO BACK FOR MORE ERROR CHECKS
JMP
3508
;GO TO 3508 IF ERROR
270%:
(LR
$GDDAT
JEXPECTED STATUS

027024
001140

004737
000405
000240
104000
004736
000137

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE
JSR
PC., TIMOUT

027024

3508

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 2508 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT INE
;GO TO 3508 IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

032737
001407
013737
042737
000412

104346
000137

11-APR-80 13:39:53 PAGE 12-64

27$:

272%:
275%:

2808%:

290%:

BIT
BEQ
MOV
8IC
BR

NHCE!'FER,RMER1]
271%
RMER11,$BDDAT
#*C<HCE!FER>,$8DDAT
272%

;ANY ERROR ?
;NO!!
JRECEIVED STATUS
;CLEAR DONT CARES

MOV
BIT
BEQ
8IC

RMERZ] , $8DDAT
#BSE ,RMERZ]
275%
#*(BSE ,$8DDAT

JRECEIVED STATUS
;ANY BAD SECTOR ERROR ?
;NO !
;CLEAR DONT CARES

EMT
JMP

346
3508

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS
290%
PC,a(SP)+
3508

;GO VERJFY RESULTS OF DATA TRANSFER
;GO _TO 290% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 350% IF ERROR

JSR

PC,SECERR

.GO CHECK FOR SECONDARY ERRORS

C IRMOAO RMOS5/3/2 FCTNL TST
T 17
WRITE, READ W/ HCI

026742
026744
026746
026750
026752
2167 026756
2168 026756
026762
026764
026766
026770
026772
026774

2169 027000
2170 027000
2171 027002
2172 027004

2173 027006
2174 027010
2175 027014
2176 027020
2177 027020
2178 027024
2179 027024

2180
2181
2182
2183 027026
2184 027026
2185 027034
2186 027042
2187 027050
2188 027056
2189
2190 027062
027066

027070
027072
027074
027076
2191 027102

2201 027150

000405
000240
104000
004736
000137

004737
106320
107324
000404
000240
104000
00137

MACRO v03.01

300%:

043602

027024

000001
000002

000137

025630

12-65

SEQ 0136

027024

001006
012703
012704

G 1

11-APR-80 13:39:53 PAGE

3108:

JSR
.WORD
.WORD
BR
NOP
EMT
JMP

;ERROR # DEFINED BY SECERR SUBROUTINE

PC,a(SP)+

;GO BACK FOR MORE ERROR (HECKS

PC, CMPBUF

;GO COMPARE WRITE, READ DATA BUFFERS

BUF ONE +4
BUF TWO+4

;GO TO 3508 IF ERROR

s STARTING ADDRESS OF WRITE BUFFER

3108

:STARTING ADDRESS OF READ BUFFER
;G0 _TO 3108 IF NO ERROR

3508

;ERROR # DEFINED BY CMPBUF SUBROUTINE
;GO TO 350% IF ERROR

JRETURN HERE

R3
3208

ASL

3508

JYES!!

#1,R3
#2,R4

MOV
MOV

[F ERROR

;SHIFT HCE BIT
JCONTINUE IF NOT DONE
:SEg?@D HEADER DONE??

:START WITH BIT 0

;DO SECOND HEADER WORD

15%

:
3508

000464

JRETURN HERE IF ERROR

3508

BNE
TST
BNE

320%:

;GO _TO 3008 IF NO ERROR

3008

BR
NOP
EMT
JSR
JMP

370%

JEXIT IF ERROR

:;*tttt'*tttitttt*ttttt*ttttt*tttttttfitfifiitttt*ifi'tttttfitt"tt'*t

s *REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER
AR

012737
012737

012737
012737
004737
004737
054130

3558

177776
010000
106314
000062
043344

040472

AN AN AR A AR

MOV
MOV
MOV
MOV
JSR
JSR
.WORD

A AR AR

T AR AN AN AN RN AR AN A AN R RAARANN RN RN

#-2 ,RMICO
HFMT16 ,RMOFO
ABUF
ONE ,RMBAO
#WH,RMCS10

054130

360%

027102
000063

000200
044500

360%

001410

#WH'!GO,RMCS10
#PUTINX ,R2
#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
#RMBA, (R2) +
MRMIC, (R2) +
#RMCST,(R2)+
#200, (R2)+
PC,PUT

;WORD COUNT

;IN 16 BIT MODE
;BUFFER ADDRESS

:FORMAT COMMAND

PC ., GENBUF

PC,.TSTPRP

;SET UP BUFFER

;PREPARE

DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

JRECALIBRATE IF *'SKI'* OR 'PIP'‘ IS SET
;VERIFY RECALIBRATION
;GO TO 3608 IF NO ERROR

;JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 3608 IF ERROR

;TABLE ADDRESS

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

MACRO v03.01

H 11
11-APR-80 13:39:53 PAGE 12-66

SEQ 0137

-t

RMOAO RMOS5/3/2 FCTNL TST 3
7
WRITE, READ W/ HCI

2202
2203
2204
2205

027154
027156
027160
027162
027166
027170
027174
027176

000404
000240

027176

365%:

045042

370%:

B8R
NOP
EMT
JMP

NOP

JSR
NOP

365%

;GO TO 3658 IF NO ERROR
JRETURN HERE [F ERROR

JERROR # DEFINED BY PUT SUBROUTINE

370$

.GO TO 370% IF ERROR

PC,TIMOUT

':tfitttfittttttt'ttttttttttttttttttttttttfitttttttt"ttttttt'ttt'tt

J*TEST 20

WRITE,

READ W/

IVC ERROR

;:'*fi*t""'fit'fi'**""'t"fii**fifi."'*'*'.fit"'Q'.'fi't"'*fit""fi

027176
027176

TST120:

013701
012737

001100
001276
001464
000020

SCOPE

NOP
Mov
MOV
MOV

001226

MOV

.SCOPE CALL
#STACK,SP

$BASE ,RO
TSTQUE ,R1
#20,8TESTN

;START OF TEST
JINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED
;:SET TEST NUMBER IN APT MA]L BOX

:;fi"Q.tfi'fi'fi‘*t**'fi**"**"'tfifi*******fi*"t'fifi**tt""fifi.tfi"fi.'

;LOOP #1
2213 027224
2214 027224
2215 027232
2216 027240
2217 027246
2218 027254
2219 027262
2220
2221

%bgAD PARAMETERS AND GENERATE

012737
012737
012737
012737
012737
012737

000000
000000
106314

004737

041416

177400

010000
000060

027270
027274
027276
027302
027304
027310
027310
027316
027324

012737
012737
004737

001416
000001
043344

2228 027330

004737

040472

2222
2223
2224
2225

027334

WRITE,READ

001444
001416
001414
001412
001442

154130

#0 ,RMDCO
#0,RMDAO

MOV
MOV

#-256. ,RMWCO
#FMT16,RMOFO

MOV

001410

MoV
JVERIFY

070230
030216

MOV
MOV

208

DATA BUFFER

JCYLINDER = 0
JTRACK = 0, SECTOR = 0

#BUF ONE ,RMBAO

.BUS ADDRESS

#WD ,RM(CS10

JWRITE HEADER AND DATA COMMAND

;256. WORDS (2'S COMP)
:16 BIT FORMAT

THAT SECTOR IS NOT BAD
JSR
PC,BADLCT

;CALL BAD SECTOR MODULE

TYPE

;TYPE BAD SECTOR MESSAGE

70%

EMT
JMP

350%

MOV
MOV
JSR

#RMDAO, $TMPO
#1,8TMP1
PC,GENBUF

,SCTMSG

;GO TO 708 IF NO ERROR

cERROR # DEFINED BY BADSCT SUBROUTINE
;GO TO 3508 IF ERROR
JUSE

SECTOR FOR DATA PATTERN

;GO GENERATE DATA BUFFER

;PREPARE DEVICE FOR WRITE OPERATION
JSR

.WORD

PC,TSTPRP

154130

;PREPARE DEVICE

FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE £ VERIFY DEVICE AVAILABLE
;JCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
.PACK ACKNOWLEDGE I[F VOLUME NOT VALID
cVERIFY PACK ACKNOWLEDGE

027336
027340
027342
027344

000404
000240

000137

NOP

030216

EMT

JMP

80%

350%

JRECALIBRATE IF ‘'SKI'' OR 'PIP'* IS SET
JVERIFY RECALIBRATION
;GO TO 80% IF NO ERROR
JRETURN HERE

ERROR

JERROR # DEFINED BY TSTPRP SUBROUTINE

;G0 TO 350% IF ERROR

CZRMOAQ RMOS5/3/2 FCTNL TST 3
MACRO V03.01
120
WRITE, READ W/ IVC ERROR

2229 027350

2230
2231
2232 027350
027356
027364
027372
027376
027400
027402
027404

gggz 027410
2235
2236 027410
2237 0276410
2238 027416
2239 027424
2260 027430
2261 027434
2242 027640
2243 027444
2264 027450
2245 027454
2246 027460

ngg 027464

112737
112737
012737
004737
000404
000240
104000
000137

012737
012737
012702
112722
112722
112722
112722
112722
112722
112722

000024
000200
000001
044500

000061
000000
001551
000024
000006
000034
000032
000002
000004
000000

2249 027470

004737

044500

027476
027500
027502

000240
104000
000137

030216

2252
253 027506

004737

044144

2255 027512

004737

0450642

2256
2257 027516

004737

044230

2254

027522

027524
027526
027530
gggg 027534
2260
2261 027534
027540
027542

027544
027546

027550

2262 027554

2263 027554

000404

000240
104000
000137

004737
000405
000240
104000
004736

001551
001552
0016434

030216

000200

gggg 027506

SEQ 0138

808:

112722

027474

I 11

11-APR-80 13:39:53 PAGE 12-67

908 :
001410
001434

032737

010000

3508

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
:SET RMMR1 OUTPUT BUFFER = DMD
‘GO WRITE RMMR1 VIA PUT SUBROUT INE
:GO TO 908 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
*GO TO 3508 IF ERROR

;SETUP PARAMETERS AND EXCUTE WRITE DATA COMMAND
1208:
MOV
#WD ' GO,RMCS10
;WRITE DATA COMMAND
MOV
#0 ,RMMR10
;RESET DIAGNOSTIC MODE
MOV
#PUT INX R
*LOAD PUT REGISTER INDEX TABLE
MOVB
#RMMR1, (R2)+
MOVB
#RMDA, (R2)+
MOVB #RMDC. (R2)+
MOVB
#RMOF
. (R2)+
MOVB
#RMWC. (R2)+
MOVB
#RMBA. (R2)+
MOVB
#RMCS, (R2)+
JSR

B8R
1308 :

NOP
EMT
JMP

#200, (R2)+

P(,PUT

130s

3508

:TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

*GO TO 1308 IF NO ERROR

;RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
*GO TO 3508 IF ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

WAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

. GO READ STATUS FOR WRITE COMMAND
JSR
PC,GET
.60 READ REGISTER(S) WITH GET SUBROUTINE

B8R

1408 :

NOP
EMT
JMP

1408

3508

:G0 TO 1408 IF NO ERROR

*RETURN HERE IF ERROR
SERROR # DEFINED BY GET SUBROUT INE
26O TO 3508 IF ERROR

;CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC.PRIERR
;GO CHECK FOR PRIMARY ERRORS
BR
1508
260 TO 1508 IF NO ERROR
NOP
*RETURN HERE IF ERROR

045226

030216

JMP

MOVB

030216

000137

;RESET VOLUME VALID
MOVB
#RMMR1,PUTINX
MOVB
#200.PUTINX+1
MOV
#DMD . RMMR10
JSR
PC,PUT
BR
90$
NOP
EMT

001376

1508:

EMT
JSR

PC.a(SP)+

*ERROR # DEF INED BY PRIERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

BIT

#I1VC,RMER?]

;WAS "'IVC'' DETECTED??

JMP

3508

:GO TO 3508 IF ERROR

CZRMOAO RMOS/3/2 FCTNL TST 3
MACRO v03.01
120
WRITE, READ W/ IvC ERROR

2264 027562
2265
2266 027564
027570
027572
027574
027576
027600
2267 027604
027604
2269 027612
2270 027620
2271 027626
2272 027630
2273 027634
2274 027634
027640
027642
027644
027646
027650
027654
027654
027662

J 1
11-APR-80 13:39:53 PAGE 12-68

001024

004737
000405

057742

030216

013737
013737
052737

001376
001376
010000

104342
000137

046060

012737
000410

027664

JSR

PC,DTASTS

NOP
EMT
JSR

PC,a(SP)+

JMP

160%:

MOV

170%:

342
150%

NOP

EMT
JSR
JMP

001124

B8R

;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

sJRECEIVED STATUS
;EXPECTED STATUS

#I1vC,SGDDAT

PC,SECERR

1808

PC,a(SP)+
3508

;GO CHECK FOR SECONDARY ERRORS

;GO _TO 180% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

A AN

2008

AN RN AN AT AR AR R AN AN AR RN RN I RN R AN R R R AR RN N RAARANANCA AT EAD N

LOOP #2

027664
027670

;GO VERIFY RESULTS OF DATA TRANSFER
;G0 _TO 160% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE

. CHANGE LOOP ADDRESSES
MOV
#1908, $LPERR
RN

027664

JYES!!

RMERZ] ,$8DDAT

EMT
JMP

JSR

180%:

350%

RMERZ2] ,$GDDAT

B8R

030216

1608

e 01Y)
BIS

030216

004737
000405
000240
104000
004736
000137

170%

000240
104000

004736
000137

BNE

SEQ 0139

READ

190%:

004737
154130

<PREPARE

040472

DEVICE

JSR

.WORD

FOR READ OPERATION
;PREPARE

PC,TSTPRP

154130

DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

:SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

JPACK ACKNOWLEDGE

027672
027674
027676
027700
2288 027704

030216

027740

000024
000200
000001
044500

030216

200%

JMP

3508

NOP
EMT

200s:

2289

2291 027704
027712
027720
027726

B8R

001551

001552
001434

JRESET VOLUME VALID
Mov8
#RMMR1 , PUT INX
MOvVB
#200,PUTINX+1
MOV
JSR

B8R

NOP
EMT
JMP

#DMD ,RMMR10
PC PUT

2108

350%

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF '‘SKI'' OR "PIP'" IS SET
;VERIFY RECALIBRATION

;GO 1O 2008 IF NO ERROR
RETURN HERE [F ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 3508 IF ERROR

;SETUP PUT INDEX TABLE
sSET TERMINATOR BYTE
;SET RMMR1 OUTPUT BUFFER = DMD
;GO WRITE RMMR1 VIA PUT SUBROUT INE
;GO TO 2108 IF NO ERROR

JRETURN HERE

ERROR

;ERROR DEFINED BY PUT SUBROUT INE

;GO TO 3508 IF ERROR

CZRMOAQ RMOS5/3/2 FCTNL TST 3
MACRO v03.01
120
WRITE, READ W/ IVC ERROR

2292 027744
2293
2294

2295 027744

SEQ 0140

2108
-READ DATA FROM DEVICE

2296 027744
2297 027752
2298 027760
2299 027766
2300 027772
2301 027776
2302 030002
2303 030006
2304 030012
2305 030016
2306 030022
Sggg 030026

012737
012737
012737
012702
112722
112722
112722
112722
112722
112722
112722
112712

000071
107320
000000
001551
000024
000006
000032
000034
000004
000002
000000
000200

2309 030032
030036

004737
000404

044500

030040
030042
030044

K 1
11-APR-80 13:39:53 PAGE 12-69

001410
001414
001434

2408:

MOV
MOV
MOV
MoV
MOVB
MOVB
MOVB
MOVB

MOVB
MOVB
MOVB
MOVB

JSR
BR
NOP
EMT

#RD!GO,RMCS10
#BUF TWO , RMBAD
#0.RMMR10
#PUTINX ,R2
#RMMR1, (R2)+
#RMDA, (R2)+
WRMOF
. (R2)+
WRMDC.(R2)+

:READ DATA COMMAND
*LOAD STARTING BUFFER ADDRESS
*RESET DIANOSTIC MODE
;LOAD PUT REGISTER INDEX TABLE

#RMBA. (R2)+
#RMWC. (R2)+
#RMCST, (R2)+
#200, (R2)

PC,PUT
2508

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
26O TO 250% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE

000240
104000
000137

030216

2312
»313 030050

004737

0446144

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;G0 TO GETSTS SUBROUTINE

2314
5315 030054

004737

045042

JWAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

2316
2317 030060

004737

044230

;GO READ STATUS FOR READ OPERATION
JSR
PC,GET
.60 READ REGISTER(S) WITH GET SUBROUTINE

030066
030070
030072

000240
104000
000137

030216

2321 030076

004737

045226

030104
030106
030110

000240
104000
004736

5;}? 030050

030064

55}3 030076
2320

030102

030112

2322 030116

2323 030116
gggg 030124

000404

000405

030216

032737

010000

2326 030126
030132
030134
030136

004737
000405
000240
104000

057742

030142

000137

030216

013737

001376

030140

2327 030146
2328 030146

004736

JMP

B8R

2608 :

000137

001024

2508 :

NOP
EMT
JMP

3508

260s

3508

*GO TO 3508 IF ERROR

.60 TO TIMOUT SUBROUTINE

:GO TO 2608 IF NO ERROR

;RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
*GO TO 3508 IF ERROR

;CHECK FOR ERRORS DURING READ OPERATION

JSR

001376

001140

2708:

270¢

NOP
EMT
JSR

PC,a(SP)+

BIT

#1VC,RMER2]

JSR
BR
NOP
EMT
JSR

PC,.DTASTS
2808

MOV

RMERZI, $GDDAT

JMP

BNE

2808

PC,PRIERR

JMP

3508

2908

PC,a(SP)+

3503

.60 CHECK FOR PRIMARY ERRORS

:GO TO 2708 IF NO ERROR

*RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
G0 BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;WAS "'IVC'' DETECTED??

SYES!!

;GO VERIFY RESULTS OF DATA TRANSFER
:GO TO 2808 IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE

:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

JEXPECTED STATUS

CZRMOAQ RMOS/3/2 FCINL TST 3
MACRO v03.01
120
WRITE, READ W/ IVC ERROR

2329 030154

2330 030162

2331 030170
2332 030172
2333 030176

2334 030176
030202
030204
030206
030210
030212
2335 030216
2336
g%ég 030216

052737

013737
104342
000137

004737
000405
000240
104000
004736
000137

010000

001376

LN
11-APR-80 13:39:53 PAGE 12-70

001140

BIS

001142

030216

RMER2] , $BDDAT

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR
3008

EMT
JMP

2908%:

046060

3008
:

e N

PC,a(SP)+
3508

ARA RN AR A AR AN AR

J*TEST 21

2340 030236

;RECEIVED STATUS

342
3508

;GO CHECK FOR SECONDARY ERRORS
;GO TO 3008 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DFFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 350% IF ERROR

3508 :

2339

030216
030216
030220
030222
030226
030232

#I1vC,$GDDAT

MOV

SEQ 0141

TR A RN R AR AR AR AR AN AR N R AN R R A RAN AN RN AR RAR

WRITE,

READ W/ ABORT

'-.-tttt'ttttttttttttttttttt"tttttttttttttttttttttttttttttttttt'ti

000004
000240
012706
013700
013701

012737

TST21:
001100
001276
001464

000021

001226

231.1

SCOPE
NOP
MOV
MOV
MOV

MOV

#STACK,SP
$BASE RO
TSTQUE ,R1

#21,8TESTN

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED

J:SET TEST NUMBER IN APT MAIL BOX

;;ttttfittttttttttttttttttttttttttttttttt.ttttttttttttttttttittttt

S%:%

;LOOP M1

2344
2345 0302644
2346 030252
2347 030260
2348 030266
2349 030274

2350 030302
ggg; 030310

2353
2354 030310
030314

012737
012737
012737
012737
012737

000000
000000
106314
177400
010000

012737

000061

004737

040472

154130

001444
001416
001414
001412
001442

001410

WRITE,READ

;LOAD PARAMETERS AND GENERATE DATA BUFFER
MOV
.
0
JCYLINDER = 0
MOV
#0,RMDAOD
;TRACK = 0, SECTOR = 0
MOV
#BUF ONE , RMBAO
;BUS ADDRESS
MOV
#-256. ,RMJCO
:256. WORDS (2°'S COMP)
MOV
#FMT16,RMOFO
;16 BIT FORMAT
70%:

MOV

#WD ! GO,RMCS10

:WRITE DATA COMMAND

;PREPARE DEVICE FOR WRITE OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
LWORD

154130

JTASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

030316
030320
030322
030324
2355 030330
2356
2357
2358 030330
030336

000404
000240
104000
000137

031134

112737
112737

000014
000200

80$:
001551
001552

BR
NOP
EMT
JMP

80%
3508

;SET UNSAFE ERROR
Mov8
MRMER1,PUTINX
MOvB

#200,PUTINX+1

IF VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF ''SKI'* OR 'PIP'' IS SET
;VERIFY RECALIBRATION
;GO _TO 80% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEF INED BY TSTPRP SUBROUT INE
;GO TO 3508 IF ERROR

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE

CZRMOAO RMOS5/3/2 FCTNL TST 3
T
WRITE, READ W/ ABORTY

030344
030352
030356

012737
004737

030362
030
2359 030370
2360
2361
2362 030370

040000

044500

MACRO v03.01

MmN
11-APR-80 13:39:53 PAGE 12-71

SEQ 0142
001424

MOV
JSR

NOP
EMT

031134

90%:

JMP

000061
001551
000006
000034
000032
000004
000002
000000
000200

MOV
MOV

001410

;GO _TO 908 IF NO ERROR

3508

;GO TO 3508 IF ERROR

MOVB
MOVB

#RMBA. (R2)+
#RMWC. (R2)+

MOVB

MOVB
JSR

B8R

EMT

031134

130%:

¢RETURN HERE IF ERROR
;ERROR DEF INED 8Y PUT SUBROUT INE

JMP

JSR

NOP
EMT

031134
020000

001346

001346
020000
001346

001140
001140
001142

135%:

000137

031134

004737
000405

045226

#RMCST, (R2)+
#200, (RZ)+
PC,PUT

130s

3508

PC,GET

135s

JMP

3508

BIT
BEQ

#P1P .RMDS |
136$

s TERMINATE TABLE
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO _TO 1308 IF NO ERROR

JRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

BIC

#P1P,$GDDAT

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO _TO 1358 IF NO ERROR

;RETURN HERE IF ERROR
SERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

RMDSI
, SGDDAT

;WAS COMMAND EXECUTED?
;NO, GO WAIT
JEXPECTED STATUS

RMDS]
, $8DDAT

JRECEIVED STATUS

;WAIT FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

;GO TO TIMOUT SUBROUTINE

MOV

MOV
136$:

044230

WRMDC. (R2) +
#RMOF
. (R2)+

;GO GET REGISTER STATUS

044230

004737
000404
000240

sWRITE DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

044144

045042

MJD ! GO, RMCS10
#PUTINX,R2

#RMDA, (R2)+

NOP

030560

90$

MOVB

MOVB
MOVB

044500

2393 0305564
2394 030554

:SET RMER1 QUTPUT BUFFER = UNS
;GO0 WRITE RMER1 VIA PUT SUBROUTINE

1‘“8%" DATA TO THE DRIVE

2369 030422
2370 030426
2371 030432

2380 030476
2381 030476
2382 030504
2383 030506
2384 030514
2385 030522
2386 030530
2387 030532
2 388
2389
030532
90
2391
2392 030536

#UNS ,RMER10
PC,PUT

347

:GO GET REGISTER STATUS
JSR

NOP
EMT

1408%:

PC.GET

1408

JMP

3508

JSR

PC,PRIERR

B8R

1508

;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO _TO 140% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

;GO CHECK FOR PRIMARY ERRORS
;G0 T2 1508 IF NO ERROR

CZRMOAO RMOS/3/2 FCTNL TST 3
11
WRITE, READ W/ ABORT

MACRO v03.01

N 11
11-APR-80 13:39:53 PAGE 12~72

030562
030564

031134

PC,a(SP)+

JSR

PC,SECERR

JMP

150%:

046060

NOP
EMT
JSR

NOP

EMT
JSR

031134

012737
000410

030624

JMP

180%:
001124

MOV
BR

2409 030624
030630

sRETURN HERE

IF ERROR

;ERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

3508

;GO TO 3508 IF ERROR

;GO CHECK FOR SECONDARY ERRORS
;GO _TO 180% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

180s

PC,a(SP)+

3508

;GO TO 3508 IF ERROR

. CHANGE LOOP ADDRESSES

A A A

LOOP [ ¥4
2406 030624

SEQ 0143

#1908 ,SLPERR
2008

AR AN AN RN AR

READ

NN R AN AR NN AN NN AR R AR R A RARNNRR AN NN AN AN

190%:

004737
154130

JPREPARE

040472

DEVICE FOR READ OPERATION
PC,TSTPRP
sPREPARE DEVICE FOR TEST
154130
s TASK DESCRIPTOR AS FOLLOWS:

JSR
.WORD

SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE

2410 030644
2411
26412
2413

000404
000240
104000
000137

112737
112737
012737
004737
000404

BR
NOP
EMT

031134

000014
000200
040000
044500

200%:

001551
001552
001424

MOVB
MOV
JSR

B8R

2414
2415
2416

2417 030704
2418 030704
26419 030712
2420 030716
2421 030722
2422 030726
2423 030732

NOP

EMT

031134

3508

JSET UNSAFE ERROR
mMov8e
#RMER1 ,PUT INX

000240

000137

200%

210$:

#200,PUTINX+1
#UNS ,QMFR10
PC,PUT

210%
350%

;RECALIBRATE IF ''SKI''
OR 'PIP'' IS SET
;VERIFY RECALIBRATION
;GO _TO 2008 IF NO ERROR

¢cRETURN HERE

IF ERROR

sERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 3508 IF ERROR

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMER1 OUTPUT BUFFER
= UNS
;GO WRITE RMER1 VIA PUT SUBROUTINE

:G0 TO 2108 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

.READ DATA FROM DEVICE

000071
001551

000004

001410

240%:

MOV
MOV
MOVB
MOVB
MOVB
MovB

#RD'GO,RMCS10
#PUTINX ,R2
#RMDA
, (R2) +
#RMOF
, (R2) +
MRMDC, (R2) +
#RMBA, (R2) +

JREAD DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

CZRMOAO RMOS/3/2 FCTNL TST 3
WRITE,

READ W/ ABORT

B 12
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-73

2624 030736
2625 030742
gzgg 030746

112722
112722
112712

000002
000000
000200

2628 030752

004737

044500

030760
030762
030764

000240
104000
000137

031134

2631
- 030770

(04737

044144

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC.GETSTS
;GO TO GETSTS SUBROUTINE

2433
2634 030774

004737

044230

:SEE IF DEVICE STARTED COMMAND
JSR
PC,GET

031002
031004

000240
104000

030756

gzgg 030770

031000

031006
2435 031012
2436 031012
2637 031020
2438 031022
2439 031030
24640 031036
2641 031044

000404

MOVB
MOVB
MOVB

SEQ 0144

JSR

2508 :

031134

032737
001414
013737
042737
013737
104347
000137

020000

001346

001346
020000
001346

001140
001140
001142

pc 031052

004737

045042

2647
2448 031056

004737

044230

26+2 031046

2445

031062

000404

031124

031064
031066
031070
2449 031074
2450 031074

000240
104000
000137

031134

004737

045226

031102
031104
031106

000240
104000
004736

031100

031110

2451 031114
2452 031114

031120
031122
031124
031126

031130

2453 031134
2454
2455 031134
2456

000405

000137

031134

004737
000405
000240
104000
004736

046060

000137

031134

2558-

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

3508

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
:GO TO 3508 IF ZRROR

2508

2558

JMP

3508

BIT
BEQ
MOV
8IC
MOV
EMT

#P1P,RMDS I
2568
RMDSI , $GDDAT
#PIP,$GDDAT
RMDSI , $8DDAT
347
3508

NOP
EMT

000137

5222 031052

NOP
EMT
JMP

WRMWC, (R2)+
#RMCST, (R2)+
#200, (R2)

2568 :

JWAIT FOR COMMAND TO COMPLETE

JSR

PC.TIMOUT

:GO TO 2508 IF NO ERROR

;GO READ REGISTER(S) WITH GET SUBROUTINE

:GO TO 2558 IF NO ERROR

*RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

:GO TO 3508 IF ERROR

;WAS COMMAND EXECUTED??
*NO!!
*EXPECTED STATUS
;RECEIVED STATUS

:GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

B8R

2608:

NOP
EMT
JMP
JSR

B8R

NOP
EMT
JSR

2708
:

3008
:

3508:

JMP

JSR
BR
NOP
EMT
JSR

JMP

2608

:GO TO 2608 IF NO ERROR

3508

*RETURN HERE IF EKROR
:ERROR # DEFINED BY GET SUBROUT INE
:GO TO 3508 IF ERROR

PC ,PRIERR

;GO CHECK FOR PRIMARY ERRORS

PC,a(SP)+

:RETURN HERE IF ERROR
:ERROR # DEF INED BY PRIERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

2708

:GO TO 2708 IF NO ERROR

3503

:GO TO 3508 IF ERROR

PC,SECERR
3008

;GO CHECK FOR SECONDARY ERRORS
*GO TO 3008 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
:CO BACK FOR MORE ERROR CHECKS

PC,a(SP)+

3508

:GO TO 3508 IF ERROR

CZRMOAO RMOS/3/2 FCINL TST 3
MACRO v03.01
122
WRITE, READ EACH CURRENT LEVEL
2457

11-APR-80 13:39:53 PAGE 12-74

SEQ 0145

AR R AR AN AN AN AR AN AR RN

*TEST 22

031134
031134
031136
031140
031144
031150
031154
2458 031162
2459
2460

031166

TST22

012737

AA AN

001100
001276
001464
000022

SCOPE

001226

MOV
(0}
MOV
MOV

108

;SCOPE CALL

#STACK,SP
$BACE RO
TSTQUE ,R1
#22,8TESTN

;START OF

TEST

INITIALIZE STACK POINTER
= UNJBUS ADDRESS
(R1) = DEVICE BEING TESTED
..SET TEST NUMBER IN APT MAIL BOX

::"fi""*‘*'fi*.'.‘*fi"f""""..'.***"".**Q'fi".*fi**fit'.*fi'fi'

;LOOP #1
004737
054130

FORMAT ,WRITE ,READ

;PREPARE

040472

THE DEVICE FOR FORMAT OPERATION

JSR

PC,TSTP

;PREPARE DEVICE FOR TEST

B8R

20%

JVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI''
OR 'PIP'* IS SET
;VERIFY RECALIBRATION
;G0 TO 208 IF NO ERROR

EMT
JMP

3508

.WORD

NOP

031174
031176
2465 031202

032172

20%:

2466

2482 031306
2483 031312
2484 031316
2485 031322
2486 031326
2487 031332
2488 031336

A AN

WRITE, READ EACH CURRENT LEVEL

NCP

031170
031172

2467
2468 031202
2469 031210
2470 031216
2471 031226
2472 031232
2473 031240
2474
2475
031246
031252
031254
031260
031262
2476 031266
2477 031266
2478 031274
2479 031302
2480
2481

AN R RN RN AN RN ARNNAAN RN

"*Q'tfi'.'.."'tt'.fit"'"'"'..'...'....".*."fi"*...""**'.

2461
2462

2463
2464 031162

012737
012737
012737
012737
012737
012737

000000
000000
106314
177376
010000
000063

001444
001416
001414

25%:

001551
000034

SERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3508 IF ERROR

#0,RMDCO

JCYLINDER
= 0

MOV

#BUF ONE ,RMBAO

BUS ADDRESS

MOV

MOV
MOV

MOV

070230

#0 ,RMDAO

#-258. ,RMWCO
#FMT16,RMOFO

#WH'!GO,RMCS10

JSR
BR

PC ,BADSCT
26%

EMT
JMP

350%

TYPE

268

001174
001176

sRETURN HERE IF ERROR

MOV

;VERIFY THAT SECTOR IS NOT BAD

032172

s TASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER & SELECT DEVICE

;LOAD PARAMETERS AND GENERATE DATA BUFFER

001412
001442
001410

041416

071730
000001
043344

054130

MOV

JSR

.SCTMSG

;TRACK
= O, SECTOR
= 0

:2 + 256. WORDS (2'S COMP)
;16 BIT FORMAT

JWRITE HEADER AND DATA COMMAND

;. CALL BAD SECTOR MODULE
;G0 TO 26% IF NO ERROR

;TYPE BAD SECTOR MESSAGE

JERROR # DEFINED BY BADSCT SUBROUTINE
;GO TO 3508 IF ERROR

#ZEROS ,$TMPO

;STARTING ADDRESS OF

PC.,GENBUF

;GO0 GENERATE BUFFER FOR FORMAT

#1,8TMP1T

;RANGE OF PATTERN

PATTERN

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
MOV
#PUTINX ,R2
;R2 = BYTE ENTRY POSITION

MOVB

#RMDC, (R2)+

MOVB
MOVB

#RMDA
. (R2) +
#RMBA, (R2) +

MOVB

#RMOF
, (R2) +

g 0):]
MovB8

MRMIC, (R2) +

#RMCST,(R2)+

D 12

CZRMOAQ RMOS/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-75
122
WRITE, READ EACH CURRENT LEVEL
2489 031342
2490 031346
2491 031346
031352
031354
031356
031360
Szgg 031364

112712

000200

004737
000404
000240
104000
C00137

044500

2494
2495 031364

004737

044144

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

2496
2497 031370

004737

045042

;WAIT FOR COMMAND TO COMPLETE
JSR
PC. TIMOUT

004737
000404
000249
104000
000137

044230

;GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

004737
000405
000240
104000
004736

057742

2498
2699 031374

031400

031402
031404

031406

528? 031412

2502
2503 031412

031416
031420
031422
031424
031426
5282 031432

2506
2507 031432
5283 031440

:
308

032172

40%:

032172

012737
000410

031442

#200, (R2)

JSR
BR
NOP
EMT
JMP

PC,PUT
408

50%:

3508

s TERMINATE TABLE
;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO _TO 408 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 350% IF ERROR

;GO TO TIMOUT SUBROUTINE

50%

;GO TO 50% IF NO ERROR

JMP

350%

;GO TO 3508 IF ERROR

NOP
EMT

032172

000137

mave

SEQ 0146

;JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;JVERIFY NO ERRORS DURING FORMAT
JSR
PC,DTASTS
;GO VERIFY RESULTS OF DATA TRANSFER

60%:

001124

BR
NOP
EMT
JSR
JMP

60$

PC,a(SP)+
350%

;GO TO 60% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 350% IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#70% ,SLPERR
BR
80%

;SKIP TO WRITE OPERATION

2510

;.’tttt!’t*"tttfi*itttttt*ii*ttl’fi*fififi*t*fi*ttfi**ttt*tttt.ttttttfitittt

2511
2512
2513 031442
2514
2515

;LOOP #2

2516

WRITE ,READ

708
:

2517 031442
031446

004737
054130

031450
031452
031454
031456
2518 031462
2519

000404
000240
104000
000137

040472

032172

;PREPARE DEVICE FOR WRITE OPERATION

80%:

JSR
.WORD

PC,TSTPRP
054130

BR
NOP
EMT
JMP

80%
3508

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
JYERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF "'SKI'* OR 'PIP'' IS SET
sVERIFY RECALIBRATION
;G0 _TO 80% IF NO ERROR
JRETURN HERE IF ERROR
ERROR # DEF INED BY TSTPRP SUBROUTINE

.60 TO 3508 IF ERROR

MACRO v03.01

WRITE, READ EACH CURRENT LEVEL

031576

2544 031610
2545
2546
2547 031610
031614
031616
031620
031622
031624
2548 031630
2549 031630
031634
031636
031640
031642
031644
2550 031650

2551
2552 031650

2553 031650
031654
031656
031660

SEQ 0147

177400

106320
000061
001551
000006
000034

001 612
001 414
001 610

;WRITE DATA TO THE DRIVE

MOV

MOV
MOV
MOVB
MOVB
MOVB
MOVEB
MOVB
MOVB
MOVB

ndd

D e

nd e

120%:

2520 031462
2521
2522
2523 031462
25264 031470
2525 031476
2526 031504
2527 031510
2528 031514
2529 031520
2530 031524
2531 031530
2532 031534
2533 031540
2534
2535 031544
031550
031552
031554
0315545
2536 0315052
2537
2538
031562
2539
2540
031566
25641
2542
2543 031572

E 12
11-APR-80 13:39:53 PAGE 12-76

000200

044500

JSR

NOP

032172

004737

064144

004737

045042

004737
000404
000240
104000

044230

000137

032172

045226

EMT

130%:

057742

032172

046060

WD ! GO,RMCS10
#PUT
INX ,R2
#RMDA, (R2)+
MRMDC. (R2)+
#RMOF
. (R2)+
#RMBA. (R2)+
#RMWC. (R2)+
#RMCST, (R2)+
#200, (R2)+

:256. WORDS (2'S COMP)
; CHANGE ADDRESS

;WRITE DATA COMMAND

sLOAD PUT REGISTER INDEX TABLE

s TERMINATE TABLE

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINEC

3508

JRETURN HERE ]F ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

1308

2GO 1D 1308 IF NO ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE
:WAIT FOR COMMAND TO COMPLETE
JSR

PC.TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR
140%
;GO TO 140% IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUT INE
1408-

JMP

3508

;GO TO 3508 IF ERROR

;CHECK FOR ERRORS DURING WRITE OPERATIUN
JSR
PC PRIERR
;GO CHECK FOR PRIMARY ERRORS

1508

EMT
JSR
JMP

PC.a(SP)+
3508

JSR

PC,DTASTS

NOP
EMT
JSR

PC,a(SP)+

;GO VERIFY RESULTS OF DATA TRANSFER
;G0 TO 160% IF NO ERROR
JRETURN HERE IF ERROR
ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

NOP

032172

#-256. ,RMWCO

#BUF ONE +4 , RMBAQ

1508:

1608:

1708:

JMP

B8R

NOP
EMT

1608

3503

1808%

;GO TO 1508 IF NO ERROR

:RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS

;GO TO 3508 IF ERROR

;GO YO 180% IF NO ERROR
JRETURN HERE [F ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE

—_—t

CZRMOAO RMOS/3/2 FCTINL TST 3

122

MACRO v03.01

WRITE, READ EACH CURRENT LEVEL

004736

54 031670
55
56
2557 031670
2558 031676
2559
2560
2561
2562
2563 031700
2564
2565
2566 031700
031704

000137

032172

012737
000410

031700

JSR

MOV

#1908 ,$LPERR

2008

as2lgi22 2222

JSKIP TO NEXT OPERATION
T

0232323222223

22222222222

READ

190%:

004737
054130

;PREPARE

040472

DEVICE

JSR
.WORD

NOP

EMT

032172

200%:

FOR READ OPERATION
;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

PC,TSTPRP
054130

2008

350%

:CLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF ''SKI''
OR 'PIP'' IS SET
:VERIFY RECALIBRATION
;GO _TO 2008 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3508 IF ERROR

240%:
107324
177400
000071
001551
000006
000032
000034
000004
000002
000000
000200

001414
001412
001410

;READ DATA FROM
MoV
MOV
MOV

044500

032172

004737

044144

004737

045042

DEVICE
#BUF TWO+4 ,RMBAD
#-256. ,RMWCO
#RD !GO,RM(CS10

MoV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

#PUTINX
,R2
#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
#RMBA, (R2) +
#RMUC, (R2) +
#RM(CST, (R2)+
#200, (R2)

JSR
BR

PC,PUT
250%

NOP

2590
2591

;GO TO 3508 IF ERROR

;CHANGE LOOP ADDRESSES

' .A4S

2571
2572 031720
2573 031726
2574 031734
2575 031742
2576 031746
2577 031752
2578 031756
2579 031762
2580 031766
2581 031772
2582 031776
2583
2584 032002

032024

SEQ 0148

.GO BACK FOR MORE ERROR CHE(CKS

3508

;LOOP #3

031706
031710
031712
031714
2567 031720
2568
2569 031720
2570

2585 032020
2 586
2587
032020
88
2589

PC,a(SP)+

JMP

180%:

001124

11-APR-80 13:39:53 PAGE 1 2=77

EMT

250%:

350%

; CHANGE ADDRESS

;256. WORDS (2°'S (OMP)

;READ DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 250% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

sSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUT INE
JWAIT

FOR COMMAND

JSR

TO COMPLETE

PC,TIMOUT

2GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION

—

CZRMOAO RMOS5/3/2 FCTINL TST 3

CZRMOAO RMOS/3/2 FCTNL TST 3

122

MACRO v03.01

WRITE, READ EACH CURRENT LEVEL

2592 032030
'A

2593
2595
2596

004737
000404
000240
104000
000137

004737
000405
000240

044230

JSR

032172

260%:

2597
2598

2599
2600
2601
2602

004737
000405
000240

032172

270%:

057742

004737

046060

280%:
2908%:

032172

300%:

043602

032172
001444
001400

031210

JSR
BR

PC,DTASTS
280$%

EMT
I5R
JMP

PC,a(SP)+

JSR
BR

PC,SECERR
300%

310%:

:
3508

C o

012737

15123:

001100
001276
001464
000023

001226

108

;G0 TO 270% IF NO ERROR

sJRETURN HERE IF ERROR

;ERROR
~ DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 280% IF NO ERROR

;JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORF ERROR CHECKS

3508

;GO TO 3508 IF ERROR

;GO CHECK FOR SECONDARY ERRORS

;GO _TO 3008 IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

;ERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

JSR
.WORD
.WORD

PC,CMPBUF
BUF ONE +4
BUF TWO+4

;GO COMPARE WRITE, READ DATA BUFFERS
sSTARTING ADDRESS OF WRITE BUFFER

JMP

#128. ,RMDCO
RMDCO,#768.
350%

:STARTING ADDRESS OF READ BUFFER

;GO _TO 3108 IF NO ERROR
;GO TO 3508 IF ERROR

;ADVANCE TO NEXT THRESHOLD
;DONE??
JYES!!
;DO NEXT CURRENT LFVEL

25%

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

WRITE

AN AN AR AN NN A NANRN NN

SCOPE
NOP
MOV
MOV
MOV
MOV

ERROR

;RETURN HERE IF ERROR
SERROR # DEFINED BY CMPBUF SUBROUTINE

ADD
(MP
BHI

WRITE,

;GO TO 3508 IF ERROR

3108

350%

JMP

JRETURN HERE

350%

EMT
JMP

'TEST 23

000004
000240

;GO TO 3508 IF ERROR

PC,a(SP)+
350%

NOP

AR AR

032172
032172
032174
032176
032202
032206
032212
3
261 032220
2614

350%

EMT
JSR
JMP

000200
001444

;G0 TO 2608 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUT INE

2708

NOP

032172

SEQ 0149

;GO READ REGISTER(S) WITH GET SUBROUTINE

260

NOP

104009
004736
000137

032120
032122
2603 032126
2604 032126
032132
032134
032136
032140
032142
032144
032150
032150
032156
032164
032166
032172

NOP
EMT
MP

PC,GET

12-78

JCHECK FOR ERRORS DURING READ OPERATION
JSR
PC,PRIERR
;60 CHECK FOR PRIMARY ERRORS

045226

104000

004736
000137

G 12

11-APR-80 13:39:53 PAGE

RN RN N RN A RN NN R AR AR RAN

RN CANARANNNN

CHECK W/ CURRENT LEVEL

NN,

SWITCHING

AN RRANRNN N RN NN NN NNNNNNARAARAN I RN AR ANER

;SCOPE CALL
#STACK,SP
$BASE ,RO
TSTQUE .R1
#23,8TESTN

;START OF

TEST

JINITIALIZE STACK POINTER
RO = UNIBUS ADDRESS

(R]) = DEVICE BEING TESTED
SSET TEST NUMBER IN APT MAIL BOX

Cg?flOfiO RMOS/3/2 FCINL TST 3
WRITE,

WRITE

MACRO v03.01

CHECK W/ CURRENT LEVFL

2615

H 12
11-APR-80 13:39:53 PAGE 12-79
SWITCHING

SEQ 0150

Sg}g

LOOP ”

2618 032220
032224

004737
054130

060472

FORMAT ,WRITE,READ
JSR
.4O0RD

PC,TSTPRP
054130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

032226
032230
032232
032234

000404
C00240
104000
000137

033176

032240
032246
032254
032262

012737
013737
112737
012737

000577
001332
000037
106314

2627 032276

012737

010000

004737
000405
104401
104000
000137

061416
070230

012737
012737
004737

071666
000001
043344

012702
112722
112722
112722
112722
112722

001551
000034
000006
000004
000002
000032

Sg;g 032240

2621
2622
2623
2624
2625

2626 032270

Sggg 032304
2630

032312
032316
032320
032324
032326
2631 032332
2632 032332
2633 032340
Sg%g 032346
2636
2637 032352
2638 032356

2639 032362

2640 032366
2641 032372
2642 032376

2643 032402
2644 032406
2645 032412
2646 0326412
032416
032420
032422
032424
522; 032430
64 9

0326430

012737
012737

20%:

001444
001416
001416
001414

176774

001412

000063

001410

000000
000200

004737
000404
000240
104000
000137

044500

033176

004737

044144

20%
3508

MoV

#-258., %2 ,RMWCO

MOV

#WH!GO.RMCS10

MOV

#FMT16, RMOFO

;VERIFY THAT SECTOR IS NOT BAD
JSR
BR
TYPE

001174
001176

VOLUME NOT VALID

:LOAD PARAMETERS AND GENERATE DATA BUFFER
MoV
#383. ,RMDCO
;CYLINDER = 383.
MOV
LSTRK,RMDAD
sSET LAST TRACK AND
mMovB
#31. ,RMDAO
sLAST SECTOR
MOV
#BUF ONE ,RMBAO
;BUS ADDRESS

001642

033176

112722
112712

BR
NOP
EMT
JMP

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ‘'SKI'*
OR 'PIP''
IS SET
;VERIFY RECALIBRATION
;GO TO 208 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3508 iF ERROR

25%:

EMT
JMP

PC,BADSCT
25%
.SCTMSG
3508

MOV
MoV
JSR

#ONES, $TMPO
#1,8$TMP1
PC. GENBUF

;2 SECTORS (2'S (COMP)

;16 BIT FORMAT

;WRITE HEADER AND DATA (OMMAND

. CALL BAD SECTOR MODULE
;GO TO 258 IF NO ERROR
;TYPE BAD SECTOR MESSAGE

;ERROR # DEFINED BY BADSCT SUBROUTINE
;GO TO 3508 IF ERROR
;STARTING ADDRESS OF PATTERN
JRANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

JLOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERAT]ION
MOV
#PUTINX ,R2
;82 = BYTE ENTRY POSITION
MOVB
#RMDC
, (R2) +

MOVB

MOvB
MOvVB
Mov8

30%:

40$:

#RMDA, (R2) +

#RMBA, (R2) +
#RMWC
, (R2) +
HRMOF
, (R2) +

MOVB
MOvB

#RMCS1, (R2) +
#200, (R2)

JSR
BR
NOP
EMT
JMP

PC PUT
408

JSETUP GET

JSR

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO _TO 408 [F NO ERROR
JRETURN HERE I[F ERROR
;ERROR # DEFINED BY PUT SUBROUT INE
;GO TO 3508 IF ERROR

3508
INDEX TABLE

;TERMINATE TABLE

TO READ ALL REGISTERS

PC,GETSTS

;GO TO GETSTS SUBROUTINE

f;ZR
123

MOAQ RMOS/3/2 FCINL TST 3
WRITE,

2651

WRITE

CHECK W/

2652 032434

004737

065042

2653
2654 032440
032444
032446
032450
032452
5222 032456

004737
000404
000240
10400C
000137

044230

2657
2658 032456
032462
032464
032466
032470
032472
5223 032476

004737
000405
000240
104000
004736
000137

057742

033176

012737

032506

2661

2662 032476

Sggz 032504

000410

MACRO v03.01

CURRENT

SWITCHING

12-80
SEQ 0151

;WAIT FOR COMMAND TO COMPLETE
JSR

;GO READ STATUS
JSR
B8R
NOP
EMT
JMP
50%:

033176

PC, TIMOUT

001124

2GO TO TIMOUT SUBROUTINE

FOR FORMAT OPERATION
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
508
;G0 _TO 50% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUT INE
3508
;GO TO 3508 IF ERROR

;VERIFY NO ERRORS DURING FORMAT
JSR
PC,DTASTS
BR
60$
NOP
EMT
JSR
PC,a(SP)+
JMP
3508
60%:

2&5

2666
2667
2668 032506
2669
2670
2671
2672 032506
032512

LEVEL

[ 12

11-APR-80 13:39:53 PAGE

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 60% IF NO ERROR
sRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION

MOV

#70%,SLPERR

80$

;SKIP TO WRITE OPERATION

""t'iQ'tfiQfififitt'*'..t't"'t"t.'i"ttfi'ittttitttt'titfi'tfi'lt'fi'fi'

;LOOP 42

WRITE ,READ

70$:

004737
054130

;PREPARE DEVICE FOR WRITE OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
.WORD
054130
;TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

040472

;PACK ACKNOWLEDGE

032514
032516
032520
032522
2673 032526
2674
2675 032526
2676

000404
000240
104000
000137

2678 032526
2679 032534
2680 032542
2681 032550
2682 032556
2683 032564
2684 032570
2685 032574
2686 032600

012737
012737
012737
012737
012737
004737
012702
112722
112722

2677

033176

80$%:

BR
NOP
EMT
JMP

80%
3508

I1F

VOLUME NOT

VALID

JVERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF "'SKI'* OR ‘PIP'* IS SET
;VERIFY RECALIBRATION
;GO TO 80% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 3508 IF ERROR

120%:

177000
106314
000061
071666
000001
043344
001551
000006
000034

001412
001414
001410
001174
001176

;WRITE DATA TO THE DRIVE

MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOvVB
MovB

#-256.%2 ,RMWCO
#BUF ONE ,RMBAO
#JD !GO, RMCS10
#ONES , $TMPO
#1,8$TMP1
PC, GENBUF
#PUTINX ,R2
#RMDA, (R2) +
HRMDC, (R2) +

;2 SECTORS (2'S COMP)
; CHANGE ADDRESS
;WRITE DATA COMMAND
s STARTING ADDRESS OF PATTERN
;RANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT
;LOAD PUT REGISTER INDEX TABLE

CZRMOAQ RMOS/3/2
123
WRITE, WR

2687 032604
2688 032610
2689 032614
2690 032620
2691 032624
2692
2693 032630
032634
032636
032640
032642
2694 032646
2695
2696
032646
2697
2698
032652
2699
2701 032656
032662
032664
032666
032670
2702 032674
2703
2705 032674
032700
032702
032704
032706
032710
2706 032714
2707 032714
032720
032722
032724
032726
032730
2708 032734
2709
2710 032734
2711 032734
032740
032742
032744
032746
032750
2712 032754
2713
2714
2715 032754
2716 032762

J 12

NL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE
CHECK W/ CURRENT LEVEL SWITCHING

000032
000004
000002
000000
000200

MOVB
MOVB
MOVB
MOVB
MOVB

044500

JSR

NOP
EMT

033176

004737

044144

004737

045042

004737

044230

000404
000240
104000
000137

004737
000405
000240

130%:

004737
000405
000240

JSR

004737
000405
000240

JSR

012737
000410

1308

3508

PC.GETSTS

PC, TIMOUT

JSR
BR

PC,GET
1408

JMP

3508

NOP
EMT

033176

140%:

TABLE

;GO WRITE REGISTER(S)

WITH PUT SUBROUTINE

*GO TO 130% IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEF INED BY PUT SUBROUTINE

:GO TO 3508 IF ERROR

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO READ REGISTER(S) WITH GET SUBROUTINE
:GO TO 1408 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE

*GO TO 3508 IF ERROR

:CHECK FOR ERRORS DURING WRITE OPERATION

045226

JSR

033176

1508

057742

033176

1608:

170$:

046060

NOP
EMT
JSR
JMP

001124

1508

PC.a(SP)+
3508

*RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR

PC.a(SP)+
3508

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

*RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

JMP

PC.DTASTS
1608

;G0 CHECK FOR PRIMARY ERRORS

:GO TO 1508 IF NO ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
:GO TO 1608 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
*GO TO 3508 IF ERROR

NOP
EMT
JSR

180%:

PC.PRIERR

JSR
BR
NOP
EMT
JSR
JMP

B8R

033176

032764

PC,PUT

:TERMINATE

;GO READ STATUS FOR WRITE COMMAND

104000

004736
000137

#RMOF, (R2)+
#RMBA. (R2)+
#RMWC. (R2)+
#RMCST, (R2)+
#4200, (R2)+

:WAIT FOR COMMAND TO COMPLETE

104000

004736
000137

SEQ 0152

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

104000

004736
000137

12-81

1808

3508

*GO TO 1808 IF NO ERROR
:GO TO 3508 IF ERROR

; CHANGE LOOP ADDRESSES
MOV
BR

#1908, SLPERR
2008

;SKIP TO NEXT OPERATION

""'tfitttttttttt'tttt!'t"'t't'ttl!ltttltt'.ttttt'ttl'tltfitt

tt!'tt

K 12

CZRMOAO RMOS/3/2 FCINL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-82
123
WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING

2719
2720
2721 032764
2722
2723
2724 032764
032770

;LOOP #3

SEQ 0153

READ

190$:

004737
054130

sPREPARE

040472

DEVICE

JSR
.WORD

FOR READ OPERATION
PC,TSTPRP
;PREPARE DEVICE FOR TEST
0564130
sTASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

032772
032774
032776

B8R
NOP
EMT

033176

200%:

200%
3508

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI''
OR 'PIP'' IS SET
;VERIFY RECALIBRATION

;GO _TO 2008 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 3508 IF ERROR

2408

000051
001551
000006
000032
000034

001410

¢READ DATA FROM DEVICE

MOV
MOV
mMovB
MOvB

mMov8
movB

033052
033056
033060
033062
033064
033070

044500

033176

JSR
BR
NOP
EMT

250%:

MICD'GO,RMCS10
APUTINX,R2
#RMDA
, (R2) +
#RMOF
, (R2) +
ARMDC, (R2) +
#RMB
, (R2)
A
+
#RMWJC, (R2) +
#RMCST, (R2)+

:READ DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

#200, (R2)
PC,PUT

2508

3508

;GO0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO _TO 2508 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 350% IF ERROR

033070

004737

044144

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

033074

004737

045042

;WAIT FOR COMMAND TO COMPLETE
PC., TIMOUT
JSR

033100
033104
033106
033110
0331°2
033116

004737

044230

033116
033122
033124

033176

045226

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
B8R
260%
;GO _TO 260% IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
JERROR # DEFINED BY GET SUBROUT INE
JMP
3508
;GO TO 350% IF ERROR
260%:
;CHECK FOR ERRORS DURING READ OPERATION
PC,PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS
BR
;CJ TO 2708 IF NO ERROR
2708
NOP
JRETURN HERE IF ERROR

cgmo RMO5/3/2 FCINL TST 3

MACRO v03.01

L 12

11-APR-80 13:39:53 PAGE 12-83

WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING

033126
033130

033132

2753 033136
2756 033136
033142
033144
033146
033150

033152

2755 033156
2756
2757 033156
2758 033156
033162
033164

033166
033170
033172
2759 033176
2760
g;g} 033176

104000
004736

000137

033176

004737
000405
000240
104000
004736

057742

000137

033176

004737
000405
000240
104000
004736
000137

046060

EMT
JSR
270$:

2808
:
2908$:

033176

JMP

JSR
BR
NOP
EMT
JSR

JMP

JSR
BR
NOP
EMT
JSR

3008
:

PC,a(SP)+

350s

PC,DTASTS
2808

PC,a3(SP)+

3503

PC,SECERR
3008
PC,a(SP)+
3503

SEQ 0154

;ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
:GO TO 2808 IF NO ERROR
‘RETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;GO CHECK FOR SECONDARY ERRORS
:GO TO 3008 IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR

3508 :

2763

tttttttttttttttt*t.t'titttttttl'tttttttttttttttttttttttttttttt'

TRTEST 24

033176
033176
033200
033202
033206
033212
76 033216

000004
000240
012706
013700
013701
012737

78724
001100

001276
001464
000024

001226

2765

5;29

“LooP

g;gg 033224

108 :

2770
2771 033224
033230

033232

033234
033236
033240
5;;5 033244

2774
2775 033244

WRITE, READ EARLY PEAK SHIFT

ttttltttttttttttttttttttttt't'tttttttt!ttttttttttttttt'tt'ttttt

004737
154130

SCOPE
NOP
MOV
MOV
MOV
MOV

000404

A AN A A AN A AR R AN

012737

000000

R AN IR RN RN N RN NN AN AN RN N RN AN AR

FORMAT ,WRITE ,READ

B8R
034204

$BASE , RO
TSTQUE ,R1
#24 ,$TESTN

NN AN AN NRAAANNRR

;PREPARE THE DEVICE FOR FORMAT OPERATION
JSR
PC.TSTPRP
;PREPARE DEVICE FOR TEST
LWORD
154130
*TASK DESCRIPTOR AS FOLI OWS:
:SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
SPACK ACKNOWLEDGE IF VOLUME NOT VALID
SVERIFY PACK ACKNOWLEDGE

040472

000240
104000
000137

#STACK, SP

;SCOPE CALL
:START OF TEST
SINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
*;SET TEST NUMBER IN APT MAIL BOX

208 :

001444

NOP
EMT
JMP

208
3508

*RECALIBRATE IF "'SKI""
OR 'PIP"* IS SET
*VERIFY RECALIBRATION

:G0 TO 208 IF NO ERROR

*RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
:GO TO 3508 IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER
MOV
#0 ,RMDCO
:CYLINDER = 0

CZRMOAQ RMOS/3/2 FCINL TST 3
MACRO v03.01
124
WRITE, READ EARLY PEAK SHIFT

2776 033252

012737

000000

2778 033266
2779 033274
g;g? 033302

012737
012737
012737

177376
010000
000063

004737
000405
104401
104000
000137

041416
070230

012737
012737
004737

072142
000001
063344

012702
112722
112722
112722
112722
112722
112722
112712

001551
000034
000006
000004
000002
000032
000000
000200

004737

044500

2777 033260

2782

033310
033314
033316
033322
033324
2783 033330
2784 033330
2785 033336
g;gg 033344

2788

2789 033350
2790 033354
2791 033360
2792 033364
2793 033370
796 033374
2795 033400
2796 033404
2797 033410
2798 033410

033414

033416
033420
033422
gggg 033426

012737

000404

106314

034204

004737

044144

004737

045042

044230

033446
033450

004737
000404
000240
104000
000137

2810 033454
033460
033462
033464
033466

004737
000405
000240
104000
004736

2801

2802 033426

2803

2804 033432

2805
2806 033436
033442
033444

gggg 033454

2809

033470

2811 033474

000137

034204

057742

034204

SEQ 0155

001416

MOV

#0 ,RMDAO

;TRACK = 0, SECTOR = 0

001412
001442
001410

MOV
MOV
MOV

#-258. ,RMJCO
NFMT16.RMOF O
MJH ! GO.RMCS10

:2 + 256. WORDS (2'S COMP)
:16 BIT FORMAT
‘WRITE HEADER AND DATA COMMAND

001414

034204

000240
104000
000137

M12

11-APR-80 13:39:53 PAGE 12~84

001174
001176

MOV

#80F ONE , RMBAOD

:VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT
BR
25§
TYPE
,SCTMSG
EMT
JMP
3508
258%:
MOV
#EARLY,$TMPO
MOV
#1,$TMP
JSR
PC. GENBUF

*BUS ADDRESS

;CALL BAD SECTOR MODULE
:GO TO 25% IF NO ERROR
:TYPE BAD SECTOR MESSAGE
*ERROR # DEFINED BY BADSCT SUBROUTINE
:GO TO 3508 IF ERROR

;STARTING ADDRESS OF PATTERN
*RANGE OF PATTERN
:GO GENERATE BUFFER FOR FORMAT

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

308:

MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
JSR

B8R
408

NOP
EMT
JMP

#PUTINX ,R2
#RMDC. (R2)+
#RMDA. (R2)+
#RMBA. (R2)+
ARMWC. (R2)+
#RMOF
. (R2)+
#RMCST,(R2)+
#200, (R2)

R2 = BYTE ENTRY POSITION

:TERMINATE TABLE

PC,PUT

.GO WRITE REGISTER(S) WITH PUT SUBROUTINE

3508

*RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
16O TO 3508 IF ERROR

:GO TO 408 IF NO ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

JWAIT FOR COMMAND TO COMPLETE
JSR

PC.TIMOUT

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

. GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR
508
:GO TO S0$ IF NO ERROR
NOP
*RETURN HERE IF ERROR

508 :

EMT
JMP

3508

<VERIFY NO ERRORS DURING FORMAT
JSR
BR
NOP
EMT

JSR

60$:

JMP

PC,DTASTS
60$

PC,a(SP)+

3508

*ERROR # DEFINED BY GET SUBROUTINE
260 TO 3508 IF ERROR

:GO VERIFY RESULTS OF DATA TRANSFER
:G0 TO 608 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUT INE

:GO BACK FOR MORE ERROR CHECKS

GO TO 3508 IF ERROR

CZRMOAO RMOS/3/2 FCINL TST 3
WRITE,

2813
2814 033474
2875 033502
2816
2817
2818
2819
2820 033504
2821
2822
2823 033504
033510

033512
033514
033516
033520
2824 033524

2827 033524
2828 033524
2829 033532
2830 033540
2831 033546
2832 033552
2833 033556
2834 033562
2835 033566
2836 033572
2837 033576
2838 033602
2839
2840 033606
033612
033614
033616
033620
2841 033624
2842

MACRO v03.01

READ EARLY PEAK SHIFT

012737
000410

033504

001124

N 12
11-APR-80 13:39:53 PAGE 12-85

SEQ 0156

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV

#708, SLPERR

B8R

80$

ttttttttttttttttittttttttttttttttttttttttttttttttttttt*tttttttt

LOOP 42

WRITE ,READ

70%:

004737
154130

;PREPARE

040472

.wono

000404
000240
000137

NOP

EMT

034204

80%:
138;’5

012737

DEVICE

JSR

177400
106320
000061

001551
000006

001412
001414
001410

JMP

MOV

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

034204

044144

004737

045042

004737

044230

000240
104000

154130

80$

3508

;PREPARE DEVICE FOR TEST

*TASK DESCRIPTOR AS FOLLOWS:

*SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
SVERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF ''SKI'*
OR 'PIP'' IS SET
*VERIFY RECALIBRATION

:GO TO 80$ IF NO ERROR

:RETURN HERE

IF ERROR

:ERROR # DEFINED BY TSTPRP SUBROUTINE

:GO TO 3508 IF ERROR

DATA TO THE DRIVE

MOV
MOV
MOV

044500

FOR WRITE OPERATION

PC,TSTPRP

JSR

NOP
EMT

130%:

#-256. ,RMWCO
;CHANGE WORD COUNT
#BUF ONE +4 , RMBAD
; CHANGE ADDRESS
MID ! GO,RMCS10
*WRITE DATA COMMAND

#PUTINX ,R?2

:LOAD PUT REGISTER INDEX TABLE

WRMDA, (R2)+
#RMDC. (R2)+
#RMOF
. (R2)+
#RMBA. (R2)+
#RMWC. (R2)+
WRMCST,(R2)+

#200, (R2)+
PC,PUT

1308

3508

;TERMINATE TABLE
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

:GO TO 1308 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE

:GO TO 3508 IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE

JSR

PC, TIMOUT

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
JSR

B8R

NOP

EMT

PC,GET

1408

;GO READ REGISTEP(S) WITH GET SUBROUTINE

:GO TO 1408 IF NO ERROR

*RETURN HERE

ERROR

;ERROR # DEFINED BY GET SUBROUTINE

B 13
11-APR-80 13:39:53 PAGE 12-86

CZRMOAO RMOS5/3/2 FCINL TST 3
MACRO v03.01
124
WRITE, READ EARLY PEAK SHIFT

033646
2849 033652

000137

2852 033652
033656

034204

JMP

:
1408

JSR

NOP

1508

034204

JSR

PC.DTASTS

046060

012737
000410

033742

001124

IF ERROR

*ERROR # DEFINED BY PRIERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

JSR
JMP

PC,a(SP)+
3508

:GO BACK FOR MORE ERROR CHECKS
GO TO 3508 IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

NOP

EMT
JSR
JMP

1805

:GO TO 1508 IF NO ERROR

*RETURN HERE

*GO TO 1608 IF NO ERROR

034204

3508

;GO CHECK FOR PRIMARY ERRORS

1608

NOP
EMT

1608

1508

PC,a(SP)+

034204

PC,PRIER

EMT
JSR

JMP

057742

2860 033732
2861 033740

;GO TO 3508 IF ERROR

;CHECK FOR ERRORS oun1~e WRITE OPERATION

045226

033726
2857 033732

3508

SEQ 0157

1808

PC,a(SP)+
3508

*RETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUTINE

2GO TO 1808 IF NO ERROR

*RETURN HERE

ERROR

:ERROR # DEF INED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
*GO TO 3508 IF ERROR

s CHANGE LOOP ADDRESSES
MOV
BR

#1908, SLPERR
2008

i*t'ti**'t*tt*fi**tit'tt'fi**fittit***t*ttfit*ttfit*"ttttiitttttt*kt

‘oo #3
2866 033742
2869 033742
033746

READ

1908:

004737
154130

:PREPARE DEVICE FOR READ GPERATION

040472

JSR

LWORD

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST

*TASK DESCRIPTOR AS FOLLOWS:

*SELECT DEVICE & VERIFY DEVICE AVAILABLE
*CLEAR CONTROLLER & SELECT DEVICE

:VERIFY CONTROLLER CLEAR OPERATION
‘PACK ACKNOWLEDGE IF VOLUME NOT VALID

033750
033752
033754
033756
2870 033762
2871
2872

2873 033762
2874 033762
2875 033770
2876 033776
2877 034002

B8R

NOP

034204

2008:

EMT
JMP

2008
3508

*VERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ‘SKI'* OR 'PIP'*
IS SET
*VERIFY RECALIBRATION

:GO TO 200 IF NO ERROR

*RETURN HERE

ERROR

*ERROR # DEFINED BY TSTPRP SUBROUTINE
*GO TO 3508 IF ERROR

§§5§° DATA FROM DEVICE

000071
107324
001551
000006

0141 0
0141 4

mov

#RD'GO,RMCS10

;READ DATA COMMAND

MOV

#PUTINX R

:LOAD PUT REGISTER INDEX TABLE

MOV

MOVB

#BUF TWO+4 ,RMBAO

#RMDA, (R2)+

: CHANGE BUFFER

CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01
124
WRITE, READ EARLY PEAK SHIFT

2878 034006

000200

c 13

11-APR-80 13:39:53 PAGE 12-87

SEQ 0158
MOVR
MOVB
MOVB
MOVB
MOVB

#RMOF
, (R2) +
#RMDC, (R2)+
#RMBA, (R2) +
#RMWC, (R2) +
#RM(CST, (R2) +

JSR

PC,PUT

MOvVB

044500

NOP

2886
2887
2888

2889
2890
2891
2892
2893

034204

004737

044144

004737

045042

004737
000404
000240

044230

000137

034204

004737
000405

045226

104000

2894
2895

2897

EMT

250%:

057742

034204
046060

034204
043602

350%

JWAIT FOR COMMAND TO COMPLETE
JSR

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO _TO 2508 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

PC, TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR

EMT

260%:

JMP

2608

3508

;GO TO 2608 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUT INE
;GO TO 3508 IF ERROR

;CHECK FOR ERRORS DURTING READ OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS

B8R

NOP
EMT
JSR

270%:

280%:

JMP

JSR
BR
NOP
EMT
JSR
JMP
JSR

NOP
EMT
JSR

300%:

JSR
.WORD
.WORD

034204

2505

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

NOP

034204

#200, (R2)

NOP
EMT

JMP

2708

PC,a(SP)+

;GO TO 2708 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
2GO BACK FOR MORE ERROR CHECKS

3508

;GO TO 3508 IF ERROR

PC,DTASTS
280%

;GO VERIFY RESULTS OF DATA TRANSFER

;GO _TO 280% IF NO ERROR

JRETURN HERE

IF ERROR

PC,a(SP)+

sERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

PC_,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

3508

300s

3508

PC,CMPBUF
BUF ONE +4
BUF TWO+4

310s
350%

;GO TO 3508 IF ERROR

;G0 _TO 3008 IF NO ERROR

;GO TO 3508 IF ERROR

;GO COMPARE WRITE, READ DATA BUFFERS
sSTARTING ADDRESS OF WRITE BUFFER
: STARTING ADDRESS OF READ BUFFER

;GO TO 3108 IF NO ERROR

;RETURN HERE

IF ERROR

;ERNOR # DEFINED BY CMPBUF SUEROUTINE

.GO TO 3508 IF ERROR

D 13
11-APR-80 13:39:53 PAGE 12-88

SEQ 0159

2904 034204
2905
2909 034204

310%:

350s%:

2908

;.-tttttttttttttttttttttttttttt.tttttttttttttttttttttttttttttttttt

;*TEST 25

034204
034204
034206
034210
034214
034220
0342246

WRITE, READ MIXED PEAK SHIFT

;.-ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

000004
000240
012706
013700
C13701
012737

TST25:
001100
001276
001464
000025

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$8ASE ,RO
TSTQUE ,R1
#25,8TESTN

:SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
;RO = UNJBUS ADDRESS
:(R1) = DEVICE BEING TESTED
2;SET TEST NUMBER IN APT MAIL BOX

2910

:'-*tttttttttttttttttttttttttttttttttttttttttttttttttttttfitttttttt

gg}z 034232

108 :

gg};

2915

2916 034232
034236

034240
034242
034244
034246
Sg;g 034252

2919
2920 034252

2921 034260

2922 034266
2923 034274
2924 034302

gggg 034310

2927

;LOOP #1

004737
154130

000404
000240
104000
000137

035212

012737

000000

012737

012737
012737
012737

;PREPARE

040472

000000

106314
177376
010000

012737

000063

041416

034316
034322
034324
034330
034332
2928 034336
2929 034336
2930 034344
53%} 034352

004737
000405
104401
104000
000137

070230

012737
012737
004737

071626
000200
043344

2933
2934 034356

012702

001551

035212

20%:

001444

001416

001414
001412
001442

001410

FORMAT ,WRITE ,READ

THE DEVICE FOR FORMAT OPERATION

JSR
.WORD

BR
NOP
EMT
JMP

PC,TSTPRP
154130

20%
3508

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE

JRECALIBRATE IF *'SKI''
OR 'PIP'' IS SET
JVERIFY RECALIBRATION

;GO TO 208 IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 350% IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER
MOV
#0,RMDCO
;CYLINDER = 0
MOV

MOV
MOV
MOV

MOV

#0 ,RMDAO

#BUF ONE ,RMBAO
#-258. ,RMWCO
AFMT16,RMOFO

#WH!GO,RMCS10

;JVERIFY THAT SECTOR IS NOT BAD
JSR
PC ,BADSCT
BR
25%
TYPE
,SCTMSG
EMT
JMP
3508
25%:
001174
MOV
MM]IXED,$TMPO
001176
MOV
#128.,$TMP1
JSR
PC,GENBUF

;TRACK = 0,

SECTOR = 0

;BUS ADDRESS
;2 + 256. WORDS (2'S COMP)
;16 BIT FORMAT

JWRITE HEADER AND DATA COMMAND

;CALL BAD SECTOR MODULE
;GO TO 25% IF NO ERROR
;TYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROUTINE
;GO TO 3508 IF ERROR

;STARTING ADDRESS OF PATTERN
RANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

JLOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
MoV
APUTINX ,R2
;RZ2 = BYTE ENTRY POSITION

CZRMOAO RMOS/3/2 FCTNL TST 3
MACRO v03.01
124
WRITE, READ EARLY PEAK SHIFT

2935 034362
2936 034366
2937 034372

2938 034376
2939 034402

29460 034406
29461 034412
2942 034416
2943 034416
034422
034424
034426
034430
ngg 034434
2946
947 034434

2948

949 034440

295¢

2951 034444
034450
034452
034454
034456
Sggg 034462
2954

2955 034462
034466
034470

034472
034476
034476
gggg 034502

2958

2959 034502

2232(1) 034510

112722
112722
112722

000034
000006
000004

MOVB
MOVB
MOVB

#RMDC
, (R2) +
#RMDA, (R2) +
#RMBA, (R2) +

112722
112712

000000
000200

MOVB
MOVB

#RMCST,(R2)+
#200, (R2)

004737
000404
000240
104000
C00137

044500

JSR
BR
NOP
EMT
JMP

PC,PUT
408

004737

044144

004737

045042

004737
000404
000240
104000
000137

044230

004737
000405
000240

057742

112722
112722

000002
000032

30%:

408%:

035212

012737

034512

SEQ 0160

#RMW(, (R2) +
W#RMOF
, (R2) +

;s TERMINATE TABLE

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 408 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 3508 IF CRROR

350%

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;G0 TO GETSTS SUBROUTINE

;WAIT FOR COMMAND TO COMPLETE
JSR

PC,TIMOUT

.GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR
BR

035212

104000
004736
000137

000410

MOVB
MOVB

035212

2962

2963
2964
2965 034512
2966
2967
2968 034512
034516

£ 13

11-APR-80 13:39:53 PAGE 12-89

NOP
EMT
JMP

50%:

PC,GET
50%

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 50% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 3508 IF ERROR

3508

JVERIFY NO ERRORS DURING FORMAT

JSR
BR
NOP
EMT
JSR
JMP

60$:

001124

PC,DTASTS
603

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 60% IF NO ERROR
JRETURN HERE IF ERROR

PC,a(SP)+
3508

JERROR # DEFINED BY DTASTS SUBROUTINE
GO0 BACK FOR MORE ERROR CHECKS
;G0 TO 350% IF ERROR

sMOVE LOOP ADDRESSES TO NEXT OPERATION
MOV

B8R

AR AN NN AR A R

LOOP n2

#70% ,$LPERR

80%
A

AR A

JSKIP TO WRITE OPERATION

A A AN A A A A R A AR A R R AR R R AR RN AR NNANNNANARNNRAR

WRITE ,READ

70$:

004737
154130

040472

;PREPARE DEVICE FOR WRITE OPERATION
JSR
PC,TSTPRP
sPREPARE DEVICE FOR TEST
.WORD
154130
s TASK DESCRIPTOR AS FOLLOWS:

SSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

JRECALIBRATE

"'SKI''
OR "PIP'' S SET

:VERIFY RECALIBRATION

-—

CZRMOAO RMOS/3/2 FCTNL TST 3
MACRO v03.01
125
WRITE, READ MIXED PEAK SHIFT

000404
000240
104000

000137

035212

80%:

F 13

11-APR-80 13:39:53 PAGE 12-90
BR
NOP
EMT
JMP

80%

3508

SEQ 0141

;GO _TO 80% IF NO ERROR
JRETURN HERE IF ERROR

JERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 3508 IF ERROR

WRITE DATA TO THE DRIVE

012737
012737

177400
106320
000061
001551
000006
000034
000032
000004
000002
000000
000200

001 412
001 414
001 610

120%:

Mov8
MOvVB
MOVB
MOVB
MovB
mMovse

044500
104000

2986 034632
2987
2988
2989

2991
2992

2993 034642

JSR
BR
NOP

000137

035212

004737

064144

004737

045042

004737
000404
000240

044230

000137

035212

004737
000405
000240

045226

104000

EMT

130%:

2998 034700
2999 034700

004737
000405
000240

035212
057742

3000 034720
3001 034720

035212

004737

046060

#MID ! GO,RMCS10

#PUTINX
,R2
#RMDA, (R2) +
ARMDC, (R2) +
#RMOF
, (R2) +
#RMBA, (R2) +
A#RMWC, (R2) +
#RM(CST,(R2)+
#200, (R2)+
PC,PUT

1308

3508

;WAIT FOR COMMAND TO COMPLETE
JSR

;WRITE

DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

s TERMINATE TABLE
;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 130% IF NO ERROR

;JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

PC.,TIMOUT

;G0 TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
JSR
PC,GET
;GO READ REGISTER(S) WI'H GET SUBROUTINE
140%
BR
;GO TO 140% IF NO ERROR
NOP
;RETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUT INE
JMP
3508
;GO TO 3508 IF ERROR

1640%:

s CHECK FggRERRORS DURING WRITE OPERATION
PC,PRIERR
;60 CHECK FOR PRIMARY ERRORS

150%:

104000

004736
000137

#-256. ,RMWCO
s CHANGE WORD COUNT
#BUF ONE +4 ,RMBAO
; CHANGE ADDRESS

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
JSR
;G0 TO GETSTS SUBROUTINE

104000

004736
000137

MOV
MOV
MOV
MOV
movs

160%:

150%

2GO TO 1508 IF NO ERROR

PC,a(SP)+

;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

PC,a(SP)+

JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
26O BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

8R
NOP
EMT
JSR
JMP

3508
160%

3508

JRETURN HERE IF ERROR

;GO TO 350% IF ERROR

;G0 TO 160% IF NO ERROR

;GO TO 3508 IF ERROR

CZRMOAQ RMOS/3/2 FCTNL TST 3
MACRO v03.01
125
WRITE, READ MIXED PEAK SHIFT

034724
034726
034730
034732
034734
034740

034740
034746

G 13
11-APR-80 13:39:53 PAGE 12-91
SEQ 0162
BR
NOP

180%

JSR
JMP

PC,a(SP)+

EMT

035212

012737
000410

034750

180%:
HANGE

001 124
e

034750
034754

3508

AR AR AR AR AR A AN

A AR

ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

LOOP ADDRESSES
#1908, SLPERR
MOV
BR
200%

;LOOP #3
034750

;GO TO 180% IF NO ERROR

JRETURN HERE

;SKIP TO NEXT OPERATION
AN AN RN R R A AR R AN RN NN AN AR AN N RN ANNRCRRN

READ

190%:

004737
154139

000404
000240
104000
000137

012737
012737

040472

035212

107324
000071
001551
000006
000032
000034
000004
000002
000000
000200

sPREPARE DEVICE FOR READ OPERATION
PC,TSTPRP

BR
NOP

200%

EMT

200%:

156130

3508

:READ DATA FROM DEVICE
240%:
MOV
MOV
MOV

#BUF TWO+4 ,RMBAO

#RD !GO ,RM(CS10
#PUTINX ,R2
#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
#RMBA, (R2) +
#RMWJC, (R2) +
#RMCST, (R2)+

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI''
OR 'PIP'' IS SET
;VERIFY RECALIBRATION

;GO _TO 2008 IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 3508 IF ERROR

; CHANGE BUFFER
JREAD DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

#200, (R2)

044500

035212

JSR
.WORD

PC,PUT

2508

250%:

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO TO 2508 IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBRQUT INE

;GO TO 3508 IF ERROR

004737

044144

sSETUP GET INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
JSR
;GO TO GETSTS SUBROUTINE

004737

045042

JWAIT FOR COMMAND TO COMPLETE
PC, TIMOUT
JSR

;GO TO TIMOUT SUBROUTINE

(2 Wam)

—

ro~N

0 RMOS/3/2 FCTNL TST 3
WRITE,

035072
035076
035100

MACRO v03.01

READ MIXED PEAK SHIFT

004737
04

11-APR-80 13:39:53 PAGE 12-92

;GO READ STATUS FOR READ OPERATION
PC,GET
JSR
.GO READ REGISTER(S) WITH GET SUBROUTINE
BR
2608
;GO _TO 2608 IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
JERROR # DEFINED BY GET SUBROUT INE
JMP
3508
;GO TO 3508 IF ERROR
260%:

044230

035212

;CHECK FOR ERRORS DURING READ OPERATION
JSR
PC,PRIERR
.60 CHECK FOR PRIMARY ERRORS

045226

B8R

NOP

035212

3043
3044

270%:

057742

035140
035142
035144
3045 035150
3046 035150
035154
035156
035160
035162
035164
3047 035170
3048 035170
035174
035176
035200
035202
035204
035206
3049 035212
3050
3051 035212
3052
3053

000137

035212

004737

046060

035212

JSR

PC,DTASTS

NOP
EMT
JSR

004737

043602

106320
107324

000240
104000
000137

300%:

PC,a3(SP)+
3508

JSR
BR

PC,SECERR
300s

EMT
JSR

PC,a3(SP)+

JSR
.WORD
.WORD

PC.,CMPBUF
BUFONE+4
BUF TWO+4

JMP

NOP

310%:

EMT
JMP

035216
035222
035226
035232

ERROR

:GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 280% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

;GO CHECK FOR SECONDARY ERRORS

;GO TO 3008 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

3508

;GO TO 3508 IF ERROR

;GO COMPARE WRITE, READ DATA BUFFERS

;STARTING ADDRESS OF WRITE BUFFER
: STARTING ADDRESS OF READ BUFFER

3108

;GO TO 3108 IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY CMPBUF

350%

;GO TO 350% IF ERROR

SUBROUTINE

350%:
AR AR AR

AR AR AR AR A AR AR

*TEST 26

035212
035212
035214

;ERROR # DEFINED BY PRIERR SUBROUT INE

2803

JMP

035212

;GO TO 2708 IF NO ERROR

{RETURN HERE

PC,a(SP)+
3508

280%:

2705

EMT
JSR
JMP

NOP

000137

SEQ 0163

WRITE,

A A AR AR AN R R AN AN AR AN RN AR AR AN RANN SRR

READ EACH TRACK

t't'titfitttttttt't.tttttt*tttt*fitfittiittttfitttttttttttti'tt**tt

000004
000240
012706
013700

013701
012737

TSTZb

001100
001276
001464
000026

SCOPE
#STACK,SP

JINITIALIZE STACK POINTER

MOV

TSTQUE ,R1

;(R1)

MOV

001226

;SCOPE CALL

NOP
MOV

MOV

$8ASE RO

#26,8TESTN

;START OF

TEST

;RO = UNJBUS ADDRESS

= DEVICE BEING TESTED

;.SET TEST NUMBER IN APT MAIL BOX

ttttttt'tttt'tttttttt"tt'ttfltttttttttttttttttttttttfitttttttttt

LOOP ”
108
:

FORMAT ,WRITE ,READ

CZRMOAO RMOS/3/72 FCINL TST 3
126
WRITE, READ EACH TRACK
3059
3060
3061 035240
035244

004737
154130

MACRO v03.01

I 13

11-APR-80 13:39:53 PAGE 12-93

;PREPARE

060472

THE

JSR

.WORD

DEVICE

SEQ 0164

FOR FORMAT OPERATION

PC,.TSTPRP

154130

;PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

035246
035250
035252
035254
3062 035260
3063
3064
3065 035260
3066 035266
3067 035274
3068 035274
3069 035302
3070 035310
3071 035316
3072
3073
035324
035330
035332
035336

000404
C00240
104000
000137

036240

012737
012737

000000
000000

012737
012737
012737
012737

106314
177376
010000
000063

004737
000405

041416

104401

104000
000137
012737
012737
004737

20%

EMT
JMP

3508

NOP

20%:

MOV

25%:

000200

044500

;GO _TO 208 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 3508 IF ERROR

#0,RMDAO

#0 ,RMDCO

sCYLINDER = 0
;TRACK = 0, SECTOR = 0

MOV

#BUF
ONE ,RMBAO

;BUS ADDRESS
;2 + 256. WORDS (2'S COMP)

#-258. ,RMWCO
#FMT16,RMOFO
#WH!GO,RMCS10

JVERIFY THAT SECTOR IS NOT BAD
JSR

001174
001176

;WRITE HEADER AND DATA COMMAND

;CALL BAD SECTOR MODULE

EMT
JMP

,SCTMSG

;:TYPE BAD SECTOR MESSAGE

350%

:GO TO 3508 IF ERROR

MOV

MMIXED,$TMPO

26%

TYPE

26%:

;16 BIT FORMAT

BC BADSCT

B8R

MOV
JSR

#128.,8TMP1
PC., GENBUF

;G0 TO 26% IF NO ERROR

;ERROR # DEFINED BY BADSCT SUBROUTINE
;STARTING ADDRESS OF PATTERN
JRANGE OF PATTERN

;GO GENERATE BUFFER FOR FORMAT

;LOAD PULOREGISTER INDEX TABLE FOR FORMAT OPERAT]I ION
#PUTINX
R
R2 = BYTE ENTRY POSITION
MOVB
#RMDC, (R2)+
MOVB
#RMDA.(RZ)*
MOVB
#RMBA, (R2) +

MOVB
MOVB
MOVB

30%:

MOvVB

ARMIC, (R2) +
#RMOF
, (R2) +
#RMCST,(R2)+

#200, (R2)

;FORMAT THE DRIVE
JSR

40%:

PC ,PUT

B8R

408

EMT
JMP

3508

NOP

036240

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI''
OR 'PIP'* IS SET
;VERIFY RECALIBRATION

MOV

MOV
MOV
MOV

036240
671626
000200
043344

VOLUME NOT VALID

;sLOAD PARAMETERS AND GENERATE DATA BUFFER

070230

001551
000034
000006
000004

3087 035420
3088 035424
3089
3090
3091 035424
035430
035432
035434
035436
3092 035442
3093
3094

s TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 40% IF NO ERROR
¢RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS

CgRWO RMOS/3/2 FCTINL TST 3
WRITE,

3095 035442

3096

2097 035446
3098
3099 035452
035456

035460
035462
035464
%}8? 035470
3102
3103 035470
035474
035476
035500
035502
035504
%}8? 035510

3106

3107 035510
%‘%8‘8; 035516

READ EACH TRACK

004737

044144

004737

045042

004737
000404
000240
104000
000137

044230

004737
000405
000240
104000
004735
000137

057742

012737
000410

MACRO Vv03.01

SEQ 0165

JSR

PC, TIMOUT

;GO TO GETSTS SUBROUTINE

2GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR
508
;G0 TO 50% IF NO ERROR

NOP
EMT
JMP

50%:

3508

JVERIFY NO ERRORS DURING FORMAT
JSR
PC,DTASTS
BR
60%
NOP
EMT
JSR
PC,a(SP)+
JMP
3508
60%:

036240

001124

3110

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;G0 _TO 60% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
2GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
BR

#70%,SLPERR
80%

;SKIP TO WRITE OPERATION

tttttttfittt'ttfifit't'tt"'*tittk't!*ittt.t*t*ttt‘t*tt*tt'titi'tt

%”;

LOOP #2

%”2 035520

708 :

3115
3116 035520
035524

PC,GETSTS

JWAIT FOR COMMAND TO COMPLETE

036240

035520

J 13
11-APR-80 13:39:53 PAGE 12-94

004737
154130

WRITE ,READ

;PREPARE DEVICE FOR WRITE OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
.WORD
154130
sTASK DESCRIPTOR AS FOLLOWS:

040472

:SELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

035526
035530
035532
035534
%Hg 035540

3119
3120 035540
3121 035540
3122 035546

3123 035554
3124 035562
3125 035566
3126 035572
3127 035575
3128 035602

000404
000240
104000
000137

012737
012737
012737
012702
112722
112722
112722
112722

036240

106320
177400
000061
001551
000006
000034
000032
000004

80%:

001414
001412
001410

BR
NOP
EMT
JMP

80%
350¢

VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE
JRECAL IBRATE IF ‘'SKI'* OR "PIP'* IS SET
;VERIFY RECALIBRATION

;GO TO 808 IF NO ERROR
sRETURN HERE IF ERROR
SERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3508 IF ERROR

;wRITE DATA TO THE DRIVE
120%:
MOV
#L3UF ONE +4 ,RMBAD
s CHANGE BUS ADDRESS
MOV
#-256. ,RMWCO
s CHANGE WORD COUNT

MOV
MoV
MOv8
MOvB
MOvB
MovB

Ml | GO,RMCS10
#PLTINX,R2
W#RMDA, (R2) +
#RMDC, (R2) +
#RMOF
, (R2) +
#RMBA, (R2) ¢

;WRITE DATA COMMAND
sLOAD PUT REGISTER INDEX TABLE

CZRMOAO RMOS/3/72 FCINL TST 3
126
WRITE, READ EACH TRA(K

3129 035506
3130 035612
g}%} 035616

112722
112722
112722

000002
000000
000200

3133 035622

004737

044500

035630
035632
035634
%}%é 035640

000240
104000
000137

036240

3137 035640

C04737

044144

3138
3139 035644

004737

045042

004737
000404
000240
104000

044230

035626

3136

3140

3141 035650
035654
035656
035660

035662
%}2% 035666

3144
3145 035666
035672
035674
035676
035700
035702
3146 035706
3147 035706
035712
035714
035716
035720
035722
3148 035726
3149 035726
035732
035734
035736
035740
035742
%}g? 035746
3152
3153 035746
%}gg 035754
3156

3157
3158
3159 035756
3160

000404

000137

036240

004737
000405
000240
104000
004736
000137

045226

004737
000405
000240
104000
004736
000137
004737
000405
000240
104000
004736
000137

012737
000410

MACRO v03.01

SEQ 0166

MovB
MOVB
MovB

#RMW(, (R2) +
WARMCST, (R2)+
#200, (R2)+

JSR

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

3508

JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

1308:

NOP
EMT
JMP

1308

;TERMINATE TABLE

GO TO 1308 IF NO ERROR

sSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC.GETSTS

JWAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

;GO TO GETSTS SUBROUTINE

GO TO TIMOUT SUBROUTINE

.GO READ STATUS FOR WRITE COMMAND

1408 :

JSR
BR
NOP
EMT
JMP

PC,GET
140

3508

;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO TO 1408 IF NO ERROR
JRETURN HERE IF ERROR
ERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

s CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC ,PRIERR
;GO0 CHECK FOR PRIMARY ERRORS
BR
1508
2GO TO 1508 IF NO ERROR
NOP
;RETURN HERE ]F ERROR
EMT
cERROR # DEF INED BY PRIERR SJUBROUTINE
JSR
PC,a(SP)+
2GO BACK FOR MORE ERROR CHECKS
JMP
3508
;GO TO 3508 IF ERROR
1508:
JSR
PC,DTASTS
;GO VERIFY RESULTS OF DATA TRANSFER
BR
1608
;GO TO 1608 IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
JERROR # DEFINED BY DTASTS SUBROUTINE
JSR
PC,a(SP)+
;GO BACK FOR MORE ERROR CHECKS
JMP
3508
;GO TO 3508 IF ERROR
1608
:
JSR
PC,SECERR
;60 CHECK FOR SECONDARY ERRORS
BR
180%
;GO TO 180% IF NO ERROR
NOP
JRETURN HERE [F ERROR
EMT
JERROR # DEFINED BY SECERR SUBROUTINE
JSR
PC,a(SP)+
;60 BACK FOR MORE ERROR CHECKS
JMP
3508
:GO TO 3508 IF ERROR
180%:

036240
057742

036240
046060

036240

035756

K13
11-APR-80 13:39:53 PAGE 12-95

001124

s CHANGE LOOP ADDRESSES
MOV
#1908 ,SLPERR
BR
2008

:SKIP TO NEXT OPERATION

NN R AR AR AR AR AN AN R R AN R R R AR AN AN R AR AN N AR A N RN N RN ANNNRNNRAAR

.LOOP #3
190$:

READ

CZRMOAO RMOS5/3/2 FCINL TST 3
126
WRITE, READ EACH TRACK

3161
3162 035756
035762

035764
035766
035770
035772
g}gz 035776

004737
154130

000404
000240
104000
000137

MACRO v03.01

L 13

11-APR-80 13:39:53 PAGE 12-96

SEQ 0167

;PREPARE DEVICE FOR READ OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
WORD
154130
s TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'' OR ‘PIP'' IS SET
;VERIFY RECALIBRATION
BR
2008
:GO TO 2008 IF NO ERROR
NOP
*RETURN HERE IF ERROR
EMT
cERROR # DEFINED BY TSTPRP SUBROUTINE
JMP
3508
*GO TO 3508 IF ERROR
2008

040472

036240

2165
3166 035776
3167 035776
3168 036004
3169 036012
3170 036016
3171 036022
3172 036026
3173 036032
3174 036036
3175 036042
g};g 036046

012737
012737
012702
112722
112722
112722
112722
112722
112722
112712

107324
000071
001551
000006
000032
000034
000004
000002
000000
000200

3178 036052
036056
036060
036062
036064

004737
000404
000240
104000
000137

044500

3181
3182 036070

004737

044144

sSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC.GETSTS
.60 TO GETSTS SUBROUTINE

2183
3184 036074

004737

045042

WAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

3185
3186 036100
036104
036106

004737
(L0404
000240

044230

036112

000137

036240

3189
3190 036116

004737

045226

036124
036126
036130

000240
104000
004736

g}gg 036070

036110

g;gg 036116
036122

036132

104000

000405

000137

036240

001414
001410

+READ DATA FROM DEVICE
2408:
MOV
#BUF TWO+4 ,RMBAO
MOV
#RD!GO,RM(CS10
MOV
#MPUTINX ,R2
MOVB #RMDA, (R2)+
MOVB
ARMOF
. (R2)+
MOVB
WRMDC. (R2)+
MOVB
#RMBA. (R2)+
MOVB
ARMWC. (R2)+
MOVB
#RMCST,(R2)+
MOVB
#200, (R2)

JSR
BR
NOP

2508 :

EMT
JMP

PC,PUT
2508

3508

; CHANGE BUS ADDRESS
;READ DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
:GO TO 2508 IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
*GO TO 3508 IF ERROR

;60 TO TIMOUT SUBROUTINE

;GO0 READ STATUS FOR READ OPERATION
JSR
PC.GET
;G0 READ REGISTER(S) WITH GET SUBROUTINE
BR
260%
;GO TO 2608 IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT

2608 :

JMP

3508

JERROR # DEFINED BY GET SUBROUTINE

*GO TO 3508 IF ERROR

. CHECK FOR ERRORS DURING READ OPERATION
JSR
PC ,PRIERR
. G0 CHECK FOR PRIMARY ERRORS

NOP
EMT
JSR

JMP

270s

PC,3(SP)+

350s

:GO TO 2708 IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

CZRMOAO RMOS/3/2 FCTINL TST 3
126
WRITE, READ EACH TRA(CK

00473;

SEQ 0168

270%:

057742

036240

—

3191 036136
3192 036136
036142
036144
036146
036150
036152
036156
036156
036162
036164
036166
036170

036240

036240
105237
123737
101002
000137

001417
001417

;GO _TO 3008 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUT INE

PC,a(SP)+

;60 BACK FOR MORE ERROR CHECKS

3508

NOP
EMT
JMP

;GO TO 3508 IF ERROR

PC, CMPBUF

;G0 COMPARE WRITE, READ DATA BUFFERS

BUF ONE +4
BUF TWO+4

sSTARTING ADDRESS OF WRITE BUFFER
:STARTING ADDRESS OF READ BUFFER

3108

;GO TO 3108 IF NO ERROR

3508

;GO TO 3508 IF ERROR

RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPBUF SUBROUTINE

RMDAO+1
RMDAO+1,LSTRK+1

3508
25%
AR

AN AR

AN R AR A A

001100
001276
001464
000027

A AR

READ,

$BASE RO

TSTQUE ,R1

#27,$TESTN

.LOOP M

R R

AR AR A AR AN R AN ARRRAANNRRANRNNNRNA
AN AR

;RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED
;o SET TEST NUMBER IN APT MAIL BOX
NN AR A AR AR RN R ANRN RN AR RN RN

000404
000240
104000

RN RN RAANSY

;PREPARE DEVICE FOR FORMAT OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
. WORD
154130
s TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

036274
036276
036300

RNRANNANN NN

IN OFFSET MODE

FORMAT ,READ OFFSET,WRITE CHECK OFFSET IN BOTH DIRECTIONS

10%:

040472

AR A A AR AR

RN AR

CHECK MULTIPLE SECTORS

;SCOPE CALL
:START OF TEST
sINITIALIZE STACK POINTER

#STACK,SP

AR A AR AN

ESII

AR AN AN AR A AR NN AR AN

WRITE

A AR R AN R AR RN AR

001226

ADVANCE TO NEXT TRACK
DONE
:TEST NEXT TRACK

TST27

(6737
154130

;GO CHECK FOR SECONDARY ERRORS

3008

J*TEST 27

000004
000240
012706
013700
013701
012737

;GO TO 3508 IF ERROR

PC,SECERR

3508%:
AR AR

;G0 BACK FOR MORE ERROR CHECKS

3508

001333

035274

;GO _TO 280% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUSROUTINE

PC,a(SP)+

JSR
.WORD
. WORD
BR

310s:

;GO VERIFY RESULTS OF DATA TRANSFER

2808

JSR
BR
NOP
EMT
JSR
JMP

300%:

043602

PC,DTASTS

JSR
BR
NOP
EMT
JSR
JMP

280¢%:

046060

3195
3196

M3
11-APR-80 13:39:53 PAGE 12-97

MACRO v03.01

BR
NOP

EMT

208

VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF '‘SKI'* OR "PIP'* IS SET
;VERIFY RECALIBRATION

2GO TO 208 IF NO ERROR

cRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE

N 13

CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-98
127
READ, WRITE CHECK MULTIPLE SECTORS IN OFFSST MODE

5212 036502

000137

037422

JMP

3213

3214 036306

012737
012737
012737

ggsg 036344

012737

000000
000000
106314

012737
012737

176774
010000

004737
000405
104401
104000
000137

041416

037422

012737
012737
004737

071730
000001
043344

012702
112722
112722
112722
112722
112722
112722
112712

001551
000034
000006
000004
000002
000032
000000
000200

004737
000404
000240
104000
000137

044500

037422

004737

044144

3244 036474

004737

045042

3245
3246 036500

004737

044230

036506
036510
036512

000240
104000
000137

3249
3250 036516
036522
036524

004737
000405
000240

3222

036352
036356
036360
036364
036366
3223 036372
3224 036372
3225 036400
%S%g 036406
3228
3229 036412
3230 036416
3231 036422
3232 036426
3233 036432
3234 036436
3235 036442
3236 036446
3237 036452
3238 036452
036456
036460
036462
036464

ggzg 036470
3241

3242 036470

3243

036504

ggzg 036516

;G0 TO 3508 IF ERROR

: LOAD PARAMETERS AND GENERATE DATA BUFFER

3215 036306
3216 036314
3217 036322

3218 036330
3219 036336

3508

SEQ 0169

000404

000063

001444
001416
001414

001412
001442

057742

001174
001176

MOV
MOV
MOV

MOV
MOV

001410

070230

037422

208:

MOV

#0 ,RMDCO
#0.RMDAO
#BUF ONE , RMBAO

#-258.'?.RMUCO
#FMT16,RMOFO
#WH ! GO.RMCS10

JVERIFY THAT SECTOR IS NOT BAD
JSR
PC ,BADSCT
BR
25$
TYPE
.SCTMSG
EMT
JMP
3508
25%:
MoV
#ZEROS ,$TMPO
MOV
#1,$TMP
JSR
PC ., GENBUF

;CYLINDER = 0
*TRACK = 0, SECTOR = 0
‘BUFFER ADDRESS

;WORD COUNT FOR 2 SECTORS (2'S COMP)
216 BIT MODE
*WRITE HEADER

. CALL BAD SECTOR MODULE
:GO TO 258 IF NO ERROR
:TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE
160 TO 3508 IF ERROR
;:DATA PATTERN
;TO GENERATE BUFFER FOR FORMAT

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATION
MOV
#PUTINX ,R2
:BYTE ENTRY TABLE
MOVB #RMDC, (R2)+
MOVB
ARMDA. (R2)+
MOVS
#RMBA. (R2)+
MOVB
#RMWC. (R2)+
MOVB
ARMOF
. (R2)+
MOVB
#RMCST, (R2)+
MOVB #200, (R2)
:TABLE TERMINATOR
308:
JSR
PC ., PUT
;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
BR
40$
:G0 TO 408 IF NO ERROR
NOP
;RETURN HERE IF ERROR
EMT
JERROR # DEFINED BY PUT SUBROUTINE
JMP
3508
:GO TO 3508 IF ERROR

408 :

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

WAIT FOR COMMAND TO (OMPLETE
JSR

PC, TIMOUT

;G0 TO GETSTS SUBROUTINE

;G0 TO TIMOUT SUBROUTINE

:GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;G0 READ REGJSTER(S) WITH GET SUBROUTINE

B8R

508 :

NOP
EMT
JMP

50$

3508

cVERIFY NO ERROR DURING FORMAT
JSR
PC,DTASTS
BR
608
NOP

GO TO SO$ IF NO ERROR

;RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
26O TO 3508 IF ERROR

cGO VERIFY RESULTS OF DATA TRANSFER
;GO TO 60% IF NO ERROR
JRETURN HERE IF ERROR

MACRO v03.01

8 14
11-APR~80 13:39:53 PAGE 12-99

READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE

036526
036530
036532
3253 036536
3254 036536
3255
3256
3257 036544
3258 036552
3259
3260
3261 036560
3262
3263 036560
036564

104000

004736
000137

EMT
JSR
JMP

037422

SEa 0170

PC,a3(SP)+

3508

;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS

;GO TO 3508 IF ERROR

:ggv LOOP ADDRESSES TO NEXT OPERATION

012737

036560

001124

177000
106314

001412
001414

MOV

#70$,SLPERR

;ERROR LOOP ADDRESS

;LOCATE BUFFER ADDRESS AND WORD COUNT
MoV
MOV

#-256.*2 ,RMWCO

#B8UF ONE

,RMBAOD

;TWO SECTORS

;BUFFER ADDRESS

t*ttttttttt*ttt*t*fi*"t*.'*tttttttt*ttttt'tttitttttfit'ttt*tttfit

LOOP 2

708:
004737
154130

READ AND WRITE CHECK IN OFFSET MODE

;PREPARE DEVICE FOR READ OFFSET OPEATION
PC,TSTPRP
JSR
;PREPARE DEVICE FOR TEST
.WORD
154130
s TASK DESCRIPTOR AS FOLLOWS:

040472

sSELECT DEVICE & VERIFY DEVICE AVAILABLE

sCLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

037422

80%:
120%:

BR
NOP
EMT
JMP

;READ OFFSET

001551

MOV

044500

3282 036712
3283
3284

037422
000015
001551

112722
112722

000000
000200

004737

044500

037422

80%

350%

#PUTINX ,R2
#RMDA
, (R2) +
ARMDC, (R2) +
#RMOF
, (R2) +
A#RMBA, (R2) +
#RMWC, (R2) +

125%:

130$:

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF "'SKI'' OR ‘PIP'* IS SET
;VERIFY RECALIBRATION
;GO _TO 80$ IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3508 IF ERROR

:LOAD THE TABLE

;TABLE TERMINATOR

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 _TO 1258 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT INE

3508

;GO TO 350% IF ERROR

MOV

#OFFSET!GO,RMCS10
#PUTINX
.R2
H#RMCS1, (R2) +
#200, (R2) +

JSR

PC,PUT

NOP
EMT

VOLUME NOT VAL ID

#200, (R2)+

125%

001410

130s

3508

;WAIT FOR COMMAND TO COMPLETE

;0r FSET COMMAND

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO _TO 1308 IF NO ERROR

:RETURN HERE

IF ERROR

:ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

02X}

Cg;MOAO RMOS5/3/2 FCTNL TST 3

C 14
CZRMOAO RMOS/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-100
127
READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE

036712
3285
3286 036716
3287 036724
3288 036730
3289 036734
3290
329N 036740
036744
036746
036750
036752
3292 036756
3293
3294
036756
3295
3296
036762
3267
3258
3259 036766
036772
036774
036776
C37000

004737

045042

012737

000071
001551
000000
000200

JSR

001410

MOV
MOV
MOVB

044500

#200, (R2)

JSR

PC,PUT

NOP

EMT

004737

044144

004737

045042

004737
000404

044230

000240
104000
000137

135%:

JMP

;GO TO TIMOUT SUBROUTINE

#RD!GO,RMCS10
#PUTINX,R2
#RMCS1, (R2)+

MOVB

037422

PC, TIMOUT

SEQ 0171

;READ DATA COMMAND
:TABLE INDEX

;TABLE TERMINATOR
;GG WRITE REGISTER(S) WITH PUT SUBROUTINE

135s

;GO TO 1358 IF NO ERROR

*RETURN HERE

IF ERROR

*ERROR # DEFINED BY PUT SUBROUTINE

3508

*GO TO 3508 IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

;GO TO GETSTS SUBROUTINE

;WAIT FOR COMMAND TO COMPLETE

JSR

PC.TIMOUT

;GO TO TIMOUT SUBROUTINE

;READ STATUS FOR READ OFFSET OPERATION
JSR
BR

NOP

EMT

037422

JMP

PC,GET
1408

;GO READ REGISTER(S) WITH GET SUBROUTINE
GO TO 1408 IF NO ERROR
*RETURN HERE

IF ERROR

*ERROR # DEFINED BY GET SUBROUTINE

3508

:GO TO 3508 IF ERROR

%ESECK ERROR DURING READ OFFSET

004737
000405
000240

045226

JSR

104000

004736
000137

3304
3305

004737
000405
000240

037422

1508

057742

004736
000137

3306
3307

004737
000405
000240
104000
004736
000137

037064
037072

012737
000410

037422

1605

046060

037074

180%:

001124

1508

:GO TO 1508 IF NO ERROR

PC.a(SP)+
3508

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
160 TO 3508 IF ERROR

JSR
BR

PC,DTASTS
1608

;GO VERIFY RESULTS OF DATA TRANSFER
:GO TO 1608 IF NO ERROR

*RETURN HERE

ERROR

EMT
JSR
IMP

PC.R(SP)+
3508

:ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR

JSR
BR

PC,SECERR
1808

;GO CHECK FOR SECONDARY EXRORS
‘GO TO 1808 IF NO ERROR

NOP
EMT
JSR

037422

;GO CHECK FOR PRIMARY ERRORS

NOP
EMT
JSR
JMP

NOP

104000

PC.PRIERR

JMP

*RETURN HERE IF ERROR
*ERROR # DEF INED BY SECERR SUBROUT INE
*GO BACK FOR MORE ERROR CHECKS

PC.a(SP)+

3508

:G0 TO 3508 IF ERROR

; CHANGE LOOP ADDRESS
MOV
BR

R AR

A A A A A A A

#1908, SLPERR
2008

A AN AN AR AN A

<[ 0OP 3 WRITE CHECK OFFSET

;TO NEXT OPERATION

AR AN R AR R AN N AN AR R AN RN NN AR I AN

AN AN NN

C%;HOAO RMOS/3/2 FCTNL TST 3
READ, WRITE

3316 037074
3317
3318
3319 037074
037100

MACRO v03.01

CHECK MULTIPLE SECTORS

D 14
11-APR-80 13:39:53 PAGE 12-101

IN OFFSET MODE

SEQ 0172

190%:
004737
154130

sPREPARE DEVICE FOR READ OPERATION

040472

JSR
.WORD

PC,TSTPRP
154130

sPREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF vOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

037102
037104
037106
037110
037114

00404
000240
104000
000137

037422

200$:
;WRITE

037114
037114
037120
037126
037130
037134
037140
037144

012702
112722
112722
112722
112722
112722
112712

001551
000006
000032
000034
000004
000002
000200

037150
0371564
037156
037160
037162

004737
000404
000240
104000
000137

044500

037166
037166
037174
037200
037204

BR
NOP
EMT

2408%:

037422

012737
012702
112722
112712

000015
001551
000000
000200

037210
037214
037216
037220
037222
037226

004737
000404
000240
104000
000137

044500

037226

004737

045042

037232
0372640
3349 0372644
3350 037250
3351

012737
012702
112722
112712

000051
001551
000000
000200

001410

350%

CHECK DATA

#PUTINX ,R2
#RMDA, (R2) +
HRMOF
, (R2) +
H#RMDC, (R2) +
#RMBA, (R2) +
HRMWC
., (R2) +
#200, (R2)

JSR
BR
NOP
EMT
JMP

PC PUT
245%
3508

;TABLE TERMINATOR
;G0 WRITE REGISTER(S) WITH PUT SUBROUT INE
;G0 _TO 245% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

;SETUP OFFSET MODE FIRST
45%:
MOV
#OFFSET!GO,RMCS10
MOV
#PUTINX
,R2
MOVB
#RMCS1, (R2) +
MOvVB
#200, (R2)

2508%:

PC,PUT
2508
3508

;WAIT FOR COMMAND

JSR

001410

;GO _TO 2008 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3508 IF ERROR

IN OFFSET MODE

MoV
MOVB
MOvVB
MovB
MOVB
MovB
movB

JSR
BR
NOP
EMT

037422

200%

JRECALIBRATE IF ''SKI''
OR 'PIP'' IS SET
;VERIFY RECALIBRATION

TO COMPLETE

PC.,TIMOUT

;OUTPUT BUFFER

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO _TO 2508 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SIRI0UTINE
;GO TO 350% IF ERROR

;GO TO TIMOUT SUBROUTINE

JEXECUTE WRITE CHECK DATA COMMAND
MOV
#MJ(CD!GO,RMCS10
MOV
W#PUTINX
,R2
MovB
#RMCS1, (R2)+
MovB
#200, (R2)

RMOS5/3/2 FCTNL TST 3

READ,

WRITE

CHECK MULTIPLE

037254
037260
037262
037264
037266
037272

004737
000404
000240
104000
000137

037422

037272

004737

044144

037276

004737

045042

037302
037306
037310
037312
037314
037320

004737

044230

037320
037324
037326
037330
037332
037334
037340
037340

037344

MACRO v03.01
SECTORS

E 14
11-APR-80 13:39:53 PAGE 12-102

IN OFFSET MODE

044500

JSR

B8R

NOP

EMT

255%:

3508

:WAIT FOR COMMAND TO COMPLETE
JSR

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO _TO 255% IF NO ERROR

sRETURN HERE IF ERROR
-ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

PC.TIMOUT

;GO TO TIMOUT SUBROUTINE

;READ STATUS FORPgRéEE CHECK OFFSET OPERATION
JSR
;GO READ REGISTER(S)

B8R

NOP

EMT

037422

260$:

2603

3508

WITH GET SUBROUTINE

;GO TO 2608 IF NO ERROR
:RETURN HERE IF ERROR

sERROR # DEFINED BY GET SUBROUTINE
;GO TO 3508 IF ERROR

;CHECK ERROR DURING WRITE CHECK OFFSET OPERATION
JSR
PC.PRIERR
;GO CHECK FOR PRIMARY ERRORS
B8R
270s
;G0 TO 2708 IF NO ERROR

045226

NOP
EMT

037422

270%:

057742

JSR
JMP

PC.a(SP)+
3508

JSR

PC.DTASTS

B8R

037422

280%:

046060

000200

001442

000200
036536

001442

300$:

350%:

;GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 2808 IF NO ERROR

PC,a(SP)+

SERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

B8R

037422

2808

:RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

NOP
EMT
JSR

NOP

037422

255s

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC.GETSTS
;GO TO GETSTS SUBROUTINE

037346

PC,PUT

SEQ 0173

3508

3008

EMT
JSR
JMP

PC.a(SP)+
3508

BIT

#O
D, RMOF
F
O

BNE
BIS
JMP

3508
#OFD
, RMOF O
60%

sRETURN HERE

ERROR

;GO TO 3508 IF ERROR

;GO _TO 3008 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
.GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

:IN FORWARD DIRECTION OF OFFSET ?
sBRANCH IF SO
sSET TO FORWARD DIRECTION
;CHANGE OFFSET DIRECTION TEST AGAIN

CZRMOAQ RMOS5/3/2 FCINL TST 3
END OF SUB-PASS ROUTINE

MACRO V03.01

;

LSBTTL

SEQ 0174

END OF SUB=-PASS ROUTINE

;JTHIS IS THE END OF SUB-PASS ROUTINE.

;TERMINATE

)
€

THE OPERATION OF

THIS ROUTINE IS USED TO

THE CURRENT DEVICE UNDER TEST AND

JSELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES
sTO TEST, EXIT IS MADE TO 'SEOP' ROUTINE. OTHERWISE, RETURN

g
9
10
1"
12
13
14
15

F 14
11-APR-80 13:39:53 PAGE 13

;1S MADE TO 'READY' ROUTINE.
037422
037424
037429
037432
037436
037442
037444

16 037446
17 037452

000004
000240
013700
062700
(C€10037
005710
001402
000137
012737

$EOSP:
001464
000002
001464
064076
001466

001464

SCOPE
NOP
MOV
ADD
MOV
TST
BEQ

TSTQUE ,RO
;GET POINTER TO TSTQUE
#2 RO
+ADJUST POINTER TO NEXT DEVICE
RO, TSTQUE
;SAVE POINTER TO TSTQUE
(RO)
;ANY MORE DEVICES FOR TEST ?
1%
;BR IF NO
SHUT
;JUMP TO SHUT AND CHECK FOR CONTROL C
#TSTQUE+2, TSTQUE
JINITIALIZE POINTER TO FIRST DEVICE

1%:

JMP
MOV

.SBTTL

END OF PASS ROUTINE

JTEST QUE TABLE

".'tt'ttttttt*tttfifitt.tt'i'ttt'ttttt'ttfittttttttttt'tttt'ttttttttt

;*INCREMENT THE PASS NUMBER (S$PASS)

;*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY''
J*WHERE

;*]F
;*]F

037460
037460
037462
037466
037472
037476
037504
037506
037510
037512
037514
037516
037520
037524
037544

037544

037550
037552
037556

000240
005037
005037
005237
042737
005327
000001
003063
012737
000001
037506
104401
000407
013746

104405
104401
000421

XXXXX AND YYYYY ARE

DECIMAL NUMBERS

THERES A MONITOR GO TO IT
THERE ISN'T JUMP TO SHUT

$EOP:

001116
001206

001230
100000

037526

001230

NOP
CLR
CLR
INC
BIC
DEC
$EOPCT: .WORD
BGT
MOV
$ENDCT: .WORD
SEOPCT
TYPE
BR

;. 65%

001230

64%:

037560

;:67%:

037622
037622

013746

001126

037626
037630
037634
037640

104405
104401
005037
013700

001217
001126
000042

66%:

LASCIZ

MOV

$TSTNM
$TIMES
$PASS
#100000,8PASS
(PC)+
1
$DOAGN
(PC)+,a(PC)+
1
,65%
648

$PASS , - (SP)

:IYES
;cRESTORE COUNTER

;s TYPE ASCIZ STRING
:;GET OVER THE ASCIZ

;sSAVE S$PASS FOR TYPEOUT
. :TYPE PASS NUMBER

L67%
66%

MOV

$ERTTL,~(SP)

TYPDS
TYPE
CLR
$GET42: MOV

;o INCREMENT THE PASS NUMSER
;:DON'T ALLOW A NEG. NUMBER
2 .LOOP?

<12><15>/END PASS #/

TYPDS
TYPE
BR

_ASCIZ

;. ZERO THE TEST NUMBER
;. JERO THE NUMBER OF ITERATIONS

;.60 TYPE~--DECIMAL ASCII WITH SIGN
2. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

TOTAL ERRORS SINCE LAST REPORT /

LSCRLF
SERTTL
a#é?2 RO

;. SAVE SERTTL FOR TYFEOQUT
;. TOTAL NUMBER OF ERRORS
;.60 TYPE--DECIMAL ASC]] WITH SIGN
;. TYPE CARRJAGE RETURN, LINE FEED
;cCLEAR ERROR TOTAL
;sGET MONITOR ADDRESS

CZRMOAO RMOS/3/2 FCINL

END OF

PASS ROUTINE

037644
037646
037650
037652
037654
037656
037660
037660
037662
037664

TST

MACRO v03.01

SEQ 0175

001405
000005
004710
000240
000240
000240

000137
064076
377

G 14
11-APR-80 13:39:53 PAGE 13-1

$ENDAD:

$DOAGN:

377

000

$SRINAD:

$ENULL:

BEQ

$DOAGN

JSR
NOP
NOP
NOP

PC. (RO)

JMP
.WORD

a(P()+
SHUT
=1.-1.0

RESET

.BYTE
.EVEN

. +sBRANCH [F NO MON]TOR
;. CLEAR THE WORLD
;:GO TO MONITOR
;. SAVE ROOM
:JFOR
J.ACTN
s sRETURN
¢ sNULL CHARACTER STRING

CZRMOAO RM(OS/3/2 FCINL TST

SUBROUT INES

MACRO v03.01

SUBROUTINES
AR AN R AN

A AR AN A A AR

R AR A AR R AR NN RN AR A A AR NN NN AN RANN R NN

AR AR

ERROR TYPEOUT ROUTINE

;*THE ERROR TYPEQUT ROUTINE ASSEMBLES AND PRINTS INFORMATION
:*REGARDING THE DETECTION OF AN ERROR AS FOLLOWS:
M

LUNIT NUMBER,

TEST NUMBER,

;*PRINTED ON THE FIRST LINE;

ERROR NUMBER AND PROGRAM COUNTER ARE

i
.ERROR MESSAGE IS ASSEMBLED,
:*ONE OR MORE SUCCEEDING LINES:

oTM

nd nd
D and

nornonY — e

"SBTTL

N -2 OO 00 NN LS (WA = OO 00 ~J O

B (NN —

SEQ 0176
.SBTTL

.PAIRED LINES OF

FORMATTED AND PRINTED ON

ERROR HEADERS

:*ARE PRINTED AFTER THE ERROR MESSAGE.

037670
037670
037672
037700
037702

037706
037712
23 037716

037722
037724
037725
037726
037732
037740
037744
037750
037752
037753
037754
037760
037766
037770
037774

104414
032777
001402
000137
104401
104401

013746
104403
003
000

005037
013737
104401

013746

ERRTYP:

020000

141254

040420

1s:

003
000

104401

013746

BYTE
BYTE

CLR
MOV

040424

TYPE
MOV

TYPOS

040426
001130

.BYTE
BYTE

CLR
MOVB

040426

040452
040426

040461
001132

006
001

040042

104401
105037
105037
013700

1$
218

2 :

3
0
TSTAMB

STESTN, TSTNMB
LERTYO1
TSTAMB,
- (SP)

3
0

001217
040432
040433
040426

;o TYPE UNIT NUMBER
;.60 TYPE--OCTAL ASCII

;:TYPE 3 DIGIT(S)

;s SUPPRESS LEADING ZEROS
;LOAD TEST NUMBER FOR
;TYPE '"ISTH'

::SAVE TSTNMB FOR TYPEOUT

;cTYPE TEST NUMBER
;.60 TYPE--OCTAL ASCI]

;:TYPE 3 DIGIT(S)
;s SUPPRESS LEADING ZEROS

JTYPE ‘ERRN'’

3
0
_ERTYO3

$ERRP(
, -~ (SP)

;LOAD ERROR NUMBER FOR

;SKIP IF NO ERROR CALLED

;:SAVE ERRNMB FOR TYPEOUT
;:TYPE ERROR NUMBER
::GO TYPE~~OCTAL ASCII

;:TYPE 3 DIGIT(S)

. s SUPPRESS LEADING ZEROS

;TYPE 'PC="'

..SAVE $SERRPC FOR TYPEOUT
;. TYPE PROGRAM COUNTER
.60 TYPE--OCTAL ASCII
..TYPE 6 DIGIT(S)

TYPOS
.BYTF
BYTE
;TYPE LEADING ZEROS
;GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS O
3s:
TST
ERRNMB
UAS AN ERROR CALLED?
BEQ
218
:NO!
1

040426

sTYPE 'UNTH#''
;. SAVE SUNIT FOR TYPEOUT

LERTY02

ERRNMB,,
= (SP)

MOV

JINHIBIT TYPEOUTS??

JNO!!
JYES!!

: TYPEOUT

MOV

BYTE
.BYTE
TYPE

ERROR DATA

ERRNMB
$ITEMB.ERRNMB

TYPE

AND

TEST NUMBER, ERROR NUMBER, AND PROGRAM COUNTER

L$CRLF
“ERTY00
SUNIT,~(SP)

BEQ

TYPOS

104403

005737
001575

TYPE
TYPE
MOV

TYPOS

040424
001226
040442
040424

#SW13,aSWR

;TYPE UNIT NUMBER,

001217
040434
001234

104403

003
000
005037
113737
001406
104401
013746

SAVREG
8IT

BEQ
JMP

104403

H 14
11-APR-80 13:39:53 PAG
E 14

TYPE

CLRB
CLRB
MOV

,$CRLF

BOTFLG
CHRCNT
ERRNMB
, RO

.YES TYPE CRLF
;CLEAR BOT FLAG
;CLEAR CHARACTER COUNTER

;RO POINTS TO FIRST Of

ERROR TYPEQUT ROUTINE

011001

MACRO v03.01

001570

;TYPE
4%:

040236
040430

122703

000015

105037

040433

122703

000012

001003
000770

5%:

RO
RO
RO
#$ERRTB-8.
,RO
(RO ,R1

sR1

BEQ

13%

;BRANCH IF NO ERROR MESSAGE

BEQ
MOV

12$
R2,11$

THE ERROR MESSAGE
MOV
(R1)+,R2

CLR
mMovB
BEQ

BOTADR
(R2)+,R3
108

#CR,R3
6$

CLRB
BR
CMP8
BEQ
(MPB
BNE
INCB
BIT8B
BNE
BR
INCB
cMP8
BNE
MOV

9%
CHRCNY
#' .R3
9%
R2 ,BOTADR

040430

MOV

BOTADR,R4

001217
040433
040236

TYPE

040433
000007

6%:

040433

040433
000040
040430

000100

177777

040432

7%:

8%:

040433

9s:

040432

90$:
:
108
11%:

CLRB
MOV
BR
CLRB
movB
.WORD

TSTR
TYPE

000040

%§;PE

CHRCNT
5%
#LF ,R3
5%
#HT ,R3
8$
CHRCNT

#7,CHRCNT
7$

g24..CHRCNT
90%

.SCRLF

CHRCNT
11$.R2
5%
~(R4)
#-1,BOTFLG
BOTFLG

LSCRLF

CLRB
CLRB
MOV
MOV

BOTFLG
CHRCNT
BOTADR,R?
R2,11%

TST8

(R2)+

MOVB
12%:

000002

CMPS

BNE

001217

016001
001444

ASL
ASL
ASL
ADD
MOV

CMPB
BNE

000011

95
96 040302
97 040302
98 040306

SEQ 0177

001507
012102
001505
010237
005037
112203
001454

I 14
11-APR-80 13:39:53 PAGE 14=

,-(R2)

;FOUR ENTRIES IN ERROR
s TABLE
POINTS TO ERROR MESSAGE

s TABLE

:R2=ADDRESS OF MESSAGE STRING

:BRANCH IF END OF MESSAGE
:LOAD ADDRESS OF STRING
:CLEAR BOT ADDRESS
:END OF STRING??
YES!
!

*CARRIAGE RETURN??
.Nol

;YES=CLEAR CHAR COUNT
sGET NEXT CHARACTER

LINE FEED??
JYES=-GET NEXT CHARACTER
:zgs{ZONTAL TAB??

*ADJUST CHARACTER COUNT
JINCREMENT CHARACTER COUNT
;SPACE??
cNO!!
;SAVE ADDRESS OF SPACE
JEND OF LINE??
JNO!!
;GET ADDRESS OF LAST SPACE
;BRANCH IF SPACE DETECTED
JTYPE

CRLF

;CLEAR CHARACTER COUNT
;SET UP R2 FOR TESTING
sREPLACE SPACE
;SET BOT FLAG
;TYPE ERROR MESSAGE STRING
;STRING ADDRESS GOES HERE
::8§.STRING TRUNCATED??
JYES-TYPE CRLF
;CLEAR BOT FLAG
s CLEAR CHARACTER COUNT

;SETUP R2 FOR TESTING
;SETUP 118 FOR TYPING
JRESTORE SPACE
JRESTORE R2

;TYPE REST OF

STRING

ERROR HEADER AND ERROR DATA

MOV
BEQ

2(R0O) ,R1
21%

;R1

POINTS TO ERROR HEADER TABLE

;BRANCH IF NO HEADER

—

CZRMOAQ RMO5/3/2 FCTNL TST 3

p——

CZRMOAQ RMOS5/3/2 FCINL TST 3
ERROR TYPEQUT ROUT INE

99 040310
100 040314
101 040320
102 040324
103 040330
104
105 040332
106 040334
107 040336

104401
016002
016003
012137
001433
104401
000000
104401

108
109
110
111
112

040342
040344
040346
040350
040352

005702
001767
012204
012305
105725

114
115
116
117
118
119

040356
040360
040362
040364
040366
040370

001403
013446
104405
000405
013446
104402

113 040354

001217
000004
000006
040334

000402
013446
104406
005714
001403
104401
000760
104401
000742
104415
000207

132 040424
133 040426

000000
000000

134 040430
135 040432
}%9 040433

000000
000
000

138 040434
139 040442

125
054
054
054

040

J 14
11-APR-80 13:39:53 PAGE 14<2

14%:

15%:

001217

16%:

100407

120 040372
121 040374
122 040376
123 040400
126 0640402
125 040404
126 040410
127 0640432
128 040416
129 040420
}%? 040422

140 040452
141 040461
142 040467
143

MACRO v03.01

17%:

18%:

19%:
040467
001217

20%:

21%:

116
040
040
040

040

111
126
105
120

000

TYPE
mMov
MoV
MOV
BEQ

.SCRLF
4(RQ) ,R2
6(R0O) ,R3
(R1)+,15%
21%

TYPE
.WORD
TYPE

s (ASSUME NO DATA)
:R2 POINTS TO DATA ADDRESS TABLE
;R3 POINTS TO FORMAT TABLE
;PUT HEADER ADDRESS FOR TYPE
;BRANCH IF END OF HEADERS
; (ASSUME END OF DATA)

0
.SCRLF

sHEADER ADDRESS GOES HERE

R
14%
(R2) +,R4
(R3)+,RS
(R5) +

;DATA WITH
;NO!!
;R4 POINTS
;RS POINTS
;WHAT KIND

17%
@(R4)+,~(SP)

;OCTAL
;DECIMAL

TST
BEQ
MoV
MoV
TSTB
BMI
BEQ
MOV
TYPDS
BR
MOV
TYPOC
BR
MOV
TYPBN

TST

BEQ
TYPE
B8R
TYPE
B8R
RESREG

18%

TO DATA ADDRESS
TO FORMAT
OF DATA??

19%
d(R&)+,-(SP)

(R4)

20%
LERTYO4
16%
. SCRLF
148

RTS

.WORD
.WORD

0
0

.WORD
.BYTE
.BYTE

0
0
0

ERTYQ0:
ERTYQ1:

.ASCIZ
.ASCIZ

SUNIT#a
@, TEST#A

.ASCIZ
.ASCIZ
.ASCIZ

;BINARY

HEADER??

19%
d(RL)+,-(SP)

TSTNMB:
ERRNMB:
BOTADR:
BOTFLG:
CHRCNT:

ERTY02:
ERTYQ03:
ERTYO4:
.EVEN

SEQ 0178

@, ERR#3
@&, PC=a
@
a

;MORE DATA??

;NO!!
JYES-TYPE 2 SPACES
;AND CONT INUE
;TYPE ONE BLANK LINE
;BEFORE NEXT HEADER

;TEST NUMBER
;ERRCR NUMBER

;BEGINNING OF TEXT ADDRESS
;BOT FLAG
s CHARACTER COUNT

CZRMOAQ RMOS/3/2 FCINL TST 3

TEST PREPARATION MODULE

MACRO v03.01

K 14
11-APR-80 13:39:53 PAGE 1 5

OV NAVNIWNNI—2O000
NN SN

.SBTTL

TEST PREPARATION MODULE

THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST,
REPORTING AN ERROR TO THE USER IF AN ERROR IS DETECTED.
THE USER
SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES
USING SUBROUTINES.

sCALL:
;
H

) d e

:
.
:
:

:
:

;

JSR
.WORD

NOP
ERROR

PC,TSTPRP
NNNANNN
27

PPN = =D oy = e

TASK/VERIFY DESCRIPTOR

IF NO ERROR

RETURN HERE IF ERROR
ERROR DEFINED BY MODULE

SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE

BIT 14 = 1
BIT 13
BIT 12 = 1

CLEAR CONTROLLER AND SELECT DEVICE

(RESERVED FOR DRIVE CLEAR)
PACK ACKNOWLEDGE IF VOLUME NOT VALID

g}} }5 =1

RECALIBRATE IF POSITIONING IN PROGRESS

8IT 9

BIT 8

:
;

BIT 7
BIT 6

BIT §

BIT 3

:
:

BIT 4

VERIFY CONTROLLER CLEAR OPERATION

VERIFY PACK ACKNOWLEDGE

(RESERVED FOR DRIVE CLEAR)

VERIFY RECALIBRATION

BIT 2

BIT 1
BIT 0

TSTPRP:

41
42
43
44

0460472
040500
040504
040510

017637
062716
105076
162716

000000
000006
000000
000004

46
47
48
49

040514
040520
040524
040526

004737
004737
000411
000401
000000
062716

044144
044230

50 040530
51 040532
52 040536
53 040544
54
55 040550
pl)
57

TASK/VERIF«+ DESCRIPTOR

RETURN HERE

BIT 15 =1

:
:

38 040472

SEQ 0179

041412

;STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL
MOV
ADD
CLRB
SUB

a(SP), 5008
#6, (SP)
a(SP)
¥4, (SP)

:STORE DESCRIPTOR
‘MOVE SP TO USERS ERROR CALL
*CLEAR ERROR CALL
‘MOVE SP TO NO ERROR RETURN

JSR
JSR
8R

PC.GETSTS
PC.GET
15$

;SETUP TO READ ALL REGISTERS
‘GET RMER2
‘BR IF NO ERROR DETECTED

WORD
ADD
MOVB
JMP

0
#6, (SP)
10$-2.3(SP)
4008

:ERROR DEFINED BY GET SUBROUTINE
“XFER ERROR TO USER AND
:GET ERROR NUMBER.

MOV

RMERZ2I,505%

;GET RMERZ2 AND SAVE FOR LATER

113776

000137

000004
040530
041402

000000

013737

001376

041414

108:

158:

108

*GET OVER ERROR NUMBER

."'"'.'.."it!t'tttttt"t"t"ttt.tttt'ltttttitfi'tt"tttttfitttt"

CIZRMOAO RMOS/3/2 FCINL TST 3

TEST PREPARATION MODULE

58
59 040556

g? 040562

62 040564
63 040570

041412

004737
000411
000401
000000
062716

052132

113776

00N137

11-APR-80 13:39:53 PAG

SEQ 0180

005737
100014

MACRO v03.01

000004
040574
041402

sSELECT DEVICE A?gostIFY DEVICE AVAILABLE IF BIT 15 SET IN TASK
SELECT DEVICE??
BPL
308
;NO!

JSR

PC,DEVSEL

B8R
B8R
000000

WORD
ADD
MOVB
JMP

20$:

AR AN R R

;GO SELECT DEVICE
sNO ERROR - CONTINUE

30§
20s

0
46, (SP)
20$-2.3(SP)
4008

AR AN

<ERROR NUMBER FROM DEVSEL

s TRANSFER ERROR

TO USER

A AR A A AR TN AR R AN AR R RN R RN R AN NN AN NN NRARR

RN NR RN

38§EAR CONTROLLER IF BIT 14 IS SET IN TASK

032737
001451

040000

004737
000411
000401

053604

000000
062716
113776
000137

000004
040634
041402

041412

BIT
BEQ
JSR

B8R

BR
.WORD

408:

000000

50$:

PR A

MOVB
JMP
AR Al

sCLEAR CONTROLLER??

60$

PC.CNTCLR

;GO CLEAR CONTROLLER
;CONTINUE - NO ERROR

#6, (SP)

;ERROR NUMBER FROM (NTCLR
s TRANSFER ERROR TO USER

508
O

ADD

#B1T14,5008
1208

40%.3(SP)
4008

ild

:NO!!

istiit

ity

T222

022202

éXERIFY CONTROLLER CLEAR [F BIT6 SET IN TASK

032737
001431

000100

004737
000411
000401

044230

000000
062716
113776

004737
000412
000401
000000
005726
062716

113776
000137

70s :

000000

053722

000004
040724
041402

b nd
d cmd
b

80%:

908:
100$:
1108:

AL AR

032737
001503

010000

004737

044230

041412

BIT
BEQ

#81T6,5008
1208

;VERIFY??
;NO!!

JSR

PC,GET

;GO GET STATUS
;NO ERROR GETTING STATUS

B8R
B8R

90$
808

WORD

ADD

;ERROR FROM GETTING STATUS

MOVB
JMP

A4, (SP)

708.,3(SP)
400$

s TRANSFER ERROR TO USER

JSR

PC,CLRSTS

;GO VERIFY STATUS CLEAR
;NO ERROR IN CLEAR

.WORD
TST
ADD

O
(SP)+
#6,(SP)

JMP

400

JERROR IN STATUS CLEAR
:STRIP RETURN ADDRESS TO
s SUBROUTINE AND TRANSFER
;ERROR TO USER

B8R
B8R

1208
1108

MOVB

000000

d end

b wd

) card

e =—b

000137

000004
040674
041402

041412

1oés a(sP)

sl stT2
tt
2222
Y2222 2222222

EXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME
<NOT VALID
1208
:
BIT
#81T12,5008
JPACK ACKNOWLEDGE??
BEQ
2408
JNO!!

JSR

PC,GET

CZRMOAO RMOS/3/2 FCTNL TST 3

TEST PREPARATION MODULE

000411
000401
000000
062716

000004

}gg 041002

113776

000137

040766

041402

000000

122 041006
}SE 041014

032737
001063

000100

001346

125 041016
126 041022
127 041030

005037
012737
112737

001510
000023
000000

128 041036
129 041044

130 041050
131 041052

112737
004737

000410
000401

000200
044500

132 041054
133 041056

000000
062715

}gg 041070

000544

113776

000004
041054

1§g 041072

004737

045042

134 041062

139
140
141

041076

032737

000020

}25 041104

001427

144 041106

004737

146 041114
147 041116
148 041120
149 041126

}29 041132

000401
000000
062716
113776

000523

000004
041116

152 041134

004737

054602

145 041112

153 041140
156 041142

000410

000411
000401

155 041144
156 041146
157 041150

000000
005726
062716

}gg 041162

000507

158 041156

113776

1508:

000000

1608:
1708:

1808:

041412

000004

041144

BR
8R
.WORD
ADD

1508
1408
0
#4, (SP)

JMP

4008

BIT
BNE

#VV ,RMDS |
2408

CLR
MOV
MOVB
MOVB
JSR

MEDENS
;CLEAR MEDIA ENABLE
#PAKACK ! GO,RMCS10
SLOAD PACK ACK COMMAND
WRMCST1,PUTINX
;SETUP REGISTER INDEX TABLE

.WORD
ADD
mMove

O
#4,(SP)

B8R

4008

JSR

PC.TIMOUT

MovB

B8R
B8R

BIT

#200,PUTINX+1
PC,PUT

1808
1708

1608.a(sP)

;TRANSFER ERROR TO USER

;1S VOLUME VALID??
SYES!!

;GO WRITE COMMAND

*NO ERROR LOADING REGISTER
;ERROR FROM PUT SUB
:TRANSFER ERROR TO USER

;WAIT FOR COMMAND TO COMPLETE

1908:
2008:

2108:
2208:
230s:

000000

#8174 5008

:VERIFY PACK ACKNOWLEDGE??

BEQ

2408

JSR

PC,GET

BR
.WORD
ADD
MOVB

:ERROR FROM GET SUB
*TRANSFER ERROR TO USER

B8R

2008
O
¥4, (SP)
190$.a(SP)

4008

JSR

PC,ACKSTS

;60 CHECK ACKNOWLEDGE

.WORD
ST
ADD

0
(SP) +
#4, (SP)

;PACK ACKNOWLEDGE ERROR
:STRIP RETURN TO SuB AND
*TRANSFER ERROR TO USER

B8R

400s

B8R
000000

130$.a(sP)

:NO ERROR GETTING RMDS

":ttttitttttt'tfi*ttt*ttttt*tttttttttttttttttttttttttttttttttttttt
JVERIFY PACK ACKNOWLEDGE IF #8IT4 SET IN TASK

044230

B8R
B8R

MOVB

210s

2 As
2308

220%.a(sP)

INO!!

;G0 GET STATUS

*NO ERROR GETTING STATUS

*NO ERROR

;.'ttttttttttttttttttttttttttttttttttfitttttt'itttttitttttttttttttt

162
163
164 041164
165 041164
}gg 041172

032737
001505

004000

168 041174

004737

044230

171 041204

1308:
1408:

001410
001551
001552

161

169 041200
170 041202

M 14
11~APR-80 13:39:53 PAGE 15-2
SEQ 0181

115 040762
116 040764
117 040766
118 040770

119 40774

MACRO v03.01

000410
000401

000000

041412

;RECALIBRATE DRIVE IF BIT 11
“0R '"PIP'* IS ACTIVE.
2408
:
BIT
#81T11,5008
BEQ
4108
JSR

2508:

B8R
B8R

.WORD

PC,GET

2708
2608

IS SET IN TASK AND '‘SKI''
IS SET
;:RECAL IBRATE??
INOY!
;GO GET RMDS

:NO ERROR GETTING RMDS
;ERROR FROM GET SUB

CZRMOAQ RMOS5/3/2 FCTNL TST 3

TEST PREPARATION MODULE

—— —

RN
QNN
RO

R RRRRRRRRRR KRR

PO
00 Qo 00 QO 00 QO OO 0o OO 0o
~N~
BB ORP O RIS
R BB
R TR R R 2B IR

172 041206

062716
113776
000470

000004
041204

000000

032737
001004
032737
001462

040000

041414

020000

001346

012737
112737

000007
000000
000200
044500

280%:

000004
041274

:
2908

112737

004737
000410
000401
000000
062716

1310

113776
000434

1312

004737

045042

000010

1326
1332
1 041334
202 041336

004737
000410
000401
000000
062716
113776
000413

044230

KRR RR

032737
001430

——

-0

=N
P 3 o&RRS
J\bthNquggfis

R} RRRRRRER

WNI=O

dddd228832§
OOV

000000

260%:

270%:

:
3008
S

203 041340
204 041344
205 041352
206
207 041354
208 041360

004737
000412
000401
000000
005726
062716
113776

N1 4
11-APR-80 13:39:53 PAGE 15-3

SEQ 0182

1316
1324

R’)NNNN

MACRO v03.01

000004
041336

041412

000000

055376

000004
041364
000002

¥4,

(SP)

BIT
BNE
BIT
8EQ

#SK1,505%

sWAS SKI SET ?

#P1P RMDSI

:ég'EIP ACTIVE??

: TRANSFER ERROR TO tJSER

2508 .a(sP)

4008

280%

;YES, GO RECALIBRATE

4108

#RE
! GO,RMCS
CAL
10

MOV
MovB
Mov8s
JSR
BR
BR
.WORD
ADD
movs
BR

4008

JSR

PC,TIMOUT

.LOAD RECALIBRATE COMMAND

MRMCS1,PUTINX
#200,PUTINX+1
PC,PUT

;AND REGISTER INDEX

¥4, (SP)

; TRANSFER ERROR TO USER

3008
290%
0

;ERROR IN REGISTER TRANSFER

290%-2,3(SP)

AR AR AN AN A AN AN

*GO ISSUE RECALIBRATE

sNO ERROR

AR AR

SWAIT FOR COMPLETION
AR AN AR AR RN R A NN AN ANRRR AR AARAN AR AR

;VERIFY RECALI BRATE IF BIT 3 SET IN TASK
BIT
#B8113,500%
;VERIFY RECALIBRATE??

210%:
320%:

330s:
340%:
3508:
000000

ADD
MOvB
B8R

4008:
:
4108

:
5008
505%:

8EQ

4108

JSR
BR
BR
.WORD
ADD
MovB
BR

PC,GET

JSR
BR
BR
.WORD
137

ADD

MOvB
suB
NOP

3308
3208

¥4, (SP)

310s.a(sP)

;NO!!

;60 GET STATUS
;NO ERROR GETTING STATUS
;ERROR FROM GET

s TRANSFER ERROR TO USER

4008

PC.RCLSTS

410s
3508
0
(SP)+

#4,

(SP)

3408.a(SP)

;GO CHECK RECALIBRATE
:NO ERROR DURING RECALIBRATE
;cRROR DURING RECAL IBRATE
sSTRIP RETURN TO SUB AND

s TRANSFER ERROR TO USER

#2,(SP)

;MOVE SP BACK BEFORE ERROR

RTS

JRFTURN TO USER

.WORD
.WORD

0
0

: TASK/VERIFY DESCRIPTOR

:CONTAINS RMER?

CZRMCAQ RMOS/3/2 FCTNL TST 3
NONWN
S W N — OV NOAWVNSAWN
2OV NN WA

BAD SECTOR MODULE

MACRO v03.01

B 15

11-APR-80 13:39:53 PAGE 16

.SBTTL

SEQ 0183

BAD SECTOR MODULE

:THE MODULE IS INTENDED TO BE CALLED PRIOR TO CALLING THE BUFFER
: GENERATOR SUBROUTINE, AND PRESERVES THE 'PUT BUFFER'' SO THAT THE
:ggE’EEF;IgEED ONLY BE FILLED ONCE FOR THE EXECUTION Of A FORMAT

:THE MODULE RETURNS TO THE CALLING TEST WITH THE APPROVED OR ASSIGNED

;SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS ‘'ASNDA’'‘ AND ‘‘ASND(C''

D oy

'SO THAT A REFERENCE

IS AVAILABLE TO THE TEST OUTSIDE OF

THE BAD SECTOR MODULE PERFORMS

D e

(1)
(2)

TWO MAJOR FUNCTIONS:

RECOVER THE BAD SECTOR FILES AND
APPROVE THE USAGE OF A SECTOR BASED ON INFORMATION IN
THE BAD SECTOR FILES OR ASSIGN A NEW SECTOR

ELECTED IS NOT AVAILABLE FOR USE.

D o

THE PUT BUFFER.

THE ONE

PONININLNON) [aS1,¥] —d i

s INFORMATION REQUIRED BY THE MODULE INCLUDES:
:

;
;
;
:

;
;

(1)

(2)
(3)
(4)
(5)
CALL

;

;
04141

041416
35 041422
041426

041432
41 041430
041440

062716
105076
162716

005737
001402
000137

BADSCT

000006
000000
000006

.RMDCO - THE DESIRED CYLINDER,

.RMDAO - THE TRACK AND SECTOR ADDRESS,
.RMWCO - THE WORD COUNT,
.RMCS10 - THE COMMAND,
L.RMOFO - THE FORMAT MODE

JSR
BR

TYPE

PC ,BADSCT

27?2

.MESSAGE

ERROR

ADD

#6, (SP)

CLRB
suB

a(sP)
#6, (SP)

;CALL SUBROUTINE
JRETURN HERE IF NO ERROR

JRETURN HERE

THE BAD SECTOR FILE

s CANNOT BE RECOVERED.

;THE EMT OFFSET NUMBER 'N'
;BY BAD SECTOR MODULE.

IS DEFINED

;CLEAR ERROR NUMBER IN USER'S

;ERROR CALL.

sTEST "M )JA ENABLE'' TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES
JHAVE BEEN RECOVERED.

001510

TST
BEQ

042712

JMP

MEDENB
59

3008

sHAS BAD SECTOR FILES BEEN RECOVERED ?
:BR IF NO

;YES, BAD SECTOR FILE IS AVAILABLE

JRECOVER THE MANUFACTURES / USERS BAD SECTOR FILE FROM CYLINDER
= 822..

JTRACK = LAST TRACK (RMO2/3 = 4 AND RMOS = 18.). ALSO, SAVE THE USER'S

g?UT BUFFER

041
041
041
49 041450

016060

041 462
041466

022700
103370

041

56 041470

MOV

012737

001410

000002
000046

000003

106314

10%:

;;PUSH RO ON STACK

RO
:START WITH RMCS1
PUTBUF (RO) ,BUFFER(R0)

cMP

#46,R0

ADD

BHIS

043330

RO,=(SP)

CLR
MOV

#2,R0

108

;ADVANCE

TO NEXT BUFFER POSITION

cEND OF BUFFER
INO !

;SET RETRY COUNT AND LOAD PUT BUFFER AND REGISTER INDEX TABLE
;SETUP PARAMETERS TO READ SKIP SECTOR FILE FIRST (3 SECTORS)
MOV
#3,500%
;RETRY COUNT

CZRMOAQ RMOS5/3/2 FCTINL TST 3

BAD SECTOR MODULE

MACRO v03.01

11-APR-80 13-

c 15

:53 PAGE 16-1

SEQ 0184

57 041476
58 061506
§9 041512
60 041520
g} 041526

012737
013737
012737
012737
012737

001466
001332
177376
010000
110324

63 041534
6 0641540
65 041544
66 0641550
67 041554
68 041560
69 041564
70 041570
;} 041574

012700
112720
112720
112720
112720
112720
112720
112720
012600

001551
000006
000034
000002
000032
000004
000000
000200

001444
001416
001412
001442
001414

MOV
MOV
MOV
MOV
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOV

#822. ,RMDCO
LSTRK , RMDAO
#-258. ,RMICO
#FMT16.RMOFO
AMFGFIL,RMBAO
#PUT INX RO
#RMDA, (RO)+
ARMDC. (RO) +
#RMWC. (RO) +
#RMOF
. (RO) +
#RMBA. (RO)+
#RMCST, (RO)+
#200, (RO)+

(SP)+,RO

:DESIRED CYLINDER = 822.
:STARTING LAST TRACK, SECTOR = 0
:2 + 256. WORDS (2'S’ COMP)
+16 BIT FORMAT
:POINT TO MANUFACTURES FILE BUFFER
;RO POINTS TO REGISTER INDEX TABLE

;:POP STACK INTO RO

73
74 041576
75 041576
76 061602
77 061606

004737
004737
000411

79 041612
80 041614
81 041620
82 041626

000000
062716
113776
000137

000006
041612
0462412

000000

%é 041632

013737

001376

043342

308:

86
87 041640
88 041646

012737
004737

000011
044500

001410

:CLEAR THE DEVICE USING DRIVE CLEAR COMMAND
MOV
#DRVCLR'GO,RMCS10
:LOAD COMMAND IN PUT BUFFER
JSR
PC,PUT
;OUTPUT COMMAND

90
91
92
93
gg

041654
041656
041660
041664
041672

000401
000000
062716
113776
000137

000006
041656
042412

9 041676
97 041702

004737
004737

045042
0464230

101 041714
102 041720

062716
113776

000006
041712

105 041732

004737

057140

108 041742
109 041744
110 041746
111 041752

000000
005726
062716
113776

78 041610

89 041652

98 041706
99 041710
100 041712

;82 041726

106 041736
107 041740

}}g 041760

:SET GET INDEX TABLE FOR READING STATUS
208
:
JSR
PC.GETSTS
;SETUP GET INDEX REGISTER FOR STATUS
JSR
PC,GET
*GET REGISTERS
BR
308
:BR IF NO ERROR

044144
044230

000401

000411

000411
000401
000000

000137

000412
000401

000137

B8R

042412

000006
041742

042412

25%:

000000

45%:

508 :
000000

558:

608:
65%:
708 :

000000

:JUMP OVER ERROR NUMBER

O
#6,(SP)
25$-2.a3(SP)
2158

*ERROR DEFINED BY GET SUB
*XFER ERROR TO USER AND
*GET ERROR NUMBER.

MOV

RMER21,5508

:GET RMER2 AND SAVE FOR LATER

B8R

358
408:

258

WORD
ADD
MOVB
JMP

458

*RETURN HERE IF NO ERROR

BR
WORD
ADD
MOVB
JMP

408
O
#6, (SP)
35%,3(SP)
2158

*GET AROUND ERROR #
*ERROR # GOES HERE
‘MOVE SP TO USERS ERROR CALL
:MOVE ERROR NUMBER TO USER

JSR
JSR

PC,TIMOUT
PC.GET

;WAIT FOR COMPLETION
:GO GET STATUS

ADD
MOVB
JMP

#6, (SP)
508,a(SP)

‘MOVE SP TO USERS ERROR CALL
‘MOVE ERROR # TO USERS ERROR CALL

JSR

PC,DRVSTS

WORD
ST
ADD
MOVB

0
(SP)+
6, (SP)
65%,a(S5P)

B8R
B8R
WORD

B8R
B8R

JMP

60%
558
0

215$

75$
708

215$%

*RETURN HERE IF NO ERROR
:GET AROUND ERROR #
*ERROR # GOES HERE

;GO VERIFY DRIVE CLEAR COMMAND

:RETURN HERE IF NO ERROR
*GET AROUND ERROR

*ERROR # GOES HERE
*STRIP RETURN TO SUBROUTINE
*MOVE SP TO USERS ERROR CALL
*MOVE ERROR # TO USER CALL

CZRMOAO RMOS/3/2 FCTNL TST 3

032737
001052

000100

001346

012737
004737
000411
000401
000000
062716
113776
000137

000023
044500

001410

x
8

004737
000412
000401
000000
005726
062716
113776
000137

042412

000000

045042
044230

000006
042046
042612

80%:
85%:

90%:

000000

054602

105%:

000006
042076
042412

000000

043342

020000

001346

012737
004737
000411
000401
000000
062716
113776
000137

000007
044500

001410

000137

000000

045042
044230

000006
042212
042412

130%:

135%:

000000

;LOAD COMMAND

*ERROR # GOES HERE

85%

:GET AROUND ERROR #

ADD
MOVB

#6, (SP)
80%.3(SP)

*MOVE SP TO USERS ERROR CALL
‘MOVE ERROR # TO ERROR CALL

JSR
JSR

PC.TIMOUT
PC,GET

;WAIT FOR COMPLETION
*GO GET SYATUS FOR PACK ACK

B8R

1008

2158

105$

*RETURN HERE IF NO ERROR

*GET AROUND ERROR #

WORD
ADD
MOVB
JMP

0
#6. (SP)
95%,3(SP)
2158

*ERROR # GOES HERE
*MOVE SP TO USERS ERROR CALL
*MOVE ERROR # TO CALL

JSR

PC ,ACKSTS

;GO VERIFY ACKNOWLEDGE STATUS

BR
BR
LWORD

1208
115$
0

*RETURN HERE IF NO ERROR
*GET AROUND ERROR #
SERROR # GOES HERE

ADD
MOVB

#6, (SP)
110$.a(SP)

‘MOVE SP TO USERS ERROR CALL
‘MOVE FRROR # TO USERS ERROR CALL

(SP)+

*STRIP RETURN TO SUBROUTINE

2158

THE DRIVE

''SKI''
OR 'PIP IS SET

BIT
BNE
BIT
BEQ

#SK1,5508
125$
#P1P ,RMDS]
1658

MOV

#RECAL !GO, RMCS10

135s

JSR

PC.PUT

1308

:WAS SKI SET 3
*YES, GO RECALIBRATE
SIS PIP SET 27
INO !

:LOAD RECALIBRATE COMMAND

;PUT THE RECAL COMMAND

*RETURN HERE IF NO ERROR

*GET AROUND ERROR #

WORD
ADD

O
#6. (SP)

*ERROR # GOES HERE
‘MOVE SP TO USERS ERROR CALL

JSR
JSR

PC.TIMOUT
PC,GET

;WAIT FOR RECALIBRATE
:GO GET RECAL STATUS

BR
WORD
ADD
ngge

145$
O
#6, (SP)
g?gi.a(sp>

:GET AROUND ERROR #
*ERROR # GOES HERE

MOVB
JMP

B8R
L
X

113776

000006
042156
042412

#PACACK ! GO,RMCS10

B8R

004737
00473+
000411
000401
000000
062716

125%:

;IS VV RESET ??
SNO !

WORD

B8R

JMP

—

~
N

NN~

& DO NN
R

b
d
) =D cod
d md md
d
d ol

ViV

—

040000

#VV ,RMDS
1208

;GO PUT COMMAND TO DRIVE
*RETURN HERE IF NO OUTPUT ERROR

%gggALIBRATE

032737
001004
032737
001452

IF VOLUME VALID IS RESET

PC,PUT
90$

95%:
100%:

SEQ 0185

JSR
BR

JMP

_—

000401
000009
062716
113776
000137

000006
042012

BIT
BNE
MOV

Vo
L
X

004737
004737
000411

~NOWN

D 15

11-APR~80 13:39:53 PAGE 16~2

¢ ISSUE A PACK ACKNOWLEDGE

758

——

b
—

eole)

non)

041774
042002
042006

WA= OV

NONNE WOV~
N

041764
041764
041772

—b b

b d oD d d e md D D e

D D od h d d

) d o

d d d d

b )

BAD SECTOR MODULE

MACRO v03.01

1308-2,3(SP)
215$

1508

:MOVE ERROR # TO USERS CALL

TO COMPLETE

:RETURN HERE IF NO ERROR

*MOVE SP TO USERS ERROR CALL
*MOVE ERROR TO USERS CALL

CZRMOAO RMOS/3/2 FCTNL TST 3

BAD SECTOR MODULE

d
d

004737
000412
000401
000000

042246
042252
042260

SEQ 0186

055376

000006
042242
042412

1508:
155%:
160%:

000000

B LEEREC2EBETRRRIT
2SI

D o

3 0462240
042242
042244

NNNNNN
o~

d md

171 042232
172 042236

crnd d )
D
crdd
e

—

~n
W

o
d e
D
D
d
D d
e
—d d

012737
004737
000411
000401
000000
062716
113776
000137

000073
044500

000006
042302
042412

004737
004737
000411
000401
000000
062716
113776
000137

045042
044230

004737
000412

057742

000006
042336
042412

000006
042366
042412

000450

000000

’

170%:
175%:

b
b
—

(o Ja¥1,8)

219 042420
220 042420
221 042424
222 42430

223
224 042432
255 042436
226
227 042442

MOV
JSR
BR
BR
.WORD
ADD
movse
JMP

180%:

PC,RCLSTS

165$
1608

(SP)+
#6, (SP)

;GO _VERIFY RECALIBRATE STATUS
JRETURN HERE IF NO ERROR
;GET AROUND ERROR #
;ERROR # GOES HERE

sSTRIP RETURN TO SUBROUTINE

}55: a(SP)

000000

#RH!GO,RMCS10
PU

#6, (SP)
1708 ,a(SP)

215%

PC.TIMOUT
PC,GET

195%
1908

185%:
190%:

#6, (SP)

185%,3(SP)

215%
195%:

PC,DTASTS

2108
205%
0

200$:
205%:

+
(SP)
#6, (SP)

000000

200%,9(SP)
215%

SRR

NN
H

(o I NTe RV, P
YVIT,N]

D
d
d
ek =
d

001410

210%:

JSR

BR
BR
.WORD
TST
ADD
MOVB
JMP

sMOVE SP TO USERS ERROR CALL
sMOVE ERROR # TO USERS CALL

iZEQD THE SECTOR IDENTIFIED BY RMDAO,

000401
000000
005726
062716
113776
000137

ASTANT,
NS T NT,NT,N )

E 15
11-APR-80 13:39:53 PAGE 16-3

MACRO Vv03.01

240%

BR
RN R

A A A A AR AR

INCLUDING HEADER AND DATA

;LOAD READ HEADER AND DATA C(OMMAND
;PUT COMMAND
JRETURN HERE IF NO ERROR
;GET AROUND ERROR #
;JERROR # GOES HERE
sMOVE SP TO USERS ERROR CALL
;MOVE ERRCR # TO USERS ERROR CALL

;WAIT FOR READ OPERATION TO COMPLETE
;GO GET STATUS FOR READ OPERATION
JRETURN HERE IF NO ERROR
;GET AROUND ERROR #
;ERROR # GOES HERE
sMOVE SP TO IJSERS ERROR CALL
;MOVE ERROR # TO CALL

;GO _VERIFY RESULTS OF READ OPERATION
JRETURN HERE IF NO ERROR
;GET AROUND ERROR #
JERROR # GOCS HERE
;STRIP RETURN ADDRESS TO SUBROUTINE
:MOVE SP TO USERS ERROR CALL
;MOVE ERROR # TO USERS CALL
;NO ERRORS DETECTED

AN AN

AR RN AN NN RN AR AN RNN

RN RRNNNANNRACAA NS

AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE.
:THE SECTOR WILL BE RETRIED IF POSSIBLE.

005337
100030

043330

2158:

DEC
BPL

éégg RETRY

013746
042726
001027

001376

013746
042726

001350

001022

100000

100720

MOV
BIC
BNE
MoV

5008
225%
COUNT HAS EXPIRED -

RMER2I,~(SP)
MBSE, (SP) +

cYES,

DECREMENT RETRY COUNT AND

SRETRY IF COUNT NOT NEGATIVE.

SEE

THE

ERROR

IS MEDIA RELATED

;GET ERZ2

JANY NON-MEDIA ERRORS ?

230%

;YES, EXIT AND REPORT ERROR ON RETURN

RMER1],~( SP

:GET ER1

8IC

#DCK 'HCRC 'H CE!FER!ECH,(SP)+

BNE

230%

JARE THERE ANY NON-MEDIA ERRORS ?

JYES, EXIT AND REPORT ERROR ON RETURN

——

CZRMOAO RMOS/3/72 FCTNL TST 3

BAD SECTOR MODULE

MACRO Vv03.01

SEQ 0187
:THE ERRORS DETECTED WHILE

2
233 042644
234 042452
235 042460
236 042462
237 042470
238
239 042472

042570

278 042650
279 042652
042654
280
281

TRYING TO REC.VER THE BAD SECTOR FILE ARE

SEE IF THE BAD SECTOR FILE CAN BE RECOVERED FROM
;DUE TO THE MEDIA.
;ANOTHER AREA ON THE LAST TRACK

062737
122737

001413
122737
001407

012737
162716

000137
244 042510
2645 042510
246 042512
247 042520
248 042522
249 042526
250
251
252
253 042532
254 042532
255 042540
256 042542
257 042550
258
259 042556
260 042564

F 15

11-APR-80 13:39:53 PAGE 16-4

000240
032777
001002
162716
000137

000002
000012

001416
001416

000040

001416

000003
000006
041576

043330

ADD
CMP8
BEQ
CMPS

;ADVANCE SECTOR ADDRESS BY 2

#32. ,RMDAO

;OU}EDiF ALL USER SECTORS HAVE BEEN

#3,500%

sREINSTATE RETRY COUNT FOR THIS SECTOR
;MOVE SP BACK TO NO ERROR

2308

BEQ
MOV

225%:

#2 ,RMDAO
#10. ,RMDAD

§6.(SP)

suB
JMP

;?g}gbxr ALL MFG SECTORS HAVE BEEN

JRETRY THE READ OPERATION

. THE 8AD SECTOR FILE CANNOT BE READ
230%:
020000

NOP
BIT

136434

000004
043324

#SW13,3SWR

235%

BNE
suB

235%:

#6, (SP)

4108

JMP

:iggIBIT MESSAGE ?

*MOVE S° TO ERROR RETURN

1GO TO MODULE EXIT

:THE SECTOR WAS RECOVERED WITHOUT ERROR - READ THE USER FILF IF

:THIS

022737
001446
112737

012737
012737
000137

010046
010146
012701
012700
012760
012760
005720
005301
001367

012701
005000
005060
005060
005720
005301
001371
012601
012600

111332

000012
111332

000003
041576

001414

2408%:

001416
001414
043330

THE MGF

FIILE OR ELSE

MP
BEQ
MOVB
MOV

#USRF
IL ,RMBAO
260%
#10. ,RMDAO
AUSRF
IL ,RMBAD

;WAS

MOV
JMP

#3,500%
208

JRELOAD THE RETRY COUNT FOR THIS SECTOR
;GO READ THE USER FILE

.DUMMY THE BAD SECTOR FILES
250%:
MOV

000374
000014

177777
177777

MOV

255%:

000006
110324

111332

257%:

DONE.

RO,~(SP)

R1,-(SP)

#252.
R

MOV

#14 R0

MOV
TST

#-1_,USRFIL
(RO)
(RO)+

MOV

#=1,MFGFIL
(RO)

THE USER FILE READ

;YES = READ IS COMPLETE
JREAD THE USER FILE LAST TRACK, SECTOR = 10.

;POINT

TO USERS FILE BUFFER

;:PUSH RO ON STACK
s :PUSH R1 ON STACK
;JR1 = NUMBER OF ENTRIES IN FILES

JRO = ADDRESS INDEX TO FILE

STORAGE

DEC
BNE

R1
255%

JENTER ALL ONES IN MFG FILE
JENTER ALL ONES IN USER FILE
;ADVANCE ADDRESS
;DECREMENT COUNT
JCONTINUE IF NOT DONE

MoV

‘#6. ,R1

;CLEAR HEADER, CLEAR ID & SERIAL NUMBERS

CLR

MFGF
IL (RO)

CLR

CLR
TST
DEC
BNE
MOV
MOV

USRF
IL (RO)
(RO)+
R1
257%
(SP)+ ,R1
(SP)+,R0

JSET MEDIA ENABLE AND RESTORE

JADVANCE ADDRESS
;.POP STACK

INTO R1

;.POP STACK INTO RO

THE USERS PUT BUFFER

CZRMOAQ RMOS/3/2 FCINL
BAD SECTOR MODULE

282 042656
042656
283 042660
284 042662
285 042670
286 042676
287 042702

016060
062700
022700

%33 042710

012600

288 042706

010046
005000
012737

103370

TST

MAZRO v03.01

G 15

11-APR-80 13:39:53 PAGE

16-5
SEQ 0188

2608:
177777

106314
000002
000046

001510

001410

265%:

MOV
CLR
MOV

:;PUSH RO ON STACK
‘RO IS REGISTER INDEX

MOV
ADD
CMP

BUFFER(RO)
, PUTBUF (RO)
#2.RO
;ADVANCE RO
246 RO
:DONE ??

MOV

(SP)+,R0

BHIS

291

RO, ~(SP)
RO
#<1,MEDENB

265$%

;;POP STACK INTO RO

'-;ttttttttttttttttfitttttt"tttttktttttttttfitttttttttttttttttttttt

292

;VERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FILE

293

;AND NOT IN THE USERS BAD SECTOR FILE. ASSIGN A NEW SECTOR IF

295

;"tttfittttttttttttttttttttttttttttttttttttttttttifittttttttttt*ttt

294

;SECTOR IS IN ANY OF THE FILES.

296
297

298 042712

:LOAD INITIAL VARIABLES AND COMPUTE THE NUMBER OF SECTORS

042712

010045

042716
299 042720
300 042726
301 042734
302 0462736
303 042742
304 042744
305 0462750
306 042756
307 062760
308 042764
309 042766
310 042770
311 042772
312 042774
313 0462776
314 043000
315 043002

010246
013737
013737
005002
013700
005400
012701
032737
001402
012701
020100
101404
005700
001405
005202
000403
160100
005202

g}g 043006

010237

042714

3008:

010146

316 043004 000767

001444
001416

001512
001514

001412

000400
000002

001410

000402

3058:

310%:

043330

3158:

RO,=(SP)

;:PUSH RO ON STACK

MOV
MOV
MOV
CLR
MOV
NEG
MOV
BIT
BEQ
MOV
(MP
BLOS
ST
BEQ
INC
BR
SUB
INC

R2,-(SP)
RMDCO, ASNDC
RMDAO , ASNDA
R2
RMWCO, RO
RO
#256. .R1
#8IT1,RMCS10
305%
#258. .R1
R1,RO
310s
RO
315%
R2
315s
R1.RO
R2

;sPUSH R2 ON STACK
:LOAD REQUESTED CYLINDER, TRACK,
;AND SECTOR ADDRESS IN ASSIGNED STORAGE
*R2 = NUMBER OF SECTORS
:RO = WORD COUNT
‘MAKE NUMBER POSITIVE
;R1 = NUMBER OF WORDS PER SECTOR
:1S THIS A HEADER AND DATA COMMAND 2?
INO !
:CHANGE WORDS PER SECTOR
*IS THERE A FULL SECTOR ??
SYES
!
*1S RO ZERO ??
SYES !
JINCREMENT FOR PARTIAL SECTOR
s SUBTRACT ONE SECTOR FROM WORD COUNT
. INCREMENT SECTOR COUNT

MOV

R2.,500%

;SAVE SECTOR COUNT

B8R

R1,=-(SP)

305%

::PUSH R1 ON STACK

;LOAD PARAMETERS AND SEARCH THE MFG/USER SECTOR FILE FOR THE
:ASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT SECTORS IF THE

ggg

JSECTOR COUNT IS MORE THAN ONE.

012737

110340

043340

MOV

004737
012737

043042
111346

043340

JSR
MOV

004737

063042

ggg 043036

000137

043302

331 043042
332 043050

013737
013737

001512
001514

%gz 043056

MOV

319
320

323 043012
324
325 043020
326 043026
327
328 043032

THE

013737

043330

JSR

043334
043336

063332

320%:

MMFGFIL+14,5408 ;THE STARTING ADDRESS OF MFG FI]LE
:TO BASE ADDRESS STORAGE.
PC.320%
*GO SEARCH FILE
NUSRFIL+14,5408 :LOAD STARTING ADDRESS OF USR FILE
:TO BASE ADDRESS STORAGE.
PC,320$
:GO SEARCH FILE

JMP

4008

:DONE WITH ALL FILE SEARCHES !'!

MOV
MOV

ASNDC , 5208
ASNDA , 5308

:LOAD COMPARING CYLINDER ADDRESS
sLOAD COMPARING TRACK, SECTOR ADDRESS

MOV

5008, 5108

:LOAD NUMBER OF SECTORS TO CONFIRM

CZRMOAQ RMOS5/3/2 FCINL TST 3

BAD SECTOR MODULE

MACRO v03.01

H 15
11-APR-80 13:39:53 PAGE 16-~6

SEQ 0189

235

;SETUP FOR A BINARY SEARCH OF THE CURRENT FILE FOR THE COMPARING

337 063064

5258

336

338 043
339 043070
340 043074
1 0643076
gz; 043102

CYLINDER,

013700
022710
001446
021037
001010

043340
177777

330%:

043334

TRACK AND SECTOR ADDRESS

MOV
CMP
BEQ
CMP
BNE

5408 ,R0
#-1,(R0O)
370$
(R0),520%
3508

;LOAD THE BASE ADDRESS IN RO
;IS THIS FILE TERMINATOR ?
‘BR IF YES
;DOES TABLE ENTRY = (COMPARING CYLINDER ?
‘BR IF NO

344,

;FILE ENTRY EQUALS COMPARING CYLINDER.

246 043104

345$:

345

347 063106
gzg 043112

350 043114

- THE COMPARING TRA(CK, AND SECTOR.

126037
001004

000003

043337

126037

000002

043336

gg; 043122

001402

353 043126
ggg 043126

0220290
000760

256
357

358 043130

359 043130

043134
361 0643142
362 043744
363 043150
364 063154
365 043162
366 043164
367 043170
368 043176
369 043202
370 043204
ggg 043210

105237

122737
103337
105037
105237
123737
103327
005037
005237
022737
103317
005037
000714

001514

3608:

000037

001514

001514
001515
001333

001515

00151¢
001512
001466

001512

04333?

380 043220
381 043224
382 043232

105237
122737
103022

043336
000037

385 043244

;DOES TABLE ENTRY = COMPARING TRACK ?
‘BR IF NO

2(R0),530%
3608

*BR IF

cMP
BR

(RO)+, (RO)+
3308

JNO, ADJUST CYLINDER POINTER IN BAD FILE
SAND CONTINUE SEARCH.

;DOES TABLE ENTRY = COMPARING SECTOR ?
YES

INCB

ASNDA

: INCREMENT SECTOR

#31.,ASNDA
*SECTOR OK ??
320$
SYES !
ASNDA
. CLEAR SECTOR AND ADVANCE TRACK
ASNDA+1
LSTRK+1,ASNDA+1 :TRACK OK ?
320$
SYES !
ASNDA
;CLEAR TRACK AND SECTOR
ASND(
s INCREMENT CYLINDER
#822. ,ASNDC
:CYLINDER OK ??
320$
SYES )
ASND(C
;START AT CYLINDER O
3208
:SEARCH NEXT SECTOR

;s THE COMPARING SECTOR IS NOT IN THE BAD SECTOR FILES.
DECREMENT THE
sNUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF THE NUMBER
1S NOT ZERO.

005337
001442

386 043252
387 043254
388 043260
389 043264
390 043272
391 063276

CMPB

(MPB
BHIS
CLRB
INCB
CMPB
BHIS
CLR
INC
CMP
BHIS
CLR
BR

001512

377 043212
ggg 043216

383 043234
043240

3(R0),530$+1
3508

;s THE COMPARING CYLINDER, TRACK AND SECTOR IS IN THE BAD SECTOR FILE.
:ADVANCE THE ASSIGNED SECTOR AND START THE SEARCH ALL OVER.

373
274
375

376 043212

CMPB
BNE
BEQ

350%:

SEE IF THE NEXT ENTRY EQUALS

105037
105237

123737

103012
005037
005237
022737
103002
005037

043336
043337

001333

043336
043334
001466

043334

370s:

043336

043337

063334

DEC
BEQ

510%
410%

;DECREMENT NUMBER OF
:DONE IF ZERO

INCB
C(MP8
BHIS
CLRB
INCB
(MPB
BHIS
CLR
INC
CMP
BHIS
CLR

5308
#31..5308
375%
5308
5308+1
LSTRK+1,5308+1
375%
5308
5208
#822..520%
375%
5208

: INCREMENT THE COMPARING SECTOR
*SECTOR OK ??
SYES
!

$CLEAR SECTOR
: INCREMENT TRACK

:TRACK OK ??

LYES !
:CLEAR SECTOR TRACK
< INCREMENT CYLINDER
*CYLINDER OK ??
SYES !
*START AT CYLINDER 0

SECTORS TO COMPARE

—

CZRMOAQ RMOS/3/2 FCINL TST 3

BAD SECTOR MODULE

392
ggz 043300

MACRO v03.01

SEQ 0190

000671

375%:

395

325%

;SEARCH NEXT SECTOR

;ASSIGN THE SECTOR AND RETURN TO USER

396 043302
397 043302
398 043310
399 043316
043320
400 043322

013737
013737
012602
012601
012600

401 043324
28% 043326

000240
000207

28§

001512
001514

001444
001416

400%:

MOV
MOV
MOV

ASNDC ,RMDCO
ASNDA ,RMDAO
(SP) +,R2

MOV

(SP)+,RO

NOP
RTS

MOV

4108:

(SP) +,R1

;LOAD CYLINDER
sLOAD TRACK AND SECTOR
;;POP STACK INTO R2

;:POP STACK INTO R1

;.POP STACK INTO RO

:THE FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE

406 043330

407
408
409
410
411
412

I 15

11-APR-80 13:39:53 PAGE 16-~7

043332
043334
043336
043340
043342

000000

000000
000009
000000
000000
000000

5008:

5108:
5208:
530$:
5408%:
5508:

.WORD

WORD
.WORD
.WORD
.WORD
.WORD

0
0
0
O
O

;RETRY COUNT/ NUMBER OF SECTORS REQUIRED

;NUMBER OF SECTORS TO COMPARE
; COMPARING CYLINDER
: COMPARING TRACK AND SECTOR
;BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED
; CONTAINS RMERZ2

CZRMOAQ RMOS/3/2 FCINL TST 3

BUFFER GENERATOR SUBROUTINE

15
11-APR-80 13:39:53 PAG 17

MACRO v03.01

SEQ 019

.SBTTL

BUFFER GENERATOR SUBROUTINE

;THIS SUBROUTINE GENERATES A DATA BUFFER FOR WRITE COMMANDS.

:BUFFER STARTS AT RMBA AND IS RMWC WORDS LONG.

6
4
g

:FROM THE DATA PATTERN TABLE, BEGINNING AT ADDRESS STMPO.
:HEADER INFORMATION FOR THE BUFFER IS EXTRACTED FROM RMDC,
RMDA AND RMOF
.

THE

sCONTAINS A REPETITIVE DATA PATTERN CONSISTING OF $TMP1 WORDS

10
1
12
13

:RO
;R1
:R2
JR3

16
17

;CALL:
2 (1)

}é

=
=
=
=

ADDRESS OF DATA BUFFER
LENGTH OF DATA BUFFER
ADDRESS OF DATA PATTERN
LENGTH OF DATA PATTERN

JR4 = SECTOR COUNT

. (2)

20 043344
043344

043350
043352
043354
043356
043362
043366
043374

010046
010146
010246
010346
010446
013700
013701
013737
013737

26 063402
27 043410
28 043412
29 043416

032737
001445
013710
052710

043346

21
22
23
gé

THE BUFFER

%? 043422

012702

32
33
34
35

043426
043434
043436
043442

032737
001404
052710
012702

37 043446
gg 043450

005201
001443

40
41
42
43

005720
013720
005201
001436

043452
043454
043460
043462

44 043464
45 043470
46 043472
47 043474
48 043476
49 043500
50 043504

51 043512
52 043514

012703
105213
120213
103013
105013
105263
123763
103004
105063

GENBUF

001414
001412
001444
001416

000002

043576

043600

0016410

10$:

043576
140000
000035
010000

001442

010000
000037
158:

043600

042600

000001
001333

000001

JSR

PC, GENBUF

MoV
MOV
MoV
MOV
MoV
MOV
MOV
MoV
MoV

RO,=-(SP)
R1,-(SP)
R2.,=(SP)
R3,-(SP)
R4 ,=(SP)
RMBAO, RO
RMWCO,R1
RMDCO, 60%
RMDAOD,65%

;:PUSH RO ON STACK
s.PUSH R1 ON STA(K
;:PUSH R2 ON STACK
;cPUSH R3 ON STACK
;;PUSH R4 ON STACK
;LOAD DATA BUFFER ADDRESS
sLOAD WORD COUNT
;LOAD STARTING CYLINDER ADDRESS
sLOAD STARTING TRACK,SECTOR ADDRESS

BIT
BEQ
MOV
BIS
MOV

#8IT1,RMCS10
25%
608, (RO)
WMSE !USE, (RO)

#29.

,R2

;WRITE HEADER & DATA??
;NO!!
JWRITE HEADER WORD #1
;SET BAD SECTOR FLAGS FOR GOOD SECTOR
:R2
= MAXIMUM SECTOR ADDRESS (29.)

BIT
BEQ
BIS
MoV

N#FMT16 ,RMOFO
15%
#FMT16, (RO)
#31..R2

;18 BIT FORMAT??
JYES !
;SET 16 FORMAT BIT IN HEADER
s CHANGE MAXIMUM SECTOR ADDRESS (31.)

INC
BEQ

R1
508

s INCREMENT WORD COUNT
SEXIT IF DONE

TST
MOV
INC
BEQ
MOV
INCB
(MP8
BHIS
CLRB
INCB
(MPB

(RO) +
658, (RO) +
R1
508
#6538 ,R3
(R3)
R2, (R3)
25%
(R3)
1(R3)
LSTRK+1,1(R3)

sMOVE RO TO HEADER WORD #2
sWRITE HEADER WORD #2
s INCREMENT WORD COUNT AND
JEXIT IF DONE

BHIS
CLRB

253
1(R3)

RETURN HERE

sADVANCE SECTOR ADDRESS

:SECTOR OVERFLOW ??
HUURE
;YES - CLEAR SECTOR ADDRESS
;ADVANCE TRACK ADDRESS
TRACK OVERFLOW ??

:NO
:YES = CLEAR TRACK ADDRESS

CZRMOAQ RMO5/3/2 FCINL TST 3

BUFFER GENERATOR SUBROUT INE

53 043520
54 043526
55 063530
56 043534
57 043540
58 043542
59 043544
60 043546
61 043550
62 043552
63 043554
64 043556
65 043560
043560
043562
043564
043566
043570
66 043572
gg 043574

000249
000207

69 043576
;? 043600

000000
000000

105237
012704
013702
013703
012220
005201
001405
005304
001714
005303
001765
000770

012604
012603
012602
012601
012600

063576
000400
001174
001176

MALRO V03.01

K 15
11-APR-80 13:39:53 PAGE 17-1

SEQ 0192

25%:
30%:
40%:

50%:

60%:
65%:

INCB

MOV
MOV
MOV
MOV

INC
BEQ
DEC
BEQ
DEC
BEQ
BR
MoV
MOV
MOV
MOV
MOV
NOP
RTS

.WORD
-WORD

603

#256. R4

$TMPO ,R2
$TMP1,R3
(R2)+,(RO)+

(SP)+ ,R4

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

(SP)+,RO

;ADVANCE CYLINDER ADDRESS
;LOAD SECTOR DATA COUNT
sLOAD PATTERN ADDRESS
sLOAD PATTERN COUNT

;WRITE DATA PATTERN

s INCREMENT WORD COUNT AND
SEXIT IF DONE
sDECREMENT SECTOR COUNT
sSTART NEXT SECTOR IF O
sDECREMENT PATTERN COUNT
cRESTART PATTERN IF 0O
;CONTINUE DATA PATTERN
;.POP STACK INTO R4
;.POP STACK INTO R3

;.POP STACK

INTO RZ

;.POP STACK INTO R1
;:POP STACK INTO RO

sCYLINDER ADDRESS STORAGE
;TRACK, SECTOR ADDRESS STORAGE

CZRMOAQ RMOS5/3/2 FCTINL TST 3

=000 NN NS WA

COMPARE BUFFER SUBROUTINE

:THIS SUBROUTINE COMPARES THE CONTENTS OF BUFONE AND BUF TWO,

:ASSUMING THAT BUFONE IS THE BUFFER FROM WHICH DATA WAS WRITTEN

JAND BUFTWO IS THE BUFFER TO WHICH DATA WAS READ. ERRORS IN BUFFER
:COMPARISON ARE REPORTED TO THE USER VIA THE USER'S ERROR CALL.

sCALL:

;)
;(2)

JSR
.WORD

(%
;(4)

B8R
NOP

ed md e
o

.SBTTL

;(5)
;(6)
043602
043602
043604
043606
043610
043612

010046
010145
010246
010346
005037

044142

21 043616

033737

004000

001366

23 043626

032737

100000

001350

25 043636

032737

000100

001350
001366

—

L 15
11-APR-80 13:39:53 PAGE 18

SEQ 0193

COMPARE BUFFER SUBROUT INE

MACRO v03.01

:
CMPBUF

27 043646

032737

010000

30
31 043656
32 043662
gz 043666

013700
013701
052737

001414
001400
100000

35
36 0643676
37 043700
38 043702
39 043706

022701
103004
162701
005720

000020

40 043710
41 043712

2% 043716

000771
012702

010203

000020
000001

.WORD

PC, CMPBUF
WRITE BUFFER ADDRESS
READ BUFFER ADDRESS

RETURN HERE IF NO ERROR
RETURN HERE IF ERROR

ERROR
272

MOV
MOV
MOV
MOV

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

CLR

;DETERMINE

BIT

BNE

BIT

BEQ

BIT

BNE
BIT
BEQ

ERROR DEFINED BY SUBROUTINE

1508

DATA SHOULD BE

ECI,RMOFI
80%

;:PUSH RO ON STACK
2;PUSH R1 ON STACK

;cPUSH R2 ON STACK

;sPUSH R3 ON STACK
sCLEAR CORRECTION FLAG
CORRECTED

:SSECC CORRECTION ALLOWED ??

#DCK,RMER1I

:SSTHERE A DATA CHECK ??

N#ECH,RMER1I

ISSERROR CORRECTION HARD SET ?
YE

80$

80%
#FMT16,RMOF
|
80%

#8
THIS 16 BIT FORMAT

;CORRECT DATA USING ECC INFORMATION
MOV
MOV

0464142

8IS

RMBAQ, RO
RMEC1I.R1

#IT15,150%

;RO = STARTING BUFFER ADDRESS
JR1 = ECC POSITION
;SET CORRECTION FLAG

sMOVE RO TO WORD BOUNDARY OF ERROR BURST
10$
WP
#16. ,R1
#8BIT POSITION > 1 WORD
BHIC
208

SuB

#16. .R1

BR
MOV
MOV

108
”1,R2
R2.R3

TST

20%:

(RO)+

.SLBTRACT 1 WORDS WORTH
;ADVANCE BUFFER ADDRESS 1 WORD

;R2 = BIT POINTER

:R3

BIT NUMBER

;MOVE R2 TO STARTING BIT OF ERROR BURST

50s:

45 043720
46 043722
47 043724
48 0643726
49 043730
g? 043732

020301
001403
006302
005203
000773
012703

000013

35%:

52
53 043736

030237

001402

408:

CMP
BEQ
ASL

INC

B8R

MOV

R3,R1
35§

;SHIFT BIT POINTER
s INCREMENT BIT NUMBER

#11.,R3

:R3

308

.CORRECT THE ERROR BURST

BIT

;1S R3 SAME AS R1 2?
.YES !!

R2,RMEC?]

LENGTH OF ERROR BURST

;1S THIS BIT SET IN ECC PATTERN ??

CZRMOAO RMOS/3/2 FCINL TST 3

COMPARE BUFFER SUBROUTINE

54 043742
55 043744
56 043746
57 043750
58 043752
59 043754
60 043756
61 043760
62 043762
63 043766
64 043770
65 043772

MACRO v03.01

001405

5
11-APR-80 13:39:53 PAG 1 8-1
BEQ
BIT

608
R2, (RO)

sNO - DO NOT CORRECT THIS BIT
;1S THE BIT PRESENTLY SET ??

8IC

R2, (RO)

*RESET THE BIT

BEQ

50$:

608:
000001
708:

000010
000002
000010

000010

60$

ASL
BNE

R2
70s

3IS

MOV
TST
DEC
BNE

MOV
ADD

908:

MOV
SUB
(MP
BNE
DEC

BNE
B8R

87 044074
88
89
90 044102
91 044110
92 044112
93 044120
94 044126
95 044130

96 044140
97
98 044142
99

112776

032737
001403
112776
162766

000240

012603
012602
012601
012600
000207
000000

508

R2. (RO)

;SET THE BIT

#1.,R2
(RO)+
R3
408

;CONTINUE WITH FIRST BIT OF NEXT WORD

210(SP) ,R1

#2.10(SP)

RMJCI,R2
RMWCO.R2
(RO)+, (R1)+
100%
R2

90$
1108

:DATA COMPARE FAILED

1008:

MoV
MOV

~(R0) ,$GDDAT
-(R1) ,$8DDAY

MOV
MOV

R1,$8DADR
R2 $TMPO

MOV

000010

ADD

000010

044142

000010

*NO

*SHIFT TO NEXT BIT

;END OF BURST ?7?
‘NO !

:COMPARE WRITE BUFFER TO READ BUFFER
80$
MOV
?810(SP) RO
;RO = WRITE BUFFER
ADD
#2.10(SP)
:MOVE SP TO READ ADDRESS

000010

014037
014137
010037
010137

SEQ 0194

MOVB

RO, $GDADR

#4°10(SP)

#33%6.310(sP)

*R1 = READ BUFFER

sMOVE SP TO RETURN ADDRESS
;R2 = NUMBER OF WORDS TRANSFER
; COMPARE DATA WORDS
SEXIT IF NOT EQUAL
*DECREMENT WORD "OUNT

SCONTINUE IF NOT DONE

;DONE COMPARE ~ N ERROR
;STORE GOOD DATA FOR TYPEOUT
:STORE BAD DATA FOR TYPEOUT
:STORE ADDRESS OF GOOD DATA
:STORE ADDRESS OF BAD DATA
:STORE WORD COUNT OF ERROR
sMOVE SP TO USER'S ERROR CALL
sWRITE ERROR NUMBER IN CALL

; CHANGE ERROR NUMBER IF ECC CORRECTION FAILED
BIT
#81T15,1508
sWAS ECC CORRECTION USED ??
8EQ

105%:
110%:

150%:

MOVB

1058

.mll

SUB

#2,10(SP)

#163,a10(SP)

*ECC CORRECTION FAILED

MOV
MOV
MOV
MOV
RTS

(SP)+,R3
(SP)+.R2
(SP)+,R1
(SP)+.R0
PC

;:POP STACK INTO
::POP STACK INTO
;:POP STACK INTO
1:P0P STACK INTO
*RETURN TO USER

NOP

.WORD

‘MOVE SP TO RETURN IF ERROR
R3
R2
R1
RO

JECC CORRECTION FLAG

CZRMOAO RMOS5/3/2 FCTNL TST 3
GET STATUS SUBROUTINE
1

NON NS WY

SEQ 0195

GET STATUS SUBROUTINE

:THIS SUBROUTINE SETS UP THE '‘GET

INDEX TABLE'' AND THE 'GET

;BUFFER'' FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBRNUTINE
;AND THEN RETURNS TO THE USER.

CALL:
4144

044144
b

GETSTS:

010046

)
~
o
)

27 044222
28 044224
%8 044226

o
N

-—b

3392

23S

—

cd ol wod

b wnd

)

FRER
SRS NIFRERS&
NN
M) =d b b

—

b
b
)
b
d

N1 5
11-APR-80 13:39:53 PAGE 19

SBTTL

PSSP Ny VOO NONE W=
RERR
RRRRRRRR
PN
N
— el cmd wed

MACRO v03.01

012600
000240
000207

001522
001404
000046

000002

2%:
3s:

000022

000200

A ¥

JSR
7?

PC,GETSTS

MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1,-(SP)
R2,=(SP)

RETURN HERE

;;PUSH RO ON STACK
;sPUSH R1 ON STACK
;;PUSH R2 ON STACK

#GETINX RO

;RO = ADDRESS OF

W#RMEC2,R2

sR2 = REGISTER INDE

=(R1)
#2,R2
43
ggMDB.RZ

sCLEAR CORRESPONDING LOCATION
;DECREMENT TO NEXT INDEX
sBRANCH OUT IF DONE
;DONT WRITE RMDB INDEX

=(R1)
3%
#200, (RO) +
(SP)+,R2
(SP)+ ,R1
(5P)+,RO

WRITE TERMINATOR
;.POP STACK INTO RZ2
;sPOP STACK INTO R1
;sPOP STACK INTO RO

HRMEC2]+2,R1

R2, (RO)+

INDEX TABLE

;R1 = ADDRESS OF GET BUFFER

JWRITE REGISTER INDEX IN TABLE

.SBTTL

SEQ 0196

GET SUBROUTINE

:THIS SUBROUTINE READS THE REGISTERS WHICH ARE LISTED IN THE

:''GET INDEX TABLE'' AND STORES THEIR VALUES IN THE CORRESPONDING
;LOCATION IN THE ''GET REGISTER BUFFER''.
FOR EXAMPLE, AN
:ENTRY OF C
IN THE TABLE WILL CAUSE THt SUBROUTINE TO
;READ 'RMBA AND STORE ITS CONTENTS AT THE LOCATION IN

;THE BUFFER ASSIGNED TO THAT REGISTER.
THE NUMBER OF
;REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22: THE INDEX
;TABLE MUST BE TERMINATED WITH A CONTROL BYTE (200)
sWHICH SHOUI.D FOLLOW THE LAST ENTRY.
;SUBROUTINE CALL:

(1)

"GET INDEX TABLE'' HAS BEEN LOADED WITH REGISTER INDEX

VALUES AND TERMINATED WITH A CONTROL BYTE

:(2)

"GET INPUT BUFFER'' IS AVAILABLE FOR USE.

UNUSED LOCA IONS, I.E..ENTRIES IN BUFFER CORRESPONDING
TO REGISTERS NOT READ, ARE NOT CHANGED.)

;

gggon

JSR

:(3)

20
21

;

%{9)

31 044230

32 044232
33 044236

34 044242
35 044246

044250
044252
044254
044256

044260
044264

000240

062716
105076

162716
010046

010146
010246
010346
010446

013746
013746

000004
000006

016037
032737
001007
062766
112776
000423
105714
100433
111401
042701

000000
004000

001176
001176

000004
000112

000016
000016

000010

001174

18:

3s:

177700

ADD
CLRB

MoV
MOV

42 044326
43 044334
44 044342
45 044344
46 044352
47 044360
48 044362
49 04°364
50 0/ 366
51 044370

016037

NOP

MOV
MOV
MOV
MOV

000004
000006

SUB DEF INES ERROR NUMBER

suB
MOV

001276
001334
001522
044412
00070

RETURN HERE IF NO ERROR FOUND

RETURN HERE IF ANY ERROR FOUND

R3 = BUFFER ADDRESS

000004

013700
012702
012704
012737
012737

PC,GET
27?

R4 = POINTER TO REGISTER INDEX

GET:

00004
000000

36 044270
37 044274
38 044300
39 044304
40 044312

41 044320

NOP

nunonnn

®e
8y 8,

N
~

(NOTE THAT

:
:

2
~n

D
s
ad)
e
d
h
)
e
—d

B 16
11-APR-80 13:39:53 PAGE 20

MACRO v03.C1

VO NN WN=2OVDNON.
SN

CZRMOAQ RMOS/3/2 FCTINL TST 3
GET SUBROUTINE

#4, (SP)
a(SP)
#4, (SP)
RO,~(SP)
R1,-(SP)
R2,=-(SP)
R3,-(SP)
R4 ,~(SP)

ERRVEC,-(SP)
ERRYEC+. ,~(SP)

MOV
MOV
MOV
MOV
MOV

$8ASE ,RO
#GE TBUF ,R?
#GETINX
R4
#5% ,ERRVEC
#PR6,ERRVEC
+2

MOV
BIT
BNE
ADD
mMovB
BR
7ST8
BM]
MOvB
BIC

RMCS1(RO),$TMPT
#DVA,$TMP1
3s
#4,16(SP)
#112,316(SP)
78
(R4)
9%
(R4) ,R1

MOV

:CLEAR ERROR NUMBER IN USER'S
;ERROR CALL
;:PUSH RO ON STACK

;:PUSH
:;PUSH
;:PUSH
;sPUSH

R1
R2
R3
R4

ON
ON
ON
ON

STA(CK
STACK
STA(K
STACK

;;PUSH ERRVEC ON STACK
;;PUSH ERRVEC+2 ON STACK

;SETUP FOR TIMEOUT

RMCS2(RO) ,$TMPO ;GET 'NED'' STATUS

#*CIDXMSK,R1

;GET ‘DVA'* STATUS
;DEVICE AVAILABLE??
JYES!!
;WRITE ERROR NUMBER IN USER'S
;ERROR CALL

;DONE??
JYES!!
;R1 = REGISTER ADDRESS
;CLEAR ANY SIGN EXTENSION

—

CZRMOAO RMOS/3/2 FCTINL TST 3
GET SUBROUTINE

52 044374
§3 044376
54 044400
§5 044404

060001
112403
042703
060203

56 044406
gg 044410

011113
000764

59 044412
60 064416
61 0464422
62 044430

022626
062766
112776
162766
105714
100405
005003
112403
060203

63 0464436

66
65
66
67

044440
044442
044444
044446

68 044450

69 044452
70 044454
04644564
044460
0644464
044466
044470
044472
0644474
71 044476

MACRO v03.01

177700

000004
000007
000002

000016
000016
000016

5% :
78%:
8s:

RO,R1
(R4)+,R3
#*CIDXMSK,R3
R2.R3
(R1), (R3)
3

:READ REGISTER

CMP
ADD
MOVB
suB

;RESTORE STACK
*WRITE ERROR NUMBER IN
‘USER'S ERROR CALL

BMI
CLR
MOVB
ADD

<sp>+.(sp>+
4,76(SP)
7 816(SP)
#2.16(SP)
(R&)
9%
R3
(R4)+,R3
R2,R3

MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTS

(SP)+,ERRVEC+2
(SP)+.ERRVEC

TSTB

CLR

000771

000006
00009+

9%:

SEQ 0197

ADD
MOVB
BIC
ADD

MOV
BR

005013

012637
012637
012604
012603
012602
012601
012600
000207

c 16
11-APR-80 13:39:53 PAGE 20-1

:R3 = STORAGE ADDRESS FOR REGISTER
:CLEAR ANY SIGN EXTENSION

:DONE CLEARING??

YES
CLEAR REMAINING STORAGE
*LOCATIONS

(RS)

(SP)+,R4
(SP)+,R3
(SF)+.R2
(SP)+,R1
(SP)+,R0

::POP STACK INTO ERRVEC+2
;:POP STACK INTO ERRVEC

c:POP
;:POP
$:POP
;;POP
;:POP

STACK
STACK
STACK
STACK
STACK

*RETURN

INTO
INTO
INTO
INTO
INTO

R4
R3
R2
R1
RO

CZRMOAQ RMOS/3/2 FCTNL TST

D amd —d
e
b
— el e

D 16
11-APR-80 13:39:53 PAGE 21

.SBTTL

SEQ 0198

PUT SUBROUTINE

sTHIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THE

:'PUT INDEX TABLE'' WITH THE CONTENTS OF THE CORRESPONDING
;LOCATION IN THE 'PUT REGISTER BUFFER''.
THE NUMBER OF
JREGISTERS WRITTEN IS VARIABLE; THE INDEX TABLE MUST

;BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD
‘FOLLOW THE LAST ENTRY.

*SUBROUTINE CALL:
S
H

INN = O D00 NN LS AN —

SUBROUT INE

MACRO v03.01

. (2)
:

OV 00NN

PUT

1(3)

:
:
:

Eg?

"PUT_INDEX TABLE'' HAS BEEN LOADED WITH INDEX VALUES

OF REGISTERS TO BE WRITTEN.

"PUT REGISTER BUFFER'' CONTAINS CONTENTS OF EACH

B8R

NOP
ERROR
272

PC.PUT

277?

RETURN HERE
RETURN HERE

IF NO ERROR FOUND
IF ANY ERROR FOUND

SUB DEFINES ERROR NUMBER

‘R2 = BUFFER BASE ADDRESS
"R3 = BUFFER ADDRESS

R4 = POINTER TO REGISTER

28 044500
29 044502
044504
064506
044510
044512
044514
044520
30 044524
31 044530
32 044534
33 044540
36 044546
35 044554

000240
010046
010146
010246
010346
010446
013746
013746
013700
012702
012704
012737
012737
016037

37 044570

032737

39 044600

40 044606
41 044614
42 044616

43 044620
44 044622
45 044624
46 044630
47 044632
. 48 044634
49 044640
50 044642
51 044644

062766

112776
000424
105714

100425
1116401
042701
060001
111403
042703
060203
011311
105724

PUT :

NOP

MOV

RO.,~ (SP)

MOV
MOV

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

J3PUSH R2 ON STACK
;:PUSH R3 ON STACK
;sPUSH R4 ON STACK
2;PUSKR FRRVEC ON STACK
. sPUSH ERRVEC+2 ON STA(CK

MOV
MOV

#58 ERRVEC
#PR6, ERRVEC
+2

:SETUP FOR TIMEOUT

MGy
BIT
BNE
ADD

JGET 'DVA'' STATUS

MOVB

RMCST(RO)
. $TMP1
#DVA, $TMP1
38
#4,16(SP)
#112.316(SP)

TSTB
BMI

(R4)
9

8IC
ADD

#*C1DXMSK,R1
RO,R1

MOV

000004
000006
001276
001410
001551
044650
000300
000010
000000
(04000
000004

000112

000004
000006

001174

001176
001176

MOV
MOV
MOV
MOV
MOV
MOV

18$:

000016
000016
3%:

MOV

B8R

Mov8e

177700

Movse
8IC

177700
4$:

INDEX

MOV

TSTB

R1,-(SP)

R4 ,-(SP)
ERRVEC,=-(SP)
ERRVEC+2,~(SP)
$BASE RO
#PUTBUF ,R2
#PUTINX
R4

;<PUSH RO ON STACK
;:PUSH R1 ON STACK

RMCS2(RO)
, $TMPO JGET 'NED'' STATUS

(R4

,R1

:DEVICE AVAILABLE??
.YESII

*WRITE ERROR NUMBER N
SUSER’S ERROR CALL

;DONE?7?
JYES!!
;JR1 = REGISIER ADDRESS

JCLEAR ANY SIGN EXTENSION

(R4) ,R3
#‘CI%XMSK.R3
R2.R

;R3 = STORAGE ADDRESS

(R4)+

;ADJUST REGISTE# POINTER

(R$), (R1)

;CLEAR ANY SIGN EXTENSION

JWRITE REGISTER

CZRMOAQ RMOS/3/2 FCINL TST 3

PUT SUBROUT INE

é% 044646

000763

56
55
56
g;

022626
062766
112776
162766

044650
044652
044660
044666

59 044674
044674
044700
044704
044706
044710
044712
044714
60 044716

012637
012637
012604

012603

C12602

012601
012600

000207

000004
000007
000002
000006
000004

MACRO v03.01

000016
000016
000016

5%:
7%:
9%:

E1 6
1~
11-APR~80 13:39:53 PAGE 21-1
BR

MP
ADD
MovB
SuB

(SP)+,(SP)+
#4,16(SP)
#7,316(SP)
#2,16(SP)

sADJUST STACK
sWRITE ERROR NUMBER IN
;USER'S ERROR CALL

MOV
MOV

(SP)+ ERRVEC+2
(SP)+ ,ERRVEC(

;.POP STACK INTO ERRVEC+2
;:POP STACK INTO ERRVEC

MOV

(SP)+,R3

:.POP STACK INTO R3

MOV

(SP)+,R4

;;POP STACK INTO R4

MOV

(SP)+ ,R2

;;POP STACK INTO R2

RTS

sRETURN

MOV
MoV

(SP)+ ,R1
(SP)+ RO

;.POP STACK INTO R1
:.POP STACK INTO RO

SEQ 0199

CZRMOAO RMOS/3/2 FCTNL TST 3
CLOCK SUBROUTINE
1

bbb

044736

044744
044752
044760
044764
044766
044770
044776
045004
045012

045016
045020
045022
045030
045030
045034
045040

013746
013746
012737
012737
012737
012737
005777
000421
022626
C12737
012737
012737
005777
000404
022626

000004
000006
044766
000300
177546

000100
134532
045020

172540
000104
134500

062765

000002

012637
012637
000207

000006
000004

SI1ZCLK:

000004
000006
001516
001520

000004
001516
001520

000004

1%:

2%:
3%:

11-APR=80 13:39:53 PAGE 2

.SBTTL
044720
044720
044724
044730

[AST ST,V
W)

SIZE

MACRO V03.01

SEQ 0200

SIZE CLOCK SUBROUTINE
MOV
MOV
MOV
MOV
MOV
MOV
TST
B8R

ERRVEC,=(SP)
ERRVEC+2,~(SP)

#1$, ERRVEC
#PR6 , ERRVE C+2

;PUSH ERRVEC ON STA(CK
; .PUSH ERRVEC+2 ON STACK
;SET UP FOR BUS TIMEOUT

#177546,CLKADR

;LOAD ADDRESSES FOR Kw11-L

sTEST FOR KW11-L PRESENT
JYES = KW11-L IS PRESENT

;TEST FOR KW11-P PRESENT
JYES = KW11-P IS PRESENT

ADD

#2,4(SP)

sMOVE RETURN TO ERROR

MOV
MoV
RTS

(SP)+ ,ERRVEC+2
égP)*.ERRVEC

cMP

MOV
MOV
MoV
TST
B8R

CMP

#100, CLKVCT
ACLKADR

(SP)+, (SP)+
#28 ,ERRVEC
#172540, CLKADK
#1064, CLKVCT
aCLKADR

(SP)+,(SP)+

SRESTORE SP
;SET UP FOR BUS TIMEOUT
cLOAD ADDRESSES FOR KW11-P CLOCK

¢RESTORE SP

. .POP STACK INTO ERRVEC+2

;.POP STACK INTO ERRVEC
JRETURN TO USER

MACRO v03.01

O 00 NOMNN
2

CZRMOAQ RMOS/3/2 FCINL TST 3
TIMEOUT SUBROUT INE

.SBTTL

ECALL:

HOSO

CER

LV, IV, IV, LV, LV, LV, IV, 1V, )
— b d d b 3 O
Nt

LAV,
—
W

R RRRRRRRRR

S WD S

Y |

OVONO
NS W20

SEQ 0201

TIMEOUT SUBROUTINE

sTHIS SUBROUTINE WAITS FOR RDY = 1 AND GO = 0 OR FOR A TIMEOUT
:GREATER THAN APPROX. 500 MSEC AND THEN RETURNS.

010046
010146
010246

[ )6 JE WU O YR

G1 6
11-APR-80 13:39:53 PAGE 2 3

21 045134

013746
013746
012737

012737
013700
013701
012702
020127
001003
012761
012711
016046
042716
022726
001420
032711
001766
005302
001354
000412
022626
062766
112776
162766

36 045224

012637
012637
012602
012601
012600
000207

TIMOUT:
000004
000006
045162
000300

001276
001516
000036

000004
000006

172540

000001
000005

1%:

000002

000000

2s:
3s:

177576

000200
000200

JSR
2?22

PC, TIMOUT

MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CMP
BNE
MOV
MoV

RO,=(SP)
R1,-(SP)
R2,=(SP)
ERRVEC,<(SP)

MOV
BIC
CMP
BEQ
BIT
BEQ

DEC
BNE
BR

000004
000007
000002

000006
000004

000012
000012
000012

CMP

ADD
MovB

SuB

5%:

MoV
MOV
MOV
MOV
0%
RTS

RETURN HERE

ERRVE(C+2,-(SP)

#4% ,ERRVEC
#PR6,ERRVE(+2

R1,#172540

#1,2(R1)

#B172!81T0,
(R1 )

;cPUSH RO ON STACK

JsPUSH R1

ON STACK

:+PUSH R2 ON STACK

;sPUSH ERRVEC ON STACK

2 ;PUSH ERRVEC+2 ON STACK
;SETUP FOR BUS TIMEOUT - 04 TRAP

;RO=BASE ADDRESS
sR1=CLOCK ADDRESS
;R2=NUMBER OF CLOCK CYCLES

;KW11-P CLOCK??

;NO!!
sSET COUNTER

;START COUNTER

RMCS1(RO) ,-(SP;):GET STATUS

#*C<RDY!GO>,
(S

ggDY.(SP)+

sRDY=1,G60=0??

#BIT7,(R1)
3$
R2

Egéqgh DONE2?

.yESll

*DEC NUMBER OF CYCLES

*CONTINUE IF NOT DONE

(SP)+,(SP)+
#4,12(SP)
#7,812(SP)
#2,12(SP)

;ADJUST STACK
sMOVE SP TO USER'S CALL
;WRITE ERROR NUMBER

(SP)+ ,ERRVEC+2
(SP)+ ,ERRVEC
(SP)+,R2
(SP)+,R1
(SP)+,R0O

*"RDY* DID NOT SET OR '‘GO'* DID NOT RESET
sWITHIN 500 MSEC AFTER THE COMMAND WAS [SSUED.

..POP STACK INTO ERRVE(C+2

;.POP STACK INTO ERRVEC
;;POP STACK INTO RZ
;.POP STACK INTO R1

;.POP STACK INTO RO
JRETURN TO USER

CZRMOAQ RMOS/3/2 FCINL TST 3

PRIMARY ERROR CHECK SUBROUTINE

H 16
11-APR-80 13:39:53 PAGE 24

MACRO Vv03.01

SEQ 0202

;

.SBTTL

;THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND

4
2

PRIMARY ERROR CHECK SUBROUTINE

. THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED.
;FOLLOUING CHECKS ARE MADE:

THE

-CORRECT UNIT IS SELECTED, I.E., THE UNIT SELECT BITS OF RM(CS2

.SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1) IS SET

.LAST COMMAND WAS COMPLETED, I.E., THE MASSBUS CONTROLLER IS

(BITS 0-2) EQUAL THE UNIT BEING TESTED!

};

AND NED

14
15
}9

(BIT 12 OF RMCS2)

IS RESET;

READY (BIT 7 OF RMCS1) AND THE GO 817 IS RESET (BIT 0 OF RMCS1) OR THE
DRIVE READY BIT (BIT 7 OF RMDS) IS SET,
IE
Mcgg PASITY ERROR OCCURRED WHEN READING REMOTE REGISTERS,

.NO ;ARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS,

:1.E.

ETHE SUBROUTINE ASSUMES THAT:

= 0, OR, PAR
= DPE
= 1

25
Sg

.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER,

IN PARTICULAR, RMCS1, RMCS2 AND PMN_ HAVE BEEN STORED IN
: CORRESPONDING LOCATIONS OF THE '‘Ge.' BUFFER.

. (SUNIT) CONTAINS THE DRIVE NUMBER

:THE SUBROUTINE IS CALLED AS FOLLOWS:

32
33
34
35
36

.(1)
:
:
H
:

Zg 045226

PRIERR:

41
42 045226
63 045232

Zé 045236

000004
000000
000004

46
47 045242
48 045250
49 045256

013737
042737
013737

001344
177770
001234

001142
001142
001140

51 045272

123737

001140

001142

52
53
54
55
56
57

045300
045302
045306
045314
045320

042737

001415
062716
112776
162716
004736

177770

000004
000001
000002

PC,PRIERR
7

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS

PC,a(SP)+

RETURN HERE IF NO MORE ERRORS

;CLEAR USER'S ERROR CALL
ADD
#4, (SP)
CLRE
a(SP)

062716
105076
162716

50 045264

JSR
B8R
NOP
ERROR
JSR

su8

001140

000000

1HEIR

;MOVE (SP) TO ERROR CALL
;CLEAR ERROR NUMBER
;MOVE (SP) TO NO ERROR RETURN

#4, (SP)

JREPORT AN ERROR IF THE WRONG UNIT IS SELECTED
MOV
RMCS21 ,$BDDAT
;CORRECT UNIT SELECTED??
BIC
#*CUNTM
, $BDDAT
SK
MOV
SUNIT,SGDDAT
.GOOD DATA FOR TYPEOUT

BIC

#*CUNTM
, $GDDAT
SK

BEQ
ADD
MOvB
SuB
JSR

1%
#4, (SP)
#1,3(SP)
#2,(SP)
PC.a(SP)+

(MPB

$GDDAT,$BDDAT

; COMPARE EXPECTED AND RECEIVED

;DRIVE NUMBERS
JYES!!

JERROR 1
;JMOVE SP TO RETURN FOR ERROR
sREPORT WRONG UNIT SELECTED

CZRMOAD RMO5/3/2 FCTINL TST 3
PRIMARY ERROR CHECK SUBROUTINE

58 045322
59 045326
045330
045334

162716
000240
000137

MACRO v03.01

116

11-APR-80 13:39:53 PAGE 24-1

SEQ 0203

000010

Su8

046050

1%:

NOP
JMP

#10, (SP)

JRESTORE

108

:SKIP OTHER CHECKS

;REPORT AN ERROR IF

045334
045342
045344
045352
045360
045366
045372
045400
045406
045410
045416
045424
045432
045440
045444
80 045446
045452
045454
045456

032737
001045
013737
052737
013737
062716

004000

001334

004000

001334
000004
000002
010000
001344
001344
010000
000003
000002

001334

BIT
BNE

001149
001140
001142

MOV

BIS
MOV

ADD
mMovB

000000
001344

001140
001142
001140
000000

000575

BIT

2%:

5%:

032737

000200

001334

013737

001334

001140

000004
000002

000000

RARIOIBIRIRICSS
RRERRRRRRRRRRR

b ad wd

nd e

md and o cnd e

wved wmd

000010
7%:

001334

000200

001346

001334

001140
001140
001142

160001

610

630
634

001334
000004
000005
000002
000010

000000

BEQ
MOV
MOV
BIC
Movs
suB
JSR
suB
NOP
BR

ggVA.RMCS1I

RMCS11,$GDDAT
#DVA ,SGDDAT
RMCS1],$8DDAT
#4, (SP)

#2,38(SP)
#NED ,RM(CS21]

(SP)

IS NOT AVAILABLE OR IF

:DE!{?E AVAILABLE??

JYES!!

JEXPECTED STATUS

JRECEIVED STATUS

JERROR #2
JWAS NED SET??

2%
RMCS2I,$GDDAT

JNO!!
JEXPECTED STATUS

#NED
, SGDDAT
#3,9(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;YES = CHANGE ERROR NUMBER
JMOVE SP TO RETURN FOR ERROR
;REPORT DEVICE NOT AVAILABLE
cRESTORE (SP)

108

:SKIP OTHER (HECKS

RM(CS2I,$8DDAT

cRECEIVED STATUS

SREPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY

001140
001140
001142

000001

THE DEVICE

sTHE DEVICE IS NONEXISTANT

000010

001030

[

8IT
BNE
MOV
BIS
8I1C
MOV
ADD
Movs
SuB
JSR
suB
NOP
BR

;REPORT AN ERROR

8IT

.
BE
BIT
BNE
MOV
BIC
MOV
ADD
MovB
SuB
JSR
SUB
NOP

;gDY.RMCS1l

;ngTBOLLER READY??

RMCS1]1,8GDDAT

JYES!!
;EXPECTED STATUS

RMCS11,$8DDAT

cRECEIVED STATUS

#RDY ,$GDCAT
#SC!
'MCPE !TRE
GO, $GDDAT

#4, (SP)
#4,9(SP)
#2,(SP)
PC,a(SP)+

#10, (SP)
108
IF

;ERROR #4
;MOVE SP TO RETURN FOR ERROR
;REPORT CONTROLLER NOT READY

JRESTORE

(SP)

;SKIP OTHER CHECKS
GO IS NOT ZERO AND DRY

#GO,RM(CS11]

8$%

#DRY ,RMDS ]

8s
RMCS1! S$GDDAT

.60 RESET??

IS NOT ONE

JYES!!

;DRIVE READY??

JYES!!
;EXPECTED STATUS

#SC!T
!MCPE !GO,Rc
SGDDAT
RMCS11,8BDDAT
;RECEIVED STATUS
#4, (SP)
#5,3(SP)
JERROR #5
#2,(SP)
;MOVE SP TO RETURN FOR ERROR
PC,a(SP)+
sREPORT DRIVE NOT READY
#10, (SP)
JRESTORE (SP)

CZRMOAOQ RMOS/3/2 FCTNL TST 3

PRIMARY ERROR CHECK SUBROUTINE

8%:

001334

001140

BEQ
MOV

001334
000004
000013
000002

001142

MOV

001140

000000

oo
o

~
wn

D ed

D ad e

R RRRR
wn
(P41,
1V, 1V, ]

9%:

R
4
p'A

001350

000010

001376

000010

001424

SRS
3S
cRS RN
v

o
(=4

160 046054
161 046056
162

001350
000010
001350
000004
000050
000002

RMCS1],$BDDAT
(SP)

;RECEIVED STATUS

‘MOVE STACK TO USER'S ERROR

MOVB

#13.3(SP)

*ERROR #13

JSR

PC.a(SP)+

*REPORT ERROR VIA USER

#2.(SP)

SuB

#10, (SP)

108

BIT

#DPE ,RMER2]

BT
“EQ

#PAR, RMER10
93¢

BNE

93%:

:MOVE SP TO RETURN FOR ERROR
*RESTORE STACK

000000

RO,=-(SP)

*WAS IT THE CONTROL BUS??

*NOT SURE!!

:DID TEST SE1 PAR ??
*NO!!

*;PUSH RO ON STACK

#PUTINX.RO
gggsn1,(ao>

‘RO POINTS TO INDEX TABLE
:SEARCH TABLE FOR RMER1

MOV

(SP)+,R0
118

;:POP STACK INTO RO
‘PAR WAS SET BY TEST

TSTB

BPL
MOV

MOV
BIC
MOV

movB

(RO)+

91%
(SP)+.R0

RMER1],$GDDAT
APAR, SGDDAT
RMER11,$BDDAT

¥4,

(SP)

“END OF TABLE??

*NO!!
*:POP STACK INTO RO

:EXPECTED STATUS
;RECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL

#50.a(sP)

‘WRITE THE ERROR NUMBER

PC.a(SP)+

*REPORT THE ERROR

suB

#2, (SP)

382

70, (SP)

*MOVE SP TO NO ERROR RETURN

ADD
2?2

#10, (SP)
oc

:RETURN TO ERROR
*RETURN TO NO ERROR

JSR

108:
11$:

11$

MOV
gmgs

ADD

000010
000010

#4,

:REPORT AN ERROR IF DETECTED A CONTROL BUS PARITY ERROR
gég
f?gR,RMER1I
;xg§erERE A PARITY ERROR??

918:

001140
001140
001142

‘NO!!
-EXPECTED STATUS

ADD

MOV

001551
000014

-Q

R RRRRRR

D
d e
d
d d
—

2 046014

O O ~NOWNES
W

—

000010

9%
RMCS11,$GDDAT

#SC ! TRE 'MCPE ! GO, $GDDAT

NOP

000453

108

BIC

SuUB

92% :

9 045776
046000

A% VANV

b cad

b o

d wrd =D

D e

NN SHHPBBW
~
oo~
-0

3 045760

;REPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD
*PARITY ON THE MASSBUS CONTROL BUS
BIT
#MCPE,RMCS1I
;PARITY ERROR ??

000010

032737

J 16
11-APR-80 13:39:53 PAGE 24-2

020000
160001

5720

000504

032737

RRRR

CONONVNIES
NN = OV~

) e

D e

D ed

D e

115 045636
045640

MACRO v03.01

‘MOVE SP TO RETURN FOR ERROR

SEQ 0204

CZRMOAOQ RMOS/3/2 FCTINL TST 3
MACRO v03.01
SECONDARY ERROR CHECK SUBROUTINE

K 16
11-APR-80 13:39:53 PAGE 25

SEQ 0205

;

.SBTTL

;THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS

S
3

:ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY
:ASSOCIATED WITH THE OPERATION BEING PERFORMED.

8
9
10

;NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS
:TO THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE
;MAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR

SECONDARY ERROR CHECK SUBROUTINE

:SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS.

;WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR,

THESE

IT MOVES THE ERROR

11
}?2)

:OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUT INE
JRETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL.

14
15
16
17
18

;CALL:
:
;
M
:

JSR
BR
NOP
ERROR
JSR

JNOTE:

THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE

gg 046060

SECERR:

;;tt*ttttt*tt*ttttttttt*t*tttttttt**ttttttttttitttfittittt*ttttt't

;

28 046060

013737

001410

29 046066
30 046074

042737
062716

177701
000004

gg 046104

162716

000004

31 046100

105076

051714

RETURN HERE IF NO MORE ERRORS

cSTORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER
MOV

051714

000000

’

RMCS10,515$

;STORE FUNCTION CODE

a(SP)

;CLEAR ERROR NUMBER

BIC
ADD

#C<FOTF11F2!'F3!F4>,515$
#4, (SP)
;MOVE (SP)

SuB

#4, (SP)

CLRB

:MOVE

TO ERROR CALL

(SP) TO NO ERROR RETURN

:;tt*tt*tttt*ttttttttt*t*ttttttttttttt*ttttttttttt'tttttttttttt't

;CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS

37
38 046110
39 046116
40 046120

43 046142

032737
001024
013737
042737
012737
062716

46 046160

004736

23 046166

000240

41 0466126
42 0661346

44 046146
45 046154

47 066162
50

51 046170

52
53
54
55
56
57

PC.a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SuB
GO BACK TO SUB FOR MORE ERROR CHECKS

JINPUT REGISTER BUFFER.

31.

222

PC,SECERR
773

046176
046200
046206
046214
046220
046224

112776
162716

000200

001346

001346
177577
000200
000004

001142
001142
001140

000010
000002

BIC
MOV

ADD

00000

000010

032737

000001

001334

001334
177776
001140
000004
000011

001142
001142

#10.a(sP)
#2.,(SP)

SuB

#10, (SP)

NOP

000000

#~CDRY, SBDDAT
#DRY, SGDDAT
#4, (SP)

move
SuB
JSR

162716

001423
013737
042737
(05037
062716
112776

;REPORT ERROR IF DRIVE IS NOT READY, I.E., IF DRY = 0
BIT
#DRY ,RMDS |
;DRIVE READY??
BNE
X3
SYES!!
MOV
RMDSI,$BDDAT
:BAD DATA FOR TYPEOUT

PC,a(SP)+

:GOOD DATA FOR TYPEOUT

;ERPOR NUMBER
*MOVE SP TO RETURN FOR ERROR
;REPORT NOT READY

;RESTORE (SP) TO ERROR N

:REPORT ERROR IF GO BIT IS NOT RESET

5$:

BIT

BEQ
MOV
BIC
CLR
ADD
mMov8

#GO,RMCS1]

108
RMCS1],$BDDAT
#~CGO, $8DDAT
$GDDAT
#4, (SP)
#11,3(SP)

;GO BIT RESET??

SYEST!
:BAD DATA FOR TYPEOUT

;GOOD DATA FOR TYPEOUT
;ERROR NUMBER

CZRMOAO RMOS/3/2 FCTNL TST 3

SECONDARY ERROR CHECK SUBROUTINE

58 046232

162716

§9 046236

004736

g; 046244

000240

60 046240

63
64 0662646

65
66
67
68
69

046254
046262
046270
046276
046300

70 046306

71 046312
72 046316
73 046320
74 046324
75 046326
76
77
78
79 046326
80 046332
81 046336

000010

013737
042737
013737
023737
001413
062716

001334
177701
051714
001142

162716
004736
162716
000240

005037

88 046376
89 046400

005737
001003
005737
001403
052737
013737
042737
023737
001412
062716

91 046412
92 046416

162716
004736

82 046340
83 046344
84 046346
85 046356
86 046362
87 046370

90 046404

gz 046420
95
9%
97

98 046424

99 046430
100 046434
101 046440

102 046442

103 046450
104 046452
105 046460
106 046462
107 046470
108 046476
109 046504
110 046512
111 046516
112 046520
113 046526
114 046532

112776

162716

000004

000012
000002

SUB

JSR

SUB

NOP

001142
001142
001140
001140

000000

001350

001376

000047
000002

001140
001142
001142
001142

20$:
258:

#15,3(SP)

SUB
JSR
sUB
NOP

#2,(SP)
PC,a(SP)+
#10, (SP)

ST
BEQ
BIS
MOV
BIC
CMP
BEQ
ADD

RMER2]
25%
#ERR, $GDDAT
RMDSI
, $8DDAT
#~CERR, $BDDAT
$GDDAT ,$8DDAT

:RESTORE (SP)

;:ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
JREPORT WRONG FUNCTION CODE
:RESTORE (SP)

*IS RMERZ = 077
SYES!!
“"ERR'* SOULD BE SET

308
¥4, (SP)

;IS "ERR'' 0K??
SYES!!
*MOVE SP TO USER'S ERROR

#2,(SP)
PC,a(SP)+

;MOVE SP TO ERROR RETURN
JREPORT INVALID COMP ERROR

MOVB

#47.3(SP)

SUB

#10, (SP)

SUB
JSR

000010

*WRITE ERROR NUMBER

JREPORT AN ERROR IF ''TRE'' IS SET AND NONE OF THE BITS WHICH SET
:TRE IS SET, OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH
SET TRE IS SET

001140

032737

040000

001346

000030

051714

040000
001334
137777
001140

001140
001142
001142
001142

000004
000014
000002

000000

001407
022737
103003
052737
013737
042737
023737
001413
062716
112776
162716
004736

MOVB

000000

005037

013746
042726
001010

#10, (SP)

:MOVE SP TO RETURN FOR ERROR

*REPORT DEVICE NOT AVAILABLE

15%:
;REPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER
JERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND
*OTHER ERRORS ARE SET
CLR
$GDDAT
;EXPECT "ERR''
= 0
ST
RMER1]
*IS RMER1 = 077
BNE
208
‘NO!!

001140

000004

#2,(SP)

PC.R(SP)+

;REPORT ERROR IF FUNCTION CODE READ FROM DEVICE IS NOT CORRECT
70$:
MOV
RMCSTI,$BDDAT
;IS FUNCTION CODE CORRECT??
BIC
#~(76,$BDDAT
MOV
515%, $GDDAT
:EXPECTED FUNCTION CODE
cMP
$BDDAT, SGDDAT
BEQ
15%
SYES!!
ADD
#4, (SP)

000010

040000
001346
137777
001140

L 16

11~-APR-80 13:39:53 PAGE 25-1
SEQ 0206

000002

162716

112776

MACRO v03.01

508:

001344
000377

MOV
BIC
BNE

8IT

358:
40%:

BEQ
cMP
BHIS
BIS
MOV
BIC
CMP
BEQ
ADD
MOVB
SuB
JSR

$GDDAT

RMCS2I,-(SP)
#377.(SP)+
358

HERR,RMDS |

408
#SEARCH,5158
408
ATRE , SGDDAT
RMCST1,$8DDAT
#*CTRE
. $8DDAT
SGDDAT.$BDDAT
45$
¥4, (SP)
#14,a(SP)
#2,(SP)
PC.a(SP)+

;EXPECT *"TRE'*
= 0

:WAS DLT, WCE, UPE, NED. NEM
*PGE, MXF OR MDPE SET
SYES!!

*WAS EXCEPTION RECEIVED??

*NO!!
:WAS DATA TRANSFERRED??
*NO'!
STRE'’ SHOULD BE SET
:BAD DATA FOR TYPEOUT

;1S '‘TRE'' OK??
SYES!!
*MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT TRE ERROR

CZRMOAO RMOS/3/2 FCTNL TST 3
162716

000240

8
1
11-APR-80 13:39:53 PAGE 25-2

000010

sus

NOP

45%:

S
E2 02022l

dalilsdilit

JRESTORE (SP)

22 2223222232222
222222

NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER
s STATUS CONDITIONS, E.G., WRITE LOCK ERROR SHOULD ONLY BE SET [f
:WRITE LOCK IS ON AND THF COMMAND IS A WRITE.

~
~

010046
013700
016037
012600

013737
032737
001403
052737
042737

:GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE
051714
071516

001140
001346

100000
077777
001346
077777
001140

001140
001140
001142
001142
001142

000006
000002

MOV
MOV
MOV
MOV

051706

051706
040000

000004

50%:

b ——

NN
MR
O

— —r
e

d ced
—d

000000

— cd

olelelote]

R
S
g

000004
000254
000002
000010
001140

051706
137777
001344
001142

5009, $GDDAT
#ERR ,RMDS |
508
#ATA,SGDDAT

BEQ
ADD

55%
#4, (SP)

#*CATA,S$GDDAT

;GET EXPECTED ATA STATUS
:1S COMPOSITE ERROR SET ??
JNO !
cEXPECT AN ATTENTION

;STRIP DONT CARES

RMDS I ,$8DDAT
#*CATA ,$BDDAT
$GDDAT ,$8DDAT

;GET RECEIVED ATA
;STRIP DONT CARES
;IS ATA OK ??

Movse
SUB

#6,3(SP)
#2,(SP)

suB

#10, (SP)

;LOAD ERROR # IN CALL
;sMOVE SP TO ERROR RETURN
;REPORT ERROR

JSR

NOP

55%:

013746
052716
013737
042637

MOV.
BIT
BEQ
BIS
8IC
MOV
BIC
tMP

000000

051706
177776
001350
177776
001140

-(SP)
:;PUSH RO ON STACK
515%,R0
SGET FUNCTION CODE
FNCDTB{R0),5008 :STORE ENTRY
(SP)+,R0
+:POP STACK INTO RO

JREPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF
sATA IS NOT SET AND SHOULD BE SET.

000010

SIEIRRRURTE

#10, (SP)

SEQ 0207

USING THE FUNCTION CODE TABLE, CHECK FOR THE FOLLOWING ERRORS:
.STATUS BITS NOT SET THAT SHOULD BE SET, E.G., ATA AND ILF
.STATUS BITS SET THAT SHOULD NOT BE SET. E.G.., WCE AND ECH

AN
O XNCVNE

AN NN NI NINONININIA)
— = = s s
VS WIWNWWN
WOV
NN WM —=O000 N

SECONDARY ERROR CHECK SUBROUTINE

MACRO v03.01

PC,a(SP)+

JYES !!
sMOVE SP TO USERS ERROR CALL

JRESTORE SP

sREPORT ERROR IF ILF IS INCORRECT,
sWITH FUNCTION CODE TABLE

ILF

DOES NOT COMPARE

MOV
BIC
MOV
BIC
MP
BEQ
ADD

5008, $GDDAT
#~CILF ,$GDDAT
RMERT]
. $8DDAT
#~CILF ,$BDDAT
$GDDAT ,$BDDAT
608
#4_ (SP)

SYES 1!
:MOVE SP TO USERS ERROR CALL

suB
JSR

#2, (SP)
PC,a(SP)+

:MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

$GDDAT

*CLEAR EXPECTED STATUS

move
608 :

I.E.,

SUB
CLR

#254.a(sP)

#10, (SP)

;GET EXPECTED ILF

:CLEAR ALL OTHER BITS

;GET RECEIVED ILF

;CLEAR ALL OTHER BITS

;IS ILF 0K ??

SWRITE ERRUR NUMBER IN CALL

*MOVE SP TO NO ERROR

;REPORT AN ERROR IF WCE IS SET AND SHOULD NOT BE SET

MOV

001142

5008, - (SP)

BIS

#~CWCE, (SP)

BIC

(SP)+,$BDDAT

MOV

RMCS2I,$BDDAT

;GET WCE STATUS ENABLE
*SET ALL OTHER BITS
:RECEIVED STATUS
:CLEAR WCE IF ENABLED

CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01
SECONDARY ERROR CHECK SUBRCUTINE
172 046776
173 047000
174 047004
175 047012
176 047016

177 047020

};g 047024

180
181 047024
182 047030
183 0470346

184 047042

185
186
187
‘188
189
190

047046
047050
047054
047062
047066
047070

}g; 047074

001412
062716
112776
162716
004736

000004
000026
000002

162716

000010

013746
052716

051706
157777

013737

042637

001412
062716
112776
162716
004736
162715

001350

001142

000004
000164
000002

908 :

000010

013746
032737
001402

199 047114

052716

200 047120

051706
000100

001376

001142

000004
000165

000000

162716

112776

004736
162716

167777

001142

000002

MOV
BIT
BEQ

001346

013737

205 047146

583 047160

BIC

(SP)+,$8DDAT

BEQ
ADD
MOVB
SUB
JSR

1008
#6. (SP)
#164.a(SP)
#2.(SP)
PC,a(SP)+
#10, (SP)

1058:

#I1VC, (SP)

MOV

RMER2I.$8DDAT

BIS

BIC
BEQ
ADD

MOVB

SuUB

1108 :

210
211
212
213

500$ .~ (SP)
#VV,RMDS ]
105§

BIC

JSR

000010

;BRANCH IF WCE OK
:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER
‘MOVE SP TO ERROR RETURN
*REPORT ERROR

*RESTORE ERROR

:CLEAR OPI IF ENABLED

*BRANCH IF OPI OK
*MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
JREPORT ERROR
*RESTORE SP

IVC IS SET AND IS NOT ENABLED OR IF

“SET AND VV IS NOT RESET

010000

042637
001412
062716

206 047152
207 047154

#0, (SP)

1008 :

042716

201 047126
202 047132
203 047134
204 047140

suB

;REPORT ERROR IF

195 047074
196 047100
197 047106

198 047110

908
#6, (SP)
#26,a(SP)
#2.(SP)
PC.a(SP)+

SEQ 0208

;REPORT ERROR IF OPI STATUS 1S SET AND SHOULD NOT BE SET
MOV
00$,~(SP)
;GET OPI STATUS ENABLE
8IS
#ACOPI, (SP)
:SET ALL OTHER BITS
MOV
RMER11,$BDDAT
:GET RECEIVED STATUS

000000

193

194,

BEQ
ADD
MOVB
SUB
JSR

000000

001142

c
1
11-APR-80 13:39:53 PAGE 25-3

#ACIVC, (SP)

IVC IS

;GET IVC STATUS ENABLE
SIS WV SET
‘NO !

SYES < IVC SHOULD BE 0
*SET ALL OTHER BITS

:GET RECEIVED STATUS

(SP)+,$BDDAT
1108
#4,(SP)
#165.a(SP)

-CLEAR IVC IF ENABLED
*BRANCH IF IVC OK
<MOVE SP TO USERS ERROR CALL

PC.a(SP)+
#10, (SP)

*REPORT ERROR
*RESTORE SP TO NO ERROR

#2.(SP)

‘WRITE ERROR NUMBER IN CALL

:MOVE SP TO ERROR RETURN

214
215

;BIT 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
i ALL WRITE ERRORS, I.E..
:
RMERT - WLE, WCF
:
RMER?2 - DPE
:
RMCS2 - UPE.
sEACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE

218
219

:REPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED. OR IF
:THE DRIVE IS NOT WRITE PROTECTED

:WRITE ERROR ENABLE BIT IS RESET.

549

220 047160
221 047164

222 047172

223 047174

224 047202
225 0472046
226 047210
227 047216
228 047222

012746

177777

032737

004000

051706

032737

004000

001346

004000
001350
001142

001142

001404

001002
042716
013737
062637
001412

MOV

MJLE 5008

BIT

AWRL ,RMDS ]

BEQ
1158:
120%:

#-1,=(SP)

BIT

BNE
BIC
MOV
BIC
8EQ

;ASSUME WRITE ERRORS ENABLED

‘ARE WRITE ERRORS ENABLED 2?7

115$

‘NO !

1208
MILE, (SP)
RMERTI,$BDDAT
(SP)+,$BDDAT
1258

YYES !
‘RESET WLE ENABLE
:GET RECEIVED STATUS
:CLEAR WLE IF ENABLED
{BRANCA IF WLE OK

*1S THE DRIVE WRITE PROTECTED ??

SECOMDARY ERROR CHECK SUBROUT INE

229 047224

230 047230
231 047236
232 047242
233 047244
ggg 047250

236
237 047250
238 047254
239 047262
260 047264
241 047270

262 047276
243 047302
264 047304
245 047310
2646 047316
247 047322
248 047324
Ség 047330
251
252 047330
253 047334
254 047342
255 047344
256 047350

257 047356
258 047362
259 047364
260 047370
261 047376
202 047402
263 047404
264 047410
265
266
267 047410
268 047414
© 269 047422
270 047424
271 047430
272 047436
273 047442
274 047444
275 047450
276 047456
277 047462
278 047464
5;8 047470
281
282 047470
283 047474
284 047500

285 047506

062716
112776
162716
004736
162716

012746
032737
001002
042716

013737

042637
001412
062716
112776
162716
004735
162716

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

000004

000023
000002

177777
004000

125%:

051706
001142

000004
000025
000002

000000

000004
000040
000002

000010

013746

051706

suB
JSR

#2,(SP)
PC.a(SP)+

SUB

#10, (SP)

130%:

;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN
JRESTORE SP TO NO ERROR

IS SET AND WRITE ERRORS ARS NCT ENABLED

MOV

#-1,-(SP)

;ASSUME WRITE ERRORS ENABLED

BIC
MOV

MICF , (SP)
RMERTI,SBDDAT

*DISABLE WCF ERROR
-GET RECEIVED STATUS

move

#25.a(sp)

*WRITE ERROR NUMBER IN CALL

PC.a3(SP)+

*REPORT ERROR

MILE, 5008
1308

BIC
BEQ
ADD

SUB

suB

(SP)+,$8DDAT
135%

¥4,

(SP)

#2.(SP)

#10, (SP)

SARE WRITE ERRORS ENABLED 72
YYES )
:RESET WCF IF ENABLED
SBRANCH IF WCF OK
:MOVE SP TO USERS ERROR CALL

:MOVE SP TO ERROR RETURN

*RESTORE SP TO NO ERROR

;REPORT ‘ERROR IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED
051706
001142

1408

000000

145%:

MOV
BIT
BNE
BIC
MOV
BIC
BEQ
ADD
Movs
SuB
JSR
suB

#-1,-(SP)
#WLE , 5008
1408
#DPE , (SP)
RMERZI ,$BDDAT
(SP)+,$8DDAT
1458
#4, (SP)
#40,3(SP)
#2,(SP)
PC,a(3P)+
#10, (SP)

sASSUME WRITE ERRORS ARE ENABLED
cARE WRITE ERRORS ENABLED 7?
SYES !}

:RESET DPE ENABLE
;GET RECEIVED STATUS
:RESET DPE IF ENABLED

;BRANCH IF DPE OK

;sMOVE SP TO USERS ERROR CALL

;WRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN
cREPORT ERROR
JRESTORE SP TO NO ERROR

+REPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED
MOV
BIT

051706

020000
001344
001142

001142

000004
000024
000002

000000

175777
001350
001142

(SP)

#25.a(sP)

BIT
BNE

135%:

000010

177777
004000

#4,

JSR

000010

000010
001376
001142

ADD

JREPORT ERROR IF WCF

000040
001350
001142

177777
004000

1
0
11-APR-80 13:39:53 PAGE 25-4

MOVB

000000

000010

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

052716
013737
042637

MACRO v03.01

150%:

1508
#JPE, (SP)

BIC
BEQ

(SP)+,$BDDAT
155%

-RESET UPE IF ENABLED
:BRANCH IF UPE OK

MOVB
SUB

#24,3(SP)
#2,(SP)

SWRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN

SuB

#10, (SP)

MOV

JSR

RMCS21,$8DDAT

#4 ., (SP)

PC.a(SP)+

sREPORT AN ERROR IF

MOV

001142

;ASSUME WRITE ERRORS ARE ENABLED
*ARE WRITE ERRORS ENABLED ??

BNF
BIC

ADD

155%:

#-1,-(SP)
MILE 5008

BIS
MOV
BIC

IAE

TYES !
:DISABLE UPE ERROR

-GET RECEIVED STATUS

:MOVE SP TO USERS ERROR CALL

*REPORT ERROR AND RETURN

:MOVE SP TO NO ERROR

IS SET AND IS NOT ENABLED

5008 ,-(SP)

#*CIAE, (SP)
RMER1],$8DDAT
(SP)+, $BDDAT

;GET IAE ENABLE

;SET ALL OTHER BITS
;GET RECEIVED STATUS
;CLEAR JAE IF ENABLED

SEQ 0209

e
|

CZRMOAO RMOS/3/2 FCTINL TST 3

CZRMOAO RMOS5/3/2 FCTINL TST 3

SECONDARY ERROR CHECK SUBROUTINE

286 047512
287 047514
288 047520
289 047526
290 047532
291 047534
Sg% 047540

001412
062716
112776
162716

000004
000166
000002

162716

000010

MACRO v03.01

1
E
11-APR-80 13:39:53 PAGE 25-5
BEQ

1608

ADD

#166,a(SP)
#2,(SP)

;BRANCH IF IAE IS 0K
;MOVE SP TO USERS ERROR CALL
sWRITE ERROR NUMBER
SMOVE SP TO ERROR RETURN

#10, (SP)

*MOVE SP TO NO ERROR

#4, (SP)

movse
suB

000000

JSR

PC.a(SP)+

160%:

SEQ 0210

*REPORT ERROR AND RETURN

;BIT 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
; ALL READ/WRITE ERRORS, I.E..
.

f~orz-

RMCS1 - TRE
RMCS2 - DLT,NEM, MXF
RMDS

RMER1

=~ LBT

- AQE

LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED
:CYLINDER REGISTER IS WRITTEN
NOTE
AOE CANNOT BE SET IF LBT IS NOT ALSO SET

047540
047544
047552
047554
~N

b
b
b
b
b
b
b

NOWNSLNN
2O

NN NN NNN
W

*NOTE:

047566
047572

047576
318 047600
319 047606
320 047612

321 047614
322 047?20
323
324
325 047620
326 047624
327 047632
328 047634
329 047640
330 047646
331 047652
332 047654
333 047660
334 047666
335 047672
336 047674
%gg 047700
339
340 047700

341 047704
342 047712

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736

177777
001000
100000
001344
001142
000004
000032
000002

162716

000010

012746
032737
001002
042716
013737
042637
001412
062716

177777
001000

112776
162716
004736
162716

012746

032737
001002

004000
001344
001142

000004
000167
000002

051706
001142

001000

IS CHECKED AS A FUNCTION OF

OTHER ERROR CONDITONS ABOVE

JREPORT AN ERROR IF DLT IS SET AND READ/WRITE ERRORS ARE NOT ENABLED
MOV
#-1,~(SP)
;ASSUME ERRORS ARE ENABLED

165%:

BIT
BNE
8IC
MOV

#AOE, 5008
165%
#DLT, (SP)
RM(CS21 ,$BDDAT

BEQ

1708

B8IC

ADD

000000

MovBe
sSuB
JSR

170%:

suB

;ARE ERRORS ENABLED ??
SYES 1!

JRESET DLT ENABLE
;GET RECEIVED STATUS

(SP)+,$8BDDAT

sCLEAR DLT IF ENABLED

#4, (SP)

sMOVE SP TO USERS ERROR CALL

sBRANCH IF DLT IS OK

#32,3(SP)
#2, (SP)

;WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN

#10, (SP)

;sMOVE SP TO NO ERROR

PC,a(SP)+

JREPORT ERROR AND RETURN

;REPORT ERROR IF NEM IS SET AND READ/WRITE ERRORS ARE NOT ENABLED
051706

001142

MOV
BIT

#-1,~(SP)
#AQE, 5008

;JASSUME ERRORS ARE ENABLED
;ARE ERRORS ENABLED ??

BIC

#NEM, (SP)

;DISABLE NEM

BIC

(SP)+,$BDDAT

;CLEAR NEM IF ENABLED

ADD

¥4, (SP)

sMOVE SP TO USERS ERROR CALL

SuB
JSR

#2,(SP)
~C,a(SP)+

sMOVE SP TO ERROR RETURN
SREPORT ERROR AND RETURN

BNE

175%:

MOV
BEQ

000000

000010

177777

TRE

MovBe

180%:

SuB

1758

RMCSI,$BDDAT
1808

#167,a(SP)

#10,(SP)

JYES

:GET RECEIVED STATUS
sBRANCH IF NEM IS OK

;WRITE ERROR NUMBER IN CALL
;MOVE SP TO NO ERROR

JREPORT ERROR IF MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED
051706

MOV

BIT
BNE

#-1,-(SP)

#AOE , 5008
185%

;ASSUME ERRORS ARE ENABLED

;ARE DATA ERRORS ENABLED ??
JYES !}

wne

(ZRMOAQ RMOS/3/2 FCTNL TST 3
MACRO v03.01
SECONDARY ERROR CHECK SUBROUTINE

343 047714

344 047720
345 047726
346 047732
347 047734
348 047740
349 047746
350 047752
351 047754
352 047760
353
3/,
355 047760
356 047764
357 047772
358 047774
359 050002
360 050004
361 050010

042716

001000
001344
001142

001142

000004
000033
000002

000000

185%:

F
1
11-APR-80 13:39:53 PAGE 25~6
BIC

#MXF , (SP)

MOV

RMCS21, $8DDAT

BIC

(SP)+,$8DDAT

BEQ

1908

ADD

#4 . (SP)

SuB

#2, (SP)

SUB

#10, (SP)

MOVB

#35.3(sP)

JSR

PC.a(SP)+

SEQ 0211

;DISABLE MXF ERROR
sGET RECEIVED STATUS
sCLEAR MXF IF ENABLED
;BRANCH IF MXF IS OK
sMOVE SP TO USERS ERROR CALL
sWRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN

sREPORT ERROR AND RETURN

162716

000010

012746
032737

177777
001000

051706

MOV
BIT

#-1,-(SP)
#AOE, 5008

;ASSUME DATA ERRORS ARE ENABLED
s ARE DATA ERRORS EANBLED ??

002000

001346

BIT

#LBT ,RMDS |

IS LBT ALSO SET ??

BIC
MOV
BIC

#AQE, (SP)
RMER11,$8DDAT
(SP)+,$8DDAT

162716

:
1908

;MOVE SP TO NO ERROR

JREPORT ERROR IF AOE IS SET AND DATA ERRORS ARE NOT ENABLED

001000
001350
001142

001142

000004
000020
000002

000000

000010

BEQ

1918

BNE

200$:

195%

BEQ
ADD
MovB
suB
JSR
sus

2008
#4,(SP)
#20,3(SP)
#2, (SP)
PC,a(SP)+
#10, (SP)

:NO

YES

DISABLE AOE
sGET RECEIVED STATUS

:CLEAR AOE IF ENABLED
;BRANCH IF AOE IS OK
sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER
sMOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

;BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
sHEADER ERRORS, I.E.
RMER1

- HCRC.HCE,FER

RMERZ -

377 050050
378 050056
379 050060
380 050066
381
382
383 050066
384 050072

032737
001403
042737

002000

001366

000200

051706

012746
032737

177777
000200
000400
001350
001142
000004
000035
000002

395 050146
398 050146
399 050152

JRESET THE ENABLING BIT
BIT

2018%:

BEQ
BIC

(HCE)

#HCI ,RMOF 1

201%
#HCE ,500%

IF HEADER COMPARE INHIBIT [S SET
:58 HCI SET 22

*YES< DISABLE ALL HEADER ERRORS

JREPORT AN ERROR IF HCRC IS SET AND HEADER ERRORS ARE NOT ENABLED

MOV

051706

001142

:
2058

000000

162716

000010

012746
032737

177777
000200. 051706

BIT
BNE
BIC
MOV
BIC
BEQ
ADD

;ASSUME ERRORS ENABLED

#HCE, 5008
205$
#HCRC, (SP)
RMER1I,$8DDAT
(SP)+,$BDDAT
z1os
{SP)

*MOVE SP TO USERS ERROR CALL

#2.(SP)
PC.R(SP)+

*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

MOVB

#35 a(SP)

SuB

#10, (SP)

SuB
JSR

210%:

#-1,-(SP)

$ARE HEADER ERRORS ENABLED ?7?
SYES !
*DISABLE HCRC
:GET RECEIVED STATUS
:RESET HCRC IF ENABLED

*BRANCH IF HCRC IS OK

*WRITE ERROR NUMBER IN CALL

:MOVE SP TO NO ERROR

JREPORT ERROR IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLED
MOV
BIT

#-1,-(SP)
#HCE, 5008

;ASSUME ERRORS ENABLED
;ARE ERRORS ENABLED ??

[74Yan

[

SECONDARY ERROR CHECK SUBROUTINE

400 050160
401 050162
402 050166
403 050174
404 050200
405 050202
406 050206
407 050214
408 050220

409 050222

2}? 050226
412

413 050226

414
415
416
417
418
419
420

001002
042716
013737
042637
001412
062716
112776
162716
004736

000200
001350
001142

001142

000004
000036
000002

000000

162716

000010

012746

177777

050232
050240
050242
050246
050254
050260
050262

032737
001002
042716
013737
042637
001412
062716

422 050274
423 050300
424 050302

162716
004736
162716

000010

012746
032737

177777
000200

042716
013737
042637
001412
062716

100000
001376
001142

162716
004736
162716

000002

421 050266

252 050306

427
428 050306
429 050312
430 050320
431 050322
432 050326
433 050334
434 050340
435 050342

436 050346

437
438
439
22?

050356
050360
050362
050366

112776

001002

112776

MACRO v03.01

000200
000020

001350
001142
000004

000037

000002

000004

000354

2208 :

455 050406
456 050414

SuB

MOV

051706

001142

225%:

000000

051706

001142

000000

000010

BIT
BNE
BIC
MOV
BIC
BEQ
ADD

MOVB

230$:

2158
#HCE, (SP)
RMERTI,$BDDAT
(SP)+,$8DDAT
2208
#4,(SP)
#36,3(SP)
#2.(SP)
PC.a(SP)+

SYES !
*DISABLE HCE
:GET RECEIVED STATUS
:CLEAR HCE IF ENABLED
‘BRANCH IF HCE IS OK
:MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

#10, (SP)

‘MOVE SP TO NO ERROR

SUB
JSR
SUB

#~1,-(SP)

:ASSUME FER IS ENABLED

#HCE , 5008
2258
AFER, (SP)
RMERTI,$BDDAT
(SP)+,$8DDAT
2308
44, (SP)

*ARE HEADER ERRORS ENABLED ??
SYES )
*DISABLE FER
:GET RECEIVED STATUS
:RESET FER IF ENABLED
*BRANCH IF FER OK
*MOVE SP TO USERS ERROR CALL

#2,(SP)
PC.a(SP)+
#10, (SP)

*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

#37.3(SP)

*WRITE ERROR NUMBER IN CALL

;REPORT ERROR IF BSE IS SET AND
MOV
#-1,-(SP)
BIT
#HCE , 5008
BNE
235$
BIC
#BSE , (SP)
235%:
MOV
RMER2I,$BDODAT
BIC
(SP)+,$8DDAT
BEQ
2408
ADD
#4, (SP)

mMove

2408 :

SUB
JSR
SUB

#354.a3(sP)

42, (SP)
PC.a(SP)+
#10, (SP)

;BIT 06 OF THE FUNCTION CODE
*FIELD ERRORS, I.E..
:
RMCS2 - MDPE
:
RMERT - DCK,ECH
*NOTE:

447
223

454 050402

BNE
BIC
MOV
BIC
BEQ
ADD
MOVB
SUB
JSR

SEQ 0212

;REPORT ERROR IF FER IS SET AND HEADER ERRORS ARE NOT ENABLED

442
443
444
445
446

450
451 050366
452 050372
453 050400

215%:

1
G
11-APR-80 13:39:53 PAGE 25-7

HEADER ERRORS ARE NOT ENABLED
;ASSUME ERRORS ENABLED
*ARE THEY ENABLED ?7
SYES !
*DISABLE BSE
:GET RECEIVED STATUS
:CLEAR BSE IF ENABLED
*BRANCH IF BSE OK
:MOVE SP TO USERS ERROR CALL

*WRITE ERROR NUMBER

*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR
TABLE

IS THE ENABLING BIT FOR DATA

:
ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND
:DCK IS SET.

012746
032737
001002

042716

013737
042637

177777
000100

000400

001344
001142

051706

;REPORT ERROR IF MDPE IS SET AND IS NOT ENABLED
MOV
#-1,=(SP)
;ASSUME ENABLED
BIT
#ECH, 5008
*ARE DATA FIELD ERRORS ENABLED ??
BNE
245%
SYES !
)

001142

245%:

BIC

MOV
BIC

AMDPE , (SP)

RMCS2I,$BDDAT
(SP)+,$BDDAT

*DISBALE MDPE

;GET RECEIVED STATUS
;CLEAR MDPE IF ENABLED

CZRMOAQ *MNS/3/2 FCTNL TST 3

SECONDARY ERROR CHECK SUBROUTINE

457 050420
658 050422
459 050426
460 050434
461 050440
462 050442
463 050446
464
465
466 050446
467 050452
468 050460
469 050462
470 050466
471 050474
472 050500
473 050502
474 050506
475 050514
476 050520
477 050522

478 050526
479
480

481
482
483
484 050526
485 050532
486 050540
487 050542
488 050550
489 050552
490 050560
491 050562
492 050566
493 050574

495 050602
496 050606
497 050614
498 050620
499 050622
28? 050626

001412
062716
112776
162716
004736
162716

012746
032737
001002
042716
013737
042637
001412
062716
112776
162715
004736
162716

000004
000027
000002

MACRO v03.01

BEQ

000000

000010

177777
000100

H
1
11-APR-80 13:39:53 PAGE 25-8

250¢%:

051706

100000
001350
001142

001142

000004
000030
000002

000000

000010

ADD
MovB
SuB
JSR
suB

2508

#4 ., (SP)

#20.3(5P)

#2,(SP)
PC.3(SP)+
#10, (SP)

SEQ 0213

;BRANCH IF MDPE OK
;MOVE SP TO USERS ERROR CALL
;sWRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

;REPORT ERROR IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED
#-1,-(SP)
MOV
;ASSUME ENABLED
#ECH,500%
BIT
;ARE THEY ENABLED ??
BNE
255%
JYES !!
#DCK, (SP)
BIC
;DISABLE DCK
255%:
MOV
RMER11,$8DDAT
;GET RECEIVED STATUS
BIC
(SP) +,$8DDAT
;CLEAR DCK IF ENABLED
BEQ
260%
;BRANCH IF DCK IS OK
ADD
#s, (SP)
sMOVE SP TO USERS ERROR CALL
#30,3(SP)
movse
;WRITE ERROR NUMBER IN CALL
#2,(SP)
SU8
sMOVE SP TO ERROR RETURN
PC,a(SP)+
JSR
sREPORT ERROR AND RETURN
#10, (SP)
su8
¢sMOVE SP TO NO ERROR
260%:
¢

;REPORT ERROR IF ECH IS SET AND,

DATA FIELD ERRORS ARE NOT ENABLED,

012746
032737
001410
032737
001004
032737
001002
042716
013737
042637

062716
112776
162716
004736
162716

177777
000100

051706

004000

001366

100000
000100
001350
001142

000004
000031
000002
000010

ECI IS SET, OR
DCK IS NOT SET.
#=1,-(SP)
MOV
#ECH,500%
BIT
BEQ
265%

8IT

001350
001142

265%:
270%:

BNE
8IT
BNE
BIC

MOV

BIC
BEQ

ADD
MOvVB

000000

SuB
JSR

275%:

#EC] ,RMOF I

265%

#DCK ,RMER1 ]

270%

#ECH, (SP)

RMER11,$8DDAT
(SP)+,$BDDAT

275%

#4, (SP)
#31,a(SP)
#2, (SP)
PC,a(SP)+
#10,(SP)

sASSUME ENABLED

;ARE'gRRORS ENABLED ??
:NO !!

;1S ECI SET ??

SYES

;YES

;1S DCK ALSO SET ??

;DISABLE ECH
;GET RECEIVED STATUS
;CLEAR ECH IF ENABLED
sBRANCH IF ECH IS OK
sMOVE SP TO USERS ERROR CALL
sWRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

LN r~

CZRMOAO RMOS5/3/2 FCTML TST 3

SECONDARY ERROR CHECK SUBROUT
INE

MACRO v03.01

1
I
11-APR-80 13:39:53 PAGE 26

SEQ 0214

tttttfittfi'itttttt"tt"’*i"t*tttttttttti*'ttttttifitttttttttttt

*PERFORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS

*ttttttlttfifitii**'.*'t'tttittfit'iti&ttttitttttttttittttttttt**t

S 050626
6 050634
7 050636

022737
103402
000137

051660

013737

001336

001142

12 050652
13 050660
14 050662

032737
001015
062716

040000

001334

17 050700
18 050704

162716
004736

10 050642

11 050650

15 050666
16 050674
19 050706

001421

000030

000004

112776
005037

000015
001140

000240

162715

000010

22
23 050714

013737

001336

25 050730
26 050734

006337
063737

001140
001414

28 050742

032737

29 050750
30 050752

32 050760
33 050766
34 050770
35 050776
36 051002
37 051010
38 051014
39 051016
40 051022

42
43 051024

163737

001403
013737
023737
001416
013737
062716
112776
162716
004736
162716
000240

001412

RMWCI,$BDDAT ~

;WORD COUNT Z:R0??

BIT
BNE
ADD

#TRE ,RMCS11
2858
¥4, (SP)

TRANSFER ERROR DETECTED??
YES!

sus
JSR

#2. (SP)
PC,a(SP)+

:MOVE SP TO RETURN FOR ERROR
:REPORT WORD COUNT NOT ZERO

BEQ

MOvB
CLR
sus

2858

#15,a(sP)
$GDDAT
#10, (SP)

YES

;ERROR NUMBER
:GOOD DATA FOR TYPEOUT

:RESTORE (SP)

;REPORT ERROR IF RMBA IS NOT CORRECT
2858:
MOV
RMWCI,$GDDAT ~ ;GET WORD COUNT AT END OF TRANSFER AND

SuB

RMJCO,SGODAT

:SUBTRACT STARTING WORD COUNT.

001140

000010

001344

BIT

#BAT ,RMCS2]

;WAS BUS ADDRESS INMIBIT (BAI) SET 22

001414

001140

001340

001340
000004
000016
000002

001142

CMP
BEQ
MOV
ADD
MOVB
S8~
JSR
suB
NOP

SGDDAT RMBAI
2958
RMBAI SBDDAT
#4
., (SP)
#16,3(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

;BUS ADDRESS OK??
YES!
BAD DATA FOR TYPEOUT

BEQ
MOV
290$:

000000

000010

4% 051026

163716

001412

47 051036
48 051042
49 051050
30 051052

012746
032737
001402
062716

000400
000002

52
53
54
55
56
57

005266
161666
003373
022626

051056
051062
051066
051070

MOV

NOP

001140

:WAS DATA TRANSFERRED ?
:BR IF YES
:NO = EXIT

;REPORT ERROR IF RMWC NOT ZERO AND TRE IS ZERG

280$:

000000

001140

#SEARCH,5158
2808
3558

ASL
ADD

005046
013746

45 051032

P
BLO
JMP

000002

20 050712

24 050722

051714

ADD STARTING BUS ADDRESS

2908
RMBAO, $GDDAT

NO
ADDRESS SHOULD NOT HAVE CHANGED

:ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR
:REPORT UNEXPECTED ADDRESS
:RESTORE (SP)

;COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT
2958:
CLR
-(SP)
:NUMBER OF SECTORS TRANSFERRED
MOV
RMWC] ,=(SP)
SGET WORD COUNT AT END OF TRANSFER AND

001336

001410

000002

000004
000002

$GDDAT
RMBAO,SGDDAT

3008:

RMWCO, (SP)

:SUBTRACT STARTING WORD COUNT.

MOV
BIT
BEQ
ADD

#256.,-(SP)
#B1T1.RMCS10
3008
#2,(SP)

;ASSUME 256. WORDS PER SECTOR
:HEADER & DATA COMMAND
:NO
{URANGE TO 258. WORDS PER SECTOR

INC
]
BGT
P

4(SP)
(SP),2(SP)
3008
(SP)+,(SP)+

; INCREMENT SECTOR COUNT
:SUBTRACT ONE SECTOR'S WORTH
:CONTINUE IF NOT DONE
:RESTORE STACK

;COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM

PR|

CZRMOAO RMOS/3/2 FCTNL TST 3

d d
b

cded

(VL
LV (W,
V, IV, ]

Db
ed

710

vivy|

69 0

O0O0O0OO0O0

D
b o

67 0

b
d b

& ERRARTBS

o
O
o

SECONDARY ERROR CHECK SUBROUTINE

82 051226

84
85 051230

86 051230
87 051234
88 051242
89 051244
90 051252

013737
013737

001444
001416

MACRO Vv03.01

051706
051710
051712
051716

051716

000377
051710

051712

023727

051712

000040

005237

051710
000040

051712

051710

051716

051706
051716

051710

103406

162737
000766

023737
103407
005237
163737
000766
000240

NUMBER OF SECTORS
MOV
RMDCO, 500%
MOV
RMDAO . 505%
MOV
RMDAQ.510$
MOV
LSTRK.520$
SWAB
5208
INC
5208

051710

177400

051712

315%:

310%

; TRY AGAIN

(MP
8LO
INC
SUR

505$,520%
3208
5008
520%,505%

: TRACK OVERFLOWED??
: NO!!
: INCREMENT CYLINDER
: ADJUST TRACK

B8R

005037
023727

001466

. TRY AGAIN

001350
001140
001142
001142
001142

CLR

$GDDAT

325%:

BLOS
BIT
BNE
MOV
MOV
BIC
TM
8EQ
ADD

325%
#1AE ,RMER1]
325%
#LBT,$GDDAT
RMDSI.$BDDAT
#~CLBT,$BDDAT
$GDDAT.$BDDAT
3308

; IS LBT CORRECT??
: YES!!

#17,3(SP)

; ERROR NUMBER

PC.a(SP)+

: REPORT LBT IS WRONG
: RESTORE (SP)

#4,

MOVB

b ad

001350

051706

001466

051710

#2,(SP)

sus

#10, (SP)

CLR

051714

‘'AOE’’ IS

$GDDAT

BNE

335¢

ST
BNE
BIT
BEQ

5108
335¢
#F2.515%
340%

: NO!!
: WAS IAE SET ??
: YES - LBT SHOULD NOT BE SET
: SET GOOD DATA FOR LBT =1
BAD DATA FOR TYPEOUT

INCORRECT

#]AE ,RMER1]
3408
5008 ,#822.
3408
505%

: SHOULD LBT BE SET??

. MOVE SP TO RETURN FOR ERROR

BIT
BNE
CMP
BLOS
TST

051712

000010

3308:

(SP)

SuB

;REPORT ERROR

001140
002000

: SET GOOD DATA FOR LBT = 0

5008, #822.

JSR

(elelelololelelelololel

: SECTOR OVEFLOWED??
: Noll
: INCREMENT TRACK
; ADJUST SECTOR

2158

CMP

)

RARNISIBIRIRIN2S

5108, #32.
315$
505%
#32..5108

§§S§°RT ERROR IF 'LBT''
IS NOT CORRECT

b
b
b
—d
b
b cnd
)
b

(MP
8LO
INC
Sus

(SP)+,5108

000000

#~C<TADMSK>,505%
:SAVE TRACK ADDRESS BITS AND
505%
; SWAP TRACK ADDRESS TO ! W BYTE.
#~C<SADMSK>,5108
;SAVE SECTOR AuL ESS BITS

ADD

3108:

; STORE ORIGINAL CYLINDER
: STORE ORIGINAL TRACK
: STORE ORIGINAL SECTOR
: STORE LAST TRACK,
. GET TRACK ADDRESS TO LO BYTE AND
; INCREMENT TO GET TOTL # OF TRACKS.

BIC
SWAB
BIC

NOP

91 051254

b ed

1
J
11-APR-80 13:39:53 PAGE 26-1

: SET FOR AOE = 0

: WAS *'IAE'* DETECTED??
: YES-''AOE'* SHOULD BE ZERO
: SHOULD AOE BE SET??
: NO!!

N MAYBE

: YES

; YES !!
; xGS'THIS READ OR WRITE CHECK ??
;

SEQ 0215

CZRMOAOQ RMO5/3/2 FCTNL TST 3

SECONDARY ERROR CHECK SUBROUT INE

001000
051560
000001
001350
176777
001140

(elelelolelolololelolelolole)

162716

000010

032737

002000

001350

013737
000337
113737

051710
001140
051712

001140

023737

001140

- iy

(%4 v
Wn

1542

013737

NnN
~N ~ ~
iy
~ —t
ooo

1534

—_ N

504
5
514
522
526

2\h\h\h\h\h\h\h\h

51476

w \%,]

NN
—

000004
000020
000002

004736

001342

000004
000021
000002

162716
000240

000010

051600
051606
051614
051622
051630

013737
042737
013737
023737
001413

051706
176000
001370
001140

154 051636
155 051644

112776
162716

000004
000022
000002

162716

000010

051652

335$:
3408:

K
1
11-APR-80 13:39:53 PAGE 26-2
RMWCI

:vég ALL DATA TRANSFERRED 27

MOV

#AOE
, SGDDAT

“SET FOR AOE = 1

505$
#1,5108

BIC

#~CAOE
. SBDDAT

BEQ

3458

MOV

#2, (SP)

NOP
REPORT ERROR

BIT
BNE
MOV
SWAB
MOVB
MOV

cMP

06”716
105776

000004
000000

051672

062716
000402

000004

—

2
o

051660
051664

51700

162716

000004

#20.a(sP)
PC.a(SP)+

IF RMDA IS NOT CORRECT
#1A§.RHER1I
;WAS THERE AN IAE ERROR ??
355
sYES = DONT CHECK RMDA,RMD(C
5058, SGDDAT
sSETUP EXPECTED DISK ADDRESS
$GDDAT
5108,SGDDAT
RMDAI
, $BDDAT
sSETUP RECEIVED DISK ADDRESS

$GDDAT, SBDDAT

SuB

#10, (SP)

MOV

INCORRECT

5008, SGDDAT

;SETUP EXPECTED CYLINDER

RMDCI,$BDDAT

;SETUP RECEIVED CYLINDER
s COMPARE CYLINDERS
;BRANCH IF EQUAL

#22.3(SP)

;ERROR NUMBER
JMOVE SP TO RETURN FOR ERROR
sREPORT BAD CYLINDER
cRESTCRE (SP)

#~C1777 ,$GDDAT

cMP
BEQ
ADD

$GDDAT, SBDDAT
355%
¥4, (SP)

MOVB
SuB
JSR
SuB

355%:

sRESTORE (SP)

BIC

MOV

000000

s COMPARE EXPECTED & RECEIVED
;BRANCH IF EQUAL

;ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
;REPORT BAD DISK ADDRESS

PC.a(SP)+

. REPORT ERROR IF RMDC

350%:

JYES!!

;ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
JREPORT AOE IS WRONG
SRESTORE (SP)

#10, (SP)

3508
¥4, (SP)
#21.3(SP)
#2.,(SP)

NOP

001140
001142
001142

(SP)

BEQ
ADD
MOVB
SuB
JSR

001140

:1S AOE CORRECTY??

suB
su8

000000

$GDDAT
, SBDDAT

¥,

JSR

001140
001142
001142

RMER11, $BDDAT

*CLEAR EXPECTED TRACK
SEXPCCT SECTOR = 1
:BAD DATA FOR TYPEOUT

ADD

move

$45%:

3408

CLR
MOV

cMP

000000

SEQ 0216

BEQ

NOP

NN\

051572
051576

051712
001142
001142
001142

042737
023737
001413
062716
112776
162716

143 051570

144
145
146
147
148
149
150
151
152

013737

001140

51440
91446
51454
51456
51462
51470

o o elelelelolalolels)

d
d e
d e
b
D e
b
e
b
b D
b
b
b
b e
d
bk e

HBDW
~n -0V

1432

o
N
~

012737

H
no

1412

(W VAV,
AV, IV, ]

001336

CONONNEB
NN =2 OV ~NON

005737

115 051404

MACRO v03.01

#2,(SP)
PC.a(SP)+
#10., (SP)

ADD
TSTB
BEQ
ADD

#4, (SP)
a(SP)
3608
¥4, (SP)

suB

#4, (SP)

;MOVE (SP) TO NO ERROR RETURN

WORD
WORD
WORD
WORD

0
O
O
O

s CYLINDER
s TRACK
;SECTOR

RTS

65$

;MOVE (SP)

TO ERROR CALL

;WAS ERROR FOUND??

;sMOVE (SP) TO ERROR RETURN

sFUNCTION CODE

CZRMOAO RMOS/3/2 FCTNL TST 3

SECONDARY ERROR CHECK SUBROUTINE

172 051716

};2

000000

MACRO v03.01
520%:

1
L
11-APR-80 13:39:53 PAGE 26-3
.WORD

;# OF

SEQ 0217

TRACKS FOR DEVICE UNDER TEST = LAST

:TRACK + 1 TRACK

CZRMOAO RMO5/3/2 FCTINL TST 3

.SBTTL

COMPOSITE ERROR CHECK SUBROUTINE

= O V00 NN

sTHIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER1 AND
;RMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS
;MASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER

s THE MASKS ARE APPLIED.
:CALL:

(1)

D e

NN (NI — b ied d D e
= OV
~NOMN SWNR
NN

M
11-APR-80 13:39:53 PAGE 27

SEQ 0218

ANN) —

COMPOSITE ERROR CHECK SUBRUUTINE

MACRO v03.01

;
;

JSR

.WORD
-WORD
BR
NOP

ERROR

JSR
272

PC,CMPERRSTS
277

PC,a(SP)+

MASK FOR ERROR
MASK FOR ERROR
RETURN HERE 1€
RETURN HERE TO

ERROR NUMBER DEFINED BY SUB

GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

;NOTE:
BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD
*BE ZERO
051720

CMPERRSTS:

051720
051726
051734
051740
28 051746

013737
047637
06271¢
013737
047637

001350
000000
900002
001376
000000

32 051754
33 051760
34 051764

0e.716
105076
162716

000006
000000
000004

37 051770
38 051774
39 051776
40 052004

005737
001420
013737
005037

001176

41 052010

42 052014
43 052022
45 052030
46 052034
47 052036

062716

112776
162716
004736
162716
000240

001176
001176

8IC
ADD
MOV
BIC

001200
001200

ADD
CLRB
suB
ST

000066
000002

000000

BEQ
MOV
CLR

ADD
MOVB
SUB
JSR

SUB

000010

5%:

005737
001420

001200

56 052044
55 052052
56 052056
57 052062

013737
005037
062716
112776

001200
001140
000004
000067

#6, (SP)
alSP)
#4, (SP)

SMASK
RMER1
*MOVE SP TO NEXT MASK
:STORE RMER2 AT TEMP STORAGE
*MASK RMER?

;MOVE SP TO USER'S ERROR CALL
*CLEAR ERROR NUMBER
:LEAVE SP AT NO ERROR RETURN

;SEE IF THERE WERE ANY ERRORS IN RMER1. I.E.. STMP1
001142

51 052036
g% 052042

3(SP) , $TMP1
#2,(SP)
RMER2I,$TMP2
a(sp),$TMP2

:CLEAR USER'S ERROR CALL

001176
001140
000004

;MASK AND STORE THE CONTENTS OF RMER1
AND RMER?
MOV
RMER1],$TMP1
;STORE RMER1 AT TEMP STORAGE

NOP

$TMP1

;ANY ERRORS TO REPORT??

#4, (SP)
#66,3(SP)

:MOVE SP TO USER'S ERROR CALL
:CORRECTABLE DATA CHECK ERROR #

#10, (SP)

*MOVE SP BACK TO BRANCH

13
$TMP1,$8DDAT
$GDDAT

#2,(SP)
PC.a(SP)+

INO !
:RECEIVED STATUS FOR TYPEOUT
SEXPECTED STATUS FOR TYPEOUT

:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

JSFE IF THERE ARETagg ERRORS TO REPORT IN RMERZ ($TMP2)
TST
sANY ERRORS IN RMER2?
BEQ
108
:NO!!
001142

000000

MOV
CLR
ADD

MOvVB

$TMP2,$BDDAT
$GDDAT

#4 . (SP)

#67,3(SP)

JRECEIVED STATUS FOR TYPEOUT
SEXPECTED STATUS FOR TYPEOUT

sMOVE SP TO USER'S ERROK CALL

;WRITE ERROR NUMBER IN USER'S CALL

o
|

CLRMOAQ RMOS/3/2 FCTNL TST 3

COMPOSITE ERROR CHECK SUBROUTINE

58 052070
59 052074
60 052076

162716
004736
162716

0521064
052110
052114
052116

70 052124

;} 052130

SUB
SUB
JSR

000010
10%:

062716
105776
001403
062716
000402
162716

000207

000004
000000

NOP

#2,(SP)

PC.a(SP)+

#10, (SP)

sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA !'SER
sMOVE SP TO NO ERROR RETURN

;JAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED
ADD
TSTB

#4, (SP)
a(SP)

;MOVE SP TO USER'S ERROR CALL
:z8§'THERE AN ERROR CALLED??

ADD

#4,(SP)

cYES = MOVE SP TO ERROP RETURN

BEQ

000004
000004

N
1
11-APR-80 13:39:53 PAGE 27-1

SEQ 0219

000002

62 052104
63

64
65
66
67
68

MACRO v03.01

20%:
30$:

BR
suB
RTS

208

308
#4, (SP)
PC

:NO.

;JMOVE SP TO NO ERROR RETURN
sRETURN TO USER

CZRMOAO RMOS/3/2 FCINL TST 3
|3

.SBTTL
:

‘(2)
(3)

:(4)

062716
105076
162716

000004
000000
000004

052146

013746
013746

000004
000006

052302

21 052162
22 052170

26
27 052206
28 052212
29 052220
30
31 052226
32 052234
33 052236
34 052244
35 052252
36
37 052254
38 052262
39 052264
40 052272
41 052300

43
44 052302
45 052304
46 052312

47 052320
48
49
50

51 052326

052332

PC.DEVSFL

ERROR

GETTING THE DEVICE NUMBER FROM THE

RETURN IF NO ERROR
RETURN IF ERROR

ERROR DEF INED BY SUBROUTINE

DEVSEL:

052132
052136
052142

23 052176
%é 052202

JSR

BR
NOP

DEVICE,

;CLCAR USER'S ERROR CALL
ADD
CLRB
S8

000300
001276

MOV
MOV

000004

000006

001464

111160
016037
016037

000010
000000
000010

001176
001174

032737

010000

022626
062766
112776
162766

;MOVE SP TO USER'S ERROR
;CLEAR LOW ORDER BYTE OF CALL
*MOVE SP BACK

;SAVE USER'S INFORMATION AND SETUP REGISTERS
MOV
ERRVEC,-(SP)
;:PUSH ERRVEC ON STACK
MOV
ERRVE(C+2,~(SP)
;sPUSH ERRVEC+2 ON STACK

013701

032737
001021
062766
112776
000407

#4,(SP)
a(SP)
#4, (SP)

RO,-(SP)
R1,-(SP)

MOV

#208 . ERRVEC

MOV

TSTQUE ,R1

MOV
MOV

#PRG
. ERRVE C+2
$BASE RO

;:PUSH RO ON STACK
2:PUSH R1 ON STACK

:SETUP FOR BUS TIMEOUT
;RO = UNJIBUS ADDRESS

*R1 POINTS TO DEVICE NUMBER

;SELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE

MOVB

(R1),RMCS2(RO)

:WRITE UNIT SELECT BITS

MOV
MOV

RMCST(RO),$TMP1 ;GET 'DVA’* STATUS
RMCS2(RO) ,$TMPO :GET *NED'* STATUS

001174

BIT

#NED , $TMPO

0000046
000111

000010
000010

ADD
MOVB

#4,10(SP)
#111.310(SP)

004000

001176

000004
000112

000010
000010

BIT
BNE
ADD
MOVB

#DVA, STMP1
35%
#4,10(SP)
#112.310(SP)

000004
000113

000002

000010
000010

000010

BEQ

B8R
10%:

B8R

108

308

;HANDLE BUS TIMEOUT
208 :
cMP
(SP)+,(SP)+
ADD
#4,10(SP)
MOVBE
#113.310(sP)

30$:

SUB

#2,10(sP)

;1S DEVICE NONEXISTENT ?

“NO!!

:MOVE SP TO USERS ERROR CALL
‘WRITE ERROR NUMBER

;1S L_VICE AVAILABLE ?
SYES!T
*MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER

;ADJUST SP
‘MOVE SP TO USERS ERROR CALL
SWRITE BUS TIMEOUT ERROR NUMBER

SADJUST RETURN TO 'NOP' PRECEDING
*THE ERROR CALL

ggESTORE USERS DATA AND RETURN TO ADDRESS ON STACK

012601
012600
012637

T
000006

MoV

MOV

(SP)+,R1

(SP)+ RO

(SP)+.ERRVE(+2

:;POP STACK INTO R1

S:POP STACK INTO RO

;:POP STACK INTO ERRVEC+2

s
s

b
d
d

THIS SUBROUTINE SELECTS THE

s CALL=

052132

DEVICE SELECT SUBROUTINE

T%ST QUEUE.

()

B 2
11-APR-80 13:39:53 PAGE 28
SEQ 0220

8\OQVO‘W‘\WN—'O\O@\IOU‘J\WN—‘

DEVICE SELECT SUBROUT’

MACRC v03.01

CZRMOAO RMOS/3/2 FCINL TST 3

DEVICE SELECT SUBROUTINE

052336
g% 052342

012637
000207

000004

MACRO v03.01

11-APR-80 13:39:53 PAGE 28-1
MOV
RTS

(SP)+ ,ERRVE(

;,POP STACK INTO ERRVEC
JEXIT

SEQ 0221

1
1

}

D 2
MACRO v03.01 11-APR-80 13:39:53 PAGE 29

= OVONOVNEH
W20V NN ESWN -

CZRMOAQ RMOS/Z%/2 FCTNL TST 3
SEEK STATUS CHECK SUBROUTINE

.SBTTL

:THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED
.AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE 'ERROR'' TRAP
;OF THE CALLING ROUTINE.
SEEK STATUS IS CHECKED AS FOLLOWS:
;

;CALL:
(1)

gg 052362

005037

053602

ERROR

162716

000004

SuB
CLR

32 052376
gz 052404

001376

001424

032737
001020

000010

005037

001140

37 052412 013737 001350
38 052420 062716 000004

47 052446

BEQ

BIT
BNE

CLR

001142

162716

000002

162716
000437

000010

004736

MOV
ADD

RETURN HERE IF NO MORE ERRORS

:MOVE (SP) TO ERROR CALL
*CLEAR ERROR NUMBER

3008

“CLEAR ERROR FLAGS

#4, (SP)

*MOVE (SP) TO NO ERROR RETURN

#DPE ,RMER2]
18

*NO!!

*WAS IT DUE TO CONTROL BUS??
*NOT SURE!!

$GDDAT

-RECEIVED STATUS
*MOVE STACK TO USER'S ERROR

#2.(SP)

*MOVE SP TO RETURN FOR ERROR

#10, (SP)
3s

;RESTORE STACK
*IAE SHOULD BE ZERO

csb a<sp)

JSR

PC.3(SP)+

SUB

;EXPECTED STATUS

RHERU $8DDAT
SP)

*ERROR #50

:DETERMINE THE VALUE OF ‘‘IAE'* STATUS BASED ON TRACK, SECTOR AND CYLINDER

001140

49 052462 023727 001444
50 052470 101025

001466

012737

052737

040000

053602

g; 052472

042737

040000

053602

53 052500

123737

001417

001333

56 052510
57 052516

123727
101410

001416

000035

gzs. 052506

GO BACK TO SUB FOR MORE ERROR CHECKS

a(SP)

MOVB
SUB
B8R

002000

48 052454

ERROR NUMBER DEFINED BY SUB

;REPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL

RETURN HERE TO REPORT AN ERROR

*LOCAL REGISTERS, I.E., 'PAR* =1 AND 'DPE'‘ = 0
BIT
#PAR ,RMER1]
:WAS PARITY ERROR DETECTED??

39 052424 112776 000050 000000

41 052436

PC,a(SP)+

RETURN HERE IF NO ERROR

;TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING

001350

42 052440
2.2 052444

272

CLRB

40 052432

JSR

273

:CLEAR USERS' ERROR CALL
NOP
ADD
K4, (SP)

29
30 052366 032737 000010

36 052406

;

NOP

PC.SEKSTS

SEKSTS:
000004
000000

B8R

;

24 052352

31 052374

JSR

;

000240
062716
105076

25 052356

SEEK STATUS CHECK SUBROUTINE

;THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS
STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER.

5 052344
2
22 052344
23 052346

SEQ 0222

101016

SALSO, SET *'SKI'* IF CYLINDER ADDRESS IS TOO LARGE.
1$:

MOV

#1AE. SGDDAT

CMP
BHI

RMD(O, #822.
3s

CMPB

RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRACK ?

SYES - TRACK IS INVALID

CMPB
BLOS

RMDAD,#29.
2%

:SECTOR > 29.
;BR IF NO

BIS

BIC

BHI

:SETUP FOR IAE
= i

#5K1.3008

*SETUP FOR SKI = 1

#SK1,3008

*CLEAR SKI ERROR FLAG

*GREATER THAN LAST CYLINDER ?
SYES - CYLINDER IS INVALID

CZRMOAQ RMOS/3/2 FCTNL TST 3

SEEK STATUS CHECK SUBROUT INE

MACRO v03.01

S8 052520
§9 052526
60 052530
25 052536

032737
001406
123727
101002

22 052540

005037

001140

013737

001350

001142

040000

053602

66 052544

67 052552
68 052560
69 052566
70 052570

71 052576
72 052600

73
74 052600

75 052604

76 052612
77 052616
78 052620
79 052624
g? 052626

042737
023737
001004
042737

000413

062716

112776

162715
004736
162716
000240

010000

001442

001416

000037

175777
001140

28:

001142
001142

000051

000002

000000

8%,

85
86
87
88

052626
052634
052636
052642

b
cad
b e

062716
112776
032737

010000

001376

001140
001376

001142

000004
000060
000100

97 052712
98
99 052714
00 052722
01 052730
02 052736
03 052744

000240

162716

000010

013737
042737
013737
042737
001417

001376
137777
053602
137777

0011 42
001142
001140
001140

052746
052754
052756
052762
052770
052774
052776
82%883

032737
001032
062716
112776
162716
004736
162716
000443

040000

001142

000004
000267
000002

000000

000061
000002

d
e

HBNN=O

000010

;18 BIT FORMAT ?
:YES - SECTOR xs INVALID FOR 18 BIT MODE
SSECTOR > 31.
SYES - SECTOR xs INVALID

CLR

$GDDAT

;"'IAE"" SHOULD = 0

MOV

BIC
CMP
BNE
BIC

SUB
JSR
SUB
NOP

RMER11,$8DDAT

#~CIAE.$8DDAT
$GDDAT.SBDDAT
358
#SK1,300$

(13

;IS IAE OK??

:SAVE IAE BIT FOR COMPARE
:CORRECT ''IAE'’ STATUS ?
‘BR IF NO
*CLEAR SKI FLAG

:GO CHECK NEXT ERROR

#51.3(SP)

#2,(SP)
PC.a(SP)+
#10, (SP)

;ERROR 51

*MOVE SP TO RETURN FOR ERROR
*REPORT INCORRECT IAE
;RESTORE (SP)

000000

ERRONEOUS IVC ERROR, VOLUME VALID IS SET

BIT
BEQ
CLR
MOV

ADD
MOVB
BIT

000000
001346

51$:

BEQ
MOVB
SUB
JSR

SuB

NOP

032737
001427
005037
013737

001403
112776
162716
004736

md =
e e
vd

#FMT16,RMOFO
3$
RMDAO,#31.
3s

MOVB

052670
052672
052700
052704

9% 052706

b e

BIT
BEQ
CMPB
BHI

;REPORT ANY 1V(C ERROR AS
:
IVC ERROR WITH VOLUME VALID ZERO

89 052650
90 052654
91 052662

92
93
94
95

SEQ 0223

;REPORT INCORRECT ‘''IAE'* STATUS VIA USER'S ERROR CALL
ADD
#4, (SP)

000010

82
83

- COMPARE EXPECTED AND RECIEVED ''IAE'' STATUS

$$:

358
000004

11-APR-80 13:39:53 PAGE 29-1

52%:

MOV

BIC
MOV
BIC
BEQ

#1VC.RMER2]
528
$GDDAT
RMER2i ,$BDDAT

#4,(SP)
#60.3(SP)
#VV.RMDS
]

51%
#61,a(SP)
#2.(SP)
PC.a(SP)+

#10, (SP)

RMER2I ,$BDDAT

#*CSK], $8DDAT
300%,3$GDDAT
#*CSK]1,$GDDAT
53%

: IVC ERROR??
*NO!!

SEXPECTED STATUS
:RECEIVED STATUS

JMOVE SP TO USER'S ERROR
“ERROR 60 IF VWV = 0

;ERROR 61 IF W = 1
:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

*RESTORE SP

;RECEIVED STATUS

;CLEAR DONT CARES
;GET EXPECTED SKI STATUS
;CLEAR DONT CARES
;BRANCH IF 0 EXPECTED

;REPORT ERROR IF SKI IS NOT SET (IAE WAS NOT DETECTED)
BIT
#SKI,$8DDAT
;WAS SKI DETECTED ??
BNE
54%
JYES !
ADD
#4,(SP)
:MOVE SP TO USERS ERROR CALL
MOvVB
#267 ,3(SP)
;WRITE ERROR NUMBER
suB
#2,(SP)
sMOVE SP TO ERROR RETURN
JSR
PC,a(SP)+
:REPORT ERROR AND RETURN
SuB
#10,(SP)
;MOVE SP TO NO ERROR
53¢
BR
6%
;GO TO NEXT ERROR CHECK

CZRMOAQ RMOS/3/2 FCTNL TST 3

SEEK STATUS CHECK SUBROUTINE

MACRO v03.01

115

116
117 053004
118 053012
119 053014

120 053020
121 053026
122 053032
123 053034
}Sg 053040
126

127 053042

032737
001413
062716
112776
162716
004736

000200

001376

001140
001376
000004

001142

162715
004736
162716
000240

}g% 053176
154

155 053200
156 053204
157 053210
158 053214
}23 053216

161

000000

032737

133
134
135
}%9

138
139
140 053112
141 053120
142 053122
143 053126
144 053134
145 053140
1646 053146
147 053154
148 053156
149 053164
150 053170
151 053172

000004
000054
000002

000017

001420
005037
013737
062716

053076
053102
053104
053110

001142

162716
000240

128 053050
129 053052
130 053056
131 053064

132 053070

040000

112776

032737
001427
005037
013737
062716
112776
032737
001403
112776
162716
004736
162716

000240

013746
042716
022726
001002
000137

000055

000002

001140
001350
000004
000052
010000
000053
000002

001350

001142
000000
001346
000000

162716

000002

#DVC,RMERZI

BEQ
CLR
MOV
ADD

63
$GDDAT
RMER2] ,$8DDAT
#4 , (SP)

suB
JSR
SuB
NOP

#2, (SP)
PC,a(SP)+
#10, (SP)

#55.,a(5P)

SEQ 0224

;1S SKI SET 22
sNO - SKI IS OK
sMOVE (SP) TO ERROR
;LOAD ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
JREPORT SEEK ERROR

sRESTORE (SP)

;WAS THERE DVC DURING SEEK??
;NO!!
JEXPECTED STATUS
;RECEIVED STATUS

;ERROR

#55

sMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
sRESTORE SP

JREPORT ANY ‘DPI'’ ERROR AS OP] WITH MOL
= 0, OR
OPI
;BECAUSE ON CYLINDER LATCH DIDN'T RESET
6$:
BIT
#OP1 ,RMER1]
:"OPI'* ERROR??
BEQ
8s
;NO!!
CLR
$GDDAT
SEXPECTED STATUS
MoV
RMER1I
. $BDDAT
;RECEIVED STATUS
ADD
#4, (SP)
;MOVE (SP) TO ERROR
MovB
#52,a(SP)
;LOAD ERROR NUMBER
BIT
#MOL ,RMDS |
;WAS MEDIUM ON LINE??
BEQ
7$
sNO!!
MOVB
#53,3(SP)
;YES = CHANGE ERROR NUMBER
78:
suB
#2,(SP)
;sMOVE SP TO RETURN FOR ERROR
JSR
PC,a(SP)+
sREPORT ‘OPI'* ERROR
SuB
#10, (SP)
;RESTORE (SP)

;SEE IF 'PIP" = O, AND '‘ATA'', "MOL'' AND 'VV'' = 1

8%:

010000

001346

020000

001350

001346
010000
001346
000004

001140
001140
001142

000062

BIT

MOVB

053552

171 053276

#54 ,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

. REPORT ANY DEVICE CHECK

548:

NOP

001346
047677
110100

032737
001030
032737
001024
013737
052737
013737
062716

112776

mMovB
suB
JSR
Sus
NOP

000000

000010

162 053222
163 053230
164 053232
165 053240
166 053242
167 053250
168 053256
169 053264

170 053270

JREPORT ERROR [F SKI IS SET
BIT
#SKI,$BDDAT
BEQ
548
ADD
#4, (SP)

000010

020000

11-APR-80 13:39:53 PAGE 29-2

000000

MOV
BIC
CMP
BNE
JMP

RMDSI ,-(SP)
#*C<ATA!PIP!MOL!VV>,
(SP)
HATA!MOL!VV, (SP)+
9%
;ERROR IN RMDS
148
JRMDS IS OK

;REPORT ERROR IF MOL = 0 AND OP] = 0

9$:

BIT
BNE
BIT
BNE
MOV
BIS
MOV
ADD

#MOL ,RMDS ]
108
#O0PI ,RMER1I
108
RMDSI ,$GDDAT
A#MOL
, SGDDAT
RMDSI , $BDDAT
#4,(SP)

;1S MOL RESET??
sNO - MOL IS SET
;WAS OP] SET
;YES = DONT REPORT ERROR
;EXPECTED STATUS

suB

#2,(SP)

;MOVE SP TO RETURN FOR ERROR

MovB

#62.,3(SP)

SJRECEIVED STATUS

CZRMOAO RMOS/3/2 FCTNL TST 3

SEEK STATUS CHECK SUBROUTINE

053312
053320
053322
053330

004736

suB

000010

032737

020000

001346

040000

001376

001346

001140
001142

NOP

108:

BIT

#PIP ,RMDS]

BIT

#SK1,RMER2]

BEQ
BNE
MOV
BIC

118
RMDSI,$GODAT
#PIP,$BDDAT

SYES-DONT REPORT PIP
:EXPECTED STATUS

ADD

¥4, (SP)

MOVB
SUB

SuB

JSR

D o

NOP

199 053446

001346

001140
001140
001142

110600

001346
000004
000057

000002

162716
000240

000010

206 053462

032737

000100

001346

010000

001376

001346

001140
001140
001142

RMDS] ,$BDDAT

;RECEIVED STATUS

#56.3(SP)
#2. (SP)

:LOAD ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR

PC.3(SP)+

#10, (SP)

*MOVE

(SP)

TO ERROR

*REPORT 'PIP'* SET AFTER SEEK

;RESTORE (SP)

;REPORT AN ERROR IF "‘ATA'' IS NOT SET
BIT
#ATA,RMDS
;WAS *‘ATA'' SET 72
BNE
13$
SYES!!
MOV
"MDS],$GDDAT
:EXPECTED STATUS
8IS
#ATA'MOL
' DPR ! DRY . SGDDAT
MOV
RMDS],$8DDAT
:RECEIVED STATUS
ADD

¥4,

SUB
JSR

#2, (SP)
PC.a(SP)+

MOVB

suB

NOP

(SP)

#57.a(SP)

#10. (SP)

:MOVE

(SP)

TO ERROR

:LOAD ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
:REPORT ATTENTION NOT SET DURING

*SEEK TEST

;RESTORE (SP)

;REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO
13$:
BIT
AVV ,RMDS ]
JISSW =0 2?
8NE

INO!!

#1VC.RMER2]
148
RMDSI,$GDDAT
#VV,$GDDAT
RMDS],$BDDAT

*I1S IvC ALSO 0 22
‘NO - IVC IS SET
:EXPECTED STATUS

MOVB
suB

#64,a(SP)
#2,(SP)

;ERROR #64
*MOVE SP TO RETURN FOR ERROR

SuB

#10, (SP)

JSR

14%:

148

8IT
BNE
MOV
8IS
MOV
ADD

000000

221
222 053552
223 053554
224 053560
225 053564
226 053566
227 053572
228

“WAS ‘'SKI''SET??

118:

000000

200 053452
201
202 053454
203 053460

;1S "PIP STILL SET??

*NO!!

MOV

000000

100000

;REPORT ERROR VIA USER

118

)

(¥,]

001142

032737
001024
013737
052737
013737
062716
112776
162716
004736

PC.a(SP)+

#10, (SP)

SEQ 0225

;REPORT AN ERROR IF 'PIP'' IS STIL SET AND SKI NOT SET

D e

D nd o

G 2
11-APR-80 13:39:53 PAGE 29-3
JSR

162716
000240

wd d

) oD

d wd

BREC2EBRIRRRETRBININ

172 053302
173 053304
174 053310

MACRO v03.01

NOP

#4, (SP)

PC.a(SP)+

;RECEIVED STATUS

:MODIFY ng RETURN ADDRESS IF AN ERROR WAS DETECTED
000004
000000
000004

ADD
ISTB

¥4, (SP)
a($P)

:MOVE (SP) TO ERROR CALL
*WAS ERROR CALLED??

ADD
BR

#%, (SP)
16$

*MOVE

BEQ

158

‘NO!!

TO ERROR RETURN

CZRMOAQ RMOS/3/2 FCINL TST 3

SEEK STATUS CHECK SUBROUTINE

229 053574
2%0 053600
231
232 053602
233

162716
000207
000000

000004

MACRO v03.01

H 2
11-APR-80 13:39:53 PAGE 29-4

SEQ 0226

15%:
16%:

suB
RTS

#4, (SP)
PC

;MOVE (SP)
JRETURN

TO NO ERROR RETURN

300%:

WORD

;ERROR FLAGS

CZRMOAO RMOS/3/2 FCTINL TST 3
NANLWNWN =

CONTROLLER CLEAR SUBROUTINE

MACRO v03.01

.SBTTL

SEQ 0227

CONTROLLER CLEAR SUBROUTINE

sTHIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS,
;AND DRIVES, THEN SELECTS THE DRIVE.

=0V

CALL:

CNTCLR:

010046
010146

013746
013746
012737
012737
013700
012760
013701

000004
000004
000006

000010

111160

000412

022626

26 053720
27

I
2
11-APR~80 13:39:53 PAGE 30

012637
012637
012601
012600

000207

000010
000010
000010

10%:

208:

JSR
BR
NOP
ERROR
?27?

PC,CNTCLR

RETURN HERE IF NO ERROR FULUND
RETURN HERE I[F ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

MOV
MOV
MoV
MoV
MOV
MOV
MOV
MOV
MOV
MOvB
B8R

RO,~(SP)
R1,-(SP)
ERRVEC,=(SP)

;sPUSH RO ON STACK
;sPUSH R1 ON STACK

ERRVEC+2,-(SP)

#108 ,ERRVEC
#PR6 ,ERRVEC+2

$8ASE RO

#CLR,RMCS2(RO)
TSTQUE ,R1
(R1) ,RMCS2(R0O)

20%

s ¢PUSH ERRVEC ON STACK
;:PUSH ERRVEC+2 ON STACK
;SETUP FOR BUS TIMEOUT

;RO = UNIBUS ADDRESS
s CLEAR MASSBUS
;GET DEVICE UNDER TECST
sSELECT DEVICE
;ADJUST STACK

mMovB
suB

(SP)+,(SP)+
#4,10(SP)
#7,310(SP)
#2,10(SP)

MOV
MOV
MOV
MOV

(SP)+ ,ERRVEC
(SP)+ ,R1
(SP)+ RO

(SP)+ ERRVEC+2

;.POP STACK INTO ERRVEC+Z2
;sPOP STACK INTO ERRVEC
:sPOP STACK INTO R1
;;POP STACK INTO RO

cMP

ADD

RTS

sMOVE SP TO USER'S ERROR CALL
;JWRITE THE ERROR NUMBER
;ADJUST SP TO RETURN TO ERROR

MACRO v03.01

O NI AN —

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

NNNB
WA
=2 OV

1
1
1
1
1
1

2
SEQ 0228

CONTROLLER CLEAR STATUS (CHCCK SUBROUTINE

;THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON
;STATUS STORED IN THE GET BUFFER.
THIS SUBROUTINE SHOULD ONLY BE
¢USED FOLLOWING A CONTROLLER CLEAR OPERATION, I.E., WRITING A 1 IN BIT

;5 OF RM(S2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION.

WNN = O\000

.SBTTL

:STATUS PERTINENT TO THE DEVICE IS NOT CHECKED.
;FOLLOWING STATUS BITS ARE NOT CHECKED:
:

:l‘

11-APR-80 13:39:53 PAGE 31

ATA ERR,PIP ,MOL ,WRL ,LBT ,PGM,VV,0OM,UNS,SK],DVC

JCALL:
2 (1)
.
M
N
:

JSR
B8R
NOP
ERROR
JSR

.
053722
062716
105076
162716

000004
000000
000004

29 053736
30 053744
31 053752
32 053760
33 053766
3% 053770

013737
042737
012737
023737
001413
062716

001334
100000
004200
001140

36 054002
37 054006

162716
004736

39 054014
40

000240

35 053776

38 054010

41 054016

112776

005037

001140

46 054044
47 054050

162716
004736

49 054056
50

000240

51 054060

52 054066
53 054070
54 054072
55 054076
56 054100
57 054104

000126

000002

000010

013737
001413
062716

48 054052

000004

162716

42 054022
43 054030
44 056032

45 054036

?27?

PC,CLRSTS
27?
PC,a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SuB
GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

CLRSTS:

24
25 053722
26 053726
27 053732
28

IN PARTICULAR, THE

001340
000004

112776

000127

162716

000010

013737

001344

010146
005046
013701
111116
052716
012637

000002

001464
000100

001140

;CLEAR USER'S ERROR CALL
ADD
#4,(SP)
CLRB
a($P)
SUB
#4, (SP)
001142
001142
001140
001142

:REPORT ERROR IF RMCS1 NOT INITIALIZED

4$:

000000

MOV
BIC
MOV
cTMP
BEQ
ADD

RMCS11,$8DDAT
;VERIFY RMCS1
#SC . SBDDAT
*IGNORE SPECIAL CONDITION
#DVA'RDY,$GDDAT :EXPECT DVA & RDY
$GDDAT,SBDDAT : COMPARE EXPECTED, RECEIVED
58
*BRANCH IF EQUAL
#4, (SP)
*MOVE SP TO USER'S ERROR CALL

MOVB

#126,a(SP)

*WITE ERROR NUMBER IN CALL

SUB

#10, (SP)

*MOVE SP BACK TO NO ERROR

$GDDAT

;VERIFY RMBA IS ZERO

SUB
JSR

#2.(SP)
PC.a(SP)+

NOP
:REPORT ERROR IF RMBA NOT RESET

001142

§s:

000000

001142

;MOVE SP TO ERROR
*CLEAR ERROR NUMBER
*MOVE SP BACK TO NO ERROR

CLR

MOV
BEQ
ADD

RMBA]
, SBDDAT
7%
#4, (SP)

:BRANCH IF ZERO
*MOVE SP TO USER'S ERROR CALL

#2,(SP)
PC.A(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

MOVB

#127.a(SP)

SUB

#10, (SP)

MOV

RMCS2I ,$8DDAT

SUB
JSR

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

*WITE ERROR NUMBER IN CALL

:MOVE SP BACK TO NO ERROR

NOP
:REPORT ERROR IF RMCS2 NOT INITIALIZED

7%:

MOV
CLR
MOV
MOVB
8IS
MOV

R1,-(SP)
-($P)
TSTQUE .R1
(R1), ($P)
#IR, (SP)
(SP+,$GDDAT

;VERIFY RMCS?2

*:PUSH R1 ON STACK
SEXPECT IR & UNIT NUMBER
‘R1 = ADDRESS OF TEST QUE

CZRMOAO RMOS/3/2 FCINL TST 3

TST 3

MACRO Vv03.01

CONTROLLER CLEAR STATUS CHECK SUBROUT INE

58 054110
59 054112
60 054120
61 0564122
62 056126

012601
023737

63 05413/

64 054140
65 054142
66 054146
67
68 054150
69 054154
70 054162
71 054170
72 054172
73 054176

MOV

CMP
BEQ

ADD
mMovae
Su8

JSR
suB

NOP

99 054340

005037
013737
001413
062716
112776
162716
004736
162716
000240

001142
001142

JSR
suB

162716

P
W

(SP)

#150,3(SP)
42, (SP)
PC.a(SP)+

70, (SP)

SMOVE SP TO USER'S ERROR CALL

:WITE ERROR NUMBER IN CALL

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

*MOVE SP BACK TO NO ERROR

NOT RESET-IGNORE UNS
$GDDAT
;VERIFY RMER1
RMER11,$8DDAT
#UNS , S8DDAT
: IGNORE UNSAFE
138
*BRANCH IF ZERO
#4, (SP)
:MOVE SP TO USER'S ERROR CALL

#151,a(sP)

:WITE ERROR NUMBER IN CALL

42, (SP)

*MOVE SP TO RETURN FOR ERROR

#10, (SP)

:MOVE SP BACK TO NO ERROR

PC.a(SP)+

*REPORT ERROR VIA USER

NOP
REPORT ERROR IF RMMR1 NOT INITIALIZED-IGNORE WC.LS.LST
3%:
MOV
RMMR1].$8DDAT
;VERIFY RMWR
B8IC
MOV
AMJD , SGDDAT
;EXPECT WRITE DATA BIT
cMP
$GDDAT,$BDDAT
:COMPARE EXPECTED AND RECEIVED
BEQ
17$
*BRANCH IF 0
ADD
#4, (SP)
*MOVE SP TO USER'S ERROR CALL
#153,3(SP)
Movs
*WITE ERROR NUMBER IN CALL
#2,(SP)
SUB
*MOVE SP TO RETURN FOR ERROR

004736

001140
001402
000004
000135
000002

001142

MOV
BEQ

$g§c21.seooAr

162716

000010

005037
013737

001140
001376

*REPORT ERROR VIA USER
*MOVE SP BACK TO NO ERROR

: REPORT AN ERROR IF RMEC2 IS NOT RESET
7%:
CLR
$GDDAT
;EXPECT ZEROS
¥4,

(SP)

#1553 (sp)

000000

#2,(SP)
PC.a(SP)+

#10, (SP)
b b
—

Ea¥
o o¥ 3
rnonrN

-—A—l—l§

001374
14 0000
011777
001140

162716

000240

PC.a(SP)+
#10, (SP)

000010

000004
000136
000002

004736

JSR
suB
NOP

; IGNORE WORD CLOCK, SCT, TRK

jolelel

46,

;:POP STACK INTO R1
: COMPARE EXPECTED & RECEIVED
‘BRANCH If EQUAL

MJIC'LSTLST,$BDDAT

013737

b ok wd cmd ced el

CLR
MOV
8IC
BEQ

ADD
MovB
suB

000000

054422
054426

(SP)+,R1
$GDDAT,$BDDAT
9s

SEQ 0229

REPORT ERROR IF RMER1

000010

162716
000240

RGn=o383R3R2R28

000000

000004
000131
000002

79 054220
80 054226
81 054234
82 054242
83 054250
84 054252
85 054256
86 054264
87 054270
88 054272
gg 054276

)

000004
000130
000002

001140
001350
040000

75 054210
76 054212
;g 054216

D ed and

001142

000010

74 054204

— ek

001140

K 2
11-APR-80 13:39:53 PAGE 31-1

*VERIFY RMEC2=0
;MOVE SP TO USER'S ERROR CALL

*WITE ERROR NUMBER IN CALL

:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

:MOVE SP BACK TO NO ERROR

REPORT ERROR IF RMMR2 NOT

1 9%

MOV

INITIALIZED-IGNORE RQA,RQB
RMMR2I,$8DDAT
:VERIFY RMMR?

#RQA !RQB,$BDDAT

#TST!1777 ,$GDDAT

LEXPECT TEST BIT ON

§$20Ar.seooAr

#6,

(SP)

;MOVE SP TO USER'S ERROR CALL

#2.(SP)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPOR] ERROR VIA USER

#15%6.3(sP)

000000

#0, (SP)

*WITE ERROR NUMBER IN CALL

:MOVE SP BACK TO NO ERROR

REPORT ERROR IF RMER2 NOT RESET-IGNORE

001142

218

CLR
MOV

$GDDAT
RMERZI ,$BDDAT

SK]I,DVC

JEAPECT ALL ZEROS
;VERIFY RMER?

CZRMOAO RMOS/3/2 FCINI

CZRMOAO RMOS/3/2 FCINL TST 3

MACRO Vv03.01

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

—d

001142

062716
112776

000004
000174

J00000

—

040200

Hen
S
[V Pl
ornN

[olele)]

(L LV, 1V, ]

042737

054456
054462
054464

162716
004736
162716

054472
V54500
054506
054514
054522
054524

013737
042737
012737
023737
001413
062716
112776
162716

001345
177177
000600
001140

b el

d and

162715

000010

056552
054556

062716
105776

000004
000000

054564

062716

000004

054572

162716

000004

000240

n
P8
o

NES

\fl\h\h
e

V1Y,

ps S

v VLA

054470

o0 QOO

) d

D d

)

d ed

GRSE BB NRURLEBRNRRREN
NS T2 o

PPN PNININIPONIN)
= — s s

115 054434

000002

BIC
BEQ

SuB

#SK]'DVC, $BDDAT s IGNORE DEVICE ERRORS
215%
sBRANCH If OTHER BITS 0
#4 (SP)
sMOVE SP TO USER'S ERROR CALL
#174,3(SP)
;WITE ERROR NUMBER IN CALL
#2, (SP)
sMOVE SP TO RETURN FOR ERROR
PC.a(SP)+
sREPORT ERROR VIA USER
#10, (SP)
;MOVE SP BACK TO NO ERROR

MOV

RMDSI , $BDDAT

: TEST DRIVE STATUS REGISTER

#134.3(sP)

;JWRITE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR TO USER
sMOVE SP BACK TO NO ERROR

#4, (SP)

;MOVE SP TO ERROR CALL
::3§|A~ ERROE DETECTED??

ADD

MOVB
SuB

JSR

000010

000004
000134
000002

L .2
11-APR-80 13:39:53 PAGE 31-2

001142

001142
001140
001142

NOP
-REPORT ERROR IF RMDS NOT

215%:

BIC
MOV
CMP
BEQ
ADD

000000

MOVB
suB
JSR
suB

22%:

NOP

ADD

23%:
24%:

#~C<DRY !DPR>, $8DDAT
#DPR'DRY
, $GDDAT SEXPECTED DRIVE STATUS
$GDDAT, SBDDAT
;COMPARE EXPECTED & RECEIVED
228
;BRANCH IF EQUAL
44, (SP)
sJMOVE SP TO USER'S ERROR CALL

#2, (SP)
PC,a(SP)+
#10, (SP)

TSTB

a(SP)

ADD
BR

#4,(SP)
24%

RTS

BEQ

suB
NOP

INITIALIZED

23%

#4,(SP)

*YES- MOVE TO ERROR RETURN
;MOVE SP TO NO ERROR RETURN

SEQ 0230

CZRMOAQ RMOS/3/2 FCTNL TST 3

b b o) ed ) i el ad b

NABOG\JOMJ\WNJOO@\IO\AJ\WN—&

PACK ACKNOWLEDGE

STATUS

CHECK

MACRO v03.01

.SBTTL

PACK ACKNOWLEDGE STATUS CHECK

;REPORTED TO THE USER VIA THE USER'S ERROR CALL.

;CALL:
(1)

054602

23 054616

032737

000100

001346

25 054626
26 054634
27 054642

013737
052737
013737

001346
000100
001346

001140
001140
001142

28 054650
29 054654

30 054662

32 054670
33 054674
gg 054676

36
37 054676
38 054704

39 054706

40 0564714
41 054722
42 054730

43 054734
44 054742
45 054746
46 054750
47 054754

zg 054756

PC ,ACKSTS

”

PC,a(SP)+

;CLEAR USER'S ERROR CALL

000004
000000
000004

24 054624

JSR
BR
NOP
ERROR
JSR
7

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR

ERROR NUMBER DEF INED BY SUB

GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

ACKSTS:

062716
105075
162716

—

SEQ 0231

;THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE
;COMMAND USING THE STATUS STORED IN THE GET BUFFER.
ERRORS ARE

054602
056606
054612

M2
11-APR-80 13:39:53 PAGE 32

001024

062716
112776

000004
000155

ADD
CLRB

SUB

000002

032737
001024
013737
052737

010000

001246

001346

001140
001140
001142

112776
162716
004736
162716
000240

000041
000002

MOV

RMDSI,$BDDAT

JSR

PC.3(SP)+

001350

54
55 054766
56 054774
57 054776

032737
001424
013737

040000

001350

001142

NOP

BiT

#2,(SP)

#10, (SP)

2
RMDSI ,$GDDAT

MOV
ADD

RMDSi,$BDDAT
#4,(SP)

SUB
JSR
SuB

#2,(SP)
PC.a(SP)+
#10., (SP)

MOVB

;SEE IF

AMOL ,RMDS I

BNE
MOV
BIS

2$:

060007

(SP)

;REPORT AN ERROR IF ‘MOL'' IS O

000000

032737
001570

#4,

#155.a(sP)

sUB

50
51 054756
gg 054764

#VV, $GDDAT

movB

suB

000010

001350

#VV . RMDS |
18
RMDS],$GDDAT

ADD

1%:

IF 'W'' IS 0

BIT
BNE
MOV
BIS

000010

010000
001346
000004

#4, (SP)

;REPORT AN ERROR

000000

162716
004736
162716
000240

013737
062716

#4, (SP)
a(SP)

NOP

MMOL
, $GDDAT

#41.3(SP)

.ws'.'.WI."'R"R.."'ILR.‘,

BIT
BEQ

*MOVE SP BACK

;1S VOLUME VALID SET??
SYES!!
:EXPECTED STATUS

:RECEIVED STATUS

*MOVE SP TO ERROR CALL

SWRITE NUMBER IN ERROR CALL

:MOVE SP TO RETURN FOR ERROR

*REPORT THE ERROR

:MOVE SP BACK TO BRANCH

;1S MOL SET??

SYES!!
:EXPECTED STATUS
:RECEIVED STATUS
:MOVE SP TO ERROR CALL
*WRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT TH ERROR
*MOVE SP TO BRANCH
OR

OIILFOI

SET

AUNS'OPI'RMR!ILR ILF ,RMER1]
78

;REPORT AN ERROR IF "UNS'' IS SET

BIT

#UNS ,RMER1]

MOV

RMER11,$BDDAT

BEQ

;MOVE SP TO ERROR CALL
SCLEAR LOW ORDER BYTE

:WAS UNS SET??

NO!.

:RECEIVED STATUS

CZRMOAQ RMOS/3/2 FCTNL TST 3

PACK ACKNOWLEDGE STATUS CHECK

58 055004
59 055012

60 055020
61 055024
62 055032

68
69 055046

70 055054
71 055056

72 055064
73 055072
74 055100
75 055104
76 055112
77 055116
78 055120
79 055124
g? 055126
82
83 055126
&4 055134
85 055136
86 055144

87 055152

—

0627 16
112776
162716
004736
162716
000240

032737
001424
013737
013737
042737
062716
112776

001350
040000
000004
000042
000002

Al
N

#6,

($P)

#2.3(SP)

JEXPECTED STATUS

sMOVE SP TO ERROR CALL

sWRITE NUMBER OF ERROR IN CALL

JMOVE SP TO RETURN FOR ERROR
¢REPORT THE ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

#2,(SP)
PC.a(SP)+

#10, (SP)

001350
001350
020000

001142
001140
001140
000000

#6$.3(SP)

JREPORT

#6,

(SP)

;WAS OP] SET ??
“NO!!

‘RECEIVED STATUS

*EXPECTED STATUS

sMOVE SP TG ERROR CALL

;sWRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
JREPORT THE ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

#2,(SP)
PC.a(SP)+

#10, (SP)
4%:

000004

001350

001350
001350

001142

000002

;REPORT

001140

001140
000000

ERROR

ggflR.RHER1I

;WAS RMR SET??

RMER11I,$8DDAT
RMER1]1,SGDDAT
A#RMR
, SGDDAT
#4,(SP)
#44,3(SP)

‘RECEIVED STATUS

#2, (SP)
PC,a(SP)+
#10, (SP)

000010

“NO!!

*EXPECTED STATUS

sMOVE SP TO ERROR CALL
;WRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER

;MOVE SP TO NO ERROR RETURN

5%:

001350

JREPORT

ILR_EKROR
#ILR,RMER1
I

63
RMER1], $8DDAT

001142
001140

RMER11.$GDDAT

001140

#ILR,SGDDAT
24 (SP)

“NO!!

*RECEIVED STATUS
*EXPECTED STATUS

#10, (SP)

ILF _ERROR
;iLF.RMER1I

;WAS ILF

#2.(SP)

PC.A(SP)+

162716
000240

;WAS ILR SET??

sMOVE SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
JREPORT THE ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

#65.3(SP)

000000

162716
004736

032737
001424
013737
013737

MOvB
SuB
JSR
SuB

oP! ERROR
#0P1 ,RMER1]
43
RMER1],$8DDAT
RMER1]1.SGDDAT
#OP1
, SGDDAT

000010

112776
162716
004736
162716
000240

000000

RMER1],$GDDAT
, SGDDAT
#UNS

001350

162716

032737
001424
013737
013737
042737
062716

MOV
8IC
ADD

020000

000002

000240

001140
001140

SEQ 0232

3%:

162715

004736

000010

032737
001424
013737
013737

elele

RN 3IoIRIRARERS

88 055160
89 055164
90 055172
91 055176
92 055200
93 055204
94 055206

013737
042737

MACRO v03.01 11-APR-80 13:39:53 PAGE 35-1

6%:

000001

001350

061350
001350

001142
001140

JREPORT

RMER1],$8DDAT
RMER11,$GDDAT
$

“NO'!

SET??

*RECEIVED STATUS
*EXPECTED STATUS

CZRMOAO RMOS/3/2 FCTINL TST 3

(¥,]

2O V0O ~NO W
VOB NO NN

055312
5320
5324
5332
5336
5340
55344

(@]

NINININIPNININININIA)
= b b b b

PACK ACKNOWLEDGE STATUS CHEC

055346
055352
055356
055360

55366

042737
062716
112776
162716

004736
162716
000240

062716
105776
001403
062716
000402
162716

000001
000004
000046
000002

MACRO v03.01

8 3
11-APR-80 13:39:53 PAGE 32-2

001140

#ILF,SGDDAT
#4, (SP)
#46,3(SP)

000000

#2,(SP)

PC.R(SP)+

#10, (SP)

000010

sMOVE SP TO ERROR CALL

;WRITE NUMBER OF ERROR IN CALL

sMOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

7%:

000004
000000

<AUGMENT RETURN ADDRESS IF ERROR WAS FOUND

000004
000004

8%:

:
0%

ADD
1ST8
BEQ
ADD
BR
SuB
NOP
RTS

w4, (SP)

a(SP)

;MOVE SP TO ERROR CALL

#4, (SP)

USS.ERROR FOUND??
:N
;YES - MOVE TO CRRCR RETURN

#4, (SP)

;MOVE SP TO NO ERROR RETURN

8%
9%

SEQ 0233

CZRMOAQ RMOS/3/C FCINL TST 3

MACRO Vv03.01

PN~

= = md b b ok e ek b

AB‘OQVO‘MJ‘WN—‘OO@VO‘W‘*WN—'

RECALIBRATE STATUS CHECK SUBROUTINE

11-APR-80 13:39:53 PAGE 33

.SBTTL

SEQ 0234

RECALIBRATE STATUS CHECK SUBROUTINE

sTHIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION
;USING THE STATUS STORED IN THE GET BUFFER.

s CALL:

2D
H

:
H

055376

055602
055406

24 055412
25 055420

JSR

NOP

ERROR
JSR
?27?

PC,RCLSTS
72

: CALL SUBROUTINE

RETURN HERE IF NO ERROR

RETURN HERE

PC,a(SP)+

TO REPORT AN ERROR

ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

RCLSTS:

062716

;CLEAR USER'S ERROR NUMBER

000004

105075
162716

000000
000004

032737
001553

022011

ADD
CLRB

suB

001350

#4, (SP)
a(SP)
#4, (SP)

;CLEAR USER'S ERROR CALL

;MOVE SP BACK TO BRANCH

;SEE IF 'PAR'' OR "ILF'' OR 'OPI'' OR ''IAE'' IS SET
BIT
#OPI!PAR!ILF!]AE ,RMER1]
BEQ
48
sNONE ARE SET - GC TO NEXT CHECK

;REPORT ANY MASSBUS CONTROL BUS PARITY ERROR, I[.E.,

29 055422

032737

000010

001350

31 055432
32 055440

032737
001024

000010

001376

001350
000010
001350
000004
000050
000002

001140

30 055430

33 055442
34 055450
35 055456
36 055464
37 055470
38 055476
39 055502

40 055504
41 055510
2% 055512
44
45 055512

46 055520

47 055522
48 055530
49 055536

50 055544
51 055550
52 055556
53 055562
54 055564
55 055570
gg 055572

001430

013737
042737
013737
062716
112776
162716
004736

032737
001424
013737
042737
013737

000001

001350

001350
000001
001350

001140

BIC
MOV

#PAR,SGDDAT
RMER11,$BDDAT

MOVB

1%:

000004
000071
000002

#PAR ,RMER11
1%
#DPE ,RMERZ

ADD

000000

00C010

BIT
BEQ
BIT

BNE
1%
MOV RMER11,$GDDAT

001140
001142

162716
000240

062716
112776
162716
004736
162716
000240

;'PAR'* = 1 AND "DPE'' = 0

suB
JSR
SuB
NOP

#4,(SP)

001140
001142

ADD

000000

#50.a(sP)

#2, (SP)
PC.a(SP)+
#10, (SP)

2%:

44, (SP)

#71,a(SP)

JSR

PC a(SP)+

ggg

000010

#ILF ,RMERT ]
2s
RMER1] ,$GDDAT
#ILF ,$GDDAT
RMER1],$8DDAT

MOVB

SUB

#2., (SP)

#10, (SP)

;YES = NOT A REGISTER ERROR
JEXPECTED STATUS

;RECEIVED STATUS

MOVE SP TO USER'S ERROR CALL

;REPORT ANY "‘ILF'* ERROR
8IT
BEQ
MOV
BIC
MOV

JWAS ‘PAR'' SET??
;NO!!
;WAS 'DPE'’ SET??

JWRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN FOR ERROR
;GO REPORT ERROR
;MOVE SP BACK TO BRANCH

;WAS “'ILF'' SET??
‘NOT!
:EXPECTED STATUS

;RELEIVED STATUS

SMOVE SP TO USER'S ERROR CALL

‘WRITE ERROR NUMBER IN CALL

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

*MOVE SP BACK TO BRANCH

CZRMOAO RMOS/3/2 FCTNL TST 3

MACRO v03.01

RECALIBRATE STATUS CHECK SUBROUTINE

58
59
60
61 055572
62 055600
63 055602

sREPORT ANY ‘OPI'' ERROR AS

. OP] DUE TO 'MOL'' = 0

032737

65 055616

020000

001350

001350
020000
001350

001140
001140
001142

000072
010000

000000
001346

000073
000002

000000

3%:

000010
75 055670
78 055670
79 055676

31s:
032737
001424
013737

002000

001350

001140
001140
001142

89 055750

93 055756

94
95
9%
97
98

b
b
b

001376

BIT
BEQ
MOV
BIC
MOV
ADD
movB
suB
JSR
suB
NOP

#IAE ,RMER1]
43
RMER1I
, $GDDAT
# IAE , SGDDAT
RMER11, $8DDAT
#4, (SP)

#70.3(SP)

#2.(SP)
PC.a(SP)+
#10, (SP)

;1S "'IAE'" SET??
sNO!!
SEXPECTED STATUS

JRECEIVED STATUS
s:MOVE SP TO ERROR CALL
;WRITE ERROR NUMBER IN USER'S CALL
;sMOVE SP TO RETURN FOR ERROR
;REPORT ERROR
sMOVE SP BACK TO NO ERROR RETURN

OR ''IVC'' OR 'DVC''
;SEE IF "'SKI'"
IS SET
BIT
BEQ

ggKI!IVC!DVC,RMERZI

sNONE OF THE BITS ARE SET

%"
&

N
&~

NGRSO IBIRARECSS

050200

NOP

:REPORT ANY "‘IVC'' ERROR AS
IVC WITH v = 0

99 055760
055766
055770
055776

::::—l—l-l—l-l—l-—b—l—l—ld—‘—l

4%:

032737
001517

. OP1 BECAUSE ON CYLINDER LATCH DIDN'T RESET
BIT
#OP1 ,RMER11
;WAS OP] SET??
BEQ
318
sNO!!
RMER1],$GDDAT
MOV
sEXPECTED STATUS
BIC
#OP]
, SGDDAT
MOV
RMERT
], SBDDAT
JRECEIVED STATUS
ADD
¥4, (SP)
;MOVE SP TO USER'S ERROR CALL
#72,3(SP)
movs
JWRITE ERFR NUMBER IN USER'S CALL
#MOL ,RMDS 1
BIT
JWAS 'MOL' = 0?2
BEQ
3%
JYES!!
#73.3(SP)
movB
;NO = CHANGE ERROR NUMBER
#2, (SP)
SuB
¢MOVE SP TO RETURN FOR ERROR
PC.a(SP)+
JSR
+REPORT ERROR VIA USER
#10, (SP)
SUB
+MOVE SP BACK TO BRANCH

;REPORT AN ERROR [F ''TAE'' IS SET

000000

92 055750

D .3
11-APR-80 13:39:53 PAGE 33-1

032737

010000

001376

001376
010000
001376
000004
000074
000100

001140
001140
001142

000075
000002

000000

.ERRONEOUS IVC ERROR
#1VC,RMERZ2]
BIT
BEQ
3
MOV
RMER2]
, $GDDAT
#1VC,$GDDAT
BIC
MOV
RMER2]
, SBDDAT
ADD
¥4, (SP)
#74,3(SP)
MOVB
BIT
gvv.Rnosx

000000
001346
5%:

000010
6$:

BEQ
MOovB
SuB
JSR
SUB
NOP

s
#75.3(SP)
#2,(SP)

FC.a(SP)+

#10, (SP)

JWAS TVC SET??
;NO!!
;EXPECTED STATUS

JRECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
JWRITE ERROR NUMBER IN CALL

JWAS VvV = 0??
SYES!!
;NO - CHANGE ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;sMOVE SP BACK TO BRANCH

SEQ 0235

CZRMOAO RMOS/3/2 FCTNL TST 3

MACRO Vv03.01

013737
042737
013737

001140
001140
001142

056114
056122

112776
162716

001376
040000
001376
000004
000076
000002

056130

162716

000010

—

7%:

000200

S
no

001376
000200
001376
000004
o
S

032737
001424
013737
042737
013737
062716
—

bl
)

000000

056136
056136
056144
056146
056154
056162
056170

;REPORT ANY ''SKI’' ERROR
BIT
#SKI ,RMER2]
7$
BEQ

001376

BIT

BEQ
MOV
BIC
MOV
ADD

001140
001140
001142
000000

MOVB
suB
JSR
SuB

b e

8S%:

4 056216
5 056222
6 056226

013746
042716
022726

001346
047676
110100

8 056234

000137

056650

9 056240

cMP

85%:

010000

001346

020000

001350

001346

001140
001140
001142

NOP

MOV
BIC

)
b
b
b
) e
)

032737
001030
032737
001024
013737

056240
056246
056250
056256
056260

BNE
JMP

;RECEIVED STATUS

#4, (SPS

‘MOVE SP TO USER'S ERROR CALL

#2,(SP)
PC.a(SP)+
#10, (SP)

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
*MOVE SP TO BRANCH

#76.,3(SP)

#DVC ,RMER2]

8s
RMER21,$GDDAT

#DVC
., SGDDAT

RMER2] ,$8DDAT

#4,

*WRITE ERROR NUMBER

;WAS 'DVC'' SET??

*NO!!
:EXPECTED STATUS

;RECEIVED STATUS

(SP)

*MOVE SP TO USER'S ERROR CALL

#2.(SP)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

#77.3(SP)

#10, (SP)

SWRITE ERROR NUMBER

*MOVE SP TO USER'S BRANCH

RMDS] ,-(SP)

;PUT RMDS ON STACK

#*C<PIP!MOL !VV!OM!ATA>, (SP)
#ATA!MOL!VV, (SP)+

85%
138

I.E., MEDIUM WENT OFF

ggOL.RHDSI

:zé?'MOL DROP??

MOV
BIS

#OPI,RMER1]
9s

:WAS OP] ERROR REPORTED??
*YES - DON'T REPORT MOL=0

RMDSI,$GDDAT
:EXPECTED STATUS
#MOL
, SGDDAT
RMDS],$BDDAT
;RECEIVED STATUS
#4,(SP) :MOVE SP’TO USER'S ERROR CALL

#1002 (SP)
#2. (SP)

;WRITE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR

70, (SP)

:MOVE SP BACK TO USER'S BRANCH

BIT
BNE

N
~
o

o
N
N
o

:EXPECTED STATUS

BIT
BNE

b mad

RMER2] ,$BDDAT

PC.3(SP)+

*REPORT ERROR VIA USER

:
9%

b wd ed

RMER2] ,$GDDAT

#SK1,$GDDAT

SEQ 0236

JWAS SKI SET??
;NO!!

;REPORT AN ERROR IF MOL = O AND OP]I = 0,
sLINE AFTER RECALIBRATE WAS INITIATED

000000

b
—d ek end

;SEE IF "PIP'* AND 'OM'* ARE O, AND ''ATA'","MOL'' AND '‘VV'' ARE 1

b aed

b cd

056216

MOV
BIC
MOV
ADD
movs
su8
JSR
SUB
NOP

JREPORT ANY ‘DVC'’ ERROR

ad e

)

D e

b ad b d emd

S N NN F N
WWWNWNAN
NN NN
W oSSR YRNR WA =000
3332BARER2E VWV
VNN
WN—=O

056066
056074
055102

n
~

001376

040000

032737

—_

056056

d cned

)

RECALIBRATE STATUS CHECK SUBROUTINE

11-APR-80 13:39:53 PAGE 33-2

056330
056336
056340

032737
001030
032737

000100

001346

010000

001376

JREPORT AN ERROR

BIT
BNE
BIT

''WW'' = 0 AND "IVC'' = 0

#VV ,RMDS]

108
A VC,RMERZ]

;gégi‘vv“ DROP??

*WAS THERE A IVC ERROR??

CZRMOAO RMOS/3/2 FCINL TST 3

MACRO v03.01

RECALIBRATE STATUS CHECK SUBROUTINE

172 056346
73 056350
76 056356
75 056364
76 056372

056376

001024
013737

013737
052737
062716

112776

001346

001140
001142
001140

000101

000000

001346
000100
000004

F
.3
11-APR-80 13:39:53 PAGE 33-3

BNE
MOV
MOV
BIS

ADD

032737
001024
013737
052737
013737
062715
112776
162716

100000

001346

001346
100000
001346
000004
000102
000002

001140
001140
001142

056472

162716

000010

#2.(SP)

*MOVE SP TO RETURN FOR ERROR

JSR

PC.a(SP)+

sgg

056420
056426
056430
056436
056444
056452
056456
056464

;MOVE SP TO USER'S ERROR CALL

#101.a(sP)

;YES - DONT REPORT Vv=0
:EXPECTED STATUS
:RECEIVED STATUS

#4,(SP)

move
SUB

10%:

108
RMDSI,$GDDAT
RMDS],$BDDAT
#VV,SGDDAT

SEQ 0237

#10, (SP)

‘WRITE ERROR NUMBER IN CALL

;MOVE SP BACK TO USER'S BRANCH

:REPORT AN ERROR IF ATA IS NOT SET

BIT

BNE
MOV
BIS
MOV

000000

NATA,RMDS

118
RMDSI ,SGODAT
#ATA, $GDDAT
RMDS],$8DDAT

ADD

¥4,

SuB

#2,(SP)

move
JSR

SuB

NOP

(SP)

#102.a(sP)
PC.a(SP)+

#10, (SP)

:WAS ATA SET DURING RECALIBRATE??

SYES!!
:EXPECTED STATUS

:RECEIVED STATUS

‘MOVE SP TO USER'S ERROR CALL

“WRITE ERROR NUMBER IN CALL
:MOVE SP TO USER'S BRANCH

11$:

;REPORT AN ERROR IF 'OM'' IS NOT Z ERO BECAUSE RECALIBRATE SHOULD

201 056500
202 056506

032737
001424

000001

001346

205 056524
206 056532
207 056536
208 056544
209 056550
210 056552

013737
062716
112776
162716
004736
162716

001346
000001

001346
000004
000103
000002

001140
001140
001142

203 056510
204 056516

211 056556
g}% 056560

013737
042737

000240

sALWAYS CLEAR OFFSET MODE
BIT
#OM_RMDS |
BEQ
128

000000

RMDSI,$GDDAT
#0M, SGDDAT
RMDSI,$BDDAT
#4, (SP)

SuB

#2,(SP)

*MOVE SP TO RETURN FOR ERROR

#10, (SP)

*MOVE SP TO USER'S BRANCH

JSR

SuB

12%:

214
215
216 056560
217 056566
218 056570
219 056576

032737
001430
032737
001024

020000

001346

040000

001376

222 056614
223 056622
224 056626
225 056634
226 056640
227 056642
228 056646

013737
062716
112776
162716
004736
162716
000240

001346
000004
000104
000002

NOP

;REPORT AN ERROR

000010

SYES!!
-EXPECTED STATUS

MOV
BIC
MOV
ADD

MOVB

000010

;WAS 'OM'* RESET??

CYLINDER

BIT
BEQ

001140
001140
001142

BIT
BNE
MOV
BIC
MOV

000000

move

#103.a(sP)
PC.a(SP)+

*MOVE SP TO USER'S ERROR CALL

*WRITE ERROR NUMBER

*REPORT ERROR VIA USER

'PIP'' IS STIL ON,

#PIP,RMDSI
13$

#SK1,RMER2]
13s
RMDSI,$GDDAT
#P1P,$GDDAT
RMDSI,$BDDAT

ADD

#4_(SP)

SUB
JSR

#2, (SP)
PC.a(SP)+

zgg

;RECEIVED STATUS

:MOVE

#104.a(sP)

#10, (SP)

I.E..,

DRIVE NOT ON

;1S DRIVE OFF
‘NO!!

CYLINDER??

*WAS ''SKI'* DETECTED??
*YES-DONT REPORT 'Pip*
:EXPECTED STATUS
;RECEIVED STATUS

SP TO USER'S ERROR CALL

;WRITE ERROR NUMBER

‘MOVE SP TO RETURN FOR ERROR
:MOVE

SP BACK

TO USER'S BRAMCH

CZRMGAQ RMOS5/3/2 FCTNL TST 3

MACRO v03.01

RECALIBRATE STATUS CHECK SUBROUTINE

229 056650
230
231
232 056650
233 056656

G .3
11-APR-80 13:39:53 PAGE 33-4

13%:

032737
001514

040006

001350

;SEE IF "'ILR'* OR 'RMR'' OR 'UNS'' IS SET
BIT
#ILR'RMR'UNS ,RMERT]

032737

000002

001350

;REPORT AN ERROR IF "‘ILR'' IS SET
8IT
#ILR,PMER1]
;WAS ILR SET DURING RECALIBRATE??

001350

001140
001140
001142

BEQ
MOV
BIC
MOV

148
RMER(],$GDDAT
#ILR,$SGDDAT
RMER1],$BDDAT

000000

move

#105.a(sP)

BEQ

ADD

SUB
JSR

332
247 056740
250 056740

251 056746
252 056750
253 056756
254 056764
255 056772
256 056776
257 057004
258 057010
259 057012
260 057016
261 057020
262
263
264 057020
265 057026
266 057030
267 057036
268 057040
269 057046
270 057054
271 057062
272 057066
273 057074
274 057100
275 057102
276 057106
277 057110
278
279
280 057110
281 057114
282 057120
283 057122
284 057126
285 057130

168

#4,(SP)

*NO!!
:EXPECTED STATUS

:RECEIVED STATUS

:MOVE SP’TO USER'S ERROR CALL

#2.(SP)
PC.a(SP)+

#10, (SP)

;WRITE ERROR NUMBER IN CALL

*MOVE SP TO RETURN FOR ERROR

;MOVE SP TO USER'S BRANCH

14$:

032737
001424
013737
042737
013737
062716

000004

001350

001140
001140

;REPORT AN ERROR IF 'RMR'' IS SET
8IT
BEQ

001142

112776
162716

162716

000240

032737

RMER1]1,$GDDAT
#RMR, $GDDAT

:EXPECTED STATUS

ADD

#4 ., (SP)

*MOVE SP TO USER'S ERROR CALL

JSR
332

PC.a(SP)+
#10, (SP)

MOVB
sus

004736

;WAS RMR SET??
SNO!!

MOV
BIC

MOV

000000

#RMR ,RMER1]
158

RMER1],$BDDAT

#106.a(SP)
#2.(SP)

;RECEIVED STATUS

SWRITE ERROR NUMBER IN USER'S CALL
:MOVE SP TO RETURN FOR ERROR

*REPORT ERROR VIA USER
*MOVE SP TO USER'S BRANCH

15%:

040000

001350

000200

001376

001350
040000

001140
001140
001142

001350
000004
000107
000002

;REPORT AN ERROR IF 'UNS'' IS SET AND 'DVC'' IS O
BIT
#UNS , RMER1]
;WAS UNSAFE ON??
BEQ

BIT

BNE
MOV
BIC
MOV

000000

‘NO!!

168
RMER1],$GDDAT
MUNS
. SGDDAT
RMER11,$BDDAT

“YES - DON'T REPORT UNSAFE
:EXPECTED STATUS

*WAS THERE A DEVICE CHECK??

;RECEIVED STATUS

ADD

#4,

(SP)

*MOVE SP TO USER'S ERROR CALL

SUB
JSR

#2, (SP)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

MOVB

zgg

000010

16%

ADVC ., RMER2]

#107.a(sP)

#10, (sP)

SWRITE ERROR NUMBER

:MOVE SP BACK TO USER'S BRANCH

16%:

000004
000000

;AUGMENT T! = RETURN ADDRESS IF ANY ERROR WAS DETECTED

000004

44, (SP)
a($P)

SuB

#4,(SP)

BEQ
ggo

000004
162716

ADD
TSTB

17%:

17%
1gi(sp)

:MOVE SP TO USER'S ERROR CALL
‘WAS AN ERROR REPORTED??

:NO!!
SYES = AUGMENT SP RETURN

:NO ERROR - RETURN SP TO BRANCH

SEQ 0238

CZRMOAC RMOS/3/2 FCTNL TST 3

RECALIBRATE

MACRO v03.01

STATUS CHECK SUBROUTINE

286 057134
3%; 057136

000240
000207

H 3
11-APR-80 13:39:53 PAGE 33-5

SEQ 0239
18%:

NOP

RTS

;STATUS CECK IS COMPLETE

CZRMOAOD RMOS/3/2 FCINL TST 3

MACRO v03.01

—
SN

:
:

BR
NOP

;
;

JSR
7

PC.a(SP)+

OO0~

DRIVE CLEAR STATUS CHECK SUBROUTINE

;

057140

013737
042737
012737
023737
001443
062716

001334
173700
004010
001140

001142
001142
001140
001142

000004
000141
000002

000000

NN
NN

&»O

057154
057162
057170

000004
000000
000004

105076
162716

112776
162716

RETURN HERE

ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS
NO MORE ERRORS

013737
042737
012737
023737
001413
062716
112776
162716
004736

001346

NOP

001142

001140
001142
000000

162716

000240
005037
013737
001413
062716
112776

50 057356
51 057364
52 057366
53 057370
54 057374
55 057400
56 057404
57 057406

013737

#4, (SP)
ADD
;MOVE SP TO ERROR CALL
CLRB
a(SP)
;CLEAR ERROR CALL
¥4, (SP)
SuB
;MOVE SP TO USER'S BRANCH
igEPORT ERROR IF RMCS?1 NOT INITIALIZED
MOV
RMCS1]1,$8DDAT
: CHECK RM(CS1
BIC
#-C<DVA'FNCMSK>, $BDDAT
;CLEAR DONT CARES
MOV
#DVA!DRVCLR, SGDDAT
JEXPECT DVA
CMP
$GDDAT, SBDDAT
;COMPARE EXPECTED & RECEIVED
é$
BEQ
sBRANCH [F EQUAL
ADD
¥4, (SP)
sMOVE SP TO ERROR CALL
MOVB
#141.3(SP)
sWRITE NUMBER OF ERROR IN CALL
SUB
#2,(5P)
;MOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR VIA USER
PC.3(SP)+
JSR

SuB

000010

40 057314
41 057320
42 057326
43 057330
44 057334
45 057342
46 057346
47 057350
43 057354

IF NO ERROR
TO REPORT AN ERROR

;CLEAR USER'S ERROR CALL

062716

057226
26 057232
27
28 057234
29 057242
30 057250
31 057256
32 057264
33 057266
34 057272
35 057300
36 057304
37 057306
33 057312
3

ERROR

RETURN HERE
RETURN HERE

DRVSTS:

057140
057144
057150

W
S
G

NP PN

NN S
VS W N =0V

SEQ 0240

.SBTTL

DRIVE CLEAR STATUS CHECK SUBROUTINE

I 3
11-APR-80 13:39:53 PAGE 34

:MOVE SP TO NO ERROR cTURN

:REPORT ERROR IF RMDS NOT INITIALIZED
5$:
MOV
RMDSI
, SBDDAT
; CHECK RMDS
B8IC
#PGM!OM!VV'P1P, SBDDAT ;CLEAR DONT CARES
MOV
#MOL i DPR!DRY
, $GDDAT
JEXPECT DRY & DPR
cTMe
$GDDAT, SBDDAT
;COMPARE EXPECTED & RECEIVED
BEQ
6$
;BRANCH IF EQUAL
ADD
#4, (SP)
sMOVE SP TO ERROR CALL
MOVB
#142.a(SP)
cWRITE NUMBER OF ERROR IN CALL
#2. (SP)
SUB
;JMOVE SP TO RETURN FOR ERROR
JSR
PC.a(SP)+
JREPORT THE ERROR VIA USER
SUB
710, (SP)
;sMOVE SP TO NO ERROR RETURN
NOP

:REPORT ERROR IF RMER1 NOT INITIALIZED

001142

6$:

CLR
MOV
BEQ

$GDDAT
RMER1]1,$8DDAT
8$

MOVB
SuB
JSR

#143.3(SP)
#2,(SP)
PC a(SP)+

ADC

000000

162716

004736

suB

162716
000240

001142

177400

040237

70, (SP)

001142

NOP
:REPORT ERROR

8S:

MOV
MOV
MOV
MOV
MovB
BI(
(oM
BIC

¥4, (SP)

n0, (SP)

IF ATA NOT

JEXPECT 0°'S
s CHECK RMER1
sBRANCH IF EQUAL
sMOVE SP TO FRROR CALL
;WRITE NUMBER OF ERROR IN CALL
;MOVE SP TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

INITIALIZED

RMAS], $BDDAT
R1,-(SP)
R2,-(SP)
TSTQUE ,R1
1(R1) ,R2
#~CATNMSK
,R2
R2
R2,$BDDAT

;CHECK ATTENTION BIT
;.PUSH R1 ON STACK
;PUSH R2 ON STACK

€2
ST

CZRMOAOD RMOS5/3/2 FCTNL TST 3

MACRO Vv03.01

ODRIVE CLEAR STATUS CHECK SUBROUTINE

58 057412
59 057414
60 057416
61 057422
62 057424
63 057430
64 0576436
65 057442
66 057444
gg 057450

012602
012601
005737
001413
062716
112776
162716
004736
162716
000240

69 057452
70 057460

013737
042737

71 057466
72 0574764
73 057502

012737
023737
001413

MOV
MOV

001142
000004
000144
000002

TST

BEQ

ADD
MOVB
SuB
JSR

000000

382

000010
001360
000046

000010
001140

001142
001142
001140
001142

000000

MOV

87 057570

000240

013737
042737
012737
023737
001413
062716
112776

001374
140000
011777
001140

000004
000146

001142
001142

001140

001142

001402

001142

000004
000150
000002

000000

057652

013737
001413
062716
112776
162716
004736
162716

000240
013737
001413
062716
112776
162716
004736
162716
0uV0240

001376

o
QO

2WN=O

|V, ]

057662
057664
57670

IRIXFRIC2

d
b
b wd wmd
b
b
)
d ad
b

b avd ——d

b ed

9 057616
95 057624
96 057626
97 057632
98 057640
99 057644
00 057646

001140

000240

005037

0
057704
057710

#4, (SP)
#144.a(SP)

*MOVE SP TO ERROR CALL
*WRITE NUMBER OF ERROR IN CALL

#2,(SP)

*MOVE SP TO RETURN FOR ERROR

PC.a(SP)+

*REPORT THE ERROR VIA USER

#10, (SP)

NOT

:MOVE SP TO NO ERROR RETURN
INITIALIZED

RMMR1],$BDDAT

;CHECK RMMR

PC.a(SP)+

*REPORT THE ERROR VIA USER

#10, (SP)

:MOVE SP TO NO ERROR RETURN

BEQ
ADD

15$
#4, (SP)

suB

#2.(SP)

332

#10, (SP)

*MOVE SP TO NO ERROR RETURN

CLR

$GDDAT

;EXPECT ZEROS

MOV
BEQ
ADD

RMEC2I,$BDDAT
17$
44, (SP)

;CHECK RMEC2
*BRANCH IF 0
*MOVE SP TO ERROR CALL

#2. (SP)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR VIA USER

#146.3(SP)
PC.a(SP)+

;REPORT ERROR IF RMEC2 NOT RESET

movB

#150.a(sP)

382

#10, (SP)

SuB
JSR

000010

000004
000147
000002

:1S ATTENTION CLEARED??

zgg

MOVB

158:

001142

:BRANCH IF ATTENTION CLEARED

$BDDAT

MIC'LSTLST,$BDDAT
sCLEAR DONT CARES
D , SGDDAT
:EXPECT WRITE DATA ON
$GDDAT,$SBDDAT
:COMPARE EXPECTED AND RECEIVED
11s
*BRANCH IF ZERO
#4, (SP)
*MOVE SP TO ERROR CALL
#145.a(SP)
;WRITE NUMBER OF ERROR IN CALL
#2,(SP)
*MOVE SP TO RETURN FOR ERROR

JSR

91 057610

;REPORT ERROR IF RMMR2 NOT INITIALIZED
11s:
MoV
RMMR2],$BDDAT
;CHECK RMMR2
BIC
#RQATRQB,$BDDAT :CLEAR REQA, REQB
MOV
#TSTi1777,$GODAT
SEXPECT TEST BIT ON
cTMP
$GDDAT,SBDDAT
;COMPARE EXPECTED & RECEIVED

000000

3% 057612

;:POP STACK INTO R2
$:POP STACK INTO R1

BIC
MOV
CMP
8EQ
ADD
MOVB
suB
JSR

79 057530
80
81 057532
82 057540
83 057546
84 057554
85 057562
86 057564

(SP) +,R2
(SP) + R1

-REPORT ERROR IF RMMR1

6s:

11-APR-80 13:39:53 PAGE 34-1

:BRANCH IF EQUAL
*MOVE SP TO ERROR CALL

‘WRITE NUMBER OF ERROR IN CALL

*MOVE SP TO RETURN FOR ERROR
:REPORT THE ERROR VIA USER

:WRITE NUMBER OF ERROR IN CAlL

*MOVE SP TO NO ERROR RETURN

;REPORT ERROR IF RMER2 NOT RESET
mov
RMER2] ,$8DDAT
;CHECK RMER2

17%:

000000

BEQ

#4, (SP)

suB

#2,(SP)

MOVB
JSR

332

000010
18%:
19%:

188

ADD

#147.a(SP)
PC.a(SP)+

#10, (SP)

*BRANCH IF NO ERROR

:MOVE SP TO ERROR CALL

‘WRITE NUMBER OF ERROR IN CALL

*MOVE SP TO RETURN FOR ERROR

*REPORT THE ERROR VIA USER

*MOVE SP TO NO ERROR RETURN

SEQ 0241

CZRMOAO RMOS5/3/2 FCINL TST 3

MACRO v03.01

— et d

D e

D e e

POPNIPONIAD)
= —d b oed b
S WN=OVoO~NONWN

DRIVE CLEAR STATUS CHECK SUBROUTINE

057712
057716
057722
857724

062716
105776
001403
062712

000004
000000
000004

057732

162718

000004

K .3
11-APR-80 13:39:53 PAGE 34-2

SEQ 0242

;AUGMENT RETURN ADDRESS IF ANY ERROR WAS FOUND
ADD
TST8

¥4, (SP)

ADD
BR
SuB
NOP
RTS

ggi(SP)

BEQ

21$:

;JMOVE

a(SP)

218

#4,(SP)

SP TO ERROR CALL

;WAS AN ERROR DETECTED??

JNO!!

;YES - MOVE SP TO ERROR RETULRN
;MOVE

SP BACK TO NO ERROR RETURN

JRETURN TO USER

CZRMOAQ RMOS/3/2 FCTNL TST 3

MACRO v03.01

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

11-APR-8C 13:39:53 PAGE 35

SEQ 0243

;

.SBTTL

:THIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER COMMANDS

S
9

:STORED IN THE PUT BUFFER.
ERRORS ARE REPORTED BY WRITING
:THE ERROR NUMBER IN THE USERS ERROR CALL.

;USER'S SUBROUTINE CALL:

:USING STATUS STORED IN THE GET BUFFER AND TEST PARAMETERS

9
10
1

:(1)
N (2)
2(3)
2(4)
$(5)

12
13

14
}2

1 (6)
:

}g 057742

DTASTS:

20 057742
21 057746
22 057752
gz 057756

062716
105076
162716
005037

032737
001422
013737
042737
013737
062716

3% 060026
35 060032

162716
004736

36 060034

ADD
CLRB
SUB
CLR

112776

020000

001334

001334
020000
001334
000004

001140
001140
001142

000013
000002

000000

000466

46 060064
47 060072
48 060100
SO 060112
51 060120
52 060122
53 060130
54 060134

032737
001003
112776
162716
004736

22 060136
57

RETURN HERE IF NO DATA ERRORS
RETURN HERE TO REPORT AN ERRCR
SUB WRITES ERROR NUMBER
USER RETURNS FOR MORE CHECKS
SUB RETURNS HERE AFTER ALL
ERRORS ARE REPORTED

44, (SP)
a(SP)
#4, (SP)
5008

:MOVE SP TO USER'S ERROR
:CLEAR LOW ORDER BYTE OF TRAP
*RESTORE SP 10 NO ERROR
:CLEAR ERROR FLAGS

MCPE ,RMCS11]
10$
RMCS11,$GDDAT
AMCPE,SGDDAT
RMCSTI,$BDDAT
#4 . (SP)

SUB
JSR

#2, (SP)
PC,B(SP)+

B8R

#15.3(SP)

308

;WAS THERE A PARITY ERROR??
INO!!
:EXPECTED STATUS
:RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

*WRITE ERROR NUMBER

:MOVE SP TO RETURN IF ERROR
:REPORT ERROR AND RETURN

;REPORT ANY CONTROL BUS PARITY ERROR WHILE WRITTING REMOTE REGISTERS,

032737
001435
032737
001031
013737
042737
013737
062716

49 060106

PC,a(SP)+

BIT
BEQ
MOV
BIC
MOV
ADD

MOVB

108:

40
41 060036
42 060044
43 060046
44 060054
45 060056

pc DTASTS

TEEORTM?fiE CO?TROL BUS PARITY ERROR WHILE READING REMOTE REGISTERS.

27 057762
28 057770
29 057772
30 060000
31 060006
32 060014

gg 060036

JSR
B8R
NOP
ERROR
JSR

;CLEAR USER'S ERROR CALL AND ERROR FLAGS

000004
000000
000004
063336

33 060020

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

112776

000425

000010

001350

000010

001376

001350
000010
001350
000004

001140
001140
001142

001000

001344

000050

000000

000274
000002

000000

“1.E., PAR= 1 AND DPE
= 0
BIT
#PAR, RMER1
I
BEQ
208
BIT
#DPE ,RMER2]
BNE
208
MOV
RMER11,$GDDAT

BIC
MOV
ADD

158:

#PAR, SGDDAT
RMERTI,$BDDAT
#4 . (SP)

;RECEIVED STATUS
ncve SP TO USER'S ERROR

AMXF ,RMCS2]
15%
#274,3(SP)
#2, (SP)
PC.a(SP)+

oxo MXF GET SET??
YES!!
“NO — CHANGE ERROR NUMBER
:MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

MovB

#50.a(sP)

B8R

308

BIT
BNE
MOVB
SUB
JSR

;WAS THERE A PARITY ERROR??
*NO!!
DATA PARITY ERROR ?
YES!
expecreo STATUS

“WR.

'E_ERROR NUMBER

;LOOK FOR ANY ERRORS WHICH MAY HAVE OCCLRRED DURING COMMAND INITIATION OR

CZRMOAO RMOS/3/2 FCTNL TST 3

MACRO v03.01

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

58
59
60
61
62 060140
63 060140
64 060146

M3
11-APR-80 13:39:53 PAGE 35-1

sMECHANICAL POSITIONING
SFIRST TEST MXF WHICH WOULD INDICATE COMPOSITE ERROR SET WHEN FUNCTION
§62°E AND GO BIT WERE LOADED

032737

001344

BIT

001140
001140
001142

MOV

000000

MOVB

#275,3(SP)

JSR

PC.a(SP)+

408

RMCS21,$GDDAT

BIC

MMXF , SGDDAT

ADD

¥4,

MOV
<o

162716
000137

MMXF ,RMCS2]

BEQ

RMCS21,$8DDAT

SUB

(SP)

#2,(5P)

;WAS ‘MISSED TRANSFER'' SET??

*NO!!

:EXPECTED STATUS

;RECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL

sWRITE ERROR NUMBER

*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

JRESTORE SP TO NO ERROR RETURN AND BYPASS FURHTER STATUS CHECKING
suB
#10,(SP)
;sMOVE SP TO NO ERROR

000010
063310

JMP

380%

;SKIP TO END OF SUB

:
4098
;REPORT AN ERROR IF ‘OPI'' ERROR OCCURRED DUE YO ‘MOL’' = 0, OR IF 'OPI"’

:A#SL:NOL” ARE SET, BUT 'VV'' IS RESET, INDICATING AN INTERMITTENT

032737

020000

001350

BIT

001140
001140

MOV

608

RMER1],$GDDAT

BIT

#MOL , RMDS |

:WAS MEDIUM OFF LINE??

#VV ,RMDS 1
508

SWAS "MOL’' INTERMITTENT??
*NO!!

001346

8IT
BNE

RMER1] ,$8DDAT

BEQ

45$

RanZoIRIRARECSSE

000004
000277
000002

060360

010000

013737

001376

SYES!!

#4, (SP)

*MOVE SP TO USER'S ERROR CALL

suB8

#2, (SP)

:MOVE SP TO RETURN IF ERROR

#276.a(SP)
PC.a(SP)+

SUB
BR

#10, (SP)
608

*WRITE ERROR NUMBER IN CALL
*REPORT ERROR AND RETURN

*RESTORE SP TO NO ERROR

;REPORT 'OPI'' ERROR, WHICH IS DUE TO ‘'ON CYLINDER'' NOT DROPPING OR
:'RUN"" TIMEOUT (20 MS) OR SEARCH TIMEOUT (50 MS)
ADD

#4,(SP)

sMOVE SP TO USER'S ERROR CALL

SuB

42, (SP)

*MOVE SP TO RETURN IF ERROR

MOVB

000000

#277.a(SP)

JSR

000010

032737
001432

:RECEIVED STATUS

ADD

MOVB
JSR

:EXPECTED STATUS

#OP] ,SGDDAT

MOV

458:

;IS 'OPI'* SET??

*NO!!

BIC

001142
001346

000000

#OP] ,RMER11]

BEQ

608
001376
001140

PC.a(SP)+

suB

#10, (SP)

NoP

*WRITE ERROR NUMBER IN CALL
*REPORT ERROR AND RETURN

*RESTORE SP TO NO ERROR

;LOOK FOR ''IVC'* ERROR DURING COMMAND INITIATION
BIT

:REPORT

BEQ

“IVC'*

MOV

WIVC,RMER2I

708

WAS THERE AN 'IVC'* ERROR??

:NO'!

ERROR DUE TO 'VV'' = 0, OR REPORT ERRONEOUS *'IVC‘’ ERROR
RMER2I,SGODAT

;EXPECTED STATUS

SEQ 0244

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

115 060366
116 060374

117 060402
118 060406
119 060414

120 060422

121
122
123
124
125
126
127

060424
060432
060436
060440
060444

042737
013737
062716
112776
032737

001403

010000
001376
000004
000300
000100

001140
001142

000301
000002

032737

000007

001350

131 060454
132 060462
133 060464
134 060472
135 060500
136 060506
137 060512
138 060520
139 060524
140 060526
141 060532
142
143

032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

000002

001350

001350
000002
001350
000004
000302
000002

001140
001140
001142

534
146 060542
147 060544
148 060552

032737
001424
013737
042737

150 060566

062716

129 060452

130

144
145

149 060560
151 060572
152 060600
153 060604
156 060606
155 060612
156 060614
157
158
159 060614
160 060622
161 060624
162 060632
163 060640
164 060646
165 060652
166 060660
167 060664
168 060666
169 060672
};? 060674

001510

013737

112776
162716
004736
162716
000240

032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

MOV
ADD
move

000000
001346

112776
162716
004736
162716

128 060444

BIC

65%:

000010

708:

¥4, (SP)
#300,a(SP)

;RECEIVED STATUS

#VV
. RMDS

;MOVE SP TO USER'S ERROR
sWRITE ERROR NUMBER IN CALL
:m§‘VOLLHE VALID??

SuUB

#2,(SP)

; CHANGE ERROR NUMBER
¢sMOVE SP TO RETURN If ERROR

SUB

70, (SP)

sRESTORE SP TO NO ERROR

81T

000000

#IVC,$ GDDAY
RMER2] $BDDAT

8EQ
MOVB
JSR

658
#301.3(SP)
PC.R(SP)+

JREPORT *'IVC'' ERROR AND RETURN

;SEE IF “ILF''
OR 'RMR"’ IS SET
BIT
#ILR!ILF!RMR, RMER1]
BEQ
1008
;NO ERRORS DETECTED
;REPORT AN ERROR IF ‘‘ILR'' IS SET
BIT
#ILR,RMER1]
::S§'”1LR“ DETECTED??
BEQ
808
*NO!!
MOV
RMER1],$GDDAT
;EXPECTED STATUS
BIC
#ILR,SGDDAT
MOV
RMERT1,$BDDAT
;RECEIVED STATUS
ADD
¥4, (SP)
*MOVE SP TO USER'S ERROR CALL

000000

MOVB

#302.a(sSP)

*WRITE ERROR NUMBER [N CALL

JSR

PC.a(SP)+

*REPORT ERROR AND RETURN

SUB

382

)00010

#2.(SP)

#10, (SP)

*MOVE SP TO RETURN IF ERROR

*RESTORE SP TO NO ERROR

80%:
000001

001350

001350
000001
001350
000004
000303
000002

sREPORT AN ERROR IF *‘ILF'* IS SET

001140
001140
001142

BIT
BEQ
MOV
BIC
MOV

#ILF ,RMER1]
908
RMER1].SGDDAT
#I1LF
. SGDDAT
RMERTI,$SBDDAT

:WAS "'ILF'* DETECTED??
*NO!!
:_XPECTED STATUS

(00000

move

#303.a(sP)

*WRITE ERROR NUMBER IN CALL

ADD

SUB
JSR

SUB

000010

#4,

(SP}

#2.(SP)
PC.a(SP)+

#10, (SP)

;RECEIVED STATUS

*MOVE SP TO USER'S ERROR CALL

*MOVE SP TO RETURN IF ERROR
*REPORT ERORR AND RETURN

*RESTORE SP TO NO ERROR

908
:

000004

001350

001350
000004
001350
000004

001140
11140
001142

000304
000002

000000

JREPORT AN ERROR IF 'RMR'’ IS SET

8IY
BEQ

MOV
BIC
MOV
ADD

move
SuB

JSR

ggg

000010

100$:

#RMR ,RMER1 |
1008

: IAS ‘RMR'' DETECTED??
INO'!

RMER11,$GDDAT
#RMR, SGDDAT
RMERT]1,SBDODAT
#4. (SP)

:EXPECTED STATUS

#2. (SP)

*MOVE SP TO RETURN IF ERROR

#304.a(sP)
PC.a(SP)+

#10, (SP)

:RECEIVED STATUS
“MOVE SP TO USER'S ERROR CALL

“WRITE ERROR NUMBER IN CALL
*REPORT ERROR AND RETURN

*RESTORE SP TO NO ERROR

;DETERMINE WHETHER OR NOT ‘'IAE'* SHOULD BE SET AND CHECK FOR ERROR

N3
MACRO v03.01 11-APR-80 13:39:53 PAGE 35-2

SEQ 0245

—

CZRMOA) RMOS/3/2 FCTINL TST 3

CZRMOAQ RMOS5/3/2 FCTINL TST 3

MACRO v03.01

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

172 060674
173 060702

012737
052737

002000
040000

001444

001140
063336
001°6F

040000

063336

8 4
11-APR-80 13:39:53 PAGE 35-3
MOV
BIS
CMP
BHI
BIC

SEQ 0246

#]AE ,SGODAT

;SETUP FOR ''IAE'' = 1

RMDCO,#822.

;GREATER THAN LAST CYLINDER ?

#SK1,500%

;SETUP FOR ''SKI'' = 1

174 060710
175 060716
};9 060720

023727
101025
042737

178 060726
“:g 060734

123737
101016

001417

001333

CMP8
BHI

RMDAO+1 ,LSTRK+1

1108

sYES = TRACK IS INVALID

181 060736
182 060744
183 060746

123727
101410
032737

001416

000035

010000

001442

(MP8
BLOS
BIT

RMDAO, #29.
105$

;1S SECTOR > 29.
*NO

001416

000037

184 060754
185 060756
186 060764

001406
123727
101002

005037

001140

189 060772
190 061000
191 061006
192 061014
193 061016
194 061024
195 061026
196 061032
197 061040
198 061044
199 061046

013737
042737
023737
01004
042737
000412
062716
112776
162716
004736
162716

001350
175777
001140

001142
001142
001142

040000

063336

000004
000305
000002

000000

;lgg 060766

58? 061052

202

203 061052
204 061060
205 061066
206 061074

207 061102
208 061110
209 061112
210 061120
211 061122
212 061126
213 061134
214 001140
215 061142
g}g 061146

105%:

000010

001376
137777
063336

001142
001142
0071140

032737
001417
032737
001032
062716
112776
162716
004736
162716
000417

001376

040000

063336

137777

000004
000306
000002

1158:

120$:

013737
042737
013737

042737

1108:

(LR

MOV
8IC
CMp
BNE
BIC
BR
ADD
MOVB
suB
JSR
suB

sYES = CYLINDER IS INVALID
SRESET SKI FLAG
;GREATER THAN LAST TRA(CK ?

#EMT16,RMOFO

;18 BIT FORMAT ?

RMER11,$BDDAT

;GET RECEIVED STATUS

$GDDAT.SBDDAT
1158

;IS ''IAE'’ STATUS OK??
*NO!!

1108
RMDAO, #31.
110$
$GDDAT

#~C JAE , SBDDAT

SYES = SECTOR IS INVALID FOR 18 BIT MODE
:1S SECTOR > 31. 2
SYES = SECTOR IS INVALID
S IAE'* SHOULD = 0

gggg.soos

*IAE OK = SKI SHOULD BE 0

#4,

;MOVE SP TO USER'S ERROR CALL

(SP)

#305.3(sP)

#2, (SP)
PC.a(SP)+
#10, (SP)

‘WRITE ERROR NUMBER

*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

;REPORT AN ERROR IF *'SKI'*
IS SET AND ''IAE’* STATUS WAS OK
MOV
BIC
MOV
BIC
BIT
BEQ
BIT
BNE
ADD
MOVB
SuB
JSR
suB
BR

001140

000000

000010

5]8 061150

BEQ
CMP8
BH]

1108
#SK1,5008

RMER2I,$BDDAT

;RECEIVED STATUS

500, $GDDAT

;EXPECTED STATUS

#SK1,RMER2]
1408
#SK],5008

;WAS *'SKI'’ SET??
*NO!!
:WAS SKI CAUSED BY IAE = 07?7

#~(SK]1.$BDDAT
#-CSKI,SGDDAT

1508

#%,

“YES =~ DON'T REPORT SKI

(SP)

*MOVE SP TO USERS ERROR CALL

#2.(SP)
PC.a(SP)+

*MOVE SP TO RETURN IF ERROR
:REPORT ERROR AND RETURN

#3063 (sP)

f;8§<sp)

SWRITE ERROR NUMBER

‘MOVE SP TO NO ERROR

1408 :

[}

220
221 061150
222 061156

223 061160
224 061164
225 061172
226 061176
227 061200
228 061204

032737
001413

062716
112776
162716
004736
162716
000240

040000

000004

000307
000002
000010

063336

000000

;REPORT AN ERROR IF SKI = O AND JAE WAS NOT DETECTED
BIT
#SK1, 5008
;SHOULD SKI BE SET??
BEQ
1508
‘NO!!

ADD

MOVB
suB
JSR
suB
NOP

#%.

(SP)

#307.,a(SP)
#2.(SP)
PC.a(SP)+

#10, (SP)

‘MOVE SP TO USER'S ERROR CALL

SWRITE ERROR NUMBER IN CALL

‘MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

*RESTORE SP TO NO ERROR

CZRMOAQ RMOS/3/2 FCTNL TST 3

MACRO Vv03.01

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

229 061206
230
231
232 061206
ggz 061214

032737

001512

006200

001376

23S
23 061216
237 061226
238 061226

032737
001424
013737

000200

001376

001140

240 061242
261 061250

013737
062716

001376
000004

001142

162716

000010

239 061234

262 061254
263 061262
264 061266

245 061270

246 061274
gzg 061276
249

250 061276

042737

112776
162716
004736

000240

000200

000310
000002

010000

001346

256 061332

013737

001376
002000

001140
001140

259 061352

162716

062716
112776

260 061356
261 061360
262 061364

004736
162716
000240

265
266 061366
267 061374
268 061376
269 061404

032737
001422
013737
042737

ggz 061366

270 061412

271 061420
272 061426
273 061432

274 061434

013737
062716
112776
004736

162716

001376

000004
000311

000002

MOVB
SUB
JSR

001376
004000

001140
001140

001376

000004
000312

001142

NOP

001350

282 061452
283 061460
284 061462
285 061470

032737
001427
032737
001023

040000

001350

000200

001376

RMER2] ,$8DDAT
¥4, (SPS

:RECEIVED STATUS
*MOVE SP TO USERS ERROR

#10, (SP)

*RESTORE SP TO NO ERROR

#310.a(SP)
#2,(SP)
PC.a(SP)+

I.E.;

AMOL , RMDS |
1708
RMER2I,$GDDAT

1708

‘WRITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN If ERROR
*REPORT ERROR AND RETURN

"LBC'*
= 1,

IF ‘MOL'' = 1

;IS LBC SET??

*NO!!

*WAS LBC ERROR BY MOL = 0
SYES!!
:EXPECTED STATUS

8IC

#LBC, SGDDAT

ADD
MOVB

#4,(SP)
#311.a(SP)

;MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN CALL

JSR
SUB
NOP

PC.a(SP)+
#10, (SP)

*REPORT ERROR AND RETURN
*RESTORE SP TO NO ERROR

RMER2],$BDDAT

#2.(SP)

;RECEIVED STATUS

:MOVE SP TO RETURN IF ERROR

;REPORT LOS OF SYSTEM CLOCK, I.E.. 'LSC''
= 1
8IT
#LSC,RMER2]
JIs Usct
= 122
8EQ
1808
*NO!!
MOV
RMER2] ,$GDDAT
:EXPECTED STATUS
BIC
#LSC,$GDDAT

MOV

ADD
MOVB
JSR

SuB

054000

:EXPECTED STATUS

BIT
BEQ
MOV

SUB

000010

032737
001527

RMER21,$GDDAT

#DVC, SGDDAT

#LBC.RMERZ]

MOV

000000

278
279 061442
280 061450

:NO ERRORS SET

8IT
BEQ

1708 :
001376

1808

;REPORT LOSS OF BIT CLOCK,

000010

000240

281

MOV
ADD

000000

275 061440

g;g 061442

MOV

B8IC

001142

004000

#LSC'LBC!'DVC,RMER?]

JREPORT ANY DEVICE FAULT, 1.E., 'DVC'
= J
BIT
#DVC,RMER2]
;IS 'DVC
= 122
BEQ
1608
‘NO!!

1608 :

032737
001424
013737

257 061340
258 061344

BEQ

SUB

252 061306
253 061314
254 061316

042737

8IT

000000

001376

001430

;LOOK FOR ‘LSC'* OR 'LBC''
OR 'DVC'' IN ERROR REGISTER #2

001140

002000

255 061326

SEQ 0247

1508
:

032737

251 061304

4
C
11-APR-80 13:39:53 PAGE 35-4

RMER2] ,$8DDAT

#4, (SP)
#312.a(sP)
PC,a(SP)+

#10, (SP)

;RECEIVED STATUS

*MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER
*REPORT ERROR AND RETURN

*RESTORE SP TO NO ERROR

1808 :
;LOOK FOR ‘UNS''
OR "DTE''
OR 'WLE'' IN ERROR REGISTER #1
BIT
AUNS ' DTE 'WLE ,RMER1]
BEQ
2208
:NC BITS SET

;REPORT “UNS’' ERROR IF 'DVC'* = 0

8IT
BEQ
BIT
BNE

#UNS , RMER1 ]
1908
#DVC ,RMER2]
1908

;1S "UNS'* SET??
‘NO!!
*WAS 'UNS’' CAUSED BY 'DVC'*?
SYES!!

CZRMOAO RMOS/3/2 FCINL TST 3

MACRO v03.01

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

286 061472
287 061500
288 061506
289 061514
530 061520

013737

D 4
11-APR-80 13:39:53 PAGE 35-5

001140

MOV

001142

MOV

001140

000000

190%:

001350

RMER1],$GDDAT

;EXPECTED STATUS

RMER1],$BDDAT

;RECEIVED STATUS
sMOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR

BIC

#UNS
, SGDDAT

ADD
MOVB
SuB
JSR

¥4, (SP)
#313.a(sP)
#2,(SP)
PC.a(SP)+

SuB

#10, (SP)

*REPORT ERROR AND RETURN

*RESTORE SP TO NO ERROR

:REPORT ANY DRIVE TIMING ERROR, I.E., 'DTE''
= 1
8IT
#DTE ,RMER1]
;1S DTE SET??
BEQ
MOV
BIC
MOV
ADD
MOVB
suB

001140
001140

001142

000000

JSR

200$:

suB

2008
RMER1],$GDDAT
#DTE ,SGDDAT

‘NO!!
:EXPECTED STATUS

#4, (SP}
#314.a(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

sMOVE SP TO USER'S ERROR CALL
;JWRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN IF ERROR

RMER11,$BDDAT

;RECEIVED STATUS

*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

:REPORT AN ERROR IF WRITE LOCK ERROR IS SET.

C32737
001441
013737
013737
052737

001350

*WRITE PROTECTED,

001142
001140

001140

001410

324 061716
325 061722
326 061724
327
328 061730
329
330
331 061730
332 061734
333 061740
334 061742
335 061746
336 061752
337
338
g
20 061"
°
341 061 /6w
342 061772

205$:

2108:

162716

OR IF

MILE .RMERT]
2208
RMER1],$BCDAT
RMER1],$GDDAT
MILE
, SGDDAT

MOVB
BIT
BEQ

#315.a(SP)
#WRL
. RMDS ]
2058

8IT
BEQ
MOVB

#4. (SP)

;WAS ‘WLE'' SET??
*NO!!
-RECEIVED STATUS
:EXPECTED STATUS

sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL

;WAS DRIVE WRITE PROTECTED??

#BIT3,RMCS10
2108
#316.a(SP)

‘NO!!
-WAS COMMAND A WRITE??
SYES!!
:CHANGE ERROR NUMBER

PC.a(SP)+

*REPORT ERROR AND RETURN

BIC
S8

MJLE
. SGDDAT
#2,(SP)

suB

#10, (SP)

JSR

SEE IF DRIVE IS NOT

FUNCTION WAS NOT A WRITE

BIT
8EQ
MOV
MOV
8IS
ADD

000000
001346

000000
001140

SEQ 0248

;sMOVE SP TO RETURN IF ERROR

*MOVE SP TO NO ERROR

2208:

062716

105776
001404
162716

013737
042737
022737

;OMIT DATA ERROR CHECKS IF ANY PREVIOUS ERRORS HAVE BEEN DETECTED

000004
000000

ADD
TSTB

#4, (SP)
a($P)

SUB

#4, (SP)

SuB

¥4, (SP)

BEQ

225%

;MOVE SP TO USER'S ERROR
*WAS ERROR DETECTED??

*NO -~ DO DATA CHECKS

*RESTORE SP

000004
062750
000004

225%:

001410
177700
000063

:CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DATA., AND
*IF HEADER COMPARE IS NOT INHIBITED
MOV
RMCS10,5108
sSTRIP AND STORE FUNCTION CODE
BIC
#~CFNCMSK , 5108
CMP
MH'GO, 5108
sWAS FUNCTION WRITE HEADER & DATA??

063340
063340

063340

IMP

3408

:SKIP DATA CHECKS

*RESTORE SP

CZRMOAO RMOS/3/2 FCTINL TST 3

MACRO v03.01

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

343 062000
344 062002
345 062010

001512
032737
001106

347
348 062012
349 062020
351
352 062022
353 062030
354 062032
355 062040

356 062046
357 062054
358 062060
359 062066
360 062072
361 062074
gg% 062076
364
365 062076
366 062104
367 062106
368 062114
369 062122
370 062130
371 062134
372 062142
373 062146
374 062150
%;g 062152

377
378 062152
379 062160
380 062162
381 062170
382 062176
383 062204
384 062210

385 062216
386 062222
387 062224
388
389

391 062226

392 062234
393 062236
304 062244
395 062252
396 062260
397 062264
398 062272
399 062276

002000

001366

032737
001532

000620

001350

032737
001422
013737
042737
013737
062716
112776
162716
004736
000501

000400

001350

001350
000400

001140
001140

001350
000004
000317
000002

_4
E
11-APR-80 13:39:53 PAGE 35-6

SEQ 0249
BEQ

8IT
BNE

BIT
BEQ

2508

SYES - SKIP HEADER CHECKS

*WAS HCI SET??

BIT

#4CRC,RMERT]

MOV
BIC
MOV
ADD

RMER11,8GDDAT
#HCRC
, SGODAT
RMERTI,$8DDAT
¥4, (SP)

SuUB

#2,(SP)

2608

BEQ

000000

MOvB
JSR

230$:

2308

#3i7.a(sP)
PC.a(SP)+

;REPORT FORMAT ERROR IF SET

000020

001350

001350
000020
001350
000004
000320
000002

001140
001140
001142

032737
001453
013737
042737
(013737
V62716
112776
162716
104736
000425

000200

001350

001350
000200
001350
000004
000321
000002

001140
001140
001142

BEQ
MOV
BIC
MOV

00000C

MOVB

032737

000620

001350

001350
000620
001350
000004
000322
000002

001140
001140
001142

8IT

000000

2408
RMER1],S$GDDAT
#FER,SGDDAT
RMER1],$BDDAT

SuB

#2.(SP)

JSR

2408:

#FER ,RMER1 ]

BEQ
MOV
BIC
MOV

ADD
MOVB

B8R

I.E..

‘FER''
OR 'HCRC''
OR 'MCE''

#HCRC ! FER'HCE ,RMER1]
2703
;NO ERRORS SET

sREPORT HEADER CRC ERROR IF SET

001142

000000

;YES - SKIP HEADER CHECKS

;SEE IF ANY HEADER ERRORS ARE SET,

032737
001422
013737
042737
013737
062716
112776
162716
004736
000453

001425
013737
042737
013737
062716
112776
162716
004736

2508

#HC ], RMOF |

:WAS HCRC SET??

‘NO!!

:EXPECTED STATUS
;RECEIVED STATUS
*MOVE SP TO USERS ERROR

*WRITE ERROR NUMBER

*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

;WAS 'FER'' SET??

‘NO!!
:EXPECTED STATUS

¥4, (SP)
#320.a(SP)

;RECEIVED STATUS
:MOVE SP TO USERS ERROR
*WRITE ERROR NUMBER

PC.a(SP)+

*REPORT ERROR AND RETURN

2608

*MOVE SP TO RETURN IF ERROR

<REPORT HEADER COMPARE ERROR IF SET
8IT

#HCE ,RMER1]

ADD

#4,

SuB

#2, (SP)

*MOVE SP TO RETURN IF ERROR

BEQ
MOV
BIC
MOV

RMER1I,SGDDAT
-EXPECTED STATUS
AHCE !FER!HCRC,SGDDAT
RMER1I $BODAT
;RECEIVED STATUS

2708

sNO ERRORS WERE SET

#4, (SPS
#322,3(SP)

:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER

2708
RMER1],$GDDAT
MHCE
, SGDDAT
RMER1],$BDDAT
(SP}

#321.3(SP)

SWAS 'HCE'* SET??

INO!!
:EXPECTED STATUS
:RECEIVED STATUS
*MOVE ;P TO USER'S ERROR

‘WRITE ERROR NUMBER

JSR
Sgbg(sp)+
*REPORT ERROR AND RETURN
BR
oTHERE S HOULD BE NO HEADER ERRORS BECAUSE
:
.COMMAND WAS WRITE HEADER AND DATA, OR
.HEADER COMPARE INHIBIT WAS SET
2550$:
BIT
WHCE !FER!HCRC ,RMERTI

ADD

MovB
SuB
JSR

#2,(SP)
PC.a(SP)+

*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

CZRMOAQ MOS/3/2 FCTNL TST 3

MACRO VOX,01

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

400 062300

285 062304

162716

000137

000010

2608:

062750

11-APR-80 13:39:53 PAGE 35-7
SEQ 0250
SuB

IMP

#10, (SP)

340$

sMOVE SP TO NO ERROR
;OMIT FURTHER DATA CHECKS

282 062310

2708:

405
406
407 062310

032737

000010

:IF COMMAND WAS A WRITE COMMAND, GO DO WRITE ERROR CHECKS, OTHERWISE
‘DO READ ERROR CHECKS
BIT
#8173,5108
::3§'THIS A WRITE COMMAND?

409 062320

000137

062536

032737
001450
013737
042737
013737
062715

100000

001350

001350
100000
001350
000004

001140
001140

004000

001366

000324

000000

000020

063340

408 062316

Z}? 062324

412
413 062324
414 062332
415 062334
416 062342

417 062350
418 062356

419 062362

420 062370
421 062376
422 062400
423 062406
424 062414
425
426 062416
427 062424
428 062626

429 0626432
430
431
432
2;2

062434
062442
062446
062450

001002

112776

032737
001021
112776
032737
001007
032737
001406
162716

000410
112776
162716
004736
162716

000323

000100

063340

275$:

062454
062462
062464
062472
062500

443 062506

444 062512

445 062520
446 062524

447 062526

zzg 062532

453 062536

454 062544
455 062546
456 062554

MOVB

BIT
BNE
MOVB
BIT
BNE

2758
3108

#DCK, SGDDAT

RMER11,$8DDAT
#4, (SP)

#323.3(SP)

#ECT.RMOF|
2808
#324.3(SP)
#ECH.RMERT]
2768

16O
DO WRITE STATUS CHECK
:5315 CHECK ERROR??

*EXPECTED STATUS
JRECEIVED STATUS

;MOVE SP TO USER'S ERROR
;WRITE ERROR NUMBER
325ECC CORRECTION DISABLED??

:CHANGE TO RECOVERABLE ERROR
égERROR RECOVERABLE??

;00 NOT REPORT RECOVERABLE ERROR’ IF READ COMMAND
BIT
#81T4,5108
;WAS THIS A READ COMMAND ??
NO
!
BEQ
2808
SUB
#6, (SP)
JRESTORE SP
276$:
2808:

000010

B8R

MOVB
S8
JSR
SUB

2908

#325.3(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

sSKIP ERROR - DATA WILL BE CORRECTED
;CHANGE TO NON RECOVERABLE
sMOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN
JRESTORE SP TO NO ERROR

2908
:
032737
001423
013737
042737
013737

000400

001344

062716

001344
000400
001344
000004

001140
001140
007142

162716

000002

162716

000010

112776

004736

000137

000326

000000

;REPORT DATA BUS PARITY ERROR IF SET, I.E., MDPE = 1
BIT
#MDPE ,RM(CS21
<PARITY ERROR SET??
BEQ
3008
SNO!!
MOV
RMCS21,8GDDAT
:EXPECTED STATUS
8IC
AMMDPE, $GDDAT
MOV
RMCS21,$BDDAT
;RECEIVED STATUS
ADD
#4, (SP)
*MOVE SP TO USER'S ERROR

MOVB

SuB

JSR

062750

3008:

229 062536
452

MOV
ADD

001350

435 062454

436
437
438
439
440
441
442

BIC

000000

JMP

JREPORT DATA CHECK IF SET
BIT
#DCK,RMER11
BEQ
2908
MOV
RMER1],$GDDAT

001142

000004
000325
000002

BNE

JMP

#326,a(SP)

*WRITE ERROR NUMBER

42, (SP)

SMOVE SP TO RETURN IF ERROR

#10, (SP)

:MOVE P TO NO ERROR

PC.a(SP)+

3408$

:REPORT ERROR AND RETURN

*SKIP WRITE STATUS CHECK

3108 :

032737

001423
013737
042737

000001

001346

001346
000001

001140
001140

JTEST TO SEE THAT OFFSET MODE WAS RESET; REPORT ERROR [F 'OM'' =

BIT

BEQ
MOV
BIC

#OM,RMDS |

3208
RMDS] , SGDDAT
#OM, SGDDAT

;15 OFFSET ON??

NO
EXPECTED STATUS

CZRMOAO RMOS5/3/2 FCTNL TST 3

MACRO v03.01

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

457 062562
458 062570

013737
062716

001346
000004

460 062602
461 062606

162716
004736

000002

459 062574

662 062610

112776

000327

001142

000010

062614
062622
0626264
062632

032737
001423
013737
042737

000010

001376

001376
000010

001140
001140

471 062646

062716

000004

465
466
467
468
469

470 062640
472 062652

473 062660
474 062664

475 062666

2;9 062672
478
479
480
481
482
483
484

013737
112776
162716

004736

162715

062672
062700
062702
062710
062716
062724

032737
001423
013737
042737
013737
062716

486 062736
487 062742

162716
004736

485 062730

488 062744

238 062750
491
492 062750

493 062756

496 062760
495 062766

496 062774

497 063002

498 063006

499 063014

500 063020

501 063022

502 063026
503
504 063026
505 063032
506 063036
ggg 063042

509
510
511 063044
512 063052
513 063054

112776

001376
000330
000002

001142

MOV

001350
000040
(01350
000004

001140
001140
001142

000000

000010

032737

100000

001344

013737
042737

001344
100000

001140
001140

SuB

;TEST FOR WRITE
BIT
BEQ
MOV
BIC
MOV
ADD

MOVB
SuB
JSR

3408 :

SuB

BEQ

*MOVE SP TO NO ERROR

RMER21,$8DDAT

#3%0.a(sP)
PC,a(SP)+

#10, (SP)

CLOCK FAILURE;
MICF ,RMERT]
3408
RMER1],$GDDAT
MJCF
, SGDDAT
RMER11,$8DDAT
#4,(SP)

#331.3(SP)

#2,(SP)
PC,a(SP)+

#10, (SP)

;RECEIVED STATUS

*MOVE SP TO USER'S ERROR CALL

*WRITE ERROR NUMBER

*MOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

REPORT ERROR IF 'WCF'' = 1
SIS "MWCF'' SET??
*NO!!
:EXPECTED STATUS

;RECEIVED STATUS
sMOVE SP TO USERS ERROR CALL

*WRITE ERROR NUMBER

:MOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

3508

*NO!!

MOV
BIC

RMCS21,8GDDAT
#DLT, SGDDAT

;EXPECTED STATUS

ADD

¥4,

‘MOVE SP TO USERS ERROR CALL

SUB

42, (SP)

*MOVE SP TO RETURN IF ERROR

#10, (SP)

*MOVE SP TO NO ERROR

112776

000332

000000

MOVB

004736

SWRITE ERROR NUMBER IN CALL

;REPORT 'DATA LATE'' ERROR IF 'DLT'' = 1
BIT
#DLT,RMCS2]
;IS 'DLT' SET??

MOV

000002

#10, (SP)

#2,(SP)

001142

162716

*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

SUB

001344

000004

#2, (SP)
PC.a(SP)+

#327.a(SP)

¥4, (SP)

013737

062716

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

ADD

MOVR

3308 :
001350

RMDS],$80DAT
#6 (SP)

JTEST FOR DATA BUS PARITY ERROR: REPORT ERROR IF 'DPE'' =1
3IT
#DPE ,RMER2 ]
:DATA PARITY ERROR??
BEQ
3308
‘NO!!
MOV
RMER2] ,$GDDAT
;EXPECTED STATUS
BIC
#DPE , SGDDAT

JSR

162716

001423

SuB
JSR

000000

000040

000002

MOVB

3208 :

000010

000331

MOV
ADD

000000

162716

2g2 062614

G 4
11-APR-80 13:39:53 PAGE 35-8

JSR

(SP)

#3%52.a(sP)
PC.a(SP)+

;RECEIVED STATUS

*WRITE ERROR NUMBER

*REPORT ERROR AND RETURN

162716

000010

013746
0462716

001346
147677
010100

3508
:
;LOOK FOR UNEXPECTED CHANGES IN DRIVE STATUS
MOV
RMDSI , - (SP)
:STACK DRIVE STATUS
BIC
#AC<PIP'MOL'VV>,
(SP) :CLEAR DONT CARES
cTMP
#MMOL'VV,(SP)+
;IS DRIVE STATUS OK?7
BEQ
3808
SYES!!

020000

001346

040000

001376

;REPORT ERROR IF POSITIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR.,
J1.E, PIP =1 AND SKI = 0
BIT
#PIP,RMDS |
;IS "PIP' SET??
BEQ
3608
*NO!!
BIT
#SKI ,RMERZ2]
JWAS "'SKI'' ERROR REPORTED??

022726
001522

032737
001430
032737

SuB

RMCS21,$8DDAT

SEQ 0251

CZRMOAO RMOS5/3/2 FCTNL TST 3

MACRO v03.01

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

514 063062

515 063064
516 063072
517 063100

518 063106
519 063112
520 063120
521 063124

001024

013737
042737
013737

062716
112776
162716
004736

001346
020000
001346

001140
001140
001142

000333
000002

000000

11-APR-80 13:39:53 PAGE 35-9
BNE

3608

MOV
BIC
MOV
ADD

RMDS]
, SGDDAT
#P1P,$GDDAT
RMDS], $8DDAT
#4, (SP)

SUB
JSR

#2,(SP)
PC.a(SP)+

MOVB
sUB

360%-

#3533 a(sP)

JEXPECTED STATUS

JRECEIVED STATUS
;MOVE SP TO USERS ERROR CALL

sWRITE ERROR NUMBER

sMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

#10, (SP)

NOP

s YES=DONT REPORT PIP

sREPORT ERROR IF MEDIUM IS N05 ON LINE AND OPI ERROR WAS NOT

001346

:REPORTED,

BNE

001350

533 (,3162
534 063170
535 063176
536 063202
537 063210

538 063214
539 063216
540 063222

544 063222
545 063230
566 063232

547 063240
548 063242

549 063250
550 063256
551 063264
552 063270
553 063276
355 063304
ggg 063310

558
559 063310
560 063314
561 063320
562 063322
563 063326
264 063330
65
ggg 063334

568 063336
569 063340
570

052737
013737
062716
112776
162716

004736
162716

032737
001027
032737

001033
013737

052737
013737
062716
112776
162716

010000
001346
000004
000334
000002

010000

001376

001346
000100
001346

001140
001140
001142

000335
000002

000000

062716
105776
001403
062716
000402
162716

000004
000000

#OP] ,RMER1]
3708

UégOPI ERROR REPORTED??

RMDSI,$GDDAT

SUB

#2. (SP)

SUB

#10, (SP)

:EXPECTED STATUS

sJRECEIVED STATUS
sMOVE SP TO USER'S ERROR
;WRITE ERROR NUMBER
sJMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN
:MOVE SP TO NO ERROR

#33%4.a(sP)

PC.R(SP)+

JREPORT ERROR IF VOLUME IS N8T VALID AND '‘IVC'' ERROR WAS NOT
:REPORTED, I.E.,
W = IVC =
BIT

#VV RMDS ]

IESVOLU“IE VALID??

BIT

#1VC
. RMER2]

U?gIVC ERROR REPORTED??

BNE

BNE
MOV

BIS
MOV
ADD

MovB
SuB

JSR

:
3808
JAUGMENT

SuB

380%

3908
RMDS]
, $GDDAT

ADD

3908:

BR
SUB

000207

4008:

RTS

000000
000000

5008:
510$:

.WORD
.WORD

:EXPECTED STATUS

#VV,$GDDAT
RMDS], $8DDAT
#4 . (SP)

JRECEIVED STATUS
sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER
;JMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

#3%5.a(sP)
#2,(SP)

PC.a(SP)+

#10, (sP)

THE RETURN ADDRESS
ADD
44, (SP)
TSTB
a($P)

BEQ

000004

#gSMEDIUH ON LINE??

3708

#MOL
. $GDDAT
RMDS ,$BDDAT
#4, (SP)

MovB
370%:

" #MOL.RMDS|

BIS
MOV
ADD
JSR

001346

000010

MOV

000000

000100

162716

BIT
BNE

001140
001140
001142

000010

000004

I.E., MOL
= OP]

3908

24, (SP)

ANY ERROR WAS FOUND

;MOVE SP TO ERROR CALL

:ANY ERROR??

é??s'- MOVE SP TO ERROR RETURN

4008
#4, (SP)

;MOVE SP TO NO ERROR RETURN

:RETURN TO USER

;ERROR FLAGS

s TEMPORARY STORAGE

SEQ 0252

CZRMOAQ RMOS/3/2 FCTNL TST 3

MACRO v03.01

OO0 NN

D
d

IN DRIVE

:}?EngkLOHING CONDITIONS ARE TESTED AND REPORTED AS ERRORS

THAT MOL

e
d
D

INDICATES DRIVE WENT OFFLINE, NOTE

IS ASSUMED

= 0,

PIP = 1,
.SKI =1,
.DVC = 1,

TO HAVE BEEN SET

INDICATES THE DRIVE LOST VOLUME VALID

INDICATES THAT THE DRIVE IS OFF CYLINDER
INDICATES THE DRIVE HAS AN UNEXPECTED SKI
INDICATES AN UNEXPECTED DEVICE FAULT

ERROR

—t

;THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER.
()

JSR
BR
NOP

PC,STCDRVSTS
272

JSR
72

PC,a(SP)+

ERROR

*
.

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR

ERROR NUMBER DEF INED BY SUB

GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRURS

STCDRVSTS:

062716

000000
000004

013746
042716
022726
001524

001346
1647677

013737
052737
013737
062716
112776

;CLEAR USER'S ERROR CALL

000004

105076
162716

001024

#4,(SP)

MOV
8IC
MP

RMDSI,~(SP)
sPUT DRIVE STATUS ON STACK
#*C<PIP!MOL !VV>,(SP)
#MOL!VV,(SP)+
;ARE MOL,VV AND PIP 0.K.??

BEQ

010000

001346

020000

001350

001346
010000
001346
000004

001140
001140
001142

;MOVE SP TO USER'S ERROR CALL

308

JYES!!

;REPORT AN ERROR IF MOL= 0 AND 'OPI'' = 0
81T
BNE
BIT

#MOL ,RMDS]
108
#0P] ,RMER1]

MOV

RMDSI ,$GDDAT

MOV
ADD

RMDS],$BDDAT
¥4, (SP)

;RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL

SuB

#2, (SP)

SMOVE SP TO RETURN FOR ERROR

SuB

#10, (SP)

BNE

BIS

move

000000

004736
162716
000240

032737
001030

ADD

CLRB
a(SP)
;CLEAR ERROR NUMBER
SuB
¥4, (SP)
:MOVE SP BACK TO NO ERROR RETURN
;SEE IF "MOL'" = "W =1, AND ‘PIP'' = 0

010100

162716

57 063472

STATIC DRIVE STATUS CHECK SUBROUTINE

;STATUS, SUCH AS THE DRIVE LOSING VOLUME VALID.
THE SUBROUTINE
:CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE
sSHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE.

032737
001030
032737

56 063464

SEQ 0253

sTHIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES

BPRVRURUNTY VOO NN

d wd

.SBTTL

NWN

)

WN —

STATIC DRIVE STATUS CHECK SUBROUT INE

4
I
11-APR-80 13:39:53 PAGE 36

JSR

108

#MOL, $GDDAT

#207.a(sP)
PC.a(SP)+

;1S MOL ON ??
JYES!!
WAS TOPI'* SET??

;YES=DONT REPORT 'MOL'' = 0
:EXPECTED STATUS

:WRITE ERROR NUMBER IN CALL
*REPORT ERROR VIA USER

*MOVE SP BACK TO NO ERROR RETURN

108
:

000100

001346

;REPORT AN ERROR IF VOLUME VALID IS NOW ZERQ AND ‘‘IVC*'' = 0
BIT
BNE

A#VV ,RMDS]
208

SIS "W = 072
INO!!

CIZRMOAO RMOS/3/2 FCTNL TST 3

MACRO v03.01

STATIC DRIVE STATUS CHECK SUBROUTINE

58 063474

032737

010000

001376
001140
001346
001142
000000

BIT
BNE
MOV
BIS
MOV
ADD
mov8
SUB

#1VC.,RMER2]
208
RMDSI
, $GDDAT
#VV ,RMDS]
RMDS], $8DDAT
#4, (SP)
#210.a(sP)
#2.(SP)

SuB

#10, (SP)

JSR

000010

208:
020000

001346

040000

001376

001346
020000
001346
000004
000211
000002

001140
001140
001142

NOP

PC.a(SP)+

JWAS “'IVC'* SET??

;YES=DONT REPORT 'WV''
= 0

JEXPECTED STATUS

sRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
;MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
sMOVE SP BACK TO NO ERROR

JREPORT AN ERROR IF DRIVE IS OFF CYLINDER AND ''SKI'' = 0
BIT
#PIP.RMDS]
:ég.qaxve OFF CYLINDER??
BEQ
BIT
BNE
MOV
BIC
MOV
ADD

000000

MOvB
SuB
JSR

000010

SUB

30¢:

NOP

308
#SKI,RMER2]
308

RMDSI, $GDDAT
#PIP, $GDDAT
RMDS], $BDDAT
#4, (SP)
#211.a(sP)

#2,(SP)

PC.a(SP)+

#10, (SP)

*WAS "'SKI'' SET??

*YES=DONT REPORT ‘PIP'* = 1

“EXPECTED STATUS

sRECEIVED STATUS
;sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN USER'S CALL
sMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

= 'DVC'' = 0
;SEE IF "SKI'

88 063644
89 063650
90 063654

013746
042726
001460

001376
137577

94 063656

032737

000200

001376

001376
000200
001376
000004
000212
000002

001140
001140
001142

40%:

MOV
BIC
BEQ

BEQ
MOV
BIC

508
RMER21
, $GDDAT
#DVC,$GDDAT

ADD

#4, (SP)

MOV

000000

MOvB
SUB
JSR

suB

50%:

001376

001140
001140
001142

000000

RMER21,-(SP)
:PUT ERROR REG 2 ON STACK
#2C<SKI IDVC>, (SPY+
60$
;BRANCH IF NO ERROR

JREPORT AN ERROR IF THERE IS A DEVICE FAULT
BIT
#DVC ,RMER2]
:zgy'osv1ce FAULT??

000010

112776

4
J
11-APR-80 13:39:53 PAGE 36-1

NOP

RMER2]
, $8DDAT

#212.a(sP)
#2,(SP)
PC.a(SP)+

#10, (5P)

;REPORT AN ERROR IF *'SKI'' =1
#SK1 ,RMERZ]
BIT
BEQ
60$
RMER2I
, $GDDAT
#SK1,$GDDAT

RMER2]
, SBDDAT

¥4, (SP)

#213,3(sP)

*EXPECTED STATUS
JRECEIVED STATUS
;sMOVE SP TO USER'S CALL
JWRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
;MOVE SP BACK TO NO ERROR

:&S'IHERE A SEEK INCOMPLETE ERROR

*EXPECTED STATUS
;RECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL

;WRITE ERROR NUMBER IN USER'S ERROR CALL

SEQ 0254

162716

000010

016

062716

000004
000000

064030

062718

000004

064036

162716

000004

~
~
o

-—

[s,¥

OO0

n
H

;
23

000002

—_

162716

N
n

OVOONAWVS
NN ~=OV0O~NONWN

—

b d

D i i

d e

d d

WNININIAVNINOPINININ)
= b b 2

SuB
JSR
SuB
NOP

PC.a(SP)+

#10, (SP)

sMOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER
;MOVE SP BACK TO NO ERROR

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED
#4, (SP)
ADD
:MOVE SP TO USER'S ERROR CALL
1ST8
‘WAS AN ERROR DETECTED??
BEQ
0
ADD
BR
SuB
NOP
RTS

#4,(SP)

80%

*YES - MOVE SP TO USER'S ERROR RETURN
:NO - MOVE SP TO NO ERROR RETURN

JRETURN TO USER

SEQ 0255

STATIC DRIVE STATUS CHECK SUBROUTINE

K
4
11-APR-80 13:39:53 PAGE 36~2

—

MACRO v03.01

CZRMOAO RMOS/3/2 FCTNL TST 3

STOP AND SHUTDOWN SUBROUTINES

MACRO v03.01

L 4
11-APR-80 13:39:53 PAGE 37

;

.SBTTL

2 064046

STOP:

5
6 064046
064052
064056
064060
g 064060

012746
012746
000002

000240

9
0 064062
064066
064072
064074
}5 064074

000207

13 064076
14 064102
15 064104
16 064110
17 064114
18 064116
064122

005737
001002
000137
005737
00101°
104401
000410

012746
012746
000002

65%:
001326

SHUT:

007764
000042

5%:

064124

;.65%:

000137

005420

22 064154
23 064162

012737
000002

177777

000137

INTERRUPT
;.PUT NEW PS ON STA(CK
;:PUT NEW PC ON STACK
;.POP NEW PC AND PS

JRAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT
MoV
#PRG,~(SP)
:.PUT NEW PS ON STACK

000300
064074

064144
19 064144
S? 064150

STOP AND SHUTDOWN SUBROUTINES

:DROP PRIORITY TO ALLOW CONSOLE
MOV
#PR3,~(SP)
MOV
#64$,-(SP)
RTI
648:
NOP

000140
064060

SEQ 0256

64%:

037460

108:
001326

SHUT2:

MOV
RTI

#658,-(SP)

:.PUT NEW PC ON
STACK
;.POP NEW PC AND PS

RTS

- CONTINUE

TST
BNE
JMP
TST
BNE
TYPE
BR

CTLFG
5%
READY
k4?2
108
,65%
648

JHALT ?
;BR IF YES
s CONTINUE
sANY MONITOR PRESENT ?
;BR IF YES
;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

_ASCIZ

JMP

<CRLF><07>/TEST HALTED/<CRLF>

JMP

$EOP

START

;GO TO START

MOV
RTI

#-1,CTLFG

;SET THE CONTROL-C FLAG
JEXIT FROM INTERRUPT

JRETURN CONTROL TO MONITOR

CZRMOAOQ RMOS/3/2 FCINL TST 3
MACRO v03.01
SAVE AND RESTORE RO~R5 ROUTINES
1

M 4
11-APR-80 13:39:53 PAGE 38

.SBTTL

SEQ 0257

SAVE AND RESTORE RO-RS5 ROUTINES

RN R AR RN R AR A AR AN AR

AN RS

AR RN ARA RN

AN AR AR AN

AR AR NI RN

NNAENSE

*SAVE RO-R5

s*CALL:

SAVREG
'UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:

.*TOP---(+16)

;x +2---(+18)

;% +4==<RS
;% +6===R4
;% +8---R3
; +10---R2
;*+12--<R1
i%414===R0
64
64
66
70
064172
064174
064176
064200
066204
064210
064214

010045
010146
010246
010346
010446
010546
016646
016646
016646
016646

$SAVREG:

000022
000022
000022
000022

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

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

22(SP) ,-(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)
22(SP) ,~(SP)

;sSAVE PC OF MAIN FLOW
;:SAVE PS OF CALL
;:SAVE PC OF CALL

R3,-(SP)

R5.,=(SP)

;*RESTORE RO-R5
‘CALL
RESREG
SRESREG
MoV
MOV
MOV

.SBTTL

R4,=-(SP)

J:PUSH RO ON
ON
;sPUSH R?2 ON
;:PUSH R3 ON
;:PUSH R4 ON

STACK
STACK
STACK
STACK
STACK
;:PUSH RS ON STACK
;:SAVE PS OF MAIN FLOW
;sPUSH R1

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

PC OF CALL
PS OF CALL
PC OF MAIN FLOW
PS OF MAIN FLOW
STACK INTO RS
STACK INTO R4
STACK INTO R3
STACK INTO R2

:;RESTORE
;:RESTORE
;:RESTORE
;:RESTORE

;:POP

;:POP
;:POP
;sPOP

. +POP STACK INTO R1

. :POP STACK INTO RO

RTI
BINARY TO ASCII AND TYPE ROUTINE

AR AN AR A

AN AR A

AR RN

N AR AR AR NN AR AN AR

RN AR AN AR

NN RN

*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-8IT
;*BINARY~-ASCI] NUMBER AND TYPE IT.
i*CALL:
I

. %

064260
064262
064266

010146
016601
000261

000006

MOV
TYPBN

$TYPBN: MOV
MOV
SEC

NUMBER,
- (SP)
R1,-(SP)

6(SP) ,R1

s sNUMBER TO BE TYPED

ssTYPE

;. SAVE R1 ON THE STACK
;.GET THE INPUT NUMBER

;;SET *'C"* SO CAN KEEP TRACK OF THE NUMBER OF BITS

CZRMOAO RMOS5/3/2 FCTNL TST 3

BINARY TO ASCII AND TYPE ROUTINE

112737

000060

064332

1%:

MOovB
ROL

AD(CB
TYPE

$8IN

BEQ

064332
064332

000002

MACRO v03.01 11-APR-80 13:39:53 PAGE 38-1

000004

2%:

$BIN:
.SBTTL

000

cLC
BR
MOV
MOV
MOV
RTI
.BYTE
CONVERT

SEQ 0258

::SET CHARACTER TO AN ASCII ‘0.
;.GET THIS BIT

; cDONE?

: :NO==SET THE CHARACTER EQUAL TO THIS BIT
;G0 _TYPE THIS BIT

19
(SP)+,R1

2(SP) ,4(SP)
(SP)+, (SP)

;s CLEAR ''C'’ SO CAN KEEP TRACK OF BITS
:2.G0 DO THE NEXT BIT
;;POP THE STACK INTO R1
2 sADJUST THE STACK
..RETURN TO USER

0.0

;STORAGE FOR ASCII
BINARY TO DECIMAL AND TYPE ROUTINE

JIRRAR R AR RN AR AR AR A AR AN AN

AR RN A AR AR A AR A AAN AR NAR

CHAR. AND TERMINATOR
RN

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;*REPLACED WITH SPACES.

.*CALL:
e %

$1YPDS:

000001

1%:

e ¥
3%:

A ¥

000010

RO,~(SP)
R1,~(SP)
R2,-(SP)
R3,-(SP)

;.PUSH RO ON STACK
::PUSH R1 ON STACK
;¢sPUSH R2 ON STACK
;:PUSH R3 ON STACK
;:PUSH RS ON STACK
::SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
;:BR IF INPUT IS POS.
:;MAKE THE BINARY NUMBER POS.
J:MAKE THE ASCII NUMBER NEG.
;:ZERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
2:SET THE FIRST CHARACTER TO A BLANK
;;CLEAR THE BCD NUMBER
2:GET THE CONSTANT
..FORM THIS BCD DIGIT

gg(SP).RS

064540

000040

:sPUT THE BINARY NUMBER ON THE STACK
;260 TO THE ROUTINE

#20200,-(SP)

064550
000040

000001

- (SP)
NUM,

R5,=(SP)

020200
000020
000055

MOV
TYPDS

177777

R5
#'-,1(SP)
R0

#$DBLK ,R3

# L (R$)+

R2
$DTBL (RO) ,R1
R1.R5
43
R2

3s
R1,R5

R2
5%
(SP)
78
(SP)
6%
1(SP)

#'0,R2
RO,#10

;:BR IF DONE

..INCREASE THE B8CD DIGIT BY 1
;:ADD BACK THE CONSTANT

,=-1(R3)

::CHECK IF BCD DIGIT=0
;sFALL THROUGH IF O
;:STILL DOING LEADING 0°S?
;:BR IF YES
2 :MSD?
IF NO
MJJYES=-SET THE SIGN
JsMAKE THE BCD DIGIT ASCII
JJMAKE IT A SPACE IF NOT ALREADY A DIG 1T
;:PUT THIS CHARACTER IN THE OUTPUT BUF FER
NT
;1 JUST INCREMEING
;:CHECK THE TABLE INDEX

064464
064466
064470
064472
064474
064476
064500

002746
003002
010502
000764
105726
100003
116663

177777

104401
016666

064550
000002

8%:
177776

11-APR-80 13:39:53 PAGE 38-2

9%:

BLT
BGT
MOV
BR
TSTB
BPL

MOVB
CLRB
MOV
MOV
MOV
MOV

-1(SP),=2(R3)
(R3)
(SP)+ RS
(SP)+,R3
(SP)+,R2
(SP)+ ,R1

MOV

2(SP) ,4(SP)

MOV
TYPE

000004

23
83
RS.R2
63
(SP)+
9

$DTBL:

$DBLK:
.SBTTL

.BLKW
4
BINARY TO OCTAL

SRR

;:G0 DO THE NEXT DIGIT
2260 TO EXIT
;:GET THE LSD
2:G0 CHANGE TO ASCII
,,UAS THE LSD THE FIRST NON-ZERQ?
;BR IF NO

::YES==SET THE SIGN FOR TYPING
J2SET THE TERMINATOR
::POP STACK INTO RS
;:POP STACK INTO R3
. :POP STACK INTO R2
. sPOP STACK INTO R1

(SP)+ R0
. $DBLK

MOV
RTI
10000.

SEQ 0259

;.POP STACK INTO RO
;JNOW TYPE THE NUMBER

;;ADJUST THE STACK

(SP)+,(SP)

J:RETURN TO USER

1000.
100.
10.

A AR AR A AN

AR AR A AR

(ASCII)
TR

AND TYPE

RN AR RN AR AN

RN AANARNRRRRA RN

NN A

tTHIS ROUTINE

IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

NUM,-(SP)

s*OCTAL (ASCII) NUMBER AND TYPE IT.
;*$TYPOS~-~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*CALL:

. %
M

TYPOS
BYTE
BYTE

o
I
o>

MOV

;;NUMBER TO BE TYPED

;sCALL FOR TYPEOUT
;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

;:M=1

OR 0
;. 1=TYPE LEADING ZEROS
;;0=SUPPRESS LEADING ZEROS

:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC
s*CALL:

M
b

MOV

TYPON

NUM, - (SP)

;;NUMBER TO BE TYPED
;. CALL FOR TYPEOUT

:*%LZfOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
o
o

064576

7646

000000

2637
062716
000406

065005
000002

5737

000001

8737

000005

065003

065003
065005
065002

MOV
TYPOC

$TYPOS: MOV
MOVB
MovB
ADD
BR

$TYPOC: MOVB
MOVB
S$TYPON: MOVB
MOV
Mov

NUM, - (SP)

;sNUMBER TO BE TYPED
;. CALL FOR TYPEOUT

a(SP) ,=(SP)
1(SP) ,$0F ILL
(SP)+,$OMODE+1
#2, (SP)
S$TYPON

;;PICKUP _THE MODE
2;LOAD ZERO FILL SWITCH

#1,80FILL
#6,SOMODE +1
#5,80CNT
R3,-(SP)
R4 ,-(SP)

;;NUMBER OF DIGITS TO TYPE

;;ADJUST RETURN ADDRESS

;;SET THE ZERO FILL SWITCH
;:SET FOR SIX(6) DIGITS
;. SET _THE ITERATION COUNT
;SAVE R3
. :SAVE R4

»c

CZRMOAD RMOS/3/2 FCINL TST 3
MACRO v03.01
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

CZRMOAO RMOS5/3/2 FCINL TST 3
MACRO v03.01
BINARY TO OCTAL (ASCII) AND TYPE

MOV
MOVB
NEG
ADD
MOVB
MOVB
MOV
CLR
ROL
BR

065005

000006
065004
065003

000012

1%:

2s:

#6,R4
R4, SOMODE

SOFILL R4

AZ(SP),RS

ROL

DECB
BPL
BIC
BNE

177770

;¢ TYPE THIS DIGIT?
;2:BR IF NO

;:GET RID OF JUNK
::TEST FOR O
; :SUPPRESS THIS 0?
.:BR IF YES

000002

INC

;;DON'T SUPPRESS ANYMORE 0°'S

8IS

5%:

;;MAKE THIS DIGIT ASCII
;sMAKE 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
2260 DO THE LAST DIGIT

BIS

7%:

MOvVB
TYPE
DECB
8GT
BLT

6%:

MOV

; :RESTORE RS

(SP) +,R5
(SP)+ R4

(SP)+,R3
2(SP) ,4(SP)

000004

(SP)+,(SP)

8%:

.BYTE

$OCNT:
$OFILL:
$OMODE:
.SBTTL

.
.
.WORD
TYPE ROUTINE

I RNR

AR AR

s SUBTRACT IT FOR MAX. ALLOWED
;oSAVE IT FOR USE
;.GET THE ZERO FILL SWITCH
;cPICKUP THE INPUT NUMBER
;cCLEAR THE OUTPUT WORD

;:GET LSB OF THIS DIGIT

$OMODE
7

BEQ

'A ¥

;s :SAVE RS
;cGET THE NUMBER OF DIGITS TO TYPE

s ;ROTATE MSB INTO ''C*’

TST

000060
000040
065000
065000
065002

SEQ 0260

;G0 DO MS8
:.FORM THIS DIGIT

ROL

ROL
ROL
MOV

3s:

065004

R5,=(SP)
$OMODE +1,R4
R4

olelelele]

010546
113704

c
.5
11-APR-80 13:39:53 PAGE 38-3

AR A AN AR R AN AR

:;RESTORE R4
::RESTORE R3
JsSET THE STACK FOR RETURNING
J:RETURN
;;STORAGE FOR ASCII DIGIT
:;TERMINATOR FOR TYPE ROUTINE
csOCTAL DIGIT COUNTER
;oZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE
RN RN AR R AR R AN IR AN RN RANNRARANC

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

c*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

J*NOTE1:
;*NOTEZ2:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
S$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

J*NOTE3:
%

SxCALL:

:*1) USING A TRAP INSTRUCTION
I*
TYPE
,MESADR
c*OR

TYPE

MESADR

:;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE

ROUTINE

065006
065012
065014

105737
100002

MACRO v03.01

001173

$TYPE:

STPFLG

000000

001242

000100

001243

065056
067770
000040

1%:

000002
000001

001243

11-APR-80 13:39:53 PAGE 38-4

SEQ 0261

;:1S THERE A TERMINAL?
;:BR ]F YES

csHALT HERE

;s LEAVE

]F NO TERMINAL

RO,=(SP)
@2(SP) ,RO

;:SAVE RO

N#APTCSUP, SENVM

;;APT CONSOLE SWLPPRESSED

;.GET ADDRESS OF ASCIZ STRING
J:RUNNING IN APT MODE
62%
22NO,GO CHECK FOR APT CONSOLE
#APTSP
,OOL
SENVM ;. SPOOL MESSAGE TO APT
62%
;:NO,GO CHECK FOR CONSOLE
RO,61$
;:SETUP MESSAGE ADDRESS FOR APT
SC.iATY3
;:SPOOL MESSAGE TO APT
; ;MESSAGE ADDRESS
KAPTENV, SENV

61%:
62%:

60$
(RO)+,-(SP)
43

000002

60%:
3s:

(SP)
+
(SP)+ R0
#2,(SP)

000011

4%:

#HT
, (SP)

JsYES,SKIP TYPE OUT
;cPUSH CHARACTER TO BE TYPED ONTO STACK
;cBR IF IT ISN'T THE TERMINATOR
;s
1F TERMINATOR POP IT OFF THE STACK
;cRESTORE RO
;cADJUST RETURN PC
::RETURN
;sBRANCH IF <HT>

#CRLF
, (SP)

. ;BRANCH IF NOT <CRLF>

(SP)+

;:POP <CR><LF> EQUIV
;;TYPE A CR AND LF

$CHARCNT

;o CLEAR CHARACTER COUNT
;cGET NEXT CHARACTER
2260 TYPE THIS CHARACTER
;:1S IT TIME FOR FILLER CHARS.?
;oIF NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED
s:AND THE NULL CHAR.
;:DOES A NULL NEED TO BE TYPED?
;:BR JF NO~-GO POP THE NULL OFF OF STATK
;260 TYPT A NULL

2%:

000200

065336
065220
001172

5%:
6%:

001170
000001

7%:

065220
065336

CMPB
BNE
MOV

DECB
BLT
JSR
DECB

PC,STYPEC
$FILLC,(SP)+

$NULL ,~(SP)
1(SP)

PC,STYPEC

$CHARCNT
’$

2 ;DO NOT COUNT AS A COUNT
;< LOOP

;HORIZONTAL TAB PROCESSOR
000040
065220
000007

8$:
065336

9%:

MovB
JSR
BI18

#' ,(SP)
PC,S$TYPEC

;REPLACE TAB WITH SPACE
;. TYPE A SPACE
;;BRANCH IF NOT AT
;. TAB STOP
;;POP SPACE OFF STACK
2.GET NEXT CHARACTER

as$TKS

;:CHAR [N KYBD BUFFER?

#177600, (SP)

;.GET CHAR
;:STRIP EXTRANEOUS BITS

g;.SCHARCNT
(SP)+

113734

113730
177600
000023

$TYPEC:

108
a$TKB, - (SP)

HSXO
. FF
(SP)

::BKk IF NOT

2 :WAS CHAR XOfF

—

CZRMOAQ RMOS5/3/2 FCTNL TST 3

CZRMOAQ RMOS/3/2 FCTNL TST 3

TYPE ROUTINE

065242
065244
0652644
065250
065252
065256
065262
065266
065270
065270
065272
065272
065276
065300
065306
065314
065316
065322

MACRO v03.01

001012

105777

101%:

113710

102$%:

005726

10%:

113666

000002
000015

113660
000002

asTKS

;:;WAIT FOR CHAR

#SXON, (SP)
101$

;:GET CHAR
J:STRIP 1T
JoWAS [T XON?
;:BR IF NOT

(SP)+

JeFIX STACK

aS$TPS
108
2(SP) ,a$TPB

JJWAIT UNTIL PRINTER IS READY

000002

;;LOAD CHAR TO BE TYPED INTO DATA REG.
:s1S CHARACTER A CARRIAGE RETURN?
s ;BRANCH IF NO
..EE§;~CLEAR CHARACTER COUNT

qu.?(SP)

065336
000012

J:BR IF NOT

#177600, (sP)

000021

1%:

CMPB

INCB
$CHARCNT
: . WORD
$TYPEX: RTS
.SBTTL

SEQ 0262

1028

101$
a$TKB, (SP)

113704
177600

100375

11-APR-80 13:39:53 PAGE 38-5

SCHARCNT
$TYPEX
WLF ,2(SP)
$TYPEX
(PC)+

;:1S CHARACTER A LINE FEED?
:cBRANCH IF YES
;sCOUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

SCOPE HANDLER ROUTINE

———

: .'tttttiti'tttttttt'fittt'*ttttt*t*ttitk.tttttttifitttttt'ttttttitt

;*THIS ROUTINE CONTROLS THE LOOPING- OF SUBTESTS.

s*AND LOAD THE TEST NUMBER(STSTNM)
s*AND LOAD THE ERROR FLAG (SERFLG)

;*THE

SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

s xSWi4=1
;*SW11=1
;*SW09=1
s *SW08=1

s*CALL

o¥
104410

$SCOPE:

064046
040000

113576

LOOP ON
INHIBIT
LOOP ON
LOOP ON

CKSWR
JSR
81T
BNE

$XTSTR: BR

000004
065406
177060
000004

000004

000004
000400

113530

[01"
MOV
TST
MOV
B8R

TEST
ITERATIONS
ERROR
TEST IN SWR<7:0>

;:SCOPE=]0T

SCOPE

SHANRNSTART OF

000416

032777
001421

1$:

IT WILL INCREMENT=

INTO THE DISPLAY REG.(DISPLAY<7:0>)
INTO DISPLAY<15:08>

;sTEST

PC,STOP

#BI1T14,aSWR
$OVER

ngE

FOR

THE

..LOOP ON PRESENT TEST?

XOR

a#ERRVEC,-(SP)
#58 SNERRVEC

ar127060

FOR CHANGE IN SOFT-SWR

JYES IF SW14=1
TESTERMNNNA

;:1F RUNNING ON THE 'XOR'' TESTER CHANGE
2. THIS INSTRUCTION TO A "NOP'' (NOP=240)
;SAVE THE CONTENTS OF THE ERROR VECTOR
..SET FOR TIMEOUT

TIME OUT ON XOR?
(SP)
+ ,a#ERRVEC
: SRESTORE THE ERROR VECTOR
$SVLAD
2.G0 TO THE NEXT TEST
5%:
M
(SP)+,(SP)+
;o CLEAR THE STACK AFTER A TIME OUT
MOV
(SP)
+ ,a#ERRVEC
.,RESTORE THE ERROR VECTOR
BR
7%
LOOP ON THE PRESENT TEST
68 : RURRNEND OF CODE FOR THE XOR TESTERWAWAN
BIT
#81T08,aSwR
;.LOOP ON SPEC, TEST?
BEQ
2%
;:BR IF NO

SCOPE HANDLER ROUTINE

005046
117716

MACRO v03.01

F
5
11-APR-80 13:39:53 PAGE 38-6

CLR

113520

mMovse

BEQ
CMP
BLT
MOV
DEC

000027
001116

ASL
ADD
MOV

065660
001122
8$:

001117

2s:

(SP) ,$TSTNM
(SP)
(SP)
#$SWOBTBL,
(SP)
a(SP)+ ,SLPADR
SOVER
(SP)+
$ERFLG

ggRMAX.SERFLG

001000

113440

001124

001122

4%:

#81T709,aSWR
43
SLPERR, SLPADR
$OVER
SERFLG

3s:

:§1T11,QSUR

113406

7%:

001230
001120
001120
001206
001226

001131

020252
021476
022704
023726

001117

004000

0103732
010316

#27,(SP)

00113

001117
001206

013716
000002
000012

aSWR, (SP)

113306

1%:

$SVLAD:

$OVER:
$MXCNT
: 10.
$SWO8TRL:

$TIMES
19

SEQ 0263

;cCLEAR A TEMP. LOCATION
;:PICKUP THE DESIRED TEST NUMBER
;cBRANCH IF BAD TEST NUMBER IN SWR
..CHECK THE NUMBER IN THE SWR
JBRANCH IF

TEST NUMBER IS OUT OF RANGE

..UPDATE THE TEST NUMBER
;cBACKUP BY ONE
;sSCALE THE TEST NUMBER AS AN INDEX
;cFORM THE ADDRESS OF TEST POINTER
;SET LOOP ADDRESS TO DESIRED TEST
;:G0 LOOP ON THE TEST
;;CLEAN THE BAD TEST NUMBER OFF OF THE STACK
;sHAS AN ERROR OCCURRED?
;:BR IF NO
JsMAX. ERRORS FOR THIS TEST OCCURRED?
::BR IF NO
;;LOOP ON ERROR?
;:BR IF NO
;:SET LOOP ADDRESS TO LAST SCOPE

;cZERO THE ERROR FLAG
;s CLEAR THE NUMBER OF ITERATIONS TO MAKE
;;ESCAPE TO THE NEXT TEST
::INHIBIT ITERATIONS?
BR IF YES

$PASS
18
$ICNT
STIMES,SICNT
$OVER

..IF FIRST PASS OF PROGRAM

TST1+2
TST2+2
TST3+2
TST4+42
TSTS+2
TST6+2
TST7+2
TST10+2
TST11+42
TST12+2
TST13+2
TST14+2
TST15+42
TST16+2

;- STARTING ADDRESS
;:STARTING ADDRESS
;. STARTING ADDRESS
::STARTING ADDRESS
;:STARTING ADDRESS
s STARTING ADDRESS
;;STARTING ADDRESS
;. STARTING ADDRESS

INHIBIT ITERATIONS

..INCREMENT ITERATION COUNT
;sCHECK THE NUMBER OF ITERATIONS MADE
;:BR IF MORE ITERATION REQUIRED
#1,$ICNT
JcREINITIALIZE THE ITERATION COUNTER
SMXCNT ,STIMES
;:SET NUMBER OF ITERATIONS TO DO
$TSTNM
;;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
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
S$TSTNM,aDISPLAY ; ;DISPLAY TEST NUMBER
$LPADR, (SP)
. +FUDGE RETURN ADDRESS
..FIXES PS
. 2MAX. NUMBER OF ITERATIONS

:STARTING ADDRESS
;STARTING ADDRESS
s STARTING ADDRESS
;. STARTING ADDRESS
;. STARTING ADDRESS
;. STARTING ADDRESS

OF
OF
OF
OF
OF
OF
OF
OF

OF
OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

e b b b b ek N ON N IS NN —
AN
NN —=O

CZRMOAQ RMOS5/3/2 FCTINL TST 3

[

CZRMOAO RMOS5/3/2 FCTNL TST 3

SCOPE HANDLER ROUTINE

065714
065716
065720

MACRO v03.01

G .5
11-APR-80 13:39:53 PAGE 38-7
SEQ 0264

025574
027200

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

065722
065724

065726
065730
065732
065734

036242

.SBTTL
AR RS SA

. WORD

TST17+2
TST20+2
TST21+2
TST22+2
TST23+2
TST24+2
TST25+2
TST26+2
TST27+2

;o STARTING ADDRESS
;. STARTING ADDRESS
s STARTING ADDRESS
;:STARTING ADDRESS
;:STARTING ADDRESS
;o STARTING ADDRESS
;o STARTING ADDRESS
;:STARTING ADDRESS
;;STARTING ADDRESS

ERROR HANDLER ROUTINE
AL Sl

iTHIS ROUTINE WILL

dtdsdts

INCREMENT

OF
OF
OF
OF
OfF
OF
OF
OF
OF

TEST 17
TEST 20
TEST 21

TEST
TEST
TEST
TEST
TEST
TEST

22
23
24
25
26
27

st itsittiislitsissisiitzeasyeyy

THE

ERROR FLAG AND

:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF
s*AND GO TO ERRTYP ON ERROR

THE

ERROR COUNT,

THE ERROR CALL

:THE _SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
:*SW15=1
HALT ON ERROR
:*SW13=1
INHIBIT ERROR TYPEOUTS
:*SW10=1
BELL ON ERROR
s *SWN9=1
LOOP ON ERROR
. *CALL
N
ERROR
:;ERROR= EMT AND N=ERROR [TEM NUMBER
M
$ERROR:

001117

7%:

001116
002000
001212
001126
001132
000002
113120
020000

8EQ
1%:

001132
001130
113132

001004
004737
104401

037670
001217

122737

000001

001242

001130
070000

066056

001402
013716

001124
001210

001210

20%:

21s:
22%:
2%:

113066

001000

CKSWR
INCB
BEQ
MOV
BIT

113052

3s:
4%:

TYPE

INC
MOV
SuB
MOVB
BIT
BNE
JSR
TYPE

$ERFLG
79
$TSTNM,IDISPLAY
#BIT10,8SWR
1%

L SBELL

$ERTTL

(SP) ,$ERRPC
#2 ,SERRPC
@$ERRPC,SITEMB

#81T13,aSWR
208
PC,ERRTYP

.SCRLF

CMPB
BNE
MOvVB
JSR

$ITEMB,21%
8C.$ATY4

.BYTE

BR
TST

8PL
HALT
CKSWR

BIT

BEQ
MOV
TST
8EQ
MOV

NAPTENV, SENV

;o TEST FOR CHANGE IN SOFT-SWR
;.SET THE ERROR FLAG

;:DON'T LET THE FLAG GO TO ZERO

; ;DISPLAY TEST NUMBER AND ERROR FLAG
;;BELL ON ERROR?
"NO - SKIP
JRING BELL
;COUNT THE NUMBER OF ERRORS

::GET ADDRESS OF ERROR INSTRUCTION

;:STRIP AND SAVE THE ERROR [TEM (CODE
J:SKIP TYPEOUT ]F SET
;:SKIP TYPEOUTS
;.60 TO USER ERROR ROUTINE
;;RUNNING IN APT MODE
;:NO,SKIP APT ERROR REPORT
;;SET ITEM NUMBER AS ERROR NUMBER
;;REPORT FATAL ERROR TO APT

22%

Sk,

;:APT ERROR LOOP
. sHALT ON ERROR
JoSKIP IF CONTINUE
::HALT ON ERROR!
JTEST FOR CHANGE

IN SOFT-SWR

#81709,aSwR
43
$LPERR, (SP)

,.LOOP ON ERROR SWITCH SET?

5$
$ESCAPE, (SP)

BR IF NONE

$ESCAPE

;:BR ]F NO

;FUDGE RETURN FOR LOOPING

..CHECK FOR AN ESCAPE ADDRESS
; ;FUDGE

RETURN ADDRESS FOR ESCAPE

ERROR HANDLER ROUTINE

022737
001001
000000

MACRO v03.01

H
5
11-APR-80 13:39:53 PAGE 38-8

SEQ 0265

037650

000042

5%:

(MP

BNE

000002

HALT

066145

.ENABL
LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB

0
O
O
1

$TKQEND=,

J:ACT=11 AUTO-ACCEPT?

;cBRANCH ]F NO

2o YES

R1I
TTY INPUT ROUTINE

.SBTTL

000000
000000
C00000

#SENDAD ,a#42

;JRETURN

I I

¢ sNUMBER OF ITEMS IN QUEUE
22 INPUT POINTER
;;OUTPUT POINTER
::TTY KEYBOARD QUEUE

.EVEN

;*TK INITIALIZE ROUTINE

;*THIS ROUTINE WILL

INITIALIZE

THE

TTY KEYBOARD

INPUT QUEUE

;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

SaCALL:
e
o

005037
012737
013737
012737

012737
005777
012777
000207

066136
066144
066140
066216
000200
112754
000100

066140
066142
000060

J°R
RE TURN

$TKINT: CLR

MOV

000062

STKCNT

s.CLEAR COUNT OF ITEMS IN QUEUE

#STKQSRT,$TKQIN ;;MOVE

THE STARTING ADDRESS OF

THE

MOV
MOV

$TKQIN,$TKQOUT
;:QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRV,a#TKVEC ;;INITIALIZE THE KEYBOARD VECTOR

TST

a$TkB

;. CLEAR DONE FLAG

:;RETURN TO CALLER

MOV

112744

PC,STKINT

MOV
RTS

#200,a#TKVEC+2

#100,3$7kS

;*TK SERVICE ROUTINE

s*THIS ROUTINE WILL SERVICE

;.'BR'' LEVEL 4

;cENABLE TTY KEYBOARD INTERRUPT

THE

TTY KEYBOARD INTERRUPT

;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;+IT IN THE QUEUE.
;*IF THE CHARACTER IS A ''CONTROL-C'® (“C) STKINT IS CALLED AND
J*UPON RETURN EXIT IS MADE TO THE '‘CONTROI-C'' RESTART ADDRESS (SHUT?2)
117746

042716
021627
001007

$TKSRV: MOVB
BIC

112740
177600

000003

cMP
BNE

067332
066146

TYPE

JSR

064154
000007

022737
001004

1$:

000176

001154

000001

066136

ST
JMP
(WP
BNE

a$TKB,-(SP)
#AC177,(SP)

::PICKUP THE CHARACTER
SiSTRIP THE JUNK

(SP) ,#%
18

2:IS IT A CONTROL C?
*:BRANCH IF NO

PC,S$TKINT

::INIT THE KEYBOARD

LSCNTLC

STYPE A CONTROL=-C

(~C)

(SP) +
SHUT2
(SP) , A7
2%

*:CLEAN UP STACK
::CONTROL C RESTART
::IS IT A CONTROL G?

::GO TO SWR CHANGE

;;BRANCH IF NO

cMP

#SWREG, SWR

*31S SOFT~SWR SELECTED?

cMP

#1,$TKCNT

;1S THE QUEUF FULL?

BEQ

BNE

::BRANCH [F NO

or
|

CZRMOAQ RMOS/3/2 FCTNL TST 3

CZRMOAQ RMOS/3/2 FCINL TST 3

TTY

INPUT ROUTINE

104401
005726
000451
021627
001021
005077
005726
105777
100375
117746

MACRO v03.01

SEQ 0266

001212

TYPE
ST

000023

112636
112630

as$TKS
318

S:WAIT FOR A CHAR
$:LOOP UNTIL ITS THERE

#°C177.(SP)

SIMAKE IT 7-BIT ASCII

066145

066144

066140

PR AL

BLT

S:BRANCH IF

B8GT

A 3

J:BRANCH IF YES

001154

ARl

$CKSWR:

#40, (SP)
(SP)+,@S$TKQIN
$TKQIN
STKQIN,#$TKQEND
13

$:MAKE IT UPPER CASE
::AND PUT IT IN QUEUE
*:UPDATE THE POINTER
::GO OFF THE END?
*:BRANCH IF
#$TKQSRT,$TKQIN ; :RESET THE POINTER
: sRETURN
sttt daisadidiiitlstiilaiitlitslissieesezysese
ey

::1S THE SOFT-SWR SELECTED

TSTB

a$TKS

::IS A CHAR WAITING?

#°C177,(SP)
(SP) 4%

PIMAKE IT 7-BIT ASCII
::1S IT A CONTROL-G?

SRt

s*CONTROL

15%

067344
067351
000176

SIEXIT IF NOT

158
a$TKB,-(SP)

::IF NOT, EXIT
YES

*:IF NOT, PUT IT IN THE TTY QUEUE

SIAND EXIT

diiddstiit

ittt

itttz

IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE

s*ROUTINE OR FROM THE

104401
104401
013746

YES

231S IT A SPECIAL CHAR?

#SWREG, SWR

BNE
PR

066146
112446
000001

+3IS IT UPPER CASE?

CMP

BNE

BIC
cMP

000001

$:COUNT THIS CHARACTER

(SP) ,#175

BPL
MOVB

112504
177600
000007

001150

SRETURN

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE IS ENTERED
FROM THE TRAP HANDLER, AND WILL
s*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
:*CALL WHEN OPERATING IN TTY INTERRUPT MODE.

112510

123727
001674
005726
004737
005077
112737

IS IT A CONTROL-O?
+:BRANCH IF NO
*REENABLE TTY KEYBOARD INTERRUPTS

(SP) ,#140

RTI

STACK

$:GET THE CHARACTER

$TKCNT

MOV

a$TKB,-(SP)

INC

BIC
MOVB
INC
(TMM
BNE

48:

::CLEAN CHAR OFF

(SP)+,#21
31s
#100,38TKS

cMP

000040
177530
066140
066140

(SP) +

CMP
BNE
MOV

cTMMP

000175

000176

ISTB
BPL

RT]

308

STACK

SEXIT
ISTIT A CONTROL-S’
:BRANCH IF NO
$:DISABLE TTY KEYBOARD INTERRUPTS

BIC

066136
000140

;;RING THE TTY BELL
..CLEAN CHARACTER OFF OF

58
(SP) , 423
328
asTkS

MOVB

11260¢

LSBELL
(SP) +

BR
CMP
BNE
CLR
TST

318:

112624
177600
000021

000100

(022737
001124
105777
100121
117746
042716
021627
001300

11-APR-80 13:39:53 PAGE 38-9

SOF TWARE

SWITCH REGISTER TRAP CALL,

AS A RESULT OF

6;CO~TRO%M288EI~G TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
SAUTOB, #1
;;ARE WE RUNNING IN AUTO-MODE?

BEQ

$GTSWR:

; ;BRANCH IF YES

(SP) +
PC,STKINT

;.CLEAR CONTROL-G OFF STACK
s FLUSH THE TTY INPUT QUEUE

movse

#1,8INTAG

;. SET INTERRUPT MODE INDICATOR

TYPE

.SCNTLG

;.ECHO THE CONTROL-G

MOV

SWREG,~(SP)

;. SAVE

CLR

001151

TST
JSR

TYPE

a$TKS

. SMSWR

;:DISABLE TTY KEYBOARD INTERRUPTS
(*G)

;. TYPE CURRENT CONTENTS

SWREG FOR TYPEOUT

CIRMOAO RMOS/3/2 FCTNL TST 3
INPUT ROUTINE

066534

104402

11-APR~80 13:39:53 PAGE 38-10

SEQ 0267
TYPOC

067362

19%:

112406

7%:

TYPE

. s CHAR THERE?

#°C177, (SP)

a$TKB, = (SP)

;sPICK UP CHAR

(SP) ,43
9%

22IS IT A CONTROL-C?

s JBRANCH IF NO

BPL

112402
177600

move
8IC

066564
066570

021627
001015

000003

cMP
BNE
TYPE

000001

000100
064154

112340

ADD

8%:

CMPB
BNE
MOV

#100,a8TKS

JMP

SHUT2

000025

067337
000006

tMP
BNE

108

20%:

ADD

#6,SP

000015

10%:

CTMMP

TYPE

000004

(SP) 425

LSCNTLU

19%

(SP) ,M15

16%

4SP)
11$

SINTAG.
M

000100

112244

#100,38TKS

065220
000060

000001

000002
0006
001217
001151

112266

2(SP) ,aSWR

#6,SP

. SCRLF

158

15%:
16%:

JSR

000067

PC,STYPEC

(SP) 460
18%
gSP).#67

000060
000002

#60, (SP)+

2(SP)
17%

000002
177776

178:

001216

18%:
.DSABL

;.60 TYPE--OCTAL ASCIIC(ALL DIGITS)

. sPROMPT FOR NEW SWR

-(SP)
=(SP)
a$TKS

117746
042716

001151

- SMNEW

CLR
CLR
TSTB

066554
066560

-—d ad

TTY

MACRO v03.01

INC
B8R
TYPE
BR
LSB

(SP)
(SP)
(SP)

2(SP)
-2(SP), (SP)

$QUES

208

;. CLEAR COUNTER
;s THE NEW SWR

;s
IF NOT TRY AGAIN

JcMAKE IT 7-BIT ASCII
s sBRANCH IF NOT

;:YES, ECHO CONTROL-C (*C)
;. CLEAN UP STAC(CK
;JREENABLE TTY KEYBOARD INTERRUPTS?
;;ALLOW TTY KEYBOARD INTERRUPTS
;o CONTROL=-C RESTART

;1S IT A CONTROL-U?
s sBRANCH IF NOT
2 YES, ECHO CONTROL=-U (*W)
;c IGNORE PREVIOUS INPUT
J:LET'S TRY IT AGAIN

JoIS IT A <CR>?
;cBRANCH IF NO
soYES, IS IT THE F]RST CHAR?
;cBRANCH IF YES
2 sSAVE NEW SWR
;o CLEAR UP STACK

;;ECHO <CR> AND <LF>

;;RE~ENABLE TTY KBD INTERRUPTS?
;:BRANCH IF NOT
;2RE-ENABLE TTY KBD INTERRUPTS
2 sRETURN

;cECHO CHAR
J:CHAR < 0?

;:BRANCH IF YES

;:CHAR > 77
;sBRANCH IF YES
J:STRIP=-OFF ASCII
2:1S THIS THE FIRST CHAR
;:BRANCH IF YES
J:NO, SHIFT PRESENT
b
CHAR OVER TO MAKE
b
ROOM FOR NEW ONE.
;sKEEP COUNT Of (CHAR
;.SET IN NEW CHAR
JoGET THE NEXT ONE

J3TYPE

72<CR><LF>

;:SIMULATE CONTROL~U

| CZRMOAQ RMOS/3/2 FCTNL TST 3
TTY

INPUT ROUTINE

MACRO v03.01

K
_5
11-APR-80 13:39:53 PAGE 38-11

SEQ 0268
::tttttt’tt't'ttttfitfit*t"t'ttttttttttttfitit'tt*t'tititttittttttt

s*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM
s*CALL:
;Y
RDCHR
2.GET A CHARACTER
o
RETURN HERE
;s CHARACTER IS ON
* W
;;WITH PARITY BIT
011646

000004
000004

000002

$RDCHR: MOV

MOV

067022
648
1%:

066136
066136
177102
006142
066142
066144

000004
066145

066142

2%:
e

(SP) ,-(SP)

4(SP) ,2(SP)

THE TTY
FROM THE QUEUE
THE STA(K
STRIPPED OFF

:sPUSH DOWN THE PC AND

;2 THE PS

CLR
CLR
MOV

4(SP)
-(SP)
#6483 ,-(SP)

;sGET
;:PUT
.sPUT
:;POP

TST
BEQ
DEC
Mov8
INC
CMP
BNE

$TKCNT
1%
$TKCNT
a$TKQOUT,4 (SP)
$TKQOUT

;;WAIT ON A CHARACTER

RTI

MOV

RTI

READY FOR A CHARACTER
NEW PS ON STACK
NEW PC ON STACK
NEW PC AND PS

s ;DECREMENT THE COUNTER
..GET ONE CHARACTER
;UPDATE THE POINTER

SIKQOUTANSTKQEND” ..DID IT GO OFF OF THE END?

2
; sBRANCH 1F NO
#$TKQSRT,$TKQOUT ; ;RESET THE POINTER
TURN
.

AR AR AR AR AR A AN AN AN AR AN AN AR R ARA AR R AR RN NN

ARAARAN

AN RNANNNRARSR

s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY
s*CALL:
)
RDLIN
;o INPUT A STRING FROM THE TTY
*
RETURN HERE
; cADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
s TERMINATOR WILL BE A BYTE OF ALL 0'S
$RDLIN:

067322
067332

18:

2%:

000177

000134
067320
177777

108:

067320

005016

122713

000025

CMP

RDCHR
MOVB

7$:

(SP)+,(R3)

#177.,(R3)

TST
BNE

(SP)
6%

BNE

;:SAVE R3

;sCLEAR THE RUBOUT KEY
::GET ADDRESS
2;BUFFER FULL?
;:BR IF YES
;.60 READ ONE CHARACTER FROM THE TTY
;:GET CHARACTER
zoRLBOUT
..IS IT

‘:BR IF

MOVB

#'\,9%

STYPE A BACK SLASH

MOV
DEC

#-1,(SP)
R3

::SET THE RUBOUT KEY
; ;BACKUP BY ONE

(R3) 9%

..SETUP TO TYPEOUT THE DELETED CHAR.

(SP)
7%

..GO READ ANOTHER CHAR.
2 JRUBOUT KEY SET?
;:BR ]F NO

(MP

.93

R3 ASTTYIN

ég }’HIS THE FIRST RUBOUT?

,.STACK EMPTY?
;BR IF YES

és

MOvVB

#'\,9%

;;TYPE A BACK SLASH

(MP8

#25, (R3)

;. CLEAR THE RUBOUT KEY
;. 1S CHARACTER A CTRL J?

TYPE

067320

#STTYIN+8.
,R3

(MP8B

MOVB

5%:

067320

B8LOS

BLO

067320
067320

000134

R3,-(SP)
~(SP)
#STTYIN,R3

TYPE

6%:

067322

MOV
CLR
MOV

TST
BEQ

TYPE
(LR

.93
(SP)

;GO TYPE

CZRMOAO RMOS/3/2 FCTNL TST 3

TTY

INPUT ROUTINE

MACRO v03.01

067206
067210

001003
104401

067337

067216

122713

000022

067226
067232

104401
104401

001217
067322

067240

104401

001216

A ¥

067246
067252
067256

111337
104401
122723

06732C
0673
000013

3s:

067264
067270

105063
104401

177777
001220

067302
067310
067316
067320
067321
067322
067332
067337
067344
067351
067362

016666
012766
000002
000
000

000004
067322

136
136
136
015
040

103
125
107
012
040

BNE

TYPE

8%:

:
9%

BNE
CLRB

#22,(R3)
3s
(R3)

:sBRANCH IF NO
;sCLEAR THE CHARACTER

TYPE
BR

$STTYIN
2

B8R

CMPB
BNE
CLRB

#15,(R3)+
2%
-1(R3)

TST

(SP)+

B8R
CMPB

TYPE

MOvB

;:GO START OQVER
;:1S CHARACTER A 'TMR'"%

,SCRLF

SITYPE A 'CRTM & 'LF"

,$QUES

SSTYPE A

(83).98

;.ECHO THE CHARACTER

S:TYPE THE INPUT STRING
+:60 PICKUP ANOTHER CHACTER

s sCHECK FOR RETURN
;;LOOP IF NOT RETURN
JcCLEAR RETURN (THE 15)

LSLF

J;TYPE A LINE FEED

(SP)+,R3
(SP) ,-(SP)
4(SP) ,2(SP)
HSTTYIN,4(SP)

.BYTE

RT1

.BYTE
.BLKB

. CLEAN RUBOUT KEY FROM THE STACK

:;RESTORE R3
..ADJUST THE STACK AND PUT ADDRESS OF
HH
FIRST ASCII CHARACTER ON IT

2 :RETURN

2 STORAGE FOR ASCI] CHAR.

0
8.

bR1
b

NEW =/

OCTAL NUMBER FROM THE TTY

AN AR R RN AN

R A AR

RDOCT
RETURN HERE

AR AR AR RN R AR AR

011646
016662

000004

000002

$RDOCT: MOV

RO,-(SP)

..PUSH RO ON STACK

MOV
MOV

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

RDLIN
MOV

MOvVB
BEQ
ASL
ROL
ASL

38|

T NUMBER

J:PUSH R1 ON STACK
;:PUSH R2 ON STACK

(SP)+ RO

JJREAD AN ASCIZ LINE
;sGET ADDRESS OF 1ST CHARACTER

(RO) +,-(SP)

s:PICKUP THIS CHARACTER

3s
R1
R2
R1

;;CLEAR DATA WORD

..IF ZERO GET OUT
%2
L)

TTY AND

. ;READ AN OCTAL NUMBER
;:L0M ORDER BITS ARE ON TOP OF

,,PROVIDE SPACE FOR THE

4(SP) ,2(SP)

gtg

2%:

NUMBER FROM THE

(SP) ,-(SP)

MOV

MoV

1%:

(ASCII)

AN RN RN AANRR

:;HIGH ORDER BITS ARE IN SHIOCT

067374
067376

TO TYPE

/72C/<15><12>
;cCONTROL ''C'’
/72U/<155<12>
;sCONTROL 'V’
/72G/<15><12>
::CONTROL '%6'’
<155<12>/SWR = /

:*CHANGE IT TO BINARY.

THE

2 s TERMINATOR
;;RESERVE 8 BYTES FOR TTY INPUT

*THIS ROUTINE WILL READ AN OCTAL

s*CALL:

'2°

*:CLEAR THE BUFFER AND LOOP

MOV
MOV
MOV
MOY

$TTYIN:
$CNTLC: LASCIZ
SCNTLU: ASCIZ
SCNTLG: LASCIZ
SMSWR:
LASCIZ
SMNEW:
LASCIZ
.EVEN
.SBTTL
READ AN
AR

;<BR IF NO

;:TYPE A CONTROL 'V’

TYPE

000002
000004

SEQ 0269

LSCNTLU

TYPE

015
015
015
123
116

11~APR-80 13:39:53 PAGE 38-12

THE STACK

CZRMOAOD RMOS/3/2 FCINL TST 3

READ AN OCTAL NUMBER FROM THE

067436

0676440

TTY

M5
11-APR-80 13:39:53 PAGE 38-13

006301

006102

067442
067446
067450
067452

062716
062601
000764
005726

067460
067464
067466
067470
067472
067474

010237
012602
012601
012600
000002
C00000

067454

MACRO v03.01

010166

ASL

ROL

177770
38:

000012

067474

8IC
ADD
BR
TST

MOV

MOV
MOV
MOV
MOV
RTI
$HIOCT: .WORD
.SBTTL

;.8

#°C7,(SP)
(SP)+,R1
2%
(SP)
+

;.STRIP THE ASCII JUNK
¢;ADD IN THIS DIGIT
;.LOOP
;- CLEAN TERMINATOR FROM STACK
;o SAVE THE RESULT

R1,12(SP)

R2,$HIOCT
(SP)+,R2
(SP)+,R1
(SP)+,R0
0

TRAP DECODER

AR AR AR A

SEQ 0270

AR AR AR NN

+.POP STACK INTO R2

;cPOP STACK INTO R1

;sPOP STACK INTO RO

< sRETURN

2 sHIGH ORDER BITS GO HERE

A AN AR

AN RN AN ANNANRRAANRA AN

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

RR PR

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.

067476
067502
067506
067512
067514
067516
067522
067524
067526
067530
067534

016646
042716
012746
007002
C 046
(16620
005740
111000
006300
016000
000200

000002
000020
067514

$TRAP:

1$:

000002

067550

MOV
BIC
MOV
RTI
MOV
MOV
TST
MovB
ASL
MOV
RTS

2(SP) ,~(SP)
#20, (SP)
#1$,-(SP)
RO,-(SP)

2(SP) ,RO
-(R0O)
(RO) ,RO
RO
$TRPAD
(RO) ,RO
RO

;;ASSUME THE STATUS OF
;. THE CALLER=-~DO NOT ALLOW
;2 T-BIT TRAPS
;sSET THE NEW STATUS

:sSAVE RO

::GET TRAP ADDRESS

; ;BACKUP BY 2

:;GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;INDEX TO TABLE
;:G0 TO ROUTINE

scTHIS IS USE TO HANDLE THE ''GETPRI'' MACRO
067536
067540
067546

011646
016666
000002

000004

000002

$TRAPZ: MOV
MOV
RTI
.SBTTL

(SP) ,-(SP)
4(SP) ,2(SP)

:;MOVE THE PC DOWN

;;MOVE THE PSW DOWN

;;RESTORE

THE PSW

TRAP TABLE

s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

;%BY THE '‘TRAP'' INSTRUCTION.
:

067550

067536

067552
067554
067556
067560
067562
067564

065006
064604
064560
064620
064334
064260

067566

066524

ROUT INE

$TRPAD: .WORD

$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS
$TYPBN

$GTSWR

STRAP?

;:CALL=TYPE
:CALL=TYPOC
::CALL=TYPOS
;;CALL=TYPON
::CALL=TYPDS
::CALL=TYPBN

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

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)
TYPE BINARY (ASCII) NUMBER

;;CALL=GTSWR

TRAP+7(104407)

GET SOFT~SWR SETTING

CZRMOAD RMOS/3/2 FCTINL TST 3

TRAP TABLE

N 5
MACRO v03.01 11-APR-80 13:39:53 PAGE 38-14

067570
067572
067574
067576
067600
067602

.SBTTL

SEQ 0271

$CKSWR
TRAP+1 0 ( 10441 ? ) TEST FOR CHANGE IN SOF T-SWR
s ¢ CALL=CKSWR
$RDCHR
TRAP+11 ( 10441 ) TTY TYPEIN CHARACTER ROUTINE
2 s CALL=RDCHR
SRDLIN
TRAP+12 ( 10441 2 ) TTY TYPEIN STRING ROUTINE
2 2CALL=RDLIN
S$RDOCT
TRAP+13 g 10441 2) READ AN OCTAL NUMBER FROM TTY
2 CALL=RDOCT
$SAVREG . ;CALL=SAVREG
TRAP+1 g 10441 ) SAVE RO=-RS ROUTINE
$RESREG ;;CALL=RESREG ~ TRAP+1 ( 10441 5 ) RESTORE RO-R5 ROUTINE
POWER DOWN AND UP ROUTINES

S RRARARARRANAAAAAARAAARA
AN AN RRNARNARAAANARAARNARAANAAANCRRA AR

012737

067744
000340

000024
000026

; POWER DOWN ROUTINE

#SILLUP,Q#PWRVEC ;;SET FOR FAST UP

$PWRDN: MOV

#340,a#PWRVEC+2 ;:PRIO:7

RO, -(SP)

:ePUSH RO ON STACK

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

2:PUSH R1 ON STACK
:sPUSH R2 ON STACK

R4,-(SP)
R5,-(SP)
asun ~(SP)
SP, SSAVR6

::PUSH
;;PUSH
2:PUSH
;:SAVE

R3,~-(SP)
111314

067750
067656

;sPUSH R3 ON STACK

noPURUP A#PWRVEC

000024

=2
e RARAAA AR

012737
013706

067744
067750
067750

000024

067750

R A RN AR A AN

;cHANG UP
AR

AR AR RRARARARARAARRARA AR

1%:

INC
BNE
MOV

$SAVR6

.WORD

S$ILLUP: HALT

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

:;POP STACK INTO R3
:POP STACK INTO R2
:;POP STACK INTO R1

000403
112737
010046

::POP STACK INTO R4

::POP _STACK INTO RO

JREPORT THE POWER FAILURE

$POWER

;;POWER FAIL MESSAGE POINTER

;. THE POMWER UP SEQUENCE WAS STARTED
;. BEFORE THE POWER DOWN WAS COMPLETE
:sPUT THE SP HERE

$SAVR6: O
$POWER: .ASCIZ
<15><12>'POWER"’
.EVEN
.SBTTL
APT COMMUNICATIONS ROUTINE
MR

112737
112737

AANSN

#SPWRDN ,a#PWRVEC ;:SET UP THE POWER DOWN VECTOR
#3460 ,3#PWRVEC+2 ;;PRIO:7
$PWRMG:

;oWAIT FOR THE INC

;:0F
WORD
:sPOP STACK INTO aSwWwR
::POP STACK INTO R5

(SP)+,R0O

000024
000026

120

AAAA AR

1$
(SF)+,aSWR
(SP)+,R5

(SP)+ Ré&

012

;.SET UP VECTOR

:POWER UP ROUTINE
#SILLUP ,3#PWRVEC ;;SET FOR FAST DOWN
$PWRUP: MOV
$SAVR6, SP
;sGET SP
MOV
$SAVR6
:sWAIT LOOP FOR THE TTY
CLR

111246

067604
000340

R4 ON STACK
RS ON STACK
aSWR ON STACK
SP

000001
000001

070226
070224

$ATY1:
$ATY3:

000001

070226

$ATYL:
$ATY(:

SRRttt

MOVB
MOVB

B8R
MOVB
MoV

sttt

#1,SFFLG
#1,SMFLG

SATY(

sttt

ittt

;.70 REPORT FATAL ERROR
;.TO TYPE A MESSAGE

#1,8FFLG

;. TO ONLY REPORT FATAL

RO,=(SP)

:;PUSH RO ON STACK

ERROR

CZRMOAO RMOS/3/2 FCINL TST 3

APT COMMUNICATIONS ROUTINE

070010
070012
070016
070020
070026
070030

010146
105737

MACRO v03.01

B 6
11-APR-80 13:39:53 PAGE 38-15
SEQ 0272
MOV
1STB

070224
000001

001242

000100

001243

000004
000002
001222

000004

001236

000004
000002
177776
065006

1%:

105737
001416
005737
001413

070225
070226

::SHOULD TYPE A MESSAGE?
;IF NOT:

a4 (SP) ,RO
#2,4(SP)
??SGTYPE

. sGET MESSAGE ADDR.
. ;BUMP RETURN ADDR.

001242
118:

001224
000004
12%:

$MFLG:
$LFLG:
$FFLG:
APTSIZE
APTENV
APTSPOOL
APT(CSUP

RTS

.BYTE

BYTE

JoSEE IF DONE W/ LAST XMISSION?

J:IF NOT:

WAIT

(RO)+

;:PUT ADDR [N MAILBOX
;.FIND END OF MESSAGE

RO
RO, SMSGLGT

g:.iflSGTYPE

;.SUB START OF MESSAGE
;cGET MESSAGE LNGTH IN WORDS
;sPUT LENGTH IN MAILBOX
:;TELL APT TO TAKE MSG.

34 (SP) .48

::PUT MSG ADDR IN JSR LINKAGE

177776, ~(SP)
SCLSTYPE

..PUSH 155776 ON STACK

$FFLG
12%
SENV
12%
$MSGTYPE
118
@4 (SP) ,SFATAL
#2,4(SP)
SMSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+,R1
(SP)+,RO

..S?Ogé? REPORT FATAL ERROR?

#2,4(SP)

070226

000004
000002
001222
070226
070225
070224

ON STA(CK

..OPERATING UNDER APT?

2s
$MSGAD
, RO

001222

;:PUSH R1

NAPTENV,SENV

RO, SMSGAD

2%:

070136
000004

$QFLG
5

3s
F NOT:
BR
géPTSPOOL.SENVH ..SHOULD SPOOL MESSAGES?
;oIF NOT:
BR

001236
001240
000004

R1,=-(SP)

0
0
0

-BUMP RETURN ADDRESS

SCALL TYPE MACRO

;RUNNING LNDER APT?
BR
::IF NOT:

..FINISHED LAST MESSAGE?
;IF NOT:

WAIT

::GET ERROR #
: :BUMP RETURN ADDR.
;. TELL APT TO TAKE ERROR
; "CLEAR FATAL FLAG
;. CLEAR LOG FLAG
;:CLEAR MESSAGE FLAG
;;POP STACK INTY R1
;;POP STACK IMN.0 RO

¢ sRETURN

;sMESSG. FLAG
::LOG FLAG
;;FATAL FLAG

CONSOLE MESSAGES

MACRO v03.01

3 070230

.SBTTL

200

106

SCTMSG:

114

EQUALS:
ALL:

.ASCIZ

<CRLF>30N THIS DRIVEa
a=3a
@ALLa<CRLF>

000
117

COMMA:
MSHELP:

,ASCIZ
.ASCII

a, @
<CRLF>3TO

200
G75

117
000

7 070336

040

077

040

200
200
200
200

120
103
127
124

101
117
110
131

8 070342
9 070345

10 070433
11 070521
12 0.7607
13 0. 671
14 070722
15 070722
16 070755
17 071010
18 071026
19 071070

20 071110
21 071144
22 071156
23 071207
24 071210
25 071275
26 071352
27 071353
28 071374
29 071410
30 071416
31 071436
32 071453
33 071472
34 071504
3¢

101

054
200

200
200
200
040
126

040
102
040
200
200
200
200
040
200
104
040
040
040
040
040

114

040
124

103
125
102
114
105

CONSOLE MESSAGES

101

4 070310
5 070327

6 070331

C .6
11-APR-80 13:39:53 PAGE 39

116

110
123
125
111
103

114
122
114

111
040
111

124
101

131
116

077
104
122
m
116
116
117
17

111
122
111
123
117
117
106
116

QUES:

UBUSQST:
CNSLOO:
CNSLO1:
CNSLO2:
(CNSLO3:

CNSLO4:
CNSLOS5:
CNSLO6:
CNSLO7:
CNSLO8:
CNSLO9:
MSDRVS:
MSGDRV:
LODEV:
NOTPRS:
NOTAVL:
OFFLIN:
ONLINE:
.EVEN

.ASCI]

ASCIZ
.ASCIZ

.ASCIZ

LASCII
LASCII
.ASCI1
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
LASCI1
.ASCIZ
.ASCI1
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

<CRLF>QFAILED TO RECOVER THE BAD SECTOR FILE (DEC 144)3

@ ?a

ENSURE THAT NO BAD HEADERS ARE LEFT ON THE DISKa
<CRLF>@IPACK,
THIS PROGRAM SHOULD BE HALTED BY TYPING A (“()a
<CRLF>3CONTROL C.
AS A RESULT,
THE PROGRAM WILL
BE HALTED]
<CRLF>@WHEN THE DRIVE UNDER TEST HAS COMPLETED TESTING.@<CRLF>
<CRLF>aTYPE HELP TEXT (Y/N) ? @
<CRLF>aCHANGE ADDRESSES (Y/N) ? &
<CRLF>3USE SAME DEVICES (Y/N) ? @
<CRLF>aBUS ADDRESS
@
@ LIMITS - LO= 160000 HI= 17XXXXa<CRLF>
@VECTOR ADDRESS
@

@ LIMITS - LO= 0, HI= 10008<CRLF><LF>
a@BR LEVEL @
@ LIMITS - LO= 0, HI= 78<CRLF><LF>
<CRLF>
<CRLF>QTYPE ''A'* TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a
<CRLF>3IAND TERMINATE INPUT WITH A CARRIAGE RETURN.d
<CRLF>
@ ?ILLEGAL INPUT@<CRLF>
<CRLF>/DRIVE(S): /
/DRIVE/
/ 1S LOAD DEVICE/
/ NOT PRESENT/
/ NOT AVAILABLE/
/ OFF LINE/
/ ON LINE /

SEQ 0273

meao

CZRMOAO RMO5/3/2 FCTNL TST 3

TABLE

WA —

FUNCTION CODE

D 6
11-APR~80 13:39:53 PAGE 40

MACRO v03.01

.SBTTL
;THE

FUNCTION CODE TABLE

FUNCTION CODE

TABLE

;EACH FUNCTION CODE.

SEQ 0274

IS USED TO DEFINE

STATUS CONDITIONS FOR

BIT USAGE IS AS FOLLOWS:

ATA - BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

:1F ATA SHOULD BE “ET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE,

NN = OV

:BIT 15 1S ZERO,
:NOTE

INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.

THAT ATA MAY BE

SET WHEN A COMMAND IS EXECUTED EVEN THOUGH

;1T IS NOT EXPECTED AS A RESULT OF THE COMMAND.

b Db

WCE - BIT 16 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

N — OV

IF OPI

OP] - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
ERRORS ARE ENABLED DURING THE EXECUTION OF

THAT COMMAND.

IVC =~ BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IvVC ERRORS ARE ENABLED DURING THE EXECUTION OF

THAT COMMAND.

WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CCOE
IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
;THE WRITE ERRORS WHICH ARE ENABLED ARE "WLE'', "WCF'', 'DPE'', 'UPE'".

IAE = BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCT1ON CODE
INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND.

AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE
;COMMAND,
THE ERRORS ENABLED BY THIS BIT ARE ‘‘TRE'', 'DLT'', 'NEM',

:'MxFOI

.LBT’I

'.AOE'.

BIT 08 IS NOT USED.

HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
:HEADER ERRORS INCLUDE ‘HCRC', "HCE'', "FER'', AND 'BSE''.

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF
;COMMAND.
THESE ERRORS INCLUDE 'MDPE'‘, 'DCK'‘, AND "ECH''.

;

BIT 05 IS NOT USED.

BIT 04 IS NOT USED.

;

BIT 03 IS NOT USED.

BIT 02 IS NOT USED.

;

BIT 01

:
gg 071516

57 071516

020000

.WORD

IS NOT USED.

ILF = BIT 00 IS SET IF

FNCDTB:

THE FUNCTION CODE IS ILLEGAL.
;FUNCTION CODE

OPI

~HAT

;NOP

TABLE

"‘lnj

CZRMOAO RMO5/3/2 FCTNL TST 3

CZRMOAQ RMOS5/3/2 FCINL TST 3

FUNCTION CODE

58 071520
59 071522
60 071524
61 071526
62 071530
63 071532
64 071534
65 071536
66 071540
67 071542
68 071544
69 071546
-

70 071550

071552

72 071554

73 071556

74
75
76
77
78
79
80

071560
071562
071564
071566
071570
071572
071574

81 071576
82 071600
83 071602
84 071604
85 071606
86 071610
87 071612
88 071614
89

TABLE

MACRO v03.01

11-APR~80 13:39:53 PAGE 40-1

SEQ 0275
.WORD
.WORD

OPI!ATA!ILF!IVC

ATA!OPI!IVC!IAE
ATA!OPI!IVC

oPl
OPI!IVC
OPI!ATA!IV(C
OPI!ATA!IVC
OPl
OPl
OPI!ATA!ILF!1IVC
OPI'ATA!ILF!IVC

ATA!OPI!IVC!IAE

OPI!ATA!ILF!1IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI'ATA!ILF!IVC
OPI'!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
WCE!OPI!IVC!IAE!AOE !HCE'ECH
WCE!OPI!IVC!IAE'AOE 'HCE'ECH
OPI'ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!IVC!WLE!IAE!AOE
'HCE
OPI!IVC!WLE!IAE'AOE
OPI!ATA!ILF!IVC
OP] 'ATA!ILF!IVC
OPI!IVC!IAE!AOE
!HCE 'ECH
OPI!IVC!IAE!AOE 'HCE'ECH
OPI!ATA!ILF!IVC
OPI'ATA!ILF!IVC

sILLEGAL FUNCTION (2)
s SEEK

*RECAL JBRATE

‘DRIVE CLEAR

sRELEASE

;OFFSET
JRETURN TO CENTERLINE
JREAD IN PRESET
sPACK ACKNOWLEDGE
s ILLEGAL FUNCTION (24)
s ILLEGAL FUNCTION (26)
:SEARCH
;s ILLEGAL FUNCTION (32)
s ILLEGAL FUNCTION (34)
s ILLEGAL FUNCTION (36)
s JILLEGAL FUNCTION (40)
s ILLEGAL FUNCTION (42)
s ILLEGAL FUNCTION (44)
s ILLEGAL FUNCTION (46)
SWRITE CHECK DATA
SWRITE CHECK HEADER AND DATA
sILLEGAL FUNCTION (54)
sILLEGAL FUNCTION (56)
;WRITE DATA
JWRITE HEADER AND DATA
sILLEGAL FUNCTION (64)
sILLEGAL FUNCTION (66)
sREAD DATA
sREAD HEADER AND DATA
;ILLEGAL FUNCTION (74)
sILLEGAL FUNCTION (76)

ATTENTION (ATA)

TABLE

;

3 071616

4 071617

5 071620
6 071621
7 071622

8 071623
9 071624
}? 071625

MACRO v03.01

0.0

004
010

020

040
100
200

SEQ 0276
.SBTTL

002

11-APR-80 13:39:53 PAGE 41

ATNTBL:

ATTENTION (ATA)

.BYTE

BYTE

1.
2.

BYTE
.BYTE

4,
8.

.BYTE
BYTE
BYTE

32.
64.
128.

BYTE

16,

TABLE

CZRMOAO RMOS/3/2 FCTNL TST 3

NO
SO

FARKRER

071664

40
41
42
43
464
45
46
47

071734
071736
071740
071742
071744
071746
071750
071752

48 071754

49 071756

50 071760
51 071762
52 071764
53 071766
56 071770
55 071772
56 071774
57 071776

ONES:

.WORD
. WORD

.WORD
.WORD
.WORD
.WORD

@
o
a3

:
ZEROS

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

21 071666
22 071670
23 071672
24 071674
25 071676
26 071700
27 071702
28 071704
29 071706
30 071710
31 071712
32 071714
33 071716
34 071720
35 071722
36 071724
37 071726
38 071730
39 071732

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

—

71656

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

N)=2OO =N ~

bbb
b b2

joleleoleolololalolole)
NN
NNNNNSNN

AN =

b b od od —d

b d b

NS WA =20V

~NONWN

RGDTPT:
MIXED:

DATA PATTERN TABLE

e
QNW=YW—O
PNON
=2 \Ne o o
~

.SBTTL

SEQ 0277

G 6
11-APR-80 13:39:53 PAGE &2

DATA PATTERN TABLE

MACRO v03.01

=SV
W=
QO —=2\NNOB N0 *

CZRMOAQ RMOS5/3/2 FCTNL TST 3

CZRMOAQ RMOS/3/2 FCTNL TST 3

DATA PATTERN TABLE

58 072000
59 072002
60 072004

61 072006
62 072010
63 072012
64 072014
65 072016
66 072020
67 072022
68 072024
69 072026

MACRO v03.01

H 6
11-APR-80 13:39:53 PAGE 42-1

SEQ 0278

020000
010000
004000
002000
001000
00

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

70 072030
71 072032
72 072034

73 072036
74 072040
75 072042
072044
072046
072050
072052
072054
072056

-—

N
o

H
nN

-—b

o
~N
N

=
2S38IRER WA

HWN=O

[olele]

b med
b
d
)
) e
d
d
nd e
b

b
b

76
77
78
79
80
81

8192.

4096.

EARLY:

177767

—

DATA PATTERN TABLE

115 072162
116 072164
117 072166
118 072170
119 072172
120 072174
121 072176

122 072200
123 072202
126 072204
125 072206
126 072210
127 072212
128 072214
129 072216
130 072220
131 072222
132 072224
133 072226
134 072230
135 072232
136 072234
137 072236
138 072240

139
1640
141
142
143
144
145

072242
072244
072246
072250
072252
072254

MACRO Vv03.01

I
6
11-APR-80 13:39:53 PAGE &42-2

177757
177737
177677
177577
177377
17€777
175777

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

173777
167777
157777
137777
077777
077777
137777
157777
167777

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

173777
175777
176777
177377

.WORD
.WORD
.WORD
.WORD

177577

.WORD

177677
177737
177757

177767
177773
177775
177776
177777

.WORD
.WORD
.WORD

ENRGDT
:

.WORD
.WORD
.WORD
.WORD
.WORD

65519,
65503.
65471.
65407.
65279.
65023.
64511,
63487.
61439.
57343,
49151.
32767.
32767.
49151.
57343,
61439,
63487.
64511.
65023.
65279.
65407.
65471.
65503.
65519.

65527.
65531.
65533,
65534.
65535.

SEQ 0279

CZRMOAO RMOS/3/2 FCTNL TST 3

TABLE

SEQ 0280

.SBTTL

072254

076650

072274

077042

19 072420

077414
077246
077246
077246
077246
077246

21 072440
22 072450

077246
077246

55 073130
56 073150
57 073162

-—b

g
G
P

(V]

000000
103232
100557
103603
103603

7662

b cd

101450
101101
077320
077246
100453
100453
100502

b b b
[ T Y o Yo QU U
OOONO
OO

100453
101374
101422

jelelela)
—t b PN wd A
000008
\) =D b
ononrRNINN

56 073110

:
EMT4

40 072670
41 072700
42 072706
43 072716
44 072730
45 072746
46 072764

101335
103137

b e

37 072640
38 072650
39 072660

077246
077246
077246
077246
077246
077246
077246
077246
077246
077246
077246
101147

35 072616
36 072626

EMT13:
EMT14:
EMT1S:
EMT16:
EMT17:
EMT20:
EMT21:
EMT22:
EMT23:
EMT24:
EMTZ2S:
EMT26:
EMTZ27:
EMT30:
EMT31:
EMT32:
EMT33:
EMT34:
EMT3S:
EMT36:
EMT37:
EMT4LO:

b ed e

23 072460
26 072470
25 072500
26 072510
27 072520
28 072530
29 072540
30 072550
31 072560
32 072570
33 072600
34 072610

EMT3:
EMTS:
EMT6:
EMT7:
EMT10:
EMT11:
EMT12:

077246

20 072430

EMTT:
EMT?2:

EMT4:

000000
077257
077331

=2N=0O
NN
—

6 072370
7 0726400
8 0726410

000000

103671

-—
olelele] O§

& 072354
5 072362

103644
101631
077137
077204
077246
077320

wvwrnon
NN
VN =N

8 072310
9 072316
0 072324
1 072330
2 072334
3 072342

077042

000000
076734
0726777
077072
077204
101063

-— b O (N

7 072302

076717
076717

b ovnd b b b b

072260
072266

b b el ——b

P4
3
4
5
6

J
6
11-APR-80 13:39:53 PAGE 43

EMT42:
EMT43:
EMT44:
EMT4S:
EMT46:
EMT47:
EMTSO:
EMTS51:
EMTS2:
EMTS3:
EMTS4:
EMTSS:
EMTS6:
EMTS7:
EMT6E0:
EMTO1:
EMTO2:
EMT63:
EMT64:
EMT65:
EMT66:
EMT67:

ERROR MESSAGE TABLE

EMS1,0
EMS2.EMS3,0
EMS2.EMS4
.0
EMSS
. EMS6.0

EMSS
. EMS1D,0

EMS167 ,EMS64 0

EMS110.,EMS170,0
EMS7.0

Ems10,0

EMS11.EMS12.0
EMS13.EMS14.EMS15,EMS16.0

4
EMS17.EMS6.0

EMS11.EMS21.0
EMS11.EMS22.EMS27.
EMS11.EMS23.EMS30.
EMS11.EMS2
. EMS30.
4
EMS11.EMS2
. EMS27.
5
EMS11.EMS26.EMS27.
EMS11.EMS31.EMS30.
EMS11.EMS32.EMS30.
EMS11.EMS33.EMS30.
EMS11.EMS34 .EMS30.
EMS11.EMS35.EMS30,
EMS11.EMS36.EMS30.
EMS11.EMS37.EMS30.0
EMS11_EMSL0.EMS30.0
EMS11.EMS41.EMS30.0

elelelelololelololols

ERROR MESSAGE

MACRO v03.01

EMS11.EMS42.EMS30.0
EMS11.EMS43.EMS30.0
EMS11.EMS44 .EMS30.0
EMS11.EMS4S.EMS30.0
EMS66.EMS20.0
EMS75.EMS141 EMS76.0

EMS144 ,EMS145 EMS72.EMS76.0
EMS47 ,EMSS3,EMS76.0
EMS77 .EMSS3 EMS76.0

EMs100.
M55, EMs76.0
EMS101.EMS53 EMS76.0

EMS65
., EMS64, 0

EMS13.EMS15.EMS63.,0
EMS11,EMS46.EMS30.EMS67,0

EMS47.EMSS3.EMS67.EMS115,EMS140,EMS1 41,0

EMS47 . EMS53 EMS67 . EMS 115.EM S141.EMS164.0
1
EMSSO EMSS3 gnsa 0

EMS142,EMS143,

EMSE3, EMS67,0

EMSS1 EMS72 ,EMS67,EMS115, EMSS0,EMS70.0

EMS167.EMS7S
. EMS67.0

EMSS6,EMS67,EMS115.EMS150,EMS152,
EMS70.0
EMS71.EMSS6 .EMS67,EMST115 EMST150,EMS152
. EMS72.0

EMS140,EMSE7,EMS115,EMSL
7. EMS70.0

EMS150,EMS152,EMS70,EMS115, EMSS6,EMS73,EMS67.0

EMSS52, EMS205,EMS214.

EMS206 . EMS115,EMSST,EMS75.,0

EMS165.EMS103, EMS72.EMS124 .0
EMS165.EMS103.EMS72.EMS171.0

(a2l

CZRMOAO RMOS/3/2 FCTNL TST 3

CZRMCAO RMOS/3/2 FCTNL
ERROR MESSAGE TABLE

OO
OO0O0O0O

a8
%

5143,EMS72,0

OOOXM
"

-t

N
N

o
&
&

.
.

— de
b b N N
VIV
=NO
SNV U

EMS126 ,EMS132,
EMS1X1,EMS132,
EMS171,EMS13
EMS130,EMS13
EMS140 ,EMST
EMS142,EMST
EMS144 ,EMST
EMS144 ,EMST
EMS150,EMS1
EMS147 ,EMST
EMS147 ,EMST
EMS161,EMST

EMS121 ,EMS132 EMS
EMS137 ,EMS132 ,EMS
EMS124 ,EMS132 ,EMS

mmmmmmmmmmmm m

EMT160:

.
.

EMS121 ,EMS132,EMS134 ,EMS123.0
EMS122,EMS132 EMS134,EMS123,0
EMS123,EMS132,EMS134 EMS123,0
EMS126 ,EMS132,EMS134,EMS123.0
EMS125,EMS132,EMS134 ,EMS123.0
EMS126,EMS132 EMS134,EMS123.0
EMS137 ,EMS132.E
.EMS123,0
EMS130,EMS132,E
123,0
EMS131,EMS132 E
123.0

NN
S &S acd
O = A N NN NINOND

103431

EMT130:
EMT131:
EMT132:
EMT133:
EMT134:
EMT135:
EMT136:
EMT137:
EMT140:
EMT141:
EMT142:
EMT143:
EMT144:
EMT145:
EMT146:
EMT147:
EMT150:
EMT151:
EMT152:
EMT153:
EMT154:
EMT15S:
EMT156:
EMTIS7:

EMS110.EMS112.EMS116,EMS111,0
EMS113.EMS4.0
EMS113.EMS3.0
EMS110.EMS115,EMS116,EMS117.EMS114.0
EMS113.EMS120.0
EMS121.EMS132.EMS133.0
EMS122.EMS132. EMS133.

102272
102324
102367
102770

EMS165,EMS100,EMS163,0

EMS165
. EMS77 .EMS163.0
EMS164.EMS1465
. EMSS3 EMS163,EMS115,EMS143,EMS70.0

EMT112:
EMT113:
EMT114:
EMT115:
EMT116:
EMTI117: .
EMT120:
EMT121:
EMT122: .
EMT123: .
EMT124:
EMT125:
EMT126:
EMT127: .

EMS167,EMS73.EMS163.0

EMS147.EMS151
EMS74 .EMS163.0
EMSS1,EMS74 ,EMS163,EMS115, EMSS0,EMS70.0

EMS75,EMS141,EMS163.EMS115.EMS47,EMS70.0
EMS75 EMS150.EMS163.EMS115.EMSS6.EMS73.0

BOOBBGOOTO00
a
&
EEEEE:
b ek b e ) e cnd cand wd
b b
b b ud e e b cncd b
WVNWNWNO
&
W
QO O N—=2OO\O° YNNIV
NS S
MMMOOOOO0O0O0O000
ommma
3
&
NN A%

.
.
.
.

EMS142,EMS143,EMS5
S, EMS163.0

pf =D 0008
N NN
— b

—

d mh
e
b e
e cad
o
o
d e
d
b
b

EMSS56.EMS53
. EMS163.0
EMS71.EMS56.EMS163.EMS115,EMS150,EMS152
,EMS72.0
EMSSO EMSS53 EMS163.0

102471
102527
102127
102227
102127
102770
102272
102324
102367
102527
103720
102471
103025
103074
103137
103137
103232
103215
103215
103446

EMS47.EMS72,EMS163,EMS115,EMS140,EMS141,0

EMS47,EMS72.EMS163.EMS115.EMS141.EMS72,0

95 073744
9% 073756
97 073770
98 074000
99 074010
100 074020
101 074030
102 074040
103 074050
104 074060
105 074070
106 074100
107 074110
108 074122
109 0764134
110 074152
111 074170
112 074202
113 074214
114 074226

073674
073706
073720
073732

EMS71.EMS101,EMS165,0

-—

102172
102227
102272
102324
102367
102770
102471
102527
102127
102172
102227

EMT73:
EMT?74:
EMT?5:
EMT?76:
EMT77:
EMT100:
EMT101:
EMT102:
EMT103:
EMT104:
EMT10S:
EMT106:
EMT107:
EMT110:
EMT111:

EMS46,EMS20,EMS163,0

80 073536
81 073546
82 073556
83 073566
84 073576
85 073606
86 073616
87 073626
88 073636
89 073650
90 073662

91
92
93
94

101755
101631
101755
102127

EMT70:
EMT?71:
EMT72:

073476
073504
073520
073526

103476
103476
103476
103476
103476
103476
103476
100567
103476
103476
103476

76
77
78
79

100426
101256
100453
100453
100652
101256
100502
103074
101335
101335
103644
103215
100531
103603
103603
103137
101631
101755

K
6
11-APR-80 13:39:53 PAGE 43-1

SEQ 0281

lelelelelalel

58 073176
59 073204
60 073214
61 073232
62 073250
63 073260
64 073300
65 073310
66 073322
67 073340
68 073356
69 073366
70 073400
71 073416
72 073426
73 073436
76 073456
75 073470

MACRO v03.01

143,EMS70.0

115 074236

116 074250
117 076262
118 074272
119 074300
120 074306
121 074314
122 074322
123 074332
124 0764342
125 074352
126 074362
127 074374
128 074402
129 074410
130 074422
131 074434
132 074446
133 074460
134 074472
135 074510
136 074520
137 074530
138 074542
139 074550
140 074564
141 074600
142 074610
143 074630
144 074642
145 074652
146 074662
147 074672

077613

077630
100453
100453
100652
100424
104772
103644
103644
103644
103720
103720
101755
104115
104230
104230
104230
104230
104230
103232
100502
101534
101335
101335
100531
103074
100502
100557
100557
100652
100424
077672
100453

077651
077651

103476

MACRO v03.01

103376
103376

077454
077454
077454
077454

L 6
11-APR-80 13:39:53 PAGE 43-2

EMT161:

EMT162:
EMT163:
EMT164:
EMT165:
EMT166:
EMT167:
EMT170:
EMT171:
EMT172:
EMT173:
EMT174:
EMT175:
EMT176:
EMT177:
EMT200:
EMT207:
EMT202:
EMT203:
EMT204:

EMT20S:
EMT206:
EMT207:

EMT210:
EMT211:
EMT212:
EMT213:
EMT214:
EMT215:
EMT216:
EMT217:
EMT220:
EMT221:
EMT222:
EMT223:
EMT224:

EMT225:

EMT226:
EMT227:

EMT230:

9 074744

000000

104330
104355
104355

000000

EMT231:
EMT232:
EMT233:
EMT234:
EMT235:
EMT236:
EMT237:
EMT240:
EMT247:
EMT242:
EMT243:
EMT244:
EMT245:
EMT246:
EMT247:
EMT250:

.WORD

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

.WORD
.WORD
.WORD

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

EMS25,EMS27 ,EMS156,EMS160,0
EMS26.EMS27 -EMS156 S EMS160.0

EMS47.EMS165,EMS140,0
EMS47.EMS20,0

EMSS56.EMS20.0
EMS46 . EMS20 .0

EMS224 ,EMS20,0
EMS167.EMST54,EMS166,0

EMS167.EM
. EMS157.0
S154
EMS167.EMS154
. EMS155.0
EMS171.EMS132.EMS133.0
EMS171.EMS13
. EMS13%2 EMS123.0
EMS113.EMS177.0
EMS200.EMS201.0
EMS203.EMS141.EMS30,EMS202,0
EMS203.EMSS1,EMS30,EMS202,0

EMS203 . EMS204 ,EMS30, EMS202 .0
EMS203.EMSS0,EMS30, EMS202, 0

EMS203.EMS145,EMS30.EMS203,0

EMST150,EMS74,EMS202 EMST15.EMS152,EMS72.0

EMS50,EMS103 EMS72.0
EMS104,EMS73.EMS203,0

EMS75,EMS141.EMST1S.EMS140,0
EMS75.EMS150.0
EMSS51 . EMS72,EMS11S,EMSS0,EMS70.,0

EMS142.EMSSS.EMS115,EMS143,EMS?2.0

EMSS50,EMS103.EMSS3.
0
EMS52.
EMS166,
EMS205
EMS206,EMS115,E
.
MS51,EMS72.0
EMSS2,EMST17,EMSS6,EMS163,0
EMS56.EMS30,EMS64
., 0
EMS46.EMS30.EMS64
.0
EMS31.EMS30.EMS64
.0
EMSL7
. EMS30 . EMS64 .0

EMSS2.EMS117,EMS77.0
EMS52.EMS117 EMS63.0

.WORD

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

EMT251: .WORD

EMS167 ,EMS132,EMS207,0
EMS167,EMS132 ,EMS210,EMS125,0

EMS167,EMS211 ,EMS210,EMS207,EMS206,0
EMS212,EMS213,0

SEQ 0282

Mf\j

CZRMOAO RMOS/3/2 FCTNL TST 3
ERROR MESSAGE TABLE

PNV IV
N

N —

OOWNiAN

W=
VO
VIO
WL
WSOV

g28358 800 S8

b ek —D
b
b
b
b
b

W WO

- b

&H
W
L)

1%
(%,

oo~

b
b
b

e
b e
e

b e
b

b cd

v
w

b ed
ed

W
—_
oH

N
&~
~

|V,]

=
e
b
b

201 075554
202 075574

100502
103074

000000
103376

EMT252:
EMT253:

.WORD
.WORD

EMS165,EMS212.0
EMS147.EMS151.EMS156,EMS210,EM526.EMS27.0

077662

EMT255:

.WORD

EMS203.EMS167.EMS30.0

100652
104574

EMT260: .WORD
EMT261: .WORD

EMSS2.EMS117,EMSS6,EMS103.0
EMS52.EMS205.EMS220,EMS206,EMS115,EMSS1,EMS72.0

101476

EMT263: .WORD

EMSSO,EMS53,EMS102,0

077662
064
71

077662
077662

1064200

.WORD

101476
101476

EMT264:
EMT265:

.WORD
.WORD

102031
101476
101476

EMT267:
EMT270:
EMT271:

.WORD
.WORD
.WORD

100567
101476

EMT266: .WORD
EMT272: .WORD

101476

EMT273: .WORD

100202

EMT275: .WORD

100727

EMT274:

.WORD

100727
100727

EMT276:
EMT277:

.WORD
.WORD

100567

EMT301:

100727

101525

EMT300:

.WORD

EMT311:
EMT312:

.WORD
.WORD

EMT314:
EMT315:
EMT316:

.WORD
.WORD
.WORD

EMT320:
EMT321:

.WORD
.WORD

000000
100727

101525

EMT313: .WORD

EMT317: .WORD
EMT322:
EMT323:

.WORD
.WORD

EMSS1.EMS74.EMS102,EMS115,EMSS0,EMS70.0
EMS63.EMSS3 EMSS7,EMS115,EMS41,EMS146.0

EMS116,EMS5S.EMS4T,EMS57.0

EMS47,EMS53,EMSS57,EMS115.EMS140.0
EMS47.EMSS3.EMSS7.EMS115.EMS141.EMS72,0

EMSS56.EMS53.EMS57.EMS115.EMS150.EMS153,EMS70.0

EMS71.EMS56 EMSS3.EMSS7,EMS115,EMS150,EMS152
EMS72.0

EMS165.EMS101.EMS103.EMS57.0

EMS46,EMS30,EMS64,EMS57.0
EMSSO.EMS53.EMSS7.0

EMS104.EMS103.EMS53 EMS57.0
EMS105.EMS103.EMSS53 EMS57.0

EMS144.EMS145.EMS105,EMSS?.EMS115,EMS143.EMS70.0

EMS42,EMS103.EMSS3.EMSS7.0
EMS31.EMS103.EMS53 EMS57.0
EMS71.EMS31.EMS103.EMS57.0

EMS43.EMS103.EMSS57.0

EMS45.EMS103.EMS57.0
EMS44.EMS103.EMS57.0

EMS106,EMS20.0
EMS36,EMS103.EMS57.0

EMT324: .WORD

EMS173,EMS36.EMS103.EMS57.0

EMT326:

EMS13,EMS174 .EMS1S,EMS35 EMSS3,.EMS175.0

101525

EMT325:

101316
104016
100567

EMT327: .WORD
EMT330: .WORD
EMT331: .WORD

100727

EMT333:

.WORD

EMT334:

.WORD

EMT340:
EMT341:

.WORD
.WORD

077342

EMS75.EMS141,EMS102,EMS115.EMS47 EMS73.0

EMS50.EMS146,EMS11S,EMSS2,EMS117,EMS46.EMSS7.0
EMS142,EMS145,EMSS3 EMS57.0

.WORD
.WORD

100727
100727

EMS142,EMS143,EMSSS,EMS102.0

EMSSQ.EMS146.EMS115.EMS52, EMS117.EMS46.0
EMS47.EMSS3,EMS102,EMS
EMS140.0
115
EMS47.EMSS3.EMS102 EMS115 EMS141.EMS72.0

EMT307: .WORD
EMT310: .WORD

EMT305:
EMT306:

100727

EMSS56.EMS53.EMS102.EMS115,EMS150,EMS152,EMS70.0
EMS71.EMS56.EMS102 EMS115 EMS150 EMS152 EMS720

EMS165.EMS77.EMS103,EMS57.0

101063
100727

100567
100567

EMS104,EMS73.EMS202.0

EMT304: .WORD

.WORD

102031
100567

EMS203.EMS100.EMS30.0
EMS11,EMS46,EMS30,EMS102,0

EMS145,EMS100.EMST103,EMSS7.0

EMT303:

101525

EMS203.EMS101.EMS30,0

EMT302: .WORD

101525

.WORD

EMS172.EMS36.EMS103.EMS57.0

EMT332: .WORD

EMS147,EMS151,EMS74 EMST175.0
EMS66,EMSS3 EMS175.0
EMS33.EMS10%.EMSS3 EMS175.0
EMS40.EMS103.EMS53 EMSS7.0

100727
103274

EMT334: .WORD
EMT335: _WORD

EMS7S.EMS141.EMSS?,EMS115.EMS47 EMS?S.0
EMS75.EMS150.EMS152,EMSS7.EMS115.EMS56,EMS73.0

077776

EMT337: .WORD

EMS116,EMS117,.EMS34.0

EMT342: .WORD

EMSS52.EMS117,EMSS56,EMSS7.0

100567

100755
102034
077776
100623
100557

EMT256: .WORD
EMT257: .WORD
EMT262:

100567
100567
101525

224 076142
225 076152
226 076162
227 076174
228 076202

EMT254: .WORD

]

103603
103215
104230
104230
104230
077246
100557
57
34

0\08 (¥,] REN28IBIR RERB2BI
o
o
L=
o
o
~
~
~
~
~
S

D e

e ed

172 075032
173 075040
76 075056
5 075066
6 075076
7 075106
8 075120

101017

100601
000000

100652

EMSS1.EMS74,EMSS7,EMS115 EMSSO,EMS70.0

EMS60.EMS61,EMS 62,0

EMS34,EMS53,EMSS4.EMS111.0
EMSSS.EMS34.0

SEQ 0283

VM |

PEPPPPPIPPPPPPPPPPRPPRPPREPRPRPRPRPRP
PRI IDPI PP I PP PP PO PIIIEIBIIBRIBIII®

MACRO v03.01 11-APR-80 13:39:53 PAGE 4%-3

CZRMCAO RMOS5/3/2 FCTNL
ERROR MESSAGE TABLE

ERROR MESSAGE TABLE

229 076214
230 076226
231 076240
232 076250
233 076264
234 076276
235 076314
236 076324
237 076330
238 076340
239

100557
100557
100557
101612
100557
101335
103644
104470
104541

104614

101301
000000
104230
077454

100361
100306
104614
102031
104664
101476
101476
104511
000000

EMT343: .
EMT344: .
EMT34S:
EMT346: .
EMT347:
EMT350:
EMT351:
EMT3S52: .
EMT3S3: .
EMT354: .

EMSS52,EMS117,EMS4S5,EMSS7.,0
EMS52.EMS117.EMS44
. EMSS7.0
EMS50 EMS117.EMS221,0
EMS106,EMS20.EMST15.EMS223.EMS72.0
EMSS2. EMS205 . EMS222 . EMS206. 0
EMS75 EMS150,EMS102.EMST15.EMSS6,EMS?3,0

E:g;b?.ens73.ens1oz.o

EMS215.0
EMS217 ,EMS203,EMS216,0
EMS221,EMS20,0

1
SEQ 0284

mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmminmmmmm

MACRO v03.01 11-APR-80 13:39:53 PAGE 4%-4

CZRMOAQ RMOS/3/2 FCTNL

1 076346
% 076360
4 076370

105044
105650

105650
105725

SeQ 0285
105725

106052

EHTI:

.WORD

EH1,STSH1,STSH2,STSH4,0

EHT110:
EHT111:

.WORD
_WORD

EH110,0
EH111,0

EHT2:

.WORD

STSH1,STSH2,STSH4,0

g 076374

105072

105063

000000
000000

7 076400
8 076404
9 076416

10
11 076430
12 076442

10511
105140
105166

000000
105650
105650

05725
1 05725

EHT114:
EHT223:
EHT256:

.WORD
.WORD
.WORD

EH114,0
EH223,STSH1,STSH2,STSH4,0
EH256,STSH1,STSHZ2,S1SH4 .0

105242
105301

105436

105650
105650
105650

105725
105725
105725

EHT336:
EHT337:
EHT344:

.WORD
.WORD
.WORD

EH336,STSH1,STSH2,STSH4,0
EH337,STSH1,STSH2,STSH4,0
EH344,STSH1,STSH2,STSH4,0

}g 076466

105574

000000

EHT353:

.WORD

EH353,0

}2 076454

]

B 7
11-APR-80 13:39:53 PAGE 44

MACRO v03.01

mmmmmm

CZRMOAQ RMOS/3/2 FCTNL TST 3
ERROR MESSAGE TABLE

204

16
22

—

& & &R &

076514
076516

106110

106204
106222

106222
106254

106222

076536
076546

150
106162
106162

106204
106204
106204

106222
106222
106222

076560

106174

—

106204

—b b

30
40

—

b
md wmd cmd
i
—

WNEBWN
OV ~NON NS W

076510
076512

_|
SEQ 0286

— cnd

1 076472

2 076502

7
c
11-APR-80 13:39:53 PAGE 45

EDTY:
EDTZ:

.WORD
.WORD

ED1,STSD1,STSD2,STSD4
STSD1,STSD2,STSD4

EDT110:
EDT111:

.WORD
. WORD

ED110
EDIN

EDT114:

EDT223:

.WORD
.WORD

ED114

EDT336:
EDT337:
EDT344:

. WORD
. WORD
.WORD

ED336,57SD1,STSD2,STSD4
ED337,STSD1,STSD2,STSD4
ED337,STSD1,STSD2,STSD4,0

EDT353:

. WORD

ED353

ED223,STSD1,STSD2,STSD4

ERROR MESSAGE TABLE

MACRO v03.01

VOV DVVVVNNBDDNVDDNBDNNDDNDNVNVVDNNY

CZRMOAO RMOS5/3/2 FCTNL TST 3

10627

E F11
E F11

EFT336:
EFT337:
EFT344:

. WORD
.WORD
.WORD

EF336,STSF,STSF,STSF
EF336,STSF ,STSF,STSF
EF336,STSF,STSF
,STSF

EFT353:

.WORD

EF114

NN —I

,STSF ,STSF ,STSF
<N,

PPN

.WORD
.WORD

[pl ok

076646

2O
v =

106305
106305
106305

SEQ 0287

106305
106305
106305

EFT223:

106274
106274
106274

106305

€ F11
E F11

——

106305

.WORD
. WORD

106271
106271

1 10::
1 11:

076604
076606

E F11 . STSF ,STSF,STSF
S TSF STSF,STSF

106266
106267

.WORD
.WORD

076600
076602

b aB 4 ]

106305
106305

2 076572

= OV NS
W

b
d
b amd
—

106305
106305

106267
106305

VIS WA

1 076562

ERROR MESSAGE TABLE

D 7
11-APR-80 13:39:53 PAGE 46

MACRO v03.01

hnal

CZRMOAO RMOS/3/2 FCTINL TST 3

106
115
103
102
042
124
123
127

117
126
101
116
115
116
111
040
126

125
101
117
125
115
122
110
117

116
123
116
123
103
101
117
122

EMS1:
EMS2:
EMS3:
EMS&:
EMSS:
EMS6:
EMS7:
EMS10:
EMS11:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
(ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

EMS12:
EMSI3:
EMS14:
EMS15:
EMS16:
EMSI7:
EMS20:
EMS21:

.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

20 077522
21 077536
22 077564
23 077613
26 077630
25 077651
26 077662
27 077672
28 077721
29 077750
30077776
31 100047
32100076
33100125
34 100153
35100202

102
042
042
104
103
101
123
042
042
042
127
042
042
042
042
042

125
114
101
111
131
106
1264
127
125
127
122
115
104
105
104
115

123
102
117
123
114
104
101
114
120
103
111
104
103
103
114
130

EMS22:
EMS23:
EMS24:
EMSOS:
EMS26:
EMSP7:
EMS30:
EMS31:
EMS32:
EMS33:
EMS34:
EMS35:
EMS36:
EMS37:
EMS40:
EMS41:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
ASCIZ
ASCIZ
.ASCIZ

37 100257
38100306
39 100361

042
110
106

110
105
117

103
101
122

EMS43:
EMS44:
EMS4S:

.ASCIZ
.ASCIZ
_ASCIZ

36 100230

40
41
42
43
44
45
46
47
48
49

100624
100453
100502
100531
100557
100567
100601
100623
100652
100727

50 100755
51100770
52101017
53101035
54 101063
55101101
56 101147
57101217

042

042
042
042
042
124
104
101
111
111
104

104
106
104
042
111
103
104
104

104

111
117
123
120
110
105
126
116
116
125

101
117
101
120
123
117
101
125

124

101
120
113
111
105
124
040
103
126
122

124
105
124
101
040
115
124
122

EMS42:

EMS46:
EMS47:
EMS50:
EMS51:
EMS52:
EMSS3:
EMSS&:
EMS55:
EMS56:
EMS57:

EMS60:
EMS61:
EMS62:
EMS63:
EMS64:
EMSES:
EMS66:
EMS67:

ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@WRONG UNIT SELECTED (RMCS2, BITS 0-2) @
@DEVICE WENT @
SUNAVAILABLE 'DVA'' (RMCS1, BIT 11) @
GNONEXISTENT ‘NED''
(RMCS2, BIT 12) a
SCOMMAND NOT COMPLETED. @
@CONTROLLER NOT READY (RMCS1, BIT 7) @
@DRIVE NOT READY 'DRY'' (RMDS, BIT 7) @
@GO NOT RESET ‘'GO'* (RMCS1, BIT 0) @
QINVALID a

@FUNCTION CODE (RMCS1, BITS 1-5) @
aMASSBUS @
@CONTROL @
@BUS PARITY ERROR @
@'MCPE' (RMCS1, BIT 13) a
QTRANSFER ERROR (RMCS1, BIT 14) a
@SHOULD NOT BE SET @
@WORD COUNT (RMWC) a

@aBUS (RMBA) @
@ LBT'' (RMDS, BIT 10) @
@ AOE'* (RMERT, BIT 09) a
@DISK (RMDA) @
@CYLINDER (RMDC) @
@ADDRESS @
aSTATUS @
@ WLE'' (RMER1, BIT 11) @
@ UPE'' (RMCS2. BIT 13) @
@'WCF'' (RMER1, BIT 5) @
QWRITE CHECK ERROR='WCE'' (RMCS2, BIT 14) @
@ MOPE'’ (RMCS2, BIT 8) a
@' DCK’* (RMER1,’BIT 15) @
@ ECH’ (RMER1. BIT 6) a
@'DLT'' (RMCS2. BIT 15) a
@' MXF'' (RMCS2. BIT 9) a

@& DTE'

(RMER1, BIT 12) @

@ MCRC'' (RMERi, BIT 8) @
@HEADER COMPARE ERROR 'MCE'* (RMER1, BIT 7) @
aFORMAT ERROR 'FER'' (RMERT, BIT 4)a

@' IAE'' (RMER1, BIT 10) a
@ DPI'* (RMER1. BIT 13) a
@ 'SKI'' (RMER2. BIT 14) @
@ PIP' (RMDS,’BIT 13) a
aTHE RM 3
@DETECTED @
@AT AN UNEXPECTED @
QINCORRECT DATA DURING @
@INVALID COMMAND ERROR '‘IVC'* (RMER2. BIT 12) @
@DURING DATA TRANSFER a

@DATA READ a
@DOES NOT COMPARE WITH a
@DATA WRITTEN a
@ PAR'' (RMER1, BIT 3) a
@IS INCORRECT @
QCOMPOSITE ERROR 'ERR'* (RMDS, BIT 14) a
@DATA PARITY ERROR 'DPE’ (RMER2, BIT 3) @
@DURING SEEK COMMAND @

122
105
116
117
117
117
122
117
116

ERROR MESSAGE STRINGS

el ol ok ol 4h of of ah ok o)

12077257
13077320
14 077331
15077342
16 077364
17 077614
18 077454
19 077477

127
104
125
116
103
103
104
107
111

.SBTTL

SEQ 0288

"ol
ad

3076650
4 076717
5076734
6 076777
7077062
8 077072
9077137
10 077204
11077246

AAAAANR
M

]

11-APR-80 13:39:53 PAGE 47

PARAANA

ERROR MESSAGE STRINGS

MACRO v03.01

PAPALN

CZRMOAO RMOS/3/2 FCINL TST 3

58 101244
59 101256
60 101271

11
105
11

62 101316

104

61 101301

104

123
122
123

111
111

040
122
040

EMS70:
EMS71:
EMS72:

104

EMS74:

104

.ASCIZ
L.ASCIZ
_ASCI2

EMS73:

_ASCIZ
L.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

63 101335
64 101343
65 101374

114
104
042

117
125
122

123
122
115

EMS?5:
EMS76:
EMS77:

67
68
69
70
71
72
73

042
104
105
042
042
110
102

11
125
122
114
114
105
125

114
122
122
102
123
101
123

EMS101: .ASCIZ
EMS102: .ASCIZ
EMS103:
.ASCIZ
EMS104:
.ASCIZ
EMS105: .ASCIZ
EMS106: .ASCIZ
EMS110: .ASCIZ

66 101422

101450
101476
101525
101534
101563
101612
101631

74
75
76
77
78
79

101660
101671
101733
101755
102005
102031

82
83
84
85
86

102106
102127
102172
102227
102272

90
91
92
93
94
95

102471
102527
102567
102613
102636
102700

80 102034
81 102064

87 102324
88 102367
89 102432

042

101
127
101
124
116
015

104
110
124
110
117
012

106
105
040
105
116
000

116
103
102
103
105

117
117
125
117
122

124
116
123
116
122

1264
106

101
115
105

105
115
116
125
103
122

110
101

124
101
103

103
101
117

99 103046
100 103074
101 103111

042
104
042

103 103147

042

116
117
110
122
122
105
115
122
104
116
125

105 103215
106 103232
107 103250

117
126
042

106
117
117

9% 102743
97 102770

98 103025

102 103137
104 103176

108
109
110
111
112
113

103274
103320
103342
103356
103376
103414

114 103431

114

104
104

115

125

123

042
120
116
117
116
122
122

110

126
101
117
106
117
124
m

EMS100:

EMS111:
EMS112:
EMS113:
EMS114:
EMS115:

.ASCIZ

_ASCIZ
.ASCI]
ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ

QIS RESET @
@ERRONEOUS 3
Q]S SET 3

aDID NOT SET a

@DID NOT RESET @

aLOST @
QDURING PACK ACK COMMAND a
@ RMR'' (RMER1, BIT 2) @
@'ILR'' (RMER1, BIT 1) a

@'ILF''
(RMER1, BIT 0) a
@DURING SEARCH COMMAND 3
QERROR @
@ LBC'' (RMER2, BIT 10) a
@'LSC'’ (RMER2, BIT 11) a
QHEADER ERRORS a
a@BUS TIMEOUT (04 TRAP) a

@ADDRESS @
@WHEN READING/WRITING RH REGISTERS @
@AT THE FOLLOWING @
@THE SELECTED DEVICE IS a
GSNONEXISTENT DEVICE a
<CR><LF>

105
111

EMS116:
EMS117:

.ASCIZ
.ASCIZ

QTHE MASSBUS CONTROLLER 3
QFAILED TO DETECT @

124
111
103
103

EMS125:
EMS126:
EMS127:

.ASCIZ
.ASCIZ
.ASCIZ

GQATTENTION SUMMARY REGISTER, RMAS, a
GMAINTENANCE REGISTER #1, RMMR #1, a
@ECC POSITION REGISTER, RMEC1, @

111
1264

EMS120:
EMS121:
EMS122:
EMS123:
EMS124:

EMS130:
EMS131:
EMS132:
EMS133:
EMS134:
EMS135:

111
116
057
111
111
104
117
111
126
123
116
106
114
115

EMS147:
EMS150:
EMS151:

120

EMS153:
EMS154:
EMS155:
EMS156:
EMS157:
EMS160:

117

126
103
126
106
126
103

EMS136:
EMS137:

EMS140:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ

.ASCIZ
_ASCIZ

.ASCIZ

@NOT AN RM0S5/3/2 a
@CONTROL STATUS REGISTER 1, RMCS1, a
@BUS ADDRESS REGISTER, RMBA, a
@CONTROL STATUS REGISTER 2, RMCSZ2. &
@ERROR REGISTER 1, RMER1, a

@ECC PATTERN REGISTER, RMEC2, a
QMAINTENANCE REGISTER 2. RMMR?, a
@NOT INITIALIZED BY @
@UNIBUS INITIALIZE @
@CONTROLLER CLEAR, I.E.
BIT S OF @
@RH/RM ERROR CLEAR (RMCS1, BIT 14) a

@DRIVE CLEAR COMMAND @
QDRIVE STATUS REGISTER, RMDS @

@MEDIUM OFF LINE @

EMS141:
EMS142:
EMS143:

.ASCIZ
.ASCIZ
_ASCIZ

@'MOL’'' (RMOS, BIT 12) a
@DRIVE FAULT @
@'DVC'’' (RMER2, BIT 7) @

EMS145:

_ASCIZ

@' UNS'' (RMER1, BIT 14) 3

.ASCIZ
.ASCIZ
.ASCIZ

@0FFSET MODE @
@VOLUME VALID @
?'OM' (RMDS, BIT 0) a

EMS144:
EMS146:

EMS152:

_ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

SEQ 0289

(Y en]

F
7
11-APR-80 13:39:53 PAGE 47-1

POAAPAAAAYPANPAARAAAANAAAPRANAAVN
AN

ERROR MESSAGE STRINGS

MACRO v03.01

SUNSAFE @

@SHOULD BE SET a

@''VV'' (RMDS, BIT 6) a
@PACK ACK COMMAND 3
aNOT SET BY @
@O0FFSET COMMAND @
aNOT RESET BY a
@RTC COMMAND o

@RIP COMMAND a

AARANAAN

CZRMOAO RMOS/3/2 FCTINL TST 3

—

ERROR MESSAGE STRINGS

115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131

132
133
134
135

103446
103476
103476
103522
103571
103603
103617
103644
103671
103720
103753
103773
104010
104016
104044
104073
104115

104132
104200
104230
104243

136 104271
137 104303

106

104
11

125
123

122
040

EMS161:
EMS162:
EMS163:
EMS164:

125
122
042
127
105
116
122
104

116
105
101
110
122
117
105
101

105
103
124
105
122
116
103
126

EMS165:
EMS166:
EMS167:
EMS170:
EMS171:
EMS172:
EMS173:
EMS174:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
ASCIZ

111
103

105
127

116
101
m
125
116
127
130
11

040
116
101
122
103
122
105
124

EMS177:
EMS200:
EMS201:
EMS202:
EMS203:
EMS204:
EMS205:
EMS206:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

127

122

111

EMS210:

.ASCIZ

103

104
042

104
104
11
042

042

140 104366
141 104404

127
120

142
143
164
145
146
147

104427
104452
104470
104511
104541
104574

148 104614
149 104664
150 104715

151

104772

127
123
120
104
114
123
102
101
110

116

131

125
117

107
101
122

101
105
122
125
117
105

101
040
105

117

114

122
120

117

123
117

11-APR-80 13:39:53 PAGE 47~2

117

138 104330
139 104355

MACRO v03.01

EMS175:
EMS176:

EMS207:

EMS211:
EMS212:

.ASCIZ
.ASCIZ
.ASCI]

.ASCIZ

.ASCIZ
.ASCIZ

SEQ 0290

Q0OFFSET REGISTER (RMOF) a
: CUNUSED>
@DURING RECALIBRATE a
@IS INTERMITTENT OR DRIVE DIDNT DROP ON a
QCYLINDER @

@UNEXPECTED @
@RECALIBRATE COMMAND a3
@''ATA' (RMDS, BIT15) a
QWHEN READING REGISTER a@
@ERROR REGISTER #2, RMERZ2,
@NONRECOVFRABLE @
@RECOVERABLE @
QDATA @
@DURING WRITE COMMAND a
Q@' OPE'' (RMER2, BIT 13) a
QIN WRITE PROTECT a
@CAN NOT SET a

@DIAGNOSTIC MODE ‘DMD'' (RMMR1, BIT 0) a
@DURING DIAGNOSTIC MODE a
Q@INCORRECT @
a@'WRL'' (RMDS, BIT 11) a
QEXECUTED a
QWITH COMP ERROR SET @

.ASCIZ

@'GO'' (RMCS1. BIT 0) 3

.ASCIZ
.ASCIZ

@WAS RESET BY @
@PROGRAM INTERRUPT a

GWRITING @

123
105
117
122
117
101

EMS213:
EMS214:
EMS215:
EMS216:
EMS217:
EMS220:

_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@MWAS NOT GENERATED @
QSEEK COMMAND @
@&PROGRAM TIMEOUT a
@DURING LOOK AHEAD TEST a
@LOOK AHEAD REGISTER,RMLA, 3
Q@SEARCH COMMAND @

116

EMS224:

.ASCIZ

QSNONEXISTENT MEMORY 'NEM'' (RMCS2, BIT 11) 3

104
104
101

EMS221:
EMS222:
EMS223:

.ASCIZ
.ASCIZ
.ASCIZ

a@BAD SECTOR ERROR 'BSE'' (RMER2, BIT 15) a
@A DATA TRANSFER COMMAND 3
@HEADER COMPARE INHIBIT ‘HCI'' (RMOF, BIT 10) a

CZRMOAO RMOS/3/2 FCTNL TST 3

115

EWI11:

(ASCIZ

5 1051
6 105140

122
105

105
130

103
120

EH114:
EH223:

.ASCIZ
.ASCIZ

7 105166
g 105214

105
123

130
124

120
101

EH256:

.ASCII
LASCIZ

10
11
12
}z

105242
105301
105340
105377

107
122
137
105

104
115
137
130

101
103
137
120

EH336:
€EH337:

.ASCIZ
L.ASCII
LASCII
LASCI2

15 105436

122

115

105

EH344:

16 105476

17 105534

137

105

137

130

120

ASCII

LASCII

.ASCIZ

18 105574
;8 105613

105
074

130
103

120
122

EH353:

_ASCII
LASCIZ

21
22
23
24
25
26
27

040
040
040
040
040
040

122
040
122
040
122
12¢

11
049
115
040
115
115

STSH1:

.ASCII
LASCIZ
.ASCII
LASCIZ
_ASCIZ
_ASCIZ

105650
105715
105725
105772
106014
106052

STSHZ2:
STSH3:
STSH4:
.EVEN

aRECEVD
AEXPCTD
dEXPCTD
aSTATUS

RECEVD
RECEVD

a@GDADRS
IRMCS?2

GDDATA
STATUS

]

SNGPRT

STATUS

aEXPTTDTM"RETEVD
SRMER1
@

STATUS

@ RMCS1

RMCS2

DULPRTaI
DATAQ

RGSTRa<CRLF>

INDEXS

BDADRS

BDDATAa

BIT

~"ADRESSa

FAILING
e

DATA@<CRLF>
a<CRLF>

HEADER
FAIL ING@<CRLF>
WORD
BITa<CRLF>
QEXPTTDTM"RETEVD NUMBER POSITONa
@EXPCTD
RECEVDA<CRLF>
@<CRLF> RMLA
RMLA
RMOF 3
@
RMASa
@ RMW(
RMBA

RMEC1

@ RMDA

@ RMMRT

RMDS

RMDA
RMECZa

RMDC

RMMRZ2

(ata)

L ad of ol s

122

RMOF

RMDT

RMER1

RMERCZa

RMOF

RMD(Ca

RMLAQ

RMSNa

040

LR
Ar

2 105072

RECEVDa
aEXPCTD
aBUSADRa
@ RM(CS2
RMCS1a

LASCIZ

.ASCIZ

LI LT

EHI:

EH110:

120

123

130

125

105

102

105044

SEQ 0291

2 105063

H
7
11-APR-80 13:39:53 PAGE 48

ERROR MESSAGE STRINGS

MACRO v03.01

CZRMOAO RMOS5/3/2 FCINL TST 3

b
k) wd
D
d
b
d
—

OO NN

NN =2 O 000 NN

NN 2

CZRMOAQ RMOS5/3/2 FCINL TST 3
ERROR MESSAGE STRINGS
106110

106116

001140

001276

MACRO v03.01

SEQ 0292

001142

000000

11-APR-80 13:39:53 PAGE 49

ED1:

ED110:

.WORD

SGDDAT,$BDDAT.O

$BASE.

106122

001174

001176

000000

ED111:

.WORD

$TMPO.STMP1.0

106130
106140

001362
001140

001176
001142

001700
001174

ED114:
ED223:

.WORD
.WwORD

RMDTI,$TMP1,$TMP2,0
$GDDAT,$BDDAT,$TMPO,0

106150

001136

001140

001136

ED336:

.WORD

$GDADR,SGDDAT,$BDADR,$8DDAT,0

106162

001140

001142

001174

ED337:

.WORD

1061764

0011640

001142

001442

ED353:

.WORD

106204
106222
106236
106242

001334
001336
001402
001342

0013446
001340
000000
001370

001346
001342

STSD1:
STSD2:

.WORD
.WORD
.WORD
.WORD

106254

001360

001374

001366

001362

STSD3:

STSD4:

.WORD

S$GDDAT,$BDDAT,$TMPO,$TMP1,0

$GDDAT,$BDDAT,RMOFO.0

RMCS1I,RMCS2],RMDSI,RMER1I,RMER2],RMASI
.0
RMWC],RMBAI,RMDAI,RMOFI,RMDCI,RMEC1]
RMEC2I,0
RMDAI ,RMDCI ,RMOF ] ,RMLAI,0
RMMR1],RMMRZ2I,RMDTI,RMSN],0

0.0
0,0.0

& 106274
2 106300

000
000

000
N00

EF336:
EF337:

.BYTE
.BYTE

0,0,0.0
0,0,0,0.0

7 106305

000

STSF:

.BYTE

0,0,0,0,0,0,0

EVEN

000

.BYTE

.BYTE
.BYTE

VAN

EF110:

EF111:
EF114:

000
000

000

000
000

SEQ 0293

PANPAANAAANN

106266

(-]

2 106267
3106271

STRINGS

11-APR-80 13:39:53 PAGE SO

AAAN

ERROR MESSAGE

MACRO v03.01

AAANAAN

CZRMOAO RMOS/3/2 FCINL TST 3

111332

000000

112336

177777

MFGFIL:

USRF IL:

BLkW

JWORD

:256. WORDS OF DATA

STERMINATOR IF FILE IS FULL

256.

:256. WORDS OF DATA

-1

STERMINATOR IF FILE IS FULL

.=BUFFER
HELP:

RN=O b b ok md d b d Y (N

124
124
124

256.

-1

: STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE
.WORD
0,0
;2 HEADER WORDS

000000

(eleleleolelelels
]

055
124
124
124
124
124

Blkw
WORD

SEK prur Qo hur Puur G P P 'y ~1 ¥

V33w g’\)gowl\l\

—d
b

RRRRRS2228
A

114

258.

; STORAGE FOR MANUFACTURES 16 BIT MODE BAD SECTOR FILE
.WORD
0,0
;2 HEADER WORDS

000000

106314

209
200

.BLKW

063

JASCII
JASCII
LASCII
LASCII
.ASCII
LASCII
JASCII
JASCII
LASCII
LASCII
.ASCII
LASCII
ASCII
LASCII
LASCII
LASCI1I
LASCI1I
LASCII
LASCII
LASCII
LASCI1I
LASCI1I
.ASCI1I
.ASCI1I
LASCII
LASCII
LASCII
LASCII
.ASCI]
LASCII
LASCII
.ASCI1I
LASCI1I
LASCII
LASCII
LASCI]
LASCI1
LASCII
ASCI1

SLIST OF
3

ar1

TESTS@<CRLF>
Q<CRLF>

CONTROLLER ACCESS TEST@<CRLF>

ar?2

DEVICE AVAILABLE TESTa<CRLF>

aTé
als
alé
arz

WRITE,
WRITE,
WRITE,
WRITE,

al3

DRIVE TYPE TESTa<CRLF>

aT10

READ ZEROS@<CRLF>
WRITE CHECK ZEROS@<CRLF>
WRITE CHECK ZEROS W/ WCE ERROR®<CRLF>
READ ONES@<CRLF>

WRITE, WRITE CHECK ONESa@<CRLF>

aT11

WRITE, WRITE CHECK ONES W/ WCE ERRORA<CRLF>

aTlé
aTl5

WRITE, WRITE CHECK W/ HEAD SW]TCHINGA<CRLF>
WRITE, WRITE CHECK W/ MID-TRANSFER SEEK@<CRLF>

ari1z

WRITE, READ W/ HCI@<CRLF>

aT12
aT13

WRITE, WRITE CHECK MULTIPLE SECTORS@<CRLF>
WRITE, READ W/ IMPLIED SEEKQ@<CRLF>

aT16

WRITE, READ W/ HCE ERROR®<CRLF>

ar20

WRITE, READ W/ IVC ERRORa<CRLF>

arTli

arel
ar23
ar2é
ar2s
aT26
SZEZF
<

WRITE, READ W/ ABORTa<CRLF>

WRITE, READ EACH CURRENT LEVEL@<CRLF>
WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHINGR<CRLF>
WRITE, READ EARLY PEAK SHIFT@<CRLF>
WRITE, READ MIXED PEAK SHIFTa@<CRLF>
WRITE, READ EACH TRACKa<CRLF>
READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODEa<CRLF>

@OPERATIONAL SWITCH SETTINGSa@<CRLF>
o
a<CRLF>
aSWITCH
USEQ<CRLF>
PLOVVOLVYD

177777

WA = OV

111330

b cad

SEQ 0294

. STORAGE FOR GENERAL DATA TRANSFERRS

000000

b cmd wd

K
7
11-APR-80 13:39:53 PAGE 51

BUFFER:
BUF ONE :
BUF TWO:

110324

OOV

MACRO v03.01

106314
106314
107320

—t

NN —

CZRMOAQ RP05/3/2 FCINL TST 3
ERROR MESSAGE STRINGS

3
%
0
9

HALT ON ERRORa<CRLF>

@<CRLF>

LOOP ON TEST@<CRLF>

INHIBIT ERROR TYPEOUTS@<CRLF>
a<CRLF>

INHIBIT JTERATIONSQ<CRLF>
BELL ON ERRORAI<(RLF>
LOOP ON ERRORA<CRLF>

TN16a<CRLF>

TNGR<CRLF>

TN2R<CRLF>

AAPPPAAAAAANANANAN

200

TNB8Q<CRLF>

.END

LOOP ON TEST IN SWR<7:0>a<CRLF>
TN128a<CRLF>
TNG64LI<CRLF>
TN32a<CRLF>

LASCII
LASCII
.ASCI!
LASCII
.ASCII
LASCII
.ASC1!
JASCIZ

ca.aYW

64
65
66
67

SEQ 0295

PP FFIIPPIFIFIF
I PP Y P F-F >> > P>

62
63

040
040

V. T, LNT, "

58 110301
59 110340
60
6]

11-APR-80 13:39:53 PAGE 51~1

Y S IV YP

ERROR MESSAGE STRINGS

MACRO v03.01

oL
e

CZRMOAOD RMOS/3/2 FCTNL TST 3

Al
Al

BACK
BADSCY
BADTMO
BA]

BUFFER
BUF TWO
(H

EDT]
EDT110
EDTIN

CNSLOO
CNSLOT
CNSLO2
CNSLO3
CNSLO4
CNSLOS
CNSLO6
CNSLO7
CNSLO8
CNSLO9

BOTFLG
BPTVEC=

ATA
= 100000
ATESTN= 000000

040433
104410
001516
001520
000040
053722

004000
002000

CNTCLR
COMMA
CONT
CR
CRLF
CTLFG
CYLMSK=
DBCK
DBEN
DBL
DCK
DDISP
DEBL
DEVSEL
DISPLA
DISPRE
DLY
OMD
DPE
DPEH]
DPELO
DPR
DRQ
DRVCLR=
DRVSTS
DRY
DSWR
DTASTS
DTE
DTO
DULPRT
DVA
DV(
EARLY
EBL
ECH
0
ECI
004000
ECRC
001000

076472
076510
076512
076514

EMS100
EMS101
EMS102
EMS103
EMS104
EMS105
EMS106
EMS11
EMS110
EMS111
EMS112
EMS113
EMS114
EMS115
EMS116
EMS117
EMS12
EMS120
EMS121
EMS122
EMS123
EMS124
EMS1¢5
EMS126
EMS127
EMS13
EMS130
EMS131
EMS132

AVECT?
A16
A17

CHRCNT
CKSWR =
CLKADR
CLKVCT
=
(LR
CLRSTS
CMNSTA
CMPBUF
CMPERR

SEQ 0296

—h
e
b

ATNMSK= 000377
ATNTBL
AUNIT
AUSWR
AVECT1

ABASE = 176700
ACDW1 = 000000
ACDW2 = 000000
ACKSTS 054602
ACPUOP= 000000
ADDWO = 000000
ADDW1 = 000000
ADDW10= 000000
ADDW11= 000000

m 7
11-APR-80 13:39:53 PAGE 51-2
el
TM e e e o o T o )

SYMBOL TABLE

MACRO V03.01

OOOONOOOOOOO

CZRMOAO RMOS5/3/2 FCTNL TST 3

1755

EMS133
EMS134
EMS135
EMS136

EMS137
EMS14
EMS140
EMS141
EMS142

EMS143
EMS144
EMS14S
EMS146
EMS147
EMS15
EMS150

EH353
EMS10

EMS154
EMS155
EMS156
EMS157
EMS16
EMS160
EMS161
EMS162

EMS163

103476

- b b e
b e e ) b e b e o d
o OCOOOOONOOOOOCO
b
b cd nd =l
b
N
W
N
— ) b =
&~
~
W

EMSS3
EMS54
EMS55
EMS56
EMS57
EMS6
EMS60
EMS61
EMS62
EMS63
EMS64
EMS65
EMS66
EMS67
EMS?7
EMS70
EMS71
EMS72
EMS73
EMS74
EMS75
EMS76
EMS77

077042

EMTVEC=

EMT1
EMTI0
EMT100
EMT101
EMT102
EMT103
EMT104
EMT105

073626

EMT164
EMT165
EMT166

EMT106
EMT107
EMT11
EMT110
EMT111
EMT112
EMT113
EMT114
EMT115
EMT116

EMT117
EMT12
EMT120
EMT121
EMT122
EMT123
EMT124

EMT125
EMT126
EMT127
EMT13
EMT130
EMT13]
EMT132
EMT133
EMT134
EMT135
EMT136
EMT137
EMT14
EMT140
EMT141
EMT142
EMT143
EMT144
EMT145
EMT146
EMT147
EMT15
EMT150
EMT151
EMT152
EMT153
EMT154
EMT155
EMT156
EMT157
EMT16
EMT160
EMT161
EMT162
EMT163

073616

EMT167
EMT17
EMT170
EMT171
EMT172
EMT173
EMT174
EMT175
EMT176
EMT177
EMT2
EMT20
EMT200
EMT201
EMT202
EMT203
EMT204
EMT205
EMT206

074446
074460
074472
074510
074520

EMT207
EMT21
EMT210
EMT211
EMT212
EMT213
EMT214
EMT215
EMT216
EMT217
EMT22
EMT220
EMT221
EMT222
EMT223
EMT224
EMT225
EMT226
EMT227
EMT23
EMT230
EMT231
EMT232
EMT233
EMT234
EMT235
EMT236
EMT237
EMT24
EMT240
EMT241
EMT242
EMT243
EMT244
EMT245
EMT246
EMT247
EMT25
EMT250
EMT251
EMT252
EMT253
EMT254
EMT255
EMT256
EMT257
EMT26
EMT260
EMT261
EMT262

074530

EMT27
EMT270

072500
075262

EMT263
EMT264
EMT265
EMT266
EMT267

EMT271
EMT272

075276

EMT273
EMT274
EMT275

EMT276
EMT277
EMT3
EMT30
EMT300
EMT301
EMT302
EMT303
EMT304
EMT305
EMT306
EMT307
EMT31
EMT310
EMT311]
EMT312
EMT313
EMT314
EMT315
EMi1316
EMT317
EMT32
EMT320
EMT321
EMT322
EMT323
EMT324

EMT325

EMT326
EMT327
EMT33
EMT330
EMT331
EMT332
EMT333
EMT334
EMT335
EMT336
EMI337
EMT34
EMT340
EMT341
EMT342
EMT343
EMT 344

EMT345
EMT346
EMT347
EMT35
EMT350

EMT 351
EMT352

fala)

100306
100361
100424
100453

EMS44
EMS4S
EMS46
EMS47
EMSS
EMSS0
EMS51
EMSS?

SEQ 0297

222222222222
222>

EMS164
EMS165
EMS166
EMS167
EMS1?7
EMS170
EMS171
EMS172
EMS173
EMS174
EMS175
EMS176
EMS177
EMS2
EMS20
EMS200
EMS201
EMS202
EMS203
EMS204
EMS205
EMS206
EMS207
EMS21
EMS210

SYMBOL T ABLE

N 7
11-APR-80 13:39:53 PAGE 51-3

222222
>

MACRO v03.01

CZRMOAO RMOS/3/2 FCTINL TST 3

076324

CZRMOAQ RMOS/3/2 FCINL TST 3

MACRO v03.01

SYMBOL TABLE

EMT73

EMT74
EMT7S
EMT76
EmMT77
ENRGDT
EQUALS
ERR
=
ERRNMB
ERROR =
ERRTYP
ERRVEC=
ERTYO0

ERTYO1
ERTYO2
ERTYO3
ERTYO04
ESRC =
FER
FIND

= 000200
= 020000

PRO
PR1
PRZ
PR3
PR4¢

=
=
=
=
=

PIRQ
=
PIRQVE=
PLFS
=
PRIERR

—

PR6é
PR7
PS
PSEL
PSW

=
=
=

177772
000240
002000
0645226
000000
000040
000100
000140
000200
000240
000300
000340
177776

= 002000

= 177776
044500

PUT

RD
RDCHR
ROLIN
RDOCT
RDY

MSHELP
MUR
MWD
MwP
MXF
NDTMSK=
NED
NEM
NOP
NOTAVL
NOTPRS
NSA
oCC
OFD

073232

FMT16 = 010000
FNCDTB 071516

PHA
PIP

PRS

073250
073260
073300
073310
072254
070327
040000
040426
104000
037670
000004
040434

040442
040452
(040461
(040467
004000
= 000020
= 000001

072640

nwannunp

072650
072660
072670
072700
072302
072706
072716
072730
072746
072764
072774
073006
073024
072310
073034
073052
073072
073106
073110
073130
073150
073162
072316
073174
073204
073214

EMTL3

nun

EMT44
EMTSLS
EMT4E
EMT47
EMTS
EMT.
EMTS1
EMTS2
EMTS3
EMTS54
EMTSS
EMT56
EMTS7
EMT6
EMT60
EMT61
EMT62
EMT63
EMT64
EMT6S
EMTGS
EMT67
EMT7
EMT70
EMT71
EMT72

000100
010000
002000
002000
€00012
071616
000004
004000

072274
072610
072616
072626

w
(]

EMTS
EMTS0
EMT4Y1
EMTL2

000077

076330
076340
072570
072600

SEQ 0298
nnannnuog

EMT353
EMT354
EMT36
EMI37

11-APR-80 13:39:53 PAGE 51-4

ONES
ONL INE
OPE
0PI
OR

000004
000010

PACACK
PAKACK
PAR
PAT
PDA
PGE
PGM

000070
104411
104412
104413
000200

REX
= 010000
RG
= 040000
RGDTPT
071626
RH
= 000072
RIP
= 000020
RLEASE= 000012
RMAS
= 000016
RMASI
001352
RMASO
001426
MBA = 000004
RMBAE = 000050
RMBAEI
001404
RMBAEO 001460
RMBAI
001340
RMBAO
001414
RMCS1 = 000000
RMCS1I
001334
RMCS10
001410
RMCS2 = 000010
RMCS2I
001344

OFFLIN
OFFSET=

=
=
=
=
=

002000
001000

RMCS520
RMCS3 =
RMCS3I
RMCS30
RMDA
=

001420
000052
001406
001462
000006

RMDAI
RMDAO
RMDB
=
RMDBI
RMDBO
RMOC
=
RMDCI
RMDCO
RMDS
=
RMDS]
RMDSO
RMDT
=
RMDT]
RMDTO
RMECT =
RMECTI
RMEC10O
RMEC2 =
RMEC2I

RMEC20
RMERT =
RMERTI
RMER10

RMERZ =
RMER2I
RMER20
RMHR
=
RMHR]
RMHRO

001342
001416
000022
001356
001432
000034
001370
001444
000012
001346
001422
000026
001362
001436
000044
001400
001454
000046
001402

001456
000014
001350
001424
001376
001452
001372
001446

RMLA RMLAI
001354
RMLAO
001430

RMR1 =
RMMR1I
RMMRIO
RMMR? =
RMMR2]
RMMR20
RMOF
=

RMOF I

000024
001360
001434

001374
001450
000032

001366

RMOFO
001442
RMR
= 000004
RMSN = 000030
RMSNI
001364
RMSNO
001440
RMW(C
=

RMW(C]

MWCO
RQA
RAB
RTC
R6

001336

001412
= 100000
= 040000
= 000016
=%000006

R7
=X000007
SADMSK= 000377
SAVREG= 104414
SA1
= 000001

SA16 = 000020

= 001000

SEEK

St4%
= 002000
SLARCH= 000030
SECERR 046060

SEKSTS
SHUT
SHUTZ
SIZCLK

052344
064076
064154
044720

SKI
=
SNGPRT=
STACK =
STANDA
START
STCDRV
STKLMT=
sTOP
STSD1

04
020024
001100
006706
005420
063342
177774
064046
106204

STSH1
STSHZ

105650
105725

STSD2
STSD3
STSD4
STSF

STSH3

STSH4
SWR
SWREG
SWwO
SW00
SWO1
Sw02
Sw03
SWO4
SW05
Sw0é6
Sw07
SW08
SW09

w1
SW10
W11
W12
w13
W14
Sw15
SWw2

106222
106242
106254
106305

106014

106052
001154
000176
= 000001
= 000001
= 000002

= 000004
= 000010

= 000020

=
=
=
=
=
=
=
=
=
=
=

000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000

= 100000
= 000004

000010
000020
000040
000100
000~00
000400
001000

001114
040000

w(C
wep

000400
010000
001000
002000
TA8
004000
TBITVE= 000014
TIMOUT
045042
TKVEC
000060
TPVEC
000064
TRAPVE
000034
TRE
040000
TRTVEC
000014
TST
010000
TSTNMB
040424
TSTPRP
040472
TST1
TST10
ST
TST12
TST13
TST14
TST1S
TST16
1ST17
TST2
TST20
1ST721
18722
TST23
TST24
TST25
TST26
1S127
1ST3
TST4

TSTS

TST6
1ST7
TYPBN

TYPDS
TYPE
TYPOC
TYPON
TYPOS

uBUSQS

UNS
=
UNTMSK=
UPE
=
JSE
=
USRF IL
uo
=
Ul
=

020000

TSTQUE

c
8
11-APR-80 13:39:53 PAGE 51-5

= 177400

naonnnnn

SC3

Sw3

000002
000004
000010
100000
000004
070230
003700
000100
000200
000400

SA2
=
SA4
=
SA8
=
SC
=
SCOPE =
SCTMSG
SCTMSK=
SCO
=
SC1
=
SCZ2
=

TABLE

SYMBOL

MACRO v03.01

001464

070130
015070
016046
017244
020250
021474
022702
023724
025572
010314
027176
030216
031134
032172
033176
034204
035212
036240

040000
000007
020000
040000
111332
000001
000002
= 000004
=

=
WCE
=
WCEHI =
WCELO =
WCF
=
WCH
=
wD
=
WH
=
WLE
=
WRL
=
XSI1Z
XXDP
ZEROS
SAPTHD
SATY(
SATY]
SATY3

010500
010702
011710
012666
014062
104406
104405
104401
104402

$ATYS
$AUTO8B
$BASE
$BDADR
$8DDAT
$8ELL
$8IN
$COW1
$COW2
$CHARC
$CKSWR
$CMTAG
$(M3 =
$CM4 =
$CNTLC
$CNTLG
$CNTLU
$CPUOP
$CRLF
$DBLK
$DDWO
$DDW1
$DDW2
$DDW3
$DDW4
$DDWS
$DDWS

070722

$DEVM

104404
104403

$DDW?
$DEVCT

$DOAGN
$DTBL
$ENDAD
SENDCT
S$ENULL
SENV
SENVM
$EOP
SEOPCT
$EOSP
SERFLG
$ERMAX
$ERROR
$ERRPC
$ERRTB
SERTTL
SESCAP
SETABL
SETEND
SFATAL
SFFLG

SEQ 0299

037660

001267
065656
001170
000001
065002
065004
065642
001230
(001106
067752
067604
067740

b B BN

CZRMOAQ RMOS5/3/2 FCINL TST 3

D >>>>DBD>dddn

[

$FILLC

$FILLS
$GDADR
SGDDAT
$GET4?2
$GTSWR
$HD
=
$HIBTS
$HIOCT
S$ICNT
$ILLUP
$INTAG
$ITEMB

001263

[

CZRMOAO RMOS/3/2 FCTNL TST 3

SYMBOL TABLE

STTYIN

$TYPBN

067322

S$TYPEX

$TYPOC

$TYPE
STYPEC

065006
065220

$TYPOS

. ABS.

112340
00000

064334

ERRORS DETECTED:

11-APR-80 13:39:53 PAGE 51-6

SEQ 0300

064260

$TYPDS

MACRO v03.01

STYPON

064604

065340

SUNIT

001234

SVECTZ

SUNITM

001110

$XOFF = 000023

064560

SVECTT1

001272

$XTSTR

064620

000
O

VIRTUAL MEMORY USED:
55976 WORDS
( 219 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
69 PAGES
CZRMOA.BIC,CZRMOA/C=CZRMOA.DOC, CZRMOA,SYSMA(/M

SUSWR

001246

$XON

001274
= 000021

065360

$$GE T4=
$$5w08=
$OFILL
.$X
=

000000
000030
065003
001100

CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )
$EGE T4
$$5w08

$OF ILL
$40CAT
$APTHD
SASTAT
$ATY]

11-APR~-B0 13:39:53 PAGE S-1

SEQ 0301

38-6
38-6
38-6
38-6
38-64
38-4+

38-6
38-6
38-6
38-6#
38-64

38-8
12-2
12-582

38-8
12-34
12-F07

12-:08+
12=:03~
12-E54*

12-:09
12-:13
12-ES57+

SATY3

11=27+

$8DADR
$8DDAT

26=124%
25-109
25-227%
25-345+
25-471*
26-151
29-168+

31-80r
32-71x
33-205+
34-60

$BELL
$BIN
$COW1
$CDOW2
$CHARC
$CKSWR
$CM3
$CMé
$CMTAG
$CNTLC
$CNTLG
$CNTLU
$CPUOP
$CRLF

$08LK
$0DWO
$ODW1
$0DW2

$0DW3

9-19

38-8

9-107

38-5

9-19

38-8#

24152+
25-140+
25-241+
25-361+
25-492+
27-39«
29-182+

31-82
32-85+
33-222+
34-69+

35135+
35-356%
36-62*
38-8

35-149n
35-369+
36-78+
38-8

5-0

9-19

12-63
12-639

12-91
12-H57

12-k63

12-380

12-555
12-M08

18-84
12-814+
12-F 68+
25-40+
25-141»

49-8
12-831+
12-G30=

12-C07+
12=H40x

12-C24*

25-242+
25-362+
25-493«
27=54~
29-183+
31-92«
32-99+
33-240+
34-70~
35-163+
35-382«

36-98+

25=41%
25-142
25-256+
25-387+
26~10~
29-37~

25-54+
25-157»
25-271»
25-402*
26-92+
29-67«

29-196+

12-C35+

24=47*
25-65+
25-170+
25-284+
25-417+
26=94

29-88+
31-32
31-115+
33-82+
34-19

31-101»
32-113»
33-2564»
34-72
35189+

34-94+
35-204*
35-470+

35-395+
36-112~

5-0

12-703
12-N53

5<0

5-0#

14-38
38-8

12-848
12-P04
12-D88+

24~48*
25-67
25-171+
25285+
25-418+
26-120+

31-42+
31-124+

33-103+
34-28+
34-103+
35-240+
35-483+

49-i0

49-11

5-0#

5-0n

16-76

14-86

14-99

38-8

NWy

BATYS
SATY(C
$AUTOB
$BASE

CZRMOAO RMOS/3/2 FCTNL TST 3

CROSS REFERENCE TABLE
$ODWS

$ODWS

$ODWE

$0DW?7

S=0#
5~0#
S-0n
S-0n
S~O#
S-0#
13-20
38-3

(CREF

964+
13-20

38-3#

13-20#
9-25

MACRO v03.01

v01-05

)

9-74
13~20#

9-96+

13-204

38-7

11-27
9-68
13-20#
13-20#
13-9#

38-5
38-5
37-20

F 8

11-APR-80 13:39:53 PAGE S=2

10-115+

10-122+

10-149+

SEQ 0302

10-150

11-3

11-30

38-7

38-7«

12-992+
12-G28+

12=:04*
12=-G29*

12=:05+
12-G83«
24=90*

38-12

38-6
38-6

38-6
38-6*

38-6+

38-7

387«

38-7+

38-7
38-7

38-7+
38-7

38-7

38-12«
38-5
12=:06+
12-532+
12-D84*

49-8
12991+
12-F70+

2467+
2555+
25-155«
26=117x

35-456~
36-45%
$GET42
$GTSWR
$HD
SHIBTS
SHIO(T

$1CNT

38-6+

$ INTAG

38-8

38-8+

SILLUP

24-76%
25-79«
26~16*
26=135«
29-102+
31-59
32-58+
33-63+
33-187«
34-30+
35-85+
35-206+
35-354+
35-468+
36-60*

2488+
25-84%
26~23
26-136+
29-129+
31-68«
32-59+
33-64*
33-188«
34-31
35-86«
35-238+
35-355+
35-469+
36-76+

24~89+
25-87
26=24*
26-138
29-142*
31-81+«
32-72«
33-80«
33-203«
3440«
35114~
35-239«
35-367~
35-481«
3677~

25-98+
26=25+
26-148n
29-166+
31-82
32-73x
33-81»
33-204*
34=71x

35-115«
35254«
35-368+
35~482+
36-96*

12-B15+
12-H38+

24~107~
25-109
26-30#
2u=-151
29-181+
31-103¢
32-87+
33102+
33-221+
34-83x
35-134»
35-268+
35-381+
35495~
36-110~

12-830+
12~H39+

24=122»
25-135«
26~-32
27-40*
29-194+
31-104
32-100+
33-118+
33-238+
34-84
35-147+
35-269+
35~393»
35-515«
36-111»

5=O#
14=29

38-7
38-7
38-7

edbNt\adNudNNadilNtNudNtNNuadandNtNagtStetNlolNt NN Ntet

SITeEmR

38-7+
SEQ 0303

CZRMOAO RMOS/3/2 FCTNL TST 3

CROSS REFERENCE

TABLE

SLF
SLFLG
$LPADR
$LPERR

38-5
38-12+

$MADR1
$MADR?2
$MADR3
$MADRY
sMAIL
SMAMS

S-On
38-124
S~On
S-O#

12-:80*
12-107+

(CREF

MACRO v03.01

vO1-05 )

11-APR-80 13:39:53 PAGE S$-3

SEQ 0304

38-5

38-7

38-8

9-19«
9=-19»
12-,33~
12=-157+«
38-6

38-6

38-6
12-188+
12-<9%»

38-6
12-289+

38~6+
12-335=

38-6+
12-430+

38-6+

4-789
12-:27

S~
12-.78
38-6

9-19
12-=63
38-7

9-~25
12-246

38-12«

38-12»

38-5

12-142+
12~<32*
12=J62+
38-7

12-K15+

12=->17+
12=L14*

12=>85+
12-L60*

12-799+
12-M59+

11-27
12-396

12=476+
12-a51+
12=N05+

12-608+
12=A57+
12-007+

12-34
12-F07

12-63
12-639

12-91
12-H57

-634

12-756+

12=D45+
12-PS4

12-803¢
12-E08+
12-Q11»

12-901+
12-F78+

38-6

12-380
12-K63

12-555
12-M08

12-703
12-NS3

12-914
12-848#
12-2896
12-H574
12-P04H

12-238

12-238#

12-947+
12-HOO+

SMAMS
2

38-12+
38-12

38-12+

38-6#4

$SAVRE

12=-344
12-555#
12-=63
12-FQ74
12-M08#

38~4
38-6#

384w

13-20

38-7

38-11+

38-11»

12-63
12-555#
12-=63#4
12-G39
12-MO8#

12-703
12-=634
12-G39#
12-N53

12-634
12-7034
12-246
12-G39#
12-N534

12-91
12-7034
12=2464
12-H57
12-N534

13-20=

13-20+

38-6

38-8

12-914
12-848
12=2464
12-HS7#
12-P04

2-8484
12-396#4
-—d

12-34A
12-555
12-;78#4
12-FO7#
12-M08

12=J12
12-P04H

12-:27
12-a96#
12=-J12#

9-19

WW) UWW)W)M)W)W)MWL)v&O O02

$SCOPE
38-64

SEQ 0305

C[e]EoRle]mIwNRSVNAWRVOAVRNT\NRSN«ISM&WNRNAoHMOYMWI«VRO2UNAO&MSAI®NSZRSRAoRVO&AOoNR¥GEaoR0GORNR0OMQ0WuINwu
2l—S—eeiUlleOeLlle—0e))03aA&W%CNy1U—OJRxO651oDWNN0)OIeGO.RE“lI0)WTyWuRNaINMNl.A0OauROW(I)tIUM?S[GSAyRV0—0]0Vo*).NoS0MO[&u&V.'«xnD4—%89IM%-f.m1iNc8.®¥!N&l%F“2f3ihe9&Xx.a—omX1O&YR0%s*N..27.l—xO¥®O5G@@”3U”N2a3%LS0&5«8AQMD.«S%2MNRYON&1L=M0MiN«-*|OTO&WVa¥i[RNMO1URUNWWo-20yON~OaO[O0NEeN353
%® %® A
&® %® «

R0QM0M0TOMTQUO0OGa000Lh0MMnMQv000AvNal0ReAoMMYe].IDaOogWVoMT]NOoaIIgINI¥N——NAMegVeVI}OiQONTA-oVeOIVNgIVIIQVNTrEgONMNNIIoTaOI—TgFNVMMN=NQTI]Qgo0IOr9INLMVTIMN.g-RYONVIM-(A[VagIETYV—[K®p~I(—V—a9ROAbRNA00e>VAeT0INN&NNINoICNX*AOMNeTwTXaNONINOIOnVINeNN*O0OYIOyRTNeV.O.IITONL[eN&o-=OaVREINNN %—Na&LU VIIIMNOO eV—NAOK)YYO=PNbA>V=MTOM0MTA0IRPMO0EMWGT%UAMIA0DE=R*N=AT2MRNIMT~VIFYMNRA2PORxOeNGAOPNMMIRDRTCMUIM&G«ONV#0LIV&oLO«* NMNe\N0EO-PZV=-—#DBr0REO—GDTO@raDPDRAMO—FTM0TUOeVr0NO—OMTPOo—MMNMWo3POMMO0ME-DIOETTaooW nPDUoA—O nAnRnA
*0Mo0Mo—0M[TMM@—TU)Oe002l0Mae[000cleMcMMMe0l—]0)e0 oo=>NDFFgeOTOGT -ODo})TVV}o]oIPVNoAMaT\OT]—TeVTVlOoMIo—INVNM1NaoPVTo&1MUAlC.TOVWaRNwYOg-TVRlMIOO[TooQo[MV—IYgRa—N—l0IVOaTONMQgVMeOVoVIorIRNITMaOJN—OkgITTIVVT:grOI|SLYQTMO[[-3-oDNY(V~V—lTgON D24Vao(O0eNYRVFPNXXRoONeNXAoOMIA0D&-OlW—OFMoooONO«lNOERo—~O0TNeL0NWVNOlEMeLEoNA&LOGnel4MV—MER2ooAOOayN\yWN&IV=N&LEOMOeMOO40”oT7N& oHQ&N8-O0&N]M~2o9F“y~Nl«' N=FoM0MTaMoV M0LT«&A€UT)0EERM0L GM0PNOM(MV)NTTOMMWEXJVVw[S=TIV~w0-=Oon]=aE&EMernVoEND]0MYOMoMN«QO7Y—Rx-nkY~V«Oax)RMoaMo@o0MYO >e~aYO ¥0A-O—TU—oMMMTO0P}eO1M.V=NGT0o~OIM~FaYUlw0NOP—OaWNN=ON~—gXPaVJ0NoI0[OoeY~gnO-a—)UV—W—M)OIM0n\TL~e.@YaMaMIDEF00L
=g[e0Mloll0loellMee0—]] ooOtoBAl0WoNlNOoNleyol-GMwALaOnMnk MMeHoeO&MO®EMyOFO——L]NNAQON—~S&—rN«W0M-* eoNO-TMmaL o—MO]eMo—aT&o—aMVweImg—nVLoeL
[

T PBYP& LI[vaoeYL?KT Y-P TPt

%® &- &"
% Au &x« &&

CZRMOAO RMOS/3/2 FCINL TST 3
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )
11-APR-80 13:39:53 PAGE S-4

8
SEQ 0306

«&"-

38-10

38-10#

38-10#4

38-10#
SEQ 0307

38-10

mMmMmmMmMMmMmmMmMmmMmmMmmMmmMmmMm
M
mm

38-10

mmmmmmmmmmmm

38-10

CZRMOAO RMOS/3/2 FCTINL TST 3

CROSS REFERENCE TABLE

$TRPAD
$TSTM
$TSTNM
$STTYIN
$TYPBN
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC

38-'0#

38-10
4-789#
5-0#
38-8
38-2#
38-3«#
38-5#
38-5
38-5
38-4#

$TYPON
$TYPOS

38-4
38-4#

SUNITM
SUSWR
$VECT1
SVECT2
$XOFF
$XON
$XTSTR
.SASTA
-$X
A6
A17
ABASE
ACDWT
ACDW2
ACKSTS
ACPUOP
ADDWO
ADDW]
ADDWI0
ADDW11
ADDWI2

4-78%#
S-0#4
5-0#
_5-0#
38-5
38-5
38-64
38-12
4-789
47284
4=7278
4-779%
5-0
5-0
15-152
5-0
5-0
5-0
5-0
5-0
5-0

ADDW14
ADDWIS
ADDW2
ADDW3
ADDW4G
ADDWS
ADDWG
ADDW?
ADDWS
ADDWO
ADEVCT

§-0
5-0
5-0
5-0

SUNIT

ADDWI3

ADEVM

peny

AENVM

AFATAL

5-0#4

MACRO v03.01

(CREF v01-05

)

11-APR-80 13:39:53 PAGE S-5

SEQ 0308

38-10#

38-104#

38-104

38-104#

38-104

38-10#

11-37+
38-8
38-10
38-10
38-10
38-5
38-5
38-10

13-20+
38-8
38-10
38-10
38-10
38-5
38-54
38-10

38-6
38-8

38-6
38-8#

38-6

38-6+

38-7

38-12
38-5#4

38-8

12-344

12-63

12634

12-63#

12-91

12-914

12-238

12-NS3H

12-NS34

38-104

38-44
38-10

38-10

11=42+

14-23

2449

10-69

10-81~

10-85

10-107«

12-34

12-34M

38-5
38-5

38-12
4-789#
5-0
5-0
5-0
16-137
5-0

5-0

32-15#

5-0

5-0
5-0
5-0

5-0

12-2

12-238#
12-:27#
12-C82
120J12K

5-0

5-0
5-0
5-0
5-0
5-0
5-0

5-0

12-2#

12-380
12-:27#
12-C82#
120K63T

5-0

12-2#

12-380#
12-:78
12-C82#

12-K63#

12-380#
12-:78%
12-F07
12-K63#

12-555
12-:7BM
12-FO74
12-MOB

12-555#
12-263
12-FQ7#
12-MOBK

12-555#
12-263W
12-G39
12-MOBK

12-703
12-=634
12-G39#
12-N53'

10-703%
10-245
12-G39

12-703#
12-246K
12-HS7

19-848
10-7464
12-HS57A
12-PO4

15-848#
12-a96
12-H57#
12-POMR

13-84B
12-396#
12-412
12-PO4k

12-2

19--37
13-2964

13-d1o%

W)WWWWbW)WLAeAWWW)U)UWUWWL)UULM
10-12Y

)UMMybL)L)SL)L

ALL
39-64

SEQ 0309

2=—-O2wWwn2wy29VN 2>L>2>TD>RTR wo&

WVVVb—)o))1NoSTVTTOTOoVeVgtoNVlV¥T1|[IboNoTNTTBOTlt'~NVTeoI¥NlW7o3MVoSTlWV&IIOVTToAVTlWDN)ToVVNTTlNTVoNQOTNlWDTVoQTNl0TNIIITVoNPTNTlPWVNetAlITTDD)oTVATsNWlTTIi(oVTVOMQltIOTNVoO¥Ve&lOTDTooTVV[leI*INtVoWTelLIBINTo—oo¥lIIWSYNTToLNolVNInaoe0V[NNlsIgVL= nTL¥lYITLNeLNNMlITgLgoLLTlg=LNoLYLNl[L|yoTNlLoL—gYlyeML0Rl)4g}LLogeL0lTIg~yNeMlLy|ggYP&LLNo]LNGYke—OLLUYALoLkONOUQNN [~oA OA OM WY o9][ ]1I [U yV] ->0=O.o—
VTTNTekX=2NPOIORNVTI.TMNT0/RAIO’P;NO2NTPOMVNTPy2N=POWoANP2VPTe0VNTT=2PTNPVNMOT2"OIANTIPT2OBTPN0VLITI=ST2OL-NPA[=NNN2L—TAOOgNNLoOy2ORNoPOQeNeI2eTONN3e2]ONNeNL2eONeLPNION2eT-}eyA32N -3woA ?mwo—znAR ]-[«

P5oo3D*=NQCBNAIZOecIO—R-VVI11}0TT—NERESJLooTX~BelVVoIoVJF1FO*CeNTltTV(OATKJGGIy3eoN<tSITVlIeRoLVT*NVlTeINPG[TNJoXo*ONANellI1OLToVooNIO0OHN%TTllID1ASPoANVJJNM1=CPTToellNIIOAWCoNNoK1K1NDMINTTllIOT0JAAO2NeTLLoeE=QRlTNl-I[1NOT0]—ATTnoI1FBlQAlTOONNP0XNNoCGNVdNTTel)BOOP)APIAZeNINVeO&TlTlTHIOToRAVeTNNA-OToATlQelIDIOTNIAI_VeNoQTSAelNAlTIND0DPCDCgOotW1Nel.eTleSi2DVINI!AVLeoCO&TNlsVUlITIPTIBP”oNI(oet¥IBsRl'7¥eSVeINN0PlVga0NST.&RoV—eIIWIIoPPLiagVoJlNOe&NNsOelR\oAI10gB.OVTIoSNF~gsvleTeeAU¢VNlVoO0O14QLRe[AOl=BIIoD1NVOVANBoNA52dTOlegPL(VPLMoFoR%OXONY¥SlelTP|e0oNISoaNN3N[—NelSRdeT~BVAFeoo7‘1SLlSlZeO|PPINyIoo8xU5WBORO[LlleeIP!01rDyNI3oo96l2M2LglkeeTI0NyYo%3AA3OdTO0leONev11INgN=LaLN74OR4SnIYOeeIeLdTgt0k1%8=y5lLme=TPMIV~kLN59*SOa—e=oSl1t1Io|IYlta0I6MU0LaM-0.Ma0}Na)0VeAl~SUzNhoL[oooTowMN~NNa-p[e]a[!]}yVlVu}0nl)d]XaXlValValvalValVRalValVatValVaYValYVaYVeLS—x0_(%w~a>Mo&~--M [J=[c—M]+

AIDQC~T—I1OADTNONI%OMTCIENOWAN—0GOV*FNILXOELA—GSOkOXFNH*WeORoV%cbIONTN3NPvRY*NANbJrROIOSd«&N6bJVIKLiINORW“A*NSk1JA—RWA2V42ObMTI96A2ABb0C7aN78IA3NTtEL5A-5ODTCA(2AU3S4WV.BNO0Ab0N)AIMCWI1PNW8IObNeN9eS—MPIVBbO%58UeJL“4e2ObeSOGI3¢9bk—TvNPV«=A71ONIMeR5EONI52N3T0=41e:—AM“3IF.PRMRO1%9TN21—eSFI7A953eINItN46%B4o1eOEOR3TN52eT9S76%3MAeNO7LI844OR“PIRNOS9275N4%MWNPTN@-TZ—0TG)e[NoS—M"L~-7}ar)SQTSPTTDT.TPWTxaxnuwmoom[&38o%o-M<J:—.0
w

muTQvC—U>=OzNOMmSE

Val

Rtk

wma
—

—

ik Rk t B- b3 xRN
RAeTP O6OeOOP=e oIRP=eBeITkR1xOTeeAPkeeTReSeekeO T~

55M555PR5554&5458%822ST2E2YLAo0222222222222P¥I

wv W

Jk3

12-L884

12-L904

12-L934

12-L974

12-L9%#

12-M018

12-MO34

12-M16
SEQ 031

(aYa)

12-L854

mmmm

12-L69#

mmmmmmMmeammmmmmmm

12-L69

mmmammmmmmmmm

12-L56#

mmmmmMmMmmmmMmm

12-L54#

12-L52#

—74H3IVNdMVBI25R.ANW078XD,sV8H>FAVHG9a1T4OMNWE12,T7IT“VsWCHA713_.%86SHI'NOY754XM&MJaCV81I.%AAIEOH.«WA77b2“CWNRIHBYHO52y®6®AC3BAVXICD“7A®9DH3oNC=OTIU“05M1“NNRWCADCC9VHMI4.C.VEcI.-.B”8BvN53A1"9I&OrMHMy3.9LT0H.4nuAN3oI®y7.Dcc3Bs”1COtaeoabs0”se“‘2V%(avo-s3“O3Tnv5be8*tdsr5+«8”M7FevsO1MQ7ARO:AO“13%%TO%2LW0NeVT839A6Ps786\OrIR—92S73B7A9DNAbT1738%NX241S@N0&82I87b64%F“5927%”1R?JOv984O7527o1\?y13t—”3N13B2X97NOweLNg343IX282~N24IT—Nl3O—4<S[7ON3aSVIIl1NM25F4N85NOed9M3NO2OX(oTN7“V%NO5o8OW0ONSOX%84IU2NN1OM—9N%2“IoI&MMM1557BS—3e“9M%IN5=n=O—R3O8%O7a3——R
uTy9yAcOowAMuuCCm=aABm&CT.1Nx0AIny‘F13m1.I[nTlTI4zBiR«w].u..savabnT4N.r<aa«1.=s&Iae*VN~Ren«3Nw.**T[“«ub9y.2%GeOly88u1%C”D7“.-aN”oL0z-—%esRnul-R4T1—fl%yM2fN5iaMsNw3VAN2IuOGR37OnM1O27AW&1%NyN.IW1—MN‘wO5—
CROSS REFERENCE TABLE

ASNDA
ASNDC
ASWREG
ATA

AUNIT
AUSWR
AVECT1
AVECT?
BACK

ATESTN
ATNMSK
ATNTBL

6-O#
6-On
5-0
4-5594

9-74

5-0
5-0

5-0

12-005#

2-PLIN

16-300+
16-299+

16-331

25-138
60~63
40-83

40-64
40-84

40-67
40-87

40-68
4£0-88

10149

11-11

41-34

5-0

5-0
5-0
50
-0

®r ¥R

2222222
thitiet

¥OOe.eBNBN
VT,eOVLRTee]INFSTeVNNTeVYNTPPVoTP0VSYNT0lVVTOPSUIY7=ooVNTNlPTANNUIX1oNXoV1PlIVoTlPoTWIlY0PVoNTTlPoIVoNkl0TWNolO]PVaoTlPdONoTeoINNlTTeoNaldToPNoelVTdoOPVTNoNlPlaNnoedVIand|!gP§Ao5NlOLtaenLdPye0NAel|T|LNaenYdPoTNIlIIPaonLNORdIPIlanLdIPIloBalLnOIeIIdLeanlIYeIIdLeaAoI|[[nNld — g »NM1—O¥-eNNNNWSVB-®YM-OrVMeOTMVVONLeTOPI3IWOOUMoYRPONWM=VOTYPIOM.ANTVeO7ToAAWPV¥® o7L0.VIOTeOO00WS~YTOPNWAOTTOWUVYT0OVCNNT7U00RINWN7.POVOTovP\00,TVNxeMTNvOVNGIATe7PNPOOVMVeMoeTTIANAW.TYPT.PINVONTO~eo7eRCNFVN¥NTMOPTTTVINQNTWPMTO]oV®TNTgV»VNG*TTO®NMT-QNPT3¥VOOT[—)¢°AVNO&=L1PoNTNORTLoyNBMbII|Tog3TNMNLAITITyb.xNNITNLOTIINgLR3NxLIIyNvLIIRRT~NyNMIILRYA3®B0eLr|AL
OOPY9—*B&INrOUuI—PoOOU6V=YeIgNRyT=oIIPAI=qVNPU§3=TPMOIIy=(Ne0uTeOIRU(y(Iee=U(SO0eI7&0T0PUNyOIAPPT7=ePO0Ny®-0eI0»7B0PTuNII0OPI3eoPoN¥eTVTIONoePI0I4oeTA“NN0PTk1ReO“PNooON5TPA1ePP)ANR”®eITTNr63NioPOb0eeTPIA4PeeIPN2IIP3P*2IPTr“XIePTIAP8IINA2NARI7TOOIIOkNL9I[|
V)AgPNI0gL0=IgINoT0SIOTIOANI0PI1PIoFP[NoOIeO|I4PoOI0oI1ONOI!0RNIPYNo2OPooOR)JNeI0/ITTRoETIL( RNeIo|PPeeNeONeP]ePNPPA0§ 0TPNbR APNA0PPN0P¢1AtBNPI11 BIN
CZRMOAOQ RMOS5/3/2 FCTNL TST 3
(CREF v01-05 )

MACRO v03.01

16-332

25-139

R%X

16~359+
16-367+

25-141

¢ 9
1 ~APR~80 13:39:53 PAG E S-7

19-P4

12-Q074

16~360
16-368

29-156

16~362+
16~370+

40-69

29-157

40-70

29-192

12-P634
12-Q414

12-P754
12-Q44n

12-P814
12-Q52#

12-P84H
12-Q55#

16-363
16-397

16~364

16-366+

16-398

33-145

33-146
40-73

40-71

29-195

SEQ 0312

12-M854
12-NbiH

40-72

12-m88#
12-N46H
1 =0384
-096#
1 2=P91A
12-Q57#

40-74

33-185

12-M90#
12-NGBE
12-0414
12-P11

12-Q60#

12-P9%4N

40-75

33-188

12-M93#¢
12-N61
12-045#
12-P11&¢
12-P96#
12-Q644

12-M97#
12-N61#
12=047#
12-P22#
12-POS#
12-066#

40-58
40-76

40-59
40-79

12-1384

12-151

b
3

12-A06#

12-A17

12=-A174

12-A41

12-A41%

12=A4in

12-A4L6H
SEQ 0313

mmmmmmmmm
MMM
mmMmMmMmMm MMM MM men

0
12-A06

hakaat

12-391#

mmMmmmmmmmmmmr

12-3914

12-991

12-38%¢

12-385#

MMmm

12-a89

RIAoImTS0LW3J8yImqeN“SXsSmL9[l,e«n4LNbIk1m9AoS.3181fTRRaGi6TDBRS0E%9N0RICwV&2BIuDLaIA1EmLn+ERmBuoT1ISFONWARFnSAInemFONT3GRTWGYNTONmoTBLRH—3TTBVSNRwet0I3tOnNBNNIB0]AIwTWSILNUR03T3JIuDo2oOKRTm03LISM3sI|Nts*EmRneOV3LTBIazoALlS=EIL3WmNMRo1IiNL%O3emnRMTRo0db#MnPOEemS*0Ro3ROEQ3A~CxFSEu%8OEBRNASwWA10NLrD*m1y]TaAP[

mmBmSNMwww‘mAmRmV.mSImwuw&MI“wmmmNRnwnwuwSmE%uBTwOmWNwmRaOTmmNmwNIOwwOCmNmnOwnnNnmxoMwwmNnmnMwwueAmmwPMwmBNmaumOwsmwOmwN.mmOmwmPnOnnamnOmmnsnwmwnaum0
2|[VV1¥S24eT])[NooVV¥¥9eTeTyooVVV20TTTYeoUT¥“T¥1oVVwV26]eSTTTFVVTTTRV2WWTT1YVVeVOwo o-YTTTl—o2VVWoTTO]V(VwUXVTTPTR2SVQWaYoWTTO]oVVVwlTTTOoo2ToTVQTWNolP]]YNLWoI]V(ToTTOQXVl0B%NTo2TTVeoWlNQT]O[[WlQVoNUdNTIlTo~QoQeoaNNNl1TTllCVaQQTWkW7O0]oY2VooaAQUQT3lledN0WNQVooSRNTTlle0T2oTQooVIQN-TllN0TWo~QTNNkEXQoTTw0WFL2kNVnNTlTT_eOooVQToQoNdTNllPT20NNtToaQo—dTlNWWO0oiNoQQQTTdl2Wo0NMINQloWeTdTl0TQoVNQooMTTW2l0l[ogNVTooOPIdToll0WVoXNonQooOT2edTlVV8IoVVoog[TIllTV9[Ooago[k2eVaVMlPlaTVTVJaIoaoIVVenalladIIVAVaaoIoVi2Vnegllg.dTIVVoQLILI6Neoag[(]8 ]I T]}lWVk@Q

V2VY—J-)]]*4V.TUYF¥,T9JVV2PSY4¥TNY.eFVVQI=-RTTR.7VVN2.eT==TVYRTS*¥TVV2I=SoTTVeWL=RY=TYloTWV2NO1STTNoVQkTNUP]NVV2VX*3TITPNoLVVIo®0TT=P»oo§eo2QTlVWIeYP0]TOVlNeTT=.-.loSoSA2WXrxb]TOP%Ti0Po3lVVe2eTT.%P0oVoNXNTl.POVoV2*¥X=T-lTo3NToN+N.eTT0WbTQ.Vo2.WkNNPYoVoV7NX.®TTo».NoNV¥2.TTNleoTeoNI.0TQlONo3Oo2Q.QWelNW0YViQQ.EdY¥VNNeTTMoTAT*2QNlWQTTN.MWCoNW.rLTTlP0Io3oNo.VV2*TTlGPPoo.-QoEeNQoelYTIW.[Vo2NoLTolo.PTV.TaVWoBAeIoldPNSaQT.*Woar2QTd®oToT¥lVo-gQV[oNQleeeNaTLfIV.Io2YeIQgelRPaeVVIoKl.VggLkeePSTVg3.I*LV2Pa[QoooaVd(lVTg
BADSCT

BADTMO

E% )
BAl

B801

02
3
04
05
06
4
8

1VYAR-)]0oVeTRNoVxTI1WVR]TVTAVeRNTVW3TYeV3ET1AVWTYoVTNETWIV(3eBWTOY4VQNo€TsVo£0TloeNVARR lTT0[SEVoNTl0WRoeVolWT01oVTIQlTN]RleVoTOWeTNTolOVoeoIJTbNQl0TN3toVNT0loQOSlT0oVkoTloVloTNoAoNRNdP=TlNoQoNTl0To|NoQTlNVoINQoANTeWl]oNJoTeloUPNoQTlWeRioSoNo]eIlVnVk=dTIadngoPdVao[ldeaQLV3IToQ[a]lV
3—T—Fe\ %? eN3LN=e»=N0rPYe¥YOrYP7RN'PR¥NnPNRPeePOrTNRPNPNoeNPYT ‘NPPPPePeReEeYYo

CZRMOAQ RMOS/3/2 FCINL TST 3

CROSS REFERENCE TABLE

O-3#
4=7464
4~6774
46774
46774
4-6774
4-6774
4-6774
46774
46774
46774

4=491n
4=469
4=4691
4-491
4-491
4=469N
4=491
4-491

46774

(CREF v01-05 )

12-74
4=46914
4=491
4=491N
4=4691n
4=4L9N
4=L91H
4=4L91a

MACRO v03.01
9
E
11-APR-80 13:39:53 PAGE S-8

SEQ 0314

26-28

9-21

767

4-688

4-730
4-764

4-743
4-763

4-581

4-603

4-619

4-636

4-660

4-677

4-687

4=729

4-742

SEQ 0315

MMAMMMMMmMmMmMmm

6=567

4=4L91a

mmmmmmmmmmmmMmMmmMmMmMmMmMmmMmmm

=69

MMM

BIT07

[

CZRMOAQ RMOS/3/2 FCTNL TST 3

CROSS REFERENCE

BIT12

BIT13

BIT14
BIT1S
BITZ2
BIT3
BIT4
BITS
BIT6
BIT?7
BIT8
BIT9

BOTADR
BOTFLG
BPTVEC
BSE
BUFFER
BUF ONE

BUF TWO

CC
CH
CHRCNT
CKSWR
CLKADR
CLKVCT
CLR
CLRSTS

(=491
(=49
L4~4(91n
L=49n
RLCAT

(CREF

4~(9n
4~49n

v01-0S

38-6

4&=-4914
L4=491n
L~5914
4=(9
N
449
L(=491N
L~491a
L4~4L91n
L(~4914
L=491n
4-491#
L=491¥
14-53~
1439+
L4=49"8
46814
16=49+
12-105
12=:41
12-C61
12-J79
12-202

4£~580
4-579
17-26
4-609
4=577

4-602
4-601
26~48
4616
4-615

4-614
4-630
4-629
4-628

4=649
4-648
4=647

S1-4#
L4-6734
L=674#
146-40+*
38-6

4-491#

4=631

4-618
4-617

4-635
4-634

4-677
4-677

4-728
4=727

4=741
4-740

38-6
38-6

38-7

4~633
4-632

4-659
4-650

4-674
4-658

4-686
4-673

4-726
4-685

4-739
4-738

4-762
4=761

4-657
4-671
4~670
4-669

4-672
4-683
4-682
4-681

4-684
4=725
4-693

4-737
4-736
4=724

=760
4-759
4-735

15-111
38-7
4~758

4-757

15-73
18-33

38-6

12-717
12-A24
12-H70
2-P17
12-995
12-N19

12-771
12-A26*
12-126
12-P58
12-:06
12-N48

12-862
12-A28+
12-J04
S51-3#
12-:06
12-067

12-916
12-A71
12-J25
12=:21»
12-0%96

37-18

38-5

39-3

4-692

4-723

4=-734

12-D93

12-€57

16-221

25-431

12-394
12-274
12-D61
12-M76
12-534
12-F97

12-623
12-304
12=F16
12-021
12-698
12-L75

12-698
12-A12
12-G47
12-096
12-955+
12-M03

14-72

14-1364

37-18

18-90

23-13

CNSLO2
CNSLO3
CNSLO4
CNSLOS
CNSLO6
CNSLO7
CNSLO8
CNSLO9

SEQ 0316

12=-=2

CMNSTA
CMPBUF
CMPERR
CNSLOO
CNSLO1

CNTCLR
caMmMA
CONT
CR
CRLF

)

G 9
11-APR-80 13:39:53 PAGE S-9

B1708
BITO9
BIT1
BIT10
BITN

TABLE

MACRO v03.01

9-6

12-£68

12-J04

10-50

10-144

39-264

15-76

30-12¢

10-136
9-25

14-56

9-25

38-5

9-39

12-M03

12-N48

12-096

18-174

38-5

47-79
9-56

9-57

11-2¢4

9-50

1
——~

PP PP

39-22
SEQ 0317

PP PR PR P

39-20

39-18

39-17

39-16

P PP

39-15

39-13

T P

NN AT P

39-12

MmN

39-12

39-11

M I

39-10

39-9

MMM

39-6

MMM

39-¢4

DEVSEL
DISPLA
DISPRE
OLT

OMD
DPE
DPEHI
OPELO
DPR
DRQ
DRVCLR
DRVSTS
DRY
DSWR
DTASTS

DTE
DTO

DULPRT
DVA
bvC
EARLY
ECH
ECI
ECRC
ED1

ED110
ED111
ED114
ED223
ED336
ED337
ED353
EDT1

L{-664n
4-6114

4~612#
L=762#
4(-S573
L4~4(9#

L6134
15-62
S=-0#
L~784#
L=734H
L{-625#
4(-688#4
L7584
L=-755#
L5664
L{~6500
4=511»
16-105
4(=-567#
L4=4914
12-138
12-841
12-a45S
12-103
12-092
L{-S76#
4-614M
4{-653#
4=497n
L6874
12-K84
L{-630#
4-582#
L-658#
L{-6344
45-1
45-4
45-5
45-7
45-8
45-10
45-11
45-14
7-4
7-49
7-91
7-134
7-183
7-240

35-413

35-416

35-43

35-466

35-469

29-195

31-125

25-489

51-32
51-46
51-60

gf\)
o

18-23

48-18

& &

39-28
51-26
51-40
51-5¢4

39-26

SEQ 0318
bk
-

L
= N UNNON)
W
= NN

b ad b e O

39-24
51-22
51-36
51-50
51-64
11-39+

[

11-APR-80 13:39:53 PAGE S-10

CTLFG
CYLMSK
DBCK
DBEN
DBL
DCK
DDISP
DEBL

39-23
5121
51-35
5149
51-63
6-0#

TABLE

|CROSS REFERENCE

MACRO v03.01
(CREF vO1-05 )

ALV,
LV, LV, ]

CZRMOAQ RMOS/3/2 FCINL TST 3

—

9-19«

38-6+

35-492

35-495

25255

29-32

31-125

31-126

12-F 32

12-F91

34-18
25-38

12-7
9-89

12-426
12-.71
12-C05
12-L10

12-D41
12-M55

12-604

12-=49

12-649

12-694

12-E64
12-N&4

12-752
12-239
12~F 66
12-003

12-797
12-795
12-G26
12-047

36-97

12=->79

29-127

31-115

24-68
33-266

34-17
35-239

36-89

36-94

4-590
18-21

25-487

16-225

25485

40-77

40-85

40-86

7-40
7-82
7-124
7-173
7-216
7-273

7-43
7-85
7-127
7=176
7-219
7-276

42-107#

49-14

49-104

7-10
7-55
7-97
7-140
7-189
7-246

7-13
7-58
7-100
7-143
7-192
7-249

7-16
7-61
7-103
7-147
7-195
7-252

7-19

7-64
7-106
7=151
7-198
7-255

7=25
7-67
7-109
7=155
7-201
7-258

7-28
7=70
7-112
7-161
7-204
7-261

7-31
7=73
7=115
7-164
=207
7-264

7-34
7=7%
7-118
7-167
7-210
7267

7-37

7-79

7-121
7-170
7-213
7-270

746

7-13
7=-179
7-237
7=279

7-282

7-285

7-288

7=291

7-294

7-297

J
7-300

7-303

7-306

7-309

7-312

7-315

7-318

7-321

SEQ 0319

169NO%AW55N319A7T8R1OA3%TN”2F2O21NM793N1A7N2M84IN7M05AO14NN%I26NOINem—Oe— 1WOn“No8~wWk30OOAN—ONNKOeUM—ROM\MNN
TABLE

(CREF

v01-05

[Va)

NeVUU~ANOA—NRONOINNDANONTARN—LUOONUSNUNIRMUAROMUAINURNUN ONsAUUO—UWOSoUNUNORSOUNUBUMRRNOL

3TPROYTRT—NT—=TNRNOOMNNRUNMWAONROMANEOEOTNN\PDNVN3=TNAOARNOTTMNONARMWB~YDOAMLNNMOTNNOINAOAFR—MTNTUVRNIMT~ATOOO—ONNTNYARWYNMAAYVO—IUMMTNINTNORNIAFNONNMIMNMNOUNTTTVMMITINFTNANNROMIMIAAONFMNRNNTONMDNYTON0MNNNO TOYYRMOMINNNONOeYAAMMAUYAPOVNNL=NMPYPYAF NUNNROoyOYnS[RY1ANTO10lSo0SByMUA“S7[0RTVA¥0VYOOe4LAN]o~03L32SNINTNANS‘(-N~x8IVYT_o4,PORR~mw[a|y3¥P]TaX=OTNTTN3TOOOMNFNOYUNMMOIOOeDTTN—NNA—NMGNISSVMNTTMYAND—NNINTOOTNJRTMNNON—SIPEOSOMTNTMeNOAOWA—.eUTTOeeMMMNNOyYNOMN~~YYOOO[?NNAO
YVW—ONNAVVTWANRVNNMOOV——V=PMIO=ONNTY—TFT0MVN—AOOAMWRMTIVNOTAMOOTLMWNMOTNTIAeAOeADTAY—2FEOONMTOIAAAeeOTWO—II—T.NONTOMO~—TON JWNTYTA—oO)OMNIYPAlOTNTFSNeDWPVTELONNWa—NONlMPeTWNOeNIIleYYOI YT OCOeNFlTTA O[
TMmRwoyYAVTOOMTWLNDMeTNSN MNWAR=N
~ NIV

[Ni iraonmya y——yraQNUgMYr1NIgWarg)=—Yre3)a==TY7)==Ra)OONYITNeaLVOeWYO)bNaIOeUYRMaUbMVIMibMa=UbV~TYWbYvo=—L TOTar?
CROSS REFERENCE

CZRMOAQ RMOS/3/2 FCTNL TST 3
MACRO v03.01
)

K
9
11-APR-80 13:39:53 PAGE S-11

SEQ 0320

AR4

7-517
4624

7-691
46=-10#4

J ]MtLGWLyMbL))L))))LAWA))UW)L))WAG)W)L))WY)UWGWLYALLAL)AB)bLALkLGRbUot
EH353
44-15

(8-18#

SEQ 0321

CZRMOAO RMOS/3/2 FCTINL TST 3
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )
EHT

EHT110
EHT111
EHT114
EHTZ
EHT223
EHT256

7=4
7-49
7-91
7-134
7-183
7-240
7-282
7-324
7-373
7=415
7-526
7=574
7-622
7-664

44-14

7-222
7-225
7-234
7=427
7-448

7=7
7=52
7-94
7-137
7-186
7-243
7-285
7-327
7-376
7-418
7-532
7-578

7-10
7=55
7-97
7=-140
7-189
7-246
7-288
7-330
7-379

7-13
7-58
7-100
7-143
7-192
7-249
7-29
7-333
7-382
7=424
7-538
7-587
7-631
7-673

7-691

EMS100
EMS101
EMS102
EMS103

43-196
43-197
4£3-182
43-141
43-214
47-704

EMS104
EMS105
EMS106
EMS11

7-16
7-61
7-103
7=147
7-195
7=252
7-294
7-336

SEQ 0322

7-19
7-64
7-106
7-151
7-198
7-255
7-297
7-339
7-388
7-4636
7-544
7-595
7-637
7-679

7=25
7-67
7-109
7-155
7-201
7-258
7-300

43-184
43-197
43-219

4£3-186
43-198
43-220

43-187
43-203
47694

43-19
43-33

43-20
43-43

43-21
43-177

63-52
43-110
43-190

63-54
63-134
63-192

63-55
43-137
43-193

43-60

43-185

43-201

43-9

4£3-92

7-28
7=70

7-37
7=79
7-121
7-170
7-213
7-270
7-312
7-358
7-403
7-508
7-5€0
7-610
7-652
7-709

7=46
7-88

7-131
7=-179
7-237
7-279
7-321
7-370

7-412
7-523
7-570
7-619
7-661
7-724

7-517

EHT336
EHT337
EHT 344
EHT353
EMS1
EMS10

L
11-APR-80 13:39:53 PAGE $=-12

43-17
43-31
47-734

4£3-188
43-204

4£3-189
43-205

4£3-234
43-206

4£3-235
43-207

47-68#
43-208

43-209

43-23

~3-24

43-25

43-26

43-27

43-139
43-194

43-63
43-142
43-201

43-66
43-179
43-205

43-67
43-182

43-221

43-70
43-183
43-222

43-225

43-228

43-230

43-23

47-81#

43-93

43-94

43-96

4£3-98

43-126

43-127
43-50
43-108
4£3-188
47-794
43-225
43-149

EMS120
MS121

43-99

MS15%

43-90
43-101
43-169

EMS122

EMS15%
EMS135

lEmS156

47-88#

4£3-95

47-85#

EMS127

47-8%5#

SEQ 0323

Lo)AbeUl

CROSS REFERENCE

TABLE

EMS13
EMS130
EMS131
EMS132

43-42
£3-95

EMS156
EMS157

EMS16

EMS160
EMS161
EMS162
EMS163
EMS164
EMS165
EMS166
EMS167
EMS17
EMS170
EMS171
EMS172

EMS173
EMS174
EMS175
EMS176
Ms177

MS2
MS20

EMS200
MS201
MS202

EMS203
EMS204

43-11
43-11

43-11
43-13
43-11
43-11

43-216

47-134

43-104
4«3-81

47-914

43-106

47-1164
43-58
43-72
43-45

47-1154

43-59

43-73
47-1184
43-57
43-142

43-49

47-17#4
47-123#
43-105
47-125#
47-1264
47-1274
43-217
47-130#4
43-5
4%-58
“7-1314
47-1324
43-130
43-130
47-135#4

B 10

11-APR-80 13:39:53 PAGE S-13

SEQ 0324

47-904

.3-82
4£3-96
6£3-169

(£3-83
43-97
47-924
(£3-83
63-92

4<3-84
4£3-98

4£3-85
4£3-99

4£3-86
43-100

4£3-87
43-101

4£3-88
63-102

43-89
43-103

43-84
43-93

4£3-85
43-94

4£3-86
4395

4£3-87
43-96

63-125
43-126

47-934
47-94n

63-102
47-974

43-103

43-104

43-105

43-106

L7-964

43-107

63-117
43-61
6£3-184
43-109
43-205
£3-205
47-1044
43-217

43-137
43-66
43-202

43-186
43-107
«7=100#
43-133

43-192
43-129

L7984
43-137

43-187

43-140

43-184

4£3-82
43-91

43-85
43-13
43-44
43-35
43-47
63-47
4£3-36
43-36
43-109
43-69
43-13
43-50
47-106#
43-69
43-50

43-11
43-11

)

43-110
47-1024
47-1034

43-90
43-104

43-9
43-105

43-92
43-106

43-188

43-197

43-222

47-994

43-202

43-205

47-1014

43-223

43-234

43-70

43-71

47-105#

43-67

43-111

43-134

43-138

43-182

43-183

43-194

43-195

43-217
43-111

47-1074
43-134

43-182

43-183

43-194

43-195

43-223

47-108#

43-124

47-1104

43-173

47-1124

43-61
43-143

43-62
47-1174

43-63

43-64

43-65

43-66

43-67

43-68

43-69

43-72

43-172

43-196

43-197

43-198

47-1204

43-122

43-123

43-124

43-168

43-169

43-170

43-175

43-235

47-122#

43-126

47-1244

43-219

47-128#4

43-118

43-119

43-232

43-238

L7-184

47-13 A
43-23

47-1344

EMS151
EMS152
EMS153
EMS154
EMS155

v01-05

EMS136
EMS137
EMS14
EMS140
EMS141
EMS142
EMS143
EMS144
EMS145
EMS146
EMS147
EMS15
EMS150

EMS133
EMS134
EMS135

43-13
4£3-86
4£3-87
63-79
4£3-93
43-125
43-79
4£3-88
4£3-97
43-99

(CREF

MACRO v03.01

47-1144

43-132
43-132

43121

~NW

CZRMOAQ RMOS/3/2 FCTNL TST 3

EMS20S

43-55

43-142

63-179

63-233

47-1364

c 10

SEQ 0325

CZRMOAQ RMOS5/3/2 FCINL TST 3

CROSS REFERENCE

EMS206
EMS207
EMS21
EMS210
EMS211
EMS212
EMS213
EMS214
EMS21S
EMS216
EMS217
EMS22
EMS220
EMS221
EMS222
EMS223
EMS224
EMS23
EMS24
EMS2S
EMS26
EMS27
EMS3
EMS30

EMS31
EMS32
EMS33
EMS34
EMS35
EMS 36
EMS37
EMS4
EMS40
EMS41
EMS42
EMS43
EMS44
EMS4S
EMS46
EMS47

63-55
4£3-168
43-15
63-169
43-170
43-171
43-1N
43-55
43-236
43-237
4£3-237
43-16
43-179

43-231
4£3-233
4£3-232
43-121
43-17
43-18
43-19
43-20
43-16
43-4
43-17
43-33
43-177
43-21
43-22
43-23
43-24

TABLE

MACRO v03.01

(CREF v01-05

63-142
43-170
47-194
43-170
47-1404
63-172
471424
47-1434
47-1440

)

43-170
47-1384

43-179

43-173

47-1394

D 10
11-APR-80 13:39:53 PAGE S-14

SEQ 0326
43-233

L7-1374

43-115

43-116

43-173

L7254

43-22
43-130

43-23
4313

63-24
43-132

43-25
43-133

43-208

47-274

43-227

47-304

43-215

47-324

47-1414

47-148#

47-24M

4£3-26
43-144

§3-27
43-145

4£3-28
43-146

43-~29
$3-147

43-30
43-174

43-31
43-175

43-32
43-176

47-404
43-118

43-147

43-186

4£3-187

43-188

43-192

43-177
43-60

43-185
43-61

43-201

EMS5
EMSS0

43-132

43-135

63-141

43-181

4£3-185

43-189

43-200

43-201

43-221

EMS51
EMS5?2

43-139
43-149

43-142
43-178

43-185

43-189

63-221
43-201

47-430
4£3-228

43-229

43-230

43-23

43-233

EMS53

43-44
43-187
43-218

43-45
43-190
43-219

43-47
43-192
43-226

43-62
43-193
47-450

43-64
43-194

43-65
43-195

43-73
43-200

43-140
43-202

43141
43-203

43-63

43-67

43-143

43-144

43-178

4£3-182

43-183

63-194

43-195

EMS54

EHSSb
MS55

43-119

63-194

43-195

E1 0

43-196

43-197

47-198

43-199

43-200

43-201

43-202

4£3-203

SEQ 0327

£3-193

[

43-192

TMMTM

43-19

43-190

[2Y2Y~)

EMSS?7

CZRMOAD RMOS/3/2 FCINL TST 3

CROSS REFERENCE

63204
43-223
63-6
43~224
63-224
43-224
63-42
(3-8
43-41
43-34
43-43
43-10
43-48
43-221
43-51
63-36
43-139
43-49
43-69
43-35
43-35
4£3-38
7=4
7-25
7-198
7-201

TABLE

(CREF

63-205
43-228

MACRO v03.01

v01-05

43~206
63-229

)

F 10
11-APR-80 13:39:53 PAGE S$-15

SEQ 0328
43~208
L7-69Nn

43-209

43-210

63-211

6£3-213

43-146

45-147

43-199

47-54H

43-48

43-49

43-50

43-70

43-73

43-208
43-57
4£3-187
4£3-180
43-221
4£3-188
43-40

47-5
43-60
4£3-193
4£3-188
47624
4£3-222
47-64H

43-214

63-215

63-220

43-51

43-52

43-54

47-574

43-107

43-110

43-139

43-182

43-61
43-195
43-222

43-61
43-232
43-223

43-63
47-604
43-234

£3-223

43-234

47-634

63-221

43-222

4£3-189

43-194

43-205

43-108

43-109

43-134

43-135

43-235

47-614

~ o a0
U

SemgBmgSegPmgSumggGBungSgSugPmngGumgGGangPSBregPrmgPSungBumfBmafGSmgSugBSBSgS0tP9gPum vXLL=

EMT13<
~~
[}

o [Va) ®

G 10
v[V
] o o M oo

CZRMOAD RMOS/3/2 FCTNL TST 3
MACRO v03.01
CROSS REFERENCE TABLE (CREF V0105 )

M121
MT210
MT211
MT212
MT213
MT214
MT215
MT216

L 3

g NN
—

RN
\h&g

=09

b
b

e
ed mad

T aF ¥ oV o)
PO oW

d eed
el ad o
—

EMT165
EMT166
EMT167
EMT17
EMT170
EMT171
EMT172
EMT173
EMT174
EMT175
EMT176
EMT177
EMT?2
EMT20
EMT200
EMT201
EMT202
EMT203
EMT204
EMT205
EMT206
EMT207

(LY,
I S G

EMT164

(3-964
43-974
43-14H
43-98#
(3-95#
43-100#
43-101#
43-102#
43-103#4
43-1044
43-105#
43-15#4

[}

EMT141
EMT142
EMT143
EMT144
EMT145
EMT146
EMT147
EMT15
EMT150
EMT151
EMT152
EMT153
EMT154
EMT155
EMT156
EMT157
EMT16
EMT160
EMT161
EMT162
EMT163

7-288
7=291
7-37
7-294
7-297
7-300
7-303
7-306
7-309

oW AW o 8

EMT136
EMT137
EMTI14
EMT140

43-1444

H10

11-APR-80 13:39:53 PAGE S=-16

SEQ 0330

7=436
43-1454

IFTITIFITEIYF2.722200000Q2TJIJIJEFETETFTTITITITIEYddd

EMT217

110
SEQ 0331

CZRMOAQ RMOS5/3/2 FCTINL TST 3

CROSS REFERENCE

TABLE

EMT22
EMT220
EMT221
EMT222
EMT223
EMT224
EMT225
EMT226
EMT227
EMT23
EMT230
EMT231
EMT232
EMT233
EMT234
EMT235
EMT236
EMT237
EMT24
EMT240
EMT241
EMT242
EMT243
EMT244
EMT245
EMT246
EMT247
EMT25
EMT250
EMT251
EMT252
EMT253
EMT254
EMT255
EMT256
EMT257
EMT26
EMT260
EMT261
EMT262
EMT263
EMT264
EMT265
EMT266
EMT267
EMT27
EMT270
MT271

43204
43-1464
431474
43-1484
43-1494

MT272
MT273
MT274
MT275
MT276
M1277
MT3
MT30

7=55
7-439
7=4642
7-445
7-448
43-1504
43-1514
43-152#
431534
7-58
43-1544
43-155#4
L43-156#4
43-157#4
43-158#
43-159#
43-160#4
43-1614
7-61
43-1624
43-1634
43-164H
43-1654
43-1664
43-167#
7-505
7-508
7-64
7-511
7=-514
7=-517
7-520
7-523
7-526
7-529
7-532
7-57
7-535
7-538
7-541
7=544
7-547
7-550
7-553
7-557
7-70
7-560
7-564
7-567
7-570
=574
7-578
7-582
7-587
7-10
7-73

(CREF

(3-21»

43-22#

43-168#4
43-169#
43-234
43-170#
43-1714
43-1724
43-1734
43-1744
43-1754
431764
431774
43-24M
43-178#4
43-1794
43-180#
43-1814
43-182#4
43-183#
43-184#
4£3-185#
43-25#4
43-1864
43-187#4
4£3-188#
4£3-189#4
43-190#4
43-1914
43-1924
43-1934
43-5#4
43-264

MACRO v03.01

vO01-05

)

J 10

11-APR-80 13-35:53 PAGE S-17
SEQ 0332

7-591

63-1944

K 10
SEQ 0333

T¥111T3L41_L_1_L=A

EMT30C

CZRMOAOQ RMOS/3/2 FCTINL TST 3

CROSS REFERENCE

TABLE

EMT301
EMT 302

43-195#
43-1964
6£3-197#
(£3-1984

7-595
7-598

(CREF

MACRO v03.01

v01-05

43-224H

43-344
7-106

43-374

)

L 10

11-APR-80 13:39:53 PAGE S-18

SEQ 0334

belv
ol vib o kb o]

b
oelbolrolb
ol ol s K Y

43-38#

7-109

DDODODDODD

EMT44
M 10

SEQ 0335

CZRMOAOQ RMOS/3/2 FCTNL TST 3
MACRO v03.01
CROSS REFERENCE TABLE (Ck.F Vv01-05 )

EMT4L7
EMTS
EMTSO
EMTST
EMTS?2
EMTS3
EMTSS
EMTSS
EMTS6
EMTS?
EMT6
EMTH0
EMT61
EMT62

7-1 2
7-1 5
7= 8
7=1
7-1
7-124
7-127
NON—=

EMT4LS

EMT46

7-131
7-134
7-137
7=-140
7-143

N 10
11-APR-80 13:39:53 PAGE S-19

SEQ 0336

43-398
43400
43410
43-7#
43420
43~434
4340
43454

EMT63

EMT64
EMT6ES
EMT66
EMT67
EMY?7
tMT70
EMT71
EMT72

EMT73
EMT74
EMT7S
EMT76
EMT77

9-19»

25-86

25-102

9-19+
12-40*

9-19+
12-41*

14-32

21-33+
23-11»
30-25+

14-36

12-5
12=57+«

21-34n
23-35«
38-6

EMTVEC
ENRGDT
EQUALS
ERR
ERRNMB
ERROR
ERRTYP
ERRVEC

8-20
38-6+

12-6
12-58+
22-5
28-21+

20-35
22=7*
28-51x

20-39+
22-13+
28-51+

20-40~
22-20*
30-12

12=20~

12-264+
20-70+
22=21+
30-12

12-8%

12-19+

26-113

12-99

12-825

12-830

12-C18

12-C23

12-0D86

12-D89

12-E48

12-E51

16225

25-416

35~348

35-365

12-99#

12-110

12-110#4

12-1104

12-126

12-126#

12-1264

12-129

12-129#

12-131

12-1314

12-134

35-394

12-151

"KL

121518

12-1510

12-168

12-168¢

12-171

12=171#

12-173
SEQ 0337

12-138#

LJRRRBELEIII
Y

12-138

Poogo
o]

12-1344

12-1342

c2—QWiNT—Ao%2OwaAO%.3=Nw0MYOaNCM8sGC30MYI2aN*DN3AuDomOYOAOLMM-CYCO%8a*~y2R\M(NF2SADTCEWRi*.Dny1MN-TCuNWSTNm3u-,2EDOn%7¢o1¢Or43TNm&9OYn&4<Q12NbSESeu6¢1&Ww-0&LL1au74N%BUy1.N17W=3WA.Oz7y8w1u.NIN“lBRr9N1uDHV8nL3o)2—8YOyA7-}WT275sWyH8uMT.MGNJVASa77uA“CO1On2w,o.IO?GA901wu“nuV7NlMCHA18M.DA2.mO2uIus9GA4INN6H-CCLG4“9uF(NMIN1CB128uE.s9sHSTOIA2OCO31IAswDwHCM(6.N2a“04uBnzMuPO3FN9cWALLN82.uwo1-a—NAa4IVHOlrOl’NCr43Ty&8ay5IanHeVG)lIcA”7rum8W9.ctVCaT.qVLT<sN1w2sO3*AVIGN0N“ueNa.N(5%ouHCmVE34La4Vv<27RDI.7sv18nw2—OT7V=saQ5WN~0ePI1a4u92mOO3FAVPLsc4aTYL7e17u8I9VtQVOtR*Na”7beNoML2Hv2ANyIsO—.9IN50P1aB6¢12tvsZT*os¢cEMS7A2unI%6*s~yt¢2*4NWetRb3t¢MM4¢N&suLuC1,OMNGAQZC8OAI8OJ”0In2W”CAR”W33ROom7nuZ3MV“ASuI55Oy6621r5EMVN%N7OLun2973Oym19YONts0=Rn27%1u3%Oy3+35-nn23G57FBNAQOT2R6789o2AuL378T\FO.rkRNu23y‘7N=IObN\T2“8Ea134uNbGASOm35yO1S~R2UPI0u3JSOI2—NRBt294158—T(yOLNS2OVNO4n6R3IN4oC"2a—v—MV21T“‘4b06OnA—3—NNGJN2O”5w%Ry—NOA3OTD2N~\VN451n17—nC3M8?2P—SONS~-0O6Nuwy——”MU—2NINIOTO(5%0u7S4ONOm2NNYMfNIO68WFG1B2OIuIINDiNNWC6nmW—%5OO22R—?N:IoVNIN78n22@MINRuIMMOU&7Ow9NW25?ATNIMAENdOsM7Nnu234%MI=INO—TN“YOMN1829u26We—NA—N~=~
[ R

(CREF v01-05 )

L33

MACRO v03.01

R R R¥

* y 'R ®

YOUVRevLPX)y11WVyaTNU3U0,=egoPo1OaVN1U1YxoToPcgeD1P0AVOIoSTNaoT(NP=PPe1TVSeT=oIPPoVI3YoT(ooPPoSSI<IgoTooPa)1 (P)NBOTWo(PPNLSo)VSITeY¥o(ePIAWN(Oo(1oN0oOOTSP[AE0OUVBVH(7T(APP0oorAUI(O=N((OeooVrUVIO®I%ST(A0PO0PooWVoR=OHYO=Te0PU*CL(MVoOIOr(OReTT0PVIUSTV.e0ta0P0HoCUVIUorTOe0IA0P0.oLVAUUObT(P00I0N03oLrAUBVPTN1PT0IOP0VSIOTe10PIO0CAoVUS—T=oOVPb0TIoRVULU.S*00PIoCVUt—U=oTTeiPIOv0o-OYV-NOoTo0—OPocstNWBO1]P0OI0vPIoLTaUeAo=OON0TIbNsVT$rNOTe-0PIR»3TtTI8VNOeNTIPoI0Tb*OSoeeWOTOeON0W3oV(GATesVoei0ITWQ0MNo1OWetNTtTIO]NTOeeO0BoVIONeTeOP0Tt(MQ=IeWOe]VNNoVoeePbIWTVetoNTeDIPANCQANoRePeWINIOVtA—NoTeTSIOTVLJoFVoNTOePTVoOeIWNVTNNeTOVoTVGTeIOSoNTVNOTeTT v)[OoIIVNTQ]TTIONoVAOTgFYotNVLIRoN3TTN~gyIoB$NIoTNLPtNONITgoNANIVOIPgtoUNVMAITgOTNe(oN—TPOIyTNMU0IN[ NITIaAATNLoMOT OTY0NN=DMRIRVLVAB—O —fyL
[O2gO2&—®4]1I3!MO/=gVgPL2N2YB=egg1IO0V=egP|122QIIog([OoOPgP22NQ3Oe(=T)=oIb(iePETO=2N2IT(=OeoroEN(ooIY)Pe22O((OoeETieYIo(ePIo22YOIOoTPEIO(=(Yeo22MNeVeOPYoNEO=ooPT22YUoOPIT==OoOMVTP22Q0eOP0TTYoOeeP022®N=oeNT»0AO==PT22VePTNNN0.NU—eoA0P22OeoNPNe0oMPT22xBNOeO0PTrI3{OePoPNA22B/®7oOeBOee022NVMTePOXeVPP22OoePNReo2PT2MOeTNNP7O3e2PE&ObTIeP2J—e22OIRNe2Oe22Oe12O2I&2TNo)O22PTI2ITNO22INPTOM2eNTNO22eTIOe2eT0IPI22eeIT2T0O22IP02PI0N22LWeTN0IPTe2I4PRI—022OIMP22eOAF|L
W
APo—0*O}oVgPNLDNoQVAeNeIQ3IooTN(=oPUPoIIoY=Q)TVe(PoN(IPIYO7UoP7N(ATPoIAToTeISeo(VA(OP®(O0PoOoTPOoO(P7O(VPOo(OP3%o(OPo0oP5LRPO3IYeP0IYe1ONeBPNeITPvNNONvTPseNPRNITPPPPONONN®R OOeNPTNIPTNRTOTN[TRPYNNTIVPNTNeP)TeRNYPTITeIYPRIIPNTIPYRR eIIY¥OL
CROSS REFERENCE TABLE

CZRMOAQ RMOS/3/2 FCINL TST 3

cn
11-APR-80 13:39:53 PAGE $-20
SEQ 0338

12-E36#

12-E38

12-E38#4

12-E41

12-E41#4

12-E4 14

12-€45

12-E454

12-E64

SEQ 0339

2
x

12-€36

220

12-£33#

ool
ol o I o}

12-E33#4

12-€33

2B2p.SS—o2HT0foN2cLRNS1IMI8onOl.4YeA8S.k7foToNA2OO-0~0%l4AguD-TA!M48nYm;N2mTI51RS0SWBcOeNQ2SwASY2oIaBAERuIEp-ON5oOQTMvNmT3DN22eU1MAAnIaRoO—tW%a2NRNxNAomCMN02sIVR®TOEiSO1nMLeNPuNn7MZO2HYSVc.RED3>NORMYTIaFNS2LOWMO1R12NT3.£N7YAGxg1~03R%4.F~N8t%o“W2-vL.31W—-7QSr”80.fSQa1PW¢1B927iS4O8m1%0MROT.%1os“u03I&1SL71e&2aAS43O0JRC9NNo74IR.0.yJ1DE81S%¢2vaST4IJua6ERR@.OIy1%fWT1YP02fSIi5liO~NFMRyROL3o%R1AfDMEF12ONWgl3Ytp%IG&N#WLad1sNS1HM2B3MIRMT*BMu”SIN1ooR1H2RWLNN*I%Ei“&TO1VuS1QFN2I%OCW)GTF#T&—lS0eId1hI~oINRe1%XIJGT“2OILS)uv.NY@A¥N%G4MeAIuI71®ORWiTU1.KG”S2wO7JTaBNH3WI7MRsfJ1CNOSRWJR1«.lW5eRTIJIHw*CKRH8#43&t1LEBN,JlO1LIM2.N\BPPTH?IdVGR1IJW&0S1RnOIIAE1LIVM2C.aZJMU.I1WJZuonEB1dJTfLRONT1%J%&E2SoJiJiICULE1MKST.yK1OLtANIyN1oKXTP”4«L23LéGRnaR1MKO%5i1UsAw%A1LM36oEITNwLOT1LéNS81FnMuoRNXEw1OLMB2OFBUvONE1RL#u1%aWROsWNTVY1E*8WmGW2NgERSL3«IETBA1*&t1u%SYN==ZOIWWTQwT2BYwS"«SmR"P)
o

[VV]

uJ4[TeY-+

o [Va)

[}

[Val

‘e -

& x 3b .S

&AV—SF-0—])e%F3Ao3VNTN0—YoIOBVT0to-VETXSegyTt—OoNTVVoGTIg«NRoB&wSONo[OeNS-VTTIaEiAVrOTeFVNIoPaVTNTDAHOIotNVQITTVCoBMTotaoVNODtIVaRMINQoGO]QONIRTaoIXMNFaPYTIa2VOI[5oPVA&e5xN[+RM0O2LDVR)ITNVR0,]IVN¥€T=,7O2TG—r--oODVVATe%]T¥VO2TMFT=WVJFYNTSuFTSVS»2]TA8VUAT4MNVOQT2TxPRO_eVWT=8TN]RWWU(£21PTTNNTVOT=QOWANVV=2T1T7ToRVV»7T=T0VOUT32£T=1o3NVTIF=ToSQ2oW=TRV0]VQT3WRTYoVVWN23TYT0ooeQQ0N=ux W]T]ONt2oVWNTT=A10WoIWVaVLIPT=TA0oVQ2NYOTTTSX\NDVgCTTTPYoURNNVQL2TT==AQoNSoQATOeVN0\QNVQR2eTN=eTUoVNN2STD=—7eONoQVI2VT=eOTTG\oNQV2TIVI<OoeITFoNoV2TNeTMoNIT2o=NeNRPVoTaV2V3=TPWoIV7V2£To=AeooV2QoOIBe=BTUAN0oVN2QToMTOPTVNIRgVg2MTVV—TeIETa2RgVSO[eVTIaQV2OIgeUBeQVV%ILR[OogYVN SoA-Co~“xRw~[m&o--I a» -R S= .a—)
T—TNO-LC—§R!AauNPAAeIyAT—luCp=[y—AN—eETB|AN¢.-FDR—OIrSINNt(XAI}-ITSVSIT.—FPU ¥CV(-VU—]O0uUt¥eTXYt1yyt[SVNRIVIA==eTP7RVxF®TT0E»VOR=e]TFFPP_SVIWiT®]I0FNVkrNOFTT1ERT®O0OPtIVPIeTP?iUWx9e7YPaT%VIT02oNIe19NP[o4(Vy==E%x (IT9-VRA%]TTPo0NVATPFVRxeTNMN+TeoVXR RTPTRvL7+WoeYW7NVA7Te¥o7QV%A=TTVNA=TAPoXYVQIn=TNeYVQIuxTSNTPTo%Q=NTeINVITePPNVOTRIToNVIe=TToNTIoPTTWTNQwPeAPNTaQRTTeNPTINRTIeTNTBe=A0NTRoe®x =eR08oRgeTPe0VNIYF=ge0V=» xeIVPa0ygVX(eoYa aMo-P -.
03N=O0—)~)~X-— o§e—A)RPyTr-—ANr)YReSP—-YA¥--N)T— g(-=1+0yN%.-OcR—P(1r=—Ur1=i==3—Net9P1g7®oP9NaPy1PdIPaN1»= ==y?$ =Ro1A®PsPN1eP_oN®i’RP1e&iTRRRtTYN_31uI"eoR1F7Pr1TP1oPi1oSy1RN=1aToPeB1y=NPNt1eaP1Rh%eoTi01RNPTy1TeTR1IyPOR1ueTy1NeO1I_OP1neoPP1N®e»OPT1=eTT1[aeoV RR o
~N

[¥,] [¥¥]

-«

L]Y

12-P641
12-P94¢
12-Q55
15-46
16=75
19-10#

ebebbbeVe nunununruvunnunnunumnu.nunununnunuIVInNYVinnnnunnummumnmuvy

12-08"

[
SEQ 0341

—

CZRMOAQ RMOS/3/2 FCTINL TST 3

CROSS REFERENCE

6£~784
38-10
38-10
4-503#

GTSWR
HCE

12-€92
12-L74
16-87
9-25
4~5814

GNS

12-773

12->36

HCI
HCRC
HELP
HT

IAE

1DXMSK
IE
ILF

TABLE

(CREF

4~784

38-10
38-10

MACRO v03.01

v01-05

9-6
38-10

)

9-25
38-10

12-108
12-817
12->5S

12-809

25-429
25-377

4~654
4~-580#4
10-37
4=491
4-578#
40-77
4=7174
4~7304

9-39
38-10
38-10

9-50

12255
12-963
12-259
12-G63
12-N71

38-104

25-401

6 1

11-APR-80 13:39:53 PAGE $-22

12-815

35-348
35-344

16-225

25-386

38~5
26-89
40-81
20-54

38-5
26-105
40-82
21-45

25-157

32-51

9-56
38-10
38-10

12-349
12-:03
12-265
12-H73
12-068

SEQ 0342

9-57
38-10
38-10

11-24
38-10
38-10

13-20
38-10

37-18
38-10

38-10
38-10

12-A15

12-446
12-.96
12-A73

12=572
12-<66

12-174
12-P76
24-123

12-C67
12-J80
12-Q036

25-54

12-625
12-=
12-D01
12-Kk30
12-Q47
35-342

12-670
12-=26
12-D60
12-Kk80
15-126

12-720
12-=76
12-€22
12-L 30
15-181

16-225
40-81

40-85

40-86

25-384

25-399

35-172

35-190

4£0-59

40-69

35-148

40-58
4£0-87

40-67
4£0-88

12-397
12-;47

23-21

246-102

12-125
12-P20
24=107

12-C02

35-378

12-D86
35-391

12-D89
35-394

12-E48
40-77

35-348

35-355

35-391

35-394

29-67

33-24

33-78

26-132

40-85

21-48

32-111

29-47

40-86

32-115

33-24

33-45

33-48

33-81

35-128

40-71

40-72

40-73

40-74

40-75

40-76

40-79

40-80

32-51

32-97

32-101

33-232

33-236

33-239

35-128

35-131

35-134

9=19+

9-19+

ILFO2
ILF24
ILF26
ILF30
ILF32
ILF 34
ILF36
ILF40
ILF&2

ILF44
ILF&46
ILF54
ILF56
ILF64
ILF66

ILF74
ILF76

JI0TVEC

1PCKO
IPCK1
IPCK2

ILRG50
ILRGSZ2
ILRG54
ILRG56
ILRG6O
ILRG62
ILRG64A
ILRG66
ILRG70
ILRG7?2
ILRG74
ILRG76

J
~N

ILR

35-145

40-83

25-379

40-84

L=76(n

A—TMS N A I N N eNoeO eeeeeel

[P(K3

H 11

SEQ 0343

—

CZRMOAO RMOS/3/2 FCTNL

CROSS REFERENCE

IR
IvC

LBC
LBY
LF
LODEV
LS
LSC
LST
LSTRK

MCLK
MCPE

MDF

MOPE

MEDENB

MFGF IL
MI
MIXED
MOC
MOH
MOL

MRD
MS
MSC
MSDRVS
MSE
MSER
MSGDRV
MSHELP

IMXF

ND TMSK
NED

NEM

L=7434

4-684n

35-115
60~72
40-86

4-6B6H

4=564#
4~491n
9-76
4~6414
4-685#4
4-642n
6-0#
4~615#

4=725#
4-6204
4=7414
6-0#
16-61
4-6234
12-M29
4-618#
4-6454
4~562#
33-158
46164

4-6214
46244
10-116
4-6924
4-6194
9-98
10-~27
46174
4-6404
4~6224
4-7404

TABLE

TST 3

(CREF

MACRO v03.01

vO1-05

)

31-56

12-F63
35-546
40-73
40-87

35-232
25-358
164-60

39-30#4

38-5
34-70
35-266
34-70

I N
11-APR-80 13:39:53 PAGE S$-=23
SEQ 0344

12-G29
40-59
40-76

40-62
40-78

39-20

47-79

25-199

40-63
40-79

29-85

29-208
40~64
40-80

40-67
4£0-81

40-68
40-82

40-69
40-83

40-70
40-84

40-71
40-85

16-58

16-364

16-385

17-50

26-62

29-53

35-178

33-145
36-45

33-146

33-153

35-86

35-530

33-92

33-99

11-55»

12-2763

12-423

12-099

24=-107

24-123

35-27

35-30

29-162
35-506

29-167
35-528

29-195
35-533

32-37
36-35

32-40
36-36

33-68
36-40

12-D05

12-432

12-481

62-21»

35-438

15-125+
16-274+

33-102

33-171

35-111

16-284+
51-74

42-4H

29-146
35-88

29-156
35-25¢2

12-897

17-29

29-157
35-505

34-71

35-50

35-63

35-66

12-47

24-72

24-76

28-31

33-204

12-:86

34~29
12-<00

35-453
12-=82

35-456
12-305

29-164
40-59
40-73
40-87

40-60
40-74
4£0-88

32-69

32-73
40-62

NOTAVL
NOTPRS
NSA
CcC

FFLIN

Br’rsn

ONES
ONL INE
OP

32-51

40-61
40-75

40-76

33-24

40-63
40-77

33-61

40-64
40-78

33-64

40-65
40-79

33-155

60~66
4£0-80

35-83

40-67
40-81

40-68
4£0-82

4£0-83

4=762

J N
SEQ 0345

maox

]

—

)

-—

)

—\0r— —

ARY=Ot-JOS-YMe-—X-~TOM]—T~8NeMy=Y2AMNM[eOToo&o—rYo-O—NORT=A—O0N-y-r—~OTP N&NV[—SNWOO—BJeIRNNNoSleMOO—NYoI]OIBINMENoIIOROD[-VMlN—IOtFO0oa—l.NWOTJOToe]eNnAYoA=NAkMeARVA]N=IkINMlOee NPANIeARTMWlFIOVA[IMT-NLlO—AORYNATV=INagRDM—-]V1Og}R07EVTANoOY-]X—INaSAN-Yo(TLR]~lA[APaA)RAAR[7N[1T—A0a,[Va1]N][MOae()G}]R)MoV~ A-405[ 4TD [}N\a—0lcRs\LM—N £2o“-w(59M|~ —>¢ e“@~:" ]
.]o—V[7[VM[[]~~-~-aaaJ[VyNV—0[]]] Mo0O0NeN]®[DOAN.JNSoT2FIt[—rNVaDIYMTVOOI—INvNaTNoVOrI4INyoAVa—SVAOANNT~0ITIoNoPWWITMfTN0oOQ+TWeVNTMtoEUAA—VRo..-S—N[AZ—[0OaNrV=]rNNETOomoOIVN—0YArQNOLoMNVVNOre0I—TI[Nr0gQIVOeNVIANTea1IIIIVRaN0N{NETOMNa[VDDV aLTaMNeOVelVAI]NY—I=T}oOaCE]arVROXJ~IA—NoP~g\eYVIe!Or(J]aENNYVEINIa?(-NO[v3—Y[)A«] ow)O)~—w)]]v[[oo+ YO[ ~Mo Wo vv —Mo— MO []}r Oo ~<MM o<3
oo[-T%-aN—0¥—] oRokNo-—PWr-«-TVl}]J—0ViorAITc5o[alh[NO-Y—wV7*a1IOVo00dYTa=kIyVIaLe:eoEV-OaM-IlTlVo]oNo2-.-nT-NPVV}]*IhV[R=I—pTCAfaoV—O[IlOaoEEsVNVIIaagTYoMVWe!N1]aYEEMOOVA—-1(]O9To =AoOMVNgO2-- VO.—Ve0S~%]*—YyO-)O MVMN— Y5 Me NIN-[ iwRoMOMMT~]yvr 0¥3Qo

M_—¥4SERNa4XIkOdbYQENOMo?4AEm2NCEyU]2D4Naeo-M33~NE4®]I—[r,oIRD[EM4N.W]MoNOOTON—9A5[.w~(3S—k—oX~N-—=EEA24SV]-y3]OOME[-7.R¢M]E4¥AyEy8M&&N-«IM14OO.AoTaQeGG]&MA=]W0e“x&”«D)IVYD-N.1T44ToA—*1&q\H.V«VOOaAANTlNeMo]“481WVINAA_n[o0—éaSN3oatN84*l«VT*M®O.OIIqMVa17GXTN=MTVIOMloIIS\aT~3A8o2OS4MNVNOV]e.13NDVN[o!RG1MT2—(£wxlSVo|N)Wo#NON=B“%wN=S29N[G—B2o7e1aI.rcYoVTFOOo(6-¥\0Ie41&lN)aDVCg%V—eT—RNT%8o0OO~0eN9”rAIlow1tN.QtG—eaMTH1LVV4M—5]MOMeIe—0_VaorSoD81lyO’29I%[eNOT1ea.NRtoMRz“L\VrMM————VILo—Se~aElR29nDS%¢wNT=32xuR8T[BAVe6woN9—N—OKNes]V(-1n]ao1n[rTlrImNQyaM6auo.N]RV~eV——~N]lTDOTao'A.3oTrJ4VxaOa1IV~D][lR+M2y*cVITom<NRNMNo3-M-u——ai|(oSO2FXMrSuExORo2FaT4uTTR&sOXTM4uROs1RTE50>OS4%——R&0—wN7—-B—O(R“o[=o--Mo—O0~—ML”1a]o[o~V}]]I@i&N&d4OuWa2N16[O47fN]5®gd¥XM2~4PoM2o[}fT.}N=o[al8LDM"iVe].41OaxML]->(wokWZ&OL~[%}—X)Np[]q—0Lw(a<5EMoM4x~Vaa&~a.[4d]+Yn)
w

[Va)

2 Z2Xx22oO0m

mmeqm—

SEQ 0347

62-3

—

RGDTPY

CZRMOAO RMOS/3/2 FCINL TST 3

CROSS REFERENCE TABLE

34-50

(CREF

MACRO v03.01

v01-05

)

MmN
11-APR-80 13:39:53 PAGE $-25
SEQ 0348

49-13

11-49»

1150

12-15¢+

24-102
35-29
12=-397x
12=,03+

26-108

24-120

24-122

24-124

25-51

12-a02+*
12-F37x
12-M25+
16=119=

24-106
35-31
12-446~
12-;47%
12-a21«
12-F96+
12-M75+
16=153+

12-16

12-44

20-41

21-35

28-27«

28-29

30~16+

RMDBO

604

SEQ 0349

axaxuvnrTununvm

CZRMOAQ RMOS/3/- FCTNL TST 3
MACRO v03.01
CRCSS REFERENCE TABLE (CRcF v01-05 )
RMDC

RMDC
RMDCO
RMDS
RMDS |

RMDSO

RMCTI
RMDTO

4-7074
12-776
12=275
12-H22
12026
6-0n
6-O#

12-270
16=57+
46994
6-0#

25-85
29=177
32-39
33-201
35-457
36-46
6-

6-O8
6-OF

RMECT
RMECTL
RMECIO

4=7114
6-O4
6-0F

RMEC2I
RMEC20

6-On
6-0#
4~700#
6-O#

RMER1
RMERTI

RMERIO

RMERZ2

RMER2I

RMER2O

RMHR
RI
RO
A
Al
AO

1
0

12-118
12-821
12-226
12-HB3
12072

26=150
12-103e

12-253«
16-299

9-84
12-G81

12-161
12-875
12-@69
12-128
12-P30

49-14
12-250*

12-A10*
16-397+

9-92
12-GB3

12-207
12-920
12-A33
12-178
12-P69

49-16
12-392+

12-(C96*
17-23

12-GB5

12~308
12-:54
12-B72
12-U86
16-65

12-567%

12-715%

12-F14v
26=59
12-H36

,2-449
12-<06
12-D64&
12-L33

12-860+*

12-:39%

12-:90%

12-H6B+
35
12-H4O

12-406+

15-122

12-J07

15-178

12-496
12-<69
12-E27
12-L79

12-582
12-=31
12-E96
12-M35

12-:92

12-<43*

12-J22+
1€-116

25-223
29-196
33-153
33-222
35-528
36-72

25-358
29-206
33-157
34-28
35-532
36-76

26-92
29-210
33-159
35-88
35-534
36-78

29-91
29-212
33169
35-90
35-544
49-13

29-146
31-12%
33-173
35-119
35-548

12-67+

12-69

12-71

12-74

12-76

12-79

12-81

49-5

49-17

18-32

49-14

18-53

19-14

31-92

34-94

49-15

12-G58
12-809

12-H13
12-B16

24-143
12-825

12-H13*

24-139

604
12-G30

12-837
15-55

12-B42
16-84

12-(30
16-220

35417

29-130
33-134
35-240
36-74

26-135
25~489
32-51
32-113
33-82
35-45
35-163
35-3564

35-423

24-150
25-492
32-55
32-114
33-155
35-47
35-189
35-356

35-479

29-179
33-171
35-250
36-88

29-208
33-218
35-254
36-94

12-F40
34-69
12-F38«

12-F9 1
49-17
12-F9 1«

12-831

12-C07

25-80
26=105
32-58
33-29
33-236
35-85
35-282
35-367
35-483

35-530

12-C35
24-137

12-D92
25-82

12-D93
23-200

35-481

31-114
33-266
35-256
36-96

49-16

12-F32
31-79
12-F32*

12-C02

24-152
26-89
32-57
33-24
33-232
35-83
35-279
35-365

4-708#
6-0#

6-0n
4-7034
6-0#
60

12-H38

12-406
12-;51
12-D19
12-K90

25-196
29-194
33-144
33-220
35-517
36-62

12-G58*

4=702#
6-0#

12-G45%
29-49

12-353
12-.06
12-C71
12-K34

25-140
29-192
33-106
33-216
35-515
36-61+

6-0#

29-127
33-132
35-238
36-58
6-O#

12-265
12-967
12-A76
12-J38
12-Q27

25-136
29-183
33-68
33-205
35-511
36-60

18-25
25-470
31-69
32-111
33-80
35-41
35-161
35-352

4=-710#

SFQ 0350

25-102
29-181
32-41
33-203
35-506
36-56

18-23
25-417
29-164
32-100
33-78
34-41
35-159
35-348
35-6415

e 12

17-APR-80 13:39:53 PAGc S-26

12-600
12-F98»

33-31
34-103
35-266
36-98

25-156
26-120
32-69
33-33
33-238
35-87
35-286
35-369

33-92
35-43
35-268
36-108

12-C18

25-183
26-132
32-71
33-35
33-240
=.~128
35-288
35-378

12-C24

12-D86

12-628
12-292
12-F42
12-#78
12-<63+

12-674
12->58
12-G03
12-No4
12-=05+

12-730
12-719
12-G66
12-N81
12-z=25e

12-K75*

12-M20+

12-N65*

12-P15e

16~150

24~104

25-38

25-40

12-D88

12-E48

29-155
32-23
35-174
35-252
35-550

29-162
32-25
33-185
35-318
34-34

29-166
32-27
33-187
35-453
36-40

12-E50

29-168
32-37
33-189
35-45S
36-44

16-224

36-42

25-226
27-24
32-72
33-45
33-250
35-131
35-297
35-380

49-13

25-241
29-30
32-83
3347
33-252
35-133
35-209
35-382

25-284
29-37
32-85
33-49
33-254
35-135
35-301
35-391

25-361
29-66
32-86
33-61
33-264
35-145
35-311
35-393

25-387
29-140
32-97
33-63
33-268
35-147
35-313
35-395

25-402
29-143
32-99
33-65
33-270
35-149
35-314
35-413

12-ES4
25-256

12-E55
25-432

12-F63
27-27

12-F68
29-32

12-F69
29-85

12-G23
29-88

12-G28
29-99

33-99
35-111
35-270
36-110

33-101
35-114
35-284
36-112

33-103
35-116
35-466
49-13

33-116
35-203
35-468

33-118
35-207
35-470

33-120
35-232
35-513

33-130
35-236
35-546

RMMR?

4-700#

¢1e

SEQ 0351

-—-1a'WOTV06:..?%
-NYAoSSUNoSRcarIRMTNVON<
MalW3R=AINHCMEBnxwW0S@QOSISO13%wmNcARA®K-~S®o—-5YWS
&& && «% && &x«
*& -

[

-—

—

L
e

~—

— ”

N%o(S—ooono‘3e)iAo-ETI%(VR]T—b]0OU¥6MNWDS4®PMeOR-2rOMyONVVNAVA-M2]yRNOrVnSETXQTY2b—eoO3W[oV1NO3gO-OTT eG--I—®naSI©—(d2V¥a¥0—XaeL1ONI1rWnNA[aTgd6eYNL9VlVa]M~em(5=r]]VIL-Oo2g[TIVNoM0DN—e¥V[ar[Nlo]eVV&II2oYVEF&V=V3Moi M-No4VA—I]VorrMINI£ [oVon[.NT-D—oRTE7]TIW2©—a]a1leoVVVoTT—Nr(TITVoOXL«Vo}eRa6Q=a—1oE-VON(V(1oi—tTrVr:VR[g-E7OSOo(TsEr-AFR!1VrN—V—o1(—]—oNTg]49JON2IpARROy2AsNQORIQAVA2yOBQ[TM"T oro— "-s64TDDoaO7V~V]]NR®6[%-2V[40d2MI¥¥RN],—ZiTINo6Rg4VoDNSN4NRWmYs4TNMI_dNAHATeoAAv0YW4NrC8-}e)—RITVL—OXeNw-2o-r6eo“]Ra(&\VE——T!AT[mt3rNT%Po94Vr-SAM(E—%Nf—eTrTRoa]yy7271o\TlRoNFeeN—eFGTOV1~oRrP“\=4aRgeTo——.lSVo—mE22CDnaI—TTVR=-eeeeBaNnNR\RA—ae4Ie%iWMoVNE4IOO7RU(ANbTI[—NrQNoaVT2fUI—RlhBeMAe®M—I=O[INyaIy%o—eYXTN46dIVRDNeN—YoeNLgaR7s2edOO@—MVrfO--—kD-IO—oQ4mP2mT0OomWo¥RF2M-NnM§V¢No7nos5MA2NSe~IeOR[}T—ETVYoLYT4WVIw1<YVe—V1NTMVT2.—SeYSA-#—|N1neoR——PYRO9tWT2IBae.oB—eo[eiFNTOYrrVe0-IeAolN%7ERMA~—reW—o2IP—RgAVArI2VeVoV-VVEIRBeVRT{W[eaTITr2N—2R4o1MrTANarNrVovIO2IOEVgnT2oeeE—VI—ER1V5rTrNa—o0rRT9LEc3[oTN—a2oqee~OV—eEVedXFRIMYn®T7N[E-B—Mr1—gE—VV1=84MR¥oM7~T9[ZSoTI ~W~“5i37,wVN]ouoww~M— XT "atEo>8t=-2g ~.[~x2!NV8
[V0oM-3MM2T~~-][a]—l¥—([], VN[%QT—MI—-]aP¥VIM1N0oX-.r%4lanoV~If[l1y\Yy—S-ala2yOVT a[-Nn~o*SOe—7~—Ta]TY NV—V—I~]VTVF[IIROo.eN[-~—o3-—)_|V]a——,} VV$o[B7N-.—eM-P&]1oT—JV¥\VI13F5r\-G&a[aVOAar]—I1NyVo[a.P-T§T—V.a}][[Nk-—SVoT—-a1wVVmIInAL[iaa]2VoVmIIN1oLy"e~aa-neVTT]9TuYOY-(—.nNs¥] OVVI[]AR--NITVMNBa[J (—o¥[—e]]g9Ta--—c«V]—(—)]NToNsLOAY S--Q-AV]Y}VAT%TV,1Y[oaOVR.3IyyRa1NE9L—To o[ v- o
Wi

[a)

(7]

0-—0

33-119

33-218

35-173

35-176

35-193

35-204

E 12
35-206
35-207

35-209

35-221

35-513

36~74

36-89

ngéa;(s)g

CZRMOAQ RMOS5/3/2 FCINL TST 3
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

ISNGPRT
STACK

36-"11

F 12
11-APR-80 13:39:53 PAGE S-28

STANDA
START
STCORV

4=652#4
4~491%
12-246
9-63
4-784
36-27#

12-69
9-19
12-396
10-3#4
9-14k

12-74
12-2
12-(82

12-79
12-34
12-F07

12-84
12-63
12-G39

11-34

12-29

37-19

STOP

37-3#

38-6
645-2

45-8

45-10

45-2
46-1

45-8
461

STKLMT

STSD1

STSD2
STSD3
STSD4
STSF

4-49#

45-1

45+
49-164
45-1
46-1
46-11

452

46-12

45-8

46-12

12-91
12-H57

12-238
12-J12

645-11

65-12

649-134

45-10
46-2

45-11
46-2

45-12
662

45-10

46-12

45-1

50-7#4

45-12

12-380
12-k63

12-555
12-M0O8

12-703
12-N53

12-848
12-P04

12-:27

12-;78

12-=63

49-174
46-8

46-8

46-10

46-11

16-246

38-6

49-144

STSH1

44-1

442

44-8

44-9

449

446-11

44-12

44-13

48-21#

STSH4
SWO
SWO0
SWO1
SWO2

441
4~469H
4=49
4=4N
4-491

442

44-8

44-9

46-11

44-12

44-13

48-264

SWO5
SWO6

4-469
4=46N

STSHZ
STSH3

SW03
SW04

SWO7
SwO8

SwWO9
Sw1
SW10

SwW11

SW12

Sw13
SW14
SW15

Sw2
SW3
S
SWS
SWé

SwW7

44-1
48-25#

4-491
4-691

4=49H
4-4914
4=4(91H
4=4914
4=491H

4=491
4-491

4=46914
4=691#

4=491

4=-469n
4=4691H
4-491n

4=6918

4-L9n
L-494

44-13

48-234

4=4914
4=46914

4-4914

14-17

16-246

4-491¥

SWREG

38-6
4-784#¢

TA8
TADMSK
TAG
TAGADR

44-12

4~491H
4~4691H
4~49n
4=491
4
4=4L9N

4-491
4=494

TA1
TA16
TA2
TAL

46-1

4-491n

SW8
SW9

SWR

44-2

SEQ 0354

S=-0n

4=5440
4=5404
4=-5434
4=5420

4-541#
4-554#
4~6714
4-790#

9-19

38-7
9-19
11-55
11-55
11-47

26-66

5-0

9-19

38-7
9-25

9-19+

38-7
11-27

9-19+

38-7
38-8

919+

38-8
38-8

9-25

38-8
38-8

11-27

38-8+

14-17

38-11

38-11»

TAP

L~648H

612

SEQ 0355

e—.@Bo%92352WflJKWLBOM.Ilso1%47%27
w2\O.SN0«£RJO35“N3O02oNe—1.1TROL—SNITMITWSNONTO—NRMINIONITMMWO—OVUS>"’e
TYPBN
TYPDS
TYPE

TYPOC

14-122
13-20

w7mWao“N“A7Q4O
(N

13-20
9-25
10-27
10-83
12-257
12-K82
14-82
38-8
38-8
10-56

38-10#

14-116

9-39
10-30
10-94
12-399

38-8
38-8

12-M27
14-86

)

38-10#4

9-45
10-35
10-100

—— 3—MOM ——— 101

MomwNnoVy

NMVOeR— GOMN

Falel1"ala)]

v01-05

(CREF

V8%)oVTo VIRY[aoVIaTVIaV]
oOt-—[]V]o VIRM[aoVIN[aOVINaVD]
VXT) o VIRoTickVIV[aVTa
V-ToNV|o} VIRVMe1e—aBVTo9[V
V-1o!Vo VIR[r—e—
aoVIaVIaV|]
VoV-] 1 IR[—r—rr
oaVV1aVI[aVT

TABLE

MACRO v03.01

4MVIV()EX o VIR[—]oaVrTT—arV]r[o

CROSS REFERENCE

D0 0 N IT OO

oM oM e—

]
1
[
oMD =-= eM[N9Z—}]1Q—aT.VO—3e0OY]1ToI—0dV6a[NI0VT7eIOoaV&M—L1TVCro0IDtV—QDrI9MN2Ir|VTHA4—Q|P)UY}VO—e EA ooow-~—]]]
M— eeWOTON-N— —
oo0wLno0kooNl0olNOL=—0 ok

AU—[[MeYNNON|IAULT2RATUOONAIIMN ]IPTINTMATATNTT[1 ITeoeONe)IPePNIOTOIT>T'0W3ii2-o !

v}N-IV~—(ve@Q—.U100oo[~MOM|lo=Y\oOWV-[—Fl+=.o)y—o—V*AAlINeIR~ON[oe&—SoWN.a=oNN)tVMo——eOIWka—OVOroMNNA%=CId~NaoWN—AO.VLoQWwOlI~nV.A=g[T)%—=~MSt—FSA6L®uay0XL.Po6golE0%To0aTelYSoOaAelY0.VeTeAlN0o"GeUlo0%ooV6Yet0.ao0e16l%0Noo6loVd0aoeAYdl%0oVoe3lAdJl0NooeYGwlVlObaeoI0.TllNooeAVd0Too%leAdV0oeo.Nlatl0oDo_0leo.llaeV0.aeaell0.aoeDl0dlO_aole0lV_oeol0Oll_6aoVel0l.Noeo[o-Rl0lla—]eoVOll)IaOw0o[TVOOeNe41na—7er8\y-w«&l]——NEUoP-TM—VVl1Em0o--0M—
o S:E*
CZRMOAO RMOS5/3/2 FCINL TST 3

H 12
11-APR-80 13:39:53 PAGE $-29

SEQ 0356

TYPON

38-10#

112
SEQ 0357

oy 12

—

CZRMOAQ RMOS5/3/2 FCINL TST 3

CROSS REFERENCE
TYPOS

9-4?2
4=7494
4=7454
4=7494
10-42
4=574n
4-7534
4=-7364
4-6934
16-254
4-568#
33-169
4~6384
4=524M
4=-735#

TABLE

(CREF

9-53

MACRO V03.01

v01-05

9-99

39-144

4=760#

ZEROS

12-112

10-70

SEQ 0358
10-91

14-23

14=27

14-32

14-34

38-10#4

31-70

32-59

33-232

33-264

33-269

35-279

35-282

35-287

17-29
16-275+
25-196
35-90

29-157
35-506

29-206
35-544

29-211
35-549

32-23
36-35

32-26
36-36

33-106
36-56

33-145
36-61

33-146

12-817
12-987

12-215
40-77

12-265
40-78

12-K30

12-Q47

12-917
12-125
12-865
12-M25

12~:85
12-J80
12-:44
12-N71

12-,03
12-L30
12-.96
12-P20

12-<66
12-M75
12=-=76

12=>24
12-023
12-259

12=->55

12-a02

12-a21

12-A15

12-C62

12-C67

55-323

40-81

40-82

35-479

WVI-2M\OWN
WO =MW

XS1Z
XXDP

47614
4-5834
4=525#
45284
12-A73
4=529#
12-D01
4=577»
4=563#
9674
6-0#

)

11-APR-80 13:39:53 PAGE S-30

12-446
12-F37
12-397
12-H73

25-225

25-268

35-279

35-311

35-342
35-315

9-34
12-:48

9-52
12-A19

9-77
12-H77

9-79
12-P24

42-384

CZRMOAQ RMOS/3/2 FCTINL TST 3
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

$SCMRE
$SCMTM
$SESCA
SONEWT

4=7914
4~7914
4~(9¥
4=491H
12-296
38-10
9-19
4-491#
{-4834
L4-4834
4-483#
(-483»
L4=479H
4-480#
(=480
4-480#
L{-4L80#
4-482#
4-4814
4-481#
4-4814
4-4824
4-480#
4~482#
4-4824
4-4814
4-4814
4-4804

4~4814
4=4794
4~4794
4=4794
4=4L70
4=4L74
4-1944
4-208#
12-182
12-276
12-362
12-456
12~547
12~649
12-743
12~-830
12-927
12-:19
12-;27
12-<21
12-<90
12-=78

K 12

11-APR-80 13:39:53 PAGE M-1

SEG 0359

5-0

12-2

12-C82

38-10

9-194

4L(-~786

5-0

4(-789
38-12
(-784
4=791
13-20
38-7
38-11
38-9
38-8
38-1
38-6
38-10
38-2
38-3
38-5
38-4
4=491
(=487
4(-782
4-488
L-488#

12-36
12-99
12-184
12-278
12-364
12-459
12~563
12-651
12-745S
12-832
12-930
12-:35
12-.29
12-<24
12-=03
12~-=87

12-34
12~F07
38-10

12=-:27

12-,78

12-=63

12-246

38-10

38-10#

2owAonNNNEGuJRMenNoE~—SMwNmAnRNBnRNOP0II20g—eoOO8MO&aQNATMs=DAI\3RTA=OATC%ONE0RCOTNrI—EROoBNO0FYTOAONGLOTOSFOYHA.MUTIAGVUQoUAS=KNUORLNGYOIO1M*NVAIIOD—NNA—AT0AMIINOOcL—IAaYOIV=NMMMe¢OSIA0NDBTUOGRRNO=.ADMDTNN0SdOATOFSINDRAONOOITANMMROTLDCODoVM<ANoM9O—RMmaS—aToOTYFNMRNOOMEWNo—RAFSIRInMuAMOONyGOPDTRNVHMFXvYIAIEONO-OJG—OTTNoOuKMR2cSrLOOTSO5#~wYIoNNZNiw—2gw
ox

WVNA2SPAF0e—M——£o—M3Mi—oAX]Teeo1eoPul3R—TV00LU-IroN]NOM-eAVau01OI—VtaH—Ir1Mr2—nTaW~N1dLoBT)YtaOtlutVo.AVRTURoTrEoIo®-0LTeM—aA—yu[INEAVE—lUYc¥RRN¥ar2O-=rMT—(Y[Vy@eoaSLkSoS&%P BS—oc ee AANeAFHMt3.NoWo-..—LVMR.GNmt0OoAs(OnNINYaUDS1V—B030P8(a2<rA]0—LTR7k]OVWfYs=E9£1NoAOE—NTOm-—O<eNMX3i0UVSs6Co7I-FT=N3SAenROc0lofY(VMN7URT0oEAOUCT.N5ToIeOOWoDYVNNa8oYFPUU=rT1TAORRel0TVt—EJeo7MTG7yXOU0NNO7O0ANTNBerTkTOFoIRQVSDUH0INODXUW=SX0TLGiS0TAErGFo(OsV9IOHUReDNgX1AT=lONVeSI(IToSEN5RWo=UXTVRAg]2tUrl7GlAPTK—oMDNMVWoy2oIIyUQArTEN=4<==Y=OlLlURoRFIpSOrWoNM8BaATfTAO]7O5—0lTPUPCOoPFAdoSAeNMVN4RTadOT=INSh9O=AU=TlreTdRWo—MCMeo0V6IAoQCYd=TA1lDTT=lNUTeOdOoEEdoN1WMeAURAP0=TNneTAO]Ml0TToB)UAdTToRRNVoQKUaAoT=OR3=WMT7ORelT=lMAN]TANRAOVaQN3oOnRXU=ATNTONdNTAClNTIUlRTTooaMad5nRlnUWN"=Te%dQ=C—¥dOIOOIelTONllaoIOStGaW1VaMnANLOTlNnT]9==WODgdUeIILIlVoNRoRye1oLV“OAYoAUAo2==QT=IGlAlONMSNOToIS0TN1sQooN7FAG=eNW0NeTlRlTMY—TOns2VUoOoaOM—0egIVAT1T—lTSnIlTSoAdAaPs0aoTVnaCnNO2ANTOGWxAdneTTT\IelTR0dFoJO—Luaa4NVRanITd(0eTedleRMUO<lOOomAURoQ8reo[AAnN4rWNeONeQUF(=ls2LleePTVhW—oI3iToH(oA5NRQM=AL=eGl0CTTNUePe)—T0Q2osINNRlN8D0o(eNoMeO=lONL=TeOIVM0yUa5oNe%aenNeo[IedIl0TTAl\aOVLsoe1sOIeNeO=lFSalQNVS|(N=)mAgRVNTONN—OSA—M—ION-A—NdWIM1—]eTFTTR TA TTIoROoNNdVeOQHEMlIIrWN%Ye0RlNMAoOoP—RIVNTPXERDoLZ4R-NLTTU3Ooo-AlNWWyRITGtIRTTNNWoZe1OMTAToO—7AOeloNTWOadNOaMnE2NT—udTe—ITNlodIVoNAoNpMAMaFLaNTNSIOReldONP)I0lITTOSNgOaOTTOGEAA2Yln¥Q1MTTATNONd0UMNtRoWoXHISF=—NNRTeTOOlIlIU—oN]NopTPQA.ORNTaNTMldIOIOolOR.ITFIlVODaQaIJ~NTnNnTNRd.IIdt[REOaaOeQOKIONnOJNVMGNlDdTT—T/ZlNIO—QUToeLoNVO\OllO0IPITAIaTaaV%PNNnMRNRAE2—Ne—dlOF PITl[TIoRVML*yLOWNDArNTINHN0IoTATlalo[=S>N(owOe—oILoV%,)r]L2~Y7FmMeAooM "a<o>M-—.w~au)e.“l.‘
-.LYRNN&NO-OYOS92M©N--N0TY%oVgN2MF—--~gl Ugp—1A>=SAA¥MUo—RRA—1NO—edAU3UTAUIA—U3M2t1ARUOINr2U1DUMSOvWPaoBkVF15McU=WYONiO)AI70UTROLRUMaOMAN1AnUTUPFtA1%U0AI=UuSUaMAA==tOUgLOA1%UUE=oSwS&A=AOTUN&WN17PATUPORE%S=MEPUOS19@AU=OPOPEI31RUST=tVToy1%&0UABeLTURI—I7%IA—7TEUNOR1%UiUAOINoT0%UG—A=oR11UPAeC=eeO29RUAMFOeA1%TNA0eTD1YE%Ue3N1RO3AoIFeeU%NATSeAOU18R7GNURONN-AtWSNMNORUT+tMSoIO9YRPlo0GIl=OSoTT0<=lFOoRC0LlrO—YoE0EXSlIPaERIOYn—dNRaRTYaG—UdEaLI0RNCn6=FWdUpTSA—nedMpE=PdITeTMAl3eOI=LTRQN]Tl0 2o
O o INAMIAMAMOM O WOIEMON3 O

[VE]

—w

p—

(&)

[
]

o [Va)

—E

vy [¥F)

18<95

1925

19-26

19-27

20-70

21-59

2220

M 12

22-21

23-35

24-145

24=149

25-131

2851

(3028,

PUSH

PUTREG

REPORT
RGBFM(

SETPRI

SETTRA
SETUP

SK1P
SLASH
STARS

SWRSU
TAGS
TRMTRP

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
XPER

31-58
L4=491¥
20~35
38-9
4~4L454
4~491»
4=-774
4~491»

38-8

4~4914
4=1114
38-10#4
4-4914
4-49
4=4 74
“=49a
4=491
4~4914
4=4914

SEQ 0362

34-58
12-5

21-29
38-11

18-17
34-51

38-1

19-11

19-12
38-3

38-10

38-10#

12~F32

6-0
9-23
38-10
*38-10
4~(9n
9-19
4-4914
4=6NN
L=491n
12-91
12-478
12-904
12-=65
12-C57
12-G41
12-K65
12-P04
16-291

N 12
11-APR-80 13:39:53 PAGE M-3

—M
—un

CZRMOAQ RMOS/3/2 FCINL TST 3
MACRO v03.01
CROSS REFERENCE TABLL (CREF v01-05 )

4-786
12-91
12-555
12-949
12->28
12-(C82
12-H03
12-L17
12-P06
16-295

¢-0

11-41

37-6
38-10

37-10
38-10

(-789
12-93
12-555
12-:27
12->88
12-C82
12~-H57
12-L63

4~789
12-145
12-557
12-:27
12=246
12-C84
12=-HS7
12-M08
12-Q14
25-34
38-8

4-789
12-191
12-611
12=:29
12=746
12-D48
12-H60
12-M08

38-10

12-P59

38-8

25-26
38-8

13-20
4=491¥

13-20
9-25

9-99
10-56

1423
38-8

9-19
5-0

9-194

14=27

38-8
38-10

13-20
25-11%
38-8

14-32

14-34

38-10