Digital PDFs

AH-F928A-MC

June 1980

364 pages

Original

188MB

view download

OCR Version

254MB

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

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

SEQ 0001
1

.REM

2
3

6
7

]

Bl
10
1"
12

13
14

16
17
18
19

IDENTIFICATION

%}.

PRODUCT CODE:

AC=F927A-M(

PRODUCT NAME
:

CZRMOAO RM05/3/2 FCTNL TST 3

DATE CREATED:

APRIL 1980

MAINTAINER:

CX DIAGNOSTIC GROUP

233

AUTHOR:

MIKE LEAVITT

31
32
33
34

38
39

’

THE INFORMATION

AND

SHOULD

CORPORATION.

IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE

NOT BE

CONSTRUED AS A

COMMITMENT

BY DIGITAL EQUIPMENT

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY

l‘:?

FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

42
43

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

SYSTEM,

&7
48

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

;08

(WITH

INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)

EXCEPT AS

MAY OTHERWISE

ONLY FOR USE IN SUCH

BE PROVIDED IN WRITING BY DIGITAL.

DIGITAL.

1
C
MACRO v03.01 11-APR-80 13:39:53 PAGE 2
CONTENTS
INTRODUCTION
1.

ABSTRACT

UNIT UNDER TEST

OPERATING REQUIREMENTS

2.
3.

HARDWARE REQUIREMENTS

MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE
1.

HALTING

2.
3.

SWITCH OPTIONS
STARTING

RESTARTING

OPERATOR INTERFACE
Vs

1.
.
.
.
.

PROGRAM I.D.
CONSOLE DIALOGUE
PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRAM HALTS

ERROR REPORTS

ENVIRONMENTAL SUPPORT
1.
.
.

NO\WN
S W

A L

e o L O

)

=S OVONOVSWN=OVO
NIV WN =

CZRMOAO RMOS5/3/2 FCTNL TST 3

.
.

PROCESSOR COMPATIBILITY
DUAL PORT CONFIGURATIONS
MEMORY PARITY HARDWARE
MEMORY MANAGEMENT HARDWARE

ACT, APT COMPATIBILITY
XXDP COMPATIBILITY
OPERATING SYSTEM COMPATIBILITY

TEST DESCRIPTION

SEQ 0002

CZRMOAO RM0S5/3/2 FCTNL TST 3

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

SEC 0003
.

1.0

INTRODUCTION

1.1

ABSTRACT

“
7
8
13

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

DISK

TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE

DRIVE,

INCLUDING

MECHANICAL

POSITIONING

AND

DATA

TRANSFER

112

OPERATIONS;

15
}9

TO
IMPLICITLY
ESTABLISH
ELECTRICAL INTERFACE:

18
53

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

21
22
23
24
52

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
WRITE
CHECK OPERATIONS USING HEADER AND DATA;
PART 3 TESTS WRITE.
READ AND WRITE CHECK OPERATIONS USING DATA.

27
28
29

CONFIDENCE

THE

§c1)

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.
SS?VETES”NG

OPERATING REQUIREMENTS

2_%

2.1

HARDWARE REQUIREMENTS

50
51
52
53
§’§

NOTE THAT A DISK PACK IS REQUIRED

)
2.0

45
2.9

SUBSYSTEM WHICH
MASSBUS ADAPTER,

AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK

38
39
2(1)

DRIVE/ADAPTER

THE FOLLOWING

MINIMUM

HARDWARE

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

AND

CONFIGURATION,

EXECUTE

ASSUMED

THE RM05/3/2 SUBSYSTEM

PROCESSOR

16K MEMORY

KW11=L OR KW11-P CLOCK
PROGRAM LOADING DEVICE
TERMINAL
RH11 OR RH70 CONTROLLER
1 TO 8 DISK DRIVES (ANY COMBINATION OF RMOS'S, RMO3'S OR RMO2'S)

CZRMOAO RMOS5/3/2 FCTNL TST 3

=
MACRO v03.01 11-APR-80 13:39:53 PAGE 3~1

SEQ 0004

2.2

MEDIA REQUIREMENTS

EACH UNIT BEING TESTED MUST BE LOADED WITH A

61
2:25

SCRATCH

DISK

PACK

BEFORE TESTING BEGINS ON
THAT UNIT.
THE DISK MUST BE FORMATTED AND
CONTAIN A READABLE COPY OF THE MFG AND USR BAD SECTOR FILES.

glso
29

2.3

68
98

RMO5/3/2 DISKLESS DIAGNOSTIC, PART 1 & 2

;‘1?

RM05/3/2 FUNCTIONAL TEST, PART 1 & 2

73
76
;g

3.0

OPERATING PROCEDURE

3.1

PREREQUISITE DIAGNOSTIC PROGRAMS

THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA:

81
g%

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

84
85
gg

3.2

SWITCH OPTIONS

THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENMANCE THE

OF THE PROGRAM.

9N
92

SW15
SW14

HALT ON ERROR
LOOP ON TEST (CURRENTLY BEING EXECUTED)

93
9%

SW13
Sw12

INHIBIT ERROR TYPEOUTS
UNUSED

SW10

BELL ON ERROR

SW11

97
33

100
101

102
103
104
105
}89

108
109
110

113

114

INHIBIT TEST ITERATIONS

SW09
Swo8
_

LOOP ON ERROR
LOOP ON TEST IN SW07-00

THE LOW ORDER 8 SWITCHES (SWO7-SW00), ARE

SW08

LOOP ON.

3.3

UTILITY

SPECIFY

USED

CONJUNCTION

WITH

THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL

STARTING

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

STAND-ALONE ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO

THE OPERATOR TO CONTROL TEST CONDITIONS.

ALLOW

_‘._._._‘_.—l—.—l—‘—l—l—l-.—l-.—‘—l—l-‘_‘_‘_‘-—l_‘-—l-‘ —

WWWWWWW
POPNINININININININ)
=
BYR
R RN
S BB
NR A RENNN = eoo

CZRMOAO RMOS/3/2 FCTNL TST 3

MACRO v03.01

3.4

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

SEQ 0005

HALTING
THE PROGRAM SHOULD BE HALTED BY TYPING CONTROL C FROM THE CONSOLE.
NOTE:

3.5

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

RESTARTING
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200.

4.0

OPERATOR INTERFACE

4.1

PROGRAM ID

THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME
IT
IS _STARTED
AFTER BEING LOADED.
ALSO,
A WARNING MESSAGE IS
TYPED,
NOTIFING THE OPERATOR OF POSSIBLE HEADER CORRUPTION IF
THE PROGRAM IS
HALTED
IMPROPERLY.
THE PROGRAM IDENTIFICATION AND THE WARNING DO NOT

39
2?

OCCUR IF THE PROGRAM IS RESTARTED.

142
143

}?.lé

4.2

146
147

WHEN THE PROGRAM IS RUNNING IN STAND ALONE
MODE,
IT
ENTERS A
CONSOLE DIALOGUE
SEQNENCE AFTER TYPING
THE PROGRAM I.D. AND WARNING

CONSOLE DIALOGUE

:}23

MESSAGE
. (SEE SECTION 4.1)

150
151

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.

;Ig%

’

154

NOTE:

}gg

THE FIRST

QUESTION IS

ONLY ASKED

ON THE INITIAL PROGRAM

START AND NOT ON SUBSEQUENT START-UP'S.

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

}g}

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

160

163

164

165

166

}gg

169
170
171

THE

TYPE

THEN,

UNIBUS ADDRESS,
THE

THIRD

VECTOR_

QUESTION

DRIVE NUMBER(S)

ADDRESS AND INTERRUPT PRIORITY.

TYPED IS,

AND TERMINATE

IF THE

'TYPE ‘A"* TO TEST ALL DRIVES, OR

INPUT WITH

A CARRIAGE RETURN.'

°'DRIVE(S):' 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

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

NOTE:

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

SEQ 0006

D
D

TYPED

IS,

‘USE

— e

D e

)

D d

D e

D d e

D i

D e o e

IF_THE PROGRAM IS RESTARTED, THE FIRST QUESTION

SAME
DEVICES
(Y/N) ?''.
IF
THE
OPERATOR
TYPES ''Y'', THE
TEST
IS
RESTARTED USING THE SAME DEVICES AS THE LAST TIME, OTHERWISE, THE TEST
FTREE‘EARTS
THE
DIALOGUE
AS
IF THE PROGRAM WERE STARTED FOR THE FIRST

4.3
FOR

PROGRESS REPORTS
AN END OF PASS REPORT OCCURS EACH TIME THE
ALL

DEVICES

IN THE TEST QUE.

MESSAGE AND AN ERROR SUMMARY.

4.4

NO PERFORMANCE REPORTS ARE GIVEN

DURING

THE

EXECUTION

EXECUTED

THE

PROGRAM HALTS

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER.

4.6

PERFORMANCE REPORT

PROGRAM.

4.5

PROGRAM

THE END OF PASS REPORT INCLUDES A

THE PROGRAM.

ERROR REPORTS

THE FIRST LINE OF THE ERROR REPORT CONTAINS
THE
NUMBER OF
THE
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

PN N

ACTUAL TEST RESULTS.

[« JRNTe AV, P

) —d

5.0

ENVIRONMENTAL SUPPORT

—

USLISLS
LN LNT.NT.§)

) —d —d ——d

UNIT

5.1

PROCESSOR COMPATIBILITY

219

THE RM05/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.

5.2

DUAL PORT CONFIGURATIONS

b
P

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

pu—

g BBIRER G2 8 EIRRRAR
2B ISIFNANIN

CZRMOAO RMOS5/3/2 FCTNL TST 3

H 1
MACRO v03.01 11-APR-80 13:39:53 PAGE 3-4

SEQ 0007

229
230

THE RM05/3/2 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST
DUAL PORT LOGIC IN THE RM05/3/2 ADAPTER BUT IS EXECUTABLE ON

231
%g%

RM05/3/2 SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL
PORT
SWITCH IS SET TO THE APPROPRIATE PORT (A OR B).

234
235
%gg

5.3

238

MEMORY PARITY HARDWARE

MEMORY PARITY HARDWARE IS NOT USED DURING THE

523

RM0S5/3/2 SUSBYSTEM FUNCTIONAL TEST.

241
242

EXECUTION

THE

5.4 MEMORY MANAGEMENT HARDWARE

%22

245
gzg

MEMORY MANAGEMENT HARDWARE
IS NOT USED DURING THE RM0S/3/2
SUSBYSTEM FUNCTIONAL TEST.
CAPABILITIES OF THE MASSBUS CONTROLLER.

248
249
%gg)

5.5

252
253
254

THE RM05/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

255
256
257
258
.323

VERIFY MODE.

5.6

261
262
522
265
266
525

274
275

276
277
278

5873

sg;
283

XXDP COMPATIBILITY

THE RM05/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 IS THE XXDP LOADING DEVICE.
:
S.7

%c;g

271
272
273

ACT11, APT11 COMPATIBILITY

OPERATING SYSTEM COMPATIBILITY
THE PROGRAM IS NOT COMPATIBLE WITH ANY SOF TWARE OPERATING SYSTEM.

6.0

TEST DESCRIPTION

CONTROLLER ACCESS TEST

PURPOSE :
TO

VERIFY

THAT

THE

UNIBUS

ADDRESS OF THE

CORRECT, AS DEFINED AT LOCATION $BASE.

SUBSYSTEM

CZRMOAO RMOS/3/72 FCTNL TST 3

CZRMOAO RMOS5/3/2 FCTNL TST 3

286
287
288
289
291
292
293
295

—_

NV~ WNV=O

§§

297
298
299
300
301
302
303
304
305
306
307

319

1
I
MACRO v03.01 11-APR-80 13:39:53 PAGE 3-5

SEQ 0008

PROCEDURE :

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.

IF THE TEST FAILS AND THE PROGRAM

RUNNING

STAND

ALONE
ENVIRONMENT, I.E., LOCATION 42 IS 0, THE PROGRAM WILL JUMP
TO LOCATION 204 WHICH ALLOWS THE OPERATOR
TO
C(HANGE
THE
$BASE
ADDRESS
VIA CONSOLE DIALOGUE.
OTHERWISE, THE PROGRAM ESCAPES TO
THE END OF PASS HANDLER.

DEVICE AVAILABLE TEST

PURPOSE :
TO VERIFY THAT THE UNIT UNDER TEST IS AVAILABLE FOR TESTING,
AND 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

ggf{gaé

BIT

RMCS2.

NED

THE RESULTS OF THE TEST CAN VARY AS

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

SEIZED

.BUS TIMEOUT - THE MASSBUS CONTROLLER
NONEXISTENT DEVICE;

DETECT

FAILED

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

THE

DRIVE TYPE TEST

PURPOSE :
TO

VERIFY THAT THE UNIT UNDER TEST IS AN RMOS5, RMO3 OR RMO2

SINGLE PORT OR
DUAL PORT SUBSYSTEM.

CZRMOAO RMOS5/3/2 FCTNL TST 3

1
J
MACRO v03.01 11-APR-80 13:39:53 PAGE 3-6

SEQ 0009

PROCEDURE :

THIS TEST READS
THE
DRIVE
TYPE
REGISTER,
RMDT,
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_

TEST

WRITE

DATA

AND

READ

DATA FUNCTIONALITY OF

THE

RM05/3/2 SUBSYSTEM USING 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.
THE 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

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
OF
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
PROGRAM
LISTING
THE ONE SELECTED
;RACKi
UNLESS

SECTOR USED DURING A
TEST MAY DIFFER FROM
THE
BECAUSE THE PROGRAM SUBSTITUTES A GOOD SECTOR IF
IS LISTED IN THE BAD BLOCK
TABLE
OF
"THE
LAST
SPECIFIED OTHERWISE,
ALL
TESTS
ARE
IN 16 BIT

WRITE, READ ZEROS TEST
THE TEST WRITES AND READS AN ALL ZEROS DATA

FIELD,

CAUSING

CZRMOAQO RMOS5/3/2 FCTNL TST 3

K 1
MACRO V03.01 11-APR-80 13:39:53 PAGE 3-7
SEQ 0010 |

400
401
402
403
404
405
406
407
408
409
410

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,

a1
412
413
414

WRITE, WRITE CHECK ZEROS W/ WCE ERROR TEST

THE TEST WRITES AN ALL ZEROS DATA
FIELD,
THEN
COMPLEMENTS
EACH BIT
IN THE LAST WORD
OF THE
WRITE BUFFER.
A WRITE CHECK
COMMAND IS EXECUTED AND THE TEST
VERIFIES THAT THE CORRECT WRITE
CHECK ERROR IS DETECTED.

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 CHECK ONES TEST
THE TEST WRITES AND WRITE CHECKS AN ALL ONES DATA FIELD.

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

WORD OF
THE
WRITE BUFFER.
THE TEST VERIFIES THAT
WRITE
CHECK ERROR IS DETECTED.

THE

CORRECT

WRITE, WRITE CHECK MULTIPLE SECTORS TEST
THE TEST SEEKS TO CYLINDER O TO

INSURE

.
THERE

HEAD

)

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

SEQ 0011

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 O, 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 MEAD 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, TRACK O, SECTOR 31.

THE

WORD

COUNT

EQUAL

THIS TEST WRITES MULTIPLE SECTORS STARTING WITH CYLINDER

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

WRITE, WRITE CHECK WITH MID-TRANSFER SEEK TEST

LAST

TRACK AND SECTOR 31., CAUSING A MID-TRANSFER SEEK AFTER THE

FIRST SECTOR IS
WRITTEN.
WRITE CHECK DATA COMMAND.

THE

SAME SECTORS

ARE VERIFIED WITH A

WRITE, REAP 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
CORRECT ERROR IS DETECTED.
EACH BIT
POSITION OF
BOTH HEADER
WORDS IS TESTED IN THIS MANNER.

WRITE, READ W/ HCI

TEST

b T

CZRMOAD RMO5/3/2 FCTNL TST 3

SEQ 0012 |

A SECTOR 1S FORMATTED WITH AN INCORRECT HEADER, THEN WRITTEN
AND
READ WITH HEADER COMPARE INHIBITED.
THE TEST VERIFIES THAT
NO ERROR IS DETECTED.

WRIYE, REA2 W/ IVC ERROR TEST
VOLUME VALID IS RESET BY SETTING

AND

RESETTING

DIAGNOSTIC

MODE.
THE
TEST THEN EXECUTES A WRITE DATA COMMAND AND VERIFIES
gg?; éw COMMAND STATUS SETS.
THE TEST IS REPEATED FOR READ

WRITE, READ W/ ABORT TEST

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

WRITE

WRITE, READ EACH CURRENT LEVEL TEST

THE TEST WRITES AND READS ON £ACH OF THE FOLLOWING CYLINDERS
IN ORDER TO WRITE AT EACH POSSIBLE 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

Cem

M
MACRO V03.01 11-APR-80 13:39:53 PAGE 3~9

=0V~

VIV

CZRMOAQO RMO5/3/72 FCTNL TST 3

N1
MACRO V03.01 11-APR-80 13:39:53 PAGE 3-10

SEQ 0013

CYLINDER 383.
THE FIRST S ECTOR IS WRITTEN AT ONE CURRENT LEVEL
AND THE SECOND SECTOR IS WRI TTE N AT ANOTHER CURRENT LEVEL.
BOTH
SECTORS ARE VERIFIED WITH A WRITE CHECK DATA COMMAND.

WRITE, READ EARLY PEAK SHIFT TEST

THIS TEST WRITES AND READS A

SINGLE

SECTOR

USING

DATA

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

USING

DATA

MIX

PATTERN DESIGNED TO INTRODUCE EARLY PEAK SHIFT.

WRITE, READ MIXED PEAK SHIFT TEST

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

HEAD

USING

READ, WRITES CHECK MULTIPLE SECTORS IN OFFSET MODE TEST

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

Crm

CZRMOAQ RMOS5/3/2 FCTNL TST 3.

CZRMOAQ RMOS5/3/72 FCTNL TST 3
1
486
487

B 2
MACRO v03.01 11-APR-80 13:39:53 PAGE 4

SEQ 0014 |

;PROGRAM REVISION #001

.TITLE
CZRMOAO RHOS/S/Z FCTNL TST 3
;*COPYRIGHT (C) 1980

:*DIGITAL EQUIPMENT CORP.
tHAYNARD MASS. 01754

'PROGRM BY MIKE LEAVITT

'THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
'PACKAGE (MAINDEC-11-DZQAC-C4), 1980.

O=NWH
NN OVO—=NWHWN

J
BN B
IE B

BF BN B

L
N
L
R

2R B

L I

B
LA B

490
49

OPERATIONAL SWITCH SETTINGS
SWITCH

BN BF BN BE BE I

R I TN TR T T T TS T T

.SBTTL

— ey
b
—

488

USE
HALT ON
LOOP ON
INHIBIT
UNUSED
INHIBIT
BELL ON
LOOP ON
LOOP ON
TN128

ERROR
TEST

ERROR TYPEOUTS
ITERATIONS

ERROR
ERROR

TEST IN SWR<7:0>

BASIC DEFINITIONS

é;ihcl'l(TlAL ?11988555 OF THE STACK POINTER #x* 1100 =«
ERROR
SCOPE

= EMT
= IOT

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

*HISCELLANEOUS DEFINITIONS

LF
CR
CRLF

ggU-PS

STKLMT

PIRQ

177570

000000
000001
000002
000003

DSWR

DDISP

;:CODE FOR HORIZONTAL TAB

= 12
=15
= 200

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

= 177774

..STACK LIMIT REGISTER

= 177570

: HARDWARE SWITCH REGISTER

= 177776

= 177772

= 177570

: ;PROCESSOR STATUS WORD

:PROGRAM INTERRUPT REQUEST REGISTER

: HARDWARE DISPLAY REGISTER

: *GENERAL PURPOSE REGISTER DEF INITIONS

RO
R1
R2

= %0
= 21
= X2

= 23

ENERAL REGISTER
..GEMRAL REGISTER

: :GENERAL REGISTER
: ;GENERAL REGISTER

CZRMOAO RMOS/3/2 FCTNL TST 3

BASIC DEFINITIONS

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

000004
000005
000006
000007
000006
000007

R4
RS
R6
R7
SP
PC

000000
000040

PRO
PR1
PR2
PR3

=
=
=
=
=
=

X4
X5
%6
X7
%6
X7

s ;GENERAL REGISTER
s sGENERAL REGISTER
s sGENERAL REGISTER
; sGENERAL REGISTER
s sSTACK POINTER
; ;PROGRAM COUNTER

s*PRIORITY LEVEL DEFINITIONS

PR4

PRS
PR6
PR7

SEQ 0015

=0
= 40
= 100
= 140

::PRIORITY
;sPRIORITY
;:PRIORITY
;:PRIORITY

= 240
= 300
= 340

;sPRIORITY LEVEL 5
ssPRIORITY LEVEL 6
;sPRIORITY LEVEL 7

= 200

LEVEL
LEVEL
LEVEL
LEVEL

ssPRIORITY LEVEL 4

s*"'SWITCH REGISTER'' SWITCH DEFINITIONS

SW15

SW14

Sw13
Sw12
SW11

Sw10
SW09
SW08

= 100000

= 40000

= 20000
= 10000
= 4000
= 2000
= 1000
= 400

SW0?7

= 200

SWO0S

= 40

SW06

O
1
2
3

= 100

SW04
=20
Sw03
=10
Sw02
= &
Sw01
=2
SW00
=z 1
SW9=SW09
SW8=SW08
SW7=SW07
SW6=SW06

SW5=SW05
SW4=SW04
SW3=SW03
SW2=SwW02
SW1=Sw01
SWO=Sw00

:*DATA BIT DEFINITIONS (BITOO TO BIT1S)
BIT1S
= 100000
BIT14
= 40000
BIT13
= 20000
BIT12
= 10000
BIT11
= 4000
BITI0
= 2000
BITO9
= 1000
BITO8
= 400
BITO?
= 200
BITO6
= 100
BITOS
= 40

CZRMOAO RM0S/3/2 FCTNL TST 3

SEQ 0016
—r0S =

BASIC DEFINITIONS

D 2
MACRO v03.01 11-APR-80 13:39:53 PAGE 4=2

BIT2=BITO2
BIT1=BIT01
BITO=BITO0

:*BASIC '‘CPU'" TRAP VECTOR ADDRESSES

ERRVEC
= 4
RESVEC = 10
TBITVEC = 14
TRTVEC

= 14

14
20
24

;TIME OUT AND OTHER ERRORS
..RESERVED AND ILLEGAL INSTRUCTIONS
"'T'' BIT

::TRACE TRAP

BPTVEC
IOTVEC
PWRVEC
EMTVEC
TRAPVEC
TKVEC
TPVEC
PIRQVEC

=
=
=
=
=
=
=
=

.SBTTL

RM REGISTER BIT DEFINITIONS

34
60
64
240

: ;BREAKPOINT TRAP (BPT)
;s INPUT/QUTPUT TRAP (IOT) #*SCOPE*+*

: ;POWER FAIL
..EHJLATM TRAP (EMT) =*ERROR**
::"'TRAP'' TRAP
::TTY KEYBOARD VECTOR
::TTY PRINTER VECTOR
; ;PROGRAM INTERRUPT REQUEST VECTOR

;*RMCS1 CONTROL STATUS REGISTER
DVA

F&4

F3
F2

FO
GO
FNCMSK

= BITN

sFUNCTION CODE

= BIT02

sFUNCTION CODE
sFUNCTION CODE

= BITO4
= BITO03

= BITO1
= BIT00
= 000077

;FUNCTION CODES

NOP
509

ILF02

SEEK
RECAL
DRVCLR
RLEASE
OFFSET
RTC

RIP
PAKACK
PACACK

ILF26
ILF26

sDEVICE AVAILABLE-READ ONLY

= BITOS

000000

= 000002

= 000004
= 000006
= 000010
= 000012
= 000014
= 000016

= 000020
= 000022
= PAKACK

= 000024
= 000026

sFUNCTION CODE

FLNCTI(N CODE
;GO BIT

:FUNCTION CODE MASK
(BITS 01-05 OF RMCS1)

sNOPCCOMMAND

s ILLEGAL COMMAND
:SEEK COMMAND
RECAL IBRATE COMMAND
;DRIVE CLEAR COMMAND

:RELEASE COMMAND
sOFFSET COMMAND
sRETURN TO CENTERLINE COMMAND
sREAD IN PRESET COMMAND

sPACK ACKNOWLEDGE COMMAND

s ILLEGAL COMMAND
s ILLEGAL COMMAND

CZRMOAO RMOS5/3/2 FCTNL TST 3

RM REGISTER BIT DEFINITIONS

520
523

524

525
526
527
528
529
530
531
532
533
534
%2

000030
000030
000032
000034
000036
000040
000042
000044
000046
000050

000052
000054
00056
000060
000062
000064
000066
000070
000072
000074
000076

g%
539

540
541
542
543
gzg
546

547
548
549
550
gg;

553

554
ggg

559

SEARCH
ILF30
ILF32
ILF34
ILF36
ILF40
ILF42
ILF44
ILF46

s SEARCH COMMAND
:ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s 1LLEGAL COMMAND
s ILLEGAL COMMAND

WCH
ILF54
ILF56
WD
WH
ILF64
ILF66
RD
RH
ILF74
ILF76

= 000052
= 000054
= 000056
= 000060
= 000062
= 000064
= 000066
= 000070
= 000072
= 000074
= 000076

JWRITE CHECK HEADER AND DATA
:ILLEGAL
COMMAND
s ILLEGAL COMMAND
:WRITE DATA COMMAND

;*RMDA

DISK ADDRESS REGISTER

wCD

= 000050

: TRACK ADDRESS DEF INITIONS

TA16
TA8
TA4
TA2
TA1

000020
000010
000004

SA16
SA8
SA4

= BIT12
= BITN
= BIT10
= BIT09
= BITO8

:SECTOR ADDRESS DEF INITIONS

= BIT04
= BIT03
= BIT02

000002
000001

SA2
SA1

177400
000377

TADMSK
SADMSK

= 177400
= 000377

;*RMDS

DRIVE STATUS REGISTER

ATA

= BIT15

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000001

SEQ 0017

= 0000;0
= 000030
=
= 000034
= 000036
= 000040
= 000042
= 000044
= 000046

010000
004000
002000
001000
000400

ggg
560
561
562
563
564
565
566
567
568
ggg

E &
MACRO v03.01 11-APR-80 13:39:53 PAGE 4-3

= BITO1
= BIT00

:TRACK & SECTOR MASKS

ERR
PIP
MOL
WRL
LBT
PGM
DPR
DRY
v
oM

= BIT14
= BIT13
= BIT12
=BITN
= BIT10
= BIT09
= BITO8
= BIT07
= BIT06
= BITO0

;*RMER1 ERROR REGISTER #1

:WRITE CHECK DATA COMMAND

;WRITE HEADER AND DATA COMMAND
:ILLEGAL COMMAND
s ILLEGAL COMMAND
sREAD DATA COMMAND
sREAD HEADER AND DATA COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND

s TRACK ADDRESS 16.
sTRACK ADDRESS 8.
:TRACK ADDRESS 4
s TRACK ADDRESS 2
s TRACK ADDRESS 1

sSECTOR ADDRESS 16.
:SECTOR ADDRESS 8.
sSECTOR ADDRESS 4

sSECTOR ADDRESS 2
sSECTOR ADDRESS 1

s TRACK ADDRESS MASK
;SECTOR ADDRESS MASK

SATTENTION ACTIVE

:COMPOSITE ERROR
;POSITIONING IN PROGRESS
sMEDIUM ON LINE
sWRITE LOCK
sLAST BLOCK TRANSFERRED
s PROGRAMMABLE
sDRIVE PRESENT
;DRIVE READY
sVOLUME VALID
sOFFSET MODE ACTIVE

CZRMOAO RMOS5/3/2 FCTNL TST 3

RM REGISTER BIT DEFINITIONS

572

573

574

100000

040000

MACRO v03.01

¥
'8
11-APR-80 13:39:53 PAGE 4=~4
SEQ 0018

DCK

UNS

= BIT1S

= BIT14

:DATA CHECK ERROR

;DRIVE UNSAFE

575
576
577
578
579
580
581
82
583
584

020000
010000
000
002000
001000
000400
000200
000100
000040
000020

OP]
DTE
WLE
1AE
AOE
HCRC
HCE
ECH
WCF
FER

= BIT13
= BIT12
= BITN
= BIT10
= BIT09
= BITO8
= BIT07
= BIT06
= BITOS
= BITO04

586

000004

RMR

= BIT02

ggg

000001

ILF

= BIT00

590

115760

NDTMSK

= DCK'DTE'WLE'AOE'HCRC''ICE'ECH'WCF
'FER

585

587

591

000010

000002

PAR

ILR

= BIT03

= BITOT

JOPERATION INCOMPLETE
;DRIVE TIMING ERROR
WRITE LOCK ERROR
s INVALID ADDRESS ERROR
;ADDRESS OVERFLOW ERROR
;HEADER CRC ERROR
;HEADER COMPARE ERROR
JECC "HARD'' ERROR
JWRITE CLOCK FAILURE
:FORMAT ERROR
;PARITY ERROR

sJREGISTER MODIFICATION REFUSED

s ILLEGAL REGISTER

sILLEGAL FUNCTION

:"NDTMSK'' IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA

ggg

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

ggg

;*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

;*RMLA

LOOK AHEAD REGISTER

= BIT10
= BIT09
= BIT08
= BIT07

ggf;

000377

ggg

:MASK FOR ATTENTION BITS

600
601
602
603

002000
001000
000400
000200

SC4
SC3
SC2
SC1

SCO

= BITO6

JSECTOR COUNT = 1

003700

SCTMSK

= 003700

;SECTOR COUNT MASK

282

000100

%
610

611
612
613
614
615
616
617
618

619
620

;SECTOR COUNT = 16
sSECTOR COUNT = 8
;SECTOR COUNT = 4
;SECTOR COUNT = 2

;*RMMR1 MAINTENANCE REGISTER #1

100000
040000
020000
010000
004000
002000
001000
000400

000200
000100

;WRITE ONLY BITS

DBCK
DBEN
DEBL
DTO
MCLK
MRD
MUR
MOC

MSER
MDF

= BIT1S
= BIT14
= BIT13
= BIT12
=BITN
= BIT10
= BIT09
= BIT08

= BIT07
= BIT06

:DEBUG CLOCK
;DEBUG CLOCK ENABLE
;DIAGNOSTIC END OF BLOCK
sDIAGNOSTIC TIMEOUT
MAINTENANCE CLOCK
;READ DATA
;UNIT READY
;ON CYLINDER

;SEEK ERROR
;DRIVE FAULT

621
622

000040
000010

MS
MwP

= BIT0S
= BIT03

;SECTOR PULSE
;JWRITE PROTECT

624
2222

000002
000001

MSC
DMD

= BITO1
= BITOC

;SECTOR COMPARE
;DIAGNOSTIC MODE

100000

0cC

623

627

628

000004

= BIT02

sREAD ONLY BITS
= BIT15

s INDEX PULSE

;OCCUPIED

CZRMOAOQ RMOS5/3/2 FCTNL TST 3

RM REGISTER BIT DEFINITIONS

629
630
631
632
633

634

0000
020000

010000
004000
002000

001000

635

0004

637

000100

636

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

G 2
MACRO v03.01 11-APR-80 13:39:53 PAGE 4-5
RG

EBL
REX
ESRC

PLFS

ECRC

000200

PDA
PHA

000040

000010
000004
000002
000001

MWD

000020

100009
040000
020000

CONT

EECC

= BIT14

= BIT13
= BIT12
= BITN
= BIT10
= BITO9
= BITO8
= BITO7
= BIT06
= BITOS
= BITO4
= BITO3

LS
LST
DMD

= BIT02
= BITO1
= BITO0

J*RMDT

DRIVE TYPE REGISTER

= BIT15

SEQ 0019
;RUN AND GO

cEND OF BLOCK
sEXCEPTION
sENABLE SEARCH
sLOOKING FOR SYNC
sENABLE CRC our
;DATA AREA
sHEADER AREA
s CONT INUE
sWORD CLOCK
sENABLE ECC Our
;WRITE DATA BIT

;LAST SECTOR
:LAST SECTOR AND TRACK
;DIAGNOSTIC MODE

sNOT SECTOR ADDRESSED = 0

004000

NSA
TAP
MOH
DRQ

020024
024024

DULPRT

SNGPRT

= 020024
= 024024

; *RMOF

OFFSET REGISTER

FMT16
ECI
HCI
OFD

= BIT12
=BITN
= BIT10
= BIT07

2 *RMDC

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK

= 001777

010000
004000
002000

000200

001777

= BIT14

;TAPE DRIVE = 0

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

= BIT13
=B8ITN

sMOVING HEAD = 1
;DRIVE REQUEST REQUIRED

;16 BIT WORD FORMAT
sECC INHIBIT
sHEADER COMPARE INHIBIT
;OFFSET FORWARD

sMASK FOR CYLINDER ADDRESS

;*RMMR2 MAINTENANCE REGISTER #2

100000

040000
020000
010000
004000
002000
001000
0004
000200

000100
000040
000020
000010
000004
000002
000001

RREAD ONLY BITS
RQGB

= BIT15

= BIT14
= BIT13
= BIT12
= BITN
= BIT10
= BIT09
= BITO8

= BIT07
= BIT06
= BITO0S
= BIT04
= BITO3
= BIT02
= BITO1
= BITO0

;PORT A REQUEST

sPORT B REQUEST
s TAG CONTROL
;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
:TAG BUS
:TAG BUS
:TAG BUS

CZRMOAO RMOS/3/2 FCTNL TST 3

RM REGISTER BIT DEFINITIONS

2878

681
682
683
685

687

223

100000
040000
020000
010000
004000
002000
000200
000010
100000
040000

ggg

697
698

000000
000006

703

000024

699
700
701
702

SEQ 0020

;*RMER2 ERROR REGISTER 2

23(1)

692
232

H 2
MACRO v03.01 11-APR-80 13:39:53 PAGE 4=-6

BSE
SK1
OPE
IvC
LSC
LBC
DVC
DPE

= BIT1S
= BIT14
= BIT13
= BIT12
= BITN
= BIT10
= BIT0?7
= BITO3

.SBTTL

PROGRAM MNEMONICS

MSE
USE

= BIT15
= BIT14

.SBTTL

RM REGISTER INDEX VALUES

RMCS1T
RMDA

= 00
= 06

;CONTROL STATUS REGISTER #1
;DISK ADDRESS REGISTER

= 24

sJMAINTENANCE REGISTER

sMANUFACTURING DETECTED SECTOR ERROR
;USER DETECTED SECTOR ERROR

000012
000014
000016
000020

RMDS
RMER1
RMAS
RMLA

000026
000030
000032
000034
000036
000040

RMDT
RMSN
RMOF
RMDC
RMHR
RMMR2

000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076

ILRGS2
ILRGS4
ILRGS6
ILRG60
ILRG62
ILRG64
ILRG66
ILRG70
ILRG72
ILRG?4
ILRG?6

= 52
= 54
= 56
= 60
= 62
= 64
= 66
= 70
= 72
= 74
= 76

;ILLEGAL REGISTER 52
*ILLEGAL REGISTER 54
;ILLEGAL REGISTER 56
;ILLEGAL REGISTER 60
;ILLEGAL REGISTER 62
;ILLEGAL REGISTER 64
;ILLEGAL REGISTER 66
;ILLEGAL REGISTER 70
;ILLEGAL REGISTER 72
;ILLEGAL REGISTER 74
;ILLEGAL REGISTER 76

;}g

000077

IDXMSK

= 77

;sMASK FOR REGISTER INDEX NUMBER

;}3

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITIONS

;5‘1?

;*RMCS1 CONTROL STATUS REGISTER #1

704
705
706
707
708
709
710
71
712
715

723
724
725

726

000042
000044
000046
000050

100000
040000
020000
002000

RMMR1

RMER2
RMECT
€2
ILRG50

SC
TRE
MCPE
PSEL

=12
= 14
=16
= 20

:BAD SECTOR ERROR
;SEEK INCOMPLETE
;OPERATOR PLUG ERROR
sINVALID COMMAND ERROR
;LOSS OF SYSTEM CLOCK
;LOSS OF BIT CLOCK
;DEVICE CHECK
;DATA PARITY ERROR

= 26
= 30
= 32
= 34
= 36
= 40

= 42
= 44
= 46
= 50

= BIT15
= BIT14
= BIT13

= BIT10

:DRIVE STATUS REGISTER
;ERROR REGISTER #1
ATTENTION SUMMARY REGISTER
:LOOK AHEAD REGISTER

;DRIVE TYPE REGISTER
;SERJIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
*HOLDING REGISTER
*MAINTENANCE REGISTER #2

*ERROR REGISTER #2
;ECC POSITION REGISTER
;ECC PATTERN REGISTER
;ILLEGAL REGISTER 50

;SPECIAL CONDITION-READ ONLY
;TRANSFER ERROR
*MASSBUS CONTROL BUS PARITY ERROR-READ ONLY

:PORT B SELECT

CZRMOAQ RM0S5/3/2 FCTNL TST 3

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

RH CONTROLLER REGISTER BIT DEFINITIONS

727
728

729
730
73

001000

000400

000200
000100

732

733

734

735

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

100000

040000

020000
010000
004000
02000

001000
000400
000200
000100
000040
000020
000010
000004
000002

000001

100000
040000
020000

761

004000

762

763

764
765

766

767
768
769
770
44

000007

= BITO06

sADDRESS EXTENSION

sADDRESS EXTENSION
sREADY=READ ONLY

: INTERRUPT ENABLE

DLT

= BIT15

:DATA LATE-READ ONLY

UPE

= BIT13

;UNIBUS PARITY ERROR

= BIT09
= BITO8
= BIT07

sMISSED TRANSFER
sMASSBUS DATA BUS PARITY ERROR-READ ONLY
sOUTPUT READY=READ ONLY

WCE

NED
NEM
PGE

MXF
MDPE
OR
IR
CLR

= BIT14

= BIT12
=BITN
= BIT10

s INPUT READY-READ ONLY
s CONTROLLER CLEAR

= BITO3
= BIT02

sUNIBUS ADDRESS INCREMENT INHIBIT
JUNIT SELECT

= BITO4

= BITO1

sNONEXISTANT DRIVE-READ ONLY
sNONEXISTANT MEMORY-READ ONLY
;PROGRAM ERROR-READ ONLY

= BIT06
= BITO5

PAT

BAI
ue

;WRITE CHECK ERROR-READ ONLY

= BITOO

;PARITY TEST

sUNIT SELECT

JUNIT SELECT

UNTMSK

= 7

JUNIT SELECT MASK

;*RMCS3 RH70 CONTROL STATUS REGISTER #3

010000

APE

= BIT15

;ADDRESS PARITY ERROR

DPELO

= BIT13

;DATA PARITY ERROR LOW WORD

DPEHI

= BIT06

IPCK1
IPCKO

= BITO1
= BITO0

.SBTTL

RH11/RH70 CONTROLLER REGISTER INDEX VALUES

RMCST

= 00

000010

IPCK3
IPCK2

000004

000002
000001

000000

779
780

176700
120254

;DATA PARITY ERROR HIGH WORD

= BIT12
= BITN

DBL

000100

= BIT14

WCEHI
WCELO

002000

000002
000004
000010
000022
000050
000052

781
783
784

= BITO09

= BITO8
= BITO7

JUNIT SELECT MASK

772
773
774
775
776
777
778

A17

A16
RDY

;*RMCS2 RH CONTROL STATUS REGISTER #2

750
751
752
753
754
755
756
757
758
75%

760

SEQ 0021

= BIT10

= BITO3
= BITO?

sWRITE CHECK ERROR HIGH WORD
sWRITE CHECK ERROR LOW WORD

;DOUBLE WORD TRANSFER

: INTERRUPT ENABLE

s INVERT PARITY CHECK
s INVERT PARITY CHECK
s INVERT PARITY CHECK
s INVERT PARITY CHECK

;CONTROL, STATUS REGISTER #1

RMW(
RMBA
RMCS2
RMDB

= 02
= 04
=10
= 22

cWORD COUNT REGISTER
;BUS ADDRESS REGISTER
sCONTROL, STATUS REGISTER #2
:DATA BUFFER

RMCS3

=52

;CONTROL, STATUS REGISTER #3

= 176700

sUNIBUS ADDRESS

RMBAE

ABASE

= 50

AVECTT

= 120 254

.SBTTL

TRAP CATCHER

sBUS ADDRESS EXTENSION

sUNIBUS VECTOR ADDRESS AND PRIORITY

CZRMOAO RMOS5/3/2 FCTNL TST 3

TRAP CATCHER

000200

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

:*LOCATION %CMYAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174

000137

DISPREG:
SWREG:

.=1
.WORD
.WORD

.SBTTL

STARTING ADDRESS(ES)

005420

0
0

JMP
.SBTTL

000052

787
788

000204
000045

;:JUMP TO STARTING ADDRESS OF PROGRAM

ACT11 HOOKS
R RRN AR AR RRRIR AR AR ARRRER RN

HOOKS REQUIRED BY ACT11

037650

000052
000000
000204

001100

789

;. SOFTWARE DISPLAY REGISTER
;s SOFTWARE SWITCH REGISTER

A#START

IRRRER AR RN AR TR

000046

SEQ 0022

000000

000174
000176

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

3546(:—.

:SAVE PC

$ENDAD

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

WORD
0
.=$SVPC

::2)SET LOC.52 TO ZERO
;s RESTORE PC

.=1100
.SBTTL

APT PARAMETER BLOCK

AR RS

eIt

2222122222222

:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

;:fit.tt'fi'.ttttfit..fi'.'t'i..'.'.'t..Q'.Qfi.t.'fi..fi.t.tt".t.'..t.t

.$X=.
.=26

200

.=44

000044

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

::FOR APT START UP

::POINT TO APT INDIRECT ADDRESS PNTR.

$APTHDR ::POINT TO APT HEADER BLOCK
.=.8X
::RESET LOCATION COUNTER

.'.'it.'.tttttfifi'.'tt""'"".tt"..".'.t..*t'.."'.."t't'...t

8888888

3333838

:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
: INTERFACE SPEC.
$APTHD:
$HIBTS: .WORD
SMBADR: .WORD
$TSTM:
.WORD
$PASTM:
.WORD

O
SMAIL
1
2

$ETEND°SHAIL/

SUNITM:

.WORD

-WORD

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

;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT

: ;LENGTH MAILBOX~-ETABLE (WORDS)

CZWO RH05/3/2 FCTNL TST 3

COMMON
T

K 2
MACRO v03.01 11-APR-80 13:39:53 PAGE 5
.SBTTL
SRR

SEQ 0023

COMMON TAGS
A

R A AR

AR AR RN AR AR R R AR AR AR

AR RN

tTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

iF PSRRI

88 888888888888

;*USED IN THE PROGRAM.

001142

.=TAGADR
o
B

;;START OF COMMON TAGS

$TSTNM:
SERFLG:
$/CNT:
S$LPADR:
SLPERR:
$ERTTL:
$ITEMB:
SERMAX:
$ERRPC:
$GDADR:
$8DADR:
$GDDAT:
$8DDAT:

.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
%g

0
0
O
0
0
O
0
1
0
0
0
0
0
8

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

$AUTOB:
$INTAG:

.BYTE
BMYNEIE)

0
8

s ;AUTOMATIC MODE INDICATOR
: INTERRUPT MODE INDICATOR

SWR:

.WORD

DSWR

s ;ADDRESS OF SWITCH REGISTER

$CMTAG:

DISPLAY: .WORD
$TKS:
177560

$TKB:
177562
$TPS:
177564
$TPB:
177566
SNULL:
.BYTE
SFILLS: .BYTE
SFILLC: .BYTE
$TPFLG: .BYTE
$TMPO:
.WORD
$TMP1:
.WORD
$TMP2:
.WORD

$TMP3:

_WORD

DDISP

: ;ADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS

::TTY KBD BUFFER
::TTY PRINTER STATUS REG. ADDRESS
::TTY PRINTER BUFFER REG. ADDRESS
s sCONTAINS NULL CHARACTER FOR FILLS

0
2

12
0
O
O
O

:;CONTAINS # OF FILLER CHARACTERS REQUIRED
..INSERT FILL CHARS. AFTER A 'LINE FEED''
::"TERMINAL AVAILABLE'' FLAG (BIT<O7>-0-YES)
s sUSER DEF INED
s ;USER DEF INED
: sUSER DEF INED
..USER DEF INED

s sUSER DEF INED

$TMP4:

.WORD

$BELL:
$QUES:
S$CRLF:

SLF'

.ASCIZ
.ASCII
.ASCII
ASCIZ

<207><377><377> :.C@E FOR BELL
:;QUESTION MARK
<1S>
: :CARRIAGE RETURN
<12>
::LINE FEED

.SBTTL

APT MAILBOX-ETABLE

STIMES: 8
SESCAPE :

LA AR A

NUMBER OF ITERATIONS
ESCAPE ON_ERROR ADDRESS

.EVEN

SMAIL :

$MSGTY:
SFATAL:
STESTN:

.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTN

:APT MAILBOX

..*SSAGE TYPE CODE
.,fATAL ERROR NUMBER
;;TEST NUMBER

12232222 222222232]

APT MAILBOX-ETABL

L 2
MACRO v03.01 11-APR-80 13:39:53 PAGE 5-1
$PASS:
$DEVCT:

APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV

AENVM
ASWREG
AUSWR
ACPUOP

SEQ 0024

s ;PASS COUNT
s sDEVICE COUNT
::1/0 UNIT NUMBER
s sMESSAGE ADDRESS

..FESSAGE LENGTH

T _ENVIRONMENT TABLE
..ENVIRMNT BYTE
s sENVIRONMENT MODE BITS
:sAPT SWITCH REGISTER

..USER SWITCHES

TYPE

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

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

:
.

BYTE
.BY!E

AMAMS1
AMTYP1

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

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

HEH TYPE BYTE

(HIGH BYTE)

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

..HIGH ADDRESS ,BLK#1
M.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘‘TYPE'' ABOVE
..HIGH ADDRESS ,M.S. BYTE

: sMEM. TYPE ,BLKA2

s sMEM.LAST ADDRESS.BLK#?2
s :HIGH ADDRESS .M.S.BYTE

::HEH TYPE.BLK#S

s sMEM.LAST ADDRESS.BLK#3

§§§§é§§§§§§§§§§

CZRMOAO RM0S/3/2 FCTM. ST 3

..HIGH ADDRESS ,M.S.BYTE
.TYPE LBLKAG
i:

; sMEM.LAST ADDRESS ,BLK#%

:: INTERRUPT VECTORA1,BUS PRIORITYA1

..INTEWT VECTOR#2BUS PRIORITYA2

BASEceDDRESS OF EQUIPMENT UNDER TEST
; sDEVI

: ;CONTROLLER DESCRIPTION WORDA1
: :CONTROLLER DESCRIPTION WORDA2
s :DEVICE DESCRIPTOR WORDA0
:;DEVICE DESCRIPTOR WORDA1
sDEVICE DESCRIPTOR WORD#

..DEVICE DESCRIPTOR WORDA

;DEVICE DESCRIPTOR WORD#4

::DEVICE DESCRIPTOR WORDAS
:;DEVICE DESCRIPTOR WORD#6
:;DEVICE DESCRIPTOR WORDA7

CZRMOAO RMOS5/3/2 FCTNL TST 3

USER DEFINED TAGS

001326
001330

001332
001333

000000
000000

000
000

m 2
MACRO v03.01 11-APR-80 13:39:53 PAGE 6
.SBTTL

USER DEFINED TAGS

CTLFG:
XXDP:

.WORD
.WORD

LSTRK:

.BYTE
BYTE

0
O

0
0

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* DEVICE cooe FOR THE RM05/3/2.

1LO BYTE = 0
*HI 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:
;REGISTER INPUT BUFFER

001334
001336
001340
001342
C01344

000000
000000
000000
000000
000000

RMICI:
RMBAI:
RMDAI:
RMCS2I:

001350
001352
001356
001356
001360
001362
001364
001366
001370
001372
001374
001376

000000
000000
000000
000000
300000
000000
000000
000000
000000
000000
000000
000000

RMER1I:
RMASI:
RMLAI:
RMDBI:
RMMR1I:
RMDTI:
RMSNI:
RMOFI:
RMDCI:
RMHRI:
RMMR2I:
RMER2I:

000000
000000
000000

001346

001402
001404
001406

000000

RMCS1]: WORD

.WORD
.WORD
.WORD
.WORD

0
O
0
O
0

;CONTROL, STATUS REGISTER #1
:WORD COUNT REGISTER
:BUS ADDRESS REGISTER
:DISK ADDRESS REGISTER
:CONTROL, STATUS REGISTER #2

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

0
O
O
0
O
0
O
O
O
0
0
0

:ERROR REGISTER #1
SATTENTION SUMMARY REGISTER
:LOOK AHEAD REGISTER
*DATA BUFFER
:MAINTENANCE REGISTER #1
*DRIVE TYPE REGISTER
:SERIAL NUMBER REGISTER
:OFFSET REGISTER
:DESIRED CYLINDER REGISTER
:HOLDING REGISTER
:MAINTENANCE REGISTER #2
*ERROR REGISTE

RMEC2I: .WORD
RMBAEI: .WORD
RMCS3I: .WORD

0
0
O

RMDSI:

.WORD

RMECTI: .WORD

‘DRIVE STATUS REGISTER

*ECC POSITION REGISTER

:ECC PATTERN REGISTER
:BUS ADDRESS EXTENSION REGISTER
:CONTROL, STATUS REGISTER #3

;THE REGISTER OUTPUT BUFFER IS USED FOR
:ASSEMBLING DATA GOING TO REGISTER

001410

PUTBUF:
aecxsren OUTPUT BUFFER

001410
001412
001414
001416
001420

000000
000000
000000
000000
000000

RMCS10:
RMJCO:
RMBAO:
RMDAO:
RMCS20:

.WORD
.WORD
.WORD
.WORD
.WORD

O
0
O
0
0

;CONTROL, STATUS REGISTER #1
*WORD COUNT REGISTER
:BUS ADDRESS REGISTER
:DISK ADDRESS REGISTER
*CONTROL, STATUS REGISTER #2

001424
001426
001430
001432

000000
000000
000000
000000

RMER10:
RMASO:
RMLAO:
RMDBO:

.WORD
.WORD
.WORD
.WORD

0
0
O
0

:ERROR REGISTER #
Amunou SUMMARY REGISTER
:LOOK AHEAD REGISTER
:DATA BUFFER

001436

000000

RMDTO:

.WORD

:DRIVE TYPE REGISTER

001422

001434

000000

000(:20

RMDSO:

.WORD

RMMR10: .WORD

:DRIVE STATUS nec%srsn

:MAINTENANCE REGISTER #1

CZRMOAO RMOS5/3/2 FCTNL TST 3

USER DEF INED TAGS

N 2
MACRO v03.01 11-APR-80 13:39:53 PAGE 6~-1
RMSNO:
RMOFO:

SEQ 0026 |

.WORD
.WORD

0
0

;SERIAL NUMBER REGISTER
:OFFSET REGISTER

RMHRO:
.WORD
RMMR20: .WORD
RMER20: .WORD
RMEC10: .WORD
RMEC20: .WORD

O
O
O
O
0

:HOLDING REGISTER
:MAINTENANCE REGISTER #2
:ERROR REGISTER #2
sECC POSITION REGISTER
sECC PATTERN REGISTER

RMCS30: .WORD

;CONTROL, STATUS REGISTER #3

RMDCO:

.WORD

RMBAEO:

.WORD

:DESIRED CYLINDER REGISTER

;BUS ADDRESS EXTENSION REGISTER

sEACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN
:THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE
:FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST
é%l’gs ;AHgLSOEA ZERO WORD IS A BLANK AND REPRESENTS THE
001464

000000

001506

000000

001510

000000

TSTQUE:

.WORD

.BLKW
WORD

8.
0

s CONTAINS DEVICE POINTER

sTEST QUE FOR DEVICES UNDER TEST
;TABLE TERMINATOR GOES HERE WHEN

sALL 8. DEVICES ARE UNDER TEST.

sMEDIA 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

001512
001514
001516
001520

001522

001551

000000
000000
000000
000000

:ADDRESS ASSIGNED BY THE BAD SECTOR MODULE.

ASNDC:

ASNDA:

CLKADR:
CLKVCT:

.WORD

.WORD
.WORD
.WORD

0
0
O

sASSIGNED DESIRED CYLINDER

*ASSIGNED TRACK, AND SECTOR

*UNIBUS 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

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

PUTINX:

.BLKB

;PUT TAGS HERE

23.

sPUT INDEX TABLE

CZRMOAO RMO5/3/2 FCTNL TST 3

ERRC® POINTER TABLE

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

3
SEQ 0027

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 lS PERTINENT.
:*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC)
:*NOTE2:
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

% %

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

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORM.T

$ERRTB:

;ERROR
072254
076346
076472
076562

WRONG UNIT SELECTED

EMTT
EHT1
EDT1
EFT1

:ERROR

DEVICE WENT UNAVAILABLE

EMT2
EHT]
EDT1
EFT1

076562
;ERROR

072266
076346
076472
076562

DEVICE WENT NONEXISTENT

EMT3

EHT]
EDT1
EFT1

sERROR

072274

CONTROLLER NOT READY

EMT4
EHT1
EDT1
EFTT

;ERROR

076562

DRIVE NOT READY AND GO NOT RESET

EMTS
EHT1
EDT1
EFT1

CZRMOAO RMO5/3/2 FCTNL TST 3

ERROR POINTER TABLE

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

JERROR

072310

UNEXPECTED VALUE FOR '‘ATA'' STATUS

EMT6
EHT1
EDT1
EFTT

076562

:ERROR
072316
000000
000000
000000

BUS TIMEOUT TRYING TO READ OR WRITE REGISTER

EMT?7

;ERROR
072324

DRIVE NOT READY BUT GO IS RESET

EMT10
EHT
EDTI

076562

EFT1
;ERROR

072330

GO NOT RESET BUT DRIVE IS READY

EMT11
EHTI
EDT
EFT1

;ERROR

INCORRECT FUNCTION CODE

EMT12
EHT
EDT1
EFT1

:ERROR

PARITY ERROR READING REMOTE REGISTERS

EMT13
EHT]
EDT1
EFT1
:ERROR

TRANSFER ERROR IS INCORRECT

EMT14
EHT1
EDT1
EFT1

;ERROR

INCORRECT WORD COUNT

CZRMOAO RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

MACRO v03.01 11-APR-80 13:39:53 PAGE0 722
EMT15
EHT1
EDT1
EFT1

076562
;ERROR

072370
076346
076472
076562

INCORRECT BUS ADDRESS

EMT16
EHT]
EDT1
EFTT

;ERROR
072400
076345
076472
076562

INCORRECT LBT STATUS

EMT17
EHT]
EDT1
EFT1
;ERROR

072410
076346
076472
076562

INCORRECT ACQE

EMT20
EHT

EDT1
EFT1

;ERROR

072420
076346
076472
076562

INCORRECT DISK ADDRESS

EMT21
EHT1
EDT1
EFT1

;ERROR

INCORRECT CYLINDER ADDRESS

EMT22
EHT
EDT1
EFT1

s ERROR

INCORRECT WLE STATUS

EMT23
EHT
EDT1
EFT1

076562
:ERROR

rL)

INCORRECT UPE STATUS

SEQ 0029

CZRMOAO RMO5/3/2 FCTNL TST 3

ERROR POINTER TABLE

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

072450

EMT24
EHT1
EDT1
EFT1

076562

s ERROR
072460

INCORRECT WCF STATUS

EMT25
EHT1
EDT1
EFT1

076562
;ERROR

072470
076346
076472
076562

INCORRECT WCE STATUS

EMT26
EHT]
EDT1
EFT1
;ERROR

072500
076346
076472
076562

INCORRECT MDPE STATUS

EMT27
EHT1
EDT1
EFT
;ERROR

072510

INCORRECT DCK STATUS

EMT30
EHT1

EDT1
EFT1

076562

;ERROR
072520

INCORRECT ECH STATUS

EMT31
EHT1
EDT1
EFT1

;ERROR

DLT SHOULD NOT BE SET

EMT32
EHT]
EDT1
EFT1

076562

;ERROR
072540

EMT33

MXF

SHOULD NOT BE SET

SEQ 0030

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

076346
076472
076562

mmm

DT
FT

sERROR

072550
076346
076472
076562

DTE SHOULD NOT BE SET

EMT34
EHT1
EDT1
EFT1
:ERROR

072560
076346
076472
076562

INCORRECT HCRC STATUS

EMT35
EHT
EDT1
EFT1
:ERROR

072570
076346
076472
076562

INCORRECT HCE STATUS

EMT36
EHT1
EDT
EFT1
;ERROR

072600

INCORRECT FER STATUS

EMT37

EHT]
EDT1
EFT1

076562
;ERROR

072610
076346
076472
076562

DPE SHOULD NOT BE SET

(NOT A DATA COMMAND)

EMT40
EHT]
EDT]
EFT1
;ERROR

072616

LOST "MOL'* DURING PACK ACKNOWLEDGE

EMT41
EHT]
EDT1
EFT1

076562

;ERROR

072626
076346

SEQ 0031

EMT42
EHTT

UNSAFE ERROR DURING PACK ACKNOWLEDGE

mem

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

CZRMOAOQ RMOS/3/2 FCTNL TST 3

ERROR POINTER TABLE

002214
002216

G 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 7-5
SEQ 0032

076472
076562
:ERROR

"OPI"* ERROR DURING PACK ACKNOWLEDGE

;ERROR

"RMR'* ERROR DURING PACK ACKNOWLEDGE

072640
076562

072650
076346
076472
076562

EFT1
;ERROR

072660

EMT4S
EHT1
EDT1
EFT1

076346
076472

076562

;ERROR
072670
076346
076472
076562

"ILF'' ERROR DURING PACK ACKNOWLEDGE

EMT46
EHT1
EDT1
EFT1

;ERROR
072700
076346
076472
076562

COMPOSITE ERROR STATUS IS INCORRECT

EMT47
EHT1
EDT1
EFT1
;ERROR

PARITY ERROR WRITING REMOTE REGISTERS

EMT50
EHT]
EDT]
EFT1

076562

;ERROR
072716

"ILR"" ERROR DURING PACK ACKNOWLEDGE

EMTS1
EHTI
EDTT

INCORRECT JAE STATUS DURING SEEK COMMAND

CZRMOAO RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

002306

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

SEQ 0033

076562

EFT1
:ERROR

072730

OP1 ERROR DURING SEEK = MEDIUM IS NOT ON LINE

EMTS2
EHTI
EDT1
EFT1

076562
sERROR

072746
076346
078472
076562

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

EMT53
EHT1

EDT1
EFT1

sERROR
072764

SEEK INCOMPLETE ERROR DURING SEEK COMMAND

EMTS54
EHT1
EDT1
EFT1

076346
076472
076562
;ERROR
072774
076346
076472
076562

DEVICE CHECK DURING SEEK COMMAND

EMT55
EHTI

EDT
EFT1

;ERROR

PIP IS STILL SET AFTER SEEK = SKI

IS RESET

EMT56
EHT1
EDTI
EFT1

sERROR

ATA DID NOT SET DURING SEEK COMMAND

EMTS57

EHT1
EDT1
EFT1

076562
;ERROR

073034
076346

EMT60
EHT]

IVC ERROR DURING SEEK COMMAND - LOST

VOLUME VALID

CZRMOAOD RMOS5/3/2 FCTNL TST 3
ERROR POINTER TABLE

002374
002376

MACRO v03.01

SEQ 0034

076472
076562

148
149

EDT1
EFT1
;ERROR

}g?

002400
002402
002404
002406

073052
076346
076472
076562

152

153

:
002410
002412
002414
002416

073072
076346
076472
076562

156
}gg

000000
000000
000000
000000

159
‘%2(1)

073110
076346
076472
076562

162

}2
002442
002444
002446

073130

073150
076346
076472
076562

168

;%
073162

UNUSED

DRIVE DID NOT DETECT *IVC'" ERROR DURING SEEK

DRIVE EXECUTED A SEEK WITH ERROR SET

UNEXPECTED ERROR SET IN RMER1

EMT66
EHT1
EDT1
EFT

;ERROR
002460

REPORTED DURING SEEK COMMAND

EHT
EDT1
EFT1
;ERROR

002450
002452
002454
002456

MOL IS ZERO, BUT OPI WAS NOT

EMT65

076346
076472
076562

165
]'29

EMT64
EHT]
EDT1
EFT1

;ERROR

002

VOLUME VALID IS STIL SET

0
0
0
0
;ERROR

002430
002432
002434
002436

ERRONEOUS IVC ERROR DURING SEEK COMMAND -

EMT62
EHT]
EDT1
EFT1
;ERROR

002420
002422
002424
002426

EMT61
EHT]
EDTI
EFTT
;ERROR

}gg

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

67
EMT67

UNEXPECTED ERROR SET IN RMERZ2

CZRMOAQ RMO5/3/2 FCTNL TST 3

ERROR POINTER TABLE

Jd 3
MACRO v0.01 11-APR-80 13:39:53 PAGE 7-8

SEQ 0035

076562
:ERROR

ERRONEOUS ''IAE’'' ERROR DURING RECALIBRATE

;ERROR

"ILF'' ERROR DURING RECALIBRATE

073174
076346
076472
076562

073204

076346
076472

076562

EFT1
;ERROR

073214

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

EMT72
EHT1
EDTI
EFT1
;ERROR

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

EMT73
EHT]
EDT1
EFT1
"IVC'" ERROR DURING RECALIBRATE = ‘W' = 0

;ERROR

EMT74
EHT]
EDT1
EFT1
;ERROR

ERRONEOUS “‘IVC'' ERROR DURING RECALIBRATE = ''WW'' =

EMT75
EHT1
EDT1
EFT1
;ERROR

073300

EMT76

"SKI'* ERROR DURING RECALIBRATE

CZRMOAQ RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

K3
MACRO v03.01 11-APR-80 13:39:53 PAGE 7-9
EHT1
EDT1
EFT1

;ERROR

"DVC’’ OCCURRED DURING RECAL IBRATE

EMT77
EHT]
EDT1
EFT1

;ERROR

100

LOST "MOL'‘ DURING RECALIBRATE = 'OPI'' = 0

EMT100
EHT]
EDT1
EFT1
sERROR

101

LOST "VV'* DURING RECALIBRATE = “‘IvC'' = 0

EMT101
EHT]
EDT1
EFT1
;ERROR

073356
076346
076472
076562

102

"ATA'' DID NOT SET DURING RECALIBRATE

EMT102
ENTI
EDT1
EFT1

;ERROR

103

"OM'* DID NOT RESET DURING RECALIBRATE

EMT103
EHT1
EDT1
EFT1
sERROR

104

"PIP'" IS STIL SET AFTER RECALIBRATE

EMT104
EHT1
EDT1
EFT1
;ERROR

105

EMT105
EHT]

UNEXPECTED ''ILR'* ERROR DURING RECAL IBRATE

SEQ 0036

ERROR POINTER TABLE

002644
002646

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

076472
076562
UNEXPECTED 'RMR'' ERROR DURING RECALIBRATE

;ERROR

EMT106
EHT1
EDT1
EFT1
:ERROR

"UNS'' ERROR DURING RECALIBRATE = AC POWER IS LOW

;ERROR

CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS

;ERROR

NONEXISTENT DEVICE

sERROR

DEVICE NOT AVAILABLE

073470

076374

076512
076602

073476
076374
076512
076602

;ERROR

113

BUS TIMEOUT-NED STATUS FAILURE

073504

:ERROR

073520
076400
076514

DEVICE NOT AN w#405/3/2

SEQ 0037

CZRMOAQ RMOS5/3/2 FCTNL TST 3

CZRMOAO RMO5/3/2 FCTNL TST 3

ERROR POINTER TABLE

002736

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

SEQ 0038

076604

EFT114
;ERROR

115

RMCS1 NOT INITIALIZED BY UNIBUS

EMT1i5
EHT
EDT1
EFT1
;ERROR

116

RMBA NOT INITIALIZED BY UNIBUS

EMT116
EHT]
EDT1
EFT1

;ERROR
073546

RMCS2 NOT INITIALIZED BY UNIBUS

EMT117
EHT]
EDT1
EFT1

076346
076472
076562
:ERROR

120

RMER1 NOT INITIALIZED BY UNIBUS

EMT120
EHT1
EDT1
EFT1
;ERROR

121

RMAS NOT INITIALIZED BY UNIBUS

EMT121
EHT1
EDT1
EFT
RMMR1 NOT INITIALIZED BY UNIBUS

;ERROR

RMDS NOT INITIALIZED BY UNIBUS

ERROR POINTER TABLE

256

%gg

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

;ERROR
003030
003032
003034
003036

073616
076346
076472
076562

259

222(1)

073626
076346
076472
076562

262

%‘é
073636
076346
076472
076562

265
Zzgg

073650
076346
076472
076562

268

5673
073662
076346
076472
076562

271

%;%
073674
076346
076472
076562

2;2
073
076346
07647
076

127

RMBA NOT CLEARED BY CONTROLLER CLEAR

130

RMCS2 NOT CLEARED BY CONTROLLER CLEAR

131

RMER1 NOT CLEARED BY CONTROLLER CLEAR

EMT131
EHT
EDT1
EFT1

;ERROR
003110
003112
003114
003116

RMCS1 NOT CLEARED BY CONTROLLER CLEAR

EMT130
EHT1
ELT]
EFT1

;ERROR
003100
003102
003104
003106

126

EMT127
EHT1
EDT1
EFT

;ERROR
003070
003072
003074
003076

RMMR2 NOT INITIALIZED BY UNIBUS

EMT126
EHT1
EDT1
EFT1
;ERROR

003060
003062
003064
003066

125
EMT125
EHT1
EDT1
EFT1

;ERROR
003050
003052
003054
003056

RMEC2 NOT INITIALIZED BY UNIBUS

EMT124
EHT]
EDT1
EFT1

;ERROR
003040
003042
003044
003046

124

132
EMT132
EHT1
EDT1
EFT1

RMAS NOT CLEARED BY CONTROLLER CLEAR

SEQ 0039 |

Mmem

CZRMOAD RMOS5/3/2 FCTNL TST 3

CZRMOAQ RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

277
278
279

;ERROR

0031

003122
003124
003126
280
281
282

073720

003130
003132
003134

286
287
288

073744
076346
076472
076562

073756
076346
076472
076562

289

223?

073770
076346
076472
076562

292

293

294

074000
076346
076472
076562

295

296

297

074010
076346
076472
076562

RMMR2 NOT CLEARED BY CONTROLLER CLEAR

137

RMCS1 NOT CLEARED BY ERROR CLEAR

140

RMCS2 NOT CLEARED BY ERROR CLEAR

EMT140
EHT1
EDT1
EFT1

;ERROR
3
003202
003204
003206

136

EMT137
EHT1
EDT1
EFT1

;ERROR
003170
003172
003174
003176

RMEC2 NOT CLEARED BY CONTROLLER CLEAR

EMT136
EHT1
EDT1
EFT1

;ERROR
003160
003162
003164
003166

135
EMT135
EHT1
EDT1
EFT1

;ERROR
003150
003152
003154
003156

RMDS NOT CLEARED BY CONTROLLER CLEAR

EFT1

;ERROR
003140
003142
003144
003146

134
EMT134
EHT1
EDT1

076562

283

RMMR1 NOT CLEARED BY CONTROLLER CLEAR

EHT1
EDT1
EFT1

073732
076346
076472

284

133

EMT133

076346
076472
076562
;ERROR

003136

285

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

141
EMT141
EHT1
EDT1
EFT1

RMCS1 NOT CLEARED BY DRIVE CLEAR

SEQ 0040 |

CZRMOAQ RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

%gg
074020
076346
076472
076562

301

%8%
074030
076346
076472
076562

304

305

074040
076346
076472
076562

074050
076346
076472
076562

310
%11 12
074060
076346
076472
076562

31*

.’i}é

074070
076346
076472
076562

316

g}g

319
320

RMAS NOT CLEARED BY DRIVE CLEAR

145

RMMRT

NOT CLEARED BY DRIVE CLEAR

146

’

RMMR2 NOT CLEARED BY DRIVE CLEAR

147

RMER2 NOT CLEARED BY DRIVE CLEAR

EMT147
EHT1
EDT1
EFT1

;ERROR
003270
003272
003274
003276

144

EMT146
EHT1
EDT1
EFT1

:ERROR
003260
003262
003264
003266

RMERT NOT CLEARED BY DRIVE CLEAR

EMT145
EHT1
EDT1
EFT1
sERROR

003250
003252
003254
003256

143

EMT144
EHTI
EDT1
EFT1
;ERROR

003240
003242
003244
003246

RMDS NOT CLEARED BY DRIVE CLEAR

EMT143
EHT1
EDTI
EFT1

JERROR
003230
003232
3234
003236

142
EMT142
EHT1
EDTT
EFT1

:ERROR
003220
003222
003224
003226

307
308
309

SEQ 0041

;ERROR
003210
003212
003214
003216

306

C &4
MACRO v03.01 11-APR-80 13:39:53 PAGE 7-14

074100
076346
076472
076562

150

RMEC2 NOT CLEARED BY DRIVE CLEAR

EMT150
EHT1
EDT1
EFT1

;ERROR

151

MEDIUM NOT ON LINE

CZRMOAOD RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

321

003300
003302
003304
003306

MACRO v03.01

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

074110

EMT151
EHT1
EDT1
EFT1
:ERROR

074122
076346
07647¢
076562

152

DRIVE FAULT

EMT152
EHT1
EDT1
EFTT
;ERROR

153

UNSAFE SHOULD BE SET BECAUSE DVC IS SET

EMT153
EHT
EDT
EFT1

076562
;ERROR

074152

154

UNSAFE SHOULD NOT BE SET, AC IS LOW

EMT154
EHT1
EDT}
EFT1

076562
;ERROR

074170
076346
076472
076562

155

VOLUME VALID NOT SET BY PACK ACK

EMT155
EHT]
EDT1

EFT1

;ERROR
074202
076346
076472
076562

156

OFFSET MODE NOT SET BY OFFSET COMMAND

EMT156
EHT1
EDT1
EFTT
;ERROR

074214
076346
076472
076562

157

OFFSET MODE NOT RESET BY RTC COMMAND

EMT157
EHT1
EDT1
EFT1
;ERROR

160

RMOF NOT RESET BY RIP COMMAND

SEQ 0042

CZRMOAOQ RMO5/3/2 FCTNL TST 3
ERROR POINTER TABLE

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

074226
0

EMT160
EHT1
EDT1
EFT1

076562

;ERROR
074236
076346
076472
076562

161

RMDA NOT RESET BY RIP COMMAND

EMT161
EHT1
EDT1
EFT1
;ERROR

074250
076346
076472
076562

162

RMDC NOT RESET BY RIP COMMAND

EMT162

EHT1
EDT1
EFT1

;ERROR 163
076142
076430
076526
076616

DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH
WRITE BUFFER

EMT336
EHT336
EDT336
EFT336
:ERROR

074272

164

OPI

SHOULD NOT BE SET

EMT164
EHT1
EDT1
EFT1

076562

;ERROR

074300
076346
076472
076562

165

IVC SHOULD NOT BE SET

EMT165
EHT1
EDT1
EFT1

:ERROR

074306

166

IAE SHOULD NOT BE SET

EMT166
EHT1
EDT1
EFT1

076346
076472
076562

;ERROR

167

NEM SHOULD NOT BE SET

SEQ 0043

CZRMOAQ RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

SEQ 0044

074314

EMT167
EHT]
EDT1
EFT1

076562

;ERROR 170

UNUSED

(ololele]

003460
62

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

;ERROR
074332
076346
076472
076562

"ATA'' NOT SET DURING RETURN TO CENTERLINE

EMT171
EHT]
EDTI
EFT1

;ERROR

074342
076346
076472
076562

172

"ATA'' NOT SET BY OFFSET COMMAND

EMT172
EHT1
EDT1
EFT1
;ERROR

074352
076346
076472
076562

173

RMER2 NOT INITIALIZED BY UNIBUS INIT

EMT173
EHT1
EDT1
EFT1
;ERROR

074362
076346
076472
076562

174

RMER2 NOT INITIALIZED BY CONTROLLER CLEAR

EMT174

EHT1
EDT1
EFT1
;ERROR

074374
076346

175

SELECTED DEVICE IS IN WRITE PROTECT

EMT175
EHT1
EDTI
EFT1

076472
076562

;ERROR
074402

171

176

EMT176

CANNOT SET DIAGNOSTIC MODE

CZRMOAOD RMO5/3/2 FCTNL TST 3

ERROR POINTER TABLE

003552
003554
003556
386
003560
003562
003564
003566

074410
076346
076472
076562

389
074422
076346
076472
076562

074434
076346
076472
076562

395

396

074446
076346
076472
076562

398

399

400

401
402
403

074460
076346
076472
076562

074472
076346
076472
076562

404

405
406

074510
076346

INCORRECT "WRL'' STATUS DURING DIAGNOSTIC MODE

202

INCORRECT "'SKI'" STATUS DURING DIAGNOSTIC MODE

203

INCORRECT "DVC'* STATUS DURING DIAGNOSTIC MODE

204

"VV'' WAS NOT RESET BY MAINTENANCE UNIT READY

EMT204
EHT1
EDT]
EFT1

;ERROR

003640
003642

201

EMT203
EHT1
EDT1
EFT1
JERROR

3630
003632
003634
003636

INCORRECT "PIP"' STATUS DURING DIAGNOSTIC MODE

EMT202
EHTT
EDT
EFT1

;ERROR
003620
003622
003624
003626

200

EMT201
EHT1
EDT1
EFT1

;ERROR
003610
003612
003614
003616

INCORRECT "MOL"" STATUS DURING DIAGNOSTIC MODE

EMT200
EHTT
EDT]
EFT1
;ERROR

003600
003602
003604
003606

177
EMT177
EHT
EDT1
EFTI

;ERROR

003570
003572
003574
003576

397

EHTT
EDTI
EFT1

;ERROR

%?)?

392
393
394

SEQ 0045

076346
076472
076562

387

388

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

205

EMT205
EHTI

SELECTED DEVICE HAS A PERSISTENT ''SKI'* ERROR

CZRMOAQ RMO5/3/2 FCTNL TST 3
ERROR POINTER TABLE
003644
003646

SEQ 0046

076472
076562

EDT1
EFT1

;ERROR
074520
076346
076472
076562

"LBC'* DID NOT SET DURING DIAGNOSTIC MODE

EFT1

074530
076346
076472

207

UNEXPECTED LOSS OF 'MOL'' - MEDIUM IS OFF LINE

EMT207
EHT1
EDT1
EFT1

076562

;ERROR
074542
076346
076472
076562

210

UNEXPECTED LOSS OF VOLUME VALID - ''W'' =0

EMT210
EHTI
EDT1
EFT1

;ERROR

074550
076346
076472
076562

UNEXPECTED MECHANICAL MOTION - 'PIP'' = 1

EMT211
EHT1

EDT1
EFT1
;ERROR

074564
076346
076472
076562

212

UNEXPECTED DEVICE FAULT - 'DVC'' = 1

EMTC12
EHT]
EDTT

EFT1

;ERROR

074600
076346
076472
076562

213

UNEXPECTED SEEK INCOMPLETE ERROR = ‘'SKI''
= 1

EMT213
EHT]

EDT1
EFT1
;ERROR

076360
076502

206
EMT206
EHTI]
EDT1

;ERROR

074610

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

214

EMT214
EHT?
EDT2

DRIVE EXECUTED A RECALIBRATE WITH ERROR SET

CZRMOAO RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

003736

MACRO v03.01

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

076572

428

EFT2
:ERROR

074630
076360
076502
076572

215

EMT215
EHT2
EDT2
EFT2
;ERROR

074642
076346
076472
076562

216

INCORRECT "IVC'" STATUS

EMT216
EHTI
EDT1
EFT1
sERROR

074652

217

INCORRECT "'IAE'" STATUS

EMT217
EHT1
EDT1
EFT1

076562

;ERROR 220
074662
076346
076472
076562

INCORRECT "WLE'' STATUS

EMT220
EHT1
EDT1
EFT1
;ERROR

074672
076340

221

INCORRECT "OPI'" STATUS

EMT221
EHT1
EDT1
EFT1

076562

;ERROR
074702

222

RM DID NOT DETECT RMR ERROR

EMT222
EHT1
EDT1
EFT1

076562

sERROR

074712

DRIVE DID NOT DETECT "'IVC'' ERROR DURING RECALIBRATE

223

EMT223
EHT223
EDT223
EFT223

RM DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS

SEQ 0047

CZRMOAO RMO5/3/2 FCTNL TST 3
ERROR POINTER TABLE
449

22(1)

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

SEQ 0048

;ERROR

004030
004032
004034
004036
452
453
454

004040
004042
004044
004046

2 gg

;ERROR

458

004
004062
004064
004066

461

463

004070
004072
004074
004076

464

466

004100

469

UNUSED

230

UNUSED

231

UNUSED

0
0
0

;ERROR
004110
004112
004114
004116

227

004102
004104
004106

467

UNUSED

0
0
0
0

;ERROR

468

226

0
0
0
0
;ERROR

465

UNUSED

0
0
0
0
;ERROR

462

225

0
0
0
0

004050
004052
004054
004056
459
460

UNUSED

0
0
0
0
;ERROR

455

224

232
0
0
0
0

UNUSED

479
480
481

004140
004142
004144
004146

004150
004152
004154
004156

004160
004162
004164
004166

e 004170 000000

488
489
490

(elelele)]

236

;ERROR

237

:ERROR

240

000000
000000
000000
000000

485
486

004172
004174
004176

;ERROR
000009
000000
000000
000000

4«83
484

;ERROR
000000
000000
000000
000000

482

000000
000000
000000
:ERROR

004200
004202
004206

000000
000000
000000
000000

UNUSED

j=lolele]

000000
000000
000000
000000

476
477
478

234

UNUSED

lelelele]

004134
004136

;ERROR

000000
000000
000000
000000

UNUSED

elele
e

004130
004132

233

UNUSED

elelele)]

473
474
475

004120
004122
004124
004126

;ERROR

UNUSED

elelela]

470
47
472

ERROR POINTER TABLE

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

[elelele)

CZRMOAQ RMO5/3/2 FCTNL TST 3

UNUSED

SEQ 0049

ERROR POINTER TABLE

28%

SEQ 0050
JERROR

004210
004212
004214
004216

000000
000000
000000
000000

494
232

000000
000000
000000
000000

497

498

004232
004234
004236

000009

500

000000
000000
000000
000000

503

5;8%

074766
076346
076472
076562

506

ggg

004266

074776
076346
076472

g}g

UNUSED

246

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

247

"ATA'' NOT RESET BY WRITING RMAS

EFT1

;ERROR
004270
004272
004274
004276

245

EMT247
EHT1
EDT1

076562

509

UNUSED

EMT246
EHT1
EDT1
EFT1
;ERROR

004260
004262
004264

244

0
0
0
0
;ERROR

004250
004252
004254
004256

UNUSED

0
0
0

;ERROR
004240
004242
004244
004246

243

000000
000000
000000

285

UNUSED

0
0
0
0

;ERROR

499

242
0
0
0
0

;ERROR

004220
004222
004224
004226

512
513

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

075010
076346
076472
076562

250

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

EMT250
EHT1
EDT1
EFT1

;ERROR

251

PROGRAM INTERRUPT WAS NOT GENERATED

CZRMOAQ RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

514

004300
004302
004304
004306

075024
076360
076502
076572

515

g}g

00431

875032
076360
076502

075040
076345
076472
076562

521

gg%
075056
076346

EMT254
EHT1

004336

076562

EFT1

076472

g%g
075066
076346
076472
076562

527

g%g
075076
076416
076516
07

530

g?é

004364
004366

255

INCORRECT "'ATA'* STATUS

256

INCORRECT "‘ILR'' STATUS

EMT256
EHT256
EDT223
EFT223

;ERROR
004360
004362

INCORRECT "‘ILF'* STATUS

EMT25S
EHT1
EDT1
EFT1

;ERROR
004350
004352
004354
004356

OFFSET MODE WAS NOT RESET BY WRITING RMDC

EDT1

;ERROR
004340
004342
004344
004346

533

254

004330
004332

524

534

253
EMT253
EHT1
EDT1
EFT1

;ERROR

0043

PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED

EFT2

;ERROR
004320
004322
004324
004326

252
EMT252
EHTZ2
EDT2

076572

518

SEQ 0051 |

EMT251
EHT2
EDT2
EFT2

;ERROR
004310
004312
004312

519
520

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

075106
076346

257

INVALID IAE STATUS DURING SEARCH COMMAND

EMT257
EHT1

076472
076562

EDTI
EFT1

JERROR

260

"IVC'" WAS NOT DETECTED DURING SEARCH COMMAND

CZRMOAO RMO5/3/2 FCTNL TST 3

CZRMOAQ RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

004370
004372
004374
004376

075120
076346
076472
076562

536

gg
075132
076346
076472
076562

539

22(1)

075152
076346
076472
076562

004426

075162
076346
076472

;ERROR

004430
004432
004434
004436

075172
076346
076472
076562

548

§’§8

gg%
004452
004454
004456

"SKI'* ERROR DURING SEARCH COMMAND

264

"IVC'" ERROR DURING SEARCH = LOST VOLUME VALID

265

ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS VALID

EMT265
EHT1
EDT1
EFT1

;ERROR

0044

263

EDT1
EFT1

075212
076346
076472
076562

551

"LBC’'* ERROR NOT SET DURING DIAGNOSTIC MODE

EMT264
EHT1

;ERROR
004440
004442
004444

262

EMT263
EHT1
EDT1
EFT1

076562

545
?’29

DRIVE EXECUTED SEARCH WITH ERROR SET

EMT262
EHT1
EDT1
EFT1
:ERROR

004420
004422
004424

261
EMT261
EHT1
EDT1
EFT1

;ERROR
004410
004412
004414
004416

54
55

EMT260
EHT1
EDT1
EFT1

:ERROR
004400
004402
004404
004406

542
543
544

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

075232

266

DEVICE FAULT (DVC) DURING SEARCH

EMT266

076346
076472
076562

EHT1
EDT1
EFT1

;ERROR

267

SK1 SHOULD HAVE BEEN SET BECAUSE CYLINDER
ADDRESS IS TOO LARGE

SEQ 0052 |

CZRMOAO RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

004460
004462
004464
004466

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

SEQ 0053

075244
076346
076472
076562

558

ggg

EMT267
EHT
EDT1
EFT1

;ERROR
004470
004472
004474
004476

075262
076346
076472
076562

561

562

004500
004502
004504
004506

075276
076345
07647
07656

565

‘.;gc;
075314
076346
076472
076562

568

g%
004522
004524
004526

075332

004530
004532
004534
004536

075350
076346
076472
076562

575
576

004540
004542
004544
004546

075366
076346
076472
076562

LOST MOL DURING SEARCH, OPI IS NOT SET

273

PIP STIL SET AFTER SEARCH

274

PARITY ERROR OCCURRED WHILE WRITING REMOTE

REGISTERS BUT MXF DID NOT SET

EMT274
EHT]
EDT1
EFT1

;ERROR

g;g

272

EHT]
EDT1
EFT1
;ERROR

;5;2

DIDN'T DROP

EMT273

076346
076472
076562

571
572

OPI ERROR DURING SEARCH BECAUSE ON CYLINDER

EMT272
EHTI
EDT1
EFT1

:ERROR
004520

271
EMT271
EHT1
EDT1
EFT1

;ERROR
004510
004512
004514
004516

OPI ERROR DURING SEARCH BECAUSE MOL = 0

EMT270
EHT1
EDT1
EFT1

;:ERROR

5522

270

275
EMT275
EHT1
EDT1
EFT1

MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA

COMMAND STARTED

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

SEQ 0054
;ERROR

;ERROR

075414

004566

076562

075432

004576

076562

075452

004606

076562

075474
076346
076472
076562

075506
076346
076472
076562

075520
076346

300

"IVC'' ERROR DURING DATA TRANSFER BECAUSE VOLUME

WAS NOT VALID

301

ERRONEOUS “‘IVC'' ERROR DURING DATA TRANSFER - VOLUME
IS VALID

302

"ILR"' ERROR DURING DATA TRANSFER

EMT302

303

"ILF'' ERROR DURING DATA TRANSFER

EMT303
EHT1
EDT1
EFT1

;ERROR
004630
004632

CYLINDER DIDN'T DROP OR 2) SEARCH TIMED OUT OR
3) RUN TIMED OuT

EHT1
EDT1
EFT1

;ERROR
004620
004622
004624
004626

‘OPI'* ERROR DURING DATA TRANSFER BECAUSE 1) ON

EMT301
EHTI
EDT1
EFT1
:ERROR

004610
004612
004614
004616

277

EMT300
EHT]
EDT1
EFT1
:ERROR

004600

;ERéu ERROR DURING DATA TRANSFER BECAUSE ‘MOL'‘ WAS

EMT277
EHT1
EDT1
EFTT
;ERROR

004570

276

EMT276
EHT]
EDT1
EFT1

076562

004560

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

304

EMT304
EHT1

"RMR'" ERROR DURING DATA TRANSFER

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

004634
004636

076472
076562

605

606
607

004640
004642
004644
004646

075532
076346
076472
076562

608

075544
076346

211?3.
075554
076346
076472
076562

614
g]l 2

075574
076346
076472
076562

617
g]'g
075606
076346
076472
076562

620

621

075620
076346
076472
076562

075632
076346
076472

310

DEVICE FAULT DURING DATA TRANSFER

311

LOSS OF BIT CLOCK DURING DATA TRANSFER

312

LOSS OF SYSTEM CLOCK DURING DATA TRANSFER

EMT312
EHT1
EDT1
EFT1

JERROR
004720
004722
004724

DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER

EMT311
EHT1
EDT1
EFT1

;ERROR
004710
004712
004714
004716

307

EMT310
EHT1
EDT1
EFT1
;ERROR

004700
004702
004704
004706

"'SKI'' ERROR DURING DATA TRANSFER

EMT307
EHTI
EDT1
EFT1
;ERROR

004670
004672
004674
004676

306

EDT1
EFT1

;ERROR
004660
004662
004664
004666

INCORRECT "'IAE'" STATUS DURING DATA TRANSFER

EMT 306
EHT1

076472
076562

611

305
EMT305
EHT1
EDT1
EFT1

;ERROR
004650
004652
004654
004656

623
624
625

EDT
EFT1

;ERROR

g??)

622

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

313
EMT313
EHT]
EDT1

UNSAFE ERROR DURING DATA TRANSFER (DVC = 0)

SEQ 0055

CZRMOAQ RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

004726

SEQ 0056

076562

EFT1

;ERROR

004730
004732

004734
004736

075652
076346

076472
076562

075664
076346
076472
076562

004750
004754
004756

075676

076472
07656%.

;ERROR
075710

004766

076562

075720

004776

076562

075730
076346
076472
076562

075740
076346
076472
076562

ERRONEOUS WRITE LOCK ERROR

317

HEADER CRC ERROR DURING DATA TRANSFER

320

FORMAT ERROR DURING DATA TRANSFER

EMT320
EHT]
EDT1
EFT1
321

HEADER COMPARE ERROR DURING DATA TRANSFER

EMT321

EHT1
EDT1
EFTI

;ERROR
005010
005012
005014
005016

316

EMT317

;ERROR
005000
005002
005004
005006

WRITE LOCK ERROR

EHT1
EDT1
EFTT
;ERROR

004770

315

EMT316
EHT1
EDT1
EFT1

076346

004760

DRIVE TIMING ERROR DURING DATA TRANSFER

EMT315
EHT]
EDT1
EFT1
:ERROR

004752

314

EMT314
EHT1
EDT1
EFT1
;ERROR

004740
004742
004744
004746

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

322

EMT322
EHTI
EDT1
EFT1

HEADER ERRORS SHOULD NOT BE SET

CZRMOAO RMO5/3/2 FCTNL TST 3

ERROR POINTER TABLE

MACRO v03.01

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

;ERROR

075746
076346
076472
076562

DATA CHECK ERROR DURING DATA TRANSFER

EMT323
EHT]
EDTI
EFTT
;ERROR

075756
076346
076472
076562

324

CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER

EMT 324
EHTI
EDT1
EFT1
;ERROR

075770
076346
076472

325

UNCORRECTABLE DATA (CHECK ERROR DURING DATA TRANSFER

EMT 325

EHT1
EDT1
EFT1

076562

;ERROR

076002
076346
076472
076562

326

DATA PARITY ERROR DURING READ COMMMAND

EMT326

EHT1
EDT1
EFT1

;ERROR

076020
076346
076472
076562

327

OFFSET MODE NOT RESET BY WRITE COMMAND

EMT327
EHT1
EDT1
EFT1
;ERROR

076032
076346
076472
076562

330

DATA PARITY ERROR DURING WRITE COMMAND

EMT330
EHT1
EDT1
EFT1
:ERROR

076042
076346
076472
076562

323

331

EMT331

EHT
EDT1
EFT1

WRITE CLOCK FALURE DURING WRITE COMMAND

SEQ 0057

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

MACRO v03.01

SEQ 0058

;ERROR

670

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

332

DATA LATE ERROR DURING DATA TRANSFER

EMT332

EHTI
EDT1
EFT1

076562
;ERROR

076066
076346
076472
076562

333

PIP STIL SET AFTER DATA TRANSFER = SKI

= 0

EMT333
EHT1
EDT1
EFT1

sERROR
076104

334

LOST MOL DURING DATA TRANSFER - OPI = 0

EMT334

EHT1
EDT1
EFT1

076562
:ERROR
076122
076346
076472
076562

335

LOST VOLUME VALID DURING DATA TRANSFER - IVC

EMT335

;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

340

EMT340
EHT336
EDT336
EFT336

ERROR POINTER TABLE

690
6N

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

;ERROR
005200
005202
00

076174
076430
076526
076616

341

SEQ 0059

INCORRECT DATA DURING WRITE CHECK ERROR

EMT341
EHT336
EDT336
EFT336
;ERROR

076202

342

"IvC'" ERROR NOT DETECTED DURING DATA TRANSFER

EMT342

EHT1
EDT1
EFT1

076562
;ERROR

076214

343

"FER'' NOT DETECTED DURING DATA TRANSFER

EMT343

EHTI
EDT
EFT1

076562
;ERROR

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

EMT345

EHT1
EDT1
EFT1

;ERROR

076250

346

HEADER ERROR WAS DETECTED W/ HCI

SET

EMT346

EHT1
EDT1
EFT1

076562
;ERROR

076264

347

DATA TRANSFER NOT ABORTED W/ COMP ERROR SET

EMT347
EHT1

076346
076472
076562

EDT1
EFT1

;ERROR

350

LOST VOLUME VALID DURING SEARCH = *‘IvC'' = 0

. 2T

CZRMOAQ RMOS5/3/2 FCTNL TST 3

712

005270
005272
005274
005276

;}é

EMT350
EHTI
EDT]
EFT1

;ERROR
005300
005302
005304
005306

076314
076346
076472
(76562

716

;}g
076324
000000
000000
000000

719
;%(1)

076330
076466
076560
076646

722

;52

076340
076346
076472
076562

352

PROGRAM TIMEOUT WHILE TESTING RMLA

353

LOOK AHEAD TEST FAILS

EMT353
EHT353
EDT353
EFT353

;ERROR
005330
005332
005334
005336

"'ATA'' DID NOT SET DURING SEARCH

EMT352
0
0
0
;ERROR

005320
005322
005324
005326

351
EMT351
EHT1
EDT1
EFT1

:ERROR
005310
005312
005314
005316

725
726

SEQ 0060

076276
076346
076472
076562

713

354

BSE SHOULD NOT BE SET

EMT354
EHT1
EDT1
EFT1
;PUT ERROR TABLE HERE

= |

ERROR POINTER TABLE

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

CZRMOAO RMOS5/3/2 FCTNL TST 3

CZRMOAO RMOS/3/ EEFCTNL TST 3

LAY A B R e

=SOVONOVNSWN=OVO
NN WN =

ERROR TABLE USA

MACRO v03.01

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

.SBTTL

ERROR TABLE USAGE

: THE E:ROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR
:
:
:
H

EMT
EHT
EDT
EFT

- ERROR MESSAGE TABLE ADDRESS
= ERROR HEADER TABLE ADDRESS
= ERROR DATA TABLE ADDRESS
= ERROR FORMAT TABLE ADDRESS

:THE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS

;FOR THE PARTICULAR ERROR.

EACH ERROR MESSAGE TABLE LISTS THE ADDRESS

;OF ONE OR_MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND
;TYPED BY THE ERROR TYPE SUBROUTINE.
IF THE EMT ENTRY IS ZERO, THERE IS
sNO MESSAGE TO BE TYPED FOR THE ERROR.

;SIMILARLY, THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES
;OF HEADER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR.
EACH ENTRY
:IN THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF
:DATA, HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED 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
;MUST ALSO HAVE A FORMAT.

*IN SUMMARY,

:
:
:

EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE,
EACH TABLE IS A LIST OF ADDRESSES WHICH DEF INES THE LOCATIONS
OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT.

SEQ 0061

CZRMOAO RM(5/3/2 FCTNL TST 3

ERROR TABLE USAGE

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

SEQ 0062

:THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS

3 005340

011600

BADTMO: MOV

S 005344
6 005346

022626
104401

CMP
TYPE

& 005342

005740

005352 000417

00535

7 005412
8 005414
9 005416

;'525”

010046
104402
000240

}%
14 005420
15 005422

000240
005227

}g 005430

000005

16 005426

001375

000000

012706
005026

-(ROJ

648

MOV
TYPOC
NOP

RO,=(SP)

LASCIZ

(SP)+,(SP)+
658

START:

NOP
INC

)

001114

MOV
CLR

#$CMTAG,R6
(R6) +

012706

001100

005452
005460
005466
005474
005502
005510

012737
012737
012737
012737
012737
012737

065342
000340
065736
000320
067476
000340

000020
000022
000030
000032
000034
000036

005526
005532

012737 000340
013737 037514

000026
037506

MOV
MOV

CLR

S$ESCAPE

MOV

#..SLPADR
#..SLPERR

005540

005037

001206

005550

112737

000001

005544

005037 001210

005556
005564

012737
012737

005556
005564

005572

013746

000004

012737
012737
022777
001012

177570
177570
177777

005576

005604
005612
005620
005626

005630
88;2335

005640
005646

012737

000403
012716
000002
012737
012737

005632

CTMP
BNE

001131

001122
001124

#SWR,R6
=6

MOV
#STACK,SP
;:INITIALIZE A FEW VECTORS

MOV
MOV
MOV
MOV
MOV
MOV

000024

sTTY LOOP, WAIT FOR INCREMENT

*OF WORD

*RESET THE WORLD

MOV
CLR

MOVB

nov

2:FIRST LOCATION TO BE CLEARED
2 2CLEAR MEMORY LOCATION

: :DONE?
::LOOP BACK IF NO

JsSETUP THE STACK POINTER

#$SCOPE ,a#I0TVEC ; ;10T VECTOR FOR SCOPE ROUTINE
#340, ¥ IOTVEC+2 ;:LEVEL 7
#SERROR, a#EMTVEC :;EMT VECTOR FOR ERROR ROUTINE
#3640, IMEMTVEC+2 ;-LEVEL 7
#STRAP, a# TRAPVEC ..nw VECTOR FOR TRAP CALLS
#3460, a#TRAPVEC+2; LEVEL 7

A‘SP\RDN S#PWRVEC ::POWER FAILURE VECTOR

#3640, a#PWRVEC+2 ;:LEVEL 7
SENDCT,SEOPCT
::SETUP END-OF-PROGRAM COUNTER
$TIMES

#1,SERMAX

::INITIALIZE NUMBER OF ITERATIONS

:iCLEAR THE ESCAPE ON ERROR ADDRESS
::ALLOW ONE ERROR PER TEST

..mnuuze THE LOOP ADDRESS FOR SCOPE
*SETUP THE ERROR LOOP ADDRESS

::SIZE FOR
A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

s;EQUAL TO A *'=1"', SETUP FOR A SOFTHARE SWITCH REGISTER

000004

648 :
001154
001156

MOV

@¥ERRVEC ,~(SP)

MOV
MOV
CMP
BNE

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

658
#658, (SP)

:3SET UP FOR TRAP RETURN

#SWREG, SWR

;;POINT TO SOF TWARE SWR

MOV

001154
001156
173326

005640
000176
000174

INSTRUCTION HERE IF YOU WISH

INITIALIZE THE COMMON TAGS

005446

067604

;SETUP FOR TYPING OUT PC

;sCLEAR THE COMMON TAGS (SCMTAG) AREA

001154

012737

*GET OVER THE ASCIZ

;7O STOP ON UNEXPECTED TIMEOUT.

005440 022706
005444 001374

005516

*ADJUST PC =2

JRESTORE STACK POINTER
..rvps ASCIZ STRING

JPUT "HALT(0)'

START OF PROGRAM

RESET

;SAVE PC WHERE THE TIME OUT OCCURED

<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

.SBTTL

005432
005436

BNE

(SP) ,RO

658%:

'R?\Il

MOV

#64S, SNERRVEC

#DISPREG,DISPLAY

;;SAVE ERROR VECTOR

..SET UP ERROR VECTOR

:sSETUP FOR A HARDWARE SWICH REGISTER
::AND A HARDWARE DISPLAY REGISTER
..TRY TO REFERENCE HARDWARE SWR
BRANCH IF NO TIMEOUT TRAP OCCURRED
THE HARDWARE SWR IS NOT = -1
BRANCH IF NO TIMEOUT

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

012637

000004

005037

001230
000200

001243

001244

001154

005340
000300
000300
005730

000004
000006

66$:

MOV

(SP)+,@#ERRVEC

;;RESTORE ERROR VECTOR

$PASS
NAPTSIZE ,SENVM

;sCLEAR PASS COUNT
;.TEST USER SIZE UNDER APT

678

CLR
BITB
BEQ
MOV

s sYES ,USE NON-APT SWITCH

2sNO,USE APT SWITCH REGISTER

sSETUP "‘TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS
MOV
#BADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT
MOV
#PR6,ERRVEC+2
;LEVEL 6
MOV
#PR6,~(SP)
2:PUT NEW PS ON STACK
MOV
#688%,-(SP)
+sPUT NEW PC ON STACK

688

RTI

.SBTTL

TYPE PROGRAM NAME

INC

:sPOP NEW PC AND PS

001242

000001

001154

000176

; ;BRANCH IF NO
:ACT=112

BNE
CMPB
BEQ

..BRANCH IF YES
ARE WE RUNNING UNDER APT?
: ;BRANCH IF YES

BNE

718
SENV. M
718%
SWR,#SWREG
72%
228

::GET SOFT-SWR SETTINGS

;}:

MovB

#1,3AUTOB

:;SET AUTO-MODE INDICATOR

36;03:

BR
«ASCIZ

698
;;GET OVER THE ASCIZ
<CRLF>3CZRMOAO
- RM05/3/2 FUNCTIONAL TEST, PART 3a<CRLF>

BEQ
69%
..BRANCH IF YES
TYPE
,708
s TYPE ASCIZ STRING
GET VALUE FOR SOF TWARE SUITCH REGISTER
TST
a4l
ARE WE RUNNING UNDER XXDP/ACT?

cMP

g;ShR

001150

..FIRST TIME?

69%
#SENDAD ,a#42

.SBTTL

000042

#-1

BNE
CMP

000042

006014

000001

67%

#S$SWREG, SWR

;s TYPE THE NAME OF THE PROGRAM IF FIRST PASS

177777

037650

SEQ 0063

..SOFTHARE SWITCH REG SELECTED?
; sBRANCH IF NO

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

001330
000016
000040
000007
001330
000042

CLR

000041

CMP8
BNE
MOV

001330

18:

006144

001330

;CLEAR 'XXDP' LOAD DEVICE STWGE

:LOADED FROM AN RMO0S/3/2
?
:BRANCH IF NOT
sGET DEVICE INDICATOR Aw NUMBER

gfig

g;. XXDP

ISSIT A VALID NUMBER

CLRB

XXDP

:NO, DEFAULT TO DRIVE 0

BEQ

TYPE

73;1.3

XXDP

#16,a441
38
a#40, XXDP

LASCIZ

CLR
MOVB

TYPOS
.BYTE

FY7%
2$

748

738

:CHAIN MODE OR ACT11 AUTO ACCEPT ?

*BR IF NEITHER

..me ASCIZ STRING

GET ovsn THE ASCIZ

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

:CLEAR WORD ON STACK
*GET DRIVE ADDRESS

*TYPE THE ADDRESS

:ONLY 1 CHARACTER

—

132737

005654

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

CZRMOAO RMO5/3/2 FCTNL 1ST 3

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

SEQ 0064

GET VALUE FOR SOF TWARE SWITCH REGISTER

000
104401
000517

001217
177777

75s:
001330

006264

778:

006354

& -3;

§§79$:

132737

001075

S8
W=wun
38
- NN

HNONO

005001
013700

g g NERRERE

:GET NUMBER OF DRIVES

INC

#-1

:zéRST TIME THRU HERE ?

JASCIZ

001150

001300

$CRLF

76%

BYTE

778

TYPE

LASCIZ

,.TYPE ASCIZ STRING

:GET OVER THE ASCIZ

<CRLF>/TO TEST DRIVE /

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

LASCIZ

gngESS LEADING ZEROS

78%

;CLEAR WORD ON STACK
:GET DRIVE ADDRESS

:TYPE DRIVE ADDRESS

SONLY 1 CHARACTER

:SUPRESS LEADING ZEROS

..TYPE ASCIZ STRING

:GET OVER THE ASCIZ

/. 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
TSTB
$AUT08
sRUNNING IN AUTO MODE ?
BEQ
STANDAL ONE
:BR_IF NO
MOV
#377.,$DEVM
sSET DEVICE MAP FOR ALL DRIVES
ig?gGRA" IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED

N S

TYPE

;2 78%:

ROS28BRLRARE:
RERLZIIIINNANIIS

TYPE

12768

000377

BNE

006224

105737
001515
012737

BYTE

TYPE

000200

001243

BITB

BNE
CLR

001276
071616

001300

071416
001330

006652

1$:

000040
000010
000012
071436
010000

000010
006652
000010

071453
004000
071472
010000

006652
000012

sSTART FROM DRIVE 0
;LOAD THE BASE ADDRESS

$BASE ,RO

BITB
BEQ

ATNTBL(R1) SDEVM_
NDIS DEVICE PRESENT IN MAP ?
6$
#LODEV,S5$
:GET ADDRESS OF LOAD DEVICE ME SSAGE
XXDP
LOADED FROM RM05/3/2
?

2$:

;SIZING ALLOWED ?

MOV
MOV

001330

#BIT7,SENVM

BEQ
CMPB
BEQ
MOV
MOV
ST

2s
3s
#CLR,RMCS2
(RO)
R1,RMCS2 (RO)
XXDP,R1

RMDS (RO)

MOV
BIT
BNE
MOV

#NOTPRS, 5%
#NED,RMCS2 (RO)
3s
#NOTAVL ,5$

MOV

#OFFLIN,SS

BIT
BEQ

#DVA,RMCS1 (RO)
3$
#MOL
, RMDS (RO)
3s

IS THIS THE DRIVE ?

:YES, TRY NEXT DRIVE

:CLEAR MASS BUS
;LOAD THE DRIVE ADDRESS

sTRY TO ACCESS AN RM DRIVE REGISTER

;GET ADDRESS OF NDT PRESENT MESSAGE
ég ?Rlxs PRESENT ?
:GET ADDRESS OF AVAILABLE ME SSAGE
ég ?Rlxs AVAILABLE ?

;GET ADDRESS OF OFF LINE ME SSAGE

;1S MEDIUM ON LINE
?
;BR IF NO

CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 9-3
GET VALUE FOR SOF TWARE SWITCH REGISTER

071616
001217
71410

146137

001300

3%:

48:

BI(CB
TYPE

TYPE

006654
006656
—b

~
o

000007
—2

G
SEIRIRER

_‘—l-l—.-‘-l—l—l—o‘—l-.—‘—l_l—.—l

VHWN=O

5%:

001217

6$%:

"MSGDRV

.BYTE
.BYTE

2
O

WORD

TYPE

INC

CMP

TYPE

R1.,47
1%

+SCRLF

sCLEAR DEVICE FROM BIT MAP
TYPE 'DRIVE'

:;SAVE R1 FOR TYPEOUT
::60 TYPE=--OCTAL ASCII
::TYPE 2 DIGIT(S)
s : SUPPRESS LEADING ZEROS
s TYPE _ERROR MESSAGE
;ADDRESS OF MESSAGE GOES HERE
s INCREMENT THE DRIVE ADDRESS
:ALL DRIVES ARE CHECKED
?
:BRANCH IF NOT

;CR=LF
;THESE TWO LOOPS ARE ADDED TO

CLR
DEC
BNE
DEC

R4
R4
=2
R4

;WAIT FOR TTY TO FINISH TYPING.

JMP

CMNSTART

;JUMP TO COMMON START

BNE
007612

SCRLF

R 1.=-(SP)

BLE
’$:

ATNTBL(R1) SDEVH

MOV

TYPOS

SEQ 0065

_——————
e

CZRMOAOD RM0S5/3/2 FCTNL TS TST 3

STANDALONE INPUT ROUTINES

MACRO v03.01 11-APR-80 13:39:53 PAGE8 18

.SBTTL

004737

066146

STANDAL
ONE :
JSR

6 006712

005227

177777

INC

goocme 001426

BEQ

13 e
11 006720

14 006732
15 006736

16 006744

17 006746

104401

104401
123727

001004

070755

TYPE

RDCHR
MOV

001176
001176
001176

104401

001217

123727
001427
104401

001176

000131

gz 006772

000752

000116

27 006774
30 00

32 007020
33 007022
3% 007030
35 007032

36 007036

g 007040

41 007044
42 007050

104401

123727

001407
123727
001405
104401

000756
104401

3s:

070345

001176

000131

001176

000116

106314

104401
104401

001217
070722

001176

000131

123727
001525
104401

001176

000116

104401

001407

000756

001176

071352

55 007114

56 007120
007124

*GET RESPONSE
“ECHO RESPONSE

(SP)+,$TMP1

:YES RESPONSE ?

*NO!!

:CR=LF

:KEEP PREVIOUS PARAMETERS

(MPB
BEO
TYPE

S$TMP1.#'N
58
,CNSLO8

;NO RESPONSE ?
*YES, GET NEW PARAMETERS
:NO, TYPE ' ILLEGAL INPUT °

*TRY AGAIN

TYPE

,MSHELP

;WANT HELP ?

(SP)+,$TMP1

:GET RESPONSE
“SAVE AND ECHO RESPONSE

STMPY. #'Y

;WAS IT A YES RESPONSE ?

S$TMP1

4$
STMP1.#'N
13
CNSLO8

*YES
*WAS IT A NO RESPONSE ?
SYES
*NO, TYPE ' ILLEGAL INPUT'

LHELP

*YES = TYPE HELP TEXT

*TRY AGAIN

-SEE IF USER WANTS TO CHANGE ADDRESSES

123727

51 007112

;MAINTAIN PREVIOUS PARAMETERS ?

CMNSTART

BEQ
(MPB
BEQ
TYPE

§s:

007066

48 007076
49 007104
50 007106

,CNSLOO

JMP

TYPE

48:

001176

007074

SYES !!

,SCRLF

071352

104411
012637

335

TYPE

RDCHR
MOV

43 007054
44 007056
45 007062

;FIRST TIME THRU HERE ?

sTMP1
S$TMPI1. #'Y

40 007044

#-1

-SEE IF OPERATOR WANTS HELP TEXT

28 007000 104411
29 007002 012637

31 007012

28:

071352

26 006774

;INITIALIZE CONSOLE

TYPE
(MPB

BNE

}g 006752 000137 007612
20 006756
21 006764
22 006766

PC,STKINT

ii“ IF THE USER WANTS TO KEEP SAME DEVICES FOR TESTING

12 006724 104411
13 006726 012637

TYPE
TYPE

RDCHR
MOV
TYPE

(MPB

104401

104402

071010

001276

(SP)+,$TMP1

LSTTMP]

$TMP1.#'Y

BEQ

§$+4

CMPB
BEQ
TYPE

éguwcus

013746

,SCRLF
.UBUSQST

STMP1.#'N
128
CNSLO8

TO CHANGE

TYPE

MOV

TYPOC

:CR=LF
*WANT TO CHANGE ADDRESS ?

*GET RESPONSE
:SAVE AND ECHO RESPONSE

;WAS IT A YES RESPONSE ?

*YES

:WAS IT A NO RESPONSE ?
SYES
:NO, TYPE * ILLEGAL INPUT °

*TRY AGAIN

THE UNIBUS ADDRESS,

CNSLO1

$BASE , - (SP)

SEQ 0066

STANDALONE INPUT ROUTINES

3 006706
gooeroe

VECTOR ADDRESS AND

INTERRUPT PRIORITY

:TYPE CURRENT BUS ADDRESS

::SAVE SBASE FOR TYPEOUT

©:GO TYPE=-OCTAL ASCII(ALL DIGITS)

57 007126
58 0071

104401
oms

070336

62 007150
63 007152

101403
104401

071026

68 007172
69 007174
70 007200

005046
113716
104403

72 007203

000

TYPE
RDOCT

64 007156 000760
22 007160 013737 001176 001276 7$:
67 007166 104401 071070
8s:
001272

75 007212
76 007216
77 007220
78 007226
79 007230
80 007234

012637 001176
001412
022737 001000 001176
101003
104401 071110
000754

83 007244
84 007250
85 007252
86 007256
87 007260
88 007262
007264
90 007266
91 007270

92 007272
93 007273
9 007274

00
9 007302
97 007306
98 007310
99 007316
100 007320
101 007324
102 007326

103 007332
104 007336
105 007342
106 00
}8; 007352

070336

113737

001176

104401

071144

005046
113716
006216
006216
006216
006216
006216
104403

001
000

104401

104413
012637
001424
023727
002403
104401
000747
006337

006337
006337
006337
006337
113737

6$+4
$TMP1, $BASE
c~s|.os

CLR
MOVB

TYPE

001272

RDOCT

9%:
108:

001273

070336

001176

001176 000007
071156
001176
11$:
001176
001176
001176
001176
001176

109

001273

MOV
BEQ
cMP
BHI
TYPE
B8R

MOVB
TYPE

78
,CNSLO2

sTYPE "2 "
*GET NEW BUS ADDRESS

:CARRIAGE RETURN ?
SYES=SKIP TO NEXT ENTRY
BASE ADDRESS IN 1/0 PAGE ?
SYES
*TYPE WARNING MESSAGE

*TRY AGAIN
*STORE NEW BUS ADDRESS

<(SP)
SVECT1,(SP)

:GET CURRENT VECTOR ADDRESS

:TYPE 3 DIGITS

,QUES

STYPE
*

(SP)+,$TMP1
108
#1000, $TMP1
9s
CNSLO4
13

$TMP1,SVECT1

suppness LEADING ZEROS
SGET neu VECTOR ADDRESS

:CARRIAGE RETURN?
*YES-SKIP TO NEXT ENTRY
vscroa ADDRESS < 1000 ?
SYES!!
“TYPE WARNING MESSAGE
*RETRY

:STORE NEW VECTOR ADDRESS

c~5|.os

CLR
MOVB
ASR
ASR
ASR
ASR
ASR
TYPOS

Z(SP)
SVECT141,(SP)
(SP)
(SP)
(SP)
(SP)
(SP)

TYPE

,QUES

;GET CURRENT BR LEVEL

BYTE
.BYTE

1
0

;ONLY 1 DIGIT
*SUPPRESS LEADING ZEROS

RDOCT
MOV
BEQ
P
BLT
TYPE
BR
ASL

(SP)+,$TMP1
128
STMP1 47
11%
CNSLO6
ios
$TMP1

:GET NEW PRIORITY
:CARRIAGE RETURN ?
“YES-SKIP TO NEXT ENTRY
LEGAL PRIORITY ?
SYES
rvpe "WARNING MESSAGE
*TRY AGAIN
*STORE NEW PRIORITY

ASL
ASL
ASL
ASL
MOVB

SEQ 0067

$TMP1
$TMP1
$TMP1
$TMP1
S$TMP1,SVECT1+1

:DIALOGUE TO INPUT DEVICE NUMBERS

110 007360
111 007360

005227

177777

113 007366

104401

071207

112 007364 001002

128:

INC

#-1

;:FIRST TIME THRU ?

TYPE

,CNSLO7

STYPE INPUT INSTRUCTIONS

BNE

138

*BR IF NO

g} 007236

BR
MOV
TYPE

BLOS
TYPE

BYTE

104401

104413

(SP)+,$TMP1
.13
#160000, STMP1

BYTE

73 007204

74 007210

MOV
BEQ
CMP

TYPOS

003

,QUES

59 007134 01263 001176
60 007140 00141
61 007142 022737 160000 001176

71 007202

—o I

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

B —————

CZRMOAO RMOS5/3/2 FCTNL TST 3
STANDALONE INPUT ROUTINES

CZRMOAQO RMOS5/3/2 FCTNL TST 3

STANDALONE INPUT ROUTINES

114 007372

115 007376

104401

om;w

138:

14$:

TYPE

$CRLF

:CR=LF

$DEVM

*CLEAR DEVICE MAP

000101

MOV
CMP
BNE

(SP)+,$TMP1
STMP1.4'A
158

:GET RESPONSE
*IS INPUT 'A" 2
*NO
g

122 007430 012737 000377 001300
}gz 007436 000137 006462

MOV
JMP

#377 ,$DEVM
XS12Z

*SET DEVICE MAP FOR ALL DRIVES
*AUTO SIZE.

CMP
BEQ

$TMP1 ,#CR
17

; CARRIAGE RETURN ?
“YES

17%

SYES

18%

*NO

104401
104411

001300

SEQ 0068

CLR

116 007402
117 007406

005037

D 6
MACRO v03.01 11-APR-80 13:39:53 PAGE 10-2

071374

118 007410 012637 001176
119 007414 023727 001176
120 007422 001007
121 007424

104401

070331

125 007442
126 007450

023727
001436

001176

000015

001176
001176

000060

130 007466 023727 001176

000067

127 007452 104401
128 007456 023727
129 007464

002430

131 007474

003427

134 007500

104411

TYPE

158:

000015

137 007514
138 007516
139 007522

001432
104401
104401

141 007534

002404

144 007546

104401

071352

17$:

013701
042701
156137

001176
177770
071616

188:

140 007526

142 007536
143 007544

023727

023727
003403

}22 007552 000711
147 007554
148 007560
149 007564

150 007572
151 007600

152 007602

122 007606

070342
001176

001176

000060

001176

000067

122737
101337

000377

000137

006462

104401

001217

CMP

smn 27

178

RDCHR

198:

'DRIVE(S):

*YES, TYPE

"ALL''

AND GO

*ECHO RESPONSE
*NUMBER < 0 ?

“NUMBER > 7 ?
*ILLEGAL INPUT

(SP)+,$TMP1
$TMP1.#CR

$TMP1,#°0

*NUMBER < 0 ?

P
BLE

STMP1,4'7
188

*NUMBER > 7 ?
*NO

B8R

148

MoV
BIC
BISB

$TMP1,R1
:R1 = DRIVE NUMBER
#4C7.R1
ATNTBL(R1),$DEVM
:SET DEVICE IN MAP

BLT

001300

*TYPE

MOV
cTMP

BEQ
TYPE
TYPE

001300

LALL

$TMP1
$TMP1.4'0

BLE

16$:

,MSDRVS

TYPE
CMP

BLT

g% 007476 000423

135 007502 012637 001176
136 007506 023727 001176

TYPE
RDCHR

TYPE

CMPB
BHI
TYPE

JMP

198
,COMMA
.$TMPI

,CNSLO8

:GET RESPONSE
:CARRIAGE RETURN ?

SYES
STYPE *, °
*ECHO RESPONSE

*YES

*TYPE '* 2ILLEGAL INPUT''

*RETRY

0377 $DEVM
16$

:DONE ?
‘NO

XSI1Z

*GO SIZE DEVICES

,SCRLF

*CR-LF

CZRMOAD RMOS5/3/2 FCTNL
T ST 3

STANDALONE INPUT ROUTINE S

MACRO v03.01 11-APR-80 13:39:53 PAGE£ ‘I?
ASSE"BLE TEST QUE FROM DEVICE MAP
CMNSTART:
KJV
$DEVM,RO
RO

001300
001466

000001
2$:

s cnld

3 VOO NV
NN —

il ouid

1%:

3%:

DEVICE MAP
ADDRESS OF FIRST ENTRY IN QUE
INITIALIZE ENTRY POINTER
:R2 = DEVICE POINTER

BIT

R2.R0O

'{3
THIS DEVICE IN MAP ?

MOV
MOVB
ADD

R3,(R1)
:YES = ENTER DEVICE NUMBER IN QUE
ATNTBL (R3) ,1 (RU ENTER ATTENTION BIT IN QUE
#2.R1
sADVANCE ENTRY POINTER

MOV
CLR
BEQ

007706
éz-gss:

000042

001242

000001

001154

000176

CLR

(R1)

EMT
TYPE

.ASCIZ

HALT

:ADVANCE DEVICE POINTER
Dggf ALL DEVICES
?

:ADVANCE DEVICE NUMBER
sENTER NEXT DEVICE

:TERMINATE TEST QUE

PC,SIZCLK

:SEE IF CLOCK PRESENT
;YES = CLOCK IS PRESENT

,65%

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

64%

<CRLF>/PROG HLT/

.SBTTL

GET VALUE FOR SOF TWARE SHITCH REGISTER
TST
awél
sARE WE RUNNING UNDER XXDP/ACT?

BNE
CMPB
BEQ

CMP
BNE
66%:
67%:

2%:

66%
SENV,
#1

66%

SWR,#SWREG
67%

BR
MOVB

67%
#1,8AUTOB

NOP
TSTB

$DEVM

BNE

1%:

;PROGRAM HALT !!

READY:

012746

:R3 = DEVICE NUMBER

GTSWR

001150

R2
R2
3%
R3

JSR

4%:

#1.R2
R3

ASL
TSTB
BEQ
INC

:SIZE FOR CLOCK

044720

00100
104407
00040
112737

OTSTOUE*Z.R‘I
R1,TSTQUE

MOV
MOV

001 46110

071616
000002

SEQ 0069

..BRANCH IF YES
ARE WE RUNNING UNDER APT?

: :BRANCH IF YES

..SOFTUARE SWITCH REG SELECTED?
sBRANCH IF NO

::GET SOFT-SWR SETTINGS
;s SET AUTO-MODE INDICATOR

;READY TO START TEST
sANY DRIVES IN MAP ?
:BR IF YES
sANY MONITOR PRESENT ?
;BR IF YES
;JUMP TO START

TST

JMP

$EOP

sRETURN CONTROL TO MONITOR

$TSTNM

sRESET TEST NUMBER
sINITIALIZE NUMBER OF [TERATIONS
sCLEAR CONTROL-C FLAG
sINITIALIZE TTY
:sPUT NEW PS ON STACK
;;PUT NEW PC ON STACK

BNE
JMP
CLRB

CLR
CLR
JSR

MOV
MOV

1%
START

$TIMES
CTLFG
PC,STKINT

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

CZRMOAD RMOS5/3/2 FCTNL
MACRO v03.01 11-APR-80 13:39:53 PAGE 11-1
GET VALUE FOR SOF TWARE SWITCH REGISTER
010042

000002
171414
001510

45
46

47 010056

012737

48 010064
49 010070
50 010076
51 010104
52 010110

013700
012760
117760
016002
042702

56 010120

001003

53 010114

55 010122
g? 010130

::POP NEW PC AND PS

022702

012737

001234

@TSTQUE,SUNIT
MEDENS

;LOAD UNIT NUMBER
sCLEAR MEDIA ENABLE

s CLEAR _MASSBUS CONTROLLER SELECT DRIVE AND DETERMINE THE LAST TRACK
:OF THE géFFERENT DRIVE TYPES
#TA4 ,LSTRK
ASSUHE LAST TRACK FOR RM0Z2/3
=

$BASE ,RO

‘RO = umeus ADDRESS

#7.R2

;IS IT AN RMOS
?

#CLR,RMCS2(RO) :CLEARMASSBUS
aTSTQUE ,RMCS2 (ROS
SELECT DEVICE UNDER TEST
RMDT (ROJ,R2
:GET RMDT AND
#177770,R2
*SAVE omve TYPE BITS
3%

:NO, MUST BE AN RMO2 OR RMO3

#TA16!TA2,LSTRK ;YES-~SET LAST TRACK
= 18,

SEQ 0070

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

SEQ 0071

-2

4 RMOAQ RMOS/3/2 FCTNL TST 3
MACRO v03.01
GET VALUE FOR SOF TWARE SWITCH REGISTER
A

AR AR

AR AR AR

J*TEST 1
e

Rt ittt
I2222;

CONTROLLER ACCESS TEST

TST1:

A A

A A A

SCOPE
#STACK,SP

(elelelelolelelelelele B elelelele]

D
) i ad

$BASE ,RO

i
i
s
i
b
i
i
b i

010314

888

TST2:

sMOVE CONTROL STATUS REGISTER
;MOVE DATA BUFFER

(SP)+,(SP)+
(SP)+ ERRVEC+2
(SP)+ ,ERRVEC

;ADJUST STACK
::POP STACK INTO ERRVEC+2
:;POP STACK INTO ERRVEC

s itt
23223222222
t
222222

s*TEST 2

104000

sMOVE BUS ADDRESS REGISTER

;GO TO END OF PASS HANDLER

010352

sMOVE HI BYTE TO RMCS1
;MOVE WORD COUNT REGISTER

;:POP STACK INTO ERRVEC+2
:;POP STACK INTO ERRVEC
sNO BUS TIMEOUT OCCURRED

5%:
7%:
MR

053604

s;SET TEST NUMBER IN APT MAIL BOX

:STAND ALONE MODE ?
:NO!!
;YES=GO GET $BASE

037460

004737
000404
000240

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

;gp)o.ennvec

005420

012737

2 sPUSH ERRVEC ON STACK
2 :PUSH ERRVEC+2 ON STACK

000042

31 010310
32 010314
33

R1
ERRVEC,=(SP)
ERRVEC+2,~-(SP)
#38, ERRVEC
#PR6, ERRVE+2
C

RMDB (RO) ,R2
(SP)+,ERRVEC+2

25 010270
26 010274
27 010276
28 010302
%3 010304

A A AR AR

:(R1) = DEVICE BEING TESTED

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

3%:

R R

TSTQUE ,R1
#1,8TESTN

R1,RMCS1+1(RO)
R1.RMWC (RO)
RMWC (RO) ,R2
R1,RMBA (RO)
RMBA (RO) ,R2

10254

A A AR AR AR AR R

ARt

DEVICE AVAILABLE TEST

s ittt
22222232228232222

SCOPE
#STACK,
SP

$BASE ,RO

001226

TSTQUE ,R1
#2,$TESTN
PC.CNTCLR

:SCOPE CALL
:START OF TEST

INITIALIZE STACK POINTER
;RO
= UNIBUS ADDRESS
(Rl) = DEVICE BEING TESTED

::SET TEST NUMBER IN APT MAIL BOX
;GO ISSUE CONTROLLER CLEAR

;GO TO 28 IF NO ERROR

sRETURN HERE IF ERROR

;ERROR NUMBER DEF INED BY SUBROUT INE

CZRMOAQ RMOS/3/2 FCTNL TST 3

DEVICE AVAILABLE TEST

000137

010474

013746

000004
000006
010460
000300

40 010370
21 010376

2
43 010404

022626
012637
012637
104113

000137

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

JMP

;G0 TO 7$ IF ERROR

MOV
MOV

ERRVEC,=(SP)
ERRVE(C+2,=(SP)

;:PUSH ERRVEC ON STACK
::PUSH ERRVEC+2 ON STACK

000004
000006

MOV
MOV

#58
, ERRVEC
PR6.ERRVEC
+2

000000
000010
000006
000004
010000

001176
001174

MOV
MOV

RMCS1(R0O),$TMP1 ;GET DVA STATUS
RMCS2(R0) .$TMPO :GET NED STATUS

004000

001176

BIT
BEQ
EMT
BR
BIT

ANED , $ TMPO
3s
11
7$
#DVA, $TMP1

(SP)+, (SP)+

MOV
MOV

001174

3$:

BNE
EMT
BR

5% :

000006
000004

037422

7%:

9%:

62
63

(SP)+,ERRVEC+2
(SP)+.ERRVEC

9
112
78

MOV
Efi¥

(SP) +.ERRVEC+2
{§§>+.snnv5c

JMP

$EOSP

::POP STACK INTO ERRVEC+2
;:POP STACK INTO ERRVEC

*NONEXISTENT DEVICE ?
*NO!!
:DEVICE AVAILABLE ?
SYES!!

:ADJUST STACK

::POP STACK INTO ERRVEC+2
::POP STACK INTO ERRVEC

::tttt.'tittfit'tttttt"i'ttitfitttttttttttfittfit.'tt'.Qt'ttttt't't'

S*TEST 3

DRIVE TYPE TEST

.':Q.Q..Q'.'t.t'fi'tfit*.t"t"i.'tfi.fi""".t"...'."t..t't't.'tt'

64
65 010526

010532
010534
010536
010540

66 010544
67 010544

000004
000240
012706
013700
013701
012737

TST3:

001100
001276
001464
000003

004737
000404
000240

053604

000137

010676

112737

000026
000200
010702
044230

104000

001226

MOV

001522
001523
001362

W#STACK,SP
$BASE ,RO
TSTQUE ,R1
#3,8TESTN

JSR
BR
NOP

PC,.CNTCLR
2%

JMP

MOVB
MOVB
MOV

#RMDT ,GE T INX
#200,GETINX+1
#58 ,RMDT]

BR
NOP

EMT

JSR

104000

022737
001435
022737
001431

SCOPE
NOP
MOV
MOV
MOV

PC.GET

EMT

020024

001362

024024

001362

3%:

;;SET TEST NUMBER IN APT MAIL BOX

;GO ISSUE CONTROLLER CLEAR
;GO _TO 28 IF NO ERROR
sRETURN HERE IF ERROR

;ERROR NUMBER DEF INED BY SUBROUTINE

;GO TO 4$ IF ERROR

sSETUP GET INDEX TABLE
;SETUP TERMINATOR BYTE
;SET RMDT INPUT BUFFER = 5%

;GO READ RMDT VIA GET SUBROUTINE

;GO TO 38 IF NO ERROR
sRETURN HERE IF ERROR

;ERROR DEFINED BY GET SUBROUTINE

CMP
BEQ

#SNGPRT ,RMDTI
5%

BEQ

cMP

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

#DULPRT ,RMDTI

;SINGLE PORT RMO3 ?
iveS I}

;DUAL PORT RMO3 ?

VeS8 !

SEQ 0072

1 6
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-2

CZRMOAD RMOS5/3/2 FCTNL TST 3

DRIVE TYPE TEST

76 010620
75 010626
76 010630
77 010636

78
79 010640
80 010646
81 010650

022737
001425

022737
001421

024025

022737

020027
024027

001362
001362

012737
012737

020024
024024

001176
001200

000137

037422

g% 010656

104114

g?;
cTMP

ggnspm:sno.mon
#DULPRT 'BITO,RMDTI

gzv;
CMP

asrssncpmeam:ano.mn sggst.s PORT RMOS ?
#DULPRT 'BIT1!BITO,RMDTI :DUAL PORT RMOS ?

MOV
MOV

#SNGPRT,$TMP1
#DULPRT
. $TMP2

;LOAD ACCEPTABLE VALUES

JMP

$EOSP

:GO TO SUBPASS HANDLER.

BEQ

EMT

sgvsche PORT RMO2 ?
DUAL PORT RMO2 ?
:YES

114

84 010660
85 010666
86 010674
87
88 010676
89 010702

001362
001362

020025

SEQ 0073

;.'l'ttttt.t'tttfittttt..'tt'tt'ttitttt*ti'ttttttttttttttttt'tttt.t'

S*TEST &

WRITE, READ ZEROS

:.'tt.iitttttttttttttttt't'ttt'.ttttttt'tttti.tttt*t"ttttt'tttttt

7814

SCOPE
NOP
MOV
MOV
MOV
MOV

888

:558

000004
000240

012737

001226

#STACK, SP
$BASE , RO
TSTQUE ,R1
#4, STESTN

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

:;ttt'tfitt.ttttt.tttt't'tttttttttttttt.ttl.fitttt.tttttt'.tttt'ttt

:LOOP #1

FORMAT ,WRITE ,READ

:
108
;PREPARE DEVICE FOR TEST

004737

JSR
LWORD

154130

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

208

JMP

3508

*VERIFY RECALIBRATION

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

*ERROR # DEFINED BY TSTPRP SUBROUT INE

:GO TO 3508 IF ERROR

ébgw PARAMETERS AND GENERATE DATA BUFFER
NNNNNN

NN
wuuduu

jolelelelele]

bt
el e e el

2
3 =D
d ed
3 ed ed

BR
NOP
EMT

011710

IBIKRIRER2

858

*VERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF 'SKI'* OR 'PIP'* IS SET

001444
001416
001414
001412
001442
001410

MoV
MOV
MOV
MOV
MOV
MOV

#0,RMDCO
#0 . RMDAO
#BUF ONE , RMBAO
#-258. ,RMJCO
#FMT16 . RMOF O
#WH'!GO.RMCS10

;CYLINDER = 0
:TRACK = 0, SECTOR = 0
*BUS ADDRESS
:2 + 256. WORDS (2'S COMP)
216 BIT FORMAT
‘WRITE HEADER AND DATA COMMAND

CZRMOAQ RMOS5/3/72 FCTNL TST 3

S00000

4 REXNSR
o

070230

012737

071730
000001
043344

TYPE
EMT

011710
0011 74
0011 76

RERNS~RoRS SRR

-t

_n_n—n-._n::_a-n-._l

-t b
b

ROK 28 3N

b
s

b
b

h D b e
b oD s b

D
D

b
D

d
i

D
s

b e
i e

[elelelelelelelelelololelelele)

e
e e
e
e
d
e
d
—d

— b d

8?”U“fl&4\
sSnooovn

— ed —d D D —d =D

b e

§§§3&28
8§

sRANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

;R2 = BYTE ENTRY POSITION

#RMCST, (R2)+

: TERMINATE TABLE

PC,PUT

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

408

3508

;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 GET REGISTER STATUS
JSR

NOP
EMT

JMP

50%:

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

508

;GO TO 508 IF NO ERROR

3508

;GO TO 3508 IF ERROR

sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;VERIFY RESULTS OF WRITE COMMAND

057742

JSR

#200, (R2)

JMP

40%:

011710

NOP
EMT
JSR

011710

MOVB
JSR

e Y

h e
b
e

sSTARTING ADDRESS OF PATTERN

#PUTINX ,R2

#RMDC, (R2)+
#RMDA. (R2)+
#RMBA. (R2)+
#RMWC. (R2)+
ARMOF . (R2)+

NOP
EMT

044230

b d e

i
b
b

b oib caih

b
b

[elelelelele]
0000000

purd

SIEN

:TYPE BAD SE CTOR MESSAGE
sERROR # DEF INED BY BADSCT SUBROUTINE
;GO TO 3508 IF ERROR

PC ., GENBUF

MOVB
MOVB
MOVB
MOVB
MOVB

B8R

045042

#ZEROS
, $TMPO
#1,8TMP

JSR

30%:

044144

000410

MOV
MOV

CTOR MODULE

F NO ERROR

,SCTMSG

3508

MOVB

011710

011210

25$

JMP

MOV

044500

— —d
— —d )
—

25%:

PC,BADSCT

;SETUP PARAMETERS AND EXCUTE COMMAND

001551
000034
000006
000004
000002
000032
000000
000200

012737

SEQ 0074

;VERIFY IgsT SECTOR IS NOT BAD

041416

104401
104000
000137

Saaadoaaa

[elelelelelolelsles)

004737
000405

d e

LRV VNV W=
flJN”UhJ“"UGg-‘_hJ—J_hJ-J—Ld

110

—_,e a2

WRITE, READ ZEROS

MACRO v03.01 11-APR-80 13:39:53 PAGEJ 13-3

JMP

60%:
001124

PC,DTASTS

60$

;GO VERIFY RESULTS OF DATA TRANSFER
;G0 TO 608 IF NO ERROR

sRETURN HERE IF ERROR

;ERROR # DEF INED BY DTASTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

PC,a(SP)+

3508

;MOVE LOOP ADDRESSES TO NEXT OPERATION

MOV
BR

ARt

:LooP #2

#708, SLPERR
808
i

WRITE ,READ

sSKIP TO WRITE OPERATION
i

2313232222222 232222)

C ZRMOAO RMOS5/3/72 FCTNL TST 3
T4
WRITE, READ ZEROS

147
148 011210
149
150
151 ©11210
011214

011216
011220
011222
011224

152 011230

004737
154130

000240
104000

000137

040472

011710

154130

BR
NOP
EMT
JMP

80%

3508

#BUF ONE +4 ,RMBAO

: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 “'SKITM* OR ‘PIP'* IS SET
:VERIFY RECALIBRATION
:G0_TO 808 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUT INE
:G0 TO 3508 IF ERROR

;MOVE MEMORY ADDRESS
s CHANGE WORD COUNT
sWRITE DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

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

#RMCST, (R2)+

000200

#200, (R2)+

044500

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

3508

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

011710

044144

011334

004737

045042

176 011340

004737
0004
000240

044230

000137

011710

004737
000405

045226

011362

SEQ 0075

#RMOF
, (R2) +

011330

177 011356
178
179
180 011356

80%:

.WORD

#MJD ! GO,RMCS10
#PUTINX ,R2
#RMDA, (R2) +
#RMDC, (R2) +

169 011330
170
171

011344
011346
011350
011352

;PREPARE DEVICE FOR TEST
PC,TSTPRP
JSR

012737

011316
011320
011322
011324

174
175

igg;up PARAMETERS AND EXCUTE COMMAND

162 011266
163 011272
164 011276
165 011302
166 011306
167
168 011312

172
173

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

708:

153

154
155 011230
156 011230
157 011236
158 011244
159 011252
160 011256
161 011262

MACRO v03.01

1308

:
1308

; TERMINATE TABLE

;GO _TO 1308 IF NO ERROR

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

SWAIT rogsgm TO COMPLETE
PC,TIMOUT

;GO GET REGISTER STATUS
JSR

B8R

NOP

140%:

EMT
JMP

PC,GET

1408

3508

;VERIFY RESULTS OF WRITE COMMAND
JSR

PC,PRIERR

1508

;GO TO TIMOUT SUBROUTINE
;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO _TO 1408 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;G0 TO 3508 IF ERROR

;G0 CHECK FOR PRIMARY ERRORS

;GO TO 1508 IF NO ERROR

CZRMOAO RMOS5/3/72 FCTNL TST 3
WRITE, READ ZEROS

011364
011366
011370
011372

011710

:
1508

057742

160%:

046060

012737
000410

011446

154

180%:

001124

PC,a(SP)+

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

JSR
BR
NOP

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

JSR
JMP

PC,a(SP)+

;GO VERIFY RESULTS OF DATA TRANSFER
;G0 _TO 1608 IF NO ERROR

1608

sRETURN HERE IF ERROR

3508

;GO TO 3508 IF ERROR

1808

;GO _TO 1808 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

3508

;GO TO 3508 IF ERROR

MOV
BR

#1908, SLPERR

2008

;SKIP TO NEXT OPERATION
AR A AR AR R AR AR A AR A AR AR AR TR

READ

190%:

004737
154130

040472

011710

198 011466
199

: PREPARE gEVICE FOR TEST
PC,TSTPRP
154130
.WORD

200%:

BR
NOP
EMT
JMP

2008
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
: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 TSTPRP SUBROUT INE

:GO TO 3508 IF
ERROR

~N
N
N

=D
b
e e
cd

o
e
b

nornornorRoRoRONRONINONY

d —d =2 OO O

élsos;w PARAMETERS AND EXCUTE COMMAND

— el

203 011474
204 011502
205 011506
206 011512
207 011516
208 011522
209 011526
210 011532
211 011536

JSR
JMP

;LOOP #3

011454
011456
011460
011462

200
201 011466
202 011466

GO TO 3508 IF ERROR

; CHANGE LOOP ADDRESSES

192
193
194 011446
195
196
197 011446
011452

3508

PC,DTASTS

EMT

011710

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

PC,a(SP)+

JSR
BR
NOP

EMT

011710

sRETURN HERE IF ERROR

107324

000071
001551
000006
000032
000034
000004
000002
000000
000200

#BUF TWO+4 ,RMBAO
#RD ! GO,RMCS10

#200, (R2)

s CHANGE MEMORY ADDRESS
sREAD DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

—

181 011376
182 011376
011402
011404
011406
011410
011412
183 011416
184 011416
011422
011424
011426
011430
011432
185 011436
186
187
188 011436
189 011444
190

NOP
EMT
JSR
JMP

SEQ 0076

MACRO v03.01 11-APR-80 13:39:53 PAGEL 13-5

WRITE, READ ZEROS

212
213 011542

004737

011546 000404

MACRO V03.01 11-APR=-80 13:39:53 PAGE 12-6
SEQ 0077 |

044500

JSR

011550 000240

011552

011554

g}‘s' 011560
216
o 011560

NOP

104000

000137 011710
004737

044144

004737

045042

221 011570

004737

044230

011576
011600

000240
104000

218

i 011564

220

011574 000404

PC,PUT

011602 000137 011710

ggz 011606

EMT

2508 :

JMP

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

2508

:GO TO 2508 IF NO ERROR

3508

*GO TO 3508 IF ERROR

*RETURN HERE IF ERROR

:ERROR # DEFINED BY PUT SUBROUT INE

;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 nsexsren smus
JSR

zobs

;GO READ REGISTER(S) WITH GET SUBROUT INE

JMP

3508

*GO TO 3508 IF ERROR

NOP
EMT

2608 :

;GO TO TIMOUT SUBROUTINE

:GO TO 2608 IF NO ERROR

JRETURN HERE IF ERROR
ERROR # DEFINED BY GET SUBROUTINE

224
225 011606

004737

011612 000405
011614 000240

011616

045226

104000

011620

004736

226 011626
227 011626

004737

011636

011640

000405
000240

057742

004737

011656

JSR

PC,a(SP)+

046060

2808
:

JSR

PC,DTASTS

GO VERIFY RESULTS OF DATA TRANSFER

280$

GO TO 2808 IF NO ERROR
*RETURN HERE IF ERROR

JSR

PC.a(SP)+

3508

:GO BACK FOR MORE ERROR CHECKS

*GO TO 3508 IF ERROR

JSR

PC,SECERR

:GO CHECK FOR SECONDARY ERRORS

JMP

EMT

JSR

000137

011710

233 011666

004737

043602

011676
011700

000404
000240

BR
NOP

011704

000137 011710

JMP

232

011672
011674

011702

2315. 011710
239 011710

106320
107324

JMP

:GO VERIFY DATA

JSR

.WORD
.WORD

104000

EMT

3108:
3508

;GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

B8R
NOP

3008 :

:ERROR # DEFINED BY PRIERR SUBROUT INE

3508

011662

53«1) 011666

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

JMP

EMT

104000

004736

270s

BR
NOP

104000

011652 000405
011654 000240

011660

270$:

004736

011642 000137 011710

228 011646
229 011646

BR
NOP
EMT

011622 000137 011710

011632
011634

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

:ERROR # DEFINED BY DTASTS SUBROUTINE

3008

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

PC,a(SP)+

:GO BACK FOR MORE ERROR CHECKS

:ERROR # DEFINED BY SECERR SUBROUTINE

3508

:G0 TO 3508 IF ERROR

PC, CMPBUF

;GO COMPARE WRITE, READ DATA BUFFERS

3108

:6G0 TO 3108 IF NO ERROR
*RETURN HERE IF ERROR

BUF ONE +4
BUF TWO+4

3508

STARTING ADDRESS OF WRITE BUFFER
smnuc ADDRESS OF READ BUFFER

:ERROR # DEFINED BY CMPBUF SUBROUTINE

*GO TO 3508 IF ERROR

-t

CZRMOAO RMOS/3/2 FCTNL TST 3

RMOAO RMO5/3/2 FCTNL TST 3

WRITE, WRITE CHECK ZEROS

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

238

;:ltttttttii'ttfi'fifittt!""""Q'fitl'Qt'Qtt.ttttt'.tt'.'tttt.t".

S*TEST 5

011710

011724 013701 001464

e 011730

WRITE, WRITE CHECK ZEROS

tttttttttttttttt't'tt'tt'ttttttfit.'tttttt.'tittttttttttttt.'ttt

tér15:

011710
011712 000240
011714 012706 001100
011720 013700 001276
012737

000005

SCOPE
NOP
MOV
MOV

csmcx SP

MOV

#5,8TESTN

MOV

001226

240

rsmuém

:SCOPE CALL
*START OF TEST
:INITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS

:(R1) = DEVICE BEING TESTED

::SET TEST NUMBER IN APT MAIL BOX

::.ttttttttttl'ttttttt.tt't'ttttlt't'l’tl’fifittt.fitttt.ttt'ttttttt't

gz%

‘LooP #1

gzz 011736
011742

108:
004737

154130

011744
011746

000404
000240

ot 011752

000137

011750

104000

:PREPARE DEVICE FOR TEST
JSR
PC, TSTPRP

040472

250 011756
251 011764

012737 000000

000000

012022

004737

041416.

012030
012034

104401
104000

070230

001444

208:

001416

000405

000137

264 012062

012702

001551

266 012072
267 012076
268 012102

112722
112722
112722

000006
000004
000002

265 012066

208

JMP

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
:VERIFY PACK ACKNOWLEDGE
.
*RECALIBRATE IF ''SKI" OR ‘PIP'’ IS SET
:VERIFY RECALIBRATION

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

:ERROR # DEFINED BY TSTPRP SUBROUT INE

:GO TO 3508 IF ERROR

112722

000034

MOV

#0,RMDCO

:CYLINDER
= 0

MOV
MOV
MOV
MOV

#8UF ONE , RMBAO
#-258. ,RMJCO
#FMT16.RMOFO
#MH!GO,RMCS10

*BUS ADDRESS
:2 + 256. WORDS (2'S COMP)
:16 BIT FORMAT
:WRITE HEADER AND DATA COMMAND

#0.RMDAO

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT
:

012666

259 012042 012737 071730
260 012050 012737 000001
% 012056 004737 043344

263

BR
NOP

MOV

252 011772 012737 106314 001414
253 012000 012737 177376 001412
254 012006 012737 010000 001442
Sgg 012014 012737 000063 001410

B 8}22323

154130

:LOAD PARAMETERS AND GENERATE DATA BUFFER

012737

012026

.WORD

EMT

012666

248

249 011756

FORMAT ,WRITE ,WRITE CHECK DATA

001174
001176

25§

JMP

3508

MOV
MOV
JSR

#ZEROS,$TMPO
#1.8TMP1
PC. GENBUF

TYPE
EMT

,SCTMSG

*TRACK = 0, SECTOR = 0

;CALL BAD SECTOR MODULE

*GO TO 258 IF NO ERROR

:TYPE BAD SECTOR MESSAGE
*ERROR # DEFINED BY BADSCT SUBROUTINE

:GO TO 3508 IF ERROR

:SETUP Pmrsns AND EXCUTE COMMAND
nova

MOVB
MOVB
MOVB

#PUTINX,R2

#RMDC, (R2)+

#RMDA. (R2)+
WRMBA. (R2)+
ARMWC. (R2)+

;STARTING ADDRESS OF PATTERN
*RANGE OF PATTERN
:GO GENERATE BUFFER FOR FORMAT
:R2 = BYTE ENTRY POSITION
a—————

245
246 011736

257

SEQ 0078

2
5

czmo mosmz FC TNL TST 3

ITE, WRITE CHECK ZEROS

269 012106

112722

000032

270 012112 112722 000000
%;} 8}5}33 112712 000200
273 012122

004737

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

MOVB

#RMOF , (R2)+

MOVB

#200, (R2)

MOVB

044500

JSR

PC,PUT

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE

408 :

276

:SETUP GET INDEX TABLE TO READ ALL REGISTERS

278

. 012144
280
281 012150
012154
012156
012160
012162
ggg 012166

004737 045042
004737

044230

284
285 012166

004737

057742

012176
012200

104000
004736

000404
000240
104000
000137 012666

012172 000405
012174 000240

JSR

408

: TERMINATE TABLE

012126 000404
012130 000240
012132 104000
012134 000137 012666
g;g 012140
oy 012140 004737 044144

B8R
NOP
EMT
JMP

#RMCST, (R2)+

‘

SEQ 0079 |

3508
PC,GETSTS

:WAIT FOR COMMAND TO COMPLETE

JSR
PC, TIMOUT
:GO GET REGISTER STATUS
JSR
PC,GET
B8R
50§
NOP
EMT
JMP
3508
508 :

*GO TO 408 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUT INE
*GO TO 3508 IF ERROR
;GO TO GETSTS SUBROUTINE

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

26O TO 508 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
*GO TO 3508 IF ERROR

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

B8R
NOP
EMT
JSR

608

PC.a(SP)+

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

*ERROR # DEFINED BY DTASTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

012202 000137 012666
JMP
3508
‘GO TO 3508 IF ERROR
ggg 012206
608 :
288
:MOVE LOOP ADDRESSES TO NEXT OPERATION
289 012206 012737 012216 001124
MOV
#708, SLPERR
223? 012214 000410
BR
80
:SKIP TO WRITE OPERATION
292

2232

‘LooP #2

% 012216

708 :

297

298 012216
012222

004737
154130

040472

233223233 333333333233 333 333333333333 33323333333333333333333233233 3]

WRITE,WRITE CHECK DATA

;PREPARE DEVICE FOR TEST
JSR
.uono

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
:VERIFY PACK ACKNOWLEDGE

*RECALIBRATE IF 'SKI"

012232

104000

000137

012666

80$

JMP

3508

EMT

26O TO 80$ IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY TSTPRP SUBROUT INE

GO TO 3508 IF ERROR

012230

BR
NOP

OR 'PIP'* IS SET

012224 000404
012226 000240

*VERIFY RECALIBRATION

SEQ 0080

80$:

299 012236
300

SBIU’ PARAMETERS AND EXCUTE COMMAND

N
N
~
&H

#RMBA, (R2) +

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

b e

b 4

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

PC,PUT

)
b
b
b
-

VIS WN=O

WWWWWW

ONE +4 , RMBAD
#BUF
; CHANGE MEMORY ADDRESS
#-256. ,RMJCO
s CHANGE WORD COUNT
MWD
! GO,RMCS10
;WRITE DATA COMMAND
#PUTINX.RZ
;LOAD PUT REGISTER INDEX TABLE

1308

3508

130%:

044144

045042

044230

012666

045226

012666
057742

012666

046060

;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 GE;RINDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
;GO TO GETSTS SUBROUTINE
;WAIT FOR COMMAND TO COMPLETE
JSR

PC,TIMOUT

;GO GET REGISTER STATUS

:
1408

BR
NOP
EMT
JMP

146:
3508

sVERIFY RESULTS OF WRITE COMMAND

1508:

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

JSR
BR

PC,DTASTS

NOP

420
330 012424
331 0124%16

; TERMINATE TABLE

160$:

;GO READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 1408 IF NO ERROR
;RETURN HERE IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

;GO CHECK FOR PRIMARY ERRORS

1508

;GO _TO 1508 IF NO ERROR

PC,a(SP)+

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

3508
1608

EMT
JSR
JMP

PC,a(SP)+

JSR

PC,SECERR

BR
NOP
EMT
JSR

;GO TO TIMOUT SUBROUTINE

3508

sRETURN HERE IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;GO _TO 1608 IF NO ERROR

sRETURN HERE IF ERROR

;ERROR # DEF INED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

1808

GO CHECK FOR SECONDARY ERRORS
;G0 TO 1808 IF NO ERROR

PC.,a(SP)+

:ERROR # DEF INED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

:RETURN HERE IF ERROR

—r

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

— I

MACRO V03.01
C ZRMOAQ RMOS5/3/2 FCTNL T T 3
T5
WRITE, WRITE C HE K ZEROS

CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-10
15
WRITE, WRITE CHECK ZEROS

012440
332 012444
333
334
335 012444
336 012452
337
338
339
340
341 012454
342
343
344 012454
012460

000137

012666

012737
000410

012454

JMP

180%:

001124

;GO TO 3508 IF ERROR

;CHANGE LOOP ADDRESSES
MOV
BR

AR AR

#1908, SLPERR
2008

AR SRttt

:LooP #3

ittt

sSKIP TO NEXT OPERATION

sl ettt
222222;

WRITE CHECK DATA

190%:

004737
154130

012462
012464
012466
012470
345 012474
346
347
348 012474
349 012474

;PREPARE DEVICE FOR TEST

040472

JSR

PC,TSTPRP

2008

JMP

3508

.WORD

NOP
EMT

012666

200%:

154130

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

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

ézerup PARAME TERS AND EXCUTE COMMAND
001410

MOV
MOV
MOVB

MOVB
MOVB
MOVB
MOVB

357 012536
358
359 012542
546

JSR

PC,PUT

004737

044144

. 012564

V4737

045042

366
367 012570
012574
012576

004737
000404
000240

044230

JMP

;WRITE CHECK DATA DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

#RMOF. (R2)+
A#RMDC.(R2)+
#RMBA. (R2)+
#RMWC. (R2)+

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

B8R
:
2508

cuco'co RMCS10
#PUTINX .R2
#RMDA, (R2)+

MOVB
MOVB
NOP
EMT

364

3508

SEQ 0081

2508

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

:GO _TO 2508 IF NO ERROR

:RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

;SETUP GE; INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE
JSR

PC,TIMOUT

;GO GET REGISTER STATUS
JSR
BR
NOP

PC,GET

2608

;GO TO GETSTS SUBROUTINE

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

;GO _TO 2608 IF NO ERROR

:RETURN HERE IF ERROR

CZRMOAO RMOS/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-11
15
WRITE, WRITE CHECK ZEROS

012600

012602

3323 012606

104000

370
371 012606

004737

012616
012620

104000
004736

012612 000405
012614 000240

012622

000137

012666

004737

057742

012636
012640

104000
004736

000405
000240

004737

012656
012660

104000
004736

012652 000405
012654 000240

012662

g;g 012666

000137

3508

;ERROR # DEFINED BY GET SUBROUTINE

:GO TO 3508 IF ERROR

;VERIFY RESULTS OF mns cnecx COMMAND
JSR
PC,PRIE
;GO CHECK FOR PRIMARY ERRORS

BR
NOP

046060

3508

:GO TO 3508 IF ERROR

JSR

PC.DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

EMT
JSR

JMP

PC,a(SP)+

3508

*ERROR # DEF INED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

EMT
JSR

PC,a(SP)+

B8R
NOP

012666

JMP

3008 :

:GO TO 270% IF NO ERROR
*RETURN HERE IF ERROR

PC,a(SP)+

BR
NOP
280$:

2708

EMT
JSR

JMP

2708:

012642 000137 012666

374 012646
375 012646

JMP

2608 :

045226

372 012626
373 012626

012632
012634

EMT

000137 012666

2808

3008

3508

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

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

:GO TO 3508 IF ERROR

: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

g;g 012666

3508 :

380

;.'ttttttttttttttttttttttttttttttittttttttttltttttt'ttttttt'tttttt

S*TEST 6

012666

012666
012670
012672
012676
012702

b 012706

WRITE, WRITE CHECK ZEROS W/ WCE ERROR

itt'ttttttttttttttttttt't'tttttttt.tttt't.tttttttt.tttttt'.tttt

000004
000240
012706 001100
013700 001276
013701 001464
012737

000006

382

t476:

SCOPE
NOP
MOV
MOV
MOV
MOV

001226

#STACK, SP
$BASE , RO
TSTQUE ,R1
#6,$TESTN

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

:;SET TEST NUMBER IN APT MAIL BOX

;:ttttttttttttttttttttttt'ttttttitttttttttttttttttttttlt.t*t'tttt

3332

:LooP #1

3332 012714

387

388 012714

012720

012722
012724

FORMAT ,WRITE,WRITE CHECK DATA

108:

004737

154130

000404
000240

040472

;PREPARE DEVICE FOR TEST
JSR

LWORD

BR
NOP

PC, TSTPRP

154130

208

;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

:G0_TO 208 IF NO_ERROR
:RETURN HERE IF ERROR

SEQ 0082

7
CZRMOAD RMOS/372FCTNL TST 3
MACRO v03.01 11=-APR-80 13:39:53 PAGE 12-12
6
WRITE, WRITE CHECK 2EROS W/ WCE ERROR

012726

4 012730

104000

000137

EMT

014062

JMP

390

391 012734
392 012734
393 012742
394 012750
395 012756
306 012764
ggg 012772

000000
000000
106314
177376
010000
000063

013000

004737

041416

013006

104401

070230

013014

000137

014062

401 013020
402 013026
282 013034

012737
012737
004737

071730
000001
043344

405 013040

012702

001551

MOV

409 013060
410 013064
411 013070
2}; 83%3

112722
112722
112722
112712

000002
000032
000000
000200

MOVB
MOVB
MOVB
MOVB

414 013100

004737

044500

013106

000240

013112

000137

014062

417
e 013116

004737

044144

i 013122

004737

045042

421
422 013126

004737

044230

013134

000240

013140

000137

014062

425
426 013144

004737

057742

013152

000240

013004

013012

400 013020

406 013044
407 013050
408 013054

013104

013110

2}2 013116

419

013132

013136

252 013144

013150

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

:LOAD PARAMETERS AND GENERATE DATA BUFFER

208:

012737
012737
012737
012737
012737
012737

399

3508

SEQ 0083

000405

104000

112722
112722
112722

000404

104000

000404

104000

000405

001444
001416
001414
001412
001442
001410

MOV
MOV
MOV
MOV
MOV
MOV

#0,RMDCO
#0,RMDAO
#BUF ONE , RMBAO
#-258. ,RMWCO
#FMT16.RMOF O
#WH'GO,RMCS10

;VERIFY THAT SECTOR IS NOT BAD
JSR

PC,BADSCT

;CALL BAD SECTOR MODULE

TYPE

,SCTMSG

:TYPE BAD SECTOR MESSAGE

JMP

3508

:GO TO 3508 IF ERROR

MOV
MOV
JSR

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

:STARTING ADDRESS OF PATTERN
:RANGE OF PATTERN
:GO GENERATE BUFFER FOR FORMAT

#PUTINX ,R2

:R2 = BYTE ENTRY POSITION

EMT

001174
001176

25%:

000034
000006
000004

MOVB
MOVB
MOVB

JSR

NOP
EMT

408:

;CYLINDER
= 0
:TRACK
= 0, SECTOR
= 0
*BUS ADDRESS
:2 + 256. WORDS (2'S COMP)
216 BIT FORMAT
*WRITE HEADER AND DATA COMMAND

JMP

25$

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

WRMWC. (R2)+
#RMOF
., (R2)+
#RMCST, (R2)+
#200, (R2)

PC,PUT

408

3508

:GO TO 258 IF NO ERROR

;ERROR # DEFINED BY BADSCT SUBROUTINE

;TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

:GO TO 408 IF NO ERROR

;RETURN HERE IF ERROR

:ERROR # DEFINED BY PUT SUBROUT INE

: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 EGT REGISTER STATUS
JSR
PC,GET

NOP
EMT

508 :

JMP

508

3508

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

:GO TO SO$ IF NO ERROR

*RETURN HERE IF ERROR

:ERROR # DEF INED BY GET SUBROUTINE

:GO TO 3508 IF ERROR

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

NOP

60$

:G0 TO 608 IF NO ERROR
:RETURN HERE IF ERROR

-4

G 7
CZRMOAD RMOS5/3/2 F TNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-13
16
WRITE, WRI EC HECK ZEROS W/ WCE ERROR

012737
0

EMT
JSR

014062

013174

JMP

60%:
001124

PC,a(SP)+

3508

SEQ 0084

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

:GO TO 3508 IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION

MOV
BR

#708,SLPERR
808

;SKIP TO WRITE OPERATION

'.t"t'ttt.'.fitfi.fi't"t"tt"'fi.t'..'it.i.'t"t.t'tttfi'..ttt.".'

‘LoOP #2

436 013174
437
438
439 013174

013200

70%:

004737
154130

;PREPARE DEVICE FOR TEST

040472

000404
000240

013310
457 013314
458
459
013314
460
461
> 013320

000137

014062

80%:

JSR
.WORD

PC,TSTPRP
154130

B8R
NOP
EMT
JMP

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
*VERIFY 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 SUBROUT
INE
*GO TO 3508 IF ERROR

—

—
—d

MOV
MOV
MOV
MOV

012737

—D

igg;up PARAMETERS AND EXCUTE COMMAND

888

440 013214
441
442
443 013214
444 013214
445 013222
446 013230
447 013236
448 013242
449 013246
450 013252
451 013256
452 013262
453 013266
454 013272
455
456 013276

WRITE,WRITE CHECK DATA

MOVB
MOVB
MOVB
MOVB
MOVB

MRMDA, (R2) +
#RMDC.(R2)+
#RMOF. (R2)+
#RMBA. (R2)+
#RMWC. (R2)+

MOVB

#200, (R2)+

JSR

PC,PUT

MOVB

044500

014062

044144
045042

BR
NOP
s

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

EMT

JMP

#RMCST,(R2)+

1308

3508

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

:GO TO 1308 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEF INED 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

222 013324

;GO READ STATUS FOR WRITE COMMAND
PC,GET
J SR
;GO READ REGISTER(S) WITH GET SUBROUT INE

044230

0
465 013342

NOP
EMT

014062

467
468

140%:

014062

:GO TO 3508 IF ERROR

*RETURN HERE IF ERROR
:ERROR # DEF INED BY GET SUBROUT INE

PC,DTASTS

JSR

PC,SECERR

NOP

EMT

014062

JSR
JMP

001124

:GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

1608

PC.a(SP)+”

:GO TO 1508 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEF INED BY PRIERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

3508

JSR

JMP

046060

1508

JSR

014062

013444

3508

PC,a(SP)+

NOP
EMT

013430

:GO TO 1408 IF NO ERROR

NOP
EMT
JSR

JMP

057742

012737

1408

;CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC.PRIERR
;G0 CHECK FOR PRIMARY ERRORS

045226

013416
473 013422
474
475
476 013422
477
478
479
480
481 013430
482
483 013430
484 013434
485
486
487 013440

SEQ 0085

:GO TO 1608 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY DTASTS SUBROUTINE

:GO BACK FOR MORE ERROR CHECKS

3508

:GO TO 3508 IF ERROR

;GO CHECK FOR SECONDARY ERRORS

1808

*GO TO 180$ IF NO ERROR

PC,a(SP)+
3508

:GO BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR

*RETURN HERE IF ERROR

*ERROR # DEFINED BY SECERR SUBROUT INE

s CHANGE LOOP ADDRESSES
MOV
#1908, SLPERR
AR

d stt
212223222232
t
22222222223223

:Loop #3

WRITE CHECK DATA

:
1908

012703
050337

000001

107316

195$:

004737

040472

:PREPARE DEVICE FOR TEST
JSR_
PC,TSTPRP

154130

MOV
BIS

"WoRD

#1.R3
R3,BUFTWO-2

154130

:R3+WCE BIT POSITION
:CHANGE LAST WORD OF BUFFER
: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

000404
000240

000137

2008

:G0_TO 2008 IF NO ERROR

EMT
JWP

3508

:ERROR # DEFINED BY TSTPRP SUBROUTINE
:60 TO 3508 IF ERROR

NOP

014062

200%:

:RECALIBRATE IF 'SKI'* OR 'PIP'* IS SET
:VERIFY_RECAL IBRATION

:RETURN HERE IF ERROR

H 7
CZRMOAD RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-14
16
WRITE, WRITE CHECK ZEROS W/ WCE ERROR

CZRMOAO RMO5/3/2 FCTNL
T
TST 3

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

WRITE, WRITE CHECK ZEROS W/ WCE ERROR

SEQ 0086

-ne:o DATA FROM DEVICE

240

MICD
' GO,RMCS10

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

494 013472
495 013476
496 013502
497 013506
498 013512
499 013516
500 013522
501
502 013526

PC,PUT

2508

013532

013540
503 013544
504
5
013544

507

014062

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE

045042

08
509
510 013554

JSR

2608$:

001344

:
2708

012737

107316

JMP

3508

270s

PC,a(SP)+

BIT

MJCE ,RMCS21

JSR

PC,DTASTS

JMP

2808:

PC,PRIER

NOP
EMT
JSR

BNE

057742

525 013670

2608

014062

001344
040000
001344
001174

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO _TO 2608 IF NO ERROR

JRETURN HERE IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

s CHECK FO§ ERRORS DLRINGRURITE CHECK DATA OPERATION

045226

014062

PC, TIMOUT

NOP
EMT

014062

040000

;GO _TO 2508 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

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

044230

032737
001030

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

:SETUP GE; INDEX TABLE TO READ ALL REGISTERS

044144

013550

3508

2508:

sWRITE CHECK DATA DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

3508

285$

2808

NOP
EMT
JSR

PC,a(SP)+

MOV
BIS

RMCS21, SGDDAT
MICE ,SGDDAT

MOV

R3,$TMPO

JMP

MOV

3508

RMCS21, SBDDAT

#B0F TWO=2, $TMP1

;GO CHECK FOR PRIMARY ERRORS

160 TO 2708 IF NO ERROR
:RETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

;WAS "WCE'' DETECTED??
sVES!!
;GO VERIFY RESULTS OF DATA TRANSFER
;GO _TO 280% IF NO ERROR

sRETURN HERE IF ERROR

;ERROR # DEF INED BY DTASTS SUBROUT INE
;G0 BACK FOR MORE ERROR CHECKS

;GO TO 3508 IFERROR

;EXPECTED STATUS

;RECEIVED STATUS
sFAILING BIT POSITION

;FAILING ADDRESS

%gRHOAO RMO5/3/2 FCINL TST 3

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

WRITE, WRITE CHECK ZEROS W/ WCE ERROR

526 013676

§27 013700

528 013702
§29 013702

013710
013716

104337

EMT

000470

112737

112737
004737

000022

000200
044230

013722
01372¢

000404
000240

013

000137 014062

013726

001522

001523

104000

013737
013737

001356
107316

001142
001140

5§34 013756
535 013762
5§36 013770
537 013776

012737 107316
013737 001340
162737 000002
023737 001134

001134
001136
001136
001136

538 014004
539 014006

001402
104340

540 014010 000424
541 014012
542 014020

023737
001402

544 014024
gzg 014026

000416

547 014026

004737

014036
014040

104000
004736

543 014022

014032
014034

014042

548 014046

549 014046

550 014052
551 014054
552 014056

5552 014062

001140

001142

104341

000405
000240

MOVB

WRMDB,GETINX

BR
NOP

290

JMP

3508

MOV
MOV
BIC
MOV
MOV
SUB
cMP

RMDS] , $8DDAT
BUF TWO=2, SGDDAT
R3,S$GDDAT
#BUF TWO-2 , SGDADR
RMBA] , $8DADR
#2,$8DADR
$GDADR , SBDADR

EMT

2968 :
046060

014062

040337

107316

3508

;EXPECTED ADDRESS
*RECEIVED ADDRESS
*ADJUST BUS ADDRESS
*ADDRESSES OK??
SYES!!

:DATA 0K??
SYES!!

341

EMT
JSR

PC,a(SP)+

*ERROR # DEFINED BY SECERR SUBROUT
INE
:GO BACK FOR MORE ERROR CHECKS

R3,BUF TWO-2

;RESTORE DATA PATTERN

JMP
BIC

3008

3508

;GO CHECK FOR SECONDARY ERRORS

:GO TO 3008 IF NO ERROR
*RETURN HERE IF ERROR
:GO TO 3508 IF ERROR

R3
3508
1958

*SHIFT TO NEXT BIT
YEXIT IF DONE
*REPEAT TEST FOR NEXT DATA BIT

:.'Qtttttttttttttttt*ttttt't'ttttt'tt.ttttttttttttttttt't't.'ttttt

014062

014062
014064
014066
014072
014076
o 014102

333
560 014110

561
562

;RECEIVED DATA
*EXPECTED DATA

PC,SECERR

S*TEST 7

557

:GO TO 3508 IF ERROR

JSR

3508 :

SSS

*ERROR DEF INED BY GET SUBROUTINE

3508

ASL
BEQ

013434

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

2958
340

$GDDAT, SBDDAT
296$

B8R
NOP
3008:

:;SETUP GET INDEX TABLE
:SETUP TERMINATOR BYTE
:GO READ RMDB VIA GET SUBROUTINE

#200,GETINX+1
PC ger

C(MP
BEQ
EMT

000137
006303
001402
000137

3508

BEQ
EMT

295%:

337

MOVB
JSR

531 013734
532 013742

533 013750 040

285$:

SEQ 0087

WRITE, READ ONES

;"tttt"'tttttttttttt.ttt'tt'ttttttttttt.ttttt.tttttt.t.tt.ttttt'

000004
000240
012706
013700
013701
012737

1517:

001100
001276
001464
000007

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK, SP
$BASE , RO
TSTQUE ,R1
#7.8TESTN

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

FORMAT,WRITE ,READ

.'."tttltttttttttttttttt"'ttttlttt'.ttt'tttttt.t.tttttttttltt"tt

;LOoOP #1

108:

;PREPARE THE DEVICE FOR TEST

WRITE, READ ONES

563 014110
0146114

004737
154130

K 7
MACRO v03.01 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

:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF "SKI"* OR ‘PIP'' IS SET

000404
000240
104000

C00137

20%

JMP

3508

NOP
EMT

015070

:VERIFY_RECAL IBRATION
:G0_TO 208 IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE

:G0 TO 3508 IF ERROR

000000
000000
106314
177376
010000
000063

oSN

012737

888888

: LOAD PARAMETERS AND GENERATE DATA BUFFER

208

JSR
BR

070230

TYPE

582 014240

044500

0
593 014312
594
595
014312
9%
597

015070

044144

—_

25%:

PC .BADSCT

25$%

sCYLINDER = 0
:TRACK = 0, SECTOR = 0
;BUS ADDRESS
;2 + 256. WORDS (2°'S COMP)
216 BIT FORMAT
;WRITE HEADER AND DATA COMMAND
;CALL BAD SECTOR MODULE

;GO TO 258 IF NO ERROR

.SCTMSG

:TYPE BAD SECTOR MESSAGE

JMP

3508

;GO TO 3508 IF
ERROR

MOV

#ONES ,$TMPO

EMT

015070

001551
000034
000006
000004
000002
000032
000000
000200

#0,RMDCO
#0.RMDAO
#BUF ONE , RMBAO
#-258. ,RMJCO
#FMT16.RMOFO
#WH!GO.RMCS10

;VERIFY THAT SECTOR IS NOT BAD

041416

071666
000001
043344

MOV
MOV
MOV
MOV
MOV
MOV

MOV
JSR

#1,8TMP1
PC,GENBUF

:ERROR # DEF INED BY BADSCT SUBROUTINE

s STARTING ADDRESS OF PATTERN
RANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

;LOAD PUT REGIST;’:UIM)EX TABLE FOR FORMAT OPERATIION

MOVB

MOVB
MOVB
MOVB
MOVB

WRMDA. (R2)+
#RMBA. (R2)+
#RMMC. (R2)+
#RMOF . (R2)+

MOVB

#200, (R2)

MOVB

308:

TINX,R2

#RMDC, (R2)+

#RMCST, (R2)+

;:FORMAT THE DRIVE

JSR

B8R

NOP
EMT

408%:

JMP

408
3508

;R2
= BYTE ENTRY POSITION

: TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO _TO 408 IF NO ERROR

:RETURN HERE IF ERROR

ERRO'( # DEFINED BY PUT SUBROUT INE
GO TO 3508 IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE

GO TO GETSTS SUBROUTINE

C;MAO RMO5/3/72 FCTNL TST 3

CZRMOAO RMOS5/372 FCTNL TST 3
WRITE, READ ONES

014316
98
599
600 014322

004737

045042

004737

044230

JSR
JSR

BR
NOP
EMT
JMP

50%:

PC, TIMOUT

SEQ 0089

;GO TO TIMOUT SUBROUTINE

PC,GET

;GO READ nscxsrsms) WITH GET SUBROUTINE

508

:GO TO 508 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUT INE
:GO TO 3508 IF ESROR

3508

;VERIFY NO ERRORS DURING FORMAT

057742

JSR

BR
NOP
EMT
JSR

015070

014370

;GO READ STATUS FOR FORMAT OPERATION

015070

601 014340
602
603
604 014340

JMP

60$%:
001124

PC,DTASTS

60$

:GO VERIFY RESULTS OF DATA TRANSFER

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

*ERROR # DEF INED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

PC,a(SP)+

3508

:GO TO 3508 IF ERROR

:MOVE LOOP ADDRESSES ro uexr OPERATION

MOV
B8R

#708.,$
808

:SKIP TO WRITE OPERATION

;:tt'tttt*ttt'ttttttttttttt'tttt'tttttttttttttt.tttttt.ttt.t'ttfit

:LOOP #2

614 014370
615

616
617
618 014370

; PREPARE gEVICE FOR TEST

040472

014374

014400

015070

80$:

BR
NOP
EMT
JMP

:VERIFY PACK ACKNOWLEDGE _
:RECAL IBRATE IF “SKI'* OR 'PIP'* IS SET
:VERIFY RECAL IBRATION

ERROR

sERROR # DEFINED BY TSTPRP SUBROUT INE

3508

;G0 TO 3508 IF ERROR

—d —d

oo~

—

—
— —

s CHANGE MEMORY ADDRESS
:CHANGE WORD COUNT
;WRITE DATA COMMAND

001551

:LOAD PUT REGISTER INDEX TABLE

000032
#RMJC; (R2)

#RMCST, (R2)+

SEESa—.

177400

888

106320

e e =k =2 OO OO

'UR%TE DATA TO THE DRIVE

—t e

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

: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

.WORD

014376

619 014410
620
621
622 014410
623 014410
624 014416

WRITE ,READ

70%:

A A A A A A AN LN LY

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

CZRMOAO RMO5/3/2 FCTNL TST 3
17
WRITE, READ ONES

633 014466
634
635 014472
014476
014500
014502
014504
636 014510
637
638
014510

9
640
. 014514

642
643 014520
014524

M7
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-19
SEQ 0090 |

112722

000200

mMove

#200, (R2)+

004737
000404
000240

044500

PC,PUT

000137

015070

JSR
BR
NOP
EMT
JMP

004737

044144

004737

045042

004737
000404
000249

044230

000137

015070

004737

045226

104000

:
1308

;WAIT FOR COMMAND TO COMPLETE
JSR

REG!STER(S) WITH PUT SUBROUTINE

:GO_TO 1308 IF NO ERROR

:RETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

PC, TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
JSR
PC,GET
;GO READ REGISTER(S) UITH GET SUBROUT INE
BR
1408
;GO _TO 1408 IF NO ERROR
NOP
EMT

JMP

1408

sRETURN HERE IF ERROR

3508

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

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

PC,a(SP)+

JSR

PC,DTASTS

NOP
EMT
JSR

PC,a(SP)+

JSR

PC,SECERR

015070

JMP

:
1608

046060

B8R

NOP

EMT
JSR

015070

JMP

180%:

001124

1508

NOP
EMT
JSR

JMP

1508:

057742

014626

3508

;GO WRIT

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

015070

012737
000410

1308

: TERMINATE TABLE

3508
1608

3508

1808

PC,a(SP)+

3508

;GO _TO 1508 IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEF INED 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
RETW HERE IF ERROR
sERROR # 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

;RETURN HERE IF ERROR

sERROR # DEF INED BY SECERR SUBROUT INE
;G0 BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR

:CHANGE LOOP ADDRESSES

MOV
B8R

:LooP #3

#1908, SLPERR
2008
i

;SKIP TO NEXT OPERATION
e

122232232222 22

READ

1908
:

004737

040472

: PREPARE (S)EVICE FOR TEST

PC,TSTPRP

;PREPARE DEVICE FOR TEST

WRITE, READ ONES

014632

N 7
MACRO V03.01 11-APR-80 13:39:53 PAGE 12-20

154130

JWORD

154130

SEQ 0091

s TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE

sVERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

015070

668 014646
669 014646

670 014654
671 014662
672 014666
673 014672

:
2008

107324

2403:

000071
00155 1
000006

3508

MOV
MOV
MOV

A#RMDA, (R2)+
WRMOF
. (R2)+
#RMDC. (R2)+
#RMBA. (R2)+
#RMWC. (R2)+

MOVB

#200, (R2)

JSR

PC,PUT

BR
015070

014744

045042
044230

015070

045226

015070
057742

NOP
EMT

250%:

#BUF TWO+4
, RMBAO
#RD !GO, RMCS10
#PUTINX,R2

MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

044144

694 015006

JMP

0 2008 IF NO ERROR

RETURN HERE TF ERROR

:ERROR # DEF INED BY TSTPRP SUBROUTINE

:60 TO 3508 IF ERROR

:READ DATA FROM DEVICE

014740

687
688 014750
014754
014756
014760
014762
689 014766
690
691
692 014766

2008

NOP
EMT

674 014676
675 014702
676 014706
677 014712
678 014716
679
680 014722
014726
014

681 014740
682

:RECALIBRATE IF 'SKI" OR 'PIP'’ IS SET
:VERIFY_RECAL IBRATION

JMP

s CHANGE MEMORY ADDRESS
sREAD DATA COMMAND
sLOAD PUT REGISTER INDEX TABLE

#RMCST, (R2)+

2508
3508

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO _TO 2508 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
;GO TO GETSTS SUBROUTINE
;WAIT FOR COMMAND TO COMPLETE
JSR

PC, TIMOUT

;GO TO TIMOUT SUBRCLTINE

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

2608

JMP

3508

NOP
EMT

260$:

;GO _TO 2608 IF NO ERROR

sRETURN HERE IF ERROR

-ERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

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

270%:

270s

GO _TO 2708 IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

:RETURN HERE IF ERROR
<ERROR # DEFINED BY PRIERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

JMP

3508

:GO TO 3508 IF ERROR

—

C;WAO W5/3/2 FCTNL TST 3

015012

015070

280%:

046060

015070

698 015046

280%

BR
NOP
EMT
JSR
JMP
JSR
BR
NOP

043602

;GO _TO 280$ IF NO ERROR

sRETURN HERE IF ERROR

;ERROR # DEF INED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

PC,a(SP)+
3508

:GO TO 3508 IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

3508

sRETURN HERE IF ERROR
sERROR # DEF INED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

PC, CMPBUF

;GO COMPARE WRITE, READ DATA BUFFERS

3008

:
3008

;GO _TO 3008 IF NO ERROR

BUF ONE +4
BUF TWO+4

;STARTING ADDRESS OF WRITE BUFFER
*STARTING ADDRESS OF READ BUFFER

;G0 TO 3108 IF NO ERROR

3108

01
699 015070

015070

700
701 015070
702
703

s*TEST 10

015070

012737

: 838

TST10:

AR R

Rttt

:GO TO 3508 IF ERROR

et e

it st sttt
222222222222 223

it it

SCOPE
NOP
MOV
MOV
MOV
MOV

001226
MR

sttt

;LOOP #1

ittt d

WRITE, WRITE CHECK ONES
dd

sttt

#STACK,
SP

$BASE ,RO

TSTQUE ,R1
#10,$TESTN
st

ity

1222222222222 2¢

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

::SET TEST NUMBER IN APT MAIL BOX

ittt

1222222222222%

FORMAT ,WRITE ,WRITE CHECK DATA

108:

004737
154130

040472

000404
000240

000137
7
714 015136

*ERROR # DEFINED BY CMPBUF SUBROUTINE

3508:

AL ARt b

704
705
706
707
708 015116
709
710
7110
0

*RETURN HERE IF ERROR

3508

310%:

SEQ 0092

016046

: PREPARE ;:E DEVICE FOR TEST
PC,TSTPRP
154130
-WORD

BR
NOP
EMT
JMP

208
3508

-PREPARE DEVICE FOR TEST

: 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 ACKNOWLEDG E
sRECALIBRATE IF "SKI'* OR ‘PIP'' IS SET
sVERIFY_RECALIBRATION

;GO _TO 208 IF NO ERROR

sRETURN HERE IF ERROR

sERROR # DEFINED BY TSTPRP SUBROUT INE

;GO TO 3508 IF ERROR

ébgeb PARAMETERS AND GENERATE DATA BUFFER

—d

WRITE, READ ONES

:
MACRO v03.01
11-APR-80 13:39:53 PAGEB 13-21

SIS —_—|

CZRHDAO RHOS/S/Z FCTNL TST 3

-4
-

RMOAD RMOS/3/2 FCTNL TST 3

WRITE, WRITE CHECK ONES

715 015136
716 015144
717 015152
718 015160
719 015166
775? 015174

012737
012737
012737
012737
012737
012737

000000
000000
106314
177376
010000
3

015202

004737

041416

015210
015214

104401
104000

070230

;%9 015236

004737

043344

722

015206 000405

001444
001416
001414
001412
001442
001410

MOV
MOV
MOV
MOV
MOV
MOV
JSR

730 015246

112722

000034

112722
112722
112722

000004
000002
000032

112712

000200

731 015252

112722 000006

735 015272

112722 000000

732 015256
733 015262
734 015266
736 015276

gg 015302
739
740 015302
015306
015310
015312
015314
;25 015320
743
: 015320
745

2 015324

747

748 015330

004737 044500
000404
000240
104000
000137 016046
004737

044144

004737

045042

004737

044230

015334 000404
015336 000240
015340 104000
015342 000137 016046

;15.3 015346

751
752 015346

004737

015352 000405

015354 000240
015356
015360

104000
004736

057742

;CALL BAD SECTOR MODULE

,SCTMSG

*TYPE BAD SECTOR MESSAGE
*ERROR # DEFINED BY BADSCT SUBROUTINE

25§

JMP
MOV
MOV

3508
#ONES , $TMPO
#1,$TMP1

JSR

;CYLINDER= 0
STRACK = 0, SECTOR
= 0
*BUS ADDRESS
22 + 256. WORDS (2'S COMP)
216 BIT FORMAT
‘WRITE HEADER AND DATA COMMAND

C ,BADSCT

TYPE
EMT

SEQ 0093

#0,RMDCO
#0 . RMDAO
#BUF ONE , RMBAO
#-258. ,RMJCO
#FMT16.RMOFO
#WH!GO_RMCS10

:VERIFY THAT SECTOR IS NOT BAD

. 812%53 000137 016046
724 015222 012737 071666 001174
725 015230 012737 000001 001176
729 015242 012702 001551

:39:

PC. GENBUF

160 TO 258 IF NO ERROR

*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

MOV

#PUTINX ,R2

MOVB

#RMDA. (R2)+

MOVB

#RMCST, (R2)+

MOVB

MOVB
MOVB
MOVB
MOVB

:R2 = BYTE ENTRY POSITION

#RMDC, (R2)+

#RMBA. (R2)+
#RMWC. (R2)+
#RMOF . (R2)+
#200, (R2)

308:
:FORMAT THE DRIVE
JSR
PC,PUT
B8R
408
NOP
EMT
JMP
3508
408:

;TERMINATE TASLE

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE
260 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
;GO TO GETSTS SUBROUTINE
:WAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR FORMAT OPERATION

JSR

508 :

B8R
NOP
EMT
JMP

PC,GET

50§

3508

;G0 READ Resxsrsam WITH GET SUBROUTINE

GO TO 508 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
‘GO TO 3508 IF ERROR

:VERIFY NO ERRORS DURING FORMAT
JSR
PC,DTASTS
:GO VERIFY nesuus OF DATA TRANSFER

B8R

608

*GO TO 608 IF NO ERROR

EMT
JSR

PC.a(SP)+

“ERROR # DEF INED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

NOP

*RETURN HERE IF ERROR

CZRMOAO RMO5/3/72 FCTNL TST 3

WRITE, WRITE CHECK ONES

781 015474
782
783 015500

015504
015506
015510

015512
784 015516
785
786
> 015516
788

. 015522

016046

012737
000410

015376

;
60$:
001124

JMP

3508

ARt

;LOOP #2

SEQ 0094

;GO TO 3508 IF ERROR

sMOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#708 ,SLPERR
BR
80%
MR

sSKIP TO WRITE OPERATION

ddd ettt
222222 2

WRITE ,WRITE CHECK DATA

70%:

004737
154130

sPREPARE DEVICE FOR URITE OPERATION

040472

JSR

LWORD

0004
000240
000137

80%:

PC,TSTPR

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
:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF ''SKI"* OR 'PIP'* IS SET
*VERIFY RECALIBRATION

BR
NOP

80$

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

JMP

3508

*GO TO 3508 IF ERROR

EMT

016046

*ERROR # DEFINED BY TSTPRP SUBROUTINE

001551

)

MOV
MOV
MOV
MOV

D —D

106320
177400

—

012737

i-ggirs DATA TO THE DRIVE

—_—

015404
015406
015410
015412
767 015416
768
769
770 015416
771 015416
772 015424
773 015432
774 015440
775 015444
776 015450
777 015454

000137

388

015362

753 015366
754
755
756 015366
757 015374
758
759
760
761
762 015376
763
764
765
766 015376
015402

MACRO v03.01 11-APR-80 13:39:53 PAGE) 15-23

MOVB

MOVB
MOVB
MOVB
MOVB

000032

MOVB

000200

#BUF ONE +4 , RMBAO
; CHANGE MEMORY ADDRESS
#-256. ,RMWCO
;CHANGE WORD COUNT
MWD ! GO.RMCS10
:WRITE DATA COMMAND
#PUTINX ,R2
*LOAD PUT REGISTER INDEX TABLE

ARMDA, (R2)+

A#RMDC.(R2)+
#RMOF. (R2)+
#RMBA. (R2)+
#RMJC. (R2)+

#RMCST,(R2)+

MOVB

#200, (R2)+

JSR

PC,PUT

:TERMINATE TABLE

004737
000404
000240

044500

000137

016046

004737

044144

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

004737

045042

104000

BR
NOP
EMT

JMP

1308

3508

;WAIT FOR COMMAND TO COMPLETE
JSR

PC, TIMOUT

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

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

*ERROR # DEFINED BY PUT SUBROUTINE

:GO TO 3508 IF ERROR

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND

CZRMOAO RMOS5/3/2 FCTNL TST 3

110

WRITE, WRITE CHECK ONES

791 015526
532
5

§36
40

004737
000404
000240

044230

000137

016046

104000

MACRO v03.01 11-APR-80 13:39:53 PAGEE 13-24
JSR

NOP
EMT

JMP

140%:

NOP

EMT

016046

000137

150%:

057742

016046

JSR
BR

PC,DTASTS
1608

EMT
JSR

PC,a(SP)+

JSR

PC,SECERR

B8R

NOP

EMT
JSR

016046

JMP

180%:

001124

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

3508

;GO VERIFY RESULTS OF DATA TRANSFER
;GO _TO 1608 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;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
sERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

1808

PC,a(SP)+

3508

;GO TO 3508 IF ERROR

2008

LOOP #3

812 015634
015640

:GO TO 1508 IF NO ERROR

;CHANGE LOOP ADDRESSES
MOV
#1908, SLPERR
A

809 015634
810
811

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

1508

PC.a(SP)+

JMP

1608:

046060

015634

;GO _TO 1408 IF NO ERROR

:RETURN HERE IF ERROR

3508

JSR

JMP
NOP

015600

;GO READ REG]STER(S) WITH GET SUBROUTINE

1408

:CHECK FOR ERRORS ounx~s WRITE OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS

045226

004737

PC,GET

SEQ 0095

;SKIP TO NEXT OPERATION

T2 22122222222222222223

WRITE CHECK DATA

190%:

004737
154130

040472

: PREPARE osvxce FOR unxrs CHECK DATA OPERATION
PC,TSTPR
sPREPARE DEVICE FOR TEST
.uoao
154130
s 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

B8R

NOP

000137

016046

200%:

EMT
JMP

2008
3508

JRECALIBRATE IF ''SKI'* OR ‘PIP'* IS SET
;VERIFY RECALIBRATION

;GO _TO 2008 IF NO ERROR

sRETURN HERE

;GO TO 3508 IF ERROR

;WRITE CHECK DATA DATA FROM DEVICE

2408

IF ERROR

;ERROR # DEFINED BY TST:RP SUBROUT INE

CZRMOAO RMOS5/3/2 FCTNL TST 3
0
WRITE, WRITE CHECK ONES

NNNNNNNQ

LASLAS LN L NN N T N T )

826
827 015722

825 015716

b e

d e

Y =

012737

000051
001551
000006
000032
000034
000004
000002
000000
000200

MOV
MOV

001410

016046

044144

832
3 015744

045042
044230

016046

045226

#RMDA, (R2) +
WRMOF
. (R2)+
#RMDC. (R2)+
#RMBA. (R2)+
#RMWC. (R2)+

MOVB

#200, (R2)

JSR

BR
NOP
EMT

2508:

JMP

JSR

PC,PUT

2508

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

:GO TO 2508 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUT INE
:GO TO 3508 IF ERROR

PC, TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE CHECK DATA OPERATION
JSR

260%:

PC,GET

BR
NOP

2608

JMP

3508

EMT

;GO READ REGISTER(S) WITH GET SUBROUTINE

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

*ERROR # DEFINED BY GET SUBROUT INE

:GO TO 3508 IF ERROR

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

2708

EMT
JSR

PC.a(SP)+

JSR

PC,DTASTS

EMT
JSR

PC,a(SP)+

:ERROR # DEF INED BY DTASTS SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

:GO CHECK FOR SECONDARY ERRORS

EMT
JSR

PC,a(SP)+

JMP

BR
NOP

046060

016046

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

WRMCST,(R2)+

;WAIT FOR COMMAND TO COMPLETE

057742

016046

SEQ 0096

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

NOP
016046

MICD ' GO,RMCS10
#PUT INX R2

MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

044500

828 015740
829
830
. 015740

834
835 015750
015754
015756
015760
015762
836 015766
837
838
839 015766
015772
015774
015776
016000
016002
840 016006

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

JMP

B8R
NOP
300%:

3508

2808

3508
3008

3508

Go TO 2708 IF NO ERROR

*RETURN HERE IF ERROR

:ERROR # DEF INED BY PRIERR SUBROUT INE
: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

:GO TO 3508 IF ERROR

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

:ERROR # DEF INED BY SECERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

*GO TO 3508 IF ERROR

350%:
.'.".fit.t.t'.t.tt"..l""'t"'.lttt.-t.tt.tt..t"t."ti..'t!'tt't

CZRMOAO RMOS5/3/72 FCTNL TST 3

MACRO v03.01 11-APR-80 13:39:53 PAGEG 13-26

WRITE, WRITE CHECK ONES W/ WCE ERROR

J*TEST 1N

SEQ 0097

WRITE, WRITE CHECK ONES W/ WCE ERROR

"."."‘"'.tt...."""'"Q*'.Q."....fi'fi"...".Q'...Q'Q".Q

TST”

849
850
851

012737

MOV

#11,8TESTN

TSTQUE ,R1

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

s(R1) = DEVICE BEING TESTED

;:SET TEST NUMBER IN APT MAIL BOX

.""'..fi"*fi*."""t.'"'".'..*fi'.'".'.Qfi..'fi.'*"'i""'..'

LOOP "2

FORMAT ,WRITE ,WRITE CHECK DATA

10%:

004737
154130

000404
000240
104000
000137

012737

;PREPARE THE DEVICE FOR FORMAT OPERATION

040472

:
208

208

;GO TO 208 IF NO ERROR
JRETURN HERE IF ERROR

JMP

3508

;GO TO 3508 IF ERROR

;PREPARE DEVICE FOR TEST

sTASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF "'SKI'* OR 'PIP'' IS SET
JVERIFY RECALIBRATION

JERROR # DEFINED BY TSTPRP SUBROUT INE

MOV

#0,RMDCO

sCYLINDER
= 0

MOV

lBUF(NE RMBAOD

*BUS ADDRESS

#FMT16,RMOFO

;16 BIT FORMAT

MOV

MOV
MOV

MOV

#0 ,RMDAO

0-258..RWCO

#H'!GO.RMCS10

;VERIFY Igaf SECTOR IS NOT BAD

B8R

070230

TYPE

i
NN

017244

000032

BR
NOP

154130

;LOAD PARAMETERS AND GENERATE DATA BUFFER

000000
000000
106314
177376
010000
000063

001551
000034
000006
000004

PC,TSTPRP

EMT

017244

071666
000001
043344

JSR

.WORD

041416

878 016240
879 016244

:SCOPE CALL

#STACK,SP
$BASE ,RO

MOV

001226

852

853 016074
854
855
856 016074
016100

SCOPE

NOP
MOV
MOV

PC ,BADSCT

25$

sTRACK = 0, SECTOR = 0

JWORD COUNT = 1 SECTOR

;WRITE HEADER AND DATA COMMAND
;CALL BAD SECTOR MODULE

:GO TO 258 IF NO ERROR

,SCTMSG

:TYPE BAD SECTOR MESSAGE

JMP

3508

:GO TO 3508 IF ERROR

MOV
MOV

#ONES , STMPO
#1,8TMP1

EMT

JSR

PC. GENBUF

*ERROR # DEFINED BY BADSCT SUBROUTINE

;STARTING ADDRESS OF PATTERN
*RANGE OF PATTERN

GO GENERATE BUFFER FOR FORMAT

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

MOV

#PUTINX ,R2

MOVB
MOVB

#RMDA. (R2)+
#RMBA. (R2)+

MOVB

MOVB
MOVB

#RMDC, (R2)+

#RMWC. (R2)+
#RMOF
. (R2)+

:R2 = BYTE ENTRY POSITION

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

WRITE, WRITE CHECK ONES W/ WCE ERROR

112722
112712

000000
000200

004737
000404
000240

044500

000137

017244

004737

044144

004737

045042

004737

044230

104000

90
. 016302

892
893 016306
016312
016314
016316
016320
894 016324
895
896
897 016324

898 016344
899
900
901 016344
902 016352
903
904
905
906
907 016354
908
909
910 016354
016360

#RMCS1,(R2)+
#200, (R2)

;FORMAT THE DRIVE
JSR

PC,PUT

NOP
EMT

JMP

40%:

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

3508

;GO TO 3508 IF ERROR

;SETUP GE;RINDEX TABLE TO READ ALL REGISTERS
PC,GETSTS

sWAIT FOR COMMAND TO COMPLETE
JSR

PC,TIMOUT

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

2GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR
;GO _TO 508 IF NO ERROR
NOP
:RETURN HERE IF ERROR
EMT
sERROR # DEFINED BY GET SUBROUTINE

JMP

508%:

3508

;GO TO 3508 IF ERROR

JVERIFY NO ERRORS DURING FORMAT

057742

JSR

PC,DTASTS

NOP
EMT
JSR

PC.,a(SP)+

017244

016354

MOvB
MOVB

30%:

017244

012737
000410

SEQ 0098

JMP

60$:
001124

60%

3508

;GO VERIFY RESULTS OF DATA TRANSFER
;GO _TO 608 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION

MOV
BR

Rttt

#708,SLPERR
80%

ddd

;LOOP #2

;SKIP TO WRITE OPERATION

ettt

2232322222222 2228

WRITE,WRITE CHECK DATA

70%:

004737
154130

000404
000240
104000

040472

;PREPARE DEVICE FOR URITE OPERATION
JSR
PC,TSTPR
;PREPARE DEVICE FOR TEST

LWORD

154130

80%

NOP
EMT

: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
:60_TO 808 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE

—

-JEE

0 RMO5/3/2 FCTNL TST 3

MACRO v03.01 11-APR-80 13:39:53 PAGE13-28

WRITE, WRITE CHECK ONES W/ WCE ERROR

016370 000137
g}g 016374

017244

808 :

913

914 016374

915 016374
916 016402
917 016410
918 016416

919 016422
920 016426
921 016432
922 016436
923 016442

JMP

3508

SEQ 0099

;GO TO 3508 IF ERROR

:WRITE DATA TO THE DRIVE

012737
012737
012737
012702

177400
106320
000061
001551

001412
001414
001410

1208:

MOV
MOV
MOV
MOV

#-256. ,RMWCO
:CHANGE WORD COUNT
#BUF ONE +4 , RMBAO
s CHANGE MEMORY ADDRESS
#JD ' GO,RMCS10
sWRITE DATA COMMAND
#PUT
INX ,R2
sLOAD PUT REGISTER INDEX TABLE

112722
112722
112722
112722
112722

000006
000034
000032
000004
000002

352 016452

112722

000200

927 016456

004737

044500

016464
016466
016470

000240
104000
000137

017244

S 016474

004737

044144

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

932
" 016500

004737

045042

;WAIT FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

004737

044230

924 016446

016462

ggg 016474

934

935 016504

016510

016512

016514

112722

000404

000000

000240

104000

016516

000137

017244

939 016522

004737

045226

016530
016532
016534

000240
104000
004736

g;g 016522

938

016526

016536

000405

940 016542
941 016542

000137

017244

004737

057742

016550
016552
016554

000240
104000
004736

016546

016556

000405

942 016562
943 016562

000137

017244

004737

046060

016570
016572

000240
104000

016566

000405

MOVB
MOVB
MOVB
MOVB
MOVB

#RMDA, (R2)+
ARMDC. (R2)+
ARMOF. (R2)+
#RMBA. (R2)+
A#RMWC, (R2)+

MOVB

#200, (R2)+

MOVB
JSR

NOP
EMT

1308 :

A#RMCST,(R2)+

PC,PUT

1308

3508

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

;GO _TO 1308 IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUT INE

;GO TO 3508 IF ERROR

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
B8R
1408
;GO _TO 1408 IF NO ERROR
NOP
sRETURN HERE IF ERROR
EMT
sERROR # DEFINED BY GET SUBROUTINE
JMP
3508
;GO TO 3508 IF ERROR

1408 :

;CHECK 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 SUBROUT INE
JSR
PC,a(SP)+
;GO BACK FOR MORE ERROR CHECKS
JMP
3508
;GO TO 3508 IF ERROR

1508
:

JSR

1608:

PC,DTASTS

1608

NOP
EMT
JSR

PC,a(SP)+

JSR

PC,SECERR

JMP

NOP
EMT

3508
1808

;GO VERIFY RESULTS OF DATA TRANSFER

:G0 TO 1608 IF NO ERROR

sRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR
;GO CHECK FOR SECGEJDAR& ERRORS

:GO TO 1808 If

:RETURN HERE IF ERROR

:ERROR # DEF INED BY SECERR SUBROUTINE

-—d

CZRMOAO RMOS5/3/2 FCTNL TST 3

TMm

.Jég

0 RMO5/3/72 FCTNL TST 3

J 8
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-29

WRITE, WRITE CHECK ONES W/ WCE ERROR

016574

004736
000137

017244

012737

016610

SEQ 0100
JSR
JMP

180%:

001124

MOV

AL E

952 016610

958 016620
016624

97
973 016706
016712
016714
016716
016720
974 016724
975

976

77
978

979
980

;GO TO 3508 IF ERROR

AR A

#1908, SLPERR

ARttt

s ittt
T332

WRITE CHECK DATA

190%:

012703
040337

000001
107316

004737

040472

154130

1958:

000137

MOV

BIC

#1,R3
R3,BUF TWO-2

sR3+WCE BIT POSITION
s CHANGE LAST WORD OF BUFFER

;PREPARE DEVICE FOR WRITE CHECK DATA OPERATION

000404
000240

34
959 016640
960
961
962 016640

;GO BACK FOR MORE ERROR CHECKS

3508

: CHANGE LOOP ADDRESSES

LOOP 3
953
954 016610
955 016614
956
957

PC,a(SP)+

017244

200%:

JSR
.WORD

PC,TSTPRP

BR
NOP
EMT
JMP

200%

154130

3508

;PREPARE DEVICE FOR TEST
s 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
sRECALIBRATE IF ''SKI''
OR 'PIP'' IS SET
;VERIFY_RECALIBRATION
;GO _TO 2008 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3508 IF ERROR

;:READ DATA FROM DEVICE

012737

000051
001551
000006
000032
000034
000004
000002
000000
000200

001410

2408:

MJIC
' GO,RMCS10
D

#PU
INX T
R2
#RMDA, (R2) +
#RMOF
, (R2) +

016724

044144

016730

045042

;LOAD PUT REGISTER INDEX TABLE

#RMDC. (R2)+

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

#RMCST, (R2)+

#200, (R2)

044500

017244

JWRITE CHECK DATA DATA COMMAND

PC,PUT

2508
3508

2508:

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

160 TO 2508 IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEF INED BY PUT SUBROUTINE

;G0 TO 3508 IF ERROR

:SETUP GE;RINDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
;GO TO GETSTS SUBROUTINE

;WAIT FOR COMMAND TO COMPLETE
JSR

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE CHECK DATA OPERATION

%%WO RMO5/3/72 FCINL TST 3
1

MACRO v03.01 11-APR-80 13:39:53 PAGE13—30

WRITE, WRITE CHECK ONES W/ WCE ERROR

981 016734

004737

016744

104000

016740 000404
016742 000240

044230

JSR

gg 016752

984

985 016752

004737

016756 000405

2608 :

032737

040000

989 017002

004737

057742

001030

017006 000405
017010 000240

017012
017014

017016

104000
004736

000137

017244

991 017022

013737

001344

993 017036
99 017044
995 017050

013737
010337
012737

001344
001174
107316

&Z 017060

000471

990 017022

992 017030

996 017056

999 017062

052737

104337

040000

1000 017062

112737

000022

017106

004737

044230

017112
. 017114

000240
104000

017070 112737 000200
017076 012737 017244

017110 000402

1002 017116

1003 017116
1004 017126

013737
013737

1006 017136
1007 017144
1009 017160

1005 017132

001344

2708:

1010 017166

:ERROR # DEFINED BY GET SUBROUTINE

001140

EMT
JSR

PC,a(SP)+

BIT

MJCE ,RMCS2]

;WAS ‘WCE'' DETECTED??

JSR

PC.DTASTS

260 VERIFY RESU.TS OF DATA TRANSFER

EMT
JSR

PC,a(SP)+

MOV

RMCS21, $GDDAT

;EXPECTED STATUS

MOV
MOV
MOV

RMCS21, SBDDAT
R3,$TMPO
#BUF TWO=2, $TMP1

;RECEIVED STATUS
*FAILING BIT POSITION
*FAILING ADDRESS

3508

JMP

001176

001522

JMP
BIS

001142

EMT

285$:

001523
001356

MOVB

MOVB
MOV
JSR

3508

2858

2808

3508

MJCE , SGODAT

337

:GO TO 2708 IF NO ERROR

*RETURN HERE IF ERROR

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

:GO TO 3508 IF ERROR
YES!!

: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

m GETINX

;SETUP GET INDEX TABLE

PC,GET

:GO READ RMDB VIA GET SUBROUTINE

c Genux+1
#350$
, RMDB

:SETUP TERMINATOR BYTE
:SET RMDB INPUT BUFFER = 3508

MOV
MOV

RMDB] , SBDDAT
BUF TWO=2, SGDDAT

;RECEIVED DATA
*EXPECTED DATA

NOP
EMT

2908:

;GO CHECK FOR PRIMARY ERRORS

2763

BR
NOP
2808
:

PRIERR

:G0 TO 2908 IF NO ERROR

JRETURN HERE IF ERROR
*ERROR DEF INED BY GET SUBROUTINE

001142
001140

012737
013737

107316
001340

001134
001136

MOV
MOV

#BUF TWO-2, SGDADR
RMBA] , $8DADR

;EXPECTED ADDRESS
*RECEIVED ADDRESS

023737

001134

001136

$GDADR, SBDADR

*ADDRESSES 0K??

050337

001402

001140

BIS

SuB

BEQ

340

54
023737
001402

1016 017206

000416

1017 017210

*GO TO 3508 IF ERROR

001356
107316

1012 017172
1013 017174
1014 017202
1015 017204

3508

BNE

1008 omgs 162737 000002 001136

1011 017170

JMP

NOP

104000
004736

987 016772

988 017000

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

JSR

016766 000137 017244

986 016772

2608

;CHECK FOR ERRORS ounme WRITE CHECK DATA OPERATION

045226

016760 000240
016762
016764

;GO READ REGISTER(S) WITH GET SUBROUTINE

BR
NOP
EMT

016746 000137 017244

PC,GET

SEQ 0101

001142

295%:

104341

*CORRECT MEMORY ADDRESS

SYES!!

BR
CMP
BEQ

3508
$GDDAT, SBDDAT
96$

:DATA 0K??
SYES!!

3508

EMT

2968
:

#2 . SBDADR
295$

EMT

001140

R3,$GDDAT

CZRMOAC RMOS5/3/2 FCTNL TST 3

WRITE, WRITE CHECK ONES W/ WCE ERROR

1018
1019 017210

004737

017220
017222

104000
004736

017214 000405
017216 000240

046060

017224

000137

017244

1021 017230

050337

107316

1024 017240

000137

016614

1020 017230

1022 017234
1023 017236

1025 017244
1026

006303
001402

JSR

PC,SECERR

EMT
JSR

PC,a(SP)+

B8R
NOP
3008:

JMP

3508

BIS

R3,BUF TWO=2

JMP

195%

ASL
BEQ
3508:

1027

MR AR E AR d

J*TEST 12

017244

017244
017246
017250
017254
017260
ous 017264

;GO CHECK FOR SECONDARY ERRORS

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

:ERROR # DEFINED BY SECERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;RESTORE DATA PATTERN

R3
350$

*SHIFT TO NEXT BIT
*EXIT IF DONE

:REPEAT TEST FOR NEXT DATA BIT

ittt sttt

12232222322223223

WRITE, WRITE CHECK MULTIPLE SECTORS

;:ttttttttttttttttttttfit'ttttttttttttttt.ttt'ttt'.tttttt.tt't'ttt

000004
000240
012706
013700
013701
012737

TST12:

SCOPE
NOP
MOV
MOV
MOV
MOV

001100
001276
001464
000012 001226

1029

#STACK, SP
$BASE , RO
TSTQUE ,R1
#12,$TESTN

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

;:ttttfittttttttttttttttttt'tttttttttttttttttltttttttttttttttttt't

]'8%)

;LOOP #1

}35:% 017272
1035 017272
017276

108:
004737
154130

000404
000240

017306

000137

020250

1039 017312
1040 017320
1041 017326
1042 017334
1043 017342
}34“5 017350

012737
012737
012737
012737
012737
012737

000000
000000
106314
176774
010000
000063

004737

041416

}339 017312

1038

017356

017362

104000

000405

;PREPARE THE DEVICE FOR FORMAT OPERATION

040472

017300
017302

017304

FORMAT ,WRITE ,WRITE CHECK

JSR
LWORD

PC.TSTPRP
154130

BR
NOP

208

JMP

3508

EMT

208:

001444
001416
001414
001412
001442
001410

:PREPARE DEVICE FOR TEST
*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

:GO 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
MOV
MOV
MOV
MOV
MOV

#0,RMDCO
#0 .RMDAO
#8UF ONE ,RMBAO
#-258.,+2 ,RMWCO
#FMT16,RMOFO
MJH'GO.RMCS10

;VERIFY THAT SECTOR IS NOT BAD
JSR

PC ,BADSCT

25§

:CYLINDER = 0
;TRACK = 0, SECTOR = 0
:BUS ADDRESS
: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

1034

1046

3008

SEQ 0102

|S—

13k

MACRO v03.01 11-APR-80 13:39:53 PAGEL 13'31

MACRO Vv03.01 11-APR-80 13:39:53 PAGE15-32

WRITE, WRITE CHECK MULTIPLE SECTORS

D d

104401
104000
000137

—

“'|065 017474
106
.

308:

408:

MOVB

#RMBA. (R2)+

MOVB

#200, (R2)

JMP

JSR

;GO GENERATE BUFFER FOR FORMAT

#RMDA. (R2)+

#RMWC. (R2)+
#RMOF. (R2)+
#RMCST,(R2)+

PC,PUT

408

3508

: TERMINATE

TABLE

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

sRETURN HERE IF ERROR

:ERROR # DEF INED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

PC, TIMOUT

;GO TO TIMOUT SUBROUTINE

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

508

JMP

3508

NOP
EMT

50%:

;VERIFY NO ERRORS DURING FORMAT

057742

JSR

PC,.DTASTS

NOP
EMT
JSR

PC.a(SP)+

020250

60$:

b
b

EaX
OF

001124
_——

000060

A#RMDC, (R2)+

;WAIT FOR COMMAND TO COMPLETE

020250

177000
106314

s STARTING ADDRESS OF PATTERN

:RANGE OF PATTERN

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

044230

017614

ERROR # DEFINED BY BADSCT SUBROUTINE

PC. GENBUF

MOVB

NOP
EMT

07
1075
1076 017522

#ZEROS
, $TMPO
#1,8TMP1

JSR

888

017512
017514
017516
}072 017522

MOV
MOV

]

1070
1071
1072 017504
017510

;GO TO 3508 IF ERROR

;:FORMAT THE DRIVE

020250

045042

3508

MOVB
MOVB
MOVB

044500

017500

JMP

MOVB

000002
000032
000000
000200

044144

:TYPE BAD SECTOR MESSAGE

sLOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
#PUTINX ,R2
MOV
;R2 = BYTE ENTRY POSITION

001551
000034

017474

,SCTMSG

JSR

NNNNQNNN
N

D
e
d e
b e
b e

n
N

—

ooog

001174
001176

)

FERES

55 017426
6 017432

-t
b b b d O

D i

017416

TYPE

EMT

020250

071730
000001
043344

) D d

(elelelele]

D e
D

070230

SEQ 0103 |

JMP

608

3508

;GO _TO 508 IF NO ERROR

sRETURN 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
sRETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

sMOVE LOOP ADDRESSES TO NEXT OPERATION
#708,$LPE RR
MOV
REGENER%E DATA BUFFER
MOV
MOV

#-256.+2 ,RMWCO
#BUFONE, RMBAO
M ,RMCS10

s CHANGE WORD COUNT
s CHANGE BUS ADDRESS
:WRITE DATA

—_

CZRMOAQ RMOS5/3/2 FCTNL TST 3

CZRMOAQ RMO5/3/2 FC.TM. TST 3

MACRO Vv03.01 11-APR-80 13:39:53 PAGE15-33

WRITE, WRITE CHECK MULTIPLE SECTORS

004737
000410

000001
043344

MOV
MOV
JSR
BR

001176

NONES, smpo
#1,$THP
PC Gemur
80§

ARttt

;LOOP #2

SEQ 0104 |

;STARTING ADDRESS OF PATTERN
*RANGE OF PATTERN
:SKIP TO WRITE OPERATION

e ittt
123223222

WRITE,WRITE CHECK

708
:

004737
154130

;PREPARE DEVICE FOR URITE OPERATION

040472

JSR

.WORD

PC,TSTP

154
130

;PREPARE DEVICE FOR TEST

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

80%:

e e
b
b

o
S

OOSOOO cooo

020250

00.737

044144

017724

004737

045042

004737
000404
000240
104000

044230

bd
ara
-l
O
G0Ny

001410

120%:

JMP

3508

MOV
MOV

RETLRN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 3508 IF ERROR

#RMDA, (R2)+
#RMDC.(R2)+
#RMOF. (R2)+
#RMBA. (R2)+
WRMWC. (R2)+

MOVB

#200, (R2)+

JSR

BR
NOP
EMT

130%:

#D ! GO,RMCS10
#PUTINX ,R2

MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

044500

N
8

d
e

WN=O

004737
000404
000240

104000
000137

—

e
o
b e

d e
b b
d

e cod

d
b
— d
—d cd
el
e

beded
b

000061
001551
000006
000034
000032
000004
000002
000000
000200

17656

bk
-t
d

80%

:RECALIBRATE IF ‘'SKI""
OR ‘PIP'* IS SET
VERIFY RECAL IBRATION
0 808 IF NO ERROR

;WRITE DATA TO THE DRIVE

17642
646

017740

NOP
EMT

020250

IRBIRIRIC28 3

;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE

JMP

;WRITE DATA COMMAND
*LOAD PUT REGISTER INDEX TABLE

#RMCST, (R2)+

PC,PUT

1308

3508

;TERMINATE TABLE
:GO WRITE Recxsrsnm WITH PUT SUBROUT INE

:GO TO 1308 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

;WAIT FOR COMMAND TO COMPLETE

JSR

PC, TIMOUT

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
JSR

BR
NOP
EMT

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

CZRMOAQ RMO5/3/2 FCTNL TST 3

T12

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

WRITE, WRITE CHECK MULTIPLE SECTORS

017742 000137 020250

} }gg 017746

1124
1125 017746

004737

017756
017760

104000
004736

017752 000405
017756 000240
017762

000137

020250

004737

057742

017776
020000

104000
004736

017772 000405
017774 000240

020002

004737

020016
020020

104000
004736

020012 000405
020014 000240

000137

020250

1133 020026
H%’% 020034

012737
000410

020036

1132

BR
NOP
EMT
JSR

1508:

1608:

001124

1136

PC,a(SP)+

3508

JSR

PC,DTASTS

EMT
JSR

PC,a(SP)+

;GO TO 3508 IF ERROR

1608

*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 # DEF INED BY DTASTS SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

JMP

3508

*GO TO 3508 IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

EMT
JSR

PC,a(SP)+

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

B8R
NOP
JMP

1808 :

1508

JMP

BR .
NOP

046060

020022

; g? 020026

3508

:CHECK FOR ERRORS ounme WRITE OPERATION
JSR
PC ,PRIERR
;GO CHECK FOR PRIMARY ERRORS

000137 020250

1128 020006
1129 020006

JMP

1408

045226

1126 017766
1127 017766

SEQ 0105 |

1808

3508

:GO TO 180 IF NO ERROR
:RETURN HERE IF ERROR

:GO TO 3508 IF ERROR

;CHANGE LOOP ADDRESSES

MOV
B8R

#1908, SLPERR
2008

:SKIP TO NEXT OPERATION

;:tt'ttttt*tttttttttttttttt'ttttttttttt*tttttittttttttttttttttttt

Hgg

:LOOP #3

”13.3 020036
1141

1142 020036

020042

WRITE CHECK

1908 :
004737

154130

pneme osvxce FOR READ OPERATION

040472

.uono

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

020044
020046

000404
000240

020052

000137

020050

; ;22 020056

104000

1147 020056
1148 020064

1149 020070
1150 020074

2008

JMP

3508

EMT

020250

2008 :

1145

1146 020056

B8R
NOP

:VERIFY PACK ACKNOWLEDGE
,
:RECALIBRATE IF ''SKI"
OR 'PIP'* IS SET
*VERIFY RECALIBRATION

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

:ERROR # DEF INED BY TSTPRP SUBROUT INE

:GO TO 3508 IF ERROR

-READ DATA FROM DEVICE

012737
012702

112722
112722

000051
001551

000006
000032

001410

2408:

MOV
MOV

MOVB
MOVB

MJICD ! GO,RMCS10
#PUTINX .R2

ARMDA, (R2)+
HRMOF
. (R2)+

;READ DATA COMMAND
:LOAD PUT REGISTER INDEX TABLE

CZRMOAD RMOS5/3/
WRITE,

T ST
3

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

SEQ 0106

HE CK MULTIPLE SECTORS

000034

000004
000002
000000
000200
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

044500

;G0 _TO 2508 IF NO ERROR
:RETURN HERE IF ERROR

020250

044144
045042

044230

020250

045226

;ERROR # DEFINED BY PUT SUBROUTINE

:GO TO 3508 IF ERROR

2508:

;SETUP GE; INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE
PC, TIMOUT
JSR

057742

NOP
EMT

260$%:

JMP

046060

3508

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

270%:

PC.,a(SP)+

:ERROR # DEF INED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

JSR

PC,DTASTS

;GO VERIFY RESl.LTS OF DATA TRANSFER

JMP

280%:

3508

2808

:GO TO 3508 IF ERROR

:GO TO 2808 IF NO ERROR
:RETURN HERE IF ERROR

JSR

PC,a(SP)+

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

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

JMP

B8R

JSR

300$:

:RETURN HERE IF ERROR

JSR

NOP
EMT

020250

:RETURN HERE IF ERROR

:CHECK FOR ERRORS DURING READ OPERATION
PC,PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS
2708
;GO _TO 2708 IF NO ERROR
BR

NOP
EMT

020250

;GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR READ OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR
2608
;GO _TO 2608 IF NO ERROR

NOP
EMT

020250

;GO TO GETSTS SUBROUTINE

JMP

3508

3008

PC,a(SP)+

3508

:GO TO 3508 IF ERROR

;GO TO 3008 IF NO ERROR
:RETURN HERE IF ERROR

sERROR # DEF INED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
:GO TO 3508 IF ERROR

350%:
fitttt..ttttttt..ttt*ttttt'.titttttttt'*l't"tt.tttt'tt'tt"".t

RTEST 13
S

020250
020250

2332323323323

TST13:

SCOPE

WRITE, READ W/ IMPLIED SEEK

223323233 3323233233233 333 3232232323233

:SCOPE CALL

32232332R0R020200 0222 3]

%%WO RMO5/3/72 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-36
3
WRITE, READ W/ IMPLIED SEEK

020252
020254
020260
020264
T 020270

000240
012706
013700
013701
012737

NOP
MOV
MOV
MOV
MOV

001100
001276
001464
000013 001226

1180

:LooP #1

}}S{ 020276

108:

#STACK, SP
$BASE ,R0O
TSTQUE ,R1
#13,$TESTN

SEQ 0107

;START OF TEST
mxmuze STACK POINTER
*RO= UNIBUS ADDRESS
*(R1) = DEVICE BEING TESTED
*;SET TEST NUMBER IN APT MAIL BOX

.':tttttt*tt'tt'tt'tt'tt't't"'tt.ttttt'tt.t'.t't't'.lt'ttttt'it't

”g;

1185
1186 020276

020302

004737

154130

FORMAT ,WRITE ,READ

:PREPARE THE DEVICE FOR FORMAT OPERATION
JSR
PC, TSTPRP
:PREPARE DEVICE FOR TEST

040472

LWORD

154130

*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

020304
020306
020310
o 020312
1188
1189 020316
1190 020316
1191 020324
1192 020332
1193 020340
1194 020346
1195 020354
Hgg 020362
1198
020370
020374

020376
020402

020404
1200 020410
1201 020416
}2285 020424

1199 020410

000404
000240
104000
000137 021470
012737
012737
013737
012737
012737
012737
012737

000000
000000
001444
106314
177376
010000
000063

004737

041416

104401
104000

070230

000405

000137
012737
012737
004737

1205 020430 012702 001551
1206 020434

112722

000034

1209 020450
1210 020454

112722
112722

00000
00003

1211 020460
1212 020464

1213 020470

112722
112722

112722
112712

001444
001416
021472
001414
001412
001442
001410

021470
071666 001174
000001 001176
043344

1204

1207 020440
1208 020444

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

BR
208
:GO TO 208 IF NO ERROR
NOP
*RETURN HERE IF ERROR
EMT
*ERROR # DEFINED BY TSTPRP SUBROUTINE
JMP
3508
*GO TO 3508 IF ERROR
:LOAD PARAMETERS AND GENERATE DATA BUFFER
20$:
MOV
#0,RMDCO
;CYLINDER = 0
MOV
#0 . RMDAO
*TRACK = 0, SECTOR = 0
MOV
RMDCO, 360
*SAVE DESIRED CYLINDER
MOV
#BUF ONE , RMBAO
*BUS ADDRESS
MOV
#-258. ,RMWCO
22 + 256. WORDS (2'S COMP)
MOV
#FMT16.RMOF O
‘16 BIT FORMAT
MOV
#WH!GO.RMCS10
*WRITE HEADER AND DATA COMMAND
;VERIFY THAT SECTOR IS NOT BAD
JSR
PC ,BADSCT
;CALL BAD SECTOR MODULE
BR
258
*GO TO 258 IF NO ERROR
TYPE
EMT

258:

3508
#ONES , STMPO
#1,8TMP1
PC. GENBUF

*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

MOV

#PUTINX ,R2

MOVB
MOVEB

WRMDA. (R2)+
ARMBA. (R2)+

MOVB

000006
000004

000200

JMP
MOV
MOV
JSR

,SCTMSG

MOVB
MOVB

308:

MOVB
MOVB

#RMDC, (azn

:R2= BYTE ENTRY POSITION

M#RMWC. (R2)+
#RMOF . (R2)+

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

:TERMINATE TABLE

CZRMOAQ RMOS5/3/2 FCTNL 1ST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-37
WRITE, READ W/ IMPLIED SEEK

004737

044144

020512

004737

045042

020516
020522

004737

044230

=20

Voow

021470

1227
1228 020534
020540
020542
020544
020546

1232 020554
1233 020562

1234
1235
1236
1237
1238 020564
1239
1240
1241 020564
020570

020572
0600
1242 020604
1243 020604

40%:

020564

JMP

3508

;WAIT FOR COMMAND TO COMPLETE
JSR

;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

PC, TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
B8R
508
;GO _TO 508 IF NO ERROR
NOP
sRETURN HERE IF ERROR
EM
;ERROR # DEFINED BY GET SUBROUTINE

JMP

50%:

3508

;VERIFY NO ERRORS DURING FORMAT
JSR

NOP
EMT
JSR

021470

012737
000410

408

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

057742

020550

NOP
EMT

021470

1225 020534
1226

1229 020554
1230
1231

;FORMAT THE DRIVE
JSR
PC,PUT

044500

104000
000137

SWNN

—

oo
oo

—

—s

004737
000404
000240

SEQ 0108

JMP

60%:

001124

PC,DTASTS

608

PC,a(SP)+

3508

;GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;GO _TO 608 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

sMOVE LOESVADDRESSES TO NEXT OPERATION
BR
MR

#708,SLPERR

80%

;SKIP TO WRITE OPERATION

ARt ett
I3
t
222222232322;

;LOOP #2

WRITE ,READ

70%:

004737
154130

; PREPARE DEVICE FOR WRITE OPERATION
PC TSTPRP
;PREPARE DEVICE FOR TEST

040472

000404
000240
104000
000137

021470

012737

001466

UORD

154130

80%

EMT
JMP

3508

MOV

#822. ,RMDCO

NOP

001444

s TASK DESCRIPTOR AS FOLLOWS:

:VERIFY_RECAL IBRATION

:G0_TO 808 IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 3508 IF ERROR

sSEEK TO LAST CYLINDER

r
9
CZRMOAO RMO5/3/72 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-38
113
WRITE, READ W/ IMPLIED SEEK

}gzls. 020612

012737

000005

1246 020620

004737

044500

020624

000404

001410

104000

000137

021470

o 020636

004737

044144

ek 020642

004737

045042

1253
1254 020646

004737

044230

1249
1251

020652
020654

020656

000404
000240
104000

020660

000137

021470

1257
1258 020664

004737

052344

}ggz 020664

020670
020672

000405
000240

020676

004736

020674

020700

;523 020704

908 :

1263 020704
1264 020712
1265 020720
1266 020726
1267 020734

1268 020740
1269 020744
1270 020750
1271 020754
1272 020760

1273 020764

JMP

:GO TO 908 IF NO ERROR

3508

:GO TO 3508 IF ERROR

JSR

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE

JSR

PC, TIMOUT

;GO GET REGISTER STATUS
JSR
PC,GET

BR
NOP

1008

JMP

3508

EMT

1008 :

BR
NOP

1108

JSR

PC,a(SP)+

EMT

021470

1108:

JMP

3508

:ERROR # DEFINED BY PUT SUBROUT INE

;GO TO GETSTS SUBROUTINE

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

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

:ERROR # DEFINED BY GET SUBROUTINE

:GO TO 3508 IF ERROR

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

:ERROR # DEF INED BY SEKSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;SETUP PARAMETERS AND EXZUTE WRITE DATA COMMAND

013737
012737
012737
012737
012702
112722
112722
112722
112722
112722

112722

021472
177400
106320
000061
001551

001444
001412
001414
001410

1208:

000006
000034
000032
000004
000002

000000

MOV
MOV
MOV
MOV
MOV

360$,RMDCO
#-256. ,RMJCO
#BUF ONE +4 , RMBAO
MID ' GO,RMCS10
#PUTINX,R2

MOVB
MOVB
MOVB
MOVB
MOVB

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

MOVB

M#RMCST, (R2)+

000200

MOVB

#200, (R2)+

1276 020774

004737

044500

JSR

PC,PUT

021004
021006
;5% 021012

104000
000137

021470

004737

045042

= 021012

*RETURN HERE IF ERROR

;VERIFY RESULTS OF SEEK COMMAND
JSR
PC,SEKSTS
;GO VERIFY RESULTS OF SEEK OPERATION

112722

1279

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

90$

}5;15 020770

021000
021002

;WRITE SEEK COMMAND

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

1261

1262 020704

PC,PUT

EMT

104000

000137

JSR

NOP

020632

}gzg 020636

#SEEK ! GO,RMCS10

020626 000240

020630

MOV

SEQ 0109

000404
000240

BR
NOP
EMT

1308 :

1308

3508

;WAIT FOR COMMAND TO COMPLETE
JSR

PC, TIMOUT

:RESTORE CYLINDER
:CHANGE WORD COUNT
:CHANGE BUS ADDRESS
*WRITE DATA COMMAND
:LOAD PUT REG:STER INDEX TABLE

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

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

:ERROR # DEF INED BY PUT SUBROUT
INE
*GO TO 3508 IF ERROR

;GO TO TIMOUT SUBROUTINE

CZRMOAO RMO5/3/2 FCTNL TST 3

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

WRITE, READ W/ IMPLIED SEEK

1281
1282 021016

021022

004737

SEQ 0110

;GO READ STATUS FOR WRITE COMMAND

044230

JSR

NOP
EMT

021470

JMP

140%:

021470

1508

EMT
JSR

PC,a(SP)+

JSR
BR

PC,DTASTS
1608

JMP

150%:

057742

021470

PC,a(SP)+

JSR
BR

PC,SECERR
1808

JSR
JMP

PC,a(SP)+
3508

NOP
EMT

021470

021124

180%:

001124

3508

NOP
EMT
JSR

JMP

160%:

046060

012737
000410

3508

NOP

021060
021062
021064
021066

1408

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO _TO 1408 IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEF INED BY GET SUBROUTINE
;GO TO 3508 IF ERROR

:CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC,PRI
;GO CHECK FOR PRIMARY ERRCRS

045226

1287 021054
1288 021054

PC,GET

3508

;GO _TO 1508 IF NO ERROR

sRETURN 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
sRETURN 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 'F NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

;CHANGE LOOP ADDRESSES
MOV
#1908, SLPERR
BR

2008

:SKIP TO NEXT OPERATION

. 3t*fit'*ttfitttttt*ttttttttitttttttt*ttti.tttttttfit't'.ti’ti'ti!t'

:LoOP #3

READ

190%:

004737
154130

;PREPARE DEVICE FOR READ OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
.WORD
154130
s TASK DESCRIPTOR AS FOLLOWS:

040472

000404
000240

104000

NOP

000137

021470

012737
012737

001466
000005

EMT

001444
001410

200%:

2008

JMP

3508

MOV
MOV

#822. ,RMDCO
#SEE
1 GO,RMCS10
K

: VERIFY RECAL IBRATION

0 _TO 2008 IF NO ERROR

sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE

;GO TO 3508 IF ERROR

sSEEK TO LAST CYLINDER

;WRITE

SEEK COMMAND

H 9
CZRMOAQO RMO5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-40
WRITE, READ W/ IMPLIED SEEK

004737
000404
000240

044500

000137

021470

004737

044144

004737

045042

004737

044230

2108:

b
b

021344

1341
1342
1343 021350

3508

PC,GETSTS

PC, TIMOUT

;GO GET REGISTER smus
JSR

BR
NOP
EMT

021470

220%:

JMP

PC,GET

2208

3508

;VERIFY RESUTS OF SEEK COMMAND

052344

JSR

PC,SEKSTS

EMT
JSR

PC,a(SP)+

B8R
NOP

021470

230%:

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

:GO TO 2108 IF NO ERROR

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

:GO TO 3508 IF ERROR

JMP

2308

3508

;GO TO GETSTS SUBROUTINE

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

:GO TO 2208 IF NO ERROR
*RETURN 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
*RETURN HERE IF ERROR

:ERROR # DEF INED BY SEKSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

ius.eruuo PARAMETERS AND EXCUTE READ DATA COMMAND

021472
000071
107324
001551
000006
000032
000034
000004
000002
000000
000200

MOV
MOV
MOV
MOV

srON

1338 021344
1339
0

JSR

N3
—

2108

;WAIT FOR COMMAND TO COMPLETE

N = =

d e
—

pary

- —

o
N
o
N

021326
021332

JSR

888

&
SO0

NNNN%N

OO0000O0
o

Som

gk
SHRUKZE 3
oo
3

021322

JMP

PC,PUT

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

_— -

WY
oV,

D
—

d
)
—

ababead

WWW

b
-

WWWW

d e

W NINNN NN
NN
~N

e e

d D

) =D

WWW

D )

321 021244
322
3
324 021244

—d

NOP
EMT

—
d

104000

JSR

SEQ 0111

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

044500

JSR

NOP
021470

045042

044230

EMT

JMP

3608, RMDCO
#RD
! GO,RMCS10
#BUF TWO+4 ,RMBAO
#PUTINX ,R2

#RMDA, (R2)+
#RMOF
. (R2)+
#RMDC. (R2)+
#RMBA. (R2)+
ARMWC. (R2)+
#RMCST,(R2)+

#200, (R2)

PC,PUT

2508

3508

;WAIT FOR COMMAND TO COMPLETE
JSR

;RESTORE CYLINDER
*READ DATA COMMAND
:LOAD STARTING BUFFER ADDRESS
:LOAD PUT REGISTER INDEX TABLE

PC, TIMOUT

;GO WRITE REGISTER(S) uxm PUT SUBROUT INE

:GO TO 2508 IF NO ERROR

*RETURN HERE IF ERROR

*ERROR # DEFINED BY PUT SUBROUTINE

*GO TO 3508 IF ERROR

2GO TO TIMOUT SUBROUTINE

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

CZ§KVO RMOS5/3/2 FCTNL TST 3

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

WRITE, READ W/ IMPLIED SEEK

SEQ 0112

021354 000404
021356 000240

BR
NOP

2608

021362 000137 021470

JMP

3508

021360

&42 021366
1346

104000

1347 021366

004737

021376
021400

104000
004736

021372
021374
021402

000405
000240

000137

021470

004737

057742

021416
021420

104000
004735

000405
000240

021422

000137

021470

021432
021434

000405
000240

004737

046060

1350 021426
1351 021426

021436
021440

021442

1352 021446
1353 021446
021452
021454

104000
004736

000137

021470

004737

043602

106320
107324

2608 :

JSR

B8R
NOP
2708
:

2808:

104000

021464

000137

}ggg 021470

000401

}ggg 021472

000000

1354 021470
1355
1356 021470

PC,a(SP)+

JSR

PC,DTASTS

EMT
JSR

PC,a(SP)+

JMP

:GO TO 3508 IF ERROR

3608:

;GO VERIFY RESULTS OF DATA TRANSFER

:GO TO 280% IF NO ERROR
*RETURN HERE IF ERROR

:ERROR # DEFINED BY DTASTS SUBROUT 'NE
:GO BACK FOR MORE ERROR CHECKS

PC,SECERR

EMT
JSR

PC,a(SP)+

*ERROR # DEF INED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

PC,CMPBUF

;GO COMPARE WRITE, READ DATA BUFFERS

3108

;GO TO 3108 IF NO ERROR
*RETURN HERE IF ERROR

JMP
JSR

EMT

3508:

:GO TO 3508 IF ERROR

JSR

BR
NOP
3108:

2808

*ERROR # DEFINED BY PRIERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

3508

.WORD
.WORD

021470

3508

;G0 CHECK FOR PRIMARY ERRORS

:G0 TO 2708 IF NO ERROR
*RETURN HERE IF ERROR

JMP
B8R
NOP

3008:

PC,PRIE

270s

EMT
JSR

BR
NOP

021456 000404
021460 000240
021462

*ERROR # DEFINED BY GET SUBROUTINE

;CHECK FOR ERRORS ounmc READ OPERATION

045226

1348 021406
1349 021406

021412
021414

EMT

;GO TO 260 IF NO ERROR
*RETURN HERE IF ERROR

3008

3508

BUFONE
+4
BUF TWO+4

JMP

3508

3708

.WORD

:GO TO 3508 IF ERROR

;GO CHECK FOR SECONDARY ERRORS

:G0 TO 3008 IF NO ERROR
*RETURN HERE IF ERROR

:GO TO 3508 IF ERROR

:STARTING ADDRESS OF WRITE BUFFER
:STARTING ADDRESS OF READ BUFFER

:ERROR # DEF INED BY CMPBUF SUBROUT INE

*GO TO 3508 IF ERROR

}3325 021474

3708 :

1“3

‘ t't'tttttttlt'tttttt'ttttt"tttttfitt.ttttt'tttit'ttt!tttt'ttttt

-rssr 14

021474

021474
021476
021500
021504
021510
Rt 021514
1365

1366

WRITE, WRITE CHECK W/ HEAD SWITCHING

tt'tttt.tt'.ttt.tttt't't't'tttl.tttttttttttttt'ttttttl'tt".ttt

000004
000240
012706
013700
013701
012737

5714

001100
001276
001464
000014

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK, SP
$BASE ,R0
TSTQUE ,R1
#14,$TESTN

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

::l’t".'ttttt'tttt.tt'."'t"t..t...tl....t.t.t'.tt.t.l'.'tl.tttt

‘LooP #1

FORMAT ,WRITE ,WRITE CHECK

CZRMOAO RMOS5/3/2 FCTNL TST 3

J 9
MACRO Vv03.01 11-APR-80 13:39:53 PAGE 12-42

WRITE, WRITE CHECK W/ HEAD SWITCHING

1367

1368

1369 021522

1370 021522

1371 021530

137§ 021536

1373 021544
1374 021552
1375 021560

;:LOAD PARAMETERS AND GENERATE DATA BUFFER

012737

000000

112737

000037

112737

012737
012737
012737

000000

010000
106314
176774

g;g 021566 012737 000063

1378

021574

004737

041416

021602
021606

104401
104000

070230

021600 000405

001444

001417

001416

001442
001414
001412

000037

1382 021624

012737

071666

001174

}% 021640

004737

1386

1387 021644
021650

012737

000001

004737
154130

040472

043344

021652
021654

000404
000240

021660

000137

022702

1391 021664

012702

001551

1393 021674
1396 021700
1395 021706
1396 021710

112722
112722
112722
112722

021656

;3333 021664
1390

1392 021670

104000

112722

MOVB

MOV
MOV
MOV

MOV

#0,RMDCO

208
:

#3i..RMDAO

*SECTOR = 31.

#JH'!GO,RMCS10

*WRITE HEADER AND DATA COMMAND

#FMT16,RMOFO
#BUF ONE ,RMBAO
#-258.%2 ,RMWCO
PC ,BADSCT

3508

:GO TO 3508 IF ERROR

CMPB

RMDAO,#31.

MOV

#ONES ,$TMPO

JSR

PC , GENBUF

MOV
JSR
.WORD

B8R
NOP

308

JMP

3508

EMT

308 :

PC,TSTPRP
154130

MOV

000034

MOVB

#PUTINX .R2

#RMDC, (R2)+

#200, (R2)

1401 021724

004737

044500

021734
021736

000137

1402 021742

104000

000000

022702

+STARTING ADDRESS OF PATTERN

“RANGE OF PATTERN

+GO GENERATE BUFFER FOR FORMAT
;PREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:
:SELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE

JVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF ''SKI"* OR 'PIP'* IS SET
:VERIFY RECALIBRATION

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

JERROR # DEFINED BY TSTPRP SUBROUTINE

:GO TO 3508 IF ERROR

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

MOVB

000404
000240

:BR IF NO

sPREPARE THE DEVICE FOR FORMAT OPERATION

000200

021730
021732

;1S LAST TRACK ASSIGNED ?

#1,$TMP1

112712

1400

sTYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROUTINE

158

#RMDA. (R2)+
#RMBA. (R2)+
#RMJC. (R2)+
WRMOF . (R2)+

112722

;CALL BAD SECTOR MODULE

JMP

.SCTMSG

MOVB
MOVB
MOVB
MOVB

1397 021714

216 BIT FORMAT
*BUS ADDRESS
:WORD COUNT FOR 2 SECTORS (2'S COMP)

:GO TO 208 IF NO ERROR

000006
000004
000002
000032

ggg 021720

STRACK = 0

208

BNE

001176

;CYLINDER = 0

#0.RMDAO+1

TYPE
EMT

001416

1383 021632

MOVB

JSR

123727

001345

158:

MOV

sVERIFY THAT SECTOR IS NOT BAD

022702

1381 021622

10s:

001410

021610 000137

1379 021614
1380 021614

SEQ 0113

MOVB

#RMCST, (R2)+

:FORMAT THE DRIVE
JSR

408

JMP

3508

EMT

408:

PC,PUT

BR
NOP

:R2 = BYTE ENTRY POSITION

;TERMINATE TABLE
:GO WRITE REGISTER(S) WITH PUT SUBROUT INE

:GO TO 408 IF NO ERROR
:RETURN HERE IF ERROR

:ERROR # DEF INED BY PUT SUBROUT INE

:GO TO 3508 IF ERROR

C 4 RMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-43
T “
WRITE, WRITE CHECK W/ HEAD SWITCHING
]

1403
1404

004737

0464144

” 021746

004737

045042

1408
1409 021752

004737

044230

5 021742

14606

;SETUP GE; INDEX TABLE TO READ ALL REGISTERS
PC.GETSTS

JSR

PC, TIMOUT

;GO TO TIMOUT SUBROUTINE

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

50%:

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

057742

NOP
EMT
JSR

022702

JMP

60%:

022062 001124

043344

;GO TO GETSTS SUBROUTINE

;WAIT FOR COMMAND TO COMPLETE

022702

177000
106314
071730
000001
000060

SEQ 0114

001412
001414
001174
001176
001410

608

;GO TO 608 IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SUBROUTINE

PC,a(SP)+

;GO BACK FOR MORE ERROR CHECKS

3508

;GO TO 3508 IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION

MOV

#708, SLPERR

:REGENERATE BUFFER

MOV
MOV
MOV
MOV
MOV

JSR
B8R
MR

AR AR

:LooP #2

#-256.%2 ,RMJCO
#BUF ONE ,RMBAO
#ZEROS
, $TMPO
#1,$TMP1
MJID ,RMCS10

s CHANGE WORD COUNT
s CHANGE BUS ADDRESS
sSTARTING ADDRESS
RANGE

‘WRITE DATA

PC ,GENBUF
80§
e

*GENERATE BUFFER
*SKIP TO WRITE OPERATION

22232322222%;

WRITE,WRITE CHECK

708
:

: PREPARE osvxcs FOR mne OPERATION
pc TSTPR
sPREPARE DEVICE FOR TEST

040472

.uono

154130

sTASK 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
RECAL IBRATE IF "SKI"* OR 'PIP'* IS SET

022076
1435 022102
1436 022102

022702
012737

000005

80$

JMP

3508

Moy

#SEE
' GO,RMCS10
K

NOP
EMT

e
001410

B8R
"

VERIFY RECAL IBRATION

(60
T0 80$ IF NO ERROR

RETLRN HERE IF ERROR

ERR(R # DEFI&D BY TSTPRP SUBROUT INE
GO TO 3508IF ERROR

;LOAD SEEK COMMAND

CZRMOAQO RMOS5/3/72 FCTNL
T
TST 3

MACRO V03.01 11-APR-80 13:39:53 PAGE 12-44
WRITE, WRITE CHECK W/ HEAD SWITCHING

004737

044500

20
gg

000137

022702

022126

004737

044144

022132

004737

045042

1446 022136

0047(3):

044230

022150
1447 022154
1448

1449
1450 022154

022160

022170
1451 022174

009
000137

022702

004737

052344

000405

000137

000061
001551
000006
000034
000032
000004
000002
000000
000200

1465 022242

004737

044500

90$

3508

PC,GETSTS

sWAIT FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

:GO GET REGISTER STATUS
JSR

B8R

NOP
EMT

100%:

JMP

PC,GET

100$

3508

;VERIFY RESULTS OF SEEK COMMAND
JSR

B8R

JSR

022702

012737
012702
112722
112722
112722
112722
112722
112722
112722

PC,PUT

GO WRITE REGISTER(S) WITH PUT SUBROUTINE
0 _TO 908 IF NO ERROR

RETLRN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

;SETUP GE; INDEX TABLE TO READ ALL REGISTERS

NOP
EMT

1452
1453
1454 022174
1455 022174
1456 022202
1457 022206
1458 022212
1459 022216
1460 022222
1461 022226
1462 022232
12243 022236

022246
022250
022252
022254

:
908

JSR
BR
NOP
EMT
JMP

SEQ 0115

1108:

PC,SEKSTS

1108

PC,a(SP)+

3508

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE
;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO _TO 1008 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUT INE

;GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF SEEK OPERATION

;GO TO 1108 IF NO ERROR

:RETURN HERE IF ERROR
;ERROR # DEF INED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

:WRITE DATA TO THE DRIVE

000404
000240
104 000
000137

022702

001410

1208:

MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB

MOVB
MOVB
JSR

BR
130%:

NOP
EMT
JMP

D! GO,RMCS10
#PUT
INX ,R2
#RMDA, (R2)+
#RMDC.(R2)+
ARMOF
. (R2)+
#RMBA. (R2)+

;WRITE DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

#RMJC. (R2)+

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

130s

3508

: TERMINATE TABLE

H BRITS
REGISTER(S) UITH PUT SUBROUT INE

;GO _TO 1308

sRETURN HERE IF ERRM

sERROR # DEFINED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

468
° 022260

004737

044144

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

022264

004737

045042

;WAIT FOR COMMAND TO COMPLETE
PC, TIMOUT
JSR

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND

Mm99
CZRMOAO RMOS5/3/72 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-45
T14
WRITE, WRITE CHECK W/ HEAD SWITCHING

1473 022270
022274
022276
022300
022302

1474 022306
1475
1476
1477 022306

004737
000404
000240
104000
000137

322

NOP
EMT

022702

;ERROR # DEFINED BY GET SUBROUTINE

3508

;GO TO 3508 IF ERROR

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,a(SP)+

;G0 BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

sRETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

NOP
EMT
JSR

001124

GO _TO 1508 IF NO ERROR

;GO TO 3508 IF ERROR

JMP

180%:

1508

3508

JMP

160%:

022702

022376

:RETURN HERE IF ERROR

PC,a(SP)+

046060

012737
000410

;GO READ REGISTER(S) WITH GET SUBROUTINE
GO TO 1408 IF NO ERROR

1408

NOP
EMT
JSR

JMP

150%:

022702

022352
022354
022356
022360
022362

PC,GET

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

057742

1
2
1481 022346

JMP

140%:

022702

022332

022402

JSR

045226

1478 022326
1479 022326

1482 022366
1483
1484
1485 022366
1486 022374
1487
1488
1489
1490
1491 022376
1492
1493
1494 022376

044230

SEQ 0116

:RETURN HERE IF ERROR

1608

3508
180s

3508

;CHANGE LOOP ADDRESSES
MOV
#1908, SLPERR
BR
2008
PR

‘LooP #3

WRITE CHECK

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

;G0 _TO 1608 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SUBROUTINE
;GO TO 3508 IF ERROR

;GO TO 1808 IF NO ERROR

;GO TO 3508 IF ERROR

;SKIP TO NEXT OPERATION
it 1322222232323222223

190%:

004737

154130

;PREPARE DEVICE FOR READ OPERATION
JSR
PC,TSTP,
;PREPARE DEVICE FOR TEST
.WORD
54130
sTASK DESCRIPTOR AS FOLLOWS:

040472

:SELECT DEVICE & VERIFY DEVICE AVAILABLE

:CLEAR CONTROLLER & SELECT DEVICE

sVERIFY CONTROLLER CLEAR OPERATION

022702

012737

000005

004737

044500

2008

JMP

3508

MOV

#SEEK
! GO,RMCS10

JSR

PC,PUT

NOP
EMT

001410

2008:

:6G0_TO 2008 IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUT INE

;GO TO 3508 IF ERROR

:LOAD SEEK COMMAND

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
.

022412

1495 022416
1496 022416
1497
1498 022424

000404
000240
104000
000137

:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF "SKI'*
OR ‘PIP'*
IS SET
:VERIFY_RECAL IBRATION

CZRMOAO RMOS5/3/2 FCTNL TST 3

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

WRITE, WRITE CHECK W/ HEAD SWITCHING

2430
022432

0004
000240

BR
NOP

2108

022436 000137 022702

JMP

3508

022434

104000

EMT

%’6’3 022442
1501
e 022442

004737

044144

e 022446

004737

045042

1505
1506 022452

004737

044230

1503

022456 000404
022460 000240

022462

022464

} gog 022470

1509

1510 022470

2108:

JSR

022504

}gg 022510

JMP

3508

JSR

NOP

104000
004736

EMT
JSR

000137 022702

2308:

JMP

012737
012702

1522 022546

112722

000051
001551

001410

2408:

MOV
MOV

112722
112722
112722
112722
112722

000006
000032
000034
000004
000002

112712

.000200

1525 022556

004737

044500

022564

000240

NOP

022570

000137 022702

JMP

}ggz 022552

022562
022566

} gg(; 022574

SEKSTS

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

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

:ERROR # DEFINED BY GET SUBROUTINE

*GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF SEEK OPERATION

2363

:GO TO 2308 IF NO ERROR

PC,a(SP)+

*ERROR # DEFINED BY SEKSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

3508

*RETURN HERE IF ERROR

:GO TO 3508 IF ERROR

:READ DATA FROM DEVICE

1515 022510
1516 022516
1517 022522
1518 022526
1519 022532
1520 022536
1521 022542

2208

:GO VERIFY RESULTS OF SEEK

052344

1513

1514 022510

B8R
NOP
EMT

022476 000240

022500
022502

PC, TIMOUT

;GO READ REGISTER STATUS
JSR
PC,GET

2208:

000404

000000

1528

WRMDA, (R2)+
#RMOF
. (R2)+
#RMDC.(R2)+
#RMBA. (R2)+
ARMWC. (R2)+

MOVB

#200, (R2)

JSR

EMT

2508 :

MJCD ! GO,RMCS10
#PUTINX .R2

MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

104000

:READ DATA COMMAND
:LOAD PUT REGISTER INDEX TABLE

#RMCST, (R2)+

PC,PUT

2508

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

:GO TO 2508 IF NO ERROR

*RETURN HERE IF ERROR

*ERROR # DEF INED BY PUT SUBROUTINE

*GO TO 3508 IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

dain 022574 004737 044144
1530

JSR
PC,GETSTS
;WAIT FOR COMMAND TO COMPLETE

1532

;GO READ STATUS FOR READ OPERAT ION

\o 022600

1533 022604

022610

004737

045042

004737

044230

000404

.
|

;WAIT FOR COMMAND TO COMPLETE

104000

022474 000405

;GO TO 2108 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUT INE
*GO TO 3508 IF ERROR

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

000137 022702
004737

SEQ 0117 ‘

JSR

PC,TIMOUT

PC,GET

260s

;GO TO GETSTS SUBROUTINE

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

:GO TO 2608 IF NO ERROR

000240
104000

000137

NOP
EMT

022702

1538 022642
1539 022642

022646
022650

1540 022662
1541 022662
022666

022670
022672
022674
022676

1542 022702
1543
1544 022702
1545
1546

JMP

260%:

3508

B8R

022702

PC,a(SP)+

:G0_TO 2708 IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

JSR

PC.DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,a(SP)+

sRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

NOP
EMT
JSR

PC,a(SP)+

JMP

2708:

057742

2bs

NOP
EMT
JSR

3508

B8R

022702

JMP

280%:

046060

2808

3508

022702

3008

JMP

300%:

3508

;GO TO 3508 IF ERROR

;GO _TO 280$ IF NO ERROR

;GO TO 3508 IF ERROR

;GO _TO 3008 IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

350%:
LA

sttt ettt
3223222323228222

trssr 15

WRITE, WRITE CHECK W/ MID-TRANSFER SEEK

tt'ttfitttttt"ttttttttttt".!tt.'..t.ttitttttfi'fittfitfi'tt"'tt.'

t115:

SCOPE

NOP
MOV

MOV
MOV
MOV

001226
A

#STACK,
SP
$BASE ,R0O
TSTQUE ,R1

#15,8TESTN

:SCOPE CALL
:START OF TEST
INITIALIZE STACK POINTER
= UNIBUS ADDRESS
(R1) = DEVICEC BEING TESTED

:;SET TEST NUMBER IN APT MAIL BOX

g gttt
eIl I12233222323222222222%;

*LooP #1

FORMAT ,WRITE ,WRITE CHECK

——d
e
e
)

PR aF O F o F B O o
— e
SNk =k PN
oSNNS

ibgAD PARAMETERS AND GENERATE DATA BUFFER

8888888

o208

g 888

022702
022702
022704
706
022712
022716
022722

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

;CHECK FOR ERRORS DURING READ OPERATION
JSR
ERR
;GO CHECK FOR PRIMARY ERRORS

045226

sRETURN HERE IF ERROR

158:

MOV
MOV
MOVB

MOV
MOV
MOV
MOV

#0,RMDCO
LSTRK,RMDAO
#31.,RMDAO

#FMT16,RMOFO
#BUF ONE ,RMBAO
#-258.%2 ,RMWCO
#MH!GO,RMCS10

;VERIFY THAT SECTOR IS NOT BAD
JSR

PC,BADSCT

20§

sCYLINDER = 0
sSET _LAST TRACK AND
sLAST SECTOR
;16 BIT FORMAT
:BUS ADDRESS

sWORD COUNT FOR 2 SECTORS (2°' COMP)

JWRITE HEADER AND DATA COMMAND
;CALL BAD SECTOR MODULE
;GO TO 208 IF NO ERROR

——————————l

022612
022614

SEQ 0118

B 10
C 4 RMOAQ RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12=47
T1 4
WRITE, WRITE CHECK W/ HEAD SWITCHING

MACRO v03.01 11-APR-80 13:39:53 PAGE 1g-48
C1

104401

TYPE
EMT

070230

STELEERER

023724

001417

001333

071730
000001
043344

001174
001176

040472

:
208

.SCTMSG

JMP

3508

CMPB
BNE
MOV

RMDAO+1 ,LSTRK+1
15%
#ZEROS ,$TMPO
M, STMPT
PC. GENBUF

MOV
JSR

SEQ 0119

;TYPE BAD SECTOR MESSAGE

;ERROR # DEF INED BY BADSCT SUBROUTINE
;GO TO 3508 IF ERROR
;1S LAST TRACK ASSIGNED ?

;BR IF NO
;STARTING ADDRESS OF PATTERN
sRANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT
—

C RMOAO RMOS5/3/2 FCINL TST 3
T 5
WRITE, WRITE CHECK W/ MID-TRANSFER SEEK

; PREPARE EHE DEVICE FOR FORMAT OPERATION

.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
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE

BR
023724

e =D

vivvwuniaun i
~
o

NOP

o
N
W

—
- —

N
WW

001551
000034
000006
000004
000002
000032
000000
000200
004737
000404
000240

044500

000137

023724

004737

044144

004737

045042

004737
000404
000240
104000
000137

044230

104000

1584 023150
1585
586
” 023150
1588

023154

1589
1590
1591 023160

1592 023176
1593

023724

EMT

25%:

JMP

25%
3508

:RECALIBRATE IF ‘'SKI* OR ‘PIP'' IS SET
sVERIFY RECALIBRATION
:GO_TO 25$ IF NO ERROR
:PETURN HERE IF ERROR

;ERROR # DEFINED BY (STPRP SUBROUTINE

;GO TO 3508 IF ERROR

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
MOV
#PUTINX ,R2
;R2 = BYTE ENTRY POSITION

MOVB

30%:

MOVB
MOVB
MOVB
MOVB
MOovB
MovB
JSR

NOP
EMT

:
408

JMP

#RMDC, (R2) +

#RMDA, (R2) +
#RMBA, (R2) +
#RMWC, (R2) +
#RMOF , (R2) +
#RMCS1, (R2)+
#200, (R2)
PC,PUT

408

3508

s TERMINATE TABLE

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

:ERROR # DEF INED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

;SETUP GE; INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE
JSR

PC, TIMOUT

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO READ g;ATUS FOR FORMAT OPERATION
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR
508
:GO TO 508 IF NO_ERROR
:RETURN HERE IF ERROR
NC°
EMT
;ERROR # DEFINED BY GET SUBROUTINE
JMP
3508
;G0 TO 3508 IF ERROR

50%:

CZRMOAQ RMOS5/3/2 FCTNL TST 3

115

D 10

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

WRITE, WRITE CHECK W/ MID-TRANSFER SEEK

1594
1595 023176

SEQ 0120

sVERIFY MgRERRORS DURING FORMAT
PC,DTASTS
;GO VERIFY RESULTS OF DATA TRANSFER
BR
60$
;GO TO 608 IF NO ERROR
NOP
:RETURN HERE IF ERROR

057742

EMT

023724

60%:

023270

023224
023232

012737

000060

—_

N
W
N

012737

D e

D ed e

D d e

§B2538222842
8

1596 023216
1597

JSR
JMP

PC,a(SP)+

3508

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

sMOVE LO%ADDRESSES TO NEXT OPERATION
#708 ,SLPERR

REGENERATE BUFFER

MJD ,RMCS10

#-256.%2 ,RMWCO

177000
106314
071666
000001
043344

#BUF
ONE , RMBAO

#ONES
, $TMPO

#1,$TMP1

;WRITE DATA
s CHANGE WORD COUNT
s CHANGE BUS ADDRSS
;PATTERN ADDRESS
;PATTERN RANGE

M
o

D e
d
b
—

anh wd Gob

sttt sttt
222222232222

LO(P n2
o
N

b cud aud

(o Yo Yo Yo Yo 3

)

;SKIP TO WRITE OPERATION

023270
023274

023276
023300
023302
023304
1617 023310

1618
1619
1620 023310
1621 023310

:
708

004737
154130

023362
023364

: PREPARE DEVICE FOR WRITE OPERATION

040472

.UORD

023724

80%:

BR
NOP
EMT
JMP

PC,TSTPRP

154130

80%

3508

sPREPARE DEVICE FOR TEST
: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
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

%WITE DATA TO THE DRIVE

001551
000032

1629 023352
1630
1631 023356

WRITE ,WRITE CHECK

001410

MID ' GO,RMCS10
#PUT
INX ,R2
#RMDA, (R2) +

;WRITE DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

ARMDC, (R2) +
#RMOF, (R2)
+
#RMBA. (R2)+
ARMIC . (R2)+

000200

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

044500

PC,PUT

1308

s TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO _TO 1308 IF NO ERROR

:RETURN HERE IF ERROR

E 10
CZRMOA0 RMO5/3/2 FCINL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-50
15
WRITE, WRITE CHECK W/ MID-TRANSFER SEEK

023366
023370

000137

023724

023374

004737

044144

004737

045042

004737

044230

1632 023374
1633

104000

EMT
JMP

1308

JSR

NOP
EMT

JMP

1408
:

;GO READ REGISTER(S) WITH GET SUBROUTINE

1408

*GO TO 1408 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE

3508

*GO TO 3508 IF ERROR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

001124

3508

:GO TO 3508 IF ERROR

1608

:GO TO 1608 IF NO ERROR

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

PC,a(SP)+

JMP

3508

:GO TO 3508 IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

:ERROR # DEFINED BY SECERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

EMT
JSR

:GO TO 1508 IF NO ERROR

JSR

B8R

023724

1508

PC,a(SP)+

NOP

1658
1659
1660 023512
023516

PC,GET

*RETURN HERE IF ERROR
:ERROR # DEF INED BY PRIERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

JMP

046060

JMP

1808

:GO TO 180$ IF NO ERROR
*RETURN HERE IF ERROR

3508

*GO TO 3508 IF ERROR

s CHANGE LOOP ADDRESSES
01"
#1908, SLPERR
BR

22 L2

a2 2 s

;LOOP #3

1656
1657 023512

;GO TO TIMOUT SUBROUTINE

NOP
EMT
JSR

023724

1653
1654
1655

PC,TIMOUT

;CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PCRIERR
:GO CHECK FOR PRIMARY ERRORS

057742

023512

;GO TO GETSTS SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND

023724

012737
000410

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE

045226

1650
1651 023502
1652 023510

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

3508

sSETUP GET INDEX TABLE TO READ ALL REGISTERS

023724

6
1648 023502
1649

SEQ 0121

2008

;SKIP TO NEXT OPERATION

22223 2222222222222 223222222222222222211 5

WRITE CHECK

1908:

004737
154130

040472

;PREPARE DEVICE FOR READ OPERATION
JSR

JWORD

PC,TSTPRP

154130

sPREPARE DEVICE FOR TEST

s TASK DESCRIPTOR AS FOLLOWS:

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

TST 3

F 10

MACRO V03.01 11-APR-80 13:39:53 PAGE 12-51

HECK W/ MID-TRANSFER SEEK

SEQ 0122

sVERIFY PACK ACKNOWLEDGE

;RECALIBRATE IF ''SKI'' OR "PIP'' IS SET

W
N

N
W

023724

EMT

200%:

3508

;VERIFY RECALIBRATION
;GO _TO 2008 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3508 IF ERROR

i Gy
QS
o

S
e

— e

§U\
g

1672 023570
1673 023574
1674

d OO

'2520 DATA FROM DEVICE

288

—

282585328&
33

NOP

2008

000051
001551
000006
000032
000034
000004
000002
000000
000200

044144
045042

044230

023724

045226

023724
057742

1690 023704

MOVB

044500

023724

MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

023724

JSR

B8R
250%:

NOP
EMT
JMP

MICD
! GO,RMCS10
#PUT
INX . R2
#RMDA, (R2) +
#RMOF
. (R2)+
#RMDC. (R2)+
#RMBA. (R2)+
#RMWC. (R2)+
#RMCST, (R2)+

;READ DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

#200, (R2)
PC,PUT

2508

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO _TO 2508 IF NO ERROR

sRETURN HERE

IF ERROR

;ERROR # 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 READ OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

B8R

2608

JMP

3508

NOP
EMT

260%:

;GO _TO 2608 IF NO ERROR
sRETURN HERE IF ERROR

;ERROR # DEFINED BY GET SUBROUT INE

;GO TO 3508 IF ERROR

: CHECK rog ERRORS
DU”'NGRREAD OPERAT ION
;GO CHECK FOR PRIMARY ERRORS

NOP
EMT
JSR

:
2708

NP
JSR

NOP
EMT
JSR

280$:

JMP

PC,a(SP)+

3508

PC,DTASTS

2808

PC,a(SP)+

3508

;GO TO 2708 IF NO ERROR

:RETURN HERE

IF ERROR

;ERROR # DEF INED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 280$ IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

CZRMOAD RMOS5/372 FCTNL TST 3

TS5

G 10
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-52

WRITE, WRITE CHECK W/ MID-TRANSFER SEEK

1691 023704

004737

023712
023714
023716

000240
104000
004736

023710

023720

1692 023724
1693

000405

000137

SEQ 0123

046060

JSR

PC,SECERR

3008

NOP
EMT
JSR

023724

3008
:

}gg‘s. 023724

PC,a(SP)+

3508

:GO TO 3508 IF ERROR

-rEsr 16

WRITE,

023740
1697 023744

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

3508 :

1696

023724
023724
023726
023730
023734

;GO0 CHECK FOR SECONDARY ERRORS

:G0_TO 3008 IF NO ERROR

000004
000240
012706
013700
013701
012737

TST16
001100
001276
001464
000016

SCOPE
NOP
MOV
MOV
MOV
MOV

1698

}%93

LOOP #1

#STACK,SP
$BASE ,RO

TSTQUE ,R1
#16,$TESTN

eI I

22322222

2222232

222222222

READ W/ HCE ERROR

223

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

ettt 222222222228

FORMAT ,WRITE ,READ

1701 023752
1702 023756

012704
012703

000000
000001

108:

1705
1706 023762

004737

040472

;PREPARE THE DEVICE FOR FORMAT OPERATION
JSR
PC,TSTPRP
sPREPARE DEVICE FOR TEST

;;82 023762

023766

023770
023772
023774

1707 023776

154130

000404
000240
104000

000137

15%:

025572

012737
012737

000000
000000

1713 0240246

012737

177376

1714 024032

1717

012737

106314

012737
012737

000063

0264046

004737

041416

024056
024060

104401
104000

070230

};}2 024040

024052

154130

BR
NOP
EMT

208

370%

;R4 = 1ST HEADER WORD
:R3 = HCE BIT

sTASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF "SKI'* OR 'PIP'' IS SET
sVERIFY RECALIBRATION
:GO TO 208 IF NO ERROR

JRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 3708 IF ERROR

; LOAD PARAMETERS AND GENERATE DATA BUFFER

1710 024002
1711 024010

1712 024016

#0,R4
#1,R3

.WORD

JMP

1708

1709 024002

MOV
MOV

000405

010000

001444
001416

001414

001412

001442

001410

208:

MOV
MOV

MOV

#0 ,RMDCO
#0 ,RMDAOD

sCYLINDER
= 0
sTRACK
= 0, SECTOR = 0

#-258. RNCO

2+ 256 UORDS (2'S COMP)

#BUF ONE .RMBAO
#FMT16.RMOFO

M!GO.RHCS1O

sVERIFY THAT SECTOR IS NOT BAD

:BUS ADDRESS

;16 BIT F
hRITE HEADER AM) DATA COMMAND

JSR

PC ,BADSCT

;CALL BAD SECTOR MODULE

TYPE
EMT

.SCTMSG

;TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUT INE

25$

:G0 TO 258 IF NO ERROR

RMOAQ RMOS/3/72 FCTNL TST 3

WRITE, READ W/ HCE ERROR

NNNNNNNNNN ~ NNNNNNNNNY
N
NN

025420

012737
012737
004737

071730
000001
043344

030364

106314

001174
001176

20 024074
024102

000137

MACRO v03.01

—

o
n
&»

SIFKRUK
S&3

28 024122

350%

;GO TO 3508 IF ERROR

MOV
MOV

#ZEROS
, $TMPO
#1,$TMP1

;STARTING ADDRESS OF PATTERN
sRANGE OF PATTERN

JSR

BEQ

106314
106314

26$:

sRESET BIT FOR HCE

BIS

R3,BUF
ONE (R&4)

;SET FOR HCE

B8R

n
&H

MOVB
MOVB
MOVB
MOVB
MOVB

b
-d

024210
1748
1749 024214
024220
024222
NNN \J

024224
024226
1750 024232
1753

1752
1753 024232

1754 024252
1755

1756
1757 024252

1758 024260

27%

é%gAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

000004
000002
000032
000000
000200

1742 024204

26$

R3,BUF
ONE (R4)

MOV

026172
024174
024176
024200

;GO GENERATE BUFFER FOR FORMAT

BIC

001551
000034

1 026166

. GENBUF
PC

: CHANGE HEADER WORD TO FORCE HCE DURING WRITE & READ
BIT
R3,BUF
ONE (R4)
sSET OR RESET FOR HCE??

024126
024132

o0
N

il
D il

JVP

o~
N

1 024126

il i

D e

D i

D sl

4 024106
5 026112

25%:

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

MOVB
MOVB

30%:

044500

JSR

NOP

EMT

025420

408:

JMP

#PUTINX ,R2

MRMDC, (R2)+
#RMDA. (R2)+

#RMBA. (R2)+
#RMWC. (R2)+
#RMOF
., (R2) +
#RMCST, (R2)+
#200, (R2)
PC,PUT

408

3508

;R2 = BYTE ENTRY POSITION

; TERMINATE TABLE
;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO TO 408 IF NO ERROR
RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

044144

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

045042

;WAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

044230

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

508

JMP

3508

NOP
EMT

025420

50%:

;VERIFY NO ERRORS DURING FORMAT

057742

JSR

NOP
EMT
JSR

025420

024262

60$:
001124

JMP

PC,DTASTS

60$

PC,a(SP)+

3508

;GO TO TIMOUT SUBROUTINE

;GO _TO 508 IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEF INED BY GET SUBROUTINE

;G0 TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;G0 _TO 608 IF NO ERROR

:RETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

sMOVE Logs ADDRESSES TO NEXT OPERATION
#708, SLPERR
BR
80%
;SKIP TO WRITE OPERATION

SEQ 0124

—

%%gHDAO RMOS5/372 FCTNL TST 3

WRITE, READ W/ HCE ERROR

MACRO v03.01

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

SEQ 0125

1759
R

R R

‘{oop #2

154130

B8R

000404
000240

000137

NOP

EMT

025420

80%:

106320
177400

000061
001551
000006
000034
000032
000004
000002
000000
000200

012737

JMP
MOV
MOV
MOV
MOV

R TR AR AR AR R

AR R

AR AR AR AR R AR AR AR AN

WRITE ,READ

80$

3508

:SELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ‘''SKI'' OR 'PIP'" IS SET
sVERiIFY RECALIBRATION
;GO _TO 80$ IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3508 IF ERROR

025420

024402

044144

024406

004737

045042

024412

004737
0004
000240

044230

000137

025420

#RMDA, (R2)+
#RMDC.(R2)+
ARMOF. (R2)+
#RMBA. (R2)+
#RMWC. (R2)+

MOVB

#200, (R2)+

:TERMINATE

JSR

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

B8R

NOP
EMT

130%:

#BUF ONE +4 , RMBAQ s CHANGE BUS ADDRESS
#-256. ,RMJCO
s CHANGE WORD COUNT
MJD !GO ,RMCS10 ;WRITE DATA COMMAND
#PUTINX ,R2
;LOAD PUT REGISTER INDEX TABLE

MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

044500

339 39 ¥

i%ire DATA TO THE DRIVE
b aud

1767 024302
1768
1769
1770 024302
1771 024302
1772 024310

;PREPARE DEVICE FOR wnne OPERATION
JSR
PC,TSTPR
;PREPARE DEVICE FOR TEST
.wono
154130
s TASK DESCRIPTOR AS FOLLOWS:

040472

024270
024272
024274
024276

004737

024266

A A

:
708

888

1763 024262
1764
1765
1766 024262

JMP

#RMCST, (R2)+

1308

TABLE

;GO _TO 1308 IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEF INED 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
r?
conPLETE

JSR

IMOU

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
JSR

NOP
EMT

JMP

PC,GET

1408

3508

;GO READ REGISTER(S) WITH GET SUBROUT INE

;GO _TO 1408 IF NO ERROR

:RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUT INE

;GO TO 3508 IF ERROR

J 1

%%R’DAO
RMO5/3/72 FCTNL TST 3 MACRO v03.01 11-APR-80 13:39:53 PAGE 12-55
6
WRITE, READ W/ HCE ERROR
1794

1795 024430

004737

024434 000405

:CHECK FOR ERRORS ouamc WRITE OPERATION

045226

JSR

024436 000240

NOP

024442

JSR

024440

104000

EMT

004736

b 024444 000137 025420

JMP

1797

005704

1802 024454

032703

145$:

}38? 024452 001006
010000

1809 024470 032737 000200 001350
}g}? 024476 001102
1812 024500

004737

024506
024510
024512

000240
104000
004736

024504 000405

1814 024520
1815 024526

013737
012737

001350
000200

1818 024542
1819 024546

005237
010337

001174
001176

1816 024534 010437 001174
1817 024540 001002
104344

1468:

057742

*ERROR # DEFINED BY PRIERR SUBROUT INE
*GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;1S THIS THE FIRST HEADER WORD ?

BIT

#FMT16,R3

;SHOULD FER BE SET ?

1468

155%
#MSE ' USE ,R3
1658

‘NO !

‘YES!
suouw BSE BE SET ?
SYES !

BIT
BNE

#HCE ,RMER1]
175$

:WAS HCE DETECTED ??
SYES ')

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,a(SP)+

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

MOV
MOV

RMER11,$BDDAT
#HCE, SGDDAT

JRECEIVED STATUS
JEXPECTED STATUS

INC
MOV

$TMPO
R3,$TMP1

:R3 = BIT POSIITON

JMP

3508

B8R

024514 000137 025420
001142
001140

1508
:

1518:

1823

JMP

MOV
BNE

}3225 024554 000137 025420

EMT

1508

3508

R4, $TMPO
151$
344

*GO TO 1508 IF NO ERROR

:GO TO 3508 IF ERROR

‘R4 = HEADER WORD NUMBER AND
*ADJUST NUMBER.

;VERIFY THAT A FORMAT ERROR WAS DETECTED

1825 024560

032737

000020

1828 024570

004737

057742

024600
024602

104000
004736

}ggg 024566 001046

024574 000405
024576 000240

001350

0246064 000137 025420
1830 024610 o1§737 000020 001140
1831 024616 013737 001350 001142
1829 024610

104343

}gg‘ 024626 000137 025420
1835

*RETURN HERE IF ERROR

:VERIFY THAT A HEADER COMPARE ERROR WAS DETECTED

1808 024470

1as§ 024626

3508

*GO TO 145% IF NO ERROR

BNE
BIT
BNE

1807

1824 024560

PC,a(SP)+

;GO0 CHECK FOR PRIMARY ERRORS

TST

BNE

1803 024460 001037
1804 024462 032703 140000
}ggg 024466 001061

1820 024552

1458

:DECODE THE TYPE OF ERROR PRODUCED BY THE BIT POSITION OF R3

1798 024450
1799 024450

1813 024520

PC ,PRIERR

155%:

BIT

#FER,RMER11]

.WAS FER DETECTED ??

JSR

PC,DTASTS

:GO VERIFY aesuus OF DATA TRANSFER

EMT
JSR

PC,a(SP)+

*ERROR # DEFINED BY DTASTS SUBROUT INE
co BACK FOR MORE ERROR CHECKS

EMT

BNE

BR
NOP
1608
:

JMP
MOV
MOV

JMP

1758

1608

3508
#FER, SGDDAT
msah $BDDAT

SYES ')

*GO TO 1608 IF NO ERROR
*RETURN HERE IF ERROR
GO TO 3508 IF ERROR
;EXPECTED STATUS
:RECEIVED STATUS

3508

;VERIFY THAT A BAD SECTOR ERROR WAS DETECTED

SEQ 0126

1836 024632

032737
001021

100000

MACRO v03.01 11-APR-80 13:39:53 PAGE 18-56
K1

001376

165%:

BIT
BNE

057742

025420

001376
100000

001142
001140

JSR
BR
NOP
EMT
JSR
JMP

170$:

JYES

DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

;WAS BSE DETECTED ??
!!

;GO TO 1708 IF NO ERROR

sRETURN HERE IF ERROR

PC,a(SP)+

3508

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

MOV
MOV

RMERZ2I , $BDDAT
g?gE .$SGDDAT

sRECEIVED STATUS
JEXPECTED STAIUS

JMP

3508

EMT

025420

SEQ 0127

SE E ,RMER2I
5$

I35 I

C 4 RMOAQ RMOS5/3/72 FCTNL TST 3
T1
WRITE, READ W/ HCE ERROR

:CHECK FOR OTHER ERRORS

175$:

046060

1850 024724
1851
1852

1853 024724

1854
1855
1856
1857
1858 024732
1859
1860
1861 024732

024736

025420

024732

JSR
BR
NOP
EMT
JSR

180%:

001124

PC,SECERR

1808

PC,a(SP)+

3508

;GO CHECK FOR SECONDARY ERRORS

;GO _TO 1808 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

: CHANGE LOOP ADDRESSES
MOV

.LO(P #3

#1908, SLPERR

d ittt
I
I
T332 2322222222223

READ

:
1908

040472

;PREPARE DEVICE FOR REAgOPERATION
PC,TSTPI
JSR
;PREPARE DEVICE FOR TEST

.WORD

154130

s 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

024740
024742
024744
024746

1862 024752
1863
1864
1865 024752

BR
NOP

025420

:
2008

EMT
JMP

200%
3508

sRECALIBRATE IF ''SKI'* OR "PIP'" IS SET
VERIFY RECAL IBRATION
TO 2008 IF NO ERR(R

RETLRN HERE IF ERR

;ERROR # DEF INED BY TSYPRP SUBROUT INE

;GO TO 3508 IF ERROR

: READ DATA FROM DEVICE

107324
177400
000071

001551
000006

2408

MOV
MOV
MOV
MOV

MOvB

#BUF TWO+4 ,RMBAO s CHANGE BUS ADDRESS
#RD !GO ,RMCS10

#PINX
UT
,R2

#RMDA, (R2)
+

:CHANGE WORD COUNT

:READ DATA COMMAND
:LOAD PUT REGISTER INDEX TABLE

CZRH)AO RMO5/3/72 FCTNL TST 3
WRITE, READ W/ HCE
E

1871 025004
1872 025010

1876 025030
1877

1878 025034

025040
025042
025044
025046

004737

000032
000034
000004
000002
000000
000200

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

044500

PC,PUT

025052

044144

025056

045042

2508
3508

250%:

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE

JSR

:RETURN HERE IF ERROR

:ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 35C$ IF ERROR

PC, TIMOUT

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION
JSR

B8R

NOP
EMT

025420

2608:

JMP

PC,GET

260s
3508

;GO READ REGISTER(S) UITH GET SUBROUTINE
:GO TO 2608 IF NO ERR

:RETURN HERE IF ERROR

:ERROR # DEFINED BY GET SUBROUT INE

;GO TO 3508 IF ERROR

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

045226

2658

JMP

3508

;GO _TO 2658 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEF INED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

:'{S WIS THE FIRST HEADER WORD ?

BIT
BNE
BIT
BNE

#FMT16,R3
275%
#MSE 'USE ,R3
285$

Slggll.b FER BE SET ?

NOP
EMT
JSR

025420

265%:

BNE

010000
140000

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

GO _TO 2508 IF NO ERROR

:SETUP GE; INDEX TABLE TO READ ALL REGISTERS

044230

SROREB3RRI
RIS

SEQ 0128 |

#RMOF, (R2)
+
#RMDC, (R2)
+
#RMBA. (R2)+
ARMUC . (R2)+

025420

1879 025052

1884

MCRO v03.01 11-APR-80 13:39:53 PAGEL11g-57

PC,a(SP)+

2668

SE‘CSM.D BSE BE SET ?

; VERIFY THAT A HEADER COMPARE ERROR WAS DETECTED

001102

000200

001350

266%

057742

001350

#HCE ,RMER1]
2958

JSR

PC,DTASTS

025420

013737

BIT
BNE

001142

:
2708

2708

:WAS HCE DETECTED ?2?

SYES !

Hy VER FY RESULTS OF DATA TRANSFER

GO
_TO

2708 IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

;ERROR # DEF INED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

MOV

RMER1],$BDDAT

sRECEIVED STATUS

JMP

3508

RETUW HERE IF ERROR

:GO TO 3508 IF ERROR

CZRMOAD RMOS5/3/2 FCTNL TST 3

001140

001174

MOV

MOV
BNE
2718:

001176

025420

INC

MOV
EMT
JMP

#HCE.:ggbAT

R4, ST
271s

$TMPO

R3,$TMP1
344,
3508

;EXPECTED STATUS

‘R4 = HEADER WORD NUMBER AND
:ADJUST NUMBER.

:R3 = BIT POSITION

N
&
o

001350

057742

025254

#FER,RMER1]

JSR

PC,DTASTS

EMT
JSR

PC,a(SP)+

:ERROR # DEF INED BY DTASTS SUBROUTINE
+GO BACK FOR MORE ERROR CHECKS

mov
MOV

#FER, SGDDAT
RMERTI,$BDDAT

;EXPECTED STATUS
:RECEIVED STATUS

JMP

3508

JMP
"

000020
001350

BIT

BNE

BR
NOP

025420

1922 025260
1923 025260
1924 025266
1925 025274
1926 025276

1927
1928
1929 025302
1930 025302
1931 025310
1932
1933 025312

000020

EMT

025420

001021

100000

001376

057742

3508
343

;GO VERIFY RESULTS OF DATA TRANSFER

*GO TO 280% IF NO ERROR
*RETURN HERE IF ERROR

:GO TO 3508 IF ERROR

oBIT
BNE

#BSE ,RMER2]
295$

;WAS BSE DETECTED ??
SYES !}

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

1938 025350

000350

100000

JMP
T

001376

EMT
JSR

025420

1934 025332
19%2 025332

1939
1940
1941 025354
1942 8%5354

2808

:WAS FER DETECTED ??

SYES !!

5‘5‘;’}"' THAT A BAD SECTOR ERROR WAS DETECTED

NOP
025

295$

mov

MOV
EMT
JMP

2908

PC.a(SP)+

3508

RMER2I ,$BDDAT

#BSE , SGDDAT
345
350

:GO TO 2908 IF NO ERROR

*RETURN HERE IF ERROR

:ERROR # DEF INED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR
;RECEIVED STATUS

*EXPECTED STAIUS

égrscgcx FOR OTHER ERRORS

046060

JSR
BR

PC,SECERR
3008

;G0 CHECK FOR SECONDARY ERRORS
;GO TO 3008 IF NO ERROR

EMT
JSR

PC,a(SP)+

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

ASL

3108

*REPEAT IF NOT DONE

;SECOND HEADER WORD DONE??

NOP

025420

JMP

000002

BNE

BNE
MOV

3508

3508
#2,R4

:RETURN HERE IF ERROR

:GO TO 3508 IF ERROR
;SHIFT TO NEXT BIT

“YES!!
:SETUP FOR 2ND HEADER WORD

(SRR

001046

o
N

b s

"3,\,_..;..

) i
D

032737

000200
001174

) b

012737
010437
001002
005237
010337
104344
000137

SEQ 0129

5‘;%’,‘"" THAT A FORMAT ERROR WAS DETECTED

) e il i
-

0000 VOOV
OV OVOO0

o8 VONOVS W=D 3%

WRITE, READ W/ HCE E RROR

M 10
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-58

N 10
CZRMOAD RMOS5/3/2 FCTNL TST 3ORHACRO v03.01 11-APR-80 13:39:53 PAGE 12-59

116

012703

000001

000137

023762

SEQ 0130
#1,R3

MOV

3108:

158

:
3508

000464

:SETUP FOR HCE

3708

SEXIT IF ERROR

tttttt.t.'t'ti'.Qtfittt"'tt.Q'tttttfltQtit.ttttttttttttt"tttt.i

*REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER

5 025456
025462

043344

S
— ek SN

177776
010000
106314
000062

[« F N NT,N]

025452

012737

—_— -

wvi

~
N
n

025422

8388

bbb

o
NN

0 coONONW

025420

— nd D e

D i

D ol d i

FER2E ununagvn R

0 V0OV O0

D D e

) o

WRITE, READ W/ HCE
E

$65s:

gttt

#-2 ,RMWCO

#BUF
ONE ,RMBAO

#H ,RMCS10
PC, GENBUF
PC,TSTPRP

12222222 2222%3

sONLY TWO HEAD WORDS
sALWAYS IN 16 BITS MODE
BUFFER ADDRESS ,REFORMAT THE SECTOR
WRITE HEAD AND DATA COMMAND
:SET UP THE BUFFER

#FMT16,RMOFO

040472

;PREPARE DEVICE FOR TEST

054130

s TASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE IF VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF ''SKI'*
OR 'PIP'' IS SET
:VERIFY RECALIBRATION

3608
025472

1966 025476
1967 025476
1968 025504
1969 025510
1970 025514
1971 025520

1974 025534
1975 025540

025476

000063
001551
000006
000032
000034
000004
000002
000000
000200
044500

001410

025570

3608

3608:

;GO TO 3608 IF ERROR

#JH!GO,RMCS10
#PUTINX ,R2
#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC. (R2)
+

;FORMAT THE SECTOR
:SET UP THE REGS

#RMBA. (R2)
+

#RMIC . (R2)
+

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

025572
564

;GO _TO 3608 IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUT INE

365%:

045042

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

3658

:GO TO 3658 IF NO ERROR

3708

:ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3708 IF ERROR

sRETURN HERE IF ERROR

PC, TIMOUT

sWAIT FOR FINISH

:
3708
A

tTEST 17

I TII23222232223222222222;

WRITE, READ W/ HCI

'ttt't'ttlt'.t..t't'ti"t"!'!..tfit...'t.t""t..ttt.'ttt!'."'

TST17

SCOPE

s SCOPE CALL

lSTACK SP

02
025612

001226

rsrouén1

#17,$TESTN

:START OF TEST
sINITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
(R1)
DEVICE BEING TESTED

TEST

MUMBER IN APT MAIL BOX

CZRMOAO RMOS5/3/2 FCTNL TST 3

WRITE, READ W/ HCI

B 1

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

1
1332

;.'tttt'tttttttttttttttt'tt'ttt'ttt!ttttttttt'tttttttt'tttt"'tttt

;ggg

:LoOP #1

1987 025620

1988 025624

}% 025630
1991

1992 025630

025634

012704

012703

004737

154130

025636
025640

000404
000240

it 025644

000137

025642

104000

000000

108:

000001

158:

1996 025650
1997 025656
1998 025664
1999 025672
2000 025700
%5 025706

2003

040472

JSR

LWORD

012737
012737
012737
012737

000000
000000
106314
177376

012737 010000
012737 000063
041416

025722
025726

104401
104000

070230

025730

000405

000137

027024

2005 025734 012737
2006 025742 012737

071666
000001

2007 025750

004737

2010 025754

030364

106314

2012 025762

040364

106314

%42 025770

050364

106314

2011 025760 001403

2013 025766

000402

043344

2016

2017 025774
2018 025774

2019 02
2020 02
2021 026010
2022 026014

#1.R3
PC,TSTPR

154130

208

JMP

3708

001444
001416
001414
001412

208 :

001442
001410

MOV
MOV
MOV
MOV

MOV
MOV

#0,RMDCO
#0 . RMDAO
#BUFONE ,RMBAO
#-258. ,RMWCO

#FMT16.RMOFO
MH'GO,RMCS10

;VERIFY THAT SECTOR IS NOT BAD
JSR

*HCE BIT

;PREPARE DEVICE FOR TEST

001174
001176

25%:

i
|
|
|
|
|

*ERROR # DEFINED BY TSTPRP SUBROUTINE

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

:GO TO 3708 IF ERROR

:CYLINDER
= 0
*TRACK = 0, SECTOR = 0
:BUS ADDRESS
:2 + 256. WORDS (2' COMP)

:16 BIT FORMAT
:WRITE HEADER AND DATA COMMAND
;CALL BAD SECTOR MODULE

,SCTMSG

:TYPE BAD SECTOR MESSAGE
:ERROR # DEFINED BY BADSCT SUBROUTINE

JMP

3508

:GO TO 3508 IF ERROR

MOV
MOV

NONES , $TMPO
#1,$TMP1

:STARTING ADDRESS OF PATTERN
*RANGE OF PATTERN

:GO TO 258 IF NO ERROR

+GO GENERATE BUFFER FOR FORMAT

;CHANGE HEADER WORD TO FORCE ERROR DURING WRITE
BIT
R3,BUFONE(R4)
;SET OR RESET BIT??

BEQ

BIC

278:

B8R

BIS

275

R3,BUFONE(R4)

;RESET BIT

R3,BUFONE(R4)

:SET BIT

288

:LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

012702

112722
112722
112722
112722

001551

000034
000006
000004
000002

288 :

MOV

MOVB
MOVB
MOVB
MOVB

#PUTINX,R2

#RMDC, (R2)+
#RMDA. (R2)+
A#RMBA. (R2)+
#RMWC. (R2)+

:CLEAR CONTROLLER & SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
*VERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF '‘SKI'* OR 'PIP'* IS SET
*VERIFY RECALIBRATION

PC ,BADSCT

PC. GENBUF

|
|

258

JSR

*TASK DESCRIPTOR AS FOLLOWS:

*SELECT DEVICE & VERIFY DEVICE AVAILABLE

TYPE
EMT

SEQ 0131 |

;HEADER WORD

:LOAD PARAMETERS AND GENERATE DATA BUFFER

004737

2004 025734

#0,R4

BR
NOP
EMT

027176

025714

025720

MOV

;PREPARE THE DEVICE FOR ronmr OPERATION

1994

1995 025650

_FORMAT ,WRITE ,READ

;R2 = BYTE ENTRY POSITION

|
|

e1:

e
|
|

!
e

|
,

|
|

f
z
|

;

|
-|.

2023 026020

112722
112722
112712

000032
000000
0002C0

004737
0004 04
000240

044500

000137

027024

004737

044144

104000

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

30%:

MOVB
MOVB

NOP

045042
044230

027024

057742

EMT

40%:

JMP

026130

408

3508

; TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
:GO_TO 408 IF NO ERROR
:RETURN HERE IF ERROR

sERROR # DEFINED BY PUT SUBROUTINE

:GO TO 3508 IF ERROR

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

:WAIT FOR COMMAND TO COMPLETE
JSR

PC, TIMOUT

;GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR FORMAT OPERATION
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
JSR
BR
508
:GO_TC 508 IF NO ERROR
EMT

JMP

50%:

:RETURN HERE IF ERROR

3508

:VERIFY NO ERRORS DURING FORMAT
JSR

NOP
EMT

027024

MRMOF, (R2)+

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

:FORMAT THE DRIVE
PC,PUT
JSR

SEQ@ 0132

JSR

60%:

JMP

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

PC.DTASTS

608

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 60$ IF NO ERROR
:RETURN HERE IF ERROR

PC.a(SP)+

;GO BACK FOR MORE ERROR CHECKS

3508

;ERROR # DEFINED BY DTASTS SUBROUTINE

;GO TO 3508 IF ERROR

:MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#708, SLPERR
BR
808
;SKIP TO WRITE OPERATION
3 :tttttttitttt.tt'tt!ttttt"'t'tttttti.t.tttfit.ttfittttt.tttt'ttt'

WRITE ,READ

:LooP #2
2051 026130
2052
2053
2054 026130
026134

:
708

040472

;PREPARE DEVICE FOR uaxre OPERATION
;PREPARE DEVICE FOR TEST
JSR
PC, s

LWORD

1541

;TASK DESCRIPTOR AS FOLLOWS:

:SELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
:PACK_ACKNOWLEDGE IF VOLUME NOT VALID
VERIFY PACK ACKNOWLEDGE

:RECALIBRATE IF "'SKI'*
026136
026140

000404
000240

NOP

80$

:VERIFY RECAL IBRATION
GO_TO 80$ IF NO ERROR
RETURN HERE IF ERROR

OR ‘PIP'*

IS SET

—

C ZRMOAQ RMOS5/3/2 FCTNL TST 3
T 17
WRITE, READ W/ HCI

CZRMOAO RMOS5/3/2 FCTNL TST 3
T17
WRITE, READ W/ HCI

026142
026144
2055 026150
2056
2057
2058 026150
2059 026150
2060 026156
2061 006164
2062 026172
2063 026176

012737
012737
012737
012702
112722

2065 026206
2066 026212
2067 026216
2068 026222
2069 026226

112722
112722
112722
112722
112722

2071 026232
026236

004737
000404

2064 026202

104000
000137

P 1N
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-62
EMT

027024

80%:

112722

012000
000061
106320
001551
000006
000034
000032
000004
000002
000000
000200

001442
001410
001414

:GO TO 3508 IF ERROR

044144

026254

004737

045042

MOVB
MOVB
MOVB
MOVB

ARMDC. (R2)+
#RMOF. (R2)+
#RMBA. (R2)+
ARMWC. (R2)+

MOVB

#200, (R2)+

JSR

PC,PUT

BR
NOP
EMT

130%:
JSR

#RMDA, (R2)+

#RMCST,(R2)+

JSR

:GO WRITE REGISTER(S) WITH PUT SUBROUT INE

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

3508

:GO TO 3508 IF ERROR

:ERROR # DEFINED BY PUT SUBROUTINE

PC.GETSTS

PC, TIMOUT

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
JSR

BR
NOP
EMT

:
1408

JMP

PC,GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

1408

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

3508

*GO TO 3508 IF ERROR

*ERROR # DEFINED BY GET SUBROUTINE

;CHECK FOR ERRORS ounmc mme OPERATION
JSR
;G0 CHECK FOR PRIMARY ERRORS

045226

NOP
EMT

JSR

027024
001140

1508:

PC,a(SP)+

JMP

3508

CLR

$GDDAT

000220

001350

.gég

%4% 'FER,RMER1]

001350
177557

001142

MOV

RMER11, $BDDAT

001376

001142

100000

;TERMINATE TABLE

1308

;WAIT FOR COMMAND TO COMPLETE

027024

013737
032737
001406

; INHIBIT HEADER COMPARE
*WRITE DATA COMMAND
:LOAD STARTING BUFFER ADDRESS
:LOAD PUT REGISTER INDEX TABLE

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

044230

004737

#FMT16'HCI,RMOFO
MJD
! GO.RMCS10
#BUF
ONE +4 ,RMBAO
#PUTINX RS

MOVB

027024

004737

MOV
MOV
MOV
MOV

MOVB

044500

026250

2090 026
2091 026350
2092 026350
2093 026356
2094 026364

:ERROR # DEFINED BY TSTPRP SUBROUT INE

3508

%5’8?5 DATA TO THE DRIVE

0262
2072 026250
20

2080 026276
2081
2082
2083 026276

JMP

SEQ 0133

001376

BIC
B8R
MO /
BIT
BEQ

:G0 TO 1508 IF NO ERROR

*RETURN HERE IF ERROR

*ERROR # DEFINED BY PRIERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

#~C<HCE 'FER>, $8DDAT
1528
RMER2I , SBDDAT
#BSE ,RMER2]
155%

;EXPECTED STATUS

;ANY ERROR??
;RECEIVED STATUS

:CLEAR DONT CARES

;RECEIVED STATUS

sANY BAD SECTOR ERROR ?
:NO !

CZRMOAQ RMOS5/3/2 FCTNL TST 3
7z
WRITE, READ W/ HCI

2095 026366

042737

077777

2097 026374
2098 026376
2099 026402
2100
2101 026402
2102 026402
026406

104346
000137

027024

004737

057742

026416
2103 026422
2104 8%§422

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

155%:
160%:

012737
000410

026452

EMT
JMP

346
3508

JSR

PC,DTASTS

PC,a(SP)+

JSR

PC,SECERR

NOP
EMT
JSR

JMP

180%:

001124

1708

NOP
EMT
JSR

JMP

046060

027024

026442
026450

#~CBSE , $BDDAT

027024
004737

BIC

3508

1808

PC,a(SP)+

3508

SEQ 0134
;SAVE BSE FOR ERROR

:GO VERIFY RESULTS OF DATA TRANSFER

:GO TO 1708 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 1808 IF NO ERROR

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

:GO TO 3508 IF ERROR

; CHANGE LOOP ADDRESSES
MOV
#1908, SLPERR
BR
2008
: .' ttttttttttttt't'tttt't'ttt'tttttt*'t*tttttflt't.t.tttttt'tfi't"t

:LooP #3

READ

190%:

026452
026456

026460
026462
026464
026466
2118 026472
2119
2120
2121 026472
2122 026472

2123 026500
2124 026506
2125 026512
2126 026516
2127 026522
2128 026526
2129 026532

004737
154130

000404
000240
104000
000137

040472

027024

;PREPARE DEVICE FOR READ OPERATION

JSR

.WORD

2008%:

BR
NOP
EMT
JMP

PC,TSTPRP

154130

2008
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
:VERIFY PACK ACKNOWLEDGE
:
:RECALIBRATE IF '‘SKI"* OR 'PIP'* IS SET
:VERIFY REC/LIBRATION

:GO TO 2008 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEF INED BY TSTPRP SUBROUTINE
*GO TO 3508 IF ERROR

é?%?” DATA FROM DEVICE

012737
012737
012702
112722
112722
112722
112722
112722

000071
107324
001551
000006
000032
000034
000004

000002

MOV
MOV

MOV

MOVB
MOVB
MOVB
MOVB
MOVB

#RD'GO,RMCS10
#BUF TWO+4 ,RMBAO

#PUTINX ,R2

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

:READ DATA COMMAND
:LOAD STARTING BUFFER ADDRESS

:LOAD PUT REGISTER INDEX TABLE

C 4 RMOAD RMOS/3/2 FCTNL TST 3
T 7
WRITE, READ W/ HCI
|

2130 026536
2131 026542
2132
2133 026546
026552

o
oo
oo

026600
026602
026604
026606
2142 026612
2143
2144
2145 026612

2146 026632
2147
2148 026636

2149 026644
2150 026646
2151 026654
2152 026662
2153 026664
2154 026664
2155 026672
2156 026700
2157 026702

2
2162
2163 026716
2164 026716
026722

SEQ 0135

112722
112712

000000
000200

MOvB
move

#RMCS1,(R2)+
#200, (R2)

004737
000404
000240

044500

PC,PUT

000137

027024

JSR
BR
NOP
EMT

004737

044144

004737

045042

004737
000404
000240

044230

000137

027024

104000

1 026574

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

104000

250%:

2508

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

GO TO 2508 IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEF INED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

;SETUP GEgRINDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
;GO TO GETSTS SUBROUTINE

JWAIT FOR COMMAND TO COMPLETE
JSR

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR
2608
;GO _TO 2608 IF NO ERROR
NOP
sRETURN HERE IF ERROR
EMT
sERROR # DEFINED BY GET SUBROUTINE
2608$:

JMP

3508

;GO TO 3508 IF ERROR

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

045226

027024
001140

:
2708

2708

NOP
EMT
JSR

PC,a(SP)+

CLR

$GDDAT

JMP

3508

;GO _TO 2708 IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEF INED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR
ZEXPECTED STATUS

000220

001350

BIT

#HCE 'FER,RMER1]

001350
177557

001142
001142

MOV
BIC
BR

RMER11 ,$BDDAT
#~C<HCE 'FER>, $8DDAT
272%

001376

100000

001142
001376

077777

001142

027024

057742

027024
046060

BEQ

27%:

272%:

275%:
280%:

MOV

*NO!!
*RECEIVED STATUS
*CLEAR DONT CARES

RMER2]
, $BDDAT

;RECEIVED STATUS
:zgv.ng SECTOR ERROR ?

BIT
BEQ
BIC

#BSE
, RMER2]
2758
#~CBSE ,$8DDAT

EMT
JMP

346
3508

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,a(SP)+

RETURN HERE IF ERROR
;ERROR # DEF INED BY DTASTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

2908%:

:ANY ERROR ?

2718

JMP

2908

3508

*CLEAR DONT CARES

;GO _TO 2908 IF NO ERROR

;GO TO 3508 IF ERROR

RMOAO RMOS5/3/2 FCTNL TST 3
7
WRITE, READ W/ HCI

026742

SEQ 0136

000405

027024

STRIRRRARN2BI

§§§§

PC, CMPBUF

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

3108

;G0 TO 3108 IF NO ERROR

NOP
EMT
JMP

-STARTING ADDRESS OF READ BUFFER

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

3508
R3

sSHIFT HCE BIT
sCONTINUE IF NOT DONE
:35%9@0 HEADER DONE??

3508

000001
000002

n
o

3
o

5 027014
o

D o
il
b
o
o
s

NNNNNNYNO
o
oo

;GO TO 3508 IF ERROR

025630

:DO SECOND HEADER WORD

15%

350%:

027024

*START WITH BIT 0

#1,R3
#2,.R4

320%:

3708

SEXIT IF ERROR

st ettt
I2322222222222 23

s *REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER

b o

cd o

3508

BUF ONE +4
BUF TWO+4

2 027004

ARt

027026

b e

b cd

D cnd

PC,a(SP)+

JSR
.WORD
. WORD
BR

310%:

;GO _TO 3008 IF NO ERROR

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

3208

D e

027024

3008

BR
NOP
EMT
JSR
JMP

300%:

043602

USLSLSTS TS LS TNSTS NSNS ST NS LSTNT S TS T, 87,8

6 N
11-APR-80 13:39:53 PAGE 12-65

MACRO V03.01

012737
012737
012737
012737
004737
004737
054130

355s.:

177776

043344

Eddddd

sttt

#-2 ,RMWCO
#FMT16,RMOFO
#BU
ONE ,RMBAO
F
#WH ,RMCS10
PC, GENBUF

040472

PC,TSTPRP

054130

3608
027102
000063

001551
000006
000032
000034
000004
000002

2201 027150

000000
000200
044500

001410

:
3608

3608
#H!GO,RMCS10

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

22223232222232222;

;WORD COUNT
:IN 16 BIT MODE
;BUFFER ADDRESS
;FORMAT COMMAND
sSET UP BUFFER

;PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
;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 3608 IF NO ERROR

;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE

;GO TO 3608 IF ERROR

;TABLE ADDRESS

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

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

CZRHOAO RMOS5/3/2 FCTNL TST 3

WRITE, READ W/ HCI

MACRO v03.01

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

027154

365%:

045042

2
027174
2205 027176

365%

;GO _TO 3658 IF NO ERROR

JMP
NOP

3708

;GO TO 3708 IF ERROR

NOP
EMT

027176

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

PC,TIMOUT

JSR
NOP

:
3708

SEQ 0137

'TEST 20

WRITE, READ W/ IVC ERROR

IRRAAARRRAARRARRRR
AR R AR AR AR AR ARRRRR AR
RN AR
RAR AR RN

027176
027176

000004
000240

013701
012737

TSTZO
001100
001276
001464
000020

SCOPE
NOP
MOV
MOV
MOV

001226

#STACK,SP
$BASE ,RO
TSTQUE ,R1

MoV

#20,8TESTN

AR AR R RN

;LOOP #1

2213 027224
2214 027224
2215 027232
2216 027240
2217 027246
2218 027254
22}3 027262

027336
027340
027342
027344

R R AR AR RRRR AR R RRRRRARRRRAR

RRAARRAARRR

WRITE ,READ

%bgAD PARAMETERS AND GENERATE DATA BUFFER

012737
012737
012737

000000
000000
106314

012737

010000
000060

004737

041416

177400

001444
001416
001414
001412
001442
001410

:256. WORDS (2'S COMP)
:16 BIT FORMAT

030216

WBUFONE,RMBAO

MOV

[« 0 o

EMT

AWD,RMCS10

MOV
MOV
JSR

:BUS ADDRESS

:WRITE HEADER AND DATA COMMAND

PC,BADSCT

:CALL BAD SECTOR MODULE

,SCTMSG

:TYPE BAD SECTOR MESSAGE

#RMDAO,$TMPO
#1,STMPT
PC.GENBUF

:USE SECTOR FOR DATA PATTERN

70%

:G0 TO 708 IF NO ERROR

:ERROR # DEF INED BY BADSCT SUBROUTINE
:60 TO 3508 IF ERROR

:GO GENERATE DATA BUFFER

:PREPARE DEVICE FOR WRITE OPERATION
JSR

.WORD

BR
NOP

0004
000240

000137

#-256. ,RMWCO
AWFMT16,RMOFO

TYPE

040472

MOV
MOV

JSR

b asb

004737
154130

:CYLINDER = 0
:TRACK = 0, SECTOR = 0

80
o

001416
000001
043344

#0,RMDCO
#0.RMDAO

;VERIFY THAT SECTOR IS NOT BAD

030216

012737
012737
004737

MOV
MOV

MOV

070230
02
2222 027310
2223 027310
2224 027316
2225 027324
2226
2227
2228 027330
027334

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

EMT
JMP

" PC,TSTPRP

154130

808
3508

:PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

:G0_TO 80$ IF NO ERROR
:RETURN HERE IF ERROR

:ERROR # DEF INED BY TSTPRP SUBROUT INE
:G0 TO 3508 IF ERROR

CZRMOAD RMOS5/3/2 FCTNL ST 3
MACRO v03.01
120
WRITE, READ W/ IVC ERROR

2229 027350
2230
2231
2232 027350
027356
027364
027372
027400

112737
112737
012737
004737
000404
000240

000024
000200
000001
044500

000137

030216

012737
012737
012702
112722
112722
1
11
112722
1
112722
112722

2249 027470
027474

004737
000404

001551
001552

001434

;RESET VOLUME VALID
MOVB
#RMMR1,PUTINX
MOVB
#200,PUTINX+1

MOV

#DMD . RMMR10

BR
NOP

90$

JMP

3508

JSR

EMT

90%:

PC,PUT

: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
*RETURN HERE IF ERROR

*ERROR DEF INED BY PUT SUBROUTINE

:GO TO 3508 IF ERROR

%SSIUP PARAMETERS AND EXCUTE WRITE DATA COMMAND

001410

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

#RMMR1, (R2)+
ARMDA, (R2)+
#RMDC.(R2)+
ARMOF
. (R2)+
#RMWC. (R2)+

JSR

BR
NOP
EMT

130%:
JSR

#RMBA. (R2)+

#RMCSi, (R2)+
#200, (R2)+

PC,PUT

1308

3508

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE

JSR

;TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

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

:ERROR # DEF INED BY PUT SUBROUT INE

:GO TO 3508 IF ERROR

PC, TIMOUT

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND

044230

JSR

B8R
NOP
EMT

030216

140%:

JMP

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

1408

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

3508

:GO TO 3508 IF ERROR

:ERROR # DEFINED BY GET SUBROUT INE

;CHECK FOR ERRORS DURING WRITE OPERATION

045226

010000

;WRITE DATA COMMAND
*LOAD PUT REGISTER INDEX TABLE
*RESET DIAGNOSTIC MODE

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

JSR

PC,PRIERR

EMT
JSR

PC,a(SP)+

:ERROR # DEF INED BY PRIERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

BIT

#IVC ,RMER2]

JWAS “'IVC'' DETECTED??

BR
NOP

030216

032737

#0 ,RMMR10

MOVB

045042

004737

MJD ' GO,RMCS10
#PUT INX ,R2

MOV

MOVB

044144

004737
000404
000240
104000

MOV
MOV

001434

030216

0275
2262 027554
2263 027554

SEQ 0138

80%:

0274
2233 027410
2234
2235
2236 027410
2237 027410
2238 027416
2239 027424
2240 027430
2241 027434
2242 027440
2243 027444
2244 027450
2245 027454
2246 027460
%gzg 027464

2257 027516
027522
027524
027526
027530
2258 027534
2259
2260
2261 027534

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

001376

:
1508

JMP

1508

3508

;G0 CHECK FOR PRIMARY ERRORS

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

J 1
CZRMOAO RMOS5/3/2 FCTNL ST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-68
120
WRITE, READ W/ IVC ERROR
gggg 027562

001024

2266 027564

OO‘?B;

027600
2267 027604
2268 027604
2269 027612
2270 027

02765
2275 027654
2276
2277
2278 027654
2279 027662

004737

PC,DTASTS

EMT
JSR

PC,a(SP)+

MOV
MOV

RMER21 , $8DDAT
RMER2] . $GDDAT

JMP

3508

001376
001376
010000

001142
001140
001140

046060

027664

JMP
BIS
EMT

iae

001124

3508

SYES!!
;GO VERIFY RESULTS OF DATA TRANSFER

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

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

:GO TO 3508 IF ERROR

;RECEIVED STATUS
*EXPECTED STATUS

#1VC,$GDDAT
342

PC,SECERR

EMT
JSR

PC,a(SP)+

JMP

180%:

1608

JSR

BR
NOP

030216

012737
000410

JSR

BR
NOP

030216
2274 827634

1708

057742

030216
013737
013737

BNE

SEQ 0139

1808

3508

;GO CHECK FOR SECONDARY ERRORS

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

:ERROR # DEFINED BY SECERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR
-

;CHANGE LOOP ADDRESSES

MOV
BR

#1908, SLPERR
2008

.'.'ttttttttt'ttttt.tttt'tt"t'ttti.tttttfittt'tt.'.tt"tt..'.tt"tt

:LooP #2

READ

190%:

86
2287 027664
027670

027672
027674
027676
027700
2288 027704
2289

004737
154130

000404
000240
104000
000137

000137

JSR

LWORD

030216

:
2008

001551
001552
001434

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
:VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF '‘SKI"* OR 'PIP'' IS SET
:VERIFY RECALIBRATION

BR
NOP

2008

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

JMP

3508

:GO TO 3508 IF ERROR

EMT

030216

000024
00020?
00000
044500
36
027740

;PREPARE DEVICE FOR READ OPERATION

040472

;RESET VOLUME VALID

MOVB
MOVB

MOV
JSR
BR
NOP
EMT

JMP

#RMMR1,PUTINX
#200,PUTINX+1

#DMD . RMMR10
PC,PUT
2108
3508

*ERROR # DEF INED BY TSTPRP SUBROUT INE

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

:SET RMMR1 OUTPUT BUFFER = DMD
;GO WRITE RMMR1 VIA PUT SUBROUT
INE
:GO TO 2108 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR gsrmso BY PUT SUBROUT INE

:GO TO 3508 IF ERROR

K 11
CZRMOAD RMO5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-69
120
WRITE, READ W/ IVC ERROR

210%:

2403:

NN NNN

-READ DATA FROM DEVICE

NNNNNN

2292 027744
2293
229
2295 027744
2296 027744
2297 027752
2298 0
2299 027766
2300 0
2301 027776
30

MOV

MOVB

:
2608

SREBRKR Raano
H

—t

coo

NOP
EMT
JMP

3508

2508

PC, TIMOUT

2668

JMP

3508

JSR

001376

270%:

001140

280%:

2708

PC,a(SP)+

BIT

#1VC,RMER2]

JSR

PC,DTASTS

NOP
EMT
JSR

PC,a(SP)+

MOV

RMER21 ,$GDDAT

JMP

B8R

104000

PC,PRIERR

NOP
EMT
JSR

BNE

057742

001376

PC,PUT

030216

013737

JSR

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO _TO 2508 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

;GO TO TIMOUT SUBROUTINE

;G0 TO 3508 IF ERROR

;CHECK FOR ERRORS DURING READ OPERATION

045226

#200, (R2)

#RMCST, (R2)+

;GO READJg;ATUFOR
S
READ OPERATION
;GO READ REGISTER(S) WITH GET SUBROUT INE
;G0 _TO 2608 IF NO ERROR
NOP
:RETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUTINE

030216

MOVB

JSR

044230

030216

#PUTINX ,R2

#RMMR1, (R2)+

;WAIT FOR COMMAND TO COMPLETE

045042

004736
000137

;LOAD STARTING BUFFER ADDRESS
sRESET DIANOSTIC MODE
;LOAD PUT REGISTER INDEX TABLE

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

044144

010000

sREAD DATA COMMAND

#0.RWMR10

#RMDA, (R2) +
WRMOF
. (R2)+
WRMDC.(R2)+
#RMBA. (R2)+
#RMWC. (R2)+

B8R
250%:

#RD'GO,RMCS10
#BUF TWO ,RMBAO

MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

030216

004737
000405
000240

MOV
MOV

MOV

044500

2324 030
2

SEQ 0140

JMP

3508

2908
2808

3508

;GO CHECK FOR PRIMARY ERRORS
;G0 _TO 2708 IF NO ERROR

RETURN HERE IF ERROR

;ERROR # DEF INED BY PRIERR SUBROUT INE
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
:ERROR # DEF INED BY DTASTS SUBROUT
INE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

;EXPECTED STATUS

LN
CZRMOAO RMOS5/3/2 FCTNL IST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-70
120
WRITE, READ W/ IVC ERROR

2329 030}54

2334 030176
30202
030204
030206
030210
030212
2335 030216
2336
2337 030216
2338
2339

052737
013737
104342
000137
004737
000405
000240
104000
004736
000137

001140

001376 001142

030216

BIS

#1VC,S$GDDAT

JMP

3508

JSR
B8R
NOP

PC,SECERR
3008

;GO CHECK FOR SECONDARY ERRORS
:GO TO 3008 IF NO ERROR
*RETURN HERE IF ERROR

JSR

PC,a(SP)+

:GO BACK FOR MORE ERROR CHECKS

rgg\T;

29os

046060

EMT

030216

JMP

300%:

SEQ 0141

gnsnéx $BDDAT

3508

;RECEIVED STATUS

:ERROR # DEFINED BY SECERR SUBROUTINE

:GO TO 3508 IF ERROR

:
3508
ttt'.'ttt"ttt.tt.fitt.tt"ttt..fitttt'tttlttttt.tt'tt."t"t.t!t

STEST 21

WRITE, READ W/ ABORT

. :tttt'tttfittt.t.tt.tttt't"ttttt.'fititt'.tt.ttttttttt.tttttttttt

TST21:

001100
001276
001464
000021

SCOPE
NOP
MOV
MOV
MOV

001226

MOV
32 LA A2

i dd s

:LooP #1

266
2349 030274
2350 030302
2351 030310
2352
2353
2354 030310
030314

030316
030320
030322
030324
2355 030330
2356

2357
2358 030330
030336

000000
000000
106314
177400
010000
000061

001444
001416
001414
001412
001442
001410

eIl

WRITE ,READ

+:SET TEST NUMBER IN APT MAIL BOX
3223222323232222222222222222222122

;LOAD PARAMETERS AND GENERATE DATA BUFFER

MOV
MOV
MOV
MOV
MOV
MOV

LWORD

LRMDCO
.RMDAO
ONE,
#-256. ,RMJCO
#FMT16.RMOFO
#D
! GO.RMCS10

80%:
001551

001552

1541
3o

B8R
NOP

808

JMP

3508

EMT

031134

000200

#21,$TESTN

:CYLINDER
= 0
STRACK= 0, SECTOR= 0
:BUS ADDRESS
:256. WORDS (2'S COMP)
216 BIT FORMAT
*WRITE DATA COMMAND

;PREPARE DEVICE FOR unne OPERATION
JSR
PC,TSTP
:PREPARE DEVICE FOR TEST

040472

000014

#STACK, SP
$BASE,RO
TSTQUE ,R1

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

;SET UNSAFE ERROR
MOVB
#RMER1,PUTINX
MOVB
#200,PUTINX+1

*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
:VERIFY RECALIBRATION

'PIP'* IS SET

:G0 TO 808 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEF INED BY TSTPRP SUBROUT
INE
*GO TO 3508 IF ERROR
;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

|
|

CZRMOAO
4
RMO5/3/72 FCTNL TST %
14
WRITE, READ W/ ABOR

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

SEQ 0142

030344 012737 040000 001424

MOV

#UNS ,RMER10

:SET RMER1 OUTPUT BUFFER = UNS

030356 000404
030360 000240

BR
NOP

90$

:GO TO 90$ IF NO ERROR
*RETURN HERE IF ERROR

JMP

3508

030352

004737

030362

104000

044500

EMT

030364 000137 031134
gzg 030370

908 :

2361

2362 030

012737
012702
112722
112722
112722
112722
112722

000061
001551
000006
000034
000032
000004
000002

gn 030432

112722

000200

2373 030436

004737

044500

0
0

000240
104

112722

030442 0004

030450 000137

g;;g 030454
2376
St 030454

004737

001410

MOVB

#200, (R2)+

;TERMINATE TABLE

JSR

NOP
EMT

031134

1308:

JMP

1358
:

#PIP.RMDSI
1368
RMDS] , SGDDAT

;WAS COMMAND EXECUTED?
*NO, GO WAIT
*EXPECTED STATUS

RMDS, SBDDAT

;RECEIVED STATUS

001140

2385 030522

013737

001346

001142

MOV

2392 030536 004737
030542 000404
030544 000240

044230

2391

030546
030550
2393 030554
239% 030554

030560

BIC

#PIP, $GDDAT

EMT

347

;WAIT FOR COMMAND TO COMPLETE

JSR

031134

004737

045226

PC, TIMOUT

;GO GET REGISTER STATUS

JSR
BR

NOP

104000
000137

000405

001140

1368:
045042

:GO TO 3508 IF ERROR

3508

EMT

001346

004737

JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE

JMP
BIT
BEQ
MOV

030532

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

*GO TO 1308 IF NO ERROR

PC,GET
135s

001346

104347

1308

JSR
BR
NOP

020000
020000

PC,PUT

;GO GET REGISTER STATUS

104

042737

#RMCST,(R2)+

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

044144

032737
001412
013737

5% 030532

:GO TO 3508 IF ERROR

JWRITE DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

2381 030476
2382 030504
2383 030506
2386 030530

*ERROR DEF INED BY PUT SUBROUTINE

#D ! GO,RMCS10
#PUTINX ,R2
#RMDA, (R2)+
WRMDC. (R2)+
#RMOF
. (R2)+
#RMBA. (R2)+
WRMWC. (R2)+

030472 000137 031134

2384 030514

:GO WRITE RMER1 VIA PUT SUBROUTINE

MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

378

2380 030476

1208:

000000

2379 030460 004737 044230
030464 000404
030466 000240
030470

PC,PUT

:WRITE DATA TO THE DRIVE

2363 030370
2364 030376
2365 030402
030406
2367 030412
2368 030416
2369 030422

2370 030426

JSR

EMT

1408:

JSR

PC,GET
1408
3508

PC,PRIERR

1508

;GO READ REGISTER(S) WITH GET SUBROUT INE
:GO TO 1358 IF NO ERROR
*RETURN HERE IF ERROR

:ERROR # DEFINED BY GET SUBROUT INE

*GO TO 3508 IF ERROR

;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

;G0 CHECK FOR PRIMARY ERRORS

:GO TO 1508 IF NO ERROR

CZRMOAQ RMO5/3/2 FCTNL TST 3
WRITE, READ W/ ABORT

030570
2395 030574
2396 030574
030600
030602
030604

046060

030610

031134

2397 030614
2398
2399
2400 030614
5401 030622

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

031134

012737
000410

- 030624

NOP
EMT
JSR

PC,a(SP)+

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

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

NOP
EMT
JSR

PC,a(SP)+

;GO BACK FOR MORE ERROR CHECKS

JMP

150%:

B8R

JMP

180%:

001124

SEQ 0143

3508

1808

3508

;GO TO 3508 IF ERROR

;GO TO 1808 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEF INED BY SECERR SUBROUTINE
;GO TO 3508 IF ERROR

;CHANGE LOOP ADDRESSES

MOV
BR

AL A

#1908
, SLPERR
2008

‘{ooP #2

READ

2222223322 2222222%;

190%:

004737
154130

030632
030634
030636
030640
2410 030644
2411
2412
2413 830644
30652
030660

;PREPARE DEVICE FOR READ OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
.WORD
154130
s TASK DESCRIPTOR AS FOLLOWS:

040472

2008

JMP

3508

NOP
EMT

031134

000014
000200
040000
044500

B8R
200%:
001551
001552
001424

:SET UNSAFE ERROR
MOVB
MOVB

:GO_TO 2008 IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 3508 IF ERROR

sSETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

MOV

#UNS _RMFR10

2108

:GO_TO 2108 IF NO ERROR

3508

;GO TO 3508 IF ERROR

JSR

NOP
EMT

031134

ARMER1,PUTINX
#200,PUTINX+1

:SELECT DEVICE © VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF "'SKI'* OR 'PIP'* IS SET
sVERIFY RECALIBRATION

2108:

PC,PUT

sSET RMER1 OUTPUT BUFFER = UNS
;GO WRITE RMER1 VIA PUT SUBROUTINE

sRETURN HERE IF ERROR

sERROR DEF INED BY PUT SUBROUT INE

:READ DATA FROM DEVICE

8
704
2419 030712
2420 030716

2423 030732

000071
001551
000006
000032
000034

001410

2408:

MOV
MOV

MOVB
MOVB
MOVB
MOVB

#RD'GO,RMCS10
#PUTINX ,R2

#RMDA, (R2)+
WRMOF
.
(R2)+
#RMDC. (R2)+
#RMBA. (R2)+

sREAD DATA COMMAND
sLOAD PUT REGISTER INDEX TABLE

1rd

WRITE, READ W/ ABORT

2424 030736
2425 030742
2229 030746
242
2428 030752

764

MACRO v03.01 11-APR-80 13:39:53 PAGEB 115-73

112722
112722
112712

000002
000000
000200

MOvB
mMovB
MOovB

#RMC , (R2)
+

004737
000404
000240

044500

JSR
BR
NOP
EMT

PC,PUT

104000
000137

031134

004737

044144

004737

044230

:
2508

2436 031012
2437 031020
2438 031022
2439 031030
2440 031036
2441 031044
2442 031046
2443 031052

020000

001346

001346
020000
001346

001140
001140
001142

2444

2445

031052

044230

000137

2454
2455 031134
2456

031134
045226

031134
~

046060

031134

2508
3508

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO _TO 2508 IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE

;GO TO 3508 IF ZRROR

255%:

JSR
BR
NOP
EMT
JMP

PC,GET

BIT
BEQ
MOV
BIC
MOV
EMT

#PIP,RMDSI

:=3§lconnA~o EXECUTED??

RMDSI
, $GDDAT
#PIP,$GDDAT
RQgSJ.SBDDAT

*EXPECTED STATUS

256%:

2558

3508

JSR

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO _TO 2558 IF NO ERROR

sRETURN HERE IF ERROR

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

2568

;RECEIVED STATUS

3
3508

;WAIT FOR CO‘HAM)CTO COMPLETE
PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION

2608%:

JSR
BR
NOP
EMT
JMP

PC,GET

JSR
BR
NOP

PC,PRIERR

JSR
JMP

PC,a(SP)+

;ERROR # DEFINED BY PRIERR SUBROUT INE
;G0 BACK FOR MORE ERROR CHECKS

JSR
BR
NOP

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUT INE
;€0 BACK FOR MORE ERROR CHECKS

EMT

—_

SRRVISRRSKR

2447
2448 031056
031062
031064
031066
031070
2449 031074
2450 031074

045042

#200, (R2)

;SEE IF DEVICE STARTED COMMAND

031134

#RMCST, (R2)+

:SETUP GE;RINDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
;GO TO GETSTS SUBROUTINE

2435 031012

SEQ 0144

270%:

EMT
JSR

:
3008
:
3508

JMP

2608
3508

270s

3508

3008
3508

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO _TO 2608 IF NO ERROR
:RETURN HERE IF ERROR

sERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

;GO CHECK FOR PRIMARY ERRORS

;GO _TO 2708 IF NO ERROR

;RETURN HERE IF ERROR

;GO TO 3508 IF ERROR

;GO _TO 3008 IF NO ERROR

:GO TO 3508 IF ERROR

CZRMOAO RMOS/3/2 FCTNL ST 3

2457
03
031
03
031
031
031
031
2458 031
2459

MAAEA

SRTEST 22

2465 031202

tér22:

012737

001100
001276
001464
000022

:LOOP #1

004737
054130

2481
2482 031306

2483 031312
2484 031316

2488 031336

#STACK, SP
$BASE ,RO
TSTQUE ,R1
#22,8TESTN

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

000404
000240
104000
000137

012737

JSR

.WORD

208:

001444
001416
001414
001412
001442
001410

001551
000034

000002
000032
000000

054130

208

JMP

3508

25%:

MOV
MOV
MOV
MOV
MOV
MOV
JSR

TYPE

001174
001176

;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

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

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

;LOAD PARAMETERS AND GENERATE DATA BUFFER

#0 ,RMDCO
#BUF ONE , RMBAO
#-258. ,RMWCO
#FMT16.RMOFO
#WH!GO.RMCS10
#0.RMDAO

;VERIFY THAT SECTOR IS NOT BAD

032172
071730
000001
043344

PC,TSTPRP

B8R
NOP
EMT

032172

000000
000000
106314
177376
010000
000063

FORMAT,WRITE ,READ

;PREPARE THE DEVICE FOR FORMAT OPERATION

040472

070230

2480

WRITE, READ EACH CURRENT LEVEL

:;tttt'ttttttttt.t't..tt"'t'tttt.t..tt'tttttttttflttttt!*'tttt't'

041416

031262
2476 031266
2477 031266
2478 031274
2479 031302

SCOPE
NGP
MOV
MOV
MOV
MOV

001226 -,

2466

2467
2468 031202
2469 031210
2470 031216
2471 031224
2472 031232
2472 031240

A sttt
Il
eI
IT222 2

't"'ttt.tttfi"ttt.'tt't"'tfit'Q"'tt'fi.'.Q.tttt't'*tt'ttl.'t.i

2460
2461
2462

2463

ARl

SEQ 0145

EMT

PC,BADSCT

26$

,SCTMSG

JMP

3508

MOV
MOV

#ZEROS , $TMPO
#1,8TMP1

JSR

PC, GENBUF

:CYLINDER= 0
:TRACK = 0, SECTOR
= 0
:BUS ADDRESS
22 + 256. WORDS (2'S COMP)
216 BIT FORMAT
*WRITE HEADER AND DATA COMMAND

;CALL BAD SECTOR MODULE

:GO TO 26$ 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

MOV

#PUTINX ,R2

MOVB

ARMDC, (R2)+

MOVB

#RMCST,(R2)+

MOVB
MOVB
MOVB
MOVB

#RMDA. (R2)+
ARMBA. (R2)+
ARMWC. (R2)+
ARMOF . (R2)+

:R2= BYTE ENTRY POSITION

—d

c 12

CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12=74
122
WRITE, READ EACH CURRENT LEVEL

CZRMOAO WRITE,
RMOS5/3/2READ
FCTNL
TST 3 MACRO v03.01 11-APR-80 13:39:53 PAGE 1%-75
T2
EACH CURRENT LEVEL
D1

2489 031342
2490 031346

26491 031346
031352
03135¢
031356
031360
gz9§ 031364
249
Cons 031364

112712

000200

004737 044500
000404
000240
104000
000137 032172
004737

044144

o 031370

004737

045042

2498
2499 031374

004737

044230

496

031400 000404
031402 000240
031404 104000
031406 000137 032172

5?8? 031412

2502
2503 031412

004737

031422
031424

104000
004736

031416 000405
031420 000240

057742

031426 000137 032172

308$:

408 :

MQVB

#200, (R2)

JSR
B8R
NOP
EMT
JMP

PC,PUT
408

SEQ 0146
:TERMINATE TABLE

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE
*GO TO 408 IF NO ERROR
*RETURN MERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
*GO TO 3508 IF ERROR

3508

: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
;GO READ REGISTER(S) WITH GET SUBROUTINE

508 :

BR
NOP
EMT
JMP

508

26O TO 508 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
*GO TO 3508 IF ERROR

3508

:VERIFY NO ERRORS DURING FORMAT
JSR
PC.DTASTS
;G0 VERIFY RESULTS OF DATA TRANSFER

B8R
NOP
EMT
JSR

JMP

60$

26O TO 608 IF NO ERROR
*RETURN HERE IF ERROR

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

PC,a(SP)+

3508

:GO TO 3508 IF ERROR

538’5’ 031432

608 :

2506
2507 031432 012737 031442 001124
sggg 031440 000410

:MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#708, SLPERR
B8R
808
:SKIP TO WRITE OPERATION

2510

::ttttQttttfitttttttttttt'tt!tttttt'tt.tttttttttttttfitt.tttttt..tt

2511
2512
2513 031442
2514
2515

:LooP #2

2516

2517 031442

031446

WRITE ,READ

708
:

004737

054130

040472

:PREPARE DEVICE FOR WRITE OPERATION

JSR

_WORD

PC, TSTPRP

:PREPARE DEVICE FOR TEST

054130

*TASK DESCRIPTOR AS FOLLOWS

:CLEAR CONTROLLER & SELECT DEVICE

:VERIFY CONTROLLER CLEAR OPERATION

:PACK_ACKNOWLEDGE IF VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE,_

:RECALIBRATE IF
031450
031452
031454
031456
2518 031462
2519

000404
000240
104000
000137

032172

80%:

BR
NOP
EMT
JMP

80%

3508

"'SKI'*

:VERIFY RECALIBRATION

;G0 TO 80$ IF NO ERROR
:RETURN HERE IF ERROR

‘

OR 'PIP'*

IS SET

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

MACRO v03.01 11-APR-80 13:39:53 PAGEE11%-76

WRITE, READ EACH CURRENT LEVEL

2520 031462
2521

VVVVNBV\JV

N~
N PPNV O WWW
N PN
NININ

e e
i
s e
)

e e e e

b
b

—t

;WRITE DATA TO THE DRIVE

A LS AN LA ST ST N T ST ST

2 O OOO

120%:

MOV

MOV
MOV

044500

032172

044144

045042
2543 031572
031576
031600
031602
031604
2544 031610
2545
2546
2547 031

044230

032172

045226

MOVB

#200, (R2)+

JSR

NOP
EMT

JMP

031644
2550 031650
2551
2552 031650

2553 031650
031654
031656
031660

032172

057742

032172

046060

#RMCSi,(R2)+
PC,PUT

1308

3508

:256. WORDS (2'S COMP)

s CHANGE ADDRESS
;WRITE DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

: 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
;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:

1408

3508

;GO _TO 1408 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;GO TO 3508 IF ERROR

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

1508

EMT
JSR

PC,a(SP)+

JSR

PC,DTASTS

NOP
EMT
JSR

PC,a(SP)+

NOP

031624
2548 031630
2549 0316332

MID ' GO,RMCS10

#PUTINX ,R2
ARMDA, (R2)+
#RMDC.(R2)+
WRMOF
. (R2)+
ARMBA. (R2)+
#RMWC. (R2)+

BR
130%:

#-=256. ,RMWCO

#BUF ONE +4 , RMBAO

MOV
MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

2533 031540
2534
2535 031544

SEQ 0147

150%:

JMP

1608 :
:
1708

JMP

JSR

NOP

EMT

3508

;GO _TO 1508 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEF INED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;G0 TO 3508 IF ERROR

3508

;GO VERIFY RESULTS OF DATA TRANSFER
;GO _TO 1608 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

1608

1808

;GO TO 1808 IF NO ERROR

sRETURN HERE

IF ERROR

sERROR # DEF INED BY SECERR SUBROUT INE

%gg"DAO RMO5/3/2 FCTNL TST 3

031662

004736

031664

000137

032172

2556
2557 031670
sggg 031676

012737
000410

031700

gggg 031670

031706
031710
031712
031714
2567 031720
2568
2569 031720
2570
2571
2572 031720

001124

004737
054130

000404
000240
104000
000137

BR
NOP
EMT

032172

2008
:

2580 031766

112722
112712

000000
000200

2584 032002

004737

044500

032010
032012
032014

000240
104000
000137

032172

2587
o 032020

004737

044144

004737

045042

ot 032024

2591

054130

200$

3508

*TASK DESCRIPTOR AS FOLLOWS:

: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 2008 IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
:GO TO 3508 IF ERROR

2408:

001410

2589

READ

.WORD

000071
001551
000006
000032
000034
000004

52882 032020

:SKIP TO NEXT OPERATION

;PREPARE DEVICE FOR READ OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST

040472

012737
012702
112722
112722
112722
112722
112722

032006

*GO TO 3508 IF ERROR

1908 :

001414

2581 031772
Sggg 031776

3508

;GO BACK FOR MORE ERROR CHECKS

ttt'tttt'ttttttttttt't'ttttttttttttttttt*tttttttttttt’ttttttttt

107324

2574 031734
2575 031742
2576 031746
2577 031752
2578 031756
2579 031762

PC,a(SP)+

;CHANGE LOOP ADDRESSES
MOV
#1908
, SLPERR
BR
2008
‘{ooP #3

012737

2573 031726

JMP

180$:

2561
2562
gggz 031700

031704

SEQ 0148

JSR

2560

2565
2566 031700

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

012737

000404

177400

001412

;READ DATA FROM DEVICE
MOV
#BUF TWO+4 , RMBAD

MOV

MOV
MOV
MOVB
MOVB
MOVB
MOVB

000002

MOVB

MOVB
MOVB
JSR

2508 :

NOP
EMT
JMP

: CHANGE ADDRESS

#-256. ,RMJICO

:256. WORDS (2'S COMP)

#RD'GO,RMCS10
#PUT INX ,R2
ARMDA, (R2)+
ARMOF
. (R2) +
A#RMDC. (R2)+
#RMBA. (R2)+
WRMWC. (R2)+

*READ DATA COMMAND
*LOAD PUT REGISTER INDEX TABLE

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

2508
3508

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

:GO TO 2508 IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUT INE
*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 READ OPERATION

—d

CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01
122
WRITE, READ EACH CURRENT LEVEL

%SgHOAO RMO5/3/2 FCTNL TST 3

MACRO v03.01 11-APR-80 13:39:53 PAGE15 78

WRITE, READ EACH CURRENT LEVEL

004737

2592 032030
032034
03
2593 032046
2594
2595
2596 032046

044230

032172

JSR
BR
NOP
EMT
JMP

260%:

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

2608

:GO TO 2608 IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUT
INE

3508

:GO TO 3508 IF ERROR

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

045226

032172

270%:

057742

032172

JSR
BR
NOP
EMT
JSR
JMP

280%:

290%:

046060

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

PC,a(SP)+

;GO BACK FOR MORF ERROR CHECKS

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

280%

;GO _TO 280% IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SUBROUTINE

3508

;GO TO 3508 IF ERROR

3008

032172

;GO _TO 3008 IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUTINE

PC,a(SP)+

;GO BACK FOR MORE ERROR CHECKS

PC, CMPBUF

;GO COMPARE WRITE, READ DATA BUFFERS

3508

300%:

043602

;GO TO 3508 IF ERROR

BUF ONE +4

:STARTING ADDRESS OF WRITE BUFFER

BUF TWO+4

: STARTING ADDRESS OF READ BUFFER

3108

2605 032150
2606 032150
2607 032156
2608 032164
2609 032166
2610 032172
2611
2612

032172
000200
001444

001444
001400

031210

2
2613 032220
2614

#128. ,RMDCO

ADVANCE TO NEXT THRESHOLD

3508
25%

SYES!H
:DO NEXT CURRENT LEVEL

RMDCO,#768.

3508:
MR

TSTZS

AR E

SCOPE

2222322222222

222¢8

T332

22222222222;

:SCOPE CALL
;START OF TEST

sINITIALIZE STACK POINTER

$BASE ,RO

:RO = UNIBUS ADDRESS

#23,$TESTN

:iSET TEST NUMBER IN APT MAIL BOX

TSTQUE ,R1

10%:

WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING

#STACK, SP

001226

sDONE??

'TEST 23

000004
000240
012706
013700
013701
012737

;GO _TO 37108 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY CMPBUF SUBROUTINE
;GO TO 3508 IF ERROR

3508

310%:

032172
032172

SEQ 0149

:(R1)
= DEVICE BEING TESTED

H12
RMOA 0 RMO5/372 FCINL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12=79
3
WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING

2615
2616
2617
2618 032220
032224

004737
054130

032226
032230

000404
00240

032232
032234
2619 032240
2620
2621
2622 032240

2623 032246
2624 032254
2625 032262
2626 032270
2627 032276

2628 032304
2629
30
032312
032316
032320
032324
032326
2631 032332
2632 032332

‘oo #1

104000

032416

040472

000137

033176

012737
013737

000577
001332
000037
106314

112737

012737
012737
012737
012737

176774
010000
000063

004737

041416

001444
001416
001416
001414
001412
001442
001410

001551
000034
000006
000004
000002
000032
000000
000200
04
000240
104000

R A A

PC,TSTPRP

BR
NOP

208

JMP

3508

054130

A AR AR AR

R R AR R AR AR

o®

: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
:RECALIBRATE IF '‘SKI'* OR 'PIP'* IS SET
*VERIFY RECALIBRATION

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

*ERROR # DEFINED BY TSTPRP SUBROUT INE

:GO TO 3508 iF ERROR

:LOAD pmmersas AND GENERATE DATA BUFFER

nov
MOVB
MOV
MOV
MOV
MOV

#383. ,RMDCO
LSTRK.RMDAO
#31.,RMDAO
#BUF ONE ,RMBAO
#=258. %2, RMWCO
#FMT16, RMOFO
MJH!GO.RMCS10

;VERIFY THAT SECTOR IS NOT BAD

JSR
B8R

TYPE

033176
071666
000001
043344

JSR

EMT

20%:

FORMAT ,WRITE ,READ

LWORD

070230

2633 032340
2634 032346
2635
2636
2637 032352
2638 032356
2639 032362
2640 032366
2641 032372
2642 032376
2643 032402
2644 032406
2645 032412

2646 032412

SEQ 0150

001174

001176

EMT

PC,BADSCT
25$
,SCTMSG

:CYLINDER = 383.
*SET LAST TRACK AND
*LAST secroa
:BUS ADDRESS
:2 SECTORS (2'S COMP)
216 BIT FORMAT
‘WRITE HEADER AND DATA COMMAND

;CALL BAD SECTOR MODULE
:GO TO 258 IF NO ERROR

:TYPE BAD SECTOR MESSAGE

*ERROR # DEF INED BY BADSCT SUBROUT INE

JMP

3508

MOV

#ONES , STMPO

;STARTING ADDRESS OF PATTERN

JSR

PC.GENBUF

:GO GENERATE BUFFER FOR FORMAT

MOV

#1,$TMP1

*GO TO 3508 IF ERROR

*RANGE OF PATTERN

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

MOV

MOVB
MOVB
MOVB
MOVB
MOVB

044500

MOVB

#PUT INX ,R2

#RMDC, (R2)+
#RMDA. (R2)+
#RMBA. (R2)+
A#RMWC. (R2)+
ARMOF . (R2)+

#RMCST, (R2)+

MOVB

#200, (R2)

JSR

PC,PUT

B8R
NOP
EMT

JMP

408

3508

:R2 = BYTE ENTRY POSITION

:TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

GO
TO 40 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUT INE
:GO TO 3508 IF ERROR

000137

033176

004737

044144

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

RMOAO RMOS5/3/2 FCTNL TST 3

MACRO v03.01 11-APR-80 13:39:53 PAGE1%-80

WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING

2651

SEQ 0151

032434

004737

045042

;WAIT FOR_COMMAND TO COMPLETE
JSR
PC,TIMOUT

2653
2654 032440
032444

004737

044230

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

2652

032452
2655 032456
2656
2657
2658 032456
032462
032464
032466
032470
032472
2659 032476
2660
2661
2662 032476
2663 032504
2664
2665
2666
2667
2668 032506
2669
2670
2671
2672 032506
032512

50§

JMP

3508

NOP
EMT

033176

50%:

GO _TO 508 IF NO ERROR

:RETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE

;GO TO 3508 IF ERROR

:VERIFY NO ERRORS DURING FORMAT

057742

JSR
BR

NOP
EMT
JSR

033176

012737
000410

JMP

60%:

;GO TO TIMOUT SUBROUTINE

PC.DTASTS
60%

;GO VERIFY RESULTS OF DATA TRANSFER
;GO _TO 608 IF NO ERROR

sRETURN HERE

IF ERROR

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

PC,a(SP)+

3508

;GO TO 3508 IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION

MOV

032506

BR
AR R

#708,SLPERR
80%

AR SRRttt

LOOP #2

;SKIP TO WRITE OPERATION

T332

22222223322223

WRITE ,READ

70%:

004737
054130

: PREPARE gEVICE FOR UR]TE OPERATION
PC,TSTP
;PREPARE DEVICE FOR TEST
.WORD
:TASK DESCRIPTOR AS FOLLOWS:

040472

054130

:CLEAR CONTROLLER & SELECT DEVICE

sVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

032514
032516
032520
032522
2673 032526
2674

80%

033176

80$:

2675 032526
267

EMT
JMP

3508

IF VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI'' OR ‘PIP'' IS SET
;VERIFY RECALIBRATION

;GO _TO 80$ IF NO ERROR

sRETURN HERE

IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUT INE

;GO TO 3508 IF ERROR

oSO

88888

: 2283
9Eeg 828

1208
:

;WRITE DATA TO THE _DRIVE

#-256.%2 ,RMWCO
#BUF ONE , RMBAQ
MJD
' GO,RMCS10

#ONES, $TMPO
#RMDA, (R2)+
#RMDC, (R2)
+

;2 SECTORS (2'S COMP)
s CHANGE ADDRESS

;WRITE DATA COMMAND

s STARTING ADDRESS OF PATTERN
sRANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT
;LOAD PUT REGISTER INDEX TABLE

CZRMOAO RMOS/3/
WRITE,

2687 032604

2
2693 032630
032634
032636
032640
032642
2694 032646
2295
96
’ 032646

2698

032652

2699
2700
2701 032656
03

2702 032674
2703
2704
2705 032674
032700
032702
032704
032706
032710
2706 032714
2707 032714
032720

730
2;08 032734
2709
2710 032734
2711 032734
032740
032742
032744
032746
032750

2712 032754
2713

2714

2715 032754
2716 032762

NL TST 3

MACRO v03.01 11-APR-80 13:39:53 PAGEJ 11%-81

HECK W/ CURRENT LEVEL SWITCHING

000032
000004
000002
000000
000200

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

044500

PC,PUT

#RMOF, (R2)
+
#RMBA. (R2)+
HRMUC | (R2)
+

; TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

1308

033176

;GO _TO 130% IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEF INED BY PUT SUBROUTINE

3508

130%:

;GO TO 3508 IF ERROR

s SETUP GE;RINDEX TABLE TO READ ALL REGISTERS
PC,.GETSTS
;GO TO GETSTS SUBROUTINE

044144

;WAIT FOR COMMAND TO COMPLETE

045042

JSR

PC, TIMOUT

:GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUT INE
BR
1408
;GO _TO 1408 IF NO ERROR
NOP
sRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUTINE

044230

033176

JMP

:
1408

3508

:GO TO 3508 IF ERROR

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

045226

033176

PC,a(SP)+

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,a(SP)+

JSR

PC,SECERR

NOP
EMT
JSR

PC,a(SP)+

JMP

1608:
170%:

046060

B8R

033176

JMP

180%:

001124

;GO _TO 1508 IF NO ERROR

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

033176

1508

NOP
EMT
JSR

JMP

150%:

057742

032764

SEQ 0152

3508

;GO TO 3508 IF ERROR

1608

;GO _TO 1608 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SUBROUTINE
;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 SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

1808

3508

;CHANGE LOOP ADDRESSES
MOV
BR

#1908, SLPERR
2008

;SKIP TO NEXT OPERATION
eI

3222122332 2222322¢2%;

MACRO v03.01 11-APR-80 13:39:53 PAGE13-82

CZRMOAQ RMOS5/3/2 FCTNL TST 3
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 DEVICE FOR READ OPERATION
JSR
PC,TSTPRP
sPREPARE DEVICE FOR TEST

040472

.WORD

054130

sTASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE IF VOLUME NOT VALID

032772
032774
032776
033000
2725 033004
2726
2727 033004
2728
2729

200%
EMT

033176

:
2008

sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 3508 IF ERROR

:
2408

000051
001551
000006
000032
000034
000004
000002
000000
000200

2733 033022
2734 033026
2735 033032

001410

;READ DATA FROM DEVICE

MIC
! GO,RMCS10
D
#PUTINX,R2
#RMDA, (R2) +
#RMOF
, (R2) +
H#RMDC, (R2)+
#RMBA, (R2)
+
#RMC, (R2)
+

033176

044144

004737

045042

004737
0004
000240

044230

000137

033176

004737

045226

000240

;READ DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

#RMCST, (R2)+

#200, (RZ)

044500

0331°
2749 033116
2750
2751
2752 033116
033122
033124

3508

:VERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF ''SKI'* OR 'PIP'' IS SET
;VERIFY _RECALIBRATION
;GO _TO 2008 IF NO ERROR

PC,PUT

2508

EMT

2508:

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO _TO 2508 IF NO ERROR

:RETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 3508 IF ERROR

;SETUP GE;RlNDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
;GO TO GETSTS SUBROUTINE

;WAIT FOR COMMAND TO COMPLETE
JSR

PC, TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ glATUS
FOR READ OPERATION
;GO READ REGISTER(S) WITH GET SUBROUT INE
BiR
;GO _TO 2608 IF NO ERROR
NOP
:RETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUTINE
JMP
3508
;GO TO 3508 IF ERROR

2608%:

s CHECK FggRERRORS DUR}NG READ OPERATION
PC,PR ERR
GO CHECK FOR PRIMARY ERRORS
BR
GO _TO 2708 IF NO ERROR
2708
NOP
:REYURN HERE IF ERROR

MACRO Vv03.01 11-APR-80 13:39:53 PAGE15-83

CZRMOAO RMOS5/3/72 FCTNL TST 3
123
WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING

033126
0331
033132
2753 033136
2754 033136
033142

033176

270%:

057742

033152
2755 033156
2756
2757 033156
2758 033156
033162

EMT
JSR

PC,a(SP)+

JSR

PC,DTASTS

NOP
EMT
JSR

PC,a(SP)+

JSR

PC,SECERR

JMP

033176

280%:
2908%:

046060

JMP

NOP

EMT

033172
2759 033176
2760
2761 033176
2762
2763

033176
033176
033200
033202
033206
033212
033216

2764
2765
2766
2767
2768 033224
2769
2770
2771 033224
033230

033232

033240
2772 033244

2773
2774
2775 033244

JSR

033176

300%:

JMP

3508

2808

3508

3008

PC,a(SP)+

3508

SEQ 0154

JERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;GO _TO 2808 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # 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
sRETURN HERE IF ERROR
;ERROR # DEF INED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

3508:
MLAAAEE

'resr 24

T332 222322233

WRITE, READ EARLY PEAK SHIFT

t!tt..t..t".ttttQtt'tt'tt't't.'t.....'ttt.'..t't.t.'.tttt"t"

85724:

012737

001100
001276
001464
000024

001226

SCOPE
NOP
MOV
MOV
MOV

MOV

LA AR R

LOOP #1

#STACK, SP
$BASE, RO
TSTQUE ,R1

#24,$TESTN
A

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

:(R1) = DEVICE BEING TESTED

s;SET TEST NUMBER IN APT MAIL BOX

1212222222222

223

FORMAT ,WRITE ,READ

108:
;PREPARE THE DEVICE FOR FORMAT OPERATION
JSR
PC.TSTPRP
;PREPARE DEVICE FOR TEST

040472

000404
000240
104000

000137

034204

012737

000000

LWORD

20%

JMP

3508

NOP
EMT

208:

001444

154130

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

:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
:RECAL IBRATE IF “SKI'* OR 'PIP'* IS SET
:VERIFY_RECALIBRATION

:60_TO 208 IF NO ERROR

sRETURN HERE IF ERROR

sERROR # DEFINED BY TSTPRP SUBROUT INE

;G0 TO 3508 IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER

MOV

#0,RMDCO

sCYLINDER
= 0

CZRMOAO RMOS5/3/2 FCTNL TST 3

124

MACRO v03.01 11-APR-80 13:39:53 PAGE15-84

WRITE, READ EARLY PEAK SHIFT

2776 033252 012737 000000 001416

MOV

2777 033260 012737 106314 001414
2778 033266 012737 177376 001412
2779 033274 012737 o1ooog 001442

g;g? 033302

2782

012737

00006

033310

004737

041416

033316
033322

104401
104000

070230

033314

033324

000405

012737

072142

g;gg 033344

004737

043344

2789 033350 012702

001551

2791 033360

000006

2785 033336 012737

2788

2790 033354

112722

2792 033364
2793 033370
279 033374

112722
112722
112722

2796 033404
2797 033410
2798 033410
033414
033416
033420

033400

033422

000001

#EARLY ,S$TMPO

JSTARTING ADDRESS OF PATTERN

PC. GENBUF

*GO GENERATE BUFFER FOR FORMAT

MOV

#PUTINX ,R2

MOVB

#RMDA. (R2)+

MOVB

3508

104000

000137

034204

2810 033454

004737

057742

000405
000240

104000
004736

000137

034204

MOVB

308
:

NOP
EMT

408:

:R2 = BYTE ENTRY POSITION

#RMDC, (R2)+

JMP

000404
000240

*RANGE OF PATTERN

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

PC,PUT
408

033450

033470

JSR

:TYPE BAD SECTOR MESSAGE
ERROR # DEFINED BY BADSCT SUBROUTINE

#1,8TMP1

JSR
BR

033446

2811 033474
2812

MOV

044500

044230

033464
033466

:GO TO 3508 IF ERROR

004737
000404
000240
104000

004737

033460
033462

3508

#200, (R2)

2806 033436

2809

JMP

,SCTMSG

MOVB

045042

58'83 033454

001176

000000

004737

033442
033444

:GO TO 258 IF NO ERROR

000200

112722

033432

2805

001174

;CALL BAD SECTOR MODULE

25§

TYPE
EMT

258%:

PC,BADSCT

sWRITE HEADER AND DATA COMMAND

112712

044144

2803

;VERIFY THAT SECTOR IS NOT BAD
JSR

;TRACK= 0, SECTOR= 0

*BUS ADDRESS
:2 + 256. WORDS (2'S COMP)
216 BIT FORMAT

M.'GO.RHCS10

MOVB
MOVB
MOVB

004737

2802 033426

#0,RMDAO

#BUF ONE , RMBAO
#-258. ,RMJCO
#FMT16.RMOFO

000004
000002
000032

034204

2801

MOV

000034

000137

58733 033426

001410

000137 034204

2783 033330
2784 033330

MOV
MOV
MOV

SEQ 0155

#RMBA. (R2)+
#RMWC. (R2)+
WRMOF . (R2)+

#RMCST. (R2)+

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

RETLRN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE

*GO TO 3508 IF ERROR

sSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

JWAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

2GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR

B8R
NOP
EMT

508 :

JMP

PC,GET

50§

3508

;VERIFY NO ERRORS DURING FORMAT
JSR

BR
NOP
EMT
JSR

608 :

JMP

PC,DTASTS

60$

PC,a(SP)+

3508

;GO READ REGISTER(S) WITH GET SUBROUT INE

:G0 TO 508 IF NO ERROR
*RETURN HERE IF ERROR

:ERROR # DEFINED BY GET SUBROUTINE

:GO TO 3508 IF ERROR

;GO VERIFY nesuus OF DATA TRANSFER

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

:ERROR # DEFINED BY DTASTS SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

%zlflAO RMOS5/3/2 FCTNL TST 3

MACRO v03.01 11-APR-80 13:39:53 PAGE13-85

WRITE, READ EARLY PEAK SHIFT

012737
000410

033504

+MOVE LO%ADDRESSES TO NEXT OPERATION
#708.%

80%

LOOP #2

AS ARt ittt
222222 2

WRITE ,READ

:
708

004737
154130

000404
000240
104000
000137

s PREPARE 2EVICE ;?R
URITE OPERATION

040472

033512
033514
033516
033520
2824 033524
2825
2826
2827 033524
2828 033524
2829 033532
2830 033540
2831 033546
2832 033552
2833 033556
2834 033562
2835 033566
2836 033572
2837 033576
Sg%g 033602

012737
012737
012737
012702
112722
112722
112722
112722
112722
112722
112722

177400
106320
000061
001551
000006
000034
000032
000004
000002
000000
000200

2840 033606
033612
033614

004737
000404
000240

044500

033616
03
2841 033624
2842
2843
033624
2844

001124

.UORD

154130

80%

JMP

3508

NOP
EMT

034204

80%:

;PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:

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

;GO _TO 808 IF NO ERROR

sRETURN HERE IF ERROR

sERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 3508 IF ERROR

104
000137

034204

004737

044144

2845
2
033630

004737

045042

2848 033634
033640
033642
033644

004737
000404
000240
104000

044230

—
D —d

ormn

—d —d
—

;WRITE DATA TO THE DRIVE

888

2813
2814 033474
2815 033502
2816
2817
2818
2819
2820 033504
2821
2822
2823 033504
033510

SEQ 0156 |

120%:

MOV
MOV
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

#-256. ,RMWCO
s CHANGE WORD COUNT
#BUF ONE +4 ,RMBAOD
; CHANGE ADDRESS
#MD ! GO,RMCS10
;WRITE DATA COMMAND
#PUTINX
,R2
;LOAD PUT REGISTER INDEX TABLE
#RMDA, (R2) +
#RMDC, (R2) +
#RMOF
, (R2) +
#RMBA, (R2) +
#RMWC, (R2) +
#RMCS1, (R2)+
#200, (R2)+
s TERMINATE TABLE

JSR

PC,PUT

NOP
EMT

130%:

JMP

1308

350%

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO _TO 1308 IF NO ERROR

:RETURN HERE IF ERROR

-ERROR # DEFINED BY PUT SUBROUT INE
;GO TO 3508 IF ERROR

:SETUP GE;RINDEX TABLE TO READ ALL REGISTERS
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

NOP
EMT

PC,GET

1408

;GO READ REGISTER(S) WITH GET SUBROUT INE

GO _TO 1408 IF NO ERROR

:RETURN HERE

IF ERROR

:ERROR # DEF INED BY GET SUBROUTINE

B 13
CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-86
124
WRITE, READ EARLY PEAK SHIFT

033646

000137

034204

2851
2852 033652
03

004737

045226

2849 033652
2850

0
2853 033672
2854 033672
033676
033700
033702
033704
033706
2855 033712
2856 033712
033716
033720
033722
033724
033726
2857 033732

2858
2859
2860 033732
2861 033740
2862
2863
2864
2865
2866 033742
2867
2868
2869 033742
033746

JMP

1408:

PC,a(SP)+

JSR

PC.DTASTS

NOP
EMT
JSR

PC,a(SP)+

JSR

PC,SECERR

034204

JMP

160%:

046060

NOP

EMT
JSR

034204

JMP

180%:

00 1124

1508

NOP
EMT
JSR

JMP

150%:

057742

033742

;GO TO 3508 IF ERROR

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

034204

012737
000410

3508

SEQ 0157

3508
1608

3508
1808

PC,a(SP)+

3508

GO _TO 1508 IF NO ERROR

:RETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR
;GO VERIFY RESULTS OF DATA TRANSFER
;GO _TO 1608 IF NO ERROR
sRETURN 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 180% IF NO ERROR

sRETURN HERE IF ERROR

sERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

:CHANGE LOOP ADDRESSES
MOV
BR

:LoOP #3

#1908, SLPERR
2008

it Rl ittt
eI
22222222 2

READ

190%:

004737
154130

;PREPARE DEVICE FOR READ OPERATION

040472

JSR

LWORD

033750

:
2008

154130

2008

JMP

3508

NOP
EMT

034204

PC,TSTPRP

sPREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:

sRETURN HERE IF ERROR

sERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 3508 IF ERROR

:READ DATA FROM DEVICE

MOV
MOV

MOV
MovBe

#RD
' GO,RMCS10
#BUF TWO+4 ,RMBAO

#PUTINX ,R2
#RMDA, (R2)+

sREAD DATA COMMAND
s CHANGE BUFFER
;LOAD PUT REGISTER INDEX TABLE

{

1410
1414

AR R

77 034002

000071
107324
001551
000006

2408:

CZRMOAO RMOS5/3/2 FCTNL TST 3

124

c 13

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

WRITE, READ EARLY PEAK SHIFT

SEQ 0158

2878 034
2879 034012
2880 034016
2881 034022

112722
112722
112722
112722

000032
000034
000004
000002

MOVB
MOVB
MOVB
MOVB

WRMOF, (R2)+
#RMDC. (R2)+
#RMBA. (R2)+
WRMWC. (R2)+

5&3 034032

112712

000200

MOVB

#200, (R2)

2885 034036

004737

044500

034046

104000

034026

034042
034044

112722

000404
000240

000000

034050 000137

034204

034054

004737

044144

2891 034060

004737

045042

2892
2893 034064

004737

044230

034072
034074

000240
104000

ggg; 034054
2
.

2890

034070

000404

034076 000137

533'5’ 034102
2896

2897 034102

034106
034110

034112
034114

034116

004737

000405
000240
104000
004736

034204
045226

2898 034122
2899 034122

000137

034204

004737

057742

034130
034132
034134

000240
104000
004736

034126 000405
034136

2900 034142
2901 034142

000137

034204

004737

046060

034152
034154

104000
004736

034146
034150
034156

000405
000240
000137

034204

2903 034162

004737

043602

034172
034174

000404
000240

034200

000137

2902 034162

034166
034170

034176

106320
107324

104000

MOVB
JSR

2508

JMP

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

:GO TO 2508 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
;GO TO GETSTS SUBROUTINE

JWAIT FOR COMMAND TO COMPLETE
JSR

PC,TIMOUT

:GO TO TIMOUT SUBROUTINE

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

B8R

260s

JMP

3508

NOP
EMT

260$:

:GO TO 2608 IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

*GO TO 3508 IF ERROR

;CHECK FOR ERRORS DURING READ OPERATION
JSR

PC,PRIERR

EMT
JSR

PC,a(SP)+

JSR

PC,DTASTS

BR
NOP
2708:

JMP

B8R

2808
:

3508

2808

;G0 CHECK FOR PRIMARY ERRORS

:GO TO 2708 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 280% IF NO ERROR

PC,a(SP)+

JRETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

EMT
JSR

PC,a(SP)+

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

JSR

PC, CMPBUF

:GO COMPARE WRITE, READ DATA BUFFERS

3108

;G0 T0 3108 IF NO ERROR
*RETURN HERE IF ERROR

BR
NOP

3008 :

2708

NOP
EMT
JSR

JMP
.WORD
.WORD

B8R
NOP

034204

PC,PUT

BR
NOP
EMT

2508 :

#RMCST,(R2)+

EMT

JMP

3508

3008

3508

BUF ONE +4
BUF TWO+4

3508

:GO TO 3508 IF ERROR

:GO TO 3008 IF NO ERROR
*RETURN HERE IF ERROR
:GO TO 3508 IF ERROR

;

;STARTING ADDRESS OF WRITE BUFFER
-STARTING ADDRESS OF READ BUFFER

*ERROR # DEFINED BY CMPBUF SUEROUTINE

*GO TO 3508 IF ERROR

D13

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

WRITE, READ EARLY PEAK SHIFT

2904 034204
2905
2906 034204
2907
2908

SEQ 0159

310%:
:
3508
*"‘t'.*'...'..""*""""'."'.*."'.."Q."*..'fi..'t".'Q."'

'TEST 25

WRITE, READ MIXED PEAK SHIFT

'fi'""*"*'""l’"..'*"""'*.'.."*'"*.""".."'.'fi"..""

TSTZS

SCOPE

NOP
MOV
MOV
MOV

001226

MOV

#STACK,SP
$BASE ,RO
TSTQUE ,R1

#25,8TESTN

..SET TEST NUMBER IN APT MAIL BOX

t"".*i'*'.""'*‘*t.""".'.'.""."fi".**.'....'.""."".*

LOOP #1

FORMAT ,WRITE ,READ

10%:

— PN
b PN

MOV
MOV
MOV
MOV
MOV
MOV

070230

000137

035212

2930
034344
3331 034352

012737
012737
004737

071626
000200
043344

2933
2934 034356

012702

001551

208
3508

: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
*RETURN HERE IF ERROR

*ERROR # DEFINED BY TSTPRP SUBROUT INE

:GO TO 3508 IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER

TYPE

.
NN

104401
104000

B8R
NOP
EMT
JMP

#0,RMDCO
#0 _RMDAO
#BUF ONE , RMBAO
#-258. ,RMICO
#FMT16.RMOFO
#JH!GO.RMCS10

;VERIFY THAT SECTOR IS NOT BAD
JSR
C,BADSCT

041416

004737
5

oSO

000063

888888

000000
000000
106314
177376
010000

208:

012737

035212

000404
000240
104000
000137

;PREPARE THE DEVICE FOR FORMAT OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
LWORD
154130
*TASK DESCRIPTOR AS FOLLOWS:

040472

004737
154130

034240
034242
034244
034246
2917 034252

012737

001276
001464
000025

BBBIYYY
388%

001100

sSCOPE CALL

JSTART OF TEST
JINITIALIZE STACK POINTER
RO UNIBUS ADDRESS
(R1) = DEVICE BEING TESTED

EMT

,SCTMSG

JMP

3508

MOV
MOV

#MIXED , $TMPO
#128. . $TMP1

JSR

PC, GENBUF

;CYLINDER= 0
*TRACK = 0, SECTOR = 0
*BUS ADDRESS
:2 + 256. WORDS (2°'S COMP)
216 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 PATTERN
*RANGE OF PATTERN

:GO GENERATE BUFFER FOR FORMAT

;LOAD PUT REGISTER INDEX TABLE FOR FORHAT OPERATIION
MOV

#PUTINX
,R2

;R2
= BYTE ENTRY POSITION

-—d TM

CZRMOAD RMOS5/3/2 FCTNL TST 3

E 13

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

D
D
h

Y
e

[
o
e
—

D e

2935 034362
2936 034366
2937 034372
2938 034376
2939 034402

WRITE, READ MIXED PEAK SHIFT

SEQ 0160

000034
000006

MOVB
MOVB
MOVB
MOVB
MOVB

000002
000032
000000
000200

MOVB
MOVB

044500

8
9

034440

2956 034502
2957
2958
2959 034502
2960 034510

JSR
BR
NOP

PC,PUT
408

JMP

3508

EMT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
*GO TO 40$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUT INE

044144

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

;WAIT FOR COMMAND TO COMPLETE
JSR

BR
NOP

508

JMP

3508

EMT

50%:

;VERIFY NO ERRORS DURING FORMAT

057742

JSR

035212

608

JSR

PC,a(SP)+

JMP

60%:
001124

PC.DTASTS

BR
NOP
EMT

034512

PC,TIMOUT

+GO TO 3508 IF ERROR

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
:GO READ REGISTER(S) WITH GET SUBROUT INE

035212

012737
000410

;TERMINATE TABLE

044230

2955 034462
034466
034470
034472
034474
034476

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

035212

045042

295C
2951 034444
034450
034452
034454
034456
2952 034462
2953
2954

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

3508

:GO TO S0$ 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

: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$
, SLPERR
808

:SKIP TO WRITE OPERATION

""tttQ.ttt'tt'ttttttt't""'t.t'.t*tt'fi.'ttt.i"ttt!.tt..'t‘"ttt

:LOOP #2

WRITE ,READ

70%:

004737
154130

040472

: PREPARE osvxce FOR mxrs OPERATION
JSR

LWORD

PC,TSTPR

154130

:PREPARE DEVICE FOR TEST

*TASK DESCRIPTOR AS FOLLOWS:

—d

CZRHOAO RMO5/3/2 FCTNL TST 3

CZRMOAO RMOS5/3/2 FCTNL TST 3

MACRO v03.01

WRITE, READ MIXED PEAK SHIFT

000404
000240
000
000137
2971
2972 034532

2973 034532
2974 034540
2975 034546
2976 034554
2977 034560
2978 034564
2979 034570
2980 034574
2983 034610
2984
2985 034614

BR
NOP

80%

JMP

3508

EMT

035212

80%:

SEQ 0161

;GO TO 80% IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY TSTPRP SUBROUT INE

:GO TO 3508 IF ERROR

1"58%75 DATA TO THE DRIVE

177400
106320
000061
001551
000006
000034
000032
000004
000002
000000
000200

MOV
MOV
MOV
MOV

00 612
00 414
00 410

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

044500

035212

044144
045042

044230

035212

045226

035212

JSR

B8R
NOP
EMT

130%:

035212

046060

JMP

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

ARMDA, (R2) +
ARMDC.(R2)+
ARMOF
. (R2)+
#RMBA. (R2)+
A#RMWC. (R2)+
#RMCST,(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

:ERROR # DEF INED BY PUT SUBROUT INE

: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

BR
NOP
EMT

1408
:

JMP

PC,GET

;GO READ REGISTER(S) WI'H GET SUBROUTINE

1408

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

3508

*GO TO 3508 IF ERROR

:ERROR # DEF INED BY GET SUBROUT INE

;CHECK FOR ERRORS DURING WRITE OPERATION
JSR

PC,PRIERR

EMT
JSR

PC,a(SP)+

3508

:GO TO 3508 IF ERROR

JSR

PC.DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

EMT
JSR

PC,a(SP)+

3508

:GO TO 3508 IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

BR
NOP
e

057742

3000 034720
3001 034720

F 13

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

JMP

BR
NOP
i

JMP

1508

1608

;GO CHECK FOR PRIMARY ERRORS

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

*ERROR # DEF INED BY PRIERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

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

:ERROR # DEFINED BY DTASTS SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

G 13

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

WRITE, READ MIXED PEAK SHIFT

034724
034726

034730
034732

000405
000240

104000
004736

B8R
NOP

034734

000137

035212

3005 034740

012737

034750

3002 034740

3004

% 034746

SEQ 0162

000410

EMT
JSR

JMP

1808:

001124

180%
PC,a(SP)+

3508

;GO TO 180% IF NO ERROR
*RETURN HERE IF ERROR

:ERROR # DEF INED BY SECERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3508 IF ERROR

;CHANGE LOOP ADDRESSES
MOV

#1908
, SLPERR
2008

;SKIP TO NEXT OPERATION

tt'tttttittttttttttitttt'ttttttttttttttttttttt.tttttttttttti'tt

3009

‘{oop #3
1908 :

3010

%5 034750
3013
3014 034750

034754

004737

154139

034756

000404

034762
034764

104000
000137

034760

§8}2 034770

;PREPARE DEVICE FOR READ openmm

040472

JSR

.WORD

000240

NOP
EMT

035212

2008 :

3017

3018 034770

3019 034770
3020 034776
3021 035006

3022 035010
3023 035014
3024 035020
3025 035024
26 035030

012737
012737
012702

107324
000071
001551

000006
000032
000034
000004
000002

3028 035040

112712

000200

3030 035044

004737

035050
035052

035054

112722

000404
000240
104000

035212

= 035062

004737

044144

035066

004737

045042

MOV
MOV
MOV

;PREPARE DEVICE FOR TEST

200$

: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 2008 IF NO ERROR

3508

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

154 30

ARMDA, (R2)+
ARMOF
. (R2)+
#RMDC.(R2)+
A#RMBA. (R2)+
#RMWC. (R2)+

MOVB

#200, (R2)

JSR

;TASK DESCRIPTOR AS FOLLOWS:

*RETURN HERE IF ERROR

: CHANGE BUFFER
*READ DATA COMMAND
*LOAD PUT REGISTER INDEX TABLE

#RMCST, (R2)+
PC,PUT

BR
NOP

2508

JMP

3508

EMT

2508 :

#BUF TWO+4 , RMBAO
#RD'GO,RMCS10
#PUT INX ,R2

MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

044500

000137

3033

001414
001410

2408:

000000

035056

338§.12 035062

PC,TSTP

-READ DATA FROM DEVICE

112722
112722
112722
112722
112722

3027 035034

READ

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

:GO TO 2508 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

cggm»o RMO5/3/2 FCTNL TST 3

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

WRITE, READ MIXED PEAK SHIFT

3037
3038 035072

035076

035100
035102
035106
;823 035110
3041
3042 035110

035114

035116
035120
035122
035124
3043 035130
3044 035130
035134
035136
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
ggg} 035212

004737

000404

035212

004737

045226

000405

000240
104000
004736
000137
004737
000405
000240
104000
004736

2608 :

004737

046060

2708:

2808
:

035212

3008:

043602

000404

000240
104000
000137

NOP
EMT
JMP

NOP
EMT
JSR
JMP

3508

:GO TO 260$ IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEF INED BY GET SUBROUT INE
*GO TO 3508 IF ERROR

035212

3108
:

2708

PC,a(SP)+
3508

GO TO 2708 IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEF INED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
*GO TO 3508 IF ERROR

JSR
BR
NOP
EMT
JSR

PC,a(SP)+

3508

:GO TO 3508 IF ERROR

JSR

PC.,SECERR

;GO CHECK FOR SECONDARY ERKORS

JMP

PC,DTASTS
2808

BR
NOP
EMT
JSR
JMP

PC.a(SP)+
3508

JSR
.WORD
.WORD

PC, CMPBUF
BUF ONE +4
BUF TWO+4

BR
NOP
EMT
JMP

3008

3108

3508

;GO VERIFY RESULTS OF DATA TRANSFER
:GO TO 280% IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY DTASTS SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 3008 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUT INE
: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

;GO TO 3108 IF NO ERROR

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

3508 :

3053

'fitfittttttfitttittttt'ttt‘ttittt.".itfi.ttttfittt!tttttttttt'ttttt

~rssr 26

000004
000240
012706
013700

— 035232

012737

035226

SOSS

3057
3058 035240

WRITE, READ EACH TRACK

ttttttttttttttttttttttittt.ttttttttfittttfi'tttttttttttttt'ttttt'

035212
035212
035214
035216
035222

3056

2608

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

057742

035212

004737
106320
107324

B8R

035212

000137

000405
000240
104000
004736
000137

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

044230

000240
104000
000137

SEQ 0163

013701

15726
001100
001276
001464

000026

001226

SCOPE
NOP
MOV
MOV
MOV

MOV

#STACK, SP
$BASE , RO
TSTQUE ,R1

#26,$TESTN

:SCOPE CALL
*START OF TEST
*INITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS

:(R1) = DEVICE BEING TESTED

::SET TEST NUMBER IN APT MAIL BOX

ttttt'tQ'tttttttttttttit'tttfittt.ttttiltttttttttttt.ttllttttttt

‘{o0P #1

108:

FORMAT ,WRITE ,READ

CZRMOAO RMOS5/3/2 FCTNL TST 3

126

WRITE, READ EACH TRACK

3059
3060
3061 035240
035244

035246
035250
035252
035254
3062 035260
3063
3064
3065 035260
3066 035266
3067 035274
3068 035274
3069 035302
3070 035310
3071 035316
3072
3073

004737
154130

040472

113

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

;PREPARE

000404
00240
104000

036240

012737
012737

000000
000000

012737
012737
012737
012737

106314
177376
010000
000063

004737

041416

3092 035442
3093

1 2753

}}2722
N
1
n

LWORD

154130

208

EMT

20%:

JMP

3508

: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

:GO TO 208 IF NO ERROR

*RETURN HERE IF ERROR

*ERROR # DEFINED BY TSTPRP SUBROUT INE

:GO TO 3508 IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER

MOV
MOV

#0 ,RMDCO
#0 .RMDAO

MOV
MOV
MOV
MOV

#BUF ONE , RMBAO
#-258. ,RMWCO
#FMT16 . RMOF O
#JH!GO.RMCS10

:VERIFY THAT SECTOR IS NOT BAD

JSR
BR

070230

035340
3074 035344
3075 035344
3076 035352
3077 035360
3078
3079
3080 035364
3081 035370
3082 035374
3083 035400
3084 035404
3085 035410
3086 035414
3087 035420
3088 035424
3089
3090
3091 0354§8

THE DEVICE FOR FORMAT OPERATION
PC,TSTPRP
;PREPARE DEVICE FOR TEST

JSR

NOP

000137

SEQ 0164

TYPE

EMT

PC,BADSCT
6$
,SCTMSG

;CYLINDER= 0
:TRACK = 0, SECTOR = 0
:BUS ADDRESS
:2 + 256. WORDS (2'S COMP)
216 BIT FORMAT
*WRITE HEADER AND DATA COMMAND

;CALL BAD SECTOR MODULE
:GO TO 26$ IF NO ERROR

:TYPE BAD SECTOR MESSAGE

:ERROR # DEFINED BY BADSCT SUBROUTINE

036240

071626
000200
043344

MOV
#MIXED , $TMPO
:STARTING ADDRESS OF PATTERN
MOV
#128. ,$TMP1
*RANGE OF PATTERN
JSR
PC, GENBUF
:GO GENERATE BUFFER FOR FORMAT
:LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

001551

000006

000006
000004
000002
000032
000000
000200

044500

036240

JMP

nova
MOVB
MOVB
MOVB
MOVB

MOVB
MOVB

3508

#PUTINX ,R2
ARMDC, (R2)
+
#RMDA. (R2)+
#RMBA. (R2)+
#RMJC. (R2)+
WRMOF . (R2)+

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

;FORMAT THE DRIVE
JSR

B8R
NOP
EMT

40%:

JMP

3508

:GO TO 3508 IF ERROR

:R2 = BYTE ENTRY POSITION

:TERMINATE TABLE
:GO WRITE REGISTER(S) WITH PUT SUBROUT INE

:GO TO 40$ 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

CZRMOAO RMOS5/3/72 FCTNL TST 3
126
WRITE, READ EACH TRACK

5 035442

004737

044144

» 035446

004737

045042

3099 035452
035456
035460
035462
035464
3100 035470
3101
3102
3103 035470
035474
035476
035500
035502
035504
3104 035510

004737
000404
000240
104000
000137

044230

004737
000405
000240
104000
004735
000137

057742

(012737
000410

035520

3105
3106

3107 035510
3108 035516
3109

J 13

MACRO v03.01 11-APR-80 13:39:53 PAGE 12-94
SEQ 0165
JSR

;WAIT FOR COMMAND TO COMPLETE

JSR

BR
NOP
EMT

036240

;GO TO TIMOUT SUBROUTINE

PC,GET

:GO READ REGISTER(S) WITH GET SUBROUT INE

3508

:GO TO 3508 IF ERROR

50$

:VERIFY NO ERRORS DURING FORMAT
JSR

BR
NOP
EMT
JSR

036240

JMP

60%:

001124

PC,DTASTS

60$

PC,a(SP)+

3508

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

:ERROR # DEFINED BY GET SUBROUTINE

;GO VERIFY RESULTS OF DATA TRANSFER

:GO TO 60$ IF NO ERROR
*RETURN HERE IF ERROR

: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$, SLPERR
808

;SKIP TO WRITE OPERATION

;.‘.t'i.tfilfittt...'t.fi"'t"t"Q.t."t'fi'tt"tttttfi"ttfit"t'.ttt'

:LOOP #2

WRITE ,READ

70%:

004737
154130

035526
035530

000404
000240

035534
3117 035540
3118
3119
3120 035540
3121 035540
3122 035546

000137

104000

;PREPARE DEVICE FOR WRITE OPERATION

040472

JSR

LWORD

80%:

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
:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF ‘‘SKI OR ‘PIP'* IS SET
:VERIFY RECALIBRATION

BR
NOP

808

:GO TO 80 IF NO ERROR
:RETURN HERE IF ERROR

JMP

3508

:GO TO 3508 IF ERROR

EMT

036240

:ERROR # DEF INED BY TSTPRP SUBROUTINE

ornS~

—d
b

106320
177400
000061
001551
000006
000034
000032
000004

012737
012737
012737
012702
112722
112722
112722
112722

EaX
o

igg;rs DATA TO THE DRIVE

888

3123 035554
3124 035
3125 0355
3126 035572
3127 035575
3128 035602

JMP

50%:

31
3112
3113 035520

035532

PC, TIMOUT

;GO TO GETSTS SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION

3110

3114
3115
3116 035520
035524

PC,GETSTS

MOV
MOV
MOV
MOV

MOVB
MOVB
MOVB
MOVB

#BUF ONE +4 , RMBAO
:CHANGE BUS ADDRESS
#-256. ,RMWCO
;CHANGE WORD COUNT
MID !GO, RMCS10
:WRITE DATA COMMAND
#PUTINX ,R2
:LOAD PUT REGISTER INDEX TABLE

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

%%QMAO RMO5/3/72 FCTNL TST 3

WRITE, READ EACH TRACK

3129
035506
3130 035612
31%} 035616
31
3133 035622
035626
035630
3134 035640
3135
3136
035640
3137
3138
035644
3139
3140
3141 035650

3142 035666
3143
3144
3145 035666
035672
035674
035676
700
035702
3146 035706
3147 035706

) —d ——d

N N

)
D

035746
035754

004737
000404
000240

044500

000137

036240

004737

044144

004737

045042

004737

044230

104000

MOVB

JSR

PC,PUT

130%:

; TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

1308

GO _TO 1308 IF NO ERROR

:RETURN HERE IF ERROR

sERROR # 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

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

1408

JMP

3508

NOP
EMT

1408%:

;GO _TO 1408 IF NO ERROR
sRETURN HERE IF ERROR
-ERROR # DEFINED BY GET SUBROUTINE
;GO TO 3508 IF ERROR

:CHECK FOR ERRORS ounxnc WRITE OPERATION
JSR
PC.PRIERR
;GO CHECK FOR PRIMARY ERRORS

045226

036240
057742

JSR

PC,DTASTS

NOP
EMT
JSR

PC,a(SP)+

3508

;GO TO 3508 IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

NOP
EMT
JSR

PC,a(SP)+

JMP

:
1608

046060

B8R

JMP

180%:

001124

GO TO 1508 IF NO ERROR

PC,a(SP)+

036240

1508

NOP
EMT
JSR

JMP

150%:

:RETURN MERE IF ERROR

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

3508

:GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;GO _TO 1608 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE

1608

;GO BACK FOR MORE ERROR CHECKS

1808

;GO _TO 1808 IF NO ERROR
sRETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUT INE
;G0 BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

3508

:CHANGE LOOP ADDRESSES
MOV

BR
R

*LOOP #3
035756

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

NOP
EMT

036240

035756

#RMWC, (R2)+

MOVB
MOVB
BR

)

— e

000002
000000
000200

SEQ 0166

036240

Sowwxmxum-flo

W N W

2
3148 035726
3149 03%726

112722
112722
112722

K 13

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

190%:

#1908
, SLPERR

2008

READ

sSKIP TO NEXT OPERATION
i

122322222222 222222223

CZRMOAO RMOS5/3/2 FCTNL TST 3
126
WRITE, READ EACH TRACK

3161
3162 035756
035762

004737
154130

040472

000404
000240

035772
3163 035776

3164
3165
3166 035776
3167 035776
3168 036004
3169 036012
3170 036016
3171 036022

000137

036240

MACRO v03.01

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

SEQ 0167

;PREPARE DEVICE FOR READ OPERATI ON
JSR
PC, TSTPRP
;PREPARE DEVICE FOR TEST
LWORD
154130
s TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
: VERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF ''SKI'' OR "PIP'' IS SET
sVERIFY _RECALIBRATION
B8R
2008
;GO _TO 2008 IF NO ERROR
NOP
sRETURN HERE IF ERROR
EMT
sERROR # DEFINED BY TSTPRP SUBROUT INE
3508
;GO TO 3508 IF ERROR
2008:
:READ DATA FROM DEVICE

012737
012737

107324
000071
001551
000006
000032
000034
000004
000002
000000
000200

004737
000404
000240

044500

000137

036240

004737

044144

104000

045042

044230

036240

045226

é40$:

MOV
MOV
MOV

MOVB
MOVB
MOVB
MOVB
MOVB

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

MOVB

#200, (R2)

JSR

PC,PUT

MOVB

NOP
EMT

250%:

JMP

; CHANGE BUS ADDRESS
sREAD DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

#RMCST,(R2)+

2508

3508

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO _TO 2508 IF NO ERROR
RETURN 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 READ OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUT INE

2608

260 _TO 2608 IF NO ERROR

JMP

3508

;GO TO 3508 IF ERROR

NOP
EMT

260%:

sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUT INE

;CHECK FOR ERRORS DURING READ OPERATION
JSR
PC,PRIERR
:
;GO
CHECK FOR PRIMARY ERRORS

NOP

EMT

036240

#BUF TWO+4
, RMBAO
#RD ! GO,RMCS10
#PUTINX ,R2

JSR

JMP

270s

PC,a(SP)+

3508

;G0 TO 2708 IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEF INED BY PRIERR SUBROUT INE
;G0 BACK FOR MORE ERROR CHECKS

;GO TO 3508 IF ERROR

CZRMOAO RMOS5/3/2 FCTNL TST 3
26
WRITE, READ EACH TRACK

3191 036136
3192 036136

004737

036146
036150

104
004736

036142 00040
036144 000240

M13
MACRO v03.01 11-APR-80 13:39:53 PAGE 1297
SEQ 0168

2708

057742

036152 000137 036240

3193 036156
3194 036156

004737

036166
036170

104000
004736

036162
036164

000405
000240

000137

036240

3196 036176

004737

043602

036202
0

1063
107324

2808

:ERROR # DEF INED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

EMT
JSR

PC,a(SP)+

JMP
JSR

.WORD
.WORD

3508
3008

;GO COMPARE WRITE, READ DATA BUFFERS

3108

;G0 TO 3108 IF NO ERROR
*RETURN HERE IF ERROR

JMP

3508

INCB
CMPB

RMDAO+1
RMDAO+1,LSTRK+1

3197 036220

3198 036220
3199 036224

105237
123737

001417
001417

3201 036234

000137

035274

036232

323285 036240

EMT

101002

3108:

001333

BHI

3508 :

32“

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

PC, CMPBUF

BUF ONE +4
BUF TWO+4

036214

104

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

:GO TO 3508 IF ERROR

BR
NOP

000137 036240

*GO TO 3508 IF ERROR

3508

0
0004
036210 000240

036212

;GO VERIFY RESULTS OF DATA TRANSFER

:GO TO 280% IF NO ERROR
*RETURN HERE IF ERROR

PC,a(SP)+

BR
NOP
3008
:

PC,DTASTS

EMT
JSR

JMP

2808
:

046060

036172

3195 036176

JSR

B8R
NOP

;STARTING ADDRESS OF WRITE BUFFER
-STARTING ADDRESS OF READ BUFFER

*ERROR # DEFINED BY CMPBUF SUBROUTINE

*GO TO 3508 IF ERROR

;ADVANCE TO NEXT TRACK
*DONE ?

3508

SYES!!

25s

STEST NEXT TRACK

ttt.tttt'tttttt'l'ttttttttt"ttttttttttttt'ttttt.tt.ttt'fi"tttt'

aresr 27

READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE

t'ttQ'tttttttttttttttt"tt't"tttt*'t'.tt.fitttttt'fit'.tttt't.t.

036240
036240

tir27:

036242 000240
036244 012706 001100
036250 013700 001276
036254 013701 001464
s 036260 012737 000027

SCOPE

NOP
MOV
MOV
MOV
MOV

001226

:SCOPE CALL

#STACK, SP
$BASE ,RO
TSTQUE ,R1
#27 . $TESTN

*START OF TEST
INITIALIZE STACK POINTER
= UNIBUS ADDRESS
um = DEVICE BEING TESTED
$:SET TEST NUMBER IN APT MAIL BOX

32%

. 3it'ititttttttttt.tttttttttttttttttttttltfitt!tttttti'ttttttfitttt

3208 036266

108

3207

3210

3211 036266

LOOP #1

(4737

036272 154130

040472

FORMAT ,READ OFFSET,WRITE CHECK OFFSET IN BOTH DIRECTIONS

;PREPARE DEVICE FOR ronm OPERATION
JSR

. WORD

PC,TSTP

1'.130

;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,_
*RECAL IBRATE IF ''SKI'*
OR 'PIP'* IS SET

036274
036276

036300

000404
000240

104000

BR
NOP
EMT

208

*VERIFY RECALIBRATION

*G0 TO 208 IF NO ERROR
*RETURN HERE IF ERROR

:ERROR # DEFINED BY TSTPRP SUBROUTINE

N 13

2 RMOAO RMO5/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

wi 036302

000137

037422

JMP

3213

3214 036306

3215 036306
3216 036314
3217 036322
3218 036330
3219 036336
3355? 036344
3222

000000
000000
106314
176774
010000
000063

036352

004737

041416

036360
036364

104401
104000

070230

000405

001444
001416
001414
001412
001442
001410

012737

071730

%2259 036406

004737

043344

3229 036412

012702

001551

036416

3231 036422

3232 036426
3233 036432
036436

3235 036442
3236 036446

012737

112722

112722
112722
112722

000001

JSR

o 036474

3245

3246 036500

036504
036506

036510

000137

037422

004737

044144

004737

045042

004737

044230

000404
000240

104000

036512

000137

037422

3250 036516

004737

057742

036524

000240

335‘4.; 036516
3249

036522

000405

,SCTMSG

:TYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROUTINE

JMP

3508

MOV

#ZEROS ,$TMPO

;DATA PATTERN

JSR

PC, GENBUF

;TO GENERATE BUFFER FOR FORMAT

TYPE
EMT

MOV

:GO TO 258 IF NO ERROR

*GO TO 3508 IF ERROR

#1,$TMP

sLOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATION

MOV

#PUTINX ,R2

ARMBA. (R2)+
ARMWC. (R2)+
#RMOF . (R2)+

000240
104000

3243

;CALL BAD SECTOR MODULE

MOVS
MOVB
MOVB

036460
036462

e 036470

001176

000006

044500

3241

001174

PC ,BADSCT

25$

000004
000002
000032

004737

036464

25%:

;CYLINDER= 0
*TRACK= 0, SECTOR
= 0
*BUFFER ADDRESS
*WORD COUNT FOR 2 SECTORS (2'S COMP)
216 BIT MODE
*WRITE HEADER

#RMDC, (R2)+

3237 036452
3238 036452

33523 036470

#0,RMDCO
#0. RMDAO
#BUF ONE ,RMBAO
#-258.+2 ,RMWCO
#FMT16,RMOFO
#WH!GO.RMCS10

MOVB

000000
000200

000404

MOV
MOV
MOV
MOV
MOV
MOV

000034

112722
112712

036456

208:

sVERIFY THAT SECTOR IS NOT BAD

036366 000137 037422

3223 036372
3224 036372

3225 036400

;GO TO 3508 IF ERROR

:LOAD PARAMETERS AND GENERATE DATA BUFFER

012737
012737
012737
012737
012737
012737

036356

3508

SEQ 0169 |

MOVB

308:

MOVB
MOvB
JSR

408:

WRMDA. (R2)+

#RMCST, (R2)+
#200, (RZ
PC,PUT

408

JMP

3508

NOP
EMT

;BYTE ENTRY TABLE

sTABLE TERMINATOR
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

:GO TO 408 IF NO ERROR

RETlRN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE

:GO TO 3508 IF ERROR

sSETUP GET INDEX TABLE TO READ ALL REGISTERS
~JSR

PC.GETSTS

;WAIT FOR COMMAND TO COMPLETE
JSR

PC, TIMOUT

;60 TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR

B8R
NOP
EMT

508 :

JMP

PC,GET

50§

3508

JVERIFY NO ERROR DURING FORMAT
JSR

NOP

PC,DTASTS

60$

: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

;GO VERIFY RESU.TS OF DATA TRANSFER

:GO TO 608 IF NO ERROR
:RETURN HERE IF ERROR

B 14
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-99

READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE

104000

004736
000137

EMT

JSR
JMP

037422

PC,a(SP)+

3508

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

:ggv LOOP ADDRESSES TO NEXT OPERATION

7 036544
3258 036552

012737

036560

012737
012737

177000
106314

001124

AR E

;LOOP 2

708:

Rttt d

d ittt
i1 2222232222228

READ AND WRITE CHECK IN OFFSET MODE

;PREPARE DEVICE FOR READ orrser OPEATION
JSR
PC,TSTP
;PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:

040472

.WORD

154130

80$

JMP

3508

;GO TO 3508 IF ERROR

#PUTINX,R2

;LOAD THE TABLE

NOP
EMT

037422

80$:
120%:
:READ OFFSET

MOV

001551
000006
000034
000032
000004
000002
000200

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

044500

JSR

NOP
EMT

001410

1258:

JMP

MOV

MOVB
MOVE

044500

037422

sERROR LOOP ADDRESS

:LOCATE %CFER ADDRESS AND WORD COUNT
#-256.%2 ,RMWCO ;TWO SECTORS
MOV
#BUF ONE ,RMBAO
sBUFFER ADDRESS

037422
000015
001551
000000
000200

#708 ,SLPERR

MOV

JSR

B8R

NOP
EMT

130%:

#RMDA, (R2)+
#RMDC. (R2)+
#RMOF
. (R2)+
#RMBA. (R2)+
#RMWC. (R2)+
#200, (R2)+
PC,PUT

125%

3508

:SELECT DEVICE & VERIFY DEVICE AVAILABLE
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

;GO _TO 80$ IF NO ERROR

sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

;TABLE TERMINATOR

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;G0 _TO 1258 IF NO ERROR

:RETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 350% IF ERROR
#OFFSET!GO,RMCS10
;OFFSET COMMAND

#PUTINX .R2

#RMCS1, (R2)+
#200, (R2)+
PC,PUT

1308

3508

;WAIT FOR COMMAND TO COMPLETE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

GO TO 1308 IF NO ERROR

:RETURN HERE IF ERROR

<ERROR # DEFINED BY PUT SUBROUT INE

;GO TO 3508 IF ERROR

SEQ 0170 |

C%?MAO RMO5/3/2 FCTNL TST 3

C 14
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-100

READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE

o 036712

004737

045042

3286 036716

012737

000071

3288 036730
3289 036734

112722
112712

000000
000200

3291 036740

004737

044500

036750

104000

3287 036724

012702

036744 000404
036746 000240

001551

036752

000137

037422

3295 036756

004737

044144

004737

045042

3259 036766

004737

044230

036774
036776

000240
104000

gggg 036756

3294,

3296

3267 036762

3258

036772

e 037000

000404

000137

001410

004737

037012
037014
037016

000240
104000
004736

000405

3305 037024

004737

037032
037034
037036

000240
104000
004736

1358 :

3311 037064
ggg 037072
3314

3315

JMP
JSR

JREAD DATA COMMAND

#PUTINX,R2
PC ,PUT

135s

3508
PC,GETSTS

sWAIT FOR COMMAND TO COMPLETE
JSR

*TABLE INDEX

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

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

:GO TO 3508 IF ERROR

:ERROR # DEFINED BY PUT SUBROUTINE

PC,TIMOUT

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

JREAD STATUS FOR READ OFFSET OPERATION
JSR

B8R

NOP
EMT

JMP

1408
:

000405
000240

104000
004736

000137

037422

012737
000410

037074

JSR

PC,.GET

1408

3508

;GO READ REGISTER(S) WITH GET SUBROUTINE

:GO TO 1408 IF NO ERROR

RETUW HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

:GO TO 3508 IF ERROR

PC,.PRIERR

2GO CHECK FOR PRIMARY ERRORS

NOP
EMT
JSR

PC,a(SP)+

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

JSR

PC,DTASTS

1508 :

057742

046060

037060

3310

000405

004737

3308 037064

A#RMCS1, (R2)+
#200, (R2)

;GO TO TIMOUT SUBROUTINE

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

045226

037422

037054
037056

MOVB
MOVB

EMT

037422

037040 000137

037050
037052

#RD !GO,RMCS10

JSR

037020 000137 037422
3304 037024

3306 037044
3307 037044

MOV

SEQ 0171

sCHECK ERROR DURING READ OFFSET

3302 037004
3303 037004

037030

PC, TIMOUT

B8R
NOP

3301

037010

JSR

[+ o Y

C%R!OAO RMOS5/3/2 FCTNL TST 3

JMP

1608
:

00112

3508
1608

:GO TO 1508 IF NO ERROR

:GO TO 3508 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

*GO TO 1608 IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

JRETURN HERE IF ERROR
*ERROR # DEFINED BY DTASTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

EMT
JSR

PC,a(SP)+

JMP

B8R
NOP

1808 :

1508

JMP

3508
1808

3508

#1908, SLPERR
200$

:GO TO 180% IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY SECERR SUBROUT
INE
;GO BACK FOR MORE ERROR CHECKS

*GO TO 3508 IF ERROR

:TO NEXT OPERATION

tttttttttttttttttttltt'tttttttttttttt!tttllt'tt'tt'tt'!'tittttt

LOOP 3 WRITE CHECK OFFSET

|
|
'

|
:

*GO TO 3508 IF ERROR

;CHANGE LOOP ADDRESS

MOV
BR

,
|

|
;
|

D 14
CZRMOAO RM05/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 12-101
127
READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE

3316 037074
3317
3318
3319 037074
037100

190%:

004737
154130

040472

;PREPARE DEVICE FOR READ OPERATION
JSR
PC TSTPRP
sPREPARE DEVICE FOR TEST
LWORD
154130
s TASK DESCRIPTOR AS FOLLOWS:

037102

037110
3320 037114
3321
3322
3323 037114
3324 037114
3325 037120
3326 037124
3327 037130
3328 037134
3329 037140
3330 037144
3331
3332 037150
037154
037156
037160
037162
3333
3334
3335 037166
3336 037166
3337 037174
3338 037200
3339 037204
3340
3341 037210
037216
037220
037222
3342 037226
3343
344
5 037226

3346
3347 037232
3348 037240
3349 037244
ggg? 037250

SEQ 0172

000137

037422

NOP
EMT

200%:

:SELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI''
OR 'PIP'' IS SET
;VERIFY RECALIBRATION
;GO _TO 2008 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 3508 IF ERROR

2008

3508

ézgirs CHECK DATA IN OFFSET MODE

012702
112722
112722
112722
112722
112722
112712

001551
000006
000032
000034
000004
000002
000200

004737
000404
000240
104000
000137

044500

MOV
MOVB
MOVB
MOVB
MOVB
MOVB

MOVB
JSR

B8R

NOP
EMT

037422

JMP

#PUTINX ,R2
#RMDA, (R2)+
ARMOF
. (R2)+
#RMDC.(R2)+
#RMBA. (R2)+
ARMWC.(R2)+
#200, (R2)

PC,PUT

2458
3508

s TABLE TERMINATOR
;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO _TO 2458 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 3508 IF ERROR

:SETUP OFFSET MODE FIRST

012737
012702
112722
112712

000015
001551
000000
000200

004737
000404
000240
104000
000137

044500

004737

045042

01
?}2702

000051
001551
000000
000200

n 2712

037422

2458:

MOV
MOV
MOVB

MOVB
JSR

BR
2508:

NOP
EMT
JMP

#OFFSET!GO,RMCS10
#PUTINX .R2
A#RMCS1, (R2)+

#200, (R2)
PC,PUT

2508

3508

;WAIT FOR COMMAND TO COMPLETE

JSR

PC, TIMOUT

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;G0 _TO 2508 IF NO ERROR

sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SIRROUTINE

;GO TO 3508 IF ERROR

;GO TO TIMOUT SUBROUTINE

;EXECUTE WRITE CHECK DATA COMMAND
MOV
MOV

MICD
' GO,RMCS10
#PUT INX .R2

MOVB

#200, (R2)

MOVB

;OUTPUT BUFFER

A#RMCS1, (R2)+

E1
CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO V03.01 11-APR-80 13:39:53 PAGE 12-102
127
READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE
3352 037254
037260

004737
000404
000240
104000
000137

037422

004737

044144

044500

004737

045042

004737
000404
000240

044230

000137

037422

104000

JSR
BR
NOP
EMT

255%:

3367 03
3368 037360

3369 037400
3370 037400
3371 037406
3372 037410
3373 037416
3374 037422
3375

255%

3508

;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

s SETUP GEgRINDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
;GO TO GETSTS SUBROUTINE
;WAIT FOR COMMAND TO COMPLETE

JSR

PC, TIMOUT

;GO TO TIMOUT SUBROUTINE

;READ STATUS FOR WRITE CHECK OFFSET OPERATION

JSR

NOP
EMT

2608%:

JMP

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUT INE

2608

;GO _TO 2608 IF NO ERROR

3508

;GO TO 3508 IF ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE

;CHECK ERROR DURING WRITE CHECK OFFSET OPERATION
JSR
PRIERR
;GO CHECK FOR PRIMARY ERRORS

045226

3365 037340
3366

PC,PUT

B8R

NOP
EMT
JSR

037422

:
2708

057742

037422

280$%:

046060

000200

001442

000200
036536

001442

:
3008

350%:

;GO _TO 2708 IF NO ERROR

:RETURN HERE IF ERROR

PC,a(SP)+

3508

;ERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 3508 IF ERROR

JSR
BR
NOP
EMT
JSR

PC.DTASTS
2808

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 280$ IF NO ERROR

3508

:GO TO 3508 IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS
:GO_TO 3008 IF NO ERROR

JMP

037422

2763

PC,a(SP)+

3008

NOP
EMT
JSR
JMP

PC.a(SP)+
3508

BIT
BNE
BIS
JMP

#OFD,RMOF
O
3508
#0FD ,RMOFO
60%

sRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

sRETURN HERE IF ERROR

;ERROR # DEF INED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

:G0 TO 3508 IF ERROR

:IN FORWARD DIRECTION OF OFFSET ?
:BRANCH IF SO
sSET TO FORWARD DIRECTION

;CHANGE OFFSET DIRECTION TEST AGAIN

SEQ 0173

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

O VONOVNSWN=OVO
NN WN =

CZRMOAO RMOS5/3/2 FCTNL TST 3
END OF SUB-PASS ROUTINE

.SBTTL

SEQ 0174

END OF SUB-PASS ROUTINE

:THIS IS THE END OF SUB-PASS ROUTINE. THIS ROUTINE IS USED TO
: TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND
:SELECT THE NEXT DEVICE FOR TEST. IF _THERE ARE NO MORE DEVICES
:TO TEST, EXIT IS MADE TO 'SEOP' ROUTINE. OTHERWISE, RETURN

;1S MADE TO "READY' ROUTINE.

)

$EOSP:

MOV
ADD

MOV

TST

—-g——

001464
000002
001464

[ ' S

012737

064076
001466

gcc)gps

BEQ

001464

TSTQUE ,RO

;GET POINTER TO TSTQUE

RO, TSTQUE

;SAVE POINTER TO TSTQUE

;BR IF NO

#2,R0O

(RO)

1%:

JMP
MOV

.SBTTL

END OF PASS ROUTINE

sADJUST POINTER TO NEXT DEVICE

sANY MORE DEVICES FOR TEST ?

SHUT
;JUMP TO SHUT AND CHECK FOR CONTROL C
#TSTQUE+2, TSTQUE
JINITIALIZE POINTER TO FIRST DEVICE IN
;TEST QUE TABLE

ttttttttttttttttttttttt"tttt'tt.ttttttttttt.tttttttttttttttttt

~1NCREP£NT THE PASS NUMBER (S$PASS)
s*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY'

J*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
;s*IF THERES A MONITOR GO TO IT

:'IF THERE ISN'T JUMP TO SHUT

Son-

ssss

$EOP:

BIC

DEC
$EOPCT: .WORD

$ENDCT:

037516
037520
037524

037526
éi?s"

037622
037622

013746

&278:

001126

$TSTNM
$TIMES
$PASS

;:ZERO THE TEST NUMBER
::ZERO THE NUMBER OF ITERATIONS
s INCREMENT THE PASS NUMBER

(PC)+
1

2 :LOOP?

#100000, $PASS

BGT
MOV

$DOAGN

648

MOV

$PASS ,-(SP)

.WORD
SEOPCT
TYPE

LASCIZ

TYPDS
TYPE

037560

nNONN

000421

104405
104401

288

037550
037552
037556

001230

-y
N -

013746

—

037544
037544

CLR
CLR
INC

;

001230

NOP

(PC)+,a(PC)+

.653

,67%

66%

MOV

$ERTTL ,~(SP)

TYPDS
TYPE

LSCRLF

CLR

$GET42: MOV

2:YES

2 sRESTORE COUNTER

..TYPE ASCIZ STRING

;GET OVER THE ASCIZ

<12><15>/END PASS #/

LASCIZ

..Dm T ALLOW A NEG. NUMBER

;:SAVE SPASS FOR TYPEOUT

:2:TYPE PASS NUMBER
2260 TYPE-DECIML ASCII WITH SIGN
..rYPE ASCIZ STRI

:GET OVER THE ASCIZ

TOTAL ERRORS SINCE LAST REPORT /

$ERTTL

a#62 RO

..SAVE SERTTL FOR TYFEOUT
..
AL NUMBER OF ERRORS

TYPE-DECIHAL ASCII WITH SIGN
..TYPE CARRIAGE RETURN, LINE FEED

. sCLEAR ERROR TOTAL

;:GET MONITOR ADDRESS

CZRMOAO RMOS/3/2 FCTNL TST 3
END OF PASS ROUTINE

MACRO V03.01

037644
037646
037650

BEQ

RESET

377
21

G14

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

000

$ENDAD: JSR
NOP
NOP
NOP
$DOAGN:
JMP
$RTNAD: .WORD
S$ENULL:
.EVEN

$DOAGN
PC. (RO)

; sBRANCH IF NO MONITOR
;sCLEAR THE WORLD
2:GO TO MONITOR

+ :SAVE ROOM

;:FOR
J:ACTI
a(PC)+
SHUT
«1.-1.0

2 JRETURN

ssNULL CHARACTER STRING

SEQ 0175

CZRMOAQ RHOS/3/2 FCTNL TST 3

SBTTL
SBTTL

Attt sttt
I
22222283

ERROR TYPEOUT ROUTINE

;*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION
:'REGARDING THE DETECTION OF AN ERROR AS FOLLOWS:
WITTHME’?EESTTELEMER ERROR NUMBER AND PROGRAM COUNTER ARE

'PRINTED

.ERROR MESSAGE IS ASSEMBLED, FORMATTED AND PRINTED ON

*(WE OR MORE SUCCEEDING LINES:

sl wld
sl il
il
il
b

SEQ 0176

SUBROUT INES

ML AR

il el

WN—‘B‘O@VOMJ‘WN—‘OO@\JO‘MJ‘WN&

SUBROUT INE

H 14
MACRO v03.01 11-APR-80 13:39:53 PAG E 14

.PAIRED LINES OF ERROR HEADERS AND ERROR DATA
'ARE PRINTED AFTER THE ERROR MESSAGE.

037670
037670
037672
037700
037702

037706
037712
037716

037722
037724
037725
24 037726

104414

032777
001402
000137
104401
104401

013746
104403
003
000

005037
013737
104401

27 037744

013746

037750
037752

104403

31 037770

ERRTYP:

020000

001234

040424
001226
040442
040424

013746

005737
001575
104401
105037

105037
013700

'IM‘IBIT TYPEOUTS??

MOV

SlNIT -(SP)

::SAVE SUNIT FOR TYPEOUT
;:TYPE UNIT NUMBER
::G0 TYPE--OCTAL ASCII

.BYTE
.BYTE

3
0

MOV

S$TESTN,TSTNMB

MOV

TSTNMB,~(SP)

CLR

040424

TYPE

TYPOS

040452
040426

006
001

#SW13,aSWR
1%

TYPOS

040426
001130

104403

SAVREG

BIT
BEQ

:NO!!
JMP
218
YES':
sTYPE UNIT NUMBER, TEST NUMBER, ERROR NUMBER, AND PROGRAM COUNTER
13
TYPE
SCRL
TYPE
LERTY00
;TYPE "UNTH''

040420

003
000
005037
113737

104403
003
000
104401
013746

141254

.BYTE
.BYTE

CLR

040426

MOVB

2%:

: s SUPPRESS LEADING ZEROS
;LOAD TEST NUMBER FOR

LERTYO1

sTYPE "TSTA''

3
0

;:TYPE 3 DIGIT(S)
..SLPPRESS LEADING ZEROS

ERRNMB

$1TEMB,ERRNMB

MOV

ERRNMB,-(SP)

TYPOS

040461
001132

TSTNMB

BEQ

TYPE

.BYTE
.BYTE
TYPE

MoV

;:TYPE 3 DIGIT(S)

LERTY02

3
0
LERTY03

$ERRPC,~-(SP)

TYPOS

;:SAVE TSTNMB FOR TYPEOUT
;:TYPE TEST NUMBER
::G0 TYPE--OCTAL ASCII

:SKIP IF NO ERROR CALLED

:TYPE "ERRA''
:;SAVE ERRNMB FOR TYPEOUT

::TYPE ERROR NUMBER
::G0 TYPE--OCTAL ASCII
::TYPE 3 DIGIT(S)
..SU’PRESS LEADING ZEROS
;TYPE 'P(C=

: : SAVE SERRPC FOR TYPEOQUT

::TYPE PROGRAM COUNTER

::G0 TYPE--OCTAL ASCII

BYTF
..TYPE 6 DIGIT(S)
.BYTE
1
:TYPE LEADING ZEROS
: GENERATE POINTER TO ERROR TABLE' lNLESS ERROR NUMBER IS 0
3s:
TST
ERRNMB
S AN ERROR CALLED?
BEQ
218
~o
TYPE

CLRB
CLRB
MOV

.SCRLF

BOTFLG
CHRCNT
ERRNMB RO

.YES-TYPE CRLF
:CLEAR BOT FLAG
;CLEAR CHARACTER COUNTER
;RO POINTS TO FIRST OF

42 040046
43 040050

SEQ 0177

006300
006300

006300

I 14

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

001570

;TYPE
A ¥

040236
040430

5%:

000015

040433

000012

ASL
ASL
ASL
ADD
MOV

RO
RO
RO

:FOUR ENTRIES IN ERROR
*TABLE

(RO) ,R1

;§lafgx~rs TO ERROR MESSAGE

BEQ

138

:BRANCH IF NO ERROR MESSAGE

BEQ
MOV
CLR
MOVB
BEQ
CMPB
BNE
CLRB

128

THE ERROR ME SSAGE
MOV
(R1)+,R2

6%:

CMPB

7%:

INCB

8%:

INCB

000011

040433
000007

040433

040433
000040
040430
000100

#SERRTB-8.
RO

R2,11$
BOTADR
(R2)+,R3
108
#CR,R3

CHRCNT

#LF ,R3
3
#HT ,R3

8%
CHRCNT
#7,CHRCNT

CHRCNT
#' ,R3

:R2=ADDRESS OF MESSAGE STRING

:BRANCH IF END OF MESSAGE

:LOAD ADDRESS OF STRING
*CLEAR BOT ADDRESS
:END OF STRING??
SYES!!
:CARRIAGE RETURN??

*NO!!

*YES=CLEAR CHAR COUNT

:GET NEXT CHARACTER

*LINE FEED??
*YES=GET NEXT CHARACTER
*HORIZONTAL TAB??

*NO!!
:ADJUST CHARACTER COUNT

: INCREMENT CHARACTER COUNT
*SPACE??

sNO!!

R2,BOTADR
gg4..cunc~1

:SAVE ADDRESS OF SPACE
;sgq'or LINE??

040430

BOTADR, R4

:GET ADDRESS OF LAST SPACE

001217
040433
040236

.$CRLF

:TYPE CRLF

177777

040433

9% :

CMPB

908

040432

CHRCNT
;;s.nz

:CLEAR CHARACTER COUNT
*SET UP R2 FOR TESTING

~(R4)
#-1,B0TFLG

:REPLACE SPACE
*SET BOT FLAG

ggrrLG

,$CRLF

:TYPE ERROR MESSAGE STRING
:STRING ADDRESS GOES HERE
:=8§.STRING TRUNCATED??

*YES=TYPE CRLF

BOTFLG
CHRCNT
BOTADR,R2
R2.11$
#'°
-(R2)

*CLEAR BOT FLAG
*CLEAR CHARACTER COUNT
*SETUP R2 FOR TESTING
:SETUP 118 FOR TYPING
*RESTORE SPACE

*TYPE REST OF STRING

(R25 +

12%:

*BRANCH IF SPACE DETECTED

*RESTORE R2

%;;PE ERROR HEADER AND ERROR DATA

000002

MOV
BEQ

2(R0) ,R1
21%

;R1 POINTS TO ERROR HEADER TABLE
sBRANCH IF NO HEADER

MACRO v03.01

CZRMOAD RMOS5/3/2 FCTNL ST 3
ERROR TYPEOQUT ROUTINE

001217
000004
000006
040334

.SCRLF

14%:

15%:

21%:
TSTNMB:

ERRNMB:
BOTADR:
BOTFLG:
:
CHRCNT

§N°N-‘

oW
—

0433

19%
a(R4)+,-(SP)

. WORD
. WORD
.WORD
.BYTE
.BYTE

ERTYOQ0: .ASCIZ
ERTYO1: ASCIZ
ERTYO2: LASCIZ
ERTYO3: LASCIZ
ERTYO4: LASCIZ
.EVEN

(R4)

:BRANCH IF END OF HEADERS
s (ASSUME END OF DATA)

.mll

;R4 POINTS TO DATA ADDRESS
;R5 POINTS TO FORMAT
sWHAT KIND OF DATA??
;BINARY
sOCTAL
;DECIMAL

:MORE DATA??
*NO'!

;YES=TYPE 2 SPACES

sAND CONT INUE

:TYPE ONE BLANK LINE

;BEFORE NEXT HEADER

:TEST NUMBER
;ERROR NUMBER
;BEGINNING OF TEXT ADDRESS
:BOT FLAG
s CHARACTER COUNT

53
o

:
208

BR
MOV
TYPBN
TST
BEQ
TYPE
BR
TYPE
BR
RESREG
RTS

g lelelelele)

0416
20
0422

001217

;DATA WITH HEADER??

om
D0

RRRR R RRRRR R RRRRRRR
RRRR R
RRR
R
NP
N=ron ®
RER
0472

040467

R2
14%
(R2)+,R4
(R3)+,RS5
(R5)+
18%
17%
a(R4)+,~-(SP)

M =

D e
D o
D
) D d
D
) D
)
D
)
)
) —d
D
- e
—

SN N=0O0

H SESW

0410

sHEADER ADDRESS GOES HERE

:PUT HEADER ADDRESS FOR TYPE

19%
a(R4)+,-(SP)

17%:

19%:

.SCRLF

16%:

18%:

:R2 POINTS TO DATA ADDRESS TABLE
:R3 POINTS TO FORMAT TABLE

104401
000000
10440;

s (ASSUME NO DATA)

4(RO) ,R2
6(R0) ,R3
(R1)+,15%
218

R
~

j=l=]

104401
016002
016003
012137
001433

J 14
11-APR-80 13:39:53 PAGE 14=2

) D

NN NI NI NI NIND = b b b e d o e b
ant il b cnl anl ol ol s
& < FHRURZEY AN
BNRRRUN
S BBV N r 03B IRAR [o]ole]
W)
=

ERROR TYPEQUT ROUTINE

MACRO v03.01

CZRMOAO RMOS5/3/2 FCTNL TST 3

SEQ 0178

CZRMOAO RMOS5/3/2 FCTNL TST 3

NNB
N=OVONYOVNSWN=2OVONONNSWN
=

TEST PREPARATION MODULE

K 14
MACRO v03.01 11-APR-80 13:39:53 PAGE 15

.SBTTL

REPORTING AN ERROR TO THE USER IF AN ERROR IS

CALL:
R
R

N TR T TR T TSR T U TP U YU T T P I

1
1

NOP

ERROR

TASK/VERIFY DESCRIPTOR

BIT 15 =1

TASK/VERIFY DESCRIPTOR
RETURN HERE IF NO ERROR
RETURN HERE IF ERROR
ERROR DEF INED BY MODULE

SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE

CLEAR CONTROLLER AND SELECT DEVICE
(RESERVED FOR DRIVE CLEAR)

PACK ACKNOWLEDGE IF VOLUME NOT VALID

BIT 11 =1
BIT 10
BIT 9
BIT 8
BIT 7
BIT6

RECALIBRATE IF POSITIONING IN PROGRESS

VERIFY CONTROLLER CLEAR OPERATION
(RESERVED FOR DRIVE CLEAR)

VERIFY PACK ACKNOWLEDGE
VERIFY RECALIBRATION

L
R
L

BIT 2
BIT 1
BIT 0

017637
062716

000000

041412

:STORE TASK DESC RIPTOR AND CLEAR USER'S ERROR CALL

004737

a(SP), 5008
#6, (SP)

suB

#4, (SP)

:STORE DESCRIPTOR
:MOVE SP TO USERS ERROR CALL
:CLEAR ERROR CALL
:MOVE SP TO NO ERROR RETURN

JSR
JSR

PC,GETSTS
PC.GET

:SETUP TO READ ALL REGISTERS
*GET RMER2

.WORD
ADD
MOVB

0
#4, (SP)
108$-2.3(SP)

MoV

RMER2],505%

CLRB

044144
044230

0405
51 040532
52 040536
gz 040544

062716
113776
000137

000004
040530
041402

000000

gg 040550

013737

001376

041414

000411
000401

ADD

MOV

105076
162716

004737

THE USER

TSTPRP:

47 040520

48 040524
49 040526

PC,TSTPRP
NNNANN

23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 040472

JSR
WORD

LR TR

1
1

46 040514

DETECTED.

SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES
USING SUBROUTINES.

43 040504
44 040510

TEST PREPARATION MODULE

; THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST,

41 040472
42 040500

SEQ 0179

a(SP)

BR
BR
108:

158
108

JMP

158:
MR

4008

:BR IF NO ERROR DETECTED
:GET OVER ERROR NUMBER

:ERROR DEFINED BY GET SUBROUTINE
:XFER ERROR TO USER AND
:GET ERROR NUMBER.

;GET RMER2 AND SAVE FOR LATER
e

2222222222222

CZRMOAO RMOS5/3/2 FCTNL TST 3

TEST PREPARATION MODULE

58
59 040556
2‘1) 040562

62 040564
63 040570
64 040572
66 040576
67 040602
68 040610

005737
100014

041412

737
11
000401
000000
062716
113776
000137

052132

000004
040574
041402

L 14

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

SEQ 0180

sSELECT DEVICE AND VERIFY DEVICE AVAI LABLE IF
BT 15 SET IN TASK
TST
5008
SEL
ECT DEVICE

BPL

308

iNO!!

JSR

PC,DEVSEL

;GO SELECT DEVICE

BR
000000

.WORD

208:

ADD

MOVB
JMP

382

#%, (SP)

zoi-z a(SP)

:NO ERROR = CONTINUE

;ERROR NUMBER FROM DEVSEL

:TRANSFER ERROR TO USER

'tttt.tttttt'.'tt'.!t"t""tQ*.'ttttt"'.!tt'tittttt*tittttt..

355““ CONTROLLER IF BIT 14 IS SET IN TASK

73 040614
;lso 040622

032737
001451

040000

76 040626
77 040630

004737
000411

053604

78 0460632

80 040636
81 040642

82 040650

000401
000000
062716
113776
000137

000004
040634

041402

041412

BIT
BEQ

#81T14,5008
1208

;CLEAR CONTROLLER??
INO!!

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

;ERROR NUMBER FROM CNTCLR

BR
408:

000000

.WORD

508:

AR R

ADD

#4, (SP)

JMP

4008

MOVB
AR

608

AR Al

40%,3(SP)

:CONTINUE = NO ERROR

:TRANSFER ERROR TO USER

3122323223

222223

é\éiRlFY CONTROLLER CLEAR IF BIT6 SET IN TASK

87 040654
88
040662

032737
001431

000100

90 0460664
91 040670
92 040672

004737
000411
000401
000000
062716
113776
000137

044230

9% 040676
95 040702
99 040710
9
98 040714
99 040720
100 040722

040734
040742

000000
005726
062716
113776
000137

000000

053722

708:
80$:

90$:

1108:

000000

JSR

PC,GET

ggg

;G0 GET STATUS

.WORD
ADD

MOVB
JMP

O
#6, (SP)

70%.3(SP)
4008

:ERROR FROM GETTING STATUS
*TRANSFER ERROR TO USER

JSR

PC,CLRSTS

:GO VERIFY STATUS CLEAR

.WORD

7sT
ADD
go’@'ya

ARl

e
d
-

:VERIFY??

1208

figg

(SP)+
#%, (SP)
106: a(sP)
e

*NO!
!

*NO ERROR GETTING STATUS

*NO ERROR IN CLEAR

:ERROR IN STATUS CLEAR

*STRIP RETURN ADDRESS TO
*SUBROUTINE AND TRANSFER
*ERROR TO USER
i

T332 1122122222222223222

E"“b’{f,g“‘" ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS

04
040746
040754

032737
001503

010000

040756

004737

044230

e
—

#B1T6,5008

BEQ

1008:

000004
040724
041402

BIT

S WN=O
-‘-hg-a-18sgsfiiegi!
g

D i

02 040726

004737
000412
000401

000004
040674
041402

041412

1
20s:

BIT

#81712,5008

JSR

PC,GET

BEQ

2408

:PACK ACKNOWLEDGE??

SNO!!

CZRMOAD RMOS5/3/2 FCTNL TST 3

TEST PREPARATION MODULE

000411
000401
000000
062716
113776
000137

22 041006
Sz 041014

032737
001063

D e e

D e

115 040762
116 040764
117 040766
118 040770
119 040774
5(1) 041002

25 041016
26 041022
27 041030
28 041036

005037

SEQ 0181

000000

000100

001346

001510

062715
113776
000544

000004
041054

% 041072

004737

045042

D e

30 041050
31 041052
32 041054
33 041056
34 041
;2 041070

000023
000000
000200
044500

D
)
)
D
D
)
D
D i
D i
D i

39
40

49 041126

113776

D e

000000

—

032737
001427

000020

004737
000410
000401

044230

062716

000004

041116

}g? 041132

000523

152 041134

004737

154 041142
155 041144
156 041146
157 041150
158 041154
159 041162
160
161
162
163
164 041164
165 041164
}gg 041172

000401

032737
001505

004000

168 041174
169 041200
170 041202
171 041204

004737
000410
000401
000000

044230

153 041140

1408:

BR
BR
.WORD
ADD

Mov8
JMP

1508:

001410
001551
001552

;TRANSFER ERROR TO USER

240§

SYES!!

CLR

MEDENS

;CLEAR MEDIA ENABLE

JSR

PC,PUT

;GO WRITE COMMAND

0
#4, (SP)

;ERROR FROM PUT SUB
*TRANSFER ERROR TO USER

PC, TIMOUT

;WAIT FOR COMMAND TO COMPLETE

.WORD
ADD

MOVB

B8R

1808:

1308.a(sSP)

#VV,RMDS |

BR
000000

:NO ERROR GETTING RMDS

BIT

BNE

MOV
MOVB
MOVB

1608:
1708:

1508
1408
0
#4, (SP)

JSR

;1S VOLUME VALID??

#PAKACK
!
GO,RMCS
10
LOAD PACK ACK COMMAND
MRMCST,PUTINX
;SETUP necxsrsn INDEX TABLE
#200,PUTINX+1

}98:

*NO ERROR LOADING REGISTER

1608,a(SP)

ttttttt'tttttttt.ttt'ttttttt't.tttttt'ttt'tttttl'ttttttitt'tttt

41 041076
42 041104
43
44 041106
45 041112
46 041114
47 041116

48 041120

1308:

000004
040766
041402

012737
112737
112737
004737
000410
000401

29 041044

M 14
MACRO v03.01 11-APR-80 13:39:53 PAGE 15-2

000411

005726
062716
113776
000507

041412

“VERIFY PACK ACKNOWLEDGE IF #8174 SET IN TASK

BIT
BEQ

#8174, 5008
2408

JSR

PC,GET

BR
.WORD

2oos
O

MOVB

1965 a(sP)

1908:

000000

054602

2008:

2108:

2208:
2308:

000004
041144

ADD

;GO GET STATUS

2108

*NO ERROR GETTING STATUS
;ERROR FROM GET SUB

#6, (SP)

JSR

PC,ACKSTS

B8R

2303

.WORD
TST

ADD

dddd

*TRANSFER ERROR TO USER

;60 CHECK ACKNOWLEDGE

2408

:NO ERROR

<sp)¢

;PACK ACKNOWLEDGE ERROR
;STRIP RETURN TO SUB AND
: TRANSFER ERROR TO USER

#4, (SP)

zzbs a(sP)

sttt

RECALIBRATE DRIVE IF BIT 11

041412

é4

PIP" IS ACTIVE.

BIT
BEQ
JSR

2508:

B8R
B8R

.WORD

venxrv PACK ACKNOWLEDGE??

Il IT22322222222223223222;

IS SET IN TASK AND ‘'SKI'' IS SET

#81T11,5008
4108

;RECALIBRATE??
INO!!

PC,GET

;GO GET RMDS

2708
2608
0

:NO ERROR GETTING RMDS
;ERROR FROM GET SUB

CZRMOAO RMO5/3/2 FCTNL TST 3

TEST PREPARATION MODULE

N 14
MACRO v03.01 11-APR-80 13:39:53 PAGE 15-3

172 041206
173 041212
};’é 041220

062716
113776
000470

000004
041204

000000

176 041222
177 041230
178 041232
}gg 041240

032737
001004
032737
001462

040000

041414

020000

001346

181 041242
182 041250
183 041256
184 041264
185 041270
186 041272
187 041274
188 041276
189 041302
}g{l) 041310

012737
112737
112737
004737
000410
000401

000007
000000
000200
044500

001410
001551
001552

062716
113776
000434

000004
041274

‘%g% 041312

004737

045042

ADD

#6, (SP)

B8R

4008

2708:

BIT
BNE
BIT
BEQ

#SK1,5058
2808
#PIP,RMDSI
4108

280%:

MOV
MOVB
MOV

#RECAL
! GO,RMCS10
:LOAD RECALIBRATE COMMAND
WRMCST1.PUTINX
;AND REGISTER INDEX
#200,PUTINX+1

3008

*NO ERROR

.WORD
ADD

0
#4 ., (SP)

;ERROR IN REGISTER TRANSFER
:TRANSFER ERROR TO USER

4008

JSR

PC, TIMOUT

mov8

JSR

B8R

194
195
196 041316
%gg 041324

032737
001430

000010

199 041326
200 041332
201 041334
202 041336
203 041340

004737
000410
000401
000000
062716

044230

205 041352

000413

113776

041336

207 041354
208 041360
209 041362
210 041364
211 041366
212 041370

004737
000412
000401

055376

041

2608:

000000

290$:

3008:

movB

2508.a(sP)

PC,PUT

2908

290$-2,a(sP)

:TRANSFER ERROR TO IJSER

;WAS SKI SET ?
*YES, GO RECALIBRATE
*IS PIP ACTIVE??
*NO!!

+GO ISSUE RECALIBRATE

;WAIT FOR COMPLETION

.' : ‘kttfi*ttl‘tt*tttttttt.'ittti"tttttittttti't'ttttttt.ttfittttttttt

213 041374
214 041402
215 041406
S}g 041410

005726
062716
113776
162716
000240
000207

218 041412
5}8 041414

000000
000000

000004

000004
041364
000002

041412

:VERIFY RECALIBRATE IF BIT 3 SET IN TASK
BIT
BEQ

JSR

000000

310$:
3208:

330$:

3408:
3508:

000000

4008:
4108:

5008:
5058:

#8IT3,5008
4108
PC,GET

:VERIFY RECALIBRATE??
*NO!!

;GO GET STATUS

3308

*NO ERROR GETTING STATUS

.WORD
ADD

O
#4, (SP)

;ERROR FROM GET
:TRANSFER ERROR TO USER

B8R

4008

JSR

PC.RCLSTS

§;8§

*NO ERROR DURING RECAL IBRATE

.WORD
TST

O
(SP)+

;ERROR DURING RECAL IBRATE
*STRIP RETURN TO SUB AND

B8R

mov8

3208

3108.a(sP)

;G0 CHECK RECALIBRATE

ADD

#4, (SP)

SUB
NOP

#2,(SP)

;MOVE SP BACK BEFORE ERROR

RTS

:RETURN TO USER

.WORD
.WORD

0
O

s TASK/VERIFY DESCRIPTOR

MOVB

3408.a(SP)

:TRANSFER ERROR TO USER

:CONTAINS RMER?

SEQ 0182

CZRMOAQ WS/S/Z FCTNL TST 3

dBO@VO‘U\bWN—'OO@VOU\bWNa

BAD SECTOR MODULE

15
MACRO v03.01 11-APR-80 13:39:53 PAG 16
.SBTTL

:THE MODULE RETURNS TO THE CALLING TEST WITH THE APPROVED OR ASSIGNED

;SECTOR_IN THE PUT BUFFER AND ALSO IN LOCATIONS ‘'ASNDA'' AND ‘‘ASNDC''
SO THAT A REFERENCE IS AVAILABLE TO THE TEST OUTSIDE OF YHE PUT BUFFER.

THE BAD SECTOR MODULE PERFORMS TWO MAJOR FUNCTIONS:

(1)

(2)

TR T

THE ONE

INFORMATION REQUIRED BY THE MODULE INCLUDES:
(1)
.RMDCO - THE DESIRED CYLINDER,
(2)
.RMDAO - THE TRACK AND SECTOR ADDRESS,
(3)
.RMWCO = THE WORD COUNT,
(4)
.RMCS10 = THE COMMAND,
(5)
.RMOFO - THE FORMAT MODE
CALL:

JSR
BR

PC ,BADSCT
727
.MESSAGE

sRETURN HERE IF THE BAD SECTOR FILE

ERROR

:THE EMT OFFSET NUMBER °'N'

ADD
CLRB
suB

#6, (SP)
a(sP)
#6,(SP)

TYPE

062716
105076
162716

005737
001402
000137

BADSCT

000006
000000
000006

s CALL SUBROUT INE
JRETURN HERE IF NO ERROR
s CANNOT BE RECOVERED.

;BY BAD SECTOR MODULE.

IS DEF INED

;CLEAR ERROR NUMBER IN USER'S
;ERROR CALL.

sTEST "McDIA ENABLE'' TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES
sHAVE BE?SUTRECOVERED.
MEDENB
sHAS BAD SECTOR FILES BEEN RECOVERED ?

001510

BEQ

JMP

042712

3008

:BR_IF NO

:YES, BAD SECTOR FILE IS AVAILABLE

;RECOVER THE MANUFACTURES / l.JSERS BAD SECTOR FILE FROM CYLINDER = 82?

:TRACK = LAST TRACK (RM02/3 = 4 AND RMO5 = 18.). ALSO, SAVE THE USER'S’

45
46

E:UT BUFFER

041444
48 041446
49 041450
50 041456
51 041462
52 041466
53

010046
005000
016060
062700
022700
103370

56 041470

012737

THE BAD SECTOR FILES OR ASSIGN A NEW SECTOR IF

TR
L

47 041444

RECOVER THE BAD SECTOR FILES AND

APPROVE THE USAGE OF A SECTOR BASED ON INFORMATION IN
ELECTED IS NOT AVAILABLE FOR USE.

38
39
40 041432
41 041430
2% 041440

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
.‘gggsifhgfb ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT

1
1

2
22
23
24
25
26
27
28
29
30
31
32
33 041416
34 041416
35 041422
g9041426

SEQ 0183

001410

000002
000046

000003

MOV
CLR

RO,=(SP)
RO

..PUSH RO ON STACK
START WITH RMCS1

#2,R0
#46,R0
108

sADVANCE TO NEXT BUFFER POSITION
;END OF BUFFER
NO
!

106314

108:

043330

sSET RETRY COUNT AND LOAD PUT BUFFER AND REGISTER INDEX TABLE
sSETUP PARAMETERS TO READ SKIP SECTOR FILE FIRST (3
SECTORS)
MOV
#3,500%
sRETRY COUNT

MOV

ADD
CMP
BHIS

PUTBUF (RO) ,BUFFER (R0)

CZRMOAQ RMOS5/3/2 FCTNL TST 3

69 041564
70 041570
71 041574

96 041676
97 041702
98 041706
99 041710
100 041712
101 041714
102 041720
103 041726
104
105 041732
106 041736
107 041740
108 041742
109 041744
110 041746
111 041752
112 041760
113

RS UNS

#822. ,RMDCO

MOV

#-258. ,RMWCO

MOV

#MF GF I, RMBAO

216 BIT FORMAT
:POINT TO MANUFACTURES FILE BUFFER

#PUTINX,RO

;RO POINTS TO REGISTER INDEX TABLE

MOV

LSTRK ,RMDAO

#FMT16,RMOFO

MOVB
MOVB
MOVB
MOVB
MOVB

WRMDA, (RO)+
#RMDC. (RO)+
ARMWC. (RO)+
WRMOF. (RO)+
ARMBA. (RO)+

MOVB

#200, (RO)+

MOVB

000000
000200

SEQ 0184

MOV

63 041534
64 041540
65 041544
66 041550
67 041554
68 041560

74 041576
75 041576
76 041602
77 041606
78 041610
79 041612
80 041614
81 041620
82 041626
83
84 041632
85
86
87 041640
88 041646
89 041652
90 041654
91 041656
92 041660
93 041664
gg 041672

&~ ONg

—_-O N

012737

57 041476
58 041504
59 041512
0415
61 041526

388

BAD SECTOR MODULE

C15

MACRO v03.01 11-APR-80 13:>": 53 PAGE 16-1

MOV

sDESIRED CYLINDER = 822.
:STARTING LAST TRACK, SECTOR
= 0

;:2

+ 256, WORDS (2°S’COMP)

#RMCST, (RO)+

(SP)+,RO

;:POP STACK INTO RO

5857 GET INDEX TABLE FOR READING STATUS

044144

JSR
JSR

044230

BR
B8R

WORD

PC,GETSTS
PC,GET

30$
258

;SETUP GET INDEX REGISTER FOR STATUS
*GET REGISTERS

:BR IF NO ERROR
:JUMP OVER ERROR NUMBER

*ERROR DEF INED BY GET SUB

zsi-z a(sP)
215

*GET ERROR NUMBER.

RMER21,5508

;GET RMER2 AND SAVE FOR LATER

716
113776

000137

000006
041612
042412

000000

013737

001376

043342

308:

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

258:

358 :

000006
041656
042412

408:

045042
044230

458:

000006
041712
042412

057140

042412

#6, (SP)

MOV

MOVB
JMP

BR
B8R
WORD

508 :
55$:

608:

708:

:XFER ERROR TO USER AND

MOVB

458
408
0
#6, (SP)
si 3(SP)

*RETURN HERE IF NO ERROR
*GET AROUND ERROR
#
:ERROR # GOES HERE
*MOVE SP TO USERS ERROR CALL
:MOVE ERROR NUMBER TO USER

JSR

PC, TIMOUT

;WAIT FOR COMPLETION

BR
BR

608
55%

:RETURN HERE IF NO ERROR
*GET AROUND ERROR #

ADD

JMP

658 :
000006
041742

ADD

JSR

215

PC.GET

160 GET STATUS

.WORD
ADD

0
#6, (SP)

JMP

2158

JSR

PC,DRVSTS

.WORD

*ERROR # GOES HERE

ADD

#6, (SP)

*MOVE SP TO USERS ERROR CALL

MOVB

BR
B8R

TST

?%e

508.a(SP)

758
708

(SP)+

gsi‘a(sm

*ERROR # GOES HERE
*MOVE SP TO USERS ERROR CALL

:MOVE ERROR # TO USERS ERROR CALL
;GO VERIFY DRIVE CLEAR COMMAND

:RETURN HERE IF NO ERROR
:GET AROUND ERROR

*STRIP RETURN TO SUBROUTINE

*MOVE ERROR # TO USER CALL

RMOAQ RMOS/3/2 FCTNL ST 3
SECTOR MODULE

114
115 041764
116 041764

032737

119 041774
120 042002
121 042006

012737
004737
000411

000023
044500

062716
113776

000006
042012
042412

004737
004737
000411
000401

045042
044230

062716
113776
000137

000006
042046
042412

004737
000412
000401

054602

137 04
138 042072
139 042074
140 042076
141 042100
142 042102
143 042106
144 042114
145

001410

000401

000157

005726
062716
113776
000137

000000

105%:

000006
042076
042412

;GO PUT COMMAND TO DRIVE

90$
85$

ADD

#6, (SP)

JMP

158

WORD

032737
001004
032737
001452

153 042140

012737

154 042146
155 042152
156 042154
157 042156
158 042160
159 042164
160 042172

004737
000411
000401

062716
113776
000137

162 042176

004737

004737
000411
000401

062716
113776
000137

043342

001410

80%,a(SP)

*MOVE ERROR # TO ERROR CALL

PC, TIMOUT

;WAIT FOR COMPLETION

BR
B8R

105$
1008

sRETURN HERE IF NO ERROR
*GET AROUND ERROR #

ADD

#6, (SP)

*MOVE SP TO USERS ERROR CALL

JMP

2158

JSR

JWORD

MOVB

PC.GET

95§,a3(SP)

PC ,ACKSTS

L.WORD

ADD

#6, (SP)

JMP

:GO GET STATUS FOR PACK ACK

*ERROR # GOES HERE

JSR

BR
B8R

*MOVE ERROR # TO CALL

;GO VERIFY ACKNOWLEDGE STATUS

1208
115$

:RETURN HERE IF NO ERROR
*GET AROUND ERROR #

(SP)+

*STRIP RETURN TO SUBROUTINE

1108.a(SP)

:MOVE ERROR # TO USERS ERROR CALL

*ERROR # GOES HERE

:MOVE SP TO USERS ERROR CALL

IF "'SKI'' OR 'PIP IS SET

BIT

#SK1,5508

;WAS SKI SET ?

BIT

#PIP ,RMDSI

*IS PIP SET 27

MOV

#RECAL ' GO,RMCS10

BR
B8R

135s
1308

:RETURN HERE IF NO ERROR
*GET AROUND ERROR #

#6, (SP)
130$-2.a(SP)
2158

*MOVE SP TO USERS ERROR CALL

BEQ
125%:

:ERROR # GOES HERE

:MOVE SP TO USERS ERROR CALL

JSR

BNE

001346

;LOAD COMMAND

:RETURN HERE IF NO OUTPUT ERROR
*GET AROUND ERROR #

i-g(E)EALIBRATE THE DRIVE

147 042120
148 042120
149 042126
150 042130
131 042136

167 062214
168 042220
169 042226

PC,PUT

BR
B8R

MOVB

146

163 042202
164 042206
165 042210
166 042212

95%:
100%:

;1S VV RESET 27

1208

MOV

MOVB

90%:

#VV ,RMDS|

:NO !!
#PACACK ! GO,RMCS10

JSR

8035

000000

BIT

BNE

128 042032
129
042036
130 042042
131
042044
132 042046
133 042050
134 042054
135 04

001346

001052

—

122 042010
123 042012
124 042014
125 042020
126 042026

SEQ 0185

1S SUE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET

758:

117 041772

D15
MACRO v03.01 11-APR-80 13:39:53 PAGE 16=2

JSR

WORD

ADD

MOVB

JMP

JSR

B8R
B8R

LWORD

ADD

51%3

125$
165%

PC,PUT

PC, TIMOUT

PC.GET

1508
145%

#6, (SP)

;?gg,msm

:YES, GO RECALIBRATE

“NO !

:LOAD RECALIBRATE COMMAND

;PUT THE RECAL COMMAND

:ERROR # GOES HERE

:MOVE ERROR # TO USERS CALL

;WAIT FOR RECALIBRATE TO COMPLETE

;G0 GET RECAL STATUS

:RETURN HERE IF NO ERROR
*GET AROUND ERROR #
*ERROR # GOES HERE

:MOVE SP TO USERS ERROR CALL

*MOVE ERROR TO USERS CALL

CZRMOAQ RMOS5/3/2 FCTNL ST 3

BAD SECTOR MODULE

171 042232
NNNNNN

172 042236
1 3 042240

174

N
n

175 042244
176 042246
177 042252
178
179
180
181 042264
182 042264
183 042272
184 042276

004737

000412
000401
000000
005726
062716
113776
000137

055376

000006
042242
042412

000073
044500

187 042304
188 042310
}gg 042316

062716
113776
000137

000006
042302
042412

191 042322
192 042326
193 042332
194 042334
195 042336
196 042340
197 042344

004737
004737
000411
000401

045042
044230

062716
113776
000137

000006
042336
042412

}gg 042352

1508:
155$:
1608:

000000
001410

000401

000000

PC ,RCLSTS

.WORD
TST

O
(SP)+

ADD
MOVB
JMP

165$
1608

#6, (SP)
1558,a(sP)
2158

:GO VERIFY RECALIBRATE STATUS

:RETURN HERE IF NO ERROR
*GET AROUND ERROR #

*ERROR # GOES HERE
:STRIP RETURN TO SUBROUTINE

:MOVE SP TO USERS ERROR CALL
*MOVE ERROR # TO USERS CALL

000450

1708:
1758:

000000

1858:
1908:

1958:

200$:
2058:

000000

mov
JSR

#RH!GO,RMCS10
PC,PUT

.WORD
ADD

O
#6, (SP)

:ERROR # GOES HERE
:MOVE SP TO USERS ERROR CALL

JSR

PC,TIMOUT

;WAIT FOR READ OPERATION TO COMPLETE

BR
B8R

195$
1908

:RETURN HERE IF NO ERROR
*GET AROUND ERROR #

B8R
B8R

MOVB
JMP
JSR

1808
1758

170%.a(sSP)
215$

PC.GET

.WORD
ADD

O
#6, (SP)

JSR

PC,DTASTS

.WORD
1ST

0
(SP)+

MOVB
JMP
3R
B8R

185$,a(SP)
2158

2108
205$

;LOAD READ HEADER AND DATA COMMAND
:PUT COMMAND

*RETURN HERE IF NO ERROR
:GET AROUND ERROR #

:MOVE ERRGR # TO USERS ERROR CALL

*GO GET STATUS FOR READ OPERATION

*ERROR # GOES HERE
:MOVE SP TO IUSERS ERROR CALL

*MOVE ERROR # TO CALL

;GO VERIFY RESULTS OF READ OPERATION

:RETURN HERE IF NO ERROR
*GET AROUND ERROR #

*ERROR # GOCS HERE
*STRIP RETURN ADDRESS TO SUBROUTINE

ADD

#6, (SP)

*MOVE SP TO USERS ERROR CALL

2408

:NO ERRORS DETECTED

MOVB
JMP
210$:

INCLUDING HEADER AND DATA

2008.a(SP)
215%

*MOVE ERROR # TO USERS CALL

;:tttttl'ittttttt'tt'ttttttti'ttttttt'tttfi'ttttttttt'tt'.tfitttttt

;AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE.

12
12
16

e T

o VRNV

WN=O

TN
N QSLNTNTNLNTNTNTNTN

000006
042366
042412

1808:

057742

208
209 042410

JSR

BR
BR

SEQ 0186

i-ggéo THE SECTOR IDENTIFIED BY RMDAO,

012737
(004737
000411

185 042300
186 042302

E 15

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

é{gg SECTOR WILL BE RETRIED IF POSSIBLE.

005337
100030

043330

DEC
BPL

5008
225%

:YES, DECREMENT RETRY COUNT AND
*RETRY IF COUNT NOT NEGATIVE.

S
o

g}:;i RETRY COUNT HAS EXPIRED - SEE

221 042424
525 042430
2
224 042432
225 0462436
226
227 042442

013746
042726
001027
013746
042726

001022

THE ERROR IS MEDIA RELATED

MoV
BIC

RMER2I,-(SP)
#BSE, (SP) +

:GET ER2
*ANY NON-MEDIA ERRORS ?

BIC

#DCK'HCRC
'HCE 'FER'ECH, (SP)+

RMER1I,-(SP)

:GET ER1

BNE

2308

sARE THERE ANY NON-MEDIA ERRORS ?
:YES, EXIT AND REPORT ERROR ON RETURN

BNE
MOV

2308

:YES, EXIT AND REPORT ERROR ON RETURN

CZRMOAO RMO5/3/2 FCTNL TST 3

BAD SECTOR MODULE

MACRO Vv03.01

228
229
230

062737

235 042460
236 0462462
ggg 042470

001413
122737
001407

239 042472
240 042500

012737
162716

243
244 042510
245 042510

246 042512
247 042520
248 062522

ggg 042526

SEQ 0187

:ANOTHER AREA ON THE LAST TRACK

233 042444

525 042504

;THE ERRORS DETECTED WHILE TRYING TO RECUVER THE BAD SECTOR FILE ARE
;:DUE TO THE MEDIA.
SEE IF THE BAD SECTOR FILE CAN BE RECOVERED FROM

5%;

234 062452

F 15
11-APR-80 13:39:53 PAGE 16=4

122737

000137

000240
032777
001002
162716

000137

000002

001416

ADD

000040

001416

BEQ
CMPB
BEQ

000003
000006

043330

000012

001416

041576

020000

136434

000004

043324

225%:

#2 ,RMDAO

cMP8

#10. ,RMDAO

MOV
SuB

#3,5008
#6, (SP)

230$
#32. ,RMDAO
230$

JMP

208

;ADVANCE SECTOR ADDRESS BY 2

:QUIT IF ALL MFG SECTORS HAVE BEEN

*TRIED.
:QUIT IF ALL USER SECTORS HAVE BEEN
*TRIED.
:
;REINSTATE RETRY COUNT FOR THIS SECTOR
*MOVE SP BACK TO NO ERROR

*RETRY THE READ OPERATION

:THE BAD SECTOR FILE CANNOT BE READ
2308:
NOP
BIT
#SW13,aSWR
; INHIBIT MESSAGE ?
BNE
235$
SYES
SuB
#4, (SP)
:MOVE S TO ERROR RETURN

2358:

JMP

4108

:GO TO MODULE EXIT

251

sTHE SECTOR WAS RECOVERED WITHOUT ERROR = READ THE USER FILF IF

253 042532

2408

252

;THIS IS THE MGF FILE OR ELSE DONE.

254 042532
255 042540
256 042542
ggg 042550

022737
001446
112737
012737

111332

001414

000012
111332

001416
001414

259 042556
gg? 042564

012737
000137

000003
041576

043330

262
263 042570
042570
042572

010046
010146

265 042600

012700

264 042574

266 062604
267 042612

012701

000374

012760
012760

177777
177777

268 042620

005720

g;g 042624

001367

272 042626

012701

269 042622

273 0462632
274 042634
275 042640
276 042644
277 042646
278 042650
279 042652
042656
280
281

000014

WUSRFIL ,RMBAO
2608
#10. ,RMDAO
#USRFIL ,RMBAO

;WAS THE USER FILE READ ??
:YES = READ IS COMPLETE
sREAD THE USER FILE LAST TRACK, SECTOR = 10.
:POINT TO USERS FILE BUFFER

MOV
JMP

#3,5008
208

;RELOAD THE RETRY COUNT FOR THIS SECTOR
:GO READ THE USER FILE

:DUMMY THE BAD SECTOR FILES
2508:
MOV
RO,=(SP)
MOV
R1.=(SP)

110324
111332

255%:

#252. R

:R1 = NUMBER OF ENTRIES IN FILES

MOV
MOV

#-1.MFGFIL(RO)
#-1.USRFIL(RO)

:ENTER ALL ONES IN MFG FILE
-ENTER ALL ONES IN USER FILE

MOV

DEC

BNE.

000006

MOV

.
110324
111332

257%:

;:PUSH RO ON STACK
*:PUSH R1 ON STACK

MOV
ST

005301

005000
005060
005060
005720
005301
001371
012601
012600

cTMP
BEQ
MOVB
MOV

CLR
(LR
CLR
ST
DEC
BNE
MOV
MOV

#14 R0

(ROJ +

*RO = ADDRESS INDEX TO FILE

STORAGE

*ADVANCE ADDRESS

*DECREMENT COUNT

2558

*CONTINUE IF NOT DONE

"#6. ,R1

;CLEAR HEADER, CLEAR ID & SERIAL NUMBERS

RO
MF GF IL (RO)
USRF
IL (RO)
(RO)+
R1
2578
(SP)+,R1
(SP)+.R0

;ADVANCE ADDRESS
;:POP STACK INTO R1
*:POP STACK INTO RO

sSET MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER

CZRMOAQ RMOS/3/72 FCTNL TST 3

BAD SECTOR moun.

282 042656
042656
283 042660
284 042662
285 042670
286 042676
287 042702
042706
289 042710

010046
00

G 15

MACRO v03.01 11-APR-80 13:39:53 PAGE 16-=5
260%:

177777
106314
000002
000046

001510
001410

2658:

MOV
CLR
MOV
ADD
CMP

RO,=(SP)
::PUSH RO ON STACK
RO
:RO IS REGISTER INDEX
#=1 ,MEDENB
BUFFER (RO) , PUTBUF (RO)
#2,R0
:ADVANCE RO
#46 RO
:DONE 77

MOV

(SP)+,R0

MOV

BHIS

265$

R AA AR

;:POP STACK INTO RO

AR AR RN AR AR RRRNRRARARANRAANRE
AR R AR

VERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FILE
:AND NOT IN THE USERS BAD SECTOR FILE. ASSIGN A NEW SECTOR IF THE
SECTOR IS IN ANY OF THE FILES.

AR AR ARttt ittt
122222222222223

MOV
MOV
MOV

8Hro

—

001444
001416

jol=]
oo

3682D INITIAL VARIABLES AND COMPUTE THE NUMBER OF SECTORS

MOV
MOV

CLR

001412
000400
000002
000402

309 042766

MOV
NEG

MOV

001410
3058:

BLOS
ST

3108:

010237

043330

3158:

::PUSH RO ON STACK
+:PUSH R1 ON STACK
::PUSH R2 ON STACK

RMDCO, ASNDC
RMDAO, ASNDA

:LOAD REQUESTED CYLINDER, TRACK,
:AND SECTOR ADDRESS IN ASSIGNED STORAGE

RMWCO, RO
RO

‘RO = WORD COUNT
:MAKE NUMBER POSITIVE

#256. ,R1

:R2 = NUMBER OF SECTORS

*R1 = NUMBER OF WORDS PER SECTOR

#BIT1.RMCS10
305%
#258. .R1
R1.R0

:IS THIS A HEADER AND DATA COMMAND
2?
‘NO !
:CHANGE WORDS PER SECTOR
;IS THERE A FULL SECTOR 2?2

xs RO ZERO ??

3108

‘YES!

BEQ
égc

315$
ggss

:YES
1~cnsne~r FOR PARTIAL SECTOR

SUB
INC
BR
MOV

R1,RO
R2
305$
R2,5008

;SUBTRACT ONE SECTOR FROM WORD COUNT
*INCREMENT SECTOR COUNT
:SAVE SECTOR COUNT

:LOAD PARAMETERS AND SEARCH THE MFG/USER SECTOR FILE FOR THE
:ASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT SECTORS IF THE
:SECTOR COUNT IS MORE THAN ONE.

o
323 043012
324
325 043020
326 043024
327
328 043032
329 043036
3
331 043042
332 043050
333 043056
334

BIT
BEQ
MOV
C(MP

RO,=(SP)
R1,=(SP)
R2,-(SP)

012737

MOV

#MFGFIL+14,5408 ;THE STARTING ADDRESS OF MFG FILE

004737
012737

JSR
MOV

PC,3208
*GO SEARCH FILE
#USRFIL+14,5408 :LOAD STARTING ADDRESS OF USR FILE

004737
000137

JSR

PC,3208

013737
013737
013737

3208:

:TO BASE ADDRESS STORAGE.

JMP

4008

MOV

ASNDC, 5208

MOV

5008, 5108

MOV

ASNDA - 5308

:TO BASE ADDRESS STORAGE.

*GO SEARCH FILE

:DONE WITH ALL FILE SEARCHES '!
:LOAD COMPARING CYLINDER ADDRESS

:LOAD COMPARING TRACK, SECTOR ADDRESS

:LOAD NUMBER OF SECTORS TO CONF IRM

SEQ 0188

CZRMOAO RMOS5/3/2 FCTNL TST 3
BAD SECTOR MODULE

MACRO v03.01

335
33%

337 043064

013700
022710

043340
177777

341 043076
g:g 043102

021037
001010

043334

001446

$258:
3308:

344
345

346 043104

126037
001004

000003

043337

350 043114
gg; 043122

126037
001402

000002

043336

353 043124
ggg 043126

022029
000760

105237
122737
103337
105037
105237
123737
103327

367 043170
368 043174
369 043202
370 043204

005237
022737
103317
005037

366 043164 005037

000714

3608:

001514
000037

001514

001514
001515
001333

001515

001514

001512
001466

CMP
BNE

(RO) , 5208
3508

:DOES TABLE ENTRY = COMPARING CYLINDER ?
*BR IF NO

BEQ

370$

*BR IF YES

SEE IF THE NEXT ENTRY EQUALS
iy
;

CMPB
BNE

3(R0),5308+1
3508

:DOES TABLE ENTRY = COMPARING TRACK ?
:BR IF NO

(MPB
BEQ

2(R0),530%
3608

:DOES TABLE ENTRY = COMPARING SECTOR ?
*BR IF YES

CMP
BR

(RO)+, (RO) +
3308

:NO, ADJUST CYLINDER POINTER IN BAD FILE
:AND CONTINUE SEARCH.

INCB
CMPB
BHIS
CLRB
INCB
CMPB
BHIS

INC
cMP
BHIS
CLR

001512

ASNDA
: INCREMENT SECTOR
#31.,ASNDA
:SECTOR OK 2?
320%
SYES !
ASNDA
:CLEAR SECTOR AND ADVANCE TRACK
ASNDA+1
LSTRK+1,ASNDA+1 :TRACK OK ?
320%
SYES !!

ASNDA

ASNDC
#822. ,ASNDC
320%
ASNDC
3208

:CLE
TRACK ANDAR
SECTOR

*INCREMENT CYLINDER
:CYLINDER OK ??
SYES !!
*START AT CYLINDER 0
:SEARCH NEXT SECTOR

:THE COMPARING SECTOR IS NOT IN THE BAD SECTOR FILES.
DECREMENT THE
:NUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF THE NUMBER
-1S NOT ZERO.

570s:

377 043212
g;g 043216

005337
001442

043332

380 043220
381 043224
382 043232
383 043234
384 043240
385 043244
386 043252
387 043254
388 043260

105237
122737
103022
105037
105237
123737
103012
005037
005237

043336
000037

043336

043336
043337
001333

043337

389 043264

;LOAD THE BASE ADDRESS IN RO
;IS THIS FILE TERMINATOR ?

CLR

373
374
375

390 043272
391 043274

5408 ,R0
#-1, (RO)

:THE COMPARING CYLINDER, TRACK AND SECTOR IS IN THE BAD SECTOR FILE.
:ADVANCE THE ASSIGNED SECTOR AND START THE SEARCH ALL OVER.

359 043130
360 043134
361 043142
362 043144
363 043150
364 043154
365 043162

376 043212

3458

3508:

356
357

§;5 043210

MOV
(MP

;FILE ENTRY EQUALS COMPARING CYLINDER.
-THE COMPARING TRACK, AND SECTOR.

347 043104
gzg 043112

358 043130

SEQ 0189

sSETUP FOR A BINARY SEARCH OF THE CURRENT FILE FOR THE COMPARING
- CYLINDER, TRACK AND SECTOR ADDRESS

338 043064
339 043070

340 043074

H 15
11-APR-80 13:39:53 PAGE 16-6

022737

103002
005037

043336
043334

001466
043334

043334

DEC
BEQ

5108
4108

:DECREMENT NUMBER OF SECTORS TO COMPARE
*DONE IF ZERO

INCB
(MPB
BHIS
CLRB
INCB
(MPB
BHIS
CLR
INC

5308
#31.,5308
375%
5308
5308+1
LSTRK+1,5308+1
375%
5308
5208

: INCREMENT THE COMPARING SECTOR
*SECTOR OK ??
SYES !
*CLEAR SECTOR
* INCREMENT TRACK
:TRACK OK ??
SYES !!
:CLEAR SECTOR TRACK
* INCREMENT CYLINDER

cMP

BHIS
CLR

#822..,520%
375%
5208

:CYLINDER OK ??

SYES !
:START AT CYLINDER 0

CZRMOAO RM0S5/3/2 FCTNL TST 3

BAD SECTOR MODULE

392

%gz 043300

MACRO v03.01

I 15

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

000671

375%:

396 043302
397 043302
398 043310
399 043316
043320
400 043322

013737
013737
012602
012601
012600

;ASSIGN THE SECTOR AND RETURN TO USER
4008$:
MOV
ASNDC,RMDCO
sLOAD CYLINDER
MOV
ASNDA ,RMDAO
sLOAD TRACK AND SECTOR
MOV
(SP)+,R2
::POP STACK INTO R2
MOV
(SP)+,R1
::POP STACK INTO R1
Mov
(SP)+,RO
:;POP STACK INTO RO

401 043324
28% 043326

000240
000207

ll:gg

406 043330
407 043332
408 043334
409 043336
410 043340
411 043342
412

001 512
001514

001444
001416

410%:

NOP
RTS

325%

sSEARCH NEXT SECTOR

;THE FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE

000000
000000
000009
000000
000000
000000

5008:
5108:
5208:
5308:
5408:
5508:

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

O
0
0
O
O
O

sRETRY COUNT/ NUMBER OF SECTORS REQUIRED
sNUMBER OF SECTORS TO COMPARE
; COMPARING CYLINDER
;COMPARING TRACK AND SECTOR
;BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED
;CONTAINS RMERZ2

SEQ 0190

CZRMOAO RMOS5/3/2 FCTNL TST 3

SEQ 019

8\0“‘0\"5“’\)—‘00“\‘0‘\"5“'\)—!

BUFFER GENERATOR SUBROUT INE

J 15

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

;THIS SUBROUTINE GENERATES A DATA BUFFER FOR WRITE COMMANDS.
THE
;BUFFER STARTS AT RMBA AND IS RMWC WORDS LONG.
THE BUFFER
:CONTAINS A REPETITIVE DATA PATTERN CONSISTING OF $TMP1 WORDS
;FROM THE DATA PATTERN TABLE, BEGINNING AT ADDRESS $TMPO.
sHEADER INFORMATION FOR THE BUFFER IS EXTRACTED FROM RMDC,
*RMDA AND RMOF.

‘RO = ADDRESS OF DATA BUFFER

)

sl cnld

‘R1 = LENGTH OF DATA BUFFER
*R2 = ADDRESS OF DATA PATTERN
‘R3 = LENGTH OF DATA PATTERN
‘R = SECTOR COUNT

; CALL
(1)

:
GENBUF

013737

001414
001412
001444
001416

043576
043600

032737

000002

001410

108:

140000

012702

000035

032737
001404
052710
012702

010000

PC ., GENBUF

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1.=(SP)
R2.=(SP)
R3.=(SP)
R&,=(SP)
RMBAO, RO
RMWCO_R1
RMDCO. 608
RMDAO. 65

BIT

#BIT1,RMCS10

BEQ

001442

010000
000037

*R2 = MAXIMUM SECTOR ADDRESS (29.)

BIT
BEQ
BIS

#FMT16,RMOFO
15%
#FMT16, (RO)

;18 BIT FORMAT??
SYES !}
*SET 16 FORMAT BIT IN HEADER

INC
BEQ

R1
508

: INCREMENT WORD COUNT
SEXIT IF DONE

(RO) +

:MOVE RO TO HEADER WORD #2

R1
508

: INCREMENT WORD COUNT AND
*EXIT IF DONE

(R3)
R2,(R3)

;SECTOR OVERFLOW ??

(R3)
1(R3)
LSTRK+1,1(R3)
25%
1(R3)

:YES = CLEAR SECTOR ADDRESS
*ADVANCE TRACK ADDRESS
:TRACK OVERFLOW ??
NO !
*YES = CLEAR TRACK ADDRESS

#31..R2

MOV

658, (RO) +

042600

MOV

#658.R3

BHIS

25§

001333
000001

INC
BEQ

INCB
(MPB

000001

;WRITE HEADER & DATA??

*NO!!

608, (RO)
#29. .R2

043600

000001

::PUSH RO ON STACK
*:PUSH R1 ON STACK
+:PUSH R2 ON STACK
*:PUSH R3 ON STACK
*:PUSH R4 ON STACK
:LOAD DATA BUFFER ADDRESS
*LOAD WORD COUNT
:LOAD STARTING CYLINDER ADDRESS
:LOAD STARTING TRACK,SECTOR ADDRESS

#MSE 'USE, (RO)

MOV
158:

258

RETURN HERE

BIS

MOV

005201
001443

103004
105063

JSR
1

MOV

043576

52 043514

BUFFER GENERATOR SUBROUTINE

CLRB
INCB
(MPB
BHIS
CLRB

*WRITE HEADER WORD #1

:SET BAD SECTOR FLAGS FOR GOOD SECTOR

:CHANGE MAXIMUM SECTOR ADDRESS (31.)

*WRITE HEADER WORD #2

*ADVANCE SECTOR ADDRESS

INO !}

CZRMOAO RMO5/3/2 FCTNL TST 3

BUFFER GENERATOR SUBROUTINE

53 043520

105237

043578

K 15
MALRO V03.01 11-APR-80 13:39:53 PAGE 17-1
SEQ 0192

25%:
308:
40%:

508%:

043
043570

66 043572
67 043574
68
69 043576
;? 043600

608

sADVANCE CYLINDER ADDRESS
;LOAD SECTOR DATA COUNT
:LOAD PATTERN ADDRESS
:LOAD PATTERN COUNT
;WRITE DATA PATTERN
s INCREMENT WORD COUNT AND
sEXIT _IF DONE
sDECREMENT SECTOR COUNT
s START NEXT SECTOR IF 0
sDECREMENT PATTERN COUNT
sRESTART PATTERN IF 0
;CONTINUE DATA PATTERN

(SP)
+ ,R4

::POP STACK
::POP STACK
::POP STACK
::POP STACK
:;POP STACK

#256. ,R4
$TMPO ,R2
$TMP1,R3
(?2“, (RO)+

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

012600

000249

000000

INTO R4
INTO R3
INTO R2
INTO R1
INTO RO

60%:
65%:

sCYLINDER ADDRESS STORAGE
:TRACK, SECTOR ADDRESS STORAGE

CZRMOAOD RMO5/3/2 FCTNL TST 3
=

COMPARE BUFFER SUBROUTINE

L 15
MACRO v03.01 11-APR-80 13:39:53 PAG
E 18

NS W

.SBTTL

SEQ 0193

COMPARE BUFFER SUBROUTINE

:THIS SUBROUTINE COMPARES THE CONTENTS OF BUFONE AND BUF TWO,

:ASSUMING THAT BUFONE IS THE BUFFER FROM WHICH DATA WAS WRITTEN

NOWVNSWN =000~

:AND 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:

(1)
2(2)

JSR
.WORD

:(3)
:(4)
:(5)
1(6)

BR
NOP
ERROR
277

;

:
CMPBUF

-WORD

READ BUFFER ADDRESS

RETURN HERE iF NO ERROR
RETURN HERE IF ERROR
ERROR DEFINED BY SUBROUTINE

MOV
MOV
MOV

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

CLR

1508

MOV

044142

PC, CMPBUF

WRITE BUFFER ADDRESS .

R3.=(SP)

;:PUSH RO ON STACK
2sPUSH R1 ON STACK
2 :PUSH R2 ON STACK
2:PUSH R3 ON STACK

;CLEAR CORRECTION FLAG

100000

001350

;:DETERMINE IF DATA SHOULD BE CORRECTED
BIT
ECI,RMOF ]
%sECC CORRECTION ALLOWED ??
BNE
BIT
#DCK ,RMER11
:SSTHERE A DATA CHECK ??

000100

001350

IgsERROR CORRECTION HARD SET ?

010000

001366

013700
013701
052737

001414
001400

022701
3004

000020

100000

000020

000001

044142

BEQ
BIT
BNE
BIT
BEQ

808
#ECH,RMER1]
808
#FMT16, RMOF |
80$

'{5
THIS 16 BIT FORMAT ??

:CORRECT DATA USING ECC_INFORMATION
MOV
RMBAO, o
R
RO = STARTING BUFFER ADDRESS
MOV
RMEC1]
:R1 = ECC POSITION
BIS
081715 1sos
:SET CORRECTION FLAG

:MOVE RO TO WORD BOUNDARY OF ERROR BURST
cmP
#16. .R1
'{‘S,BIT POSITION > 1 WORD
BHI®
208
SuB
#16. .R1
.SlBTRACT 1 WORDS WORTH

108:

208:

MOV
MOV

(RO)
+

;ADVANCE BUFFER ADDRESS 1 WORD

#1.R2
R2.R3

RZ = BIT POINTER
= BIT NUMBER

108

:MOVE R2 TO STARTING BIT OF ERROR BURST

508:

52
53 043736

006302
005203
000 773
012703

000013

358:

030237

001402

408:

R3,R1

ASL

BEQ

INC
BR
MOV

R3 SNE AS R1 ??

3s§

R3
308
#11..R3

:R3 = LENGTH OF ERROR BURST

;CORRECT THE ERROR BURST
R2 .,RMEC2I
BIT

SHIFT BIT POINTER
s INCREMENT BIT NUMBER

;1S THIS BIT SET IN ECC PATTERN ??

CZRMOAOD RMOS5/3/2 FCTNL TST 3
COMPARE BUFFER
S
SUBROUT INE

M 15
MACRO v03.01 11-APR-80 13:39:53 PAGE 18-1
SEQ 0194

54 043742

BEQ
BIT

608
R2, (RO)

BIC

R2, (RO)

BEQ
50$:

60%:
000001
70$:

508

B8R

60$

ASL

BIS

RZ.(RO)

BNE
MOV

70$
#1,R2

DEC

BNE

sNO = DO NOT CORRECT THIS
BIT
;1S THE BIT PRESENTLY SET??
:NO

JRESET THE BIT

sSET THE BIT
sSHIFT TO NEXT BIT

;CONTINUE WITH FIRST BIT OF NEXT WORD

(RO)+

;END OF BURST ??

408

“NO

:COMPARE WRITE BUFFER ro READ BUFFER
mov
@10(SP) ,RO
;RO
= WRITE BUFFER
ADD
#2 1o<sp>
FDVE SP TO READ ADDRESS
MOV
a10(sP) ,R1
;R1 = READ BUFFER
ADD
#2.10(SP)
MVE SP TO RETURN ADDRESS

80s:

908:

MOV
suB
(MP
BNE
DEC
BNE
B8R

RMWCI ,R2
RMWCO.R2
(RO)+,(R1)+
1008
R2
908
1108

:DATA COMPARE FAILED

1008:

062766
112776

000010
000010

032737

044142
000010
000010

Mov

MOV
MOV
MOV
MOV
ADD

MOVB

=(R0),$GDDAT

=(R1) . $8DDAT
RO $GDADR
1.$8DADR
az $TMPO
#4.10(SP)

#3%6,310(SP)

;R2= NUMBER OF WORDS TRANSFER

; COMPARE DATA WORDS
sEXIT IF NOT EQUAL
sDECREMENT WORD COUNT
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

;WRITE ERROR NUMBER IN CALL

;CHANGE ERROR NUMBER

F ECC CORRECTION FAILED

BEQ

:NO
!

1058:
1108:

#BIT1

MOVB

#163,310(SP)

105%

;WAS ECC CORRECTION USED ??

:ECC CORRECTIM FAILED

SUB

#2,10(SP)

:MOVE SP TO RETURN IF ERROR

MOV
MOV
MOV
MOV

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

:;POP STACK INTO R2
::POP STACK INTO R1
:;POP STACK INTO RO

NOP

RTS

1508:

.1508

BIT

.WORD

:;POP STACK INTO R3

;RETURN TO USER

;ECC CORRECTION FLAG

N 15
MACRO v03.01 11-APR-80 13:39:53 PAGE 19
.SBTTL

SEQ 0195

GET STATUS SUBROUTINE

sTHIS SUBROUTINE SETS UP THE '‘GET INDEX TABLE'' AND THE 'GET
;BUFFER'' FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE
sAND THEN RETURNS TO THE USER.

3 33

GETSTS:

—b

o~
~

CALL:

£ RRRRRY

Rl I IO S
VNV

R
.Y
W=

—_3
OV NOWVISWN
=

CZRMOAQ RMO5/3/2 FCTNL ST 3
GET STATUS SUBROUTINE

001522
001404
000046
000002

PC,GETSTS

RO,=(SP)
R1,=(SP)

R2,=(SP)

#GETINX ,RO

2$:
3%:

000022

W#RMEC21+2
,R1
#RMEC2,R2

R2, (RO) +
-(R1)

#2,R2

4
#RMDB ,R2

RETURN HERE

;:PUSH RO ON STACK

;sPUSH R1 ON STACK
;:PUSH R2 ON STACK
;RO = ADDRESS OF INDEX TABLE
;R1 = ADDRESS OF GET BUFFER
;R2 = REGISTER INDE
JWRITE REGISTER INDEX IN TABLE
sCLEAR CORRESPONDING LOCATION
;DECREMENT TO NEXT INDEX
;sBRANCH OUT IF DONE
;DONT WRITE RMDB INDEX

=(R1)

000200

48:

#200, (RO) +
(SP)+,R2
(SP)+ ,R1
(SP)+,RO
PC

;WRITE TERMINATOR
;;POP STACK INTO R2
::POP STACK INTO R1
:;POP STACK INTO RO

B 16
MACRO v03.C1 11-APR-80 13:39:53 PAGE 20

NVONOWVNSWN=OVONONL SN
=

CZRMOAO RMOS/3/2 FCTNL TST 3
GET SUBROUTINE

.SBTTL

SEQ 0196

GET SUBROUTINE

D e

s D

: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 O IN THE TABLE WILL CAUSE THE SUBROUTINE TO
;READ 'RMBATM* 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 SHOULD FOLLOW THE LAST ENTRY.

*SUBROUTINE CALL:

VALUES AND TERMINATED WITH A CONTROL BYTE

;
:

UNUSED LOCATIONS, I.E.,ENTRIES IN BUFFER CORRESPONDING
TO REGISTERS NOT READ. ARE NOT CHANGED.)

;
;
;

BR
NOP
ERROR

:(2)

—

"GET INDEX TABLE'' HAS BEEN LOADED WITH REGISTER INDEX

"GET INPUT BUFFER'' IS AVAILABLE FOR USE.

JSR

PC,GET

272

(NOTE THAT

RETURN HERE IF NO ERROR FOUND
RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

*RO = REGISTER BASE ADDRESS
*R1 = REGISTER ADDRESS
*R2 = BUFFER BASE ADDRESS
*R3 = BUFFER ADDRESS
:R4 = POINTER TO REGISTER INDEX
GET
-

000016
000016
3$:

042701

177700

#4, (SP)

SuB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIT
BNE
ADD
MOVB
BR

#4, (SP)
RO,-(SP)
;:PUSH RO ON STACK
R1,=(SP)
;:PUSH R1 ON STACK
R2,=(SP)
;:PUSH R2 ON STACK
R3,=-(SP)
;:PUSH R3 ON STACK
R&,=(SP)
;:PUSH R4 ON STACK
ERRVEC ,=(SP)
s +PUSH ERRVEC ON STACK
ERRVEC+2,~-(SP)
;:PUSH ERRVEC+2 ON STACK
$BASE
, RO
#GETBUF ,R2
#GETINX
R4
#5$ ,ERRVEC
;SETUP FOR TIMEOUT
#PR6, ERRVE C+2
RMCS
(RO) , STMPO
2 ;GET 'NED'' STATUS
RMCS1(RO) .$TMP1 ;GET 'DVA'" STATUS
#DVA,STMP1
.egg{(;E AVAILABLE??
3$
#4,16(SP)
‘WRITE ERROR NUMBER IN USER'S
#112,316(SP)
*ERROR CALL
78

BM]

BIC

#*CIDXMSK
,R1

CLRB

000004
000006
001174 1$:
001176
001176

51 044370

NOP
ADD

TSTB

MOvB

a(SP)

(R&4)

(R4) R1

:CLEAR ERROR NUMBER IN USER'S
;ERROR CALL

sDONE??
:YES!!
;R1 = REGISTER ADDRESS
sCLEAR ANY SIGN EXTENSION

—

CZRMOAO RHOS/3/2 FCTNL ST 3
GET SUBROUTI

52 044374
53 044376
54 044400
55 044404
56 044406
gg 044410

060001
112403
042703
060203
011113
000764

59 044412

022626
062766

C 16
MACRO v03.01 11-APR-80 13:39:53 PAGE 20-1
ADD
mMovBs
BIC
ADD
MOV

177700

000016
000016
000016

5%:
7%:
8%:

SEQ 0197

RO,R1
(R4)+,R3

;R3 = STORAGE ADDRESS FOR REGISTER

R2,R3
(R1),(R3)

sREAD REGISTER

#EC]DXHSK,R3

(SP)+, 3o, ( SP)*
16( P)
#%,716(S
174 alé <sp)
16(SP
(R& )
9
R3
(R4)+,R3

R2,R3

;CLEAR ANY SIGN EXTENSION

JRESTORE STACK
;WRITE ERROR NUMBER IN

;USER'S ERROR CALL

DONE CLEARING”
;YES!!
CLEAR REMAINING STORAGE

:LOCATIONS

(RS)

044454
044460
044464
044466

012637
012637
012604

012603

000006
00009+

9%:

(SP)+ ,ERRVEC+2
(SP)+ ,ERRVEC
(SP)+ ,R4
(SP)+,R3
(SP)+,R2
(SP)+ ,R1
(SP)+ R0

:;POP STACK INTO ERRVEC+2
:;POP STACK INTO ERRVEC
:;POP STACK INTO R4

::POP STACK
::POP STACK
::POP STACK
:;POP STACK
sRETURN

INTO R3
INTO R2
INTO R1
INTO RO

CZRMOAO RMOS5/3/2 FCTNL TST 3

PUT SUBROUT INE

D 16
MACRO v03.01 11-APR-80 13:39:53 PAGE 21

=3 VONO NS WN=O VOO NS W

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

$(1)

;

1(2)

s e

(3)

"PUT INDEX TABLE'' HAS BEEN LOADED WITH INDEX VALUES

OF REGISTERS TO BE WRITTEN.

"PUT REGISTER BUFFER'* CONTAINS CONTENTS OF EACH

JSR

NOP
ERROR
m

PC,PUT

RETURN HERE IF NO ERROR FOUND
RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

;RO = REGISTER BASE ADDRESS

;R1 = REGISTER ADDRESS

;R2 = BUFFER BASE ADDRESS
:R3 = BUFFER ADDRESS
;R4 = POINTER TO REGISTER INDEX

000004
000006
001174 18:
001176
001176
000016
000016
38:

04462
45 044626
46 044630

042701
060001

177700

. 48 044634

042703

177700

49 044640

50 044642
51 044644

060

011311
105724

MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOV
BIT
BNE
ADD
MOVB
BR

TSTB

8MI

MOVB
BIC

ADD
MovB
BIC

ADD
4$:

MOV

TSTB

RO,=(SP)
R1,=(SP)
R2.=(SP)
R3,-(SP)
R4 ,=(SP)
ERRVEC,=(SP)
ERRVEC+2,-(SP)
$BASE RO
#PUTBUF ,R2
#PUTINX
R4

;:PUSH RO ON STACK
;:PUSH R1 ON STACK
;:PUSH R2 ON STACK
;:PUSH R3 ON STACK
::PUSH R4 ON STACK
s sPUSH ERRVEC ON STACK
2 +sPUSH ERRVEC+2 ON STACK

(R4),R1
#*C1DXMSK
,R1

;R1 = REGISTER ADDRESS

#5$
, ERRVEC
:SETUP FOR TIMEOUT
#PR6, ERRVEC+2
RMCS2
(RO) , STMPO ;GET 'NED'' STATUS
RMCS1(RO) .STMP1 ;GET 'DVA'" STATUS
#DVA,STMP]
.IY)E\SI{(.:E AVAILABLE??
3
#4,16(SP)
*WRITE ERROR NUMBER IN
#112,316(SP)
*USER'S ERROR CALL
7$
(R4)
;DONE?7?
9
sVES::

RO.R1
(R4) ,R3
#~CIDXMSK
,R3

R2,R

(RS, (RD)
(R4)+

sCLEAR ANY SIGN EXTENSION

;R3 = STORAGE ADDRESS

sCLEAR ANY SIGN EXTENSION

;WRITE REGISTER
sADJUST REGISTE® POINTER

CZRMOAQO RM0S5/3/2 FCTNL TST 3

PUT SUBROUT INE

52 044646
53
54 044650

58
59 044674
044674
044700
044704
044706
044710
044712
044714
g? 044716

E 16
MACRO v03.01 11-APR-80 13:39:53 PAGE 2 [ 1

000763
022626

000004
000007

000002

012637

000006
000004

000016
000016
000016

5%:
7%:
9%:

(SP)+,(SP)+
#4,16(SP)
#7.316(SP)
#2,16(SP)

sADJUST STACK
sWRITE ERROR NUMBER IN
;USER'S ERROR CALL

(SP)+ ,ERRVEC+2
(SP)+ ,ERRVEC
(SP)+,R4

;;POP STACK INTO ERRVEC+2
:sPOP STACK INTO ERRVEC
::POP STACK INTO R4

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

::POP STACK INTO R3

;;POP STACK INTO R2
:;POP STACK INTO R1
;;POP _STACK INTO RO
sRETURN

SEQ 0199

CZRMOAO RMOS/3/2 FCTNL TST 3
SIZE CLOCK SUBROUTINE

MACRO Vv03.01

3 044720

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

.SBTTL

SIZCLK:

SEQ 0200

SIZE CLOCK SUBROUTINE

4 044720
5 044726

013746
013746

000004
000006

7 044736

012737

000300

000006

MOV

#PR6 ERRVEC+2

9 044752
10 044760
11 044764
12 044766
13 044770

012737
005777
000421
022626
(012737

000100
134532

001520

MOov
TST
BR
CMP
MOV

#100, CLKVCT
aCLKADR
33
(SP)+,(SP)+
#2% ,ERRVEC

sTEST FOR KW11=L PRESENT
;YES = KW11=L IS PRESENT
sRESTORE SP
sSET UP FOR BUS TIMEOUT

15 045004
16 045012
17 045016
18 045020
}8 8228%8

012737
005777
000404
022626
062765

MOV
TST
BR
CMP
ADD

#1064, CLKVCT
aCLKADR
3$
(SP)+,(SP)+
#2,4(SP)

;TEST FOR KW11=P PRESENT
;YES = KW11=-P IS PRESENT
;RESTORE SP
sMOVE RETURN TO ERROR

045030
21 045054
5% 045040

012637
012637
000207

MOV
MOV
RTS

(SP)+ ,ERRVE(C+2
(SP)+,ERRVEC
e

:;POP STACK INTO ERRVEC(C+2
:;POP STACK INTO ERRVEC
JRETURN TO USER

6 044730

8 044744

14 044776

012737

044766

177546

000004

000104
134500

001520

000002

000004

172540

000006
000004

MOV

001516

045020

MOv
MOV

MOV

1$:

001516

MOV

2$:
3

ERRVEC,=(SP)
ERRVEC+2,-(SP)

;;PUSH ERRVEC ON STACK
; ;PUSH ERRVEC+2 ON STACK

#18 ,ERRVEC

;SET UP FOR BUS TIMEOUT

#177546,CLKADR

;LOAD ADDRESSES FOR KWw11-L

#172540,CLKADR

:LOAD ADDRESSES FOR KW11-P CLOCK

CZRMOAD RM0OS/3/2 FCTNL TST 3

SEQ 0201

TIMEOUT SUBROUTINE

s THIS SUBROUTINE WAITS FOR RDY = 1 AND GO = 0 OR FOR A TIMEOUT
:GREATER THAN APPROX. 500 MSEC AND THEN RETURNS.

CALL:
L4

TIMouT:

000006
045162
000300
001276
001516
000036
012761
012711

000001
000005

016046

000000
177576
000200

042716
022726

1%:

000002

JSR
&4

PC, TIMOUT

RO,=(SP)
R1,=(SP)
R2,=(SP)
ERRVEC,=(SP)

ERRVEC+2,-(SP)

000004
000006

172540

G
S
(RS ] P

G 16

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

.SBTTL

=OVONOVNSWN=O

VOO NANLS
WA =

TIMEOQUT SUBROUT INE

MACRO v03.01

2s:

3%:

000200

;RO=BASE ADDRESS
sR1=CLOCK ADDRESS
;R2=NUMBER OF CLOCK CYCLES
:fig]]-P CLOCK??

#1,2(R1)

*SET COUNTER

RMCS1(RO) ,-(SP)

;GET STATUS

5%
#BIT7,(R1)
3%
R2

JYES!!
sTIMER DONE??

#BIT2!BITO,
(R1) *START COUNTER

#*C<RDY !GO>, (SP)
#RDY
, (SP) +
;RDY=1,G0=0??

000006
000004

000012
000012
000012

5%:

;+sPUSH RO ON STACK
;sPUSH R1 ON STACK
2 :PUSH R2 ON STACK
2 sPUSH ERRVEC ON STACK
s .PUSH ERRVEC+2 ON STACK
;SETUP FOR BUS TIMEOUT = 04 TRAP

#4$ ERRVEC
#PR6,ERRVEC+2
$BASE ,RO
CLKADR,R1
#30.
R
R1,4#172540

000004
000007
000002

RETURN HERE

(SP)+,(SP)+
#4,12(SP)
#7,312(SP)
#2,12(SP)

(SP)+ ,ERRVEC+2
(SP)+ ,ERRVEC
(SP)+,R2
(SP)+,R1

(SP)+ RO

.~0l!

sDEC NUMBER OF CYCLES
sCONTINUE IF NOT DONE

:"RDY* DID NOT SET OR ''GO’'‘ DID NOT RESET

;WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED.
;ADJUST STACK
sMOVE SP TO USER'S CALL

;WRITE ERROR NUMBER

:;POP STACK INTO ERRVEC+2
;:POP STACK INTO ERRVEC
:;POP STACK INTO R2
::POP STACK INTO R1
;;POP STACK INTO RO
JRETURN TO USER

CZRMOAO RMOS/3/2 FCTNL TST 3

PRIMARY ERROR CHECK SUBROUTINE

MACRO v03.01

H 16
11-APR-80 13:39:53 PAGE 24
SEQ 0202

;

.SBTTL

PRIMARY ERROR CHECK SUBROUTINE

;THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND

:THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED.

‘FOLLOWING CHECKS ARE MADE:

THE

10
};

.SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1)
AND NED (BIT 12 OF RMCS2) IS RESET:

13
1%
15

LAST COMMAND WAS COMPLETED, I.E., THE MASSBUS CONTROLLER IS
READY (BIT 7 OF RMCS1) AND THE GO BIT IS RESET (BIT O OF RMCS1) OR THE
:DRIVE READY BIT (BIT 7 OF RMDS) IS SET,
1 = "cgg PASITY ERROR OCCURRED WHEN READING REMOTE REGISTERS.

.CORRECT UNIT IS SELECTED, I.E., THE UNIT SELECT BITS OF RMCS2

(BITS 0-2) EQUAL THE UNIT BEING TESTED:

~o PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS,

1 E..

ETHE SUBROUTINE ASSUMES THAT:

.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER,

.(SUNIT) CONTAINS THE DRIVE NUMBER

:THE SUBROUTINE IS CALLED AS FOLLOWS:

114D

;

28 045226

PRIERR:

25
gg

42 045226
43 045232

062716
105076

000004
000000

46
47 045242
48 045250

013737
042737

001344
177770

215. 045236

49 045256
S0 045264
51 045272
52
53 045300
54 045302

55 045306
56 045314
57 045320

=0, OR, PAR
= DPE = 1

1~ PARTICULAR, RMCS1, RMCS2 AND RMO. HAVE BEEN STORED IN THEIR
: CORRESPONDING LOCATIONS OF THE ''GE:* BUFFER.

33
3%
35

IS SET

162716

013737

001234

177770
001140

001415
062716
112776
162716
004736

000004
000001
000002

PC.PRIERR

JSR

PC,a(SP)+

BR
NOP
ERROR

;

227

777

:CLEAR USER'S ERROR CALL

ADD
CLRE

000004

042737
123737

JSR

:
;
;

SUB

001142
001142

001140

#4, (SP)
a(SP)

#4, (SP)

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

:MOVE (SP) TO ERROR CALL
:CLEAR ERROR NUMBER

:MOVE (SP) TO NO ERROR RETURN

:REPORT AN ERROR IF THE WRONG UNIT IS SELECTED
MOV
RMCS2],$8DDAT
:CORRECT UNIT SELECTED??
BIC
#~CUNTMSK,SBDDAT

MOV

001140
001142

BIC
CMPB

000000

BEQ
ADD
MOVB
SuB
JSR

SUNIT,SGDDAT

:;GOOD DATA FOR TYPEOUT

#1.a(SP)
#2, (SP)
PC,a(SP)+

:ERROR 1
:MOVE SP TO RETURN FOR ERROR
sREPORT WRONG UNIT SELECTED

#*CUNTM
, SGDDAT
SK
S$GDDAT,$BDDAT
:;COMPARE EXPECTED AND RECEIVED
:DRIVE NUMBERS
1%
SYES!!
#4, (SP)

CZRMOAO RMOS5/3/2 FCTNL TST 3
PRIMARY ERROR CHECK SUBROUTINE

58 045322
59 045326
60 045330
61 045334
62

162716
000240
000137

MACRO v03.01

SEQ 0203

000010

suB

046050

1%:

64
65 045334

66 045342

032737

001045

004000

116

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

001334

BNE

MOV
BIS
MOV

2%:

5%:

000200

001334

001140
001140
001140
001142

90 045502
91 045510

042737
013737

94 045530

162716

160001
001334
000004
000004
000002

96 045536

162716

000010

102 045546
103 045554
104 045556
105 045564
106 0455
107 045574
108 045602
109 045610
110 045614
111 045622
112 045626
113 045630
114 045634

#2.3(SP)
#NED ,RMCS21
2$
RMCS21, $GDDAT
RMCS21
. $BDDAT
#NED, SGDDAT
#3,a(SP)
#2.(SP)

;ERROR #2
;WAS NED SET??

suB

JSR

001334

000200

001346

001334
160001
001334

001140
001140
001142

000005
000002

000000 _

000010

MOV
ADD
MOVB
SUB
JSR

SuB

000001

MOVB
BIT
BEQ
MOV
MOV
BIC
MOVB
suB

BIT
BNE
MOV
Sff

7%:

032737
001431
032737
001025
013737
042737
013737
062716
112776
162716
004736
162716
000240

:SKIP OTHER CHECKS

#4, (SP)

sRECEIVED STATUS

.mll

*EXPECTED STATUS

*RECEIVED STATUS

PC.a(SP)+

#10, (SP)

;YES = CHANGE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
sREPORT DEVICE NOT AVAILABLE
sRESTORE (SP)

108

:SKIP OTHER CHECKS

sREPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY

000000

99 045546

108

sEXPECTED STATUS

NOP

032737
001030
013737

;RESTORE (SP)

RMCS11,$GDDAT
#DVA, SGDDAT
RMCS11,$8DDAT

ADD

000000
001344

85
86 045456

#10, (SP)

;REPORT AN ERROR IF THE DEVICE IS NOT AVAILABLE OR IF
sTHE DEVICE IS NONEXISTANT
BIT
#DVA,RMCS11
DEZICE AVAILABLE??

001149
001140
001142

001140
001142
001140
000000

NOP
JMP

NOP
BR

#RDY ,RMCS11
78
RMCS11,$GDDAT
#RDY, SGDDAT

ng'ROLLER READY??

RMCS11, $BDDAT
#4, (SP)
#4.3(SP)

SRECEIVED STATUS

:EXPECTED STATUS

#SC ! TRE !MCPE ! GO, $GDDAT

#2.(SP)
PC.a(SP)+

#10, (SP)

;ERROR #4
sMOVE SP TO RETURN FOR ERROR
sREPORT CONTROLLER NOT READY
sRESTORE (SP)

108

;SKIP OTHER CHECKS

sREPORT AN ERROR IF GO IS NOT ZERO AND on IS NOT ONE
BIT
BEQ
BIT
BNE
MOV
BIC
MOV
ADD
MOVB
suB
JSR

SuB

#GO,RMCS11]
85
#DRY ,RMDS|

:GO RESET?
SYES!!
DggVE READY??

#10, (SP)

sRESTORE

8s
RMCS1].$GDDAT
EXPECTED STATUS
#SC ' TRc 'MCPE
' GO, $GDDAT
RMCS11,$8DDAT
sRECEIVED STATUS
#4, (SP)
#5.3(SP)
;ERROR #5
#2.(SP)
JMOVE SP TO RETURN FOR ERROR
PC.a(SP)+
sREPORT DRIVE NOT READY
(SP)

CZRMOAO RMOS5/3/2 FCTNL TST 3

S
Y

013737

062716
112776
162716
004736

s JO Y
bD e

032737
001425
013737
042737

162716

5720

000240
000453

020000

001334

001140
001140
001142

160001

001334
000004
000013
000002

001350

;RECEIVED STATUS
JMOVE STACK TO USER'S ERROR

SUB
JSR

#2,(SP)
PC.a(SP)+

001376

000010

001424

001551
000014

91%:

001140
001140
001142

BEQ
BIT
BNE
BIT
4EQ
MOV

93%:

MOV
CMPB

BNE
MOV

B8R

#SC ' TRE 'MCPE ! GO, $GDDAT

#13.3(SP)

#10, (SP)

;ERROR #13

JMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;RESTORE STACK

108

TSTB

#PUTINX,RO
#RMER1, (RO)

928
(SP)+,R0

118

(RO)+

91$
(SP)+,R0
RMER11, $GDDAT
#PAR, SGDDAT
RMER11,$8DDAT
#4, (SP)

suB

#2,(SP)

suB

#10, (SP)

JSR
-0
A

118
#DPE ,RMER2]
118
#PAR,RMER10
93s
RO,=(SP)

8PL
MOV
MOV
BIC
MOV
ADD

MOVB

000000

RMCS1I,$8DDAT
#4, (SP)

sREPORT AN ERROR IF DETECTED A CONTROL BUS PARITY ERROR
BIT
#PAR ,RMER1 ]
;WAS THERE A PARITY ERROR??

MOV
ADD

SuB

000010

d e
e
b d e

*EXPECTED STATUS

NOP

000010

RMCS11,$GDDAT

MOVB

9%:

001350
000010
001350
000004
000050
000002

;zsg{rv ERROR ?7?

ggg

000010

108

AMCPE ,RMCS 11

BEQ

=0V~

4 046026

R2ZLIH

D e

BIT

92%:

D e

wvivawnwuninawn
e S

d e

D cd e

2.3 RRR
ey
32 &Y

D e

D cd e

032737

;REPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD
;PARITY ON_THE MASSBUS CONTROL BUS

000000

D d

8%:

S I G

'3 RELEEY
SUENRNFUK ZEYRNRRRUNNSm I

PRIMARY ERROR CHECK SUBROUTINE

J 16
MACRO Vv03.01 11-APR-80 13:39:53 PAGE 24~2

NOP
ADD
NOP

RTS

#50,3(SP)

PC.a(SP)+

#10, (SP)
PC

.mll

*WAS
IT THE CONTROL BUS??

*NOT SURE!!
*DID TEST SET PAR 22
.ml ]

+:PUSH RO ON STACK

*RO POINTS TO INDEX TABLE
*SEARCH TABLE FOR RMER1
:;POP STACK INTO RO
;PAR WAS SET BY TEST
:Eg?'OF TABLE??

1:POP STACK INTO RO

*EXPECTED STATUS

sRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
;WRITE THE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR
sMOVE SP TO NO ERROR RETURN
sRETURN TO ERROR

sRETURN TO NO ERROR

SEQ 0204

CZRMOAO RMOS5/3/2 FCTNL TST 3
OCVONOVS
NN = OV NN WN =

SECONDARY ERROR CHECK SUBROUTINE

K1 )
MACRO v03.01 11-APR-80 13:39:53 PAGE 2 5
.SBTTL

SEQ 0205

SECONDARY ERROR CHECK SUBROUTINE

R S~

:THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS
:SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE
;ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY
sASSOCIATED WITH THE OPERATION BEING PERFORMED.
;WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR
: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
sMAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR
;OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE
sRETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL.
JSR
BR
NOP
ERROR
JSR
m

CALL:

sNOTE:

PC,SECERR

PC.,a(SP)+

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

THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE

JINPUT REGISTER BUFFER.

) ECERR:
MR

013737

001410

162716

000004

177701

051;}4

ARt

gttt

ittt

121232222222282323 22222223

: STORE F%\C’Tlm CODE AND CLEAR USER'S ERROR NUMBER

051

BIC
ADD

CLRB
suB

RMCS10,515%

:STORE FUNCTION CODE

#*C<FO!F1!F2!F3!F4>,515%
#4, (SP)
sMOVE (SP) TO ERROR CALL
a(SP)
sCLEAR ERROR NUMBER
#4, (SP)
sMOVE (SP) TO NO ERROR RETURN

sl ettt
1212232222323 28232232222222¢8)

:CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS
39 046116

032737

000200

001346

001346
177577
000200
000004
000010
000002

001142
001142
001140

sREPORT ER?OR IF DRIVE IS NOT READY, I.E., IF DRY = 0
g‘gRY.RHDSI

RMDSI, $BDDAT

#~CDRY
, SBDDAT

#DRY , SGDDAT
#4, (SP)

#10.3(5P)

000000

#2,(SP)
PC.a(SP)+

#10, (SP)

000010

56
046220
57 046224

112776

000001

001334

001334
177776
001140
000004
000011

001142
001142
000000

:DRIVE READY??

SYES!!
:BAD DATA FOR TYPEOUT
:GOOD DATA FOR TYPEOUT

;ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
*REPORT NOT READY

;RESTORE (SP) TO ERROR N

REPORT ERROR IF GO BIT IS NOT RESET

BIT
BEQ
MOV
BIC
CLR
ADD

MovBe

1gg.nncs11

:sgsg{r RESET??

RMCS11,$BDDAT :BAD DATA FOR TYPEOUT

#~CGO, $BDDAT

$GDDAT

:GOOD DATA FOR TYPEOUT

#11,3(5P)

:ERROR NUMBER

#4,

(SP)

CZRMOAO RMOS5/3/2 FCTNL TST 3

SECONDARY ERROR CHECK SUBROUT INE

S8 046232

162716

000002

162716

000010

013737
042737

001334
177701

§9 046236

004736

61 046244
62
63

000240

60 046240

64 046246
65 046254

66 046262
67 046270

013737
023737

051714
001142

68 046276
69 046300

001413
062716

71 046312

162716

000002

162716

000010

70 046304

112776

72 046316

004736

74 046324
75 046326
76

000240

73 046320

000004

000012

L 16
MACRO v03.01 11-APR-80 13:39:53 PAGE 25-1
SEQ 0206

suB

JSR

’s&
001142
001142

80 046332
81 046336
82 046340

005037

005737
001003
005737

001403

85 046354
86 046362

013737
042737

001140

001350

001376

89 046400

062716

000004

91 046412

162716

001412

112776

004736

162716

001346
137777

000047

000002

001142
001142

102 046442
103 046450

104 046452

001140

*REPORT WRONG FUNCTION CODE

;RESTORE (SP)

;EXPECT 'ERR" =0

RMER1]
208
RMER2]

;IS RMER1 = 0?7
*NO!!
xs msaz 022

BIS

#ERR, SGDDAT

"ERR' SOULD BE SET

$GDDAT.$SBDDAT

;IS 'ERR'’ OK??

ADD

¥4, (SP)

*MOVE SP TO USER'S ERROR

suB

#2,(SP)

SuB

#10, (SP)

BEQ

258

MOV
BIC

RMDS
T, SBDDAT
#~CERR, SBDDAT

BEQ

308

CMP

MOVB

042726

000377

032737
001407

040000

001346

013746

001010

022737

508:

001344

#47,3(SP)

PC.a(SP)+

001140

108 046476

042737

137777

013737

001334

001142

023737

001140

001142

062716

000004

162716

000002

110 046512

001413

112 046520

112776

004736

000014

CLR

RMCS2I,=(SP)

BNE

358

YES!!

SYES!!

*WRITE ERROR NUMBER

*MOVE SP TO ERROR RETURN

*REPORT INVALID COMP ERROR

001142

000000

40$:

0377 (SP)+

:EXPECT "'TRE'* = 0

:WAS DLT, WCE, UPE. NED, NEM
pce nxr OR MDPE SET

“YES!!

BIT
BEQ

#ERR,RMDS|
408

uAs excspnou RECEIVED??
*NO!!

BHIS
BIS

40$
#TRE ,SGDDAT

INO!!
:"'TRE'* SHOULD BE SET

CMP

35%8:

$GDDAT

MOV
BIC

040000

114 046532

;ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR

TST
BNE
ST

*SET TRE IS SET

005037

051714

113 046526

JYES!!

;REPORT AN ERROR IF '‘TRE'' IS SET AND NONE OF THE BITS WHICH SET

000030

111 046514

PC.a(SP)+

;EXPECTED FUNCTION CODE

:TRE IS SET, OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH

103003
052737

109 046504

#10, (SP)

JSR

105 046460
106 046462

107 046470

258:

000010

100 046434

208:

000000

101 046440

suB

*OTHER ERRORS ARE SET
CLR
$GDDAT

001142

99 046430

#12,3(SP)

#2,(SP)

;IS FUNCTION CODE CORRECT??

158:
;REPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER

001140

515, $GDDAT
$BDDAT, SGDDAT

suB

NOP

023737

98 046426

158
w. (SP)

JSR

87 046370

92 046416

BEQ
ADD

MOVB

001140

32 046420

RMCSTI,$BDDAT
#~C76, $BDDAT

000000

040000

90 046406

MOV
BIC

MOV
CMP

052737

88 046376

;RESTORE (SP)

:ERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND

83 046344

84 046346

#10, (SP)

;MOVE SP TO RETURN FOR ERROR

:REPORT DEVICE NOT AVAILABLE

:REPORT ERROR IF rwcnon CODE READ FROM DEVICE IS NOT CORRECT

108:

001140
001140

78
79 046326

#2,(SP)

PC.a(SP)+

MOV

#SEARCH,5158

RMCST1,$BDDAT

:BAD DATA FOR TYPEOUT

SGDDAT, $BDDAT

;1S ' ‘TRE'* OK??

#4, (SP)

“MOVE 'SP TO USER'S ERROR CALL

#2,(SP)

*MOVE SP TO RETURN FOR ERROR

BIC

#*CTRE. SBDDAT

BEQ

45%

MOVB

#14.3(SP)

JSR

PC.a(SP)+

CMP

ADD

SUB

:WAS DATA TRANSFERRED??

“YES!!

*WRITE ERROR NUMBER

*REPORT TRE ERROR

8 1
CZRMOAQ RMOS/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 25-2
SECONDARY ERROR CHECK SUBROUT INE
.

000010

Sus

458%:

#10, (SP)

:RESTORE (SP)

119

tttttt!'Qt'ittt"tt'tt"t't'ttttttttttttltt'tt".itt't't'ttttt'

120
121
122
123
124

“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
*NOTE THAT SOME ERROR ens ARE CONDITIONAL ON THE COMMAND AND OTHER
*STATUS CONDITIONS,
WRITE LOCK ERROR SHOULD ONLY BE SET IF

}52

128 046542
129 046544

:
010046
013700

*WRITE LOCK IS ON Am mé COMMAND IS A WRITE.
.

051714

130 046550 016037 071516
g} 046556 012600

sGET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE

051706

133

135 046560 013737
136 046566 032737
137 046574 001403

051706
040000

001140
001346

138 046576
139 046604

052737
042737

100000
077777

001140
001140

141

042737

077777

001142

143 046634

001413

145 046642

112776

147 046654

004736

149 046662

000240

013737

001346

001142

142 046626 023737 001140 001142
144 046636 062716

000004

146 046650

162716

000002

162716

000010

148 046656

}gg 046664
152
153

154

155 046672

156

RO,-(SP)

PUSH RO ON STACK

MOV
MOV

FNCDTB(R0) ,5008 :STORE ENTRY
(SP)+,R0
*:POP STACK INTO RO

5158,R0

GET FUNCTION CODE

;REPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF

134

140 046612

MOV

013737

042737

000006

051706

:ATA IS NOT SET AND SHOULD BE SET.
MOV.
BIT
BEQ

S08:

000000

5008, SGDDAT
#ERR.RMDS I
508

:GET EXPECTED ATA STATUS
:IS COMPOSITE ERROR SET 22
*NO !

RMDSI,$BDDAT

:GET RECEIVED ATA

$GDDAT,$BDDAT

;IS ATA OK ??

ADD

#%, (SP)

*MOVE SP TO USERS ERROR CALL

suB

#2.(SP)

SuB

#10, (SP)

BIS
BIC

#ATA, SGDDAT
#~CATA,$GDDAT

BIC

#~CATA,$BDDAT

MOV

CMP

BEQ

MOVB

JSR
.

001140

177776

001140

042737

177776

001142

112776

000254

000000

558 :

NOP

558

#6.a(SP)

PC.a(SP)+

*EXPECT AN ATTENTION
;STRIP DONT CARES

;STRIP DONT CARES

SYES !!

*LOAD ERROR # IN CALL

*MOVE SP TO ERROR RETURN
*REPORT ERROR

*RESTORE SP

;REPORT ERROR IF ILF IS INCORRECT, I.E., IF ILF DOES NOT COMPARE
*WITH FUNCTION CODE TABLE

. MOV

500$, SGDDAT

BIC

#~CILF,$GDDAT

BIC

#~CILF.SBDDAT

:CLEAR ALL OTHER BITS

013737 001350 001142

MOV

158 0466714
159 046722
160 046726

023737 001140
001412
062716 000004

CMP
BEQ
ADD

SGDDAT.$SBDDAT
608
#4, (SP)

:IS ILF OK
?
‘YES !
*MOVE SP TO USERS ERROR CALL

162 0466736

162716

su8

#2,(SP)

*MOVE SP TO ERROR RETURN

SUB
CLR

#10, (SP)
$GDDAT

*MOVE SP TO NO ERROR
*CLEAR EXPECTED STATUS

157 046706

161 046730

163 046742

164 046744
}gg 046750
167

168 046754

169 046760

170 046764

171 046772

004736

000002

162716
005037

000010
001140

013746

051706

052716

137777

013737 001344

042637

001142

MOVB
JSR

608:

RMERT].$BDDAT

;GET EXPECTED ILF

#254.a(sSP)
PC.a(SP)+

:GET RECEIVED ILF

:CLEAR ALL omen BITS

*WRITE ERROR NUMBER IN CALL

;

*REPORT ERROR AND RETURN

;REPORT AN ERROR IF WCE IS SET AND SHOULD NOT BE SET

MOV

001142

5008,- (SP)

BIS

#ACWCE, (SP)

BIC

(SP)+,$8DDAT

MOV

RMCS2].$BDDAT

—

127

NOP

:GET WCE STATUS ENABLE

*SET ALL OTHER BITS

:RECEIVED STATUS

:CLEAR WCE IF ENABLED

{

”g 046542

162716

000240

SEQ 0207 |

115 045534

116 046540

s
CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 25-3
SECONDARY ERROR CHECK SUBROUT INE

172 046776

001412

173 047000
174 047004

062716
112776

176 047016

004736

175 047012

177 047020

};g 047024

180

181 047024
182 047030
183 047034

184 047042

162716

000004
000026

000002

162716

000010

013746
052716
013737

051706
157777
001350

042637

001142

185 047046
186 047050

001412
062716

‘188 047062

162716

000002

162715

000010

187 047054

189 047066

190 047070

}g; 047074

112776

004736

000004

000164

BEQ

000000

195 047074
196 047100

908 :

013746
032737

001402
042716
052716

201 047126
202 047132

042637
001412

203 047134

204 047140

205 047146
206 047152

207 047154

2283 047160

001142

013737

062716
112776

051706
000100
010000
167777

001376

001142

000004
000165

162716

000002

162716

000010

004736

222 047172

*MOVE SP TO ERROR RETURN

*REPORT ERROR

*RESTORE ERROR

BEQ
ADD

1008
#4, (SP)

:BRANCH IF OPI OK
*MOVE SP TO USER'S ERROR CALL

f
?

SUB

#2.,(SP)

*MOVE SP TO ERROR RETURN

#10,(5P)

:RESTORE SP

MOVB

1008 :

(SP)+,$BDDAT

#164,a(SP)
PC.a(SP)+

:SET AND VV IS NOT RESET
MOV
BIT

001346

001142

1058:

BEQ
BIC
BIS

;GET OP] STATUS ENABLE
:SET ALL OTHER BITS
:GET RECEIVED STATUS

:CLEAR OPI IF ENABLED

*WRITE ERROR NUMBER IN CALL
*REPORT ERROR

;GET IVC STATUS ENABLE
2IS WV SET

001404

177777

051706

223 047174

032737

004000

001346

225 047204

042716

004000

001002

013737
042637

001412

001350
001142

001142

|
|

|
a

:CLEAR IVC IF ENABLED
*BRANCH IF IVC OK

;
z

MOVB

#165,a(SP)

*WRITE ERROR NUMBER IN CALL

JSR

PC.a(SP)+

SUB

MOV

RMER2I ,$BDDAT
#4, (SP)

:GET RECEIVED STATUS

:MOVE SP TO USERS ERROR CALL

#2.(SP)

*MOVE SP TO ERROR RETURN

#10, (SP)

*RESTORE SP TO NO ERROR

;

*REPORT ERROR

#-1,-(SP)

;ASSUME WRITE ERRORS ENABLED

1158

‘NO !!

BIT

MILE, 5008

BIT

;
|

|
|

!
;
|
!
z

;

:ARE WRITE ERRORS ENABLED ??

MWRL ,RMDS I

:IS THE DRIVE WRITE PROTECTED 22

BIC

MILE, (SP)

*RESET WLE ENABLE

BEQ

1258

BEQ

1208:

(SP)+,$8DDAT
1108

MOV

SUB

1158:

|
z,

;REPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED. OR IF
:THE DRIVE IS NOT WRITE PROTECTED

004000

*NO !
*YES = IVC SHOULD BE 0
*SET ALL OTHER BITS

ADD

1108:

5008, - (SP)
#VV ,RMDS

105§
#1VC, (SP)
#ACIVC, (SP)

BIC
BEQ

000000

5008, = (SP)
#~COPI, (SP)
RMER11,$8DDAT

JSR

032737

228 047222

*MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER

:WRITE ERROR ENABLE BIT IS RESET.

012746

226 047210
227 047216

#10, (SP)

;BRANCH IF WCE OK

;BIT 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
; ALL WRITE ERRORS, I.E..
:
RMERT - WLE, WCF
:
RMER2 - DPE
:
RMCS2 - UPE.
;EACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE

220 047160
224 047202

#2,(SP)

PC.a(SP)+

SEQ 0208 |

MOV
BIS
MOV
BIC

000000

g;g

221 047164

#4, (SP)
#26.,3(SP)

;REPORT ERROR IF OPI STATUS IS SET AND SHOULD NOT BE SET

210
211
212
213
214
215

218
219

su8

908

;REPORT ERROR IF IVC IS SET AND IS NOT ENABLED OR IF IVC IS

197 047106
198 047110
199 047114

200 047120

SUB

JSR

193

19,

ADD
MOVB

——

BNE

MOV
BIC

1208

RMERTI,$BDDAT
(SP)+,$BDDAT

SYES !!

:GET RECEIVED STATUS
:CLEAR WLE IF ENABLED

*BRANCH IF WLE OK

|
1

229 047224
230 047230
231 047236
232 047242
233 047244
234 047250
235
236
237 047250

000004
000023
000002

000040

001350
001142
000004
000025
000002

549 047330

162716

000010

012746
032737
001002
042716

177777
004000

125%:

051706
001142

1308:

#10, (SP)

1308

BIC

MICF , (SP)

MOV

RMERTI, SBDDAT

BIC

(SP)+,$BDDAT

135%

ADD

MOVB
SUB
JSR

su8

#4, (SP)

#25.3(sP)

#2,(SP)
PC.a(SP)+

#10, (SP)

:DISABLE WCF ERROR
:GET RECEIVED STATUS

:RESET WCF IF ENABLED
sBRANCH IF WCF 0K
sMOVE SP TO USERS ERROR CALL
sWRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN
sREPORT ERROR
sRESTORE SP TO NO ERROR

sREPORT 'ESROR IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED
051706
001142

000004
000040
000002

000000

1408:

BIT
BNE
BIC

MOV

BIC
BEQ
ADD

MOVB
SUB

JSR

145%:

SuB

#-1,-(SP)
MILE, 5008
1408
#DPE , (SP)

RMER2I, $BDDAT

(SP)+,$8DDAT
1458
#4, (SP)

#40,3(SP)
#2.,(SP)

PC.a(SP)+

#10, (SP)

sASSUME WRITE ERRORS ARE ENABLED
egg
lflJTE ERRORS ENABLED 7?

sRESET 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
;REPORT ERROR
sRESTORE SP TO NO ERROR

:REPORT % ERROR IF uzgpgs SET AND WRITE ERRORS ARE NOT ENABLED
051706

1508:

000000

155$:

285 047506

SuB

BNE

135%:

001142

281
282 047470
283 047474
284 047500

#2,(SP)
PC.a(SP)+

;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN
sRESTORE SP TO NO ERROR

;REPORT ERROR IF WCF IS SET AND WRITE ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
sASSUME WRITE ERRORS ENABLED
BIT
MJILE,S008
cgg U.J'UTE ERRORS ENABLED ??

000000

000010

275 047450
276 047456

SuB

#2%.3(5P)

BEQ

000010
001376
001142

177777
004

#4, (SP)

JSR

000010

177777
004000

ADD

MOVB

000000

001142

#-1

BIT
BNE
BIC

MILE, 5008
1508
#UPE, (SP)

BIC
BEQ
ADD
MOVB
SuB
JSR

(SP)+,$8DDAT
1558

MOV

su8

RMCS21, $BDDAT

#4, (SP)

#24,3(SP)
#2,(SP)
PC.a(SP)+

#10, (SP)

;ASSUME WRITE ERRORS ARE ENABLED
ygg wITE ERRORS ENABLED ??

;DISABLE UPE ERROR
;GET RECEIVED STATUS

:RESET UPE IF ENABLED
sBRANCH IF UPE 0K
sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

:REPORT AN ERROR IF IAE IS SET AND IS NOT ENABLED
MOV
5008,-(SP)
;GET IAE ENABLE
#*CIAE, (SP)
BIS
:SET ALL OTHER BITS
MOV
RMER11,$BDDAT
:GET RECEIVED STATUS
BIC
(SP)+, " $BDDAT
;CLEAR IAE IF ENABLED

SEQ 0209

v
|

D 1
CZRMOAQ RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 25-4
SECOMNDARY ERROR CHECK SUBROUTINE

286 047512
287 047514
288
047520

001412
062716
112776
162716
004736
162716

000004
000166
000002

000000

000010

BEQ
ADD
Move

160%
#4, (SP)
#166,a(SP)

;BRANCH IF IAE IS OK
NJVE SP_TO USERS ERROR CALL
WRITE ERROR NUMBER

JSR

PC.a(SP)+

*REPORT ERROR AND RETURN

SUB

:
1608

#2,(SP)

#10, (SP)

‘MOVE SP TO ERROR RETURN

*MOVE SP TO NO ERROR

;BIT 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
s ALL REQgé;l;lTE"E‘FE!RORS l.E.,

H
.NOTE:

RMDS

= LBT

RMER1 - AOE

LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED
ACI(YJ%%NDER REGISTER IS WRITTEN
AOE CANNOT BE SET IF LBT IS NOT ALSO SET
TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE

012746
032737
001002
042716
316 047572
317 047574
318 047600
319 047606

330
047646
331 047652
332 047654
333 047660
334 047666
335 047672
336 047674
337 047700
338
339
340 047700
341 047704
342 047712

177777
001000
100000

001344
001142

062716
112776
162716
004736
162716

000004
000032
000002

012746

177777
001000

;REPORT Aflg ERROR IF DLT IS SET AND READ/WRITE ERRORS ARE NOT ENABLED

001142

170%:

#DLT, (SP)

RMCS21,$BDDAT

BIC
BEQ
ADD

(SP)+,$8DDAT
1708
#4, (SP)

SUB
suB

#2,(SP)
PC.a(SP)+
#10, (SP)

MOV
BIT

051706

000004
000167
000002

000000

177777
001000

MOV

#-1,-(SP)

#AOE 5008
165%

#32.3(SP)

sASSUME ERRORS ARE ENABLED

:ARE ERRORS ENABLED ??
SYES I

sRESET DLT ENABLE

:GET RECEIVED STATUS

sCLEAR DLT IF ENABLED
sBRANCH IF DLT IS OK

sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN
REPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

;REPORT ERROR IF NEM IS SET AND READ/WRITE ERRORS ARE NOT ENABLED

001142

012746
032737
001002

BIC

JSR

004000
001344
001142

000010

165%:

MOVB

000010

162716

BIT
BNE

051706

BNE
1758:

BIC

#-1,-(SP)
#AQE , 5008
175%

#NEM, (SP)

;ASSUME ERRORS ARE ENABLED
*ARE ERRORS ENABLED ??
SYES !

*DISABLE NEM

MOV

RMCSS1,$BDDAT

:GET RECEIVED STATUS

BEQ

1808

*BRANCH IF NEM IS OK

BIC

(SP)+,$BDDAT

ADD
MOVB
SUB

#167.a(SP)

SUB

#10, (SP)

JSR

#4, (SP)
#2.(SP)

PC.a(SP)+

:CLEAR NEM IF ENABLED

:MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN

*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

sREPORT ERROR IF MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED

051706

MOV

#-1,-(SP)

sASSUME ERRORS ARE ENABLED

BNE

185%

SYES !

BIT

#AOE, 5008

: ARE DATA ERRORS ENABLED ??

SEQ 0210

we
|

:
CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 25-5
SECONDARY ERROR CHECK SUBROUTINE

F 1
CZRMOAD RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 256
SECONDARY ERROR CHECK SUBROUT INE

343 047714
344 047720
345 047726
346 047732
347 047734
343 047740
34
7746
350 047752

001000
001344
001142
000004

000033
000002

001142

000000
.

000010

177777
001000

002000

004736
162716

1858:

BIC

#MXF , (SP)

BEQ
ADD
MOVB
SUB

1908
#4, (SP)
#35.3(SP)
#2,(SP)

SUB

#10, (SP)

MOV
BIC

JSR

1908:

RMCS21,$BDDAT
(SP)+,$BDDAT

PC.a(SP)+

:DISABLE MXF ERROR

:GET RECEIVED STATUS
:CLEAR MXF IF ENABLED

*BRANCH IF MXF IS OK
*MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

;REPORT ERROR IF AOE IS SET AND DATA ERRORS ARE NOT ENABLED

051706
001346

001000
001350
001142

001142

000004
000020
000002

000000

1918:

1958:

MOV
BIT
BEQ
BIT
BNE
BIC

#AOE, (SP)

BIC

(SP)+,$8DDAT

MOV

BEQ

000010

2008:

#=1,=(SP)
#AOE , 5008
191%
#LBT ,RMDS I
1958

ADD
mov8
SUB
JSR
su8

RMERTI,$BDDAT

2008

#4, (SP)
#20.a(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

:ASSUME DATA ERRORS ARE ENABLED
*ARE DATA ERRORS EANBLED ??
*NO !
:1S LBT ALSO SET ??
SYES !!

*DISABLE AOE

:GET RECEIVED STATUS

:CLEAR AOE IF ENABLED

*BRANCH IF AOE IS OK

*MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER
*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

:BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
;
;
7

377 050050
378 050056
379 050060
380 050066
381
382
383 050066
384 050072
385 050100
386 050102
387 050106
388 050114
389 050120
390 050122
391 050126
392 050134

393 050140
394 050142
395 050146
396
397
398 050146
399 050152

032737

002000
000200

032737

004736
162716

012746
032737

;RESET THE ENABLING BIT (HCE) IF HEADER COMPARE INMIBIT IS SET

001366
051706 wal

051706

000400
001350
001142

001142

MOV
BIT
BNE

205$:

#HCI ,RMOF I
2018
#HCE , 5008

;IS HCI SET 22
:YES - DISABLE ALL HEADER ERRORS
*NO !

000000

000200
, 051706

210%:

#=1,=(SP)
#HCE, 5008
2058

;ASSUME ERRORS ENABLED
*ARE HEADER ERRORS ENABLED ??
SYES !

BIC

#HCRC, (SP)

*DISABLE HCRC

BIC

(SP)+,$BDDAT

:RESET HCRC IF ENABLED

MOV

BEQ

000010

177777

BIT
BEQ
BIC

;REPORT AN ERROR IF HCRC IS SET AND HEADER ERRORS ARE NOT ENABLED

177777
000200

000004
000035
000002

RMER1 - HCRC.HCE,FER
RMER2 - BSE

ADD
MOvB
suB
JSR
SUB

RMERT1,$BDDAT
2108

#4, (SP)
#35.3(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

:GET RECEIVED STATUS

*BRANCH IF HCRC IS OK

*MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

;REPORT ERROR IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLED

MOV
BIT

#-1,=(SP)

#HCE , 5008

;ASSUME ERRORS ENABLED

*ARE ERRORS ENABLED ??

SEQ 0211

CZRMOAO *MN5/3/2 FCTNL TST 3

SECONDARY ERROR CHECK SUBROUT INE

400 050160 001002

401 050162

042716

000200

403 050176
404 050200
405 050202
406 050206

042637
001412
062716
112776

001142

408 050220

004736

402 050166

407 050214
409 050222

2}? 050226
412

413 050226

414 050232
415 050240

013737

162716

001142

000004
000036

000000

000002
000010

012746

177777

001142

000020
001350
001142

421 050266

112776

000037

422 050274

423 050300

424 050302

062716

162716

004736

000004

000002

162716

000010

428 050306
429 050312
430 050320

012746
032737
001002

177777
000200

432 050326

013737

001376

435 050342

062716

000004

437 050354

162716

000002

162716

000010

252 050306
427

431 050322

433 050334
434 050340

436 050346

438 050360

439 050362

22.? 050366

042716

0462637
001412

112776

004736

100000

001142

000354

BIC
BEQ
ADD
MOVB

(SP)+,$BDDAT
2208
#4, (SP)
#36,3(SP)

:CLEAR HCE IF ENABLED
*BRANCH IF HCE IS OK
*MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER IN CALL

JSR

PC.a(SP)+

MOV

sUB

RMERTI,$BDDAT

:GET RECEIVED STATUS

#2,(SP)

*MOVE SP TO ERROR RETURN

#10, (SP)

*MOVE SP TO NO ERROR

*REPORT ERROR AND RETURN

BIT
BNE
225%:

BIC
MOV
BIC
BEQ

#-1,-(SP)

#HCE, 5008
2258

*DISABLE FER
:GET RECEIVED STATUS
:RESET FER IF ENABLED
*BRANCH IF FER OK

#37.3(SP)

:WRITE ERROR NUMBER IN CALL

#%, (SP)

suB

#2,(SP)

SuB

*ARE HEADER ERRORS ENABLED ??
SYES !!

#FER, (SP)
RMER1I,$BDDAT
(SP)+,$8DDAT
2308

ADD

MOVB

;ASSUME FER IS ENABLED

PC.a(SP)+

#10, (SP)

*MOVE SP TO USERS ERROR CALL
*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

;REPORT ERROR IF BSE IS SET AND HEADER ERRORS ARE NOT ENABLED

051706
001142

235%:

000000

MOV
BIT
BNE

#=1,=(SP)
#HCE , 5008
235$

;ASSUME ERRORS ENABLED
*ARE THEY ENABLED ??
SYES !!

MOV

RMER2],$8DDAT

:GET RECEIVED STATUS

ADD

#4, (SP)

:MOVE SP TO USERS ERROR CALL

suB

#2, (SP)

*MOVE SP TO ERROR RETURN

suB

#10, (SP)

BIC

BIC
BEQ

MOVB
JSR

2408 :

#BSE, (SP)

(SP)+,$8DDAT
2408

#354,a(SP)

PC.a(SP)+

*DISABLE BSE

:CLEAR BSE IF ENABLED
*BRANCH IF BSE OK

*WRITE ERROR NUMBER

*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

;BIT 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA

*FIELD ERRORS, I.E..
:
RMCS2 - MDPE

:
sNOTE:
:

223

455 050406
456 050414

*DISABLE HCE

MOV

230$:

445
446
447

452 050372
453 050400
454 050402

#HCE, (SP)

JSR

442

451 050366

JYES !!

BIC

SUB

000000

443
44k

450

2158

SEQ 0212

;REPORT ERROR IF FER IS SET AND HEADER ERRORS ARE NOT ENABLED

051706

042716
013737
042637
001412

215%:

2208:

000200

416 050242
417 050246
418 050254
419 050260

420 050262

BNE

001350

162716

032737
001002

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

RMERT = DCK,ECH
ECH CANNOT SET UNLESS IT IS ENABLED AND ECI

*DCK IS SET.

012746

032737
001002
042716

013737
042637

177777

000100

000400

001344
001142

IS RESET AND

;REPORT ERROR IF MDPE IS SET AND IS NOT ENABLED

MOV

051706
001142

245%:

BIT
BNE
BIC

MOV
BIC

#-1,=(SP)

#ECH, 5008
2458
#MDPE , (SP)

RMCS2I $BDDAT
(SP)+,$BDDAT

;ASSUME ENABLED

:ARE DATA FIELD ERRORS ENABLED ??
SYES !
g
*DISBALE MDPE

;GET RECEIVED STATUS
:CLEAR MDPE IF ENABLED

457 050420
458 050422

BEQ

000004
000027
000002

000010

470 050466
471 050474
472 050500
473 050502
474 050506
475 050514
476 050520
477 050522
478 050526
479

012746
032737
001002
042716

36
162716

177777
000100
100000
001350
001142

000004
000030
000002

2508:

ADD
MOVB
SUB
JSR
SUB

2508

#4, (SP)
#27,3(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

SECONDARY ERROR CHECK SUBROUTINE

H 1
MACRO Vv03.01 11-APR-80 13:39:53 PAGE 25-8

SEQ 0213

;BRANCH IF MDPE OK
sMOVE SP TO USERS ERROR CALL

;WRITE ERROR NUMBER IN CALL

sMOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

sREPORT SSCOR IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED
051706

001142

255%:

000010

#ECH,5008
255%
#DCK, (SP)

sARE THEY ENABLED ??
sYES !!
;DISABLE DCK

BIC

(SP)+,$8DDAT

:CLEAR DCK IF ENABLED

¥, (SP)

*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

MOV
movB

260%:

sASSUME ENABLED

BIT
BNE
BIC
BEQ

000000

#-1,-(SP)

SUB
JSR
suB

RMERTI,$BDDAT
2608

#30.3(SP)

:GET RECEIVED STATUS

*BRANCH IF DCK IS OK

*WRITE ERROR NUMBER IN CALL

JREPORT ERROR IF ECH IS SET AND,

DATA FIELD ERRORS ARE NOT ENABLED, OR

484 050526
485 050532

012746

486 050540
487 050542

492 050566
493 050574
494 050600
495 050602
496 050606
497 050614
498 050620
499 050622
500 050626
501

004
162716

177777
000100

051706

004000

001366

100000

001350

000100
001350
001142

001142

000004
000031
000002
000010

265%:
270%:

ECI IS SET, OR
- DCK IS NOT SET.
#-1,-(SP)
MOV
BIT
#ECH,500%
BEQ
265%
BIT
#ECI ,RMOF I
BNE
265%
BIT
#DCK ,RMER11
BNE
2708

#ECH, (SP)

*DISABLE ECH

BIC

(SP)+,$8DDAT

:CLEAR ECH IF ENABLED

ADD

MOVB

SuB

JSR

275%:

sARE ERRORS ENABLED ??
:NO !!
:1S EC1 SET ??
7S 1!
:1S DCK ALSO SET ??
;YES !!

BIC

MOV
BEQ

000000

sASSUME ENABLED

RMER11,$8DDAT
275%

#4, (SP)

#31.a(SP)

#2.(SP)

PC.a(SP)+

#10, (SP)

:GET RECEIVED STATUS

*BRANCH IF ECH IS OK

:MOVE SP TO USERS ERROR CALL

:WRITE ERROR NUMBER IN CALL

*MOVE SP TO ERROR RETURN

*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

CZRMOAQ RMO5/3/2 FCTML TST 3

112776

000030

051714

001336

001142

040000

001334

000004
000015
001140
000002

A A

RN R AR AR AR AR AR AR AR AR AR

013737
163737
006337
063737

001336
001412
001140
001414

001140

28 050742

032737

000010

22
23 050714
24 050722
25 050730
%(7: 050734

29 050750
?1) 050752

001403
013737

32 050760
33 050766
34 050770

023737
001416
013737

36 051002
37 051010
38 051014
39 051016
2? 051022

112776
162716
004736
162716
000240

42
43 051024
44 051026
22 051032

005046
013746
163716

47 051036
48 051042
49 051050
§(1) 051052

012746
032737
001402
062716

022626

AR A AR AR AR AR

#SEARCH,515%

JMP

3558

280%

AR AR AR AR AR AR AR

;WAS DATA TRANSFERRED ?
;BR IF YES
:NO = EXIT

BEQ

BIT
BNE

ADD
MOVB
CLR
SuB
JSR
suB

2858

#TRE ,RMCS11

2858

#4, (SP)
#15,3(sP)
$GDDAT

#2, (SP)

PC.a(SP)+

#10, (SP)

TIERQNSFER ERROR DETECTED??

;ERROR NUMBER

;GOOD DATA FOR TYPEOUT

¢:MOVE SP TO RETURN FOR ERRCR
sREPORT WORD COUNT NOT ZERO
¢RESTORE (SP)

-:REPORT ERROR IF RMBA IS NOT CORRECT

285%:

MOV

RMWCI,SGDDAT

RMWCO. SGDDAT

;GET WORD COUNT AT END OF TRANSFER AND
SleRACT STARTING WORD COUNT.

ADD

RMBAO, $GDDAT

ADD STARTING BUS ADDRESS

001344

BIT

#BAI ,RMCS2I

.-%s.gus ADDRESS INHIBIT (BAI) SET ??

001414

001140

MOV

RMBAO, $GDDAT

*ADDRESS SHOULD NOT HAVE CHANGED

001140

001340

$GDDAT ,RMBAI

BlEJgADDRESS 0K??

001340
000004
000016
000002

001142

001140

BEQ

290$:

000000

CMP

BEQ

$GDDAT

2908

295$

MOV
ADD
MOVB
suB

RMBAI , $BDDAT
#4, (SP)
#16,3(SP)
#2,(SP)

suB

#10, (SP)

JSR

PC.a(SP)+

:BAD DATA FOR TYPEOUT

:ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
sREPORT UNEXPECTED ADDRESS
sRESTORE (SP)

; COMPUTE NUMBER O?SS§CTORS TRANSFERRED FROM WORD COUNT
CLR
sNUMBER OF SECTORS TRANSFERRED
sGET WORD COUNT AT END OF TRANSFER AND
SUB
RMWCO. (SP)
:SUBTRACT STARTING WORD COUNT.

2958:

001336
001412
000400
000002

SuB

ASL

000010

001410

MOV

RMWCI ,=(SP)

MOV
BIT

#256. ,-(SP)
#BIT1,RMCS10

BEQ

000002

000002
55 051070
56
57

A A AR

cMP

NOP

001140

:REPORT ERROR IF RMWC NOT ZERO AND TRE IS ZERC
MOV
RMWCI, SBDDAT
Uggb COUNT ZZR0??

280%$:

000000

000010

BLO

051660

~N
&~

&
S jolela]

vv
v

013737
001421
032737

g g Y 223
EEER
v

2
0650

050636

022737
103402
000137

050626

162714
000240

SEQ 0214

tPERFORH THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS

o (elelolelelelelelele]

3 OO NN

b cald

NN = O 000 NO NN SN WN) =

SECONDARY ERROR CHECK SUBROUTINE

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

ADD

3008:

3008
#2,(SP)

INC
SuB

4(SP)

CMP

(SP)+,(SP)+

BGT

(SP) ,2(SP)

3008

sASSUME 256. WORDS PER SECTOR
:%A%R € DATA COMMAND ??

*CHANGE TO 258. WORDS PER SECTOR
s INCREMENT SECTOR_COUNT
s SUBTRACT ONE SECTOR'S WORTH
sCONTINUE IF NOT DONE
sRESTORE STACK

;COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM

e
|

CZRMOAO RMOS5/3/2 FCTNL TST 3

§9 051072

013737

001444

051706

:NUMBER OF SECTORS

MOV

RMDCO, 500%

;STORE ORIGINAL CYLINDER

60 051100
61 051106
62 051114
63 051122
gg 051126

013737
013737
013737
337
005237

001416
001416
001332
051716
051716

051710
051712
051716

MOV
MOV
MOV
SWAB
INC

RMDAO, 505%
RMDAO, 510
LSTRK,520$
5208
5208

66 051132
67 051140
68 051144
93 051152

042737
000337
042737
062637

000377
051710
177400
051712

051710

BIC
SWAB
BIC
ADD

#~C<TADMSK>,505$
:SAVE TRACK ADDRESS BITS AND
5058
;SWAP TRACK ADDRESS TO | OW BYTE.
#~C<SADMSK>, 5108
;SAVE SECTOR ADL 'ESS BITS
(SP)+,5108

71 051156

023727

051712

000040

73 051166

005237

72 051164

103406

051710

051712

74 051172
;2 051200

162737
000766

000040

051712

77 051202
78 051210
79 051212
80 051216

023737
103407
005237
163737

051710

051716

051706
051716

051710

gg 051226

000240

81 051224

000766

005037

88 051242
89 051244
90 051252
91 051254
92 051262
93 051270
9 051276
95 051304

101407
032737
001003
012737
013737
042737
023737
001413

97 051312

112776

96 051306

023727

001140

001466

002000

001350

002000
001346
175777
001140

001140
001142
001142
001142

000004

98 051320
99 051324

162716
004736

000002

}35 051332

000240

103

104 051334

105 051340
106 051346
107 051350

108 051356
109 051360
110 051364
111 051366
112 051372
113 051374
114 051402

sus
B8R

#32..,5108
3108

*ADJUST SECTOR
*TRY AGAIN

CMP
BLO
INC
S8

505$, 5208
3208
5008
520%,505%

:TRACK OVERFLOWED??
*NO!!
*INCREMENT CYLINDER
*ADJUST TRACK

B8R

000017

162716

000010

005037

001140

032737
001031
023727

101425
005737
001012
005737
001007
032737
001413

5208:

051706

062716

100 051326

:SECTOR OVEFLOWED??

*NO!!

INC

3158:

5108,432.

315%

505%

3158

*INCREMENT TRACK

*TRY AGAIN

-REPORT ERROR IF 'LBT''
IS NOT CORRECT

86 051230

87 051234

CMP

BLO

NOP

85 051230

3108:

*STORE ORIGINAL TRACK
:STORE ORIGINAL SECTOR
:STORE LAST TRACK,
:GET TRACK ADDRESS TO LO BYTE AND
:INCREMENT TO GET TOTL # OF TRACKS.

$GDDAT

BLOS
BIT
BNE
MOV
MOV
BIC
P
8EQ

3258
#IAE ,RMER11
3258
#LBT,$GDDAT
RMDS] ,$8DDAT
#~CLBT,$BDDAT
$GDDAT,$BDDAT
3308

CMP

325%:

000000

5008 ,4#822.

ADD

#4, (SP)

suB
JSR

#2, (SP)
PC.a(SP)+

MOVB
SuB

NOP

#17,3(SP)

#10, (SP)

:SET GOOD DATA FOR LBT = 0

“SHOULD LBT BE SET??

*NO!!
*WAS IAE SET ??
:YES = LBT SHOULD NOT BE SET
*SET GOOD DATA FOR LBT = 1
:BAD DATA FOR TYPEOUT

;IS LBT CORRECT??
SYES!!

:ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
*REPORT LBT IS WRONG

*RESTORE (SP)

-REPORT ERROR IF ''ADE'' IS INCORRECT

002000

001350

051706

001466

051710

051712

000010

CLR

051714

%308:

CLR

BIT
BNE
cMP

BLOS
ST
BNE
ST
BNE
BIT
BEQ

$GDDAT

#1AE ,RMER1]
3408
5008 ,#822.

3408

505$
335s
5108
3358
#F2,515%
3408

sSET FOR AOE = 0

*WAS "'IAE'' DETECTED??
*YES-''AOE'* SHOULD BE ZERO
*SHOULD AOE BE SET??
*NO!!
*MAYBE
SYES

JYES !!
:WAS THIS READ OR WRITE CHECK ??
iNO !

SEQ 0215

Py|

J 1
CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO V03.01 11-APR-80 13:39:53 PAGE 26~1
SECONDARY ERROR CHECK SUBROUT INE

051712

BIC

RMWC ]

;WAS ALL DATA TRANSFERRED ??

3408
#AOE , SGDDAT
505%
#1,5108
RMER1],$8DDAT

SYES !!
*SET FOR AOE = 1
*CLEAR EXPECTED TRACK
*EXPECT SECTOR = 1
:BAD DATA FOR TYPEOUT

$GDDAT,$8DDAT
3458

;IS AOE CORRECTY??
SYES!!
-

#~CAOE
, SBDDAT

001142

CMP
BEQ

000000

move

#20.3(sP)

:ERROR NUMBER

suB

#10, (SP)

*RESTORE (SP)

ADD

suB
JSR

000010

NOP

001350

051710
001140
051712
001342
001140

001140

BIT

#1A§.RHER1I

SWAB
MOVB
MOV
CMP

SGDDAT
510$,SGDDAT
RMDAI,$BDDAT
$GDDAT,$BDDAT

ADD

¥4, (SP)

BNE
MOV

BEQ

MOVB

000000

SUB
JSR

suB

*MOVE SP TO RETURN FOR ERROR
*REPORT AOE IS WRONG

355
505S, SGDDAT

3508

#21.3(SP)

#2,(SP)
PC.a(SP)+

#10, (SP)

;WAS THERE AN IAE ERROR ?7?

*YES = DONT CHECK RMDA,RMDC
*SETUP EXPECTED DISK ADDRESS
;SETUP RECEIVED DISK ADDRESS
: COMPARE EXPECTED & RECEIVED

*BRANCH IF EQUAL

;:ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
*REPORT BAD DISK ADDRESS

*RESTORE (SP)

;REPORT ERROR IF RMDC IS INCORRECT

5508:

SEDS
nNNOO

D
)

NOP

#2,(SP)
PC.a(SP)+

-REPORT ERROR IF RMDA IS NOT CORRECT

5458:

001140
001142
001142

s Jos

¥4, (SP)

MOV

BIC

MOV
CMP

BEQ

:SETUP EXPECTED CYLINDER

RMDCI,$BDDAT
$GDDAT,$BDDAT

;SETUP RECEIVED CYLINDER
: COMPARE CYL INDERS

355%

ADD

#4, (SP)

SUB
JSR

#2, (SP)
PC.a(SP)+

MOVB

SUB

NOP

355%:

5008, SGDDAT

#~C1777.,$GDDAT

*BRANCH IF EQUAL

#22,3(SP)

:ERROR NUMBER

#10, (SP)

*RESTORE (SP)

*MOVE SP TO RETURN FOR ERROR
*REPORT BAD CYLINDER

ADD

#4, (SP)

:MOVE (SP) TO ERROR CALL

BEQ
ago

3608
§25§5P’

:MOVE (SP)

TSTB

suB

a(SP)

*WAS ERROR FOUND??

TO ERROR RETURN

RTS

#4,(SP)

;MOVE

(SP) TO NO ERROR RETURN

WORD
WORD
WORD
WORD

0
0
0
0

; CYLINDER
*TRACK
*SECTOR
*FUNCTION CODE

——

002000

156 051650

157 051652
158 051656
159
160 051660
161 051664
162 051670
163 051672
164 051676
165 051700
166 051704
167
168 051706
169 051710
170 051712
171 051714

BEQ
MOV
CLR
MOV
MOV

000004
000020
000002

335%:

001140

152 051630
153 051632
154 051636
155 051644

001000
051710
000001
001350
176777
001140

383888

141 051556
142 051564
143 051570
144 051572
145 051576
146
147
148 051600
149 051606
150 051614
151 051622

001336

122 051446
123 051454
124 021456
125 051462
126 051470
127 051474
128 051476
129 051502
130
131
132 051504
133 051512
134 051514
135 051522
136 051526
137 051534
138 051542
139 051550
140 051552

005737
001410
012737
00

—_—

115 051404
116 051410
117 051412
118 051420
119 051424
120 051432
121 051440

SEQ 0216 |

K 1
CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO V03.01 11-APR-80 13:39:53 PAGE 26~2
SECONDARY ERROR CHECK SUBROUT INE

L 1
- | CZRMOAQ RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 26~3
SECONDARY ERROR CHECK SUBROUTINE

172 051716

;‘;2

000000

5208:

.WORD

:# OF TRACKS FOR DEVICE UNDER TEST = LAST

;TRACK + 1 TRACK

SEQ 0217

SEQ 0218 |

COMPOSITE ERROR CHECK SUBROUTINE

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.

sCALL:

(1)

:
H
:
:
;
:
:

JSR

. WORD
. WORD
BR
NOP
ERROR
JSR
M

PC,CMPERRSTS

mn?
PC,a(SP)+

MASK FOR ERROR REGISTER 1
MASK FOR ERROR REGISTER 2
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

g(e) sERBITS TO BE MASKED SHOULD BE ONE:; BITS TO BE TESTED SHOULD

051720

32 051754
33 051760

062716
105076

000006
000000

36
37 051770

005737

001176

39 051776
40 052004

013737
005037

43 052022

162716
004736
162716

001176
001140
000004
000066
000002

88 3}

001350
000000
900002
001376
000000

013737
047637
06271€
013737
047637

3(1)

%g 051764

45 052030

162716

sMASK AM')”\S,TORE THE CONTENTS OF RMER1T AND RMER?2
RMER11,$TMP1
:STORE RMER1 AT TEMP STORAGE
BIC

ADD
MOV
BIC

24 051720
25 051726
26 051734
27 051740
gg 051746

CMPERRSTS:

88 —_—
88
-

.SBTTL

—_—

[AST,\N]
WA= 3-.-0-;_;...4—;—....-&
O VOOV
NN = O 000 NN NS4 NN —

M1
CZRMOAO RMO5/3/2 FCTNL TST 3 NEMACRO v03.01 11-APR-80 13:39:53 PAGE 27
COMPOSITE ERROR CHECK SUBROUT

a(SP) ,$TMP1

#2, (SP)
RMERZ2I ,$TMP2
a(SP) ,$TMP2

sCLEAR USER'S ERROR CALL
ADD
#6, (SP)
CLRB
a(SP)
sus
#4,(SP)

000004

:MASK

RMER1

sMOVE SP TO NEXT MASK
:STORE RMER2 AT TEI'P STORAGE
:MASK RMER?2

sMOVE 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
TST

BEQ
MOV

001142

CLR

5%
$TMP1,$BDDAT
$GDDAT

ADD
MOVB
SUB

#4, (SP)
#66,3(SP)
#2,(SP)

SUB

#10, (SP)

JSR

000010

$TMP1

PC.a(SP)+

s ANY ERRMS TO REPORT??

:NO
!
.RECEIVED STATUS FOR TYPEOUT
sEXPECTED STATUS FOR TYPEOUT
sMOVE SP TO USER'S ERROR CALL
s CORRECTABLE DATA CHECK ERROR #
sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
sMOVE SP BACK TO BRANCH

5%:

51 052036

005737

001200

53
54 052044
55 052052

013737
005037

57 052062

112776

001200
001140
000004
000067

;SEE IF THERE ARE ANY ERRORS TO REPORT IN RMER2 ($TMP2)
TST

$TMP2

A'zY ERRORS IN RMERZ2?

MOV

$TMP2,$BDDAT

sRECEIVED STATUS FOR TYPEOUT

ADD

#4,(SP)

:MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN USER'S CALL

BEQ
001142

CLR

MOVB

108

$GDDAT

#67.3(SP)

;EXPECTED STATUS FOR TYPEOUT

S8 052070

162716

000002

162716

000010

59 052074

004736

61 052102

000240

65 052104

062716

67 052114
68 052116
69 052122
70 052124

001403
062716
000402
162716

60 052076

g% 052104

052110

;} 052130

105776

000207

SuB

JSR

SuB

108:
000004

#10, (SP)

*MOVE SP TO NO ERROR RETURN

;REPORT ERROR VIA WSER

000004
208 :

308:

#4, (SP)

;MOVE SP TO USER'S ERROR CALL

BEQ
ADD
BR
SuB

208
#4, (SP)
308
#4,(SP)

*NO!!
:YES = MOVE SP TO ERROR RETURN
'
;MOVE SP TO NO ERROR RETURN

RTS

ADD

ISTB

:MOVE SP TO RETURN FOR ERROR

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED

000000

000004

NOP

#2,(SP)

PC,a(SP)+

SE@ 0219

a(SP)

;WAS THERE AN ERROR CALLED??

sRETURN TO USER

;

'
~;
;
|

n~
|

N 1
CZRMOAQ RMOS/3/2 FCTNL TST 3
MACRO V03.01 11-APR=80 13:39:53 PAGE 27-1
COMPOSITE ERROR CHECK SUBROUTINE
~

CZRMOAQ RMOS5/3/2 FCTNL TST 3

DEVICE SELECT SUBROUT
'*

MACRC v03.01 11-APR-80 13:39:53% PAGE8 25

SEQ 07220 |

.SBTTL

; THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE

6
7

s CALL
(D

}(1)

}g 052132
000004

}g 052142

162716

000004

105076

:(4)

ERROR

Nop

PC,DEVSEL

ADD

#4, (SP)

SUB

#4, (SP)

CLRB

a(SP)

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

000004
000006

ERRVEC,~(SP)
ERRVEC+2,~(SP)
RO,~(SP)
R1.-(SP)
#208 , ERRVEC
#PR6, ERRVEC+2
$BASE ,RO
TSTQUE ,R1

28 052212
233 052220

016037
016037

000000
000010

001176
001174

MOV
MOV

31 052226

032737

010000

001174

BIT

#NED , $TMPO

33 052236

062766

000004

000010

ADD

#4,10(SP)

gg 052252

000422

B8R

308

37 052254
38 052262

032737
001021

004000

001176

40 052272

112776

000004

000112

000010

39 052264

25 052300
43

44 052302
45 052304
46 052312

47 052320

001407

112776

062766

000407
022626
062766
112776
162766

000111

000002

51 052326

052326
052330
052332

MOVB

BEQ

000010

MOVB

108:

000010

(R1) ,RMCS2(RO)

*MOVE SP BACK

;:PUSH ERRVEC ON STACK
- :PUSH ERRVEC+2 ON STACK
::PUSH RO’ ON STACK
“:PUSH R1 ON STACK
:SETUP FOR BUS TIMEOUT

;RO = UNIBUS ADDRESS
*R1 POINTS TO DEVICE NUMBER

108

#111,310(sP)

000010
000010
000010

308:

;1S DEVICE NONEXISTENT ?

*NO!!

:MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER

BIT
BNE
ADD

#DVA,STMP1
358

;1S ULVICE AVAILABLE ?
SYES!!

#112.310(SP)

308

*WRITE ERROR NUMBER

MOVB

208:

;WRITE UNIT SELECT BITS

RMCS1(RO) ,$TMP1 :GET 'DVA'* STATUS
RMCS2(R0) ,$TMPO :GET 'NED'* STATUS

#4,10(SP)

:HANDLE BUS TIMEOUT

000004
000113

:MOVE SP TO USER'S ERROR

;CLEAR LOW ORDER BYTE OF CALL

;SELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE

000010

3% 052244

RETURN IF ERROR

:SAVE USER'S INFORMATION AND SETUP REGISTERS

111160

32 052234

RETURN IF NO ERROR
ERROR DEF INED BY SUBROUTINE

;CLEAR USER'S ERROR CALL

000000

20 052146 013746 000004
052152 013746 000006
052156 010046
052160 010146
21 052162 012737 052302
22 052170 012737 000300
23 052176 013700 001276
24 052202 013701 001464
27 052206

JsR

(2!

CMP
ADD
MOVB
SUB

(SP)+,(SP) +
#4,10(SP)
#113.310(sP)

#2,10(sP)

:MOVE SP TO USERS ERROR CALL

;ADJUST SP
:MOVE SP TO USERS ERROR CALL
:WRITE BUS TIMEOUT ERROR NUMBER

:ADJUST,RETURN TO 'NOP' PRECEDING

*THE ERROR CALL

:RESTORE USERS DATA AND RETURN TO ADDRESS ON STACK

012601
012600
012637

000006

MOV
MOV
MOV

(SP)+,R1
(SP)+.R0
(SP)+.ERRVEC+2

e po—

062716

DEVSEL :

15 052132

16 052136

TEST QUEUE.

—

DEVICE SELECT SUBROUTINE

::POP STACK INTO R1
*:POP STACK INTO RO
::POP STACK INTO ERRVEC+2

000004

MOV
RTS

(SP)+,ERRVEC
PC

;;POP STACK INTO ERRVEC
JEXIT

NI
S
IP)

012637
000207

DALV

052336

g% 052342

SEQ 0221

DEVICE SELECT SUBROUTINE

MACRO v03.01 11-APR-80 13:39:53 PAGEC 2%-1

S
O

CZRMOAO RMOS5/3/2 FCTNL TST 3

SEEK STATUS CHECK SUBROUTINE

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

=3 VNS WN=OYVONOWVNSWN 2

.SBTTL

SEQ 0222

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.
THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED

.AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE 'ERRORTM* TRAP
:OF THE CALLING ROUTINE.
SEEK STATUS IS CHECKED AS FOLLOWS:

D e

CALL:

d e

(1)

;
;

:
:

JsR

PC,SEKSTS

JSR
277

PC,a(SP)+

BR
NOP
ERROR

273

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

SEKSTS:

005037

;CLEAR uzggs' ERROR CALL
ADD
#4, (SP)
CLRB
a(SP)
SUB
#4, (SP)
CLR
3008

000004
053602

:MOVE (SP) TO ERROR CALL
*CLEAR ERROR NUMBER

*MOVE (SP) TO NO ERROR RETURN
*CLEAR ERROR FLAGS

;TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING

30 052366
31 052374
32 052376
gz 052404

032737
001424
032737
001020

000010

001350

000010

001376

35
36 052406
37 052412
38 052420
39 052424
40 052432
41 052436

005037
013737
062716
112776
162716
004736

001140
001350
000004
000050
000002

22 052444

000437

42 052440

45
46
47 052446

162716

012737

:LOCAL REGISTERS, I.E., 'PAR'"
BIT
BEQ

BIT
BNE

002000

052737
023727
101025
042737

040000
001444

53 052500
54 052506
55
56 052510
57 052516

123737
101016

001417

123727
101410

001416

040000

#DPE ,RMER2]
18

=1 AND 'DPE'' = 0

:WAS PARITY ERROR DETECTED??
*NO!!

*WAS IT DUE TO CONTROL BUS??
*NOT SURE!!

:REPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL
001142

CLR
MOV
ADD

$GDDAT
RMER1],$8DDAT
#4, (SP)

:EXPECTED STATUS
:RECEIVED STATUS
*MOVE STACK TO USER'S ERROR

suB

#2,(SP)

*MOVE SP TO RETURN FOR ERROR

mov8
JSR

SuB
BR

000010

48 052454
49 052462
50 052470
g} 052472

#PAR ,RMER1]
18

#50.a(SP)

PC.a(SP)+

#10, (SP)
3s

*ERROR #50

;RESTORE STACK
:IAE SHOULD BE ZERO

;DETERMINE THE VALUE OF ‘'IAE'* STATUS BASED ON TRACK, SECTOR AND CYLINDER
:ALSO, SET *‘SKI'* IF CYLINDER ADDRESS IS TOO LARGE .

1s:

MOV

#1AE, SGDDAT

;SETUP FOR IAE
= 1

CMP
BHI

RMDCO, #822.
3

*GREATER THAN LAST CYLINDER ?
“YES - CYLINDER IS INVALID

CMPB

RMDAO+1,LSTRK+1

*YES - TRACK IS INVALID

CMPB
BLOS

RMDAD,#29.
2%

:SECTOR > 29.
:BR IF NO

BIS

BIC

BHI

#SK1.300%

#SK1,3008

*SETUP FOR SKI = 1

*CLEAR SKI ERROR FLAG

;GREATER THAN LAST TRACK ?

22|

CZRMOAQ RMOS5/2/2 FCTNL TST 3

CZRMOAQ RMO5/3/2 FCTNL TST 3
SEEK STATUS CHECK SUBROUTINE

MACRO v03.01 11-APR-80 13:39:53 PAGEE 25'1

S8 052520
§9 052526
60 052530

032737
001406
123727

010000

001442

001416

000037

g;: 052540

005037

001140

013737

001350

g} 052536
65

66 052544

67 052552

101002

042737

68 052560 023737
69 052566 001004
70 052570
71 052576

175777

040000

74 052600

062716

000004

76 052612
77 052616

162715
004736

79 052624

000240

72 052600

75 052604

78 052620

g? 052626

82
83
84

85 052626

052

87 052636

000051

162716

000010

000002

010000

005037

001140

88 052642 013737 001376
89 052650 062716 000004
90 052654

112776

053602

000060

000000

001376

000010

99 052714
100 052722

013737
042737

001376
137777

001142
001142

102 052736
}813. 052744

042737
001417

137777

001140

040000

001142

105

106 052746

032737

000100

001346

000061
000002

000000

053602

107 052754
108 052756

001032
062716

000004

110 052770

162716

000002

162716
000443

000010

109 052762

111 052774

112 052776
113 053002
114 053004

112776

004736

000267

*YES = SECTOR xs INVALID

RMER11,$BDDAT

;IS IAE 0K??

$GDDAT,$BDDAT
358

:CORRECT ''IAE'* STATUS ?
*BR IF NO

BIC

#~CIAE,$BDDAT

BIC
B8R

#SK1,3008
5%

SuB
JSR

:SAVE IAE BIT FOR COMPARE

*CLEAR SKI FLAG
:GO CHECK NEXT ERROR

NOP

#4, (SP)

#51,3(SP)

"2, (SP)
PC.a(SP)+

#10, (SP)

;ERROR 51

:MVE SP TO RETURN FOR ERROR
*REPORT INCORRECT IAE

:RESTORE (SP)

;REPORT ANY IVC ERROR AS
;
IVC ERROR WITH VOLUME VALID ZERO
:
ERRONEOUS IVC ERROR, VOLUME VALID IS SET
BIT

#1VC.RMER2]

CLR

$GDDAT

BEQ

000000

162716
000240

013737

:"'IAE"" SHOULD = 0

nove

001142

032737
001403
112776
162716
004736

101 052730

$GDDAT

SUB

91 052662
92 052670
93 052672
9 052700
95 052704

9 052706
3; 052712

CLR

REPORT mcomecr "'IAE'* STATUS VIA USER'S ERROR CALL

5%:

032737

;18 BIT FORMAT ?
*YES - SECTOR xs INVALID FOR 18 BIT MODE
*SECTOR > 31.

CMP
BNE

358
:

112776

001427

001142

#FMT16,RMOFO
3$
RMDAO,#31.

- COMPARE sxpecreo AND RECIEVED '‘IAE'' STATUS

$8:

001140 001142

042737
000413

001142

BIT
BEQ
CMPB

BHI
28:

SEQ 0223 |

*NO!!

MOV
ADD

RMER21,$BDDAT
#4, (SP)

:RECEIVED STATUS
*MOVE SP TO USER'S ERROR

BIT
BEQ
MOVB
SUB
JSR

#VV.RMDS]
51$
#61,3(SP)
#2,(SP)
PC.a(SP)+

;ERROR 61 IF W =1
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

MOV
BIC

RMER2I,$8DDAT
#~CSKI.$BDDAT

;RECEIVED STATUS
:CLEAR DONT CARES

BIC
BEQ

#~CSKI,S$GDDAT
53$

MOVB

51$:

suB
NOP
52%:

001140

;IVC ERROR??

52%

MOV

#60,a(SP)

#10, (SP)

3008, SGDDAT

*EXPECTED STATUS

*ERROR 60 IF W = 0

*RESTORE SP

*GET EXPECTED SKI STATUS

:CLEAR DONT CARES
*BRANCH IF 0 EXPECTED

;REPORT ERROR IF SKI IS NOT SET (IAE WAS NOT DETECTED)

BIT

#SK1,S8DDAT

MOVB

#267,a(SP)

BNE
ADD

000000

SYES 1!
*MOVE SP TO USERS ERROR CALL

suB

#2.(SP)

*MOVE SP TO ERROR RETURN

SUB
BR

#10, (SP)
63

*MOVE SP TO NO ERROR
:GO TO NEXT ERROR CHECK

JSR

538

:WAS SKI DETECTED ??

548
#4, (SP)

PC.a(SP)+

*WRITE ERROR NUMBER

*REPORT ERROR AND RETURN

CZRMOAQ RMOS5/3/2 FCTNL TST 3

SEQ 0224

d e

040000

001142

D
) e
)

e cd

001140
001376
000004
000055
000002

001142

IS A RA S REA S E SR

BIT

#DVC ,RMER2]

.‘%%THERE DVC DURING SEEK??

MOV
ADD
MOVB
SUB
JSR
SUB

RMER2]
, S8DDAT
#4, (SP)
#55.3(SP)
#2, (SP)
PC.a(SP)+
#10, (SP)

$GDDAT

*EXPECTED STATUS

BEQ
CLR

NOP

—

) —d —
) —D

)

020000

D —d ——d —d -

001140
001350
000004
000052
010000
000053
000002

D —d
)

053172
053176

000010

053200
204

001346
047677
110100

S33TRER R 2B TR RN
o
v
S
W

) D —d d

#2,(SP)
PC.a(SP)+
#10, (SP)

#54,a(SP)

;1S SKI SET ??
sNO = SKI IS OK
sMOVE (SP) TO ERROR
;LOAD ERROR NUMBER
¢sMOVE SP TO RETURN FOR ERROR
sREPORT SEEK ERROR
sRESTORE (SP)

*RECEIVED STATUS

;ERROR #55
sMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER

sRESTORE SP

;REPORT ANY 'DPI'' ERROR AS OP I

001350

WITHMOL
= 0, OR
*BECAUSE ON CYLINDER LATCH DI DN'T RESET
é$:
BIT
#OPI,RMER1]
:'OPI'" ERROR??
BEQ
CLR

001142

78:

010000

020000

053276

6
112776
162716

001346
010000
001346
000004
000062
000002

$GDDAT

MOV
ADD

RMER1I, SBDDAT
#4, (SP)

BIT
BEQ

#MOL ,RMDS I
7

SUB

#2, (SP)

suB

#10, (SP)

MOVB

000000
001346

MOVB
JSR

NOP

#52.3(SP)

#53.a3(SP)

PC.a(SP)+

OPI

;EXPECTED STATUS
sRECEIVED STATUS
:MOVE (SP) TO ERROR
:LOAD ERROR NUMBER
:w.fibllfl ON LINE??

;YES = CHANGE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR

;REPORT 'OPI'‘ ERROR

;RESTORE (SP)

:SEE IF 'PIP" = 0, 0, AND ''ATA'', "MOL'' AND "'WV'' = 1
8%:
'e'?‘c’
RMDSI ,=(SP)

CMP
BNE
JMP

053552

D d

) —d —d -

SUB
JSR
SUB

-REPORT ANY DEVICE CHECK

§548:

000010

wd
— v

54%
¥4, (SP)

NOP

001376

#SK1,$BDDAT

BEQ
ADD

MOVB

000010

000200

e cd —

;REPORT g?fi;m IF SKI IS SET

000004
000054
000002

D ed d e

D e

032737
001413
062716
112776
162716
004 736
162716
000240

—

ERRRIRTRES VO~N

SEEK STATUS CHECK SUBROUTINE

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

#*C<ATA!PIP!MOL
!VV>, (SP)

HATA!MOL
'V, (SP) +
9
;ERROR IN RMDS
148
JRMDS IS OK

-REPORT ERROR IF MOL = 0 AND OPI = 0

9s:

BIT

#MOL ,RMDS I

BIT

#OPI ,RMER1]

BNE

BNE
MOV
BIS
MOV
ADD
MOVB
SUB

108

108
RMDSI , SGDDAT
#MOL
, SGDDAT
RMDS
1, $SBDDAT
#4, (SP)
#62,3(SP)
#2,(SP)

;1S MOL RESET??
:NO

;EXPECTED STATUS

sRECEIVED STATUS
¢MOVE SP TO RETURN FOR ERROR

CZRMOAO RMOS5/3/2 FCTNL TST 3

SEEK STATUS CHECK SUBROUTINE

pat{

004736
162716
000240

032737
001430

—

d e

d D D

d D

d e

D e

) e

D D e

D d -t

LRE RGN 28 EBIRRRAT
2B IIY y

172 053302
173 053304

736
162716
000240

032737
001024
013737
052737
013737
062716
112776
162716
004736

JSR

sol%

000010

020000

001346

040000

001376
001140
001142
001142
000000

001346
020000
001346
000004
000056
000002

10$:

001346

001140

110600

001346
000004
000057
000002

BIT
BNE
MOV
BIC
MOV
ADD
MOVB
SUB

#SK1,RMER2]
118
RMDSI,$GDDAT
#PIP,$BDDAT
RMDSI,$BDDAT
#4, (SP)
#56.3(SP)
#2,(SP)

SuB

#10, (SP)

11$:

032737
001030

000100

001346

010000

001376
001140
001140
001142
000000

BIT

227 053572
228

*REPORT 'PIP'' SET AFTER SEEK

;RESTORE (SP)

#ATA,RMDS

138
PMDSI ,$GDDAT

JSR

PC.a(SP)+

BIS
MOV
ADD
MOVB
SUB
NOP

;WAS "ATA'' SET 22

SYES!!
:EXPECTED STATUS

#ATA!MOL
' DPR ! DRY . SGDDAT
RMDSI,$BDDAT
;RECEIVED STATUS
#4, (SP)
*MOVE (SP) TO ERROR
#57.3(SP)
*LOAD ERROR NUMBER
#2,(SP)
*MOVE SP TO RETURN FOR ERROR

*REPORT ATTENTION NOT SET DURING

*SEEK TEST

#10, (SP)

:RESTORE (SP)

;REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO

13$:

000010
14%:

BIT

BNE
BIT
BNE
MOV
BIS
MOV
ADD
MOVB
su8
JSR
SUB
NOP

#VV,RMDS]

:ISW =0 22

148
#1VC,RMER2]
148
RMDSI,$GDDAT
#VV,S$GDDAT
RMDS],$BDDAT
#4., (SP)
#64,a(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

*NO!!
*1S IvC ALSO 0 ?2?
*NO = IVC IS SET
:EXPECTED STATUS
;RECEIVED STATUS
;ERROR #64
*MOVE SP TO RETURN FOR ERROR
.

:MODIFY L'S.'g RETURN ADDRESS IF AN ERROR WAS DETECTED
ADD

#4, (SP)

:MOVE (SP) TO ERROR CALL

BEQ

15%

*NO!!

ISTB

226 053566

*WAS ''SKI''SET??
*YES=DONT REPORT PIP
:EXPECTED STATUS
;RECEIVED STATUS
*MOVE (SP) TO ERROR
*LOAD ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR

PC.a(SP)+

BNE
MOV

SUB

000010

:#S‘ZPIP“ STILL SET??

*NO!

:REPORT AN ERROR IF '‘ATA'' IS NOT SET

001140
001142
000000

162716
000240

001346
000004
000064
000002

1?£P.RHDSI

BEQ

NOP

001346

;REPORT ERROR VIA USER

#10, (SP)

BIT

JSR

100000

PC,a(SP)+

SEQ 0225

;REPORT AN ERROR IF 'PIP'' IS STIL SET AND SKI NOT SET

000010

001346

053544
218 053550
219 053552
220
221
222 053552

G 2
MACRO Vv03.01 11-APR-80 13:39:53 PAGE 29-3

ADD
BR

a(SP)

#4, (SP)
168

*WAS ERROR CALLED??

*MOVE TO ERROR RETURN

CZRMOAD RMOS/3/2 FCTNL TST 3

SEEK STATUS CHECK SUBROUTINE

229 053574
230 053600
231
232 053602
233

162716
000207
000000

000004

MACRO v03.01 11-APR-80 13:39:53 PAGE 2%-4
H

15%:
16%:

'SuB
RTS

#4,(SP)
PC

sMOVE (SP) TO NO ERROR RETURN
sRETURN

:
3008

.WORD

;ERROR FLAGS

SEQ 0226

CZRMOAO RMOS5/3/2 FCTNL TST 3
N=0VO
NN WN =

CONTROLLER CLEAR SUBROUTINE

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

SEQ 0227 |

CONTROLLER CLEAR SUBROUTINE

;THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS,
sAND DRIVES, THEN SELECTS THE DRIVE.
RETURN HERE IF NO ERROR FUUND
RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

—

PC,CNTCLR
17

RO,=(SP)
R1,-(SP)
ERRVEC,=(SP)

053660
000300
001276
000040
001464
000010

053710

012637

ERRVEC+2,-(SP)

#108 ,ERRVEC
#PR6,ERRVEC+2

$BASE ,RO

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

208

;:PUSH RO ON STACK
;:PUSH R1 ON STACK
2 sPUSH ERRVEC ON STACK
:;PUSH ERRVEC+2 ON STACK
;SETUP FOR BUS TIMEOUT

;RO = UNIBUS ADDRESS

;CLEAR MASSBUS
sGET DEVICE UNDER TEST
sSELECT DEVICE

(SP)+,(SP)+
#4,10(SP)
#7,310(SP)
#2,10(SP)

sADJUST STACK

(SP)+ ,ERRVEC+2
(SP)+ ,ERRVEC
(SP)+,R1
(SP)+ RO

;;POP STACK INTO ERRVEC+2
:;POP STACK INTO ERRVEC
:;POP STACK INTO R1
::POP STACK INTO RO

sMOVE SP TO USER'S ERROR CALL
;WRITE THE ERROR NUMBER
sADJUST SP TO RETURN TO ERROR

CZRMOAO RMOS5/3/2 FCTNL TST 3

J 2
MACRO v03.01 11-APR-80 13:39:53 PAGE 31

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

SEQ 0228

.SBTTL

;THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON

:USED FOLLOWING A CONTROLLER CLEAR OPERATION, I.E., WRITING A 1

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

*STATUS STORED IN THE GET BUFFER.

THIS SUBROUTINE SHOULD ONLY BE

IN BIT

15 OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION.

;STATUS PERTINENT TO THE DEVICE IS NOT CHECKED.

:FOLLOWING STATUS BITS ARE NOT CHECKED:

}}

IN PARTICULAR, THE

ATA,ERR,PIP,MOL ,WRL ,LBT,PGM,VV,OM,UNS, SKI,DVC

14
15
16
17

JCALL:
(1)
:
:

JSR
BR
NOP

PC,CLRSTS
273

JSR

PC,a(SP)+

gg 053722

CLRSTS:

;

24
25 053722
26 053726
27 053732
28
29 053736
30 053744
31 053752
32 053760
33 053766
3% 053770

062716
105076
162716

000004
000000
000004

013737
042737
012737
023737
001413
062716

001334
100000
004200
001140
000004

36 054002

162716

000002

162716

000010

35 053774

112776

000126

37 054006

004736

39 054014
40

000240

42 054022

013737

001340

062716

000004

162716

000002

162716

000010

013737

001344

38 054010

41 054016

005037

43 054030

001413

45 054036

112776

44 054032

46 054044

47 054050

004736

49 054056
50

000240

52 054066
53 054070
54 054072
55 054076
56 054100

010146
005046
013701
111116
052716

48 054052

51 054060

57 054106

012637

001140

000127

001464
000100

001140

001142
001142
001140
001142

000000

ERROR
277

GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

MOVB

#126,a(SP)

*WITE ERROR NUMBER IN CALL

JSR

PC.a(SP)+

*REPORT ERROR VIA USER

SuB

suB

§s:

#2.(SP)

CLR

*MOVE SP BACK TO NO ERROR

$GDDAT

;VERIFY RMBA IS ZERO

:BRANCH IF ZERO

RMBA], SBDDAT

ADD

#4, (SP)

MOVB

*MOVE SP TO RETURN FOR ERROR

#10, (SP)

MOV

BEQ

000000

#127.a(SP)

*MOVE SP TO USER'S ERROR CALL

:WITE ERROR NUMBER IN CALL

suB

#2,(SP)

*MOVE SP TO RETURN FOR ERROR

SuB

#10, (SP)

*MOVE SP BACK TO NO ERROR

JSR

001142

ERROR NUMBER DEFINED BY SUB

;CLEAR USER'S ERROR CALL
ADD
#4, (SP)
:MOVE SP TO ERROR
CLRB
a(SP)
*CLEAR ERROR NUMBER
SuB
#4, (SP)
*MOVE SP BACK TO NO ERROR
;REPORT ERROR IF RMCS1 NOT INITIALIZED
4$:
MOV
RMCS11,$8DDAT
;VERIFY RMCS1
BIC
#SC,SBODAT
*IGNORE SPECIAL CONDITION
MOV
#DVA'RDY,$GDDAT :EXPECT DVA & RDY
cMP
$GDDAT,S8DDAT : COMPARE EXPECTED, RECEIVED
BEQ
13
*BRANCH IF EQUAL
ADD
#4,(SP)
*MOVE SP TO USER'S ERROR CALL

NOP
-REPORT ERROR IF RMBA NOT RESET

001142

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR

PC.a(SP)+

*REPORT ERROR VIA USER

NOP
-REPORT ERROR IF RMCS2 NOT INITIALIZED

7$:

MOV

MOV
CLR
MOV
MOVB
8IS

MOV

RMCS2I ,$8DDAT

R1,=(SP)
-($P)
TSTQUE ,R1
(R1),(SP)
#IR, (SP)

(SPJ+,$GDDAT

:VERIFY RMCS2

2:PUSH R1 ON STACK
:EXPECT IR & UNIT NUMBER
:R1 = ADDRESS OF TEST QUE

CZRMOAO RMOS5/3/2 FCTNL TST 3

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

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

69 054154

73 054176

74 054204

37
013737

737

112776

000004
000131

004
162715

SUB
SUB

000010
001140
001350
040000

162;:152

MOVB
JSR

NOP

9s:

000002

000010

CLR

MOV

BIC

BEQ
ADD

MOVB

su8
JSR
SuB

NOP

D
b
—d
—

000240

22
26

005037
013737

162716

§
§§

17%:

:WITE ERROR NUMBER IN CALL

#MD, SGDDAT
17$

ADD

#4, (SP)

sus

#2,(5P)

SuB

#10, (SP)

#133.a(sP)
PC.a(SP)+

s IGNORE WORD CLOCK, SCT, TRK

;EXPECT WRITE DATA BIT

:COMPARE EXPECTED
AND RECEiVED
:BRANCH IF 0
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

CLR

RI'ECZI $BDDAT

ADD
MOVB
su8
JSR
SuB

#4, (SP)
#135.a(sP)
#2,(5P)
PC.a(SP)+
#10, (SP)

NOP

P
ad
o

b
b
b

$GDDA

MOV

19%

sEXPECT ZEROS

;VERIFY RMECZ2=0

;MOVE SP TO USER'S ERROR CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
:MOVE SP BACK TO NO ERROR

:WITE ERROR NUMBER IN CALL

:REPORT ERROR IF_RMMR2 NOT INITIALIZED-IGNORE RQA,RGB
19%:

MOV
BIC
MOV
cTMP
ADD

MOVB

SUB
JSR
Su8

000010

NOP

001140
001376

:MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER
:MOVE SP BACK TO NO ERROR

#1351.a(sP)

$GDDAT,$BDDAT

BEQ

000004
000136
000002

112776
162716
004736

001374
140000
011777
001140

#2,(SP)
PC.a(SP)+
#10, (SP)

cMP

MOVB

000010

013737
2
012737
023737

054356
54364

000004
000135
000002

*BRANCH IF ZERO
:MOVE SP TO USER'S ERROR CALL

s REPORT AN ERROR IF RPECZ IS NOT RESET

— b

054342

RANISIBIRIRER28

34
99 054340

112776
162716
004736
162716
000240

001140
001402

: IGNORE UNSAFE

13$
#%, (SP)

MIC!LSILST,SBDDAT

NOP

005037
013737

#UNS,SSDDAT

;VERIFY RMER1

BIC

MOV

JSR

95 054320
326

000133
2

8888

90
91 054300
92 054304

112776
162716

$GD

RHER‘II $BDDAT

+REPORT ERROR IF RMMR1 NOT INITIALIZED-IGNORE WC,LS,LST
13%:
MOV
RMMR11,$BDDAT
:VERIFY

BEQ

85 054256
054264
87 054270

(SP)+,R1
::POP STACK INTO R1
$GDDAT,$BDDAT : COMPARE EXPECTED & RECEIVED
9s
*BRANCH IF EQUAL
#4, (SP)
:MOVE SP TO USER'S ERROR CALL
#1350,a(SP)
:WITE ERROR NUMBER IN CALL
#2,(SP)
*MOVE SP TO RETURN FOR ERROR
PC.a(SP)+
*REPORT ERROR VIA USER
#10, (SP)
:MOVE SP BACK TO NO ERROR

; REPORT ERROR IF RHER1 NOT RESET=IGNORE UNS

8888
— —d —

76 054212

162716

000000

N
oo

22054142

000004
000130
000002

MOV
CMP
BEQ
ADD

§ 88

112776

001142

62 054126

001140

SN
N

012601
023737

—

58 054110
59 054112

SEQ 0229

RMMR2I ,$8DDAT :VERIFY RMMR2
#TSTi1777,$GDDAT
+EXPECT TEST BIT ON
3GDDATL, SBODAT

#RQA'RQB, SBDDAT
*

#4, (SP)
#156.a(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

;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 MRZ NOT RESET~-IGNORE SKI,DVC

001142

21$:

CLR

MOV

$GDD

RHERZI $BDDAT

sEXPECT ALL ZEROS

;VERIFY RMERZ2

112776
162716
04736
162715

000010

062716
105776

000004
000000

062716
000402
162716

000004

~
o

#174,3(SP)
#2,(SP)
PC.a(SP)+

000004

)
W

:BRANCH IF OTHER BITS 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 ESCOR IF RMDS NOT INITIALIZED

215$:

RMDSI1 ,$BDDAT

;TEST DRIVE STATUS REGISTER

#*C<DRY !DPR>,SBDDAT

#DPR!DRY,$GDDAT ;EXPECTED DRIVE STATUS
$GDDAT,SBDDAT : COMPARE EXPECTED & RECEIVED

228

000004
000134
000002

)

001140

2158

#10, (SP)

WS N

001345
177177
000600

#SK]1!'DVC,$BDDAT :IGNORE DEVICE ERRORS

#4, (SP)

000010

8888

WNN

023737

BIC

J00000

_—

o
&

23y

383

SVRES
PN

013737
042737

sEE
v

004736
162716
000240

g3.01 11-APR-80 13:39:53 PAGEL 3%-2

001142

000004
000174
000002

p—rs

040200

-y

73
o

[=1=1=]

D e
d
bl —d

~
W

54552
54556
54562
54564
54570

) d

5
54536

D
d d
D e
) D
D
D

7 054514

D i

D d

4 054472
5 054500
0

54544

—

042737

)

—

RIS EBYRRRURISY ng&JNN QRS Voo~

115 054434
116 822442

CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO Vv
CONTROLLER CLEAR STATUS CHECK SUBROUTIN

22%:

*MOVE SP TO USER'S ERROR CALL

#2, (SP)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR TO USER

#134,3(SP)

*WRITE ERROR NUMBER

#10, (SP)

*MOVE SP BACK TO NO ERROR

#4, (SP)
a(sP)

:MOVE SP TO ERROR CALL
*WAS AN ERROE DETECTED??

gtzi(sm

*YES = MOVE TO ERROR RETURN

238

23%:
24%:

*BRANCH IF EQUAL

#4, (SP)

#4, (SP)
PC

*NO!!

;MOVE SP TO NO ERROR RETURN

SEQ 0230 |

CZRMOAQ RMOS5/3/2 FCTNL TST 3

.SBTTL

sCALL:

(1)

PACK ACKNOWLEDGE STATUS CHECK

cd ol o

PC,ACKSTS

JSR

:
:
5

BR
NOP
ERROR

2?7?

JSR

PC,a(SP)+

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

b b

ACKSTS:

;CLEAR USER'S ERROR CALL
ADD
#4,(SP)
CLRB
a(SP)
sus
#4,(SP)

PONIN)

SEQ 0231 |

sTHIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE
sCOMMAND USING THE STATUS STORED IN THE GET BUFFER. ERRORS ARE
;REPORTED TO THE USER VIA THE USER'S ERROR CALL.

d e

N—DBOOVOU‘J\WN—‘OOQVO\AbWN—O

PACK ACKNOWLEDGE STATUS CHECK

MACRO v03.01 11-APR-80 13:39:53 PAGEM 35

sREPORT ANTERRM

23 054616

032737

000100

001346

25 054626
26 054634
27 054642

013737

001346

013737
062 16
112776

000004

001140
001140
001142

BNE
MOV
BIS
MOV

000000

movB

29 054654

162716

004736
162716

001346
000155

000002

#VV,RMD

ADD

#4,

18
RMDS] ,$GDDAT
#VV,S$GDDAT
RMDSI,$BDDAT
(SP)

#155,a(sP)

SUB

#2,(SP)

332

#10, (SP)

JSR

000010

IF 'V\SI'I' IS 0

PC.a(SP)+

;MOVE SP TO ERROR CALL
;CLEAR LOW ORDER BYTE
sMOVE SP BACK

;1S VOLUME VALID SET??

SYES!!
:EXPECTED STATUS

;RECEIVED STATUS

*MOVE SP TO ERROR CALL

:WRITE NUMBER IN ERROR CALL

*MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR

:MOVE SP BACK TO BRANCH

1%:

36
37 054676

032737

010000

001246

39 054706

013737

801346

001140

41 054722

013737

001346

001142

162716

000002

44 054742

46 054750

004736
162716

000004

;REPORT AN ERROR IF 'MOL'' IS 0
8iT
#MOL ,RMDS I
BNE

001140

RMDSI,$GDDAT

MOV

RMDSI,$BDDAT

ADD

SUB
JSR

SUB

2%:
0

MOV

BIS

000010

054756

032737

060007

001350

5 054766
56 054774
57 054776

032737
001424
013737

040000

001350

001142

NOP

#MOL
, $GDDAT

#4, (SP)

#41,3(SP)
#2,(SP)
PC.(SP)+

#10, (SP)

;1S MOL SET??
SYES!!
:EXPECTED STATUS

;RECEIVED STATUS
sMOVE SP TO ERROR CALL

;WRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
sREPORT TH ERROR
:MOVE SP TO BRANCH

sSEE IF "UNS'',"OPI'',"RMR'","'ILR'', OR ''ILF'' IS SET

BIT
BEQ

#UNS‘OPI'RMR'ILR!ILF
,RMER1]
7%

sREPORT AN ERROR IF "UNS'' IS SET

BIT

#UNS ,RMER1]

;JWAS UNS SET??

MOV

RMER1] ,$BDDAT

;RECEIVED STATUS

BEQ

JNO!!

CZRMOAQ RMOS/3/2 FCTNL TST 3

PACK ACKNOWLEDGE STATUS CHECK

58 055004
59 055812
60 055020
61 055024

001350
040000
000004
000042
000002

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

001140
001140
000000

MOV
BIC
ADD
MOVB
suB

#2, (SP)

;EXPECTED STATUS
;MOVE SP TO ERROR CALL
*WRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR

zol%

#10, (SP)

*MOVE SP TO NO ERROR RETURN

JSR

000010

RMER1],$GDDAT
#UNS
, SGDDAT
#4, (SP)
#42,3(SP)
PC.a(SP)+

*REPORT THE ERROR VIA USER

3%:
020000

001350

001350
001350

001142
001140
001140

000002

:REPORT ANY OPI ERROR

BIT

#OPI ,RMER1]

;WAS OPI SET 27

MOV
MOV
BIC
ADD
MOVB
suB

RMER1I,$BDDAT
RMER11,$GDDAT
#OP1,$GDDAT
#6, (SP)
#43.3(SP)
#2,(SP)

:RECEIVED STATUS
:EXPECTED STATUS
:MOVE SP TO ERROR CALL
*WRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR

BEQ

000000

JSR

000010

PC.a(SP)+

#10, (5P)

*NO!!

*REPORT THE ERROR VIA USER

*MOVE SP TO NO ERROR RETURN

4%:

001350
001350 001142
001350 001140
001140
000000

:REPORT ANY RMR ERROR

BIT
BEQ
MOV
MOV
BIC
ADD
MOVB
SUB
JSR

000002

zotg

000010

#RMR,RMER1
X3
RMER1I,$BDDAT
RMER11.SGDDAT
#RMR, SGDDAT
#4, (SP)
#44,3(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

;WAS RMR SET??
*NO!!
:RECEIVED STATUS
:EXPECTED STATUS
: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

5%:

00135¢
001350
000002
000004
000045
000002

RARISIBIRIRERSS

000002

001350
001142
001140
001140

;REPORT ANY

000000

#ILR,RMER1]
6$
RMER1]I,$BDDAT
RMER11.$GDDAT
#ILR,SGDDAT
#4, (SP)
#45.3(SP)
#2,(SP)

;WAS ILR SET??
*NO!!
:RECEIVED STATUS
:EXPECTED STATUS
:MOVE SP TO ERROR CALL
*WRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR

#10, (SP)

*MOVE SP TO NO ERROR RETURN

JSR

000010

ILR ERROR

BIT
BEQ
MOV
MOV
BIC
ADD
MOVB
SuB

PC.a(SP)+

*REPORT THE ERROR VIA USER

6%:

032737
001424
013737
013737

000001

001350
001350

001350
001142
001140

:REPORT ANY

BIT
BEQ
MOV
MOV

ILF ERROR

#ILF ,RMER1]
7%
RMER1I,$8DDAT
RMER11.$GDDAT
b]

;WAS ILF SET??
*NO!!
:RECEIVED STATUS
:EXPECTED STATUS

SEQ 0232 |

€2

CZRMOAQ RMOS5/3/2 FCTNL TST 3

PACK ACKNOWLEDGE STATUS CHECK

115 055312
116 055320
117 0553%3
118 0553
119 055336

120 055340
121 055344
122 055346
123
124
125 055346
126 055352

127 055356
128 055360
129 055364
130 055366
131 055372

}g% 055374

042737
062716
112776
162716
004736

000001
000004
000046
000002

162716
000240

000010

062716
105776
001403
062716
000402
162716
000240
000207

000004
000000

MACRO v03.01 11-APR-80 13:39:53 PAGEB 33-2
001140

BIC
ADD
MOVB

000000

#2,(SP)

#10, (SP)

JSR

PC.a(SP)+

sJMOVE SP TO ERROR CALL
;WRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

;AUGMENT RETURN ADDRESS IF ERROR WAS FOUND

ADD

8%:

9%:

#4, (SP)

;MOVE SP TO ERROR CALL

TSTB

g(sp)

:%.?'smoa F

ADD

#4, (SP)

*YES= MOVE TO ERROR RETURN

BEQ

000004
000004

/ SUB

#ILF ,$GDDAT
#4, (SP)
#46,a(SP)

BR
SuB

9%
#4,(SP)

RTS

NOP

;MOVE SP TO NO ERROR RETURN

SEQ 0233

CZRMOAQ RMOS/3/2 FCTNL TST 3

MACRO v03.01 11-APR-80 13:39:53 PAGEC 3§

= e e

B b b b D bo

wN—lBOQ\JO\hwa—'OOONOmbWN—I

RECALIBRATE STATUS CHECK SUBROUTINE

.SBTTL

RECALIBRATE STATUS CHECK SUBROUTINE

s THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION

;USING THE STATUS STORED IN THE GET BUFFER.

sCALL:

055376
062716

24 055412

032737
001553

25 055420
26

ADD
CLRB
SUB

10507%
162716

022011

000010

001350

42 055512
43

;CLEAR USER'S ERROR CALL
sMOVE SP BACK TO BRANCH

BNE

MOV

RMERTI, SBDDAT

sRECEIVED STATUS

#2,(SP)
PC.a(SP)+
#10, (SP)

;GO REPORT ERROR
sMOVE SP BACK TO BRANCH

ADD

MOvB

suB
SUB

JSR
1%:

000001

#4, (SP)
a(SP)
#4,(SP)

MOV RMER11,S$GDDAT
BIC
#PAR, SGDDAT

NOP

#4,(SP)

BIT

#ILF ,RMER1]

MOV
BIC
MOV
ADD
MOVB
SUB
JSR
SUB

RMER1I,$GDDAT

BEQ

001350
000001
001350
000004
000071
000002

2%:

NOP

JYES = NOT A REGISTER ERROR
JEXPECTED STATUS

:MOVE SP TO USER'S ERROR CALL
#50,a(SP)
;WRITE ERROR NUMBER IN CALL

;REPORT ANY *‘ILF'' ERROR

000010
56 055572
57

PC.,a(SP)+

; CALL SUBROUTINE

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

:REPORT ANY MAS SBUS, CONTROL BUS PARITY ERROR, I.E.,
Z'PARTM = 1 _AND "DPE'* = 0
BIT
#PAR,RMER1
]
;JWAS 'PAR'' SET??
BEQ
18
JNO!!
BIT
#DPE
, RMER2]
;WAS 'DPE’'’ SET??

00C010

47 055522

m”m

;SEE IF 'PAR"' OR "ILF'' OR "OPI'' OR '‘IAE'' IS SET
BIT
2gPI!PAR!ILF!IAE.RFER11
BEQ
sNONE ARE SET = GC TO NEXT CHECK

001350
000010
001350
000004
000050
000002

46 055520

PC,RCLSTS

;CLEAR USER'S ERROR NUMBER

000010

44
45 055512

JSR
BR
NOP
ERROR
JSR
444

RCLSTS:

055376
055402
055406

NNONIN)

SEQ 0234

#ILF ,SGDDAT

RMERTI, $BDDAT
44, (SP)
#71.3(SP)

#2,(SP)
PC.a(SP)+
#10, (SP)

sMOVE SP TO RETURN FOR ERROR

;WAS "ILF'* SET??

sNO!!
;EXPECTED STATUS
sRELEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
sMOVE SP BACK TO BRANCH

MACRO v03.01 11-APR-80 13:39:53 PAGE0 33—1

S O00NON

REPORT ANY 'OPI'" ERROR AS
. OPI DUE TO 'MOL'' = 0
. (PI BECAUSE ON CYLINDER LATCH DIDN'T RESET

BIT

020000

—

001350
020000
001350
000004
000072
010000

RERERRE

\\fl

CZRMOAQ RMOS5/3/2 FCTNL TST 3
RECALIBRATE STATUS CHECK SUBROUTINE

#OPI ,RMER1]

;WAS (PI SET??

$
RMER11,$GDDAT
#OP] ,SGDDAT

NO!!

:EXPECTED STATUS

Rneafi $BDDAT
(P}

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL

flé a(sP)

sWRITE ERFR MI‘BER IN USER'S CALL
fiyleg.'mL
= 0??

m}sLRMDS ]

000073
000002

#73,3(SP)

3%:

:NO = CHANGE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER

#2,(SP)

PC.a(SP)+

#10, (SP)

000010

:MOVE SP BACK TO BRANCH

31s:

JREPORT AN ERROR IF "'TAE'' IS SET

002000

162716
004
162716
000240
9N
92 055750

93 055756

001350
002000
001350
000004
000070
000002

RMER1I,$BDDAT

#70.3(SP)
#2,(SP)

PC.a(SP)+

#10, (SP)

00007

;1S "'IAE'" SET??
“NO!!

*EXPECTED STATUS
sRECEIVED STATUS
sMOVE SP TO ERROR CALL
;WRITE ERROR NUMBER IN USER'S CALL
sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR
sMOVE SP BACK TO NO ERROR RETURN

4%:

050200

001376

;SEE IF "'SKI'* OR "‘IVC'' OR 'DVC'' IS SET
BIT
BEQ

#SKI!IVC!DVC,RMER2I

sNONE OF THE BITS ARE SET

sREPORT ANY “‘IVC'' ERROR AS
IVC WITH W = 0

1 055770
2 055776
056004

010000

001376

001376
010000
001376
000004
000074
000100

001140
001140
001142

000075
000002
o

rARZSIBIRER aoo

#1AE ,RMER11
4%
RMER11,$GDDAT
#IAE ,SGDDAT
#4, (SP)

39K

94
95

032737
001517

BIT

éERR(NEWS IVC ERROR

IT
BEQ

MOV
BIC
MOV
ADD
MOVB

000000
001346
5%:

6%:

RMER2],SGDDAT
#1VC,SGDDAT
Rnenéx $BDDAT
(SP)
m. a(sp)

BIT
BEQ
MOVB

#VV.RMDS]
58

JSR

PC.a(SP)+

suB
SuB

000010

#1VC.RMER2]
6$

NOP

#75.3(SP)

sWAS IVC SET??
JNO!!
JEXPECTED STATUS
JRECEIVED STATUS

sMOVE SP TO USER'S ERROR CALL

\vRITE ERRM M!BER IN CALL

#2,(SP)

'M) - CHANGE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR

#10, (SP)

:MOVE SP BACK TO BRANCH

sREPORT ERROR VIA USER

SEQ 0235

CZRMOAO RMOS5/3/2 FCTNL TST 3

MACRO v03.01 11-APR-80 13:39:53 PAGEE 3§-2

RECALIBRATE STATUS CHECK SUBROUTINE

115

116 056056

032737

040000

001376

118 056066

013737

001376

;REPORT ANY ''SKI'* ERROR

SEQ 0236

BIT

#SKI,RMER2]

001140

MOV

RMER2I ,$GDDAT

:EXPECTED STATUS

120 055102 013737 001376 001142
121 056110 062716 000004

MOV
ADD

RMERS],$BDDAT
#4, (SP)

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

123 056122

su8

#2,(SP)

*MOVE SP TO RETURN FOR ERROR

117 056064

119 056074

001424

042737

122 056114

112776

124 056126

004736

040000

000076

162716 000002

001140

BIC

000000

MOVB
JSR

125 056130 162716 000010
126 056134 000240

}gg 056136

129

BEQ

78:

130 056136

032737

000200

001376

132 056146

013737

001376

suB
NOP

#SK]1,$GDDAT

#76,3(SP)

PC.a(SP)+

#10, (SP)

:REPORT ANY ‘DVC'' ERROR

;WAS SKI SET??

*NO!!

*WRITE ERROR NUMBER

*REPORT ERROR VIA USER

*MOVE SP TO BRANCH

BIT

#DVC ,RMER2]

;WAS ‘DVC'*

001140

MOV

RMER2I ,$GDDAT

:EXPECTED STATUS

134 056162 013737 001376

001142

MOV

RMER2] ,$BDDAT

136 056174

000000

MOVB

131 056144

133 056154

001424

042737

000200

135 056170

062716

000004

137 056202

162716

000002

112776

138 056206

004736

140 056214

000240

139 056210

}25 056216
143

144 056216
145 056222

146 056226
147 056232
148 056234

}ts.g 056240
151
152

153 056240
154 056246
155 056250

162716

000077

BIC

ADD

022726
001002
000137

110100

#DVC, SGDDAT

*NO!!

SET??

;RECEIVED STATUS

#4,(SP)

sMOVE SP TO USER'S ERROR CALL

suB

#2,(SP)

*MOVE SP TO RETURN FOR ERROR

suB

#10, (SP)

JSR

8$:
001346

032737
001030
032737

001140

000010

013746

042716

BEQ

NOP

#77.3(SP)
PC.a(SP)+

*WRITE ERROR NUMBER

*REPORT ERROR VIA USER

*MOVE SP TO USER'S BRANCH

;SEE IF "PIP'* AND "OM'' ARE 0, AND "'ATA'","MOL'' AND ‘VV'' ARE 1

047676

MOV

RMDSI ,~(SP)

cTMP
BNE
JMP

#ATA!MOL
'V, (SP)+
85%
138

BIC

056650

85$:

010000

001346

020000

001350

:PUT RMDS ON STACK

#~C<PIP'MOL'VV'OM!ATA>,
(SP)

;REPORT AN ERROR IF MOL = O AND OPI = 0, I.E., MEDIUM WENT OFF
:LINE AFTER RECALIBRATE WAS INITIATED

BIT
BNE
BIT

#MOL , RMDS I
9
#OPI ,RMER1]

BIS

#MOL
, SGDDAT

:DID MOL DROP??
*NO!!
*WAS OPI ERROR REPORTED??

156 056256 001024
157 056260 013737 001346

001140

BNE
MOV

159 056274
160 056302

013737
062716

001346
000004

001142

MOV
ADD

RMDSI,$BDDAT
:RECEIVED STATUS
#4,(SP) :MOVE SP'TO USER'S ERROR CALL

162 056314

162716

000002

SUB

#2,(SP)

*MOVE SP TO RETURN FOR ERROR

162716

000010

SuB

#10, (5P)

“MOVE SP BACK TO USER'S BRANCH

158 056266
161 056306

052737
112776

163 056320

004736

165 056326

000240

164 056322

}gg 056330

168

010000
000100

001140
000000

JSR

98:

169 056330

032737

000100

001346

171 056340

032737

010000

001376

170 056336

001030

movB

NOP

9
RMDSI,$GDDAT

#100,a(sP)
PC.a(SP)+

*YES = DON'T REPORT MOL=0
:EXPECTED STATUS
;WRITE ERROR NUMBER

*REPORT ERROR VIA USER

;REPORT AN ERROR IF "WV'' = 0 AND ““IVC'* = 0
BIT

#VV,RMDS

BIT

#1VC,RMER2]

BNE

108

:DID ''VV'' DROP??

*NO!!

*WAS THERE A IVC ERROR??

MACRO v03.01 11-APR-80 13:39:53 PAGE 33-3
F

108
RMDSI ,$GDDAT

) D

D e

—

S BLRREC28BRIR SRAR2BIFIIFININ

CZRMOAOQ RMOS5/3/2 FCTNL TST 3
RECAL BRATE STATUS CHECK SUBROUTINE

;MOVE SP TO USER'S ERROR CALL

#2.,(SP)

*MOVE SP TO RETURN FOR ERROR

i
D D el e e

PC.a(SP)+

#10, (SP)

:RECEIVED STATUS

*WRITE ERROR NUMBER IN CALL

:MOVE SP BACK TO USER'S BRANCH

108:

032737
001024
013737
737

001346

;REPORT AN ERROR IF ATA IS NOT SET
BIT

001140
001140
001142

D cd D ol e

;YES = DONT REPORT vv=0
;EXPECTED STATUS

RMDS] ,$BDDAT
#VV, SGDDAT
#4,(SP)

#101,a(sP)

fi;A.RN)SI

:%gtem SET DURING RECAL IBRATE??

RMDSI,SGDDAT

:EXPECTED STATUS

#ATA, $GDDAT

RMDS] ,$BDDAT
#4,

(SP)

D d e

#102,a(sP)
#2.(5P)

PC.a(SP)+

#10, (SP)

;RECEIVED STATUS

*MOVE SP TO USER'S ERROR CALL

:WRITE ERROR NUMBER IN CALL

:MOVE SP TO USER'S BRANCH

—

118:

;REPORT AN ERROR IF "OM'‘ IS NOT ZERO BECAUSE RECALIBRATE SHOULD
001346

sALWAYS CLEAR OFFSET MODE

#OM,RMDS I
12%

001140
001140
001142

RMDSI,$GDDAT
#OM, SGDDAT
RMDSI,$BDDAT

:EXPECTED STATUS
;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

#2,(SP)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

#10, (SP)

2 056560

;WAS 'OM'* RESET??

SYES!!

(SP)

#4,

#103,a(SP)

:WRITE ERROR NUMBER

*MOVE SP TO USER'S BRANCH

12%:

;REPORT AN ERROR IF "PIP'' IS STIL ON, I.E., DRIVE NOT ON
s CYLINDER

020000

001346

040000

001376

#SK1,RMER2]

001346

001140
001140
001142

#P1P, $GDDAT

001346
000004
000104
000002
227 056642
228 056646

SEQ 0237

000010

BIT

ggp.msx

.-'{ls)‘qmvs OFF

CYLINDER??

*WAS *'SKI'* DETECTED??

138
RMDSI,$GDDAT

*YES-DONT REPORT 'PIP'*
:EXPECTED STATUS

RMDS],$BDDAT

;RECEIVED STATUS

#104,a(SP)

;WRITE ERROR NUMBER

#4, (SP)

;MOVE SP TO USER'S ERROR CALL

#2.(SP)
PC.a(SP)+

#10, (SP)

*MOVE SP TO RETURN FOR ERROR

:MOVE SP BACK TO USER'S BRANCH

MACRO v03.01 11-APR-80 13:39:53 PAGE9 3%-4

CZRMOAQ RMOS5/3/2 FCTNL TST 3
RECALIBRATE STATUS CHECK SUBROUTINE

13%:

032737
001514

040006

032737

000002

240
04
241 056712
242 056716
243 056724
244 056730
245 056732
246 056736
247 056740
248
249
250 056740
251 056746
252 056750

;REPORT SN ERROR IF "'ILR'' IS SET
IT
BEQ

#ILR,PMER1]
148

;WAS ILR SET DURING RECALIBRATE??
*NO!!

001350
000002
001350
000004
000105
000002

MOV
BIC
MOV
ADD
mov8
SUB

RMER 11,$GDDAT ;EXPECTED STATUS
#ILR,SGDDAT
RMER1]1,$BDDAT ;RECEIVED STATUS
#4,(SPS ;MOVE SP’TO USER'S ERROR CALL
#105,a(sP)
;WRITE ERROR NUMBER IN CALL
#2,(SP)
*MOVE SP TO RETURN FOR ERROR

000010

Sol.;

#10, (SP)

JSR

PC.a(SP)+

;MOVE SP TO USER'S BRANCH

14%:

001350
001350
000004
001350
000004
000106
000002

sREPORT AN ERROR IF 'RMR'' IS SET
T

001140
001140
001142

#RMR ,RMER11

15$%

RMER1],$GDDAT

“NO'!

;EXPECTED STATUS
;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

#2,(SP)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

#106,a(SP)

#10, (SP)

000010

;WAS RMR SET??

*NO!!

#RMR, $GDDAT
RMER1I,$BDDAT
#4, (SP}

*WRITE ERROR NUMBER IN USER'S CALL

*MOVE SP TO USER'S BRANCH

15%:

032737
001430
032737

040000

001350

000200

001376

001350
040000
001350
000004
000107
000002

001140

;REPORT AN ERROR IF "UNS'' IS SET AND 'DVC'' IS 0
BIT
BEQ

ftéts«s,memx
#DVC,RMER2]
16$

RMER1],8GDDAT
#UNS
, SGDDAT
RMER11,$BDDAT

001140
001142

#4, (SP)
#107,a(sP)
#2,(SP)
PC.a(SP)+

#10, (SP)

000010

:w.mws ON??
*WAS THERE A DEVICE CHECK??
*YES - DON'T REPORT UNSAFE

:EXPECTED STATUS
;RECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

*MOVE SP BACK TO USER'S BRANCH

16%:

JAUGMENT Tiz RETURN ADDRESS IF ANY ERROR WAS DETECTED

000402
162716

17%:

ADD
TSTB
BEQ
ADD
BR
suB

s,
4, (SP)

a(SP)
$
fgi(SP)
~

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

;SEE IF "'ILR"' OR 'RMR'' OR "UNS'' IS SET
#ILR!RMR!UNS ,RMER1]
BIT
16%
BEQ

229 056650
230
231
232 056650
233 056656

#4,(SP)

sMOVE SP TO USER'S ERROR CALL

:UA§'AN ERROR REPORTED??
:NO!!
;YES = AUGMENT SP RETURN

;NO ERROR = RETURN SP TO BRANCH

SEQ 0238

CZRMOAQC RMOS/3/2 FCTNL TST 3

MACRO v03.01 11-APR-80 13:39:53 PAGE 3%-5
H

RECALIBRATE STATUS CHECK SUBROUTINE

286 057134
%gg 057136

000240
000207

18%:

NOP

RTS

;STATUS CECK IS COMPLETE

SEQ 0239

CZRMOAQO RMOS5/3/2 FCTNL TST 3

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

SEQ 0240

DRIVE CLEAR STATUS CHECK SUBROUTINE

ERROR

:
3

&& 4

D —D
D

SO
o

—_—

—

013737
042737

BEQ

162716
004
162716
000240

RETURN HERE IF NO MORE ERRORS

001140

001350

:BRANCH IF EQUAL
:MOVE SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL

suB

#10, (SP)

MOV

: CHECK RMDS
:CLEAR DONT CARES
#MOL !DPR!DRY ,SGDDAT
sEXPECT DRY & DPR
$GDDAT, SBDDAT
s COMPARE EXPECTED & RECEIVED
6$
;BRANCH IF EQUAL
#4, (SP)
¢sMOVE SP TO ERROR CALL
#142,a8(SP)
sWRITE NUMBER OF ERROR IN CALL
#2,(SP)
¢MOVE SP TO RETURN FOR ERROR
PC.a(SP)+
;REPORT THE ERROR VIA USER
#10, (SP)
sMOVE SP TO NO ERROR RETURN

BIC

suB
JSR
suB

PC.3(SP)+

:MOVE SP TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER
sMOVE SP TO NO ERROR ScTURN

NOP

RMDSI , SBDDAT

#PGM!OM!VV!PIP, SBDDAT

él;EPORT ERROR IF WR‘I NOT INITIALIZED
001142

000004
000143
000002

CLR
MOV
BEQ
ADD

$GDDAT
RMER11,$BDDAT
8s
#4,(SP)

T 0'S
CHECK RMER1
:BRANCH IF EQUAL
:MOVE SP TO FRROR CALL

suB

#2,(5P)

:MOVE SP TO RETURN FOR ERROR
:REPORT THE ERROR VIA USER

MovB
JSR

000010

001352

a(sP)

#4, (SP)
#141,a(SP)
#2,(SP)

MOV
CMP
BEQ
ADD
MOvB

—_——
)

§s:

SN
o

013737

#4,(SP)

NOP
;REPORT ERROR IF RMDS NOT INITIALIZED

000010

57 057406

ERROR NUMBER DEF INED BY SuB
GO BACK TO SUB FOR MORE ERROR CHECKS

ADD
MovB
SuB
JSR

8888

24 057224
25 057226
26 057232
27
28 057234

PC,a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR

sMOVE SP TO ERROR CALL
:CLEAR ERROR CALL
SuB
#4,(SP)
;MOVE SP TO USER'S BRANCH
l:.l;EPORT ERROR IF RMCS1 NOT INITIALIZED
MOV
RMCS11,$B8DDAT
; CHECK RMCS1
BIC
#-C<DVA'!FNCMSK>,SBDDAT ;CLEAR DONT CARES
MOV
#DVA!DRVCLR, SGDDAT
:EXPECT DVA
CMP
2SGDDAT ,$BDDAT
s COMPARE EXPECTED & RECEIVED

CLRB

105076
162716

3388

D =D
)
D
)

JSR

;CLEAR USER S ERROR CALL

062716

—

) e

NOP

DRVSTS:

)

VONOWVNSWN=O V00NN

.SBTTL

DRIVE CLEAR STATUS CHECK SUBROUTINE

001142

#143,3(SP)
PC.a(SP)+

SUB

#10, (SP)

MOV

RMAS], SBDDAT

;WRITE NUMBER OF ERROR IN CALL
sMOVE SP TO NO ERROR RETURN

NOP
; REPORT ERROR IF ATA NOT INITIALIZED

8s:

CHECK ATTENTION BIT
;PUSH R1 ON STACK

.':PUSH R2 ON STACK

001464
000001
177400

8IC

IECATMSK.R2

001142

BIC

R2,$BDDAT

C2
ST

CZRMOAQ RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 34~1
DRIVE CLEAR STATUS CHECK SUBROUTINE

000144
000002

001360

112776

604
91 057610
g% 057612

004736
162716
000240
005037

000004
000146
000002

001140

9 057616

013737

001402

112776
162716
004736
162716
000240

000150
000002

013737
001413
062716
112776
162716
004736
162716
000240

001376

97 057632
98 057640
9
100 057646
101 057652
102
103 057654
104 057662
105 057664
106 057670
107 057676
108 057702
109 057704
110 057710
111 057712
112
113 057712
114

87 057570

118%:

MOV
CMP
BEQ

#MJD
, SGDDA
mwmwuwmn
118

#4, (SP)

suB

#2,(5P)

000010

BIC

cTMP
BEQ

#145,a(SP)
PC.a(SP)+

#10, (SP)

:REPORT THE ERROR VIA USER

sMOVE SP TO NO ERROR RETURN
: CHECK RMMR
;CLEAR DONT CARES
;EXPECT WRITE DATA ON
s COMPARE EXPECTED AND RECEIVED

:BRANCH IF ZERO
sMOVE SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

#RQA'RQB, SBDDAT :CLEAR REQA, REQS
#TSTI1777,
;EXPECT TEST BIT ON
$GDDAT
, SBODAT
: COMPARE EXPECTED & RECEIVED
158
:BRANCH IF EQUAL

ADD

#4, (SP)

SuB

#10, (SP)

MOVB
su8
JSR
15%:

000004

:MOVE SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL
:MOVE SP_TO RETURN FOR ERROR

MIC'LSTLST, seooAr

ADD

MOV

000010

001142

sBRANCH IF ATTENTION CLEARED

sREPORT ERROR IF RMMR2 NOT INITIALIZED
MOV
RMMR2] , SBDDAT ;CHECK RMMRZ2

140000
011777
001140

RMMR11 SBDDAT

MOVB

042737
012737
023737

82 057540
83 057546
84 057554

b cab

001374

#10, (SP)

MOV

BIC

NOP

013737

#144,a(SP)

::POP STACK INTO R2
s :POP_STACK INTO R1
:1S ATTENTION CLEARED??

:REPORT ERROR IF RMMR1 NOT INITIALIZED

9s:

SuB

80
81 057532

#2,(SP)
PC.a(SP)+

JSR

b o

000010

$BDDAT

suB
JSR

NOP

3888

78 057524

004736
162716

(SP)+.R1

9s
#4, (SP)

SUB

000010

(SP)+,R2

BEQ
ADD

MOVB

SO
o

013737
042737

000004

69 057452
70
057460

001142

g
g

112776
162716
004736
162716
000240

MOV

—
—d

63 057430
64 057436
65 057442
66 057444
gg 057450

MOV

— b
—d

012602
012601
005737

8888

58 057412
59 057414
60 057416

NOP

#146,a(SP)
#2,(5P)
PC.a(SP)+

:MOVE SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

CLR
$GDDAT
;EXPECT ZEROS
;JREPORT ERROR IF RMEC2 NOT RESET’
MOV
RMEC21,$BDDAT
;CHECK RMEC2
BEQ
17%
:BRANCH IF 0
ADD
#4, (SP)
:MOVE SP TO ERROR CALL
MOVB
w1$o a(sSP)
;WRITE NUMBER OF ERROR IN CALL
SUB
#2,(SP)
sMOVE SP TO RETURN FOR ERROR
JSR
PC.a(SP)+
sREPORT THE ERROR VIA USER
SuB
#10, (SP)
sMOVE SP TO NO ERROR RETURN
NOP

001142

:REPORT ERROR IF RMER2 NOT RESET

178:

000004
000147
000002

MOV

RMER2I , SBDDAT

ADD

#4, (SP)

suB
JSR

#2,(SP)
PC.a(SP)+

BEQ

MOVB

SUB

000010
18%:

19%:

NOP

#147,a(SP)

#10, (SP)

sCHECK RMER2

:BRANCH IF NO ERROR

:MOVE SP TO ERROR CALL

;WRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

SEQ 0241

CZRMOAQ RMOS5/3/2 FCTNL TST 3

MACRO v03.01 11-APR-80 13:39:53 PAGE 34<2
LEAR STATUS CHECK SUBROUTINE

» WN-‘SOO NoOwn

DRIVE

—

D nd

—_—

) i

062716
105776
001403
062716
000402
57740

000004
000000

sAUGMENT RETURN ADDRESS IF ANY ERROR WAS FOUND

ADD

TSTB

000004

218:
23%:

#4, (SP)

a($P)

sMOVE SP TO ERROR CALL

:WAS AN ERROR DETECTED??

BEQ
ADD
BR

22?(5»
%)s- MOVE SP TO ERROR RETURN
52?(59) :MOVE SP BACK TO NO ERROR RETURN

RTS

SuB
NOP

;RETURN TO USER

SEQ 0242

CZRMOAQ RMOS5/3/2 FCTNL TST 3

MACRO v03.01 11-APR-80 13:39:53 PAGEL 3?

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

SEQ 0243

.SBTTL

;THIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER COMMANDS

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

:USING STATUS STORED IN THE GET BUFFER AND TEST PARAMETERS

:STORED IN THE PUT BUFFER.

ERRORS ARE REPORTED BY WRITING

:THE ERROR NUMBER IN THE USERS ERROR CALL.

5
9

;USER'S swaourme CALL:
(1)
JSR
pc DTASTS

10
1

(2)
:(3

12
13

:(4)
2(5)

}g 057742

DTASTS:

20 057742

062716

000004

22 057752
g:z 057756

162716
005037

000004
063336

21 057746

105076

ERROR
JSR
22

000000

:MOVE SP TO USER'S ERROR

SUB
CLR

#4, (SP)
5008

*RESTORE SP TO NO ERROR
:CLEAR ERROR FLAGS

29 057772

013737 001334

020000

001140

MOV

31 060006
32 060014

042737

013737 001334
062716 000004

001142

3% 060026

112776

162716

000013

MOV
ADD

36 060034

gg 060036
39
40
41 060036
42 060044

004736

000002

032737
001435

001350

000010

001376

47 060072
48 060100

013737
062716

001350
000004

S0 060112

032737

001000

52 060122

112776

000274

51 060120 001003
53 060130

54 060134

gg 060136
57

000000

000010

001350

112776

162716
004736

000425

BIC

000010

000050

*CLEAR LOW ORDER BYTE OF TRAP

000002

RMCS11,$GDDAT

AMCPE,$GDDAT

RMCSTI,$BDDAT
#4, (SP)

#15.3(SP)

JSR

PC.a(SP)+

B8R

#2, (SP)

308

;WAS THERE A PARITY ERROR??
*NO!!

:EXPECTED STATUS

:RECEIVED STATUS
nove 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,
:1.E., PAR= 1 AND DPE
= 0
BIT
#PAR,RMER11
;WAS THERE A PARITY ERROR??
BEQ
208
*NO!!

001140

BIT
BNE
MOV

#DPE ,RMER2]
208
RMER11,$GDDAT

mm PARITY ERROR ?
SYES!!
:EXPECTED STATUS

MOV
ADD

RMERTI,$BDDAT
#4, (SP)

;RECEIVED STATUS
:MOVE SP TO USER'S ERROR

AMXF ,RMCS21

:DID MXF GET SET??

BIC

001142
000000
001344

000000

MMCPE,RMCS1I
108

MOVB

suB

108:

032737
001031
013737

042737

BIT
BEQ

001140

000466

43 060046
4% 0600564
45 060056
49 060106

a(SP)

;}E?omnzgz ca1m0|. BUS PARITY ERROR WHILE READING REMOTE REGISTERS,

001334

35 060032

SUB RETURNS HERE AFTER ALL

ERRORS ARE REPORTED

#4, (SP)

CLRB

020000

33 060020

SUB WRITES ERROR NUMBER
USER RETURNS FOR MORE CHECKS

ADD

032737
001422

30 060000

PC,a(SP)+

RETURN HERE IF NO DATA ERRORS
RETURN HERE TO REPORT AN ERROR

;CLEAR USER'S ERROR CALL AND ERROR FLAGS

27 057762
28 057770

BR
NOP

MOvB

#50.3(SP)

BNE

15$

BIT

158:

#PAR, SGDDAT

MOVB

SUB
JSR

#274.a(SP)

#2,(SP)
PC.a(SP)+

308

*WRITE ERROR NUMBER

YES!!

NO - CHANGE ERROR NUMBER

*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

;LOOK FOR ANY ERRORS WHICH MAY HAVE OCCURRED DURING COMMAND INITIATION OR

CZRMOAD RMO5/3/2 FCTNL TST 3

MACRO VO3. 01 11-APR-80 13:39:53 PAGE32 1

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

;MECHANICAL POSITIONING

60
8 auboes

sFIRST mgsr MXF WHICH WOULD INDICATE COMPOSITE ERROR SET WHEN FUNCTION
cooe
GO BIT WERE LOADED

63 060140 032737

001000

001344

BIT

65 060150 013737 001344

001140

MOV

67 060164 013737 001344
68 060172 062716 000004

001142

MOV
ADD

64 060146

001425

66 060156

042737

001000

BEQ

001140

69 060176 112776 000275 000000
70 060204

71 060210

;32 060212
7%

75 060212
;9 060216

162716

004736

162716
000137

000002

408

RMCS21,$GDDAT

BIC

#MXF ,SGDDAT

MOVB

0275a(sP)

JSR

PC.a(SP)+

suB

308:

AMXF ,RMCS21

;WAS 'MISSED TRANSFER'® SET??

*NO!!

;EXPECTED STATUS

mcséx $BDDAT
SP)

:;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

#2,(5P)

*MOVE SP TO RETURN IF ERROR

*WRITE ERROR NUMBER

*REPORT ERROR AND RETURN

;RESTORE SP TO NO ERROR RETURN AND BYPASS FURMTER sTATus CHECKING

000010
063310

SUB
JMP

#10,(SP)
380$

:MOVE SP TO NO ERROR
:SKIP TO END OF SuB

;g 060222

408:

;REPORT AN ERROR IF ''OPI'* ERROR OCCURRED DUE TO ‘MOL'' = 0, OR IF ‘OPI'’

m"&"MOL'* ARE SET, BUT "W'' IS RESET, INDICATING AN INTERMITTENT

83 060222

032737

020000

001350

BIT

#OPI,RMER1]

;IS "OPI'* SET??

85 060232

013737 001350

001140

MOV

RMER1] ,$GDDAT

:EXPECTED STATUS

87 060246
88 06025¢

013737 001350 001142
032737 010000 001346

MOV
BIT

RMERTI.SBDDAT
#MOL , RMDS I

;RECEIVED STATUS
:WAS MEDIUM OFF LINE??

508

*NO!!

84 060230
86 060240

89 060262
060264

91 060272

92 060274

93 060300

001447

042737

020000

001404
032737

000100

062716

000004

001013

112776

9% 060306 162716
95 060312 004736
9% 060314 162716
97 060220 000413

000276

000002

001140

102 060322

000000

508 :

062716

000004

162716

000002

162716

000010

004736

107 060346

000240

}% 060350
110

BNE
ADD

MOVB

suB
JSR
SuB
BR

#OP] ,SGDDAT

45%
#VV,RMDS]

¥4, (SP)

#276,a(SP)

#2,(SP)
PC.a(SP)+
#10, (SP)
608

*NO!!

:YES!!
ms "MOL'* INTERMITTENT??

*MOVE SP TO USER'S ERROR CALL

*WRITE ERROR NUMBER IN CALL

:MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN
:RESTORE SP TO NO ERROR

ADD

MOVB

wz?ra(sm

JSR

PC.a(SP)+

suB

608 :

032737

010000

001376

114 060360

013737

001376

001140

001432

“"RUN'" TIMEOUT (20 ns> oa SEARCH TIMEOUT (50 MS

SUB

111 060350

112 060356
113

458:

608

;REPORT "OPI'' ERROR, WHICH IS DUE_TO "N cvuwen" NOT DROPPING OR

105 060340

106 060342

BEQ
BIT

000010

103 060326 112776 000277 000000
104 060334

BIC

001346

g 060322
100
101

BEQ

NOP

;MOVE SP TO usea S ERROR CALL

*WRITE ERROR NUMBER IN CALL

#2,(SP)

*MOVE SP TO RETURN IF ERROR

#10, (SP)

*RESTORE SP TO NO ERROR

*REPORT ERROR AND RETURN

;LOOK FOR ‘'IVC'' ERROR DURING COMMAND INITIATION

BIT

#1VC,RMER2]

;WAS THERE AN '‘IVC'* ERROR??

MOV

RMER2I ,$GDDAT

;EXPECTED STATUS

BEQ
708
*NO!!
;REPORT "'IVC'* ERROR DUE TO ‘VV'' = 0, OR REPORT ERRONEOUS ‘‘IVC'' ERROR

SEQ 0244

‘

115 060366

042737

010000

001140

BIC

116 060374 013737 001376 001142
117 060402 062716 000004

MOV
ADD

120 060422
121 060426
122 060432
123 060436

BEQ
MOVB
SUB
JSR

118 060406 112776 000300 000000
119 060414 032737 000100 001346
001403
112776
162716
004736

000301
000002

000000

124 060440 162716 000010
;gz 060444
127
128 060444
129 060452

032737
001510

000007

658:

708 :
001350

130
131 060454 032737 000002 001350
135 060462 001424
133 060464 013737 001350 001140
134 060472

042737

000002

001140

137 060512

112776

000302

000000

139 0605264

004736

141 060532

000240

mov8e
8IT

RMERZ] ,$BDDAT
#4, (SP)
#300,a(sP)
#VV,RMDS ]

su8

#10, (SP)

BEQ

808

BIC

#ILR, $GDDAT

MOvB

#302.a(sP)

MOV

138 060520

SUB

}25 060534
144

162716

JSR

000010

suB

NOP

145 060534 032737 000001 001350
146 060542 001424
147 060544 013737 001350 001140

*NO'!!
*CHANGE ERROR NUMBER
:MOVE SP TO RETURN IF ERROR
*REPORT *‘IVC'* ERROR AND RETURN

*RESTORE SP TO NO ERROR

:REPORT AN ERROR IF "'ILR'' IS SET
e
BIT
#I1LR,RMER11
;WAS "ILR'* DETECTED??
MOV
ADD

140 060526

65$
#301,a(SP)
#2,(SP)
PC.a(SP)+

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR
*WRITE ERROR NUMBER IN CALL
*WAS VOLUME VALID??

;SEE IF "'ILF'' OR 'RMR'’' IS SET
BIT
#ILR'ILF 'RMR, RMER1I
BEQ
1008~
;NO ERRORS DETECTED

135 060500 013737 001350 001142
136 060
062716 000004

162716 000002

#1VC,$GDDAT

RMER1I,$GDDAT

*NO!!

;EXPECTED STATUS

RMERTI,$BDDAT
#4, (SP)

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

#2,(SP)

*MOVE SP TO RETURN IF ERROR

PC.a(SP)+

#10, (SP)

*WRITE ERROR NUMBER IN CALL
*REPORT ERROR AND RETURN

*RESTORE SP TO NO ERROR

808 :
;REPORT AN ERROR IF "'ILF'' IS SET
BIT
BEQ
MOV

#ILF ,RMER1]
:WAS "'ILF'* DETECTED??
90$
*NO!!
RMER11,SGDDAT : _XPECTED STATUS

149 060560 013737 001350 001142
150 060566 062716 000004

MOV
ADD

RMERTI,$BDDAT
#4, (SP)

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

152 060600

SUB

#2,(SP)

*MOVE SP TO RETURN IF ERROR

148 060552

042737

000001

001140

151 060572

112776

000303

000000

153 060604

004736

155 060612

000240

162716 000002

BIC

move
JSR

154 060606 162716 000010

}gg 060614

SUB

908 :

158

159 060614 032737 000004 001350
160 060622 001424
161 060624 013737 001350 001140

NOP

#ILF .SGDDAT

#303,a(sP)
PC.a(SP)+

#10, (SP)

;REPORT AN ERROR IF "RMR'' IS SET

*WRITE ERROR NUMBER IN CALL
*REPORT ERORR AND RETURN

*RESTORE SP TO NO ERROR

BIT
BEQ
MOV

#RMR ,RMER1
1008
RMER11,$GDDAT

;' IAS "RMR'* DETECTED??
INO!!
:EXPECTED STATUS

163 060640 013737 001350 001142
164 060646 062716 000004
.

MOV
ADD

RMERTI, $BDDAT
#4, (SP)

;RECEIVED STATUS
“MOVE SP TO USER'S ERROR CALL

166 060660

SUB

#2, (SP)

:MOVE SP TO RETURN IF ERROR

162 060632

165 060652

042737

000004

(01140

112776

000304

000000

162716 000002

167 060664

004736

169 060672
170 060674
171

000240

168 060666

162716 000010

BIC

MOvB
JSR

SUB

#RMR, $GDDAT

#304.a(SP)
PC.a(SP)+

#10, (SP)

*WRITE ERROR NUMBER IN CALL
*REPORT ERROR AND RETURN

*RESTORE SP TO NO ERROR

1008:
:DETERMINE WHETHER OR NOT ''IAE'' SHOULD BE SET AND CHECK FOR ERROR

SEQ 0245 |

—

MACRO v03.01 11-APR-80 13:39:53 PAGE 32-2
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE
CZRMOAD RMOS5/3/2 FCTNL TST 3

CZRMOAQ RMOS5/3/2 FCTNL TST 3

MACRO VO3

.01 11-APR-80 13:39:53 PAGg 35-3
4

DATA TRANSFER COMMAND STATUS CHECK SUBROU TINE

172 060674
173
060702
174 060710
175 060716
176 060720

040000

123727

001416

000035

010000

001442
000037

002000
040000
001444

};g 060
123737
179 060;%2 101016 001417

180
181 060736
182 060744
183 060746
184 060754
185 060756
186 060764
187 060766
188
189 060772
190 061000
191 061006
192 061014
193 061016
194 061024
195 061026
196 061032
197 061040
198 061044
199 061046

200 061052

201
202

001140
063336
001,66
063336
001333

01 2;%7
052737
023727
101 %S
042737

001416

001140
001350
175777
001140
040000
000004
000305
000002

001142

000000

000010

me.gsoon
sSETUP FOR ''IAE'' = 1
#5K1,5008
;SETUP FOR ''SKI'' = 1
RMDCO,#822.
;GREATER THAN LAST CYLINDER ?
1108
sYES = CYLINDER IS INVALID
#5K1,5008
;RESET SKI FLAG
RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRACK ?
1108
;YES = TRACK IS INVALID
RMDAO,#29.
;1S SECTOR > 29. ?

BIT
BEQ
CMP8
BHI

#EMT16,RMOFO
RMDAO,#31.
1108
$GDDAT

;18 BIT FORMAT ?
;YES = SECTOR_IS INVALID FOR 18 BIT MODE
;1S SECTOR > 31, ?
;YES = SECTOR IS INVALID
;"'IAE"" SHOULD = 0

MOV

RMER1I, $BDDAT

;GET RECEIVED STATUS

BLOS

1058:

001142
001142
063336

MOV
BIS
CMP
BHI
BIC
CMPB
BHI
CMPB

1108:

1158:

120%:

CLR

BIC
CMP
BNE
BIC
B8R
ADD
MOVB
suB
JSR
SuB

001376
137777
063336
137777
040000

001140

MOV

001376

040000

063336

000004
000306
000002

000000

221 061150
222 061156

040000

063336

000004
000307
000002

000000

220

‘

223 061160
224 061164
225 061172
226 061176
227 061200
228 061204

1108

#*C JAE , SBDDAT
$GDDAT
. SBDDAT
1158
#SK1,5008
1208
#4, (SP)
#305.a(sP)
#2,(SP)
PC.a(SP)+
#10, (SP)

:NO

;1S "'IAE'" STATUS 0K??
sNO!!

;IAE OK = SKI SHOULD BE 0

sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR

sREPORT ERROR AND RETURN

sMOVE SP TO NO ERROR

sREPORT A’SVERRM IF "'SKI'" IS SET AND ‘‘IAE'' STATUS WAS 0K

203 061052
204 061060
205 061066
206 061074
207 061102
208 061110
209 061112
210 061120
211 061122
212 061126
213 061134
214 061140
215 061142
216 061146
217
218 061150
219

001142
001142

1058

001140

BIC

RMER2]I , SBDDAT
#~CSKI .SBDDAT

BIC

#ACSKI,SGDDAT

5008, SGDDAT

;EXPECTED STATUS

BIT

#SK1,RMER2]

;WAS *'SKI'* SET??

BIT
BNE
ADD
MOVB
SuB
JSR
SUB
BR

#SK1,5008
1508
#4, (SP)
#306,a(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)
150§

BEQ

000010

sRECEIVED STATUS

1408

-ml |

;WAS SKI CAUSED BY IAE = 0??
:YES = DON'T REPORT SKI

sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

:
1408

000010

;REPORT AN ERROR IF SKI = 0 AND IAE WAS NOT DETECTED
BIT
#SK1,5008
:ASDHWLD SKI BE SET??
BEQ
1508
ADD
#%, (SP)
sMOVE SP TO USER'S ERROR CALL

MOvB
SUB

#307.a(sP)
#2.(SP)

suB

#10, (SP)

JSR

PC.a(SP)+

;WRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN
;RESTORE SP TO NO ERROR

C 4
MACRO v03.01 11-APR-80 13:39:53 PAGE 35-4

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

g‘g 061206
231
232 061206
5;2 061214

SEQ 0247

1508:
032737
001512

006200

001376

236 061216 032737
237 061224 001424

000200

001376

239 061234

042737

000200

241 061250
262 061256

062716
112776

000004
000310

244 061266

004736

246 061274

000240

235

;LOOK FOR ‘LSC'* OR ‘LBC'* OR 'DVC'' IN ERROR REGISTER #2
BIT
#LSC'LBC!'DVC,RMER2]
BEQ
1808
:NO ERRORS SET
;REPORT ANY DEVICE FAULT, 1.E., ‘DVC'' =1

BIT
BEQ

#DVC ,RMER2]
1608

BIC

#DVC, SGDDAT

238 oe12§2 013737 001376 001140

MOV

240 061242 013737 001376

MOV

243 061262

245 061270

gzg 061276
249

250 061276

162716

000002

001140

001142

1608 :

032737

002000

001376

032737

010000

001346

254 061316

013737

001376

256 061332
257 061340

013737
062716

001376
000004

259 061352

162716

251 061304

252 061306
253 061314

255 061324

061344

001430

001424

042737
112776

061356

004736

262 061364

000240

261 061360

52‘3 061366
265

162716

002000

000311

000002

001142

MOV
ADD

RMER2] ,$BDDAT
#4, (SP)

;RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL

SuB

#2,(SP)

*MOVE SP TO RETURN IF ERROR

#10, (SP)

*RESTORE SP TO NO ERROR

JSR

000240

282 061452
283 061460
284 061462
285 061470

MOVB

suB

275 061440

279 061442
280 061450
281

BIC

000000

004736

2;9 061442

I.E.; 'LBC'" =1, IF ‘MOL'" = 1

:EXPECTED STATUS

273 061432

162716

*RESTORE SP TO NO ERROR

RMER2I ,$GDDAT

013737
062716

274 061434

*REPORT ERROR AND RETURN

MOV

270 061412
271 061420

000312

NOP

BEQ

001140

013737 001376
112776

#10, (SP)

001140

268 061376
272 061426

suB

BEQ

1708 :

001376
000004

*MOVE SP TO RETURN IF ERROR

PC.a(SP)+

;REPORT LOSS OF BIT CLOCK,

000010

004000

#2,(SP)

#MOL , RMDS

001376

042737

SUB

*MOVE SP TO USERS ERROR
:WRITE ERROR NUMBER IN CALL

BIT

004000

269 061404

;RECEIVED STATUS

#LBC ,RMER2]

032737
001422

RMERZI ,$BDDAT

#4, (SPS
#310,a(SP)

BIT

266 061

267 061374

:EXPECTED STATUS

JSR

000010

= 122

RMER2] ,$GDDAT

ADD
MOVB

000000

SIS 'DVC'
*NO!!

NOP

*NO!!

1708

SYES!!

#LBC, $GDDAT

#311,a(SP)
PC.a(SP)+

#LSC,RMERZ]

001140

MOV

RMER2I ,$GDDAT

001142

MOV
ADD

RMER2],$BDDAT
¥4, (SP)

BEQ

001140

BIC

000000

1808 :
001350

032737
001427
032737
001023

040000

001350

000200

001376

1808

#LSC,SGDDAT

MOVB

#312.a(sP)

suB

#10, (SP)

JSR

000010

054000

*WAS LBC ERROR BY MOL = 0

*WRITE ERROR NUMBER IN CALL

*REPORT ERROR AND RETURN

;REPORT LOS OF SYSTEM CLOCK, I.E.. '1SC'* = 1

BIT

032737
001527

;1S LBC SET??

70$

NOP

PC,a(SP)+

:1s “Lsc't = 172

*NO!!

:EXPECTED STATUS

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

*WRITE ERROR NUMBER

*REPORT ERROR AND RETURN

*RESTORE SP TO NO ERROR

;LOOK FOR "UNS'* OR 'DTE'' OR 'WLE'' IN ERROR REGISTER #1

BIT
#UNS ' DTE 'WLE ,RMER1]
BEQ
2208
:NC BITS SET
;REPORT "UNS'* ERROR IF 'DVC'' = 0

#UNS , RMER1 ]
1908
#DVC,RMER21
1908

;IS "UNS'' SET??
*NO!!
*WAS "UNS'' CAUSED BY 'DVC'"2?
SYES!!

CZRMOAQ RMO5/3/2 FCTNL TST 3

MACRO VO3. 01 11-APR-80 13:39:53 PAGE 35-5

001350
040000
001350
000004
000313
000002

540
546
550

032737
001423
013737

010000

001350

564

013737

112776

610
612
616

36
162716

001350
010000
001350
000004
000314
000002

e R

e S

S QS QS W

013737
84%7 7
013737
062716
112776
162716
004736
162716

BREREREREBIT
IR

286 061472
287 061500
288 061506
289 061514
290 061520
291 061526
292 061532
293 061534
294 061540

RRRRRRRRRRE

DATA TRANSFER COMMAND STATUS CHECK SUBROUTI

310

001140
001140
001142
000000

000010

1908
:

001142

MOV
ADD

RMERTI, SBDDAT
¥4, (SPS

suB

#2,(SP)

2008$:

000315

004000

001346

320 061672

032737

000010

001410

322 061702
323 061710
324 061716
325 061722

112776
042737
162716
004736

000316
004000
000002

000000
001140

gg 061724

162716

105776

333 061740

001404

336 061752

162716

340 061775

341 06176«
342 061772

#10, (SP)

MJLE ,RMER1]

:WAS ‘MWLE'' SET??

MOV
MOV

RMER1I,$BDDAT
RMER1],$GDDAT

:RECEIVED STATUS
;EXPECTED STATUS

#4, (SP)

;MOVE SP TO USERS ERROR CALL

BIT
BEQ

#WRL .RMDS |
205$

*WAS DRIVE WRITE PROTECTED??
*NO!!

BEQ

2108

MJLE
, SGDDAT

MOVB

#315.a(sP)

BIT

2058:
2108:

2208

BIS

ADD

MOVB
BIC
S8
JSR

suB

#BIT3,RMCS10

#316.3(SP)
MJLE.SGDDAT
#2.,(SP)
PC.a(SP)+

#10, (SP)

*NO!!

:WRITE ERROR NUMBER IN CALL

:WAS COMMAND A WRITE??

SYES!!

*CHANGE ERROR NUMBER
;MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

;OMIT DATA ERROR CHECKS IF ANY PREVIOUS ERRORS HAVE BEEN DETECTED

000004

ADD

000000

TSTB

BEQ

162716 000004
000137 062750
000004

2258:

338

339

PC.a(SP)+

2208:

331 061730 062716
33% 061742
335 061746

#314,a(SP)

sRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
sWRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

BIT

BEQ

000010

3353 061730
061734

sus

#DTE, SGDDAT

;REPORT AN ERROR IF WRITE LOCK ERROR IS SET.
SEE IF DRIVE IS NOT
*WRITE PROTECTED, OR IF FUNCTION WAS NOT A WRITE

001140

112776

321 061700 001406

MOVB
JSR

001142
001140

032737
001404

BIC

000000

001350
001350

318 061662
319 061670

;REPORT ANY DRIVE TIMING ERROR, 1.E., 'DTE

:EXPECTED STATUS

013737
013737

317 061654

:REPORT ERROR AND RETURN
sRESTORE SP TO NO ERROR

RMER11, $GDDAT

313 061626
314 061634

004000

:MOVE SP TO RETURN IF ERROR

MOV

001350

052737

;WRITE ERROR NUMBER

001140

004000

315 061642

;RECEIVED STATUS
sMOVE SP TO USERS ERROR CALL

%DTE SET""

000010

316 061650 062716 000004

sEXPECTED STATUS

#DTE ,RMER11

032737
001441

RMER11, $GDDAT
meafx $BDDAT
4, (SP)
csis.atsm
#2,(SP
PC.a(SP)+
#10, (SP)
#UNS ,SGDDAT

311 061616
312 061626

MOV
BIC
MOV
ADD
MOVB
SUB
JSR
su8

SUB
JMP
SuWB

#4, (SP)

:MOVE SP TO USER'S ERROR

a(SP)

*WAS ERROR DETECTED??

#4, (SP)
3408

*RESTORE SP
*SKIP DATA CHECKS

225$

¥4, (SP)

*NO
- DO DATA CHECKS

*RESTORE SP

;CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DATA, AND
013737 001410
042737
022737

177700
000063

063340

:IF HEADER COMPARE 1S NOT INHIBITED

MOV
BIC

CMP

RMCS10,5108

;STRIP AND STORE FUNCTION CODE

#wH' G0, 5108

;WAS FUNCTION WRITE HEADER & DATA??

#~CFNCMSK , 5108

SEQ 0248

CZRMOAOD RMO5/3/2 FCTNL TST 3

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

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

343 062000

344 062002
345 062010
346
347
348 062012
349 062020

351
352 062022
353
54

00151

03273
001106

002000

032737
001533

000620

032737
001422

000400

162716
004736
000501

032737

BEQ
BIT
BNE

001366

2508

#HCI
, RMOF |

2508

;

;YES = SKIP HEADER CHECKS
WAS HCI SET?
;YES = SKIP HEADER CHECKS

OR "HCRC''
OR "MCE''
;SEE IF ANY HEADER ERRORS ARE SET, I E.. "FER''

BIT
BEO

#HCRC!FER!HCE ,RMERT
2708
NO ERRORS SET

sREPORT HEADER CRC ERROR IF SET
BIT

#+4CRC ,RMER1]

BIC
MOV
ADD

#HCRC, SGDDAT
RMERT] , SBDDAT
#4, (SP)

SUB
JSR

#2,(SP)
PC.a(SP)+

BEQ
MOV

001350
000400
001350
000004
000317
000002
230%:
000020

001350

001350
000020
1350

001140
001140
001142

2308
RMER11, SGDDAT

2608

;REPORT FORMAT ERROR IF SET
BIT

#FER,RMER11

MOV
BIC

RMER11,$GDDAT
#FER, SGDDAT

ADD

#4, (SP)

MOV

000320
000002

RMER11, $8DDAT

MOVB

#320,a(SP)

2608

SUB
JSR

2408%:

2408

#2,(SP)
PC.a(SP)+

;WAS HCRC SET??

*NO!!

*EXPECTED STATUS

sRECEIVED STATUS
sMOVE SP TO USERS ERROR
sWRITE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN

;WAS 'FER'' SET??
;JNO!!
JEXPECTED STATUS
sJRECEIVED STATUS
sMOVE SP TO USERS ERROR
;WRITE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN

;REPORT HEADER COMPARE ERROR IF SET
BIT
#HCE ,RMER1]
;WAS "MCE'' SET??

000200

001350
000200
001350
000004
000321
000002

MOV
BIC

2708

RMER11, $GDDAT
#HCE , SGDDAT

MOV
ADD

RMERTI, SBDDAT
#4, (SPS

&
JSR

:
PC a(SP)+

260

*NO!!

*EXPECTED STATUS
sRECEIVED STATUS
:MOVE SP TO USER'S ERROR
;WRITE ERROR NUMBER
:MOVE SP TO RETURN IF ERROR
:REPORT ERROR AND RETURN

THERE SHOULD BE NO HEADER ERRORS BECAUSE

399 062276

nNOO

b
b

2505:

BIT

#HCE !FER!HCRC ,RMER1I

MOV

RMER11,$GDDAT

MOV

RMER11 ,$BDDAT

BEQ

BIC

2708

JSR

:NO ERRORS WERE SET
;EXPECTED STATUS

#HCE
! FER'HCRC , $GDDAT

—

888

001350
000620
001350
000004
000322
000002

b
b
b

001350

.C OMMAND WAS WRITE HEADER AND DATA, OR
HEADER COMPARE INHIBIT WAS SET

PC.a(SP)+

;RECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER
:MOVE SP TO RETURN IF ERROR

:REPORT ERROR AND RETURN

SEQ 0249

CZRMOAQ RMOS5/3/2 FCTNL TST 3

MACRO VO3, 01 11-APR-80 13:39:53 PAGE 35-7

DATA TRANSFER COMMAND STATUS CHECK SUBROUTI

400 062300

283 062304

162716

000137

000010

2608:

062750

SuB

JMP

#10, (SP)

340§

sMOVE SP TO NO ERROR
;OMIT FURTHER DATA CHECKS

282 062310

2708 :

405

;IF COMMAND WAS A WRITE COMMAND, GO DO WRITE ERROR CHECKS, OTHERWISE

406

407 062310

408 062316
409 062320

,’:}? 062324

412
413 062324
414 062332

032737

001002
000137
032737
001450

000010

063340

062536
001350

013737

001350

001140

417 062350 013737
418 062356 062716

001350
000004

001142

420 062370

032737

004000

001366

422 062400
423 062406

112776
032737

000324
000100

000000
001350

032737

000020

063340

416 062342

042737

100000

BIT

275$:

100000

415 062334

;DO READ ERROR CHECKS

424 062414
425
426 062416

427 062424
428 0626426
429 062432
430 062434
431 062442
432 062446

gz 062450

001021

001007

001406
162716
000410
112776
162716
004736

MOV

001140

162716

000000

437
438 062454

RMER11,$GDDAT

#DCK, SGDDAT

MOVB

c3é3 a(SP)

memx $BDDAT
(SP)

001344

‘,%ST? CHECK ERROR??

*EXPECTED STATUS
sRECEIVED STATUS

#ECT.RMOFI

MOVB
BIT

#324,a(SP)
#ECH.RMER1]

;IS ERRG! RECOVERABLE??

BEQ
SuB
BR

2808
#4, (SP)
2908

*NO
!
.RESTORE SP
:SKIP ERROR - DATA WILL BE CORRECTED

2808

:CHANGE TO RECOVERABLE ERROR

276$
BNE
:NO
!
;DO NOT REPORT RECOVERABLE ERROR IF READ COMMAND
BIT
#81T74,5108
;WAS THIS A READ COMMAND ??

276%:
2808:

MOVB
SUB
JSR

SuB

000400

:GO
DO WRITE STATUS CHECK

BIT

#325.a3(SP)
#2,(SP)
PC.a(SP)+

#10, (SP)

2908 :
032737

:%s?'nus A WRITE COMMAND?

sMOVE SP TO USER'S ERROR
sWRITE ERROR NUMBER
UegECC CORRECTION DISABLED??

BNE

000010

gg 062454

2758
3108

BIC

MOV
ADD

000004
000325
000002

#B173,5108

JREPORT DATA CHECK IF SET
BIT
#DCK,RMER1]
BEQ
290%

419 062362 112776 000323 000000

421 062376

BNE
JMP

*CHANGE TO NON RECOVERABLE
*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

*RESTORE SP TO NO ERROR

;REPORT DATA BUS PARITY ERROR IF SET, I.E.. MDPE = 1
BIT
#MDPE ,RMCS2]
;PARITY ERROR SET??

439 062462
440 062464

001423
013737

001344

001140

BEQ
MOV

3008
RMCS21,8GDDAT

*NO!!
:EXPECTED STATUS

442 062500
443 062506

013737
062716

001344
000004

001142

MOV
ADD

ancszx $BDDAT
4, (SP)

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR

445 062520

162716

000002

#2.(SP)

*MOVE SP TO RETURN IF ERROR

447 062526
223 062532

162716
000137

000010
062750

441 062472

042737

000400

001140

BIC

44k 062512 112776 000326 000000
446 062524

736

gg 062536
452
453 062536

454 062544

455 062546
456 062554

MOVB

osée.a(sp)

JSR

PC.a(SP)+

SUB

3008:

AMDPE,$GDDAT

suB
JMP

#10, (SP)
3408

*WRITE ERROR NUMBER

*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR
*SKIP WRITE STATUS CHECK

3108:
032737

000001

001346

013737

001346

001140

001423

042737

000001

001140

;TEST TO SEE THAT OFFSET MODE WAS RESET: REPORT ERROR IF ‘OM'* =
BIT
#OM,RMDS |
;1S OFFSET ON??

BEQ

MOV
BIC

3208

RMDSI,$GDDAT

#OM, SGDDAT

*NO

:EXPECTED STATUS

SEQ 0250

CZRMOAQ RMO5/3/2 FCTNL TST 3

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

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

457 062562
458 062570

013737
062716
112776
162716
004736

001346
000004
000327
000002

000000

JSR

162716

000010

032737

000010

001376

001376
000010
001376
000004
000330
000002

001140
001140
001142

004
162715

000010

032737

000040

MOV
ADD
MOVB
SUB

001142

320%:

BEQ

001346
147677
010100

SUB

#2,(SP)

MOVB

n330a(SP)

PC.a(SP)+

#10, (SP)

*EXPECTED STATUS
sRECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL
sWRITE ERROR NUMBER
:MOVE SP TO RETURN IF ERROR

:REPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

;TEST FOR WRITE CLOCK FAILURE; REPORT ERROR IF "WCF'' = 1
BIT

MICF ,RMERT ]

MOV

RMER11,$GDDAT

;1S "MCF'' SET??
sNO!!
;EXPECTED STATUS

MOV
ADD

RMER11,$8DDAT
#4, (SP)
#331.a(sP)
#2,(SP)
PC.a(SP)+
#10, (SP)

sRECEIVED STATUS
sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

BEQ
BIC

MOVB

suB

JSR

340%:

SuB

3408

MICF ,SGDDAT

;REPORT 'DATA LATE'' ERROR_IF 'DLT"' = 1
#DLT,RMCS2]
:1S DLT“ SET??
eso

MOV
BIC
MOV
ADD

001344
100000
001344
000004
000332
000002

013746
042716
022726
001522

RMER2I, SGDDAT
#DPE ,SGDDAT
menél $BDDAT
(SP)

330%:

100000

000010

3308

MOV
BIC
MOV
ADD
JSR

000010

162716

PC.a(SP)+

#10, (SP)

sRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

;TEST FOR DATA BUS PARITY ERROR; REPORT ERROR IF 'DPE'' = 1
zsre PARITY ERROR??
BIT
#DPE ,RMER2]

001350
000040
001350
000004
000331
000002

032737
001423
013737

RMDS], $BDDAT
#4, (SP)
#337.a(SP)
#2,(SP)

3508

RMCS21, SGDDAT
#DLT,SGDDAT
mcsél $BDDAT
SP)

MOVB

a332a(sP)

JSR

PC.a(SP)+

suB

#2,(SP)

#10, (SP)

:NO!!

:EXPECTED STATUS
;RECEIVED STATUS
:MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER

:MOVE SP TO RETURN IF ERROR

:REPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

350%:
s LOOK FO:OeNEXPECTED CHANGES IN DRIVE STATUS
RMDSI,~(SP)
;STACK DRIVE STATUS
BIC
#*C<PIP!MOL 'VW>,(SP) ;CLEAR DONT CARES
cMP
#MOL
!VV, (SP)+
:IES?$IVE STATUS 0K??
BEQ
3808

;REPORT ERROR IF POSITIOgING IN PROGRESS AND NO SEEK INCOMPLETE ERROR,

032737
001430
032737

020000

001346

040000

001376

:1.E, PIP = 1 AND SKI
BIT
#P1P ,RMDS I
BEQ
3608
BIT
#SKI ,RMER2]

{‘3. "PIP'* SET??

*WAS *'SKI'* ERROR REPORTED??

SEQ 0251

CZRMOAO RMOS5/3/2 FCTNL TST 3

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

4
4

SEQ 0252
BNE

MOV

BIC
MOV

001346
020000
001346
000004
000333
000002

888

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

000010

ADD

MOVB
suB
JSR
Su8

3608

RMDSI , $GDDA T

#P1P, $GDDAT

RMDS
] , $8DDA T
#4, (SP)

#353,3(sP)

#2,(5P)

PC.a(SP)+

#10, (SP)

s YES=DONT REPORT PIP
:EXPECTED STATUS

sRECEIVED STATUS
sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR

sREPORT ERROR AND RETURN

sMOVE SP TO NO ERROR

360%:

sREPORT ERRm IF HEDIU! IS m('I; ON LINE AND OPI ERROR WAS NOT

004736
162716

032737

010000

001346

020000

001350

001346

001140
001140
001142

001346
000004
000334
000002
000010

000100

+REPORTED,

#MOL,RMDSI

BIT

#OPI ,RMER1]

BIS

m.seoon

BNE
MOV

MOV
ADD

MOVB

3708:

suB
JSR
suB

3708

3708
RMDSI, $GDDAT

,$BDDAT
m. <sp>

#334,a(SP)

#2,(5P)
PC.a(SP)+
#10, (SP)

;1S *DILH ON LINE??

HigOPI ERROR REPORTED??
E)E(FS’ECTED STATUS

MOVE
5P T0 USER"S ERROR

;WRITE ERROR NUMBER
:MOVE SP TO RETURN IF ERROR

:REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

sREPORT ERROR IF VOLUME IS MgT VALID AND "‘IVC'' ERROR WAS NOT
REPORTED, 1.E.., W = IVC

BIT

#VV ,RMDS

IESVOLL’E VALID??

BIT

#1VC,RMER2]

HegIVC ERROR REPORTED??

BNE

010000

3808

BNE
MOV

3908
RMDS]I
, SGDDAT

001346
000004
000335
000002

MOV
ADD

SuB

RMDS], SBDDAT
#4, (SP)
#335.a(sP)
#2,(5P)

000010

suB

#10, (SP)

001346

556 063310
557
558
559 063310

BIT

BNE

BIS

MOVB
JSR

380$:

#VV,SGDDAT

PC.a(SP)+

:EXPECTED STATUS

;RECEIVED STATUS
sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

:AUGQENTM';SE RETURN ADDRESS IF ANY ERROR WAS FOUND
ISTB

#4, (SP)
a(SP)

¥4, (SP)
4008
#4, (SP)
PC

BEQ

02
162716

:
3908

ADD
B8R
suB

000207

400$:

RTS

000000
000000

500%:
5108:

.WORD
-WORD

3908

sMOVE SP TO ERROR CALL
;ANY ERROR??

;YES = MOVE SP TO ERROR RETURN
;MOVE SP TO NO ERROR RETURN
sRETURN TO USER

;ERROR FLAGS
: TEMPORARY STORAGE

CZRMOAO RMOS5/3/2 FCTNL TST 3

I 4
MACRO v03.01 11-APR-80 13:39:53 PAGE 36

:xcb\fi¥€xt~uuv-dgg<uh-q0nfi3~uuv-flCMocD~40nfi:~uuu-a

STATIC DRIVE STATUS CHECK SUBROUTINE

.SBTTL

SEQ 0253

STATIC DRIVE STATUS CHECK SUBROUTINE

sTHIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE
s STATUS, SUCH AS THE DRIVE LOSING VOLUME VALID.

THE SUBROUTINE

. CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE
s SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE.

)

:T?ET;&LWING CONDITIONS ARE TESTED AND REPORTED AS ERRORS

.MOL = 0, INDICATES DRIVE WENT OFFLINE, NOTE

THAT MOL

U
TS WS QU
e

:THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER.

(N
H
:
H

:
:

PC,STCDRVSTS
m”

JSR
ne

PC,a(SP)+

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 ERROURS

;CLEAR USER'S ERROR CALL
ADD
#4,(SP) ;MOVE SP TO USER'S ERROR CALL

062716
105076
162716

000004
000000
000004

34 063356
35 063362
36 063366
gg 063372

013746
042716
022726
001524

001346
147677
010100

40 063374

032737

010000

001346

42 063404

032737

020000

001350

44 063414

013737

001346

001140

013737

001346
000004
000207
000002

001142

112776

50 0634
51 063456

JSR
BR
NOP
ERROR

STCDRVSTS:

30 063342
31 063346
32 063352

IS ASSUMED TO HAVE BEEN SET

W =0
INDICATES THE DRIVE LOST VOLUME VALID
.PIP
1. INDICATES THAT THE DRIVE IS OFF CYLINDER
1. INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR
-SKI
1, INDICATES AN UNEXPECTED DEVICE FAULT
-DVC

004736
162716

;SEE IF

llel

MOV
BIC

cMP

BEQ

;CLEAR ERROR NUMBER

.vV..

:MOVE SP BACK TO NO ERROR RETURN

lPIP.'

RMDSI ,=(SP)

sPUT DRIVE STATUS ON STACK

#MOL!VV,(SP)+
308

;ARE MOL.VV AND PIP 0.K.??
JVES!!

#~C<PiP!MOL
!VV>, (SP)

;REPORT AN ERROR IF MOL = 0 AND 'OPI'' = 0
BIT

#MOL ,RMDS

;1S MOL ON 22

BIT

#OP] ,RMER1]

‘OP]'*

BNE
BNE
MOV

SET??

ves-oom REPORT 'MOL’* = 0
:EXPECTED STATUS

MOV
ADD
MOVB
SUB

amsx $BDDAT
P)
0267a(sP)
#2,(5P)

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN FOR ERROR

SuB

#10, (SP)

JSR

000010

-ves“

108
RMDSI,$SGDDAT

BIS

000000

108

#MOL
, $GDDAT

PC.a(SP)+

*REPORT ERROR VIA USER
sMOVE SP BACK TO NO ERROR RETURN

108:

063464
57 063472

032737
001030

000100

001346

JREPORT AN ERROR IF VOLUME VALID }g h{vfl ZER8
AND "IVC'" = 0
BIT

BNE

#VV ,RMDSI

208

:NO!!

CZRMOAO RMO5/3/2 FCTNL TST 3
MACRO v03.01
STATIC DRIVE STATUS CHECK SUBROUTINE

032737

001024

010000

001376

11-APR-80 13:39:53 PAGE 36BIT

001346
000100
001346
000004
000210
000002

MOV
MOV

MOVB
SUB
JSR
SUB

000010

g(x)\s/c~RMER2]

RI'DSI $GDDAT

#VV,RMDS |

N‘DSI
§BDDAT

0210 a(sP)
#2,(SP)
PC.a(SP)+
#10, (SP)

JWAS "‘IVC'* SET??
s YES=DONT REPORT ‘‘W'' = 0
:EXPECTED STATUS

sRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
sWRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
sMOVE SP BACK TO NO ERROR

20$:
020000

sREPORT AN ERROR IF DRIVE IS OFF CYLINDER AND '‘SKI'' = 0
8

040000

BIT

001346

MOV
BIC

#PIP ,RMDSI
$

g‘S)DRIVE OFF CYLINDER??

308
RMDSI,$GDDAT
#PIP,$GDDAT

:YES=DONT REPORT ‘PIP'‘ = 1

#SKI ,RMER2]

000211
000002

MOVB

Su8

#2,(SP)

000010

SUB

#10, (SP)

JSR

#211,a(SP)
PC.a(SP)+

WAS *'SKI'* SET??

sEXPECTED STATUS

sRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN USER'S CALL
sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

30%:
013746
042726
001460

R
&
&

SR
$RSINRIS
B BoaG
NIRREEY

RANISIBIREREC28Y 3 YREREYeS

88
063644
89 063650

001376
137577

3SEE IF "SKI'' = 'DVC'' = 0
MOV
RMER21,-(SP)

BIC

408
:

000200

001376
000200
001376
000004
000212
000002

BEQ

:PUT ERROR REG 2 ON STACK

#~C<SKIDVC>, (SP)+
608

;BRANCH IF NO ERROR

;REPORT SN ERROR IF THERE IS A DEVICE FAULT
#DVC ,RMER2I
Ahg\‘ DEVICE FAULT??
508
MOV
RMER2I, SGDDAT ;EXPECTED STATUS

BIC

#DVC , SGDDAT

MOV

mené'l’ Ssamm

SUB

#2,(SP)

MOVB
JSR

SuB

cziza(sP)
PC.a(SP)+

#10, (SP)

;RECEIVED STATUS

MVE SP TO USER'S CALL
WRITE NUMBER OF ERROR IN CALL
MVE SP_TO RETURN FOR ERROR
REPORT ERROR VIA USER

:MVE SP BACK TO NO ERROR

508:

;REPORT AN ERROR IF "'SKI'' = 1
BIT
#SK1,RMER2]

BEQ
MOV
BIC
MOV
ADD

MOVB

608
RMER2I, SGDDAT
#SK1, SGDDAT
msnéx $BDDAT
SP)

0213a(sP)

:'I‘g'yuens 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

CZRMOAO RMO5/3/2 FCTNL TST 3

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

STATIC DRIVE STATUS CHECK SUBROUT INE

115 064002
116 064006
117 064010
118 064014
119 064016

162716
004736
162716
000240

122 064016

062716

181

123 064022
124 064026
125 064030
126 064034

127 064036
128 064042
}238 064044

105776
001403
062716
000402

162716
000240
000207

000002
000010
60$:

000004

#2,(SP)

PC,a(SP)+

#10, (5P)

sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
sMOVE SP BACK TO NO ERROR

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED

ADD
TSTB

000000
000004
000004

suB
JSR
SuB
NOP

708:
80$:

BEQ
ADD
BR
SuB
NOP
RTS

#4,(SP)
a($P)
708

sMOVE SP TO USER'S ERROR CALL

;WAS AN ERROR DETECTED??

#4, (SP)

:-'323'- MOVE SP TO USER'S ERROR RETURN

#4,(SP)

:NO = MOVE SP TO NO ERROR RETURN

:RETURN TO USER

80%

SEQ 0255

CZRMOAO RMOS5/3/2 FCTNL TST 3

STOP AND SHUTDOWN SUBROUTINES

L 4
MACRO v03.01 11-APR-80 13:39:53 PAGE 37

.SBTTL

2 064046

STOP:

O 0o

5
6 064046
064052
064056
064060
7 064060

orn NO‘&O?NO N
&~ S3
SO

000240
012746
012746
000002

—_— e o
NN=eas00N
—_
VS&ES

— )
Vi

STOP AND SHUTDOWN SUBROUTINES

sDROP PRIORITY TO ALLOW CONSOLE INTERRUPT
MOV
#PR3,=(SP)
:sPUT NEW PS ON STACK
MOV
#64$,~(SP)
;cPUT NEW PC ON STACK
RTI
::POP NEW PC AND PS
648:

012746
01 2743

NOP

sRAISE PRIORITY TO INHIBIT CONS OLE _INTERRUPT
MOV
#PR6,
= (SP)
;:PUT NEW PS ON STACK
MOV
#65%,-(SP)
2:PUT NEW PC ON STACK
RTI
;2POP NEW PC AND PS
65%:
RTS
PC
- CONTINUE

000300
064074

FZ FXX FRRXRXX ¥

b
b
b
b
b e
b
b

NURNNBS

ONONVIS W=

10 064062
064066

SEQ 0256

001326

SHUT:

007764
000042

5%:

064124

000137
000137

005420
037460

012737
000002

177777

001326

TST

CTLFG

JMP

READY

TYPE

,65%

;:TYPE ASCIZ STRING

START

;GO TO START
sRETURN CONTROL TO MONITOR

BNE

TST
BNE

éigSS:

BR
LASCIZ

108:

JMP

SHUT2:

MOV

JMP

s
108

JHALT ?
;BR IF YES
2 CONT INUE
sANY MONITOR PRESENT ?
:BR IF YES

648
s2GET OVER THE ASCIZ
<CRLF><07>/TEST HALTED/<CRLF>
$EOP

sSET THE CONTROL-C FLAG
SEXIT FROM INTERRUPT

CZRMOAD RMO5/3/2 FCTNL TST 3

SAVE AND RESTORE RO-R5 ROUTINES
1

L
MACRO v03.01 11-APR-80 13:39:53 PAGE 38
.SBTTL

SEQ 0257

SAVE AND RESTORE RO-R5 ROUTINES

AR AR AR AR AR AR AR AR AR R

AR AR AR AR

'SAVE RO=R5

;*CALL:

SAVREG
*tPW RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:

.*T(P--(*M)

;% #2===(+18)

;% #4===R5
;* +6===R4

;* +8-=<R3
; *+10--=R2
;*412-==R1

;*+14---R0

$SAVREG:

MOV

RO,=(SP)

;:PUSH RO ON STACK

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

R2.-(SP)
R3,-(SP)
R4 ,-(SP)
R5,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)

;:PUSH R2 ON STACK
::PUSH R3 ON STACK
;:PUSH R4 ON STACK
22PUSH RS ON STACK
;:SAVE PS OF MAIN FLOW
;:SAVE PC OF MAIN FLOW
;:SAVE PS OF CALL
;:SAVE PC OF CALL

MoV
MOV
MoV
MOV
MOV
MOV

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+ RS
(SP)+.R4

s sRESTORE PC OF CALL
:sRESTORE PS OF CALL
:;RESTORE PC OF MAIN FLOW
:;RESTORE PS OF MAIN FLOW
:;POP STACK INTO RS
::POP STACK INTO R4

MOV
MOV

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

::POP STACK INTO R2
::POP STACK INTO R1

MOV

$RESREG:

MOV

.SBTTL
s AR

R1,-(SP)

(SP)+.R3

;2sPUSH R1 ON STACK

:;POP STACK INTO R3

nov
(SP)+.RO
::POP STACK INTO RO
RTI
BINARY TO ASCII AND TYPE ROUTINE

AR AR AR AR AR A AR AR AR

A AN AR AR AR RN

AR AN RN RN

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-8IT
?WY—ASCU NUMBER AND TYPE IT.
* %

064260

010146

064266

000261

MoV

TYPBN

S$TYPBN: MOV

MOV
SEC

NUMBER,~(SP)
R1,=-(SP)
6(SP) R

: sNUMBER TO BE TYPED

s:TYPE IT

..SAVE R1 ON THE STACK

‘ GET THE INPUT NUMBE R

::SET ''C"* SO CAN KEEP TRACK OF THE NUMBER OF BITS

CZRMOAO RMO5/3/2 FCT& TST 3 TINE MACRO V03.01 11-APR-80 13:39:53 PAGE 38-1

SEQ 0258 |

38R 5

BINARY TO ASCII AND TYPE ROU

064
064276
064

112737
006101

000060

064332

18:

MOvB

#'0,$8IN
R1

2%
$8IN
.$BIN

064302

064
064 1
064 1
064 1
064
064 26
064 330
064332

sDONE?

:;CLEAR ''C'' SO CAN ?EEP TRACK OF BITS

(SP)+,R1
2(SP) ,4(SP)
(SP)+,(SP)

$8IN
SBTTL

..GET THIS BIT

..M)-SET THE CHARACTER EQUAL TO THIS BIT
..GO TYPETHIS BIT

2%:

;s SET CMRACTER TO AN ASCII 'O,

..ADJUST THE STACK
..RETUW TO USER

YTE _ 0,0
;STORAGE FOR ASCII CHAR. AND TERMINATOR
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

SRR ARAA A AN AAA AN

AN AT AR AAAAA AN

AR AN

AR AR AR

tTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE

;*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
s *REPLACED WITH SPACES.

s*CALL:
.
3

$TYPDS:

NUM,-(SP)

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

R3.-(SP)
RS .=(SP)

azbzoo -(SP)

020200
000020

000055

MOV
TYPDS

20(SP)

000001

064550
000040

18:

2$:

064540

3%:

.RS

:;PUT _THE BINARY NUMBER ON THE STACK
:.G0 TO THE ROUTINE
ON STACK
ON STACK
ON STACK
ON STACK
ON STACK
BLANK SWITCH AND SIGN

1s
RS
#'-,1(SP)
RO
#$DBLK ,R3

c' L(R$)+

SDTBL (RO) .R1
R5

A ¥

_IF DONE
:;BR
s INCREASE THE BCD DIGIT BY 1
:sADD BACK THE CONSTANT

:sCHECK IF BCD DIGIT=0
sFALL THROUGH IF 0

..STILL DOING LEADING 0°'S?
;BR IF YES
2:MSD?

000001
000060
000040
000010

177777

6%:
’$:

1(SP) ,=1(R3)
0

R2 (R3)+
(RO)+

RO, #10

::BR IF NO
2:YES=-SET THE SIGN
;sMAKE THE BCD DIGIT ASCII
ssMAKE IT A SPACE IF NOT ALREADY A DIG IT
2sPUT THIS CHARACTER IN THE OUTPUT BUF FER
ING
2 :JUST INCREMENT
;sCHECK THE TABLE INDEX

3333 R eRRERARER §§
S5EKE FRXNSrrnoR
SN S
464

00008

002746

BLT

868502

MOV
BR
1ST8
BPL

R5,R2
63
(SP)+
9s

CLRB
MOV
MOV
MOV
MOV
MOV
TYPE
MOV
MOV

(R3)
(SP)+,RS
(SP)+.R3
(SP)+.R2
(SP)+.R1
(SP)+.R0O
$DBLK
2(SP) ,4(SP)
(SP)+.,(SP)

105726
0000

BGT

8s:
177777

064550

000002

177776

9%:

000004
$DTBL:

$DBLK:

.SBTTL

RTI

::G0 DO THE 'fXT DIGIT

MOVB

;360 _TO EXIT

=1(SP),=2(R3)

10000.
1000.
100.
10.

SEQ 0259

..GET THE LSD
;GO0 CHANGE TO ASCII
..HAS THE LSD THE FIRST NON-ZERO?
::BR IF NO
A

::YES==SET THE SIGN FOR TYPING

*:SET THE TERMINATOR
+:POP STACK INTO RS
::POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1
1:POP STACK INTO RO
1:NOW TYPE THE NUMBER
*ADJUST THE STACK
;;RETURN TO USER

BINARY TO OCTAL (ASCII) AND TYPE

AER AR AR

RN AN ARAERRR

AR ARARRRRRRANANRR AN

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6~DIGIT
s*OCTAL (ASCII) NUMBER AND TYPE IT.
:*$TYPOS==-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*CALL:

MOV

NUM,-(SP)

:sNUMBER TO BE TYPED

e
o®

.BYTE
.BYTE

N
M

::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
::M=10R 0

:*
:®

TYPOS

. &

:;CALL FOR TYPEOUT

::1=TYPE LEADING ZEROS
::0=SUPPRESS LEADING ZEROS

:*STYPON===<ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC
:*CALL:

MOV

TYPON

NUM, = (SP)

: ;NUMBER TO BE TYPED
:;CALL FOR TYPEOUT

'ngoc--Emen HERE FOR TYPEOUT OF A 16 BIT NUMBER
i

i*
o
000001
065005
000002

065003

000001
000006
000005

065003
065005
065002

MOV
TYPOC

$TYPOS: MOV

MOvB
MOvB

$TYPOC: MOVB

MOVB
$TYPON: MOVB

MOV

NUM, = (SP)

: ;NUMBER TO BE TYPED
:;CALL FOR TYPEOUT

a(SP) ,=(SP)

:;PICKUP THE MODE

1(SP) ,SOF ILL
(SP)+,SOMODE+1

#2, (SP)

#1,80F ILL

::LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
s ;ADJUST RETURN ADDRESS

;;SET THE ZERO FILL SWITCH

#6, SOMODE +1
#5,S0CNT

;:SET FOR SIX(6) DIGITS
::gE&Eng ITERATION COUNT

R&.=(SP)

*SAVE R

bTa)

CZRMOAQ RMOS5/3/2 FCTNL TST 3
MACRO V03 01 11-APR-80 13:39:53 PAGE 38-2
CONVERT BINARY TO DECIMAL AND TYPE ROUTI

CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE 38-3
BINARY TO OCTAL (ASCII) AND TYPE
R5,=(SP)
$OMODE +1,R4
R4

065005

065004

1%:

ROL

2%:

ROL

3s:

ROL

2:G0 DO MSB
;:FORM THIS DIGIT

;;GET LSB OF THIS DIGIT

;:TYPE THIS DIGIT?

;:BR IF NO
;:GET RID OF JUNK
;sTEST FOR O
2 ;SUPPRESS THIS 0?
;:BR IF YES

000002

5%:

BIS

7$:

DECB

6%:

MOV

000004

;:DON'T SUPPRESS ANYMORE 0°'S

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

2(SP) ,4(SP)
(SP)+,(SP)

8%:

.BYTE

elelelels]

016666

INC

.BYTE
$SOCNT:
.BYTE
SOFILL: .BYTE
$OMODE : .WORD
.SBTTL
TYPE ROUTINE
MR

s ;SUBTRACT IT FOR MAX. ALLOWED
2s2SAVE IT FOR USE
;:GET THE ZERO FILL SWITCH
;:PICKUP THE INPUT NUMBER
+;CLEAR THE OUTPUT WORD

; ;ROTATE MSB INTO *¢*'

177770

A ¥

; :SAVE RS
;:GET THE NUMBER OF DIGITS TO TYPE

;sMAKE THIS DIGIT ASCII
;sMAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING
2:G0 TYPE THIS DIGIT
2 ;COUNT BY 1
;sBR IF MORE TO DO
;:BR IF DONE
2o INSURE LAST DIGIT ISN'T A BLANK
22G0 DO THE LAST DIGIT

;;RESTORE RS
2:RESTORE R4
;;RESTORE R3
;:SET THE STACK FOR RETURNING
: ;RETURN
;:STORAGE FOR ASCII DIGIT
:; TERMINATOR FOR TYPE ROUTINE
s;0CTAL DIGIT COUNTER
:sZERO FILL SWITCH
: sNUMBER OF DIGITS TO TYPE

Attt et
il
tt
T332 22222222222227

s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
2*NOTE1:

J*NOTE2:
J*NOTE3:

SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

ALL
*1) USING A TRAP INST RUCTION

TYPE

ME SADR

SAD R

;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

SEQ 0260

CZRMOAO WS/B/Z FCTNL ST 3

TYPE ROUTINE

SEQ 0261

105737
100002
065020
065026

D .5
MACRO v03.01 11-APR-80 13:39:53 PAGE 38-4

000430
010046
017600
122737
001011

001173

000002
000001

$TYPE:

1%:

001242

001243
065056
067770
000040

001243

TSTB

..Is THERE A TERMINAL?

62%

2:NO,GO CHECK FOR CONSOLE

O
#APTCSUP, SENVM

s JMESSAGE ADDRESS
..APT CONSOLE SUPPRESSED

;:BR
IF YES
JsHALT HERE IF NO TERMINAL
33
s sLEAVE
RO,=-(SP)
2:SAVE RO
82(SP) ,RO
..GET ADDRESS OF ASCIZ STRING
#APTENV, SENV
JRUNNING IN APT MODE
62%
..NO GO CHECK FOR APT CONSOLE
#APTSPOOL , SENVM ..SPOOL MESSAGE TO APT

MOV
JSR

RO,61$8
PC,$SATY3

BEQ

61%:
62%:

$TPFLG

BPL
HALT
BR
MOV
MOV
CMPB
BNE
BITB

.WORD
BITB

s sSETUP MESSAGE ADDRESS FOR APT
;:SPOOL MESSAGE TO APT

2$:

BNE
MOVB
BNE

608
(RO)+,-(SP)
43

2:YES,SKIP TYPE OUT
..PUSH CHARACTER TO BE TYPED ONTO STACK
;sBR IF IT ISN'T THE TERMINATOR

.000002

60%:
3s:

MOV
ADD

(SP)+ RO
#2,(SP)

2 ;RESTORE RO
2 :ADJUST RETURN PC

000011

4%:

gEn;B

ggT.(SP)

gNHE:B

'5'2"”"5"’

;:BRANCH IF NOT <CRLF>

TST
IZ:EF

(SP)+

;:POP
<CR><LF> EQUIV
;2TYPE A CR AND LF

CLRB
BR
JSR

$CHARCNT
2%
PC,STYPEC

;:CLEAR CHARACTER COUNT
;2GET NEXT CHARACTER
2:G0 TYPE THIS CHARACTER

MoV

$NULL ,~(SP)

:;GET # OF FILLER CHARS. NEEDED
;AND THE NULL CHAR.

000200

065336

5%:

065220

001172

6%:

001170

000001

7%:

065220
065336

TST

RTI

gN"EB

DECB

BLT

JSR

DECB
BR

(SP)+

gILLC.(SPfl

::IF TERMINATOR POP IT OFF THE STACK

: :RETURN

;sBRANCH IF <HT>

..Is IT TIME FOR FILLER CHARS.?
;IF NO GO GET NEXT CHAR.

1(SP)

;:DOES A NULL NEED TO BE TYPED?

PC,STYPEC

2:G0 TYPC A NULL

$CHARCNT
7%

;:BR IF NO=--GO POP THE NULL OFF OF STACK
2:D0 NOT COUNT AS A COUNT
;:LO0P

;HORIZONTAL TAB PROCESSOR
000040
065220
000007

065336

8$:
9%:

MOVB
JSR
BITB
BNE

#' ,(SP)
PC,STYPEC
#7 ,$CHARCNT
9%

TSTB

a$TKS

TST

113734

065236

122716

113730
177600
000023

$TYPEC:

BPL

MOV
BIC

CMPB

(SP)+

;;REPLACE TAB WITH SPACE
::TYPE A SPACE
;sBRANCH IF NOT AT
33
STOP

;:POP SPACE OFF STACK

:2GET NEXT CHARACTER

;:CHAR IN KYBD BUFFER?

108

;:BR IF NOT

#177600,(SP)

::STRIP EXTRANEOUS BITS

as$TKB,-(SP)

WSXOFF, (SP)

*:GET CHAR

*:WAS CHAR XOFF

CZRMOAQ RHOS/B/Z FCTNL TST 3

TYPE ROUTI

001012
113710

113666

113660
000002

TSTB

a$TKS

::WAIT FOR CHAR

a$TKB, (SP)

::GET CHAR

#177600,(SP)

BNE

1018

;:BR IF NOT

(SP)+

::FIX STACK

ggls

%IPS

::WAIT UNTIL PRINTER IS READY

MOVB

2(SP),asTPB

::LOAD CHAR TO BE TYPED INTO DATA REG.

BNE

+:BRANCHIF NO

CLRB

000002

18:

CMPB
BEQ
INCB
$CHARCNT:.WORD
$TYPEX: RTS
.SBTTL

101$

BIC

CMPB

065336
000012

::BR IF NOT

CMPB

102%:

000002
000015

1028

MOVB

005726

SEQ 0262

BNE

BPL

113704
177600
000021

100375

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

#SXON, (SP)

#CR,2(SP)
SCHARCNT

::STRIP IT

$:WAS IT XON?

21 IS cowucren A CARRIAGE RETURN?
;3 YES==CLEAR CHARACTER COUNT

$TYPEX

MLF.2(SP)
$TYPEX
(PC)+
0
PC

SEXIT

+:1S CHARACTER A LINE FEED?
*:BRANCH IF YES
+:COUNT THE CHARACTER
+:CHARACTER COUNT STORAGE

SCOPE HANDLER ROUTINE

—

tt't't'tttfit'tt'tttt't'i'tt'.t'iit'"fi.'tfitt.tttfittttt'."".t'

'THIS ROUTINE CONTROLS THE LOOPING-OF SUBTESTS. IT WILL INCREMENT=

s*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
:*THE SWITCH OPTIONS PROV DED BY THIS ROUTINE ARE:
sxSW14=1
LOOP ON .

SxSW11=1

INHIBIT nemnous

+*SW09=1
:*SW08=1
sxCALL

$SCOPE:

064046
040000

113576

012737

005737
012637
000500
022626
012637
000440

032777
001421

SCOPE

CKSWR

JSR
BIT

BNE

2 :SCOPE=]OT

PC,STOP
#81T14,35WR

SOVER

::TEST FOR CHANGE IN SOF T-SWR
::LOOP ON PRESENT TEST?

*YES IF SW14=1

:MAAANSTART OF CODE FOR THE XOR resrsnmw

$XTSTR: BR

000416

013746

18:

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

000004
065406
177060
000004

000004

000400

113530

::IF RUNNING ON THE 'XOR'‘ TESTER CHANGE

MOV
MOV

@N¥ERRVEC, = (SP)
#5$ , SNERRVEC

..SAVE THE CONTENTS OF THE ERROR VECTOR
..se FOR TIMEOUT

MOV
BR

(SP)+, areanvsc
$SVLAD

..Resroae THE ERROR VECTOR
GO TO THE NEXT TEST

TST

5 $:

000004

cMP

MOV
B8R

an177060

(SP)+,(SP)+

(SP)+ ,@#ERRVEC
78

“THIS INSTRUCTION TO A 'NOP'* (NOP=240)

TIME OUT ON XOR?

*:CLEAR THE STACK AFTER A TIME OUT

;:RESTORE THE ERROR VECTOR
:LOOP ON THE PRESENT TEST

6 $:;ARNANEND OF CODE FOR THE XOR TESTERAA###
BIT
#81T08,aSWR
::LOOP ON SPEC.
BEQ
2s
::BR IF NO

TEST?

CZRMOAO RMO5/3/2 FCTNL ST 3

SCOPE HANDLER ROUTINE

0654
0654

065434
065436
065442
065444
065450
065452
065454
065460
065464
065466
065470
065474
065476
065504

065506
065514
065516
065524
065526
065532
065536
065540
065546
065550
065554

005046
117716
001414
022716
002411
011637
005316
006316
062716
013637
000466
005726
105737
001421
123737
101015

032777
001404
013737
000446
105037
005037
000415
032777
001011
005737
001406

065556
065562
065570
065572
065600
065606
065612
065620
065624
065630
065634
065642
065650
065654
065656

005237
023737
002024
012737
013737
105237
113737
011637
011637
005037
112737
013777
Ci3716
000002
000012

065660

010732

065660
065662
065664
065666
065670
065672
065674
065676
065700
065702
(55704
n- 08
065710
065712

010316
010502
010704
011712
012670
014064
015072
016050
017246
020252
021476
022704
023726

F
.5
MACRO v03.01 11-APR-80 13:39:53 PAGE 38-6

CLR
MOvB

113520
000027
001116

065660
001122
8$:
2%:

001117
001131

001117

001000

113440

001124

001122

001117
001206
004000

48:
113406

001230

001120
001206
000001
065656
001116
001116
001122
001124
001210

000001
001116
001122

7%:

001120
001120
001206
001226

001131
113306

3$:

BEQ
CMP
BLT
MOV
DEC
ASL
ADD
MOV
BR
TST
TSTB
BEQ
CMPB
BHI

BIT
BEQ
MOV
BR
CLRB
CLR
BR
BIT
BNE
TST
BEQ

INC
CMP
BGE
1$:
MOV
MOV
$SVLAD: INCB
MOvVB
MOV
MOV
CLR
MOvB
SOVER:
MOV
MOV
RTI
$MXCNT: 10.

$SWOBTBL:

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

-(SP}
aSWR, (SP)

8$
#27,(SP)
8s
(SP) ,$TSTNM
(SP)
(SP)
#$SWOBTBL,
(SP)
@(SP)+,SLPADR
$OVER
(SP)+
$ERFLG
38
SERMAX , SERFLG
38

#BIT09,aSWR
48
SLPERR,SLPADR
$OVER
$ERFLG
$TIMES
1$
#BIT11,3SWR
1$
$PASS
1$

SEQ 0263

;CLEAR A TEMP. LOCATION
..PICK(P THE DESIRED TEST NUMBER

; JBRANCH IF BAD TEST NUMBER IN SWR
..CHECK THE NUMBER IN THE SWR
sBRANCH IF TEST NUMBER IS OUT OF RANGE
::UPDATE THE TEST NUMBER
..BACKlP BY ONE
SCALE THE TEST NUMBER AS AN INDEX
;;FORM THE ADDRESS OF TEST POINTER
..SET LOOP ADDRESS TO DESIRED TEST
;GO _LOOP ON THE TEST
..CLEAN THE BAD TEST NUMBER OFF OF THE STACK
sHAS AN ERROR OCCURRED?
::BR IF NO
..MX. ERRORS FOR THIS TEST OCCURRED?
:BR IF NO
..LOW ON _ERROR?
:BR_IF NO
::SET LOOP ADDRESS TO LAST SCOPE

..ZERO THE ERROR FLAG
;CLEAR THE NUMBER OF ITERATIONS TO MAKE
::ESCAPE TO THE NEXT TEST
::IMIBIT ITERATIONS?
;BR IF YES
..IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
: :INCREMENT ITERATION COUNT
..CHECK THE NUMBER OF ITERATIONS MADE
;;BR IF MORE ITERATION REQUIRED
..REINITIALIZE THE ITERATION COUNTER
sSET NUMBER OF ITERATIONS TO DO
::COUNT TEST NUMBERS
;;SET TEST NUMBER IN APT MAILBOX
;s SAVE SCOPE LOOP ADDRESS
:;SAVE ERROR LOOP ADDRESS
..CLEAR THE ESCAPE FROM ERROR ADDRESS

$ICNT
STIMES,SICNT
SOVER
#1,SI1CNT
SMXCNT ,STIMES
$STSTAM
STSTNM,STESTN
(SP) ,SLPADR
(SP) ,SLPERR
SESCAPE
#1,SERMAX
sONLY ALLOW ONE(1) ERROR ON NEXT TEST
$TSTNM,aDISPLAY ::DISPLAY TEST NUMBER
SLPADR, (SP)
::FUDGE RETURN ADDRESS
:;FIXES PS
;sMAX. NUMBER OF ITERATIONS
TST1+2
TST2+2
TST3+2
TST4+2
TST5+2
TSTé+2
TST7+2
TST10+2
TST11+2
TST1242
TST13+42
TST14+2
TST15+2
TST16+2

;:STARTING ADDRESS OF TEST 1

: ;STARTING ADDRESS OF TEST 2

:;STARTING ADDRESS OF TEST 3
: ;STARTING ADDRESS OF TEST 4
;s STARTING ADDRESS OF TEST 5

:;STARTING ADDRESS OF
: s STARTING ADDRESS OF
: ;STARTING ADDRESS OF
: ;STARTING ADDRESS OF
: ;STARTING ADDRESS OF
;s STARTING ADDRESS OF
: ;STARTING ADDRESS OF
: ;STARTING ADDRESS OF
: ;STARTING ADDRESS OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

6
7
10
11
1%
1
14
15
16

065714

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

025574

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

.SBTTL
LA

TST17+2
TST20+2
TST21+2
TST22+2
TST23+2
TST24+2
TST25+2
TST26+2
TST27+2

ERROR HANDLER ROUTINE
A

it i

it ittt

SEQ 0264

;:STARTING ADDRESS OF
;s STARTING ADDRESS OF
;s STARTING ADDRESS OF
;s STARTING ADDRESS OF
;s STARTING ADDRESS OF
;s STARTING ADDRESS OF
s ;STARTING ADDRESS OF
;s STARTING ADDRESS OF
;;STARTING ADDRESS OF
it

ittt

TEST 17
TEST 20
TEST 21
TEST 22
TEST 23
TEST 24
TEST 25
TEST 26
TEST 27

ittty

*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
s*AND GO TO ERRTYP ON ERROR
:*THE_SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

S %SW15=1

HALT ON ERROR

s %SW10=1

BELL ON ERROR

'SU‘IS-

INHIBIT ERROR TYPEOUTS

:'gngfl

LOOP ON ERROR

- %

$ERROR:

065740

105237

001117

065746
065754

013777
032777

001116
002000

065764
065770
065774

104401
005237
011637

001212
001126
001132

117737

113120
020000

066000

000002

7%:

1%:

001132
001130
113132

004
004737
104401

037670
001217

066034

122737

000001

001242

113737

001130
070000

066056

005777

113066

066074

032777

001000

04
10
14
16

013716
005737
001402
013716

001124
001210
001210

CKSWR

INCB
BEQ

MOV
BIT

066024
30

066060
066062
066066

ERROR

aan

218:

22%:
2%:

113052

3%:
4%:

BEQ
TYPE
INC

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

;:SET THE ERROR FLAG
;:DON'T LET THE FLAG GO TO ZERO

1%
LSBELL
SERTTL

JNO - SKIP
..RING BELL
;COUNT THE NUMBER OF ERRORS

STSTNM,aDISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG
#BIT10,3SWR
.'.'BELL ON ERROR?

MOV
sus
MOVB
BIT
BNE

(SP) ,$ERRPC
#2 ,8ERRPC
@SERRPC,SITEMB
#BIT13,3SWR
208

TYPE

.SCRLF

JSR

CMPB
BNE
MOVB
JSR

BYTE

;sTEST FOR CHANGE IN SOFT=SWR

$ERFLG
7%

PC,ERRTYP

::GET ADDRESS OF ERROR INSTRUCTION

;;STRIP AND SAVE THE ERROR ITEM CODE
;:SKIP TYPEOUT IF SET
;:SKIP TYPEOUTS
22G0 TO USER ERROR ROUTINE

#APTENV, SENV
2%
$ITEMB,21%
PC,$ATYS

2 ;RUNNING IN APT MODE
2:NO,SKIP APT ERROR REPORT
;:SET ITEM NUMBER AS ERROR NUMBER
; ;REPORT FATAL ERROR TO APT

22%

;:APT ERROR LOOP

..SKIP IF CONT INUE
sHALT ON ERROR!'
..TEST FOR CHANGE IN SOF T-SWR

TST

BIT
BEQ

#81709,aSWR
48

..L
ON ERROR SWITCH SET?
;:BR IF NO

TST
BEQ

SESCAPE
5$

; sCHECK FOR AN ESCAPE ADDRESS
BR IF F NONE
:FUDGE RETURN ADDRESS FOR ESCAPE

BPL
HALT
CKSWR

MOV
MOV

$LPERR, (SP)

$ESCAPE, (SP)

2JHALT ON ERROR

2 :FUDGE RETURN FOR LOOPING
“

Omn

CZRMOAD RMOS5/3/2 FCTNL TST 3
SCOPE HANDLER ROUTINE

CZRMOAO RMOS5/3/2 FCTNL ST 3
ERROR HANDLER ROUTINE
066122

066134

022737
001001

037650

H 5
MACRO v03.01 11-APR-80 13:39:53 PAGE 38-8

000042

5%:

CMP
BNE

HALT

6%:

000002

.SBTTL
Sa LA

RTI
TTY INPUT ROUTINE

s:ACT=11 AUTO-ACCEPT?
.‘:egeNCH IF NO
2 sRETURN

dddddddd ittt
I3 222222223

.ENABL LSB
$TKCNT: .WORD

$TKQIN: .WORD
$TKQOUT: .WORD

$TKQSRT: .BLKB
$TKQEND=.
.EVEN

066145

#SENDAD ,a#42
6%

: sNUMBER OF ITEMS IN QUEUE
;s INPUT POINTER
:;OUTPUT POINTER
;. TTY KEYBOARD QUEUE

O
O

;*TK INITIALIZE ROUTINE

;*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE

;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

:"CALL:
M
B

066140
066142
000060
000062

JSR
RE TURN

$TKINT: CLR

MOV
MOV
MOV

$TKCNT

ggo. a#TKVEC+2

MOV

#100,38TkS

RTS

::CLEAR COUNT OF ITEMS IN QUEUE

#STKQSRT ,$TKQIN ;sMOVE THE STARTING ADDRESS OF THE
$TKQIN, $TKQOUT :;QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRV
, a#TKVEC ssINITIALIZE THE KEYBOARD VECTOR

MOV
TST

112744

PC,S$TKINT

;:"BR" LEVEL 4

::CLEAR DONE FLAG
;;ENABLE TTY KEYBOARD INTERRUPT
J2RETURN TO CALLER

;*TK SERVICE ROUTINE

s*THIS ROUTINE WILL SERVICE 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
:*UPON RETURN EXIT IS MADE TO THE ''CONTROL-C'® RESTART ADDRESS (SHUT2)
066216

117746

112740
177600
000003

$TKSRV: MOVB
BIC

067332
066146

TYPE
JSR
TST

066270
066276

022737
001004

JMP
cMP
BNE
CMP
BEQ

SHUT2
(SP) .47
2%
#SWREG, SWR
63

;:PICKUP THE CHARACTER
;:STRIP THE JUNK
2:I1S IT A CONTROL C?
2 sBRANCH IF NO
;:TYPE A CONTROL=C (*C)
;2 INIT THE KEYBOARD
;:CLEAN UP STACK
2 ;CONTROL C RESTART
2:1S IT A CONTROL G?
:sBRANCH IF NO
2:1S SOFT=SWR SELECTED?
;:G0 TO SWR CHANGE

CMP

#1,8TKCNT
3s

;:1S THE QUEUE FULL?
;JBRANCH IF NO

cMP
BNE

064154
000007

1$:

000176

001154

000001

066136

@$TKB,-(SP)
#°C177, (SP)

(SP) 4%
13

,$CNTLC
PC,STKINT
(SP)+

SEQ 0265

CZRMOAQ WS/:S/Z FCTNL TST 3

TTY INPUT ROUTI

001212
3s:

112636

31s:

112630
112624
177600
000021

066136
000140

32%:

000040
177530
066140
066140

066145

066144

066140

4%:

013746

as$TKS
318
a$TKB,~(SP)

s:WAIT FOR A CHAR
2;LOOP UNTIL ITS THERE
;:GET THE CHARACTER

BNE
MOV

31%
#100,3$TKS

;;BRANCH IF NO
s ;REENABLE TTY KEYBOARD INTERRUPTS

INC

$TKCNT

BLT

2 sBRANCH IF YES

BGT
BIC

43
#40, (SP)

;:BRANCH IF YES
;sMAKE IT UPPER CASE

INC

$TKQIN

RTI

CMP

001154

$CKSWR: CMP

..CLEAN CHARACTER OFF OF STACK

sBRANCH IF NO
::DISABLE TTY KEYBOARD INTERRUPTS

(SP) +

#2177, (SP)
(SP)+, #21

;s CLEAN CHAR OFF STACK

::MAKE IT 7-BIT ASCII
2:IS IT A CONTROL=-Q?

2 JRETURN

2 ;COUNT THIS CHARACTER

(SP) ,#140

;:1S IT UPPER CASE?

(SP) ,#175

;218 IT A SPECIAL CHAR?

(SP)+ a$TKQIN

..Am PUT IT IN QUEUE

;UPDATE THE POINTER

S$TKQIN,#STKQEND ..GO OFF THE END?
5%
JBRANCH
IF NO
#STKQSRT,$TKQIN ..RESET THE POINTER
2 RETURN

AR AR AR A

A A

AR A AR AR AT AR AR

#SWREG, SWR

AR AR AR RA AR

AR AR AR

::1S THE SOFT-SWR SELECTED

BNE
TSTB

158
as$TKS

MOVB

@$TKB,-(SP)

BPL
BIC

cMP
BNE

000001

(SP)+

s *SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE IS ENTERED
FROM THE TRAP HANDLER,
WILL
s*SERVICE THE TEST FOR CHANGE IN SOF TWARE SUITCH REGISTER TRAP
; *CALL WHEN OPERATING IN TTY INTERRUPT MODE.

067344
067351
000176

TSTB
BPL
MovB

TST

000007

066146
112446
00000

JEXIT
..IS IT A CONTROL=S?

RTI

112504
177600

001150

5%
(SP) ,#23
328
a$TKS

CMP
BNE
MOV

112510

123727
001674
005726
004737
005077
112737

BR
CMP
BNE
CLR

MOVB

S$:
e

000176

:sRING THE TTY BELL

CMP

000175

022737

,SBELL

BIC
CMP

11260¢

SEQ 0266

TYPE

TST

000023

000100

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

s ;EXIT IF NOT
::IS A CHAR WAITING?

158

#°C177, (SP)

(SP),47
2$

AR A AR AR A AR AR

*:IF NOT, EXIT
*:YES

S:MAKE IT

7-BIT ASCII

::1S IT A CONTROL-G?
+:1F NOT, PUT IT IN THE TTY QUEUE
S:AND EXIT

AR AR AR AN AR AR AR

AR RN RN AN

'C(NTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
6;C(NTRO%:;'@'BBEING TYPED, AND THE SOFTHARE SWITCH REGISTER BEING SELECTED.

BEQ
TST

$GTSWR:

:;ARE WE RUNNING IN AUTO-MODE?

: ;BRANCH IF YES
:;CLEAR CONTROL-G OFF STACK

CLR
MOvB

as$TKS
#1,8INTAG

::DISABLE TTY KEYBOARD INTERRUPTS
:;SET INTERRUPT MODE INDICATOR

TYPE

.SCNTLG

:;ECHO THE CONTROL=G (*G)

MOV

SWREG, = (SP)

::SAVE SWREG FOR TYPEOUT

JSR

001151

SAUTO08, #1

2%
(SP)+

TYPE

PC,STKINT

$MSWR

::FLUSH THE TTY INPUT QUEUE

s TYPE CURRENT CONTENTS

CZRMOAQ RK)S/'!»/Z FCTNL TST 3

TTY INPUT ROUTI

066534
066536
066542
066544
066546
066552

005046
005046
105777
100375

066554
560

117746
042716

104402
104401

MACRO v03.01 11-APR-80 13:39:53 PAGEJ 33-10

067362

19%:

112406

7%:

112402
177600

TYPOC
TYPE

CLR
CLR
TSTB
BPL

. SMNEW

;:G0 TYPE=--OCTAL ASCIICALL DIGITS)
; sPROMPT FOR NEW SWR
s sCLEAR COUNTER

as$TKS
7$

;sCHAR THERE?
;:IF NOT TRY AGAIN

MovB
BIC

#-C177,(SP)

a$TKB, = (SP)

;:PICK UP CHAR
J:MAKE IT 7-BIT ASCII

(SP) 43
98

;218 IT A CONTROL=C?
2 sBRANCH IF NOT
;:YES, ECHO CONTROL=-C (*C)
;+CLEAN UP STACK
;JREENABLE TTY KEYBOARD INTERRUPTS?

000063
067332
000006
001151
000100
064154

021627
005
104401

=(SP)
=(SP)

LSCNTLC

000001

#6.SP
$INTAG, #1

112340

#100,a8TKS

8%:

JMP

000025

9%:

CMP

067337
000006

20%:

ADD

000015

108:

cMP

000004
000002
000006
001217
001151

000001

000100

112244

SHUT2

(SP) ,#25

108

,SCNTLU

#6,SP
19%

).m5
S
$
SP) ,aSWR
.SP
. SCRLF
$INTAG,
M
158
#100,3$TKS

112266

065220
000060

PC.STYPEC
(SP) ,#60
18%

000067

(SP) 467
188

000060
000002

000002
177776

17%:

001216

18%:
.DSABL

SEQ 0267

INC
BR
TYPE
BR
LSB

;;THE NEW SWR

;sBRANCH IF NO

;;ALLOW TTY KEYBOARD INTERRUPTS
;s CONTROL=C RESTART

;:1S IT A CONTROL=-U?
;s sBRANCH IF NOT
22YES, ECHO CONTROL=U (*U)
;s IGNORE PREVIOUS INPUT
J:LET'S TRY IT AGAIN
2218 IT A <CR>?

IF NO
:sBRANCH

22YES, IS IT THE FIRST CHAR?
..BRANCH IF YES
;:SAVE NEW SWR
;:CLEAR UP STACK
JsECHO <CR> AND <LF>
2 sRE-ENABLE TTY KBD INTERRUPTS?
:sBRANCH IF NOT
2 JRE-ENABLE TTY KBD INTERRUPTS
2 :RETURN

:2ECHO CHAR
;:CHAR < 0?
;;BRANCH IF YES
J:CHAR > 7?
;;BRANCH IF YES
;:STRIP-OFF ASCII
2:1S THIS THE FIRST CHAR
;;BRANCH IF YES
2:NO, SHIFT PRESENT
;2
CHAR OVER TO MAKE

;22

-2(SP) (SP)
soues

208

ROOM FOR NEW ONE.

..KEEP COUNT Of CHAR
;2SET IN NEW CHAR
;2GET THE NEXT ONE
JsTYPE ?2<CR><LF>
2 :SIMULATE CONTROL=-U

CZRMOAO RMOS5/3/2 FCTNL ST 3

TTY

INPUT ROUTINE

K .5
MACRO v03.01 11-APR-80 13:39:53 PAGE 38-11
ML

A AR Al

dad

it ittt
ittt
T

:'EHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

s*=CALL:

000002

RETURN HERE

$RDCHR: MOV

1$:

066145
28:

(SP) ,=(SP)

::GET A CHARACTER FROM THE QUEUE

::CHARACTER IS ON THE STACK

:;WITH PARITY BIT STRIPPED OFF

::PUSH DOWN THE PC AND

MOV

4(SPJ,2(SP)

MOV

#64$,=(SP)

gg;

gxcm

::WAIT ON A CHARACTER

DEC
MOVB

$TKCNT
@$TKQOUT,4(SP)

:DECREMENT THE COUNTER
..GE ONE CHARACTER

CLR
CLR

066142

RDCHR

RTI

INC
cMP
BNE
MOV
RTI

4(SP)
-(SP)

::THE PS

*:GET READY FOR A CHARACTER
“:PUT NEW PS ON STACK

*:PUT NEW PC ON STACK

*:POP NEW PC AND PS

$TKQOUT
*UPDATE THE POINTER
$TKQOUT,#$TKQEND ..oxo IT GO OFF OF THE END?
2s
: :BRANCH IF NO
#STKQSRT,$TKQOUT :;RESET THE POINTER
: RETURN

ttttittttttttttttttttit'ttttttt.tttQtttttttfittttttt'fi'tt'tt'tfifi

'wj ROUTINE WILL INPUT A STRING FROM THE TTY

i
i

RDL IN
RETURN HERE

$RDLIN: MOV

1%
2

067322
067332

CLR
MOV
CMP

BLOS

RDCHR

108:

000177

000134
067320
177777

067320

5%:
000134
067320

067202

122713

000025

067320

(SP)+,(R3)

+:CLEAR THE RUBOUT KEY
*:GET ADDRESS
::BUFFER FULL?
::BR IF YES
:GO READ ONE CHARACTER FROM THE TTY

*:GET CHARACTER

“:IS IT A RUBOUT

(SP)

+:1S THIS THE FIRST RUBOUT?

BNE

“:BR IF NO

BNE
MOVB

6%
#'\,9%

;:BR IF NO
*:TYPE A BACK SLASH

DEC
cMP

R3
R3,#STTYIN

BACKLP BY ONE
..STACK EMPTY?

MOVB

(R3),9%

..SETLP TO TYPEOUT THE DELETED CHAR.

.98

:BR IF YES

TYPE
B8R

9%
2

:GO TYPE
::G0 READ ANOTHER CHAR.

BEQ
MOVB

78
#'\.9%

:BR IF NO
S:TYPE A BACK SLASH

CLR
CMPB

(SP)
#25.(R3)

::CLEAR THE RUBOUT KEY
+:1S CHARACTER A CTRL U?

TYPE

78:

::SAVE R3

#177.(R3)

BLO

067320
067320

-(SP)
#STTYIN,R3
#STTYIN+8.,R3

::TERMINATOR WILL BE A BYTE OF ALL 0'S

CMPB

TYPE

067322

MOVB

R3,-(SP)

::INPUT A STRING FROM THE TTY
:;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

(SP)

.98

..Rwour KEY SET?

SEQ 0268

CZRMOAO RMOS5/3/2 FCTNL TST 3

TTY INPUT ROUTINE

MACRO v03.01 11-APR-80 13:39:53 PAG'E 33—12

067337
8%:

000022

8%
$CNTLU
is
#22,(R3)
3s

TYPE
TYPE

.SCRLF
gTTYIN

001216

4$:

067320
0673270
0000153

3s:

177777
001220

B8R

TYPE

$QUES

TYPE

MOvB

(R3),9%

CMPB
BNE
CLRB

#15,(R3)+
2%
=1(R3)

MOV
MOV
MOV
MOY

(SP)+,R3
(SP) ,=(SP)
4(SP) ,2(SP)
#STTYIN,4(SP)

TYPE
TST

000002
000004
9%:

103
125
107
012

(R3)

CLRB

001217
067322

000004
067322

BNE
TYPE
B8R
C(MPB
BNE

015
015
015
123
116

.SLF
(SP)+

.BYTE
.BYTE
S$TTYIN:
KB
$CNTLC: LASCIZ
S$CNTLU: LASCIZ
$CNTLG: ASCIZ
SMSWR:
ASCIZ
SMNEW:
ASCIZ
.EVEN
.SBTTL

AR A

SEQ 0269

;:BR IF NO
;sTYPE A CONTROL 'V’
2:G0 START OVER
2:1S CHARACTER A '“R'%?
2 JBRANCH IF NO
;sCLEAR THE CHARACTER
J:TYPE A '"CR'' £ 'LF"

;;TYPE THE INPUT STRING

2:G0 PICKUP ANOTHER CHACTER
JsTYPE A *'?°
;;CLEAR THE BUFFER AND LOOP
s sECHO THE CHARACTER
;3CHECK FOR RETURN
::LOOP IF NOT RETURN
;sCLEAR RETURN (THE 15)
J:TYPE A LINE FEED
+sCLEAN RUBOUT KEY FROM THE STACK
:2RESTORE R3
+sADJUST THE STACK AND PUT ADDRESS OF THE
33
FIRST ASCII CHARACTER ON IT
: :RETURN

0
:sSTORAGE FOR ASCII CHAR. TO TYPE
0
s : TERMINATOR
8.
:;RESERVE 8 BYTES FOR TTY INPUT
/7%C/<15><12>
; sCONTROL ‘''C"'
/7*U/<15><12>
:CONTROL 'V’
/7%G/<15><12>
: CONTROL 'G'*
<15><12>/SWR = /
/ NEW =/

READ AN OCTAL NUMBER FROM THE TTY
Attt

ittt

gt ittt
I I
21

MOV
MOV
MOV
MOV
MOV

SEENTRE 2

8
9ze9239
VNSO
O

& S8R

PP
P
> o288

:*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
s*CHANGE IT TO BINARY.
s*CALL:
. %
RDOCT
:;READ AN OCTAL NUMBER
RETURN HERE
:;LOW ORDER BITS ARE ON TOP OF THE STACK
;;HIGH ORDER BITS ARE IN SHIOCT
000004 000002

RDLIN

2%:

MOV
CLR
CLR
MOvB
BEQ
ASL
ROL
ASL

(SP) ,~(SP)
4(SP),2(SP)
RO,~(SP)
R1.=(SP)
R2,-(SP)
(SP)+,RO

R1
R2

(RO)+,-(SP)

R1
R2
R1

::PROVIDE SPACE FOR THE
T NUMBER
¥
J2PUSH RO ON STACK
::PUSH R1 ON STACK

2:PUSH R2 ON STACK

;2READ AN ASCIZ LINE
;.GET ADDRESS OF 1ST CHARACTER
2:CLEAR DATA WORD

;:PICKUP THIS CHARACTER
.'.'.F ZERO GET ouT
HL

S ——————

CZRMOAQD RMOS5/3/2 FCTNL TST 3

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

READ AN OCTAL NUMBER FROM THE TTY

067436
067440
067442
067446

177770

;28

ASL
ROL

R1
R2

#%C7,(SP)
2(’S'sfl")*.R‘l

s:STRIP THE ASCII JUNK
::tDD IN THIS DIGIT

TST

(SP)+

s :CLEAN TERMINATOR FROM STACK
;sSAVE THE RESULT

BIC
ADD
38:

MOV
MOV
MOV
MOV
MOV

[N J w

R1,12(SP)
R2,$HIOCT
(SP)+,R2
(SP)+,R1
(SP)+,RO

RTI

::POP STACK INTO R2
:sPOP STACK INTO R1
;:PG,USUBACK INTO RO
s :RET

$HIOCT: .WORD
0
.SBTTL
TRAP DECODER

SEQ 0270 |

il d

:sHIGH ORDER BITS GO HERE
ittt

121222222122 232223

¢*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'‘TRAP'' INSTRUCTION

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:*GO TO THAT ROUTINE.
$TRAP:

067514
000002

MOV

BIC

MOV
1$:

s ;ASSUME THE STATUS OF

#1$,-(SP)

:: THE CALLER--DO NOT ALLOW

MOV
MOV

RO,=(SP)

2(SP) ,RO

;2 T=BIT TRAPS
;:SET THE NEW STATUS
:SAVE RO
:sGET TRAP ADDRESS

MOVB

(RO) ,RO

*:GET RIGHT BYTE OF TRAP

RTI

TST

067550

2(SP) ,-(SP)

#20, (SP)

=(R0)

ASL

RTS

MOV

$TRPAD (RO) ,RO

¥ BACKUP BY 2

*:POSITION FOR INDEXING
**INDEX TO TABLE
::G0 TO ROUTINE

::THIS IS USE TO HANDLE THE '‘GETPRI'‘ MACRO
000004 000002

$TRAPZ2: MOV

MOV
RTI

.SBTTL

(SP) ,~(SP)
4(SP) ,2(SP)

::MOVE THE PC DOWN
::MOVE THE PSW DOWN
; ;RESTORE THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

067536

ROUT INE

$TRPAD:

.WORD
$TYPE

$TRAP2

064334
064260

s sCALL=TYPE
2sCALL=TYPOC
2 :CALL=TYPOS
2sCALL=TYPON
2 sCALL=TYPDS
2 sCALL=TYPBN

TRAP+1(104401)
TRAP*%( 1 04405)
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

066524

;s CALL=GTSWR

TRAP+7(104407)

GET SOFT-SWR SETTING

064
064560

$TYPOC

T L NEC i

;*BY THE "'TRAP"' INSTRUCTION.

CZRMOAQ RMOS5/3/2 FCTNL ST 3

TRAP TABLE

067572
067576
067600
" 067602

N_5
MACRO v03.01 11-APR-80 13:39:53 PAGE 38-14

066434
066776
067066
067374
064164
064222

.SBTTL
S RARAA

067604
067612

7620

012737
012737

067744
000340

000024
000026

$CKSWR ;;CALL=CKSWR
TRAP+10(104410)
SRDCHR ;;CALL=RDCHR
TRAP+11(104411)
SRDLIN ;;CALL=RDLIN
TRAP+1§(10“1§)
SRDOCT
;. CALL=RDOCT
TRAP+13(104415)
$SAVREG ;.CALL=SAVREG
TRAP+14(104414)
$R ESREG ;;CALL=RESREG
TRAP+15(104415)
POWER DOWN AND UP ROUTINES

#340, SPURVEC+2 ; :PRIO:7
RO, -(SP)

;:PUSH RO ON STACK

R2.-(SP)

::PUSH R2 ON STACK

R4 .-(SP)

000024

.2
SRR A A AR AR AN AR

AR A A AR AR R AN AAARAAAAAAAA AR

2:0F

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

;:POP STACK INTO R2
;:POP STACK INTO R1

(SP)+.RO

$SAVR6:
$POWER:
.SBTTL

112737
112737
000403
112737

070006

010046

000001
000001

070226
070224

000001

070226

WORD

..P(P STACK
::POP STACK
2:POP STACK
;:POP STACK

INTO aSWR
INTO RS
INTO R4
INTO R3

::POP_STACK INTO RO

§A7v1

:;POWER FAIL MESSAGE POINTER
;:THE POWER UP SEQUENCE WAS STARTED

o=e

ss BEFORE THE POWER DOWN WAS COMPLETE
::PUT THE SP HERE

LASCIZ
<15><12>' POWER""
.EVEN
APT COMMUNICATIONS ROUTINE

SRAARA AR A AR AR AN AR

067762
067770
067776
070000

:REPORT THE POWER FAILURE

$POWER

SILLUP:

AR AR A AR AR AR AR

#SPWRDN, @#PWRVEC” : :SET UP THE POWER DOWN VECTOR
#340, MMPWURVEC+2 ;:PRIO:7

000024
000026

120

;:PUSH R4 ON STACK

; sHANG UP

(SF)+,aSWR
(SP)+ RS
(SP)+ R4
(SP)+,R3

SPWRMG:

012

;:PUSH R3 ON STACK

POUER UP ROUTINE
$PWRUP: MOV
#SILLUP ,a#PWRVEC ..SETSFM FAST DOWN
chET
MOV
3 sSAVRb SP
$SAVR6
;J2WAIT LOOP FOR THE TTY
CLR
1%:
INC
$SAVR6
;;WAIT FOR THE INC

111246

067604
000340

2:PUSH R1 ON STACK

RS,=(SP)
::PUSH RS ON STACK
GS\R -(SP)
..PUSH aSWR ON STACK
SP.SSAVRb
;SAVE SP
#5PWRUP, MPHRVEC ..SET UP VECTOR

111314

000024

RESTORE RO-R5 ROUTINE

AR A AR AR AR AR AR AR AT AR AR AAAAAAAAAAAAAAAAAA
AR AR AR AR AR RN

R3,-(SP)

067744
067750
067750
067750

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
SAVE RO-R5 ROUTINE

POUER DOWN ROUTINE
$PWRDN:
#SILLUP ,#PWRVEC ;;SET FOR FAST UP
\

1.-(SP)

067750
067656

SEQ 0271

AR AR A AR

AAAA A AN

ARAAAAAA

AR AR

MOVB
MOvB
BR
MOovB

#1,8FFLG

::TO REPORT FATAL ERROR

#1,8FFLG

::TO ONLY REPORT FATAL ERROR

MOV

RO,=(SP)

::PUSH RO ON STACK

:liggrLG

1:TO TYPE A MESSAGE

€z
ER

APT COMMUNICATIONS ROUTINE

070010 o1o1

MOV

070012

105737

070224

122737

000001

001242

070030

132737

000100

001243

070016 001450

..opmnus UNDER APT?

BITB

#APTSPOOL,SENVM-: 2 SHOULD SPOOL MESSAGES?

001236

BNE
SuB

28
$MSGAD, RO

::SUB START OF MESSAGE

|
1

010037 001240
012737 000004
000413
017637 000004
062766 000002
013746 177776

MOV
MOV
BR
MOV
ADD
MOV

RO, SMSGLGT
#4 . SMSGTYPE
(1
34 (SP) 48
#2,4(SP)
177776,-(SP)

L.WORD

TSTB
BEQ

SFFLG
12%

;:SHOULD REPORT FATAL ERROR?
::IF NOT:
BR

BEQ

128

*IF NOT:

000004

105720

006200

105737
001416

070226

070152

001413

070224
070225
070226

FAPTENV,SENV

|
z
g
:
|

070140
070144

070216
070220
070222

CMPS

*IF NOT:
:GET msme ADDR.
::BUMP RETURN ADDR.
;:SEE IF DONE W/ LAST XMISSION?
::IF NOT: WAIT
::PUT ADDR IN MAILBOX

065006

070202
070206
070212

BEQ

3s
@4 (SP) ,RO
#2,4(SP)
$MSGTYPE
18
RO, SMSGAD

004737

070154
070160
070162
070170
070176

2:SHOULD TYPE A MESSAGE?

BEQ
MOV
ADD
ST
BNE
MOV

8778123 000000
070146

SMFLG

001376
163700

070132

TSTB

::IF NOT:

070066
070070
070076
070102
070110
070112
070120
070126

: ;PUSH R1_ON_STACK

001425
017600 000004
062766 000002
005737 001222
001375
010037 001236

070074

SEQ@ 0272 ' .

070036
070040
070044
070052
070056
070060
070064

R1,~(SP)

:IF NOT:

070026 001031

MACRO v03.01 11-APR-80 13:39:53 PAGE8 33‘15

005737

001242

005737
001375
017637
062766
005237

001222

105037
105037
105037

012601
012600
000207

000
000
000

000200
000001
000100
000040

000004
000002
001222

070226
070225
070224

BNE

18:
2s:

1STB

ASR

001222

070136
000004

3$:

(:108:

JSR

TST

118:

001224
000004
128:

$SMFLG:
SLFLG:
$FFLG:

(RO)+

PC,STYPE

SENV

TST
BNE
MOV
ADD
INC

SMSGTYPE
118
4 (SP) SFATAL
#2.,4(SP)
SMSGTYPE

MOV
MOV

(SP)+,R1
(SP)+.RO
PC

CLRB
CLRB
CLRB

RTS

.BYTE
.BYTE
.BYTE

APTSIZE = 200
APTENV = 001
APTSPOOL= 100
APTCSUP = 040

S$FFLG
SLFLG
SMFLG

0
0
0

::FIND END OF MESSAGE

:;GET MESSAGE LNGTH IN WORDS

{

+:PUT LENGTH IN MAILBOX
::TELL APT TO TAKE MSG.

|
g
|
,
|
||

::PUT MSG ADDR IN JSR LINKAGE
-BUMP RETURN ADDRESS
::PUSH 199776 oN STACK
::CALL TYPE MACRO

;
z
|

..Ruwmc UNDER APT?

*:FINISHED LAST MESSAGE?
S:IF NOT: WAIT
;:GET ERROR #
:BUMP RETURN ADDR.
;5 TELL APT TO TAKE ERROR

|
;
;
|

;

“CLEAR FATAL FLAG
+:CLEAR LOG FLAG
::CLEAR MESSAGE FLAG

|
;
.

::MESSG. FLAG
::L0G FLAG
1 :FATAL FLAG

i
|
|

+:POP STACK INT R1
::POP STACK IN.O RO
: *RETURN

|
|
|

!
|
,
i

Mflj

CZRMOAOD RMO5/3/2 FCTNL TST 3

CONSOLE MESSA

$4070310
070230

§ 070327
6070331
7070336
8 070342
9 070345
10 070433
11070521
1209607
13000671

14 070722
15070722
16 070755
17 071010
18 071026
19071070

20 071110
21 071144
22 071156
23 071207
2 071210
25071275
26 071352
27 071353
28 071374
29 071410
30 071416
31071436
32071453
33071472
% 071504

200

MACRO v03.01 11-APR-80 13:39:53 PAGEC 33
.SBTTL

CONSOLE MESSAGES

106

101 SCTMSG: LASCII

101
040
05
200
200
200
200
200

114
077
040
126
120
103
127
126

114
040
000
117
101
117
110
131

200
200
200
040
126

103
125
102
114
105

114
122
114

110
123
125
111
103

111
040
111

200
200
200
040
200
104
040
040
040
040
060

124
101

131
116

077
104
122
111
116
116
117
117

111
122
111
123
117
117
106
116

200
075

040
102
040

1
000

116

LASCIZ

EQUALS s
ALL:
LASCIZ
QUES:
COMMA :
LASCIZ
MSHELP : JASCII

UBUSQST:

CNSLOO :
CNSLOT :
CNSLO2 :
CNSLO3 :

CNSLO% :
CNSLOS :
CNSLOG :
CNSLO7 :

CNSLO8 :
CNSLO9 :
MSDRVS :
MSGDRV :
LODEV:
NOTPRS :
NOTAVL :
OFFLIN :
ONLINE :

.EVEN

SEQ 0273

<ASCII
LASCII
«ASCII
.ASCIZ

.ASCIZ

<CRLF>QFAILED TO RECOVER THE BAD SECTOR FILE (DEC 144)d
<CgLF>304 THIS DRIVE®

@ALLa<CRLF>
a’a

@ ., o

<CRLF>3TO

:
ENSURE THAT NO

BAD HEADERS ARE LEFT

<CRLF>aPACK,
THIS PROGRAM SHOULD BE HALTED BY TYPING A (“C)a
<CRLF>@CONTROL C.
AS A RESULT,
THE PROGRAM WILL
BE HALTEDa@
<CRLF>@WHEN THE DRIVE UNDER TEST HAS COMPLETED TESTING.@<CRLF>
<CRLF>QTYPE HELP TEXT (Y/N) ? @
<CRLF>3CHANGE ADDRESSES (Y/N) ? @

JASCIZ
JASCIZ
JASCIZ
.ASCIZ
JASCIZ
.ASCIZ
JASCIZ
JASCII

<CRLF>3USE SAME DEVICES (Y/N) ? @
<CRLF>aBUS ADDRESS a
@ LIMITS = LO= 160000, HI= 17XXXX@<CRLF>
@VECTOR ADDRESS @
@ LIMITS = LO= 0, HI= 10008<CRLF><LF>
@BR LEVEL @
@ LIMITS = LO= 0, HI= 7@<CRLF><LF>
<CRLF>

JASCII
JASCIZ
JASCIZ
.ASCIZ

<CRLF>
@ ?ILLEGAL INPUTQ@<CRLF>
<CRLF>/DRIVE(S): /
/DRIVE/

JASCIZ
JASCIZ
JASCIZ
.ASCIZ

/
/
/
/

LASCII
.ASCIZ

.ASCIZ

ON THE DISKa

<CRLF>QTYPE '‘A’* TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a
<CRLF>QIAND TERMINATE INPUT WITH A CARRIAGE RETURN.a

/ IS _LOAD DEVICE/
NOT PRESENT/
NOT AVAILABLE/
OFF LINE/
ON LINE /

meo

CZRMOAQ WS/éég FCTNL TST 3

SEQ 0274 |

.SBTTL

NS W

FUNCTION CODE TABLE

MACRO v03.01 11-APR-80 13:39:53 PAGED 48
:THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR

FUNCTION CODE TABLE

EACH FUNCTION CODE.

BIT USAGE IS AS FOLLOWS:

WN = OV

:BIT 15 IS ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.

NOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH
;1T IS NOT EXPECTED AS A RESULT OF THE COMMAND.
-~

WCE = BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

—d

=3 VO NN

d e

D e

ATA
= BIT 15 IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF ATA SHOULD BE CET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE,

OP] = BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

d e

IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

—

IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

WLE = BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
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 FUNCTiON 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

: COMMAND .

SMXF, BT,

THE

THE ERR(RS ENABLED BY THIS BIT ARE "TRE'', "DLT'’, "NEM',
"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 ‘MCRC'', ‘MCE'', 'FER'', AND 'BSE'".

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTI(N OF THAT

:COMMAND.

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

.WORD

“ECH"".

IS NOT USED.

ILF = BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL.

FNCDTB:

020000

THESE ERRORS INCLUDE 'MDPE‘’, 'DCK'’,

sFUNCTION CODE TABLE

OPI

sNOP

me
|

CZRMOAQ RMOS5/3/2 FCTNL TST 3

FUNCTION CODE TABLE

071520
59 071522
071524

6] 0715;8
0715
63 071532

64 071534
65 071536
66 071540
67 071542
68 071544
69 071546
70 071550
71 071552
72 071554
73 071556
74 071560
75 071562
76 071564
77 071566
78 071570
79 071572
80 071574
81 071576
82 071600
83 071602
84 071604
85 071606
86 071610
87 071612
88 071614
89

130001
132000
130000

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

SEQ 0275

.WORD
.WORD
.WORD

OPI!ATA!ILF!IVC
ATA!OPI!IVC!IAE
ATA!OPI!IVC
OPI

s ILLEGAL FUNCTION (2)
s SEEK
sRECAL IBRATE
;DRIVE CLEAR

130000
130000
020000
020000
130001
130001
132000
130001

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

OPI!ATA!IVC
OPI!ATA!IVC
OPI
OPI
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
ATA!OPI!IVC!IAE
OPI!ATA!ILF!IVC

sOFFSET
sRETURN TO CENTERLINE
sREAD IN PRESET
sPACK ACKNOWLEDGE
sILLEGAL FUNCTION (24)
sILLEGAL FUNCTION (26)
: SEARCH
sILLEGAL FUNCTION (32)

130001
130001

.WORD
.WORD

OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC

sILLEGAL FUNCTION (36)
sILLEGAL FUNCTION (40)

020000
030000

130001

130001
130001
130001
073300
073300
130001

130001
037200
037000
130001
1
1
033300
033300
130001

130001

.WORD
.WORD

.WORD

OPI!IVC

OPI!ATA!ILF!IVC

sRELEASE

sILLEGAL FUNCTION (34)

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

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

sILLEGAL FUNCTION (42)
sILLEGAL FUNCTION (44)
;ILLEGAL FUNCTION (46)
sWRITE CHECK DATA
sWRITE CHECK HEADER AND DATA
sILLEGAL FUNCTION (54)

.WORD

OPI!ATA!ILF!IVC

sILLEGAL FUNCTION (76)

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

OPI!ATA!ILF!IVC
OPI!IVC!WLE!IAE'!AOE'HCE
OPI!IVC!WLE!IAE'AOE
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!IVC!IAE!AOE!HCE'!ECH
OPI!IVC!IAE!AOE'!HCE'ECH
OPI!ATA!ILF!IVC

sILLEGAL FUNCTION (56)
;WRITE DATA
;WRITE HEADER AND DATA
sILLEGAL FUNCTION (64)
sILLEGAL FUNCTION (66)
sREAD DATA
sREAD HEADER AND DATA
sILLEGAL FUNCTION (74)

ATTENTION (ATA) TABLE

;
5 071616

4 071617

5 071620
6 071621
7 071622

8 071623
9 071624
}? 071625

SEQ 0276

.SBTTL
001

002

004
010

020

040
100
200

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

ATNTBL:

ATTENTION (ATA) TABLE
.BYTE

BYTE

.BYTE
.BYTE

4.
8.

.BYTE
.BYTE
.BYTE

32.
64.
128.

.BYTE

16.

CZRMOAD RMOS5/3/2 FCTNL TST 3

DATA PATTERN TABL

G 6
MACRO v03.01 11-APR-80 13:39:53 PAGE & 2
.SBTTL

71650

o
NNNNYN

Ng—n-n—n_a_a-)-a-b-n_o
=SOVONOWVSWN=O

RGDTPT:
MIXED:

22 071670
23 071672
24 071674
25 071676
26 071700
27 071702
28 071704
31 071712
32 071714
33 071716
34 071720
35 071722
36 071724
37 071726
38 071730
39 071732
40 071734
41 071736

42 071740
43 071742
44 071744
45 071746

46 071750
47 071752
48 071754
49 071756

57 071776

ONES:

ZEROS:

DATA PATTERN TABLE

.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

3.
7.
15.
31.
63.
127.
255.
511,
1023.
2047.
4095.
8191.
16383.
32767.
65535.
65535.
32767.
16383.
8191.
4095
2047.
1023.
511.
255.

.WORD
.WORD
.WORD
.WORD
.WORD

63.
31,
15.
7.
3.

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

1.
0.
0.
1.
2.
4.
8.
16.

.WORD

64.

.WORD

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

32.

128.
256.
512,
1024.
2048.
4096.
8192
16384.
3276

SEQ 0277

mem

CZRMOAQD RMO5/3/2 ECT& ST 3

CZRMOAO RMOS5/3/2 FCTNL TST 3

DATA PATTERN TABLE

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

20000

.WORD

8192

60 07
61 07
62 072010
63 072012
64 072014

004000
002000
001000
000400
000200

.WORD
.WORD
WORD
.WORD
.WORD

2048
1024.
5
256.
128.

0
67 072022
68 072024

000040
000020
000010

WORD
.WORD
.WORD

32.
16.
8.

71 072032
72 072034

000001
000000

.WORD
.WORD

1.
0.

76 072040
75 072042
76 072044
77 072046

177776
177774
177779
177760

59 072002

65 072016

69 072026
072030

73 072036

010000

WORD

000100

.WORD

000004
000002

.WORD
.WORD

177777

.WORD

.WORD
.WORD
.WORD
.WORD

64.

4.
2.

65535.

65534.
65532.
65528.
65520.

177740
177700
177600

.WORD
.WORD
.WORD

65504.
65472
65408.

82 072060
83 072062
84 072064
85 072066
86 072070

177000
176000
174000
170000
160000

.WORD
.WORD
.WORD
.WORD
.WORD

65024.
64512
63488.
61440.
57344.

88 072074
89 072076
90 072100

100000

.WORD
WORD
WORD

94 072110
95 072112
9 072114
97 072116
98 072120
99 072122
100 072124
101 072126
102 072130
103 072132
104 072134
105 072136
106 072140
107 072142
108 072144
109 072146
110 072150
111 072152
112 072156
113 072156
114 072160

170000
174000
176000
177000
177400
177600
1777
177740
177760
177770
177774
177776
177777
125252
152525
125252
17777
177776
177775
177773
177767

140000

.WORD

EARLY:

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

SEQ 0278

096.

78 072050
79 072052
80 072054

87 072072

49152.

32768.
.

61440.
63488.
64512.
6502¢4.
65280.
65408.
65472.
65504.
65520.
65528.
655
65534
65535.
436
43690./2

65535.
65534.
65533.
65531.
65527.

CZRMOAOD RMOS5/3/2 FCTNL TST 3

DATA PATTERN TABLE

072162
72164
72166
1

072242

40 072244
141 072246
142 072250
143 072252
}22 072254

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

177757

177737
177677
177577

177767

177773
177775
177776
177777

ENRGDT:

SEQ 0279

mTM

CZRMOAOQ RMOS5/3/2 FCTNL TST 3

ERROR MESSAGE TABLE

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

3 072254
& 072260
S 072266
6 072274

076650
076717
076717
2

000000
076734
076777
077072

000000
000000
000000

7 072302

077042

077204

000000

9 072316

101631

103671

000000

8 072310

103644

101063

10 072324
11 072330
12 072334
13 072342
14 072354
15 0
16 072370
17 072400
18 072410
19 072420

077246
077320
077414
077246
077246
077246
077246
077246

077257
077331
101063
077477
077522
536
077564
077613

21 072440
22 072450
23 072460
26 072470
25 072500
26 072510
27 072520
28 072530
072540
30 072550
31 072560
32 072570
33 072600
3% 072610

077246
077246
077246
077246
077246
077246
077246
077246
077246
077246
077246
077246
077246
101147

077672
077721
077750
077776
100047
100076
100125
100153
100202
100230
100257
100306
100361
077454

20 072430

35 072616
072626
37 072640

38 072650

077137
077204

077246

101335
103137
100453
101374

077630

000000

077342
077651
077
077
077651

077651
077662
077
077662
077662

077662

077
077662
077662
077
077662
077
077662
077662

.SBTTL

ERROR MESSAGE TABLE

EMT1:
EMT2:
EMT3:
EMT4:

.WORD
.WORD
.WORD
.WORD

EMT6:

.WORD

EMT10:
EMT11:
EMT12:
EMT13:
EMT14:
EMT1S:
EMT16:
EMT17:
EMT20:
EMT21:

.WORD
.WORD

EMTS

EMT7:

EMT22:
EMT23:
EMT4:
EMT25:
EMT26:

EMT27:

EMT30:
EMT31:
EMT32:
EMT33:
EMT34:
EMT35:
EMT36:
EMT37:
EMT40:

103046
103147
100567

101343
101271
101343

EMT41:
EMT42:
EMT43:

100567

101343

EMT44:

EMS1,0
EMS2.EMS3,0
ensz.Ensl..o
7
0

WORD

enss.;nsm.o

.WORD

EMS110.EMS170.0

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

EMS11.EMS12.0
EMS13.EMS14.EMS15.EMS16.0
E"W’E 64.0
EMS11.EMS21.0
EMS11.EMS22.EMS27.0
EMS11.EMS23.EMS30.0
EMS11.EMS24.EMS30.0
EMS11.EMS25.EMS27.0

.WORD
.WORD

.
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD
.WORD
.WORD
.WORD

EMS167,EMSé4
.0

EMS11.EMS26.EMS27.0
EMS11.EMS31.EMS30.0
EMS11.EMS32.EMS30.0
EMS11.EMS33.EMS30.0
EMS11.EMS34.EMS30.0

EMS11.EMS3S.EMS30.0

EMS11.EMS36.EMS30.0
EMS11.EMS37.EMS30.0
EMS11.EMSL0.EMS30.0
EMS11.EMS41.EMS30.0
EMS11.EMS42.EMS30.0
EMS11.EMS43.EMS30.0
EMS11.EMS44.EMS30.0
EMS11.EMS4S.EMS30.0
EMS66.EMS20.0

.WORD
.WORD
.WORD

EMS75.EMS141,EMS76.0
EMS144, EMS145.EMS72.EMS76.0
EMS47,EMSS3.EMS76.0

.WORD

EMS77.EMS53.EMS76.0

39 0

101422

100567

101343

EMT4S:

.WORD

EMS100.EMS5S.EMS76.0

41 072

101101

101063

000000

EMT47:

.WORD

EMS6S5,EMS64.0

EMT51:

.WORD

40 072670
42 072706

101450

100567

101343

43 072716

0
077246

077342

100424

101035
077662

45 072746
46 072764

100453
100502

100567
100567

101217
101217

072730

100453

100567

101217

EMT46:

EMTSO:

EMT52:

EMTS6:

.WORD

103111

100567

EMT5S:

49 073026

103644

101301

101217

gg 3%075

103025

101217

56 073110

103232

103274

103603

101525

073034
51 073052

gg 073130

073150

57 073162

100652
101256

100557

103603

101271

101217
100652

104271

101525

.WORD

.WORD
.WORD

103074
100531

.WORD

EMT53:
EMTS4:

47 0727764

073006

.WORD

EMS101.EMS53.EMS76.0

EMS13.EMS15.EMS63.0

EMS11.EMS46.EMS30.EMS67.0

EMS47.EMSS3.EMS67.EMS115,EMS140,EMS141.0

EMS47.EMSS3.EMS67.EMS115.EMS141.EMS164
.0
EMSSO EMS53
7

.WORD

EMS142,EMS143,EMSS3.EMS67.0

EMTS7:

.WORD

EMS167,EMS7S.EMS6?.0

102031

E:}

.gg

EMS140,EMS67, EMS115,E
. EMS70.0
MSL?

101244

104452

EMT64:
EMT65:

.WORD
.WORD

EMS150,EMS152,EMS70,EMS115,EMSS6.EMS73.EMS67.0
EMSS52,EMS205,EMS214.EMS206.EMS115,EMSST,EMS73.0

101271

EMT67:

.WORD

101217

102031
101217

101271

EMT60:
EMT61:

EMT66:

.WORD
.WORD

.WORD

EMSS1,EMS72,EMS67.EMS115,EMSS0,EMS70.0

EMSS6,EMS67,EMS115.EMS150,EMS152,EMS70.0
EMS71.EMSS6.EMS67,EMS115,EMS150,EMS152 EMS72.0

EMS165.EMS105.EMS72 EMS124
.0
EMS165.EMS103.EMS72 EMS171.0

SEQ 0280

100424
101256
100453
100453
100652
101256

65 073310
073322
67 073340
68 073356
69 073366
70 073400
71 073416
72 073426
73 073436
74 073456
75 073470
76 073476
77 073504
78 073520
79 073526
80 073536
81 073546
82 073556
83 073566
84 073576
85 0
86 073616
87 073626
88 073636
89 073650
90 073662
91 073674
92 073706
93 073720

103074
101335
101335
103644
103215
100531
103603
103603
103137
101631
101755
101755
101631
101755
102127
102172
102227
102272
102324
102367
102770
102471
102527
102127
102172
102227
102272
102324
102367

95 073744
96 073756
97 073770
98 074000
99 074010
100 07
101 074030
102 074040
103 074050
104 07
105 074070
106 074100
107 074110
108 074122
109 074134
110 074152
111 074170
112 074202
113 074214
114 074226

102471
102527
102127
102227
102};5
102
102272
102324
102367
102527
103720
102471
103025
103074
103137
103137
103232
103215
103215
103446

073

100502

102770

03476
103476

EMT70:
EMT71:

103476

EMT73:

103476

.WORD
.WORD

EMS46,EMS20,EMS163,0
EMS71.EMS101,EMS16%.0

.WORD

ens1.7.ensr§.ens163.sns11s.ens141.sns72.6

EMT72:

.WORD

103476
103476
103476

EMT?74:
EMT75:
EMT?6:

.WORD
.WORD
.WORD

103476
103476

EMT100: .WORD
EMT101: .WORD

100567

EMT77:

.WORD

103476
101316

EMT102:
EMT103:

.WORD
.WORD

103476

EMT105:

.WORD

103476

103476
100567
102034

EMT104: .WORD

EMT106:
EMT107:
EMT110:

.WORD
.WORD
.WORD

EMT113:

.WORD

000000
000000

EMT111:
EMT112:

000000
102613
102613
102613
102613
102613
102613
102613
102613
102613
102636
02636
102636
102636
102636
102636
102636
102636
2636
102700
700
102743
102743
102743
102743
102743
102743
102743
102743
1
103111

103342
103376
103431

102034

103176
077454
103345

EMS&7.EMS72,EMS163,EMS115,EMS140,EMS141,0

EMSS6.EMSS3.EMS163.0
ensn.Enssg.ensm.sm1s.ens1so.sns1sz.ensrz.o
EMSS0.EMSS
163

EMS142,EMS143,EMSSS,EMS163.0

EMS?7S,EMS141,EMS163.EMS115.EMS47,EMS70,0
EMS75.EMS150.EMS163.EMS115.EMSS6
EMS73.0

EMS167,EMS73.EMS163.0
EMS147.EMS151,EMS74
. EMS163.0

EMSS1,EMS74 enswségnsns.snsso.snsm.o

EMS165,EMS100,EMS163,0

EMS165.EMS77,EMS163.0
EMS144.EMS145,EMSS3.EMS163,EMS115,EMS143,EMS70.0
EMS110.EMS112.EMS116.EMS111.0

.WORD
.WORD

EMS113.EMS4.0
EMS113.EMS3.0

EMT114:
EMT115:
EMT116:
EMT117:
EMT120:
EMT121:
EMT122:
EMT123:
EMT124:
EMT125:
EMT126:
EMT127:
EMT130:
EMT131:
EMT132:
EMT133:
EMT134:
EMT135:
EMT136:
EMT137:
EMT140:
EMT141:
EMT142:
EMT143:
EMT144:
EMT145:
EMT146:
EMT147:
EMT150:
EMT151:
EMT152:

.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

EMS113.EMS120.0
EMS121.EMS132.EMS133.0
ens12§.sns132,ens133.o
EMS123.EMS132.EMS133.0
EMS124.EMS132 EMS133.
EMS125.EMS132.EMS133.0
EMS126.EMS132.EMS133.0
EMS137.EMS132.EMS133.0
EMS130.EMS132.EMS133.0
EMS131.EMS132.EMS133.0
EMS121.EMS132.EMS134.EMS123.0
EMS122.EMS132.EMS134
. EMS123.0
EMS123.EMS132.EM
. EMS123.0
S134
EMS124.EMS132.EMS134
. EMS123.0
EMS125.EMS132.EMS134.EMS123.0
EMS1 6.sns1§g.a\s134.sns123.o
EMS137.EMS132.EMS134.EMS123.0
EMS130.EMS132.EMS134.EMS123.0
EMS131.EMS132.EMS134.EMS123.0
EMS121.EMS132 EMS135.0
EMS123.EMS132.EMS135.0
EMS1 1.EHS1§.EH8136.0
EMS137.EMS132.EMS136.0
EMS124.EMS1
.sns1§g.o
EMS125.EMS132.EMS136.0
EMS126.EMS132.EMS136.0
EMS131.EMS132
EMS136.0
EMS171.EMS132.EMS136.0
snsm.enslsg,ensm.o
ensu.g.eusu "EMS141.EMS70.0
EMS142.EMS115.EMS143.EMS72.0

EMT156:
EMT157:
EMT160:

.WORD
.WORD
.WORD

EMS147.EMS151.EMS154 EMS155.0
EMS147.EMS151.EMS156.EMS157.0
EMS161.EMS156.EMS160.0

EMT153:
EMT154:
EMT155:

.WORD
.WORD
.WORD

SEQ 0281

EMS110.EMS115,EMS116,EMS117,EMS114.0

EMS144.EMS145.EMS146.EMS115,EMS143,.EMS72.0
EMS144.EMS145.EMS20, EMS115 EMS143.EMS70.0
EMS150.EMS152.EMS154,EMS155.0
—

58 073174
59 073204
60 073214
61 073232
62 073250
63 073260

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

CZRMOAO RMO5/3/2 FCTNL
ERROR MESSAGE TABLE

CZRMOAQ RMOS5/3/2 FCTNL ST 3

ERROR MESSAGE TABLE

103074
100502
100557
100557
100652
100424

163 074754

077672
100453
100557
100557
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

166 074762
167 074764
168 074766
169 074776
170 075010
171 075024

000000
000000
103644
103644
103644
104404

103414
103356
102613

102636
000000

23232 g2

077662

—3

b
e

125 074352
126 074
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
07
147 074672
148 074702
149 074712
150 074722
151 074724
152 074726
153 074
154 074732
155 074734
156 074736
157 074740
158 074742
159 074744
160 074746
161 074750
162 074752

000000
103617

b e

122 074322
123 074332
1264 074342

103376

103376
103025
000000

000000
000000

120 074306
121 074314

100453
100453
100652
100424
104772
103644
103644
103644
103720
103720
101755
104115
104230
104230
104230
104230
104230
103232
100502
101534
101335
101335
100531

077651

D e

117 074262
118 074272
119 074300

077613

077630

b md

115 074236

116 074250

MACRO V03.01 11-APR-80 13:39:53 PAGEL 4&-2

304
3232

EMT161: .WORD

EHT12§: .WORD
EMT163: .WORD
EMT164: .WORD

EMT165: .WORD
EMT166: .WORD

SEQ 0282

EMS25,EMS27,EMS156,EMS160.0

EMS26.EMS27.EMS156 EMS160.0
EMS47.EMS165,EMS140.0
EMS47.EMS20,0

EMSS56.EMS20.0
EMS46.EMS20

EMT167: .WORD
EMT170: .WORD

EMS224.EMS20.0
EMS167.EMS154,EMS166,0

EMT174:
EMT175:
EMT176:
EMT177:

EMS171 sns132 EMS134.EMS123,0
EMS113.EMS177.0
EMS200.EMS201.0
EMS203. snsm ensso enszoz 0

EMT171: .WORD
EMT172: .WORD
EMT173: .WORD

.WORD
.WORD
.WORD
.WORD

EMS167.EMS154. ens157.o
EMS167.EMS154.EMS155.0
EMS171.EMS132.EMS133.0

77662

EMT200: .WORD

04200
101271

EMT204: .WORD
EMT205: .WORD

EMS150.EMS74,EMS202 ensns EMS152,EMS72.0
EMSSO,EMS103.EMS72.0

EMT207: .WORD
EMT210: .WORD

EMS75,EMS141.EMS115.EMS140.0
EMS75.EMS150.0

102031
100567
103617
100652
101063
101063

EMT212:
EMT213:
EMT214:
EMT215:
EMT216:
EMT217:

EMS142,EMSSS.EMS115,EMS143,EMSP2.0
EMSS50,EMS103.EMS53.0
EMSS52.EMS205.EMS166, EH5206 EMS115,EMSS1,EMS72,0
EMSS52. ensn? EMSS6,EMS163,0
EMS56.EMS30,EMS64,0
EMS46.EMS30.EMS64
.0

101063
101374
101035

EMT221: .WORD
EMT222: .WORD
EMT223: .WORD

077662 EMT201: .WORD
077662 EMT202: .WORD
077662 EMT203: .WORD
102031
102031

101063

EMT206: .WORD

EMT211: .WORD

EMT220:

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

104330
104355

EMT224:
EMT225:
EMT226:
EMT227:
EMT230:
EMT231:
EMT232:
EMT233:
EMT234:
EMT235:
EMT236:
EMT237:
EMT240:
EMT241:
EMT242:
EMT243:
EMT244:
EMT245:
EMT246:
EMT247:

000000

EMT251: .WORD

15 et oo

104355

EMT250:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

EMS203.E
n
$51

2.0

EMS203. oi.
EMS36snszoé
EMS203. ens EMS30, EMS202 6
EMS203.EMS14S, enssb
EMS202,0

EMS104,EMS73.EMS202.0

EMSS1.EMS72,EMS115,EMS50.EMS70.0

EMS31.EMS30.EMS64 .0

EMS47.EMS30 EMS64 .0
EMSS2.EMS117,EMS77.0
EMSS2.EMS117.EMS63.0

EMS167.EMS132.EMS207.0
EMS167.EMS132.EMS210.EMS125,

EMS167.EMS211.EMS210.EMS207 nszoe.o

EMS212.EMS213.0

MACRO v03.01 11-APR-80 13:39:53 PAGE 4?-3

EMT252: .WORD
EMT253: .WORD

EMS165,EMS212.0
EMS147.EMS151.EMS156,EMS210,EMS26,EMS27.0

077
077662
0 66%

EMT255:
EMT256:
EMT257:

03.EMS167.EMS30.0
EMS203.EMS100.EMS30.0
EMS11,EMS46,EMS30,EMS102,0

100652
104576

104200

101476

101476
101476

567
3046

EMT254: .WORD

.WORD
.WORD
.WORD

EMT260:
EMT261:

.WORD
.WORD

EMT263:

.WORD

ensso,énssg.énsloz.b

EMT g%

EMT264:
EMT265:

.WORD

.WORD
.WORD

EMS142,EMS143,EMSSS,EMS102,0
EMSSO,EMS146,EMS115.EMSS2, EMS117,EMS46.0
EMS&7.EMSS3,EMS102,EMS115.EMS140.0

101476
101476
100727
100202
100727

EMT272:
EMT273:
EMT274:
EMT275:
EMT276:

.WORD
.WORD
.WORD
.WORD
.WORD

EMS7S.EMS141,EMS102,EMS115,
EMS47
EMS73.0
EMSS1.EMS74,.EMS102,EMS115,EMSS0,EMS70.0
EMS&3.EMSS3 EMSS7,EMS115,EMS41,EMS146.0
116 snsssé%sd.snssr.o
47
,EMS53,EMS57. EMS115.EMS140,0

100727

EMT300: .WORD

101525

EMT302: .WORD

101476

100727
100567

EMT271:

EMT277:
EMT301:

.WORD

101525

EMT303: .WORD

101
100727

EMT305: .WORD
EMT306: .WORD

100567
100567

EMT311: .WORD
EMT312: .WORD

101525

EMT304: .WORD

EMT307: .WORD
EMT310: .WORD

101525
100567

EMT313: .WORD
EMT314: .WORD

100727

EMT317: .WORD

EMT315: .WORD
EMT316: .WORD

EMT320: .WORD
EMT321: .WORD

000000 emszg: .WORD
100727
101525

EMT323: .WORD
EMT324: .WORD

077342
101316
104016
100567

EMT326:
EMT327:
EMT330:
EMT331:

100727

EMT333: .WORD

101017

EMT336: .WORD

000000

EMT341: .WORD

101525

100623
100557

EMS56,EMS53.EMS102.EMS115,EMS150,EMS152,EMS70,0
EMS71.EMS56 §ns1o EMS115.EMS150.EMS152.EMS72.0

.WORD
.WORD
.WORD

100727
100727

077776

EMS104,EMS73.EMS202.0

EMT266:
EMT267:
EMT270:

100567
101525

EMSS2.EMS117,EMS56,EMS102,0
EMSS52,EMS205.EMS220,EMS206,EMS115,EMSST,EMS72,0

100567
102031
101476

102031
100567

227 076174
228 076202

gzos.enswmnsso.é

EMT325: .WORD

.WORD
.WORD
.WORD
.WORD

EMS47.EMSS3.EMS102.EMS115 .EMS141.EMS72.0

EMS47.EMSS3.EMSS7.EMS115.EMS141.EMS72.0

EMSS56.EMSS3,EMSS7.EMS115.EMS150 EMS152,EMS70,

EMS71.EMS56 EMS53 snss7.§ns115.ens1so.sns1sz.ens72.o

165.Ems100,EMS 103,

EMS57.0

EMS165.EMS101.EMS103.EMS57.0

EMS165,.EMS77,EMS103,EMS57.0

EMS46,EMS30,EMS64,EMSS7,
EMSS0.EMS53.EMSS7.0

EMSS0,EMS146, EMS115,EMSS2,EMS117,EMS46,EMSS7.0
EMS142,EMS145,EMSS3.EMS57.0

EMS104.EMS103.EMS53.EMS57.
EMS105.EMS103.EMS53 EMS57.0

EMS144,EMS145.EMS105,
EMSS?, EMS115,EMS143,EMS70.0
EMS42,EMS103,EMS53,EMSS7.0

EMS31.EMS103.EMS53.EMS57.0
EMS71.EMS31,EMS103.EMS57.0

EMS43.EMS10%,.EMS57.0

EMS45.EMS103.EMS57.0
EMS103.EMS57.0

EMS106

EMS36,EMS103.EMSS7.0
EMS173.EMS36.EMS1035.EMS57.0

EMS172.EMS36.EMS103.EMS57.0

EMS13,EMS174.EMS1S,EMS3S Ensss.ensws.o
EMS147 en§1s‘l.ens7l'. EMS175,0
mbg.éns 3 EMS175,
EMS3 .enswg.enss "EMS175,0

100567 E"mi’ .WORD

EMS40.EMS103_EMSS3.EMSS7.0

100727
103274

EMS7S.EMS141,.EMSS? EMS115.EMS4? EMS7S.0
EMS75.EMS150 sns1sg.snss7.sns115.ensse.ens73.o

077776
100601
100652

EMT334: .WORD
EMT335: .WORD

EMSS1.EMS74,EMSS7,EMS115 EMSSO0,EMS70,0

EMS60.EMS61,EMS62

EMT337: .WORD
EMT340: .WORD

EMS116,EMS117,EMS%$4.0
EMS34,EMS53,EMSS4,EMS111.0

EMT342: .WORD

EMS52.EMS117,EMSS6,EMSS7.0

EMS5S.EMS3% .0

222>l

25 Rt

000000
103376

077662

0O
OO

(=lele]

O?O
Fok

GEROREE$3K

wvwn

TITR R

D e e

D D D D D D D D D D DD DD

BRURRREC
28 BB IRRRER2BIIIANA ~N
(= lelelelelelelelelelelelelelelelele]
SNINISNSNINNSN
~
NSNS
NN
SS9
Vi

—d cd d e d d D d d

075066
075076
075106
075120
075132
075152
5162
5172
521

103603
103215
104230
1042
1042
077246
100557
100557
101534
10050
10065

SEQ 0283

CZRMOAQ RMOS5/3/2 FCTNL
ERROR MESSAGE TABLE

EMT343: .WORD
EMT344: .WORD

EMSS2,EMS117,EMS4S5,EMSS7.0
EMS52.EMS117.EMS44 . EMSS7.0

076250 10161; 077454 102031

EMT346: .WORD

EMS106,EMS20.EMS115.EMS223,EMS72.0

100557

102064
102064

102064

233 076264

100557

104271

235 076314

103644

101301

234 076276

236 076324
237 076330
238 076340
239

101335

104470
104541

104614

.WORD

EMSS2.EMS117.EMS221.0

104

EMT347: .WORD

101476

EMT351: .WORD

EMS167,EMS73.EMS102.0

EMT354: .WORD

EMS221.EMS20.0

103232

101476

000000
104230

104511

077454

EMT345:

000000

EMT350: .WORD

EMT352: .WORD
EMT353: .WORD

:
a

EMSS2,EMS205.EMS222.EMS206.0

EMS7S5.EMS150.EMS102.EMS115.EMSS6,EMS73.0

EMS215.0
EMS217.EMS203,EMS216.0

.
|

mmmmmMmMMmMmMmMmMMMmMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMmMMmMMMmMMmMmMmMmmmmm

100361
100306

231 076240

100557
100557

{

——

229 076214
230 076226

;

SEQ 0284
|

]

ERROR MESSAGE TABLE

MACRO V03.01 11-APR-80 13:39:53 PAGEN 4?-4

| W

CZRMDAO RMO5/3/2 FCTNL TST 3

105650
105725

4 076370

105063

000000

7 076400
8 076404
18 076416

105111
105140

000000
105650

11 076430

105242

105650

}z 0764564

105436

105650

g 076374

12 076442

}g 076466

105072

105166

105301

105574

105725
106052

000000

105650

000000

EWT1:
EWT2:

.WORD
.WORD

105725
105725
105725

105725

EH1,STSHi,STSH2,STSHé4,0
STSH1,STSH2,STSH4,0

EHT110: .WORD

EHW110,0

EHT114: .WORD
EHT223: .WORD
EMT256: .WORD

EH114.0
EH223,STSH1,STSH2,STSH4,0

EMT336:

.WORD

EH336,STSH1,STSH2,STSH4,0

EHT111: .WORD

EH111,0

EM256,STSH1 »STSH2,STSH4,0

EHWT337:

.WORD

EWT344: .WORD

EH344,STSH1,STSH2,STSH4,0

EHT353:

.WORD

EH353,0

SEQ 0285 |

mooMmMmmMmMmMmMmMmMmmMmmMmmmmmmmmmmmmmmmmmmmmmmmmmmmm

105044
105650

EH337,STSH1,STSH2,STSH4,0

1 076346
076360

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

|R —

CZRMOAQ RMOS5/3/2 FCTNL TST 3
ERROR MESSAGE TABLE

1 076472
g 076502
4 076510

106110
106204

106122

7 076514
g 076516

106130

106140

10 076526
11 076536

106150
106162

}g 076560

106174

106162

106222
106254

EDT1:
EDT2:

-WORD
.WORD

ED1,STSD1,STSD2,STSD4
STSD1,STSD2,STSD4

EDT110: .WORD
EDT111: . WORD

ED110
EDINM

106204

EDT114: . WORD
EDT223: . WORD

ED114

106204
106204
106204

EDT336: . WORD
EDT337: . WORD
EDT344: .WORD

ED336,STSD1,STSD2,STSD4
ED337,STSD1,STSD2,STSD4
ED337,STSD1,STSD2,STSD4,0

EDT353:

ED353

106116

2 076512

}% 076546

106204
106222

.WORD

SEQ 0286

ED223,STSD1,STSD2,STSD4

LLuLULUVLLULLLULLLVLLOLLLVLLLUOLOLULOMLODULODLLOLLOOLOLOLODLOVOOOVUVLOOW

ERROR MESSAGE TABLE

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

[

CZRMDAD RMOS5/3/2 FCTNL ST 3

.WORD

F114
EF
F114 1
,STSF ,STSF ,STSF
EF

106305
106305
106305

EFT336: .WORD
EFT337: . WORD
EFT344: .WORD

EF336,STSF ,STSF,STSF
EF336,STSF,STSF,STSF
EF336,STSF,STSF,STSF

EFT353: -WORD

EF114

VO
|

—

EFT223: .WORD

AAAAN

M -

o
s

14:

eded

106305

SEQ 0287

NO<

F11
1 0
EF
F111
EF1

M
=4

10:
11:

—=O

106271

EF111,STSF ,STSF ,STSF
STSF,STSF ,STSF

106271

.WORD
.WORD

6
7 076604
8 076606

.WORD
. WORD

MM
-

106266
106267

106305
106305

& 076600

106305
106305

106267
106305

1 076562
% 076572

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

CZRMOAQ RMOS5/3/2 FCTNL TST 3
ERROR MESSAGE TABLE

3076650
4 076717
5076734
6076777
7077062
8077072
9077137
10077206

127
104
125
116
103
103
104
107

13077320
14 077331
1507732
16 077364
17 077414
18 077454
19077477

.SBTTL

ERROR MESSAGE STRINGS

SEQ 0288

122
105
116
117
117
117
122
117

117
126
101
116
115
116
111
040

EMSI:
EMS2:
EMS3:
EMS&:
EMSS:
EMS&:
EMS7:
EMS10:

.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
@COMMAND NOT COMPLETED, @
SCONTROLLER NOT READY (RMCS1, BIT 7) @
@DRIVE NOT READY 'DRY'’ (RMDS. BIT 7) a
@GO NOT RESET 'GO''
(RMCS1, BIT 0) @

115
103
102
042
1264
123

101
117
125
115
122
110

123
116
123
103
101
117

EMSI3:
EMS14:
EMS]S:
EMS16:
EMS17:
EMS20:

aMASSBUS @
@SCONTROL @
@BUS PARITY ERROR @
@MCPE'
(RMCS1, BIT 13) a
Q@TRANSFER ERROR (RMCS1, BIT 14) a
@SHOULD NOT BE SET @

20 077522
21 077536

102
042

125
114

23 077613
2% 077630
25077651
26 077662
27 077672
28 077721
29 077750
30 077776
31 100047
32100076
33100125
3% 100153
35100202
36 100230

104
103
101
123
042
042
042
127
042
042
042
042
042
042

111
131
104
124
127
125
127
122
115
104
105
104
115
104

123
114
104
101
114
120
103
111
104
103
103
114
130
124

EMS25:
EMS26:
EMS27:
EMS30:
EMS31:
EMS32:
EMS33:
EMS34:
EMS35:
EMS36:
EMS37:
EMS40:
EMS41:
EMS42:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@'ACE'* (RMERT, BIT 09) @

abDISK (RMDA) @
QCYLINDER (RMDC) @
@ADDRESS @
@STATUS @
@WLE'' (RMER1, BIT 11) @
@UPE'' (RMCS2. BIT 13) @
@VWCF'' (RMER1, BIT 5) @
@WRITE CHECK ERROR-'WCE'' (RMCS2, BIT 14) @
@ MDPE'' (RMCS2, BIT 8) a
@ DCK' (RMER1, BIT 15) @
@ECH'' (RMER1. BIT 6) @
@'DLT"' (RMCS2. BIT 15) @
@MXF'' (RMCSZ. BIT 9) @
@DTE'' (RMER1, BIT 12) @

110
106
042
042
042
042

105
117
111
117
123
120

101
122
101
120
113
111

EMS44:
EMS4S:
EMS48:
EMS47:
EMSS0:
EMSS1:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@HEADER COMPARE ERROR 'MCE'' (RMER1, BIT 7) a
@FORMAT ERROR 'FER'' (RMER1, BIT 4) @
@'IAE' (RMER1, BIT 10) @
@DPI'' (RMER1. BIT 13) a
@'SKI'' (RMER2. BIT 14) a
@'PIP'' (RMDS, BIT 13) a

11077246
12077257

22 077564

37 10057

38100306
39 100361
40 100626
41 100453
42 100502
43100531

4%
45
46
47
48
49

100557
100567
100601
100623
100652
100727

50 100755
51100770
52101017

53101035
54 101063

55101101
56 101147
57101217

111
106

127

042

124
104
101
111
111
104

104
104
104

042
111
103
104
104

116
125

126
116

EMS11:
EMS12:

.ASCIZ
.ASCIZ

117

122

EMS21:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

101

117

EMS2:

.ASCIZ

110

110
105
124
116
116
125

101
117
101
120
123
117
101
125

123
102

103

105
124
040
103
126
122

124
105
124

101
040
115
12
122

EMS22:
EMS23:

EMS43:

EMS52:
EMS53:
EMSS4:
EMS55:
EMSS6:
EMS57:

EMS60:
EMS61:
EMS62:
EMS63:
EMS64:
EMS6S:
EMS66:
EMS67:

.ASCIZ
.ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@INVALID @
@FUNCTION CODE (RMCS1, BITS 1-5) @

@WORD COUNT (RMWC) @

@BUS (RMBA) @
@ LBI''
(RMDS, BIT 10) a

@HCRC'' (RMERT, BIT 8

QTHE RM @
@DETECTED @
@AT AN UNEXPECTED @
@INCORRECT DATA DURING @
@INVALID COMMAND ERROR '‘IVC'' (RMER2, BIT 12) @
@DURING DATA TRANSFER @

@DATA READ @
@DOES NOT COMPARE WITH @
@DATA WRITTEN @
@ PAR'' (RMER1, BIT 3) a
@IS INCORRECT @
@COMPOSITE ERROR 'ERR'' (RMDS, BIT 14) @
aDATA PARITY ERROR 'DPE'' (RMER2, BIT 3) a
@DURING SEEK COMMAND @

o o

ERROR MESSAGE STRINGS

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

PPAPPAPAAAAN

CZRMOAO RMOS5/3/2 FCTNL TST 3

71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87

104
114
104
042
042
042
104
105
042

123
12%
12
1

m
117
125
122
m
m
125
122
114

101563
101612
101631
101660
101671
101733
101755
102005
102031
102034
102064
102106
102127
102172
102227
102272
102324

042
110
102
101
127
101
124
116
015
124
106
116
103
102
103
105
101

114
105
125
104
110
124
110
117
012
110
101
117
117
125
117
122
124

91 102527

115

101

117
110
122
122

88 102367
- 89 102432
90 102471

92 102567
93 102613

115
105
105

116
125

94
95
96
97

102636
102700
102743
102770

103
122
104
104

9
100
101
102

10
103074
103111
103137

042
104
042
125

98 103025

103
104
105
106
107
108
109
110
111
112
113

103147
103176
103215
103232
103250
103274
103320
103342
103356
103376
103414

114 103431

115

042
123
117
126
042
042
120
116
117
116
122
122

101
103
103

117
116

105

115
122
104
116

125
110
106
117
117
126
101
117
106
117
124
m

040
122
040
104
106
123
122
115
114
114
122
122
102
123
101
123
106
105
040

EMS70:
EMS71:
EMS72:
EMS73:

EMS74:
EMS?75:
EMS76:
EMS77:
EMS100:
EMS101:
EMS102:
EMS103:
EMS104:

EMS105:
EMS106:
EMS110:
EMS111:
EMS112:

105

EMS113:

000

EMS115:

116

EMS114:

.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

105
111
126
116
123
116
122
126
111
103
103

EMS116:
EMS117:
EMS120:
EMS121:
EMS122:
EMS123:
EMS124:
EMS125:
EMS126: .ASCIZ
EMS127: .ASCIZ
EMS130: .ASCIZ

126
111

EMS132:
EMS133:

111

116
057
111
111
106
117
111
126
123
116
117
106
114
115
126
103
124
106
126
103
120

EMS131:

.ASCIZ

EMS134:
EMS135:
EMS136:
EMS137:
EMS140:
EMS141:
EMS142:
EMS143:
EMS144:
EMS145:
EMS146:
EMS147:
EMS150:
EMS151:
EMS152:
EMS153:
EMS154:
EMS155:
EMS156:
EMS157:
EMS160:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

alS RESET @
@ERRONEOUS @
alS SET @
aDID NOT SET @
aDID NOT RESET @
aLOST @
@DURING PACK ACK COMMAND @

&' RMR'' (RMER1, BIT 2) @
‘ILR'' (RMER1, BIT 1) @
@' 'ILF'' (RMER1, BIT 0) @

@DURING SEARCH COMMAND a
SERROR @

@ LBC'* (RMER2, BIT 10) @
@LSC'* (RMERZ, BIT 11) @
@HEADER ERRORS @
aBUS TIMEOUT (04 TRAP) @

SADDRESS @
@WHEN READING/WRITING RH REGISTERS @
AT THE FOLLOWING @
@THE SELECTED DEVICE IS @
GNONEXISTENT DEVICE @
<CR><LF>

THE MASSBUS CONTROLLER @
@FAILED TO DETECT @

aNOT AN RMO5/3/2 @

SCONTROL STATUS REGISTER 1, RMCS1,
@BUS ADDRESS REGISTER, RMBA, @
@CONTROL STATUS REGISTER 2, RMCS2
@ERROR REGISTER 1, RMER1, @
SATTENTION SUMMARY REGISTER, RMAS,
GMAINTENANCE REGISTER #1, RVMR #1.
ECC POSITION REGISTER, RMEC1, @
@ECC PATTERN REGISTER, RMEC2, @
@MAINTENANCE REGISTER 2, RMMR2, @
aNOT INITIALIZED BY @
aUNIBUS INITIALIZE @
@CONTROLLER CLEAR, I.E.
BIT 5 OF @
@RH/RM ERROR CLEAR (RMCS1, BIT 14) @
@RIVE CLEAR COMMAND @
@DRIVE STATUS REGISTER, RMDS @
GMEDIUM OFF LINE @

lalel

PAPANAAAAPAPRPAAPRAPAARAAAAPARAAAAN

62 101316
63 101335
64 101343
65 101374
66 101422
67 101450
68 101476
69 101525
70 101534

11
105
m
104

SEQ 0289

g ML" (RMDS, BIT 12) @
aDRIVE FAULT

O'DVC"E(”ERZ. BIT7) a

AUNSAFE
@
3'UNS'* (RMER1, BIT 14) @
asHOULD BE SET @
OFFSET MODE @
avOLUME VALID @

OTM’ (RMDS, BIT 0) @
@ VW' (RMDS, BIT 6) @
@PACK ACK_COMMAND @
aNOT SET BY @
BOFFSET COMMAND @
aNOT RESET BY @

FAPA
DA P BB

58 101244
59 101256
60 101271
61 101301

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

[

CZRMOAOD RMO5/3/2 FCTNL TST 3
ERROR MESSAGE STRINGS

SENRERRURLE
IR VR RRENES VWO NOWN ao

—_— —

P3k H
N =o

d -

) e

)

) —

) e

) —d

)

D —d o
) )
_— 2

o §:

me
N

RMO5/3/2 FCTNL TST 3
SSAGE STRINGS

103446

117

106

105676
103522
103571
103603
103617
103644
103671
103720
103753
103773

106
111
103
125
122
042
127
105
116
122

125
123
131
116
105
101
110
122
117
105

122
040
114
105
103
124
105
122
116
103

103476

104010
106016
104044
106073
104115
106132
106200
106230
106243
106271
106303
106330

104355
106366
106404
106427
104452
106470
104511
104541
104574
104614
1064664
106715
106772

104
104
042
111
105
104
104
111
042
105
127
042

127
127
120

127
123
120
104
114
123
102
101
110
116

101
125
117
116
101
111
125
116
127
130
111
107

122
101
122

101
105
122
125
117
105
101
040
105
117

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

12
122
120
040
116
101
122
103
122
105
124
117

111
123
117
123
105
117
122
117
101
104
104
101
116

EMS161:

.ASCIZ

@OFFSET REGISTER (RMOF) @

EMSI6d:
EMS164:

.ASCIZ
.ASCI]
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

SDURING RECALIBRATE 3
@IS INTERMITTENT OR DRIVE DIDNT DROP ON @
SCYLINDER @
@UNEXPECTED
@
@RECALIBRATE COMMAND @
@''ATATM
(RMDS, BIT15) @
@WHEN READING REGISTER @
@ERROR REGISTER #2, RMER2, @
@NONRECOVERABLE @
@RECOVERABLE @

EMS162:
EMS165:

EMS166:
EMS167:
EMS170:
EMS171:
EMS172:
EMS173:
EMS174:
EMS175:
EMS176:
EMS177:
EMS200:
EMS201:
EMS202:
EMS203:
EMSJ04:
EMS205:
EMS206:
EMS207:
EMS210:
EMS211:
EMS212:
EMS213:
EMS214:
EMS215:
EMS216:
EMS217:
EMS220:
EMS221:
EMS22:
EMS223:
EMS22%:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

; CUNUSED>

@DATA
@
@DURING WRITE COMMAND @
@OPE''
(RMER2, BIT 13) @
@IN WRITE PROTECT @
SCAN NOT SET@ '
@DIAGNOSTIC MODE ‘DMD'* (RMMR1, BIT 0) @
@DURING DIAGNOSTIC MODE a
@INCORRECT @
@ WRL'' (RMDS, BIT 11) @
QEXECUTED @
@WITH COMP ERROR SET a
@''%0'' (RMCST, BIT 0) @

QWRITING
@
aWAS RESET BY @
@PROGRAM INTERRUPT @

@WAS NOT GENERATED a
@SEEK COMMAND @
@PROGRAM TIMEOUT @
@DURING LOOK AHEAD TEST @
@LOOK AMEAD REGISTER,RMLA, @
QSEARCH COMMAND a
a@BAD SECTOR ERROR 'BSE'* (RMER2, BIT 15) @
@A DATA TRANSFER COMMAND @
@HEADER COMPARE INMIBIT 'HCI'* (RMOF, BIT 10) @
SNONEXISTENT MEMORY ‘NEM'' (RMCS2, BIiT 11) @

SEQ 0290

1 105044

2 105063

105

130

12g EM1:

.ASCIZ @EXPCTD RECEVDa

115

EW111:

.ASCIZ

@ RMCS2

103
120
120

EH114:
EH223:
EM256:

.ASCIZ
.ASCIZ
.ASCII

@RECEVD
QEXPCTD
@QEXPCTD

2105072

102

040

125

123

5 105111
6 105140
7 105166

122
105
105

105
130
130

3105214

122

123

124

101

10 105242

107

104

101

}z 105377

105

130

120

RIkR

18 105574
}3 105613

105
074

21 105650
22 105715
23 105725
24 105772
25 106014
59 106052

040
040
040
040
040
040

B Re - 18

17 105534

105

130

130
103

122
040
122
040
122
122

EH110:

EM336:

.ASCIZ @BUSADRa

.ASCIZ

@STATUS

RMCS1a
SNGPRT
RECEVD
RECEVD

DULPRTa
DATAa
RGSTR@<CRLF>

STATUS

INDEXa

.ASCIZ @GDADRS GDDATA BDADRS BDDATA

I PR An JUEI

SRS FALRS

(| ©O: S pUEM

STARS MEAER PALLINGRcTMLP>

120

JASCIZ

120
122

EHM353:

115
040
115
040
115
115

STSH1:
STSH2:
STSH3:
SR?:J:

[alal

SEQ 0291

AP AN

ERROR MESSAGE STRINGS

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

.ASCIZ

.ASCII
.ASCIZ

.ASCII
ASCIZ
.ASCI]
ASCIZ
.ASCIZ
.ASCIZ

QEXPTTDTM"RETEVS ~~BIT ~~ADRESSa

QERPTYDTM"RETEVD

NUMBER

@EXPCTD RECEVD@<CRLF>
@<CRLF> RMLA
RMLA

@ RMCS1 RMCS2 RMDS
@ RMAS]
@ RMIC
RMBA
RMDA
@
RMEC1
RMEC2a
@ RMDA
RMDC
RMOF
@ RMMR1
RMMR2 RMDT

POSITON®

RMOF 3

RMER1
RMOF

RMER2a
RMDCa

RMLA®
RMSNa

A
Y I3
IIII I

CZRMOAO RMOS5/3/2 FCTNL TST 3

CZRMOAD RMOS/3/2 FCTNL TST 3
ERROR MESSAGE STRINGS

R I

ONO NS WN = OV

NO VNN

106110

106116

001140

001276

SEQ 0292

001142

000000

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

.WORD

ED111:

.WORD

STMPO.STMP1.0

ED110:

.WORD

$GDDAT,$BDDAT,O

$BASE,

106122

001174

001176

000000

106130

001362

001176

001700

001176

ED223:

ED114:

.WORD

RMDTI,STMP1,$TMP2,0

106150

001134

001140

001136

ED336:

.WORD

SGDADR,SGDDAT,S$BDADR,$BDDAT,0

106140

106162

001140

001142

.WORD

$GDDAT,SBDDAT,$TMP0,0

1061764

001140

001142

001442

ED353:

.WORD

$GDDAT,SBDDAT.RMOFO,0

106204
106222

001334
001336

001344
001340

001346
001342

STSD1:
STSD2:

.WORD
.WORD

RMCS1I,RMCS2I,RMDSI,RMER1I,RMER2] ,RMASI,0
RMWCI,RMBAI,RMDAI,RM
I ,RMDCI,RMEC1]
OF

001370

001366

STSD3:

106236

106242

106254

001402

000000

001360

001374

001342

001174

001362

ED337:

STSD4:

.WORD

$GDDAT,S$BDDAT,$TMPO,$TMP1,0

RMEC21,0

RMDAI,RMDCI,RMOFI,RMLAI,0

RMMR1I,RMMR2I,RMDTI,RMSNI,O

CZRMOAOD RMO5/3/2 FCTNL TST 3

.BYTE
.BYTE
.BYTE
BYTE
.BYTE

0
0

.BYTE

0.0.0,0,0,0.0

SEQ 0293

e ABAB »AARARANARRALANA BARGPB

8888

O~ONMSFVON

— -~

88888

ERROR MESSAGE STRINGS

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

106305

000

STSF:

.EVEN

CZRMOAO RMOS5/3/2 FCTNL TST 3

ERROR MESSAGE STRINGS

MACRO v03.01

BUFONE:
BUFTWO:

4 107320

6
7 110324000000

MFGFIL:

52
53
56
55
56
57

110111
110134
110171
110200
110231
110255

12
124
124
124
124
124
124
124
124
124
124
124
124
12
124
124
124

123
055
040

040
040
040
040
040
040

b YN
b A\ (N

114
055

HELP:

b e e
e e e

200
200

;2 HEADER WORDS

WORD

*TERMINATOR IF FILE IS FULL

256.

:256. WORDS OF DATA

.WORD

0,0

:2 HEADER WORDS

JWORD

*TERMINATOR IF FILE IS FULL

.BLkW

256.

:256. WORDS OF DATA

.=BUFFER

— e e
— e e

106314

343

16
17
18 106314
19 106314
20 106315

0,0

: STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE

USRFIL:

elelelelelele
o]

177777

258.
258.

.WORD

.BLkw

177777

18 11233

49 110013
50 110030
51 110065

.BLKW
.BLKW

; STORAGE FOR MANUFACTURES 16 BIT MODE BAD SECTOR FILE

000000

12 111332000000

21 106316
22 10633%
23 106352
2% 106404
25 106435
26 106460
27 106505
28 106541
29 106612
30 106636
31 106672
32 106743
33 107013
3% 107053
35 107126
36 107200
37 107235
38 107264
39 107321

SEQ 0294

:S;EgQGE FOR GENERAL DATA TRANSFERRS

2 106314
3 106314

9 111330

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

063

LASCII
JASCII
JASCII
JASCII
LASCIT
LASCIT

<CRLF>
<CRLF>
@LIST OF TESTS@<CRLF>
@
@<CRLF>
am
CONTROLLER ACCESS TEST@<CRLF>
ar2
DEVICE AVAILABLE TEST@<CRLF>

LASCI1
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
ASCII
.ASCI]
ASCI]
LASCII
LASCII
ASCI]
LASCI]
ASCI]
LASCII
ASCI]
LASCI]
ASCI]
LASCII
fifi{f

aT3
arTé
aTs
aTé
ar7
@T10
@711
@712
@T13
@714
@715
@716
@T17
@720
@T21
@122
@723
@724
@T25
@726
255(»

DRIVE TYPE TEST@<CRLF>
WRITE, READ ZEROS®<CRLF>
WRITE, WRITE CHECK ZEROS@<CRLF>
WRITE, WRITE CHECK ZEROS W/ WCE ERROR®<CRLF>
WRITE, READ ONES@<CRLF>
WRITE. WRITE CHECK ONES@<CRLF>
WRITE., WRITE CHECK ONES W/ WCE ERROR@<CRLF>
WRITE. WRITE CHECK MULTIPLE SECTORS@<CRLF>
WRITE. READ W/ IMPLIED SEEK@<CRLF>
WRITE., WRITE CHECK W/ HEAD SWITCHINGa<CRLF>
WRITE., WRITE CHECK W/ MID-TRANSFER SEEK@<CRLF>
WRITE. READ W/ HCE ERROR®<CRLF>
WRITE. READ W/ HCI@<CRLF>
WRITE. READ W/ IVC ERROR®<CRLF>
WRITE, READ W/ ABORT@<CRLF>
WRITE. READ EACH CURRENT LEVEL@<CRLF>
WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING@<CRLF>
WRITE. READ EARLY PEAK SHIFT@<CRLF>
WRITE. READ MIXED PEAK SHIFT@<CRLF>
WRITE. READ EACH TRACK@<CRLF>
READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE@<CRLF>

.ASCI]
JASCIT
LASCI1
JASCI]
JASCITI
JASCIT
JASCIT
JASCIT
JASCIT
JASCIT
ASCIT

Q0PERATIONAL SWITCH SETTINGS@<CRLF>
a@a<CRLF>
@SWITCH
USE@<CRLF>
@====—@<CRLF>
@ 15
HALT ON ERROR®<CRLF>
@ 14
LOOP ON TEST@<CRLF>
@ 13
INHIBIT ERROR TYPEOUTS@<CRLF>
@ 12
a<CRLF>
@
11
INHIBIT ITERATIONS@<CRLF>
@
10
BELL ON ERROR@<CRLF>
@
9
LOOP ON ERROR@<CRLF>

22 110441

040

62 110402
63 110415
64 110427

040
040
040

000200

200

TN4@<CRLF>
TN2a<CRLF>

(=]

PAAAAAAAAANAAN

040

F3IIIIITITITITIIII
I IV I T T b

040

61 110367

LOOP ON TEST IN SWR<7:0>@<CRLF>
TN128a<CRLF>
TN64I<CRLF>
TN328<CRLF>
TN16@<CRLF>
TN8a<CRLF>

SEQ 0295

B33

60 110354

040

59 110340

L 7
MACRO v03.01 11-APR-80 13:39:53 PAGE 51~1
NN~ 00

CZRMOAQ RMO5/3/2 FCTNL TST 3
ERROR MESSAGE STRINGS

CZRMOAO RMOS5/3/72 FCTNL TST 3

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

S YMBOL TABLE

ABASE = 176700
ACDW1 = 000000
ACDW2 = 000000
ACKSTS 054602
ACPUOP= 000000
ADDWO = 000000
ADDW1 = 000000
ADDW10= 000000
ADDW11= 000000
ADDW12= 000000

ADDW13= 000000

ADDW14= 000000

ADDW15= 000000
ADDW2 = 000000
ADDW3 = 000000
ADDW4 = 000000
ADDWS5 = 000000
ADDW6 = 000000
ADDW7 = 000000
ADDW8 = 000000
ADDW9 = 000000
ADEVCT= 000000
ADEVM = 000000

ATNMSK= 000377
ATNTBL 071616
AUNIT = 000000
AUSWR =

CHRCNT
CKSWR =
CLKADR
CLKVCT

040433
104410
001516
001520

EDT1
EDT110
EDT111
EDT114

076472
076510
076512
076514

EMS100
EMS101
EMS102
EMS103

AVECT2= 000000
A6
=
A17
= 001000
BACK = 00000
BADSCT 041416
BADTMO 005340

CLRSTS
CMNSTA
CMPBUF
CMPERR
CNSLOO
CNSLO1

053722
007612
043602
051720
070755
071010

EDT223
EDT336
EDT337
EDT344
EDT353
D1

076516
076526
0765
076546
076560
106110

EMS105
EMS106
EMS11
EMS110
EMS111
EMS112

8800
8801
8802
8803
8804
8805
8806
8807
8808
8809
BITO

CNSLO3
CNSLO4
CNSLOS
CNSLO6
CNSLO7
CNSLO8
CNSLO9
CNTCLR
C
CONT =
CR
=

071070
071110
071144
071156
071207
071352
071353
053604
070342
000100
000015

ED111
ED114
ED223
ED336
ED337
ED353
EECC =
EFT1
EFT110
EFT111
EFT114

1061
1061
106140
1061
106
106174
0000
076562
07
076602

EMS114
EMS115
EMS116
EMS117
EMS12
EMS120
EMS121
EMS122
EMS123
EMS124
EMS125

AVECT1= 120254

BAI

= 00001

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

ADR
= 000001
AENV = 000000
AENVM = 000000
AFATAL= 000000

BIT00 =
BITO1 =
BIT02 =
BITO3 =

AMADR2= 000000
=
AMADR4= 000000
AMAMS1= 000000
= 000000

BIT06 = 000100
BIT07 = 000200
BITO8 = 000400
BIT09 = 001000
BIT1
= 00000

AMAMS4= 000000
AMSGAD= 000000
AMSGLG= 000000
AMSGTY= 000000
AMTYP1= 000000
AMTYP2= 000000

BIT11 =
BIT12 =
BIT13 =
BIT14 =
BIT15 =
BITZ2
=

ALL
070331
AMADR1=

AMAMS3= 000000

AMTYP3= 000000
AMTYP4= 000000

SEQ 0296

000001
000002
000004
000010

BIT04 = 000020
BITOS = 000040

BIT10 = 002000
004000
010000
020000
040000

BIT3

100000
000004

= 000010

BIT4

= 000020

CLR _ = 000040

CNSLO2

071026

EDT2

ED110

CRLF
= 000200
CTLFG
001326
CYLMSK= 001777
DBCK =

EFT2
EFT223
EFT336
EFT337

DCK
=
DDISP = 177570
DEBL
=
DEVSEL 052132
DISPLA 001156

EF110
EF11T
EF114
EF336
EF337

DBEN
DBL

=
= 002000

DISPRE 000174
pLT
=1
pMD
=
DPE
= 000010
DPEHI = 04

DPELO = 020000
DPR
= 000400

DRQ

EFT344
EFT353

EHT1
EHT110
EHT111
EHT114
EHT2

EHT223
EHT256

= 004000

EHT336

DRVCLR= 000010

EHT337

076502

106116

076572

106266
106267
106271
106274
1

EMS133
EMS134
EMS135
EMS136
EMS137

102613

076636
076646

076346
076370
076374
076400
076360
076404
076416

076430

076442

EHT344
EHT353
EH1
EH110
EH111
EH114
EH223
EH256

076454
076466
105044
105063
105072
10511
105140
105166

ASNDA
001514
ASNDC
001512
ASWREG= 000000

BUFFER
BUFONE
BUFTWO

EARLY
072142
EBL
=
020000
ECH
= 000100

EH337
EH344
EH353

105301
105436
105574

ATESTN=

ATA

= 100000

106314
106314
107320

= 004000

= 002000

pvé

ECI

ECRC

200

= 004000

= 001000

H336

EMS1

EMS10

101755

102005
102031
102034
102
077257
102106
102127
102172
102227
102272
102324

076616
076626

DRVSTS 057140
DRY
= 0002
DS
=1
DTASTS 057742
DTE
=01
PTO
=
DULPRT= 024024
DVA
=
000

BSE

101671

102367
102432
077320
102471

BIT5S = 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000
BOTADR 040430
BOTFLG 040432
BPTVEC= 000014

EMS113

EMS126
EMS127
EMS13
EMS130

AOE
= 001000
APASS = 000000
APE
= 100000
APRIOR= 000000
APTCSU= 000040
APTENV= 000001
APTS1Z= 000200
APTSPO= 000100

ARGS

EMS104

101422
101450
101476
101525
101534
101563
101612
077246
101631
101660

EMS131
EMS132

EMS14
EMS140
EMS141
EMS142
EMS143
EMS144
EMS145

EMS146

EMS147

102700
102743
102770

077331
103025
103046
103074
103111
103137
103147

103176

103215

EMS15
EMS150
EMS151
EMS152
EMS153
EMS154
EMS155
EMS156

077342
103232
103250
103274

EMS16
EMS160
EMS161

077364
103431
103446

EMS163

103476

105542

EMS157

076650

EMS1

077204

102527
102567

103320
103342
103356
103376
103414

103476

103522
103603
103617
103644

EMS44
EMS45
EMS46
EMS47

103671
103720
103753
103773
104010
104016
104044

EMS50
EMS51
EMS52
EMS53
EMS54
EMS55
EMS56

EMS20
EMS200
EMS201
EMS202
EMS203
EMS204
EMS205
EMS206

076717
077454
104115
104132
104
104230
104243
104271
104303

EMS6
EMS60
EMS61
EMS62
EMS63
EMS64
EMS65
EMS66
EMS67

EMS21
EMS210
EMS211
EMS212

077477
104355
104366
104404

EMS17

EMS170
EMS171
EMS172
EMS173
EMS174
EMS175
EMS176

EMS1

EMS207

EMS213
EMS214
EMS215
EMS216
EMS217
EMS22
EMS220
EMS221
EMS222
EMS223
EMS224
EMS23

EMS24

077414

104073

073626
073636
073650
07;222

100502
100531
100557
100567
100601
100623
100652

EMT131
EMT132
EMT133
EMT134
EMT135
EMT136
EMT137

073674
073706
073720
073732
073744
073756
073770

077072
100755
100770
101017
101035
101063
101101
101147
101217

EMT140
EMT141
EMT142
EMT143
EMT144
EMT145
EMT146
EMT147
EMT15

074000
074010
074020
074030
074040
074050
074060
074070
072362

077042

100727

EMT130

EMT14

EMS74
101316
EMS75
10133
EMS76
101343
EMS77
101374
EMTVEC= 000030
EMT1
072254
EMT10
072324
EMT100
073322
EMT107
073340
EMT102 073356
EMT103
EMT104

EMT155
EMT156
EMT157
EMT16
EMT160
EMT161
EMT162
EMT163
EMT164
EMT165
EMT166
EMT167

074170
074202
074214
072370
074226
074236
074250
074262
074272
074
074
074314

EMT106

EMT170

074322

EMS27
EMS3

077651
076734

077630

EMT105

EMT107

073416
073426

EMT17

EMT171

EMT11
EMT110

072330
]

EMT112
EMT113
EMT114
EMT115
EMT116

073476
073504
073520
073526
073536

EMT175
EMT176
EMT177
EMT2
EMT20

EMT111

073470

EMT172
EMT173

EMT174

075276
075314
(075332
075350

EMT213
EMT214
EMT215
EMT216
EMT217
EMT22
EMT220

074600
074610
074630
074642
074652
072430
074662

EMT276
EMT277
EMTS
EMT30
EMT300
EMT301
EMT302

075400
075414
072266
072510
075432
075452
075474

EMT221

104427
104452
104470
104511
104541
077522
104574
104614
1
104715
104772
077536

EMT151
EMT152
EMT153
EMT154

EMT271
EMT272
EMT273
EMT274

072354

EMT150

101244
101256
101271
10130

074530
072420
074542
074550

EMT212

077137

EMS70
EMS71
EMS72
EMS73

EMT222
EMT223
EMT224
EMT225
EMT226
EMT227
EMT23
EMT230
EMT231

074100

EMT232

074110
074122
074134
074152

072400
074332

074342
074352

07436

074564

074672

074702
074712
074722
074724
074726
074730
072440
074732
074734

074736

074740
(074742
074744
074746

EMT275

EMT303

EMT304
EMT305
EMT306
EMT307
EMT31
EMT310
EMT311
EMT312
EMT313

EMT314

EMT315
EMI316
EMT317
EMT32

075366

075506

075520
075532
075544
075554
072520
075574
075
075620
075632

075652

075
075676
075710
0

EMT237 074750
EMT24
72450
EMT240 074752
EMT241
074754
EMT242
074756
EMT243
074760
EMT244 074762
EMT245
074764
EMT246
074766
EMT247 074776
EMT25
2
EMT250 075010

EMT320
EMT321
EMT322
EMT323
EMT324
EMT325
EMT326
EMT327
EMT3
EMT330
EMT331
EMT332

075720
b}
075740
(075746
075756
075770
076002
07
072540
0760
07
076054

EMT252

EMT334

076104

EMT336
EMI337

076142
076152
076162
076174

075132
075152

EMT340
EMT341
EMT34
EMT343
EMT344

EMT251

075024

EMT253

EMT254
EMT255

EMT256

075056
075

075076

EMT335
EMT

076122

072550

EMS41

100202

EMT122

073576

EMT204

074472

EMT267

075244

EMT350

076276

EMS43

100257

EMT124

073616

EMT206

074520

EMT270

075262

EMT352

076324

EMT117
EHTIS

073546
0723

073606

EMT200
EMT201

074422
0744

EMT
EMT264

075106
072470

EMT33

EMS35

00076
100125

EMT257
EMT26
EMT260
EMT261
Emggi

075032

077672
077721
077750
077776
100047

EMS36
EMS37

074374
074402
074410
072260
072410

EMT233
EMT234
EMT235
EMT236

:
:

0
07517

7%500

EMT345
EMT346

076214
076226

076240
076250 ;

on
|

SEQ 0297 |

EMT207
EMT21
EMT210
EFITS1 1

073662

EMS7

077613

EMS31
EMS32
EMS33

EMS57

EMT125
EMT126
EMT127
EMT1

104330

EMS25

EMS30

EMS

100306
100361
100424
100453

PRR22E2R2R2222222222>»

EMS164
EMS165
EMS166
EMS167

N 7
MACRO V03.01 11-APR-80 13:39:53 PAGE 51-3

222222>>

CZRMOAO RMOS5/3/2 FCTNL TST 3
SYMBOL TABLE

MACRO v03.01 11-APR-80 13:39:53 PAGE S?"

076330

EMT
EMI3?
EMTS
EMT
EMT4Y1

072570
07

072616

GENBUF

043344

EMT4
EMT4S

072640
072650

GETBUF
GETINX

001 34
001522

EMT4S
EMT4E6
EMT47

EMTS

072274
072610

07
072670
072700

072302

FNCMSK= 000077
FO
= 000002
Fl
= 000004
Fg
= 000010
F
= 000020
Fé
= 000040

GET

%YSIS

044144

= 000001
GTSWR = 104407

072
072716

HCE
HCI
HCRC

= 000200
= 002000
= 000400

EMTS

072746

= 000011

072

HELP

106314

IAE
= 002000
IDXMSK= 000077
IE
= 000100
ILF__
= 000001
ILF02 = 000002
ILF24 = 000024
ILF26 = 000026
ILF30 = 000030

ILF32 = 000032
ILF34 = 000034
ILF36 = 000036
ILF40 = 000040
ILF42 = 000042
ILF44 = 000044
ILF46 = 000046
ILF54 = 000054
ILF56
= 000056
ILF64 = 000064
ILF66 = 000066
ILF74 = 000074

ILF76 000076

ILR
= 000002
ILRG50= 000050
ILRG52= 000052
ILRG54= 000054

FMT16 = 010000
FNCDTB

071516

ILRG56= 000056
ILR
000060
ILRG62= 000062
ILRG64= 000064
ILRG66= 000066
ILRG70= 000070
ILRG72= 000072
ILRG74= 000074
ILRG76= 000076
I0TVEC= 000020
IPCKO
= 000001
IPCK1 = 000002
IPCK2 = 000004
IPCK3
= 000010

PLFS

= 005000

= 000100
= 000140

PRIERR 045226
PRO
= 000000
PR1
= 000040

044%30

EMT..
EMTS1

EMTS

PIRQVE= 000240

MFGFIL 110324
MI
= 000004

MIXED

MOC

MOH
MOL
MRD

MS
MS

071626

000400

= 020000
= 010000
= 002000

= 000040
2

MSDRVS 071374
MS
=1

MSER = 0002
MSGDRV 071410
MSHELP 070345
MUR
= 001000
MmD
= 000010

= 000010

NOP

000000

NOTPRS
NSA

071 436
100000

MXF
= 001000
NDTMSK= 115760
NED
= 010000
NEM
= 004000

NOTAVL

071453

0cC
OFD

100000
000200

OFFLIN 071472
gFSET- 00014
= 000001
S
071666
ONLINE 071504
OPI

= 020000

= 000200

PACACK=
PAKACK=
PAR
=
PAT
=
PDA

000022
000022
000010
000020
000400

28
&3

EMTS

076340

PRé
PRS
PR6
PR7
PS
PSEL
PSW

=
=
=
=
=
=
=

PUT

PUTBUF
PUTINX

000200
000240
000300
000340
177776
002000
177776

044500
001410
001551

PWRVEC= 000024

QUES

RSLSTS

055378

RDCHR = 104411

RDL IN

EMT353

EMT 54

SEQ 0298

SERRES

CZRMOAOD RMOS5/3/2 FCTNL TST 3

SYMBOL TABLE

RDOCT = 104413
RDY
00
READY
007764
RECAL = 000006
RESREG= 104415
RESVEC= 000010
REX
= 010000
RG
= 040000
RGDTPT 071626

= 000072

RMASI
RMASO

= 000016
001352
001426

RMBAI

001340

RIP
= 000020
RLEASE= 000012

RMBA =
RMBAE =
50
RMBAEI
001404
RMBAEO 001460

001414

RMCS1 = 000000
RMCS1I 001334
RMCS10 001410

RMCS2 = 000010
RMCS2I
001344

RMCS

001420

RMDAI
001342
RMDAD
001416
RMDB = 000022
RMDBI
001356
RMDBO
001432
RMDC = 000034
RMDCI
001370
RMDCO
001444

RMDS

= 000012

RMDSI
001346
RMDSO
001422
RMDT = 000026
RMDTI
001362
RMDTO
001436
RMECT = 000044
RMECTI
001400
RMECI10 001454

RMEC2 = 000046
RMEC21
001402
RMEC20 001456
RMER1 = 000014
RMER1I
001350
RMER10 001424
RMER2 = 000042
RMER2I
001376
RMER20 001452
RMHR = 000036
RMHRI
001372
RMHRO
001446
RMLA = 000020
RMLAI
001354
RMLAO
001430
RMMR1 = 000024
RMR1I
001360
RMMR10 001434
RMMR2
= 000040
RMMR2I 001374
RMMR20 001450
RMOF
= 000032
RMOFI
001366
RMOFO
001442
RMR
= 000004
RMSN = 000030
RMSNI
001364
RMSNO
001440
RMWC
= 000002
RMJCI
001336
WCO
001 412

= 100000

RE
RTC

= 040000
=000016

SA16

= 000020

R6
=2000006
R?
=2000007
SADMSK= 000377
SAVREG= 104414
SA1
= 000001

Haa

001250

TSTé
1ST7

uBuUSa@s
TYPBN
TYPDS
TYPE
TYPOC
TYPON
TYPOS

104403
070722
b d o

001151

d o

d e e e e e e e
O—=—
=N NONONINOINONIN) = -2
IO N
v
NS

WY D) e

RS
R R R

NN WO

HOO

—

D222
n

065736

TAGADR
b2 2% Y

3388383888888
§‘\~‘_._n-n-ao_n_n_.-a-a_a_a
\ni—n—n-.—n
N l\r
Su

$DOAGN
$DTBL

288 Zgesssssssssesezeazesss

SNENS &R

e N

T 052344

— e

8§?
i

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

SEQ 0299
N~

83283288 8838883388888 <88

W —

roRSN

000004
070230
003700

N NN N N N NN NN

000010
20

000002
000004

SRS

100000

=82

SYMBOL TABLE

288888888828

SRt LR
CZRMOAO RMO5/3/2 FCTNL TST 3

001267

SNULL
SNWTST= 00000

000001

CZRMOAD RMOS5/3/2 FCTNL TST 3
SYMBOL TABLE
STTYIN
STYPBN

STYPDS
:R:EEC

. ABS.

067322

STYPEX

064334
&55006220

STYPON
$TYPOS

064260

$TYPOC

112340

000000

ERRORS DETECTED:

SEQ 0300
065340

SUNIT

064620
064560

SUSWR
SVECT1

064604

000
O

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

001

VIRTUAL MEMORY USED:
55976 WORDS
( 219 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
69 PAGES
CZRMOA.BIC,CZRMOA/C=CZRMOA.DOC,CZRMOA,
SYSMAC/M

SUNITM

001234

001110

001246
001272

SVECT2

001274

$XOFF = 000023

$XON = 000021
$XTSTR 065360

$$GET4= 000000

$$5w08= 000030

SOFILL 065003
.$x
= 001100

- | CZRMOAQ RMOS5/3/2 FCTNL TST 3

CROSS REFERENCE TABLE

E 8
MACRO v03.01 11-APR-80 13:39:53 PAGE S=-1

(CREF v01-05 )

SEQ 0301

$SGET4
$$5w08

SOF ILL
$40CAT

SASTAT
$SATY]

SATY3

$ATYS
SATYC
$SAUTOB

$BASE

$BDADR
$BDDAT

12-238
12-J12

12-380
12-K63

12-555
12-M08

12-842+
12-G85+

12-C07+

12-C24+
18-82+

25-53+
25156+
25-257+
25-388+
26=34+
29-66 *
29-212+

36-112+

$BELL
$BIN

$COW2
$CHARC
SCKSWR
$CM3
$CM4
$CMTAG
SCNTLC
SCNTLG
SCNTLU
CRLF

$DBLK

25-64*
25-158
25=272+
25-403+
26-93+
29-68
31-30+
31-114~
3-6
34=17+
34-84
35-203+
35-457%

5-0

9-19

10-41

10-114
7

10-152

38-7

49-8

5-0

5<0

13-20
38-8

38-8

1421

14-38

38-8

5-0#

14-76

14-86

14-99

38-8

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

CZRMOAO RMOS5/3/2 FCTNL TST 3
CROSS REFERENCE TABLE (CREF v01-05 )

10=115+

10-122+

10-149+

38-7
38-5

38-12
38-12

38-12

38-6
38-6

38-6
38-6+*

38-6+*

38-7

38-7%

38-7+

38-7
38-7

38-7*
38-7

38-7

SEQ 0302

11-3

11-30

38-7

38-7+

35481«
36=77%
$GET42
SGTSWR
$HIBTS
10CT
ICNT
SILLUP
INTAG

38-6+*

38-6+

38-8

38-8+

14=29

38-7

St NNhNlNwdNNlNlNtNNtNlNlNlNNlSNlNTN

5=0#

38-7
38-7

G0 |

387+

SITEME

SEQ 0303

CZRMOAD RMOS5/3/2 FCTNL TST 3

H 8
MACRO v03.01 11-APR-80 13:39 :53 PAGE S-3

CROSS REFERENCE TABLE

(CREF v01-05 )

5-0#
38-12#

38-5

SLF
SLFLG
$LPADR
SLPERR

38-5
38-12+
9=19+
Q=19+
12=; 33+
12=157+
38-6*

SEQ 0304

38-7

38-8

38-6

38-6*
12335+

386+

38-6*
12-476+
12=a51+
12=N05+

12-608+*
12=A57*
12-007+

12-655+
12-853+
12-053+

12=756*
12=D45+
12=P54+

12-803+
12-E08+
12-Q11+

12=901+
12-F78+
38-6

12-947+
12-HOO+*
38-6

11=27
12-a96

12=2

12-(82

12-34
12-F07

12-63
12-639

12-91
12=H57

12-238
12-J12

12-380
12-K63

12-555

12-703

12-63
12-555#
12-=63#4
12-G39
12-M08#

12-634
12-703
12-=634
12-G39%#
12-N53

12-91
12-703#
12-2464
12-H57
12-N53#

12-91#4
12-848
12-7464
12-HS7#
12-P04

12-914

12-238
12-8484
12-3964
12=J12
12-P04#

12-238«#
12-:27
12-a96#
12-J12#

13-20+

38-6

38-8

12-289*
12=>17»
12=L14*

9-25
12=746

12=>85+
12-L60

12-M08

12-N53

38-12+
38-12+

38-12

38-5

38-12%

38-7

38-11+

38-11»

38-10
38-10
38-10

38-11«
38-10

38-8

38-6#

CYOLOLOLOUYOLDLOLLOLVYLOLLLLOLOCO

9-19

M)M)SM) WM)ASAJ0TWAATNS0SGSSd

$SCOPE

SEQ 0305

CZRMOAO RMO5/3/2 FCTNL TST 3

MACRO v03.01 11-APR-80 13:39:53 PAGEJ Sgk

CROSS REFERENCE TABLE

(CREF v01-05 )

4-782
9-19
11=27

4-782
9-19
13-20

$SETUP

$STUP
$SVLAD
$SVPC
$SWO8T
$SWR

$SWREG
$SWRMK

$TESTN

$TIMES

$TKB

$TKCNT
STKINT
$TKQEN
$TKQIN
$TKQOU
$TKQSR
$TKS
$TKSRV
$TMPO
$TMPT

4&~782
9-19

4~782
9-19

4£-782
9-19

4&=782#
9-19

38-7
4-782

38-7

4-488
12-2
12-(82
38-6
38-6
38-7

4-488
12-63
12-G39

4-488
38-6
12-91+
12=H57*
38-6
38-8
38-8+
38-8#

SEQ 0306
4-7824

4-782#4

4~488
12-91
12-H57

4&~7824
9-19
38-8
4-7824

4~782#

4-488
12-238
12-J12
38~6

4-488

38-8
4-782#

38-6
38-6
38-7

38-6
38-6
28-11

38-6

38
38-6

4-488

38-6

12=J12+

12-380+
12-K63*

12-555%

12-703~
12-N53+

12-848+
12-P04*

-6

38-6
38-8

4-782#
9-19

4-782#4

9-25
38-8
4=782#4

5-0
12-703

;Z-NSS

4-782#
9-%5

9-19
9-25

4=7828

4-782#

5-0
12-848
12-P04

9-19
12-:27
13-20

38-6
38-7

38-6

12-;78%
38-6+

12-=63*

12-246+

38-8

38-8+
38-8«

38-8+

38-8

38-8+

12=524*
12-B18+
20=41+
10-30
10-98
10-136
12-870*
12-H78*

12=724*
12=C11=

12-869+

12-:86*
12=-J32*
49-10
10-48
10107
12-51

12-<00+
12-J81+

12-259*

12-816+

12->23+
12-P25«

12-266*
17-56
|

12-63
12-555
12-:27
12-3%
12-G39
12-M08

12-634 |
12-555 |
12-:27#|
12-a%6 |
12-G39%#
12-M08 |

38-10
38-10
38-10

49-10

$TMP2

'
10=-59+ |
10~118+
12-84+ |
'

$TMP3

$TMP4
$T

$TPB

$TPFLG
$TPS
$ TRAP
$ TRAP2
[STRP

38-10
38-10
38-10

38-10

3810

38-10°

K 8

38-10

3810

38-10

3B-10r

38-104

36-10¢ _38-104
Q

£~

3810

mmmmmmmmmmmmmmmm

38-10

W Mmmmmmmmmmmmmmmmmm

%10

CZRMOAQ RMOS5/3/2 FCTNL TST 3

MACRO v03.01 11-APR-80 13:39:53 PAGE S=5

CROSS REFERENCE TABLE

(CREF v01-05 )

38-10#

11-37+«

13-20«

386

38-6

38-6+

38-10
38-10
38-10

38-12
38-5#4

38-8

$TRPAD
$TSTM
STSTNM

STTYIN

STYPBN
$STYPDS
STYPE

S$TYPEC
$TYPEX
$TYPOC
STYPON

38-10
4-78%#
5-0#

38-10#

38-8

38-5
38-5
38-4#
38-4

38-5
38-5
38-10
38-4#

38-5
38-5#
38-10
38-10

11=42%

14-23

24-49

10-69

10-81*

10-85

38-2#4
38-3#
38-5#

STYPOS

38-4#

SUSWR
SVECT]
SVECT2
$XOFF
$XON
SXTSTR
SASTA
“$X
Al6
A7

5-O#
5-0#
5-O#
38-5
38-5
38-6#
38-12
4-789
4-7284
4=727H

ACDWT
ACDW2
ACKSTS
ACPUOP

5-0
5-0
15-152
5-0

5-0
5-0
16-137
5-0

ADDW1
ADDWI0
ADDW11
ADDW12

5-0
5-0
5-0
5-0

5-0

ADDW1%

5-0

(ADDW2~
ADDWS

5-0
5-0
5-0
5-0
5-0
50
5-0
5-0
5-0
5-0

SUNIT

ABASE

ADDW13

ADDW15

VCT
W

AENV
nENVH

FATAL

5-04

5-0

38-10

38-8

38-84

SEQ 0308

38-7

10-107%

-’
38-5

38-12
4-789#

5-0

5-0
32-15#

5-0

12-2
12-2384
12-:27#
12-C82
12-J12#

5-0
5-0

5-0

5-0
5-0

5-0
5-0
5-0

|
|

5-0
5-0

|
|
;

5-0

12-20
12-380
12-:27#
12-C82#
12-K63

5-0
5-0

5-0

;

12-2#
12-3804
12-:78
12-C82#¢
12-K63#

12-34
12-380#
12-:78K
12-F07
12-K63#

12-344
12-555
12-;788
12-FO74
12-MO8

12-34#
12-555#
12-=63
12-FQ7#
12-MOBH

1263
12-555#
12-=63#
12-G39
12-MOBH

12-634
12-703
10-=63#
12-G30M
12-N53

12-63#
12-703#
10-246
10-G3OK
12-NS3#

12-91_
12-7034
12-2468
12-HS7
12-NS3#

12-914
12-848
12-7464
12-HS7#
19-P04

12-914
19-848#
19-39%
19-HS7#
13-PO4K

12-238
13-848K
19-396#
19-J12
19-PO4H

12-238#
1-:27 |
13-3964
15-31o#|
r

|
|

10-127

39-6#

SEQ 0309 |

—.oSR

ALL

I3wamwwa.y3232323
&TPtyOLLT®¥ LyPLoRoLPR
R
i
n
BN LRALLYLLyLLyLLLLL eLL AD w

TYo2To1
T}T2YTtTyNy2STfeTT200L2o4Lg00yPR00L42P00LtR2O00eRP020s00002ILR002TA00e00L0000OLL00L00LLT00tP00L00L00L0P0L0LN=T0P=IeLOeoLoL ooooO5\w7

®TAY2LaLW¥4}TNTTg¥2VcSIoDv1S20F"L~NTEI2LT3B3TLyYLP®IL2»TRLI]A2NI¥LTrykN2I0nIT1]W2TRVT8R2¢03V2IT]VTBTeW2ITNS0AwTARNN0NLVTLR0tTIRLDTL00NLyRLLYR0yN*3*®0g»rALL500SLNgLL3IT0GLILsoPAgNLL0ALLPI02RILePb=A*N00»3LIeLT0RRLL=BULNLIAGIN3LLLM]3R[WOooTgo2vsaI\Y]

w22bLY=FDIR§]bv3A,N/TSSI'LmRlIA8LAeoseJNL’fLSY,yAl3RWce{RIX‘SeSuRw]LfIL=RLiSy]NLSTLy3ebA®I1LT2SNL130ILLNelGt8RLV0e’LSs{IRVNPoTYSR1GFR*I+RRaI1QROSINNA%RRe3G&gPRTNSyA4AeRSLLRLIORk1SLTI1SL¥r—MRRvo52-..=!\
APTSIZ

ARGS

APTSPO

ekoP~ltk AoR32-R03S732
38-5

2xVABaTlV22nTlRT«.202NTl%2=NoT2=l20TcA=0Tl2RT(20.oy2(l0A=yLa2N(02l01PLb0L210RTAT01022RA001RLN0022RL010RL00A12L200Y1P02L200LL2PB01y2=1lPL10122Lo01LRo112L2qAo1OlLooq2D2ReeloL%.eoAl22eeqR}Llo $mw&5<<~7

N-

o A 0 — -0\

b n Ry - -

CZRMOAOD RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE S-6
CROSS REFERENCE TABLE (CREF v01-0S5 )

SEQ 0310

12-L52¢

12-L54@

12-L564

12-L69

12=L69%

12-L854

8 9
12-L88¢ 12-L90#

12-L93#

12=L978

12-L99#

12-MOTH 12-MOZH 12-M16|
SEQ 0311 t

g8 §$9

y1numw

4”

M
M
S

3NN o
LAALTREATE
TORLERATRAATI

m”n9

kbbbbbd%%fid#

3.8

455*%
22.%.324 [ %.
21202020
2

L L
I
P

—

————

W.D.IWBS

eru

ery
ler

e
rar

AR SR

.o.-a..c

14
>>7.7.

R
A

¥4

baaau«¢q»%»qmam

L
A

11111111nnuuunwzaaa»a

233w radod

eO
bbbbok b b ok ok b b bk TP TS Yy e

3“
OMN N 8
NN O~ ..>
>wfl4 “w
PAHA A00A
Jv.
.c..a((.. ]
[
10
%.
222&. 1
2222221
1”2222
11111

.....3%455% o0 A A
.o

y
8‘1-472mW7
47814”7%91 M
~ “9
O3O

T
NS
2ot BIRIZIN BR-~FF 3PaRdTA u&ww1mmwwuuy

W”
WQfin

mwm444444mw« S mwmwmmmnuwmnnu poRuunn

" ....J\%..dl.q Al o
. .l.l._./l.n/l.nun/l.zzabzzz..r.bm 4%

orm
E¥g

w w nwnwzaz ab flfl%a%flzfifl< flaWM>nm 2 |
Wil by is R e e e

naen e

ZZMH

3888

seenan

ey =
3H

RS X XN
crr2rEee 2 M

: F I STE 0 %

? 3.33%8

£2

12-A06#

12-A17

12=A174

12=-A41

12=A41R

12-A4il

12-AL6H
SEQ 0313

mmmmmmmmmmmmmmmmmmmmmMmMmmeen

D
12-A06

mmMmmmmmmmmmmmmmmm

12-a91#

12-a91

12-38%%

12-389%

TMMmm

12-a89%

<_355050 mrwnSmwnmwWm’u%m®wramPw-swa1aww$®8»ziainel
R_p2S~I2NeSPRrRA3aIna3£4<RrI.EXAO3iAyRIER5~AEISoSo F(\JLSENTFR¥eV%EISA1}TEa])VVTTBY,TtTexrnNVmeaTTNTGVVR2dwgTLT®=TSn»FNVimT3TTENVcsRTT0BSVTnRSTNu*NI0PG»VeVdsTTetP30NVaTTRENe02ndT0TwNTNL0PTTRA0TiNmeLSuRtL=0PTNRwdLA7eNG0NPpLuLLya2=0eosL0mLTRo0PLwLoNl0PLYmLeRy.d0PL“tLEn0TkLmLLSee0eRnLBL®=0TrL3mLISE0TTLwRLRRto0TPrdLsn5LTna0Tat0ysLmLTOT0nLOtwSMI3eOTrnLu5NPRe0TEnTwA23T1Rd5T1uLylN30eTmeeSeT0LLRTTdAL.8Lm®eTire0sL¥ea53mPe?Se*BTtlmRy,
®» - T

®x ® N' uwn R

T=AIATIBSTIRTINRTRIAETIMNLSI— g2A2PRTr2P25hPoaS2RET2ec2=oeSTn2=0T2=00A2=T000R20002I000200T2R000R20002TA0000¥2R0002¥0000I200L0N200020T00N2L0IT0TT2N00R0A2T000T2A000R2P0S002R30P02NB002eo002R0102Ro1212ASooR2eooE2PAeoN26o0 2oR
N| 3 N£N: .Vi
o—)SATRVTRV=STRV-TRTARVRRTATA®NRRARESTA¥RTRALP*RAL®=RsLAS(oL0ba0RR0ALT0ALTRN0RGEL®%0ATLR0Lg=I0N0gTSLTg00NRTR0LATAe0PRRR0ASnR -RR0P=AR=RP&TAo=LA(oRPL]AoT =kRSTRRo<*

1&oATRU)LBI=N12tRI8T1N02-RN— NONO2ANen!12&-R1&12=sD=b1‘e2R=01S0u12An0102NAI®01R»0qA2ol0od0l2®b.Rn0»0=l2!0IlBNs0co2l!0.x20csl0ql02co0l2tAc0Rl20qIl0qNAl012TcRlI2c1BRlA2=Bc%lO2cN*oT»l2RceTiNlock2BR lteycl]
CROSS REFERENCE TABLE

CZRMOAQ RMOS5/3/2 FCTNL TST 3
(CREF Vv01-05 )

E 9
MACRO v03.01 11-APR-80 13:39:53 PAGE S-8

SEQ 0314

4-581

4-603

(=619

4=636

4=660

4=677

4-687

4=729

4=742

SEQ 0315

4=567

Mamammmammmmmm

L=L91n

=497

mmmmmmmmmmmmmmmmmmm

BITO7

CZRMOAQ RMOS5/3/2 FCTNL TST 3

CROSS REFERENCE TABLE

BITO8
BITO9
BIT
BIT10
BITN

BIT12
BIT13
BIT14

4=49
4=t
4=49»
L=491n
4=49»

38-6
4=~
4=~69H
4~4914

4=69n
4~491n
4=49%
4=4914
¥
4=49
=494
4=49n
4=4914
4~

14=53«

14-39+
"
=49

MACRO v03.01 11-APR-80 13:39:53 PAGg $-9

(CREF v01-05 )

4=694
4L

SEG 0316

4=544
4=543
12-81
4=564
4=541

4-618
4-617

4=677
4=677

4=741
4=740

38-6
38-6

38-7

4-633
4-632

4=674
4-658

4=726
4-685

4-739
4-738

4~762
4=761

38-7
15-165

4=562
4=575
4=574
4=573

4=657
4-671
4=670
4-669

4-684
4=725
4-693
4-692

4-760

15-11
38-7
4-758
4=757

15-73
18-33

38-6
18-90

12-862
12-A28+
12-J04

12-916
12-A71
12-J25

12=:06
12-067

12-:21«
12-096

38-5

39-3

4=759
4=735
4~734

35-320
35-426

23-24
14-74
14-84

14=1344
14-1354

12-843

12-C36

12-D93

16=221

25-431

12-303

12-394
12-=74
12-D61
12-M74
12-534
12-F97

12-698
12-A12

12-955+
12-M03

12=717
12-A24
12-H70
12=P17
12-995
12-N19

37-18

12-=53

14=64+

}2-647

51-3#4

14-72

23-13

22-15+
11-49

11-24
12-=53

12-J04

10-50

10-144

15-76

30-12¢

10-136
9-25

14-56
9-25

12-M03

12-N48

12-096

18-17#

38-5
9-50

47-79
9-56

9-57

11-24

39-26#

38-5
9-39

38-5

39-4

396

39-9

39-10

39-11

39-12

39-13

39-15

39-16

39-17

39-18

39-20

39-22
SEQ 0317

MACRO v03.01 11-APR-80 13:39:53 PAG% $=10

CTLFG
CYLMSK
DBCK
DBEN
DBL
DCK
DDISP
DEBL
DEVSEL
DISPLA
DISPRE
DLY
DMD
DPE
DPEHI
DPELO
DPR
DRQ
DRVCLR
DRVSTS
DRY
DSWR
DTASTS

31-03
S1-§6

39-27
5125
51-39
51-53

51-50
51-64
11-39»

4=590

5<0

-1

51 28
4
51-42
56

48-15

51-30
51-44
51-58

viwawn
S
— ) -2 00
UL
(VY NVvRA
OWN—=O

39-23

SEQ 0318
VSN
—
NWwWon

CZRMOAD RMOS5/3/2 FCTNL TST 3
CROSS REFERENCE TABLE (CREF v01-05 )

51-20
51-34
51-48
51-62

25-489

35-413

35-416

35-43

35-466

35-469

31-125

31-126

12-426
12-:71
12-C05
12-L10

12=470
12-<28
12-C21
12-L54

12-604
12-=49
12-D41
12-M55

12-649
12->13
12-E02
12-M99

12-E64
12-N44

24-68
33-266

28-37
35-232

34-17
35-239

34-18
35-284

36-89

25-485

25-491

40-77

40-78

40-85

7-34
7=76
7-118
7-167
7-210
7267

7-37
7-79
7-121
7-170
7-213
7-270

28-12#»
9=19+
9-19

25-313
4-6434
24=137
29-195
16-87

34-9%
24=104
5-0
12-182

12-897
12-a89
12-149
12-P50
4=590

12-71
9-89

29-127
42-107#
4-590
18-21

12-694

12->79

36-97
40-86

49-1#

49-104
7-10
7=55
7-97
7-140
7-189
7-246

7-46

7-13
7-179
7-237
7=279

7-288

7=291

7-294

7-297

7-300

7-303

7-306

7-309

7-312

7-315

7-318

7-321

SEQ 0319

7-285

mmmmmmmmmmmmmmmmMmmMmMmMMmMMmMmMMmMMmMMmMMmMMmMMmMMmMMMMM
M MMM mMoen

7-282

CZRMOAQ RMOS5/3/2 FCTNL TST 3

CROSS REFERENCE TABLE

7-324
7-373
7=415
7=526
7=574
7-622
=664
EDT110

(CREF v01-05 )

7-327
7-376
7-418
7-532
7-578
7-625
7-667

EDT111

7225

7-222

45-4#

EFTII0
EFT111
EFT114
EFT2
EFT223

7-222
7-225
7-234
7-427
7-448

46-4#
7-228
46-7H
7-430
7-529

EFT336

7-352

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

7-228

7-682

7-330
7-379
7=421
7=535
7-582
7-628
7-670

7-333
7-382
7=424
7-538
7-587
7-631
7-673

7-336
7-385
7-433
7=541
7=59
7-634
7-676

45-54

46-5#
7-514
46-8#
7-688

7-517

46-2#

7-691

46-10#

7-339
7-388
7=436
7=544
7=595
7-637
7-679

7-342
7=391
7=439
7=547
7-598
7-640
7-694

7-345
7-394
7=-442
7=550
7-601
7-643
7-697

SEQ 0320

7-348
7-397
7=445
7=553
7-604
7-646
7-703

7=355
7-400
7=505
7=557
7-607
7-649
7=706

7-358
7-403
7-508
7=560
7-610
7-652
7=709

7-361

7=364

7-370

7-406
7=511
7=564
7-613
7-655
7-712

7-409
7-520
7=567
7-616
7-658
7=715

7-412
7-523
7=570
7-619 |
7-661
7-724 |

—TToTReLe LULLULTLILLLLLL el
EN353
4415
48-18#

SEQ 0321

CZRMOAQ RMOS5/3/2 FCTNL TST 3

CROSS REFERENCE TABLE

EHTT

EHT336
EHT337
EHT344
EHT353
EMS1
EMS10
EMS100

(CREF v01-05 )

7=4
7=49
7-91
7-134
7-183
7-240
7-282
7-324
7-373
7=415
7-526

7=7
7=52
7-94
7-137
7-186
7-243
7-285
7-327
7-376
7-418
7=532

7-10
7=55
7=97
7-140
7-189
7-246
7-288
7-330
7=379
7=421
7=535

7-622
7-664

7-625
7-667

7-628
7-670

7-222
7-225
7-234
7=427
7-448
7-529

44-4n
7-228
44-7H
7-430

7=574

EHT110
EHT111
EHTI14
EHT2
EHT223
EHT256

M9
MACRO v03.01 11-APR-80 13:39:53 PAGE S~12

7-352
7-685
7-700
7-721
43-3
43-7
43-39

7-578

44-BH
44-9#
7-682
44-12#
44-134
44-15#
47-34
43-11
43-71

7-582

7-13
7-58
7-100
7=143
7=192
7-249
7=291
7-333
7-382
7=424
7-538

7-16
7-61
7-103
7-147
7=195
7=252
7-29
7-336
7-385
7-433
7=541

7-19
7-64
7-106
7-151
7-198
7-255
7-297
7-339
7-388
7-436
7=544

7-631
7-673

7-634
7-676

7-587

7=591

7-300
7-342
7=391
7-439
7=547

7-28
7=70
7-112
7=161
7=204
7-261
7-303
7-345
7-394
7=442
7=550

7-31
773
7=115
7=164
7-207
7-264
7-306
7-348
7-397
7=445
7-553

7-34
776
7-118
7-167
7-210
7-267
7-309
7=355
7-400
7=505
7=557

7-37
7=79
7-121
7=170
7-213
7=270
7-31
7-35
7-403
7-508
7=5€0

7-40
7-82
7-124
7-173
7-216
7=273
7-315
7-361
7-406
7=511
7-564

7=43
7-85
7=127
7=176
7=219
7-276
7-318
7-364
7-409
7-520
7=567

7=46
7-88
|
7-131
7=-179
7-237
7=279
7-321
7-370
7-412
7-523
7-570

7-637
7-679

7-640
7-694

7-643
7-697

7-646
7=703

7-649
7-706

7-652
7=709

7-655
7-712

7-658
7-715

7-661
7-724

7=595

725
7-67
7-109
7=155
7-201
7-258

SEQ 0322

7-598

7-601

7-604

7-607

7-610

7-613

7-616

7-619

44 54
7-514

7=517

&44-2#

7-688

7-691

44-114

47-104
43-176

43-196

47-66#

43-181
43-135
43-213

43-182
43-141
43-214

43-183
43-196
43-215

43-184
43-197
43-219

43-186
43-198
43-220

43-187
43-203
47-69#

43-188
43-204

43-189
43-205

43-234
43-206

43-235
43-207

47-68#
43-208

f
43-209 |

43-16
43-30

43-17
43-31

43-18
43-32

43-19
43-33

43-20
43-43

43-21
43-177

43-22
47-11#

43-23

§3-24

43-25

43-26

43-27

43-48
43-107
43—5%2

43-50
43-108
43-188

43-51
43-109
43-189

43-52
43-110
43-190

43-54
43-134
43-192

43-55
43-137
43-193

43-60
43-139
43-194

43-61
43-140
43-195

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

43-149

43-178

43-185

43-201

43-225

43-228

43-229

43-230

43-231

47-8#

43-97

43-99

47-834

4£3-89

43-90

43-102
43-103

43-169
47-88#

47-87#

|
|

43-91

£3-92

43-93

43-94

43-95

43-96

43-98

43-126

47-85#¢

EMS127

47-8%#

SEQ 0323

8 10
CZRMOAD RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE S~13
CROSS REFERENCE TABLE (CREF v01-05 )
EMS1
EMS1
EMS131

EMS1

43-13
4£3-86
43-87

43-79
43-93

4342
43-95
43-96

43-80
“

43-216
63-106
63-106

47-134
47-90#
47-91#

SEQ 0324

4£3-81
43-95

43-82
43-96

4£3-83
43-97

43-84
43-98

4£3-85
43-99

4£3-86
43-100

4£3-87
43-101

4£3-88
43-102

4£3-89
43-103

43-125
43-126

47-934
47-94n

43-90
43-104

43-N
43-105

43-92
43-106

43-222

47-9%

43-223

43234 |

43-70

43-71

EMS133

4%:79

43-80

4£3-81

4£3-82

4£3-83

43-84

4£3-85
4394

43-95

43-86

4£3-87
43-96

EMS136

43-99

43-100

43-101

43-102

43-103

43-106

43-105

43-106

47-964

EMS140

43-44

43-52

43-60

43-107

43-117

EMS142
EMS143
EMS144
EMS145

43-47
43-47
43-36
43-36

43-65
43-65
4373
43-73

43-108
43-73
43-109
43-109

43-140
43-108
43110
43-110

43-184
43-109
43-205
43205

43-137
43-66
43-202

43192
43129

47-984
43-137

43-187

4£3-188

43-197

43-110
47-102#

43-186
43-107
47-100#

43-133

43-140

43-184

43-202

43-205

471014

EMS147

43-69

43-112

43-113

43-173

43-217

47-105#

EMS150

43-50

43-51

43-54

43-63

43-67

63-111

43-134

43-138

43-182

43-183

43-19¢4

43-195

EMS151

43-69

43-112
43-51
47-109#
43-112
43-124
43-114
43-123
47-164
43-115
47-115#

43-113

43-173

43-217

47-107#

43-182

43-183

43-194

43-195

43-223

47-108#4

43-67

43-68

43-69

47-122#

EMS134

EMS152
EMS153
EMS154
EMS155
EMS156
EMS157
EMS16
EMS160
EMS161
EMS162
MS163

43-50
43-111
43-111
43-112
43-113
43-113
43-13
43-114
43-114
47-116#4
43-58
43-72

EMS165

(3-89

43-90

43-54

43-91

43-63

43-92

43-111

43-93

47-103#

43-134

43-122
47-111#
43-115
47-113#

43-123

43-124

47-110#4

43-116

43-173

47-112#

43-116

47-114#

43-59
43-73

43-60

43-117

43-61
43-143

43-62
47-117#

43-63

43-64

43-65

43-66

43-56

43-57_

43-71

43-72

43-172

43-196

43-197

43-198

47-1204

EMS167

43-8

43-49

43-68

43-122

43-123

43-124

43-168

43-169

43-170

43-175

43-235

EMS171

43-57

43-105

43-125

43-126

47-124m

MS173
MS174
MS175
MS176

43-214
43-216
43-216
47-129#

47-126#
47-127#
43-217

43-218

43-219

47-128#

MS2
MS20

43-4
43-34

43-5
4%-58

47-4n
43110

43-118

43-119

43-120

43-121

43-212

43-232

43-238

47-184

MS202
EMS203
EMS204

43-129

43-130

43-131

43-132

43-133

43-134

43-136

43-180

47-1334
43-237

47-134n4

43-129
43-131

43-130
47-135#

43-131

43-132

43-133

43-174

43-175

43-176

43-55

63-142

43-179

43-233

47-1364

c10
SEQ 0325

EMS205

D10
CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE S-14
CROSS REFERENCE TABLE (CREF v01-05 )
EMS206
EMS207

43-55
43-168

63142
43-170

43-170
47-138#

43-179

EMS210

43-169

43-170

43-173

&7-13%#

EMS212

43-171

43-172

47-141%

EMS221

43-231

43-238

47-148%4

EMS26
EMS27

43-20
4%:16

43-116
43-19

43-173
43-20

EMS30

43-17
43-33

43-18
43-43

EMS31

43-21

EMS34

SEQ 0326

43-233

47-137#

47-24k
43-115

43-116

43-173

47-25#

43-21
43-129

43-22
43-130

4£3-23
43-131

43-24
43-132

43-25
43-133

43-26
43-144

43-27
43-145

43-146

43-207

43-208

47-27#

43-24

43-225

43-226

43-227

47-30#

EMS36

43-26

43-2}2

43214

43-215

47-32#

EMS46
EMS47

43-43
43-37

43-58
43-44

43-120
43-45

43-145
43-52

43-177
43-60

43-185
43-61

43-199
43-66

43-201
4.-117

EMS5
|EMS50

43-6
2;:23’

43~
43-48

47-74
43-64

43-70

43-132

43-135

43-139

EMS51
EMS52

43-48
43-55

43-55
43-142

43-70
43-143

43-130
43-148

43-139
43-149

43-142
43-178

[EMS53

43-37
43-181
43-206

4£3-38
43-182
43-206

4£3-39
43-184
43-207

43-186
43-216

43-187
43-218

MS56

43-50

43-51

43-54

43-62

43-63

43-40

43-44

4£3-28
43-146

4«3-29

43-30

43-31

43-32

43-118

43-147

43-186

43-187

43-188

43-192

43-141

43-181

43-185

43-189

43-200

43-201

43-221

43-179
43-179

43-189
43-185

43-221
43-201

47-434
43-228

43-229

43-230

43-231

43-233

43-190
43-219

43-45

43-46
43-191
43-220

43-47
43-192
43-226

43-62
43-193
L7-454

43-64
43-194

43-65
63-195

43-73
43-200

43-140
43-202

43-141
43-203

43-67

43-119

43-143

43-144

43-178

43-182

43-183

43-194

43-195

47-404

43-147

43-174

43-175

43176

43=190

43191

43192

43193

43194

43=195

£ 10

43-196

43197

47=198

43-199

43-200

43-201

43-202 e i3-203

2121

EMSS?7

CZRMOAQ RMOS5/3/2 FCTNL TST 3

F 10
MACRO v03.01 11-APR-80 13:39:53 PAGE S~-15

CROSS REFERENCE TABLE

(CREF v01-05 )

63-204
43-223
43-6
43-224
43-224
43-224
43-42

43-205
43-228
47-84
47-50#
47-514
47-52#
43-149

43206
43-229

43-207
43-230

43-208
47-4SH

43-209

43-210

43=211

43=213

43-190
43-41

47-53#
63-144

43-145

43-146

43-147

43-199

47-54#

2%:?3

2;-3:

47-56#
43-45

43-46

43-47

43-48

43-49

43-50

43-54

43-66

43-70

43-73

43-183

43-195

43-208

47-59#

43-179
4£3-68
43-189
43-137
4£3-38

43-183
43-136
43-217
43-138
43-39

43-187
43-180
43-221
43-188
43-40

43-193
43-188
47-62#
43-222
L7644

EMS6
EMS60
EMS61
EMS62
EMS63
EMS64
EMS6S
EMS66
E:§97

43-8
43-41
43-34

43-14
47-554
43-218

EMS70

43-48

43-50

43-52

EMS71

43-51

43-59

43-63

EMS73
EMS74
EMS75
EMS76

63-139
43-49
4369
43-35
43-35

43-140
43-54
43-70
43-66
43-36

43-142
43-67
43134
4367
43-37

MT127

;-267

43-89#

MT131

7-273

43-91#4

MT133
MT134

7-279
7-282

43-93«#
43-94#

EMS72

43-36

4£3-48

43-51

43-55

43-56

43-57

43-60

SEQ 0328

43-214

43-215

43-220

43-51

43-52

43-54

L7=574

43-107

43-110

43-139

43-182

43-61

43-63

43-195
43-222

43-223

43-232
43-223

47-604
43-234

43-234

47-634

43221

43222

43-189

43-194

43-205

43-108

43-109

43-134

43-135

43235

47-61#

EMT13S

7-285

43-95#

610
SEQ 0329

SbBLo—gsG)fePtyT=—l

CZRMOAO RMOS5/3/2 FCTNL TST 3

CROSS REFERENCE TABLE

(CREF v01-05 )

—

]

E I 4 N

I
W

—

43964

S
WW
[
|

EMT136
EMT137
EMT14
EMT140
EMT141
EMT142
EMT143
EMT144
EMT145
EMT146
EMT147
EMT1S
EMT150
EMT151
EMT152
EMT153
EMT154
EMT155
EMT156
EMT157
EMT16
EMT160
EMT161
EMT162
EMT163
EMT164
EMT165
EMT166
EMT167
EMT17
EMT170
EMT171
EMT172
EMT173
EMT17%

[EMT175

EMT176
EMT177
EMT2
EMT20
EMT 200
EMT201
EMT202
MT203
MT204%
MT205
MT206
MT207
MT21
MT210
MT211
MT212
MT213
MT214
MT215
MT216

MACRO v03.01

43-1444

H 10
11-APR-80 13:39:53 PAGE S-16

SEQ 0330

(3=145#

7=436

ITFTETEI IJETFTETITITESZIEYEIIA AAdd

EMT217

110
SEQ 0331

CZRMOAO RMOS5/3/2 FCTNL TST 3

CROSS REFERENCE TABLE

EMT22
EMT220
EMT221
EMT222
EMT223
EMT224
EMT225
EMT226
EMT227
EMT23
EMT230
EMT231
EMT232
EMT233

7=55
7-439

MACRO v03.01

(CREF v01-05 )

43204
43-146H
431474
43-1484
43-149#

43214

43-224

J 10

11-APR-80 13:3%:53 PAGE S=17

SEQ 0332

7-591

43-1944

K 10

SEQ 0333

) eeeeeNe

EMT300

CZRMOAQ RMOS5/3/2 FCTNL TST 3

CROSS REFERENCE TABLE

EMT301
EMT302
EMT303
EMT 304

L 10
MACRO v03.01 11-APR-80 13:39:53 PAGE S-18

(CREF v01-05 )

43-195#4
64

43-224H

SEQ 0334

7-109

43-38#

-LkLK SL

EMT4S

Mm10

SEQ 0335

N 10
CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE S-19
CROSS REFERENCE TABLE (CRcF v01-05 )
EMT4S

7-1}%

SEQ 0336

43-3%#

9=-19«

12-38
21-29

12-39
21-29

239
30-14+

23-10+
30-25+

RTYO1
RTY02
RTYO3
RTYO4

14-26
14-31
14-33
14-125

14=-139#
14-1404
14-1414
14-142#4

4=502#

2
3
4
ER

4=500#
4=4998
4=4984
4=5844

F IND

4=5014

35-368
12-99

25-86
14-32

25-102

25-136

9-19+
12-40~

9-19«
12-41+

9-21*
12=45+

21-33«
2311+
30-25«

14-36

14-41

12-6
12-58«
22=5
28-21+

12-8+
20-35
22=7*
28-51+

20-39+
22-13~
28-51+

12-19«

12-25+

20~70*

21-34%
23-35«
38-6

21-59«
23-35+
38-6+

12-830

12-C18

12-C23

12-D86

12-D89

12-E48

12-E51

16-225

25-416

35-348

35-365

12-110

12-110#4

12=110#

12-126

12-126#4

12-1264

12-129

12-129#

12-131

12-131#

1213

30-13+

25-29

25-29
25-29
35-391
12-99#

26-113
12-825
35-394
12-99#

12-134#

12-138

12-138#

12-151

12=151#

12-1514

12-168

12-168¢

12-168#¢

12-171

12-1718 12-173
SEQ 0337 |

¥=Rr1[®a&nxBIyRn'&*e(O'jNa&rnR>¥ovRey)lRi®brRe-O_b3&‘IRLIzrIII®sI»y®»Okn3x1PRk{ORb*Svrs_tLx_®RS»Rx&TRSR{T&¥T|]L=|TRP_~VI-zhYay3[R&N*BeR»®**h®&ed="_N-3RhBRyL®

mohte3TAe3NLJ2A-Nyf%Vau33gnilSBt®2o*rndcYaBeRCnAwIRDnToN2ASdPfsYodEnAB-iSdg2e0rRn3T0:<8SRS2t)o3NRA3oo82%.eIB)NS2Reg,>n7ceAHdSB.>2NSo3eR_AS=GP®aTd72nGA3.CAdAS0n'237CeNa38a.4SdNR7A30tS0*C.rI23=Oon2N%iA3r0‘.RS4AdInXySeeINLoloIIb3nn2BWesNRtVaeBSlBosRR8I3,nVaRcsU3eooi3aI-tsHo8SWRa8IsTRneV*nsNeAx[oS3aV*IN)da3nRdRNe*saeIeSn*Ci2RAB*e+IBeeiORSNMgReOnA2oNzuAOdAnNnOtAeReRNtn%Ts®OR7NN3A&eG3Bs3NAd2lA834RsEo3Ne%0RI84SsN3Y35oz0ic3eRoe‘t45S8le3ne%&AFiimAe5#aBRaIRe5%Ate3=uIdeNS5%eeRSSndY&B7y3RRSaa%2#—73ERddONRnBsREnoyONRR2iESNdalIRReerlS&RRM2NdieRAS®MeRaSlN&&nR'NdSRen—Y
V)¥aP—Ir)1pgPVVsTPaT,eogsVVpPsgNTTegodVVoaTT==seR1ggsVOVPT=PTeeggVAVTT==eggSVVT=T=((e1TooVNT(=Teo(I=PoNVPT=T=T(ggoRBVVTT(o1(=ooVVITAP((T(oooVNWTT(o(goVT(Te(a(]egoooVTTa(oN(oggVVTqT(T(oAegooVnTNeT((oANToRoeVNAoTT(00goNVRTNAT(((NI0AoooTRT(oT(Ro0L0NTT(oN(TN00Ro=TNLTIoT(00]NoTN(oI(YT00T0oNyLTXYNLI0L00NYLTTPRIT100NTLNLYyLNLI000NTTLlI000TTLLLNLN0001tLLoOL000tTLlO000LLLNS100LLFB00p0LLLeoN0e00LLo0rS101TLRLLoa00LLLnT17010LLTooN00LTooT0n0LLLLoo010SLLNPooo1LLDLo11LLToo011OLTLLPNooT1LLPLooTToeLoIL OyNooLLoLoeLeeLoILRLeeoeeTeTeToATLeoTLLeTTLeeTLiMeN ee IL
¥Pa2R—gYL)—g1[wpV2p5TUg—gU0gmArtVT—g1ggoo2V0TgigwIr2vUTggRagaOs2VTmgggIyVTgR1ggsW2STmYToggg2UMUT(BgPgIgo2«ITNe(ge=owdL
T((=gP[eBof2VIIAT((BgOieo2ATU(esg]gfN0Ro2ITrr((igeooCAT(meo(UooR2NaUTw(o(Ooo2Vf(T(A([ooo2lVNLAU=OooT(ePo«VBL(e(R(T00ooo2wrNTULO(N(A0.eo¢o&T2L1No(NI0fo0RVTT((glY0o2oTOwAo(TNL"I04oRU»Y(N0I00o2AI%bYUYoN0RI0¢tNI(LLT0I01o2NmYRNL0I00TfNaeN0IBN01l2iLIoN1NI00%L0w0I102ILTa00S1I-woo0012LTmI(N0A01e1o%NR01021gIwLo0011AmaLl020TnRlLooO0P1aIw1LloIe2e01LLRo»o11LLNemo2o00wooeo0AIN LTo0e20BPALeo01R2ooT11BLAR0ooo7LEO2eooe71SNLAooePYe2eoeR)LeeeoAOBLN-2eeei—eeoeieDN2eeeoeTNOeeRTU2eeeyLR-eI2
Y=bsgnUOR—VRgkyOaVtgV'gnNgsNsgNAgV=kNgVANoANgA(Vg=RUAogRN(oOR(oUN== I050SOR0=(oUT(PoK¥NaDo0RyU(0oaN&k DA0nAUS00A0I0LNR0N01N0S10AM=10RN1AR01N1o0Mo1IRo&)1AeoALoRYeBoRNeoIWTAJoRBeyRUD IeSeRHeReIt
cn
CZRMOAD RMO5/3/2 FCTNL TST 3
MACRO v03.01 11 -APR-80 13:39:53 PAGE S$-20
CROSS REFERENCE TABLE (CREF v01-05 )

SEQ 0338

12-E33#

12-E334

12-E36

12-E364

12-E38

12-E38#¢

12-E41

12-E41#

12-E418

12-E4S

12-E458

12-E45#

12-E64
SEQ 0339

LLLLLLVLDDD

12-E33

o2uwmnmwmnwmnwmamnmuzwmmnswmwmnmmsmwWmfnlw2ym3“m312w3
2nmon5w%mXA«nmB%o0nnamSWanSmuaflno1m2fmlofwldnN=mSoe0Nws®mN.Nmuu5n%m3uw4ma8onumsfluwwNzmu
2YLN3N.TIN20NSTT&®N&N2O*SN&ArI2ITXLnNLALNIObA2L3—NR-LLINReN‘2IT1NLLRNY2Lsy_*LTL»yR3Nx2arsLSLP_L2Sa*BLeExyAMLA2NaxLLROLIN2IoLLAT*L2N8®NOE*»,TLyL2YN3LeIo0r=OL2L2NLT2—2L22‘A23L22E72LIe"i22Eoh2e'Lm22qBAl2NsG22SeL22R22R
meNFg|SoEg=n[RVw0E®]ReANRrAATVnIT=eVSIwT=eNNyvT=0V—NmT00VtaruTAR=0VonTd000aTaN=s00RVomT&=00TL-S Nm000TNn000Ls=RT00w0N300m02LR3T000NEg000mLnTN000eSR000mLATBB1000mLPT1s000Lm13TLA000Nw300NAaLTA0104mLr-0110LITA010LLmTT11tL%no11RL1LoT=LmoTTILm&TTTOmooTXeo3n 3mPATooeTTRmTTeTLAmooT[TRLoeeoTOneoTwSsR Reoe3Neee3
RVV27R2))BTV3SlAT,TVT22TVAVI{T=®!I RV25NT2&VV3TT==0V52TT2=A==T8NST=e0NRT220NNoo0RLxWA=oN00VR22R&T(N000oATAxN(N000oATJR22®W000RTLIN000*AV2TAR'T000LR«T2RLN000Ay*V2IT000TL2RN000ATNL2R2SN000LR1k00LNL2A2L01*0RRNBLNT11 m00A22om001LRLTRRL*00SNL22owN10AA«0)11T22LAaooRRLa&N01R2f2Ao0T1iLoo12L2oo1BLRAeeo1L22PAeeo1REeRo0A12eT2eeoTRLRee1LP22AeAeiReeeARRT22
=VV-=7I¥])TTV,,3i!VVII=0!VVibIa_TT®VVOeTT=IaVVl'gSTT=oVVetTT=eIPVVTT=oLaVVTRPRT=oodTVVT_LNTooexTTVNNTT00IVVsT'T00VTTNTN00TTNT00LNTTALN(0LoNyTL00INNL&N00NLBIL&001LLTT100oNLL1TS N00LLTPBN010NLAo00LeFRoN00LAT00LLo0R0)TELLLo10LLoL00tIL1loP0LeSe10LRLT1R0LeP118BL11£LeLONo(1eAL)LoT7iR1AToTi1LSSeoJe1leRM*eoBL o1Ro
*'V-]T7VImV#*TxVmTVwTVTVm7TTV7m(TT%-NTmNoTPNoTmeN0L®RL0PNm)L&(PLorm=N0re0YLw0yLY0LwX_R10®YLmu0%LR0Pw0mLP10L%o0Lwo0m&oeoPTlIm¥eoPoX0LmoLMToLmHRe1ELoYweTwe
CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PA GE S=21
CROSS REFERENCE TABLE (CREF v01-05 )

E 11

e 4[ — O

FNCMSK

SEQ 0340

12-Q55

15-46
16=75

SEQ 0341
YTM

F1N
19=10#

LWL

12-P9%

UVUWUVLUVUVWUVUVIWVL

12-P41

LLUUVLLLULUVLLLVLUVLLVLULDNOOVOVLUVLULVLUVLVVLVLVLOVLWULUVLY

12-08?

MACRO V03.01 11-APR-80 13:39:53 PAGE $-22

CZRMOAQ RMOS5/3/2 FCTNL TST 3
CROSS REFERENCE TABLE (CREF v01-05 )

GNS
GO

GTSWR
HCE
HCI
HCRC

4~784
38-10
38-10

4-50
12-773
12->36
12-E92
12-L74
16-87
9-25
4-581#4
25-401

10-37

IAE

4-578#
40~77
4=717#
4=7304
4-588#
40-68

IDXMSK

IE
ILF

ILF56
ILF64
ILF66
ILF74
ILF76
ILR
ILRG50
ILRG52
ILRG54
ILRG56
ILRG6O
ILRG62
ILRG64
ILRG66
ILRG70
ILRG72
ILRG74
ILRG76
IOTVEC
IPCKO
IPCK1
IPCK2

9=25
-10

9-39

9-50

38-10
38-10

9-56

9-57

11-24

38-10
38-10
12-397
12=:47

38-10
38-10
12-446
12-;96

12-N71

23-21

12-125
12-P20
24=107

12-174
12-P76
24-123

12-€02
35-378

12-D89
35-394

12-E48
40-77

35-348

35-391

35-39%4

26-132

33-24

33-78

12-108

12-A15

L=65%%
4=580#

HELP

4~784

38-10
38-10

SEQ 0342
38-10
38-10

12-A73

4=4914

4=527#
4=530#
45314
4=534K
4=535#4
4-587#
4-715#
4=715#
4-715#
4=715#
4=715#
4=715#
4=715#
4-715#
4-715#
4=715#
4-715#
4-715#
4-491#
4=7674
4=7664
4=7654

40-85

33-81

35-172

35-190

40-59

35-148

40-58
40-87

21-48

32-11
40-73

32-51

32-97

9=-19«

9-19+

32-101

33-232

33-45

33-236

33-239

33-48

35-128

40-76

40-79

4<0-80

35-128

35-131

35-134

35-145

40-83

40-84

40-67
40-88

|
L=764Lm

SEQ 0343

IPCK3

CROSS REFERENCE TABLE

IvC

LBC

4=7434

4~684F

35-115
40-72
40-86

4~686#

(CREF v01-05 )

31-56

12-F63

35-546
40-73
40-87
35-232

12-F70

12-G23

36-58
40-74
40-88

40-58
40-75

26-91
38-5

111

11-APR-80 13:39:53 PAGE S=23

12-G29

25-198

25-199

40-59
40-76

40-60
40-77

40-62
40-78

26-93
38-5

39-20

39-22

47-79

11=55«

12-2?54

12-763

12-J23

12-099

264=107

24-120

24-123

35-27

35-30

35-438
15-125«

35-441
16-40

29-162
35-506

35-250

MACRO V03.01

29-85

SEQ 0344

29-208

33-92

33-99

33-102

33-171

35-11

40-63
40-79

40-64
40-80

40-67
40-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

29-167
35-528

29-195
35-533

32-37
36-35

32-40
36-36

33-68
36-40

33-145
36-45

33-146

33-153

35-83
40-67
40-81

35-86
40-68
40-82

35-530
40-69
40-83

35-255

34-70

16-323

16-284+
51-7#

29-146
35-88

29-156
35-252

29-157
35-505

12-897

17-29

16=274%

42-4n

34-71
35-50

35-63

35-66

12-47

24=72

24=76

28-31

33-201
12-869

33-204
12-:86

34-29
12-<00

35-453
12-=82

35-456
12-805

12-D05

12-J32

12-U81

42-21#

29-140
40-58
40-72

29-164
40-59
40-73

32-51
40-60
40-74

32-69
40-61
40-75

32-73
40-62
40-76

33-24
40-63
40-77

33-61
40-64
40-78

33-64
40-65
40-79

33-155
40-66
40-80

—

CZRMOAOD RMOS/3/2 FCTNL TST 3

4=7428

Jn
SEQ 0345

=gendeKReR%WsTBRYIR-Fm12345%7IBiMnA%W%P&MZgm
4ONMOy\-~OoMo 0NNy[+ N- o0 ~53Mxow

—fNloN2a%m-OMmFNe%Q%'OLM0NN0T*04NQNR%oN3eM-0l1(WT0O2A)oo.~OII1IP-*lNOy]«NRMFo0%OaoO~lD¥NodlJMV1TyM6K%lyNyw=MN&o|OOo)H.i®LP~NVN03*Y“L9oNO~ltS.}([-o0e45Ol=eSNS2NNM43LIIo0ue~o—TON<-4.:6%oN555lAkodeNOD0A:eWJ8lNM“A9no1.NJU[lOM*D3N_I3o1Bl111OdOJNON0IN6:9OLR8a~W8n&IM¢MVa%dNNl1WSA”NLP5TwO=1N—Ul]P8nAw=ORu4NIJsZMrOg26[nMMeN-A-VAaaU%EVR®l1WuR—-O1o%mfvaAU(aga"oeMLVV)l.l—]wO[nA2OVaXwnaa([gc)Va\3P.y]VNAu=-wNM- -Mo5NN$RN~Nu8AN8ANNu8RN0ANuA8RN0NR0Qw%N0SAN?o——OMooL0MTP.[aAgoSuoN[wN—~N ONNRnT—oua|Ll~\VnR]PAuNYoVN6N75NPaMoo3W=~—2NYIL]hreM\cV%BRNlOt1eY1P<~—rm3Tc7m=>AoW-B]E\cCJFamwf<M-RE&M—lv}mc;i~c
i
SREG
SVEC

CAL

11-29
4=510#
14-129
4=491#
4-631#4
4-629

15381

16-153

A 1S35 A s

o¥}IV(aV[a¥[VNoN[aV1yoV(2 0Ny@ M
—

wma

2—O8n—eo3—y"=DIARz(ORO—&0RaNO—caxmassM— saaasgs—DMoaMdaVNaAaf- L-oA05~.A—1oABloNal]U0NOoNlbe]Cy|lOEIANo]Nlo@l1UOeNlbo1]Ml0LAR¥V@N)1I1lyo[oIVSVI[o@-]|a~ o—NI|\7MDI oM73 £3M-§ ooo —i ’BM
N—-=T4)iLROQNON0NIoVIAo[—1V\0)0ooN|[VyoNN[IIaV|.N =aN)[ngooNL[OT1INgN0eM)0II—1g1yNONm0IgV|M—NI1 I- N3)e0N1oVN[4Oo|L|~Vy”CAyIIJVOBN-MNo-(-U!|= [Mo]()¢o!NV)[]¢ LOv( Mwo —~ Mo a]] i] ]i l M~a! 5W
oN-N1¥y[Io oM-V}e—Oo!VeO[=®aV—[o|0aMVL|OY NoM Ny["i| a) M= N<lR MM—-)i 0o@
w

p—

—

12-N20
12-068
12-P86

SEQ 0347

MmTM

mmeae

42-3#

RGDTPT

MmN
CZRMOAQ RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PAGE S-25
CROSS REFERENCE TABLE (CREF VvO01-05 )
RH

RIP
RLEASE

RMAS
RMAS
|
RMASO
RMBA

4=5334
4=515#
4=5124
4=701#

16-182

34-50
12-120

12-497
12-<71
12-E28
12-L80

]

RMBAE
RMBAE1
RMBAEO
RMBAI
RMBAO

12-E23+
12-M74»
RMCS1

12=;93«
12-E86*
12=N19*

9-89
12-677

12=445~
12=>21*
12=H70*
12-P17

12=569*
12=757+«
12=124*
12-P58+

12-210
12-924

12-270
12-970
12-A80
12-J43
12-P88

RMCS11

1
16=119+

24-106
35-31
12-446*
12=;47%
12-a21+*
12-F 96+
12-M75+
16=153+

RMCS10

12=717*
12=A71=
12=J79*

16=257*

24-120

16-182+

12=572*
12=<44x
12=A15+
12=-G63+*
12=N71*
16-305

12-625+
12=-<66*
12=A73*
12=-H18+*
12-023+
17=-26

25-28

12-670+
12-=06*
12-868+
12-H73*
12-068+

12-Q47*

15-126~

12=:44*
12=215%
12-E92*
12-L30*
15-181»

9-86

11=49+

11-50*

12-16

12-44

20-41

21-35

28-27%

28-29

12-523
25-455

12-987
26-28

12-991
31-51

2447
35-63

24=72
35-65

2474
35-67

264=75
35-438

25-99
35-440

25-170
35-442

12-205
12-919

12-266

12-176
-P68
49-16
12-393+
12=F 15+
16-234

12-J39
12-025

12-494
12-<68
12-E25
12-.77

12-583
12-=29
12-E94
12-M36

12==71+
12-K76
26-60 -

12-=72+
12-M21+»

A34

RMDAI
|RMDAO

SEQ 0348

12-529
12-:03

12-K80+

12-965

12-A75

12-568+
12-F23
16-236

12=716*
12-G46*
16256+

12-:00

19-20

12=:40*
12=J23*
16-398+

12=:91*

12=J24*
17=24

2661

12-254+
12-098+
29-56
N\

6-0#

SEQ 0349

AxEunununvm

VoebD)

CZRMOAQ RMOS5/3/2 FCTNL TST 3

e 12
MACRO v03.01 17-APR-80 13:39:53 PAGE S=26

CRCSS REFERENCE TABLE (CREF v01-05 )

AN G
$:8 G2 FRSE0
ele ] 8

N bbb

&=7074

RMDS
RMDSI

=392

RMDCI
RMDCO

12=567+
12=F 14~

26-59

noown

RMDC

12=715+
12-G45*
29-49

SEQ 0350

12=<4 3

12-H38

25-223
29-196
33-153
33-222
35-528
36-72

3-361

2-86
3-61

33-264

RMER10

12-G58+

|[RMER2I

12-837
15-55

3
35-423

24-139
12-C30

O+

— et

)

36-108

49-16

12-F 32
31-79
12-F 32+

12-G00
12-F 98+

25-387
29-140
32-97
33-63

25-402
29-143
32-99
33-65

33-270

RMMR?

4=70%

SEQ 0351

»—7“5%—wnouoyo“7*34“24haM6%74287WN
B%-o—N[OX~-a(2|!i|’¥—]\EO&S4oN3=—-N8O6.C1TBToQ76-%4o(1ViWoM-V\WECw“—52ILw1[m%aOMl%cyVDI-e[aR28]=.A6—oVvr—“I7ON0©%|1iOoeS.*0N2gNl0—V%L—:w”[IoI|r-|Il=iavVE&cA4oNmO4sIS[XNo4T5a]V]NyO4IN3Z84TI23N4yIs—eN4s2NS”4.X=I7-OLN**-24e1ScNI\%o”2w[lIOA~g0Se74IN?S%52\J.NL\“N4RJeoN‘3.2l4‘oI11f~i.gil2c7-laJIo/02Nn2\DLc1L«e%2*ELIafFl4E2R3}R3N—NM—E76)Reo4)[]{}”1Bo&71:e~MaO4—X&[[Jrn.2J4ov=PN1!l%I30-.r“Io0*——lN7rIoB%—.lr%s4‘JK—on=)]}Br.-%(:<pO=l)1(MO3rUeEDoNc1=lIDL—7)NLrLn3*EJ=E—YtFNLM%g.v2WF5lv,a2“”wmgE%2-~l.«ums

-—

[; a

alL o

-— —

wma

$[No30Tae¥]SYMb¥4YiTS-eT=NAw—OTvnT—SXN}o—0—IV—u¥V}TIrTVV—A[eLya[—VaONTSVneRo(r1gauYl4TnoVo—VYo]gomYov~— OlPIVMoTaLgV¥aV[n—aTRdnTE[M(ga9¥VSSSMo1 M—TP vP S¥SL—3] RM%NTiHII=NTAVogrTA-]ROIWMm0Po-DVN—Y1oTNcT=OIReYgu[I—A-oNWrnaTTdM—rhV=YOI—[=YaIMrd[OYn¥A=\AraYTO=MTT L]oNM0¥TTNPMVIIcI=9eOL—VaT~n8TIorcVNTeET—VoIVEeN-A—IRrTm[NEeoKVenrI-LOo=OVn—eNTNItNI[,aNVeTYY(EovoTy—Bg-O oe ov~u2~=—
oMToMMw["£NS—[~ai]¥] [O=3N-"--a1nVVL[[0N0T—t&aVao7|u¥¥[ITy—w3MyNo3aa[I¥n¥Ia(—]]Vg NaN=T-o-To--Sl¥"M¥iVa]—¥—]g-98V((—oTMV©-—oM -[n[ic|aa1VVg NLo'AV9—9NP-O-A-a¥V¥]—EA&—1S8NV—a1rt["|oJ¥[VT1Ny3Voya.-—“LV—(l~2]ogNNeNo-=MI--TVNewYi—[l11OVIO¥at0hoto[laNts~yo¥w—E-ayLTM-IfAl—V oMMNAN1y1&o—-NN-- T3NM—Ve"iV——5ONeOoL*-%o—VK.-NNNNo—PNSR=]—ItNO"eNGr—tTVO%-Hi Ttyycyy)®MF---—— N3T og
w

(=)

33119

33-218

35-173

35-176

35-193

35-204

£ 12

35-206

35-207

35-209

35221

‘

35-513

36-74

36-89 e J6-108

CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

SNGPRT

36-111
4=652¢

12-69
9
-896
164

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

12-74
12=2
12-(82

12-79
12-34
12-F07

12-84
12-63
12-G39

11-34

12-29

37-19

12-91
12-H57

12-238
12-J12

12-380
12-k63

12-555
12-MO8

12-703
12-N53

12-848
12-P04

12-:27

12-;78

12-=63

46-8

46-10

46-11

14-17

16-246

38-6

STSD1
STSD2

45-1
45-1

45-2
45-2

45-8
45-8

45-10
45-10

45-11
45-1

45-12
45-12

49-134
49-144

STSD4

45-1

45<2

45-8

45-10

45-1

45-12

L49-174
46-8

46-8

44~
48-25#
44-1
4=491#
4-49N

442

44-8

44-9

446-1

44-12
44-12

44-13
44-13

48-21#
48-234

44-2

44-9

46-11

44-12

44-13

48264

4=49
4=691
4=
4=49N
4-491
4=491
4=t

4=4914
4=491#
4~491%
4=4914
4=4914
4=491»
4=491#

Sw13

4=4914

14-17

16-246

SwW2

4=4914

SwW5

4-4914

9-19
38-7
9-19

9-19
38-7
9-25

9-19+
38-7
11-27

9-19«
38-7
38-8

9-19«
38-8
38-8

9-25
38-8
38-8

11-27
38-8+

STSF

STSH1
STSHZ

STSH3

STSH4
SwO
SW00
SwO1
Sw02
SWO3
SW04
SWO5
SWO6
SwO7
Sw08
SWO9

Sw3
Sk

SWé

46~1
46-11
44~

4=491
4-491

SWREG

TA2
TA4
TA8
TADMSK
TAG
TAGADR

4=5434
4=5420
4=5414
4=554#
4~6714
4-790#

TA1
TA16

46~1
46-12
44-8

44-8

46-2
46-12
449

46-2
50-74
46-11

46-2

4=4914
4=4914
4=4914

4-4914
4=4914
4-49n
4=4914
4=4914
4=4914
5-0#
38-6
4-7848

Sw7
Sw8
Sw9
SWR

46~
46-12
442

SEQ 0354

4=5440
4=5404

11-55

11-55
11-47
26-66
5-0

38-11

TAP

46484

612
SEQ 0355

5AR2RBWe4gAoNRno“RA0N0T44IvOOoNLY“oN0RRSEARNSIIRANSRMAnIRenoABnRAfEsSRN-AySRAromioN8oAn8ooA3~oRSPESASo£3R2gS2%
RS~38%

—-N OoUIoooeooeeeooeoeeoeooeeeeBbbb5L —
oMs=C—U_OsNMO.unLN@ecOnOT——yrLrC1—TrH0—rEor|O oNo—7-]]
~N Ne—=NO

—-OoeoAsNeRMNsGl2t~n2NNNMAoINlTOoTRlRoWElRN—TO=ReM—WN(AANN—MoR0ONO—glNNNS——e—m—Rp=0rYEeNN34r=—kLR.*plgAINleNin—CTIyynoOw*Ri—- QlNS—YglO]R*i»]ioiRiPaovloTiloTilPRoveovoR_vlRiIhgiRllaoyiRltovRlyRovRLoiRlDoTiRloLRoRoP*Rl»RoyRogoNRoew[aOoo-T5Ne"T\\a—)8yOe«Te0F&lNNeeeOnrsOAg—teaWadMarLoOOsRtW—.—iTl3TNga WS0(-.-m8e.HN&
0oM0 We—C—OoN.nCNO3

NMOoIT~
b3

wn—any

wzNnl

3f- 1—r—r%—r—
e1eI
AyeIe NIl
AT¥-Ny a-cItyNcNe
-| I
NN-| NNy
-rw | I
I*-| NNy
————| |
N-i NNy

MACRO v03.01
g -~

=MNS1o I NNt)—11\r—ro5—ryI—

(e
wma

H 12
11-APR-80 13:39:53 PA GE S-29

SEQ 0356

eiy

oMfOyY

>.rwfl“w7n4\

flN

&NO—

TYPON 38-10#

SEQ 0357

CZRMOAO RMOS5/3/2 FCTNL TST 3

CROSS REFERENCE TABLE
TYPOS

uo
Ul
U2

uBUSQS
UNS
UNTMSK
UPE
USE
USRF IL

9-42
L4=7454

(CREF v01-05 )

9-99

10-70

31-70
17-29
16275+

WwCD
WCE
WCEHI
WCELO
WCF
WCH
WD

10-91

14-23

SEQ 0358

14=27

14-32

14-34

38-10#

32-59

33-232

33-264

33-269

35-279

35-282

35-287

32-26
36-36

33-106
36-56

33-145
36-61

33-146

12=>24
12-023
12-259

12=>55

12-a02

12-321

12-A15

12-C62

12-C67

35-323

40-81

40-82

25-196
35-90

29-157
35-506

29-211
35-549

32-23
36-35

12-817
12-987

12-215
40-77

12-K30

12-Q47

35-479
12-446
12-F37
12-397
12-H73

WLE

ZEROS

4=749%
4=745#4

WRL
XS1Z
XXDP

9-53

MACRO v03.01 11-APR-80 13:39:53 PAGg 5230

12-112

12-917
12-125
12-865
12-M25

12-<66
12-M75
12==76

25-225

25-268

35-342
35-315

9-34
12-:48

9-52
12-A19

42-38#

K 12
CZRMOAO RMOS5/3/2 FCTNL TST 3
MACRO v03.01 11-APR-80 13:39:53 PA GE M-1
CROSS REFERENCE TABLE (CREF v01-05 )
$SCMRE
$SSCMTM
$SESCA
SSNEWT

4=791#
4=7914
4=694
4=4918
12-2%6

$SSET
$SSETM
$$SKIP
SACT
.SAPTB
SAPTH
.SAPTY
-SCATC
-SCMTA

38-10
9-19

. SERRO
SERRT
$SPOWE
$RDDE
$RDOC
$READ
$SAVE
$SCoP
$SIZE
$TRAP
$TYPB
.STYPD
.STYPE
.$TYPO

4-480#
4=480#
4-482%
4=4814
4-4814
4-4814
4-4824
4-480#
4=482#4
4-482#
4-4814
4-481#
4-480#
4-4814
4=474
4=474
4=L74
4=47%
4=479%
4-1944
4-208#

.EQUAT
-HEADE
.SETUP
. SWRHI
.SWRLO
CALCLR
CALSUB

5<0

12-2

12-34
12-F07
38-10

12-63
12-G39
38-10

0
12-91
12-H57
38-10

12-238
12-J12

12-380
12-k63

38-10

2
2
2
2

2
2
2
2
2
2
2
2
2
2

4~4914

4-483#4
4=483¥
4-483#
44834
4=47#
4=480#
4=480#

38-12
4-784

4=79N1
13-20
38-7

38-11
38-9
38-8
38-1
38-6
38-10
38-2
38-3
38-5
38-4

12-36
12-99

SEG 0359

2
2
2
2
2

12-555
12-M08

38-10

12-:27

12-;78

12-=63

12-%46

38-10

38-10#

JM(=}r}ffil3C7IC«9CE1]EL03FF*G0GIiJ*5*UIYI0W1H1*1*50IWLL70K**6LD11O3V1A))5AssLV7VIII9AIAlC2Cse®I®SVV1IU“s*o»¢9O5WBTnNt51WNMe83RFO—4‘OWI1NO2N50IO5T%=INW017NIOMO8NLNf
) T¥ TTVaLNLY L L L LSL L M

VV—U—M—))]VNV0TT—VVNNT—-OeOVNTIv—MTNNI])] TNWTNOTVNTTiVMOT Te[T—WNNY1=TV1NT[OT0oS\TNWWOTOWNMTINTTNNOOTN~QTT)NONNvNTMTOoNOTW\TT=NQTNTNTNGITTINTDNNNTITIT=SNQTNOT[MQ=TIAN[NOQTTTLNNN=[QONNTQNTN==IINMQ=OT1NNToO=[gIaVQ0NVNFLIoVV[LI1 (V9
V(=] OTV\TNVNTTNOTNT3NTNToWIQNNWLeTINN=QOWOLNT—UNTGM=NTITQTOQNQOW[[NV
———= e TTeT
CZRMOAO RMOS5/3/2 FCTNL TST 3

CROSS REFERENCE TABLE

E‘m
TREG

WTST

POP
T

NWTST

12-a%96

(CREF v01-05 )

L 12
MACRO v03.01 11-APR-80 13:39:53 PAGE M-2

4=1714
4=491#
4-84
4=491#
4=491%
12-67
9-25

12-529
9-25#
12-:00
11-27

12-2

12-2%
4=491%
12-(82
12-19

12-34
12-F07
12-34
12-F07
12-20
12-63
12-G39
12-63
12-G39
12-24

SEQ 0360

12-A53

16-279
12-:78
12-=63

12-7%46

16-289
16-399

17-65

18-95

19-25

19-26

19-27

20-70

21-59

22=20

22=21

23-35

264=145

24-149

25-131

28-51

55305521

U91%”2“%)”37I1&U1L5U%.o%._Mrw,o.n.&%BAMO)IDRNIUB_I~\O=UL&0i>_PDvVYOWOPVYe=FOI—aVOMROIRSNyNYOIRNNINOTNAN—TTMNTNYSATOTT TrTIOYRONTIOLONrMNTN—MNeLO—NLDIOT\—NO0OTROTWTm oI TV TTMR0T—I®EO-w

NXOwAWiUU!yNAONNNAOA7NNONMTAAINNUUUUNOWwRANN[LNMiL6ANRSNNNRAWUNMa—ANNNoR.SNN&NA(OU%SNSN%RDwTN.nUISNNRSiOUSNNSRNwTNUU.nS3ORIiSNSRNNNRNOoURNS]SUR.RS[NNO—4gN¥SUU]YRR:SNO%SUUDNSIN.RORSNOSUUI,.SOR\M--NU.N~ NMMO(UM”-0TUc&)SLNL4M.IIeiyN~[wNivIo¥NO]tIGNM[11NoWIP0M[)AN0N1Ir3O-A[TO(M0NRAMNWmBUO[0JNWNOMD]I0&R0N[~YUaINeOOFS6foL—-FNNrN—E5LAY(mMM)M50ooUi]1UO]NoNPMt—MMoTOn%U1~wey=Nn-,NyoU—L*0.LyMo4—a-.]

ONRON£MWY0oUARAIu65NNOyAAn14YSONaNo7A0&9N6DAUAN=SMA5M0Q1~MM%SToNAAN9%0AN&SOON4AM4N7NNAM8ASB191INN.%NN“N&ST%iAN%MO17S0N.WOIN”&1“A0MSSNfN—SRW0%&NSOSMl.OMONN0“”SN9S-V&47OSNN3A.SMW81NNe8STSN-SMS2N5N2SA.SSN1%A70AS-TN21-uL,.—2M9mu8o1m—uuTOoMG0OA0-[No2G—o0w]0Yn.g29MAM=S0RaeNO1u0MoT8UOVI~nN27&%IMQeNINcI9o3TQe%CN1iAI20M$IBM1OnONNN8WN35[=gIIVN216IO%TVeMNITaN515N2AIWO”63E8NN2LTAOXZX9_MoM)2(w)o00]OUo0[]+7So7Za(zO—D-]—o~UeM—e“M”QoV—Mfye0OOLnT~l=—oOOMVan0E©)N0[mv2elCCyF2M2”—.}-w
wmao

W ~NN

gM0 M oT~lMOMlWINONMLt — o

wWONITWVIiNN WOw oOvNnoOO=N0NOON

oO=NWeMIN “20DNSOMRO—8NN2NNNNN 0(oO~NLsA\I]O0Sy TYeSEVT

o—

4
[«;
4

LMoea—LlVa—l

ey
a

MT-—