Digital PDFs

AH-F922B-MC

August 1981

318 pages

Original

158MB

view download

OCR Version

214MB

view download

Document:	CZRMMB0 RM02-03-05 RM05-3-2 FCTNL TST 1 AUG 1981 bw
Order Number:	AH-F922B-MC
Revision:	000
Pages:	318
Original Filename:	CZRMMB0__RM02-03-05__RM05-3-2_FCTNL_TST_1__AH-F922B-MC__AUG_1981_gray.pdf

OCR Text

RM02/03/05

RMO5/3/2 FCTNL TST
SLZNMNBE
3

Frone 1 ok 2 s
-

HIENDED
M

M02/03/05

RMO5/3/2 FCTNL
CZRMMBO

TST

8 oF p arifis-~ HIEIIED
Pche

SPBL WM05/%/2 T

TST

ALRD vOL.00

4-2P9-81

-REMTM

8 1
17:43:28 PAGE 1

ERE

W] L

F MU
O TN

NI N NN

AR W

WIAARTU N TONGTONUNG
N
NN~ e - —a a4 e

PO 0JX/NFAD
WG —=O O Y DD NN 20O O M

IDENTIFICATION

PRODUCT CODE:

AC-F921B-MC

PRODUCT NAME:

CZRMMBC

PRODUCT DATE:

APRIL 1981

MAINTAINER:

CX DIAGNGCSTIC GROUP

AUTHOR:

MIKE LEAVITT

RMO5/3/2 FUNCTIONAL

TEST, PT

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

LICENSE

AND

MAY

THIS DOCUMENT

WITHOUT
DIGITAL

ASSUMES
MANUAL.

FURNISHED UNDER A

ONLY BE USED OR COPIED IN ACCORDANCE WITH THE

TERMS OF SUCH LICENSE.

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

1980,1981 DIGITAL EQUIPMENT CORPORATION

TIRMMBO RMOS/3/2 FCINL

TST

MACRO v04.00

4-APR-81

3
s
11:43:28 PAGE 2
CONTENTS

INTRODUCTION
1.

ABSTRAC(T

UNIT UNDER TEST

OPERATING REQUIREMENTS
1.

2.
3.

HARDWARE REQUIREMENTS

MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE
1.

HALTING

2.
3.
5.

SWITCH OPTIONS
STARTING

RESTARTING

NN
S WWN =

OPERATOR INTERFACE

.
.

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

ERROR REPORTS
EXECUTION TIME

ENVIRONMENTAL SUPPORT
1.

\JOM'J\WN

POPONUNIND
D

b b b

b e d s = b

F AN SO OO NP ND WA —=O000 NN
Nt s

SEQ 000.

PROCESSOR COMPATIBILITY
DUAL PORT CONF IGURATIONS
MEMORY PARITY HARDWARE
MEMORY MANAGEMENT HARDWARE
ACT, APT COMPATIBILITY
XXDP COMPATIBILITY
OPERATING SYSTEM COMPATIBILITY

TEST DESCRIPTION

TZRMMBO RMOS/3/72 FCINL

TST 1

MACRO V04.00

4&=APR-81

11:43:28 PAGE

1.0

INTRODUCTION

1.1

ABSTRACT

THE

RMO5/3/2

WHICH ~ USES

RMO5/3/2

DISK

SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM

FUNCTIONAL

SUBSYSTEM.

MEANS

VERIFY

PARTICULAR,

THE

OPERABILITY

PROGRAM

THE

SERVES

THE

FOLLOWING PURPOSES:

TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASI( OPERATIONS OF THE
gfl’gsAn(D)'gVE.
INCLUDING
MECHANICAL
POSITIONING
AND
DATA
TRANSFER

e
T TR TR S

-y

SVBVRUNBNNY RoleJRNTe AV R ST NI e VoY, " RNTe NV, I SN PFT

SEQ 0003

ELECTRICAL

IMPLICITLY

INTERFACE;

ESTABLISM

C(ONFIDENCE

TO
VERIFY THE FUNCTIONAL
T < ‘=f
THE MASSBUS CONTROLLER, MASSBUS A0, #2175
THE

TEST

IS COMPRISED OF

% ~+8'%,

THE

DRIVE/ADAPTER

[M05/3/2 SUBSYSTEM,
@ THE DISK DRIVE.

INCLUDING

wnIC(M WOULD NORMALLY BE RUN

SEQUENCE,
STARTING
WITH PARY . eiciLY, PART 1 TESTS HOUSEKEEPING
AND MECHANICAL POSITIONING OPERA!UNS;
PART 2 TESTS WRITE,
READ
AND
WRITE
CHECK
OPERATIONS
USING
HEADER AND DATA;
PART 3 TESTS WRITE,
READ AND WRITE

1.2

CHECK OPERATIONS USING DATA,

UNIT UNDER TEST
THE UNIT UNDER TEST

(UUT)

IS THE RM0S5/3/2

CONSISTS OF THE RHXX MASSBUS CONTROLLER,

DISK

SUBSYSTEM

WHICH

THE RM05/3/2 MASSBUS ADAPTER,

AND THE STORAGE MODULE DISK DRIVE.
NOTE THAT A DISK PACK IS
REQUIRED
Bg?VETESTING
AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS
THE FOLLOWING

MINIMUM

HARDWARE

?ffi?{?}m%féi REQUIRED TO LOAD
PDP=11

AND

CONFIGURATION,

EXECUTE

ASSUMED

THE RM05/3/2 SUBSYSTEM

PROCESSOR

20K MEMORY

KW11=L OR KW11=-P (LOCK

PROGRAM LOADING DEVICE
TERMINAL
RH11 OR RH70 CONTROLLER
1 70 8 DISK DRIVES (ANY COMBINATION OF

RMO5'S,

RMO3'S OR RMQZ2'S)

JRMMBO RMOS/3/72 FCTINL

TST

MACRO v04.00

4-APR-81

11:43:28 PAGE

3-1

SEQ 0004

2.2

60
&

EACH UNIT BEING TESTED MUST BE LOADED WITH A SCRATCH DISK PACK
BEFORE
TESTING BEGINS ON
THAT
UNIT.
THE DISK MAY BE FORMATTED GR
UNFORMATTED.

£2

0
(

MEDIA REQUIREMENTS

2.3 PREREQUISITE DIAGNOSTIC PROGRAMS

[

RM05/3/2 DISKLESS TEST, PART 1

g 2

3.0

OPERATING PROCEDURE

3.1

THE PROGRAM MAY BE LOADED BY EITHER OF

78
o

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

&1
82
83

:
SWITCH OPTIONS

3.2

THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY

88
89

SW15
SWis

HALT ON ERROR
LOOP ON TEST (CURRENTLY BEING EXECUTED)

SW12

UNUSED

SEOJRASIREC2SE

INHIBIT TEST ITERATIONS
BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST IN SWO7-00

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

SWO8

LOOP ON.

SPECIFY

STARTING

200

WILL BE THE NORMAL STARTING ADDRESS.

THE

PROGRAM

RH/RM BASE

ENVIRONMENT,
TC CONTROL

3.4

HALTING

MAY BE

CONJUNCTION

STARTED AT LOCATION 200 OR 204.

ADDRESS TO

CHANGED.

THE PROGRAM USES CONSOLE

TEST

USED

WITH

THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL

3.3

et
el
-l

INHIBIT ERROR TYPEOUTS

Swil
SW10
SW09
SWO8

THE PROGRAM.

SW13

%2
93
%

THE FOLLOWING MEDIA:

CONDITIONS.

STARTING AT

STARTING AT 204 WILL ENABLE

RUNNING IN

DIALOGUE

A STAND-ALONE

ALLOW THE OPERATOR

— B

N AN N NN DN N Y N NN N PONIPUNIRLNINUND =

‘~

i 5

VNN
WA OO0 NOWVND
vXV,
AN 2O 000

JRMMBO RMOS5/7372 FCINL

140
141

142
143
144
145

146

147
&

148

ey P

NN Voo

R ele
BNTe
NV ] Hwrn

v s

e il

151

TST

MACRO v04.00

F
11:43:28 PAGE

4-APR-81

1
3-2

SEQ 0005

THE PROGRAM (AN BE HALTED BY TYPING CONTROL C FRCM THE
BY PRESSING THE HALT SWITCH ON THE PROCESSOR FRONT PANEL.

3.5

RESTARTING
THE PROGRAM (AN BE

4.0

OPERATOR

4.1

PROGRAM ID

RESTARTED AT ADDRESS 200 OR 204.

(SEE

SECTION 3.3)

INTERFACE

THE PROGRAM TYPES

ITS

TITLE AND MAINDEC NUMBER THE

IS
STARTED AFTER BEING LOADED.
IF THE PROGRAM IS RESTARTED.

4.2

CONSOLE OR

FIRST

TIME

PROGRAM IDENTIFICATION DOES NOT OCCUR

CONSOLE DIALOGUE

WHEN THE PROGRAM IS RUNNING IN STAND
ALONE
MODE,
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM [.D..

ENTERS A

THE FIRST QUESTION TYPED OUT IS:
‘“‘TYPE HELP TEXT
(L) N 2''.
IF
THE
OPERATOR
RESPONDS WITH A '%'', THE PROGRAM WILL TYPE A BRIEF
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE
TO THE QUESTION IS CONSIDERED A 'W'' AND NO HELP TEXT IS TYPED. THIS
QUESTION

ONLY ASKED

SUBSEQUENT START-UP'S.

THE

INITIAL PROGRAM

START AND

WOT ON

ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204,

THE OPERATOR MAY (CHANGE
DIALOGUE.

THE RH/RM BASE ADDRESSES WITH THE FOLLOWING

EXAMPLE 1

RMCS1=176700 <CR>
RMVEC=000254 <CR>

sNO CHANGE IN ADDRESS
sNO CHANGE IN ADDRESS

EXAMPLE 2

RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS TO 177200
RMVEC=000254 260<CR>
;CHANGE VECTOR ADDRESS TO 260
ON THE INITIAL START,
THE NEXT QUESTION
TYPED IS, 'TYPE ‘A" 10
TEST ALL DRIVES,
OR TYPE
DRIVE NUMBER(S)
AND TERMINATE
INPUT WITH
A CARRIAGE RETURN'.
THEN, 'DRIVE(S):'
IS TYPED
AND
WAITS
FOR THE

OPERATOR TO
STRING OF

TYPE AN 'A"',

DRIVE NUMBER(S)

"'CARRIAGE RETURN''.

TO TEST

TO BE

ALL POSSIBLE DRIVES

TESTED AND TERMINATE

THE

OR TYPE

ANY

INPUT WITH A

NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN

ENTERING THE
DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA
SEPARTOR AUTOMATICALLY
AFTER TYPING
EACH NUMBER.
ON ALL SUBSEQUENT
STARTS, ONLY THE 'DRIVE(S):' PROMPT IS TYPED.

ZRMMBO

173
174
175

RMOS/3/2 FCTN
L

TST

MACRO V04.00

4-APR=-81

THE DIAGNOSTIC THEN INITIALI ZES AND REPORTS THE
*DRIVES WHICH WHERE PREVIOUSLY SPE CIFIED FOR TESTING.

IS AN EXAMPLE PRINTOUT:
NO\WV
S LW —=O

178
179
180
181

182
183
184
185

188
189

130

191
192

193
194
195

196
197
Ly,
199

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

217
218

219

220
221
222
223
224
225
226

227
228

STATUS OF THE
THE FOLLOWING

'UNIT STATUS:
ONLINE
RMO3
LOAD DEVICE
OFFLINE
RMOS
NOT PRESENT
NO7 PRESENT
NOT AN RMOS5/3/2
NOT PRESENT
NOT PRESENT'

177

187

SEQG 0006

176

186

11:43:28 PAGE 3-3

THE ABOVE UNIT STATUS SHOWS THAT DRIVE O WILL BE TESTED, WHILE DRIVES
= 7 WILL NOT BE TESTED.

THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE STATUS
THE DRIVE:

'DRIVE(S)
TYPED

TO BE

TESTED,

IF NO DRIVES ARE AVAILABLE FOR TESTING THE FOLLOWING MESSAGE WilL BE
TO THE OPERATOR:

'DRIVE(S)

TO BE

TESTED, NONE'®

THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES AVAILABLE FOR
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT.

ONCE THE DRIVES START TESTING,

AS EACH DRIVE BEGINS TO BE

TESTED:

THE FOLLOWING MESSAGE WILL OCCUR

'DRIVE 0'
AFTER ALL THE DRIVES ARE COMPLETELY TESTED, THE END OF PASS
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START
TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM
IS HALTED BY THE OPERATOR.
NOTE:

4.3

THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE
EFng;?gNSE
REQUIRED
BY THE USER,
D=DECIMAL,
O0=0CTAL AND

PROGRESS REPGRTS
AN END OF PASS REPORT OCCURS EACH TIME

FOR ALL DEVICES

IN THE

'END OF PASS
THE

TEST QUE.

THE END OF

PROGRAM

EXECUTED

IS AS FOLLOWS.

THE FOLLOWING MESSAGE WILL ALSO

LAST END OF

THE

PASS REPORT

PASS REPORT.

OCCUR IF

"TOTAL ERRORS SINCE LAST REPORT

THERE WERE ERRORS SINCE

JRMMBO

RMOS/3/72 FCINL

TST

MACRO v04.00

4-APR-81

H
1
11:43:28 PAGE 3-4

INOAONININURN
F

:J‘? INWNNAIN
WP -0 O

SEQ 0007

4.4

PERFORMANCE REPORT

NO PERFORMANCE REPORTS ARE GIVEN

PROGRAM,

4.5

DURING

THE

EXECUTION

Twf

PROGRAM HALTS
THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF

PROCESSOR HALTS ARE

4.6

DUE

TO THE

TRAP CATCHER.

THE PROGRAM.

ERROR REPORTS

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

FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM:

DRVZ# O - RMO3, TEST# 14, ERRH 326, PC=016654

MASSBUS DATA BUS PARITY ERROR "MDPE’‘ (RMCS2, BIT 8) DETECTED
DURING WRITE COMMAND
EXPECTD
RECEVD

040300

RMCS1

144252

010700

104604

000002

011777

024026

RMBA

RMMR1

RMMRZ2

000010

RMDS

040700

RMW(C

177403

4.7

040700

RMCS2

RMER1

000000

RMDA

RMOF

RMDT

RMSN

010000

RMER2

000000

RMDC

000000

RMAS

00CJ00

RMEC1

004066

RMEC2

000000

177777

EXECUTION TIME

PASS 1 OF THE PROGRAM TAKES ABOUT 20 SECONDS.
SUBSEQUENT PASSES TAKE 1 MINUTES 40 SECONDS.

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

PASS 2 AND

THE RM05/3/2 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON ANY PDP=11i

PROCESSOR,
PROVIDING
PREVIOUSLY
MENTIONED
HARDWARE REQUIREMENTS ARE
MET, AND PROVIDING
THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO

SUSTAIN DATA TRANSFER OPERATIONS.

“ZRMMBC RMOS/3/2 FCTINL

TST

MACRO v04.00

4-APR-B1

1
3-5

I
11:43:¢28 PAGE

SEQ 0008

286
¢R7
288
289
290
291
292
293
294
295
296
297

299

5.2

DUAL PORT CONFIGURATIONS

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

DUAL
PORT
LOGIC
IN
THE
RMO5/3/2
ADAPTER
BUT
IS
EXECUTABLE
ON
RM05/3/2
SUBSYSTEMS
HAVING
THE
DUAL PORT OPTION FROVIDING THE DUAL
PORT

5.3

SWITCH

IS SET

TO THE APPROPRIATE PORT

(A OR B).

MEMORY PARITY HARDWARE
MEMORY PARITY HARDWARE

IS NOT USED DURING THE

RMO5/3/2 SUSBYSTEM FUNCTIONAL TEST.

5.4

EXECUTION

THE

MEMORY MANAGEMENT HARDWARE

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

5.5

ACT11, APT11

COMPATIBILITY

THE RM05/3/2
SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH
ACT11
AND APT11
IN
BOTH
DUMP
AND
AUTOMATIC MODES.
FURTHER, THE PROGRAM
Vék%F$X568gE
A
QUICK
PASS DURING THE FIRST PASS IN SUPPORT OF QUICK

5.6

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 RMO5/3/2 IS THE XXDP LOADING DEVICE.

5.7

OPERATING SYSTEM COMPATIBILITY
THE

PROGRAM

IS NOT

6.0

TEST DESCRIPTION

TEST

COMPATIBLE WITH ANY

CONTROLLER ACCESS

PURPOSE
:

TEST

SOF TWARE

OPERATING SYSTEM.

JMME

MOS5/3/2 FCINL

TST

MACRO V04.00

4-APR-81

11:43:28 PAGE

3-6
SEQ 0009

VERIFY

THAT

THE

UNIBUS

ADDRESS OF

CORRECT, AS DEFINED AT LOCATION $BASE.

THE

SUBSYSTEM

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

THE TEST FAILS AND THE PROGRAM

RUNNING

STAND

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

TEST 2

UNIBUS INITIALIZE

TEST

PURPOSE
:

TO
VERIFY
THAT
ALL
APPLICABLE
INITIALIZED BY THE RESET INSTRUCTION.

SUBSYSTEM

REGISTERS

ARE

NONZERO VALUES ARE WRITTEN IN EACH APPLICABLE

PROCEDURE
:

RESET
INSTRUCTION
IS
EXECUTED, AND THE REGISTERS ARE TESTED TO
INSURE THEY WERE INITIALIZED.
THIS TEST IS DONE ONCE BECAUSE
OF
APT COMPATIBILITY REQUIREMENTS.

OCCURgHE FOLLOWING REGISTERS ARE
RMCS1

- 003577

RMBA

=~ 777776

PRESET

BEFORE

THE

INITIALIZE

RMCS2 - 021037

RMER1

= 777777

RMER2 - 777777
RMMR

=~ 040001

IN ADDITION, THE DATA BUFFER IS USED
TO A ONE AND TO FORCE IR TO A ZERO.

.
TO FORCE DLT,TRE,SC

AND

CZRMMBD RMOS/3/2 FCTINL

T3T 1

MACRO v04.0C

K
_1
11:43:28 PAGE 3-7

4-APR-81

SEQ 0010
&00
&0

402

403

404

‘

;
:
i
|

‘

i
i

VERIFY

THAT

APPLICABLE

SUBSYSTEM

PROCEDURE
:

L1
412
413
414
418

REGISTERS

ARE

LIKE THE UNIBUS INITIALIZE TEST THIS
TEST
WRITES
NONZERO
VALUES
IN
THOSE
REGISTERS
WHICH ARE INITIALIZED BY CONTROLLER
CLEAR.
THE SUBSYSTEM IS THEN CLEARED USING A
CONTROLLER
CLEAR,

1.E.,

BIT

CONTROL

IS READ TO INSURE

STATUS

IT WAS CLEARED.

2 (RMCS2), AND EACH

416
417

418
416
420
421

TEST &

ERROR CLEAR

TEST

PURPOSE
:

TO VERIFY THAT ALL APPLICABLE RH
MASSBUS CONTROLLER STATUS
AND ERROR CONDITIONS ARE INITIALIZED BY AN ERROR CLEAR OPERATION.

426

PROCEDURE
:

428

"RH ERROR CLEAR'' OPERATION,
I.E., WRITING A ONE
BIT 14 OF RMCS1 WILL CLEAR THE FOLLOWING STATUS BITS:

427

PURPOSE
:

407
408
509
410

423
424
425

C(ONTROLLER CLEAR TEST

INITIALIZED BY A '"‘CONTROLLER CLEAR'' OPERATION.

427

;
-

405

406

|
|

TEST

429
430
43

432
433

.TRE, BIT 14 OF RM(CS1

.MCPE, BIT 13 OF RMCS1 =~ READ ONLY

434
435
436
437
438
439

.UPE, BIT 13 OF RMCS?2

441

.NED, BIT 12 OF RMCS2 - READ ONLY

440

462
443
444

.DLT, BIT 15 OF RMCS2 ~ READ ONLY
.WCE, BIT 14 OF RM(CS2 - READ ONLY

.PGE, BIT 10 OF RMCS2 - READ ONLY

445

.MXF, BIT 09 OF RMCS?2

447
448
449

.MDPE, BIT 08 OF RMCS2 - READ ONLY

446

450
451

652

453
454
455
456

IN TRE,

THE

TEST SETS UPE AND MXF

STATUS BITS,

THEN SETS TRE

(ERROR

CLEAR) AND VERIFIES THAT ALL THE ABOVE STATUS BITS ARE CLEARED.

JRMMBO RMOS/3/2 FCINL

TST 1

MACRO v04.00

4-APR-81

11:43:28 PAGE

3-8
SEQ@ 0011

657
458
459
460
461
462

TEST S

DRIVE STATUS TEST

PURPOSE
:
TO VERIFY THAT THE STORAGE MODULE DISK DRIVE
THAT PERMITS FURTHER TESTING.

463
4664

IS IN

STATE

PROCEDURE
:

465

466

THIS

L67
4o8
469
470
&7
L72
473

TEST

INITIALIZES THE MASSBUS AND EXAMINES STATUS OF

SELECTED DEVICE FOR THE FOLLOWING CONDI!TIONS:

.MOL, BIT 12 OF RMDS

ASSERTED BY THE DRIVE;

=1,

.WRL, BIT 11 OF RMDS =0,

A WRITE PROTECT STATE;

474
475
476
477
478
479
480

|INDICATING

THAT

UNIT

INDICATING THAT THE DRIVE

.DVC,
BIT
07 OF
RMER3
UNASSERTED BY THE DRIVE;

=0,

INDICATING

DRIVE

.UNS, BIT 14 OF RMER1 SHOULD EQUAL DVC, OTHERWISE
IS LOW OR A FAILURE HAS OCCURRED WITH UNSAFE STATUS.

READY

THE

IS NOT IN
FAULT
AC

POWER

481
482
483

TEST 6

PRIMARY/SECONDARY ERROR TEST

PURPOSE
:

TO VERIFY THAT THE RM05/3/2 CAN
INCURRING UNEXPECTED ERRORS.

EXECUTE

COMMAND

WITHOUT

PROCEDURE
:

THAT

THE TEST EXECUTES A PACK ACKNOWLEDGE COMMAND AND MAKES
GO RESETS AND THAT

VALID STATUS IS IGNORED.

TEST

DIAGNOSTIC MODE

THERE ARE NO PARITY ERRORS,

ETC.

SURE

VOLUME

TEST

PURPOSE
:

VERIFY

THAT

MAINTENANCE

HARDWARE

OPERATIONAL.

PROCEDURE
:

THE TEST THAT DIAGNOSTIC MODE CAN BE
SET
AND
RESET.
THEN
VERIFIES
THAT
'MOL,
PIP,
WRL, SKI, AND DVC'' CAN BE CONIROLLED
USING MAINTENANCE REGISTER 1.

(IRMMBC RMOS/3/2 FCINL

TST

MACRO v04.00

4-APR-81

M
11:43:28 PAGE 3-9

TEST

10 PACK ACKNOWLEDGE

TEST

PURPOSE:
TO VERIFY

=00

N>~

WALV IV IV IV TV, IV, IV IV ) w
PONIAUAY
3 = =3 3

SEQ 0012

COMMAND,

524

THE

THAT VOLUME

VALID CAN BE

SET BY A PACK ACKNOWLEDGE

LENDING CREDENCE TO THE EXECUTION OF

STABILITY OF

THE COMMAND AND TO

THE UNIT READY SIGNAL FROM THE DRIVE.

PROCEDURE
:

B
VAW

m\.fl\h\h&\-fl\h\h
WNWNW
—=0O00N FRRIR

A PACK ACKNOWLEDGE COMMAND IS ISSUED TO THE SELECTED
DEVICE
AND VOLUME VALID STATUS, BIT 10 OF RMDS, IS CHECKED FOR ONE.

TEST

RECALIBRATE TEST

PURPOSE
:

THE PRIMARY PURPOSE IS TO
ASCERTAIN
THAT
THE
DRIVE
WILL
EXECUTE
A
RECALIBRATE
OPERATION
TO
THE EXTENT THAT 'PIP'' AND

"'SKI'*

STATUS

BECOME

UNASSERTED

THE

COMPLETION

THE

RECALIBRATE.
THE
SECONDARY
PURPOSE
IS
TO PUT THE DRIVE IN A
KNOWN STATE SO THAT FURTHER TESTS CAN CHECK FOR UNEXPECTED
STATE
CHANGES IN THE ‘DRIVE.
PROCEDURE
:

THE RECALIBRATE TEST
PRESETS
THE
DISK
ADDRESS
REGISTER,
RMDA,
AND
THE
DESIRED
CYLINDER
REGISTER, RMDC, TO ZERO, THEN
EXECUTES A RECALIBRATE COMMAND.
THE TEST VERIFIES THE
FOLLOWING

CONDITIONS:

.SKI=0, ‘'SEEK ERROR'' IS INACTIVE;

.PIP=0,

'ON

CYLINDER''

ACTIVE,

"POSITIONING IN PROGRESS'® BEING INACTIVE;

INDICATED

.IAE=0, NO "'INVALID ADDRESS ERROR'' DURING RECAL IBRATE;
.OPI=0, NO "'OPERATION

INCOMPLETE

ERROR'’,

|INDICATING

THAT

THAT
THE DRIVE WAS READY AT THE START OF THE COMMAND AND THAT ON
EYLJNDER
STATUS
WENT
INACTIVE
WHEN
THE
DRIVE
RECEIVED
THE

e — e

.ATA=1, ATTENTION IS SET BY RECALIBRATE.

CIRMMBO RMOS/3/72 FCTNL 15T 1

MACRO v04.00

4-APR-B1 11:43:28B PAGE 3-10

SEQ 0013
571
572

TEST 12 ABORT RECALIBRATE TEST

573
574
575
576
577

:
PURPOSE
TO

VERIFY

THAT THE RMD5/3/2 INKIBITS A RECALIBRATE WHEN AN

ABORT CONDITION EXISTS AT THE START OF THE COMMAND.
PROCEDURE :

THE TEST SETS AN ERROR IN THE ERROR REGISTER
AND
[ISSUES
RECALIBRATE COMMAND, VERIFYING THAT "PIP'" REMAINS INACTIVE.

TEST 13 IvC RECALIBRATE

TEST

:
PURPOSE
TO VERIFY THAT INVALID COMMAND STATUS, BIT 12 OF RMER2, SETS
WHEN VOLUME VALID IS INACTIVE DURING A RECALIBRATE COMMAND.
PROCEDURE
:

THE PROGRAM SETS AND RESETS DIAGNOSTIC MODE
WHICH CAUSES
VOLUME
VALID, BIT 6 OF RMDS TO RESET.
THE PROGRAM THEN EXECUTES

A RECALIBRATE COMMAND AND VERIFIES THAT
THAT "PIP'* REMAINS INACTIVE.

‘‘IvC'"

STATUS

SETS

AND

DURING

TEST 14 IAE RECALIBRATE TEST

- PURPOSE
:
TO VERIFY THAT

INVALID ADDRESS ERROR DOES NOT SET

RECALIBRATE COMMAND .
PROCEDURE
:

THE TEST PRESEYS THE DISK ADDRESS
(RMDA)
AND
THE
DESJIRED
CYLINDER
~ADDRESS
(RMDC)
TO
ILLEGAL
VALUES AND
JSSUES A
lclECALIMTE COMMAND, VERIFYING THAT “‘JAE'* DOES NOT SET DURING THE

3’\4

SIRIEA

g
»
OO oo 0000000CIIICOCOOROOn
i il el
s il A
il il
ST TIPSO
VOO
Ts
¥ P
W
v
Wi —=O o oe
OO0~
3O NP WV —=O

N\‘g\h\hmm\hwm
SRISZETE

15 RECALIBRATE AT OFFSET

TEST

:
PURPQSE
TO VERI#Y THAT OFFSET

MODE

DOFES

NOT

AFFECT

RECAL IBNATE,

SIS

NN <A= BT
SRS
S

oo QRRPRRRS
>

CIRMPBO "M05/3/2 #CTm

1ST 1

MALRD v0L.00

4&-4PR-B1 17:43:28 PaGE 3-M

PROCEDURETHE

TEST

EXECUTES

OFFSEYT

TESTY

THEN

EXECUTES

16 DRIVE CLEAR TEST
:
PURPOSE
TO VERIFY THAT ALL APPLICABLE RM05/3/2 MASSBUS ADAPTER ERROR
AND STATUS CONDITIONS ARE INITIALIZED BY A "DRIVE CLEAR'' COMMAND.
PROCEDURE
:
ARE

THIS TEST WRITES ONES IN THOSE MASSBUS
ADAPTER
BITS
WHIC(M
INITIALIZED
BY
DRIVE
CLEAR
, THEN ISSUES THME DRIVE CLEAR

COMMAND AND VERIFIES THAT EACH

(OMMAND,

RECALIBRATE
(OMMAND AND VERIFIES THAT THERE ARE NO ERRORS DURING
RECALIBRATE.

BIT

CLEARED.

ADDITIONALLY,

REGISTERS WHICH ARE NOT AFFECTED BY 'DRIVE CLEAR'' ARE ALSO PRESET
AND VERIFIED.

THE FOLLOWING ITEMS ARE PRESET:

-HMER1, ERROR REGISTER 1

IS SET TO ALL ONES;

.DMD, DIAGNOSTIC MODE IS SET;

.RMER2, ERROR REGISTER 3, IS SET TO ALL ONES.
FOLLOWING THE DRIVE CLEAR COMMAND,

oo
2oRc0
20
gages SRIFIREN338

333

CHECKED:

LRMCS1,

THE FOLLOWING

ITEMS

ARE

IS (HECKED FOR DVA=1, FO-F4 AND GO=0, ALL OTHER BITS

ARE DONT CARES;

-RMDS,

IS CHECKED FOR O,

.RMER1,

IS (HECKED FOR O;

EXCEPT

FOR

MOL,DPR,DRY,

WHICH SHOULD BE ONE, AND PGM WHICH IS A DONT CARE,

AND

+RMAS,

IS CHECKED TO INSURE THE APPROPRIATE ATA BIT IS 0;

.RMMR,

IS CHECKED FOR O, EXCEPT FOR WORD CLOCK, LAST SECTOR,

AND LAST SECTOR AND TRACK WHICH ARE DONT CARES:

RMMR2 IS CHECKED FOR 0, EXCEPT FOR THE TEST
ONE, AND REQA, REQB WHICH ARE DONT C(ARES:
RMEC2 IS CHECKED FOR O;

-RMER3 IS CHECKED FOR C;

BIT

WHICH

CZRMMBO RMOS/3/72 FCTHL

TST 1

MACRO v04.00

4-APR-81

11:43:28 PAGE 3-12

SEQ 0015

TEST

17 NOP TEST

:
PURPOSE
TO VERIFY THE EXECUTION OF "WNOP'' COMMAND.
PROCEDURE
:

A NOP COMMAND IS EXECUTED ON THE SELECTED DEVICE AND
STATUS
IS
CHECKED
TO
VERIFY
THAT
THERE WERE NO ERRORS OR UNEXPECTED
CHANGES IN STATUS.

TEST 20 OFFSET

TEST

PURPOSE
:

TO VERIFY THE EXECUTION OF

"‘OFFSET'' COMMAND.

PROCEDURE
:

OFFSET STATUS. BIT O OF AMDS
IS ET AND THAT ATTENTION.
G171 15 OF
RMDS

IS ALSO SET.

ADDITIONALLY,

CONTROLLER, ADAPTER,

STATUS IS CHECKED FOR UNEXPECTED CHANGES.

TEST 21

AND

DRIVE

GO/ATA TEST

PURPOSE :

TO_VERIFY
THAT
‘'ATA'"
COMPOSITE ERROR IS INACTIVE.

WILL

RESET

WITH

''GO'*

PROVIDING

PROCEDURE :

ATTENTION, BIT 15 OF RMDS,
AND RESET USING A NOP COMMAND,

TEST 22 WRITE ATA TEST
PURPOSE
:

IS SET USING

OFFSET

COMMAND

CZRMMBO RMOS5/3/2 FCINL

TST

MACRO v04.00

4=APR=B1

11:43:28 PAGE

3-13

SEQ CO14
742
743
744
745

TO VERIFY
THAT
ATTENTION
(AN
ATTENTION SUMMARY REGISTER, RMAS.

747
748

ATTENTION IS SET USING
PROGRAM
WRITES
A O IN THE
THT ATTENTICN REMAINS SET.
1 IN RMAS AND VERIFIES THAT

RESET

WRITING

THE

PROCEDURE:

746

749
750
731
752

753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768

AN OFFSET
(OMMAND
AFTER
WHICH
THE
ATTENTICN SUMMARY REGISTER, VERIFYING
FOLLOWING THAT, THE PROGRAM WRITES
A
ATTENTION RESETS.

TEST 23 ERROR/ATA TEST
PURPOSE
:

TO_VERIFY THAT ''GO'’ DOES NOT RESET ‘"ATA'*
COMPOSITE ERROR.

WHEN

THERE

PROCEDURE
:

"ATA'' IS SET WITH AN OFFSET COMMAND AFTER WHICH ONE
OF
THE
ERROR
BITS
IS
SET.
THE PROGRAM THEN ISSUES A NOP (OMMAND AND
VERIFIES THAT THE ATTENTION BIT REMAINS SET.

769
779
771

772
773
774
775

776
777
778
779
780

781

782

783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798

TEST

24 PROGRAM INTERRUPT TEST
:
PURPOSE
TO
VERIFY
THAT
THE
SUBSYSTEM
INTERRUPT
WHEN PROCESSOR PRIORITY

PRIORITY AND INTERRUPT

IS ENABLED.

WILL
GENERATE
IS
LESS
THAN

A
PROGRAM
CONTROLLER

PROCEDURE
:

ATTENTION IS SET USING AN OFFSET

COMMAND.

WITH

[NTERRUPT

ENABLED AND PROCESSOR PRIORITY SET BELOW CONTROLLER PRIORITY,

PROGRAM VERIFIES

TEST 25

THAT A PROGRAM

THE

INTERRUPT OCCURS.

INHIBIT INTERRUPT TEST

PURPOSE
:

TO VERIFY THAT A PROGRAM INTERRUPT DOES NOT OCCUR

PROCESSOR

AND

CONTROLLER PRIORITY ARE

THE

ENABLED OR (2) WHEN PROCESSOR PRIORITY IS

AND

INTERRUPTS ARE

NOT ENABLED.

SAME

LESS

AND

THAN

WHEN

INTERRUPT

(1)

CONTROLLER

CZRMMBO RMOS/372 FCTINL

TST

MACRO Vv04.00

4=APR=81

11:43:28 PAGE

3=14
SEQ

799

800
801
802
803
805

PROCEDURE:

ATTENTION IS SET USING AN OFFSET COMMAND WITH

THE

PRIORITY

OF
THE
PROCESSOR
SET EQUAL TO THE PRIORITY OF THE (ONTROLLER.
INTERRUPT IS
ENABLED AND
THE
TEST
VERIFIES
THAT
A PROGRAM
INTERRUPT = DOES NOT OCCUR.
INTERRUPTS ARE UISABLED AND PROCESSOR

PRIORITY

LOWERED

AND

INTERRUPT DOES NOT OCCUR.

TEST 26 RETURN TO CENTERLINE

THE

TEST

VERIFIES

THAT

PROGRAM

TEST

PURPOSE
:

TC VERIFY

THE EXECUTION OF

“RETURN TO CENTERLINE'® COMMAND.

PROCEDURE
:

THIS TEST

ISSUES AN RTC COMMAND

AND

VERIFIES

THAT

OFFSET

STATUS, BIT O OF RMDS IS RESET AND THAT ATTENTION, BIT 15 OF RMDS
IS SET.
UNEXPECTED STATUS OR ERROR CONDITIONS ARE ALSO VERIFIED.

TEST 27 READ

IN PRESET TEST

:
PURPOSE
TO VERIFY THE EXECUTION OF

'READ IN PRESET'" COMMAND.

PROCEDURE
:

THIS TEST LOADS NON ZERO VALUES IN THOSE
ADAPTER
REGISTERS
WHICH
ARE
INITIALIZED
BY
THE
READ
IN
PRESET
(OMMAND, THEN
EXECUTES THE COMMAND AND VERIFIES THE CONTENTS OF EACH REGISTER.
THE

FOLLOWING REGISTERS ARE CHECKED:

.RMDA,

THE DISK ADDRESS REGISTER, IS LOADED WiTH

.RMDC,

THE DESIRED CYLINDER REGISTER,

.RMOF ,

THE OFFSET REGISTER. IS F.ESET (70.016200) AND

ONES AND VERIF[ED TO BE ZERO AFTER THE RIP COMMAND;

IS LOADED

ALL

WITH

ALL ONES (001777) AND VERIFIED TO BE ZERO AFTER THE RIP COMMAND:
2

VERIFIED

TEST 30 RMDC

TO BE ZERO AFTER THE

CLEAR OFFSET

TEST

TEST;

CZRMMBO RMQS5/3/2 FCTINL

TST

MACRO Vv04.00

4=APR=81

-2
11:43:28 PAGE 3=15
SEQ 0018

856
857
858
859
860
861
862

PURPOSE
:

TO VERLFY THAT WRITING THE DESIRED CYLINDER REGISTER
WILL CLEAR OFFSEf MODE.

(RMDC)

PROCEDURE
:

OFFSET MODE
WRITING RMDC.

TEST

IS SET USING THE OFFSET COMMAND,

THEN

RESET

31 ILLEGAL FUNCTION TEST
PURPOSE
:

TO VERIFY
FUNCTIONS.

THAT

THE RMO5/3/2 SUBSYSTEM

DETECTS

ALL

ILLEGAL

PROCEDURE
:

EACH ILLEGAL FUNCTION CODE
IS
EXECUTED
WITH
THE
PROGRAM
VERIFYING THAT
‘''ILLEGAL FUNCTION'' STATUS, BIT C OF RMER! IS SET

FOR EACH CODE.

THE

ILLEGAL FUNCTION TEST.

TEST

SUBSYSTEM

INITIALIZED

PRIOR

EACH

32 INVALID COMMAND TEST
PURPOSE :
TC VERIFY

IVC ERROR DETECTION.

PROCEDURE
:

THEN EXECUTES
A, NOP COMPAND. AND VERI 165 THAT TyC 15 ST o
PRUCESS IS REPEATED
FOR
EACH

FUNCTION

CHECKED ACCORDING TO THE FUNCTION.

TEST

33 INVALID ADDRESS ERROR TEST
PURPOSE
:

TO VERIFY
PROCEDURE
:

JAE

ERROR DETECTION.

CODE,

WITH

IVC

BEING

CZRMMBO RIMOS5/372 FCTINL

TST

MACRO v04.00

4=APR=81

THE

11:43:¢28 PAGE

3-16

TEST EXECUTES EACH FUNE Tl ON CODE WITH RMDA, AND RMDC

ILLEGAL

ADDRESSES,

AND VERIF

SET

ES I IAE ACCORDING TO THE FUNCTION.

TEST 34 WRITE LOCK ERROR TEST
PURPOSE
:
TO VERIFY WLE

ERROR DETECTION.

PROCEDURE
:
THE
PROTECT

EXECUTED.

TEST

TEST SIMULATES WRITE
AND
VERIFIES
WLE

EACH FUNCTION CODE

PROTECT
USING
MAINTENANCE
ACCORDING
TO
THE
FUNCTION

IS TESTED.

WRITE
BEING

35 ERROR ABORT TESTS
PURPOSE
:

TO TEST COMMAND EXECUTION DURING AN ABORT CONDITION.
PROCEDURE
:

EACH FUNCTION CODE IS
EXECUTED UNDER A
SIMULATED
CONDITION AND THE TEST VERIFIES THAT GO IS RESET.

TEST

UNSAFE

36 RMR TEST
:
PURPOSE
TO VERIFY THAT

RMR ERROR

IS DETECTED.

PROCEDURE
:

gI;H
ETS.

TEST

THE

TEST EXECUTES A NOP COMMAND WITH

SET,

THE

37 PARITY ERROR TEST

TEST

WRITES RMCSI,

DEBUG

C(LOCK

ENABLED.

VERIFYING THAT RMR ERROR

JRMMBO RMOS/572 FCINL

IST

MACRO V04.00

4=-APR=-81

11:43:28 PAGE

3=17

SEC 0020
970

PURPOSE
:

g;%

TO VERIFY THAT PARITY ERRORS ARE DETECTED.

g;ls.

PROCEDURE :

976
Q77

g;g

TEST

WITH PAT SET TO CAUSE BAD PARITY ON
THE
(ONTROL
BUS,
WRITES A SHIFTING ONE BIT PATTERN TO RMDA AND VERIFIES

AN ERROR 1S DETECTED BY THE RM0S/3/2 FOR EACH PATTERN.

THE
THAT

980
931
982

983
ggé

TEST 40

ggg

ILLEGAL REGISTER

PURPOSE
:

988

989
990

gg;

993

994
995
996
997

998
999
1000
1001
1002

1003
1004
1005

1008

1009

1010

TEST

TO VERIFY THE DETECTION OF

SUSBSYSTEM,
:

ILLEGAL REGISTER ADDRESSES BY THE

PROCEDURE :

EACH REGISTER

ADDRESS

ACCESSED

AND

ILLEGAL

WAY THE JUMPER IS CUT.

SEEK TESTS

(41

- 67)

PURPOSE :

THE

THE PURPOSE OF EACH OF

THE FOLLOWING SEEK TESTS IS TO VERIFY

EXECUTION OF SEEK OPERATIONS BY THE RM05/3/2 SUBSYSTEM USING

A SET OF ADDRESSES

THAT TEST

THE

ADAPTER/DEVICE

|INTERFACE

;81;

ELECTROMECHACAL.
NI HEAD POSITIONING HARDWARE.

}8}2

PROCEDURE :

1015
1016
1017
1018
1019
1020
1021
1022
1023
1024

EACH TEST WILL RECALIBRATE THE DRIVE IF 'PIP'" OR
ACTIVE.
FOLLOWING
THAT, THE TEST EXECUTES A SEEK TO
ADDRESS OR SERIES OF ADDRESSES.
AT THE COMPLETION OF
OPERATION,
SUBSYSTEM
STATUS
IS
STORED AND THE TEST
PRIMARY ERRORS WHICH PRECLUDE FURTHER ERROR CHECKING.
ARE
NO PRIMARY ERRORS THE TEST CHECKS FOR OPERATIONAL
THEN SECONDARY ERRORS.

1025

1026

STATUS,
BIT 1 OF RMER1 IS CHECKED ACCORDING TO THE ADDRESS USED.
NOTE THAT THE EXECUTION OF THIS TEST IS DEPENDENT ON THE REGISTER
ADDRESS JUMPER
IN THE RH (ONTROLLER
BECAUSE
THE RANGE OF
ADDRESSES WHICH THE CONTROLLER WILL RESPOND TO IS LIMITED BY
THE

AND

''SKI''
1IS
A CYLINDER
FEACH
SEEK
CHECKS FOR
IF
THERE
ERRORS AND

(ZRMMBO RMOS/3/2 FCINL

TST

MACRO v04.00

4=APR=81

11:43:¢28 PAGE

3-18
SEQ

1027
1028

TEST 41

SEEK

1029

1030
100
1032
1033
1034

1035
1036
1037
1038
1039
1040

TO FIRST

THIS

TEST

CYLINDER TEST

SEEKS TO THE FIRST CYLINDER,

1.E.

CYLINDER 0.

[.E.,

CYLINDER 822.

42 SEEK TO LAST CYLINDER TEST
e

THIS TEST

SEEKS TO THE LAST CYLINDER,

1041

1042

1043
1064

1045
1046

1047

1048
1045
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060

1061

1062

TEST 43 SEEK PRIME
THIS

CYLINDERS TEST

TEST SEEKS FORWARD

CYLINDERS 1, 2, 4, 8,

TEST 44

16,

SEEK ZERO DIFFERGNCE

TO EACH PRIME

32, 64,

I.E,

TEST

THIS TEST EXECUTES SUCCESSIVE

TEST 45

(YLINDER ADDRESS,

128, 256, AND 512.

SEEKS TO CYLINDER 0.

SEEK MAXIMUM DIFFERENCE FORWARD
THIS

TEST DOES A RECALIBRATE

(OMMAND,

REGUARDLESS

THE

CONDITION OF "PIP'' OR ''SKI'', AND THEN EXCUTES A SEEK TO THE LAST
CYLINDER.

TEST 46 SEEK ADJACENT FORWARD

TEST

THIS TEST SEEKS TO CYLINDER O, FOLLOWED BY
ADJACENT FORWARD CYLINDER, I.E., CYLINDER 1.

TEST 47 SEEK ADJACENT REVERSE

SEEK

TEST

THIS TEST SEEKS TO CYLINDER 1,
REVERSE CYLINDER, I.E., CYLINDER O.

FOLLOWED BY A SEEK

TO THE

ADJACENT

00¢1

CZRMMBO RMOS5/372 FCTINL

TIST

MACRO v04.00

4=APR=-81

11:43:28 PAGE

3-19
SEQ

TEST

50 SEEK TO INVALID SECTOR TEST
WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT, THE
PROGRAM
SEEKS TO CYLINDER O, TRACK 0, FOR EACH INVALID SECTOR ADDRESS AND
VERIFIES THAT
INVALID
ADDRESS
ERROR
SETS FOR FACH SECTOR. THE
TEST

IS REPEATED FOR 16 BIT FORMAT,

TEST

SEEK TO INVALID

TRACK

TEST

THE TFST SEEKS TO EACH INVALID TRACK ADDRESS
AND
SECTOR
ADDRESS
SET
TO O AND VERIFIES THAT
ERROR SETS FOR EACH TRACK ADDRESS.

TEST 52 SEEK

WITH
CYLINDER
INVALID ADDRESS

TO INVALID CYLINDER TEST

THE PROGRAM SEEKS TO EACH INVALID CYLINDER ADDRESS WITH

SECTOR

AND

TRACK

ADDRESS

SET

O AND VERIFIES THAT

ADDRESS ERROR SETS FOR EACH CYLINDER ADDRESSS.

TEST

THE

INVALID

53 IVC SEEK TEST
PURPOSE
:
TO VERIFY THAT INVALID COMMAND STATUS, BIT 12 OF
WHEN VOLUME VALID IS INACTIVE DURING A SEEK COMMAND.

RMER2

SETS

PRIOCEDURE
:
THE TEST
RESETS
VOLUME
VALID
BY
SETTING
AND
RESETTING
DIAGNOSTIC
MODE,
THEN EXECUTES A SEEK COMMAND AND VERIFIES THAT

“IvC'* STATUS 1S SET.

TEST 54 ABORT

SEEK TEST

»
o

h ok ot

I - h

e
o
d vk vl

R D
el

e ek

=k o d d d o
d e e d el d D e D D
D d e
d et d d
e d d ok e d v el

D o
d d d o
b —d b d nd —d D d

NN NN
nonon
NN
R LR Lt 2 =D
w0000 0000 3
%g%&mwwwfiggmwouywmdoomwovbwmaoomwgm?wmug

1098

PURPOSE
:

TO VERIFY

THAT

THE RM05/3/2

INMIBITS A SEEK

WHEN

ABORT

002,

CZRMMBO RMOS/372 FCINL

TST

MACRO V04.00

4-APR-81

11:43:28 PAGE

3-20

SEQ 0023
;323

CONDITION EXISTS AT

1122

PROCEDURE :

1145
d D rd D D ) D d D ecd D b b =D b

3;29

148
149
150
151
}g%

}2?

156

KERIN2ET ARRRRVLBIIVFANINIITEIERRAR

TEST

THE

START OF

THE

COMMAND.

TEST SETS AN ERROR IN THE ERROR REGISTER

COMMAND,

VERIFYING THAT 'PIP"* REMAINS

AND

INACTIVE.

ISSUES

55 SEEK AT OFFSET

PURPOSE :
SEEK.

TO VERIFY THAT OFFSET MODE

DOES

NOT

CAUSE

ERRORS

DURING

PROCEDURE:
THE TEST EXECUTES AN OFFSET COMMAND
THEN
COMMAND, VERIFYING THE RESULTS OF THE SEEK.

EXECUTES

SEEK

ORIGINATES

THE

TEST 56 LOOK AHEAD TEST

:
PURPOSL

DRIVE

TO INSURE THAT THE SECTOR

AND

OPERATIONAL .

VISIBLE

COUNT

WHICH

THROUGH THE LOOK AHEAD REGISTER (RMLA)

‘

PROCEDURE :

WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT, THE
PROGRAM
SAMPLES
THE
LOOK
AHEAD
REGISTER
AND
COLLECTS EACH DIFFERENT
SAMPLE UNTIL THE VALUE OF THE FIRST SAMPLE IS DETECTED OR UNTIL

31, SAMPLES ARE TAKEN. THE COLLECTION IS THEN TESTED TO DETERMINE

THAT THE SECTOR COUNT INCREMENTS
CORRECTLY
THROUGH
THE
ENTIRE
RANGE
OF
VALID
SECTORS.,
THE SAME PROCEDURE IS REPEATED FOR 16

BIT FORMAT, WHERE

THE LIMIT ON THE NUMBER OF

SAMPLES IS 33.

ot v

etk =

e e ek e ek e

el ek e e o

d kv

ek el sk o

)

e e

D —d

D b e

)

d e o

d d

D e

D D i wd D e

157
158
159
160
161
1

SEEK

THE

TEST 57 SEARCH ON CYL INDER
PURPOSE
:

TO VERIFY THE EXECUTION OF SEARCH OPERATIONS
MOTION USING THE SECTOR PULSE FOR SECTOk COMPARE.

WITH

HEAD

CZRMMBO RMOS/3/2 FCTINL

TST

MACRO Vv04.00

4=APR=81

11:43:28 PAGE

3=21

SEQ 0024
PROCEDURE
:

"'SKI''

THE

TEST

INTIALIZES AN D RE RECALIBRAT
A
ES THE DRIVE

ACTIVE THEN SEEKS T0 CYLINDER O,

SEARCH TO EACH SECTOR AND
WITHOUT
ERROR.
THIS TEST

IN 16 BIT FORMAT.

‘PIP'"

THE TEST THEN DOES A

THAT
ERI FIES
THE
SEARCH
COMPLETES
I SD ONE ONCE IN 18 BIT FORMAT AND ONCE

b
)
D e

TO VERIFY THE EXECUTION OF A
HEAD MOTION.

CYLINDER

PURPOSE
:

d e

TEST 60 SEARCH OFF

C(OMMAND

WITH

IMPLIED

PROCEDURE
:

THE DRIVE IS RECALIBRATED AND INITIALIZED IF
THE
DRIVE
IS
OFF
CYLINDER OR HAS A SEEK ERROR.
THE PROGRAM THEN EXECUTES AND
EXPLICIT SEEK TO CYLINDER 410., FOLLOWED BY A SEARCH TO
CYLINDER
411., TRACK O, SECTOR 0. THE
FOLLOWING
IS
SEARCHED
FOR BY AN

EXPLICIT
SEEK TO CYLINDER 409., FOLLOWED BY A SEARCH TO CYLINDER
412., TRACK O, SECTOR 1, FTC.,
UNTIL
ALL THE
SECTORS HAVE BEEN
SEARCHED.
THE
TEST
IS
DONE
FOR 18 BIT FORMAT, WHERE THE LAST
SECTOR
SEARCHED
IS
SECTOR
29. THE TEST_IS REPEATED FOR 16 3IT
FORMAT, WHERE

TEST 61

THE LAST SECTOR SEARCHED IS 31.

SEARCH INVALID SECTOR

PURPOSE
:

TO VERIFY THE DETECTION OF
A SEARCH OPERATION.

AN INVALID SECTOR ADDRESS

DURING

PROCEDURE
:
THE DRIVE IS RECALIBRATED
CYLINDER
OR_HAS A SEEK ERROR.

AND
INITIALIZED
IF
IT
IS
OFF
WITH THE OFFSET REGISTER SET FOR

18 BIT FORMAT, THE PROGRAM EXECUTES
A
SEARCH
TO
FEACH
INVALID
SECTOR, I.E., SECTORS 30 AND 31 AND VERIFIES THAT INVALID ADDRESS
ERROR SETS FOR EACH SECTOR.

TEST

62 SEARCH INVALID TRACK

3
e

NOWNH
AW =O

Rl
e

WSLSTLSTAS
IS IS T VT,V ¥ ]

1208

CZRMMBO RMOS/3/2 FCTNL

TST

MACRO v04.00

m_2
11:43:28 PAGE 3=22

4-APR-B81

SEQ 0025
PURPOQSE
:

TO VERIFY THE DETECTION OF

SEARCH OPERATION.

AN INVALID

TRACK ADDRESS DURING A

PROCEDURE
:
THE

DRIVE

IS RECALIBRATED

AND

INITIALIZED

OFF

CYLINDER
OR
HAS A SEEK ERROR.
THE PROGRAM EXECUTES A SEARCH T0
EACH INVALID TRACK ADDRESS
WITH
THE
CYLINDER
ADDRESS
0,
AND
SECTOR ADDRESS O AND VERIFIES THAT INVALID ADDRESS ERROR SETS FOR
EACH TRACK.

TEST 63 SEARCH

INVALID CYLINDER

:
PURPOSE

TO VERIFY THE
DETECTION
DURING A SEARCH OPERATION.

PROCEDURE :

INVALID

CYLINDER

ADDRESS

THE DRIVE IS RECALIBRATED
AND
INITIALIZED
IF
IT
IS
OFF
CYLINDER OR HAS A SEEK ERROR.
THE PROGRAM THEN EXECUTES A SEARCH
TO EACH
INVALID
CYLINDER
ADDRESS
AND
VERIFIES
THAT
INVALID
ADDRESS ERROR SETS FOR EACH CYLINDER.

D
D
D
D il il i

TEST 64

IVC SEArCH TEST

PURPOSE
:

TO VERIFY

THAT

INVALID COMMAND STATUS SETS WHEN VOLUME

IS INACTIVE DURING A SEARCH COMMAND.

VALID

PROCEDURE
:

VOLUME VALID IS RESET BY SETTING
AND
RESETTING
DIAGNOSTIC
AFTER
WHICH THE TEST EXECUTES A SEARCH COMMAND, VERIFYING
THAT *‘IVC'" STATUS SETS.

MODE.

D
sl

B
et o

il ol

sld el ol

AN ANAN

il ol il

0000000

D il

D D e

0000 ~y
SN28TR0o 0o
E3ELESE8Ee
388N§NN'\)NNNMNNNNNNNNNNNNNNN

TEST 65 ABORT SFEARCH TEST

:
PURPOSE
TO VERIFY THAT

THE RM05/3/2 INHIBITS A SEARCH WHEN AN

ABORT

TST 1

MACRO v04.00

N 2
4-APR-B1 11:43:28B PAGE 3-2%
CONDITION EXISTS AT THE START OF THE {OMMAND.

VTS
T

POV
NP DN -OQOLo

T
b
ot o o
TOWND A WSO
O

Be e
e e T N
S

NN NN
N
NN

—h d.‘fl.fllwww

CIRMMBO "MOS/3/72 FCTNL

PROCEDURE
THE

TEST SETS AN ERROR IN THE ERROR REGISTER

AND

SEARCH (OMMAND, VERIFYING THAT "PIP'" REMAINS INACTIVE.

ISSUES

TEST 66 SEARCH AT OFFSET TEST

PURPOSE :

TO VERIFY THAT OFFSET MODE DOES NOT CAUSE SEARCH ERRORS.

:
PRCCEDURE
THE TEST EXECUTES AN OFFSET COMMAND,

THEN EXECUTES A

COMMAND, VERIFYING THAT THERE ARE NO ERRORS DURING THE SEARCH.

TEST 67 HEAD AL IGNMENT SEEK

:
PURPOSE
HEAD AL IGNMENT FOR AN RM0S5/3/2 DRIVE,

IS PERFORMED AT CYLINDER

245 DECIMAL USING THE CE PACK. A 60 MINUTE WARMUP IS REQUIRED IF

THE PACK WAS NOT IN THE DRIVE PRIOR TO HEAD AL IGNMENT OPERATION.

PROCEDURE
:
THE TEST EXECUTES A SEEK TO CYLINDER 245.,

HEADS OVER THE HEAD AL IGNMENT CYLINDER.

TO POSITION THE

MAL0 0600

4-APR-B1

171:43:28 PAGE &

s*LAST REVISION 04-APR-8T
TITLE

C(ZRB0 RMDS/3/2 FETNL TST 1

;*(OPYRIGHT () 1981

TRY

;*DIGITAL EQUIPMENT CORPORATION
:*(OLORADD SPGS., (0. 80919
*PROGRAM BY MIKE LEAVITY
*

SWITCH
i
d
d

A
T

474

6urs

R
e

O
BN BN B
LA B

LR L

474

O=NWSR
VO N

OO =W

OPERATIONAL SWITCH SETTINGS

LSBTTL
TR TRIR

L7?

]

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC
;*PACKAGE (MAINDEC-71-DZQAC-C5), 18-MAR-81

.SBTTL

USE
HALT ON ERROR

LOOP ON TEST

INHIBIT
UNUSED
INHIBIT
BELL ON
LOOP ON
LOOP ON
TN128

ERROR TYPEOQUTS
ITERATIONS
ERROR
ERROR
TEST IN SWR<7:0>

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER =x+ 1100 ==

STACK
ERROR
SCOPE

= 1100
= EMT
= 0T

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

s *MISCELLANEOUS DEF INITIONS

;;CODE FOR HORIZONTAL

=1
= 200

= 177776

:;CODE FOR CARRIAGE RETURN
;:CODE FOR CARRIAGE RETURN-LINE FEED
. ;PROCESSOR STATUS WORD

STKLMT
PIRQ

= 177774
= 177772

s:STACK LIMIT REGISTER
: ;PROGRAM INTERRUPT REQUEST REGISTER

DDISP

= 177570

: ;HARDWARE DISPLAY REGISTER

(R
CRLF
FP’gU—PS

CSWR

= 177570

;:CODE FOR LINE FEED

; ;HARDWARE SWITCH REGISTER

s *GENERAL PURPOSE REGISTER DEF INITIONS

RO
R1
RZ

= 20

=1
= %2

= X3

TAB

::GENERAL REGISTER

: ;GENERAL REGISTER
: ;GENERAL REGISTER

: ;GENERAL REGISTER

4-APR-B1

11:43:2B PAGE 4-1

SEC 0028
R4
RS
R6
R7

=
=
=
=

%
%5
%6
%7

: ;GENERAL
: ;GENERAL
: ;GENERAL
s ;GENERAL

= %6

::STACK POINTER

= %7

; ;PROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS

PRO

PR1

PR2
PR3
PR4
PRS
PR6
PR7

;;PRIORITY LEVEL 0

= 40

;;PRIORITY LEVEL

= 100
= 140
=
=
=
=

200
240
300
340

;;PRIORITY
::PRIORITY
;:PRIORITY
:;PRIORITY

LEVEL 4
LEVEL 5
LEVEL 6
LEVEL 7

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

Sw13

= 20000

Swi1
SW10
Sw09
Sw08
Sw07
SWo6
Sw05
SW04

=
=
=
=
=
=
=
=

SwW14

SwW12

SW03
Sw0?2

= 40000
= 10000
4000
2000
1000

400
200
100
40
20

= 10
= 4

SWO1
=2
=1
Sw00
SW9=SwW09
SwW8=Sw08
SW7=Sw07
SW6=SW06

SW5=SwW05
SW4=SW04
Sw3=5w03
SW2=5w0?
SW1=Sw01
SWO=Sw00

;*DATA BIT DCFINITIONS (BITOO TO BIT15)
BIT15
= 100000
BIT14

BIT13
BIT12
BITN
BIT10
BITO9
BITO8
BIT07
BIT06
BITOS

40000

20000

10000

4000
2000
1000

400

200

100
40

;;PRIORITY LEVEL 2
;;PRIORITY LEVEL 3

SW15

unnnunihnn

000004
000005
000006
000007

MACRO v04.00

CZRMVB) RMOS/3/¢ FCINL TST 1
BASIC DEF INITIONS

CZRMMBO RMOS/3/2 FCINL TST
DEFINITIONS

MACRO v04.00

4-APR-B1

11:43:28 PAGE 4=2

SEQ 0029

BITO4
=20
BITO3
=10
BITO2
=4
BITO1
=2
=1
BITO0O
BIT9=RBITO
BIT8=BIT08

BIT7=B]T07

BIT6=BIT06
BIT5=81T05
BIT4=BI 104
BIT3=BITO3
BIT2=BIT02
BIT1=RITO1
BITO=BITO0
000004
000010
000014
200014
000014
000020
000024
€00030
000034
000060
000064
000240

s *BASIC 'T:U“ TRAP VECTOR ADDRESSES

ERRVEC
RESVEC
TBITVEC
TRTVEC
BPTVEC

IOTVEC

PWRVEC

EMTVEC

=
=
=
=
=

10
14
14

14
= 20
= 24

= 30

TRAPVEC = 34
TKVEC
= 60

TPVEC
= 64
PIRQVEC = 240

.SBTTL

;:TIME OUT AND OTHER ERRORS

::fl;fifgy;b AND ILLEGAL INSTRUCTIONS
;:TRACE TRAP
; ;BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (IOT) *#*SCOPE=»»
; ;POWER FAIL
;;EMULATCR TRAP (EMT) =~ERROR**

::"'TRAP'' TRAP

;:TTY KEYBOARD VECTOR

;:TTY PRINTER VECTOR

; ;PROGRAM INTERRUPT REQUEST VECTOR

RM REGISTER BIT DEF INITIONS

004000

000020
000010
000004
000002
000001
000077

DVA
Fé&
F3
F2
F1
FO
GO
FNCMSK

HuEnnmnun

;*RMCS1 CONTROL STATUS REGISTER

SFUNCT]

nunnnnnnnnnn Ilg

BASIC

NOP

ILFO2

SEEK
RECAL

DRVCLR

RLEASE

OFFSET
RTC
RIP
PAKACK
PACACK

ILF24
ILF26

BIT11
BITOS
BIT04
BITC3
BITO2
BITO1
BITOO
000077
CODES

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022

PAKACK

000024
000026

;DEVICE AVAILABLE-READ ONLY
sFUNCTION CODE
sFUNCTION CODE
sFUNCTION CODE
sFUNCTION CODE
sFUNCTION CODE
;GO BIT
sFUNCTION CODE MASK
(BITS C'=-05 OF RMCS1)

sNOP_COMMAND
s ILLEGAL COMMAND
; SEEK COMMAND
JRECALIBRATE COMMAND
;DRIVE CLEAR COMMAND
;RELEASE COMMAND
;OFFSET COMMAND
JRETURN TO CENTERLINE COMMAND
JREAD IN PRESET COMMAND
;PACK ACKNOWLEDGE COMMAND

s ILLEGAL COMMAND
+ ILLEGAL COMMAND

CZRMMBO RMOS/3/2 FCTNL

RM REGISTER BIT

AR RN ARV

et ok QuudMptt

ot st Gt 4

LV, IV, LV, IV, [V, IV ]

ST NV Sttt

504
507

518

TST

DEF INITIONS

000030
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062

000064
000066
000070
000072
000074
000076

MACRO v04.00

4-APR-B1

ILF30
ILF32
ILF34
ILF36
ILF40
ILF42

= 000030

=
=
=
=
=
=

000030
000032
000034
00003%
000040
000042

ILF44
ILF46

= 000044
= 000046

WCH

= 000052

WwCD

ILF54
ILFS56

WD
WH

ILF64
ILF66

= 000050

= 000054
= 000056

= 000060
= 000062

= 000064
= 000066

= 000070

= 000072

;*RMDA

DISK ADDRESS REGISTER

ILF74
iILF76

= 000074
= 00076

;s TRACK ADDRESS DEF INITIONS

TA16
TA8
TA4
TA2
TA1

=
=
=
=
=

;SECTOR
SA16
SA8
SA4

ADDRESS DEF INITIONS
= BITO4
= BIT03
= BIT02

SA1

= BITO00

SAZ2

BIT12
BIT1
BIT10
BIT09
BIT08

= BIT01

;TRACK & SECTOR MASKS
TADMSK
= 177400

SADMSK

= 000377

;*RMDS

DRIVE STATUS REGISTER

‘ATA

= BIT15

ERR

PIP

= BIT14

= BIT13

MOL
WRL
LBT

= BIT12
= BIT11
= BiT10

DPR
DRY
vV
oM

=
=
=
=

PGM

= BIT09

BIT08
BIT07
BIT06
BITO0

J*RMERT ERROR REGISTER #1
———

11:43:28 PAGE 4-3

ILLEGAL
ILLEGAL
ILLEGAL
LEGAL
EGAL
EGAL
EGAL
EGAL

COMMAND
COMMAND
COMMAND
COMMAND
COMMAND
COMMAND
COMMAND
COMMAND

TE CHECK DATA (OMMAND
TE CHECK HEADER AND DATA

EGAL COMMAND

;WRITE DATA COMMAND

;WRITE HEADER AND DATA COMMAND

;ILLEGAL COMMAND
; ILLEGAL COMMAND
JREAD DATA COMMAND
;READ HEADER AND DATA (OMMAND
s ILLEGAL COMMAND
; ILLEGAL COMMAND

s TRACK
:TRACK
;TRACK
: TRACK

ADDRESS 16.
ADDRESS 8.
ADDRESS 4
ADDRESS 2

; TRACK ADDRESS 1

sSECTOR
;SECTOR
;SECTOR
;SECTOR
.SECTOR

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

16.
8.
4
2
1

s TRACK ADDRESS MASK

sSECTOR ADDRESS MASK

JATTENTION ACTIVE

;COMPOSITE ERROR
sPOSITIONING IN PROGRESS
SMEDIUM ON LINE
JWRITE LOCK
JLAST BLOCK TRANSFERRED

s PROGRAMMABL
£

;sDRIVE PRESENT
;DRIVE READY
;VOLUME VALID
cOFFSET MODE ACTIVE

RM REGISTER BIT

556
557
558
559
560
561
562
563
564

565

566

567
568
569
570
571

DEF INITIONS

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100

575
576

MACRO v04.00

DCK
UNS
OPj
DTE

WLE
IAE
AOE
HCRC
HCE

578

BIT1S

= BIT14

= BIT13

= BIT12

= BITN
= BIT10
= BIT09

sDATA

(HECK

ERROR

;DRIVE UNSAFE

;OPERATION

INCOMPLETE

;DRIVE TIMING ERROR

;WRITE LOCK ERROR
s INVALID ADDRESS ERROR
sADDRESS OVERFLOW ERROR

ILR
ILF

ND TMSK

= DCK!DTE !WLE !AQE !HCRC 'HCE ECH!WCF !FER

ECH

WCF
FER

BIT08
BITO7
BIT06
BITOS
BIT04
BITO3
BIT02
BITO!
BITO0

JHEADER CRC ERROR
JHEADER CCMPARE ERROR
;ECC _'HARD'' ERROR
WRITE CLOCK FAILURE
;FORMAT ERROR
;PARITY ERROR
JREGISTER MODIF ICATION REFUSED
;ILLEGAL REGISTER
sILLEGAL FUNCTION

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

< COMMANDS,

§77

=
11:43:28 PAGE 4-4

=
=
=
=
=
=
=
=
=

PAR

115760

4-APR=-81

SEQ Q031

RMR

572

573
574

TST 1

1.E., HOUSEKEEPING AND POSITIONING COMMANDS

;*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

;*RMLA

LOOK AHEAD REGISTER

SC4

= BIT10

000400
000200
000100

SC1
SCO

= BIT07
= BIT06

*SECTOR COUNT = 2
*SECTOR COUNT = 1

003700

SCTMSK

= 003700

;SECTOR COUNT MASK

000377

(02000

SC3
5C2

= BIT09
= BITO8

:MASK FOR ATTENTION BITS

;SECTOR COUNT = 16

*SECTOR COUNT = 8
*SECTOR COUNT = 4

:*RMMRT MAINTENANCE REGISTER #1
;WRITE ONLY BITS

DBCK
DBEN
DEBL
DTO

=
=
=
=

MRD
MUR
MOC

= BIT10
= BIT09
= BITO8

MSER

BIT1S
BIT14
BIT13
BIT12

= BITI1

= B]T07

MDF
Me
MWP

= BIT06
= BITO0S
= BIT03

DMD

= BIT00

]
MS(

= BIT02
= 8]101

;READ ONLY BITS

—

oct

= BIT15

:DEBUG CLOCK
*DEBUG CLOCK ENABLE
*DIAGNOSTIC END OF BLOCK
*DIAGNOSTIC TIMEQUT
*MAINTENANCE

*READ DATA
“UNIT READY
:ON CYLINDER

CLOCK

*SEEK ERROR

*DRIVE FAULT
*SECTOR PULSE
“WRITE PROTECT

“INDEX PULSE
*SECTOR COMPARE

*DIAGNOSTIC MODE
:0CCUPIED

CZRMMBO RMOS5/3/2 FCTINL

CZRMMBO RMOS/3/2 FCTINL

RM REGISTER BIT

DEF INITIONS

613
614

MACRO v04.00
RG

EBL
REX
ESRC

615
616

L-APR=81

11:43:28 PAGE

4=5%

= BIT14

= BIT13
= BIT12
= BITI

;RUN AND GO

JEND OF BLOCK
JEXCEPTION
JENABLE SEARCH

617

PLFS

620

PDA
PHA

622

626
625

MWD

6c6

LS
LST
DMD

=
=
=
=

629

:*RMDT

DRIVE

NSA
TAP
MOH

= BIT15

DRQ

= BIT1S:
= BIT11

SNGPRT
DULPRT

= 020024
= 024024

; *RMOF

OFFSET REGISTER

FMT16
ECI

HC]
OFD

=
=
=
=

s *RMDC

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK

= 001777

618
€16

ECRC

621

CONT

623

EECC

627
€28

BIT12
BIT11
BIT10
BITO7

OO=MNIWH
N
N0

s ey

sB
e

by
B

e
B
B
s B

g Ba 8o P

[=leleln el
O —=rovidssun

.B |

OO~
it bk =2

[}
O
O

000020
000010
000004
000002
000001

8809
8808
8807
BB06
BBUS
BBO4
BB03
BBO?
8801
8800

e e

001000
000400

cC
CH

= BIT

040000
020000
010000
004000
002000
000200
000100
000040

662

JLOOKING FOR SYNC
JENABLE CRC ouT
;DATA AREA
;HEADER AREA
; CONT INUE
;WORD CLOCK
JENABLE ECC OuT

JWRITE DATA BIT
;LAST SECTOR
.LAST SECTOR AND TRAC(CK
;DIAGNGCSTIC MODE

TYPE REGISTER

BIT14

mmmmmmmmwwg

661

BIT03
BIT02
BITQ1
BIT00

-READ ONLY BITS

RQA
RQB
TAG
TST

657
658

100000

655
656

BIT10
BITUS
BIT08
BITO07
BIT06
BITOS
BIT04

;NOT SECTOR ADDRESSED = 0

;TAPE

DRIVE

:MOVING HEAD = 1
;DRIVE REQUEST REQUIRED

;SINGLE PORT DRIVE TYPE (RM(Q2)
;DUAL PORT DRIVE TYPE (RM0O2)

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

sMASK FOR CYLINDER ADDRESS

; *RMMR2 MAINTENANCE REGISTER #2

653
654

001777

647
648
649
650
651
652

010000
004000
002000
000200

644
645
646

020024
24024

643

040000
020000
004000

636
637
638
639
640
641
642

100000

=
=
=
=
=
=
=

630
631
632
633
634
635

[

TST

JPORT A REQUEST

;PORT B REQUEST

. TAG CONTROL

s COMMAND SEQUENCE TEST BIT
;CONTROL 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

CZRMMBO RMOS/3/2 FCINL

RM REGISTER BIT

DEFINITIONS

663

664
665
666
667
668
669
670

671

672

TST

MACRO v04.00

4-APR=81

11:43:78 PAGE 4=6

: *RMERZ ERROR REGISTER 2
100000

040000
020000
010000
004000
002000
000200
000010

100000

040000

8St
SK]

BIT15
= BIT14

;BAD SECTOR ERROR
:SEEK INCOMPLE
TE

OPE
IvC
LSC
LBC

Dv{
DPE

=
=
=
=
=
=

SBTTL

PROGRAM MNEMONICS

MSE
USE

= BIT1S
= BIT14

JSBTTL

RM REGISTER

RMCS1

= 00
= 06
= 12

BIT13
BIT12
BIT11
BIT10
BIT07
BIT03

:OPERATOR PLUG ERROR
:INVALID COMMAND ERROR
:LOSS OF SYSTEM CLOCK
:LOSS OF BIT (LOCK
:DEVICE CHECK
:DATA PARITY ERROR

;MANU"ACTURING DETECTED SECTOR ERROR
:USER DETECTED SECTOR ERROR
INDEX VALUES

000000
000006
000012
000014
000016
000020
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076

RMMR2
RMER2
RMEC1
RMEC2

ILRG64
ILRG66
ILRG70
ILRG72
ILRG74
ILRG76

=
=
=
=
=
=
=
=
=
=

000077

IDXMSK

=77

OBTTL

RH CONTROLLER REGISTER BIT DEFINITIONS

RMDA

RMDS

RMER1
RMAS
RMLA
RMMR1
RMDT
RMSN
RMOF

RMDC
RMHR

ILRG50
ILRG52
ILRG54
ILRG56
ILRG60
ILRG62

=
=
=
=
=
=
=
=
=
=
=

:CONTROL STATUS REGISTER #1
:DISK ADDRESS REGISTER
:DRIVE STATUS REGISTER

:ERROR REGISTER #1

16
20
24
26
30
32
34
36
40
42
44

= 46

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

:ATTENTION SUMMARY REGISTER
:LOOK AHEAD REGISTER
:MAINTENANCE REGISTER
:DRIVE TYPE REGISTER
:SERIAL NUMBER REGISTER
:OFFSET REGISTER
:DESIRED CYLINDER REGISTER
:HOLDING REGISTER
:MAINTENANCE REGISTER #2
:ERROR REGISTER #2
:ECC POSITION REGISTER
:ECC PATTERN REGISTER

:ILLEGAL REGISTER 50
:ILLEGAL REGISTER 52

:ILLEGAL
:ILLEGAL
:ILLEGAL
:ILLEGAL
:ILLEGAL
:ILLEGAL
:ILLEGAL
:ILLEGAL
*ILLEGAL
:ILLEGAL

;MASK FOR REGISTER

54
56
60
62
64
66
70
72
74
76

INDEX NUMBER

s *RMCST CONTROL STATUS REGISTER #1

The

MCPE
PSEL

= BIT1S
= BIT14
= B8IT13
= BIT10

;SPECIAL CONDITION-READ ONLY
: TRANSFER ERROR
;MASSBUS CONTROL BUS PARITY ERROR-READ ONLY
;PORT B SELECT

CZRMMBO RMOS/3/2 FCTINL TST 1
MACRO v04.00
RH CONTRCLLER REGISTER BIT DEF INITIONS
7
712
713

714
718

716
717
718
719
720

721

722

723

724
725
726
727
728
729

730

733

734
735
736
737

001000
000400
000200
000100

A17

4-APR-B1

-3

SEQ 0034
= 81109

Al6

= BI7108

= BIT06

RDY

11:43:.8 PAGE <=7

= BIT07

sADDRESS EXTENSION

sREADY=-READ ONLY

;INTERRUPT ENABLE

;*RMCS2 RH CONTROL STATUS REGISTER #2
100000

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

DLT

= BIT1S

UPE
NED
NEM

= BIT13
= BIT1?2

WCE

;DATA LATE-READ ONLY

= BIT14

JWRITE (HECK ERROR-READ ONLY

PGE

= BITN
= BIT10

sNONEXISTANT MEMORY-READ ONLY
:PROGRAM ERROR-READ OUNLY

MDPE

= BIT08

sMASSBUS DATA BUS PARITY ERROR=READ ONLY

MXF

OR
IR
CLR
PAT

BAI
ue
Ul
uo

= BIT09

JUNIBUS PARITY ERROR
sNONEXISTANT DRIVE-READ ONLY

sMISSED TRANSFER

= BITO7
= BIT06
= BIT0S

;OUTPUT READY-READ ONLY
; INPUT READY-READ ONLY
;CONTROLLER CLEAR

= BITO3

;UNIBUS ADDRESS INCREMENT INMIBIT

= BIT04

= BITO2
= BITO?
= BIT00

;PARITY

TEST

SJUNIT SELECT
JUNIT SELECT
JUNIT SELECT

JUNIT SELECT MASK
000007

UNTMSK

= 7

JUNIT SELECT MASK

:*RMCS3 RH70 CONTROL STATUS REGISTER #3
100000

APE
DPEHI
DPELO
WCEHI
WCELO

=
=
=
=
=

= BIT06

DBL

176700
120254

= BIT10

;ADDRESS PARITY ERROR
;DATA PARITY ERROR HIGH WORD
;DATA PARITY ERROR LOW WORD
;WRITE CHECK ERROR HIGH WORD
JWRITE CHECK ERROR LOW WORD

;DOUBLE WORD TRANSFER

: INTERRUPT ENABLE

IPCK3
IPCk2
IPCK1
IPCKO

= BIT03
= BIT02
= BITO1
= BITOO

SBTTL

RH CONTROLLER REGISTER INDEX VALUES

RMCST

00004
000010
000022
000050
000052

BIT15
BIT14
BIT13
BIT12
BIT1]

RMW(
RMBA

RMCS2
RMDB

RMBAE
RMCS3

ABASE

AVECTT

;INVERT
2 INVERT
; INVERT
s INVERT

PARITY
PARITY
PARITY
PARITY

CHECK
CHECK
CHECK
CHECK

= 00

;CONTROL,

= 10
= 22

;CONTROL, STATUS REGISTER #2
;DATA BUFFER

= 02
= 04

= 50
= 52

= 176700

120254

STATUS REGISTER #1

;WORD COUNT REGISTER
;BUS ADDRESS REGISTER

;BUS ADDRESS EXTENSION
;CONTROL, STATUS REGISTER #7

;UNIBUS ADDRESS

SJUNIBUS VECTOR ADDRESS AND PRIORITY

CZRMMBO RMOS/3/72 FCINL
CAT(HER

MACRC v04.00

000000

000174
000176

11:43:28 PAGE

TRAP CAT(CHER

.=0
;*ALL UNUSED LOCATIONS FRGCM & - 776 CONTAIN A "', +2 HALT"
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

:'LOCA710N194C0NTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

DISPREG:.:UORD
SWREG:

.WORD

.SBTTL

000200
2
3 000204

4-APR-B1

.SBTTL

: ;SOFTWARE DISPLAY REGISTER

;;SOFTWARE

SWITCH REGISTER

STARTING ADDRESS(ES)

000137

005422

JMP

Q#START

:2JUMP TO STARTING ADDRESS OF

000137

005412

JMP

Q#START1

: CHANGE RH/RM BUS ADDRESS

.SBTTL

PROGRAM

ACT11 HOOKS

';..-ttt"'..tt“.i'tt""i'tt."'tfii....'ltt"t.'

l'itfil.l".l"!

000046
000052

6
7

000210
000046
041630
000052
000000
000210

001100

sHOOKS REQUIRED BY ACT11
ssz2c=.

;SAVE PC

iEggAv

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

WORD

=$SVPC

.=1100
.SBTTL

::2)SET LOC.52 TO ZERO
*:

RESTORE PC

APT PARAMETER BLOCK

::.Q'l.ii.tt."fi..t*lQ"t't*tltt"tltt'fi.tttttt!t!t't't't.‘!"tt!

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

000024

001100
000024
000200
000044
001100
001100

$X=.
.=24

200

RARRA N AR AN RN RRARRRRR AR R AR R R A AR AR AR AR AR R R RN &R AR

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

;:FOR APT START UP

.=44
:;POINT TO APT INDIRECT ADDRESS PNTR.
$APTHDR ;;POINT TO APT HEADER BLOCK

.=.8X

;;RESET LOCATIiON COUNTER

B Il

b
s

—d
e

d et

—

~NO&RI88

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

8888888

TRAP

TST

000000
001222
000024
000024
000024
000042
001114

$APTHD:
$HIBTS:
$MBADR:
$TSTM:

.WORD
.WORD
_.WORD

O
$MAIL
20.

.WORD

20.

$PASTM:

.WORD

TACAGA

.WORD

SUNITM:
TA

20.

;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
;;ADDRESS OF APT MAILBOX (BITS 0~15)
;:RUN TIM OF LONGEST TEST

;:RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)

;;ADDITIONAL RUN TIME

SETEND-SMATIL/2

(SECS) OF A PASS FOR EA(CH ADDED UN]T

.;LENGTH MAILBOX~ETABLE (WORDS)

CZRMMBO RMOS/3/72 FCTNL TST 1

COMMON TAGS

MACRO v04.00

4-APR-81

K
3
11:43:28 PAGE 6
SEQ 0036

.SBTTL

C(COMMON TAGS

;:tt.t.l"tt.'fi"tt't't"'.'fit.!'fi.'."'...Q.'

l".t"fi"t".t""

;*THIS

TABLE

CONTAINS VARIOUS COMMON STORAGE

N—=OHfNNONON
S

R
Yy

w—d

o L

—d o

—

— e

WWWNINININ)
= — —

g 28888883888

—Y

;*USED IN THE PROGRAM.

001134

001114

$CMTAG:

000000
000
000
000000
000000
000000
000000
000
001
000000

$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
SLPERR:
$ERTTL:
$ITEMB:
$ERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$8DDAT:
$AUTOB:

.=TAGADR
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
gggg
.BYTE

;;AUTOMATIC MODE

SWR:

.WORD

DSWR

; ;ADDRESS OF SWITCH REGISTER

$TKS:
$TKB:
$TPS:
$TPB:
SNULL:

177560
177562
177564
177566
.BYTE

$TMP3:

.WORD

$TMP4:

.WORD

.BYTE
.BYIE
.BYTE
.WORD
_WORD
.WORD
_WORD

$TIMES: 0

000

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

.3&;5

$FILLS:
SFILLC:
$TPFLG:
$TMPO:
$TMP1:
$TMP2:

377

;;START OF COMMON TAGS

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

$INTAG:

DISPLAY::

377

LOCATIONS

$ESCAPE: 0

$BELL:
$QUES:
$CRLF:
SLF

.ASCIZ
.ASCI1
.ASCII
LASCIZ

INDICATOR

;- INTERRUPT MODE INDICATOR

DDISP

;;ADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS

;:TTY KBD BUFFER
:;TTY PRINTER STATUS REG. ADDRESS
;:TTY PRINTER BUFFER REG. ADDRESS
:;CONTAINS NULL CHARACTER FOR FILLS
: ;CONTAINS # OF FILLER CHARACTERS REQUIRED
;s INSERT FILL CHARS. AFTER A "LINE FEED''
;2 'TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)
; sUSER DEF INED
:;USER DEF INED
: ;USER DEF INED
; ;USER DEF INED
..USER DEF INED
;sMAX. NUMBER OF ITERATIONS

0
2
12
0
O
O
O

<207><377><377>
/2/
<15
<12>

;ESCAPE ON ERROR ADDRESS

,.CODE FOR BELL
;;QUESTION MARK
:: CARRIAGE RETURN
::LINE FEED

"".'tt.'Q'..'ttltt"t'l.t.fi‘tii".tl.'ttt"'t‘lt!"ttttt"i"

"SBTTL

APT MAILBOX~E TABLE

::.'Q.tfll't.'!'t.lt"fi"".t..'t.tt..!t'llt'ttt!!..t‘tt'ttlt"tt'

001222
001222
001224
001226

.EVEN

000009
000000
000000

$MAIL :

$MSGTY:
$FATAL:
$TESTN:

.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTN

s sAPT MAILBOX

;;MESSAGE. TYPE CODE
;FATAL ERROR NUMBER
;;TEST NUMBER

CZRMMBO RMOS/3/2 FCTNL

APT

MAILBOX-ETABLE

001230
001232
001234
001236
001240
001262
001242
001243
001244
001246
001250

000000
000000
000000
00C000
000000

TST

MACRO Vv0D4.00

4-APR=81

SEQ 0037

:
$PASS
. WORD
$DEV(T:
WORD
SUNIT:
. WORD
$MSGAD: .WORD
$MSGLG:
WORD
$ETABLE:
$ENV:
SENVM:
$SWREG: .WORD
$USWR:
.WORD
$CPUOP: .WORD

APASS
ADEVCT

AUNIT
AMSGAD

AMSGL
G

AENV

AENVM
ASWREG
AUSWR
ACPUOP

'l..l

001252
001253

$MAMS1:
SMTYPT:

.BYTE
.BYTE

AMAMS1
AMTYP1

- &

$MADR1:

AMADR1

001256

001267
001270
001272
001274
001276

[
————————————————————————

001300
001302
001304
001306
C01310
001312
001314
001316
001320
001322
001324
001326

000000

$DDW6:

$DDW7:
$ETEND:
MEXIT

é 5588

$MAMS?2:
SMTYPZ2:
$MADRZ:
3:
$MAMS
$MTYP3:
$MADR3:
$MAMSS:
$MTYPG:
$MADRYS:
$VECT1:
$VECT2:
$BASE
:
$DEVM:
:
$CDW1
$CDW2:
$DDWO:
$DDW1:
$DDW2:
$DDW3:
$DDW4¢
-WORD
$DDWS:

001257
001260
001262
001263
001264
001266

s sPASS COUNT
s sDEVICE COUNT
22170 UNIT NUMBER
s sMESSAGE ADDRESS
s sMESSAGE LENGTH

;s sAPT ENVIRONMENT

TABLE

s ;ENVIRONMENT BYTE
s sENVIRONMENT MODE BITS

JsAPT SWITCH REGISTER

s JUSER SWITCHES
::CPU TYPE,OPTIONS

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

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

001254

11:43:28 PAGE 6=1

-WORD

AMAMS2

AMTYP2
AMADRZ

AMTYP3
AMADR3
AMTYP4
AMADR4
AVECT1
AVECT?
ADEVM
ACDW1

ACDW2
* ADDWO
ADDW1
ADDWZ2
ADDW3
ADDW4

ADDWS5

ADDW6

ADDW?7

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

::HIGH ADDRESS,M.S. BYTE

:JMEM. TYPE ,BLK#1
MEM.TYPE BYTE
==

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003
;;HIGH ADDRESS RLK#1

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

;;HIGH ADDRESS,M.S. BYTE
s sMEM, TYPE ,BLK#2
s sMEM.LAST ADDRESS.BLK#2
;sHIGH ADDRESS.M.S.BYTE

: :MEM.
TYPE ,BLK#3
s ;MEM.LAST ADDRESS.,BLK#3
;sHIGH ADDRESS,M.S.BYTE
2 :MEM.
TYPE ,BLK#4

s sMEM.LAST ADDRESS .BLK#4
+.: INTERRUPT VECTOR#1,BUS PRIORITY#!
;s INTERRUPT VECTOR#2BUS PRIORITY#?2
; ;BASE ADDRESS OF EQUIPMENT UNDER TEST
;:DEVICE MAP
5 :CONTROLLER DESCRIPTION WORD#1
> ;CONTROLLER DESCRIPTION WORDA?2
2sDEVICE DESCRIPTOR WORD#0
:;DEVICE DESCRIPTOR WORD#1
; ssDEVICE DESCRIPTOR WORD#2
::DEVICE DESCRIPTOR WORDA3
;:DEVICE DESCRIPTOR WORD#4
::DEVICE DESCRIPTOR WORDAS
;:DEVICE DESCRIPTOR WORD#6
;;DEVICE DESCRIPTOR WORD#7

t
\

CZRMMBO RMOS5/3/72 FCTNL TST 1
USER DEF INED TAGS

1326

133
133

Wwh

1330

000000
000000
000
000

MACRO v04.00

4-APR-81

M3
11:43:28 PAGE 7
SEQ 0038

.SBTTL

USER DEF INED TAGS

CHGADR:

.WORD

0
O

;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHI(H
: THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE

LSTRK:

.BYTE
BYTE

O
©C

;LO BYTE = 0
;H1 BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT
;UNDER TEST. RM02/3 = 4., RMOS = 18.

XXDP:

.WORD

sTHE REGISTER

GE TBUF :

001334
001336
001340
001342
001344
001346
001350
001352
001354
001356
001360
001362

RMCST1I:
RMWCI:
RMBAI:
RMDAI:
RMCS2I:
RMDSI:
RMER1I:

001366
001370
001372
001374
001376
001400
001402
001404
001406

;REGISTER INPUT BUFFER

RMASI:
RMLAI:
RMDBI:

RMMR1I:
RMDTI:
RMSNI:
RMOFI:
RMDCI:
RMHRI:
RMMR2I:

RMER2I:

RMEC1I:
RMEC2I:
RMBAEI:

RMCS31:

.WORD
.WORD
.WORP
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

:'XXDP' DEVICE CODE FOR THE RM0S/3/2.

INPUT BUFFER

;STORING DRIVE STATUS
001334

: CHANGE RH/RM BUS ADDRESS = =1, NO (HANGE

IS USED FOR

O
O
O
O
O
O
O

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

O
O
O
O
O
O
O

sMAINTENANCE REGISTER #1
;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER

O
O
O

;ATTENTION SUMMARY REGISTER
:LOOK AHEAD REGISTER
:DATA BUFFER

;OFFSET REGISTER
sDESIRED CYLINDER REGISTER
sHOLDING REGISTER

sMAINTENANCE REGISTER #2
;ERROR REGISTER #2

;CONTROL, STATUS REGISTER #3

(O
O
O

sECC POSITION REGISTER
;ECC PATTERN REGISTER
;BUS ADDRESS EXTENSION REGISTER

;THE REGISTER OUTPUT BUFFER IS USED FOR

.WORD
.WORD
.WORD
.WORD

RMDSO:
RMER10:
RMASO:
RMLAO:
RMDBO:
RMMR10:
RMDTO:

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

FREERIRNSorvo

RMCST0:
RMWCO:
RMBAD:
RMDAD:

»H

:
PUTBUF

BB DD

883888588888

o
o

sASSEMBL
ING DATA GOING TO REGISTER

sREGISTER OUTPUT BUFFER

RMCS20:

.WORD

O
O
O
0

O
O
O
O
O
O
O

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

;CONTROL, STATUS REGISTER #2

:DRIVE STATUS REGISTER
;ERROR REGISTER #1
SATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER
:DATA BUFFER
sMAINTENANCE REGISTER #1
:DRIVE TYPE REGISTER

= 0

2833338838

SERRGERREE

CZRMMBO RMOS/%5/2 FCIML TST 1
USER DEF INED TAGS

MACRO v04.00

4-APR-B1

11:43:28B PAGE 7-1

SEQ 0039
RMSNO:
RMOFO:
RMDCO:

RMHRO:
RMMR20:
RMER2C:

RMECIO:

.WORD
.WORD
.WORD

O
O
O

sHOLDING REGISTER
sMAINTENANCE REGISTER #2
s;ERROR REGISTER #2

O©
O

sECC PATTERN REGISTER
:BUS ADDRESS EXTENSION REGISTER

.WORD

RMCS30: .WORD

RMEC20:
RMBAEO:

.WORD
.WORD

s SERIAL NUMBER REGISTER
sOFFSET REGISTER
sDESIRED CYLINDER REGISTER

sECC POSITION REGISTER

;CONTROL, STATUS REGISTER #3

sEACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN
sTHE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE

;FIRST WORD CONTAINS THE ADDRESS OF

THE DEVICE UNDER TEST

;IN THE TABLE. A ZERD WORD IS A BLANK AND REPRESENTS THE
;END OF THE QUE.
§§MM
14

000000

TSTQUE:

000000

1818 836000

CLKADR:
CLKVCT:

.WORD
.BLKW
.WORD

O
8.
O

s CONTAINS DEVICE POINTER
sTEST QUE FOR DEVICES UNDER TEST
sTABLE TERMINATOR GOES HERE WHEN

.WORD
.WORD

O
O

sUNIBUS ADDRESS OF KW11
;VECTOR ADDRESS OF KW11

JALL 8. DEVICES ARE UNDER TEST.
CLOCK
CLOCK

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

001514

;A NEGATIVE BYTE.

GETINX:

.BLkB

23,

sGET INDEX TABLE

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

001543

;A NEGATIVE BYTE,

PUTINX:

.BLKB

JPUT TAGS HERE

23.

;PUT INDEX TABLE

FREOR POINTER

TABLE

MARD y0L.00

4-APR-B71

-SBTTL

B &
171:43:28 PaGE B

ERROR POINTER TABLE

s*THIS TABLE

(ONTAINS THE

INFORMATION FOR EACHM ERROR THAT CAN OCCUR.

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

IF SITEMS IS
O THE ONLY PERTINENT DATA IS (SERRP(),
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

E
DH
DT
DF

;;POINTS
s ;POINTS
;:POINTS
- ;POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAY

. 001572
WRONG UNIT SELECTED

EMT1
EHWTI
EDT1
EFT1
;ERROR

O0e ~

89§§§S
87358

EMT?2
ENT1

EDT1
EFT1

rro

DEVICE WENT NONEXISTENT

EMT3
ENTI
EDT]
EFT1

—

—. -~
s

s ERRCOR

8838
8888

il
i

-0

DEVICE WENT UNAVAILABLE

+ERROR

CONTROLLER NOT READY

EmMT4
EHTT
EDT1
EFT

73546

+ERROR

0016
C0le

8816
1640

pr——

DRIVE NOT READY AND GO NOT RESET

EMTS

073546

EFT1

EHT]
EDT1

sERROR

UNEXPECTED VALUF FOR "ATA'* STATUS

CIRMMBO AMOS/3/2 FCINL
ERROR POINTER TABLE

001642

07?-56

EDT1

001650

073546

001660

067316
073332
073456
073546

25
Sg

001674
001676
001700

067322

001782

067326

gg
881712 067334
17214

001716
001720

:ERROR 13
EMT13
EHT1

073456
073546

0017,

0017

GO NOT RESET BUT DRIVE IS READY

INCORRECT FUNCTION CODE

PARITY ERROR READING REMOTE REGISTERS
'

EDT1
EFT1

:ERROR 14
001722
0017264

EHT1
EDT1
EFT1

073332

;

DRIVE NOT READY BUT GO IS RESET

EMT12

073332
073456
073546

EHT1
EDT1
EFT1
;ERROR

001704
001706
001710

EMT11

(73332
073456
073546

10
EMT10
EHT1
EDTI-"
EFT?

:ERROR

001672

BUS TIMEOUT TRYING TO READ OR WRITE REGISTER

:ERROR
001662
001664
C01666
001670

7
EMT7
0
0

000000

EFTT

067310
GCOCO0
000000

&
C
77:43:7B PAGE B-!

EHT1

:ERROR
001652
001654
001656

4-4PR-B71

EMTE

(73332

a
g
!

MAIRD v0&.00

7302

001646

TST 1

067346
073332

TRANSFER ERROR IS INCORRECT

EMT14
EHT1

073456

EDT1

073546

EFT1
;ERROR

INCORRECT WORD COUNT

CZRMMBO RMOS/3/2 FCTINL
ERROR POINTER TABLE

TST 1

MACRO v04.00

067354
073332
073456
073546

4-APR-81

11:43:28 PAGE B-¢

EMT15

EHTI

EDT1

EFT1

;ERROR

067362
073332
073456
073546

INCORRECT BUS ADDRESS

EMT16

EHTI
EDT1
EFT1

43
2%

;ERROR

067372
073332
073456
073546

067402
073332
073456

STATUS

INCORRECT AOE

EMT20
EHT1
EDT1
EFT1

073546

;ERROR
067412
073332
073456

INCORRECT DISK ADDRESS

EMT21
EHTI
EDT1

073546

EFT1

: ERRCR

067422
073332
073456
073546

INCORRECT CYLINDER ADDRESS

EMT22
EHT1
EDT1
EFT1

;ERROR

067432
073332
073456
073546

INCORRECT WLE STATUS

EMT23
EHT]
EDT1
EFT1

;ERROR
067442

INCORRECT LBT

EMT17
EHT1
EDT1
EFT1
s ERROR

002022

EMT24

INCORRECT UPE

STATUS

CZRMMBO RMOS5/3/2 FCTNL
ERROR POINTER TABLE

002026 073332

002026

0020

077456

TST

MACRO vC4.00

4-APR-B1

11:43:28 PAGE 8-3

EWT1

EDT1

073546

EFT1

€1

:ERRCR

002032

002034
002036
002040

067452

067462
073332
073456
073546

;ERROR
002052
002054
002056
002060

067472
073332
073456
073546

;}

067502
073332

002074
002076

002100

067512

073332
073456
073546

;;
002102
002106
002106
002110

79
067532
073332

INCORRECT MDPE STATUS

INCORRECT DCK STATUS

EHT1
EDT1
EFTI

:ERRCR

INCORRECT ECH STATUS

DLT SHOULD NOT BE SET

EMT32
EHTY
EDT1
EFT1

;ERROR
002112
002114

EMT31

067522
073332
073456
073546

EMT26
EWT
EDT1
EFT1

EDT1
EFT1

;ERROR
002072

INCORRECT WCE STATUS

EMT30
EHT1

073456
073546

EMT27
EHT]
ECT]
EFT1

:ERROR
002062
002064
2066
002070

STATUS

ENTT
EDT1
EFT1

;ERROR
002042
002044
002046
002050

INCORRECT WCF

EMT2S

(73332
(073456
(73546

33
EMT 33
EHT?

MXF SHOULD NOT BE SET

CIRMMBO RMOS/3/2 FCINL
ERROR POINTER TABLE

002116
002120

TST

MAIRO v04.00

072456
073546

4-APR-B1

11:43:78 PAGE B-4

EDT1
EFM
JERROR

067542
073332
073456

DTE

SHOULD NOT.8BE SET

EMT34

EHT]

EDT1
EFT1

073546

;ERROR

INCORRECT HCRC STATUS

EMT 35
EHT1

EDT1

EF T

;ERROR

INCORRECT HCE STATUS

EMT 36
EHT1
EDTI
EFTI
:ERROR

INCORRECT FER STATUS

EMT37
EHTI
EDT1
EFT1
; ERROR

- DPE

SHOULD NOT BE SET

(NOT A DATA COMMAND)

EMT40
EHTT

EPTI
EFTI

. ERROR

LOST "MOL'* DURING PACK ACKNOWLEDGE

EMTST
EHT!

EDT]

073546

EFT]
. ERROR

067620

073332
073456

EMT42

EWT

EpT?

UNSAFE ERROR DURING PA(K ACKNOWLEDGE

JRMMBO AMOS/3/2 FTNL

ERROR PUINTER TABLE

002210

VS, UV

(073546

L-APR-ET

11:42:
2R PAGE

B-S

EFM

;£RROR

"OPI'" ERROR DURING PACK ACKNOWLEDGE

EMT43

EHT]

£nT1
EFTT
;ERROR

124

"RMR"" ERROR DURING PACK ACKNOWLEDGE

EMTLL
EHT1
EDT1
EF T

073456

;ERROR

067652

"ILR"" ERROR DURING PACK ACKNOWLEDGE

EMT4S
EHTT
EDT?
EFT1
sERROR

"ILF'* ERROR DURING PACK ACKNOWLEDGE

EMT46
EHTI
EDT1
EFT1
;ERROR

(OMPOSITE ERROR STATUS

INCORRECT

EMT4L7
EHTT

EDTI

EFTI

s ERROR

PARITY ERROR WRITING REMOTE

REGISTERS

EMTSO
EHTT
EDT1
EFT1
JERROR

EMTS?

073456
07354¢

EHT]
EDT1

EF T

INCORRECT IAE STATUS DURING SEEK COMMAND

IRMMBO AMOS5/3/2 FCTNL

ENROR PCINTER TABLE

125
126

TET

WMACRD

V04,00

50316

002306

71:43:.8 PAGE

“

B-¢
\f‘

SERRCR

'88;502

4-4PR-B7

067722
073332
073456
073546

OP1 ERROR DURING SEEK - MEDIUM IS NOT ON LINE

EMT52

EHTI
1328
EFT1

127

;ERROR

067740
073332
073456
073546

EHTI

EDTI
EFTI

067756

;ERROR

067766
073332
073456
073546

ooy

SEEK INCOMPLETE ERROR DURING SEEK COMMAND

"DEVICE

CHECK DURING SEEK COMMAND

EMTS5

EHT1
EDT1]
EFT1
;ERROR

nororoONo

EMT54
EHTI
EDTI
EFT1

073337
073456
073546

8832

OP] ERROR DURING SEEK = MEDIUM IS ON LINE,
ON CYLINDER LAT(CH DIDN'T RESET

EMTS3

* ;ERROR

070000
073332
073456
073546

PIP

IS STILL

SET AFTER SEEK = SKI

IS RESET

EMTS56
EHTI
EDT?
EFT1

s ERROR

070016
073332
073456
073546

ATA DID NOT

SET DURING SEEK COMMAND

EMTS7
EHT1
EDT1
EFT1
sERROR

0
073
073456

60
EMT60

EHTI

EpT?

iv{ ERRCR DURING SEEK (OMMAND - (OST
VOLUME VALID

ASSUME

CIRMMBO AMOS/3/2 FOTaL

FRROR POINTER TABLE

002370

15T

MATRD vO&A.0T

(73546

4-4PR-B1

&
I
17:43:7B PAGE B-7

EFT1

147

148

FREOR

34‘;8

002372 orogu

002374
002%37¢
0026400

'gi

:
02402

54
54
4

073332
07%56
073546

; 29

002412

0242

414
618

:ERROR 64
422

0701

EMT64

4 8

73456

EDTI

424 §7 395

}gg

0701

REPORTED DURING SEEK COMMAND

;

UNUSED

73456
073546

1‘3:

DRIVE DID NOT DETECT '‘IVC'' ERROR DURING SEEK

DRIVE EXECUTED A SEEK WITH ERROR SET

EMT65
EHT]

§?gsis

164

EDTI
EFT1

;ERROR

G4
46

07014
Q7333

EMT66
EHT

&S50

073546

FFT1

002446

MOL IS ZERO, BUT OPI WAS NCT

EFT1

;ERROR

4
440

SET

EHT]

073546

161

STIL

0
0

11%%

002432

EF
N

;ERROR

02430

VALID

EMT62
EHT
EDT1

o7gog4

15§

YOLUME

EHTT
EDT1
EFT1

SERROR 62

;z‘

ERRONEOUS IVC ERROR DURING SEEX (OMMAND -

EMTET

(07%3%2
(73456
073546

151

(073456

UNEXPECTED ERROR SET IN RMER1

EDT]

162

Y,gg

JERROR
Se
S&¢

0??154
Q733%

67
EMTS7
EH

UNEXPECTED ERROR SET IN RMER?

“IRMMBO RMOS/3/2 FCINL TST 1

FRROR POINTER TABLE

MATRD y04.00

o
o~ 2462 0701

;ERROR

g g
;ERROR

002472
002474

38 476

500

ERRONEOUS ""IAE"" ERROR DURING RECAL IBRATE

EM170

073546

174

EHTS
EDT1
EFT1

173
176

&
J
77:43:78B PAGE B-»

(328
EFT1

170
17

0024

4-2PG-B7

070176
077332

"ILF** ERROR DURING RECAL IBRATE

EMT71
EHTT

073456

EDT1
EFT1

073546

179

502 07
i e

025
5

12 070224
gere i

184

522 07024
ib) e
5

186
187

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

EMT73

EDT1

EFT

s ERROR

*IVC’" ERROR DURING RECALIBRATE = ''W'' = 0

EMT74
EHT1
EDT1

73456

073546

7025

EHTT

073456
073546

183

"OPI'" ERROR DURING RECALIBRATE DUE TO 'MoL'' = O

EDT
EFT?

;ERROR

516
002520

EMT172
EHTT

073456
073546

179
180

181

;ERROR

EFTI
. ERROR

SE
S6
540 07§g6

ERRONEOUS '‘IvC’" ERROR DURING RECAL IBRATE = ‘WV'' = 1

EMT75
EHT]
EDT?
EFT1

189

190
19

JERROR

EMT76
EHTI

*'SK1'* ERROR DURING RECAL IBRATE

CZRMMBO RMOS/3/2 FCINL
ERROR POINTER TABLE

002546
002550
192
193
194

TST

MACRO v04.00

073456
073546

070302
073332
073456
073546

070314
073332
073456
073546

070332
073332
073456
073546

204
205
206

—a
-

070372
073332
073456
073546

070410

073332
073456

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

102

"ATA'" DID NOT SET DURING RECAL IBRATE

103

"OM'* DID NOT RESET DURING RECALIBRATE

104

"PIP'" IS STIL

SET AFTER RECALIBRATE

EMT104
EHT1
EDT1
EFT1

;ERROR

002632
002634
002636

101

EMT103
EHT1
EDT1
EFT1
;ERROR

002622
002624
002626
002630

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

EMT102
EHT1
EDT1
EFT1

070360
073332
073456
073546

nN=O

207
208
209

070350
073332
073456
073546
;ERROR

002612
002614
002616
002620

100

EMT101
EHT
EDTI
EFT1

;ERROR

002610

"DVC"" OCCURRED DURING RECALIBRATE

EMT100
EHT1
EDT1
EFT1
;ERROR

002576

EMT77
EHT1
EDT1
EFT1

;ERROR
002562
002564
002566
002570

K
&
11:45:28 PAGE 8-5

EDT1
EFT1
:ERROR

002552
002554
002556
002560

4-APR-B1

105

EMT105
EHT]
EDT1

UNEXPECTED "'ILR'* ERROR DURING RECAL IBRATE

CZRMMBO RMOS/3/2 FCTINL
ERROR POINTER TABLE

D
—

11:43:28 PAGE

8-10

106

UNEXPECTED "RMR'' ERROR DURING RECAL IBRATE

EMT106
EHTI
EDTI]
EFT

;ERROR
002652
002654
002656
002660

4-APR-81

EFT1

070420
073332
073456
073546

co~NO

b
o wud

nononD

MACRO v04.00

:ERROR

002642
002644
002646
002650

219
220
221

073546

noNONy

002640

TST

070430
073332
073456
073546

107

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

EMT107
EHT]
EDTI
EFT1

. ERROR

CANNOT ACCESS MASSBUS (ONTROLLER VIA UNIBUS

;ERROR

NONEXISTENT DEVICE

;ERROR

DEVICE NOT AVAILABLE

070450

073354
073474
073564
222
223
224

070462
073360
073476
073566

070470
073360
073476
073566
;ERROR

113

BUS TIMEQOUT=-NED STATUS FAILURE

070476
000000
000000
000000

;ERROR
070512
073364
073500
073570

———

DEVICE NOT AN RMO0S/3/2

CZRMMBO RMCS/3/2 FCTNL TST 1

ERROR POINTER TABLE

MACRO v04.00

070520

:ERROR

243
244
245

070530
073332
073456
073546

070540

NOT

INITIALIZED BY UNIBUS

116

RMBA NOT

INITIALIZED BY UNIBUS

RMCS2 NOT

INITIALIZED BY UNIBUS

RMERT

INITIALIZED BY UNIBUS

EMT117
EHTI
EDT1
EFT1

073332
073456

073546

:ERROR
002762
002764
002766
002770

RMCST

EMT116
EHT1
EDTI
EFT1
. ERROR

002752
002754
002756
002760

115

EMT115
EHTI
EDT]
EFT1

073332
073456
073546

240
261
242

ey~
11:43:28 PAGE 8-11

SEQ 0051

;ERROR

002742
002744
002746
002750

4-APR-81

070550
073332
073456
073546

120

NOT

EMT120
EHTT

EDT1
EFT1

246

247
248

;ERROR

002772
002774
002776
003000

070560

070570
073332
073456
073546

122

RMMR1 NOT INITIALIZED BY UNIBUS

EMT122
EHT
EDT1
EFT1

:ERROR

073456
073546

INITIALIZED BY UNIBUS

EFT1
;ERROR

073332

RMAS NOT

EMT121
EHT]
EDT1

073332
073456
073546

070600

121

123

EMT123
EHT1
EDT1
EFT1

RMDS NOT

INITIALIZED BY UNIBUS

CZRMMBO RMOS/3/2 FCTINL TST 1
ERROR POINTER TABLE

255

56
57

MACRO v04.00

;ERROR

003022
003024

C70610
073332

4-APR-B1

124

N &
17:43:28 PAGE 8-12

RMEC2 NOT INITIALIZED BY UNIBUS

EMT124
EHTT

673546

EDT1
EFT1

;ERROR

070620

679332

125

RMR2 NOT

INITIALIZED BY UNIBUS

EMT125
EHT1
EDT1
EFT1

073456
073546
;ERROR

126

EMT126
EHT1
EDT1
EFT1
;ERROR

127

EMT127
EHT1
EDT1

RMCST

NOT CLEARED BY CONTROLLER CLEAR

RMBA NOT

CLEARED BY CONTROLLER CLEAR

EFT1

;ERROR

130

RMCS2 NOT CLEARED BY CONTROLLER CLEAR

EMT130
EHTT
EDT1
EFT1

+ERROR

3? 456

7;3?8

131

RMER1 NOT CLEARED BY CONTROLLER CLEA®

EMT131
EHT1
EDT1

73546

EFT1

sERROR

132

EMT132
EHT1
EDT1
EFT1

RMAS NOT CLEARED BY CONTROLLER CLEAR

CIRMMBO AMOS/3/2 FCTML
ERROR POINTER TABLE

7ST 1

MACRD v04.00

;ERROR
112
A3114

07071
07333

124

1 ()

EFT?Y

ExT

07 546

EMT136

? 546

EFT1

332
456

7 3?2

g iy

00 1?8 873566

137

172

073546

003176

RMCST NOT CLEARED BY ERROR CLEAR

EHT]

EDT]
EFT1

RMCS2 NOT CLEARED BY ERROR CLEAR

EMT140

B
EFT1
;ERROR

88 174

RMMR2 NOT CLEARED BY CONTROLLER CLEAR

EMT137

73456
073546

07077

EHTT
EDTI

JERROR 140
003162

297

136

750

§9§

RMEC2 NOT CLEARED BY CONTROLLER CLEAR

EHT
EDT1
EFT1

762

135
EMT135

73332
73456
73546

;ERRUR

156
160

RMDS NOT CLEARED BY (ONTROLLER CLEAR

EDT1
£F T

;ERROR
142

134

EMT134

8
332

” 7;«9

144

RMMRT NOT CLEARED BY CONTROLLER CLEAR

EDT1

546

;ERROR

133
£MT133
EHT?

ERROR

88 122

B S
4-APR-BT 171:43:28 PAGE 8-13

73?95

141

T
RM(ST NOT CLEARED BY DRIVE (LEAR

ERT1

EMT141

(73456

EDT

EFT1
;ERROR

142

RMDS NOT CLEARED BY DRIVE (LEAR
.

CTRMMBO RMOS/3/2 FCTNL
ROR POINTER TABLE

003202
0

TST T

MALRD v04.00

071012
073332

073456

;ERROR

0710%2
073332
073456
073546

143

073546

144

073546

(LEAR

RMAS NOT CLEARED BY DRIVE (CLEAR

RMMR1

NOT CLEARED BY DRIVE CLEAR

RMMRZ NOT CLEARED BY DRIVE CLEAR

EMT146

CEMTI
EDT1
EFT

RMERZ NOT CLEARED BY DRIVE (LEAR

EMT147
EHT
EDT1
EFTI
150

071072

NOT CLEARED BY DRIVE

EMT145
EHT1
EDTT,
EFT1

147

071062
073332
073456

RMERT

EMT144
EHT1
EDT1
EFTT

146

071052
073332
073456
073546

B-14

EHT1
EDT1
EFT1

145

073332
073456

EMT143

;ERROR

071042

11:43:28 PAGE

EMT142
EHTT
EDT1
EFT1

073546

071032
073332
073456
073546

4&-apPR-81

RMEC2 NOT CLEARED BY DRIVE CLEAR

EMT150
EHT1
EDT!

EFT1
151

MEDIUM NOT ON LINE

CIRMMBO RMOS/3/7¢ FCINL

ERRON FOINTER TABLE

TST 1

MACRD v04.00

4-APR-81

11:43:28 PAGE

B8-15

SEQ 0055

071102
073332
073456

EMT151
EHT?
EDT1
EFT

073546

;ERROR

071114
073332

152

DRIVE FAULT

EMT152
EHT1

073456
073546

EDT1

EFT

;. ERROR

071126
073332
073456

153

UNSAFE SHOULD BE SET BECAUSE DVC

IS SET

EMT153

EHT
EDT1
EFT1

C73546

;. ERROR

071144
073332
073456
073546

154

UNSAFE

SHOULD NOT BE SET, AC

IS LOwW

EMT154
EHTI
EDT?
EFT1
sERROR

155

VOLUME VALID NOT SET BY PACK ACK

EMT155
EHT1
EDT?
EFT1

;ERROR

071174
073332
073456
073546

156

OFFSET MODE NOT SET BY OFFSET COMMAND

EMT156
EHT1
EDT1
EFT1

. ERROR

157

OFFSET MODE NOT RESET BY RTC COMMAND

EMT157
EHTI
EDT1

EFT1

;ERROR
071220

160

EMT160

RMOF

NOT RESET BY RIP COMMAND

CJRMMBO RMOS/3/2 FCTNL
ERROR POINTER TABLE

TST

MACRD vi4.00

4-APR-81

11:43:28 PAGE

B-16

EHTI

EDT?
EFT1

;ERRCR

071230
073332
073456
073546

161

RMDA NOT RESET BY RIP COMMAND

EMT 161

EHTT
EDT?
EFT1

;ERROR

162

RMDC NOT RESET BY RIP COMMAND

EMT162
EHTT
EDT1
EFT1

| !

:ERRCR 163

DATA WAS ECC CORRECTED BUT DOES NOT
WRITE BUFFER

COMPARE WITH

EMT336
EHT336
EDT336
EFT336
;ERROR

164

OPI SHOULD NOT BE SET

EMT164
EHT1
EDT]
EFT1

. ERROR

165

EMT 166
EHT1
EDT1
EFT1

Q03452

071306

167

EMT167

NEM SHOULD NOT BE SET

‘

"' J‘}i|,"

i"i‘l'

“,

7'3

#“’

‘:'.

4“‘ l’,, :I,,‘]“"

{

Ule

b
IAE SHOULD NOT BE SET

b
|

L‘ |

)

|
:

".'; | 'n'

’

EFTI

:ERROR

[

g
IVC SHOULD NOT BE SET

,"x

’I
;l‘!

EDT1

166

| ‘:,l ’

EMT 165
EHT]

sERROR

RS
|

T
Yl

.“.‘.‘ i “l‘

I;lil “‘ i)

T
|H‘.“

CIRMMB0 MOS/3/2 FLTNL
ERROR POINTER TABLE

TST T

MACRD J04.00

07333
5¢
605456 07346

003460

4-4APR-B]

11:43:28 PAGE 8-17

’

ERTT

EDT?
EFT1

073566

;ERROR

071314
073332

170

073456
073546

;ERROR

171

;ERROR

172

5332
07135¢
073332

EMT174
EHTI
EDT1
EFTI

7345¢
1738546

JERROR

175

Q7137%

07333

176

,,, ¥

"ATA'* NOT SET BY-OFESET COMMAND

;

'b T

BT
n

y ;l\' {

)]

T
Tl
M fl('
IRY I:l't Yy ‘< (! l:" ':"‘

}'H‘ ..:LY“

ku-, “?flqsl

RMER2 NOT INITIALIZED BY UNIBUS INIT

‘

FR YR
A

lin 110

ijflhhfl" "

J ‘”“(“w“l
U

SELECTED DEVICE I IN WRITE PROTECT

t 5.1'1’”]"!

'“ 'l; ‘] M

CANNOT SET DIAGNOSTIC MODE

’ij'I("i‘

]

! M

L
ji
e

11 {

II.' !

R
o

;;."

]l" '

i !,.'l

;,l,'"

!i.'l;l

Ty
|

)

,l:,:‘

]

| "

'.“ l:‘

’WfiF
i

;

(il

‘:..

;|'

| '." !

(lljy

"l’

EmT176
EHT!

“l-))“ ;

{

(fgq¥| Fougify

RMER2 NOT INITIALIZED BY CONTROLLER CLEAR ,!{".‘ il n'}'[f, i

!‘

‘

I RARESY

H i

'
! 'Hl{),”'"\;’f

o s

T
na

' i

i .,H)'l,'.'.-n g

(ll

AT
\

il i "‘:

TRIRLE

o i'“]P!

EMT17S
EHTT
EDT1
EFT?
JERROR

. I)’j»\.llf

EHT
EDTY
EFT1
174

TRB!

EM1173

s ERROR

I"‘:.!

"ATA"* NOT SET DURING RETURN TO CENTERLINE "‘h |

EWT1
EDT!
EFTY

173

’l” .' ’ 1111"\';

EMT172

; ERROR

L'fl

EMT171
EHTI
EDT1T
EFT1

“

INCORRECT *MOL'* STATUS DURENG DIAGNOSTI( MODE !I©0

EMT170
EHTT
EDT1
EFT1

SEQ

, ’l!

CIRMMBO RMOS/3/72 FCTNL

ERROR POINTER TABLE
003546
003550

TST

MACRC v04.00

073456
073544

4-4APR-B1

11:43:28 PAGE

B-18

EDT1
EFTI
177
OO0

;ERRCR

000000

;ERROR

3562
3564
3566
3570

071406
073332
073456
073546

EMT2C0
EHT1
EDT
EFT1

:ERROR
4

6
600

200

071420

201

INCORRECT “PIP'* STATUS DURING DIAGNOSTIC nofi#'
i
I“'(q(h.
'l

|
INCORRECT 'WRL'' STATUS DURING DIAGNOSTIC MODE - |
ih

EMT201
EHT]
EDTT
EFT1

073332

073456
073546

Voo

;ERROR

071432
073332
073456
073546

202

INCORRECT "'SKI'* STATUS DURING DlAGNOdyflq‘MppE
i

EMT202
EHT1
EDT1T
EFT1

jolelele]

-ERROR
71444
73332
73456
73546

203
EMT203
EHT
EDT?
EFT1

,”

(It

INCORRECT "DVC'" STATUS DURING DIAGNOSTIC MODE

]

‘

"VY'' WAS NOT RESET BY MAINTENANCE UNIT READY['
.,

I(H

lg‘ 1

¥ i

;ERROR

3622
6

3626
30

071456

204

EMT204
EHTI
EDT1
EFTi

(73332

073456
073546

14
|

;ERROR

32
34
36

071474
Q73332
07345¢

205
EMT205
EHT1

EDT]

SELECTED DEVICE AS A PERSISTENT *'sk1*!'gRROR
|

(:.

POINTER

003440

4=APR-81

TABLE

073546

EF1

SJERROR

003642
003644
003646
003650

071504
073332
073456
073546

4L10

003652

003654

003656

003660

207

UNEXPECTED LOSS OF

'MOL'’" = MEDIUM IS OFF LINE

UNEXPECTED LOSS OF

VOLUME VALID = ‘‘w*'

EMT207
EHTI
EDT1
EFT1

073546

071526
073332
0732456
073546

~NO
>

PN
o

—
—
b

EDI1
EFT1

;ERROR

003662
003664
003666
003670

*LB("" DID NOT SET DURING DIAGNOSTIC MODE

EMT206

071514
073332
073456

412

413
414

206
EHTT

. ERROR

B8-19
SEQ

L0#

L7
«08

11:43:28 PAGE

210

FRROR

1ST

]

(ZRMMBO RMOS/3/2 FCTNL

EMT210
EHT
EDT1
EFTI
;ERROR

003672
003674
003676
003700

UNEXPECTED MECHANICAL MOTION - 'PIP"* = 1

EMT211
EHTI
EDT1
EFT1
:ERROR

212

UNEXPECTED DEVICE

FAULT = 'DVC''
= 1

EMT212
EHTT
EDTI
EFT1
{

;ERROR

071564
073332
073456
073546
°

EMT213
EHT1
EDT1
EFT1
;ERROR

071574
073344
073466
07355¢

213

214

EMT214
EHT2
EDT2
EFT2

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

DRIVE EXECUTED A RECALIBRATE WITH ERROR SE*!
|

0059

“JRMMB0 RMOS5/3/2 FOTNL

ERROR POINTER TABLE

TIST

MACRC v04.00

4-APR-81

11:43:28 PAGE 8-20
SEQ

L27

:ERROR

071614

;ERROR

071626
073332
073456
073546

003752

003760
437

438

217

003762
003764
003766
003770

INCORRECT "IvC't STATUS

_-_—
.

INCORRECT “'IAE'" STATUS

EMT217

EHTI
EDT
EFT1

:ERROR 220

071646
073332
073456
073546

439
440

4461

EHT1
EDT1
EFTi

071636
073332
073456
073546

436

216

EMT216

;ERROR

003754
003756

DRIVE DID NOT DETECT *'Iv('" ERROR DURING RECAL IBRATE

EMMT215
EHT2
EDT2
EFT?

073344
073466
073556

433
3%
435

215

INCORRECT "WLE'' STATUS

EMT220
EHT1
EDT]
EFT1
;ERROR

071656
073332
073456
073546

221

INCORRECT ‘OPI'* STATUS

EMT221
EHT1
EDT1
EFT1

s ERROR
071666

222

RM DID NOT DETECT RMR ERROR

EMT222
EHTT
EDT1
EFTI

073332
073456
073546

)

RM DiD NOT DETECT

PARITY ERROR ON MA

$SBUS CONTROL BUS
{

Mruoa‘

NNNY

N
NON
NO
N

WIN'N
—

OOO0O

——

sERROR

(06

IRMMBO AMOS/3/2 FLTINL
TABLE

W65
449
450

MACRO v04.00

4-APR-81

224

-3

11:43:¢8 PAGE 8-21

UNUSED

eleolele]

:ERROR

000000
000000

451
652

453

UNUSED

(=lolele]

ERROR POINTER

IsT

000000
454

:ERROR

UNUSED

(elelele)]

000000
000000
000000
000C00

226

UNUSED

QOO0

;ERROR

UNUSED

[=lolele]

:ERROR

UNUSED

QOOoO

;ERROR

SOO0O

456

UNUSED

4-APR=-81

UNUSED

OOO0O

000000
000000
000000
000000

233

;ERROR
000000
000000
000000
000000

UNUSED

475

UNUSED

[elelela]

000000
000000
000000
000000

;ERROR

:ERROR

UNUSED

lelelelo]

000000
000000
000000
000000

236

;ERROR

UNUSED

. ERROR

UNUSED

;ERROR

OO0

000000
000000
000000
000000

(olelele)

000000
000000
000000
000000

237

UNUSED

QOOO

477

11:43:28 PAGE 8-22
SEQ 006~

;ERROR

472
473

474

MACRO v04.00

(elelele]

470
471

TST 1

CZRMMBO RMOS5/3/2 FCINL
ERROR POINTER TABLE

;ERROR

242

UNSCED

492

TST

MACRO v04.00

4=APR=-81

11:43:28 PAGE 8-23

SEQ 0067

000000
000000
-

493
696
455

UNUSED

:ERROR

ool

uhnAJ

004212
004214
004216
004220

TRAEE

;ERROR

004222
004224
C04226
004230

000000
000000

000000

499

502
503
504

;ERROR
004232
004234
004236
004240

000000
000000
000000
000000

liby

Jive
frl

UNUSED

Cud

’X':.l'}ri'

j?”dfl it

[

b7
0

'f%fm
EL

- i

{.4

;ERROR
004242
004244
004246

004250

071752
073332
073456
073546

505
507

500
501

Jei

UNUSED

elelele]

496
497
458

(elole
e

CZRMMBO RMOS5/3/2 FCTINL
ERRCR POINTER TABLE

246

“ATA’* NOT RESET BY GO mfi&,'ifm'“ =0

EMT246
EHT1
EDT1
EETT
;ERROR

071762
073332
073456
073546

247

"ATA'* NOT RESET BY WRITING RMAS
[

EMT247
EHT1
EDT1
EFT1
;ERROR

071774
073332
073456
073546

250

251

I} !

/ JJ.|

,',!-xl\cl

I“

;

.“Ii

"ATA"" WAS RESET BY GO WHEN "Erfi" =1

EMT250
EHT]
EDT1
EFT1

:ERROR

1" }\.“

! .Mi‘:{
LI,

' I

PROGRAM INTERRUPT WAS NOT GENERATED
[

‘

s
{

CZRMMBO RMOS/3/2 FCINL

ERROR POINTER TABLE

004272
004¢.
4
006276
004300

TST

MACRO v04.00

072010
073344
073466
073556

EMT251
EHTO
EDT2
EFT2

:ERROR
004302
004304
004306

004310

072016
073344
073466

;ERROR
004312

072024

072042

072052
073332
073456
073546

526

;ERROR

EDT223

529
072072

073332
073456
(73546

072104

OFFSET MODE WAS NOT RESET BY WRITING RMDC
Wi

INCORRECT *'ILF'* STATUS

JERROR 257

INCORRECT '‘ATA'' STATUS

, "IV

Sl g

INCORRECT “'ILR'* STATUS

|| GIER

ru"'

Lot
e
B RN
Loy il

.
U

}

‘

“
| COMMAND
. “'IVC'* WAS NOT DETECTED dunrNG
SEARGH

EMT260

iy
!

[

ATl
i

INVALID 1AE STATUS! q
(Rssqdqh COMMAND
,

’

4;w1!,n,fi

g K

EMT257

EHT]
EDT1
EFT1

EFT223

:ERROR 260
004362

EHT256

530

532
ggz

256

073502
073572

004352

255

EMT256

004350

004354
004356
004360

254

072062

073402

004346

253

.“a

EMT255
EHTT
EDT1
EFT1

gsg
004344

EFT2

EHTT
EDT1
EFT1
;ERROR

004362

Tk
i

EMT254

073332
073456
073546

523
gsg

004332
004334
004336
004340

EMT252 =
EHT2
EDT2

EMT1
EDT1
EFT1
;ERROR

004322

PROGRAM INTERRUPT SHOULD NOT HAVE' BEEN GENERATED

EMT253

073332
073456
073546

520
gs;

004324
004326
004330

m
I

252

073556

g;g
004314
004316
C04320

11:43:28 PAGE 8=24

SEQ 0064

212

517

4-APR=-81

CZRMMEO RMOS/3/2 FCTINL

ERROR POINTER TABLE

TST 1

MACRO v04.00

4-APR-81

11:43:28 PAGE 8-25

SEQ 006%

073332
073456
073546

EHTI

EDT1
EFT1
;ERROR

072116
073332
073456
073546

261

EMT261
EHTT
EDT
EFT1

DRIVE EXECUTED SEARCH WITH ERROR SET
{
|

‘

~ =ERROR

262

{

*1BC"* ERROR NOT su‘;'ounmé.bucnosnc MODE
j"

EMT262
EHTI
EDT1

'
|

EFT1

;ERRCR

263

“SKI'* ERROR DURING SEARCH| COMMAND

EMT263
EHT1
EDT1
EFT1
; ERROR

264

]

)

|
i

265
EMT265
EHT]
EDT1
EFT1

+ERRGR

266

DEVICE FAULT (DVC)H?WRING SEAR(CH

EMT266

EHT]
EDT1

073456
073546

£EFNM

553
sERROR

£5§

854

072230

267

EMT267

tfi

EDT1

;ERROR

"*IVC'* ERROR ouamc SEARCH - LOST 'VOLUME Muo

EMT264
EHT1

EFT1

] |

SKI SHOULD HAVE BEEN SET BECAUSE
ADDRESS IS 700 LARGE

(YLINDER

CIRMMBO "M0S/%/2 sCT8L 75T 1

ERROR POINTER TABLE

006454
006456
0064660

MAIRO v04.00

&-APR-B0

17:43:28 PAGE B-2¢

SEQ 006¢

0?3232

EHTT

073«5¢
073546

EDT1
EF 11

;ERROR

270

OP1 ERROR DURING SEAR(H BECAUSE MOL = O

EMT270
EHTT
EDT1
EFT1
;ERROR

271

OP] ERROR DURING SEARCH BECAUSE ON CYLINDER
DIDN'T DROP

EMT271
EHTI
EDTY
EFT1
; ERROR

272

LOST MOL DURING SEARCH., OPI IS NOT SET

EMT272
EHTI
EDT1
EFT1

;ERROR

072334

PIP STIL SET AFTER SEARCH

274

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

EMT274
EHTI
EDT1
EFT1

073332
073456
073546
- ERROR

2228
a8

273

EMT273
EHTT
EDT?
EFT1

073546

S
JFAF

WAVYLY

NN
wro—O

Sorm

;ERRCR

72352

075333

275

MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA
COMMAND STARTED

EMT275
EHT1
EDT1
EFT1

073456
073546
sERROR

276

"OPI"" ERROR DURING DATA TRANSTER BECAUSE “MOL’’ WAS

(ZRMMBO RMOS/3/2 FOTNL

ERROR POINTER TABLE

TST

MACRO v04.00

4-APR-B1

11:43:28 PAGE B-27

ZERO

EMT276
EHT

EDT1
£

REE

;:ERROR

072400
073332
073456

277

"OPI'" ERROR DURING DATA TRANSFER BECAUSE 1) ON
CY_LINDER DIDN'T DROP OR 2) SEAR(CH TIMED OUT OR
3) RUN TIMED OUT

EMT277
EHT1
zDT1
EFTI

073546

:ERROR

300

“IVC'" ERROR DURING DATA TRANSFER BECAUSE VOLUME

WAS NOT VALID

’

EMT300
EHT1
EDT1
EFT1

;ERROR

301

ERRONEQUS *'IVC'' ERROR DURING DATA TRANSFER = VOLUME
IS VALID

EMT301
EHT1

EDT1
EFT1

;ERROR

302

“ILR" fiRROR DURING DATA TRANSFER

EMT302

EHTT
EDT1
EFT1
;ERROR

073332
073456
073546

EHTI
EDT1
EFT1
. ERROR

——

“'ILF'" ERROR DURING DATA TRANSFER

EMT303

072472

072504
073332
073456

303

304
EMT 304
EHT1
EDT1

"RMR"" ERROR DURING DATA TRANSFER

JRMMBO RMOS/3/72 FCTINL

ERROR POINTER

TABLE

004630
£04
605
406

004632
004634
004636
004640

e T

WS Ww

—

;ERROR

1072560

oONO

073546

oV
- OO

NOO

~ERER
s

NNNN
N\ il o
OO

DRIVE

DID NOT DETECT SKI

ERROR DUE

TO CYLINDER

DEVICE FAULT DURING DATA TRANSFER

LOSS OF BIT TLOCK DURING DATA TRANSFER

EMT311
EHT1
EDT1
EFT1
. ERROR

312

LOSS OF

SYSTEM CLOCK DURING DATA TRANSFER

EMT312

EHTT.
EDT1
EFT1

073546

;ERROR

338

310

.:ERRO4 311

073335
073456
073546

072616
Q73332
073456
073546

307

EMT310
EHT1
EDT1
EFT1

073332
073456

“'SK1'* ERROR DURING DATA TRANSFER

#EMT307
EHTY
EDT1
EFT1

072604
073332
073456

622

306

EDT1
EFTI

072540
073332
073456
073546

072572

INCORRECT *'IAE'"ISTATUS DURING DATA TRANSFER

EMT306

:ERRCR

004672

305

(EHT1

073546

004662
004664
004666
- 004670

8-28

EMT305
EHT1
EDT1
EFT1

072530
(73332
073456

004652
004624
004656
004660

11:43:28 PAGF

EFT1

072516
073332 |
073456
073546,-

804642
04644
004646
004650

4-APR-B1

SEQ 0065

ERROR

MACRO v04.00

073546

607

;ERROR

608
609

TST

313

EMT313

EHT]
EDT1
EFT1

UNSAFE ERROR DURING DATA TRANSFER

(DVC

= Q)

CIRMMBO RMOS/3/2 FrTN
ERROR POINTER TABLE

625

626

€27

1ST

MACRO v04.00

:ERRCR

004722
004724
004726
004730

072¢36
073332
073456
073546

i1:43:28 PAGE

DRIVE

8-29

TIMING ERROR DURING DATA TRANSFER

EHT1
EDT?
EFT1

072630
0733

315

WRITE LOCK ERROR|

EMT315
EHT1
EDT
EFT1

07 546
;ERROR

072662
73332

316

ERRONEQUS WRITE LOCK ERROR

EMT316
EHTI
EDT?
EFT1

073456

11073546

;ERROR

072674
073332
-

314

EMT314

:ERRCR

4-APR-81

317

HEADER CRC ERROR DURING DATA TRANSFER
«

EMT317

EHT1

07345

EDT1
EFT1

07354

. ERROR

072704

320

, FORMAT ERROR DURING DATA TRANSFER

EMT324

073332

07325

EHT1
EDT1
EFT1

ferFp

{ !

o
!

072714
073332

B8arde| Orsase
005000

Q73546
.

i\ 6L2! ! IR
B

00500? 072724

;ERROR

321

EMT 321
EHT1
EDTT,
EFTI

322
JEHTT

'i005010 ?73566

lE'H1

' |9I005006

073456

HEADER ERRORS

EMT322

00500‘ 073332

i |

HEADER COMPARE EKROR DURING DATA TRANSFER

'EpT1

—~

SHOULD NOT BE

SET

-1

gzgr
|

]

itk

‘ 'FJf
649
M i‘ u,.zgo
$d

7352

i
A

07 5 6

072754

soaé" o72768

'” 223

| 'l
|

asa

‘

\
|

2054
056

X ¥ ?060

'.‘I\'x

oe r

q'flp%

;

005070

664 |

326 ¥

o0t
)
|
|

{

Teosorza | 673026
TR oosors 073456/

005074,' 073332.

", 005100

1o
§

{

EHTY ,
1326

ERROR |[327

EMT327

CHECK ERROR DURING DATA

i st e aki i COMMMAND

OFFSET MODE NOT RESET BY WRITE COMMAND

;

EHT1
ot ETY

DATA

E?H
1

FLEFTY

.fkrorR

330 i

i
;

DATA PARITY ERROR DURING WRITE COMMAND

EHT1,
EDT

‘

;ERROR

UNCORRECTABLE

[

'
|

325

!
i

H .[ USRI ¥ T e

'erroR 0L

. '

P
I : 4

;

((OXRECTABLE DATA CHECK ERROR DURING DATA TRANSFER

EMT 325

0’5546: :

ELS

073546

;ERROR

R
;

;,"," [y{|BosOes
073332
|
il
0 506
073456 ',

EMT324

'obbos2 073016
|

L
.

332
56

EHTT

EFT1

Bad

| (

EMT323

" |

.|0é555? 073004

DATA CHECK ERROR DURING DATA TRANSFER

AL,-

)

Sum
b

"'?agol 073§:.‘6
I

’

323

‘ (igé 4 | 9 ’} ; ‘ I ; (! ’ '|

)

o e R

)
l38‘%4 073332'

‘x‘

| yEopiomp
h ' ') oo !Lo

SR 658 '

"jh\

)

005030

{

;ERROR

J' g

b g '{“ o it

_—

;,”,‘.

065 22 07274

‘

PR
I,“‘
§|

oosp p

| 00501'4 073332

"i “

MACRO v04.00 4-APR-81 11:43:28 PAGE 8930

[
00501é 072732,

,‘:;,l,,

—

" r‘;,;égmj-m%!ga{grm 1ST 1
j

EFT

331

WRITE CLOCK FALURE DURING WRITE COMMAND

E'Jn‘“
epr1

EFT1

TRANSFER

t
it

QOR*OS/§/2 F(YNL

rnaca

4
i
1%b -

INTER YNBKE

' HAcaq Vv04.00
;ERROR

4=APR=81
332

’

11:43:28 PAGE 8-31

DATA LATE ERROR DURING DATA

TRANSFER

EMT332

EHTT
EDTI
EFT1

673'

505122 073070
05124

§1ze 078456

676
£78
"

005132

005134

11005140

;ERROR

073106

073546 |

'005142

073126

005146

073512

005144

005150

;ERROR

073602

- 005152 ' 1073136
005154

073426

005160

073612

005156

SKk]

335

= 0

LCST VOLUME VALID DURING DATA TRANSFER - IV(

336

DATA READ DOES NOT COMPARE WITH DATA WRITTEN

337

WRITE CHECK ERROR NOT DETECTED

EMT 337
EHT337
EDT337
EFT337

073522

;ERROR

005162
005164
005166
005170

LOST MOL DURING DATA TRANSFER = OP] = 0

TRANSFER =

EMT336
EHT336
EDT336
EFT336

073414

. ERROR
'

334

SET AFTER DATA

EMT 335
EHT1
EDTI
EFT?

073532

679

680,
681,

PIP STIL

EMT 334
EHT1
EDT]
EFT1

078332

0
005130
' 073546

677

333

073146
(73414
073512
073602

340

WRITE

THECK ERROR AT UNEXPECTED ADDRESS

EMT340
EHT336
EDT 336
EFT336
;ERROR

341
-

INCORRECT DATA DURING WRITE (HECK ERRCR

= 0

TIRMMBO RMOS/3/2 FCINL

ERRCR POINTER TABLE

690

691
692
693

005172
005174
005176
005200

00520¢
005204
005206
005210

;ERROR

005212
005214
C05216
005220

073200
073332
073456
07354€

B
005232

005234
005236
005240
703
704
705

073212
073440
073532
073622

343

"FER'' NOT DETECTED DURING DATA TRANSFER

344

"HCE'' NOT DETECTED DURING DATA TRANSFER

EMT 344

EHT344
EDT344
EFT344
:ERROR

073224
073332
073456
073546

345

‘BSE’* NOT DETECTED DURING DATA TRANSFER

EMT345
EHTI
EDTI
EFTT
;ERROR

005242
005244
005246
005250

“Iv("' ERROR NOT DETECTED DURING DATA TRANSFER

EMT343
EHT
EDT!
EFT1
;ERROR

005222
005224
005226
005230

H
6
11:43:28 PAGE 8-7%2

073166
073332
073456
073546

697

700
701

4=~APR-81

JERROR

£94

698
699

MACRO v04.00

073160
073414
073512
073602

695

€96

073234

346

HEADER ERROR WAS DETECTED W/ HCI

SET

EMT 346

073332

EHTT
EDT1
EFT1

073456

073546

706

707

708

709

710
vy
-

’

;ERROR
005252
005254
005256
005260

073250
073332
073456
073546

347

DATA TRANSFER NOT ABORTED W/ COMP ERROR SET

EMT347

EHT1
EDT1
EFT1
; ERROR

350

LOST VOLUME VALID DURING SEARCH = "‘Iv(*' = ©
(

CZRMMBO RMOS5/3/72 FCTINL

FRROR POINTER

d NN

|
|
;

005272
005274
005276

005302
005304
005306
€05310

721
722

725

005372
005314
005316
005320

005322
005324
005326
005330

Gt
75

——

MACRO v04.00 4-APR=-81 11:43:¢8 PAG% 8933

JERROR

351

"ATA"" DID NOT SET DURING SEARCH

;ERROR

352

PROGRAM TIMEQUT WHILE TESTING RMLA

;ERROR

353

LOOK AHEAD TEST FAILS

SERROR

354

BSE SHOULD NOT BE SET

073310
000000
000000
000000

718
719

720

073300
073332
073456
073546

005300

TST

073262
073332
073456
073546

PVl
aw

005262
005264
005266
005270

TABLE

073314
073452
073544
073632

073324
073332
073456
073546
;PUT ERROR TABLE HERE

’

(ZRMMBO RMOS/3/2 FCTINL
ERROR TABLE USAGE
1

TST

MA(RO v04.00

4=APR=81

.SBTTL

:THE

ERROR

JNUMBER,

11:43:28 PAGF

TABLE USAGE

TABLE

1.E.,

ABOVE

CONSISTS OF

FOUR WORD ENTRIES FOR EACH ERROR

EHT

= ERROR HEADER

sTHE EMT ENTRY
;FOR

EFT - ERROR FORMAT
THE

TABLE ADDRESS
EACH ERROR MESSAGE

ERROR MESSAGE

;OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE

:TYPED BY

17
18

sSIMILARLY,
:OF HEADER,

THE

ERROR

TYPE

SUBROUTINE.

sNO MESSAGE TO BE TYPED FOR THE ERROR.

THE

TABLE

LISTS

STRINGS

THE ADDRESS

TO BE FORMATTED AND

EMT ENTRY

IS ZERO,

THERE

THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES
DATA AND FORMAT INFORMATION FOR A GIVEN ERROR.
EACH ENTRY
;IN THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF

19
20
21

;DATA, HUWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND
JHEADER. 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

53
4

sMUST ALSO HAVE A FORMAT.
:

27
FS

ADDRESS

IS ,THE ADDRESS OF' THE TABLE OF

PARTICULAR ERROR.

TABLE

EDT - ERROR DATA TABLE ADDRESS

18
12

[

EMT - ERROR MESSAGE

;s IN SUMMARY,

,
,

2
i

EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE,

EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS
OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT.

CZRMMBO RMOS5/3/2 FCTNL
ERROR TABLE USAGE

1ST

MACRO v04.00

4-APR=-81

11:43:28 PAGE

seb 0075

sTHIS ROUTINE HANDLES UNEXPECTED

011600

BADTMO: MOV

(SP) ,RO

sSAVE PC WHERE

64%

;:GET OVER THE ASCIZ

010046

MOV

RO,=(SP)

;SETUP FOR TYPING OUT PC

000240

NOP

005740
022626
104401

000417

005346

]

éigSS:

NNNN—J.—A-—C—J_‘—._A_;_._.

W= OV NOVNSWN=C

1046402

005422
005426
005430
005434
005436

TST
CMP
TYPE
.ASCIZ

TYPOC

012737
000402

177777

005037
000240
005227
001375
000005

001326

TIME OUT OCCURED

<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

;PUT

"HALT(0)'

INSTRUCTION HERE

;70 STOP ON UNEXPECTED TIMEOUT.

START1:

MOV

#-1,CHGADR

; CHANGE RH/RM BUS ADDRESS

(LR

CHGADR

JNOU CHANGE

STARTZ2: NOP
INC

BNE
RESET

START?

YOU WISH

IN ADDRESS

;TTY LOOP, WAIT FOR INCREMENT

INITIALIZE

;OF WORD
JRESET THE WORLD

THE COMMON TAGS

;:CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#SCMTAG,R6
;sFIRST LOCATION TO BE CLEARED

005444
005446
005452
005454

012706
005026
022706
001374,
012706

001100

005460
005466
005474
005502
005510
005516
005524
005532
05540
005546
005552
005556
005564
005572

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

061650
000340
062540
000340
065574
000340
065702
000340
041466
001206
001210
000001
005564
005572

001131
001122
001124

005600
005604
005612
005620
005626

000004
005640
177570
177570

000004
001154
001156

005634

013746
012737
012737
012737
022777
001012

005636

000403

001114

CLR

(R6) +

;:CLEAR MEMORY LOCATION

BNE
MOV

-6
#STACK ,SP

2:LO00P BACK IF NO
;:SETUP THE STACK POINTER

MOV
MOV
MOV
MoV

MOV

#$SCOPE ,a#I10TVEC ;;IOT VECTOR FOR SCOPE ROUTINE
#340,a410TVEC+2 ;;LEVEL 7
#SERROR ,d#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
#3640 ,QNEMTVEC+2 ;;LEVEL 7
#STRAP,#TRAPVEC ;:TRAP VECTOR FOR TRAP CALLS
#340,a#TRAPVEC+2;
LEVEL 7
#SPWRDN
. @#PWRVEC ;;POWER FAILURE VECTOR
#340,a#PWRVEC+2 ;;LEVEL 7
SENDCT,$EOPCT
;;SETUP END-OF-PROGRAM COUNTER

CLR

$ESCAPE

;s CLEAR THE ESCAPE ON ERROR ADDRESS

#.,SLPERR

:;SETUP THE ERROR LOOP ADDRESS

CMP

001154

177777

THE

;ADJUST PC =2
JRESTORE STACK POINTER
;:TYPE ASCIZ STRING

START OF PROGRAM

START:

000000

=(RO) (SP)+,(SP)+
,65%

.SBTTL

.SBITL

005440

TIMEOUTS

000020
000022
000030
000032
000034
000036
000024
000026
041460

173320

#SWR ,R6

;o INITIALIZE A FEW VECTORS

MOV
MOV
MOV

MOV

CLR

MOvVB
MOov

MOV

S$TIMES

#1,SERMAX
#.,8LPADR

s ;DONE?

;s INITIALIZE NUMBER OF ITERATIONS

;cALLOW ONE ERROR PER TEST
;s INITIALIZE THE LOOP ADDRESS FOR SCOPE

;:S1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
; ;EQUAL TO A '*=1'', SETUP FOR A SOF TWARE SWITCH REGISTER.
MoV

A#ERRVEC,~(SP)

MOV

#DDISP,DISPLAY

MOV
MOV
CMP
BNE

;;SAVE ERROR VECTOR

#64$ ,Q#ERRVEC
#DSWR, SWR

;;SET UP ERROR VECTOR
s:SETUP FOR A HARDWARE SWICH REGISTER

#-1,aSWR
66%

2:TRY TO REFERENCE HARDWARE SWR
; ;BRANCH IF NO TIMEOUT TRAP OCCURRED
*;AND
THE HARDWARE SWR IS NOT = =1
. sBRANCH IF NO TIMEOUT

65%

;;AND A HARDWARE DISPLAY REGISTER

CZRMMBO RMOS/3/2 FCTNL

INITIALIZE

THE

005640
005644
005646
005654
005662

TST 1

COMMON TAGS

012716
000002
012737
012737
012637

MACRO v04.00

005646
000176
000174
000004

64%:

001154
001156

001239
000200

001243

001244

001154

25 005710
¢6 005716

005332
000300

000004
000006

005730
005732
005740
005742
005746

006024
006030

005227

001035
022737
001431
104401
000426

123727
001406

11006050
006052

001005
104407

006054

006056
29

006064

2
33
3,
35
36

005737
001012

006032
006040

006042

11
006064
006070
006076
006100

37 006106
38 006114
39 006116

40 006122
41 006126
42 006130

006134

006162

023727

177777
041630

67%:

122737
103002
105037

005737
001425
104401

000412

001

113716
104403

MOV

CLR
BI1TR
BEQ
MOV

TO SOF TWARE

SWR

(SP)+,@”ERRVEC

;;RESTORE ERROR VECTOR

$PASS

;s CLEAR PASS COUNT

67%

;:YES ,USE NON-APT SWITCH

W#APTSIZE ,$ENVM

;:TEST USER SIZE UNDER APT

#SSWREG, SWR

;NO,USE APT SWITCH REGISTER

ABADTMO,ERRVEC

TYF:

70%:
71%:

;SETUP FOR UNEXPECTED TIMEOUT

#PR6,ERRVEC+2
PROGRAM NAME

;LEVEL 6
\

THF NAME OF THE PROGRAM IF FIRST PASS
#=1
I
;:FIRST TIME?

BNt
CMP
BEQ

68%
#SENDAD ,a#42
68%

;;BRANCH IF NO
J:ACT=112
;:BRANCH IF YES

BR
<ASCIZ

68%

;:GET OVER THE ASCIZ

,69%

;:TYPE ASCIZ STRING

<CRLF>aCZRMMBO - RM05/3/2 FUNCTIONAL

TEST, PT 1a<CRLF>

GET VALUE FOR SOFTWARE SWITCH REGISTER
TST

BNE

000001

46 006172

SBTTL

001150

;:SET UP FOR TRAP RETURN

#SWREG, SWR
;;POINT
#DISPREG,DISPLAY

TYPE

112737 ' 000001

000403

005046

4% 006164
45 006170

001242
g

RTI
MOV
MOV

MOV

::69%:
68%:
000042
:

#65%, (SP)

MOV

005750

000176

005037
122737
001160
013737

10-1

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

000042

001154

43 006162

66%:

::TYPE

| i006024
;
P

65%:

TL
.SBTTL

005724

11:43:28 PAGE

SEQ 0076

005666 005037
005672
132737
005700 001403
005702 012737
- 005710

012737
012737

4=-APR-81

CMPB
BEQ
cMP
BNE
GTSWR
BR
MovB

ans2
70%

;;ARE WE RUNNING UNDER XXDP/ACT?
;;BRANCH IF YES

70%

;:BRANCH IF YES

SENV, #1

;;ARE WE RUNNING UNDER APT?

SWR,#SWREG
71%
718

2 :SOFTWARE SWITCH REG SELECTED?
s :BRANCH IF NO
;:GET SOFT-SWR SETTINGS

#1,%AUTOB

;;SET AUTO-MODE

INDICATOR

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

001330
000016

000040

000007

001330

000042

000041

001330
001330
1%:

006136

TYPE

<+ 79%:

72%:
001330

CLR
CMPB
BNE
MoV
(MP8
BHKIS
CLRB
TST
BEQ

XXDP
#16,a441

;CLEAR "XXDP' LOAD DEVICE STORAGE
;LOADED FROM AN RM05/3/2 ?

7;.xxop

:#gslr A VALID NUMBER ?

XXDP.

:NO, DEFAULT TO DRIVE 0

3$
a#40,XxDP

Y %
2%
,73%
72%

BR
.ASCIZ

<CRLF>/NOT

CLR
MOvB

-(SP)
XXDP, (SP)

.BYTE

TYPOS

;BRANCH IF NOT
;GET DEVICE INDICATOR AND NUMBER

;CHAIN MODE OR ACT11 AUTO ACCEPT ?
;BR [F NEITHER

;:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

TESTING DRIVE

;CLEAR WORD ON STACK
JGET DRIVE ADDRESS
;TYPE THE ADDRESS
JONLY 1 CHARACTER

CZRMMBO RMOS5/3/2 FCTNL

TST 1

MACRO v04.00

! GET VALUL FOR SOF TWARE SWITCH REGISTER
47 006173

000

48 0061764

gg 006200

104401

000517

(01217

§1 006202

005227

177777

52 006206
53 006210
006214
54
55
56
57

001114
104407
000410

006236

006236
006240
006244
006246

005046
113716
104403
001

59 006250
006254

104401
000431

58 006247
006340,

60 CO6340'
006344
006440

65 006440

104401
000435

005737

001561
012737

2%:

006216
;:75%:

.
;

001330

132737
001146

74%:

006256
%é;7s:

006346
§§78s:

000042

000377

001300

:GET NUMBER OF DRIVES

INC

#-1

;FIRST TIME

BNE
TYPE
BR

THRU HERE

_ASCIZ

<CRLF>/TO TEST DRIVE /

CLR
MOVB
TYPOS
BYTE
BYTE
TYPE
BR

-(SP)
XXDP, (SP)

;CLEAR WORD ON STACK
;GET DRIVE ADDRESS
:TYPE DRIVE ADDRESS
:ONLY 1 CHARACTER
:SUPRESS LEADING ZEROS
::TYPE ASCIZ STRING
$:GET OVER THE ASCIZ

778
76%

.ASCIZ

/.,

TYPE
BR

,78%
3%

.ASCIZ

HALT

PROGRAM,

REMOVE

RRDP PACK AND REPLACE

IT/<CRLF>

;2TYPE ASCIZ STRING
23GET OVER THE ASCIZ

/WITH A WORK PACK,

’

CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF>

;CHECK FOR AUTO MODE OR STANDLONE MODE

BEQ
MOV

Y%,

STANDAL ONE
#377 ,$DEVM

;RUNNING IN AUTO MODE ?

:BR IF NO
*SET DEVICE MAP FOR ALL DRIVES

;PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED

000200

001243

XSI1Z:

BITB
BNE

#BIT7.$ENVM
128

;SIZING ALLOWED ?
:NO

CLR
MOV

R1
$BASE ,RO

;START FROM DRIVE 0
;LOAD THE BASE ADDRESS

BITB
BEQ
TYPE
MOV

ATNTBL (R1) ,$DEVM
;IS DEVICE PRESENT IN MAP ?
11%
:BR IF NO
_
L$CRLF
“CR-LF
R1,-(SP)
;:SAVE R1 FOR TYPEOUT

066720

78 006476
79 006504
80 006506
81 006512

067236

006514
006516
006517
g% 006520

136137
001531
104401
010146
104403
002
000
104401

067130

TYPOS
BYIE
.BYTE
TYPE

'84 006524

012760

000040 '000010

MoV

001430

;CR=LF

*NO
::TYPE ASCIZ STRING
i:GET OVER THE ASCIZ

104401

9 006600

;SUPRESS LEADING ZEROS

$CRLF

3
. 75%
748

005001
013700

85 006532 010160
86 006536 005760
87 006542 032760
88 006550' 001051
8? 006552 032760
90 006560 001450
9 882562 016002
92
006566 012737
93 006574 022702

SEQ 0077

74006464
75 006466

;9 006472

M 6
11:43:28 PAGE 10-2

BYTE

TYPE

66 006444
gg 006446

70 006454
71 006454
;g 006462

|
|

000

4-APR-81

001276

TYPE

001300

001217

000010
000012
010000

i
000010

004000

000000

000026
066736
020025

006766

1%:

MOV
TST
BIT
BNE
BIT
BEQ
MOV
MOV
cMP
BEQ

,SYSTAT

;TYPE "UNIT STATUS:'

2
0
,BLNKS4

::G0 TYPE--OCTAL ASCII
::TYPE 2 DIGIT(S)
; :SUPPRESS LEADING ZEROS
;TYPE 4 BLANKS

#CLR,RMCS2(RO)

;CLEAR MASS BUS

R1,RMCS2(RO)
RMDS (RO)
#NED ,RMCS2(R0O)
3
#DVA,RMCST1(RO)
4%
RMDT (RO) ,R2
#SRMO2, 108
#20025 .R2
2$

:LOAD THE DRIVE ADDRESS
;ACCESS DRIVE REGISTER
;IS DRIVE PRESENT ?
:BR IF NO
;IS DRIVE AVAILABLE ?
“BR IF NO *SAVE DRIVE TYPE REGISTER IN R2
*ASSUME RMO2 DEVICE
:SINGLE PORT RMO2 ?

*BR IF

YES

CZRMMBO RMOS/3/2 FCTNL IST 1
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

95 006602

022702

024025

066743

020025

066750
020027

024027
066755

. TM 1
4

7
067030

000012

001300

067047
067236

01300

001330

067060
067132

6%:

7%:

TYPE
B8R

BIT
BEQ
BR

TYPE

B8R

TYPE

BI(B
BR
TYPE

BI(B
BR
TST

#24025 .R2

;DUAL PORT RMO2 ?

#$RM03,10%

sASSUME RMO3 DEVICE

:BR IF YES

;BR IF YES

#20024 ,R2

;SINGLE PORT RMO3 ?

#24024 R2

;DUAL PORT RMO3 ?

2%
#$RM0S5.10%

;BR IF YES
;ASSUME RMOS DEVICE

#20027 ,R2

;SINGLE PORT RMOS

#246027 .R2

;DUAL PORT RMOS ?

;BR IF YES

. NOTRM

sDRIVE NOT AN RM0S5/3/2

5%
#MOL ,RMDS (RO)

sCHECK NEXT DRIVE
;IS MEDIUM ON LINE ?

(33

;BR IF NO

. NOTPRS

;DRIVE NOT PRESENT

s CHECK NEXT DRIVE

. NOTAVL

:DRIVE NOT AVAILABLE

;CHECK NEXT DRIVE

JUNTOFF

;DRIVE OFFLINE

XXDP

;LOADED FROM RM05/3/2 ?

ATNTBL (R1) ,$DEVM

.CLEAR DEVICE FROM BIT MAP

ATNT3L (R1) ,$DEVM
sCLEAR DEVICE FROM BIT MAP
9%
;PRINT DRIVE TYPE

8%
XXDP,R1
5%
§%ODEV

;NO
;1S THIS THE DRIVE ?
;BR IF NO
;DRIVE IS LOAD DEVICE

JUNTON

;DRIVE ONLINE

.WORD

JPRINT DRIVE TYPE
sMESSAGE ADDRESS HERE

11%:

INC
(MP
BLE

R1
R1.#7
1%

;INCREMENT THE DRIVE ADDRESS
;ALL DRIVES ARE CHECKED ?
;BRANCH IF NOT

12%:

TYPE

JSCRLF

;CR-LF

BEQ

CMPB
BNE
TYPE

8%:

9%:

10%:

O =1y
wWuo

NN—-

5$:

066776

001217
007466

4%:

001330

000007

828
wWwowm

2%:

3%:

067236

O——a—s

O=0—=O

S2R2 838588
F ol ok o wo
Nl\g28
§OOO

NN
W

S
—=wWwo
N

D00

006766

067013

g3% §5%
o8S
3

o
OO0

C06766

N 6
11:43:28 PAGE 10-3

SEQ 0078
MP
BEQ
MOV
cMP
BEQ
P
BEQ
MCcv
cMP
BEQ
cMP
BEQ

024024

010000

~OVEBUC
AR OO OB N0 N

il o

s =

il e

el el el

el ol e

el el e

el e
e S NN

A O OB AT PR NSO BB IS AR

]

9% 006606
97 006610
98 006616

4-APR-B1

TYPE
TYPE
TYPE

JMP

BLNKS?2

CMNSTART

;TYPE 2 BLANKS

;JUMP TO COMMON START

CIRMMBO RMOS/3/72 FLTNL TST
STANDALONE INPUT ROUTINES

MACR0 v0&L.00

4-APR-B1

-SBTTL

3 007010
;007010

004737

064210

§ 007016

005227

177777

7 007020

001023

¢ 007026

13007030

14 007034
15 007042
16 007044

17 007050

18 007054
19 007056

g0 007082

1 007066

INC
BNE

104401

10¢e11

012637

123727
001005
104401

104401

000414
104401

106401

000407

066344

TYPE

001176

RD({HR
MOV
(MPB

103274

067124

1%:

0C1217

001326
001217

005137
104401

2%:

#-1

sFIRST

TIME

:BR IF NO

THRU HERE

°?

JMSHELP

SWANT HELP ?

(SP)+,$TMP1

;SAVE AND ECHO RESPONSE

gflm.c'v

L$TMPY

:GET RESPONSE

,-%s

IT A YES RESPONSE

STYPE 'v'

3:ELP }

sYES = TYPE HELP TEXT

:TYPE

.SCRLF
3%

*CR=LF

°N'

TST

TYPE

CHGADR

; CHANGE RH/RM BUS ADDRESS ?

CHGADR

;NO CHANGE NEXT TIME

.SCRLF

:BR IF NO

sCR=LF

él;IALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY

104401
013746
104402
104401

066375
001276

007126
007132
007134

012637
001412
022737

001176

41 00715C

000756

104413

101403
104401

067132

160000

013737

001176

44 007160
45 007164
46 007166
47 007172
48 007174

104401
005046
113716
104402
104401
104413

066447

012637
001412
022737
101003
104401
000755
113737

001176

001276

5%:

;TYPE CURRENT BUS ADDRESS
;;SAVE $BASE FOR TYPEOUT

JBLNKS?2

:TYPE ¢ BLANKS

MOV
BEQ
MP
BLOS

(SP)+ ,$TMP1

;GET NEW BUS ADDRESS
;CARRIAGE RETURN ?

z;(:OOOOJTPPl

;efif\gf ADDRESS IN [/0 PAGE

BR
MOV

TYPE
CLR
MOVB

TYPOC
TYPE
RDOCT

067132

001176
001176

066456

001176

. CNSLO1
$BASE ,~(SP)

TYPE

001272

001000

TYPE
MOV
TYPOC
TYPE
RDOCT

066405

4 007152

3]
007206
3¢ 007210
§3 007216
54 007220
§5 007204
§6 007226

SINITIALIZE CONSOLE

IF USER WANTS TO CHANGE UNIBUS ADDRESS
BEQ
CLR

49 007200
30 00702

TYPE
TYPE
BR
TYPE
TYPE

B8R

:SEE

31 007106
3¢ 007106
33 007112
007116
3 007120

9 007142
40 007144

BNE

001176

27 007076
gg 007102

001457

000131

001176

001326

5 007124

PC STKINT

:SEE IF OPERATOR WANTS HELP TEXT

5
007070
5%
26 007070 005737
6 007074

STANDALONE INPUT ROUTINES

:
ONEL
STANDA
JSR

10
11 007022

8 7
17:43:/8B PAGE 11

6$:

L,CNSLO2

$TMP1,$BASE

JYES=SKIP TO NEXT ENTRY

s TYPE WARNING MESSAGE
;STORE NEW BUS ADDRESS

L,CNSLO3

-(SP)

SVECT1, (SP)

;GET CURRENT VECTOR ADDRESS

JBLNKS?2

;TYPE 2 BLANKS

(SP) +,$THP1
7%
g;ooo,smm

;GET NEW VECTOR ADDRESS
;CARRIAGE RETURN?
;YES=SKIP TO NEXT ENTRY
¥Eg{9fl ADDRESS < 1000 ?

. CNSLO4

;TYPE WARNING MESSAGE

$TMP1 SVECTT

;STORE NEW VECTOR ADDRESS

MOVB

;TRY AGAIN

MOV
BEQ
CMP
BHI

TYPE

001272

b} 3

;G0 TYPE--OCTAL ASCII(ALL DIGITS)

sRETRY

IRMMBO RMOS/3/72 FCTNL

STANDALONE

INPUT

57
S8

ROUTINES

59 007234
60 007240

005227
001002

62 007246
63 007252
64 007256
65 007262

104401
005037
104401
104411

0072642

104401

66 007264

012637

o8 007276

001007

67 007270

TST 1

023727

MACRO v04.00

7%:

066512

001217
001300
066676

001176

066330
006377

001300

73 007316

023727

001176

000015

74 007324

75 007326

76 007332

77 007340
78 007342

79 007350

g? 007352
82 007354

000137

001436

104407

023727

002430
023727

003427

006454

001176

000060

001176

000067

000423
104411

001176
001176

86 007372
87 007376
83 007402

104401
104401
023727

066341
001176
001176

000060

023727

001176

000067

85 007370

001432

10%:

003403
104401

066654

12%:

95 007430

013701

001176

138:

97 007440
98 007446
99 007454

156137
122737
101337

067236
000377

9 007434

100 007456
101 007462

042701

104401
000137

177770

001217
006454

TYPE
MOV

JALL
#377 ,$DEVM

cMP

$TMP1, #CR

TYPE

LSTMP1

11-1

SEQ DNRY

148 :

;GET RESPONSE

12%
$TMP1 ,#'7

12%

INSTRUCTIONS

;1S INPUT "ATM 2

:NO

;YES, TYPE “ALL'' AND GO
:SET DEVICE MAP FOR ALL DRIVES

XS1Z
12%

INPUT

“CR-LF
;CLEAR DEVICE MAP
:TYPE *DRIVE(S): *

108

138

;AUTO SIZE.

;CARRIAGE RETURN ?

JYES

:ECHO RESPONSE

;NUMBER < 0 ?

:YES
:NUMBER > 7 ?

:NO

s ILLEGAL INPUT

MOV
CMP

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

:GET RESPONSE
:CARRIAGE RETURN ?

TYPE
TYPE
CMP

., COMMA
LSTMP1
$TMP1,#°0

:TYPE ', °
;ECHO RESPONSE
;NUMBER < 0 ?

CMP

STMP1 #°7

:NUMBER > 7 ?

BLT

001300
001300

(S”)+,8TMP1

BLE

RDCHR

BLE
TYPE

BR
.

sTYPE

$TMP1,#'0

sFIRST TIME THRU ?
:BR IF NO

LCNSLO7

CMP

BEQ

91 007420
92 007422

000711

STMP1 4" A

BEQ

000015

002404

32 007426

CMP

BLT
(MP

89 007410

90 007412

.SCRLF
$DEVM
.MSDRVS

JMP

118:

012637
023727

TYPE
CLR
TYPE
RDCHR

BNE

83 007356
84 007362

#-1
8s

MOV

000101

104401
012737

INC
BNE

TYPE

8%:
9%:

69 007300
70 007304

;; 007312

11:43:28 PAGE

:DIALOGUE TO INPUT DEVICE NUMBERS

177777

001176

4-APR-B1

MOV

BIC

BISB
CMPR
BH]
TYPE
JMP

14%

12%

:YES

13%
,CNSLO8

:NO
;TYPE CR-LF '' ?ILLEGAL

$TMP1,R1

;R1 = DRIVE NUMBER

#~C7.R1

:RETRY

INPUT"'

ATNTBL (R1) , $DEVM
;SET DEVICE IN MapP
#377 ,$DEVM
:DONE ?
118
:NO
LSCRLF
XSiZ

:CR=LF
;GO SIZE DEVICES

CZRMMBO RMOS5/3/2 FCTINL

INPUT ROUTINES

104401

013700
001004

104401
104401

—=OD 0NN

STANDALONE

TST

012701
010137
012702
005003
030200
001413

104401

—

010311
010346

MACRO v04.00

116361

062701
006302

21
22
23
24
25

Moy
BNE

066341

067117
001466
001464
000001

001402
005203
000756
005011

28 007600
29 007604
30 007606
007612

004737
000425

31
32
33
34
;2

007642
007642
007646
007650
007654
007660

37 007660
38 007662
39 007666

40 007670
41 007674
42 007676

22 007702

45 007706
46 007712
47 007716
48 007722

007726
007732
007734

104401

043400
007614

005737
01002
000137
000137

000042

28:

8IT
BEQ

R2.RO

MOV
MOV

R3, (R1)
R3.=(SP)

BYTE
BYTE

1
O

105737

001007
005737
001002
000137
000137
105037

005037
004737
012746
012746
000002

(LR

TPE

000001

3%:

4%:

001300

001116
001206
064210
000240
007734

.Comma

;1S THIS DEVICE
INO !

IN MAP ?

YWRE e, o
;YES = ENTER DEVICE NUMBER

::SAVE R3 FOR TYPEOUT

#2 ,R1

..TYPE DIGIT(S)
. SUPPRESS LEADING ZEROS

;ADVANCE ENTRY POINTER

:ADVANCE DEVICE POINTER

;DONE ALL DEVICES ?
JYES

BR
CLR

2%
(R1)

JENTER NEXT DEVICE
;TERMINATE TEST QUE

TYPE

.SCRLF

,65%

[N QUE

;260 TVPE--O(TAL ASCII

k2
4%

;ADVANCE DEVICE NUMBER

sTYPE

CR-LF

;SEE IF CLOCK PRESENT

;YES = CLOCK IS PRESENT

;s TYPE ASCIZ STRING

BR
64%
;:GET OVER THE ASCIZ
.ASCIZ
<CRLF>/NO ‘L' OR 'P' CLOCK/
w62

:ANY MONITOR PRESENT

S5$

:BR IF YES

JMP

$GET4L2

*RETURN CONTROL TO MONITOR

NOP
TSTB

$DEVM

;READY TO START TEST
:ANY DRIVES IN MAP ?

:ANY MONITOR PRESENT

JMP

BNE
JMP

START

:JUMP TO START

:BR IF

YES

JMP

1%
START

$GET42

:BR IF YES
:JUMP TO START

CLRB

$TSTNM

;RESET TEST NUMBER

JSR

PC, STKIAT

SINITIALIZE TTY

CLR

MOV
-

:R3= DEVICE NUMBER

TSTB
BEQ

BNE

2%:

*RONE

:R1 = ADDRESS OF FIRST ENTRY IN OUE
: INITIALIZE ENTRY POINTER
:R2 = DEVICE POINTER

1$:

TYPE
FTYPE

ASL

BNE

READY:

TESTED'

ATNTBL (R2),1(R1):ENTER ATTENTION BIT IN QUE

ADD

TYPE

gg:

TO BE

MOVB

000042
005422
041620

:SIZE FOR CLOCK
JSR
PC,SIZCLK

éigSS:

005422
041620

ATSTQUE+2,R1
RI1,TSTGUE
#1.R2

INC

001217

,COMMA
.NONE

'DRIVE(S)

‘RO = DEVICE MAP
BR IF DRIVES TO TEST

MOV
MOV
MOV

TYPOS

104401
000413

000240

TYPE
TYPE

$DEVM,RO
13

1$:

066341

105702

007564
007566
007570
07572
007574

JASSEMBLE TEST QUE FROM DEVICE MAP
EMNSTART:
TYPE
,DRIVES
:TYPE

067070
001300

067236
000002

11:43:28 PAGE

SEQ 0087

104403

001
000

4-APR-81

MOV
RTI

$TIMES,

fiPRS -(SP)

#64%. - (SP)

;RETURN CONTROL

TO MONITOR

;INITIALIZE NUMBER OF
s 2PUT NEW PS ON STACK

S:PUT NEW PC ON

STACK

::POP NEW PC AND PS

ITERATIONS

CZRMMBO RMOS/3/2 FCTNL TST
STANDALONE INPUT ROUTINES
gg 007734

117737

171524

MACRO v04.00

11:43:28 PAGE

12-1
SEG (08,

001234

51
g%

MOvB

@TSTQUE,SUNIT

;LOAD DRIVE NUMBER

sCLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE
:OF THE-DIFFERENT DRIVE TYPES

56 007742
55 007750
56 007754

012737
013700
012760

002000
001276
000040

58 007770

016002

000026

022702

000007

012737

011000

57 007762

117760

59 007774

042702

61 010004

001003

60 010000

2% 010006

171476

001332

000010

#TAGL,LSTRK
$2ASE ,RO
#CLR,RMCS2 (RO)

ASSUME LAST TRACK FOR RM02/3 =
;RO _= UNIBUS ADDRESS
:CLEAR MASSBUS

MOV

RMDT (RO

:GET RMDT AND

ATSTQUE,RMCS2 (RO)

104401
104401
013746

010030
010032
010033
69 010034

104403
002
000
(005004

010036
010040
010042
010044

005304
001376
005304
001376

001217
066712
001234

:SAVE DRIVE TYPE BITS

BNE

:NO, MUST BE AN RMO2 OR ]M03

MOV

3%:

:SELECT DEVICE UNDER TEST

#177770,R2
#7 ,R2

TYPE
TYPE
MGV

TYPOS
.BYTE
SYTE
CLR

DEC
BNE
DEC
BNE

;1S IT AN RMOS
?

#TA16!TA2,LSTRK :YES==SE| LAST TRACK = 18.

sTYPE DRIVE NUMBER TO BE

66 010014
67 010020
68 C10024

,R2

BIC

{MP

001332

THE LAST TRA(K

MOV
MOV
MOV

]

177770

70
71
72
7%

4-APR-81

TESTED(SUNIT)

SCRLF
.MSGDRV
S$UNIT,=(SP)

s CR=LF
;TYPE "DRIVE'
;2SAVE SUNIT FOR TYPEOUT

2
O
R4

::TYPE DRIVE NUMBER
::G0 TYPE--OCTAL ASCII
;:TYPE 2 DIGIT(S)
: ; SUPPRESS LEADING ZEROS
;THESE TWO LOOPS ARE ADDED T0

R4
g
R&
R4

;WAIT FOR TTY

MACRO V04.00

4-APR=81

F
11:43:28 PAGE

7
13
(c

.IEMFBV RMOS/372 FCTINL TST 1
CONTROLLER ACCESS TEST

fi....fi..'.l!t.'.tt"""""..'t'i.'ltt'ttt'.t'tt't'.

no
o

— ek o

d d

ek —d d

NVONOND
W= O VO~

Swiny

-YEST

000004
000240
012706
013700
013701
012737

001100
001276
001464
000001

010074
010076
010102
010106
010114

005001
013746
013746
012737
012737

000004
000006
010210
000300

22 010210

23 010212

CONTROLLER ACCESS

TEST

t."......!tfi'.""""'..Qtt't..‘.'t'ti't.'

010046
010046
010050
010052
010056
010062
010066

010122
010126
G10132
010136
010142
010146
010152
010156
010162
010166
010172
010176
010202
010206

.!"..0'1t

116160

010160
016002
010160
016002
016046
010160
016002

012660

010160
016002
012637
012637
000417
022626
012637
012637
104110
005737
001002
000137
005037
000137

.tlt'.'..'t'..t.!"

TST1

SCOPE
NOP

MOV
MOV
MOV

001226

#STACK,SP

$BASE ,RO

TSTQUE ,R1
#1,8TESTN

MoV

R1
ERRVEC,=(SP)

CLR
MOV
MOV

000004

ERRVE(C+2,~(SP)

MOV

000006

000001
000002
000002
000004
000004
000010
000010
000010
000010
000022
000022
000006
000004

#1% ,ERRVEC

MOV

#PR6 ,ERRVE(C+2

MOvB
MOV

R1,RMCST1+1(RO)
R1,RMWC (RO)
RMWC (RO) ,R2
R1,RMBA(RO)
RMBA (R0) ,R2
RMCS2(R0) ,~(SP)

MOV

MoV
MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

1%:

3%:

= DEVICE BEING TFSTED
TEST NUMBER IN APT MAIL BOX

s sPUSH ERRVEC ON STACK
;;PUSH ERRVEC+2 ON STAC(K

;MOVE HI BYTE TO RM(S1
;sMOVE WORD COUNT REGISTER

;MOVE BUS ADDRESS REGISTER

;.PUSH RMCS2(R0O) ON STACK

. .POP STACK INTO RM(CS2(R0O)
;MOVE DATA BUFFER

(SP) + ,ERRVEC

. :POP STACK

(SP)+,(SP)+

:ADJUS} STACK

MoV

;?S)*.ERRVEC

;.POP STACK

TST

aNs?
2%
START1
$DEVM
$EOP

;STAND ALONE MODE 2
;NO!!
sYES-GO GET $BASE
;FUDGE NO DRIVES IN MAP
,
;RETURN TO $EOP

BNE
JMP
CLR
JMP

;(R1)
;oSET

(SP) + ,RMCS2(R0)
R1,RMDB(R0)
RMDB(RD)
,R2

EMT

005412
001300
041432

STACK POINTER

;MOVE CONTROL STATUS REGISTER

RMCS2(RO)
,R2

{SP)+ ERRVE(+?2

CMP
MoV

000042

JINITIALIZE

;RO = UNIBUS ADDRESS

R1,RMCS2(R0)

BR,

000006
000004

sSCOPE CALL
;START OF TEST

(SP) + _ERRVE(C+2

s .POP STACK INTO ERRVEC+?
INTO ERRVEC

sNO BUS TIMEOUT OCCURRED

;:POP STACK INTO ERRVEC+?
INTO ERRVEC

& ttttt'tfit.'tt!'t"""t.tfi!tt'l...!.Q'.Q'.QQ'.'.Q"."Q&Q"

't't

DATEST

UNIBUS

INITIALIZE

TEST

o~ ‘N

COOO0O0O00O

. tt'fittttttl't..'ttt"""i'..Q.'i'..‘fi.."".‘t.".t.""Q""t

000004
000240
012706
013700
013701
012737
012727

1512:

001100
001276
001464
000091
000002

004737 0522¢4
00040¢ '

001206
001226

SCOPE
NOP
‘MOV
MOV
MOV

I MOy
MOV
JSR
BR

#STACK,
SP

$BASE ,RO

:SCOPE CALL

;START OF

TEST

sINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

TSTQUE ,R1
#1,8TIMES

;(R1)

#2,8TESTN

::DO 1 ITERATION
soSET TEST NUMBER IN APT MAIL ROx

PC,CNTCLR
1%

2GO ISSUE CONTROLLER CLEAR
;GO TO 1% IF NO ERROR

= DEVICE BEING TESTED

RMOS/3/2 FCINL

TST

UNIBUS INITIALIZe

010310
010312
010314
010320
010320
010324
010332
010340
010346
010346
010352
010354
010356
010360
42 010364
43 010366
44 010370
45 010376
46 010404
47 C10412
48 010420
49 010426
50
51 010434
070440
53 010444
54 010450
55 C10454
010460
57 010464
58 010470
59 010474
010500
010502
010504
60
61
62
63

010506

010512
010514
010520
010524

000240
104000
000137

TEST

MACRO v04.00

NOP
EMT

011116
000101
000000
000022
000200

1%:

001432

001543
001544

043160

012737
012737
012702

112722
112722
112722
112722
112722
112722
112722

004737
000404
000240
104000

000137
000005
004737
111160

004737

MOV
MOV |

#0,RMDBO

MOvE

#200,PUTINX+1

3$:
001414
001424
001452
001434
001410
001420

JMP
DEC
BNE

MOV
MOV

#RMDB, PUT INX

PC,PUT

SUBROUTIN

ZEROS

IN DATA SILO

;

;SETUP REGISTER INDEX

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO _TO 3% IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBKOUT
INE

;GO TO 15% IF ERROR
;DECREMENT COUNT

#=1,RMBAO
#-1,RMER10

#-1,RMER20

#PUTIN
,R2
X
#RMBA, (R2) +

#RMER1,(R2)+
#RMER2, (R2) +
#RMMR1, (R2)
+

+
#RMCS1,(R2)
#RMCS2, (R2) +
#200, (R2)+
PC,PUT

4%
EMT

011116

4%:

064210
000010
042624

RESET
JSR
MovB

JWRITE

SILO AGAIN

JRMBA = ALL 1°'S
;RMER1

;RMER?2

ALL
ALL

1°'S
1°'S

:SET DIAGNOSTIC MODE
|

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO TO 4% IF NO ERROR

JRETURN HERE

15%

' PC,S$TKINT

(R1) ,RMCS2(RO)

ERROR

;ERROR # DEF INED BY PUT SUBROUTINE
;GO TO 15% IF ERROR
JUNIBUS INITIALIZE
;INITIALIZE CONSOLE
sSELECT DEVICE

;60 SET UP FOR STATUS FET(H

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

15%

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;SKIP REMAINDER OF TEST
_

001334

MOV

004200
001140

MoV

010600
010604
010612

005037

BIC

(MP
BEQ
EMT

CLR

MoV

BEQ

;GO TO 5% IF NO ERRCR

RMCS11,$BDDAT

;VERIFY RMCS1
; IGNORE SPECIAL CONDITION

$GDDAT, SEDDAT

;COMPARE EXPECTED, RECEIVED

#5C, $BDDAT
#DVA'RDY, SGDDAT

115

$GDDAT
gQBAI,SBDDAT

[

JSR
BR
NOP

013737
042737
012737
023737
001401
104115

001142

PC,GETSTS

EMT
BR

106000

;R2 = ADDRESS OF INDEX TABLE

JSR

010544
010552
010560
010566
010574
010576

001401

001543
000004
000014
000042
000024
000000
000010
000200
043160

010540
010542

013737

NED

;SET OR AND RESET IR

JWRITE

#DMD! DBEN,RMMR 10

042710

010536

#65. ,R2

#003577 ,RMCS10
#021037 ,RMCS20

004737
000403
000240
104000
000565

65 010530
010534

:GO TO 158 If ERROR

15%

JSR
BR
NOP

13-1

JMP

MOVB'
2%:

11:43:28 PAGE

EMT

011116
177777
177777
177777
040001
003577
021037

4=-APR=81

:EXPECT DVA & RDY

:BRANCH IF EGUAL

;VERIFY RMBA IS ZERO
JBRANCH [f

ZERO

78 010614

104176

80 010616
8% 010624
82 010626
83 010630
84 010634
85 010640
86 010646
87 010650
88
8% 010652
90 010656
%1 010664
92 010672

013737
005046

33 010674

%4,

35 010676
96 010704
97 C10706
98 010712
99 010714

10C 010716
101 010720

102 010724

001344

001142

7%:

{

052716
012637
023737
001401

000100
001140
001140

001142

005037
013737
042737
001401

001140
001350
040C00

001
001

013737
005002

001352

1064117

4
4

8%:

104120

116102

000302
005102
000240
040237

9%:

0C0001

010760

OOOC

001142

005037
013737
001401
104124

001140
001402

OO0

001401
104121

001142

013737
042737
012737
023737
001401
104125

001374

005037
013737
042737
001401

001140
001376
040200

138:

013737
042737
012737
023737
001401

001346

14%:

—
—
—
—
i
—
—

22352
bN?O‘ON

ik vk ol

—d —d — ——d
—d
ol

d o

ool il ol
i

—

ot ol

001360
000046

000010
001140

001142
001142

10%:

001140

104173

001142

104123

000600
001142

116

MOV
(LR
MOVB

RMCS21, $BDDAT
.
#1R, (SP)

(MP
BEQ
EMT

$GDDAT,$BDDAT
8$
117

CLR
MOV
BIC
BEQ
EMT

$GDDAT
RMER11, SBDDAT

MoV

(LR
MOVB
SWAB
qe
NOP
BIC
BEQ
EMT

MOV
BICTM
TM

11%:

CLR

MOV

BEQ
EMT

12%:

MOV
BIC
MGV
(MP
BEQ
EMT
CLR
MOV

BIC
BEQ

EMT
MOV
BIC
MOV
CMP
BEQ
EMT

13=2

: VERIEY RMC%Z
YEXPECT
IR

(R1), (SP)

BIS

CMP
BEQ
EMT

011777
001140

177177

11:43:¢28 PAGE

FMT

MOV

104122

140000

4=-APR=81

MOV

013737
042737
012737
023737
001401

010730
010736
010744
010752

<»~q0nn:\uuv—ac»ocn\q0un:\uuu«acflz

010726

111116

TEST

OO0

—
W

el —

) o

d wd ol S

e d md

D e ol

103
104
105
106
107
108

ok ok ek o

INITIALIZE

nonro

UNIBUS

MACRO v04.00

RMOS/3/2 FCINL TST 1

¢ ZRMMBO

(SP3+,$GDDAT

;

;COMPARE EXPECTED & RECEIVED
‘BRANCH IF EQUAL
i
|

#UNS , SBDDAT

9%
120

RMASI,$BDDAT

;£R1),R2

:VERIFY RMERT
;IGNORE

UNSAFE

‘BRANCH IF ZERO

:VERIFY RMAS

*CLEAR ALL BUT THIS

*DRIVES ATTENTION BIT

R2
R2,$BDDAT
108
121

{11,88DDAT

:BRANCH IF
|

: IGNORE WORD CLOCK,

:EXPECT WRITE

;VERIFY RMMR

C'LSILST,$BDDAT

#MWD , SGODAT

ITS 0

DATA BIT

SCT.

$GDDAT,$BDDAT
1%
122

-COMPARE EXPECTED AND RECEIVED
BRANCH IF 0

$GDDAT

:EXPECT ZEROS

$9§c21.saooAr

124

RMMR21.$BDDAT

#RQA!RQB,$BDDAT

#TST11777.$GDDAT
$GDDAT, $BDDAT
13%

TRK

*VERIFY RMEC2 = 0

;

:VERIFY RMMR2

SEXPECT TEST.TAG BIT ON
,

125

$GDDAT
RMERZI ,$BDDAT

#SK]:DVC,$BDDAT
}g%

JEXPECT ALL ZEROS
;VERIFY RMERZ2

;IGNORE DEVICE ERRORS
;BRANCH IF OTHER BITS 0

RMDSI, $BDDAT *
;CHECK DRIVE
#*C<DPR'DRY>, $BDDAT

STATUS REGISTER

#DPR:DRY,$GDDAT

;EXPECTED

;gg

:DRIVE STATUS IS OK

$3DDAT,$GDDAT

STATUS

;COMPARE EXPECTED & RECEIVED STATUS

CZRMMBO RMOS5/3/2 FCINL TST 1
T2
UNIBUS INITIALIZE TEST

MACRO v04.00

4&=-APR=81

11:43:¢8 PAGE

13=3

135 01 ne

15%:

137

~:Q.t...t'lQ..'t.'.flfl"""Q..tl'.t..t'tt.'.!t

126

—

--—-—nowgoo\nvw-mb

POPONUND
—d b e el o ed d ok b

WNINON)

D -

)

011216

333

Ao ARRR

gwr\:r\:
o

-d

WWNWWW W

—d —d

ol ol
i

)
d

sl sk ik

D
d

i
ol el o

——d e
b

B i

h
ed ek
d o

ol ol

sloleleleleBelelololelolelelslo]

" —

dh —h —d —

oo [0 Yo YV, IV, IV IV IV, IV 1V |
W —=OVO~NIWNESW

i'.'Q".t."'t!'n.t

CONTROLLER CLEAR TEST

':'Q"".ttt'..."'.'""QQQ'.'QQ.".Q'.'.Q'.'

—

e
—d

e
—t

144
145
146

D ol i

b ol

b s s

s e

OOO0O0O0OVOOOOOO
o o ot el e
b D casd e e e o

140
141
142

OCOOCODO

TRTEST 3
000004
000240
012706
013700
013701
012737

1ST3:

001100
001276
001464
000003

004737
000404
000240

052264

000137

011454

012702
012737

0G0101
000000
000022
000200

104000

112737
112737

004737
000404
000240
104000
000137
005302
001367
012737
012737
012737
012737
012737
012737
012702
112722
112722
112722
112722
112722
112722
112722

004737
000403
000240

001226

001432
001543
001544

043160

017454

177777
177777
177777
040001

003577
021037
001543
000004
000014
000042
000024
000000
000010
000200
043160

2%:

3%:
001414
001424
001452
001434
001410
031420

104000
000137

011454

JSR
BR
NOP
EMT
JMP
© MOV

MOvVB

JSR
BR
NOP
EMT
JMP
DEC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOVB
MOVB
MOVB
MOVB

MOVB

MOVB
MOvB
JSR
BR
NOP
EMT
BR

000430

052264

SCOPE
NCP
MOV
MOV
MOV
MOV

MoV
MOVB

104000

004737
000404
000240

!.'Q.".tttttt.'t't

4%:

JSR

BR
NOP
EMT
JMP

sSCOPE CALL
;START OF

#STACK, SP

TEST

JINITIALIZE

$BASE ,RO

STACK POINTER

;RO = UNIBUS ADDRESS

TSTQUE ,R1

:(R1)

PC,CNTCLR

;GO

#3,8TESTN

= DEVICE BEING TESTED

;;SET TEST NUMBER IN APT MAIL BOX

ISSUE

CONTROLLER CLEAR

;G0 TO 1% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR NUMBER DEF INED BY SUBROUT INE

;GO TO 8% IF ERROR

#65. ,R2

#0,RMDBO

JWRITE ZEROS

#RMDB , PUT INX

IN DATA SILD

;SETUP REGISTER

#200,PUT INX+1

PC,PUT

INDEX

;GO WRITE REGISTER(S)

TABLE

WITH PUT

SUBROUT INE

;GO TO 3% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 8% IF ERROR

8%
R2

;DECREMENT COUNT

JAND WRITE SILO AGAIN IF NOT DONE

#~-1,RMER20
#DMD ! DBEN , RMMR 10

#003577 ,RMCS10

#021037,RMCS20
.
- —
#PUT INX,R2
:R2 = ADDRESS OF

#RMBA, (R2) +
#RMERT , (R2) +

INDEX TABLE
.

#RMER?2
, (R2) +
#RMMR1 , (R2) +

#RMC
. (R2)
S1
+

HRMCS?2
, (R2) +

#200, (R2) +
PC,PUT
4$

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
:GO TO 4$ IF NO ERROR

:ERROR # DEF INED BY PUT SUBROUT INE

PC,CNTCLR

:RETURN HERE

2GO

ISSUE

IF ERROR

CONTROLLER CLEAR

:GO _TO 5% IF NO ERROR

sRETURN HERE

ERROR

sERROR NUMBER DEF INED BY SUBROUTINE
;GO TO 8% IF ERROR

:%RW‘BO RMOS5/3/72

FCTINL

TST

CONTROLLER CLEAR TEST

;gg 011370

004737

042624

170 011374

004737

042710

011400
011402
011404
. 8};298

00040%
000240
104000
000137

011454

172 011412

004737

052402

011420
011422
011424

000240
104000
004736

011416

= 81%2%3

000405

000137

[}

012737 .000000

176 011440

004737

000403
000240
104000
004736

v04.00

4=APR=-81

11:43:28 PAGE

5 :

JSR

PC,GETSTS

;SETUP TO READ ALL REGISTERS

JSR

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

BR
NOP
EMT
JMP

JSR

S
001410

PC,CLRSTS

;GO VERIFY CONTROLLER (LEAR OPERATION

NOP
EMT
JSR

PC,a(SP)+

*RETURN HMERE If ERROR
:ERROR # DEFINED BY CLRSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

MOV

#NOP, RMCS10

:CHANGE

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

JMP

BR
NOP
'EMT
“JSR

8% :

“GO TO 7% IF NO ERROR

044540

“GO TO 6% IF NO ERROR
‘RETURN MERE IF ERROR
:ERROR # DEF INED BY GET SUBROUTINE
*GO TO 8% IF ERROR

B8R

179

PC,a(SP)+

:GO TO 8% IF

ERROR

FUNCTION CODE FOR ERROR CHECK

*GO TO 8% IF NO ERROR
*RETURN HERE IF ERROR
. sERROR # DEFINED BY SECERR SUBROUTINE

:GO BACK FOR MORE ERROR CHECKS

".'l.'.it't.t‘.t.i'fi...""t"'tt.tttfi.fi.t't"tt.""t'tttflt"ttt'

SRTEST 4

011464
011470
i 011474

013700
013701
012737

001276
001464
000004

181

004737

052264

011506
011510
011512
011514

182 011520
183 011520

012706

000404
000240
104000
000137
112737

011526
011534
011542

112737
012737
004737

011550
011552

000240
104000

185 011556
186 011564
;gg 011572

112737
112737

011546

184 011554

189 011600

011604
011606
011610

000403

001100

011660
000000

000200
040000
043160

000000
000010
112737- 000200

000403
€00240
104000

MOV

001226

:
001543

001544
001410

108:

#STACK , SP

042710

20$:

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

JSR

PC,CNTCLR

;GO ISSUE CONTROLLER CLEAR

&R
NOP
EMT
JMP

10§

MOVB

MOVB
MOV
JSR

MOVB
MOVB
MOVB

BR
NOP
EMT

508

‘GO TO 108 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR NUMBER DEF INED BY SUSROUTINE
160 TO 508 IF ERROR

#RMCS1,PUTINX

:SETUP PUT INDEX TABLE

20%

GO TO 208 IF NO ERROR

508

*SKIP REST OF TEST

#200,PUTINX+1
#TRE .RMCS10
PC,PUT

B8R

JSR

*INITIALIZE STACK POINTER

$BASE ,RO
TSTQUE ,R1
w4, STESTN

001514
001515
001516

:SCOPE CALL
*START OF TEST

MOV
MOV
MOV

NOP
EMT

000441

004737

ittt'

15T4:
T
NOP

ARMCST,GETINX
ARMCS2.GETINX+1
#200,GE TINX+2
'

PC.GET

30$

-SET TERMINATOR BYTE
*SET RMCS1 OUTPUT BUFFER = TRE
‘GO WRITE RMCS1 VIA PUT SUBROUTINE

*RETURN HERE IF ERROR
*ERROR DEF INED BY PUT SUBROUTINE

;GO READ REGISTER(S)

WITH GET SUBROUTINE

*GO TO 308 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEF INED BY GE1 SUBROUTINE

000004
000240

011502

ERROR CLEAR TEST

.'.'.'tttt".t."t.l’t.Q"'t"."tt.'.'...*'."ttfi.tttfi'tttttttf

011454
011454
011456

011460

13-4

SEQ 0087

011454

1;@ 011432

011444
011446
011450
011452
;;g 011454

MACRO

t¢1)

FCTNL

TST

195 0
196
197 0

198 0

199 0

200 0
201
202
203
204

011660
011660
G11662
011664
011670
011674
011700

011706
011712
011714
011716
011720
011724
011724

042737
001401
104137

013737
042737
001401

-0
—00

193 0
194 0

000422
013737
005037

N.—a—‘
~N=
N

ERROR CLEAR TEST
190 0
191 0
192 0

MACRO v04.00

NE&SW
~NO
&~

’RMMBO RMO5/3/2

001344

104377

001142

(LR
BIC
BEQ
EMT

001142

001142
001142

40%

MOV
BIC
BEQ
EMT

11:43:28 PAGE

13=S

50%
RMCS11,$BDDAT

JSKIP REST OF

TEST

; CHECK TRE & MCPE
$GDDAT
EXPECT 0'S
#*(<TRE !MCPE>, $BDDAT
40%
JBRANCH [F TRE & MCPE = 0
137
RMCS21,$BDDAT

;CHECK RM(S?

0‘C<HCE‘UPE‘NED'PGE'MXF‘MDPE> SBDDAT
50%
140

50%:
AR

'TEST 5

DRIVE

I 2222232222222

STATUS TEST

'.".Q'tt..'t.t.t't't"".t!'fi"‘.Q't'.l't.-tt.tt’.Qt..'...'t't

000004
000240
012706
013700
013701
012737

;3
001100
001276
001464
000005

TSTS:

MOV
MOV

001226

MOV

052264

004737
000404
000240
104000
000137

012174

004737

042624

004737
000403
000240

042710

1%:

032737
001422
013737
005037
104152

032737
001022

013737
012737

010000

001346

001346
162000
010000
001346

001140

001140
001140
001142

000200

001376

001376
001140

001142

040000

001350
_

001350
040000

001142
001140

SCOPE

NOP
MOV

104000

225 012032
226
227 012034
228 012042
229 012044
230 012052

BR
MOV

30%:

104140

000514
032737
001016
013737
042737
052737
013737
104151
000440

221 012010
222 012016
223 012020
224 012026

4=APR=81

2%:

3%:

;SCOPE CALL
#STACK,SP
$BASE ,R0O
TSTQUE ,R1

#5,8TESTN

sSTART OF
’

TEST

sINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
: sSET TEST NUMBER IN APT MAIL BOX

JSR
BR
NOP
EMT
JMP

PC,CNTCLR
1%

JSR

PC,.GETSTS

JSR

PC,GET

;GO READ REGISTER(S) WITH GET SUBRCUTINE
;GO TO 2% IF NO ERROR
;RETURN HERE IF ERROR

8%
#MOL ,RMDS]
3%

:SKIP REST OF TEST
cMEDIUM ON LINE??

;GO ISSUE CONTROLLER CLEAR

;GO TO 18 IF NO ERROR

JRETURN HERE

ERROR

;ERROR NUMBER DEF INED BY SUBROUT INE
;GO TO 8% IF ERROR

BR
NOP
EMT
BR
BIT
BNE
MOV
BIC
BIS
MOV
EMT
BR

#ATA'ERR!PIP!LRT, $GDDAT
#MOL
, SGDDAT
RMDSI,$BDDAT
JRECEIVED STATUS
151
sMOL STATUS INCORRECT
5%

BIT

#DVC ,RMERZ!

MOV
(LR
EMT

RMERZ2],$BDDAT
$GDDAT
152

JRECEIVED STATUS
JEXPECTED STATUS
;DRIVE FAULT

BIT
BNE

#UNS ,RMER1 ]
5%

YRS

BEOQ

MOV
MOV

sERROR # DEFINED BY GET SUBROUT INE

SYES!!

RMDSI,$GDDAT

JEXPECTED STATUS

RMER1],$BDDAT
#UNS
, $GDDAT

:1S THERE A DEVICE CHE(K??

;BR IF NO

;1S UNS SETY?

sRECEIVED STATUS

JEXPECTED STATUS

¢ ZRMMBO RMOS5/3/2 FCINL TST 1
TS
DRIVE STATUS TEST

MACRO V04.00

032737
001410
013737
005037

040000

001350

001350
001140

001142

000137

041374

032737
001412
013737
042737
013737

004000

001346

001346
001346

001140
001140
001142

040000

001376

0C1376

001142

104175

032737
001406
013737
005037
012174

104205

166076

001140

11:43:28 PAGE

13-6
»

104153
000472

104154

4-APR=81

4%:

5%:
6%:

7%:

SEQ

EMT
BR

153
5%

J'DVC'' 1S SET BUT “UNS'' IS NOT

BIT

BEQ
MOV
CLR
EMT
JMP

#UNS ,RMER1 ]

;1S UNS SET??

$GDDAT
154
$EOSP

JEXPECTED STATUS
J'DVC'" IS NOT SET, BUT “UNS'’ IS
;SKIP REST OF TEST

BIT
BEQ
MOV
BIC .
MOV

#WRL ,RMDS |
;1S WRITE PROTECT ON??
7%
JNO!!
RMDSI ,$GDDAT
JEXPECTED STATUS
#*C<MOL !PGM!DPR!DRY!VV'OM>,$GDDAT
RMDSI,$BDDAT
JRECEIVED STATUS

6%
RMER1]1,$BDDAT

JNO!!
JRECEIVED STATUS

EMT

: g

JSELECTED DEVICE IN WRITE PROTECT

BIT
BEQ
MOV
CLR
EMT

#SK1 ,RMERZ21]
8%

;1S SKI SET??
JNO!!
JRECEIVED STATUS
JEXPECTED STATUS
JPERSISTENT SEEK INCOMPLETE ERROR

RMERZ2] ,$BDDAT
$GDDAT
205

b " Qttt't'ttil.'fi.ttfi.t't."fitl*t"....'fitt."ttt.'t't.fi.t't"

tt.t

J*TEST 6

012174
012174
012176
912200
012204
012210
012214

256
257 012222
012226
012230
012232
012234
258 012240
259 012240
012246
012254
012262
012266
012270
012272
260 012274

261 012276
262 012302
263
264

265

PRIMARY/SECONDARY ERROR TEST

.' > 'Qt.tt"tt't..it.fi*tt".'tt.!’tttttt.'ttt..'.t.'t"tt.'.filttt

tt'

000004
000240
012706
013700
013701
012737

1ST6:

001100
001276
001464
000006

004737
000404
000240

052264

000137

012354

112737
112737

000000
000200
000023
043160

104000

012737
004737
000403
000240

001226

001543
001544
001410

004737
000403
000240
104000
000415

#6,8TESTN

;:SET TEST NUMBER IN APT MAIL BOX

JSR
BR
NOP
EMT
JMP

PC,CNTCLR
1%

;GO ISSUE CONTROLLER CLEAR
;GO TO 1% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR NUMBER DEFINED BY SUBROUTINE
;GO TO 5% IF ERROR

MOVB
MOVB
MOV

#RMCS1,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+1
;SET TERMINATOR BYTE
#PAKACK !GO,RMCS10
sSET RMCST OUTPUT BUFFER = PAKACK'GO

;G0 TO 2% IF NO ERROR

;ERROR DEF INED BY PUT SUBROUTINE
sSKIP REST OF TEST IF ERROR

PC,PUT

NOP

042624
043522

042710

2%:

#STACK,SP
$BASE ,RO
TSTQUE ,R1

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

MOV

JSR

104000

000427
004737
004737

SCOPE
NOP
MOV
MOV
MoV

EMT
BR
JSR
JSR
JSR

NOP

EMT
BR

VIA PUT SUBROUTINE

JRETURN HERE IF ERROR

PC,GETSTS

;SETUP FOR STATUS FETCH

PC,GET

+GC READ REGISTER(S) WITH GET SUBROUTINE

PC, TIMOUT

;GO WRITE RMCS1

3%
5%

JWAIT FOR COMPLETION OF NOP

;GO TO 3% IF NO ERROR

JRETURN HERE

ERROR

sERROR # DEFINED BY GET SUBROUTINE
JSKIP REST OF TEST IF ERROR
.

0089

CZRMMBO RMOS/3/2 FCTINL TST 1
MACRO v04.00
PRIMARY/SECONDARY ERROR TEST
T6

266 012322
267

268 012336
269 012340
270 012340

004737
000404
000240
104000

4-APR-81

JSR
BR
NOP
EMT
JSR
BR

004736

000406

004737
000403
000240

4%:

044540

273

274

012354
012354
012356
012360
012364
012370
012374

275 012402
012406
012410
012412
012414
276 012420
277 012420
012426
012434
012442
012446
012450
012452
012454
278 012460
279
280 012464
012470
012472
012474
012476
281 012502

282 012510
283 012512
284 012520
285 012526
286 012530
287 012534
288 012542
289 (012544
290 012552

000004
000240
012706
013700

013701
012737

004737
000404

TST?:
001100
001276
001464
000007

001226

052264

000137

013426

112737
112737
012737

000024
000200
000001
043160

004737
000404
000240
104000

000137
004737

013426
042624

004737
000404

042710

PC,SECERR

001543
001544
001434

1%:

2%:

001360

000001
001360

001140
001142

013426
010000

001346

00136
1€77,7

201142
001142

3%:

:RETURN HERE

IF ERROR

:ERROR # DEF INED BY SECERR*-SUBROUT INE
;GO BACK FOR MORE ERROR CHE(KS

PC.a(SP)+

RSl

SCOPE
NOP
MOV
MOV
MOV
MOV

EMT
JMP

MOVB
MOvVB
MOV
JSR
BR
NOP
EMT
JMP

2222222232

222222212221

2222222322222

22222222%7

H#STACK,SP

:SCOPE CALL
;START OF TEST
INITIALJZE STACK POINTER

TSTQUE ,R1

(R1)

$BASE ,RO

UN]BUS ADDRESS

= DEVICE BEING TESTED |

#7,8TESTN

:iSET TEST NUMBER IN APT MAIL BOX

PC,CNTCLR

;GO ISSUE CONTROLLER CLEAR

218
H#RMMR1 ,FUT INX
#200,PUTINX+1
#DMD ,RMMR10
PC,PUT

218

;GO TO 1$ IF NO ERROR

JRETURN HERE

IF ERROR

;ERROR NUMBER DEF INED BY SUBROUT INE
;GO TO 21$ IF ERROR

;SETUP PUT INDEX TABLE
sSET TERMINATOR BYTE
;SET RMMR1 OUTPUT BUFFER = DMD
;GO WRITE RMMR1 VIA PUT SUBROUTINE
;GO TO 2% IF NO ERROR
;RETURN HERE IF ERROR
sERROR DEFINED BY PUT SUBROUTINE

;GO TC 21% IF ERROR

JSR

PC,GETSTS

;SETUP FOR STATUS FETCH

JSR
BR,
NOP

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

21%

sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 218 IF ERROR
:iés’QIAGNOSTIC MODE SET??

JMP

BIT
BNE

MoV

4%:

:GO TO 58 IF NO ERROR

DIAGNOSTIC MODE TEST

EMT

013426
000001

;GO CHECK FOR SECONDARY ERRORS

JSR
BR
NOP

000240
104000

SRR

tTEST

;GO _TO 4% IF NO ERROR
JRETURN HERE [F ERROR
;ERROR # DEF INED BY PRIERR SUBROUT
INE
;GO BACK FOR MORE ERROR CHECKS
;SKIP REST OF TEST IF ERROR

PC,a(SP)+

NOP
EMT
JSR

5%:

;GO CHECK FOR PRIMARY ERRORS

JSR

104000

271 012354
272

PC,PRIERR

004736

13-7
SEQ 0090

3%:

043706

11:43:28 PAGE

[0}
EMT
JMP
BIT
BEQ

MOV

BIC

#DMD ,RMMR1 |
4%
#DMD
, $GDDAT

RMMR11,$BDDAT
176

;GO TO 3% IF NO ERROR

;EXPECTED STATUS

JRECEIVED STATUS

21%

:SKIP REST OF

SYES!!

#MOL ,RMDS |

RMDSI
, $BDDAT

#*CMOL
, $BDDAT

;IS 'mMoL = 0

TEST

DMD
= O

*SETUP BAD DATA FOR TYPEOUT

CZRMMBO RMOS/3/2 FCINL

TST 1
DIAGNOSTIC MODE TEST

291 012560
292 012564
293 012566
294 012574
295 012576
296 012604
297 012612
298 012620
299 012622
300 012630
301 012632

005037
104170
032737
001012

013737
042737
012737
104200

032737
001411
013737
042737
005037

NN
— —
ST
e B 8

D o =D D o =D

D md ok =D —h D

NNNNNMQNNNNNN

032737
001411
013737
042737
005037
104202

032737
001411
013737
042737

D D e o o

001140

020000

001346

020000

001142
001142
001140

004000

001346

157777

001346

173777
001140

040000

001376
001142
001142

000200

001376

001376
177577
001140

001142
001142

000024
000200
001711
043160

001543
001544
001434

013426

6%:

7%:

8%::

9%:

wWhy
-

~ N S W= NNNO = =~
NN = N
NN N NN
NN=NONNNUNNONY

=000
— O

F233% 2gog W

}gfi’N—.-—l —

gfl)b gReS

S i o) o
oS
S ol o
D
s ol
D )
)
) el ol
s

NN
N NN

A L
L Y
NNy —

EEERE
.

W‘AW&WW
w
SRR

013426
000001

001360

000001
001360

001140
001142

013426
010000

001346

167777

010000

001142
001142
001140

020000

001346

001142
001142

57777

CLR
EMT
BIT
BNE

MOV
BIC
MOV
EMT
BIT
BEG
MOV
BIC
CLR
EMT
BIT
BEQ
MOV
BIC
(LR
EMT

BIT
BEQ

MOV
BIC
CLR
EMT

MOVB
MOVB
MoV

10%:

042710

) =D

5S%:

001142
001142

001376
137777
001140

001346

4~APR-81

11:43:28 PAGE

13-8

SEG 0091

(=g

N A AN A NN N NN N NN NN W N W NN
NN
e
TM §
oS
1)
= b
O~
o~
a8 T 1 ¥
SO BROBOSONNVUO
o osrnOooNNSNONOO

XNV WO

sislelslslelelelelelelslalolelslalalololslelaslolololololalololololalolololalolele)

el el

D e el <l

NN NN I NN
WN W

388

104201

MACRO v04.00

11%:

12%:

13%:

JSR
BR
NOP
EMT
JMP
JSR
BR
NOP
/ EMT
JMP
BIT
BNE
MOV
MOV
EMT
JMP
BIT
BNE
MOV
BIC
MOV
EMT

BIT

BEQ
MOV
8IC

$GDDAT
170

:SETUP GOOD DATA FOR TYPEOQUT

#P1P_RMDS]

;1S PIP
JYES!!

RMDSI ,$BDDAT
#*CPIP,$BDDAT
#P1FP ,$GDDAT

;SETUP BAD DATA FOR TYPEOUT

;EXPECTED PIP SET

200

;IS WRITE LOCK OFF??

QgRL.RMDSI
g

JYES!!
;SETUP BAD DATA FOR TYPEOUT

RMDS
1 ,$BDDAT
#*CWRL ,$BDDAT
$GDDAT

;EXPECTED WRL = 0

201

#SKI1,RMERZ2I

;IS SKI =0

sYES:
!

RMERZ2I
, $BDDAT

#*CSKI,$BDDAT

$GDDAT
202 .

#DVC ,RMER2]

9%
RMERZ21
, $BDDAT

#2CDVC,$BDDAT

$GDDAT
203

#RMMR1 , PUT INX

#200,PUTINX+1

SET??

;SETUP BAD DATA FOR TYPEOUT

"2SKI SHOULD BE 0
:igsqgvxce CHECK = 07?

*SETUP BAD DATA FOR
:DVC SHOULD BE 0

21%
PC,GET

11%

:GO READ REGISTER(S) WITH GET SUBROUTINE
:GO_TO 118 IF NO ERROR
:RETURN HERE IF ERROR
~:
:ERROR # DEFINED BY GET SUBROUTINE
.

12%
#DMD
, $GDDAT
RMMR11, $BDDAT
176
21%

:EXPECTED STATUS
RECEIVED STATUS
;SKIP REST OF

13%

2YES!)

RMDSI ,$BDDAT
#*CMOL
, $BDDAT
#MOL
, SGDDAT
170

#PIP_RMDSI

14%

RMDSI,$BDDAT

#*(PIP_$BDDAT

OUTPUT BUFFER = DMD'!MUR'M

:RETURN HERE IF ERROR
:ERROR DEF INED BY PUT SUBROUT INE
:G0 TO 21$ IF ERROR

16O TO 21$ IF ERROR

#MOL ,RMDS ]

;SET RMMR1

PUT SUBROUTINE

:GO TO 108 IF NO ERROR

218

#DMD ,RMMR11

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

#DMD ! MUR !MOC !MSER }
! MDF !MWP ,RMMR10
PC,PUT
;60 WRITE RMMR1 VIA

108

TYPEOUT

15 DIAGNOSTIC MODE SET??

2ISMOL = 122

TEST

DMD = 0

;SETUP BAD DATA FOR TYPEOUT

SEXPECTED MOL = 1
;ISPIP =02
SYES!!
;SETUP BAD DATA FOR TYPEOUT

[

‘"

337 013130
338 01313%

339 013136
340 013144
361 013146
262 013154
34,3 013162
364 013170
345 013172
346 013200
347 013202
3.8 013210
349 013216
350 013224
351 013226
35% 013234
253 (013236

354 013244
355 013252
356 013260
357 013262
358 013270
359 013272
360 013300
361 013306
362 013312
363 013314
364 013314
0133%2
013330
013336
013342
013344
013346
013350
365 013354
366 013354
013360
013362
013364
013366

FETINL

T1C MoDE

TST 1
TEST

MACRD v04.00 4-APR-B71 171:43:28 PAGEB 12-9

005037

001140

032737
001012
013737
042737
012737
04201

004000

001346

001346
004000

001142
001142
001140

040000

001376

001376
040000

001142
001142
001140

000200

00137¢

001376
000200

001142
001142
001140

000100

001346

001142
001142

104200

737

173777

137777

177577

032737
001411
012737
042737
005037
104204

112737
112737

012737
004737
000404
000240
104000
000137

177677

001140

000000
000200
000011

043760

001543
001544
001410

371 013416
37§ 013424
373 013276
374

JEXPECTED PIP STATUS

BIT

#WRL LRMDS |

MOV

RMDSI ,SBDDAT

;IS WRL SET??
VRS
;SETUP BAD DATA FOR TYPEQUT

MOV
EMT

#WRL ,SGDDAT
201

SEXPECTED GOOD STATUS

16%
RMERZ2] ,$BDDAT
#*(SK] ,$BDDAT
#SK1,$GDDAT

SYES!!

#DVC ,RMERZ2]

:1% DV SEY
N
I¥ES!!
;BAD DATA FOR TYPEOUT

BNE

15%:

BIT

BNE
MOV
BIC
MOV

16%:

17%:

18%:

EMT

BIT

BNE
MOV
BIC
MOV
EMT

001376
002000
002000

001142
001140
001142

#*CWRL ,$BDDAT

#SK]1 ,RMER2]

:BAD DATA FOR TYPECUT
SEXPECTED SKI

17%
RMERZ21,$BDDAT
#~CDVC,$BDDAT
#DVC,$GDDAT
203

#RMCS1,PUTINX

SEXPECTED DVC ON
;MUR SHOULD HAVE RESET VOLUME VALID
sBRANCH IF IT DID
:BAD DATA FOR TYPEOUT
:GOOD DATA FOR TYPEOUT

204

JMP

;SETUP PUT INDEX TASLE
:SET TERMINATOR BYTE
#DRVCLR!GO,RMCS10
;SET RMCS51 OUTPUT BUFFER = DRVCLR!GO
PC,PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE
19%
;GO TO 19% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEF INED BY FUT SUBROUTINE
21%
;GO TO 21$ IF ERROR

JSR

PC,GET

MOV
JSR

#200,PUTINX+1

JMP
21%
B8IT #LBC,RMERZ2]
BNE 21%
MOV RMERZI,$BDDAT
EMT

:GO READ REGISTER(S) WITH GET SUBROUTINE

20%

MOV #LBC,
BIC #LBC,

21%:

;IS SKI SET??

202

MOVB

EMT

MOVB

208:

15%

#VV RMDS ]
18%
RMDS
I ,$BDDAT
#*Cvv,$BDDAT
$GDDAT

NOP
EMT

001376

200

BIT
BEQ
MOV
BIC
CLR

013426
002000

375

SGDDAT

BIC

19%:

042710

367 013372
368 013400
369 013402
370 013410

14%:

(LR

BR
NOP
EMT

013426

;G0 70 208 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 21$ IF ERROR

i3 LK BEY 17
!
s YES

$GDDAT
$BDDAT

;BAD DATA FOR TYPEOUT

.GOOD DATA FOR TYPEOUT

262

':"t.tl"'.'t"'ltttt""t"'ttt'tt.."l.'lltt""'t.tt"‘"ttt.

s*TEST

PACK ACKNOWLEDGE

TEST

':."Q'.t'l.Qt""t."..'Q‘Q.tllt!..'.tttl..'fi'."tt.."t'ttt""

000240
012706
013700

o'8

TIST10:

013426
013426
013430
013432
013436

N ~a

4TM

RMMBO RMOS/ S/
D IAGNOS

SCOPE
NOP
MoV
MOV

:SCOPE CALL

#STACK,SP
$BASE ,RO

;START OF

TEST

sINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS

€2 RMMBO RMOS/3/72 FCINL TST 1
T
0
PACK ACKNOWLEDGE TEST
3

013442
013446

013701
012737

001464
000010

377 013454
013460
013462
013464
013466
378 013472
379 013472
013500
013506
013514
013520
013522
013524
013526
380 013532
381 013532
013540
013546
013554
013560
013562
013564
013566
382 013572
383 013572
013600
013606
013614
013620
013622
013624
013626
384 013632
385 013636
386
387 013642
013646
013650

004737
000404
000240

052264

000137

013726

112737
112737
012737

000024
000200
000001
043160

104000

004737
000404
000240
104000

000137

013726

112737

000024
000200
000000
043160

112737
012737

004737

000404
000240
104000
000137
112737
112737

012737
004737
000404
000240
104000

000127
004737
004737
004737
000403
000240

394 013710

001226

001543
001544
001434

001543
001544

000000
000200
000023
043160

013726

042624

043522

1%:

2%:

001434

013726

001543
001544
001410

3%:

4%:

1040C0

004737
000404
000240
104000
004736
000415

043706

0047537

053262

5%:

6%:

SEC 0093

MOV
MOV

TSTQUE ,R1
#10,8$TESTN

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

JSR
BR
NOP
EMT
JMP

PC,CNTCLR
1%

;GO ISSUE CONTROLLER CLEAR
;GO TO 1$ IF NO ERROR
JRETURN HERE IF ERROR
;ERROR NUMBER DEF INED BY SUBROUTINE
;GO TO 8% IF ERROR

MOVB
MOvB
MoV
JSR
BR
NOP
EMT
JMP

#RMMR1,PU
INX
T

MOVB
MOvB
MOV

JSR

042710

000424

391
392
393 013674

MACRO v04.00 4-APR-81 11:43:28 PAGEC 12-10

BR
NOP
EMT
JMP

MOvB
MovB
MOv
JSR
BR
NOP
EMT
JMP
JSR

#200,PUTINX+1

#DMD ,RMMR10

PC,PUT

8%
#RMMR1 ,PUT INX

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMMR1 OUTPUT BUFFER = DMD
;GO WRITE RMMRT VIA PUT SUBROUT INE
;G0 TO 2% IF NO ERROR
JRETURN HERE IF ERROR
sERROR DEFINED BY PUT SUBROUT INE
;GO TO 8% IF ERRCR

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMMR1 OUTPUT BUFFER = 0
;G0 WRITE RMMR1 VIA PUT SUBROUT INE
;G0 _TO 38 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUT INE
;GO TO 8% IF CRROR

#RMCS1,PUT
INX

;SETUP PUT INDEX TABLE

#200,PUTINX+1
#0,RMMR10-

PC,PUT

#200,PUTINX+1

:SET TERMINATOR BYTE

#PAKAC
! GO,RMCS10
K
:SET RMCST OUTPUT BUFFER =
PC,PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE

8%
PC,GETSTS

PAKACK'GO

;G0 TO 4% IF NO ERROR
;RETURN HERE IF ERROR

;ERROR DEFINED BY PUT SUBROUTINE
;GO TO 8% IF ERROR

JSR

PC, TIMOUT

;WAIT FOR COMPLETION

JSR
BR
NOP
EMT
BR

PC.GET

;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO _TO 5% IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEF INED BY GET SUBROUTINE
;SKIP REMAINDER OF TEST

JSR
BR

NOP
EMT
JSR
BR

JSR
BR
NOP
EMT
JSR
BR

8%
PC,PRIERR

PC.a(SP)+

;GO CHECK FOR PRIMARY ERRORS
;GO TO 6% IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEF INED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

;SKIP TO NEXT TEST

PC,ACKSTS

;GO VERIFY PACK ACKNOWLEDGE
;GO TO 78 IF NO ERROR

PC,a(SP)+

JRETURN HERE

IF ERROR

sERROR # DEFINED BY ACKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
JSKIP TO NEXT TEST

CZRMMBO RMOS/3/2 FITINL

PACK

TST

ACKNOWLEDGE

395
396 013712
397 013712
013716

004737
000403
000240

TEST

MACRO v04.00

4=APR=-81

7%:

044540

JSR

PC,SECERR
8%

NOP

004736

EMT
JSR

8%:

<00

401

000004
000240
012706
013700
013701
012737
012737

001100
001276
001464
000001
0C0011

402 013762

013766

004737
050020

013770
013772
013774
013776

000404
000240
104000
000137

014144

112737
112737
012737

000000
000200
000007

403 014002
404 014002
014010
014016

014024
014030
014032
014034
014036

405 014042

004737
000404
000240
104000

000137
004737
004737

406 014046
407
408 014052 004737
014056 000404
014060 000240
104000
014062
014064 000137

Qg 014070
!

tS111:

001206
001226

041650

043160

014144
042624
043522

001543
001544
001410

1%:

2%:

042710

RS R

004737
000405
000240
104000
004736
000137

043706

004737
000405

054056

4%:

MOVB
MovB
MoV
JSR
BR
NOP

222222

222222222222

TEST

$BASE ,RQ

22222

222222222222

)

:SCOPE CALL
:START OF TEST

IN]TIALIZE STACK POINTER
UNIBUS ADDRESS

TSTQUE ,R?
#1,STIMES

(R1)

PC,TSTPRP

sPREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;GO TO 18 IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 6% IF ERROR

#11,8TESTN

NOP
EMT
JMP

IF ERROR

JERROR # DEF INED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR (HECKS

#STACK,SP

= DEVICE BEING TESTED

::D0 1 _ITERATION
;;SET TEST NUMBER IN APT MAIL BOX

#RMCS1,PUTINX

sSETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
#REC
! GO,RMC
AL
S10
;SET RMCST1 OUTPUT BUFFER = RECAL!'CO
PC.PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE
2%
;GO TO 2% IF NO ERROR
#200,PUTINX+1

sRETURN HERE IF ERROR

;ERROR DEF INED BY PUT SUBROUYINE
;GO TO 6% IF ERROR
;G0 SETUP FOR STATUS FETCH

JMP
JSR
JSR

PC,GETSTS
PC, TIMOUT

JSR

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUT INE

JMP

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

JSR
BR
NOP

JSR

PC,a(SP)+

JSR
BR

PC,RCLSTS

EMT

0141744

05002¢

EMT

3%:

JSR
.WORD

NOP

014144

;GO TO 8% IF NO ERROR

:RETURN HERE

RECALIBRATE

SCOPE
NOP
MOV
MOV
MOV
MOV
MOV

FMT

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

PRTEST 11

013726
013726
013730
013732
013736
013742
013746
013754

13=11
SEQ 0094

104000

398 013726

11:43:28 PAGE

JMP

PC,PRIERR

6%
5%

:WAIT FOR COMPLETION

;GO _TO 3% IF NO ERROR

;GO CHECK FOR PRIMARY ERRORS
;GO _TO 4% IF NO ERROR

JRETURN HERE

ERROR

;ERROR # DEFINED BY PRIERR SUBRQUTINE
;GO BACK FOR MORE ERROR (HECKS

;GO TO 6% IF ERROR

;GO VERIFY RECALIBRATE OPERATION

;GO TO 5% IF NO ERROR

—

RECAL IBRATE

TST

TEST

MACRO V04.00 4-APR=81 11:43.¢28 PAGEE 1%-12

000240

NOP
EMT
JSR
JMP

104000

004736
000137

413
414

004737
000403
000240

014144

5%:

044540

JSR
BR
NOP
EMT
JSR

e
e

004736

NO»n

104000

M
-4

]

RMOS/3/2 FCINL

6%:
AL

S*TEST

JRETURN HERE

PC,a(SP)+

PC,SECERR

ERROR

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

JRETURN HERE

ERROR

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

PC,a(SP)+

;ERROR # DEFINED BY RCLSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;GO TO 6% IF ERROR

SRR AR A

SEG 0095

ABORT RECALIBRATE

2 2222222222221

TEST

- lfi'.Ittfi'fi..'t.Q'Rl".""..'t"..t.i't"t.fi'.fi'."'t"'."!.tt

014144
014144
014146
014150
014154
014160
014164
014172

000004
000240
012706
013700
013701
012737
012737

014200
014204

004737
054130

iSt12:

001100
001276
001464
000001
000012

001206
001226

041650

SCOPE
NOP
MOV
MOV
MoV
MOV
MOV

JSR
.WORD

;SCOPE CALL
#STACK
, SP

$BASE, RO
TSTQUE ,R1

;START OF TEST

JINITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED

#1,8TIMES

::D0 1 ITERATION
;;SET TEST NUMBER IN APT MAIL BOX

PC,TSTPRP

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

#12,8TESIN
054130

;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

014206
014210
014212
014214
420 014220
421 014220
014226

014234
014242
C14246
014250
014252
014254
422 014260
014260
014266
014274
014302
014306

014310
014312
014314

424 014320
425
426 014324

000404
000240
104000
000137
112737
112737

012737
004737
000404
000240
104000
000137
112737
112737

012737
004737
000404
000240
104000

014452

000014
000200
040000
043160

001543
001544
001424

1%:

B8R
NOP
EMT
JMP

MOVB
MOVB
MOV
JSR
BR

“NOP
014452
000000
000200
000007
043160

000137
004737

014452
042624

004737

042710

001543
001544
001410

2%:

3%:

EMT
JMP

MOVB
MOvVB
MoV
JSR

9%
#RMER1,PUT
INX

#200,PUT INX+1

#UNS ,RMER10

PC,PUT

IF VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF “'SKI'"
OR "PIP" IS SET
sVERIFY RECALIBRATION
;GO TO 1$ IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 9% IF ERROR
;SETUP PUT INDEX TABLE
sSET TERMINATOR BYTE
;SET RMER1 OUTPUT BUFFER = UNS
;GO WRITE RMER1 VIA PUT SUBROUTINE
;GO TO 2% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;GO TO 9% IF ERROR

#RMCS1,PUTINX

sSETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
#RECAL !GO,RMCS10
;SET RMCST OUTPUT BUFFER = RECAL !GO
PC,PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE
3%
;GO _TO 3% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
9%
;GO TO 9% IF ERROR
#200,PUTINX+1

BR
NOP
EMT
JMP
JSR

PC.GETSTS

;SETUP FOR STATUS FETC(H

JSR

Pr,GET

;GO READ REGISTER(S) WITH GET SUBROUT INE

CZRMMBO RMO5/3/72 FCTINL TST 1
112
ABORT RECALIBRATE TEST

014330
044332
0146334
014336

427 014342
428 014350
429 014352

430 014354
431

432 014360

014 364
014366
014370
014372

433 014376
434 014376

014402
014404
014406
14410
014412

435 014416

436 014416

014422
014424
014426
014430
014432

427 014436
438 014436

014442
014444
014446
014450
439 014452

MACRO V04.00

000137
032737
001401

014452
020000

004737

043522

004737
000404
000240

042710

104214

104000

000137

014452

004737
CC0405
000240

043706

004737
000405
000240

001346

(%:

5%:

6%:

014452

7%:

057766

104000

004736
000137

004737
000403

13-13

014452

8%:

044540

000240
104000
004736

6%:

440

441

8R
NOP
EMT
JMP
BIT
BEQ
EMT
JSR

104000

004736
000137

11:43:28 PAGE

SEQ 009¢

000404
000240
10400C

4-APR-81

;GO TO 4% IF NO ERROR

JRETURN HERE

IF ERROR

sERROR # DEFINED BY GET SUBROUT INE
;GO TO 9% IF ERROR

#P1P ,RMDS]

;gé?'THE

PC,TIMOUT

JWAIT FOR

JSR
BR
NOP
EMT
JMP

PC.GET

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

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

5%
214

DRIVE

RECALIBRATE??

COMPLETION

JRETURN HERE

ERROR

;ERROR # DEFINED BY GET SUBROUT INE

;GO TO 9% IF ERROR

;GO CHECK FOR PRIMARY ERRCRS
;GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUT iNE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 9% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,STCDRVSTS

;GO CHECK FOR CHANGES IN DRIVE STATUS

PC,a(SP)+

;GO BACK FOR MORE ERROR CHE(CKS
;GO TO 9% IF ERROR

JSR
BR
NOP
EMT
JSR

PC,SECERR

PC,a(SP)+

8s$

;GO TO 8% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEF INED BY STCDRVSTS SUBROUTINE

;GO CHECK FOR SECONDARY ERRORS
;GO TO 98 IF NO ERROR

JRETURN HERE

PC,a(SP)+

IF ERROR

;ERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHE(KS

'.‘..!"tt'tt.'.t'tfi.'t'(tt"'.'!‘ttit'.tt‘ilfi.t“‘.t..'.'lil

""'tt

S*TEST 13
52 LA

014452
014452
014454
014456
014462
014466
014472
14500

000004
000240
012706
013700
013701
012737
012737
004737
054130

AR AR

15T13:
001100
001276
001464
000001
000013
041650

IVC RECALIBRATE
SRS

SCOPE
NOP

MoV
MOV

001206
001226

e 222222222222
23222332
)

#STACK,SP

$BASE ,RO

MOV

TSTQUE ,R1
#1,$TIMES

JSR

PC,TSTPRP

MOV

MOV
. WORD

#15,$TESTN
054130

TEST

:SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED

2:DO 1 ITERATION
;sSET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

VOLUME NOT

;VERIFY PACK ACKNOWLEDGE

VALID

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

014514

000404

;VERIFY RECAL IBRATION

;GO TO 1% [F NO ERROR

Dl
d e

D e

444
445

RECAL IBRATE

HSE DD

o ok

—

4 1

5/3/2 FCINL

o
N —a

. RMMBO

447

104000

000137

014762

112737
112737

000024
000200
000001
043160

012737
004737
000404
000240
000137

014762

112737
112737

000024
000200
000000
043160

012737
004737

000404
000240
104000

448
449

000137

014762

112737
112737

000000
000200
000007
043160

012737
004737

000404
000240
104000

450 014666
45| 014672
452
453 014676

454
455

014702
014704
014706
014710

TEST

MACRO v04.00

000240

104000

446

TST i

000137
004737
004737

014762
042624
043522

004737
000404
000240
104000
000137

042710

004737
000405
000240

NOP
EMT

001543
001544
001434

1%:

456
457
458
459
460

001543
0017544
001410

4%:

043706

014742
014744
014746
014746

014752
014754
014756
014760

461 014762
462

463

014762

104215

004737
000403
000240

044540

001376

6%:
7%:

104000

004736

#RMMR1,PUT
INX
#200,PUTINX+1

MOVB
MOVB
MOV

JSR
BR
NOP
EMT
JMP
JSR
JSR
JSR
BR
NOP
EMT

014762

010000

MOVB
MOVB
MOV

MOVB
MOvVB
MoV
JSR
BR
NOP
EMT
JMP

8%:

#DMD ,RMMR10
PC,PUT

8%
ARMMR
1, PUT INX

#200,PUTINX+1
#0,RMMR10
PC.PUT

8%
#RMCS1,PUTINX

#200,PUTINX+1

[F ERROR

JERROR # DEFINED BY TSTPRP SUBROUT INE

;GO TO 8% IF ERROR

;SETUP PUT INDEX TABLE

sSET TERMINATOR BYTE

;SET RMMRT OUTPUT BUFFER = DML

;GO WRITE RMMR1 VIA PUT SUBROUT INE
;GO TO 2% IF NO ERROR

JRETURN HERE

IF ERROR

;ERRCR DEF INED BY PUT SUBROUT INE
;GO TO 8% IF ERROR

sSETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMMR1 OUTPUT BUFFER = 0
;G0 WRITE RMMR1 VIA PUT SUBROUT INE
:GO TO 3% IF NO ERROR

JRETURN HERE

ERROR

;ERROR DEFINED BY PUT SUBROUT INE

;GO TO 8% IF ERROR

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE

#RECAL !GO,RMCS10
;SET RMCS1 OUTPUT BUFFER = RECAL !GO
PC,PUT
;GO WRITE RMCS1 VIA PUT SUBROUT INE

PC,GETSTS
PC.,TIMOUT
PC,GET

JMP

JSR
BR
NOP
EMT
JSR
JMP
BIT
BNE
EMT

PC.PRIERR

JSR
BR
NOP
EMT
JSR

13-14

JRETURN HERE

NOP
EMT
JMP

001543
001544
N01434

11:43:28 PAGE

JMP

JSR
BR

104000

004736
000137
032737
001001

4-APR-81

PC,a(SP)+

;GO TO 4% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUT INE
;GO TO 8% IF ERROR
;SETUP FOR STATUS FET(CH

;WAIT FOR RECAL

TO COMPLETE

:GO READ REGISTER(S) WITH GET SUBROUT INE
;GO TO 5% IF NO ERROR
;JRETURN HERE IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 8% IF ERROR

;G0 CHECK FOR PRIMARY ERRORS

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

SERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

#1VC,RMER2]
7%

;GO TO 8% IF ERROR
s IvC SHOULD BE SET
2IT IS = GO CHECK SECONDARY ERRORS

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

215

PC,a(SP)+

;GO _TO 8% IF NO ERROR

JRETURN HERE

ERROR

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

""ll't"'..."t'.'.fitfi"‘"'Qt',""t'i.t.lttlt.t't."t!‘..'..l'.l

CIRMMBO RMOS5/3/2 FCTINL

TST

MACRO v04.00

JAE RECALIBRATE TEST

11:43:28 PAGE

13-15

StG GUYs
JeTEST

014762
014762
014764
014766
014772
014776

4-APR-87
14

IAE RECALIBRATE

TEST

"..'.l.t'..t'..tfit..'t'.t'..fi.'.‘Qt'.'.."""

185114

000004
000240
012706
013700
013701
012737
012737

001100
001276
001464
000001
000014

004737

041650

054130

001206
001226

"".‘t"".".!Q'

SCOPE
NOP
MOV
MOV
MOV
MOV
MOV

TSTQUE ,R1
#1,8TIMES
#15,8TESIN

;(R1) = DEVICE BEING TESTED
;:D0 1 ITERATION
;:SET TEST NUMBER IN APT MAIL

JSR
.WORD

054130

PC,TSTFRP

sPREPARE DEVICE

sSCOPE CALL
#STACK ,SP

$BASE ,RO

;START OF

TEST

JINITIALIZE

STACK POINTER

;RO = UNIBUS ADDRESS

FOR

BOX

TEST

;s TASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR DPERATION

;PACK -ACKNOWLEDGE

VOLUME NOT VALID

.VERIFY PACK ACKNOWLEDGE

015024
015026
015030
015032

466 015036

gg‘u\rw*ugy>0nf\nunn:mhJ\uuu
[+ ¥Nele]
==
O
OSSN OOoOSNVOoOONN
ooV
O
&

oo vy

D
D il il
il il celh
el
ol <ol
sl ol il
il sl ol o

.
Wny

Oc 0o

i
2 —D
o )t e d ed —h e e D D el

476
477
478
479

slelelelelelelelelslslololelelsloBlolololelole]

467 015036
468 015044
469 015052
470 015060
471 015064
472 015070
473 015074
474015700
475 01

000404
000240
104000

000137

015224

012737
012737
012737
012702
112722
112722

177777
177777

112722
112722

004737
000404
000240
104000
000137
004737
004737

000007
001543
000034
000006
000000
000200
043160

015224
042624
043522

004737
000404
000240
104000
000137

042710

004737
000405
000249
104000
0047326
000137

043706

004737
000405
000240
104000

015224

054056

001444
001416

1%:

BR
NOP
EMT
JMP
MOV
mMov
MoV
MOV
MOvVB
MOVB

001410

MOVB
MOVB
JSR
BR

EMT

2%:

3%:

4%:

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

;G0 TO 1% IF NO ERROR
JRETURN HERE

ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 6% IF ERROR

#-1_,RMDCO

JRMDC WILL BE ALL ONES

#-1,RMDAO
JRMDA WILL BE ALL
#RECAL !GO,RMCS10

#PUTINX,RZ2

ONES

;R2 POINTS TO PUT INDEX TABLE

#RMDC, (R2) +
#RMDA, (R2) +
#RM(CST, (R2) +

;SETUP PUT

PC,PUT

;GO WRITE REGISTER(S)

#200, (R2) +

INDEX

TABLE

;GO TO 2% IF NO ERROR
;RETURN HERE

WITH PUT

ERROR

JERROR # DEFINED BY PUT SUBROUTINE

;GO TO 6% IF ERROR

JSR

PC.GETSTS
PC,TIMOUT

;SETUP FOR STATUS FETCH
;WAIT FOR GO TO RESET

JSR
BR
NOP
EMT
JMP

PC,GET

;GO READ REGISTER(S)

JSR

JSR
BR
NOP
EMT
JSR
JMP

JSR
8R
NOP
EmY

SUBROUT INE

WITH GET SUBROUTINE

;GO TO 3% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 6% IF ERROR

PC,PRIERR
4%

;GO CHECK FOR PRIMARY ERRORS
;GO TO 4% IF NO ERROR

PC,a(SP)+

PC,RCLSTS

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUT INE

;GO BACK FOR MORE ERROR CHECKS

;GO TO 6%

IF ERROR

;GO VERIFY RECALIBRATE OPERATION

;GO TO 5% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED 8Y RCLSTS SUBROUTINE

CZRMMBO RMOS/3/72 FCINL

TST 1

IAE RECAL IBRATE TEST

015202

015206
484 015210
485 015210

004736

000137

000403
000240

015002

004736

015220

kgg 015224

4-APR-81

JSR
5%:

104000

6%:

LBB

JSR

PC,SECERR

BR
NOP
JSR

PC.a(SP)+

;GO BACK FOR MORE ERRCR (HECKS

GO TO 68 IF
-

ERROR

;GO CHECK FOR SECONDARY ERRORS

GO TO 68 IF NO ERROR
RETURN HERE IF ERROR

‘ERROR # DEF INED BY SECERR SUBROUTINE

GO BACK FOR MORE ERROR CHECKS

::..""""..".‘t.."""..'..‘."..."..".."...."'.".."."'.

:*TEST

015224
015224

001100
001276
001464
000001
000015

490 015260

004737

041650

050020

001206
001226

491 015300
492 015300

000404
000240
104000
000137

015502

MRMCS?,PUTINX

:SETUP PUT INDEX TABLE

EMT
JMP

;ERROR DEF INED BY PUT SUBROUTINE
:GO TO 7% IF ERROR

000000

el 015400

004737

042624

004737

043522

000200
000007
043160

015502

001543

MOVB

MRMCS1.PUTINX

;SETUP PUT

MOVB
MOV
JSR
RR

2%:

001544
001410

3$:

;CLEAR CONTROLLER & SELECT DEVICE

NOP

001544
001410

s TASK DESCRIPTOR AS FOLLOWS:

BR
NOP
EMT
JMP

112737

1%:

050020

sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;GO TO 1$ IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
:GO TO 7% IF ERROR

112737
012737
004737
000404
000240
104000
000137

015404

;PREPARE DEVICE FOR TEST

000240

000200
000015
043160

015346
015354
015362
015366
015370
015372
015374

497

PC,TSTPRP

MOVB

104000
000137

432 015400

JSR

001543

015332
015334

494 015340

#STACK,SP
$BASE ,RO
TSTQUE ,R1
#1,8TIMES
#15,8TESTN

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED
;:D0 1 ITERATION
:2SET TEST NUMBER !N APT MAIL BOX

112737

112737
012737
004737
000404

493 015340

015502

SCOPE
NOP
MOV
MOV
MOV
MOV
MOV

:
000000

015306
015314
015322
015326

015330

.""'.'.""'.".'."

.WORD

;

015266
015270
015272
015274

RECALIBRATE AT OFFSET

TST15:

000004
000240
012706
013700
013701
012737
012737

015264

;,'..'.*’*."..“‘.‘.'."'."‘Q"'.".....’..'

015226
015230
015234
015240
(015244
e 015252

500

1316

PC,a(SP)+

EMT

499

11:43:28 PAGE

SEQ 0069

(15224
E
044540

004737

015214
015216

MACRO v04.00

MOVB
MOV
JSR
BR
NOP
EMT
JMP

;SETUP GET

JSR

#200,PUTINX+1
:SET TERMINATOR BYTE
#OFFSET 'GO,RMCS10
:SET RMCS1 OUTPUT BUFFER = OFFSET'GO
PC,PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE
2%
:GO TO 2% IF NO ERROR

;RETURN HERE IF ERROR

INDEX TABLE

TO READ ALL REGISTERS

PC,GETSTS

JWAIT FOR COMMAND TO COMPLETE

JSR

INDEX TABLE

#200,PUTINX+1
:SET TERMINATOR BYTE
#RECAL 'GO,RMCS10
:SET RMCS1 OUTPUT BUFFER = RECAL'GO
PC,PUT
;GO WRITE RMCS1 VIA PUT SUBROUT INE
3$
:GO TO 3% IF NO ERROR
*RETURN HERE IF ERROR
:ERROR DEF INED BY PUT SUBROUTINE
7%
GO TO 7% IF ERROR

PC., TIMOUT

;GO TO GETSTS SUBROUT INE

;GO TO TIMOUT SUBROUTINE

501 015410
015414
015416
015420

015422
502 015426
503 015496

015432
015434
015436
015440
015442

504 015446
505 015446

015452
015454
015456
015460
015462
506 015466
507 015466
015472
015474
015476
015500
508 015502
509

004737
000404
000240
104000

JSR

NOP

015502

004737
000405
000240
104000
004736
000137

043706

015502

004737

054056

004737
000403
000240
104000
004736

”

J
11:43:28 PAGE

8
13-17

044540

:GO TO 4$ IF NO ERROR

*RETURN HERE

*GO TO 78 IF

ERROR

:ERROR # DEFINED BY GET SUBROUT INE

JSR

PC,PRIERR

;GO CHECK FOR PRIMARY ERRORS

*GO TO 5% IF NO ERROR

NGP
EMT
JSR
JMP

PC.A(SP)+
7%

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

JSR
BR

PC,RCLSTS
68

;GO VERIFY RECALIBRATE OPERATION
GO TO é$ IF NO ERROR

EMT
JSR

JMP

PC,A(SP)+
7%

JSR

PC,SECERR

B8R
5

:GO READ REGISTER(S) WITH GET SUBROUT INE

JMP

NOP

015502

PC,GET

NOP
EMT
JSR

PC.a(SP)+

*RETURN HERE

IF ERROR

“GO TO 7$ IF

ERROR

*ERROR # DEFINED BY RCLSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;GO CHECK FOR SECONDARY ERRORS

:GO TO 7$ IF NO ERROR

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

.‘"fitfi'Q'Q'l"*'ttl’.tfi.tt"‘it't'Q*tt*.tt't"titt*fiit

ttittttt'tl’tt"

—d
—
—
D —
—

—

W
O
oSO
n»a-asyacua

vV
o oy
oo
Vo
vVt

—

OOOO0OO0OO0C
OO0

15536
15540
15542

[elelelolelslolelelels]

RSNE

—d -

15544
5550
5550
5556
Vi

—_—

EMT

B8R

S*TEST

N —a

4-APR-81

SEQ 0100

042710

000137

000405
000240
104000
004736
000137

MACRO v04.00

510

MMBO RMOS/3/2 FCTNL IST 1
RECAL IBRATE AT OFFSET

5572

DRIVE

CLEAR TEST

""t'l’tttfil’fl‘t.i*'tfi'*""t'.'fi.tt"fifitfitl’tfi**'t‘tt‘t

000004
000240
012706
013700

013701
012737

004737
054130

000404
000240
104000

TST16:

001100
001276
001464
000016

"fitt‘fiiti'tt‘

SCOPE

NOP

041650

#STACK, SP
$BASE , RO

MOV

#16,$TESTN

TSTQUE ,R1

*(R1)

JSR
.WORD

PC,TSTPRP
054130

;PREPARE DEVICE FOR TEST
*TASK DESCRIPTOR AS FOLLOWS:

NOP

000137

015752

(012737
012737
012737
012737
042737
012702

000000
000011

177777
177777
004000

001543

001416
001410
001424
001452
001452

CALL

*START OF TEST

MOV
MOV

MOV

001226

:SCOPE

*INITIALIZE STACK POINTER
‘RO = UNIBUS ADDRESS

= DEVICE BEING TESTED

*:SET TEST NUMBER IN APT MAIL BOX

*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 1$ IF NO ERROR

*RETURN HERE

ERROR

EMT
JMP

MOV
MOV
MOV
MOV
BIC

#0 ,RMDAO
#DRVCL
' GO,RMCS10
R
#-1,RMER10
#-1.RMER20
#.SC,RMER20
:DELETE FOR PASS 2 ETCH

MOV

#PUT INX,R2

‘

*ERROR # DEFINED BY TSTPRP SUBROUTINE
GO TO 6% IF ERROR

*R2 POINTS

TO INDEX

TABLE

CZRMMBO RMOS/3/2 FCTINL TST
116
DRIVE CLEAR TEST

520 015612
521 015616
522 015622
523 015626
524 015632
525 015636
015642
015644
015646
526 015650
527 015652
528 015656
529
530 015662
015666
015670
015672
531 015674
532 015676
533 C15676
015702
015704
015706
015710
015712
534 015716
535 015716
015722
015724
015726
015730
015732
536 015736
537 015736
015742
015744
015746
015759
538 015752
539
540

112722
112722
112722
112722
112722

004737
000403
000240

MACRO v04.00

4-APR-81

SEQ 0101

000006
000042
000014
000000
000200
043160

MOVB
MOVH
MOVB
MOvB
MOvVB
JSR
BR
NOP

104000

000440
004737
004737

004737
000403
000240

042624
043522

EMT
BR
JSR
JSR

2%:

042710

JSR
BR
NOP
EMT
BR

104000

000426

004737
000405
000240
104000
004736
000137

043706

004737
000405
000240

055620

3%:

015752

JSR
BR
NOP
EMT
JSR
JMP

4%:

JSR
BR
NOP

104000

004736
000137
004737
000403
000¢40
104000
004736

K 8
11:43:28 PAGE 13-18

015752

EMT
JSR
IMP

- 38

044540

JSR

NOP

EMT
JSR

6%:
R

J*TEST 17

#RMDA,

(R2)
+

#RMERZ, (R2) +

;RMDA (CLEARS LBT

#RME
. (R?)
RT
+
#RM(ST. (R2) +

#200, (R2) +
PC,PUT

;GO WRITE

WITH PUT

:GO TO 2% IF NO ERROR

SUBROU
INE
T

“RETURN HERE IF ERROR

:ERROR # DEF INED BY PUT SUBROUTINE
:ESCAPE IF ERROR

PC,GETSTS
PC. TIMOUT

:SETUP FOR STATUS FETCH
;WAIT FOR DRIVE CLEAR TO COMPLETE

PC,GET

;GO READ REGISTER(S)

:GO TO 3% IF NO ERROR

WITH GET

SUBROUTINE

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

:SKIP REMAINDER OF

PC,PRIERR

TEST

:GO CHECK FOR PRIMARY ERRORS

:GO TO 4% IF NO ERROR

*RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE

PC.a(SP)+

:GO BACK FOR MORE ERROR CHECKS

PC.DRVSTS

:GO VERIFY DRIVE CLEAR

PC,a(SP)+

PC,SECERR

:GO TO 68 IF ERROR

:GO TO 58 IF NO ERROR

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

;GO BACK FOR MORE ERROR CHECKS

:GO TO 6% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

:GO TO 6% IF NO ERROR

*RETURN HERE

PC,a(SP)+

ERROR

:ERROR # DEFINED BY SECERR SUBROUT INE

:GO BACK FOR MORE ERRUR CHECKS
e

22222222200

NOP TEST

';t'tfi.tttfi'*..'tlQi"'t"!*'tt.fittitfi'ittifi'tt‘fitltth'Qtttfittti

015752
015752
015754
015756
015762
015766
015772

541
542 016000
016004

000004
000240
012706

013700
013701
012737

004737
054130

15117:
001100
001276
001464
000017
041650

SCOPE

NOP

001226

MOV
MoV
MOV

MoV

JSR
.WORD

#STACK ,SP

$BASE ,RO

sSCOPE CALL
sSTART OF TESI
;INITIALIZE

STACK POINTER

;RO = UNIBUS ADDRESS

TSTQUE ,R1
#17,8TESTN

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

PC,TSTPRP

;PREPARE DEVICE

054130

FOR TEST

s TASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

VOLUME NOT VALID

JVERIFY PACK ACKNOWLEDGE

C Z R MMBO RMOS5/3/72 FLTNL
T

]

NOP TEST

IST

000404
000240
104000
000137

543
544

016202

000000
000200
000001
043160

000137

016202
042624

004737
000404
000240

042710

004737

016112
016114
016116
550 016122
551 016122
016126
016130
016132
016134
016136
016140
016142
552 016146
553 016146
016152
C16154
016156
016160
016162
554 016166
555 016166
016172
016174
016176
016200
556 016202
557
558

001543
001544
001410

016202

004737
000405
000240

004737
115760
000010
000405
000240

004737
000405
000240
104000

004736
000137
004737
000403
000240

;ERROR # DEFINED BY TSTPRP SUBROUT
INE
:GO TO 78 IF ERROR

MOVB
MOVB
MOV

WRMCS1,PUTINX
#200,PUTINX+1
#NOP!GO,RMCS10

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
;SET RMCS1 OUTPUT BUFFER = NOP'GO

“

EMT
JMP

JSR
BR
NOP
EMT
JSR
JMP

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,a(SP)+
7%

;CHECK ANY ERRORS NOT MASKED
:MASK FOR RMER1
:MASK FOR RMER2
;GO TO 5% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 78 IF ERROR

JSR
BR

PC,STCDR “TS
6$

;GO CHECK FOR CHANGES IN DRIVE STATUS
;GO TO 68 IF NO ERROR

057766
-

NOP

016202

044540

7%
PC,GETSTS

;GO WRITE RMCS1 VIA PUT SUBROUT
INE
;GO TO 2$ IF NO ERROR
:RETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUT
INE

:GO TO 7$ IF ERROR
;SETUP FOR STATUS FETCH

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 3% IF NO ERROR
:RETURN HERE IF ERROR

;ERROR # DEF INED BY GET SUBROUT INE
:GO TO 78 IF ERROR

PC,PRIERR
43
.PC,a(SP)+
7%

PC,CMPERRSTS
NDTMSK
DPE
5%

;GO CHECK FOR PRIMARY ERRORS
;GO TO 4$ IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
:GO TO 78 IF ERROR

‘RETURN HERE

I/ ERROR

EMT
JSR
JMP

PC,a(SP)+
7%

:ERROR # DEFINE) BY STCDRVSTS SUBROUTINE
:GO BACK FOR MOR. ERROR CHECKS
;GO TO 78 IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

NOP
EMT
JSR

o
;
PC,a(SP)+

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

104000

004736

PC,GET
3s

104000

016202

;G0 TO 18 IF NO ERROR
:RETURN HERE IF ERROR

JSR
BR

2%:

050400

004736
000137

PC,PUT
28

104000

016202

JRECALIBRATE [F "'SKI''
OR "PIP'* IS SET
;VERIFY RECAL IBRATION

JSR
BR
NOP
EMT
JMP
JSR

043706

004736
000137

SEQ 0102

EMT
JMP

NOP

104000
000137

548
549

MACRO V04.C0 &=APR=-81 11:43:28 PAGEL 1%-19
BR
NOP

112737
112737
012737
004737
000404
000240
104000

545
546
547

:GO TO 7$ IF NO ERROR

;;tt'*tt*fitt..t*.t..'fi'tt.!!t'fiilititfit"fii"t.ttt"ttttt.'llQQ"

S*TEST 20

OFFSET

TEST

';ttt’t*'tt'i.t'l..tit.""i.tittfifllt'l.!tttlt'i'l"'tl'.'i'!t'tt

016202

75120:

CZRMMBO RMOS5/3/72 FCTNL
120
OFFSET TEST

559
560 0
0

561
562

563
564

016236
016240
016242
016244
016250
016250
016256
016264
016272
016276
0716300
016302
016304
016310
016314

566 016320
016324

016326

016330

—

bk =

016332
567 016336
568 016336
016342
016344
016346

000004
000240
012706
013700
013701
012737

001100
001276
001464

000020

MACRO v04.00 4-APR-81 11:43:28 PAGEM 1%-20

001226

004737 041650

000404
000240
104000
000137
112737
112737

016526

012737
004737

004737

016526
042624
043522

004737
000404
000240

042710

000137

016526

004737
000405
000240
104000
004736
000137
032737
001012
013737
042737
012737
104156
032737
001012

043706

104000

#STACK,SP

MoV

TSTQUE ,R1
#20,$TESTN

016526
000001

001346

001543
001544
001410

EMT
JMP

054130

9%
PC,PRIERR

PC,a(SP)+

177776
000001
100000

001346

013737
042737
012737

001346
077777

001142
001142
001140

004737

050400

4%:

#0M _,RMDS |

RMDSI
, $BDDAT
#*COM, $BDDAT
#OM,SGDDAT

58:

156

#ATA ,RMDS I

RMDSI, $BDDAT

6%:

;RO = UNIBUS ADDRESS
:(R1)

= DEVICE BEING TESTED

;;SET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'*
OR ‘PIP'* IS SET
;VERIFY RECALIBRATION
;GO _TO 1% IF NO ERROR

;RETURN HERE IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 9% IF ERROR

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
#OFFSET!GO,RMCS10
;SET RMCS1 OUTPUT BUFFER = OFFSET'GO
PC.PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE
2%
;GO _TO 2% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
9%
;GO TO 9% IF ERROR
PC,GETSTS
;SETUP FOR STATUS FETCH
PC,TIMOUT
;WAIT FOR GO TO RESET

001346

TEST

JINITIALIZE STACK POINTER

#200,PUTINX+1

3%:

;START OF

#RMCS1,PUTINX

PC,GET

001142
001142
001140

100000

JSR
-BR

2%:

$BASE ,RO

PC,TSTPRP

MOVB
MOVB

]

SEQ

sSCOPE CALL

JSR
.WORD

o
000000
000200
000015
043160

000404
000240
104000
000137
004737

SCOPE
NOP
MOV

MoV
MOV

054130

104172

582 016446

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 3% IF NO ERROR

JRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE

:GO TO 9% IF ERROR

;GO CHECK FOR PRIMARY ERRORS
;GO TO 4% IF NO ERROR

;RETURN HERE

ERROR

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

;GO TO 9% IF ERROR
;OFFSET MODE ON??
2YESU!
;BAD DATA FOR TYPEOUT

;GOOD DATA FOR TYPEOUT

;WAS ATTENTION SET 2?
+YES:!
;BAD DATA FOR TYPEOUT

#~CATA, $BDDAT
#ATA, $GDDAT

.GOOD DATA FOR TYPEOUT

PC,CMPERRSTS

;CHECK ANY ERRORS NOT MASKED

172

"-"

CZRMMBO RMOS5/3/2 FCTNL ST i
120
OFFSET TEST

MACRO v04.00

016526

vignuiian

osnoqgQonorn

v
o

587

b e

b o

jelelelelelelolsls)

585
586

:’%00‘00‘0
=33

583 016472
584 016472

7%:

057766

016526
004737
000403
000240

11:43:28 PAGE

8%:

044540

104000

004736

9%:

589

.WORD
.WCRD
BR
NCP
EMT
JSR
JMP
JSR
BR
NOP

EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR

ND TMSK
DPE
7%

PC,a(SP)+

PC,STCDRVSTS

Vvt

oWVl
o

DWW
oo

LATEST 21

sMASK FOR RMER1
sMASK FOR RMERZ2
;GO _TO 7% IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY CMPERRSTS SUBROUT INE

:GO BACK FOR MORE ERROR CHECKS

;GO TO 9% IF €RROR

;GO CHECK FOR

CHANGES

;GO TO 8% IF NC ERROR

JRETURN HERE

;ERROR # DEFINED BY STCDRVSTS SUBROUTINE

:GO BACK FOR MORE ERROR CHECKS

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP;+

;GO TO 98 IF ERROR

;GO _TO 9% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SFCERR SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS

2223222223222222222

GO/ATA TEST

';ttttttttQtfittttttttt'tt'*ttttkttttfii.ttfi*ittt*t*tttt*it*tti‘itt

7ST121:

000004
000240
012706
013700
013701
012737

001100
001276
001464
000021

004737
054130

SCOPE
NOP
MOV

MOV

MOV
MOV

001226

041650

s —b

JSR
.WORD

—O
S£O0NONY

& &8
geaes
¥83

s
d
s
i

NGP

017146

b o

B o

i o

COTCOOOOOOCCOCOO

$ g%

STATUS

ERROR

;SCOPE CALL

#STACK,SP

;START OF TEST
sINITIALIZE STACK POINTER

$BASE ,RO

;R0 = UNIBUS ADDRESS

PC,TSTPRP

;PREPARE DEVICE

TSTQUE ,R1
#21,$TESTN

054130

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

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

sPACK ACKNOWLEDGE

TN DRIVE

PC,a(SP)+

RSttt

leoleollolelelelelsls]
—_—
—_—— e
oo~
occooocrOrOAO

13-21

SEQ 0104

016452 115760
016454
016456
016460

016462
016464

4-APR-81

' 000000 001543
000200
000015
043160

001544
001410

1%:

EMT
JMP

MOvV3
MOvB
MOV
JSR

1%
12%
#RMCS1,PUTINX

#200,PUTINX+1

:GO TO 1$ IF NO ERROR

JRETURN HERE IF ERROR
sERROR # DEF INED BY TSTPRP SUBROUTINE
:GO TO 12% IF ERROR
;SETUP PUT

INDEX

TABLE

;SET TERMINATOR BYTE

#OFFSET!GO,RMCS10
PC,PUT
2%
:

IF VOLUME NOT VALID

. :VERIFY PACK ACKNOWLEDGE
"~ JRECALIBRATE IF ''SKI'' OR 'PIP'' IS SET
:VERIFY RECALIBRATION

;SET RMCS1 OUTPUT BUFFER = OFFSET!GO

;GO WRITE RMCS1 VIA PUT SUBROUTJINE
;GO TO 2% IF NO ERROR
JRETURN HERE IF ERROR
sERROR DEF INED BY PUT SUBROUT INE
:GO TO 12% IF ERROR

017146
042624

EMT
JNP
JSR

PC,GETSTS

;SETUP TO READ ALL REGISTERS

042710

JSR

PC_GET

;GO READ REGISTER(S)

12%

WITH GET

>uUBROUT
INE

CIRMMBO RMOS/3/2 FLTNL
GO/ATA TEST

-5
¥

IST

MACRC v04.00

4-APR=-B1

11:43:28 PAGE

13-2?2

016644
016646
016650
016652
597 016656
598 016664
599 016666
600 016674
601 016702
60¢ 016710
603 016712
604 016712
016716
016720
016722
016724

SEC 0105

000404
240
104000

000137
032737
9201012
012737

013737

042737
106172

004737

017146
100000

001346

100000

001140
001142
001142

001346
077777

3%:

4%:

050400

JSR
. WORD
. WORD

016726

016730

016732
605 016736
506 016736
016744
016752
016760
016764
016766
016770
016772

017146
112737
112737

012737
004737
C00404
000240
104000

000000
000200
000001
043160

000137

017146

004737
000404
000240

042710

000137

017146

004737
000405
000240

043706

104000

001543
001544
001410

5%:

6%:

7%:

104000

611 C17034

612 017042
613 017044

614 017052

004736
000137
032737
001411
013737
042737
005037

001346
077777
001140

004737

050400

104246

115760

017146
100000

001346

8%:

001142
001142
9%:

000010
000405

017146

BR
NOP
EMT
JMP
BIT
BNE
MOV
MOV
BIC
EMT

10%:

EMT
JSR
JMP
vMOvVB
MOvB
MoV
JSR

3s
12%

#ATA RMDS I

#ATA,SGODAT

RMDSI ,$BDDAT

#*CATA ,$BDDAT

;GO _TO 3% IF NO ERROR

JRETURN HERE

ERROR

sERROR # DEF INCD By GET SUBROUT
INE
;GO TO 128 IF ERROR

;1S ATTENTION SET??

JTES:!

:GOOD DATA FOR TYPEOUT

;BAD DATA FOR TYPEOUT

172

PC,CMPERRSTS

0
0
5%

PC,a(SP)+

;CHECK ANY ERRORS NOT MASKED

sMASK FCR RMER1
;MASK FOR RMERZ2
;GO _TO 58 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE

;GO BACK _FOR MORE

ERROR CHECKS

128

:GO TO 128 IF ERROR

#RMCS1,PUTINX

;SETUP PUT

INDEX TABLE

;SET RMCS1

OUTPUT BUFFER = NOP!GO

#200,PUTINX+1

#NOP!GO,RMCS10

:SET TERMINATOR BYTE

PC.PUT
6%

;GO WRITE RMCS1 VIA PUT SUBROUT INE
;GO TO 6% IF NO ERROR

EMT
JMP

12%

;GO TO 12% IF ERROR

JSR

PC.GET

;GO READ REGISTER(S)

EMT
JMP

12%

JSR

PC.PRIERR

EMT
JSR

PC.a(SP)+

JMP

BIT
BEQ
MOV
BIC
CLR
EMT

JSR
. WORD
. WORD

EMT
JSR
JMP

128

JRETURN HERE IF ERROR
sERROR DEF INED BY PUT SUBROUT INE
WITH GET

;GO CHECK FOR PRIMARY ERRORS

:GO TO 88 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEF INED BY PRIERR SUBROUTINE

GO BACK FOR MORE ERROR CHECKS

GO TO 12% IF ERROR

g:rA.nnosx

:IESATTENIION RESET??

RMDSI,$BDDAT

:BED DATA FOR TYPEOUT

$GDDAT
246

;£00D DATA FOR TYPEOUT

#*CATA, SBDDAT

PC,CMPERRSTS

ND TMSK
DPE

108

PC,a(SP)+

128

SUBROUT INE

:GO_TO 7% IF NO ERROR
JRETURN HERE IF ERROR
» ;ERROR # DEFINED BY GET SUBROUT INE
;GO TO 12% IF ERROR

;CHECK ANY ERRORS NOT MASKED

*MASK FOR RMER1
“MASK FOR RMER2

;GO TO 10% iF NO ERROR

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

:GO TO 12% IF ERROR

CZRMMBO RMOS/3/72 FCTNL
Tl
GO/ATA TEST

620 017112
017116

*
626
627 017174
017200

017202
017204
017206
017210
628 017214
629 017214
017222
01723C
17236
017242
017244

017246
017250
630 017254
631
632 017260

MACRO v04.00

4-APR=-81

£ 9
11:43:28 PAGE 13-23
SEQ 010¢

057766

017120
017122
017124
017126
621 017132
622 017132
017136
017140
017142
017144
623 017146
624
625
017146
017146
17150
017152
017156
017162
017166

JSR
BR
NOP

017146

11%:

044540

12%:

PC,STCDRVSTS

;GO CHECK FOR CHANGES IN DRIVE STATUS
;GO TO 118 IF NO ERROR

11§

JRETURN HERE

ERROR

EMT
JSR

PC,a(SP)+

;ERROR # DEF INED BY STCDRVSTS SUBROUT
INE
;GO BACK FOR MORE ERROR CHE(CKS

JSR

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS

128

JMP

12§

BR
NOP
EMT
JSR

AL AAA LA AL

LRTEST 22

;GO TO 12% IF ERROR

;G0 TO 128 IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEF INED BY SECERR SUBROUT INE

PC,a(SP)+

WRITE

;GO BACK FOR MORE ERROR CHECKS

22 22222222222221

ATA TEST

';t..'t.t"..."t..t.""'"t".t.t.t".".".tt'.".'t

000004
000240

TST122:

012706
013700
013701
012737

001100
001276
001464
000022

004737
054130

041650

000404
000240
104000

000137

004737
000404
000240
104000
000137
032737
001012

013737
042737

SCOPE
NOP
MOV
MOV
MOV
MOV
JSR
.WORD

;SCOPE CALL
#STACK,SP

$BASE ,RO

TSTQUE ,R1

#22,8TESTN
PC,TSTPRP

054130

1%
017512

112737
112737

012737
004737
000404
000240
104000
000137
004737

001226

'fi.t't'ttt

043160

001543
001544
001410

1%:

2%:

EMI
JMP
MOV
MOvVB
MOV
JSR
EMT
JMP
JSR

JSR

001346
001142
001142

3%:

NOP
EMT
JMP

BIT
BNE

MOV

BIC

:START OF

TEST

JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

:(R1)

= DEVICE BEING TESTED

;:SET TEST NUMBER IN APT MAIL BOX
;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
sRECALIBRATE IF ''SKI'* OR "PIP'" IS SET
sVERIFY RECALIBRATION
;GO TO 1$ IF NO ERRCR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUSROUTINE
;GO TO 98 IF ERROR

#RMCS1,PUT
INX

sSETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
#OFFSET!GO,RMCS10
;SET RMCS1 OUTPUT BUFFER = OFFSET!CD
PC.PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE
2%
;GO _TO 2% IF NO ERROR
sRETURN HERE IF ERROR
Ld
sERROR DEFINED BY PUT SUBROUTINE
9%
;GO TO 9% IF ERROR
PC,GETSTS
;SETUP TO READ ALL REGISTERS
#200,PUTINX+1

PC,GET
3%

#ATA _RMDS |

4%
RMDSI,$BDDAT
#*CATA,$BDDAT

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO _TO 3% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 9% IF ERROR
;IS ATTENTION SET??
s¥eS5:!
sBAD DATA FOR TYPEOUT

CZRMMBO RMOS/3/2 FCTNL IST 1
WRITE ATA TEST
T22

637 017322
638 017330
639 017332

640 017336
641 017342
642 017344
643 017350
644 017356
645 017364
017370
017372
017374
017376
6466 017402
647 017402
017406
017410
017412
017414
648 C17420
649 017429
017424
017426
017430
017432
017434
650 017440
651 017446
652 017450
653 017456
654 017464
655 017470
656 017472
657 017472
017476
017500
017502
017504
017506
017510
658 017512
659
660

012737

104172
116102

100000

MACRO v04.00

001140

?g¥

6%:

042710

043706

001346
077777
001140

017512

017516
017522
017526
017532

661
662 017540
017544

13-24

7%:

001142
001142

050400

JR2 = ATTENTION BIT
;CLEAR SIGN EXTENSION

#RMAS , PUT INX

#200,PUTINX+1
PC,PUT
5%

;PUT RMAS BIT IN OUTPUT BUF

JWRITE REGISTER INDEX IN TABLE

;WRITE TERMINATOR
;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO TO 5% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE

JSR
BR
NOP
EMT
JMP

PC,GET
6%

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 6% IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;GO TO 9% IF ERROR

JSR

PC,PRIERR

;GO CHECK FOR PRIMARY ERRORS

PC,a(SP)+
9%
#ATA_RMDS]
8%

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 9% IF ERROR
;1S ATTENTION RESET??
IYESY!

NOP
EMT
JSR
JMP
BIT
BEQ

BIC
CLR
EMT

JSR
.WORD
.WORD

NOP

1(R1) ,R2
#*CATNMSK
,R2

TYPEOUT

MOV

;GOOD DATA FOR

JMP

B8R

001346

795A,SGDDAT

R2,RMASO

MOVB
JSR
BR
NOP
EMT

EMT

JSR

RMDSI ,$BDDAT

;GO TO 9% IF ERROR

;G0 TO 7% IF NO ERROR

;BAD DATA FOR TYPEOUT

#*CATA,$BDDAT
$GDDAT
247

.GOOD DATA FOR TYPEQUT

PC,CMPERRSTS
0
0

;CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
;MASK FOR RMERZ

PC,a(SP)+

;GO TO 9% IF NO ERROR

JRETURN HERE IF ERROR

JERROR # DEFINED BY CMPERRSTS SUBRCUTINE

;GO BACK FOR MORE ERROR CHECKS

:."."'."...."*".'.‘."'.'....'."...'.."..."."""."'*

*TEST 23

512

MOV

“

017512

MOVB
Sé£

MOvVB

001543
001544

017512

017512
100000

11:43:28 PAGE

SEQ 0107

000001
177400
001426
000016
000200
043160

4=-APR=-81

ERROR/ATA TEST

"".."*Q"fi'..'.'.‘.."""."...'.“".*..*"'*.’.“'.Q"""

‘"'."

000004
000240
012706
013700
013701
012737

004737
054130

TST123:

001100
001276
001464
000023

041650

SCOPE
NOP
MOV

#STACK ,SP

MOV

TSTQUE ,R1

#23,8TESTN

;(R1)

JSR
.WORD

PC,TSTPRP
054130

sPREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:

MOV

001226

$BASE ,RO

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS

= DEVICE BEING TESTED

+oSET TEST NUMBER IN APT MAIL BOX

:CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

m—

CIRMMBO RMOS/3/2 F( NL
T2%
ERROR/ATA T

IST

MACRO v04.00

4<=AFR=B1

11:43:28 PAGE

13=25

SEQ 0108
sPACK ACKNOWLEDGE

017546
017550
017552

017554
017560
017560
017566
017574
017602
017606
017610
017612
017614
665 017620
667 17624
017630
017632
017634
017636
668 017642
669 017650
€70 017652
671 017660
672 017666
673 017674
674 017676
675 017676
017704
017712
017720

017724
017726
017730
017732
676 017736
677 017736
C17744
017752
017760
017764
017766
017770

017772
017776
017776
020002

020104
112737

112737

012737
004737
000404
000240
104000

000000
000200
000015
043160

000137
004737

020104
042624

004737

042710

000404
000240
104000
000137

032737
001012
013737
042737
012737
104172

112737
112737
012737
004737
000404
000240
104009
000137
112737
112737

012737
004737
000404
000240
104000

020104

2%:

100000

001346

001346
077777

001142
001142
001140

100000

000014- 001543
000200
001544
040000 001424
043160

020104

000000
000200
000001
043160

001543
001544
001410

3%:

4%:

5%:

000137

020104

MOVB
MOvB

sSETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
#OFFSET!GO,RMCS10
;SET RMCS1 OUTPUT BUFFEK = OFFSET!GO
PC,PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE
2%
;GO _TO 2% IF NO ERROR

MOV
JSR
BR
NOP
EMT
JMP
JSR
JSR
BR
NOP
EMT
JMP
BIT
BNE
MOv
BIC
MoV
EMT

MOVB
MOvB
MOV
JSR

004737

042710

100000

001346

100000

001140

7%:

;RETURN HERE

IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUT INE

108

;GO TO 10% if ERROR

#RMCS1,PUTINX

#200,PUTINX+1

JRETURN HERE

108
PC,GETSTS

PC.GET

ERROR

;ERROR DEF INED BY PUT SUBROUT INE
;GO TO 108 IF ERROR
;SETUP TO READ ALL REGISTERS

108

#ATA ,RMDS |
4%

RMDS] ,$BDDAT

#*CATA
, SBDDAT
#ATA,$GDDAT

172

#RMER1 ,PUT INX

#200,PUT INX+1
#UNS ,RMER10
PC.PUT

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 3% IF NO ERROR

JRETURN HERE

ERROR

;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 108 IF ERROR
;1S ATA SET??

LYES!

;BAD DATA FOR TYPEOUT
;GOOD DATA FOR TYPEOUT

sSETUP PUT INDEX TABLE
sSET TERMINATOR BYTE
;SET RMER1 OUTPUT BUFFER = UNS
;GO WRITE RMER1 VIA PUT SUBROUTINE

;GO TO 5% IF NO ERROR

NOP
EMT
JMP

108

sERROR DEF INED BY PUT SUBROUT INE
;GO TO 10% IF ERROR

MOVB
MOVB
MOV
JSR

ARMCS1,PUT
INX
#200,PUTINX+1
#N
! GO,RMC
OP
S10
PC ,PUT

sSETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMCS1 OUTPUT BUFFER = NOP!GO

EMT

6%:

VOLUME NOT VALID

B8R
NOP
EMT
JMP

NOP

020104
682 020024

001543
001544
0014190

1%:

;VERIFY PACK ACKNOWLEDGE
JRECAL IBRATE IF ''SKI'*
OR "PIP'' IS SET
;VERIFY RECALIBRATION
;GO TO 1$ IF NO ERROR

JMP

108

JSR
BR
NOP
EMT
JMP

PC,GET
7%

108

BIT

#ATA ,RMDS |

MOV

HATA,$GDDAT

BNE

sRETURN HERE

ERROR

:GO WRITE RMCS!1 VIA PUT SUBROUTINE

;GO TO 6% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUTINE
;GO TO 108 IF ERROR

;GO READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 7% IF NO ERROR
JRETURN HERE I[F ERROR
JERROR # DEFINED BY GET SUBROUTINE

;GO TO 10% IF ERROR
21S ATA STILL SET??

2YES!!

:GOOD DATA FOR TYPEQUT

CZRMMBC RM(OS5/3/72 FCTNL
é
ERROR/ATA TEST

683 020032
684 020060
685 020046
686 020050
687 020050
020054
020056

020060
020062
020064

688 020070
689 020070

020074

020076
020100
020102
690 020104

TST

4=APR=B1

11:43:28 PAGE

13=26
SEQ 0109

013737
042737
104250

001346
(77777

004737
000405
000240

057766

104000
004736
000137

020104

004737

044540

000403

MACRO Vv04.00

001142
001142

8%:

9%:

MOV
BI(
EMT

RMDSI,$BDDAT
#-CATA, $BDDAT
250

;BAD DATA FOR TYPEQUT

JSR
BR
NOP
EMT
JSR
JMP

PC,STCDRVSTS
98

;GO CHECK FOR CHANGES IN DRIVE STATUS
160 TO 9% IF NO ERROR
:RETURN HERE IF ERROR

PC,a(SP)+
103

:ERROR # DEF INED BY STCDRVSTS SUBROUT
INE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 108 IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

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

B8R

000240
104000
004736

108:

[

692

NOP
EMT
JSR

108

:GO TO 108 IF NO ERROR

.'.'.!'ittl"..'....Q..'Q"'....'fil'.."Q.."'."".t’.'ttfl."'t't.

STEST 24

PROGRAM INTERRUPT TEST

.'"t".t't'.'...t'..."Q"'.'....'.'.-.'..'..'tt"'.'t

020104
0201064
020106
020110
020114
020120
o 020124

000004
000240
(12706
013700
013701
012737

694 020132
020136

004737
054130

t"ltt".'!'

18124

003100
001276
001464 000024
001226
041650

SCOPE
NOP
MOV
MOV
MOV
MOV

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

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

JSR
.WORD

P, TSTPRP
054130

:PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS
:

:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE

VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE

020140
020142
020144
020146
695 020152
696 020152

697 020156

698 020162

699 020164
700 020170
701 020174

702 020202

703 020206

704 020212

705 020214

706 020216
707 020220

708 020222
709 020226
710 02023C

000404
000240
104000
000137

020574

113702

001272

042702

011204

016205
012712
012762
113703

042703

000303

18:

MOVAB

177400

000002
020434
000300

001273

000002

042703
000240
012746

(000300

2%:

$VECT1,R2

;R2 = INTERRUPT ADDRESS

(R2) R4

:SAVE HANDLER ADDRESS

MOV
MOV
MOV

2(R2) ,RS
#9$, (R2)
#PR6, 2 (R2)

BIC

#A(<377>.R3

:CLEAR SIGN EXTENSION

:DECREMENT INTERRUPT LEVEL

SVECT1+1,R3

SWAB

BPL
(LR

2%
R3

DEC

177437

168

:G0 TO 18 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY TSTPRP SUBROUT INE
160 TO 16$ IF ERROR

#A(<377> ,R2

MOVR

177400

BIC

MOV

005303

100001
005003

BR
NOP
EMT
JMP

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

BIC
NOP
MOV

:CLEAR SIGN EXTENSION

:SAVE HANDLER PRIORITY
:WRITE HANDLER ADDRESS AND
:PRIORITY FOR THIS TEST

‘R3 =

INTERRUPT LEVEL

#ACPR7,R3

#PRE, = (SP)

s sPUSH #PRE ON STACK

“JRMMBO RMOS5/3/2 FCINL IST 1
Ted
PROGRAM [NTERRUPT TEST

711 020234

712 020240

713 020242

714 020246

715 020256

716 020262
718 020270

012746

020372

012746

020364

010346

012737

112737

000016

004737

043160

112737

020574

720 020306

112737

000000

104000
000137

020574

020314
020322
020330
020334
020336

020340
020342
721 020346

722
723
724
725
726

020346
020352
020356
020362
020364

;Sg 020366

112737
012737
004737
000404
000240

004737
004737
012703
000002
005303

100376

001426

001543

000200
000115
043160

3$:

001544
001410

48:

043522
042624
000205
-

5%:

;%g

MOV

#58,-(SP)

i:PUSH #5$ ON STACK

733 020372

020376
020400
020402
020404

734 020410
735 020410

020414
020416
020420
020422
020426
736 020430
020430

000002
004737

000404
000240
104000
000137.

004737

000405
000240
104000
004736
000137

;gg 020432

104251
000423

739 020434

022626

7640 020436
741 020442
742 020444

763 020444

020450

020452

020454

042710

043706

,
020574

020444

004737

042710

000240

104000_

78
.

8s%:

98:
108:

::PUSH R3 ON STACK

#-1.RMASQ

ARMAS,PUTINX

#200,PUTINX

JSR

PC.PUT

MOVB

MOVB
MOV
JSR
BR
NOP
EMT
JMP

JSR
JSR
MOV
RTI
DEC

BPL

BR
NOP
EMT
JMP
JSR

ONES

IN RMAS

T0O

:CLEAR ALL ATTENTIONS
REGISTER(S)

MRMCS1,PUTINX

;SETUP PUT INDEX TABLE

16%

:ERROR DEF INED BY PUT SUBROUT
INE
:GO TO 168 IF ERROR

#200,PUTINX+1
:SET TERMINATOR BYTE
#OFFSET!GO!IE,RMCSTO
;SET RMCS1 OUTFZJT BUFFER = OFFSET!GOIE
!
PC,PUT
;GO WRITE RMCST VIA PUT SUBROUT INE
48
;GO TO 4$ IF NO ERRCR
:RETURN HERE IF ERROR

PC, TIMOUT
PC.GETSTS
#205,R3
R3

:WAIT FOR COMPLETION
:SETUP TO READ ALL REGISTERS
:R3 = GROSS TIMEOUT
:DROP CP PRIORITY
:TIMEOUT THE INTERRUPT

INTERRUPT

:RAISE CP PRICRITY
PC.GET

16$
PC.PRIERR

EMT
BR

251
12%

(SP)+,(SP)+

;GO READ REGISTER(S) WITH GET SUBROUTINE

:GO TO 7$ IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
160 TO 168 IF ERROR

;GO CHECK FOR PRIMARY ERRORS

:GO TO 8% IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEF INED BY PRIERR SUBROUT INE
160 BACK FOR MORE ERROR CHECKS
16O TO 16% IF ERROR
.

;ADJUST STACK

MOV
RTI

#108, (SP)

*CHANGE RETURN ADDRESS
*RAISE CP PRIORITY

JSR

PC,GET

;GO READ REGISTER(S)

NOP

EMT

SUBROUT
INE

16$

PC,a(SP)+
168

WITH PUT

:G0 TO 3% IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUT INE
:GO TO 168 IF ERROR

BR
NOP
EMT
JSR
JMP

(MP

:WRITE

;G0 WRITE

RTI
JSR

020574

012716
000002

000404

6%:

R3,=(SP)

MOVB

:TIMEOUT BEFORE

731 020370
732 020372

SEQ 011

;iPUSH #68 ON STACK

BR
NOP
EMT
JMP
~

13-27

#68$,=(SP)

MOVB

001543

11:43:28 PAGE

MOV

001543

000200

000404
000240
104000
000137

4-APR=-81

MOV

177777

020274
020276
020300
020302

719 020306

MACRO v04.00

WITH GET

:GO TO 118 IF NO ERROR

‘RETURN HERE IF ERROR

SUBROUT
INE

;ERROR # DEFINED BY GET SUBROUTINE

C ZRMMBO RMOS/3/2 FCINL
PROGRAM

TST

[INTERRUPT

020456 000137
020462
745 020462 004737
020466 000405
020470 000240
104000
020472
020474 004736
020476 000137
746 020502
747 020502
004737
115760
020506
020510
000010
020512 000405
020514
000240
104000
020516
020520 004736
020522
000137
748 020526
749 020526
004737
020532 000405
020534
000240
020536 104000
020540 004736
020542 000137
750 020546
751 020546
004737
020552 000405
020554
000240
104000
020556
020560 004736
020562 000137
75¢ 020566
753 020566
010412
754 020570
010562
755 020574
764

1
TEST

MACRO v04.00

020574

&-APR=-81

11%:

043706

020574
050400

020574

;GO TO 6% IF ERROR

JSR
BR
NOF

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS
;GO _TO 12% IF NO ERROR
JRETURN HERE IF ERROR

020574

15%:

000002

16%:
S

g LA A

020626

004737
054130

157125:
001100
001276
001464
000025

041650

PC,a(SP)+
16%

JERROR # DEFINED BY CMPERRSTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 16% IF ERROR

JRETURN HERE IF ERROR

PC,STCDRVSTS
14%

16%

;GO CHECK FOR CHANGES IN DRIVE STATUS
;GO TO 14% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY STCDRVSTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;G0 TO 16% IF ERROR

PC,SECERR
15%

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

PC,a(SP)+

;RETURN HERE

R4, (R2)
R5,2(R2)

SRR

ERROR

;GO BACK FOR MORE ERROR CHECKS

;GO TO 16% IF ERROR

INHIBIT

;ERROR # DEFINED BY SECERR SUBROUTINE

N2 2232222222233

INTERRUPT TEST

e 23332233
2222222222323
3232
3 3
1

SCOPE
NOP
MoV

#STACK,SP

MOV
MoV

#25,8TESTN

TSTQUE ,R1

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

PC,TSTPRP

;PREPARE DEVICE FOR TEST

MOV

001226

;CHECK ANY ERRORS NOT MASKED

:MASK FOR RMER1

;GO TO 13% IF NO ERROR

MOV
MoV

;GO TO 16% IF ERROR

;MASK FOR RMER?2

13%

PC,a(SP)+
16%

RS R

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

ND TMSK
DPE

JSR
JMP

L*TEST 25

758
759 020622

PC,CMPERRSTS

EMT

Fobi LA

000004
000240
012706
013700
013701
012737

PC,a(SP)+
16%

JSR
BR
NOP

756
757

020574
020574
020576
020600
020604
020610
020614

12%

JSR
BR
NOP
EMT
JSR
JMP

14%:

044540

16$

JSR
.WORD
. WORD
BR
NCP
EMT
JSR
JMP

13%:

057766

13-28

JMP

EMT
JSR
JMP

12%:

11:43:28 PAGE

JSR
.WORD

$BASE ,RO

054130

:SCOPE CALL
;START OF TEST

;INITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS

s TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

020630
020632

000404
000240

BR
NOP

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI'' OR 'PIP'" IS SET
;VERIFY RECALIBRATION
;GO TO 1% IF NO ERROR

JRETURN HERE [F ERROR

'Sflflflau RMOS/3/2 FCINL

INNIBIT

INTERRUPT TEST

020634
020636

000137

021142

113702
042702
011204
016205
012712
012762
113703
042703
012746
012746
010346
005316

001272

760 020642
761 020642

762
763
764
765
766

020646
020652
020654
020660
020664

767 020672

768
769
770
771
772

020676
020702
020706
020712
020714

773 020716
776 020720

775 020722

776 020726

777 020732
778 020734

779 020740

780

781

TST
1

020744

020752
020760
020766

020772
020774
020776
021000

782 021004
783 021004
784 021010
785 021014
786
787 221016
788 021020
789
790 021022

021030
021036

01044
021050
021052
021054

104000

MACRO v04.00

EMT

112737
112737

012737
004737
000404
000240
104000
000137

004737
012703
000002

1%:

000002

177400

000300
021134

012737
004737
000404
000240
104000

DEC
BPL

177437

021070
021016
042624
000000
000200
000115
043160

001543
001544
001410

MOVB
MOVB
MoV

3%:

043522
000205

021142
000205

012712
005303

021104

001543
001544
001410

13-29

5¢%:

6%:
7%:

8%:

$VECT1,R2

#~(<377> ,R2
(R2) ,R4

d(RZ).RS

#8%, (R2)
#PR6,2(R2)

$VECT1+1,R3
#~C<377>,R3
#PR6E,=(SP)
#12%,~(SP)
R3,-(SP)
(SP)

JERROR # DEFINED BY TSTPRP SUBROUT
INE

;GO TO 13% IF ERROR

;sR2 = INTERRUPT ADDRESS

sCLEAR” SIGN EXTENSION
;SAVE HANDLER ADDRESS
;SAVE HANDLER PRIORITY
;WRITE HANDLER ADDRESS AND

;PRIORITY FOR

THIS

TEST

;R3 = INTERRUPT LEVEL

:CLEAR SIGN EXTENSION

. sPUSH #PR6 ON STACK

;:PUSH #12% ON STACK
;;PUSH R3 ON STACK

(SP)
#*CPR7,(SP)

#6%,-(SP)

R3,-(SP)
#4%,-(SP)

PC.GETSTS

:;PUSH #6$ ON STACK

;PUSH R3 ON STACK
::PUSH #4$ ON STACK
;SETUP TO READ ALL REGISTERS

#RMCS1,PUT
INX
#200,PUTINX+1

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
#OFFSET!GO!IE,RMCS10
;SET RMCS1 OUTPUT BUFFER = OFFSET:!GO!IE
PC.PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE
3%
;GO TO 3% IF NO ERROR
JRETURN HERE IF ERROR
-ERROR DEFINED BY PUT SUBROUTINE

;GO TO 13% IF ERROR

JSR
MOV

PC, TIMOUT
#205,R3

;WAIT

DEC
BPL

R3
4%

;DELAY

MOVB
MOVB
MOV

H#RMCS1,PUTINX

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMCS1 OUTPUT BUFFER = NOP
;GO WRITE RMCS1 VIA PUT SUBROUTINE
;GO TO 5% IF NO ERROR
;RETURN HERE IF ERROR
SERROR DEFINED BY PUT SUBROUTINE

EMT
JMP
MOV
RTI

#200,PUTINX+1

A#NOP ,RMCS10
PC,PUT

138
#205,R3

DEC
BrL

#9%, (R2)
R3
7%

tmP
tMP

(SP)+,(SP)+

MOV

RT!

G$:

13%

JSR
BR
NOP

000007
022626
022626

JSR
BR
NOP
EMT
JMP

RTI

4%:

000000
000200
000000
043160

CLR
BIC
MOV
MoV
MOV
JSR

021142

000137
012703
000002

100376

MOvVB
BIC
MOV
MOV
MOV
MOV
MOvB
BIC

MOV
MOV
MOV

005303
100376
112737
112737

JMP

177400

000002
021102
000300
001273

11:43:¢8 PAGE

SEQ 011

100001

005016
042716
012746
010346
012746
004737

4-APR-B1

FOR GO = 0

;R3 = GROSS TIMER

;GO TO 13% IF ERROR

;NO ERROR
(SP)+,(SP)+

;ADJUST STACK
;ADJUST STACK

4-APR-81

11:4%:¢28 PAGE

012716
000002

021114

MOV

2108, (SP)

004737
000404
000240

042710

JSR
BR
NOP
EMT
JMP

PC,GET
1%

EMT

252

MoV
MOV

R4, (R2)

104000

000137

RT!

021142

11%:

104252

010412
010562

9
1 3-30

12%:

000002

13%:

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GC TO 118 IF NO ERROR

sRETURN HERE

ERRDR

sERROR # DEFINED BY GET SUBROUTINE

138

GO TO 13% IF ERROR

R5,2(R2)

':ttttttttt'ttlttttttttttt"tt'ttttlitttttttitttiit

oo
£SO

il
Sl

OSSN
NN

s < i~

Sl el ot sl i

s
e 5%

jole]
nonro

—_—

Wno

[ s

soleoleololeeole)
nonoronorornorn

LRTEST 26

ttt*itltt""'

RETURN TO CENTERLINE

TEST

::ttttttt*ttttti'fi't*it"ttttttttttttt.ttktttt*tttt'tfit-ttt

000004
000240
012706
013700
013701
012737

004737
054130

TS726:

001100
001276
001464
000026

.ttii'

SCOPE

NOP
MOV
MOV
MOV
MOV

001226

041650

JSR
.WORD

:SCOPE CALL
#STACK
, SP

$BASE ,RO

TSTQUE ,R1
#26,$TESTN
PC,TSTPRP

054130

;START OF

TEST

JINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS

:(R1) = DEVICE BEING TESTED
;sSET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE
-

000404
000240

—

o
o

Oc 0o

104000

000137

021464

112737
112737

000000
000200
000017
043160

012737
004737
000404
000240
104000
000137 021464
004737 042624
004737 043522

820 21276
821 0 1276

004737
000404
000240
104000
000137

042710

004737

043706

001543
001544
001410

1%:

BR
NOP
EMT
JMP
MOVB
MOVB

MoV

JSR
BR
NOP
EMT

2%:

#RMCS1,PUTINX

sRECALIBRATE IF ''SKI''
OR 'PIP''
IS SFT
;VERIFY RECALIBRATION
;GO TO 1$ IF NO ERROR
JRETURN HERE IF ERROR
SERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 9% IF ERROR

#RTC!GO,RMCS10
PC.PUT

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMCS1 OUTPUT BUFFER = RTC!GO
;GO WRITE RMCS1 VIA PUT SUBROUTINE

;RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
:G0 TO 9% IF ERROR

#200,PUTINX+1
2%

PC,GETSTS
PC.TIMOUT

JSR
B8R

PC.GET

EMT

3%:

JSR
JSR

NOP

021464

JMP

JSR

PC,PRIERR

;GO TO 2% IF NO ERROR

;SETUP FOR STATUS FETCH
;WAIT FOR RECAL TO COMPLETE

;GO READ REGISTER(S) WITH GET SUBRCUT INE

;G0 TO 3% IF NO ERROR
;JRETURN- HERE

IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 9% IF ERROR

;GO CHECK FOR PRIMARY ERRORS

(»]

MACRO v04.00C

RMOS/3/2 FCINL TST 1
INHIBIT INTERRUPT TEST

CZRMMBO RMOS/3/2 FCINL TST 1
FACRO v04.00
RETURN TO CENTERL
126
INE TEST

021302 000405
021304
000240
021306 104000
221310 004736
021312 000137 021464
822 021316 032737 000001
823 021324
C01411
824 021326 005037 001140
825 021332 013737 001346
826 021340 042737 177776
104157
827 021346
828 021350 032737
100000
829 0213
,
001012
830 02136
13737 001346
831 021366 042737 077777
832 021374
012737 100000
833 021402
104171
834 021404
835 021404
004737 050400
021410 115760
021412
000010
021414 000405
021416
000240
104000
021420
021422
004736
021424 000137 021464
836 021430
837 021430 004737 057766
021434
000405
021436 000240
021440
104000
021442 004736
021444 000137 021464
838 021450
839 021450 004737 044540
021454
000403
021456 000240
104000
021460
021462 004736
840 021464
841
842

001346

4-APR-81

BR
NOP
EMT
JSR
JMP
BIT
BEQ
CLR
MOV
BIC
EMT
BIT
BNE
MOV
BIC
MoV
EMT

4%:

5%:

001142
001142
001140
6%:

7%:

8%:

843

021466
021470
021474
021500
021504

844 021512

021516

004737
054130

041650

#0M,RMDS
I

5%
$GDDAT

RMDS
I, $BDDAT

#*C0M, $BDDAT

:3£g§§r MODE OFF 22

1GOOD DATA FOR TYPEOUT
*BAD DATA FOR TYPEOUT

157

#ATA,RMDS

6%
RMDSI, $BDDAT

#*CATA,$BDDAT
qé{A,SGDDAT

;veg'eTTENTION SET

*BAD DATA FOR TYPEOUT
;GOOD DATA FOR TYPEOUT

;GO TO 9% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,STCDRVSTS

;GO CHECK FOR CHANGES IN DRIVE STATUS
;GO TO 8% IF NO ERROR

PC,a(SP)+

;CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1

sMASK FOR RMERZ

;GO TO 7% IF NO ERROR

;RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
.GO BACK FOR MORE ERROR CHECKS

JRETURN HERE

PC.a(SP)+
9%

PC,SECERR

PC,a(SP)+

ERROR

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

;GO TO 9% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

;GO TO 9% IF NO ERROR
;RETURN HERE IF ERROR
;ERRCR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MCRE ERROR CHECKS
iit‘t

TSYZ?

001100
001276
001464
000027

PC,a(SP)+

tfit*ttttttittt*tltitt‘t"*fi*ttttttt',ttttti*tt‘fitttttttttt

000004
000240
012705
013700
013701
012737

;GO _TO 4% IF NO ERROR

SJRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUT
INE
;GO BACK FOR MORE ERROR CHE(CKS
;GO TO 9% IF ERROR

PC,CMPERRSTS
NDTMSK
DPE

JSR
BR
NOP
EMT
JSR

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

*TEST 27

021464
021464

13-31

SEG 0114

001142
001142

001346

11:43:28 PAGE

001226

READ

IN PRESET

TEST

R sy
e
2222222222200

SCOPE
NOP
MoV
MoV
MOV
Mov
JSR
.WORD

: SCOPE CALL
#STACK,
SP

;START OF TEST
sINITIALIZE STACK POINTER

TSTQUE ,R1
#27 ,STESTN

;;SET TEST NUMBER IN APT MAIL BOX

$BASE ,RO

PC,TSTPRP

054130

;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED

;PREPARE DEVICE FOR TEST

sTASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

VOLUME NOT

VALID

“

’

CZRMMBO RMO5/3/2 FCTNL
127
READ [N PRESET

MACRO v04.00

4-APR=-81

11:43:28 PAGE

13-32
SEQ 0115

;VERIFY PACK ACKNOWLEDGE

021520
021522
021524
021526
845 021532
846 021532
847 021536
848 021542
849 021546
850 021552
851 021556
852 021562
853 021570
854 021576
855 021604
856 021612
021616
021620
021622
021624
857 021630
858 021634
859
860 021640
021644
021646
021650
021652
861 021656
862 021656
021662
021664
021666
021670
021672
863 021676
864 021704
865 021712
866 021714
867 021720
868 021722
869 021726
870 021730
871 021736
872 021742
873 021744
874 021750
875 021752
876 021760

877 021764

878 021766
879 021766
021772
021774

022046

001543
000006
000034
000032
000000
000200
177777
177777

016200
000021
043160

004737

042710

004737
000405
000240
104000
004736
000137
013737
042737

043706

022046
001366
161577

005037

001140

005737
001406
013737
005037
104161
005737
001406
013737
005037
104162

001342

104160

004737
115760

00010

BR
NOP
EMT
JMP

00141
00144
001442
001410

022046

MOVB
MOVB
MOV

#RMCST, (R2) +

MOV
MOV
JSR
BR

3%:

NOP
EMT
JMP
JSR
JSR

001342
001140

5%:

001142

001370
001370
0011740
050400

6%:

001142
7%:

#RIP!GO,RMCS10

PC.PUT

108

PC,GETSTS
PC,TIMOUT

PC,PRIERR
43

JSR
.WORD
.WORD

ERROR

;R2 POINTS TO INDEX TARLE

#200, (R2) +

JSR
BR

TST
BEQ
MOV
CLR
EMT
TST
BEQ
MoV
CLR
EMT

#-1,RMDAO
#-1,RMDCO
#FMT16!ECI'HCI!OFD,RMOFO

PC,GET

EMT
JSR
JMP
MOV
BIC
BEQ
CLR
EMT

JRETURN HERE

#RMOF , (R2)
+

JSR
BR
NOP
EMT
JMP

~ NOP

4%:

108

;ERROR # DEF INED BY TSTPRP SUBROUT INE
;GO TO 10% IF ERROR

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

MOV

2%:

JRECALIBRATE IF "'SKI'*
OR 'PIP'"
|S SET
JVERIFY RECALIBRATION
;GO TO 1$ IF NO ERROR

MOV
MOVB

MOvVB
MOVB

022046
042624
043522

004737
000404
000240
104000
000137

001403

1%:

108

PC,a(SP)+
108

;Ls WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 2% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT INE
;GO TO 108 IF ERROR
;SETUP FOR STATUS FETCH

;WAIT FOR RIP TC COMPLETE

;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO _TO 3% IF NO ERROR
sRETURN HERE IF ERROR

sERROR # DEFINED BY GET SUBROUT INE

;GO TO 108 IF ERROR

;GO CHECK FOR PRIMARY ERRORS

;GO TO 4% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHE(KS

;GO TO 108 IF ERROR

RMOF
1, $BDDAT
. 1S RMOF RESET??
H*C<FMT16!ECI'HCI!OFD>,$BDDAT
341 1
5%

$GDDAT
160

;GOOD DATA FOR TYPEOUT

RMDA

:$ES$@DA RESET??

RMDAI
, $BDDAT
$GDDAT
161
RMDCI
7%
RMDCI,$BDDAT
$GDDAT
162

*BAD DATA FOR TYPEOUT

“PC,CMPERRSTS
ND TMSK
DPE

1GOOD DATA FOR TYPEQUT

;IS RMDC RESET??

s¥E3:!
;BAD DATA FOR TYPEOUT

.GOOD DATA FOR TYPEOQUT

s CHECK _ANY ERRORS NOT MASKED
sMASK FOR RMER1

JMASK FOR RMERZ2

’ZRMMBO RMOS5/3/2 FCINL TST 1
READ IN PRESET TEST

021776
022000
022002
022004
022006
880 022012
881 022012
022016
022020
022022
022024
022026
882 022032
883 022032
022036
022040
022042
022044
gg? 022046

000405
000240
104000
004736
000137
004737
000405

000240
104000
004736
000137
004737
000403
000240
104000
004736

MACRO V04.00

4~-APR=-81

M9
11:43:28 PAGE 13-33
SEQ 0116

022046

8%:

057766

022046

9%:

044540

10%:

886

BR
NOP
EMT
JSR
JMP
JSR
BR
NUP
EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR

PC,a(SP)+
108
PC,STCDRVSTS
9%

PC,a(SP)+
108

PC,SECERR
108
PC.a(SP)+

;GO_TO 8% IF NO ERROR
JRETURN HERE IF ERROR
:ERROR # DEF INED BY CMPERRSTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 108 IF ERROR
;GO CHECK FOR CHANGES IN DRIVE STATUS
;GO _TO 9% IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEFINED BY STCDRVSTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 10$ IF ERROR

;GO CHECK FOR SECONDARY ERRORS
:GO_TO 108 IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

Q'.t'tt*fiitt'..'fi.'i'Q"'..Q‘fit.fi'tfittfi.l'iit.fi.'tt'fi'ttttfittt'

'TEST 30

022046
022046
022050
022052
022056
022062
887 022066

000004
000240
012706
013700
013701
012737

888 022074
022100

004737
054130

TST3O

001100
001276
001464
000030

001226

041650

022102
022104
OeciOh
022110
889 022114
890 022114

000404
000240
106000
..
000137 022364
112737

000000

001543

022130
022136
022142
022144
022146
022150
gg} 022154

012737
004737
000404
000240
104000
000137
004737

000015
043160

001410

893 022160
022164
022166

004737
000404
000240

022122

RMDC CLEAR OFFSET TEST

tttttitii'tfi'lt"titl""'tifi..fit"fittt"'t.tt.".'tt'ltltttttttt

112737

000200

022364

042624

042710

...

1%:

001544

SCOPE
NOP
MOV
MOV
MOV
MOV

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

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

JSR
.WORD

PC,TSTPRP
054130

;PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:

BR
NOP
.
JMP

MOVB

#RMCS1,PUTINX

MoV
JSR
BR
NOP
EMT
JMP
JSR

#OFFSET !GO,RMCS10 ;SET RMCS1 OUTPUT BUFFER = OFFSET!GO
PC,PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE
2%
;GO _TO 2% IF NO ERROR
*RETURN HERE IF ERROR
sERROR DEFINED BY PUT SUBROUTINE
8%
;GO TO 8% IF ERROR
PC,GETSTS
;SETUP FOR STATUS

JSR
BR
NOP

PC,GET
3%

MOvB

2%:

#200,PUTINX+1

;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'' OR ‘PIP'' IS SET
:VERIFY RECALIBRATION
;GO _TO 1$ IF NU ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 8% IF ERROR
;SETUP PUT INDEX TABLE

;SET TERMINATOR BYTE

;GO READ REGISTER(S) WITH GET SUBPOUTINE
;GO _TO 3% IF NO ERROR
JRETURN HERE IF ERROR

!
¢

rggweo RMOS5/3/2 FCINL
RMDC

[}

{

CLEAR OFFSET

022170
022172

894 022176
895 022176
022202
022204
022206

.
I
i
~

022210
022212
896 022216
897 022224

898 022226

899 022234
900 022242
901 022250
902 022252
903 022254
904 022254
022262
022270
022276
022302
022304
022306
208 ogsg;g

906

TST
1

022314
022320
022322
022324
022326
90/ 022332
908 022340
909 022342

910 022350
911 022356
91% 022362

g}‘ 022364

104000
000137
004737
000405
000240
104000

004736
000137
032737
001013

013737

TEST

(022364
000001

001346

001142

112737
112737
012737
004737
000404
000240
104000
000137

000034
000200
000000
043160

005037
104253

3%:

043706

177776
000001

4%:

001543
001544
001444

5%:

042710

022364
000001

001346

001142

7%:

001142

8%:

915

EMT
JMP
JSR
BR
NOP
EMT
JSR
JMP
BIT
BNE

MOV

001142
001140

022364

177776
001140

4-APP-81

N 9
11:43:28 PAGE 13-34
SEQ 0117

(22364

042737
012737
104156
000444

004737
000404
000240
104000
000137
032737
001411
013737
042737

MACRO V04.00

8%
PC,PRIERR
43

PC,a(SP)+
8%
#0M,RMDS |
5%

RMDS I, $BDDAT

BIC
MOV
EMT
BR

#~COM,$BDDAT
#0M,$GDDAT
156
8%

MOVR
MOVB
MOV
JSR
BR
NOP
EMT
JMP

#RMDC ,PUT INX
#200,PUTINX+1
#0,RMDCO
PC,PUT
6%

R
SR
NOP
EMT
JMP
BIT
BEQ
MoV

PC,GET
7%

, BIC
(LR
EMT

8%
#0M,RMDS |
8%
)
RMDS] ,$BDDAT =~
#~COM, $BDDAT
$GDDAT
253

;ERROR # DEFINED BY GET SUBROUT INE
;GO TO 8% IF ERROR
;GO CHECK FOR PRIMARY ERRORS
;GO TO 4% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS
;GO TO 8% IF ERROR
;OFFSET ON??
;YES
;BAD DATA FOR TYPEOQUT

;GOOD DATA FOR TYPEOUT
;SKIP REST OF

TEST

:
;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMDC OUTPUT BUFFER'
= 0
;GO WRITE RMDC VIA PUT SUBROUTINE
;GO TO 6% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;GO TO 8% IF ERROR
;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
;GO TO 8% IF ERROR
;DID OFFSET MODE RESET??

;BAD DATA FOR TYPEOUT
;GOOD DATA FOR TYPEOQUT

tttittttttttttttttttt'tttttt*ttttttttt*tttttttt*ttitttttttttttt

-TEST 31

022364
052
022366
022370

000004
000240
012706

001100

022400
- 022404

013701
012737

001464
000031

917 022412

004737

041650

022420
Q2 452

000404
000240

022376

022416

022424
022426

ILLEGAL FUNCTION TEST

tttttl'ttttttttttttttttt'ttttttttfiittttt**tt*tttttttttttttttttt'

r5731

013700 001276

040000

104000
000137

023150

001226

SCOPE
NOP
MOV

_#STACK,SP

:SCOPE CALL
;START OF TEST
;INITIALIZE STACK POINTER

Mov / " SBASE,RO
MOV
MOV

TSTQUE ,R1
#31,8TESTN

RO = UNIBUS ADDRESS

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

BR
NOP

.WORD

EM7
JMP

040000

'
138

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

:TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
;GO TC 1% IF NO ERROR
;RETURN HERE IF,ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
GO TO 13% IF ERROR

RMOS/3/72 FCTINL TST 1
ILLEGAL FUNCTION TEST
918 022432

919 022622
520 022436

921 022642
922 022642
022446
022450
022452
022454

004737
012702

(62624
J0000C

004737

052264

000C24
000200
000001
043160

022466
022474
022502
022506
022510
022512
022514
G528 022520

000024
000200
001401

022534
022542
022546
022550
022552
022554

043160

000000
000200
000023

022574

968 022714
945 022720

3s:

001543

SSETUP FOR STATUS

JSR
8r
NOP

PC,INTCLR

;GO ISSUE C(ONTROLLER CLEAR

IMp

138

JRETURN HERE IF ERROR
;ERROR NUMBER DEF INED BY SUBROUTINE
;GO TO 138 IF ERROR

043160

000001
001410
103274

177777

001416
001444
010000
001543

MOV
w0vR

001434

001543

A ¥

001544

00143

ONOP _R2
33

;G0 TO 3% IF NO ERROR

5%:

001543

001414
001412

001442

,PUT INX

#200,PUTINX+1

MCVB
MOVB
MOV

FRMMR1, PUT INX
sSETUP PUT INDEX TABLE
#200,PUTINX+1
;SET TERMINATOR BYTE
#DMD
' MUR IMOC ,RMMR10
;SET RMMR1 OUTPUT BUFFER = DMD!MUR 'MOC
PC.PUT
;GO WRITE RMMR1 VIA PUT SUBROUT INE

&R
NOP
Emr
JMp

MOVE

sSETUP PUT INDEX TAHLE
;SET TERMINATOR BYTE

#DMD ,RMMR 10

PC
. PUT

138

MOV
JSR
Br
NOP
EMT
JMP

MOv
8IS

MOV
MCv
CLR
(LR
Mov
MOV
]
MOvBe
MOVR
MOvB
movB

MOvVS
MovB

;SET RMMR1 OUTPUT BUFFER = DMD

;GO WRITE RMMRiT VIA PUT SUBROUT INE
;GO TO 4% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUT INE

;GO TO 13% IF ERROR

;GO TO 5% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUTINE
:GO TO 13% IF ERROR

138

sSET VGL*WVALID BEFORE

001544
001410

001410

SRMMR

MOV
/SR
NOP
EMT
P

JSR

023150

012737
050237
012737

< CYLINDER

001544

0¢3150

930 022560
931
932
933 0225460
022566

947 022710

PC,GETSTS

gEmT

023150

929 022520
022526

966 022704

2%:

JSR
MOV

sSET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON

9¢7 022460

936 022626
937 022632
938 022640
939 022646
960 022652
961 022656
942 022664
963 022670
944 022674
945 022700

's:

02315¢C

923 022460
924
925

934 022620
935 022620

MAIRD v0&.00 4-APR-B1 11:43:28 PAGE8119—35

ISSUING FUNCTION CODE BEING TiSTED

#RM(CST ,PUT INX
:SETUP PUT INDEX TA3LE
#200,PUT INX+1
:SET TERMINATOR BYTE
#PAKAC
!GO, RMCSK
10
;SET RMCST OUTPUT BUFFER =
PL,PUT

68
13%
#GG,RMCST10

R2,RM(CS10

#BUF ONE ,RMBAD

#-1_,RMWCO

RMDAO
RMDCO
#FMT16,RMOF
O
#PINX
UT
,R3
#RMBA
, (R3) +
#RMWC
, (R3) +
#RMOF
, (R3) +

#RMDA, (R3) +

#RMDC, (R3)+
#RMCST, (R3)+
#200, (R3)

;GO WRITE RMCS1 VIA PUT SUBROUTINE
;GO TO 6% IF NO ERROR

JRETURN HERE

ERROR

;ERROR DEF INED BY PUT SUBROUT INE

;GO TO 138 [F ERROR

;WRITE
;DUMMY
;DUMMY
;CLEAR
;CLEAR

FUNCTION CODE IN BUFFER
BUS ADDRESS
WORD COUNT
DISK ADDRESS
CYLINDER ADDRESS

;16 BIT FORMAT
;WRITE REGISTER INDEX TABLE

PAKACK !GO

CZRMMBO RMOS5/3/2 FCTINL

TST

ILLEGAL FUNCTION TEST

350 022726

004737

022730
022732

000404
000240

02273

000137

022734

106000

043527

953 022746

004737

042710

022756

022760

954 022764
955 022764

022770

022772
022776
022776

104000

000137

023150

004737

043706

000405

JSR

c10

17:03:08 PAGE

173§

pC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUT
INE

ISR

138

PC,TIMOUT

16O TO 138 IF ERROR

ISR

PCLUET

;GO READ REGISTER(S) WITH GET SUBROUT
INE

B8R
NOP
EMT

7%:

JMP

B8R
NOP
EMT

8%
:

000240

104000
004736

L=APReBT

SEQ 0119

023150

004737

000404
000240

,04.00

(43160

ggz 022762

022752
022754

MACRO

JMP
JSR

:FRROR # DEF INED BY PUT SUBROUTINE

SWAIT FOR GO TO RESET

:GO TO 88 IF NO ERROR
*RETURN MERE IF ERROR

138

:GO TO 138 IF ERROR

PC.PRIERR

EMT
ISR

PC,a(SP)e

NOP

:G0 TO 7$ IF NO ERROR
*RETURN HERE IF ERROR

:ERROR # DEFINED BY GET SUBROUTINE

;GO CHECK FOR PRIMARY ERRORS

G0 TO 9% IF NO ERROR

*RETURN MERE IF ERROR

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

023000
956 023004

000137
016237

023150
067136

001140

958 023020

013737

001350

001142

MOV

13§
:GO TO 138 IF ERROR
FNCDTB(R2) ,$GDDAT
SGET ENTRY FROM FUNCTION (ODE TABLE
#~CILF ,SGDDAT
RMERT].$BDDAT
:BAD DATA FOR TYPEOUT

960 023034

023737

001140

001142

CMP

SGDDAT.$BDDAT

067136

001140

957 023012

959 023026

961 023042
962 023044

042737

(071402
104254

177776

963 023046

000440

965 023056
966 023064

032737
001403

040000

042737

077777

964 023050

016237

001140

001142

0071346

967 023066

052737

969 023102

013737

001346

007142

971 023116
972 023124
973 023126

023737
001402
104255

001140

007 142

062702
022702
103402

000002
000076

968 023074

970 023110

974 023130

975 023132
976 023136
977 023142

978 023144

979 023150
980

042737

000407

000137

100000

077777

9%:

0071140

001140

BEQ
_EMT
108:

11$:

B8R

MOV

BIT
BEQ

BIS
BIC

MOV
BIC

MP
BEC
EMT

128:

138:

981

BIC

81C

0071142

022442

mMP
MOV

ADD
MP
BLO

JMP

;IS ILF STATUS CORRECT?

SYES!!

138

FNCDTB(R2) ,$GDDAT

#ERR,RMDS |
118

#ATA,$GDDAT

#~CATA,SGDDAT

;WAS AN ERROR DETECTED??
*NO!!
,

“YES = ATA SHOULD BE ON

RMDS],$8DDAT

:GET DRIVE'S ATTENTION

$GDDAT.SBDDAT
128
255

;1S ATA STATUS 0K??
TYES!!

#2,R2
#10F76.R2
138

;GO TO NEXT FUNCTION CODE
*DONE
22

#~CATA,SBDDAT

138

SYES

)

“TEST NEXT FUNCTION

INVALID COMMAND TEST

"""..'"""'.....'.".".'."'.'.'Q'l.."t".'..'.'Q""Q"'

T5132:

023150
023152
023154
023160
023164
o 023170

000004
000240
012706
013700
013701
012737

001100
001276
0071464
000032

983 023176

004737

041650

023202

108
254

"""..'..'..""...'.".'..'...'.."'.'.'."'.Q......".'.'."".

LLTEST 32

023150

#*CILF ,$BDDAT

040000

001226

Q'.

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$RASE , RO
TSTQUE R
#32, $TESTN

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

JSR

PC,

:PREPARE

.WoRD

TSTPRP

040000

DEVICE

FOR

TEST

STASK DESCRIPTOR AS FOLLOWS:

’Rmao RMOS/3/2 FCINL

INVALID COMMAND

023204
023206
023210

TST

TEST

986 023222

987 023226
988 023226

023232
02323
023236

023240

ggg 023244

004737

042624

004737

052264

012702

000404
000240
104000

000137

D10

11:42:28 PAGE

1337
SEQ 012

8r
NOP
EM?
_

000000

JMP

18:

ISR

28:

,
PC,GETSTS

JSR

PCLCNTCLR

JMP

28:

138

P, R2

EMT

023¢74

‘MOV

B8R
NOP

39;12

138

;CLEAR CONTROLLER & SELECT DEVICE
“GO TO 18 IF NO ERROR
RETURN HERE [F ERROR
:ERROR # DEF INED BY TSTPRP SUBROUTINE

“GO 10 138 IF ERROR

;SETUP FOR STATUS
;GO ISSUE CONTROLLER CLEAR

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

:ERROR NUMBER DEF INED BY SUBROUT INE

‘GO 7O 13% IF ERROR

"3“12,},23“05”‘ MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON

993 023244

023252

112737

000024

001543

000007

001434

000200

023260

012737

023272
023274

000404
000240

023300

000137

023674

112737
112737

000024
000200

023266

023276

994 023304
995 023304
023312

023320

023326

023332
023334

02333
023340

996 023344
997
998

737 043160

104000

012737

001401

043160

104000
000137

023674

1001 023344

001543
001544

4$:

MOV

#DMD - RMMR 10

8R
NOP

4“8

GO TO 4$ IF NC ERROR
*RETURN HERE IF ERROR

IMP

138

*GO TO 138 IF ERROR

MOVE
MOVE
MOV

#RMMR1,PUTINX
:SETUP PUT INDEX TABLE
#200.PUTINX+1
:SET TERMINATOR BYTE
#DMD 'MUR IMO(C ,RMMR10
;SET RMMR1 OUTPUT BUFFER = DMD'MUR'M0C

B8R
NOP

JSR

5g:

EMT
Mp

#200,PUTINX+1

PC,PUT

PC,PUT
138

:SETUP PUT INDEX TABLE

-SET TERMINATOR BYTE

:SET RMMR1 OUTPUT BUFFER = DMD

:GO WRITE RMMRT VIA PUT SUBROUT INE

*ERROR DEF INED BY PUT SUBROUTINE

;GO WRITE RMMR1 VIA PUT SUBROUTINE

:GO TO 58 IF NO ERROR
‘RETURN HERE IF ERROR

*ERROR DEF INED BY PUT SUBROUTINE
*GO TO 13% IF ERROR

;VOLUME VALID IS (EFT RESET FOR THE TEST

000001
001410

001410

1005 023364
1006 023372
1007 023376

012737
005037
005037

177777
001416
001444

001412

1009 023410

012703

1016 02344
1017 023450

112713
004737

023414
02320
0234264
023430
023434
023440

#RMMR1,PUTINX

JSR

00143

012737
050237

1008 023402

MOVE

EMT

1002 023344
1003 023352

1004 023356

MOVE

004737

(000404
000240

sCyL

0J1544

1010
1011
1012
1013
1014
1015

4=APR=B1

000406
000240
104002

023212 000137 023674

984 023216
985 023216

MACRO v04.00

012737

103274

012737

010000

112723
112723
112723
112723
112723
112723

000004
000002
000032
000006
000034
000000

001543

000200
043160

001414

001442

£$:

MOV
BIS
MOV

moy/
cm
(LR

MOV

MOVR
MOVB
MOVB
MOVB
MOVE
MOVE

MOVR
JSR

#GC,RMCS10
R2.AMCS10

o8
;WRITE FUNCTION CODE IN BUFFER

#=1,RMW(O
RMDAD
2MDCO

*DUMMY WORD COUNT
*CLEAR DISK ADDRESS
*CLEAR CYLINDER ADDRESS

#PUTINX ,R3

‘WRITE REGISTER INDEX TABLE

#200,(R3)
P(,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUT INE

#BUFONE ,RMBAO

#FMT16,RMOFO

#RMBA, (R3)+
#RMWC
. (R3)+
#RMOF
. (R3)+
#RMDA. (R3)+
#RMDC
. (R3)+
AWRMCST,(R3)+

:DUMMY BUS ADDRESS

-16 BIT FORMAT

”R'NBO RMOS/3/2 FOINL

INVALID COMMAND TEST

023454
023456
023460
023462
38}3 023466

000404
000240
1040600
000137
004737

023674
043522

1020 023472

004737

062710

023476
023500
023502
0235064
1021 023510
1022 023510

004737

023516
023520
023522

000240
104000
004736

023514

023524

1023 023530
1024 023536

1025 023544
1026 023552
1027 023560

1028 023566

1029 023570

1030 023572

1031

023576

1033
1036
1035
1036

023610
023612
023620
023626

1032 023602

1037 023634

1038 023642

1039 023650

1040 023652

1041 023654

1042 023656
1043 023662

1064 023666
1045 02367C

1066 023674
1067

000404
000240
104000
000137

000405

000137

016237
042737

013737
042737
023737

001402

MACRO

001376
167777
001140

’%:

042706

067136
167777

016237

032737

001403
052737
042737
013737

001140
001140

G%:

001142
001142
001142

042737

023737

001402

067136

0071140

100000
077777
001346

3
001140
001140
001142

040000

077777

001140

062702
022702

103402
000137

138
oC, 11MOUT

JSR

PC,GE?

BR
NOP
EMT
IMP

001346

10%:

118:

001142

000002
000076

023226

138

Bt 023714

1050 023722

023726

;GO READ REGISTER(S) WITH GET

SUBROUTINE

;GO CHECK FOR PRIMARY ERRORS

NOP
EMT
ISR

PC,a(SP)+

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

MOV
BIC

ENCDTB(R?) ,$GDDAT
#-C1vC,$GDDAT

13§

RMER2],$BDDAT
#C1v(.$BDDAT
$GDDAT ,$8DDAT

108

:G0 TO 9% IF NO ERROK

:GO TO 13% IF ERROR

;IS

Moy

FNCDTB(R2)
, $GDDAT

BEQ
BIS
BIC
MGV

STATUS CORRECT?

138

RERR ,RMDS |

;WAS AN ERROR DETECTED??

1%
#ATA,SGDDAT
#-CATA,SGDDAT
RMDS],$BDDAT

;GET DRIVE'S ATTENTION

$GDDAT,$BDDAT

;IS ATA STATUS OK??

BI¢

#~CATA, SBDDAT

BEQ

12%

EMT

255

ADD
CMP

82 R
#IF75.R2

B8R

IVC

Z¥ES !

216

8I7

JGET ENTRY FROM FUNCTION CODE

;BAD DATA FOR TYPEOUT

EMT

B8R

138

80138
JMP
28

INO!!
SYES - ATA SHOULD BE ON

SYES!!

;GO TO NEXT FUNCTION CODE
*DONE??

SYES
STEST NEXT FUNCTION

: '.!t.tQ"'."'tl...'Q'"'t.'...'..t...t.tt.lt't"'ttt""t't‘ti

SeTEST 33

023676
023700
023704
023710

;G0 TO 7% IF NO ERROR
“RETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUT INE
GO TO 138 IF ERROR
‘WAIT FOR GO TO RESET

P(,PRIERR

JSR

TMP

128:

138

BEC

001142

10‘8

023674
023674

13-38

:GO TO 88 IF NO ERROR
‘RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
“GO TO 138 IF ERROR

MOV
8IC
(MP

104255

000407

E 10

11:43:¢8 PAGE

8R
NOP
EMT
JMP
JSR

B8R

104216

000440

4=-APR-B1

SEQ 0121

023674

v04.00

INVALID ADDRESS ERROR TEST

"'.'."QQ"'.t'.'..t'."'.'!'.'..".'.‘.fl".'fi'l.t.'tt‘.".

ilf"t

Ter33.

000004

(00240
012706
013700
013701

001100
001276
001464

012737

000033

004737

041650

040000

001226

SCOPE

NOP
MOV
MOV
MOV

:SCOPE CALL

#STACK, SP
$BASE ,RO
TSTQUE LR

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

MOV

#33,$TESTN

*:SET TEST NUMBER IN APT MAIL BOX

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

.WORD

040000

*TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE

TARLE

1058
1056

V04,00

TES?

4=APReBT

000406
000240

000137

024464

004737
012702

042624
000000

004737

052264

gmr

PAGE

13-39
;GO TO 18 If NO ERROR
JRETURN HERE If ERROR

JERROR # DEFINED BY TSTPRP SUBROUT
INE

JMP

JSR
MOy

PC,GETSTS
#NOP ,R2

JSETUP FOR STATUS

J3R
8R
NOP

PCLINTCLR

;GO ISSUE

138

EmT

026464

F
17:43:/8

GO TO 13% IF ERROR

104000

NOP

023730
023732
023734
023736
1051 023742
1052 023742
1053 023746
1054 023752
1055 023752
023756
023760
023762
023764
1056 023770
1057

MACRD

YWBO RM0S/372 FCINL 1ST.7
INVALID ADDRESS ERRUR

({3

CONTROLLER (lEAR

:GO T0 3$ IF NO ERROR
JRETURN HERE

ERROR

;ERROR NUMBER DEF INED BY SUBROUT INE

;GO TO 13% [F ERROR

JSET aéggNOSYKC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON

1060 023770

023776

v24004
024012
024016
024020
024022
024024
1061 024030
1062 024030
024036
024044
024052
024056
024060
024062
024064
1063 024070

1065

1066 024070

024076
024104
026112
24116
026120
024122
024124
1067 026130
1068 024130
1069 024136
1070 024142
1071 024150

1072 024156
1073 024164
1074 024172
1075 02420C
1076 024204
1077 024210
1078 024214

112737
112737
012737
004737
000404
000240

000024
000200
0C0001
0643160

00137

0246464

112737

000024
000200
001401
043160

104000

112737

012737
004737

000137

Coad6é

112737

000000
000200
000023
063160

112737

012737
004737

001543
001544
001434

103274
177777
177777
177777

010000
001543
000004
006002
00003¢

MOVR
MOVR
MOV
JSR
B8R
NOP
EmT

00715432
001544
001634

5%:

001543

001544

001410

JMP

MG VR
MCVE
MCy

SR
8K
NCP
EMmY
IME

001410

001414

001412

001416
001444

001442

#RMMR? ,PUTINX

;SETUP PUT

#DMD ,RMMR 10
PL,PUT

;SET RMMR1 OUTPUT BUFFER = DMD
;GO WRITE RMMR1 VIA PUT SUBROUTINE

#20C ,PUT INX+1

INDEX TABLE

;SET TERMINATOR BYTE

;GO

2
138

JRETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUT INE
;GO TO 13% IF ERROR

SRMMRT ,PUTINX

;SETUP PUT

TO 4%

NO ERROR

INDEX TABLE

#200,PUTINX+1
:SET TERMINATOR BYTE
#DMD ! MUR I MOC ,RMMR10
:SET RMMR1 OUTPUT BUFFER = DMD!MUR !MOC
PL.PUT

;GO WRITE RMMR1

VIA PUT

SUBROUT INE

;GO TO 5% IF NO ERROR

138

;ERROR DEF INED BY PUT SUBROUTINE
;GO TO 138 IF ERROR

;JRETURN HERE IF ERROR

;ST vOL:

€ VALID BEFORE [SSUING FUNCTION CODE BEING TESTED
#]MCST ,PUTINX®
MO/B
;SETUP PUT INDEX TABLE
MCVR
#200,PUT INX+1
;SET TERMINATOR BYTE
FPAKALK !GO,RM(S10
MOy
;SET RMCST OUTPUT BUFFER = PAKA(K !GO
JSR
P( . PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE
B8R
31
;GO TO 6% IF NO ERROR
NOP
gEmM7
imMp

026464

000001
001410

sCvLl

MCv
BIS
MOV
MOY
MOV
MOV

MOV

MOVR
MGYR
MO VA

RETURN HERE

13%
#G0O,RM(S10

R2,RM(CS10

#8UF
ONE ,RMBAO

_#=1_,RMW(O
#-1 _,RMDAQO

#-1,RMDCC
#FMT16,RMOF O

#PUT INX ,R3

ARMBA, (R3) +
BRM
, (R3)
W(
+
BRM
, (R3)
OF
+

ERROR

;ERROR DEF INED BY PUT SUBROUTINE
;GO TO 13% IF ERROR

JWRITE FUNCTION CODE

;DUMMY BUS ADDRESS

IN BUFFER

;DUMMY WORD COUNT
JUSE INVALID DISK ADDRESS

JUSE INVALID CYLINDER ADDRESS
;16 BIT FORMAT

JWRITE REGISTER INDEX TARLE

"?MHBV RMOS/3/2 FCTNL

IST 1

MATROD

L ADDRESS ERROR TEST
INVAID

1079
024220
1080 024204
1081 024230

1083 024240
026244
024246
024250
024252
1086 024262
026266
024270
024272
026274
1087 024300

0642770

1085

1052 024342
1093 024350

109 024356

1095
1096
1097
1098

1
1
1

eolelele]

o
n
~
&~
no

1
1
1

bwunu—*CflSOb‘uE\niz o
W

099 024400

—o—a—.—o—a.ad-a—l—a-—l—a-—a-..-)

024360
024362
024364
024372

e &

MOVE
MOVR

pC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUT
INE

;GO TO 78 IF NO ERROR

:RETURN HERE

oC, 7 IMOuT

. SR
5R

PC,GET
8%

&$s:

04370€

JMP

:WAIT FOR GO TO RESET

;GO READ REGISTER(S) WITH GET SUBROUT
INE
;GO TO 8% IF NO ERROR
;RETURN HERE IF ERROR

*ERROR # DEF INED BY GET SUBROUT INE
;GO TO 138 IF ERROR

13%
9%

;GO CHECK FOR PRIMARY ERRORS

:GO TO 9% IF NO ERROR

JRETURN HERE IF ERROR

£EmM7

024464

067136

175777

001350

175777

001140

001140
001140
00114

9% :

&8I

00174,

000002
000076

000137

023752

067136
040000

001140

100000

001140
001140
001142
001142

077777
001346
077777
001140

001346

BI{

MOV

go11/”

Cmp

106217

000440
016237
032737
001403
052737
042737
013737
042737
023737
001402
104255
000407
062702
022702

JSR
JMP
MCV

1908%:

17¢:

001142

213e]
EmMr
B8R

MGV

81T
BEC

BIS
8iC
MOy
BIC

(TMMpP

BEQ
EmT

138%:

ADD

CMF

8LC
JMP

ERROR

;GO TO 13% IF ERROR

P{,PRIERR

ER
NOFP

JERROR # DEFINED BY PUT SUBR0UTINE

JMP
SR

EMT

104000

103402

13=40

£EMT

026464

004736
000137
016237
042737
013737
042737
023737
001402

G 10
PAGE

BRMDA, (R3)+
BRMDC,(R3)
«
BRM(ST, (R3)+
#200, (R3)

MOVR

NOP

004737
000405
000240

17:43:28

SEG

024464

043522

1090 024326
1091 024334

L=AFR=BT

NGP

1086 026256

004304
624306
024310
024312
024314
1089 024320

000006
(00034
000000
000200
043160

1082 $24234

1088 (24300

;ERROR # DEF INED BY PRIERR SUBROUT
NE

C,a(SP)e

;GO BACK _FOR MORE ERROR CHECKS

13§

;GO TO 13% IF ERROR
FNCDYB'RZ) iGDDAT
;GET ENTRY FROM FUNCTION CODE
#~( JAE,$GDDAT
RMER1]
. $BDDAT

#*C]AE ,$BDDAT
$GDDAT ,$BDDAT
10%
217
13s

;BAD DATA FOR TYPEOQUT

: 1S IAE STATUS CORRECT?
I¥ESY!

FNCDTB(RZ) ,$GDDAT

#ERR ,RMDS |

1%
#ATA,SGDDAT
#*CATA,$GDDAT
RMDSI,$BDDAT

#°CATA SBCDAT
$GDDAT ,$BDDAT

12%
255
138

&2 ,R2
BILF76,RC

13%

:NSS AN ERROR DETECTED??

:NO.

:YES =

ATA

SHOULD BE

;GET DRIVE'S ATTENTION
;1S ATA STATUS 0K??

E¥RLSS

;GO TO NEXT FUNCTION CODE
sDONE??
SXES - ]

TEST NEXT

FUNCTION

'.'""t..!...t.."'..""'t".Q'....'......".'t.'.."""!

i"'l'

JeTEST

WwRITE LOCK ERROR TEST

. '.l"Q'.'l'.".""""Q""I'...'..'..Q'..""'Q'!'t"i
".""

15134

SCOPE
NOF
MOV

#STACK ,SP

MOV

R?
TSTQUE

MOy

;SCOPE

$8A5E RO

CALL

:STARV OF TEST
JINITIALIZE STACK POINTER

y 2RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED

TABLE

“JRMMBO RMOS5/3/2 FCINL ST 1
WRITE LOCK ERROR TEST

—=OVx Ny

NN
—a -2 2

" QO P

e
e

1123

01273%?

000034

MOV

#34,8TESIN

0264512

004737
040000

047650

JSR
. wORD

PC . 1STPRP

024520
024522
024524
024526
024532
024532
024536
024542
024542
0246546
024550
024552
024554
024560

000404
000240

8R
NOP

nono

2
—t

S
Y

1126 024560

024566
024574
024602
024606
024610
024612
024614
024620
024620
024626
024634

N ANAW NN

)

il v

024642
024646
0¢4650
024652
024654
024660

H 10
11:43:
R PAGE 13-4
SEG

104000

024660
024666
024674
024702
024706
024710
024712
024714
024720
024720
024726
024732
024740
024746
U246752

040000

#NOP,R2

004737
000404
000240

052264

JSR
8RR
NOP
EMT
JMP

BC,INTCLR

C12737
004737
000404
000240
104000

000024
20200
000001
043160

000137

025250

112737
112737

000024
000200
001411
043160

012737
004737
000404
000240
104000

000137

001543
001544
001434

001543
001544
00143

000000
000200
000023
043160

4%:

025250

000001
001410

103274
177777

001416
001444

001410

C01474
001472

;GO ISSUE

CONTROLLER CLEAR

;GO TO 3% IF NO ERROR

;RETURN HERE

ERROR

;ERROR NUMBER DEF INED BY SUBROUT INE

13%

;GO

TO 138

ERROR

MOVB
MOVB
MOV
JSR
- Br
NOP
EMT
JMP

#RMMRT ,PUTINX
#200,PUT INX+1

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE

PL,PUT

;GO WRITE RMMR1

VIA PUT SUBROUTINE

JRETURN HERE

ERROR

138

sERROR DEF INED BY PUT SUBROUTINE
;GO TO 13% IF ERROR

MCVE
MOVR

#RMMRT ,PUTINX
#200 ,PUT INX+1

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE

JSR
B8R

PC,PUT

;GO WRITE RMMR1

MCyv

5%:

001543
001544
001470

ERROR

sSET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON
sCYLINDER, AND DIAGNOSTIC WRITE LOCK

NOP

025250

;SETUP FOR STATUS

MOV

112737
112737

TEST

PCLGETSTS

062624
000000

FOR

13%

004737
012702

025250

DEVICE

“TASK DESCRIPTOR AS FOLLOWS:

;ERROR # DEFINED BY TSTPRP SUBROUT
INF
;GO TO 138 IF ERROR

iMP

000137

;PREPARE

:GO TO 1% IF NO ERROR

025250

104000

JRETURN HERE

000137

JSR

JiSET TEST NUMBER IN APT MAIL ROX

:CLEAR CONTROLLER & SELECT DEVICE

EMT

1126
1125

ol
el el

4=APR-B!

024504
024516

1122

08,00

EMT
JMP

#DMD ,RMMR 10

RMMR1

OUTPUT BUFFER =

DMD

;GO TO 4% IF NO ERROR

;

#DMD | MUR 'MOC !MWP,RMMR10 -SET RMMR1

OUTPUT BUFFER = DMD'M
'MOC UR
! MWP

VIA PUT SUBROUT INE

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

;ERROR DEF INED BY PUT SUBROUT INE
;GO TO 13% IF ERROR

138

;5ET VOLUME VALID BEFORE

ISSUING FUNCTION CODE BEING TESTED

MOVR
MOVR

#RMCST,PUTINX

JSR
8k
NOP
EMT

PC.,PUT

MOV

;SET

#200,PUT INX+1

;SETUP PUT

#PAKACK !GO,RMCS10

INDEX

TABLE

;SET TERMINATOR BYTE
;SET

RMCST

OUTPUT BUFFER

JMP

138

;GO TO 6% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUTINE
;GO TO 13% IF ERROR

MOV

#GO,RM(S10
RZ,RM(S10

JWRITE

BIS
MOV
MoV
(LR
(LR

#BUFONE ,RMBAO

#-1,RMWCO
RMDAQ
RMDCO

.GO WRITE RMCS1 VIA PUT SUBROUTINE

FUNCTION CODE

;DUMMY BUS ADDRESS

sDUMMY WORC COUNT
;CLEAR DISK ADDRESS

;CLEAR

IN BUFFFR

(YL INDER ADDRESS

PAKACK !GO

01724

~MMBu RMOS/3/2 FZINL

von

<>;fi;*uoflkaun»~<><Nb~u8§ng;xhu—égiux*QOwn

VIV NN

—~ .2

D e
il

el o el e
il e

il el e ek o el

NNNNNNNNOO

et el

)

it = B e
il ol ol

el ot ol ot B

Bt il o

il el ol
el

s il

025134
025142
025144
025146
925150
025156
025164
025166
025174
025202
025210
025216
025224
025226
025230
025232
025236
025242
025244
0¢5250

Tl ol ol

025046
025052
025054
$25056
025060
025064
025064
025070
025072
025074
025076
025100
025104
025112
025120
025126

TEST

012737

010000
001543
000004

703

NNNNNN N~

RC v04.00

001442

MOV

MOVB

000002

025259
043522

004737
000404
000240

062710

000137

025250

004737
0920405
000240

04370€

104000

MOVB

78:

025250
067136

173777

001350

173777

001140

001140
001140
001142
001142
001142

3%:

100000

077777
001346
077777
001140

001140

001346
001140
001140
001142
001142
00114¢

000002
000076

000137

024542

103402

EmMT
JMP

13%

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 8% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBRCUTINE
;GO TO 13% IF ERROR

PC,PRIERR
3%

;GO0 CHECK FOR PRIMARY ERRORS
;GO TO 9% IF NO FRROR
ERROR

GO BACK

FOR MORE

ERROR

(HECKS

138
;GO TO 13% IF ERROR
FNCDTB(RZ2) ,$GDDAT
JGET ENTRY FROM FUNCTION CODE

#*CWLE ,$GDDAT

RMER1],$BDDAT

#*°CWLE ,$BDDAT

$GDDAT ,$SEDDAT
108

220

;BAD DATA FOR TYPEOQUT

;IS WLE STATUS CORRECT?

>¥ES!

13%
*NCDTB(RZ2) ,$GDDAT

#ERR ,RMDS |

;WAS

118

#ATA,SGDDAT

RMDSI ,$BDDAT

;GET DRIVE"'S ATTENTION

SGDDAT ,$BDDAT

;IS ATA STATUS 0k??

#*CATA,SBDDAT

12%

255

13%

B8R

#2,R2
RILF76,R2

ADD

CMP

IYES = ;}A SHOULD BE ON
ok

SYES
!

;G0 TO NEXT FUNCTION CODE
.DONE??

138
2%

8L0
JMP

AN ERROR DETECTED”

JNO!!

#*CATA,SGDDAT

BI(
MOV
BIC
(MP
8EQ

13%:

;ERROR # DEFINED BY PRIERR SUBROUTINE

PC, a(SP)o

BEQ
8IS

12%:

UAXT FOR GO TO RESET

;RETURN HERE

EMmMT

062702
022702

ERROR

JERROR # DEFINED BY PUT SUBROUT INE
;GO TO 13% IF ERROR

PC.GET
8%

BR
MOV
_BIT

11%:

WITH PUT SUBROUTINE

JSR
B8R

8iC
(MP
BEQ

104255

000407

RETURN HERE

13%

MOV
8I¢
MOV

:
108

;GO TO 7% IF NO ERROR

TAR(F

PC,TIMOUT

EMT

067136
040000

;G0 WRITE

INDEX

JMP
JSk

JSR
BR
NOP
EMT
JSR
JMP

104220

000440
016237
032737
001403
052737
042737
013737
042737
023737
001402

#RMDA, (R3)+
ARMDC, (R3)
HRM(ST,(R3)
#200,(R3)
P{ ,PUT

NOP

B%:

FORMAT

JWRITE REGISTFR

EMT

104000

004736
000137
016237
042737
013737
042737
023737
001402

;16 BIT

#PUTINX,R3

ARMBA, (R3)«
ARMW
, (R3)+
(
BRMO
, (R3)+
F

MOVB
MOVR
MOVR
MOVB
MOVR
JSR
8R
NOP

000034
000000
000200
04316C

13=42

#EMT16,RMOF

MOV

000032
000006

000137
004737

11:4%2B
: PAGE

L=APR=Z1

1,¥]

=88

8O W==raronon) ala¥
[@
P
~N WWWWWWW

a a O

-l il ol ol —

R A LAY LA AN T T N TN

Ot bbb

024756
024764
1142 024770
1143 024774
1144 025000
1145 025004
1146 025010
1147 025014
025020
1149 025024
025030
025032
025034
025036
025042
11‘0

1‘1‘1

LOCK ERROR

(@]

WRITE

TST

FYES !
JTEST NEXT FUNCTION

'."."'Q".".'t..'.."'Q"t'.fi"'Q""..Q..'.'t"'fi."t."t"'"

SRTEST
SRR

025250

15138

R RN

ERRCR ABORT
R

AR R

R R RN R R

R R I

TESTS
R R A RN

PR RN

PR AR

R AR RN

PRI P AN

IR AR

TABLE

CZRMMBO RMOS/3/2 FCTINL T5T
b
, ERROR ABQRT TESTS

025250
02525¢
025256
025260
025264
1181 025270

000004
000240
012706
013700
013701
012737

1182 025276
025302

004737
05613%0

901iCH
001276
001464
000035

MATRD

04,00

4-4PR-B1

J 10

17:43:28 PAGE

13-

13-43
SEQ 012¢

;

L
CO(C:22¢

041650

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$BASE RO
TSTQUE ,R1
#35,8TESTN

JSR
. wORD

PC,TSTPRP
054130

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

;PREPARE DEVICE FOR TEST
. TASK DESCRIPTOR AS FOI.LOWS:
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

VOLUME NOT

;JVERIFY PACK ACKNOWLEDGE
JRECALIBRATE

025306
025306
025310
025312
;;gg 025316
1185

025316

000404
000240
104000
000137

025602

004737

042624

1]89 852%52

012702

000000

1188 025326

004737

052264

025332
025334
025336
025340

1189 025344

1190 025344

025352
025360

025366

025372
025374
025376
025400

1191 025404
1192 025404

1193 02541¢
1194 025416
1195 025424

1196 025432

1197 025440
1198 025446
1199 025454

1200 025460
1201 025464
1202 025470
1203 025474
1204 025500

000404
000240
104000
000137
112737

112737
012737

000137

025602

012737

000001

050237
012737
012737

012737

012737
012737
012703
112723
112723
112723
112723
112723

112713

112723

1207 025514

004737

025520

(00402

001543

000200 -001544
040000 001424

043160

- 1205 025504

1206 025510

000014

001410
103274
177777

000000

000000
010000
001543

000004
000002
000032

i 3
33

001410

Q01414
001412

001416

001444
001442

JSR

;GO TO GETSTS SUBROUTINE

;JR2 = FUNCTION CODE

JSR

PC,CNTCLR

;GO ISSUE

B8R
NOP
EMT
JMP

MOVR

9%
#RMER1 ,PUTINX

;SETUP PUT INDEX TABLE

#200,PUTINX+1
#UNS ,RMER1Q

BR
NOP
EMT

JMP

MOV

#GO,RMCS10

BIS
MOV
MOV

MOV

MOV
MOV
MOV

PC,PUT

;GO WRITE RMER1 VIA PUY SUBROUTINE

;GO TO 4% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;GO TO 9% IF ERROR

JWRITE FUNCTION CODE
.DUMMY BUS ADDRESS
;DUMMY WORD COUNT

#0 ,RMDCO
#FMT16,RMOFO
#PUTINX ,R3

;CLEAR CYLINDER ADDRESS
:16 BIT FORMAT
JWRITE REGISTER INDEX TABLE

#0 ,RMDAO

(000200

MOVB

#200, (R3)

JSR

;SET TERMINATOR BYTE
;SET RMER1 OUTPUT BUFFER = UNS

R2,RMCS10
#BUF ONE ,RMBAC
#-1_,RMW(O

#RMDA, (R3) +
#RMDC, (R3)+

MOVB

CONTROLLER CLEAR

;G0 TO 3% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY CNTCLR SUBROUTINE
;GO TO 9% IF ERROR

MOVR
MOV
JSR

A ¥

PC,GETSTS

#NOP ,R2

000006
000034
043160

;GO TO 1$ IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUT INF
;GO TO 9% IF ERROR

MOV

MOVR
MOVB
MOVR
MOVBR
MOVB

000000

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

;VERIFY RECALIBRATION

JSETUP GET INDEX TABLE TO READ ALL REGISTERS

025602

004737

000404
000240
104000

1%:

BR
NOP
EMT
JMP

VALID

#RMBA
, (R3) +
#RMWC, (R3)+
#RMOF
, (R3) +

IN BUFFER

;CLEAR DISK ADDRESS

#RMCST,(R3)+

PC,PUT

;GO WRITE REGISTER(S) WITH PUT

;GO T0 5% IF NO ERROR

SURROUT INE

’

rZRWBO RMOS/3/2 FCINL TST
'
ERROR ABORT TESTS

025522

0255264
;lggg 025526

NOP

1212 025532
025536
025540
025542
025544

004737
000404
000240
104000
000137

0462710

025602

004737

043706

1215 C25570
1216 025570

1217 025570
1218 025574
1219 025600

1220 025602
1221

062702
022702
103252

;RETURN HERE IF ERROR

EMT

5%:
043522

000405
000240
104000
004736
000137

K 10
11:43:78 PAGE 13-44
SEQ 0127

104000

004737

025554
025556
025560
025562
025564

4<-4PR=B1

000240

1210
1211 025526

1213 025550
1214 025550

MA(RD V04.00

swAIT FOR (OMMAND TO COMPLETE
JSR
PC,TIMOUT

6$:

025602
000002
000076

1222

PC,GET
6%

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 6% IF NO ERROR
RETURN HERE IF ERROR
:ERROR # DEF INED BY GET SUBROUT INE
;GO TO 9% IF ERROR

JSR

PC,PRIERR

;GO CHECK FOR PRIMARY ERRORS

ADD
(MP
BHIS

9%:
R

A A R R R

025602
025602
025604
025606
025612
025616
1223 025622

000004
000240
012706
013700
013701
012737

001100
001276
001464
000036

1224 025630

004737

TST36:

PC,a(SP)+
9%

;GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
GO BACK FOR MORE ERROR CHECKS
;GO TO 9% IF ERROR

#2 ,R2
#ILF76,R2
2%

;ADVANCE FUNCTION CODE
;DONE ALL COMMANDS
NO L2

R P RN R R I R R P N R R AN AR AR AR R AR R R AR AR R AN N RN R AN R AR R A AR

RMR TEST

SeTEST 36

;GO TO TIMOUT SUBROUTINE

JSR
8k
NOP
EmMT
JMP

8R
NOP
EmMT
JSR
JMP

7%:
8S:

;ERROR # DEFINED BY PUT SURROUT INE

R R A T R RN R

TR TR

RN N

N P

R R A R A RN R A AR

AR AR

AR AR R AR RN

AR R TN

SCOPE
NOP
MOV
MOV
MOV
MOV

RSTACK ,SP
$BASE RO
TSTQUE ,R1
#36,8TESTN

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

041650

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

104000
000137
:

L
026242

B8R
NCP
EMT
JMP

025650

004737

(42624

1229 025654
025662
025670
025676
025702
025704
025706
025710

112737
112737
012737
004737
000404
000240
104000
000137

000024
000200
000001
043160

025634

025636
25640

025642
025644
11352 025650
1227

1228 025654

040000

000404
000240

(026242

00122¢

.WORD

i$:

001543
001544
001434

040000

:
s

;TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
;GO TO 1% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 11% IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TU GETSTS SUBROUTINE
2%:
MOvVB
#RMMRT,PUTINX ;St 7.
PUT INDEX TABLE
MOVR
#200,PUT INX+1
;SET TERMINATOR BYTE
MOV
#DMD ,RMMR 10
;sSET wMMR1 QUTPUT BUFFER = DMD

JSR
BR
NOP
EMT
JMP

PC,PUT
b4 1
118

;GO WRITE RMMR1 VIA PUT SUBROUTINE
;GO TO 3% IF NO ERROR
JRETURN HERE IF ERROR
JERROR DEFINED BY PUT SUBROUT INE
;GO TO 118 IF ERROR

CZRMMBO RMOS/372 FCINL

136

RMR

TEST

12 30 025714

1231 025714

112737
025722
112737
025730 012737
025736 004737
025742> 000404
025744
000240
025746
104000
025750 000137
025754
112737
025754
025762
112737
025770 012737
025776 004737
026002 000404
026004
000240
026006
104000
026010
000137
1234 026014
1235 C26014
004737
026020 000404
026022
000240
026024
104000
026026
000137
1236 026032
1237 026032
000240
1238 026036
112737
112737
026042
026050 012737
026056 004737
026062
000404
026064
000240
026066
104000
026070
000137
1239 026074
1240 026074
112737
026102
112737
012737
026110
026116
004737
026122 000404
026124 000240
026126
104000
026130 000137
1241 026134
1242 026134
112737
026142
112737
026150 012737
026156 004737
026162 000404
026164 000240
026166
104000
026170 000137
1243 026174
1244 026174
004737
026200 000404
026202 000240
026204
104000

MACRO v04.00

4-APR-B81

11:43:¢8 PAGE

10
13-45
SEC 0128

C0002¢4
000200
001401
043160

001543
001544
001434

026242

001543
001544

043160

3s:

A ¥

MOvVB
mMOvB

026242

042710

000024
000200
041401
043160

6£%:

001543
001544
001434

026242
000000
000200
000001
043160

001543
001544
001410

026242

000000
000200
000015
043160

026242

042710

001543
001544
001410

7%:

EMT
JMP

NOP
MOvB
MOVB
MOV
JSR
B8R
NOP
EMT
JMP
MOVB
MovB
MOV
JSR
BR
NOP

g%:

PC,PUT

;GO WRITE RMMRT VIA PUT SUBROUT INE

MOVR

NOP

EMT
JMP

MOVB
MOvB
MOV
JSR
BR
NOP
EMT
JMP

JSR
BR
NOP
EMT

INDEX TABLE

:SET TERMINATOR BYTE

#DMD | MUR | MOC , RMMR 10

JSR
8R

026242

:SETUP PUT

#200,PUTINX+1.

MOV
JSR
BR
NOP
EMT
JMP

MOvVB
MCV
JSR
BR
NOP
EMT?
MR

001410

#RMMR1,PUTINX

:SET KMMR1 OUTPUT BUFFER = DMD 'MUR 'MOC

:GO TO 4$ IF NO ERROR
*RETURN HERE IF ERROR

118

GO TO 118 IF ERROR

#RMCS1,PUTINX

;SETUP PUT

:ERROR DEF INED BY PUT SUBROUT
INE

#200,PUTINX+1

:SET

#PAKACK ! GO,RMCS10

PC.PUT

INDEX

TABLE

TERMINATOR BYTE
:SET RMCST

OUTPUT BUFFER =

;GO WRITE RMCS1

VIA PUT SUBROUTINE

*RETURN HERE

ERROR

:GO TO 58 IF NO ERROR
IF

:ERROR DEF INED BY PUT SUBROUT INE

118

:GO T0 118 IF

PC,GET

;GO READ REGISTER(S)

ERROR

:GO TO 6% IF NO ERROR

WITH GET

:RETURN HERE

IF ERROR

118

“GO TO 118 IF

ERROR

#RMMR1,PUTINX

:SETUP PUT

SUBROUT INE

;ERROR # DEF INED BY GET SUBROUTINE

#200,PUTINX+1

INDEX TABLE

;SET TERMINATOR BYTE

#DMD ' MUR | MOC ! DBEN, RMMR 10

PC,PUT
7$

:SET RMMRT

OUTPUT BUFFER = DMD'MUR'MOC
' DREN

;GO WRITE RMMRT VIA PUT SUBROUT INE
GO TO 7$ IF NO ERROR

sRETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUT INE

118

;GO TO 118 IF ERROR

#RMCS1,PUTINX

;SETUP PUT

#NOP!GO,RMCS10
PC,PUT

;SET RMCS1 OUTPUT BUFFER = NOP!GO
;GO WRITE RMCS1 VIA PUT SUBROUTINE

#200,PUTINX+1

INDEX TABLE

;SET TERMINATOR BYTE

;GO TO 8% IF NO ERROR

JRETURN HERE

IF ERROR

;ERROR DEF INED BY PUT SUBROUTINE

118

;GO TO 11$ IF ERROR

#RMCS1,PUTINX

;SETUP PUT

INDEX

TABLE

#200,PUTINX+1

;SET TERMINATOR BYTE

PC,PUT
9%

;GO WRITE RMCS1 VIA PUT SUBROUTINE
;GO _TO 9% IF NO ERROR

#OFFSET!GO,RMCS10

108

:SET

RMCS1

JRETURN HERE

;GO TO 118 IF

ERROR

OUTPUT BUFFER = OFFSET!GO

ERROR

;ERROR DEF INED BY PUT SUBRCUTINE

118
PC,GET

PAKACK'GO

;GO READ REGISTER(S)

WITH GET

;GO_TO 108 IF NO ERROR
sRETURN HERE IF ERROR

SUBROUTINE

JERROR # DEFINED BY GET SUBROUTINE

CZRMMBO RMOS/3/2 FCINL

136

RMR TEST

026206
1245 026212

1246 026212

12647 026214

1248 026222

12649 026224
1250 026232

1251 026240

1252 026262

TST

MACRO v04.C0

4=-APR=81

000137
000240

032737

001007

012737
013737

104222

026242
0000064
000004
001350

JMP

108:

817

001140
001142

1256 026270
026274

004737
040000

026276
026300
026302
026304
1257 026310
1258 026310

(000404
000240
104000
000137

026462

012702

000001

004737
000404

052264

026320
026322
026324
026326
1261 026332

026462

1266 026350
1267 026354
1268 026360
1269 026364
}S;? 026370

111103
042703
052703
010337
010237
012703
112723
112723
112723

177770
000020
001420
001416
001543
000010
000006
000200

1272 026374

004737

043160

1262
1263
1264
1265

026332
026334
026340
026344

026400
026402
026404

1273 026406
1274 026406

026412
026414
026416
026420

000402
000240
104000
004737

000404
000240
104000
000137

001226

041650

000240
104000
000137

042710

0Q2€462

1%:
2

2%:

3%:

222

PARITY ERROR

;1S RMR SET ?2?

JYES

JEXPECTED STATUS
;RECEIVED STATUS

22222222

TEST
R

a2t

2222

SCOPE
NOP
MOV
MOV
MOV
MOV

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

JSR
.WORD

PC,TSTPRP
040000

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

BR
NOP
EMT
JMP

3
7%

MOV

#1,R2

;GO TO 1$ IF NO ERROR
sRETURN HERE IF ERROR
-ERROR # DEF INED BY TSTPRP SUBROUT INE
;GO TO. 7% IF ERROR
;R2 = DATA PATTERN

JSR
BR
NOP
EMT
JMP

PC,CNTCLR
3s

MOvVB
BIC
BIS
MoV
MOV
MOV
MOVB
MovVB
MOVB

(R1) ,R3
A#*CUNTMS
,R3
K
#PAT ,R3
R3.RMCS20
R2,RMDAO
#PUTINX ,R3
#RMCSZ2, (R3)+
#RMDA, (R3) +
#200, (R3)+

JSR

48:

#RMR , $GDDAT
RMER1I,$BDDAT

15137

012737

11$

EMT

SeTEST

1285 026262

#RMR ,RMER1]

MOV
MOV
18:

001100
001276
001464
000037

;GO TO 11$ [F ERROR
:

BNE

000004
000240
012706
013700
013701

11%

NOP

001350

1253

1259 026314
1260 026314

13=46

5EQ 0129

1254

026242
026242
026244
026246
026252
026256

M 10

11:43:28 PAGE

PC,PUT

BR
NOP
EMT

JSR

PC,GET

BR
NOP
EMT
JMP

5%
7%

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

;:SET TEST NUMBER IN APT MAIL BOX

;CLEAR CONTROLLER & SELECT DEVICE

;GO ISSUE CONTROLLER CLEAR
;GO TO 38 IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY CNTCLR SUBROUTINE
;GO TO 7% IF ERROR
;SETUP RMCS2
;OUTPUT VALUE TO RMCSZ2

;YALUE TO RMDA
;WRITE REGISTER OUTPUT INDEX

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO _TO 4% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;GO READ REGISTER(S) WITH GET SUBROUT INE

;GO TO 58 IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEF INED BY GET SUBROUTINE
;GO TO 7% IF ERROR

CZRMMBO RMOS/3/2 FCTINL

137

TST

026424
026424
026432
026434
026442
026450
026454
026456
026456
026460
026462

032737
001011
012737
013737
010237
104223

MACRO v04.00

00010

001350

000010
001350

001142

001174

001140

6%:

006302
001315

7%z

000004
000240
012706
013700
013701
012737

1289 026510
026514

004737
040000

026516

000404
000240

104000

N 10

11:43:28 PAGE

13-47

ngR,RHER1I

’$§sp7$"' ERROR SET 27

#PAR,$GDDAT

“EXPECTED STATUS

RMER11,$BDDAT
R2,$TMPO

223

ASL
BNE

*RECEIVED STATUS
*DATA PATTERN
;ADVANCE DATA PATTERN
;BRANCH IF NOT DONE

'."ttttt'.t.'..ttlt"'t"'tt‘.t't'.ttt.'.tt."..

BIT
BNE
MOV
MOV
MOV
EMT

'.‘".'t'fi.!."Q"

S*TEST 40
026462
026462
026464
026466
(26472
026476
026502

290 026530
291 026530
292 026532
293 026536
294 026542
295 026546
296 026554
597 026562

98 026564
299 026564

—_— e

4-APR-B1

5EQ 0130

b e

el d D D o d d e

d o

TN TV
8’\)LS LS LS LS LN NN TN
V\I\JN
& mgmcnoom
VB
WN=O SIS

PARITY ERROR TEST

000137
005005
004737
013746
013746

012737
012737
005002

1$740:
001100
001276
001464
000040

001226

041650

027010
042624
000004
000006
027006
000300
052264

026722

18:

000004
000006
2%:

3%:

050612

027010
042710

4%:

AL A

ILLEGAL REGISTER TEST
S

LSSl

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP

$BASE ,RO

TSTQUE ,R1
#40,8TESTN

JSR
-WORD

PC,TSTPRP

BR
NOP
EMT
JMP

CLR
JSR
MOV
MOV
MOV
MOV

. CLR

JSR
BR
NOP
EMT
JMP
MOV
ADD

CLR
JSR
BR
NOP
EMT
JMP

JSR
B8R
NOP
EmMT

040000

2222222232 22223222222

;SCOPE CALL
;START OF TEST
sINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED

;;SET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE

108

;GO TO 1$ IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 108 IF ERROR

;R5 = EXPECTED STATUS

PC,GETSTS

ERRVEC,=(SP)
ERRVE(+2,-(SP)
#9% ,ERRVEC(
zSR6,ERRVEC‘2

PC,CNTCLR

RO.R3
R2,R3
(R3)

PC,DEVSEL

;SETUP FOR STATUS
. ;PUSH ERRVEC ON STACK
. .PUSH ERRVEC+2 ON STACK
;SETUP FOR BUS TIMEOUT
;R2 = REGISTER INDEX

;GO ISSUE CONTROLLER CLEAR

;GO TO 3% IF NO ERROR

;RETURN HERE IF ERROR
;ERROR NUMBER DEF INED BY SUBROUTINE

;GO TO 7% IF ERROR

;R3 = REGISTER ADDRESS

;CLEAR THE REGISTER
;GO SELECT DEVICE
;GO TO 4% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY DEVSEL SUBROUT INE

108

:GO TO 108 IF ERROR

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUT INE

:GO TO 5% IF NO ERROR
;RETURN HERE

ERROR

SERROR # DEFINED BY GET SUBROUT INE

CIRMMBO RMOS/3/2 FCINL TST 1
el
ILLEGAL REGISTER TEST

FRERRRRY
348

i
s
—

VINW
Vi vV
o Wb

000137

026722

177775
001140

001142
001142
001142

JSR
8R
NOP
EMT
JSR

026736
026742
026750
026754
026760
026764
026770
026772

026776

027002
027004

027006
027010
027010
027014

101314
103420

012705
012760
012702
016003
042703
022703
001402
012702
022702
101402

000092
000050
000002
001400

000054
000050

7%:

000000

177774

000003
000050
000074

8%:

000667

022626

012637
012637

9%:
10%:

000006
000004

GO (HECK FOR PRIMARY ERRORS

;GO TO 6% IF NO ERROR

PC,a(SP)+
7%

JERROR # DEFINED BY PRIERR SUBROUT
INE
G0 BACK FOR MORE ERROR (HECKS
;GO TO 7% IF ERROR

JRETURN HERE IF ERROR

R5,$GDDAT

RM:R1],$BDDAT

sGET DRIVE'S ILR STATUS

ggDDAY.SEDDAT

:IES{ER STATUS 0Kk??

#°CILR,$BDDAT

#2,R2
#50,R2

s INCREMENT THE REGISTER ADDRESS
sTIME TO CHECK THE EXTEND ADDRESS REG

2%
8%

;BRANCH IF NOT
;BRANCH IF ALREADY SF7 UP

#564 R2

;SET ADDRESS TO 54,IF 22 REGISTERS

8177774 ,R3

sLEFT ONLY BIT O AND BIT 1

;BRANCH IF SO

50(R0O) ,R3

#ITO!'BIT1,R3

#50,R2
#74 R2
10%

At Attt

;1S THIS 22 REG RH70 ?

;BIT O AND BIT 1 SET AT THE SAME TIME 2

;OTHERWISE
,SET ADDRESS TO 50
;ALL REGISTERS CHECKED ?
;BRANCH IF SO

JNEXT REGISTER

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

222222222233

2227

SEEK FIRST CYLINDER

"'Qtt'li"'.tttl‘ttttt.""tt".'ttlt"'"ttt.tQttttfifi*t'tt't't't!tt.

TST41:

001100
001276
001464
000001
000041
041650

001206
001226

SCOPE
NOF
MOV
MOV
MOV
MOV
MOV

;SCOPE CALL
;START OF TEST

#STACK ,SP

SJINITIALIZE

TSTQUE ,R1
#1,8TIMES

;(R1) = DEVICE BEING TESTED
;:DO 1 ITERATION

$BASE ,RO

STACK POINTER

;RO = UNIBUS ADDRESS

#461,$TESTN

;:SET TEST NUMBER IN APT MAIL BOX

PC,TSTPRP

;PREPARE DEVICE

1%:
JSR
. WORD

#ILR,RS
JEXCEPT ILR HAPPEND
#A16!A17 ,RMCST(RO)
;SET EXTENDED ADDRESS BITS

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

YRS

.SAVE R2 FOR ERROR DATA

MOV
MOV
AR

ggésTHPO

(SP)+,(SP)+

LSRR

ZRROR

cMP

S*TEST 41

027020
027020
027022
027024

;GO TO 7% If

PC_PRIERR

JMP
MOV
MOV
BIC
CMP
BEQ
MOV
EMT
ADD
CMP
BHI
BLO
MOV
MOV
MOV
MOV
BIC
cMP
BEQ
‘MOV
CMP
BLOS
BR

6%:

8 11

1 1:43:28 PAGE 13-48
7%

JMP

001174

062702
022702

4-APR-81

5%:

043706

026722
001140
001350

eJIF

—.—A-J—I—Q—.—A_j—c—l.-l_.—.—‘-—l—‘—‘-l—-.—l—l—l-—‘—‘-A
W
NN NN NN
NN
oo
N
W N =000 ST NV N IR O
Swno-—=o

026640
1306 026644

MACRO v04.00

054130

FOR

TEST

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

sPACK ACKNOWLEDGE

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
sRECAL IBRATE IF *'SKI'"
OR 'PIP'" IS SET
;VERIFY RECAL IBRATION

CZRMMBO RMOS/3/2 FCTINL TST 1
T4
SEEK FIRST CYLINDER

027062

027064

1360
1361
1362
1363

027066
027070

027074
027074
027102
027110

1364 027116
1365 027122

1366 027126
1367 027132

1368 027136

1369 027142
027146
027150
027152
027154

1370 027160

g;} 027164

1373 027170

027174
027176
027200

027202

1374 027206
1375 027206

027212
027214
027216
027220
027222

1376 027226
1377 027226

027232
027234

027236
027240

027242

1378 027246
1379 027246

000404

027306

012737
012737
012737

000000
9000000
000005

112722
112722

112722

004737
000404
000240
104000
000137

004737

027306

004737

043706

000405
000240

104000
004736

004737

050400

004737
000403
000240

104000
004736

JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 8% IF ERROR

MOV

#0. ,RMDCO

sCYLINDER = 0

MOV
MOV

#0 ,RMI*AQ
sTRACK = 0, SECTOR = 0
#SEEK!GO,RMCS10 ;LOAD SEEK COMMAND IN BUFFER

4%:

5%:

027306
044540

;JR2 POINTS TO REGISTER TABLE
JWRITE REGISTER INDEX TABLE

MOVB

#200, (R2)+

;WRITE

JSR

PC,GETSTS

JSR
BR
NOP
EMT
JMP

:
7%:

8%:

#RMDA, (R2) +
#RMCS1, (R2)+

PC,PUT
3%

TERMINATOR

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 3% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEF INED BY PUT SUBROUTINE
;GO TO 8% IF ERROR

JSR

PC,TIMOUT

JWAIT FOR SEEK TO COMPLETE

JSR

PC.GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

JMP

JSR

PC,PRIERR

;GO CHECK FOR PRIMARY ERRORS

PC,a(SP)+
8%

;GO TO 8% IF ERROR

BR
NOP
EMT
JSR
JMP

;SETUP FOR STATUS FETCH

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

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 8% IF ERROR

;GO TO 5% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

.
;GO VERIFY RESULTS OF SEEK OPERATION

JSR

PC,SEKSTS

EMT
JSR

PC.a(SP)+

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

PC,CMPERRSTS

;CHECK ANY ERRORS NOT MASKED

BR
NOP

6%:

;GO TO 2% !F NO ERROR

JRETURN HERE IF ERROR

#PUT INX ,R2
#RMDC, (R2) +

8R
NOF
EMT

051024

027306

1381 027272
027276
027300

3%:

027306

000137
115760
000010
000405
000240
104000
004736
000137

027302
027304
1382 027306

027306

042624

000137

004737

EMT
JMP

MOVB
MOVB

043160

042710

13-49

MOV
MOVB

000200

004737

000405
000240
104000
004736
000137

c%:

000006
000000

043522

000404
000240
104000

001444
001416
001410

001543
000034

004737

11:43:28 PAGE

NOP

104000
000137

012702
112722

4-APR-B1

SFQ

000240

027252
027254
027256
027260
027262
027264
027266

1380 027272

MACRO v04.00

JMP
JSR

.WORD
.WORD
R
NOP
EMT
JSR
JMP
JSR
BR
NOP
EMT
JSR

NDTMSK
DPE
7%

PC,a(SP)+
8%

PC,SECERR
8%

PC,a(SP)+

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

;GO TO 8% IF ERROR

;MASK FOR RMER1
;MASK FOR RMERZ2
:GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRS1S SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 8% IF ERROR
;GO CHECK FOR SECONDARY ERRORS
;GO TO 8% IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEF INED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

rZRMHBO RMOS5/3/2 FCINL TST 1
42
SEEK LAST CYLINDER

MACRO v04.00

1384

4-APR-81

D 1

11:43:28 PAGE

13-50

...'.t'..tt.'l...".""'......l..' AR

-TEST 42

000004
000240
012706
013700
013701
012737
012737

027346

004737
054130

1400
1401

027456

027462
027464
027466
027470
1402 027474
1403 027474
027500
027502
027504
027506
027510
1404 027514
1405 027514
027520

SEEK LAST CYLINDER

.t"t'ttttt."'

TS 42:

001100
001276
001464
000001
00Q042

#STACK,SP

$BASE ,RO

TSTQUE ,R1
#1,$TIMES
#42 ,8TESTN

001206
001226
1%:

041650

PC,TSTPRP

054130

sSCOPE CALL
;START OF TEST

sINITIALIZE STACK POINTER
RO = UNIBUS ADDRESS

;(R1)

= DEVICE BEING TFSTED

::D0 1 ITERATION
;oSET TEST NUMBER IN APT MAIL BOX
;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

sRECALIBRATE

027350
027352
027354
027356
1388 027362
1389 027362
1390 027370
1391 027376
1392 027404
1393 027410
1394 027414
1395 027420
1396 027424
1397 027430
027434
027436
027440
027442
1398 027446
1399 027452

.t"t".'tt'.'.".tt""'t't.tlt..tt.".""Qtt.

027306
027306
027310
027312
027316
027322
027326
027334

1335
1386 027342
1387 027342

AR R

000404
000240
104000

000137

027574

012737
012737
012737
012702
112722
112722
112722

001466
000000
220005

112722

004737
000404
000240
104000

001543

000034
000006
000000
000200
043160

000137
004737
004737

027574
042624
043522

004737
000404
000240

042710

000137

027574

004737
000405
000240

043706

104000

001444
001416
031410

2%:

004737
000405

027574
051024

MOV
MOV

#822. ,RMDCO

4%:

5%:

;GO TO 8% IF ERROR
sLAST CYLINDER

#0 ,RMDAO

:TRACK = 0,

#200, (R2)+

;WRITE TERMINATOR
;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO TO 3% IF NO ERROR

MOV
MOVB
MOVB
MOvVB

JSR

PC.PUT

NOP
EMT

3%:

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

SECTOR = 0
#SEEK!GO,RMCS10 ;LOAD SEEK COMMAND IN BUFFER
#PUTINX ,R2
:R2 POINTS TO REGISTER TABLE
#RMDC, (R2) +
;WRITE REGISTER INDEX TABLE
#RMDA, (R2) +
ARMCS1,(R2)+

MOvB

104000

004736
000137

BR
NCP
EMT
JMP

:VERIFY RECALIBRATION
;G0 TO 2% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE

JSR
JSR
JSR
ER
NOP
EMT
JMP

PC,GETSTS
PC,TIMOUT
PC,GET

JRETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 8% IF ERROR

sSETUP FOR STATUS FETCH
;WAIT FOR SEEK TO COMPLETE
;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 4% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 8% IF ERROR

PC,PRIERR

;GO CHECK FOR PRIMARY ERRORS

JSR
BR
NOP
EMT
JSR
JMP

;GO TO 8% IF ERROR

JSR
BR

PC,SEKSTS

;GO VERIFY RESULTS OF SEEK OPERATION
;GO TO 6% IF NO ERROR

PC,a(SP)+

;GO _TO 5% IF NO ERROR

JRETURN HERE

ERROR

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

’ZRHMBO RMOS/3/72 FCINL TST 1
SEEK LAST CYLINDER

027522
027524
027526
027530

1406 027534
1407 027534

027540
027542
027544
027546
027559
027552
027554

1408 027560
1409 027560

027564
027566
027570
027572

1410 027574
1411
1412

MACRO v04.00

4-APR-81

SEQ 0134

000249

NOP

104000

004736
007137

027574

004737

050400

115760

027574

044540

8%:
R

PC,CMPERRSTS

ND TMSK
DPE
7%

LRSS R

027574
027574
027576
027600
027604
027610
027614
027622

1413
1414 027630

1415 027636
1416 027636

027642

000004
000240
012706

012737
012737

001100
001276
001464
000002
000043

001 206
001 226

012737

000007

001 444

004737
054130

041650

013700
013701

027644
027646

027650

027652

1617 027656
1418 027656
1419 027664
1620 027672
16421 027676
1422 027702
1423 027706
16264 027712
1425 027716

027722

LS RS

TST43

030106
000000
000005
001543
000034
N00006
000000
000200

043160

ERROR

PC,a(SP)+

;ERROR # DEFINED BY (MPERRSTS SUBROUT
INE
;GO BACK FOR MORE ERROR (MECKS
;GO TO 8% IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

;GO _TO 8% IF NO ERROR

JRETURN HERE

PC.a(SP)+

ARt

IF ERROR

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

2222222222222

SEEK PRIME CYLINDERS
RSl

SCOPE
NOP

1232222222222

2322222222233 1T

MOV
MOV
MOV
MoV

#4535, STESTN

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
::D0 2 ITERATIONS
;oSET TEST NUMBER IN APT MAIL BOX

MOV

#1,RMDCO

sFIRST

JSR
.WORD

PC,TSTPRP

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

MOV

1%:

;MASK FOR RMERZ2

;GO TO 7% IF NO ERROR

S*TEST 43
LA A

;CHECK ANY ERRORS NOT MASKED

:MASK FOR RMER1
JRETURN HERE

JSR
BR
NOP
EMT
JSR

104000

004736

JSR
.WORD
. WORD
BR
NOP
EMT
JSR
JMP

7%:

;ERROR # DEFINED BY SEKSTS SUBROUTINE
2GO BACK FOR MORE ERROR (HECKS
;GO TO 8% IF ERROR

PC,a(SP)+

JMP

104000

004737
000403
00C240

JRETURN HERE [F ERROR

EMT
JSR

000010
000405
000240
004736
000137

ENn

11:43:28 PAGE 13-51

BR
NOP
EMT
JMP
MOV
MoV
MOV
MOvB
MOVB
MOVB
MOVB

JSR
BR

#STACK
, SP

$BASE, RO

TSTQUE ,R1
#2,$TIMES

054130

2%
9%

CYLINDER =

;CLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI'' OR 'PIP"’ IS SET
;VERIFY RECALIBRATION
;GO TO 2% IF NO ERROR
;JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 9% IF ERROR

#0 ,RMDAC
;TRACK = 0, SECTOR = 0
#SEEK !GO,RMCS10 ;LOAD SEEK COMMAND IN BUFFER
#PUTINX ,R2
;R2 POINTS TO REGISTER TABLE
#RMDC, (RZ) +
;WRITE REGISTER INDEX TABLE
#RMDA, (R2) +
#RMCST, (R2)+
#200, (R2) +
;WRITE TERMINATOR
PC,PUT
;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO TO 3% IF NO ERROR

’ZQ“FBO RM05/3/2 FCINL TST 1
SEEK PRIME CYLINDERS

027724
027726
027730
1426 027734
14627 027734
1428 027740

1429
1630 027744

027750
027752
027754
027756
1431 027762
1432 027762
027766
027770
027772

027774
027776
1433 030002
1434 030002
030006
030010
030012
030014
030016
1435 030022
1436 030022
030026
030030
030032
030034
030036
030040
030042
1437 030046

1438 030046

030052
030054
030056
030060

1439

1440
1441

1442

1443
1444

MACRO v04.00

11:43:28 PAGE

13-52
SEQ

000240
1040C0

4-APR-81
NOP
EMT
JMP

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 9% IF ERROR

000137

030106

004737
004737

042624
043522

JSR
JSR

PC,GETSTS
PC,TIMOUT

;SETUP FOR STATUS FETCH
;WAIT FOR SEEK TO COMPLETE

004737
000404
000240

042710

PC,GET
4%

000137

030106

JSR
BR
NOP
EMT

JMP

:GO READ REGISTER(S) WITH GET SUBROUT INF
;GO 70 4% IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY GET SUBROUT INE

004737
000405
000240

043706

JSR
BR

PC,PRIERR
5%

104000

pe.

NOP

104000

004736
000137
004737
000405
000240
104000
004736
000137
004737
115760
000010
000405
000240
104000
004736
000137

004737
000405
000240

EMT

030106
051024

030106

JSR

044540

006337
022737

001444
001000

027636

ERROR

;ERROR # DEFINED BY PRIERR SUBROUT INE

;GO BACK FOR MORE ERROR (HECKS

JSR
BR
NOP

PC,SEXSTS
6%

JMP

;GO VERIFY RESULTS OF SEEK OPERATION
;GO TO 6% IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 9%

JSR

PC,CMPERRSTS

sCHECK ANY ERRORS NGT MASKED

EMT
JSR

PC,a(SP)+

NDTMSK
DPE
7%

JSR
JMP

PC,a(SP)+
9%

JSR
BR
NOP
EMT
JSR

PC,SECERR
8%

JMP

ASL

001444

JRETURN HERE

PC,a(SP)+

EMT

;GO CHECK FOR PRIMARY ERRORS
;GO TO 5% IF NO ERROR

NOP

030106

JMP

.WORD
.WORD
BR

030106

1445
1446

050400

104000
004736
000137

103402
000137

;GO TO 9% IF ERROR

CMP
BLO
JMP

PC,a{SP)+

;GO TO 9% IF ERROR

;GO0 CHECK FOR SECONDARY ERRORS
;GO TO 8% IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHE(KS

;GO TO 9%

RMDCO

sSHIFT

ERROR

;MASK FOR RMER1
;MASK FOR RMERZ2
;GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 9% IF ERROR

#512. ,RMDCO
9%

ERROR

TO NEXT PRIME

;IS THE TEST DONE??
:¥ES
!
;GO DO NEXT

CYLINDER

'"ttt!t.tttlt.tttfittt"t"'ti'*!tifi'ttit"'l"t!..'..t.."'ttt'..

S*TEST 44
R

000004
000240
012706
013700

SEEK ZERO DIFFERENCE

YST44

SCOPE
NOP

MOV
MOV

#STACK,SP
$BASE ,RO

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS

013¢

CIRMMBO OMOS5/3/2 FCTNL TST 1
SEEK ZERO DIFFERENCE

T44

1647

030122
030126

1448 03C134

1445 030134

030140

013701
012737

004737
054130

001464

(00046

MACRO v04.00

001226

4-APR-81

11:43:¢8 PAGE

MOV
MOV

TSTQUE ,R1
#44 ,STESTN

;(R1)
s;SET

JER
.WORD

054130

PC,TSTFRP

;PREPARE

041650

1453
1454
1455
1456
1457
1458

030406

012703
012737
012737
012737
012702
112722
112722
112722
112722

000003
000000
0C0000
000005
001543
000006
000034
000000
000200

004737
000404
000240

043160

000137
004737
004737

030406
042624
043522

004737
000404
000240

042710

JSR

030406

NOP
EMT
JMP

C30166
030174
030202
030206
030272
030216

1459 030222

1460 030226
1461 030226

030232
030234
030236
030240

1462 030244
1463 030250
1464
1465 030254

104000

030260
030262
030264
030266

104000
000137

030276
030300
030302
030304
030306

004737
000405
000240
104000
004736
000137

1466 030272
1467 030272

1468 030312

1469 030312

004737
000405
000240

= DEVICE BEING TESTED
TEST NUMBER IN APT MAIL

2%:
001444
001416
0014170

5%:

043706

030406

6%:

051024

DEVICE

FOR

030406

004737

050600~

——

7%:

TEST

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
IF

VOLUME NOT

;GO _TO 2% IF NO ERROR

JMP

108

;GO TO 10% IF

MoV
MOV
MoV
MOV
MOV
MOVB
MOVB
MOVB
MovB

#3,R3
#0,RMDCO

;R3 = NUMBER OF
sCYLINDER = 0

#RMDA , (R2) +

SWRITE REGISTER INDEX TABLE

:R2 POINTS

TO REGISTER

#200, (R2) +

s TERMINATE

TABLE

JSR

PC,PUT

#0 ,RMDAO

#RMDC, (R2) +
#RMCST, (R2) +

NOP
EMT
JMP
JSR
JSR

JSR
BR
NOP
EMT
JSR
JMP

JSR
BR

EMT
JSR
JMP
JSR
.WORD

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

SEEKS

;TRACK = 0, SECTOR = 0

#SEEK !GO,RMCS10 ;FUNCTION CODE FOR SEEK

#PUTINX ,R2

VALID

;VERIFY PACK ACKNOWLEDGE
;RECAL IBRATE IF ‘'SKI'*
OR "PIP'" IS SET
;VERIFY RECALIBRATION

NOP

004736
000137

BOX

;TASK DESCRIPTOR AS FOLLOWS:

BR
NOP

EMT

104000

115760

;PACK ACKNOWLEDGE

030142- 000404
030144 000240
104000
030146
030150 000137

1452 030160

13-53

1%:

1450 030154
1451 030154

;GO WRITE REGISTER(S)

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

108

;GO TO 10% IF ERROR

INDEX

WITH PUT

SUBROUTINE

;ERROR # DEFINED BY PUT SUBROUT INE

PC,GETSTS
PC,TIMOUT

:SETUP FOR READING STATUS
;WAIT FOR COMPLETION

GET
5%

;GO READ REGISTER(S) WITH GET SUBROUTINE
:GO TO 5% IF NO ERROR

108

;GO TO 10% IF ERROR

PC,PRIERR

;GO CHECK FOR PRIMARY ERRORS

PC,a(SP)+

108

PC,SEKSTS

PC,a(SP)+

sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

:GO TD 6% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS

;GO TO 108 IF ERROR

;GO VERIFY RESULTS OF

:GO_TO 7% IF NO ERROR

JRETURN HERE

ERROR

JERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE

108

;GO TO 10% IF

PC,CMPERRSTS”

s CHECK ANY

NDTMSK

SEEK OPERATION

ERROR CHECKS

ERROR

ERRORS NOT

sMASK FOR RMER1

MASKED

CZRMMBO RM05/3/2 FCTINL TST 1
Ta4
SEEK ZERO DIFFERENCE

030340
030342
030344
030346
030350
030352

1672 030356
1473 030356

030362
030364
030366
030370
030372

1474 030376
1475 030376
1476 030400

1477 030402

;233 030406

000010
000405
000240
104000
004736
00C137

030406

004737

044540

000405
000240
104000
004736
000137

MACRO V04.00

4=APR=B1

8%:

030406

9%:

005303
001402

000137

.WORD
BR
NOP
EMT
JSR
JMP

PC,a(SP)+
108

JSR

PC,SECERR

108:

1480

030406
C30410
030412
030416
030422
1481 030426

SRR A

000004
000240
012706
013700
013701
012737

78745
001100
001276
001464
000045

001226

1482 030434

1485 030434
030440

004737
052130

1$:

041650

sMASK FOR RMER2
;GO TO 8% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY (MPERRSTS SUBROUT INE
:GO BACK FOR MORE ERROR (HE(CKS
:GO TO 108 IF ERROR
;G0 CHECK FOR SECONDARY ERRORS

BR
NOP
EMT
JSR
JMP

PC,a(SP)+
108

;G0 TO 9% IF NO ERROR
.
:RETURN HERE If ERROR
;ERROR # DEFINED BY SECERR SUBROUYINF
;GO BACK FOR MORE ERROR CHECKS
:GO TO 108 IF ERROR

DEC

;DONE ALL

108

JYES!!

JMP

A A

AR AT A AR R R A

SRTEST 45

030406

13=54

DPE
8%

BEQ

(030226

H 11

11:43:28 PAGE

A A A A AR

SCOPE
NOP

SEEKS??

:NO - GO DO NEXT SEEK

AR AR A AN AR A AR AR AN

AR A AN N AR RA R AR

SEEK MAXIMUM DIFFERENCE FORWARD
AR R

A AR AN AR RN

A A AR AR AR AR AN N AN R AN A AR R AN AR AR RN IR ARSI AR SRS

MOV
MOV
MOV
Mov

#STACK,SP
$BASE ,RO
TSTQUE ,R1

#45,$TESTN

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

JSR
.WORD

PC,TSTPRP
052130

;PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

030442
030444
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493

030446
C30450

030454
030454
030462
030470
030476
030502
030506
030512
030516
030522

030526
030530
030532
030534
1494 030540

000404
000240

BR
NOP

104000
000137

030666

012737
012737
012737
012702
112722
112722
112722
112722
004737

001466
000000
000005
001543
000034
000006
000000
000200
043160

000404
000240
104000
000137
004737

030666
(42624

001444
001416
001410

2$:

3%:

EMT
JMP

MoV
MoV
MoV
MOV
MovB
MOVB
MOVB
MovB
JSR

BR
NOP
EMT
JMP
JSR

VALID

-ERROR # DEFINED BY TSTPRP SUBROUT INE
:GO TO 8% IF ERROR

#822. ,RMDCO
#0 ,RMDAQ
#SEEK!GO,RMCS10
#PUTINX ,R2
#RMDC, (R2) +
WRMDA, (R2)+
HRM(ST,(R2)+
#200, (R2)+
PC,PUT

8%
PC,GETSTS

VOLUME NOT

:GO_TO 28 IF NO ERROR
sRETURN HERE IF ERROR

;VERIFY PACK ACKNOWLEDGE
;VERIFY RECALIBRATION

;LAST CYLINDER
;TRACK = 0, SECTOR = 0
:LOAD SEEK COMMAND IN BUFFER
:R2 POINTS TQ REGISTER TABLE
;WRITE REGISTER INDEX TABLE
;WRITE TERMINATOR
;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO _TO 3% IF NO ERROR
;RETURN HERE IF ERROR
-ERROR # DEFINED BY PUT SUBROUTINE
:GO TO 8% IF ERROR
;SETUP FOR STATUS FETCH

‘NHMBU RMOS/37¢2 FCINL

TST

&-APR-B1

MACRO v04.00
SEEK MAXIMUM DIFFERENCE FORWARD

145

I N

11:43:28 PAGE

13-55

1495 030544

004737

043522

JSR

PC,TIMOUT

JWAIT FOR SEEK

1497 (30550

004737
009404
000240

042710

JSR
BR
NOP
EMT
JMP

PC,GET
4%

;GO _TO 4% IF NO ERROR

;ERROR # DEFINED BY GET SUBROUT INE
;GO TO 8% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

;GO CHECK FOR PRIMARY FRRORS

164596

030554
030556
030560
030562

1498 Q30566
1499 030566

030572
030574
030576

104000

000137

030666

004737
000405
000240

043706

104000

030600
030602

004736
000137

1501 030606
030612

004737
000405
000240

1500 030606

030614
030616
30620

(%:

030666

5%:

051024

104000

004736
000137

030666

004737

050400

115760

6%:

000010
000405
000240
104000

004736
000137

004737
000403
000240

030666

7%:

044540

JSR
BR
NOP
EMT
JSR
JMP

104000

JRETURN HERE

SUBROUT
INE

ERROR

;GO TO 5% IF NO ERROR

PC,a(SP)+

PC,SEKSTS

PC,a(SP)+

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUT
NE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 8% IF ERROR

;GO VERIFY RESULTS OF SEEK OPERATION
;GO TO 6% IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY SEKSTS SUBROUT
INE

;GO BACK FOR MORE ERROR CHECKS

;GO TO 8% IF ERROR

PC,CMPERRSTS
ND TMSK
DPE
7%

;CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
;MASK FOR RMERZ2

PC,a{SP)+

JRETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINF
:GO BACK FOR MORE ERROR CHECKS
;GO TO 8% IF ERROR

JSR
BR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

EMT
JSR

8%:

;GO READ REGISTER(S) WITH GET

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

NOP

004736

TO COMPLETE

AALEEE SRR

SRTEST 46

PC,a(SP)+

;GO TO 7% IF NO ERROR

;GO TO 8% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

1223

232222323

SEEK ADJACENT FORWARD

t*fi.ltfi'tttlt"tttttfi"ttitt‘tQttttt't.fittttttfit'tttttttitfitt't

TSTéé:

000004
001100
001276
001464
000046

041650

SCOPE
NOP
MOV
MoV

001226

#STACK,SP

$BASE ,RO

MOV
MOv

TSTQUE ,R1
#46,8TESTN

JSR
-WORD

PC,TSTPRP

:SCOPE CALL
*START OF TEST
“INITIALIZE STACK POINTER

;7g1§ UNIBUS ADDRESS

= DEVICE BEING TESTED

*:SET TEST NUMBER IN APT MAIL BOX

1%:

054130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR /S FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

VOLUME

;VERIFY PACK ACKNOWLEDGE

JRECALIBRATE

NOT

VALID

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

CZRMMBO RMOS/3/2 FCTINL TST 1
SEEK ADJACENT FORWARD

MACRO v04.00

BR
NOP

NN-—A—)—I§
S OO

880000000000
loleolelolal
WWW

Nel

v
S SN DN
USTale Rl NTe Yo N NTaTs ¥

FURERNSE
R RS[o$38
20AV}

- el o
il

~OO

e
e e ey
) D e D De e e e e

W N NN W NN NN WNWWWIWW

s D o i i ) e e D e it e

- ol e
-l
B ot ol el
-l

N -

it ol ot s B ol ot o i =t e

[+ SV FW

- a3

Voo

i
o

vion
W no

—
)

AN NN NN N N W NN N NN NN N NN

— ol

glslelalslelolslslolololelololslaleclololélalolololololololololololcllclololale
e

R
L (G
—

N =20V~
W

i
o
%\J‘i\)‘\l‘\h
[ 29 1 4 N T N

031170
000000
000000
000005
001543
000034
000006
000000
000200

043160

031170

004737

042624
043522

004737
000404
000240
104000
000137

031170

004737

043706

004736
000137

031170

000405
000240
104000

031170

004737

050400

115760

001444
001416
001410

3%:

4%:

042710

004737
000405
000240
104000
004736
000137

051024

5%:

6%:

7%:

004737
000405
000240
104000

004736

044540

MOV
MOV
MOV
MOV
MOVB
MOVB
MOVRB
MOvB

JSR
BR
NOP
EMT
JMP
JSR
JSR

NOP
EMT
JMP

JSR
BR
NOP
EMT
JSR
JMP
JSR
BR
NOP
EMT
JSR
JMP

JSR
.WORD

104000

031170

EMT
JMP

JSR
BR

000010
000405
000240

004736
000137

11:43:28 PAGE

13-56
SEQ 013

030722
030724

4-APR-B1

8%:

.WORD
BR
NOP
EMT
JSR
JMP
JSR
BR
NOP
EMT
JSR

2%
108

;VERIFY RECALIBRATION
:GO TO 2% IF NO ERROR

:RETURN HERE

ERROR

SERROR # DEFINED BY TSTPRP SUBROUTINE

:GO TO 10% IF ERROR

#0,RMDCO
#0,RMDAO
#SEEK !GO,RMCS10
#PJTIN
,R2
X
#RMDC, (R2) +
#RMDA, (R2) +
#RMCS1, (R2)+

:R2 POINTS TO REGISTER INDEX

#200, (R2) +

:TERMINATE REGISTER TABLE

PC.PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

10%

sCYLINDER = 0

;TRACK = 0,

SECTOR = 0

;FUNCTION CODE

FOR SEEK

;WRITE REGISTER

INDEX

TABLE

;GO TO 4% IF NO ERROR

JRETURN HERE IF ERROR
;ERRCR # DEFINED BY PUT SUBROUTINE

;GO TO 10% IF ERROR

PC.GETSTS
PC,TIMOUT

2SETUP FOR STATUS FETCH

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 5% IF NO ERROR

108
PC.PRIERR

PC,a(SP)+

;WAIT FOR COMPLETION

JRETURN HERE IF ERROR
SERROR # DEFINED BY GET SUBROUTINE

;GO TO 108 IF ERROR

;GO CHECK FOR PRIMARY ERRORS
;GO TO 6% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

10%

;GO TO 108 IF ERROR

PC,SEKSTS

;GO VERIFY RESULTS OF

PC,a(SP)+

10%

PC,CMPERRSTS

ND TMSK
DPE

PC,a(SP)+

108

;GO TO 7% IF NO ERROR

SEEK OPERATION

JRETURN HERE IF ERROR
SERROR # DEFINED BY SEKSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

;GO TO 108 IF ERROR

;CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
;MASK FOR RMERZ2
;GO _TO 8% IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 108 IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

JRETURN HERE IF ERROR
;ERRCR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 9% IF NO ERROR

)

CZRMMBO RMO5/3/2 FCINL 15T 1
T46
SEEK ADJACENT FORWARD

031146

1535 031152
1536 031152
1537 031156

1538 031160

1539 031164

1540 031170
1541
1542

MACRO v04.00

000137

031170

005737
001004
005237
000137

001444

001444
031062

1543

1544 £31216
1545 031216

031222

1546
1547
1548
1549

031224
031226
031230
031232

031236
031236
031244
031252

004737
054130

104000

000137

031274
031300
031304
031304

18:

041650

;GO TO 108 IF

RMDCO

;FIRST TIME THROUGH??

JMP

BNE
INC

SCOPE
NOP
MOV
MOV
MOV
MOV

#47 ,$TESTN

JSR

PC,TSTPRP

004737

043706

#STACK,SP
$8ASE ,RO
TSTQUE ,R1

054130

MOV
MoV
MOV
MOV
MOVB
MOVB
MOVB
MovR

#1,RMDCO
#0,RMDAO
#SEEK!GO,RMCS10
#PUTINX ,R2
#RMDA, (R2) +
#RMDC, (R2) +
#RMCS1, (R2) +
#200, (R2) +

JSR
BR

PC,PUT
4%

NOP
EMT

4%:

JMP

108

10%

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

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
sVER!FY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID

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

;GO TO 2% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 10% IF ERROR

;CYLINDER = 1
sTRACK = 0, SECTOR = 0

;FUNCTION CODE FOR SEEK
;R2 POINTS TO REGISTER INDEX

JWRITE REGISTER INDEX TABLE

s TERMINATE

TABLE

.GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 4% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT INE

;GO TO 10% IF ERROR

JSR
JSR

PC,GETSTS
PC,TIMOUT

;SETUP TO RFAD ALL REGISTERS
JWAIT FOR SEEK TO COMPLETE

JSR
BR

PC,GET
5%

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 5% IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE

NOP

031474

s 2222202222222

001444
001416
001410

:NO!!
JYES = SEEK TO ADJACENT CYLINDER FORWARD

SEZK ADJACENT REVERSE

BR
NOP
EMT
JMP

042710

031336
031340
031342
031344

10$
RMDCO

ERROR

L SRRt
2222223
t
222222222
t
22

.WORD

031474

031474
042624
043522

1560 031332

1562 031350

001226

043160

031310
031312
031314
031316

031350

001100
001276
001464
000047

000001
000000
000005
001543
000006
000034
000000
000200

1557 031322
1558 031326
1559

1561

108

AL EE ARttt

TS747:

000404
000240

1550 031260
1551 031264
1552 031270

1553
1554
1555
1556

JMP

LRTEST 47
000004
000240
012706
013700
013701
012737

K 11
11:43:28 PAGE 13-57
SEQ 0140

031170
031170
031172
031174
031200
031204
031210

4-APR-81

EMT

JMP

10%

;GO TO 10% IF

ERROR

JSR

PC,PRIERR

;GO CHECK FOR PRIMARY ERRORS

fZRHHBO RMOS/3/2 FCINL TST 1
SEEK ADJACENT REVERSE

031354
031356
031360
031362
031364

1563 031370

1564 031370

031374
031376
031400
031402
031404

1565 031410

1566 031410

031414
031416
031420C
031422
031424
031426
031430

1567 031434
1568 031434

1569
1570
1571
1572

031440
031442
031444
031446
031450

031454
031454
031462
031464

1573 031470

1574 031474
1575
1576

MACRC v04.00

4-APR-81

000405
000240

004736
000137
004737
000405
000240
104000
004736
000137
004737
115760
000010
000405
000240

031474

6%:

051024

031474

004736
000137

004737
000405
00240

031474

8%:

044540

104000

004736
000137

031474

022737

000001

001004
005337
000137

001444

001444
031304

9%:

108

PC,CMPERRSTS

ND TMSK
DPE

1579 031522

031526

;GO _TO 88 IF NO ERROR

JRETURN HERE

ERROR

sERROR # DEFINED BY CMPERRSTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 108 IF ERROR

PC,a(SP)+

108

#1,RMDCO

;CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1

;MASK FOR RMER2

(MP
BNE

IF ERROR

;ERROR # DEFINED BY SEKSTS SUBROUT
INF
;GO BACK FOR MORE ERROR CHE(CKS
;GO TO 108 IF ERROR

PC,a(SP)+

PC,SECERR

SEEK OPERATION

;G0 CHECK FOR SECONDARY ERRORS
;GO TO 9% IF NO ERROR

sRETURN HERE

IF ERRCR

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

PC,a(SP)+

108

;GO TO 108 IF ERROR

;IS THIS THE FIRST SEEK??
$ND!!

10%

RMDCO

sYES - SEEK TO ADJACENT CYLINDER

;GO SEEK

tt!'*ttltttttt.t!tt*t‘i't't"tttt"ii'tt'.".'t!tfit'tttti'i.‘tt

1577
1578 031522

;GO TO 7% IF NO ERROR

:RETURN HERE

~1EST 50

031474
031474
031476
C31500
031504
031510
031514

;GO VERIFY RESULTS OF

JSR
BR
NOP
EMT
JSR
JMP

I[F ERROR

JERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHE(KS
:GO TO 108 IF ERROR

PC,SEKSTS

DEC
JMP

10%:

;G0 TO 6% IF NO ERROR

108

JSR
<WORD
. WORD
BR
NOP
EMT
JSR
JMP

104000

13-58

JRETURN HERE

PC,a(SP)+

JSR
BR
NOP
EMT
JSR
JMP

7%:

050400

BR
NOP
EMT
JSR
JMP

104000

11:43:28 PAGE

000004
000240
012706
013700

013701
012737

004737
054130

TSTSO

001100
001276
001464
000050
041650

1%:

SEEK INVALID SECTOR

SCOPE

NOP
MOV
Mov

001226

2222223222322

223

:SCOPE CALL

#STACK
, 5P

$BASE ,RO

MOV
Mov

TSTQUE ,R1
#50,8TESTN

JSR
.WORD

PC,TSTPRP

054130

;START OF TEST
sINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED
;;SET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

VOLUME NOT VALID

: VERIFY PACK ACKNOWLEDGE

-2
—a

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

000404
000240

BR
NOP

+VERIFY RECALIBRATION

;GO TO 2% IF NO ERROR

JRETURN HERE

IF ERROR

;égMMBO RMO5/3/2 FCINL TST 1
SEEK INVALID SECTOR

031534
031536

1580 031542
1581 031542
1582 031550

1583 031556

1584 031564

1585 031572
1586 031576
1587 031602
1588 031606

1589 031612

1590 031616

104000
000137

032112

012737
012737

000005
000000

012737

012737
012702
112722
112722
112722

001543
000032
000006
000034

112722

000200

112722

;gg} 8?1255

004737

1593 031626

004737

031632
031634
031636
031640

1594 031644
1595 031644

031650
031652
031654
031656

1596 031662

1597 031662

031666

031670
031672
031674
031676

1598 031702
1599 031702

031706
031710
031712

031714

000000

000036

000404
000240
104000
000137
004737

0462624

042710

032112

004737

052402

000240
104000
004736
000137

032112

004737

043160

000404
000240
104000

000137

032112

}28} 031720

004737

043522

1603 031724

004737

042710

031732
031734
031736

000240
104000
000137

032112

004737

043706

1600 031720

031730

1604 031742
1605 031742

031746
031750
031752
031754
031756

1606 031762
1607 031762

031766

000404

000405
000240
104000
004736
000137

004737

000405

001410
001442

2%:

032112
051024

EMT
JMP
MOV
MOV
MOV

001444

001416

MOV

MOV
MOVB
MOVB
MOVB

MOVB

052264

032112

4&=~APR=-81

M 11

11:43:28 PAGE

13-59

SEQ 0142

000000

000404
000240
104000
000137

000405

MACRO v04.0C

48:

5%:

9%
:

#0 RMDCO

#30. ,RMDAQ

#PUT INX ,R2
ARMO
, (R2)+
F
#RMDA. (R2)+
ARMDC . (R2)+

#RMCST, (R2)+

*CYLINDER = 0

*INVALID SECTOR = 30., TRACK = 0

*R2 POINTS TO REGISTER TABLE
*WRITE REGISTER INDEX TABLE

PC.GETSTS

:SETUP INPUT REGISTER INDEX

JSR

PC,CNTCLR

;GO ISSUE CONTROLLER CLEAR

JSR

BR
NOP
EMT
JMP
JSR

; TERMINATE

TABLE

148

:GO TO 4$ IF NO ERROR
*RETURN HERE if ERROR
:ERROR NUMBER DEF INED BY SUBROUTINE
:GO TO 14% IF ERROR

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

148
PC.CLRSTS

:GO TO 58 IF NO SRROR
*RETURN HERE IF ERROR
:ERROR # DEF INED BY GET SUBROUTINE
*GO TO 14$ IF ERROR

:GO VERIFY CONTROLLER CLEAR OPERATION

:GO TO 6% IF NO ERROR

NOP
EMT
JSR
JMP

PC.R(SP)+
14$

*RETURN HERE IF ERROR
:ERROR # DEF INED BY CLRSTS SUBROUTINE
GO BACK FOR MORE ERROR CHECKS
GO TO 14$ IF ERROR

JSR

PC,PUT

:GO WRITE REGISTER(S) WITH PUT SUBROUT INE

JMP

148

:G0 TO 7$ IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUTINE
*GO TO 143 IF ERROR

JSR

PC, TIMOUT

:WAIT FOR GO TO RESET

JSR

PC,GET

:GO READ REGISTER(S)
WITH GET SUBROUT INE

NOP
EMT
JMP

.
14$

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
*GO TO 14$ IF ERROR

JSR

PC,PRIERR

B8R
8%:

#SEEK !GO,RMCS10 ;SEEK (OMMAND
#0, RMOF O
*FORMAT 18 BIT

#200, (R2)+

BR
NOP
EMT
7%:

;ERROR # DEF INED BY TSTPRP SUBROUT INE
“GO TO 14$ IF ERROR

MOVE

B8R

6%:

14%

BR
NOP
EMT
JSR
JMP

PC,a(SP)+
14$

JSR

PC,SEKSTS

10%

‘GO TO 8% IF NO ERROR

:GO CHECK FOR PRIMARY ERRORS

‘G0 TO 9% IF NO ERROR
JRETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
*GO TO 14$ IF ERROR
:GO VERIFY RESULTS OF

;GO TO 108 IF NO ERROR

SEEK OPERATION

ZSM"BO RMOS5/3/72 FCINL TST 1
SEEK INVALID SECTOR

031770
031772
031774

031776

1608 032002
1609 032002
1610 032002

032006
032010
032012
032014
032016
032020
032022

1611 032026
1612 032026

032032
032034
032036
032040
032042
1613 032046

1614 032046
1615 032052

}g}g 032060

1618 032062
1619 032070
1620 032072
1621 032100
1622 032106

;ggz 032112
16?5

000240
104000
004736

000137

032112

004737

050400

117760
000010
000405
000240
104000
004736
000137

032112

004737

044540

000405
000240
104000
004736
000137

032112

005237
023727

001416
001416

101662

032737
001010
012737
012737
000137

010000
:
010000
000040
031626

MACRO V04.00

4-APR-B81

N1
11:43:28 PAGE 13-60
SEQ 0143

NOP
EMT
JSR
108 :
11%.

JMP

JSR

12%:

13$%:
000100

001442
001416

14%:

PC.a(SP)+

14%$

;GO TO 14$°IF ERROR

PC,CMPERRSTS

sCHECK ANY ERRORS NOT MASKED

.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,a(SP)+
14%

sMASK FOR RMER1
;MASK FOR RMER2
;GO TO 12% IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY CMPERRSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 14% IF ERROR

JSR

PC.SECERR

;GO CHECK FOR SECONDARY ERRORS

BR
NOP
EMT
JSR
JMP

1AE !NDTMSK
DPE
12%

138

PC.a(SP)+
14%

;GO TO 13% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 14% IF ERROR

INC
CMP

RMDAO
RMDAO, #64 .

: INCREMENT SECTOR ADDRESS
:DONE YET ?

:NO = TEST NEXT SECTOR

BIT
BNE
MOV
MOV
JMP

#FMT16 ,RMOFD:
14%
!
~
#FMT16,RMOF O
#32. ,RMDAO
3%

;WAS TEST DONE FOR 16 BIT MODE YET ?
:BR IF YES
:SET 16 BIT FORMAT MODE
;SET INVALID SECTOR 32..
;NO - TEST NEXT SECTOR

BLOS

001442

;RETURN HERE IF ERROR
;ERROR # DEF INED BY SEKSTS SUBROUTINE
2GO BACK FOR MORE ERROR CHECKS

;

ttt*tttttttttt'ttttt*ttt*ttttttt*ttttt*tttttttttt*ttttttttttttt

‘

-rscr

032112
032112

75151:

032114
032116
032122
032126
i 032132

000004
000240
012706
013700
013701
012737

001100
001276
001464
000051

1627 032140

004737

041650

032144

SEEK

INVALID

TRACK

. t'tttttttt*ttttttttttttttttt*tttt*tttttttttttttttt

054130

001226

tttttttt*tt*t

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK , SP
$BASE ,RO
TSTQUE ,R1
#51,8TESTN

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

JSR

PC.TSTPRP

:PREPARE DEVICE FOR TEST

.WORD

054130

:TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTRGLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE

;RECALIBRATE IF ‘'SKI'* OR 'PIP'* IS SET

032146
032150
032152
1628 8%5;23

000404
000240
104000
000137

032540

BR
NOP
EMT
JMP

:VERIFY RECALIBRATION
;GO TO 1% IF NO ERROR
:KETURN HERE IF ERROR

14%

:G) TO 14% IF ERROR

;ERROR # DEFINED BY TSTPRP SUSBROUTINE

CIAMMBO RMOS/3/2 FCINL TST 1
SEEK INVALID TRA(K

751

032206

~N
LAV

1636 032214

1633

NN
NNNN

1631 032174
1632
032202

012737
NN NN

032160

032166

e e ek
DO OO
b
wd d d d ek ) D
N
NN

1629

1630

000005

0013%2

001417
000000
001543
000032
000034
000006
000000
000200

MACRO v04.00

001410
0071444
001418

SIIIG

032540
05¢402

NN
~

OOCOOCOCONO

kaSqunfishonficho

N NN NN N NN

§§§&SSK
PR Yyas
oS RSN
RS
s

wnorun)

042710

;

032540
043160

000137

032540

004737

043522

004737
000404
000240
104000
000137

042710

032540

004737

043706

051024

(OMMAND
sCYLINDER = 0
- JLAST TRACK, SECTOR = 0
sSETUP FIRST INVALID TRACK

RMDAQ+1
#0 _RMOF
O

;R2 POINTS TO REGISTER TABLE

SWRITE REGISTER INDEX
:TABLE FOR QUTPUT
s TERMINATE

;GO ISSUE CONTROLLER CLEAR

;GO TO 3% IF NO ERROR

sRETURN HERE IF FRRCR

:ERROR NUMBER DEF INED BY SUBROUT INE

148

JSR

EMT

JMP

4%:

JSR
BR

5%:

;60 READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 4% IF NO ERROR
RETURN HERE IF ERROR
|

:GO TO 14$% IF ERROR

PC,CLRSTS
5%

JSR

PC,PUT

14%

;ERROR # DEFINED BY GET SUBROUTINE

14%

PC,a(SP)

;GO VERIFY CONTROLLER CLEAR OPERATION
;GO TO 5% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY CLRSTS SUBRQUTINE
:GO BACK FOR MORE ERROR CHECKS
;GO TO 14% IF ERROR
;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

GO TO 6% IF NO ERROR
;RETURN HERE

ERROR

14%

;ERROR # DEFINED BY PUT SUBROUT INE
;GO TO 14$% IF ERROR

JSR

PC, TIMOUT

;WAIT FOR GO TO RESET

JSR

PC.GET

;GO READ REGISTER(S) WITH GET SUBROUT INE

EMT
7%:

JSR
JMP

NCP
EMT
JMP

6%:

;G0 TO 148 IF ERROR

PC.GET

TABLE

;SETUP INPUT TABLE FOR STATUS

PC,CNTCLR
3%

3%:

8%:

;18 BIT FORMAT

#PUT
X R2
#RMOF
, (R2)+
#RMDC, 1R2)
+
#RMDA
, (R2) +
#RMCST,(R2)+
#200, (R2)
+
PC,GETSTS

EMT'.

032540

032414

#SGO,
EE
RM(S1
K
0 :SEEK

2%:

052264

8 12

11:43:28 PAGE 13-6!

#0,RMDCO
L STRK ,RMDAD

001442

042624

032540

4-APR-81

JMP

14%

JSR
B8R
NOP
EMT
JSR
JMP

PC,PRIERR

14§

JSR

'BC,SEKSTS

. BR

EMT

PC,B(SP)+

;GO TO 78 IF NO ERROR

;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 14$ IF ERROR

;GO CHECK FOR PRIMARY ERRORS

;GO TO 8% IF NO ERROR

|
JRETURN HERE IF ERROR
;ERROR # DEF INED BY PRIERR SUBROUT
INE
;GO BACK FOR MORE ERROR (HECKS
;GO TC 148 IF ERROR

;GO VERIFY RESULTS OF SEEK OPERATION

;G0 TO 9% IF NO ERROR
JRETURN HERE IF ERROR

;ERRUR # DEF INED BY SEKSTS SUBROUTINE

’R"IEO RMOS5/3/2 FCINL TST 1
p

SEEK INVALID TRA(K

032416
032420

1657 032424
1658 032424
1659 032424

032430
0326432
G32434
032436
032640
032442
032444

004736
000137

(32540

004737

050400

1660 032450
1661 032450

117760
000010
000405
000240
104000
004736
000137

_
032540

004737

044540

032456
032460
032462
032464

000240
104000
004736
000137

032540

1663 032470
1664 0324764

105237
123727

001417
001417

032454

000405

MACRO v04.00 4-APR-B1 11:43:28 PAGE 1%-62
JSR
JMe

98:
108
:

JSR

18-

.WORD
.WORD

NOP
EMT
JSR
JMP
JSR

B8R

NOP
EMT
JSR
UM

PC,a(SP)+
14$

;GO BACK FOR MORE ERROR CHECKS
:GO TO 14$ IF ERROR

PC,CMPERRSTS

;CHECK ANY ERRORS NOT MASKED

IAE INDTMSK
DPE
11%

:MASK FOR RMER1
;MASK FOR RMER?
:GO TO 11$ IF NO ERROR
*RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;GO BACK FOR MORE ERROP CHECKS
:GO TO 14% IF ERROR

PC.a(SP)+
14$
-

PC,SECERR

12%

;GO CHECK FOR SECONDARY ERRORS

:GO TO 128 IF NO ERROR

PC,a(SP)+
14%

“RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE FRROR CHECKS
;GO TO 14$ IF ERROR

INCB
CMPB

RMDAO+1
RMDAD+1,#128.

; INCREMENT TRACK ADDRESS
:DONE??

1667 032504 032737 010000 001442

BIT

crmr16.nqkro.

1669 032514

MOV

AFMT16,RMOFO

JMP

1662 032470

;ggg 032502

1668 032512

1670 032522
1671 032530

;g;g 032534

101414

001012

012737

013737
105237

000137

010000

001332
001417

12%:

000200

BLOS

BNE

COT442

001416

032250

13%:

1674 03540
1675

MOV
INCB

13$

:WAS TEST DONE FOR 16 BIT??

14$

SYES!!

:SET FORMAT 16

LSTRK , RMDAO
RMDAO+1
|

:LAST TRACK, SECTOR = 0
:SETUP FIRST INVALID TRACK ADDRESS

148:

1676

iNO=DO NEXT TRACK

:DO TEST FOR 16 BIT FORMAT

i
|

|
;

- t'ttttttt'tttttttttqttttt'ttttttiitttt'tttt.tttit't.'ttttt'tt'tt

032540

032540
032542
032544
032550
032554
i 032560

000004
000240.012706
013700
013701
012737

001100
001276
001464
000052

1678 032566

004737

041650

032572

054130

S*TEST 52

SEEK INVALID CYLINDER

tttt.ltt.t'fit'fi'tt'it"tttttttktl’ttttttt"tt.tttitt't"fit!'.t"!

t8152:

;

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

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

JSR

PC,TSTPRP

.WORD

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

‘

;PREPARE DEVICE FOR TEST

054130

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

ZPACK, ACKNOWLEDGE

VOLUME NOT VALID

(:VERIFY PACK ACKNOWLEDGE
032574
032576
032600
032602
1679 032606

000404
000240
104000
000137

033156

BR
NOP
EMT
JMP

13%

;RECALIBRATE

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

s VERIFY RECALIBRATION

/GO TO 18 IF NO ERROR
*RETURN HERE 'IF ERROR
*ERROR # DEF INED BY TSTPRP SUSROUT
INE
360 TO 13$ IF ERROR
]

’S’ZR“I‘BO RMOS5/3/2 FCINL TST 1
SEEK INVALID CYLINDER

1680 032606
1681 032614

1682 032622

1683 032630

012737
012737

012737

1684 032636
1685 032642

012702
112722

1687 032652

112722

1686 032646

000005
001467

000000

001543
000006

112722

000034

1688 032656
1689 032662
1690 032666

112722
112722
004737

000000
000200
042624

1692 032672

004737

052264

1691

032672

032676
032700
032702
032704

1693 032710
1694 032710

033156

004737

042710

032716

000240

032722

000137

033156

1696 032726

004737

052402

032720

1695 032726

032732

000404

104000

000405

000240
104000
004736
000137

033156

1698 032746

004737

043160

032754
032756
032760

000240
104000
000137

033156

};8? 032764

004737

043522

1702 032770

004737

042710

032752

1699 032764

032774
€32776
033000
033002

1703 033006
1704 033006

033012
033014
032016
033020
033022

1705 033026
1706 033026

033032
033034
033036
033040

000404

000404
000240
104000
000137

004737

000405
000240
104000
004736
000137

004737

000405
000240
104000
004736

00i%10
001447

MoV
MOV

001416

001442

033156
043706

033156
051024

D12

11:43:28 PAGE

13-63

#0,RMDAO

MOV
MOVB
MOVB

#PUT INX ,R2
#RMDA, (R2)+
#RMDC, (R2)+

MOVB
MOVB
JSR

#RM(CS1,(R2)+
#200, (R2) +
PC,GETSTS

JSR

PC,CNTCLR

MOV

MOVB

2%:

38:

BR
NOP
EMT
JMP
JSR

B8R

EMT

4%:

7%:

8%:

SECTOR
= 0

:18 BIT FORMAT

:R2 POINTS TO INDEX TABLE
JWRITE REGISTER TABLE

#RMOF
, (R2) +

138

!
;

PC,GET

;TERMINATE TABLE
;SETUP FOR STATUS
;GO ISSUE CONTROLLER CLEA4R

;GO TO 3% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR NUMBER DEF INED BY SUBROUTINE
;GO TO 138 IF ERROR
;GO READ REGISTER(S) WITH GET SUBROUT
INE

;GO TO 4% IF NO ERROR

;RETURN HERE IF ERROR

;ERROR # DEF INED BY GET SUBROUT INF

13%

JSR

PC,CLRSTS

;GO VERIFY CONTROLLER CLEAR OPERATIO
— N.
-

NOP
EMT
JSR
JMP

PC,a(SP)+
138

:RETURN HERE IF ERROR
-—
:ERROR # DEF INED BY CLRSTS SUBROUTINE
;GO BACK_FOR MORE ERROR CHECKS
:GO TO 138 IF ERROR

JSR

PC.PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

13%

;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 138 IF ERROR

JSR

PC., TIMOUT

;WAIT FOR GO TO RESET

JSR

PC.GET

B8R

6%:

;TRACK = 0,

#0 , RMOF O

JMP

58%:

#SEEK !GO,RMCS10 ;SEEK FUNCTION CODE
#823. .RMDCO
:START AT FIRST INVALID CYL INDER

MOV

NOP

032734
032736
032740
032742

1697 032746

4=-APR=-B1

SEQ 01:%

000032

000404
00C240
104000
000137

032714

MACRO V04.00

NOP
EMT
JMP

BR
NOP
EMT
JMP
JSR

;GO TO 13% IF ERROR

‘

;GO TO 6% IF NO ERROR

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 7% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 13% IF ERROR

138
PC,PRIERR

PC,a(SP)+
138

JSR

PC,SEKSTS

B8R
NOP
EMT
JSR

‘

BR
NOP
EMT
JSR
JMP

;GO CHECK FOR PRIMARY ERRORS

PC,a(SP)+

;GO TO 5% IF NO ERROR

;GO TO 8% IF NO ERROR
;RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK_FOR MORE ERROR CHECKS
;GO TO 138 IF ERROR
;GO VERIFY RESULTS OF

SEEK OPERATION,

;GO TO 9% IF NO ERROR
SRETURN HERE [F ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
fHs)
H

CZRMMBO RMOS/3/2 FCINL TST 1
152
SEEK INVALID CYLINDER

033042

1707 033046
1708 033046

000137

033156

004737

050400

117760

d —h
d - e
—

- -2 —

o> I\ONNgb

N—e—=a00

» W WN
N o &~

NN WINW
NN NN

004737
000405
000240

WWNWNW

jeleleloBNelelelololols]

S WN—=OV
O NS NN —

SNONN NNNNNNN NN~
lh B e o
dh —
nornonNGN n e

Rt
TR e U O
N Y——

000010
000405
000240
104000
004736
000137

033152

MACRD Vv04.00

9%:

033156

10%:

044540

104000

004736
000137

033156

11%:

005237
023727
002412

001444
0C1444

002000

032737
001010
012737
012737
000137

010000

001442

010000
001467
032672

001442
0017444

033156

4-APR-81

13%

:G0 TO 138 IF ERROR

JSR
.WORD
.WORD
BR

PC,CMPERRSTS

1AE !NDTMSK
DPE
1C$

:CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
;MASK FOR RMER2
;GO TO 108
IF NO ERROR

PC,a(SP)+

;ERROR # DEFINED BY CMPERRSTS SUBROUT
INE
;GO BACK_FOR MORE ERROR (HECKS

NOP
EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR
JMP
iNC
CMP
BLT

MoV

JMP

;GO TO 13% IF ERROR

PC,SECERR

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

11%

;RETURN HERE

13%

128

#FMT16,RMOFO
#823. .RMDCO

ERROR

; INCREMENT CYLINDER ADDRESS
: DONE 77
:NO=DO NEXT CYLINDER

RMDCO, #1024,

138
#FMT16 ,RMOF O

;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK_FOR MORE ERROR (HECKS
;GO TO 13% IF ERROR

PC,a(SP)+

RMDCC

ERROR

;16 BIT FORMAT TESTED??!

s¥ES

L:SETUP FOR

16 BIT

¢START AT FIRST

TEST

INVALXD CYLINDER

3256
1729 033262

1730 033262

IvC SEEK TEST

L 't"ttl'!t..!"Q'*Q.Q't"'tl..'fi'.ltltttt'fittt‘"'t"‘i"’.

"t'

p—y

W&WWWWWWWWWWWW WWNWNWW WL
W
ROROROROROR)
= —b — s > —
v
Sn
NN
»H NOJ\&O N N) = —2—2

BiNelolelololele)

1727
1728

133

tt't"t.ttfi'i'Qttt't't"'t""'tt"t.t'tiliti" 1(tntntnnti'tt

(wlelelelelolelelelolololels

1726

JRETURN HERE

13%:

tTEST 53

1725

13-64

JMP

BIT
BNE
MOV

12%:

E 12

11:43:28 PAGE

000004
000240
012706

013700

013701
012737

157153:

001100
001276
001464
000053

004737
000404
000240

052264

000137

033516

112737
112737

000924
000200
000001
043160

104000

012737
004737
000404
000240
104000

000137

033516

012737

000605

001226

001543
001544
001434

1%:

SCOPE
NOP
MOV
MOV
MOV
MOV

001410

2%:

#STACK
. SP
$RASE ,RO .
TSTQUE ,R1

#53,8TESTN

JSR
BR
NOP
EMT
JMP

PC,CNTCLR

MOVB
MOVB
||
MOV
JSR
BR
NOP

#RMMR
PUT1,
INX
#200,PUTINX+1
#DMD ,RMMR10
PL.PUT

MOV

#S!GO,
EE
AMCS10
K

EMT

fifl.

: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 1$ IF NO ERROR
'

;ERROR NUMBER DEF INED BY SUBROUTINE
60 TO 8% If ERROR

;RETURN HERE

ERROR

LSETUP PUT INDEX TABLE
SET TERMINATOR BYTE

;SET RMMR1 OUTPUT BUFFER F DMD

‘GO WRITE RMMR1'VIA PUT suapourxwf
;GO TO 2% IF NO ERROR

*RETURN HERE

IF ERROR

JERROR DEF INED BY PUT suanourxwe
;GO TO 8% [F ERROR
i

il
,

CZRMMBO RMOS5/3/2 FCINL
153
IvC SEEK TEST

1731 033270

1732 033276

1733 033306

1734 033312
1735 033316
1736 033322
1737 033326

012737

000000

G00000

000000

012702
112722
112722
112722

001543
000024
000006
000034

112722

000200

1738 033332 112722

1739 (23336

TST 1

MACRO v04.00

001434

MOV

001444

MOV

001416

MOV

MOVA

042624

JSR

004757

033352
033354
033356
o 8%%%22

000404
000240
104000
000137

033516

1743 033364

004737

042710

033370
033372

033374

033376

1744 033402

000404
000240

104000

000137

1745 032402

004737

033410

000240

033414
033416

004736
000137

1747 033430
1748 033432

001012
012737

033406 000405

033412

1746 033422

1749 033440

1750 033446
1751 033454

1752 033456
1753 033456

033462
033464
033466

013737

042737
104064

004737

115760
010010
000405

033516

010000

001376

010000

0071140

001376

167777

044540

033520

{i/4$

JMP

IR |1
P

68: |

78 :

;G $ng REGISTER(S) wer GET suanourx~e

BERE

4% IF NO ERROR|'=
RETURN HERE IF ERROR

260 TO ss IF ERROR

T
!

I
:60 CHECK FOR PR:MAnv,shRons o

G0 TO 58 IF NO ERROR

. :RETURN HERE IF ERROR

:ERROR # DEF INED BY PRIERR suanou+x~f

;GO BACK_FOR|MORE ERROR CHECKS
:GO TO 8% IF ERROR ||

#1VC,RMER2]

:DID INVALID COMMAND 'SET??

IVES!
:GOOD DATA FOR TYPEQUT.

RMERQ].SBDDAT |||484D DATA FOR tvPEOUT

BIC
EMT

#~CI1VC. SBDDAT
64
G

JSR

PC,CMPERRSTS

all

H
i

.
Ly

]
T

‘

i
J:
/ ;CHECK /ANY ERRORS NOT MASK501

:MASK FOR RMER1
:MASK FOR RMER2
:GD TO 7$'IF NO ERROR .

a}
4k
|
X

000004

000240

PC,SECERR .

o
NOP
EMT
JSR
IRCLa(SP)+
.

DeTEST 54 (' +
'tttt.t.“'
&
tt
'

scoPE

NGP

1
3
1

/
"

'\ ;GO CHECK FOR SECONDARY ERRORS | ,

.
.

:GO/TO 88 IF NO ERROR
|
RETURN HERE 1F
ERROR |
|
"ERROR # DEFINED BY SECERR SU ROUT'NE
36O BACK FOR MORE, ERROR'CHE[KS

|
Hi|

i
,“ll

ABORT SEEK TES]
'
ttttd‘.nafimnttq&p---nt'n-qy)t-n.--.'ga----.-...&..
!

SUT

;SCOPE CALL

;

;START OF (TEST |, + ' !

) .

il
Ma
1
{|

1
'

..'tt'tt.ontttfl,tat\vnttt'tyttttfl?r't.-tfln-t-agnnw.qtvfitnn--n-“«'l
.

:RETURN HERE IF ERROR'
_
Al[y -~ :ERRQR # DEFINED BY CMPERRSTS SLaROUHNE 1!
PC.a(sSP)+ 1
”,GO
?ACK FOR MORE ERROR CHECKS |
)
Mo
i
0 88 IF ERROR '

{

. 1 :ERROR # DEFINED BY GET'SUBROUYINEH

NDTMSK ¢
IVC!DPE
78
\

PUT SUBROUTINE

638
#1VC,$GDDAT

5 an |

8$:

PC,a(SP)+
8s

.WORD
.WORD
BR
NOP
EMT
JSR.
lJMPI

MOV

”1#L

:GD TO 3% IF NO ERROR
CRETURN HERE IF ERROR |,
:ERROR # DEF INED BY PUT!§usaou11~a H
60 TO 88 IF ERROR ‘

fil

;G0 WRITE [REGISTER(S) WITH

pgflpnxsna ‘

BNE|
MOV!

001142

IPC,GET .

BR
NOP

;WRITE REGISTER INDEX
| TABLE
m
'\
1

:SETUP FOR STATUS

‘
8%

BIT,

001142

1758

0335

/{38
I

JSR
JMP

004737

033516

;

S$:

050400

1755 033502

1756 033516
1757

4%:

- :TRACK = 0, SECTOR =

LGETSTS

03356

000403
000240
104000
004736

#PUTINX,R2
#RMMRT,(R2)+
#RMDA
, (R2)
+
#RMDC. (R2)+

EMT

043706

000240
104000
004736
000137

033506
033510
033512
033514

;CYLINDER = (@

0200 (R2)

JSR

032516

033470
033472
033474
033476

1754 033502

#0.RMDCO

;acmc@p'ur

BR
NOP
EMT
JMP

104000

032737

#0 ,RMMR10

7S p WPUT

13-6%

SEQ

MOVB

1741 033346 004737 043160

F 12,

11:43:28 PAGE

‘r '#O,RMDAO

MOV
MOVB
uova
OVB

000000

1740 033342

‘

4-APR-B1
=

|
'

it
iill

014

RMMB0 RMOS/372 FCINL

T84

ABORT

033522

SEEK

TEST

012706

013700

012701

01¢737
1760 033544

033550

004737
054130

TST

MACRO vD4.00

G 12

4-APR-81

11:43:28 PAGE ,13-66
|,

001100
(01276
001464
000054

MOV,

#STACK, SP

MOV
MOV

#54, STESTN

JSR

PC,/STPRP

Moy’

001226

041650

$BASE RO

TSTQUE ,R1

054130

.WORD {

(Vs INITIALIZE

STACK POINTER

RO
= UNIBUS ADDRESS

- s(R1) = DEVICE BEING TESTED|

FiSET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST

*TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE

:PACK ACKNOWLEDGE

1761
1762
1763
1764
1765
1766

033564
033564
(33572
033600
033606
033614

1767 033620

1768 033624
1769 033630

1770
1771
1772
1773

033634
033640
033644
033650

033654
033656
033660
033662

1774 033666
1775 033666

033672
033674
033676
033700

1776 C33704
1777 033712
1778 033714
1779 033722
1780 033730
1781 033734

%;g% 033736

1784 033742

000404
000240

104000

000137

034060

012737
012737
012737
012737

040000
000000
000000
000005
001543
000006
000034
000014
000000
000200
042624
043160

012702

112722

112722
112722

112722
112722
004737
004737

000404
000240
104000
000137

004737

000404
000240
104000
000137

032737
001411
013737
042737
005037
104065

JMP

MOV

#UNS ,RMER10

MOV
MOV
MOV
MOV
MOVB
MOVB
MOVB

i {(

JSR

001346

157777

001140

004737

042710

034060
043706

EMT

001346

3%:

JMP||

gég-

JSR

| *

TITRAR

B8R

NOP

ERROR

260 TO 9% IF ERROR'

qDID DRIVE START'SEEK??

‘

pc,ansna

l‘l

Y cgecx FOR #Ranthq#adfis
|

itityl\5u
|

Al H'

6% IF NO ERROR

TURN HERE IF ERROR

TR
U

LK)

fi‘(;’

Ll
I

}

{ ]

AT LA
|

I'l |

11N

{

;

!
'

;
;

STl

v,)!

‘

' ‘»

Uiy

1'43' RgégSN'Hgggllr' VOoET ¢ ROU;XNE
93{’.‘u“4}”A
'a¢ r¢’9s?PROR 1

)

BURE

,‘4

‘

uAIT,fOR GO TO stsi

‘

it | o

)

“'I

:GOOD DATA #on TWPEOUT

;

bl
A

Pc GET' e,56OREAD Rsclsredgb“wlru GET suanouwude

MP
JSR

ERROR # DEF INED 'BY GET SUBROUTINE

PL, rxmqur.

EMT
5%:

JiRETURN HERE

v
*
i
oo
W
*
I

Cpots

,
Wil
/!

;

Y
i

WITH, PUT SUBROUTINE

;GO TO 3% 'IF NO ERROR

#~CPIP, taooAr

|| $GDDAT

|
al
¥
b

RMDSI, SBODAT 'QADeDATA FOR, TYPEOUT | |

CLR]

JSR

RrlaT

BI(
4%:

;GO READ REGISTER(S) WITH GET| susnourxNE A

(hl

]

:GO TO 9% IF ERROR

z:xpLRMDS]

MOV

001142
001142

1)
'

;ERROR # DEFINED BY PUT SUBROUTINE

PC.GET . =
38

:RETURN HERE IF ERROR

sSETUP FOR STATUS FETCH

ERROR!

;CYLINDER = 0
/
i
;TRACK = 0, SECTOR = 0
;SEEK COMMAND
:SETUP REGISTER INDEX TABLE
:AND OUTPUT BUFFER
z
!

;GO TO 2% IF NO ERROR

NOP

034060
020000

;SET UNSAFE

;GO TO 9% IF ERROR

:GO WRITE REGISTER(S)

' /pg

JMP

;ERROR # DEF INED BY TSTPRP SUBROUTINE'

PC,GETSTS

EMT

042710

‘

C.PUT,

2%:

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

JSR

;GO TC 1$ IF NO ERROR.
RETURN HERE If ERROR

#0,RMDCO
#0 ,RMDAO
#SE
! GO,RMCS10
EK
#PUT INX ,R2
#RMDA,(R2)+
«
#RMDC, (R2)+
#RMER1, (R2)+

MOVB
MOVR

034060

043522

004737
000405
000240

NOP '

004737

000404
000240
104000
000137

001424
001444
001416
001410

1%:

:VERIFY RECALIBRATION

‘

:VERIFY PACK ACKNOWLEDGE

5R
NOP

EMT

IF VOLUME NOT VALID

YRECALIBRATE IF ''SKI'* OR 'PIP'* IS SET
033552
033554
033556
033560

‘

SVERIFY CONTROLLER CLEAR OPERATION

‘

YINEY

ZQNFBO RMOS5/3/2 FCINL TST
ABORT SEEX TEST

033770
033772
033774
1787 034000

17838 034000

034004
034006
034010
034012
034014

1789 034020
1790 034020

034024
034026
034030
034032
034034
034036
034040

1791 034044
1792 034044

034050
034052
034054
034056

1793 034060

MACRO V04.00

EMT

104000

004736
000137

004737
000405
000240

034060

ssr

050400

034060

044540

JSR

98:

—
-—

‘

GO BACK FOR MOREgknon cnsc

:GO TO 9% IF ERROR u.,

TIRLY
v

”

i fuRN

IF, (ERROR
|
iy
ERROR # oer1 NED §¥ ECERR SUBROUTINP 1
PR CHE CKS

‘

| 7

;[]‘]'
i!

SEEK AT OFFSET

{

. nt:tntttt-tnntttttttttttttnfit'tnttt'ttttnqt#+tt'tttr

000004 .
000240/~
012706 001100
013700 001276
013701
001464
012737 000055

004737
054130

75155:

l,kOPE

000404
000240
104000
000137

001226

1%:

MOV
MoV

| |

I
I

012737
012702
112722

000015
001543
000034

001444
001416
001410

JSR
LWORD

o‘

:INITIALIZE|STACK POINTER

;

nggl.!

,“‘!‘

}

RRIALE o8 FolLows J‘

"los

TETET

IBRATE 'IF

1 VERIFY RECALIBRATION

niif

MOV

:Aaqo 10 108 xr ERROR |
“TRACK = 0,

porre'GORMCS 1D

Moy

' ||

keuTiN

! ..:1‘

¥ ‘f/d
)1

KT
Ihi‘,xd,]h,’
‘II”
H",

RIS R

-'“.‘H

oot

i i

' ,L "“ill
‘I

LOAD GFFSET COMMAND IN 8| nvcnl Uy
‘I‘I!

‘|

TR ¢
I
AT
'
A H

| ." [V
R

JR2 POINTS TO REGISTER TABLE

| T

SECTOR
2 0///’

,‘..'

NI
| T
"

11!

(l‘

IMOVB, |:An¢
(R?)*/
c
TM WRITE REGISTER ,NoExIYABLf

*RETURN HERE IF ERROR #A
1]
:ERROR # DEFINED BY]s RP SUBROUIINEIII

,“.v

B
1 T

]h i
R
Y
}]t.”f},l. *!] L

OR 'PIP"" Is $En

6o0/T0 28 IF NO ERROR |

#0RMDCO
| | -‘vaLINDER 0
#O.RMDAQ; - '

MOV

"SKITM*

HI
T
LI

} }i"
;J] |
AR

SVERTFY PACK ACKNOWLEDGE

;RECAL

|
Hd]l-

i
|

TRV

)

f nll\ '[t“l’i
'
%;!,\ o]

:‘

;RO = UNIBUS ADDRESS, |, |

054130

{

q,,,.n ¢‘ Iy

ol
%]
'fi
!
EWJ
'i=
“d"
A
FER AREr@SY]CE FOR TEST
HU'PC,TSTRRP

MoV

TSTQUE,R1 /. :(RM)
= DEVICE BEING TESTED|.
a5,.STESTN
J:SET! TEST NUMBER IN APT MAIL BOX-

e
EMT | e
.

22222222

:START OF 1 s;

#STACK,gfi

034404

‘

WHF':SCOPE CALL,

MOV/ '« $BASE,R

041650

012737 /000000
012737" 000000

nov;,

;

RRRRRRRRRR

HT
B
I
.;*TEST
ttItt'tttt.'t'lt'ilttt'tttttth
fi’ttqh%ptttWtt'tttt'tt'+k't'!tt'Jll‘¢= | fllf
ll! gURI
0" TITY
,llw)(i

:ERROR # DEF INED BY CHPHRR373 suafibqrxye

A A

I"
CO0000000O

(PCASPYe
i 2GO BACK FOR MORE

NOT MASKED
RMER1 |
1

.
fij;GO _TO 88 IF NO ERROR |
Lt
:RETURN HERE IF ERROR

EMAI' .
C

(K FOR MORE ERROR/'CHE(KS
/:GO TO 9% IF ERROR

A&Akqéan"g e8HECK FOR' sscoqunv snabp, '
' n
098
AE NO ERROR

NOP

104000

NIERngRo#o£r1~£o BY STODRVSTS ‘SUBROUT
IN

P asPy+ |||

C04736

ERROR = |

S mask PO AR

JMR.

1796
1797 834106

DPE

EMT (.

104000

il It

IF ERROR

PC, cmpsnnsrs
cneox|q~v ERRORS
Normswhwns /
;MASK FOR

BR
NOP

1794
1795

034060
034060
034062
034064
034070
034074
034100

([} iRETURN
WERE

PCLa(SP)+
it

"WORD

000240

0 9% IF' ERROR

160 TO 7%
E
|

- J$
.WORD

e, sraonvivélIiEGO CHECK FOR CHANGES IN DRIVE STATUS

JSR
R

{ERROR # DEFINED BY PRIERR SqBRO TINE

ng?fi FOR MORE ERROR (HE(KS

EMT

004737

004737
0004C3
000240

NOP

034060

I'!',

PCIRISPY+ |

JMP

104000

004736
000137

JSR

03:

057766

004736
000137
155760
000010
000405

H 12

4-APR-B1 11:43:28 PAGE Ji-er

I T ”'
'I

RMOS5/372 FCINL
SEEK AT OFFSET

IST

034160

000006
000000
000200
043160

034164
034170
034174

034200
034202

034204

112722
112722
112722

004737

000404
000240
104000

034206 000137
034212 004737
034216 004737
034222
034222 012737
1813 034230 1112737
1814 034236
112737
1815 034244 004737
034250 000404
034252 000240
104000
034254
034256 000137
1816 034262

1817
1818

034262

1819
1820 034266

034272
034274
034276
034300
1821 034304
1822 034304
034310
034312
034314
034316
034320
1823 034324
1824 034324
034330
034332
034334
C34336
034340
1825
1826

000005
000000
000200
043160

034404

004737

042710

004737
000405

004737

115760
000010

JSR

004737
000403
000240
104000

f3‘

001410
001543
001544

-'1

JMP

034404
043706

050400

PUT

4%:

MOV | ESEEK' 0!Jmci ;LOAD SEEK, cgghnfl
MOVR
RMCS1, puer LOAD REGISTER INDEX TASLE
d

MOVB

E:;

| :RETURN HERE

‘J

ERROR

| “ERROR # DEF INED BY PUT SUBROUT INE

GO TO 108 IF ERROR

GO TO 5% IF NO ERROR

‘

AUt

-0, WRITE REGJSTER(Qib:wu PUT ! suenourxNfi

PC PU
,ru

IFR!

#200,gurlnx*1

JSR |
BR
NOP €

0urx~f

dw IT FO “orrser;lo COMPLEIE

PC,TIMOUT.

;WAIT FOR COMMAND TO (OMPIETE'W
JSR

PC,r1naur

JSR

68"

EMT

6%:

JMP

JSR
BR

73:

8%:

JSR

;

'PC.PRIERR
o
SRR
fiote

108

{

NOP

EMT

5-‘ :

g8s

;

JRETURN HERE

all

PC, @ISR+ |
10$
PC,SECERR
108
|

‘t

ERROR

(60 (BACK FOR MORE ERROR CHECKS

‘G0 ro 108 IF ERROR

;GO cugcx FOR SECONDARY ERRORS
*GO TO' 108 IF NO ERROR
,

*RETURN HERE

ERROR

“ERROR # DEFINEP 8Y SE(ERR éuaauuv.ue

iy
| N. {lj,l
] fi,
l" | Ali
'fi'l T

; ERROR # DEF INED BY (MPERRSTS susnourx~e

;illf

GO TO 9% IF NO ERROR

i *RETURN HERE

Y_SEKSTS sggqoyTINE )3ii ‘ Wu.;=*

;CHECK ANY ERRORS NOT MASKED
*MASK FOR RMER?'
:MASK FOR RMER2

ERROR

;GO BACK! FOR MOREngROR CHEC
;GO TO 108 IF ERR

||
|/l

ERROR

;ERROR # DEF INED

'yJGO VERIFY RESULTS OF SEEK OPERATION
;GO TO. 8% IF NO ERROR

JSR
.WORD
.WORD

JSR
BR

:GO BACK FOR MORE ERROR CHECKS
/360 TO 108 IF ERROR|

:‘ if

|
PC, CMPERRSTS
NDTMSK .
[
DPE
|

:ERROR # DEF INED BY PRIERR SUBROUT
INE

108"

JSR
JMP

CHECK FOR PRIMARY ERRORS
[1:60_TO!
A8 IF
ERROR

JMP
:

;;

# DEFINED BY GET SUBROUTINE

;GO TO 108 IF ERROR

!RETURN HERE I

PC,a(SP)+

EMT

.ERROR

:RE URN HERE IF ERROK

/| ||1GO

JSR

NOP

;GO TO 6% IF NO ERROR

PC,SEKSTS

GO READ REGISTER(S) WITH GET, SUBROUT INE

PC.R(SPI+

EMT

)

108

JSR

JMP

WGO T0 TIMOUT SUBROUT INE

PC, GET‘

NOP

044540

TR 160 'TO' 108 IF ERROR
pafl
:SETUP FOR STATUS FETCH'

PC,GETSTS

JSR'

034404

ZERROR4" DEF INED.
87 PuT

JSR

034404

|260 T0'\3$ IF NO ERROR

EMT

051024

:f I?" ‘ s

,fl!'[“4u
o e

108 |

NOP

034404

unxre TERMINATOR

fifl; 160 WRITE REGISTER(S) WlTH pUT SUBROJT'NF

I PCRPOT

NOP
EMT

104000

1827
1828

)

Movauz; #200, (R2)
+

000405
000240

004736
000137

daMcs‘ <52r ()‘

NOP

000240
104000

004736
000137

Uitfl

MOVR :' Jba (R D+

104000

004736
000137

MACRO v04.00 4=-APR-B1 11:43:28 PAGél1 Fba

034404
042624
043522

043522

004737
000405
006240

004737
000404
000240
104000
000137

I 1\

KMOS5/3/2 FCTINL
SEEK AT QFFSET

034602
034404

IST

MACRO v04.00

004736

J 12

4-APR-81

11:43:28 PAGE
13-69

JSR

10%:

|
i |

ifi¢‘BA(K FOR Monglgnnca CHECKS

PCLA(SP)

1Y
|

SEQ 015¢

a t.tt'fi.tl't!tfi"t"R!'."'..l‘r..fl'.'..t"'t't'k".."'tt.ttt't

TSTEST 56
034404
034404
034406
034410
034414
034420
034424
034432
034436
034440
034442
034444
034450
034450
034454
034462
034470
034476
034504
034510
034514
034520
1844 034524
1845 034530

1846 034534
1847 034540
1848 034540

034544
034546
034550
034552
1849 034556

1850
1851 034562

034566
034570
034572
034574
1852 034600
1853 034600
034604
034606
034610
034612
034614

1854 034620
1855 034620
1856 034624
1857 034630
1858 034634

LOOK'

'AHEAD TEST

. .ttt.ttt.tl.t'tflitt.'tt't'httt".'fi..i'!tti‘fi."t

000004
000240
012706
013700
013701
012737
004737
000404
000240

104000
000137

012703
012737
012737
012737
012737
012702
112722
112722

004737
004737
000404
000240
104000

000137
004737

004737
000404
000240
104000

13156:
/!
001100
001276
001464
000056

035032

000037
000000
000000
000000
000031
001543
000006
000034
000032
000000
000200
042624

035022

MOV

rsrou; ,

MoV

001442
001444
001416
001410

#56

NOP

moy

MOV

004737

043706

#0.RMDCO

‘RO = UNIBUS ADDRESS

;GO ISSUE CONTROLLER CLEAR

111,560 TO 18

ggvg(

'LERROR NUMBER'

| JSR

:R3 = SAMPLE COUNT FOR 18 BIT MODE

{JCYLINDER = 0

" :SEARCH TRACK = 0, SECTOR & 0

#RMDA, (R2)+

'PC.GETSTS

JSR

PC,PUT

“w

NOP
EMT

3%:

JMP
JSR

JSR

{

EMT

;

JSR

035022

103274
177777
000020
000020

6$:

MOV

7%:

MOV '
MOV '/

*RETURN HERE IF ERROR
;ERROR # DEF INED BY PUT suenmurx~£

GO TO 158 IF ERROR
*WAIT FOR COMPLETION
'

PC,PRIERR

EMT

hifl

:GC TO 4% IF NO ERROR

*RETURN HERE

IF ERROR

GO TO 158 IF

ERROR!!

:GO TO 58 IF NO ERROR

*RETURN HERE

ERROR

RMLA(RO),(R4)
RMLA(RO),R2

-STORE RMLA SAMPLE
*GET ANOTHER LOOK

*ERROR # DEF INED BY PRIERR SUBROUTINE

;R4 = STORAGE ADDRESS

Ay
o]l

;GO CHECK FOR PRIMARY ERRORS' il

aeurflgain«

158

;ERROR # DEF INED BY GET suanoufxuf

:GO BACK FOR MORE

‘
:,;

{1l

PC,a(SP)+

#-1,RS

' ;60 READ REGISTER(S) WITHI GET suaaourxwe

JSR

NOP

‘{“)"\

Pt GET'

5§

*GO TO 38 IF NO ERROR

188

"';G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

JMP

MOV

15%
PC,TIMOUT.

. .

;RECAL IBRATE COMMAND
it
"

HRMCST,(R)+

BR| |

ERROR

| i/ LPSTART WITH 18 BIT MODE

#RMDC. (R2)+

rogDAO [/l

(18200, (R2)e

DEF INED BY SUBROUT
INE

:GO TO 168 IF

#RMOF
. (R2)
+

MOVB

IF NO ERROR

IU‘VRETURN HERE IF ERROR

ARCH !GO, RMCS10
#PUT INX .R2

mw.

PINITIALIZE STACK POINTER

#0,RMOFO

NOP

035022

4"u}«R1) DEVICE BEING TESTED|

k31, .R3

MOV

ZSTART OF TEST

ésr~ JNESET TEST NUMBER IN APT MAIL BOX

I,‘.ws

MOV

042710

000137

$BASE , RO

MOV

JMP

:SCOPE CALL

Al1

#STACK.SP

EMT

043160

043522

NOP

lysr'
l' lpc CNTCLR
BR

052264

t"'.t'.‘t"t'

|
'J |

MOV

001226

d
SCOPE

ERROR CHECKS

‘GO TO 158 IF ERROR

‘RS = GROSS TIMER

r%RMMBO RMO5/3/2 FCINL

LOOK AHEAD TEST

1859 034640
1860 034642
1861 034644

1862 034646

1863 034650
1864 034652
1865 034656
1866 034660
1867 034662
1868 034666
1869 034670
1870 034672
1871 034674
1872
1873
1874
1875
1876
1877
1878
1879

020214
001403
005305
001370
000411
062704
005303
001410
026002
001360
005305
001373

TST

9% :

000020

1os:

000137

035032

034702
034706
034712
034716
034724

012702
012703
012704
032737
001404

003500
000036

034726
034732
034736
634740
034744
034746
034750

012702
012703
012405
062705
020205

103274

010000

034756
034762
034766
034770
034772
034774

034776
C35004
035006
035014
035020

032737
001006
012737
012703
000647

035022
035022
1905 035026
035032

012637
012637

8l
RS
I
7%

ADD

cz Ré4

B8R

:ARE

;

108

DEC
BEQ

11:

STIMEOUT??

EMT
JMP

352
16$

:PROGRAM TIMEQUT

*ADVANCE STORAGE ADDRESS

DEC

BNE

:ALL SAMPLES TAKEN??
YYES!T

RMLA (R0) ,R2
7%

‘WAIT FOR CHANGE
SYES!Y

[

001442

Mov
MOV
MOV
BIT

128,

;R2
‘R3
R4
;IS

4.,“

MOV

128:

000100

#3700, R2|

MOV

#32.,R3

ADD

#100,RS

MOV

(R&)+,RS

CMP

BHIS
13$:

CLR

138

RS, (R&)

MOV
MOV

RS, SGDDAT
(R4) , $BDDAT

DEC

BIT |
BNE .

WEMT16,RMOFO
158

BEQ

14$

353"

BNE

12%

;R2 = MAXIMUM SAMPLE

:GET A SAMPLE AND INCREMENT

:FOR EXPECTED VALUE OF NEXT

:SHOULD NEXT BE 0 ?

IND!!

:YES = CHANGE EXPECTED

(MP

EMT

14%:

*R3 = NUMBER OF COMPARES

'°

R2 an:

= MAXIMUM SAMPLE
= NUMBER OF C(OMPARES
= BUFFER ADDRESS
SAMPLE FOR 18 BIT MODE

‘BR IF YES

SET 16 BIT SAMPLE PARAMETERS

003700
000040

)

*NO

'I.'I

#3500,R2 ('
#30. .R3
#BUFFER,R4. |
JFMT16PflM0FO

BEQ

SAMPLES SAME??

YYES!T
STIMEOUT??,
‘NO = TRY AGAIN

"
|

CMP

BNE

R2, (R4)

BEQ
DEC
BNE

13=70

;SET 18 BIT SAMPLE RARAMETERS

118:

103001

005005
020514
001406
010537
011437
104353
000414
005303
001360

034752
034754

8%:

000002

K f%

43:28 PAGE

4-APR-81
(MP

034674
034676

104352

MACRO v04.00

:1S NEXT SAMPLE CORRECT??

SYES!!

SEXPECTED VALUE
*RECEIVED VALUE

ALL

SAMPLES CHECKED??

»‘¢¢H?mo
- TEST NEXT SAMPLE
T

010000

001442

010000
000041

001442

000006
000004

MOV
MOV

MOV

»rn716 RMOFD:
#33. .R%

" 2%

:TES T 'DONE FOR 16 BIT MODE
‘BR IF YES

:SET 16 BIT MODE AND
:SET SAMPLE COUNT.

|1 TEST AGAIN

| (SP)# ERRVEC*?
(§P3+,ERRV €

;:POP STACK INTO ERRVEC+2

;:POP STACK

INTO ERRVEC

. 'l'tttttfi.t."'t“.t""'l’tfi"ltltt.""t..ttQ..'.t‘."t".".'fi\

1908

S*TEST 57
035032
035032
035034

SEARCH
ON CYLINDER

' .t'.tt"!'..t't.'*t*t"!ttllt‘.‘l'itt"..l".'t".tt."'t.'.'ti

000004
00v240

15157:
SCOPE
NOP
|

;SCOPE

|}START
o
Py

CALL

OF TEST

/'SEQ 0153

CZRMMBO RMOS5/3/72 FCTNL

157

TST

SEARCH ON CYLINDER

035036
035042
035046
— 035052

012706
013700
013701
012737

001100
001276
001464
000057

1910 035060

004737

041650

035064

054130

MACRO v04.00 4~APR-q1 11:43KB PAGE1% 71
]

MOV
MOV
MOV
MoV

001226

estAcKsp U

SiNstiaize stack PoINTER

TSTQUE,RL

:(R1)

$BASE, RO

PC,TSTPRP

104000

1917 035134
1918 035140

1919 035144

1920
1921
1922
1923
1924

035150
035154
035160
035164
035170

035174
035176
035200
035202

1925 035206
1926

1927 035212

035216
035220
035222
C35224
1928 035230
1929 035230
035234
035236
035240
035242
035244

1930 035250
1931 035250

035254
035256
035260

035262

035264

1932 035270

035510

012703
012737
012737
012737
012737
012702
112722
112722

000035
000000
000000
000000
000005
001543
000006
000034
000032
000000
00020C
042624
043160

112722
112722

112722
004737
004737
000404
000240
104000

000137
004737
004737
000404
000240

104000
000137

004737
000405
000240
104000
004736
000137

004737
000405
000240
104000
004736
000137
012737

138

1%:

001444
001416
001442
001410

#29. R3
#0,RMDCO

#0,RMDAO
#O.RMOFO

SRECALIBRATE IF "'SKI"'
OR ‘PIP"* IS SET
iVERIFY RECALIBRATION

:G0 0

JMR |

3%:

JSR

042710

4%:

043706

051024

13%
o
17 PC. TIMOUT

001410

6%:

.Gg TO 38 IF

58"

" 'l‘l

ERROR

Hiijj) ';60 TO 138 IF ERROR
i

(

;RETURN

)
LR
8 [T

HERE IF ERROR

' =

| ERROR # DEFINED BY GET SUBROUTIA
fiy;q“;60 ro»nss IF ERROR
I

PC PRIERR |

s
!

PC,A(SP)+
13§
i

JSR

BR
NOP
(EMT

|| JSR
I

| JMP

:60 TO'S$ IF NO ERROR

:RETURN HERE IF ERROR
uén
;ERROR # DEF INED BY PRIERR SUBROUTINE
|,

:G0 VERIFY RESULTS OF SEEK“OPERAPION

111

PC, a<sp)+

13$

Gg TO 68 IF NO ERROR

RETURN HERE IF ERROR

iG0 BACK FOR MORE ERROR CHECKS

;GO TO' 138 [F ERROR

'SYO E SEARCH COMMAND

i
j

AL A
[\

[

|
|
|\ !

. :ERROR # DEF INED BY SEKSTS suenohrxne

#SEARCH'QOWfiMCS1O
(]

:GO CHECK FOR PRIMARY ERRORS4;

GO BACK_FOR MORE ERROR| cnscxs
560 TO 138[IF ERROR|

PC, ssxsrs.k

[

:Gg* AD_REGISTER(S) WITH GET, SUBROUTIAE

4% IF NO ERROR

;

iERROR # DEFINED BY PUT SUBROUTINE |

i
) !

NO ERROR

RETURN HERE IF

!|«

' GO WRITE' REGISTER(S) WITH PUT suenourxns\‘

POGET| ~,il
;138

{

i
N

.
|

035510
000031

|Wl |

58:'

Rl
‘

(i
|

1;SETUP ron STATUS FETCH

|38

EMT
JMP

JSR
P

JTRACK
5 0, SECTOR =0
118 BIT FORMAT

:FOR SEEK TO CYLINDER 0,

PC.GETSTS

EmT! |

035510

:R3 = MAKIMUM SECTOR ADDRE SS
CYLINDER =0,

#RMCST, (RD)+

;GO TO'13$IF ERROR

mr (R2)+

JSR
BR
NOP|

035510

, |
'

. PC.PUT

:ERROR # DEFINED BY TSTPRP SUBROUINE
T

:RETURN HERE IF ERROR

annoé ggg;+

MT|

18 IF NO ERROR

#SEEK !GO, RMCS10 *SEEK COMMAND.
#PUTINX ,R2''
;SETUP REGISTER x~osx TABL&"'

2%:
MOVR
MOVB
MOVB
MOVB
MOVB
JSR.
JSR

035510
0432522

I"'.

EVERTFY, PACK ACKNOWLEDGE

000137

;

p gk ACKNOWLEDGE IF VOLUME NOT VAL
ID

1811

iCUEAR CONTROLLER & SELECT DEVICE
u,vgnxrv CONTROLLER CLEAR OPERATION

'{PREPARE DEVICE FOR TEST

000404
000240

= DEVICE BEING TESTED

0134

NElS

, rAsK DESCRIPTOR AS FOLLOWS:

Wt
Tl
o

RTINS

| ::SET TEST NUMBER IN APT MAIL BOX

1054130
it

RO = UNIBUS ADDRESS

#57.STESTN

JSR
.WORD

SEQ

i
I
J

Loh

QTR

CZRMMBO RM0S/3/2 FCTNL TST 1

157

SEARCH ON CYLINDER

1933 035276
035302
035304
035306
035310
1634 035314
1935 035314
1936
1937 035320

035324
035326
035330
035332
1938 035336

1939 035336

—d

035342
035344
035346
035350
035352
1940 035356
1941 035356
035362
035364
035366
035370
035372
035376
035376
035402
035404
035406
035410
035412
035414
035416
4 035422

035422
035426
035430
035432
035434
035436

004737
000404
000240

043160

000137

035510

004737

043522

004737

042710

104000

000404
000240
104000
000137

035510

004737

043706

000405
000240
104000
004736

1958

1959

035472
035476
035504
035510

k ;g;PUTJ“

056422

PC, TAAdYT

035510

004737

050400

004737
000405
000240
104000
004736
000137

044540

035510

005237
020337

001416
001416
010000

010000
000037
000000
035126

ERROR

HY READ REGISTER(S) WITH GET SUBROUTINE

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

1’|"'

8%:

FRRRN

PC bhuERR, Wil

9%,

9%:

'11

EMT
JSR
JMP

10%:

11%:

12%:

JSR

BR
NOP
EMT
JSR
" JMP

INC
(MP

auxs ‘
001442

BIT
BNE

001442

MOV

001416

MOV
JMP

MOV

13%:

TO 13% IF ERROR

16O TO 95

:ERROR #

DEFINED BY PRIERR SUBROUT INE

ERROR
*RETURN Hfié F NO
IF ERROR

oL SCHSTS ,{
1108

;GO \VERIFY SEARCH OPERATION
:GO TO 108 IF NO ERROR

\ PC B(SP)*

'IQS

| PC,a(SP)+
1L
I

;G !fHEOK FOR PRIMARY ERRORS

GO 10 135 IF ERROR

PC, CMPERRSTS,
JSR
.WORD
NDMSK =
.WORD
DPE
ju
”1113
BR
NOP

| JSR
JMp

;GO

| nc”a<sp>+.
138
I

EMT

035510

‘

:EQROR # DEF INED BY GET SUBROUT INE

000137

SEQ 0155

UAIT FOR SEARCH TO COMPLETE

PC,GET
8%

104000

004736
000137

:ERROR # DEF INED BY, PUT SUBROUT INE
;GO TO 138 IF ERROR

004737
000405
000240

032737
001012
012737
012703
012737
000137

:RETURN MERE

035510

115760
000010
000405
000240
104000
V04736

0 10 7% IF NO ERROR

138

7%:

)

gO WRITE REGISTER(S) WITH PUT SUBROUYINE
)

000137

103306

1954
1955
1956
1957

MACRU V04.00 4~APR-81 11:43:28 PAGE‘W%-??

;GO BACK_FOR MORE ERROR CHECKS

:RETURN HERE 17 ERROR

:ERROR # DEF INED BY SCHSTS SUBROUTINE
GO BACK_FOR MORE ERROR cuecxs
:G0 TO 13$ IF ERROR

s CHECK ANY ERRORS NOT MASKED|

:MASK FOR RMER1'

:MASK FOR RMERZ2

/360/T0 118 IF NO ERROR
JRETURN HERE IF ERROR

}f;ERROR # DEF INED BY CMPERRS*S SUBROUT]NE
;GO BACK_FOR MORE ERROR CHECKS
1460 TO 138 IF ERROR

/60’ CHECK FOR SECONDARY ERRORS

PC.SECER%

128

G0 TO 128 IF NO ERROR

‘RETURN HERE IF ERROR

:ERROR # DEFINED BY SECERR SUBROUTINE

PC.a(SP)+
|

:GO'BACK_FOR MORE ERROR CHECKS
:G0 TO 138 IF ERROR .

RMDAO

: INCREMENT SECTOR ADDRESS
gg@g ALL SECTORS??

13%

R3 RMDAC ‘

:
i

#EMT16,RMOFO

;1S 16 BIT FORMAT DONE??

HEMT16, RMOFD
#31. RS
#0, RMDAO

*R3= MAXIMUM SECTOR ADDRESS

138

2$l

‘BR IF

:SET 16

YES

BIT FORMAT

;START AT TRACK = Q,
:GO TEST AGAIN

H
|

SECTOR
= 0

::I.tt'.'t.fi‘.tt'.ttt‘t'itt'fl‘fi'ti.tfi..t‘..tttl".t!tl“.tttl'ttt

CZRMMBO RMOS/3/2 FCINL TST 1
160
SEARCH OFF CYLINDER

MACRO v04.00

N 12

4-APR-81

11:43:28 PAGE 13-73
SEQ 0156

;*TEST 60

035510

035512
035514
035520
035524
035530

000004
000240
012706
013700
013701
012737

035542

004737
054130

1960
1961 035536

SEARCH OFF

CYLINDER

.....‘...".'t't.**.'fi""..Qt.'tt"."l.l.Q'tl"""."

78760:
001100
001276
001464
000060

SCOPE

NOP

001226

MOV

WSTACK,SP

TSTQUE ,R1

RO = UNIBUS ADDRESS

$(R1)

PC,TSTPRP
| 054130
|

035544
035546
035550
035552
1962 035556

000404
000240
104000
000137

035660
035662
035664
035666

1978 035672
1979 035672

1980

1981 035676

035702
035704
035706
035710
1982 035714

1683 035714

035720
035722
035724
035726
035730

D b D e =D

1968 035606
1969 035614
1970 035620
1971 035624
1972 035630
1973 035634
1974 035640
1975 035644
1976 035650
1977 035654

S oo

1965 035572
1966 035576
1967 035602

O =B b b i o

1964 035564

O—=—=2=22a 3000000

1963 035556

000000
000000
000035
000632
000633
000005
001444
001543
000032
000034
000006
000000
000200
042624
043160

EMT

001442
001410

23:

JSR

042710

036214

043706

| #200, é

' ;,

NDER

B il

I»

POJGET
4$

)h!

;WAIT FOR SEEK TO COMPLETE

(| L EMT
b
|
, ;1' JSR | ‘PC a(sp)o
1 ’J
. ,4?,e Wit

:RETURN MERE IF ERROR
|
~ ERROR # DEFINED BY GET §UBROUTINE ' 0

{

;G0 CHECK FOR PRIMARY ERRORS

GO TO 58 IF NO ERROR

ZRETURN. HgRE IF[ERROR

[

*ERROR # %;1~Eo BY PRIERR SUBROUTINE
., :60 BACK FOR
MORE ERROR’ CHE(KS
‘,Gu TO 148 IF ERROR
.
‘.1..
1)

|n ;;( ‘.
T

‘

|||
THN
HH

el
I

;

' ' iGD TO 48 IF NO ERROR

| ;G0 TO/ 148 IF ERR

1.,;60 READ REGISTER(S) WITH GET SUBROUTXNE

PRJth

[

'£ A

:60 TO 148 IF ERROR

pAKEY

‘ny' '
L
|

ERROR # DEFINED BY PUT' SUBROUJIN

|
Il

/[;RETURN HERE IF ERROR

¢/

”

:G0 TO 3% IF NO ERROR

Foid

1260 WRITE REGISTER(S) WITH PUT SUBROUTIN

.,fujfi
‘A

[

:TERMINATE TABLE| |

1, IESETUP IFOR TATU§

,an i 14t
|

;RS = 'SEEK C

‘

. fl

NP/ |
eMr |

432

R3 = SEARCH CYLINDER'

#RMDA,(R2)%

" JsR ?!h‘PCAIF OUT |

043522

ARMCST (R2)+

i’

2)+ll »uwssrup REGISTER INDEX TABLE']|
¢w§R2}
iFOR SEEK comnAnpf
|

JMP
;

ADDRESS' Aei
?E {1 :R2_POINTS 70 RECTSTER
T E

R ,
036214

= MAXIMUM SECTOR ADDRESS

‘xSTkRT WITH
18 BIT MO QA

JSR| PCIPUT

EmT,

vo V!

SR pE, GET

;G0 T0'14$ IF ERROR .

:LOAD CYLINDER

~MOVB |

:ERROR
/# DEF INED BY TSTPRP SUBROUTINE

vssex'go(RMCS10SLOAD SEEK €

|/,

:RETURN HERE IF ERROR

a411..n5

:VERIFY PACK ACKNOWLEDGE

260 TO 1S IF NO' ERROR

4;3 iy

| Moxg

DEVICE

:PACK_ACKNOWLED ~05F VOLUME NOT VAL
ID

] {) it

MOVB
MOVB ;J{‘

CONTROLLER & SELECT

IVERIFY CONTROLLER CLEAR OPERATION

(1 11 ;VERIFY RECALIBRATION

Mov! "'5

iCLEAR

| vy

JMP

001416

NOP

:PREPARE DEVICE FOR TEST ||
:TASK DESCRIPTOR AS FOLLOWS:

(|| +RECALIBRATE IF *'SKI"
OR "PIP'* IS SET

036214

= DEVICE BEING TESTED

;SET TEST NUMBER IN APT MAIL BOX

TEST

\INITIALIZE STACK POINTER

#60,$TESTN

JSR
.WORD

;

:SCOPE CALL

. ;START OF

$BASE , RO

041650

".'ttQl

i 1

CZRMMBO RMOS/3/2 FCTINL 1ST 1
160

SEARCH OFF

1984 035734

1985 035734

035740
035742
035744
035746

036214

1987 035754

010337

001444

035766 004737

043160

1988 835760

'
|

035772
035774

1989

035776

036000
1990/036004

012737

000404
000240

042710

004737

(36014 000404

036016

000240

036022

000137

036032
036034

104000

036214

1997 036046, 004737 056422 j!

1999 036066
1703672
036074
csgg 6

036102
036104

036106

2000 036112

RIMNE

036120

104000

004737
115760

050400

000010
000405

108z

036214

1s:

00040

104000
004736
000137

2003 036132

005303

2004 036134

005205

JSR

PC, TIMOUT

i
:

JSR

PCLGET .

‘

;LOAD SEARCH COMMAND

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 7$ IF NO ERROR
;RETURN HERE IF ERROR

{

ERROR # DEFINED BY PUT SUBROUTINE

:GO TO 14$ IF ERROR

;WAIT FOR SEARCH TO COMPLETE
;GO READ REGISTER(S) WITH GET SUBROUTINE

% ;GO TO 8% IF NO ERROR

¢ ;RETURN HERE IF ERROR

JMP

148

JSR

PC.PRIERR

EMT
JSR

| PC,a(SP)+

JSR

PC,SCHSTS

: ;ERROR # DEF INED BY GET SUBROUTINE

Z:G0 TO 14$ IF ERROR
£

E£:G0 CHECK FOR PRIMARY ERRORS

=:60 TO 98 IF NO ERROR
Z:RETURN HERE IF ERROR

2 ERROR # DEF INED BY PRIERR SUBROUT
INE
%GO BACK FOR MORE ERROR CHECKS

14$

GO TO 14$ IF ERROR
i

#GO VERIFY SEARCH OPERATION

108

%60 TO 108 IF NO ERROR
ZRETURN HERE IF ERROR

TERROR # DEF INED BY SCHSTS SUBROUTINE

JSR'
JMP

PC,a(SP)+
14%

JSR
.WORD

PC,CMPERRSTS
NDTMSK

$GO BACK FOR MORE ERROR CHECKS
GO TO 14% IF ERROR
2

ZCHECK ANY ERRORS NOT MASKED

DPE
118

#MASK FOR RMER1
aMASK FOR RMER?2
#G0 TO 118 IF NO ERROR

EMT
JSR

PC,a(SP)+

“-RROR # DEFINED BY CMPERRSTS SUBROUT INE
#0 BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

NOP

JMP
NOP

036214

2005 036136 005237 001416V

148

B8R
'

JMP

.WORD
BR

000137

000240

104000
004736

7%
f

EMT

:LOAD CYLINDER ADDRESS

BR
NOP

J
036214

JMP

004736
000137

036122
036124
036126

2002 036132

:GO TO 14$ IF ERROR

PC,PUT

BR
NOP

2001 836112 004737 044540
11036116

R3,RMDCO

SEEK OPERATION

:GO TO 6% IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

#SZARCH!GO,”MCS10

EMI

8s:

;GO VERIFY RESULTS OF

s
1
:
2

MOV

NOP

000405
000240

14$

036052
036054
036056
036060
036062
1998 036066

PC,a(SP)+

JSR

003_405'
006240

000137

MOV

7%:

036214

EMT

[

036036 104000
036040 004736

Shai 83 822

6%:

SEC 0157

PC,SEKSTS 1

JMP

001410 !

1995 036026 (004737 1043706
'

BR
NOP
EMT
JSR

104000

1993 036010

1994 03602€

JSR

000137 036214
043522

000031

}993? 036004. 004737

11036020

2
i

000137

(51024

000405
000240
104000
004736

4-APR-81 11:43:28 PAGE 13-74

035750

1986 035754

;

MACRD v04.00

CYL INDER

004737

8 13

EMT
JSR
JMP

148

128

@XETURN HERE IF ERROR
#GO TO 14$ IF*ERROR

:GO CHECK FOR SECONDARY ERRORS

;G0 TO 12% IF NO ERROR

;RETURN HERE IF ERROR

PC,a(SP)+
148

:ERROR # DEF iNED BY SECERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 14$ IF ERROR

DEC

:DECREMENT SEARCH CYLINDER

INC

RMDAQ

s INCREMENT SECTOR ADDRESS

INC

: INCREMENT SEEK CYLINDER

CZRMMBO RMOS5/3/2 FCINL TIST 1
160
SEARCH OFF CYL INDER

2006
036142
2007 036146
2008
2009 036150
2010 036156
2011 036160
2012 036166
2013 036172
2014 036176
2015 036202
2016 036210
2017 036214
2018

MACRO V04,00

001416

032737
001016
012737
012704
012703
012705
012737
000137

010000

001442

010000
000037
000632
000633
000000
035606

001442

2020

R4 ,RMDAOD

13%

sDONE ALL SECTORS??
;NO = DO NEXT SECTOR

BIT
BNE

#FMT16,RMOFO

:DONE 16 BIT MODE YET 2

036230
036234

2021 036242

036246

14%

#FMT16,RMOFO
#31. R4
#410. ,R3
#611.,R5 |
#0,RMDAO

MOV
MOV

001416/

'MOV
MOV
JMP

13%:
14%:

JBR _IF YES
SET 16 BIT FORMAT

MAXIMUM SECTOR ADDRESS
R3
SEARCH CYLINDER
:R5 = SEEK CYLINDER
:START AT TRACK = 0, SECTOR = 0

;GO TEST AGAIN

tfi..tt..t'.*.Qt'.'."ti'!'ttt'tfi't"lQ't""ti.t"t..'.'."t"'

’-resr 61

036224

13-75

CMP
BHIS

MOV

2019

036214
036214
036216
(36220

¢ 13

11:43:28 PAGE

SEQ 0158

020437
103020

4=-APR-81

000004
000240

012706
013700
013701
012737

004737
054130

AR RS

1‘75761

| i

SEARCH INVALID SECTOR

SRS Sl

i SCOPE

001100
001276
001464

000061

04v§%q

NOP
MoV
MOV

$RASE, RO

TSTQUE ,R1

JSR
.WCRD

2222232

22222222222

:SCOPE CALL

#STACK, SP

MOV
. MOV

;START OF TEST
INJTIALIZE STACK POINTER
UNIBUS ADDRESS

(RI)

= DEVICE BEING TESTED

#61,$TESTN'

::SET TEST NUMBER IN APT MAIL BOX

PC,TSTPRP

;PREPARE DEVICE FOR TEST

054130

:TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE

:RECALIBRATE IF ''SKI'°
GR ‘PIP'* IS SET

036250
‘036252
036254
036256
2022 036262
2023 036262
2024 036270
2025 036276
2026 036304
2027 036312
2028 036316
2029 036322
2030 036326
2031 036332
2032 036336
2033 036342
2034 036346
2035 036346

036360
2036 036364
2037 036364
036370

000404

000240
104000
000137

012737
012737
012737
012737

036614

000000
000000
000036
000031
001543
000034
000032
000006
000000
000200
042624

052264
036614
004737
000404

043160

001442
001444
001416
001410

1%:

2%:

NOP
EMT
JMP

MOV
MOV
MOV
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
JSR

JSR
EMT

3%:

128

#0 ,RMOFOQ

sVERIFY RECALIBRATION
(GO TO 18 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEF INED BY TSTPRP SUBROUTINE
£ :60 TO'12$ IF ERROR

;SET 18 BIT FORMAT

#0,RMDCO
#30. ,RMDAO

;CYLINDER
= 0
:FIRST INVALID SECTOR
= 30.

#RMDC , (R2) +

; COMMAND

#200, (R2)+

s TERMINATE TABLE

PC,CNTCLR

;GO ISSUE

#SEARCH!GO,RMCS10
: SEARCH COMMAND
#PUT INX ,R2
:WRITE REGISTER TABLf FOR

HRMOF, (R2)+
#RMDA, (R2)+
#RMCS
T, (R2)+
PC.GETSTS

JMP

12%

JSR
BR

PC,PUT

;SETUP STATUS FETCH
CONTROLLER CLEAR

;GO _TO 3% IF NO ERROR

sRETURN HERE

ERROR

sERROR NUMBER DEF INED BY SUBROUTINE
;GO TO 12% IF ERROR
;GO WRITE

;GO TO 4% IF NO ERROR

WITH PYT

SUBROUTINE

CZRMMBO RMOS5/3/2 FCTNL IST 1
161
SEARCH INVALID SECTOR

036372
036374
036376
2038 036402

MACRO v04.00

D 13

11:43:28 PAGE

[

NOP

EMT
JMP

12%

JRETURN HERE IF ERROR

000137

036614

2039 036402

004737

043522

JSR

PC, TIMOOT

2041 036406
036412
036414
036416
036420
2042 036424

004737

042710

JSR
BR

PC,GET
5%
!

000404
000240

104000

000137

036614

004737
000405
000240

043706

NOP

slii]

]

2044 036444
2045 (36444

JMP

JSR

004737
000405
000240

ilas

056422

2046 036464
2047 036464

036472
036474

036476
036500
2048 036504
2049 036504
036510
036512
036514
036516
036520
036522
036524
2050 036530
2051 036530
036534
036536
036540
036542
036544
2052 036550

2053 036550
2054 036554

2055 036562
2056
2057 036564
2058 036572
2059 036574
2060 036602

036614

:
75%1

057766

004737
000405
000240
104000
004736
000137

036614

004737

050400

117760
000010
000405
000240
104000
004736

000137

001416
001416

PC,STCDRVSTS

NOP
EMT

e
i

NOP

‘
io

JSR
BR
NOP
EMT
JSR
JMp

010000

010000
000040

000100
001442

001442
001416

128

PC,SECERR
108
PC,a(SP)+
12%

INC

RMDAO

ERROR

;GO BACK FOR MORE ERROR CHECKS
;GO TO 128 IF ERROR

IN DRIVE

ERROR

;CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
:MASK FOR RMER2
|

;GO TO 9% IF NO ERROR

*RETURN HERE

IF ERROR

;ERROR # DEF INED BY CMPERRSTS SUBROUT INE

;GO BACK FOR MORE ERROR CHECKS||

*GO TO 128 IF ERROR

;GO CHECK FOR SECONDARY ERRORS
;GO TO 108 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUT
INE
260 BACK FOR MORE ERROR, CHECKS
11;G0 TO 12% IF ERROR
; INCREMENT SECTOR ADDRESS

RMDAO, #64 .
11%

:DONE YET ?
:BR IF NO

BIT

#FMT16,RMOFO

;TEST FOR 16 BIT MODE YET

12%
#FMT16,RMOF O
#32. .RMDAO

STATUS

;GO BACK FOR MORE ERROR CHECKS

CMP
BLOS

BNE
MOV
MOV

[

*RETURN HERE IF ERROR
;ERROR # DEF INED BY STCDRVSTS SUBROUT INE

160 TO 128

PC,CMPERRSTS
IAE 'NDTMSK
DPE

:ERROR # DEFINED BY SCHSTS SUBROUTINE

;GO CHECK FOR CHANGES

PC,a(SP)i+

PC,a(SP)+

*RETURN HERE

;GO TO 8% IF NO ERROR

128

JSR

|
|

JSR
.WORD
.WORD

JMP

;GO VERIFY SEARCH OPERATION
;GO TO 7% IF NO ERROR

JSR

ERROR

GO TO 12% IF ERROR

PC.a(SP)+
12%

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

EMT

036614

;RETURN HERE

JSR
JMP

JMP

044540

;GO TO 6% IF NO ERROR

|
PC,SCHSTS

'03661-

;GO CHECK FOR PRIMARY ERRORS

12%

PC,PRIERR

PC,a(SP)+

EMT '

%GO TO 12$ IF ERROR

EMT
JSR

NOP

ERROR

128

JSR
BR

104000

004736
000137

;ERROR # DEF INED BY CET SUBROUT
INE

6%,

JMR/
:

;WAIT FOR GO TO RESET
;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 5% IF NO ERROR

B8R

NOP

036614

JERROR # DEF INED BY PUT SUBROUTINE
260 TO 128 IF ERROR

*RETURN HERE

EMT

104000

004736
000137

13=76
SEQ

000240
104000

4&-APR-B1

:BR IF YES
;SET 16 BIT MODE
JSET INVALID SECTOR =

32.

0159

CZRMMBO RMOS/372 FCTNL TST 1§
T61
SEARCH INVALID SECTOR

2061 036610
2062 036614
| 2063

(00137

MACRO v04.00

036346

118
12%:

206‘

4=APR-B1

JMP

036614

000004

036620

012706 001100

000240

036624

sTEST NEXT SECTOR

SEARcv

013701
012737

001464
000062

2066 0366421 004737

;

036646

b
.

[

;

| 036650

]

-1 036652

036656

7,;036656

JSR
:

000404

‘.

000240

104000

21 036704

000
001332

105237

001417 |

073 036716' 01270

1543

org036722!! 11272 'oooooe

207

726

'2077'

036736

(112722

000034

112722

oooooo"d

2079I 36746

904737

042624

2081 036759,

004737 052264

mgo 732 11112722

‘

2080

036742

1036752

/C36756

3676

000032

112722

(000200

000404

000240

'104000

{

J»
:

||,

36774
776

4 2084 037006

04
ooo 40

037012

005737 062710

037020

240 ey

037016

;ERROR # DEF INED BY TSTPRP SUBROUTINE

:GO TO 12% IF ERROR

#SEARCH!GO,RMCS10

#0,RMDCO
LSTRK ,RMDAQ

: SEARCH COMMAND

;CYLINDER = 0
*LAST TRACK, SECTOR
= 0

PC.GETSTS

JSR

PCLCNTCLR

TM
JSR

BR,
'INOP

EMT

;GO TO 1$ iF NO ERROR

;RETURN HERE IF ERROR

JSR|

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

HRMCS1,(R2)+

SR
JSR

[NOP|

VAL
1D

RECALIBRATION

MOVB

EMT

WRMDC.(R)+

NOP |

(48

NOT

MOVB

'fl$w l

VOLUME

:WRITE REGISTER INDEX TABLE '

MOVB

APUTINX,R2|

¥
e
iy

ooo 371 przzc L

085 037006 004737 043522 "

2087

i
{“’

128

DEVICE

MOV =

MOVB

SELECT

*SETUP FIRST INVALID TRACK

lil

2%:

RMDAQ+)

MOVB':

ACKNOWLEDGE

*VERIFY

770 000137 037524
208 770 004M37 043160

I
|

INCB

CONTROLLER

:VERIFY CONTROLLER CLEAR CPERATION'

*RECALIBRATE

MOV :

:VERIFY PACK ACKNOWLEDGE

MOV

:TASK DESCRIPTOR AS FOLLOWS:

:CLEAR
*PACK

MOV
MOV

2 036710 012737 00! 000| 001442

;PREPARE DEVICE FOR TEST

‘

JMP

001444 !
001416

PC,TSTPRP
b

EMT

;RO = UNIBUS ADDRESS

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

054130
|

NOP

000137 037224

012737
2070 036676 013737

“, |

LWORD

..,
’

20 8 osobgz 012737 8b8031 001410
2069 036670

2078

|
,

;

041650

054130

JINITIALIZE STACK POINTER

$BASE ,RO

MOV ' TSTQUE,R1
MOV
| w62,STESTN

:START OF TEST

#STACK,SP

MOV

001226

TRACK

:SCOPE CALL

MOV

INVALID

..'.‘.t...t.."llittt'.tt"'..."'t"."'.'

SCOPE

NOP

013700 ''001276

036630
s 036634

15162:

026614

036616

S 2222
R
R
22
RRRE]

I
|

13-77

- ."....‘.'.'.....'.'.'"".'...."'...'."'.'..A‘.'...'.....'..

LRTEST

;

11:43;78 PAGF

#0 ,RMOFO

;SET 18 BIT FORMAT

#RMDA, <n2)+

#RMOF
. (R2)+

o
_

#200, (R2)+

-TERHINATE TABLE

;G0 TO 3$ IF NO ERROR

| ;60 ISSUE CONTROLLER CLEAR'
;RETURN' HERE IF ERROR

:ERROR NUMBER DEF INED BY *UBROUIINE

128
|
PC,PUT
4%

:6G0 T0 128 IF ERROR |
;60 WRITE REGISTER(S) WITH PUT sueaourx~e
:60 TO 4$ IF NO ERROR
RETURN HERE IF, ERROR

ennok ” osrgNER
BY PUT sdBRObTINE

160 10 128 1

PC, TIMOUT

:WAIT FOR GO 10 nsssr

Pgfid[fi

GO READ REGISTER(S) WITH GET SUBROUTINE'

:60 70 5% IF NO ERROR

RETURN HERE I ERROR
b

i
i

:
MACRD

C7RMME0 RMOS/3/2 FCTAL 181 )
Te2

SEARCH INVALID

037022
11037026
0881037030
2089 037030
037034
037036

000405
000240

037040

2090 037050
|

]

‘“;\-'
!
Limig!

004736 |

000405

000240

004736
000137

037224

oso:.oo’l

WWWWNWIN NN
WWWWWW

N .

00000C

)

B ol ot ok
it

e g—

8 ~ EIRIV288S

COooo lelolelololelelole]

004737
117760
000010
000405

10480§

000

3 00013'

004737

004792[
000137

EMT
;,J;g

ik
PC,a(SP)+

JSR

PC,{MAERRSTS

128

\
&
[!s_

ggg

]

JRETURN HERE

105237
123727

101474|

03€737

03?2241

001417

000200

010000

0p1442

01332

001442
001416

036752

)

105237)1001417

000137

JMT'

363

;GO BACK _FOR MORE ERROR CHECKS

éfgg

vy g&g

;MASK FOR RMER1
MASK FOR RMER2

UMP

128

éHRSTS SUBROUT INE

:ERROR # DEF INED BY (MP
GO BACK_FOR MORE ERROR CHE(KS

| |§60 TO 128 \IF
5

ERROR

:GO CHECK FOR SECONDARY ERRORS
;GO TO 108 IF NO ERROR

JRETURN HERE

ERROR

;ERROR # DEFINED BY SECERR SUBROUTXNE
;GO BACK_FOR MORE ERROR (HECKS
;GO TO 123 IF ERROR |

PC,a(SP)+

hii
o
."A"

‘ §?gf0¢1
#4128,

INCREHENT TRACK ADDRESS

:DONE ALL

NO'!‘I

TRACKS ’?'

:DONE 16 'BIT MODE

:$§T16 RMOFO

;E?16 BIT fonnA

.
Lnir TRACK, SEQTOR
= 0
:SETUP FIRST INVALID 7 RACK |~DDRE

TARE:

;GO TO 9% IF NO ERROR

I;Rsrunu HERE IF ERROR

MOV
| #FMT16,RMOFO
nga égggs ?HQAO
118

.“

CHECK ANY 'ERRORS NOT MASKED

INGB | RMDAD+1

ERRCR

GO TO 12% If ERROR

1040

:EQROR # DEF INED BY STCDRVSTS SUBROUTINE

45}‘ : BSR 1os§E$ERR
R

;GO CHECK FOR CHANGES IN DRIVE sTATUS

;GO TO 8% IF NO ERROR

K!IAE

égOR Er “;
thr
"B,
a;SP)
4fif
128
'

ERROR

‘u

128

wong |

;ERROR # DEF INED BY SCHSTS SUBROUTINE
;GO BACK_FOR MORE ERROR frECKS
;GO TO 12% IF ERROR

PC,R(SP)+

| PCLSTCDRVSTS

:GO VERIFY ?E ARCH opskarxow
;GO TO 7% IF
NO ERROR

JRETURN HERE

Jgn

:GO BACK_FOR MORE ERROR||CHECKS
:G0 TO 128 IF ERROR

ETRe

\fi

044540 |

it = |

JSR

;GO CHECK FOR PRIMARY ERRORS
;GO TO 6%
IF NO ERROR
:RETURN
HERE IF ERROR
ERROR # [DEF INED BY PR 1ERR SUBROuTINE

lgss

260 10 nzs F ERROR

128
PC,SCHSTS

SOP
EMT

STEST NEXT

TRACK

I l

!
i
{
T
. QF'.'.'!.'.t't"t.t"""l.'dl.'.!."t.‘.."'tt't..l‘t"t""'.

TTEST 63

SEAR(H

INVALID C(YLINDER

. "'0.."r"'l.Q"..'.Q""...Q"..Il'.....t..'..t""i.'.nt.".

.v'
‘;

'WE

SEQ 0161

:ERROR # 65INED BY ot T SUBROUT INE

]

13
13-78

PCLa(SP)+

i
JSR

\ ' ;

'
037224 |

00473

128
PCLPRIERR

"figr

fILESAY
’
\

1104000

NOP

fit"l

057766 ST

B8R

000137 '03723“1

004737

‘rnp
IhsR

g
-

F
11:43:2B PAGE

EMr

"
(77

037224,
0‘642?‘

104000

Tl Gl et ot ol e

004736
000137

2091 ,037050° 1004737
037054
00405
037056 000240

flJflfi\H\flU‘ufluflfi;fluhufluhamflv
o

104000

37042
37044

043706

004737

‘

'4-APR-81

000129 c37024)

TRA('ki

v04.00

o':' ,l

G 13

0 RMNS/3/2 FCTNL T1ST1

nAtnc v04. 00/ L-Aph#81 11:43; e8 PAGE 13‘79||
T | SEARCH INVALID
1L INDER
,
,|
E

§ 7234

000240
0127

001100

0137

240 0137014

2644

012737

037252

0p4737

1037256

'Lll

000004 J

'1‘ I'

LR
L|

04165d

noq, |

MOV|

’2‘ook IR 1
63 STESTN

JSR

\pc TSTPRP

<WORD | oflq13o«

R
i

e ol ok
b e o
e v

031362

000240

0§7266

000137

064

mmmwmmummm'mr LV Vi

037260 000404 q1|
04000

7300

012737

1087314

012737

|037306 ' 0127137
037322

012702,

, 83032

037326 .
| }12722

2 0373321112722

037336 '112722

037342

112722

0014
0000
000
015

0034
000@6
00000

722

37356/ 004787 052764. q

037364 | | 0240

037370 0
\éfi 29 037374
Hfg

30 03787

13fl 03qefiéu

787! 42710
37424 000240
[

]
B

104000

1037430 000137
037624
.

5 36;03,332| 004737
| 037440 11000405
037442

03744

CCUr L

q,SEW.YESY NUMBER IN APT MAIL BOX

:PREPARE DEVICE FOR TEST
|

:TASK DESCRIPTOR AS FOI LOWS:

' [|"

iCLEAR CONTROLLER & SELECT DEVICE

'IVERIFYICONTROLLER CLEAR OPERATION

U1l

iPACK ACKNOWLEDGE IF VOLUME NOT VAL ID

Vet
ot
ST

,
|

1 iRRey VIR TESTED

|||

o8|

¥ n£c¢gxen TION

|
:60 TO 18
ERROR
|
ARETURN HERE Y ERROR

R
:

‘ ERIFY PACK ACKNOUL&DGE
5
g?
‘R
IBRATE IF “SKI'TOR
“PIP""
IS sET

| iERROR & DEFINED
,.

BY rsrpép~$qanouvx~e

:60 T0 128! IF ERROR

| 4y

mov nlfx
EARde 0 amcs1o
SEAR(H C
l
||| 23 SRMDCO
:START AT[F iRST INVALID] CYLINDER
mov ' WO, RMD
’, JTRACK = 6 secron
,

e
Ol
SEIr’Bn’e’éM
T
N
ol
ocagyy
F
|
RATE
5.""‘
Ly
Bro/oN
MO
| #RMDC (RZ)‘* l
Iy ‘f'.[ li
‘
o |
vt
o movell

wRMDIAL (R2YpT

move
I #RNCS | (R2)¥

I pe.
68$
&
o

-k

.Ij

jsele snATd§ FETCH
|
o

JSR,npc rrc 4Gd|xssus CONTROLLER CLEAR

2%:

[

FUE

i
'

T
R 1}‘ ) i
|
il ri gp.,,
:ERROR NUMBER DEF INED ev SUBROUTINE
TR

ifill

Dme

1as |

¢ égz F\ ;;
Huvs

;G0 70 |e$i ERROR |

tL|

r u?u

ggJE?gcégrggé ),qflru PUT 3ueaourx~9'\

037412 , per37

\| 1037426,

eMT

i
! ,”

' 004737 0431@9”

7406

égxtxALfgessxgggfggx~vfn

|,!;\ mov

037400 (0 904
l
7402'
0
¢ 7404
/
10y

L 03713

gl
ge

:q,

00200

037362

7272. 012737 000031

037366 1'04

037624

ggg&w 042624

l'|

:85 lwsracxgp

880063.00’226

054130

'4’]!

7003

| 037446 004736/

l 1
v

'}i

! f,us#| ,gg.cfr ‘“!~ -58.U§:oREGISTER (S)éwnvfl T SUBROUTINE|
o oy
g | “ERROR
FRET # s DEFINED
xr AR
L‘
|
T em;i'
:
BY GET 0urx~e

! "illp
R

f1!Hfixknn

EmT

K fifip

,g.“
J

12%

Ty 60 rqupwr ERROR|

" .60 ¢ £§ ;9R PkéEARY dn&oas b

RE‘URN HE 39 E 382
'"“ERROR
#

DEFIINED BY PRIERR SUBROUTINE

(’ 6O BAC'K {FOR flRE ERROR (HE K‘)

,"'ni

{

|“

Rl
[’
|
| I

o
e

| !

’

ool

ll.l "' '

H,
R

7454
30
2130 0374
§1%8

'i
I | .,, "

|"f l.

“‘fl'
‘

}d
1 |
¥o L
54”5 ’

’séa2

ghoy

osh7se
1
71.71. ‘001.73 3 0577
6 ‘ = ,”,

JSR |

7500 000405

60’ vsnxrv sEfiRFF

onthvxo~
:60 T0 78 IF D' ERRO
R

"gi‘?‘1)' I l '110‘z§°?r"?§5n£““°" %

3,,‘|"J Mp L f

000137 '.037624

’h66o00ag47‘32o | '." fie \ e .
03i
74

9 0374?4

l“ Ll

037470

| | j| ‘1(3 .

]

sy ?”
i

937486

MACRE V04,O?HfJ-LAPR-gv 11:43;ge bt 138

/32 FOTNL

TST 1,
‘,F'BJ g?gnru;NJALID CYLINDE
R

()

H
é

reod S”

p@
STCORVSIS|

ROR

' L&o ¢

osr:uzo

SCHSTS

cxxHOR

|
338"

HQNGES IN [DRIVE STAT
US
gV

180 §8%

t 1

'”’),

| ,‘ H i 282"6829%Q"L L |I’ .l,'| nJ |V
ST b‘/ét ‘fROLT Ine
POPICTP ,1}; 60170 128 17 ERROR
|
H 3re1f o
;fi{
|

1037308

144
i

080320

oy shacs

2142,03781 4 ? f
;

1l f'.' ("' |

037522 f

Lt“I

oé752006

" EmMr

;’ iIF ERR
" l|~ RERTR
O srmfo By
1"

',', i m| ,Jc np’l'."

) DO
VAT

' }}ll

) .I| |

W' |1

TA
EI,
ND ?
g
: agORD ‘lg“' '

N L)

lEMT

’37 037624

(',

50 BACK |FOR MORE ER

RDR

CHELKS

SCHEEK ANY ERROM
RS W“W

gt
LMASK F
3

1 EQQ%

'
',J
£ ERROR H§RE4
| ERIOLAR eEEsSUBR(e

.-‘

Wl"éERR

RROR

GO cue SECONRARVFfoRs

Wl l 7 l
it
"H
/)
EF]NED BY SECERR |SlBROUTINE
'- % (SP)’ ,: ,IIlGH QACKH
)RE ERROR CHECKS ]
§ g1'I26jl.'37265i0“| 100m 'bm?‘ W o UL dl
'| 1 FoI
Lu
nc
nd
~L’eong|'
nEpd
N"ngvn"Dge
837564 02372277' 00
'é
fl
p
0074
C
‘444
S
44 'p
L
1
02
4
nila
, e ]
ERSs 20
1 0RESs |
I

gJ
32

4737

044540,

.“

“ }EE fi7572 002:11
Al

6db

|. 5426 03?6 &7

h , 1 ||.
|

'“

[

il'i

8;;22

o3res !01

oimo o.13;g
;

.cll }‘-‘OB';Z“ i

001260

00008

H ; !

"I_ '

‘

i
ART p(kaasr INVALI
Q‘CNLINDE

“ «

: 4!} L"1.\‘.".I 'i"""'""

. \! ‘'ha';l 64 T v ARG SEA?S"I...'t't‘.t!tttttttttt'i.'tt'..!'tQ'R R LT
Q'

) I[lpsr{160’

RRFRAAXA

SCOPE

‘f"jll
\ Hflov

o12§'cn

llo6(4?), l/\i

RNAANAAR

.53 Qq
é

V, | e,
hov

'Jgg

IsTEs

pc TSTPRP

""'."."..l. .'r* AL

’” :SCOPE CALL

F_TEST

ERROR

EFi6°BIT FORMAT

#EMT]

"OV 1 78
238, M
2
III

qb " SET 16 BIT FORMAT

128 hb RMORO

MoV

12%:

“ansip

' | . ", ;}s ',“ ‘ i \I'I‘

12 012737 W73X
56 8}ill’

‘5
. ! 2"1525’0 1620 |'POO13|7 '({)3

" 010000, 001442

02 00 9
N
LR 18 SERTs. S1so%y

’

108’

2150| b37574 03%
21510376

' §N OBVICE BEING! TE

sg% TEST NUMBER IN APTSTEEMAID L BOX h

/" ?22: Esgg}’é%n‘aog Y'OPOU

{ JRMMBO Wt» 372 RCINL

‘P.‘

A‘!N

recer

| )

TST
1
[}

\,"’:

' I!

| ‘SgLoLLy
l

H’s x

1)l losz71 !
g;h

112737

' 037700 113787
|i 1037706|
912787

0&)137'”4b204 !

2161 037672

‘
1‘w '

000024

04
000240
104000

37732

012787

037726 502

000000

001434

A d[)
H

|| 'mov

rli a%v'

RECALIBRATE

*'SKI" OR

‘PIP"*

SET

IF'NO'ERROR

N HERE IF ERROR

# DEFINED BY TSTPRE SUBROUT
INE
0 88
IF ERROR

;SETUP PUT INDEX TABLE

#200,PUTINX+1
WDMDIRMMRIO

:SET TERMINATOR BYTE
SET RWMR1 OUTPUT BUFFER= DMD

;G0 _TO 2% IF NO ERROR
:RETURN HERE IF ERROR
:ERROR DEF INED BY PUT SUBROUT INE

:GO WRITE RMMR1 VIA PUT SUBROUTINE

' ;GO T0 8% IF ERROR

#0.RMMR10

IRESET DIAGNOSTIC
MODE

| ETRACK £10,SECTOR= 0 |

OSEARCH'JO
i FQ?QQZH = |
#PUTINX,R2 isw18
;LOAD INDEX TABLEcomanp

{

' |MOVB
MOV

CLEAR OPERATION

:VERIFY RECAL IBRAT ]ON
160 10 15

‘

PC.PUT

| MOV

#RMMR1, (R2)+

MOVB

112722000

RMDC, (R2)+

MOVB

h)n

y ol

| AR ||l

517 040030 004737 84316?
I
0‘
||
¥
'y,
006137 oaogor .
2177 04006
INE
g

CONTROLLER

IPACK ACKNOWLEDGE IF VOLUME NOT VAL ID
:VERIFY PACK ACKNOWLEDGE

#RMMR1,PUTINX

MOVB
MOV'

112792 000034| \

:VERIFY

1] Enp. . 8%

2%:'

2193 040000
037774 112722 | 000024 [
:‘|'

iCLEAR CONTROLLER & SELECT DE\ICE

BR
111, NoP
f1yil
EmMT

1
3

115368
Q3FresSigran
’
190001543
031“'00141
0‘
- 2168 €37770 o}grqg
|
g171 940004

13-81

1|1

! nots%’

Sies g3rrke 01573 000000 9B1éTe

12179

'
*
nee R
fat

([001543'

040204

. ‘ fiaé(l ) 88l{

11091544
11 j0g1434

| 'l |

737 1043160!

037720
037722
037724

Uy
A

. i

11:43:28 PAGE

l‘ |,

i
.,l]

v0&.00 ao-wa-ew

000240

2162 037672

,N. RO

E 4

[

:W .

——

’?‘!

| |

IR
3§
il ifi WRITE REGISTER 3& WITH PUT SUBROUT INE
NOP {1
‘ ,? l.fi URN HERE IF ERROR | s i
| |EmT ) ’\ 2 .I}; OR # DEF INED BY PUT 'SUBROUT
INE'
A JmP
s
60
[T0
85
IF
ERROR
|
éour
094? 004737 L0435¢d ol l| fl"TSR
JWAIT FOR GO To RESET ' || |

004737 04271 ,'
g‘

{

0002

040062 104?0

b1gy 240064 900

1040204 |

2182 8288;2

043706

888Z5§

0076 000240

0100

040102
e 828}10

104000

004736
000137

040204

001012

2187 040126

013737

2186 040120

012737

1),
010000
001376

‘

Noe

R ll?f
2

'
l

001142

égn '

\Jg .PRIERR

BIT
BNB

LMoV
| MOV

G0 TO 88 IF ERROR

.gg ggfl § igRNSRgMARv ERRORS

iRErlRN nere e o

PC,a(SP)+
8$

ava RMER? (}

:GO BACK FOR MORE' ERROR||CHECKS
;GO TO 8% IF ERROR

\
a:vc $GDDA 4

i, RMERZI.SBDDAT
'

| |||

;

ERROR # DEF INED BY og RR SUBROUT INE,

' K

MERE IF Ennog

:ERROR # DEF INED BY |GET SUBROUTINE

JSK

‘
001140

:RETURN

NOP

| ;GO
REGISTER(S)
GO READ
TO 43/ .IF
NO ERROR WITH' GET S Rourinq

J‘ lJ

| EMT
%

POGET

;

emr

JMP

2184
040110 032737 Q10000 001376
2185
040116

.R
BR

;

:DID IVC SET??

¥
ExPECYED STATUS

im oy i‘ I
Al
|

~ IRECEIVED STATUS

I
CZRMMB0 RMOS5/3/2 FCTNL

T6h4

IVC SEARCH TEST

2188 040134 042737

2189 040142
2190 040144
2191 040144
040150
040152
040154
||| 040156
040160
040162
040164
2192 040170

104260

104000
004736
000137
:

004737

040176

000240

040200

040202

MACRO v04.00

104000

;

PC,SECERR

NOP

;GO cnecx FOR SECONDARY ERRORS

EMT

;GO TO 8% IF NO ERROR

PC,a(SP)+ |

:RETURN HERE IF ERROR|

]

:ERROR # DEF INED BY SECERR SUBROUT INE

:GO BACK FOR MORE ERROR CHECKS

8%:

21%

. 'Q't.fi'tt'tttttttt.lt"""'.".‘lttttt'!'..t"'l.'t'tt..'tr.pr

‘

2198 040232
040236

t8165:
001100
001276
007464
000065

004737
054130

ABORT

001226

041650

ASTACK,SP
$BASE RO
TSTOUE ,R1
#65,8TESTN

- JSR
.WORD

PC,TSTPRP
054130

040246

000137

2200 040252
2201 040260

012737
012737

2203 040274

012737

040244

2199 040252

104000

040550

040000
000031

001424
001410

2206 040312 112722
2207 040316 112722
2208 040322, 112722

000006
000014
000000

2210 040332 00473

062624 |

2211 060336

040342

0047378

000¢

040344 | 000240

043160

[

‘

:PACK ACKNOWLEDGE IF VOLUME NOT VALID
VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI'*
OR 'PIP'" IS SET

L
‘

# DEFINED BY TSTPRP SUBROUTINE

TO 9% IF ERROR

;
|

:
|

in ER10
;SET UNSAFE ERROR
#SEARCH
!GO,RMCS 10|
SEARcm COMMAND

#0,RMDCO

#RMDC, (R2)+

Mova]

200, (R2)+

"'W”

;CLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION

;GO

MOVB

I, BRY

;PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:

||| :ERRQR

#0 . RMDAD

JSR

;(R1) = DEVICE BEING TESTED

:;SET TEST NUMBER IN APT MAIL BOX

SVERIFY
RECALIBRATION
. :GO T, 18 IF NO ERROR
,;::-Rewunu HERE IF ERROR

MOV

/' JSR

|||
'

#PUTINX ,R2

MOVB #RMDA, (R2)+
MOVR
, HRMER1, (R2)+
MOVB ' nmcs1 (R2)+

[}
i

MOV

IMP

MOV

112722, 000034

2209 040326';112722 000200

MOV
MOV

001444

001543

2205 040306

18"/

000000 . 001416

012702

BR
' NOP

'EMT

2202 040266 012737 00000C

2204 040302

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

i
.

000404
000240

SEARCH TEST

| |
SCOPE
NOP
MOV
MOV
MOV
MOV

040240
060242

tt'.t*fl'tt'.tttttttt."".l'Qtt.'t.tttqtmt'htnttt'tt.'tttn.ttn'

040204 !
040204
000004
060206 000240
040210 012706
040214
013700
oaozg i 013701
aioe 040224
012737

:ERROR # DEF INED BY (MPERRSTS SUBROUT JNE
;GO BACK FOR MORE ERROR cwECKq
;GO TO ss IF ERROR
[

T*TEST 65

:
;CHECK ANY ERRORS NOT MASKED
;MASK FOR RM ng
:MASK FOR RMER
GO TO 7s IF
NO ERROR
asrunn HERE
IF ERROR

PC,R(SP)+
8%
\
-

JSR

SEQ 0165

2194 060204, |i

2195

PC,CMPERRSTS
NDTMSK
' IVC!DPE
7%

13
13--q2I

#~C1VC,$BDDAT

260

EMT
JSR
JMP

V78

004736

J
11:43:28 PAGE

EMT

JSR
.WORD
.WORD
HR
NOP

044540

;

BIC
6%:

040204

000403

4-APR-B1

167777 001142

004737, 050400
115760|
010010
000405
000240

219% 040170
040174

TST

,ch GETSTS
PC,PUT

‘

tvLIHDéR

;SECTOR = o TRACK = 0/

‘WRITE REGISTER INDEX TABLE

:TERMINATE TAB#

:SETUP FOR STATUS

‘GO WRITE REGISTER(S) WITH PUT SUBROUTINE

:GO_TO 28 IF NO ERROR

:RETU
MERE IFRN
ERROR

{!71"'

] I

c2RMMBO RMOS/$/2 FeTnd
ST 1

165

104000

040346
040350
2212 040354
2213 0403254
040360

000137

040362
040364
| 040366
2214,1060372

2216
2217
2218
2219

040400
040402
040410
040416

J1 1

040502
040504
2229 040510

2230 040510

040514
040516

'} C40520
040522

040524
040526
040530
2231 040534

2232 040534
=l 04054

04054
040546

2233 040550

BSP

032737

020000

1104000

043706

45.

",,"l'

5%:

104

004736,
000137

004737
155760

'6%:
|

{0
i

{

104000

040550
050400

7$:|

‘NOP
EMT
JMP

'ZI

*EXPECTED STATUS

M“ § A
il
[,
SWAIT FPH GO
Tgess} |

:RETURNHERE

;ERROR

Lpr.

JSR

1044540/|

, JSR,,

JMP |

) a!‘ i

'f"x“
ARl
H

:RETURN

DPE

' sMASK F

EMT

PC,R(SP)+!

|
{

;G0 T0 98 IF ERROR.

}r,';Lh;f

!H'

RMER?

\'l pJ

;GO BACK FOR; MORE |'ERROR CHECKS

(

YGO TO 9% IF NO ERROR
*RETURN HERE IF ER pR
é
*ERROR'# DEF INED qSECERR SUBROUTIN
{!

Q""Q'fi..'t.‘*.'|*Mfi!'t.!“t!t"'t't.

;l'

;60 CHECK FOR SECONDARY ERRORS

SEARCH
AT 0 rssr

Q'.tt."'!"t"tt.t't"t'.

"t.tt'tt'ttttttlt LA AR S SR RS ]l lLfi'.l’tttl.ttt"htl!.'t'tl'.'!'!

Y Jrssr 66

;GO BACK FOR MORE ERROR CHECKS

JSR WLa(sp>1,"

;MASK FOR RMER1

*ERROR # DEF INED BY CMPERRSTS SUBROUT INE

(5 B

IF ERROR

IF NO ERROR|
'
*RETURN HERE IF ERROR

PC,SECERR

(GO TO 8

BR | 9£ P

NOR

# DEF INED BY STCDRVSTS SUBROUTINE

IF ERROR

| {E“HCK Auv ERRORS NOT MASKED

Y$R . |

| ,,$p T0 98
¥it

‘

HERE

;GO BACK FOR MORE ERROR CHECKS

ND TMSK | UNS

lll"ss
It NOP

h[d[

G0 TO 78 IF NO ERROR

:ERROR'

' PC,CMPERRSTS)

160 CHECK FOR CHANGES' IN omxve STATUS

;GO BACK
F
MORE ERROR 'CHECKS
:GO TO 9% IF ERROR

llpc, acsPye

JMP

:ERROR clo FINED BY PRIERR SUBROUT INE

EMT =’]

EMT| '

040550

:RETURN HERE IF ERROR!|

PC,srconvsrs .

'|
NOP

‘

68 IF NO ERROR | |

’l 731'

GET SUBROUTINE

go CHECK FOR PRIMARY ERRORS' '
0 TO

Jmp

IF ERROR

# DEFINED BY

:GO TO 9% IF ERROR

l6$”

:GO READ REGIEOE (S) WITH GET SUBROUT INE

:GO TO 5% IF NO ERROR

JSR | lPC.PRIERR'

|i 1

Y GET SUBROUT INE

|:RECE IVED) STATUS

SR
’lll

$BODAT

PC,GET :51

”gno

||f1

OOéflEé "

223 I

,lfiuw5$
T LS

sk !

104000

004737
000403
000240

#-CPIP,

LgsPIP'SET77

’

| USRI}, bc.a;ép)+

040550

000010
000405
000240
004736
000137

‘

:GO_TO 3$ IF NO|ERROR

261‘

*RETURN HSEE IF s ROR

#0,$GDDA

RMDS], $8

EMT

98 IF ERROR

:GO READ REGISTER(S) WITH GET SUBROUTINE

EMT ,'l

004737! q57766
000405
000240
104000
004736
000137

A 3

i
V'l

:60 TO

#
F INED
it JERROR
|1
‘GO TO 9% IF ERR

- #PiP, Rnoél

l‘
001142
“
(M Jils
00&142

042710

004737
000405

‘§]

SEG 0166

+ERROR 1 DEF INED BY PUT SUBROUT
INE

“

Ear 'g o)l
JMP

001140

043522/

040550

°’c'l,

L |
JSR - peGEY

35:

00134@1

000137

000240

040500

001412
01273 " 000000
01373
, 001346
157777
042737

060460

0462
0464
2227 040470
2228 040470
© 040474
.
040476

042710

004737

040442
040444
2225 040450
2226 040450
040454
040456

oaoss&“e!lo28:

004737
000404
002240

104261
040424
2220
2221
040426
2222 040426
2223
2224 040432 004737
040436 000404
040440| O 240

4-Afij’?

00013? 040550

2215 040372

1 11563128 PACE 1%463

MAfRO ng.00

SEARCH TEST

ABORT

'”

|
|

{

tTeR

SEARCH A]

|
|

l_,_.

‘
[

{

ML
RN

144

| CZRMMBO RHOSJS/Z rchL ST 1' MACRO V04.00 4-A¢r-81f11143:28 pAGE.13-sc

(ilP

[

040550

|||* [I“

I
|

uw828
§§2 88882
’
l"H/|
040554
0127068 001100
|

OFFSET

040560

013700

83% 8%3?3%"88%32
0019226 mw
zzéq 40576 00

i "‘)'

04 dto

“0602 | 054130

HaRE

4737

PR
i

QDR276

I'H

L 04060

ot
| 000240

;

1 S
|

0 012737

2044

Jfl';

;

000404

1l 040706 000240

2250/ 040714
|¥|

n7 042624 Ly

5505040030

0043y o4 22

2253 04

SEIRE

{RETU
RN.
ERROR

|] ]|

?nfi l'z;
dfl

DLFINE

K TO

;

d,
POLI 1STS,

S ISR

GETS

P TIMOUfillf

| i
.

]

YLINDE?‘OII '

!
L

’ "

N
|

unxra REGISTER(S ]gflru pUT SuBROUTINE

‘

HERE 1F |

ERR “ qJNEngv PUT S prdlnt N
.

pkvupL
FOR l
STAT slrercu
|

!
|

Y rsrpnpluenou11~q

|
oy

G Al

"25ll

HERE| 17| ERROR .

11|760710 98T IFERRO

eL wrmpe - (Rhg?S

‘

NOT VALID

#PUTINX. RPM ék¢n REGISTgR INDEX TfBLE
on 'SEE

wove,

;

OPERATION

RECALIBRATION |

|!#RMDA (R ),. |

ot ,}"OXf‘ {ip

o7t 1080130 pergos

iVERIFY

'2838

| ;Xg?if} RATE! T NQ”I, OR 1 *PIP' IS SET

B 3403833. | #RMC i!?§2;+

CLEAR

bco
l‘p :g;k
INDE - gEL
RMOFO
g

(]

CONTROLLER

iPACK ACKNOWLE F IE OLIME

s' |

ngg' 0672 112 23
040702

15:“

000015 001410

2243
0482g6Eva;g01885332

12245 040656 ' 112722 00
I| 55
8 atees }}55551!8

| !

CONTROLLER € SELECT DEVIC

:VERIFY

'
NI eE
R ]

‘CLE

’

»,

“| }

‘

i 1

!
'

| . G5586 0407
O40 0127
e 87 ‘°°
oo
38
}:70%2% 11 "QX
s
S
,
o
s
vo
ox
°°
s
0074
!
V
A
T
GOm
|
122
csm
57
do
040
ITE
746
REGI
STER
0047
(S)
37
WITH
|
043
PUT
160
SUBR
OUTI
u
NE
|
||
Wik
|
! eorss 0oas
i
"
i60_T0 48,/
M
'

:LOAD REGISTER INDEX TABLE -

[

NO ERRO
T il
@
I
t
R
R
ke
Tl o e 4o U‘
1R Eo
L T'f |
"0
?"
Ll
:ERR
OR
#
DEF
INED
BY Pyt suqROUIINE
I 040736
AR
Biis
o8
|
0
T0
98
IF
ERR
|
00760 000737 Lot CREA ¢s: IHMP
R
b
i
li f
50 0dores ooursr okzsez 0
G 1% OMPLETE
P
e
P
’11|"
°UT
l'A
AIT
FOR
SEAR
IPe
|
2269
L
)
e e gUGET
;
2261‘0407;2

004752 |P427’¢
|

828;76bgg?‘ol
3

i ISR
f

oy
:

041000 000137 O"’fifi

2f62 041006

'lf}J}
'

)

ss‘//
e

éSA

.G0! ro 5% 1§|?? ERRgg

$
"' ,.I
Jmp 9% ,!

N |

)
’

coonh

[ i
Vg
t
L
*

460 READ REGiST R(S) WITH GET SUBROU'INE

IATN
y

5*
' DEF INEDB
0 ro 9$ IF ERROR 4 SUBROUTINE
T e

i,
(
3

B
"

Q¢

vopt

;PREPARE

0, !

'°‘8218 0001391 041106 Jl”‘i e

UNIBUS ADDRES

DEVICE
|FOR|
TE
TAE Aggscn
xpr A AS FOLLOW

|‘

..ssr TEST :T"B RbIN “PI
"A‘L|7°i,'

n}'

(R1) = DEVICE BEING TESTED

'
\‘,,J”J ' qagR
D»
o
135fi5

“|
2333 0613¢, 01
01 2730g' 08000
00000 0014
'001444/
| ' moy
'f !
14
MOV

\1M9¥|w "6,
gvssLN |

; @ T uh

TSTAUE R

SEQ

SY??IAOGZEEE}ACK POINTER

$BASE, RO

MOV,

'”

:SCOPE CALL

ngfi
MOV
asrAcx 5

LASRR
R

‘

{

‘[

‘

4
3
|

:l'l

,
'..
-

;ggnnso g?ggéa/ Trsgygf}sr 1.
|

|1y

il (

041016

.r.J

dedvt

M13

MACRO v04.00 4-Apnfifiy|114§r28 PAGE 13-85

,‘

‘,

041034

000240

2266 041046,

088 05|

40"
41062
104000
041
004736

041060

e o41o72i9?P0137

¢
beli
b
iy

oyv.os

041102

1040% |“

L 82;¥82 l‘0047 6

2279
T

12271

!
'

:
TR
|

041106

012737 Q00067

2281 041142
2282
041142
004737 041650
041146
W

"’

ERROR # DEF INED:By
SCHSTS susnoufx
:GO BACK FOR MORE fifia CHECKS

60 TO 97 IIF ERROR'

INE

SR NDqMSK
A& | 1260
MASKTO| 8%OR AMER
I
IF,
ERROR

NOP| !!!
;(
”‘
EMT
|
'
IsR \ Pe. a(sP)+
i

(760 TO 98 IF fRROR

'Jsifln PC SECERR

EMT
Jsfi“,

]

IRETURNHERE
_ERROR
|
*ERROR
ggrxu
b
BY
CMPERRSTS
INE
suafoqr
$G0 BACK FOR MORE ERROR, CHE
CK
|

'l'.

T ,RETgRN HERE|']

|11y

ggCEkfi??RNgEggggaRYERROJ

ér
EFINED
SECERR suenourxuf
}
CK FOR
MOREBYERROR|CHECKS
.

‘l

ttt**ttttt*ttttttittt

’

: 9EAD ALIGNMEN FOR AN RM?B/3/2 DRIVE, 1S PERFORMED AT, CYLINDER
;%24

figaMAL

SATH

TPW67

|)“ ’

SING THE CEIPACK.

A 60 MINUTE WARMUP IS REQUIRED IF

K WAS[NOT IN T+ ORIVE anon“r WgEAD ALIGNMENT OPERATION.

tttttttt*t**tt*tlt ttittt*%tit ‘i**ti*ttttt*itttttttttttttttttt
»

| ,‘
|

1001226

TT ',|

r
"8%
| asTack sp

MoV

w67, STESTN
|

RIYRREENY

#1,$TIMES

054130

;

[ISET TEST NUMBER IN'ART MAIL BOX

[ogghe

:PREPARE DEVICE FOR o TEST

- :TASK DESCRIPTOR AS FOLLOWS:

/'CLEAR CONTROLLER & SELECT DEVICE

| V
B ERIFY CONTROLLER CLEAR OPERATION

| :PACK ACKNOWLEDGE IF VOLUME NOT VAL(ID

1
i

' ::DO 1 ITERATION

‘

S0P
CALL
sn
F TEST
UINIFIAL1ZE STACK POINTER

U ROI UNIBUS ADDRESS
b (81) = DEVICE BEING rssr;

o
PC.,
TSTPRP
JWORD '

{Jsé

S
:'

ngv
MOV

,
ST

' ’

gns IF_ERROR

PC.a(sp)+‘

000404 |

co VERIFY SEARCH OPERATION
60 10 78 IF| 0/ ERROR

an l!pctc&asnnsrs'| SK'AN
Ennonanor MASKED'| | |

QJHHH

|
041150

60
BACK FOR
MORE fqnoa CHECKS
,. 70798 IF ERROR
|

‘
JRARKK Jbttt, * Ay 41} L tttttt\tétlt * %
I
-y
‘

:ERROR # oerxugg BY PRIERR suenourxus

‘

l; [ 041126 012737 00000111881206

‘;;c a<99i+

REIURN HERE IF ERROR

lHi“

041116 015700 001276
841122 013701 001464

054180

[

EMT
|
VMT
JSR zg a<sp)+

041106 0 8
M
041110 000240 “AB;‘ Jif.l
ca1n2’ 012706
00110 i

Lo 041134

”

‘

| SEG 0168

) t

| Nop

041100 /1000240

$ | pc SCHs TS|
"}

12269 8218;% 88823; 944540| iy

04105
baones
041056

2267 041046, 004737 050400
,

’

il
'16

041034 | 104000|
041040
004736 o1041106
041042 /000137

|
i|

||/ 041020 %
u. »
o, 31022 000137 041106 |

| [I| N

104000

2265 041026 004737 oseaeal
|
041032 000405
|

}

2263/
041 0887%g p¢fiE?06.- Nt) v"(',l"
s/ !lp6uLRIERR'I‘I 20
380 CHECK
FOR PRIMARY ERRORS.
1104101
|
5
70168 \1F WO ERROR
'

01016 000260

]

“

:VERIFY PACKACKNOWLEDGE
|,

EVERIFY RECALIB$

RECALIBRATE IIF “SKI'"OR' “PIP" IS SET |
eoTfl 28 IF NO|

!'[

| |

H——

t'%i"‘
il

CZRMMBO

167

RMOS/3/2 FCTNL TST 1

MACRO v04.00

AD ALIGMENT SEEK

041152, (000240

04115
041158W’104000
! |00613 041374

2283 041162

A-APR-81 11:43:28 PAGE 13-86

2287 041204

012702

283

001543

2291 04122

|( |
'

ROR
o 10 #88DEF!NEDOEV
IF ERR rsrrmp SUBROUIINE i
,

Mov | z« .R Pl

CYLINbER = 245,

| |, '

MoV

#EHDI X|

C. (R@)+:
pnmn (R2)s

1 movB

00 73n 043160 | |

]} |1 vovs
I
movs

Csil,

wzoo ‘

| iUsR

2 POINTS 10 REGISTER TaR
HTE
aecx TER INDEX T

RMINATOR

E REGIS ER(S) WITH PUT SUBROUTINE

s IF
NQ|ERROR
it||
;=', ner
RE'IF
ERROR
|
iERRORI# DEFI
o8Y| PUT suBROLTiNE

041242
, 041374 ;:' CedU ] i L s
B
’{
Bs
IF
,
52 04124
042624 |
1384 | [| ISR | |RC.GE[TS §|‘f;l
Ef FOR|S
ETC
I
04125 00 737 04357‘
| oS8T ey : AITLflOfi 'I GMPTETE
zz6 041256| 737\|04271o &,}l y ',: jysk|" Pe.ceT
lF
GO READ'REGISTE
s>l .
TH GET SUBROUT| INE
41262 000404
|
RN
S
T
|
48 _IF NO

,| 42, 4
4

3
L1374
(|
]

10412

2297 0412

|
2098 Oater |
’04]» 00
H |,x|
0k

AT
|

Jop

( i

%
1

Q41310

B “0 1%1
18613
, l | ",!
13 4

[

'041326

302

041

0a1342
ANT
A
821.&4=
D] 041346
Y

.,
11041390
111041352

I'| beos 041363

530
101364/ ]|
‘

|
WL

04
okt

o'e2

|EM

f4)

il ;.

JLid

, P 'l

;

]
emrl’ |
L
e asR

41374

)
11|
Pt a(sp>+

iw] .jféjflfi oamel

ETURN HERE 1F

ERROR

: cuscklron
Pfi Y Ennons
:
lf"|
_IF
KB
ug $ ERé
FEER on

|1 ZERROR! 41 DEF INED BYl PRIERR SUBROUT INE
;60 BACK, FOR MORE ERRDR, CHECKS
3

;GO 1085 IF ERROR

51024 fif”fiy@J’ , rh A";wpcSEKSTS
;60 venxrv,aqsu TS |OF SEEK OPERATION
Yo ERA%R
01 (A
(1|11 Pl eHy(’bl EMT ST
|
duo AT || | ng”“’g
ERRORI
W]g JED
BY SEKSTS SUBROUTINE
K

' }

Ljoetprs
B

050400

;

,3w

:I,'

S SR

1 ||

ISR

]!}

i ‘ S

-WORD

PCLR(SRYE |

;GO

0K _FOR IMORE ERROR CHECKS

NDTMSK

],;lf

il@fl] RRRARL:
A FTA A LTS AT B 1 T AR
PC.é(k”Nf

7| 04kt
“Li N1 dspe
MRS TN
(!

It
i

e;l).

Y
B

A5}
iyis

:B:J':

;MASK F RMER1|

il
Int

;

IF ERROR

e seeERR |||
1

Wil
| PC.a(sPe

;

"’”‘

|“

soD) CHECK FOR (SECON ARY ERRORS. | ||

s wl”
’F F ERRO
R
!g':]';
gg
ERROR'
} | SERR
|60

‘i‘

#HDB ID BY CMPERRSTS SUBROUTIN
cKi F
E [ERROR CHECKS
‘

8% ":i}f'| fquTss‘WF ER$0fi

L8[
,

EMT
(SR

|
|

| PC, CMPERRS$‘ HECK ANY ERRd NOT MASKED|

INOR

Ll e
T
;1 |, | ;G0 TOTB IF ERROR
|
| I [0 %Y ULesTy

37 41374 ] lf‘ ' y | dmp
|

.lyl

||| | UL
RMER?
‘;|"'j, ][]' BReorD pRE
7% :g*T, ‘; {J u ? IF
NO RROR ' ke

i
6'16

i | GER
h EHfNED Y GET suenourlws
O
s
¢ 8s||IF ena
|
L
|

srge | ’]' ([ [1|dsR' ' | PCLPRIERR
i
e
e
;
l
e
et
1
[l hoR ) 53
[T
,

s
| Ji

305 0451304

. 041380
"'2t81 041334 |

”,

SEG 0169

ztumu HERE IF _ERROR

g 21

041234’
000404
.' S|
[,
1l
am
041236
000240
[,
|
|
1
l
¢
{1
|
e
1041240 104
5
D]
BT

' 000200

2292 041230|

2290 04122 lwyw . 000000

'[|1]

IRy

001416 "f" MOV | o. Aol
. STRACK = 0. ‘SECTOR=
0500 001410
| ''|/| ' mov | , #SE K'G ;510LOAD
SEEK COMMAND INeuLRRaal

2288 041210 112722 00003
2289 041214 112 22 000006

: . EMT
,JMP

2284 041162 012737 000365 001444 | r_ 1/

2985 041170 012737
2286
041176 012737

7 DE
ED BY,SECERR SUBROUTXNE,
BACK FOR TMORE ERROR. CHE Crs

| ’l

CIRMMBO RMOS/372 FCINL

END OF

SUB-PASS ROUTINE

TST

MACRO v04.00

4-APR-B1

8 14

11:43:28 PAGE

SEQ

.SBTTL

2z
4

5
6

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

sSELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NG MORE DEVICES
:TO TEST, EXIT IS MADE TO "SEOP' ROUTINE. OTHERWISE, RETURN

;IS MADE TO "READY' ROUTINE.

9 061374

000004

10 041376
11 061400
12 0641406

000240
013700
062700

14 0641414

005710

13 06141C

15 041416

16 041420
17 0614624
;g

010037

001402

000137
012737

$EOSP:
001464
000002

001464

TSTQUE ,RO
#2,R0O

;GET POINTER TO TSTQUE
;ADJUST POINTER TO NEXT DEVICE

TST

(RO)

;ANY MORE DEVICES FOR TEST

MOV

007660
001466

SCOPE

NOP
MOV
ADD

BEQ

001464

RO, TSTQUE

;SAVE POINTER TO TSTQUE

18%:

JMP
MoV

.SBTTL

END OF PASS ROUTINE

;BR IF NO

READY
:YES, JUMP TO ’'READY' ROUTINE
#TSTQUE+2,TSTQUE
JINITIALIZE POINTER TO FIRST DEVICE
sTEST QUE TABLE

:;'.Qi'."..'.'..'.'t'."Q"'t'tt'.tt"",t.l"t'tt..tl'.tl'.'tt.l'

;*INCREMENT THE PASS NUMBER ($PASS)

;*TYPE "END PASS #XXXXX TOTAL NUMBER OF

s*WHERE

XXXXX AND YYYYY ARE

DECIMAL

.*IF THERES A MONITOR GO TO IT
s*IF THERE ISN'T JUMP TO READY
041432
041432
041434

041440
041444

041450
041456

041460
041462
041464
041466
041470
041472
041476

041516

041522
041524
041530
041532
041536

041602

0641606
061610

000240
005037

005037
005237

042737
005327
000001
003066
012737
000001
041460
104401
000407
013746

104405
005737
001431
104401
000421
013746

104405
005037

$EOP:

001116

001206
001230

100000

041500

001230

C.R
INC

BIC
DEC
$EOPCT: .WORD
BGT
MoV
$ENDCT: .WORD
$EOPCT
1YPE
BR

::65%

001230

648:

001126
041540

;:67%:

001126

NOP
CLR

6%:

JASCIZ

MOV

TYPDS
ST
BEQ
TYPE
BR

$TSTNM

$TIMES
$PASS

#100000,8PASS
(PC)+
1
$DOAGN
(PC)+,3(PC)+
1
,65%
648

YYYVY''

;2ZERO THE TEST NUMBER

.sZERO THE NUMBER OF ITERATIONS
;o INCREMENT THE PASS NUMBER

;;DON'T ALLOW A NEG. NUMBER
;:LO0P?

;o YES
. sRESTORE COUNTER
;s TYPE ASCIZ STRING
;2GET OVER THE ASCIZ

<12><15>/END PASS #/

$PASS,=(SP)

_ASCIZ

S$ERTTL
$GT42P
,67%
66%
/
TOTAL ERRORS

MOV

$ERTTL,=(SP)

TYPDS
(LR

ERRORS SINCE LAST REPORT

NUMRERS

SERTTL

;.SAVE SPASS FOR TYPEOQUT

;:TYPE PASS NUMBER

;:G0 TYPE--DECIMAL ASCII WITH SIGN
;.SEE IF ANY ERRORS THIS PASS
;:BR IF NO ERRORS TO REPORT
;. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

SINCE LAST REPORT /

;sSAVE SERTTL FOR TYPEQUT

. TOTAL NUMBER OF

ERRORS

;:G0 TYPE=--DECIMAL ASCII WITH SIGN
;;CLEAR ERROR TOTAL

CZRMMBO RMOS5/3/2 FCINL
END OF PASS ROUTINE

061614
041620
061624
1626
041630
041632
041634
041636
041640
041640
041642
041644

104401
013700
001405

TST

MACRO v04.00

C 14

11:43:28 PAGE

14-1

SEQ 0171

001217
000042

$GT42P: TYPE
$GET42: MOV
BEQ

000005
004710
000240
000240
000240

000137
007660
377

4-APR-B1

377

000

RESET
$ENDAD: JSR
NOP
NOP
NOP
$DOAGN:
JMP
$RTNAD: .WORD
:
$ENULL
.EVEN

.SCRLF
aws2,RO
$DOAGN

PC, (RO)

;:TYPE

(CARRIAGE

RETURN,

;sGET MONITOR ADDRESS
s sBRANCH IF NO MONITOR
;sCLEAR THE WORLD
2:G0 TO MONITOR

. :SAVE ROOM

,,FOR
TsACTTY

a(P0)+
READY

-1.-1,0

; sRETURN

;s sNULL CHARACTER STRING

L INE

FEED

CZRMMBO RMOS5/3/2 FCTINL

TEST

PREPARATION MODULE

TST 1

MACRO Vv04.00

;

.S8TTL

g
8

THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST,

REPORTING

ERROR

THE

USER

ERROR

DETECTED.

SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES

:CALL:

3
:
:
A

JSR
.WORD
B
NOP

;TASK/VERIFY

19
18
19

THE

USER

27
30
31

CLEAR CONTROLLER AND SELECT DEVICE
(RESERVED FOR DRIVE CLEAR)

BIT 12 = 1

PACK ACKNOWLEDGE IF VOLUME NOT VALID

BIT 11 =1
BIT 10 = 1
BIT 9
eeeeesee——
BIT 8

RECAL IBRATE IF POSITIONING IN PROGRESS OR SKI ERROR
RECAL IBRATE DRIVE

BIT6

VERIFY CONTROLLER CLEAR OPERATION

(RESERVED FOR DRIVE CLEAR)
VERIFY PACK ACKNOWLEDGE

BIT 7

BIT §
BIT &4

8iT 3

BIT 2

3
:

VERIFY RECALIBRATION

BIT 1
BIT O

TSTPRP:

041650
041656
041662
041666

017637
062716
105076
162716

000000
000006
000000
000004

46 061672
47 041676
48 041702
49 041704
e
1206

004737
004737
000411
000401
000000

042624
042710

042620

062716
113776
(000137

000004
041706
042610

000000

gg 041726

013737

001376

042622

{

;STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL

51 041710
52 041714
gz 041722

DESCRIPTOR

BIT 14 = 1
BIT 13

]

ERROR DEF INED BY MODULE

:
3

IF NO ERROR

RETURN HERE [F ERROR

SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE

35
36
37
gg 041650

TASK/VERIFY DESCRIPTOR

RETURN HERE

BIT 15 = 1

s
&
s

PC.TSTPRP
NNNNAN

ERROR

22
23
24
25
26

41
42
43
2§

£ 18

TEST PREPARATION MODULE

11:43:28 PAG

: USING SUBROUTINES.

5
10
11
12

4-APR-81

MOV
ADD
CLRB
SUB

a(sP),39%
#6, (SP)
a(SP)
#4,(SP)

;STORE DESCRIPTOR
;MOVE SP TO USERS ERROR CALL
;CLEAR ERROR CALL
;JMOVE SP TO NO ERROR RETURN

JSR
JSR
BR

PC,GETSTS
PC,GET
2%
1
O

;SETUP TO READ ALL REGISTERS
:GET RMER?
:BR IF NO ERROR DETECTED
;GET OVER ERROR NUMBER
;ERROR DEFINED BY GET SUBROUTINE

WORD

1%:

ADD
MOVAB
JMP

#4,(SP)
18-2,3(SP)
37%

JXFER ERROR TO USER AND
;GET ERROR NUMBER.

2%:

MOV

RMER2],40%

;GET RMER2 AND SAVE FOR LATER

.‘."t"".'.."'.".'t"".'t!fi'.Q'tt'.'.'Q't..t't'.'..iilt""tl'

CZRMMBO RMOS/3/2 FCINL

TEST PREPARATION MODULE

58
§S 041734
80 041740
62 041742
63 041746
64 041750
65 041752
66 041754
67 041760
68 041766

TST

005737

(42620

C04737

050612

100014

000411
000401
000000
062716

113776

000137

MACRO v04.00

4-APR-81

11:43:28 PAGE

;SELECT DEVICE AND VERIFY DEVICE AVA IL
TST
39
|
JSELEC

000000

3%:

E;T

BPL

JNO!!

JSR
BR

PC,DEVSEL
4%

;GO SELECT DEVICE
sNO ERROR = CONTINUE

.WORD
ADD
MOvB
JMP

O
#4, (SP)
3$-2.,a(5P)
37%

B8R
000004
041752
042610

SET

IN TASK

;ERROR NUMBER FROM DEVSEL

s TRANSFER ERROR

TO USER

AR AR

71
72 041772
73 061772

032737
001451

040000

76 042002

004737

052264

062716

000004
042012
042610

79 042012

80 042014
81 042020
82 062026
83
84
85
86 042032
87 042032
88 042040
89
90 042042

91
92
93
94

042046
042050
042052
042054

95 042060
gg 042066

SRR

iELEAR CONTROLLER IF BIT 14

;‘S. 042000

77 (42006
78 042010

000411
000401
0C0000

113776

000137

042620

000000

5%:
6%:

IS SET

222222222

22222222

BIT
BEQ

#B1T14,39%
13%

;CLEAR CONTROLLER??
JNO!!

JSR

PC.CNTCLR

;GO CLEAR CONTROLLER
;CONTINUE = NO ERROR

.WORD
ADD
MOVB
JMP

O
#4,(SP)
58,a(SP)
37%

;ERROR NUMBER FROM CNTCLR

BR
BR

7%
6%

21T

IN TASK

s TRANSFER ERROR

TO USER

::t'.'t.......".I'.Q."'..'.t'..Q."'..t'..Q‘tl

't"t.""'.'ti.'

%%ERIFY CONTROLLER CLEAR IF BIT6 SET

032737
001431

000100

004737
000411
000401
000000
062716

042710

113776

000137
004737
0C0412
000401
000000
005726
2716
13776
000137

000004
042052
042610

042620

8%:

000000

052402

000004
042102
042610

9%:

108 :
118:
12%:

000000

IN TASK

BIT
BEQ

#BIT6,39%
13%

JVERIFY?2?
JNO!!

JSR

PC,GET

;GO GET STATUS
sNO ERROR GETTING STATUS

#4,(SP)

; TRANSFER ERROR TO USER

BR
BR
WORD
ADD

MOVB
JMP
JSR

B8R

108
9%
O

8%.a(5P)
37%

PL.CLRSES

13%

12%

.WORD
1ST

0
(SP)+

ADD

#4,(SP)

MOVB
JMP

11%,a(SP)
37%

;ERROR FROM GETTING STATUS
N

)

;GO VERIFY STATUS CLEAR
;NO ERROR IN CLEAR
ERROR IN STATUS CLEAR
;STRIP RETURN ADDRESS TO
:SUBROUTINE AND TRANSFER
;ERROR TC USER

:;..Qtt."..'t-l"""'."i.fit'l"".'t't'.ifiltlfi'.iQl'fit“lt'.IQ

042124
042124
042132

JEXECUTE PACK ACKNOWLEDGE IfF BIT12 SET IN TASK AND VOLUME IS
JNOT VALID

032737
001501

010000

042134 ' 004737

062710

042620

13%:

BIT
BEQ

#BIT12,39%
25%

JSR

PC,GET

sPACK ACKNOWLEDGE??
sNO!!

CZRMMBO RMOS/372 FCINL TST
TEST PREPARATION MODULE
115 042140
116,0462142
1171042144
118 0642146
119 042152

000411
0200401
000000

062716
113776

000000

001346

000137

042610

122 042164

032737

000100

001061

125 042174
126 042202

012737
112737

000023
000000

1¢8 042216
129 042222
130 042226

004737
000410
000401

043160

062716

000004

127 042210

112737

131 042226

000000

153 062234
122/1042242

113776
000562

132 042230

000200

042226

14%:
15%:

16%:

001544

N R

}zg 042256

143 042260
1644 042264

145 042266

146 042270
147 042272
148 042276

001427

004737
000410

000020

042770

000004
042270

000541

151
152
152
154

004737
000411
000401
000000

053262

062716
113776

000004
042316

155 042320

156 042322
157.0623%26

‘

;gg 042334

160

005726

000525

000000

JSR
BR
BR

PC,PUT
19%
18%

GO WRITE COMMAND
;sNO ERROR LOADING REGISTER

ADD

#4, (SP)

. TRANSFER ERROR TO USER

JSR

PC,TIMOUT

MOVB
BR

sNO ERROR GETTING RMDS

JERROR FROM PUT SUB

17%,a(SP)
378

JSR

PC,GET

. WORD
ADD
MOVB

AR RN R AN R AR F R AR AR

AR AR RAN RSN A R R A AR A RN

IF #8174 SET IN TASK

sVERIFY PACK ACKNOWLEDGE??

:NO!!

;GO GET STATUS

22%

;NO ERROR GETTING STATUS

0
#6,(SP)
208,.3(SP)

;ERROR FROM GET SUB . TRANSFER ERROR TO USER

218

37%

ADD
MOVR

R4, (SP)
23%.a(SF)

;GO CHECK ACKNOWLEDGE
;NO ERROR
sPACK ACKNOWLEDGE ERROR

(SP)+

;STRIP RETURN TO SUB AND

. TRANSFER ERROR TO USER

37%

."'.".'!Q"t..""..t"""'.t‘..."'I'..t.l..'.'..'.'."‘fi.'!t"

162 |

;RECALIBRATE DRIVE

IF BIT

RECALIBRATE DRIVE
25%:

IF BIT 10 IS SET

0R "PIP" IS ACTIVE.

032737

001027

002000

167 042346
168 042354

032737
001517

004000

170 '062356
171 042362

0064737
000610

06271C

042620

BIT

#B1710,39%

BNE

P{ ,ACKSTS
25%
24$
0

JWAIT FOR COMMAND TO COMPLETE

25%

JSR
BR
BR
.WORD

;¥ES !

#200,PUTINX+1

#L1T4,3G8

. TRANSFER ERROR TO USER

;1S VOLUME VALID??

25%

BIT

B8R

37%

AR A AN R AR AR R R

24$:

161

163 |
164 042336
165 042336
166 0642344

208 :
21%:

23%:

#PAKACK !GO,RM(CS10
;LOAD PACK ACK COMMAND
#RMCS1,PUTINX
;SETUP REGISTER INDEX TARLE

BEQ

22%:

000000

MOV
MOVB

16%
15%
O

:VERIFY PACK ACKNOWLEDGE

;

000401

000000
062716
113776

;gg 042304

042306
062312
042314
042316

042620

#YV ,RMDS |

WORD

18%:

138

032737

BIT

MOVB

17%:

000000

#4,(SP)
14%,9(SP)

BNE

001410
001543

19%:

140 042250

F 14
11:43:2B PAGE 15<2

BR
BR
WORD
ADD
MOVR

JMP

1;9 042244 004737 043522
139

4=-APR-B1

SEQ 0174

.
000004
042144

}59 042160

}%2 042172

MACRD V04.00

IS SET

IN TASK AND ''SKI'* IS SET

;RECAL IBRATE DRIVE ?

BIT
BEQ

29%

#BIT11,39%
388

JYES!!

JSR
B8R

PC,GET
28%

;GO GET RMDS
sNO ERROR GETTING RMDS

JRECAL IBRATE??
IND!!

JRMMBO RMOS5/3/72 FCINL 18T
"E5T PREPARATION MODULE

172 0642364

173 (42366

176 062370

175 042376

;;g 042602

178 042404

062716

000004

042366

000000

032737

040000

042622

000502

;g; 062622

032737

001474

020000

183 042624
184 042430

005037
005037

001444
001416

189
190
191
192

062436
042442
042450
042456

042464
042472
042476
042500

012737
112737
112737
112737

112737
004737
000410
000401

000007
000034
000006
000000

000200
043160

193 042502
194 042504
195 062510

000000
062716
113776

000004
062502

ggg 042520

004737

043522

;gg!oazs1

268%:

113776

001004

185
186
187
188

MACRD v04.00

000401

000000

176 062412

180 042414

000434

582 042532

001430

000010

205 042534
1206 042540
207 062542
208 042544
209 042546
210 042552,

004737
000410
(000401
000000
062716
113776

042710

213 042562
214 042566
215 042570
216 042572
217 042574

004737
000412
000401
000000
005726

054056

219 042602
220 042610
221 0626164
ggg 042616

113776
162716
000240
000207

042572
000002

2¢h 042620

000000

535 042560 | 000413

225 062622

LWORD

#4,

37%

MOvB

001410
001543
001544
001545

31$:

26%.a(sP)

;ERROR FROM GET SUB
“TRANSFER ERROR

TO USER

#SK1,408

BIT

#P]P ,RMDS |

CLR
(LR

RMDZ0
RMDAQ

;CLEAR CYLINDER ADDRESS
:CLEAR TRACK/SECTOR ADDRESS

BR
BR

#200.PUTINX+3
PC,PUT
31§
308

-SET TERMINATOR
:GO ISSUE RECAL IBRATE
*NO ERROR
'

37%

MOVB
JSR

30%:

(SP)

15-3

BIT

BNE

MOV
MOVB
MOVB
MOVB

001546

G 14

27%

ADD

BEC

298 :

000000

11:43:28 PAG

WORD
ADD
MOVB

JSR

:WAS SK] SET ?

29%

:YES,

38%

INO! !

GO RECAL IBRATE

YIS PIP ACTIVE??

#RE CAL ! GO,RMCS10
:LOAD RECAL IBRATE COMMAND
#RMDC,PUTINX
;MAKE CYLINDER ADDRESS AND
#RMDA,PUTINX+1
:TRK/SEC ADDRESS LOOK LIKE SEEK TO ZERO
#RMCST,PUTINX+2 :AND REGISTER INDEX
.

0
;
#4,(SP)
30$-2,a(SP)

PC, TIMOUT

;ERROR IN REGISTER TRANSFER
;TRANSFER ERROR TO USER
;

;WAIT FOR COMPLETION

;;'t.ittt.ttttttt'ttt..t'tt.tttittt'tttttlti.ttt"tlttttttt't'ttt

032737

218 042576

28%:

001346

200

201
202 042524

278:

4=APR-B1

062716

000000

000004
042544

042620

000000

;VERIFY RECALIBRATE IF BIT 3 SET IN TASK
BIT
#8173,39%
;VERIFY RECALIBRATE??
BEQ

30%:
33%:

B8R

34$:
35%:

000004

36$:

000000

JSR
~BR
BR
.WORD
ADD
MCVB

388

*NO! !

PC,GET
348
338
O
#4,(SP)
32%.a(SP)

;GO GET STATUS
*NO ERROR GETTING STATUS
;ERROR FROM GET
s TRANSFER ERROR TO USER

37%

JSR
PC,RCLSTS
BR
38%
BR
368
.WORD
~. 0O

;ERROR DURING RECAL IBRATE

ADD

*TRANSFER ERROR TO USER

(SP)+

#4, (5P)

;GO CHECK RECAL IBRATE
*NO ERROR DURING RECALIBRATE

*STRIP RETURN TO SUB AND

37%:
388:

MOVB
SUB
NOP
RTS

;RETURN TO USER

9% :

.WORD

;TASK/VERIFY DESCRIPIOR

L0%

- WORD

35%,3(SP)
#2,(SP)

;MOVE SP BACK BEFORE ERROR

*CONTAINS RMER?

JRMMED

HMCS/3/2

TOSTATUS

FCINL

SUBROU
INE
T

TST

MACRO v04.00

4=APR=B1

H 14

11:43:28 PAGE

‘

LSBTTL

:THIS SUBROUTINE

&
¢

GET

STATUS SUBROUTINE

SETS UP THE

:BUFFER" FOR READING ALL
ZAND THEN RETURNS TO THE

(CALL:

JSR
272

042626
062624
042626
062630

13 042632
14 042636
15 042642

16 042646

17 0642650
18 0642652
19 (42656

20 042660
21 042664
22 042666

23 042670
24 062672
25 042676

| 26 042700
27 042702
28 042704
29 042706

:
010046
010146
010246

MOV
MOV

001514
001404
000046

110220

022702
001370
005041

000770
112720
012602

012601

012600
000240
000207

INDEX

TABLE'' AND
VIA

THE *‘GET

THE

GET

SUBROUTINE

PC,GETSTS
RETURN HERE

GETSTS:

012700
012701
012702

005041
162702
100405

"‘GET

SUBSYSTEM REGISTERS
USER.

10
|
|11
12

000002

2%:
38:

000022

000200
_

::PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK

MOV
MOy
MOV
MOV

HRME (2 ,R2

:RO = ADDRESS OF INDEX TABLE
:R1 = ADDRESS OF GET BUFFER
:R2 = REGISTER INDE

CLR
SUB
BM]

-(R1)
#2,R2
43

:CLEAR CORRESPONDING LOCATION
:DECREMENT TO NEXT INDEX
:BRANCH OUT IF DONE

MOVB

(MP
BNE
(LR

4$:

RQ,=(SP)
R1.=(SP)

R2,=(SP)
#GE T INX RO
#RMEC21+2,R1

R2,(RO)+

:WR11E REGISTER INDEX IN TABLE

#RMDB ,R2
2%
=(RD)

;DONT WKITE RMDB INDEX

BR
MOVB
MOV

3$
#200, (RO)+
(SP)+,R2

;WRITE TERMINATOR
::POP STACK NTO R2

MOV
NOP
RTS

(SP)+.RO

:iPOP STACK INTO RO

MOV

(SP)+.R1

;

::POP STACK INTO R1

JRMMBO RMOS/3/72 FCTNL
SUBROCLT INE

MATRO

v04.00

C\O(D\lgd‘l‘.v'\)—aoomwfl\mbww —a D0
N
N

LSBTTL

I 14

11:43:28 PAGE

GET SUBROUTINE

:THIS SUBROUTINE READS THE REGISTERS WHICH ARE LISTED IN THE

sLOCATION IN THE "'GET REGISTER BUFFER'’,
FOR EXAMPLE, AN
SENTRY OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINF TO
;READ "RMBA'' AND STORE ITS CONTENTS AT THE LOCATION IN

:THE BUFFER ASSIGNED

THAT

THE

NUMBER OF

POPUPOPONIND
2 B e
s =B b it o o

;REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE
;TABLE MUST BE TERMINATED WITH A CONTROL BYTE (200)

;WHICH SHOULD FOLLOW THE

INDEX

LAST ENTRY.

E%Rourmz CALL:
(2

"'GET INDEX TABLE'' HAS BEEN LOADED WITH REGISTER INLEX
VALUES AND TERMINATED WITH A CONTROL BYTE
"'GET INPUT BUFFER'' IS AVAILABLE FOR USE.
(NOTE THAT

UNUSED LOCATIONS,
(3

:
;

I.E..ENTRIES IN BUFFER CORRESPONDING

TO REGISTERS NOT READ,

JSR

B8R

NOP
EQEOR

PC,GET

4 ¥

ARE NOT

CHANGED.)

RETURN HERE If NO ERROR FOUND

RETURN HERE [F ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

;RO = REGISTER BASE ADDRESS

WY oo

;R1

= REGISTER ADDRESS

;R2 = BUFFER BASE ADDRESS
:R3 = BUFFER ADDRESS

;R4 = POINTER TO REGISTER INDEX

o
N
N

33333 S

QOO b Heo

RRRRRRILR

= O O
LD 0RO N

4-APR=-B1

;"'GET INDEX TABLE'' AND STORES THEIR VALUES IN THE (ORRESFONDING

31 042710
3¢ 042712
33 042716
34 042722
35 042726
042730
042732
042734
042736
042740
042744
042750
042754
042760
042764
042772
043000
043006
3014

NSNED DB DD DD

75T

000240
062716

105076
162716
010046
010146

GET:

000004

NOP

ADD

CLRB

000004

000004
000112

1%:

001176

000016
000016

3%:
177700

;ERROR CALL

RO,=(SP)
R1,=(SP)

;:PUSH RO ON STACK
:;PUSH R1 ON STACK

IN USER'S

#4, (SP)

MOV

R2,.-(SP)

;:PUSH R2 ON STACK

MOV
MOV

R4 ,~(SP)
ERRVEC,=(SP)

;;PUSH R4 ON STACK
:;PUSH ERRVEC ON STACK

MOV
MOV
MOV

$BASE ,RO
#GE TBUF ,R2
#GE
T INX ,R4

BIT
BNE
ADD

ggVB

#DVA ,$TMP1
3%
#4,16(SP)

;;}2.616(SP)

;DEVICE AVAILABLE??
sVES:2:
JWRITE ERROR NUMBER IN USER'S
;ERROR CALL

TSTB
BM]

(R4)
9%

;DONE??
3¢ ¢34

MOV

000004
000006
001174
001176

;CLEAR ERROR NUMBER

a(SP)

SUB

MOV
MOV

MoV

000004
000006
001276
001334
001514
043072
000300
000010
000000
004000

#4,(SP)

MOV
MoV
MOV
MOV

MOVB
BIC

R3,-(SP)

ERRVE(C+2,-(SP)

::PUSH R3 ON STACK

;:PUSH ERRVEC+2 ON STACK

#5% ,ERRVE(
;SETUP FOR TIMEOUT
#PR6 ,ERRVEC+2
RMCS2(RO) ,$TMPO ;GET 'NED'' STATUS
RMCST(RO),$TMP1 ;GET "DVA'' STATUS

(R4) ,R1
#*CIDXMSK R

sR1 = REGISTER ADDRESS
sCLEAR ANY SIGN EXTENSION

—

JRMMBO RMOS/3/72 FCINL
GET SUBROU
INE
T

5S¢ 043054
53 043056
54 043060
55 043064
56 043066
2; 043070

060001
112403
042703
060203
011113
000764

59 043072

022626

60 043074
61 043102

62 043110
63 043116
66 063120
65 063122
66 0643124
67 043126
68 043130
69 043132
70 043134

012637
012637
012603

MACRO v04.00

11:43:28 PAGE

17=1

ADD

RO,R1
(R4)+,R3
#*CIDXMSK
,R3
R2,R3
(R1),(R3

MOvB
BI(

177700

ADD

MOV
8R

000004
000007
000002

000016
000016
00001¢

5%:
7’%:

8%:

012602
012601
012600

000207

0C0006
000004

9%:

J 14

4=APR=8B1

(MP

ADD

MOVB
SUB
TSTB
BMI
CLR

MOVS
ADD

012604

1 ST

CLR
BR
MoV
MOV

MOV
MOV
MOV
MOV
MOV
RTS

(SP)+,(SP)+
#4,16(SP)

#7,216(5P)
#2,16(5P)
(R4)

9%
R3
(R4)+ ,R3
R2,R3
(R3)
8%

(SP)+ ,ERRVE(+2
(S
+ ,ERRVE
P)
C
(SP
+ R4
)

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

;R3 = STORAGE ADDRESS FOR REGISTER

CLEAR ANY SIGN EXTENSION

JREAD REGISTER
JRESTORE STACK
sWRITE ERROR NUMBER

JUSER'S ERROR CALL

:gggg (CLEARING??
:CLEAR REMAINING STORAGE
*LOCATIONS

. .POP
;:POP
;.POP
::POP
;:POP
;;POP

. .POP STACK

STACK
STACK
STACK
STACK
STACK
STACK

JRETURN

INTO
INTO
INTO
INTO
INTO
INTO

INTO ERRVEC(C+?2

ERRVEC
R4
R3
RZ2
R1
RO

CZRMMBO RMOS5/372 FCTINL
PUT SUBROUT INE

15T

MACRD v04.00

1..«3:28 PAGE

;

LSBTTL

;THIS SUBROUTINE WRITES
;"PUT

5
3

PUT SUBROUTINE
INDEX

TABLE'' WITH

THE

REGISTERS WHICH ARE LISTED
CONTENTS OF

:BE TERMINATED WITH A CONTROL BYTE
*FOLLOW THE LAST ENTRY.

*SUBROUTINE CALL:

‘PUT

16
17
18
19

THE

IN THE

CORRESPOND
ING

20
21
22

"PUT REGISTER BUFFER'' CONTAINS CONTENTS OF

JSR

NOP

PC,PUT
277

ERROR

36 043242
37 043250
38 043256

39 043260

40 043266
41 043274
42 '043276
43 043300
44 0643302
45043304
46 043310)
47 043312
48 043314
49 063320

50 043322

51 043324

RETURN HERE
RETURN HERE

EACH

IF
IF

NO ERROR FOUND
ANY ERROR FOUND
SUB DEF INES ERROR NUMBER

“R1 = REGISTER ADDRESS
*R2 = BUFFER BASE ADDRESS
‘R3.
= BUFFER ADDRESS

35 043234

WHICH SHOULD

REGISTERS TO BE WRITTEN.

3
27?2
>
RO = REGISTER BASE ADDRESS

28 043160
29 043162
043164
043166
043170
043172
043174
043200
30 043204
31 043210
32 043214
33 043220
3, 043226

(200)

TABLE'' HAS BEEN LOADED WITH INDEX VALUES

(3
SETRIE
:
:

INDEX

()

[15

:LOCATION IN THE 'PUT REGISTER BUFFER''.
THE NUMBER OF
;REGISTERS WRITTEN IS VARIABLE; THE INDEx TABLE MUST

7
g

23
24
25

SEQ 0179

K 14

4-Af

:R4 = POINTER TO REGISTER INDEX

0060240
010046
010146
010246
010346
010446
013746
013746
013700
012702
012704

012737
012737

016037

016037
032737
001007

062766

112776
|000424
'10571
10042
111401
042701
o?opo1
111403
042703
060203

011311

105724

PUT:

000004
0006006
001275
001410,
001543
043330 000004
000300 000006

000010

000000
004000

000004

000112

001174

001176
001176

1%:

000016

177700

#PR6 ERRVEC+2

MOV
BIT
BNE

RMCST(RO) ,$TMP1
#DVA, $TMP]
3s

:GET 'DVA'" STATUS
*DEVICE AVAILABLE??
SYES!!

MOVB
BR
TSTB
BMI
MOVB
BIC
ADD
MOVB
BIC
ADD

#112.216(SP)
7%
(R4)
9%
(R4) ,R1
#~C IDXMSK ,R1
RO,R1
(R4) ,R3
#~CIDXMSK,R3
R2,R3

*USER'S ERROR CALL

TSTR

(R4)+

MOV

ADD

000016

3$:
177700

NOP
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV

RO,=(SP)
R1.=(SP)
R2.=(SP)
R3,=(SP)
R&.=(SP)
ERRVEC ,=(SP)
ERRVEC+2,~(5P)
$BASE ,RO
#PUTBUF ,R2
#PUT
INX R4

#5% , ERRVEC

::PUSH
“:PUSH
::PUSH
“:PUSH
::PUSH
*:PUSH

RO ON STACK
R1 ON STACK
R2 ON STACK
R3 ON STACK
R4 ON STACK ’
ERRVEC ON STACK
;;PUSH ERRVEC+2 ON STACK

:SETUP FOR TIMEOUT

RMCS2(R0) ,$TMPO ;GET "NED'* STATUS

#4,16(SP)

(R3) . (R1)

‘WRITE ERROR NUMBER IN

;DONE??
SYES!
*R1 = REGISTER ADDRESS
:CLEAR ANY SIGN EXTENSION
:R3 = STORAGE ADDRESS
:CLEAR ANY SIGN EXTENSION

;WRITE REG I STER

JADJUST REGISTER
POINTER
I

CZRMMBO RMOS/3/2 FCTINL
PUT SUBROUT INE

SS,'.S’ 043326
'

TST

MACRO v04.00

000763

4=-APR=81

L 14

11:43:¢8 PAGE
ER

18-1

56 043330

.
'

55 063332

|
‘
.
|
:
,

56 0643340
Eg 043346
|

| 59 043354
043354
043360
043364

043366
043370
043372
043374
60 043376

022626

062766

000004

112776
162766

000007
000002

012637
072637
012604
012603
012602
012601
012600
000207

000006
000004

000016

000016
000016

5%:
7%:

ADD

MOV
SuB

(SP)+,(SP)+

;ADJUST STA(K

#6,16(SP

#7,216(SP)
#2,16(5P)

JWRITE ERROR NUMBER IN

’

JUSER'S ERROR CALL

9%:

MoV
MOV
MOV
MOV
MOV
MOV
MOV
RTS

(SP)+ ERRVE(+2
(S2) + ERRVE(
(SP)+ R4
(SP)+ ,R3
(SP)+ ,R2
(SP)+,R1
(SP)+ RO
PC

s ;POP STACK INTO ERRVE(+?
:sPOP STACK INTO ERRVEC
:;POP STACK INTO R4

;:POP STACK
;:POP STACK
;:POP STACK
:;POP STACK
JRETURN

INTO R3
INTO R2
INTO R1
INTO RO

CZRMMBO RMOS5/3/2 FCTINL
SIZE CLOCK SUBROUT
INE

TST

MACRO v04.00

!
|

.SBTTL

3 043400

043400
843404

013746
013746

6 0434624

012737

4 043410
5 043416

7 043432

8 043440
9 043444

10 043446

11
12
13
14

043450
043456
043464
043472

15 043476

16 043500

043446
000300

012737

000100

022626

012737
012737
012737
005777

000404

022626

177546
136044

043500
172540
000104
136012

;; 82%2?8

062766

000002

043510
043514

012637
012637

000006
000004

19 043520

000207

SI1ZCLK:

888882

012737
012737

005777
421

M 14

11:43:28 PAGE

SEQ 0181

;
;
|

4-APR-81

000004
000006

001512

000004

MOV
MOV

ERRVEC,=(SP)
ERRVEC+2,-(SP)

:sPUSH ERRVE(C ON STACK
; ;PUSH ERRVE(C+2 ON STACK

MOV

#177546,CLKADR

;LOAD ADDRESSES FOR Kwl1=L

TST
BR
CMP

a(LKADR
3%

sTEST FOR KW11=L PRESENT
JYES = KW11=L IS PRESENT
JRESTORE SP

MOV
MOV

001510

000004
001510
001512

SIZE CLOCK SUBROUT INE

MOV

1%:

2%:

MOV
MOV
MOV
TST

#1%,ERRVEC
#PRE,ERRVE(+2

#100, CLKVCT

(SP)+,(SP)+

#2% ,ERRVE(
#172540,CLLKADR
#104, CLKVCT
aCLKADR

sSET UP FOR BUS TIMEOUT

;SET UP FOR BUS TIMEOUT
;LOAD ADDRESSES FOR KW11-P (LOCK
;TEST FOR KW11-P PRESENT

;YES = KW11=P IS PRESENT

ADD

#2,4(SP)

sMOVE RETURN TO ERROR

MOV
MOV

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

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

RTS

(SP)+,(SP)+

;RESTORE SP

JRETURN TO USER

CZRMMBO RM05/3/2 FCTINL
TIMEQUT SUBFOUTZNE
QO N NN
-2

MACRO v04.00

4-APR-81

N 14
11:43:28 PAGE 20
SEQ 018,

.SBTTL
;THIS

TIMEOUT SUBROUT INE
SUBROUTINE WAITS FOR RDY =

;GREATER THAN APPROX.

043522

043529

24043632
251043634
26 043636
27 043640
29
30
51
2

IST

043642
043644
043652
043660

3. 043666
043666
043672
043676
043700

043702

35 043704

SCALL:
TIMoUT:

010046
010146
010246
0137456
013746
012737
012737
013700
013701
012702
020127
001003
012761
012711
016046
042716
022726
001420
032711
001766
005302
001354
000412

000004
000006
043642
00030C
001276
001510
000036
172540
000001
Q00005

012637

000207

000002

MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV

RO,=(SP)

’%:

3%:

MOV

000200

000012
000012
000012

4%:

5%:

RETURN HERE

;:PUSH RO ON STACK

R1.=(SP)

::PUSH R1

#4% ,ERRVEC(

;PUSH ERRVEC ON STACK
: ;PUSH ERRVEC+2 ON STA(K
;SETUP FOR BUS TIMEOUT - 04 TRAP

R2,=(SP)
ERRVEC,=(SP)
ERRVEC+2,-(SP)

#PR6,ERRVEC
+2

$BASE ,RO
CLKADR,R1
#30. ,R2
R1,4172540
2%

ON STACK

;:PUSH R2 ON STACK

;RO=BASE ADDRESS
;R1=CLOCK ADDRESS
;R2=NUMBER OF CLOCK CYCLES
;KW11=P CLOCK??

JNO!!

#1,2(R1)

#BIT2!BITO,
(R1)

;SET COUNTER
;START COUNTER

RMCS1(RO) ,=-(SP)

;GET STATUS

5%
#BIT7,(R1)
3%
R2

TYES:!
:
;TIMER DONE??
;NO!!
;DEC NUMBER OF CYCLES

BIC
CMP

#*C<RDY !GO>, (SP)
#RDY, (SP) +
;RDY=1,G0=0??

BEQ
DEC
BNE
BR

1%
5%

JCONTINUE IF NOT DONE
;'RDY'" DID NOT SET OR ‘'GO'' DID NOT RESET

CMPADD
MOVA
SUB

(SP)+,(SP)+
#4,12(SP)
#7,912(SP)
#2,12.SP)

;ADJUST STACK
JMOVE SP TO USER'S CALL
;WRITE ERROR NUMBER

MOV
MOV
MOV
MOV
MOV

(SP)+ ,ERRVE(
(SP)+,R2
(SP)+ ,R1
(SP)+ RO

BEQ
BIT

000200

000006
000094

PC, TIMOUT

MOV
(MP
BNE
MoV
MOV

1%:

177576

000004
112776
000007
162766 ' 000002

JSR
2T

MOV

000000

022626
062766

012637

000904
000006

1 AND GO = 0 OR FOR A TIMEOUT
500 MSEC AND THEN RETURNS.

RTS

(SP) + _ERRVEC(C+?2

JWITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED.

;.POP
:;POP
;:POP
2 :POP

;.POP STACK INTO ERRVEC+2

STACK
STACK
STACK
STACK

JRETURN

INTO
INTO
INTO
INTO

TO USER

ERRVEC
R2
R1

CIZRMMBO RMOS5/3/2 FCINL

ERROR (HECK

SUBROUTINES

TST

MACRO v04.00

B 15

4-APR=-81

11:43:28 PAGE 21

SEQ D183

.SBTTL

ERROR

CHECK

SUBROUTINES

.'..Q..‘.'.."'...."""........""'.."""Q"'.'Q'.'.."

"SBTTL

:THE PURPOSE OF

:THAT

;

FURTHER

THIS SUBROUTINE

ERROR

AND

STATUS

*FOLLOWING CHECKS ARE MADE
:

“(BITS

EQUAL

THE

UNIT

BEING

FEST ED:

SHOULD

IS VALID AND

PERFORMED.

THE

THE UNIT SELECT BITS OF RMCS2

.SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1) IS SET

15
16

IS TO VERIFY THAT STATUS
CHECKING

.CORRECT UNIT IS SELECTED, I.E.,

0-2)

AND NED (BIT

PRIMARY ERROR CHMECK SUBROUTINE

10 OF RMCS3)

1S RESET:

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

17
;g

1»

nc?!E mguv ERROR OCCURRED WHEN READING REMOTE REGISTERS,

"_NO PARITY ERROR occuaneo WHEN WRITING REMOTE REGISTERS,

:1.E.. PAR
= 0, OR, PAR
= DPE
=

Emf SUBROUTINE ASSUMES THAT:

.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER,

*IN PARTICULAR, RMCST. RMCS2 AND RMDS HAVE BEEN STORED IN THEIR

3;1)

g.g

:THE SUBROUTINE IS CALLED AS FOLLOWS:

z?'g

: CORRESPONDING LOCATIONS OF THE ''GET'* BUFFER.

25
3
27

.(SUNIT) CONTAINS THE DRIVE NUMBER

JSR

PC.PRIERR

JSR

PC.a(SP)+

:
:
:

BR
NOP
ERROR

2722

z; 043706

PRIERR:

062716

000004

2.9 043716

162716

000004

001344

001142

48
49 043722

50 043730
51 043736

105076

013737

52 043744
53 043752

042737
013737
042737
123737

55 043760

001415

56 043762
57 043766

062716
112776

000000

177770
001234
177770
001140

000004
000001

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB

GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

;CLEAR USER'S ERROR CALL

44 043706

45 043712

233

001142
001}28
001
001 142

000000

ADD

#4, (SP)

SUB

#4, (SP)

CLRB

:MOVE (SP) TO ERROR CALL

a(5P)

*CLEAR ERROR NUMBER

*MOVE (SP) TO NC ERROR RETURN

;REPORT AN ERROR IF THE WRONG UNIT IS SELECTED
MOV
RMCSZ21 ,$BDDAT
;CORRECT UNIT SELECTED??

BIC
MOV
BI(
MPB

#*CUNTMS
, $BDDAT
K
SUNIT,SGDDAT
;GOOD DATA FOR TYPEOUT
#*CUNTMS
, SGDDAT
K
$GDDAT,$BDDAT
;COMPARE EXPECTED AND RECEIVED

BEQ

ADD
MovB

#4, (SP)
#1,9(SP)

;DRIVE NUMBERS

sYES:!

JERROR 1

PRIMARY

ERROR

58 043774

CHECK

SUBROUTINE

162716

55 044000

004736

61 044006
62 044010
22 044014

000240
000137

60 044002

TST

162716

MACRO v04.00

000002

SUB

67 064014
68 044022
69 0644026
044032
044040
044046
044052

74 044060

044066
044070
044076
044104
044112

032737
001045
013737

052737
013737
062716
112776

032737

000010

SUB

044530

1$:

162716
004736

83 044132
84 044134
gg 044136

000240
000575

87
88 044136
89 044144
90 0uk146
91 044154
92 044162

93 044170
9% 044176
95 044202
9 044210
97 064214
98 044216
99 044222

100 044224

;85 044226

103

106 044226
105 044234
106 044236
107 044244
108 044246
109 044254
110 044262
111 04427C
112 044274
;}2 044302

4 044306

001334

001140

162716

032737
001030
013737

052737
042737

013737
062716
112776
162716
004736
162716
000240

000002

001344

001140
001142
001140
000000

004736

28:

000200

001334

001334
000200
160001
001334
000004
000004
000002

001140
001140
001140
001142

001346

001334
160001
001334
000004
000005
000002

001140
001140
001142
000000

THE

DEVICE

#DVA,RMCS1]
5%
RMCS11,$GDDAT

28
RMCS21,$GDDAT
RMCS21,$BDDAT
#NE
, SGDDAT
#3,3(SP)

SUB
JSR

NOP
8R

MOV
ADD
MOVB
SUB
JSR
SuB
NOP

7%:

000200

1S NONEXISTANT

BEQ
MOV
MOV
BIC
MOVB

BIS
BIC

001334

:SKIP OTHER CHECKS

#NED,RMCS2]

*RESTORE (SP)

IS NOT AVAILABLE

IFf

;DEVICE AVAILABLE??
TYES!!
:EXPECTED STATUS
;RECEIVED STATUS
:ERROR #2
*WAS NED SET??

INO!!
:EXPECTED STATUS
:RECEIVED STATUS
:YES = CHANGE ERROR NUMBER

#2.(SP)
PC.R(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT DEVICE NOT AVAILABLE

108

:SKIP OTHER CHECKS

#10, (SP)

*RESTORE (SP)

;REPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY
BIT
#RDY,RMCS1]
:CONTROLLER READY??
BNE
7%
TYES!!
MOV
RMCS11,$GDDAT
:EXPECTED STATUS

000000

000001

108

#DVA, $GDDAT
RMCS11,$BDDAT
#4, (SP)
#2.3(SP)

SUR

:
5%

:REPCRT WRONG UNIT SELECTED

BIS
MOV
ADD
MOVB

BIT

000010

000541

032737
001431
032737
001025
013737
042737
013737
062716
112776
162716

BIT
BNE
MOV

:MOVE SP TO RETURN FOR ERROR

PC.a(SP)+

#10, (SP)

NOP
JMP

*THE DEVICE

004000
001140
001334 001142
000004
000002
000000

001414
013737
001344
013737
001344
042737 010000
112776
000003

80 044120
81 044124

82 044126

004000

010000

21-1

#2,(SP)

;REPORT AN ERROR

75
76
77
78
79

11:43:28 PAGE

JSR

70
71
72
73

4-APR=-81

[ >

CZRMMBO RMOS/3/2 FCTNL

B8R

#RDY
, SGDDAT
#SC ' TRE 'MCPE ! GO, SGDDAT

RMCS11,88DDAT
#4. (SP)
#4.3(SP)
#2.(SP)
PC.a(SP)+
#10, (SP)

;RECEIVED STATUS
:
:ERROR #4
*MOVE SP TO RETURN FOR ERROR
*REPORT CONTROLLER NOT READY
*RESTORE (SP)

108

:SKIP OTHER CHECKS

;REPORT AN ERROR IF GO IS NOT ZERO AND DRY IS NOT ONE
BIT
BEQ
BIT
BNE
MOV
BIC
MOV
ADD
MOVB
SUB

JSR

#GO,RMCS1]
;GO RESET??
8$
TYES!!
#DRY ,RMDS I
‘DRIVE READY??
8$
TYES!!
RMCS1],$GDDAT
:EXPECTED STATUS
#SC ! TRE 'MCPE ! GO, $GDDAT
RMCS1],$BDDAT
;RECEIVED STATUS
#4, (SP)
#5.3(SP)
:ERROR #5
#2.(SP)
*MOVE SP TO RETURN FOR ERROR

PC,a(SP)+

:REPORT DRIVE NOT READY

CZRMMBO RMOS5/3/2 FCTNL TST 1
PRIMARY ERROR CHECK SUBROUT INE
115 046310
16 044314
117 046316

;}g 044320

16276
000240
000504

MACRO V04.00

D 15

11:43:28 PAGE 212

SEQ 0185

000010

8%:

120

SUB
NOP
BR

#10, (SP)

122 044320
123 044326
124 044330

032737
001425
013737

020000

001334

001334
160001
001334
000004

001140
001140
001142

125 044336
126 044346
127 044352

042737
013737
062716

129 044364
130 044370
131 044372
132 044376
133 (44400

162716
004736
162716
000240
000453

000002

032737
001451
032737

000010

001350

000010

001376

032737

000010

001424

128 044356

}gg 044402

112776

000013

137 044402
138 044410
139 044412

140 044420
044422

001045

142 044430

001413

144 044434
145 044440

012700
122710

143 044432

010046

146 044444
147 044446

001002
012600

149
150
151
152

105720
100371
012600
013737

148 044450
044452
044454
044456
044460

153 Q44466
154 044474
155 044502
156 044506
157 044514
158 044520
159 044522

160 044526
161 044530

162 044534

163 0464536

000240
062716

000240

000207

MOVB

918:

928 :
93%:

000000

000010
000010

108:
11%:

DETECTED A CONTROL BUS PARITY ERROR

#PAR,RMER1]
118
#DPE , RMER?]

BIT

#PAR ,RMER10

MOV
(MPB

BNE
MOV

B8R

TSTB
BPL
MOV
MOV

:MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER
*RESTORE STACK

108

BIT
BEQ
BIT

BNE

*ERROR #47

#2,(SP)
PC.a(SP)+
#10, (SP)

:REPORT AN ERROR

MOV

001140
001140
001142

#13,3(SP)

SUB
ISR
SUB
NOP
BR

BEQ

001350
000010
001350
000004
000050
000002

THE RH CONTROLLER DETECTED BAD

#MCPE ,RMCS1]
;PARITY ERROR 27
9%
‘NO!!
RMCS11,8$GDDAT
-EXPECTED STATUS
#SC ! TRE 'MCPE ! GO, $GDDAT
RMCS11,$BDDAT
:RECEIVED STATUS
#4, (SP)
:MOVE STACK TO USER'S ERROR

BIC
MOV
ADD

9%:

000431

042737
013737
062716
112776
162716
004736
162716

BIT
BEQ
MOV

000010

001543
000014

(SP)

:PARITY ON THE MASSBUS CONTROL BUS

000000

136

;RESTORE

108

;REPORT AN ERROR IF

121

141

4=-APR=-81

11%

;WAS THERE A PARITY ERROR??
IND!!
“WAS IT THE CONTROL BUS??
*NOT SURE'!

93s

*NO!!

RO, =-(SP)

#PUT INX RO
ARMER1, (RO)
92%
(SP) +,R0

118

*DID

TEST SET PAR ??

+:PUSH RO ON STACK

*RO POINTS TO INDEX TABLE
SCEARCH TABLE FOR RMER1
;:POP STACK INTO RO

:PAR WAS SET BY TFST

(RO)+
918
(SP)+,R0
RMER1],$GDDAT

*END OF TABLE??
iNO!!
::POP STACK INTO RO
;EXPECTED STATUS

NOP
ADD

#10, (SP)

RTS

:RETURN TO ERROR
;RETURN TO NO ERROR

BIC
MOV
ADD
move
SuB
JSR
SUB

NOP

#PAR
, SGDDAT
RMER11,$BDDAT
;RECEIVED STATUS
#4,(SP) :MOVE SP TO USER'S ERROR CALL
#50,a(sP}
;WRITE THE ERROR NUMBER
#2,(SP)
“MOVE SP TO RETURN FOR ERROR
PC.a(SP)+
*REPORT THE ERROR
#10, (SP)
*MOVE SP TO NO ERROR RETURN

CZRMMBO RMOS/3/2 FCTNL

TST

SECONDARY ERROR (HECK SUBROUTINE

MACRO v04.00

4=-APR-B1

SEQ O

.SBTTL

OO0 NPNE NN = OO0 NN S NN

E 15

11:43:28 PAGE 22

:THE

SECONDARY ERROR CHECK SUBROUTINE

ERROR CHECK

SUBROUTINE

PROVIDES DETECTION OF

;WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR
sNUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RE TURNS
:TO THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE
;MAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR

s e

:OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUT INE

d ed od =d e

-RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL.

iCALL:

JSR

:
3

ot o

PC,SECERR

BR
NOP

772

RETURN HERE
RETURN HERE

JSR

PC,a(SP)+

GO BACK TO SUB FOR MORE ERROR (HECKS

THE

SUBROUTINE ASSUMES

ERROR

E$ 4

sNOTE:

s INPUT REGISTER BUFFER.

24 044540

IF NO ERROR
TO REPORT AN ERROR

ERROR NUMBER DEF INED BY SUB

RETURN HERE IF NO MORE ERRORS

THAT REGISTERS HAVE BEEN STORED AT

SECERR:
AL

28 044540
29 044546
30 044554
31 044560
32 044564

SECONDARY ERRORS

sSUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE
;ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY
;ASSOCIATED WITH THE OPERATION BE ING PERFORMED.

013737
042737
062716
105076
16271€

001410
177701
000004
000000
000004

050374
050374

AR LR

212222222222

22222223332

:STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER
MOV
BIC

RMCS10,515%
;STORE FUNCTION CODE
#*C<FO!F1!F2!F3!F4>,515%
#4, (SP)
sMOVE (SP) TO ERROR CALL
a(SP)
:CLEAR ERROR NUMBER
#4,(SP)
;MOVE (SP) TO NO ERROR RETURN

ADD

CLRB
SuB

MRS R

LSRR

;REPORT ERROR

DRIVE

222322222222

:CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS
37
38 044570
39 044576

40
41
42
43
44
45
46
47
48
49

50
51
52
53
54
55
56
57

044600
044606
044614
044622
044626
044634
044640
044642
044646

044650
044656
044660
044666
044674
044700
044704

032737
001024
013737
042737
012737
062716
112776
162716
004736
162716
000240

032737
001423
013737
042737
005037
062716
112776

000200

001346

001346
177577
000200

001142
001142
001140

000004
000010
000002

000000

000010

000001

001334

001142
001142

177776

001140
000004
000011

000000

BIT
BNE
MOV
BiC
MOV
ADD
MOVB
SUB
JSR
SUB
NOP

IS NOT READY,

#DRY ,RMDS I
5%
RMDSI ,$BDDAT
#*CDRY, $BDDAT
#DRY ,$GDDAT
#4, (SP)
#10,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

I.E.,

RMCS11,$BDDAT
#*CGO,$BDDAT
$GDDAT
#4,(SP)
#11,a(SP)

333

DRY = 0

:DRIVE READY??
ITES:!
:BAD DATA FOR TYPEOUT

;GOOD DATA FOR TYPEOUT
;ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
sREPORT NOT READY
sRESTORE (SP) TO ERROR N

;REPORT ERROR IF GO BIT IS NOT RESET
5%:
BIT
#GO,RMCS1]
;GO BIT RESET??
BEQ
10%
IYES!;
MOV
BIC
CLR
ADD
MCVB

;BAD DATA FOR TYPEOUT

;GOOD DATA FOR TYPEOUT
sERROR NUMBER

THE

'yg/

CZRMMBO RMOS/3/2 FCTNL

TST

SECONDARY ERROR CHECK SUBROUT INE

58 044712
59 044716
60 144720
61 044724
€2
63
64 044726
65 044734

66 044742

67 044750

68 044756
09 044760
70 044764
71 044772
72 044776

73 045000
74 045004
75 045006

162776

004736

000010

013737
042737
013737
023737
001413
062716

001334

112776
162716
004736
162716
000240

SUB

NOP
;REPORT

10%:

177701

050374
001142

80 045012
81 045016
82 045020
83 045024
84 045026
85 045034
86 045042
87 045050
88 045056
89 045060
90 045064
%1

045072

92 045076
93 045100
94
95
9%
97

——

SRENNXRSNS

FURNONY
= b b wd e = e =

n
no

SV
o Wi

FRRRRIR|K]RK|\R o0
N

FANIo3BIRIRER2

98 045104

005037
005737
001003
005737
001403
052737
013737
042737
023737
001412
062716

ADD

MOVB

000010 15%:

112776
162716
004736
162716

001140

001350

001376
040000

001346
137777

001140

000004
000047
000002

BIC
MOV
BEQ

000004
000012
000002

001140
001142
001142
001142

#2,(SP)
PC.(SP)+

#10, (SP)

sMOVE SP TO RETURN FOR ERROR

;REPORT DEVICE NOT AVAILABLE

;RESTORE (SP)

ERROR IF FUNCTION CODE READ FROM DEVICE IS NOT CORRECT

MOV

CMP

F 15
11:43:28 PAGE 22-1
SEQ

SUR
JSR

79 045006

4-APR=-81

000002

162716

000240

MACRO v04.00

SUB
JSR
SuR
NOP

RMCST1,$BDDAT

;1S FUNCTION CODE CORRECT??

$BDDAT
, $GDDAT

JEXPECTED FUNCTION CODF

#*(76,$BDDAT
515%, $GDDAT
158

#4,

(SP)

#12,3(SP)

#2,(SP)
PC.a(SP)+
#10, (SP)

;YES!!
JERROR NUMBER
;MOVE SP TO RETURN FOR ERROR

JREPORT WRONG FUNCTION CODE

JRESTORE (SP)

;REPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER
:ERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND
;OTHER ERRORS ARE SET
CLR
$GDDAT
JEXPECT "“ERR'’ = 0
TST
RMER11
;1S RMER 1= 022
BNE
20%
sNO!!
TST
RMERZ21
;1S RMERZ = 0??
BEQ
1YES
25%
!
#ERR, $GDDAT
20%:
BIS
J"ERR'" S OULD BE SET
25%:
MOV
RMDSI,$BDDAT
BIC
CMP
BEQ
ADD

000000

MOvB
SuB
JSR
SuB

000010

#*CERR, $BDDAT

$GDDAT, $BDDAT
308

#4,(SP)

#47,9(SP)
#2,(SP)

PC,a(SP)+
#10, (SP)

;1S "ERR'' 0K??

.
S¥ES:
sMOVE SP TO USER'S ERROR

;WRITE E RROR NUMBER

;MOVE SP TO ERROR RETURN

JREPORT

INVALID COMP ERROR

sREPORT AN ERROR IF ''TRE''
IS SET AND NONE OF THE BITS WHICH SET
:TRE IS SET, OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH

005037
013746
042726
001010
032737
001407
022737
103003
052737

001140
001344
000377
040000

001346

000030

050374

040000
001334
137777
007140

001140
001142

013737
042737
023737
001413,
062716 000004
112776
000014
162716 000002
004736

001142
001142
000000

s SET TRE 1S SET
:
308
CLR
$GDDAT
MOV
RMCS2I,-(SP)
#377,(SP)+
BIC
BNE
35%
#ERR,RMDS
BIT
]
40%
BEQ

35%:

40%:

CMP
BHIS

#SEARCH,515%
40%

BIS

#T
, RE
$GDDAT

BIC
CMP
BEQ

#*CT
, $BDDAT
RE

MoV

ADD
MovB
sus
JSR

= 0
JEXPECT “TRE"*
;WAS DLT, WCE, UPE, NED, NEM

;PGE,

JYES!!

MXF

OR MDPE

JWAS EXC EPY

JNO!i

RECEIVED??

JWAS DAT A TRA
;NO!!

'.IITREDI

SET

HOULD BE

ED??
SET

RMCS11,$BDDAT

;BAD DATA FOR TYPEOUT

$GDDAT
, $BDDAT
45%

iVeS!!

#4,(SP)
#14,3(SP)

#2,(SP)

PC,a(5P)+

218 "'TRE " OK??

sMOVE SP TO USER'S ERROR CALL

JWRITE E RROR NUMBER

;MOVE SP TO RETURN FOR ERROR

;REPORT TRE ERROR

0187

CZRMMBO RMOS/3/2 FCINL TST 1
MACRO v04.00
SECONDARY ERROR CHECK SUBROUTINE

i
1

1
1
1

—=O LT~

162716

000240

45%:

010046
013700
016037
012600

013737
032737
001403
052737
042737
013737
042737
023737
001413
062716
112776

162716
004736

045342
045344

000240

22 2222222222221

E.G., WRITE LOCK ERROR SHOULD ONLY BE SET

162716

050374
067136

MOV

RO, = (SP)

MOV
MOV

FNCDTB(RO),5008 :STORE ENTRY
(SP)+,R0
*:POP STACK INTO RO

MOV

050366

050366
040000
100000

077777
001346
077777
001140

000004
000006
000002

001140
001346
001140
001140
001142
001142
001142

*ATA

NOT

MOV

SET

BIT

50$:

BEQ
BIS
BIC

MOV

BIC
CMP
BEQ

ADD
MOVB

000000

000010
55%:

)

LV TV IV IV IV TV 1V )
PP
¥ oW o o

[olelalelslole]

5360
5366
374
402

S Y

112776
162716

FLT8

olele)

410

013737
042737
013737
042737
023737
001412
062716
004736

430

005037

162716

013746
052716
013737
042637

050366

001350

001140
001140
001142
001742
001142

000004
000254
000002

0C0000

177776

SUB
JSR
SUB
NOP

137777

500% , SGDDAT

#ERR ,RMDS |

001142

SET.

:IS COMPOSITE ERROR SET 2?

INO !
“EXPECT AN ATTENTICN

#~CATA,$BDDAT
$GDDAT.$BDDAT
55%

:STRIP DONT CARES
:1S ATA OK 27
SYES !

RMDSI,$BDDAT

#4, (SP)
#6,a(SP)

#2°(SP)
PC.R(SP)+
#10, (SP)

ILF

:STRIP DONT CARES

:GET RECEIVED ATA

:MOVE 'SP TO USERS ERROR CALL
;LOAD ERROR # IN CALL

*MOVE SP TO ERROR RETURN
*REPORT ERROR
*RESTORE SP

IS INCORRECT,

TABLE

;GET EXPECTED ATA STATUS

508
#ATA,$GDDAT
#~CATA,$GDDAT

I.E.,

ILF DOES NOT (OMPARE

500%, SGDDAT
#~CILF,$GDDAT

ADD
MOVR

RMER11,$BDDAT
#~CILF.SBDDAT
$GDDAT,$BDDAT
60%

:GET EXPECTED ILF
:CLEAR ALL OTHER BITS
;GET RECEIVED ILF
:CLEAR ALL OTHER BITS
IS ILF OK ??
TYES )

#2543 (SP)

:WRITE ERROR NUMBER IN CALL

SUB

CLR

#4,

(SP)

:MOVE

#2,(5P)

sMOVE

SP TO ERROR RETURN

#10,

‘MOVE

SP TO NO ERROR

SP) +

$GDDAT

;REPORT AN ERROR IF WCE

050366

001344
0071142

SHOULD BE

MOV
BIC

MOV
BIC
CMP
BEQ

60$:

:GET FUNCTION CODE

IF AN UNEXPECTED ATTENTION OCCURRED OR

AND

sWiTH FUNCTION CODE

JSR

000010
001140

;:PUSH RO ON STACK

515%,R0

;REPORT ERROR IF

45344
45352

IFf

sGET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE

D o

:,;3;8;2H;f;9:0\OH)&?\n\n\n\n\n\n\n\h\n\nJ\
W —=O 0NN NV—=OY

148 045336

AR R

.STATUS BITS SET THAT SHOULD NOT BE SET, E.G., WCE AND E(H

:REPORT AN ERROR

146° 045330
147 045334

k> AR A

:STATUS CONDITIONS,

g 045254

) e

JWRITE LOCK IS ON AND THE COMMAND IS A WRITE.

045246

) ndd el

(SP)

:NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER

g 045240

D ol o)

RARRRAR

JRESTORE

;USING THE FUNCTION CODE TABLE, CHECK FOR THE FOLLOWING ERRORS:
:
.STATUS BITS NOT SET THAT SHOULD BE SET, E.G., ATA AND ILF

) ol

SEQ 0188

#10, (SP)

NOP

4 AR

4
3

ol ot
)l et

G 15

11:43:28 PAGE 22-2

SUB

000010

045220
045222

NOWN

1
1

norunONINUNONY
2 = i s

115 045214

4=-APR=8]

MOV
BIS
MOV
BIC

TO USERS ERROR CALL

*REPORT ‘ERROR AND RETURN
oCLEAR EXPECTED STATUS

IS SET AND SHOULD

5008,-(SP)
#*CWCE, (SP)
RMCS21,$BDDAT
(SP)+,$BDDAT

NOT BE SET

;GET WCE STATUS ENABLE
;SET ALL OTHER BITS
;RECEIVED STATUS
;CLEAR WCE IF ENABLED

—~

—

CZRMMBO RMOS/3/2 FCTINL

SECONDARY ERROR CHECK

172 045456

173 045460

001412
062716

176 045476

162716
004736

174 045464
175 045472

177 045500

178 045504

TST

SUBROUT INE

112776

162716

(00004
000026
000002

MACRO v04.00

188
189
190
191
192
193
194

045542

045546

045550
045554

195 045554
196 045560
197 045566
198 045570
199 045574
200 045600

000000

000010

112776
162716
004736
162716

050366
157777

001350
001142
000004
000164
000002
000010

162716

004736

162716

050366
000100
010000
167777

001376
001142
000004
000165
0000602

JSR

PC,a(SP)+

+REPORT ERROR

#2,(SP)

#10, (SP)

JREPORT ERROR
MOV
BIS
MOV
8IC

BEQ
ADD

MOVB

SUB
JSR

+i08

;REPORT

013746
032737
001402
042716
052716
013737
042637
001412
062716
112776

sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER

SUB

000000

001142

MOV

IVC

;RESTORE

000000

000010

500%,-(SP)

#VV ,RMDS1

BIC

#1vVC, (SP)

105%

BIS
MoV
BIC
BEQ
ADD
MovB

#*CIVC, (SP)
RMER2I ,$BDDAT
(SP) +,$BDDAT
1108
#4, (SP)
#165,2(SP)

JSR

PC,a(SP)+

SuB

SET AND

BIT

BEQ
105%:

JRESTORE

#10, (SP)

ERROR

sMOVE SP TO ERROR RETURN
ERROR

OP] STATUS IS SET AND SHOULD NOT BE SFT
500%.,-(5P)
JGET OP] STATUS ENABLE
fi“COPI (SP)
:SET ALL OTHER BITS
RMER1I.SBDDAT
sGET RECEIVED STATUS
(SP) + ,$BDDAT
;CLEAR OPI IF ENABLED
100%
;BRANCH IF OPI OK
#4,(SP)
;sMOVE SP TO USER'S ERROR CALL
#164,(SP)
JWRITE ERROR NUMBER IN CALL
#2,(SP)
sMOVE SP TO ERROR RETURN
PC,a(SP)+
;REPORT ERROR

;SET AND VV IS NOT RESET

001346

JBRANCH IF WCE OK

#4,(SP)
#26,a(SP)

SUB

90%:

001142

90%

ADD
MOVB

IS NOT

ENABLED OR

IvC

JGET

IVC STATUS ENABLE

:1S WV SET

;YES = IVC SHOULD BE 0

;SET ALL OTHER BITS
;GET RECEIVED STATUS
;CLEAR IVC IF ENABLED
sBRANCH IF IVC OK
;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL

#2,(SP)

sMOVE SP TO ERROR RETURN

#10,(SP)

JRESTORE

sREPORT ERROR
SP

TO NO ERROR

—d ol oy —

VOO
S W —=O

LSLSLSTNL
N LN ST N1

201 045606
202 045612
203 045614
204 045620
205 045626
206 045632
207 045634
208 045640

013746
052716
013737
042637
001412
062716

H 15
11:43:28 PAGE 22-3

BEQ

179

180
181 045504
182 045510
183 045514
184 045522
185 045526
186 045530
187 045534

4-APR-81

;BIT 11
:

(WLE)

WRITE

012746
032737
001404
03¢73%7
001002

042716

013737
042637
001412

177777

- WLE,

I.E.,

RMCS2 - UPE.
THESE ERRORS

050366

IS CHECKED

ERROR ENABLE BIT

004000

00134¢

001142

MOv

IS THE ENABLING BIT FOR

IS RESET.

TO SEE

IS SET AND WRITE
PROTECTED

#-1,-(SP)

AN ERROR IS SET WHEN THE

ERRORS ARE NOT ENABLED,

;ASSUME WRITE ERRORS ENABLED

BIT

#WLE , 5008

*ARE WRITE ERRORS ENABLED ??

BIT

#WRL ,RMDS |

;1S

BIC
MOV
BIC

#WLE, (SP)
RMER11,$BDDAT

BEQ

1158:
1208:

TABLE

WCF

;REPORT AN ERROR IF WLE
;THE DRIVE IS NOT WRITE

004000

004000
001350
001142

THE FUNCTION CODE

RMERZ2 - DPE

*EACH OF

;WRITE

ERRORS,

RMERT

e cd cndh ol

045640
045644
045652
045654
045662
225 045664
226 045670
227 Q45676
228 045702

ALL

BNE

BEQ

115%

1208

(5P)+ ,$BDDAT
125%

JNO

s 9ES

IHE

DRIVE WRITE PROTECTED ?2?

JRESET WLE ENABLE
;GET RECEIVED STATUS

;CLEAR WLE IF ENABLED
JBRANCH IF WLE OK

CZRMMBO RMOS/3/2 FCINL TST 1
MACRO Vv04.00
SECONDAR: ERROR (HECK SUBROUT INE

229 045704

230 045710
231 045716
232 045722
33 045724
34 045730
7 045730

38 245734
239 045742
240 045744
241 045750
242 045756
243 045762
244 045764
2645 045770
246 045776
247 046002
248 (46004
249 046010
252 046010
253 046014
254 046022
255 046024
256 046030
257 046036
258 046042
259 046044
260 046050
261 046056
262 046062
263 046064
264 046070
265
266
267 046070
268 046074
269 046102
270 046104
271 046110
272 046116

273 046122
274 046124
275 046130
276 046136
277 046142
278 046144
279 046150

280
281
282 046150

283 046154
284 046160
285 046166

06276
112776
162716

004736
162716

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716

004736
162716

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716

004736

000004
(00023
000002

004000
000040
001350
001142
000004
000025
000002

001142

000000

135%:
:REPORT

050366

000004
000040
000002

00000

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716

177777

004000

1408%:

;MOVE SP TO USERS ERRCR CALL

JSR
5UR

PC.A(SP)+
#10, (5P)

ERROR
MOV
BIT
BNE
BIC
MOV
BIC
ADD
MOVB
SuB
JSR
SuB

ERROR

MOV

BIT
BNE
BIC
MOV
BIC
BEQ

ADD
MOVB
SuB

145%:

JSR
SuB

:WRITE ERROR NUMBER IN CALL

#2.,(SP)

:MOVE SP TO ERROR RETURN

*REPORT ERROR AND RETURN
*RESTORE SP TO NO ERROR

IF WCF IS SET AND
#~1,=(SP)
#W_E,500%
130%
#WCF , (SP)
RMER11,$BDDAT
(SP) +,$BDDAT

135%

#4, (SP)
#25,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

IF DPE

WRITE ERRORS ARE NOT ENABLED
JASSUME WRITE ERRORS ENABLED
JARE WRITE ERRORS ENABLED ??

YRS £}
;DISABLE WCF ERROR

;GET RECEIVED STATUS
JRESET WCF IF ENABLED

;BRANCH IF WCF OK

;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
;REPORT ERROR
JRESTORE SP TO NO ERROR .

IS SET AND WRITE ERRORS ARE NOT ENABLFD

#=1,=L{SP)

#WLE , 5008
140%
#DPE , (SP)
RMERZ2I ,$BDDAT
(SP)+,$BDDAT
145%

#4,(SP)
#40,a(SP)
#2,(SP)

;ASSUME WRITE ERRORS ARE ENABLED

;ARE WRITE ERRORS ENABLED ??
sYES !
JRESET DPE ENABLE
;GET RECEIVED STATUS
JRESET DPE IF ENABLED
:BRANCH IF DPE OK
/
;MOVE SP TO USERS ER?OR CALL
;WRITE ERROR NUMBER
IN CALL

;MOVE SP TO ERROR RETURN
;REPORT ERROR

PC,a(SP)+
#10,(SP)

*RESTORE SP TO NO/ERROR

;REPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED
050366

020000
001344
001142

001142

000004
000024
000002

000000

000010

050366
175777
001350
001142

130%:

#4,(SP)

#2%,3(SP)

BEQ

001142

000010

013746
052716
013737
042637

050366

000010
001376
001142

162716

004736
162716

JREPORT

115

11:43:28 PAGE 22-4

MOVB

SUB

125%:

0C0010

177777
004000

ADD

000000

000010

177777

4=~APR=81

150%:

;REPORT

#=1,-(SP)
#WLE , 5008

1508
#UPE , (SP)
RMCS2I ,$BDDAT
(SP) +,$BDDAT
155%

ADD
MOVB

#4, (SP)
#24,3(SP)

JSR

PC,Q(SP)\

SUB

155%:

001142

MOV
BIT
BNE
BIC
MoV
BIC
BEQ

SUB

#2,(SP)

#10, (SP)

;ASSUME WRITE ERRORS ARE ENABLED
;ARE WRITE ERRORS ENABLED ??

YRS !
;DISABLE UPE ERROR
;GET RECEIVED STATUS
JRESET UPE IF ENABLED
;BRANCH IF UPE OK

sMOVE SP TO USERS ERROR CALL
;WRITE ERRCR NUMBER IN CALL

;MOVE SP TO ERROR RETURN

;REPORT ERROR AND RETURN

;MOVE SP TC NO ERROR
\

AN ERROR IF IAE IS SET AND IS NOT ENABLED

MOV
BIS

MOV

BIC

5008, - (SP)
#*CIAE,(SP)

RMER1I,$BDCAT

(SP)+, SEDDAT

:GET IAE ENABLE
;SET ALL OTHER BITS

:GET RECEIVED STATUS

:CLEAR

IAE

ENABLED

CZRMMBO RMOS/3/2 FCINL

TST 1

SECONDARY ERROR CHECK SUBROUT INE

286 046172
287 046176
288 046200
289 046206
290 046212
291 046214
292 046220
293
29
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310 046220
311 046224
312 046232
313 046234
314 046240
315 046246
316 046252
317 046254
318 046260
319 046266

320 046272
321 046274
;5% 046300

324
325 046300
326 046304
327 046312
328 046314
329 046320
330 046326
331 046332
332 046334

001472
062716
112776
162716
004736
162716

(}f(‘

BEQ

000000

000010

160¢%

ADD

#4,(SP)

MOvVB

#166,9(SP)

SuB
JSR

#2,(SP)
PC,a(SP)+

#10, (SP)

;BRANCH IF JAE IS Ok
;MOVE SP TO USERS ERROR CALL
JWRITE ERROR NUMBER

;MOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

;MOVE

10 NO ERROR

I.E.,

:
:

RMCS1 - TRE
/RMCSZ - DLT,NEM,MXF

| RMER1 - AOE

RMDS

- LET

;NOTE:.
:
LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED
:fig%éNDER REGISTER IS WRITTEN

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716

004736
162716

(12746
032737
001002
042716
013737
042637
001472
062716
112776
162716

lwlw]

Sk
SAay

342 046372

11:43:28 PAGE 22-5

; ALL READ/WRITE ERRORS,

162716

341 046364

J 15

4-APR=-81

:BIT 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR

004736

(00004
000166
000002

MACRO V04.0C

177777
001000

100000
001344
(01142
000004
000032

000002

001142

TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABGVE

165%:

001142

000004
000167
000002

000000

175%:

DLT

IS SET AND READ/WRITE ERRORS ARE NOT ENABLED

JSR
SuB

;ASSUME ERRORS ARE ENABLED
;ARE ERRORS ENABLED ??
Y85
JRESET DLT ENABLE
;GET RECEIVED STATUS
;CLEAR DLT IF ENABLED
sBRANCH IF DLT IS OK

#4,(SP)

;MOVE SP TO USERS ERROR CALL

PC,a(SP)+
#10, (SP)

;REPORT ERROR AND RETURN
sMOVE SP TO NC ERROR

#32,a(SP)
#2,(SP)

MOV

RMCS21,$8DDAT

ADD

#4, (SP)

BIC
BEQ

(SP)+,$BDDAT
1808

MOVB

180%:

050366

#=1,~{SP)
#AQE , 5008
165%
#DLT, (SP)
RMCS2I,$BDDAT
(SP) +,$BDDAT
1708

;WRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN

;REPORT ERROR IF NEM IS SET AND READ/WRITE ERRORS ARE NOT ENABLED
MoV
A=Y ~(SP)
;ASSUME ERRORS ARE ENABLED
BIT
#AOE , 5008
*ARE ERRORS ENABLED 22
BNE
175$
SYES )
BIC
#NEM, (SP)
*DISABLE NEM

[

000010

MovB
SUB
1708

004000
001344
001142

MOV
BIT
BNE
BIC
MOV
BIC
BEQ

ADD

000000

050366

001000

050366

001000

177777

AOE CANNOT BE SET IF LBT IS NOT ALSO SET

;REPORT AN ERROR

000010

177777

E~ore.

#167.3(SP)

SuB

#2,(SP)

JSR

PC,a(SP)+

SUB

;REPORT ERROR
MOV

BIT
BNE

#10, (SP)
IF

:GET RECEIVED STATUS

:CLEAR NEM IF ENABLED
*BRANCH IF NEM IS OK

*MOVE

SP TO USERS ERROR CALL

*WRITE ERROR NUMBER IN CALL

sMOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED
#=1,«(5P)
sASSUME ERRORS ARE ENABLED

#AOE ,500%
185%

sARE DATA ERRORS ENABLED ??
JYES !

\"',’.

350 046432
351 046434
352 046440
353
354
355 046440
356 046444

357 046452

358 046454
359 046462
360 046464
361 046470
362 (46476

363 046502
364 046504
365 046510
366 046516
367 046522
368 046524
369 046530

370
371
372
373
374
375
376

CHECK

SUBROUT INE

042776
013737
042637
001412
062716
112776
162716

001000
(01344
001142

001142

000004
000033
000002

000000

004736
162716

012746
032737
001404
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

383 046546
384 (046552
385 046560
386 046562
387 046566
388 046574
389 046600
390 046602
391 046606
392 046614

012746
032737
001002
042716
013737
042637
001412
062716

394 046622
395 046626

399 046632

BIC

001000
001350
001142

001142

000010

JSR

PC.a(SP)+

SUB

BIT

#4,

(SP)

#2, (SP)

#10, (SP)

#AQE ,500%

191%
#LBT ,RMDSI
195%
#AOE
, (SP)

BEQ

200%

MOV
BIC

MovB
SUB
JSR
suB

;WRITE ERROR NUMBER IN CALL
JMOVE SP TO ERROR RETURN

JREPORT ERROR AND RETURN

sMOVE SP TO NO ERROR

IF AOE IS SET AND DATA ERRORS ARE NOT ENABLED
#=1,-(SP)
JASSUME DATA ERRORS ARE ENABLED

BEQ
BIT
BNE
BIC

ADD

200%:

:CLEAR MXF IF ENABLED
‘BRANCH IF MXF IS OK
:MOVE SP TO USERS ERROR CALL

#3%.3(sP)

MOV

000000

(SP)+,$BDDAT
1908

MOVB

;REPORT ERROR

001346

;DISABLE MXF ERROR

RMCS21,$BDDAT - :GET RECEIVED STATUS

SUB

050366

#MXF , (SP)

MOV

BIC
BEQ
ADD

190%:

002000

000004
000020
000002

185%:

JARE

DATA ERRORS EANBLED

JNO !
;1S LBT ALSO SET 2?7
sYES U

:DISABLE AOE
;GET RECEIVED STATUS

RMER11,$BDDAT
(SP) +,$BDDAT

;CLEAR AQE

#4, (SP)

;MOVE SP TO USERS ERROR CALL

#20,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

IF ENABLED

sBRANCH IF AOE IS 0K
;WRITE ERROR NUMBER

;MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

RMER1 = HCRC,HCE.FER
RMER2 - BSE

032737
001403
042737

398 046626

001000

K 15
11:43:28 PAGE 22-6

;BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
sHEADER

377 046530
378 046536
379 046540
380 046546

393 046620

000010

177777

:
4-APR-81

SEQ 0192

343 046374
344 046400
345 046406
346 046412
347 046414
348 046420
349 046426

MACRC v04.00

ERROR

SECONDARY

TST

CZRMMBC RMOS5/3/2 FCTNL

002000

001366

000200

050366

177777
000200

050366

001142

162716

000004
000035
000002

000000

162716

000010

004736

17777

0002

201%:

BIT
BEQ
BIC

#HCI ,RMOF |
201%
#HCE,500%

;1598 SET 7
R 1
sYES - DISABLE ALL HEADER ERRORS

;REPORT AN ERROR IF HCRC IS SET AND HEADER ERRORS ARE NGT ENABLED

000400
001350
001142

112776

;RESET THE ENABLING BIT (HCE) IF HEADER COMPARE INHIBIT IS SET

205%:

MOV
BIT
BNE
BIC

#-1,-(SP)
#HCE, 5008
2058
#HCRC , (SP)

BIC

(SP)+,$BDDAT

MOV

BEQ

SUB
JSR
SUB

#2,(5P)
PC.R(SP)+
#10, (SP)

JREPORT ERROR

050366

2108$

ADD

MOVB
210%:

RMERTI,$BDDAT

MOV

BIT

(SP)

#35,3(SP)

:ASSUME ERRORS ENABLED
*ARE HEADER ERRORS ENABLED ??
SYES !
*DISABLE HCRC
:GET RECEIVED STATUS

:RESET HCRC IF ENABLED

*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

IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLED
#-1,-(SP)
;ASSUME ERRORS ENABLED
#HCE, 5008
sARE ERRORS ENABLED ??

CZRMMBO RMOS5/3/72 FCTNL

TST

SECONDARY ERROR CHECK SUBROUTINE

400 046640
401 046642
402 046646
403 046654

4046 046660

405 046662
406 046666
407 046674
408 046700

409 046702

f}? 046706

001002
042716

013737
042637

001350
001142

062716
11277€
162716
004736

000004
000036
000002
3

001412

162716

000010

012746
032737
001002

177777
000200

412
413 046706
414 046712
415 046720
416 046722
417 046726
418 046734
419 046740
420 046742

042716
013737
042637
001412
062716

422 046754
423 046760

162716
004736

421 046746

424 046762

252 046766

427
428 046766
429 046772
430 047000
431 047002
432 047006
433 047014
434 047020
435 047022

436 047026

437 047034
438 047040
439 047042
22? 047046
442

443

(000200

112776

000020
001350
001142
000004

000037
000002

162716

000010

012746
032737
001002
042716
013737
042637
001412
062716

177777
000200

112776

162716
004736
162716

100000
001376
001142
000004

000354

(00002

MACRO v04.00

001142

215%:

BNE
BIC

MOV
BIC
BEQ

ADD
MOVB
SUB
JSR

000000

220%:

050366

001142

000000

22-7

050366
001142

000000

000010

SUB

215%
#HCE, (SP)

RMER11,9BDDAT
(SP)+,$BDDAT
220%
#4, (SP)
#36,a(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

MOVR

#37.3(SP)

Sus

016.(SP)

SUB
JSR

JBRANCH IF HCE

SUB
JSR

#2,(SP)
PC,a(SP)+

2408 :
;BIT 06 OF

;NOTE
:

#2,(SP)
PC,a(SP)+
#10, (SP)

THE FUNCTION CODE

sFIELD ERRORS,

&
:

#354.a(sP)

1.E..

IS Ok

;MOVE SP TO NO ERROR

HEADER ERRORS ARE NOT ENAKLED
JASSUME FER IS ENABLED
;ARE HEADER ERRORS ENABLED ?7?
:YES !!
;DISABLE FER
:GET RECEIVED STATUS
JRESET FER IF ENABLED
JBRANCH IF FER OK
sMOVE SP TO USERS ERROR CALL

JWRITE ERROR NUMBER IN CALL

;MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN

;MOVE SP TO NO ERROR

:REPORT ERROR IF BSE IS SET AND
MOV
#-1,-(SP)
BIT
#HCE ,500%
BNE
235%
BIC
#BSE, (SP)
235%:
MOV
RMERZI ,$BDDAT
BIC
(SP) + ,$BDDAT
BEQ
2408
ADD
#4,(SP)

MOVB

JYES !!
JDISABLE HCE
;GET RECEIVED STATUS
sCLEAR HCE [F ENABLED

sMOVE SP TO USERS ERROR CALL
JWRITE ERROR NUMBER IN CALL
JMOVE SP TO ERROR RETURN
- JREPORT ERROR AND RETURN

sREPORT ERROR IF FER IS SET AND
MOV
#=1,=-(SP)
BIT
#HCE,500%
BNE
225%
BIC
RFER, (SP)
225%:
MOV
RMER1] ,$BDDAT
BIC
(SP) +,$BDDAT
BEQ
230%
ADD
#4,(SP)

230%:

447
223

450
451
452
453
454
455
456

L 15

11:43:28 PAGE

SEQ 0193

444
- 445
446

4=APR=81

HEADER ERRORS ARE NOT ENABL§D
;ASSUME ERRORS ENABLED
;ARE THEY ENABLED ??
SYES !!
:DISABLE BSE
;GET RECEIVED STATUS
;CLEAR BSE IF ENABLED
;BRANCH IF BSE OK
sMOVE SP TO USERS ERROR CALL

JWRITE ERROR NUMBER

;MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR
TABLE

IS THE ENABLING BIT FOR DATA

RMCS2 - MDPE
RMER1 - DCK,ECH

]
ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND
;DCK IS SET.

047046
047052
047060
047062
047066
047074

012746
032737
001002
042716
013737
042637

177777
000100
000400
001344
001142

sREPORT ERROR IF MDPE
MOV

050366
001142

245%:

BIT
BNE
BIC

MOV

BIC

IS SET AND IS NOT ENABLED

#-1,-(SP)
#ECH,500%

;ASSUME ENABLED
;egg DATA FIELD ERRORS ENABLED °?

#MDPE
, (SP)
RMCS21,$BDDAT
(SP)+,$BDDAT

*DISBALE MDPE

245%

*GET RECEIVED STATUS
*CLEAR MDPE IF ENASLED

CZRMMBO RMOS5/3/2 FCTNL TST 1
MACRO v04.00
SECONDARY ERROR (HECK SUBROUT INE

457 047100
458 047102
459 047106
460 047114

467 047120
462 047122

463 047126
464
465
466 047126
467 047132
408 047140
469 047142
470 047146

471
472
473
476
475

047154
047160
047162
047166
047174

476 (47200

477 047202
478 047206
479
480
481
482
483
484 047206
485 047212
486 047220
487 047222

488 047230
489 047232
490 047240
491 047242
492 047246

493 047254

494
495
496
497
498
499
500

047260
047262
047266
047274
047300
047302
047306

001472
062716

112776
162716

000004
000027
000002

162716

000010

012746
032737
001002
042716
013737
042637
001412
062716

177777

004736

000100
100000

001350
001142

112776
162716

000004
000030
000002

162716

000010

004736

4-APR-81

M 15

11:43:28 PAGE 22-8

BEQ

2508

ADD

000000

#4,

MOVB

#27.3(SP)

SuB

#10, (SP)

5UB
JSR

250¢%:

#2,(SP)
PC,a(SP)+

sREPORT ERROR

001142

BIT

255%:

000000

2608

:BRANCH IF MDPE OK

;MOVE

SP TO USERS ERROR CALL

‘WRITE ERROR NUMBER IN CAL!

*MOVE SP TO ERROR RETURN

*REPORT ERROR AND RE TURN
;MOVE SP TO NO ERROR

IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED

MOV

050366

(SP)

#-7,-(SP)

JASSUME

255%
#DCK, (SP)
RMER1I,$BDDAT
(SP)+,$BDDAT
260%
#4, (SP)
#30,a(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

J¥ES 1!
;DISABLE DCK
;GET RECEIVED STATUS
;CLEAR DCK IF ENABLED
sBRANCH IF DCK IS OK
;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
:MOVE SP TO NO ERROR

#ECH, 5008

BNE
BIC
MOV BIC
BEQ
ADD
Move
SUB
JSR
SuB

ENABLED

;ARE THEY ENABLED ??

;REPORT ERROR IF

012746
032737
001410
032737
001004
932737
001002
042716
013737
042637
001412
062716

177777
000100

050365

004000

001366

100000

001350

001142

112776
162716

000031
000002

162715

000010

004736

ECH IS SET AND,
DATA FIELD ERRORS ARE NOT ENABLED, OR
ECI IS SET, OR
DCK IS NOT SET.
MOV
o] ~(8P)
sASSUME ENABLED
BIT
#ECH, 5008
;ARE ERRORS ENABLED 2?7
BEQ
265%
dND £

265%:
270%:

BIT
BNE
BIT BNE

#ECI ,RMOF ]
265%

#DCK ,RMER1]
270%
HECH, (SP)
RMER1I,$BDDAT
(SP) +,$BDDAT
275%

BIC
MOV
BIC

BEQ
ADD

000000

MOvB
SUB
JSR

275%:

:45 EC1 SET 7?
YRS 2!

:1S DCK ALSO SET 22
IYES !!

:DISABLE ECH
;GET RECEIVED STATUS
;CLEAR ECH IF ENABLED

sBRANCH IF ECH IS OK

#4, (SP)

;MOVE

¥2.(SP)
PC,a(SP)+
#10, (SP)

sMOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

#31,a(SP)

SP TO USERS ERROR CALL

;WRITE ERROR NUMBER IN CALL

Qt.tt't"'...!."."t'

5 047306
6 0647314
g 047316

022737
103402
000137

000030

9
10 047322
11 047330
12 047332
13 047340
14 047342
15 047346
16 047354
17 047360
18 047364
19 047366

013737
001421
032737
001015
062716
112776
005037
162716
004736
162716

001336

001142

040000

001334

000240

013737
163737
006337

050374

000004
000015
001140
000002

000000

000010

001336
001412
001140

001140
001140

001414

001140

28 047422
29 047430
;? 047432

032737
001403
013737

000010

001344

001414

001140

32 047440
33 047446
34 047450
35 047456
36 047462
37 047470
38 047474
39 047476
2? 047502

023737
001416
013737
062716
112776
162716
004736
162716
000240

0201140

001340

001340
000004
000016
000002

001142

42
43 047504
44 047506

005046

013746

001412

012746
032737
001402

000400
000002

000002

52 047536

005266

000004

S4 047546

003373

161665

022426

000002
'

#SEARCH,515%
280%
355%

;REPORT ERROR IF

285%:

290%:

000000

;WAS DATA TRANSFERRED ?
;BR IF YES
JNO = EXIT

MCV
SUB
ASL

RMBA IS NOT CORRECT

RMWCI , $GDDAT
RMWCO, $GDDAT
$GDDAT

;GET WORD COUNT AT END OF TRANSFER AND
sSUBTRACT STARTING WORD COUNT.
o7

ADD

RMBAO, $GDDAT

.ADD STARTING BUS ADDRESS

BIT
BEG
MOV

#BAI ,RMCS21]
290%
RMBAO, $GDDAT

;WAS BUS ADDRESS INHIBIT (BAI) SET ??
;NO !!
;ADDRESS SHOULD NOT HAVE CHANGED

CMP
BEQ
MOV
ADD
MOVB
SUB
JSR
SUB
NOP

$GDDAT ,RMBA]
295%
RMBAI , $BDDAT
#4,(SP)
#16,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;BUS ADDRESS 0K??
2YES!)
;BAD DATA FOR TYPEOUT
sERROR NUMBER
sMOVE SP TG RETURN FOR ERROR
;REPORT UNEXPECTED ADDRESS
;RESTORE (SP)

; COMPUTE NUMBER OF SECTGRS TRANSFERRED FROM WORD COUNT
295%:
CLR
-(SP)
;NUMBER OF SECTORS TRANSFERRED

001336

163716

062716

22 067550

(OMMANDS

;REPORT ERROR IF RMWC NOT ZERO AND TRE IS ZERO
280%:
MOV
RMW(CI,$BDDAT
;WORD COUNT ZERO??
BEQ
285%
:YES
BIT
#TRE ,RMCS1]
; TRANSFER ERROR DETECTED??
BNE
285%
S¥YES!]
ADD
#4,(SP)
MOVB
#15,9(SP)
;ERROR NUMBER
CLR
$GDDAT
;GOOD DATA FOR TYPEOUT
SuB
#2,(SP)
sMOVE SP TO RETURN FOR ERROR
JSR
PC,a(SP)+
sREPORT WORD COUNT NOT ZERO
SUB
#10, (SP)
JRESTORE (SP)

000010

g? 047532

53 047542

TRANSFER

NOP

063737

47 047516
48 047522
49 047530

REMAINING ERROR CHECKS ONLY FOR DATA

CMP
BLO
JMP

050340

%9 047414

22 047512

THE

;;t'tttttttttt'tt't't"t"'fifittt'fi'tt'tt'l'Q't.ttt"t'ttt'tt'."

23 047374
24 047402
25 047410

SEQ 0195

;*PERFORM

N1
11:43:28 PAGE 2

::...tl'fi..ltt'*'t!".""..Qfi.'..'.'t"t"

S? 047372

4-APR-81

CZRMMBO RMOS5/372 FCTINL TST 1
MACRO v04.00
SECONDARY ERROR (HECK SUBROUT INE

MOV

"RMWCI,-(SP)

RMWCO, (SP)

;SUBTRACT STARTING WORD COUNT.

MOV
BIT
BEQ

#256.,-(SP)
#BIT1,RMCS10
300%

;ASSUME 256. WORDS PER SECTOR
JHEADER & DATA COMMAND ??
JNO !

SUB

001410

300%:

ADD

#2,(SP)

INC

4(SP)

BGT

300%

SUB

{MP

(SP) ,2(SP)

(SP)+,(SP)+

;GET WORD COUNT AT END OF

TRANSFER AND

;CHANGE TO 258. WORDS PER SECTOR
- INCREMENT SECTOR COUNT

;SUBTRACT ONE SECTOR'S WORTH
;CONTINUE IF NOT DONE

JRESTORE STACK

:COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM

CZRMMBO RMOS/3/2 FCTNL TST 1
MACRO v04.00
SECONDARY ERROR (ME(K SUBROUT INE

58
59 0647552

60 0647560
61 047566
62 047574

63 047602

013737

013737
013737
013737

000337

(01444

001416
001416
001332

050376

gg 047606

005237

050376

66 047612

042737

000377

67 047620
68 047624

000337
042737

050370
177400

;3 047632

062637

050372

023727

050372

047636

050366

050370
050372
050376

000040

;2 047650

162737

000766

000040

050372

77 C47662
78 047670
79 047672

023737
103407
005237

050370

050376

76 047652

80 047676
47704

7706

163737
000766

050370

050366

050376

85 047710

88 047722
89 047724

101407
032737

001466

002000

9001350

002000
001346
175777
001140

001140
001142
001142
001142

023727

001003

91 047734
92 047742
93 047750
94 047756
95 047764
9% 047766

(012737
013737
042737
023737
001413
062716

98 050000
99 050004
100 050006
;83 050012

162716
004736
162716
000240

112776

000004

000G17
000002

106 050026
107 050030

001031
023727

002000

001350

050366

001466

032737
101425

109 050040

005737

050370

111 050046

005737

050372

113 050054

032737

000010

112 050052

114 050062

#*C<TADMSK>,505%

520%

sGET TRACK ADDRESS TO LO BYTE AND
;SAVE

TRACKS.

TRACK ADDRESS BITS AND

SWAR
BIC

S05%
;SWAP TRACK ADDRESS TO LOw BYTE.
#*C<SADMSK>,510%
;SAVE SECTOR ADDRESS BITS

C(MP

510%,#32.

;SECTOR OVEFLOWED??

SUB

#32.,510%

:ADJUST SECTOR

CMP
BLO
INC

505%,520%
3208
5008

;TRACK OVERFLOWED??
IND!!
: INCREMENT CYLINDER

BLO
INC

(SP)+,510%

3158
505%

310%

520%,505%
3158

INO!!
*INCREMENT TRACK

*TRY AGAIN

*ADJUST TRACK
*TRY AGAIN

001012

001007
001413

CLR

$GDDAT

BLOS
BIT

325%
#IAE ,RMER11]

MOV
MOV
BIC
CMP
BEQ
ADD

#LBT ,$GDDAT
RMDSI,$BDDAT
#~CLBT,$BDDAT
$CDDAT, $BDDAT
2308
¥4, (SP)

SUB
JSR
SuB
NOP

#2.,(SP)
PC,a(SP)+
#10, (SP)

BNE

325%8:

MOVB

5008 ,#822.

325¢%

#17.3(SP)

;SET GOOD DATA FOR LBRT = 0

:SHOULD LBT BE SET??

sNO!!
;WAS IAE SET ??
;YES = LBT SHOULD NOT BE SET

sSET GOOD DATA FOR LRT =1
:BAD DATA FOR TYPEOUT
;1S LBT CORRECT??
SYES!!

:ERROR NUMBER

JMOVE SP TO RETURN FOR ERROR*
JREPORT LBT IS WRONG
;RESTORE (SP)

;REPORT ERROR IF ''ADOE’'' IS INCORRECT

001140

110 050044

BIC

CMP

000010

005037

108 050036

;s INCREMENT TO GET TOTL # OF

SUB
BR

000000

104 050014

105 050020

520%

;REPORT ERROR IF "LBT'' IS NOT CORRECT

050366

103

315%:

3208

001140

97 047772

INC

NOP

005037

90 047732

;STORE ORIGINAL TRACK
:STORE ORIGINAL SECTOR
“STORE LAST TRACK,

B8R

000240

86 047710

87 067714

3108:

;STORE ORIGINAL CYLINDER

RMDAO, 505$
RMDAO,510%
LSTRK .520%

ADD

050370

SEQ 0196

MOV
MOV
MOV

SWAB

050372

103406
005237

B 16

11:43:28 PAGE 23-1

;NUMBER OF SECTORS
MOV
RMDCO,500%

050370

72 047644
73 047646

4-APR-B1
h

330%8: =

CLR

BIT

BNE
CMP

3408
500%,#822.

505%

BLOS

BNE

050374

$GDDAT

#1AE ,RMER11]

BNE

BIT

BEQ

3408

SSET FOR AOE = 0

;WAS "‘IAE'" DETECTED??

$YES-""AOE'' SHOULD BE ZERO
:SHOULD AOE BE SET??

INO!!

*MAYRE

3358

SYES

335%

JYES !

3408

5108

#F2,515%

;WAS THIS READ OR WRITE CHE(K 77
!

CZRMMBU RMOS/3/2 FCINL

TST

SECONDARY ERROR (HECK SUBROUT INE

115 050064

116 050070

117 050072
118 050100
119 050104

140
141
142
143
144
145

146

—

~
Foy

o
n
n
N

WWWN
Co~

NN NN

050162

050232
050236
050244
050250
050252
050256

147
148 050260
149 050266
150 050274

W
W

Vo~

15
15
15
15
15
15
15
15
160 050340
161 050344
162 050350
163 050352
164 050356
165 050360
166 050364
167
168 050366
169 050370

170 050372

171

050374

001000
050370
000001
001350
176777

001140

000004
000020
000002

162716

000010

000240

032737
001062
013737
000337
113737
013737
023737
001413
062716

050366

176000

001370
001140

000004
000022
000002

000004

162716

000000
000000
000000
000000

000004

DATA TRANSFERRED ??

#*CAOE
. $BDDAT
$GDDAT
. $BDDAT
3458

sYES:!

#20.a(sP)

;ERROR NUMBER

MOV

ADD

MovB
SUB
JSR
SUB

RMER11,$BDDAT

¥4,

(SP)

#2,(SP)
PC.R(SP)+
#10,(SP)

*SET FOR AOE = 1

*CLEAR EXPECTED TRACK
= 1
*EXPECT SECTOR
*RAD DATA FOR TYPEOUT

;1S AOE CORRECTY??
s

sMOVE SP TO RETURN FOR ERROR

;REPORT AOE

;RESTORE

IS WRONG

(SP)

;REPORT ERROR IF RMDA IS NOT CORRECT
345%:
BIT
#1AE ,RMER1]
;WAS THERE AN IAE ERROR 7?
BNE
355%
sYES = DONT- CHECK RMDA,RMDC
MOV
505$, $GDDAT
;SETUP EXPECTED DISK ADDRESS
SGDDAT
SWAB
MOVB
510$,S$GDDAT
MOV
RMDA]
, SBDDAT
;SETUP RECEIVED DISK ADDRESS
CMP
$GDDAT, $BDDAT
: COMPARE EXPECTED & RECEIVED
BEQ
3508
;BRANCH IF EQUAL
ADD

000000

001140
001140
001142
001142

;ggg ALL

BIC
CMP
BEQ

NOP

001140
001142
001142

RMWC|

3408
#AOE
, $GDDAT
505%
#1.5108

#21.3(SP)

SUB

#10, (SP)

SUB
JSR

:REPORT ERROR

350%:

MOV

BIC

MoV

CMP

BEQ

ADD
MOVB
SuB
JSR

000000

SUB

355%:

360%:
365%:
500%:
505%:
510%:
515%:

#4, (SP)

MOVB

NOP

062716
000402

000207

340%:

000010

000004
000000

C 16

11:43:28 PAGE 23-2

BEQ
MOV
CLR
MOV

NOP

062716

105776
001403

335%:

000000

001140

00C010

013737
042737
013737
023737
001413
062716
112775
162716
004736
162716
000240

050372
001142
001142
001142

050370
001140
050372
001342
001140

162716

000240

001140

001350

000004
000021
000002

004736

002000

112776
162716

4-APR-81

SEQ 0197

001336

112776
162716

004736

)

8Lh¥n~nr*c£8nrvnwun)

12C 050112

005737
001410
012737
005037
012737
013737
042737
023737
001413
062716

MACRO v04.00

ADD
TSTB
BEQ
ADD

SUB

RTS

.WORD
.WORD
JWORD
WORD

#2,(SP)
PC.a(SP)+

;ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR

';REPORT BAD DISK ADDRESS
sRESTORE (SP)

IF RMDC IS INCORRECT
500$ , SGDDAT

#~C1777.8GDDAT:
RMDC
I , $8DDAT

;SETUP EXPECTED CYLINDER

355%

;SETUP RECEIVED CYLINDER
; COMPARE CYLINDERS
;BRANCH IF EQUAL

#10, (SP)

;ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
sREPORT BAD CYLINDER
;RESTORE (SP)

#4, (SP)
a(SP)

;MOVE (SP) TO ERRCR CALL
;WAS ERROR FOUND??

#4,

(SP)

;MOVE

(SP)

TO ERROR RETURN

#4,(SP)

sMOVE

(SP)

TO NO ERROR RETURN

$GDDAT, SBDDAT

#4, (SP)
#22,3(SP)
#2,(SP)
PC.R(SP)+

3608

3658

0.
- 0
0
0

s CYLINDER

. TRACK

;SECTOR
sFUNCTION CODE

CZRMMBO RMQS5/3/2 FCINL 1ST 1

SECONDARY ERROR (MECK SUBROUTINE

172 050376 000000

MACRO v04.00

5208:

D 16

4-APR=-81 11:43:28 PAGE 23-3

.WORD

SEQ 019%

:TOTAL # OF TRACKS = LAST TRACK +1

—

CZRMMBO RMOS/3/2 FCTINL
ERROR CHECK

SUBROUT INE

MACRO v04.00

O 000NN
NN =2 OO0 NN D NPY -

COMPOSITE

TST

COMPOSITE ERROR CHECK SUBROUTINE

sTHIS SUBROUTINE

CHECKS THE STORED CONTENTS OF

RMER1

AND

:AMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS

:MASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER

:THE

MASKS ARE

D et d =D

tCALL:

11¢))

JSR

-WORD

D ed B ed

;
;

;

.WORD

NOP
ERROR
JSR

277

APPLIED.

PC,CMPERRSTS
227
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

RETURN HERE IF NO MORE ERRORS

CHECKS

;NOTE:
BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD
*BE ZERO

050400
050406
050414
050420
050426

CMPERRSTS:

013737 001350
047637 000000
062716 000002
013737 001376
047637 000000

32 050434
33 050440
34 050444

062716
105076
162716

000006
000000
000004

37 050450
38 050454
39 050456
40 050464

005737
001420
013737
005037
062716

001176

E 16
11:43:28 PAGE 24
SEQ 0199

.SBTTL

21 050400

24
25
26
27
28

4-APR-81

050470

42 050474

43 050502

44 050506
45 050510

46 050514
47 050516
48
49

50
51 050516
52 050522
54 050524
55 050532
56 050536
57 050542

112776
162716

004736
162716
000240

001176
001140
000004
000066
000002

:MASK AND STORE THE CONTENTS OF RMER1
MOV

BIC

ADD
MOV
BIC

001200

ADD

CLRB
SUB

013737

001200
001140
000004
000067

;STORE RMER1 AT TEMP STORAGE

#2,(SP)
RMER2I,$TMP?
a(SP) ,$TMP?

*MOVE SP TO NEXT MASK
:STORE RMER2 AT TEMP STORAGE
*MASK RMER2

a(sSP) ,$TMP1

:MASK

RMER1

#6, (SP)

a(5P)
#4, (SP)

;MOVE

SP TO USER'S ERROR CALL

*CLEAR ERROR NUMBER
:LEAVE SP AT NO ERROR RETURN

;SEE IF THERE WERE ANY ERRORS IN RMER1,
ST

$TMP1

001142

MOV

$TMP1,$BDDAT

000000

ADD
MOVB

#4, (SP)
#66.,a(SP)

JSR
SUB
NOP

PC.a(SP)+
#10, (SP)

BEQ

CLR

SUB

5%:

001200

AND RMER2

RMER11,$TMP1

;CLEAR USER'S ERROR CALL

000010

005737
001420
005037
062716
112776

001176
001176

;SEE IF

$GDDAT

#2,(SP)

I.E.. $TMP1

;ANY ERRORS TO REPQRT??

INO !

:RECEIVED STATUS FOR TYPEOUT

*EXPECTED STATUS FOR TYPEOUT

:MOVE SP TO USER'S ERROR CALL
:CORRECTABLE DATA CHECK ERROR #

“MOVE SP TO RETURN FOR ERROR

*REPORT ERROR VIA USER
“MOVE SP BACK TO BRANCH

THERE ARE ANY ERRORS TO REPORT IN RMER2 ($TMP2)

$TMP2

001142

MOV

$TMP2,$BDDAT

000000

MOVB

ADD

#4,(SP)

BEQ
CLR

108

$GDDAT

#67.3(SP)

:ANY ERRORS

*NO!!

[N RMER2?

;RECEIVED STATUS FOR TYPEOUT

*EXPECTED STATUS FOR TYPEOUT

:MOVE

SP TO USER'S ERROR CALL

:WRITE ERROR NUMBER IN USER'S CALL

CZRMMBO RMOS5/3/2 FCTINL

COMPOSITE

ERROR CHECK SUBROUT INE

$8 050550
59 050554
60 050556
61 050562
g% 050564
64

€5 050564
66 050570

67 050574

68 050576
69 050602
70 050604
71

TST 1

050610

162716
004736
162716
000240
:

MACRO V04.00

000010
108:

000004
000000

062716
000402
162716

000004

000207

000004

11:43:28 PAGE 24-1
:

000002

062716
105776

001403

4-APR-81

JAUGMENT

;

SuB
JSR
SUB
NOP
THE

ADD
ISTB

BEQ

20%:
30%:

ADD
BR
SUB
RTS

#2,(SP)
PC,a(SP)+
#10, (SP)

RETURN ADDRESS

#4,(SP)
a(SP)

20%

#4, (SP)
30%
#4,(SP)
P

SEQ 0200

sMOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER
sMOVE SP TO NO ERROR RETURN
‘
ANY

ERROR

WAS

DETECTED

;MOVE SP TO USER'S ERROR CALL
;WAS THERE AN ERROR CAI.LED??

;NO!!

;YES = MOVE SP TO ERROR RETURN

sMOVE SP TO NO ERROR RLT'JRN
JRETURN TO USER

CZFMMBO RMOS5/3/2 FCTNL TST
DEVICE SELECT SUBROUT INE

MACRO v04.00

4-APR=-81

SEQ 0201

.SBTTL

3
g

¢
;

sCALL:

7.
‘8

DEVICE

(1)
#RE2

JSR
BR
NOP

:(4)

;% 050612

DEVSEL:

16 050616
}g 050622
19

20 (50626
050632
050636
050640
21 050642
22 050650
23 050656
%g 050662

062716

000000
000004
:

013746'
013746
010046
010146
012737
012737
013700
013701

050762
000300
001276
001464

111160

000010

CLRB
SuB

000000
000010

001176
001174

31
32
33
34
22

050706
050714
050716
050724
050732

032737
001407
062766
112776
000422

010000

001174

000004
000111

000010
000010

37 050734
38 050742
39 050744

032737
001021
062766

004000

001176

000004

000010

43
44 050762

45 050764
46 050772
47 051000
zg

50
51 051006
051006
051010
051012

022626
062766
112776

162766

012601
012600
012637

000112

000004
000113
000002

000006

MOV
MOV
MOV
MOV
MoV
MoV
MoV
MoV

000004
000006

016037
016037

112776
000407

a(SP)
#4, (SP)

RETURN IF NO ERROR
RETURN IF ERROR

ERROR DEF INED BY SUBROUTINE

;MOVE

SP TO USER'S ERROR

;CLEAR LOW ORDER BYTE OF
;MOVE SP BACK

CALL

:SAVE USER'S INFORMATION AND SETUP REGISTERS

000004
000006

26
27 050666
28 050672
%3 050700

40 050752
2; 050760

ERROR

PC,DEVSEL
27

;CLEAR USER'S ERROR CALL
ADD
#4,(SP)

000004

105076
162716

SELECT SUBROUTINE

THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE
TEST QUEUE.

14
15 050612

G 16

11:43:28 PAGE 25

;sPUSH ERRVEC ON STACK
; ;PUSH ERRVE(C+2 ON STACK
;;PUSH RO ON STACK
;;PUSH R1 ON STACK
;SETUP FOR BUS TIMEOUT

;RO = UNIBUS ADDRESS
;R1 POINTS TC DEVICE NUMBER

sSELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE
MOvB
(R1) ,RMCS2(R0)
;WRITE UNIT SELECT BITS
MOV.
RMCS1(RO) ,$TMP1 :GET
‘DVA'* STATUS
_Mov
RMCS2(RO) ,$TMPO ;G | "NED"" STATUS

10%:

000010

000010
000010
000010

ERRVEC,=(SP)
ERRVEC+2,~(SP)
RO,=-(SP)
R1,-(SP)
#20% ,ERRVEC
#PR6 ,ERRVEC+2
$BASE ,RO
TSTQUE .R]

BIT
BEQ
ADD
. Movs
' BR

#NED , $TMPO
10%
#4,10(SP)
#111,310(SP)
30%

;1S DEVICE NONEXISTENT ?
;NO!!
;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER
)

BIT
BNE
ADD

#DVA,$TMP1
35%
#4,10(SP) | o

;1S DEVICE AVAILABLE ?
<YES!!
sMOYE SP TO USERS ERROR CALL

MOvB
BR

#112,210(SR)
30%

:HANDLE BUS TIMEOUT
208%:
CMP
(SP)+, (SP)+
ADD
#4,10(SP)
MOVB
#113,210(SP)
30%:

SUB

#2,10(SP)

;WRITE ERRCGR NUMBER
’

;ADJUST SP
:MOVE SP TO USERS ERROR CALL
;WRITE BUS TIMEQUT ERROR NUMBER
sJADJUST RETURN TO 'NOP' PRECEDING
;THE ERROR CALL

:RESTORE USERS DATA AND RETURN TO ADDRESS ON STACK
35%:
MOV
(SP)+,R1
;;POP STACK INTO R1
MOV
(SP)+ RO
:.POP STACK INTO RO
MoV
(SP)+ ERRVE(+2
;;POP STACK INTO ERRVE(+2

‘

CIRMMBO RMOS5/372 FCINL TST 1
DEVICE SELECT SUBROUTINE
C51016

52 051022

(12637

MACRO v04.00

000004

000207

4-APR=-B1
MOV

RTS

H 16
11:43%:28 PAGE 25-1
|
(SP)+ ERRVEC

;;POP STA(K

ExIT

INTO ERRVE(

‘

}

‘)

SEFR STATUS CHE
-

TINL

TST

JBROUT INE

MACRO

v04.00

4-APR-81

VERIFIES

£Q

SEEK STiTUS CHECK SUBROUTINfi

sTHIS SUBROUTINE

THE RESULTS OF

|
SEEK

)

|
TESTS USING STATUS

N
=000 N

;THE SUBROUTINE RETURNS TD THE CALLING ROUTINE IF AN ERROR IS DETECTED
JAFTER HAVING LOADED THE APPROPRIATE,

;OF THE CALLING ROUTINE.

b e =Dt b

tCALL:

NPND W

SC1)

' ERROR

057024
051026
051032
051036

26 051042

RETURN

105076
162716

005037

HERE IF NO ERROR

ADD

#4, (SP)

SUB

#5,(5P)

CLRB

032737
001424
032737
001020

000010

:MOVE (SP) TO ERROR CALL |

ICLEAR ERROR NUMBER

:MOVE

(SP)

$GDDAT

RMER1I,$BDDAT
#4, (SP)

MOVB

#50,3(5P)

|TO NO ERROR RETURN

=1 AND 'DPE'' = 0

0&1140

001417

001333

123727
101410

;WAS PAR{TY ERROR DETE{TED?? |
INO! !

:WAS IT

:NOT SURE|!

)

‘l

:RECEIVED |STATUS
;
:MOVE STACK TO USER'S ERROR

“ERROR #50

#2,(SP)

:MOVE SP TO

s
BR

#10,(5P)
38

;RESTORE STACK
BE ZERO

#1AE , $GDDAT
#5K1,3008 '

CMP

000035

RMDCO, #822.

Vol

CMPB
BHI

RMDAO+1,LSTRK+1 ;GREATER THAM
LAST TRACK!?
3%
:YES = TRACK IS INVALID

(MPB
BLOS

RMDAO,#29.
2%

|
|

LAST CYL INDER |?

33
#Sk,300%

;SETUP FOR IAE = 1
:SETUP FOR SKI = 1

BHI
BHC

RETURN FOR ERROR

:GREATER THAN

;DETERMINE THE VALUE OF ''lAE'' STATUS BASED ON TRACK, SECTOR AND CYLI&DER
MOV
BIS

;EXPECTED .STATUS

;

DUE TO CONTROL BUS??

PC,a(SP)+

ééLSO' SET "'SKI'"
IF CYLINDER ADDRESS IS TOO LARGE.

052262
001466

123737

e —3

JSR

052262

001416

#DPE ,RMER21

MOV
ADD

000000

040000

101016

BIT

CLR

001142

101025

002000
040000
001444

#PAR,RMERTI

BNE

;CLEAR :;R R FLAGS

;REPOéTlREGISTER PARITY ERROR VIA USER'S ERROR CALL

NN
JIN

oo &o NONSON

R I

012737
052737
023727

I.E., 'PAR""

BIT

BEQ

001376

042737

VIV

OO
OO

2DO0O000

TV IV IV IV PP o

NS
W= OV~

- 001140
005037
013737 001350
062716
000004
112776
000050
162716
000002
004736
162716
000010
000437

001350

:TéST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING
051046
051054
051056
051064

|
|

| \

3008

;LOCAL REGISTERS,

a($P)

CLR

GO BACK TO SUB FOR MORE ERROR CHECKS |
RETURN
HERE IF NO MORE ERRORS
|

’

HERE TO REPORT AN ERROR

:CLEAR ugggs' ERROR CALL
000004
000000
000004
052262

[

ROR|NUMBER DEF INED BY SUB

PC.A(SP)+

;

IN THE ''ERROR'' TRAP

RETURN

SEKSTS: | |
000240
062716

233

JSR
222

ERROR N

SEEK STATU§ IS CHECKED AS FOILLOWS:

PC,SEKSTS

NOP

:
:

22
23
24
25

JSR

951024

30
31
32
33

;STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUVFEb.

PON) =2

= OV

116

11:43:28 PAGE

JSBTTL

LV A

CZRMMBO RMO5/3”

:YES - CYLINDER IS INVALID

;CLEAR SKI ERROR FLAG

;SECTOR > 29,
:BRIF NO

\
b

|
|

]

CZRMMBO RM0S5/3/2 FCTNL

SEEK

STATUS CHECK

58 051200

59 051206

60 051210
gg 051216

TST

SUBROUTINE

032737

001406

123727
101002

001140

65
66 051224
67 051232

013737
042737

001350
175777

69 051246

001004

70 051250
71 051256

023737

042737
000413

72 051260
73
76 051260

062716

76
77
78
79

162716
004736
162716
000240

75 051264

051272
G51276
G51300
051304

83
84
85 051306
86 051314
87 051316

051322

89
051330
90
051334
91 051342
92 051350

93 051352

112776

032737
001427
005037

062716
112776
032737
001403
112776

gg 051372

000240

99 051374

013737

051402
051410
051416
051424

105
106 051426
107 051434
108 051436

109 051442

110 051450

111
112
113
114

051454
051456

051462

051464

040000

000004

000051

000002

2%:

001142
001142

001142

162716

042737
013737
042737
001417

11: 43:28 PAGE

26-1

#FMT16,RMOFO

| 3%

CMPB
BHI

RMDAO,#31.
3$

CLR

I
I\

:18 BIT FORMAT 2

:YES = SECTOR xs INVALID FOR 18 BIT MUDE

“SECTOR > 31.
‘YES - secroExs INPALID

$GDDAT

;"'IAE"" SHOUL

CMP

$GDDAT.$BDDAT

BIC
BR

#SK1,300%
13

BNE

001140

052262

| DD

000000

001376

"movB .
SUB
JSR
SUB
NOP

000061

000000

001376

137777
052262
137777

:
:

‘BR IF NO

*CLEAR SKI FLAG
:GO CHECK NEXT: ERROR

#4,(SP)

|#51,a(sP)

#2,(SP)
PC,a(SP)+
#10, (SP)

‘

MOV

ADD
MOVB
BIT
BEQ

MOVB

51%:

SUR
JSR

SUB

NOP

001142

001142
001140
001140

52%:

MOV

BIC
MOV
BIC
BEQ

RMER21,$BDDAT

#4, (SP)
#60,3(SP)
AVV
.RMDSI
51%

#61,3(SP)

#2,(SP)"
PC.a(SP)+

:ERROR 51

,
N

112776

162716

004736
162776
000443

000004

000267

000002

000000

BIT
BNE
ADD

RMER21,$BDDAT

:RECEIVED STATUS

:CLEAR DONT CARES
:GET EXPECTED SKI
STATUS
:CLEAR DONT CARE
BRANCfl IF 0 EXPECTED

53§ :

*MOVE SP TO ERROR RETURN

PC.a(SP)+
#10, (SP)

;WAS SKI DETECTED 2?
SYES 1!

#2,(5P)

SR
UB

;

*WRITE ERROR NUMBER

*REPORT ERROR AND RE TURN
*MOVE SP TO NO'ERROR

‘GO TO NEXT ERROR CHECK
|

)

{

MOVE 'SP TO USERS ERROR CALL

#267.a(SP)

= 1

#4, (SP)

MOVB

SUB

000010

#SK1,$BDDAT
54%

:MOVE SP TG RETURN FOR ERROR
:REPORT ERROR VIA USER
.,

*RESTORE SR

|
L

;REPORT ERROR IF SKI xL NOT SET (IAE WAS ~oh DETECTED)
032737
040000
001142

001032
062716

|
|

MOVE SP TO USER'S ERROR
:ERROR 60 IF VWV
= 0
IF

| -RECEIVED STATUS

;ERROR 61

oo
o

*MOVE SF TO RETURN IFOR ERROR |
:REPORT INCORRECT IAE
.
;RESTORE (SP)
4

#10, (SP)

#~CSK1,$BDDAT
300%, $GDDAT
#~CSKI,$GDDAT
53%

IVC ERROR WITH VOLUME VALID ZERO
ERRONEOUS IVC ERROR, VOLUME VALID IS SET
BIT
#1VC,RMER2]
:IVC ERROR??
BEQ
52%
:
¥
CLR
$GDDAT
.
:EXPECTED STATUS

001142
000000
001346

000010

35%:
:REPORT INCORRECT "‘IAE'* STATUS VIA USER'S ERROR CALL

000004
000050
000100

000002

:CORRECT "'IAE!’ STATUS ?

35%

:REPORT ANY IVC ERROR AS
010000

.
|

: COMPARE EXPECTED AND RECIEVED '‘IAE'' STATUS
3%:
MOV
RMER11,$BDDAT
;IS IAE
OK??
&
BIC
#~CIAE,$BDDAT
:SAVE IAE BIT FOR COMPARE

000010

013737, 001376

162716
004736

100
101
102
}82

001140

BIT

BEQ

000037

94 051360
95 051364

9 051366

001442

001416

005037

4=APR-81

010000

gz 051220

68 051240

MACRO v04/.00

‘

|
!

1
:

CZRMMBC RMO5/3/2 FCTNL TST 1
SEEK STATUS (HECK SUBROUT INE

MACRO V04.00

117 051464

118
119
120
121

032737

051472
051474
051500
051506

040000

001413
062716
112776
162716

'
000004
000054
000002

184 051520

162716

000240

000010

126
127 051522

032737

000200

122 051512

004736

no
oo

123 051514

051530
129 051532
130 051536
131 051544

001420
005037
013737
062716

051550

134 051562
135 051564

000240

138
139

140 051572
141

142
143
144
145
146
147
148
149
150
151

032737

051600

051602
051606
051614
051620
051626
051634
051636
051644
051650
051652

152 051656

154
155 051660
156 051664
157 051670
158 051674
159 051676

161

162 051702

163 051710
164 051712
165 051720

166 051722

167 051730
168 051736
169 051744

170 051750

171 051756

000010

020000

001427

005037
013737
062716
112776
032737
001403
112776
162716
004736
162716

000240

001140
001350
000004
000052
010000
'000053
000002

BIT

548
#4, (SP)
#sk.acsPy
#2,(SP)
|

SUB

#10,(SP)

JSR

BEQ
CLR
MOV
ADD

000000

PC,a(SP)+

MOVB
SUB

#55,3(SP)
#2, (SP)

PC,a(SP)+
#10, (SP)

NOP

001142
000000
001346

7%:

000010

BIT

*RESTORE

BEQ

932737

001030
032737
001024

013737

052737
013737
062716

112776

162716

001346

BIC
CMP
BNE
JMP

052232

0013¢6

020000

001350

001346

001140

010000
001346
000004

000067

000002

;EXPECTED STATUS
;RECEIVED STATUS
o

001140
001142
f

000000
]

.- 0. OR

INO!!

OPI

BIT

:EXPECTED STATUS
|
:RECEIVED STATUS
f
:MOVE (SP) TO ERROR
Co
:LOAD ERROR NUMBER
N
:WAS MEDIUM ON LINE?? |
'
INO!!
a
=
YES - CHANGE ERROR NUMBER
IMOVE:SP TO RETURN FOR ERROR
:REPORT 'OPI'' ERROR
|
RESTORE (SP)
.
|
|

108
WOPILRMER1]
10$

:NO - MOL ISISET
:WAS OPI SET
:YES - DONT_REPORT [ERROR

BIS
MOV
ADD

#MOL , $GDDAT
RMDSI,$BDDAT
#4, (SP)

L
;RECEIVED STATUS

MOV

MOVB

SUB~

RMDSI,$GDDAT

#62,a(SP)

#2,(SP)

.
1
I

I
’

I
3

GEXPECTED STATUS

AIRNE SF 10 AT FOR SANOR

? l
B

|
| |
|
L]

1 l',

;

[]
|

|
|

|
I

.
i1

;1S MOL RESET??

BNE
BIT
BNE

|
|

| |

A~C<ATA!PIP!MOL!VV
(SP)
>,
#ATA'MOL 'VV, (SP) +
|
9%
:ERROR IN RMDS
148
:RMDS {S OK

AMOL,RMDSI

;REPORT ERROR IF MOL = 0 AND OP] = 0

JERROR 455
*MOVE SP TO RETURN FOR ERROR

:*'OPI"* ERROR??

$GDDAT
RMER11,$BDDAT
#4, (SP)
#52,3(SP)
#MOL , RMDS |
7%
#53,8(SP)
|
#2. (SP)
|
PC,a(SP)+
#10, (SP)
|

'«

1"
.
|
|

(5P

;SEE IF "PIP"" = 0, AND “ATA'', "MOL'' AND "WV''
= 1
B$:
MOV
RMDSI,-(SP)

047677
110100

010000

SEEK ERROR

013746

|
"FEO 0205

:REPORT ERROR VA USER
:RESTORE SP |

CLR
MOV
ADD
MOVE
IT
BEQ
MOVB
SUB
JSR
SUB

|
|

|
;
;WAS THERE DVC DURING SEEK??

#OP1 ,RMER1]

NOP

042716
022726
001002
000137

IND = SKI IS OK
MOVE (SP) TO ERROR
ILOAD ERROR NUMBER
MOVE SP TO RETURN
FOR ERROR

:REPORT ANY "'OPI'' ERROR AS OP] WITHMOL
;BECAUSE ON CYLINDER LATCH DIDN'T RESET

&%:

;15 SKI SET 22|

*REPORT

$GDDAT |
RMERZ2I ,$BDDAT
#4, (SP)

JSR
suB

000000

;REPORT ANY DEVICE CHECK
54%:
BIT
4DVC, RMER ]

001142

001350

#SKI,$BDDAT

BEQ
ADD
MOve
SUB

NOP
001376

:REPORT ERROR IF SKI IS SET

000000

000055
000002

004736
162716

136 051570

001142

001140
001376
000004

112776
162716

138 051556

K 16

11:43:28 PAGE 26-2
‘

115

116

4-APR-81

]
|

]

[

CZRMMBO RMOS5/3/2 FCTINL TST 1
SEEK STATUS (HECK SUBROUT INE
172 051762
173 051764

004736

032737
001430
032737

020000

001346

040000

001376

013737
042737
013737
062716
112776
162716

004736

001346

020000
001346
000004
000056
000002

052062
052070
052072
052100
196 052106
197 052114
198 052120
199 052126
200 052132

032737
001024
013737
052737
013737
062716

100000

001346

001140
001140
001142

201
202 052134
203 052140
204
205
206 052142

207 052150

)

o VNN
W —

VLV NT,N]
NWS LASLSTNTNL

208 052152
209 052160
210 052162
052170
052176
052204
052210
052216
052222
052224
052230
052232

004736

032737

000100

001346

032737
001024
013737
052737
013737
062716

010000

001376

001346
000100
001346
000004
000064
000002

001140
001140

004736

162716
000240

221
552 052232 000240
223 052234 062716
224 052240| 105776
025 052044 001403
226 052246 062716
207 052252 000402
228

BIT

IFf

;REPORT

;
‘

'PIP"I§ STIL

#P1P,RMDS]

BIC

“NO!

1%
RMDS
1, $GDDAT

; YES-DONT REPORT PIP
JEXPECTED STATUS

#4, (SP)
#56.3(SP)
#2,(SP)

SUB
NOP

#10, (SP)

Recehvso STATUS

;

:
:

PC,a(SP)+

(SP) TO|ERROR'
gRROR N%MBER
vs P TO RETURN FOR ERROR

BIT

;RESTORE

#ATA MDS I

BNE
MOV

RMDSI $GDDAT

SYES!!
:EXPECTED srArqs

RMDSI,$BDDAT

:RECEIVED STATUS

#ATA'
' DPR!DRY
MOL
.
$GDDAT

ADD

#4,(SP)

SUB

#2,(SP)

MOVB

iMOVE

#57,-3(SP)

PC.a(SP)+

SUB

#10,(SP)

NOP

(SP)

001132
000000

BIT

(SP)

TO ERROR

‘t'

:LOAD ERROR NUMBER

:REPORT ATTENTION NOT SE IDURING

:SEEK TEST

;RESTORE (SP

#VV,RMDS
14$

;IS VW = 0 22
*NO! !

RMDSI,$GDDAT

*EXPECTED STATUS

#1VC,RMER2]
148
2

MoV
ADD

3%35?623$£y1
I:RECELVED STATUS
. (SP)

SUB
JSR

#2,(SP)
.
PC.a(SP)+

SUB

NOP

.
|

1S ivC ALSO 0 29
:NO = IVC 1S SET
.

p 4,a(SP)

TSTB

BEQ

ggo

o
o

5RROR #64,

|
|

OVE SP ro RETURN FOR ERROR
|

;MOVE

(SP)

;

‘

;WAS ERROR CALLED??

#4,(SP)

MOVE TO ERROR RETURN

TO ERROR CALL

a(SP)
16%

.
l

15%

‘
.

b
|

#10, (SP)

#4,(SP) |

|
!

;MODIFY ng RE*URN ADDRESS If AN ERROR WAS DETECTED
ADD

*MOVE SP TO RETURN & ROR

er
gfis

MOVB

148

000004

;REPORT ERROR IF VOLUME VALID IS RES T‘AND IVC IS zsno

13%:

000010

000000

[

;WAS YATA'' SET 22

BIS

MOV

000004

; EPOfiq "PIP'' SET AFTER SEEK

:REPORT AN ERROR IF "ATA'’ IS NOT SET
11%:

‘

SURS sl sET7?

RMDS
, $BDDAT

' ADD
MOVB
SUB

|
!

SET AND SKI NOT SET

#P1P, $BDDAT

MOV

ERROR VIA USER

;1S "PIP" STILL SET??

#SK1,RMER2]

JSR

000010

112776
162716

BEG
BNE
MOV

000000

162716
000240

001030

BIT

JSR

000010

112776
162716

108 :

000000

162716

110600

C,aA(SP)+

:REPORT AN ERROR

001140
001142
001142

000240

001346
00004
000057
000002

! ;16§(SP)

SUB
NOP

189 052060

190

000010

000240

L 16
11:43:28 PAG E 26-3

4-APR-81
JSR

162716

001024

188 052054

MACRO v04.00

NO!!

;

£ RMMBO WS/S/F FCINL

SEEx
!

|
}

STATUS (HECK

gg 052254

052260

232 052262

TST 1

SUBROUT INE

1627‘6

207

0G0O000

000C04

HACLO v04.00
15%:

{

4L=-APR-81

SUB

M 16
11:43:28 PAGE 26-4
- #6,(SP)

16%:

RTS

300%:

.WORD

.;MOVE (SP) TO NO ERROR RETURN
*RETURN

;ERROR FLAGS

L1}

LA &

SEO'OJO?

I‘*l'

i '|‘
|

'|‘1

|
|

']'[l

[d
R
S-8
}

o
V

R
|

MACRO v04.00

4-APR-B1

.SBTTL

N1 6
11:43:28 PAG
E 27

‘

§EQ 0208

CONTROLLER CLEAR SUBROUTINE

;THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAWIERS.
.AND DRIVES, THEN SELECTS THE DRIVE.
,CALL

052264

CNTCLR:

000004
000006

022626
062766
112776

3% gmvnbb
oonNo

000412

vwnuyianianiaiaa

rororornon

052340

LS
LS LN LN NT Noo
WWWWWWW

jelelelolelelololole B ololelolelels)

———
e

Y]
o

VNS WN=C

0NN

NNV
=
s
o

N—=O0
NP NS W -

( ZRMMBO RMOS5/3/72 FCINL
C ONTROLLER CLEAR SUBROU

374
376
400

000300
001276
000040
001464
000010

000004

162766

000007
000002

012637
012637

000006
000004

012601

012600
000207

000004
000006

000010

000010
000010
000010

10%:

JSR
B8R
NOP
ERROR
213

RETURN HERE

NO ERROR FOUND

RETURN HERE IF ANY ERROR
SUB DEFINES ERROR N

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOVB
BR

cMP

ADD

20%:

PC,CNTCLR
3 2 4

MOVB
SuB
MOV
MOV

MOV

MOV
RTS

RO,=(SP)
R1,-(SP)
ERRVEC,=(SP)

ERRVEC+2,-(SP)

#108 ,ERRVEC
#PR6,ERRVEC+2

;:PUSH RO ON STACK

;PUSH R1 ON STACK

'..PUSH ERRVEC ON STACK

::PUSH ERRVEC+2 ON STA(K
;SETUP FOR BUS TIMEOUT

] .

$BASE ,RO
#CLR,RMCS2(RO)
TSTQUE ,R1
(R1) ,RMCS2(R0)

;RO = UNIBUS ADDRESS
;CLEAR MASSBUS
;GET DEVICE UNDE
sSELECT DEVICE

fi TEST

(SP)+,(SP)+
#4,10(SP)
#7,210(SP)
#2,10(SP)

;ADJUST STACK

'S ERROR!CALL

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

:.POP STACK INTO ERRVE(+2
:sPOP STACK INTO ERRVEC
::POP STACK INTO R1
;;POP STACK INTO RO

20%

(SP)+,R0O
PC

;MOVE SP TO USE
;WRITE THE ERRO NUMBER
sADJUST SP TO RETURN TO ERROR

|
1

MACRO v04.00

O 000 g NS Nl -

(JRMMBO RMOS/3/2 FCTINL TST
TATUS (HECK SUBROUTINES

4-AFR-B1

-SBTTL

STATUS (HECK SUBROUTINES

.SBTTL

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

'.'l..'..lt"Q.‘t"tt'.tt"".'t.'."'Q."t'.'.t...'tttfi""'..Q.Q

;THIS SUBROUTINE

SUBSYSTEM IS INITIALIZED BASED ON
THIS SUBROUTINE SHOULD ONLY BE

;STATUS STORED IN THE GET BUFFER.
;USED FOLLOWING A CONTROLLER CLEAR OPERATION, I.E., WRITING A 1

IN BIT

;STATUS PERTINENT 70 THE DEVICE

THE

s
D o

NP NN

b
- el

:CALL:

(1)

)

51 052536
52
53 052540
54 052546
55 052550
56 052552
57 052556

THE

IS NOT CHECKED.

IN PARTICULAR,

ATA,ERR,PIP,MOL
,WRL ,LBT,PGM,VV,0M,UNS,SKI ,DVC(

= OV

50 052532

THAT

sFOLLOWING STATUS BITS ARE NOT CHECKED:

JSR

PC,CLRSTS

ERROR
JSR

PC,a(SP)+

:
;

BR
NOP

4 34

:
:

40 052470
41 052474
42
43 052476
44 052502
45 052510
46 052512
47 052516
48 052524
49 052530

VERIFIES

;5 OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION.

LS
V1, VT, —

24 052402
25
26
27 052402
28 052406
29 052412
30
31 052416
32 052424
33 052432
34 052440
35 052446
36 052450
37 052454
38 052462
39 052466

1
B
11:43:¢28 PAGE 28

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 (HECKS
RETURN HERE IF NO MORE ERRORS

CLRSTS:

062716
105076
162716

000004
000000
000004

013737
042737
012737
023737
001413
062716

001334

112776
162716

004736

100000

000004
000126
000002

000010

005037
013737
001413
062716
112776
162716
004736

001140
001340
000004
000127
000002

162716

000010

013737
010146
005046
013701

001344

111116

ADD
#4, (SP)
;MOVE SP TO ERROR
CLRB
a(SP)
;CLEAR ERROR NUMBER
#4, (SP)
SUB
:MOVE SP BACK TO NO ERROR
;REPORT ERROR IF RMCS1 NOT INITIALIZED
$:
MOV
RMCS11, $BDDAT
;VERIFY RMCS1
BIC
#SC,$BDDAT
s IGNORE SPECIAL CONDITION
MOV
#DVA'RDY
, SGDDAT JEXPECT DVA & RDY
CMP
$GDDAT
, SBDDAT
;COMPARE EXPECTED, RECEIVED
BEQ
5%
;BRANCH IF EQUAL
ADD
#4,(SP)
;MOVE SP TO USER'S ERROR CALL

004200
001140

162716
000240

000240

:CLEAR USER'S ERROR CALL

001464

MOVB
SUB

#126.a(SP)
#2.(SP)

SUB

#10, (SP)

JSR

001142

PC.a(SP)+

NOP
:REPORT ERROR IF RMBA NOT RESET
$:
CLR
$GDDAT
;VERIFY RMBA IS ZERO

MOV
BEQ
ADD

000000

RMBA]
, $BDDAT
7%
#4, (SP)

MOVB
SUB

#127.3(SP)
#2,(SP)

SUB

#10, (SP)

MoV

RMCS21, $BDDAT

JSR

001142

;WITE ERROR NUMBER IN CALL
;MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;MOVE SP BACK TO NO ERRCR

PC.a(SP)+

NOP
:REPORT ERROR IF RMCS2 NOT

7%:

MOV
CLR
MOV
MOVB

R1,=(SP)
-(5P)
TSTQUE ,R1
(R1),(5P)

;BRANCH IF ZERO

;MOVE SP TO USER'S ERROR CALL

sWITE ERROR NUMBER IN CALL
;MOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
;MOVE SP BACK TO NO ERROR

INITIALIZED

:VERIFY RM(CS2

::PUSH R1

ON STACK

JEXPECT IR & UNIT NUMBER
;R1 = ADDRESS OF TEST QUE

JRMMBO RMOS5/3/72 FCINL TST 1

MACRO v04.00

ONTROLLER CLEAR STATUS CHECK SUBROUTINE

58 052560
59 052564

052716
012637
012601
023737
001413
062716

007140

001142

112776
162716

000004
000130
000002

000000

68 052626

162716

000240

000010

70 052630
71 052634
72 052642
73 052650
7% 052652
75 052656
76 052664
77 052670
78 052672
79 052676
80
81 052700
82 052706
83 052714
84 052722
85 052730
86 052732
7 052736
88 152744
89 052750
90 05275¢

005037
013737
042737
001413
062716

001140
001350
040000

004736

91 052756
%
93 052760

052764
95 052772
%6 052774
97

162716

000010

004736
000240

013737
042737
012737
023737
001413
062716

53044

53054

001360
000046
000010
001140

112776
162716

000004
000133
000002

162716

000010

005037
013737
001413
062716

001140
001402

004736
000240

112776
162716

000004
000135
000002

162716

000010

013737
042737
012737
023737

001374

000240

SAN—=O

B
e
e
I
e
e

b —

e
et

B
e d
A

112776
162716

000004
000131
000002

004736

[eolelelelelelele] o

38N RQR28
o

000100
01140

001413
062716
112776
162716
004736
162716

000240

140000

011777
001140
000004
000136
000002
000010

4-APR-81
BIS
MOV
MOV

#IR,(SP)
(SPJ+,$GDDAT
(SP)+.R1

::POP STACK INTO R1

ADD

#4,

“MOVE SP TO USER'S ERROR CALL

SUB

#2,(SP)

CMP
BEQ

MOVB
JSR
332

001142

:COMPARE EXPECTED & RECEIVED
“BRANCH IF EQUAL

(SP)

#130,a(SP)

‘WITE ERROR NUMBER [N CALL

*MOVE SP TO RETURN FOR ERROR

PC.a(SP)+
#10, (SP)

*REPORT ERROR VIA USER
:MOVE SP BACK TO NO ERROR

MOV

RMER1I ,$BDDAT

BEQ

13%

BIC

000000

#UNS , SBDDAT

; IGNORE UNSAFE

ADD

#4,

*MOVE SP TO USER'S ERROR CALL

SuB
JSR
SuB

#2,(SP)
PC,a(SP)+
#10, (SP)

MOVB
NOP

001142
007140
001142

$GDDAT,$BDDAT
9%

:REPORT ERROR IF RMER1 NOT RESET-IGNORE UNS
08
CLR
$GDDAT
:VERIFY RMER1

001142

[
11:43:28 PAGE 28-1

*BRANCH IF ZERO

(SP)

#131,3(SP)

*WITE ERROR NUMBER IN CALL

sMOVE SP 7O RETURN FOR ERROR
;JREPORT ERROR VIA USER
;MOVE SP BACK TO NO ERROR

:REPORT ERROR IF RMMR1 NOT INITIALIZED-IGNORE WC.LS,LST
13%:
MoV
RMMR11,$BDDAT
;VERIFY RMMR
BIC
MIC'LSTLST,SBDDAT
; IGNORE WORD CLOCK, SCT, TRK

000000

MOV
CMP
BEQ
ADD

#MWD , SGDDAT
$GDDAT,$BDDAT
17
#4, (SP)

SuB

#2,(SP)

332

#10, (SP)

MOVB
JSR

#133,a(SP)

;EXPECT WRITE DATA BIT
: COMPARE EXPECTED AND RECEIVED
*BRANCH IF 0
*MOVE SP TO USER'S ERROR CALL

*WITE ERROR NUMBER IN CALL

*MOVE SP TO RETURN FOR ERROR

PC.a(SP)+

*REPORT ERROR VIA USER

*MOVE SP BACK TO NO ERROR

:REPORT AN ERROR IF RMEC2 IS NOT RESET
001142

17$:

000000

SEX

CLR

7g§c21.seooAr

$GDDAT

;EXPECT ZEROS

ADD

#4,

(SP)

:MOVE SP TO USER'S ERROR CALL

SuB
JSR

#2,(SP)
PC.a(SP)+

“MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

MOVB
sgg

001142
001142

001140
001142

000000

#135.3(sP)

79%:

*WITE ERROR NUMBER IN CALL

#10, (SP)

;REPORT ERROR IF RMMR2 NOT

*VERIFY RMEC2 = 0

*MOVE SP BACK TO NO ERROR
INITIALIZED-IGNORE ROA,RQB

mMov
BIC

RMMR2I,$BDDAT
;VERIFY RMMR?2
#ROA 'RQB, $BDDAT

CMP
BEQ

$GDDAT, $BDDAT
21%

MOV

#TSTi1777,$GDDAT

:EXPECT TEST BIT ON

ADD

#4 , (SP)

:MOVE SP TO USER'S ERROR CALL

SUB
JSR

#2,(SP)
PC.a(SP)+

sMOVE SP TO RETURN FOR ERROR

MOVB

SUB

NOP

#136,a(SP)

#10, (5P)

*WITE ERROR NUMBER IN CALL
sREPORT ERROR VIA USER

;MOVE SP BACK TO NO ERROR

:REPORT ERROR If RMER2 NOT RESE1-IGNORE SKI,DV(

JRMMBO RMOS/3/2 FCINL TST 1

MACRO V04.00

e T

S8
WWW
S AN-0V

J\SON Obf\aggbmbg n

~
ol
JPON
AR~
SO o

AN (%]
(NN
NN NN NNv
VNN
INNININ

leololosloBololelelolelolele) o

S
Y S e

—

AN N W NI NI PN N PO PONI NI N — — —a s
EH¥ W
\Nflu-‘CMOOD\“)\htfluho—‘Choon~co~d
N

OUNTROLLER CLEAR STATUS (HECK SUBROUTINE

053224
053230
053232
053236
053242
053244
053250
053252
053256
053260

005037
013737
042737
001413
062716
112776
162716

004736
162716

000240

013737
042737
012737
023737
001413
062716

001140

001376
040200
000004

000174

000002
000010

001346

177177
000600
001140

112776
162716

000004
000134
000002

162716

000010

004736
000240
062716
105776
001403
062716
000402
162716
000240
000207

000004
000000

001142
001142
000000

21%:

CLR

MOV

BIC
BEQ

ADD
MOvB

SUB
JSR
SuB
NOP
;REPORT ERROR
MOV
2158:
BIC
MOV

22%:

000004
000004

4-APR-B1

CMP
BEQ
ADD
MOVB
SuB
JSR
SuB
NOP
ADD
TSTB
BEQ
ADD

23%:
24%:

BR
SUB
NOP
RTS

1
D
11:43:¢28 PAGE 28-2
$GDDAT
RMERZ] ,$BDDAT

JEXPECT ALL ZEROS
;VERIFY RMERZ

215%

SBRANCH IF OTHER BITS 0

#174,3(5P)

:WITE ERROR NUMBER IN CALL

#SK]:DVC,$BDDAT

#4,

(SP)

#2, (SP)
PC.a(SP)+

#10, (SP)

;IGNORE

*MOVE

DEVICE

ERRORS

SP TO USER'S ERROR CALL

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

*MOVE SP BACK TO NO ERROR

IF RMDS NOT INITIALIZED
RMDSI, $BDDAT
;TEST DRIVE STATUS REGISTER
#*C<DRY!DPR>, $BDDAT
#DPR!DRY ,$GDDAT ;EXPECTED DRIVE

$GDDAT,$BDDAT

22%

#4,

(SP)

#134,2(SP)

#2, (SP)
PC.a(SP)+
#10, (SP)

STATUS

: COMPARE EXPECTED & RECEIVED

*BRANCH IF EQUAL
*MOVE

SP TO USER'S ERROR CALL

*WRITE ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR TO USER
*MOVE SP BACK TO NO ERROR

#4, (SP)
A(sP)

:MOVE SP TO ERROR CALL
:WAS AN ERROE DETECTED??

52i<sp>

*YES = MOVE

23%

#4, (SP)
PC

JNO!!

;MOVE

TO ERROR RETURN

SP TO NO ERROR RETURN

JAMMB0 RMOS/3/2 FCTINL TST 1
PACe ALKNOWLEDGE STATUS (HE(CK

MACRO v04.00

oniy

.SBTTL
sTHIS

YO
NN —= OO0

H
g

SR
e

SUBROUTINE

sCALL:
(D)

053262

CHECKS

THE

RESULTS OF

A PACK

ACKNOWLEDGE

032737

000100

001346

001140
001140
001142

162716
000240

000010

053356
053364
39 053366
053374

032737
001024
013737
052737
013737
062716
112776

010000

001346

001346
010000
001346
000004
000041
000002

001140
001140
001142

NS AWNN
NN

053410
053414

L4 053422

NOP
ERROR
JSR
1

PC,ACKSTS

227

RETURN HERE IF NO ERROR

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB
GO BACK TC SUB FOR MORE ERROR (HE(KS
RETURN HERE IF NO MORE ERRORS

PC,a(SP)+

;CLEAR USER'S ERROR CALL

053276
053304
053306
053314
053322
053330
053334
30 053342
31 053346
32 053350
33 053354
34 053356

41 053402

JSR

ERRORS ARE

ACKSTS:

0C0004

PACK ACKNOWLEDGE STATUS (HECK

JREPORTED TO THE USER VIA THE USER'S ERROR CALL.

062716
105076
162716

1
E
11:43:¢28 PAGE 29

;COMMAND USING THE STATUS STORED IN THE GET BUFFER.

05326¢
053266
053272

VIS LS TN N T, N1,V V)A L

4&-APR-81

001024
013737

052737
013737
062716
112776
162716

004736

162716

000004

ADD

000000

000100

001346
000004
000155
000002

CLRB
SUB

:REPORT AN ERROR

MOVB

#155.a(SP)

‘WRITE NUMBER IN ERROR CALL

suB

053426
053430
053434
053436

004736
162716
000240

51 053436
52 053444

032737
001570

060007

001350

55 053446
56 053454
57.053456

032737
001424
013737

040000

001350

001142

IF ''W'' IS 0

;1S VOLUME VALID SET??
TYES!!
:EXPECTED STATUS

JSR

NOP

RMDS],$BDDAT
#4, (SP)

:RECEIVED STATUS
*MOVE SP TO ERROR CALL

#2, (SP)

*MOVE SP TO RETURN FOR ERROR

PC.R(SP)+

"REPORT

#10, (SP)

BIT
BNE
MOV
BIS
MOV
ADD
MOVB
SUB
JSR

SUB

000010
2%:

NOP

THE ERROR

*MOVE SP BACK TO BRANCH
:

:REPORT AN ERROR IF ‘MOL'' IS 0

000000

SP TO ERROR CALL

*CLEAR LOW ORDER BYTE
*MOVE SP BACK

#VV ,RMDS |
1$
RMDSI,$GDDAT
#VV,$GDDAT

SUB

13:

:MOVE

a(5P)
#4, (5P)

BIT
BNE
MOV
BIS

MOV
ADD

000000

#4, (SP)

#MOL , RMDS I
2%
RMDSI ,$GDDAT
#MOL
, SGDDAT
RMDS],$BDDAT
#4, (SP)
#41,a(SP)
#2,(SP)
PC.a(SP)+

#10, (SP)

;1S MOL SET??
TYES!!
:EXPECTED STATUS
;RECEIVED STATUS
*MOVE SP TO ERROR CALL
*WRITE NUMBER OF ERROR IN CALL
“MOVE SP TO RETURN FOR ERROR
*REPORT TH ERROR

‘MOVE SP TO BRANCH

:SEE IF "UNS'',"'OPI'',"RMR'',""ILR'’, OR "'ILF'' IS SET
BIT
#UNS'OP1'RMR'ILR'
ILF ,RMER1]
7%
BEC
;REPORT AN ERROR IF

BIT

BEQ
MOV

'UNS'' IS SET

#UNS ,RMER1]

3$
RMER11,$BDDAT

:WAS UNS SET??

*NO!!
:RECEIVED STATUS

JRMMBO RMOS5/3/2 FCTINL

TST 1
PACK ACKNOWLEDGE STATUS CHECK

58 053464
59 053472
60 053500
61 053504
62 053512

63 053516

66 053520
65 053524
053526

013737
042737
062716
112776
162716

001350
(40000
000004
000042
000002

162716

000010

004736

000240

MACRO v04.00
001140
001140

162716
000240

000010

05360¢
053614
053616
053624
053632
053640
053644
053652
053656
053660
053664
053666

032737
001424
013737
013737
042737
062716
112776

000004

001350
001142
001140
001140

162716

001350
001350
000004
000004
000044
000002

162716

000G10

053666
053674

032737
001424
013737

99 053676

053704
053712
053720
053724
053732
053736

106 053740
107 053744
108 053746

004736

000240

013737

042737
062716
112776
162716
004736
162716
000240

032737
001424
013737
013737

ADD
MOVB

032737
001424
013737
013737
042737
062716
004736

MOV

BIC

000000

053526
053534
71 053536
053544
053552
053560
053564
053572
053576
053600
053604
053606

11277€
162716

4-APR-81

020000

001350

001350
001350
020000
000004
000043
000002

001142
001140
001140

JREPORT

MOV

4%:

BEQ
MOV
MOV
BIC

ADD

5%:

001350
001350
000002
000004
000045
000002

001142
001140
001140

BIT
BEQ

MOV
MOV

BIC

ADD
MovB

000010
6%:

001350

001350
001350

001142
001140

MOvB
SuB
JSR
SuB
NOP

;REPORT ANY

000000

000001

BIC
ADD
MOVB
SuB
JSR
SuB
NOP

;REPORT ANY
BIT

000000

001350

ANY OPI

BIT

BEQ
MOV

000000

000002

SuB
JSR
SUB
NGCP

SuB
JSR
SuUB
NOP

;REPORT ANY

BIT
BEQ

MoV
MOV

11:43:¢28 PAGE 29-1
RMER11,$GDDAT
#UNS, $GDDAT
#4, (SP)

JEXPECTED STATUS

#2,(SP)
PC,a(SP)+
#10, (SP)

;MOVE SP TO RETURN FOR ERRCR

#42,(SP)

ERROR

sMOVE SP TO ERROR CALL
JWRITE NUMBER OF
JREPORT

THE

ERROR

ERROR VIA USER

sMOVE SP TO NO ERROR RETURN

#OPI ,RMER1]

;WAS OP]

#OP] ,$GDDAT
#4, (SP)

;JMOVE SP TO ERROR CALL

48
RMER11,$BDDAT
RMER11 ,$GDDAT

#43,2(SP)

#2,(SP)
PC.a(SP)+
#10, (SP)

SET

JNO!!
JRECEIVED STATUS
JEXPECTED STATUS
;sWRITE NUMBER OF
;REPORT

THE

ERROR VIA USER

RMER11,$BDDAT
RMER11,$GDDAT

JEXPECTED STATUS

ILR ERROR
#ILR,RMER1I

IN CALL

;MOVE 5P TO NO ERROR RETURN

;WAS RMR SET??

#RMR
, $GDDAT
#4,(SP)
#44 ,2(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

ERROR

sMOVE SP TO RETURN FOR ERROR

ERROR
#RMR ,RMER1 ]

IN CALL

JNO!!
JRECEIVED STATUS
;MOVE SP TO ERROR CALL
;WRITE NUMBER CF

ERROR

IN CALL

;MOVE SP TO RETURN FOR ERROR
JREPORT

THE ERROR VIA USER

;MOVE SP TO NO ERROR RETURN

;WAS

ILR SET??

RMER11,$GDDAT

;NO!!
JRECEIVED STATUS
;JEXPECTED STATUS

#4,(SP)

;MOVE SP TO ERROR CALL

#2,(SP)
PC,a(SP)+
#10, (SP)

sMOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

6%
RMER1],$BDDAT

#ILR,$GDDAT
#45,9(SP)

ILF _ERROR

#ILF ,RMER1I

4
RMER11,$BDDAT

RMER11,3GDDAT

;WRITE NUMBER OF

JWAS ILF SET??
sNO!!

JRECEIVED STATUS

JEXPECTED STATUS

ERROR

IN CALL

JRMMBO RMOS/3/72 FCTINL

ALK

A(KNCWLEDGE

042737
062716
112776

119 054016

004736

121 054024
122 054026

000240

120 054020

1264

125 054026

126
127
1¢8
129
130
131

054032
054036
054040
054044
054046
054052

132 054054

MACRO v04.00

000001
(00004
000046

001140

STATUS (HE(K

115 053772
116 054000
117 054004
118 054012

IST 1

162716

062716

105776
001403
062716
000402
162716
000240

000207

000002

BIC
ADD
MOVB

000000

000010

7$:

000004

6 1
11:43:28 PAGE 29-2

SU8

#ILF,3GDDAT
#4,(3P)
#46,a(SP)

#2,(SP)

:MOVE SP TO ERROR (ALL
:WRITE NUMBER OF ERROR IN CALL

JSR

PC,alSP)e

:REPORT

NOP

#10,(5P)

:MOVE

SP_TO RETURN FOR ERROK

THE ERROR VIA USER

:MOVE SP TO NO ERROR RE TURN

;AUGMENT RETURN ADDRESS If ERROR WAS FOUND
ADD

000000
000004

000004

4-APR-81

8%:
98:

TSTB
BEQ
ADD
BR
SUB
NOP

RTS

44, (SP)

a(SP)
8$
44, (SP)
9%
#4, (SP)

:MOVE SP TO ERROR CALL

;WAS ERROR FOUND??
INO!!
:YES = MOVE TO ERROR RETURN

;MOVE

SP TO NO ERROR RETURN

TRMMBO RMOS/3/2 FCTINL

“EOA(RRATE

TST

MACRO v04.00

4=-APR-81

11:43:28 PAGE

STATUS (HECK SUBROUTINE

.SBTTL

RECALIBRATE STATUS (HECK SUBROUTINE

3
é

sTHIS SUBROUTINE (HECKS THE RESULTS OF A RECALIBRATE OPERATON
;USING THE STATUS STORED IN THE GET BUFFER.

;

sCALL:

=
P

(1)
:

JSR
BR

ERROR

;2 054056
17

062716

(C00004

S? 054066

162716

000004

22
23
24 054072
gg 054100

105076

032737
001553

27
28
29 054102
30 054110

032737
001430

32 054120
33 054122
34 054130
35 054136
36 054144
37 054150
38 054156
39 054162

001024
013737
042737
013737
062716
112776
162716
004736

054112

40 054164
41 054170
2% 054172

032737

000000

022011

001350

000010

001350

000010

001376

001350
000010
001350
000004
000050
000002

001140
001140
0C1142

000001

001350

47 054202
48
054210
49 054216

032737
001424
013737
042737
013737

001350
000001
001350

001140
001140
0061142

51 054230
5¢ 054236

112776
162716

000071
000002

000000

53
56
55
gg

054242
05642644
054250
054252

p o

062716

004736
162716
000240

ADD

CLRB

PC,a(SP)+

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

#4,(SP)

;CLEAR USER'S ERROR CALL

JMOVE SP BACK TO BRANCH

;SEE IF '"PAR'' OR "'ILF'' OR ''OPI'' OR ''IAE’'' IS SET
BIT
#OP] 'PAR!ILF
! IAE ,RMER1]
BEQ
4%
;NONE ARE SET = GO TO NEXT (HECK
;REPORT ANY MASSBUS CONTROL BUS PARITY ERROR, I.E.,
JPAR''
= 1 AND 'DPE'' = 0
BIT
#PAR ,RMER1]
;WAS 'PAR'" SET??
BEQ
1%
JNO!!
BIT

#DPE ,RMERZ

;WAS ‘DPE'' SET??

SuUB
NOP

#10, (SP)

;MOVE

BNE
1%
;YES = NOT A REGISTER ERROR
MOV RMER1I,3GDDAT
JEXPECTED STATUS
BIC
#PAR ,$GDDAT
MOV
RMER11,$BDDAT
sRECEIVED STATUS
ADD
#4,(SP) :MOVE SP TO USER'S ERROR CALL
MOVB
#50,a(SP)
;WRITE ERROR NUMBER IN CALL
SUB
#2,(SP)
;MOVE SP TO RETURN FOR ERROR
JSR
PC,a(SP)+
;GO REPORT ERROR
1%:

000004

ERROR NUMBER
2(SP)

SUB

000000

000010

50 054226

JSR

;CLEAR USER'S

162716
000240

44
45 054172
46 054200

NOP

. CALL SUBROUT INE
RETURN HERE IF NO ERROR

RCLSTS:

18 054056

19 054062

PC,RCLSTS
222

;REPORT ANY “‘ILF'' ERROR
B!
#ILF ,RMER1]
BEQ
2%
MOV
BIC
MOV

RMER11,$GDDAT
#1LF ,$GDDAT
RMER1! ,$BDDAT

MOvVB
SuUB

#71,9(SP)
#2,(SP)

ADD

000010
2%:

JSR
SUB
NOP

#L.,(SP)

PC,a(SP)+
#10, (SP)

SP BACK TO BRANCH

JWAS ‘'ILF'* SET??
JNO!!
JEXPECTED STATUS
JRECEIVED STATUS

;JMOVE SP TO USER'S ERROR CALL
!WRITE ERROR NUMBER IN CALL
JMOVE SP TO RETURN FOR ERROR

;REPORT ERROR VIA USER
JMOVE SP BACK TO BRANCH

MACRO v04.00
JRMMBC RMOS/3/2 FCTNL TST 1
RECAL [BRATE STATUS (MECK SUBROUTINE

JREPORT ANY “'OPI'' ERROR AS

054252
62 054260
63 054262
64 054270
65 054276
66 054304
67 054310
68 054316
99 054324
70 054326
71 054334
72 054340
73 054342
74 054346
75 054350
&1

76
77
78 054350
79 054356

80 054360
81 054366
8¢ 054374
83 054402
84 054406
85 054414
86 054420
87 054422
88 054426
89 054430
90

92 054430

93 054436
94

032737
001433
013737
042737
013737
062716

112776
032737
001403
112776
162716

004736
162716
000240

032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

032737
001517

020000

001350

001350
020000
001350
000094
000072
010000

001140
001140
001142

000073

000000

0000602

FanISB8SR

98
99
100
101
102
103
104

. OP] DUE TO ‘TMMOL'' = 0
.

OP] BECAUSE ON CYLINDER LATCH DIDN'T RESET

BIT

#0P] ,RMER1]

MOV
BIC
MOV
ADD

RMER1],$GDDAT
#0P] ,$GDDAT
RMER1],$BDDAT
#4,(SP)

SuUB

#2,(SP)

BEQ

000000
001346

3%:

MOVB
BIT
BEQ
MOVB
JSR

zgg

000010

;WAS OP]

SET??

31%

JNO!!

#72,3(SP)
#MOL ,RMDS I
3%
#73,8(SP)

JRECEIVED STATUS
;MOVE SP TO USER'S ERROR (ALL
JWRITE ERROR NUMBER IN USER'S (ALL
JWAS 'MOL'' = 0?2
;YRS
;NO - CHANGE ERROR NUMBER

PC,2(SP)+

;REPORT ERROR VIA USER

#10, (SP)

JEXPECTED STATUS

;MOVE SP TO RETURN FOR ERROR
;MOVE

SP BACK TO BRANCH

318:
002000

001350

001350
002000
001350
000004
000070
000002

001140
001140
001142
000000

;REPORT AN ERROR IF ''IAE'' IS SET
BIT
#1AE ,RMER1]
+ IS AR’ SET??
BEQ
4%
JNO!!
MOV
RMER11,$GDDAT
;EXPECTED STATUS
BIC
#IAE ,$GDDAT
MOV
RMER11,$BDDAT
JRECEIVED STATUS
ADD
#4,(SP)
;MOVE SP TO ERROR CALL
MOVB
#70,9(SP)
JWRITE ERRCR NUMSER IN USFR'S CALL
SUB
#2,(SP)
;MOVE SP TO RETURN FOR ERROR
JSR
PC,2(SP)+
:REPORT ERROR
ggg

000010

#10, (SP)

;MOVE

SP BACK TO NO ERROR RETURN

4%:

050200

001376

95
%€
97

.
11:43:28 PAGE 30-1

4-APR-81

SSEE

IF *Ski'' OR '"IVC'' DR “DvC'" IS SET
BIT
#SKI!IVC!DVC,RMERZ]
BEQ
8%
;NONE OF

THE BITS ARE SET

sREPORT ANY “‘IVC'' ERROR AS

:
054440
054446
054450
054456
054464
054472
054476
054504
054512
054514

032737
001433
013737
042737
013737
062716

010000

001376

001376
010000
001376
000004
000074
000100

0011490
001140
001142

112776
162716

000075
000002

000000

162716

000010

112776

032737
001403
004736
0002490

000000
001346

5%:
-

LIVC WITH v = 0

.ERRONEOUS 1VC ERROR

BIT

#IVC,RMERZ2!

BEQ
MOV
BIC
MOV
ADD
MOVB
BIT
BEQ
MOvB
SUB

6%
RMERZ2] ,$GDDAT
#1VC,$GDDAT
RMERZ] ,$BDDAT
#4,(SP)
#74,3(SP)
#VV ,RMDSI
5%
#75,3(SP)
#2,(SP)

SUB

#10, (SP)

JSR

NOP

PC,a(SP)+

;WAS TVC SET??

;NO!!
;EXPECTED STATUS

;RECEIVED STATUS

;MOVE SP TO USER'S ERROR CALL
sWRITE ERROR NUMBER IN CALL
;WAS vv = 07?
4, L8
;NO - CHANGE ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER
;MOVE SP BACK TO BRANCH

JRMMBO

000240

130
131
132
133
134

054616
054624
054626
054634
054642

032737
001424
013737
042737
013737
062716

094614
054616

R
e T

TST

STATUS (HECK

nonon) nONONONURY
-P
NW
=000 VO o

AL [BRATE

—

RMOS/3/2 FCTINL

054536

054544
054546
054554
054562
054570
054574
054602
054606
054610

135 054650

36 054654

7 054662

032737
001424
013737
042737
013737
062716

SUBROUTINE

040000

001376
001140
001140
001142

112776
162716

Qu1376
040000
001376
000004
000076
000002

162716

000010

004736

112776
162716

001376

001376
000200
001376
000004
000077
000002

001140
001140
001142

1€2716
000240

000010

144 054676

013746
042716
022726
001002
000137

001346
047676
110100

054676

145 0<4702

146
147
148
14 9

150

(54706
054712
954714
054720

163
164
165

166

167
168

MOV
BIC

RMERZ2I ,$GDDAT

;EXPECTED STATUS

RMERZI ,$BDDAT
#4,(SP)
#76,9(SP)

;RECEIVED STATUS
sMOVE SP TO.USER'S ERROR (CALL
JWRITE ERROR NUMBER
.

MOvVB
suB
JSR
SuB
NOP

#SK1,$GDDAT

#2,(SP)
PC,a(SP)+
#10, (SP)

BIC
MOV
ADD
MovB

:SEE IF

85%:

SUB
JSR
SuUB
NOP

MOV
BIC
CMP
BNE
JMP

#DVC,$GDDAT

SET??

;JMOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER
JMOVE SP TO BRANCH

;WAS 'DVC'" SET??

;NO!!
;EXPECTED STATUS
:

RMERZ] ,$BDDAT

;RECEIVED STATUS

#77,3(SP)
#2,(SP)

;WRITE ERROR NUMBER
;MOVE SP TO RETURN FOR ERRCR

#4,(SP)

PC.3(SP)+
#10, (SP)

;MOVE

SP TO USER'S ERRCR

CALL

;JREPORT ERROR VIA USER
;MOVE SP TO USER'S BRANCH

RMDSI ,~(SP)
;PUT RMDS ON STACK
#*C<PIP!MOL'!VV!OM!ATA>,
(SP)
#ATA!MOL
!VV, (SP)+

85%
13%

sREPORT AN ERROR IF MOL = C AND OP] = 0, I.E., MEDIUM WENT OFF
054720
054726

054730
054736
157
57
054740

158
58
1 59
160
161
162

::S§'SKI

s REPORT ANY “DVC'' ERROR
#DV(C ,RMER2I
BIT
BEQ
8%
MOV
RMERZ2I ,$GDDAT

8%:

151

152
153
154
155
156

78:

SEQ 0217

;gxl.RMERZI

MOV
ADD

000000

055330

1
J
11:43:28 PAGE 30-2

BIT

BEQ

000000

000200

004736

4-APR-B81

;REPORT ANY ‘'SKI'" ERROR

8 054666
9 054670
0 054674

141

MACRO v04.00

054746
054754
054762
054766
054774
055000
055002
055006
055010

169 055010
170 055016

171 055020

032737
001030
032737
001024
013737
052737

010000

001346

020000

001350
001140
001140
001142

112776
162716

001346
010000
001346
000004
000100
000002

162716

000010

013737
062716
004736

000240

032737
001030
032737

;LINE AFTER RECALIBRATE WAS INITIATED
BIT
BNE
BIT
BNE
MOV
8IS

MoV
ADD
MOVB

000000

9%:

000100

001346

010000

001376

SuB
JSR
SUB
NOP

;REFPORT AN ERROR

BIT
BNE
BIT

g?OL,RMDSI

#OPI ,RMER1]

9%
RMDSI ,$GDDAT

#MOL
, $GDDAT
RMDSI, $BDDAT

#4,(SP)

:gé?'MOL DROP??
;WAS OP]

ERROR REPORTED??

JYES = DON'T REPORT MOL = O
;EXPECTED STATUS

sRECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL

#100,a(SP)
#2,(SP)
PC,a(SP)+

#10, (SP)

;WRITE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER

sMOVE SP BACK TO USER'S BRAN(CH

IF '‘'WW'' = 0 AND ''IVC'' = 0
A#VV ,RMDS]
;DID "WV'' DROP??
10%
;NO!!
#1VC,RMERZI

;WAS

THERE

[V(C

ERROR??

JRMMBO RMOS5/3/2 FCINL TST 1

“t (AL [BRATE

MACRO V04.00

STATUS (HECK SUBROUTINE

172

055026
055030
174 055036
175 055044
176 055052
1§44 055056
178 055064
179 055070
180 055072
821 055076
182 055100

001024
013737
013737
052737
062716
112776
162716

004736
162716

000240

001346
001346
000100

000004
000101

000002

184

032737
001024
013737

187
188
189
190

052737
013737
062716
112776
162716

191

192
193
194

004736

162716
000240

BNE
MOV

001140
001142
001140

MOV
BIS
ADD
MOVB
SuB
JSR

000000

agg

000010

100000

001346

001140
001140
001142

100000

001346
000004
000102

10%
RMDSI ,$GDDAT

RMDS 1 ,$BDDAT
#VV ,$GDDAT
#4, (SP)
#101,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

000002

BNE
MOV
BIS
MoV

nono USLVL
ST NI S LNV ],N]
—d —d
N -— T
o0 O
NH WA =

055236
055240

055240
055246
055250
055256
055260
221 055266
222 055274
223 055302
224 055306
225 055314
226 055320
227 055322
228 055326

sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
;MOVE SP TO RETURN FOR ERROR
sMOVE

SP BACK

TO USER'S BRANCH

ADD

MOVB
SuB
JSR
ggg

0000170

11%
RMDSI,$GDDAT
#ATA,$GDDAT
RMDSI ,$BDDAT

$YES!!
JEXPECTED STATUS

#102,2(SP)
#2,(SP)
PC,a(SP)+

;WRITE ERROR NUMBER IN CALL

~ #4,(SP)

#10, (SP)

JRECEIVED STATUS
;MOVE

TO USER'S ERROR CALL

;MOVE

SP TO USER'S BRANCH

11%:

JREPORT AN ERROR IF

055232

;YES = DONT REPORT vv = 0
JEXPECTED STATUS
JRECEIVED STATUS

JREPORT AN ERROR IF ATA IS NOT SET
BIT
#ATA,RMDS ]
;WAS ATA SET DURING RECALIBRATE??

000000

055160

055160
055166
055170
055176
055204
055212
055216
055224
055230

11:43:28 PAGE 30-3

10%:

183

185
186

4-APR-81

032737
001424
013737
042737
013737
062716
112776
162716

004736
162716
000240

000001

001346

0013406
000001
001346
000004
000103
0000062

001140
001140
001142

;ALWAYS

BIT
BEQ
MOV
BIC
MOV

ADD
MOVB
SuUB

000000

000010

12%:

"'OM'' IS NOT ZERO BECAUSE RECALIBRATE SHOULD

CLEAR OFFSET MODE

JSR
SuUB
NOP

#0OM,RMDS |
12%

;WAS "OM'* RESET??
:YES!!

RMDSI , $BDDAT

JRECEIVED STATUS

PC,a(SP)+

;REPORT ERROR VIA USER

RMDSI,$GDDAT
#OM,SGDDAT
#4, (SP)
#103,a(SP)
#2,(SP)
#10, (SP)

SJEXPECTED STATUS

sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER
sMOVE SP TG RETURN FOR ERROR
;MOVE SP TO USER'S BRANCH

;REPORT AN ERROR IF "PIP'' IS STIL ON, I.E., DRIVE NOT ON
032737
001430
032737
001024
013737
042737
013737
062716
112776
162716
004736
162716
000240

20000

001346

040000

001376

001346
020000
001346
000004
000104
000002

001140
001140
001142

000010

000000

. CYLINDER

BIT

BEQ
BIT
BNE

MoV

BIC

MOV

ADD
MOVB
SUB
JSR
SUB
NOP

qggp,nnosx

:églqnxvs OFF

#SK1,RMER2]

*WAS ''SKI'' DETECTED??

13$

CYLINDER??

*YES-DONT REPORT 'PIP'*

RMDSI , $GDDAT
;EXPECTED STATUS
#PIP,$GDDAT
RMDSI ,$BDDAT
sJRECEIVED STATUS
#4,(SP) ;MOVE SP TO USER'S ERROR CALL
#104,2(SP)
sWRITE ERROR NUMBER
#2,(SP)
sMOVE SP TO RETURN FOR ERRCR
PC,a(SP)+
#10, (SP)
;MOVE SP BACK TO USER'S BRAN(CH

“JRMMBO RMOS/3/2 FCTINL TST 1

MACRO V04.00

RECAL |[BRATE STATUS CHECK SUBROUTINE

~32737
001514

040006

001350

235

236 055340 032737 000002 001350

237 055346
238 055350
239 055356
240 055364
2641 055372

001424
013737
042737
013737
062716

243 055404
244 055410
245 055412

162716
004736
162716

242 055376

266 055416

SZ; 055420

249

250 055420

251 055426
252 055430
253 055436
254 055444

255 055452

256 055456
257 055464

000240

032737

001424
013737
042737
013737
062716

258 055470
260 055476

000240

52; 055500

263
264 055500

265 055506
266 055510
267 055516
268 055520
269 055526
270 055534
2717055542

272 055546
273 055554
274 055560

275 055562
276 055566

g;; 055570
279

280 055570
281 055574
282 055600
283 055602
284 055606
2’85 055610

001350
000002
001350
000004

112776 000105

112776
162716
004736

259 055472

4-APR-81 11:43:28 PAGE 30-4

SEQ 021%

138:

ggg 055330

231
232 055330
S;z 055336

162716

000002

14$:

000004

001350

001350
000004
001350
000004
000106
000002

001140
001140
001142

062716

112776
162716
004736

000004

001140
001140
001142

000107
000002

000000

#RMR ,RMER1]

ADD

#4, (SP)

NOP

15$
RMER11,$GDDAT
#RMK
, $GDDAT
RMER1],$BDDAT
#106,a(SP)
#2,(SP)
PC.a(SP)+

#10, (SP)

"MOVE SP TO RETURN FOR ERROR
:MOVE SP TO USER'S BRANCH

:WAS RMR SET??

*NO!!
:EXPECTED STATUS
;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN USER'S CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

*MOVE SP TO USER'S BRANCH

:REPORT AN ERROR IF 'UNS'' IS SET AND 'DVC'* IS 0
BIT
#UNS ,RMER1]
:WAS UNSAFE ON??
BEQ
BIT
BNE
MOV
BIC
MOV

16$
#DVC ,RMER2]
16$

MovB
SUB
JSR

#107.a(sP)
#2,(SP)
PC.R(SP)+

ADD

000010

SUB

16%:

NOP

RMER11,$GDDAT
#UNS
, SGDDAT
RMER1],$BDDAT
#4,(SP)

#10, (SP)

INO!!
*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

:AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED

000004
000004

BIT

MOVB
SUB

15$:

000004
000000

NGP

suB

001350
040000
001350

;WRITE ERROR NUMBER IN CALL

#2,(SP)
PC.A(SP)+
#10, (SP)

JSR

013737
042737
013737

#105,a(SP)

SUB
JSR
SUR

BEQ
MOV
BIC
MOV

000010

001376

:WAS ILR SET DURING RECAL IBRATE??

14$
“NO!!
RMZR11,$GDDAT
:EXPECTED STATUS
#1LR,$GDDAT
RMERTI,$BDDAT
;RECEIVED STATUS
#4,(SPS ;MOVE SP'TO USER'S ERROR CALL

:REPORT AN ERROR IF "RMR'' IS SET

000000

000200

#I1LR,RMER1]

BEQ
MOV
BIC
MOV
ADD

Move

000010

001350

062716
105776
001403
062716
000402
162716

BIT

000000

040000

162716

:REPORT AN ERROR IF "'ILR'' IS SET

001140
01140
001142

032737
001430
032737
001024

000240

:SEE IF "ILR''
OR 'RMR'' OR 'UNS'' IS SET
BIT
#I1LR'RMR'UNS,RMERT
]
BEQ
16$

17%:

ADD
TSTR
BEQ
ADD
BR
SUB

#4, (SP)
;MOVE SP TO USER'S ERRCR CALL
a(SP)
*WAS AN ERROR REPORTED??
17%
*NO!!
#4, (SP)
*YES = AUGMENT SP RETURN
18%
#4,(SP) ;NO ERROR = RETURN SP TO BRANCH

“JRMMBO RMOS/3/2 FCTNL TST 1

MACRO v04.00

RETAL [BRATE STATUS (HECK SUBROUTINE

286 055614
<87 055616

000240
000207

18%:

4-APR-B1 11:43:2¢8 PAGE 30-5
NOP
RTS

JSTATUS (ECK IS COMPLETE

MACRO v04.00
JRMMB0 RMOS/3/2 FCTNL TST 1
DRIVE CLEAR STATUS (HECK SUBROUTINE

000004
000000
000004

055634
055642
055650

013737
042737
012737
023737
001443
062716

001334

= OV

062716

055656

055664
055666
055672
055700
055704
055706
055712

055714
29 055722
30 055730

31 055736

32
33
34
25
;6

055744
055746
055752
055760
055764

105076
162716

112776
162716

004736

001346
021101
010600
001140

055774

056006
056010

001413
062716
112776
162716
004736
162716
000240

44 056014
45 0560:2

056026
05¢.030
056034

50 056036

51 056044

5¢ 056046

53 056050

54 056054

55 056060

56 056064
57 056066

013737

013737
010146
010246
013701

116102
042702

005102

040237

0011

000004
000141
000002

013737
042737
012737
023737
001413
062716

005037

056000

004010
001140

000010

38 055772
41

SEQ

CLEAR STATUS (HECK SUBROUTINE

BR
NOP

JSR
M

PC,a(SP)+

RETURN HERE
RETURN HERE

IF NO ERROR
TO REPORT AN ERROR

ERROR NUMBER DEF INED BY SUB

GO BACK TO SUB FOR MORE ERROR (HE(KS

RETURN HERE

NO MORE

ERRORS

000004
000142
000002

ADD
#4, (SP)
:MOVE SP TO ERROR CALL
CLRB
a(5P)
*CLEAR ERROR CALL
SUB
#6, (SP)
*MOVE SP TO USER'S BRANCH
;REPORT ERROR IF RMCS1 NOT INITIALIZED
4%:
MOV
RMCS11,$BDDAT
;CHECK RMCS1
BIC
#~C<DVA'FNCMSK>,$BDDAT
;CLEAR DONT CARES
MOV
#DVA!DRVCLR, $GDDAT
*EXPECT DVA
CMP
$GDDAT,$BDDAT ; COMPARE EXPECTED & RECEIVED
BEQ
6$
:BRANCH IF EQUAL
ADD
#4, (SP)
:MOVE SP TO ERROR CALL
MOVB
#141,a(SP)
:WRITE NUMBER OF ERROR IN CALL
SUB
#2,(5P)
*MOVE SP TO RETURN FOR ERROR
JSR

000004
000143
000002

001142
001142
001140
001142

;REPORT

5%:

001464
000001

177400

001142

ERROR IF

$GDDAT,$BDDAT
63

#4, (SP)

SuB

#2.,(SP)

(LR
MOV
BEQ

ADD

MOVB

000000

SUB

JSR
SuB

001142

;REPORT

:
8%

#MOL | DPR ! DRY , $GDDAT

ADD

;REPORT ERROR

001142

INITIALIZED

CMP
BEQ

JSR
382

6%:

RMDS NOT

THE ERROR VIA USER

*MOVE SP TO NO ERROR RETURN

RMDSI,$BDDAT
;CHECK RMDS
#PGM!OM!VV 'PIP,$BDDAT
;CLEAR DONT CARES

MOVB

000000

*REPORT

#10, (SP)

MOV
BIC

MOV

000010

001352

PC.a(SP)+

sgg

000010

001140
001350

;CLEAR USER'S ERROR CALL

173700

162716
000240

112776
162716
004736
162716
000240

7 055766

DRVSTS:

055620
055620
055624
055630

24
25
26

DRIVE

11:43:28 PAGE 31

ERROR

POND
= —d e e

ed e ot b

NS WNL=O 0V

O NS NN -2

.SBTTL

4-APR-B1

NOP

#142,a(SP)

PC.a(SP)+
#10, (SP)

*EXPECT DRY & DPR

; COMPARE EXPECTED & RECEIVED
:BRANCH IF EQUAL
*MOVE

SP TO ERROR CALL

‘WRITE NUMBER OF ERROR IN CALL

*MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR VIA USER
*MOVE SP TO NO ERROR RETURN

IF RMER1 NOT INITIALIZED
$GDDAT
;EXPECT 0'S
RMER1],$BDDAT
:CHECK RMER1
8%
*BRANCH IF EQUAL
A4, (SP)

#143,a(SP)
#2,(SP)

PC.a(SP)+
#10, (SP)

*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

ERROR IF ATA NOT INITIALIZED
;CHECK ATTENTION BIT
RMASI,$BDDAT
MOV

MOV

R1,=-(5P)

COM
BIC

R2
R, $BDDAT

R2,-(5P)
MOV
1STQUE ,R1
MOV
MOVB ~ 1(R1),R2
,R2
#~CATNMSK
BI(

*;PUSH R1 ON STACK

1PUSH R2 ON STACK

Jo21

CIRMMBO FM0S/3/2 FCTINL
CLEAR STATUS

MOV

001142

000004
000145
000002

78 056204

85 056242

86 056244
87 056250
88 056256
89 056262
90 056264

91
92
93
94
95

012737

011777

042737
023737

001413
062716

112776
162716
004736

162716

000240
005037

056276
056304
9 056306
97 056312
98 056320
99 056324
100 056326
101 056332

013737
001413
062716

105 056344
106 056350
107 056356
108 056362

112776
162716

004736

140009

001140

000004
000146
000002

Pk
ok oF o
oo

001142
001142
001140
001142

000000

000010

013737
001413
062716

001376

001142

162716

000004
000147
000002

000000

162716

000010

112776

004736

000240

PC.a(SP)+

“REPORT

#10, (5P)

THE ERROR VIA USER

“MOVE SP TO NO ERROR K7 TURN
INITIALIZED

#4, (SP)
#145,3(SP)

*MOVE SP TO ERROR CALL
:WRITE NUMBER OF ERROR IN CALL

JSR
%

PC.a(SP)+
#10, (SP)

‘REPORT THE ERROR VIA USER
*MOVE SP TO NO ERROR RETURN

118

#2,(5P)

*BRANCH IF

ZERO

“MOVE SP TO RETURN FOR ERROR

MOV
TMMP

#TST11777.$GDDAT
SEXPECT TEST BIT ON
$GDDAT,$BDDAT
;COMPARE EXPECTED & RECEIVED

ADD

#4, (SP)

SuB

#2,(SP)

BEQ

MOVB

15%:
CLR
;REPORT ERROR

MOV
BEQ
ADD

MOVB
SuB
JSR
SLO%

162716
000240

IN CALL

‘MOVE SP TO RETURN FOR ERROR

ADD
MOVB

30“5

000004
000150
000002

#2,(5P)

EPORT ERROR IF RMMR2 NOT INITIALIZED
$:
MOV
RMMR2] ,$BDDAT
:CHECK RMMR2
BIC
#ROA'RQB, $8DDAT :CLEAR REQA, REQB

000010

001142

;BRANCH [F ATTENTION CLEARED

*MOVE SP TO ERROR CALL
‘WRITE NUMBER OF ERROR

RMMR11,$BDDAT
:CHECK RMMR
MIC'LSTLST,$BDDAT
:CLEAR DONT CARES
#MuD , SGDDAT
JEXPECT WRITE DATA ON
$GDDAT,$BDDAT
:COMPARE EXPECTED AND RECEIVED

JSR

001402

INTO R2

1:POP STACK INTO R1
*1S ATTENTION CLEARED??

ERROR IF RMMR1 NOT

SUB

000000

001140

;:POP STA(CK

MOV
BIC
MOV
CMP
BEQ

—_

001374

31=-1

013737

056270
056272

102
103 056334
104 056342

; REPORT

000010

79 056210

#4, (SP)
#144.a(SP)

JSR

00004€
000010
001140

ADD
MOVB

SUB

(SP)+ ,R2

(SP)+.R1
$RDDAT

30\%

) vad

001360

171:43:¢8 PAGE

MOV
ST
BEQ

000010

75 056170
76 056176
77 (056202

84 056234

000004
000144
000002

1
162716

056146
056154
056162
056164

80
81 056212
82 056220
83 056226

L=APR-B1

SUBROUTINE

-d
b wd

71
72
73
74

MACRO v04.00

—

58 056072
59 056074
60 056076
61 056102
6§ 056104
63 056110
66 056116
€5 05€122
66 0561264
67 056130
68
09 056132
70 056140

(HE(CK

83888

DRIVE

TST

15%

*BRANCH IF EQUAL

#146,a(SP)

‘WRITE NUMBER OF ERROR IN CALL

PC.a(SP)+

#10C, (SP)

*REPORT THE ERROR VIA USER

*MOVE SP TO NO ERROR RETURN

RMEC2].$BDDAT
17%

#4,

(SP}

#150.3(sP)
#2.(SP)
PC.a(SP)+
#10, (SP)

;CHECK RMEC2

“BRANCH IF 0

*MOVE SP TO ERROR CALL

‘WRITE NUMBER OF ERROR IN CALL
“MOYE SP TO RETURN FOR ERROR
*REPORT THE ERROR VIA USER
*MOVE SP TO NO ERROR RETURN

RMER2],$BDDAT
18$%

;CHECK RMER2
‘BRANCH IF NO ERROR

SUB

#2,(SP)

*MOVE SP TO RETURN FOR ERROR

JSR
smojg

19¢:

*MOVE SP TO RETURN FOR ERROR

MOV
BEQ

ADD
MOVB

18%:

SP TO ERROR CALL

$GDDAT
JEXPECT ZEROS
IF RMEC2 NOT RESET

;REPORT ERROR IF RMER2 NOT RESET
17%:

*MOVE

#4, (SP)
#147.3(SP)
PC.a(SP)+
#10, (SP)

*MOVE SP TO ERROR CALL
*WRITE NUMBER OF ERROR IN CALL
*REPORT THE ERROR VIA USER
*MOVE SP TO NO ERROR RETURN

TJRMMBD
RMOS5/372 FCINL ST T
MACRO v04.00
DRIVE CLEAR STATUS (MECK SUBROUTINE
b4

00004

001403
062716
000402

000004

105776

162716
000240
000207

000000

000004

¢ 2
11:43:¢8 PAGE 31-2

;AUGMENT RETURN ADDRESS
#4,(SP)
ADD
TSTR
a(SP)

BEQ

117 056376

062716

W -

116 056372

noro

118§

4-APR-81

ADD
BR
SUB
NOP
RTS

21s

#4,(SP)

238

&6, (SP)

ANY ERROR WAS FOUND

:MOVE SP T0 ERROR CALL
AN ERROR DETECTED??
WAS

SYES= MOVE SP 10 ERROR RE TURN
:MOVE SP BACK TO NO ERROR REF TURN
JRETURN TO USER

JRMMBO RMOS/3/2 FCTNL TST 1

Fam

STATUS

(mECK

SUBROUTINE

MACRO v04.00 4=-APR-B1 11:43:28 PAGE 35
LSBTTL

SEARCH STATUS CHMECK SUBROUTINE

:THIS SUBROUTINE

*PUT

;

:THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS

*STATUS

STORED

VERIFIES
THE

GET

THE

RESULTS OF

BUFFER AND

TEST

SEARCH OPERATIONS USING
CONDITIONS

STORED

Thé

BUFFER.

‘DETECTED AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN

*THE USER'S '‘ERROR'' TRAP.

;THE

ANY ERROR WHICH OCCURRED WHILE READING OR WRITING REMOTE

."'IAE'' STATUS 1S CHECKED IN ACCORDANCE WITH THE VALUE DE TERMINED

LOPI'', IF SET, IS REPORTED AS 1) "OPI'* DUE TO MOL = 0, OR 2)

CUIVC'', IF SET, 1S REPORTED AS 1) *‘IVC'* ERROR WITH VOLUME

."'SKI'* IS REPORTED IF SET

.'DVC"' 1S REPORTED IF SET

.AN ERROR IS REPORTED IF 'MOL'* = 0, OR ‘PIP’* = 1, OR "ATA" = 0,

31
32
33
3
35

,CALL.
(1)
(2)
2(3)

JSR
PBR
NOP

PC.S5CHSTS
27

2(5)

JSR

PC.R(SP)+

;‘s'

“REGISTERS

OPI'* DUE

1.E., 'MCPE'"
= 1

OR 'PAR' =

TO ON CYLINDER LATCH.

“VALID ZERO, OR 2)

ERRONEOUS ‘'IVC'' ERROR WiTH VOLUME VALID SET.

on W= 0.

*(4)

;(6)

29 056422

43 056422
44 056426

062716
105076

000004
000000

zq 056436

005037

057764

45 056432

IS REPORTED,

CHECKED:

“BY THE PROGRAM, WHICH 1S BASED ON FORMAT AND ADDRESS.

FOLLOWING CONDITIONS ARE

162716

ERROR
2?

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT ERROR

SUBROUTINE WILL LOAD ERROR #

GO BACK FOR MORE CHECKS

RETURN AFTER ALL ERRORS REPORTED

SCHSTS:
;CLEAR USER'S ERROR CALL

000004

ADD
CLRB

#4, (SP)
a($P)

:MOVE SP TO USER'S ERROR CALL
*CLEAR ERROR NUMBER

CLR

2008

*CLEAR STATUS FLAGS

SUB

#4, (SP)

‘MOVE SP BACK TO NO ERROR BR

r's

50 056442

51 056450
52 056452

gz 056460

;TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING REMOTE

032737

001431
032737

001025

000010

001350

000010

001376

56 056462 013737 001350 001140
57 056470

042737

000010

001140

‘REGISTERS,

BIT

BEQ
BIT

BNE

1.E.,

'PAR'" = 1

#PAR, RMER1]

AND 'DPE'* = 0.

108
#DPE ,RMER?]

108

:WAS PARITY ERROR DETECTED??

‘NO!!
*WAS IT CONTROL BUS ERROR??

*PROBABLY NOT!!

;REPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL

MOV
BIC

RMER1],$GDDAT

#PAR
, $GDDAT

;EXPECTED STATUS

JEMMBO RMOS/3/72 FCINL TST

FAR M

STATUS (HECK

SUBROUT INE

MACRO v04.00 4-APR-B1 11:43:28 PAGEE 35-1

58 056476 013737 001350 001142

MOV

RMER1],$BDDAT

:RECEIVED STATUS

60 056510
61 056516

MOvB
SUB

#50.a(SP)
#2,(SP)

‘WRITE ERROR NUMBER [N CALL
‘MOVE SP TO RETURN IF ERROR

55 0565064

062716

£2 056522

(004736

112776
162716

000004

000050
000002

000000

JSR

63 056524 162716 000010
64 056530 000240
65 056532 000430
gg 056534
68
&9
70 056534

;1 056542

76 056544

75 056552

001334

013737

001334

001140

001334
0C0004
000013

001142

042737

020000

162716

000002

013737
062716
112776

80 056604

004736

82 056612
83 056614
gg 056620

000240
000137

81 056606

162716

w4,

(SP)

*MOVE SP TO USER'S ERROR (AL

PC.a(SP)+

#10, (5P)

‘REPORT ERROR

‘RESTORE SP TO NO ERROR

158
:SKIP FURTHER ERROR (MECKS
108 :
sTEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN READING REMOTE

020000

76 0,6560
77 056566
78 056572

79 056600

SUB
NOP
B8R

032737

001426

ADD

‘REGISTERS, I1.E., 'MCPE'' = 1.
BIT
#MCPE ,RMCS1]TM

BEQ

MOV

INO'!

RMCS11,$BDDAT
#4, (SP)
#13,3(5P)

:RECEIVED STATUS
‘MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER

PC.a(SP)+

*REPORT ERRUR AND RE TURN

SUB

#2,(SP)

SUB

158:
20%:

;EXPECTED STATUS

#MCPE
, $GDDAT

JSR

000010

RMCS11,8GDDAT

BIC

MOV
ADD
MOVR

000000

:WAS PARITY ERROR DETECTED??

:REPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL.

001140

057736

20%

NOP
JMP

#10, (SP)
1508

*MOVE SP TO RETURN IF ERROR

*RESTORE SP TO NO ERROR
;OMIT STATUS CHECKING

:DETERMINE THE VALUE OF ''IAE'’ STATUS BASED ON TRACK, SECTOR AND (YL INDER

88 056620 012737 002000 001140

SALSO SET ''SKI'*

MOV

;SETUP FOR IAE = 1

89 056626

052737

040000

057764

90 05663% 023727 001444 001466
91 056642 101025
3§ 056644 042737 04000C 057764

CMP
BHi
BIC

RMDCO, #822.
30$
#5K],2008

*GREATER THAN LAST CYLINDER 2
*YES - CYLINDER IS INVALID
*'SKI'* SHOULD BE ZERO

9 056652

123737

001417

001333

CMPB

RMDAO+1,LSTRK+1

;GREATER THAN LAST TRACK

97 056662

123727

001416

000035

(MPB

RMDAD,#29.

:SECTOR > 29.

99 056672
100 056700
101 056702

032737
001406
123727

010000

001442

001416

900037

BIT
BEQ
CMPB

#FMT16,RMOFO
308
RMDAC.#31.

;84; 056712

005037

001140

(LR

$GDDAT

107 056716

013737

001350

109 056732

023737

001140 001142

1 11
12

042737
000413

040000

32 056660
98 056670

;8% 056710
106

108 056724

110 056749
056742
056750

'1,'3 056752
14

101016
101410

101002

042737

001004

175777

8IS

FLAG IF CYLINDER ADDRESS IS TOO LARGE.

#IAE , SGDDAT

BHI

BLOS

BHI
25%:

001142
001142

#5K1.200%

308

*SETUP FOR SK] = 1

*YES - TRACK IS INVALID
?

25%

INO!!

308

‘YES - SECTOR IS INVALID

:18 BIT FORMAT ?
“YES - SECTOR IS INVALID FOR 18 BIT MODE
*SECTOR > 31. 2

:'IAE"" SHOULD = 0

- COMPARE EXPECTED AND RECIVED ''IAE'' STATUS

30$:

MOV

RMER11,$BDDAT

:;GET RECEIVED IAE

CMP

$GDDAT.$BDDAT

;1S IAE CORRECT??

#SK1,2008
508

*Sk1 SHOULD BE ZERQ

BIC

BNE

057764
40%:

B¢
BR

#~C JAE . SBDDAT

40%

‘NO!!

JRMMBO AMOS5/3/2 FCINL

STATUS

(HECK

TST

SUBROUTINE

MACRO v04.00 4=~APR-81 11:43:28 PAGE 35'2
F

115

116 056752

062716

(00004

117 056756
118 056764
119 056770
120 056772
121 056776
}g% 057000

112776
162716
004736
162716
000240

000257
000002

125 057000

126 057006

(32737

001531

050200

129 057010

013737

001376

131 057026

013737

057764

130 057016

132 057032
133 057040

134 057046

135 057050
136 057056
137 057062

042737

000004
000263
040000

112776

000267

138 057070

001403

140 057100

162716

139 057072

141 057104
142 057106

143 057112
144 057114

004736
162716

000240

SUB

#2,(SP)

JSR

SUB

NOP

(SP)

#257.a(sP)
PC,a(SP)+

210, (5P)

sMOVE SP TO USER'S ERROR (ALl

JWRITE ERROR NUMBER IN (ALL

sMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RE TURN
JRETURN SP TO NO ERRCR

OR 'DVC'* OR "‘IVC' IS SET
:SEE IF "“'SKI'*
BIT
#SK1!DVC
! 1VC,RMER2]
BEQ
90$
JNO!!
JREPORT ERROR

MOV
BIC
MOV
BIC

137777

062716
112776
032737

ADD

MOVvB

000000

50%:

137777
001140

001422

JREPORT INCORRECT JAE STATUS VIA USER'S ERROR CALL

000010

042737
023737

EQ 022¢

CMP

BEQ

ADD
MOVB
BIT

55%:

000002

000010

60%:

BEQ
MOVB
SUB
JSR
SUB

NOP

JARE

ANY BITS

SET??

IF ''SK1''
IS SET AND ''SKI'' FLAG IS NOT SET
, $BDDAT
RMER2]
;RECEIVED ''SKI'* STATUS
#~(SKI.SBDDAT
200%,$GDDAT
#~CSK],$GDDAT

;EXPECTED *'SKI'* STATUS

$GDDAT , $BDDAT

218 "SKI'* OK??

#4, (SP)
#263,a(SP)
#SK1.$GDDAT

;MOVE SP TO USER'S ERROR CALL

60$

55%
#267 ,9(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

; YES=CHANGE ERROR NUMBER

;WRITE ERROR NUMBER

BE SET??
:zgggLD "'SK1'*
; YES=CHANGE ERROR NUMBER

sMOVE SP TO RETURN [F ERROR
;REPORT ERROR AND RETURN

;RESTORE SP TO NO ERROR

. REPORT “'IVC'' ERROR AS
148

149 057114
150 057122

51 057124
52 057132
53 057140
56 057146
5 057152
56 057160
57 057166

158 057170
159 057176
160 057202
161 057206
162 057210
163 057212

164

165

166 057212

167 057220
168 0572§5
169 0572
176 057236
171

057244

032737
001433

013737
042737
013737
062716
112776
032737
001403
112776
162716
004736
162716
000240

(32737

001424
013737
042737
013737
062716

010000

001376

001376
010000
001376
000004
000264
000100

001140
001140
001142

000265
000002

000000

.I1vC DUE TO LOSS OF VOLUME VALID
.ERRONEOUS IVC WITH VOLUME VALID SET
#1VC RMERZ2I
BIT
¢1S IVC SET”?
80%
BEQ
:NO!!
MOV
RMER2]
, SGDDAT
JEXPECTED STATUS
#1VC, $GDDAT
BIC
, $BDDAT
MOV
RMER2]
JRECEIVED STATUS
ADD

000000
00134¢
70%:

000010

SUB

80%:
000200

001376

001376
000200

001140
001140
001142

001376
000004

MOvVR
BIT
BEQ
MOvVB
SUB
JSR
NOP

#4, (SP)
#2643 (SP)
AVV,RMDS
|

70%
#265,8(SP)
#2,(SP)
PC.Q(SP)+
#10, (5P)

JREPORT ANY DEVICE

BIT
BEQ
MoV

BIC

MOV
ADD

FAULT, I.E.,
#DVC ,RMER?]
908
RMERZ] ,$GDDAT
#DVC,

SGDDAT

RMERZ
], $BDDAT

#4, (SP)

;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER

.'%?'VOLW VALID??

IN CALL

;YES = CHANGE ERROR NUMBER
sMOVE SP TO RETURN [F ERROR
;REPORT ERROR AND RETURN

JRESTORE SP TO NO ERROR

;UA§’THERE A DEVICE FAULTY?
:NO.
!

JEXPECTED STATUS

JRECEIVED STATUS
JMOVE SP TO USER'S ERROR CALL

“JRMMBO RMQS/372 FCTINL

TST

SEARCH STATUIS (MECK SUBROUT INE

172 057250

173
174
175
176

177

178

057256
057262
057264
057270

057272

112776
162716

004736
162716

000240

800602

MACRO v04.00

MOvB
SuB

8266 ,a(5P)

JSR
SUB
NOP

000010
90%:
JREPORT

180
181

182 057272
133 057300

184 057302

185 057310

186
187
188
189

11:43:¢8 PAGE

000000

179

057316
057324
057330
057336

190 057344

191 057346
192 057354
193 057360

194 057362
195 057366
196 057370

001350

032737
001433
013737
042737
013737
062716

001140

112776

112776
162716

000000

004736

000240

197

198

199 057370

013746
042716
022726
001554

001346
047677

032737
001030
013737
052737
013737
032737
001013
062716

010000

001346

001346
010000
001346
020000

001140
001140
001142
001350

112776

162716

110100

000004

000272
000002

225 057516
226 0575§4
227 057532
228 057540

SUB

#2,(5P)

SUR

#10, (SP)

IOAYAII

g?g

BEQ

ADD

MOVB
SUB

JSR

SUB

000010
1208:

001346

040000

001376

001346
020000
001346

001140
001140

001142

JRECEIVED STATUS
JMOVE SP TO USER'S ERROR (ALL
sSETUP ERROR FOR MOL = C

;JWAS MOL 07??

105$
#271.a(SP)

J¥ES!!

PC.a(SP)+

JREPORT ERROR AND RETURN
;RESTORE SP TO NO ERROR

lmLil

lvv.’

RMDS] ,=(SP)

;MOL WAS 1 = (HANGE ERROR
JMOVE SP TO RETURN [F ERROR

AND "PIP*" = 0

;GET DRIVE STATUS

#°(<ATA!PIP!MOL
. VV>, (SP)

#ATA'MOL
'V, (SP) + YES! !

1508

;1S DRIVE STATUS (CORRECT??

.REPORT AN ERROR IF MOL = O AND OP] ERROR WAS NOT REPORTED, 1.E., OP] = O
BIT
AMOL ,RMDS |
:M?lflfbllfl OFF LINE??
BNE
1208
:NO:!
MOV
RMDS
1, SGDDAT
SEXPECTED STATUS
BIS
#MOL
, SGDDAT
S]
. SBDDAT
RMD
MOV
JRECEIVED STATUS
BIT
#OP] ,RMER1]
;WAS OP] REPORTED BEFORE??
BNE
1208
JYES - DON'T REPORT MOL = O

000009

020000

YEXPECTED STATUS

#270.a(SP)

AMOL
, RMDS |

NOP

I¥

JREPORT ERROR AND RE TURN

(SP)

BIT

CMP

ronUNY LAV
LT VN LN N

200 057374
201 057400
202 057404
203
204
205 057406
206 057414
207 057416
208 057424

JSEE

JRESTORE SP TO NO ERROR

#4,

JSR

110%:

#10, (5p)

RMER1],$GDDAT
]
, SGDDAT
#0P
], $BDDAT
RMERT

BEQ
MOVB

162716

JWRITE ERROR NUMBER IN (4|
sMOVE SP TO RETURN [F ERROW

.''OPI'" BECAUSE MEDIUM IS NOT ONL INE
."'OP1"" BECAUSE ''ON CYLINDER'' DIDN'T DROP
BIT
#0P] ,RMER1]
::8§‘0Pl SET??
1108
BEQ

MOVR
105%:

#2.($P)

ANY "OPI'" ERROR AS

ADD

000000
001346

37-3

PL.a(SP)e

MOV
BIC
MOV

001140
001142

032737
001403

4-APR=-81

NOP

#4,(5P)

#272.a(SP)
#2,(SP)

e
PC.a(SP)

#10, (SP)

;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
;MOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN
JRESTORE SP TO NO ERROR

sREPORT AN ERROR IF PIP 1S STIL SET AND SKI IS RESET
BIT
#PIP,RMDS
:*3'¢oszrxo~1~c IN PROGRESS??
BEQ
1208
BIT

#SK],RMER2]

MOy
BI(

RMDSI, $GDDAT
#P1P, $GDDAT

ADD

24, (SP)

BNE

MOy

1308

S
1, $BDDAT
RMD

*WAS ''SKI'* DETECTED??
*YES-DONT REPQRT PIP
TEXPECTED STATUS

JRECEIVED STATUS
JMOVE 5P TO USER'S ERROR ALl

IRWBD

M0S/3/7¢2

PAROH

STATUS

BAF AR,=8

A LA LV N VT VT

29 057544

057552

FLIN

(WECK

112776

162716

057566
057574
259 057576

032737
001030
032737
001024
013737
052737
013737
062716

004736
162716
000240

266 057642
267 057646
248 (57650
249 057654
250 057656

253 057656
057664
057666
256 057674
257 057702
258 057710
259 057714
26V 057722
261 057726
262 057730
263 057734
264 057736
265
266
267 057736
268 057742
269 057746
270 057750
271 057754
272 057756
273 057762
27
275 057764

MACRD

v04.00

&=APR-B81

H
11:43:28

SUBROCTINE

05755
057560
057564
057566

2«0 057604
057606
262 057614
243 057622
057630
057634

000273

(00002

000000

1308 :

000100

001346

010000

001376

001346
00010C
001346

003140

112776
162716

0003590
000002

162716

0C0010

004736

000240

032737
001024
013737
052737

013737
062716

#10, (sP)

‘RESTORE SP TO NO ERROR

NOP
AN ERROR

PC.a(SP)+

*REPURT ERROR AND KE TURN
_

VOLUME

IS NOT

BIS
MOV

#VV,$GDDAT
RMDSI,$BDDAT

000000

movB

MOV
ADD

SUB

JSR
agg

RMDSI,$GDDAT
#4,

(SP)

#350,a(sP)
#2,(SP)

PC.R(SP)+
#10, (5P)

VALID AND

IVC = 0

;1S VOLUME VAL Iu??
SYES!)
‘WAS 1VC DETECTED??
“YES = DON'T REPORT Vv = 0
EXPECTED STATUS

;RECEIVED STATUS

‘MOVE SP TO USERS ERROR CALL

*WRITE ERROR NUMBER IN CALL

*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RE TURN
*RESTORE SP TO NO ERROR

1408%:

1000C0

001346

001140
001140
001142

100000

000010

000000

SUB

001140
001142

162716

062716
105776
001403
062716
000402
162716
000207

;WRITE ERROR NUMBER IN CAL(
‘MOVE SP TO RETURN IF ERKOK

#VV ,RMDS |
1408
#1VC,RMER2]
1408

112776
162716

000240

#273,@(SP)
#2,(5P)

BIT
BNE
81T
BNE

001346
000004.
000000
000351
000002

004736

;REPORT

2
37-4

MOVE
SUB
JSR

000010

PAGE

:REPORT AN ERROR

000004
000000

#ATA,RMDS |

ADD

#4, (SP)

MOVB
SUB
JSR

SuB

NOP

1508
RMDSI,$GDDAT
#ATA, $GDDAT
RMDSI,$BDDAT
#351,a(SP)
#2,(SP)
PC.a(SP)+

#10, (SP)

SET

;1S ATA ON??

‘YES!!
-EXPECTED STATUS
:RECEIVED STATUS
*MOVE

SP TO USER'S ERROR CALL

*WRITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN IF ERROR

*REPORT ERROR AND RE TURN

*RESTORE SP TO NO ERROR

:ARGUMENT THE RETURN ADDRESS IF AN ERROR WAS DETECTED
ADD

#6, (SP)

BEQ

160%

ISTB

000004

ATTENTION IS NOT

BIT

BNE
MOV
BIS
MOV

150%:

1608:
1708:

200$:

Q(SP)

:MOVE SP TO USER'S ERROR CALL
‘WAS ERROR FOUND??

*NO!!

ADD

#4,(SP)

“YE5S - CHANGE RETURN

SUB
RTS

#4 . (SP)
PC

:NO ERROR FOUND
‘RETURN TO USER

.WORD

170%

:STORAGE FOR FLAGS

TATI

DRIVE

Kl"

6‘¥k

STATUS O

YEY

MACRO y04.00 4=APR=B1 11:43:28 PAGE| 3%

SUBROUTINE

LSRITL
2

:THIS

STATIC DRIVE STATUS CHECK SUBROUTINE
SUBROUTINE

*STATUS,

LOOKS

*SHMOULD NOT BE

ANY DRIVE

IN STATE.

TESTED AND REPORTED AS ERRCRS

INDICATES DRIVE WENT OFFLINE, NOTE

16
%g

:THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER.

(1)

22
23

= 0, INDICATES THE DRIVE LOST VOLUME VALID
PIP = 1, INDICATES THAT THE DRIVE IS OFF CYLINDER
.SK1 = 1. INDICATES THE DRIVE MAS AN UNEXPECTED SK] ERROK
DVC = 1. INDICATES AN UNEXPECTED DEVICE fAuLT

JSR

:
:

Sg 057766

STCDRVSTS:

30 057766
31 057772

062716
105076

;; 060016
29

272

ADD
CLRB

SUB
MOV
BIC
CMP
BEQ

010000

001346

42 (L0030 032737 020000
43 060036 001024
4, 060040 013737 001346

001350

45 060046

010000

001140

46 060054

052737

BIT
BNE
BIT
BNE
MOV

47 060062
48 060066

062716
112776

000004
000207

001142

MOV

162716

<0 060100

004736

52 060106

000240

55
56 060110
57 060116

032737

51 060102

22 060110

000002

001140

BIS

000000

001C30

GO BACK 10 SUR FOR MORE ERROR (HE(KS

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB
RETURN HERE IF NO MORE ERRORS

:MOVE SP TO USER'S ERROR CALL
:CLEAR ERROR NUMBER

#4, (SP)
‘MOVE SP BACK TO NO ERROR RE TURN
RMDS, ~(SP)
:PUT DRIVE STATUS ON STACK
#AC<PIPIMOL
! VV>, (SP)
#MOL!VV,(SP)+
;ARE MOL,VV AND PIP (.K.??

108 :

IF MOL

TYES!!

= O AND 'OPI'' = 0

#MOL , RMDS |
108

#OP] ,RMER1]
108
RMDSI,$GDDAT
#MOL
, SGDDAT

‘WAS “DPI'' SET??
*YES-DONT REPORT 'MOL'® =
-EXPECTED STATUS
:RECEIVED STATUS

#2,(5P)

*MOVE SP TO RETURN FOR ERROR

JSR

PC.R(SP)+

NOP

;1S MOL CON 22
TYES!)

RMDS],$BDDAT

#4, (SP)
#207.a(SP)

SUB

001346

308

ADD
McvB

SUB

162716 000010

000100

PC.A(SP)+

#4,(SP)
a(SP)

:REPORT AN ERROR

032737
001030

49 060076

RETURN HERE IF NO ERROR

SSEE IF “MOL' = "W'' = 1, AND 'PIP" = 0

40 060020
41 040026

001346

773

;CLEAR USER'S ERROR CALL

000004
000000

001524

013737

PC,STCDRVSTS

NOP
ERROR

30 057776 162716 000004
33
3, 060002 013746 001346
35 060006 042716
147677
36 060012 022726 010100

SUBROUTINE

;
:
;
:

THE

L THAT non. 1s (ASSOMED TO WAVE BEEN SET

3
14

IN DRIVE

VALID.

ERRORS OR CHANGES

:}?Erzgkwwm CONDITIONS ARE
.MOL = 0,

CHANGES

“CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHI(H THERé

FOR UNEXPECTED

SUCH AS THE DRIVE LOSING VOLUME

#10, (SP)

*MOVE SP TO USER'S ERROR (ALL
‘WRITE ERROR NUMBER IN CALL

*REPORT ERROR VIA USER

‘MOVE SP BACK TO NO ERROR RE TURN

;REPORT AN ERROR If VOLUME VALID IS NOW ZERQ AND '‘IVC'*
BIT
#VV,RMDS |
SIS VW R 022
BNE
20%
JNO!!

= 0

MACRO v04.00 4-APR-81 11:43:28 PAGE 3%-1
J

JRMMBO RMOS/372 FCTINL TST 1
STATIC DRIVE STATUS (HECK SUBROUTINE

032737

010000

001376

013737
052737
013737

001346

001140

001024

062716

112776
162716

BIT
BNE
MOV
BIS
MOV

001346
001142

ADD

000000

004736

MOVB
SUB
JSR

000240

~NOP

162716

< ;B

20%:

032737
001430
032737
001024
013737
042737
013737
062716

001346

BIT

BEQ
BIT
BNE

001140
001140
001142

MOV
BIC
MOV
ADD
MOVB
SUB
JSR

000000

004736
162716
000240

SuB

30%:

" oo

gL ZERI2Z
o
WRER3R
W
v

8—.—0-—0

AN Sa38IN QRIS SS88OLRR

il -l —
ol
ll o
ol
ol

40%:

032737
001424
013737
042737
013737
062716

001376
001140
001140
001142

JEXPECTED STATUS

NOP

s YES=DONT

A#VV ,RMDS |

RMDSI, $BDDAT

#4,(SP)

;MOVE

#210,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

#PIP ,RMDS ]

REFORT

"WW'' =

JRECEIVED STATUS

SP TO USER'S ERROR CALL

JWRITE ERROR NUMBER IN CALL

JMOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER

sMOVE SP BACK TO NC ERROR

IS OFF

30$
#SK1,RMER2]
308

RMDS
! , SGDDAT
#P1P,$GDDAT
] , SBDDAT
RMDS
#4,(SP)
#211,(SP)
#2,(SP)
PC,a(SP)+

#10, (SP)

CYLINDER AND ''SKI'’
= 0

;1S DRIVE OFF CYLINDER??

‘WAS ''SKI'' SET??

*YES-DONT REPORT 'PIP** = 1
‘EXPECTED STATUS
JRECEIVED STATUS

;MOVE SP TO USER'S ERROR CALL
;sWRITE ERROR NUMBER IN USER'S (ALL

sMOVE SP 19 RETURN FOR ERROR
;REPORT EFROR VIA USER
sMOVE SP TO NO ERROR RETURN

MOV
BIC
SEQ

ADD

004736

50%:

040000

001376

001376
001376
000004
000213

sREPORT

#4, (SP)

MOVR
SUB

#212,2(SP)
#2,(SP)

SUB

#10, (SP)

JSR

162716
000240

PMER2] ,=(SP)
:PUT ERROR REG 2 ON STAC(K
#°C<SK]'DVC>, (SP)+
60%
;BRANCH If NO ERROR

JREPORT AN ERROR IF THERE IS A DEVICE FAULT
BIT
#DVC ,RMER2]
:zngDEVICE FAULT??
BEQ
50%
RMER2] ,$GDDAT
MOV
*EXPECTED STATUS
BIC
#DVC, SGDDAT
MOV
RMER2
] , $BDDAT
:RECEIVED STATUS

000000

112776
162716

112776

RMDSI
, $GDDAT

s W = D
G SEE IF K1

013746
042726
001460

032737
001424
013737
042737
013737
062716

JWAS "IvC'' SET??

20%

JREPORT AN ERROR IF DRIVE

001376

112776
162716

#1VC,RMERZ]

NOP

PC.a(SP)+

AN ERROR IF ''SkI''
= 1

BIT

#SK1,RMER2]

001140
001140
001142

BEQ
MOV
BIC
MOV

60%
, $GDDAT
RMER2]
#5K1,$GDDAT
, $BDDAT
RMERZ2]

000000

MOVR

#213,2(SP)

ADD

#4,(SP)

‘MOVE SP TO USER'S CALL

‘WRITE NUMBER OF ERROR IN CALL
‘MOVE SP TC RETURN FOR ERROR
;REPORT ERROR VIA USER
;MOVE SP BACK TO NO ERROR

:&g'{ueas A SEEK INCOMPLETE ERROR

"EXPECTED STATUS
;RECEIVED STATUS

JMOVE SP TO USER'S ERROR (AL L

JWRITE ERROR NUMBER [N USER'S ERROR (AL

MACRD v04.00 4-APR=-B1 11:43:78 PAGE 3?-2
K

S W

=00 v

LY L VN e

“JRMMBO RMOS/3/2 FCINL TST 1
STATIC DRIVE STATUS (HECK SUBROUT
INE
162716

000002

162716

000010

004736
000240

062716
105776

129 060470

60%:

sMOVE SP TO RETURN FOR ERROR
‘REPORT ERROR VIA USER
“MOVE SP BACK TO NO ERROR

162716

000004

ADD

#4, (SP)

:MOVE SP TO USER'S ERROR (ALL

BEQ
ggo

703
ggiwm

*NO!!
“YES = MOVE SP TO USER'S ERROR RE TURN

#4, (SP)

:NO = MOVE

RTS

:RETURN TO USER

1STB

000000

000004

000240
000207

NOP

#2.(5P)
PC.a(SP)e
#10. (5P)

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED

001403
062716

000402

SUB
SUB
JSR

70%:

80%:

a(SP)

‘WAS AN ERROR DETECTED??

TO NO ERROR RE TURN

¥1

- MACRO v04.00

4-APR-B81

11:43:28 PAGE

SEQ 023

.SBTTL

SAVE AND RESTORE RO=-RS ROUTINES

ii i

1*SAVE RO-RS

ARl

R R

:«CALL:

e
SAVREG
“«UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
*

;2 TOP===(+16)

Ta
;%
;v

42e==(+18)
+4===R5
+6===R4

;¢ +8~==R3
;*+10===R2

t2412===R]
tx+14===R0O

060472
060472
060474
060476
060500
060502
060504
060506
060512
060516
060522
060526

010046
010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

$SAVREG:

000022
000022
000022
000022

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

RO,=(5P)
R1,-(SP)
RZ,=(SP)

R3,-(SP)

R4 ,=(SP)

R5,-(SP)
22(SP) ,=(SP)
22{3P) ,~(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)

:sPUSH RO ON STACK
;:PUSH R1 ON STACK

;2PUSH R2 ON STACK

:3PUSH R3 ON STACK
:;PUSH R4 ON STACK
;:PUSH RS ON STACK
;:SAVE
2 :SAVE
;sSAVE
::SAVE

PS
PC
PS
PC

OF
OF
OF
OF

MAIN FLOW
MAIN FLOW
CALL
CALL

;*RESTORE RO-R5

s=CALL:
. *

060530
060530
060534
060540
060544
060550
060552
060554
60556
060560
060562
060564

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

$RESREG:

RESREG
MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
RTI

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+ RS

;;RESTORE PC OF CALL
;;RESTORE PS OF CALL
;sRESTORE PC OF MAIN FLOW

(SP)+,R3
(SP)+,R2

;:POP STACK
::POP STACK

(SP)+ R4

(SP)
+ ,R1
(SP)+,RO

;sRESTORE PS OF MAIN FLOW

;:POP STACK INTO RS
;:POP STACK INTO R4
INTO
INTO
;.POP STACK INTO
2 .P0P STACK INTO

R3
R2
R1
RO

]

CZRMMBO RMOS/3/2 FCTNL

HINARY

TO ASTID

AND

TST

MACRO v04.00

4-APR-81

M2
11:43:28 PAGE 35

TYPE ROUTINE

.SBTTL

BINARY

TO ASCII AND TYPE ROUTINE

CRRARARARA AR AN AN RAAN R NN RNNAR NN RARARR

TO CHANGE

010146

060574
060576
060604
060606

000261
112737
006101
001406

060620
060622

000241
000765

060610
060614

(016601

NUMBER,=(SP)

JsNUMBER TO BE

R1,-(SP)

::SAVE R1 ON THE STACK

105537
104401

060624

012601

060640

000

060626
060634
060636

016666
012616
000002

000060

000

TYPBN

MOV

060640

1%:

(60640
060640

000002

MOV

$TYPBN: MOV

000006

SEC
MOVB
ROL
BEQ

ADCB
TYPE

000004

RNRRORROEOROERRRORRS

060570

ARG

IS USED

;*BINARY=ASCI] NUMBER AND TYPE |T.
:'CALL:

060566

NN RAN

-THIS ROUTINE

2%:

$BIN:

cLC
BR
MOV
MOV
MOV
RT!

.BYTE

6(SP) ,R1

#'0,$BIN
R1
2%

$8IN
LSBIN
1%
(SP) + ,R1
2(SP) ,4(SP)
(SP)+,(SP)

0.0

16=BiT BINARY NUMBER

J3TYPE

TO A

Té=k]

TYPED

;:GET THE INPUT NUMBER

J3SET "'C'' SO CAN KEEP TRACK OF THE NUMBER OF RITS
2iSET CHARACTER TO AN ASCII 'YV,
;iGET THIS BIT
s ;DONE?

s iNO==SET THE CHARACTER FQUAL TO TH}S BIT
;:G0 TYPE THIS BIT
;2CLEAR ''C'" SO CAN KEEP TRACK OfF BITS
..GO DO THE NEXT BIT

;POP THE STACK INTO R1

,,ADJUST THE STACK
::RETURN TO USER

;:STORAGE FOR ASCII CHAR. AND TERMINATOK

CZRMMBO RMOS/3/72 FCINL TST 1

CONVERT BINARY

TO DECIMAL

AND

MACRO v04.00

TYPE ROUTINE

4-APR-B1

.SBTTL

11:43:28 PAGE 36

SEQ 0234

(ONVERT BINARY TO DECIMAL AND TYPE ROUTINE

';...t.."..'.t'..'..."".Q'..t.".'l..t.'..t..'...'..t...""'.

$*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHE THER THE
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
J*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
s*REPLACED WITH SPACES.

s«CALL:

‘
g

|
,

’

060642
060642
060644

010046
010146

060650

010346

060654

012746

060646
060652

010246

010546

60660
060664
060666
060670
060676
060700

016605
100004
005405
112766
005000
012703

060710
060712
060716
060720
060722
060724
060726
060730
060732
060734
060736
060740
060742

005002
016001
160105
002402
005202
000774
060105
005702
001002
105716
100407
106316
103003

060752
060756
060762
060764
060766
060772
060774
060776
061000
061002
061004

052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003

061014
061016
061520
067022
061024

105013
012605
012693
012602
012601

060704

060744

061006

$TYPDS:

116663

NUM, = (SP)

::PUT

MOV
MOV

RO,=(SP)
R1,=(SP)

;:PUSH RO ON STACK
::PUSH R1 ON STACK

MOV

R3,=(SP)

::PUSH R3 ON STACK

TYPDS

MOV
MOV

020200

MOV

000020
000055

000001

061056

112723. 000040

116663

MOV

1%:

2%:

061046

3%:

4%:

5%:

000001

000060
000040

177777

6% :
7%:

000010

8%:
1777277

177776

9% :

MOV
BPL
NEG
MOVR
CLR
MOV

MOVB

(LR
MOV
SUB
BLT
INC
BR
ADD
ST
BNE
ISTR
BM]
ASLB
BCC

MOVR

R2,=-(SP)

RS,=(SP)

#20200,~(SP)

THE BINARY NUMBER ON THE STA(K

;:G0 TO THE

ROUTINE

;:PUSH R2 ON STACK
;:PUSH RS ON STACK

::SET BLANK SWITCH AND SIGN

20(SP) ,RS
k3
RS
#'=,1(SP)
RO
#$DBLK ,R3

:iGET THE INPUT NUMBER
:BR IF INPUT IS POS.
PMAKE THE BINARY NUMBER POS.
;sMAKE THE ASCII NUMBER NEG.
::ZERO THE CONSTANTS INDEX
3ISETUP THE OUTPUT POINTER

R2
$DTBL (RO) ,R1
R1.RS
X
43
R2
3%
R1.RS
R2
5%
(SP)
7%
(SP)
63
_

::CLEAR THE BCD NUMBER
;:GET THE CONSTANT
::FORM THIS BCD DIGIT
::BR IF DONE
;s INCREASE THE BCD DIGIT BY 1

#' L(R%)+

1(SP) ,=1(R3)

32SET THE FIRST CHARACTER TO A BLANK

::ADD BACK THE CONSTANT

;:CHECK IF BCD DIGIT=0
::FALL THROUGH IF 0
;:STILL DOING LEADING 0°S?
;:BR IF YES
:1MSD?

::BR IF NO

::YES==SET THE SIGN

BIS
BIS
MOVR
TST
(VP
BLT
BGT
MOV
BR
1STR
BPL

#'0,R?
#' R
R2, (R3)+
(RO) +
RO,#10
2%
8s
R5,R2
6%
(SP)+
9¢

:iMAKE THE BCD DIGIT ASCII
SMAKE IT A SPACE IF NOT ALREADY
A DIGIT
S:PUT THIS CHARACTER IN THE OUTPUT BUFFER
::JUST INCREMENT
ING
;;CHECK THE TABLE INDEX
::GO DO THE NEXT DIGIT
::G0 TO EXIT
23GET THE LSD
;GO CHANGE TO ASCI]
;:WAS THE LSD THE FIRST NON-ZERO?
1:BR IF NO

(LRB
MOV
MOV
MOV

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

::SET THE TERMINATOR
::POP STACK INTO RS
..POP STACK INTO R3
:POP STACK INTO R?
(POP STA(K INTO R

MOVB

MOV

-1(SP),=2(R3)

:;YES=-SET

THE

SIGN FOR

TYPING

"JRMMBO

RMOS/3/2

ONVERT BINARY

FCTINL

TO DECIMAL

AND

MACNO

TYPE

012600
106401 (61056
016666 000002 000004
012616

061066

0236

000002

061050 001750

061052
061054
061056

000144
000012

v04.00

4=-APR=-81

11:43:28 PAGE

MOV
TYPE
MOV
MOV

(SP)+,RO
$DBL K
2(SP) ,4(SP)
(SP)+
. (SP)

36-1

ROUTINE

061026
061030
061036
061062

061064

—

$DTRL:

$DBLK:

RT]

10000.

1000.

100.
10.
.Bikw

;:POP STACK INTO RO
SINOW TYPE THE NUMBER
STADJUST THE STACK
::RETURN T0 USER

JRMWB0O RMOS/372 FCTAML IST

HINARY

OCTAL

(ASCII)

AND TYPE

MACRO v04.00

4&-APR-B1

.SBTTL
A2

c
.3
11:43:28 PAGE 37

BINARY TO OCTAL

AR ARl

1*THIS ROUTINE

(ASCII)

IS USED

TO CHANGE

AND TYPE
R

16=BIT BINARY NUMBER

MOV

NUM, - (SP)

s sNUMBER TO BE TYPED

BYTE

s:N=1

i
TM

TYPOS
.BYTE

;:M=1

:+$TYPOS OR $TYPOC

DIGITS

TYPEOUT

TO 6 FOR NUMBER OF

OR 0

DIGITS

o
061066

017646

000000

061072
061100
061104
061110
061112
061120

116637
112637
062716
000406
112737
112737

061134
061126
061140
061142

010346
010446
010546
113704

061313

110437
113704
016605

000006
061312
061311
000012

061126

112737

061146
061150

005404
062704

061170

005003

061154
061160
061164
061172
061174

061176

061200
061202
061206
061206
061210
061214
061216
061222
061224
061226
061230

000001
061313
000002

061311

000001
000006

061311
061313

000005

006105
000404

MOV

TYPON

TYPOC

MOVB
MOVB
ADD
BR
$TYPOC: MOVB
MOVB
$TYPON: MOVB

MOV
MOV
MOV
MOVB

2%:

061312

MOV

$TYPOS: MOV

1%:

006105

006105
006105
010503
006103
105337
100016
042703
001002
005704
001403
005204

061310

3%:

177770

4%:

TYPE

LEADING ZEROS

TO TYPE OUT WITH THE

NUM,-(SP)

SAME PARAMETERS AS

THE

;sNUMBER TO BE TYPED
;;CALL FOR TYPEOUT

;*$TYPOC--~ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

s«(CALL:

10 TvPE

;0=SUPPRESS LEADING ZEROS

:*$TYPON----ENTER HERE

FOR

;;1=TVPE

§e

,"CALL:

;;CALL

TO A 6=DIGIT

$+OCTAL (ASCII) NUMBER AND TYPE [T,
:#$TYPOS=--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF

s*CALL:

NEG
* ADD
MOVB
MOVB
MOV
(LR
ROL
8R

ROL

ROL
ROL
MOV
ROL
DECB
8PL
BIC
BNE
TST
BEQ
INC

NUM, - (SP)

;;NUMBER TO BE TYPED

@(SP) ,~(SP)

;:PICKUP THE MODE

;sCALL FOR TYPEOUT

1(SP) ,$0FILL
(SP)+,$0MODE+1
#2,(SP)
$TYPON
#1,80FILL
#6,SOMODE +1

::SET THE ZERO FILL SWITCH
;2SET FOR SIX(6) DIGITS

R3,-(SP)
R4 ,~(SP)
R5,=(5P)
$OMODE +1,R4

;:SAVE R3
::SAVE R4
. :SAVE RS
;sGET THE NUMBER COF DIGITS TO TYPE

#5,80CNT

R4
#6,R4

;:LOAD ZERO FILL SWITCH
;.;NUMBER OF DIGITS TO TYPE
;;ADJUST RETURN ADDRESS

;sSET THE ITERATION COUNT

RS
3%

;:SUBTRACT IT FOR MAX. ALLOWED
;2SAVE IT FOR USE
;:GET THE ZERO FILL SWITCH
::PICKUP THE INPUT NUMBER
. :CLEAR THE OUTPUT WORD
;;ROTATE MSB INTO 'C**
;:G0 DO MSB

RS
RS
RS,R3
R3
$OMCDE
7%
#177770,R3
48
R4
5%
R4

;:GET LSB OF THIS DIGIT
:.'YVPE THIS DIGIT?
;BR IF NO
..GET RID OF JUNK
::TEST FOR O
; :SUPPRESS THIS 0?
;:BR IF YES
::DON'T SUPPRESS ANYMURE 0°'S

R4, $OMODE
$OFILL R4
12(SP) ,RS
R3

;;FORM THIS DIGIT

[AST

JRMMBY "M0S5/372 FCINL

SINARY

TO OCTAL

(ASCII)

TST

AND

TyPE

MACRO v04.00

ossmg 000060

052703

061
061 52

061256
061260
061262

(00040

5%:

104401 061306
105337 061310

7$:

110337 061306

003347
002402
005204

061264
061266
061220
061272
0612764
061302
061304
061306
061307
061310

000744
012605
012604
012603
016666
012616
000002
000
000
000

061312

000000

061311

000

4-APK=-81

8IS

20, ns

DIMAKE TMIS DIGIT ASCII

TYPE
DECB

13
$OCNT

1:G0 TYPE THIS DIGIT
*:COUNT BY 1

BIS

MOVB
BGT
BLT
INC

B8R
MOV
MOV
MOV
MOV
MOV
RTI
8$:
BYTE
BYTE
$OCNT: .BYTE
6%:

000002

000004

D
3
171:43:¢8 PAGE 37-1

$OFILL: .BYTE

$OMODE: .WORD

R3 és

2%
68
R4

2%
(S~)+ ,RS
(SP)+ R
(SP)+.R3
2(SP) ,4(5P)
(S5P)+.(5P)
0
0
0

TIMAKE ASCII

IF NOT ALREADY
S:SAVE FOR TYPING
“:BR IF MORE TO DO
“:BR IF DONE
::INSURE LAST DIGIT ISN'T A BLANK

;2SET THE STACK FOR RETURNING

; ;RETURN

::STORAGE FOR ASCII DIGIT

*:TERMINATOR FOR TYPE ROUTINE
::OCTAL DIGIT COUNTER
1:ZERO FILL SWITCH
P:NUMBER OF DIGITS TO TYPE

MACRD v04.00

4-APR-B1

JSBTITL
AL

11:43:28 PAGE

SEQ 0238

TYPE RQUTINE
A

SRR

'ROUTINE

TYPE

ASCIZ MESSAGE.

R R

MESSAGE MUST

TERMINATE

)

WiTW A O BYTE.

IoTHE ROUTINE WILL INSERT A NUMBER OF NULL (MARACTERS AFTER A L INE FEED.
"NO'!E‘I:
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER (MARA(TER,

;J*NOTEZ2:

$FILLS CONTAINS
THE NUMBER OF FILLER (CHARA(TERS REQUIRED.

'MOYES

$FILLC CONTAINS THE (HARACTER TO FILL AFTER.

'CALL
-1) USING A

.OR

TYPE

TRAP

[NSTRUCTION

JMESADR

JMESADR IS FIRST ADDRESS COF AN ASCIZ STRING

S$TPFLG

;1S THERE A TERMINAL?

JJHALT HERE IF NO TERMINAL
;s LEAVE

MOV
C(MPR

al2(SP) RO
SAPTENV, SENV

;;GET ADDRESS OF ASCIZ STRING
JsRUNNING IN APT MODE

BITR
8EQ

#APTSPOOL
, SENVM ; :SPOOL MESSAGE TO APT
62%
;:NO,GO CHECK FOR CONSOLE

.WORD
BIIB
BNE

O
; sMESSAGE ADDRESS
HAPTCSUP,SENVM ; ;APT (ONSOLE SUPPRESSED
60%
::YES,SKIP TYPE OUT

TYPE

ME SADR

.'.

105737
100002

000000
000430
010046
017600

$TYPE:

001173

1$:

122737

000002
000001

001242

132737

000100

001243

001011

001405
010037
737
000009

132737

001003

061364
06606€
000040

112046

001005
005726
012600
062716
000002
122716
001430
122716
001006
005726

001243

61%:
62%:

2%:

(SP) +

;o
1F TERMINATOR POP [T OFF

4%:

CMPR
BEQ

#HT, (SP)
8%

IST

CMPR
GNE

°8:
6%

001170

105366

000001

105337

061526
061644

7%:

2iNO,GO CHECK FOR APT CONSOLE

;sPUSH CHARACTER TO BE TYPED ONTO STACK

000011
000200

;:SAVE RO

(RQ)+,=(SP)

000002

RTI

YES

;;SETUP MESSAGE ADDRESS FOR APT
;:SPOOL MESSAGE TO APT

(SP)+ ,RC
#2,(5P)

;:BR IF

RO,61%
PC,$ATY3

MOV
ADD

123726

000770

MOovB

62%

60%:
3%:

061526
001172

002770
004737

MOV
JSR

RO,~(SP)

A 3

061644

001350
013746

MOV

BNE

105037

000755
004737

HAL T
8R

BNE

104401

001217

TISTB

BPL

ACRLF ,(SP)
5%

;3BR IF IT ISN'T THE TERMINATOR
::RESTORE RQ
;;ADJUST RETURN PC

; sRETURN

;s BRANCH IF

; JBRANCH IF NOT <CRLF>

(SP)+

+sPOP

$CHARCNT

::CLEAR CHARACTER COUNT

JSR
CMPR

PC,STYPEC
$FILLC,(SP)+

BNE
MOV

DE(CB

BLTY

JSR
DECB
BR

2%
$NULL ,~(SP)

1(5P)

PC,$TYPEC
$CHARCNT
'

STACK

<HT>

TYPE
$CRLF
(LRB

2121

THE

<CR><LF> EQUIV

;:TYPE A CR AND LF

..GET NEXT CHARACTER

;GO TYPE THIS CHARAC(TER
;IS IT TIME FOR FILLER CHARS.?

“IF NO GO GET NEXT CHAR.
..GEY # OF FILLER CHARS. NEEDED
;;AND THE NULL CHAR.

;DOES A NULL NEED TQO BE TYPED?

“:BR IF NO==GO POP THE NULL OFF OF STACK
.,GO TYPE A NULL
;DO NOT COUNT AS A COUNT
;:LOOP

CZRMMBO RMOS/3/2 FOTNL
TYPE ROUT INE

MACRO V(e.00

&4=APR-B1

11:43:28 PAGE

3B-1

SEC O

;HOR[ZONTAL TAB PROCESSOR
061502
061506
061512
061520
061522
061524
061526
061526
061532
061534
061540
061544
061550
061552
06155¢
061556
061560
061564
061570
061574
061576
061576
061600

061600
061604
061606
061614
061622
061624

061630

061632
061640
061642
061644
061646

112716

004737

132737

001372
005726
000724
105777
100022

017746
042716
122716
001012
105777
100375
117716

042716
122716
001366

000040
061526
000007

8%:

061644

$TYPEC:

117426

117422
177600

000023

101%:

117402

117376

177600

000021

102%:

005726
105777
100375
116677
122766

000002
000015

105037

061644

122766

000012

001003

000406

705527

000000
000207

9%:

108:

117360
117352

000062

000002

1%:

JSR

#' ,(SP)
PC.STYPEC

IS?

9%
(SP)+

2:TAB STOP

a$TKS
108

MOVR
8!TR
BNE
B8R

#7 ,$CHARCNT
2%

JsREPLACE TAB WITH SPACE

;sTYPE A SPACE

;:BRANCH [F NOT AT
:;POP SPACE OFF STA(K
;sGET NEXT (HARACTER

BPL
MOV
BI(
(MPB
BNE

2177600, (P>
#SXOFF . (SP)
102%

;iCHAR IN KYBD BUFFER?
;sBR IF NOT
;:GET CHAR
;iSTRIP EXTRANEOQOUS BITS
;JWAS CHAR XOFF
;:BR IF NOT

TSTB

asTKS

JIWAIT FOR (HAR

as$TKB, (SP)

::GET (HAR

#SXON, (SP)
1018

;oWAS 1T XON?
;:BR IF NOT

TST

(SP)+

JJFIX STACK

1STB
BPL
MOVB
(MPB
BNE
CLRB
BR
(MPR
BEQ
INCB

asTPS

JWAIT UNTIL PRINTER IS RFADY

2(SP) ,a$TPR
#(R,2(5P)

;:LOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
s BRANCH [F NO

1ST8

BPL
MOvB
BIC
CMPB
BNE

$CHARCNT
: . WORD
$TYPEX: RTS

$TKB, =(SP)

1018

2177600, (SP)

108

S$CHARCNT
$TYPEX

#LF,L2(SP)
$TYPEX
(PC)e+

:iSTRIP IT

:;E;?;-CLEAR CHARACTER C(OUNT

;1S CHARACTER A LINE FEED?
;sBRANCH [F YES
;s COUNT THE C(HARA(TER
;;(HARACTER COUNT STORAGE

MA( RO

MME

04,00

4=-APR=-B1

LSBTTL
it

11:43:78 PAGE

SCOPE HANDLER ROUTINE

22222222

**THIS ROUTINE

“«AND LOAD THE

222222

CONTROLS

THE

AR R

LOOPING OF

TEST NUMBER(STSTAM)

R R R

SUBTESTS.

XSRS

WiLL

INCREMEN!

INTO THE DiSPLAY REG. (D]SPLAY<7:(
)

*«AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
“»THE

SWITCH OPTIONS PROVIDED BY THIS ROUTINE

LOOP ON TEST
INHIBIT ITERATIONS

teSWi4=1
TeSWll=1

s+CALL

N
061650
061650
061652
061656
061664
61666
061672
061672

104410

004737
032777
001402
000137

~
(=

—

062512
040000

117270

062316

LOOP ON TEST IN SWR<7:0>

CKSWR

JSR

177060
000004

032777
001421
005046

000400

#B1T14,3a5WR

::LOOP ON PRESENT TEST?

JMP

$UVER

1:JUMP OVER SCOPE ROUTINE

022716
002411
011637
005316
006316
062716
013637
000547
005726

000067

117716
001414

105737

061502
022737
001455

5%
117216

BEQ

8% :
2%

063130

062056

XOR

aSWR, (SP)

MOV
ASL

(SP)

TESTERAAMAMA

::1F

RUNNING ON THE *XOR'‘ TESTER CHANGE

“ITHIS INSTRUCTION TO A *NOP'* (NOP=240)

::SAVE THE CONIENTS OF THE ERROR VECTOR
+:SET FOR TIMEOUT
S:TIME OUT ON XOR?
::RESTORE THE ERROR VECTOR
2360 TO THE NEXT TEST
*:CLEAR THE STACK AFTER A TIME OUT
::RESTORE THE ERROR VECTOR
*LOOP ON THE PRESENT TEST

(SP)

;:LOOP ON SPEC.

TEST?

::BR IF NO
*:CLEAR A TEMP. LOCATION

SPICKUP THE DESIRED TEST NUMBER

S:BRANCH IF BAD TEST NUMBER IN SWR
LiCHECK THE NUMBER IN THE SWR
*:BRANCH [F TEST NUMBER IS OUT OF RANGE
*:UPDATE THE TEST NUMBER
;;BACKUP BY ONE
“:SCALE

THE

TEST NUMBER AS AN INDEX

ADD
MOV
8R

#3SWOBTBL,
(SP)
D(5P)+ SLPADR
$OVER

cMP
MOV
MOV

#-1,CPSAVE
200%$
ERRVEC,=(SP)
#20008 .ERRVEC

P:SEE IF TIMEOUT WAS PREVIOUSLY RECORDED
*:KICK AROUND ROUTINE IF SO
P SAVE CONTENTS OF ERROR VECTOR
+-SETUP ‘TRAP' RETURN ADDRESS

MOy

#-1,(PSAVE

::SET CPU ERROR REGISTER TIMEOUT

ST
TSTB
8EQ

BEQ

ggv

20008:

2%
-(5P)

13
#67, (SP)
8%
(SP),$TSTAM

DEC

177777

THE

#8]T08,aSWR

BLT

000004
063130

FOR

BIT

BEQG
CMP

177766

CODE

AMERRVEC,=(SP)
#5% ,Q#ERRVEC
177060
(SP)+,@#ERRVEC
$SVLAD
(SPY+, (SP)+
(SP)+ .Q#ERRVEC
78

MOVB

062334
001122

000004
062042

YINO IF SW14=0

MOV
MOV
ST
MOV
BR
cMP
MO\
BR
BEQ
CLR

001116

177777

6% :;8a8488END OF CODE FOR THE XOR YESTERI#:##

117206

001117

FOR CHANGE IN SOF T=-SwR

BIT

000004

;:TEST

PC,STOP

1%:

;#aauaSTART

000004
061720

::;SCOPE=]0T

SCOPE

$XTSTR: BR

000416

013746
012737
005737
012637
000561
022626
012637
000521

:
$SCOPE

ARE
-

LOJP ON ERROR

**SW09=1

S *SW08=1

-l

[

MOV

(SP) +
SERFLG
38

;gg{(‘m.cpswf

220018, (SP)

--FORM THE ADDRESS OF TEST POINTER
::SET LOOP ADDRESS TO DESIRED TEST
1:GO LOOP ON THE TEST
SICLEAN THE BAD TEST NUMBER OFF OF
*:HAS AN ERROR OCCURRED?
“:BR IF NO

THE STACK

LIMOVE CPU ERROR REGISTER TQ SPSAVE FOR TEST

LISETUP RETURN ADDRESS

INDIZA

JRMMBO
Pt

RMOS/3/2

FCTNL

(62054
062056

0000(3)2
012637

(00004

062062

022737

177777

063130

062072

032737

0000017

063130

000001
001154
000000

177766

mANDLER RQ. iNE

262070

062100
062102
062110
062114

001430

001424
042737
013746
017646

TST

MACRD

20018:

012737

000176

0201154

062132

042777

007000

117014

011677

117022

062140
062142
82%};-(2)

1046177
012676
012637

062152

123737

001131

001117

062162

032777

0C1000

116764

0011264
:
001117
001206

001122

004000

116732

062160

101015

062170
062172
062200
062202
062206
062212

001404
013737
000446
105037
005037
000415

062224
062230
062232
062236
062244
062246

005737
001406
005237
023737
002024
012737

062214
062222

062254
062262
062266
062276
062300

062304
062310

62316
062324
062330
062332

062334

062334
062336
062340
062362

062344

062346
062350
262352
2356
062356

032777
001011

000000
001154

000001

001120

001210
000001

007206
001226

001124

001116
001122

JRESTORE

(MmpP

&= (PSAVE

JoSEL IF CPSAVE KAS (PU ERR REG TIMEOUT INDILATIIN

#3]1T00,CPSAVE

;;SEE IF

MOV

#176,SWR

BEQ

3%:

1%:

:.GET SOF TWARE SWR ADDRESS

;sGET CURRENT SWR VALUE

SERMAX ,$ERFLG

;;MAX. ERRORS FOR THIS TEST OCCURRED?

BIT

#B1709,aSwR

;:LO0OP ON ERROR?

BEQ
MOV
BR
CLRB
(LR
BR

BIT
BNE
TST
BEQ
INC
CMP
BGE
MOV

MOV
$SVLAD: INCB
MOVB
MOV

S$OVER:

(SP) ,aSWR

THE POWER MONITOR BIT 1S ON

s sBRANCH TO (ONTINUE ROUTINE [F (LEAR
JJCLEAR THE BIT FOUND TO BE SET
;JSAVE SWR ADDRESS
;:SAVE SWR VALUE

CMPR

EMT
MOV
MOV

MOV

001131
116632

2003%
#31700,1777¢6
SWR,=(5P)
a(5P) ,=(SP)

::BRANCH [F SO

#8”69 aSwWR

BM]
7%:

200%$

(ONTENTS OF ERROR vE(TOR

B8I(

CLR
MOVB

MOV
MOV
RTI
SMXCNT: S,

000067

$SWOBTAL :
.REPT
$TIN-1

0'!1662

.WORD

012176
012356
013430
013730
(014146

3
39-1

(SP) s ERRVE(

MOV

4%:

001120

005037
112737

010050
010250
011120
011456

N
11:463:/8 PAGE

MOV

BEQ
BIC
MOV
MOV

20038

001120
001206

062332
001116
001116
001122

013777
013716
000002
000005

2002%:

001230

013737
105237
113737
011637
011637

4=APK-BY

R']

062120

062126

v0S.00

177
(SP)t a(SP)
(SP)O,SUR
3%

4%
$LPERR, $LPADR
$OVER
$ERFLG
$TIMES
1%

#BIT11,aSWR
1%

$PASS
1%
$ICNT
$TIMES,SICNT
$OVER
#1,81CNT

SMXCNT ,STIMES
$TSTAM
$TSTNM,STESTN
(SP) ,$1.PADR
(SP) ,$LFERR

$ESCAPE
#1,SERMAX

;:DON'T ALLOW LOOP ON ERROR ON THIS fRROK
JoCALL SPECIAL POWER FAJL BIT ERROR (ALL
.;RESTORE SWR TO ORIGINAL VALUE
;:RESTORE SWR ADDRESS
::BR IF NO

;.BR IF NO
;:SET LOOP ADDRESS TO LAST SCOPE
;s ZERO THE ERROR FLAG
;:CLEAR THE NUMBER OF ITERATIONS TO MAKE
. sESCAPE TO THE NEXT TEST

;:INHXBIT ITERATIONS?
;BR IF YES

,,lF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
..INCREFENT ITERATION COUNT
;:CHECK THE NUMBER OF ITERATIONS MADE
;:BR IF MORE ITERATION REQUIRED
ssREINITIALIZE THE ITERATION COUNTER

;.SET NUMBER OF ITERATIONS TO DO
;s COUNT TEST NUMBERS
;.SET TEST NUMBER IN APT MAILBOX
;:SAVE SCOPE LOOP ADDRESS
;:SAVE ERROR LOOP ADDRESS

;:CLEAR THE ESCAPE FROM ERROR ADDRESS
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST

$TSTNM,aDISPLAY ;;DISPLAY TEST NUMBER
$LPADR, (SP)
. :FUDGE RETURN ADDRESS
;. FIXES PS
JsMAX. NUMBER OF ITERATIONS

. WORD
. WORD
.WORD
. WORD

TST1+2
TST2+2
TST3+2
TST4+2

;sSTARTING
;sSTARTING
;;STARTING
;sSTARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF TEST 1
OF TEST 2
OF TEST 3
OF TEST 4

. WORD
.WORD
.WORD
.WORD
.WCORD

1ST6+2
TST7+2
TST10+2
TST11+2
TST12+42

s +STARTING
;:STARTING
s sSTARTING
;;STARTING
ssSTARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

OQF TEST 6
OF TEST 7
OF TEST 0
OF TEST 1
OF TEST 12

TST5+2

;STARTING ADDRESS OF TEST S

=ANDLER ROUT INE

062360

15T

MATRD

(U600

4=-4PR-B1

I
17:43:¢8 PAGE

3
39-2

016454

JWURD

TST13e?

;iSTARTING ADDRESS OF

062366
366
062370

(15206
01550«
015754

. wORD
.WORL
.WORD

TST15+2
1ST16+2
7511705

;STARTING ADDRESS OF TEST
;:STARTING ADDRESS OF TEST
. ;STARTING ADDRESS OF TEST

062374
062376
0626400
062402

Q16530
017150
017514
020106

. WORD
. wORD
. WORD
.WORD

062362

062372

0626406
062406

016764

016204

.WORD
.WORD

T1ST25+2
T1ST26+¢2

;;STARTING ADDRESS OF TEST
;:STARTING ADDRESS OF TES?T

(026244

. WORD

062460
062462

033160
033520

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

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

032542

. WORD

034062
034406
035034

062472
062474
062476
062500
062502
062506

035512
036216
036616
037226
037626
040206

2 062510

041110

T1ST37+2

TST40+2
TST41+2
TST42+2
TST43+2
TST4442
TST45+2
TST46+2
TST47+2
TST50+2
TSTS1+2

TST52+¢2

TST53+2
TSTS4+2

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

TST60+2
TST6E1+2
TSTE2+2
TST63+2
TSTE4+2
TST65+2

.WORD
. WORD

TST27+2
TST30+2
TST312
1S132+2
TST33+2
TST3442
TST35+2
TSTSQO?

.WORD
. WORD

.WORD
. WORD
.WORD

040552

TST21+2
18722+2
TST23+2
TS724+2

TSTS55+2
TSTS56+2
TSTS57+2

TST66+2
1S167+2

;CROP PRIORITY TO A'1.0OW CONSOLE

;.STARTING ADDRESS OF
. sSTARTING ADDRESS OF
. :STARTING ADDRESS OF
;:STARTING ADDRESS OF

TEST
TEST
TEST
TEST /

;:STARTING ADDRESS OF
. sSTARTING ADDRESS OF
. :STARTING ADDRESS OF
. ;STARTING ADDRESS OF
. .STARTING ADDRESS OF
::STARTING ADDRESS OF
;:STARTING ADDRESS OF
;:STARTING ADDRESS OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

::STARTING ADDRESS
. ;STARTING ADDRESS
::STARTING ADDRESS
. :STARTING ADDRESS
;;STARTING ADDRESS
;:STARTING ADDRESS
;;STARTING ADDRESS
;:STARTING ADDRESS
;;STARTING ADDRESS
;:STARTING ADDRESS

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

;STARTING ADDRESS OF TEST
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF

; ;STARTING ADDRESS OF TEST
;:STARTING ADDRESS OF TEST
;;STARTING ADDRESS OF TES?T

;:STARTING ADDRESS OF TEST
. sSTARTING ADDRESS OF TEST
;;STARTING ADDRESS OF TEST
. ;STARTING
;. sSTARTING
. ;STARTING
. STARTING
;:STARTING
;sSTARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF
OF
OF

P 062524

Q12746
012746
000002

000140
062524

£6%:

g
v 062526

STOP:

MOV
MOV
RT]

#PR3,~(SP)
#64%,-(SP)

;:STARTING ADDRESS OF TEST
INTERRUPT

;:PUT NEW PS ON STACK
J3PUT NEW PC ON STA(K
::POP NEW PC AND PS

;RAISE PRIORITY T0 INHIRIT CONSOLE INTERRUPT
012746

(000240

MOV

#PRS ,=(SP)

TEST
TEST
TEST
TEST
TEST
TEST

;:STARTING ADDRESS OF TEST

5 062512
062512
062516
062522

TEST

020576
021144

026464
(027022
027310
(027576
030110
030410
030670
031172
031476
032114

062506

TES?

~ ;iSTARTING ADDRESS OF TEST

062432
062434
062636
062440
062442
062444
062446
062450
062452
062454

062464
062466
062470

;:STARTING ADDRESS OF

TST20+

021466
(022050
022366
023152
023676
024466
025252
025604

062456

TST14e?

.WORD

0626410
062412
062414
0626416
062620
062622
062424
0626426

06243C

JWORD

PUN) -ttt s 2
O YOS
N

RMOS/3/2 FOTNL

)

JRMMBO

;:PUT NEW PS ON STACK

“IRMMBO RMOS/372 FOTINL

5 0Pt

=ANDLER ROUT INE

[ A T

062530
822534
295
0 062536

012746
000002
000207

ST 1

MACRO v04.00

062536
6£5%:

-3

L=APR=B1

11:43:¢8 PAGE

MOV

865%,=(5P)

JaPUT NEW PC ON STACK
;iPOP NEW PC AND PS

RTS

~RETURN

RT]

39-12

SEQ 0243

MACRD v04.00

4=-APR-81

.SBTTL
C RAR

K
3
11:43:¢28 PAGE 40

ERROR HANDLER ROUTINE

AR A ARARANARARNARANARRARAARARARAARARRAARNANRRRRANRART
RN RRRR PR ERSIORS

$*THIS ROUTINE

;*SAVE

WILL

INCREMENT

THE

THE ERROR ITEM NUMBER AND THE ADDRESS OF

i*AND GO TO ERRTYP ON ERROR
;*THE SU]TCH OPTIONS PROVIDED BY
HALT ON ERROR
'SNTS

'SU13 1

;'SUO9=1

062540
062544
062546
062552
062554
062562
062570
062572
062576
062602
062606
062614
062622
062630
062632
062640
062642
062646
062650

062656

062660
062664
062672

062700
062702
062710
062714
062716

105037
104410
105237

001775
C13777
032777
001402
104401

005237
011637
162737
117737

032777
001060
122737
001454
105737

001047
022737
001445
013746
012737
013737
000406
012737
012716
000002
012637

063132

$ERROR:

001117

7%:

001116
002000

001212
001126
001132
000002
116312
001000

001132
001130
116324

000177

001130

063130

000004
062702
177766

000004
063130

062766
062772
062772
063000
063002

105037

063132

032777
001004
004737

020000

000402

063130

000004

022737
001420
032737
001414
042737

063130

000001

063130

001130
000177

063134

CLRB
CKSWR
INCB
BEQ
MOV
BIT
BEQ

IBSAVE

I'YPE
INC
MOV
SuB
MOvB
BIT
BNE
CMPB

BNE
CMP
BEQ
MOV
MOV
MOV

:
10008
1001%:

177777

000001

TSTB

177777

177777
062716

ERROR

BEQ

063132

062722
062730
062732
062740
062742
062750
062756
062764

113737
112737

1%:

1002%:

177766

063132
001130

1003$:
116154

1004%:

THIS ROUTINE

THE

ERROR (OUNT,

THE ERROR CALL

ARE:

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

'SU10 1

s*CALL

ERROR FLAG AND

MOV
MOV

RTI
MOV

; ;ERROR=EMT AND N=ERROR

;:CLEAR THE

ITEM NUMBER

ITEM BYTE SAVE LOCATION

“:TEST FOR CHANGE IN SOF T=SWR

$ERFLG
“:SET THE ERROR FLAG
78
“:DON'T LET THE FLAG GO TO ZERO
$TSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG

#BI1T10.aSWR
1%

LSBELL

..RING BELL

$ERTTL

(SP) , SERRP(C

#2 ., SERRP(
ASERRPC,SITEMB
#BIT09, aSWR
1004$
#177,$1TEMB
1004$

IBSAVE

1003$

#-1,CPSAVE

1004%
ERRVEC,=(SP)

#1000

:BELL ON ERROR?

TINO = SKIP

ERRVEC

}55;26_CPSAVE

#-1,CPSAVE

“COUNT THE NUMBER OF ERRORS

“:GET ADDRESS OF ERROR INSTRUCTION
;:STRIP AND SAVE THE ERROR ITEM CODE
*:SEE IF LOOP ON ERROR IS SET
*:BRANCH AROUND ROUTINE IF SO
Y:SEE IF THIS IS THE POWER FAIL CALL
* :BRANCH AROUND ROUTINE IF IT IS

S:SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE
*:BRANCH IF SO
*:SEE

CPSAVE HAS CPU ERR REG

:;BRANCH IF SO
::SAVE CONTENTS OF ERROR VECTOR
::SETUP

'TRAP'

TIMEOUT

RETURN ADDRESS

::MOVE CPU ERROR REGiSTER TO CPSAVE FOR TEST
;:SET

CPU ERROR REGISTER TIMEQUT

#1001$, (SP)

*:SETUP RETURN ADDRESS

(SP)+,ERRVEC

;:RESTORE
::SEE

CONTENTS OF

INDICATOR

ERROR VECTOR

CMP BEQ
BIT
BEQ
BIC
MOvVB
MOvB
BR

#-1,CPSAVE

CLRB

IBSAVE

::CLEAR IBSAVE SO 2ND TIME THROUGH EXITS

BIT

#BIT13,aSWR
20%

;:SKIP TYPEOUT IF
::SKIP TYPEOUTS

BNE
JSR

IMDICATION

CPSAVE MAS CPU ERR REG TIMEQUT

INDICATION

1004$
#BIT00,CPSAVE
1004$

*:BRANCH IF SO
:-SEE IF POWER MONITOR BIT
*:BRANCH IF OK

$ITEMB. IBSAVE
#177,$1TEMB
1004$

- -MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL
*iSET SITEMB TO SPECIAL POWER FAIL POINTER
*:BRANCH OVER IBSAVE CLEARING

#B1T00,177766

PC,ERRTYP

IS SET

IN CPU ERR REG

::CLEAR THE BIT FOUND SET

SET

2:G0 TO USER ERROR ROUTINE

CIRMMBO RMOS/3/72 FCTINL

FRROR HANDLER ROUTINE

IXT

MACRO v04.00

104401

001217

122737
001007
113737

000007

001242

001130
066076

063034

004737
000

000
000777
105737

001005
005777

100002
000000

20%:

21%:

22%:
2%:

063132
116102

001000

116066

001124
01210

4%:

001210

022737
001001
000000

041630

105737
001210
000002
000000
000000

063132

38:

000042

5%:

6%:

CPSAVE:
:
IBSAVE

11:43:¢8 PAGE 40-1

TYPE

.SCRLF

(MPB
BNE
MOVAB
JSR

#APTENV,SENV

TSTB

BNE

TST
BPL
HALT

104410

032777
001402
013716
005737
001402
013716

4-APR-B1

2%
$ITEMB,21%

PC,83ATY4

0
¢
22%
IB5AVE

aSWR

MoV
TST

BEQ
MOV

JJRUNNINC IN APT MODE
“INO,SKIP APT ERROR REPORT

L:SET ITEM NUMBER AS ERROR NUMBER
*:REPORT

FATAL

ERROR

TO APT

;:APT ERROR LOOP

;.SEE IF IBSAVE IS LOADED

s oBRANCH IF NOT = NO HALT ON Pwk MON BIT
;:HALT ON ERROR

FRROR

;:SKIP IF CONTINUE
. sHALT ON ERROR!

;sTEST FOR CHANGE [N SOF T=SWR

(KSWR

BIT
BEQ

SEQ 0245

#B1T09,aSWR

3]
$LPERR, (SP)
$ESCAPE
5%
$ESCAPE, (SP)

;;LO0P ON ERROR SWITCH SET?
;:BR IF NO
;:FUDGE RETURN FOR LOOPING
;.CHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE

. :FUDGE RETURN ADDRESS FOR ESCAPE

cMP
BNE
HALT

#SENDAD ,a#62

;;ACT=11 AUTO-ACCEPT?
::eggNCH IF NO

TSTB
BNE

IBSAVE
7%

;:SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
::m BACK TO CALL ORIGINAL ERROR

.WORD
.WORD

0
0

*:LOCATION TO SAVE CPU ERROR REG CONTENTS

RTI

*:LOCATION TO SAVE ITEM BYTE

“JRMMBO RMOS/372 FOTNL

ERROR

TYPEQUT ROUTINE

TST 1

MACRO v04.00
.SBTTL

ERROR TYPEOUT ROUTINE

: *REGARDING THE DETECTION OF AN ERROR AS FOLLOWS:

LUNIT NUMBER,

-paocnm COUNTER ARE

-o~e

104414 .

14 063136

032777

020000

;g 063146

000137

063774

15 063144

18
19

001402

20 063152
21 063156
22 063162

104401
104401
013746

063166
063170
e 063171

104402
003
000

25 063172
26 063176

116010

OR MORE

;TYPE

001276
000026

012737
022700

066743
000024

063260

32 063222
23 063230

012737
022700

066736
000025

063260

36 063236
37 063244
38 063250

012737
022700
001004

066750
000027

063260

2} 063260

000000

042700

;(13 063220

001414

28 063206
29 063214

33'2 063234

39 063252
40 063256
43

4, 063262

45 063266
46 063274
47 063300

201406

104401
104401

064045

005037

064000

013737
104401
013746

063306

104403

48 063310

005037

063306
063307

49 063314

177740

003
000

112737

064000

001130

064002

LINE;

FORMATTED AND PRINTED ON

;INHIBIT

JMP

27%

SYES!!

DRIVE

TYPE,

INO!!

TYPEOUTS??

TEST NUMBER,

ERROR NUMBER,

TYPE
TYPE
MOV

LSCRLF
"ERTY00
SUNIT,=(SP)

;TYPE 'DRVA"’
*:SAVE SUNIT FOR TYPEOUT

TYPOS
BYTE
.BYTE

3
0

::GO TYPE==-OCTAL ASCII
::TYPE 3 DIGIT(S)
::SUPPRESS LEADING ZEROS

'DRIVE

MOV
MOV

TYPE'

RMOS,

AND

;:TYPE DRIVE NUMBER

RMO3 OR RMO2 FOR UNIT ANDER TEST

$BASE RO
RMDT (RO) ,RO

:GET RM BASE ADDRESS
“GET DRIVE TYPE REGISTER

#SRMO3, 3%
#24 R0

:GET ASCII DRIVE TYPE
:1S DEVICE AN RMO3 ?

#177740,R0
28

:SAVE DRIVE TYPE BITS AND
SYES !}

MOV
(MP

#SRM02, 3%
#25 ,R0

;SAVE ASCII DRIVE TYPE
:1S DEVICE AN RMO2 ?

MoV
cMP
BNE

#SRMOS , 38
#27 ,RO
48

:SAVE ASCII DRIVE TYPE
+1S DEVICE AN RMQS ?
:NO !

WORD

*DRIVE TYPE MESSAGE IS STORED MERE

BEQ

;TYPE

FIRST

#SW13,aSWR

TYPE
TYPE

LERTYOS

TEST NUMBER,

(LR

MoV
TYPE
MOV
TYPOS

064002

SUCCEEDING LINES;

SAVREG

BEQ

4$:

1S ASSEMBLED,

BIT

MOV
CMP

2%:

TECT NUMBER, ERROR NUMBER AND

THE

ERROR MESSAGE
.

BIC

3$:

001226
064015
064000

THE

8EQ

is:

013700
016000

27 063202

ERRTYP:

TYPE,

PRINTED ON

.PAIRED LINES OF ERRCR MEADERS AND ERROR DATA ARE PRINTED

;TYPE UNIT NUMBER,
*PROGRAM COUNTER

0C1217
064010
001234

DRIVE

.ERROR MESSAGE

**AFTER

13 06371346

—

11:43:¢8 PAGE 41

;*THE ERROR TYPEQUT ROUTINE ASSEMBLES AND PRINTS [NFORMATION

r———

4-APR-B1

STYPE ' = '
*TYPE DRIVE TYPE

ERROR NUMBER AND PROGRAM COUNTER

TSTNMB

$TESTN, TSTNMB
LERTYO1
TSTAMB, = (SP)

BYTE
BYTE

3
0

MOVB

$ITEMB,ERRNMB

(LR

SYES !

ERRNMB

;LOAD TEST NUMBER FOR
;TYPE "'TSTA""

*:SAVE TSTNMB FOR TYPEQUT

::TYPE

TEST NUMBER

;G0 TYPE=-OCTAL ASCII

::TYPE 3 DIGIT(S)
: SUPPRESS LEADING ZEROS
L 0AD ERROR NUMBER fOR

: TYPEOUT

CZRMMBO RMOS/3/2 FCINL TST 1

FRROR

TYPEQUT

50 063322

MACRO V04.00

ROUT INE

001406

4=-APR-81
BEQ

51 063324
52 063330

1046401
013746

063334

104403

TYPOS

063337
53 063340

000
104401

BYTE
TYPE

063356

013746

063350

104403

- Ch3353

001

57 063354

BYTE

064034

001132

005737

064002

063774

61 C63366
62 063372

104401
105037

001217
064006

69
70
71
72

105037
013700

122700
(001003
012700
000405

063422
063424
063426
063430

006300
006300
006300
062700

;g 063436

001507

;2 063434

78 063440
79 063442

80 063444
81 063450
82 063454
83 063456
B4 063460
85 063464
86 063466
87 063472
88 063474
89 063500
90 063502

91 063506
92 063510
93 063514

9% 063522
95 063524
96 063526

97 063532
98 063536

011001

012102
001505

010237
005037
112203
001454
122703
001003
105037
000770
122703
001765
122703
001007
105237
132737

001372
000407

105237

122703
(001002

MOV

TYPOS
AAYTE

000137

66 063412
67 063414
68 063420

BYTE

001002

63 063376
64 063402
65 063406

5%:

006

58 063360

23 063362

TYPE
MOV

003

54 063344

063352

(64025
064002

7%:

8%:
001562

9% :

:TYPE

10%:

063612
064004

11%:

000015

064007

0646007

000040

LERTYO?2
ERRNMB , - (SP)
3

;SKIP IF NO ERROR CALLED

sTYPE "ERRA''
;;SAVE ERRNMB FOR TYPEOUT
;s TYPE ERROR NUMBER
;G0 TYPE=-=OCTAL ASCI!

JiTYPE 3 DIGIT(S)
ERTYO3

fERRPC.-(SP)
6
1

;:SUPPRESS LEADING ZEROS
;TYPE "L’

;:SAVE SERRPC FOR TYPEOUT
;:TYPE PROGRAM COUNTER

;:G0 TYPE=-=OCTAL ASC!I

ssTYPE 6 DIGIT(S)

;:TYPE LEADING ZEROS

ERRNMB

JWAS AN ERROR CALLED?

JMP

27%

INO==EXIT

TYPE
CLRB

LSCRLF
BOTFLG

JYES=TYPE CRLF
;CLEAR BOT FLAG

CMPB
BNE
MOV
BR

#177 ,R0
8%
#PFECH,RO
9%

JBRANCH IF NOT
JMOVE POWER FAIL ERROR CALL

ASL
ASL
ASL
ADD

MOV
BEQ

064007
000007

TST

BNE

CLRB
MOV

064052

000011

;s GENERATE POINTER TO ERROR TABLE UNLESS FRROR NUMBER IS 0

6$:

064007
064002
000177

000012

11:43:¢28 PAGE 41-1

12%:

064007

13%:

14%:

CHRCNT
ERRNMB, RO

MoV
(LR
MOVR
BEQ
(MPB
BNE
(LRB
BR
CMPR
BEQ
CMPB
BNE
INCR
BITR

BNE
BR
INCH

(MPR
BNE

JCLEAR CHARACTER COUNTER
;RO POINTS TO FIRST OF
JSEE IF THIS ERROR CALL IS SPECIAL POWER FAJL CALL

RO
RO
RO
#$ERRTB-8.
,R0O

;FOUR ENTRIES
s TABLE

(RO ,R1

;?;Bfglurs TO ERROR ME SSAGE

19%

;sBRANCH IF NO ERROR MESSAGE

THE ERROR MESSAGE

MOV
BEQ

BF( IF YES

(R1)+,R2
19%
R2,18%
BOTADR
(R2)+,R3
17%
- #(R,R3
12%
CHRCNT
1%

#LF,R3
1%
#HT ,R3

14%
(HRCNT
#7,CHRCNT

13%
15%
(HRCNT

' ,R3
15%

TABLE TO RO

IN ERROR

;R2=ADDRESS OF MESSAGE STRING
;BRANCH IF END OF MESSAGE
;LOAD ADDRESS OF STRING
;CLEAR BOT ADDRESS
JEND OF STRING??
2YERS:
:CARRIAGE RETURN??
;NO!!
*YES=CLEAR CHAR COUNT
sGET NEXT (CHARACTER

sLINE FEED??
JYES=GET NEXT (HARACTER
JHOR]ZONTAL TAB??
;NO!!
JADJUST

C(HARACTER COUNT

S INCREMENT (HARACTER (OUNT

JSPACE??
JNO!!

C7RMMBO RMOS/3/2 FOTNL

ERROR

TYPEOUT ROUTINE

99 063540
100 063544
101 063552
102 063554

103 063560
104 063562

105 063566

nNOSsNON

SRRERE
BommnisnCl
SRSERT REETLSERRIZEE

)

ARt v S it St I

D o

) ol el il el el ol ol ol ok ol o

ettt v it
FEIXRERERIIIR

108 063600

063704

063706
063710
063712
263716
063720
063722
063724

139 063726
140 063730
141 063732
142 063734
143 063736
144 063740
145 063742
146 063744
147 063746
148 063750
149 063752
150 063754
151 063756
152 063760
153 063764
154

155

—

IST

010237

064004
000100

013704
001007

064004

122737
103340

104401
105037

013702
000726
105044
112737
104401

000000

105737
001707
104401

105037

013702
010237
112742
105722

MACRO v04.00

064007

15%:

177777

064006

16%:
17%:
18%:

001217

016002
016003
012137
001433

063710

104401

000000
104401

005702
001767
012204
012305

001217

TYPE

20%:

21%:

23%:

064042

1044017

001217

-(R4)

#-1,B0TF..G
BOTFLG

10%

,SCRLF

BOTFLG
CHRCNT
BOTADR,R2
R2,18%
#' ,=-(R2)
(R2)+
1%

;TYPE

JREPLACE SPACE

;SET BOT FLAG

s TYPE ERROR MESSAGE

;:8§'SYR1NG TRUNCATED??
;YES=TYPE

CRLF

;CLEAR BOT FLAG
;CLEAR CHARACTER COUNT
;SETUP R2 FOR TESTING
;SETUP 18% FOR TYPING

JRESTORE SPACE
;RESTORE R2
;TYPE REST OF STRING

.SCRLF

; (ASSUME NO DATA)

MOV
MOV
MOV
BEQ

TYPE

4(R0O) ,R2
6(R0) ,R3
(R1)+,21%
27%

STRING

;STRING ADDRESS GCES HERE

TYPE

27%

POINTS TO ERROR HEADER TABLE

:BRANCH IF NO HEADER

:R2 POINTS TO DATA ADDRESS TABLE
;R3 POINTS TO FORMAT TABLE

;PUT HEADER ADDRESS FOR TYPE
;BRANCH IF END OF HEADERS

; (ASSUME END OF DATA)

.WORD

;HEADER ADDRESS GOES HERE

TST

:zsre WITH HEADER??

MOV

(R3)+,RS

;R4 POINTS TO DATA ADDRESS
;RS POINTS TO FORMAT
sWHAT KIND OF DATA??

TYPE

TSTR
BM]

B8R

LSCRLF

20%
(R2) +,R4
(RS)+
24%

238

a(R4)+,~(SP)

BR
MOV

25%
?(R&)+,-(SP)

25%:

TST
BEQ

(R4)
26%

)

228

TYPOC

TYPBN

TYPE

i YPE
BR

;BINARY
;OCTAL
;DECIMAL

25%

a(R4)+,-(SP)

26%:

CRLF

;sCLEAR CHARACTER COUNT
JSET UP R2 FOR TESTING

;R1

BEQ

MOV

248 :

1046401

LSCRLF

CHRCNT
18%,R2
11%

SPACE

SEND OF LINE??
JNO!!
sGET ADDRESS OF LAST SPACE
;BRANCH IF SPACE DETECTED

2(R0) ,R1

TYPDS

104406

16%

;SAVE ADDRESS OF

MOV

104402

000742

19%:

BEQ

000402
013446

BOTADR,R4

41-2

:TYPE ERROR HEADER AND ERROR DATA

22%:

001403
013446
104405
000405
013446

000760

TYPE
.WORD
TSTB

BEQ
MOV

105725
100407

005714
001403

CLRB

MOvB

CLRB
CLRB
MOV
MOV
MOVB
TSTB
BR

063612
000040

104401

CLRB
MOV
BR

BEQ

000677

001444

R2,BOTADR
864, ,CHRCNT
11%

TYPE

064004

000002

MOV
CMPB
BHIS

BNE

001217
064006
064007

016001

11:43:¢28 PAGE

MOV

001217
064007
063612

4-APR-81

ERTYO4

JSCRLF
20%

;MORE DATA??
JNO!!

JYES-TYPE 2 SPACES

;AND CONT INUE
JTYPE

ONE

BLANK L INF

JBEFORE NEXT HEADER

JRMMB)

ERROR

RMOS/3/2

FCINL

TST

MACRO

04.00

4-APR=-B1

11:43:¢8 PAGE

41-3

TYPEQUT ROUTINE

;2; 063776

156 063774

000207

1044°5

27%:

159 064000
160 064002

000000
000000

162 064006
}gz 064007

000
000

161

064004

165 064010

166 064015

C00000

104

054

055

040

172 064052

063062

064150

064166

]I;g 064066

120

127

176 064150

064154

040

000000

177 064154
178
179 064166
180 064170

063130

000000

182 064176

000

181

064174

103

064170

064176

BOTFLG:
(HRCNT.

.BYTE
.BYTE

O
C

;BOT FLAG
s CHARACTER (OUNT

ERTY02:
ERTYQ3:

040
064066

JTEST NUMBER
;ERROR NUMBER

105
120

170 064045
173 064062

O
O

ERTY00:

126

040
040

171

.WORD
.WORD

126

054
054

040

TSTNMB:
ERRNMB:

122

167 064025
168 0640

169 064042

BOTADR:

040

120

000

125

RESREG

RTS

.WORD

aDRv#a

.ASCIZ
.ASCIZ

@,
a,

.ASCIZ

FRTYO4:

.ASCIZ

.EVEN

PFECH:

PFECHT:

PFECH2:
PFECH3:

PFECH4:

JBEGINNING OF

.ASCIZ

ERTYQ1:

ERTYO5:

.ASCIZ

a,
a

TEXT ADDRESS

TEST#a

ERR#Q
PC=a

a - @

PFECH1,PFECH2,PFECH3,PFECH4 ;WORDS DEF INING TABLES BELOW

.+4,0

.esgél
.EV

.+4,0

?POWER MONITOR BIT IN (PU ERROR REGISTER FOUND SET?

ASCIZ
.EVEN
.+2
.WORD

CPSAVE,O

BYTE

0,0

.+2

?CPUERREG:

_JRMMBO RMOS5/3/72 FOTNL
TTY INPUT ROUTINE

1:643:28 PAGE

MACRC

TTy

INPUT

&
42

ROUTINE

'.'.'........l'.".."....'....Q.".Q...'.'."..'...'...'..'0..."

CENABL

B2
064206

LSB

$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.
.EVEN

064207

0
0
0
i

JNUMBER OF ITEMS IN QUEUE
.o INPUT POINTER
- ¢sOUTPUT POINTER
;. TTY KEYBOARD QUEUE

s*TK INITIALIZE ROUTINE
s*THIS ROUTINE WILL INITIALIZE T HE TTY KEYBOARD INPUT QUEUE
;*SETUP THE INTERRUPT VECTOR AND T TURN ON THE KEYBOARD INTERRUPT

SeCALL:

064210
064214
064222

064236
0646244
064250
064256

005037
012737
013737
012737
012737
005777
012777
000207

064200
064206
064202
064260
000200

064202
064204
000060
000062

000100

114702

114712

i
S

JSR
RE TURN

PC.STKINT

$TKINT:

(LR
MOV
MOV
MOV
MOV
TST
MOV
RTS

$TKONT
#$TKQSRT,$TKQIN
$TKQIN,$TKQOUT
#STKS
,a# TKVEC
RV
#200,a#TKVEC+2

;*TK

SERVICE

a%TkB

#100,28TKS

;sCLEAR COUNT OF ITEMS IN QUEUE
;:MOVE THE STARTING ADDRESS OF THE
s:QUEUE INTO THE INPUT & CUTPUT POINTERS.
;2INITIALIZE THE KEYBOARD VECTOR

:2'BR"

LEVEL 4

;:CLEAR DONE FLAG
;2ENABLE TTY KEYBOARD INTERRUPT
;;RETURN TO CALLER

ROUTINE

NN WWWINW

ZFER ¥ R R RRRRER 33 EEREE
'3
3
ARISRETS FOR8 INIFE

;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;*IT IN THE QUEUE.
;*1F THE CHARACTER IS A "'CONTROL=C'' (*C) STKINT IS CALLED AND
:*UPON RETURN EXIT IS MADE TO THE "‘CONTROL-C'' RESTART ADDRESS (SHUT)
117746

042716
021627
001002
005726
000002
021627
001007
104401
004737
005726
000137
021627
001004
022737
001500

$TKSRV: MOVB

114676
177600
000021

81C
CMP
BNE
TST

30%:

000003
065406
064210

(MP
BNE

TYPE

JSR

TST
JMP
(MP

065450
000007

000176

001154

000001

064200

001212

RTI

BNE

#°C177.(SP)
(SP) ,#$XON

30%

(SP)+

(SP) 43
18
LOONTLC

PC,STKINT
(SP)+

SHUT
(SP) ,#7

CMP

#SWREG, SWR

{MP
BNE

#1,8TKONT

BEC

2%:

$TKB, - (SP)

TYPE

3%
JSRELL

;:sPICKUP THE CHARACTER
::STRIP THE JUNK
;1S IT A RANDOM XON?
;;BRANCH [F NO
;sCLEAN RANDOM XON OFF STACK
: ;RETURN
;1S IT A CONTROL C?
;;BRANCH IF NO

;.TYPE A CONTROL-C

(*C)

;. INIT THE KEYBOARD
;:CLEAN UP STACK
;;CONTROL C RESTART
;1S IT A CONTROL G?
J
; ;BRANCH IF NO
;:1S SOFT=SWR SELECTED?
;G0 TO SWR CHANGE

;:1S THE QUEUE FULL?
; BRANCH IF NO

JJRING THE TTY BELL

JRMMED RMOS/3%72 FOINL
"Ty INPUT ROUTINE

064360

064362
066364
064370
064372
064376
064400

064404

0646606

TST

000451
021627
001021
005077

0057
105777

100375

000023

114554

000021

064424

012777

000100

064434
064440

005237
021627

064200
000140

064446

021627

000175

064454
064460
064466

042716
112677
005237

000040
177516
064202

064506

000002

042716

064422

001366

064452

064470
064476
064500

000002

002405

003002

023727
001003
C12737

3%:

114562

(022627

064412

064444

4-APR-B1

18T

114550

064432

,04.00

005726

117746

064416

MAIRD

31%:

;sCLEAN (HARACTER OFF

BPL

(SP)+
a%$TKsS
318

;3CLCW CHAR OFF STA(K
;iWAIT FOR A (CHAR

BIC

&L 177 (SP)

8NE

ST
TSTR

cMP

114526
32%:

064207

064206

064202

S8:
-

#100,287TkS

INC
CMP

S$TKCONT
(SP) #4140

CMP

(SP) ,#175

RT]

BIC
MOVR
INC

(MP
BNE
MOV
RTI

:*SOF TWARE
:*SERVICE

022737
001124

064524

100121

066520
064526

064532
064536
064542

000176

105777

114434

117746

114430

042716
021627
001300

001154

STA(k

;;LO0P UNTIL ITS THERE
2sGET

THE

(CHARAC(CTER

JiMAKE IT 7=-BIT ASCII
;1S IT A CONTROL=-Q?

;2BRANCH IF NO

;;REENABLE TTY KEYBOARD INTERRUPTS
. sRETURN

;s COUNT THIS CHARACTER
;1S IT UPPER CASE?

. ;BRANCH IF

YES

A 3

;;BRANCH [F

YES

#4640, (SP)
(SP)+,a%TKQIN
$TKQIN

JIEXIT
3:1S IT A CONTROL=S?
;sBRANCH IF NO
;:DISABLE TTY KEYBOARD INTERRUPTS

;:1S IT A SPECIAL (HAR?
;sMAKE IT UPPER CASE
;;AND PUT IT IN QUEUE
;JUPDATE THE POINTER

$TKQIN,#STKQEND ; ;GO OFF THE END?
5%
; sBRANCH IF NO
#$TKQSRT,$TKQIN ;;RESET THE POINTER
s ;RETURN

".'Q'...'.'Q'..."..".'.'.Q....'."'l..'.'."'........""'.'

;*ROUTINE

064510
064516

a$TKB,=(SP)

MOV

RGT

064202

5$
(SP) ,#23
32%
as$TksS

(SP)o 021

BLT

A ¥

42-1

(SP)+

BR
(MP
BNE
CLR

MOVB

177600

11:43%:¢8 PAGE

SWIT(H REGISTER CHANGE ROUTINE.

IS ENTERED

THE

FROM THE

TEST FOR CHANGE

TRAP HANDLER,

IN SOF TWARE

AND WILL

SWITCH REGISTER

:*CALL WHEN OPERATING IN TTY INTERRUPT MODE.

$CKSWR: (MP
BNE

ISTR

BPL

MOVB

177600
000007

BIC
MP
BNE

#SWREG, SWR
15%

::1S THE SOFT-SWR SELECTED
SIEXIT IF NOT

158

SC1F NOT, EXIT

@$TkS

a$TkB,-(SP)

#AC177,(SP)
(SP) &7|
2%

TRAP

221S A CHAR WAITING?
SIYES

“IMAKE IT 7-BIT ASCII
::1S IT A CONTROL-G?
”&o“?rirm IT IN THE TTY QUEUE
5é

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

;*CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
;*ROUTINE

064544
064552
064554
064556
064562
064566

123727
001674
005726
004737

0646574
064600
064606
064610

104401
104401
013746
104402

005077
112737

001150

000001

064210
114372
000001

001151

065420
065425
000176

OR FROM THE

SOFYHARE

SWITCH REGISTER

TRAP (ALL,

AS A RESULT

;*CONTROL=G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.

&8:

CMPR
BEQ
TST
JSR

SAUTOB, #1
2%
(SP)+
PC,$TKINT
a$TKS
#1,8INTAG

J;ARE WE RUNNING IN AUTO-MODE?
;sBRANCH IF YES
;:CLEAR CONTROL-G OFF STA(K
;.FLUSH THE TTY INPUT QUEUE
;;DISABLE TTY KEYBOARD INTERRUPTS
;:SET INTERRUPT MODE INDICATOR

TYPE
TYPE
MOV
TYPO(

LSINTLG
. SMSWR
SWREG,=(5P)

;;ECHO THE CONTROL=G (*G)
;o TYPE CURRENT CONTENTS
;. SAVE SWREG FOR TYPEQUT
2.G0 TYPE=-=QCTAL ASCII(ALL DIGIT

(LR
mMov8
$GTSWR:

RMOS/ 572 FOTNL
INPUT ROUTINE

RMMB(

TTy

064612
064616

I1ST
-

104601

0654 3¢

105777
100375

114332

117746

021627
001015

005046
005046

062716

104401

062706
123727

001003
012777
000137

001003
012777
000002
004737
021627
002420
021627
003015
062726
005766
001403
006316
006316

006316

005266
056616
000667
104401

000720

(LR
(LR

F
PAGE

JOSMNEW

-(SP)
-(SP)

4
42-2

;;PROMPT FOR NEW SwR
;sCLEAR (OUNTER
s3THE NEW SwR

MOVA
BIC

B C177,(SP)

A$TKE, = (SP)

C2iPICK UP CHAR

000003

CMP
BNE

(5~) ,#%
9%

cIS IT A CONTROL=C?
;sBRANCH [F NOT

ADD
CMPH
BNE
MOV
JMP

&6, SP

s +CLEAN UP STACK
;sREENABLE TTY KEYBOARD [NTERRUPTS?
;:BRANCH IF NO
;i ALLOW TTY KEYBOARD INTERRUPTS
;o CONTROL=C RESTART

TSTR

177600

065406
000006

TYPE

00115

000007

000120
065450

114264

00000é

123727

TYPE

11:43:/8

11432¢

062706
000737

104401

19%:

4-APR=BT

a%Tks
7%

0C0025

021627
001022
005766
001403
016677
062706

04,00

BPL

021627
001005
104401

MACRD

8%:
9%
:

065413

108:

000015
000004

00000

000100

114170

114212

11%:

14%:

15%:

16%:

000067

000060
000002

001216

BEQ
MOV

ADD
TYPE
(MP8

BNE
MOV
RT]

JSR
Mp
8LT
cMp
BGT
BIC

INC
BIS

DSARL

(SP) ,#25

108

LSCNTLU

(SP) ,#15
16%

ASL
ASL
ASL

18%:

SHUT

(MP
BNE

TST

177776

#100,2%1kS

#6,SP
19%

BEQ

000002

$INTAG,#1

TYPE
ADD
B8R

TST

000002
000006
001217
001151

061526
000060

CMP

BNE

JOINTLC

B8R

TYPE
B8R

LS8

4 (SP)
118

::CHAR

THERE?

::1F NOT TRY AGAIN

JIMAKE JT 7-BIT ASCII

;.YES, ECHO CONTROL=C

(*C)

;:1S IT A CONTROL=-U?

; sBRANCH IF NOT
;.YES, ECHO CONTROL-U (*u)
;. IGNORE PREVIOUS INPUT

JLET'S TRY IT AGAIN
;218 1T A <CR>?

;:BRANCH IF NO

#6,SP

2;YES, IS IT THE FIRST (HAR?
;;BRANCH IF YES
;:SAVE NEW SWR
;;CLEAR UP STACK

#1
SINTAG,
15%
#100,987kS

;sRE-ENABLE TTY KBD INTERRUPTS?
:;BRANCH IF NOT
;:RE-ENABLE TTY KBD INTERRUPTS

2(SP) ,asSwWR

JSCRLF

PC,STYPEC
(SP)
, #60
18%
(SP),#67

18%

#6(, (SP)+
2(SP)
173
(SP)
(SP)
(SP)

2(SP)
=2(5P), (5P}
7%

S
$QUE

208

;;ECHO <CR> AND <LF>

; :RETURN

;sECHO (CHAR
;:CHAR < 0?

. ;BRANCH [F

;:CHAR > 7?

YES

;;BRANCH ]F YES
;sSTRIP=0OFF ASCII
;:1S THIS THE FIRST (HAR
;;BRANCH IF YES

;:NO, SHIFT PRESENT
CHAR GVER TO MAKE
i
ROOM FOR NEW ONE.
28
;KEEP COUNT OF (HAR
;sSET IN NEW CHAR

;:GET THE NEXT ONE

;:TYPE

2<CR>LF>

JiSIMULATE CONTROL=U

".'l"Q..".'Q"..Q.".'.'Q.......'..'."'Q"'.'...".QQ.""..'t!

GMOS/3/2 FCIML 10T
INPUT ROUTINE

| JRvME

MATRT

L=-APR=-B1

06,00

11:43:78 PAGE

;*THIS ROUTINE Wittt
JoCALL:

065052
065054
065062

065070
065074
065976
065076
065102
065104
065110
065114
065122
065130
065132
065140

011646
016666
005066

00576
012746
000002

000004
0000C4

000002

005237
023727
001003
012737
000002

064204
064204

064207

064206

064204

117766

064200

177070

;o (HARACTER IS ON THE STACK

$SRDCHR:

MOV

";:PUSH DOWN THE PC AND

$TKCNT

DEC
MOVB
INC

$TKCNT
. :DECREMENT THE COUNTER
4 (SP)
23 TKQOUT
;.GET ONE CHARACTER
$TKQOUT
:;UPDATE THE POINTER
$TKQOUT ,#STKQEND ;;DID IT GO OFF OF THE END?

CMP

BNE

MOV
RT]

28:

(SP) ,=(SP)

:'
P
- &

065376
065406

2%
; :BRANCH IF NO
#$TKQSRT,$TKQOUT ;;RESET THE POINTER
; sRETURN

AR A AR AR AR

000177

10%:

065374
6$:

06537¢

(SP)+,(R3)
#177,(R3)
5%

BNE

000134
065374
000025

2'\,9%

MOV
DEC
cMp

#-1,(5P)
R3
R3,4#$TTYIN

TYPE

5%:

065374
78 :

(SP)

MOVRB

BLO
MOVR

065374
065374

R3,=(SP)
-(SP)
#STTYIN,R3
#$TTYIN+8.
,R3

MOVB
(MPRB
BNE

TYPE

BR
TST
BEQ
MOVA
TYPE
(LR

(MPR
BNE

.9¢%

4%
(R3),9%
,9%

’$
(SP)
Y
#'\,9%
.98
(SP)

A AR

AR TR ARAARAARN AR NN A TR T ANA A AR

INPUT A STRING FROM THE

TST

000134
065374
177777

RN AN

BLOS

RDCHR

;.GET READY FOR A (HARACTER
;:PUT NEW PS ON STACK
J:PUT NEW PC ON STACK
. +sPOP NEW PC AND PS
JIWAIT ON A CHARACTER

RDL IN
RETURN HERE

$RDLIN: MOV
LR
1%:
MOV
2%:
CMP

;:THE PS

'E:és ROUTINE WILL
c®

STRIPPED OFF

TST

BEQ

0000C4

J:WITH PARITY BIT

4L(SP) ,2(5P)
L(5P)
-(SP)
#6438 ,-(SP)

RT]

1%:

JsGET A (HARACTER FROM THE QuUFL#

MOV
CLR
(LR
MOV

CRRARA AR R AR

065142
065144
065146
065152
065156
065160
065162
065164
U65170
065172
065174
065176
065204
065210
065214
065216
065222
065224
065230
065234
065236
065260
065242
065250
065254
265256
065262

TTY

RD(HR
RETURN HERE

64%:

064200

INPUT A SINGLE CHARACTER FROM TWE

- gl
H

065076

005737
001775
005337

42=3

#25,(R3)
8%

TTY

;sINPUT A STRING FROM THE 777
; ;ADDRESS OF

FIRST

(HARACTER WILL

ON THE

;;TERMINATOR WILL BE A BYTE OF ALL 0'S

;:SAVE R3
;sCLEAR THE RUBOUT KEY
;:;GET ADDRESS
;;BUFFER FULL?
;:BR IF YES
..Go READ ONE CHARACTER FROM THE TTY
GET CHARACTER
A RUBOUT
IS 1;
I
THIS

THE

FIRST RUBOUT?

BR IF NO
E A BACK SLASH

;:SET THE RUBOUT KEY
. sBACKUP BY ONE
;2STACK EMPTY?

;:BR IF YES
;2SETUP TO TYPEQUT THE DELETED CHAR.
;.G0 TYPE
;:G0 READ ANOTHER (MAR.
..RUBOUY KEv SET?

BR 1F NO
;TYPE

A BACK

SLASK

Y
;:CLEAR THE RUBOUT XE
L
;15 (HARACTER A (TR U?
J:BR IF NO

STACK

T ROUTINE

3 065450

4 0654654
5 065456
€ 065462

7 06546€

oS
1011
105013

106401
104401

000717

00002¢
001217

001216

6%:

111337
104401
122723

065374
065374

001305

105063
104401

005726
012603

011646
016666
012766
000002

000015

000
136

136

015
040

005737
001002
000137
005037
000137

$TTYIN:
$CNTLC:
S$CNTLU:
$CNTLG:
$MSWR:
$MNEW:
.EVEN

(R3),9%

.93

TYPE

#15,(R3)+

=-1(R3)

JSLF

000042

:
SHUT

005422
001300
041432

1%:

+
(SP)

(SP)+,R3

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

#STTYIN,L(SP)

RT]

0
0

BYTE
.BLKB

LASCIZ
.ASC!
JASC]

LASC]
JASCI

JMP

(LR
Mp

;s :BRANCH [F NO

LSQUES
is

TYPE

9%:

33
(R3)

$TTYIN

8R
MOVR

0C0004
065376

JoTYPE A CONTROL 'V
;GO START OVER

TYPE

TST
MOV
MOV
MOV
MOV

001220

JSCRLF

177777

#22,(R3%)

8NE
CLRB

CMPR
BNE
(LRS

000
136

BR
(MPR
TYPE
TYPE

06537¢

11:43:/8 PAGE 42-4
$INTLUY

TYPE

1064401

000712

L-APR=BY

065413

- =000
A N\ b —d
[JWNRV,
IV, LV ]

085276
065
065302
065306
065312
065314
065320
065322
065
065
065336
065340
065344
065350
06535¢
065354
065356
065364
065372
065374
065375
065376
065406
065413
065420
065425
065436

106601

OonN) NI

065
065

?o—a.a_a
OO

D 046,00

NNNN

"%v WMS/Z FCNL "7 Y

/2C/<15><12>
/2U/<15><12>
/2G/<15><12>

<15><12>/SWR =
/ NEW =

ans?
1%

START

$DEVM
$ECP

;315 CHARACTER A

I‘Rl

;.CLEAR THE (HARACTER

JTYPE THE INPUT STRING

1560 PICKUP ANOTHER (HACTER
3:TYPE A

*°

;:CLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER

;sCHECK FOR RETURN
s:LOOP IF NOT KETURN
;sCLEAR RETURN (THE 15)
;2TYPE A LINE FEED
;. CLEAN RUBQUT KEY FROM THE STACK

;JRESTORE R3

;sADJUST THE STACK AND PUT ADDRESS OF
2

FIRST ASCI]

CHARACTER ON |7

;JRETURN
;:STORAGF FOR ASCII (HAR.
;s TERMINATOR

JRESERVE
;CONTROL
;s CONTROL
;sCONTROL

T0 TYPE

8 BYTES FOR TTY INPUT
"'C"*
"V’
"'C'*

JANY MONITOR PRESENT ?
;BR IF YES
;GO TO START
;FUDGE NO DRIVES IN MAP
JRETURN TO $EOP

THE

WMOE

2,2

FOTAL

scY

NOMEE R §ROM THE

MA RD (U400

4-APR-B1

LSBT
A

LA A

&
I
11:43:¢8 PAGE 43

READ aN OCTAL NUMBER FROM THE
LA AR

AR A

AR R

TTy
A

SeTHIS ROUTINE wILL READ AN OCTAL (ASCII) NUMBER FROM THE T1v AND
;*(HANGE

J=CALL:
o

065472
065474
065502
065504
C55506
065510
065512
065514
065516
065520
065522
065524
065526
065530
065532
065534
065536
0€5540
065544
065546
065550
065552
065556
065562
065564
065570
065572

011646

016666
010046
010146
010246

000004

CQ0002

1%:

112046

2%:

001412

006301

006102
006301
006102
006301
006102

042716

0626C1
000764
005726
010166
010237

012602

012601
012600
000002
000000

RDOCT

RETURN “ERE

$RDOCT: MOV

104412
012600

005001
005002

[T TO BINARY,

4L(SP) ,2(SP)
RO,=(SP)
R1,=(SP)
R2,=(SP)

(LR
(LR

R1
R2

BEQ

RDL IN
MOV
MOVR

ASL

ROL
ASL
ROL
ASL
ROL

177770

000012

065572

3s:

(SP) ,=(SP)

MOV
MOV
MOV
MOV

(SP)+,R0
(RO)+,=(SP)

RZ
R1
R2
R1
R2

;;READ AN OCTAL NUMBER
;:L0W ORDER BITS ARE ON TOP OF THE
;JHIGH ORDER BITS ARE N $HIO(T
;:PROVIDE

SPACE FOR

THE

;2 INPUT NUMBER
;:PUSH RO ON STACK
;sPUSH R1 ON STACK
;:PUSH R2 ON STA(K
;;READ AN ASC!Z LINE
;sGET ADDRESS OF 1ST (HARAITEK
;:CLEAR DATA WORD

JiPICKUP THIS (HARACTER
::1F ZERO GET QuUT
*

isvh

;"8

BIC

#*C7,(SP)

;sSTRIP THE ASCII JUNK
;;ADD IN THIS DIGIT
::LOOP
;sCLEAN TERMINATOR FROM STACK
;2SAVE THE RESULT

MOV

(SP)+ ,R2

;;POP STACK INTO R2
;2 ;POP STACK INTO R1

ADD
B8R
1ST
MOV
MOV

MOV
MOV
RT]
$HIOCT: WORD

(SP)+,R1
2%
(SP)+
R1,12(5P)
RZ2,SHIOCT
(SP)+ R
(SP)+ ,R0O
O

;:POP STACK INTO RO

. s RETURN
;:;HIGH ORDER BITS GO HERF

STACr

MATRC

(04,00

4-APR-B1

11:43:¢8

PAGE

G U506

.SBTTL

TRAP DE(CODER

& l.'..'.'.".........""'.....'Q...Q..tt'tt"'...'...."'..'."

$*THIS ROUTINE

s*AND USE

:*OF

WILL

PICKUP

INDEX

THE

LOWER BYTE

THROUGH THE

TRAP TABLE

THE

‘‘TRAP'' INSTRUCTION

FOR THE

STARTING ADDRESS

THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED ;T WILL

:*GO TO THAT ROUTINE.

065574
065600
065604
065610
065612
065614
065620
065622
065624
065626
065632

016646
042716
012746
000002
010046
016600
005740

$TRAP:

000002
000020
065612

1%:

000002

111000

0063C0
016000

000200

011646
C16666
000002

2(SP) ,=(SP)
#2),(SP)
#1%,-(SP)

RT]
MOV

;SET THE NEW STATUS
;:SAVE RO

TST

-(R0O)

. ;BACKUP BY 2

ASL

RTS

MOV

2(SP) ,RO

000004

000002

IS USE

;:GET RIGHT BYTE OF

$TRPAD(RO)
,RO

TO HANDLE

$TRAP2: MOV

MOV
RTI

.SBTTL

;2GET TRAP ADDRESS

(RO) ,RO

MOV

065646

. sASSUME THE STATUS 0OF
;. THE CALLER==DO NOT ALLOW
;2 T=BIT TRAPS

RO,-(SP)

MOVB

;:TnIS

065634
065636
065644

MOV
BIC
MOV

THE

TRAP

;;POSITION FOR INDEXING

;;INDEX TC TABLE
;:G0 TO ROUTINE

''GETPRI'‘ MACRO

(SP) ,=(SP)

4(SP) ,2(SP)

;:MOVE THE PC DOWN

;:MOVE THE PSWw DOWN

;JRESTORE

THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;*BY THE '‘TRAP'" INSTRUCTION.
ROUT INE

065646
065650
065652
065654
065656
065660
065662

065634
061314
061112
061066

$TRPAD:

061126
060642
:
060566

.WORD
$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS
$TYPBN

$TRAP2
s s CALL=TYPE
;;CALL=TYPOC
;;CALL=TYPOS
;;CALL=TYPON
;.CALL=TYPDS
;:CALL=TYPBN

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

065664

064600

$GTSWR

;;CALL=GTSWR

TRAP+7(104407)

065666
065670
065672
065674
065676
065700

064510
065052
065142
065472
060472
060530

$CKSWR
$RD(HR
$RDLIN
$RDOCT
$SAVREG
$RESREG

;;CALL=CKSWR
;;CALL=RDCHR
;;CALL=RDLIN
;;CALL=RDOCT
;,;CALL=SAVREG
;;CALL=RESREG

TRAP+10(104410) TEST FOR CHANGE IN SOF T-SWR
TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE
TRAP+12(104412) TTY TYPEIN STRING ROUTINE
TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY
.
TRARP+14(104414) SAVE RO-RS5 ROUTINE
TRAP+15(104415) RESTORE RO-RS ROUTINE

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZERCS)
TYPE OCTAL NUMBER (AS PER LAST CALL)

TYPE DECIMAL NUMBER
TYPE BINARY

(ASCII)

(WITH SIGN)

NUMBER

GET SOFT-SWR SETTING

JRMMBO RMOS/3/72 FCINL

TST

POWER DOWN AND UP ROUTINES

MACRO v04.00

4-APR-81

.SBTTL

11:43:¢8 PAGE 45

POWER DOWN AND UP ROUTINES

."'"'."....."'."""""Q"..Q"'t.'...'i.t'l..'.'Q..'tt..'t't

012737
012737
010046
010146
010246
010346
010446
010546
017746
010637
012737
000000
000776

066042
000340

000024
000026

: POWER DOWN ROUTINE

$PWRDN: MOV
MOV
MOV
MOV
MOV
MOV

113216

066046
065754

#3460 ,9#PWRVEC+2
RO,=(SP)
R1,=(SP)
R2.=(SP)
R3,-(SP)

MOV
MOV
MOV

R4 ,=(SP)
R5,=(SP)
aSwR,=(SP)

MOV
HALT

#SPWRUP ,@#PWRVEC

MOV

000024

#$ILLUP,@#PWRVEC ;;SET FOR FAST UP

;:PRIO:7

;sPUSH RO ON STACK

;sPUSH R1 ON STACK
;sPUSH R2 ON STACK

;:PUSH R3 ON STACK
:2PUSH R4 ON STACK
:sPUSH R5 ON STACK

SP,$SAVR6

::PUSH @SWR ON STACK
. ;SAVE SP

. sHANG UP

;;SET UP VECTOR

'.'"t..t't.tt.....'.".""lfi.'t.fi'.t'..'.t'.'t'tt.tt..'t.l"t't.

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401
066050
000002
000000
000776
000000
015

066042
066046
066046
066046

000024

*POWER UP ROUTINE

$PWRUP: MOV
MoV
CLR
1%:

113150

065702
000340

INC

BNE
MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV
MOV

000024
000026

TYPE

$PWRMG : '.#I)RD
$ILLUP:

012

120

HALT

BR
$SAVR6: 0
$POWER: .ASCIZ
.EVEN

#SILLUP,@#PWRVEC ;;SET FOR FAST DOWN
SP
$SAVR6,
23GET 5P
$SAVRE
;:WAIT LOOP FOR THE TTY
$SAVR6
JiWAIT FOR THE INC
1%
WORD
::0F
(SP)+,3SWR
;:POP STACK INTO aSWR
(SP)+,RS
;:POP STACK INTO RS
(SP) +,R4
;;POP STACK INTO Ré4

(SP)+
3
;:POP STACK INTO R3
(SP)+,R2
;:POP STACK INTO R2
(SP)+ ,R1
;;POP STACK INTO R1
(SP)+,R0O
;:POP STACK INTO RO
#SPWRDN ,a#PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340,XPWRVEC+2 ;:PRIO:7

$POWER
.~2
<15><12>''POWER'’

;REPORT THE POWER FAILURE
;;POWER FAIL MESSAGE POINTER
;;THE

POWER UP SEQUENCE

WAS

STARTED

;. BEFORE THE POWER DOWN WAS COMPLETE
:;PUT THE SP HERE

“JRMMBO RMOS/3/72 FCTINL

APT

T1ST

COMMUNICATIONS ROUTINE

MACRO v04.00

4-APR-81

SBTTL

11:43:28 PAGE 46

SEQ 025~

APT COMMUNICATIONS ROUTINE

;.".".'..."..'.."..Q."."...""."..'..".."".Qtt'..".tt'

000001
000001

066324
066322

$ATY1:
$ATYS:

000001

066324

$ATYS4:
SATY(:

066322
000001

001242

000100

001243

000004
000002
001222

000004

001236

006200
010037
012737
000413
017637
062766
013746
004737
000000
105737
001416

005737
001413
005737
001375
017637
062766
005237
105037
105037
105037

012601
012600
000207
000
000
000

—

000200
000001
000100
000040

1%:

2%:

001236
001240
000004

000004
000002
177776
061314

001222
066234
000004

3%:

4%:

5%:

066324

10%:

001242
001222
000004
000002
001222
066324
066323

11%:

001224
000004

066322

$MFLG:
$LFLG:
$FFLG:
APTSIZE
APTENV

APTSPOOL
APT(CSUP

;370 REPORT FATAL ERROR
23T0 TYPE A MESSAGE

#1,8FFLG

;:TO ONLY REPORT FATAL ERROR

RO,=(SP)
R1,=(SP)
$MFLG

;:PUSH RO ON STACK
;:PUSH R1 ON STACK

#1,8FFLG

MOV
MOV
TSTBR
BEQ
CMPR
BNE
BITB
BEQ
MOV
ADD
iST
BNE
MOV

TSTR
BNE
SuB
ASR
MOV
MOV
BR

MOV

ADD
MOV

SATY(

#APTENV, SENV

;3SHOULD TYPE A MESSAGE?
BR
;oIF NOT:
; ;OPERATING UNDER APT?
BR
;21F NOT:

#APTSPOOL
, SENVM 2 sSHOULD SPOOL MESSAGES?

3s
4 (SP) RO

;:1F NOT:

Jo1F NOT:

WAIT

?gscrvps

;:GET MESSAGE ADDR.
;:BUMP RETURN ADDR.
;iSEE IF DONE W/ LAST XMISSION?

RO, SMSGAD
+
(RO)

;;FIND END OF MESSAGE

#2,4(SP)

;:PUT ADDR IN MAJLBOX

$MSGAD ,RO
RO
RO, $MSGLGT

g:.SHSGTVPE

;:SUB START OF MESSAGE
;:GET MESSAGE LNGTH IN WORDS
;:PUT LENGTH IN MA]LBOX
;;TELL APT TO TAKE MSG.

A4 (SP) 48

::PUT MSG ADDR IN JSR L INKAGE

172776, (SP)

::PUSH 177776 ON STACK

#2.4(SP)

- :BUMP RETURN ADDRESS

JSR

Sc.srvpf

“:CALL TYPE MACRO

1STB
BEQ
TST
BEQ
TST
BNE
MoV

$FFLG
12%
SENV
12%

;:SHOULD REPORT FATAL ERRCR?
BR
;;IF NOT:
; JRUNNING UNDER APT?
BR
';:1F NOT:

118

WAIT
:2IF NOT:
R
::GET ERRO #
;:BUMP RETURN ADDR.
;;TELL APT TO TAKE ERROR
+:CLEAR FATAL FLAG
;;CLEAR LOG FLAG
;s CLEAR MESSAGE FLAG

.WORD

ADD

12%:

#1,8MFLG

MOVB
MOVR
B8R
MOVB

INC
CLRB
CLRB
CLRB
MOV
MOV
RTS

BYTE
BYTE
BYTE

200
001
100
040

$MSGTYPE
4 (SP) ,$FATAL

#2,4(SP)
$MSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+ R
(SP)+,RO

0
0
0

;sFINISHED LAST MESSAGE?

;;POP STACK INTO R1
::POP STACK INTO RO

2 ;RETURN
;JMESSG. FLAG
;:L0G FLAG

:JFATAL

FLAG

CZRMMBO RMOS/3/72 FOINL
UNSOUE

MESSAGES

TST T

MACRO v04.00

4-APR=-81

.SBTTL

CONSOLE MESSAGES

3 066326

075

000

5 066335
6 066341
7 066344
8 066375
9 066405
10 066447

040
054
200
200
040
122

077
040
124
122
114
115

040
000
131
115
111
126

QuUES:
COMMA:
MSHELP:
(CNSLO1:

200

124

131

(CNSLO7: .ASCII

& 066330

101

11 066456

040

13 06657

200

12 06651

14 066654

200

114

040C
200
104
200

077
104
122
125

20 066743
21 066750

122
122

115
115

122

040
040
040

116
114
116

27 067060

040

117

28 067070
29 067117

30 067124

31 067126

040
040
200
116

116
131

32 067130
33 067131

040
040

35 067133

040

34 067132
36

040

116

115

22 066755
23 066776
24 067013
25 067030
26 067047

111

101

15 066655
16 066676
17 066712
18 066720
19 066736

114

116
117
104
117

000
000

000

CNSLO2:
CNSLO3:
C(NSLO4:

CNSLOB:

111
122
111
116

CNSLO9:
MSDRVS:
MSGDRV:
SYSTAT:

060
060

S$RMO3:
S$RMOS5:

060

EQUALS: .ASCIZ
ALL:

SRMO2:

11:43:28 PAGE 47

a=a

LASCIZ

@ALL@<CRLF>

.ASCIZ
.ASCIZ
.ASCIZ

@ LIMITS = LO= 160000, HI= 17XXXX@<(RLF>
QRMVEC=a
@ LIMITS = LO= 0, HI= 1000@<CRLF><LF>

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

LASCIZ
.ASCII

a2 @
a, @
<(RLF>Q@TYPE HELP TEXT (L) N ? @
<CRLF>aRM(S1=a

<CRLF>QTYPE "A'* TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a
<CRLF>3AND TFRMINATE INPUT WITH A CARRIAGE RETURN.3
<CRLF>

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

@ ?ILLEGAL INPUT@<(CRLF>
<CRLF>/DRIVE(S): /
/DRIVE/
<CRLF>/UNIT STATUS:/

.ASCIZ
.ASCIZ

/RMO3/
/RMOS/

.ASCIZ

/RMOZ/

117
117
117

NOTRM:
_ASCIZ
LODEV:
.ASCIZ
NOTPRS: .ASCIZ

@ NOT AN RM0S5/3/2a
/ LOAD DEVICE/
/ NOT PRESENT/

116

UNTON:

_ASCIZ

/ ONLINE/

ASCIZ

/N/

117
106
122
116

NOTAVL:
UNTOFF:

.ASCiZ
.ASCIZ

DRIVES:
NONE:

.ASCIZ
.ASCIZ

N:
Y3

ASCIZ

/ NOT AVAILABLE/
7 OFFLINE/

<CRLF>/DRIVE(S)
/NONE/

7Y/

BLNKS4: .ASCII
BLNKS3: .ASCII

7/ /
7/ /

BLNKST: .ASCIZ

/ /

BLNKS?2:
.EVEN

.ASCII

/ 7/

TO BE TESTED/

CZRMMBO RMOS/372 FLTINL
TABLE

.»Jnl\bl\bbbbbbbw&ud
VN gWflwwwwgmmmwmmmmmddd_
i eabanth
b O NS NN s
VNS
WN 2O
O0VONOAVNEAWNNN—=O
VRN wilt
NS
NN oid
2O

FUNCTION CODE

MACRO v04.00

4-APR-B1

.SBTTL
sTHE

11:43:28 PAGE 48

FUNCTION CODE TABLE

FUNCTION CODE

TABLE

;EACH FUNCTION CODE.

IS USED

TO DEFINE

STATUS

BIT USAGE IS AS FOLLOWS:

CONDITIONS FOR

;
ATA = BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE,

BIT 15 IS ZERO,

NOTE

INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.

THAT ATA MAY BE

SET WHEN A COMMAND IS EXECUTED EVEN THOUGH

(1T IS NOT EXPECTED AS A RESULT OF THE COMMAND.

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.

OP] - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

:1F

OPI ERRORS ARE ENABLED DURING THE EXECUTION OF

IVC ERRORS ARE ENABLED DURING THE EXECUTION OF

THAT COMMAND.

IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
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 ENJRY 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
!F READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE
:COMMAND.
THE ERRORS ENABLED BY THIS BIT ARE “‘TRE'", 'DLT'’, 'NEM",
:I"xFl!’

llar‘l'

..AOE...

B1T 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.
JHEADER ERRORS INCLUDE "HCRC'', "HCE'', 'FER' Anv "BSE'"".

W =T O
OOV W=
O

3
ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
:IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF THAT
SCOMMAND,
THESE ERRORS INCLUDE ‘MDPE'', 'DCK'', AND "ECH'".
BIT 05

IS NOT USED.

BIT 04 IS NOT USED.

BIT 03 IS NOT USED.
BIT 02 IS NOT USED.

BIT 01

55 067136

56
57 067136

1ST

IS NOI USED.

ILF = BIT 00 IS SET

FNCDTR:
020000

.WORD

THE FUNCTION CODE IS ILLEGAL.
;FUNCTION CODE

OP]

sNOP

TABLE

JRMMB0 RMOS5/3/2 FCTINL

FUNCTION CODE

S8 067140
59 067142
60 067144
61 067146

£2 067150
63 067152
64 067154
65 067156
66 067160
67 067162
68 067164
09 067166
70 067170
71 067172
72 067174

TABLE

130001
1
1
020000
030000
130000
130000
020000
020000
130001
130001
132000
130001

TST

MACRO v04.00

.WORD
.WORD
.WCRD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD

764 067200

130001
130001
130001
130001

76 067204
77 067206

130001
073300

.WORD
.WORD

130001

.WORD

73 067176

75 067202

130001

78 067210

073300

80 067214
81 067216
82 067220
83 067222
84 067224
85 067226
86 067230
87 067232
88 06723

130001
037200
(37000
130001
130001
033300
033300
130001
130001

79 067212

.WORD
.WORD
.WORD

.WORD

4-APR-B1

11:43:728 PAGE 4§8-1

OPI!ATA!ILF!IVC
ATA:QOPI.IV(:IAE
ATA!OPI:IV(
OPI

OPI:!IVC
OPI:!ATA!IV(C
CPI:ATA!IVC
OPI]
OPI
OPI:ATA!ILF!IVC
OPI!ATA!ILF!IVC
ATA!OPI!IVC!IAE
OPI:!ATA!ILF:!IV(C

JILLEGAL FUNCTION (2)
s SEEK
JRECALIBRATE
;DRIVE CLEAR
sRELEASE
sOFFSET
JRETURN TO CENTERL INE
JREAD IN PRESET
sPACK ACKNOWLEDGE
JILLEGAL FUNCTION (24)
sILLEGAL FUNCTION (26)
: SEARCH
sILLEGAL FUNCTION (32)

OPI!ATA!ILF:!IVC

;ILLEGAL FUNCTION (44)

OPI:ATA!ILF!IVC
OPI:ATA!ILF:IVC
OPI:ATA!ILF!IVC
OPI!ATA!ILF!IVC

OPI!ATA!ILF!IV(C
WCE:OPI:!IVC!IAE:AOE !HCE'ECH

.WORD

WCE:!OPI.:IVC:IAE:AOE !HCE'ECH

.WORD
.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
OPI!ATA!ILF!]VC

OPI:!ATA!ILF!IVC

sILLEGAL
sILLEGAL
sILLEGAL
JILLEGAL

FUNCTION
FUNCTION
FUNCTION
FUNCTION

(34)
(36)
(40)
(42)

sILLEGAL FUNCTION (46)
JWRITE CHECK DATA

;WRITE CHECK HEADER AND DATA
;ILLEGAL FUNCTION (54)

;ILLEGAL FUNCTION
JWRITE DATA
;WRITE HEADER AND
JILLEGAL FUNCTION
JILLEGAL FUNCTION
;READ DATA

(56)

DATA
(64)
(66)

;READ HEADER AND DATA
;ILLEGAL FUNCTION (74)
;ILLEGAL FUNCTION 7€)

C7RMMBO RMOS/3/2 FCINL

ATTENTION (ATA)

TABLE

TST 1

MACRO v04.00

LSBTTL

4=-APR-81

g
&
11:43:28 PAGE 49

ATTENTION (ATA) TABLE

i 067236

ATNTBL: .BYTE

S 067

80'-

BYTE

16,

& 0672%7
6 067261

7 067

020

9 067264

100

8 0673‘

10 067245

040
200

BYTE

.BYTE

BYTE

BYTE
BYTE

- B
8.

32.

64,

128.

067274

~N
W

067302
067310
067316

n
n

= OO0 NN

067246
067252
067260
067266

b
b o
e
b
b

QOO NP NN

JRMMBO
RMOS/3/2 FCTNL
FRROR MESSAGE TABLE

073634
073703
073703
074026
074026
100631

076615
074123
074170
074232
074304
074400
074232
074232
074232
074232
074232
074232
074232
074232
074232
074232
074232
074232
074232
074232
074232
074232
074232
074232
074232

076133
076321
100123

075437

076360
076406
076434
076065
074304
074232
075437

073720
073763
074056

074170
076047
100656

€22000
000000

074243
074315

076047
074463
074506
074522
074550
074577
074614
074656
074705
074734
074762
075033
075062
07511
075137
075166
075214
075243
075272
075345
074440
100032
100133

075553
075553
075553
075553
076047
074326
075410
075553
075553
075553

000000
000000
000000
000000
000000
000000
000000
074326
000000
000000
074635
074646
074646
074635
074635
074646
074646
074646
074646
074646

074646
074646
074646
074646
074646
074646
074646
074646
000000
076327
076255
076327
076327
076327

076327
000000

100011

100216

100261

076230

100570

076511
07651

076255
076255

075515
100631

075636
076242
000000
56 070142

000000

075636
076203

100060

075543
100570

4-APR-B1

D 5
11:43:¢8 PAGE S0
SEQ 0267

076021
074646
076203
076203
076203
075553
076203
076203
077015
076203
077015

075437
075466

57 070154

MACRO vi4.00

100075

076255
076265
076203

101256

101437

.SBTTL

ERROR MESSAGE

EMT1:
EMT2:

. WORD
.WORD
.WORD
.WORD
.WORD

EMT3:

EMT4:

EMTS:

EMT6:

EMT?7:

EMT10:
EMT11:
EMT12:
EMT13:
EMT14:
EMT1S:
EMT16:
EMT17:
EMT20:
EMT21:
EMT22:
EMT23:
EMT24:
EMT2S:

EMT26:
EMTZ27:
EMT30:
EMT31:
EMT32:
EMT33:
EMT34:
EMT3S:
EMT36:
EMT37:
EMT4O0:
EMT41:
EMT42:

EMT43:

EMT44

EMT4S:
EMT46:
EMT47:
EMTS0:
EMTS51:
EMTS2:
EMTS53:
EMT54:
EMTSS:
EMT56:
EMTS7:
EMT60:
:
EMT61
EMT62:
EMT63:
EMT64:
EMTAS:
EMT66:
EMT67:

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

. WORD

. WORD
.WORD
.WORD
.WORD
. WORD
- WORD
. WORD
. WORD

.WORD
.WORD

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

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

TABLE

EMS1,0

EMS2.EMS3,0
EMS2,EMS4L
.0
EMSS
. EMS6 .0

EMSS .EMS10,0

EMS167,EMSb4, 0

EMS110.EMS170,0
EM57,0

EMs10,0

EMS11.EMS 12,0
EMS13 ,EMS14 ,EMS15,EMS16,0
EMS17 ,EMS 64,0
EMS11,EMS21,0
EMS11,EMS22 EMS27, 0
EMS11,EMS23,EMS30, 0
EMS11,EMS24 ,EMS30, 0
EMS11,EMS25 ,EMS27, 0
EMS11,EMS26 ,EMS27, 0
EMS11,EMS31,EMS30, 0
EMS11,EMS32,EMS30, 0
EMS11,EMS33 EMS30, 0
EMS11,EMS34 EMS30, 0
EMS11,EMS35 ,EMS3C, 0
EMS11,EMS36,EMS30, 0
EMS11,EMS37 EMS30, 0
EMS11,EMS40,EMS30, 0

EMS11,EMS41 ,EMS30,0
EMS11,EMS42 ,EMS30,0
EMS11,EMS43,EMS30,0
EMS11,EMS44 ,EMS30,0
EMS11,EMS45 ,EMS30,0
EMS66,EMS20,0
EMS75 ,EMS141,EMS76,0

EMS144 ,EMS145,EMS72 ,EMS76,0

EMS47 ,EMS53,EMS76.0
EMS77.EMS53 EMS76.0

EMS100,EMS53, EMS76.,0

EMS101.EMS53 EMS76.0
EMS65
, EMS64 . 0
EMS13.EMS15.EMS63.0
EMS11,EMS46 ,EMS30,EMS67,0
EMS47 ,EMS53 ,EMS67 ,EMS115 ,EMS140,EMS
EMS47 ,EMS53 ,EMS67 ,EMS115 ,EMS141,EMS
EMSS50,EMS53,EMS67,0

EMS142,EMS143,EMS53,EMS67,0

EMSS51,EMS72,EMS67,EMS115,EMSS0,EMS70.0

EMS167 ,EMS73,EMS67,0

EMS56,EMS67,EMS115.EMS150,EMS152,EMS70.,0
EMS71 .EMS56 . EMS67,EMST115 EMS150,EMS152.EMS72.,0

5, 7.EMS70.0
EMS4
EMS140,EMS67,EMS11

EMS150,EMS152,EMS70,EMS115,EMS56 EMS73,EMS67,0
EMS52,EMS205,EMS214
. EMS206.,EMST1 §.EMSST,EMS72,0

EMS165,EMST103,EMS72.EMS124.0

EMS165.EMS103,EMS72.EMS171.0

JRMMBO RMOS5/3/72 FLTINL
FRROR MESSAGE TABLE

58 070166
59 070176

60 070206
61 0720224
62 070262
63 070252
64 070272
65 070302
66 070314
67 070332
68 070350
o9 070360
70 070372
71 070410
72 0704620

73 070430
74 070450

7S
070462
76 070470
77 C70476

78 070512
79 070520

80
81
82
83
84
85
86

070530
070540

070550
070560
070570
070600
070610

88
89
90
91
2

070630
070642
070654
070666
070700

87 070620

93 070712
94 (70724

95
9
97
98

070736
070750
070762
070772

99 071002
100 071012

071022
071032
071042
071052
071062
071072

107 071102
108 071114

1206

075470
076242

(075437
075437
075636
076242
075466
100060
076321
076321
100631
100201

075515

100570

100570
100123

076615
076741
076741
076615
076741
077113

077156
077213
077256

077310
077353
077754
077455
077513
077113
077156
077213
077256
077310

077353
077754

077455
077513
077113
077213

077113

077754
077256
077310
077353

077513
100705

077455
100011

100060
100123
100123
100216
100201
100201
100433

1ST

076440

(76434
076255

076255
075553
075636
075553

MACRO v04.00
100463
100463
100463
100463
100463

100463
100463

100075
100032
100216

075553
100463

100235

076302

076265

076302
076406
076360
100133

076655
073763
073720
077015
077072
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077553
077015
077015
100133
100133
100261
100235
100235
100363

100463
100463

100463
100463
100463

075553
077020

000000
000000
077020
000000
077577
077577
077577
077577
077577
077577
077577
077577
077577
077622
077622
077622
077622
077622
077622

077622
077622
077622
077664

077664
077727
077727
077727
077727
077727
077727
077727
077727
100032
100075
100162
074440

4-APR-81

5
E
11:43:28 PAGE 50-1

EMT70:
EMTZ71:

.WORD

EMS46,EMS20,EMS163,0

.WORD

EMS47 ,EMS72 ,EMS163,EMS115,EMS140,EMS141,0

EMT74:

. WORD
.WORD
.WORD
. WORD

EMT72:
EMT73:
EMT?7S:
EMT76:
EMT77:
EMT100:
EMT101:
EMT102:
EMT103:
EMT104:
EMT105:
EMT106:
EMT107:
EMT110:
EMT111:
EMT112:
EMT113:
EMT114:
EMT115:
EMT116:
EMT117:
EMT120:
EMT121:
EMT122:
EMT123:
EMT124:
EMT12S:
EMT126:
EMT127:
EMT130:
EMT131:
EMT132:
EMT133:
EMT134:
EMT135:
EMT136:
EMT137:
EMT140:
EMT147:
EMT142:
EMT143:
EMT144:
EMT145:
EMT146:
EMT147:
EMT150:
EMT151:
EMT152:
EMT153:
EMT154:
EMT155:
EMT156:
EMT157:
EMT160:

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

.
.
.
.
.
.
.
.

.
.
.

.
.
.
.

.
.
.

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

EMS71.EMS101,EMS163,0

EMS47.EMS72.EMS163.EMS115
. EMS141.EMS72,0
EMSS6.EMSSS.£/M5163.0
EMS71.EMSS6.EMS163.EMS115,EMS150,EMS152,EMS72.0
EMSSO0 EMSS3
. EMS163.0

EMS142,EMS143,EMS5S,EMS163,0

EMS75,EMS141,EMS163,EMS115,EMS47
,EMS70.0
EM575 ,EMS150.EMS163.EMS115.EMS56.EMS75,0

EMS167,EMS73.EMS163.0

EMS147,EMS151 ,EMS74.EMS163,0
EMSS1,EMS74 ,EMS163,EMS115,EMSS0,EMS70,0

EMS165,EMs100,EMS163,0
EMS165
. EMS77,EMS163.0

EMS 144 .EMS145,EMSS3
. EMS163,EMS115,EMS143,EMS70,0

EMS110.EMS112.EMS116,EMS111,0
EMS113.EMS4,0
EMS113.EMS3.0
EMS110.EMS115,EMS116,EMS117,EMS114,0
EMS113.EMS120.0
EMS127.EMS132.EMS133,0
EMS122.EMS132.EMS133.
EMS123.EMS132.EMS13 3.
EMS124 .EMS132.EMS13 3.
EMS125.EMS132.EMS13 3.
EMS126.EMS132.EMS13 3.
EMS137.EMS132.EMS13 3.
EMS130.EMS132.EMS13 3.
EMS131.EMS132.EMS133.0
EMS121.EMS132.EMS134.EMS123,0
EMS122.EMS132.EMS134.EMS123.0
EMS123.EMS132.EMS134.EMS123.0
EMS124 ,EMS132.EMS134.EMS123.0
Ens125.Ens132.ens134.en51g§.8
EMS126,EMS132 ,EMS134 ,EMS]
EMS137 ,EMS132,EMS134
,EMS] 23.0
EMS130,EMS132,EMS134
EMS] 23.0
EMS131,EMS132,EMS134
,EMST 23.0
EMS121,EMS132,EMS135,0
EMS123,EMS132,EMS135,0

EMS121,EMS132,EMS136,0
EMS137 ,EMS132,EMS136,0

EMS124 ,EMS132,EMS136.0

EMS125 ,EMS132,EMS136.,0
EMS126 ,EMS132,EMS136,0
EMS131,EMS132,EMS136.,0
EMS171,EMS132,EMS136,0
EMS130,EMS132,EMS136,0

EMS140,EMS115,EMS141
,EMS70 .0
EMS142.EMS115.EMS143,EMS72.0

EMS144 . EMS145.EMS146.EMS115,EMS143,EMS72,0
EMS144 . EMS145.EMS20, EMS115,EMS143,EMS70,0

EMS150.EMS152.EMS154,EMS155.,0

EMS147.EMS151.EMS154.EMS155.0
EMS147.EMS151.EMS156.EMS157.0
EMS161,EMS156,EMS160,0

JRMMB0 RMOS/372 FCTINL
CRROR MESSAGE TABLE

115 071230
116 071242

117 071954
118 071264

119 071272

120 071300

121 071306
122 071314
103 071326

076577
074614

075437
075437

075636

075410

101757
101215
100631

104 071336

100631

126 071356
127 071370

100705
076741

129 071404

000000

131 071620
;;% 8;}222

101215
}8;5}2

125 071346

128 071376

13C 071406

134 (71456
135 0714674

100705

101102

101215

100216
Q75466

074635
(76635

100463
074440

074440

074440
100032
100327
100327

077553

077553
101060

101117

075515

101230
075466

100075

076302
076511

000000
000000

EMT165:

1 00011
0 00000

000000
074646
100401
100343

077577
077622
000000
000000
074646
074646
074646

%??22

FEMT162:

.WORD

EMT163: .WORD
EMT164: .WORD

EMT166:

.WORD

EMT167: .WORD

EMSZ203,EMS204 ,EMS30,EMS202,0
EMS203,EMS50,EMS30,EMS202,0
)

EMT203: .WORD

.WORD

075543

(077050

144 071626
145 071636
146 071646

075636
075410
074656

147 071656
148 071666

075437
075543

150 071706
151 971710

000000
000000

153 071714
154 071716

075543

074646
074646
074646

074646
077050

077050

100604

075636
076047
076047
076047
076047
076360
076027

EMT206:

EMT210:
EMT211:

.WORD

EMT223:

.WORD

EMSS2.EMS117.EMS63.0

EMT222: .WORD

156 071722
157 071724

000000
000000

EMT232:
EMT233:

.WORD
WORD

159 071730
160 071732

000000
000000

EMT235:
EMT236:

.WORD
.WORD

162 071736

000000

EMT240:

.WORD

161 071734

163 071740
164 071742
165 071744

166 071746
167 071750
168 071752

169 071762

170 071776
171 072010

EMT231:

EMT234:

000000

EMT237:

000000
000000
000000

EMT241:
EMT242:
EMT243:

600000
000000
100631

077553

100631
101371

101353
101414

100631

077553

EMS75,EMS141,EMS115,EMS140,0

EMS50,EMS103,EMS53,0
EMS52.EMS205.EMS166,EMS206,EMS115,EMSST
EMS72,0
EMSS52,EMS117,EMS56,EMS163,0
EMSS56,EMS30,EMS64,0
EMS&46.EMS30.EMS64.0
EMS31,EMS30.EMS64.0
EMS&7.EMS30.EMS64.0

.WORD
.WORD

000000

EMS104,EMS73,EMS202,0

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

EMT207:
EMT230:

158 071726

EMS150,EMS74,EMS202,EMS115,EMS152,EMS72,0
EMSS50,EMS103,EMS72,0

S _WORD

EMT226:

000000

enszos.snm43.en536.5nszog.g

EMT213:
EMT214:
EMT215:
EMT216:
EMT217:
EMT220:
EMT221:

000000
000000

155 071720

EMS203,EMS51,EMS30,EMS202,0

EMS75,EMS150,0
EMS51,EMS72,EMS115,EMS50,EMS70,0

.WORD
.WORD

000000

EMS167.EMS154.EMs:57,0

.WORD
.WORD

EMT224:
EMT225:

152 071712

EMS224,EMS20,0

.WORD
.WORD

.WORD

EMT212:

101256

EMS&46.EMS20.0

EMT201:
EMT202:

EMT200:

077015
077015
075553

075543

EMSS6.EMS20.0

EM5167.EMS154.EMS155.0
EMS171,EMS132,EMS133,0
EMS171.EMS132,EMS134,EMS123,0
EMS113.EMS177.0
EMS200.EMS201.0

075553
076511

142 071576

EMS47.EMS16%,EMS140,0
EMS47.EMS20,0

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

100060
075466

100216
076255

EMS26.EMSQ7 . EMS156 EMS160. 0

EMT172:
EMT173:
EMT174:
EMT175:
EMT176:
EMT177:

EMT171: .WORD

077015

076321
(075515

EMS25,EMS27,EMS156,EMS160, 0

EMS203.EMS141,EMS30 EMS202.0

.WORD

101165

50-2

.WORD

EMT207:

076321

F
11:43:28 PAGE

EMT170:

100032

138 071526
139 071534

149 071676

EMT161:

076255

076265

143 071614

1
3
1 00363

.WORD
.WORD

076520

140 071550
141 071564

4-APR-81

EMT204:
EMT205:

136 071504

137 071514

MACRO v04.00

EMS142,EMS55,EMS115,EMS143,EMS72,0

EMSS2.EMS117,EMS77.0

.WORD

101315

EMT244:
EMT245:
EMT246:

.WORD
.WORD
.WORD
WORD
.WORD
.WORD

EMS167,EMS132,EMS2(G7,0

101342
000000

EMT250:
EMT251:

.WORD
.WORD

EMS1€7.EMS211.EMS210.EMS207
EMS206,0
EMS212.EMS213.G

101342

EMI247:

.WORD

EMS167.EMS132.EMS210.EMS125,0

M05/3/ ¢ FLTNL
FRROR MESSAGE TABLE

07§§24

7 072016

1 7‘5

174

175

MACKD v04.00

176

177

178

176

101561

101165
076462
076462
076462
075553
077015
076462
076462
076462
076462
075713
075166
075713
075713
075713

180

181

182
185
184

185

186

187
188
189

190
191

192

163
194
195
196
197

075553

076511
076511
076511
076047
075713
077015
075553
075553
075553
076511
075553
075553
076511
075713
075713
075713
000000
075713
076511
076511
074326
076302

158

199

200
201
202
203

101003

075553
075553
075713
075713
100261

075607
075543

11:43:¢B PAGE

50-3
SEG ucot

0000090
100363
074646
074646
074646
74646
075636

072042

4=-APR-B1

076003
074762
075565
000000
075636

EM1252:
EMT253:
EMT254:
EMT255:
EMT2S56:
EMT257:
EMT260:
EMT261:
EMT262:
EMT263:
EMT264:
EMT265:
EMT266:
EMT267:
EMT270:
EMT271:
EMT272:
EMT273:
EMT274:
EMT275:
EMT276:
EMT277:
EMT300:
EMT301:
EMT302:
EMT303:
EMT304:
EMT305:
EMT306:
EMT307:
EMT310:
EMT371:
EMT312:
EMT313:

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

EMT315:
EMT316:
EMT317:
EMT320:

.WORD
.WORD
.WORD
.WORD

EMT314:

.WORD

EMT321:
EMT322:
EMT323:
EMT324:

.WORD
.WORD
.WORD
.WORD

EMT327:
EMT330:

.WORD
.WORD

EMT325:
EMT326:

EMT331:
EMT332:
EMT333:
EMT334:
EMT335:
EMT336:
EMT337:
EMT340:
EMT347:
EMT342:

.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD

EMS165,EMS212,0
EMS147,EMS151,EMS156 EMS210,EMS26,EMS27,0

EMS203
. EMS101 EMS30,0

EMS203 EMS167 . EMS30.0
EMS203 EMS100.EMS30.0
EMS11,EMS46,EMS30,EMS102,0

EMSS52.EMS117,EMS56,EMS102,0
EMS52 . EMS205 . EMS220 , EMS206 ,EMS115,EMSS1,EMS72,0

EMS104 ,EMS73 . EMS202
.0
EM550,EMS53,EMS102,0
EMSS56.EMS53.EMS102.EMS115,EMS150,EMS152,EMS70.0
EMS71 . EMS56
. EMS102 EMS115 .EMS150 . EMS152 . EMS72 -0

EMS142,EMS143,EMSSS,EMS102,0

EMSS0,EMS146,EMS115,EMS52,EMS117,EMS46,0
EMS47 . EMSS53,EMST102,EMS115.EMS140.0
EMS47 . EMS53.EMS102
. EMST15.EMS141 .EMS72,0
EMS75.EMS141,EMS102,EMS115,EMS47.EMS73.0
EMSS51.EMS74,EMS102,EMST15,EMS50,EMS70,0

EMS63.EMS53.EMS57,EMS115,EMS4T,EMS146.0

EMS116,EMS53, EMS41,EMS57.0

EMS47 ,EMS53,EMS57,EMST15
. EMS140,0
EMS47.EMS53.EMS57.EMS115.EMS141
.EMS72,0

EMSS56.EMSS53.EMS57.EMS115 . EMS150 . EMS152 . EMS70.0

EMS71.EMS56 . EMS53 EMSS7.EMS115,EMS150,EMS152
EMS72.0

EMS165,EMS100,EMST103,EMS57.0

EMS165.EMS101.EMS103,EMS57.0
EMS165,EMS77,EMS103,EMS57,0
EMS46, EMS30, EMS64 , EMSS7,0
EMSS50.EMS53.EMS57.0
EMS50 . EMS146,EMS115,EMSS2,EMS117,EMS46,EMSS7,0

EMS142,EMS143,EMSS53.EMS57.0

EMS104.EMS103.EMS53.EMS57.0
EMS105.EMS103.EMS53.EMS57.0
EMS144 EMS145.EMS103,EMSS7,EMS115,EMS143,EMS70,0
EMS42,EMS103,EMS53,EMS57,0
EMS31.EMS103,EMS53.EMS57.0
EMS71.EMS31,EMS103 EMS57.0

EMS43.EMST103,EMS57.0

EMS45.EMS103.EMS57.0
EMS4L4 L EMS103.EMS57.0
EMS106,EMS20.0
EMS36,EMS103EMSS7, 0

EMS175,EMS36.EMS103,EMS57.0
EMS172.EMS36. EMS103.EMS57.0

EMS13,EMS174 ,EMS15,EMS35,EMSS3,EMS175,0

EMS147 ,EMS151,EMS74 ,EMS175,0
EMS66, EMS53,EMS175,0
EMS33.EMS103, EMSS3.EMS175,0

EMS40.EMS103.EMS53.EMSS7.0
EMSST.EMS74,EMSS7 EMST15 EMSS0,EMS70,0

EMS7S.EMS14T,EMS57 EMS115
. EMS47 EMS73,0
EMS75 EMS150.EMS152,EMS57.EMS115,EMSS6,EMS73,0
EMS60
. EMS61, EMS62,0

EMS116,EMS117,EMS34,0

EMS34 ,EMS53,EMS54,EMS111,0
EMS55.EMS34.0

EMS52 EMST17,EMSS6,EMSS7,0

075543

’

MACRC

0727050
{7705
07705
0746440
101256
100216

N
W~
N

075345

075272
101601

077015
10165!

076462
076462

074440

101476
000000

0
<o

LNV
VLN NT VL N

N
'.N?'Nww\x'\'
NN
WA
OO

RMOS5/3/72 . F( 4
FRROR MESSAGE TABLE

101212

v06.00

4-APR-K?

EMT343:

EMT344:
EMT345:
EMT346:
EMT347:
EMT350:
EMT351:

EMT352:

EMT353:
EMT354:

_WORD

. WORD
_WORD
.WORD
.WORD
.WORD
.WORD

.WORD

,WORD
,WORD

11:4643:¢8 PAGE

S0=-¢

EMSS2,EMST1 enscs EMSS57,0
EMSS52.EMS117.EMS44 EMSS7.0

EMSS2 EMS117.EMS221.,0
EMS106, EMS20.EMST15. enszesEMS72.,0
EMSS2,EMS205. EMS222. EMS206
.0

EMS7S . EMS150.EMST102.EMS115, snsse.fnsrs.o

EMS167,EMS73.EMS102.0

EMS215.0
EMS217.EMS203,EMS216,0
EM5221.EMS20,0

8 /¢ '\T‘.
RMME GMO5/
PR MESSAGE TABLE

;23‘;8
N L

& 07335
073%0

102050

102057

10 155

102153

102627
102627

073%14

102¢27

102627

lavl

102704
103031

4-aPR-B'

EMT,STSHY ,STSH2,S5TSKHG, 0

EHT110:

. WORD
. WORD

£EH110,0
EH111,0

EHTI4:

+WORD
.WORD
. WORD

EH114,0
EH223,STSH1, SYSH? ST S
EH256,STSH1 ,STSH2,ST SHé

EHT336:
EHT337:

.WORD

EH336,STSH1,STSH2,STSH4
EH337,STSH1,STSH2,STS

EWTZ:

EMT223:
EHTZS6:

16438

100627

ENT344:

. WORD

102561

000000

EHT353:

. WORD

102627

11:4%:¢8 PAGE

. wORD
.WwORD

EmT:

EXTI11:

102076

(]
~

102627
102704

073364
073370
073402

Q7
N

102031
102627

MATRO y0&6.00

STSH1,STSHZ,STSH4,0

EHB‘L.SYSH1.STSH2.SYS
EH353,0

—-0n

EDT336:
EDT337:
EDT344:

.WORD

ED336,57SD1,S7SD2,STSD4
ED337,STSD1,STSD2,STSD4
ED337,STSD1,S7SD2,STSD4,0

EDT353:

«WORD

ED353

.WORD
.WORD

-—bd

103202

()~

—

14:
2 :

—

.WORD
.WORD

mm
OO

103164

uvm
=9

:
:

m
@

103164

—O

N_a
b

T
T

.WORD
.WORD

11:43:28 PAGE 52

10%15¢4

103202
103202

073544

T
T

103164

103742
103142

o~
Mo~

ny —

103130

—

103202

073512
073522
073532

00O

103234

102164

— 2

073502

073500

103202

4-4PR-81

073474
073476

MALRO v04.00

TNL

S
S

073456
07

SO 000 NN D (NN NN

e e
Y

[ —

JRMMBO RM05/3/2 ¢
ERROR MESSAGE TABL

ED223,STSD1,STSD2,STSD4

“IRMMBU RMOS/3/2 FC

ERROR MESSAGE

1 073546
% 073556
& 073564

TABLE

TNL TST 1

103247
103265

103265
103265

MACRO v04.00 4-APR-B1 11:43:¢8 PAGE S§
K

103265
103265

103246

2 073566

103247

7 073570

103251

1032517

103265

10 07360c
11 073612
;% 073622

103254
103254
103254

103265
103265
103265

14 073632

103251

g 073572

EFT1
EFT2

.WORD
.WORD

EFT110:

.WORD

EF110

EFT114:

.WORD

EF114

EFT336:
EFT337:
EFT344:

.WORD
.WORD
WORD

EF336,STSF,STSF,STSF
EF336,STSF,STSF,STSF
EF336,STSF,STSF,STSF

EFT353:

.WORD

EF114

EFT111:

EFT223:

.WORD
.WORD

EF111,STSF, STSF,STSF
STSF,STSF,STSF
EF11

EF114,STSF,STSF,STSF

TIRMMBO RMOS/3/2 FCINL

FRROR MESSAGE

STRINGS

TST

MACRO v04.00

;
2 07363

& 073703
5 073720
6 073763

127

122

104
125
116

105
116
117

8 074056
9 074123

103
104

117
122

12 074243

106

7 074026

10 074170
11 074232
13 074304
14 074315

15 074326

103

117

_ASCIZ

.ASCIZ
.ASCIZ

QCONTROLLER NOT READY (RMCS1, BIT 7) a
QDRIVE NOT READY 'DRY'' (RMDS, BIT 7) a

EMS12:

_ASCIZ

QFUNCTION CODE

116

EMS5:

EMS10:
EMS11:
EMS13:
EMS14:

123

EMS15:

122
110
117

101
117
122

EMS17:
EMS20:
EMS21:

101

117

16 074350

042

20 C74506
21 074522

102
042

23 074577
24 074614
25 074635
26 074646
27 074656

104
103
101
123
042

11
131
104
124
127

042
127
042
042
042
042
042
042
042
110
106

127
122
115
104
105
104
115
104
110
105
117

103
111
104
103
103
114
130
1246
103
101
122

EMS33:
EMS34:
EMS35:
EMS36:
EMS37:
EMS40:
EMS41:
EMS42:
EMS43:
EMS44:
EMS45:

42 075466
43 075515

042
042

123
120

173
111

EMS50:
EMS51:

49 075713
50 075741
51 075754

104
104
104

17 074400
18 074440
19 074463

22 074550

28 074705

042

40 075410
41 075437

042
042

29 074734
30 074762
31 075033
32 075062
33 075111
34 075137
35 075166
36 075214
37 075243
38 075272
39 075345

44
45
46
47
48

075543
075553
075565
075607
075636

52 076003

125

1m
117

124
104
101
111
111

110
105
124
116
116

104

101

53 076021
54 076047
55 076065

042
111
103

57 076203

104

56 076133

125
114

104

125
101
117

103

123
102
123
114
104
101
1146

120

101
120

EMS16:

EMS22:
EMS23:

EMS24:

EMS25:
EMS26:
FMS27:
EMS30:
EMS31:

122

126

_ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
_ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ

EMS62:

125

_ASCIZ
_ASCIZ

EMS46:
EMS47:

124

101
040
115

.ASCIZ
_ASCIZ

L.ASCIZ

EMS52:
EMS53:
EMS54:
EMS55:
EMS56:

122
124
105

.ASCIZ

EMS32:

105
124
040
103
126

120
123
117

101

(RMCSZ, BITS 0-2)

EMS6:
EMS7:

115

123
116

115

QWRONG UNIT SELECTED

116
111

101
117

042

EMS1:

STRINGS

QDEVICE WENT @
QUNAVAILABLE ‘DVA'* (RMCS1, BIT 11) a
QNONEXISTENT °NED'' (RMCS2, BIT 12) a

115
103

124
123
127

ERROR MESSAGE

.ASCIZ
_ASCIZ
_ASCIZ

040
126

125

.SBTTL

SEQ 0277

EMS2:
EMS3:
EMS&4:

117
116

102

11:43:¢8 PAGE Sé4

126
101
116

107
m

125

4-APR-B1

EMS57:
EMS60:
EMS61:
EMS63:
EMS64:
EMS65:

EMS66:
EMS67:

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

ASC1Z

QCOMMAND NOT COMPLETED,

@GO NOT RESET ''GO'" (RMCS1, BIT 0)
QINVALID @
Q@MASSBUS a
QCONTROL @

(RMCS1, BITS 1-5) a

@BUS PARITY ERROR @

@'MCPE'’' (RMCS1, BIT 13) a
QTRANSFER ERROR (RMCST1,
Q@SHOULD NOT BE SET @
QWORD COUNT (RMWC) @

BIT

14)

@BUS (RMBA) a
Q'LBT'' (RMDS, BIT 10) @

@' 'AOE'' (RMER1, BIT 09) a

aDISK (RMDA) a
QCYLINDER (RMDC) a
QADDRESS @
QSTATUS a
@WLE'' (RMER1, BIT 11) a

Q'UPE'' (RMCSZ2, BIT 13) a

@'WCF'' (RMER1, BIT 5) a
aWRITE CHECK ERROR-'WCE'' (RMCS2, BIT 14) @
a'MDPE'' (RMCSZ2, BIT &) o
a'DCK'' (RMER1, BIT 75) a
Q@'ECH'' (RMER1, BIT 6) a
a'DLT'' (RMCS2, BJi 15) a
@'MXF'' (RMCSZ2, BiT 9) a
Q'DTE'’ (RMER1, 3IT 12) a
@'HCRC'' (RMERT
BIT 8) a
QHEADER COMPARI ERROR 'HCE'' (RMER1, BIT 7) a
a@FORMAT ERROR ' “ER'' (RMER?, BIT 4) a
Q''IAE'' (RMER1, BiT ' a
Q@'OPI'' (RMER1, BIT 13) a

@''SKI'' (RMER2, BIT 14) 2
Q'PIP'" (RMDS, BIT 13) a

QTHE RM @
QDETECTED a
@AT AN UNEXPECTED @
QINCORRECT DATA DURING a
QINVALID COMMAND ERROR ''IVC'' (RMERZ2, BIT

QDURING DATA TRANSFER a
QDATA READ a
QDOES NOT COMPARE WITH a

Q@DATA WRITTEN a

@'PAR'' (RMER1, BIT 3) a
oIS INCORRECT @
Q@COMPOSITE ERROR 'ERR'' (RMDS, BIT 14) a -

aDATA PARITY ERROR 'DPE'' (RMERZ2, BIT 3) 4
QDURING SEEK COMMAND @

12)

CZRMMBO RMOS/3/72 FCINL
FRROR MESSAGE STRINGS

58 076230
59 076242
60 076255

61 076265
€2 076302
63 076321
64 076327

111
105
m

117
125

123
122

042

105

122

042

.14

123

101

124

104

70 076520

042

72
73
76
75

110
102
101
127

076576
076615
076644
076655

76 076717

m
m

122
1M

125
114

105
125
104
110

114

95 077664

97
98
99
100
101
102
103
104
105
106
107

077754
100011
100032
100060
100075
100123
100133
100162
100201
100216
100235

109 100305
110 100327

94 077622

96 077727

108 100261
111

100343

112 100363
113 100401
114 100416

101
117
116

117

101
123
104
105

040

106
117
124
m

.ASCIZ
.ASCIZ
_ASCIZ
.ASCII

EMS113:
EMS114:
EMS115:

_ASCIZ
ASCIZ
.ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

111
124
111

EMS117: _ASCIZ

@ 'RMR'' (RMER®, BIT 2) @
@''ILR!' (RMER1, BIT 1) @
@''iLF'' (RMER1, BIT 0) a

QDURING SEARCH COMMAND a
QERROR @

@'LBC''

(RMER2, BIT 10) @

@ LSC'' (RMER2, BIT 11) a

QHEADER ERRORS a
@BUS TIMEOUT (04 TRAP) a
QADDRESS a
QWHEN READING/WRITING RH REGISTERS a

QAT THE FOLLOWING @

QTHE SELECTED DEVICE IS @
Q@NONEXISTENT DEVICE @
<CR><LF>

QTHE MASSBUS CONTROLLER a

QFAILED TO DETECT @

aNOT AN RM05/3/2 @
QCONTROL STATUS REGISTER 1, RMCS1,
QBUS ADDRESS REGISTER, RMBA, a
QCONTROL STATUS REGISTER 2, RMCS2,
QERROR REGISTER 1, RMER1, @
QATTENTION SUMMARY REGISTER, RMAS,
QMAINTENANCE REGISTER #1, RMMR #1,
QECC POSITION REGISTER, RMEC1, @
QECC PATTERN REGISTER, RMEC2, @

EMS135:

111
104
117
111
126
123
116
117
106
117
115

EMS137:
EMS140:
EMS141:
EMS142:
EMS143:
EMS144:
EMS145:
EMS146:
EMS147:
EMS150:
EMS151:

_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
,ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

@DRIVE STATUS REGISTER, RMDS a
QMEDIUM OFF LINE @
a'MOL'' (RMDS, BIT 12) a
QDRIVE FAULT @
@'DVvC'' (RMERZ2, BIT 7) a
QUNSAFE @
@'UNS'' (RMER1, BIT 14) a
@SHOULD BE SET a
QOFFSET MODE @
@ VOLUME VALID a
Q@'OM'' (RMDS, BIT 0) @

103
1264

EMS153:
EMS154:

.ASCIZ
.ASCIZ

@PACK ACK COMMAND @
@NOT SET BY @

124
103
120

EMS156:
EMS157:
EMS160:

.ASCIZ
.ASCIZ
.ASCIZ

aNOT RESET BY a
@RTC COMMAND @
QRIP COMMAND a

116

111

126

106

EMS131:
EMS132:
EMS133:

QaDID NOT SET a
aDID NOT RESET a

.ASCIZ
_ASCIZ
_AS{IZ
._ASCIZ
.ASCIZ

101
117

116
122
122

EMS106:
EMS110:
EMS111:
EMS112:

EMS120:
EMS121:
EMS122:
EMS123:
EMS124:
EMS125:
EMS126:
EMS127:
EMS130:

120
116

117

.ASCIZ

1246
116
123
116
122
1264
111
103
103

122
105
115
122
104
116
125
110
106
126
117

126

EMS105:

.ASCIZ

104
115
042
104
042
125
042
123
117
040
042

042

.ASCIZ

EMS116:

057

122

EMS103:

105

110

104

.ASCIZ

EMS104: .ASCIZ

111

115
116
125
103
122

EMS101:

102

101

91 077513
92 077553
93 077577

QLOST @
@DURING PACK ACK COMMAND @

EMS102: .ASCIZ

106

117
117
125
117
122
124
101
103
103

L.ASCIZ
.ASCIZ

_ASCIZ
LASCIZ

122

81 077050

116
103
102
103
105
101
115
105
105

EMS?75:
EMS76:

EMS77:
.ASCIZ
EMS100: .ASCIZ

105
116
000

110

QIS RESET a
QERRONEOUS @
QIS SET @

115
114

110
117
012

82 077072
83 077113
84 077156
85 077213
86 077256
87 077310
88 077353
89 077416
90 077455

54-1

LASCIZ
_ASCIZ
ASCIZ

EMS?73:
EMS74:

124
116
015

124

11:43:28 PAGE

EMS70:
EMS71:
EMS72:

104
104

77 076741
78 076771
79 077015

80 077020

4-APR-81

SEQ 027¢

114
104

104
104

68 076462
71 076547

MACRO v04.00

040
122
040

042
042

09 076511

123
12¢
123

65 076360
66 076406
67 076434

TST

EMS134:

EMS136: .ASCIZ

EMS152: .ASCIZ

EMS155:

.ASCIZ

a
a
a

QMAINTENANCE REGISTER 2, RMMR2, @
@NOT INITIALIZED BY @
@QUNIBUS INITIALIZE @
QCONTROLLER CLEAR, I.E.
BIT 5 OF a
@RH/RM ERROR CLEAR (RMCS1, BIT 14) a

@DRIVE CLEAR COMMAND a

@''VV'' (RMDS, BIT 6) a
@0FFSET COMMAND @

CJRMMBO RMOS/3/72 FCTINL

ERROR MESSAGE

STRINGS

TIST 1

MACRO v04.00

4-APR-81

N 5
11:43:28 PAGE 54-2
-

115 100433

3T 3

106

EMS161: .ASCIZ

QOFFSET BEGISTER (RMOF) @

117 100463

104

125

122

EMS163:

QDURING RECALIBRATE a

116 100463

118 100507
119 100556

100656
100705
100740
100760
127 100775
128 101003
129 101031

m
103
125
122
042
127
105
116
122
104
104
042

123
131
116
105
101
110
122
117
105
101
125
117

131 101102
132 101117
133 101165

103
104
104

101
1M
125

135 101230

042

127

122

140 101353
141 101371

127
120

101
122

123
117

120 100570

121 100604
122 100631

123
1246
125
126

130 101060

1346 101215

136
137
138
139

101256
101270
101315
101342

142 101414
143 101437

144
145
146
147
148
149
150
151

101455
101476
101526
101561
101601
101651

101702

101757

111

105
127
042
127
127
123
120
104
114
123
102
101
110
116

116

130
111
107
122
101
105
122
125
N7
105
101
040
105
117

040
114

105

103
124

105
122
116
103
124
122
120

040

116
101
122

EMS162:
EMS164:

@IS INTERMITTENT OR DRIVE DIDNT DROP ON &
QCYLINDER @
QUNEXPECTED @
aRECA;IBRATE COMMAND @
@'ATA'' (RMDS, BIT1S5) @
QWHEN READING REGISTER @
QERROR REGISTER #2, RMERZ2, a
QNONRECOVERABLE a
QRECOVERABLE a
QDATA a
@DURING WRITE COMMAND @
Q'OPE'' (RMERZ2, BIT 13) @

EMS202:

.ASCIZ
.ASCIZ
.ASCIZ

QCAN NOT SET a
Q@DIAGNOSTIC MODE ‘DMD'‘' (RMMR1, BIT-0)
Q@DURING DIAGNOSTIC MODE @

EMS204:

.ASCIZ

EMS165:

EMS166:
EMS167:

EMS170:
EMS171:
EMS172:
EMS173:
EMS174:

EMS175:
EMS176:
EMS177:
EMS200:
EMS201:

EMS?OS:

105
1246
117
111

EMS205:
EMS206:
EMS207:
EMS210:

123
105

EMS213:
EMS214:
EMS215:
EMS216:
EMS217:
EMS220:
EMS221:
EMS222:
EMS223:

104

101

116

; <UNUSED>

.ASCII
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

103

117
122
117
101
1046

.ASCIZ

EMS211:
EMS212:

EMS224:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

QIN WRITE PROTECT a

QINCORRECT a

@Q@'WRL'' (RMDS, BIT 11)

QEXECUTED a
QWITH Z“OMP ERROR SET @
@''GO'' (RMCS1, BIT 0) a
QWRITING @

aWAS RESET BY a
QPROGRAM INTERRUPT @

QWAS NOT GENERATED a
QSEEK COMMAND @
QPROGRAM TIMEOUT a
QDURING LOOK AHEAD TEST a
QLOOK AHEAD REGISTER,RMLA, @
QSEARCH COMMAND a
aBAD SECTOR ERROR 'BSE’'' (RMERZ2, BIT 15) a
@A DATA TRANSFER COMMAND a
QHEADER COMPARE INHIBIT “HCI'' (RMOF, BIT 10)
QNONEXISTENT MEMORY 'WNEM'® (RMCS2,

BIT

11)

JRMMBO RMOS5/3/2 FCINL
FRROR MESSAGE STRINGS

102031

105

TST

MACRO v04.00

130

2 102050
2 102057

102
0a0

125
122

5 102076

105

g 102201

6 102125
7 102153
10 102227
11 102266

l% 102325

;‘ 102364
15 102423

16 1026463

123

126

SNGPRT
RECEVD
RECEVD
STATUS

DULPRTAQ
DATAa
RGSTRa<CRLF>
INDEXa

107
122

104
115

FH336:
EH337:

.ASCIZ
.ASCI!
LASCII
JASCIZ

aGDADRS

GDDATA

BDADRS

130

101
103
137
120

105

EH344:

ASCII

aRMER1

STATUS

120
115

EH353:

L_ASCII
.ASCI1Z

@ RMLA

RMLA

RMOF

115

STSH1:

_ASCII

@ RMCST

RM(S2

RMDS

115

STSMR:

. ASLil

115
115

STSH3:
STSH4&:
.EVEN

L.ASCIZ
_ASCIZ
"

105

122

137

040

26 103037

9EXPCTD
RECEVDA
aBUSADRa
@ RM(S2
RMCSl1a
IRECEVD
QEXPCTD
AEXPCTD
aSTATUS

040

102674
102704
102751
102773

ASCIZ

L(ASCIZ
_ASCIZ

_ASCIZ

;8 102600

102627

L.ASCIZ
.ASCII
JASCIZ

105

22
23
26
25

EH223:
EH2S56:

105

040
040
040
040

040

137

130

122

040
122
040
122

122

137
120

040
040

EH114:

120
120
101

137

103

EH1:

EW110:
EWI11:

11:43:28 PAGE

130
130

10
105

17 102521

18 102561

122

123
115

4-APR-B1

JASCII
.ASCIZ

LASCIZ
JASCIZ

ARMCS2
STATUS
)
i

aEXPTTDTM"RETEVD

FAILING
it

@
RMASa
@ RMWC
RMBA
RMDA
a
RMECT
RMEC23
@ RMDA
RMD C
RMOF

@ RMMRT

RMMR?

DATA@<CRLF>
@<CRLF>

BIT"""ADRESSa

HEADER
WORD
QEXPTTDTM"RETEVD NUMBER
RECEVD@<(CRLF>
dEXPCTD
a

BDDATAa

RMDT

FAILINGa<CRLF>
BITa<(RLF>
POSITONa
@

RMERT

RMERZa

RMOF

RMDCa

RMLAQ

RMSNa

103070

STRINGS

MACRO v04.00

001142

000000

001176

000000

001362
001140

001176
001142

g 103130

001134

10 103142

001140

13 103164

001334

2 103076

001140

.WORD

$TMPO.STMP1,0

ED114:
ED223:

.WORD
.WORD

RMDTI,$TMP1,$TMP2,0
$GDDAT ,$BDDAT ,$TMPO,0

001136

ED336:

.WORD

$GDADR,SGDDAT,$BDADR,
$BDDAT .0

001142

0201174

001442

ED337:

.WORD

$GDUDAT ,$BDDAT ,$TMPO,$TMP1,0

001344

001346

STSD1:

.WORD

RMCS1],RMCS2I
,RMDS] ,RMER1] ,RMER2] ,RMAS .0

001366

STSD3:

2103102

001176

5 103110
9 103120

16 103202
15 103216
16 103222

17 103234

001336
001402
001342

001360

S¢

$GDDAT,$BDDAT,0

(00000

"l; 103154

11:43:¢8 PAGE

.WORD

001276

ED1:

4&-APR-81

ED110:

.wWORD

001200
001174

001140
001142

001340
000000
001370

001374

001342

001362

ED111:

ED353:
STSD2:

STSD4:

.WORD

.WORD
.WORD
.WORD

.WORD

$BASE.0

$GDDAT , $BDDAT ,RMOFO,0

RMWC] ,RMBA] ,RMDA] ,RMOF ] ,RMDC] ,RMEC1]
RME(21.,0
RMDA] ,RMDC]I ,RMOF
] ,RMLAI,O

RMRH.RMR?I.RMDTI.RMSNI.O

——

tRROR MESSAGE

TIST

JRMMBO RMOS/3/72 FCTINL

JRMMBO HMOS/3/2 FCTNL
FRROR MFSSAGE STRINGS

g 1§
1

4 18
21

0090

7 103265

000
%

000
000

TST

MACRO v04.00

8%
888
000

000

000
000
000

4=-APR=-B1

D 6
11:43:¢8 PAGE 57

EF110:

.BYTE

EF114:

.B3YTE

0,0
0,0.0

STSF:

.BYTE

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

EF111: .BYTE
EF336:
€f337:

.BYTE
.BYTE

(,0,0,0
0,0,0,0.0

SEQ 0278

"IRMMBO RMOS5/3/2 FOTNL

10
10

MACRD

v04.00

BUFFER:

BUFONE:
BUF TWO:

103274

HELP:

200
200

114

055

124

126

1264

d e

124

W) —=O e

126
124

124
124

124

40 104571

1264
124

—ONOWD

064

124
124
124
124
124

124

124
124

124

124
124
124
124
124
124
124
124
124
1264

124

124
124
124

-ASC

.ASC
LASCII

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCI]
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCIT
LASCII
LASCIT
LASCII
LASCII

LASCIT
LASCII
ASCIT
LASCIT
.ASC{{

124

57 105407

LASC 11
LASC 11
.ASC 11
.ASC 11
.ASC 11
.ASC 11
ASC 11
.ASC 11
LASC 11
.ASC 11
LASC 11
LASC 11
ASC 11

LASCII
LASCII
LASCII
LASCII
LASCII
LASCIT
LASCII
LASCII

124

124
124
124
124

PAGE

6
S8

.BLkW
.BLkW

2S58.
258.

.=BUFFER

lelaelelelelels
el
goooo
(oo
0008
— d b e d ek
NP
oo

103274

11:43:28

£EQ 0277

104%38
103274

4-APR-B!

STRINGS

BENFARAR LS BB NE R RUR NS S

Ua A R i 253 0m ~or v~ s o

FREUR MESSAGE

LASC

065

—

<CRLF>
<CRLF>
aLIST OF TCSTS@<CRLF>
Q==——————————— @<CRLF>

all
are
ar3
aTé

aT5

aTé
aT7
aT10
all 1
12
ET}Z
aT

aT15
QT16
aT17
aT120
aT2]
@122
aT23
QT24
@725
aT26
@127
ar30
QT3]
aT32
Q133
QT34
QT35
aT36
QaT37
aT40
aT4l
aT42
QT43
aT44
@T45
aT46
QT47
Q150

aT51
aT52

@753
aT54
@155

aTsSé

CONTROLLER ACCESS TEST@<CRLF>
UNIBUS INITIALIZE TEST@<CRLF>
CONTROLLER CLEAR TESTQ<CRLF>
ERROR CLEAR TEST@<(CRLF>

DRIVE STATUS TEST@<CRLF>

PRIMARY/SECONDARY ERROR TEST@<CRLF>
DIAGNOSTIC MODE TEST@<CRLF>
PACK ACKNOWLEDGE TEST@<CRLF>
RECAL IBRATE TEST@<CRLF>

ABORT RECAL IBRATE TEST@a<CRLF>
IVC RECALIBRATE
IAE RECALIBRATE

TEST@<CRLF>
TESTQ@<CRLF>

RECAL IBRATE AT OFF SET@<CRLF>
DRIVE CLEAR TEST&<CRLF>
NOP TEST@<CRLF>
OFFSET TEST@<CRLF>
GO/ATA TESTa<CRLF>
WRITE ATA TEST@<CRLF>
ERROR/ATA TEST@<CRLF>
PROGRAM INTERRUPT TEST@<CRLF>
INHIBIT INTERRUPT TEST@<CRLF>
RETURN TO CENTERLINE TEST@<CRLF>
READ IN PRESET TEST@<CRLF>
RMDC CLEAR OFFSET TEST@<CRLF>
ILLEGAL FUNCTION TEST@<CRLF>
INVALID COMMAND TEST@<CRLF>
INVALID ADDRESS ERROR TEST@<(CRLF>
WRITE LOCK ERROR TEST@<CRLF>
ERROR ABORT TESTS@<CRLF>
RMR TEST@<CRLF>
PARITY ERROR TEST@<CRLF>
ILLEGAL REGISTER TEST@<CRLF>
SEEK
SEEK
SEEK
SEEK
SEEK
SEEK
SEEK
SEEK

FIRST CYLINDERQ<CRLF>
LAST CYLINDER@<CRLF>
PRIME CYLINDERS@<CRLF>

ZERO DIFFERENCE@<CRLF>
MAXIMUM DIFFERENCE FORWARDa<CRLF>
ADJACENT FORWARD@<CRLF>
ADJACENT REVERSE@<CRLF>
INVALID SECTORa<CRLF>

SEEK INVALID TRACKa@<CRLF>
SEEK INVALID CYLINDERQ<CRLF>

IvC SEEK TEST@<CRLF>
ABORT SEEK TESTa<CRLF>
SEEK AT OFFSET@<CRLF>

LOOK AHEAD TEST@<(RLF>

"JRMMBO RMOS/3/2 FCINL

106511

-END

6
58-1

OO —=FrIWwHs
W,

et B

e Le L

g
g

Bt
et B
Bt

e e
e e e

et Bt B
g
o

e e
e e

g B

SEARCH ON CYLINCER@<CRLF>

>
SEARCH OFF CYLINDER@<CRLF
SEARCH INVALID SECTOR@<CRLF>
SEARCH INVALIL TRACKQ<(CRLF
>
SEARCH INVALID CYLINDER@<CRLF>
IVC SEARCH TEST@<CRLF>
ABORT SEARCH TESTQ@<(CRLF>
SEARCH AT OFFSETQ<CRLF>

HEAD AL IGNMENT SEEK@<CRLF>

gOPERATIONAL

e e

g Bt

<CRLF>

Bt Bt By
e B

alé7

O=NWHNO N

106453
106465
106477

-AS

alés
aléb

106425

106440

117

055
123
055
040
040
040

aT64

106313

106337
106376
106412

200

et Bt Bt

106267

124
124
124

als?
alé0
alél
aré?
ares3

FURRRIREB
IS
s3
L >

106227
106236

124
1264

g Bt

106123

106147
106172

124

067
060

106051

106066

124
124
124

et St

106015

¢
11:43:28 PAGE

STRINGS

PP PP PP PP PP BOIP DO BEBED B>

105703
105730
105760
105761

4-APR-8]

wmwnununwm
DLWOUVLOLLLLLLULULOOLULLLULOLDUBLILLIYUVIINDWLID
Ialalalalalalalalalalalalalalalalislelalelalelalalalalale
el

105631
105655

MACRO v04.00

SoeUFHRARLE

58 105433
59 105462
105512
105544
105575

>PrBp>>>

FRROR MESSAGE

TST

SWITCH SETTINGS@<CRLF>

USEQ<CRLF>
===a<CRLF>

HALT ON ERROR®<CRLF>

LOOP ON TEST@<CRLF>
INHIBIT ERROR TYPEOUTS@<CRLF>

a<CRLF>

INHIBIT ITERATIONSa@<CRLF>

BELL ON ERRORQ<CRLF>
LOOP ON ERRMR@<CRLF>

LOOP ON TEST IN SWR<7:0>a<CRLF>
>
TN128a<CRLF
TN64Q<CRLF>
TN322<CRLF>
TN16@<CRLF>
TN8a<CRLF>
TNLZ<LRLF>

TN2@<CRLF>
TN1@<CRLF>

APiSIZ=
APTSPO=

=
ARGS
ASWREG=

ATA
z
ATESTN=

ATNMSK
=

ATNTRL

8SE
BUFFER
BUF ONE
BUF TWO
€C

100000
103274
103274

104300

004000

100000
177570

020000
050612
001156
000174
100000

000001
000010
DPEHI
040000
DPELO
020000
DPR
000400
DRIVES
067070
DRQ
004000
DRVCLR= 000010
055020
DRVSTS
DRY
000200

R
R
B
B
B
B
R
e
B
b
Rl lelelvivielvivivivivivivivle
o)
s - el T
—t NN = b el o e e o] = = = = A A OV NNNN)
=
b
=~
— et NN = =2 2 NNINIWNNON)
= = 2
O NN
= =
W WWWNO
N —
—
WNO
WS 2O
W wwwh
—a
NSRS OWNDE WA
——
&~
WEHNONWwW
WHNOw
=0

|
L

T}
T I T
T I
1
T
T
A
I
1
O

100000
000004
000010
BIT4
000020
BITS
000040
BIT6
000100
BIT7
000200
BIT8
000400
BIT9
001000
BLNKS1
067133
BLNKS?2 067132
BLNKS3 067131
BLNKS4
067130
BOTADR
064004
BOTFLG
064006
BPTVEC= 000014

100000

040000
002000

m mmmmmmmmmmmmmmmmmmmmmmmmmMmmmmmm

002000
004000
010000
020900
040000

BIT06
BITO7
BITO8
BITOS
BIT1
BIT10
BITN
BiT12
BITi3
BIT14
BIT15
BIT2
BIT3

CNTCLR
(OMMA
CONT
CPSAVE
CR
CRLF
CYLMSK
DBCK
DBEN
DBL
DCK
DDISP
DEBL
DEVSEL
DISPLA
DISPRE
DLT
DMD

. BITOS

CNSLO4
CNSLO?7
CNSLO8
CNSLO9

DPE

DSWR
DTE
DTO

BIT03

BITO4

CNSLO2
CNSLO3

064007
104410
001510
001512
000040
052402
007466
059400
066375
066405
066447
066456
066512
066654
066655
052264
066341
00100
(63130
000015
000200
001777

177570
010000
010000
= 026024
004000
000200

)
ey

n) -

z22p
~e SM

ommu
2
I

@
P

BIT00
BITO1
BITO2

AFATAL

8809
8ITD

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

CHRCNT
CKSWR =
CLKADR
CLKVCT
(LR
=
CLRSTS
CMNSTA
CMPERR
CNSLO1

AENVM

BBOS

000000
000400
001000
000001
005332
000010
000001
000002
000004
000010
000020

(H
3 002000
(HGADR
001326

AENV

BADTMO

72005

G 6
11:43:028 PAGE 58-2

4-4PR-B1

L=
<

ADEVCT
ADEWM
ADR

A17

ADDW8
ADDW9

200000

ADDWE
ADDW7

ADDW3
ADDW4
ADDWS

MACRO v06.00

I L

ADDW?2

583 BEBESE
&I& RORZS

w£

—=O

ADDW1
ADDW!
ADDW!
ADDW?
ADDW1
ADDW14
ADDW!

ACPUOP
ADDWO

"nn

ABASE

ACDW!
ACDWZ
ACKSTS

"nnmwe

IRMMBO AMOS5/3/¢
SYMBOL

020000
000100
004000
001000
073456
073474
073476

EHT 344
EHT353
EH1
EH110
EHIN
EH114
EH223
EH256
EH336
EH337
EH344
EH353
EMS]
EMS10
EMS100
EMS101
EMS102

076511
076520
076547
076576
074232
076615

07€644
076655
076741
076771
077015
077020
077050
074243
077072
077113
077156
077213
077256
077310
077353

077416
074304
077455

077513
077553

077577
077622
077664
077727
077754
074315

100011
100032
100060
100075
100123
100133
100162
100201
074326
100216
100235
100261
100305

100327
100343

100363

100401

074350
100416

100433

100463

100507
100570

100604

JRMME
YMBOL 7

EMS167
EMS17
EmM5170

Ems1 79

EMS172

EmM5173

EMS174

EMS175
EMS176
EMS177
EMS2
EMS20
EMS200
EMS201
EMS202
EMS203
EMS204
EMS205
EMS206
EMS207
EMS21
EMS210
EMS211
EMS212
EMSZ13
EMS214
EMS215
EMS216
EMS217
EMS22
EMS220
EMS221
EMS222
EMS223
EMS224
EMS23
EMS26 EMS25
EMS26
EMS27
EMS3
FMS30
EMS31
EMS32
EMS33
EMS34

EMS35
FMS 36
EMS37
EMS4

EMS40
EMS41T
EMS42
EMS43
EMS44

FMS4S
FMS4L4

MA R

04,00

4=APR-8]

11:43:¢8 PAGE

58-3
we UsB0

075437
0746026
075465
075515
075543
075553
075565
075607
075636
075713
074056
075741
075754
076003
076021
076047
076065
076132
076203

074123

076230
076242
076255
076265
076302
076321
076327
076360
000030
067246

EMT13

EMT130
EMT131
EMT132

EMT133

EMT134
EMT135
EMT136
EMT137
EMT14
EMT140
EMT141
EMT142
EMT143
EMT144
EMT145
EMT146

EMT147
EMT15
EMT150
EMT151
EMT152
EMT153
EMT154
EMT155
EMT156
EMT157
EMT16

067316
070314
070332
070350
070360
070372
070410
070420
070430
067322
0704590
070462
070470
070476
070512
070520
070530
070540
067326
070550
070560
070570
070600
070610

EMT160
EMT161
EMT162
EMT163
EMT164
EMT165
EMT166
EMT167
EMT17
EMT170
EMT171
EMT172
EMT173
EMT174
EMT175
EMT176
EMT177
EMT?2
EMT20
EMT200
EMT201
EMT202
EMT203
EMT204
EMT205
EMT206

070€30
070642

EMT21
EmM1210

070620

EMT207

067334
070654

EMT274
EMT27S
EMT276
EMT277

070666
070700
070712
070724
070736
070750
070762
067346
070772
071002
071012
071022
071032
071042
071052
071062
067354
071072
071102
071114
071126
071144
071162
071174
071206
067362
071220
071230
071242
071254
071264
071272
071300
071306
067372
071314
071326
071336
071346
071356
071370
071376

EMT3

EMT30
EMT 300

071404

067252
067402
071406
071420
071432
071444
071456
071474
071504
071514
067412
071526

EMT273

EMT 301
EMT302
tMT303
EMT 304
EMT305
EMT 306
EMT307
EMT 31
EMT310
EMT311
EMT312
EMT313
EMT314
EMT315
EMT316
EMT317
EMT32
EMT320
EMT321
EMT322
EMT323
EMT324
EMT325
EMT 326
EMT327
EMT33
EMT330
EMT331
EMT332
EMT333
EMT334
EMT335
EMT336
EMT 337
EMT34
EMT 340
EMT 341
EMT 342
EMT 343
EMT 344
EMT 345
EMT 346
EMT347
EMT35
EMT 350
EMT351
EMT 352
EMT353
EMT 354
EMT36

EMTE2
EMTE3

EMT64
EMTES
EMT66
EMTE7
EMT?
EMT70

71
EMT
EM172
EMT73
EMT 74
EMT75
EMT76

064002

OO« I
IS
NN)
— —

58-4

000001
000002
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000054
000056
000064
000066
000074
000076
000002
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000020
000001
000002
000004
000010
000100
010000
002000

004000
000002

009100
000400
000004
000400
020000
010000
002000
000040
000002
066676
100000
= 000200
MSER
MSGDRV
066712
MSHELP
066344
MUR
001000
MWD
000010
MWP
000010
MXF
001000
N
067124
115760
ND TMSK
NED
010000
NEM
004000
NONE
067117
NOP
= 000000
NOTAVL
067030
NOTPRS
067013
NOTRM
066755
100000
NSA
100000
ocC
OFD
000200
OFFSET
000014
oM
000001
OPE
OP]
OR

PACACK
PAKACK
PAR
PAT

PDA
PFECH

PFECH]
PFECH2
PFECH3
PFECH4
PGE

PGM
PHA

020000
020000
000200
000022
000022
000010
000020
000400

064052
064062
064150
064166

064174
002000
001000
000200

PIRQ
PIRQVE
PLF
S
PRIERR
PRO
PR1

PR2
PR3

043706
000000
000040
000100

000140
000200
PRS
000240
PR6
000300
PR7
000340
PS
177776
PSEL
002000
PSW
177776
PUT
043160
PUTBUF
001410
PUT INX
001543
PWRVEC= 000024
QUES
066335
RCLSTS
054056
RD
000070
PR4

RDCHR
RDLIN
RDOCT
RDY
READY
RECAL =
RESREG=
RESVEC=
RE
#
RG
RH
RIP
RLEASE
RMAS
RMAS
|
RMASO
RMBA
RMBAE
RMBAE1
RMBAEO
RMBA

RMBAO
RMCST =
RMCS1]
RMCS10
RMCS2 =
RMCS2I
RMCS20
RMCS3 =

RMCS31
RMCS30

=
RMDA
RMDA|
RMDAQO

020000
177772
000240
002000

PIP

000012
066776
000004

3 3 3

"nn

"nun

—

hal

[an]

[T
L

103274

000011
002000

002000

001332
04000
020000

1 O

ILF
ILFO2
ILF24
ILF26
ILF30
ILF32
ILF34
ILF36
ILF&40
ILF&42
ILF44
ILF&6
ILFS54
ILF56
ILF64
ILF66
ILF74
ILF76

EMTE
EMTE0
EMTHT

000200
002000
000400

EMTS6

FER
F IND
FMT16
FNCDTB
FNCMSK
FO

104407

1AE
IBSAVE
063132
IDXMSK= 000077
= 000100
1E

EMIS7

ESRC

GET
GE TBUF
T INX
GE
GETSTS
GO0
GTSwWR

LBT

EMTS3
EMTSS
EMTSS

FRTYOO
ERTYC?
ERTYO2
ERTYO3
ERTYO4
ERTYOS

Fé

000010

000020
000040
042710
001334
001574
042624
000001

EMTS]

EMTS2

EMT77
. QUALS
ERR
ERRNMB
ERROR
FRRTYP
FRRVE'

P32

HCE
HCI
HCRC
HELP
HT

S¥RF
T; &22
R
mmrmmo5598

EMTLS
EMT4LE
EMTSL7
EMTS
EMTS0

11:43%:28 PAGE

067632

4=APR=-81

EMTLS

v0§.00

kU OB

EMTG2
EMTL3

MA{RO

[

EMTLT

EMTL0

067572
067266
06760¢
067610
067620

imMr27
EMT4

‘

nan

JRMMBC
S YMBOL TABLE

104411

104412
104473
000200

007660
000006
104415

000010
010000
040000
000072
000020
000012
006016
001352
001426
000004
000050
001404
001460
001340
001414
000000
001334
001410
000010
001344
001420
000052
001406
001462
000006
001342
001416

000022
001356

001432

000034
001370
001444
000012
001346
001422
000026
001362
001436
000044
001400
001454
000046
001402
001456
000014
001350
001424
000042
001376
001452
000036
001372
001446
000020
001354
001430
000024
001360
0C1434

000040

001374
001450
000032
001366
001442
000004
000030
001364
001440
000002
001336
001412
100000

040000
000016
2000006
%000C07
000377
104414

SAL

000001
000020
000002
000004

IRMMBO RMOS/37¢2 FLTNL

SYMBOL

=
=
=
=
=
=

062512
103164
103202
103222
103234
103265
102627
102704
102773
103031
001154
000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

SW10
Swl1l
SwiZ2

= 002000
= 004000
= 010000

Sw3

=
=
=
=

= 000002

= 020000
= 040000
= 100000
= 000004

= 000010

Hunnunn

T1ST44

TST4S
TST46
TST47
TSTS
1ST50
TSTS1
TSTS2
18153
TSTS4
TSTSS
1ST56

020000
001114
040000
TA1
000400
TA16
010000
TA2
001000
TA4
002000
TA8
004000
TBITVE= 000014
TIMOUT
043522
TKVEC
000060
TPVE(
000064
TRAPVE
000034
TRE
040000
TRTVEC
000014
TST
0109C0
TSTNMB
064000
TSTPRP
041650
TSTQUE
001464
TST1
010046
TST10
013426
TST11
013726
TST12
014144
TST13
014452
TST14
014762
TST15
015224
TST16
015502
TST17
015752
TST2
010246
1ST20
016202
TST21
016526
15122
017146
15123
017512
TST24
020104
TS125
020574
T1ST126
021142
1S127
021464
TST3
011116
TST30
022046
1ST31
022364
TST32
02315C
TST33
023674
TST34
024464
7ST35
025250
TST36
025602
15137
026242

WCH
wD
WH
WLE
WRL
XS1Z
XXDP

TST41

$APTHD
$ATYC

IST4
1ST140

011454
026462
027020

027306
027574

TST43

1ST57

035032
012174
035510
036214
036614
037224
037624
040204
040550
041106
012354

1ST6

TST60
TST61
TST62

TST63

TST64
T1ST65
TST66
T1ST67
TST7

TYPBN
TYPDS
TYPE
TYPOC
TYPON
TYPOS

UNS
UNTMSK
UNTOFF
UNTON
UPE
USE

uo
u1
U2

VvV
wC
wCD
WCE
WCEHI

WCELO

WCF

munnnuwuwnn

STOP
STSD1
STSD2
STSD3
STSD4
STSF
STSH1
STSH2
STSH3
STSHG
SWR
SWREG
SWwO0
SWw00
SWO01
Sw02
SwO03
SW04
SW0S
SWw06
Sw07
SW08
SW09

STRLMT= 177774

177400

TST42

fhhnnn

057766

SwZ

J
11:43:¢8 PAGE

040000
020024
001100
(07010
005422
005412
005426

STCDRV

SW1S

4-APR-81

skl
=
SNGPRT=
STACK =
STANDA
START
START1
START2

000020
000040
000100
000200
000400
001000
066720

wnunnn

051024
065450
043400

SEKSTS
SHUT
SIZCLk

Sw13
Swié

000004
003700
000100
000200
000400
001000
002000
000030
044540

SCOPE =
SCTMSk=
50
=
sC1
=
=
SC
=
SC4
=
SEARCH=
SECERR

Swil

MACRO v04.00

6
58-S

TABLE

SAE
= 000010
SC
= 100000
SCHSTS
056422

SEEK

104406

104405
104401
104402
104404
104403

040000
000007
067047
067060
020000
040000
000001
000002
000004
000100

000040
000050
040000

.010000
004000
000040
000052
000060
000062
004000
004000
006454
001330
067126
001100
066104

$SATY

$ATY3

$ATYS
$AUTOB
$BASE
$BDADR
$BDDAT
$RELL
$8IN
$COWI
$CDW2
$CHARC
$CKSWR
$CMTAG
$CM3
$CM4

$CNTLC
$CNTLG
$CNTLU
$CPUOP
$CRLF
$DBLK

$DDWC
$DDW1
$DDW2
$DDW3

$DDW4
$DDWS
$DDWE

$DDW7
$DEVCT
$DEVM
$D0AGN
$DTBL
$ENDAD
$ENDCT
$ENULL

$ENV

$ENVM
$EOP
$EOPCT
$EOSP
$ERFLG
$ERMAX
$ERROR
$ERRPC
$ERRTB
$ERTTL
$ESCAP

$ETABL
$SETEND
$FATAL
$FFLG

$FILLC
$FILLS
$GDADR
$GDDAT

066060
066065
066076
001150
001276
001136
001142
001212

060640
001302
001304

061644
064510
001114
000000
000005
065406
065420

065413

001250
001217
061056
001306
001310
001312
001214
001316
001320
001322
001324
001232
001300
041640
061046
041630
041466
041644
001242
001243
041432
041460
041374
001117
001131
062540
001132

001572
001126
001210
001242
001326
001224
066324
001172
001171
001134
001140

$GE 142
$GTSWR
$GT42P
$HD
=
$HIBTS
$HIOCT
$ICNT
$ILLUP
$INTAG
$1TEMB
SLF
$LFLG
$LPADR
$LPERR
$MADR1
$MADR2
$MADR3
$MADR4
SMAIL
1
$SMAMS
$MAMS2

041620

$MAMS4
$MBADR
SMFLG
SMNEW
$MSGAD
$MSGLG
$MSGTY

001266
001102
066322

$MAMS3

064600

041614
000000
001100
065572
001120
066042
001151
001130
001220
066323
001122
001124
001254
001260
001264
001270
001222
001252
001256
001262

065436
001236

001240
001222
$MSWR
065425
$MTYP1
001253
$MTYP2
001257
$MTYP3 001263
SMTYP4
001267
SMXCNT
062332
SNULL
001170
SNWTST= 000001
SOCNT
061310
$OMODE
061312
$OVER
062316
$PASS
001230
$PASTM 001106
$POWER
066050
$PWRDN
065702
$PWRMG

$PWRUP
$QUES
$RDCHR
$RDL IN
$RDOCT
$RDSZ =
$RE SRE
$RMO2

$RMO3
$RMOS

$RTNAD
$SAVRE

066036
065754
001216
065052
065142
065472
000010
060530
066736
066743
066750
041642
060472

(ZRMMBO RMOS/3/2 FOTNL

SYMBOL

IST

TABLE

$SAVRE
$SCOPE
$SETUP=
$STUP =
$SVLAD
$SVPC
$SWR

066046
061650
000137
177777
062262
0C0210

$7xB
$TKCNT
$TRINT

$SWREG

MACRO v04.00

001162
064200
064210
$TKQEN= 064207
$TKQIN 064202
$TKC TMY 064204
$TKGUR
054206
$TKS
001160
$TKSRV
064260
$TMPO
001174
$TMPT
001176
$TMP2
001200

16746400

001244

$SWRMK= 000000
$SWOBT
062334
$TESTIN 001226
$TIMES
001206

106524
000000
ERRORS DETECTED:

. ABS.

4-APR-F1

000
001

VIRTUAL MEMORY USED:
( 242 PAGES)
61952 WORDS
DYNAMIC MEMORY AVAILABLE FOR
70 PAGES
(ZRMMB.BIC,CZRMMB/ (=CZRMM5.DOC, CZRMMB, SYSMAC/M

001202
001204
$IN
= 000070
$TPB
001166
$TPFLG
001173
$TPS
001164
$TRAP
065574
$TRAP2
065634
= 000016
$TRP
$ TRPAD
065646
$7STM ° 001104

$TMP3
$TMPS

11:43:28 PAGE

58-6
$TSTANM
$TTYIN
$TYPBN
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
$UNIT

001116
065374
060566
060642

061314
061526
061646

061112
061126
261066
001234

SUNITM 001110
SUSWR
001246
SVECT1
001272
SVECT2 001274
$XOFF = 000023
$XON
000021
$XTSTR 061672
$$GE T4= 000000
$$5w08= 000070
$OFILL
061311
.$x
= 001100

$BELL

$8IN
$CDW1

$CDwW?

$CHARC

PCKSWR

22=67
22=171»
22=285+
22=418*
23=-120+
26=99*
28=44n
28-126+
30=-103*
31=28+
31=103+
32=243x
6-0#

35-1
60

6=-0#

38-1

4&2-1#

[
AON—
—
wvilnoonrno ~
—-—~Nw O

13=<79*
21-50+

13=-71
13-120
13=245+
13-329+
13=571=
13-683+*
13-958+*

21-53
22-85*
22-183%x
22=314x*
22-432+
23-121x
26=-100*
28=53*
28-127*
30-120*
31-29+«
32-58*
32257+

40-1

35-1%
38-1#

44-1

21=-71x
22-86*
22-184*
22-315x
22-433%
23-122
26-106
28-61
28-129
30=-134*
31-31
32-76%
33-46%

28=71x
29=27*
30-159«
31=41»
32=-107*

40-1

35=1=

33-62*
40-1
35-1+

38-1+

38=1+

44-1

13-204
13-660
13-=56
13-C08
41-25

13-255
13-692
13-=84
13-C59
56-2

13-95«
13-191«
13-296*
13-347+«
13-613=
13-863*
13-:25x%
13-.59
13-E87*
22=41x

13-101+«
13-193=
13-301=
13-348+«

39-1
39-1

39-1
39-1
39-1
39-1
39-14
39-14
39-14
39-14

39-1

b =D
) =D
d d d wnd wd
—

~N
~

-825+
W

13-:93
13-=11
21=77*
22-87
22-200*
22=329+
22=455+
23-137«
26=-117

[}

13-369*
13-670%
13=-909+
13=:91»
13-=09+

13-899+
13-:38

13-69*
13-118«
13-236*
13-324*
13=371=
13-671%
13-910*
13-:92«
13-=10%

13-F35

-.80 .

6-0#

13=113+
13-223*
13=313»
13-360*
13-653+

42-1
11-42*
13-488
13-:48
13-225
13-F79

$8DADR

$BDDAT

10=75
12441
13-915
13-242
13-E96
56-8
13-68+
13=117=
13-229*
13=314*

13-886
13-208
13-€58
6=0#

LE6=14
L6=14
L6-14
10-28*

13=417

42-1
11-33
13-463
13-981
13-276

39-1
39-1
39-14
36-14
39-14
39-1%

39=1
39-1
39-1
39-1
39-1
39=1
39-1
39-1
39-14
39=-14
39-14
39-14

39-1
19-1
39-1

39-1
39-1
39-1
39-1

3G=1
29-1
39=1
39-1

39-1
39-1

49=1
391

39-14
39-14
39-14
29-14

39-1

39-1
39-1

19-1

39-1
39-1

39=-1

39-1

39-1#4

39-1#

39-1
IC-1
39-1

39-14

39-1#

39-1
39=1
39-1

39-1#

3G-12

39-1#

46-1

6-0#

3r-1x

39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-14
30-14
39-1#
39-1#

39-1
39-1
39-1
39-1
39~1
39-1
39-1
39-1
39-1#4
39-14
39-14
39-14

39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-1#
39-14
39-14
39-14

[} N
]

46-1
LE~18
38-1
40~
46-1
6-0#

37-1»

39-1

— -\

|
|

$OF ILL
$40CAT
SAPTHD
SASTAT
$ATY1
$ATY3
$ATYSL
BATYC
$SAUTOB
$BASE

39-1
39-1
39-1
39-1
39-1 ,
39-1
29~1
39-1
39-1#
3G-iy¢
39-14
3x-14

]

3G-14
319-14
371
39-1
5-8

39-1
39-1
36-1
39-1
39-1
39-1
39-1
36-1
39-1#
39-1#
39-1#
36-14

19-1#

39-1
39-1
39-1
39-1
39-1
39-1
39-1%
39-14
39-14
3G-14
37-14
40-1
5-8#

)

L
6
11:43:2R PAGE S-1

39-1
3G=1
39=1
39-1
39-1
29-1#4

14204

39-1
39-1

v01-0S

4-APR-81

14-20
39-1
319-1
39-1

(CREF

MACRO v04.00

$8GETL
$85408

TABLE

TROSS REFERENCE

TST

W —=\O
0

CJRMMBO RMOS/3/72 FCTINL

22-142
22=-256*
22-387x
23=-10*
26=37*
26=-196*
28-103+
29-113»
30254~
31-72
32=-153»
56-8

13-614%

13-864*
13-:26%
13-:68*
13-E88*

22-53*
22-156+
22=257*
22-388+
23=34+
26~66*
26=212+
28-104*
30-35+
30=-270*
31-81+
32-170»
56-10

13-273

13-375

13-400

13->12
13-D19

13=->46
13-D64

13->80

13-E12

13-105+
13-197=
13-302+
13-353«
13-635+
13-870+*
13-:27
13-;69*
13-F18»
22=54*

13-106*
13-198+
13-307+
13-354*
13-636*
13-875+«
13-:36%
13-;70
13-F19%

13-108
13-217~
13-308+«
13-359«
13-652~
13-898+«
13-:37«
13-<50+
21-49+

13=-757

22=-157+
22=271»
22402+
23-92+
2667+
28-31+
28-106
30-49+
31-16+
31-82+
32-186+
56=11

13-811

22=-64*
22-158
22=272%
22-403*
23-93+
26-68

28-32«
28-116*
30-65
31=-17«
31-84
32-209*

13-842

22-65+
22-170~
22-284+
22-417=
23-94

26-88+

28-34
28-117=
30-82+
31-19
3i=94
32-227=

JRMMBO RMO5/3/2 FCINL T3T 1
MACRO v04.00
U
0SS REFERENCE TABLE (CREF v01-05 )

$CMTAG
SONTLC
S$CNTLG
SCNTLL
$CPUOP
SCRLF

| $pBLK
$ODWO

$00Ws

$0DWS
$0DWE

$0DW7

SDEVCT
$DEWM
$DOAGN

$DTBL
$CNDAD
SENDCT
SENULL
SENV
SENVM
$EOP
SEOPCT
$EOSP
$ERFLG

$ERMAX
$ERROR
$ERRP(
$ERRTB
SERTTL
$ESCAP

$ETABL
$ETEND
$FATAL
$FFLG
$FILLC
$FILLS
$GDADR
$GDDAT

42-1

6=0n
6~0#

6=0n

60
6=04

10-23
42-1

L2=18
42-1

6
11:43:28 PAGE S-¢

6=0

6-0

10-23
42-1

10--23
42-1

10-23
42-1a

10-23

SEQ 0285

6=0

14=20

36-1
5-5

10-23
14=20#

6~0#
-0
13-29

10-23+
13-239

6-04
6-04
10-23
6-04
8-0#
6-0n
604
6-0#
5-8
6-0n

46~1

6=-0#
6-0#
6-0#

10~ 78
14- 20#

10=117«

10-28

14=204

40-1

10-28
10-23
14204
14-20
14-94
39-1
10-23~
40-1#
40-1
41-72
14-20
10-23+

38-1

10-71

14=20#

6-04
461+
L6-14
38-1
38-1
56-8

6=08

14=20
42=-1

38-1
42=-1

38-1
42-1

12-38

13-28~

42-6+

42=-14

10=-67*
14=20

36-14

6=0w

10-23

40-1

36-1
6=04
6=0#
6=0n
6=0#
6~0n
6=0#
6=0n
6~0n
6=0#
6=-04

6E=0n

10=121*

11-63~

40-1
38-1

46~1
38-1

46- 1
46- 1

39-1
39-1

40-1

40~1

40-1x

14=20

14-20+
40-1

46=1%
38-1
38-1

46=1%

42-7
14-204

39-1x

38-1

40-1
40~1

11=70+

11=97«

11-98

H 2-4

39-1
39-1+

39-1+

40-1

40~1

40~1%

40-1+

41-54

40-1
40-1

40=1+
40-1

38-1

42=1

46=1%

OOOMMMMM
UMMMMMMN
—OI — e~ MMN
OO\MOUMMMMM
NO*sOl—Ne—NeO—®*+*—OOUUONO®D
&0O-U
&M~ATO N* IOON— NN— N
Mo0VU0}OVO0 Ig¥NNMMM
OVIgVIg@IA—=§VaMdokYlMelMMLlM
S
U
NALYANLANR"
&
X
o
k
x
&
X
K
*
e—Or—r—yr— .-fiN.’.IlOsqM.l.l —0OMMNMESMPYRTYREDY ®&X¥xK La3la¥"[elaVdlaoVYe KNX-K 2§£48020 O—INNMN %*¥&- UL T—OWNANMOITI ®¥&Xe* 0—Ny—O0MMMe OU=—NVY —ODsNvUM~ON (=OYONONUAIY NDOs0v

&&"

e—ONMOYs—0OuMo

=OMUMMYN O*—&«\V eO—vy=O0MIMMN 115%0428546

oOIO
V VOoW IUoV MoV itkNIM N

ONO el —MO N

.5—N2L%1LLBRO2.d5N.\M-7l¢"A.%Ty-0NN.8'&h0‘‘-B.%MNn1'Oo6“ev&U14M'*N-h6I—OQN

—OIMMNNO M MMM MM

OUvtNy®NNNNO0O\O— —*
¥}VooNoN[VIQ(@AVelelol Lol
O00MMMM=«g&NO&0MU"ONMMOAO#U—I &=O-I«NMMMNMOoV MMNNMIN[—N —

$00W!
£00W2
$00w3

6=0
6~0n
6=0n
42-1
42-1

4-APR-B1

CZRMMBO RMOS5/3/2 FCINL TST 1
MACRC v04.00
"Ro SS REFERENCE TABLE (CREF v01-05 )

28~70+
29-59w
30-64
30~-188+
37-3]
32-131+
32-241+

BHIBTS

EHIOCT
SICNT
SILLUP
$INTAG
$ITEMB
SLF
SLFLG
$LPADR
$LPERR
$MADR1

$MADR?2
$MADR3
$MADRS
SMATL

14-20
42-14
4=471

5-8#4
43-1#
6-0n
45-1
608
6-0#
6-04
46=14

6-04
604
6-04

28-84
29=73x
30-81+
30-204»
31-71»
32-133
32-255+
56=10

12-43

14=-20#

4=471

441
4=471

14=204
44-1

43-1+
39-1
45-1
42-1
40~1

38-1
4b=1+
10-23+
10-23+

28-93+

29-86+
30-101+
30-220*
31=72

32-137

32-256+
56=11

6
11:43:28 PAGE S-3

28=105+
29-87+
30-102+
30=-221*
31=-83«

28-106
29=100~
30-118+
30-238+

32-151%
33=44%

28-115+
29-101+
30-119«
30-239+
31-84
31-92«
32=152+ « 32-1€8+
33-45+«
33-60+

39-1
45-14
42-1
40-1
38-1

39-1

39-1x%

39-1x

42-1
40-1
40~1

42-1
40-1
40-1

42=1%
40-1

39-1
39-1

39~1
39-1

SEQ 028¢

28-128+
29=114+
30~132+
30-250+
32-564
32=169+
33-76+

28-129
29-115+
30-133«
30-253+
32=57+
32-184~
3377+

29-25+
30=33+
30-157+
30-268+
32=74+
32-185+
33--96+

29-26+
30=34+
30-158+
30=2/ 9«
32=75+
32=207+
33-97+

29-39+
30=47+
30=173+
31=-18+
32-88+
32=208+
33-110+

29=40+
30-48+
30=175»
31-19
32=-104+
32-225+
33=111+=

29-58+
30-63+
30-187+

13-255
13-692
13-=84
13-C59

13-273

13-375
m-811
13->46
13-D64

13-400
13-842
13->80
13-E12

31=30+

32-109
30-226+
56~1

42-1

39-1+
39-1+

39=1%
40-1

391+

6-04

6-0#
6-0#
5-8

13-417

L6-1%
46-1

46=1%

46-1%

30O NIMOA—

$GE 142
$GT42P
SGTSWR
$HD

56-6
12-34

28-83~
29=72+
30-80+
30=203+
31=40*
32-132+
32=-242*
56-8

4-APR-81

ULA—CMIUNO-NV —

13-757
13->12
13-D19

RMMBO RMOS5/3/2 FCINL TST 1
MACRD v04.00
"ROSS REFERENCE TABLE (CREF v01-05 )
hd

13-424

SOUNT
$OMODE
SOVER
$PASS
SPASTM
$POWER
$PWRDN

SPWRMG

$PWRUP
$QUES

ER2A
SRDCHR

C
SRDLIN
$RDOCT
$RDSZ
$RE
-

$RMO3
$RMOS
$RTNAD
$SAVRE
$SAVRE

$SCOPE
$SETUP
$STUP

$SVLAD
$SYPC
$SWOST
$SWR

13-(C8#
13-ES8#

37-1#

37=1

45=14
451

45-1

LS5-14

45-1#4

]

441
o4=1

L4+~ 1
44~ 1

Lo-1»
AR

10-92
10-97
10-102
14=20#

41-32
41-28
41-36

47-1954
47204
47-214

45-1
34-1#

10-23
4=766
10-23

45-14
441

39-14
4L-766

45-1»
44-1

14=20
4=766

10-23
1420
4-766
L=7664

L=7664
39-1

5-5
39-1
4=4604
10-23
13-441
13-915

40-1
6-0#
4=472
39-1
6=-0#
13-510+
13=; 14+
13-976+

11=4

39-14
5-54
39-14

11:43:¢8 PAGE

SEQ 0287

13- AS 8
13- (5 S

13- 3

13-AS5P%
13-D1%
13-E96#

1 3-F3 5

37=1»

37=1«

14=20

14-20

40-1

40=1

45-1+

4-766
10-23
40-1
4-766
4=-7664

4=766
10-23
40-1

39-1

7
S=4

39-14

1 3-A5 84

3-A9S
3-D19#
1 3-F 354

13-A95#
13-D64
13=F 354

13-A95#

13=D64n

13-831
13-D6sn

14=20+

39-1

39=-1

42-1

42=1

4=766
10=23
40-1

L=7664
10-23

4=766#4
10-23

1 3-D1 o#

13-F 79

13=<k79

13-R312

13-£12

13=F 75#

13-831#

13-t 124
13=F 798

(5<-14

42-1#
43-1#
42-1

42~

14-20

44-1

$TKQEN

$TKINT

39-1

441

STKCNT

$TkB

37=1+
37=1»

42-1#
44-1

$Gn

13-E96

38-1

36=1e
6=-0#
39-1
6-0#
42-1

$TIMES

13=A244

13=C

38-1

6~0#

441

29-1

$TESTN

13-E58%
37-1+
37-1#
39-1
10=23»

39-1
608
5-8#
451
10-23

13=242
13-£56

$SWREG
£ SWRMK

13=A248
13=-(59

4-APR-B1

4=-766

10-23
39-1

4-766

4=7664

4=766

40-1
L=7664

4-7664
10-23
42-1
L=7664

4=472

4~472

4=472

39-1

13-375+

13-400+

13-417+
13-886+
13-208+
13-E58+

13-441»
13-915+
13-242+
13-E96+

13-463»
13-987
»
13-276+
13-F 35+

13-a25«
13-F 79«

13-=84+

13=>12+

13-F 79+

14-20»

4=766

L=7664

4=766#
10-23
42-1
4-7664

10-23
42-1

42-1

4=7664

L=7664

10-28

4L=-7664

10-23
10-28

4-7668

L=7664

4=471
10-23
13-463
13-981
13-276
13- 35

39~1

40-1
10-23
4=472

39-1
13=1«

13-540+
13-.80*
13=A24+
4145
10-23+

39-1
38-1

42-1
12-47
42-1

=472

39-1

4=472

39-1
13=137+
13-589+
13-<54+
13-A95*

39-1

13-179%
13-625*
13-<87*
13-831»

13-204+
13-660%
13-=56+
13-(08*

13-255+
13-692+
13-=84+
13-C59+

1 3 273+

3 757
1 3 =>12*
1 3 -D19+

13=>46+
13-Dhé4+

13-842+
13->80+
13-g12+

12=-46*

13-32+
391«

13-417%

13=441%

13-463~

13-488+

13- =S6+

42-14
13-61

42-1»
42-1

13-400+
39-1»
42-1
42-1+
42-1

42-1
42=1+
42-14

42-1

13-32+
13-558+
13-<22*
13-A58+

39-1
38-1

L2-1n

42-1

13-811+«

39=1
13-488~

13-:48%

(ROSS REFEREMCE
&2+
&2-1
42-1
6=~0n
42-1
6=0#
6=0#
11=76

(CREF

MACRO v04.00
v01-05 )

W2-1a

42-"

42=1%

eMO0—aon~rN ~"—

L2-14
S

L2-1a
42-1

42-1
38-1

11:43:28 PAGE

42=1+

42-1 -

42-1s

42-1+

42-1

42=1+

2=+

42=1e

2=+

L2=1+

&2=1+

25-31

56-3

56-6

11-90

11-95

56-10
11=56
17=43

11=66*
18-36+

11-67
18-37

11=73
Q4=24r

11=75
24-05=

ULoMWNON (UL

@3RSRRTLRsTTrResIOTTNTY*YPTTPoRP]4oNRo%oRYl»%gTNOlEaR—(loUaTU0PlMMMoROlIT0aN~Oln1FiRaylANI3o0=lY~0L0YAya~lRa——0 elaSP1 lTaTIlU.OaAliaAlTaAAUlNaNNRTlo.al Ve=NMmOy

=gM"=\UL eg[LklV

S-5
i

42=1%

42=1+

W2-1a

42~
40-1
38-1

4-APR-B1

O—*OIMO—X»O&IN& I&NTN Vel][aA
N
N
—OFWXN—RWN&ON&ONTWT&ANT —O
N —N

ETRQIN
$TeQ0U
$TKQSR
$7KS
$TKSRY
$TMPQ
t$TMP1

TABLE

TST 1

O~ —
Qe
\00 N

“JRMMBO RMOS5/3/2 FCTINL

24=37
6=0#
65=04
65=0#

[|A

A -

$TMP?
$TMP3
$TMPG

11-42

56=10

11=50+

11-52
17=42+

SN34T(S2&NNSRXSINNBTNBTBN0MAL0olV10LAgo9}lNoa5Veloa1lNa0lNiao5lla1Nao5NaL0laNl7ale6alNlog2allLa6Mla1lNal&LlMa6liM-al

$TYPDS
$TYPE
$TYPEC
$TYPEX

$TYPOC
|
|

$TYPON
$TYPOS
SUNIT
SUNITM
SUSWR
SVECTI
SVECT?2
F
$XOF
$XON

5-8#
6=0n
42-1
35-1#
36-1#
38-1#
38-1
38-1

37-14

37-1
37-1#
6=0n
5-8#
6=0n
6=0n
6=0n
38-1
38-

UL) NOVW¥N—OVTONMWNONO LsaogllNaliala

NI olalalalalalalalalalalialabalel

Ne I g1la5la1l“ol7al9sal1la.l5alalGiOaVla—la—lal[Ml

) |

=R XT_T

TF0O=UMIN

12=45+

42-1

44=1
44=1
44=1

38-1
38-1

14-20+
42~ 1
)

[AAS
L4- 1
L4 1

38-1
38-1#

$7STM
$TSTNM
$TTYIN
$TYPBN

ReLoABNIlkt

WW
MO TWNOONONV I AU

a-Q

39-1
42-1
46-1

391

42-1

38-14

42-1

37-14

44=1
L4-1

1249+

12-68

21=51

41-22

11=46

11=56+

13-696

13-702

38-1
38-1

42-1

44-1

39-1

13-761

13=767

L2-14

39-1

NIONN,

39-1«

39-1~

40-1

40~

40=1

JRMMBO RMOS/3/2 FCINL

"ROSS REFERENCE

ExTLTR
LBASTA
.8

39-14
46-1
5-8

ABASE

4=7634

Alé
A17

ACDW!

ACDW2
ACKSTS

ADDWO
ADDW1
ADDW1Q

ACPUOP

ADDW11
ADDW1?2
ADDW13

ADDW14

ADDW15
ADDWZ2
ADDW3
ADDW4

ADDW5

ADDW6
ADDW?7

ADDW8

ADDW9
ADEVCT

ADEVM
ADR

AENV
AENVM
AFATAL
ALL

AMADR1
AMADR?
AMADR3
AMADRS
AMAMS1

AMAMS
2
AMAMS
3

|
x

|
|
s

l
L

AMAMSS
AMSGAD
AMSGL
G
AMSGTY
AMTYP1
AMTYP?

4=7124
“=711n

6=0
6-0

13-393

6=0
6=0
6=0
6=0
€-0
6=0
6=0
6=0
6=0
6-0
6=0
6-0
6-0
6-0
6-0
6-0
6=0
6-0
6-0
13-1

13=-204#
13=417#
13-540
13-6604
13-886#
13-;80
13=-=56#
13-208#
13-A24
13-C08#
13-E58#
6-0
6-0

6-0

11-69

6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6=0
6=0
6=0

TABLE

TSST

(CREF

MACRO v04.00

v01-05

4-APR-B1

7
D
11:43:¢8 PAGE S-¢

46-1

5-8#
13-=41

13-=41

6=0
6-0
6-0

15-151
6=0

6=0

29-15#

6=0
6=0

6~0

6=0
6-0
6-0
6-0
6=0

6-0
6-0
13-14
13-255
13-4174
13-5404
13-692
13-886#
13-.80#
13-284
13-208#
13-A24#4

13-(59
13-E58#
6-0
6-0
6-0
L7-4H
€-0
6-0

6-0
6-0
6-0
6-0
6-0
60
6-0

6=0
6=0
6=0
6-0

13-137
13=-2734
13-4634
13-589
13=-757#4
13-9814
13-<54
13=>12#
13=2764#
13-A95
13-D19#
13-F35#

13-1374
13-375
13=-4634

13-589%
13-811
13-981#4
13=<544

13->46
13=2764
13-A95#
13-D64
13-F35#

13-1374

13-375#
13-488
13-589#
13-811#
13-:48
13-<54#

13->464
13-225
13-A95#
13-D64&#
13-F79

13-179
13-375#
13-488#
13-625
13-811#
13-:48#
13-<87

13=->464

13-225#
13-B31
13-D64#
13-F79#

13-179#
13-400
13-488#
13-625#
13-842
13-:484
13-<87#
13->80
13-225#
13-B31#
13-E12
13-F79%

13-179#
13-400#
13-510
13-625#
13-842#
13-:14
13-<87#
13->80#
13-76

13-B31#

13-E12#

13-204
13-4000
13-5100
13-560
13-842#

13-=56
13->80#
13-a76#
13-C08
13-g12#

13=-204#
13-417
i3-510#
13-660#
13-886
13-;14#
13-=564
13-208
13-a76#
13-C08#
13-€58

vOM0-—cN——lNMg1l«AvAl1Rmr1\Arxs—3N!ltL1W1—A!\oN]O-¢MO’aM-lNFe1eO0alV0,eWo1Nl0ao6WLgS‘aOMl1aNOlOGRba%0Mel“oliGNOa0lP6aM~Nl‘YolOweP—a6NeaAorleOl4MaPN6iWaOel8iWa.1lNoaBGOaRO-WlWGRiMe-lNAasIOaiRMellOI.AaT-aNSR~MI3lNG”ONaS1OORPl”LNP1LOo—SWoa1ORNOl—mPT1uRw1&nA‘OTa-H&nRySRvV~SO~o-NN>A&

—nMOihNreWNDA%CDEFGACTIl*sV*+—MIFITNOV00M

coIU—O—I-=VMS[NVy0Oa——MX:hOUVAMo5Ng-0-0Se8—aMUlegTb—NMo0VO]OoIyoRNW0=V*lOMoD[gbAl-NA=76Ao5e9MW&on3.%*‘5lfof9C4lilo3lPv”8oD6wl2E.3o0e9”l6Pu1F0oe478oG6l75251oe87o7e”lA65o5l370GCeo29oSD32yl&o78lI7lM4so2?3V79T6“27o-*We“5o3“—Tl02OgM9N7Tl8%I2e&“To3—lyT“N9.Ooe1No54Oel”0?oN3Wleo98TlT.Oa548Dae}d0L3O?M—Weol”PM~P~3R~Wm6~%[ow~MaN¥~]M
) 11 i

TRax ey o R R

Ry
e
n
A3 RaxTRn T& [y T&&R&/

&gAYf-aoLPl9a3lRluV§io%3Tl§R1E—-|0M3-M—NL=oSPA)eY-ALeMgolyTalFY—aql9T2qN2SARTAalNIFalATo3lItAalURoORlNtTRal2AoPlXIalAeIiaylRZ3aPlIaIlAaIla-lARTaZleAlraL3TleYIalaSloYaR&=lal0al=alAi=e3al&iTeaNloOal=oFaleeolb=ae1O-=lqeaNdaNRP~TelNmnRvelW2@O~Po7T"i1C N
|

L)aAVON3L¢lM0.Yl Ow{NRAeM—M-I~NOyN0TO—NONMON ~asoBA¢lLaialM.falbalalalNllT].aabaMeaiaiia aolalLa8Mlllaalila}¥illlBM]lRlEi-aolaTlalLTlL][R'&FUESTIEeREYRrEFEFEATEoTRPty oLagM-dl~7 N*TLR&Gr1y 34%”t0—4ONWSO5=9oyW4N0TM 2%‘941CT05(.W—OMsIAUN%OMV8ONA %.?n_[S2YQ1uXA.U—VsI-NATRMEtFClOX8
o LauynTRyRZauan o

JRMMBO RMOS/3/2 FCTINL TST 1
MACRO v04.00
"ROSS REFERENCE TABLE (CREF v01-0S )

4&-APR-81
7
E
11:43:78 PAGE S-7

yk9M1S37?91”3?5S81?3268374924538052952107598503963710&3“6”7”06M9%2014W7%921513458W05438598368u1036294

69%!9AM%1O3A7O—%9M14OC3568CT91DN0U36TD5O3O84EA20T62F86541F145&2185:1872V5642I8150I51H30A6758A07G30C43.769C07.C20“.526@6064%70N95“02950010364N/7O«9NQ82ON0543T8N4V984IO9N8M41N87T9)A36N79M
ATWOyMN?RNcMO&YM0NO5RN7ON5WN3V2aN,4ON2AN7NN%WV7)N9MN41Ne9Ny71N23N96NN08N“073N95N38NR00NN92N16NE1N8I46NR1&N'5N44NA89N5&N2N“N401%N6“N0S&N79R0N33Ny4N”E7NNyE0NwR2sE5aM6mN%8S“mN5?RN0,NR42M64M
& r ¥¥ RR B o Ry R R

3N(oTNGg5RMgV8D779WOQ3voYeDe“y941R=¥eNRMN3886s3JeNuNgNeg0155V”o[e(NNoPO)eW70s3YNeNNgGPMO22s¥(NNooNYg"2723(aT0TeNNNNoPeNo0Wn55”QseoeNNN—geM44“g3oXeANNNoy,R”0095oNSTX=eNNNg722M3ee¥=eNNPMk77Q5ieTeRNyNNPL.PO5”323eBQ=eiPNNN0oU991QoeNN0Ngye5”9I3A.¥s=NWNgPG2063(OerTr,N0GBP.38”3V.SseTR=oNN0)53303(eTQNNNgNSU6009V.PTeBNP=N)24273yMSTb3oeNM0)30A4y“=NNPNPNN92293s(TBoN0NNM0e39”eSIGNNN00y7113N(O))NPTeM9753T¥0P=NNTNYO4223“0UnBReNNM(TP751R”NQeNPNPsPO3331TIi[oNMTBI5yTN0P¥e(NNNIPPI203“T)TAAeR=NP0423U5InYeN&RGP0I7539GTNPRNN0TTT,PNI07735LRYNN0NTPIPR28M3”OeeYNNy0TTP1135e&R(NNPMTMe“443U¥iQNNIONPGTPR5”33&esLNNTTT0453R1RG.NP¥NNTgTO0”2230(3P0NNPMReo6433-ONTGTIAPgO0y36RsLeNTNN¥0P—O7313PNNPB0ARTkI15537MNMGPG03934.NNe¥eTNTA1138SPVNTNMAGO937O5xeTNNPPPT~9370(MMMTTGeP4377RO&niNPTMG23o8y7NaNPMOUTP23m0”nT.HONMGP4331M4NNMPGGI7!22”ONiieMRMGM7W557NIBP®MPPyM0Sh86T2PIMMBGRPN
b

EFERENCE

MACRO vis.
FCINL IST 1
TABLE (CREF v01-CS )
N
v

0
4-APR-B1
F
11:43:¢B PAGE

aAA£$T*IHCNACNADMTVsOGDCO.ENICFO.CFO:(OB AIMVN)OYDVMTIMOOANMANINA—MNFCNMM—R—ARTXB1L saRAveMPnICySoVRtNY TRBLy 0”5"”3%“W09””7953853579“9714&”2483“M6975791021690 —gPe.TR

»anwR r‘un h % Skt tR

GM0S /3,2
[

x&n R rRy

JRMMB(

S-8

7
SEC

1M_S/</(

REFERENCE

FCINL

L=APR=8B1

17:43:28 PAGE

7
S=9%

TARLE

L=6618
L=6614
L=6618

4=6614
L=b610
L=6614
L=6618

L=4L758

L=4758

4=47584
4=475#

4=4754
4=475#
4=475#
4=475#
4=4754
4=4754
L=4L754
47=-35#4
10-132
L7-334
10-82
41=-81+

41=62+«

4=4754#
L=6658
13-855
13-937
58-3#

[}

RV |
W

4=661

4«-733

4=751

4L-626
4-625
L=-624

4-733
4=733
4=672

4=750
4=749
4=730

4=748

4=-661
3'621

4=714

4=-602
4-601

4=661
4=661
4=661

4=727
4=671
4=712
4=711

4=747
4-713
4=725
4=724

4=617

4-658

4=-670

4=616

4-642

4-615

4=641
4655
4=-654
4=653

4-668
4-709

4-607
4-606
4-623
4-622

4-604
4-603
- 4=586
4-585

4=481

4=525

4=547

4-561

4=599

4=524

4=546
4=559
4-558

4-560
4-597
4-596
4=595

4-598

4-=545

4=544

4=543
20-17

4=557

4-600

»H

23-48
4-548

40=1
L4=4758
39-1
L=4L754

4=-609

4=526

13-=45

o
no

L=L758

t‘l‘t‘t‘l‘fl*t\&~b~

4=4758
4=475#

4=4754

4-608

"\
!
(Y IV T Te VALV IV, TV

4=475
4=475
40-1
L=4758

4L=475

4=572

VO
NN
WSNV
O -

4=475#

SN
WNWNWN
DOV
N =N

4=4754

4=475

L4=475

L4=4 758
4=475%

4=475
4=475

4-486
4=485
4-484
4-483
4-482
4=552
4=551
4-528
4=527

VL IV LV LV LV [V

L=4754

4=4754

4=475

b:\:~bl~€mb:~b ~

4=475

4-487

(SR

4=4754

20-17

o ]

VS W

N P
b
e

20 3333333
BRIKER
o

—

Py -

it L

e
e
e
e B

v oo o)l efo olle ofb oy oXs o]0 o] * o}

QO NV
NN = -2

DPEDODD

e b

4=475
40=1

13=-=45

L=6618

4=4758

RV|

L=-6614
(=668

4=614
4-613
4-612

4-633

4=-632

4-631

4=661

4-620

4=677
4~676

15-202
15-140

15-87
10=-1

11-34
47-32#

47=344

41-7109+

L1-1614
L1-1624

22-431
13-B77
13=-:04

13-;94

58-2#4

10-14e
4L1-8B4+

11=27+
41-G6>

41-100

1G=Ke

19«14

20=12

41-99«

L=6574

L=658%

7-08
L1=63r
G-

40-1

41-105+

41=-116+

41=163%4

39-1

2G=1

40-1

39=-1
39-1

39-1

40~1

4-710

4-723

4=746

15-165

4-657

4-669

4=722

4=745

15=-167

4721
4-720
4-708
4=707

4=744
4=743
4-719
4-718

15=111
40-1
4=742

15-73

39-1

4=726

4=741

J=MMB
RMOS/372 ‘ :N& ok
’1.
, REFERENCE TABLE ((REF
7=08

1G="»

L=728%

10-84

(NSLO&
(N5LO7
(NSLO8
CNSLO9

ONTCLR

COMMA
CONT
CPSAVE
(R
CRLF

13=F67

11=32

11=40
11=44

11-54

11-61

DPE

DPEMH]
DPELO
DPR
DRIVES
DRQ
DRVCLR
DRVSTS
DRY
DSWR
DTE
D10
DULPRT
DVA

12=56

27=16
13-a%6

13-582
13-a10
13=G02

13-604

13-618
13-408

11-92
47-15#
1234
15=-<99
17-86
4=6214

L7=144

L=475#4
L=4 754

11-73

13-259

24=21#8

15-98

28=24n

13-657

13-747
13-A90

13-A53

13-835

13-82¢

13-139
13-793
12-6

13-167
13-a42

13-181
13-292
L7-64

29-1

39-1

39=1

47-9

10-6
47-11
58-8

10-28
47-12

39-1»
38-1
10-28
47-13
58-10
58-24

40-1
54=79
10-59
47-16

55-18
58-21
58-35
58=49

( YLMSK
DRCK
DBEN
DBL
DCK
DDISP
DEBL
DEVSEL
DISPLA
DISPRE
LT
DMD

1G=120

13-as6

L(7-84
L7=9%
L7=-108
47-114
L7=12#

58=63
58=77

L=64L84
4=5954
4L=5964
L=746H
L=5574

L=4754

L=5974

13-=03
6=04
5-1#
L=718#
4=609#
13-993
L=6724
13-210
13-G02
L=7428
L=7438
4=5504
12=3

W=634H
4=495#
13-535
4=551#
L=475k
4=560#

§ -]Cl

12=14

11-84

58-22
58-36
58-50
58-64
58-78

58-9
58-23
58-37
58-51
58-65
58-79

13-47

13-152

13-<38

4=574

6-0

22-469
10-23

22-489

15-62

25=12#

13-879

13-043

(NSLO3

13=766

11:43:28 PAGE

vO1=05

13257
12=2#

4=-APR-B1

—

INSLOT
(NSLOZ

132172
10=141
13=551

04,00

WW
1

LRSTS
MNSTA
_MPERR

Mg;uc

CLRVCY
(LR

58-80

13=07
13049

13253
12-D95

13-§42

13=>71

13=203
13-§91

13-232
13=F 30

13-922
13-£28

27=124

13-:5%

153-;21

13-,88

13=<60

40-1

40-14

40=1%

40=1+

41-180

12-30

38-1
55-11
58-17
58-31
58-45
58-59
58-73
58-87

“7=4

“7=7

47-8

13-445

13-927

13-929

13-2%2

13-266

47-28

58=13
58-27
58=41
58=55
58-69
58-83

58-38
58-52
58-66

13==79
13=(99

58-15
58-29
58-43
58-57
58-71
58-85

L=481%

5~13
58-19
58-33
58-47
58-61
58-75

55-16
58-20
58-34
58-48
58-67
58-76

10=-23~

13-281

13-47
13-:60
13-582
13-A08

13-323
13-A28
13->36
13-D95

13-,28

22-255

13-835
13-826
32-52

13-131

28-127

13-203
13-E91

13-515
13-131
10-23

21-106

2e~38

22=41

22-42

26=195

28-127

28-128

18-37

21-67-

21=70

23457

28-33

31=17

31-18

4=-558#

L=6378

55-12
58-18
58-32
58-46
58-60
58-74

13-70

17=43

31-30

13-F30

13-F67

10I—O02G0M0ON3GO3G0MO4NGO5GO5G-0~%0%0O0.0I.@.0I";./‘fl%“1”%25178'N«&Relval
80%0O30O803GO8G022060O1GO2070206G00O3uw.”.l_p.A0NLYOTRIN0600e0Ya0SN0YG0OUT0MNA0GF0YYE004D—RGGT00NNNG0G0UVGaY0TE 000N06~AE0Ne6a~00PIIGaR\0dPOGGM00SNEIaao0RRA¥AyONAyANU0FNNT00RR0EFTiOMSY3

UA10OO06G0O1N0-T!0FNW-0NOA\MOG1NOI002ON70TM00‘G—03NW0N.4O0A5N0=0060—00MO&Meo='[§O7A[¥3L¥o4.TEa-[lN&
al"al’alTal’al'al’a)al L
w N

SNEOREMRNSR 2OR iNO 2R A N||
OO0—ONIOYONN0MUONI3OOMUNNUMOTUMMNM—————NOUONO ~~
—MAINANITFOWNOMANT

i
w-TnVNNrVesg(aYo==NaeacNaLoa)c<acan
M4 L\ RO
"IJRMMBO RM0OS/3/2 F INL TST 1
TRUSS REFERENCE TABLE (CREF v01-05 )
A

3OINMN

v04.00
4-APR=-B1

8-516

52=-24

8-690

52=10#

11:43:/8

ov(

OAeoNUVl]M .0GCo&ORNXE18.S2rNO0kE~—-IM YA41ETESRENE

PAGE

13-354

S-11

13-355

26'14)7
3

28=117
30-92

T YVT TR eYYy
NI

.4:,'— 1 (’_l

JRMMBO RMOS/3/72 FCTINL

ROSS

REFERENCE

8-663

EMS10

|
I

8-684
8-699
8-720
50-3
50-7

EMS100
EMS101
EMS102
EMS103

50-39

EMS106
EMS10S
EMS106

50-136
50-2C4
50-212

EMS 11

50-40

50-177
50-56

50-210

50-12

TABLE

T1ST 1

(CREF

8-666

8-681
51=12#
51-13#
51-15#

54-3#4
50-11
50-71
50-59
50-178
50-57
50-211
50-180
54=714
50-232
50-15

MACRO v04.00
v01-05 )

&4-APR-8I

8-672

8-675

8-516

53-24

8-690

53-10#

8-516

51=24

8-690

51-11#

50-213
50-203

50-196
50-197
50-182
50-141
50-214
54-70#4

54-664#
S4-674
50-183
50-196
50-215

54=72#
50-16

50-17

50-18

8-669

8-687

54=10#
50-176
50-174
50-181
50-135

11:43:¢8 PAGE

8-678

50-19

8-693

50-20

5=-12

8-656¢

50=21

8-702

8-705

8-708

8=-711

50-188
50-204

50-189
50-205

50-206

50-234

50-235
50~207

S4-68#%
50-208

50-209

50=22

50-23

50-24

50-25

50=26

50=27

EMS132

EMS133
FMS134
EMS135
EMS136
EMS137
EMS14
EMS140
EMS141
EMS142
EMS143
EMS144

EMS145
EMS146
EMS147
EMS15
EMS150

EMS151
EMS152
EMS153
EMS154
EMS155
EMS156
EMS157
EMS16
EMS160

EMS161
EMS162
EMS163

(CREF v01-05 )

50=29
50=74
50=226
54=75#
£0=-76
S4-78#
50-45
50-77
50-186
50-232
50-77
50-143
54124
54-82#
50-88
50-89
50-88
50-82
50-92
50-93
50=42
50-95
50-96
50-80
50-94
50-126
50-80
50-89
50-98
50-100
50-94
54-14M
50-52
50-44
50-65
50-65
50-73
50-73
50-185
50-112
50-42
50~51

4-APR-B1

50-30
50-77

50-31
54=738

50-32

50-78

50-127

S54=778

50-48
50-107
50-187

50-50
50-108
50-188
54=794
50-225
50-149

50-51
50-109
50-189

54=74

50-234
50-191
50-148

.
K
7
11:43:¢8 PAGE S-13

50-33

54-80#4

50-178

50-43

50-177

50-54
50-134
50-192

50-55
50-137
50-193

50-201""

50-225

02%¢

S4=118

— —a O

50-74
50-74
50-75
50-77
50-44
50-73
50-185
50-223
50-74
50-77
50-12
50-78
50-79
50-80
50-81
50-56
50-83
50-84
54-89#
50-13
50-86
50-87
50-79
50-93
50-125
50-79
50-88
50-97
50-99
50-85
50-13
50-44
50-35
50-47

MACRO v04.00

OWO
&0

50-28
50-9

TABLE

50-61
50-140
50-195

50-63
50-142
50-201

50-66
50-179
50-205

50-67
50-182
50-221

50-228

50-229

50-230

50-231

54=814

O?O

CRUSS REFERENCE

IST

(ZRMMBO RMOS/3/72 FCINL

50-70
50-183
50-22¢

50-97
54-84#
50-89
50-91
50-102
50-103

50-99

54-834

50-90
50-101
50-169
54-88#

50-90
54-86#
54=-87#

50-91

50-92

50-93

50-94

50-95

50-96

50-98

50-126

54=85#

50-216
50-106
50-10¢4
50-81
50-95
50-168
50-81
50-90
54=-95#4
50-101
50-100

54-13#4
54-90#
50-83
50-97
54-92#4
50-83
50-92

50-84
50-98

50-85
50-99

50-86
50-100

50-87
50-101

50-88
50-102

50-89
50-103

50-90
50-104

50-91
50-105

50-92
50-106

50-84
50-93

50-85
50-94

50-86
50-95

50-87
50-96

50-125
50-126

54-934
54-94#

50-102
54-97#

50-103

50-10¢4

50-105

50-106

54-964

50-117
50-61
50-184

50-137
50-66
50-202
50-110
54-1024
54-103#

50-186
50-107
54-1004
50~133

50-192
50-122

54-98#4
50-137

50-187

50-188

50-193

50-222

54-95#

50-140

50-184

50-202

50-205

S54-1u1e

50-109
50-190
50-113
50-216
50-54

50-107
50-60
50-140
50-108
50-110
50-110
50-201
50-173
54-15#4
50-63

50-223

50-234

5070

50-71

50-60

50-45
50-108
50-73
50-109

54-914
50-82
50-96
50-169
50-82
50-91

50-109
50-205
50-205
54-104#
50-217

54-105#4

50-67

50-111

50-134

50-138

50-182

50-183

50-194

50-195

54-107#
50-134

50-182

50-183

50-194

50-195

50-223

54-108#

50-112
50-51
54-109#
50-112
50-124
50-114
50-123
54-164
50-115
54-115#4

50-113
50-54

50-173
50-63

50-217
50-111

50-123
54-1114
50-115
54-1134

50-124

54-1104

50-116

50-173

54-1124

50-116

54=1144

50-59
50-73

50-60
50-117

50-61
50-143

50-62
54-1174

50-63

l"‘_.

50-64

50-65

50-66

50-67

50-68

50-69

CZRMMB0O RMOS/372 FCINL TST 1
MACRO v04.00
CROSS REFERENCE TABLE (CREF vOi1=05 »

EMS164

EMS165

EMS166

EMS167

EMS17

EMS170
EMS171
EMS172
EMS173
EMS174
EMS175
EMS176
EMSi77
EMS?2
EMS20
EMS200
EMS201
EMS202
EMS203
EMS204
EMS205
EMS206
EMS207
EMS21
EMS210
£MS211
EMS212
EMS213
EMS214
EMS215
EMS216
EMS217
EMS22
EMS220
EMS221
EMS222
EMS223
EMS224
EMS23
EMS24
EMS25
EMS26
EMS27

EMS3

EMS30

EMS31
EMS32
EMS33
EMS 34
EMS35
EMS36
EMS37

o ———
e —

EMS4
EMS40
EMS4T

50-45

54-118#
50-57
54=121#
50=4G
54=17#
54-123%#
50-105
54=125#
54-1264
54-127#
50-217

4-APR-81

11:43:¢8 PAGE

S-14

50-71

50-72

50-172

50-196¢

50-197

50-198

S4=1c0#

50-68

50-123

50-124

50-168

50-169

50-170

50=175

50=235

S4=122#

50-125

50-126

54=1244

50-218

50-219

54-128#

50-118

50-119

50-120

50-121

50-212

50-232

50-238

54-184

50-132
50-132

50-133
50-133

50-134
50-174

5
5

50-180
50-176

54-133#
50-237

54-134#

50-233
50-179

54-1364
50-233

54-137#

54-24#4
50-115

50-116

50-173

54=254

50-22
50-130

50-23
50-1351 .

50-24
50-132

$0-25
50-133

50-26

50-¢27

50-28

50-208

54=27#

50-227

54-304

50-215

54-32#

54=130#
S54=4a
50=5
50-58
50-110
54-1314
54=-132#
50-131
50-130
50-130
50-131
54=1354
50-142
50-179
50-142
50-170
50-170
54-138#4
54=19#%
50-173
50-170
54=140#
54=-1414
50-172
54-142#
54=143#
54-1444
54=1454
54=1464
54=20#
54=147#
50-238
54-1484
54=149#
54=150#
S54=1514
54=214
54=22#
50-115
54-234
50-116
- 50-173
50-19
50-20
50-76
54-5#4
50-18
50-21
50-43
50-122
50-199
54-264
50-146
50-207
54=28#
50-219
54-294
50-225
50-226
50-216
54-314
50-213
50-214
54=-334
S4-64
50-75
50-220
54-344
50-190
50-191

54-139%

54-351

50-144

50-145

50-146

50-29

50-147

50-30

50-174

50-31

50-175

50-32
50-176

CJRMMBO RMOS5/3/2 FCTINL TST 1
MACRO v04.0C
CROSS REFERENCE TABLE (CREF vO1-05 )

50-30
50-31

4&-APR-81

11:43:¢8 PAGE

7
S -15

SEQ 0298

EMSSS
EMS&L6
EMSL7

54=364
54-374
50-230
50~229
50-120
50-45

54-38#
54=39#4
50-145
S0-52

50-199
50-66

S54=404
50-118

50=147

50-186

50-187

50-188

50-192

EMSS
EMSS0

S54-7#
50-64

50-70

50-139

50-181

50-185

50-189

50-200

50-201

50-221

EMS&/?

EMS43
EMS44

S54=414

. EMSSI

EMsSS52

50-70
50-143

50-130
50-148

50-179
50-179

50-221
50-201

54=434
50-228

50-229

50-230

50-231

50-233

EMSS3

50-39
50-184
50-207

50-40
50-186
50-216

50-46
50-191
50-220

50-62
50-193
54=45#4

50-64
50-194

50-65
50-195

50-73
50-200

50-140
50-202

50-141
50-203

50-54
50-234
50-192
50-206
50-229

50-62
54-484
50-193
50-207
50-230

50-119

50-144

50-178

50-182

50-183

50-194

50-195

50-196
50-210

50-198
50-213

50-199
50-214

50-200
50-215

50-201
50-220

50-202
50-221

30-203
50-222

50-190
50-41

54-53%
50-144

50-145

50-146

50-147

50-199

54=544

50-45

50-46

50-47

50-48

50-49

50-50

50-51

50-52

50-54

54=-57#

50-52

50-5¢4

50-66

50-70

50-73

50-107

50-110

50-139

50-182

50-189

50-194

50-205

50-63
50-51
50-142
50-67
50-134
50-67
50-37
50-148

50-183
50-55

50-195
50-56
50-183
50-136
50-217
50-138
50-39
54-65#4

50-208
50-57
50-187
50-180
50-221
50-188
50-40

54=594
50-60
50-193
50-188
54-624
50~222
54-644

50-61
50-195
50-222

50-61
50-232
50-223

50-63
54-60#
50-234

50-108

50-109

50-134

50-135

50-235

54-614

50-223

50-234

54-634

EMSS54
EMS55
EMS56
EMSS7
EMS6

EMS60
EMS61
EMS62
EMS63
EMS64

EMS6S

EMS66
EMS67

EMS7
EMS70

EMS71
EMS72
EMS73
. EMS74,
EMS75
EMS76
EMS77
EMT1
EMT10
EMT100
EMT101
EMT102
EMT103
EMT104
EMT105
EMT106
EMT107
EMT11
EMTT1C
EMT111
EMT112

54-564

50-179
50-68
50-189
50-137
50-38
50-198

CZRMMBO RMOS/3/2 FCTNL TST 1
MACRO vV04.00
CROSS REFERENCE TABLE (CREF v01-05 )

EMI113
EMF114
EMT115
EMT116
EMT117

8-230
8-233
8-236
8-239
8-242

B8-30
8-245
8-248
8-251
8-254
8-257
8-260
8-263
8-266
8-33
8-269
8-272
8-275
8-278
§-281
8-284
8-287
8-290
8-36
8-295
8-296
8-299
8-302
8-305
8-308
8-311
8-314
8-39
8-317
8-320
8-323
8-326

50-12#
50-82#
50-83#
50-84#
50-854
50-86#
50-87#
50-88#
50-89#4
50-13#
50-90#
50-91#
50-92#
50-93#
50-94#
50-95#
50-96#
50-97#
50-14#
50-98#
50-99%
50-1004
50-107#
50-102#
50-103#
50-104#
50-105#
50-15#
50-106#
50-107#
50-108#
50-1094

EMT155
EMT156
EMT157

8-332
8-335
8-338

50-111#
50-112#
50-113#

EMT16
RMT160
EMT161
EMT162

EMT163
EMT164
EMT165
EMT166

EMT167
EMT17
FMTI70
EMT171
EMT172
FMT173
EMT174
EMIT7S

8-329

8-42
8-341
8-344
8-347
50-1174
8-354
8-357
8-360
8-363
8-45
8-366
8-369
8=372
8-375
8=378
8=381

11:43:¢8 PAGE

S=16

SEQ 0299

50-77#
50-78#
50-79#
50-80#
50-81#

EMT12
EMT120
EMT121
EMT122
EMT123
EMT124
EMT125
EMT126
EMT127
EMT13
EMT130
EMT131
EMT132
EMT133
EMT134
EMT135S
EMT136
EMT137
EMT14
EMT140
EMTI41
EMI142
EMT143
EMT144
EMT145
EMT146
EMT147
EMT1S
EMT150
EMT151
EMT152
EMT153
EMT154

4-APR-B1

50-1104

- -

50-16#
50-114#
50-115#
50-116#

50-118#
50-119#
50-120#
50-121#4
50-174
50-122#
50-1234
50-124K
50-1254
50-1064
50-1074

JRMMBO RMOS/3/2 FCINL

TROSS REFERENCE

TABLE

EMT176

50-128#

EMT177

EmMT2

‘ EHY§§0

EMT

EMT201
CEMT
EMT203
EMT204
| EMT20S

EMTO06

IST 1

EMT207
EMT21
EMTO10
EMT211
EMI212
EMT213
EMT214
EMT21S
EMT216
EMI217
EMT22
EMT220
EMTO21
EMTOS2
EMTO23
EMT226
EMT225
EMT226
EMTO27
EMT23
EMT230
EMT2Z1
EMT232
EMT233

EMT234
EMT235

EMT236

EMT237
EMTO4
EMT240
EMT241
EMT242
EMT243
EMT44
EMT45
EMTO46
EMT247
EMT2S

EMT250
EMT251
EMT252
EMTO53
EMT254
EMI25S
EMT256
EMTOS7

8-384

50-129#

8-¢

8-390
8-48

(CREF

v01-05

)

4&-APR-BT

B 8
11:43:.8 PAGE S=-17

SEQ O3

50-4#

50-130#
50-18#

8-393
8-39%6
8-399
8-402
8-405

50-131#
50-132#
50-133s
50-134#
50~135#

8=411
8-51
8-414
8-417
8-420
8-423
8-426
8-429
B-432
8-435
8-54
8-438
8-441
B-444
B-447
50-150#
50-1514
50-152#
50-1534
8-57
50-154#
50-155#
50-156#
50-1574

50-137#
50-19#
50-138#
50-139#
50-140#
50-1414
50-1424
50-143#
50-144#
50-145#
50-20#
50-146m
50-147#
50-148%
50-145#

B-408

MACRO v04.00

50-136#

50-214

50-158#
50-1594

50-160#

50-161#4
8-60
50-162#
50-1634
50-164#
50-165#
50-166#
50-1674
8-504
8-507
8-63

8-510
8-513
8-516
8-519
8-522
8-505
B-508
B=531

50-22#

|
50-1684
50-169#
50-23#
50-170#
50-1714
50-172#
50-173#
50-1744
50-175#
50-176m
50-177#

CJRMMBO RMOS/3/2 FOCTINL TIST 1
MACRO v04.00
CROSS REFERENCE TABLE ((REF vO1=05 )

EMT26
EMT260
EMT261
EMT262
EMT263

EMT264

EMT265
EMT 266
EMT267
EMT27
EMT270
EMT271

EMT272

EMT273
EMT274
EMTZ75
EMT276
EMT277
EMT3
EMT30
EMT 300
EMT 301
EMT 302
EMT303

EMT 304
EMT 305
EMT 306
EMT307
EMT31
EMT310
EMT3N
EMT312
EMT313
EMT314
EMT315
EMT316
EMT317
EMT32
EMT320
EMT321
EMT32
EMT32
EMT 324
EMT 325
EMT 326
EMT327
EMT33
EMT$30
EMT331
EMT332
EMT333
EMT 334
EMT 335
EMT336
EMT337
EMT 34
EMT 340

8-66

8-534
8-537

8-540

8-543
8-546
8-549
8-552
8-556
8-69
8-559
8-563
8-566
8-569
8-573
8-577

S50=24H
50-178#
50-17S#
50-1804
50-181#
50-182#
50-183#
50~-184#
S0-185#
50=25#
50-186#
S0-187#
50-188#
50-189#
50-150#
50-191#
50~-192#4
50-193#
50-5#
50=-26#
50-194%
50-1954
50-196#
50-197#
50-198#
50-199#
50-200#
50-201#
50=-27#
50-202#
50-203#

50=-204#
50-205#

50-206#
50-207#

50=224#

4-APR-B1

C
11:43:¢/8 PAGE

8
S-18

SEQ N30

CZRMMBO RMOS/3/2 FCTNL 1ST 1
MACRO
1-(‘
)
(ROSS REFERENCE TABLE (CREF v01-05

EMI3LT
EMT 34

EMT34

CEMT34L
| EMT34S
EMT346
| EMI347
' EMT3S

| EMT350

|
|

EMT351

EMT352
EMT355

EMT354

EMT3
EMT37
EMTS
EMT4L0
EMT41
EMT42
EMTS3
EMT44
EMT4S
EMT46

EMT4L?

EMTS
EMTS50
EMTS1
EMTS2
EMTS3
EMT54
EMT55
EMT56
EMTS?
EMT6
EMT60
EMT61
EMT62
EMT63
EMT64
EMT6S
EMTO6
EMT67
EMT7
EMT70
EMT71
EMT72

EMT73
EMT 74
EMT75
EMT76
EMT77

B-690
8-693

8-696

8-714

50-235#

50-236#
50-237#

8-90
8-93
8-12
8-96
8-99
8-102
§=105
8-108
8-111
8-114

50~32#
50-33#4
50=-6#
50-344
50-354
50-34#
50-37#
50-38#
50-39#
50-40#

8-117

50-238#

S50-41#

50-7#4
50-42#
50-43#
50-44u#
50-45#
50-464
50-474
50-48#
50-49#
50-8#4
50-50#
50-51#
50-52#
50-54#
50-55#
50-56#
50-57#
50~9#
50-58#
50-59#
50-60#

50-61#4
50-62#
50-63#
50-64#
50-65#
10-23+

10-23»

ERRNMB

8-182
8-185
8-188
8-191
8-194
&=475#
47-3#
4=5448
41-48%

13-215
41-49+

13-965
41=52°

ERRTYP

40-1

L1=138

EMTVEC

EQUALS
ERR
ERROR

—_———

L=L758

SEQ 03%0:

50-234#

8-717
8-720

8-15
8-120
8-123
8-126
8-130
8-135
8-136
8-139
8-142
8-18
8-146
8-150
8-154
S0-534
8-160
8-163
8-166
8-169
8-21
8-172
8-175
8-178

D
8
11:43:28 PAGE S$=1%

50-229#

50-230#
50-231#
50-232#
50-233#
50-31#

8-723

4-4PR-B1

50-227#
50-228#

8-699
8-702
8-705
8-708
8-87

8-711

v04.00

13=:32
41-57

13-:98
41-64

13-:64
41-1604

22-84

22-86

22=102

22-136

470i127y4“2T18“3“aM%4091“54‘Y2?0L98545i92174P187=615047PR50036P183P06‘08T2P307P6“=9—2PM09PP“TYOF0PV3TOP1NPO5PT—7PN=yP02OPwNPT0VePN7OPOPO”NPM7o—AOPr—.4a0OX3yYorL(e
yMWHODA)-weTe0OelRNAM3ReNO2CR3NPISV4eNWyLPNgWb.IO—l37VNeoWil5Nes—9VNPMWeOl0N1eeSLl0n0VDPNY—20eOoNy20s2N09Mey0NP”Ol0NPA9BONPI“RVeO)N&~eOlNG3SoRVRNlDP&)0NPoy0VlIN3RNG9NoWGAlNMPoVSl)oVNlMD)oVP¥Tl5D)RoVB"lTPYoV3PA\2NPV%NoUOMuVoGYOlfTNPNlA=LPMlNoYDOAIRNDNOL0e-:uhm&4%MycX.[.T=aNnol.’gVa—lve
4OaS—O}3DlV"ge33lekONoWe8M3leegNVI0ao3ONlNleNS73aoM—I3VllMe1aMeHlONloPA3YoIe30MFllo=M1P)AaOa3Vl0dVePO3WNVAsa13lNlM0NPAaeCPl0LelN3NONa4oA3lL*TN—0PTMl«oC3)0ls3NNe1Mao3P*l—l0N«+eoa3V*4=NIl0lPNAao3VO5lO0NPOYlaM343Tl1=ANONGa3TA0u=2=lNPMN,ayWVToK3lO)NPra3liV4=—TNlYsa3NlR3AIO=4)TNiOay4.Vl0TN30AaVO3elVeMl=MTOA)ao)lR®4VNl3TNaYN0vol359Il=iTA)aoVO3llT0NPTA3oa35VNl=lOPAMao%3OlVeTl3=TNYa&lNoN5bVo=PMA3lWa3%3VlTTNANaO63oIlNTlTVb3a3%o“eTlVM=lPNYMagl6lE=PTiY33Aaa7TdIelOlePMVaLoNl®rV=e3=laP1NiYIlao8)VbN}l=PYMag3lOOaNl3ePaMlo8MV7aSlP2Ael3gMa.Nl=PYMlNlbL)9oal3AlNST3OAIO3oUOIO3UOU33=33l-1O0—NO.3M'-lOPdMD51fytONiL.By.UnD'MwWOOOy%2tdO%m)N‘&—eN.
InYPORBAIyTNARuOTRNSRYTRAYyURxLARYNnAaxmRRBRY &HRNAyPYTunRL NR$APRxBLRAEYRR_¥A¥YRRxTT gTYV

X ' Ry BR iy

weev uWvw wmgoi—w0oiumwMoe e<-

eOOTO—ARFe¢0ROO=NTMRA¥OOEOANeMTDRMONNRYIVeOBP—NDeITEON0Xr NM—eOA0—rWeIRA—DEMN=eRONTOW0bN3IMIeSY0NNINAR,P~ORUI_0eNOIS~R0OeOoN—I«ROYMP0IQNya®OEROO4NIe—oIFMNoRR=MOE4yOOXNeT¢N~AOE=A4FTT—xSR=¢MO=N4SNR=OOR—_0V=%MO=¥INN4EO=Oe—A—MMRT4eMAOyOIP=RVNR4eNLOMAVOR=OA—N4AM0MIRRI4TNbR eANRDQROK0OO4Ne0O4ABL0ON4AN2&04NXa[0TA42—l4RO0NU4CGANé0US—R4CUXS4O0I4GNL-—6TENT%>QO%>MI%~UP%b0E4X>4>N4—OT«L|2NWe]%&nVE-UR4NRMSLN%ONo--ELOP4XM-&ae RaLO
RMMBO RMOS5/3/2 ¢ CINL TST 1
TROSS REFERENCE TABLE (CREF v01-05

MACRO V04.00 4=APR=-81 11:43:28 PAGE $=20

[}

OMTI4NfVMiN.0—DN%*0—NM7V2NS4R5V—N97IMNVW51—1N8M2?”4y.”>“7uQy272”,“7".O1"% PTALERYW[eHRYTUAI 0=Teu—M LaosteiFMlaOlaMtiaCl}OlOeTVNsVDI*EH—+AONMVA0ACrRxB¥Qu-n—eaoL0utnlmM MOVNYM)VUL(RN], O-—=TuOP0M ¥Rne2TVy —3ONeOr0NMVNOY0IOnIMNyONMTIOIMNDONMNNGDO0O VIMONYD)M

SEQ 0303

iuB»&R3y

[AT

0MOMNIO0T8-MNOAUMANINOMTNANM—=NnMNTOO8”21&1215
3Oo[&0“.aR¥]YEA0oeO2NlA2VMo8lGeFoE%loONS3"l€gWTNFONFDe:eOSoel7M“e03l4RgA.o%lgMOo9@IlgoRLDol=E3oBg,eNo—oeOl3OoTNlg0nO5eoa.Ne0LorOWl6%5[M&o."-u}d[AI%NTeNyl-NPYNPOg%diNRNla-5FisDoiM“iaNlBItWIeROo3INGdlNyneNgTdoeeNluM7oeeOIo,lMgToNWVnsGOl9PNIRso7OelAMN”oTNNeto6eOlNUoyIleNoo&MN.lNo9TlnN[o5lOowSGNNlnBoo8TGlMNoPoaSN1lGANd9PoSr&OlNGoeGmNlgMSoI5IlGMeo4INlMLd4NI—oPNl
R
NN
4
y
TB
a
w
»s
R
3RT
y
BR
Y TRNLT L AULYTT ¥ ERY¥LT&YYIP ITIRR TTPTIBTIR T G®&

=O°TA).!1I@RA»NTAMo'YSIqeTlAnNrNI1AAoEA4IT’&TOR4O2DN1CAN%ISRM”A0‘T”N0DAN.—*-&’Rb1"OYYe1GRAA”IMAT7NMRTM”AT!3”-2R&4O&5“MOPTI3MoLl‘NIoYB0sott”IOkFoY7RatAtiaIwa%NllSTI”MRaottN.rFTaRallT@tIFyeaaOIllPqFtURS~3aatYbIYiFRaltMoMAYo2RlOlolFDale8lTFOoTaRYaolloAtIMaTBoltRSioTa2RaAllSlSoMoTot3llOaooIRI2lllaoo5lIYllMooToyTRlTlloPoOo4lll—RoaoRR6LRlllMToaIL4lllyooN%¥lAlSaVTa5llTOae“llTTNRoallDSbaS8ATlalIolaNleabLS0XRaaAlD»lbywORaaellO5laaBblRe3aaNRlTe llR7aIaAllLl
TRMMBO *MOS/3/2 FCTINL TST 1
MACRO v04.00
ROSS REFERENCE TABLE (CREF v01-05 )

4-APR-81
11:43:28 PAGE

rSIAYTP&R1eNIASYyVWOuMN54—70A&=98OM~3t1~Lzou7W-193610201079049(0\PQoGSReP=TgIi-sF. YOSFWNU—©MvOIMDVN~MI— 21W513‘8M.”93No“O78&9l3.W6y9‘|23607&n%

PP AT PPP LI AR T L PP et NN XiTYYT §94yn §

ThRnw

5-21

C‘iNHbC RMOS/3/72 FCINL

FROSS REFERENCE

(=663

L=S04n

11=17
L=4754
(=562#

26=67

40=1
4(=7014
L=714k
LG=5724
48-70
L=4928
(=502#
4-503#
L=S507#
4=507#4
4=507#
4£=507#

TABLE

TST

(CREF

13-854

MACRO v06.00
v01-05 )

13-864

4=574
58-7#4
38-1

22-386

30=24

30-78
40-1
17=54

13-:90

40-1

17=51

38-1

13-:92

L-APR=B1

)

11:43:.8 PAGE

S=/2

FL O

22-377
41-90
-13-a10

30-81

13-a59

32-88

40-1
18-45
13-781

40-1
18-48

13-A08

32-108

40-14

13-D49
48-55
40=-1»

13-D95
48-69
40=1»

13=E42
48-77
40=1»

L=7478
13-957
48=71

13-720
13-956%
48-72

48-73

22-155

22-157
48-74

48-75

29-111
48-76

48-79

48-80

13-976
13-=10

13-:43
13=-=40

13-.09
29-51

13-,75
29-97

13-<18
29-101

30-232

30-236

30-239

10-23+

10-23»

L-74L84
L=727#
4=-6684

13-83
13-456

13-:26

48-63
48-79
13-367
13-215

12-A46
30-102

13-A48

48-62
4L8-78
4=6704
L=54L84

28-58
13=-:24
30-92

10-128

47-23m
13-106

29=51

29-115

30=-24

22-283

48-78

30=45

23-89

23=105

48-81

LB-87

48-85

30-48

48-58
48-87

4LB=67

48-83

48-84

13-£86
32=239

13-£88
33-58
L8-74

l‘ ’J"- 7

L8=86

48-88

4=507#

L=4754

L=62054
L=6694

26-208

38-1

13-518

48-64
48-80

30-99

13-370
22-358
38-1

4L8-67
48-81
13=371

48-68
48-82

4£1-88

47-11

28-82

31=70

23-91

23-93

30-171

13=-A50

13-E84

48=70

48-72
4L8-86

32-125

48-69
4£8-83

48-84

54=79

26-85

32-152

48-73
48-87

48-88

13-E91

48-58

48-75

22-168

48-59
48-76

22=199

4L8-60
4B=77

ROSS REFERENCE
LSTRK
MCLK

M( PE

MDF

MDPE
M

MOC
MOH
MCL

MRD
MS
MSC
MSDRVS
MSE

MSER
MSGDRV
MSHELP
MUR
MWD
MwP
MxF
N

ND TMSK

NED
NEM

NONE
NOP
NOTAVL
NOTPRS
NOTRM
NSA

occ
OFD
OFFSET
om

OPE
oP!

PDA

PFECH

PFE(H]

PFECH?

PFECHS

OFF (e

TABLE

(CREF

FACRO v04.00
v01=05 )

4-APR=81

H
8
11:43:28 PAGE $-23

7=0#

12=54+

13-106

28-8¢

12-62+

13-a31

13-a70

13-p70

13-£06

23=€2

L=~604k

13-193
13-318
13-198

21=92

21=109

21-122

21-125

32-70

32=75

22=454

L=602#

13-318

13-929

13-955

13-:62

13-,28

13=<31

13-<38

10-109

13-¢212

13=216

13-244

13-287
30-145

13=-290

30=-146

13-327
30-153

L=6264
4=55%%
L=7094

L=725#
L(=6078

(=633
L=5464

26=167
302-208

&=6004

L=6054
L-6084
11-64

L-6768
4-6034
12-67
11-1
4=6014
L=624LH

L=6064
L=7244
11-19
L=574L4
13-a10
13-GC2
(=7214
L=722#
12=7
L=4914
10-116
10-113
10-107

46314
L=6124
L=-6444
L=497#
4=553#%

30-204

L=6674
4L=5594

33-42

4,8-70
PACACK
PAKACK
PAR
PAT

FCINL

48-84
4=7264
4=501#
4=500#
L=569%
L=729#
L=6194

L1-67
41=172
41=172
41=172
41=172

26-195
33-35

29-37
33-36

31-70

29-40
33-40

30-68
33-45

26=53

32-94

13-330

30-158

OwWw

RM0S/372

w-—l

JERMMBD

26=146
32-189

26=156
32-200

26=157

32-201

26=1¢2
32=205

13-203
13-E91

13-232
13-F30

13=266
13=F67

30-145

30~201

47-164

13-318
47-17#
L7=7K

13-318
13-107
13-318
13-198
47-304

28-83
13-,28
22-343

31-7

13-995

13-:62

13-,28

13=-<31

13-<38

13-551

13-a59%

13-582
13-A08

13-618
13-A53

13-747

13-A90

13-835
13-826

13-879
13-(43

13==79
13-(99

13=->07
13=-D4S

13->36
13-D95

13=->71

10-87

13-198

21-74

21-78

25-31

13-174
L7=25#
L7=-244
47=22#

13-544"

13-606

13-677

13-790

13-920

13-986

13=-:53

13-:19

13-.86

13-664
13-822

13-720
13-826

13-<42

13-8B02
13-907

22-328
L7=29#

13-854
13-492

13-244

31-29

22-182

13-629

29-69

29-73

48-57
48-71
48-85

48-61
48-75

48-62
48-76

4 =501
13 -<76
13 <64

13=-:66

13-,32
26-30

41 -1724
L1=1734
L1=-1764
L1=1794
(1-1814

21-153%

13-781

13-E42

13-89

13-900

30-2¢4
48-63
48-77

48-65
48-79

48-66
48-80

30-34

32-50

13-<32

30=24

30-64

30-155

32-185

48-68
48-8¢2

32-210

4849

48-83

RMMEO RMOS/3/2 FCTINL

S REFERENTE

BCM

SIS
.

PlRQ

PIRQVE
PLFS

.
.
|

PR?

PR3
PRG
PRS
PR

PR7

PRIERR

l
PS
PSEL
PSW

PUT

L=723%
L=5454

4~6208
L=545#
26=177
L=4L758
L=4L758

PUT INX

13-423
13-664
13-950

13-299
13-D83
7=-0n
7=04
13-318+
13=423«

13=544»

13-675+
13-890*
13-995+
13-;32*
13=<40*

PWRVE
(
QUES

R6
R7

RCLSTS
RD

RDCHR

RDL IN
RDOCT
RDY

READY

RE CAL

RESREG

RESVEC

(CREF

MACRO v04.0
v01-05 )

13-198
13=244

31=29

13-215

13-293

26-182

30-145

4=APR=81

11:43:28 PAGE

S=24
-

13-296

30=216

13-297
30=-221

13-333

31=29

13-336

13=427

13=A76

32=226

33-35

33=72

3377

13=-701

13-710

13=766

13=769

13=<9%96

17=40

18~34

19=5

20-10

25=22

27=14

13=434

13-:54

13-503

13-533

13-568
13- =75

13=->03

13=649

13-R22

13=549
13~
13-B53%

13-610

13-A86
21=414

13=<14

13=-735
13=>67
13-(95

13=->96
13-p43

13-277
13-494
13-790

1 3-364
1 3-544
1 3-856
1 3-.26
1 3-=97
1 3-B48
1 5-128

13-379
13~-562
13-890
13-,28
13=->25
13-(24

13-381
13-593
13-904
13-:32

13-383

13-<72
13-B08
13-FS7

13 -318
13 =525
13 -815
13 ~-:83
13-=69
13-B15
13-F92

13-404
13-629
13-929
13-:90
13-222
13-C89

13=421
13-645
13-933
13-<07
12-25¢
13-p37

13 ~183«
13 -3 83~
13 -470
13 -629%
13-781x
13=-929«
13-:66%
13-<31»
13->55
13-B40
15=126=

13-259+«
13-404*
13-492%
13-643%
13-790+
13-933«

13-259*
13-404+
13-494

13=277%
13-421*
13-494»
13-664*
13-815~
13-993«
13-,28+
13-<38+
13-285
13-p73
15-188+

13=277+
13-421+

13-318~
13-423~
13-544~

13-F55«

13-155
13-381«
13=449*
13-606*
13-720«
13-929«
13=:66*
13=-<29*
13->20
13-Bl4~
13-F87

45-1»

45-1+

45-1»

32=-200

32=221

13=A79

13=F 15

13=F19

1)'.‘1‘ ’

L=6174

L=4L754
L=4,754
L=4L754
L=475#8
L=L754
L=475#8
L=4L754
L=4L754
13=267
13-821
13-228
13-p89
&=475
4=7104
L=4754
13-41

13-<29

PLITBUF

TABLE

TST
0

13-A28+
13-E62*
21-144

L=4754
47-5#4
L=475#
4=4754
1 3=412
4 =516#4
11 -1 2
43 1
1 35
4=7134
12-37#4
L=4944
41-156
L=475#

39=5

12-48
10=-26

39-9
13-6
13-775
13-410
13-895
13-205
13-E82

13-955
13-a54

13-481
13-:88

13-F26

13-455
13-:22
13-A04
13-F63

1 3 -146
1 3 -4 47
1 3 -677
1 3 -995
1 3-<33
1 3-298
1 3-E62

13-163
13=449
13-718
13-:17
13-<38
13-A28
13-E76

13-183
13-475
13-720
13-:60
13-<40
13-A41
13-F11

13-259
13-492
13-781
13-:62
13-<42
13-A73
13=F49

13-39+°
13=562*
13=-677*
13-904*
13-:60*
13-,90%

o
-3 79+
éfi?t
93x
13-715«
13-904>
13-:60*
13-,90*

13-144+
13-381*
13=449«

13-A34
13-F04

13-A66
13-F43

13-143~
13-379«
13447
13-593+
13-716%
13=927+
13=-:62*
13-.99
13-=64
13-B03
13-F 54

10=23*

10=23%

45-1x

45-1%

10-23

1023«

10-23+

13-483

13-505

15-213

30-15#

11=65

11-82

42-1

L4414

20-21

21-88

21-91

28-33

13=449

13-469

13-494

. 15-185

13-708

13-390
13-862
13=-262

13-E36

L=4754

13-59
13=445
13-675
13-993

13-<31
13-248

13-£30

18-31
13-38+

13-364+
13-445%
13-562+*
13-677*
13-890*
13-:09
13-:41
13-<42+*

13-A28«
13-E68

44-14
11-49

13-70

14=16

13-404

44-14

13-364*
13-445%

13-<42%

L4-14

20-20

14-20
13-423

1
1
1

13-<67

13-A45
13-F98

13-606*

13=720*
13-927*
13=:62*
13-<29*
13=-=92
13-B13+

13-":66

13-183*

13-383*
13-492%
13-629«
13-781=
13-933«
13-:75

13-<31=*
13->88
13 -C17
i5 -i27»

45-1~

13-(29

15-190

13-;26*
13-<33»
13-216
13-C70
15-186+

13-C39

13->61

13-(33
18-28#

13-644%
13-790*
13-942
13-:26*

13-<33»
13-250
13-D27
15-187+

13->32
13-(83

13-606
13-927
13-:49
13->93
13-C77

13-519
13-664+

13-815+
13-993*

13-,28+
13-<38+

13-234
13-£20
15-18G»

13=745

13-675+~

13-846
13-995+~
13-;32~
13=<40~
13-a84
13-E62~
18-32

CIRMMBO

RMOS/3/72

TROSS REFERFNCE

FLTNL

TABLE

1ST

(CREF

MACRO v04.00
v01=-05 )

4&-APR-81

13-156

11:43:28 PAGE S-¢5

13-943

13-:10

13=:76

13=,42

13=<00

21-110

21=-122

21=124

13=14»

13-15

13-16+

13-57

13-62*

13-161

13-186

22-99

22-170

22=271

22-314

22-329

22-344

22-455

13->22
13-D30

13->56
13-D74

13~ =93
13-(72

13=->21

13-p28

13=>57
13-D75

13->89
13-E22

9E39%Es\—firO—0—~O\~~—Ve
| ]| ] i

8N~5 NPa28NM80ORAAA—YO ROMINASNIOVRMIMO3—STS88

-DoeOWNwW—oMo=nLoy-T-NOINIMeVYIoM«OMYN—$N —NMOUNMNMwrMO—e=~—N=0=OOM=yMINTIN=MNONMN=ILMAI=N3WV1uNg M— OONT +WNO—0 ONONOWVMNMNO

OMOMM5—NLoAAlON[NMaY]N0NM0OOMAWOMONN—O—NITNN3—M2ON69NI%~1NN<g)
" ” e O N0WO m71|.|0

KO.VMMModT=LE)PNfRaMlSa.ROoAl0Trln—N(—.3-SNM\MNe2SLVTla(@~M—-[-10]—}lAAN(0t3RA)rNIONMovM—VL4T)CNTr2MR4WOMTo0——M8A[e}MrOt~M—NvAUNrLrOOTtR—rNMCMMYErCM-o0SwNO|—Y—EsNAfM-lSS—AO—oILRlNIYiNMMART3MO0MO0(LTEbOAeIIU2wWONNiN—a—EMMSOM=&dNNR~MMAAYMB2M0N0PA=UOIONE3LMOOeT=—I=M0LRO=ENlNTvOIO=E~—oONLNVMr—vD3VO]—0NwR.MInIMINob2AOlMNNVo8V.OVA2elNOI&EOrVa—NVaNimlRIOOMaLIYeV0Mfl.ENRL=2aV=Nt—DNlOMRyiA—N—Y2)OO-ifAANSIREAIPNRaA)NIoNE—|NOR
-0 -0

L AL L

RMDSO
RMDT
RMDT|
RMD
RME
RME
RME
RME
RME
RME

RMER1
RMER1]

RMER10
RMER?Z
RMERZ2]

RMERZO

RMHR
RMHR[
RMHRO
RMLA
RMLAI
RMLAO
RMMR1

RMMR1
|
RMMR1O

RMMR?
RMMR2|
RMMR20

RMOF

RMOF
RMOF

TABLE

(CREF

1
v01-05

MACRO Vv04.00
)

*oOnAWMNOU0O—I—eJN\eO—O«® N0WOAVO-NUI—eTO0—Mi.nO e(=M—N-ArO~r\OeN3i%AN|T124[IRtOTY eO0N—W-IOrI~=OrU—MvM(][NUL eO\—(=JOUN—r~OMNOM— <\O—1CS<WMf4ye\WVM0[Ao0OM—NY%y0) e——0rM—=ON~ICrUM—MNeUt]Lyr e-0—U—ON~CNOMRLNU] LMOo0gwNl~O

NU—0OT~JNMND

4-APR=-81

y
[-* &A®-= ;¥L*-x "*&® .oOM~enm
*-

[

L ¥

RUSS REFERENCE

®&« =« .
~93 TP v% No NM¢9 NOTYP TYMOTNeOTvY -GTgvtPvY—SN
S£M AoQ RY—OinMtO 15-79O7

“ZJFMMBO RMOS5/3/2 FCINL TST
11:43:28 PAGE S-2¢
SEQ 0309

RMDS .
]

13=-<49

29-51

29-83

29-87

21-9¢2

21-109

21-125

28-32

%) 1%

we—\0v

aOQa\r-nNv—g

= SN
ww -

13->69

39-S#
52=2

52-8

30-232

13-201

13=-230

13=-7264

12-42

42-5

13-620

13-687

13-749

13-837

52-10

52-11

5¢2-12

56-134

S5-27

SEQ 0310

30-250

30-253

—-glLaaa NA MON [NMAOS glLaa.a 0O— TER
13-307

13-881

13-256

13-A88

owWn M=

11:43:28 PAGE

}43 3

13-69

4-APR-81

MMM

4-5884
4L=587#
L=-586#4
4L-585#
L=5844

P—

SC2
SC3
SC4

4-7074

23-68
L6-14

)

0000 \O N

SC
SCO
SC1

41-13

MACRO v04.00

v01-05

FaV[ValaVva) EX

SADMSK

SAVREG

L(=532#
4-5394

(CREF

OO N
o MNo W

SA8

TABLE

gLaloal
l

(ROSS REFERENCE

TST

O 0 N~

CZRMMBO RMQS5/3/2 FCTINL

141!4% T 9T — [N wOasg

13-A30

13-465

13-812

13-A06

13-824

13-C3

13-(85

13-G00

13-375

13-811
13=->46
13-Dé4

13-400
13-842
13->890
13-g12

13-417
13-886
13-208
13-E58

13-441
13-915
13-242
13-E96

13-463

13-£35

13-D47

13-D93

13-E40

13-F28

33-27#

13-981
13-276

TKVEC

TRE

TPVE(
TRAPVE

44758
L=4L75#
4=4754
4L=708#
42-1%
42-1+

10-23»
13-183

10-23»
13-193

NNOV—= N *Y
O2 52 2

3 ==

V]o VIAVTa Ny

Wo"yBO|K.OoM'—O.wM0’I1\N0li SEV4e).IaVEX(¥3—b .dM4-3d”—*2 zansra<nanANRAANAABNAANRANANRN3uVg-]¥elNNVgEotNEeUVolOR~oLVTNVEMolATN|L
oFMLA]OM¥ eQN1O . —- +e—c=— f=0Oi-vNM—\ O——
T1"Pvall"la-my=la2"oa] - T*—- p.R-.-e.

572” LA —Qe--~

S=oOMM‘l.neqOTntN?.lMOLOyNMo.k6-a.1[LLan”.oalAf21Ne=tM)2qaOll2T.0olc~.M&alwMq2CHg.e3dPyll?12>=%4oyq2sY-mf3cnwl5vw3v“)q’niw%3e«Pu.V47o:.r46eIOu(Q“1d»4“emOOYW,N5sTg=o1)NIo7a[(oO.4V]LOolYMM—im —M—oN|7|1(eeLo~1~d@(lyn3.TL~7Y—F6Nwa=4Tl3§7:)45<7:)43<7:)43<7:5)4<eN7:8)O4<e7“T:9—)4u8<7:M3>I45<7:>I9{41<75Y:)IO.<N57SM:)NN4§57I:3)Y4IUuMI7?2”T6S—uOY“y4ftl4NYI 0NNn—-—o]]y~%HwoM4OY@nANe=UL]"e—eW=y%On~——L—M4VnT—=UU~0"nNLbwow<DMW1f'| LIS4N0bMqnIO0Y.YN“4FNNNVV@ev-EJ|o.
21-62
21-109
21-125

O—M

22-106

A5@OLo"NTOlUN éLMNO MO\ *)MrMN
23-12

howv oMM* M———O-—NM—

22-108

Mooy

4-APR-81

)VYo X

CZRMMBO RMOS/372 FCINL TST 1
MACRO v04.00
"ROSS REFERENCE TABLE (CREF v01-05 )

11:43:¢28 PAGE S-28
SEQ 0311

oNo

TST11
TST12

TST13

1ST14
TST1S
TST16
1ST17
1ST12
1ST20
1ST121

1S122
1S123
1S124
1ST2S
1ST126
15127

TST3
7ST30
ST
T1ST132
1ST33
TST34
TST35

1ST136
1S137
TST4

TST40
TST4?
TST42
TST143
TST44
TST45
T1ST4H
1ST47
TSTS
1ST50
TSTS1
JST152
1STS3

T1STS4
TST55
1ST56
1STS7

T1ST16
1ST60
15761

1ST62
1ST63
15764
1ST65

1€756

IST67
1517

L=4754
L=6564
13-14
13-375#
13-400#
13=417#
13=-4414
13-4634
13-488#
13-5104
13-5404
13-324
13-558#
13-589%#
13-625#4
13-660#
13-692#

13-757#

13-811#
13-842#
13-137#
13-886#
13-915#
13-981#
13-:48#
13-;144
13-.80#
13-<22#
13=-<544
13-179#
13-<87#
13-=56#

13-=84#
13->12#

13=->464
13->80#
13-208#
13=2424
13-2044
13=-2764#
13-225#
13-76#

13=-A24#
13-A58#
13-A95#
13-B31#
13-C08#

13=255#
13-C59%#
13-D19#

13-D64n
13-E12#
13-E58#
13-F
13-F 354
13=F79%
13-2738

TST10

TIST1

YVe

.‘.

TRTVEC

IST

13-119
39-1
39-1

28-105

31-83

39-1
39-1
39-1
39-1

39-1
39-1

39-1

39-1
39-1
39-1
39-1

39-1
39=1
39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-1
39~1
39-1
39-1
39-1
=1
39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-1

39-1
39-1

39-1
39-1
39-1
39-1
39-1
39-1

—N9<][ roah¥MLNAal N--[ -N ~
) 1

v NLMO

aa ee a

|
R
B
=
o
l
L
o
l
L
l
B
v
a
n
2ov
'
4
!
‘
1
.
1
"
!
1
“
‘
%
“
1
“
‘
e
F
e
m
o
s
p
e
o
n
o5&—|1”00N[1O06O—0oO33Ry2o—|On[~"1 NNoORNNWmIOMAIM31MNA[OOIyNyyo0NOo¢—]!yls[O5r-NTL—yOrL—NTeF~N—OMRr~vU—OMONIOMTOty—PN0UUOeO~NO y~L—OMN3ToeVPQMMOU@NNeUOoIe1oMeBSTNkMV=—NlMEN&O«-TMMiAI2W@MAeiNToe]OyL0,bNMLeaYUkRyeNlB
]] I[ ([U ]] ~ r(U——NrI—TeC—OWr—NNe=0=NVOr I4af¥aMlDaNglYAlValWLVaAl@el
oo 3|] MN[ -Mi— *~» 0eyN—O3 —MArN—Me0My M-MM-—
o -

R=eAyL RRM%OA6V 3”1o NMO-MT&NTyIR3OOT—MOO0L0\I~OTNMV-NoMX-MMo0ooAMNXMoeNl=oMlOA—o=VlMD

VB4ON02OML&y—NwOLoVNgaMoSeyea~0u—V01“~7o25~~52oL”~N]N8r[~]+94M[~n05IMNaNyO¥w1L(OO"aa——ao¥YNl]]%”NMROM"NA7M—R[MMNs¥N1mOM[-&7 a3—M¥¥O]]RN'W~--.5~—TI?J41RXBN4BXPN1S(gJDEERNN-~%S3NtbOoo3RllooS-14llR0LL1M.yo>ll14P>R>v4.=ISeo-.N=lMLHOo%ylego4NM1l=m‘»NoL9lA1o%ol.N8oNd3o“e-L4Lk—‘R2

E‘mL&L‘“a0OWty&“C‘W|]AE“WE1'“FH.UA“WoWW.T|“T|‘W[UEONUVN?L&w/M1)]om1\LmAE0RE3—PORro-Vr(—=YMUoSOMR-M%UM0LM7w»W~Xa V .Es HURUTlW 3 %V W£6W8

U1I|LB] oL-—X4~ArL—0klRyN
o(a]¥1
o3
i
L
]
)
1
L
|
~
[
5
g
o
0
]
l
h
L
e
O
a
l
u
t
l
V
,
]
T—=NM~= oNAMmL N@owy O©oM\ MVt1L-[a‘¥0]—eayV] L-o—4yeovl~

(CREF
v01-0S

MACRO v04.00
)

4=-APR-BT
11:43:¢28 PAGE

Sdeh s Sidbid

&3 m-

O«

TAY NS

—Mcy —M g - -

——

TABLE

TST 1

o[]a¥]. -

ROSS REFERENCE

JRMMBO RMOS5/3/72 FCTNL
9
<-%0
SEG 0%
z

29-51

30-106
33-61

RMMBO RMOS/3/2 FCTINL ST 1
MACRDO v04.00
CROSS REFERENCE TABLE (CREF vO1-05 )
Yy

6=0

6-0

)3NMAeN4Nl+|VoS&l¥etAV¥eRRlVT—[ oYlRRVOoleVoIRALVO)0-OR-0O-VS->-O-N-.¥0MuS&V¥‘aM.MMM
M MM /.n
]= -

~ ~r

]

—

~~9

.wrnyuwu.n.w.uwwysusuysyus

SEQ 0374

6-0

&o%1“T--NR,—4Y12%m5P44NR1‘Ac“W44R2AW2U44RSgTA—M“W‘NRVMXS%NNO44TYL>N/YN“IY04V4TTOM>N44ONUa%T44E§EOgCV4-AR‘WO‘CeLN44)O“‘e”o.N4EA4&0IHv~4N4.I‘.MO44-3NoHn.4AA.1a‘.uN7-WRna.”iO.3gA¥lkT5Mo(lo!lL4ol

6-0

9
C
11:43:28 PAGE M=-1

4-APR=-81

CALSUB

4=1924
13-280
13-432
13=490
13=-547
13-608
13-687
13-819
13-895
13-:16
13=<44
13-=79
13=->36
13-203
13=266
13-248
13-410

13-A98
15=027

7[4eNY“e)

15-41
13-32C
13-434
13-497
13-549
13-610
13-689
13-821
13-906

13=-:;49

13-<56
13-=81
13->38
13-205
13-268
13-a52
13=A41
13-808
13-C29

13-988

15=:55

13-:21

13-<99

RMMNMNNMYV)NNNNNNNNNV)NNNNVY)MYV)NNNVYNYVYNNMYMM
—o46=LNlavVae-O3ONM4AEl)\gXaV0EM”]leaM\o30ObOPO@TOlsa4M7eeRlgWaNN&ylSNLAaOeLMia67EOMlM~N2a0NYM.5POlS-M%aRwOS3NliAo7MaiRyM3WluRMN.asOVN-l—\&31324oQLO-SNea;TlAM4Iw[0«A3R}0834Ota3NAOY0=S&gaalo)0aMo~U2aeo—loUtaMi73RlMAse~RoMPOaNtFolY4i%OOeMQiPte~a——3Ire3C)IaNLelPMtNO—e9SM=elo~AtGONlF%o3DMAYPel0Oot6oVEFMMelaS0PLTt5MON—taN3aSlNG&l3aFT0eOTP—aliLylRO0NSRo3YSO2eOtNlNPlRAIWMMaSCMNoAlO@y7OVlNaN3e=IFUMNeIAlatT3tMNAaS=OGo~Nla%IlTltFaoT3mReOlOTsIlMaOtVaNoMeOT40lal=ORt3io9PT0-laOeStMTlOoao1NeRllO0tMPNT0a3a8oNelRlN©PTtO0oMa4NAeltLlMTPMR3a3t—al0OPAlACe9aaeQO0llPTMeMMa6a3SARlaOPGlON7NaTRalMGOMlAOON3ga3OTllNPOa5NaNoORllG\TA7Ooae3lAl<PGRVA”3aaIlSlP7oOaa3TMlGRlbPOTRNMVLaLI3laOGaP1OTlbUl4ONaTQaMPlURlyLiwN0Ba7Gall4NaR—“aOAll14&U7rM1E.tRM.“My~T1¢oAgnRN.3o4Au1CMlOJPLMR1MoO.M.L31mrNNtG
842N%LZN8 N030%3W598&wn49%83&2743%565%%

4R24MOv]VooNOMPSll\NEyooO00-llOM0o0WOQAJ2MOUo\DONSo,elMNONo0gO0-TMl0D\oo,MO0N0llUNSNJaNL\nO0TMl0AFLl-TNSvandeOo[c¥iA3xweslVO0g4NYNH6W3O——eNPU~N90N1OeN@rImN78—MPMwQ95PeMNON.9%5“VgAYOyNuR4~.FmN5%VOei—eY—30B64AIPNoURNwH9%QNPU(L2182RUVGNSY7&57-)OOIiN4M475ONg323MNPh&“97OAON(GPW5576USIVRSYSO567NIViMASY430EVRSnY347ONS—iN0%14eNGAl001GgORN<GE,667&YN2P.232NeNG990U-QsV+NA—S5573PeNk2246MUg)%%07MRXeNP752%(OGN.UtG768S?POP(FP444G<eQN2U01936gwNP,r0889OIGN546NPGemQ OheAFNM)ohS-eoR?oLhlNsEooMAlh—tReL?eM—ohk
AFWEEYHER NN e, A R [
AYOMNERl")ALoMMRaMwNo ATaB—lt—lo0RaNlla—AialOIalMa=lSolalaIAlNlNaailNalOalNaAOOlaNllaRWSNVIaNAOlRiOARNaAlWORMA&IAlNXAlSRRRt-

M(=NOeSyOB O8§A0ON—Byo=E“T&ORGMy"NAeeO—eMOTMONUMO—0NO0N00MTPPOTPAPNTPeTeTPOPTNOPNGTBUeNTNIPINTNPeOTOLAl5NgooNV dgPlLPad
T.E.YfTlI.T.YfTiY.TY R..S.N..N._RI.R.A.RAR.RA..A..N_..R.fiR....._ TL
JRMMB) RMOS5/372 FCTINL
S5

—————

REFFRENCE

—
———

TARLE

e -— -

(CREF

TIST

1
“MA -~ RO v04.00
v01-05 )
~

AO©0~(NUWMT—OL0NUF~0O 652&0?493871648O6N249N—T5360V43093T6N839 3W186291%1590638N01—M3726N57215102 DaAfVo¥.iC»O(INTi‘AD.*]SE7M»seFCRN LaoM0lMlMsVal,aNlLTYePAEPyVMUrRO~M—0DN?NVOANT—ZIV—R~B0O0TyNM gWo]LuPgelde805M7N506W5OM2&1Pov7217306%7238629 YRA)LTeISNOT7%51m861605d3OT1N—72u217830%6“083b429630 oPRBT2INm3R8eAMPSYsENKI3SS RAJCONRWCRAORU RSACIANRiOR
£

4-APR-81
11:43:28 PAGE

D
M-/

9
SEQ 0315

JRMMBO RMOS5/3/2 FCINL
TABLE

(CREF

MACRO V24.00

vO01-05

4-APR-B1

9
E
11:43:28 PAGE M-3

SEQ 031¢

Ry
R
cOMOM AN NO

42-1

13-F 35
22-34
42-1

PRy | |

8-42
8-84
8-126
8-172
8-215
8-257
8-299
8-341
8-384
8=4o?
6
8-468
8-510
8-552
8-603
8-645
E-687

8-45

wr e

8-87
8-130
8-175
8-218
8-260
8-302
8-344
8-387
8-429
8-471
8-513
8-556
8-606
8-648
8-690

8-48
8-90

8-133
8-178
8-221
8-263
8-305
8-347
8-390
8-432
8-474
8-516
8-559
8-609
8-651
8-693

- ON08|

8-51
8-93
8-136
8-182
8-224
8-266
8-308
8-351

8-393
8-435
8-477
8-519
8-563
8-612
8-654
8-696

Oy N

xXW2eODw ...RLi%sS.4. Log.-TOo—yO0

~5-—

8-54
8-96
8-139
8-185
8-227
8-269
8-311
8-354
8-396
8 -438
8 -480
8 =522
8 =566
8~615
8-657
8-699

41=-47

41-52

41-54

10-60

12-30

14-20
8-21

8-15
8-57
8-99
8-142
8-188
8-230
8-272
8-314
8-257
8-399
8-441
8-483
8-525
8~569
8-618
8-660
8-702

8-18
8-60

8-102
8-146
8-191

8-233
8-275
8-317
8-360
8-402
8-444
8-486
8-528
8-573
8-621
8-663
8-705

8-63
8-105
8-150
8-194

8-236

8-278

8-320
8-363
8-405
8-447
8-489
8-531
8-577
8-624
8-666

8-708

14-20

8-24

8-66

8-108
8-154
8-197
8-239
8-281
8-323
8-366
8-408
8-450
8-492
8-534
8-581
8-627
8-669
8-711

8-27
8-69
8-1
8-157
8-200
8-242
8-284
8-326
8-369
8-411
8-453
8-495
8-537
8-586
8-630
B=672
8-714

8-30
8-72
8-114
8-160
8-203
8-245
8-287
8-329
8-372
8-414
8-456
8-498
8-540
8-590

8-63%
8-675

8-717

8-33
g-75
8-117
8-163
8-206
8-248
8-290
8-332
8-375
8-417
8-459
8-501
8-543
8-594
8-636
8-678
8-720

l:IReInLME(JMSDQLW

T Iy 7 INRNRIEY

13-£96
22-26

TYERY

21=2
42-1

mANINO N

13-£96

®&& i

.w MNUO0Y— - 2NO0AY~ N

X= e be be e e A(%)NDAoNX wi “

—
f
0
N
O
0
V
o
w
[
n
]
e
—
O
y
9TORTiaIrRaveLw%3SMO2N MNVe3YAYIhYASNth

N MO O

xWe)O

v ke & W g

w“Q‘4“4WG4M42VadoSdo“lel“oeoNlgo]lgLSoPl?T4~NyBgswosooloowdloosll&&ol5sLL%tl

OOeNN—O 4TRNaJeoLl o1 NVLUvONON—MTIn-OIN
n—0NoO—NO ONSRSM oM

33A"Ual"ao=balM"al"aOOON lU"aNlvagAe1lMO oM ogPMO0O[AM[A-l0aaOYVo"ll"0yRraaIN00oell“ae~aT—Oo—=llk4waNNollTno“aoAiIIl-lanaO—L~RNll‘TO3IMNOKAT-’MMNF33NT3@OATR3NOORNI0O--TMRTAMMrN3MIMOI=AM—OMYToMMOOYNI=SNMMSMMO©eeYOON——=
T—ONNSTIMiNV0MNVEOLtTtt 9 V[I umOLnA0NY—O No T—"0I[N N

WOv--~VF=)RNoLSalQaz2To%WY-]TNO0MT4egM<lRa5lagMMN4N(Mello"aaGN4lleglaMU8sloaGUMla:ol=oP[aN6O"—lal641%4—4~3~o.SLa4VNE4.4W1ac}MOoeli=OM6Oa.o*Nle+MOMa%oA=lNMe0a.o9=MlO=MViN(Me2eFVlo_=?b=MMLM.a£ON-lOLa

FROSS REFERENCE

TST

8-36
8-78
8-120
8-166
8-209

8-251
8-293
8-335
8-378
8-420
8-462
8-504
8-546
8-597
8-639
8-681
8-723%

8-35
8-81
8-123
8-169
8-212
8-254
8-296
8-338
8-381
8-423
8-465
8-507
8-549
8-600
8642
8-684