Digital PDFs

AH-F922B-MC

August 1981

318 pages

Original

16MB

view download

OCR Version

15MB

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

MATKO /04 OC
-REM

4-27Q-81 1°:33:(8 PAGE °

& -2 oa 22 A a2

WP A

LNY

WS
L .

JNPW, S50 ST

S o~ P ) - O

0o~ SR

&~ LAY, (O] CAAMUSANAMIANG
AL POPGTIRORONGINUA)

PO OBJWNRA A B GO0 O

IDENTIF ICATION
PRODUCT

CODE:

AC-F921B-M(

PRODUCT NAME:

CZRMMBG

PRODUCT DATE:

APRIL

MAINTAINER:

CX DIAGNGSTIC GROUP

AUTHOR:

MIKE

RMOS5/3/2 FUNCTIONAL

TEST,

SOF TWARE DESCRIBED

1981

LEAVITY

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 FRRORS THAT MAY APPEAR [N THIS
THE

THIS DOCUMENT

WI]THOUT
DIGITAL

ASSUMES

MANUAL.

FURNISHED UNDER A

LICENSE
AND
MAY
ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
TERMS OF SUCH LICENSE.
DIGITAL EQUIPMENT
CORPORATION ASSUMES NO RESPONSIBILITY FOR "HE
USE
OR
RELJABILITY OF [TS
SOFTWARE
ON
EQUIPMENT THAT [S NO!
SUPPLIED BY DIGITAL.

(()

1980,1981

DIGITAL EQUIPMENT CORPORATION

“IRMMB0 RMOS/3/2 FCTINL

TST 9

MACRO v04.00

4-APR-81

1
c
11:43:¢28 PAGE ?2
CONTENTS

INTRODUCTION
1.

ABSTRA(T

UNIT UNDER TEST

OPERATING REQUIREMENTS

HARDWARE REQUIREMENTS
MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

2.
3.

LOADING
SWITCH OPTIONS
STARTING
HALTING
RESTART ING

T8N
—

OPERATING PROCEDURE

NOVWA

OPERATOR

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

ERROR REPORTS
EXECUTION TIME

—

ENVIRONMENTAL SUPPORT

NOVN

&SN AW N NN NN
WRONIrON) r IPUPIONUNIND 2~
b b b s 2 camad . 2
W) 2O 000~ [V, HWN =200
NP
= QONANE
[@RVels
RNTe3
NN = OO0 N

N NG »

SEQ 000

TEST

PROCESSOR COMPATIBILITY

DUAL PORT CONFIGURATIONS

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

OPERATING SYSTEM COMPATIRILITY

DESCRIPTION

"/RMMBO RMQOS5/3/2 FCINL

T1ST 1

MACRO v04.00

&=APR-81

1
D
11:43:28 PAG £ 3

1.0

INTRODUCTION

1.1

ABSTRACT

THE

RMO05/3/2

WHICH ~ USES

RMO5/3/2

DISK

SUBSYSTEM FURICTIONAL

FUNCTIONAL

SUBSYSTEM.

MEANS

FOLLOWING PURPOSES:

TEST

VERIFY

PARTICULAR,

[S A STAND ALONE PROGRAM

THE

OPERABILITY

THE

PROGRAM

THE

SERVES

THE

TO EXPLICITLY ESTABLISH CONFIDENCE [N THE BASI( OPERATIONS Of THE
8}&2&”85§VE.
INCLUDING
MECHANICAL
POSITIONING
AND
DATA
TRANSGFER

WNINORY

et b

[

[HN1aN1,V1,V],¥]
BB URRRBNNN
D QO ~NPVIENWNN
= O OO0 NN
NN e

SEQ 0003

TO
IMPLICITLY
ESTABLISH
ELECTRICAL INTERFACE;

(ONFIDENCE

THE

DRIVE/ADAPTER

TO
VERIFY THE FUNCTIONAL;
TM" o =i W05/3/2 SUBSYSTEM,
THE MASSBUS CONTROLLER, MASSBCS 4.,
2" 1% . O THE DISK DRIVE.

INCLUDING

THE TEST IS COMPRISED OF * ~/R'%, wr (M WOULD NORMALLY BE RUN
N
SEQUENCE,
STARTING
WITH
PAR! !
<’ LY, PART 1 TESTS NOUSEKEEPING
AND MECHANICAL POSITIONING OPERA! UN>;
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)

THE

RMOS5/3/2

CONSISTS OF THE RHXX MASSBUS CONTROLLER,
AND THE STORAGE MODULE DISK DRIVE.
NOTE
gg?vETES”NG

AND

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS
THE

FOLLOWING

MINIMUM

HARDWARE

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

AND

SUBSYSTEM

wHICH

THE RM05/3/2 MASSBUS ADAPTER,
THAT A DISK PACK IS
REQUIRED

1S CONSIDERED AN INTEGRAL

2.0

DISK

THE

STORAGE MODULE DISK

C(ONFIGURATION,

EXECUTE

ASSUMED

THE RMO5/3/2 SUBSYSTEM

PROCESSOR

20K MEMORY
KWwl1-L OR KW11-P (LOCK

PROGRAM LOADING DEVICE
TERMINAL

RH11 OR RH70 CONTROLLER
1 70 8 DISK DRIVES (ANY COMBINATION OF

RMOS5'S,

RMO3'S OR RM0Z'S)

" JRMMBC RMCS5/3/7 FOTNL

TST

MACRO v04.00

4-APR-81

11:43:28 PAGE

3-1

SEQ 0004
2.2

MEDIA REQUIREMENTS
EACH UNIT BEING TESTED MUST BE LOADED WITH A

Bg;gggAT;EgTING
u

BEGINS

2.3

THAT

NP
ettt o

DISK

PACK

3.0

OPERATING PROCEDURE

3.1

LOADING
THE PROGRAM MAY BE

.PAPER TAPE,
.XXDP MEDIA,

3.2

§ 2

LOADED BY EITHER OF

THE FOLLOWING MEDIA:

USING THE STANDARD PAPER TAPE LOADING PROCEDURE.
USING THE APPROPRIATE LOADING DEVICE.

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

SW15
Swié

HALT ON ERROR
LOOP CN TEST (CURRENTLY BEING EXECUTED)

Swi12

UNUSED

SwW10

BELL ON ERROR

Swi13

THE

UTILITY

INHIBIT ERROR TYPEOUT>

Swi

INHIBIT TEST

SW09
Sw08

ITERATIONS

LOOP ON ERROR
LOOP ON TEST IN SW07-00

THE LOW ORDER 8 SWITCHES

Eggg OLO

SPECIFY

(SWO07-SW00),

THE OCTAL NUMBER OF

ARE

USED

CONJUNCTICN

WITH

THE TEST WHICH THE PROGRAM WILL

O
NN
&

el
B
Al

il randl ot

el ok ot o

ISR

b cd

d ek
b

VAR SR FRE v VAP

SCRAT(H

THE DISK MAY BE FORMATIED OR

PREREQUISITE DIAGNOSTIC PROGRAMS
RM05/3/2 DISKLESS TEST, PART 1

UNIT,

3.3

STARTING

200

WILL BE THE NORMAL STARTING ADDRESS.

THE

PROGRAM

MAY BE

STARTED AT LOCATION 200 OR 204.

STARTING AT

STARTING AT 204 wILL ENABLE

THE
RH/RM BASE
ADDRESS O
BE CHANGED.
IF RUNNING IN
A STAND-ALONE
ENVIRONMENT, THE PROGRAM USES CONSOLE
DIALOGUE TO
ALLOW THE OPERATCR
TG

3.4

CONTROL

TEST

HALTING

CONDITIONS.

TIRMMBO RMOS5/372 FCINL

TST

MATRO v04.00

Fool
11:43:28 PAGE 3-2

4-APR-81

SEQ 0005

115
A

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

115
1%

3.5

122

RESTARTING
THE PROGRAM CAN BE

155

CONSOLE OR

RESTARTED AT ADDRESS 200 OR 204.

(SEE

SECTION 3.3,

126

4.0

OPERATOR

128

4.1

PROGRAM 1D

130
131

THE _PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME
[T
STARTED AFTER BEING LOADED.
PROGRAM IDENTIFICATION DOES NOT OCCUR

132

135

INTERFACE

THE PROGRAM IS RESTARTED.

136

4.2

138
30

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

THE

142
%3
04

149

THE

IS:

‘TYPE HELP TEXT

(1)

ENTERS A
N 2.

CHANGE

THE

INITIAL PROGRAM

START AND

wOT ON

START AND WHEN RESTARTING AT LOCATION 204,

RH/RM BASE

ADDRESSES WITH

THE

FOLLOWING

EXAMPLE 1

154

RMCS1=176700 <CR>

;28

162
163
164
165

ON THE PROGRAM INITIAL

OPERATOR MAY

D IALOGUE.

132

160

QUESTION TYPED OUT

QUESTION
IS
ONLY ASKED
SUBSEQUENT START-UP'S,

148

159

FIRST

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 ‘N'* AND NO HELP TEXT IS TYPED. THIS

145
146
14

CONSOLE DIALOGUE

RMVEC=000254 <CR>

:NO CHANGE

IN ADDRESS

INO 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
DRIVF NUMBER(S)
AND TERMINATE
INPUT WITH

166

A CARRIAGE RETURN'.
THEN, 'DRIVE(S):'
IS TYPED
AND
WAITS
FOR THE
OPERATOR TO
TYPE AN ‘‘ATM,”
TO TEST
ALL POSSIBLE DRIVES
OR TYPE
ANY
STRING OF DRIVE NUMBER(S) 1O BE TESTED AND TERMINATE THE INPUT WITH A

STARTS, ONLY THE 'DRIVE(S):' PROMPT IS TYPED.

167
148
"4
“«

yae

"CARRIAGE RETURN''.
'NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN
ENTERING THE
DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE (OMMA
SEPARTOR AUTOMATICALLY
AFTER TYPING
EACH NUMBER.
ON ALL SUSSEQUENT

JRMMB] RMOS/3/72 FCTINL

TIST

MACRO .04.00

4-APR-81

1
6
11:43:28 PAGE 3-3

SEQ 0C06
172

THE

73
3;;
176

’

17?7

178
179
180

181

182
133
184

;gg

189
;gg

INITIALIZES AND REPORTS

THE

ONLINE

THE

THE FOLLOWING

RMO3

1
2
3

LOAD DEVICE
OFFLINE
RMOS
NOT PRESENT

NO~

NOT PRESENT'®

PRESENT

NOT AN RM0S/3/2
NOT PRESENT
-

TESTED.

THE DIAGNOSTIC
THE DRIVE:

TYPED

THEN TYPES

TO BE

THE FOLLOWING MESSAGE, BASED ON THE

TO BE

FOLLOWING MESSAGE WilL BE

TESTED, NONL*®

THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES AVAILABLE FOR

TESTING OR RETURN TO THME BEGINNING OF

ONCE THE DRIVES START TESTING,
AS EACH DRIVE BEGINS TO BE TESTED:

ggz

THE PROGRAM AND WAIT.

THE FOLLOWING MESSAGE WILL OCCUR

'DRIVE O°*

519

209

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.

212

NOTE:

213
214

STATUS

TESTED, 0'

IF NO DRIVES ARE AVAILABLE FOR TESTING THE
TO THE OPERATOR:

'DRIVE(S)

STATUS OF

THE ABOVE UNIT STATUS SHOWS THAT DRIVE O WILL BE TESTED, WHILE DRIVES

12;

207
208

THEN

STATUS:

'DRIVE(S)

'Y
332

202
582

= 7 WILL NOT BE

;g%

199

'UNIT

5
6

;gg

58?

DIAGNOSTIC

DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TFESTING.
IS AN EXAMPLE PRINTOUT:

215

THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE

OF RESPONSE
L=LETTER.

REQUIRED

BY THE USER,

D=DECIMAL,

O0-OCTAL AND

216

217

g}g

4.3

220
gg;

AN END OF PASS REPORT OCCURS EACH TIME THE
PROGRAM
IS
EXECUTED
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS.

552
225

ggg
Z

PROGRESS REPCRTS

'END OF PASS

THE FOLLOWING MESSAGE WILL ALSO

THE LAST END OF

OCCUR [F THERE WERE ERRORS SINCE

PASS REPORT.

'TOTAL ERRORS SINCE LAST REPORT

JRMMBC RMOS/3/72 FTINL

TST

MACRO v04.00

&-APR=-B1

H
1
11:43:28 PAGE 3-4
SEQ 000/

229

230
23
232
233
234
235
236

237

2%8
233
240
261
cbc
263
26446
245
266
247
268
249
250
251
2s2
25%
254
255
256

257

4.4

4.5

THERE

4.6

UNIT

DURING

THE

EXECUTION

CfF

T+t

ARE NO SCHEDULED HALTS DURING
DUE

THE

TRAP CAT(HER.

EXECUTJON OF

THE

PROGRAM.

ERROR REPORTS
THE FIRST LINE OF

THE

(DRIVE) BEING TESTED,

ERROR REPORT CONTAINS

THE DRIVE

TYPE,

THE

NUMBER

THE TEST NUMBER,

THE

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
MORF PAIRS
OF LINES
CONTAINING DATA HEADERS AND DATA PERTININENT TO
THE ERROR,
INCLUDING
EXPECTED AND ACTUAL TEST RESULTS.
THE

FOLLOWING PRINTOUT

DRV# O ~ RMO3,

SHOWS A

TYPICAL

ERROR MESSAGE

FOR

DURING WRITE COMMAND
EXPECTD
RECEVD

040300

040700

RMCS1
144252

RMCS2
040700

RMW(

RMBA

177403

104604

RMMR

RMMR2

000010

4.7

THIS PROGRAM:

TEST# 14, ERR# 326, P(=016654

MASSBUS DATA BUS PARITY ERROR ‘MDPE‘’ (RMCS2, BIT 8)

269
270

-85

REPORTS ARE GIVEN

PROGRAM HALTS

PROCESSOR HALTS ARE

267
268

275
276
277
278
279
280
281
282
283
284

REPORT

NO PERFORMANCE
PROGRAM,

258
259
26V
261
262
263
264
265
266

271
272
273
2764

PERFORMANCE

011777

RMDS
010700
RMDA

RMER1
000000
RMOF

RMDT

RMSN

000002

024026

010000

RMER2
000000
RMDC

000000

RMAS
00CJ00
RMEC1

004066

DETECTED

RMEC2

000000

177777

EXECUTION TIME
PASS

THE PROGRAM TAKES ABOUT

SUBSEQUENT PASSES

TAKE

20 SECONDS.

1 MINUTES 40 SECONDS.

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY
THE PM05/3/2 SUBSYSTEM FUNCTIONAL

TEST

PASS 2 AND

IS EXECUTABLE ON ANY PDP-11

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

SUSTAIN DATA TRANSFER OPERATIONS.

JRMMB( KMOS5/3/2 FCINL

TST

MACRO v04.00

4-APR-81

!
11:43:¢8 PAGE

3-5

g0 000&

286
287
288
289
290

5.2

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

291

DUAL
_PORT
LOGIC
IN
THE
RMO5/3/2
ADAPTER
BUT
IS
EXELUTABLE
ON
RMO5/3/2
SUBSYSTEMS
HAVING
THE
DUAL PORT OPTION FROVIDINC THE DUAL

292
293
29

295
296
297

298

299
300

301

302
303
304
305

306
307

308
309
310
311
212
313

314
315
316
31/
318
319

320
321
322
323
324
325

DUAL PORT CON" IGURATIONS

PORT

‘

5.3

SWITCH

SET

THE

APPROPRIATE

(A OR B).

MEMORY PARITY HARDWARE
MEMORY PARITY HARDWARE

IS NOT

RM05/73/2 SUSBYSTEM FUNCTIONAL

5.4

PORT

TEST.

USED DURING THE

EXECUTION

THE

MEMORY MANAGEMENT HARDWARE

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

5.5

ACT11,

APT11

THE RMO5/3/2

COMPATIBILITY
SUSBYSTEM FUNCTIONAL

TEST IS COMPATIBLE WITH

A(CT11

AND APT11
IN
BOTH
DUMP
AND
AUTOMATIC MODES.
FURTHER, THE PROGRAM
WILL EXECUTE
A
QUICK
PASS DURING THE FIRST PASS IN SUPPORT OF QUICK
VERIFY MODE.

5.6

XXDP COMPATIBILITY

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

5.7

OPERATING SYSTEM (OMPATIRILITY
THE

PROGRAM

IS NOT

6.0

TEST DESCRIPTION

TEST

COMPATIBLE WITH ANY

CONTROLLER ACCESS TEST

PURPOQSE
:

SOF TWARE

OPERATING SYSTEM,

JRMMBI

RMUS/3/2 FCINL

TST

MACRO v04.00

1
3-6

J
11:43:28 PAGE

4-APR-81

SEQ 0007
343

244

TO
CORRECT,

2,7

PROCEDURE
:

345
346

348
349

250

251
35¢
353

354

355
356
357

VERIFY
THAT
THE
UNIBUS
ADDRFSS OF
AS DEFINED AT LOCATION $RASE.

THE

SUBSYSTEM

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

IF THE TEST FAIIS AND THE PROGRAM

RUNNING

STAND

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

TEST 2

UNIBUS INITIALIZE

TEST

PURPOSE
:

VERIFY

INITIALIZED BY

THAT

ALL

THE RESET

APPLICABLE

SUBSYSTEM

INSTRUCTION.

REGISTERS

ARE

PROCEDURE
:

NONZERO VALUES ARE WRITTEN IN EACH APPLICABLE
REGISTER.
A
RESET
INSTRUCTION
IS
EXECUTED, AND THE REGISTERS ARE TESTED TO
INSURE THEY WERE INITIALIZED.
THIS TEST IS DONE ONCE BECAUSE
OF
APT COMPATIBILITY REQUIREMENTS.
0

CCURgHE
H

FOLLOWING REGISTERS ARE

RMCS1

- 003577

RMBA

- 777776

PRESET

BEFORE

THE

INITIALIZE

RMCSZ - 021037

RMERT

- 777777

RMER2 =~ 777777
RMMR

~ 040001

IN ADDITION,
TO A ONE

AND

THE DATA BUFFER
TO FORCE

IS USED

TO A ZERO.

TO FORCE DLT,TRE.SC

AND

IRMMB. RMOS5/3/72 FCINL

T3T

MACRO v04.0C

K
1
11:43:¢8 PAGE 3~/

4-~APR-81

SEQ 0010
&350
<01

TEST 3

402
403
404

CONTROLLER CLEAR TEST

PURPOSE
:

VERIFY

THAT

APPLICABLE

SUBSYSTEM

405

INITIALIZED BY A "'CONTROLLER CLEAR'' OPCRATION.

407
408
409
410

PROCEDURE:

406

421
L7
423
4L24
425
426
427
428
429
430
43
432
433
634
435
436
437
438
439

440
441
4462
443
444
445
L46
447
448
449
450
451
L5

453%

454

455
456

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,
I.E.,
BIT
5
OF
CONTROL
STATUS
REGISTER
2 (RMCS2), AND EACH

611
612
413
L4
415
416
417

418
419
420

REGISTERS

TEST

IS READ

CLEAR

ERROR

TO INSURE

IT WAS CLEARED.

TEST

PURPOSE
:

TO VERIFY THAT ALL APPLICABLE RH
MASSBUS (ONTROLLER STATUS
AND ERROR C(ONDITIONS ARE INITIALIZED BY AN ERROR CLEAR OPERATION.
PROCEDURE
:

BIT

"RH ERROR CLEAR'’ OPERATION,
I.E., WwRITING A ONE
14 OF RMCSY! WILL CLEAR THE FOLLOWING STATUS BITS:
.TRE, BIT

IN TRE,

14 OF RM(S1

.MCPE, BIT 13 0 RM(CST - READ ONLY

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

RM(CS2 - READ ONLY

.UPE, BIT 13 OF RM(CS2

.NED, BIT 12 OF RMCS2 - READ ONLY
.PGE, BIT 10 OF RMCS2 - READ ONLY
.MXF, BIT 09 OF RM(S2

.MDPE, BIT 08 OF RM(SZ2 - READ ONLY
THE TEST SETS JUPE AND MXF STATUS BITS, THEN SETS TRE
(ERROR
CLEAR) AND VERIFIES THAT ALL THE ABOVE STATUS BITS ARE CLEARED.

JRMMBO RMQS/3/2 FCTINL

TST 1

MACRO v04.00

4-APR-81

11:43:28 PAGE

3-8
SE@ 0011

457
458
459
460
461
462
463

TEST

PURPOSE
:

TO VERIFY

THAT PERMITS

464

THAT

FURTHER

THE

STORAGE MODULE DISK DRIVE

IS IN

TESTING.

STATF

PROCEDURE:

465

466

THIS

L67

TEST

SELECTED DEVICE

408
469
470

473
474

THE MASSBUS AND EXAMINES STATUS OF

FOR THE FOLLOWING CONDITIONS:

RMDS

.WRL, BIT 11

RMDS =0,

A WRITE

475
476
L77
478
479
480

INITIALIZES

.MOL, BIT 12 OF

ASSERTED BY

472

481
4,82
483
484
485
486
487

DRIVE STATUS TEST

THE

PROTECT

STATE;

.DvC,
BIT
07
OF
UNASSERTED BY THE DRIVE;
.UNS, BIT

=1,

DRIVE.

|INDICATING

INDICATING THAT

RMER3

14 OF RMER1

THAT

=0,

THE DRIVE

INDICATING

DRIVE

SHOULD EQUAL DV(C, OTHERWISE

IS LOW OR A FAILURE HAS OCCURRED WITH UNSAFE

TEST 6

UNIT

STATUS.

THE

READY

IS NOT

FAULT

POWER

PRIMARY/SECONDARY ERROR TEST

PURPOQOSE:

488

489
430
491
492
(93
494

TO VERIFY

THAT

THE RM05/3/2 CAN

INCURRING UNEXPECTED ERRORS.

EXECUTE

COMMAND

WITHOUT

PROCEDURE
:

THE TEST EXECUTES A PACK ACKNOWLEDGE COMMAND AND MAKES
SURE
THAT
GO RESETS AND THAT THERE ARE NO PARITY ERRORS, ETC.
VOLUME
VALID STATUS IS IGNORED.

495
496
497
498
4,99

500

TEST

DIAGNOSTIC MODE

TEST

PURPOSE
:

VERIFY

THAT

MAINTENANCE

HARDWARE

OPERATIONAL.

PROCEDURE
:

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

JRMMBC RMCS/3/2 FCTNL

TST

MACRO v04.00

M1
11:43:28 PAGE 3-9

4-APR-81

SEQ 0012

TEST

10 PACK ACKNOWLEDGE

TEST

PURPOSE
:
TO VERIFY

COMMAND,
THE

THAT

VULUME

VALID

CAN BE

SET BY A PACK ACKNOWLEDGE

LENDING CREDENCE TO THE EXECUTION OF

STABILITY OF

THE

UNIT READY

SIGNAL

FROM THE

THE COMMAND AND TO
DRIVE.

PROCEDURE
:

AN NN

BHIFRF AN
—

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

ASCERTAIN

EXECUTE
A
RECALIBRATE
OPERATION
TO
THE
"SKI'' STATUS
BECOME
UNASSERTED
AT
THE
RECALIBRATE.
THE
SECONDARY
PURPOSE
IS
KNOWN STATE SO THAT FURTHER TESTS CAN CHECK
CHANGES IN THE DRIVE.

THAT

THE

DRIVE

WILL

EXTENT THAT 'PIP'’' AND
COMPLETION
OF
THE
TO PUT THE DRIVE IN A
FOR UNEXPECTED
STATE

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:

.SK1=0, "'SEEK ERROR'' IS INACTIVE;

.PIP=0,

°'ON

CYLINDER'®

ACTIVE,

"POSITIONING IN PROGRESS'® BEING INACTIVE;

INDICATED

.IAE-0, NO "'INVALID ADDRESS ERROR'' DURING RECALIBRATE;

.OPI-0, NO ''OPERATION

THAT
THE
EYLINDSR

INCOMPLETE

DRIVE WAS READY AT THE
STATUS
WENT
INACTIVE

ERROR'’,

INDICATING

THAT

START OF THE COMMAND AND THAT ON
WHEN
THE
DRIVE
RECEIVED
THE

LATA 1, ATTENTION IS SET BY RECALIBRATE.

JHMMB RMGS/3/72 FOTAML 15T 1

MACRO v04.00

L-APR-B1

171:43:,8 PAGE

3-7¢

[V Y0 IV 1V TN UL
~
gw\hm
NN N NN
®2E8I> ~NOA
S
s )

3EQ 0013
TESY 12 ABORT RECALIBRATE

TESY

PURPOSETO

VERIFY

THAT

THE RM05/3/2

INHIBITS A RECALIBRATE

ABORT (ONDITION EXISTS AT THE START OF

THE COMMAND.

wHEN AN

PROCEDURE :
THE TEST SETS AN ERROR IN THE ERROR REGISTER
RECALIBRATE C(OMMAND, VERIFYING THAT 'PIP'" REMAINS

TEST

AND
ISSUES
INACTIVE.

13 1VC RECALIBRATE TEST
PURPOSE:
TO VERIFY THAT INVALID COMMAND STATUS, BIT 12 OF RMER2,
WHEN VOLUME VALID IS INACTIVE DURING A RECALIBRATE COMMAND,

SETS

PROCEDURE
:
THE PROGRAM SETS AND RESETS

VOLUME

DJIAGNOSTIC

VvALID, BIT 6 OF RMDS TO RESET.

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

TEST

JAE RECALIBRATE

THAT

MODE

WHICH

CAUSES

THE PROGRAM THEN EXECUTES
“‘IvC''

STATUS

SETS

AND

DURING

TEST

PURPOSE
TO VERIFY THAT INVALID ADDRESS ERROR DOES NOT SET
RECAL IBRATE COMMAND .
PROCEDURE :

THE TEST PRESETS THE DISK ADDRESS
(RMDA)
AND
THE
D ESIRED
CYLINDER ~ ADDRESS
(RMDC)
TO
ILLEGAL
A
VALUES
AND
1SS UES
?WYE COMMAND, VERIFYING THAT °‘IAE‘’ DOES NOT SET DUR] NG THE

TEST 15 RECALIBRATE AT OFFSET
:
PURPDSE
TO VERIHY THAY OFFSEYT

MODE

DOFS

NOT

AFFELT

RECA] IBwATE,

rIMMPBS RMCS/3/e 5T

UL D0

L—4PR-81

17:43:78 PAGE 3~17

SEQ 0014

THE
TEST
EXECUTES
AN OFFSEYT
(OMMAND,
THEN EXECUTES
A
RECALIBRATE
(OMRAND AMD VERIFIES THAT ToERE ARE NC ERRORS DURING
RECALJBRATE.

TESTY Tuy DRIVE (LEAR TEST

:
PURPOSE
YO VERIFY THAT ALL APPLICABLE RM05/3/2 MASSBUS ADAPTER ERROR
AND STATUS CONDITIONS ARE INITIALIZED 8Y A 'DRIVE CLEAR'® COMMAND.
PROCEDURE
:

ARE

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

COMMAND AND VERIFIES THAT EACH

BIT

(LEARED.

REGISTERS WHICH ARE NOT AFFECTED BY 'DRIVE
AND VERIFIED.

THE

NRM P

[

sl als ko ko
WSS
.J'\.‘!gg

= OO NPV
S
= O

PROCEDURE
:

FCLLOWING

[TEMS ARE PRESET:

.MMERT, ERROR REGISTER 1
.DMD, DIAGNOSTIC MODE

IS SET TO ALL ONES;

IS SET;

.RMERZ2, ERROR REGISTER 3,

IS SET TO ALL ONES.

FOLLOWING THE DRIVE CLEAR COMMAND,

(HECKED:

LRMCS1,

ADDITIONALLY,

CLEAR'' ARE ALSO PRESET

THE

FOLLOWING

[TEMS

ARE

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

ARE DONT C(ARFS;

LRMDS,

IS (HECKED FOR O,

WHICH SHOULD BE ONE,

FOR

MOL,DPR,DRY,

AND

THE APPROPRIATE ATA BIT

S O;

]S A DONT

(ARE,

RMERY,

IS (HECKED fOR O;

LRMAS,

IS CHECKED TO INSURE

.RMMR,

IS CHECKED FOR C, EXCEPT FOR WORD (LOCK, LAST SECTOR,

AND LAST

ONE,

EXCEPT

AND PGM WHI(H

SECTOR AND

TRACK WHICH ARE DONT CARES:

RMMRZ IS CHECKED FOR 0, EXCEPT FOR THE TEST

AND REQA, REQB WHICH ARE DONT (ARES:

LRME(C2 IS {HECKED FOR O;
RMERZ IS C(HECKED FOR C.

BIT

wWHICH

TIRMMBS RMOS/3/2 FOTHL

TET 1

MACRO v04.00

4~APR-B1

11:43:28 PAGE

3-12

SEQ 001°

685
68¢
48
488
689
690
691
692
693
494
H95
696
€97
698
699

TES:

17 NOP TEST
:
PURPQSE
TO VERIFY

THE

EXECUTION OF

'WOP'' COMMAND.

PROCEDURE
:

A NOP COMMAND

IS EXECUTED ON THE

IS
C(HECKED
TO
VERIFY
CHANGES IN STATUS.

700
701

THAT

SELECTED DEVICE

AND

STATUS

THERE WERE NO ERRORS OR UNEXPECTED

702

703
704
705
706
797
708
705
710

TEST

PURPOSE
:

TO VERIFY

711
712

727

EXECUTION OF

"'OFFSET'* COMMAND.

THE OFFSET COMMAND IS EXECUTED AND THE PROGRAM
(HECKS
THAT
OFFSET STATUS, BIT O OF RMDS IS SET AND THAT ATTENTION, BIT 15 Of
RMDS IS ALSO SET.
ADDITIONALLY, CONTROLLER, ADAPTER,
AMD
DRIVE
STATUS IS CHECKED FOR UNEXPECTED CHANGES.

716
717
718
719
720

726

THE

PROCEDURE
:

713
714
715

721
722
723
724
725

20 OFFSET TEST

TEST

GO/ATA TEST

PURPQSE
:

TO
VERIFY
COMPOSITE ERROR

THAT
‘"ATA'
[S INACTIVE.

WILL

RESET

WITH

"'GO'"

PROVIDING

PROCEDURE
:

ATTENTION, BIT

15 OF

RMDS,

AND RESET USING A NOP (OMMAND,

TEST 22 WRITE
PURPOSE
:

ATA TEST

IS SET USING

OFFSET

COMMAND

CZRMMBO RMO5/3/2 FCINL

TST

MACRO v04.00

4=-APR-8"

11:43:¢8 PAGE

3-13
SEQ CO16

762
743
764
745

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

RESET

WRITING

THE

WHICH

THE

PROCEDURE
:

746

747
748
749
750

ATTENTION IS SET USING AN OFFSET

(OMMAND

AFTER

PROGRAM
WRITES
A O IN THE ATTENTICN SUMMAKY REGISTER, VERIFYING
THT ATTENTION REMAINS SET,
FOLLOWING THAT, THE PROGRAM WRITES
A
1 IN RMAS AND VERIFIES THAT ATTENTION RESETS.

752
753

756

755
756

757

TEST 23 ERROR/ATA TEST

758
759
760
761
762
763
764
765
766

PURPOSE
:

TO VERIFY THAT ''GO'’ DOES NOT RESET "‘ATA"'
COMPOSITE ERROR.

WHEN

THERE

PROCEDURE
:

"ATA"" IS SET WITH AN OFFSET COMMAND AFTER WH]CH ONE
OF
THE
ERROR
BITS
IS
SET,
THE PROGRAM THEN ISSUES A NOP{OMMAND AND
VERIFIES THAT THE ATTENT]ON BIT REMAINS SET.

767

768
769
779
771

772

7753

774

775

776
777
78

779

780

TEST

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

PRIORITY AND

INTERRUPT

IS ENABLED.

WILL
GENERATE
IS
LESS
THAN

A
PROGRAM
(ONTROLLER

781

PROCEDURE
:

783

ATTENTION IS SET USING AN OFFSET
COMMAND.
WITH
[NTERRUPT
ENABLED AND PROCESSOR PRIORITY SET BELOW CONTROLLER PRIORITY, THE

782

784
785
786

PROGRAM VERIFIES

THAT A PROGRAM

INTERRUPT

OCCURS.

787

788
789
790
791

792
793
794
795
796
797
798

TEST 25

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

[NTERRUPTS ARE

NOT

ENABLED.

SAME

LESS

AND

THAN

WHEN

(1)

INTERRUPT

CONTROLLER

“IRMMB0O RMOS/372 FCINL

TST

MACRO V04.00

4-APR=-81

11:43:28 PAGE

3-1¢
~fu

799

800
801
802
803

PROCEDURE
:

ATTENTION IS SET USING AN OFFSET (OMMAND 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 [ |SABLED 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 (ENTERLINE’® COMMAND.

PROCEDURE
:

THIS

TEST

ISSUES AN RT(C

COMMAND

AND

VERIFIES

THAT

OFFSET

STATUS, BIT O OF RMDS IS RESET AND THAT ATTENTION, BIT 15 OF RMDS
I5 SET.
UNEXPECTED STATUS CR ERROR {ONDITIONS ARE ALSO VERIFJED.

TEST 27 READ

IN PRESET TEST

PURPOSE
:

TO VERIFY

THE

EXECUTION OF

'READ

[N PRESET'' COMMAND.

PROCEDURE
:

THIS TEST LOADS NON ZERO VALUES IN THOSE
ADAPTER
REGISTERS
WHICH
ARE
INITIALIZED
BY
THE
READ
[N
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
ONES AND VERIFLED TO BE ZERO AFTER THE RIP COMMAND;

RMDC,

THE DESIRED CYLINDER REGISTER,

ALL

IS LOADED

W[TH

(70.016200)

AND

ALL ONES (001777) AND VERIFIED TO BE ZERO AFTER THE RIP COMMAND;
850

855

.RMOF ,
VERIFIED TO BE

TEST 30 RMDC

THE OFFSET REGISTER,
ZERO AFTER THE TEST;

CLEAR OFFSET

TEST

IS F ESET

CZRMMBN RMOS5/3/2 FCINL

TST

MACRO Vv04.00

F
11:43:¢8 PAGE

4-APR-81

2
3-15
SEQ 0018

856

857
858
859
860
861
862
863
864
865
866
8o7
868
869

870
871
872
873
874
875
876
877
878
879
880
881
882
883

:
PURPOSE

WILL

DESIRED CYLINDER REGISTER

(RMDC)

PROCEDURE
:

OFFSET MODE
WRITING RMDC,

TEST

IS SET USING THE OFFSET COMMAND,

THEN

RESET

ILLEGAL FUNCTION TEST

PURPOSE
:
TO VERIFY
FUNCTIONS.

THAT

THE

RM0S5/3/2 SUBSYSTEM

DETECTS

ALL

ILLEGAL

PROCEDURE
:

EACH ILLEGAL FUNCTION (ODE
IS
EXECUTED
WITH
VERIFYING
THAT
“'ILLEGAL FUNCTION'' STATUS, BIT C GF

FOR EACH

CODE.

THE

ILLEGAL FUNCTION TEST,

884
885
886
88/
888

889
890
891
892
893
894

TO VERLFY THAT WRITING THE
CLEAR OFFSEf MODE.

TEST

SUBSYSTEM

INITIALIZED

PRIOR

EACH

32 INVALID COMMAND TEST

PURPOSE :
TO VERIFY

895
896
867
898
879
900
901
902

THE
PROGRAM
RMER! IS SET

.
IVC ERROR DETECTION.

PROCE DURE :

THEN "e‘iséfi?és“fif’3o¥°%c‘§”MSLifio”‘3%'§?rT?é”‘}fii‘?"%c LI,::I;E TF.QE A

PRUCESS IS REPEATED

FOR

EA(H

FUNCTION

CHECKED ACCORDING TO THE FUNCTION.

TEST

33 INVALID ADDRESS ERROR TEST
PURPOSE
:

TO VERIFY
PROCEDURE
:

JAE

ERROR DETECTION.

C(GDE,

WITH

Iv(

BEING

{RMMBC MOS/3/72 FCINL

TST

MACRO v04.00

4=APR=81

171:43:28 PAGE

3=1¢

SEQ 0019
THE TEST EXE ¢ UTES EACH FUNC T ON (ODf WwITH RMDA, AND RMD(C SE1T
TO ILLEGAL ADDRESSE
S S, AND VER IF1 ES I JAE ACCORDING TO THE FUNCTION,

TEST 34 WRITE LOCK ERROR TEST
PURPOSE
:
TO VERIFY WLE

ERROR DETECT]ON.

PROCEDURE
:

THE
PROTECT

EXECUTED.

TEST

TEST SIMULATES WRITE
AND
VERIFIES
WLE

EACH FUNCTION CODE

35 ERROR ABORT

PROTECT
USING
MAINTENANCE
ACCORDING
TO
THE
FUNCTION

TESTED.

WRITE
BEING

TESTS

PURPOSE
:

TO TEST

COMMAND EXECUTION DURING AN ASORT

CONDITION.

PROCEDURE
:

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

TEST

UNSAFE

36 RMR TEST
:
PURPOSE
TO VERIFY

THAT

RMR ERROR

IS DETECTED.

PROCEDURE
:

959

WITH
SETS.

TEST

THE

TEST

SET,

EXECUTES A NOP COMMAND WITH

THE

37 PARITY ERROR TEST

TEST

WRITES RMCSI,

DEBUG

(LOCK

ENABLED.

VERIFYING THAT RMR ERROR

CRMMBU

RMUS/ S/

TNL

TST

MACRO v04.00

4=APR=81

11:43:28 PAGE

3=17

SEa 0020
370

PURPQSE
:

;71

372
373

TO VERIFY

Q74

THAT PARITY ERRORS ARE DETECTED.

PROCEDURE
:

975

976

WITH PAT SET TO CAUSE BAD PARITY ON
THE
(ONTROL
BUS,
TEST
WRITES A SHIFTING ONE B]T PATTERN TO RMDA AND VERIFIES
AN ERROR 1S DETECTED BY THE RM0S/3/2 FOR EACH PATTERN.

977

978
379
980

THE
THAT

981

982
983
984

985

TEST 40

JLLEGAL REGISTER

986

PURPOSE
:

988

TO VERIFY
SUSBSYSTEM,

991
992
993
994
995
996

PROCEDURE
:

987

989
990

ADDRESS

1009
1010

1011

1072
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022

1023
1024

025

026

JLLEGAL

JUMPER

THE

(ONTROLLER

BECAUSE

THE

RANGE OF

ADDRESSES WHICH THE CONTROLLER WILL RESPOND TO IS LIMITED BY

338
999

1007
1008

DETECTION OF

EACH REGISTER
ADDRESS
IS
ACCESSED
AND
JLLEGAL
REGISTER
STATUS,
BIT 1 OF RMER1 IS CHECKED ACCORDING TO THE ADDRESS USED.
NOTE THAT THE EXECUTION OF THIS TEST IS DEPENDENT ON THE REGISTER

997

1000
1001
1002
1003
1004
1005
1006

THE

TEST

WAY THE JUMPER

SEEK

TESTS

(41

|S CUT.

THE

- 67)

PURPOSE
:

THE PURPOSE OF

EACH OF

THE FOLLOWING SEEK TESTS

IS TO VERIFY

THE
EXECUTION OF SEEK OPERATIONS BY THE RM05/3/2 SUBSYSTEM USING
A SET OF ADDRESSES IHAT TEST
THE
ADAPTER/DEVICE
INTERFACE
AND

ELECTROME CHANICAL. HEAD POSITIONING HARDWARE.
PROCEDURE
:

EACH TEST WILL RECALIBRATE THE DRIVE

'PIP'"

‘'SkI''

ACTIVE.
FOLLOWING
THAT, THE TEST EXECUTES A SEEK TO A CYLINDER
ADDRESS OR SERIES OF ADDRESSES.
AT THE (OMPLETION OF
EACH
SEEK
OPERATION,
SUBSYSTEM
STATUS
IS
STORED AND THE TEST CHECKS FOR
PRIMARY ERRORS WHICH PRECLUDE FURTHER ERROR C(HECKING.
ARE
NO PRIMARY ERRORS THE TEST CHECKS FOR OPERATIONAL
THEN SECONDARY ERRORS.

IF
THERE
ERRORS AND

“IRMMBO RM(OS5/3/2 FCINL

TST

MACRO v04.00

4=APR=81

11:43:28 PAGE

3-18

SEQ 00c1
'027
1028

TEST 41

SZEK

1029

TO FIRST

THIS

1030

TEST

CYLINDER TEST

SEEKS TO THE FIRST CYLINDER,

1.E.

C(YLINDER 0.

I.E.,

CYLINDER 822.

1031

1032

1033
1034
1035
1036

TEST 42 SEEK TO LAST CYLINDER TEST
¢

1037

THIS TEST SEEKS TO THE LAST CYLINDER,

1038

1039

1040
1041

1042

1043
1044
1045

TEST

1046

1063

1064

1065

CYLINDERS TEST

THIS

SEEKS FORWARD

TEST

CYLINDERS 1, 2, 4., 8,

1047

1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062

43 SEEK PRIME

TEST

SEEK ZERO DIFFERGNCE
THIS

TEST &5

16,

TEST EXECUTES

TO EACH PRIME

32, 64,

C(YLINDER ADDRESS,

128, 256, AND S512.

I.E,

TEST
SUCCESSIVE

SEEKS

TO CYLINDER 0.

SEEK MAXIMUM DIFFERENCE FORWARD
THIS

TEST DOES A RECALIBRATE

CONDITION OF
CYLINDER.

"PIP'" OR ''SKI'', AND

(CMMAND,

REGUARDLESS

THE

THEN EXCUTES A SEEK TO THE LAST

1066

1067

1068
1069
1070

1071
1072

1073

1074
1075

1076
1077
1078
1079
1080
1081
1082
1083

TEST 46 SEEK ADJACENT

THIS

ADJACENT

TEST

FORWARD

TEST

SEEKS TO CYLINDER O,

FORWARD

CYLINDER,

TEST 47 SEEK ADJACENT REVERSE

1.E.,

FOLLOWED By

CYLINDER

SEEK

TEST

THIS TEST SEEKS "0 CYLINDER 1,
REVERSE CYLINDER, l.E., CYLINDER 0.

FOLLOWED BY A SEEK

TO THE

ADLACENT

CZRMMBO RMOS5/372 FCTINL

IST

MACRO v04.00

4-APR=-81

11:43:28 PAGE

3~19
Sl

1084
"085
1086

1087
1088
1089
1090

TEST

50 SEEK TO INVALID SECTCR TEST
WITH

THE

OFFSET

FOR

18 BIT FORMAT,

THE

PROGRAM

SEEKS TO CYLINDER 0, TRACK 0, FOR EACH [NVALID SECTOR ADDRESS AND
VERIFIES THAT
INVALID
ADDRESS
ERROR
SETS FOR FACH SECTOR. THE
TEST

IS REPEATED FOR

16 BIT FORMAT,

£ N
AN AN AN NN WA
NN NIRS A PINONIN) = b bl i
d 2 2 2 QDO
SOBIFHR
wm-aogonwo«mzswm-aoomwovbwm—»oomw & (LR v ep

— ah md ek eh e el

b e

D D

ed d e ed d o A d d e ek D wd eh d )

S e

i =D wd weod e

D =D wd ek wd

)

D e

o pd D ed ed wd e e ad cad b b v

D wd

d o

et D b b ed d ad P d

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 TRA(CK ADDRESS.

TEST

52 SEEK
THE

SECTOR

TO INVALID CYLINDER TEST
PROGRAM SEEKS

AND

ADDRESS ERROR

TEST

WITH
C(YLINDER
INVALID ADDRESS

TRACK

SETS

TO EACH INVALID CYLINDER ADDRESS WITH

ADDRESS

FOR EACH

SET

0O AND VERIFIES THAT

THE

INVALID

CYLINDER ADDRESSS.

53 I1vC SEEK TEST
PURPOSE
:

TO VERIFY THAT INVALID COMMAND STATUS, BIT 12 OF
WHEN VOLUME VALID IS INACTIVE DURING A SEEK COMMAND.

RMER2

SETS

PRICEDURE
:

THE

TEST

DIAGNOSTIC

RESETS

MODE,

VOLUME

VALID

SETTING

AND

RESETTING

THEN EXECUTES A SEEK (GMMAND AND VER!FIES THAT

"IvC'' STATUS 1S SET.

TEST 54 ABORT SEEK

TEST

PURPOSE
:

TO VERIFY THAT

THE RM0S/3/2

INHIBITS A SEEK

WHEN

ABOR!

TIRMMBO RMOS/37¢ FCTNL

TST

MACRO V04.00

K
2
11:43:¢8 PAGE 3-20

4-APR-81

SEQ 0023
}141

CONDITION EXISTS AT "HE START OF

11"2

1143

PROCEDURE
:

1144

1145

THE

TEST

SEEK COMMAND,

SETS AN ERROR

IN THE ERROR REGISTER

AND

VERIFYING THAT ‘PIP'' REMAINS INACTIVE.

[SSUES

TEST

NO OO NONO

0
~

55 SEEK AT OFFSET
PURPQSE
:

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.

TEST

EXECUTES

SEEK

ORIGINATES

THE

56 LOOK AHEAD TEST
PURPOSL:
TO INSURE

DRIVE
AND
IS
OPERATIONAL.

THAT

THE

VISIBLE

SECTOR

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

P00

00000 RD N N NN NNNNNNARON

— ek v d wd b e td ved e b e ] el wd d d el wad D b md ced e d d D d =D e D D —d el e d i) ) b )
——d ek oh el e e wh d wned wd d b e e —d wad ) d ) D wmd ) wd ed od =D b mad ) =t md ) b oD e d d med

D d ) d od D o D D b
b ad PRI
SR S
I (I QN QN

(o a0 ke al o a e Al * 0N ALY TV RV IV, TV, IV, TV YV, O N

g\nbwr\a—ngog\‘gwg W- 8 OO0~ i SN —'OOCD\Ig\hJ\WN—"OO@\JO‘wJ\wN—*O\O

THE (OMMAND,

TES?

THE LIMIT ON THE NUMBER OF

SAMFLES

33.

WITH

57 SEARCH ON CYL INDER
PURPOSE
:

TO VERIFY THE EXECUTION OF SEAR(CH OPERATIONS
MOTION USING THE SECTOR PULSE FOR SECTOk C(OMPARE.

[RmS——

—— ——

—

HEAD

C(ZRMMBO RMOS/3/2 FCINL

TST

MACRO Vv04.00

4=-APR=81

11:43:28 PAGE

3-21
SEQ 0024

PROCEDURE:

THE

TEST

INTIALIZES AND RECAL IBRATES

THE DRIVE

‘PIP''

"SKI''
IS
ACTIVE THEN SEEKS TO CYLINDER O.
THE TEST THEN DOES A
SEAR(H TO EACH SECTOR AND
VERIFIES
THAT
THE
SEARCH
COMPLETES

WITHOUT

ERROR.

3
e

NONB
W =0

d
b
e

) el =
b

i ad o)

d i o

NINRONINININ
NN

IN 16 BIT FORMAT,

TEST 60 SEARCH OFF

THIS

TEST

IS DONE ONCE

IN 18 BIT FURMAT AND ONCE

CYLINDER

PURPOSE
:

TO VERIFY
HEAD MOTION.

THE EXECUTION OF

(OMMAND

WITH

IMPLIED

PROCEDURE
:

THE DRIVE 1S 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 YO
CYLINDER
411., TRACK 0, 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,

TEST 61

WHERE

THE

LAST

SECTOR SEARCHED

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
IV
IS
OFF
WITH THE OFFSET REGISTER SET FOR

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

TEST 62

SEARCH INVALID TRA(K

CZRMMBO RMOS/372 FCTINL

TST

MACKO v04.00

m 2
11:43:28 PAGE 3-22

4-APR-81
PURPOQSE
:

TO VERIFY

—

nnry
[
N

b p

SERES
V

OO0VPBN>
N

SEQ 0025

THE DETECTION OF

AN INVALID

IS RECALIBRATED

AND

SEARCH OPERATION.

TRACK ADDRESS DURING A

PROCEDURE
:

1261

THE

DRIVE

INITIALIZED

OFF

SIXGR \nmu-cnourvgthNNNLACD(Hm*qo\n:wnnrAChourQOHnrwxnrac>

) e

i i

s A

b i

b o

D e

kD o\ L}

D oD ad ek

b —d —d

AN
NN NN NN AN PO AUNINONIPVLNSTU
NN NN PPN NI N NINL AL VN NN NINVNO N
— sO
D000 VO O
O O O O O 00 00 00 00 00 Q0 0D 00 00 00 ~N ~ ~ NNNNNNN [
—-OO
D

CYLINDER
OR
HAS A SEEK ERROR.
THE PROGRAM EXECUTES A SEARCH 10
EACH INVALID TRACK ADDRESS
WITH
THE
CYLINDER
ADDRESS
0O,
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 ERRCR.
THE PROGRAM THEN EXECUTES A SEARCH

TO EACH
INVALID
CYLINDER
ADDRESS
AND
ADDRESS ERROR SETS FOR EACH CYLINDER.

TEST 64

VERIFIES

THAT

INVALID

1vC SEACH TEST

PURFQOSE
:

TO _VERIFY

THAT

INVALID

(OMMAND STATUS

INACTIVE DURING A SEARCH COMMAND.

SETS WHEN VOLUME

VALID

PROCEDURE
:

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

TEST

65 ABORT SFAR(CH TEST
PURPOSE
:

TO VERIFY THAT

THE RMO5/3/2 INHIBITS A SEAR(H WHEN AN

ABORT

CIRMMBO AMOS/3/72 FiTn

b
2

MLIRD ¥04.00

N 2
11:43:28 PAGE 3-2%

4-APR-B1

o = LS

S 20

N SO0
N A NN SO0 NNy

s
B bt
ek et et h D ek ek e
e e
o
i D
D o
T
W
R
W
Y
W8UL W UM O AN
M
N NNMM
ARANA
MM N
I BN NS gWA
WP
NOTNGADNONIAINUAURD)
b b b wd od wd ok o

SEQ 0026

1444

(ONDITION EXISTS AT TeE STARY (F

THE (OMMAND.

PROCEDURE THE

TEST

SETS AN ERROR IN THE ERROR REGISTER

AND

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

TEST

ISSUES

66 SEARCH AT OFFSET TYEST
:
PURFOSE
TO VERIFY

THAT OFFSET MODE

DOES NOT CAUSE

SEARCH ERRORS.

PROCEDURE
:
THE

COMMAND,

TEST EXECLTES AN OFFSET

VERIFYING THAT

TesS? 67 HEAD AL IGNMENT

(OMMAND,

THEN EXECUTES A

THERE ARE NO ERRORS DURING THE SEARCH.

SEEK

PURPOSE
:
HEAD AL JGNMENT FOR AN RM0S/3/2 DRIVE,

IS PERFORMED AT CYLINDER

245 DECIMAL USING THE CE PACK. A 60 MINUTE WARMUP IS REQUIRED IFf
THE PACK WAS NOT

IN THE DRIVE PRIOR TO HEAD AL [GNMENT OPERATION.

PROCEDURE
:

THE TEST EXECUTES A SEEK TO CYLINDER 245.,
HEADS CVER THE HEAD AL IGNMENT (YL INDER.

10O POSITION THE

SR "

-y

s06.00

8
4-APR-B71

17:43./8

FAGE

3
«

SEQ 007

S*LAST REVISION O¢-APR-51
LTITLE

(ZRP9B0 RMD5/3/2 FTTAL TST Y

;*COPYRIGHT () 1981
;*DIGITAL EQUIPMENT (ORPORATION
L TR TR IR

;*(OLORADO SPGS.. (0. 80919
*

*PROGRAM BY MIKE LEAVITY

s*TMIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDE( SYSMAC

;*PA(KAGE

SSBTTL

e
e R | -l

RUY WU

N
WAL A

BN N

O = NI N NN

NN BE
N
BN BN BN

.SBTTL

;*INITIAL ADDRESS OF
STACK
= 1100

104000

ERROR
SCOPE

000011
000012
000015
000200

000004

172776

17272276

172727274
127272
122570
177570

Q0GQ00
00001
GO000¢

000003

HALT ON ERROR

LOOP ON
INHIBIT
UNUSED
INHIBIT
BELL ON
LOOP ON
LOOP ON
TN128

TEST
ERROR TYPEQOUTS

ITERATIONS
ERROR
ERROR
TEST IN SWR<7:0>

TNGS
TN32

TN16

TN8

TNG

TN2
N1

BASIC DEFINITIONS

001100

0D OO NN

NN I

USE

)

SWiTCH

LEE TR TR TR PI TR TN T

473

1B8-MAR-81

OPERATIONAL SWITCH SETTINGS

TR SUL JAR SANY

L7¢

(MAINDEC-11-DZQAC-CS),

EMT
107

THE STACK POINTER ex« 1100 x»e

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

J*MISCELLANEQUS DEFINITIONS
=

= 12

CRLF

= 200

= 177776

; ;PROCESSOR STATUS WORD

= 177774

DDISP

= 177570

172772

= 177570

;. CODE FOR CARRIAGE RETURN-LINE FEED
;:STACK LIMIT REGISTER

- ;PROGRAM INTERRUPT REQUEST REGISTER

; ;HARDWARE SWIT(CH REGISTER

: :HARDWARE DISPLAY REGISTER

:"GENERA{ PURPOSE REGISTER DEF INITIONS
RO
- 20
; :GENERAL REGISTER

TAB

:;CODE FOR CARRIAGE RETURN

PIRQ

[ SWR

;;CODE FOR LINE FEED

=15

STKLMY

;:CODE FOR HOR]JZONTAL

;:GENERAL

; cGENERAL REGISTER
;s GENERAL REGISTER

IRMME) RM(S/3/c FCTINL TST 1
5AS!
DEFINITIONS

4-APR-81

000000
000040

PRO
PR1

=0
- 40

000140

PR3

000240
000300
000340

PR5
PR6
PR7

= 240
- 300
= 340

100000
041000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
001000
000400
000200
009100
000040
000020
000910
000004
000002
00007

Sw15
- 100000
Sw14
40000
SW13
- 20000
Sw12
10000
SWi1
~ 4000
SW10
2000
Sw09
- 1000
SW08
400
Sw07
- 200
SW06
- 100
Sw05
- 40
SW04
= 20
.
SW03
= 10
SwQ2
= 4
SW01
=2
Sw00
=1
SW9=SW09
SW8=5w08
SW7=Sw07
SW6=5W06
SW5 SwWOS
SW4=SW04
Sw3=Sw03
SW2=5wd2
SW1=SW01
SW0=5W00

100000
040000
020000

BIT15
BIT14
BIT13

= 20000

804000

BIT1T

= 4000

* 010000
602000
001000
000400
000200
000100
000040

SEC 0028

R&
RS
R6
R7
SP
P

000200

717:43:2B PAGE 4-1

000004
000005
000006
000007
000006
000G07

000100

MACRO v04.00

24
- 15
- %6
7
= 26
= X7

s*PRIORITY LEVEL

PRZ2

PR4

= 100
140

- 200

s ;GENERAL REGISTER
: ;GENERAL REGISTER
: ;GENERAL REGISTER
;SGENERAL REGISTER
::STACK POINTER
; :PROGRAM COUNTER
DEFINITIONS

::PRIORITY LEVEL O
;oPRIORITY LEVEL 1

;:PRIORITY LEVEL 2

;;PRIORITY LEVEL 3

;;PRIORITY LEVEL 4

::PRIORITY LEVEL S
;:PRIORITY LEVEL 6
;:PRIORITY LEVEL 7

;*"'SWITCH REGISTER'® SWITCH DEFINITIONS

;*DATA BIT DCFINITIONS (BIT00 "0 BIT15)

BIT12

BIT10
BITO9
BITO08
BITO7
BIT06
BITOS

100000
- 40000

- 10000

= 2000
1000
= 400
200
= 100
= 40

CZRMMB0O RMOS5/372 FCINL

BASIC

DEF INITIONS

000020
000010

000001

476
477
478

479
480
481
482
483

485
486
487
488
489
490
491
492
493

495

496

497
498
499
500

£01
502
503

000004
000010
000014
200014
000014
000020
000024
00030
000034
000060
000064
000240

004000
000040
000020
000010
000004

000002
000001
000077
000000
200002
000004
000006
000010
000012
000014
000016
000020

000022
000022
000024
000026

TST

MATRO V04.00

4-APR-81

11:43:28 PAGE 4~¢
SEQ 002¢

BI04
=20
81703
= 10
BITO2
=4
BITOY
= 2
=1
81100
BIT9=B]T09
BIT8=R]T08
BI17=BI107
BIT6=B]T06
BIT5=8]T05
8IT4=B1104
BI1T3=R1T03
BIT12=B]T02

8IT1=RITO

8ITO=RITO0
;*BASIC ''CPU'' TRAP VECTOR ADDRESSES
ERRVEC
= 4
;:VTIME OUT AND OTHER ERRORS
RESVEC
=10
;sRESERVED AND JLLEGAL INSTRUCTIONS

TBITVEC =
TRIVEC
=
BPTVEC
=

IOTVEC

PWRVEC

14
14
14

FER
A -) B {
;:TRACE TRAP

= 24

; :POWER FAIL

= 20

EMIVEC

= 30

TPVE(L

= 64

TRAPVEC = 34
TKVEC
= 60

PIRQVEC = 240

; ;BREAKPOINT

;. EMULATCOR TRAP (EMT)

*«ERROR%»

; ;PROGRAM INTERRUPT REQUEST VECTOR

J*RMCST

CONTROL STATUS REGISTER

DVA
Fé
F3
F2
F1
FO

=
=
=
=
=
-

FNCMSK

- 000077

- BITO0

=eSCOPEs~

;oTTY PRINTER VECTOR

RM REGISTER BIT DEFINITIONS

ce]

(BPT)

;:V'TRAP'' TRAP
;. TTY KEYBOARD VECTOR

.SBTTL

BITH1
BIT0S
BIT04
BITG3
BIT02
8I1T01

TRAP

2o INPUT/0UTPUT TRAP (J0T)

;DEVICE AVAILABLE-READ ONLY
SFUNCTION CODE

JFUNCTION
JFUNCTION
JFUNCTION
JFUNCTION

;G0 BIT

CODE
CODE
CODE
CODE

JFUNCTION CODE MASK

JFUNCTION CODES (BITS C*-05 OF RM(CS1)

NOP

= 000000

;NOP COMMAND

SEEK
RE CAL
DRVCLR

= 000004
= 000006
= 000010

;SEEK COMMAND
+RECALIBRATE COMMAND

OFFSET

= 000014

;OFFSET COMMAND

ILFO2

RLEASE

RYC

RIP

PAKACK
PACACK

ILF26
ILF26

= 000002

= 000012

; ILLEGAL COMMAND

;DRIVE CLEAR COMMAND
JRELEASE

COMMAND

= 000016

JRETURN "0 CENTERLINE

= 000022
= PAKA(CK

JPACK ACKNOWLEDGE

= 000020

= 000024
= 000026

JREAD

COMMAND

IN PRESET COMMAND

JJLLEGAL COMMAND
JILLEGAL COMMAND

COMMAND

CZRMMBC RMOS/3/2 FCTINL

TST

KTM REGISTER BIT DEFINITIONS

504
507

b
b

VA (Vo AV AV, RV, TV

e
ek
N — b

O ONO
WN=OP0

Pd
@)

TV, TV, IV, | VIV]

508

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

010000
004000
002000
001000
000400

000020
000010
000004
000002
000001
177400
000377

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000001

MATRC v04.00

4-APR-81

11:43:¢8 PAGE 4~3

SEQ 0030
SEARCH

= 000030

ILF32
1LF34
ILF36

= 000032
= 000034
= 00003%

ILF30

= Q00030

;

ILLEGAL COMMAND
LEGAL COMMAND
LEGAL COMMAND
LEGAL COMMAND
LEGAL (OMMAND
LEGAL COMMAND

ILF40
ILF&2
ILF44
ILF46

=
=
=

WCH

= 000052

JWRITE

(HECK HEADER AND DATA

WD
WH
ILfE66
ILF66
RD

=
=
=
=
=

JWRITE
;WRITF

DATA COMMAND
HEADER AND DATA

ILF76
iLF76

= 000074
= 000076

;*RMDA

DISK ADDRESS REGISTER

Ww(D

ILFS6¢
ILFS6

000040
000042
000044
000046

JSEARCY (OMMAND
s ILLEGAL COMMAND
; [LLEGAL COMMAND

= 000050

= 000054
= 002056

000060
000062
000064
Q00066
000070

000072

:TRACK ADDRESS DEF INITIONS
TA16
= BIT12
TA8
= BIT1
TAS
= BIT10

TAZ2
TA1

= B]T109

= 81108

;SECTOR ADDRESS DEFIN]TIONS

SA16
SA8
SA4
SA2
SA1

=
=
=
=
=

BIT04
BITO3
BIT0Z2
8]1T)
81100

<TRACK & SECTOR MASKS
TADMSK
= 177400

SADMSK

= 000377

;*RMDS

DRIVE STATUS REGISTER

ATA

= BJT1S

JWRITE CHECK DATA (OMMAND

s ILLEGAL COMMAND
s ILLEGAL COMMAND

s ILLEGAL COMMAND
s ILLFGAL

COMMAND

;READ DATA (OMMAND

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

: TRACK ADDRESS 16.
s TRACK ADDRESS 8.

s TRACK ADDRESS 4
s TRACK ADDRESS

; TRACK ADDRESS

;SECTOR
;SECTOR
sSECTOR
:SECTOR
.SECTOR

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

16.
8.
4
2
1

:TRACK ADDRESS MASK

;SECTOR ADDRESS MASK

JATTENTION ACTIVE

- RIT1L

;COMPOSITE ERROR

MOL
WRL
LBT

= BIT12
- BITH
= Bil10

SJMEDIUM ON LINE
SWRITE LOCK
sLAST BLOCK TRANSFERRED

DPR
DRY
vV
om

= BITO8
= B]T107
- BIT06
81700

;DRIVE PRESENT

ERR

PIP

PGM

- RIT1%

BITQ9

;*RMERT FRROR REGJSTER #°

(OMMAND

;POSITIONING

IN PROGRESS

; PROGRAMMABL
£

;DRIVE READY
;VOLUME VALD

;OFFSET MODE ACTIVE

000020
000010

000004

000002

ILR
ILF

574

115760

ND TMSK

NOO QO MWW
VIO

OQQOOO =32

Brmc Py Bt B

ODDEODODOE®

Primg Pt P

e
b e b
e

D@D

T
TR T
I
T
T

RMR

000001

575

T I

PAR

Sy deg Do

ECH

WwCF
FER

Wik
1AE
AQE
HCRC(
HCE

DCK
UNS
OP]
DTE

872

573

3
4-4

SE@ 0031

561
562
563
564
565
566
507
568
569
570
571

F
11:43:28 PAGE

4-APR-81

540

100000

040000
020000
010000
004000
002000
(01000
000400
000200
000100
000040

MACRO v04.00

556
557
558
559

DEFIN]TIONS

RM REGISTER BIT

TST

ZRMMBO RMOS/3/72 FOTNL

BIT104

81703
BIT02
BIT(?

BI1T00

;DATA CHECK ERROR

sDRIVE UNSAFE
JOPERATION INCOMPLETE
sDRIVE TIMING ERROR

;JWRITE

s INVALID ADDRESS ERROR
;ADDRESS OVERFLOW ERROR
JHEADER (CRC ERROR
JHEADER (CMPARE ERROR
sECC "HARD'' ERROR
JWRITE CLOCK FAILURE

;FORMAT ERROR

;PARITY ERROR
JREGISTER MODIFICATION REFUSED
s ILLEGAL REGISTER

sILLEGAL FUNCTION

- DCK!DTE!WLE'AQE
'HCRC'HCE !ECH.WCF !FER

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

576

. COMMANDS,

578
579
580

;*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

S*RMLA

LOOK AHEAD REGISTER

577

581
582

58%

584
585
586

587
588
589
590
591
592
593
€9
595

596
597
598
596

600
601
602
603
604
605
606
607
608
609
610
a1
.-

LOCK ERROR

000377

1.E., HOUSEKEEPING AND POSITIONING COMMANDS

377

(02000
001000
000400
900200
000100

SC4

= B8IT10

SC1
SCO

003700

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
00040
000010
000004
000002
000001
*00500

MASK

FOR ATTENTION BITS

JSECTOR COUNT

- BIT07
= BIT06

JSECTOR COUNT
;SECTOR COUNT

2
1

SCTIMSK

= 003700

sSECTOR COUNT MASK

;*RMMRT

MAINTENANCE REGISTER #1

SC3
SC2

- BIT09
BIT08

SWRITE ONLY BITS
DBCK
= BIT1S
DREN
- BIT1S
DEBL
B]113
DTO
= BIT12

MCik
MRD

MUR
MOC
MSER
MDF
MS

MWP
M]

MS(
DTMD

BITNI
- 8IT10
- BITQ9
BIT08
- 81107
8IT06

= BIT0S

- 817103
= BITQZ2

= BI1O1
= BIT00

;READ ONLY BITS

oc¢

= BIT1S

sSECTOR COUNT
8
sSECTOR COUNT - 4

;DEBUG CLOCK
;DEBUG (LOCK ENABLE
;DIAGNOSTIC END OF BLOCK
.DIAGNOSTIC TIMEQUT
JMAINTENANCE CLOCK
JREAD DATA
JUNIT READY
.ON CYLINDER
;SEEK _ERROR
sDRIVE FAULT

;SECTOR PULSE

JWRITE PROTE(T

; INDEX PULSE

JSECTOR C(OMPARE
;DIAGNOSTIC MQODE

GCCuPlED

CZRMMBO RMOS/3/2 FCTNL

RM REGISTER BIT

613
614
615
616
617
618
¢18
620
621
622

623

626
625
66

627

€28
629
630
£351
632
633
634
635
636
637
638
€39

640
641

642
643
644

645

DEF INITIONS

040000
020000
010000
004000

002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

648
649

650
451
652
653
654
655
655
657
658
661

662

MATRD

v04.00

100060

040000
020000
004000
020024
C24024

010000
004000
002000
060200

01777

4-APR-81

11:43:¢8 PAGE 4-%

SEQ 003
RG

EBL
RE
X
ESR(

PLFS

ECRC

PDA
PHA

CONT

EECC

MWD

LS
LST
DMD

;*RMDT

646

647

TST

= BIT14

=
=
=
=

JRUN AND GO

BI113
BIT12
BITN
BIT10

JEND OF BLI(K
SEXCEPTION
JENABLE SEAR(H
;LOOKING FOR SYN(

BITV9
BIT08
BIT07
BIT06
BJTOS

JENABLE CRC our
;DATA AREA
JHEADER AREA
s CONT INUE
;WORD CLOCK

= BIT04
- BIT03
- BI102

SENABLE ECC OUT
JWRITE DATA BIT
sLAST SECTOR

- BITOY
- BIT00
DRIVE

.LAST SECTOR AND TRA(CK
;DIAGNGSTIC MODE

TYPE

BITIS5

NSA

TAP

sNOT SECTOR ADDRESSED = 0

BIT14

;TAPE

DRIVE

= 0

MOH
DRQ

- BIT13
BIT1

JMOVING HEAD = 1
;DRIVE REQUEST REQUIRED

SNGPRT
DULPRT

= 020024
- 024024

;SINGLE PORT DRIVE TYPE (RM(2)
;DUAL PORT DRIVE TYPE (RM0O?)

; =RMOF

OFFSET

FMT16

HC1I
OFD

= BIT12
=B8ITN
- BIT10
- BITO7

:*RMD(

DESIRED (YLINDER ADDRESS REGISTER

ECI

001777

CYLMSK

;16 BIT WORD FORMAT
ECC INHIBIT
JHEADER COMPARE INHIBIT
;OFFSET FORWARD

;MASK FOR CYLINDER ADDRESS

J*RMMR2 MAINTENANCE REGISTER #2

100000

040000
020000
010000
004000
002000

001000

000400
000200
000100
000040

000020
000010
000004
200002
000001

;READ ONLY BIT S

ROA
ROB
TAG

cC
(H

8809
8808
8807
8806
BBYS
BBO4
BB303
BB0?
8801
8800

~ BIT15
= BIT14
= BIT13
- BIT12
=BITN
- BIT10

=
=
=
=

B]T09
BIT08
81107
BIT06
BJT10S

= BIT04

= BIT0S
= BITQ2
= BI101

BI10C

;PORT A REQUEST
;PORT B REQUEST
:TAG CONTROL
;COMMAND SEQUENCE TEST BIT
;CONTROL OR CYLINDER TAG
;CONTROL OR HEAD TAG
s TAG BUS
: TAG BUS
; TAG BUS
;TAG BUS
; TAG BUS

s TAG BUS

; TAG BUS
s TAG BUS
;TAG BUS

;TAG BUS

TIRMMBO RMOS/3/2 FCINL

RM REGISTER BIT

DEFINITIONS

663

664
665
666
667
668
669
670
671
672
673
674
675
676€
677

678
479
680
81
682
683
684
685
686
687
688
£89

690
697
692

693
69¢
695
696
699

700
701

702

708
’C9
710

MACRD v04.00

4=APR=B1

11:43:¢8 PAGE

4~¢

;*RMER? ERROR REGISTER 2
100000

040000
020000
010000
004000
002000
000200
000010

100000

040000

000000
000006
000012
000014
000016
000020
000024
000026
000030

000032

003034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062

8st
SK1
OPE
IvC
LSC
LB
Dv(
DPE

BIT1S
BIT14
BIT13
BIT1?2
BITN
BIT10
= BI1Q7
81103

.SBTTL

PROGRAM MNEMONICS

MSE
USE

= BIT15
- BIT14

LSBTTL

RM REGISTER

RM(S1

- 00
= 06
= 12

RMDA
RMDS

RMER1
RMAS
RMLA
RMMR1
RMDT
RMSN
RMOF
RMDC
RMHR

RMMR?
RMERZ2
RMEC1
RMEC2

ILRG50
ILRGSZ2
ILRGS4
ILRG56
ILRG60
ILRG6Z

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

=
=
=
=

JMANU"ACTURING DETECTED SECTOR ERROR
JUSER DETECTED SECTOR ERROR

sERROR REGISTER #1
;ATTENTION SUMMARY REGISTER

20
24
26
30
32
34
36

= 44
= 46

=
=
=
=
=

50
52
54
56
60
62
64
- 66
- 70
72

VALUES

:CONTROL STATUS REGISTER #1
;DISK ADDRESS REGISTER
sDRIVE STATUS REGISTER

14
16

- 40
= 42

INDEX

;LOOK AHEAD REGISTER
JMAINTENANCE REGISTER
;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
¢OFFSET REGISTER
;DESIRED CYLINDER REGISTER
JHOLDING REGISTER

‘

JMAINTENANCE REGISTER #2
JERROR REGISTER #2
;ECC POSITION REGISTER
;ECC PATTERN REGISTER

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

000064
000066
200070
000072
000074
000076

ILRG64
ILRG66
ILRG70
ILRG7?
ILRG74
ILRG76

000077

IDXMSK

.SBTTL

RH CONTROLLER REGISTER BIT

J*RM(ST

CONTROL

TRE

=
=
=
=

703
704
705

707

TST

100000

040000

020000
002000

MCPE
PSEL

= 74

s ILLEGAL

50
5
54
56
60
62
64
66
70
72

;ILLEGAL REGISTER 76

JMASK FOR REGISTER

BIT15
BIT14
BIT13
BITM10

INDEX NUMBER

DEFINITIONS

STATUS REGISTER 41

sSPECIAL CONDITION-READ ONLY
s TRANSFER E€RROR
sMASSBUS CONTROL BUS PARITY ERROR-READ ONLY
;PORT B8 SELECT

“ZRMMBO RMOS/3/2 FCINL

TST 1

MACRO v04.00

Rr (ONTRCLLER REGISTER BIT DEFINITIONS
7:
712
713
i4

001000
000400

76
717
718
719
720

721

722

723
724

7¢5
726

727
728
729

730

733

734
735
36

737

738
739
740

741
742

743
744
745
746
r47
748
749
750

751

752

753
754
755
756
757
758
759
760
761
762
763

764
765

Al?7

Al6

RDY

=
=
=
-

81709
81108
8I107
BIT06

: *RM(S?2 RH (ONTROL

100000

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

11:43:.8 PAGE o=/

+Q 0034

715

4-APR-81

DLY

WCE
UPE
NED

NEM

PGE
MXF
MDPE

OR
IR

(LR
PAT

000001

sADDRESS EXTENSION
cADDRESS EXTENSION
sREADY<-READ ONLY
;s INTERRUPT ENABLE
STATUS REGISTER #2

BIT1S
- BIT14

=
=
=
=
=
=
=
=

;DATA LATE~READ ONLY
JWRITE (HECK ERROR-READ ONLY

BIT13
BIT1?
BITN
BI110
BIT09
BIT08
BIT07
BIT06
BIT0S
BITO4
BIT03
BITO2
BITOY
BIT00

JUNIBUS PARITY ERROR
sNONEXISTANT DRIVE-READ ONLY
sNONEX]ISTANT MEMORY-READ ONLY
;PROGRAM ERROR-READ UNLY
JMISSED TRANSFER
JMASSBUS DATA BUS PARITY ERROR-READ ON.¥
;OUTPUT READY-READ ONLY
;INPUT READY-READ ONLY
;CONTROLLER CLEAR
JPARITY TEST
JUNIBUS ADDRESS INCREMENTM INMHIB]T
JUNIT SELECT
JUNIT SELECT
JUNIT SELECT

JUNIT SELECT MASK
000007

UNTMSK

J*RM(S3 RH70 CONTROL

100000

040000
020000
010000
004000
002000
000100
000010
000004
000002
000001

000000
000002
000004
000010
000022
000050
000052
176700
120254

APE

DPEH]
DPELO

WCEHI
WCELO

DBL
IE

JUNIT SELECT MASK
STATUS REGISTER #3

BIT15

;ADDRESS PARITY ERROR

- BIT14

;DATA PARITY ERROR HIGH WORD

=
=
=
=

JWRITE CHECK ERROR HIGH WORD
SWRITE (HECK ERROR LOW WORD
;DOUBLE WORD TRANSFER
: INTERRUPT ENABLE

- 81113

BIT1?
BITN
BIT10
BITO6

;DATA PARITY ERROR LOW WORD

IPCK3
IPCK2

= BIT03

;INVERT PARITY (HECK

BIT01
BIT0O

;INVERT PARITY CHECK
JINVERT PARITY CHECK

.SBTTL

RH (ONTROLLER REGISTER

RM(CS1

00
- Q2

IPCK1
IPCKO

RMWC

RMBA
RMCS2

- BITO2

04
10

;INVERT PARITY (HE(K

[NDEX VALUES

;CONTROL, STATUS REGISTER #1
sWORD COUNT REGISTER

;BUS ADDRESS REGISTER
;CONTROL, STATUS REGISTER #2

RMDB
RMBAE

- 22
= 50
= 52

;DATA BUFFER
;BUS ADDRESS EXTENSION
JCONTROL, STATUS REGISTER #%2

ABASE

= 176700
= 120254

;UNIBUS ADDRESS
SUNIBUS VECTOR ADDRESS AND PRIOR]TY

RMCS3
AVECT?

JRMMBO RMOS/372 #ray

AT(HER

MAIRT

,04.00

000000

4~APR-81

LSBITL

11:43:/8 PAGE

TRAP (AT(CHER

.=0

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

s*SEQUENCE TO CAT(H ILLEGAL TRAPS AND INTERRUPTS

000174
000176

;*LOCATION O CONTAINS O TO CAT{H IMPROPERLY LOADED VECTORS

000174
000000
000000

VNN

.SBTTL

STARTING ADDRESS(ES)

000200

000137

005422

JMP

¥ START

;o JUMP TO STARTING ADDRESS OF

000204

000137

005412

JMP

A¥START

: CHANGE RH/RM BUS ADDRESS

.SBTTL

ACT11

PROGRAM

HOOKS

;."Qt.ttl’""t'tt'tt'lt""ttlfi‘tfi'tt"ltttfitttt'*t

't"fllt."t'Q'.

000046
000052
0o~
o

"RAP

000210
000046
041630
000052
000000
000210
001100

;HOOKS REQUIRED By ACTN
sszzc-.

:SAVE PC

iEgng

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

WORD

- -$SVP(C

.=1100
.SBTTL

;:2)SET LOC.S2 TO ZERO

*: RESTORE PC

APT PARAMETER BLOCK

""Ififititttttlttt't'tlQt"ttitttt'ttttttifi'ttttktllt't'tfit

t.!"ttl

JSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

':ttt*fittt'ilt‘*ttttt*tfitttt.ti*!tt'ttttfififi*tttt"ttt*'!tttit

000024

000044

ttti

001100
000024
000200
000044
001190
001100

-$X-.
. =24

200

;SAVE CURRENT LOCATION
;.SET POWER FAIL TO POINT

:;FOR APT START UP

TO STARTM OF PROGRAM

.=44
;;POINT TO APT INDIRECT ADDRESS PNITR.
$APTHDR ;. POINT TO APT HEADER BLOCK
. .8X
2;RESET LOCATION COUNTER
R

I NI

sSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11
JINTERFACE SPEC.
000000
001222
000024
000024
000024
000042
001114

DIAGNOSTIC

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

WORD
.WORD
_WwORD

O
SMATL
20.

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

SUNITM:

_WORD

20.

;.ADDITIONAL RUN TIME

$PASTM:

TAGADR,

.WORD

20.

J;RUN TIME

SETEND-SMAIL/?2

IN SECS.

1ST

PASS ON 1

UNIT

(QUICK

VERIfY)

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

;;LENGTH MAILBOX-ETARLE (WORDS)

"IRMMBO RM05/372 FCTNL TST 1
TAGS

4~-APR=-8B1

11:43:¢8 PAGE

3
~EQ 0036

LSBT,

COMMON TAGS

..i't.tttfitltttfifi't"“"ttIlttfiitt.!'tt't.tt't'"

:*THIS

Qfi"'.'QQ"IQ

TABLE

CONTAINS VAR!OUS (OMMON STORAGE

;*USED IN THE PROGRAM,

001150
001151

001154

001156
001160
001162
001164
001166
001170
001171
001172

001173
001174
001176

001200
001202
€01204
001206
001210

001212
001216
001217
001220

$CMTAG:

000000
000
000
000000
00000C
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000

$TSTNM:
$ERFLG:
SICNT:
$LPADR:
$LPERR:
$ERTTL:
$I1TEMB:
$ERMAX:

$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$8DDAT:
$SAUTOB:

$INTAG:

177570
177560
177562
177564
177566
000
002

$FILLS:

012

$FILLC:
$TPFLG:
$TMPO:
$TMP1:
$TMP2:

000
000000
000000

207
077
015
012

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

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

.BYTE

.BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPR:
177566
$NULL:
.BYTE

177570

000000
000000
000000
000000
000000

.=TAGADR

377
000

377

.BYTE

.BYTE
.BYTE
.WORD
_WORD
.WORD

$TMP3:
.WORD
$TMP4L:
_WORD
$TIMES: 0
$ESCAPE:D
$BFLL:
.ASCIZ
$QUES:
.ASCII
$CRLF:
.ASCII]
SLF
LASCIZ

LOCAT]ONS

2 :START OF COMMON TAGS

lelelelsieleololololoDlolelalolalolole]

001114

. s CONTAINS THE TEST NUMBER
;: CONTA]NS ERROR FLAG
;s CONTAINS SUBTEST 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
;s CONTAINS PC OF LAST ERROR INSTRUCTION
;s CONTAINS ADDRESS OF °'GOOD' DATA
;s CONTAINS ADDRESS OF 'BAD' DATA
;s CONTAINS 'GOOD' DATA
; ; CONTAINS 'BAD' DATA
; ;RESERVED--NOT TO BE USED
s ;AUTOMATIC MODE INDICATOR
;o INTERRUPT MODE INDICATOR

. +ADDRESS OF SWITCH REGISTER

. ;ADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS

;:T1Y KBD BUFFER

;:TTY PRINTER STATUS REG.

ADDRESS

2:TTY PRINTER BUFFER REG. ADDRESS

OOOOOO~MNO

TOMMON

MACRO v04.00

;s CONTAINS NULL CHARACTER FOR FILLS
;. CONTAINS # OF FILLER CHARA(LTERS REQUIRED
;. INSERT FILL CHARS. AFTER A "LINE FEED''

;o 'TERMINAL AVAILABLE'' FLAG (BIT<07> O YES)
; ;USER DEF INED
:sUSER DEFINED

2JUSER DEFINED

;s sUSER DEFINED
; sUSER DEF INED

:.MAX

<207><377><377>
/?/

<15>
<12>

NUMBER OF

[TERATIONS

;ESCAPE ON ERROR ADDRESS

::CODE FOR BELL

;s QUESTION MARK

., CARR]JAGE RETURN
;JLINE FEED

itll!'ttfififltit'fifittt"tt'tt!t!i!ifil"ttttti'ti't!."l‘!tt.iv!‘t

"SBTTL

APT MAILBOX-E TABLE

:'-ttnttrtttttntttttttttttttnfltwtt*tttttttt'tfintnttntt'tfifiqtfitat-‘

001222
001222
001224
001226

000000
000000
000N00

.EVEN
$MA]TL:
$MSGTY:
$FATAL:
$TESIN:

.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTN

;s APT MA]LBOX

: ;MESSAGE. TYPE
;. FATAL

CODE

ERROR NUMBER

;. TEST NUMBER

"ZRMMBO RMOS/3/2 FCTNL

APT

MAILBOX-ETABLE

001230
001232
001234
001236

001240
001242
001242
001243
001244
901246
001250

TST

MACRO vD4.00

4=-APR-B1

11:43:¢8 PAGE

SEQ 0037

000000
000000
000000
000000

000000

000
000
000000
000000
000000

$PASS:
$DEV(T:
SUNIT:
$MSGAD:

,WORD
.WORD
_(WORD
.WORD

$MSGLG: .WORD
SETABLE:
SENV:
.BYTE
SENVM:
.BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD
ot

APASS
ADEVCT
AUNIT
AMSGAD

AMSGLG

AENV
AENVM
ASWREG
AUSWR
ACPUOP

001253

000

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

BIT

$MAMS1:

SMTYP1:

o *

001254

000000

SMADR1:

001256
001257
001260
001262
001263
001264
001266
001267
001270
001272
001274
001276

000
000
000000
000
000
000000
000
000
000000
120254
000000
176700

SMAMSZ:
MIYP2:
SMADRZ:
SMAMS3:
$MTYP3:
SMADR3:
SMAMS4:
SMTYPS:
$MADR4:
SVECT1:
SVECT2:
$BASE:

001302

000000

001304
001306
01310
001312
001314
001316
001320
001322
88}%52

;;MESSAGE LENGTH
; cAPT ENVIRONMENT TABLE
s ;ENVIRONMEN] BYTE
;;ENVIRONMENT MODE BITS
;;APT SWITCH REGISTER
;;USER SWITCHES
;;CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE

11/70=06.PDQ=07,0=1
BIT 10=REAL TIME CLOCK

.*
i
;T

001300

;;PASS (OUNT
;;DEVICE COUNT
;:1/0 UNIT NUMBER
; ;MESSAGE ADDRESS

i
o
*

0012952

6-1

000000

SOEVM:

000000
000000
C00000
000000
000000
000000
000000
000000
000000

$CDW2:
$DDWO:
SDDW1:
$DDW2:
$DDW3:
$DDW4:
$DDWS:
$DDW6:
gg?gzo

$(DW1:

MEXIT

BIT

.BYTE

AMAMS]

9=FLOATING POINT PROCESSOR

8=MEMORY MANAGEMENT

..HIGH ADDRESS ,M.S. BYTE

.BYTE

AMIYP1

.WORD

AMADR1

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

AMAMS2
;;HIGH ADDRESS,M.S. BYTE
AMTYPZ2
;.MEM.TYPE ,BLKA2
AMADR?
;;MEM.LAST ADDRESS,BLK#2
AMAMS3
:;HIGH ADDRESS,M.S.3YTE
AMTYP3
. :MEM.TYPE,BLKA3
AMADR3
; MEM.LAST ADDRESS.BLK#3
AMAMS4
;;HIGH ADDRESS,M.S.BYTE
AMTYP4 ; :MEM.TYPE ,BLKAG
AMADR4 ; MEM.LAST ADDRESS,BLKA#%
AVECT1
;;INTERRUPT VECTORA1,BUS PRIORITY#1
AVECT2
;;INTERRUPT VECTOR#2BUS PRIORITYA?
ABASE
;;BASE ADDRESS OF EQUIPMENT UNDER TEST

_WORD

A(CDWI1

_WORD

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

::MEM,

TYPE,BLKAI

MEM.TYPE BYTE
-~
(HIGH 8YTE)
900 NSEC CORE=001
300 NSEC BIPOLAR=002

500 NSEC M0S=003

;;HIGH ADDRESS RULKA1

MEM.LAST ADDR.=3 BYVES,THIS WORD AND

ADEVM

ACDW2
ADDWO
ADDW]
ADDW2
ADDW3
ADDW4
ADDWS
ADDW6
ADDW/

::DEVICE MAP

;;CONTROLLER DESCRIPTION WORD#1

;;CONTROLLER DESCRIPTION WORDA?2
;;DEVICE DESCRIPTOR WORD#0
::DEVICE DESCRIPTOR WORDA1
. ;;DEVICE DESCRIPTOR WORDA?
;;DEVICE DESCRIPTOR WORDA3
;:DEVICE DESCRIPTOR WORD#4
;;DEVICE DESCRIPTOR WORDAS
;.DEVICE DESCRIPTOR WORDA6
;;DEVICE DESCRIPTOR WORD#?7

{Ow OF

‘‘TYPE'' ABOVE

(IRMMBO RMOS5/3/2 FCTINL
USER DEF INED TAGS

001326
001330
201 332
001333

000000
000000
000
000

TST

MACRO v04.00

M 3
11:43:¢8 PAGE 7

4-aPR~81

SEQ 0038
LSBTTL

USER DEF INED

(HGADR:
XXDP:

.WORD
.WORD

LSTRK:

sTHE

TAGS

0
0

: THE

INPUT BUFFER

;STORING DRIVE STATUS
001334

PROGRAM WAS LOADED,

THE

HIGH BYTE

USED

FOR

:
GE TBUF

000000
000000

;REGISTER

RM(CS11:

:
RMWCI]
:
RMBAI
RMDA]:

RM(CSZ21:
RMDS]:
RMER1]
:
:
RMAS]
RMLA]:
RMDBI
:

RMMR1]:
RMDT]:
:
RMSN1
|:
RMOF
RMDC]:
RMHRI
:
RMMR?Z]:
RMERZI:
RMECT]:
RMECZ2]:
:
RMBAE]

RM(S31:
;THE

INPUT

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

BUFFER

elelelalelelolalolololelolololeolololololol
o]

000000
000009
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

;CONTROL, STAIUS 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
:SERIAL NUMBER REGISTER
;OFFSET REGISTER
sDESIRED CYLINDER REGISTER
JHOLDING REGISTER
JMAINTENANCE REGISTER #2

JERROR REGISTER #2

SJECC POSITION REGISTER
;ECC PATTERN REGISTER
;BUS ADDRESS EXTENSION REGISTER
;CONTROL, STATUS REGISTER #3

IS USED FOR

SASSEMBL
ING DATA GOING TO REGISTER
PUTBUF
:

000000
000000
000000
000000
000000
000000
000000
000000
0C0000
000000
000006
000000

SREGISTER QUTPUT BUFFER

RM(CS10:

RMWCO:
RMBAOQ:
RMDAOD:

RM(CS20:

RMDSO:
RMER10:
RMASO:
RMLAQO:
RMDBO:
FMMR10:
RMDTG:

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

[elelelelelololelwlelele)

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

- 0

;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHI(H
(ONTAINS

:"XXDP' DEVICE CODE FOR THE RM0S5/3/2.
;LOBYTE = 0
¢H]l BYTE, CONTAINS LAST TRACK ADDRESS Ot UNIT
;UNDER TEST. RM02/3 = 4., RMOS = 18.

.BYTE
BYTE

. CHANGE RH/RM BUS ADDRESS = =1, O (HANGE

;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

THE

"IRMMBO RMOS/S/¢ FCIML TST 3
J5ER DEF INED TAGS

001440
0014642
001444
001446
N01450
0C1452
001454
001456
001460
001662

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

MACRO v04.00

4-APR-81

11:43:7B PAGE 7-1
SEQ 0039

RMSNO:
RMOFO:
RMDCO:
RMMRO:
RMMR20:
RMER2C:
RMECIO:
RMEC20:
RMBAEO:
RM(S30:

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

O
O
O
O
O

O
O
C
O
O

SEACH WORD OF

THE

SSERIAL NUMBER REGISTER
;OFFSET REGISTER
sDESIRED CYLINDER REGISTER
SHOLDING REGISTER
SMAINTENANCE REGISTER #2

SERROR REGISTER #2
sECC POSITION REGISTER
sECC PATTERN REGISTER
;BUS ADDRESS EXTENSION REGISTER
s CONTROL, STATUS REGISTER #3
TEST QUE CONTAINS THE DEVICE NUMBER [N

;THE LOW BYT: AND THE ATTENTION BIT
;FIRST WORD CONTAINS THE ADDRESS OF

IN THE HIGH BYTE. THE
THE DEVICE UNDER TEST

;IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE

001464

000000

(01506

000000

001510
001512

000000
000000

N01466

JEND OF

THE QUE.

TSTQUE:

.WORD

sTHE GET

;CONTAINS DEVICE POINTER

.BLKW

sTEST QUE FOR DEVICES UNDER TEST

.WORD
WORD

O
O

JUNIBUS ADDRESS OF kW11 CLOCK
;VECTOR ADDRESS OF kw11 CLOCK

.WORD

CLKADR:
CLKVCT:

INDEX

TABLE

;TABLE TERMINATOR GOES HERE WHEN
JALL 8. DEVICES ARE UNDER TEST.

CONTAINS A BYTE LIST OF

JARE READ BY THE GET SUBROUTINE.

001514

;A NEGATIVE BYTE,

GETINX: .BLkB

23,

REGISTERS WHICH

THE LIST IS TERMINATED BY

JGET INDEX TABLE

JTHE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WH]CH
SARE WRITTEN 8Y THE PUT SUBROUTINE.
THE LIST IS TERMINATED BY

001543

<A NEGATIVE BYTE,
PUTINX: .BLKB
23,

;PUT TAGS HERE

sPUT

INDEX

TABLE

Pt
=]
/H

OTER

?I‘

Tafe
S

MAIRD v0L 00

L-APR-81

T':4(3:/8 PasF

SEQ 0040
.SBTTL

ERROR POINTER TABLE

s*THIS TABLE (ONTAINS THE INFORMATION FOR EAJH ERROR THAT CAN OCCUR.
coTHE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND
IN

res7e

]
B
LK

TN XY

*LOCATION SITEMB. THIS NUMBER INDICATES WhICH ITEM IN THE TABLE IS PERTINENT.
2*NDTEL:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC),
;*NOTEZ:
EACH ITER IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOU. OWS:
En
DH
DT
DF

067246

Fo
29,0
3

YO
YO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

WRONG UNITY

SELECTED

EmT

073332
073456
073546

EHT]
EDT1
EFT
:ERROR

067252
0733%2

DEVICE WENT UNAVAILABLE

EMT?

EMTT
EDT1
T
EF

073456

073546

L0~

:sPOINTS
;:POINTS
;sPOINTS
:POINTS

SERRTIR:

JERRCR

;ERRCR

DEVICE WENT NONEX]STENT

EMT3
EHTT

: ERROR

—

EDTY
EFTY

001622
001624
001656
001630

CONTROLLER NOT READY
EMTS
EHTT
EDT

EFT

JERROR

omese
001634
001636
001640

b“.')/(/‘/

DRIVE

NOT READY AND GO NOT RESET

EMTS

EHT
EDTI

EF
T

+ERROR

UNEXPECTED VALUF FOR "'ATA’’ STATUS

“IRMMBO RMOS/3/2 s

ERROR POINTER TABLE

TST 3

MACRO v0%.00

4-APR-81

C &
'1:43:28 PAGE 8-!

SEQ 0041
(3a1(]

EHT

1128

£ErNM

:ERROR

BUS TIMEQUT

TRYING TO READ OR WRITE REGISTER

001652
001654
001656
001660

:ERROR

001662
0010664
€01666
001670

067316
073332
073456
073546

25
26

001700

067322
073332
073456

GO NOT

RESET BUT

DRIVE

IS READY

EMT11
EHT

EDT1
EFT

073546

;ERROR

001702
001704
001706
201710

DRIVE NOT READY BUT GO IS RESET

EMT10
EHT
EDTTEFTY

;ERROR

001672
001674
001676

067326
073332

INCORRECT FUNCTION CODE

EMT12
EHTT
EDT
EFTY

073456
073546

:ERROR

PARITY

ERROR READING REMOTE

EMTI3
EHT1
EDTI
EFT
;ERROR

TRANSFER ERROR

INCORRECT

EMT14
EHT
EDTI
EFTY
37
&

;ERROR

INCORRECT WORD C(OUNT

REGISTERS

"JRMMBO RMOS/3/2 FCTINL

FRROR POINTER TABLE

001732
001734
001736
001740

MACRO v04.00

001746
001750

&
D
11:43-¢8 PAGE B-¢

EMT15

ERT
328
EFTY

;ERROR

001742
001744

4-APR-81

SEG 004,

067354
073332
073456
073546

40
¢1

TST 1

067362
073332
073456
073546

INCORRECT BUS ADDRESS

EMT16
EHT]

EDT1
EFT1

43
L4

. ERROR
001752

001754
001756
01760

067372

INCORRECT LBT

STATUS

EMT17

073332
073456
073546

EHT]
EDT]
EFTY

47
48

;ERROR

001762
001764
001766

001770

067402
073332
073456
073546

EDT1

EFTI

067412
073332
073456

073546

067422
073332
073456
073546

067432
073332
073456
073546

067442

INCORRECT CYLINDER ADDRESS

EDTI
EFTT

INCORRECT WLE STATUS

EMTZ23
EHT
EDT1
EFTY
;ERROR

002022

INCORRECT DISK ADDRESS

EMT22
ERT

;ERROR
002012
002014
002016
002020

21
EMT21
ERTI
EDTI
EFTI

;ERROR
002002
002004
002006
002010

INCORRECT AOE

EMT20
EHT

JERROR

001772
001774
001776
002000

EMT24

INCORRECT UPE

STATUS

"JRMMBO RMO5/3/2 s(TaL
FRROR POINTER TABLE

002026

002026
002030

TST

MATRO vC4.00

A C32

002036

002040

11:43:/8 PAGE

8-3

SEQ 0043

073332
072456
073546

EHT

EDT1
EFT1

SERRCR

002034

4-APR-B1

067452

INCORRECT Ww(f

STATUS

EMT2S
ENTT
EDT1
EFT1

073332
073456
073546

€5

:ERROR

002062
002044
002046
002050

067462

INCORRECT W(E STATUS

EMT 26
EHT?
EDTI
EFT?

073332
073456
073546

:ERROR

002052
002054
002056
002060
70
71
72

73
74
75

067472

INCORRECT MDPE STATUS

EMT27
EHT
ECT?
EFN

073332

073456
073546

:ERROR
002062
002064
002066
002070

067502

INCORRECTY DCK STATUS

EMY30
EHT
EDT1
EFT1

073332
073456

073546

:ERROR

067512
073332
073456
073546

INCORRECT ECH STATUS

EMT 31
EHT
EDT

EFTY

ERRCR

DLT SHOULD NOT BE

SET

MXF

SET

EMT 32
EHTY
EDTI
EFTY
JERROR

33
EMI3S

——

EMT?

SHOULD NOT BE

JAMMBL RMOS/ 372 ST
FPRROR FUINTER TAB(E

202 1¢
002122

MAIRC v04.00

45
86
57

073656
07354¢

067542
073332
073456
073546

DTE

SHOULD NOT BE

SET

EMT34
EDT1

£FT1

INCORRECT HCRC STATUS

EMT 35
EHT]

EDT
EFT1

; ERROR
002142
002144
002146
002150

p2
EXT

067552
073332
073456
073546

1128
EFT?

:ERROR

002122
002134
002136
002140

"":43:/¢8B PAGE 8-+
MO 004l

SERROR

002122
002124
002126
002130

4-APR-BY

067562
0733%2

INCORRECT HCE

STATUS

EMT 36

EHTT
EDTI
EFTY

07345¢

073546

sERROR

067572
0733%%2
073456
073546

INCORRECT

FER STATUS

EMI3?

EXT]

£DT1
EFTY
+ ERROR

DPE

SHOULD NOT BE

SET

(NOT A DATA COMMAND)

EMTLO

EHTT
EDTI
T
EF
;ERROR

LOST "TMOL'" DURING PACK ACKNOWLEDGE

EMTST
EHTT

£on
EFT]
. ERROR

00220¢

EMTSQ
LA
£EpM

UNSAFE ERROR DURING PA(CK ACKNOWLEDSE

RMMB, AMCS %30 Rt
bR PUINTER TARLE

CL.2210

LTt

MATRL

;06,00

(73546

4-APR-R"

°":4(2:.8 PAGE

B-S

EFTY

3%’;

;EAROR

002212
002214
002216
002220

632

EHTT
£D11
EFT1
ERROR

002222

002224

002226
002230

EMT4L

073456
073546

EDT1
EFT1

109

"RMR"" ERROR DURING PACK ACKNOWLEDGE

EHTI

:ERROR

0022%2
00223%
00223%
002240

067642

073332

‘OPI"" ERROR DURING PACK ACYNOWLEDGE

EMTL3

(73332
073%°
(73546

106
11%

067652
073332
(073456
(073546

"'ILR"* ERROR DURING PACK ACKNOWLEDGE

EMTALS
EHTI
EDT
EF T

112

1;2

ERROR

002242
002244
002246

002250

0676¢2
Q73332
(73456

“'ILF'* ERROR DURING PACK ACKNOWLEDGE

EMT46
EHT]
EDTI

073546

EFT1

115

1119

:ERROR

002252
002254
002256
002260

067672
073332
(73456
073546

1'1,8

" 002262 067700
002270

067710
(73%332
073456
07354¢

INCORRECT

PARITY ERROR WRITING REMGTE REGISTERS

EFTY

JERROR
002272
002274
202276
002300

STATUS

EHTT
EDT1

073546

100

ERROR

EMTS0

073332
073456

’1;

COMPOSITE

EMT47
EHTI
EDT1
EFT1

JFRROR
002264
002266

S1
EmMTSY
EHT]
DT
EF T

INCORRECT 1AF STATUS DURING SEFK (OMMAND

Nw)E

b BGINTER

T¢

b TN
THEE

"dv

L=ASG-7"

SEQ 00«6

SERRGR

067722
073332
073456
073546

JP1

ERROR DURING SFEK - MEDI.M IS NOT ON ( INE

gEmrS2

EuT

328

EFTY

SERROR

067740
073332
073456
973546

OP] ERROR DURING SEEK = MEDIUM
ON CYLINDER LATCH DIDN'T RESET

IS ON (INE,

EMT53

EHT

EDTI
EFTT

:ERROR

SEEK

INCOMPLETE ERRCR DURING SEEK

COMMAND

EMT54
EHTT

EDT
EFTY

002330
134

135

136

:ERROR

002332
002334
002336
002340

137
138

‘39

00235
00235
002356
002360

PIP 1S STILL

SET AFTER SEEK =~ SKI

S RESET

ATA DID NOT

SET

DURING SEEK

(OMMAND

EMIS7
ERTY
EDT1
EF NI
s ERROR

002362
QU364
02366

COMMAND

EMTS6
EHTI
EDT1
EFT1

s ERROR

143
144

CHECK DURING SEEK

EMTSS

002342
002344
002346
002350

141

DEVICE

EHT
EDT]
EFTY
;ERROR

140

142

067766
073332
073456
073546

EMT60

EwT

gpre

4V( ERRCR DURING SEEK (OMMAND - (OST
VOLUME VA_ID

ASSUME

“IRMMBC AMOS/3/2 FTAL TST 1
FRROR PCINTER TABLE

002370

MALRO vi&e. 09

EFT1

ZERROR

L XY

149

77:43:¢B PAGE B-7

SEC (U7

673546

147
148

L-APR-B1

ERRONEOUS Iv{ ERROR DURING SEEX (OMMAND vOLUME

VALID IS STIL

SET

EMTO7
EHT]

EDT1
EFT1
CERROR

002402
002404
002406
002410

MOL

IS ZERO, BuT OP!

WAS NC7

REPORTED DURING SEEK (OMMAND

EMT62

EDTT
EFTY
JERROR

UNUSED

;ERROR

DRIVE

. ERROR

DRIVE EXECUTED A SEEK WITH ERROR SET

+ERROR

UNEXPECTED ERROR SET

IN RMERI

SERROR

UNEXPECTED ERROR SET

[N RMERZ

000000
000000
000000
000000
DID NOT DETECT "‘IVC'" ERROR DURING SEEK

002422
002424
002626
002430

V02432

0024
34
002436
002640
164
165

166

00246¢

002446

002450

————

———e

——

JHMMBO RMOS5/3/2 F(Tag TST 3

*RROR POINTER TABLE

MLIRD L .30

073456

n oS

b
b

el 07354¢€

L-APG~87

"7:63:¢8 PAGE B-b

1328
EFT11
sERROR

ERRONEOUS ““IAE"" ERROR DURING RECAL IBRATE

EMT70
EHTS
EDT1
EFT1

17%
174

;ERROR

17§

“ILF*° ERROR DURING RECALIBRATE

EMI171
EHTI

~N NN
0~

1328
EFT1
:ERROR

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

EMT72

EHTI

Ecn

s
—

0000
00 ~
o — OO

EFTT

;FRROR

‘OPI'" FRROR DURING RECALIBRATE BECAUSE ON
CYLINDER DIDNT DROP

EMT73

EHT

ECTT

EFTI

'8%
184

185

:ERROR

002522

EF7

. ERROR

002532
0025
34
002536
002540

070252

JERROR
o

678

l\"

ERRONEOUS “'IVC"" ERROR DURING RECAL [BRATE = "wy'' -

EMT75
EHT]
EDTY
EFTY

073332
073456
073546

189

Q02542
J02%44

**Iv(’" ERROR DURING RECALIBRATE - 'YV = 0

EMT 74
EHT)
EDTY

002526
002530
186
-2
188

EMY76

EHT]

"Sk1'" ERROR DURING RECALIBRATE

rZRMMBO RMOS5/3/2 FCINL

EKROR POINTER TABLE

002546
002550

TST 5

MACRO v04.00

073456
073546

epmn
EFT
:ERROR

070302
073332
073456
073546

201
202
203

EDT1
EFT

070314
073332
073456
073546

04
<05
206

— T

070360
073332
073456
073546

102

"ATA'* DID NOT SET DURING RECAL IBRATE

103

‘OM'" DID NOT RESET DURING RECALIBRATE

EMT103
EHT
EDTI
EFT

070372
073332
073456
073546

070410
073332
073456

LOST ''VV'' DURING RECALIBRATE - "'IV(C'' = 0

EMT102
EHT
EDTI
EFT1

104

‘PIP'" IS STIL

SET AFTER RECALIBRATE

EMT104
EHT]
EDTI
EFT1

;ERROR
002632
002634
002636

101

EFT1

;ERROR

002622
002624
002626
002630

LOST *MOL'" DURING RECAL IBRATE =~ 'OP!'' = 9

EMTT101
ERT?
EDT1

070350
073332
073456
073546

nN—=O

rorurN

207
208
209

070332
073332
073456
073546

;ERROR

002612
002614
002616
002620

100

EMT100
EHT]
ED1]
EFT1

. ERROR
002602
002604
002606
002610

"DVC'" OCCURRED DURING RECAL JBRATE

Em177

;ERROR

002572
002574
002576
002600

77
EHTI

;ERROR
002562
002564
002566
002570

4
K
11:435:28 PAGE 8-5

SEQ 0049

192

002552
002554
002556
002560

4-APR-B1

105

EMT105
EHT]
EDT

UNEXPECTED “‘ILR'* EKROR DURING RECALIBRATE

(ZRMMBO RMOS/3/72 FCTINL

ERROR POINTER TABLE

002672
002674
002676

v
—

0027090

225
226
227

002702
002704
002706
002710

110

CANNOT ACCESS MASSBUS (ONTROLLER VIA UNIBUS

s ERROR

NONEXISTENT DEVICE

.ERROR

DEVICE NOT AVAILAALE

070470
073360
073476
073566
113

BUS TIMEOUT-NED STATUS FAILURE

070476
000000
000000
000000

;ERROR
002722
002724
002726
002730

"UNS’" ERROR DURING RECALJBRATE ~ AC POWER IS LOW

070462
072360
073476
073566

231
232

107

070450

;ERROR

002712
002714
002716
002720

JNEXPECTED "RMR'' ERROR DURING RECALIBRATE

073354
073474
073564

228
229

230

106

EMT107
EHT]
EDT1
EFT1
. ERROR

002662
002664
002666
002670

8-10

EMT106
EHTY
EDTI
EFT

070430
073332
073456
073546

219

11:43%:28 PAGE

EFT1

070420
073332
073456
073546

co~NOr

— b3

[qWIAV [,V

002656
0026060

4&-AFR-81

SEQ 0050

s ERROR
002652
002654

222
223
224

MACRO v04.00

;ERROR

002642
002644
002646
002650

220
221

073546

[NLL
W)

002640

TST

070512
073364
073500
073570

DEVICE NOT AN RM05/3/2

JRMMBO RMQS/3/2 FLTNL

LAV

ERROR POINTER TABLE

MACRO v04.00

070530
073332
073456
073546

RMCST

NOT

INITIALIZED BY UNIBUS

116

RMBA NOT

INITIALIZED BY UNIBUS

EMT116
EHT
EDT]
EFT1

070540

RMCSZ2 NOT

INITIALIZED BY UNIBUS

RMER1

INITIALIZED BY UNIBUS

EMT117
EHT
EDT1
EFTI

073332
073456
073546

:ERROR
002762
002764
002766
002770

115

EXT
EDT
EFTI

;ERROR
002752
002754
002756
002760

)
M4
11:43:28 PAGE 8-11

EMT1S

;ERROR

002742
002744
002746
002750

4-APR-81

SEQ 0051

070520
073332
073456
073546

237
238

243
264
245

.ERROR
002732
002734
002736
002740

240
261
242

TST

070550
073332
073456
073546

120

NOT

EMT120
EHTT
EDT1
EFT1

246

;ERROR

J02772
002774
002776
003000

070560
073332
073456
073546

249
250

252
253
254

RMAS NOT

INITIALIZED BY UNIBUS

EMTT21
EHT]
EDTI
EFT

;ERROR
003002
003004
003006
003010

122

RMMR1

NOT

INITIALIZED BY UNIBUS

EMT122
EHTY
EDT
EFTI
. ERROR

003012
003014
003016
003020

121

073546

123

EMT123
EHT
EDTI
EFTI

RMDS NOT

INITIALIZED BY UNIBUS

“IRMMBO RMOS5/3/2 FLTNL TST 1

ERROR FOINTER TABLE

255

52(75

JERROR

003022
003024
003026
003030

C€70610
073332
073456
073546

258
228

003034
003036
003040

070620

03062
003044
003046

070630
073332
073456

003052

EFT1

070642

267
)

EMT126
EHT1
EDT1

EHTI
EDT1
£FT1
;ERROR

003062

J03064
003066

003070

070654

JERROR

Y 003072 070666
003074
003076
003100

“"7

003102 070700

073332
073456
0786

INITIALIZED BY UNIBUS

)

130

RMCS1 NOT (LEARED BY CONTROLLER CLEAR
\

RMBA NQOT CLEARED BY CONTROLLER CLEAR

\
.

’

RMCS2 NOT CLEARED BY CONTROLLER CLEAR

131

RMER1 NOY CLEARED BY CONTROLLER CLEA"

EHTI
EDT1
EF T
SERROR

003104
003106
Q03110

RMAR2 NOT

EMT131

(23332
073456
073546

o2t
C\l‘_‘

INITIALIZED BY UNIBJS

EHTT
EDT1
EFTI

073546

220

RMECZ2 NOT

EMT130

073332
073456

e’);‘l}

127

EMT127

073332
073456
073546

‘?)gg

125

:ERROR 126

JERROR

003054
003056
003040

EHT1
EDT1
EFT1

003050 073546

ggz

124

17:43:¢B PAGE 8-12

EMT125

073332
073456
073546

261

4-APR-B1

EMT124
ENTY
EDT1
EFT1
;ERROR

003032

gg%

MAIRO vC4.00

132

EMT132

EHT1
EDT1
EFTY

RMAS NOT (LEARED BY (ONTROLLFR (LEAR

TIRWBO CS5/3/2 5T

FARUR POINTER TAB(

LT T

wola s06.00

(ERROR

003112

(03114

203116

0C3120

070712
0735446

EFT?

073456

073546

070750
(073332
073456
073546

ggg

003160

RME(C2 NOT CLEARED BY CONTROLLER CLEAR
¢

136

RMMR?2 NOT CLEARED BY CONTROLLER CLEAR

EMT136
EHTI
Epm
EFTY
;ERRUR

003152
003154
203156

13§

EFT
(ERROR

003142
003144
003146
003150

RMDS NOT CLEARED BY CONTROLLER CLEAR

EMT135
EMTY
EDT

073545

.;gg

134

070762
(0733%2
073456

137

RMCST1 NOT CLEARED BY ERROR CLEAR

EMI137
ENT]
EDT1

073546

EFT

291

{3%

“7

SERROR

003162 020772

003164
003166
003170

é;gg

EHTI
EDT1]
EFT1

JERROR

003172 071002
Q0031724
003176
003200

RMCS2 NOT CLEARED BY ERROR CLEAR

EMT140

073332
073456
073546

140

141

e —e—

RM(S1 NOT CLEARED BY DRIVE CLEAR

EMT141

(73332
(73456
073546

ENTY
EON
EFT1

29?

J98

JERROR

142

££ 11

070736
(73332
(73456

285

RAPRT NOT CLEARED BY CONTROLLER CLEAR

EMT134
ENTT
£EDT1

:ERROR
003132
C0%134
003136
003140

€0 0053

EDT1

(70724
073332
073456

28
‘5%4

EMT133

EHT1

:ERROR

003130

133

073332

279
zég?

003122
00;124
003126

4-APR-81 11:43:28 PAGE 8-13

RMDS NOT CLEARED 8Y DRIVE CLEAR

“TRMMBO RMOS/3/2 FUTNL

FPROR POINTER

299

003202
003204
003206
003210

TST

MALRDY 4 UL.0C

071012
073332
073456
073546

003212 071022

071032
073332
073456
073546
;ERROR
071042
073332
073456
073546

;ERROR

- —a

073456
073546

073546

RMMR1

NOT CLEARED BY DRIVE CLEAR

146

RMMR2 NOT CLEARED BY DRIVE CLEAR
_

EDT1
EFT1
qEBfiOR

003260

145

EMT146
EHT1

[ RV TAN

2d Lo N

071052
073332

071062
073332
073456

RMAS NOT CLEARED 8Y DRIVE CLEAR

EMT145
EHT1
EDT1
EFTY

309
%}?

0032%2
003254
003256

144

EMT144
EHT?
EDT1
FFT1

306
%8;

003246
203250

RMERT NOT CLEARED BY DRIVE CLEAR

EHT1
EDTI
EFT1
:ERROR

003242
003244

143

EMT143

073332
073456
073546

303
382

003232
003234
003236
003240

EMT142
EHTT
EDT1
EFT1
;ERROR

003222
003224
03226
003230

17:43:78 PAGE B-14

TABLE

300
ggz

003214
003216
003220

4-4PR-BY

147

RMERZ NOT CLEARED BY DRIVE

(LEAR

EMT147
EHT]
EDTI

EFT1

218

g;q

;ERROR
03262
003264
003266
003270

07197¢
073332
(73456
073548

RMEC2 NOT CLEARED BY DRIVE CLEAR

EMT150
FHTI
EDT
EF T

’
Lo

150

ERROR

157

MEDIUM NOT ON L INE

JRMMBC RMOS5/3/¢ FCTINL

FRROR ~OINTER TABLE

AN N
rINORY
W) -2

003272
003274
003276
003

071114
073332
073456
073546

153

UNSAFE SHOULD BE

SET BECAUSE DV(C

S SET

'54

UNSAFE

SHOULD NOT BE

SET,

IS LOW

EMT154
EHTI
EDT
EFT

:ERROR
071162
073332
073456
073546

155

VOLUME VALID NOT SET BY PACK ACK

EMT155
EHT]
EDT?
EFT1

003332
003334
003336
003340

DRIVE FAULT

EHTI
EDT1
EFT1

071144
073332
073456
073546

AN AN A
n—0O

AN NN

003324
003326
003330

152

EMT153

;ERROR
003322

EMT152
EHT1
EDT1
EFT

071126
073332
073456
C73546

328

11:43:28 PAGE 8-15

EMT151
ENTI
EOT1
EFT1

s ERROR

003312
003314
003315
€03320

4-APR-81

SEQ@ 0055

071102
073332
0734656
073546

327
329

MACRD v04.00

:ERROK

003302
003304
003306
003310

74
325
326

TST 1

[

s ERROR

003342
003344
003346
003350

071174

337
338

. ERROR

003352
003354

003356
003360

OFFSET MODE NOT SET BY OFFSET

071206
073332
073456
G7354¢6

157

OFFSET MODE NOT RESET BY RTC COMMAND

EMT157
EHTT
EDT1

EFT1

229

240
341

;ERROR

20332

077220

COMMAND

EMT156
EHT]
EDT?
EFT1

073332
073456
073546

336

156

160

EMT1€60

RMOF

NOT RESET BY RIP (OMMAND

JRMMBC RMOS/3/2 F(TRL

ERROR FOINTER TABLE

003364
003366
003370

MACRD v(4.0C

11:43:28 PAGE

B-1¢

SEQ 0056

073332
073456
073546

4-APR-81
EMTI

£DT1

"\.—.

EFT1

;ERROR

0721230
073332
073456
073546

161

RMDA NOTY

RESET BY RIP (OMMAND

EMT 61
ERTI

EDT1

EFT

;ERROR

162

RMDC NOT RESET 8Y RIP (OMMAND

EMT162
EHTT
EDT1
EFT1
;ERRCR 163

003412
003414
003416
003«20

¥
2V ]
& o

[V 1V (¥ )

368
349
350
351

DATA WAS ECC CORRECTED BUT
WRITE BUFFER

EMT336
EHT336
EDT336
EFT336
164

OPI

SHOULD NOT BE

SET

Iv(

SHOULD NOT BE

SET

[AE

SHOULD NOT BE

SET

(¥

;ERROR

~N O

]

IV
IV )

003422
003424
003656
003430

EMT164
EHTI
EOT
EFT1
. ERROR

003432
03434
003436
003440

165

EMT165
FHTT
EDT
EFTY

358

)

359
360

:ERROR

003442
Q03444

166

EMT166
EHT]
EDT1
EFT1

003646
003450

2¢,1
?t:

. ERROR

“\ <"“'\&‘

167

EM1167

NEM SHOULD NOT BE

DOES NOT

COMPARE

W]TH

CNMMES KMOS/372 FLT

FRATR POINTER

TABLE

1ST Y

MATRD J0e.00

073332
00%ss 07345¢

003463

EDT?
EFT1

SERROR
071314

INCORRECY "MOL"'" STATUS Dqfi‘yfi DIAGNOSYX§ ”ODE

EnT1

£DT1

EFT1
:ERROR

071326

171

"'ATA'* NOT SET DURING RETURN TG CENTERLINE

EMTi77
EHTI

07133;
073456
073546
O

170

EM1170

073332
073456
07354¢

£pT1

EFTY
;ERROR

¥
5
17:43:78 PAGE 8-~

EnTl

073546

LN
~N
e N

4-APR-B7

172

"ATA'" NOT SET BY-OFFSET

COMMAND

EMT172
EHTT
EDTY
LF T

x73

3/4

OOSO
jelelels)

w LAl
AN
M) b ad =

(=1o ROl
V]

;ERROR

INITIALIZED BY UNIBUS

EDTY

EFT1

174

wWNLNUTL
OO

WM
[V [V I8 2¥ )

EMTT74

EHT1

£DT1
EF T

b
380

:ERROR

175

RMER2 NOT INITIALIZED BY (ONTROLLER CLEAR

’

(

SELECTED DEVICE IS IN WwRITE PROTECY

EMT17S

187

;ERRDR

EFN

0237¢

0233%”

176

EmT1/76

;

ENT1

£EDTY

T84

INIT

EMT173

S ERROR
jeTelele]
OODO

RMERZ NOT

EHTY

376

377
$78

173

TANNDT SET DJAGNOSTI( MODE

TIRWBC RMOS/3/2 0T

ERAOR POINTER TABLE

T1SY 1

MAIRC

v04.00

00558 073456
073544

328
389
3%0

000000

071406

177

200

,‘“ )

INCORRECT "PIP'* STATUS DURING DIAGNOSTIC mt}k"

| tl}’\

EDT
EFTI

071420
073332
073456
073546

201

!
INCORRECT "WRL'" STATUS DURING DXAGNO?TIC MGDE

EMT201
EHT
EDTY
EFT1

:ERROR

003602
003604
003606
003610

071432
073332
073456
073546

397
398

399

”

394

395
396

INCORKECT "'SKI'* STATUS DURING DIAGNOSTI( MQPE’

EMT202
EHT
EDTT
EFT
;ERROR

003612
003614
003616
003620

202

071444
073332
073456
073546

203

INCORRECT "DVC'" STATUS DURING DIAGNOSTIC MODE
i

EMT203
EHT
EDTY
EFT1
JERROR

071456

204

EMT204

073332

EnTY

073456
073546

3”
"VV'' WAS NOT RESET BY MAINTENANCE UNIT READY'
!

EDT1
EFTI

[

;ERROR
071474

073332
07345¢

~~RESERVED FOR POWER MONITOR BIT FAILURE=

EMT2C0
EHTI

073332
073456
073546

:ERRQOR

003572
003574
003576
003600

000000

391
192

393

EDT1

JERROR

093562
003564
003566
003570

EFT1

;ERROR

003552
003554
003556
003560

11:43:28 PAGE B8-18

QOO0

385
386
387

4-APR-B?

205
EMT205
EHT
EDT]

SELECTED DEVICE HAS A PERSISTENT ‘skI*|'ERROR |
!

CTINMMET

MOS0 472

PRRTROFLINTER

“034C

BTy

TABLE

MAIRC

v04.00

4-4PR-81

H
S5
11:43:28 PAGE 8-19

SEQ 0089

073546

EF11

406

«.8

;ERROR

0C3%«?
CU34e
003646
00365C

071504
073332

206

‘LB DID NOT SET DURING DIAGNOSTI( MODE

EMT206

EXTT

(073456

EDI1T

(73546

EF
T

;ERROR

003652
No3654
003656

:ERROR

003662
003664
003666
003670

071526
073332
072456
073546

UNEXPECTED LOSS OF

VOLUME VALID = ‘"W
= 0

LINE

210

EDTI
EFTI

071534
073332
073456
073546

UNEXPECTED MECHANICAL MOTION - 'PIP'"

EMT211
EHTI
tDT1
EFT1
;ERROR

003702
003704
003706
003710

'MOL'' - MEDIUM IS OFF

EMT210
EHTT

;ERROR
003672
003674
003676
003700

UNEXPECTED LOSS OF

EMT207
EHT
EDT1
EFTI

073546

—

a¥ ol

003660

071514
(073332
073456

207

071550
072332
073456
073546

212

UNEXPECTED DEVICE

FAULT = 'DVC'' - 1

EMT212
EHT
EDT
EFTT
4

;ERROR

003712
003714
003716
003720

071564
073332
073456
073546°

071574
073344
073466

37%0 073556

UNEXPECTED SEEK

INCOMPLETE ERROR - ''SK]‘* -

EMT213
EHT
EDT]
EFT1
;ERROR

3722
3704
32:6

213

214

EMT214
EHT2
EDT2
EfFT?2

DRIVE EXECUTED A RECALIBRATE WITH ERROR SE’J
——

Pl
ol o

Vsl

JAMME.

EREOR

M(S/%/¢e E0TL

PUINTER

ST 1

MAIRC v04.00

4-APR-81

TAB
G

11:43:¢8 PAGE 8-20
~FQ

6«28

:ERROR

203732
0C3734
003736

003740

71614

00374¢

003746
003750

EFT2

071626
073332
073456
073546

EHT]
EDTI
EFTi
JERROR

003752
003754
003756
003760

216

INCORRE(CT "'Iv(C'" STATUS

EMT216

433

6«34
&35

DRIVE DID NOT DETECT “’Iv(’" ERROR DURING RECAL IBRATE

£147215
EMT2
EDI2

0733464
073466
73556
;ERROR

003744

215

071636
073332
073456
073546

217

INCORRECT *‘JAE'* STATUS

EMT217

EHT
EDNM
EFT1

436

W37

438

;ERROR 220

003762
003764
003766
003770

EMT220
EHT
EDTT
EFTI

4«39
6460

661

INCORRECT "WLE'' STATUS

;ERROR

J03772
003774
003776
004000

221

INCORRECT "OPI'* STATUS

EMT221
EHTI
EDT1
EFT1

662

443
444

SERROR

071666
073332
073456
073546

222

RM DID NOT

DETECT

RMR ERROR

EMT222
EHTI
EDT1
EFTI

445
446

;ERROR

021676
073370
073502
073572

RM DID NOT DETECT PARITY ERROR ON MASSBUS 7ONTROL BUS

ERROR PUINTER

RNy

TABLE

649

MACRO v04.00

MNL022
5046024
06026
004030
:ERROR

224

UNUSED

000000
000000
000000
000000

UNJSED

OOOO

004936
004040

454

457

0000009
000000
000000
000000
:CRROR

004067
204064
006066
004070

000000
000000
000000
000000

463
“64

465

:ERROR

000000
000000
000000
000000

;ERROR

000000
000000
0000090

UNUSED

QOOCO

004052
004054
04056
004060

230

UNUSED

OOOO

460
461
460

. ERROR

231

UNUSED

[eolelelo]

458
459

UNUSED

ololele]

000000
V00000
000000
000C00

004044
004046
004050

C04042

:ERROR

QOOC

455
54

11:43:¢8 PAGE 8-¢1

SEQ 0061
:ERROR

004032
004024

4-APR-81

OOOO

450

YST

AS)

CRVMMB, WM(S5/ 5/

UNUSED

“JRMMBO RMOS5/3/2 FCINL

ERRCR POINTER TABLE

MACRO v04.00

11:43:¢8 PAGE

000000
000000
000000
000000

233

UNUSED

[eolele
o]

el
i
—

D)~
b —a

4-~APR~-81

472

004144
004146
004150
481
482
483

004152
004154
04156
004160

UNUSED

M
QOO0

;ERROR

~n)

004142

000000
000000
000000
000000

;ERROR

237

s ERROR

000000
000000
000000
000000

UNUSED

OO0

N4L132

UNUSED

QOO0

;ERROR
04134
004136
004140

478
479
480

000000
000000
000000
000000

0046122
004124
004126
004130

000000
000000
000000
000000

UNUSED

QOO0

475
476
477

s ERROR

473
474

484

490
491

006172
004174
004176
004200

UNUSED

eolelelel

0000060
000000
000000
000000

;ERROR

.87
488
489

004162
004164
004166
004170

;ERROR

242

000000
000000
000000
000000

UNUSED

OOOO

485
486

8-¢22
SEQ 00¢

:ERROR

80§O
RRRE

470
W7

TST

JNEZED

FRRCR

POINTER

(92

004202
004204
004206
004210

TST

MACRO v04.0C

TABLE

000000
000000
000000
000000

4-APR-B1

11:43:¢8 PAGE

B~/3

$£0 0063

[elolelal

JRMMBO RMOS/3/72 FCINL

493

000000
000000
000000
000000

496
497

458

sERROR

006222
004224

£04226

004230

UNUSED

OOOO

004212
004214
004216
004220

000000
000000
000000
600000

:ERROR

UNUSED

OOO0O

(94
455

499

502
505
504

505
506
507

D —d
—

WD
-

508
509
510

004232
004234
004236
004240

000000
000000
000000
000060

;ERROR
004242
004244
004246
004250

071752
073332
073456
073546

246

"ATA'" NOT RESET BY GO WHEN "ERR'' - O

EDTI
EETT

071762
073332
073456
073546

247

"ATA'* NOT RESET BY WRITING RMAS

EMT247

)

EHT

EDT1
EFT1
;ERROR

004262
004264
004266
004270

UNUSED

EMT246
EHTT

:ERROR
004252
004254
004256
004260

:ERROR

OO0

500
501

071774
073332
073456
073546

250

|
"'ATA'" WAS RESET BY GO WHEN "ERR''
-

EMT250
EHTI
EDT1
EFTY
:ERROR

251

PROGRAM INTERRUPT WAS NOT GENERATED

A
b
—

252

072016

072024
073332
073456
073546

072042
073332
073456
073546

253

OFFSET MODE WAS NOT RESET BY WRITING RMDC

254

INCORRECT “'ILF'' STATUS

255

INCORRECT '‘ATA'" STATUS

EMT255
EHT
EDT?
EFT1

072062

256

INCORRECT "'ILR'" STATUS

EMT256
EHT256
EDT223
EFT223

073402
073502

073572

=0V

EDT?2
EFT2

EMT254
EHTI
EDT
EFT1

072052
073332
073456
073546

e
w

EHT?Z

EMT253
EHTT
EDTI
EFT1

;ERRCR

004342
004 344
004346
004350

PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED

EMT252

;ERROR

004332
004334
004336
004340

g g~y

—t

073344
073466
073556

D0~

—
—d d

(WAL 1V, ]

004330

526
527
5c8

:ERROR

006322
004324
004326

M5
11:43:28 PAGE 8-24
SEQ 0064

;ERROR

0046312
004314
004316
€04320

523
524
525

4-APR=-81

:ERROR
004392
004304
004 306
004310

520
521
522

MACRO Y04.00

0720'0
073344
073466
073556

[0, 1Y, F o

W, 1V,1V,]

004276
004300

mmmm

004272

OOL(I‘

TST

NONUNON

*JRMMBO RMOS/3/72 FCINL
tRROR POINTER TABLE

sERROR
072072
073332
073456
673546

v IV

Pvty

004352
006354
004356
004360

072104

INVALID 1AE STATUS DURING SEARCH COMMAND

EMT257
EHT1
EDT]
EF T

<ERROR

004362

257

260
EMT260

.'IVC'' WAS NOT DETECTED DURING SEARTH (GMMAND

JAMMBO RMOS/3/2 FCINL

FRROR POINTER TABLE

YAIRO v04.00

4-APR-81

11:43:2B PAGE B8-¢25
SEQ 000!

073332
073456
073546

EHT1
EDT1
EFT

)

Q&R

004 364
004 366
004370

TST

;ERROR

004372
004374
004376
004400

072116
073332
073456
073546

EDTI

EFT1

072136
073332
3456

NNNN
WNAN AN

004420

N
—
AN
oo

. ERROR

004412
004414
004416

544
545

NNN N

ooruo

S vial
N
oorroON

AN
WAL

=
O

004440

NNNN
LA AT,
NI s

004432
004434
004436

004450

072216

265

266

DEVICE FAULT

(DV()

DURING SEARMH

EMT266

073456
073546

N
267

07223%

ERRONEOUS Iv( ERROR DURING SEARCH - vOLUME

EHT
EDT

JERROR
\:O"‘t‘(’

“IvC'" ERROR DURING SEARCH ~ LOST VOLUME VALID

EHT]
EDT1
EFT1

O7§§32

5§53
£5¢4
88

264

EMT265

<ERRGR

004442
004444
004440

"'SKI'" ERROR DURING SEARCH COMMAND

EMT 264
EHT
EDT1
EFT1
;ERROR

jolelele]

547
548
549

263

EFT

NN
WIS (N
NN

004426
004430

elelelo

004422

"LBC"* ERROR NOT SET DURING DIAGNOSTiC MODE

EMT263
EHTI
EDT]

;ERROR

004424

262
EMT 262
EHT
EDTT
EFT1

"7 7546

QOO0

541
542
543

DRIVE EXECUTED SEARCH WITH ERROR SET

EMT 261
EHTI

«~ ERRCR

004402
004404
004406
004410

261

EMT267

SK1 SHOWR
D HAVE BEEN SET RECAUSE
ADDRESS IS Y00 LARGE

7v
!

IS VALID

TIRWB, MM0S5/3/2 S(T

ERRUR POINTER TABLE

Vale RN

004470

EcT1

004472

006676
04500

270

OP]1 ERROR DURING SEAR(H BE(AJUSE MOL

EMT270

ENTT
EDT1
EFT1
:ERROR

QUes74

564
565
566

EMT

EDT1

072246
73332
075456
073546

560
561

8 6
4-APR-81 11:43:28 PAGE B-J¢
SEQ 006¢

sERROR

D0&662
004464

62
5¢3

M0 v06.0C

073337
07356
C73546

AP
NIV

006454
006456
006460

TET

072262
073332

27N

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

EMT271

EHTI

328
EFT

;ERROR

004502
004504
004506
004510

272

LOST MOL DURING SEARCH, OPI

IS NOT SET

EMT272
EHT
EDTY
EFT1

567
;ERRCR

004512
004514
004516
004520

273

PIP STIL

SET

AFTER SEARCH

EMT273
EHTT
EDTY
EFT1
:ERRQOR

072334
073332
073456
073546

274

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

EMT274
ERT1
EDT1
EFTI
JEPROR

072352
073332
073456
073546

275

MXF ERROR - COMPOSITE
COMMAND STARTED

ERROR OCCURRED BEfORE

DATA

EMT275

EHT
EDT1
EF T

TERROR

276

‘0PI’ ERROR DURING DATA TRAN-TER BETAUSE “MOL’’ wAS

“IRMMBC RMOS/3/2 FUTNL
FRROR POINTER TABLE

580
581

582
583
584
585
586

004542
004544
004566
004550

MATRO v04.00

072364

EMT276

073456
073546

EDTI

EFTY

277

"OP]'" ERROR DURING DATA TRANSFER BECAUSE
CY_INDER DIDN'T DROP OR 2)

3) RUN TIMED OUT

004552

072400
073332
073456
073546

004562
004566

072416
073332
073456
073546

591
592
593

004576
004600

072436
073332
073456
073546

204626

004626

972504
073332
073456

302

"'ILR"" ERROR DURING DATA TRANSFER

ERTI
EDTI
EFTI

303

“ILF"" ERROR DURING DATA TRANSFER

EMT303

EHT
EDTI
EFT1

;ERROR
004622

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

EMT 302

072472
073332
073456
073546

601

301

EDTT
EFT1

;ERROR

004612
0046614
004616
004620

VALID

E"T301
EHTT

072460
072332
073456
073546

598
599

“IVC'' ERROR DURING DATA TRANSFER BECAUSF VOLUME

WAS NOT

EDTT
EFT1

;ERROR
004602
004604
004606
004610

300

EMT 300
EHT1

;ERROR
004572
004574

1) ON

SEARCH TIMED OUT OR

EMT277
EHTI
.b1m
EFTi
;ERROR

004570

603

11:43:28 PAGE 8-27

ENT

;ERROR

004564

600

4~-APR-B1

SEQ 0067

073332

587
588
589

594

ZERQ

004554
004556
004560

590

TST

304
EMT 304
EHTI
EDTY

"RMR’* ERROR DURING DATA TRANSFER

Fnfoke

NMCH/372 FOTNC O TST

BUINTER

£07

INCORRECT ''IAE'* STATUS DURING DATA TRANSFER

EMT 305

072530

306

"'SKI'" ERROR DURING DATA TRANSFER

EMT 306
EHT
EDTI
EFTI

073332
073456
073546

—

aro

nn—O

305
EHT1
EDT1
EFT1

s ERROR

004642
004644
004646
004650

0D
6
11:43:28 PAGE 8-28

EFT1

072516
073332
073456
073546

6“8

4-APR-81

SEQ 0068

;ERROR

004632
C046H34
206636
0046640

€£J9

MACRO v04.00

073546

[

JCL630

TAB
¢

—

;ERRCR

072540
073332

DRIVE

DID NOT

DETECT

SKI

ERROR DUE

TO (YLINDER

EMT307
EHTT
EDT]
EFT1

073456
073546

:ERROR

—

or:

[, ¥ 2V

004652
004654
004656
004660

307

072560
07333,
073456

;ERROj
004672
004674
004676
004700

072572

FAULT DURING DATA

TRANSFER

LOSS OF

BIT

LOSS OF

SYSTEM CLOCK DURING DATA

TLOCK DURING DATA

TRANSFER

EMT313
EHT
EDTY
EFT

073332
073456
073546
; ERROR

072604
073332
073456
073546

312

TRANSFER

EM1312

ERT

EDT1
EFTY
cERROR

072616
073332
073456
073546

DEVICE

EMT310
EHTI
EDT1
EFTI

073546

oo ~NOH

—

004662
004664
004666
004670

31C

315

EMT313

EHT]
EDT1
EFTY

UNSAFE ERROR DURING DATA TRANSFER

(DV(C = Q)

JRMMB( 1MOS/ 372 FiTag

FRROR

(% X8 % J

¢
—'2
4

4-APR-81

314

:ERROR

N0&722
004724
004726
<04730

004732
004734
004736

315

WY
—e

072650
073332
073456
073546

NS
N

004 766
004750

i1:43:¢8 PAGE

8-29

DRIVE

TIMING ERROR DURING DATA

WRITE

LOCK ERROR

TRANSFER

EHTI
EDTY
EFT1

EMT315
EHTI
EDT
EFTT
316

;ERROR

004742
004744

EMT 314

072¢36
073332
073456
073546
;ERRCR

004740
22

MATRO v04.00

SEQ 0069

(/8
Y&,

£30

TARE

Noh n

FOINTER

072662
73332

ERRONEOUS WRITE

LOCK ERROR

FMT316
EHTT

73456

EDT1

073546

EFT1

l"Sl‘

e
636

JERROR

004752

004754
ooq7ge
004760

072674
073332
073456
073546

HEADER

CRC

FORMAT

ERROR DURING DATA

HEADER

(OMPARE

ERROR DURING DATA

TRANSFER

EMT317

EHT

EDTY
EFTI

637

638

. ERROR

4
14
7
7

TRANSFER

EMT320

EHT1
EDT1
EFTT

221

. ERROR

£ SN
2
ONOSNU

004772
06774
04776
005000

640
641
662

320

072704
073352
073456
073546

WML W~ T

004762

004764
004766
004770

folaldln)

639

ERROR DURING DATA

EMT 321

EHTY
EDTT,
EFTI

?
005002 11072724
005004 1023332
£ 1005006 073456
r (05010 ?73546
|

322

;ERROR

EMT322
] EHTI
EDT1
EFJI

HEADER ERRORS

SHOULD NOT BE

SET

TRANSFER

|
|
/| - ZRMMBC RMOS/3/2 {irNL 157 1
(ERROR PDINTER 4B

’

Ezfi'
B

£’

' oosové 673332 |
{

|
|

'972732

005020

%fig
Jé“

{

07274

2%%
’ /
(A

17005036

;,’

EMT324

EMT 325

22‘])

bhg

;ERROR 326

EMT 326

o
|

EHT ]

ED] ]

073546

EFT

0b5062 073016

(73337
073456 '

[0P3546
‘

o
.

:ERR{OR 327
OFFSET MODE NOT RESET BY WRITE COMMAND
gnrsz7

‘

073352

00507C

205072

73026

005C76

073456

;E‘?ROR 330

EM;;%O
EH

1
§

DATA PAR]TY ERROR DURING WRITE COMMAND

EDT

EFT

:ERROR 331

WRITE CLOCK FALURE DURING WRITE COMMAND
l

EMT331

003076 §73%%¢

EHT]]

NS00

Erm

0764k

DATA PARITY ERROR DURING READ COMMMAND

EFT1

073456

05064
05066

UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER

EET1

obsbs2 073004

005060

COXRECTABLE DATA CHECK ERROR DURING DATA TRANSFER

EFTT

;ERROR 325

005042 072766

005084

DATA (HECK ERROR DURING DATA TRANSFER

;ERROR 324

)

:ERROR 323

/
SEQ 0070

EMT323
EHT

:’

977546

| 005056

-',

‘,

\oa?oso 073646

22’9
660

{

’

073456

005040

657

co,

073332

| 100503

222

58%052 07275

i |

005030 078526

(73546
|

00542z

! ' '

005012

o
|
6
MACRO v04.00 4-APR-81 11:43:28 PAGE 8-30
1

‘

{

“7RWMB) KM05/3/2 FCINL TST 1

FRROR

POINTER

[

|
!

005102 073040 |

705106

005110
67'0

s;%
o)

073456

073946

{

'5, ;
x,"
|
005112 073052
005114 1073832

005116

005120

6
4=APR-B1 11:43:28 PAGE3 8-31

:ERROR 332
Ct L

005104 073332

| MACRG V04.00

TABIE

ggéj’l ',
{

[
[}

EHTI

EDTI

EFT1

;ERROR 333
PIP STIL SET AFTER DATA TRANSFER = SK] = 0
\|
EMT333
EHTI

073k56

EDTI

073546

1sm

673

2;2

Emrzs2

)

DATA LATE ERROR DURING DATA "RANSFER

$05122 073070

;ERROR

334

EMT334

£05124

(78332

EHT1

005130

073546

EFT1

405126 078456

LOST MOL DURING DATA TRANSFER - OP] = 0

EDT1

676

Q;E

:ERROR

T 7 005132

073106

005136

(73456

005134

005140

EHTI

073546

EFT1

ggg

073126
073414
073512
073602

K82

073136
073426
073522
073612

685

gé;

£88

DATA READ DOES NOT COMPARE WITH DATA WRITTEN

337

WRITE CHECK ERROR NOT DETECTED

EMT337
EHT337
EDT337
EFT337

;ERROR
005162
005164
005166
005170

336
EMT336
EHT336
EDT336
EFT336

;ERROR
005152
005154
005156
005160

€£8%

EDT1

;ERROR

2%2

LCST VCLUME VALID DURING DATA TRANSFER - IV(

EMT335

073332

679

005142
005144
005146
005150

335

073146
(73414
073512
073602

340

WRITE "HECK ERROR AT UNEXPECTED ADDRESS

EMT340
EHT336
EDT33¢
EFT336

;ERROR

341
e

INCORRECT DATA DURING WRITE CHECK ERRCR

“IRMMRC RMQS/3/2 FCINL

FRRCR

POINTER

690

£
692
693

005172
005174
005176
005200

700
0N
702

00520¢

:ERROR

005212
005214
£05216
005220

073200
073332
073456
07354¢€

073212
073440
073532
073622

073224
073332
073456
073546

073234
073332
073456
073546

706

DO
s

e N3
.

344

"HCE'* NOT DETECTED DURING DATA TRANSFER

345

"BSE’* NOT DETECTED DURING DATA TRANSFER

346

HEADER ERROR WAS DETECTED W/ HCI

SET

EMT346

EHTI
EDT1
EFTY

;ERROR
005252
005254
005256
005260

"FER'' NOT DETECTED DURING DATA TRANSFER

EMT345
EHTI
EpT?
EFTT
:ERROR

005242
005244
005246
005250

343

EMT 344
EHT 344
EDT344
EFT344
;ERROR

005232
005234
005236
Ju5240

"Iv("" ERROR NOT DETECTED DURING DATA TRANSFER

EMT343
EHT
EDT
EFT1
;ERROR

005222
005224
005226
005230

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

073166
073332
073456
073546

707

708

4~APR-81

073160
073414
073512
073602

703
704

705

MATRO v04.00

TABLE

£9?

698
699

:ERROR
005204
005206
005210

694
695
€96

TST

073250
073332
073456
073546

347

DATA TRANSFER NOT ABCRTED W/ (OMP ERROR SET

EMT347
EHTY
EDT1
EFTT
s ERROR

350

LOST VOLUME VALID DURING SEARCH = "'Iv(** = ¢
!

JRMMRC RMOS/3/72 FCINL

FRROR PUINTER

MA{RO v04.00 4=-APR=-81 11:43:28 PAG% 8953

SEQ 0073

s
b

TST

073262
073535
073456
073546

PolV

005262
005264
005266
005270

TABLE

005272
005274
005276
005300

005302
005304
005306
€05310

005332
205314
005316

005320

721
722
725

724
725

"ATA'" DID NOT

;ERROR

PROGRAM

:ERROR

LOOK AKEAD TEST

TIMEOUT WHILE

073310
000000
000000
000000
FAJLS

073314
073452
073544
073632
;ERROR

005322
005324
005326
005330

SET DURING SEARCH

073300
073332
07356
073546

7°8
719

720

:ERROR

073324
073332
073456
073546

354

BSE

SHOULD NOT RE

EMT354

EHTT
EDT?
EFTY
;PUT

ERROR

TABLE

HERE

SET

TESTING RMLA

RMOS/3/2 FCINL

o W, N I S

= OVONRONE
WM —OV00 N

AL WM -a

TABLE

USAGE

757

MATRO v04.00

4-APR-81

*1:43:28 PAGF 9

6
.

.SBTTL
?

ERROR

TABLE USAGE

;THE ERROR TABLE
JNUMBER, ].E.,.

ABOVE

CONSISTS OF

EMT

EFT - ERROR FORMAT

:
;

;THE EMT
;FOR THE

SEQ 0074

- ERROR MESSAGE

TABLE

FOUR WORD ENTRIES

FOR EACH ERROR

ADDRESS

EHT =~ ERROR HEADER TABLE ADDRESS
EDT - ERROR DATA TABLE ADDRESS

TABLE ADDRESS

ENTRY IS ,THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS
PARTICULAR ERROR.
EACH ERROR MESSAGE TABLE LISTS THE ADDRESS

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

;TYPED BY THE ERROR TYPE SUBROUTINE.
IF
sNO MESSAGE TO BE "YPED FOR THE ERROR.

sSIMILARLY,

THE EHT,

THE

EMT ENTRY

[S ZERO,

EDT, AND EFT ENTRIES ARE ADDRESSES OF

THERE

TABLES

;OF HEADER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR.
EACH ENTRY
;IN THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF
;DATA, HUWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND

JHEADER.

THAT

IS,

A HEADER LINE MAY BE

PRINTED WITHOUT

ANY DATA,

JBUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND FACH DATA L INE
sMUST ALSO HAVE A FORMAT,
;IN SUMMARY,
:
EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE,
;
EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS

;

OF MESSAGE

STRINGS,

HEADERS,

DATA OR FORMAT,

"IRMMR) RMO5/3/2 FCTNL

ERROR

TABLE

USAGE

2
3 005332
4 00533
5 005336
6 005340
w5344

005404

7 005404

Nr\;l\)r\)_a._._a_a_.._-_a_;_._.

WA = OO0 NN NS NN 2 SO

8 005406
005410

TST

MACRO v04.00
sTHIS

011600

005740
022626
104401

000417

::65%:
646%:

104402

012737
000402

177777

05422
005426
005430
0054 34
005436

005037
000240
005227
001375
000005

061326

001326

000000

205502
005510
005516
005524
005532
005540
005546
005552
005556
005564
005572
005600
005604
005612
005620
005626
005634

013746
012737
012737
012737
022777
001012

005636

000403

(SP) RO
=(RO)

;SAVE PC WHERE
JADJUST P( =2

TYPE

BR
LASCIZ

,65%

;o TYPE ASCIZ STRING

648
;GET OVER THE ASCIZ
<(CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

MOV

RO,=(SP)

;SETUP FOR TYPING OUT PC

(SP)+,(SP)+

001100

177570

177570
177777

'HALT(0)'

INSTRUCTION MERE

;70 STOP ON UNEXPECTED TIMEOUT.

YOU WISH

PROGRAM
#-1,(HGADR

; CHANGE

START:
fibg
STARTZ:
INC
BNE

CHGADR

;NG CHANGE

#0
.=4

JTTY LOOP, WAIT FOR INCREMENT
:OF WORD

START?

INITIALIZE

JRESET

RH/RM BUS ADDRESS

IN ADDRESS

THE WORLD

THE COMMON TAGS

MOV

A#SCMTAG,RE

MOV

#STACK,SP

MOV
MOV
MOV
MoV
MOV
Moy

#$SCOPE ,a#]OTVEC ;10T VECTOR FOR SCOPE ROUTINE
#3640 ,9#]0TVEC+2 ;;LEVEL 7
#SERROR,QNEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
#3640, INEMTVEC+Z ;;LEVEL 7
#STRAP,O#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
#340,0#TRAPVEC+2;LEVEL 7

CLR
Mp
BNE

001154

000004
005640

TIME OUT OCCURED

2:CLEAR THE COMMON TAGS (SCMTAG) AREA

001114

000340
041466
001206
001210
000001
005564
005572

THE

JRESTORE STACK POINTER

;PUT

START OF

RESET

061650
000340
062540
000340
065574
000340
065702

TIMEOQUTS

START1: MoV
BR

.SBI1TL

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

sep 0075

TST

NOP

005612
005420

005460
005466
005474

HANDLES UNEXPECTED

TYPOC

000240

012706

ROUTINE

cMpP

005346

010046

005G26
022706
001374
012706

K
6
11:43:¢8 PAGE 10

BADTMO: MOV

.SBTTL

005440
005444
005446
005452
005454

4-APR=-81

000020
000022
000030
000032
000034
000036
000024
000026
041460

001131
001122

001124

000004
001154
001156

173320

(R6) +
#SWR ,R6
)

;o INITIALIZE A FEW VECTORS

MOV

ASPWRDN ,a#PWRVEC

.sFIRST LOCATION TO BE (LEARED

;:CLEAR MEMORY LOCATION
s ;DONE?
;:LOOP BACK If NO

;:SETUP THE STACK POINTER

;;POWER FAILURE VECTOR

MOV

#340,a#PWRVEC+2 ;,LEVEL 7

CLR
(LR

$TIMES
$£ SCAPE

MOV

SENDCT,SEOPCT

s :SETUP END=-OF ~PROGRAM (COUNTER

;oINITIALIZE NUMBER OF 1TERATIONS
+;CLEAR THE ESCAPE ON ERROR ADDRESS

MOVB
MOV

#1 ,3ERMAX
#.,8LPADR

+sALLOW ONE ERROR PER TEST
JoINITIALIZE THE LOOP ADDRESS FOR SCOPE

Mov
MoV

QHERRVEC,-(SP)
#6648, QFERRVEC

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR

#-1,aSWR
66%

;. TRY TO REFERENCE HARDWARE SWR
; cBRANCH IF NO TIMEOUT TRAP OCCURRED

MOV
#.,S5LPERR
;:SETUP THE ERROR LOOP ADDRESS
;:SI1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
. sEQUAL TO A “'=1"', SETUP FOR A SOFTWARE SWITCH REG]ISTER.
MOV
MOV

#DSWR, SWR
4DDISP,DISPLAY

65%

(MP
BNE

;:SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER

*;AND

THE

. ;BRANCH

HARDWARE

SWR

NO TIMEQUT

IS NOT

-°

JRMMBO RMOS/372 FCTNL TST
INDTIALIZE THE COMMON TAGS

MACRO Vv04.00

012716
000002
012737
012737
012637

005666
005672
005700
005702
005710

005037
132737
001403
012737

0012390
000200

001243

001244

001154

25 005710

012737
012737

005332
000300

000004
000006

264

<6 005716

005646
000174

000004

001154
001156

005¢27
001035
022737
001437

g?y

#65%, (SP)

65%:

MOV
MOV

#SWREG,
SWR
;;POINT TO SOF TWARE SWR
ADISPREG,DISPLAY
(SP)+ ,@/ERRVEC
;;RESTORE ERROR VECTOR

66%:

104407

000426

67%:

006030
006032
006040
006042
006050
006052
006054
006056
006064

005737
001012
123727
001406
023727
001005

MOV
MOV

005750

TYF'

TTF

.SBTTL

001242

000001

001154

000176

001150

BR
LASCIZ

006162
006162
006164
006170
006172

001330
000016

000041

000040
000007

001330
001330

001330
000042

GTSWR
BR
MOVB

PROGRAM

68%
HSENDAD
, #4642
68%
,69%

104401

000412

005046

113716

104403

001

006136
ééESS:

001330

FIRST

PASS

;:FIRST TIME?
:;BRANCH [F NO
JsACT=112

;2BRANCH IF YES

;. TYPE

ASCIZ STRING

68%
;:GET QVER THE ASC]Z
<CRLF>RCZRMMBO - RM0S5/3/2 FUNCTIONAL TEST, PT 1a<(RLF>

70%
SENV,
¥
708
SWR,#SWREG
71%

71%
#1,3AUT0OB

;:BRANCH IF YES
;;ARE WE RUNNING UNDER APT?
s ;BRANCH IF YES
;;SOFTWARE SWITCH REG SELECTED?

;;BRANCH IF NO
::GET SOFT-SWR SETTINGS

;. SET AUTO-MODE INDICATOR
PROGRAM CONTROL MODE:
XXDP CHAIN OR DUMP

CLR
(MPR
BNE
MOV

XXDP
#16.,a441
33
ané0,xXxXDP

BKIS
CLRB

1%
XXDP
a6
2
2%
738

;. TYPE ASCIZ STRING

CLR
MOVB

-(SP)
XXDP, (SP)

sCLEAR WORD ON STACK
;GET DRIVE ADDRESS

.BYTE

CMPR

1%:

;SETUP FOR UNEXPECTED TIMEOUT
JLEVEL 6

GET VALUE FOR SOFTWARE SWITCH REGISTER
TST
YU
;;ARE WE RUNNING UNDER XXDP/A(CT”

BNE
(MPB
BEQ
(MP
BNE

70%:
71%:

2F1THE

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

006064
£06070
006076
006100
006106
006114
006116
006122
006126
006130
006134

;. CLEAR PASS COUNT
;s TEST USER SIZE UNDER APT
J:YES,USE NON=APT SWITCH
;sNO,USE APT SWITCH REGISTER

PROGRAM NAME

NAME

TYPE

::69%:
68%:

000001

ABADTMO,ERRVEC
#PR6,ERRVEC+?2

BNt
CMP
BEQ

104407

000403
112737

#APTS12E ,$ENVM
67%
#SSWREG,
SWR

;SETUP ''TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS

000042

;cSET UP FOR TRAP RETURN

$PASS

81TR
BEQ
MOV

006024

MOV
(LR

::TYPE

1772777

041630

10-1

64%:

LSBTTL

005724
005730
605732
005740
005742
005746

11:43:28 PAGE

SEQ 007¢,

005640
005644
005646
005654
00566¢

000176

4-APR-81

1ST

BEQ
TYPE
BR
LASCIZ

TYPOS

#7 ,XXDP

;CLEAR 'XXDP' LOAD DEVICE STORAGE
;LOADED FROM AN RM05/3/2 ?
;BRANCH IF NOT
;GET DEVICE INDICATOR AND NUMBER
:égSIT A VALID NUMBER ?
;NO, DEFAULT TO DRIVE 0
;CHAIN MODE OR ACT11 AUTO ACCEPT ?
;BR IF NEITHER

72%
;.GET OVER THE ASCIZ
<CRLF>/NOT TESTING DRIVE /

;TYPE

THE ADDRESS

;ONLY 1

CHARACTER

rZRMMBO RMOS/3/2 FCTNL TST 1
MACRO v04.00
GET VALUL FOR SOF TWARE SWITCH REGISTER
47 006173

<8 006174

49
50
51
5¢
53

000

006200

104401

000517

01217

006202
006206

005227
001114

177777

006210
006214

006236
54 006236
55 006240
56 006244
57 006246
58 006247
59 006250
00€254
006340
60 006340
006344

10440
000410

005046

113716
104403

001
000

104401

000421
104401

000435

.BYTE

2%:

006216
::75%:
74%:

006256
;:77%:
76%:

006346

::78%:

006454
006454
006462
006464
006466
006472
006476
006504
006506
006512
06514
006516
006517

006520

006524

006532
006536
006542
006550

006552

006560
006562
006566
006574
006600

132737
001146

005001
013700

000042

000377

000200

104401

001¢76
066720

136137

067236

001537
104401
010146
104403
002
000
104401

012760
010160
005760
032760
001051
032760
001450
016002
012737
022702
001430

TYPE
BR
LASCI:

TYPE

3%:
005737
001561
012737

INC
BNE

CLR
MOVB
TYPOS
.BYTE
BYTE

n01330

001300

001243

001300

001217

067130
000040
000010
000012
010000

000010

004000

000000

000026
066736
020025

006766

000010

M
6
11:43:28 PAGE 10-2

SEQ 007
TYPE
BR

006440
006440
006444
006446

4-APR-81

BR
LASCIZ
TYPE
BR
.ASCI2Z

;SUPRESS LEADING ZEROS
*CR-LF

$CRLF

:GET NUMBER Of DRJVES

#-1

;FIRST

.75%
748

<CRLF>/TO

TEST

HALT

PROGRAM,

.78%

THRU HERE

*:TYPE ASCIZ STRING
1:GET OVER THE ASCIZ

DRIVE

-(SP)
XXDP, (SP)

0
/7%
76%

TIME

:NO

;CLEAR WORD ON STACK
*GET DRIVE ADDRESS
;TYPE DRIVE ADDRESS
JONLY 1 CHARACTER

;SUPRESS LEADING ZEROS
;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
REMOVE

RRDP PACK AND REPLACE

[T/<(RLf>

;2 TYPE ASCIZ STRING

.sGET OVER THE ASCIZ

/WITH A WORK PACK,

CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF>

;CHECK FOR AUTO MODE OR STANDLONE MODE
TST
sl
JRUNNING IN AUTO MODE ?
BEQ
STANDAL ONE
;BR IF NO
MOV
#377 ,$DEWM
;SET DEVICE MAP FOR ALL DRIVES

-PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED
XSlzZ:
BITR
#BIT7 ,$ENVM
;SIZING ALLOWED ?
BNE
12%
JNO

CLR
MOV
TYPE

R1
$BASE RO

BITB
BEQ
TYPE
MoV
TYPOS
.BYTE
BYTE
TYPE

ATNTBL (R1) ,$DEVM
11%
:BR

MOV
MoV
TST

#CLR,RMCS2(RO)

BIT
BNE
BIT
BEQ

MOV

MOV
{Mp
BEQ

LSYSTAT

LECRLF

R1.-(SP)

2
0
JBLNKS4

R1,RMCS2{(R0O)
RMDS (RO)

#NED ,RMCS2(R0)

;START FROM DRIVE ©
;LOAD THE BASE ADDRESS
JTYPE

'UNIT STATUS:'

;1S DEVICE PRESENT
1F NO

;CR-LF

;+SAVE R1

FOR TYPEOQUT

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

;CLEAR MASS BUS

;LOAD THE DRIVE ADDRESS
JACCESS DRIVE REGISTER

;IS DRIVE PRESENT

;BR IF NO

4%
RMDT(RO) .R2

:BR IF NO
.
;SAVE DRIVE TYPE REGISTER

#20025.R2
2%

;SINGLE PORT RMO?2 °
;BR [F YES

#DVA,RMCST1(RO)

#$RAMO2,10%

[N MAP ?

;IS DRIVE AVAILARLE

JASSUME RMOZ DEVICE

[N R?

“IRTMMBO RMOS5/3/2 FOINC TST 1
MACRC v04.00
/ALUE FOR SOF TWARE SWITCH REGISTER

95 006602

% 006606

97 006610
98 006616
99 006622

100 006624
101 006630

102 006632
10% 006640

006662
006670
006672
006674

C06700

AY]
N

006770

06772
006776

002000
! 0070064

024025

066743
020025

06766

024024
066750
020027

BEQ
Mcv
MP
BEQ
mp

006766

024027

06675¢

010000

104401

067013

3s:

104401
146137

067030
067236

4($:

104401
146137

067047
067236

00040¢

005737
001406
123701
001360

001330

066776

104401
104401
104401
000000

067060
067132

005201

001300

201300

2%:

000007

104401
000132

001217
007466

TYPE

11%:

12%:

2’3

#26024 ,R2

2%
A#SRMOS5, 108
#20027 ,R2

;BR IF

PORT RMQ?2

YES

JASSUME RMO3 DEVICE
SSINGLE PORT RMO3 ?

;BR IF YES

:DUAL PORT RM0O3

;SINGLE PORT RMQS

:BR IF

YES

sDUAL PORT

6%
7%

;BR IF NO

NOTPRS

:BR IF YES
SASSUME RMOS DEVICE

#26027 ,R2

2%
NOTRM
5%
#MOL ,RMDS (R(O)

RM(QS

:BR IF YES
;DRIVE NOT AN RM0S/3/2
JCHECK NEXT DRIVE
oIS MEDIUM ON L NE ?

;DRIVE NOT PRESENT

+NOTAVL
;DRIVE NOT AVAILABLE
ATNTBL (R1) ,$DEVM
;CLEAR DEVICE
11%
;CHECK NEXT DRIVE

8I1(8B
BR
TST

;CHFCK NEXT DRIVE

JUNTOFF
;DRIVE OFFLINE
ATNT3L(R1) ,$DEWM
;CLEAR DEVICE

FROM BIT MAP

FROM B]T MAP

;PRINT DRIVE

XXpp

;LOADED FROM RM05/3/2 ?

TYPE

8EQ

8s
XXDP ,R1
5%
§§ODEV

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

TYPE
TYPE
TYPE

LUNTON

;DRIVE ONLINE

-WORD

JPRINT DRIVE TYPE
JMESSAGE ADDRESS HERE

INC
mp
BLE

; INCREMENT THE DRIVE ADDRESS

;BRANCH [F NOT

LSCRLF

JCR-LF

(MPS
BNE
TYPE
BR

8%:

#SRM03,10%
#20024 ,R2

;DUAL

TYPE

9%:

6$:

7%:

#26025 .R2

B8R

BI(B
B8R

10%:

020127
003637

BEQ
TYPE
B8R
BIT
BEQ
BR

b1 &

001330

106401

000755

000012

N
6
11:43:28 PAGE 10-3

SFQ 007+
MP
BEQ
MOV
cMP
8tQ
mP

032760
001412
000417

000413

AN
N
=+ OO

104401
000412

000425

~
F

W=D DD
NN
= OO
NN
N
VTP

006660

D00
O
o

D ——d
D o
e
e
Dol e
el
s e
B
D
B el el
i
s
s ekt
it ekl
D
B el

e P v ANWA

el
el ekl et

006644
206646
006652
006654

COC OO0
C
o

AN M NTITONGRC NN TN RN — ek et ek b =D ek 2 2 OO

104
105
106
107

022702
001425
012737
022702
001417
022702
001414
012737
022702
001406
022702
001403

4-APR-81

TYPE

JMP

JBLNKS?

RY1.47

(MNSTARY

;TYPE 2 BLANKS

;ALL DRIVES ARE CHECKED ?

JJUMP TO (OMMON START

WAIAD

4.0

4-APR-B1

17:43:/B PAGE

7
'

WAL .

S€Q 0079

8'\)'\"\”\)'\1?\)'\)’\)‘4“—4—&-&A ed =b
NV
NN OO0 N NS NN
O 0

LOBTTL

0047%7

06422

005227
001023

177777

ONEL:
STYANDA
JSR

IN(
BNE

SSEE

097022
007026
007030
007034
007042
007044
007050
007054
007056
C07062
007066

007070
007070
007076
007076
007102

30
31 007106
3¢ 007106
33 007112
007116
34 007120
35 007124
36 007156

37 007132
18 007134

39 007142

40 0N7144
41 00715¢C
4«2 007152
44 007160
45 007164

46 007166

47 007172

48 007174
49 007200
S0 007202

51 007206
5¢ 007210
53 007216

54 007220

55 007224
56 007226

104401
104411

012637
123727
001005

066344
001176
001176

104405
104401

0V177¢

104401
104401

067124
0C1217

000414
000407

000131

10774

1¢:

104401

001326

104401

104402

104401
104413
012637
001412
022737
101403
104401

066375
001276

160000

001176

106401

066447

005046

,$TMPY
LHELP

;TYPE

113716
104402
104401

TYPE

LSCRLF

TYPE

104413

067132

012637
001412
022737

TF USER WANTS
7ST

001000

104401

066456

113737

001176

101003

000755

B8R

MOV

TYPE

CLR
MovB
TYPOC
TYPE
RDOCTM

001176

MOV
BEQ

001176

(MP

B8HI

TYPE

001272

6H%:

;CR=LF

BLOS

001272

CMpP

5%:

cGET RESPONSE

TYPE
TYPE

BEQ

(%:

STMP1 &Y

TYPE

001276

YHRL HERE

(MPS

MOV

066405

00Q756
013737

TIME

.SAVE AND E(HO RESPONSE
JWAS IT A YES RESPONSE ?
.NO
;TYPE °Y!
JYES - TYPE HELP TEXT

TYPQOC
TYPE
RDOCT

001°76

SFIRST

, $TMP?
1SP)+

TYPE

001176

.BR IF NO

sWANT HELP ?

MOV

067132

a1
2%

JMSHELP

%2{ALOGUE

013746

SJINITIALIZE CONSOLE

YYPE

BEQ
(LR

001326
001217

PC.STKINT

RD{HR
MOV

2%:

INPUT ROUTINES

IF OPERATOR WANTS HELP TEXT

BNE

. SEE

005737
001457
005137

STANDALOME

B8R
MOVR

TO CHANGE UNIBULS ADDRESS

CHGADR

; CHANGE RH/RM BUS ADDRESS ?
;BR IF NO
;NO CHANGE NEXT TIME

7%
CHGADR
CHANGE

°N!

THE

;CR-LF

UNIBUS ADDRESS,

. CNSLO1

$BASE ,-(SP)
LBLNKS?

VECTOR ADDRESS

AND

:TYPE

CURRENT BUS ADDRESS

:TYPE

¢ BLANKS

;. SAVE $BASE FOR TYPEQUT
;.GO TYPE-~OCTAL ASCII(ALL DIGITS)

#1€9000,8TMTMMP1

;GET NEW BUS ADDRESS
;CARRIAGE RETURN ?
sYES=SKIP TO NEXT ENTRY
:eggE ADDRESS IN 1/0 PAGE

LCNSLO?2

;TYPE WARNING MESSAGE

$TMP1,$BASE

;STORE NEW BUS ADDRESS

{SP)+,8TMP1

A 3

INTERRUPT

:TRY AGAIN

.CNSLO3

-{SP)
$VECT, (SP)

;GET CURRENT VECTOR ADDRESS

LBLNKS?2

;TYPE

(SP)+,$ThP]
7%
#1000,%7MP1

. CNSLO4

5%
$TMPT SVECT

2 BLANKS

;GET NEW VECTOR ADDRESS
sCARRIAGE RETURN?
JYES~SKIP TD NEXT ENTRY
:gggng ADDRESS < 1000 °
s TYPE WARNING MESSAGE
sRETRY

;STORE NEw VE(TOR ADDRESS

PRIOR]TY

“IRMMBC RMOS/3/2 FCTNL

STANDALONE

TST 1

INPUT ROUTINES

57
58

59 00723

005227

177777

106401

066512

60 007260

001202

62
€3
&4
65
66

0072646
067252
007256
007262
007264

104401
005037
104401
104411
012637

o8 007276
€9 007300
70 007304

001007
104401
012737

61 0072642

67 007270

023727

MACRO v04.00

001176

-DJALOGUE

78:
8%:
9% :

000101

000137

066330
000377

006454

001300

73 007316
74 007326

023727
001436

001176

000015

76 C07332

023727

;5 007312

75 007326
77 007340

78 007342

79 007350
gg 007352

82
83
84
85

104407

002430

023727
003427
000423

001176

0C1176

001176

007354
007356
007362
007370

104411
012637
023727
001432

001176
001176

87 007376

104401

001176

86 007372

83 007402

89 007410
90 007412

104401

023727

002404
023727

91 007420
92 007422

003403
104401

95 007430

013701

97 007440

156137

32 007426
9 007434

98 007446

99 007454
100 007«56
101 007462

000711

042701

122737

101337
104401
0C0137

10$:

TYPE

LCNSLO7?

STYPE INPUT INSTRUCTIONS

(S”)+,8TMP1

:GET RESPONSE

BNE
TYPE
MOV

108
JALL
#377 ,$DEWM

:NO
SYES, TYPE “‘ALL'' AND GO
;SET DEVICE MAP FOR ALL DRIVES

(MP
BEQ

$TMP1, #(R
12%

:CARRIAGE RETURN ?
IYES

cMP

$TMP1,#'0

TYPE
(LR
TYPE
RDCHR
MOV

BLT

LMP

BLE
BR

11%:

000015

000067
128 :

001176

13s:
001300
14%:

STMPT 4 A

XS12Z

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

SIS

INPUT "ATM*
2

:AUTO SIZE.

,$TMP1

:ECHO RESPONSE

12%

JYES

STMP1 ., #'7
13$
128

:NUMBER < 0 ?

INUMBER > 7 7
:NO
;ILLEGAL

INPUT

;GET RESPONSE
:CARRIAGE RETURN ?
SYES

TYPE

S$TMPI

:ECHO RESPONSE

BLT
cMP

12%
$TMP1 4'7

*YES
SNUMBER > 7 7

BLE
TYPE

MOV

., COMMA

$TMP1,#°'0

:NUMBER < 0 2

:NO
STYPE CR-LF '* ?ILLEGAL

$TMPT,R1

;R1

#~C7.R1

CMPR

#277 . $DEVM

BH]
TYPE
JMP

;TYPE *,

13s
,CNSLO8

BIC

BISR

001300

.SCRLF
$DEVM
.MSDRVS

JBR IF NO

(SP)+,$TMP1
$TMP1 ,4CR
14$

CMP

066654

RDCHR
MOV
cMP
BEQ

TYPE

001176

001217
006454

:FIRST TIME THRU °

TYPE

000067

000060

067236

-1

B8NE

JMP

000060

001176

000377

TO INPUT DEVICE NUMBERS

INC

cMP

066341

177770

7
¢
111:43:28 PAGE 11-1
SEQ NNRY

001217
001300
066676

001176

4-AFR-81

ATNTBL (R1), $DEVM

11%
,$CRLF
XSiZ

SRETRY

INPUTM"’

= DRIVE NUMBER

:DONE ?

sSET DEVICE

:NO
SCR=-LF
;GO SIZE DEVICES

IN MaP

MACRO v04.00

D ad
ek
2
b ed
—

NN
= OO 00 NN DN

007466
007466
007472
067476
007500
007504
007510
007514
007520
007524
007526
007530
007532
007536
007540
007542
007544
007545
007546
007554
007560
007562
007564
007566
007570
07572
007574
007600
007604
007606
007612

007642
007642
007646
007650
007654
007660
007660
007662
007666
007670
007674
007676

007702

007706
007712
007716
007722
007726
007732
007734

4-APR-81

SASSEMBLE

104401
013700
001004
104401
104401

012701
010137
012702
0G5003
030200
0014613
104401

010311
010346
104403
00
000
116361

062701
006302

067236

043400

001007
005737
001002
000137
000137
105037
005037
004737
012746
032746
000002

TYPE
TYPE
MOV

MOV
MoV
CLR

BIY
BEQ

TYPE
MOV
MOV

TYPQOS

004737
000425
104401
000413

105737

1%:

066341

001217

000240

BNE

2%:

104401

005737
001002
000137
000137

TEST QUE

TYPE
MOV

066341
067117
001466
001464
000001

105702

001402
005203
000756
005011

CMNSTART:

067070
001300

000002

.BYTE
.BYTE

000901

3%:

4%:

005422
041620

001300

001116
001206
064210
000240
007734

BEQ
INC
BR
(LR

;SIZE FOR CLOCK
JSR
BR

. :65%:

TYPE
BR
LASCIZ

5%:

BNE
JMP
JMP

READY:

NOP

64%:

6%:

TS7

iSTB

BNE

000042
005422
041620

MOVB
ADD
ASL
TSTB

TYPE

007614

000042

11:43:28 PAGE

SEq 008"

-2

"JRMMB0O RMOS/3/72 FCTNL TST
~TANDAL ONE INPUT ROUTINES

TST

1%:

2%:

64%:

BNE
JMP
JMP
CLRB
CLR
JSR

MOV
MoV
R11

FROM DEVICE MAP

,DRIVES
$DEVM,RO
13

;TYPE *DRIVE(S) 10 BE
;RO = DEVICE MAP

., COMMA

;BR IF

DRIVES TO TEST

:TYPE

*NONE'

TESTED'

STYPE *, "

NONE

#TSTQUE+Z,R1

;R1

R1,TSTQUE
#1,R2

= ADDRESS OF

FIRST

ENTRY

;INITIALIZE ENTRY POINTER
;R2 = DEVICE POINTER

[N OUE

:R3 = DEVICE NUMBER

R2,R0

;1S THIS DEVICE

JNO !

., COMMA

;TYPE *,

J:TYPE

R3, (R1)
R3.-(SP)

IN MAP ?

JYES = ENTER DEVICE NUMBER [N QUE
::SAVE R3 FOR TYPEOUT

;G0 TYPE~-=D(TAL ASCII

DIGIT(S)

: ;SUPPRESS LEADING ZERCS

ATNTBL(RZ) ,1(R1):ENTER ATTENTION BIT IN OUE
22 ,R1
;ADVANCE ENTRY POINTER
R
;ADVANCE DEVICE POINTER

;DONE ALL DEVICES ?

JYES

;ADVANCE DEVICE NUMBER

JENTER NEXT DEVICE

(R1)
LSCRLF

:TERMINATE TEST QUE
STYPE CR-LF

PC.SIZCLK

;SEE

68
,658

64$

<CRLF>/NO

CLOCK PRESENT

;YES - CLOCK IS PRESENT
;:TYPE ASCIZ STRING

*L*

::GET OVER THE ASCIZ
*P'

CLOCK/

w62
S$

;ANY MONITGR PRESENT
:BR IF YES

$GET42

;RETURN CONTROL

TO MONITOR

;READY

TO START

TEST

:BR

YES

$GET42

;RETURN CONTROL

$TSTAM
STIMES, .

;RESET TEST NUMBER
S INITIALIZE NUMBER OF

#PRS ,~(SP)
#64$.~(SP)

$:PUT NEW PS ON STACK
$:PUT NEW PC ON
STACK

START

$DEVM
2%
;G2

START

PC,STKIAT

:JUMP TO START

:ANY DRIVES IN MAP ?
:BR IF YES
:ANY MONITOR PRESENT 2
IF

:JUMP TO START

TO MONITOR

JINITIALTZE TTY

;.POP NEW PC

AND PS

ITERATIONS

rZRMMBO RMUS/3/2 FCTNL TST 1

STANDALONE

INPUT ROUTINES

49 007734

50
51
52

117737

171524

MACRO v04.00

001234

4-APR-81
MovB

£
11:43:¢8 PAGE

I4
12-1

dTSTQUE ,$UNIT

;LOAD DRIVE NUMBER

;CLEAR MASSBUS CONTROLLER, SELECT DRIVE
:OF THE: DIFFERENT DRIVE TYPES

007742
007750
007754
007762

002000
001276
000040
171476

007770
007774

010000
010004
010006

000026

001232

MOV

MOV
MOV
MOVB
MOV
BIC
{MP
BNE
MOV

000010
000010

177770
000007

012737

011000

001332

#TA4 ,LSTRK

$2ASE RO

ASSUME

AND DETERMINE
LAST

TRACK

THE

(AST

FOR RM02/3

;RO = UNIBU> ADDRESS

#CLR,RMCS2(RO)

:CLEAR MASSBUS

RMDT (RO) ,R2

:GET RMDT AND
;SAVE DRIVE TYPE BITS
;IS IT AN RMOS ?
sNO, MUST BE AN RMO2 OR ]MO3

ATSTQUE ,RMCS2 (RO)

#177770,R2
47 ,R2

#TAT6!TA2,LSTRK

010030
010032
010033
69 010034
70 010036
71 010040
72 010042
73 010044

104407
104401

013746
104403

002
000
C05004
005304
001376
005304
001376

001217
066712
0C1234

3%:

TYPE
TYPE
MGV

TYPQOS

.BYTE
.BYTE
CLR
DEC
BNE
DEC
BNE

. SCRLF
,MSGDRV

JYES==SL1

SUN]T,-(SP)

;CR=LF
JTYPE

LAST

TRA(K =

18,

*DRIVE’

;:SAVE $SUNIT FOR TYPEQUT

;:TYPE DRIVE NUMBER

::60 TYPE--OCTAL ASCII

;:TYPE

- &,

;SELECT DEVICE UNDER TEST

;TYPE DRIVE NUMBER TO BE TESTED(SUNIT)
010014
010020
010024

TRA{k

2 DIGIT(S)

;. SLPPRESS LEADING ZEROS

JTHESE TWO LOOPS ARE
JWAIT FOR TTY

ADDED

RMOS/3/2 FCINL TST
CONTROLLER ACCESS

TESY

MACRD v04.00

4-APR=-81

11:43:¢8 PAGE

SEQ 0083
"...t.'filtit‘tt.Qt‘Q"""tl...'t'fit'lfi"

'ltt..t.""""...0".

SeTEST 1

CONTROLLER ACCESS

TEST

010114

010122
010126
610132
010136
010142
010146
010152
010156
010162
010166
010172
010176
010202
010206
010210
010212
010216
010222
210224
010230
010232
010236
010242
Ci0246

000004
000240
012706
013700
013701
012737

001100
001276
001464
000001

005001
013746
013746
012737
012737

000004
000006
010210
000300

11G160

010160
016002
010160
016002
016046

010160

16002

012660
010160
016002
012637
012637
000417
022626
012637
012637
104710

005737
001002
000137
005037
000137

.'.'l!'.'.'.".ll."'

1ST1:

SCOPE
NOP

sSCOPE CALL

MOV
MOV
MOV

001226

000004
000006

CLR
MoV
MOV

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

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

RMWC (RO) ,R2
R1,RMBA(RO)
RMBA (R0Q) ,R2
RMCS2(RO) ,-(SP
R1,RMCS2(R0)
RMCS2(RO
,RZ
)

(SP)+ ,RM(CS2(RO)

R1,RMDB(R0)
RMDB(R®)
,R2
{SP)+ ERRVE(+?2
(SP)+ ,ERRVE(

TEST NUMBER

TESTED

IN APT MAJL BOX

;¢sPUSH ERRVEC ON STACK

;;PUSH ERRVEC+2 ON STACK

;MOVE H] BYTE TO RM(CS1
;MOVE WORD COUNT REGISTER

;MOVE BUS ADDRESS REGISTER

:MOVE

s .PUSH RM(S2(RO) ON STA(K
C(ONTROL STATUS REGISTER

:.POP STACK INTO RM(S2(RO)

sMOVE DATA BUFFER

;.POP STACK

. ;POP STACK

INTO ERRVE(+?

INTO ERRVE(

sNO BUS TIMEOUT OCCURRED

cmMp

(SP)+,(SP)+

JADJUST STACK

%?8)*,ERRVFC

;sPOP STACK

JSTAND ALONE MODE

START1

;YES-GO GET $BASE

(SP) + _ERRVE(+?2

MOV
MOV

Emr
TST
BNE
JMP
LR
JMP

3%:

= DEVICE BEING

#PR6,ERRVE(+?2

Mov

2%:

;oSET

#1% ,ERRVEC

MOV

005412
001300
041432

STACK POINTER

;RO = UNJBUS ADDRESS

MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV
MoV

000042

;(R1)

#1,8TESTN

MovB

1%:

TSTQUE R

MOV

000006
000004

TEST

JINITIALIZE

$8ASE RO

MOV
MOV

000001
000002
000002
000004
0000C4
000010
000010
000010
000010
000022
000022
000006
000004

;START OF

#STACK,SP

. 2POP STACK INTO ERRVEC+/
INTO ERRVEC

;NO!!

$DEVM
$EOF

:FUDGE NO DRIVES IN MAP
RETURN TO S$EOP

;:tttt‘tt'ttfitt*tt**"ttt't.fifit'fiQ.QtQtt.i‘.t"""lt""

tQ.""t

JATEST 2

UNIBUS

INITIALIZE

TEST

o
N

wd oed

d ad

COOOOO00O0

;;tt*fil'titfiifitt"l*ifit"'*"l't'.".‘.ii"Q.Qt!ttt.t'l"t""t"

OO0

A —
» —

-3
b
-—
b

Lol IaVTe NV, P oSV .VE Yo RVoTe - NTo SV, TEEPSNUNT
N

-:t!'t.t"t.ltt.t..!t""tl.Qfitt".‘."t'i.t

000004
000240
012706
013700

013701
012737
012727

004737
000404

1S72:

001100
001276
001464
000091
000002

0522¢4

SCOPE
NOP

001206
001226

)

s SCOPE CALL
JSTART OF

TEST

MOV
MoV

TSTQUE ,RI
#1,8TIMES
#2,8TESTIN

JINITIALIZE STACK POINTER
;RO = UN]JBUS ADDRESS
;(R1) = DEVICE BEING TESTED
2.D0 1 ITERATION
s.SET TEST NUMBER [N APT MA[, ROx

JSR
BR

PC,CNTCLR
1%

:GO ISSUE CONTROLLER 7LEAR
;GO T0 1% IF NO ERROR

MoV
MOV
MoV

#STACK,SP

$BASE RO

MATRO v04.00

&-APR-81

11:43:¢B PAGE

13-1

:
SEQ (0B84

b
NOF

011116

000101
000000
000022
000200

37
38
35

40
41

001432

001543

001544

177777
177777

€0
61
62

010426

012737

010434
070440
010444
010450
C10454
070460
010464
010470
010474
010500
010502
010504
010506
010512
010514
010520
010524

012702
112722

65 010530
010534
010536
010540

112722
112722
112722
112722

112722
112722

004737
000404
000240
104000

000137
000005
004737
111160

004737

177777
040001
003577
021037

010544
010552
019560
010566
010574
010576

013737
042737
012737
023737
001401

001334

;SFTUP REGISTER INDEX

JSR
BR
NOP
EMT
JMP

PC,PUT
38

;GO WRITE REGISTER(S) WITH PUT SUBROUT
INE
;GO TO 3% [F NO ERROR
;RETURN HERE !F ERROR
;ERROR # DEFINED BY PUT SUBKOUT INE
;GO TO 158 IF ERROR

MOVR

#PUT INX ,R2
4RMBA , (R2) +
H#RMER1, (R2)+

#RMER?, (R2) +
#RMMRT , (R2) +
#RM(S1, (R2) +

MOVB

#4200, (R2) +

MOVR

JSR
BR

010600
010604
010612

00503/

004200
001140

001142

001140
001349

001142

;DECREMENT COUNT
;WRITE SILO AGAIN
JRMBA = ALL 1°S
JRMERT = ALL 1°'S
JRMER2 = ALL 1'S

;SET DIAGNOSTIC MODE
|

;R2 =

ADDRESS OF
,

INDEX

TABLE

HRMCS2, (R2)+

PC,PUT
48

;G0 WRITE REGISTER(S) WITH PUT
;G0 TO 4% IF NO ERROR

;RETURN HERE

SUBRROUTINE

ERROR

JSR

PC,STKINT

JSR

PC,GETSTS

(R1) ,RMCS2(RO)

;SELECT DEVICE

JSR

PC,GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

;ERROR # DEF INED BY PUT SUBROUTINE
;GO TO 15S% IF ERROR

JUNIBUS

INITIALIZE

;INITIALIZE CONSOLE
;60 SET UP FOR STATUS FETCh

;GO TO 5% iF NO ERROR

JRETURN HERE

ERROR

EMT
BR

15%

MOy
BIC
MOV

RMCS1],$8DDAT
:VERIFY RMCS1
#SC,$BDDAT
; IGNORE SPECJAL CONDITION
#DVA.RDY,$GDDAT ;EXPECT DVA & RDY

BEQ
EMT

3
115

CLR

$GDDAT

:VERIFY RMBA

BEQ

:BRANCH [f

(MP

6$:

15%

RESET

S%:

15%

EMT
JMP

MOVB

001142
001142
001740

#DMD ! DBEN,RMMR 10

MOVR
MOVR
MOVR

NOP

10G000

15%

MOV
MOVB
MOVR

;WRITE ZEROS IN DATA SILO

#200,PUTINX+1

#003577 ,RMCS10
#021037 .RMCSZ0

MOV

104115

001407

#RMDB, PUT INX

NOP

042770

013737

MOVR

MOV
MOV

064210
000010
042624

SUBROUTINE

;SET OR AND RESET IR

#0 , RMDBO

001410
001420

4$:

ERROR

#65. ,R2

001414
001424
001452

011116

;G0

ERROR

MOV

R2
2$
#-1,RMBAD
#-1,RMER10
#-1,RMER20

001434

158

DEC
BNE
MOV
MOV
MoV

001543
000004
000014
000042
000024
000000
000010
000200
043160

004737
000403
000240
104000
000565

010542

JRETURN HERE

7ERROR NUMBEK DEF INED BY

JMP

MOV

043160

011116

EMT

MNY

$GDDAT,$BDDAT

RMBA], $BDDAT

;ERROR # DEFINED BY GET SUBROUTINE
:SKIP REMAINDER OF TEST

: COMPARE EXPECTED, RECEIVED
;BRANCH IF

EGUAL

.
IS ZERO

ZERO

JRMMBC RMOS/3/¢ FCINL TST 1
l
UNIBUS INITIALIZE TEST

78 010614

104176

80 010616
8" 010624
82 010626

013737
005046

83 010630
84 010634
85 010640
36 010646

87
90
%1
92

005037
013737
042737
001401

87 010650
010652
010656
010664
010672

33 010674

95 010676
96 010704
97 10706

98
99
10C
101
102

010712
010714
010716
010720
010724

103 010726

001142

7%:

000302
005102
000240
040237
001401

BIS

8%:

001142

S
T

e Y JONE R W

e T

R
R
N

ST R

124
125
126
127
128

001142

9%:

001360
000046
000010
001140

010764
010770
010776
011000

005037

001140
001402

011002
11010
11016
011024
011032

013737
042737
012737
023737
001401
104125

001374

005037

001140
001376
040200

10%:
-

001142

11%:

104124

013737
042737
001401
104173

013737
042737
012737
023737
001401
106123

011777
001140

2
2
0
2

MOV
~
BIC
MOV
CMP

12%:

CLR

MOV
BEQ
EMT

MOV
BIf
MOV
CMP
BEQ

EMT

001346
177177
000600
001142

42
42
1142

001142

1140
1140

13%:

14%:

(LR
MOV
8IC
BEQ
EMT
MOV

BIC

MOV
CMP
BEQ
EMT

BRANCH If EQUAL

$GDDAT
RMER1], $BDDAT

:VERIFY RMERT

9%
120

BRANCH [F

RMAS].$BDDAT

:VERIFY RMAS

R2
1R1)

(LR
MOvVR

BEQ
EMT

104122

140000

MoV

: IGNORE UNSAFE

ZEROC

*CLEAR ALL BUT THIS
*DRIVES ATTENTION BIT

R2
R2,$BDDAT
10§
121

BIC
BEQ
EMT

001142
007142
001140
001142

NUMBER

;COMPARE EXPECTED & RECEIVED

8$
117

#UNS , SBDDAT

SWAB
com
NOP

001142

013737
042737
012737
023737
001407

011036
011042
011050
011056
011060

MOV

BIC
BEQ

0C0001

010730
010736
010744
010752
010760
010762

122 011034

$GDDAT,$BODAT

EMT

001352

:VERIFY RMCS?
YEXPECT IR & UNI+

#IR, (SP)
(SP}+.$GDDAT

(MP
BEQ
EMT

104121

013737
001401

13=2

RMCS21,$8DDAT
~(SP)
(R1)
. (SP}

(LR

MoV

001142

001140
001350
040C00

MOV
MOVR

—'OOC!)\JO\\AJ\\NN—'O%

U Sy

105
106
107
108

001344

104120

116102

11:43:¢8 PAGE

SEQ 0085

104117

013737
005002

4~APR=-81
FMT

111116

052716
012637
023737
001401

MATRO v04.00

’

211,$8DDAT

:BRANCH IF

:VERIFY RMMR

C'LSILST,SBDDAT

AMWD , SGDDAT

ITS 0

: IGNORE WORD CLOCK.

JEXPECT WRITE

DATA BIT

SCT.

SGDDAT, $BDDAT
1%
122

:COMPARE EXPECTED AND RECE IVED
BRANCH IF 0

$GDDAT

SEXPECT ZEROS

RMEC21.3B0DAT

TRK

CVERIFY RMECZ - 0

124
RMMR21.$BDDAT

#RQAROB., SBDDAT

4TST.1777 ,8GDDAT
$GDDAT, $BDDAT

:VERIFY RMMR2
JEXPECT

13%
125

$GDDAT
RMERZ] ,$8DDAT

TEST,TAG BIT ON
|

JEXPECT ALL ZEROS
VERIFY RMER2

4SK1.DVC,$BDDAT
}g%

;IGNORE DEVICE ERRORS
;BRANCH [F OTHER BITS 0O

RMDS],$BDDAT *

:(MECK DRIVE

$3DDAT ,$GDDAT
}gg

;(OMPARE EXPECTED & RECEIVED STATUS
sDRIVE STATUS IS Ok

#*C<DPR.DRY>,$BDDAT
#DPR.DRY ,$GDDAT EXPECTED

STATUS REGISTER

STATUS

CZRMMBO RMO5/372 FCINL TIST 1
12
UNIBUS INITIALIZE TEST

MA(RO v04.00

135 011116
126

e
—d

) ol

-d-4c>\485>Chununm\n:POOONON
b s
NSO
S WNAANNI
NN

ndh
b

d ead o ech =
e
POPUND) = ad

QON
N

) il

d e
D o

b md o

—d

OOO0COOO

b
d e cad e
b
b
b md d
—td

144
145
146

011214

000004
000240
012706
013700
013701
012737

AN
WIN
WINNWNWNW
wVivaivh - aa
SSANANIN)
—
NN
OO NONNIONNONNY

wd —k —d
b —
b
ok
b
ek

B R

001100
001276
001464
000003
052264

000137

011454

012702
012737

060101
000000
000022
000200

104000

112737
112737

004737
000404
000240

043160

000137
005302
001367
012737
012737
012737
012737
012737
012737

017454
177777
177777
177777
040001
003577

021037
001543
000004
000014
000042
000024
000000
000010
000200
043160

333

R e g

od
e
d

CONTROLLER CLEAR

TEST

1%:

001432

001543
001544

004737
000404
000240
104000

000137

052264

011454

t."t't'!"QO'Q

SCOPE
NOP
MOV
MOV
MOV
MOV

001226

2%:

3%:

001414
001424
001452
001434
001410
001420

JSR
BR
NOP
EMmM7T
JMP
DEC
BNE
MOV

MoV
MOv
MOVB
MOVB
MOVB
MOVR
MOVR
MOVB
MOVB
JSR
BR
NOP
EMT
BR

JSR
BR
NOP
Emry
JMP

STACK POINTER

;RO = UNIBUS ADDRESS

TSTQUE ,R1

;(R1)

#3,8$TESTN

”65-,R2
#0,RMDBO

TEST

JINITIALIZE

$BASE ,RO

MOV
Mov

MOVB
MOVB

;START OF

#STACK,SP

MOV
g 101Y)
MOv

4%:

:SCOPE CALL

JER
BR
NOP
EMT
JMP

MOV

000430

bk
b

DOOQOOO

1ST3:

004737
000404
000240

e e s R X R W )

QOOOOOOO0O

)
I
O
T
L

[o Yo Yo YV, ](Al IV, IV, LV, ¥, |
A== O0 [¢ < IaNTo
NV, P V]

152

165
166
167

!"Qt!'tt't"."'nQtlt

‘:"lt"lfi'.'ti'tt'..it"‘fl't'.fit.t.ttttt'ttl'.Q't

104000

164

13-3

';tQ‘t..t.QQ.Q.tt"ti""t.fiQ.t.t'fl'l""l.

LeTEST 3

COQOVTOODOOO
o ced v
d cad o el e oD wnd —d b

143

11:43:¢8 PAGE

15%:

137

140
141
142

4&<APR-81

DEVICE

PC,CNTCLR

;GO

TESTED

[SSUE

CONTROLLER

CLEAR

;G0 TO 1% IF

NO ERROR

;WRITE

IN DATA SILD

JRETURN HERE [F ERROR
;ERROR NUMBER DEF INED BY SUBROUTINE
;GO TO 8% IF ERROR
ZEROS

#RMDB , PUT INX

JSETUP REGISTER

PC,PUT

;GO WRITE

#200,PUTINX+1

8%
R2
2%

BEING

;;SET TEST NUMBER IN APT MAIL BOX

INDEX

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

TABLE

WITH PUT

SUBROUTINE

JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 8% IF ERROR
;DECREMENT COUNT

#-1,RMBAC
#-1 ,RMER10
#-1 ,RMER2O
#DMD ! DBEN ,RMMR10

JAND WRITE SILO AGAIN If NOT DONE

#003577 ,RMCS10

#021037 ,RMCS20

H#PUTINX,R2

;RZ

ADDRESS OF

INDEX TABLE

#RMBA, (R2)+
HRMERT, (R2)+
#RMERZ, (R2)+
HRMMRT, (R2) +
HRM(CS1,(R2)+
HRM(S2, (R2)+
#200, (R2)+
PC,PUT
4%

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

SERROR # DEFINED BY PUT

PC.,CNTCLR
5%

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

JRETURN HERE

IF ERROR

JRETURN HERE

ERROR

;GO TO 8%

ERROR

SUBROUTINE

;ERROR NUMBER DEF INED BY SUBROUTINE
IF

“JRMMBO RMOS/3/2 FCTNL IST 1
'3
CONTROLLER CLEAR TEST

168 011370

004737

0462624

170 011374

004737
00040%
000240

042710

000137

011454

004737
000405
000240

052402

169

104000

171

MACRO v04.00

4-APR-B1

004736

° 73
174
175

011440
011444
011446
011450
011452
177 011454

011454

012737

000030

004737
000403
000240

044540

13-4

SEQ 0087

5¢%:

6%:

001410

Is ¥

104000

004736

179

PC,GETSTS

;SETUP TO READ ALL REGISTERS

JSR
B8R

PC,GET
6%

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 6% IF NO ERROR
JRETURN HERE [F ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 8% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

mMov

#NOP ,RM(S10

;CHANGE

JSR
BR
NOP

P{,SECERR

;GO CHECK FOR SECONDARY ERRORS

EMT
JSR

8%:

178

JSR

NOP
EMTY
JMP

104000

000137

11:43:¢8 PAGE

PC,CLRSTS

PC,a(SP)+

;G0 VERIFY (ONTROLLER rLEAR OPERATION
;GO TO 78 IF NO ERROR

JRETURN HERE

ERROR

;ERROR # DEFINED BY CLRSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHE(KS

;GO TO 8% IF ERROR

FUNCTION CODE FOR ERROR (HECK

;60 TO 8% IF NO ERROR

JRETURN HERE ]F ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR (HE(KS

".'"t'*itlttfi'!'ttttttt.t'ttttttfiittfititt'ttttttt'tf

ittttt*tt't'tt

s*TEST

ERROR CLEAR TEST

".'.'tt't!itflthttt!tl’"fiti'tfit"!l'fl'Q!'fit.fi'

180

011454
011454
011456
011460
011464
011470
011474

\ji\h\l\\.fl\l\bl\
=
OONN QRN
OO rLID
NSOV

C_):O\

S& 8

b —d

Vv (U RV NV, LV LAV, IV V. IV, ]

b cd
ad

d b d b

d ot cd
ok

)

—t d el b ——d ok

eg
[

184
185
186
187
188
189

—d red aucd b

182
183

)

d be

jeleloeleBolelolelololololalelelololole

181

ttt"fitttt.tttt!l*tt"

000004
000240
012706
013700
013701
012737

004737
000404
000240
104000

1ST4:

‘

001100
001276
001464
000004
052264

000137

011660

112737
112737
012737

000000
000200
040000
043160

004737
000403
000240
104000
000441

112737
112737

112737

004737
000403
€00240
104000

001226

000000
000010
000200

042710

001543
001544
001410

10%:

20%:

SCOPE

NOP
MOV
MOV
MOV
MoV

;SCOPE CALL
#STACK ,SP

$BASE ,RO

;START OF

TEST

;INITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

TSTQUE ,R1
6 STESTN

;(R1)

JSR
BR
NOP
EMY
JMP

PC,CNTCLR

;GO ISSUE CONTROLLFR (LEAR
;GO 7O 108 IF NO ERROR

MovB
MOVR
MOV

ARM
1, PUT
CS
INX
#200,PUTINX+1
#TRE ,RMCS10
PC,PUT

JSR
B8R
NOP
EMT
B8R

MOVB

108

508

20%
50%

ARMCST,GETINX
ARMCS2
,GE TINX+1

MOvVB
MOVR

#200,GE TINX+?2

JSR

PC,GET

NOP
EMT

30%

;oSET

= DEVICE BEING

TESTED

TEST NUMBER IN APT MAIL BOX

JRETURN HERE

ERROR

;ERROR NUMBER DcF INED BY SUBROUTINE

;GO TO 508 IF ERROR

sSETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMCST1 OUTPUT BUFFER
TRE
;GO WRITE RMCS1 VIA PUT SUBROUTINE

;GO TO 20% IF NO ERROR

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

;GO READ REGISTER(S) WITH GET SUBROUT INE

;G0 TO 308 IF NO ERROR
JRETURN HERE

ERROR

sERROR # DEFINED BY GET SUBROUTINE

TST

ERROR CLEAR TEST

200 011656
201
202 011660
203
204

001344

106377

rorn

013737
062737
001401

fol
o8

0
011654

001401
104137

—t

206 011706
011712
011714
011716
011720
207 011724
208 011724

INSIASTASTAS
AN [ N1, P11, ¥} ASTANT,V1,81,81,87,¥1,¥}
AN TAS AN LN VT N LVTN d el el el =) —— ed
NN —
NOVWNR W2 OO CONONN

210 011730
011734
011736
011740
011742
011744
011752
011754
11762

011770
011776
012004
012006

40%:

0
;EXPECT

#*(<TRE .MCPE>,$SBDDAT

403
137

sBRANCH [F

RM(S21,$BDDAT

TRE & MCPE

- 0

;CHECK RM(S?

#‘C<HCE'UPE'NED‘PGE‘MXF'MDPE> $BDDAT

BI(C
BEQ
EMT

503
140

50%:
s

AR AR AR RN RN NARRA AN AT RN AT AN R RN N AN RAA N RN NN SN NN AAN S

STEST

000004
000240
012706
013700
013701
012737

001100

001276

001464
000005

052264

004737

042624

004737
000403
000240

042710

001226

013737

104151
000440

(12034
228 012042
229 012044
230 012052

032737
001022
013737
012737

SCOPE
NOP
MoV
MoV
MoV
MoV

JSR
8r

012174

1%:

104000

000514
032737
001016
013737
042737
052737

DRIVE

AAAASEAAAARARR

1815:

004737
000404
000240
104000
000137

032737
001422
013737
005037
104152

012010

;SKIP REST OF TEST
- CHECK rns & MCPE

RMCS11,$BDDAT
$GDDAT

MOV

104140

012016
012020
012026
012032

13-S

508

MOv
(LR

BI(
BEQ
EMT

011666
011660
611662
011664
011670
011674
011700

11:43:28 PAGE

30%:

001142

—

001142

—

195
196
197
198
199

N-d—.

192 0

°93 0
194 0

000422
013737
005037
042737

4-APR=81

SEG 0088
-0
—O0Q

190 011612

MACRO Vv04.00

[ole)
o0

FCTNL

NN
wNO
TM

7R~FBO RMOS5/3/2

010000

001346

001346
162000
010000
001346

001140
001140
001140
001142

2%:

$BASE RO

TSTQUE ,R1
#5,8TESTN
PC,.CNTCLR

JSR

PC,GETSTS

JSR
BR
NOP
EMT
BR
B8IT
BNE

PC.GET

MOV

EMT
BR

TEST
A

#STACK,SP

BIC
BIS

#MOL ,RMDS ]

:START OF

TEST

JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED
s.SET TEST NUMBER IN APT MAIL BOx
;GO ISSUE CONTROLLER (LEAR

;GO TO 18 [F NO ERROR

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

;GO READ REGISTER(S) WITH GET SUBRQUTINE
;G0 TO 2% [F NO ERROR
JRETURN HERE If ERROR
JERROR # DEFINED BY GET SUBROUTINF
;SKIP REST OF TEST
JMEDIUM ON LINE??
JYES!!

JEXPECTED STATUS

#MOL
, $GDDAT
RMDSI,$BDDAT
151

sMOL

001376
001140

001142

Moy

RMERZ2]
, $BDDAT
$GDDAT
152

040000

001350

HUNS ,RMER1 |

001350
040000

001142
001140

BIT
BNE

MOV
MOV

#ATA!ERR!PIP!LBT,SGDDAT

001376

CLR
EMT

RMDSI, $GDDAT

000200

BIT
BEO

A RN A AR A NI AP g o

sSCOPE CALL

NOP
EMT
JMP

MOv

3%:

STATUS

ZgVC,RMER?I

RMER11,$B8DDAT
#UNS
, $GDDAT

JRECEIVED STATUS
STATUS

INCORRECT

;1S THERE A DEVICE (HE(K??
;BR IF NO
JRECEIVED STATUS
JEXPECTED STATUS
;DRIVE FAULT

1S UNS SET??
JYES!!
JRECEJVED STATUS

JEXPECTED STATUS

JRMMBO RMOS5/3/2 FCTINL
DRIVE

STATUS

d cd wrd e and

—d eed it

OOOOOO

012060
012062

wod

TST

TEST

MACRO VO4.00

&~APR=-81

EMT
BR

032737
001410
013737
005037

040000

001350

001350
001140

001142

000137

041374

032737
001412
013737
042737
013737

004000

001346

166076

001346

001140
001140
001142

040000

001376

104175

032737
001406
013737
005037
104205

061376
001140

4%:

012312
012314
012316
012320

#UNS ,RMER1]

JMP

$EOSP

154

;'DVC' 1S NOT SET, BUT “UNS' IS

BIT

#WRL ,RMDS |

;IS WRITE PROTECT ON??

BEQ
MOV
BIC
MOV
EMT

7%:

BIT

SRS

;SKIP REST OF

#SK1,RMER?]

8%
RMER2],$BDDAT
$GDDAT

EMT

JNO.
!
;RECEIVED STATUS
JEXPECTED STATUS

TEST

79
;NO!!
RMDS1,$GDDAT
JEXPECTED STATUS
#*C<MOL !PGM!DPR!DRY
!VV!OM>, SGDDAT
RMDS1,$BDDAT
JRECEIVED STATUS
175
;SELECTED DEVICE IN WRITE PROTECT

BEQ
MoV
CLR

001142

;1S UNS SET??

6%
RMER11,$8DDAT
$GDDAT

EMT

68:

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

BEQ
MOV
CLR

S*TEST 6

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 012306

153
5%

BIT

5%:

012174
012174
012176
912200
012204
012210
012214

13-6

SEQ 0089

104153
000472

104154

11:43:¢28 PAGE

205

;1S SKI SET??

:NO!!
;RECEIVED STATUS
JEXPECTED STATUS

;PERSISTENT SEEK

INCOMPLETE ERROR

22222222222

PRIMARY/SECONDARY ERROR TEST

".'Qttittfil’t"’tt'.t.i*tttt"‘t‘t'.l‘tfit'tttfi.'.t.tl"

tt"tt*.tttttt

000004
000240
012706
013700
013701
012737
004737
000404
000240
104000

TST6:

001100
001276
001464
000006

112737
112737

000000
000200
000023
043160

042624
043522

004737
000403
000240

042710

000415

001543
001544
001410

2%:

#STACK,SP

$BASE RO
TSTQUE R1

#6 STESTN

s;SET TEST NUMBER IN APT MAIL BOX

JSR
BR

PC,CNTCLR
1%

;GO ISSUE CONTROLLER CLEAR
;GO TO 1% IF NC ERROR

JRETURN HERE

IF ERROR

EMT
JMP

MOvB
movs
MoV
JSR
BR

#RMCS1,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+1
;SET TERMINATOR BYTE
#PAKA(CK .GO,RM(S10
:SET RMCST OUTPUT BUFFER - PAKACK.GO
PC.,PUT
;GO WRITE RM(CS1 VIA PUT SUBROUTINE
2%
;GO TO 2% IF NO ERROR

NOP

004737
004737

104000

;SCOPE CALL

;START OF TEST
;INITIALIZE STACK POINTER
;RO = UNJBUS ADDRESS
;(R1) = DEVICE BEING TESTED

MoV

NOP

012354

104000
000427

001226

052264

000137

012737
004737
000403
000240

SCOPE

NOP
MoV
Mov
MoV

;ERROR NUMBER DEF INED BY SUBROUTINE
:GO TO 5% IF ERROR

;JRETURN HERE

IF ERROR

EMT
BR
JSR

5%
PC,GETSTS

;ERROR DEFINED BY PUT SUBROUTINE
;SKIP REST OF TEST IF ERROR
;SETUP FOR STATUS FETCH

JSR
BR

PC,GET
3$

;GC READ REGISTER(S) WITH GET SUBROUTINE
;G0 _TO 3% IF NO ERROR

JSR

NOP

EMT
BR

PC.TIMOUT

JWAIT FOR COMPLETION OF NOP

JRETURN HERE

ERROR

JERROR # DEFINED BY GET SUBROUTINE
JSKIP REST OF TEST IF ERROR

(ZRMMBC RMOS/3/2 FCTINL TST 1
MACRO v04.00
PRIMARY/SECONDARY ERROR TEST
T€

266 012322
267 012322
012326

012330
012332
012334
268 012336
269
012340
270 012340
012344
012346
012350
012352
271 012354
272

004737
000404
000240
104000

4-APR=-81

SEQ 0090
JSR
BR
NOP
EMT
JSR
BR

004736

000406
004737
000403
000240

044540

5¢:
A

TEST

MLASESEE

000004
000240
012706

274

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

281

elelelele]

282
283
284
285
286
287
288 012542
289 012544
290 012552

TS 17:

013700
013701
012737

001100
001276
001464
000007

004737

052264

000404
000240

104000

000137

013426

112737
11737

000024
000200
000001
043160

012737
004737
000404
000240
104000

013426
042624

004737
000404
000240
104000
000137
032737
001011
012737
013737

042710

000137
032737
001411
013737
042737

001543
001544
001434

2%:

000001
001360

001140
001142

013426
010000

001346

0013¢5
1€77

201142
001142

3%:

;GO TO 5% IF NO ERROR

:RETURN HERE

PC,a({SP)+

SRRl

ERROR

:ERROR # DEF INED BY SECFRRTM SUBROUT INE

;GO BACK FOR MORE ERROR CHE(RS

222222222212

TEST

2222222322222

;SCOPE CALL
;STARY OF

TEST

$BASE RO

JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

#7,8TESTN

;.SET TEST NUMBER IN APT MAIL BOX

JSR

PC,CNTCLR

;G0 ISSUE CONTROLLER CLEAR
;GO TO 1$ [F NO ERROR

EMT
JMP

#STACK,SP
TSTQUE ,R1

21%
ARMMRT ,FUT INX
#DMD ,RMMR10
PC.PUT

NOP
EMT
JMP
JSR

PC.GETSTS

JMP
BIT
8NE

EMT

JMP

BIT
BEQ

MOV
BIC

;(R1)

= DEVICE BEING TESTED

JRETURN HERE IF ERROR

MOVB
MOVR
MOV
JSR

MoV
MOV

4%
:

;GO CHECK FOR SECONDARY ERRORS

MOV
MoV
MOV
mMov

EMT

001360

PC,SECERR

SCOPE
NOP

JSR
BR
NCP

013426
000001

PC,a(SP)+

RS AL RARAR

BR
NOP
1%:

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

;RETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR (HECKS
;SKIP REST OF TEST IF ERROR

DIAGNOSTIC MODE

000137
004737

104176

001226

PC,PRIERR

JSR
BR
NOP
EMT
JSR

104000

004736

13-7

3%:

043706

11:43:28 PAGE

#200,PUTINX+1

21%

PC,GET

21%

;ERROR NUMBER DEF INED BY SUBROUTINE

;GO TO 218 IF ERROR

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
.SET RMMR1 OUTPUT BUFFER - DMD
;GO WRITE RMMR1 VIA PUT SUBROUTINE
;GO TO 2% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEFINED BY PUI SUBPOUTINE

;GO TC 218 IF ERROR

;SETUP FOR STATUS FETCH
;GO READ REGISTER(S) WITH GET SUBRGCUTINE

;GO _TO 3% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 218 IF ERROR
:igs ?IAGNOSTIC MODE SET??

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

JEXPECTED STAIUS

21%

;SKIP REST OF

5%
RMDSI,$BDDAT

*SETUP BAD DATA FOR TYPEOUT

RMMR11,$BDDAT
176
A#MOL ,RMDS |

#~CMOL
, $BDDAT

JRECEIVED STATUS
SIS "mMoL't

JYES!!

TEST

DMD - O

:;RNWBO RMOS5/3/2 FCINL

DIAGNOSTIC MODE

297 012560
292 012564
293 012566
294 012574
295 012576
296 012604
297 012612
298 012620
299 012622
300 012630
301 012632
302 012640
303 012646
304 012652
305 012654

306 012662
307 012664
308 012672
309 012700
310 012704
311 012706
312 012714
313 012716
314 012724
315 012732
316 012736
317 012740
518 012740
012746
012754
012762
012766
012770
012772
012774
319 013000
500 013000
013004
013006
013010
013012

321 13016
322 013024

323 013026
324 013634
325 013042
326 013044
327 013050
328 013056
329 013060
330 013086
331 013074

332 013102

333 013104
3 013112

335 013114
We 313002

005037
10417C
032737
001012
013737
042737
012737
104200
032737
(001411
013737
042737
005037
104201
032737

T1ST

TEST

MACRO v04.00

001140
020000

001346

001346
157777
020000

001142
001142
001140

004000

001346

001346
173777
001140

001142
001142

040000

001376

001376
137777
001140

001142
001142

000200

001376

001376
177577
001149

001142
001142

112737
112737
012737
004737
0004C4
000249
104000
000137

000024
000200
001711
043160

001543
001544
001434

004737
000404

042710

032737
00101

000001

001360

000001
001360

001140
001142

013426
010000

201346

001411
013737
042737
005037
104202
032737
001411
013737
042737
005037
104203

000240
104000
000137

012737
013737
104176
000137
032737
001012
013737

042737

012737
104170

032737
001411

013737
042737

013426

S$%:

6%:

7%:

8%:

9%:

10%:

001346
167777
010000

001146

020000

001346

001346
57777

001142
001142

11$:

12%:

001142
001142

4-APR-B1

CLR
EMT
BIT
BNE
MOV
BI(
MoV
EMT
BIT
BEQ
MoV
BIC
CLR
EMT
BIT

$GDDAT
170
#P1P RMDS!
6%
RMDS1,$BDDAT
#~CPIP, $BDDAT
AP1F ,8$GDDAT
200
#WRL ,RMDS]
s
RMDS 1 ,$BDDAT
#*CWRL
, $8DDAT
$GDDAT
201
A#SKI1 ,RMERZ]

13-8

SEQ 009"

;SETUP GOOD DATA FOR TYPEOUT
;1S PIP
SET??
SYES!.
:SETUP BAD DATA FOR TYPEQUT
SEXPECTED PIP SET
;IS WRITE LOCK OFF??
JYES!!
;SETUP BAD DATA FOR TYPEQUT
JEXPECTED WRL = 0
;IS SKI -0

BFQ
MOV
BIC
CLR
EMT
BIT
BEQ
MOV
BIC
CLR
EMT

8%
RMERZI ,$BDDAT
#~CSK],$BDDAT
$GDDAT
202
#DVC ,RMER2]
9%
RMER21,$BDDAT
#2CDVC,$BDDAT
$GDDAT
203

MOVB
MOVB
MOV
JSR
BR
NOP
EMT
JMP

#RMMR1,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+1
.SET TERMINATOR BYTE
#DMD ! MUR ! MOC !MSER !MDF !MWP ,RMMR10
;SET RMMRT QUTPUT BUFFER = DMD!MUR M
PC,PUT
;G0 WRITE RMMR1 VIA PUT SUBROUTINE
10%
;GO TO 108 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUTINE
21%
;GO TO 21% IF ERROR

JSR
BR

PC,GET
118

8IT
BNE

#DMD ,RMMR1]
12%

NOP
EMT
JMP

218

MoV
MOV
EMT
JMP
BIT
BNE
MOV

#DMD, $GDDAT
RMMR1I,$BDDAT
176
21%
AMOL ,RMDSI
13$
RMDSI,$BDDAT

MOV
EMT

#MOL , $GDDAT
170

BIC
13%:

11:43:28 PAGE

BIT
BEQ

MOV
817

#~CMOL , $BDDAT

#P1P RMDS]
143

RMDS1,$BDDAT
#~(P1P $BDDAT

JYES!.
;SETUTM BAD DATA FOR TYPEOUT

;SKI SHOULD BE 0O
;1S DEVICE CHECK
= 0??
JYES!!
:SETUP BAD DATA FOR
TYPEQUT
;DVC SHOULD BE 0

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 11$ IF NO ERROR
JRETURN HERE IF ERROR
“’
JERROR # DEFINED BY GET SUBROLTINE
b
;GO TO 21% IF ERROR

;1S
DIAGNOSTIC MODE SET??
JYES.!

SJEXPECTED STATUS
;RECEIVED STATUS

;SKIP REST OF TEST IF DMD = 0
;IS MOL = 122
JYES.!
;SETUP BAD DATA FOR TYPEOUT
{
SJEXPECTED MOL =
SIS PIP -0 7?
SYES!!
;SETUP BAD DATA FOR TYPEOUT

RWMBC RMOS/3/c "~ TN TST 1
?
DIAGNOSTIC MODE TEST
v

d d
-t

e cond

032737
001012

013737
042737
012737
104201

gpnnuu—a
s
0n

N
onr

IaSlav LVLAF LoV Ia S 1V101

NOCOONON
N NN S
WNND
= = —
8 NOCSNVOBPMOO
o~ IS 1o Na T,V L ¥ ¥ V] 80
j=]

wguwwwuww KR N AN N AN NN AN

UL
N AN

— e

D
ek

N U AN O

e
i

N A
N

d et e
D mah
D el

ALl U AN LA

e
o
D it e
e
el e

368
369
370
371
372
373
374

—

NN A

365
566

104200

NN
AN AN

364

005037

209

d o ek md

oleldlelelalelolololeldlololelelolaleololels) jolelolelclolglololelolalolalololololeloloTolole
e

337

D ek D ek D b e e ek e b e oD S b el ek o p
WWANN SN N AN N AN U N AN N NN
NN DIN N W

032737
001012
013737
042737
012737
104202

032737
001012
013737
042737
012737
104203

032737
001411
013737
042737
005037
104204

112737
112737

012737

004737
000404
000240
104000
000137

001346

004000

001142
001142
001140

040000

001376

040000

001142
001142
001140

000200

00137¢

001376
0006200

001142
001142
001140

000100

001346

007346

001142
001142

17377~

1372777

177577

177677

001140

000000
000200
000011
04360

013426
002000

104262

001543
001544

14%:

15%:

1¢%:

17%:

18¢:

001410

013426

000137
032737
001012
013737
012737
042737

4-aPR-B81

004000

042710

104000

MAlRC v04.00

001140

004737
000404
000240

375

19%:

200
#WURL ,RMDS |

MOV
BIC
MOV

RMDSI,$BDDAT
#*CWRL ,$8DDAT
#WRL ,$GDDAT

8I7

#SK] ,RMERZ]

BNE

EMT

001376
002000
002000

001142
001140
001142

201

163
RMERZ2],$BDDAT
#*~(SK],8BDDAT
#SK],$GDDAT
202
#DV( ,RMERZ]
17%
RMERZ] ,$BDDAT
&#~(DV(,$8DDAT
#DV(,$GDDAT

BIT

#VV RMDS]

BEQ
MOV
BIC
(LR
EMT

203

18%
RMDS],$BDDAT
#*Cvv,SBDDAT
$GDDAT
204

IS WRL SET2?
SYES!!

;SETUP BAD DATA FOR TYPEOUT

SEXPECTED GOOD STATUS

;1S SKI SgET??
JYES'!
:BAD DATA FOR TYPFQOUT
JEXPECTED SKI

22
;1S DvC SET
SYES..
;BAD DATA FOR TYPEOLIT
JEXPECTED DVC ON
JMUR SHOULD HAVE RESET VOLUME VAL ID
:BRANCH IF IT DID
;BAD DATA FOR TYPEQUT

.G00D DATA FOR TYPEQUT

JRETURN HERE IF ERROR
;ERROR DEFINED BY FUT SUBROUTINE
;GO TO 218 IF ERROR

+SR

PC,GET

. GO READ REGISTER(S) WITH GET SUBROUTINE

JMP

#RM(ST,PUTINX
sSETUP PUT INDEX TASLE
#200,PUTINX+1
;SET TERMINATOR BYTE
#DRVCLR!GO,RM(CS10
:SET RMCH1 OUTPUT BUFFER
PC,PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE
19%
;GO TO 198 IF NO ERROR

20%

213

817 #LBC,RMER?]

BNE 21%
MOV RMERZ2],$BDDAT
MOV #LBC,

21%:

SEXPECTED PIP STATUS

MOVB
MOVB
MOV
JSR
BR
NOP
EMT
JMP

NOP
EMT

20%:

15%

BNE
MOV
Bi(
MCV
[mr
BIT
BNE
MOV
BIC
MOV

EmMT

13-9

$GDDAT

EMr
8IT

00137s

17:43:¢8 PAGE

$GDDAT

BIC #LBC, $BRDDAT
EMT
262

;GO 70 208 IF NO ERROR

JRETURN HERE IF ERROR
SERROR # DEFINED BY GET SUBROUTINE

;GO TO 218 IF ERROR
;IS LBC SET 22

JYES!.

;BAD DATA FOR TYPEOQUT
.GOOD DATA FOR TYPEOQUT

‘.'t"'il‘t"‘t't'tt'i*'i'tit"ilt!tfit"...'lt"!'tt'tt.t""‘t"t

;*TEST

PACK ACKNOWLEDGE

TEST

b
il vl
) o)

FBRR

“'l."t'."ttt"tlfittitt""t*'lt.t*"'t*lt'i't"'t"t.t'fi""'l'

OCOOO

TIST10:

000249
012706
013700

SCOPE
NOP
MOv
MOV

;SCOPE CALL

#STACK,SP
$BASE RO

;START OF

TEST

JINITIALIZE STACK POCINTER

;RO = UNJBRUS ADDRESS

DRVCLR!GO

1380 RMCS/3/72 FCINL
PACK

TST

ACKMNOWLEDGE

TES?

073442
013446

013701
012737

001464
00010

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
013572
013572
013600
013606
013614
013620
013622
013624
013626
384 013632
385 013636

004737
000404
000240

052264

000137

013726

112737
112737
012737

000024
009200
000001
043160

376

386
387 013642
013646
013650
13652
388 013654
389 073656
390 013656

391
392
393

013662
013664
013666
913670
0i3672
013674
013674
013700
013702
013704
013706
C137210

164000

004737
000404
000240
104000

000137

013726

112737
112737

000024
060200
000000
043160

012737
004737
000404

000240
104000
000137

112737
112737
012737

004737

000404
000240
104000
000127
0047327
004737

004737
000403
000240

MACRC v04.00 4-aPR-BT1 11-43:28 PAGE¢ 1?-10
001226

001543
001544
001434

013726
000000
000200
000023
043160

013726

042624
043522

001543
001544
001410

1%:

2%:

A ¥

042710

1040C0

000424

004737
000404
000240

143706

104000

004736
000406

TSTQUE ,R1
#10,STESIN

s(R1)

JSR
BR
NOP
EM7
JMP

PC,CNTCLR
18

;GO ISSUE CONTROLLER CLEAR

MOvB
MOVB
MOV

ARMR1,PU
INX
T
#200,PUTINX+1
#DMD ,RMMR10

JSR
BR
NOP
EMT
JMP

MOvB
MOVB
MOV

5%:

053262

PC,PUT

8%
#RMMRT
, PUT INX

#200,PUT INX+1

#0 ,RMMR10
PC,PUT

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

ERROR

sSETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMMR1 OQUTPUT BUFFER - DMD
;GO WRITE RMMR1 VIA PUT SUBROUT INE
;GO TO 2% IF NO ERROR
JRETURN HERE IF ERROR

;ERROR DEF INED BY PUT SUBROUT INE

;GO TO 8% IF ERRCR

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMMR1 OUTPUT BUFFER - 0
;GO WRITE RMMR1 VIA PUT SUBROUTINE
;GO TO 3% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUT INE
;GO TO 8% IF {RROR

MOVB
MovB
MOv
JSR

W#RMCS1,PU
INX
T
#200,PUTINX+1

;SETUP PUT INDEX TABLE

;GC TC 4% IF NO ERROR

EMY
JMP
JSR
JSR
JSR
BR
NOP
EMT
BR
JSR
BR
eM7

= DEVICE BEING TESTED

;oSET TEST NUMBER [N APT MAIL BOX

JMP

NOP

104000
004736
000415

004757
000404
000240

MOV
MOV

JSR
BR
NOP
EMT

3%:

SEC LUvY’

:SET TERMINATOR BYTE
;SET RMCST OUTPUT BUFFER
PAKACK'GO
WRITE RMCS1 VIA PUT SUBROUTINE

#PAKACK !GO,RMCS10
PC.PUT
;GO

:RETURN HERE IF ERROR

PC,GETSTS
PC, TIMOUTY

PC.GET
5%

JERRDR DEF INED BY PUT SUBROUTINE
;GO TO 8% IF ERROR

JWAIT FOR COMPLETION

;GO READ REGISTER(S WITH GET SUBROUTINE
;GO _TO 5% IF NO FRROR

SsRETURN HERE IF ERROR
;ERROR ¥ DEFINED 8Y GET SUBROUTINE
;SKIP REMAINDER OF TEST

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

JSR
B8R

PC.a(SP)+

JSR
BR
NOP
EMT
JSR
BR

PC,ACKSTS

8%
7%

PC,a(SP)+

;GO TO 6% IF NO ERROR
;RETURN HERE IF ERROR
SERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHE(KS

;SKIP TO NEXT TEST

;GO VERIFY PACK ACKNOWLEDGE

;GO TO 78 !F NO ERROR
JRETURN HER{ IF ERROR
;ERROR # DEFINED BY ACKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHE(KS
JSKIP TO NEXT TEST

CZRMMBO RMOS/3/2 FITINL
"o

PACK

IST

ACKNOWLEDGE

TEST

004737
000403
000240

044540

295
396

297

MACRO Vv04.00

7%:

104000

<00

JSR

PC,SECERR
8$

;GO CHECK FOR SECONDARY ERRORS
:GO TO 88 IF NO ERROR
‘RETURN HERE IF ERROR
*ERROR # DEF INED BY SECERR SUBROUT
INF
:GO BACK FOR MORE ERROR CHECKS

PCLa(SP)+

013766

004737
050020

014030
014032
014034
014036
405 214042
014046

407
408 014052

014056
014060
014062
014064
014070
014070
014074
014076
014100
014102
014104

014110
4110

01 114

RECAL IBRATE

TEST
"tt"Q"Q.t

000004
000240
012706
013700
013701
012737
012737

014016
014024

b "...."'.Q'Q.".'."'..'"'...t".fififl"'.."tfi""

013726
013726
013730
013732
013736
013742
013746
C13754

013770
013772
013774
013776
403 014002
404 014002
014010

l\lb

JSR
~ B8R
NOP
EMT

.'t’tfi."""!fi

401
402 013762

13-11

- .l!"!'."."fi.'!."'""'.'.""'..'.f
i""'t'.'

TeTEST

11:43:28 PAGE

SEQ 0094

004736

398
399

4=APR-81

t5T11:

001190
001276
001464
000001
0C00M

MOV

001206
001226

MOV
MOV

041650

JSR

000404
000240

104000

014144

112737
112737
012737
004737
000404
000240
104000
000137

000000
000200
000007

004737
000404
000240
104000
000137

004737
000405
000240
104000

004736
000137

004737
000405

043160

001543
001544
001410

ERROR

#RMCS1,PUTINX
:SETUP PUT INDEX TABLE
#200.PUTINX+1
:SET TERMINATOR BYTE
#RECAL ' GO,RMCS10
:SET RMCS1 OUTPUT BUFFER

JMp
JSR

PC.PUT

6%
PC.GETSTS

*ERROR # DEFINED BY TSTPRP SUBROUTINE
*GO TO 68 IF ERROR

;GO WRITE RMCST

VIA PUT SUBROUT INE

RECAL

160 TO 28 IF NO ERROR
‘RETURN HERE

IF ERROR

;ERROR DEF INED BY PUT

SUBROUTINE

*GO TO 68 IF ERROR
*GO SETUP FOR STATUS FETCH

JSR

PC. T IMOUT

‘WAIT FOR COMPLETION

JSR

PC.GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

EMT

JMP

JSR

PC,PRIERR

EMT

054056

*RETURN HERE

MOVB
MOVB
MOV

B8R
p

*VERIFY PACK ACKNOWLEDGE

NOP

014144

:CLEAR CONTROLLER € SELECT DEVICE
:PACK ACKNOWLEDGE IF VOLUME NOT VALID

EMT
JMP

043706

;PREPARE DEVICE FOR TEST

160 TO 18 IF NO ERROR

FMT

BEING TESTED

NOP

014144

= DEVICE

+:D0 1 ITERATION
*ISET TEST NUMBER IN APT MAIL BOX

B8R

042710

PC.TSTPRP

$(R1)

*TASK DESCRIPTOR AS FOLLOWS:

JSR

#1,8TIMES
#17,$TESTN

05002C

NOP

014144
042624
043522

#STACK, SP
$BASE ,R]
TSTQUE ,R?

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

.WORD

NOP

000137

004737
004737

SCOPE
NOP
MOV
MOV

*GO TO 3% IF NO ERROR

*RETURN HEKE

€

160 TO 6%

ERROR

*ERROR # DEFINED BY GET SUBROUTINE
IF

;GO CHECK FOR PRIMARY ERRORS

:G0 TO 4$ IF NO ERROR

‘RETURN HERE

ERROR

‘ERROR # DEFINED BY PRIERR SUBROUTINE

JSR
Imp

PC,A(SP)+
6%

:GO BACK FOR MORE ERROR CHECKS
‘GO TO 6% IF ERROR

JSR
BR

PC,RCLSTS
5%

;GO TO 5%

;GO VERIFv RECALIBRATE OPERATION
IF

NO ERROR

RECALIBRATE

014116

1ST

TEST

MACRO v04.00

NOP
EMT
JSR

104000

004737
000403

014144

5%:

044540

000240
104000

004736

~NO

el
b ok

4-APR-81

11:43.28 PAGE

13-12

SEC 0095

000240
004736
000137

—ry

RMOS5/3/2 FCINL

6%:

JRETURN HERE

PC,a(SP)+

IMp

JSR
BR
NOP
EMT
JSR

PC,SECERR

PC,R(SF)+

ERROR

;ERROR # DEFINED BY RCLSTS SUBROUT INE

;GO BACK FOR MORE ERROR (HE(CKS
;GO TO 6% If ERPOR

;G0 CHECK FOR SECONDARY ERRORS
;GO TO 6% IF NO ERROR
JRETURN HERE !F ERROR
JERROR # DEFINED BY SEFERR SUBROUTINE
;GO0 BACK FOR MORE ERROR (HE(CKS

';t'l"ttik'l."'t'.""""'t.'lfi'fit.fi'.t'fitt.

TRTEST 12

'tt't.t"t'ttttt"

ABORT RECALIBRATE

TEST

':.ti.tttt'!t't.'t'll""'i'.'.'tt."t..'Qt't't.t'.tt't't'tttt'n'

14144
014144
016146
014150
014154
014160
014164
014172

000004
000240
012706
013700
013701
012737
012737

0°4200
014204

004737
054130

1s112:8
001100
061276
001464
000001
000012

001206

001226

061650

SCOPE
NOP
MoV
MOV
MoV
MOV
Mov

JSR
.WORD

;SCOPE CALL

#STACK,
SP

$BASE
, RO
TSTQUE ,R1

#1,$TIMES

#12,8TESIN
PC,TSTPRP

054130

sSTART OF TEST
JINITIALIZE STACK POINTER

;RO = UNJBUS ADDRESS

;(R1)

= DeVICE BEING TESTED

;:D0 1 JTERATION
;oSET TEST NUMBER IN APT MAIL BOX

sFREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

420
421

422

423

000404
000240
104000
000137
112737
112737
012737
004737
000404
000240
104000
000137
112737
112737

012737
004737
000404
000240
104000

424 014320
425
426 04324

B8R
NOP

014452

000014
000200
040000
043160

001543
001544
001424

1%:

EMT
JMP

MOVB
MOVR
MOV
JSR

‘NOP
014452
000000
000200
000007
043160

000137
004737

014452
042624

004737

042710

001543
001544
001410

2%:

3%:

Emr
JMP

MOVB
MovB
Mmov

9%
#RMERT,PUTINX

#200,PUTINX+1

#UNS ,RMER10
PC,PUT

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
sRECALIBRATE IFf "'SK:'*
OR "PIP'* IS SET
;VERIFY RECAL IBRATION
;GO TO 1% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 9% IF ERROR
;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMER1 OQUTPUT BUFFER
UNS
;GO WRITE RMER1 VIA PUT SUBROUTINE
;GO _TO 28 IF NO ERROR

JRETURN HERE

ERROR

;ERROR DEFINED BY PUT SUBROUTINE

;GO TO 9% IF ERROR

#RMCST,PUT
INX

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
#RECAL .GO,RM(S10
RECAL
. GO
;SET RMCST OUTPUT BUFFER
PC,PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE
3%
;GO _TO 3% IF NO ERROR
JRETURN HERE [F ERROR
;ERROR DEFINED BY PUT SUBROUTINE
9%
;GO TO 9% IF ERROR
#200,PUTINX+1

+SR
BR
NOP
EMT
JMP
JSR

PC,GETSTS

;SETUP FOR STATUS FET(H

JSR

Pe,GET

;GO READ REGISTER(S) WITH GE' SUBRDC TN

IRMMBO RMO5/3/72 FCINL TST 1
ABORT RECALIBRATE TEST

014330

«27
428
(29
430
431
432

000404
000240
10400C
000137
032737
001401
104214

004737

043522

004737
000404
000240

042710

000137

014452

004737
C00405
000240

043706

104000

433
434

014452
020000

MACRO v04.00

435
636

004737
000405
000246

00134¢

A
¥

5%:

6%:

014452

7%:

057766

104000

004736
000137

004737
000403
000240

014452

8%:

044540

104000

| 439 014452

11:43:28 PAGE

3-13
~r

104000

004736
00037

4-APR-81

004736

440

441

B8R
NOP
EMT

BIT
BEQ
1304
JSR

;GO

TO 4%

#P1P ,RMDS]

;RéD

THE

DRIVE

PC,TIMOUT

;WAIT

JSR
BR
NOP
EMT
JMP

P(.GET

;GO READ REGISTER(S) WITH GET SUBROUT INF
;GO TO 6% IF NO ERROR

JSR
BR
NOP
EMmM7
JSR
JMP

~MP

JSR
BR
NOP
EMT
JSR
JMP

JSR
BR
NOP

EMT
JSR

5%
214

NO ERROR

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

FOR

RECALIBRATE??

(OMPLETION

JRETURN HERE

;GO TO 9% IF

ERROR

PC.PRIERR

;GO CHECK FOR PRIMARY ERRCRS
;GO TO 7% IF NO ERROR
JRETURN HERE [F ERROR
SERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR (HE(KS
;GO TO 9% IF ERROR

PC,STCDRVSTS

;G0 CHECK FOR CHANGES IN DRIVE STATUS

PC,a{(SP)+

JRETURN HERE [F ERROR
SERROR # DEFINED BY STCDRVSTS SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS
;G0 TO 9% IF ERROR

PC,a(SP)+

PC,SECERR

JERROR # DEFINED BY GET SUBROUTMINE

;GO TO 8% IF NO ERROR

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

JRETURN HERE
PC,a(SP)+

ERROR

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

""Qltttit"ttl'tl’fitfii*ttlt*"Q‘ttt.it*.*tit‘fi"t'*ltltfitti

tt't'ttt

J*TEST

014452
014452
14454
014456
014462
014466
014472

Iv(C RECALIBRATE

TEST

,'"fitt"'tltl"tQ.!ttl’fi'.fiit‘l!l'fil.'ttQt'ii't"l"ttitt.t.l't't

t't"t

014500

000004
000240
012706
013700
013701
012737
012737

014506
014512

004737
054130

TST13:

001100
001276
001464
000001
000013

041650

SCOPE
NOP

MOv

001206
001226

Mov
MOV
MOV

MoV

JSR
. WORD

;SCOPE CALL
#STA(CK,SP

$8BASE RO

R1
TSTQUE
#41,8TIMES
#°3,$TESTN
PC,TSTPRP

054130

;START OF

TEST

JINITIALIZE STACK POINTER

JRO = UNJIBUS ADDRESS
:(R1) - DEVICE BEING TESTED

;.D0O 1 ITERATION
5SET TEST NUMBER [N APT MAIL BOX
JPREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECY DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

JPACK ACKNOWLEDGE

VOLUME NOT

VALID

JVERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF "'SKI'' OR ‘PIP"* IS SE

000404

B8R

SVERJFY RECAL IBRATION
;GO TO 1% IF NO ERROR

RMMBO RMOS/3/2 FCINL

IVvC RECAL IBRATE

014516
014520

014522
464 014526
465 014526

014534
014542
014550
014554
014556
014560
014562

446 014506
447 014566

014574
074602
0164610
014614
014616

014620
014622

468 014626
449 014626

014634
014642
014650
014654
0144656
014660
014662

000240
104000

000137
112737

TST §

TEST

0000246

014762

112737

000026

000200
000001
043160

000200
000000
043160

104000
000137

014762

112737

000000

112737
(012737
004737
000404
000240
104000
000137

000200
000007
043160

6450 0714666
222 014672

004737
004737

014762
042624
063522

453 014676

004737

042710

014702
014704
014706
014710

454 014714
455 014714
014720

656
457
458
459
460

014722
014724
014726
014730

014734
014742
014744
014746
014746

014752
014754
014756
014760

467 014762
462
463
!

000404
000240
104000
000137

004737

000405
000240
104000

004736
000137

1%:

001543

2%:

001544
N01434

001543

3%:

4%:

5%:

010000

004737

044540

00137¢

6%:

7$:

8%:
AR
..

8%
#RMMRY ,PUTINX

JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUT
INE
;GO

TO 8%

ERROR

;SETUP PUT

INDEX

TABLE

;SET TERMINATOR BYTE
;SET RMMR1 QUTPUT BUFFER - DML
;GO WRITE RMMR1 VIA PUT SUBROUTINE
;GO TO 2% IF NO ERROR
JRETURN HERE [F ERROR
;ERRCR DEFINFD BY PUT SUBROUTINE
;GO TO 8% IF ERROR

MovB

#RMMR1T,PUTINX

;SETUP PUT

INDEX

TABLE

EMT
JMP

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

MOVB

ARMCST,PUTINX

;SETUP PUT

JSR
'S

PC,GETSTS
PC,TIMOUT

;SETUP FOR STATUS FET(H
sWAIT FOR RECAL TO COMPLETE

JSR

PC.GET

;GO READ REGISTER(S)

#200,PUTINX+1
#DMD ,RMMR10
PC,PUT
2%

MOVB
MOV
JSR
BR
NOP
EMT
JMP

BR
NOP
EMT
JMP
JSR

BR
NOP
EMT

014762

G 8
'1:43:¢/8 PAGE '3-14

mMovB
MoV
JSR
BR
NOP
EMT
JMP
MovB
MOV
JSR
BR
NOP

007544
001410

043706

JMP

MOVB

0071544
001434

014762

032737
00001
704215

000403
000240
104000
004736

&-APR-B1
NOP
EMT

014762

112737
012737
004737
000404
000240
104000
000137
112737
012737
004737
000404
000240

MACRO v04.00

JSR
JMP

#200,PUTINX+"
#0,RMMR10
PC,PUT
3%

;SET TERMINATOR BYTE
;SET RMMRT QUTPUT BUFFER
0
;GO0 WRITE RMMR1 VIA PUT SUBROUTINE
;GO TO 3% IF MO ERROR
JRETURN HERE IF ERROR

INDEX TABLE

#200,PUTINX+1
;SET TERMINATOR BYTE
#RECAL !GO ,RM(S10
;SET RMCS1 OUTPUT BUFFER RECAL !GO
PC,PUT
260 WRITE RMCS1 VIA PUT SUBROUTINE
4%
;GO TO 4% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUT INE
8%
;GO TO 8% !F ERROR

WITH GET SUBROUTINE

;GO TO 5% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GE~ SUBROUT INE
;G0 TO 8% IF ERROR

PC,PRIERR

;GO CHECK FOR PRIMARY ERRORS

23 3

PC,a(SP)+
83

;GO _TO 6% IF NO ERROR
JRETURN HERE [F ERROR
JERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 8% IF ERROR

BRIT
BNE
EMT

#1VC,RMERZ]
7%
215

2 IvC SHOULD BE SET
;IT IS = GO CHECK SECONDARY ERRORS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

B8R
NOP
EMT
JSR

PC,a{SP)+

A T I A R RN IR AR AR A A N C AR A IR RN

;GO _TO 8% IF NO ERROR
JRETURN HERE ]F ERROR
SERROR # DEFINED BY SECERR SUBROUTINE
;GO0 BACK FOR MORE ERROR (HECKS

RN RN TR R P A RN R SN R AN P ANE R R RS RO AP RR RS

“JRMMBU RMOS5/3/2 FCINL TST )
1AE RECALIBRATE TEST

MACRO v04.00

4-APR=-B"

000004
000240
012706
013700
013701
012737
012737

015022

004737
054130

&L
405 015016

13-15

Sty Ju-t
JTEST

214762
014762
N14764
014766
014772
014776
015002
015010

11:43:¢8 PAGE

18114
001100
001276
001464
000001
000014

001206
001226

041650

AN AN

IAE RECALIBRATE
AN AR RN AR AN AN

LR RN

TEST

PN RN AN N R RN R ANA RN AT

AR SRR

TSTQUE R
41,8TIMES
#15,8TESTN

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

JSR
.WORD

054130

PC,TSTFRP

;PREPARE

:SCOPE
#STACK,SP
$BASE RO

CALL

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

DEVICE

FOR

466

Lb67

Eu§‘¢V‘JOW>OHJ\nVHn:~bt\ufld
PONY
= =3 NO
S OO NORSOOTNOONN
OOV

o cd el o
D
—d

L R

e T

JO ARV IV AV IV AV TV, IV, LV IV, TV, IV TV, IV, IV, LV [V, |

b
md
d
D
el
ok

«83

-l

«82

D v

od wrd

480
481

D ek cad e

476
477
(78
479

DOO0OVOOOOODOOCSOO0ONOOC

D
—d =D
b
-—

ARV,
IV, AV, RV, 3V, |

OOOOCO

468
469
470
&(71
472 015070
473
474
475

104000

000137

015224

012737
012737
012737
012702
112722
112722
112722

177777
177777

112722

004737
000404
000240
104000
000137
004737
004737

000007
001543

001444
001416

1%:

001470

000034
000006
000000
000200
043160

015224
042624
043522
042710

004737
000405
000240

043706

015224

2%:

104000

004737
000405
000240
104000

MoV
mov
MUV
MOV
MovB
Move
MOVB
MovB
JSR

NOP

004737
000404
000240
104000
0C0137

004726
000137

BR
NOP
EMT
JmMp

015224
054056

EMT
JMP
JSR

1%
6%

VOLUME NOT

;GO TO 1% IF NO ERROR
JRETURN HERE

;GO TO 6% IF

ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

#-1,RMDCO
JRMDC WILL BE ALL ONES
#-1,RMDAO
JRMDA WILL BE ALL ONFS
#RECAL !GG,RMCS10
APUTINX ,R2
;R2 POINTS TO PUT INDEX
#RMDC, (R2) +
;SETUP PUT INDEX TABLE
#RMDA, (R2)+
#RMCST,(R2)+

#200, (R2)+

PC,PUT

;GO WRITE REGISTER(S)

;GO TO 2% IF NO ERROR

JRETURN HERE

;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 6% IF ERROR

PC,GET

2GO READ REGISTER(S)

;GO TO 3% IF NO ERROR

JRETURN HERE

ERROR

WITH GET SUBROUTINE

JERROR # DEFINED BY GET
;GO TO 6% IF ERROR

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

;GO BACK FOR MORE

SUBROUTINE

ERROR

JSR

JSR
BR
NOP
Emy

TABLE

WITH PUT

;SETUP FOR STATUS FETCH
JWAIT FOR GO TO RESET

VALID

JVERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI'' OR ‘PIP'' IS SET
SVERIFY RECAL IBRATION

PC,GETSTS
PC,TIMOUT

JSR

4%:

TEST

;TASK DESCRIPTOR AS FOLLOWS:

JSR

NOP
EMT
JMP

BOX

;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION

000404
000240

CNAT ORI N RN

SCOPE
NOP
MOV
MoV
MoV
MOV
MOV

;PACK ACKNOWLEDGE

(15024
015026
015030
015032
015036
015036
015044
015052
015060
015064

SUBROUTINE

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

JERROR # DEFINED BY PRIERR SUBROUT
INE
ERROR CHECKS

JMP

;GO TO 6% IF ERROR

JSR

PC,RCLSTS
5%

;GO VERIFY RECALIBRATE OPERATION
;GO TO 5% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR & DEFINED 8Y RCLSTS SUBROUTINE

BR
NOP
FMmY

JRMMBD RMOS/3/2 FCTNL TST 1
IAE RECAL [BRATE TEST

vi‘

R
Y
Je ¥

004736
000137

485

686
L87

MA{RO v04.00

11:43:¢8 PAGE

13-16

SEQ 009¢
JSR

(15224

004737
000403
000240

4~APR=-B1

S%:

044540

104000

004736

6%:

.88

JMP
JSR
B8R
NOP
EMT
JSR

PC.a(SP)«

;GO BACK FOR MORE

PC,SECERR

:GO CHECK FOR SECONDARY ERRORS

;€O TO 6% IF FRROR

ERRCR (MHECKS

;GO TO 6% IF NO ERROR

JRETURN HERE

IF ERSROR

JERROR # DEFINED BY SECERR SUBROUT INE

PC,a(SP)+

;60 BACK FOR MORE

ERROR CHECKS

'"ttlt'Qt'tk'fitittt."ti"itfitttt'ti

t"ttt*ttfit.tfl"'t'.t't"'t'.

L*TEST 15

RECALIBRATE

OFFSET

°"ttt'l"tfi'tttfil’ttt*tfl*'tt"l’ttfit‘t'flt*t"i."fl'tt

015252

000004
000240
012706
013700
013701
012737
012737

015264

004737
050020

o
o

PC,TSTPRP

050020

:TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
;PACK ACKNOWLEDGE IF VOLUME NOT VALID

000404
000240

;GO TO 1% IF NO ERROR

000137

015502

EMT
JMP

112737
112737

000000
000200
000015
043160

104000

012737
004737
000404
000240

000137

015502

112737
112737

000000
000200
000007
043160

104000

042624

015404

004737

063522

104000

001206
001226

TSTQUE ,R1

NOP

SN N AN A

NNOOAWN
S
SN NWNAININY
RNOONNLESHONOO £SO

it —d —d
d
D o
d
D
i
D
D

STACK POINTER

JSR
-WORD

MOV

041650

004737

JINITIALIZE

#1,8TIMES
#15,8TESTN

015400

d e

#STACK,SP

MOV
MOV

015502

500

MOV

;SCOPE CALL
;START OF TEST

$BASE ,RO

000137

400

SCOPE
NOP
MoV

374

d i

498
499

001100
001276
001464
0G0001
000015

012737
004737
000404
000240

—d

495
496
497

oo VAN VI
AN NN N AN AN AN AN N N AN

494

= id ed

493

491
492

266

VAW

(eolelelolelelalelolelololololololololalololol
o)

489
490 015260

tt.'t'ttiti'.'t

TST15:

001543
001544
0014170

1%:

MOVB
MOVB
MOV

JSR

001543
001544
001410

2%:

3%:

NOP
EMT
JMP
MOVB
MOVA
MOV
JSR

BR
NOP
EMT
JMP

sSETUP GET

JSR

JWAIT

;(R1)

= DEVICE BEING

;.D0 1 ITERATION
;;SET TEST NUMBER
;PREPARE

DEVICE

TESTED

IN APT MAIL BOX

FOR

TEST

JVERIFY PACK ACKNOWLEDGE

JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

;60 TO 7%

H#RMCS1,PUTINX

;SETUP PUT

#200,PUTINX+1
;SET
#OFFSET!GO,RM(CS10

ERROR

INDEX

TAsLE

TERMINATOR BYTE
;SET RMCS1 OUTPUT BUFFER

PC.PUT

;GO WRITE

JRETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;GO TO 7% IF ERROR

;RO - UNIBUS ADDRESS

RMCS1

VIA PUT

:GO TO 2% IF NO ERROR

#RMCS1,PUTINX

#200,PUTINX+1

;SETUP PUT

INDEX

SUBROUTINE

OFFSET.GO

TABLE

;SET TERMINATOR BYTE

#RECAL .GO,RMCS10
;SET RMCS1 OUTPUT BUFFER RECAL .GO
PC.PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE

;GO TO 3% IF NO ERROR

JRETURN HERE

INDEX TABLE

ERROR

;ERROR DEFINED BY PUT
;GO TO 7% IF ERROR

TO READ ALL REGISTERS

PC,GETSTS

FOR COMMAND TO COMPLETE
ISR
PC, TIMOUT

;G0

TO GETSTS

;G0 TO

TIMOUT

SUBROUTINE

IRMMBO RMOS/3/2 FCTINL TST
*15
RECAL [BRATE AT OFFSET

50" 015410
015414
015416
015420
015622
502 015426
503 015426
015432
0154346

015436
015440
015442
504 015446

505 015446

015452
0154546
015456
015460
015462
506 C15466
507 015466
015472
015474
015476

015500
288 015502

004737
000404
000240
104000
000137
004737
000405
000240

015502

004737

054056

004737
000403
000240

4%:

043706

015502

5%:

015502

£%:

044540

104000

7%:

015506
015512
015516
511 015522

012706
013700
013701

512 015530
015534

004737
054130

015536
015540
015542
015544
513 015550

516 015550

515 015556
516 015564
517 015572
518 015600
519 015606

012737

001100
001276
001464
000016

P(,PRIERR
5%

015752

(12737

000000

000011
177777
177777
(04000
001543

8
13-17

JSR
BR
NOP

PC,SECERR
7%

JSR

PC,a(SP)+

DRIVE

001416

001410
001424
001452
001452

;G0 CHECK FOR SECONDARY ERRORS
;GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR

JERROR # DEFINED BY SECERR SUBROUTINE

: G0 BACK FOR MORE ERROR (HECKS

AR R A AR AR R RN RN AR A AR AR AR AT AARAANANRCR AN R R AR

CLEAR

RN AR R AN AN R

TEST

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

SCOPE

NOP

1%:

;GO VFRIFY RECALIBRATE OPERATION

;G0 TO 6% IF NO ERROR
sRETURN HERE IF ERRNR
sERROR # DEFINED BY RCLSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 7% IF ERROR

P{,a(SP)+
7%

A A AR R A A RN A R

AR AN

;ERROR # DEF INED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHE(KS
;G0 TO 7% IF ERROR

PC,RCLSTS

;GO CHECK FOR PRIMARY ERRORS
;GO TC 5% IF NO ERROR
;RETJRN HERE IF ERROR

PC,a(SP)+
7%

BR
NOP
EMT
JSR
JMP

;*TEST

001226

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 4% IF NO ERROR
JRETURN HMERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 7% IF ERROR

EMT
JSR
JMP

A A A A

041650

000404
000240
104000
000137
012737
012737
012737
042737
012702

JSR
BR
NGP

SRR

1ST16:

000004

000240

PC,GET
3 3

EMT

CO04736

015504

J
11:43:28 PAGE

JSR
8R
NOP
EMT
JMP

JSR

510

015502
015502

4-APR-81

SEQ 0100

042710

104000
004736
000137

000405
000240
104000
004736
000137

MACRO v04.00

:SCOPE CALL

:START OF TEST

MOV
MOV
MOv
MOV

#STACK,SP
$BASE RO
TSTQUE ,R1
#16,8TESTN

JINITIALIZE STACK POINTER
;RO = UNJBUS ADDRESS
;(R1) = DEVICE BEING TESTED

JSR
.WORD

PC,TSTPRP
054130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

BR
NOP
EMT
JMP

MoV

#0,RMDAO

MOv
MOV
MoV
BI1C
Mov

.:SET TEST NUMBER [N APT MAJL BOX

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

JRETURN HERE IF ERROR
'
JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 6% F ERROR

#DRVCLR.GO,RM(S10
4-~1,RMER10
#-1,RMER20
#LSC,RMERZO
sDELETE FOR PASS 2 ET(H
APUTINX k2
;RZ POINTS TO INDEX TABLE

JRMMBO RMOS/3/72 FCINL TST
DRIVt CLEAR TEST

v“b

520 015612
521 015616
522 015622
523 015626
524 015632
525 015636

112722

015642
015644

015646
526 015650
527 015652
528 015656
529
530 015662
015666
015670
015672
015674
015676
G15676
015702
015704
015706
015710
015712
015716
015716
015722
015724
015726
015730
015732
015736

015736
015742
015744
015746
015750
015752

004737

042710

2%:

104000

000426

004737
000405
000240

043706

104000

004736
C00137

015752

004737

055620

000405
000240
104000
004736
000137

004737
000403
00040
104000
004736

4-~APR-B1

K
8
11:43:28 PAGE 13-18

sta 0101

000006
000042
000014
000000
000200
043160

042624
043522

000403
000240

MACRO v04.00

015752

#RMDA,

:RMDA CLEARS LBT

ARME
. (R?)
RT
+
#RM(S1. (R2)+

#200, (R2) +

PC,PUT

PC,GETSTS
PC,TIMOUT
PC,GET

JSR
BR
NOP
EMT
BR

JSR
B8R
NOP
EMT
JSR
JMP

:GO WRITE

WITH PUT

SUBROU
INE
T

GO TO 28 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUTINE
;ESCAPE IF ERROR

:SETUP FOR STATUS FET(CH
;WAIT FOR DRIVE CLEAR TO COMPLETE
;GO READ REGISTER(S)

;GO _TO 3% [F NO ERROR

;SKIP REMAINDER OF

WITH GET

SUBROUT INE

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

PC,PRIERR

TEST

;GO CHECK FOR PRIMARY ERRORS

;GO TO 4% IF NO ERROR

PC,a(SP)+

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

.GO BACK FOR MORE

;GO TO 6% IF ERROR

PC.DRVSTS

.GO VERIFY DRIVE

PC,a(SP)+

;60 BACK FOR MORE

JSR
BR
NOP
EMY
JSR

6%:

(R2)
+

#RMER2, (R2)+

JSR
BR
NOP
EMT
JSR
JMP

,5%:

044540

mMovB
MOVH
MovR
Movs
MOVB
JSR
BR
NUP
EMT
BR
JSR
JSR

P(,SECERR

CLEAR

;GO TO 5% IF NO ERROR
sRETURN HERE IF ERROR

;ERROR # DEFINED BY DRVSTS SUBROUT INE

;GO TO 6% [F ERROR

ERROR (HECKS

;G0 CHECK FOR SECONDARY ERRORS

;GO TO 6% IF NO ERROR

JRETURN HERE

PC,a(SP)+

ERROR (HECKS

ERROR

JERROR # DEFINED BY SECERR SUBROU INE

;GO BACK FOR MORE ERRUR CHEC(KS

'"tttttl’!’ttttttitlt*"t‘t‘ififlfitlittt*fitttttttitittttttttttt'

tttitt

LXTEST 17
e

015752
015752
015754
015756
015762
015766
015772

541
542 016000
016004

000004
000240
012706
013700
013701
012737

004737
054130

R AR

15117
001100
001276
001464
000017
041650

R AR AN

TEST

RN AR AR AR

SCOPE

NOP

001226

NOP

AR R A AR N AR AN

R AN R

R RN AR NN

AR R ARk

#STACK,SP

$8ASE RO
TSTQUE ,R1

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

JSR

PC,TSTPRP

;PREPARE

.WORD

054130

;SCOPE CALL
JSTART OF TESI

MoV
MoV
MOV
Mov

K17 ,8$TESTN

sINITIALIZE

STACK POINTER

;o SET TEST NUMBER IN APT MAIL BOx
DEVICE

FOR

TEST

s TASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME

JVERIFY PACK ACKNOWLEDGE

NOT

VALID

CJRMMBO RMO5/3/2 FLTINL

TY?

NOP

TEST

T1ST

MACRO v04.C0

4=-APR-B1

11:43:28 PAGE

13-19
SeEQ 010¢

;RECALIBRATE

016006
016010
016012
016014
543 016020
9566 016020
016026
016034
016042
016046
016050
016052
016054
222 016060

112737
112737
012737
004737
0004604
000240
104000
000137
004737

016202
042624

547 016064

004737

042710

016070
G16072
016074
016076
548 016102
549 016102
016106
016110
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
016176
016176
016200
229 016202

000404
000240
104000
000137

016202
000000
000200
000001
043160

000404
000240
104000
000137

016202

004737
000405
000240

043706

104000
004736
000137

016202

004737
115760
000010
000405
000240
104000
004736
000137

004737
(00405
000240
104000
004736
000137

004737
000403
000240
104000
004736

558

BR
NOP
EMT

050400

.
016202

057766

001543
00154«
001410

1¢:

°%:

3%:

4%:

5%:

016202
044540

6%:

7%:

''SKI'* OR 'PIP'' IS SET

;VERIFY RECALIBRAT]ON
;GO TO 18 IF NO ERROR

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

JMP

MOVB
MOVR
MOV
JSR
BR
NOP
EMY
JMP
JSR

H#RMCS1,PUTINX
#200,PUTINX+1
#NOP!GO,RMCS10
PC,PUT
2%

7%
PC,GETSTS

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RM(CS1 OUTPUT BUFFER - NOP.GO
;GO WRITE RMCST1 VIA PUT SUBROUT INE
;G0 TO 2% IF NO ERROR
JRETURN HERE ]f ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;GO TO 7% IF ERROR
:SETUP FOR STATUS FETCH

JSR

PC,GET

;G0 READ REGISTER(S) WITH GET SURBRGUTINE

BR
NOP
EMT
JMP

;GO TO 3% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 7% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR
4%

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,CMPERRSTS
NDTMSK
DPE
5%

JSR
BR
NOP
EMT
JSR
JMP

PC,STCDF
6%

JSP
BR
NOP
EMT
JSR

;60 CHECK FOR PRIMARY ERRORS
;GO TO 4% [F NO ERROR
sRETURN HERE IF ERROR

JERROR # DEFINED BY PRIERR SUBROUTINE
. GO BACK FOR MORE ERROR CHECKS
;G0 TO 7% IF ERROR

PC,a(SP)+
7%

PC.a(SP)+
7%

PC,SECERR
7%
AN
PC,a(SP)+

:CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
sMASK FOR RMER?
:GO TO 5% If NO ERROR
sRETURN HERE [F ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;GO0 BACK FOR MORE ERROR CHECKS
;G0 TO 7% IF ERROR

;60 CHECK FOR CHANGES IN DRIVE STATUS
;GO TO 6% IF NG ERROR
;RETURN HERE [/ ERROR
JERROR # DEFINE
BY STCDRVSTS SUBROUT INE
;GO BACK FOR MOR. ERROR CHE(CKS
;GO TO 7% IF ERROR

;GO CHECK FOR SECONDARY ERRQRS
;GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROU” INE
;GO BA(CK FOR MORE ERROR (HECKS

""tttttttttttQttttttttttttitttitlfitit*tttttttt‘ttt'ltttttt'nt"t'

J*TEST 20

016202

’

OFFSET

TEST

"-'tttttttt'ttttttttttttt"ttttttttttttnfitttt-tt'tttttt:t'onu-tt'

157120:

“IRMMBO RMO5/3/2 FCTNL
120
OFFSET TEST

016202
016204
016206
016212
016216
016222

559
560 016230
016234

000004
000240
012706
013700
013701
012737

004737
054130

1S7

MACRO v04.00

4-APR-81

m 8
11:43:28 PAGE 13-20
SEQ 0103

001100
001276
001464

000020

SCOPE
NOP

001226

041650

MOV
MOV
MoV
MOV

TSTQUE ,R1
#20,8TESTN

.WORD

054130

#STACK,SP

$BASE RO

PC,TSTPRP

sSCOPE CAIL
sSTART 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 FOI LOWS:
sCLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLLCAR OPERATION

016236
016240
016242

016244
561 016250
562 016250
016256
016264
016272
016276

076300
016302
016304
563 016310
564 016314
565
566 016320
016324
016326
016330
016332
567 016336
568 016336
016342
016344
016346
C16350
016352
016356
016364

000404
000240

104000
000137
112737
112737

012737
004737

000404
000240
104000
000137
004737
004737

o
016526

000000
000200
000015
043160

NOP

016526
042624
043522

042710

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

043706

004737

MOVB
MOVB
MOV
JSR

004737
000404
000240
104000
000137

104172

001543
001544
001410

1%:

EMT
JMP

2%:

EMTY
JMP
JSR
JSR

JSR
BR

NOP

EMT

016526

016526
000001
001346

3%:

001346

177776
000001

001142
001142
001140

100000

001346

001346
077777
100000

050400

4%:

5%:

001142
001142
001140

JNF

JSR
BR
NOP
EMY
JSR

BIT
BNE

MOV
BIC
MOV
EMT
BIT
BNE
MOV

8IC

6%:

MOV
EMT

JSR

JPACK ACKNOWLEDGE IF VOLUME NOT VAL ID
;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI'*
OR ‘PIP'' IS SET
JVERIFY RECALIBRATION
;GO TO 1$ IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

;G0 TO 9% IF ERROR

H#RMCST ,PUTINX

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
H#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
#200,PUTINX+1

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 3% IF NO ERROR

;GO TO 9% IF ERROR

PC.PRIERR

PC,a(SP)+

#OM,RMDSI

5%
RMDSI,$BDDAT
#*COM, $BDDAT
40OM_S$GDDAT

156

HATA ,RMDS

RMDSI ,$BDDAT

#~CATA,$BDDAT
#ATA, $GDDAT

172

PC,CMPERRSTS

;JRETURN HERE IF ERROR
SERROR # DEFINED BY GET SUBROUTINE

;GO CHECK FOR PRIMARY ERRORS
;G0 TO 4% [F NO ERROR

JRETURN HERE

ERROR

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

;G0 TO 9% IF ERROR
JOFFSET MODE ON??
JYES.!
;BAD DATA FOR TYPEOUT

;GOOD DATA FOR TYPEOUT
;WAS ATTENTION SET
JYES!!

;BAD DATA FOR TYPEOUT
;GOOD DATA FOR TYPEOQUT

JCHECK ANY ERRORS NOT MASKED

€ RMMBO RMO5/3/2 FCTNL
T
20
OrFSET TES!

T ST

MACRO v04.00

000010
000405
000240
104000

004736
000137

016526

004737
000405
000240

057766

104000

004736
000137

016526

004737
000403
000240

044540

.WORD
. WORD
BR
NCP
EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR

JMP

JSR

B8R

NOP

104000

004736

587
588
[4
589

11:43:28 PAGE

13-21

SEQ 0104

016452° 115760

016454
016456
016460
016462
016464
016466
583 016472
584 016472
016476
016500
016502
016504
016506
585 016512
58€

4-APR-81

EMT

JSR

NDTMSK
DPE
7%

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

PC,a(SP)+
%2 3
PC.SECERR

PC,a(SPj+

sMASK FOR RMER1
;MASK FOR RMER?
;G0 TO 7% IF NO ERPOR
cRETURN HERE IF ERROR
sERROR # DEFINED BY CMPERRSTS SUBROUTINE
oGO BACK FOR MORE ERROR CHECKS
;GO TO 9% IF ERROR

;G0 (HECK FOR CHANGES N DRIVE STATUS
;GO0 TO 8% IF NC ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY STCDRVSTS SUBROUTINE
.GO BACK FOR MORE ERROR CHECKS

;GO TO 9% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

;G0 TO 9% IF NO ERROR
JRETURN HERE

ERROR

JERROR # DEFINED BY SFCERR SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS

""*t******l’*fi'*"**‘t"‘**‘.’****fi*t*****il‘*****fi*"**"l’***"**

*tf"'"

IV IV
i

42
46
~

VIV

—D

e
d
D

——
—

[ele BNolalolalelele]

J*TEST 21

GO/ATA TEST

:"*'t'***tfi*."**t*.’*fi"****t****‘***t*l’t’fi*i*fifi**'*fi***t***!‘tfit'

TS121:

000004
000240
012706
013700
013701
012737

001100
001276
001464
000021

004737
054130

SCOPE

NOP
MOV
MOV
Mov

001226

041650

;SCOPE CALL

MOV

#STACK,SP
$BASF RO
TSTQUE ,R1

#21,8TESTN

sSTART OF TEST
JINITIALIZE STACK POINTER
;0 = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED

JSR
.WORD

PC,TSTPRP
054130

;TASK DESCRIPTOR AS

;oSET TEST NUMBER IN APT MAIL BOX

;PREPARE DEVICE FOR TEST

FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

000404
00024
10400
000137

017146

112737 000000
112737

012737
004737
000404
000240
104000

000200
000015
043160

594

000137
004737

017146
042624

00473%7

062770

895

‘1%

001543
001544

BR
NGP
EMT
JMP

MOV3
mMovae

001410

MoV

JSR

c$:

BR
NOP
EMT
JMP

12%

VOLUME NQT VALID

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'' OR 'PIP'' [S SET
;VERIFY RECALIBRATION

;6O TO 1$ IF NO ERROR
;RETURN HERE IF ERROR
SERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 12% IF ERROR

#RMCST ,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+1
;SET TERMINATOR BYTE
4OFFSET!GO,RMCS10
;SET RMCST OUTPUT BUFFER = OFFSET!GO

PC. PUT

JSR

12%
PC,GETSTS

JSR

PC.GET

;GO WRITE RMCS1

VIA PUT

SUBROUTINE

;GO TO 2% IF NO ERROR
SRETURN HERE If ERROR
SERROR DEF INED BY PUT SUBROUT INE
;G0 TO 128 IF ERROR

;SETUP TO READ ALL REGISTERS

;GO READ REGISTER(S) WITH GETM

_ BKO
T INE

TIRMMBO AMOS/3/2 FCINL
st
50/ATA TEST

016644

016646
016650
016652
597 016656
598 016664
599 016666
600 016676
601 016702
602 016710

603 016712
£06 016712

016716
016720
016722
016726
016726
016730
016732
60% (16736
506 016736
016744

016752
016760
016764
016766
016770
016772
607 016776
608 016776
017002
017004
017006
017010
609 017014

610 017014

611
612
613
614
615
616
617
618

fz.;

017020
017022
17024
017026
017030
C17034
0170642
0172044
017052
017060
017064
017066
017066
017072
017074
017076
017100
017102
017106
9;;3?3
v
i

TST

MATRC v04.00

004737

B8R
017146
100000

00134¢

100000
001346
077777

001140
001142
001142

017146

112737

000030

012737
004737
C00404
000240
104000
000137

000200

000001
043160

017146

G04737

043706

000405
000240
104000
004736
000137
032737
001411
013737
042737
005037
104246
004737
115760
000010
000405
000240
104000
004735
000137

001543

001346
077777
001140
050400

017146

JSR

PC.,CMPERRSTS

»OVR

MOV
JSR
BR
NOP
EMT
JMP

6%:

7%:

0013%46c

12%
#ATA RMDS ]
43
#ATA, $SGODAY
RMDS] ,$BDDAT
#“CATA,$8DDAT
*72

MOVB

001410

042710

077146
100000

5%:

001142
001142
qs:

‘\3

0
0
5%

PC,a(5P)+
12%
#RM(CST,PUTINX

;CHECK ANY ERRORS NOT MASKED

JMASK FCR RMER1
JMASK FOR RMER?
;60 TO 5% IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSTS SURROUTINE
;GO BACK FOR MORE ERROR CHECKS
;G0 TO 12% IF ERROR
:SETUP PUT INDEX TABLE

;SET

12%

;GO TO 12% IF ERROR

ANOP'!GO,RMCSTO
PC,PUT
6%

PC.GET
7%

JSR

PC _PRIESR

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

;GO TO 3% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINID BY GET SUBROUTINE
;GO TO 12% IF ERROR
;1S ATTENTION SET??
JYES!!
;GOOD DATA FOR TYPEOUT
;BAD DATA FOR TYPEOUT

#200 ,PUTINX+1

JSR
BR
NOP
EMT
JMP

B8R
NOP
EMY
JSR
Jmp
B]T
BEQ
MOV
BIC
(LR
EMT

8%:

NOP
EMT
JMP
BIT
8NE
MOV
MOV
BIC
EmMT

.WORD
.WORD
8R
NOP
EMT
JSR
JMP

001544

017146

004737
000404
000240
104000
000137

3$:

050400

000000
000000
000405
000240
104000
004736
000137
112737

8 9
11:43:¢8 PAGE 13-22
SEC C10%

0004604

000240
104000
000137
032737
001012
012737
013737
042737
104172

4-APR-B1

12%
8%

PC,a(SP)+
12%
#ATA RMDS |
9%
RMDS T, $BDDAT
#~CATA SBDDAT
$GDDAT
246
PC,CMPERRSTS
NDTMSK
DPE
108

PC,a(SP)+
12%

TERMINATOR BYTE

SET RMCST OUTPUT BUFFER - NOP'GO
;G0 WRITE RMCST VIA PUT SIUBROUTINE
;G0 TO 6% IF NO ERROR
JRETURN HERE [F ERROR
JERROR DEFINED BY PUT SUBRROUTINE

;GO READ REGISTER(S) WITH GET SUBRQUTINE
;G0 TO 7% IF NO ERROR
JRETURN HERE If ERROR
» ;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 12% IF ERROR
;GO CHECK FOR PRIMARY ERRORS

;GO TO 8% If NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEF INED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO Y0 12% IF ERROR
;1S ATTENTION RESET?"
IYES
;B£D DATA FOR TYPEQUY

;00D DATA FOR TYPEQUT
;CHECK ANY ERRORS NOT MASKED
:MASK FOR RMER1
JMASK FOR RMER?Z
;GO TO 10% iF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 12% If ERROR

”gtanlao RMOS/3/2 FCINL

GO/ATA TEST

62C 017112

017116

017120
017122
017126

017126

004737

000405

000240
104000
004736

TST

057766

017146

622 017132

004737

064540

017140
017142
017144

000240
104000
004736

017132

017136

652 017146

000403

4-aPR=-81

11:43:28 PAGE

“3-23

SEQ 010¢

000137

621

MACRO v04.00

JSR

11%:

225

11§

;GO CHECK FOR CHANGES IN DRIVE STATUS

;GO TO 118 IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

*RETURN HERE IF ERROR
;ERROR # DEF INED BY STCDRVSTS SUBROUT INE
:GO BACK FOR MORE FRROR CHE(CKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC.a(SPY+

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

IMP

8R
128:

PC,STCORVSTS

NOP
EMT
JSR

12$

16O TO 128 IF ERROR

:GO TO 128 IF NO ERKOR

. 'll'ttitttttfi'.ttl't"t""'t'ttt't.'.t'tttttttt’tttttttt't.'tt'

LeTEST 22

017146
017146
017150

Ts122:

000004

000240

017152
017156
017162
e 017166

012706
013700
013701
012737

001100
001276
001464
000022

€27 017174

0064737

041650

017200

WRITE ATA TEST

. ttlttQ"Qttt"..!tt.t'!'t.'.'Qttttfi.t.ttitttt!"'ttt
t'ttt't'tt

054130

SCOPE

NOP

MOV
MOV
MOV
MOV

001226

JSR

LWORD

:SCOPE CALL

#STACK , SP
$BASE ,RO
TSTQUE . R1
222, $TESTN
PC.TSTPRP

054130

017202
017204
017206

017210
628 017214
629 017214

017222
01723C
C17236
017242
017244

017246
017250

000404
000240
104000

000137
112737

112737
012737
004737
000404
000240

630 017254

104000
000137
004737

632 017260
017264
017266

004737
000404
000240

017270
017272
633 017276
63% 0173064
635 017306
63¢ 017314

104000
000137
032737
001012
013737
042737

017512
)
000000

000200
000015
043160

BR
NOP
EM]
001543

18:

001544
001410

017512
042624

28:

042710

017512
100000

001346

001346
077777

001142
001142

38:

JMP

MOVA

*START OF

TEST

SINITIALIZE STACK POINTER
‘RO = UNIBUS ADDRcSS
:(R1) = DEVICE BEING TESTED
$:SET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE
SVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDGE

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

JVERIFY RECALIBRATION

160 TO 18 [F NO ERRCR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE

1GO TO 98 IF ERROR

WRMCS],PUTINX

;SETUP PUT INDEX TABLE

.
93
PC,GETSTS

:ERROR DEF INED BY PUT SUBROUTINE
GO TO 98 IF ERROR

MOVB
MOV
JSR
BR
NOP

#200,PUTINX+1
:SET TERMINATOR BYTE
#0FESET!GO,RMCS10
;SET RMCS1 OUTPUT BUFFER = OFFSET'C)
PC.PUT
GO WRITE RMCS1 VIA PUT SUBROUTINE
28
:GO TO 28 IF NO ERROR
RETURN HERE IF ERROR

JSR

:SETUP TO READ ALL REGISTERS

EMT
P

JSR
BR
NOP
EMT
IMP
BIT
BNE
MOV
81

PC,GET
38

9%
HATA RMDS |
4%
RMDS1,$BDDAT
#~CATA, SBDDAT

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

:ERROR # DEF INED BY GET SUBROUTINE
:GO TO 9% IF ERROR
;IS ATTENTION SET??
:VES!!
:BAD DATA FOR TYPEQUT

CZRMMBO RMOS5/3/2 FCTINL

T22

WRITE ATA

637 017322
638 017330
639 017332
640 017336
641 017342

642
643
644
645

017344

017350
017356
017364
017370
017372
017374
017376
646 017402
647 017402
017406
017410
017412
017414
648 17420
649 017420
017424
017426
017430
0174632
017434
650 017440
651 017446
652 017450
653 017456
654 017464
655 017470
656 017472
657 017472
017476
017500
317502
017504
017506
017510
658 017512
659
660

TEST

012737
1064172
116102

042702
000240
010237
112737

112737
004737
000404
000240
104000

TST

100000

00114C

000001
177400
001426
000016
000200
043160

017572

004737
000404
000240

042710

000137

0'7512

004737
000405
000240

04370¢

?g¥
6%:

001543
001544

104247

004737
000000
000000
000403
000240

017512
100000
001346
Q77777
001140

001346

elole)

Hrony

s fhurd

JR2 = ATTENTION BIT

;CLEAR SIGN EXTENS]ION

MOV
MOVB
MOVB
JSR

R2 ,RMASO
#RMAS ,PUT INX
#200,PUTINX+1
PC,PUT

;PUT RMAS BIT IN OUTPUT BUF
JWRITE REGISTER INDEX IN TARLE
JWRITE TERMINATOR
;G0 WRITE REGISTER(S) WITH PUT SUBROUIT
INE

-«

b} ]

;60 TO S% IF NO ERROR

NOP
EMT
JMP

JSR

PC,GET

;GO READ REGISTER(S)

;RETURN HERE IF ERROR
JERROR # DEFINED BY GET
;60 TO 9% IF ERROR

NOP
EMT
JMP

JSR
8R
NOP
EMT
JSR
JMP

PC ,PRIERR
7%

PC,a(SP)+
9%

JRETURN HERE If ERROR
JERROR # DEFINED BY PUT SURROUTINE
;60 TO 9% IF

ERROR

;60 TO 6% IF NO ERROR

WITH GET

.60 CHECK FOR PRIMARY ERRORS
;60 TO 7% IF NO ERROR
;RETURN HERE ]F ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;G0 TO 9% ]F ERROR

8IT

KATA ,RMDS]
RMDS ] ,$8DDAT
#*CATA ,$8DDAT
$GDDAT
247

;BAD DATA FOR TYPEQUT

MoV
B8IC
(LR
EMT

JSR
- WORD
.WORD

PC,CMPERRSTS
0
0

JCHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
JMASK FOR RMERZ

EMT
JSR

PC,a(SP)+

001142
001142

050400

BEQ

B8R
NOP
9%

143

SUBROUTINE

SUBROUTINF

7%:

104000

;1S ATTENTION RESET??

JYES!!

;GO0D DATA FOR TYPEQUT

;GO TO 9% If NO ERROR
JREfURN HERE If ERROR

JERROR # DEFINED BY CMPERRSTS SUBRRCUTINE
;G0 BACK FOR MORE ERROR CHECKS

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

**‘."'

ERROR/ATA TEST

".""‘**'t"'*'tfi"."t"“'t.""*'."*'*‘*fi'.'*"i‘i""'."*'tt

t"*

017522
017526
017532
017544

004737
054130

1(R1) ,R?

;GO0D DATA FOR TYPEQUT

#*CATNMSK ,R2

B8R

004736

000004
000240
012706
013700
013701
012737

661
662 017540

13-2¢4

7§5A,$GDDAT

MOVB

SeTEST 23

51
51
51
017516

11:43:¢8 PAGE

Ség

B8R

104000

04736
000137
032737
001411
013737
042737
005637

4-APR-81

SEQ 010/

000137

104000

MACRO v04.00

1S123:

001100
001276
001464
000023
041650

001226

SCOPE
NOP
MOV

MOV
MOV

#STACK,SP
$8ASE RO
TSTQUE R

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

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

MOV

#23,8TESTN

J.SET TEST NUMBER IN APT MAIL BOX

JSR
.WORD

PC,TSTPRP
054130

.PREPARE DEVICE FOR TEST
JTASK DESCRIPTOR AS FOLLOWS:

s CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERAT]ION

TORVMMBU IMCS/3/2 FTINL
FRROR/ATA TESTM

v;{

Isr

9
MATRO v04.00 4<-AFR=81 11:43:28 PAGE 13-25

SEQ 0108

sPACK ACKNOWLEDGE

VOLUME

;VERIFY PACK ACKNOWLEDGE

017566
017550
017552
017554
663 017560
664 017560
017566
017574
017602
017606
017610
017612
017614
665 017620

671

000137

020104

112737

000000
000200
000015
043160

112737

012737
004737
000404
000240
104000

017636
017642
017650
017652
017660
017666

000137
032737
001012
013737
042737
12737

020104

100000

001346

001346
077777
100000

001142
001142
001140

112737
112737
012737

000014
000200
040000

001543
001544
001424

017736
017736
C17744

017752

017760
017764
017766

017770

017772

678 017776
679 017776
020002

004737
000404
000240

104001
00013/

112737
11737

012737
004737
000404
000240
104000

687

JSR
BR

043160

020104

3%:

000000
000200
000001
043160

JSR

020104

004737
000404
000240

042710

000137
0327%7
0019012
012737

020104
*00000

001346

100000

(00" 140

7%:

JSR
BR
NOP
EMT
JMP

;50 TO 108 ifF ERROR

PC,PUT

;G0 WRITE RMCS1 VIA PUT SUBROUTINE

;GO TO 2% IF NO ERROR

JRETURN HERE

ERROR

;ERROR DEF INED BY PUT SUBROUTINE
;G0 TO 108 IF ERROR
;5ETUP TO READ ALL REGISTERS

108
PC,GETSTS
-

10%

;GO READ REGISTER(S) WITH GET SUBROUTINE

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

JERROR # DEFINED BY GET SUBROUTINE

:GO TO 108 If ERROR
;IS ATA SET?7

43
RMDS],$BDDAT
#~CATA,SBDDAT
#ATA,$GDDAT
172

JYES!!

#RMER1 ,PUT INX

:SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMER1 OUTPUT BUFFER - UNS
;GO WRITE RMER1 VIA PUT SUBROUTINE

#200,PUT INX+1

#UNS ,RMER10
PC.PUT

108
ARMCS1,PUT
INX

#200,PUTINX+1

#NOP!GO,RMCS10
PC,PUT

108

JSR
BR
NOP
EMT

P(,GET
7%

BIT
BNE

H#ATA RMDS!

MOy

ERROR

sSETUP PUT INDEX TABLE
:SET TERMINATOR BfTE
#OFFSET!GO,RMCS10
;SET RMCST OUTPUT BUFFEK ~ OFFSET!GO

#ATA RMDS |

MOVR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

#RACST,PUT
INX
#200,PUTINX+"

BIT
BNE
MOv
8I(
Mov
EMT

MOVRB
MOV

;RETURN HERE

10%

PC,GET

NOP
EMT
JMp

VALID

JRECAL IBRATE IF *'SKI'*
OR ‘PIP'' IS SET
;VERIFY RECALIBRATION
;GO TO 1% IF NO ERROR

JSR
BR
NOP
EM7

MOVB
MovB
MOV
JSR

5%:

000137

104000

MOvR
MOvR
MoV

£EMT

042710

104172

BR
NOP
EMT
JMP

NOP

004737
000404
000240
104000

1%:

001410

017630
017632

672
673 017674
674 017676
675 017676
017704
017712
017720
017724
017726
017730
017732

681

001543
001544

020104
042624

017634

670

104000

000137
004737

667 17624

648
669

000404
000249

NOT

10%

#ATA,$GDDAT

¢BAD DATA FOR TYPEOUT
:GOOD DATA FOR TYPEOUT

;GO TO 5% IF NO ERROR

;RETURN HERE

ERROR

sERROR DEF INED BY PUT SUBROUT INE
;GO TO 10% IF ERROR
sSETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMCS1 OUTPUT BUFFER - NOP:GO
;GO WRITE RMCS! VIA PUT SUBROUTINE
;GO TO 68 IF NO ERROR

JRETURN HERE

ERROR

;ERROR DEFINED BY PUT SUBROUTINE
;GO TO 108 IF ERROR
;GO READ REGISTER(S) WITH GET SUBRQUTINE

;G0 TO 7% IF NO ERROR
JRETURN HERE [F ERROP

“
JERRQR # DEFINED BY GET SUBROUTINE

;GO TO 108 IF ERROR

;1S ATA STILL SET??
JYES.!

:GOOD DATA FOR TYPEQUT

ZRW’BO RMCS/3/2 FUINL
-3
ERROR/ATA TEST

683 020032
684 020040
685 020046
686 020050
687 020050
020054
020056
020069
020062
020064
488 020070
689 020070
020074
020076
020700
020102
690 020104
¢91
£92

013737
042737
104250

004737
000405
000240

001346

¢7z7zz7

MACRO v04.00

00N 4«2

MOV

00N 42

8%:

057766

104000

00.736
000137
004737
000403
000240

020104

044540

104000

004736

4-APR=-81

10%:

BIC
EMT

JSR
BR
NOP
EMT

020120
020124

693
694 020132
020136

RMDPS],$BDDAT

#*CATA,$BDDAT

13-26

;BAD DATA FOR TYPEQUT

250

PC,STCDRVSTS

JSR
JMP

PC,a(SP)+

JSR
BR
NOP
EMT
JSR

PC,SECERR
108

103

;GO CHECK FOR CHANGES IN DRIVE STATUS
160 TO 98 IF NO ERROR
:RETURN MERE IF ERROR
;ERROR # DEFINED BY STCDRVSTS SURBROUTINE
;G0 BACK FOR MORE ERROR (HE(KS

;GO TO 108 IF ERROR

;GO CHECK FOR SECONDARY ERRORS
;GO 10 108 IF NO ERROR

JRETURN HERE

PC,a(SP)+

ERROR

JERROR # DEFINED BY SECERR SUBROUT INE

;GO BACK FOR MORE ERROR (HE(CKS

. ti.ttl’ltifl!'.t...fil"""'tfi'!’fi‘Q‘Qfi.t"t"

SeTEST 264

020104
020104
020106
820110
020114

11:43:28 PAGE

'tttttfitt'tttfitttttt

PROGRAM

INTERRUPT

TEST

*..ii"t.t'l'tt.t.*t""'t".'t"'i....t'fi'tttitttfittttttt'ttt'

000004
000240
012706
013700
013701
012737
004737
054130

T5724

0037100
001276
001464
000024

SCOPE
NOP

MOV
MOV

MOV

001226

04165C

:SCOPE CALL
#STACK,SP

$BASE RO

TSTQUE ,R1

MOV

#24 ,$TESTN

JSR
.WORD

054130

P(L,TSTPRP

;START OF

TEST

JINITIALIZE STACK POINTER

;RO = UNJBUS ADDRESS

:(R1) = DEVICE BEING TESTFD
;oSET TEST NUMBER IN APT MAIL BOX
;PREPARE

DEVICE

FOR

sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPFRATION

sPACK ACKNOWLEDGE

0201490
020142
020144
020146
695 20152
696 020152
697 020156
698 020162
699 020164
700 020170
701 020174
702 020202
703 020206
706 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
605303

&R
NOP

EMT

1%:

177400

000002
020434
000300
001273
177400

177437

000300

Movas

$VECT1,R2
#*(<377>,R2
(R2) ,R&

MoV
MOV
Mov
MOV
MOVR

100001

005003
042703
000240
012746

16$

BIC
SWAB
DEC
BPL
(LR
BIC
NOP

Mov

2(R2) ,RS

#9%, (R2)
APR6,2(R2)

$VECT1+1,R3
#2C<377>
,R3
R3

NOT

VALID

ERROR

;ERROR # DEF INED BY TSTPRP SUBROUT INE
;GO TO 16% IF ERROR
JR2 = INTERRUPT ADDRESS

;CLEAR SIGN EXTENSION

;SAVE HANDLER ADDRESS

:SAVE HANDLER PRIORITY
;WRITE HANDLER ADDRESS AND
;PRIORITY FOR THIS TEST
JR3 = INTERRUPT LEVEL
;CLEAR SIGN EXTENSION

¢DECREMENT INTERRUPT LEVEL

#*(PR7,R3
#PREC,
= (SP)

VOLUME

;VERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF "'SKI''
OR 'PIP'" IS SET
;VERIFY RECAL IBRATION
;GO TO 18 IF NO ERROR

JRETURN HERE

JMP

BIC

000002

TEST

s TASK DESCRIPTOR AS FOLLOWS:

;sPUSH #PRE ON STA(K

JRYWB, RMOS/3/2 FCTINL IST 1
PROGRAM INTERRUPT TES?
Try
45

212

713

714

715

737

020234
020240
020242
020246
020254
020262

020270
020274
020276
020300
02030¢
719 020306
7¢0 020306
220314
020322
020330
020334
020336
(20340
020342
721 020346
7¢2 020346
723 020352
726 020356
725 020362
726 020364
727 020366
728
729

012746

172777

000016
000200

730

731 020370
732 020372
733 020372
020376

020400

020402
020404
734 020410
735 020410
020414
C20416
020420
020422
020424
736 020430

020430
737 020432

738

739 020434
740 020436

7461 020442

740 020444

743

020444
020450
020452
020454

MOV
MOV
MOV
MOV

001426
001543
001543

020574

112737
112737

000000
000200
000115
043160

012737
004737
000404
000240

104000
000157

004737
004737
012703
000002
005303

020574

043522
042624
000205

001543
001544
001410

3%:

13-27

R3,~(SP)
45%,-(SP)
#-" ,RMASO

JJPUSH #6% ON STA(K

;:PUSH R3 ON STA(K

;sPUSH #5% ON STA(K

JSR
BR
NOP
EMT
JMP

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

mMovs
MOvB
BR
NOP

#RMCS1,PINX
UT
;SETUP PUT INDEX TABLE
#200,PUTINX+1
;SET TERMINATOR BYTE
H#OFFSET.GO!IE,RMCS10
;SET RMCST OUI~UT BUFFER
OFFSET!GO.IF
PC,PUT
:GO WRITE RMCS1 VIA PUT SUBROUTINE
4$
;GO TO 4% IF NO ERRCR
JRETURN HERE [F ERROR

JMmP

16%

JSR
JSR

PC,TIMOUT
PC,GETSTS

DEC
BPL

R3
5%

EMT
A ¥

#6%,-(SP)

JWRITE ONES [N RMAS T0
;CLEAR ALL ATTENTIONS

MOV

5¢:

100376

11:43:28 PAGE

#RM
, PUT
AS
INX

MOVB
MOVR

043160

000137

4-APR-B1

SEQ 0170

020372
020364

MACRO v04.00

MoV
RT]

#200,PUTINX

16%

#205,R3

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

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 16% IF ERROR

;ERROR DEF INED BY PUT SUBROUT INE

;GO TO 16% [F ERROR

JWAIT FOR COMPLETION
sSETUP TO READ ALL REGISTERS
;R3 = GROSS TIMEOUT

;DROP CP PRIORITY
;TIMEOUT THE INTERRUPT

; TIMEQUT BEFORE INTERRUPT
000002

004737
000404
000240
104000
000137

042710

004737
000405
000240

043706

020574

6%:

104000

004736
000137

020574

104251

a3%:

000423
022626
012716
000002

004737
000404
000240

164000

020444
042770

6%
:
10%:

RTI

;RAISE CP PRIGCRITY

JSR
BrR
NOP
EMT
JMP

PC.GET
7$

JSR
BR
NOP
EM7
JSR
JMP

PC.PRIERR

PC,a(SP)+
16%

EMT
BR

251
12%

MP
MOV
RT}

(SP)+,(SP)+
#10%, (SP)

JSR
BR
NOP
EMT

PC,GET

16%

;GO KREAD REGISTER(S) WITH GET SUBROUTINE

;GO TO 7% IF NO ERROR

;RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 16% IF ERROR
;GO CHECK FOR PRIMARY ERRORS

;GO TO 8% IF NO ERROR

JRETURN HERE

ERROR

JERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 16% IF ERROR
.

JADJUST STA(CK
s CHANGE RETURN ADDRESS

JRAISE (P PRIORITY

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 11$ I[F NO ERROR

JRETURN HERE IF ERROR
SJERROR # DEFINED BY GET SUBROUTINE

_ZRMMBO0 RMOS/3/2 FCINL
PROGRAM

INTERRUPT

020456 000137
020462
020462 004737
020466 000405
020470
000240
020672
104000
020474
004736
020476 000137
746 020502
% 020502
004737
115760
920506
020510
009010
020512
000405
020514
000240
264

020516

020520
020522
74,8
020526
749 020526
020532
020534
020536
020540
020542
750 020546
751 020546
020552
020554
020556
020560
020562
75¢ 020566
753 020566
754 020570
755 020574

TST

TES!

MACRO v04.00

11%:

043706

020574

12%:

050400

104000

020574

004737

057766

000405
000240

13%:

104000

004736
000137

004737
000405
000240

020574

14%:

044540

16%

;GO TO

JSR
BR
NOF
EMT
JSR
JMP

PC,PRIERR
12%

;G0 CHETK FOR PRIMARY ERRORS

JSR
.WORD
.WORD
BR
NCP
EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR
JMP
JSR

NOP

020574

010412
010562

000002

EMT
JSR

15%:

"6%:

756

757

758

JMP

104000
004736
000137

H
9
11:43:28 PAGE 13-28
SEQ o1

020574

004736
000137

&-APR=81

168 IF ERROR

;G0 TO 128 [F NO ERROR

JRETURN HERE

oC,a(SP)+
16%
PC,CMPERRSTS

ND TMSK
DPE

13%

ERROR

;ERROR # DEF INED BY PRIERR SUBROUT INE

:GO BACK FOR MORE ERROR CHECKS
;GO TO 16% IF

ERROR

;CHECK ANY ERRORS NOT MASKED

;MASK FOR RMER1
;MASK FOR RMER2

;G0 TO 13% IF NO ERROR

JRETURN HERE IF ERROR

PC.a(SP)+
16%
PC,STCDRVSTS
14%

JERROR # DEFINED BY CMPERRSTS SUBROUT INE

;GO BACK FOR MORE ERROR CHECKS
;GO TO 168 IF ERROR

;GO CHECK TOR CHANGES IN DRIVE STATUS
;GO TO 14% IF NO ERROR

sRETURN HERE

PC,a(SP)+

16%

ERROR

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

;GO TO 16% IF ERROR

PC,SECERR
15%

;G0 CHECK FOR SECONDARY ERRORS
;60 TO 15% IF NO ERROR
JRETURN HERE

JMP

PC,a(SP)+
16%

MOV
MOV

R4, (R2)
R5,2(R2)

ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;GO TO 16% IF ERROR

';Ittttfifi‘t‘!tt.t'l"Qt""ti“i*ttl‘*lttt"iii*!i*fl**tttt'tt'

SWTEST 25
020574
020574
C20576
020600
020604
020610
020614

759 020622

020626

tt’tfil

INHIBIT

INTERRUPT

TEST

'""ttfil'ktt‘lfitttti‘Q*it'tiit***!i*tttttfitti'Ittll’*ittttttfit

000004
000240
012706
013700
0137G1
012737

004737
054130

18125
001100
001276
001464
000025
041650

001226

t'tttt

SCOPE
NOP
MOV

MOV
MOV
Mov

JSR
-WORD

A#STACK,SP

$8ASE RO

TSTQUE ,R?

#25,8TESTN
PC,TSTPRP

054130

:SCOPE CALL
;START OF TEST
JINITIALIZE

STACK POINTER

;RO = UNIBUS ADDRESS
s(R1) = DEVICE BEING TESTED
;oSET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

020630
020632

000404
000240

BR
NOP

JRECALIBRATE IF ''SKI'* OR "PIP'" [S SET
JVERIFY RECALIBRATION
;GO TO 1% IF NO ERROR
JRETURN HERF [F ERROR

"/RMMBC RMOS/38/2 FCINL TST 1
T2%
INHIBIT INTERRUPT TESTY

020634
020636

760 020642
761 020642

762 000646

763 020652

764 020654
765 020660
766 020664

767 020672

768 020676

769
770
771
772

620702
020706
020712
020714

773 020716
774 020720
775 020722

776 020726
777 (20732

778 020734
779 020740
781

020744

020752
020760

020766

020772
020774
020776
021000
782 021004

783 021004

784
/85
786
787
788

021010
021014

104000

000137

(21142

113702

001272

042702
011204

016205
012712

012762
113703
042703
012746
012746
010346

005316
100001
005016
042716
012746
010346
012746
004737
112737
112737

012737
004737
000404
000240
104000
000137

004737
012703
000002

321016

005303
100376

790 021022

112737
112737
012737
004737
000404
000240
104000

789

021020

021030
€21036

01044
021050
021052
021054
021056

000002
021102
0003200
001273

2%:

021070

021016
042624

043160

001543
001544
001410

MOVR
MOvB
Mov

3%:

799 021102
80C 021104

022626
022626

JSR
B8R
NOP
EMT
JMP

11:43:¢8 PAGE

13-29

001543
001544
001410

G%:

JR2 = INTERRUPT ADDRESS

(R2) ,R4
2(R2) RS
#8%, (R2)

;SAVE HANDLER ADDRESS

#PR6,2(R2)

$V:ECT1+1,R3

#°C<377>,R3
H#PR6,
- (SP)
#12%,~(SP)
R3,=-(SP)
(SP)

JCLEAR’ SIGN EXTENSION

;SAVE HANDLER PRIORITY

;WRITE

HANDLER ADDRESS AND

;PRIORITY

FOR

TH]S

TEST

JR3 = INTERRUPT LEVEL
JCLEAR SIGN EXTENSION
:2PUSH #PR6 ON STACK

;:PUSH #12% ON STA(K
. :PUSH /3 ON STACK

(SP)
#~CPR7,(SP)
#6%,~-(SP)
R3,-(SP)
#4648 ,~(SP)
PC,GETSTS
#RMCS1,PUTINX
#200,PUTINX+1

;:PUSH
;:PUSH
;;PUSH
;SETUP

#6% ON STACK
R3 ON STACK
#4% ON STA(CK
TO READ ALL REGISTERS

sSETUP PUT INDEX TABLE
;SET TERMINATOR BYTE

HOFFSET!IGO.IE,RM(CS10
;SET RMCST OUTPUT BUFFER PL.PUT
:GO WRITE RMCS1 VIA PUT SUBROUTINE

;GO TO 3% IF NO ERROR

;JRETURN HERE

13%

ERROR

;ERROR DEFINED BY PUT SUBROUTINE

;GO TO 13% IF ERROR
JWAIT

DEC
BPL

R3
4%

;DELAY

MovB
MOVR
MOV

HRMCS1,PUTINX

sSETUP PUT INDEX TABLE
;SFT TERMINATOR BYTE
;sSET RM(CST OUTPUT BUFFER - NOP
;GO WRITE RMCST VIA PUT SUBROULTINE

#200,PUTINX+1

ANOP ,RM(CS10
PC,PUT

FOR GO = 0

;R3 - GROSS TIMER

;GO TO 5% IF NO ERROR

13%
#205,R3

;GO TO 13% IF ERROR

DEC
BrL

#9%, (R2)
R3
7%

cMp
cve

(SP)+,(SP)+
(SP)+,(5P)+

mov

RT!

8%:

S$VECTT,RZ

#AC<377R2
>

PC, TIMOUT

MoV
RTI

00000/

JERROR # DEF INED BY TSTPRP SUBROUTINE
;GO TO 13% If ERROR

#205,R3

vSR
BR
NOP
EMT

6%:
7%:

138

JSR
MoV
RT1

021104

MOvR
BIC
MOV
MOV
MoV
MOV
MOvB
BIC
MOV
MOV
MoV
DEC
BPL
(LR
BIC
MOV
MOV

JSR

043522
000205

000000
000200
0060000
043160

JMP

MOV

021742

012712
005303
100376

000002

177437

021970
021074
021076
021100

794
795
796
797
798

ig% 021066

1%:

177400

021142
000205

021062

EMT

000300
021134

000000
000200
000115

4-APR-81

SEQ 011,

177400

000137
012703
000002

791

MACRO v04.00

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

;NO ERROR

;ADJUST STA(K

;ADJUST STACK

OFFSET.GO.IE

TIRMMBO RMOS/3/2 FCINL TST 1
INMIBIT INTERRUPT TEST

80" 021106
802 021112

oo
£SO

ek
b

OSSN
NN

b wad

b e

—d
] il

el eed
—
—

—
—

R12

—

jololNelolololole] o
oD
oo
NNND

803 021114
804 021114
021120
021122
021124
021126
805 021132
021132
806
807 021134
808 02113%6
809 021142
810
811

MACRO v04.0C

4-APR-87

11:4%:¢8 PAGE

SEQ U713

012716
000002

021114

MOV
RT!

#108,(SP)

004737
000404
000240

042770

JSR
B8R
NOP
EM7
JMP

PC,GET
11%

EMT

252

MOV
MOV

R4, (R2)

104000

000137

021142

11%:

104252

010412
010562

9
1 3-30

12%:

000002

13%:

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

SRETURN HERE

ERRDR

SERROR # DEFINED BY GET SUBROUTINE

13%

.GO TO 138 IF ERROR

R5,2(R2)

'"Il’*lttttt'tttltitttti*ttttfi'ttfi'tt'ttt*ttfltt

TRTEST 26

**ilt*ttttt'ttt't.'

RETURN

TO CENT ERLINE

TEST

"'ttfittttt**itt**ttfi*i'*"tfii’tk*ti!tfitl"tQt*it

5726

000004
000240
012706
013700
013701
012737

001100
001276
001464
000026

004737

041650

054130

tt*fitfitit-'ktlt!tt.

SCOPE

NOP
MOV
MOV
MOV
MOV

001226

JSR

.WORD

$BASE RO

TSTQUE ,R1
#26,8TESTN

;SCOPE CALL
;START OF TEST
SJINITIALIZE STACK POINTER
;RO
UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED
;oSET TEST NUMBER IN APT MAIL BOX

PC,TSTPRP
054130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

#STACK,SP

;CLEAR CONTROLLER & SELECT DEVICE
SVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

VOLUME

;VERIFY PACK ACKNOWLEDGE

sRECALIBRATE

021176
021200
021202
021204

814 021210
815 021210

021216
021224
021232
021236
021240
021242
001244
021250
021254

021260
021264
021266
021270
021272
820 021276
821 021276

000404
000240
104000
000137
112737
112737

012737
004737
000404
000240
104000
000137
004737
004737

021464

000000
000200
000017
043160

001543
001544
001410

1%:

B8R
NOP
EMT
JMP
MOVB
MOVB
MoV
JSR

#RMCS1,PUTINX

#200,PUTINX+1

#RTC!GO,RMCS10
PC.PUT

VALID

"'SKI'' OR 'PIP'' IS

;VERIFY RECAL IBRATION

SFT

;GO TO 1% IF NO ERROR
JRETURN HERE

NOT

ERROR

SERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TD 9% IF ERROR
;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMCST1 OUTPUT BUFFER - RT(.GO

;GO WRITE RMCS1

VIA PUT SUBROUTINE

:RETURN HERE

ERROR

;G0 TO 2% IF NO ERROR

NOP
EMTY
JMP
JSR
JSR

PC,GETSTS
PC.TIMOUT

;50 TO 9% IF ERROR

042710

JSR

PC.GET

;GO READ REGISTER(S) WITH GET SUBRGUTINE

000137

021464

NOP
EMT
JMP

;GO TO 9% IF ERROR

004737

043706

+SR

P({,PRIERK

GO (HECK FOR PRIMARY ERRORS

004737
000404
000240
104000

021464
042624
043522

2%:

3%:

;ERROR DEFINED BY PUT SUBROUTINE

:SETUP FOR STATUS FET(CH
SWAIT FOR RECAL TO COMPLETF

;G0 TO 3% IF NO ERROR

JRETURN HERE

ERROR

;ERROR # DEFINED BY GET

SUBROUTINE

"ZRMMBO RMOS/3/2 FCINL TST 1
RETURN TO CENTERL INE
To4

021302
021304
021306
021310
021312
822 021316
823 021324
824 021326
825 021332
826 021340
827 021346
828 021350
829 021356
830 021360
831 021366
832 021374
833 021402
834 021404
835 021404
021410
021412
021414
021416
021420
021422
021424

836 021430
837 021430
021434
021436

021440

021442
021444
838 021450
839 021450
021454
021456
021460
021462
840 021464
841
842

FACRO v04.00
TEST

BR
NOP

104009

013737

042737
104157

032737
001012
013737
042737
012737
104171

004737
115760

021464
000001

001140
001346

001346

177776

001142
001142

100000

001346

001346
077777
100000

4%:

MOV

843

844 021512

021516

BIC
EMT
BIT
BNE

5%:

6%:

000010
000405
000240
104000

004736
000137

021464

004737

057766

000405
000240
104000
004736
000137

004737
000403
000240

7%:

021464

8%:

044540

9%R

000004
000240
012705
013700
013701
012737
004737
054130

041650

001226

PC,R(SP)+

#0OM_RMDS
I

5%
$GDDAT

RMDS
! ,$BDDAT

#*COM,$BDDAT

ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 9% IF ERROR
;OFFSET MODE OFF??

;YES!!

.GOOD DATA FOR TYPEOQUT
;BAD DATA fOR TYPEOQUY

157

RMDS], $BDDAT
#~CATA,$BDDAT
fé{A'SGDDAT

*BAD DATA FOR TYPEOUT

JSR
.WORD
.WORD
BR
NOP

PC,CMPERRSTS
ND TMSK
DPE

;CHECK ANY ERRORS NOT MASKED
JMASK FOR RMER1

;GOOD DATA FOR TYPEQUT

sMASK FOR RMERZ

;GO TO 7% IF NO ERROR

JRETURN HERE

JSR
JMP

PC,a(SP)+

JSR
BR
NOP
EMT
JSR
JMP

PC,STCDRVSTS

PC.a(SP)+

PC,SECERR

PC,a(SP)+

ERROR

JERROR # DEFINED BY CMPERRSTS SUBROUTINE
;GO BACK FOR MORE LRROR CHECKS
;GO TO 9% IF ERROR
;GO CHECK FOR CHANGES IN DRIVE STATUS

;GO TO 8% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY STCDRVSTS SUBRCUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 9% IF ERROR
;GO CHECK FOR SECONDARY ERRORS

;GO TO 9% [F NO ERROR
;JRETURN HERE IF ERROR
JERRCR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MCRE ERROR CHECKS

R AR AR ARAN *tfitll***fitttt*fiRtt**t*l'*’itttfitttttttitttt

15127
001100
001276
001464
000027

;GO TO 4% IF NO ERROR

SRETURN HERE

MOV
B81C
MOV
EMT

LWTEST 27
.

WAS ATTENTION SET

JSR
BR
NOP
EMT
JSR

104000

004736

13-31

HATA ,RMDS1

EMT

021464
021464
021466
021470
021474
021500
021504

EMT
JSR
JMP
817
BEQ
CLR

001142
001142
001140

050400

11:43:28 PAGE

SEC 114

000405
000240
004736
000137
032737
C01411
005037

4-APR-~81

AR AR R A

SCOPE
NOP
MoV
MOv
MoV
MoV
JSR
.WORD

ttttt'itit

READ

IN PRESET

TEST

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

ASTACK,SP

$BASE ,RO

RNRA RN RNRNRR

AR R AR AN

s SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

TSTQUE ,R1

JRO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED

PC,TSTPRP

;PREPARE DEVICE FOR TEST

427 ,$TESTN

054130

;oSET TEST NUMBER IN APT MAIL BOX
s TASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

VOLUME

NOT

VAL D

CZRMMBO RMO5/3/2 FCTINL

[N PRESET

1%:

001543
000006
000034
000032

012737
012737
012737
004737
000404
000240
104000

000000
000200
177777
177777
016200
000021
043160

000137
004737
004737

022046
042624
043522

004737

000404
000240
104000
000137

004737
000405
000240
104000
004736
000137
013737
042737
001403
005037
104160
CO5737
001406
013737
005037
104161
005737
001406

013737
005037
104162

004737
115760
aMo10

BR
NOP
EMT
JMP
MOV
MovB
MOVR
MOVB
MOvB
MOvB
MOV
MOV
Mov
MOV
JSR
BR
NOP
EMT

001416
001444
001442
001410

2%:

11:43:¢8 PAGE

13-32

JVERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SK]'* OR 'PIP'’ IS <FT
JVERIFY RECALIBRATION
;GO TO 18 IF NO ERROR
JRETURN HERE

108
APUTINX
,R2
#RMDA, (R2) ¢+
#RMDC, (R2)+
#RMO
, (R2)
F
+
#RM(CST1, (R2) +

ERROR

;ERROR # DEFINED BY TSTPRP SUBROUT INE

;GO TO 108 IF ERROR

;R2 POINTS

TO INDEX TARLE

#200,(R2)+

#-1,RMDAQ
#-1,RMD(CO
AFMT16!ECI.HCI.OFD,RMOFO
#RIP!GO,RMCS10
PC,PUT
;v WRITE REGISTER(S)

108

;GO TO 2% IF NO ERROR

WITH PUT SUBROUTINE

sJRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 10% IF ERROR
;SETUP FOR STATUS FETCH

JSR
JSR

PC,GETSTS
PC,TIMOUT

042710

JSR

PC.GET

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

022046

NOP
EMT
JMP

108

;GO TO 108 IF ERROR

PC,PRIERR
3

;GO CHECK FOR PRIMARY ERRORS
;GO TO 4% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHE(KS
;GO TO 108 IF ERROR
.1S RMOF RESET??

3%:

043706

022046
001366
161577

&~
rORY

021704
865 021712
21714
867 021720
868 021722
021726
870 021730
871 021736
872 021742
873 021744
874 021750
875 021752
876 021760
877 021764
878 021766
879 021766
021772
021774

022046

—

021616
021620
021622
021624
857 021630
858 021634
859
860 021640
021644
021646
021650
021652
861 021656
021656
021662
021664
021666
021670
021672
863 021676

000404
000240
104000
000137

—

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

4-APR=81

SEQ 0115

—

READ

MACRO v04.00

IST 1
TEST

4%:

001140
001342
001342
001140

5%:
001142

001370
001370
001740
050400

JSR

NOP
EMT
JSR
JMP
MOV
BI(C
BEQ
CLR
EMT
TS7
BEQ

MOV

6%:

001142

CLR
EMT
TST

BEQ

MoV

7%:

CLR
EMT

JSR
.WORD
.WORD

;WAIT FOR RIP TO COMPLETE

;ERROR # DEFINED BY GET SUBROUT INE

PC,a(SP)+
108
RMOF
] ,$8DDAT
HC<FMT16'ECI'HCI!OFD>,$BDDAT

5%
$GDDAT

160
RMDAI

RMDAI, $BDDAT
$GDDAT
161
RMDCI

7%
RMDCI, $BDDAT
$GDDAT
162

PC,CMPERRSTS
NDTMSK
DPE

JYES!!
;GOOD DATA FOR TYPEQUT

;IS RMDA RESET??
JYES!!
sBAD DATA FOR TYPEOUT
.GOOD DATA FOR TYPEOQOUT
:$gsnmoc RESET??

*BAD DATA FOR TYPEOUT

1GOOD DATA FOR TYPEQUT

s CHECK ANY ERRORS NOT MASKED

;MASK FOR RMER1
JMASK FOR RMERZ

"ZQNWBO RMOS/3/2 FCTINL
READ

IN PRESET

02°776
022000

022002
022004
022006
880 022012
881 022012
022016
022020
022022
022024
022026
882 022032
883 022032
022036
022040
022042
022044
884 022046

TST

TEST

MACRO v04.00

BR
NOP

104000
004736
000137

022046

004737

057766

004737
000403
000240
104000
004736

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

000405
000240

000405
000240
104000
004736
000137

4-APR-B1

8s:

022046

9s:

044540

EMT
JSR
JMP

PC,a(SP)+
108

:ERROR # DEF INED BY (MPERRSTS SUBROUTINE
GO BACK FOR MORE ERROR CHE(CKS
:GO TO 108 IF ERROR

JSR

PC,STCDRVSTS

;GO CHECK FOR CHANGES IN DRIVE STATUS

BR
NOP
EMT
JSR
JMP

PC,R(SP)+
10§

JSR
BR
NOP
EMT

108:

886

:GO_TO 88 IF NO ERROR
:RETURN HERE If ERROR

PC,SECERR
108

JSR

PC.A(SP)+

16O TO 9% IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY STCDRVSTS SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 108 IF ERROR
;GO CHECK FOR SECONDARY ERRORS
26O _TO 108 [F NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FCR MORE ERROR CHECKS

ttttttttfl'it!t**‘t*t'Q*'t.ti!".t'tttfitttfifittt'i AEAA AR

SATEST 30

000C04
000240
012706

022062

013701

ggy 022066

888 022074
022100

022102
022104
€22106
022110
889 022114
890 022114

022122

RMDC CLEAR OFFSET

ANRA RN

TEST

ittttttitti**tt*tttt'fitt"‘.t'ttt**ttttfitfitt.it'ttfitttttttttt*tt

022046
022046
022050
022052

022056

013700

012737
004737
054130

000404
000240
104000
000137

112737

022130
022136
022142
022144
022146
022150
891 022154

012737
004737
000404
000240
1046000
000137
004737

893 022160
022164
022166

004737
000404
000240

75730:

001100

001276

001464

000030

001226

022364
000000
000015
043160

022364
042624
042710

#STACK , SP

:SCOPE CALL
:START OF TEST
:INITIALIZE STACK POINTER

MOV

TSTOUE,R1

:(R1) = DEVICE BEING TESTED

MOV

041650

000200

SCOPE
NOP
MOV

001543

18:

001544

MOV

#30,$TESTN

JSR
.WORD

PC,TSTPRP
054130

BR
NOP
EMT
JMP

MOVB

001410

2%:

$BASE , RO

8$
#RMCS1,PUTINX

#200,PJTINX+1

RO = UNIBUS ADDRESS

::SET 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
:RECALIBRATE IF '‘SKI"*
OR 'PIP'* IS SET
:VERIFY RECAL IBRATION

:GO TO 18 _IF NJ ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUT INE
:GO TO 8% IF ERROR

;SETUP PUT INDEX TABLE

:SET TERMINATOR BYTE

MOV
JSR
BR
NOP
EMT
JMP
JSR

HOFFSET!GO,RMCS10 ;SET RMCST OUTPUT BUFFER
OFFSET!GO
PC,PUT
GO WRITE RMCST VIA PUT SUBRBUTINE
2s
:GO_TO 2% IF NO ERROR
:RETURN HERE IF ERROR
ERROR DEF INED BY PUT SUBROUTINE
8%
160 TO 88 IF ERROR
PCLGETSTS
:SETUP FOR STATUS

JSR
BR
NOP

PCLGET
38

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

‘

"JRMMBO RMOS/3/2 FCINL

T30

RMDC CLEAR OFFSET TEST
022170
022172

894 022176
895 022176

022202
022204
022206
022210
022212
896 022216
857 022224

898
899
900
901

022226
022234
022242
022250

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

902 022252

000444

904 Q22254

112737

903 022254

022262
02¢270
022276
022302
022304
022306
022310
905 D22314
906 022314
022320

022322

022324
90/
908
909
910
911
912

022326

022332
022340
022342
022350
022356
022362

g}z 022364

112737
012737
004737
000404
000240
104000
000137

004737
000404
000240
104000
000137

032737
001411
013737
042737
005037
104253

MACRO v04.00

3%:

043706

022364
000001

001346

001346
177776
000007

001142
001142
001140

000200
0C0000
043160

001543

4%:

5%:

001544
001444

022364

6%:
_
‘

042710

022364

11:643:28 PAGE

13-34

SEQ 0117

(22364

(000034

4-APP-81

EMT
JMP
JSR
BR
NOP
EMT
JSR
JMp
BIT
BNE

001346

001346
177776
001140

001142
001142

7%:

8%:

91 S

PC,PRIERR
48

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

;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 8% IF ERROR
;GO CHECK FOR PRIMARY ERRORS
;GO TO 4% IF NO ERROR
JRETURN HERE IF ERRCR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 8% IF ERROR
;OFFSET ON??
JYES
;BAD DATA FOR TYPEQUT

MOV
BIC
MoV
EMT

RMDSI , $BDDAT
#~COM, $BDDAT
#0M, $GDDAT
156

;SKIP REST OF TEST

MOVR

#RMDC ,PUT INX

;SETUP PUT INDEX TABLE

B8R

MOVB
MoV
JSR
BR
NOP
EMT
JMP

JSR
BR

NOP
EMT

000001

JMP

BIT
BEQ
MOV
. BIC
(LR
EMT

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

PC,GET
7%

#OM,RMDS |
8$
RMDS] , $BDDAT
#~COM, $BDDAT
$GDDAT
253

;GOOD DATA FOR TYPEOUT

;SET TERMINATOR BYTE
;SET RMDC OUTPUT BUFFER = 0
;GO WRITE RMDC VIA PUT SUBROUTINE
;GO TO 6% IF NO ERROR
JRETURN HERE IF ERROR
JERROR 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
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 8% IF ERROR
;DID OFFSET MODE RESET??
;:BAD DATA FOR TYPEOUT

:GOOD DATA FOR TYPEOQUT

'-: ttttttt*tttttttttttttttttttttttttttttt*t*t**ttktttttttttttttttt

J*TEST 31

022364
022364
022366
022370

000004
000240
012706

001100

022400
atg 022404

0137201
012737

001464
000031

Y17 022412

004737

022420
02¢422
0224264
C22426

G00404
000240
104000
000137

022374

002416

ILLEGAL FUNCTION TEST

.-;ttttttttttttttttttfitttttttttttttttttttt*tttttt*tttt*tttt

013700

040000

TST31:

ttttttt

SCOPE
NOP
MOV

_H#STACK,SP

MOV
MOV

TSTQUE ,R1
#31,8TESTN

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

041650

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

(0c3°50

BR
NOP
EMY
JMP

;GO TC 1% IF NO ERROR
;JRETURN HERE IF,ERROR
SERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 13% IF ERROR

001276

Mov
/ " $BASE.RO
001226

.WORD

040000

3¢

:SCOPE CALL
;START OF TEST
;INITIALIZE STACK POINTER

‘RO = UNIBUS ADDRESS

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

JRMMB, RMOS./3/2 FCINL TST °
ILCEGAL FUNCTION TEST
&

918 (0226432

219 022672
920 0224636

921 022642
922 022442
022446
£22650
022452
022454

9323 022460
24
325
926

S¢7 022460
022466
022474
022502
022506
022510
022512

004737

012702

(42624
20000C

004737

052264

112737
112737

012737

004737

000404
000240
104000

022150

523 02252C

112737
132737

000024
000200
001401

022612
022614

934 (22620
935 022620
936 022626
937 022632
938 022640
939 022646
90 022652
941 022656
942 022664

963 022670

844 022674
945 022700
936 022704

947 022710

9468 022714

B34S (2272C

+SR
L 01"}

J5R
8r
NOP
gmr
JMP

MOV
Move
MOv
. SR
8Rr
NOP
gEmT
4.

043160

000137

0¢3750

1127%7
112737

000000
000200
000023

012737
004737

000404
000240
104000
000137

012737
050237
012737
012737
005037

ANAN NN
N NN N N

022610

104000

022574
022602
022606

3%:

0002490

930 022560
93
932
$33 022550
022566

000404

b ard wd md nd

022550

022552
022554

12737
004737

022534
022542
022546

2$:

000C24
000200
000001
043160

000137

0e526

i ¥

PC.GETSTS

S¢@ 0118

JSETUP FOR STATUS

ONOP R

PC,INTCLR

26O ISSUE (ONTROLLER (LEAR

;G0 TO 38 IF NO ERROR

cRETURN HERE

ERROR

;ERROR NUMBER DEF INED BY SUBROUTINE

138

;GO TO 138 IF ERROR

SSET DIAGNGSTIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON

22514

928 022520

MAIRT vl S 4=APR-8" *7:43:/8 PAGE8112-35

c2315¢C

PORLRLRURINI
RN A A
NN NNNNNNNO
=PRI
O N

0643160

007610

023150
000001
001410

103274
177777

00141¢
001444
010000
001543
000004
000002
000032
00C006

000034

000060
000200

0014°¢C

001414
001472

0C1442

SSET

#200,PUT INX<1

#DMD RMMR* O

P PUT

sSETUP PUT INDEX TASLE

;SET

TERMINATOR BYTE

;SET RMMRT OUTPUT BUFFER - DMD
;G0 WRITE RMMR: VIA PUT SUBROUTINE

;GO TO 4% IF NO ERROR
SRETURN HERE IF ERROR

138

;GO TO 13% IF ERROR

MOvB
MOVB
MOy
JSR
BR

#RMMR L PUT INX
#200,PUT INX+1

JMP

138

NOP
Emr

001543
001544

SRMMRT PUT INX

MOVEB
MOv
JSR
Br
NOP
Em7
imp

MOy
B8lS

MOV

MCv

r.R
{LR

MOV

MOVR

MO vB
MO /R
MGvB

MOVB
MO/B8

MG vB

SUBROUT INE

sSETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
#DMD ! MUR ! MOC ,RMMR 10
DMD . MUR . MO(
:SET RMMR1 OUTPUT BUFFER
PCPUT
;G0 WRITE RMMR1 VIA PUT SUBROUT INE
5§
;GO 70 5% IF NO ERROR
SRETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUTINE

WOLUME VALID BEFORE
MO8

;ERROR DEF INED BY PUT

;GO 7O 13% IF

ERROR

ISSUING FUNCTION CODE BEING Ti STED

#RM(ST,PUTINX

sSETUP PUT INDEX TA3LE
;SET TERMINATOR BYTE
#PAKAC
GO, RMCSK
10
PAKA(K . GO
;SET RMCST OUTPLT BUFFER
BL,PiT
;60 WRITE RMCS1 VIA PUT SUBROUTINE
68
;GO TO 6% IF NO ERROR

#200,PUTINX+1

JRETURN HERE

133

ERROR

SERROR DEFINED BY PUT

;GO TO 138 IF ERROR

SUBROUTINE

#GG,RMCS10

R2 ,RM(S10

#BUF
ONE ,RMBAD

o-1,RMy(0

RMDAO
RMD(O
#FMTI6, RMOF O
#PUT INX ,R3
ARMBA, (R3)+
#RMIC, (R3) »
#RMO
, (R3)
F
+
#RMDA,
(R3
ARMD(, (R3)

#RMLST, (RS«

8200, (RY)

SWRITE FUNCTION CODE IN BUFFER
;DUMMY BUS ADDRESS
;DUMMY WORD COUNT
;CLEAR DISK ADDRESS
;CLEAR CYLINDER ADDRESS
;16 BIT FORMAT
JWRITE REGISTER INDEX TARLE

gE“FB(

RM0S/3/72 FOINL TSy b
[ EGAL FUNCYION TEST

=59 022724

6360

02¢7
02273%
022742

004737
000404
000240

000°37
004737

02315C
063522

022752
022754

004737
000404
000240

062710

022730
022732

o5
95¢
953 022746

022756

022760

954 022764
955 022764

022770
022772
022774
022776
023000
556 G23004
957 023012
958 023020
959 023026
960 023034
961 023042
962 023044
963 023046
023050
965 023056
023064
967 023066
023074
969 023102
970 023110
971 023116
972 023124
973 023126
974 023130
975 023132
976 023136
977 023142
978 023144
979 023150

1064000

104000

MA&RC

.
svle .o

. SR

BR
NOP
Em?
JMP
J5R

7*:

2SR
B8R
NOP

000137

023150

004737
000405

043706

JMP

8%:

JSR

8R
NOP
EMT
. SR
JMP
MOV
BIC
MOV
81C
(Mp
BEQ
EMT
8R
MOV
BlY
8EQ
BIS

104000

000002
000076

000137

022442

103402

023150
067136
1727776

001350
177776

001140

001140
001140

9% :

001142
001142
001142

067136
040000

001140
001346

100000

0071140
00" 140
007142
007142
007142

077777
001346
077777
001140

108:

11¢:

8IC

MOy
8I(
mp
BEC
gmr
BR
ADD
(mMp
8LO
JMP

T2%:

13%:
AR

ARAA SR

LetgsT 72
RS

023150

023150
023152
023154
03160
023164
023170

000004
000240
012706
613700
013701

983 23176

004737
540000

023202

012737

TS132:

001100
001276
001464
000032

041650

12-3¢

PL,PLY
7$

;GO WRITE REGISTER(S) WwlTH PUT SUBROUTINE

;GO TO 78 IF NO ERROR
SJRETURN HERE IF ERROR

;ERROR # DEF INED BY PUT SUBROUTINE

13¢

;G0 T0 138 IF ERROR

PC,TIvwOUY

JWAIT FOP GO TO RESET

;G0 READ REGISTER(S) WITH GET

00122¢

AR AR

JRETURN HERE

SCOPE
NOP

MOV
MOV
MOv
MOV

JSR
.WORD

ERROR

JERROR # DEFINED QY GET SUBROUTINE

138

;GO TO 13% IF ERROR

P( ,PRIERR

;GO0 CHECK FOR PRIMARY ERRCRS

;G0 TO 9% If

JRETURN HERE

NO ERROR
[F

ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE

PC,a(SP)e

GO BACK

138

FOR MORE

ERROR CHECKS

;GO TO 138 IF ERROR

FNCDTB(RZ) ,8GDDAT

#*CILF ,SGDDAT
RMER1],88BDDAT
#*CILF ,SBDDAT
$GDDAT ,$BDDAT

;GET ENTRY FROM FUNCTION (ODE

<BAD DATA FOR TYPEOUT
;IS

108

ILF

JYES!!

254

STATUS CORRE(CT?

138

FNCDTB{(R2),$GDDAT
:gzfl,RHDSI
::3? AN ERROR DETECTED??
#ATA _SGDDAT
#~CATA, SGDDATY

JYES - ATA SHOULD BE

RMDS],$8DDAT

:GET DRIVE'S ATTENTION

$GDDAT ,$BDDAT
12%

;1S ATA STATUS 0K??
SJYES!!

13%
82 ,R2
#ILF76 .R?

;G0 TO NEXT FUNCTION CODE
;DONE??

#*CATA SBDDAT

255

138

JYES

Al KR

JTEST NEXT

INVALID COMMAND
AL A

SURROUTINE

;60 TO 8% IF NO ERROR

Emr

000240

004736
000137
016237
042737
013737
042737
023737
0402
104254
000440
016237
032737
001403
052737
042737
013737
042737
023737
001402
104255
000407
062702
022702

c 10

11:03.
8 PAGE

SEQ 0119

980
981

582

4=APRaRY

S22

FUNCTION

2122

TEST

s SCOPE (ALL

#STACK , SP
$RASE , RO
TSTOUE ,R1

;START OF TEST
YINITIALIZE STACK POINTER
‘RO = UNIBUS ADDRESS

S(R1)

#32,$TESTN

1:SET

PC,ISTPRP

;PREPARE

060000

DEVICE BEING

TEST NUMBER
DEVICE

TESTED

IN APT MAIL BOX

FOR

TEST

:"ASK DESCRIPTOR AS FOLLOWS:

TABLE

JRMMBO RMOS/3/2 FCINL TST °
INVALID COMMAND TEST

MACRO

,Te.uu

4&=aPR=8'

584
985

387
988

000137

023674

004737
012702

062626
000000

004737

052264

000404
000240

104000

786 0023264
$3C

391
992
953 023244

623252
0235260
023266
023272
023274

023276

023300
023304
023304
023312
023320
023326
023332
023334

023336
023340
023344

000137

c®:

023e.74

JCLEAR CONTROLLER & SELECT DEVICE

ar
NOP

;GO TO 18 IF NO ERROR
JRETURN HERE IF ERROR

JMp

13¢

;GD 10 13% [F

EM?

. SR

JERROR # DEF INED BY TSTPRP SUBROUT
INE

PC,GETSTS

*MOV

JSR

PCLONTCLR

B8R

NOP
EMT
JMP

138

ERROR

;SETUP FOR STATUS
;GO ISSUE

CONTROLLER CLEAR

;G0 TO 3% [F NO ERROR

JRETURN HERE [F ERROR
;ERROR NUMBER DEF INED BY SUBROUTINE
;GO O 138 [F ERROR

:%gfizéQSNOSric MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON
112737
112737

012737
004737
000404
000240
104000

000024
0C0200
000001
0463160

000137

023674

112737
112737

000024
000200
00140
043160

012737
004737
000404
000240
104000

000137

001543
001544
001434

sCve

N01543

001544
001434

023674

012737

050237

012737
012737
005037
005037
012737

012703
S roronornong

O =t =dmd
b ek b
[ap JE= T RO PSRN
Py

112723

000001
001410
103274
177777

001416

001444
010000
001543
000004
000002
000032
000006
000034
000000
000200
043760

001474

001412

001442

SRMMR1,PUTINX
#200,PUTINX+1
#DMD ,RMMR 10

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
JSET RMMR1 OQUTPUT BUFFER = DMD

8R
NOP

;GO TO 4% IF NC ERROR
;JRETURN HERE IF ERROR

JMP

138

;GO TO 13% [F

MOVB

#RMMR1 PUTINX

;SETUP PUT

JSR

PC,PULT

;GO WRITE RMMR1 VIA PUT SUBROUTINE

JMP

138

Emr

MOVS
MOV

001470

MOVR
MOVR
MOV

JSR

JVCLUME

023344
023344
023352
023356
023364
023372
023376
023402
023410
023414
023420
023424

13-

SEQ 0120

000404
000240
104002

D 10

**:(T:.8 PAN £

63:

BR
NOF
EMT

VALID

MOV
RIS

MQOv,-

MOV
(LR
C R

PC,PuUT

5¢

ERROR

INDEX TABLE

;GO TO S$ IF NO ERROR
:RETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUUTINE
;GO TO 138 IF ERROR

IS (EFT RESET FOR THE TEST

#GC,RM(S10
R RMCS10

#BUFONE ,LRMBAC

#-1,RMJCO

RMDAO
RMD (O

#FMT16,RMOF D
#PUTINX ,R3
FRMRBA
, (R3) +
#RMJ(, (R3)

MOVA
MOVR

#RMDA, (R3) «
#RMD(
, (R3)+

’
JWRITE FUNCTION CODE
;DUMMY BUS ADDRESS
:DUMMY WORD COUNT

IN BUFFER

;CLEAR DISK ADDRESS
;CLEAR CYLINDER ADDRESS

;16 BIT FORMAT
;WRITE REGISTER INDEX TARLE

H#RMOF
, (R3) +

MOVR

#RM(ST, (R2)

JSK

P(,PUT

M0O.B

;ERROR DEFINED BY PUT SUBROUTINE

#200,PUTINX+T
;SET TERMINATOR BYTE
#DMD ' MUR . MOC ,RMMR10
:SET RMMR1 OUTPUT BUFFER = DMD'MUR
. M-

MOV
MOV
MOVA
MOVR
MOVR

;GO WRITE RMMRT VIA PUT SUBROUTINE

#200, (R3)

;60

WRITE

WITH PUT

SUBROUTINE

”RflMBO RMOS/3/2 FCINL

INVALID COMMAND “EST

023454
023456

023460

L=APR=81

104000

023674
043522

023472
023476
923500
023502
023504
1021 023510
1022 023510

004737
0006404
000240

042719

104000
000137

004737
000405
000240

’$:

0eT706

001403
052737
042737
013737
0462737
023737
001402

9% :

001376

167777
001140

001140
0011490
001142
001742
001142

067136
040000

007140
001346

:
108

100000

001140
201°40
001142
001142

Q77777
001346
077777

001140

001142

0000C2
000076

000137

623226

1048

1049
1050 023722

023726

‘RETURN HERE

WITH GET

SUBROUTINE

ERROR

:ERROR # DEF INED BY GET SUBROUTINE

JSR
8R
NOP
EMmY
. SR

PC,PRIERR
98

;GO CHECK FOR PRIMARY ERRORS
:GO T0 98 IF NO ERROK

PC,a(SP)e

SERROR # DEFINED BY PRIERR SUBROUT
INE
:G0 BACK FOR MORE ERROR CHECKS

‘RETURN HERE IF ERROR

13§

FNCDTB(R
, $GDDAT
2)

::3§ AN ERROR DETECTED??

#ATA ,SGDDAT
#~CATA,SGDDAT

sYES = ATA

:GET DRIVE'S ATTENTION

$GDDAT.SBDDAT
128
255
138

;1S ATA STATUS OK??
SYES!

SHOULD BE

RMDS],$BDDAT

8250
#IF75.R2
13§

mMp

gfigk.nnosx

#~CATA_SBDDAT

{Mp
TRY

AR AN S

1GO TO 138 IF ERROR

FNCDTB(R?) ,$GDDAT
;GET ENTRY FROM FUNCTION CODE
#~C1vC,$GDDAT
RMER2] ,$BDDAT
;BAD DATA FOR TYPEOQUT
#~C1v(.$BDDAT
$GDDAT .$80DAT
;IS IVC STATUS CORRECT?
108
TYES!!
216
13%

ADC

LetEST 23
023674
023674
023676
023700
023704
023710
023714

“GO TO 88 JF NO ERROR
GO TO 138 IF ERROR

{Mp

"38:

‘GO T0 138 If ERROR
‘WAIT FOR GO TO RESET

3¢

8EC
EMT
8R

¥
2

ERROR

-MpP

BIC
MOV
BiC
(mP
BEQ
EmT
8R
MOv
8]?
BEQ
8IS
B8IC
MOV
HA

1°$:

:ERROR # DEF INED BY PUT SUBROUT
INE

;GO READ REGISTER(S)

MCy

104255

000407
062702
022702
103402

PC,GE?

“MP

104216

000440
016237
032737

. SR

EMT

£%:

*RETURN HERF

13¢
oC, TIMOUT

02347«

167777

'3-38

;60 10 7$ IF NO ERROR

JSR

NOP

023674
067136

€ 10

PAGE

NOP
Emt
JMP

104000

004736
000137
016237
042737
013737
0462737
023737
001402

*1:4%:/8

~EQ 0121
8R

000137
004737

1046 C23674
1047

v,
U

009406
000240

023462
023466

023514
023516
023520
023522
023524
1023 023530
1024 023536
*025 023544
*026 023552
1027 023560
1028 023566
1029 023570
1630 023572
1031 023574
1032 023602
1033 023610
1034 023612
1035 023620
*036 023626
"037 023634
1038 023642
1639 023650
1040 023652
1041 023654
1042 023656
1043 023662
1044 023666
1045 02367C

MATRO

;GO TO NEXT FUNCTION CODE
*DONE
??
SYES i

STEST NEXT FUNCTION
R

INVALID ADDRESS ERROR TEST

- .l."R.....'Qt..t"t"'."'t."......fififi'.t'fifi'.'.ttlt..tit'
.tt

000004
000240
012706
013700
013701

t5733;

012737

001100
001276
001464
000033

004737

041650

060300

0012¢¢

SCOPE
NOP
mMov
MOV
MOv
mMOv

JSR
.WORD

;SCOPE CALL
$RBASF RO

‘START OF TEST
“INITIALIZE STACK POINTER
:?g1§ UNIBUS ADDRESS

#33,8TESTIN

1;SET TEST NUMBER IN APT MAIL BOX

PC,TSTPRP

;PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:

#STACK,SP
TSTQUE
R

040000

= DEVICE BEING TESTED

;CLEAR CONTROLLER & SELECT DEvVICE

TABLE

'S,

MACRD v04,00 4=APR<B' **:(3%:/B PAGE ’g-KO
1

INVALID ADDRESS ERRUR TESY

000404
000240

000137

024464

004737
012702

062626
000000

004737
000404
000240

05226¢

000137

024464

104000

Ewr

n‘:

;GO 1O 18 [F NO ERROR

JRETURN HERE

ERROR

ERROR # DEF INED BY TSTPRP SUBROUT
INF

13%

JSR
MCv

aNOP ,R2

PC,SETSTS

JSETUP FOR STATUS

ISR

PC,INTCLR

;GO ISSUE CONTROLLER (I EAR

13%

JRETURN MERE IF ERROR
JERROR NUMBER DEF INED BY SUBROUTINF
;GO TO 13% IF ERROR

B8R
NOP

;GO T0 138 [F ERROR

;GO TO 3% IF NO ERROR

EMT

1057

1058
1056

104060

NOP

023730
023732
023734
023736
1051 023742
1052 023742
*053 023746
1056 023752
1055 023752
023756
023760
023762
023764
1256 023770

WAP

NP ¢

MWMBO RMOS/3/2 FOINL

.MP

JSET DIAGNOSTIC MODE AND DIAGNOSTIC UNJT READY, DIAGNOSTIC ON

TO6C 023770
023776
v246004
024012
024016
024020
024022
024024
324030
*062 024030
024036
026044
024052
024056
024060
024062
024064
1063 024070
1064
1065
1066 024070
024076
024104
024112
24116
024120
026122
024124
1067 0264130
-ng
e

024130

1069 024136
1070 026142

1071 024150
1072 024156
1073 024164
1074 026172
1075 02620C
1076 026204
'()77 026210
078 2246214

t12737

112737

012737
004737
000404
000240
104000

000024
000200
0C0007
043160

C00137

026464

112737
112737

000024
000200
001601
043160

012737
004737
000404
000240
104000

000137

L4466

112757

00000
000200
000023
043160

112737

012737
004737
000404
000240
104000

001543
0C1544
00*'43%

JCYLINDER
MOVH
MOVB
MOV
J5R
8R
NGP
gmr

507543

A ¥

MG /R
MO Vs
MCv

007564

051634

.Sk
B~
NCFP
Emr

°$:

000137

024464

012737

000001
0014190

103274
177777
177777
177777

010000

001543

00000«
000002
000032

J07%e?
001544
5060

JSET

GDUME

mC /R
MCVR
MGy
JSR
8R
NOP
Em”
JMP

091410

MOV

001414
00472
0014°6
00146446

MOV
MOV

001442

BIS

MOV

MOy

MCy
MOv
“ova

M(: /R
MC y5

FRMMR? PUTINX
#2C( ,PUTINX+]
#DMD ,RMMR D

PC,PUT
3 3
.

:SETUP PUT INDEX TABRLE
JSET TERMINATOR BYTE

JSET

RMMR1

QUTPUT BUFFER

;GO WRITE RMMRT VIA PUT
;60 TO 48 IF NO ERROR

JRETURN HERE IF ERROR
{ERROR DEF INED BY PUT

SRMMRT PUTINX

[ SETUP PUT

INDEX TABLE

:SET TERMINATOR BYTE

#DMD ! MUK MOL ,RMMRT0
BL,PYT

DMD

SUBROUTINE

;GO TO 13% [F ERROR

2200, PUTINXT

SUBKROUTINE

;SET RMMRT

;GO WRITE RMMRT

OUTPUT BUFFER

VIA PUT

.G0 TO 5% IF NO ERROR

* 3

;ERROR DEF INED BY PUT SUBROUTINE
;GO TO 13% IF ERROR

JRETURN HERE

GALID BEFORE
A]MCST

DMD .MUR MOC

SUBROUTINE

IF ERROR

[SSUING FUNCTION CODE BEING TESTED

PUTINX

#20C,PUT INX+1

;SETUP PUT

APAKACK 'GO,RM(S10

PC,PUT

13¢
#G0O ,RM(S10

R2,RM(S10
#8UFONE ,RMBAD

INDEX

TARLE

JSET TERMINATOR BYTE
cSET

RM(CST

OUTPUT BUFFER

;GO WRITE RM(CST

VIA PUT

;RETURN HERE

ERROR

;GO T0 13% IF

ERROR

;60 TO 6% IF NO ERROR

SUBROUTINE

;ERROR DEFINED BY PUT SUBROUTINE

JWRITE FUNCTION CODE
;DUMMY BUS ADDRESS

IN BUFFFR

#-1,RMWJ(O
#-1_,RMDAQD
#-1,RMD(CC

;DUMMY WORD COUNT
JUSE INVALID DISK ADDRESS
JUSE INVALID CYLINDER ADDRESS

#PJT INX R3

JWRITE REGISTER INDEX TABLE

RFMTT6,RMOF D

ARMBA, (R3) «
NRM
, (R
W(»

o
AHMOF
, (RT)

;16 BIT

FORMAY

PAKA(K.GO

“IRMMBC RMOS/3/7¢ FIThng TST °
MAIRD
*23
INVA_
IC ADDRESS ERROR TEST

WO —=OYO N

W
P

EKAFWNNJH

QOO0
- ted 22 QOO

R
W
S
R

—

)

) e

b o

—D

1079 024220
1080 026224
-1 024230
082 024234
1083 024240
0242644
024246
026250
024252
1O86 026256
1085
1336 024262
004737
024266 000404
024270 000240
104000
024272
024274
000137
‘087 024300
'088 0246300
004737
000405
024304
c6306 000240
10400C
024310
024312
004736
024314
000137
024320
016237
0246326
042737
024334
013737
024342
0427%7
024350 023737
024356
001402
104217
024360
024362 000440
024364
016237
024372
032737
0244600
001403
1i00 024402
052737
024410
042737
024416
013737
024424
042737
024432
023737
0246440 001402
024442
106255
024444
000407
024446 062702
024452 022702
103402
024456
02464660
000137
024464

eowalh

L=4FR=BT

MCvB

MOvB

MOvE
MOvR
L SR

0244664

ks ¥

:GO WRITE REGISTER(S)

imp

1
or,TiMOLY

JERROR # DEF INED BY P T S UBROUTINE
;GO TO 13% IF ERROR
JWAIT FOR GO TO RESET

. Sk
5k
NCP
EMmT

P{,GET
B$

;GO READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 8% IF NO ERROR

.SR

9627°¢C

026454

175777

001140

04370€

001350

£#200, (R3)
78

;G0 T0 7% 1F NO ERROR

JRETURN HERE

13¢

001764._

100000

077777
001346
077777

001140

(00002
000076
0237%¢

001140
001346

001140
001140
001142

ERROR

.60 (HECK FOR PRIMARY ERRORS
;G0 TO 9% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE

{,@(S5P)e
hE$

.GOC BACK FOR MORE ERROR CHECKS
.GO T0 13% [F ERROR

#°( JAE ,$GDDAT
RMER1] ,$BODAT
#*~C JAE ,$8BDDAT
$GDDAT ,$RDDAT
108

!
;BAD DATA FOR TYPEOUT

JGET ENTRY FROM FUNCTION CODE TABLE

;1S JAE STATUS CORRE(CT?

JYES!Y!

217

067136
040000

;GO 10 13% IF

FNCDTB(R?2) ,$GDDAT

0011/1

SUBROUTINE

JERROR # DEF INED BY GET SUSBROUTINE

P, ,PRIERR
3 3

001140
001140
00° 42

WwilT~ PUT

JRETURN HERE ]fF FERROR

gEmMY

043522

175777

#RMDA, (R3) «
#RMDC, (R3) «
BRM(ST, (R3)»

PC,PUT

NOP

067136

'3-4(

SEQ 0123

000006
(00034
000000
000200
043160

024464

610

Y03
¢B PAGE

133

FNCDTR(RZ
) ,$GDDAT

ffiiR,RMDSI

;wes AN ERROR DETECTED??

118

001142

e ¥

{MF

JMP

ADD

8.0

NATA $GDDAT
#*CATA,$GDDAT
RMDST,$BDDAT
#~CATA SBCDAT
$GODAT ,$8DDAT

2%
255
138
82 ,R2
8. F7H R2

BEQ
£mr
B8R

NO.

JYES - ATA SHOULD BE ON

SGET DRIVE'S ATTENTION

;1S ATA STATUS 0k??

SJYES:!

;GO TO NEXT FUNCTION CODE
;DONE??

13¢

JYES

!¢

JTEST NEXT FUNCT]ION

'"'Q"""...Q'Q"Qtt't"ltt."..lll'!""...Ql’tl"'t‘.t'.

TeTEST 2
MM

Qc4sbh

024470
026474
Ce4500

000004
000240
012706
013700
137ce

}§734:

i."."

WwRITE
SRS

SCOPE
NOF
MC/
MOy
MC
Y

LOCK
2R

ERROR
R

TEST
2

:SCOPE
HSTACK
<P

$RASE RO

TSTOLE LR

CALL

:START OF

TEST

DINITIALIZE 3TACK POINTER
, sRO_ = UN]BUS ADDRESS
:(R1) = DEVICE BEING TESTEL

RN R

“IRWB( RMQS/3/2 SCTNL 'S' b
*3,
WwRITE LOCX ERRQOR "ES’

024504

012737

0COC3%

026512
024516

004727
040000

04" ¢S

024520
0246522
024524
024526
0246532
02453%2
024536
026542
026542

0004604
000240
* 04000
000137

02525

004737
012762

004737
000404
000240

26546

024550
024552
024554
1122 024560
1123

104000
00037

.t .o

WA NN

__,
—

nN—=OYP

SEIFRRY

)
N
I

O
Y

PR
I
e I

e
Y

A“??

024660
024666
024674
024702
024706
024710
024712
024714
024720
024720
024726

024732
024740
026746
L24752

112737
112737

12737
004737
000404
000249
104000

e
-

PC . TSTPRP

;PREPARE

. 0RD

040000

TEST NUMBER

DEVICE

[N APT MAIL

BOX

FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

JCLEAR CONTROLLER & SELECT DEVICE

:GO TO 18 IF

:RETURN HERE

NO ERROR
[f

ERROR

mMpP

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

062524
0026u0

. SR
MOy

#NOP,R?

FILGETSTS

;SETUP FOR STATUS

052264

. SR
8r
NOP

BC,INTCLR

-MP

3¢

;GO ISSUE

025250

000024
€20200
000001
043160

000137

02525%

112737
112737

000000
000200
0000¢3
043766

000137

025250

012737
050237
012737
012737
005037
065527

000001
001410
103274

177777
001416
CO1444

001543
001544
JC1434

001543
061544
00143

SRETURN HERE

3 H

cs:

001410

0014°4
001410

ERROR

;ERROR NUMBER DEf INED BY SUBROUTINE

:GO TO 13$ IF

ERROR

2SET DIAGNOSTIC MODt AND DIAGNOSTIC UNIT READY, DJAGNOSTIC ON
sCYLINDER, AND DIAGNOSTIC WRITE LOCK
MOVB
MOVB
MOV
JSR
2T
NOP
tEMmT
JMP

#RMMRT,PUTINX

MCvB
MOVAa
MCv
+SR
BrR
NOP

#RMMRT

JMP

138

Em”

001543
001544
0074¢°C

CONTROLLER CLEAR

;GO TO 3% [F NO ERROR

Eme

000024
000200
0C14 11
043160

104000

J:SET

Em”

112737
112737

012737
004737
000404
000240

#36,$TES N

NOP

025250

104000

M 10
Tl 3R PAGE 13wy

MGy

000137

012737
004737
000404
000240

w=iFl=B"

SEQ 0124

1182

1125
1126 024560
024566
0264574
024602
024606
024610
024612
024614
024620
1128 024620
024626
024634
024642
024646
0c4650
024652
Q24654
024660

J5ET

vOLUME

MOVR

MOVR
MOV

. SR
8K
NOP
EMT
JmMp
MOv

B3
MO/

MOV

(LR
TLR

#200,PUTINX+T1

#DMD , RMMR 10

PL,PUT

3 ]

:SETUP PUT

INDEX TABLE

;SET

OUTPUT BUFFER

;SET TERMINATOR BYTE
RMMR1

;GO WRiTE RMMR1

DMD

v]A PUT SUBROUTINE ,

;GO TO 48 [F NO ERROR

;RETURN HERE IF ERROR
JERROR DEF INED BY PUT SUBROUTINE

133

;GO TO 138 IF ERROR
PUTINX

#2000 PUTINX+1

;SETUP PUT

INDEX

TABLE

:SET TERMINATOR BYTE

#DMD . MUR :MOC !MWP RMMR10 ;SET RMMR1T OUTPUT BUFFER
PL,BUT
;GO WRITE RMMR1 VIA PUT SUBROUT INE

5¢

VALID BEFORE

DMD'MUR.MOC
.MWP

;GO TO 5% IF NO ERROR
SRETURN HERE IF ERROR

;ERROR DEF INED BY PUT SUBROUTINE
:GO 7O 13% I+ ERROR

ISSUING FUNCTION CODE BEING TESTED

MRMCST, PUTINX

#200,PUTINX+1

;SETUP PUT

#PAKACK . GO,RM(S10

PL,P.T

138
#GO,RM(S10

INDEX

TABLE

;SET TERMINATOR BYTE
;SET

RMCST

OUTPUT

;GO WRITE RM(S1

VIA PUT

JRETURN HERE

ERROR

;GO 70 6% IF NO ERROR
IF

;ERROR DEF INED BY PUT SUBROUTINE

;GO TO 138

IF ERROR

R2,RM(S10

JWRITE FUNCTION CODE

#-1 RMW(O
RMDAQ
RMD (O

;DUMMY WORC COUNT
JCLEAR DISK ADDRESS
;CLEAR (YL INDER ADDRLSS

#BUFONE ,RMBAO

BUFFER =

SUBROUTINE

;DUMMY BUS ADDRESS

IN BUFFFR

PAKA(K
. GO

’~“M8u RMOS/3/¢ FZINL
WRITE

024756
1141 024764
024770
1'1’3
024774
025000
"145 025004
025010
025014
025020
49 025026
025030
025032
025034
025036
025042

Dy
—

TM
v NNNNNNNNNOTOO DOV
NN
o90O NN
WA = OPY00 O N
W
2OV
NN

B e o

et el ed

D
b ed

B oD
ol

b
—B

s —

e ) il ) el

B ot el

il o

N S

025046
025052
025054
£25056
025060
025064
025064
025070
025672
025074

025676
025100
025104
025112
025120
025126
025134
025142
025144
025146
925150
025156
025164
025166
025174
025202
025210
025216
025224
025226
025230
025232
025236
025242
025244
025250

NNNN NN N

=IO
O

0146

"47

N AN NN AN AN NN

0’44

MAIRD

01000C
01543
000004
000602
000037
000006
000034
000000
000200
043760

LOCK ERROR

1140

..‘2

TEST

000137
004737

025259
043522

004737
000404
000240

062779

104000

LeAFReR"

v06.00

MOvB

“ove
MOvB
MOVvR

MCvR

MCvB

MOVR

JSR
S8R
NOP
EmY
JMP
JSR

02525¢

004737
020405
000240

04370€

104000

016237

042737
0137%7
042737
023737
001402

025250
067136

023737
001402

173777

001350

173777

001140

001140
001142
001142
001162

5% :

067136
040009

001140
001346

;G0 WRITE

100000

001140
001140
001142
001142
00114¢

077777

001346
077777
001140

000002
000076

000137

024542

;WAIT

TO RESET

ERROR

FOR GO

;GO0 READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 8% [F NO ERROR

JMpP

138

;GO TO 138 [F ERROR

- SR
B8R
NOP
EMT
+SR

PC,PRIERR

.60 (HECK FOR PRIMARY ERRORS

P(,al(SP)»
138

JERROR # DEFINED BY PRIERR SUBROUTINE
. GO BACK FOR MORE ERROR CHECKS
;GO TO 138 IF ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROCUTINE

;60 TO 9% [F NO FRROR

JRETURN HERE If ERROR

FNCDTB(R?) ,8GDDAT
A CWlE ,SGDDAT

JGET ENTRY

FROM FUNCTION (ODE

RMER11,88DDATY

;BAD DATA FOR TYPEQUT

$GDDAT , SBDDAT
108

;15 WLE
JYES!!

8iC

#*CWLE ,$B8DDAT

gEMT

229

STATUS (CORRE(CT?

13
*NCDTB(R?2) ,$GDDAT
#ERR ,RMDS |
;WAS AN ERROR DETECTED??
11%
JNO!.

#ATA,SGDDAT

JYES - ;}A SHOULD BE ON

RMDS

;GET DRIVE'S ATTENTION

H#ACATA, SGDDAT

,$BDDAT

#*CATA ,SBNDDAT
$GDDAT ,$BDDAT

;1S ATA STAYUS 0Kk??

12%

255
138

B8R

JYES.!

#2,R2

ADD

’

;GO0 TO NEXT FUNCTION (ODE

RILF76,RZ2
13%
%

TMMp
BLO
JMP

RETURN HERE

SUBROUTINE

BC,GET
8%

gl
BEG
8IS
8l{
MOV
BIC
mMp
8EQ

H
ird

WITH PUT

. SR
B8R
NOP

EMT

000407
062702
022702

:ERROR # DEFINED BY PUT SUBROUT INE
:GO 10 13% [F ERROR

138

MOy

11¢:

TARLF

;G0 TO 7% [F NO ERROR

PC,TIMOUT

B8R

108

INDEX

MRMI(, (RT)
ARM
, (R3)
OF»
#RMDA, (RY)
NRMD
, (R3)»
C
ERM(ST,(R%)»
#200,(R%)

{MP
8EQ

104255

103402

;WRITE REGISTER

ARMBA, (RY) .

P ,PUT

JMP
MOV
8l
MOy

104220

000440
016237
032737
001403
052737
042737
013737
062737

:1¢ BIY FORMAT

APLTINX RS

gmT

000137

004736
000137

1347

#EMTI6 RMOF L

MCvy

MOv

’S:

I 10

163
R PALE

.DONE??
JYES ..
STEST NEXT FUNCTION

':"'.'t"'.'.'.Q".'""!.t'..Qttt".t..."".i

;.r[('
M

L5280

t".""."t""'

AA AR

ERRCR ARORT
A

AR AR A

222

TESTS
A

E R R

RN N

'('SR

TABLE

2R, UMOS/3/72 FLINL

. ERROR ABORT TEST:

025250
02525¢
02525
025260
025264
. 025270

000004
000240
012706
013700
013701
012737

1132 025276
025302

Q04737
(56120

9Q0*ilr
001276
001464
000035

ML T

D6 0L

4=ABR-BT

J 10
"3~ 63

"t :43:.,8 PAS £

SEQ 012¢

)

i
("¢

041650

SCOPE
NOP
MOV
MOV
MO/
MOy

#STA(K,SP
$BASE RO
TSTQUE ,R?
#35,8TESTN

SR
.WORD

FC.ISTPRP
054°'30

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

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOI LOWS:
;CLEAR CONTROLLER & SELFCT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

VOLUME

JVERIFY PACK ACKNOWLEDGE

0253064
025306
025310
025312

000404
000240
104000
000137

)
025602

025316
}]gg 852%52

Q04737
012702

(042624
000000

004737

052264

:}gz 253%16
1185

“

1188 025326

025332
025334
025336
025340

'189 025344
190 025344

1191

025352
025360
025366
025372
025374
025376
025600

025404

1192 025404

1193 025412
1194 025416
1195 025426
1196 025432

1197
1198
1199
1200
1201

025440
025446
025454
025460
025464

1202 025470

1203 025474
12046 025500

1205 025504

1206 025510
1207 025544
025520

000404
000240
104000
000137
1127%7

112737
012737
004737
000404
000240
104000
000137
012737

050237
012737

012737
012737

°$:

JSETUP GET

001543

000001

001544
001424

025602
001410
103276

9
INDEX

001410
001474
001412
001416
001444
001442

A
Y

B8R
NOP
EMT
MP

MO VR

Mo yR
MOy
JSR
B8R
NOP
EmMT
IMP
MOV

BIS
MOV

012737
012737
012703
112723
112723

1777277
000000
000000
010000
001543
000004
0000602

112723
112723

000006
000034

MOVB
MO /R

112713
004737
(000402

000200
063169

mMCvR
JSR
RR

112723

000032

000000

MOy
My
MOV
MOV
Moy
MOVR
OV

MOVR

TABLE

VALID

JRECALIBRATE If ''SKI‘'
OR 'PIP"' IS SET
JVERIFY RECALIBRATION
;GO YO 1$ IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUT INF
;G0 TO 9% IF ERROR

-5

JSR

025602

000200
040000
0463160

JSR
MOV

>¢
e

000014

BR
NOP
EMT
JMp

NOT

TO READ ALL REGISTERS

PL.GETSTS
aMNOP R2

;G0 TO GETSTS SUBROUTINE
;JR2 = FUNCTION CODE

PC{,INTCLR

.60

ISSUE

CONTROLLER

CLEAR

;GO TO 3% IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY CNTCLR SJBROUTINF
;GO0 TO 9% IF ERROR

#RMERY ,PUTINX

:SETUP PUT

2200, PUTINX+1
#UNS RMERTC
P, PUT
A
3%
#G0,RMCS10

R2 ,RM(S10
#BUFONE ,RMBAC

#-1,RMW(O
#0 ,RMDAQD

#0 ,RMD(O
#FMT16,RMOFO
#PUTINX,R3
#RMBA
, (R3)+
#RMIC, (R3) +

INDEX TABLE

;SET TERMINATOR BYTE
;SET RMER1 OUTPUT BUFFER = UNS
;G0 WRITE RMER1 VIA PUT SUBROUTINE
;GO 70 4% IF NO ERROR
:RETURN HERE IF ERROR
JERROR DEFINED BY PUT SUBROUTINE
;GO TO 9% IF ERROR
JWRITE FUNCTION CODE
;DUMMY BUS ADDRESS

[N BUFFER

;DUMMY WORD COUNT
;CLEAR DISK ADDRESS

sCLEAR CYLINDER ADDRESS
;16 BIT FORMAT
LURITE REGISTER INDEX TABLE

#RMOF
, (R3)+

#RMDA, (R3) +
#RMD(
, (R3) +

#RMCST,(R3)

#20G, (R?)
PC,PUT
5

;GO WRITE REGISTER(S) WITH PUT SURROUTINE

;G0 10 5% IF NO ERROR

rZRMMBO RMOS/3/72 FCINL TST
t RROR ABORT TEST>

—

N = DO00NOWN

PONIND
— —a b —a _a

i
T YU S

narRorarOrONI
NN

nJro

—

025522

025524
025526

MA{RD v04.00

104000

5%-

004737

0e3522

025532
0255%
025540
025542
025544
025550
025550
025554
025556
025560
025562
025564
025570
025570
025570
025574
025600
025602

004737
000404
000240

04270

104000

025602

004737
000405
000240

043706

004736
000137

025602

062702
022702

000002
000076

JSR

PC,TIMOUT

;GO TO TIMOUT

JSR
8R

PL,GET
6%

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

£%:

7%:

8%:

9%:

*RETURN HERE

Emr
JMP

JSR
8R
NOP
gEmY

ERROR

P({,PRIERR
7%

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

PL,al(SP)e
9

ADD
(Mp

R2_R2
RILF76,R2
23

ERROR

SERROR # DEFINED BY PRIERR SUBROUTINE
26O BACK FOR MORE ERROR CHE(KS

;GO TO 9% IF ERROR

:ADVANCE FUNCTION CODE
DONE
AL COMMANDS

:.'"""'Qt.'."l...ll'."'.'."..fi"fit‘t..filtt*‘ti*‘

.t't"!'tl’tl’t

025602
025602
025604
025606
025612
025616
025622

1226 025630

025634

RMR TEST

- "..'l.t.".'t...tt.'t'.t".’.".'fi".Q'."‘.
fitt‘*tttt

'ti*i‘ttt

000004
000240
012706
013700
013701
012737

004737
040000

15T136:

001100
001276
001464
000036

000404
000240
104000
000137

026242

025650
1228 025654
1229 025654
025662
025670
025676
025702
025704
025706
25710

004737

C4262¢4

112737

000024
000200
000001

112737

012737
004737
00040«
000240
1046030
000137

043160

026242

SCOPE
NOP
MOV
MOV
MOV

00122¢

JSR

001544

001434

;PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:

IMP

INDEX TABLE

;CLEAR CONTROLLER & SELECT DEVICE
;GO TO 18 IF NO ERROR
SRETURN HERE IF ERROR

JERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 118 IF ERROR

TO READ ALL RE"ISTERS
;60 7
GETSTS SUBROUTINE

PC,GETSTS

MOVB

#RMMR1, PUT INX

MOy

#DMD ,RMMR10

ISR

BR
NOP
gmT
JMP

= DEVICE BEING TESTED

PC,TSTPRP

MOvVB

RO
= UNJBUS ADDRESS

:(R1)

$;SET TEST NUMBER IN APT MAIL BOX

JSR

;START OF TEST
INITIALIZE STACK POINTER

#36,8TESTN

040000

JSETUP GET
001543

#STA(CK,SP
$RASE RO

.WORD

NGP
EMT

'$:

. SCOPE CALL

TSTQUE ,R1

MOV

041650

025636
C25640
025642
025644
1225 025650
1226

1227

oSR
MP

8HIS

SUBROUTINE

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

sRETURN HERE

;*TEST 36

1223

JRETURN HERE ]f ERROR
JERROR & DEF INED BY PUT SUBROUTINE

sWwAlT FOR (OMMAND TO COMPLETE

104000

103252

NOP
M7

NOF

000137

K 10
*7:43:¢8 PAGE 13-44
SEQ 0127

000240

025526

&~-APR-81

#200,PUTINX+1
PC,PUT

3 3

JUT INDEX TABLE

;5L
RMINATOR BYTE
sSET RMMR1 QUTPUT BUFFER - DMD

;GO WRITE RMMR1 VIA PUT SUBROUTINE

;GO TO 3% IF NO ERROR

JRETURN HERE

ERROR

;ERROR DEFINED BY PUT SUBROUTINE
;GO TO 118 IF ERROR

‘QZR”BO RMOS/3/72 FCINL
36
RMR TESY

1230 025714
1231 025714
1127%7
025722
1127%7
025730 012737
025736 C04737
025742
TM 000404

(00024
000200
003401
043160

000240
104000
000137

(26242

1233 025754
025762
025770
025776

112737
112737
012737
004737

(000000
000200
000023
043160

06002
026004
026006
026010
1234 026014
1235 C26014
026020
026022
026024
026026
1236 026032

1237 026032

000404
000240
104000
000137

004737
000404
000240
104000
000137

001543
00°544
0Q014°Q

(262472

026242

026102
026110
026116
026122
026124
026126
026130
261 026134
1262 026134
0261642
026150
026156
026162
026164
026166

112737

112737
012737
004737
000404
000240
04000
000137

000000

112737
112737
012737
004737
000404
000240
104000

000200
000001
043160

007543

000137

(26242

004737
000404
000240
104000

042710

7%:

001544
0014°'0C

001543
0017544
001410

MOvVR
MOVR
MOV
JSR
B8R
NOP
Em?
JMP

MO vR
MO/B
MCy
. SR

BR
NOP
Em?
MR

. SR
8R
NOP
EMmMr
JMP
NOP

00°543
001544
00743

026242
000000
000200
000015
043160

2 ¥

000240

000024
00020C
041401
043160

042710

112737
112737
012737
004737
000404
(000240
104000
000137

026170
1243 026174
1264 026174
026200
026202
026204

(01543
027544
007434

026242

1238 026034
026042
026050
026056
026062
026064
026066
026070
1239 026074

1240 026074

4&=-aPR=8'

L 10

11:43:/8 PAGE

13-45

SEC 0128

025744
025766
025750

1232 025754

MATRG v04.00

8%:

5%:

ARMMR1 PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+1
;SET TERMINATOR BYTE
&DMD . MUR 'MO(C ,RMMR10
:SET KMMRY QUTPUT BUFFER = DMD MUR ‘MO(C
PC.PUT
;GO WRITE RMMRT VIA PUT SUBROUTINE
48
;G0 TO 4% [F NO ERROR
11%

;RETURN HERE ]F ERROR
;ERROR DEF INED BY PUT SUBROUTINE
;G0 TO 118 IF ERROR

ARMCST,PUTINX
;SETUP PUT INDEX TABLE
#200,PUT INX+1
;SET TERM]INATOR BYTE
FPAKACK . GO,RM(CS10
JSET RMCST1 OUTPUT BUFFER = PAKACK'GD
P{,PUT
.60 WRITE RM(CS1 VIA PUT SUBROUTINE
5%

11%
PC,GET
6%
i

;G0 TO 5% ]F NO ERROR
JRETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;G0 7O 118 IF ERROR

;GO RFAD REGISTER(S) WITH GFT SUBROUTINE
;G0 TO A$ ]F NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 118 IF ERROR

MOvB
MOVR
MOV
JSR
B8R
NOP
EMT
JMP

#RMMR1 ,PUT INX
JSETUP PUT INDEX TARLE
8200, PUTINX+1
JSET TERMINATOR BYTE
#DMD 'MUR !MOC ' DREN,RMMR10
;SET RMMR1T QUTPUT BUFFER
PC,PUY
;GO WRITE RMMRT VIA PUT SUBROUTINF
78
;GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR
;ERRQOR DEF INED 8Y PUT SUBROUTINE
11¢
;GO TO 118% IF ERROR

MOVR

MRMCST, PUTINX

MOVRB
MOV
+SR
BR
NOP
EMT
JMP

#200,PUTINX+1
#NOP !GO, RM(CS10
PC ., PUT
8$

118

;SETUP PUT

DMD.MUR'MOC 'DREN

INDEX TABLE

JSET TERMINATOR BYTE
;SFT RMCS1 OUTPUT BUFFER - NOP.GO
;G0 WRITE RMCST VIA PUT SUBRGUTINE
;GO TO 8% IF NO ERROR
;RETURN HERE [F ERROR
JERROR DEF INED BY PUT SUBROUTINE
;GO 10 118 IF ERROR

MOVR
mMOVR
MOy
JSR
BR
NOP
Em7

#RM(ST,PUTINX
JSETUP PUT INDEX TABLE
#200,PUTINX+1
<SET TERMINATOR BYTE
#OFFSET!GO,RMCS10
;SET RMCS1 OUTPUT BUFFER = QFFSET'GO
PC,PUT
;G0 WRITE RM(CS1 VIA PUT SUBROUTINE
9%
;CO TO 9% IF NO ERROR
JRETURN HERE IF ERROR
JERROR DEF INED BY PUT SUBRCUTINE

;GO TO 118 IF ERROR

JSR
BR
NOP
Em71

PC,GET
10%

;G0 READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 108 IF NO ERROR
JRETURN HERE [F ERROR
;ERROR # DEFINED BY GET SUBROUTINE

JMP

CZRMMBO RMO5/3/72 FOINL

136

RMR

TES?

026206
026212
026212
026214
026222
1249 026224
1250 026232
1251 026240
125¢2 0262642
1245
1246
1247
12648

MATRO v04,00

4=APR=B1

171:43:¢8 PAGE

13-46
EQ 0129

000137
000240

032737
001007

012737
013737
1064222

026242

108:

JMP

;GO TO0 118 [F ERROR

NOP
8]7
BNE

:?@R.RMER1I

;1S RMR SET

000004

001350

000004
001350

001140
001142

MOV
MOV

1253

1256

#RMR, SGDDAT
RMERT!,$BDDAT

EMT

118:
A

AL AL

TOTEST 37

222

PARITY

ERROR

JYES !
JEXPECTED STATUS
JRECEIVED STATUS

R R

TEST

'."...'.l.'tt.'..l..""'"l'l..'t.."t.."t"

1255

16242
(26242
0c6264
026246
026252
026256
026262

1256 026270

026274

026276
026300
026302
026304
026310
026310
026314
026314

026320
026322

026324
026326
026332
026332
026334
026340
026344
026350
026354

026360
026364
026370

026374
026400
026402
026404
026406
026406
026412
026414
026416
026420

000004
000240
012706
013700
013701
012737
004737
040000

15137,
001100
001276
001464
0C0037

001226

041650

00404
000240

104000

000137

026462

012702

000001

004737
000404
000240
104000
000137

052264

111103

042703
052703
010337
010237
012703
112723
112723
112723

004737
000402
000240

SCOPE
NOP
MoV
MOV
MOV
MoV

026462

b3 ¥

177770

042710

02¢462

= DEVICE BEING TESTED

;;SET TEST NUMBER IN APT MAIL BOX

;ERROR # DEF INED BY TSTPRP SUBROUTINE
;GO T0.7% IF ERROR

MOV

21 ,R2

;R2 = DATA PATTERN

JSR
B8R

PC,CNTCLR

;GO ISSUE CONTROLLER ZLEAR

EMT
JMP

MovB

MOV

MOV
MOVB
MOVR

MOvB

4%:

;(R1)

BR
NOP
EMT
JMP

MOV

043160

#37 STESIN

;INITIALIZE STACK POINTER

;RO = UNJBUS ADDRESS

PC,TSTPRP

BIC
BIS

000020
001420
001416
001543
000010
000006
000200

#STA(CK,SP
$BASE RO
TSTQUE ,R1

s SCOPE CALL
sSTART OF TEST

JSR
. WORD

NOP

104000

004737
000404
000240
106000
000137

Q'."tfit't'fi't.'ttt

JSR
BR
NOP
EMT
JSR
BR
NOP
EMT
~MP

040000

JPREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;GO TO 18 JF NO ERROR

JRETURN HERE

ERROR

;GO TO 3% IF NO ERROR

JRETURN HERE IF ERROR

;ERROR # DEFINED BY CNTCLR SUBROUTINE

;G0 TO 7% IF ERROR

(R1),R3

;SETUP RM(S?

R3,RM(S20
R2 ,RMDAC

;OUTPUT VALUE

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBRCUTINE

A2CUNTMS
,R3
K
#PAT ,R3

#PUTINX
R3
#RM(S2, (R3)+
#RMDA, (R3)+
#200,(R3)+
4%

TO RM(CSZ2

;YALUE TO RMDA
sWRITE REGISTER OUTPUT

;GO TO 4% IF NO FRROR

JRETURN HERE

ERROR

;ERROR # DEFINED BY PUT

PC,GET

INDEX

SUBROUTINE

;GO READ REGISTER(S) WITH GET SUBROJT INE
;GO _TO 5% IF NO ERROR

JRETURN HERE

ERROR

;ERROR # DEF INED BY GET

;GO TO 7% IF ERROR

SUBROUTINE

b ek

b ead

d e ok

gf\.’ BEIRREININY
NN
& \ngeuuna-¢c»ooo\qo§§

" JRMMB0 RMOS5/3/2 FCINL TST
PARi{TY ERROR TEST
37
0264264
026424
026432
026434
026442
026450
026454
026456
0264656
026460
026462

MATRD v04.00

032737
001011
012737
013737
010237
104223

00010

001350

000010
00135C
001174

001142

BIT
BNE

001140

6%:

006302
001315

7%:

0008000000
NN~
O
VNN

— ol

D =D

026514

026516
026520
026522
026524
026530
026530
026532
026536
026542
026546
026554
026562
026564
026564
026570
026572
026574
026576
026602
026604
026606
026610
026614
026616
026620
026622

026626
026626
026632
306634
J26536

13-47

5¢-

1288
1289 026510

N 10

11:43:28 PAGE

SEQ 0130

#PAR,$GDDAT

ASL
BNE

000004
000240
012706
013700
013701
012737

001100
001276
001464
000040

004737

041650

040000

104000

027010

005005
004737
013746
013746
012737
012737
005002

0642624
000004
000006
027006
000300

004737
000404
000240

052264

000137
010003

026722

104000

060203

005013
004737
000404
000240

001226

104000

027010

004737
000404
000240

042770

104000

1%:

000004
000006

3%:

4%:

#STACK,SP

$BASE RO

TSTQUE ,R1
#60,$TESTN

040000

109

22223

3222223223223

;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:

sCLEAR CONTROLLER & SELECT DEVICE

;GO TO 18 IF NO ERROR
;JRETURN HERE IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 10% IF ERROR

;RS = EXPECTED STATUS

ERRVEC,=(SP)
ERRVE(+2,-(SP)
#9% ERRVEC

:;PUSH ERRVEC

PC,GETSTS

;gRé,ERRVEC‘2

PC,INTCLR

;SETUP FOR STATUS

ON STACK

;;PUSH ERRVEC+Z2 ON STA(K
;SETUP FOR BUS TIMEOUT
;R2 - REGISTER INDEX

;GO ISSUE CONTROLLER CLFAR

;GO TO 3% [F NO ERROR

7%
RO.R3
R2,R3
(R3)

;GO TO 7% IF ERROR
;R3 = REGISTER ADDRESS

JSR
BR
NOP
EMT
Jmp

PC,DEVSEL

JSR

PC,GET
5%

NOP
vy

NOT DONE

;SCOPE CALL

BR
NOP
EMY
JMP

MOV
ADD
CLR

PC,TSTPRP

JSR
BR
NOP
EmM1

.DATA PATTERN

;BRANCH

JSR
.WORD

(LR

ILLEGAL REGISTER TEST

SCOPE
NOP
MOV
MOV

CLR
JSR
MOV
MOV
MOV
Moy

;1S PARITY ERROR SET
JYES !
SJEXPECTED STATUS
cRECEIVED STATUS

;ADVANCE DATA PATTERN

MOV

050612

000137

223

MOV

000404
000240

000137

RMER11,$BDDAT
R2,$TMPO

ARl

AAR AL ARl

15740:

z:AR.RHER1I

MOV
MOV
MOV
131

SRTEST 40
026462
026462
026464
026466
(26472
026476
026502

NS NUTUND
RS PONINI NN

4-APR-B1

10%

JRETURN HERE IF ERROR
;ERROR NUMBER DEF INED BY SUBROUTINE

;CLEAR THE REGISTER
;GO SELECT DEVICE
;GO TO 4% IF NO ERROR
;RETURN HERE If ERROR

SERROR # DEFINED BY DEVSEL

;GO 1O 108 IF ERROR

SUBROUT INE

;G0 READ REGISTER(S) WITH GET SUBROUTINE
;GO T0 5% IF NO ERROR
JRETURN HERE

ERROR

SERROR # DEFINED BY GET SUBROUTINE

JOHEMME
. RMCS/ 272 FCTNL TST 1
1o EGAL REGISTER TESY

026640

106 026644
T307 026644

‘308
306
1310
1311
“212

026650
026652
026654
026656
026660

026664
026670
026676
026704
026712

1313 0267164

1314 026720
1336 026722
1337 026726

1338 026732
1379 02673¢
1340 (26736

1341 026762
*342 026750
1343 026754

1344
1345
1346
1347
1348

026750
026764
026770
026772

026776
1349 027002

}gg? 027004

136¢ 027006

1353 027010

027010
}%22 027014

000737

(20722

004737

043706

(000405
000240
104000
004736
000137

010537
013737
042737
023737
001403

010237

104256
062702
022702

101314
103420
012705

0127606
012702
016003

042703
022703
001402
012702
022702
101402

026722
001140
00135C
177775
001140

MACRO v04.00

S$:

001142
001142
001142

t%:

B8R
NOP
EMT
JSR
JMP

7%:

MOV
MOV

177774
000003

000050
000074

BY:

9%
108:

000006
000004

R2,$TMPO

1358 027056

1359 0270°4
027060

004737
0546130

041650

001206
001226
1$:

JGET DRIVE'S ILR STATUS

;IS ILR STATUS 0K??
JYES.!

.SAVE RZ2 FOR ERROR DATA

MOV
MOV
MOV
8I(
(MP
BEQ
MOV

#AT6'AT17 ,RMCST(RO)
:SET EXTENDED ADDRESS BITS
454 R2
sSET ADDRESS TO S4,IF 22 REGISTERS
50(R0) ,R3
;1S THIS 22 REG RH/70 ?
R177774 ,R3
JLEFT ONLY BIT O AND BIT 1
MITO!BITI,R3
;BIT O AND BIT 1 SET AT THE SAME TIME
8%
;BRANCH JF SO
#50,R2
;OTHERWI,SET
SE ADDRESS TO 50

(Mp
BLOS

s INCREMENT THE REGISTER ADDRESS
JTIME TO CHECK THE EXTEND ADDRESS REG -

2%
8%
#ILR_RS

JBRANCH IF NOT
;BRANCH IF ALREADY SFT uP
JEXCEPT ILR HAPPEND

#74 R2
10%

JALL REGISTERS
;BRANCH IF SO

(SP)+,(SP)+

MOV
MoV

(SP)+ ERRVE(+?
(SP)+ ERRVEC(
A AR A AN
R R RN AN R

. ;POP STACK INTO ERRVE(+?
;:POP STACK INTQ CPRVE(C

R R TN AN N AR AR AR R RN R AN

SEEK FIRST CYLINDER
AR

CHECKED

JNEXT REGISTER

tmp

SeTEST 41

001100
001276
001464
000001
000041

;GO TO 6% IF NO ERROR
JRETURN HERE IF ERROR
JERROR & DEFINED BY PRIERR SUBROUTINE
:GO BA{K FOR MORE ERROR (HE(KS
;GO TO 7% IF ERROR

256
2 ,R2
#50,R2

SRR R

000004
000240
012766
013700
013701
012737
012737

;G0 (HECK FOR PRIMARY ERRORS

EMr
ADD
(Mp

I NN RN N A N

TST41:

PC,PRIERR

#“CILR,$BDDAT
$GDDAT ,$BDDAT
7%

B8R

022626

:GO 7D 78 IF IRRCR

R5,$GDDAT
RMIR1] ,$BDDAT

BH]
BLO
MOV

000000

P, a(SP)+
78

MOV

13055

027020
027020
27022
027026
027030
027034
027040
1357 027046

13-48

BIC
{MP
BtQ

000667

012637
012637

JMP
JSR

000002
000050
000002

8 N

711:43:28 PAGE

SEQ 0131

001174

001400
000054
000050

4-APR-B1

A AN R CR AN NI R RO AN

AR ANRANR AN A E N R AR AR A AR RN AN A AN

SCOPE
NOF
MOV
MOV
MOv
MOV
MOV

#STACK ,SP
$BASE RO
TSTQUE ,R1
#1,$TIMES
#6T,9TESTN

JSR
WORD

PC,TSTPRP
054130

RRR S W &N

. SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
;RO = UN]BUS ADDRESS
;(R1) = DEVICE BEING TESTED
;:D0O 1 ITERATION
.. SET TEST NUMBER IN APT MA[[ BOX

sPREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLI.OWS:
;CLEAR (ONTROLLER & SELECT DEV]C(E
;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

VOLUME

sVERIFY PACK ACKNOWLEDGE

NOT

VALILD

JRECALIBRATE IF "'SKI'* OR 'PIP'" IS SE”
JVERIFY RECALIBRATION

JRMMBC BM0S/3/2 FCINL TST 1
SEEK FIRST CYLINDER

027062
027064
027066
027070
027074
027074
027102
027110
027116
027122
027126
027132
027136

104000

027170
027174
027176
027200
027202
027206
027206
027212
027214
027216
027220
027222
027226
027226
027232

027234
027236
027240
027242
027246
027246
027252
027254
027256
027260
027262
027264
027266
027272
027272

027276
027300
927302
027304
" 382 027306
1383

BR
NOP

000137

027306

012737
012737
012737

000000
200000
000005
001543
000034
000006
000000
000200
043160

027146

004737

004737
000404

000249
104000
000137

027306
042624
043522

EMT
JMP

007444
001416
001410

MOV
MOV
MOV
Mov
mMovB
MOVR
MOVB
MOVB

3%:

042710

JSR

NOF

027306

043706

004737
000405
000240

051024

EMT

027306

004736
000137

027306

004737

050400

5%:

6%:

000240
104000

004737
000403
000240
104000
004736

044540

7%:

8%:

2%
8%
#0. ,RMDCO

#0 ,RMI'AQ

13-49

#200, (R2)+

PC,PUT

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR

;GO TO 8% IfF

ERROR

sCYLINDER = 0

JTRACK = 0, SECTOR = 0

;WRITE

TERMINATOR

;GO WRITE

;GO TO 3% IF NO ERROR

WITH PUT

ERROR

;SETUP FOR STATUS FETCH
:WAIT FOR SEEK TO COMPLETE

PC.GET

;GO READ REGISTER(S)

;GO TO 4% IF NO ERROR

JRETURN HERE

PC,a(SP)+
8%
PC,SEKSTS

WITH GET

IF ERROR

;GO TO 8% IF ERROR

. GO CHECK FOR PRIMARY ERRORS

;GO TO 5% IF NO ERROR

;RETURN HERE IF ERROR
cERRCR # DEFINED BY PRIERR SUBROUTINE
2GO BACK FOR MORE ERROR (HECKS

;G0 TO 8% IF ERROR

;GO VERIFY RESULTS OF

SEEK OPERATION

;GO TO 6% IF NO ERROR

PC,a(SP)+

;GO0 BACK FOR MORE

PC,CMPERRSTS

;CHECK ANY ERRORS NOT MASKED

NDTMSK
DPE
7%

PC.a(SP)+

SUBROUTINE

;ERROR # DEFINED BY GET SUBROUTINE

SUBROUTINE

SERROR # DEFINED BY PUT SUBROUTINE
;GO _TO 8% IF ERROR

PC,GETSTS
PC,TIMOUT

PC,PRIERR

JSR
BR
NOP
EMT
JSR
JMP

sERROR # DEFINED BY TSTPRP SUBROUTINE

JRETURN HERE

JSR
BR

JMP

;GO TO 2% IF NO ERKROR

JRETURN HERE

#SEEK.GO,RMCST10 ;LOAD SEEK COMMAND IN BUFFER
#PUTINX ,R?
;R2 POINTS TO REGISTER TABLE
#RMDC, (R2) +
JWRITE REGISTER INDEX TABLE
#RMDA, (R2) +
#RM(S1, (R2)+

EMT
JSR

000010
000405

027306

11:43:28 PAGE

oMP

NOP

104000

004736
000137

JSR
BR
NOP
EMT
JMP
JSR
JSR

004737
000405
000240
104000
004736
000137

115760

4-APR-81

SEQ 013,

000404
000240

027142

027150
027152
027156
027160
027164

MACRO v04.00

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINE

;GO TO 8% IF ERROR

ERROR (HE(KS

;JMASK FOR RMER1
;MASK FOR RMER?
:GO TO 7% IF NO ERROR

JRETURN HERE IF ERROR
SJERROR # DEFINED BY CMPERRS1S SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS

;GO TO 8% IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

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

PC,a(5pP)+

;GO BACK FOR MORE ERROR (HE KS

;ERROR # DEFINED BY SECERR SUBROUT
INE

CZRMMBO RMOS5/3/2 FCINL TST 1
742
SEEK LAST CYLINDER

MACRO v04.00

1384

IR R

4-APR-81

13-50

R AN R AR A AN AR RN R AN NP R T RN A RN AR AN

TeTEST 42

' RANAANCEENCEOIANERTN
IR OR OO RETS
OI

SEEK LAST CYLINDER

':"Q'I.tfl"'..'tfi.'lt""'Qttttit""."'.tl

027306
027306
227310
027312
027316
027322
027326
027334

012737
012737

027346

004737
054130

1335
1386 027342
1387 027342

D N

11:43:28 PAGE

000004
000240
012706
013700
013701

T8142:
001100
001276
001464
000001
00Q042

'Qltttt"t"tt'.."'

SCOPE
NOP

MoV
MOV
MOV
MOV
MOV

001206
001226

#STACK,SP

$BASE RO

TSTQUE R

#41,8TIMES

#42,$TESTN

sSCOPE (ALL
JSTARY OF TEST

JINITIALIZE

;(R1)

= DEVICE BEING

;;SET

TEST NUMBER

;.00 1

ITERATION

JSR
.WORD

1400
1401 027456

1402
1403

1404

1405

027462
027464
027466
027470
027474
027474
027500
027502
027504
027506
027510
027514
027514
€e75¢0

000404
000240
104000

000137

027574

012737
012737
012737
012702
112722
112722
112722
112722
004737
000404
000240

001466
000000
220005

104000

000137
004737
004737

004737
000404
000240
104000

001543

PC,TSTPRP

054130

043522

BR
NCP
EMT
JMP

MOV
MOV
MOV

#822. ,RMDCO

MovB
MOvB
MOVB
MOVB

000000
000200
043160

JSR
BR
NOP
EMT

3%:

042710

JSR
JSR
JSR
NOP

000137

027574

004737
000405
000240
104000
004736
000137

043706

004737

N51024

000405

001444
001416
071410

2%:

000034
000006

027574
042624

027574

TFSTED

IN APT MAIL BOX

1%:

041650

;PREPARE

DEVICE

4%:

5¢%:

EMT
JMP
JSR
BR
NOP
EMT
JSR
JMP

JSR
BR

8%
#0 ,RMDAQ

FOR

''SKI'*
OR 'PIP'* IS SET

sVERIFY RECALIBRATION

;GO TO 2% IF NO ERROR

;RETURN HERE IF ERROR
SJERROR # DEFINED BY TSTPRP SUBROUT INF
;GO TO 8% IF ERROR

;LAST

CYLINDER

;TRACK = 0,

SECTOR

HSEE
!GO, RMCS10
K ;LOAD SEEK (OMMAND

A#PUTINX ,R2
H#RMDC, (R2) +

#RMDA, (R2) +
ARMCST, (R2)+

#200, (R2) +
oC,PUT
3t

TEST

;TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE

027350
027352
027354
027356
'388 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

STACK POINTER

;RO = UNIBUS ADDRESS

[N BUFFER

;R2 POINTS TO REGISTER TABLE
JWRITE REGISTER INDEX TABLE

SWRITE TERMINATOR

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

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

PC,GETSTS
PC, TIMOUT

;SETUP FOR STATUS FETCH
;WAIT FOR SEEK TO COMPLETE

PC.GET

;GO READ REGISTER(S)

;GO _TO 4% IF NO ERROR

WITH GET

JRETURN HERE IF ERROR
SERROR # DEFINED BY GET SUBROUT INE

;GO TO 8% IF ERROR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

8¢

PC,SEKSTS

SUBROUTINE

;GO TO 5% IF NO ERROR
SJRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUT INE

;GO BACK FOR MORE

;GO TO 8% IF ERROR

ERROR

;GO VERIFY RESULTS OF

;GO TO 6% IF NO ERROR

(CHECKS

SEEK OPERATION

’ZQ”WBO RMOS/3/72 FCINL TST 1
SEEK LAST (YLINDER

027522
027524
027526
027530
1606 027534
1467 027534
027540
027542
027544
027546
027559
027552
027554

16408 027560
1409 027560

027564
027566
027570
027572
1410 (27574

MAZRO v04.00

NOP

104000

00137

027574

004737

050400

115760

EMT
JSR

6%
-

000010
000405
000240
104000

004736
000137
004737
000403
00C240

ENn
11:43:28 PAGE 13-51
tQ 0134

009249
004736

4-APR-81

027574

7%:

044540

104000

004736

8%:

1411
1412

JMp

JSR
.WORD
. WORD

B8R
NOP
tmr
JSR
JMP

JSR
BR
NOP

EMT
JSR

SJRETURN HERE

ERROR

JERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR (MECKS
;GO TO 8% IF ERROR

PC,a(SP)+

PC,CMPERRSTS

NDTMSK
DPE
7$

;CHECK ANY ERRORS NOT MASKED
¢MASK FOR RMER1
;MASK FOR RMER?2

;GO TO 7% IF NO ERROR

JRETURN HERE

ERROR

PC,a(SP)+

;ERROR # DEFINED BY (MPERRSTS SUBROUT INE
;GO BACK FOR MORE ERROR (ME{KS

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

;GO TO 8% IF ERROR

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

JERROR # DEFINED BY SECERR SUBROUTINE

PC,a(SP)+

;GO BACK FOR MORE ERROR (HE(CKS

- tttt'tl’fitt*t*l’tt"fl'tt*it**ttttttt**t*tfitl’*ttt'titttfit.t.tt
'tt't

SRTEST 43

027574
027574
027576
027600
027604
027610
027614
027622

1413
1416 027630
1415 027636

16416 027636

027642

SEEK PRIME

CYLINDERS

- ttttttt*tt*titttfifi*tt*ttttfi*****tk*tttttfi‘t"*tt'ttt
tttt'Qttt't

000004
000240
012706

T5T43:

SCOPE
NOP

013700
013701
012737

012737

001100
001276
001464
000002
000043

201206
001226

012737

000001

001444

004737
054130

041650

1%:

MOV
MoV
MOV
MOV
Mov

$8ASE RO

TSTQUE ,R1
#2,$TIMES
#43,$TESTN

;SCOPE CALL
JSTART OF TEST
JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED
;D0 2 ITERATIONS
;.SET TEST NUMBER [N APT MAIL BOX

Mov

#1 ,RMDLO

;FIRST

JSR
-WORD

PC,TSTPRP

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

#STACKSP
,

054130

CYLINDER -

;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

027644
027646
627650
027652

000404
000240
104000
000137

1418 027656

012737
012737
012702

1417 027656

16419
1620
1621
1622
1423
1026
1425

027664
027672
027676
027702
027706
027712
027716

027722

112722
112722
112722
112722

004737
000404

030106
000000
000005
001543
000034
n00006
000000
000200
043160

BR
NOP
EMT
JMP
MOV
MoV
MOV
MOovR
MOVB
MGvB
MOvB

JSR
BR

2%
9%

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATF JF "'SK]'" OR "PIP'" IS SET
JVERIFY RECALIBRATION
;G0 TO 2% IF NO ERROR
JRETURN HERE

ERROR

JERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 9% IF ERROR

#0 ,RMDAG
;TRACK - 0, SECTOR = 0
#SEEK.GO,RM(CS10 ;LOAD SEEK COMMAND IN BUFFER
#PUTINX ,R2
JR2 POINTS TO REGISTER TABLE
4RMDC, (RC) +
JWRITE REGISTER INDEX TABLE
H#RMDA, (R2) +

#RMCST, (R2) +
#4200, (R2)+

JWRITE

;GO TO 3% [F NO ERROR

PC,PUT

TERMINATOR

;GO WRITE REGISTER(S)

WITH PUT SUBROUT INE

e YWMRO &MOS5/372 FCINL TST 1
SEEK PRIME CYLINDERS

027724
027726
027730

1626 02773%
427 027734
428 027740
*429

‘4630 027744

027750
027752
027754
027756
K33 027762
027762
027766
027770
027772
027774
027776
1433 030002
1434 030002

104000

000137

030106

004737
004737

062624
043522

004737
000404
000240

042710

000137

030106

004737
000405
000240

043706

104000

004737
000405
000240
104000
004736
000137

030026
030030
030032
030034
030036
030040
030042

004737
115760
000010
000405
000240
104000
004736
000137

437 030046

"4 38 230046

030052
030054
030056
030060
€30062
1439 030066
1440 030066
1441 030072

1442
1443

030100
030102
1444 030106

NOP
EMT
JMP

JSR

030106

051024

030106

050400

001444
001000

027636

1445
646

JSR
BR

PC,PRIERR
5%

+SR

JMP

JSR
BR
NOP
EMT
JSR
JMP

SURROUTINE

JSETUP FOR STATUS FETCH

;G0 70 4% IF NO ERROR

WITH GET SUBROUTINE

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET
;G0 TO 9%

ERROR

SUBROUTINE
.

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

JRETURN HERE

ERROR

JERROR # DEFINED BY PRIERR SUBROUTINE

PC,a(S5P)+

;G0 BACK FOR MORE ERROR CHECKS

PC,SEXSTS
6%

;GO VERIFY RESULTS OF SEEK OPERATION
;GO TO 6% IF NO ERROR
;RETURN HERE IF ERROR
;FRROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHEC(CKS

PC,a(SP)+
9%

PC.,CMPERRSTS

;GO TO 9%

;GO

TO 9%

ERROR

JCHECK ANY ERRORS NOT MASKED

.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,a(SP)+
9%

;GO BACK FOR MORE ERROR (CHECKS
;GO TO 9% IF ERROR

JSR

P(,SECERR

;GO0 CHECK FOR SECONDARY ERRORS

JSR

JMP

ASL

(mp

3%:

PC,GETSTS

NOP
EMT
JMP

EMT

001444

;GO READ REGISTER(S)

NOP

SRETURN HERE |F ERROR
JERROR # DEFINED BY PUT
;GO TO 9% IF ERROR

PC,GET

030106

\f\J

JSR

030106

006337
022737
103402
000137

13-52

JWAIT FOR SEEK TO COMPLETE

EMT

044540

PC.,TIMOUT

NOP

004737
000405
000240
104000
004736
000137

11:43:28 PAGE

JSR

B8R

1040600

004736
000137

4-APR-81

000240

030006
030010
030012
030014
030016

1435 030022
1636 030022

MACRO v04.00

BLO
JMP

NDTMSK
DPE
7%

;MASK FOR RMER1
JMASK FOR RMERZ

;GO TO 7% IF NO ERROR
JRETURN HERE

ERROR

JERROR # DEFINED BY SECERR SUBROUTINE

;GO BACK FOR MORE ERROR CHE(KS

;GO

RMDCO

JSHIFT

9%
1%

JYES.!
;GO DO NEXT

#512. ,RMDCO

ERRODR

;GO TO 8% IF NO ERROR

JRETURN HERE

P(,a{S5P)+

JERROR # DEFINED BY CMPFRRSTS SUBROUTINE

TO 9%

;1S THE

ERROR

TO NEXT PRIME

TEST DONE??

CYLINDER

"."tl’.'.tfi"“'.fi"*"*t"""tttfiflfl'ttfitl’.fi"""*"."."fi."'.t.t"

J*TEST

SEEK

ZERO DIFFERENCE

FROES

e
R
e
e

[plelelele)

88883

e ]

""Qt'.'l’"""*ifitt.t*“t'fi'"""i"'i""l."'l'i'.tt.l“l".‘.‘".

000004
0002490
012726
013700

TST44

SCOPE

001100
001276

;SCOPE

NOP

MOV

MOv

#STACK ,SP

$KASE RO

;START

CALL

TEST

JINITIALIZE

STACK PQOINTER

;RO = UNIBUS ADDRESS

RMMBY, oMOS5/3/72 FCINL TST 1
pET
SEEX ZERO DIFFERENCE

030122
030126

01370
012737

449 030134

004737
054130

67
'L4L8 03C134

030140

001464
(00044

MATRO v04.00

001226

61 1
1 3-53

4-APR-81

11:43:/8 PAGE

mMov
MOV

#44 ,STESTN

TSTQUE ,R1

J(RT)

= DEVICE BEING TESTED

J;SET TEST NUMBER IN APT MAIL BOX

1%:

041650

JER
.WORD

;PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

JPACK ACKNOWLEDGE

030142
030144
030146
030150
1450 030154
1451 030154
1452 030160
1453 C301066
1454 030174
1455 030202
1456 030206
"L57 030212
1458 030216
1459 030222
1460 030226
1461 030c26
030232
030234
030236
030240
1462 030244
1463 0306250

1464
1465 030254

030260
030262
030264
030266
14666 030272
1467 030272
030276
030300
030302
030304
030306
1468

030312

14,69 03C312

030316
030320
030322

030324
'L70
A

000404
000240

104000
000137

012703
012737

012737

012737
012702
112722

112722
112722
112722

004737
000404
000240
104000

000003
000000
0C0000
000005
001543
000006
000034
000000
000200
043160

000137
004737
004737

030406
042624
043522

004737
000404
000240

042710

000137

030406

004737
000405
000240
104000
004736
000137

043706

104000

004737
000405
000240

030406

051024

001444
001416
0014170

3%:

4%:

5¢%:

6%:

004736
000137

030406

004737

050400

115760

7%:

VAL iD

JMP

10%

MOV
MOV
MOV
MOV
MOV
MOVB
MovB
MOVB
MOVB

#3,R3
#0,RMDCO
#0,RMDAO
#SEEK!GO,RM(S10

JSR
NOP
3l
JMP
wSR

#PUTINX
,R?2
#RM
, (R2)
DA
+
#RMD
, (R2)+
(C
#RMCS1, (R2)+

JRETURN HERE

ERROR

;R3 = NUMBER OF SEEKS
;CYLINDER = 0O

;TRACK = 0,

SECTOR = 0

JFUNTTION CODE FOR SEEK

;R2 POINTS TO REGISTER INDEX

WRITE

INDEX

TABLE

#200, (R2) +

;TERMINATE

PC,PUT

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

TABLE

sJRETURN HERE

108

ERROR

SERROR # DEFINED BY PUT SUBROUTINE

;GO TO 108 IF ERROR
:SETUP FOR READING STATUS

JSR

PC,GETSTS
PC,TIMOUT

;WAIT FOR COMPLETION

JSR

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

NOP
EMT
JMP
JSR

BR
NOP
Em1
JSR
JMP

JSR
BR

NOP

104000

NOT

JERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 108 IF ERROR

EMT

2%:

VOLUME

BR
NOP

030406

;VERIFY PACK ACKNOWLEDGE
JRECAL IBRATE IF ''SKI'* OR 'PIP'' IS SET
JVERIFY RECALIBRATION
;GO TO 2% IF NO ERROR

EMT
JSR
JMP

JSR
.WORD

108
PC,PRIERR

PC,a(SP)+
10%
PC,SEKSTS

PC,a(SP)+

;GO TO 5% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

;GO TO 108 IF ERROR

;GO CHECK FOR PRIMARY ERRORS
;GO TO 6% IF NO ERROR
SJRETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;GO TO 108 IF ERROR

;GO VERIFY RESULTS OF SEEK OPERATION
;GO _TO 7% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

108

;GO TO 108 IF ERROR

PC,CMPERRSTS”

s CHECK ANY ERRORS NOT MASKEC
JMASK FOR RMER?

NDTMSK

030340
030342
230344
030346
030350
0303s2
030356
1473 030356
030362
030364
630366
030370
030372
1674 030376
1475 030376
1476 030400
'L77 030402
1478 030406

MACRO v04.00

000070
000405
000240
104000

004736
00C137
004737
000405
000240

030406

8%:

044540

104000

004736
000137
005303
001402
000137

030406

G%:

030226

10%:

1479

"480

&=~APR=81
.WORD
BR
NOP
EMT
JSR
JMP

. SR
BR
NOP
EMT
JSR
JMP
DEC
BEQ
~MP

H 11
11:43:¢8 PAGE 13-54
DPE

JMASK

PC,a(SP)+

JRETURN HERE IF FRROR
;ERROR # DEFINED BY (MPERRSTS SUBROUTINE
;GO BACK FOR MORE ERROR (HE(KS

108

PC,SECERR

FOR RMER?Z

;GO TO 8% ]F NO ERROR

;GO TO 108 IF ERROR

;GO CHECK FOR SECONDARY ENRORS

;GO TO 9% IF NO ERROR

PC,a(SP)
+
C
10%

;GO BACK FOR MORE ERROR (HE(KS
;GO TO 108 [F ERROR

3
0%

\N—

JRMMB0 RiM05/3/2 FCTINL TST °
META
SEEK ZERO DIFFERENCE

JRETURN HERE If ERROR
.
JERROR # DEFINED BY SECERR SUBROUT INF

;DONE ALL SEEKS??
JYES!!
;NO - GO DO NEXT SEEK

':tttt'fit?tt*it'llttl"i't"fit'tfi'fit'fi"fi'

TRTEST 45
030406
030406
30410
030412
030416
030422
030426

‘481
1482 030434

1485 030434
030440

Q"*tfit't.'t.tttttt'ttt

SEEK MAXIMUM DIFFERENCE FORWARD

':‘tt"tt"tfi!'tttti.lt't*'ttt.Qtitttttfi*tttti‘fit.!fit"ttit

ttn"t

000004
000240
012706

013700
013701
012737

004737
052130

TST45:
001100
001276
001464
000045

SCOPE
NOP
MOV
MOv
MCv

001226

MOV

#STACK,SP

$RASE ,RO

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

TSTAUE LR
#45 $TESTN

;(R1)

PC,TSTPRP

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

= DEVICE BEING TESTED

s;SET TEST NUMBER IN APT MAIL BOX

1¢:

041650

JSR
.WORD

052130

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERAT]ON

sPACK ACKNOWLEDGE

030442
030444
030446
30450
16484 030454
16485 030454
16486 030462

1487 030470

1488 030476

1689 030502
1490 030506
'491 030512

'492 030516
16493 030522

030526
030530
030532
230534
Tt 030540

000404
000240

104000

000137

030666

012737
012737
012737
012702

001466
000000
000005
001543
000034
000006
000000
000200

112722
112722

112722

004737
000404
000240
104000

000137
004727

001444
001416
001410

043160

030666
C4l624

VOLUME NOT

B8R
NOP

JMP

MOV
MOV
MOV
MOV
MOvB
MOVB
MOVR
MOVB

#822. ,RMDCO
;LAST CYLINDER
#0,RMDAO
sTRACK = 0, SECTOR - 0
#SEEK.GO,RM(CS10 ;LOAD SEEK COMMAND IN BUFFER
#PUTINX ,R?
;R2 POINTS TO REGISTER TABLE
H#RMDC, (R2)+
SJWRITE REGISTER INDEX TABLE
#RMDA, (R2)+
#RM(ST ,(R2)+
#200, (R2)+
;WRITE TERMINATOR
PC,PUT
.00 WRITE REGISTER(S) WITH PUT

EMT

2%:

;VERIFY PACK ACKNOWLEDGE
;VERIFY RECALIBRATION

JSR
B8R
NOP
EMT
JMP
JSR

PL,GETISTS

VALID

;GO TO 2% IF NO ERROR

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

;GO TO 3% IF NO ERROR
JRETURN HERE

ERROR

SUBRQOUTINE

;ERROR # DEFINED BY PUT SUBRO.ITINE

;GO TO 8% IF ERROR

JSETUP FOR STATUS FET(H

LR RMOS/3/7¢ FCINL
-

TST 1

MACRO v04.00

SEEK MAXIMUM DIFFERENCE FORWARD

'ng 030546
‘4
1497 030550

004737

043522

004737

042710

030554
030556
030560
030562

009404
000240
104000
000137

030666

1499 030566

004737

043706

1498 030566

030572
930574
030576
030600
030602

1500 030506
1501 030606

030612

030614

030616
G30620
030622

1502 030626
1503 030626

030666

004737

051024

000405

030666

004737

050400

115760
00010
000405
000240
104000
004736
000137

030666

030652

004737

044540

030656
030660
030662
V30664
3289 030666

JSR

000403
000240
104000
004736

JSR

30666
030666
030670
030672
030476
030702

1509 030706
p)

'S0 039714
'511 030714

030720

000004
000240
012706
013700
013701
012737

004737

(54130

18746:
001100
001276
001464
000046

041650

001226

SUBROUTINE

PC,a(SP)+
8%

;GO TO 5% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR S JBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 8% IF ERROR

PC,SEKSTS

;G0 VERIFY RESULTS OF

PC,CMPERRSTS

PC,SECERR

PC,a{SP)+
8s
8%

;GO CHECK

SEEK

AR
R

FOR SECONDARY ERRORS

AN AN I AR AR AR AR R AR P AR AR R R KA

ADJACENT

AR A A AR AR AR N RO A

;CHECK ANY ERRORS NOT MASKED

sMASK FOR RMER1
;MASK FOR RMER?2
;GO TO 7% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY (MPERRSTS SUBROUTINF
;GO BACK FOR MORE ERROR (HE(KS
;GO TO 8% IF ERROR
;GO _TO 8% IF NO ERROR
JRETURN HERE IF ERROR
ZERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR C(HECKS

PC,a(SP)+
AR

SEEK OPERATION

;ERROR # DEFINED BY SEKSTS SUBROUT INE
. GO BACK FOR MORE ERROR (HE(KS
;GO TO 8% IF ERROR

PC,a(SP)+
8%

JSR

;GO TO 6% IF NO ERROR

JRETURN HERE IF ERROR

NDTMSK
DPE
7$

R AN A

RS AN

AR R AR RN

AR R R

AN R KRR AN

#STACK,SP
$BASE RO
TSTQUE ,R1

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

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

.WORD

#46,$TESTN

054130

R RN %

FORWARD

SCOPE
NOP
MOV
MOV
MoV
MOv

1%:

.WORD
.WORD
BR
NOP
EMT
JSR
JMP
BR
NOP
EMT
JSR

WITH GET

;GO CHECK FOR PRIMARY FRRORS

AR R AR RS R AR
A

TO COMPLETE

PC,PRIERR

JSR

J*TEST

;G0 READ REGISTER(S)

SEEK

JSR

EMT
JSR
JMP

8%:

PCLGET

FOR

JSR

7%:

JWAIT

;GO _TO 4$ IF NO ERROR
¢RETURN HERE [F ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 8% IF ETMROR

€$:

PC, TIMOUT

BR
NOP
EMT
JSR
JMP

5%:

1608

13-55

BR
NOP
EMT
JMP

NOP

104000
004736
000137

I N

11:43:28 PAGE

000240

030632
030634
030636
030640
030642
030644
030646

1504 030652

1505

000405
000240
104000
004736
000137

4-APR-81

RN ®

;oSET TEST NUMBER IN APT MAIL BOx

s TASK DESCRIPTOR . S FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

VOLJME

;VERIFY PACK ACKNOWLEDGE

JRECALIBRATE

NOT

VALID

IF ''SKI'" CR 'PiF' !¢ <F

~78vWB0 RMOS5/3/2 FCINL TST
SEEK ADUACENT FORWARD

000404
000240
104000
000137

031170
000000
000000
000005
001543
000034
000006
000000
000200

(NWWRNWRWA

001444
001416
001410

Z%:

3%:

n
o

SN SN
vU

[o ¥ o8 NONONMNO
O

oo elolelelalals]

—

D ok —d

)

AN N WWWINWNNNINWN
AW

—_—

b e

OOOCO

~UO

FaR
2l

o SIS
~
&}NW’\JN'\JN—'-‘—‘OO
VRO B OCNBNONONN So
s

ek
e
b

D el o
e

md
ad
e
o

A AN AN AN A N A A N AN NN

sl wad e sl el ol

et cad od e

B el
ol

vl o
i

ol ad

1060
1062
1066
1066
1072

—l el

031170

004737

042624
043522

004737
000404
000240

042710

V00137

031370

004737
000405
000240

043706

104000

5%:

104000

004736
000137

031170

004737
000405
000240
104000
004736
000137

051024

004737

050400

115760

031170

6%:

7%:

000010
000405
000240
104000

004736
000137
004737
000405
000249
104000

004736

4-APR-81

BR
NOP

043160

AN LA WA A

C o
N
s

N
L

030722
030724
030726
030730
030734
030734
020742
030750
030756
030762
030766
030772
030776

DOOOAQOCOOOOOOOOONOCOOUCOOOOODOOOIOOD

[A¥1,N1,81,¥]
[¢ SV NPV

oo~

e
b

—

vyon
Yo

LIV,
IV, 10 ]

) —d

b o

A —d

A -k

[T NIV IV I TN IV TV TV I )
PIPIN?Y
et ok e b et 2 0

AS It e e, R NTs XV P NVIT.\)

MALRD ¢04.00

031170
044540

8%:

M7
JMP

MOV
MOV
MOV
MOV
MovR
mMovB
MOVR
MOVB

JSR
BR
NOP
EMY
JMP
JSR
JSR

J
11:43:28 PAGE

2%
10%

13-S6

JVERIFY RECALIBRATION
;GO TO 2% IF NO ERROR

JRETURN HERE

ERROR

.ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 108 IF ERROR

#0,RMDCO
;JCYLINDER = 0O
#0 ,RMDAO
;TRACK = 0, SECTOR = 0
HSEEK !GO,RMCST0 ;FUNCTION CODE FOR SEEK

#PJTINX,R2
ARMD(, (R2) +
#RMD
, (R2)
A
+

JWRITE

#200, (R2)+

;TERMINATE

PC.PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO TO 4% IF NO ERROR
JRETURN HERE IF ERROR
JERRCR # DEFINED BY PUT SUBROUTINE
;GO TO 108 IF ERROR
;SETUP FOR STATUS FETCH

#RM(CST, (R2)+

10%

PC,GETSTS
PC,TIMOUT

JSR
BR
NOP
EMT
JMP

PC,GET

JSR
BR
NOP
EMT
JSR

PC,PRIERR

10%

:R2 POINTS TO REGISTER INDEX

JWAIT

INDEX

TABLE

FOR COMPLETION

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

;GO TO 108 IF ERROR

;GO CHECK FOR PRIMARY ERRORS

10%

;GO TO 6% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR C(HECKS
;GO TO 108 IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,SEKSTS

;GO VERIFY RESULTS OF SEEK OPERATION

JSR
. WORD
.WORD

PC,CMPERRSTS
NDTMSK
DPE

NOP
EMT
JSR
JMP

JSR
BR
NOP
Em7
JSR

PC,a(SP)+

PL,a(SP)+
10%

PC,a(SP)+

10%

PC,SECERR

PL,a(SP)+

;GO TO 7% IF NO ERROR

JRETURN HERE If ERROR
JERROR # DEFINED BY SEKSTS SUBROUTINE
;G0 BACK FOR TMMORE ERROR (HEC(KS

;GO TO 108 iF ERROR

;CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER]
JMASK FOR RMER?2

;GO TO 8% IF NO ERROR

;RETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSTS SUBROUT INE
;GO0 BACK FOR MORE ERROR (HECKS
;GO TO 10% IF ERROR

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

JRETURN HERE

ERROR

JERRCR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR (HE(KS

\l%O\\hm\Ab

Qoo

b ek -—

oh —d

D e

d e

1540
1541

b ek

1539

—d el

1538

QOO0
O0(=]

1535
1536
1537

AN NN W

CZRMMBO RMO5/3/2 FCINL ST 1
46
SEEK ADJACENT FORWARD

000137

031170

005737
001004
005237
060137

001444

MACRO v04.00

9%
:

001444

031062

10%:
NN A

JMP

108

TST
BNE
INC
JMP

RMD(O

A A

o)
=ROOQ
N NN
OHOHrNNOO
NN

NONON

n—
—

— —d

)

b el

b wd e

NN NN N v
WWNIN

YxTEST 47
elele Nolololololole

15643

K 11
11:43:28 PAGE 13-57

SEQ@ 0140

1542

1544
1545

4-APR-81

AR R

;GO TO 108 IF ERROR
;FIRST TIME THROUGH??

108

sNO!!

RMDCO

JYES = SEEK TO ADJACENT CYLINDER FORWARD

R AR AT

AR AR AR NN RN AN R AN A

IR NN RN AN ENCN AN RARN NN

SELK ADJACENT REVERSE

'"tttttittt*t*kttttl’!’tt't'**fi*tttt'***‘ttttttttttttt

000004
000240
012706
013700
013701
012737
004737
054130

15747:
001100

001276
001464
000047

001226

*tttttttttttt

SCOPt
NOP
MOV
MOV

#STACK ,SP

$BASE RO

;s SCOPE CALL
;START OF TEST
SINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS

MOV
MOV

TSTQUE ,R1
H47 ,$TESTN

;(R1)

JSR
-WORD

PC,TSTPRP

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

= DEVICE BEING

1%:

041650

054130

031236
031244

000404

000240
104000

000137

031474

012737

000001
000000
000005
001543
000006
000034
000000
000200

031252
031260
031264

031270
031274
031300
C31304

004737
000404
000240
104000
000137

004737
004737

[+ QVIVLIY,]
OVoo~

b
D
d
d
ed red

RN WA=
O 00NN

ALY IV, IV, TU, TV, LV 2V, 30, |
AN NS
SN

el
e

031236

VA A

—
el
et

AL
VTN

;PACK ACKNOWLEDGE

031224
031226
031230
031232

031350
031350

043160

031474
042624
043522

TESTED

;.SET TEST NUMBER IN APT MAIL BOX

001444

2%:

001416
001410

2%
108

JRETURN HERE IF ERROR
SERROR # DEFINED BY TSTPRP SUBROUTINE
;GO 7O 10% IF ERROR

MOV
MOV
MOV
MOV
MOvB

#1,RMDCO
#0,RMDAC

;TRACK = 0,

#200, (R2)+

s TERMINATE TABLE

PC,PUT
4%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

mMovB

4%:

VOLUME NOT VALID

BR
NOP
Em7
JMP

MOVB

3%:

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'* OR 'PIP'' IS SET
;VERIFY RECALIBRATION
;GO TO 2% IF NG ERROR

Mova
JSR
BR
NOP
EMT
JMP
JSR
JSR

004737
000404
000240
104000
000137

042710

031474

JSR
BR
NOP
EMT
JMP

004737

043706

+SR

;CYLINDER = 1

SECTOR - 0
A#SEEK!GO,RM(CS10 sFUNCTION CODE FOR SEEK
H#PUTINX ,R2
;R2 POINTS TO REGISTER INDEX
4RMD
, (R2)
A
+
WRITE REGISTER INDEX TABLE
HRMDC, (R2) +
H#RMCS1, (R2) +

108

;GO TO 4% IF NO ERROR

;JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE

;GO 7O 108 IF ERROR

PC,GETSTS
PC,TIMOUT

:SETUP TO RFAD ALL REGISTERS
JWAIT FOR SEEK TO COMPLETE

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

10%

;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 10% IF ERROR

PC,PRIERR

;GO CHE(K FQOR PRIMARY ERRORS

;GO TO 5% If NO ERROR

JRETURN HERE

IF ERROR

“ZRMMBD RMOS/3/2 FCINL IST 1
SEEK ADJACENT REVERSE

v(‘*)

031354
031356

031360
031362
031364

1563 031370
1564 031370

031374
031376
031400
031402
031404
1565 031410
1566 031410
031414
031416
031420
031422
031424
031426
031430
1567 031434
1568 031434
031440
031442
131444
031446
031450
1569 031454
1570 031454
1571 031462
1572 031464
1573 031470
1574 031474

000405
000240
104000
004736
000137

031474

004737

051024

004737

050400C

PC,2(SP)+
10%

JSR

P(C,SEKSTS

BR
NOP
EMT
JSR
JMP

044540

022737

000001

001004
005337
000137

001444

001444
031304

10%:

1575
1576

ERROR

JERROR # DEF INED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHE(KS
;GO T0 10% [F ERROR

;60 VERJFY RESULTS OF SEEK OPERATION

JSR

P{.,CMPERRSTS

;sCHECK ANY ERRORS NOT MASKED

.WORD

DPE

JMASK FOR RMER?2

NOP
EMT
JSR
JMP

EMT
JSR

PC,a(SP)+

ND TMSK

PC,a(SP)+
108

P{,SECERR
9%

JMP

PC.R(SP)+
108

(MP
BNE
DEC
JMP

#1 ,RMDCO
108
fMDCO
3

;MASK FOR RMER1

;GO TO B$ IF NO ERROR

JRETURN HERE [F ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUT
INE
. G0 BACK FOR MORE ERROR CHE(KS
;G0 TO 108 IF ERROR

.60 CHECK FOR SECONDARY ERRORS
;GO TO 9% [F NO ERROR
JRETURN HERE [F ERROR

JERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 108 IF ERROR

;IS THIS THE FIRST SEEK??
JNO!!
JYES - SEEK TO ADJACENT CYLINDER
.60 SEEK

""*Q'I.**fit'fi‘Q"“‘*fi**“"'.‘*"*'t.“**‘t'.“"..."‘""""Q

t".

“RTEST 50

1577

;GO TO 6% [F NO ERROR

JRETURN HERE

10%

JSR
BR
NOP

104000

C31474

13-58

;60 TO 78 IF NO ERROR
JRETURN HERE [F ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINF
. GO BACK FOR MORE ERROR CHE(KS
;G0 TO 108 IF ERROR

-WORD

031474

EMT
JSR
JMP

B8R

004736
000137

11:43:28 PAGE

SEQ 0147
NCP

031474

004737
000405
000240

4-APR-81

000405
000240
104000
004736
000137
115760
000010
000405
000240
104000
004736
000137

MACRO v04.00

031474
031474
031476
€31500
031504
031510
031514

1578 031522
1579 031522

AN
W

(o]

031526

SEEK INVALID SECTOR

'"ttiw*tttl’*it'fittti’**.'iflfii*t*i'tt!t!t't'kttt'tttt.t"t

000004
000240
012706
013700
013701
012737

004737
054130

000404
000240

15750:
001100
001276
001464
000050

041650

tt't't"

SCOPE

NOP
MOV
MOV
MOV

001226

;SCOPE CALL

#STACK ,5P
$8ASE RO
TSTQUE ,R1

MOV

#50,8$TESTN

JSR

PC,TSTPRP

JSTART OF TEST
cINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED

;oSET TEST NUMBER IN APT MAIL BOx

1¢:

.WORD

MNOP

054130

;PREPARE DEV]ICE

FOR

TEST

. TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ‘'SK]'' OR "PIP'* IS SET
;VERIFY RECALIBRATION

;GO TO 2% IF NO ERROR

JRETURN HERE

ERROR

"JRMMBO RMOS5/3/2 FCTNL TST 1
TS0
SEEK INVALID SECTOR

031534
031536

1580 031542
1581 031542

1582 031550
1583 031556

1584 031564

1585 031572

1585 031576

1587 031602

1588 031606
1589 031612
1590 031616

104000
000137

(32112

012737

000005

012737
012737

000000
000000

012702

001543

012737
112720

112722

110722
112722
112722

1551 031622

004737

1593 031626

004737

031632
031634
031636
G31640

15264 031644
1595 031644

031650
031652
031654
031656

1596 031662
1597 031662

031666
031670

031672
031674
031676

1598 031702
1599 031702
031706

031710
031712
031714

000036

042624

042710

104000
004736
000137

004737
000404

032112
052402

032112
043160

1600 031720
128; 031720

032112

004737

043522

1603 031724

004737

042710

1604 031742
1605 031742

031746
031750
031752
031754
031756
1606 031762

1607 031762

031766

000404
000240
1046000
000137

004737

000405
000240
104000
004736
000137

004737

000405

032112
043706

032112
051024

M1
11:43:28 PAGE 13-59

EMT
JMP

148

MOV

ASEEK!GO,RMCS10

MOV
MOV

001416

MOV

4%:

5%:

6$:

7$:

8$:

:R2 POINTS TO REGISTER TABLE

#30. RMDAQ

#RMDC, (R2)+
#RMCST, (R2)+

JSR

PC,CNTCLR

BR
NOP
EMT
JMP
JSR

BR
NOP
EMY
Jmp
JSR

(OMMAND

WPUTINX,R2

MOVB
MOVB
MOVE

JSR

;SEEK

:FORMAT 18 BIT
:CYLINDER = 0

WRMO
, (R2)+
F

MOVB

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

#0,RMOFO
#Q.RMDCO

MOVB

BR
NOP

000240
104000
000137

031730
031732
031734
031736

0014642
001444

052264

004737

000405
000240

28:

000034
000000

032112

004737

001410

000006

000200

&~APR-81

SEQ 0142

000032

(00404
000240
104000
000137

000404
000240
104000
000137

MACRO v04.0C

WRMDA.(R2)+

#4200, (R2)+

PC,GETSTS

148
PCLGET

148
PC,CLRSTS

:INVALID SECTOR = 30,, TRACK = 0

WRITE

;TERMINATE

INDEX

TASLE

TABLE

:SETUP INPUT REGISTER INDEX

;GO

ISSUE

CONTROLLER CLEAR

GO TO 4$ IF NO ERROR
:RETURN HERE if ERROR
:ERROR NUMBER DEF INED BY SUBROUTINE
G0 TO 14$ IF ERROR
;GO READ REGISTER(S)

WITH GET

SUBROUTINE

1GO TO 58 IF NO ERROR
RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
:GO TO 14$ IF ERROR

;GO VERIFY CONTRCLLER CLEAR OPERATION

16O TO 6% IF NO ERROR
RETURN HERE IF ERROR

EMT
JSR
JMP

PL,a(SP)+
14$

;ERROR # DEFINED BY CLRSTS SUBROUTINt
. GO BACK FOR MORE ERROR CHECKS
GO TO 148 IF ERROR

JSR
BR

PC.PUT
7$

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

NOP
EMT
JMP

148

RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
GO TO 148 IF ERROR

JSR

PC,TIMOUT

sWAIT FOR GO TO RESET

JSR

PC,GET

BR
NOP
EMT
JMP
JSR

14$
PC,PRIERR

;GO READ REGISTER(S) WITH GET SUBROUTINE

GO TO 8% IF NO ERROR
RETURN HFRE IF ERROR
ERROR # DEFINED BY GET SUBROUTINE
GO TO 148 IF ERROR
;GO CHECK FOR PRIMARY ERRORS

BR
NOP
EMT
JSR
JMP

PC,a(SP)+
14§

1GO_TO 9% IF NO ERROR
JRETURN HERE IF ERROR
:ERROR # DEF INED BY PRIERR SUBROUTINE
GO BACK FOR MORE ERRGR CHECKS
GO TO 14$ IF ERROR

JSR

P(C,SEKSTS

GO VERIFY RESULTS OF

108

GO T0 10% If NG ERROR

SEEK QPERATION

ZRMMBO RMOS5/3/72 FCINL TST 1
50
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
1616 032060

1617

1618
1619
1620
1621
1622
1625
1624
1625

032062
032070
032072
032100
032106
032112

MACRO v04.00

4-APR-81

SEQ 0143

000240

NOP

104000

004736
000137

032112

004737

050400

117760

EMY
JSR
JMP
JSR
-WORD
.WORD
BR
NOP
EmM7
JSR
JMP

000010
000405
000240
104000

004736
000137

004737
000405

000240
104000
004736

032112

005237
023727

001416
001416

032737
001010
012737
012737
000137

12%:

064540

000137

101662

N1
11:43:28 PAGE 13-6C

010000
010000
000040
031626

JSR
BR
NOP
Em7
JSR
JMP

13%:

000100
001442
001442
001416
14%:

PC,a(SP)+
14%

JRETURN HERE IF ERROR
SERROR # DEFINED BY SEKSTS SUBROUTINE
2GO BACK FOR MORE ERROR (HECKS
;GO TO 14%°[F ERROR

PC,CMPERRSTS

s CHECK ANY ERRORS NOT MASKED

1AE !NDTMSK
DPE
12%

;MASK FOR RMER1
;MASK FOR RMER?
;G0 TO 12% IF NO ERROR

JRETURN HERE

ERROR

JERROR # DEFINED BY CMPERRSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHE(CKS
;GO TO 14% IF ERROR

PC,(SP)+

14%

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

13%

;GO TO 13% IF NO ERROR

PC,a(SP)+

14%

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHE(KS
;GO TO 14% IF ERROR

INC
{MP
BLOS

RMDAC
RMDAQ, #64.

; INCREMENT SECTOR ADDRESS
;DONE YET ?

8IT
BNE
MOV
MOv
JMP

HEMT16, RMOFG
148
#FMT16,RMOFO

;NO =

g%?.,RMDAO

;WAS

TEST NEXT

TEST DONE

SECTOR

FOR

16 BIT MODE

:BR IF YES
;SET 16 BIT FORMAT MODE
;SET INVALID SECTOR 32.
:NO - TEST NEXT SECTOR

YET

h ttttttitt*&t*tttttkt*tit*fitttttt*tttt*tt***tttt*tt*ttt**ttt

tttt

S*TEST
MR

032112
032112
032114
032116
032122
£32126
032132

001100
001276
001464
000051
041650

032144

032146
032150

‘628 032160

sssl

001226

TSTQUE ,R1
#51,8TESTN

JSR
.WORD

054130

W
~N

ARl

INVALID TRACK

SCOPE
NOP
MOV
MOV
MOV
MOV

NOP

932152
032154

SEEK

etz

UPPUIS

15151:

000004

1626
1627 032140

§1

032540

EmT
Jmp

ASTA(K,SP

$BASE RO

PC,TSTPRP

. SCOPE CALL
;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 CONTRGLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

;RECALIBRATE [F "'SKI'*
OR ‘PIP'* IS SET
;VERIFY RECALIBRATION
;60 TO 1% IF NO ERROR

sKETURN HERE
14%

IFf

ERROR

cERROR # DEFINED BY TSTPRP SUSROUT
INF
;G) TO 14% [f ERPOR

753"!'8(, RMOS/3/2 SCTNL

SEEK

iNVALID TRA(K

T6465
1646

1647
1648

1649
1650
1651

'65¢2

1653
1654

012737

000005
00000

001332
001417
000000

001543

000032
000034
000006
000000
000200
064c624

VE
o

g
~
~n

1643

1644

250
254
256
260

Y.
"~

1661
1662

[elelelalole] jololelelglolalalalololololals)

1640

SUNINLNLNLNLNLNV
LA NLRO A NN

‘639

WAL
N N AN AN CNAN
N LN NNLN A AN AN NN NN AN AWNAN NWWANW
n)
n AN LAY 1 N1 S 1,91 N1 N1 .81
NN
[pV]
~n

1629 032160
"630 032166
631 032174
1632
‘633
634
635
“635
1637

1638

TST

MATRD

s04.00

032540

004737
000404
000240

042710

000137

032540

004737
000405
000240

05¢402

1064000

MOV

#5EEK GO.RMCSTO :SEEK COMMAND

001415

MOV

INCB

LSTRK , RMDAQ

MOY

RMDAQS1

SLAST

20 RMOF O

118 BIT FORMAT

001442

MOV

004737
000404
000240
104000

004737

043522

004737
000404
000240
104000

042710

032540

004737
000405
000240

043706

155
16%6

004737
000405
000240
104000

057024

;GO ISSUE CONTROLLER CLEAR
16O TO 3% IF NO ERROR
"RETURN HERE IF ERRCR

JSR
BR

PC.GET
4

EMT

oMP

JSR

PC.CLRSTS

‘WRITE REGISTER INDEX
*TABLE FOR OUTPUT

*SETUP

INPUT

TABLE

FOR

STATUS

*ERROR NUMBER DEF INED BY
130 TO 14% IF :RROR

SUBROU
INE
T

148

ERROR

;GO VERIFY CONTROLLER CLEAR OPERATION

JSR

PC,PUT

;GO WRITE REGISTER(S)

*GO TO 6% IF NO ERROR

*RETURN HERE

WITH PUT

ERROR

EMT
mp

148

*ERROR # DEFINED BY PUT
1GO TO 148 IF ERROR

JSR

PC,TIMOUT

;WAIT

JSR

PCLGET

;GO READ REGISTER(S)

EMT

148

JSR

PC.PRIERR

B8R
s

PC.R(SP)+
148

B8R
’e

*GO

EMT
JSR
me

B8R
.

;60 READ REGISTER(S) WITH GET SURROUTINE
*GO TO 48 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE

*GO TO 58 IF NO ERROR
*RETURN HERE IF ERROR
“ERROR # DEFINED BY CLRSTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
1GO TO 148 IF ERROR

NOP
EMT

032540

PC.CNTCLR
3

148

BR
NOP

104000

004736
000137

:TERMINATE TABLE

EMT
JMP

NOP

000137

INVALID TRACK

200, (R2)+
PC.GETSTS

NOP

032540

SECTOR - 0

3d:

043160

000137

TRACK,

TSETUP FIRST

*R2 POINTS TO REGISTER TABLE

JSR

MOVB

SCYLINDER = G

#°07T MX _R2

#RMOF
, (R2)+
#RMDC
. 'R2)+
#RMDA. (R2)+
#RACST, (R2)+

SR
R
NCP
.

#0.’MDCC

MOVB
MOVB
MOVB
MOVB

NOP

032540

*3-¢?

00141C

007164k

104000

004736
000137

8 12

"1:43:¢8 PAGE

SEQ 0144

052264

000137

4-APR-81

JSR
JmP

PCLASP)+
14§

SR
BR

PC,SEKSTS
9¢

NOP

EMT

FOR GO

*RETURN HERE

1GO

ERROR

WITH GET

SUBROUTINE

ERROR

*ERROR # DEFINED BY GET
148

SUBROUTINE

TO RESET

GO T0 78 IF NO ERROR
TO

SUBROUT
INE

SUBROUTINE

;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 CHE(KS
GO TO 14$ IF ERROR

;GO VERIFY RESULTS OF SEEK IPERATION
GO TO 9% IF NO ERROR
*RETURN HERE IF ERROR
“ERROR # DEF INED BY SEKSTS SUBRO.TINE

032416
032420

00473¢
000137

(32540

1659 N324624
032430
032432
(32634
032436
032440
032442
032444
1660 032450
661 032450
032454
032456
032460
032462
032464
1662 032470
1663 032470
1664 032474
1665 032502

004737

050400

1657 032624
'658 032424

1666
1667 032504

1668 032512

1669
1670
1671
1672
1673

032514
032522
032530
032534

117760
000010

MACRD v064.00 4-APR-B7 11:43:28 PAGE€11%—62

10%:

000405
00024C
104000

004736
000137

004737
000405
000240

03254

11%:

044540

104000

004736
000137

032540

12%:

1677

032544
032550
C32554
032560

1678 032566

030572

PC,3(SP)+

148

;GO BA(CK FOR MORE EWRCR CHECKS
;GO TO 148 IF ERROR

JSR
.WORD
-WORD
B8R
NOP
EMT
JSR
JMP

PC,(MPERRSTS

sCHECK ANY ERRORS NOT MASKED

JSR
8R
NOP
EMT
JSR
JMP

001417
001417

000200

CMPR
BLOS

032737
001012
012737
013737

010000

001442

BIT
BNE

105237

000137

001417

INCB

C01442
001416

032250

MOV
MoV

13%:

1674 032540
1675
1676

032540
032540
032542

JSR
JMp

105237
123727
101414

010000
001332

SEQ 074

INCB

JMP

IAE NDTMSK
DPE
11%

;MASK FOR RMER?

;MASK FOR RMER?2
GO TO 118 IF NO ERROR
JRETURN HERE

PC,a(SP)+

14%

PC,SECERR

12%

ERROR

SERROR # DEFINED BY (MPERRSTS SUBROUTINE
:GO BACK FOR MORE ERROP. (CHE(KS
;60 10 148 IF ERROR
;GO CHECK FOR SECONDARY ERRORS

;G0 TO 12% IF NO ERROR

;RETURN HERE

ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE

PC,a(SP)+

14%

;GO BACK FOR MORE FRROR (HE(KS
;G0 TO 148 IF ERROR

RMDAD+1
RMDAD+1,#128,

2 INCREMENT TRACK ADDRESS

13%

#EMT16,RMOFO
148
/
#FMT16, RMOFO
LSTRK
. AMDAO
RMDAQ+1

;DONE??
+NO-DO NEXT TRACK

:Uég TEST DONE FOR 16 BIT??

sYES.!

;SET FORMAT 16
;LAST TRACK, SECTOR
0
;SETUP FIRST INVALID TRACK ADDRESS
:DO TEST FOR 16 BIT FORMAT

14%:
'"'tttfit*fi!fitt.*'.itttii*i'fit!‘i’fi*t'ttt'tttit!tfl"itt"tt'tt

T*TEST 52

t't*"

SEEK

INVALID CYLINDER

“.‘tit*t!fit.fi.t'ttl’tt"tl't't'l‘tfi'tttt't'ttt"titttttltttt""tt'i'.

000004
000240
012706
013700
013701
012737

004737
054130

TST152:

001100
001276
001464
000052

SCOPE
NOP
MOV
MoV

001226

041650

MOV
MOV

$BASE RO

TSTQUE ,R1
#52,8$TESTN

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

JSR
.WORD

PC,TSTPRP

JPREPARE DEVICE FOR TEST

ASTACK,SP

054130

;7R1) = DEVICE BEING TESTED
;oSET TEST NUMBER IN APT MAIL BOX
;TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

JPACK ACKNOWLEDGE

VOLUME NOT

VERIFY PACK ACKNOWLEDGE

VALID

(’.

JRECALIBRATE IF ''SKI'* OR "PIP'* IS SET
032574
032576
032600
032602
£32606

000404

000240
000137

033156

18:

BR
NOP
EMT
JMP

JVERIFY RECALIBRATION

;GO TO 1% IF NO ERROR
JRETURN HERE [F ERROR
13%

JERROR # DEFINED 8Y TSTPRP SUSROUT
INE
;G0 10 13% [F ERROR

JAVWBO RMOS5/3/2 FCINL TST
SEEX INVALID TRA{K

JRVMB( RMQS5/3/2 FCINL

INVAL iD CYLINDEK

1701
1702 032770

032774
032776
033000
033002
1703 033006
1704 033006

D OOO

000005
001467
200000
000000
001543
000006
000034
000032

n
n

no
~

R
I

1680 032606
1681 032614
1682 032622
1683 032630
1684 032636
1685 032642
"686 032646
1687 032652
1688 032656
1689 032662
1690 032666
1691 032672
1692 032672
032676
032700
032702
032704
1693 032710
1694 032710
032714
032716
032720
032722
1695 032726
1696 032726
032732
032734
032736
032740
032742
1697 032746
1698 032746
032752
032754
032756
032760
1699 032764
1700 032764

e ed A 2

SEEK

"S¢

TST

004737
00437
000404
000240
104000

000000
000200
042624

052264

000137

033156

004737

042710

000404
000240
104000
000137

004737
000405
000240
104000
004736

033156
052402

000137

033156

004737

043160

000404
00C240
104000
000137

033156

004737

043522

004737
000404
000240
104000

042710

00:°10
00144/
001416
001442

2%:

3%:

4%:

5%:

6%:

MOV
MOV
MOV
MoV
MoV
MOvVB
MOvB
MOVB
MOVR
MOVB
JSR

JSR
BR
NOP
EMT
JMP
JSR
BR
NOF
Emy
JMP
JSR
BR
NOP
EMT
JSR
JMP

JSR
BR
NOP
EMT
JMP

033156

004737
000405
000240
104000
004736
000137

043706

004737
000405
000240

051024

033156

7%:

8%:

£EG 01

#SEEK!GO,RMCS10 JSEEK

#823. ,RMDCO

#0,RMDAO
#0.RMOF
O
#PUTINX ,R2
#RMDA, (R2) +
#RMDC, (R2) +
ARMOF
, (R2) +
#RMCS1, (R2)+

FUNCTION CODE
;START AT FIRST INVALID (YLINDER

*TRACK = 0,

SECTOR =

#200, (R2) +

s TERMINATE

PC,CNTCLR

;GO ISSUE CONTROLLER CLEAR
;GO TO 3% IF NO ERROR

PC,GETSTS

138
PC,GET

TASLE

;SETUP FOR STATUS

JRETURN HERE

PC,CLRSTS

PC,2(SP)+

ERROR

;GO TC 138 IF ERROR

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 4% IF NO ERROR
JRETURN HERE

13%

JERROR NUMBER DEF INED BY SUBROUTINE

ERROR

;ERROR # DEFINED BY GET SUBROUT INF

;GO TO 138 IF ERROR

;GO VERIFY CONTROLLER CLEAR OPERATIOM,
—~
;GO TO 5% IF NO ERROR

SRETURN HERE

ERROR

:ERROR # DEF INED BY CLRSTS SUBROUTIRE
;GO BACK_FOR MORE ERROR (HE(KS

13%

:GO TO 138 IF ERROR

PC.PUT

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

13%

JRETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROULTINE

;GO TO 138 IF ERROR

PC.TIMOUT

;WAIT FOR GO TO RESET

JSR
BR

PC,GET

;GO READ REGISTER(S)

EMT
JMP

JSR
BR
NOP
EmT
JSR
JMP
JSR
BR
NOP

EMT
JSR

;18 BIT FORMAT
JR2 POINTS TO INDEX TABRL[
JWRITE REGISTER TABLE

JSR

NOP

00013/

104000
004736

MACRO V04.00 4-APR-B1 11:43:28 PAGED11%-63

;GO TO 7% IF NO FRROR

JRETURN HERE

ERROR

WITH GET SUBROUTINE

;ERROR # DEFINED BY GET

SUBRQUTINE

13%

;GO TO 138 IF ERROR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

13%

PC,SEKSTS

PC,a(5P)+

;GO TO 8% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK_FOR MORE ERROR CHE(CKS
;GO TO 13% IF ERROR
;GO VERIFY RESULTS OF SEEK OPERATION

;GO TO 9% IF NO ERROR

JRETURN HERE [F ERROR
JERROR # DEF INED BY SEKSTS

;GO BACK FOR MORE

SUBROUTINE

ERROR (HECKS

JSMMBO RMOS/3/72 FCINL TST 1
*52
SEEK INVALID CYLINDER

033042
033046
1708 033046
033052
033054
033056
033060
033062
033064
1707

1709

1710

033156

004737

050400

117760

033156

"0%:

044540

104000

033156

N) 2 —d

004736
000137

005237
023727
002412

001444
0C1444

032737
001010
012737
012737
000137

010000
010000
001467
032672

E 12

11:43:28 PAGE

13-64

JMP

138

;GO TO 138 IF ERROR

JSR
.WORD
. WORD

PC,C(MPERRSTS

;CHECK ANY ERRORS NOT MASKED
(MASK FOR RMER1

NOP

K\Ol’uwgl\

9%
:

104000

004736
000137

4-APR-81

SEQ 014/

000010
000405
000240

004737
000405
000240

LIVILNEN
Y SRV o 1e (R NTe XV W NUW, GPN

Y
e T
N

NNN

N
S
T
R
R
I
I

e NN
N
ny

000137

MACRD Vv04.00

11%:

002000

001442
001442
007444

12%:

EMT
+SR
JMP

JSR
B8R
NOP
EMY
JSR

1AE !NDTMSK

DPE

1C$

;MASK FOR RMER?

;GO TO 108 IF NO ERROR
JRETURN HERE

ERROR

JERROR # DEFINED BY (MPERRSTS SURROLTINE

PC,a(SP)+

260 BACK_FOR MORE ERROR (HEC(KS

133

;GO TO 13% IF

PC,SECERR

ERROR

;G0 CHECK FOR SECONDARY ERRORS

;GO TO 11% IF NO ERROR

JRETURN HERE

ERROR

PC,a(SP)+

;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK_FOR MORE ERROR (HE(KS

iNC
CMP
BLT

RMDC(

; INCREMENT CYLINDER ADDRESS

BIT

HFMT16,RMOFO

-MP

BNE
MOV
MOV

13%

;GO TO 13$ IF ERROR

RMDCO,#1024.
12%

15%

HFMT16,RMOFO

5223..RMDCO

;DONE??

JNO-DD NEXT CYLINDER

:1? BI7T FORMAT TESTED??
JYES ..
JSETUP FOR 16 BIT
;START AT

FIRST

TEST

INVALID (YL INDER

13%:
:'fittttt'tttt't"ktt"!li"'ti"'fitttt..'fil!'*‘.lk'ttt'i"'i't

S*TEST 53

t't

IvC

SEEK

TEST

':ttt‘ttflt.tfi't‘Q'tfiitlt't‘t.'it."t!t!t"tt'tttlt'it"l*"'.

ttt'

1725

1726

000004
000240
012706
013700
013701
012737

004737
000404
000240
104000

1207

1728

TST53:

001100
001276
001464
000053

SCOPE
NOP
MOV
MOV
MOV
MOV

001226

052264

000137

033516

112737
112737
012737
004737
000404
000240
104000

000924
000200
000001
043160

000137

033516

612737

000G05

001543
007544
001434

001410

1%:

#STALK,SP

$8ASE RO

TSTQUE
R

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

#53 S$TESTN

;oSET

JSR
BR
NOP
EMT
JMP

PC,CNTCLR
1%

;GO TO 1% IF NO ERROR

;GO TO 8% ¢ ERROR

MOVB
MOVB
MOV
JSR

HRMMR1
, PUT {NX
#200,PUTINX+1
#DMD ,RMMR10
PC.PUT

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMMR1 OUTPUT BUFFER = DMD

BR
NOP
EMT
JMP
MGv

TEST NUMBER

8%
#5EE
. GO, &ML K
STC

BOX

;GO ISSUE CONTROLLER CLEAR

JRETURN HERE

IN APT MAIL

ERROR

;ERROR NUMBER DEF INED BY SUBROUTINE

;GO WRITE RMMR1 VIA PUT SUBROUT INE

;GO TO 2% IF NO ERROR
JRETURN HERE

ERROR

sERROR DEFINED BY PUT

;GO TO 8% [F ERROR

SUBROUTINE

' 744
1745

~
n

wnun

NN
o~
n

NN AN LN AN UVUNAWN
AN
N NN NN
NN NN
V]

N AN UL AN AN N AN

1742
1743

elololslqlalalelolololololololaleloleole)]

D WD
ek
b
D e
ed
o

Lol VIV
Y]AN LA NN LN

NNNNNNNNNN~N

LoV
IE AR

" /RMMBO RMOS/3/72 FLCINL
T2
IvC SEEK TEST

004737
000404

000240
104000
000137

004737
000404
000240
104000

O 00~y

~ PR A N
~ NNOOON
H OO
N

N NN WA

5
5
310
512
514
516

000000
(00000
000000
001543
000024
000006
000034
000000
000200
042624
043160

001434

010000
001376
167777

004737

050400

#0,RMDAO
#PUT INX,R2
H#RMMR, (R2)
+
#RMDA, (R2)+

MOVB

MovR

033516
010000

5%:

001140
001142
001142

PC.PUT
3%
8%

104000

033516
044540

’$:

JSETUP FCR STATUS

“

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

JRETURN HERE

ERROR

SJERROR # DEFINED BY pPUT §\BROU71NE
;GO TO 8% IF ERROR

PC,GET

;GO TO 8% IF ERRNR

JBR

PC,PRIERR
5%

;GO CHECK FOR PRIMARY ERRORS

;GO
;GO

READ REGISTER(S) WlTH GET SUBROUTINE
TO 4% IF NO ERROR

JRETURN HERE

EMT
JSR
JMP
BIT
BNE;

;GO TO 5% IF NO ERROR

RMERZI,$BDDAT
gZCIVC.SBDDAT
PC,CMPERRSTS
ND TMSK
Iv(!DPE
7%

;gég

INVALID

PC,A(SP)+

PC,SECERR

EMT
JSR

PC,a(SP)+

COMMAND

;GOOD DATA FOR TYPEQUT
;BAD DATA FOR

TYPEOUT

;CHECK ANY ERRDRS NOT MASKED
JMASK FOR RMERI1

;MASK fOR RMER2
;GD TO 7% IF

NO ERROR

IF ERROR

SJERRQR # DEFINED BY (MPERRSTS SUBROUT
INE
;GO BACK FOR MORE ERROR (HE(K>

;GO 70 8% [F ERROR

;GO (HECK FOR SECONDARY ERROKRS

;GO TO 8% IF NO ERROR

JRETURN HERE

ERROR

:ERROR # DEFINED BY SECERR SURBRCL
TM INE
;60 BACK FOR MORE ERROR (HELKS

. 't"'t'tt"""flfi.Q*lti"tt!tfi’tfl’rttittttl.ttfittttt'ttfi'ttttt'o‘v

6
0

TeTEST S 4
ABORT SEEK TEST
;:'Qn'tttt“ttt I]tt.tfl“"'ttfitQfip'tt'tttttptntt...‘61-tt.'-nottn000004
000240

15754

SCOPE
NGP

;SCOPE

START

ZAL,

Frac

SET??

JRETURN HERE

- JSR

ERROR

#1vC,$GDDAT

JMP]

#1v(,RMERZ!

JSR
.WORD
.WORD
BR
NOP
EMT
JSR

ERROR

JERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR (KECKS
;GO 70 8% IF ERROR

PC,a{SP)+

BIC
EMT

:ERROR # DEFINED BY GET SUBROUT INE

JRETURN HERF

8%:

SECTOR

SR
B8R
NOP
EmMT
JMP

MOV
MOV

6%:

#200, (R2) +

PE.GETSTS

001376

JWRITE REGISTER INDEX
JTABLE

HRMD
, (R2)
C
+

JSR
BR
NOP
Emy
JMP

A ¥

JCYLINDER = @

JTRACK

#RMCST, (RR)+

MOVB
MOVR
JSR

010010
000405
000240

006736

#0 .RMMR10
#0.RMDCO

Nbp

000137
032737
001012
012737
013737
042737

004737
000403
000240
104000

11:43:28 PAGE

MOV
MOV
r
MOV
MOVB

0642710

043706

004736
000137

4-APR-81
MOV

001444
001416

033516

004737
000405
000240

115760

MACRO v04.D0

SEQ 0148

03%516

104064

s —eh
D
ok ol
el
el

NN NNNNNN
VWA ANUES ES

—

1755

000137

104000
004736

1754

TST

{

LSAMMBU RMO5/3/2 FCINL TST
&
ABORT SEEK TEST

1759

1760

012706
013700
012701
01¢737

001100
(01276
001464
000054

004737
054130

0641650

MACRD ¢04.00 4-APR-81 11:43:28 PAGEG ]g-bb
MOV

#STACK,SP

MOV

#54 STESTN

JSR
- WCORD

PC,.

MOV
MOV

001226

$BASE ,RO

TSTQUE ,R1

TPRP

054140

JINITIALIZE STACK POINTER
;RO - UNJBUS ADDRESS
:(R1) = DEVICE BEING TESTED

;oSET

TEST NUMBER

[N APT MA[L

;PREPARE DEVICE FOR TEST

sTASK

DESCRIPTOR AS

FOLLOWS:

;CLEAR (ONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR QPERATION

JPACK ACKNOWLEDGE

VOLUME

;VERIFY PACK ACKNOWLEDGE

033552
033554
033556
033560
1761 033564
1762 033564
1763 633572
1764 033600
1765 033606
1766 033614
1767 033620
1768 033624
1769 033630
1770 033634
1771

033640

1772 033644

1773 033650

033654
033656
033660
033662
1774 033666
1775 033666
033672
033674
033676
033700
1776 33704
1777 33712
1778 033714
1779 033722
1780 033730
1781 033734
1782 033736
1783

1 784

033742
033746
033750
033752
033754
033760
033760
033764
C33766

000404
000240

104000

034060

012737
012737
012737
012737
012702

040000
060000
000000
000005
001543
000006
000034
000014
000000
000200
042624
043160

112722
112722
112722
112722
112722
004737
004737
000404
000240
104000
000137

004737
000404
000240
104000
000137

#UNS ,RMER10
#0,RMDCO
#0 .RMDAD
#SEEK.GO,RM(CS10
#PUT INX R
#RMD
, (R2)
A
+
#RMDC
, (R2) +
#RMERT, (R2)+
#RM(ST, (R2) +

PC.PUT

2%:

062710

001346
157777
0€1140

004737

043522

004737
000404
000240
104000
000137

042710

004737
000405
000240

043706

JCYLINDER = 0

:TRACK

SECTOR

s SEEK COMMAND
;SETUP REGISTER INDEX TABLE
JAND OUTPUT BUFFER

001346

;GO T0O 9% IF ERROR

PC,GET

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

IRETURN HERE

#P1P ,RMDS]

001142
001142

RMDSI, $BDDAT
#~(PIP,3BDDA’

$GDDAT
65

IMP

ISR

PC,PRIERR

NOP

£%

ERROR

G0 T0 98 IF ERRGR
DID DRIVE

START SEEK?”

JBAD DATA FOR TYPEOQUT
:GOOD DATA FOR

T#PEQUT

;WAIT FOR GO TO RESEY .

PC, TIMOUT

;GO READ REGISTER(S) WITH GET SUBRO "iNE

PC,GET

ZERROR # DEF INED BY GET SUBROU"INE

3%:

JSETUP FOR STATUS FETCH
;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO TO 2% IF NO ERROR
JRETURN HERE [F ERROR

;ERROR # DEFINED BY PUT SIBROUTINE

0340¢0

;SET UNSAFE ERROR

034060
020000

vALID

#200, (RC)+

PC,GETSTS

0340460

032737
001411
013737
042737
005037
104065

001424
001444
001416
001410

1%:

NOT

JRECALIBRATE IF ''SKI'"
OR "PIP'" [S SET
;VERIFY RECALIBRATION
;G0 TC 1% IF NO ERROR
JRETURN HERE IF FRROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 9% If ERROR

000137

BOx

;GO TO 5% IfF NO ERROR
;RETURN HERE

”

ERROR

;ERROR # DEFINED BY GET SURBROUTINE
;GO T0 9% IF ERROR

250 CHECK FOR PRIMARY ERRC%
230 10 6% [F NO ERRCR

T URN HERE [F ERROR
JRE

JXMMB0 RMOS/3/2 FCTINL TST 1

ABORT

033770
033772
033774
787 034000

"788 534000

234004
034006
034010

034012

SEEX

TEST

104000
004736
000137

034060

004737

057766

000405
000240
104000

004736

034014

000137

034060

1790 034020

004737

050400

1789 034020

034024
034026
034030

155760
000010
000405

0340346
034036
034040

104000
004736
000137

034032

1791

(34044

MACRO v04.00

6%:

000240

034060

9%
:

000403
000240
104000
C04736

1795

JSfi

PC,R(SP)+

ASR

PC,CMPERRSTS

000004

034070
034074

013700
013701

NDYMSKEUNS
DPE
8%

EMT
JSR
JMR

PC.R(SP)+
Gs

JSR

b%,ékqenn

BR
NOP
EMT
JSR

1802 034142
1803 034150
'B06 (3454

;GO

BACK FOR MORE ERROR (HE'KS

;GO TO 9% IF ERROR

;CHECK ANY ERRORS NOT MASKEC

:MASK FOR RMERT
;MASK FOR RMER?
;GO TO 8% IF NO ERROR

“RETURN HERE If ERROR

;ERROR # DEFINED BY (MP{RRSTS S JBRD " iNe
;GO BACK FOR MORE ERROR ChE(K$S
;GO TO 9% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

JGO TO 9% IF NO ERROR
sRETURN HERE [F ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHE(KS

PC.B(SP)+

SEEK

AT OFFSET

SCOPE

000240/'
012706 001100

012737

001226

004737

054130

ttt‘

15155

001276
001464
000055

041650

NOP
MOV

#>TACK, SF

MOV

#55,8TESIN

MOV
MOV
1%

JSR

.WORD

$BASE ,RQ
1STQUE ,R1

PC,TSTPRP

054130

1799 034126
1800 034126
1801 Q34134

;GO TO 7% 1F NO ERROR
:RETURN HERE [F ERROR
:ERROR # DEF INED BY STCDRVSTS S i ni

)

034114
034116
034120
034122

;GO CHECK FOR (HANGES IN DRIVE $7a". .

7%,

. t’ttntttttt.ttt*ttttt"ttttttfi'ttttttttttttgtfittttttt.'tttt

034060
034060

03«172

PC,STIDRVSTY

JERROR # DEFINED BY PRIFRR SusRL TN
G
BACK FOR MORE ERROR (HE{KS
6O
TO 9% IF ERROR

: tittt'ti'fittktttt'ltti'tttl'ttt\ttttkqt'ltttittttt't'ttt*'ttttnnt

LSTEST

1797 034106
1798 034106

JSR

NOP

1793 034060
1764

1796 034100

PC,R(SP)+
og

.WORD
.WORD
BK

8%:

034062
034064

EMT
JSR
JMP

BR
NOP
Emr

1792 036044 004737 044540
034050
034052
034054
034056

H 12

4=APR=81 11:43:08 PAGE 13-67

000404
000240
104000
000137

0344064

012737/ 000000
012737’
000000

012737
012702
112722

000015
001543
000034

001444
001416

001470

2%:

BR
, NOP
Em?
JMP
MOV
MOV

MOV
MOV
MOVH

:SCOPE (ALL

;START OF TEST
JINITIAN
JZE STACK POINTER

;RC = UNIBUS ADDRESS
;(R1)
DEVICE BEING TESTED
;;SET

TEST NUMBER

;PREPARE

DEVICE

IN APT MAIL BOX

FOR

TEST

:TASK DESCRIPTOR AS FOLLOWS:J
;CLEAR CONTROL_ER
& SELECT,
D

"VERIFY CONTROLLER CLEAR obER rxow

;PACK ACKNOWLEDGE IF VOLUME NOT VA, 1D

:VERIFY PACK ACKNOWLEDGE
IRECALIBRATE IF "'SKI'*
OR 'PiP"*
Iy SET

10%

;VERIFY RECALIBRATION
160 TO 2% I[F NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY 1STPRP <URBROUT
INE
;GO TO 10$ IF ERROR

#0,RMDLO
#0 ,RMDAQ

;Cy. INDER - 0
;
TRACK = 0
SECTOR = O

#OFFSET GO, RM(S10
LOAD OFFSET COMMAND IN Bl Fré&
#PUTINX)R2
:R2 POINYS TO REGISTER TABLE
dRm@c (R2)+
‘WRITE REGISTER INDEX TARLE

1823
1824

1825

1826

1827
18,8

roron

72
72
72

nororno

034160
034164
034170
034174
934200
034202
034204
34206
034212
034216
034222
934222
034230
034236
034244
034250
034252
0342564
034256
034262

— amd ek

RMOS/K/Z (TN
SEEK AT
S

004737
000404
000240
104000

000137
004737
004737
012737

112737

IST

034262

004737

043522

034266
034272
034274
034276
034300

004737
000404
000240

042710

004737
000405
006240

000200
043160

001410
001543
001544

043706

SWAIT

034404

004737
115760
000010
000405
000240

050400

108

PC,GETSTS
PC, TIMOUT

034404

8%:

034404
044540

GY:

ERROR

;WAIT

FOR OFFSET

TO COMPLE
TE

;GO0 WRITE REGISTER(S) WITHW PUT SUBROLTINE

10$

;ERROR # DEFINED BY PUT SUBROUT INE
;G0 TO 10% IF ERROR

JMP

#200,PUTINX+1

FOR COMMAND TO (OMPLETE
JSR
pc,r!MGqT

PC.GET
6%

JMP

10%

JSR

Pl ,PRIERR

:ERROR # DEFINED BY PUT SUBROUT
INF
:GO TO 108 IF ERROR
JSETUP FOR STATUS FET(H

PC,PUT
5%

NOP
EMT

7%:

:GO_TO 38 IF NO ERROR

;RETURN HERE

JSR
BR

JSR

104000

000240
104000

TERMINATOR

ASE
. GU,RMC$10
EK ;LOAD SEEK COMMAND
ARM(S1,PUTINX
;LOAD REGISTER INDEX TARB £

B8R

6%:

;WRITE

JGO WRITE REGISTER(S) WlTH P < BEQ,TINE

MOV
MOVR

EMT

5%:

#200, (R2)+

JSR
JMP

PC,R(SP)
10%

JSR

PC,SEKSTS

NOP

EMT
JSR
JMP

JSR
.WORD
.WORD
BR
NOP
EMT

;GO 7O 5% IF NO ERROR
JRETURN HERE IF ERKOR

;GO TO TIMOUT

PC,A(SP)+
10%

SUBROUTINE

;GO READ REGISTER(S) WITH GETM SUBROUTINE
;GO TO 6% IF NO ERROR
JRETURN HERE IF ERROK
;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 10% If ERROR

;GO CHECK FOR PRIMARY

;G0 TO 7% IF NO ERROR
JRETURN HERE

FMT

051024

004737
000403

NOP
EMT
Mp
JSR
JSR

NOP

004737
000405
000240
104000
004736
000137

004736
000137

PC,PUT

MOVR

104000

004736
000137

JSR

NOP

034404

J%NDA (R2) ¢

MRMCST (R2)+

B8R

2%
is

MOVAR
MOVR

043522
000005
000000

‘

MOVR

034404
042624

034404

034304
034304
034310
0343512
034314
034316
034320
034324
034324
034330
034332
034334
34336
034340
034344
034344
034350
034352
034354
034356

0000Gé6
(00000
000200
043160

112737
004737
000404
000240
104000
000137

104000
000137

MACRO v04.00 4-APR-B1 1°:43%:28 PAGE 1%#68

ERRORS

1F ERROR

;ERROR # DEFINED BY PRIERR SUBROUT
INE
;GO BACK FOR MORE ERROR (HE(KS

;GO TO 10% IfF ERROR

;GO VERIFY RESULTS OF

;GO TO 8% [F NO ERROR

JRETURN HERE

;GO TO 10% IF

ERROR

SEEK OPFRATION

ERROR

JERROR # DEFINED BY SEKSTS SUBROUTINE
;60 BALK FOR MORE ERROR CHECKS

PC,CMPERRSTS
NDTMSK
DPE
9%

s CHECK ANY ERRORS hOT MASKED
JMASK FOR RMERI
JMASK FOR RMERZ
;GO "0 9% IF NO ERROR
JRETURN HERE ]F ERROR

JSR

PC,a(sP)+

s 60 BACK FOR MORE

JSR
BR

PC,SEZERR
108

;GO TO 108 IF NO ERROR

JMP

NOP
EMT

10$(

;ERROR # DEFINED 8Y (MPERRSTS

ERROR (HECKS

SUBRO JTINE

GO TO 10% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

JRETURN HERE

tRROR

ERROR # DEH'NEP 8Y SECERR SuBkuu
TM iNt

TZRMMBO KMOS/3/2 FCTNL
*5%
SEEK AT OFFSET

034402
829 034404
1830
831

MACRO v04.00

034414
034420
034424

034432
034436
034440
034442
034444
034450
034450
034454
034462
034470
034476
034504
034510
034514
034520
034524
034530
034534
034540
034540
034544
034546
034550
034552
034556
034562
(34566

034570
034572
034574
034600
034600
034604
034606
034610

034612
034614
1854 034620
1855 034620
1856 034624
1857 034630
1858 034634

)12
11:43:28 PAG E%- 69
Stu

004736

10%:

JSR

PC,a(SP)+

;GO BACK FOR MORE ERRCK “HF k<

PR RNRNRRN RGN tfittwqi't"l'."..'fl't.lt..'t.t...t'..'.

SATEST 56
SIRRA

03464046
034404
034406
034410

4&-APR-81

000004
000240
012706
013700
013701
012737

004737
000404
000240

104000
000137

012703
012737
012737
012737
012737
012702
112722
112722
112722
112722
112722

004737
004737
000404
000240
104000

000137
004737

?§L56:
001276
001464
000056

035022

043522

004737
000404
000240

042710

000137

035022

004737
000405
000240

043706

104000

001226

JSR
BR
NOP
EMT

035032

043160

1%:

012704
012705
016014
016002

055022
103274
177777

000029
000020

JMP

MOV

MoV

001442
001444
001416
001410

MOV
MOV
MoV
MOV

MOVAR

mMovs
MOVR

2%:

A ¥

104000

004736
000137

SCOAE

MOV
MOV
MoV
MOV

052264

000037
000000
0000C6
000000
000031
001543
000006
000034
000032
000000
000200
042624

RN RN A RA R AN AN RNA RN AR A RE AR AN

NOP

001100

5¢%:
6%

7%:

'.'!"t'o

LOOK AKEAD TEST

MOVB
MOVR
JSR
JSR
BR
NOP
Emy
JMP
JSR

JSR
BR
NOP
EMT
JMP
JSR
BR
NOP
Emr
JSR
JMP
MOV
MoV
MOV
MOvY

RN NN N AN N

;SCOPE

#S°ACK,SP

$BASE ,RO

TSTQUE, 1
#56,$TESTN

PC,CNTCLR

16%

#31.,R3

#0,RMUF O
#0 ,RMDCO

;START

SN R AN T IOIRRERANNOSS

(CALL

TEST

JINITIALIZE

STACK

POINTER

iRO - UNIBUS ADDRESS

H(RTM)
::SET

;GO

= DEVICE BEING TESTED
TEST NUMBER IN APT MAIL

ISSUE

;GO TO 1%

CONTROLLER

IF NO ERROR

JRETURN HERE

;G0 TO 168 IF

ERROR

BOX

CLEAR

ERROR

;ERROR NUMBER DEF INED BY SUBROUTINE

;R3 = SAMPLE

COUNT FOR 18 BIT MODE

JSTART WITH 18 BIT MODE
JCYLINDER - O

#OERMDAO
;SEARCH TRACK = 0, SECTOR - 0
#SEARCH'GO,RMCS10
;RECALIBRATE COMMAMD

#PUTINX,R2
#RMDA, (R2) +
H#RMDC, (R2)+
H#RM
, (R2)
OF
+
#RMCST,(R2)+
#200, (R2)+

PC.GETSTS

PC.PUT

15¢%

PC, TIMOUT
PC,GET

;GO WRITE

;GO TO 3% IF NO ERROR

;RETURN HERE

WITH PUT

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;GO T0 158 IF ERROR
WAIT

FOR COMPLETION

;GO READ REGISTER(S)

WITH GET

;GC TO 4% IF NO ERROR
JRETURN HERE IF ERROR

15%

;GO TO 15% IF

PC,PRIERR
5%

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

PC,a(SP)+

15%

#BUFFER,R4

#-1,R
RMLA(RO)
, (R4)

RMLA(RO)
,R2

SUBROUT INE

SUBROUTI
vf

JERROR 4 DEFINED BY GET SUBROUTINE

;RETURN HERE

ERROR

L,ERROR # DEFINED BY PRIERR SURBROUT INE

;GO BACK FOR MORE

;GO TO 15% IF

ERROR CHECKS

ERROR

;R4 = STORAGE ADDRESS

;RS

GROSS

TIMER

;STORE RMLA SAMPLE
JGET ANOTHER LOOK

’%RMMBO RMO5/3/2 FCINL TST
LOOK AHEAD TEST

'859 034640

1860 034642
1861 034644

MACRO v04.00

K 12
«3:28 PAGE 13-70

4-APR-81

SEQ 0153

020274

R2, (R4)

JARE

SAMPLES SAME"?

001403
005305

BEQ
DEC

8%
RS

JYES..
JTIMEQUT??

1863 034650
1864 034652

000411
062704

BR
ADD

10%
#2 R4

;PROGRAM TIMEOUT
;ADVANCE STORAGE ADDRESS

1866 034660

001410

BEQ

001360
005305
001373

RMLA(RO) ,R2

JYES!.

1868 034666
1869 034670
1870 034672

CMP

118

BNE
DEC
BNE

7%
R5
9%

JYES.!
JTIMEOUT??
sNO

034674
18;; 034676

106352
000137

035032

EMT
JMP

352
16%

1874
1875 034702
1876 034706
1877 C34712

012702
012703
012704

003500
000036
103274

1862 034646

'865 034656
‘867 034662

1871

034674

1878 034716
3gg8 034724

881

1882 034726

1882 034732
1884 034736

1885 (34740

001370

005303

026002

032737
001404

012702

012703
012405

062705

1886 034744

020205

1888 034750
1889 034752
1890 034754

005005
020514
001406

1887 034746

1891

1892
1893
1894
1895

034756

034762
034766
034770
034772

;ggg 034774

1898
1899
1900
1901

034776
C35004
035006
035014

:gg% 035020

1904 035022

035022

1905 035026

1906 035032
1907

BNE

000002

8%:

000020

DEC

9%:

10%:

010000

;SET
11%:

001442

011437
104353
000414
005303

000647

012637

01637

908

BIT
BEQ

12%:

000100

#3700,R2

MOV

#32..R3

ADD

#4100, RS

MOV

BHIS

(LR
(Mp
BEQ

13%:
001140

18 BIT MGDE ?

14%:
010000

001442

010000
000041

001442

15757:

138

JNO!!

R5,$GDDAT

JEXPECTED VALUE

BIT
BNE
MOV
Mov

#FMT16,RMOFO
15%
4#FMT 16 ,RMOFO
#33.,R3

12%

{SP)+,ERRVEC

A A AR
AR

SCOPE
NOP

(SP)+ ,ERRVEC+2

mMov

JRECEIVED VALUE

MoV

sALL

SAMPLES (HECKED??

sNO - TEST NEXT SAMPLE

TEST DONE FOR 16 BIT mM0Dt
;BR IF YES
JSET 16 BIT MODE AND
JSET SAMPLE COUNT.

JTEST AGAIN

;.POP STACK INTO ERRVE(+?

;¢POP STACK

INTO ERRVEC

AN R AR R R AN A R PR RN AR

SEARCH ON CYLINDER

AN N R AN

;7ES - CHANGE EXPE(CTED
;1S NEXT SAMPLE CORRE(T??
JYES!,

(R4}, $BDDAT
353
15%
R3

16%:

2SHOULD NEXT BE 0 ?

MOV
EMT
BR
DEC

BNE

15%:

;GET A SAMPLE AND [NCREMENT

;FOR EXPECTED VALUE OF

RS
RS, (R4)
14%

MOV

001142

000594
0G40

;1S SAMPLE FOR
;BR IF YES

JR3 = NUMBER OF (OMPARES

R2 RS

SRTEST 57

035032
035032
035034

JRZ = MAXIMUM SAMPLE
JR3 = NUMBER OF (OMPARES
;R4 = BUFFER ADDRESS

;R2 = MAXIMUM SAMPLE

(R4)*+,RS

(MP

000004

JWAIT FOR (HANGE

#FMT16,RMOFO
1¢%

MOV

000040

000006

JALL SAMPLES TAKEN??

JSET 16 BIT SAMPLE PARAMETERS

003700

001360

032737
001006
012737
012703

JNO - TRY AGAIN

18 BIT SAMPLE PARAMETERS
MOV
#3500,R2
MOV
#30.,R3
MOV
#BUFFER R4

103001

010537

R AR AR AR R R A

R R AR R

F R AN

IR R EA NI VR ER RO R ES

N AR N IS

;SCOPE CALL
ISTART OF TEST

I PRSI EI AR RSN RO

ZQ“FBU RMOS/3/2 FCTINL

TST

SEARCH ON CYLINDER

035036
035042
035046
035052

012706
013700
013701

'3°C 035060

004737
054130

1909

035064

035066
035070
035072
035074
035100

1912 035100

3 635104

4
5
6
1917
1918

035112
135120
035126
035134
035140

1919 035144

1920 035150

035154

1922 035160

1923 035164
1924 035170
035174

035176
035200
035202

1925 035206
1927 035212

035216
035220
035222
€35224

1928 035230

1929 035230

035234
035236
035240
035242
035244

1930 035250

035250
035254
035256
035260
035262
035264

1932 035270

012737

MACRO v04.00

000057

MOV
MOV
Mov
MOV

001226

041650

JSR
+WORD

000404
000240
104000

000137

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

042710

000137

035510

004737
000405
000240
104000
004736
000137

043706

004737
000405
000240
104000
004736
000137
012737

05102¢4

104000

1%:

001444
001416
001442
001410

035510
043522

004737
000404
000240

2%:

3%:

BR
NOP
EMT
-MP
MOv
MOV
MOV
MOV
MOV
MOV
MOVB
MOVAR
MovBe
MOVB
Movs

JSR.
JSR
BR
OF
M1
JMP
JSR

JSR
BR
NOP
EMT
JMP
JSR

NOP
035510

035510

000031

L 12
11:4%:?8 PAGE 13 =71
SEQ 0154

001100
001276

0014664

4-APR-81

5%:

001410

6%:

Em7
JSR
JMP

JSR
BR
NOP

#STACKSP
,

JINITIALIZE STACK PCINTER

R
TSTQUE
#57 ,$TESTN

;(R1) = DEVICE BEING TESTED
;oSET TEST NUMBER IN APT MA[L

PC, TSTPRP

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

$BASE ,RO

05413

1%
138
#29.,83
#0,RMDCO
#0 .RMDAQ
#0.RMOFO

;RO

80X

JCLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE If VOLUME NOT VAL ID
*VERIFY PACK ACKNOWL E DGE

JRECALIBRATE IF "'SKI''
OR "PIP'’ [S SET
;VERIFY RLCALIBRAT]ION

;GO _TO 1$ IfF NO ERROR

JRETURN HERE

ERROR

sERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 138 IF ERROR

JR3 = MAXIMUM SECTOR ADDRESS

JCYLINDER - 0

JTRACK = 0O,

SFCTOR

;18 BIT FORMAT
#SE1EK
GO,RMCS10-;SEEK COMMAND
#PUTINX, R2
JSETUP REGISTER INDEX TASLE

ARMDA
, (R2) +
#RMDC
. (R2) +
HRM
. (R2)
OF
+

:FOR SEEK TO CYLINDER ¢

H#RMCST, (R2) +

#200, (R2) +

PC,GETSTS
PC.PUT

£13

;SETUP FOR STATUS FET(H

:GO WRITE REGISTER(S) WiTH PUT SUBROUTINE

;GO TO 28 IF NO ERROR
JRETURN HERE

13%
PC,TIMOUT
PC.GET

ERROR

JERROR # DEFINED BY PUT SUBROUTINE

;GO 10 13$ IF ERROR

;GO READ REGISTER(S) WITH GET SUBROUTINC

;GO TQ 4% IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROU! INE

13¢

;G0 TO 13% IF ERROR

PC.PRIERR

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

PC,a(SP)+

13%

PC,SEKSTS

JRETURN HERE

ERROR

;GO BACK_FOR MORE ERROR CHE(KS

;G0 TO 13% IF ERROR

;GO VERIFY RESULTS OF SEEK OPERATION
;GO TO 6% IF NO ERROR
JRETURN HERE [F ERROR
JERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK _FOR MORE ERROR CHE(KS
.GC TO 13% IF ERROR

PC,a(SP)+

#SEARCH.GO,RMCS10

13§

;ERROR # DEFINED BY PRIERR SUBROUTINE

EMT
JSR
MP

UNJBUS ADDRESS

JSTORE SEAR(CH (OMMAND

“JRMMBO RMOS/3/2 FCTINL

TS 7

TST

SEARCH ON CYL INDER

1933 035276
035302
035304
035306
035310

1634 035314
1935 035314
1936
1937 035320

035324
035326
035330
035332

1938 035336
1939 035336

035342
035344
035346
035350
35352

1940 035356

1941

035356

035362
035364
035366

035370
035372

"942 035376
1943 035376

035402
035404
035406
035410
035412
035414
035416

1944 035422
1945 035422

035426
035430
035432
35434
035436
9 035442

8 035446
8 035452
1 035454

2 035462

1953 035464
1954 035472

1955 035476
1956 035504
1957 035510

1958

1659

004737
000404
000240
104000
00137

035510

004737

043522

004737
000404
000240

042710

104000

004737

043706

004737
000405
000240

JSR

BR
NOP
EMT
7%

8%:

035510

9%:

056422

004736
000137

035510

004737

050400

000010
000405
000240
104000
104736
000137

10%:

EMT
JMP
JSR
BR
NOP
EMT
JSR
JMP
JSR

NOF
EMY
JSR
JMP

035510

005237
020337

001416
001416

032737
001012
012737
012703
012737
000137

010000

11%:

044540

12%:

001442
001442

001416
13%:

;g,PbT

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

JRETURN HERE

13%

pC, TiMdUT
PC,GET

ERROR

;ERROR # DEFINED BY PUT SUBROUT INE

;GO TO 13% IF ERROR

;WAIT

FOR SEARCH TO COMPLETE

;GO READ REGISTER(S) WITH CET SUBROUTINF
;G0 TO 8% IF NO ERROR

JRETURN HERE

ERROR

138 .

;ERROR # DEF INED BY GE”TM SUBROUT INE
;GO TO 138 IF ERROR

PC.PRIERR
9%

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

PC,a(SP)+

JERROR # DEFINED BY PRIERR SUBROUT INE
;GO0 BACK_FOR MORE ERROR (HECKS
;G0 TO 138 IF ERROR

138

PC,SCHSTS

10%

PC,a(SP)+

133

;RETURN HERE

IF ERROR

;GO VERIFY SEARCH OPERATION
;GO 7O 108 IF NO ERROR
JRETURN HERE 1" ERROR

JERROR # DEFINED BY SCHSTS SUBROUTINE
;GO BACK_FOR MORE ERROR CHEC(KS

;G0 TO 13% IF ERROK

PC,CMPERRSTS
NDTMSK
DPE

JSR
MP

PC,a(SP)+
13%

JSR
BR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

JSR

PC,a(SP)+

JRETURN HERE IF ERROR
;ERROR # DEF INED BY SECERR SUBROUTINE
;GO BACK_FOR MORE ERROR CHE(KS

INC
CMP
BHIS

R3,RMDAQO
6%

RMDAO

s INCREMENT SECTOR ADDRESS

BIT

#FMT16,RMOFO

;IS 16 BIT FORMAT DONE??

HFMT16,RMOFD
#31.,RS
#0,RMDAO

;SET 16 BIT FORMAT

NOP
FMT

010000
000037
000000
035126

M 12
11:43:/8 PAuE 13-72

JSR
.WORD
.WORD
BR
NOP

EMY

004737
000405
000240
104000
004736
000137

103306

JSR
JSR
BR

104000

115760

JMP

035510

004736
000137

4~APR-81

SEQ 0755

043160

000137
000405
000240
104000

MACRU V04.00

JMP

BNE
MOV
MOV
MOV
JMP

12%

13%

;(HECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
;MASK FOR RMER?
:GO TO 11$ IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINEL BY CMPERRSTS SUBROUTINE
2GO BACK_FOR MORE ERROR (HECKS

;GO TO 13% IF ERROR

;GO TO 12% IF NO ERROR

;GO TO 138 IF ERROR
:DSNE ALL
JNO. .
;BR

SECTORS??

YES

:R3 - MAXIMUM SECTOR ADDRESS
JSTART AT TRACK
(0, SECTOR

;GO TEST AGAIN

:.'I‘QQfil'l'.‘.tt"t**tt.ttttt‘tt'fl'tfi‘tlltt‘.ilttt"'tit!'t"t't"

IRYWB(0 RM(OS5/3/2 FCTINL TST 1
N
SEARCH OFF CYLINDER

MACRO v04.00

4-APR-B1

SEARCH OFF CYLINDER

:"'.tl."ttfi"l".tti.t'.’""Qit'tt.tt‘t't‘

035510
035510
035512
035514
035520
0355264
1960 035530

000240
012706
013700
013701
012737

001100
001276
001464
000060

1961

004737

041650

035542

713-73

SEQ 0156

;*TEST 60

035536

N 12

11:43:28 PAGE

TST60:

000004

054130

001226

l"'t"."..Qt“'t.lti

SCOPE

;SCOPE CALL

NOP
MOV
MOV
Qv
ov

#STACK,SP
$BASE RO
TSTQUE ,R1
#60,8TESTN

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

JSR

PC.TSTPRF

;PREPARE DEVICE

.WORD

054130

FOR

TEST

sTASK DESCRIPTOR AS FOLLOWS:
;CLEAR (ONTROLLER & SELECT DEVICE

JVERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE IF VOLUME NOT VALID

JVERIFY PACK ACKNOWLEDGE

LRECALIBRATE

035544
035546
035550
035552

1962 035556

963 035556

1964 035564

1965 035572

1966 035576

000404
000240
104000
000137

012737

012737
012704

012703

1967
1968
1969
1970

035602
035606
035614
035620

012705
012737
010537
012702

1972
1973
1974
1975
1976
1977

035630
035634
035640
035644
035650
035654

112722
112722
112722
112722
Q04737
004737

1971 035624

035660
035662

035664

112722

000404
000240

104000

!
036214

000000

000035

000633
000005
001444
001543

000034
000006
000000
000200
042624
043160

036214

1ggg 035672

004737

043522

1981

004737

042710

035702
035704
035706
0357210

000404
000240
104000
000137

1982 035714
1983 035714

004737

035722
035724
035726
035730

000240
104000
004736
0C0137

035720

000405

036214
043706

MoV
MOV

MOV

001410

2%:

000032

000137

035676

001442

000632

035666

1978 035672

001416

1%:

BR
NOP
EMT
JMP

MOV
Mov
MOV
MoV

o%:

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

14%

#0,RMDAO

#0 ,RMOF
O
R4

#410. ,R3

;GO TO 1$ IF NO ERROR
;RETURN HERE I[F ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 14% IF ERROR
:START WITH 18 BIT MO E

R4 = MAXIMUM SECTOR

;R3 - SEARCH CYLINDER

ADDRESS

#411. RS
#SEEK!GO,RMCS10
RS ,RMDLO
#PUTINX, R2

;RS - SEEK CYLINDER
;LOAD SEEK COMMAND
;LOAD CYLINDER ADDRESS
;R2 POINTS TO REGISTER TABLE

#RMDC, (R2)+
#RMDA, (R2) +
BRMCST, (R2)+
#200, (R2)+
PC,GETSTS
PC.,PUT

JFOR SEEK COMMAND

;SETUP FOR STATUS
;GO WRITE REGISTER(S) WITH PJT SUBROUTINE

14%

;G0 TO 14% IF ERROR

JSR

PC,TIMOUT

JWAIT FOR SEEK TO COMPLETE

JSR

PC.GET

;GO READ REGISTER(S)

MOVB

#29.

JVERIFY RECALIBRATION

MOVR
MOVB
MOVR
MOVR
JSR
JSR

BR
NOP
EMT
JMP

BR
NOP
EMT
JMp
JSR

B8R

NCP
EMT
JSR
JMp

#RMOF , (R2) +

§§

;SETUP REGISTER INDEX TABLE

;TERMINATE

TABLE

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

sERROR # DEFINED BY PUT SUBROUTINE
|

WITH GET

SUBROUT
INE

148

;GO TO 4% IF NO ERROR
;RETURN HERE IF ERROR
SJERROP # DEFINED BY GET SUBROUTINE
;GO TG 14% IF ERROR

P PRIERR

;GO CHECK FOR PRIMARY ERRORS

s§[

PL.R(SP)+

ATA 3

$GO TO 5% IF NO ERROR

:RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUSROJ'INF
;GO BACK FOR MORE FRROR “HE(KS
:GO TO 4% IF ERRCR

JRMMBC RMOS/3/2 FCTINL TST 1

€y

SEARCH OFF

'384 035734

*585 035734

035740
035742
035744
035746
035750

1986 035754

1987 035754
1988 035760

(YL INDER

004737

000405
000240
1046000
004736
000137

(36214

010337
012737

001444
000031

004737

035774
035776
036000

000240
104000
000137

036214

%33} 036004

004737

043522

1993 036010
36014

004737
000404

042710

036020
036022
1994 03602¢

104000
000137

036214

004737

043706

1990 036004

036016

1995 036026

036032

036034

036036
036040
036042
1996 036046

000404

043160

000405

1997 036046

004737

056422

036054
036056

000240
104000

1998 036066
1999 036066

036C72
036074
36076

036100

036102

0367104

036106
2000 036112
2001 036112

036116
036120
036122

036124
036126
2002 036132
2003 036132
2006 036134
2005 036136

001419

8%:

036214

004737

050400

10%:

004737

044540

004736
000137

036214

0014°6

11%;

PC,PUT

;GO WRITE REGISTER(S)

;GO TO 7% IF NO ERROR

WITH PUT

SUBROU® INE

<SR

PC,TIMOUT

;WAIT FOR SEARCH TQO COMPLETE

JSR
BR
NOP
EMT
JMP

PC,GET
8s

JSR

PC.PRIERR

14%

;GO READ REGISTER(S) WITH GET SUBROUT INE
. ;GO TO 8% IF NO ERROR
: RETURN HERE IF ERROR
= ;ERROR # DEFINED BY GET SUBROUTINE
%< :G0 TO 14% IF ERROR
£

%;G0 CHECK FOR PRIMARY ERRORS

w;G0 TO 9% IF NO ERROR

EMT
JSR
JMP

PC,R(SP)+
14$

a<ERROR # DEF INED BY PRIERR SUBROUTINE
»: GO BACK FOR MORE ERROR CHECKS
GO TO 14% IF ERROR

JSR

PC,SCHSTS

GO VCRIFY SEARCH OPERATION

10$

JSR
JMP

PC,a(SP)+
14%

JSR

PC.CMPERRSTS

2:;RETURN HERE IF ERROR

€60 TO 108 IF NO ERROR

ZRETURN HERE IF ERROR
TERROR # DEFIMED BY SCHSTS SUBROUT
INE

560 BACK FOR MORE ERROR CHECKS
¥GO TO 148 IF ERROR
~
“CHECK ANY ERRORS NOT MASKED

NDTMSK
DPE
11%

#MASK FOR RMER1
sMASK FOR RMER?
#G0 TO 118 IF NO ERROR

ISR

PC,RA(SP)+

0 BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

JSR
Jmp

PC,a(SP)+
74$

;GO BACK FOR MORE ERROR CHECKS
;GO TO 14% IF ERROR

DEC
INC
INC

R3
RS
RMDAQ

;DECREMENT SEARCH CYLINDER
; INCREMENT SEEK CYLINDER
; INCREMENT SECTOR ADDRESS

JMp

BR
NOP
EMT
J
1%

14%

EMT

036214

;GO TO 6% IF NO ERROR
;RETURN HERE ]F ERROR
;ERROR # DEFINED BY SEKSTS SUBROUT INE
;GO BACK FOR MORE ERROR CHE(KS
;GO TO 14% [F ERROR

;RETURN HERE [F ERROR
;ERROR # DEFINED BY PUT SUBROUT
INE
;GO TO 14% IF ERROR

NOP

000°37

005303
005205
005237

NOP
EMT
JMP

.WORD
.WORD
B8R

104000

000405
000240
104000

B8R

000240

004736

B8R

NOP
EMT

004736
000137
115760
000010
000405

R3,RMDCO
;LOAD CYLINDER ADDRESS
#SCARCH.GO,RMCS10
;LOAD SEARCH COMMAND

PC,a(SP)+
14%

H
z
:
%
3

SEEK OPERATION

MOV
MOV

9%
:

;GO VERIFY RESULTS OF

JSR

7%:

PC.SEKSTS ¥

BR
NOP
EMT
JSR
JMP

NOP

036214

036060
036067

JSR

6$:

SEQ 0157

000240

000405

3 B13

4-APR-81 11:43:¢B PLGE 13-74
<

000240

104000
004736
000137

036052

(51026

1989 035766

035772

MACRD v04.00

14%

12%

SEETURN HERE [F ERROR

"~RROR # DEFINED BY CMPERRSTS SUBROUTINE
#GO TO 148 F “ERROR

;GO CHECK FOR SECONDARY ERRORS

;GO TO 12% IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEF iNED BY SECERR SUBROUTINE

*6V

SEARCH OFF

2006 036142
2007 036146
2008
2009 036150
2010 036156
2071 036160
2012 036166
2013 036172
2016 036176
2015 036202
2016 036210
2017 336214
2018
2019

TST

CYLINDER

020437
103020

MACRO v04.00

11:43:28 PAGE

13-75§
SEG o7

001416
010000

001442

010000
000037
000632
000633
00000
035606

001442

001416

(MP
BMIS

R4 ,RMDAQ

BIT

#EMT16,RMOFO

BNE

13%:
14%:

MOV
MOV
MOV
MOV
MOV

JMP

13%

149
#FMT16 ,RMOFO
#31. R4
4410, ,R3

#61°, RS
#0,RMDAQ

sDONE ALL SECTORS??
;NO = DO NEXT SECTOR
;DONE 16 BIT MODE

;BR IF YES
SET 16 BIT FORMAT

}Rs

INVALID

YET

MAXIMUM SECTOR ADDRESS

SEARCH CYLINDER
;RS = SEEK (YL INDER
;START AT TRA(K = 0, SECTOR = O
;GO TEST AGAIN

""tt'tttt'i.'t*tt'l"fi't'ttf"l'fi'tttt'tt..tt

J*TEST

B2 2L

22222 XE

SECTOR

e ttfi*‘Qtt*ttl"tttt*""""!'Qt.tfi"ittttl'fi"ttt"'t"'tt"!t

'tt

036214
036214
036216
(36220
036224
036230
036234

012706
013700
013701
012737

0C1100
001276
001464
000067

2021 036242
036246

004737
054130

041650

<020

£-APR-81

nuan

“7RMMBU RMOS/3/2 FCINL

000004
000240

15761:

SCOPE
NOP
MoV
MOV
MOV
MOV

001226

JSR
.WGORD

4#STACK,
SP

$BASE RO

:SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

sRO = UNJBUS ADDRESS

TSTQUE.R1
#61,$TESTN

;(R1)

PC,TSTPRP

;PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE

054130

= DEVICE BEING

TESTED

;;SET TEST NUMBER IN APT MAIL BOX

sVERIFY CONTROLLER CLEAR OPERATION

sPACK

ACKNOWLEDGE

VOLUME

NOT

VALID

sVERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF "'SKI'* GR "PIP"" IS SET

036250
036252
036254
036256
2022 036262
2023 036262
2024 036270
20¢5 036276
2026 036304
2027 36312
2028 036316
2029 036322
2030 036326
2031 036332
2032 036336
2033 036342
2034 036346
2035 036346
036352
036354
036356
036360
2036 036364
2037 036364
€36370

000404
000240
104000
000137

036614

000000
000000
000036
000031
001543
000034
000032
000006
000000
000200
042624

052264

000137

036614

00473%7
000404

043167

001442
001444
001416
001410

1%:

2%:

3%:

BR
NOP
EMT
mp
MOV
MOV
MOV
MOV
MOv
MoV
MOVR
MOVR
MOVB
mMovR

JSR

JSR
BR
NOP

12%
#0 ,RMOFO
#0,RMDCO
#30. ,RMDAD

sVERIFY RECALIBRATION

;GO TO 18 IF NO ERROR
;RETURN HERE IF ERROR

JERROR # DEF INED BY TSTPRP SUBROUT INE

;GO TO 128 IF ERROR

;SET 18 BIT FORMAT
;CYLINDER = 0

JFIRST INVALID SECTOR - 30.
#SEARCH!GO,RMCS10
+ SEARCH (OMMAND
#PUTINX ,RZ
JWRITE REGISTER TABLE FOR
#RM
, (R2)+
D(
: COMMAND
ARM
, OF
(R2) +
#RM
, (R2)
DA
~
H#RMCST, (R2)+
#200, (R2)+
;TERMINATE TABLE
PC,GFTSTS
;SETUP STATUS FET(H
PC,CNTCLR

26O JSSUE CONTROLLER CLEAR

b33

;GO TO 3% IF NO ERROR

EMT
P

128

JERROR NUMBER DEF INED BY SUBRGUTMiINE
:GO TO 12% IF ERROR

JSR
AR

2 3

PC,PLT

JRETURN HERE

ERROR

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

“JRMMBO RMO5/3/72 FCTINL IST 1
e
SEARCH INVALID SECTOR

036372
036374
036376
2038 036402
3828 036602

000240
106000
000137

036614

004737

043522

2061 036406
036412
036414
036416

006737
000404
000240
106000

0462710

036420
2002 036424
2043 036424
036430
036432
036434
036436
036440
2044 036444
2045 C36444

036450

036452
036454
036456
036460
2046 036464
2047 036464
036470
036472
036474
036476
036500
2048 036504
2049 036504
036510
036512
036514
036516
036520
036522
036524
2050 €36530
2051 036530
036534
036536
036540
036542
036544
2052 036550

2053 036550

000137

036614

004737
000405
000240
104000
004736
000137

043706

036614

004737

056422

000405

000240
104000
004736
00137
004737
000405
000240
104000
004736
000137

044540

005237

001416

2057 036564
2058 036572
2059 036576
206C 036602

032737
001010
012737
012737

gggg 036562

101412

68
:

4~-APR=-B7

NOP
EM1
JMP
JSR

D13

11:43:/.8 PAGE

13-76

7%:

8s:

03661

036614

10$:

0014%6

000100

010000

001442

010000
000040

001442
001416

12%

.
PC, TIMOOT

:RETURN HERE IF ERROR
:ERROR # DEF INED BY PUT S BROUTINE
16O T0 128 [F ERROR
;WAIT FOR GO TO RESET

JSR
BR
NOP
EMT
JMP

PC,GET
5%

JSR
BR
NOP
EMT
JSR
¥

P(,PRIERR
6%

PC,R(SP)+
12%

;G0 CHECK FOR PRIMARY ERRORS
26N T0 68 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUT INE
1GO BACK FOR MORE ERROR CHECKS
:GC TO 128 IF ERROR

JSR

PC.SCHSTS

:GO VERIFY SEAKCH OPERATION

PC,R(SP)+
12%

‘RETURN HERE If ERROR
*ERROR # DEF INED BY SCHSTS SUBROUT
INE
1GO BACK FOR MORE ERROR CHECKS
:GO TO 128 IF ERROR

B8R

036614

004737
000405
000240
104000
004736
000137

023727

6$:

057766

050400

06,00

SEQ 0759

036614

004737
117760
000010
000405
000240
104000
004736
000137

2054 036554

MACRO

NOP
EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR
N

JSR
_WORD
“WORD
AR
NOP
EMT
_SR
JMP

128

PC,STCDRVSTS
8s

PL,a{(SP)+
12%
PC,CMPERRSTS
IAf .NDTMSK
DPE
9%
PC.a(SP)+
12%

;GO READ REGISTER(S) WITH GET SUBROUTINE
16O 1O 58 IF NO ERROR
:RETURN HERE IF ERROR
SERROR # DEF INED BY CET SUBROUTINE
GO TO 128 If ERROR

:GO TO 7$ IF NO ERROR

;GO CHECK FOR CHANGES IN DRIVE STATUS
16O TC 8% IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEF INED BY STCDRVSTS SUBROUT
INE
. GO BACK. FOR MORE ERROR (HECKS
16O TO 12% IF ERROR

:CHECK ANY ERRORS NOT MASKED
:MASK FOR RMER1
;MASK FOR RMER2
16O TO 9% IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEF INED BY CMPERRSTS SUBROUTINE
16O BACK FOR MORE ERROR CHECKS
160 TO 128 IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,a(SP)+
128

;GO CHECK FOR SECONDARY ERRORS
1GO TO 108 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEF INED BY SECERR SUBROUTINE
1GO BACK FOR MORE ERROR CHE(KS
16O TO 128 IF ERROR

INC

RMDAQ

; INCREMENT SECTOR ADDRESS

BLOS

11%

*BR IF NO

#FMT16 RMOFO
12%
HFMT16 RMOFO
#32. ,RMDAQ

;TEST FOR 16 BIT MODE YE'
‘BRIF YES
:SET 16 BIT MODE
JSET INVALID SECTCR - 3.

(MP

BIT
BNE
MOV
MOv

PC, SECERR
108

RMDAO , #64 .

*DONE YET ?

"IRMMBO RMOS/3/2 F(TNL IST 1%
Té1
SEARCH INVALID SECTOR

2061 036610
2062 036674
2063

000137

4~APR=81

MACRO v04.00

03634¢,

1'%:
12%:

2064

JMP

€ 13

11:43,/¢8 PAGF

13=77

JTEST NEXT

SECTOR

-'.'Q...tl.t.t"'.‘t".".'.QIQQ'Q'.'Q"‘."'.'Q!A

TRTEST 62
Q36414
036614

ll!t'."'....t'

INVALID

TRA(K

‘:t.t...'t.".'..‘l.l‘.t't‘t..'.".'.li-.i

036616
036620
036624
036630
036634

000004
000240
012706
013700
013701
012737

036642
036646

004737
054130

15162
001100

001276
001464
000062

.'...."'.'.ti""t.."

SCOPE
NOP
MOV

MOv
MOV

001226

041650

:SCOPE
#STACK,SP

;RO = UNJBUS ADDRESS

TSTQUE
R

R62,STESTN

JSR
. wORD

P{,TSTPRP

TEST

JINITIALIZE STACK POINTER

$BASE RO

MOv

CALL

;START OF

;(R1)

;o SET

DEVICE

BEING

;PREPARE DEVICE FOR TEST

054130

;TASK

DESCRIPTOR AS

‘e

036654

036656
20 67 036662
2068 036662
20 69 036670
20 70 036676
20 71 036704
20 7¢ 036710
20 73 036716
20 74 036722
20 78 036726
20 7
036732
20 7
036736
20 78 036742
20 79 036 746
0 80 036752

081

2O 8
08

0 84
20
20
2C

03675
€3675
036760
36762
764

036770
036770
036774

000404

104000

037224

012737
012737
013737

8b0031

001410

001332
001417
000000
001543
000006
000034
000032
000000

001416

00000

000200
042624
052264

000137

004737

000404

037224
0463160

000240
106000
000137

937224

004737

063522

004737

06270

000404
00624C

EM7
JMP

12%

NOP

000137

104000

'%:

MOV

0071444

MOV

001447

INCB
MOV

MOVR
MOVBR
MOVR
MOVB
MOVR

MOV

2%:

3%:

PC,CNTCLR

EMT

4%:

JWRITE

JTERMINATE

;GO ISSUE

INDEX

TARLE

TABLE

CONTROLLER CLEAR

;G0 TO 3% [F NO ERROR

12%

;ERROR NUMBER DEF INED BY ¢UBROUTINE
;GO TJ 12% IF ERROR

JRETURN HERE

PC.PUT
4%

JMP

178

JSR

PC,TIMOUT

JSR

PC, QBT

NOP

VAL ID

JLAST TRACK, SECTOR
O
;SETUP FIRST INVALID TRA(K
;SET 18 BIT FORMAT

AP
INX
UT
,R2
ARMDA, (R2)+
H#RMDC (R2)+
ARMOF
, (R2) +
HRM(
T, (R2)+
CS

JSR

NOP

NOT

;GO TO 12% IF ERROR

LSTRK ,RMCAQ
RMDAQ+1
#0 ,RMOFO

#200, (R2)+
PC.GETSTS

JSe
BR

vOLUME

#SEARCH.GO,FMCST10
: SEARCH (OMMAND
#0 ,RMD(CO
sCYLINDER - 0

JSR

NOP
EMT
JMP

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF "'SKI'*
OR 'PIP'" IS SET
JVERIFY RECALIBRATION
;GO TO 1% iF NO ERROR
JRETURN HERE [F ERROR
JERROR # DEF INED BY TSTPRF SUBROUTINE

*e.

000240

FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR CPERATION

;PACK ACKNOWLEDGE

036650
036652

TESTED

TEST NUMBER IN APT MAIL BOX

5¢

ERROR

;G0 WRITE REGISTER(S) WITH PUT
;GO TO 4% IF NO ERROR
‘
JRETURN HERE 1F ERROR

SUBRCUTINE

JERROR # DEFINED BY PUT SngOUTINE
;GO TO 12% IF ERROR
JWAIT

FOR GO TO RESET

;GO READ REGISTER(S) WITH GET SUBROUT
Nt
;00 0 5% IF NO ERROR
;RET_RN HERE

[f ERROR

JRWMEB
L, RMUS/R/2 FOTNL
e
SEARCH INVALID

637022
037026
20 88 537030
2139 037030
037034
037036
37040
137042
037044
290 037050
2091 037050

037054

0
0
0
096 Q
c09% 0

Q
0
0

NN NN AN N A AN W

QY2
FOQ!

037056
27060
37062
037064

104000

000137

004737

17 °
TRA(k

4-APR-81

004737

0%6422

104000

004736

037234

004737
000405
000240

057766

’$.

104000

004736
000137

037224

004737

050400

*17760
000010

Q00405

104000

004736
000137

2096
2097

098
2099
2100
2101 037166
2102

2103 03717
03717
037200

037206
037214
0372206\

004737
000405
000240
104000
004736
000137
105237
123727
101414

037224

0646540

PC,SCHSTS

JSR
IMP

PC,a(SP)+

“2%

;GO VERIFY SEARCH OPERAT]ON
;GO TO 7% IF NG ERROR
JRETURN HERE IfF ERROR
;ERROR # DEFINED BY SCHSTS SUBROUTINE
;GO BACK FOR MCRE ERRCR ?HECKS
;GO TO 128 If ERROR

JSR
BR
NOP
EMT
JSR
JMP

P.,STCDRVSTS

,GO CHECK FOR CHANGES IN DRIVE STATUS

JSR

PC,EMPERRSTS

00C2CO

010000

OP1442

810000

001442

1001332

001417
036752

;GO BACK FOR MORE ERROR CHECKS

;GO TO 128 !F ERROR

PC,a(5P)+
12%

;60 TO 8% IF NO ERROR
;RETURN HERE IF ERROR
;EQROR # DFFINED BY STCDRVSTS SUBROUT
INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 12% If ERROR
sCHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
;MASK FOR RMER?
;GO TO 9% IF NO ERROR
JRETURN HERE [F ERROR

JMP

PC,a(sP)+
12%

. GO BACK FOR MORE ERROR CHE(KS
;GO T0 12% IF ERROR

PC,SETERR

;GO (HECK FOR SE(ONDARY ERRORS
:GO 70 108 IF NO ERROR

JERROR # DEFINED BY (MPERRSTS

10%

JRETURN HERE

ERROR

PL,a(SP)+

;GO TO 12% If ERROR

INCA

RMDAQ+1

s INCREMENT

RMDAQ+1,#
28,
"
11%
#E
6MT
RMOF O

12%

MOV
MoV

REMT16,RMOFO

LSTRK _RMDAQ

INCB
JMP

SUBROUT INE

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

2SR
JMp

BIT
BNE

;ERROR # DEF INED BY PRIERR SUBROU
INE
T

8LOS

;RETURN HERE IF ERROR

MP8

00141¢

;GO TO 68 IF NO ERROR

NDR
EMI

001417
001417

;GO CHECK FOR PRIMARY ERRORS

NDTM.SK
] AE
DPE
9%

RMDAQ+1

;DONE ALL

.NO!

TRACK ADDRESS

TRACKS ?

;DONE 16 B]T MODE
JYES!]

JSET

JLAST

16 BIT

TRA(CK,

FORMA)

SECTOR

JSETUP FIRST INVALID "RACK ALDREZS

JTEST NEXT

TRACK

037224
';'PQ"....!'t".'.!"""i'..d..'.l"t.'!.."."".."tt't".'t'

YTEST 63
MR

24
I

¢
o

AR AR AL

T5Te3s

SEARCH
AR 2

SR
BR
NOP

037224

;GO TO 2% IF ERROR

NOP
EMT
JSR

SEQ 0161

;ERROR # DEF INED BY GLT SUBROUT INE

PC,a(SP)«

.WORD
-WORD

000240

PC.PRIERR
6%

EMT

000137

13-78

USR
B8R

NOP
EMT
SR

17%

JMP

043796

OS?Z?fl

11:43:28 PAGE

EMT

(3734

0004C5
000240
104000
004736
000137
000405
000240

MAZRD v06.00

INvA_] D
R

JYCINDER
N

)

[‘“”VEO RMTS/3/72 FCINL TST 1
MAIRC v04.0C
L-ADRbB“
"es
SEARCH INVALID "‘VLINDER
Y ,|'

03 ggfi 000004

08PR26

000240

Q3230
723

012706
013700

264

012737

2114 037252

004737

113

7240

013701

', 1037256
!

{

5130

00110C
001276

000063'

001226

NOP

001464, '

041657,

|
I
f

0372262

000240

037266
2115 1687272

000137

2116

2117

987272

037300

21 glo 7306

2119

1057314

04000

012737

000031

012737

000000

001470

000000

112722

2125 037346
2126
037350
2127/ 93735

115722
004737

000200
042624

| 2128037356

004737

052264 I

037364

(100240

037366

|5 937370

5h30 03787

80 543

112722
112722

032
000034

115722

800 00

Q00404

104000

000137

004737 043160

937402

90 240

srgy 37408

000137

3132 037412

Eparsr 043522

2136 027416

087422

000

1037430
2135037434

000137

037440

000405

104000

037624

J37644
U3744€

000260

104300
0G4 A3

''',
|

{ !

#PUTINX
, R2

#RMDA, (R2)p

MOVB
JSRTM

#200, (R2)+
PC,GETSTS

JSR

PC,INTCLR

STRACK

O, SECTOR = 0

;SET 18 BIT FORMAT

[WRITE REGISTER

INDEX TABLE

;SETUP STATUS FETCH

(GO ISSUE CONTROLLER (LEAR

38,

:GO_T0 3% IF NO

G0 T0 1% IF ERROR

128

( JAR NOR

Emfl

Lol

;)

:SEARCH COMMAND

;START AT FiRST INVALID CYLINDER

#RM(ST, (R2)+

EMT

70, RMDAQ

MOVB

| #SEARCH.GO,RMCST0

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

B8R

037624

IF ERROR

;G0 TO 128 [F ERROR

MOVR
MOV

|NOP

|
1

;RETURN HERc

:RETURN HERE

JsR

B8R

NOP

~EMT
R

ERROR

IF ERROR

;ERROR NUMBER DEF INEP BY SUBROUTINE

JSR | PO RJT

736 037434 004737 045706
037442

OPERAT.ON

:ERROR # DEF INED BY TSIPRP SUBROJTINE

#0 , RMOF O

Nop

(LEAR

:VERIFY RECAL IBRATION
260 TO 18 IF NO ERROR

MOy

CONTROLLER

VERIFY PACK ACKNOWLEDGE
RECAL IBRATE [F "'SKI'*'OR "PIP'’
IS <ET

| ! B23. RMDCO

EmT

0473?l 042710

000240

037426

000404

037424

:VERIFY

:PACK ACKNOWLEDGE IF VvOLUME NOT VAL D

12¢

MOVB

2%:

0376 4

& ¥

;TASK DESCRIPTOR AS FOI LOWS :
;CLEAR rONTROLLER € SELECT DEVICE

MOV

S(R1) = DEVICE BEING T€STED

:PREPARE DEVICE FOR TEST

mov

MOV

;

000006

037400 000404
7404

|BC,TSTPRP

MOV

001416

2123 037336

037362

ISR

JMP

001442

012702

2124 037342

;;SET TEST NUMBER IN APT MA](

TSTauf
A1

001444

2120037322

2121 037326
21$g 037332

#63, $TESTN

001467

012737

Moq,l

1$:

TEST

DINITIALIZE STA(K PGINTER
;RO - UNIBUS ADDRESS

EMT

012737

:STAWT OF

#STACK,SP
$BASE , RO

03762¢

;$LOPT (ALL

.WORD ' 054130

'3=7%

MOV
MOV

w0y

I
I
037260 000404

037064

SCOPE

613

11:43:¢8 PAGE

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
)

:60_TO 48 IF NO ERROR

:RETURN HERE IF ERROR

;ERROR # DEF INED gv PUT SUBRQOUTINE

(G0 Tu 128 IF ERROR

pt,TIMOU®

plLGeT
58

128
.

eC.PRIERR

EaR

;GO READ REGISTER(S) WITH GBT S_BRUUTINE

;go

0 58

IF NO ERRbg

‘RETURN HERE IF ERROR|

JERQOR #

DFFINED BY GET SUBRDUTINE

;G0 TO 128 If ERROR

;GO CHECK FOR EKIMARY ERAORS

;Gogro 68 I1F NO ERROR

.RETURN' HERE

¥ ERROR

SERROR # DEF
INED BY PRIERR SURBROUT
INE
1160 BACK FOR MORE ERROR (HE K%

WMME) M

Zeo

B DTN

TRT

AR 4N AL”)

REXING

C3745G

T X1

004737

o374g2

000240

G276l

037466

037470

104000

C04736

006737

05P766

037502

000240

000405

104000

2142 037514

05722

o1o

837 ?

0840

037530

104 og

7526

Q37532

{*43 83

11&

837552

00024

00473

000137

2146 037560
1

}49

37564

37572

G0 10 12% [F

ISR

;00 VERIFY SEARCH (QFERATION
;GO TO 7% IF NQ ERROR

;

005444
.

00 Q

216

012737

fpgs 037620

zisa 037624
biss [’| |

000137

037624
037424/ 1000004
03762

037630
,

oozad)

937632 191870

037640

4 087644

013701

001467

037356 |

!|
v
!
|

’]

108:

02000 |

é?o

012737‘ 000064

3 r£>és2 00473 o)*a4J
765¢

054730

00144

|
!

RETURN
HERE IF ERROR

12$b

()*)0

160 BACK

FOR MORE

Ac CMPERRS TS

;CHECK

:MASK FOR RMER?
;GO TO 9% IF NO ERROR

IAglNDTMJK

ANY ERRORS NOT MASKED

;MASK FOK RMER1

JRETURN HERE

IMP

;GO TO 12%

PL,alSP)+

BLT

RMDCO,

ERROR

SECONDARY

‘GO TO 128

]2%

ngagl

:DONE

ALL

iNO!

#EMT16, RMOFO

MOV

1827, i i

;SET

12%

|4 ERROR

CV¥LINDERS

16 BIT FORMAT

;START

AT'FIRST

‘

xNVAqu‘cyLINDER

fi&'fififlttiit*'tt \A RS

SRR

'rr"t't'tl‘fi

"'t"'J".""Ql't"t

MOV

M8J

Eg%g'%é BJT FORMAT

HEMT16,Rg

MG
QUTefe

ERRORS

INCRdMEMH YL INDER ADDRESS

#1024

BIT

SCOPE

Moy

JSR

-WORD

ISYA
CK S
saasf.RO

’{

PC TSTPRP

UE, R1

#6 5 ESTN

(54730

G0 7O1§s1? NO Eng F‘
8NN If ERROR
ERR
DEFINED BY SECERR SUBROUTINE
60 BACK EOR MORE ERROR CHECKS

108

INC

r
t
; t"t.tttt‘t't
T €4 1 1vo t"l't'*'t'tt
SEARCH "EoT
iiQtlttt’!tl

ERROR

;ERROR # DFF INED BY CMPERRSTS SUBRL

GO CHEC

JMP

Re~ 64

ERROR CHECKS

1GO T0 2% IF ERROR

PC,SECERR

Emfl

STATLS

“ERROR ¥ DEF INED By STCDRLSTE SUBRO TNt

JSR -

KhWR ¥R R

‘} [

;GO CHECK FOR CHANGES IN DRIVE
;GO T0 88 IF NO ERROR

128 K?

MOV

128

ERRCR

;G0 BACK FDR MORE ERROR CHECKS

BNE
1%

TO 128 [F

PC,a{9P!+

ERROR

JSR

CMp

moL
1700
00 464

JMP

9% :

2158 8gz 04 012737 81oodb 00 44{ |
g 12

8's

EMT

21501 b3757% os%##i‘ 01?¢Fp 001442
2151 037602

P.,STCDRVS'S

- WORD

001444

_SR

gG BA(K FOR MORE ERROR (HE(KS

?gig(sphr

JSR
Jhp

ERPOR

ERRQR & DEFINED BY SIHMSTC SWCED IS

. 5R

_MP

BR
NOP
|

:RETURN HERE

EMT

" WORD

"7:43:
.8 BALE '3 -85

NLIP

b37624
002412

)

037624

1049

oszsz

EMT

00042

023727

7 |

Ag:

{ 504737 044540

3759

3145 03756

JMP

05 fiOU

7546 oooa

37550

6%: |
;

937510 0001;7 os#e

03752

HAAPR=8Y

;

7506 004736,

a1 037514

245 Q87676

'8%750‘

056422

008%05

037624

osfsoo

!I 1

000137

TR (37474

Q00137 0 (3740
%

c138 337454

037460

v INDER

MAKRE

JSTART OF

TEST

:XNITIALIZE STACK §01~rsn

UNIBUS ADDRE
DEVICE BEING TESTED
:SET TEST NUMBER [N APT MA]_ BOX

{

;SCOPE CALL

JPREPARE

?’A”K

DEVICE

FOR

TEST

FSCRIPTICR AS fO*LOU"

‘L

{gnmneo d WS/50E N
%

BEARTH

T
\

cowl (L

GeAPRSRY

[ 13

13,

U143
08 PAGE

SEU

;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER (LEAR OPERAT]ON

;PACK

ACKNOWLEDGE

vOLUME

SVERIFY PACK ACKNOWLEDGE

odokod’

000240
104000

Ofp137

é?é?

27 7
737

’&49304
§01543

000024

'%:

e 814?4

1544

000404

000240
104000

000137

0127%7

165
2166

€7

2168
2169
A 040000
2171 040004
2172 040010
273 040014
2174 04007
2175 04002
oN76 040030

040034

04003
04010k

040042

2177 040046
2178 040046

012737
012737
012737
012737
C12702
112722
112722
112722

112722

112722
112722

004737
004737
000404
000240
104000

00 43

00444

2%:

001416
0014472
00141¢

000031

001543

040060

040062
040064
040070

> 040070
040074
040076
040100
040102
040104
2183 040110
2184 0401710
2'85 040116
2186 040120
187
040726

#200,PUT INX+1

;SET TERMINATOR BYTE
JSET RMMRT QUTPUT BUFFER - DMD

;G0 TO 2% IF NO ERROR

MCV

MOVB

000006

MOVR
MOVR
MOVR

D0V032

000000

MOVB

000200
042624
043169

04020y

004737

043503

0001737

040204

004737
000405
000240
104000

043706

004736
00013%7

040204

032737

10000

010000
001376

JMP
MOV
MOV
MOV

uav

000024

000137

000404
000240
104000

MOVB
MOVR
MOV

EMT

MOVR

JSR
JSR

NOP
M1

Hao 040052 004737 042710
40056

B8R
NOP

040204
0¢0000
000000
000000
000000

|
001376
001°4C
001142

:GO TO 8% IF ERROR

YSM
T, PUT
MR
INX

JSETUP PUT

#DMD ,RMMR1Q
PC,PUT

INDEX TABLE

;GO WRITE RMMRT VIA PUT SUBROUTINE

JRETURN HERE

ERROR

;ERROR DEFINED BY PUT SUBROUTINF

;G0 TO 8% IF ERROR

#0,RMMR10
20 ,RMDCO

JRESET DJAGNOSTIC MODE

SCYLINDER

#Q ,RMDAD
#C,RMOF

' INE

= 0

JTRACK = 0,

SECTOR

;18 BIT FORMAT

#SEARCH!GO,RM(S10
2P T INX ,R2
;LOAD

#RMMRT, (R2)+

. SEARCH COMMAND
INDEX TABLE

#RMDC, (R2)+
#RM
, (R2)
DA
+
#RM
, (R2)+
OF
ARMICST,(R2)+

#g 0,(R2)+

PeIGETSTS
p{.PUT

;GO WRITE

:Gg TO 3% IF NO ERROR

:RETURN HERE

WITH PUT

SUNRROLTM ING

ERROR

ERROR # DEFINED BY PUT SUBROUJTINE

;GO TO 8% IF ERROR

JMP

§$

JSR

PC.
T IMoOUT

;WAIT

PC,GET

;GO READ REGISTER(S) WITH GET Sgenou'xwf

JSR

;GO TO 1$ IF NO ERROR
;RETURN HERE JF ERROR
*ERROR # DEFINED BY TSTPRP SUBRL

e
JSR

/A IT

SRECALIBRATE IF ''SK["
OR "PIP"* [S SET
SVERIFY RECAL IBRAT]ON

NO?

NOP
EmM7
JMP

JSR

Pg,PRIERR

NOP
EMT
JSK
JMP

BIT
BNE,

MOv
M0V

;GO

FOR

TO 4%

TO RFSETY

NO ERROR

;RETURN MERE IF ERROR

;ERROR # DEFINED BY GET

;GO TO 8% IF ERROR

(

SURROUTINE

;GO CHECK FOR PRIMARY FRRORS

;GO TQ)

S$ IF NO ERROR

(

JRETURN HERE IF ERROR
:ERROR # DEF INED BY Phé RR SUBROUT
INt

PC,a(SP)+

;50 BACK FOR MORE ERROR

;GO TO 8% IF ERROR

nxvc.nnean}
68

#1v(,$GDDA

;DID IvC SET??

JYES!!

JEXPECTED STATUS

RMER
, $BDDAT
Z]
|

SRECEIVED

STATUS

|CHE(KS

RMOS5/3/2 FCINL TST
Iv( SEAR(CH TEST

Jry

040134
0460142
040144
040144
040150
040152
040154
0460156
040160
Q40162
040164
192 040170
193 040170
0460174
040176
040200
040282
2194 0460204

042737
104260

004737

115760
010010
000405

167777

MACRDO v04.00

00114¢

6%:

050400

000240
104000

004736
000137
00473/
000403
000240

11:43:28 PAGE

13-82
SE0 0165

046204

’%:

044540

BIC
EmM7?

#°C1vC,88DDAT

JSR
.WORD
. WORD
BR
NOP
EMT
JSR
JMP

PC,CMPERRSTS
NDTMSK

JSR

BR
NOP
EMT

104000

904736

8%:

2195
219¢

260

IvC!DPE
7%

PC,a{SP)+

sCHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
sMASK FOR RMERZ
;GO TO 7% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSIS SUBROUT
JNE

;60 BACK FOR MORE ERROR (Y4E(KS
;GO TO 8% I[F ERROR

P{,SECERR

;GO0 CHECK FOR SECONDARY £RRORS

;GO TO 8% IF NO ERROR
JRETURN HERE [F ERROR

PC,a(SP)+

JERROR # DEFINED BY SECERR SUBROUTINE

;GO BACK FOR MORE ERROR CHE(KS

CCRANANRNANRANARCARNARN '.I'.'l"'t't‘.‘lt.t.'t

T*TEST 65

t"'tt.'!"ttt."t'fi"p

ABORT

TEST

;;‘.t.t"'tl.t'ittt'fit""'."tt.'t‘.'fil't'ttl.'t't'tt.'t.."'t.'

040204
040204
040206
040210
040214
040220
040224

000004
000240
012706
013700
013701
012737

2198 040232
040236

004737
054130

2'97

&=APR=81

TST65:

001100
001276
001464
000065

SCOPE
NOP
MOV
MOV
MOV
MOV

001226

041650

JSR
.WORD

;S(OPE CALL

#STACK,SP

sSTART OF

TEST

$BASE RO

JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

#65,$TESTN

;;SET TEST NUMBER IN APT MA]L BOX

TSTQUE R

PC,TSTPRP

054130

;(RY)

- DEVICE BEING TESTED

;PREPARE

DEVICE

FOR

TEST

;TASK DESCRIPTOR AS FOLLOWS:

;CLEAR (ONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME

NOT

VALID

sVERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF "'SKI'* OR “PIP'" IS SET
040240

000404
000240
104000
000137

0460242
040244
040246
2199 040252
2200 040252
012737
2201 040260 012737
2202 040266
012737
2203 040274
2204 060302
2205 040306
2206 040312
2207 040316
2208 040322
2209 040326
2219 040332
221 040336
040342
060364 000240

NOP

EMY

040550
040009
000031
00000C
000000
001543
000034
000006
000014
000600
000200
042624

043160

001424
001410
001444
00141¢

1¢:

JMp

MOV
Mov
Mov
MOV
MOV
MOVB
MOvB
MOvVB
MOVB
MOVR

JSR
JSR

;VERIFY RECALIBRATION

;GO 7O 1% IF NO ERROR

JRETURN HERE IF ERROR
SERRQR # DEFINED BY TSTPRP SUBROUTINE

GO TO 9% IF ERROR

#UNS ,RMER10

. SET UNSAFE ERROR

#0,”RMD{0
#0 ,RMDAC
APUTIN
RS
X

JCYLINDER Q

#SEARCH!GO,RM(CS10

#RMDC, (R2)+

; SEARCH COMMAND

;SECTOR = 0, TRACK = 0
JWRITE REGISTER INDEX TABLE

#RMDA, (R2) +

#RMER1, (R2) +

RM(ST, (R2)+

200:(R2)‘

PC,GETSTS
PC,PUT

s TERMINATE

TAB%E

:SETUP FOR STATUS

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 2% IF NO ERROR

;RETURN HERE

ERROR

JEMMBL RMOS/5/2 FCTNL TST 1

"rg

ABCRT SEARCH TEST

040346 106000

040350
2212 040354

(4055

22°3 040354

006737

042710

040362
040364
040366
2214 060372

000240
104000
000137

040550

032757

020000

2215 040372

2216 060400

000404

001412

)

000137

060360

ahr
2:

2219 040416
2220 060426
2221 040426

013737

042737
104261

001346
157777

2202 040426

004737 043522

2224 040432
040436
060440

004737
000404
000240

042710

040446
2225 040450
2226 040450

000137

040550

004737

043706

0460442

040454
040456
040460

040462

040464
2227 040470
2228 040470
040474
040476
040500
040502
040504
2229 040510

2230 040510

104000

000405
000240
104000

004736

000137

040550

004737
000405
000240
104000
004736
000137

Q57766

004737

050400

040514
040516
040520

155760
000010
000405

040524
040526
040530
2237 040534
2032 040534
040540
060542
04054
040546

104000
004736
000137

040522

;;;z 046559
234
?255

040550

001346

JSR

PC.GET

:G0 READ REGISTER(S) WITH GET SUBROUT
INE

‘RETURN HERE IF ERROR
*ERROR # DEF INED BY GET SUBROUT INE
GO TO 9% IF ERROR

#P P ,RMDS ]

;18 PIP §ET727

BIT

BEQ

001142

M &

001140

It
EMT

48:

044540

RMDST , SBDHA

#~CPIP, $BDDAT
261

*ND.!

YEXPECTED STATLS

‘RECEIVED STATUS

;GO RFAD REGISTER(S) WITH GET SUBROUTINE
‘G0 TO 58 IF NO ERROR
‘RETURN HERE If ERROR

JMP

JSR

PC,PRIERR

JSR

PC.atsP)+

JSR
BR
NOP
EMT
JSR
IMP

PC,STCDRVSTS
7%

WORD
"WORD
BR

EMT
JSR
IMP

JSR
BR
NOR
EMT
JSR

40, $GDDAT

PC.GET
5¢

JSR

8%
:

JSR
BR
NOP

JMP

7%:

*GO TO 38 IF NO ERROR

WAIT FOK GO T RFSET

NOP

040550

98 IF FRROR

PC. YIS

BR
NOP
EMT
6%:

GO TO

LSR

EMT

000240

004737
000403
000240
104000
004736

oP
MT
JMP

;ERROR # DEFINED BY PUT SUBROUT
INE

JMP

2217 060402 012737 000000 001140
2218 040410

MAERO V.00 4-AP7T§T 11:43:28 PAGE 1§+83

JERROR # DEFINED BY GET SUBROUTINE
‘GO TO 9% IF ERROR

;GO CHECK FOR PRIMARY ERRORS

160 T0 6% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEF INED BY PRIERR SUBROUT INE

GO BACK FOR MORE ERROR CHECKS
‘GO TO 98 IF ERROR

PC,a(5P)+
o8

;GO CHECK FOR CHANGES IN DRIVE STATUS
GO TO 7$ IF NO ERROR
‘RETURN HERE IF ERROR
*ERROR # DEFINED BY STCDRVSTS SUBROUTINE
GO BACK FOR MORE ERROR CHELKS
“GO TO 9% IF ERROR

PC,CMPERRSTS

:CHECK ANY ERRORS NOT MASKED

NDTMSK
. UNS
DPE
8s
PC.R(SP)+
9%

PC,SECERR
9¢
PC.A(SP)+

:MASK FOR RMERT
:MASK FOR RMER?
‘GO TO 8% IF NO ERROR

"RETURN HERE

ERROR

JERROR # DEFINED BY CMPERRSTS SUBROUTINE
"GO BACK FOR MORE ERRCR CHECKS
G0 T0 9% IF ERROR

;GO CHECK FOR SECONDARY ERRORS
GO TO 98 IF NO ERROR
'RETURN HERE IF ERROR
JERROR # DEFINED BY
SECERR SJUBROUTINE
"GO BACK FOk MORE ERROR CHECKS

. '"'fi""t'.lfi.fit'l‘"""l.t.“"h‘lli‘i"Ol'tifi‘t"’..'t.'fi""

TRlTEST 6
.

SEARCH AT OFFSET

"t‘1'l*lltl'ttt"'.'t""l"t‘i'.'.t'!l‘fll'!'QU!I‘Q‘*Q‘-'!Q

"Q'.'

’

SEQ 0166

N
(YI[GWBO RMOS/372 FOINL TST 1
e

SEARCH AT

040550

MACRO v04.00

OFFSET

Q-A}YR-B‘I

L 13

11:43:¢8 PAGE 13-8¢

[

1STéo:

000004

040554

012706

001100

MOV

#STACK,SP

060564
040570

013707
012737

001464
00006H

MOV
MOV

TSTQUE ,R1
#66,$TESTN

040602

054130

040560

000240

013700

I
SEQ Q16/

040550

060552

[

001276

29<9 0460576 004737 041650

SCOPE

NOP

MOV

001226

JSR

JWORD

;SCOPE CALL

$BASE , RO

PC, TSTPRP
054130

;START OF

TEST

;INITIALIZE STACK POINTER

‘R0 = UNIBUS ADDRESS

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

, PREPARE ostcg FOR TEST

;TASK DESCRIPTDR AS FOLLOWS:

*CLEAR CONTROLLER & SELECT DEVICE
*VERIFY CONTROLLER CLEAR QPERATION

*PACK ACKNOWLEDGE IF
VOL'JME NOT VAL ID
‘VERIFY PACK
ACKNOWLEDGE

*RECALIBRATE

040604

000404

B8R

040606

000240

040612

000137

041106

§239 40 %6
240 060624
2241 040632

o127§g
0127
012737

000000
000000
010000

040610

2238

DL0&16

104000

NOP

2242 060640
2243 0460646

012737
012702

000015
001543

2245 040656

112722

00003

2264 040652

2246 060662
22467 040666

112722

004737

042624

048522

2254 oamggg
2255 040

112737
112737

000000
000200

004737

043160

2250 040714

2252 040720
2253 040724

2256 040740

2257 040746
040752

040754

040756

040760

2258 040764
4523 040764
<

2261 040770
040774
040776
041000

041002
2262 041006

012787

000404

H#RMDA, (R2) +

;FOR SEEK TO CYLINDER O

#OFFSET!GO,RMCS1C
:OFFSET COMMAND
#Pur1~x,§2
;SETUP REGISTER INDEX TABLE

MOVR

#RMDC, (R2) +

000031

2%:

001543
001544

001410

004737

043522

(04737
000404

042710
,

000137

0417fi6

pr WRITE REGISTER(S) WITH PUT SUBROUTINE
46Q

TO 2% IF NO ERROR

JRETURN HERE IfF ERROR
;ERROR 4

EINED

Y PUT SUBRDUTINE

JSR

PC,GETSTS

;SETUP FOR srArds FETCH

MOV
MOV

H#RMCS1,PUTINX
#200,PUT INX+1

;LOAD REGISTER INDEX TABLE

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

JSR

EMT

5%:

4%:

HRM(KT, (R2)+

JMP

NOP

041106

ERRO

MOV
MOV

NO.

000137

000240
104000

JCYLINDER = 0
;TRACK = 0, SECTOR = 0
;16 BIT FORMAT

MOVR

00024

10400

#0,RMDCO
#0 . RMDAD
HFMT16,RMOFO

#200, (R2) +
PCl pr

2251 040714

ERROR

MoV
MoV
MOV

;GO TO 98 |F

MOVB
JSR

041106

IF [NO ERROR

0002
043160

000137

OR 'PIP'*
IS SET

*ERROR # DEFINED gq TSTPRP $UBROUT INE

#RMOF
, (R2)+

040710

104000

;GO TO 1%

;RETURN HERE'IF

MOVR

000240

‘'SK1'°

JMP

MOVR

0000

C407046

040706

001410

00003

112722
004727
000404

001444
001416
001442

1%:

000006

2248 040672
2249 040676
040702

EMT

:VERIFY gqu IBRATION

{

PC.TIMOUT

360 T0 B11F

#SEARCH.GO,RMCS10

ERROR

:STORE SEARCH COMMAND

;GO T0 4% IF NO ERRO

‘RETURN HERE IF ERRO

;ERROR # DEFINED BY PYT SUBROUTINE

Jmp

JSR

PC.TIMOUT

;WAIT FOR SEARGH TD COMPLETE

JSR
BR
OB
£m

Pg,esr
g

:G0 READ REGISTER(S) WITH GET SUBROUT INE
.60, T0 58 IF NO ERROR
{RETURN RERE If ERR
“ERROR # DEF INED BY GET SUBROUT
INE

Jmp

;G0 TO 9% IF ERROR

;@o TO 9% IF ERROR

{ZRMMBO RMOS/3/2 FCINL IST
T66
SEARCH AT OFFSET

2263 041006
041012
041014

041016
041020
041022
2264 041026
2265 041026
041032
041034
041036
041040
041042
2266 041046
(267 041046
041052
041054

041056
041060
041062
041064
041066
2268 041072
2269 041072
041076
041100
041102
041104
227¢ 041106
227"

MACRO v04.00

4—-APR=8B1

JSR

87 063706

0047
ogéagé
000240

NOP
EMT

1046000

004736
000137

061106

004737

056428

000405
000240

004737

350400

004737
00403
000240
104000
004736

041706

JMP

044540

:GO TO 7% IF NO ERROR

;RETURN HERE

;GO TO 9% IF ERROR

PC.a(SP)+

;

fiRaR CHECKS

CHEQK ANY ERRORS NOT MASKED

:MASK FOR RMER1
:MASK FOR RMEZZ
;GO TO 8% IF
ERROR

;RETURN HERE

;G0

ERROR

;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;GU BACK FOR MORE ERROR CHECKS

PC,a(SP)+
9%

JSR

ERROR

;GO BACK FOR MORE

NDTMSK
DPg
8%

PC,SECERR
9%

:ERROR # DEF INED Bg SCHSTS SUBROUT
INE

JSR
BR
NOP

EMT

;GC VERIFY SEARCH OPERATION

pc.cHPERRSTs

EMT
JSR

;GO T0 9% IF ERROR

JSR

AOP

104000

6% If NO ERROR

GO BACK FOR MORE ERROR CHECKS

9g,a<sp>+

.WORD
.WORD
BR

000240

;GO TO

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROU
INE
T

JSR

JMP

000010
000405

004736
000137

PC,SCHITS

EMT

041106

115760

JSR

~EQ 0168

;GO CHECK FOR PRIMAR/ ERRORS

j gc,a<sp>*

NOP

004736
000137

bLtbRIERR

JSR

JMP

104000

M3
11:43:28 PAG £ 13-85

TO 9%

;GO CHECK
FOR SECONDARY ERRORS
;GO TQ 9%
IF NO ERROR
;RETURN| HERF IF ERROR

;ERROR # DEFINED BY SECERR SUBROUTI'IF
;G0 BACK FOR MORE ERROR CHECKS

PIRRNEER tttttat*fltt4i#2&t*tttt*kktthtrpLT*#tt*tttttt***ttrttttwt

2279

+TEST 6

HEAD AL IGNMENT SEEK

- x

:*HEAD ALIGNMENT FOR AN RMOS5/3/2 DRIVE, 1S PERFORMED AT CYLINDER
:+24h

:«THE

DECIMAL USING THE CE PACK. A 60 MINUTE WARMUP 1S REQUIRED IF

PACK WAS'NOT

T+

DRIVE

PRIOR

TQ |HEAD ALIGNMENT

OPERATION.

W2
SO0
BOMNONNIOONO

B
N

2280
2281
2282

LN SR

——

e TS Y

COoOo
PRl

D oy

:"tttt***t*t’tttt*t*tfitttittt*q*ttwflfitttt**ttt**t*ttttttttt*tttttt

000004
000240
012706
013700
013701
012737
012737

004737
054130

18767:

db1100 '
001276
001464
000001
000067

041650

SCO f

Ngfi

MOV
MOV
MOV

1206

b 1226

1%:

;

#STACK, SP

SCOPE CALL

iSTART OF

TEST

JINITIALIZE STACK POINTER

MOV

$BASE ,RO
TSTQUE ,R1
#1,8TIMES

#67 ,$TESTN

;RO - UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED
;:DO 1 ITERATION

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

.WORD

054130

;:SET TEST NUMBER IN APT MA. BOX

;TASK DESCRIPTOR AS FOLLOWS:
»CLEAR CONTROLLER & SELECT DEVICE

JVERIFY CONTROLLER CLEAR OPLRATION

;PACK ACKNOWLEDGE

VOLUME

;VERIFY PACK ACKNOWLEDGE

041150

NOT

VALID

JRECALIBRATE [F ''SKI''
OR "PIP'* IS
;VERIFY RECALIBRATION
;GO TO 2% IF NO ERROR

IRMMB0O RMOS5/3/2 FCTNL

e’

TST

HEAD AL JGNMENT SEEK

MATRC v04.0C

061152 . 000240

041154| 104000

.
061156
2283 041162

2286 041162

000137

012737

000365

000000
000005
001543
000034
000006
020000

2292 061230
041234
041236
0412640

004737
000404
000240
104000

043160

)

061242

2 92 0461246

ooo1§7

004737

041374

042624

004737

043522

2296 041256

004737

042710

(00404

41564

000240

_0s127

) 00137

4126

2297 04127

2298 041274

041300

041302

041304
041306

04000

41340
041342

041364
041346

041350

041352
'
QZ}%Zfi
0L
¢
Ve

041374
L

JSR
BR
NOP
EMT

041374

4737 &51024

004

000137

004737

115760
000010

13-86

[

04374

050400

061360

004737

24134
4366

000403
Q00040

044540

SR
R

0w TS

;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
JWAIT FOR SEEK

"0 COMPLETE

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 4% IF

NO ERROR

“RETURN HERE IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE

60 TO 88 IF ERROR

;60 CHECK FOR PRIMARY ERRORS

PL,A(SP)+

JSR

PC,SEKSTS

JMP

JSR

;RETURN|HERE [F ERROR

;GO TO 8% IF ERROR

;GO TO 6% IF NO CRROR
;RETURN HERE IF ERROR

;GO VERIFY RESULTS OF SEEK OPERATION

JERROR # DEFINED BY SEKSTS SURROUTINE

PC,R(SP)+

.GO BAGK FOR MORE ERROR CHECKS

PC, CMPERRSTS

;CHECK ANY ERRORS NOT MASKED

NDTMSK
DPE
7%

;GO TO'8% IF ERROR

:MASK FOR RMER1
IMASK FOR RMERZ

;60 TQ 7% IF NO ERROR
;RETURN HERE IF
ERROR

:ERROR # DEFINED BY CMPERRSTS SUBROUT
INE

SR
JMP

PC,R(SP)+
8%

;GO BACK FOR MORE ERROR CHECKS
;GO TO 8% IF ERROR

ISR

PC,SECERK

;GO

EMT

;WRITE TERMINATOR

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

B8R
NOP

106000

245,

JTRACK
0, SECTOR - 0
;LOAD SEEK COMMAND IN BUFFER
;R2 POINTS TC REGISTER TABLE
;WRITE REGISTER INDEX TABLE

EMT
JSR

EMT

ERROR

;60 TO 5% IF NO ERROR

8R
NOP

(41374

PC,GET

.WORD
.WORD

104000

AC,GETSTS

P(,PRIERR

EMT

000405
000240

PC,PUT
3%

JSR

#200, (RR)+

JMP

£$-

JCYLINDER

B8R
NOP

#4245, ,RMDCO

#0,RMDAQ
#SEEK !GO,RMCS10
#PUT INX,R2
#RMDC , (R2) +
#RYDA, (R2) +
ARMCST, (R2) +

PC, TIMOUT

;GO 10 8%

JSR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

4%:

;RETURN HERE IF ERROR

uMP

JSR

NOP

004736
000137

WARTG

MOVB

1020
004736

041324 1049’

L0 061334

MOV
MOV
MOV
MOVR
MOVR
MOVR

0002 8

0040
0024

oy Ja1330

MoV

0&1329
0&13;

201416
001410

mof

647 7 0 $7b6

000137

041326

001444

2%;

000405

o 82};22

3cfib 041314

JMP

000200

S gs 061252

61262

EMT

041376

012737
012737
012702
112722
112722
112722

112722

N 13

17:43%:/B PAGE

\NOP

2285 041170
2286 041176
2287 041204
2288 041210
2289 041214
2290 041220

2291 0641224

A-APR-81

LSR

P(,a.5P

CHECK

FOR

SECONDARY

;GO TO 8% IF NO ERROR
;RETURN HFRE IF ERROR

ERRORS

;ERRUR # DEFINED BY SE(ERR SUBROUTINE

;GO BACK FOQR MORE ERROR ‘HE(K%

AMCS5/7%3/72 FOINL "ST
°
LUB-PASS ROUT INE

MAIRD v04.00

B 14
'1:43:/8 PAGE 4

END OF

SUB-PASS ROUTINE

YO A S’

.SBTTL
JTHIS

THE

:TERMINATE

END OF

SUB-PASS ROUTINE.

THE OPERATION Of

THE

THIS ROUTINE

;S USED

CURRENT DEViCE UNDER TEST AND

SSELECT THE NEXT DEVICE FOR TEST.

THERE ARE NG MORE DEVICES

21O TEST, EXIT IS MACE TO 'SEOP' ROUTINE. OTHERWISE, RETURN
;IS MADE TO °*READY' ROUTINE.

41374
61376
41400
414604

OO plolelelelale)

QOO NI NS W= OOVM

N
o b2l
ed b ted et —d

4~APR=-81

4161C
41614
061416

41420
414626

000004
000240
013700
062720
010037
005710
001402
000137
012737

$EOSP:

001464
000002
001464

0076460
001466

SSgPE
N
MoV

#2,R0
RO, TSTQUE

8FQ

TST

001464

;GET POINTER

sANY MORE

;BR IF

READY
JYES,
#TSTQUE +2, TSTQUE

sTEST

.SBTTL

END OF

TO TSTQUE

;JADJUST POINTER TO NEXT DEVICE
;SAVE POINTER TO TSTQUE

(RO)

JMP
MOV

1%:

TSTQUE ,RO

ADD
MoV

DEVICES FOR

TEST

JUMP TO 'READY' ROUTINE
JINITIALIZE POINTER TO FIRST

QUE

TABLE

DEVICE

PASS ROUTINE

.'-"tti.'l’"'.l"tl".fit"'fi"‘"t'tl‘.'."l’ll’.t.."t.tQ.'tli't

.tt'!'

; *INCREMENT THE PASS NUMBER ($PASS)
s*TYPE "END PASS #XXXXX TOTAL NUMBER OF
;*WHERE

;+]F
;*IF

041432
041432
04614634
041440
041444
041450
041456
061460
041462
041464
0461466
041470
0461472
Ca1476

041516
041516
041522
041524
041530
041532
041536
041602

041602

041606
C41610

000240
005037

005037

005237

042737

00327
000001
003066
012737
000001
041460
104401

000407

013746
104405

005737
001431
104401

000421

013746
104405

005937

100000

041500

001230

BGT
MOV
SENDCT: .WORD
$EOPCT
1YPE
BR
6£6%:

:é&?S:

.65%
648

;o TYPE ASCIZ STRING
..GET OVER THE ASCIZ

$ERTTL

$ERTTL ,~(SP)

;:DON'T ALLOW A NEG.
::LooP?

YYyvvy''

NUMBER

COUNTER

<12><15>/END PASS #/

MOV
TYPDS

LAST REPORT

;s YES
;sRESTORE

$GT42P
,67%
66%

(LR

SINCE

$DOAGN
(PC)+,0(PC)+
1

#100000, $PASS
(PC)+
1

BEQ
TYPE
8R

LASCIZ

ERRORS
NUMBERS

;s ZERO THE T&ST NUMBER
.;ZERQC THE NUMBER OF ITERATIONS
;o INCREMENT THE PASS NUMBER

TYPDS

6%:

DECIMAL

STSTNM
$TIMES
$PASS

$PASS,~(SP)

1ST

041540

001126

JASCIZ

MOV

001126

NOP
(LR
(iR
INC

BIC
DEC
$EOPCT: .WORD

:ig5$:

001230

YYYYY ARE

THERES A MONITOR GO 1O |7
THERE ISN'T JUMP TO READY

$EOP:

001116
001206
001230

XXXXX AND

;. SAVE

SPASS

FOR

TYPEQUT

;:; TYPE PASS NUMBER

;G0

;.SEE

TYPE--DECIMAL

ANY ERRORS

ASCII

WITH SIGN

THIS PASS

;:BR IF NO ERRORS TO REPORT
;2 TYPE ASCIZ STRING
c:GET OVER THE ASCIZ

TOTAL ERRORS SINCE LAST REPORT /

SERTTL

;:SAVE SERTTL FOR TYPEOQUT

. TOTAL NUMBER OF ERROFS
;.60 TYPE=--DECIMAL ASCI] WITH SIGN

;JCLEAR ERROR TOTAL

JRMMBO RMOS/3/2 FCINL
END OF PASS ROUTINE

061614
041620

Q41624

041626
0461630
061632
041634
041636
041640
041640
041642
041644

104401
013700

001405
000005
004710
000240
000240
000240
000137
007660
377

TST

MARO v04.00

4-APR=-81

C 14

17':43:¢8 PAGE

14~

SEQ 017

001217
000042

377

$GT42P: TYPE
$GET142: MOV
BEQ

000

RESET
$ENDAD: JSR
NOP
NOP
NOP
$DOAGN:
JMP
$RTNAD: .WORD
S$ENLLL: .BYTE
LEVEN

SCRLF

a2, RO
$DOAGN
PC, (RO)

;:TYPE

CARRIAGE

RETURN,

J:GET MON]TOR ADDRESS

s sBRANCH 1F NO MONJTOR

;;CLEAR THE WORLD
2260 TO MONITOR

.2 SAVE
;2FOR

ROOM

JJACT1

a(>(0)«

: sRETURN

-1,-1,

J:NULL

READY
-

(HARACTER STRING

[ INF

FEED

¢ 4 R MMBO RMOS/3/2 FCTNL

1 3ST

PREPARATMION MODULE

TST

MACRD v04.00

&-APR=-81

D 14
15

17:43:78 PAG E

SEQ 017¢
.S8TTL

TEST PREPARAT[ON MODULE

; THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST,
:

REPORTING AN ERROR

TO THE USER

AN ERROR

DETECTED.

: SPECIFIES TASKS TO BE PERFORMED, wHICH THE MODULE EXECUTES
* USING SUBROUTINES.

;CALL:

:
:

PC.TSTPRP
NN'INNN

JSR
LWORD

B8R

NOP
ERROR

THE USER

TASK/VERIFY DESCRIPTOR

RETURN HERE IF NO ERROR

RETURN HERE IF ERROR
ERROR DEF INED BY MODULE

;TASK/VERIFY DESCRIPTOR

8IT 15 = 1

SELECT DEVICE AND VERIFY DEVICE IS AVAILAB'E

BIT 14 - 1
BIT 13
BIT 12 = 1

CLEAR CONTROLLER AND SELECT DEVICE

(RESERVED FOR DRIVE CLEAR)
PACK ACKNOWLEDGE IF VOLUME NOT VALID

BIT 11 = 1

RECALIBRATE IF POSITIONING IN PROGRESS DR SKI ERROR

:
:

BIT 6

BIT S

BIT 3

BIT 2

:
;

41 041650
42 041656
43 041662

46 041666

45
46 0461672
47 041676
48 041702
49 061704
<~ L1206

51 0641710
52 0461714

53 041722
54
55 041726

RECAL IBRATE DRIVE

BIT 8

BIT 7

041650

8IT 10 = 1
BIT 9

BIT 4

VERIFY CONTROLLER CLEAR OPERATION

VERIFY PACK ACKNOWLEDGE

(RESERVED FOR DRIVE CLEAR)

VERIFY RECALIBRATION

BIT 1
BIT 0

TSTPRP:

017637
062716

000000
000006
000000
000004

004737
004737
000411
000401
000000
062716

042624
042710

105076
162716

042620

mdadubind
SP
PRSt

000137

000004
041706
062610

000000

013737

001376

042622

113776

;STORC

18:

TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL
MOV
ADD
CLRB
SUB

a(SP), 39%
#6, (SP)
a($P)
44 (SP)

:STORE DESCRIPTOR
*MOVE SP TO USERS ERROR CALL
*CLEAR ERROR CALL
*MOVE SP TO NO ERROR RETURN

JSR
JSR
BR

PC,GETSTS
PC.GET
2%

:SETUP TO READ ALL REGISTERS
*GET RMER2
‘BR IF NO ERROR DETECTED

BR
WORD
ADD

MOVB
JMP

MOV

1$
O
#4, (SP)
1$-2.a(SP)

*GET OVER ERROR NUMBER
*ERROR DEFINED BY GET SUBROUTINE
*XFER ERROR TO USER AND
*GET ERROR NUMBER.

RMER2],40$

:GET RMER2 AND SAVE FOR LATER

‘;'"'Qt't""lttfit..""‘.QQt"t't"tt.ttl!'l"t'll'tt't"ttt'l.

“JRMMBO RMOS5/3/2 FCINL

"EST

PREPARATION MODULE

58
56 06173%

g? 0461740
€2 041742
63 041746
64 041750
65 041752
66 0641754
67 0641760
68 061766
o9
70

71
72
73
74
75
76

041772
0461772
042000
042002

77 (42006
78 042010

79 042012

80 042014
81 042020
82 0462026
83
84
85
86 042032
87 042032
88 (42040
89
90 042042
91

042046

92 042050
93 042052
94 042054

Y5 042060
9 062066

7
98
99
100
101
102

042072
(042076
042100
042102
042104

103 042106

106 042112
105 042120

005737

062620

C04737
000411
000401
000000
062716

050612

100014

113776

000137

000004
041752
042¢10

MACRO v04.00

4-APR-81

11:43:28 PAG

sSELECT DEVICE AND VERIFY DEVICE AVAILABLE [F BIT 15 SET IN TASK
1S7

8PL

JSR

000000

3%:

19%

sSELECT DEVICE??

JNO!!

PC,DEVSEL

;G0 SELECT DEVICE

. WORD
ADD
MOVB
JMP

C
#4,(SP)
38-2.3(SP)
37%

<ERROR NUMBER FROM DEVSEL
;s TRANSFER ERROR TO USER

JNO ERROR =~ (ONTINUE

.'"'t*t"'."'t'fitltfit.t"'.'t'."Q.'..Q'fi..t.'.t't

ttt!t.ti'Qttt't

szEAR CONTROLLER

032737
001451

040000

00473/
000411
000401
0C3000
062716

052264

113776

000137

000004
042012
062610

042620

8Ir
BEQ
JSR

5%:

000000

6%:

BIT

PC.CNTCLR

;GO CLEAR (ONTROLLER
;CONTINUE = NO ERROR

;ERROR NUMBER FROM (NT(LR

ADD

#4, (SP)

JMP

[N TASK

;CLEAR CONTROLLER??
JNO!!

14 ]
68

MovBe

IS SET

#M1T14,39%
138

BR
BR

.WORD

5%,a(SP)

; TRANSFER

ERROR

TO USER

37%

. Q't't.tfitQ'fit.tl.'t.'i'i.'t"'.l.QQ.Q.Ql’".!t'fittt.tttt't'

tttt'

7¥ER'FY CONTROLLER CLEAR IF BIT6 SET

032737
001431

004737
000411
000401
000000
062716
113776
000137
004737
0C0412
000401
000000
005726
062716
113776

000137

000100

042620

042710

000004
042052
042610

8s:

000000

052402

9% :

11%:

000004
042102
042610

BIT
BEQ

#3176,39%
13%

JVERIFY?2?

JSR

PC,GFT

;GO GET STATUS
sNO ERROR GETTING STATUS

ADD
MOVR

Ré,(SP)
8%.a(5P)

JSR
BR
3R

PC,CLRSTS
13%
12%

BR
BR
.WORD
JMP

10%:

'2%:

000000

108
9%
O

ADD

a4, (SP)

(SP)+

118.,8(SP)
37%

AN AR P AR

v10009

00473%7

042710

042620

;ERPOR FROM GETTING STATUS
;TRANSFER ERROR

TO USER

;GO VERIFY STATUS CLEAR
;NO ERROR IN (CLEAR

JERROR IN STATUS CLEAR
;STRIP RETURN ADDRESS TO
s SUBROUTINE AND TRANSFER
;ERROR TG USER

N AN A AR TR RN AN AN AN AR R R AR N RN

JEXECUTE PACK ACKNOWLEDGE
JNOT VALID

032737
001501

:NO!!

37¢%

.WORD

1ST

MOvVB
JMP
MR R N R

IN TASK

AN R

RN AN

IF BIT12 SET [N TASK AND VOLUME IS

13%:

8IT
BEQ

#MIT712,39%
25%

JSR

PC,GET

PR RO TR NN

sPACK ACKNOWLEDGE??
sNO!:

CZRMMBO RMOS/3/2 FCINL TST
"E57 PREPARATION MODULE
115 042140
116 062142

000000
062716

000004

;S? 042160
122 042164

}gz 062172

4-~APR-B1

113776

000137

042144

042610

000000

032737

000100

001346

001061

F
11:43:28 PAGE

14
15 =

5E0 0174

00041
200401

“17 062146
1*'8 042146
116 0L2152

MACRD v04.00

BR
BR

K3 ¥
15%:

;NO ERROR GE"TING RMDS

WORD
ADD

0
a4, (SP)

JMP

37¢

8I7

#VV ,RMDS|

MOV
MCvR

#PAKACK ! GO,RM(S510
,LOAD PA(CK ACK COMMAND
#RMCST,PUTINX
JSETUP REGISTER INDEX TARLE

MOVR

'€%:

16$
'S%

BNE

; TRANSFER ERROR TO USER

148,3(SP)

1S VOLUME VALID??

259%

JYES!,

125 042174
126 042202

127 042210
1¢8 042216
"29 042222
130 042226

131

042226

132 062230

153 062234

012737
112737

112737
004737
000410

000023
000000

000200
043160

001410C
001543

001544

MOVR
JSR
B8R

000401

000000

062716

000004

1?2/442242

000562

113776

042226

1@(; 062244

004737

043522

000000

.WORD

18%:

;GO WRITE COMMAND
;NO ERROR LOADING REGISTER

JERROR FROM PUT

18%

ADD

R4, (SP)

B8R

37%

MOVB

19¢:

#200,PUTINX+1
PC,PUT
19%

JSR

178,a(SP)

PC,TIMOUT

138

139

:VERIFY PACK ACKNOWLEDGE

140 042250
}2; 042256

032737
001427

000020

143 062260
166 0462264

Q04737
000410

042710

145
146
147
148

042266
042270
062272
0642276

;28 042304

000541

151
1852
15%
154
165

042306
042312
062316
042316
042320

004737
000411
000401
000000
005726

'56 042322
157 062326

158 042334

156

000401
000000
062716
113776

062716
1137726

000525

000004
042270

042620

000000

053262

Q00004
042316

160

23%:
24%:
000000

TI0 02356
T 0623k

;WAIT FOR COMMAND TO COMPLETE

001027
032737
001517
004737
00060

002000

004000
042710

042620

R R

JSR
8R
B8R
WORD
ADD
MOvVA

PC,GET
22%
218
O
R4, (SP)
208, (SP)

;G0 GET STATULS
JNO ERROR GETTING STATLS

JSR
B8R
BR
. WORD
TS

PL,ACKSTS
25%
248
0
(SP)+

;GO CHECK ACKNOWLEDGE
JNOC ERROR

ADD
MOVR

[N TASK

A176,398
25%

JVERIFY PA{K ACKNOWLEDGTM~
E
JNO!!

JERROR FROM GET SUR
. TRANSFER ERROR T0 USER

JPACK ACKNOWLEDGE ERROR
JSTRIP RETURN TO SUB AND

N4, (SP)
238.2(SP)

s TRANSFER ERROR

T0O USER

378

. Qt"ttittt'.tt't!tt"t'tttfitttttttnt‘tttttttttrnQ'tttfit\tt"tn'

IF BIT

I0R "PIP' IS ACTIVE.

032737

#R]T4 SET

BlT
BEQ

RE(ALIBRATE DRIVE

162 |

166 042344
'67 042346
:gg 042354

22%:

161

163
166 042336
165 042336

20%:
21%:

A A

SUR

;TRANSFER ERROR TO JUSER

IS SET

IN TASK aN[ ''Sk]'' iS SFT

:QECALIBRATE DRIVE IF BIT 10 IS SET
25%:
817
#MIT10,39%
JRECAL IBRATE DRIVE

E
8]7
BEQ

29%
#1T11,39%
38%

JYES
JRECALIBRATE??
JNO. .

JSR
8k

PC,CET
/8%

.60 GET RMDS
:NO ERROR GETTING kM

JAVMBO RMQS/3/2 FOINL ST
BT PREPARAT[ON MODULE

172 042364
172 062366
'76 042370
'75 062374
;;g 062402

000401
000000
062716
113776
000502

178
76
“80
;g;

062422

032737
001004
032737
001474

183 042624

005037

0426406
062412
0424674

186 042430

"85
186
"8B7
188
'89

042434
042442
042450
042456
0642464

91
92
193
194

042476
042500
042502
042506

190 042472

195

06425°

005037

012737
112737
112737
1°2737
112737

004737

(000410
000401
(000000
062716

MATRO v04.00

00000C

0640000

042622

020000

00134¢

001444

000007
000034
000006
000000
000200

043,60

000004

;gg 06251

£00434

113776

042502

;gg 062520

004737

(43522

6 14

11:43:28 PAGE

15-3

SEQ 0175

000004
042366

001416

4-APR-87

26%:
27%:

28%:

27%
G
84, (5P)
26%.a(SP)
37%

JERROR FROM GET SUR
. TRANSFER ERROR TO USER

BT
BNE
B]7

#SK 1,408
29%
#P1P ,RMDS ]

JWAS SK] SET ?
sYES, GO RECALIBRATE
;1S PIP ACTIVE??

BEC

29%:

(LR

001410
001543
001544
001545
001546

000000

8R
. wORD
ALD
mMovB
BR

sCLEAR CYLINDER ADDRESS

RMDAD

;CLEAR

PC, PUT

:GO ISSUE RECAL IBRATE

TRA(K/SECTOR ADDRESS

#RECAL !GO,RM(S10
;LOAD RECAL JBRATE COMMAND
#RMDC , PUT INX
;MAKE CYLINDER ADDRESS AND
#RMDA,PUT INX+1
:TRK/SEC ADDRESS LOOK LIKE SEEX TQ ZERO
#RMCS1 PUTINX+2 AND REGISTER INDEX
#200, PUTINX*3
;SET TERMINATOR

BR
BR
.WORD
ADD

31$
30%
0
R4, (SP)

37%

JSR

PC,TIMOUT

MOVR

318

RMDO

;NO!.

MOV
MOVB
MOVB
MOVR
MOVR

JSR

30%:

38%

308-2.a(SF)

;NO ERROR

;ERROR IN REGISTER TRANSFER
; TRANSFER ERROR TO USER

JWAIT FOR COMPLETION

200

201
292 042524

MERIFY RECALIBRATE IF BIT 3 SET IN TASK
8]1
#B]1T3,39%
.VERIFY RECALIBRATE??

032737

208 062532

001430

205 042536

004737

206
207
208
209
210
S;;

042540
0462542
042544
062546
042552
042560

000410
(00401
(000000
062716
113776
000413

213 042562

004737

216 042566

215
216
217
218
219
220
221

000412

0642570
042572
042574
042576
042602
042610
062616

252 0426?6

000401
000000
005726
062716
113776
162716
000240
000207

2(4 0426’0
205 042622

000000
000000

000010

042620

042710

000004
042544

000000

054056

000004
(042572
000002

32%:
33%:

34%:
35%:
30%:
Q00000

37%:
358

79%:
0%

R R

A AN AR A T RN

RN R R P R T RN RN AN AR R R R AR AR R R R P AN NN E RN A RN R RS AN

BEQ

388

JSR

PC,GET

~BR
BR
.WORD
ADD
MCVAR
B8R

34%
33
0
rG, (SP)
328.a(SP}
37%

JSR

P{,RCLSTS

38¢

*NO.!

;GO GETY STATUS

.NO ERROR GETTING STATUS

JERROR FROM GET
;s TRANSFER ERROR TO USER

GO (HECK RECALIBRATE

.NO ERROR DURING RECALIBRATE

8RrR
36%
MWORD L 0
TST
(SP)+
ADD
26, (5P)
MOVR
35%.a(SP)
SUR
#2,(SP)
NOP
RTS
PL

JRETURN T0O USER

-wORD
LWCRD

s TASK/VER]FY DESCRIPICR
; CONTAINS RMER?

0
C

,ERROR DURING RE(ALIBRATE
;STRIP RETURN TO SUB AND
;TRANSFER ERROR TO USER
;MOVE SP BACK BEFORE ERROR

“IRMMB) RIMCS/3/2 FOTNL ST 1
STATLS SUBROU
(N
T

4-APR=B1

H 14
11:43:/8 PAGE 1¢

>6Q 0176

GET STATUS SUBROUTINE

TM AL N,
»

DLIE

= OWVONO
AL WA

PONOAIN)
— — - —t —d

$THIS SUBROUTINE SETS UP THE "'GET INDEX TABLE'' AND THE "GET
JBUFFER'® FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE
JAND THEN RETURNS TO THE USER.

SCALL:
(42626
(62626
042626
042630
062632
062636
062642
062646
0642650
062652
062656

GETSTS:

001574
001404
000046

0642664
0462666
042670
26 0462672
042676
042700
062702
042704
042706

000022

000200

779

MOV

MO\
MOV
MOV
mMova

000002

042660

JSK

MOV
MOV

MACRO v04.00

4%:

(LR
SUB
8M]
(MP
BNE
(LR
BR

MOVR

MoV

000207

MOV
MOV
NOP
RTS

PC,GETSTS

RO,=(SP)

R1,=-(SP)
R2,~(SP)

#GETINX,RO
#RMEC2]+2,R1
ARMEC2,R2

R2.(RO)+

-(R1)
#2,R2

4%
ggMDB,R2

RETURN HERE

JsPUSH RO ON STA(K

J.PUSH R1 ON STACK

;+PUSH R2 ON STA(K

;RO = ADDRESS OF INDEX TARLE
;R1 = ADDRESS OF GET BUFFER
JR2 = REGISTER INDE

JWRIIE REGISTER INDEX IN TABLE
s CLEAR CORRESPONDING LOCATION
;DECREMENT TO NEXT INDEX
JBRANCH OUT [F DONE
;DONT WKRITE RMDB INDEX

-(R1)

#200, (RO) «
(SP)+ ,R2
(SP) + R1
(SP)+ RO
P{

:WRITE TERMINATOR
. sPOP STACK INIO R2
;+POP STACK INTC R?
;:POP STACLK INTQO RO

GET SUBROW
INE
T

MATRO

L6, 00

o DOW
N> N NG

LSBTTL
sTHIS

4=APR=81

I
17:43%:/8

PAGE

TIRMPBO RMOS/3/72 F(TNL

GET SUBROUTINE
SUBROUTINE

READS

THt

REGISTERS WHI(H ARE

LISTED

THE

2"'GET INDEX TABLE'® AND STORES THEIR VALUES IN THE (ORRESFONDING
FOR EXAMPLE, AN
LOCATION IN THE "'GET REGISTER BUFFER'’,
SENTRY OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE TO

;READ "RMBA'' AND STORE

;THE BUFFER ASSIGNED

17S (ONTENTS AT
THAT REGISTER,

THE

LOCATION IN

THE

NUMBER OF

NPy

JREGISTERS TO BE READ IS VARIABLE FROM 1 1O 22; THE
JTABLE MUST BE TERMINATED wlTH A CONTROL BYTE (200)
JWHICH SHOULD FOLLOW THE LAST ENTRY,

INDEX

339?R0u71~e CALL:
"'GET

OO ~NUP A

—

-l

%))

INDEX TABLE'' HAS BEEN LOADED WITH REGISTER INLFX

VALUES AND

TERMINATED WITH A CONTROL

BYTE

"'GET INPUT BUFFER'' IS AVAILABLE FOR USE.
(NOTE THAT
UNUSED LOCATIONS, I.E.,ENTRIES IN BUFFER CORRESPONDING
TO REGISTERS NOT READ, ARE NOT CHANGED.)

(03

JSR O

NOP

PC,GET

223

ERROR

RETURN HERE

If NO ERROR FOUND

RETURN HERE

ANY

ERROR

SUB DEF INES ERROR NUMBER

FOUND

:RO - REGISTER BASE ADDRESS

:R1 - REGISTER ADDRESS
:R2 = BUFFER BASE ADDRESS

:R3 = BUFFER ADDRESS

042710
042712
0462716
062722
042726
042730
042732
0462734
042736
042740
062764
042750
37 062754
18 042760
39 062764
40 042772
41 043000
42 04 3006
43 043014
44 043022
45 043004
46 043032
&7 043040

000240
062716

105076
162716
010046
010146

C43050

POINTER

200004
000006
001276
001334
001514
043072
000300
000010
000000
004000

000004
000006
001174
001176
001176

000004
000112

000016
000016

38:
177700

INDEX

#4,{SP)

(LRB
SUBTM
MOV
MOV
MOV

a(dp)
4, (SP)
RO.-(SP)
R1.-(5P)
R2.-(3P)

MOV
MOV
MOV

R&.-(SP)
ERRVEC,=(SP)
ERRVEC+2.-(SP)

MOV
MOV
MOV

1$:

TO REGISTER

NOP
ADD

MOV

&8 043042
49 043044
~( 143046

GET:

000004
000000
000004

R3I-(SP)

S$BASE.RO
AGETBUF
,R2
WGETINX,R&

MOV
MOV
MOV
MOV
BIT
BNE
ADD
MOVB

A58, ERRVEC
#PRG,ERRVE(C+2
RMCS2(RO),$TMPO
RMCST(RO).S$TMP1
#DVA,STMP]
38
M4, 16(SP)
#1j2.316(SP)

TSTB
BMI©

(R4
98

BI©

#SCIDXMSK,R]

MOVB

(R4} ,R1

:CLEAR ERROR NUMBER

:ERROR CALL

IN USER'S

; sPUSH RO ON STACK
::PUSH R1 ON STACK
: :PUSH R2 ON STACK

: :PUSH R3 ON STACK

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

STACK

:SETUP FOR TIMEOUT
:GET 'NED'' STATUS
1GET 'DVA"' STATUS
:DEVICE AVAILABLE??
SYES.
|
:WRITE ERROR NUMBER IN USEK'S
IERROR CALL
,
:DONE??
SYES!

:R1”="REGISTER ADDRESS

ICLEAR ANY

SIGN EXTENSION

—

JRMMBO RMOS/372 FOINC
S8 T SUBROUT [NE

043054
043056
043060
043064
043066
042070

042703
060203
011113
000764

043072
043074

022626
062766

063102

0463110
043116
0463120
063122
043124

043126
043130
043132

063134
Cu3134

043140

043144
063146
063150
043152
043154
043156

MA{RO v04.00

112776

162766
105714
100405

177700

RO R
(R4)+ RS
#*CIDXMSK
,R3

sR3 -

MOV
B8R

(R1), (R3}
b13

;READ REGISTER

ADD

006004
000007
000002

000016
00001¢
000016

5%:
7%:

8%:

112403

tMP

ADD
MOVA

SUB
1ST8
8M]
CLR

MOVB
ADD

060203
005013
000771

000207

MOvB
8I(C

ADD

0C5003

012637
012637
012604
012603
012602
012601
012600

J 14
11:43:¢8 PAGE 17-1
SEQ 0178

060001

112403

4-APR-81

0C0006
000004

CLR
BR
MOV
MOV
MOV

MOV
MOV
MOV
MOV
RTS

R2,R3

(SP)+,(SP)+
#L,16(SP)

R7,216(SP)
#2,16(5P)
(R4)

9%
R3
(R4)+ ,R3
R2,R3
(R3)
8%

(SP) + ,ERRVE(+2

(SP)+ ERRVE(

(SP)+ R4

{(SP)+ R3
(SP)+ ,R2
(SP)+
R
(SP)+ R0

STORAGE

ADDRESS FOR REGISTFR

sCLEAR ANY SIGN EXTENSION

;RESTORE STA(K

sWRITE

ERROR NUMBER

;USER'S ERROR (ALL

:ggge CLEARING??

:CLEAR REMAINING STORAGE
*LOCATIONS

. :POP
;;POP
;;POP
;:POP
;;POP
;:POP

.. POP STACK INTO ERRVE(+2
STACK INTO ERRVE(C
STACK INTO R4
STACK INTO R3
STACK INTO RZ2
STA(CK INTO R1
STA(CK INTO RO

. RE TURN

TST

MACRO v04.00

4-Al

K1 4
.~3:28 PAGE '8

SEQ 0179

.SBTTL

“IRMMB0O RMOS/3/2 FCINL
PLT SUBROUT INE

sTHIS SUBROUTINE WRITES

THE REGISTERS WHICH ARE LISTED IN THE
THE CONTENTS OF THE CORRESPONDING
REGISTER BUFFER''.
THE NUMBER OFf

NT NS NN 2 OO0 NONN

JPUT INDEX TABLE'' WITH

JLOCATION IN THE 'PUT
SREGISTERS WRITTEN IS VARIABIE;

THE INDEx TABLE MUST

J8E TERMINATED WITH A CONTROL BYTE

sFOLLOW

THE

LAST

ENTRY,

(200) WHICH SHOULD

*SUBROUTINE CALL:

D oad

(1)

"PUT INDEX TABLE'' HAS BEEN LGADED WITH INDEX VALUES
OF REGISTERS TO BE WRITTEN,

D) omd cd = ed cd

)
1(3)

"PUT REGISTER BUFFER'' CONTAINS
REGISTER TO BE WRITTEN.
PC,PUT
JSR

OOV

:R3
;R4

043266
043274
043276
043300
0643302
043304
043310
043312
043314
043320

S0 043322
S*C43304

000240
010046
010146
010246
010346
010446
013746
013746
013700
012702
012704
012737
012737
016037
0316037
032737
001007
062766

112776
000424
10571
10042
111401
042701
060001
111403
042703
060203

011311

105724

PUT:

toHont

nINIFONI
A NINONY
N 00 OB
A

‘RO

043160
063162
043164
043166
043170
043172
043174
043200
30 043204
31 043210
32 043214
33 043220
3, 043226
35 043234
36 43242
37 043250
38 043256
39 043260

40
41
42
43
44
45
46
47
48
49

PUT SUBROUTINE

BR
NOP
£RROR
e

000004

000112

000004
000006
001174
001176
001176

1%:

NOP

ADD
MGVB

3%:

177700
177700

MoV
Mov
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV
MoV

BIT
BNE

00006
000016

RETURN HERE

EACH

[F NO ERROR FOUND

ANY ERROR FOUND

SUB DEFINES ERROR NUMBER

000004
0006006
001275%
001410
001543
043330
000300
000010
000000
004000

222

CONTENTS OF

1S18

BMI]

MOVB

81C
ADD
MOvR

BI(C

ADD

MOV
TSTAH

RO,-(SP)
R1.-(SP)

R2.,=-(SP)

R3,-(SP)
R4 ,-(SP)
ERRVEC,-(SP)
ERRVE(C+2,-(5P)
$BASE ,RO

#PUTBUF ,RZ
#PUT
INX R4

#5% ERRVE(

#PR6,ERRVE(+2

. :PUSH RO ON STA(K

;sPUSH R1

ON STA(CK

:;PUSH R2 ON STA(CK
;;PUSH R3 ON STA(CK
:;PUSH R4 ON STA(CK

;sPUSH ERRVEC ON STA(CK
;.PUSH ERRVE(C+2 ON STA(K

JSETUP FOR TIMEOQUT

RMCS2(RO) ,$TMPO ;GET ‘NED'* STATUS
RMCS1(RO) ,$TMP1 ;GET 'DVA'® STATUS
ggVA,STMP1
;egggge AVAILABLE??

#4,16(SP)

‘WRITE ERROR NUMBER IN

(RG)
9s
(R4) ,R1
;ac;gxnsx.n1

;DONE?2?
SYES.|
*R1 = REGISTER ADDRESS
:CLEAR ANY SIGN EXTENS]ON

g;12.a16(SP)

(R4) ,R3

nscggxnsx,ns
R

(R3) . (R1)

(R4)+

ZUSER'S ERROR CALL

:R3 = STORAGE ADDRESS

*CLEAR ANY

SIGN EXTENSION

;WRITE REGISTER

sADJUST

JRMMBO RMOS/3/72 FOTNL
PUT SUBROUT INF

52 043326
53
54 043330
55 043332
56 043340
57
043346

58
| 59 063354

063354

043360
043364
043366

043370
043372
043374
“0 043376

MATRO v04.00

112776
162766

012637
012637
012604
012603
012602
012601
012600
000207

L
11:43%:¢8 PAS £

14
*8-1
SEQ 0180

000763
022626
062766

4=AFPR=81
BR

000004
000097
000002
000006
000004

000016
000016
000016

5%:

7%:
0%
:

cMp

ADD

3
(SP)¢+, (5P}«

MOVB

86,16.5P
#7,816(SP)
#2,16(SP)

MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTS

(S=)+ ,ERRVE(
(SP)+ R4
(SP)+ ,R3
(SP)+ ,R?
(SP)+ R
(SP)+,R0

SUB

(SP)+

JADJUST STA(K

JWRITE ERROR NUMRBER
JUSER'S ERROR CALL

ERRVE(+?

+;POP
;.POP
;.POP
:2POP
..POP
;:POP

. .POP STACK

STACK
STACK
STACK
STACK
STACK
STACK

;RETURN

INTO
INTO
INTO
[NTO
INTO
INTO

INTO ERRVE(+?

ERRVEC
R4
R3
RZ
R1
RO

CZIMMB0O RMOS/3/2 FCINL
SIZE CLOCK SUBROUT
INE

"ST

MACRO v04.00

.SBTTL

3 043400
043400

013746

000004

6 063410
S 043416

012737
812737

043446
000300

7 043432

012737

00C100

063406

6 063626

8 043440
9 063444

10 0643446
043450
043456
043464
043472
043476

013746

012737

005777
000427

022626

012737
012737
012737
005777
000404

000006

177546
136044

001510

043510
043514

012637
012637

000006
000004

ERRVEC,=(SP)

ssPUSH ERRVE(C ON STA(K

MoV
MOV

#1%,ERRVEC
#PR6G ERRVE(C+?

;SET UP FOR BUS TIMEQUT

MoV

001512

(000004

000002

SIZE CLOCK SUBROUTINE

MOV

000004
000006

000004
001510
001532

022626
062766

000207

SI1ZCLk:

043500
172540
000104
136012

16 0643500
;g 82%298

19 043520

M 14
11:43:¢28 PAGE 19

SEQ 0181

;

11
12
13
16
15

4-APR-B1

MOV

1%:

2%:
35

TST
BR
{MP

Mov
Mov
MOV
TST
BR

ERRVEC+2,=(SP)

:;PUSH ERRVE(C+2 ON STArK

#177546,CLKADR

sLOAD ADDRESSES FOR KWw11=L

a(._KADR
3$

sTEST FOR KW11-L PRESENT
JYES = KWll=L IS PRESENT

#100,CLKVCT

(SP)+,(SP)+

JRESTORE

;SET UP FOR BUS TIMEOUT
;LOAD ADDRESSES FOR KW11-P (LOCK

CMP
ADD

#2% ,ERRVEC
#172560,CLKADR
#104,CLKVCT
@CLKADR
3$

(SP)+,(SP)+
#2,4(SP)

MoV
MOV

(SP)+ ERRVE(+2
(SP)+ ERRVEC

..POP STACK INTG ERRVE(+?2
;;POP STACK INTO ERRVEC

RTS

;sTEST FOR KW11-P PRESENT
JYES = KW11-P IS PRESENT

JRESTORE SP
;MOVE RETURN TO ERROR

JRETURN TO USER

(ZRMMBO RMOS/3/2 FCTNL

T IMEQUT SLB{?OUTZNE

157

MACRO v04.00

NN
00 NN

;THIS

043522
043522
043524
043526
043530
043534

;CALL:
.

SUBROUTINE WAITS

000005

016046
042716

000000
177576

043636
043640

043642
043644

022626
062766

251043634

043652

2 043660
043666
043666
043672
043676
043700
043702

15 0643704

TIMOUT:

010046
010146
010246
013745
013746
012737
012737
013700
013701
012702
020127
001003
012761
012711

022726
001420
032711
001766
005302
001354
000412

22 043624
23 043626
24043632

TIMEOUT SUBROUTINE

;GREATER THAN APPROX.

21 043620

N 14
11:43:28 PAGE 20
~EQ

.SBTTL

043614

26
27
28
29
30

4-APR-81

112776
162766

000004
000006
043642
00030C
001276
001510
000036
172540
000001

000004
000006

000006
000094

MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1,-(SP)
R2,-(SP)
ERRVEC,~(SP)
ERRVEC+2,-(SP)

#4% ERRVEC
#PR6,ERRVE+2
C

R1,4#172540

JKW11=P CLOCK??

;GET STATUS

’%:

2%
#1,2(R1)
#BIT2.BITO,(RY)

3%:

MOV

RMCS1(RO) ,-(SP)

5%:

RO ON STACK
R1 ON STA(K
R2 ON STACK
ERRVEC ON STACK
;;PUSH ERRVEC+2 ON STA(K
;SETUP FOR BUS TIMEOUT - 04 TRAP
;sR1=CLOCK ADDRESS

BNE
MOV
MOV

4%:

;:PUSH
;.PUSH
::PUSH
;sPUSH

$BASE RO
CLKADR ,R1

#30.,R2

cMpP

TIMEOUT

RETURN HERE

MOV

000200

000012
000012
000012

PC, TIMOUT

MOV
MOV

000200

000004
000007
000002

JSR
7

MoV
MOV

1%:
000002

FOR RDY - 1 AND GO
O OR FOR A
500 MSEC AND THEN RETURNS.

;RO=BASE ADDRESS

;JR2=NUMBER OF

CLOCK CYCLES

sNO!!
;SET COUNTER
;START COUNTER

BIC
CMP
BEQ
BIT
BEQ
DEC
BNE

B8R

#*C<RDY!GO>,
(SP)
#RDY, (SP) +
;RDY-1,G0=07?
5%
;YES!!
#BIT7,(R1)
cTIMER DONE??
3%
JNOH!
RZ
;DEC NUMBER OF CYCLES
1%
JCONTINUE IF NOT DONE
5%
;'RDY** DID NOT SET OR ''GO'* DID NOT RESET

CMP

(SP)+,(SP)+

ADD
MOVB
SUB

#4,12(SP)
#7,312(SP)
#2,12.5P)

MOV
MoV

(SP)+ ERRVE(+2
(SP)+ ,ERRVE(C
(SP)+ ,R2
{SP)+
R
(SP)+,R0

MOV
MOV
MOV
RTS

JWITHIN 500 MSEC AFTER THE COMMAND WAS ]SSUED.
JADJUST STALK
;MOVE SP TO USER'S CALL

;WRITE ERROR NUMBER

;sPOP
;:POP
. sPOP
;.POP

;.POP STACK

STACK
STACK
STACK
STACK

JRETURN

INTO
INTO
INTO
INTO

TO USER

INTO ERRVE(C+2

ERRVEC
RZ
R}
RO

TZRMMBO AMOS5/3/2 FCINL TST Y

ERROR (MECK SUBROUTINES

MACRO v04.00

B 15

4-APR-81

*7:43:¢8 PAGE 21

SEQ 0183

.SBTTL

ERROR (HE(K

"SBTTL

PRIMARY ERROR (MECK SUBROUT
INE

SUBROUTINES

. ."l'.'.l'..t"t.'t""".'.Qt."l'Q't.t"'.t"“"t."""'t"

Z
5

:THE _PURPOSE OF

:THAT

FURTHER

THIS SUBROUTINE

ERROR

AND

STATUS

IS TO VERIFY
CHECKING

THAT

SHOULD

STATUS

[S VALID AND

PERFORMED.

THE

;

FOLLOHING

;

.CORRECT UNIT IS SELECTED, I.E., THE UNIT SELErFT BITS OF RM(S2

.SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1) IS SET

CHECKS ARE

<axrs 0-2)

AND NED

Q‘.

1¢

READY

17
%g

21
P

EQUAL

(BIT

"HE

MADE
:

UNIT BEING TESTED:

12 OF RMCS2)

IS RESET:

.LAST COMMAND WAS COMPLETED,

(BIT

7 OF

RMCS1)

AND

THE

:THE

SUBROUTINE ASSUMES

.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER,

IN PARTICULAR, RMCST, RMCS2 AND RMDS HAVE BEEN 5TORED IN THEIR
THE ‘‘GET'* BUFFER.

STHE SUBROUTINE 1S CALLED AS FOLLOWS:

36
27
38

:
:
:

L(SUNIT) CONTAINS THE DRIVE NUMBER

JSR
B8R

272

4; 063706

PRIERR:

54
55 043760
56 063762
57 043766

THAT:

: CORRE SPOND ING LUCATIONS OF

53 043752

RMCST)

".NO PARITY ERROR _OCCURRED WHEN WRITING REMOTE REGISTERS,

50 0643730
51 043736
52 043744

O OF

*®

48
49 043722

(BIT

READY BIT (BIT 7 OF RMDS) IS SET.
Mtgg pA81rv ERROR OCCURRED WHEN READING REMOTE REGISTERS,

;

45 043712
23 043716

THE MASSBUS CONTROLLER IS

RESET

:DRIVE
1.

44 043706

(1.E.. PAR = 0, OR, PAR
= DPE - 1

|.E..,

GO BIT

062716

105076
162716

013737

042737
013737
042737

123737

001415
062716
112776

ADD

000000
000004

177770
001234
177770

001140
000004
000001

273

PC,a(SP)+

:CLEAR USER'S ERROR CALL

000004

001344

NOP
ERROR
JSR

PC.PRIERR

(LRB
SUB

001142

001142
001140
001140

001142

000000

#4,(SP)

a(5P)
#4, (SP)

RETURN HERE IfF NO ERROR

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF MO MORE ERRORS

:MOVE

(SP)

TO ERROR CALL

:CLEAR ERROR NUMBER
:MOVE (SP) TO NC ERRCR RETURN

;REPORT AN ERROR IF THE WRONG UNIT IS SELECTED
MOV
RMCSZ1,$BDDAT ~ :CORRECT UNIT SELECTED??

8IC
MOV
BIC

#~CUNTMS
, $8DDAT
K
SUNIT,SGDDAT
:GOOD DATA FOR TYPEQUT
#~CUNTMS
, $GDDAT
K

CMPB

$GDDAT,$BDDAT

BEQ
ADD
MOVB

1%
24, (SP)
41.,a(SP)

;(OMPARE EXPECTED AND RECEIVED

‘DRIVE NUMBERS
SYES..

JERROR
1

THE

JRMMBO RMOS/3/2 FCINL

PRIMARY

ERROR

CHECK

162776
004736

61 044006
62 044010

000240
000137

gz 064014

SUBROUTINE

S8 043776
59 064000

60 044002

TST

162716

MACRO v04.00

000002

SUB
JSR

000010

67 066016
68 044022
o9 044026

032737
001045
013737

70 044032
71 044040
72 044046

052737
013737
062716

74
75
76
77
78
79

032737
001414
013737
013737
042737
112776

73 064052

044060
044066
064070
44076
044104
064112

R0 044120
81 044124
82 044126
83 044132
84 044134
gg 044136
87

88 044136
89 044144
90 064146

91 064156
92 064162

044170
044176
044202
044210
04642146
044216
044222

112776

SUB

044530

1%:

162716
004736
162716
000240
000575

032737
001030
013737

052737
042737

013737
062716
112776
162716
(004736
162716
000240

100 044224

000541

103
106 044226
105 064236

032737
001431

107
108
109
110
111
112

001025
013737
042737
013737
062716
112776

;8; 04422¢€

106 044236
044244
044246
046254
046362
06427C
044274

I;Z 044302
044306

032737

162716
004736

006000

001334

001336
004000
001334
000004

001140
001140
001142

000002

010000
001344

001344
010000
(000003

000002

STHE

000000
001140

001142
001140
000000

2%:

5%
001334

001334
000200
160001
001334
000004
000004

001140
001140
001140

MOV
ADD
MOVB
SUB
JSR
sUB
NOP

7$:

001346

001334
160001
001334
000004
063005

000002

001140
001140
001142

000000

SUB
JSR
SUR
NOP
BR

BIS
BIC

00010

000200

BIT
BEQ
MOV
MOV
BIC
MOVB

BIT
BNE
MOV

000000

001334

BIT
BNE
MOV

;MOVE SP TO RETURN FOR ERROR
SREPCRT WRONG UNIT SELECTED

#10, (SP)

*RESTORE (SP)

108

;SKIP OTHER CHECKS

THE

DEVICE

1S NONEXISTANT

#DVA.RMCS1]
5%
RMCS11,8GDDAT

#DVA,S$GDDAT
RMCS1],$8DDAT
#4. (SP)

#2.3(SP)

#NED,RMCS21
2$
RMCS21,$GDDAT
RMCS21.$BDDAT
ANED
, SGDDAT
#3,3(SP)

#2,(SP)
PC,a(SP)+
#10, (SP)

10%

NOT

AVAILABLE

IFf

;DEVICE AVAILABLE??
TYEST!
:EXPECTED STATUS
;RECEIVED STATUS

:ERROR #2

*WAS NED SET??
‘NOT!
:EXPECTED

STATUS

-RECEIVED STATUS

JYES ~ CHANGE ERROR NUMBER

sMOVE SP TO RETURN FOR ERROR
JREPORT DEVICE NOT AVAILARLE
*RESTORE (SP)

:SKIP QTHER CHECKS

sREPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY

001142

000001

ERROR

MOVR

001344

000200

DEVICE

BIS
MOV
ADD

000010V

000002

#2,(SP)
P a(SP)
e

NOP
JMP

;REPORT

c1 5

111:43:28 PAGE 21-1

SEQ G184

93
9%
95
9%
97
98
99

4-APR-81

B8R

#RDY ,RMCST]
7%
RMCS1],8GDDAT

:CONTROLLER READY??
TYES!!
-EXPECTED STATUS

RMCS1]1,$BDDAT
#4,(SP)
#4.3(SP)

;RECEIVED STATUS

#RDY
, $GDDAT
#SC ! TRE 'MCPE . GO, $GDDAT

#2.(SP)

:ERROR #4
:MOVE SP TO RETURN FOR ERROR

PC,a(SP)+
#10, (SP)

JREPORT CONTROLLER NOT READY
*RESTORE (SP)

108

:SKIP OTHER CHECKS

JREPORT AN ERROR IF GO IS NOT ZERO AND DRY IS NOT ONE
BIT
#GO,RMCST]
:GO RESET??
BEQ
8$
TYES!!

BIT

BNE
MOV
BIC
MOV
ADD
MOVB

SUB
JSR

#DRY ,RMDS |

*DRIVE READY??

#2. (SP)
PC,a(SP)+

*MOVE SP TO RETURN FOR ERROR
JREPORT DRIVE NOT READY

13
YYES!!
RMCS1],$GDDAT
:EXPECTED STATUS
#SC. TRE .MCPE . GO, $GDDAT
RMCS1],$80DAT
;RECEIVED STATUS
#4, (SP)
#5.3(SP)
:ERROR #5

"IRMMBO RMOS/3/72 FCTINL TST 1
PR [MARY ERROR (HECK SUBROUT INE

046310
044314
044316
0464320

066320
044326
044330
044336
044344
044352
044356
044364
044370
044372
044376

044400
44402
044402
064410
044412
0464420
0464422
044430
044432
0464434
064440
064444
04464646
064450
044452
044454

044456
152 044460

153 044466
154 064474
155 044502
156 044506
157 044514
158 044520
159 044522

160 044526

161 044530
162 044534

163 064536

162776

000240
000504

032737
001425
013737
042737
013737
062716
172776

020000

001334

001140
001140
001142

160001

162716

000010

032737
001451
032737
001045
032737
001413
010046
012700
122710

001002
012600
000431
105720
100371
012609
013737
06273/
013737
062716
112776
162716

004736
162716

000240
062716
000240
000207

Sus
NOP
BR

BEQ

001376

000010

001424

001543
000014

sREPORT

91%:

92¢%:

000010

000000

108

93%:

42, (SP)

SUB

#10, (SP)

#13.3(5P)

PC.R(SP)+

JERROR #47
;MOVE SP TO RETURN fOR ERROR

JREPORT ERROR VIA USER

JRESTORE STACK

108

AN ERROR IF DETECTED A CONTROL BUS PARITY ERROR
BIT
#PAR,RMER1]
:xS§ITHERE A PARITY FRROR??
BEQ
118
BIT
#DPE ,RMER?]
‘WAS
IT THE CONTROL BUS??
BNE
118
*NOT SURE!!
81T
#PAR_,RMER10
*DID TEST SET PAR 27
BEQ
93$
‘NO!!
MOV
RO, -(SP)
2:PUSH RO ON STACK

MOV
CMPB

BNE

MOV

001140
001140
001142

(SP)

SUB

MOVB
NOP

000010

JRESTORE

MOV
ADD

JSR

001350

#10,(SP)

RM{ST1,$GDDAT
SEXPECTED STATUS
#SC
!MCPE.
.TR
GO, SGDDAT
E
RMCS11, $BDDAT
JRECEIVED STATUS
44, (SP}
sJMOVE STACK TO USER'S ERROR

g?g

000000

000010

21-2

:REPORTY AN ERROR IF THE RH CONTROLLER DETECTED BAD
JPAR]TY ON_THE MASSBUS CONTROL BUS
BIT
AMCPE ,RMCS1]
;zen{rv ERROR ?7?

9%
:

001350
000010
001350
000004
000050
000002

D15

11:43:28 PAGE

SEQ 0185

8%:

162716

000240
000453

4=APR-81

000C10

001334
000004
000013
000002

004736

MA{RDO v04.00

#PUT
INX RO
#RMER1, (RO)

928

(SP) +,RO

B8R

118

BPL

91%

TSTR

(RO)+

*R0 POINTS TO INDEX TABLE
*TEARCH TABLE FOR RMER1
;"POP STACK INTO RO

;PAR WAS

SET BY

TFST

JENC OF TABLE??
JNO!!
.:POP STACK INTO RO
JEXPECTED STATUS

MOV
MOV
BIC
MOV
ADD
MOVB

(SP)+.R0
RMER11, SGDDAT
#PAR, $GDDAT
RMERT
I, $BDDAT
JRECEIVED STATUS
#4,(SP) ;MOVE SP TO USER'S ERROUR CALL
#50.3(SP}
;JWRITE THE ERROR NUMBER

JSR
SUB
NOP
ADD
NOP
RTS

PC.3(SP)+
#10, (SP)

SuB

#2,(SP)

#10, (SP)
PC

;MOVE SP TO RETURN FOR ERROR

JREPORT

THE ERROR

JRETURN

sRETURN TO ERROR
TO NO ERROR

sMOVE SP TO NO ERROR RETURN

CIRMMBO RMOS/3/2 FCTINL

TST

NN 2

SECONDARY ERROR CHECK SUBROU'INE

MACRO v04.00

.SBTTL
;THE

11:43:28 PAGE

SECONDARY ERROR CHECK SUBROUTNE

ERROR

(HECK

SUBROUTINE

PROVIDES DETECTION OF

SECONDARY ERRORS

V00 NRWNS AN —SOO® NN

;SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER (ONTENTS. THESE
;ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY

;ASSOCIATED WITH THE OPERATJON BEING PERFORMED.

;WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR
:NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS

@2 nd wd od bt
o o

.70 THE

TEST ROUTINE WHICH MAKES

JMAKES THE ERROR CALL,

THE ERROR CALL.

AFTER THE

;CALL:

B8R

:
:

ERROR
JSR

;

AS1[, V)
V1) ¥ Nt

WY
=

JSR

;

PC,SECERR

NOP

27?2

TEST ROUTINE

IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR

:OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE
.RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL.

SUBROUTINE

2702

RETURN HERE IF NO ERROR

PC,a(SP)+

ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MORE ERROR (HECKS

RETURN HERE

TO REPORT AN FRROR

RETURN HERE IF NO MORE ERRORS

N=O

¢NOTE:
THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE
s INPUT REGISTER BUFFER.

24 044540

TM~
NLIVAUAVAMES N
B NN B8 IS
NWN AN W W NN N AN N NN N
—
VMW= - OO0V NN
W20
V0N (¥al S NN2OV~

E 15

4-APR-B1

SECERR:
""ttttttttifittiifi'ttfitl’"t*fittfittttttttttfitfittti

t‘ttfitttttttn't"

044540
044546
044554
0464560
044564

013737
042737
062716
105076
16271¢

001410
177701
000004
000000
000004

050374
050374

sSTORE

FUNCTION
MOV
BIC
ADD
CLRB

Su8

CODE AND CLEAR USER'S ERROR NUMBER
RM(S10,515%
sSTORE FUNCTION (ODE
W C<FOIF11F2!F3!F4>,5158
#4,(SP)
:MOVE (SP) TO ERROR CALL
2 (SP)
;CLEAR ERROR NUMBER

#4, (SP)

;MOVE

(SP)

TO NO ERROR RETURN

‘.'tttl’tt*tt'ttfi'tfittt'*tt.*itttl’tttfitt**l'tittitt

tfitt't*t'ttttQtt

:CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS
044570

044576

044600
044606
0464614
044622
044626
44634
044640
044642
044646

044650
044656
044660
0464666
0464674
56 044700
57 044704

032737
001024
013737
042737
012737
062716
112776
162716
004736
162716
000240

032737
001422
013737
042737
005037
062716
112776

000200

001346

001346
177577
000200
000004

001142
001142
001140

000010
000002

JREPORT

ERROR

BIT
BNE
MOV
BiC
Mov

ADD

000000

#10,3(SP)
#2,(SP)

PC,a(SP)+

SUB

#10, (SP)

NOP

000001

001334

001142
001142

177776

001140
000004
000011

000000

;RFPORT ERROR

5%:

BIT
BEQ
MoV
BIC
CLR
ADD
MGvB

IS NOT

#4,(SP)

MovB
SUB
JSR

000010

DRIVE

ADRY ,RMDS |
5%
RMDS] , $BDDAT
#*CDRY,$BDDAT
#DRY ,$GDDAT

GO BIT

IS NOT

#GO,RMCS1]
10%
RMCS11,$8DDAT
#4*CGO,$BDDAT
$GDDAT
44, (SP)
#11,9(SP)

READY,

I.E.,

DRY

;DRIVE READY??
JYES!!
;BAD DATA FOR TYPEOUY

. GOOD DATA FOR TYPEQUT
;sERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
JREPORT NOT

READY

JRESTORE

(SP)

RESET

;GO BIT RESET??
JYES.!
;BAD DATA FOR TYPEQUT

. GOOD DATA FOR TYPEOQU!
. ERROR NUMBER

TO FRROR N

CIRMMBO RMOS/3/72 FCINL TST 1
MACRO v04.00
SECONDARY ERROR (HECK SUBROUT INE

58 044712
59 044716
60 64720
61 044724
€2
63
64 044726
&5 044734
66 0464742
67 044750
68 044756
09 044760
70 0464764
71 044772
72 044776
73 045000
74 045004
045006

162776

004736
162716

000240

013737
042737
013737
023737
001413

062716
112776

000002

10%:

177701

050374
001142

162716

000010

000240

;REPORT

SUB

#2, (SP)

SUB

#10. (SP)

PC.R(SP)+

ERROR
MOV
BIC

515%,$GDDAT
$8DDAT ,$GDDAT
15¢

ADD
MOVR

#64,(SP)
#12,3(SP)

SUB
JSR
SuB

#2,(SP)
PC,2(SP)+
#10, (SP)

NOP

.REPORT AN ERROR

045006
045012
045016

045020

045024
045026
045034

SREIIXFBR

AV AV, LN LV, LV, ]
AR AL

FURNUNY
= el b —d ok

RRRRRRRRR

FANISBRIRIRIV28Y

e i

od e

b cnd cod

045042
045050
045056
045060
045064
045072
045076
045100

005037
005737
001003
05737
001403
052737
013737
042737
023737
001412
062716
172776
162716

004736
162716

005037
013746
042726
001010
032737
001407
022737
103003
052737
013737
0642737
023737
001413
062716
112776

162716

0C4736

001140
001350

001376
040000
001346
137777
001140

001140
001142
01142
001142

000004
000047
000002

000000

BIC
(MP
BEQ

ADD
MovB
SUB

JSR
suB

30%:

001344
000377

040000
001334
137777
00°40

000004
000014
000002

JRESTORE (SP)

COMPOSITE

JEXPECTED FUNCTION CODF
JYES..

JERROR N UMBER
;MOVE SP TO RETURN FOR ERROR
;REPORT WRONG FUNCTION CODE
JRESTORE (SP)
ERROR

SET AND NO OTHER

#*CERR, $BDDAT

$GDDAT
, $BDDAT
308

;1S "ERR'' 0K??
JYES!H!

#47,a(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

JWRITE

#4,(SP)

;MOVE SP TO USER'S ERROR
E RROR NUMBER

sMOVE SP TO ERROR RETURN

;REPORT

INVALID COMP ERROR

JREPORT AN ERROR IF ''TRE'' IS SET AND NONE OF THE BITS WHICH SET
JTRE IS SET, OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH
(SET TRE S SET

001140

000030

SP TO RETURN FOR ERROR

;ERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND
;OTHER ERRORS ARE SET
CLR
$GDDAT
JEXPECT "ERR"' = 0
TST
RMER1]
;1S RMERT - 0??
BNt
20%
;JNO!!
18T
RMERZI
;1S RMERZ - 07?
BEQ
25%
JYES!!
#ERR, $GDDAT
20%:
BIS
;"ERR"' SOULD BE SET
MOV
25%:
RMDS],3$BDDAT

000010

040000

;MOVE

JREPORT DEVICE NOT AVAILABLE

FUNCTION CODE READ FROM DEVICE IS NOT CORRE(CT
RMCS11,$BDDAT
;1S FUNCTION CODE CORRECT??
#~(76,$8DDAT

MOV
CMP
BEQ

15%:

22-1
(de.~

NOP

001334

162716

11:43:28 PAGE

JSR

000010

000004
000012
00000<

004736

4=-APR-81

CLR

MOV

BIC

BNE
BIT

001346

BEQ
CMP

050374
007140
001142
001142
001142

000000

35%:
40¢%:

BHIS
BIS
MoV
BIC
CMP

BEQ

ADD
MOvVB

Sus
JSR

$GDDAT
RM(S2!1,-(SP)
#377,(SP)+
35%

#ERR,RMDS
]

40%
#SEARCH,515%
40%

#TREC ,$GDDAT

RM(CS1],$8DDAT

#~CTRE ,$BDDAT

$GDDAT, $BDDAT
45%

44, (SP)
#14,2(5P)
ne,(SP)
P(,a{(3P)+

JEXPECT “TRE'' = 0
sWAS DLT, WCE, UPE, NED, NEM

JPGE, MX+
JYES!!
JWAS EXC

OR MDPE

SET

.
SNO.

RECEIVED??

JWAS DAT A TRA
ED??
NO..
HOULD BE SET

;IITREII

;BAD DATA FOR TYPEQUT
;1S "'TRE OK??

JYEST.

;MOVE SP TOQ USER'S ERROR CALL
JWRITE E RROR NUMBER

;sMOVE

SP TO RETURN FOR ERROR

;REPORT

TRE

ERROR

15 045214
6 065220

065222

1627'6

000c40

45%:

b
—

22<2

£Q 0188

#10, (SP)

NOP

JRESTORE

(SP)

tt!'tt't".t'tt'ttt!

THE FUNCTION CODE

[AsLE,

CHECK FOR THE FOLLOWING ERRORS:

.STATUS BITS NOT SET THAT SHOULD BE SET, E.G., ATA AND |LF

.STATUS BITS SET THAT SHOULD NOT BE SET, E.G., WCE AND E(H
NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER
sSTATUS CONDITIONS, E.G., WRITE LOCK ERROR SHOULD ONLY BE SET [f

SWRITE

045236

137 045254

138 045256
139 045264
140 045272
045300
045306
045314
045316
045322
045330
045334
045336

149 045342
150 045344

010046
013700
016037
012600

013737
032737
001403
052737
042737

013737

042737
023737
001413
062716
112776
162716
004736
162716

000240

050374

067136

050366

050366
040000

001140
001346

100000

001140
001140
0011742
001142
001142

077777
001346
077777
001140
000004
000006
000002

153
154 045344
155 045352
156 045360
157 045366

338 0465374

013737
042737
013737
042737
023737
001412
062716
112776
162716

004736

162716

165 045430
166

005037

168 045434
169 045440

013746
052716
013737
062637

167

70 045644

045452

MOV
Mov

;REPORT
JATA IS

50%:

000004
000254

000002

ADD
MOvB

137777

001344
001142

COMMAND

IS A WRITE.

THE ENTRY FROM THE FUNCTION CODE TABLE
RO,-(SP)
;.PUSH RO ON STA(CK

515$,R0

JGET FUNCTION CODE

(SP)+,RO

;;POP STACK

FNCDTB(R0),500% ;STORE ENTRY

SUB
JSR
SUB
NOP

50%

#ATA,SGDDAT
#*CATA,$GDDAT
RMDS1,$BDDAT
#*CATA,$BDDAT

$GDDAT
, $RDDAT
55%

#6,(SP)
#6,0(SP)
42, (SP)
PC,a(SP)+
#10,(SP)

RMER1TI,$BDDAT

$GDDAT, $BDDAT
60%

JREPORT

001142

THE

#*CI
, $BDDAT
LF

60%:

050366

ON AND

INTO RO

JNO !
JEXPECT AN ATTENTICN
;STRIP DONT CARES
;GET RECEIVED ATA

;STRIP DONT

CARES

;1S ATA 0K 2?
JYES 1!
;MOVE SP TO USERS ERROR CALL

;LOAD ERROR # IN CALL

;MOVE

SP TO ERROR RETURN

JREPORT ERROR
JRESTORE SP

JREPORT ERROR IfF IIF IS INCORRECT, I.E., IF ILF DOES NOT
WIiTH FUNCTION CODE TABLE
MOv
5008, $GDDAT
JGET EXPECTED JLF
#*CILF ,$GDDAT
BIC
;CLEAR ALL OTHER BITS

0C0000

000010
001140

BEQ
BIS
BIC

BIC
CMP
BEQ

55%:

0011740
001140
001142
001742
001142

AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR If
NOT SET AND SHOULD BE SET,
MoV
500%.,$GDDAT
;GET EXPECTED ATA STATUS
#ERR,RMDSI
BIT
:IS COMPOSITE ERROR SET ??

MOV

000010

050366
177776
001350
177776

LOCK

sGET AND STORE
Mov
MOV

000000

151
152

G 15

PAGE

. .i'tt'ttt"'llulfiltv"t't'tl*tttfitfilfii*ttt'

135 045240
136 045246

141
“62
143
144
145
146
47
148

11:43:28
~

Sus

:USING

1¢8 045222
129 065224
130 045230

131

4~APR=81

000010

B et

nLs PINVPINUNONY 2 =3t
~NON W
= OO ® N

b d D,

MATRO v04.00
~IRMMB0 RMOS/3/2 FCINL TST 1
SECONDARY ERROR (HECK SUBROUTINE

44, (SP)
#254,3(SP)
42,(5P)
SP)
+
410,

$GDDAT

AN ERROR IF WCE IS SET
MOV
500%,-(SP)
#*(WCE, (SP)
BIS
MOV
RM(S21, $BDDAT
(SP)+,$BDDAT
BIC

(OMPARE

;GET RECEIVED ILF
cCLEAR ALL OTHER BITS
;IS ILF ok ?2?
JYES !
sMOVE SP TO USERS ERROR CALL

;WRITE

ERROR NUMBER

IN CALL

;MOVE

SP TO ERROR RETURN

;MOVE

;REPORT ‘ERROR AND RE TURN
TO NO ERROR

EAR EXPECTED STATUS

AND SHOULD

WOT BE

SET

JGET WCE STATUS ENABLE
JSET ALL OTHER BITS
SRECEIVED STATUS
;CLEAR WCE IF ENABLED

JRMMBO RMOS5/3/¢2 FCTINL
UNDARY

ERROR (HECK

172 045456

SUBROUTINE

062716

(00004

175 065472
176 045476

162716
004736

000002

176

065464

177 045500

;;g 045504

MACRO v04.00

112776

000026

162716

000010

045504

013746

050366

182 65510
183 045514

'86 045522
185 0645526

186 045530

187 045534

188 045542

189 045546

190 045550

Jgg C45554
193
194

195
196
197
98
199

045554
045560
045566
045570
045574

200 045600
201 045606
202 045512

205 045614
204 045620
205 045626
206 045632
207 045634

BEQ
000000

Y
R
IR
J
B
R
e
P

042637
001412

062716

112776

162716

004736
162716

013746
(€32737
001402
042716
052716

013737
042637
001412

062716
112776
162716
004736
162716

157777
001350

001142
000004

000i164

000002

010000
167777

001376
001142

000004
000165
000602

220 045640

2¢1 065644
222 045652
223 045654
224 045662
225 045664
226 045670
227 045676
228 0645702

suB
JSR

#2,(SP)
PC,a(SP)+

ERROR

#26,3(SP)

;WRITE

JRESTORE

STATUS

500%,-(SP)

SET

000010

;BIT
;

ALL

#2,(SP)

;MOVE

#10, (SP)

;RESTORE

H
;

;

JEACH OF

RMERZI ,$8DDAT
(SP) +,$BDDAT
110¢%

#6,(SP)
#165,9(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)
OF

;CLEAR OPI IFf ENABLED
;BRANCH IF OP] OK

IS NOT

177777

004000

050366

004000

00134¢

004000
001350
001142

001142

TABLE

iv(C

IS THE ENABLING BIT FOR

I.E.,

RMER] - WLE, WCF

RMER2 - DPE

RMCS2 - JPE.
THESE

ERRORS

;REPORT AN ERROR

032737
001404
(03¢737
001002
042716
013737
042637
001412

ENABLED OR

;GET RECEIVED STATIUS
;CLEAR IVC IF ENABLED
JBRANCH 1F 1vC OK
;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
JREPORT ERROR
;RESTORE SP TO NO ERROR

IS CHECKED

;WRITE ERROR ENABLE BIT IS RESET.

012746

;GET IVC STATUS ENABLE
;1S Vv SET
:NO !!
;YES = IvC SHOULD BE O
;SET ALL OTHER BITS

THE FUNCTION CODE

ERRORS,

TO ERROR RETURN

JREPORT ERROR

5008,-(sP)
#VV ,RMDSI
105$%
#1vC, (SP)
#*C1VC, (SP)

(WLE)

WRITE

;SET ALL OTHER BITS
;GET RECEIVED STATUS

;WRITE ERROR NUMBER IN (ALL

PC,a(SP)+

MOV
BIC
BEQ
ADD
MOVR
SUB
JSR
SUB
171

SHT

SP TO USER'S ERROR CALL

MOV
BIT
BEQ
BIC
BIS

1108%:

NOT BE

STATUS ENABLE

;MOVE

#164,9(SP)

sSuB

000000

SHOULD

:GET OPI

44, (SP)

sSuB

105%:

AND

ERROR

ADD

cREPORT ERROR IF IVC IS SET AND
JSET AND VV IS NOT RESET

001142

ERROR NUMBER

sMOVE SP TO ERROR RETURN
;REPORT ERROR

(SP) +,$BDDAT
1008

JSR

001346

4#%COPI, (SP)
RMER1],$BDDAT

MOVB

100%:

WCE

BIS
MOV

8I(C
BEQ

000000

OP]

sMOVE SP TO USER'S ERROR (ALt

#10, (sP)

MOV

001142

;BRANCH

44, (SP)

SuB

;REPORT

000010

050366
000100

90%

ADD

MovB

90%:

VBN W=
O

583 045640

052716
013737

H 15
11:43:¢8 PAGE 22-3
SFQ 0189

'81

4-APR-81

001472

175 0656460

LaSTANL V], U1, N LWL, VT, V1N

TST

WLE

TO SEE

SET AND WRITE

’

AN ERROR

IS SET WHEN THE

ERRORS ARE NOT

ENABLED,

;THE DRIVE IS NOT WRITE PROTECTED
MOV
#=1,-(SP)
JASSUME WRITE ERRORS ENABLED
BIT
#WLE , 5008
;ARE WRITE ERRORS ENABLED ??
BEQ
115%
JNO ..

115%:
120%:

817
BNE
BIC
Moy
BIC
BEQ

#WRL ,RMDS |
120%
AWLE, (SP)
RMERT],$8DDAT
(5P)+ ,$BDDAT
125%

;1S tHE DRIVE WRITE PROTECTED 27
JYES !
JRESET WLE ENABLE
;GET RECEIVED STATUS
;CLEAR WLE IF ENABLED
JBRANCH IF WLE OK

IFf

IRMMBO RMOS5/3/¢ FLINL TST 1
MACRO v04.00
SECONDAR: ERROR CHE!'K SUBROUTINE

229 045704

230 045710
231 045716
232 045722
233 045726

Sgg 0465730

0627'6

000004

112776
162716
004736
162716

000010

012746

177777

(00023
000002

238 145734

235 045742
2«0 065764
241 065750
262 065756
2463 045762
264 045764
265 045770
246 045776

267 046002
268 C46004
ggg 046010

251
252
253
254
255
256
257
258
259

046010
046014
066022
046026
046030
046036
046042
046044

260 046050
261 046056

262 046062
263 046064

Sgé 046070
266
267 046070
268 066074
269 046102

270
271
272
273
276
275
276
277

046104
046110
046116
046122
046124
046130
046136
046142

278 046144

ggg 046150
28i
282
283
284
285

046150
046154
046160
046166

032737

001002
042716
013737
042637
001412
062716
112776
162716

125$%:

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

;REPORT

006000

050366

000040
001350
001142

001142

000004
000025
000002

000000

000010

177777
004000
000010
001376
001142

000004

000040
000002

001142

0C0000

000010

SEQ 0190

ERROR

BIT

130%:

#4, (SP)

MOVB
SUB
JSR
5UB

MOV

135%:

050366

115

'':43:¢8 PAGE 22-4

ADD

000000

336

237 065730

4=~APR-81

BNE
BIC
MOV
BIC
BEQ
ADD
MOVB
SUB
JSR
SuB

;MOVE SP TO USERS ERROR CALL

#2%,3(sP)
#2.(SP)
PC.a(SP)+
#10, (SP)
IF

WCF

SET

#=1,-(SP)

;WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN
:REPORT ERROR AND RE TURN
*RESTORE SP TO NO ERROR
AND

aw. E,5008

1308
#WCF , (SP)
RMERTI,$BDDAT
(SP)+,$BDDAT
135%
#4, (SP)
#25,3(SP)
#2,(SP)
PC.R(SP)+
#10, (SP)

:REPORT ERROR [F DPE IS SET AND
MOV
#=1,-(SP)
.
BIT
MILE , 5008
BNE
1408
BIC
#DPE , (SP)
140%:
MOV
RMERZI,$BDDAT
BIC
(SP)+,$BDDAT
BEQ
145$
ADD
84, (SP)
MOVB
SUB

1458

JSR
SUR

#40.3(SP)
#2,(SP)

PC.a(SP)+
#10, (SP)

WRITE

ERRORS

ARE

NOT

ENABLED

;ASSUME WPITE ERRORS ENABLED

:ARE WRITE ERRORS ENABLED 27

YYES 1!
‘DISABLE WCF ERROR
:GET RECEIVED STATUS
SRESET WCF [F ENABLED
:BRANCH IF WCF OK
:MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN
*REPORT ERROR
*RESTORE SP TO NO ERROR

WRITE ERRORS ARE NOT ENABLED
;ASSUME WRITE ERRORS ARE ENABLED
;ARE WRITE ERRORS ENABLED 27
TYES 1}
*RESET DPE ENABLE
-GET RECEIVED STATUS
*RESET DPE IF ENABLED
:BRANCH IF DPE OK
/
:MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN

“REPORT ERROR
*RESTORE SP TO NO 'ERROR
/

050366

020000
001344
001142

;REPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
;ASSUME WRITE ERRORS ARE ENABLED
BIT
#ILE 5008
*ARE WRITE ERRORS ENABLED 72
BNE
1508
YYES !

001142

1508:

000004
000024
000002

000000

177777
004000

162716

000010

013746
052716
013737
042637

050366
175777
001350
001142

1558 :

001142

BIC
MOV
BIC
BEQ
ADD
MOVB
SUB
JSR
SUB

#UPE , (SP)
RMCS2I,$BDDAT
(SP)+,$8DDAT
155%
24 (SP)
#24,3(5P)
#2,(SP)
PC,@(SP)¢

#10, (SP)

:DISABLE UPE ERROR
:GET RECEIVED STATUS
:RESET UPE IF ENABLED
‘BRANCH IF UPE OK
:MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

*MOVE

SP TC NO ERROR

SREPORT AN ERROR If IAE 1S SET AND IS NOT ENABLED
MOV
5008, ~(SP)
:GET IAE ENABLE
BIS
#~(1AC, (SP)
*SET ALL OTHER BITS
MOV
RMER1].$BDCAT
:GET RECEIVED STATUS
BIC
(SP)+, BBDDAT
;CLEAR IAF [F ENABLED

“ZRMMBC RMOS5/3/2 FCINL

TST

SECONDARY ERROR CHECK SUBROUT INE

310 046220
046226
046232
046234
046240
046246
046252
046254
046260
046266
320 046272
321 046274
322 046300

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

325 046300
326 046304
327 046312
328 046314
329 046320
330 046326
331 046332
332 046334
333 046340
334 046346
335 046352
336 046354
337 046360
338
339
30 046360

(12746
032737
001002
042716
013737
042637
001472
062716
112776
162716
004736
62716

N WA

—d ——d —— —

el e

il
—t

N AN

OO0 NN
NN —

001472
062716
1°2776
162716
004736
162716

286 046172
287 046176
288 046200
289 046206
290 066212
291 0646214
292 046220
293
294
295
296
297
298
299
300
301
302
303
304
305
306

341 046364

3¢ 046372

G0O0004
000166
000002

MACRO v04.0C

J 15

4-APR-B1

11:43:¢28 PAGE 22-5
SEU 0191

BEQ

000000

000010

160¢

ADD

44, (SP)

JSR

PC,a(SP)+
#10, (SP)

MOvB
Sus

JBRANCH |F JAE IS 0K
;MOVE SP TO USERS ERROR (ALL
;WRITE ERROR NUMBER
sMOVE SP TO ERROR RETURN

#166,9(SP)
#2,(SP)

160%:

:BIT 09 (AOE) OF

: REPORT ERROR AND RETURN

sMOVE SP 10 NO ERROR

THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR

; ALL READ/WRITE ERRORS,

I.E.,

RMCS1 -~ TRE
/RMCSZ = DLT ,NEM, MxF
RMDS

*NOTE:

=~ LBT

!/ RMER1 - AOE

LBT IS NOT CHECKED BECAUSE

“CYLINDER REGISTER IS WRITTEN
;NOTE:
:
JNOTE:

_
012766
032737

001002

177777
001000

050366

100000
001344
(01142

001142

000004
000032
000002

000000

000010

177777
001000

TRE

165%:

000000

#AOE , 5008
165%

#DLT, (SP)

RMCS2],$BDDAT
(SP)+,$8DDAT
170%

ADD

#4, (SP)

JSR

PC,a(SP)+

MOVB
SUB

#32,a(SP)
#2,{SP)

SuUR

MOV

050366

000004
000167
000002

#10, (5P)

OTHER ERROR CONDITONS ABGVE

175%:

#AQE ,500%

BNE
BIC
MOV
BIC
BEQ

175%
ANEM, (SP)
RM(CSZ2] ,$8DDAT
(SP) + ,$8DDAT
180%

ADD

#4,(SP)

SUB

#2,(SP)

SUR

#10, (SP)

MOVB

JREPORT FRROR

MOV

BIT

BNE

;ARE ERRORS ENABLED ??
SYES U
;RESET DLT ENABLE

;GET RECEIVED STATUS
;CLEAR DLT IF ENABLED
;BRANCH [F DLT IS OK
:MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL

;MOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

;MOVE SP TO NO ERROR

#-1,-(SP)

B8IT

“80%:

050366

IS NOT ALSO SET

[F NEM [S SET AND READ/WRITE ERRORS ARE NOT ENABLED

#167,9(SP)

JSR

000010

LRT

CHECKED AS A FUNCTION OF

BIT
BNE
BIC
MOV
BIC
REQ

JREPORT ERRGR

001142

;REPORT AN ERROR IF DLT IS SET AND READ/WRITE ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
: ASSUME ERRORS ARE ENABLED

170%:

004000
001344
001142

177777
001000

AOE CANNOT BE SET

IT ONLY RESETS WHEN THE DESIRED

PC,2(SP)+

MxF

ERRORS ARE ENABLED

: YES !!
: DISABLE NEM
N GET RECEIVED STATUS
. CLEAR NEM [F ENABLED
: BRANCH IF NEM IS 0K
; MOVE SP TO USERS ERROR CALL

: WRITE ERROR NUMBER IN CAL.

: MOVE SP TO ERROR RETURN
M REPJRT ERROR AND RETURN

: MOVE SP TO NO ERROR

SET AND READ/WRITE ERRORS ARE NOT ENABLED
; ASSUME ERRORS ARE ENAB_ED

#-1,-(SP)

#AQE , 500%
"85%

: ASSUME

H ARE ERRORS ENABLED ??

; A?g DeTA ERRORS ENABLED ??

SECONDARY ERROR (HECK SUBROUT INE

343 0463764
344 066600
345 045606
366 0664612
3467 0466414
348 046420
349 046426
350 046432
351 0464634
352 046440
353
354
355 Q46440
356 046444
357 046452
358 0464564
359 046462
360 046464
361 046470
362 (046476
363 046502
364 066504
365 046510

366 046516

367 0466522
368 046524
369 046530
370
371
372
373
374
375
376
377 046530
378 046536
379 046540
380 (046546

042716
013737
042637
001412
062716
112776
162716
004736
162716

012746
032737
001404
032737
001002
042716
013737
042637
001412
062716
112776

162716

004736
162716

MACRC v04.00

0601000
(01344
001142

001142

000004
000033
000002

000000

000010

177777
001000

050366
001346

001000
001350
001142

001142

BIC

MOV

BIC
BEQ

K 15

11:43:28 PAGE 22-6

ERROR

MOVB

#35.3(sP)

;WRITE ERROR NUMBER

JSR

PC.a(SP)+

SUB

;REPORT ERROR
MOV
BIT

200%:

:DISABLE MXF

-GET RECEIVED STATUS

:CLEAR MXF IF ENABLED
‘BRANCH IF MXF IS OK

ADD

000000

#MXF , (SP)

RMCS21,$BDDAT
(SP)+,$BDDAT
1908

BEQ
BIT
BNE
8IC

#4,

(SP)

IN rALL

;MOVE SP TO ERROR RETURN

;REPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

#10, (SP)

IF AQE IS SET AND DATA ERRORS ARE NOT ENABLED
#=1,-(SP)
JASSUME DATA [RRORS ARE ENABLED
#AOE ,500%

;ARE

191%
#.BT ,RMDS]
1958
#AOE, (SP)

RMER1I,$BDDAT
(SP) +,$BDDAT

ADD

#4, (SP)

MOvB
suB
JSR
SuB

;MOVE SP TO USERS ERROR CALL

#2,(SP)

MOV
8IC

BEQ

000010

DATA ERRORS EANBLED

JNO !,
;IS LBT ALSO SET
JYES
!
;DISABLE AOE

;GET RECEIVED STATUS
;CLEAR AOE IF ENABLED

200%

;BRANCH IF AQE IS 0K
;MOVE SP TO USERS ERROR C(ALL

#20,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;WRITE

ERROR NUMBER

;MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

;BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
;HEADER ERRORS, I.E.,
RMER1 ~ HCRC,HCE,FER
RMER2 - BSE

032737
001403
042737

002000

001366

000200

050366

383 046546
384 046552
385 046560
386 046562
387 046566
388 046574
389 046600
390 046602
391 046606
392 046614
393 046620
396 046622
395 Q46626

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

000010

177777
000200

198 04662¢

012746

17777

000400
001350
001142

000004
000035
000002

032737

(0020

JRESET THE ENABLING BIT
BIT

201¢%:

BEQ
BIC

(HCE)

#HC1,RMOF|

201%
#HCE,500%

;REPORT AN ERROR IF HCRC
050366
001142

205%:

AND HEADER ERRORS ARE NGT ENABLED
JASSUME ERRORS ENABLED

ADD

#4,

SUB

#2,(<P)

;MOVE SP TO USERS ERROR (ALl
JWRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

MOVR

000000

JSR

210%:
JREPORT

055366

IF HEADER (OMPARE INHIBIT S SET
:18 fiFI SET ??
!
;NO
JYES - DISABLE ALL HEADER ERRORS

1S SET
#-1,-(SP)
#HCE,S00%
2058
#HCRC, (SP)
RMER11,$BDDAT
(SP)+,$BDDAT

MOV
BIT
BNE
BIC
MOV
BI(

BEQ

396

396G 046632

85%:

190%:

002000

000004
000020
000002

4=-APR-B1

SEQ 019¢

—

TST

Aol
o)

"JRMMBC RMOS/3/2 FCTNL

SUR

210%

(SP)

#35,3(sP)
PC.a(SP)+

#10, (5P)

ERROR IF HCE IS SET
MOv
#-1,-(SP)
BI7
#HCE, 5008

;ARE HEADER ERRORS ENABLED
JYES !
;DISABLE HCRC
;GET RECEIVED STATUS
sRESET HCRC IF ENABLED

;BRANCH IF HCRC

IS OK

;MOVE SP TO NO ERROR

AND HEADER ERRORS ARE NOT ENABLED
JASSUME ERRORS ENABLED
;ARE ERRORS ENABLED 72

JRMMBO RMOS/3/2 FCTINL

SE CONDARY

402 V46646
403 0466564
046650
066662
046666
0466676
046700
046702

f;? 0466706
412
413 046706

614 066712
415 04672C
6416 066722

6°7 046726
478 046734
619 G46740
620 046762
421 046746
422 046754
423 046760
424 046762
425 046766
626
427
428 046766
429 046772
430 047000
431 047002
632 047006
433 047014
434 047020
435 047022

436 047026

437
438
639
22?

ERROR CHECK SUBROU
INE
T

400 046640
601 u6bbh2
606
635
406
607
408
609

TST

047034
047040
067042
047046

4462

444
445
446

001002
062716

013737
042637

001412
062716
11277€¢
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
162716

(00200
001350
001142

000004
000036
000002

MACRO vCw.,0C

000020
001350
001142
000004
000037

000002

001142

100000
001376
001142

000004

000354

(000002

456 047062
455 Q67066
456 047076

22-7

215$
#HCE, (SP)

MOV
BIC

RMERT
] SBDDAT
(SP)+,$BDDAT

220%:
sREPORT
050366

001142

ERROR
MOV

BIT
BNE
225%:

BIC
MOV
BIC

001142

000000

000010

SUB
JSR
Sus

MOvB
SUB
JSR
suB

JBIT 06 OF

;WRITE ERROR NUMBER [N CALL
;MOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

#HCE, 5008
225%
#FER, (SP)

24,

(SP)

#37.3(SP)

#2,(SP)
PC.a(SP)+
#10, (SP)

#3584, a(SP)

#2,(SP)
PC,a(SP)+
#10, (SP)

:cgg figADER ERRORS ENABLED ’?

;DISABLE FER
;GET RECEIVED STATUS
JRESET FER IF ENABLED
JBRANCH IF FER OK
:MOVE SP TO USERS ERROR (AL

sWRITE ERROR NUMBER

IN CALL

:MOVE SP TO ERROR RETURN

JREPORT ERROR AND RETURN

;MOVE SP TO NO ERROR

HEADER ERRORS ARE NOT

ENABLED

;ASSUME ERRORS ENABLED
;ARE THEY ENABLED ??
JYES !
;DISABLE BSE
;GET RECEIVED STATUS
;CLEAR BSE IF ENABLED
;BRANCH IF BSE 0K
;MOVE SP TO USERS ERROR CALL

JWRITE ERRGR NUMBER

;MOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA

;FIELD ERRORS,

;
:
sNOTE:

JYES !
;DISABLE HCE
;GET RECEIVED STATUS
;CLEAR HCE [F ENABLED
JBRANCH IF HCE IS Ok
;MOVE SP TO USERS ERROR (ALL

FER 1S SET AND HEADER ERRORS AKRE NOT ENASLED
#-1,-(SP)
JASSUME FER IS ENABLED

;REPORT ERROR IF BSE IS SET AND
MOV
#~1,-(SP)
B8IT
WHCE ,500%
BNE
2258
BIC
#BSE , (SP)
235%:
MOV
RMERZ],$BDDAT
BIC
(SP)+ ,$BDDAT
BEQ
2408
ADD
#4, (SP)

240%:

‘

2308

MOVR
230%:

#36,a(SP)
#2.1SP)
PC.A(SP)+
#10,(SP)

RMERT
], $BDDAT
(SP) +,$BDDAT

ADD

000000

#6, (SP)

MOVR
SUB
JSR
SUB

BEQ

050366

220%

ADD

000000

44’
223

450
651 047046
452 V47052
«53 047060

2°5%:

BNE
8IC

BEQ

000010

177777
000200

L 15

11:43:/8 PAGE

SEQ 0193

000010

1777277
000200

&=-AFR=-B1

I.E.,

RMCSZ ~ MDPE
RMER1 - D(K,ECH

:
ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND
;DCK IS SET.

012746
032737
001002
042716
013737
0462637

177777
000100
000400
001344
001162

050366
001142

JREPORT ERROR
MoV
BIT
BNE
245%:

BI(
MOV
BI(

IF MDPE IS SET AND IS NOT ENABLED
#=1,-(SP)
JASSUME ENABLED
#ECH,500%
;ARE DATA FIELD ERRORS ENABLED °?
245%
JYES .
#MDPE , (SP)
RMCS21,$BDDAT
(SP)+,$BDDAT

;DISBALE MDPE
;GET RECEIVED STATUS
;CLEAR MDPE [F ENASLED

"ZRMMBO RMOS5/3/2 FCINL

TST

SECONDARY ERROR (HE(CK SUBROUTINE

457 067100
458 047102
459 047106
460 047114
461 047120
462 067122
463 047126
464
465
466 047126

467 047132
408 047140
469 047142

470 047146

471 047154
047160
047162
047166
047174
476 (47200
477 047202
478 047206
472
473
474
475

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

MACRO v04.00

050366

000000

2608
;REPORT

492 047246

493
494
495
496
497

047254
047260
047262
047266
047274
498 047300
499 047302
500 047306

:
012746
032737
001410
032737
001004
032737
001002
042716
013737
042637
001412
062716
112776
162716

004736
16271,

177777
000100

05036

004000

001566

100000

1350

000105

001350

001142

000004
500031
000002

000000

007142

000010

SUB

BIC

JSR
SUB

#ECH, 5008
255%

JARE THEY ENABLED 7?
JYES !

RMER1I,$BDDAT
(SP)+,$BDDAT
260%
#4,(SP)
#30,3(SP)
#2,(SP)

;GET RECEIVED STATUS
;CLEAR DCK IF ENABLED
;BRANCH IF DCK IS5 OK

PC,a(SP)+
#10, (SP)
IF

ECH

SET

ENABLED

;DISABLE DCK

;MOVE

;WRITE

SP TO USERS ERROR CALL
ERROR NUMBER

[N CALL

sMOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN

:MOVE SP TO NO ERROR
AND,

DATA FIELD ERRORS ARE NOT ENABLED, OR

ECI IS SET, OR
DCK IS NOT SET.
MOV
#-1,-(SP)
BIT
#ECH,500%
BEQ
265%

#ECI ,RMOF |

BNE

265%

BIT .

#DCK ,RMER1 |

BNE
BIC
MOV
BIC
BEQ

2708
HECH, (SP)
RMER1],$8DDAT
(SP)+,$8DDAT
275%

ADD

MOVR
SuB
JSR

275%:

DCK IS SET AND DATA FIELD ERRORS ARE NOT
#-",-(SP)
;ASSUME ENABLED

#DCK, (SP)

MOV ’
BiC
BEQ
ADD
MOVB
SUB

BIT

265%:
270%:

;WRITE ERROR NUMBER IN (AL!
;MOVE SP TO ERROR RETURN
JREPORT ERRGR AND RE TURN
JMOVE SP TO NO ERROR

#10, (SP)

ERROR
MOV

ERROR

sMOVE SP TO USERS ERROR (ALL

#2,(SP)
PC.a(SPY+

BIT
BNE

255%:

:BRANCH IF MDPE OK

(SP)

#27,3(SP)

>UB
JSR

;REPORT

001142

24,

MOVB
250%:

22-8

2508

ADD

000000

481

4,85 047212
486 047220
487 047222
488 047230
489 047232
450 047240
491 047242

11:43:28 PAGE

BEQ

479
480

482
483
L84 047206

M 15

4-APR-81

#4, (SP)

4#31,2(SP)

#2,(SP)
PC,a(SP)+
#10, (SP)

:ASSUME ENABLED

JARE ERRORS ENABLED ?7

JNO

;1S ECI SET 22

JYES

;IS DCK ALSO SET

JYES !
;DISABLE ECH
;GET RECEIVED STATUS
;CLEAR ECH IF ENABLED
;BRANCH IF ECH IS Ok

:MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL

;MOVE SP TO ERROR RETURN
JREPCRT CRROR AND RETURN

;MOVE

SP TO NO ERROR

JRYMBO RMOS5/372 FCINL

= O 000 NN IR = O 000 OISR -4

047322
047330
047332
047340
047342
047346
047354
047360
047364
047366
047372
047374

POPONIND
2
2 Db et b

ERROR C(HECK SUBROUT INE

SECONDAR

TIST

MACRO

v04.00

4-APR-81

N1
11:43:¢28 PAGE 2

SEQ@ 0195

":'..'t"tt!ttt*ttlt"""'fitfi."t.ttit"‘Qt"'..t'tt

. *PERFORM
A

047306
047314
047316

26 047402
047410
047414
047422

047430
047432

022737
“03402

001142

040000

001334

000004
000015

BIT
BNE

000000

MOVRB

001140
000002

CMP

001336

112776
005037
162716
004736
162716
000240

REMAINING ERROR

JREPORT ERROR

280%:

MOV
BEQ

280%
355%

#4,(SP)

#15,2(SP)

CLR
SuB
JSR

000010

SuUB

;REPORT

ERROR

DATA

TRANSFER

(OMMANDS

;WAS DATA

JBR IF YES
JNO - EXIT

RMBA

TRANSFERRED

IS ZERO

;WORD COUNT ZERO??
JYES

TRANSFER ERROR DETECTED??
JYES!

.GOOD DATA FOR TYPEOUT
JMOVE SP TO RETURN FOR ERROR
;REPORT WORD COUNT NOT Z2ERO

#10C,(SP)
[F

FOR

;ERROR NUMBER

$GDDAT
#2,(SP)
PC,a(SP)+

NOP

ONLY

RMW(C NOT ZERO AND TRE

RMW(C ! ,$BDDAT
285%

#TRE ,RMCS1]
285%

ADD

CHECKS

s st
s
t
T
AR
t
Y

#SEARCH,515%

BLO
JMP

013737
001421
032737
001015
062716

JRESTORE (SP)

IS NOT

CCRRECT

013737
163737
06337
063737

001336
001412
001140
001414

001140

ASL
ADD

$GDDAT
RMBAQ, $GDDAT

v 2
.ADD STARTING BUS ADDRESS

032737
001403
013737

000010

001344

BIT

#BAI,RM(CS2I

;WAS BUS ADDRESS INHIBIT (BAI) SET 77

001414

001140

023737
001416
013737
062716

001140

001340

CMP

$GDDAT ,RMBA]

;BUS ADDRESS 0Kk??

MOV
ADD

RMBA],$BDDAT
#4,(SP)

;BAD DATA FOR TYPEOQUT

047506
047506
047512

005046
013746
163716

047516
047522
047530
047532

012746
032737
001402
062716

047536

005266

047550

050374

050340

000240

047546

LAASAAAR AR A

000137

047440
047446
047450
047456
047462
047470
047474
047476
047502

047542

000036

.t'.!ttQ'tt'

THE

112776
162716

001340
000004
000016
000002

162716

000010

004736

161665

on3373
022426

001140
001140

285%:

MCV

SUR

BEG
MoV

290%:

001142
000000

BEQ

MOVB
SUB

JSR

SUB
NOP

RMWCI ,$GDDAT

RMW(CO, $GDDAT

290%
RMBAOQ, $GDDAT

295%

#16,2(SP)
42,(SP)

PC,R3(SP)+

001336
001412

000400
000002

001410

000002
000004
000002

300%:

COUNT AT

END OF

TRANSFER AND

JNO T
;ADDRESS SHOULD NOT HAVE CHANGED

JYES!.

;ERROR NUMBER
sMOVE SP TG RETURN FOR ERROR

JREPORT UNEXPECTED ADDRESS

#10, (SP)

. COMPUTE NUMBER OF

295%:

;GET WORD

;SUBTRACT STARTING WORD COUNT.

JRESTORE

SECTGRS

(SP)

TRANSFERRED FROM WORD COUNT

(LR

-(SP)

SUB

RMWCO, (SP)

;SUBTRACT STARTING WORD COUNT.

MoV
BIT
BEQ
ADD

#256.,-(SP)
#BIT1,RMCSTO
300%
#2.(SP)

JASSUME 256. WORDS PER SECTOR
JHEADER & DATA COMMAND ??
JNO !
:CHANGE TO 258. WORDS PER SECTOR

INC

4(SP)

s INCREMENT SECTOR COUNT

BGT

300%

;CONTINUE

MoV

SUB

{MpP

RMWC] ,=(SP)

(SP),2(SP)

;GET WORD COUNT AT END OF

;SUBTRACT ONE

(SP)+,(SP)+

;COMPUTE EXPECTED SECTOR,

;NUMBER OF SECTORS TRANSFERRED

TRANSFER AND

SECTOR'S WORTH

IF NOT DONE

JRESTORE STACK

TRACK AND (YL INDER ADDRESS FR(OM

"IRMMBO RMOS/3/2 FCTNL TST °
MACRO v04.00
SECONDARY ERROR (ME(K SUBROUT
INE

59 067552

50
6%
62
63

047560
047566
047574
047602

6? 467606

013737

013737
013737
013737
000337

(01444

001416
001416
001332
050376

050366

050376

66 047612
67 047620

042737
000337

000377
050370

gg 047632

062637

050372

177400

050372

71 047636
72 247646

023727
103406

050372

000040

764 047652

162737

68 (67626

73 047646

Q42737

005237

;2 047€50

000766

77 C47662

023737

78 047670
79 047672

80 047676
477046
g% W 7706
B4
85 047710

86 047710
87 047714
88 047722
89 047726
90 047732

91
92
93
94
95

97
98
99
100

;8}

103
104
105
106
107
108
109

110

111
112

103407

005237

163737
Q00766
000240

005037
023727
101407
(032737
001003

04773
047742
047750
047756
047764
047766
047772
050000
C50004
050006
050012

(12737
013737
042737
023737
001413
062716
112776
162716
004736
162716
000240

050014
050020
050026
050030

005037
032737
001031
023727

050036
050040
0500446
050046
050052

13 050054

e 0S0062

101425
(05737
001012
005737
001007

032737

007413

050370
000040

050370

310%:

520%

9001350

002000
001346
175777
001140

001140
001142
001142
001142

A" (<SADMSK>,510%

CMP
8LO

5108,432.
315¢%

;SECTOR OVEF({OWED??
JNO!.

suB

#32..510%

;ADJUST SECTOR

(MP

505%,520%

000C00

000010

001350

050366

001466

(050370

(050372

050374

3108

INC

MoV
MOV
BIC
{MP
BEQ

ADD

MOVB
SUB
JSR
SuB

NOP

001140
002000

505%

BLO

(LR
(MP
BLOS
8IT
BNE

TRACKS.

;SAVE SECTCR ADDRESS BITS

(SP)+,510%

; INCREMENT TRA(K

;TRY AGAIN

;TRACK OVERF[LOWED??

320%

INO!!

520%,505%
3158

;ADJUST TRACK
:TRY AGAIN

500%

SUB
BR
NOP

325%:

s INCREMENT TO GET TOTL # OF

#~C<TADMSK>,505%
. SAVE TRACK ADDRESS BITS AND
505%
;SWAP TRACK ADDRFSS TO LOW BYTE.

BR
315%:

:STORE ORIGINAL TRA(K
;STORE ORIGINAL SECTOR
.STORE LAST TRACK,
cGET TRACK ADDRESS 10 LO BYTE AND

B8IC

¢REPORT ERROR
320%:

002000

000010

INC

:STORE ORIGINAL CYLINDER

RMDAQO, 505%
RMDAQ,510%
LSTRK,520%
5208

INC

(050370

001466

000004

RMD(CO, 500%

ADD

050372

001140
050366

000C17
000002

MOV

BI(
SWAB

050366

050376

SEQ 019¢

MOV
MOV
MOV
SWAB

05037C

050376

8 16
11:43:¢28 PAGE 23~

;NUMBER OF SECTORS

050370
050372
050376

005237

4-APR-B1
.

; INCREMENT

CYLINDER

"LBT''
IS NOT CORRECT

$GDDAT
500%,4822.
3258
#1AE .RMER1]
325¢%

:SET GOOD DATA fOR LRT
0
. SHOULD LBT BE SET??
sNO..
sWAS IAE SET ??
sYES = LBT SHOULD NOT BE SET

#LBT ,$GDDAT
RMDS] , $BDDAT
4~ 1 BT, $8DDAT
$CDDAT,$BDDAT
3308

;IS LBT CORRECT??
SJYES.!

#17,9(SP)
#2.(SP)
PC,a(SP)+
#10.,(SP)

. ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
"
;REPORT LBT IS WRONG
;RESTORE (SP)

#4,(SP)

;SET GOOD DATA fOR LBT - 1
;BAD DATA FOR TYPEOUT

;REPORT ERROR IF "'AOE''
IS INCORRECT
330%:
CLR
$GDDAT
JSET FOR AOE = 0
BIT
#IAE ,RMER1]
;WAS "‘IAE'' DETECTED??
BNE
3408
sYES-"'AQE'" SHOULD BE ZERD
{Mp
500%,4#822.
sSHOULD AQOE BE SET??
BLOS
T57
BNE
1ST
BNE

BIT

BEQ

340%
505%
335%
510%
335%

CYES

340%

INO

HF2,515%

SNO!!
;MAYBE

JYES

;WAS THIS READ OR WRITE (HE(K “?
..

NN
AN = OOV
N OO NN

gfrowrowr

I SN e

)

iAo
VN NR) — OOV~
AN

P S

NN NN

el W

—y B TR d

TR S

N WWNWWWRAINOINDNINONONINIPORA,

WS o aed e nd » » a

N - OO0 ~NOun

JRMMBY RMOS/3/2 FCINL TST 9
MACRO Vv04.00
"ETUNDARY ERROR (HMECK SUBROUT INE

050064
050070
050072
050100
050104
050112
050120
050126
050134
050136
050142
050150

050154
050156
050162

050164
050172
050174
050202
050206
05C214
050222
050230
050232
050236
050244
050250
050252
050256

050260
050266
050274
050302
050310
050312
050316
050324
£50330
050332
050336

050340
050344
050350
050352
050356
050360
050364

167
168 050366

169 050370
170 050372
171 050374

005737
001410
012737
005037
012737
013737
0642737
023737
001413
062716

001336
0019000
050370
000001
001350
176777

001140

001140
050372
001142
001142
001142

112776
162716

000004
000020
000002

162716

000010

032737
001062
013737
000337

002000

001350

050370
001140
050372
001342
001140

001140

004736
000240

113737
013737
023737
001413
062716
112776
162716

000004
000021
000002

162716

000010

004736
000240
013737
042737
013737
023737
001413
062716
112775
162716

004736
162716
000240

062716

105776

001403
062716
000402
162716

000207
000000
000000
000000
000000

4-APR-81

335%:
340%:

SEQ 0197
TST

RMWC]

:%g ALL DATA TRANSFERRED 2?

MOV

#AQE
, $GDDAT

“SET FOR AOE = 1

MOV

#1,510%

BEQ

176000

001370
001140

000004
000022
000002

MOV

RMER1] ,$BDDAT

BIC
CMP
BEQ

#*CAOE ,$BDDAT
$GDDAT,$BDDAT
3458

&4 ,(SP)
#20,9(SP)

SuUB

#2,(SP)

JSR
SuB
NOP
s REPORT

345%:

ERROR

BIT

BNE

MOV
SWAR
MOVB
MOV
CMP
BEQ
ADD
MOVR
SUB
JSR

001140
001142
001142

000000

SUB

001140
001140
001142
001742

;REPORT

350%:

ERROR
MOV
BIC
MOV
tMP

BEQ

000000

355%:

360%:
265%:
:
5008
505%:
510%:
515%:

PC,a(SP)+
#10, (SP)

RMDA

IS NOT

HIAE ,RMERT]

355%

505%,$GDDAT
$GDDAT
510%,$GDDAT
RMDA] ,$BDDAT
$GDDAT ,$BDDAT
350%
#4, (SP)
#21.,9(SP)
#2,(SP)
PC,(SP)+

#10, (SP)

*CLEAR EXPECTED TRACK
*EXPECT SECTOR =

*BAD DATA FOR TYPEOUT
;1S AOE CORRECTY??
.
JYES.

;
:ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
;REPORT AOE IS WRONG
sRESTORE (SP)
CORRECT
;WAS THERE AN JAE
;YES - DONT CHECK

ERROR ??
RMDA,RMDC

;SETUP EXPECTED DISK ADDRESS

;SETUP RECEIVED DISK ADDRESS
: COMPARE EXPECTED & RECEIVED
JBRANCH [F EQUAL

;ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR

JREPJRT BAD

JRESTORE

DISK ADDRESS

(SP)

IF RMDC IS INCORRECT
5008, $GDDAT
;SETUP EXPECTED CYLINDER
#~C1777 ,8GDDAT
RMDCI,$8BDDAT
sSETUP RECEIVED CYLINDER
$GDDAT,$BDDAT

355%

;COMPARE CYL INDERS
;BRANCH IF EQUAL

ADD
MOVR
SuB
JSR
SUB
NOP

#4, (SP)
#22,a(SP)
#2,iSP)
PC,a(SP)+
#10, (SP)

ADD
TSTR

#4,(SP)
a(SP)

;MOVE (SP) TO ERROR CALL
;WAS ERROR FOUND??

ADD

#4,(SP)

JMOVE

(SP)

TO ERROR RETURN

RTS

;MOVE

(SP)

TO NO ERROR RETURN

.WORD

;CYLINDER

-WORD
.WORD

0
0

sJFUNCTION CODE

BEQ

000004
000004

505%

ADD
MOVB

00000C

000010

000004
000000

3408

CLR

NOP

050266

C 1

11:43:28 PAGE 23-2

BR
SuB

.WORD

360%

365%
84, (SP)

;ERROR NUMBER
JMOVE SP TO RETURN FOR ERROR

JREPORT BAD

JRESTORE

C(YLINDER

(SP)

; TRACK

:SECTOR

CZRMMBO RMOS5/3/2 FCINL TST 1

SECONDARY ERROR (HECK SUBROUT INE

172 €50376

000000

MACRO v04.00

4~-APR-81

D 16
11:43:28 PAGE 23-3
SEQ D19%

520%:

LWORD

sTOTAL # OF

TRACKS = LAST TRA(K 1

CZRMMBO RMOS5/3/2 FCTINL
ERROR

CHECK

SUBROUTINE

MACRO Vv04.00

O 000 NN
NN OV 00 O N NP
-

COMPOSITE

TST

E 16

11:43:28 PAGE 24

“EQ 0199

.SBTTL
sTHIS

(COMPOSITE ERROR CHE(CK SUBROUTINE
SUBROUTINE

CHECKS

THE

STORED CONTENTS OF

RMER1

AND

""MERZ2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS
JMASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER
:THE

MASKS

[N S NN
N S S
S

(1)
.

ARE

APPLIED.

JSR
.WORD
.WORD
B8R
NOP

PC,CMPERRSTS

JSR
227

PC,a(SP)+

ERROR

222

MASK FOR ERROR
MASK FOR ERROR
RETURN HERE ]F
RETURN HERE TO

RETURN HERE

NO MORE

ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHE(CKS
IF

ERRORS

;NOTE:
BITS TO BE MASKED SHOULD BE ONE; BITS T0 BE TESTED SHOULD
;BE ZERO

21 050400

CMPERRSTS:

050400
050406
050414
050420
050426

013737
047637
062716
013737
047637

050434
050440
050444

062716
105076

000006
000000
000004

050450
050454
050456
050464
050470
£50474
050502
050506
050510
050514
050516

005737
001420
013737
005037
062716
112776

001176

050516
050522

005737
001420

001200

050524
050532
050536
57 050542

013737
005037
062716
112776

001200
001140
000004
000067

4-APR-81

16716

162716

004736

162716

000240

001350
000000

000002
001376
000000

001176
001140
000004
000066
000002

001176
001176

JMASK AND STORE
MoV

BIC
ADD

001200
001200

MOV
BIC

THE

CONTENTS OF RMER1
AND RMER?
;STORE RMER1 AT TEMP STORAGE
a(SP),$TMP]
RMER1
;MASK
#2,(SP)
;MOVE SP TO NEXT MASK
RMER11,$TMP1

RMERZI ,$TMP?2
d(SP),$TMP?2

;STORE RMER? AT

;MASK RMER?

TEMP STORAGE

;CLEAR USER'S ERRQOR CALL
ADD

CLRB
SUB

;SEE

TST

$TMP1

Mov

$TMP1,$BDDAT

ADD

#4,(SP)

SuB

#2,(SP)

(LR

000000

MOoVB
JSR

000010

SUB

NOP

;SEE

a(SP)
#4, (SP)

;MOVE

$GDDAT

#66,a(SP)
PC,a(SP)+

#10, (SP)

TO USER'S ERROR CALL

; CLEAR ERROR NUMBER
JLEAVE SP AT NO ERROR RETURN

THERE WERE ANY ERRORS IN RMER1,
BEQ

001142

#6, (SP)

1.E., $TMP1

;ANVlgRRORS

TO REPORT??

:NO 1!
JRECEIVED STATUS FOR TYPEOUT
;EXPECTED STATUS FOR TYPEQUT
sMOVE SP TO USER'S ERROR CALL
;CORRECTABLE DATA CHECK ERROR #
;MOVE SP TO RETURN FOR ERROR

;REPORT ERROR VIA USER

JMOVE SP BACK TO BRANCH

THERE ARE ANY ERRORS TO REPORT IN RMERZ ($TMP2)
$TMP2
;JANY ERRORS IN RMERZ2?

TST

BEQ

108

JNO!
.

001142

Mov

$TMP2, $BDDAT
$GDDAT

JRECEIVED STATUS FOR TYPEOQUT
JEXPECTED STATUS FOR TYPEOUT

000000

MGVB

CLR

ADD

44, (SP)
#67,a(SP)

;MOVE SP TO USER'S ERROR CALL
JWRITE ERROR NUMBER [N USER'S (ALL

CZRMMBO RMOS/3/2 FCTINL TST 1
MACRO V04.00
TOMPQOSITE ERROR CHMECK SUBROUTINE

£8 050550
59 050554
60 050556
6! 050562
€2 050564
63
64
£5 050564
66 050570
67 050574
68 050576
09 050602
7C 050604
71

050610

162776

004736
162716

000240

062716
1065776

001403
062716
000402
162716
000207

000002

4-APR-B1

SEQ 0200

s5u8

JSR

000010

16
11:43:28 PAGE 24-1
F

agg

#2,(SP)

PC,a(SP)+

#10,(SP)

sMOVE SP TO RETURN FOR ERROR

JREPORT ERROR V]A USER

;MOVE

TO NO ERROR RE TURN

10%:

000004
000000

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED

000004
000004

20%:
30%:

ADD
TSTB
BEQ
ggD

#4,(SP)
D (SP)
203
géi(sp)

;MOVE SP TO USER'S ERROR (ALL
sWAS THERE AN ERROR (Al LED??
sNO.
!
;YES = MOVE SP TO ERROR RETURN

SuB

#4,(SP)

:MOVE

RTS

SP TO NO ERROR RET RN

JRETURN TO USER

CIFMMBO RMO5/3/2 FCTINL

SELECT SUBROUTINE

= =

b e

OOVNPNNN
= OO0 NP SN o

DE/ICE

1ST

MACRO v04.00

4~APR-B1

SEu

.SBTTL
¢
;

DEVICE

050612

SELECT SUBROUTINE

THIS SUBROUTINE
TEST QUEUE.

:CALL‘
(D)

JSR

THE

PC,DEVSEL

2 (2)

(4)

ERROR

2 (3

SELECTS

NOP

GETTING THE DEVICE NUMBER FROM THE

DEVICE,

RETURN
RETURN

IF
[F

NO ERROR
ERROR

ERROR DEF INED BY SUBROUTINE

:
DEVSEL

050612
050616
050622

062716

(50626

013746
013746
010046
010146
012737

050632
050636
050640
050642
050650
050656
050662

G 16
11:43:28 PAGE 25

105076

162716

012737
013700
013701

050666
050672
050700

016037
016037

050706
050714
050716
050724
050732

032737
001407
062766
112776
000422

050734
050742
050744
050752
050760

032737
001021
062766

050762
050764
050772
051000

022626
062766

111160

112776

000407

112776

162766

;CLEAR USER'S ERROR CALL

000004
000090
000004

ADD
CLRB
SuB

0C0C04
000006

05076c
000300
001276
001464

000004
000006

000010
00000
000010

001176
001174

010000

001174

000004
000111

00176

000004
000112

000010

MOV
MoV

$BASE ,RO
TSTQUE ,R1

TO USER'S ERROR

;RO = UNIBUS ADDRESS

;R1T

MOV
MoV

RMCST(RO) ,$TMP1 ;GET
RMCS2(R0),$TMPO ;GET

BIT

HNED , $TMPO

BEQ

.
10%:

000010

000010
000010
000C10

;CLEAR LOW ORDER BYTE OF CALL
SP BACK
JMOVE

POINTS

TC DEVICE NUMBFR

JSELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE
MmovBe
(R1) ,RMCS2(R0)
;WRITE UNIT SELECT BITS

ADD
MovB

BIT
BNE
ADD

MOVB

BR
;HANDLE

000004
000113
000002

sMOVE

;SAVE USER'S INFORMATION AND SETUP REGISTERS
MOV
ERRVEC,=(SP)
;.PUSH ERRVEC ON STA(K
MOV
ERRVEC+2,~(SF)
; ;PUSH ERRVEC+2 ON STACK
MOV
RO,-(SP)
;;PUSH RO ON STACK
MoV
R1,-(SP)
;;PUSH R1 ON STACK
MOV
#20% ,ERRVEC
;SETUP FOR BUS TIMEOUT
MOV
#PR6,ERRVE(+2

000010
000010

004000

#4,(SP)
D {SP)
84, (SP)

208:
30%:

BUS

cMp
ADD
Movs
SUR

10%

#4 ,10(SP)
#111,210(SP)
30%

"DVA'' STATUS
'NED'' STATUS

;1S DEVICE NONEXISTENT ?

JNO.!

sMOVE SP TO JUSERS ERROR CALL
;JWRITE ERRGR NUMRBER
)

#DVA,$TMP1
35%
#4,10(SP)

;1S DEVICE AVAILABLE ?
JYES!!
sMOYE SP TO USEKS ERROR CALL

30%

’

#112,210(sp)"
TIMEOUT

(SP)+,(SP)+
#4,10(SP)
#113,310(SP)
#2,10(SP)

;JWRITE ERRGR NUMBER

;ADJUST SP
sMOVE SP TO USERS ERROR CALL
;WRITE BUS TIMEQUT ERROR NUMBER
JADJUST RETURN TO °'NOP' PRECEDING
;THE ERROR CAL!

%@ESTORE USERS DATA AND RETURN TO ADDRESS ON STACK

000006

Mov
MoV
MoV

(SP)+ ,R1
SP)+ RO
(SP)+ ERRVEC+2

.:POP STACK INTO R1

;+POP STACK

INTO RO

s :POP STACK INTO ERRYE(
+/

CZRMMBO RMOS/3/2 FCTNL ST 1
DEVICE SELECT SUBROUTINE

051016
52 051022

(12637
000207

000004

MACRO v04.00

H 16

4{~APR-81 11:43:\28 PAGE 25-1
MOV
RTS

(SP)+ ERRVE(

:+POP STA(CK

JEXIT

INTO ERRVE(

}

CZRMMBO RMOS5/3°

“TINL

TST 1

SEEK STATUS (ME - UBROUTINE

MACRO v04.00

4-APR-B1

.SBTTL

:THIS SUBROUTINE

StOlOZOS

SEEK srirus CHECK SUBROUT INE

VERIFIES THE RESULTS OF

SEEK TESTS USING STATUS

STORED IN THE GET BUFFER AND TEST PARAMETERS STORED

)

IN THE PUT BUFFER.

7
8
18

:THE SUBROUTINE RETURNS TD THE CALLING ROUTINE IF AN ERROR IS DETECTED
;AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBFR IN THE 'ERROR'' TRAP
:OF THE CALLING ROUTINE.
SEEK STATU% IS CHECKED AS FOI LOWS:

12
13
14
15
Vo1
1

;CALL:

(1)
:

19 051024
21
22 057024

2% 051026
24 051032
25 051036

59 051042

SR
BR
NOP
' ERROR
JSR
222

‘

PC,SEKSTS
772

RETURN
RETURN

HERE
HERE

IF NO ERROR
TO REPORT AN ERROR

RETURN

HERE

ERROR|NUMBER DEF INED BY SUB
GO BAGK TO SUB FOR MORE ERROR CHECKS

PCLA(SP)+

SEKSTS:
000240
062716
105076
162716
005v37

000004
000000
000004

ADD
CLRB
suB

052262

NO MORE ERRORS

:CLEAR USERS' ERROR CALL
NOP

CLR

29
30
31
32
33

116

11:43:28 PAGE 26

#5,(SP)
@(SP)
#5, (SP)

sMOVE (SP) TO ERROR (ALL
: CLEAR ERROR NUMBER
:MOVE (SP) [TO NO ERROR RETURN

3008

:CLEAR

ERROR FLAGS

:TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING
051046
051054
051056
051064

36 051066

032737
001424
032737
001020

013737
062716
112776

41 051116
42 051120
43 051124

004736
162716
000437

45
46

47 051126
48 051134
49 051142

001350

000010

001376

005037- 001140

37 951072
38 051100
39 051104

40 051112

000010

162716

012737
052737
023727

001350
000004
000050

000002

:LOCAL REGISTERS, I.E., "PARTM
BIT
#PAR ,RMER11
BEQ
1$
BIT
#DPE ,RMERZ]
BNE
1$
CLR

001142

MOV
ADD
MOVB

000000

SUB

JSR
SUB
BR

062000
040000
001444

001140
052262
001466

040000

052262

101025
042737

53 051160
gg 051166

123737
101016

001417

56 051170
57 051176

123727
101410

001416

1 AND 'DPE''
- 0
;WAS PAR{TY ERROR DETECTED??
iNO!!
;WAS IT
DUE TO CONTROL BUS??
:NOT SURE!!

;REPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL

000010

50 051150
g; 051152

$GDDAT

RMER11,$BDDAT
#4, (SP)
#50,(SP)

#2, (SP)

;EXPECTED STATUS

:RECEIVED |STATUS
;MOVE STACK TO USER'S ERROR
;ERROR #50

PC,a(SP)+
#10, (SP)
3%

:MOVE

SP TQ

RETURN FOR ERROR

;RESTORE STACK

;IAE SHOULD,

BE ZERO

:DETERMINE THE VALUE OF "'IAE" STATUS BASED ON TRACK, SECTOR AND CYLINDER
:ALSO, SET "'SKI'*
IF CYLINDER ADDRESS IS TOO LARGE.
1$:

MOV
BIS
(MP

#IAE , $GDDAT
#SK1,300%
RMDCO,#822.

;SETUP FOR IAE = 1
;SETUP FOR SKI = 1
:GREATER THAN
LAST CYLINDER ?

BHI
BIC

3%
#SK1,3008

:YES = CYLINDER IS INVALID
:CLEAR SKI ERROR FLAG

001333

(MPB
BHI

RMDAD+1,LSTRK+1
38

;GREATER THAN
LAST TRA(K >
:YES = TRACK IS INVALID

000035

(MPB
BLOS

RMDAD,#29.
‘s

;SECTOR > 29.
;BR IF NO

’

CHECK

SUBROUTINE

MACRO Vv04l.00
!

58 051200
59 051206
60 051210
61 051216

032737
001406
123727
101002

63 051220

005037

001140

66
€7
68
09
70

013727
042737
023737
001004
042737

001350
175777
001140

001142
001142
001142

040000

052262

051224
051232
251240
051246
051250

051256

72 051260
76
75
76
77

051260
051264
051272
(51276

78 G51300
79 051304

80 051306

000413

062716
112776
162716
004736

162716

000240

010000

001442

001416

000037

000004
000051
000002

4~-APR-B1 11:43:28 PAGE 26-1
BIT

4#FMT16,RMOFO

CMPB

RMDAO
, #31.

;18 BIT FORMAT ?
:YES - SECTOR IS
*SECTOR > 31. 2

(LR

$GDDAT

;"'IAE"* SHOUL

BEQ
BHI

2%:

MOV
BIC
cMP
BNE
BIC

RMER1], $BDDAT
#*{ 1AE . $BDDAT
$GDDAT
, SBDDAT
358
#SK1,3008
5%

SEQ

INVALID FOR 18 BIT MUDE

‘YES - sec'oEIs INrALID
0

. COMPARE EXPECTED AND RECIEVED ‘''IAE'' STATUS

38:

;1S 1AE

OK??

:SAVE IAE
BIT FOR COMPARE
:CORRECT ''IAE!' STATUS
?
‘BR IF NO
\

:CLEAR SKI FLAG

;GO CHECK NEXT ERROR

35%:
JREPORT INCORRECT '‘IAE'' STATUS VIA USER S ERROR CAkl
ADD

000000

MOVB
Sus

JSR

000010

sus

5%:

NOP

#4,

(SP)

#57,a(SP)

:ERROR 51

PC.R(SP)+

;REPORT

#2.(SP)

#10, (SP)

:MOVE SF TO RETURN FOR FRROR
INCORRECT

:RESTORE

]AE

(SP)

1
1

;REPORT ANY IVC ERROR AS
85
86
87
88
89

05120¢
051314
051316
051322
051330

90 051334

91
92
93
96
95

051342
051350
051352
051360
051364

9 051366

P DU

= ed b b -2 O

032737
001403
112776
162716
004736

001140
001376
000006

001376

000050

000000
001346

000061
000002

00000N

000100

013737
042737
013737
042737
001417

001376
137777
052262
137777

001142
001142

051426
051434

032737
001032

040000

001142

000004
000267
000002

000000

062716
112776
162716
004736
162776
000443

BEQ
CLR
MoV
ADD

51%:

52%:

001140
001140

52%
$GDDAT
RMERZ2I, $BDDAT

44, (SP)

MovB
BIT
BEQ
MOvB
SUB

#60,2(SP)
#VV RMDS |
51%
#61,a(SP)
#2,(5P)

SuB
NOP

#10, (SP)

JSR

051374
051402
051410
051416
051424

000240

001142

000010

108 051436
9 (051442
0 051450
1 051454
% 051456
051662
4 051464

112776

010000

16271¢

97 051372
99
100
101
102
103
104
105
106
107

032737
001427
005037
013737
062716

IVC ERROR WITH VOLUME VALID ZERO
ERRONEOUS IVC ERROR, VOLUME VALID IS SET
BIT
AIVL,RMERZI
;1VC ERROR??

PC,a(SP)+

:ND!!

JEXPECTED STATUS
SJRECEIVED STATUS
:MOVE SP TO USER'S ERROR
JERROR 60 IF v - 0

JERROR 61 IF vv
1
;JMOVE SP TG RETURN FOR ERROR
JREPJRT ERROR VIA USER
JRESTORE SP

:RECEIVED STATUS

MOV
BIC
MoV
BIC
BEQ

RMERZ2], $BDDAT
#~CSK1,$BDDAT
300%,$GDDAT
#2CSKI,$GDDAT
53%

*CLEAR DONT CARES
*GET EXPECTED SKI
STATUS
*CLEAR DONT CARE
‘BRANCH IF N EXPECTED

BIT
BNE

#SK1,8BDDAT
54%

“éé
'Y

MOvB
SuB

#267 ,d(SP)
#2,(SP)

;REPORT ERROR IF SKI IL NOT SET (IAE WAS Noh DETECTED)
ADD

000010

V2]

53¢:

#4,(SP)

PC,a(SP)+

#10, (SP)

§§1

DETECTED

*MOVE SP TO USERS ERROR CALL
:WRITE

ERROR NUMBER

IMOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN

;MOVE SP TO NO ERROR
;GO TO NEXT ERROR CHECK

STATUS

SEEX

TST

~fi3

"JRMMBO RMOS5/3/2 FCINL

—d

e S

TS —t

£ NN NN NN WY WANPININI
—
NN NONONIRON =4 — —
OO~ awns W =2OVO NN
NP 2O 000N

—

MACRO V04.00

141

142
143
166
145

146
147
148
149
'50
'51
152

C51464
051472
051474
051500
051506
051512
051514
051520

162716
004736
162776
000240

051522
051530
051532
051536
051544
051550
051556
0651562
N51564
051570

032737
001420
005037
013737
062716
112776
162716
004736
162716
000240

051572

051600

051602
051606
051614
051620

032737
001413
062716
112776

(000002

042716

022726
001002

001142

000200
001140
001376
000004
000055
000002

000053
000002

001376

000000

020000

001350

001366
010000

001140
001140
001142

—d
ea

001346
000004
000067
0000G2

MOVRB
BIT
BEQ
MOVB
SUB
JSR

PC.a(SP)+

;REPORT SEEK ERROR

#10, (SP)

CHECK

#DVC ,RMER2]

#2,(SP)

(SP)

TO ERROR

:LOAD ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
:RESTORE

(5P)

;WAS THERE DVC DURING SEFK>?

INO!.
*EXPECTED STATUS

-RECEIVED STATUS

;ERROR

#55

;JMOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER

JRESTORE

8%
$GDDAT

RMER1I,$BDDAT
#4 , (SP)

#52,2(SP)

#MOL, RMDS 1
7%
#53.3(SP)
42, (SP)
PC,a(SP)+

#10. (5P)

BIC
cMP
BNE

;NO!!
JEXPECTED STATUS

-RECEIVED STATUS
MOVE (SP) TO ERROR

;LOAD ERROR NUMRER

*WAS MEDIUM ON LINE??
‘NOT.
*YES - CHANGE ERROR NUMBER
MOVE SP TO RETURN FOR ERROR
;REPORT 'OPI'' ERROR
RESTORE (SP)

A C<ATA'PIP.MOL
!VV>, (SP)
HATA'MOL
'V (SP) +
9%
:ERROR IN RMDS

14%

;REPORT ERROR IF MOL - 0 AND OP]

gs -

OPI

“PIP' = 0, AND 'ATA', ‘MOL'' AND "WV’
MOV
RMDST,
- (SP)

JMP

000000

‘MOVE

#54.a<§P>
#2,(SP

PC,a(SP)+
#10, (SP)

MOV
ADD

110100

001346

;15 SKI SET 72
:NO = SK IS OK

26, (SP)

JSR
SuB
NOP

BEQ
CLR

SSEE
& :

010000

#SK1,$BDDAT
54%

6%
$GDDAT
RMER21,$BDDAT
#4, (SP)
#55,3(SP)

SUB
NOP

047677

IS SET

JREPORT ANY "OPI'' ERROR AS OP] WITH MOL .- 0, OR
;BECAUSE ON CYLINDER LATCH DIDN'T RESET
6%:
BIT
#0P] ,RMER11
;"'OPI'* ERROR??

000010

001346

SKI

BEC
CLR
MOV
ADD
MOVB

SuUB

000000
001346

9332737

013737
062716
112776
162716

BIT

001142

162 051702

051736
051746
051750
051756

548

000000

001350

;REPORT ANY DEVICE

001142

052232

001030
032737
001024
013737
052737

JSR

SUR
NOP

000137

051710
951712
051720
051722
051730

BIT
BEQ

MOVB
SUR

000010

010000

ERROR

ADD

000000

159 051676

163
164
165
166
167

JREPORT

000010

001140
001350
000004
000052

013746

K 16

11:43:¢8 PAGE 26-2

005037
013737
062716
112776

155 051660

157 051670
158 051674

000004

000054

020000

032737
001403
112776
162716
004736
162716
000240

156 051664

0460000

032737

001427

051626
051634
051636
051644
051650
051652
051656

4-APR-B1

CZRMMBC RMOS/3/2 FCINL TST 1
SEEK STATUS (HECK SUBROUT INE

BIT

#MOL , RMDS |

BNE
BIT
BNE
MOV
BIS

108
#OP1,RMERT]
108
RMDSI,$GDPAT
#MOL
, $GDDAT

ADD
MOVB
SUB

#4, (5P)
#63.2(5P)
#2,(SP)

MOV

RMDSI,$BDDAT

;RMDS

IS OK

- 0

;1S MOL RESET??

INO - MOL IS SET
‘WAS OP] SET
*YES - DONT REPORT
-EXPECTED STATUS

;RECEIVED STATUS
;MOVE SP TO RETURN FOR ERROR

FEO 0205

CZRMMBO RMOS5/3°2 FCINL TST 1
SEEK STATUS (HECK SUBROUT INE

172 051762

004736

MACRO v04.00

173 051764
176 051770

162716
000240

(00010

1727 051772

032737

020000

001346

040000

001376

001346
020000
001346

001140
001142
001142

175
176

178 052000
179 052002
*80
052010

(81
052012
*82 052020
'33 052026

184
185
186
187

052034
052040
052046
052052

188 052054

189 052060

190

19
192 052062

93 052070
%6 052072
195 052100

196 052106

197 052114
198 052120
199 052126

200 052132

9001430
032737
001024

013737
042737
013737

062716
112776
162716
004736
162716

000240
032737
001024
013737
052737

013737

062716
112776
162716

004736

000004
000056
000002

11:43:28 PAGE

JSR

CRA(SP)+

SUR
NOP
10%:

BEG
BIT
BNE

MOV

001346
110600

001140
001140
001142

NOT

INO.
.
TWAS "'SKI''SET??
: YES=DONT REPORT PIP

“EXPECTED

MOV
ADD

RMDS], $BDDAT
#4,(SP)

;RECEIVED STATUS
;MOVE (SP) TO ERROR

SUB

42, (SP)

*MOVE SP TO RETURN FOR ERROR

SUB
NOP

#10, (SP)

#56,3(SP)

;LgA

PC.a(SP)+

STATUS

;REPORT “PIP'" SET AFTER SEEK
;RESTORE

JSR

PC.a(SP)+

#2,(SP)

*REPORT ATTENTION NOT SET

SSEEK TEST

162716
000240

C€00010

206 052142

032737

000100

001§46

208 052152
209 052160
210 052162
052170
052176
052204
052210
052216
052222
052224
052230
052232

032737
001024
013737
052737
013737
062716
112776
162716
004736
162716
000240

010000

001376

BIT

#1VC,RMER2I

SIS IVC ALSO 0 2%

001346
000100
001346
000004
000064
000002

001140
001120
001142

MOV

RMDSI , SGDDAT

;EXPECTED STATUS

RMDSI, $BDDAT

/;RECEIVED SIATUS

#64,3(SP)

:ERROR #64

222 052232
223 052234
226 0522640
225 052244
226 052246
gsg 052252

000240
(62716
105776
001403
062716
000402

001030

BIS

MOV

ADD

000000

MOVB

SUB
JSR

14%:

;MODIFY

000004
000000
000004

ERROR
BIT
BNE

egf

000010

|29 1, ¥ P

e Gir G Qi G G4

~ OV
AN =

JASIASIAC
TV, N1, 8T, U1,V L V1,01, ¥

207 052150

sus

#10, (SP)

SuB
NOP

;RESTORE

VOLUME VALID 1S RESET AND IVC
#VV ,RMDS 1
ISV - 0 22
14%
iNO!!

14%

(SP)
]

IS ZERO

24, (SP)

“

;MOVE SP TO RETURN FOR ERROR

#10, (SP)

rgg RETURN ADDRESS IF AN ERROR WAS DETECTED

N
ADD
TSR

#4, (SP)
a(SP)

:MOVE (SP) TO ERROR
“WAS ERROR CALLED??

ADD

24, (SP)

*MOVE TO ERROR RETURN

BEQ

15%

16%

DURING

:NO = IVC IS SET

#VV,$GDDAT

#2,(SP)
.
PC.a(SP)+

*MOVE SP TO R;TURN FOR BRROR

202 052134
203 052140

13%:

(SP)

IF "ATA'' IS NOT SET
HATA,RMDS|
JWAS “ATA'' SET 22
13%
SYES!.
RMDSI , $GDDAT
:EXPECTED STATUS
#ATA'MOL .DPR!DRY . $GDDAT
RMDSI , $BDDAT
;RECEIVED STATUS
#4, (SP)
IMOVE (SP) TO ERROR
#57.3(SP)
:L0AD ERROR NUMBER

NOP

ERROR NUMBER

BIT
BNE
MOV
BIS
MOV
ADD
MOVB

SuB

;REPORT

SET

RMDSI, $GDDAT

f
sREPORT AN ERROR

000000

SET AND SKI

;1S "PIP STILL SET??

#P1P,$BDDAT

MOVAR

11%:

'PIP'*
IS STIL

11$
#SK] ,RMER?]
17¢

JSR

001346

;REPORT ERROR VIA USER

#PIP ,RMDS |

BIC

000000

100000

001346

B!~

‘L 0206

26-3

10, (SP)

JREPORT AN ERROR It

000010

000004
000057
000002

L 16

4-APR-81

INO'.

CALL

“JHMMBO RMOS/3/2 FCTNL 7ST 1
SEtx STATUS C(HECK SUBROUT INE

229 052256

162776

2?0 052260

000207

232 052262

0G0000

PE}

000C04

MACLO v04.G0
15¢%:

4=-APR-81
SuR

M 16

11:43:28 PAGE 26-4
84, (SP)

;MOVE

.
(SP)

TO NO ERROR RETURN

RTYS

JRETURN

500%:

.WORD

sERROR *LAGS

‘

(ZRMMBO RMOS/3/2 FCINL TST 1

CCNTROLLER CLEAR SUBROUTINE

MACRO v04.00

4-APR-81

SEQ 0008
.SBTTL

. "HIS

5
6

;CALL:

052264
052266
052270
052274
13 052300
14 052306

15 052314

$52320
17 052326

010046
01046
013746
013746
012737
012737

013700
012760
013701

18 052332
19 052336

000412

022626

22
2%
26
25

CONTROLLER CLEAR SUBROUTINE
SUBROUTINE

SJAND DRIVES,

11
12 052264

052340

052342
052350
052356

052364
052364
052370
052374
052376
26 052400

111160

B8R

ERROR

000004
000006

000004
000007
000002

012637
012637
012601
012600
000207

000006
000004

000010
000010
000010

NOP

MOV
MOV
MOV
MOV

208

THE MASSBUS

CONTROLLER,

MASSBUS ADAPTERS,

PC,CNTCLR

RETURN HERE

NO ERRDR FQUND

[F ANY ERROR (pUND

SUB DEFINES ERROR NUMKFR

RO,-(SP)
R1,-(SP)
ERRVEC,~(SP)
ERRVE(+2,~(SP)

MOV
Mov

#108,ERRVEC(
#PR6,ERRVEC+2

MOV

#CLR,RM(CS2(R0O)

MOV
MOVB

10%:

CLEARS

THEN SELECTS THE DRIVE.

MOV

000010

062766
112776
162766

JSR

CNTCLR:

000004
000006
052340
000300
001276
0G0040
001464

N 16
11:43:28 PAGE 27

$8ASE ,RO

TSTQUE ,R1
(R1) ,RM(CS2(R0O)

20%

CMP
ADD
MOvVB
SuB

(SP)+,(SP)+
#6,10(SP)
#7,310(SP)
#2,10(5P)

MOV
MOy
MOV
MOV
RTS

(SP) + ,ERRVE(C+2
(SP) +,ERRVEC
(SP)+ R
(SP)+,R0
PC

;.PUSH RO ON STA(K

;:PUSH R1 ON STACK

. ;PUSH ERRVEC ON STA(CK
. :PUSH ERRVE(C+2 ON STA(K

;SETUP FOR BUS TIMEOLT
;RO = UNIBUS ADDRESS
; CLEAR MASSBUS

;GET DEVICE UNDtR TEST
;SELECT DEVICE
;ADJUST STA(CK

;MOVE SP TO USER'S ERROR CALL
JWRITE

THE

ERROR NUMBER

sADJUST SP TO RETURN TO ERROR
:.POP STACK

INTuU ERRVE(+?2

;;POP STACK INTO ERRVEC

:;POP STACK
;;POP STACK

INTO R1
INTO RO

’

JRMMB( RMOS/3/2 FOINL
S

«HECK

SUBROUTINES

MATRO v04.00

4&4-AF3-B1

STATUS (HECK SUBROUTINES

=D OO0 YN

.SBTTL

1
8
11:43:¢B PAGE 28

;:.t't't'fi'tlt*t'.t*'.'."...l.Q"'t't.fi'..'t.t"'."'Q"..t.'Q'Q

;THIS

.SBTTL

CONTROLLER CLEAR STATUS CHECK SUBROUT INE
SUBROUTINE

;STATUS STORED

VERIFIES

IN THE

THAT

THE

GET BUFFER,

SUBSYSTEM

;5 OF

RM(S2, BECAUSE

;STATUS PERTINENT

INITIALIZED BASED ON

THIS SUBROUTINE

JUSED FOLLOWING A CONTROLLER CLEAR OPERATION,

s 2

S NSNS
S
WWN AW NN AN
N AN N[aV1,0 1201, 5Y, VY r POR) — —d =D = b 4
s
NN
W
SOV
NO i W = O 000 ~NO
S N N SOV
NP NN
—
W=
OV

~N OV

N VIWAWVIANS AV,

VAY

'ST

SHOULD ONLY Bf

I.E., WRITING A 1

THE ERROR MESSAGES ARE BASED ON THAT

"0 THE

DEVICE

1S NOT

;FOLLOWING STATUS BITS ARE NOT CHECKED:

CHECKED.

IN B]T

CONDITION.

[N PARTICULAR,

THE

ATA,ERR,PIP,MOL ,WRL,LBT,PGM,VV,OM,UNS,SK],DV(

JSR

NOP

ERROR
JSR
272

052402

PC,CLRSTS

2722

RETURN HERE

PC.a(SP)+

ERROR NUMBER DEF INED BY SUS
GO BACK TO SUB FOR MORE ERROR (hHECKS
RETURN HERE IF NG MORE ERRORS

RETURN HERE

If NO ERROR

TO REPORT AN ERROR

CLRSTS:

052402
052406
052412

062716
105076
162716

000004
000000
000004

052416
052424
052432
052440
052446
052450
052454
052462
052466
052470
052474

013737
062737
012737
023737
001413
062716

001334

100000

000004
000126
000002

162716

000010

052476
052502
052510
052512
052516
052524
052530
052532

005037
013737
001413
062716

001140
001340

052536

000240

052540
052546
052550
052552
052556

000240

112776
162716

000004
000127
000002

162716

000010

013737

001344

004736

ADD
#4,(SP)
;MOVE SP TO ERROR
CLRB
a(SP)
;CLEAR ERROR NUMBER
SuB
#4,(SP)
sMOVE SP BACK TO NO ERROR
sREPORT ERROR IF RMCS1 NOT INITIALIZED
4%:
MOV
RMCS11,$BDDAT
;VERIFY RM(S1
BIC
#SC,$BDDAT
s IGNORE SPECIAL CONDITION

004200
001140

112776
162716

004736

;CLEAR USER'S ERROR CALL

001464

MoV

$GDDAT ,$BDDAT
5%
#4, (SP)
#126,2(SP)

JSR
ggg

PC,a(SP)+
#10, (SP)

suB

001142

#2,(SP)

EXPECT

DVA & RDY

;COMPARE EXPECTED, RECEIVFD
;BRANCH IF EQUAL
:MOVE SP TO USER'S ERROR (A
L

;WITE

ERROR NUMBER

IN CALL

;MOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER
;MOVE SP BACK TO NO ERRCR

JREPORT

ERROR IF RMBA NOT RESET
(LR
$GDDAT
JVERIFY RMBA [S ZERO
MOV
RMBAI
, $BDDAT
BEQ
7$
JBRANCH IF ZERO
ADD
#4,(SP)
;MOVE SP TO USER'S ERROR CALL
MOVB
#127,3(SP)
;WITE ERROR NUMBER IN CALL
SuB
#2,(SP)
;MOVE SP TO RETURN FOR ERROR
JSR
PC,a(SP)+
JREPORT ERROR VIA USER
zg%
#10, (SP)
;MOVE SP BACK TO NO ERROR

JREPORT

ERROR IF RM(CSZ NOT INITIALIZED
MOV
RMCS21,$BDDAT
;VERIFY RMCS?

5%:

000000

001142

#DVA!RDY,$GDDAT

CMP
BEQ
ADD
MOVB

’%:

Mov
CLR
MOV
MOVB

R1,-(SP)
-(SP)
TSTQUE ,R1
(R1),(SP)

;.PUSH R1 ON STA(K
JEXPECT IR & UNIT NUMBER
2R1 = ADDRESS OF TEST QuUE

JRYMBC RMOS/372 FCTNL

IST 1

MATRC v04.00

INTROL.ER C(LEAR STATUS (HECK SUBROUTINE

58 052560
59 052564
60 052570

05276
012637
012601

000100
C01140

61 052572
62 052600
63 052602

023737
001413
062716

007140

5 052614

162716

000002

66 052606

112776

66 052620
&7 052622
€8 052626

(004736
162716
000240

70 052630
71 052634

005037
013737

72
73
76
75

052642
052050
052652
052656

042737
001413
062716
112776

77 052670

004736

76 052664

000004

000130

79 052676

000240

000010

80
81
82
83
84
85
86

052700
052706
052714
052722
052730
052732

013737
042737
012737
023737
001413
062716

001360
000046
000010
001140

88 152744
8y O>27SQ
90 05275

1627°6
004736
162716

052756

92
93 052760
94 0527664
95 052772

G6 052774
97 053000

98
99
100
101
102

053006
53012
053014
053020

103 053022

112776

000240

005037
013737
001413
062716
112776
162716
004736
162716
000240

10 053066

111

001140
001402

001142

000004
000135

060000

000010

001413
062716

000004

162716

000002

112776

113 053100

000240

162716

140000

001140

000136
000010

(LR
MOV

BIC
BEQ
ADD
MOVB
SuB

001142

000000

RMER1

*WITE ERROR NUMBER [N CALL

TO RETURN FOR ERROR

JREPORT ERROR VIA JSER
;MOVE SP BACK TO NO ERROR

NOT RESET-IGNORE UNS

$GDDAT
RMER1I .$BDDAT

SVERIFY RMERT

#2,(SP)

JMOVE

#UNS , SBDDAT
13$
#6, (SP)
#131,3(SP)

; IGNORE UNSAFE
:BRANCH IF 2ERO
JMOVE SP TO USER'S ERROR CALL
*WITE ERROR NUMBER IN CALL

PC,a(SP)+

JREPORT ERROR VIA USER

#10, (SP)

70 RETURN fOR ERROR

*MOVE SP BACK TO NO ERRCR

;REPORT ERROR IF RMMR1 NOT INITIALIZED-IGNORE W(C,LS.,LST
13%:
MOV
RMMR1],$BDDAT
JVERIFY RMMR
BIC
MIC'LS LST,$BDDAT
: IGNORE WORD CLOCK, SCT,
MOV
#MWD , SGDDAT
;EXPECT WRITE DATA BIT
CMP
$GDDAT ,$BDDAT
. COMPARE EXPECTED AND RECFIVED
BEQ
17
*BRANCH IF 0
ADD
#4,(SP)
sMOVE SP TO USER'S ERROR CALL

MOVB

#133,3(sP)

SUB
JSR
SUB

*WITE ERROR NUMBER IN CALL

#2.(SP)
PC,a(SP)+
#10, (SP)

NOP

001140

004736

000000

011777

053072

112 053074

001142
001142
007140
001142

012737
023737

o :

000010

000002

;MOVE SP

PC,a(SP)+
#10, (SP)

NOP

001142

106 053044

109 053060

000002

#2,(SP)

#1%0.a(sP)

SUB

001374

042737

107 053052
108 053054

000133

SUB

MOVR

JSR

013737

104 053030

105 053036

000004

;POP STACK INTO RI
:COMPARE EXPECTED & RECEIVED
JBRANCH ]F EQUAL
*MOVE SP TO USER'S ERROR (ALl

:REPORT ERROR

000000

162716

CMP
BEQ
ADD

#IR,(SP)
(SP)+,$GUDAT
(SP)+ R1
$GDDAT,$BDDAT
9%
#4, (SP)

JSR
SUB
NOP

(000004
000131

000002

c7 052736

000000

040000

162716

78 052672

001142

001142
001142

1
¢
11:43:¢8 PAGE 28-1

BIS
MOV
MOV

000010
001140
001350

&-APR-81

:MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
*MOVE SP BACK TO NO ERROR

:REPORT AN ERROR IF RMEC2 1S NOT RESET
17%:
CLR
$GDDAT
SEXPECT ZEROS
MOV
RMEC21,$8DDAT
:VERIFY RMEC2 - O
BEQ
198

ADD
MOVB

SuUB
JSR
SUB
NOP
JREPORT ERROR

19$:

MOV

44, (SP)
#135.3(SP)

;MOVE SP TO USER'S ERROR (ALL
‘WITE ERROR NUMBER IN CALL

#2.,(SP)
PC.a(SP)+
#10,(SP)

IF RMMRZ2 NOT

JMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;MOVE SP BACK T0O NO ERROR

INITIALIZED-IGNORE ROA,RQB

RMMR21[,$BDDAT

BIC

#ROA'RQB, SBDDAT

CMP

$GDDAT, $BDDAT

MOV

;VERIFY RMMR2

#TST!1777,$GDDAT

JEXPECT TEST BIT ON

BEQ
ADD

21%
#4,(SP)

:MOVE

SUB

#2.(SP)

*MOVE SP TO RETURN FOR ERROR

#10, (SP)

*MOVE SP BACK TO NO ERROR

MOVB

#136,a(SP)

JSR

PC.a(SP)+

SUB

NOP

JREPORT ERROR

RMERZ NOT

TO USER'S ERROR CALL

*WITE ERROR NUMBER [N CALL
*REPORT

RESE1-IGNORE

ERROR VIA USER

SkI,Dv(

TRK

TST 1
MACRO v04.00
N RIOL_ER (LEAR STATUS (HECK SUBROUTINE

JMBC RMOS/3/2 FCTNL
"15
1‘5
*1,

119

120

121
122
°23

053102
053106
253114
053122
053124
053130
053136
053142
053144
053150

125
126 053152
127 053160
'¢8 053166
129 053174
130 053202
13 053204
"3 053210
133 053216
134 053222
135 053224
136 053230
053232
138 053236
139 053242
140 053244
41 053250
162 053252
43 053256
‘44 053260

005037
013737
042737
001413
062716
112776
162716

004736

001140

001376
040200
000004
000174
000002

162716

000010

013737
042737
012737
023737
001413
06275

001346

000240

177177

000600
001140

112776
162716

000004
000134
000002

162716

000010

004736
000240
062716
105776
001403
062716
000402
162716
000240
000207

000004
000000

21s:

i
D
'1:43:¢/8 PAGE 28-2

CLR

MOV
BIC

su8
JSR
sus
NOP
;REPORT ERROR
MOV
215%:
BIC
MOV

22%:

{MP
BFQ
ADD
mMovs
sSu8
JSR
suB
NOP
ADD
TSTB
BEQ
ADD

23%:
21'$.'

BRr
SuB
NOP
RTS

JEXPECT ALL ZEROS
;VERIFY RMER¢Z

215%

:BRANCH [F QTHER BITS 0

ADD
MOvB

(SP)

174,9(SP)

#2,(5P)

PC.a(SP) ¢

#10, (SP)

SEQ 0217

$GDDAT
RMERZ2]1,$BDDAT

#SK].DVC,$BDDAT

BEQ

000004
000004

4-APR-81

;IGNORE

DEVICE

*MOVE

SP TO USER'S ERROR CALL

*MOVE

SP TO RETURN FOR ERROR

*MOVE

SP BACK

:WITE ERROR NUMBER IN CALL
*REPORT

ERROR

RMDS NOT INITIALIZED
RMDSI,$EDDAT
;TEST DRIVE

#~(C<DRY.DPR>,$BDDAT
#DPR.DRY ,$GDDAT EXPECTED

$GDDAT ,$BDDAT
22%

A4, (SP)

#134,9(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

ERRORS

VIA USER

TO NO ERROR

STATUS REGISTER

DRIVE

STATUS

; COMPARE EXPECTED & RECEIVED
JBRANCH
;MOVE

EQUAL

TO USER'S

ERROR

44, (SP)
a(SP)

;MOVE SP TO ERROR CALL
;WAS AN ERROE DETECTED??

gzi(SP)

;YES = MOVE

23%

#4,(SP)
PC

(ALL

;WRITE ERROR NUMBER
JMOVE SP TO RETURN FOR ERROR
JREPORT ERROR TO USER
;MOVE SP BACK TO NO ERRCR

JNO!!

sMOVE

TO ERROR RETURN

TO NO ERROR RETURN

Sy KMOS/3/2 FCTINL
4 KNOWLEDGE

STATUS

(HECK

MACRO v04.00

&-APR-81

LSBTTL
G N en s
B BN IS 0N IS I 0 B »
B B W
N NN N U N N A D nrnornON) LN1L¥] ny PIOR) b = = b bt d vt —
WA — O V00 JOOND
WA=
OV NN
WA 2O 0 QO NN fXV n = OO
NN
NN = O

1
E
11:43:¢8 PAGE 29

PACK ACKNOWLEDGE

STATUS

C(HECK

sTHIS SUBROJTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE
;COMMAND USING THE STATUS STORED IN THE GET BUFFER.
ERRORS ARF
JREPORTED TO THE USER VIA THE
s CALL:
(D)

JSR
BR
NOP
ERROR
JSR
272

063262
062716
105076
162716

000004
000000
0C0004

053276
253304
053306
053314
053322
053330
053334

032737

000100

001346

001346
000100
001346
000004
000155
000002

001140
001140
001142

053350
053354
053356

053356

053364
053366
053374
053402
C53410
053414
053422
053426
053430

053434
053436

PC.a(SP)+

;C.EAR USER'S ERROR CALL

05326¢
053266
053272

053342
053346

PC,ACKSTS

USER'S ERROR (ALL.

RETURN HERE [F NO ERROR
RETURN HERE TO REPORT AN ERKOR
ERROR NUMBER DEF INED BY SUB

GO BACK TO S FOR MORE ERROR (HE(XS
RETURN HERE IF NO MORE ERRORS

ACKSTS:

001024
013737

052737
013737
062716
112776
162716

004736

ADD
(LRB
SuB

162716
000240

000010

032737
001024

010000

001346

001346
010000
001346
000004
000041
00000¢

001140
001140

013737
052737
013737
062776
112776
162716
004736
162716
000240

MOV

BIS
MOV

ADD
Mova

SuB
JSR
Su8
NOP

1%:

:REPQORT AN ERROR

BIT
BNE

Mov

BIS

001142

MOV
ADD

000000

MOovR
SUB
JSR
SU8
NOP

000010

2%:

032737
601570

060007

001350

053446
353454
. 053456

032737
001424
013737

040000

001350

001142

#4, (SP)

;MOVE

#4, (5P)

;MOVE

SP BA(K

a(SP)

IF "W IS 0
;REPORT AN ERROR
A#VV ,RMDS]
BIT
1%
BNE

000000

053436
053444

~ OV

N ARV N NN

-A ¢«

TST

;SEE

RMDS ], $GDDAT

#VV,8GDDAT

TO ERROR

;1S VOLUME VALID SET??
JYES!!
JEXPECTED STATUS

RMDS] ,$BDDAT
#4, (SP)
4155,a(SP)
#2,(SP)

;JMOVE

SP TO RETURN FOR ERROR

#10, (SP)

;MOVE

SP BA(CK

PC,a(S5P)+¢

'MOL'" IS O

#MOL ,RMDS |
2%
RMDS1,$GDDAT
#MOL
, $GDDAT

RMDS I, $BDDAT

#4,(SP)
241 ,2(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

¢RECEIVED STATUS
;MOVE SP TO ERROR CALL

JWRITE NUMBER

JREPORT

IN ERROR CALL

THE ERROR

TO BRANCH

;IS MOL SET??
JYES!!
JEXPECTED STATUS
JRECEIVED STATUS

;MOVE SP TO ERROR CALL
JWRITE NUMBER OF ERROR IN (AL
:MOVE SP TO RETURN FOR ERRUR
;REPORT TH ERROR
;MOVE SP TO BRANCH

‘UNS'',"OPI"',"RMR'",""ILR'", OR "'ILF'' IS SET
ggNS!OPI‘RMR.ILR.JLF.RMER1I

BIT
BEQ

. REPORT AN ERROR

BIT
BEQ

MOV

(ALL

;CLEAR LOw ORDER BYTE

IF "UNS'' IS SET
ggNS,RMER1I
:NSS UNS SET??
JNO. .
RMER11,$BDDAT
JRECEIVED STATULS

CAMMB, RMOS/3/2 FCINL TST 1

“4

ATKNOWLEDGE

STATUS

CHECK

58 053464
59 053472
60 053500

013737
042737
062716

001350
(40000
000904

62 053512
63 053516
646 053520
65 053524
gg 053526

162716
004736
162716
000240

000002

61 053504

112776

09 053526
70 053534

032737
001424

053560

062716

76 053572
77 (053576
78 053600

162716
004736
162716

71
72
73
74

053536
053544
053552

75 053564
79 053604

g? 053606

000042

MACRO v04.00
001140
001140

000000

3%:
001350

013737
013737
042737

001350
001350
02000C

001142
001140
001140

11277¢

000043

000000

000004

000002

05360¢
053674
053616
053624

032737
001424
013737
013737

000004

001350

001350
001350

001142
001140

88
89
90
91
92

053640
053644
053652
053656
053660

062716
112776
162716
004736
162716

000004
000044
000002

93 053664
gg 053666
96
97
98
99
100

042737

000240

000004

001140

001350

001350
001350

001142
001140

103 053724
104 053732
105 053736

112776
162716
004736

000045
000002

000000

01
102 053720

106 053740
107 053744
108 053746
09

062716

000002
000004

001140

JMOVE SP TO RETURN FOR ERRCK
JREPORT THE ERROR VIA USER
JMOVE SP TO NO ERROR RETURN

ANY

BIT
BEQ

NOP

BIC

ADD
MOVB
SuB
JSR
SUB
NOP

JREPORT ANY
BIT
BEQ
MoV
MOV

BIC
ADD

MOVB
SUB
JSR

162716
000240

000010

110
111 053746

032737

000001

001350

JREPORT ANY
BIT

113 053756

(013737

001350

001142

MoV

112 053754

"4 053764

001424

013737

6%:

001350

001140

#42,(SP)

GP]

ERROR

Su8
NOP

BEQ
MOV

;EXPECTED STATUS

;JWRITE NUMBER OF ERROR N (CALL

#0P1 ,RMER1]
4%

;JWAS OP]
JNO..

SET

#4,(SP)

;MOVE

TO ERRNR CALL

#2,(SP)
PC,a(SP)+
#10, (SP)

;MOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR VIA USER
;JMOVE 5P TO NO ERROR RETURN

RMER11,$BDDAT
RMER11,$GDDAT
#0P] ,$GDDAT

#4%,3(SP)

SJREPORT ANY RMR ERROR
BIT
#RMR ,RMER1!
BEQ
5%
MoV
RMER11,$BDDAT
MOV
RMER11,$GDDAT

5%:
000002

#2,(SP)
PC,a(SP)+
410, (SP)

Sus
JSR
suB

000G10

032737
001424
013737
013737
042737

Sus
JSR
SUB
NOP

ADD

000000

053666
053674
053676
053704
053712

JMOVE SP TO ERROR C(ALL

MOvB

4%:

RMER1],$GDDAT
#UNS
, $GDDAT
#4,(SP)

MOV
MOV
BIC

000010

82
83
84
85
86

87 053632

JREPORT

11:43:28 PAGE 29-1

MOV
BIC
ADD

MovBe

000010

020000

000240

4-APR-81

#RMR, $GDDAT

2?2

;RECEIVFD STATUS
;EXPECTED STATUS
SP

JWRITE NUMBER OF ERROR IN (ALL

;WAS RMR SET??
;NO.!
;RECEIVED STATUS
;EXPECTED STATUS

#4,(SP?
#44 ,Q(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

;MOVE SP TO ERROR (ALL
JWRITE NUMBER CF ERROR IN CALL
;JMOVE SP TO RETURN FOR ERROR
JREPORT THE ERROR ViA USER
;MOVE SP TO NO ERROR RETURN

ILR ERROR
#ILR,RMER1]
6%
RMER11,88DDAT
RMER11,$GDDAT
#ILR,$GDDAT

;WAS ILR SET??
:NO!.
;RECEIVED STATUS
;EXPECTED STATUS

#45,a(SP)
#2,(SP)
PC,a(SP)+

SJWRITE NUMBER OF ERKOR IN (AL
JMOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR VIA USER

#4,(SP)

sMOVE SP TO ERROR CALL

#10, (SP)

sMOVE SP TO NO ERROR RETURN

ILF _ERROR
H#ILF ,RMER1]

JWAS

RMERT],$8DDAT

;RECEIVED

RMER11,8GDDAT

JNO..

ILF

SET?2?
STATUS

;EXPECTED STATUS

WMMB., RMOS/3/¢
A& x ACsNCWLEDGE

053772
054000
054004
056012
9 054016
054020
054024
254026
‘23
118

—s D

042737
062716
112776
162716

000001
C00004
000046
000002

162716

000C10

004736
000240

‘24

125 054026
126 054032
27 054036
'¢8 054040
129 054044
*3C 054046
054052
.+ 7)(,
054054

062716

105776

001403
062716
000402
162716

000240
000207

MAIRD v04.00

000004
000000

11:43%:¢8 PAGE

0C1140

BIC

#ILF,SGDDAT

000000

MOVB
SUR
JSR
SUB

#46,a(SP)
82, (SP)
PC,a(SP)+
#10,(SP)

ADD

NOP

84, (SP)

JAUGMENT RETURN ADDRESS
ADD
#4,(SP)
TSTB
Q(SP)

BEQ

000C04
000004

4-APR=-B1

7%:

[AS LA VI

‘17

FCTNL ST
STATUS (HE(K

8%:
9%:

ADD

4, (SP)

Sus
NOP

44, (SP)

B8R

RTS

29-2

;MOVE SP TO ERRCR (ALL

JWRITE NUMBER OF ERROR IN (Al
sMOVE SP TO RETURN FOR ERROK
;REPORT THE ERROR V]A USER
JMOVE SP TO NO ERROR RETURN

ERROR WAS FOUND
;MOVE SP TO ERROR C(ALL
;WAS ERROR FOUND??

:NO.
.

JYES = MOVE

TO ERROR RETURN

;sMOVE SP TO NO ERROR RETURN

4
a
—

&4&-APR-81

11:43:/B PAGE 30

STATUS (HECK SUBROUTINE

RVE 1) * RN Te SV I SUFT

RECAL |BRATE

.SBTTL

JTHIS SUBROUTINE C(HECKS THE RESULTS OF A RECAL!BRATE OPERAT[uUN
JUSING THE STATLS STORED IN THE GET BUFFER.

(@ R, I VTG Y

MACRO v04.00
JAvMB. KM05/3/2 FCINL TST 1
13
AL IBRATE STATUS (MEMK SUBROUTINE

sCALL:

JSR
BR
NOP
ERROR
JSR
272

PC,RCLSTS
?2?
PC,a(SP)+

s CALL SUBROUTINE
RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN EKROR
ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MORE ERROR (HE(XC
RETURN HERE If NO MORE ERRORS

RCLSTS:

054056

054056
054062
(54066

062716

000004
000000
0C0004

054072
054100

032737
C01553

0220M

105076
162716

;CLEAR USER'S ERROR NUMBER
ADD

(LRB
SJB

001350

#4, (SP)

a(SP)
#4,(SP)

;CLEAR USER'S ERROK CALL
:MOVE SP BACK TO BRANCH

;SEE IF "PAR'* OR "'ILF'' OR ‘'OPI'' OR '‘JAE’' 1S SET
BIT
HOPI'!PAR.ILF
! JAE ,RMERT]
BEQ

sJNONE ARE

SET = GO TO NEXT

:REPORT ANY MASSBUS CONTROL BUS PARITY ERROR,
054102
054110
054112
054120
054122
054130
054136
054144
054150
054156
054162
054164
054170
054172

032737
001430
032737
001024
013737
042737
013737
062716

054172
054200
054202
054210
054216
054224
054230
054236
0542472
054244
054250
054252

032737
001424
013737
042737
013737
062716

112776
162716

004736
162716
000240

000010

001350

000010

001376

001350
000010
001350
000004
000050
000002

001140
001140
601142

000010
1¢:

001350

001140
001140
061142

112776
162716

001350
000001
001350
000004
000071
000002

162716

000010

00C240

BIT

AND 'DPE'' - O

#PAR,RMER1TI

I.E..

JWAS "PAR'" SET??

BEQ
1%
JNO!!
BIT
#DPE ,RMERZ]
;WAS ‘DPE'" SET??
BNE
1%
;JYES = NOT A REGISTER ERROR
MOV RMER1i,3GDDAT
JEXPECTED STATUS
BIC
#PAR
, $GDDAT
MOV
RMER11,$8DDAT
;RECEIVED STATUS
ADD
#4,(SP) MOVE SP TO USER'S ERROR CALL
Movs
#50,3(SP)
JWRITE ERRGR NUMBER IN CALL
k2, (SP)
Su8
;MOVE SP TO RETURN FOR ERROR
PC,a(SP)+
JSR
;GO REPORT ERROR
#10. (SP)
S8
JMOVE SP BACK TO BRANCH

000000

000001

004730

J'PAR"'

(HECK

NOP

JREPORT ANY “‘ILF'’ ERROR

IT
BEQ
MoV
BIC

MOV
ADD
MOvB

000000

SUB
JSR
Sgg

2%:

#ILF ,RMER1]
2%

RMER1],$GDDAT
#I1LF,$GDDAT
RMER1],$BDDAT
#,(SP)
#71,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;WAS ‘'ILF'' SET??
INO'!

;EXPECTED STATUS
;RECEIVED STATUS
;MOVE SP TO USER'S ERROR C(ALL
(WRITE ERROR NUMBER IN CAL.

;sMOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER
JMOVE

SP BACK TO BRANCH

CHNMME AMOS5/3/72 FCINL TIST 1

“+

(BRATE

MACRO v04.00

STATUS (HECK SUBROUTINE

9B
59
60
€1 054252
€2 056260
63 054262

032737
001433
013737

020000

00'350

64 054270
65 054276
66 0563046

042737
013737
062716

001350
020000
001350
000094

001740
001140
001142

000072
010000

000000
001346

70 054326
71 054334

112776
162715

000073
000002

000000

162716

000010

67 056310
68 056316
09 054324

112776
(32737
001403

72 056340

004736

74 054346

000240

77
78 054350
79 056356

032737
001424

73 054342

;Z 054350

80
81
8c
83
86

054360
056366
054374
054402
054406

85 054414
86 054420

87 054422
88 054426

gg 054430
91

92 054430

gz 054436

013737
042737
(013737
062716
112776

001350
002000
001350
000004
000070

001140
001140
001142

162716
000240

000010

032737

050200

001517

000002

;RECEIVED STATUS
;MOVE SP TO USER'S ERRNR (A.
L

MOVB
Sus

#73,(SP)
#2,(SP)

sNO = CHANGE ERROR NUMBER
;JMOVE SP TO RETURN FOR ERROR

NOP

#72,3(SP)
#MOL ,RMDS ]
38
PC,2(SP)+
#10,(SP)

JWRITE ERROR NUMBER [N USER'S (4
JWAS ‘MOL'' = 0??
JYES!!
;REPORT ERROR VIA USER

JMOVE SP BACK TO BRANCH

;REPORT AN ERROR IF '‘IAE'' [S SET
BIT
#]AE ,RMER1!
;IS "'IAE" SET?2?
BEQ
4%
;NO.!

MOV
8I1C
MOV
ADD
MOVR
SuB
JSR
SuB
NOP

;SEE

RMER11,$GDDAT
#1AE, $GDDAT
RMER11,$BDDAT
#4,(SP)
#70,a(SP)
#2,(SP)
PC,a(SP)+

#10, (SP)

;EXPECTED STATUS
;RECEIVED STATUS
;MOVE SP TO ERROR (ALL
JWRITE ERROR NUMSER IN USFR'S CALL
;MOVE SP TO RETURN FOR ERROR
;REPORT ERROR
;MOVE SP BA(CK TO NO ERROR RETURN

*'SKI'" OR "'IVC'' OR 'DVC'" IS

BIT

BEQ

A#SK1!'1VCIDVC,RMER2]

SET

JNONE OF

THE BITS ARE SET

;REPORT ANY "'IVC'' ERROR AS

97
98

99 (54440

032737

010000

001376

101
102
103
104

013737
042737
013737
062716

001376
010000
001376
000004

001140
001140
001142

032737

000100

001346

100 054446

054450
054456
054464
054472

“05 054476
106 054504

001433

112776

000074

107 054512
108 054514
'09 054522

001403
112776
162716

000075

*11

162716

000010

'10 054526
054530

'12 054534

113054536
'L

#0P1,$GDDAT
RMER1] ,$BDDAT
#4, (SP)

JSR

4%:

95
¢

000000

001376

81C
MOV
ADD

MOvVB
BIT
BEQ

31%:
001350

11:43:¢8 PAGE 30-1

JREPORTM ANY "OP['' ERROR AS
h
. OP] DUE TO "MOL'' - 0
:
. OP1 BECAUSE ON CYLINDER LATCH DIDN'T RESET
BIT
#OP] ,RMER1]
JWAS OP] SET?7
BEQ
318
JNO!!
MOV
RMER1] ,$GDDAT
;EXPECTED STATUS

SuB

002000

162716
004736

4-APR-87

004736
000240

000002

;
:

BIT

#1VC,RMERZ!

JWAS Iv(C SET??

MoV
BIC
MOV
ADD

RMER2] ,$GDDAT
#1VC,8GDDAT
RMERZ] ,$8DDAT
44, (SP)

;EXPECTED STATLS

BEQ

000000

LvE WITH w = 0
.ERRONEOUS 1V(C ERROR

MOVB

5%:

#74,3(SP)

BIT

#VV ,RMDS]

JSR

PC,a(SP)+

BEQ
MOvB
SUB
SUB

6$:

NOF

5%
#75,a(SP)
#2,(SP)
#10,(SP)

JNO..

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR (ALL

sWRITE ERROR NUMBER IN CALL
;WAS vV = 02?

JYES!!
;NO - CHANGE ERROR NUMBER
JMOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER
;MOVE

SP BACK

TO BRANCH

N1 OCNE
W
2OV NT

s
.
4

054536
US465644
054546
054554
054562

054570
054574

054602
054606
054610
074614
054616

032737

(40000

001376

013737
042737
013737
062716

001140

112776
162716

0u1376
040000
001376
000004
000076
000002

162716

000010

001424

004736
000240

SuB

054720
054726
054730
54736
054740
054746
054754
054762
054766
054774
055000
055002
055006
055010

032737
001030
032737
J01024
013737
052737
013737
062716

055010
055016
655020

032737
001230
032737

112776
162716

004736
152716
000240

NOP

7%:

000010

013746
042716
022726
001002
000137

ADD

JSR

1€2716

054676
04702
(54706
054712
254714
054720

MOV

BEQ
MOV
BIC
MOV
ADD

000000

MOVRB
SuUBR
JSR

SuB

NOP

8%:

;SEE

001346
047676
110100

055330

85%:

010000

001346

020000

001350

001346
010000
001346
000004
000100
000002

001140
001140
001142

RMERZ2] ,$GDDAT

: EXPECTED STATUS

JMP

#DV(C ,RMERZ]

8%
RMERZI ,$GDDAT
#Dv( ,$GDDAT
RMERZ] ,$BDDAT
#4,(SP)

#77,2(SP)
42, (SP)

PC,2(SP)+

#10, (SP)

: RECEIVED STATUS

: MOVE SP TO USER'S ERROR fALL

: WRITE ERROR NUMBER
.
; MOVE SP TO RETURN FOR ERROR

; REPORT ERROR VIA USER

: MOVE SP 1O BRANCH

; WAS 'DV(C'' SET??
JNO.!

JEXPECTED STATUS

JRECEIVED STATUS
;JMOVE

(ALL

;MOVE SP TO RETURN FOR ERRCR
JREPORT ERROR VIA USER

;MOVE SP TO USER'S BRANCH

I.E., MEDIUM WENT OFF

: YES -~ DON'T REPORT MOL
9%
RMDS] ,$GDDAT
. EXPECTED STATUS
#MOL
, SGDDAT
RMDS] ,$BDDAT
. RECEIVED STATUS
#4,(SP) :MOVE SP TO USER'S ERROR CALL

SUB

NOP

138

BNE
MOV
81S
MOV
ADD

MOVB

9%:

TO USER'S ERRGR

;WRITE ERROR NUMBER

#MOL ,RMDS|
9%

SUB

001376

#10, (SP)

SET??

BIT
BNE

JSR

010000

PC,a(SP)+

SKI

"PIP'" AND ‘OM'" ARE 0, AND "'ATA',"MOL'" AND ''VV'' ARE
MOV
RMDS],=(SP)
;PUT RMDS ON STACK
BIC
#*(C<PIP .MOL!VV.OM!ATA>, (SP)
cMP
HATA!MOL
Vv, (SP)+
85%
BNE

BIT

000010

001346

#4, (SP)

; NO. .

JREPORT AN ERROR IF MOL - C AND OP] = 0,
sLINE AFTER RECALIBRATE WAS INIT] ATED

000000

000100

SEQ 021/

; USS

:REPORT ANY "DV('' ERROR

BIT

#SK]1,RMERZ]

#76,9(SP)
#2, (SP)

162716

000240

BEQ

MOVR
suR

001140
001140
001142

004736

BIT

000000

001376
000200
0G1376
000004
000077
000002

112776

JREPORT ANY ‘'SKI'' ERROR

#SK],$GDDAT
RMERZ! ,$8DDAT

001376

032737
001424
013737
042737
012737
062716

11:43:¢8 PAGE 30-2

BIC
MOv

000200

054616
054624
054626
054634
C5464¢
054650
054654
054662
054666
054670
054674
054676

4-APR-81

001140
001142

! [e

- cd o

bad

n niny AN 1AV T, N1, VT, V1, V1 S

..,

MACRO v04.00
JeMME, <MUS/3/2 FOTNL TST
4 [BRATE STATUS (HECK SUBROUT INE

#0P] ,RMER11]

#100.,(SP)
#2,(SP)

PC,a(SP)+

#10, (SP)

; DID MOL DROP??
. NG!!

; WAS OP] ERROR REPORTED??

: WRITE ERROR NUMBER

; MOVE SP TO RETURN FOR ERROR

. REPORT ERROR VIA USER

N MOVE

SP BACK TO JSER'S BRANCH

;REPORT AN ERROR IF '‘wy*'
0 AND “IVC = 0
BIT
#VV ,RMDS]
. géo "'Vv'' DROP??
BNE
10%
;
8IT
#1VC,RMERZ]
J WAS THERE A 1v(

ERROR??

MACRC v04.00
J~MMB, “MOS/3/2 FCINL TST 1
L, [BRATE STATUS (HECK SUBROUTINE

4-APR-81

11:43:¢28 PAGE 30-3

jors

055026
055030
" 74 055036
055044
055052
177+ 055056
178 055064
055070
180 055072
055076
182 055100
133
184

185
186
187
188
'89

190
191
192
163

194
195 055156
196

001024
013737
013737
052737
062716
112776
162716
004736
162716

000240

032737
001024
013737
052737
013737
062716

001346
001346
000100
000004
000101

000002

000000

MOVB

100000

001346

001140
001140
001142

100000

001346

162716

000010

000000

SUB

JSR
SuUB
NOP

;REPORT AN ERROR IF ATA IS NOT
f?;A,RMDSI
BIT
BNE
MOV
RMDSI ,$GDDAT
#ATA ,$GDDAT
BIS
RMDSI ,$BDDAT
MOV
#4, (SP)
ADD
#102,(SP)
MOVB
#2,(SP)
suB
PC,a(SP)+
JSR
#10, (SP)
SUB
NOP

JREPORT AN ERROR

200

201 055160
202 055166
203 055170
055176
055204
055212
055216
055224

055230

055232
055236
055240

055240
055246
055250
055256
055260

055266
055274
055302
055306
055314
055320
055322
228 055326

10%

RMDSI,$GDDAT
RMDS], $BDDAT
#VV,SGDDAT
#4, (SP)
#101,a(SP)
42, (SP)
PC,a(SP)+
#10, (SP)

JYES = DONT REPORT vv = 0
JEXPECTED STATUS
JRECEIVED STATUS

JMOVE SP TO USER'S ERROR (ALL
;WRITE ERROR NUMBER [N CALL
sMOVE SP TO RETURN FOR ERROR
;MOVE

SP BACK

SET
;wggleTA SET

TO USER'S BRANCH

DURING RECALIBRATE??

JYES!!

JEXPECTED STATUS
JRECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
JWRITE ERROR NUMBER IN CALL

JMOVE

SP TO USER'S BRAN(H

11%:

197 055160

168
199

nNIrONY A IASIAS
AN TNLSS TN O T, N 1NN 1,8 1, V]
lAS 1AW 1AV NONVNOMNOR
) St
a2
~NOM W S WNNV—=O VoY JRNTo SV, ¥ L RVFI VI

BIS
ADD

10%:

112776
162716

000240

MOV
MOV

000010

000004
000102
000002

004736

B8NE

001140
001142
001140

032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

032737
001430
032737
001024
013737
042737
013737
062716
112776
162716
004736
162716
000240

000001

001346

001340
000001
001346
000004
000103
000062

001140
001140
001142

;ALWAYS

BIC

MOV
ADD
MOVB

000010
12%:

020000

001346

040000

001376

001346
020000
001346
000004
000104
000002

001140
001140
001142

000010

000000

BIT
BEQ

MoV

000000

CLEAR OFFSET

SUR
JSR
SUR
NOP

''OM'' IS NOT ZERO BECAUSE RECALIBRATE SHOULD
MODE

#OM,RMDSI
12%
RMDS],$GDDAT
HOM,$GDDAT
RMDS], $BDDAT
#4, (SP)
#103,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

JWAS ‘OM'* RESET??
JYES!!
JEXPECTED STATUS
JRECEIVED STATUS
JMOVE SP TO USER'S ERROR CAL.
;WRITE ERROR NUMBER
;MOVE SP TG RETURN FOR ERROR
JREPORT ERROR VIA USER
;MOVE SP TO USER'S BRANCH

;REPORT AN ERROR IF “'PIP'' IS STIL ON, I.E.. DRIVE NOT ON
;CYUINDER
qgiP,RMDSI
;ég'?RIVE OFF CYLINDER??
BIT
Q
BE
HSK] ,RMERZ2]
JWAS ‘'SKI'' DETECTED??
BIT
BNE
Mov
BIC
MOV
ADD
movB

SUB
JSR
SUB
NOP

13%

RMDSI, $GDDAT

#PiP,$GDDAT

RMDSI ,$BDDAT
#4,(SP) ;MOVE
#104,2(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;YES-DONT REPORT 'PIP"’
JEXPECTED STATUS

JRECEIVED STATUS
SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER
JMOVE SP TO RETURN FOR ERROR
JMOVE

SP BACK TO USER'S BRANCH

MACRO v04.00
IRMMBO RMOS/3/2 FCTNL TST 1
wE“A_ |BRATE STATUS CHECK SUBROUTINE

1
L
11:43:¢8 PAGE 30-4

sE0 021¢

13%:

229 055330

055330
55336

" 32737
001514

(40006

001350

055340
237 055346
238 055350
239 055356
2+0 055364
241 055372
262 055376
¢43 055404

032737
001424
013737
042737
013737
062716
112776
162716

000002

001350

001350
000002
001350
000004
000105
000002

001140
u01140
001142

244
245
246
2647

055410
055412
055416
055420

004736
162716
000240

250
251
252
253

055420
055426
055430
055436

032737
001424
013737
042737

;SEE IF "'ILR' Ok '"RMR'' OR 'UNS'' IS SET
BIT
BEQ

;REPORT AN ERROR

BIT
BEQ
MOV
BIC
MOV
ADD
MOVB
SuB
JSR
Sgg

000000

000010
14%:

000004

001350

001350
000004
001350
000004
000106
000002

001140
001140
001142

254 055444
255 055452
256 055456
257 055464
258 055470
259 055472
26V 055476
261 055500

013737
062716
112776
162716
004736
162716
000240

264 055500
265 055506
266 055510
267 055516
268 055520
269 055526
270 055534
271 055542
272 055546
273 055556
274 055560
275 055562
276 055566
277 055570
278

032737
001430
032737
001024
013737
042737
013737
062716
112776
162716
004736
162716
000240

040000

001350

000200

001376

001350
040000
001350
000004
000107
000002

001140
001140
001142

280 055570
281 055574
282 055600
283 055602
284 055606
~85 055610

062716
105776
001403
062716
000402
162716

000004
000000

279

&-APR-81

IF "'ILR'' IS SET
#ILR,RMER1]
sWAS ILR SET DURING RECAL IBRATE??
14$
JNO!,
RMCR11,$GDDAT
;EXPECTED STATUS
#ILR,SGDDATY
RMER11,$BDDAT
;RECEIVED STATUS
#4,(SP) ;MOVE SP TO USER'S ERROR CALL
#105,a(SP)
JWRITE ERROR NUMBER IN CALL
#2,(SP)
;JMOVE SP TO RETURN FOR ERROR
PC,a(SP)+
#10,(SP)
;MOVE SP TO USER'S BRANCH

JREPORT AN ERROR IF '"RMR'' is SET
#RMR ,RMER1]
JWAS RMR SET??
BIT
15%
JNO!!
BEQ
MoV
RMER1],$GDDAT
;EXPECTED STATUS
#RMK
, $GDDAT
BIC
MOV
RMER1],$8DDAT
;RECEIVED STATUS

000000

000010
15%:

ADD
MovB
SUB
JSR
suB
NOP

#4, (SP)
#106,a(SP)
42, (SP)
PC,a(SP)+
#10, (SP)

;MOVE SP TO USER'S ERROR (ALL
JWRITE ERROR NUMBER IN USER'S
;MOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER
;MOVE SP TO USER'S BRAN(CH

;REPORT AN ERROR IF "UNS'' IS SET AND 'Dv(C'' IS O
BIT
qgQS,RMER1I
:U3§'UNSAFE ON??
BEQ
BIT

BNE
MOV
B1C

MOV
ADD

000000

000010
16%:

JAUGMENT

000004
000004

#ILR.RMR.UNS ,RMER1]
16%

17%:

MovB
Su8
JSR
SuB
NOP

#DVC ,RMERZ]
16%
RMER1],8GDDAT

:NO!!
;WAS THERE A DEVICE CHE(K??
JYES - DON'T REPORT UNSAFE
;EXPECTED STATUS

RMER11,$8DDAT
#4,(SP)
#107,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER
;MOVE SP BACK TO USER'S BRAN(H

HUNS
, $GDDAT

THE RETURN ADDRESS
#4, (SP)
ADD
TSTB
2(SP)

BEQ
ADD
BR
SUB

17%
#4,(SP)
18%
#4,(SP)

ANY ERROR WAS DETECTED

;MOVE SP TO USER'S ERRCR CALL
sWAS AN ERROR REPORTED??
JNO!!
JYES = AUGMENT SP RETURN

;NO ERROR - RETURN SP

TO BRAN(H

CALL

JHMMBO RMOS/3/2 FCTNL

“f

A [BRATE

TST 1

MA(RO v04.00

STATUS (HECK SUBROUTINE

’8€ 055614

<87 055616

000240

000207

18%:

4-APR-81 11:43:¢28 PAGE 30-5
NOP

RTS

JSTATUS CECK IS (OMPLETL

MACRO v04.00
JRMMB AMOS/3/72 FCTINL TST 1
RLIM. " EAR STATUS (ME(K SUBROUTINE

4-APR-81

WNPy

.SBTTL

DRIVE
BR
NOP

ERROR
JSR

Y MNAN

~N
c
L N NNA=
Juhbt\b#\bt\bt\bt\aunusf
ES N - OV R Te NV, ¥ SR LN
PN
ODOCW NP NS WOV N

[

SN WP rorLPUNI
~u TMY N
RSN

S
S
— 2 [P R
ee ¢ NOWNE

WAL 2O

055620
055624
055630

062716

055634
055642
055650
055656

013737
042737

105076
162716

004010
001140

062716
112776
162716
004736
162716
000240

000004
000141
000002

055714
055722
055730
055736
055744
055746
055752
055760
055764
055766
055772

013737

001346
021101
010600

055774

005037
013737
001413
062716

056036
056044
056046
056050
056054
056060
256064
55066

012737
023737
001413
062716

PC,a(SP)+

RETURN HERE
RETURN HERE

If NO ERROR
TO REPORT AN ERROR

RETURN HERE

ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MORE ERROR (HE(KS
NO MORL

ERRORS

162716

000010

000240

112776
162716

004736
162716
000240

013737
010146

010246
013701

116102
042702

NOS102

040237

JREPORT

5%:

001140

001350

000004
000143
000002

ADD

A&, (SP)

; COMPARE EXPECTED & RECEIVED
;BRANCH IF EQUAL

#141,3(SP)
#2,(SP)
PC,(SP)+
#10, (SP)

;WRITE NUMBER OF ERROR IN CALL
JMOVE SP TO RETURN FOR ERROR
JREPORT THE ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

;MOVE

SP TO ERROR CALL

#PGM!OM!VV!PIP,$BDDAT

(Mp
BEQ

$GDDAT ,$BDDAT
6%

;COMPARE EXPECTED & RECEIVED
JBRANCH IF EQUAL

#142,2(SP)
#2,(SP)

JMOVE SP TO RETURN FOR ERROR

SUB

NOP

ERROR
(LR
MOV
BEQ
ADD

MOVR
SUR

JSR
SUB

000010

JEXPECT DVA

$GDDAT, $BDDAT
6%

BIC

JSR

000000

SP TO USER'S BRANCH

ERROR IF RMDS NOT INITIALIZED
MOV
RMDS1,$BDDAT
: CHECK RMDS

ADD

001142

MOVE

#DVA!DRVCLR,$GDDAT

MOvVR
suB

6%:

JMOVE SP TO ERROR CALL
;CLEAR ERROR CALL

MOV

;REPORT

#4, (SP)
a(SP)
#4, (SP)

ERROR |F RM(CS1 NOT INITIALIZED
MoV
RMCS11,$BDDAT
;(HECK RM(S1
BIC
#~C<DVA.FNCMSK> $BDDAT
;CLEAR DONT CARES

MOVR
suB
JSR
Sgg

001140

000004
000142
000002

ADD
CLRB
SUB

(MP
BEQ

000010

112776
162716

004736

4%:

173700

012737
023737

042737

:REPORT

001334

001443

056034

CLEAR STATUS (HECK SUBROUTINE

;CLEAR USER'S ERROR CALL

000004
000000
000004

055664
055666
055672
055700
055704
055706
055712

056026
05¢ 030

DRVSTS:

055620

056000
056006
056010
05601«
0560.
¢

11:43:28 PAGE 31

NOP

;CLEAR DONT CARES

#MOL ! DPR.DRY,$GDDAT
#4, (SP)

PC,a(5P)+

#10, (SP)

JEXPECT DRY

:MOVE SP TO ERROR (ALL
JWRITE NUMBER OF ERROR

;REPORT

;MOVE

THE

#1643 ,a(SP)

42, (SP)

PC,a(SP)+
#10, (SP)

;MOVE

SP TG NO ERROR RETURN

TO ERROR

CALL

JWRITE NUMBER OF ERROR IN (ALL
;MOVE SP TO RETURN FOR ERROR
JREPORT THE ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

177400

ERROR IF ATA NOT INITIALIZED
;CHECK ATTENTION BIT
RMAS], $BDDAT
MOV
MOV
R1,-(SP)
;.PUSH R1 ON STACK
;.PUSH R2 ON STA(K
R2,~(SP)
MOV
TSTQUE ,R1
Mov
MOVA
1(R1) ,R2
,R?
N*(ATNMSK
BIC

001147

BI(

JREPORT

001352
001464
000001

00114/

:
8%

(oM

R, $BDDAT

IN CALL

ERROR VIA USER

|F RMER1 NOT INITIALIZED
$GDDAT
JEXPECT O'S
RMER1],$BDDAT
;CHECK RMERI1
8%
JBRANCH IF EQUAL
K4, (SP)

& DPR

‘

(ME(K

79 056210

(00240

162716

000010

81
382
83
84
85
86

056212
056220
056226
056234
056242
056244
87 056250
88 056256
89 056262
90 056264
9N 056270
92 056272

013737
(42737
012737
023737
001413
062776
112776
162716
004736
162716
000240
005037

001374

056276
056304
056306
056312
056320
056324
056326
056332

013737
0C1413
062715
112776

%4
95
9¢
97

98
99
100

101

102
103 056334
104 056342
105 056344

106 056350
107 056356
108 056362
9 056364
C 056370
1 056372

é
3 256372

G0000&
000145
000002

-2

00004€
000010
001140

012737
(23737
001413
062716
112776
162716
004736

—b

001360

001140

000004
000146

00C0V0

160009

nN00002

162716

000000

162716

000010

013737
001413
062716
112776

162716

004736

162716
000240

ERROR
MOV

B8IC

ADD

MOVB
SUB
N

000004
000150
000002

000240

BIC
MOV
cTMP
BEQ

Sgg

001142

000004
000147
000002

000000

#4, (SP)

PC.a(SP)
e

“1S ATTENTION CLEARED??
*MOVE

ATTENTION CLEARED

TO ERROR CALL

‘WRITE NUMBER OF ERROR [N CA(.
*MOVE SP TO RETURN FOR ERROR
*REPORT

THE

ERROR VIA USER

*MOVE SP TO NO ERROR k7 TURN

MJC'LS.LST,$RDDAT
:CLEAR DONT CARES
#MJD, SGDDAT
;EXOECT WRITE DATA ON
$GDDAT,$BDDAT
:COMPARE EXPECTED AND RECEIVED
118
*BRANCH IF ZERO

8, (SP)

#145.3(SP)
#2.(5P)
PC.a(SP)+
#10, (SP)

*MOVE

TO ERROR

CALL

*WRITE NUMBER OF ERROR N (A4 L
*MOVE SP 10 RETURN FOR ERROR
:REPORT THE ERROR VIA USER
*MOVE SP TO NO ERROR RETURN

IF RMMR2 NOT INITIALIZED
RMMR2] ,$BDDAT
:CHECK RMMR?

#ROA 'RQOB, $BDDAT :CLEAR REQA, REQB

XTST 1777, $GDDAT
SEXPECT TEST BIT ON
$GDDAT,$BDDAT
;COMPARE EXPECTED & RECEIVED
15%
*BRANCH IF EQUAL
#4. (SP)

*MOVE

PC.aA(SP)+

*REPORT THE ERROR VIA USER

#146.a(SP)
#2,(SP)

#1C, (SP)

SP TO ERROR CALL

*WRITE NUMBER OF ERROR IN CALL
SMOVE SP TO RETURN FOR ERROR

*MOVE

SP TO NO ERROR RETURN

15%:
CLR
$GDDAT
;EXPECT ZEROS
;REPORT ERROR IF RMECZ NOT RESET
MOV
RMEC2].$8DDAT
;CHECK RMEC2
BEQ
178
*BRANCH IF 0
ADD

:REPORT

17%:

*REPORT THE ERROR VIA USER

#10, (SP)

ERROR
MOV
BEQ

JSR

sgg

19¢:

PC.aA(SP)+

sgg

SUB

18%:

*MOVE

#150.3(SP)
#2.(SP)

ADD
MOVB

000010

#6, (SP}

MOVB
SUB

JSR

001376

*BRANCH IF

$8pDAT

!NTO R2
INTO R1

ERROR !F RMMR1 NOT INITIALIZED
MOV
RMMR1],$BDDAT
:(CHECK RMMR

JSR

001140

210, (SP)

MOV
tTMP
BEQ

000010

001402

004736

11¢:

;:POP STACK
;sPOP STACK

382

MOVB
SuB
JSR
ggg
;REPORT

(SP)+ .R2
(SP)+ R

#144.a(SP)
#2,(5P)

ADD

000000

001142
001142
001140
001142

011777

;REPORT

B
¢
*° :643:¢8 PAGE 31-

MO/B
SUB
JSR

000010

056146
056154
056162
056164
056170
056176
056202

78 0562064

ADD

000000

o
¥ oW o
nonmnn

71
72
73
76
75
76
77

000004
000144
000002

BEQ

013737
042737

007142

—d

o9 056132
70 056140

4=~-APR-81
MOV
MOV

012602
012601
005737
001413
062716
112776
162716
004736
162716
000240

58 056072
59 056074
60 056076
61 056102
056106
256110
056116
05€122
0561264
056130

SUBROUTINE

STATUS

MATR(C v04.00

—

TLEAR

&LIEAEAR

ORIVE

TST

8800
(o]
a)

JOMMBC FWMOS/37¢ FCINL

SP TO ERROR CALL

*WRITE NUMBER OF ERROR IN CALL
*MOYVE SP TO RETURN FOR ERROR
*MOVE SP TO NO ERROR RETURN

IF RMER2 NOT RESET
RMER21 ,$BDDAT
;CHECK RMER2
18%
‘BRANCH IF NO ERROR
#4, (SP)
#147,3(SP)

*MOVE SP TO ERROR CALL
‘WRITE NUMBER OF ERROR

PC.al(SP)+

*REPORT THE ERROR VIA USER

#2,(SP)

#10, (SP)

IN CALL

*MOVE SP TO RETURN FOR ERROR
*MOVE SP TO NO ERROR RETURN

JAMMBC RW0S5/3/2 FCTNL TST
MATRO v04.00
TRivt
(EAR STATYS (METK SUBROLTINE
1'5

105776

001403
062716
000402

162716
000240
200207

(00004
000000

JAUGMENT

000004

*1:43:28 PAGE

RETURN ADDRESS
#6,(5P)
ADD
1STR
a(SP)

REQ

000004
"

062776

[aV1aV]

¢ 056372
117 056376
118 056402
19 056404
12C 056410
127 (056412
"22 056416
‘23 056420

4-aPR-81

218

ADD
8R

84,

RTS

SuB
NOP

238

ANY

ERROR wAS

FOUND

MOVE SP TO ERROK (ALL
::gs AN ERROR DETECTED??

LYES- MOVE SP TO ERROR RE TURN

(SP)

86, (SP)

21-2

;MOVE

SP BACK

TO NO ERROR RETURN

JRETURN 10 USER

JRMMBC SMOS/372 SCINL TST 1

SEAR
w STATYS Tw=E(K

SUBROUT INE

MACRO v04.00 4-APR-8"' 11:43%:/8 PAGE 35
D

LSBTTL
I'4

1
“

EQ D224

SEAR(CH STATUS (HE(K SUBROUTINE

;THIS SUBROUTINE VERIFIES THE RESULTS OF SEARCH OPERATIONS USING
*STATUS STORED IN THE GET BUFFER AND TEST (ONDITIONS STORED IN 't
*PUT BUFFER.

;

;THE

SUBROUTINE

RETURNS

THE

"DETECTED AFTER HAVING LOADED

CALLING ROUTINE

THE APPROPRIATE

AN ERROR

ERROR AUMBER [N

*THE USER'S '‘ERROR'' TRAP.

;THE FOLLOWING CONDITIONS ARE CHECKED:

.ANY ERROR WHICH OCCURRED WHILE READING OR WRITING REMOTE

1€

.'TAE'' STATUS 1S CHECKED IN ACCORDANCE WwITH THE VALUE DF TERMINED

OPI'', IF SET, 1S REPORTED AS 1) "OPI'* DUE TO MOL = 0, OR 2}

CUIVE'', IF SET. 1S REPORTED AS 1) “'Iv('’ ERROR WwITH VOLUME

."'SKI'*
IS REPORTED IF SET

.'DVC'' IS REPORTED IF SET

.AN ERROR IS REPORTED IF "MOL'' = 0, OR 'PIP"' = 1, OR "ATA""

3¢

:SCALL:

()

5 (6)

*REGISTERS IS REPORTED,

“BY THE PROGRAM, WHICH

SVALID ZERO, OR 2) ERRONEOUS ‘'IVC'" ERROR WITH VOLUME VALID SET.

30
31

:OR w0,

110

35
36
27

(%)
1(4)
1(5)

29 056422

:q 056436

48
49

50 056442

51 056450
52 056452
gz 056460
5s
5¢ 056462
57 C56470

1S BASED ON FORMAT AND ADDRESS.

“'OPI'" CUE TO ON CYLINDER LATCH.

&2
43 0564622
4b 056406
45 056432

I.E., ‘MCPE'" = 1 OR 'PAR' = 1

JSR

NOP
ERROR
JSR

PC.5CHSTS
22

PC,a(SP)+

RETURN HERE

NO ERROR

RETURN HERE TO REPORT ERROR
SUBROUTINE WILL LOAD ERROR #
GO BACK FOR MORE CHECKS

RETURN AFTER ALL ERRORS REPORTED

SCHSTS:
062716

000004

005037

057764

105076
162716

032737

001431
032737
001025
013737
042737

:CLEAR USER'S ERROR CALL
ADD
#4, (SP)
CLRB
a($P)
SUB
¥4, (SP)

000000
000004

CLR

000010

001350

000010

001376

001350

001140

000010

001140

200s

:MOVE SP TO USER'S ERROR (AL,
*CLEAR ERROR NUMBER
'MOVE SP BACK TO NO ERROR BR

“CLEAR STATUS FLAGS

:TEST FOR MASSBUS (ONTROL BUS PARITY ERROR WHEN WRITING REMOTE
"REGISTERS, 1.E., 'PAR"" = 1 AND 'DPE'* - 0.

BIT

BEQ
BIT
BNE

#PAR,RMER1]

108
#DPE ,RMER?1
108

:WAS PARITY ERROR DETE(TED??

‘NO'!
‘WAS IT CONTROL BUS ERRQR??
*PROBABLY NOT'!

;REPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL
MOV
RMER1],$GDDAT
;EXPECTED STATUS
BIC
#PAR, $GDDAT

JLMME,
w

STATYS

(HECK

013737
062716

004736

056516
056522
63 056524
&4 056530
65 056532
66 056534
67
61

68
69
70 056534
71 056542

72
73

76 056544
75 056552

76 0.6560
77 (56566

78 056572

056600
056604
056606
056612
056614
056620

SUBROUT INE

58 056476
5% 056504
6C 056510

CL8LRRFRRIB2BY

tAR

RMOS/3/2 SOTINL

162716

0C1350
C00004
000050
000002

162716

0v0010

112776

000240
000430

MAIR. v0&4.00 4=-APR-81 11:43:28 PAGE£ 35-1
001142

MOV

RMER1],$80DAT

;RECEIVED STATUS

000000

move

#50.a(sp)

‘WRITE ERROR NUMBER [N CAL.

ADD

SUB
JSR

108

(SP)

#2,(5P)
PC.a(SP)e

*MOVE

SP TO USER'S ERROR (AL

SMOVE SP TO RETURN If
*REPORT ERROR

ERROR

332

210, (5P)

SRESTORE SP TO NO ERROR

15%

:SKIP FURTHER ERROR (ME(KS

;TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN READING REMUTE
0327%7
001426

020000

001334

013737
042737
013737
062716

001140
001140
G01142

112776
162716

001334
020000
001334
0C0004
000013
000002

162716

000610

004735

00240
000137

JREGISTERS,

057736

057764
001466

042737

04000C

057764

056652
056660

123737
101016

001417

001333

001140

056662
056670
056672
056700
056702
056710

123727

001416

000035

032737
001406

010000

001442

123727
101002

001416

706037

056712

005037

001140

056716
056724

013737
042737
023737
001004
042737
000413

001350
001140

001142
001142

040000

057764

‘NO.
.

MOV
BIC
MOV
ADD

RMCS11,$GDDAT
#MCPE
, $GDDAT
RM(S1],$8DDAT
¥4, (SP)

;EXPECTED STATUS

SUB

82, (SP)

*MOVE SP TO RETURN IF

MOVR

#13,3(5P)

PC.a(SP)+

383

#10, (SP)

JMP

1508

THE

VALUE OF

JRECEIVED STATUS
*MOVE SP TO USER'S ERROR (ALL

‘WRITE ERROR NUMBER

ERROR

*REPORT ERRUR AND RE TURN

"RESTORE SP 70 NO ERROR
;OMIT

STATUS CHECKING

''IAE'' STATUS BASED ON TRACK,

SECTOR AND (VY. [NDFW

JALSO SET "'SKI'" FLAG IF CYLINDER ADDRESS IS TOO LARGE.
MOV

81S
o o
BHI
BIC

#]AE , $GDDAT

#5k1,200%
RMDCO,#822.
308
#5x1,200%

JSETUP FOR JAE -

CMPB
BH]

RMDAO+1 ,LSTRK+1
30%

;GREATER THAN LAST TRA(CK ?
JYES = TRACK IS INVALID

CMPB

RMDAQD,#29.

25%
AFMT 16 ,RMOFO
30%
RMDAC ,#31,
30%

:SECTOR > 29. ?

INO!
.
;18 BIT FORMAT ?
SYES =~ SECTOR IS INVALID FOR 18 BIT MODE
JSECTOR > 31. ?
JYES = SECTOR IS INVALID

(LR

$GDDAT

JU'TAE'Y SHOULD - O

BLOS
BIT
BEQ
CMPB
BH]
25%:

001142

;WAS PARITY ERROR DETECTSD=~>

;REPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL.

;gg:

002000
040000
001444

175777

208

JSR

012737
052737
023727

101410

IMCPE RMCS1]

BEQ

000000

056620
056626
056634
056642
056644

101025

I.E., "MCPE'' = 1,

BlT

;DETERMINE

056732
056749
056742
056750
056752

#6,

JSETUP FOR SK]
1
JGREATER THAN LAST CYLINDER ?
JYES =~ CYLINDER IS INVALID
JU'SKIT SHOULD BE ZERO

: COMPARE EXPECTED AND RECIVED ''IAE'' STATUS

30$:

208

MOV

BI1C
cmp
BNE
BI(
BR

RMER1],$8DDAT

#~(]AE ,$BDDAT
$GDDAT,$BDDAT
40%
#5k1,200%
50%

;GET RECEIVED IAE
;1S TAE
JNC!.

;SKI

CORRECT??

SHOULD BE ZERO

TATUS

C56752
056756
056764
056770
056772
056776
057000

(HECK

TST

SUBROUTINE

062716
112776

(00004

162716

000257
000002

162716

000010

004736
000240

MACRD v04.00

006000

G3e/37
0015%1

050200

001376

357010
057016
057624
057032
057040
057046
057050
057054
057062
057070
057072
057100
057104
057106
057112
057114

013737
042737
013737
042737
023737
001422
062716

001376

001142
001142
001140
001140
001142

137777

057764

137777

001140

112776

000004
000263

112776
162716

000267
000002

16271€

000010

032737
001403
004736
000240

04000C

move

#257.a(sP)

JSR

PL,a(SP)+

SUB

5C%:

32-2

#2,(5P)

#10,(SP)

NOP

BIT
BEQ

150 057122

51 057124

057132
057140
057146
057152
057160
057166
158 057170
159 057176
100 057202
161 057204
162 057210
163 057212
152
153
154
155
156
157

032737
001433
013737
042737
013737
062716

ADD

#4,(SP)

;MOVE

(MP
BEQ

55%:

MOVR
BIT
BEQ
MOvB
suB
JSR
Sgg
N

$GDDAT ,$BDDAT
60%

;IS "'SKI'’ 0K??
;YES=CHANGE ERROR NUMBER

#263,(SP)
#SK1,$GDDAT
55%
#267,3(SP)
#2,(SP)
PC,a(SP)+
410, (SP)

;WRITE ERROR NUMBER
;SHOULD ''SKI'*
BE SET??
;NO!!

001140
001140
001142

BIC

112776
162716

000265
000002

000600

162716

000010

057220

168 057222

169 057230
057236
171 057244

032737
001424
013737
042737
013737
062716

MoV

000000
00134¢

001376

001376
000200
001376
000004

001140
001140
001142

:RECEIVED STATUS

#264 ,a(SP)

JWRITE ERROR NUMBER IN (ALL

70%

sNO!!

#2,(SP)

JMOVE SP TO RETURN [F ERRCR

MOvB

#265,3(SP)

JSR

PC,a(SP)+

NOP

210, (SP)

sREPORT ANY DEVICE FAULT,
BIT
BEQ
MOV
BI(
MOV
ADD

1S IvC SET??

RMERZ] ,$BDDAT

#1V(C,$SGDDAT

AVV _RMDSI

SUB

VALID
VALID SET

;NO.!
;EXPECTED STATUS

BIT

BEQ

80%:

000200

JREPORT ERROR AND RETURN
JRESTORE SP TO NO ERROR

80%
RMERZ2] ,8GDDAT
#4,(SP)

MOVR

7G$:

#1VC ,RMERZ2]

ADD

SUB

164

165
166 057212

BEQ
MoV

SP TO USER'S ERROR CAIL

;YES=CHANGE ERROR NUMBER
JMOVE SP TO RETURN IF ERROR

.1vC DUE TO LOSS OF VOLUME
.ERRONEOUS IVC WITH VOLUME

001376
010000
001376
000004
000264
000100

000240

JARE ANY BITS SETO°

JEXPECTED ‘'SKI'" STATUS

8IT

004736

ERROR AND RE TURN

2008, SGDDAT
#%(SK],8GDDAT

001376

032737
001403

JREPOR!T

JRETURN SP TO NO ERRQR

MOV
81C

010000

112776

*MOVE SP TO RETURN If ERROR

#SKIIDVC.IVC,RMERZ]
90%
:NO!!

sREPORT "IVC'" ERROR AS

148
149 057114

SWRITE ERROR NUMBER IN CALL

;REPORT ERROR IF ''SK]'' IS SET AND ‘'SKI'' FLAG [S NOT SET
MOV
RMERZ2]1,$BDDAT
;RECEIVED ''SK]'' STATUS
#~(SK],$BDDAT
BIC

60%:

144
147

EQ 0226

;SEE IF "'SKI' OR "DV OR 'UIVC'T IS SETY

000000
001140

000000

11:43:¢8 PAGE

INCORRECT JAE STATUS VIA USER'S ERROR CALL
ADD
#4, (SP)
:MOVE SP TO USER'S ERROR (Al
1

SUR

057000

057006

4-APR-81

;REPOR]

Eal ol Sl 2
o

[¥4]

NNNB-‘J—._‘-‘
W
SO 000 N

ed
e
d
b
— e

AM(OS/372 FCINL

I.E.,
#DV( RMERZ]
90%
RMER2],$GDDAT
#DV(,SGDDAT
RMERZ] ,$BDDAT
s, (SP)

;MOVE

SP TO USER'S ERROR rALL

JWAS VOLUME

VALID??

JYES < CHANGE

ERROR NUMBER

JREPORT ERROR AND RE TURN

JRESTORE SP TO NO ERROR

"DV('" =1
JWAS THERE A DEVICE FAWTY?
JNO.
;NO.
!!
EXPECTED STATUS
;RECFEIVED STATUS
JMOVE SP TO USER'S ERROR (AL

CAMMEL

tA&%

BMOS/

STATS

172 057250

*73 057256

ECTNL

(HECa

)

MACRD

112776

000266

162716

(00002

162716

00000

004736

176 057270
';g 057272

000240

185 057310
186 057316
187 057326

0°3737
042737
013737
062716

Q01350
020C00
001350
000004

001140
001140
001142

190 057364

001403

000270
010000

000000
001346

0C0271

000000

192 0573564

001433

112776
032737
112776

162716

000002

162716

000010

193 057360

004736

“95 057366

000240

‘98
199 057370

0137646

001346

201 057400

022726

110100

194

057%2

;gg 057370

200 057374

§8§ 057404

#266,3(SP)

;WRITE FRROR NUMBER [N (4,

JSR

PC alSP)e

*REPORT ERROK AND RE TURN

NOP

042716
001554

:
N

02.(§P)

{MOVE SP TO RFTURN [F ERROK

fi16.(SP)

JRESTORE SP TO NO ERROR

."'0P1"* BECAUSE MEDIUM IS NOT ONLINE
COPI' BECAUSE ‘ON CYLINDER'' DIDN'T DROP
817
#OP].RMER1]
;WAS OP] SET"?
B8EQ
1108
JNO!.
MOV
RMER1[,SGDDAT
JEXPECTED STATUS
BIC
MOV
ADD

MOVR
817
BEQ

1058:

JRECEIVED STATUS
IMOVE SP TO USER'S ERROR (ALl

105%

JYES!.

#270,a(SP)
#MOL . RMDS |

#271,8(SP)

+SR

PC,a(5P)«

SUR

;MOL

047677

“ATATM
MOV

BIC

(MP

BEQ
:~EPORT

AN ERRQOR

#ATA'MOL :VV,(SP)+
1508
IfF

SYES!!

MOL

U AND

207 057416
208 057424
209 057432

013737
052737
013737

001346
010000
001346

001140
001140
001142

1019
8IS
MOV

RMDS1,$GDDAT
#MMOL
, SGDDAT
RMDS1 ,$BDDATY

213 057454

112776

MOVR

#272.3(SP)

2% 057462
218 057466
216 057470
217 057474
533 057476

220

221 057476

222 057506
223 057506
224 057514
225 057516

226 057526

257 2567632
o8 057540

BNE

032737
001013
062716

020000

162716
004736
162716
000240

000002

032737

020000

001345

040000

001376

BEO
BIT

013737

001346

001140

MOV

013737
062716

001346
000004

001142

001430
C32737

001024

042737

006272

BIT
BNE
ADD

0000C)

000010
1208:

020000

001140

ERROR

ERROR AND RETURN
SP

TO NO

ERROR

"MOL'"
= "\W''
- 1 AND 'PIP- 0
RMDS],=(SP)
:GET DRIVE STATUS
“C<ATA.PIPIMOL
! ¥V>, (SP)

mOL.RHDSI

000004

(HANGE

:RESTORE

JREPORT

BIT

001350

210, (SP)

001346

210 057440
211 057446
212 057450

*MOVE SP TO RETURN If ERROR

010000

001030

WAS

#2,(5P)

032737

206 057414

*SETUP ERROR FOR MOL = (
*WAS MOL 072

NOP

1108 :
SSEE

#0P] ,$GDDAT
RMER1],$8DDAT
#4, (SP)

MOVR

SUR

204

205 057408

2
3/-3

JREPORTM ANY 'DPI'' ERROR AS

00135C

$S7346

PAGE

MOVB

SuUB

020000

191

*1:43:¢8

SUB

(032737

188 €57330
189 057336

&=APR<81

002000

179

*80
g
182 057272
'33 US7300
1846 057302

G
\C&.0C

SUBROU
INE
T

76 057262

*75 057264

TST

SUR
JSR
SUB
NOP

1208

#0P] .RMERT]
1208
#4,(SP)
82, (5F)
PC,a(SP) e
#1C, (SP)

OP]

;1S DRIVE STATUS (CORRE(T??

ERROR

WAS

BNE

BIC

MOV
ADD

#P]P,RMDS

1208
#SK] ,RMER2]
1308
RMDSI,SGDDAT

#P 1P, $GDDAT

RMDS],$BDDAT
#4, (SP)

REPORTED.

[.E..

‘NO!!

JEXPECTED STATUS
JRECEIVED STATUS

:WAS OP] REPORTED BEFORE??
“YES - DON'T REPORT MOL
O
;MOVE SP TO USER'S ERROR CAL.

*WRITE ERROR NUMBER IN CALL

*MOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN
JRESTORE SP TO NO ERROR

;REPORT AN ERROR IF PIP IS STIL SET AND SKI

BIT

NOT

JWAS MEDIUM OFF ( INE??

IS RESET

215 POSITIONING IN PROGRESSTM"
‘NO!.
“WAS "'SKI'* DETECTED??

*YES-DONT REPQORT PIP
:EXPECTED STATUS

RECEIVED STATUS
JMOVE 5P TO USER'S ERRCR

OPI

EIFRRIA

T VL V1 W)

b o]

L¢9 057944
057552

1.3

LAY LRV
LA N

K&,

17:43:/8 PAGE

MOvB
suB

#273,8(5P)
#2,(SP)

.
JWRITE ERROR NUMBER N (A,
JMOVE SP TO RFTURN [F ERKROK

332

010, (sP)

‘RESTORE SP TO NO ERROR

JSR

30~

PC a(SP)e

‘REPURT ERROR AND KE TURN

1308:

057566
957574
057576
057604
057606
057614
057622
057630
057634
057642
057646
657650
057654
057656

032737
001030
032737
001026
013737
052737
013737

057656
057664
057666
057674
057702
057710
057714
0577722
057726

032737
001024
01373/
052737
013737
062716

000100

001346

010000

001376

001346
00010C
001346

003140
001140
001142

112776
162716

000094
0003590
000002

162716

0C0010

062716

004736
000240

112776
162716

004736

001346

001140
001140
001142

100000

001346
000004
000351
000002

057736
057742

062716

000004
000000

162716

000207
000000

VOLUME

IS NOT

#vV ,RMDS]
1408
#1VC,RMERZ]

MOV
BIS
MOV
ADD

RMDSI ,$GDDAT
#VV,SGDDAT
RMDSI,$BDDAI
44, (SP)

suB
JSR

#2,(SP)
PC,a(SP)+

MOVR
agg

001346

000010

001403
062716
000402

AN ERROR

8IT
BNE
BIT

BNE

000060

1000C0

162716
000240

105776

sREPORT

1408

#350,a(SP)
#10, (5P)

vALID AND

Jv(C

= 0

;1S VOLUME VAL Iv??
JYES!!
JWAS JvC DETECTED??

JYES = DON'T REPORT vV = 0
JEXPECTED STATUS

JRECEIVED STATUS
sMOVE SP TO USERS ERROR (ALL

;WRITE ERROR NUMBER [N (ALL

sMOVE SP TO RETURN [f ERROR
JREPORT ERROR AND Rt TURN
JRESTORE

SP TO NO ERROR

140%:

057730
057734
057736

057756
057762

L=APR=B1

CO00C

057596
0575¢0
057564
057566

057746
57750
057754

vome..

'3"\

R
O VAL
FAG m STATLS
|

;REPORTY AN ERROR IF ATTENTION IS NOT SET
NATA ,RMDS |

ADD

#4, (SP)

BNE
MOV
BIS
MOV

000000

MovB
suB
JSR
Sgg
150%:

150%
RMDSI,$GDDAT
#ATA,SGDDAT
RMDSI,$BDDAT
#351,a(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

;1S ATA ON2?

JYES!!
JEXPECTED STATUS
JRECEIVED STATUS
;MOVE

TO USER'S ERROR (A{L

JWRITE ERROR NUMBER IN CALL
;MOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN
JRESTORE SP TO NO ERROR

;ARGUMENT THE RETURN ADDRESS IF AN ERROR WAS DETECTED
ADD
1518

#4, (SP)
a(SP)

RTS

1608
:

BEQ
ADD
BR
SuB

200%:

.WORD

0060004
000004

BIT

1708

160%
44, (SP)
170%
#4,(SP)

JMOVE SP 7O USER'S ERROR (CAL.
. WAS ERROR FOUND??

JNO.
.
;YES = CHANGE RETURN

2NO ERROR FOUND
JRETURN

TO USER

;STORAGE FOR F_AGS

~wp

L e bl

"ATUS (d

N~ RR__TINE

L-APR=BY

vv"' ViV

LSATTL

*1':43:/8 PAGE

STATIC DRIVE

STATUS (HE(K

SUBROUTINE

sJTHIS SUBROUTINE LOOKS FOR UNEXPECTED (HANGES IN CRIVE
sSTATUS,

SUCH AS

THE

DRIVE

LOSING VOLUME

VALID.

THE

SUBROUT
N

sCAN BE USED BY HOUSEKEEPING AND OTHER (OMMANDS DURING wH]
M THEt
JSHOULD NOT BE ANY DRIVE ERRORS OR (HANGES IN STATE,
JTHE
.

JIF

PIP
.5K1
.DVC

.
-

*
.
-

CONDITIONS ARE

s THE SUBROUTINE
SR
BR
NOP
ERROR
JSR

(1)

‘)‘)?

27 057766

AND REPORTED AS ERRCRS

062716

34
35
36
37

013746
042716
022726
001524

060002
060006
060012
060016

40 060020

0A0L26
(.J030
060036
060040
060046
060054
060062
060066
060074

€0 060100

1,
}.

NOTE

INDICATES THE DRIVE LOST VOLUME VALID

INDICATES THAT THE DRIVE IS OFF CYLINDER
INDICATES THE DRIVE HAS AN UNEXPECTED SK] ERROK
INDICATES AN UNEXPECTED DEVICE

Faun?

IS CALLED AFTER STORING STATUS IN TWHE GET BUFFER,
PC,STCDRVSTS

RETURN HERE [F NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB
GO BALK TO SUB FOR MORE ERROR (ME(Kk<

PC.R(SP)+

RETURN HERE

NO MORE

ERRORS

STCDRVS TS:

30 057766
31 057772
32 057776

61
42
43
44
45
46
47
4«8
49

TESTED

MO L = 0, INDICATES DRIVE WENT OFFLINE,
YHAT MOL 1 S A SSUMED TO WAVE BEEN SET

N IS

FOLLOWING

TR E:

105076
162716

032737
001030
032737
001024
013737
052737
013737
062716
112776

;CLEAR USER'S ERROR C(ALL

000004
000000
000004

ADD

.SEE

001346

147677

001346

020000

001350
001140
001140
001142

162716

001346
010000
001346
000004
000207
000002

162716

000010

600240

032737
001C30

JREPORT

001346

BIS

ADD
MCVR
SuB
JSR

JREPORT

TO USER'S

ERROR (ALL

:CLEAR ERROR NUMBER
;MOVE

SP BACK

AND 'PIPT

TG NO ERROR RE TURN

RMDS] , = (SP)

:PUT DRIVE STATUS ON STACK

308

JYES!:

A{<PIP!MOL.VV>,(SP)
#MOL IVV,(SP)+
JARE

MOL,vV AND PIP 0O.x .7

AN ERROR IF MOL = O AND "OPI'" = 0
#MOL ,RMDS |
1S MOL CN T2
BIT
BNE
108
JYES!!
#OP] ,RMER1]
sWAS ‘OPI'" SET2?
BIT
10%
JYES-DONT REPORT 'MOL'"
BNE
MoV

10%:

000100

MoV

Mov

000000

;MOVE

CLRB
a(<P)
4, (SP)
suB
"MOL" = VW' -1,

BIC
{MP
BEQ

010100

010000

004736

IFf

#4,(SP)

SUB
NCP

RMDSI ,$GDDAT
#MOL ,$GDDAT
RMDS] , $BDDAT
44, (SP)
#207 ,9(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

AN ERROR IF VOLUME
#VV , RMDS|
BiT
BNE
/0%

;EXPECTED STATUS

JRECEIVED STATUS
;MOVE SP 7O USER'S ERROR (AL,
;WRITE ERROR NUMBER IN CALL
;MOVE SP TO RETURN FOR tRROR
JREPORT ERROR V]A USER

;MOVE

SP BA(CK

TO NO ERROR RETURN

VALID |S NOW ZERO AND "'INC''

218w= 070
.
JNO.

STATUS (HEIx

MACRO v04.00
SUBROUTINE

4-APR-81

J
1':43:¢B PAGE

032737

010000

001376

BIT

#1VC,RMER2]

001140
001346
001142

MOV
BIS

RMDS], $GDDAT
#VV,RMDS
|

112776
162716

001346
000100
001346
000004
000210
000002

ADD

#4,(SP)

162716

00001G

JRMMBC RMCS/ R0
R

DRIVE

S8 60120
59 060126

60 060130
61 060136
6% 060144
63 060152
64 060156
5 060164
060170
060172
060176
060200
72 060200
73 060206
75

76
77

060210

060216

060220
60226

78 060234
79 060242

060246
060254
060260
060262
060266
0€0¢70

P AN 23383

2 bt
b b —o

004736
000240

032737
001630
032737
001024
013737
042737
013737

001346

040000

001376

001346
020000
001346
000004

001140
001140
001142

162716

000010

AN ERROR

BIT

BEQ
8IT
BNE

MOV

BiC
MOV

ADD
MOV

30%:

JWAS “'Iv(' SET??

208

RMDS], $BDDAT

;MOVE

#210.a(SP)

JYES=DONT REFORT
JEXPECTED STATUS

JMOVE SP BACK TO NO ERROR

IS OFF

308
#SK].RMER2]
308

RMDSI
, SGDDAT

#P1P, $GDDAT
, $BDDAT
RMDS]

#4,(SP)
#211.a(SP)

#2.(3P)

SUB

#10, (SP)

JRECEIVED STATUS

JREPORT ERROR VIA USER

#15, (SP)

F DRIVE

(‘

JMOVE SP TO RETURN FOR FRROR

#2,(5P)

#PIP.RMDS
|

'VV”

SP TO USER'S ERROR (ALL
JWRITE ERROR NUMBER [N (ALL

PC.ASP)+

SUB

NOP

2
33-1

P R(SP)+

CYLINDER AND "'SK['’
= Q

;1S DRIVE

OFF

CYLINDER??

WAS 'SK]'* SET??

:YES=DONT REPORT ‘PIP"* - 1
;EXPECTED STATUS

JRECEIVED STATUS
JMOVE SP TO USER'S ERROR C(ALL
;WRITE

ERROR NUMBER

IN USER'S (ALi

JMOVE SP 10 RETURN FOR ERROR
;REPORT EFROR V]A USER

JMOVE SP TO NO ERROR RETURN

TSEE IF "SKI= DVC = 0

000200

001376

00137¢
000200
001376
000004
000212
000002

001140
001140
001142

137577

40%-

000010

032737
001424
613737
062737
013737
062716

040000

001376

001376
040000
001376
000004
000213

001140

MOV
BIC
8EQ

PMER2] ,=(SP)
PUT ERROR REG ¢ ON STA(K
#~C<SKIIDVC>, (SPY+
668
JBRANCH ]F NO ERROR

sHEPORT AN ERROR IF THERE IS A DEVICE FAULT
BIT
#DVC ,RMER2]
:zgY'DEVICE FAULT??
BEQ
50
MOV

BIC

MOV

ADD
MOVB

000000

162716
000240

112776

JOP

JSR

032737
001424
013737
042737
013737
062716

004736

JREPORT

000000

260302
060310

112776
162716

SUB

)

001376

060302

MOVB

JSR

020000

000211
000002

000240

MOV

20%:

062716
112776
162716

004736

BNE

000000

013746
U42726
001460

060320
0603206
060334
060340
060346
060352
060354
060360
'05 060362

001024
013737
052737
013737
062716

VST

060270
060274
060390

060312

BTN

sUB
JSR
SUB

50%:

NOP

RMER2],$GDDA!

‘EXPECTED STATUS

RMER2] , $BDDAT

SRECEIVED STATUS
;MCVE SP TO USER'S CALL
JWRITE NUMBER OF ERROR IN (ALL

#DVC, $GDDAT
¥4, (SP)
#212.a(SP)

#2,(SP)
PC.R(SP)+
#10, (SP)

;REPORT AN ERROR IF ''SKI'* = 1
BIT
#SK],RMER2]
BEQ
608

001140
001142

MOV
BI(
MOV

RMER2]
, $GDDAT
#SK1,$GDDAT
RMER2]
, $BCDAT

000000

MovB

#2i3.a(sP)

ADD

¥4, (SP)

;MOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER
;MOVE SP BACK TO NO ERROR

:&g'guens A SEEK INCOMPLETE ERROR

“EXPECTED STATUS
JRECEIVED STATUS
JMOVE SP TO USER'S ERROR (ALL

JWRITE ERROR NUMBER [N USER'S ERROR

MACK v04.00
S0 KMUS/ 372 FUINL TST Y
TATL.
DRIVE STATUL (MECK SUBROUTINE

'18 0604%6
16 060432

117 360634
*18 060440

119 260642

162776

000002

162716

000010

004736

000240

¢0%:

12C

121

122 060442
123 060446

124 060452
125 060454
126 060460
127 060462

128 060666

126 060470

062716
105776
001403
062716
000402
162716

000240
060207

000004
000000

Su8
JSR
SUs
NOP

11:643:¢8 PAGE

#2,(SP)
PC.a(3P)

#10. (5P)

33-2

sMOVE

"REPORT

TO RETURN FOR ERROW

ERROK

VIA USER

‘MOVE SP BACK TO NO ERROR

JAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED
ADD
1ST8R

BEQ

000004
000004

4~APR-B1

70%:
80%:

ADD
BR

Sus
0P

RTS

#6,(SP)

;MOVE

703
ggi(SP)

JNO!!
JYES = MOVE

a(sP)

SP TO USER'S ERROR (AL,

JWAS AN E£RROR DETECTED??

#4,(SP)

JNO

- MOVE

JRETURN

SP
SP

TO USER'S ERROR Rt TURN
TO NO ERROR

TO USER

RETURN

AWM

wos

=wS

RCOTINES

MATRO v04.00

4=-APR-B1

.SBTTL

L
11:43:¢8 PAGE

2
34

s€Q 02%

SAVE AND RESTORE RO-RS ROUTINES

".'..'...'..t"'..'.""."'.'."...'.'.....QQ'.'.'.'.'.".Q"."'

;*SAVE RO=RS

JeCALL:
i

SAVREG

:*UPON RETURN FHOM $SAVREG "HE STA(K wilLL LOOK L ]KE:

LaTOP===(+16)
Jr

42===(418)

sb===R4

+4===RS

;* +8---R3
f%410---R2
;¢ 16=--=R0

$SAVREG:

060472
060472
G60474
0606476

010046
010146
010246

060502

010446

060506

(016646

000022

016646
016646
000002

000022
Q0002¢

060500

060506

060512

060516
060522
060526

010346

010546

016646

MOV
MOV
MOV

RO,-(>P)
R1,-(SP)
R2.-(SP)

;;PUSH RO ON STA(K
;2PUSH R1 ON STAC(K
;JPUSH R2 ON STACK

MOV

R4 ,-(SP)

;:PUSH R4 ON STA(K

MOV

RS5,-(SP)

MOV

22.35P) ,~(SP)

MOV

000022

MOV
MOV
RTI

;*RESTORE

;vCALL:

060530
060530
060536
060540
060544
060550
060552
060554
60556
060560
060562
060564

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

R3,-(SP)

22(SP) ,~(SP)

22(SP) ,=(5P)
22(SP) ,-(SP)

;iPUSH R3 ON STA(K

;;PUSH RS ON STA(K

;:SAVE PS OF MAIN FLOW

;. SAVE PC OF MAIN FLOW
;:SAVE PS OF
. ;SAVE PC OF

CALL
CALL

RO-RS

RESREG
o
$RESREG:
MGV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+ RS
(SP)+ R4
(SP)+,R3
(SP)+,R2
(SP)+ R
(SP)+ RO

;cRESTORE PC OF CALL
:;RESTORE PS OF CALL
;cRESTORE F(C OF MAIN FLOW
;;RESTORE PS5 OF MAIN FLOW
;:POP STACK INTO RS
;:POP
;;POP
;:POP
:<POP
;.O0P

STACK
STA(K
STA(CK
STACK
STACK

[NTO
INTO
INTO
[NTO
INTO

R4
R3
RZ2
R1
RO

M5, %02

»4:\:4-1'

57N

AND

TST

TYPE

ROUTINE

MACRO vus.00

&-APR-81

.SBTIT,

BINARY

M2
*'.,7:¢B PAGE 35
TO ASCII

AND TYPE ROUTINE

'.'."'....'Q..'l........"'..'...'...'.I.t'.....'..'."...'.'.'.Q

$eTHIS ROUTINE IS USED TO CHANGE A 16=BjT BINARY NUMBER TO A "f=k~
;*BINARY=ASCi] NUMBER AND TYPE
s«(ALL:

60506
060570
060574
260576
060610
050614
060620
060622
060624
060626
0606346
060636
060640

L10146

016601
000261

112737

006101
001406
105537
104401

000241
000765
012601
016666
012616
000002
000

000006

000060

060640

NUMBER,
= (SP)

:sNUMBER T0 BE

$TYPBN:

MOV
MoV

R1,-(SP)

1%:

MOVR
ROL
BEQ
AD(CB

#'0,$BIN

J:SAVE RT ON THE STA(K
;:GET THE INPUT NUMBER
22SET "'C'" SO CAN KEEP TRA(K Of fHE NUMBER OF BITS
:;SET CHARACTER TO AN ASTIT 'O'".
;:GET THIS BIT
. .DONE?
JoNO=-=SET THE CHARACTER FQUAL TO TM]S BIT
;G0 TYPE THIS BIT
;;CLEAR ''C"’" SO CAN KEEP TRACK Of BITS
2260 DO THE NEXT BITY

00640

000

SEC

TYPE

000004

TYPED

MOV
TYPBN

040640

000002

2s:

$HIN:

(LC
BR
MOV
MOV
MOV
RT!

.BYTE

6(SP) R
R1

2%
$8IN

LSBIN

19
(SP) +,R1

2(SP) ,4(SP)
(SP)+,(SP)

0.0

:2TYPE

;;POP THE

STA(K

INTO R1

:JADJUST THE STACK

;;RETURN TO USER
;;STORAGE FOR ASCI] CHAR. AND TERMINATOK

rIRMMBO RMOS5/3/2 FCINL TST 1

CTONVERT BINARY

TO DECIMAL

AND

MACRO v04.00

TYPE

4-APR-81

KOUTINE

SEQ 02 %4

(ONVERT BINARY TO DECIMAL

LSBTTL
IS4

11:43:28 PAGE

XSRS

ARRE

$eTHIS ROUTINE

IS USED

:»SIGNED DECIMAL

AND TYPE ROUTINE
R

RX]

TO CHANGE

(ASCI])

A 16-8]T BINARY NUMBER TO A 5-DIGIT
NUMBER AND TYPE IT, DEPENDING ON WHE THER THE

:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZFROS WILL ALWAYS Bt
;*REPLACED WITH SPACES.

J*CALL:
.
. %

010046
010146
010246
010346
010546
012746
016605
100004

005405

112766

005000
012703
112723
005002
016001
160105
002402
005202
000774

$TYPDS:

05270¢
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663

105013
012605
012693
012607

012601

= (SP)
NUM,

;;PUT THE BINARY NUMBER ON THF STA(K
;.60 TO THE ROUTINE

MOV

RO,=-(SP)
R1,~(SP)
R2,=(SP)
R3,-(SP)
R5,-(SP)
#20200,-(SP)

;:PUSH RO ON STACK
22PUSH R1 ON STACK
;:PUSH R2 ON STA(K
;:PUSH R3 ON STA(K
;:PUSH RS ON STACK
;2SET BLANK SWIT(H AND SIGN
J:GET THE INPUT NUMBER

TYPDS

MOV
Mov
MOV

MOV

020200
000020
000055

MOV
MOV

0006001

061056
000040

1%:

2%:

061046

3%:

060105
0065702
001002

105716
100407
106316
103003
116663

MOV

5%:

000001
000060
000040

177777

6%
7%:

000010

8%:
177277

177776

BPL
NEG
MovR
(LR
MOV
MOVR
(LR
MOV

SuB
BLT
INC
BR
ADD
TST
BNE
TSTR
8M]
ASLB

B8CC

MOVB

RS
20(SP)
18

RS
#'=~,1(5P)
RO
#$DRLK
R3
B (R3¢
R2

INPUT

IS POS.

s sMAKE

THE ASCII

NUMBER NEG.

237ERO THE CONSTANTS INDEX

22SETUP THE OUTPUT POINIER
22SET THE FIRST (HARACTER TO A BLANF

;sCLEAR THE BCD NUMBER

;sGET THE CONSTANT
;cFORM THIS B(D DIGIT

5¢

;:ADD BACK THE CONSTANT
;. (HECK IF BCD DIGIT-0
;;FALL THROUGH JF O
;2STILL DOING LEADING 0°S?
JsBR IF YES

A 3
R2
3$
R1.RS
R?

(SP)
7%
(SP)

6%
1(SP) ,=1(R%)

#'0,R?
#' R
R2.(R3)+
(RO)+
RO.#10

MOVB
(I RB

-1(SP) ,~2(RY)

MOV
MOV
MOV
MOV

;sMAKE THE BINARY NUMBER POS.

$DTRL (RO) ,R?
R1.RS

8IS
BIS
MovB
ST
(mMP
BLT
86T
MOV
BR

ISTR
8PL

::BR

::BR [F DONE
;. INCREASE THE B(D DIGIT By 1

. :MSD?
J:BR IF

;oYES=~-SET THE SIGN
JoMAKE THE B(D DIGIT ASCII

JJMAKE IT A SPACE [F NOT ALREADY A DIGI T
s sPUT THIS CHARACTER IN THE OQUTPUT BUFF 13,]

;s JUST INCREMENTING

:sCHECK THE TABLE INDEX
2:G0 DO THE NEXT DIGII
2360 TO EXIT
23GET THE LSD

;:GO CHANGE TO ASCII

(R3)
(SP)+ RS
(SP)+ ,R3
(SP)+ RZ
(SP)¢ R

;:WAS THE LSD
J:BR IF NO

THE

FIRST NON-ZERO>

ssYES~=-SET THE SIGN FOR TYPING
;:SET

THE

TERMINATOR

;:POP STACK INTO RS

J;POP STACK

INTO R3

;;POP STACK

INTO R1

::POP STA(K JNTO R?

MACTO ve.00
ANC TVYPE ROLTINE

4-4APR-81

'1:43:¢8 PAGE
(SP)+ RO

0000C2

000004

$DBLK

2(5P) ,4(SP)
(SP) . (SP)

36-1

SEQ 0235

;:POP STA(CK INTO RO
JoNOW TYPE THE NUMRER
JsADJUST

THE

STA(K

J:RETURN T0 USER

e I1ST 1

4A{ROC v04.00

4-APR-81

.SBTTL
AR

BINARY

c
11:43:¢8 PAGE
TO OCTAL

AN RN RN N AN

3
3’

(ASLI])

AND TYPE

VR ORARNRNRANNAATANNONACANRARACACRIRNOEROEAPROOOORS

Z*TH]S ROUTINE IS USED TO CHANGE A 16=81T BINARY NUMBER TO A 6=DIGIT

;*OCTAL

(ASCII) NUMBER AND TYPE T,

MOV

%20

.BYTE

NUM, - (SP)

;:NUMBER
;. CALL

J:N=1

;:M=1

;*$TYPOS OR $TYPOC

s«CALL:
s

MOV

TC 6 FOR NUMBER OF

“YPON

;*$TYPOC-=<ENTER HERE

061066

061072
061100
061104
061110
061112
061120

061126

017646

16637
112637
062716
000406
112737
112737

112737

0611346
061136
061140
061142
061146
061150
061154
061160
C61164
061170

010346
010446
0105646
113706
005404
062704
110437
113704
016605
005003

061174
061176
061200
061202
061204

(0004604
006105
006105
006105
010503

061210
D612164
061216
061222

105337
100016
042703
001002

061172

061206

061226
061226
61230

000000

000001
061313
000002

0631

000001
000006
000005

061311
061313
061310

006103

005704
001403
005204

$TYPQOS:

MOV

A(SP) ,~(SP)

;:PICKUP THE MODE

$TYPON: MOVR

’%:

3%:

177770

#5_,30CNT

;. CALL

FOR

TYPED

TYPEOUT

:;LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
;;ADJUST RETURN ADDRESS

J.SET THE ZERO FILL SWITCH
;:SET FOR SIX(6) DIGITS
;sSET THE JTERATION COUNT
;:SAVE R3
;s SAVE R¢
. .SAVE RS

MOV
MOV
MOV
MOVR
NEG
ADD
MOVRB
MOVR
MCV
(LR

R3,-(SP)
R4 ,=-(SP)
RS ,-(SP)
SOMODE +1 R4
R4
»6 R4
R4, $OMODE
$OF ILL R4
12(SP) RS
R3

8R
ROL
ROL
ROL
MOv

33
RS
RS
R5
R5,R3

.:G0 DO MSB
;:FORM THIS DIGIT

SOMCDE
78
177770 ,R3
43

:2TYPE HIS DIGIT?
J:BR IF NO
;;GET RID OF JUNK
J:TEST FOR O

ROL

DE(R
BPL
81C
BNE

TST
BEQ
INC

THE

16 B]IT NUMBER

;JNUMBER TO BE

1(SP),S0F JLL
(SP)+ SOMODE+1
82,(SP)
$TYPON
#1,80FILL
#6,$0OMODE +1

PARAMETERS AS

::CALL FOR TYPEOUT

NUM, - (SF)

MOVB
MOVR
ADD
BR
$TYPO(: MOVRB
MOVB

;.GET

Ttvit

DIGITS TO TvpE

TYPED

TYPOC

's:

TO BE

000006
061317
061317
000012

06'312

SAME

cvCALL:
A
MOV

061313

0061CS

JsNUMBER

FOR TYPEQUT OF

;:1=TYPE LEADING ZEROS
;. 0=SUPPRESS LEADING ZEROS

TO TYPE OUT WITH THE

NUM, - (SP)

DIGJ'S

TYPED

TYPEOUTY

OR 0

;*STYPON=~=~ENTER HERE

TO BE

FOR

TYPOS

TO SETUP SUPPRESS ZEROS AND NUMBER Of

IR TR

;*$TYPOS-=<ENTER HERE
s*CALL:

THE NUMBER CF

DIGITS TO TYPE

;;SUBTRACT IT FOR MAX. ALLOWED
;2SAVE IT FOR USE
JoGET THE ZERO FILL SWIT(H
;.PICKUP THE INPUT NUMBER
;. CLEAR THE OUTPUT WCRD
J:ROTATE MSB

INTO '°'C*°

;:GET (SB OF

THIS DIGIT

R&
b3 3
Ré

;JSUPPRESS THIS @?
..BR IF YES
;:DON'T SUPPRESS ANYMORE 'S

{AST

V61242

051246
061252
061256
26160

061262
061264
061266
061270
061272
261274
0¢." 302
261304
061306
061307
041350
06131
T€1312

052703

052703
110337

104401
105337

003347
002402
005204
000744
012605
212604
012603
016666
012616
£n0002
000
000
000
00C
000000

000060
(00040

L=AFw=-§"

5%:

583
255

061332
0612%

7$:

6%:

000002

000004

8IS
81sS
MOVB
TYPE
DECR
8G7
8L’
INC
B8R
MOV

MOV
MOV

MOV

:
8%

$O(NT:
sO‘ILL:
:
$OMODF

MoV
RT]

BYTE
BYTE
BYTE
BYTE

.WORD

)
e T8 PAE
&2'Q,R3
&'
_RY

R3, 88

14
$OCNT

T7-

JcMAKE
JIMAKE

TMIS DIGIT ASC!]

ASCI]

IFf

NOT

:;:SAVE FOR TYPING

ALREADY

:;G0 TYPE THIS DIGIT
<. COUNT BY 1
;:BR ]F MORE 10 DO
::BR IF DONE
;o INSURE LAST DIGIT [SN'T A B. ANV
;.60 DO THME LAST DIGIY

(SP)+ R4

;sRESTORE R4

2s
133
RS

(5)+,RS

(SP)+.R3
.4 (5P)
2(SP)
(SP)+. (5P)

[ololelele)

MATRD
JEMMBL SMCS/ 372 FTNL TST !
AS{I1) AND TePE
~iNawy "C OCTAL

;:RESTORE RS

::RESTORE R3
J3SET

THE

::RETURN

;:STORAGE

STACK FOR RETURNING

FOR ASCII

;s TERMINATOR FOR

DIGIT

TYPE

;:0CTAL DIGIT COUNTER

ROUT NE

J:I7ERD FILL SWITCM
J.NUMBER OF DIGITS 7O TYPE

vao?

von.0G

4~APR=B1

LSBT
TR

RNARANRARN A NCTRARACRRRVORO

J*THE

TO TYPE

ROUTINE

WILL

J*NOTEY:
J*NOTEZ:

TeCALL:

USING

c .

061314
0e1320
061322

061324

061326
061330
061334
061342
061344
061352
061354
061360
C61364
061366
061374
061376
061400
061402
061404
561406
061412
061414
061420
061422
061426
061430
061432
061434
0614636
001442
061444
061450
0614654
061456

061462

061466

061470
061474
061500

105737
100002

000000
000430
010046
017600

001173

122737

001242

132737

000100

003243

01011

001405
010037
004737
000000
132737

001003

061364
06606¢
000040

112046

001005
005726
012600
062716
000002
122716
001430
122716
001006
005726

001243

T1STB
8PL
T
HAL
8R
MOV
MOV
(MPR
BNE
8I73
B8EQ
MOV
JSR

61%:

(Y4 ¥
2%:

000002

60%:
2s:

000011

123726

061526
001172

000001

105337

061526
061644

000770

187

MOV
ADD

RT]
(MPR

$CRLF

5¢:
69 -

001170

105366

002770
004737

oNE
MOVR
BNE

TYPE

J61644

001350
013746

BlIR

TST

105037

000755
004737

. WORD

8EQ
(MPR
GNE

000200

7$:

ASCIZ MESSAGE.
INSERT

OOV ROIRRARNNGQCROOQNDNOIRPRRNARNOQORERESEROIROS

MESSAGE MUST

A NUMBER OF

NULL

TERMINATE wiTw A Q BYTE,

C(MARACTERS AFTER

A L INE

FEED.

INSTRUCTION

.MESADR

JMESADR [S FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
L 3

;215 THERE A TERMINAL?
J:BR IF YES
JIHALT HERE [F NO TERMINAL
;. LEAVE

82(5P)
RO

::GET ADDRESS OF ASCIZ STRING

TYPE

$TYPE:

104401

001217

TRAP

TYPE

ME SADR

000002
000001

e
-

SEQ 0238

$MNUL. (ONTAINS THE (HARACTER 'O BE USED AS THE FILLER (MARA(TER,
$FILLS CONTAINS THE NUMBER OF FiLLER CHARA(CTERS REQUIRED.
SFILLC CONTAINS THE (HARACTER TO FILL AFTER,

J*NOTES:

:eOR

3
38

TYPE R0OUTINE

J*ROUTINE

‘e1)

'':(%:/8 PAGE

(LRB
8R
JSR
(MPR
BNE
MOV

DE(B

BLT

JSR
DECR
BR

RO,=(SP)

#APTENV, SENV

62%

:sSAVE RO

J¢RUNNING [N APT MODE
;:NO,GO CHECK FOR APT (ONSOLE

#APTSPOOL
, SENVM ;. SPOOL MESSAGE

623

RO,61%

8(.$A7Y3

#APTCSUP, SENVM

60$%

(RO}

,~(SP)

43
(SP)+
{SP,+ RC

TO APT

J:NO,GO CHECK FOR CONSOLE
;:SETUP MESSAGE ADDRESS FOR AFT
. :SPOOL MESSAGE TO APT
. ;MESSAGE ADDRESS
. cAPT (CONSOLE SUPPRESSED
JIYES,SKIP

TYPE

OQUT

;;PUSH CHARAUTER TO BE TYPED ONTC STACK
JsBR IF JT ISN'T THE TERMINATOR
1F TERMINATOR POP [T OFF THE STA{«x
;.

;sRESTORE R(

#HT, (SP)

JsADJUST RETURN PC
s ;RETURN
;;BRANCH IF <HTI>

NCRCF, (SP)

;;BRANCH IF NOT <(RLF>

(SP)+

;:POP <CR><LF> EQUIV
J;TYPE A (R AND LF

$CHARCNT
2%

;;CLEAR (HARACTER COUNT
;2GET NEXT CHARACTER
::G0 TYPE THIS (HARACTER
;21S 1T TIME FOR FILLER (HARS.?
:01F NO GO GET NEXT CHAR,
;:GET # OF FILLER CHARS., NEEDED
;sAND THE NULL (MAR.
.:DOES A NULL NEED TO BE TYPED?
;:BR [F NO-=GO POP THE NULL OFF OF STAClr
J3GO TYPE A NuLL
;:D0 NOT rOUNT AS A 7QUNT
;.LO0P

#2,(5P)

PC,S$TYPEC

$FILLC,(SP)s

$NULL,=(SP)
1(SP)

63
PC,$TYPEC
SCHARTNT
4

JNMMBT MOS80

TYPE ROU” INE

MAIRC

yie,00

&=-APR-81

F
"':43:¢8

PAGE

3
38-°

SE.

JHORIZONTAL
112716

004737
132737

001372
005726

000040
061526
000007

8%:
UATEY

017746
042716
122716

001012
105777
100375
117716

042716
122716
001366

$TYPE(:

117426

117422
177600

000023

107%:

17726402

1173746

177600

000021

102%:

108777

117360

116677
122766

000002
000015

105037

061644

001003

000406
1227566
001402
105227

000000
000207

JSR

8!1TR
BNE

000012

B8R

108:
117352

000002

L (SP)

PC.STYPE(
#7 ,$CHARCNT

93
(SP)+

JREPLACE TAB WlTH SPA4’E
JiTYPE A SPACE
;JBRANCH [F NOT AT
;. TAB STOP
. :POP SPA(E OFF STA{K
J3GET NEXT (HARACTER

A$TKB,~(SP)

;:"HAR IN KYBD BUFFER?
;:BR IF NOT
;:GET (HAR

F
, (SP)
#SXOF
1028

: sWAS (HAR XOFF
..BR IF NOT

TSTR

a3 TKS

JIWAIT FOR (HAR

a$TKB, (SP)

::GET (HAR
JJSTRIP I

1S18

(MPR
BNE

as$Tks
109

8177600, (SP)

1018

#177600, (SP)
#S$XON, (SP)

018

;sSTRIP EXTRANEOUS B]TS

JsWAS

T XON?

STA(K

;:BR IF NOT

(SP)+

J.FIX

TSTR
8PL
MOVRB

o8 TPS
10%

JJWAIT UNTIL PRINTER [S RFADY

{MPR
BNE
(LRB
18:

BPL
MOV
BIC
(MPB
BNE

BPL
MOVB
BIC

005726
100375

MOVB

000726

105777
100022

9%:

TAB PROCESSOR

B8R
(MPR

BEQ
INCB
$THARCN
: . WORD
T

$TvPEX: RTS

2(SP),a8TPR
#(CR,2(SP)
1%

;:LOAD (HAR T0 BE

TYPED INTO DATA REG.

;1S CHARACTER A [ARRIAGE RETURN?
:sBRANCH [F NO
JsYES==CLEAR CHARA(TER C(OuUNT

$CHAR(NY
$TYPEX
#LE,L2(SP)
$TYPEX

S EX]T
;21S CHARACTER A LINE FEED®
;:BRANCH IF YES

JCHARACTER CGUNT

(PC)e

s COUNT THE CHARACTER

STORAGE

ML KT

,04.00

LSBTTL

4&~-APR=81

1':43:¢8 PAGE

SCOPE HANDLER ROUTINE

CLARNEARARNARA

AR RARRNRNRANNREPERRENAANRNRNCRCRQORANTARA
NP RCONRRRRORNOS

1*THIS ROUTINE

CONTROLS

THE

LOOPING OF

$«AND LOAD THE TEST NUMBER(STSTNM)
:*AND LOAD THE ERROR FLAG (SERFLG)

:*THE

SUIYCH OPTIONS

;=SW14=
;eSW1T= 1
'SUO9 1
->H08 1
s~CALL
;-

J61650
061650
041652
061656
061664
C61466
061€72

104410

004737
Q32777
0C14(2
000157
000416

061674
061700
061706

C13746
012737

061726

062512
040000

062316

000004
061720

005737
012637

177060
000004

022626
012637

000004

000561

000521

032777

000400

061740
061742

117716

117206

"6208C

001414
022716
002411
011637
005316
006316
062716
013637
000547
005726
105737

JMP

$UVvER

5%:

BEQ

117276

BIT

BEQ
(LR

001116

001122

8% :
28

201117

0004
0127

000004
063130

177777

063130

062056

063130

ARE
-

FOR

FOR CHANGE

;:LOOP ON PRESFNT

;:NO [F

SW14=0

[N SOFT=SWR
TEST?

;;JUMP OVER SCOPE ROUTINE
THE

XOR

TESTERANANN
;o
IF RUNNING ON THE “XOR'' TESTER (MANGE
22THIS INSTRUCTION TO A "NOP'' (NOP-260)
;;SAVE THE CONIENTS OF THE ERROR VE(CTCR
;:SET FOR TIMEOUT
:;TIME OUT ON XOR?
;;RESTORE THE ERROR VE(CTOR
;G0 TO THE NEXT TEST

QMERRVEC,-(SP)
#5%,a4ERRVE C
a#177060
(SP)+ ,3#ERRVEC
$SVLAD
(SP)+,(SP)+
;2CLEAR THE STA(K AFTER A TIME
(SP)+ Q#ERRVEC
,;RESTORE THE ERROR VE(TOR
7$
;.LOOP ON THE PRESENT TEST
CODE FOR THE XOR TESTERANNAN

#1708, aSWwR
23
-(sP)

;:BR IF NO
S:CLEAR A TEMP.

LOCATION
S:PICKUP THE DESIRED TEST NUMBER

#67,(SP)

LICHECK THE NUMBER [N THE SWR

MOV

(SP),$TSTAM

SSUPDATE THE TEST NUMBER

DEC

(SP)

ADD

#$SWOBTBL,
(SP)

TST
ISTB
BEQ
TMP

(SP)+
$ERFLG
3¢
#-1,CPSAVE

ggv

;gg{gb.cpswf

MOV
B8R

MOy

(SP,

Ou7

::LOOP ON SPEC. TEST?

cMP

8EQ
MOV
MOV
0028:

INCREMEN'

aSwR, (SP)

ASL

062334

wiLlL

MOVR

BLT

177766

612

{(mMp

BEQ

000004
062042

0137%7

CODE

5% #a2AREND OF

000C67

177277

MOV
MOV
TST
MoV
BR

ROUTINE

J:TEST

MOV

0061502
022737
001455
013746
012737

061756
61762
061764
061706
061772
061776
062000
062002
062006
062010
062016
062020
062026
062032
062040
262062

001421
005046

N61746
06°750
061754

1%:

0000604

::SCOPE=]OT

PC,STOP
AB1T14,3SWR

THIS

TEST
ITERAT]IONS
ERROR
TEST IN SWR<7:0>

CKSWR
+SR
BIT

$XTSTR:

061750
061730
061736

117270

SCOPE

;#RARASTART

061672

061712
061716
061720
061722

$SCCOPE:

PROVIDED BY

LOOP ON
INHIBIT
LOJP ON
LOOP ON

SUBTESTS.

INTO THE DISPLAY REG.(DiSPIAY<7:_
[NTO DISPLAY<15:08>

“*BRANCH IF BAD TEST NUMBER IN SWR

“:BRANCH IF

TEST NUMBER IS OUTM OF

RANGE

1 :BACKUP BY ONE
*:SCALE

THE

TEST NUMBER AS AN INDEX

:-FORM THE ADDRESS OF

TEST POINTER

(5P)¢ SLPADR
$OVER

::SET LOOP ADDRESS TO DESIRED TEST
11GO LOOP ON THE TEST

2003%s
ERRVE(,=(SP)
#20008 ERRVE(

SIKICK AROUND ROUTINE If SO
*:SAVE CONTENTS OF ERROR VE(TOR
- -SETUP 'TRAP' RETURN ADDRESS

#-1,(PSAVE

020018, (SF>

“SCLEAN THE BAD TEST NUMBER OFF OF THE STACK
:HAS AN ERROR OCCURRED?
YiBR IF NO
SISEE IF TIMEOUT WAS PREVIOUSLY RECORDED

L MOVE (PU ERROR REGISTER TG YPSAVE FIR "E<°
;:SET (PU ERROR REGISTER "IMEDLTM

LISETUP RETURN ADDRESS

INL. A" %

MACHD

00G00¢

012637

00004

022737
001430

1777277

063130

032737
0014624
042737
013746
017¢46
012737
011677
042777

000007

06330

000001
001154
000000
000176

177766

001154

00° 000

117014

012676
012637

00000C
001154

123737
101015

001131

001117

0¢1000

116764

001124

001122

106177

032777
001404
013737

062222
062224

062230
062232
062236
062244

062246
062254
062262
062266
062274
062300

062304
062310
62316
062324
062330
062332
062334

062334
062336
062340
062362
062344
062346
062350
762352
162354
1235¢

000446
105037
005037
000415
032777
001011

005737
001406
005237
023737
002024
012737
013737
105237

113737
011637
011637
005037
112737

013777

013716
000002
000005

117022

001317
001206
004000

LleaLl

GeARLex?

000001
062332
001116
001116
001122
001124
001210
000001
001116
001122

R*]

MOy

SP e ERRVE.

JoRE-TORE

20C28:

(mp

#-1,(PSAE

;:SEL

#BIT00,CPSAVE
20038
#RIT00,177766

--SEE IF THE POWER MONJTOR BIT IS ON
SBRANCH TO CONTINUE ROUTINE [F ‘1 AK
::CLEAR THE BIT FOUND TO BE SET

BEQ
8l7
8EC
BIC
MOV
MOv
MOV
MOV
8I(
EMmT
MO
v

2003¢:

’%:

001230
001120
001206

MOV

CMPS
BH]

BI7
BEQ
MOV
BR
CLRB
(LR
BR
BIT
BNE
TST

BEQ
INC

001120
001120
00" 206
001226

200°$:

(%:

116732

R PAGE
il

1%:

$SVLAD:

$OVER:

MpP
BGE
MOV
MOV
INCB
MOVB
MOV
MoV
(LR
MOVR
MOV
MoV
RTI

SMX(NT: 5.
$SWOBTRL:
$TN-1
-REFT
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WCRD

20038

SWR, = ($P)

(OWTENTS OF

[HkODk

,¢

T &

CPSAVE MAS (PU ERR REG

P:BRANCH [F S0
SISAVE

“IME) °

1%, &'

SWR ADDRESS

Q(5P) ,=(SP)

::SAVE

cexrb9 aSwR

S:DON'T ALLOW LOOP ON ERROR ON THIS FRRON

2176, SWR
(SP) ,aSWR

7?7

SWR

VALUE

“:GET SOF TWARE SwR ADDRESS
:GET CURRENT SWR VALUE

“ICALL SPECIAL POWER FAIL BIT ERRGR (A,.

<5p,, a(SP)

“ZRESTORE

SERMAX,SERFLG
3¢
#31T09,aSWR

;:MAX. ERRORS FOR THIS TEST OCCURRED>
J:BR IF NO
*:L00P ON ERROR?

(SP)+.SWR

4
ngEgR,$LPADR
'

SWR

T0 ORIGINAL

*:RESTORE SWR ADDRESS

“IBR IF NO
$:SET LOOP ADDRESS

vALUE

TO LAST

S(OPE

SERFLG
$TIMES
1$

;:2ERO THE ERROR FLAG
:2CLEAR THE NUMBER OF ITERATIONS TO MAKE
“IESCAPE TO THE NEXT TEST

1%
$PASS
s

“:BR IF YES
::IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS

#RI1T11,3SWR
$I1CNT

STIMES,$ICNT
$OVER

#1,$1CNT

YSINHISIT ITERATIONS?

*>INCREMENT ITERATION COUNT

::(CHECK THE NUMBER OF [TERATIONS MADE
$:BR IF MORE ITERATION REQUIRED
P:REINITIALIZE

THE

ITERATION COUNTER

$SMXCNT,STIMES
$TSTAM
$TSTNM.STESTN

- -SET NUMBER OF ]TERATIONS TO DO
SCOUNT TEST NUMBERS
::SET TEST NUMBER IN APT MAILBOX

(SP) . SLFERR
$ESCAPE
21 SERMAX
$STSTNM,aDISPLAY
$LPADR . (SP)

*:SAVE ERROR LOOP ADDRESS
SICLEAR THE ESCAPE FROM ERROR ADDRESS
“SONLY ALLOW ONE(1) ERROR ON NEXT TEST
::DISPLAY TEST NUMBER
‘:i?figé 25’“"” ADDRESS

(SP), $1.PADR

*:SAVE SCOPE LOOP ADDRESS

;sMAX. NUMBER OF

JTERAT]ONS

TST1e2

;. STARTING ADDRESS Of

TEST

TST4+?

;o STARTING ADDRESS OF

TEST &

TST2+2
IST3e2
TST5+2

TST6+2
TST7+2
TST10¢2
TST1142

1471242

;o STARTING ADDRESS OF
;;STARTING ADDRESS OF

;. STARTING ADDRESS OF
.. STARTING
;:STARTING
2 sSTARTING
;;STARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF

;. STARTING ADDRESS OF

TEST 2
TEST 3
TEST S

TEST 6
TEST 7
TEST '3
TEST *°

“E<”

L=l&FR=B"

0146454

« WURD
. wORD
.«ORD
. WORL
. WORD
.WORD
. WORD
. wORD
. WORD
.WORD
. WORD
.wWORD
.WORD
.WORD
. WORD
.wWORD
.WORD
.WORD
.WORD
.WORD
. wORD
.WORD
.WORD

262360

016764
C152¢6
01550«
15754
016204
016530
017150
0172514
020106
020576
021144
0214666
022050
022366
023152
023676
024466
025252

062440
062642

0624644

062448
362450
062452

062454
062456
0624660

062466
062470
062472
062474
062476
062500
062502
062504
062506
062510

{

F9=-g

;s STARTING ADDRESS
csSTARTING ADDRESS
;.STARTING ADDRESS
<. START ING ADDRESS
+:STARTING ADDRESS
;:STARTING ADDRESS
::STARTING ADDRESS
.. STARTING ADDRESS
;. STARTING ADDRESS
;:STARTING ADDRESS
;¢STARTING ADDRESS

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

. WORD
. WORD
.WORD
.WORD
. WORD
. WORD
.WORD
. WORD
.WCORD
. WORD

;:STARTING ADDRESS
;:STARTING ADDRESS
;sSTARTING ADDRESS
;:STARTING ADDRESS
;s STARTING ADDRESS
;s STARTING
;. STARTING
::STARTING
::STARTING
2 STARTING
;:STARTING

012746

012746
000002

000140
062524

STOP:

:
€68

MOV
MOV

. ;STARTING ADDRESS
;:STARTING ADDRESS

TST53+2
1575442
1ST55+2
TSTS6+2
1STS7+2
1ST60+2
TST61+2
TSTE2+2
1576342
TSTEG+2
T1ST65+¢2
1ST66+2
157167+2

#PR3,
- (SP)

#6468 ,-(SP)

RT}]

::STARTING ADDRESS

;STARTING ADDRESS

;STARTING ADDRESS
;s STARTING ADDRESS

;;STARTING ADDRESS
;cSTARTING ADDRESS

;s STARTING ADDRESS
. s STARTING ADDRESS
. ;STARTING ADDRESS

. +STARTING ADDRESS
;:STARTING ADDRESS
;:STARTING ADDRESS

;:STARTING ADDRESS

012746

00240

MOV

Of
Of
Of
OF
OF
OF

#PRS ,=(SP)

or
OF
Of
Of
OF
Of
Of
OF
Of
OF
OF
OF
OF
OF
Of
OF
OF
Of
OF
or
OF
OF
Of
OF
Of

;¢STARTING ADDRESS CFf

INTERRUPT

J:PUT NEW PS ON STA(K
;sPUT NEW PC ON STA(k
. ;POP NEW PC AND BS

SRAISE PRIORITY 1O INMIBIT (ONSOLE
06 526

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

;:STARTING ADDRESS

;CROP PRIORITY 1O A 1.OW CONSOLE
062512
062512
062516
062522
0625264

TEST

;oSTARTING ADDRESS Of
;¢STARTING ADDRESS OF
;. STARTING ADDRESS Of
::STARTING ADDRESS Of
;:STARTING ADDRESS Of
;oSTARTING ADDRESS

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

WV AN

062467
062464

025604
C26244
026464
027022
027310
C27576
030110
030410
030679
031172
031476
032114
032542
033160
033520
034062
036406
035034
035512
036216
036616
037226
037626
040206
040552
061110

°':63:8 PAGE

INTERRUPT

ssPUT NEW PS ON "TA k

TEsT
TEST
TEST
TEST
TEST
TEST
TES?

TEST

‘\\)'\,'\JNP\,
R
e T&N
wWh QO

SB
AN
v
»omANGOER RDUTINE

TEST
TEST 25
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

TES?

TEST
TEST
TEST
TEST

TEST
TEST
TEST
TEST
TEST
TESY
TEST

JRMMBC RMOS/3/72 FOTINL
Pt

~ANDLER ROUTINE

62536

e —

TST 3

MACRD v04.00

£5%:

4&=APR=B8"

J
°1:43:¢8 PAGE

3
30-2

MOV
RTI

80658 ,=(SH

2s0Ul NEW PU ON STACK
JsPOP NEW PC AND PS

RTS

. RETURN

SEQ 023

JRMMBC RMCS/ 32 BTN

'(‘Y

MAIRDO v04.00

4=APR=81

K
11:43:¢8 PALE

3
4O

FRROR wANDLER ROL
T INE

LSBTTL
I

RAAN

ERROR HANDLER ROUTINE
R AN

VR RN N AAANNAN RN A RN RANNARNREAANRARNACNANAANANACRN
ARG ONARNORNS

s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR (DUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR (ALL
;*AND GO TO ERRTYP ON ERROR

s*THE

SWITCH OPTIONS PROVIDED BY

;*SW15-1

HALT ON ERROR

2 *SW10=1
. «SW09=1

BE.L ON ERROR
LOOP ON ERROR

;*SW13=1

s =CALL
062540
062544
062546
062552
062554
062562
062570
062572
062576
062602
062606
062614
062622
062630
062632
062640
062642
062646
062650
062656
062660
0626064
062672
062700
062702
06270
062714
62716

062722
062730
062732
062740
062742
062750
062756
062764
062766
062772
062772
063000
063002

105037
1044610
105237

001775
C13777
032777
0061402
104401

005237
011637
162737
117737

032777
001060

063732

$ERROR:

IBSAVE

001117

7%:

CLRB
CKSWR
INCB

$ERFLG

;.CLEAR THE ITEM BYTE SAVE LOCATION
;. TEST FOR CHANGE [N SOF T=-SWR
::SET THE ERROR FLAG

MOV

STSTNM,RDISPLAY

;;DISPLAY

001116
0C2000

001212
061126
001132
000002

116312
001000

063132

113737
112737
000402

INHIBIT ERROR TYPEOUTS

105737

022737
001420
032737
001414
042737

ARE-

ERROR

000177

001047
022737
001445
013746
012737
013737
000406
012737
012716
000002
012637

ROUTINE

122737

001454

THIS

1%:

001132
001130

063130

000004
062702
177766

000004
063130

177777
062716

063130

000004
177777

063130

000001

063130

063132

032777
001004
004737

020000

063734

SuB

#2,8ERRP(

BIT

#B]1T09,aSWR

MOV

AND N-fRROR

ITEM NUMBER

J;DON'T LET THE FLAG GO TO ZERO

TEST NUMBER AND ERROR FLAG

;.BELL ON ERROR?

1%
LSBELL

;sNO - SKIP
;sRING BELL

(SP) ,3ERRP(

;:GET ADDRESS OF

ERROR

ASERRPC,$ITEMB

;:STRIP AND SAVE

THE ERROR

1004%
#177,81TEMR
1004%
IBSAVE
10038

; cBRANCH
::SEE IF
; ;BRANCH
;oSEE IF
::BRANCH

#-1,CPSAVE

1004%

ERRVEC,-(SP)

.. COUNT

THE NUMBER OF

ERRORS

INSTRUCTION

[TEM (ODE

;:SEE IF LOOP ON ERROR IS SET

AROUND ROUTINE IFf SO
THIS 1S THE POWER FAIL CALL
AROUND ROUTINE IF IT IS
THIS 1S THE 2ND ERROR CALL IN THIS ROUTINE
IF SO

;sSEE

CPSAVE HAS (PU ERR REG

;. SAVE

CONTENTS OF

;sBRANCH IF

TIMEOUT

#10008 ,ERRVE(
}gg;gb.CPSAVE

;:SETUP °*TRAP' RETURN ADDRESS
. JMOVE (PU ERROR REGISTER TO (PSAVE

1000%:

MOV
g?y

#-1,CPSAVE
#10018, (5P)

;sSET CPU ERROR REGISTER TIMEOUT
::SETUP RETURN ADDRESS

1001%:

MoV

{SP)+ ,ERRVE(

:;RESTORE

(MP

#-1_(PSAVE

1002%:

BEQ
BIT
BEQ

BIC

MOVB
MOVB

BR
}ggzg:

;:SEE

(ONTENTS OF
CPSAVE

HAS

FOR TEST

INDICATOR

ERROR VECTOR

CPU ERR REG

TIMEQUT

INDICATION

1004%
#31700,CPSAVE
1004$

. sBRANCH IF SO
J:SEE IF POWER MONITOR BIT
; :BRANCH [F OK

$ITEMB, IBSAVE
#177,81TEMB

:sMAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL
J:SET SITEMB TO SPECIAL POWER FAIL POINTER

#R17100,177766
1004%

IN (PU ERR REG

; cBRANCH OVER [BSAVE (LEARING

IBSAVE

;oCLEAR [BSAVE SO ZND TIME

81T

#IT13,3SWR

;:SKIP TYPEOUT IF

JSR

PC.ERRTYP

2:G0 TO USER ERROR ROUTINE

209

[S SET

;o CLEAR THE BIT FOUND SET

(LRBR
BNE

[MNDICATION

ERROR VECTOR

MOV
ggv

001130

116154

$ERTTL

MOV

CMP

177766

105037

INC

REQ
i YPE

BEQ

o 063132
000177

#RIT10,35«R

BNE
(MPB
BEQ
T1ST8R
BNE

001130

BIT

MOVB

116324

177777

BEQ

; sERROR=EMT

;:SKIP TYPEOUTS

SET

THROUGH EXITS

JRMMES.

RMOS/ 302 FOTNL

157

MACRC v04.00

4-aPR-81

11:43:¢8 PAGE

40-1

SEQ 0245

PRKETHE HANDLER ROUT INE

104401

001217

122737

00000+

001242

001130
066076

063034

001007
113737
004737
000
000
000777
105737

001005
005777
100002

21s:
]

22%:
2%:

063132
116102

001000

022737

041630

105737

001210
000002
000000
000000

LSCRLF

(MPR
BNE

NAPTENYV, SENV
2%

BYTE
BYTE

0
¢

MOVB
JSR
B8R

TST8
BNE

BPL

104410

032777
001402
013716
005737
001402
013716

TYPE

TST

000000

001001
000000

20%:

116066

HALT

001210

000042
o8

063132

MOV
TST

BEQ

aSwR

;;HALT ON ERROR

;¢cHALT

[N SOF T-SWR

::BR [F NONE

SLPERR, (SP)
$ESCAPE

IRSAVE

B8NE

.WORD
.WORD

O
O

f«ROR

(ONTINUE

ON ERROR.

;:LOOP ON ERROR SWIT{H SET?
;sBR IF NO

NSENDAD , 6?2

RTI

;.SKIP JF

#RIT09,aSWwR
43

cMP

HALT

;.SEE IF IBSAVE IS LOADED
. ;BRANCH [F NOT = MO HALT ON Pwk MON BIT

;oTEST FOR CHANGE

$SESCAPE, (SP)

1STR

(PSAVE:
IBSAVE:

::APT ERROR LOOP

IR5AVE
33

MOV
BNE

2:SET ITEM NUMBER AS ERROR NIMRER
JJREPORT FATAL ERROR 10 APT?

228

(KSWR

8IT
8EQ

001124
0G1210

SITEMB,21$
P(,$3AT 4

JJRUNNIN' IN APT MODE
JiNO,SK]F APT ERROR REPORT

;cFUDGE RETURN FOR LOOPING
;sCHECK FOR AN ESCAPE ADDRESS

. sFUDGE RETURN ADDRESS fFOR ESCAPE

;JACT=11 AUTO-ACCEPT?
:;BRANCH IF NO
22 YES

;:SEE

ITEM BYTE

SAVE

LOCATION HAS AN ERROR CALL

s sBRANCH BACK TO CALL ORiIGINAL ERROR
2 ;RETURN

::LOCATION TO SAVE CPU ERROR REG (ONTENTS
;;LOCATJON TO SAVE ITEM BYIE

Nf\lg—l—l—a_a.o
4 e uOGO
o
N0
NP NE2 N
NI

1s7

MACRO v04.00

4~-APR=-B1

.SBTTL

3
11:463:¢8 PAGE 41

SEQ 024¢

ERROR TYPEOUT ROUTINE

s*THE ERROR TYPEQUT ROUTINE ASSEMBLES AND PRINTS [NFORMATION
s*REGARDING THE DETECTION OF AN ERROR AS FOLLOWS:

.ERROR MESSAGE 1S ASSEMBLED, FORMATTED AND FRINTED ON

LPAIRED LINES OF

:*ONE OR MORE

" 020000

116010

THE

ERRTYP:

SAVREG
BIT
8EQ

0C1217

18:

064010
001234

063166
063170
063171

(OUNTER

TYPE

TYPE
MOV

TYPOS

BYTE
.BYTE

;TYPE

063172
063176
063202
063206
063214
063220

001414

063222
063230
063234

012737
022700
201406

066736
000025

063260

063236
063244
063250
063252
063256
063260

012737
022700
001004
104401
104407
000000

066750
000027

063269

005037
013737

06400C
001226
064015
064000

104401

013746

001276
000026
177740
066743
000024

063269

064045

2%:

3%:
;TYPE

064000

104403
003

000
005037
112737

'DRIVE

DRIVE

TYPE,

+SCRLF

LERTYOO
SUNIT,=-(SP)

3
0
TYPE'

RMOS,

TEST

NUMBER,

;TYPE

ERROR NUMBER,

‘DRY#"’

RMO3 OR RMO2 FOR UNIT UNDER TEST

3%
#S$RMO?2,
#25,R0
pé 3

;SAVE ASCII

MOV
v
BNE

#SRMOS,
3%
#27,R0
4%

:SAVE ASCII DRIVE TYPE
x(s) DEVICE AN RMOS 2

TYPE

.WORD

JERTYOS

CLR
Mov
TYPE
MOV

(LR
MOVR

SGET ASCII DRIVE TYPE
:&ESDEYICE AN RMO3 ?
DRIVE

;1S DEVICE AN RMOZ
JYES !

rvpé e

:TYPE

DRIVE

TYPE

:DRIVE TYPE MESSAGE IS STORED WERE

TEST NUMBER,

AND

;:SAVE SUNIT FOR TYPEQUT
;. TYPE DRIVE NUMBER
;260 TYPE~-OCTAL ASCI]
;:TYPE 3 DIGIT(S)
;:SUPPRESS LEADING ZEROS

MOV
(M
BEQ

TYPE

PRINTED

JINHIBIT TYPEOUTSTM?
JNO!.
JYES!!

;GET RM BASE ADDRESS
cGET DRIVE TYPE REGISTER
;SAVE DRIVE TYPE BITS AND

BYTE
BYTE

064002

LINE;

$BASE RO
RMDT (RO) ,RO
#177740,R0
#SRM(3,
3%
#24 RO
2%

MOV
MOV
BIC
MOV
{MP
BEQ

TYPOS

064002
01130

F [RST

ERRCR HEADERS AND ERROR DATA ARE

#5W13,aSwR
13
273

sTYPE UNIT NUMBER,

C6315¢
063156
063162

ON'THE

ERROR MESSAGE
.

JMP

+PROGRAM

PRINTED

SUCCEEDING LINES:

I*AFTER

063774

TYPE,

ERROR NUMBER ANL

JUNIT NUMBER,

: *PROGRAM COUNTER ARE

DRIVE

TECT NUMBER,

ERROR NUMBER AND PROGRAM COUNTER

TSTW
STESTN,ISTNMB
LERTYO1
TSTNMB,-(SP)

;LOAD TEST NUMBER FOR

3
0

J3TYPE 3 DIGIT(S)

ERRNMB
$1TEMB, ERRINMB

JTYPE 'TSTA!

;:SAVE TSTNMB FOR TYPEQUT
2. TYPE TEST NUMBER
;:GO TYPE~-OCTAL ASCI]
2 :SUPPRESS LEADING ZEROS

;LOAD ERROR NUMBER fOR
s TYPEQUT

JRMMBO RMOS/3/72 FCTINL

ERROR

TYPEOUT

50 063322
063324
52 063330
S1

063334
063336
063337
53 063340
5¢ 063344

ROUTINE

001406
104407

013746

MACRO v04.00

(64025
064002

TYPE
MOV
TYPOS

BYTE

003

000
104401

013746
104403

063354
063360
063362

005737
001002
000137

C63366
063372
063376
063402
063406
063412
063414
063420
063422
063424
063426
063430
063434

1044601
105037
105037

064034
001132

5%:

063436

001507

063440
063442
063444
063450
063454
063456
063460
063464
063466
063472
063474
063500
063502

012102
001505
010237
005037
112203
001454
122703

001003
105037
000770
122703
001765

BNE
JMP

063774
001217
064006
064007
064002
000177

7%:

8%:

001562

063612
064004

11¢:

000015

064007
000012

105237
122703

064007
000040

01002

:
9%

:TYPE
108
:

064007
000007

JSKIP JF NO ERROR CALLED

2:TYPE 3 DIGIT(S)
;:SUPPRESS LEADING ZEROS
JTYPE "P(Cs"

CERTYO?
ERRNMB
, = (SP)

TYPE

ERTYO3

$ERRPC
.- (SP)

12%:

06400/

13%:

#PFECH,RO

ASL
ASL
ASL
ADD
MOV

RO
RO
RO
#SERRTB-8.
R0
(RO) ,R1

BEQ

19%

#177,R0
8s

ERROR ME SSAGE

MOV
BEQ
MOV

(R1)+,R?
198
R2.18%

CLR

BOTADR

CLRB
BR
(MPB
BEQ
(MPES
BNE
INGB

12
CHRCNT
1%
#LF,R3
1%
#HT,R3
148
(HRCNT

MOVB
BEQ
(MPB
BNE

BITB
BNE

14%:

L$(RLF

MOV

THE

B8R

INGB
(MPB

BNE

(R2)+,R3
17$
#CR,R3

#7,CHRCNI

PROGRAM COUNTER

;. TYPE
;. TYPE

6 DIGIT(S)
LEADING ZEROS

TABLE UNLESS FRROR NUMBER IS 0

7%
278

;SAVE $ERRP( FOR TYPENDUT

;. TYPE

;.60 TYPE=-=QOCTAL ASC!I

6
1

BOTFLG
CHRCNT
ERRAMB
, RO

B8R

;TYPE "ERRA'’
2. SAVE ERRNMB FOR TYPEOUT
2 TYPE ERROR NUMBER

2260 TYPE-=O(CTAL ASC!:!

CLRB
CLRB
MOV

(M8
BNE

064052

000011

N 3
11:43:¢8 PAGE 41-1

;GENERATE POINTER TO ERROR
ST
ERRNMB
6%:

064002

122703
001007
105237
1327%7

001372
000407

MOV

BYTE
BYTE

006300

006300
062700
011001

BYTE
TYPE

*YPOS

006
001

013700
122700
001003
012700
000405
006300

&4=-APR-81

BEQ

104403

063350
063352
Ch3353

063506
063510
063514
063522
063524
063526
063532
+8 0635 3%

;WAS AN ERROR CALLED?

;BY IF

YES

JNO=-=EX]T

JYES=TYPE CRLF
;CLEAR BOT FLAG
sCLEAR CHARACTER COUNTER

;RO POINTS TO FJRST Of

;SEE 1F THIS ERROR CALL IS SPECIAL POWER FAIL
;BRANCH IF NOT
;MOVE POWER FAIL ERROR CALL TABLE TO KO

(ALL

;FOUR ENTRIES IN ERROR
s TABLE

;R1

POINTS

TO ERROR MESSAGE

s TABLE
;BRANCH If NO ERROR MESSAGE
:R2 ADDRESS OF

MESSAGE

STRING

JBRANCH If END OF MESSAGE
;LOAD ADDRESS OF STRING
;CLEAR BOT ADDRESS
<END OF STRING??
SYES!!
:CARRIAGE RETURN??
JNO'!
JYES=CLEAR CHAR (OUNT

JGET NEXT CHARA(TER
JLINE FEED??

JYES=GET NEXT CHARACTER
JHORIZONTAL TAR??

JNO!!
JADJUST (HARACTER (OUNT

13$

158

(HR(NI
#' RS
15%

JINCREMENT (HARAC TR (0 NT

s GPACE??
.NO

TRMMBO RMOS/ /2 FOTN

FRRCR

TYPEOUT

99 063540
100 063544
063552
"02 063554
103 063560
104 063562
it

O N &~
= O 0 00

063566

063572
063576
063600
053602
063610
063612
063614
063620
063622
063626
063632
063636
063642
063646
063652
063654

ROUTINE

010237

064004
00100

013704
001007

064004

122737
103340

104401
105037

013702
000726

105044
112737
104401

000000

105737
001707
104401
105037
105037

012702
010237
112742
105722

063656
063662
063664
063670
063674
063700
063704

063706
063710
063712
263716
063720
063722
063724
063726
063730
063732
063734
063736
063740
063742
063744
063746
063750
063752
063754
063756
063760
063764
063766
063772

MAIRD v04.00

064007

016002
016003
012137
001433

001217

064007
063612
77777

064006

0640C¢

16%:
17%:

18%:

006002

001217
000004
000006
063710

104401

005702
001767
012204
012305

R2,BOTADR

;SAVE ADDRESS OF

BHIS

11%

JNO!!

(MP8

BOTADR R4

TYPE

LSCRLF

105725

JTYPE

TYPE

s TYPE

TYPE

LSCRLF

:YES=TYPE

MOV

MOV
MOV
BEQ

108

80TFLG
CHRCNT
BOTADR,R2
R2,18%
# =(R2)
(R2)+
18

2(RO)

2’3

.SCRLF

4(RQ) ,R?

6(R0O),R3

NO DATA)

:R2 POINTS TO DATA ADDRESS TABLE

;R3 POINTS TO FORMAT TARLE

:DATA WITH HEADER??

MoV

(R2)+ R4

;R4 POINTS

MOV
TSTR
8M]
BEQ

20%

(R3)+ RS
(RS)+
243
238

24%:

25%
a8(R4)+ ,~-(SP)

005714
001403

25%:

000742

; (ASSUME

TARLE

013446

TYPO(

TYPBN

TSTY

JNO!!

END OF

DATA)

TO DATA ADDRESS

;RS POINTS TO FORMAT
JWHAT KIND OF DATA??
;BINARY
<OCTAL
;DECIMAL

;MORE DATA??

JERTYO4

JYES=TYPE 2 SPA(ES

263

BR
iYPE

223
LSCRLF

B8R

; (ASSUME

(R4)

BEQ

TYPE

6%:

TO ERROR HEADER

1ST

BR
MOV

001217

POINTS

JBRANCH [F NO HEADER

JHEADER ADDRESS GOES HERE

LSCRLF

25%
a(R4)+ ,-(SP)

104401

;R1

STRING

BR
MOV

000760

JRESTORE R2
:TYPE REST OF

. WORD

TYPE

23%:

064047

(RLF

;CLEAR BOT FLAG
sCLEAR CHARACTER COUNT
JSETUP R2 FOR TESTING
;SETUP 188 FOR TYPING
;RESTORE SPACE

;PUT HEADER ADDRESS FOR TYPE
;BRANCH ]F END OF HEADERS

a(R4) +,~(SP)

104401

JNO!!

(R1)+,21%
273

TYPDS

104406

STRING

BOTFLG

MOV

104402

ERROR MESSAGE

JSTRING ADDRESS GOES HERE
;WAS STRING TRUNCATED??

MOV

104405

SPACE
FLAG

.WORD
TSTB

TYPE

21%:

SPACE DETECTED

+REPLACE
JSET BOT

BEQ

20%:

CRLF

-(k4)
#-1,B0TF' G

;TYPE ERROR HEADER AND ERROR DATA

001403
013446

000402

JBRANCH [F

CLRB
MOVB

TSTR
BR

22%:

000405
013446

;GET ADDRESS OF LAST SPACE
JCLEAR (HARACTER COUNT
JSET UP R2 FOR TESTING

CLRB
CLRB
MOV
MOV
MOVR

19¢:

SPA(E

LINE??

CHRCNT
}?:.R?

BEQ

100407

16%

<END OF

LLRB
ggv

TvPE

001217

864, , (HRONT

MOV

BEQ

001217
064006
064007
064004
063612
000040

104401

000000

B &
17:43:/¢8 PAGE 41-2

MOV

eNE

000677
016001
001444
104401

&~aPR-8'

SEQ 0248

N
AL
O

r NN 2 C D W0
NOM

UV
T
i
S
S
N
R
-2
—

WNAN

NANNANRIN ORIPOFIPOPIPORY
+ 4 42 24 4 2

TSt

208

JNO!!

JAND CONT INUE
;TYPE ONE BLANK L iNF

JBEFORE NEXT HEADER

JRMMB. WMCS/ 37t TNL
b TYPEOUT ROUTINE
s

r-r

WMAIAC

27%:

000000
000000
C00000
000
000

ERRNMB:
BOTADR:
BOTFLG:
(HRCNT.

TSTNMB:

054
054
054
040
040

122
0490
040
040
040
055

064052
064062
064066

25062
0646066

064150
000000

127

064150
177 064154

064154

000C00
120

125

064166

064170
063130
064176
000

064010
064015

064925
064034
0649542
064045

178

18C 064170

064174
'82 064176

181

4-aPR-8°

1044°5

060207

66006
064007

:06.00

104

120
103

000000
000

126

124

105
120
00¢
040

064166

C
117:43:
8 PAGE

G
RESRc

RTS

.WORD
.WORD
-WORD

BYTE
BYTE

0
0

0
¢

JTEST NUMBEK
;ERROR NUMBER
JBEGINNING OF TEXT ADDRESS
;BO0T FLAG
s CHARACTER (OUNT

ERTYQO0:
ERTYO1:
ERTYO?:
ERTY03:
FRTYQ4:
ERTYQS:

LASCI 4
.ASCI z
LASC] Z
LASCI 4
.ASC} 4
.ASCIZ

PFECH:
PFECHI:

PFECHT ,PFE(H2,PFECH3
PFECH4 ;WORDS DEF INING TABLES BELOW

.EVEN

.+6,0
LASCIZ
.EVEN
PHE(HZ: L+6,0
LASCI2
.EVEN
PFECH3: .2
.WORD
PFECHS: .+2
BYTE

aDvea
a, TEST#Q
a, ERR#Q
@, PC=a
a
a
@ -a

?POWER MONITOR BIT

?CPUERRE"

CPSAVE
O

0.0

IN (PU ERROR REGISTER FOUND SET?

=My
RMCS/3,2 FOINL
e UINP T AOUTIME

L1 3d%

Woh.
0

4L=APR-81

LSBTTL

&
D
°":643:.8 PAGE 42

7Ty INFUT ROUTINE

‘-'-Q...'...'Q'...'.'.'.'..'.QQ'.'.'Q'.Q."..'..Q.'.Q'!..l..'u'.'..

64200
064202
064204
{64206

ENABL
LSB
$TK(NT: . WORD
$TKQIN: .WORD
$TKQOUT: .WORD

$TKQSRT:

064207

.BLKB

$TKQEND=.
.EVEN

O
O
O
1

s*TR INITIALIZE ROUTINE
s*THIS ROUTINE WILL INITIALIZE

JoNUMBER OF JTEMS N QUEuUt
;2 INPUT POINTER
J:0UTPUT POINTER
::TTY

THE

KEYROARD

QUE UE

TTY KEYBCARD

[NPUT

QUEUE

c*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

;*CALL:

£64210
0646214
064222

064230

064236
064244
064250
U64256

005037
012737
013737
012737
012732
05777
012777
000207

064200
064206
064202
064260
000200

064292
064204
000060
000062

000100

114702

114712

JSR

RETURN

$TRINT:

CLR

PC.STKINT

S$TKCNT

MOV
MOV
MOV
MOV

#$TKQSRT,$TKQIN
$TKQIN,S$TKQOUT
ASTKSRY ,a¥#TKVEC
#200,@#TKVEC+2

MOV

#100,987TKS

TST

RTS

a$TkR
PC

;*TK SERVICE ROUTINE

;*THIS ROUTINE WILL SERVICE THE

;o CLEAR COUNT OF

;. CLEAR DONE FLAG

JsENABLE TTY KEYBOARD INTERRUPT

;;RETURN TO CALLER

TTY KEYBOARD

;*BY READING THE (HARACTER FROM THE

;*IT

IN THE QUEUE.

1TEMS IN QUEUE

;,;MOVE THE STARTING ADDRESS OF “HE
;.QUEUE INTO THE INPUT & OUTPUT POINTERS.
;;INITIALIZE THE KEYBOARD VECTOR
;.'BR"" LEVEL 4

[NTERRUPT

INPUT BUFFER AND PUTTING

;*1F THE (HARACTER IS A ‘‘CONTROL=-C'' (*() STKINT IS CALLED AND
:*UPON RETURN EXIT IS MADE TO THE "'CONTROL=-('* RESTART ADDRESS (SHUT)

064260
064264
064270
664274
064276
064 300
064302
064302
064306
064310
064314
064320
064322
064326
064332

064334
064342

064344
064344
064352
066254

117746

042716
021627
001002
005726
000002
021627
001007
1046401
004737
005726
000137

021627

001004
022737

601500

022737
001004
104407

$TKSRV: MOVB

114676
177600
000021

30%:

000003

065406
064210

(MP
BNE

TYPE

065450
000007

1%:

000176

001154

000001

064200

001212

CMP
BNE
TST
RTI

JSR
TST
mp
(MP
BNE
(MP
BEC
r

BNE

TYPE

as$TKB,~(SP)
¥~C177,(SP)
(SP) ,#8X0ON
308
(SP)+

;:PICKUP THE CHARACTER
J:STRIP THE JUNK
;1S 1T A RANDOM XON?
;sBRANCH [F NO
;;CLEAN RANDOM XON OFF STa(k
2 JRETURN

(SP) 43

;:1S IT A CONTROL C?
:;BRANCH IF NO
;s TYPE A CONTROL=-C (*()

JBINTLC

PC,STKINT

(SP)+
SHUT
(SP) ,#2

#SWREG, SWR

#1,$TKINT

LSBELL

;o INIT THE KEYBOARD

;:CLEAN UP STACK
;. CONTROL C RESTART
;oIS IT A CONTROL G?
s sBRANCH IF NO
:21S SOFT=-SWR SELECTED?
::G0 TO SWR CHANGE

;. 1S THE QUEUE FULL?
:;BRANCH IF NO

JJRING

THE

TTY BELL

QW5 %72 8
JRVME
v NPT O ROUTINE

64360
V64 362
064 364
0364370
064372
064376

064400
064604
064606
644612
064616
064422
0644624
064432
064434
064440
0h44464
064446
064452
064454
064460
2646464
064470
064476
064500
064506

005726
000451
021627
001021
005077
005726
105777
100375

1177246

042716
022627

001366
012777
000002
005237

021627
002405
021627
003002
042716
112677

005237
023727
001003
C12737
000002

*rry

M4 K]

L=APR<B1
1ST

000023

BR
(P
BNE
CLR

3s:

114562

114554

TS7

318:

TST8
BPL
MOV
8I(

114550

177600

000021

000100

(MP
BNE
MOV
RT]

114526

064200
000140

INC
(mp

BLY

000175
0C0040
177516

(TMP
BRGY
BIC
MOVB
INC
(M
BNE
MoV

A ¥

064202
064202

064207

064206

064202

5%:

&
E
1':43:(B PAGE &2-1

SEQ 025°

J:CLEAN (HARA(TER OFf

e«
(SP)

JoEXIT

(SP) ,#23

~TA(r

:s1S 1T A CONTROL =S7
: ;BRAN(CH |F NO
;:DISABLE TTY KEYBOARD [NTERRUPTS

328
)348

s
(SP)

JoCLTW (HAR OFF

JcWAIT FOR A (HAR

=M
318
as$TxKB ,=(SP)

coLOOP UNTIL

STA(K

ITS THERE

;sGET THE CHARAC(TER
J:MAKE T 7-BJIT ASCII
JoIS IT A (ONTROL=-Q?
JsBRANCH [F NO
JJREENABLE TTY KEYBOARD INTERRUPTS
;. ;RETURN

#~_177,(5P)
(SP)+,#21
31

#100,a%7TksS

;o COUNT THIS (HARA(TER
;¢1S 1T UPPER (CASE?
JJBRANCH JF YES
;:1S IT A SPECIAL (HAR?
;;BRANCH [F YES
J:MAKE 1T UPPER (ASE

$TK(NT
(SP) ,#140

(A 3

(SP),#175

I8 3
#40,(SP)
(SP)+ ,@$TKQIN

;;AND PUT

#STKQSRT ,$TKQIN

;;RESEY

IN QUEUE

S$TKQIN
;JUPDATE THE POINTER
STKQIN,#STKQEND ;.GO OFF THE END?
5%
;JBRANCH [F NO

; sRETURN

RT]

THE

POINTER

". .'!l".'.'lQQ".."'.'.'Q'....'...."'l.'..'..""".".'."Q.'

: *SOF TWARE

J*ROUTINE

0646510
064516
064520
0646524
J64526
064532
064536
064542

022737

001124
105777
100121
117746
042716
021627
001300

000176

001154

BNE

114434

1STR

BPL
MOVB
BIC
{Mp
BNE

114430
177600
000007

;*ROUTINE

0646574
064600
66604
2644°C

123727

001150

004737
005077

064210

112737

000001

104401
104401

065420
065425
000776

013746

10640°

114372

000001

001151

JCEXIT IF NOT
;3 1S A (HAR WAITING?

15%
asTKS
15%

:.IF NOT, EXIT
;s YES

a$TkB, ~(SP)

#~C177.(SP)

JcMAKE

(SP) a7

7-B]T ASCII

;oIS IT A CONTROL-G?
:21F NOT, PUT IT IN THE

;JAND EXIT

TTY QUEUE

L4l 2220222222222
R332 2R
X222
X2 2 )

“*CONTROL

001674
005726

AND wiLL

:*SERVICE THE TEST FOR CHANGE IN SOF TWARE SwITCH REGISTER TRAP
;*CALL WHEN OPERATING I[N TTY INTERRUPT MODE.
$TKSWR: (Mp
#SWREG, SWR
;1S THE SOFT-SWR SELECTED

064544
064552
064554
064556
0646562
064566

SW]” {H REGISTER CHANGE ROUTINE.
FROM THE TRAP HANDLER,
S ENTERED

IS PASSED

FROM

TO THIS POINT FROM EITHER THE

THE

SOF TWARE

s *CONTROL~G BEING TYPED, AND
rMPR
6$:
SAUTOB, #1
BEQ
23
(SP)
+
PC,STKINT
JSR
(LR
a$7KS
#1,$INTAG
MOovRB

$GTSWR:

TYPE
TYPE

MOV

TYPO(

LSONTLG
. SMSWR

SWREG,=(5P,

SWIT(CH REGISTER

YHE

TTY

INTERRUPT SERVICE

TRAP (CALL,

A RESWLT

SOF TWARE SWITCH REGISTER BEING SELFCTED.
JARE WE RUNNING IN AUTO-MODE?
JBRANCH [F YES

::CLEAR CONTROL-G OFF STACK

;;FLUSH THE TTYy INPUT QUEUE
;:DISABLE TTY KEYBOARD INTERRUPTS
;oSET INTERRUPT MODE INDICATOR

s ;ECHO THE CONTROL=G (*G)

2 TYPE

CURRENT

CONTENTS

;. SAVE SWREG FOR TYPEQLT
5.G0 TYPE=-=OCTAL ASCII(ALL DIGIT

WS4 <

INPLT

ORQUT INE

64612
Dos616

264620
064622
064626

64630
064634
Wo4640
UohokL
064646

264652
064656

0646664
266666
0H4676

464700
064704

064706
064712
064716
064720
064724
064726
064732
064734
064742
064746
064752
064760
064762
064770
064772
064776
065002
065004
65010
065012
065016
065022
065024
06026

065030
065032
065036
065042
065044
765050

FOTNG

MARD

1046601

(€5« 3¢

105777

114332

005046
005046
100375

117746

114324

021627
001015

000003

042716

104601

062706

'9%:

127600

065406
000006

00000

012777

000120

114264

021627
001005
104401
062706

0C0025

000137

000737

021627
001022
005766
001403
016677
62706
104401
123727

001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
206316
006316
006316
005266
056616
000667
1046401

000720

065450

065413
000006

W
. SMNE
-(SP}

(LR
(.R
TSR

114212

00C0C?

000100

114170

::PROMPT FOR NEW SWR
ccCLEAR (OUNTER
;2THD NEW SwR
;i(HAR THERE?
Jo1F NOT TRY AGAIN

8PL

asTks
7$

MOvRa
8I(

#AC17%,(SP)

as$TkR = (SP)

J:PICK UP (HAR
JcMAKE JT 7=-BIT ASCII

(52),#3%

c.1S IT A CONTROL=(?

LSINTLC

(*(,
;s CLEAN UP STA(K
sREENABLE TTY KEYBOARD [NTERRUPISO
;:BRANCH IF NO
csALLOW TTY KEYBOARD INTERRUPTS
. s CONTROL~-( RESTART

ADD
CMPR
BNE
MOV
.Mp

26, SP

9%:

mp
BNE

(SP) ,#25
108

c08:

ADD

#6,5P
19%

J21S IT A CONTROL=-U?
;cBRANCH IF NOT
JoYES, ECHO (ONTROL-U (*u)
;. IGNORE PREV]OUS [NPUT
JLET'S TRY ]T AGAIN

(P
8NE

(SP) ,#15
16%

s cBRANCH [F

8%:

TYPE

TST

000002
000006
001217
001151

-\ 5P)

&
42-¢

000004
X
e

14%:

15%:
16%:

000067
000060
000002

BEQ
MOV

ADD
TYPE
(MPS

SAR

#100,3%1xS
SHUT

LSINTLU

L(SP)
1%

2(SP) ,aSwR

85,5P

,SCRLF

SINTAG#1
,

15%
#100,a87xsS

JSR
{mp
BLT
(MW
BG”
BIC
TST
BEQ

PC.STYPEC(

RT]

INC

$INTAG47
,
8s

BNE
MOV

ASL
ASL
ASL

000002
177776
001216

TVPE

PAGE

BNE

000015

061526
000060

"':4(3:.8

TYPE

001151

4<APR-81

rmp

123727

001003

04,00

BIS
8R

TYPE
/R

L SH

(SP) ,#60

18¢%

(SP),ab7

18¢%

Hey, (SP) e

c(SP?
(SP)
(SP)
(SP)

2(SP)

<2(5P, (5P}

L3QUES

20%

;:BRANCH [F NOT
;:YES, ECHO CONTROL=C

2218 IT A <CR>?
NO

::YES, 1S 1T THE FIRST (HAR?Y
. RRANCH IF YES
;s SAYE NEW SWR
;s CLEAR UP STA(K
::ECHO <CR> AND <LF>
JIRE-ENABLE TTY KBD INTERRUPTYS?
:JRRANCH [F NOT
;cRE~ENABLE TTY KRD INTERRUPTS
; cRETURN
;JECHO CHAR

$iCHAR < O?

; ;BRANCH [F YES
;oCHAR > 72
::RRANCH JF YES

;sSTRIP=OFF

ASCII

;JBRANCH ]F

YES

.18 THIS THE FIRST (HAR

;INO, SHIFT PRESENT
CHAR GVER TO MAKE
i
FOR NEW ONE.
ROOM
S
OF (HAR
COUNT
JKEEP
(HAR
NEW
IN
c.SET
ONE
NEXT
THE
JJGET

J1TYPE

2<[R>LF>

~u
JoSIMULATE TONTROL

"'Q...'l".""..QQ"Q'I'Q'...O....'..tl".‘.".b.t"tlt't'..""

ST
14, "SR I

IR "INE

L=APR=81

e 6.0

'':4%:.8

coTHIS ROUTINE Wittt
soCALL:

065132

065140

005737
00775

0C5337
117766
005237
023727
001003

012737
000602

000004
0000C4

000002

$RDTHR:

065076

064200
177070

064207

064206

064204

$TKCNT

AARR

:'
;"
065142
065144
065146
065152
065156
065160
065162
065164
u65170
065172
065774
65176

065204

065210
065214
065216
065222
065224
065230
065234
065236
265240
065242
265250
065254

265256
25262

010346
005046
012703
022703
101456
104411
112613
122713

001022
005716
001007
112737
104401

012716
005303
020327
103434
111337
104401

000746
005716
001406

112737
104401

005016
122713
007003

*CAL.
:

2%:

000177

13%:

06537«

177777

c(MP
B8LOS

NAER

RDCHR
MOVB
{MPR

BNE

AR AR

06537¢

065374
065374
5¢-

000134
065374

000025

(45374
'$:

R3.,=-(SP)
-{(SP)
#STTYIN,RS

{SP)+,(R3)
#177,(R3)

(SP)

MOV
DEC
(mp
BLO
MOVR

0-1 L(SP)
R3
R3,48TIYIN
43
(R3%3),9%

BR
ST

2’3
(SP)

MOVA

a'\,9%

B8tQ

TYPE
(LR
{MPR

BNE

THE

#$TTYIN+8,
RS
A 3

6%
2'\,9%

TYPE

;;RESET

POINTER

222

INPUT A STRING FROM THE

BNE
MOVR
TYPE

¢S

::sPUT NEW PS ON STACK
J:PUT NEW PC ON STA(K
+:POP NEW P( AND PS

RDLIN
RETURN HERE

1ST

000134
065374

;iGET READY FOR A (HARA(TER

2 sRETURN
A

$RDL IN: MOV
LR
1%:
MOV

065376
06540¢

J:PUSH DOWN THE P( AND
;i THE PS

#$TKQSRT,$TKQOUT

'EZIS ROUTINE WILL
s

STRIPPED OFF

J:WAIT ON A (HARA(CTER
19
$TKCNT
. :DECREMENT THE COUNTER
23 TKQOUT
4 (SP)
;.GET ONE CHARA(CTER
$TKQOUT
;;UPDATE THE POINTER
$TKQOUT ,#$TKQEND ;:DID IT GO OFF OF THE END”
i
;<BRANCH [F NO

MOV
RT]
AR

s.WITH PARITY BIT

(SP) ,=(SP)

(MP

;o CHARACTER IS ON THE STA(K

&(SP) ,2(SP)
L(5P)
-(SP)
8648 ,-(SP)

BNE
2%:

TTyv

;GET A (HARACTER FROM TME QUF

MOV
CLR
(LR
MOV

BEQ
DEC
MOVB
iNC

0000C4

064204
064204

MOV

RY]

64%:
i ¥

064200

INPUT A SINGLE (HARACTER FROM THE

RETURN HERE

011646
016666
005066
00576
012746
000002

4
4(2-F

RD(HR

;

365052
65056
165062
065066
065070
965074
065976
065076
065102
065104
065110
065115
665122
065130

PAGE

.98

TTY

s INPUT A STRING FROM THE TTv
;;ADDRESS OF FIRST (HARACTER wiILL BE ON THE STACK
;cTERMINATOR WwiLL BE A BYTE OF ALL 0°S

;:SAVE R3
;o CLEAR THE RUBOUT KEY
::GET ADDRESS
J<BUFFER FULL?

;:BR IF YES
::GO READ ONE CHARACTER FROM THE TTy
;GET CHARACTER
JIS
. BR
;1S
BR
LIP3
T
W

1T A RUBOUT
IF NO
THIS THE FIRST RUBOUT?
IF NO

:TYPE

A BA(CK SLASH

;:SET THE RUBOUT KEY
. sBACKUP BY ONE
23STACK EMPTY?

;:BR IF YES

I 3

J2SETUP TO TYPEOUT THE DELETED "HAR.
;:G0 TYPE
;:G0 READ ANOTHER (HAR.
:JRUBOUT KEY SET?
;:BR 1F NO

.98
‘SP)
825, (R3)

1115 CHARACTHER A CTRL U2

.93

S TYPE

A BACK

SLASK

;. CLEAR THE RUBQUT KEY

J:BR IF NO

”-:w-av mos/S/%fflI. v
ueS

065270

45272
055276
765 300
#5302
75306
%5312
065314
365320
0465322
065
0653
065336
265340

065344
065350
06535¢
065354
065356
065 364
065372
065374
065375
065376
065406
065413
065420
055425
065436
Z

3 065450

4 065454

5 065456
¢ 065662
7 065466

104401

WATRY

TYPE

8%:

101

1044601

o717

0653%7¢

111337
104401
122723

065374
065374
000015

kS ¥

105063
104401

177777

005726
012603

011646
016666
012766
000002

001220

9%:

136

015
015
015
123

* 36

136

015

040

116

000042

005422
001300
0461432

$TTYIN:
S$CNTLC:
SINTLu:
SINTLG:
SMSWR:

SMNEW:

.EVEN

SHuUT:
1%

:21S (HARACTER A "TMR'"

;.G0 START OvER

b1
(R3)

+sCLEAR THE (HARACTER

STTYIN

< TYPE

;:CLEAR THE BUFFER AND LOOP

JSCRLF

.98

;:BRANCH [F NO

JITYPE A (R R CLFC
THE

[INPUT

STRING

;GO PICKUP ANOTHER (MACTEK
JJTYPE A '
;cECHO THE (HAKACTER

£215,(R3) .

J3CHECK FOR RETURN

TYPE

JSLF

sTYPE

(SP)+,R3

:IRESTORE R3

MOV

000004

822,(R%)

(MPR

MOV

00CC0°2

JoTYPE A (ONTROL "L

(R3),9%

TYPE

4
42-«

$INTLU

MOVR

B8R

PAGE

8R
TYPE

MOV
0C0004
065376

1°:63:/8

8
LSQUES

ISt

000

000137

BNE
(LRAR

BNE
CLRR

000

05737
001002
000137
005037

(mPR

TYPE

001305

TYPE

01217

001216

c00712

H
G-APR=B1

0¢S5«1%

234k 000C2¢
105013
106401

/04,00

2%
-1(R%)
(SP)+

(SP) ,=(SP)

L(SP),2(SP)

ssL00P 1F NOT KETURN
;¢CLEAR RETURN (THE 15)
A LINE

..ADJUST THE

HSTTYIN,L(SP)

BYTE

.BLKB
_ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

8.
J;RESERVE
/2C/<155<12>
JoCONTROL
/*uy/<15><12>
;sCONTROL
/2G/<15><12>
;s CONTROL
<15><12>/SWR = /

BY'E

ASCIZ

STACK AND PUT ADDRESS OfF

;JRETURN

;:STORAGF

FOR ASCII

;s TERMINATOR

(HAR.

8 BYTES FOR TTY
*°C"'
"V
"'

NEW =

anél

JANY MON]TOR PRESENT ?

JMp
(R

START
$DEVM

;G0 TO START
;FUDGE NO DRIVES

BNE

.mp

$cOP

:BR IF

STA(CK

FIRST ASCI] CHARACTER ON [T

MOV
RT]

FEED

;. CLEAN RUBOUT KEY FROM THE

YES

JRETURN TO $EOP

IN MAP

10 TYPE

INPUT

TMt

TR, AMOS/R/0 KCTNL ST C
READ
AN COTAL NUMBER FROM TSE

WA RT 04,00
"Tv

4~APR-BY

.SBTTL
A

11:43:¢8 PAGE <3

READ wN OCTAL NUMBER FROM THE
AR

AR A

SeTHIS ROUTINE wl.L READ AN O(TAL
;o{HANGE T T0O BINARY,

soCALL:
;e

M
065472

065474
065502

065504

245506
065510

065512

011646

016666
010046

006301
(06102
006301
006102
042716
0626C1
000764
005726
010166
010237
01260G2
012607

065570
065572

$RDOCT+ MOV

1%:

012600

065530
065532
06553
065536
06550
065544
0655646
065550
065552
065556
065562
065564

2%:

006102

012600
000002
000000

RE TURN 4ERE

177770

000L12
065572

3%:

ASL
ROL
ASL
ROL
BIC
ADD
BR
TST
MOV
MOV
MOV
MOV

MOy

RT]
$HI0(T: .WORD

E E

R N

ASCI]) NUMBER FROM THE

(SP)+,R0O

R1
R2
(RO)+,=(SP)
33
R1

R1
R2
R1
R?2
#(7,(5P)
(SP)+ R1
2%
(SP)+
R1,12(5P)
R2.SHIOCT
(SP)+ ,R2
(SP)+ R

(SP)+,R0O

;.LOW ORDER BITS ARE ON TOP OF
2sHIGH ORDER BJTS ARE

N SHD(T

;2 INPUT NUMBER
;:PUSH RO ON STACK

;:sPUSH R2 ON STA(K
JJREAD AN ASC!Z LINE

;2GET ADDRESS OF

;:CLEAR DATA WORD

1ST (HARAITEK

;2PICKUP THIS (HARACTER
Jo1F ZERO GET OUT
o2
L1
:;*8
JoSTRIP THE ASCII JuNk
;:ADD IN THIS DIGIT
;. LOOP
:cCLEAN TERMINATOR FROM STATK
;2SAVE THE RESULT

;:POP STACK INTO R?
:POP STACK INTO R1

;:POP STACK INTO RO

2 JRETURN
;sHIGH ORDER BITS GO HERE

)

T1v ANL

;;READ AN OCTAL NUMRER

. sPUSH R1 ON STA(K

R2.=(SP)

ROL

R1,=-(SP)

MOV
RDLIN

(LR
(LR
MOvVB
BEQ
ASL

:JPROVIDE SPACE FOR THE

L(SP) ,2(SP)
RO,=(SP)

MOV

EE R

(SP) ,=(SP)

MOV
MOV

MOV

010246
04412

0050
005002
112046
001672
006301

065566

(00002

010146

0655164
065516
265520
065522
065524
065526

0000064

RDOCT

TTv

TIME STA(Y

MATRT

.SBTTL

11:43:¢8 PAGE «4

4-APR=B1

L06,0C0

EU\.'

TRAP DECODER

N .'..Q..Q.'..Q.Q....""'.'.t.t..t.!'."tl!t"t.t.'.'.."t.l'..'

$eTHIS ROUTINE

J*AND USE

$*OF

WwILL

PICKUP

TO INDEX

THE

LOWER BYTE

THROUGH THE

TRAP TABLE

THE

FOR

'‘TRAP'' INSTRUCTION

THE

STARTING ADDRESS

THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED ;T wiLl

:*G0 TO THAT ROUTINE.

065574
265600
065604
065610
065612
065614
065620
065622
065624
065626
065632

016646
042716

012746
000002

010046
016600
005740

000002
000020
065612
000C0¢2

$TRAP:

MOV

RTI
MOV

111000

0063G0
016000

000200

065644

011646
C16666
000002

000004

MOV
TST
MOvB
ASL

000002

;sSET THE NEW STATUS
;s SAVE RO

$TRPAD(RQ)
RO

;;INDEX TC TABLE

TO HANDLE

$TRAP2: MOV

mMov
RT1

.SBTTL

RO,~(SP)

;;
;2

2(SP) ,RO
-(RO)
(RO) ,RO
RO

RTS

IS USE

s JASSUME

#2),(SP)
#1%,-(SP)

MOV

065646

;. TnIS

065634
065636

BIC
MOV

2(SP) ,=(SP)

THE

STATUS 0F

THE CALLER=--DO NOT ALLOW
T=BIT TKAPS

;:GET TRAP ADDRESS
; :BACKUP BY 2
;.GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;.60 TO ROUTINE

''GETPRI'* MACRO

(SP) ,=(SP)

4(SP) ,2(SP)

. :MOVE

THE PC

DOWN

;:MOVE THE PSw DOWN
;JRESTORE

THE PSW

TRAP TABLE

s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;*BY THE '‘TRAP'' INSTRUCTION.
ROUT INE

065646
065650
065652
065654
065656
065660
065562

065634
061314
061112
061066
061126
060642
060566

065664

064600

065666
065670
065672
065676
065676
265700

064510
065052
065142
065472
060472
660530

$TRPAD: .WORD

$TYPE
$TYPOC
$TYPOS
STYPON

$TRAP?

;;CALL=TYPE
.;CALL=TYPOC
. :CALL=TYPOS
;;CALL=TYPON

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZERQS)
TYPE OCTAL NUMBER (AS PER LAST (AIL)

$GTSWR

;;CALL=GTSWR

TRAP+7(104407;

GET SOF T-SWR SETTING

$CKSWR
$SRD(HR
SRDLIN
$RDOCT
$SAVREG
SRESREG

;. CALL=CKSWR
. ;CALL=RDCHR
. ;CALL=RDLIN
;. CALL=RDOCT
;;CALL=SAVREG
;,CALL=RESREG

TRAP+10(104410) TEST FOR CHANGE IN SOF T-SWwR
TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE
TRAP+12(104412) TTY TYPEIN STRING ROUTINE
TRAP+13(104413) READ AN OCTAL NUMBER FROM TTy
TRAP+14(104414) SAVE RO-RS ROUTINE
.
TRAP+15(104415) RESTORE RO-RS ROUTINE

$TYPDS
$TYPBN

;.CALL=TYPDS
;. CALL=TYPBN

TRAP+5(104405)
TRAP+6(104406)

TYPE DECIMAL NUMBER (WITH SIGN)
TYPE BINARY (ASCII) NUMBER

JeMME

578

TUWN AND

¢ FNL Tyt
JP RULTINE S

066042
000340

065702
065710
06576
065720
065722
065724
065726
065730
065732
065736
065742
065750
065752

113216
066046

065754

MATRO v04.00

000024
000026

4-APR-81

'1:43:¢8 PAGE

.SBTTL

POWER DOWN AND UP ROJTINES

TR ARAR

AN RN AN NP

RANR TR RN

*POWER DOWN ROUT INE

$PWRDN:

000024

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOv
MOV
MOV
MOV
HALT

RN RN RNN

#SILLUP,@#PWRVEC

AN N AN

;;SET

FOR

#3460, #PWRVEC+2 ;;PRI0:7

RO NI

ARNNARA NN PIOROOOTON

FAST

RO.,.=(SP)

;cPUSH RO ON STACK

R3,-(SP)

JPUSH R3 ON STACK

R1,=(SP)
R2,~(SP)

R4 ,=(SP)

RS,=(SP)
aSwR,~(SP)
SP,$SAVR6

HSEPWRUP ,Q#PWRVEC

;:PUSH R1 ON STA(K
;sPUSH R2 ON STA(K

;+sPUSH R4 ON STACK

;:PUSH R5 ON STA(CK
;sPUSH @SWR ON STA(K
;sSAVE SP
;;SET

UP VECTOR

JJHANG UP

';'!Qti.l..l'.t'...t".""tk"..it.t"..Qt'tttt.fitt"."tt"tt'.

065754
065762
065766
065772
065776

066000
066004
066006
066010

066012

066014
066016
066020
066026

0656034
066036
066040
066042
066044

066046
066050

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:
1%:

1'3150

065702
000340

000024
000026
$PWRMG:
SILLUP:

012

120

MOV

MoV

(LR
INC
BNE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TYPE

DOWN

;IWAIT LOOP FOR THE
;;WAIT FOR THE INC
:;0F
WORD

(SP)+,RS

:;POP STACK

(SP)+

;.POP STACK INTO R3

(SP)+ ,a5WR

(SP)+ R4

(SP)+,Rr2
(SP)+ ,R1

TTY

;+POP STACK

INTO aSWR

:sPOP STACK

INTO R4

INTO RS

;;POP STACK INTO R?
;:POP STACK

INTO R1

(SP)+ RO
;;POP STACK INTO RO
#SPWRDN ,a#PWRVEC ;;SET UP THE POWER DOWN VECTOR

#3460 ,3#4PWRVEC+2 ;:PR]IO:7
$POWER

B8R

.~2

.ASC]?Z
LEVEN

<15><12>" POWER"’

RT]
HALT

FAST

$SAVRE
$SAVR6
1

.WORD

$SAVRG: 0O

$POWER:

#SILLUP,Q#PWRVEC ;;SET FOR
$SAVRE, SP
;;GET SP

JREPORT

THE

POWER FAILURE

;;POWER FAJL MESSAGE POINTER
;s THE

POWER UP

;sPUT

THE

s BEFORE

SEQUENCE

WAS

STARTED

THE POWER DOWN WAS (CMPLETE

SP HERE

JEMMBC RMGS/ 372 FOTNL TST
MMUNT CATIONS ROUTINE

A
-

MACRO v04.00

4-APR-81

11:43:28 PAGE 46
SEQ UZH-

LSBTTL

APT COMMUNICATIONS ROUTINE

e 2222222222222l
Rl
R
R
R R
ANEI RN R R ER RN I
R AN X Y

000001
000001

066324
066322

SATY1:
SATYS:

000001

066324

$ATYSL:
SATY(:

066322
000001

001242

000100

001243

000004
000002
001222

000004

001236
066164
066166

066172
066174
066200
066206
066210
066216
066224
066230
066234
066236
066236
066242
066244
0662590
066252
066256
066260
066266
066274
066300
066304
066310
066314
066316
066320
066322
066323
066324

1%:

2%:

001236
001240
000004

000000
105737
001416
005737
001413
005737
001375
017637
062766
005237
105037
105037
105037
012601
012600
00C207
009
000
000

000200
000001
000100
000040

000004
000002
177776
061314

3%:

5%:

10%:

001242
001222

000004
000002
001222
066324
066323
066322

MOV

TS1B
BNE
SuB

11%:

001224
000004

$MFLG:
$LFLG:
$FFLG:

FATAL

ERROR

#1,8FFLG

:;TO ONLY REPORT FATAL ERROR

RO.~(SP)
R1,-(SP)

;sPUSH RO ON STA(K
;:PUSH R1 ON STA(CK

HAPTSPOOL ,$ENVM

; ;SHOULD SPOOL

SATY(

SMFLG
5%
#APTENV,$SENV
3%
3s
@4 (SP) ,RD
#2,4(SP)
$MSGTYPE
1%
RO, SMSGAD
520)+

TYPE

A MESSAGE

;s SHOULD TYPE A MESSAGE”?
;:1F NOT:
BR
> ;OPERATING UNDER APT?
..1F NOT:
BR

MESSAGES?

Jo1F NOT:
BR
*:GET MESSAGE ADDR.
::BUMP RETURN ADDR.
;:SEE 1F DONE W/ LAST XMISSION?
SIIF NOT:
WAIT
1:PUT ADDR IN MAJLBOX
::FIND END OF MESSAGE

6 (SP) 4%

;:PUT MSG ADDR IN JSR L INKAGE

JSR

177726,=(SP)

Sc.srvpfi

:;PUSH 177776 ON STACK

T1STB
BEQ
TST
BEQ
TST
BNE

$FFLG

; :SHOULD REPORT FATAL

B8R
MOV
ADD
.WORD

INC
CLRB
CLRB
(LRB

MOV
MOV
RTS

.BYTE
.BYTE
.BRYTE
.EVEN
APTSIZE
200
APTENV
= 001
APTSPOOL= 100
APT(SUP

;.70 REPORT

;.70

;:;SUB START OF MESSAGE
::GET MESSAGE LNGTH IN WORDS
“IPUT LENGTH IN MAILBOX
SITELL APT TO TAKE MSG.

MOV
ADD

12%:

#1,$FFLG

8 ,8MFLG

SMSGAD , RO
RO
RO, SMSGLGT
gg,smservpe

MOV

A ¥

066324

MOV
MOV
TSTR
BEQ
{MPR
BNE
BITR
BEQ
MOV
ADD
7ST
BNE

ASR
MOV
MOV

00122¢
066234
000004

MOVR
MOVR
B8R
MOVB

040

#2.4(SP)

12%
SENV
12%
$MSGT YPE
118
34(SP) ,$FATAL
#2,4(SP)

$MSGTYPE
$FFLG

- :BUMP RETURN ADDRESS

S CALL

TYPE MACRO

: :BUMP RETURN ADDR.

;:TELL APT TO TAKE ERROR
SSCLEAR FATAL FLAG

SLFLG
SMFLG

SSCLEAR LOG FLAG
1:CLEAR MESSAGE FLAG

SIFATAL

(SP)+ ,R"
(SP) +.RO
PC
0
0

ERRCR®

YIIF NOT:
BR
$SRUNNING UNDER APT?
;;1F NOT:
BR
S FINISHED LAST MESSAGE?
SYIF NOT:
WAIT
;:GET ERROR #

1:POP STACK INTO R1
$:POP STACK INTO RO
: *RETURN
P:MESSG. FLAG
;:L0G FLAG
FLAG

JHMMB, KMOS
N ME <<
2

FOIN.

66326

075

cCC

5 066335
¢ 066341
7 066344

040
054
200
200

077
040
126
122

040

114

& 66330

8 066375

101

9 066405
Tu 0664647

040
122

12
'3
T4
'S
14
"7
'8

066512
066577
066656
066655
066676
066712
066720

200
200
200
040
200
104
200

20 C66743
21 066750
22 066755
23 066776
24 0670°3
25 067030
26 067047
27 067060
28 0667070
29 067117
30 067124
31 067126
32 067130
33 067131

122
122
040
040
040
240
040
040
200
116
116
13
040
040

10664656

'9 066736

34 067132
35 067133
3¢

122

040
040

174

14
115

MACRD v04.00

4-APR-81

LSBTTL

CONSOLE MESSAGES

EQUALS:

,ASCIZ

040
000
131
115

QUES:
COMMA:
MSHELP:
(NSLO1:

LASCIZ
_ASCIZ
_ASCIZ
(ASCIZ

114

111
126

ALL:

(NSLOZ:
(NSLO3:

124
101

131
116

117

(NSLO4:

077

111

(NSLOB:
CNSLO9:

104
122
125
115

115
115
116
114
116
116
117
117
104
117
000
000

000

17:43:¢8 PAGE 47

.ASCIZ
.ASCIZ

.ASCIZ

122
1117
116

MSDRVS:
MSGORvV:
SYSTAT:

.ASCII
LASCIZ
.ASCII
.ASCIZ
,ASCIZ
.ASCIZ
_ASCIZ

060
060
117
117
117
117
106
116
12¢
116

SRMO3:
SRMO5:
NOTRM:
LODEv:
NOTPRS:
NOTAVL:
UNTOFF:
UNTON:
DRIVES:
NONE:
N:
Y:
BLNKS4:
BLNKS3:

_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCiZ
_ASCIZ
_ASCIZ
.ASCIZ
LASCIZ
LASCIZ
ASCIZ
_ASCII
_ASCII

060

CNSLO7:

LASCIZ

$RMO2:

BLNKS?:
BLNKST:
.EVEN

.ASCIZ

.ASCII
.ASCIZ

a=e

@ALLE<CRLF>

@ ? @
a, @
<{RLF>aTYPE HELP TEXT
<CRLF>aRM(S1=d
@ LIMITS = LO=
aRMVE(-a

160000,

(L) N ? @
HI=

17XXXX3<CRLF>

@ LIMITS = t0= 0, HI= 1000@<CRLF><LF>

<CRLF>RTYPE "A"" TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)@
<CRLF>3AND TFRMINATE INPUT WITH A (ARRIAGE RETURN.®
<(CRLF>
@ ?ILLEGAL INPUT@<(RLF>
<CRLF>/DRIVE(S): /
/DRIVE/
<CRLF>/UNIT STATUS:/
/RMOZ2/

/RMO3/
/RMOS/
@ NOT AN RM0S5/3/2a
/ LOAD DEVICE/
/ NOT PRESENT/
/ NOT AVAILABLE/
/ OFFLINE/
/ ONLINE/
<CRLF>/DRIVE(S) TO BE
/NONE/
/N/
/v/
7/ /
/ /
/ 7/
/ /

TESTED/

"IRMMBO RMOS/3/2 FCTINL
TARCE

;

FUNCTION CODE

FUNCTION

CODE

SEQ 0260

TABLE

IS USED

TO DEFINE

STATUS

BIT USAGE [S AS FOLLOWS:

$1T IS NOT EXPECTED AS A RESULT OF
IF

CONDITIONS FOR

1IF
;

:1F

THE COMMAND.

WCE =~ BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

;

}

11:43:28 PAGE 48

;
ATA = BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
$1F ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE,
:BIT 15 IS ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.
INOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH

4-APR-81

;EACH FUNCTION CODE.

1
}

MAIRO v04.00

JTHE

=O YO0 NN

;

LSBTTL

FUNCTION CODE

15T

OP]

OP1

- BIT

ERRORS ARE
IVC

= BIT

SET

THE

ENTRY FOR A GIVEN FUNCTION CODE

ENABLED DURING THE EXECUTION OF
12

SET

THE

ENTRY

THAT COMMAND.

FOR A GIVEN FUNCTION CODE

IvC ERRORS ARE ENABLED DURING THE EXECUTION OF

THAT COMMAND.

21
22

;
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

35
26

:
*IF

IAE - BIT 10 IS SET IN THE ENIRY FOR A GIVEN FUNCTION CODE
INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND.

58
29
30
3

AOE =~ BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
“1F READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE
"COMMAND.
THE ERRORS ENABLED BY THIS BIT ARE "‘TRE'. "DLI'", "NEM".
TUMXF, CLBT', AND "AOE'.

;

35
%6

:
:1F

HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
HEADER ERRORS ARE ENABLED DURING THE EXECUTON OF THAT COMMAND.

“IF

DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF

BIT

;

BIT 04 IS NOT USED.

¢/

;

BIT 03 IS NOT USED.

BIT 02 IS NOT USED.

;

BIT 01

2}
35 067136

;
ILF = BIT 00 IS SET IF THE FUNCTION CODE IS 1.lEGAL.
ENCDTB:
SFUNCTION CODE TARLE

()

020000

‘WLE'',

"MCF'",

'DPE”.

'UPE'TM.

LWORD

INCLUDE

'MCRC'',

“MCE'*,

'FER'
ANy

'BSE'"".

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

“COMMAND.

ENABLED ARE

B1T 08 IS NOT USED.

"HEADER ERRORS

57 067136

ERRORS WHICH ARE

(OPI

THESE ERRORS INCLUDE 'MDPE'", 'DCK'. AND ‘ECH".
05

IS NOT

THA'

USED.

IS NOI USED.

NUP

JRMMB.

AMOS/ 372 FLTNL

FONTTION CODE

8 067140
59 067142
60 067144

TARLE

130001
132000
130000

51 0671646
£2 067150
63 067152

020000
030000

S 067156

&6 067154

66 067160

67 067162
68 067164
09 067166

TST

M4 R

L0400
.WORD
.WORD
.WCRD

130000

020000

.WORD

OP]

130000

020000

.WORD

1 067172
72 067174

130001
13000°

.WORD
.WORD

76 07200
75 067202

130001
130001

130001

.WORD

130001

.WORD

0672064
67206
067210
067212
0672146
067216
067220
067222
067224
067226
067230

130001
073300
073300
130001
130001
(37200
C(€37000
130001
130001
033300
033300

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

88 06723«

130001

-WORD

76
77
78
79
80
81
82
83
84
85
86

87 067232

QPI'ATA'ILF!']IVC
ATA:OP].IVC'IAE
ATA'OPI'IVC(

OrP]
OP].IVC
OPI'ATA!'IVC

.WORD
.WORD
.WORD

73 067176

8 S
11:43:¢8 PAGE «S-1

. WORD
.WORD
.WORD

130001
130001
132000

70 067170

4-APR-B1

130001

CPI.ATA!IVC
OP]

OPI'ATA!'IL"
'IVC
OPI.ATA!]LF.IVC(
ATA!OPI']V(!]AE

OPI'ATA!ILF!']IVC
OPI'ATA!ILF'IVC(
OP]'ATA.ILF.IVC

OPI].ATA.ILF'IVC

. WORD
.WORD

OPI!ATA!'ILF . ]1V(C
OPI'ATA.ILF.]IVC

WORD

OP]'ATA!ILF.Iv(C

OPI'ATA!ILFiIV(
WCE'OP].IVC!']AE.AOt'HCE.ECH
WCE!OP]!IVC!IAE.AOE 'HCE'ECH
OPJ'ATA!'ILF']IV(
OPI'ATA!'ILF'IVC
OPI1'IVC!WLE!IAE .AQE 'HCE
OPI!'IVC'WLE'I]AE'AOE
OPI'ATA![LF'IVC
OPI'ATA'ILF']IVC
OPI!IvC!]AE'AOE 'HCE 'ECH
OPI'IVC!'IAE'AQE'HCE'ECH

OPIATAIILFi]v(

JILLEGAL FUNCTION (2
s SEEK
;RECALIBRATE

;DRIVE (LEAR
JRELEASE
SOFFSET

JRETURN TO CENTER_
INE

JREAD IN PRESE?

JPACK ACKNOWLEDGE

;ILLEGAL FUNCTION 124)
JILLEGAL FUNCTION (26)
;SEARCH

JJLLEGAL FUNCTION (32)
JILLEGAL
JILLEGAL

FUNCTION
FUNCTION

(34)
(36)

JILLEGAL
JILLEGAL

FUNCTION
FUNCTION

(620
(44)

JILLEGAL FUNCTION (400

JJLLEGAL FUNCTION (46)
:WRITE CHECK DATA
JWRITE (HECK HEADFR AND DAT2
JILLEGAL FUNCTION (54)
JILLEGAL FUNCTION (56)
;WRITE DATA
;WRITE HEADER AND DATMA
JILLEGAL FUNCTION (64)
SJLLEGAL FUNCTION (6¢)
;READ DATA
;READ HEADER AND DATA

JILLEGAL FUNCTION (74)

JILLEGAL FUNCTION “7¢€)

JNMMBO RMO5/3/72 FOTNL

ATTENTION

CATA.

TABLE

T 2672%

. 067237

5 067240

6 067261
7 067242
8 067243

9 067264

N 067245

TST

MAIRO v04.00

LSBTTL

4-APR-B1

1':43:¢8 PAGE

ATTENTION

(ATA)

001

ATNTBL: .BYTE

004

RYTE

BYTE

64,

002

010
020
040
100

200

.BYTE

BYTE
BYTE
BYTE
BYTE

8.
16.
32,
128,

TABLE

Yo RT

MV
e

2D O~
NI

S IS BN BN NS &H DN AN ANNN WANWINNI
NN RO NN nIrnOND N 2=
WA= — OO0 NN
W= - OVM NV WA = C 000NN NN
- QOO

22 2

YRV

T SO

NS N

DN [,] AN N

J67246
067252
067260
067266

067274

067302
067310
067316
067322
067326
067334
067346
067354
067362
067372
067402
067412
667422

067432
067442
067452
067462
067472
067502
067512
067522
067532
067542
067552
067562
067572
067602
067610
067620
067632
067642
067652
067662
067672
067700
067710
067722
067740
067756
067766
070000
070016
070026
070044
070004
070100
070102
070122
270142
070°5¢4

073€34

073703

073703
074026
0746026
100631

076615
074612%
074°70
074232
074304
074400
074232
074232
074232
074232
074232
074232
074232
074232
074232
0742%2
074232
074232
074232
074232
074232
074232
074232
074232
074232
076133
676321

00Cun0

073720
073763
074056

074170

076047
100656

€22000
000000
074243
074315
v76047
074463
G74506
074522
074550
074577
074614
074656
074705
074734
074762
075033
075062
075111
075137
075166
075214
075243
075272
075345
074440
100032
100133
075553
075553
075553
075553
076047

000000
000900
00000C
000000
000000
0000C0

100011

076255
076265
076203
075636
076203

000000
074326
000000
000000
074635
074646
0746646
074635
074635
074646
07664€
074646
0746646
074646
074646
074646
076646
074646
074646
074646
074646
074646
000000
076327
076255
076327
076327
076327
076327
000000
076021
074646
076203
076203
076203
075553
076203
076203
077015
076203
077015

100216

100261

076230

106570

076511
07651

076255
076255

100123

075437
076360
076406
076434
076065
074304
074232
075437
075437
075466
100060

075515
100631

075636
076242

000000
075543
106570

074326
075410

075553
075553
075553
100075

101256

101437

6. 00

4-4PR-B1

S
D
*71:43:¢8 PAGE 50

LSBTTL

ERROR MESSAGE

EMT1:

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

EMT2:
EMT3:

EMTS:

EMTS:
EMT6:

EMT7:
EMTI10:
EMT11:
EMT12:
EMT13:

EMTI14:

EMT1S:;
EMT16:
EMT17:
EMT20:
EM121:
Emr2Z:
EMT23:
EMT24:
EMT2S:
EMT26:
EMT27:
EMT30:
EMT31:
EMT32:
EMT33:
EMT34:
EMT3S:
EMT36:
EMT37:
EMT4O0:
:
EMTSY
2:
EMT4

EMT43:
EMT44

EMT4S:
EMT4L6:
EMT4L7:
EMTS50:

EMTST:
EMTS?2:
EMTS3:
EMTS54:
EMTS5S:
EMTS56:
EMTS7:
EMT60:

EMT61:
EMT6E2:

EMT63:

EMTG4:
EMTAS:
EMT66:
EMT67:

SEQ 02¢°

TABLE

EMS1.0

EMS2.EMS3,
0
EMS2
. EMS& .0
EMSS.EMS6.0
EMS5 _EMST0.0
EMS167 ,EMS64, 0

FMS110.EMS170,0

EM57,0
EMs10.0
EMS11.EMS12,0
EMS13,EMS14 ,EMS15,EMS16,0

EMS17,EMSS4,0

EMS11,EMS21,0
EMS11 ,EMS22,EMS27
EMS11,EMS23,EMS30
EMS11,EMS24 ,EMS30
EMSI1,EMS25 ,EMS27
EMS11,EMS26 ,EMS27
EMS11,EMS31,EMS30
EMS11,EMS32,EMS30
EMS11,EMS33 EMS30
EMS11,EMS34 EMS30
EMS11,EMS35,EMS3C
EMS11,EMS36,EMS30
EMS11,EMS37 ,EMS30
EMS11,EMS40,EMS30

0
0
0
0
0
0
¢
0
0
0
0
0
0
EMS11,EMS4] EMS30 0
EMS11,EMS42,EMS30 0
EMS11,EMS43,EMS30 0
EMS11,EMS44 EMS30 0
EMS11,EMS45 ,EMS30, 0
’
»
]
’

.
.o

I
»

»
.
.

o
I
.

EMS66,EMS20,0
EMS?75,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
EM511,EMS46 ,EMS30,EMS67.,0
EMS47 ,EMS53 EMS67 ,EMST15 EMS140 EMS
EMS47 ,EMS53 EMS67 ,EMST115 ,EMS141 EMS
EMS50,EMSS53,EMS67,0

EMS1642,EMS143,EMS53,EMS67,0
EMS51,EMS72,EMS67,EMS

EMS167,EMS7S, EMS67.0

115, EMSS0,EMS70.0

EMSS56,EMS67,EMS115.EMS150,EMS152,EMS70,0
EMS71.EMS56.EMS67,EMST15,EMS150,EMS152.EMS72.0

EMS140.EMS67
. EMST115,EMS4 7, EMS70.0

EMS150,EMS152,EMS70,EMS115,EMS56,EMS73,
EMS67,0
EMSS52,EMS205,EMS214.
EMS206 . EMST14, EMS5T EMS 73, ¢

EMST65,EMST0%,EMS72.EMST24.0

EMS165,EMST03,EMS72,EMS171,0

JAMMBL RMOS/ 370 FUTNL
FRRTR MESSAGE TABLE

58 070166

0754°0

T LT

074440

100463

076255

100463

€9 070176

076242

(76436

6'
€2
63
&

070226
070262
070252
070272

075437
075636
076242
0756466

076255
075553
075636
075553

66 070314
67 070332

076321
076321

100032
100216

o9 070360
70 070372

100201
075515

7>
73
7,
/5
76

070620
070430
070650
070662
070470

78 070512

60 070206

£5 070302

68 070350
71 070610

77 C70476

070520

1006463
100463

EMT100:
EMT101:

100235
076302

076302
100463

100570
160123
076615
076741
0767641

076360
100°33
076655
073763
073720

0767641

077072

100060

100631

100570

076615

077113

070642
070654
070666
070700

077156
077213
077256
077310

077113

077353
077754

100075

076265

076406

077015

077553

077213

.WORD
.WORD

EMS147.EMS151,EMS74.EMS163,0
EMSS1,EMS74,EMS163,EMS115,EMSS0,EMS70.0

1006463
075553
077020
000000
000000

EMT106:
EMT107:
EMT110:
EMT111:
EMT112:

.WORD
.WORD
.WORD
.WORD
.WORD

EMS165.EMS?7,EMS163.0
EMS7i44.EMS145,EMSS3.EMST163,EMS115, EMST43,EMS70.0
EMS110.EMS112.EMS116,EMS111.0
EMS113.EMS4,0
EMS113.EMS3.0

000000

EMT114:

.WORD

EMS113.EMS120.0

100463

077020

077577

EMT102: .WORD

EMT105: .WORD

EMT113:

077553

077622

077622
077622

077622

(0776”22
077664

077664

.WORD

EMT126:

.WORD

EMT13S:

.WORD

EMS130,EMS132,EMS134,EMS123.0

EMT137:

_WORD

EMT133:
EMT134:

EMT136:
EMT140:

EMT141:
EMT142:

102 071032
103 071042
106 071052

077310
077353
077513

077553
077553
077553

077727
077727
077727

EMT144:
EMT145:
EMT146:

077727
100032
100075

EMT150:
EMT151:
EMT152:

100705

077553

077455
100011
100060

110 071146

100123

100133

074440

100201

100235

100327

109 071126

100123

111 621162

100216

jjz 071206
71220

100201
100433

'12 0711764

077553
077015
077015

077727

106
071072
107 021102
108 071114

100133

100261

100235
100363

100162

EMS121.EMS132.EMS133.0

EMS122,EMS132,EMS134,EMS123,0
EMS123,EMS132,EMS134,EMS123,0
EMS124 ,EMS132,EMS134,EMS123,0
EMS125,EMS132,EMS134,EMS123,0

077727
077727

105 071062

EMS110.EMS11S,EMS116,EMS117,EMS114.0

_WORD
.WORD
_WORD
.WORD

077553
077553

077727

EMS165.EMS100,EMS163.0

EMS122.EMS132_EMS133’ 0
EMS123.EMS132.EMS133 .0
EMS124.EMS132.EMS133 .0
EMS125.EMS132 EMS133 .0
EMS126.EMS132.EMS133 .0
EMS137.EMS132.EMS133
EM5130,5H5132.EHS13§
EMS131,EMS132,EMS133,0

077113
07775%

077553

EMS16?.EMS73,EMS163,0

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD

99 C71002
100 0721012

077256

.WORD

EMT115:

EMT127:
EMT130:
EMT131:
EMT132:

077553

EMS142,EMSI43,EMS5S.EMS163.0

EMT103:
EMT104:

100463

077622
077622
077622
077622

077553

EMS47.EMS72.EMST63.EMS115.EMS141.EMS72,0
EMSS6.EMSS3.Eii5163.0
EMS71.EMS56.EMS163.EMS11S,EMS150,EMS152,EMS72,0
EMSSO.EMSS53.EMS163.0
EMS?S.EMS141,EMST63.EMST15.EMS47
EMS70.0
EM375.EMS150.EMS163.EMS115.EMSS6
EMS75.0

077553
077553
077553
077553

077553

.WORD

EMS?1.EMSI1CT,.EMS163.0

.WORD
.WORD

EMT116:
EMT117:
EMT120:
EMT121:
EMT122:
EMT123:
EMT124:
EMT125:

077113

98 070772

EMT77.

077577
077577
077577
077577
077577
077577
077577
077577

077455

077513

075553

077553
077553
077553
077553
077553
077553
077553
077553

077553
077553
077553

9¢ 070750

101 071022

EMS4L7 ,EMS72 ,EMS163,EMS115,EMS140,EMS141,0

.WORD
.WORD
.WORD
.WORD

89
90
91
92

97 070762

.WORD

EMI73:
EMT74:
EMT?5:
EMT76:

EMT72:

50-1

EMS46,EMS20,EMS163,0

100663
100463
100463
100463

(075437

'1:43:¢8 PAGE

.WORD

.wCRD

077156
077213
077256
077310
077353
077754
077455
077513

95 070736

EMT70:

EMTZ1:

070530
070540
070550
070560
070570
070600
070610
070620

93 070712
9 570726

4&-APR-81

100463

80
8'
82
83
8
85
8¢
87

88 070630

MA{RD v04.0C

.WORD
_WORD

.WORD
.WORD

_WORD
_WORD

EMS121,EMS132,EMS134,EMS123,0

EMS126,EMS132,EMS134,EMS123,0
EMS137,EMS132,EMS134,EMS123,0

EMS131,EMS132,EMS134,EMS123,0
EMS121,EMS132,EMS135.0
EMS123,EMS132,EMS135,0

EMS121,EMS132,EMS136.0
EMS137,EMS132,EMS136,0

EMT143:

_WORD

EMS124,EMS132,EMS136.0

EMT147:

.WORD

EMS171,EMS132,EMS136,0

WORD
.WORD
.WORD

EMS7T25,EMS132.EMS136.,0
EMS126,EMS132,EMS136,0
EMS1371,EMS132,EMS136,0

.WORD
.WORD
_WORD

EMS130,EMS132,EMS136,0
EMS140,EMS115,EMS141,EMS70.0
EMS142,EMS115,EMS143,EMS72,0

EMT154:

.WORD

EMS144,EMS145,EMS20,EMS115 EMS143,EMS70,0

EMT156:

.WORD

EMS147,EMS151,EMS154,EMS155.0

EMT153:

.WORD

100327

EMT155: .WORD

100363
100476

EMTIS57:
EMT160:

.WORD
.WORD

EMS144,EMS145,EMS146,EMST115,EMS143,EMS72,0

EMS150.EMS152.EMS154,EMS155.0

EMS147.EHS}2;,532128.8M5157.0
EMS161,EMS

SEQ 0264

o MM

“s
.,t

1Yy
~-8

*19

*¢0
121

122
b

125

126

127

128

067123C
071242
071254
071264
071272
071300
071206
071314
U71326
071336
071%6
071356

071370
071376

129 071404

13C 071406
131 071420
132 071432
133 0714644
134 71456
135 071474
136 071504
071514
138 071526
' 39 071534
150 071550
41 071564
142 071574

63 071614

1644 071626

371636
071646
67 071656
148
071666
149 N7i676
'5¢ 071706
151 971710
152 071712
153 0717214
154 071716
155 071720
156 C71722
157 071724
158 071726
0721730
Teu 0717%2
4"6

161

07173%

Q74577

076614
075437
075437
075636
0756410
101757
101215
100631
100631
100705

100705

076741
101102

000000

074635
(76635

100463
074440

076440

076440
074440
100032
100327
100327

077553
077553
101060
101117

075515

101230

075466
100075

076302
076511
076265

100032

C75515
100060
075466
075543
075543
075636
075410
74656
075437
075543
075563
000000
0000C0
000000
000000
000000
000000
000000
000000
000000
000000
000000

100216
076255
075553
076511
101256
G77050
074646
074646
074646
074646
077050
077050

MAIRT v04.00

100363
100363
100011

000000
000000
000000
690000
0746646
100401
100343

077577
077622
000000
000000
074646
074646
074646
074646
101165

076255
101165

077015
000000
077015
077015
075553
100604

075636
076047
976047
076047
076047
076360
07602

162 071736
163 0717240

120 Q71774
v

07200

QO —d —h s

168 071752
169 071762

O WMN
[ N
crorow

164 071742

165 0717464
166 071746
167 071750

4<APR-81

EMT161:

FMT1e2:

EMT1563:

EMT164:
EMTI165:
EMT166:
EMT167:
EMT170:
EMTI77:
EMT172:

EMT173:
EMT174:
EMT17S:

EMT176:

EMT177:
EMT200:
EMT201:
EMT202:
EMTZ03:
EMT204:
EMT205:
EMT206:
EMT207:
EMT210:

EMT211:
EmM1212:
EMT213:
EMT2164:
EMT215:
EMT216:
EMT217:
EMT220:
EMT221:
EMT222:
EM1223:

EMT224:
EMT225:
EMT226:
EMT227:
Em1230:
EMT231:

[y B R R
QOOC

“Lix

RMCS/ 372 BTN
MESLAGE TABLE

£MT232:!
EMT233:
EM1234:
EMT235:
EmM1236:
EMTZ237:
EMT240:
EMT241:
EMT242:
EMT2L3:
EMT244
EMT245:
EMT246:

EMT247:

EMT250:
EMT251:

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

17:43:¢8 PAGE

50-2

EMS25.EMS27 ,EMS156,EMS160, 0
EMS26.EMS27 EMS 156 EMS160 0

EMSG7.EMS16%,EMS140,0
EMS47.EMS20,0

EMSS6.EMS20.0
EMS46
. EMS20.0
EMS224 ,EMS20,0
EMS203.EMS141,EMS30,EMS202.0

EMS167.EMS154.EM> §7.0

EM3167 .EMS154 EMS155.0
EMS171.EMS132.EMS13370

EMS171.EMS132.EMS134.EMS123,0

EMS113.EMS177.0
EMS200.EMS5201.0

EMS203,EMS51,EMS30,EMS202.
0
EMS203.EMS204
,EMS30, EMS202 ,0
EMS203.EMSS50, EMS30, EMS202,0

EMS203.EMS14
S, EMS30,EMS202.,0

EMS150,EMS74
. EMS202, EMST15 . EMS152,EMS72,0
EMSSO,EMS103.EMS72,0
EMS104, EMS73.EMS202.0
EMS75,EMST141.EMST15 EMS140,0
EMS75.EMS150.0
EMSST _EMS72,EMS115,EMS50,EMS70,0

EMS142,EMSSS,EMS115,EMS
143, EMS72.0

EMSSO,EMS103.EMSS3,0
EMS52.EMS205.EMS166, EMS206,EMST15,EMSST EMS72.6
EMSS2 EMST17.EMS56,EMS163,0
EMSS56.EMS30,EMS64
0
EMS46
. EMS30.EMS64 .0
EMS31.EMS30.EMS64
.0
EMSL7 EMS30.EMS64 .0

EMSS2.EMS117,EMS77.0
EMSS2 EMS117 EMS63 0

EMS167,EMS132,

EMS167 ,EMS132,

EMS1€7,EMS211,
EMS212,EMS213,

5,2

ko MELAGE

"7 072016
072024
072042

1"3

¢
'\k
TABLE

130570

100201
101215
101215
101215

074232
075543
075543
076520
075466
075636
076242
100060

075466
075437
075437
076321
075515
076021
077020
075437
075437
075636
076242
100570
100570
100570

075410
075466
075466
100060
076520
076547
100123

e
B
B
e R
e

Fols . R NTo QU ¥ JUT] V]

cwe

)

AVLN L VI N1,V 101,91,V

075214
074656
076242
075243
075345
075272
076576
075062
100760
100740

074304
100201

076133
074734
075137

075515
076321

676321
075741
077020
074762
0754607

075543

MATKD

v04.00

«-aPR-8°

*1:63:¢8 PAGE

50-3

SEQ veot
101371

000000

075410
077059

074646
074646
074646
J766466
075636

100235
076434
100631
076406
101256

076265
075553
075553
075636
100075

100162

075553
075553
100032

076302
075553
075553
075553
075553
075553
075636
076406
076434
076360
074646
075553

100162
100075
076511

076511
100133
076511
076511
074656
076511
076511
076511
074440
076511
075062
075062
100775
100235

075553
076511

100363

101561
101165

076462
076462
076462
075553
077015
076462
076462
076462
076462
075713
075166
075213
075713
075713
075553
076511
076511
076511
076047
075713
077015
075553
075553
075553
076511
075553
075553
076511
075713
075713
075713
000000
075713
076511
076511
074326
076302
101003

100032

075553
075553
075713
075713

075754
077050
075553
074762
0-7050

076003
074762
075565
000000
07563¢

076511
076302

100216

100261

EM1252:

.WORD

EMS1€5,EMS212,0

EMT254:
EMT255:
EMT256:
EMT257:
EMT260:

(WORD
_WORD
.WORD
_WORD
.WORD

EMS203 EMS167 EMS30 0
EMS203.EMS100.EMS30
.0
EMST1.EMSL6, EMS30.EMS102,0

EMT253:

EMT261:
EMT262:

.WORD

.WORD
.WORD

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:
EMT314:
EMT31S:
EMT316:
EMT317:
EMT320:
EMI321:
EMT322:
EMT323:
EMT324:
EMT325:
EMT326:
EMT327:

.WORD
.WwORD
.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
.WwORD
.WORD
.WORD
.WORD
.WORD

FMI331:
EMT332:
EMT333:
EMT334:

.WORD
_WORD
_WORD
.WORD

EMT330:

EMT335:

EMT336¢:
EMT337:
EMT340:
EMT347:
FMT342:

.WORD

_WwORD

.WORD
_WORD
,WORD
_WORD
_WORD

EMS147,EMS151,EMS156 EMS210,EM526,EMS27,0

EMS203.EMS101 JEMS30.0

EMSS2 EMS117,EMSS6,EMS102,0

EMS52.EMS205 . EMS220, EMS206 . EMS115.EMSST,EMS72,0
EMS104 ,EMS73.EMS202 .0
EM550,EMSS53EMS102.
0
EMS56 . EMS53.EMST102.EMS115,EMS150,EMS152.EMS70,0
EMS71.EMS56 EMS102 EMS115.EMS150
EMS152 EMS72°0

EMS142 ,EMS143,EMSS
S, EMS102,0

EMSSO, EMS146,EMST15,EMSS2,EMS117,EMS46,0
EMS47 . EMSS3,EMS102,EMST15.EMS140.0
EMS47 . EMSS53 EMS102 . EMS115.EMS141
.EMS72,0
EMS75.EMS14T EMS102,EMS115, EMS47.EMS73.0
EMSS51,EMS74,EMS102,EMS115,EMSS50,EMS70,0
EMS63.EMSS3 EMSS7,EMST75,EMSLT, EMST146.0

EMS116,EMS5S, EMS4T,EMS57.0

EMS47 . EMSS3,EMS57,
EMST15 EMS140.0
EMS47.EMS53.EMSS7.EMS115.EMS141.EMS72,0
EMSS6.EMSS3 EMSS57.EMS115.EMS150.EMS153.EMS70.0
EMS71 . EMSS56 . EMS53.EMSS7,EMST15,EMST150,EMST52
EMS 72,0

EMS165,EMS100, EMS103.EMS57.0

EMS165.EMS101.EMS103.EMS57.0
EMS165.EMS?7,EMS103,EMS57,0

EMS46,EMS30, EMS64,EMSS7.0
EMSSO.EMSS3.EMSS57.0
EMS50,EMS146,EMST115,EMS52,EMS117,EMS46,EMSS7,D

EMS142 EMS143, EMSS3.EMSS7.0

EMS104,EMS103.EMS53.EMS57.0
EMS105,EMS103,EMS53,EMS57.0
EMS144 ,EMST14S ,EMS103,EMSS7
. EMST15,EMS143,EMS70.0
EMS42,EMS103,EMSS3,EMSS7.,0
EMS31,EMS103,EMS53.EMS57.0
EMS71.EMS31.EMS103 EMS57.0

EMS43.EMST03.EMS57.0
EMS45 . EMS103.EMS57.0
EMS4L . EMST03.EMSS7.0

EMS106,EMS20.,0

EMS36 . EMST03.EMSS7,0

EMS17%.EMS36.EMST103.EMS57.0

EMS172,EMS36.EMS103.EMS57.0
EMS13,EMS174.EMS1S,EMS35 EMSS3, EMS175,0

EMS14 7, EMS151,EMS74 ,EMS175,0
EMS66
., EMSS3 EMS175,0
EMS33.EMS10S,
EMSS3 EMS175,0

EMS4L0.EMS103.EMSS3 EMSS7,0
EMSS51.EMS74,EMSS7,EMST15EMSS0,EMS70,0

EMS7S.EMS141,EMSS7 EMST115
. EMS47 EMS78.0
EMS75 EMS150.EMS152, EMSS7.EMS115, EMSS6,EMS73,0
EMS60
. EMS6T ,EMS62,0

EMS116,6mMS117,EMS$4,0

EMS34 , EMS53,EMSSL EMS111,0
EMS55.EMS34.6

EMSSO EMST17, EMSS6,EMSS?,C

sem

;‘

MESALE

73200
Q7%22
Q73224

o
.3
032 0732%
S3 073250

L 86 073262
235 073300
2% 0733:C

RERESIE LA TA
g 73804

M )

LIN

‘

~=af ‘4"5 )

TABt
575543

075543
075543
076576
075543
076321
100631
101455
10152¢

101601

tMY363:

072059

(27050
677050

EMT 444

EMT 345
EMT 346
EMT347:
EMT35C:
EMT3S1:

074440
101256
100216

076265

101212

576440

101476

000000

EMT3S2:

EM7353:
EMT35¢4:

.WORD
.WORD
.WORD
. WORD
«WORD
.WORD
.WORD
.WORD
.WORD
.WORD

T3
¢8 FAGE

S50=4

EMSS2,EMST17,EMS4LS ,EMSSZ,0
EMSS2,EMS117 ,EMS44 EMSS7,0

EMSS2 EMS117 EMS221 .0

EMS106,EMS20.EMST15
. EMS223,EMS72,0
EMSS2.EMS205. EMS222.EMS206. 0

EMS7S . EMS150.EMST102.EMST15.EMSS6,EMS?3,(

EMS167,EMS73 EMS102.0

EMS215.0
EMS217.EMS203,EMS216,0
EM>221,EMS20,0

[ 4

AL
. TR

UV
SO

vhic & MESSAGE

’ogfi

102C31

"07627

100706

102050

0Q000C

> C73%4

102076

000000

9 073402

S N73380

406,00

4=aPk-p'

*':4%..8

]

PAGE

TAME

106627

¢ (7335

102057

Y g0us
103031

BRI
FMle:

LWORD

.wORD

EMT110: .WORD

00000C

EXT111:

EMT,STSHY
, STSHZ,STSHG, D
STSH1,STSH2,STSHG,0

EW110,0

.WORD

EH111,0

.WORD

EH114,0

.WORD

EW256,STSH1,STSHZ,STSH,0

733720

102153

102627

102704

V0?16
"2 07326
'3 37340

102007
102206
102623

V02627
102627
102627

102704
100704
102706

72652

102%1

0C300C

“

102125

102704

EHT114:
EWT223:

.WORD

EMT336:
EMT337:
EMT344:

.WORD
(WORD
.WORD

EH336,STSH1,STSH2,STSHG,O
EM337,STSH1,STSH2.STSHG,0
EM344,STSH1,STSHZ,STSH4.0

EMT353:

.WORD

EH3S53,0

EWT256:

EM223,STSH1,STSH2,STSHG,0

CHMMBC RMOS/ 372 BTN

MAIRD 04.00

4=-4FR-81

11:43:78 PAGE

10307¢
10310

073500
073502

103110
103120

073512
073522
073532

103130
103742
103142

JI73544

104154

103202

103234

103164

103202

103164

103202
103202

103164

103202

EoN
EDT2

.WORD
-WORD

EDT110:
EDT111:

.WORD
.WORD

EDT114:
EDT223:

.WORD
.WORD

EDT336:
EDT337:
EDT344:

.WORD
.WORD
.WORD

EDT353:

,wWORD

073474
N7376

103164

TSD1,STSD2,STSD4

wunwyy

103070
1031¢4

4 OO0 N

S SNV
B I

TABLE

' 073456
073466

PRROR MESSAGE

1SD1,S7SD2,STSDé4
1SD1,S7SD2,STSD4
TSD1,S7SD2,STSD4,0

103254
103254

073632

103251

103265

103265
103265
103265

103265

-—-0

EF111,STSF, STSF,STSF

:
:

WORD
WORD

EF110

:
:

.WORD
.WORD

EF114
,STSF
STSF
,STSF
EF114,

.WORD

EF336,STSF,STSF,STSF

e
—

K
5
11:43:¢8 PAGE 53

. WORD
.WORD

)

) =2
— —

4-APR-81

e
e
e B

*0325¢6

07360c
073612
073622

103265

073570
073572

073564
073566

103265
103265

"n"

073546
073556

TABLE

MACRO v04.00

et
s
D
-—

S W 2O DN
N NN

MESSAGE

FRRTOA

’

mmm

3 2 F
JRMMB, KMOS/

:
:

EFT353:

.WORD
.WORD

.WORD

STSF,STSF ,STSF

EF1

EF336,STSF,STSF,STSF

EF336,STSF,STSF,STSF
EF114

QM5 3

PRl MESHAGE

MA'RD

v04.00

4-APR-8B

71:43:¢8 PAGE

STRINGS

SEQ 027

;

LSBTTL

ERROR MESSAGE

STRINGS

2 H7363%

127

122

117

EMST:

LASCIZ

a@WRONG UNIT SELECTED (RM(SZ, BITS 0-2) o

5 073720

125

116

101

EMS3:

.ASCIZ

QUNAVAILABLE 'DVA'' (RMCS1, BIT 11) a

115

EMSS:

LASCIZ

EMS10:

.ASCIZ

4 073703

104

105

126

¢ 073763

116

117

116

8 074056
9 074123

103
104

117
122

116
111

7 974026

10 074170
(74232

12 074243

103

107

117

040

106

125

116

102

125

13 076304
14 074315

115
103

'€ 074350

042

20
21
22
23
24
25
26
27

102
062
042
104
103
101
123
042
042
042
127
042
042
042
042
042
042
042
110
106

15 074326

17 074400
18 074440
G (074463

28
29
30
31
32
33
34
35
36
37
38
39

40
41
42
43
44
45
46

C74506
074522
074550
074577
074614
074635
074646
074656
074705
074734
074762
075033
075062
075111
075137
075166
075214
075243
075272
075345

075410
075437
C75466
075515
075543
075553
075565

47 075607
4«8 075636

49 075713
50 075741

51
52
53
54
55
56
7

075754
076003
076021
076047
076065
076133
$76203

117

124
123
127

042
062
042
042
124
104
101
m
m

104
104

104
104
042
11
103
104
104

116

126

EMS?2:

EMSG:
EMS6:
EMS?7:

EMS11:

103

EMS16:

123
102
117
123
1164
104
101
114

EMS22:
EMS28:
EMS24:
EMS25:
EMS26:
FMS27:
EMS30:
EMS31:

101
117
122

125
127
122
115

120
103
117
04
103
103
114
130
124
103
101
122

125
114
101
1M
13
104
124
127

104
105
104
115
104
110
105
117
M
117
123
120
110
105
124
116
116
125

101
117
101
120
123
117
101
125

101
120
173
111
105
124
040
103
126

122
126

105
124
101
040
115
124
122

EMS17:
EMS20:
EMSZ1:

EMS32:
EMS33:
EMS34:
EMS35:
EMS36:
EMS37:
EMS40:
EMS41:
EMS42:
EMS43:
EMS44:
EMS45:
EMS46:
EMS47:

EMS50:
EMS51:
EMSS52:
EMS53:
EMS54:
EMS55:
EMSS56:
EMS57:

EMS60:
EMS61:
EMS62:
EMS63:

EMS64:
EMS65:
EMS66:
EMS67:

aQCOMMAND NOT

COMPLETED,

_ASCIZ

QINVALID a

_ASCIZ

115

QNONEXISTENT °NED'' (RMCS2, BIT 12) a
QCONTROLLER NOT READY (RM(S1, BIT 7) @&
aDRIVE NOT READY 'DRY'' (RMDS, BIT 7) @

EMS15:

EMS13:
EMS14:

aDEVICE WENT @

LASCIZ
LASCIZ

L_ASCIZ

123
116

122
110
117

LASCIZ

EMS12:

101
117

123

LASCIZ

_ASCIZ
_ASCIZ

LASCIZ

_ASCIZ
.ASCIZ
_ASCIZ

.ASCIZ
_ASCIZ
,ASCI?
(ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
L_ASCIZ
_ASCIZ
L.ASCJZ
_ASCIZ
_ASCIZ
.ASCIZ
L.ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
L.ASCIZ
,ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
L.ASCIZ
L.ASCIZ
L.ASCIZ
_ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCJZ
.ASCIZ
(ASC1Z

QGD NOT RESET "‘GO'' (RMCS1, BIT 0) @
QFUNCTION CODE
a@MASSBUS a
QCONTROL @

(RMCS1, BITS 1-5) a

aBUS PARITY ERROR a

o'MCPE'* (RMCS1, BIT 13 a
QTRANSFER ERROR (RM(S],
QSHOULD NOT BE SET @
aWORD COUNT (RMW() a

BIT

14)

aBUS (RMBA) a
a'LBT'' (RMDS, BIT 10) @
@''AOt'' (RMER1, BIT 09) a
aDISK (RMDA) a
QCYLINDER (RMD(C) a
QADDRESS @
aSTATUS a
@ WLE'' (RMER1, BIT 11) a

Q@ VUPE'' (RMCSZ2, BIT 13) a
o'WCF'' (RMER1, BIT 5) @
oWRITE CHECK ERROR-'WCE'' (RMCSZ2, BIT 14) @
a@'MDPE'' (RM(CSZ2, BIT &) o

@'DCK'' (RMER1, BIT 7'5) a
@ ECH'' (RMER1, BIT 6) a
a@'DLT' (RMCSZ2, BJ. 15) @
a@'MxF'' (RMCS2, BiT 9) a
a@'DTE"" (RMER1, 31T 12) a3
a'HCRC'' (RMER1
BIT 8) a
QHEADER COMPARL ERROR 'HCE'' (RMER1, BIT 7) a
oFORMAT ERROR ' "ER'' (RMER?, BIT 4) a
Q''IAE'’ (RMERT, Bs~ '""
@'OPI'' (RMER], BIT 13) @
a@''SKI'' (RMERZ2, BIT 14) 3
@'PIP'' (RMDS, BIT 13) a
QTHE RM a
QDETECTED @
QAT AN UNEXPECTED a
QINCORRECT DATA DURING 3
QINVALID COMMAND ERROR ''IV('' (RMERZ2, BIT
QDURING DATA TRANSFER a

QDATA READ a
QDOES NOT COMPARE WITH a
aDATA WRITTEN a
o'PAR'' (RMER1, BIT 3) a
IS INCORRECT a
@COMPOSITE ERROR 'ERR'' (RMDS, BIT 14) a
DATA PARITY ERROR 'DPE'' (RMERZ, BIT 3)
3
QDURING SEEK COMMAND a
.

12)

JHMMBU RMGS/3/7¢ FOTNL

FRE
R MESSAGE

58 076230
59 076242
50 076255

61
€2
63
64
65
66

076265
076302
076321
076327
076360
076406

67 076434

68 076462
09 076511
70 076520
71
72
73
76
75
76
77

076547
076576
076615
076644
076655
076717
G76741

STRINGS

11
105
M

TST

0
127
12¢
123

040
122
067

111

114

106
104
114
104
042
042

m
1
11/
125
122
m

104
105
042

125
122
114

042

M4TRO v04.00

E£MS113:

105

EMS116:

.ASCIZ

116
000

&1
82
83
84
85
86

077050
077072
077113
077156
077213
077256

106
116
103
102
103
105

101
117
117
125
117
122

111
126
116
123
116
122

91
92
93
94
95

077513
077553
077577

101
117
116

111
124
111

87
88
89
90

077310
077353
077416
077455

077664

115
*16
125
103
122

100011
100032
100060

115
042
104

077622

96 077727
97 077754

98
99
100
101
102
103
104
105
106
107

101
115
105
105

100075
100123
100133
100162
100201
100216
100235
108 100261
109 100305
110 100327
111 100343
112 100363
113 100401
'14 100416

104
104

042
125
042
123
117
040
042
042
120
116
117
116
122
122

110

124
101
103
103

117

126
111
103
103

EMS114:
EMS115:

EMS117:
EMS120:
EMS121:
EMS122:
EMS123:
EMS124:

EMS125:
EMS126:
EMS127:
EMS130:

_ASCIZ
.ASCIZ

_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ

_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

106
117
111
126
123
116
117
106
117
115

EMS140:
EMS141:
EMS142:
EMS143:
EMS144:
EMS145:
EMS146:
EMS147:
EMS150:
EMS151:

.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ

126
106
124
103
120

EMS154:
EMS155:
EMS156:
EMS157:
EMS160:

105
115
122
104
116
125
110
106
126
117
117
106
117
124
m

111
111

126
103

EMS131:
EMS132:
EMS133:

.ASCIZ
.ASCIZ
.ASCIZ

EMS135:

116

057

126
101

EMS105:
EMS106:
EMS110:
EMS111:
EMS112:

(ASCIZ
,ASCIZ
L_ASCIZ
L.ASCIZ
LASCIZ
.ASCIZ

_ASCIZ
_ASCIZ
_ASTIZ
_ASCIZ
_ASCIZ

110

122
122

a@''iLF'' (RMER1, BIT O0)

105

117
012

1264

,ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCI]
.ASCIZ
_ASCIZ

116
015

80 077020

EMS101:

EMS102:
EMS103:
EMS104:

78 076771
79 077015

110

@IS RESET a
QERRONEOUS W
a&]S SET @

122
122
102

123
101
123
104
105
040

SEQ0 027

L.ASCIZ
_ASCIZ
LASCIZ

EMS73:
EMS74:
EMS7S:
EMS76:
EMS77:
EMS100:

R
105
125
104
110
124

m S
11:643:¢B PAGE S54-1

EMS?0:
EMS71:
EMS72:

106
104
123
122
115
114

042
110
102
101
127
103

124

4-APR-81

EMS134:

EMS136:
EMS137:

EMS152:
EMS153:

.ASCIZ
_ASCIZ

_ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

aDID NOT SET a
aDID NOT RESET a
aLOST a
QDURING PACK ACK COMMAND a
Q@'RMR'' (RMER", BIT 2) @
@''ILR'' (RMER1, BIT 1) a
@

@DURING SEARCH COMMAND a
GERROR 3
@''LBC'' (RMERZ, 8IT 10) a

@ LSC'' (RMERZ2, BIT 11) a
Q@HEADER ERRORS 3
Q@BUS TIMEQUT (04 TRAP) a
QADDRESS a
QWHEN READING/WRITING RH REGISTERS 3
AT THE FOLLOWING a

QTHE

SELECTED DEVICE

QNONEXISTENT DEVICE
<CR><LF>

IS @

QTHE MASSBUS CONTROLLER @

QFAJLED TO DETECT a
aNOT AN RM05/3/2 a
@CONTROL STATUS REGISTER 1, RMCS1, a
@BUS ADDRESS REGISTER, RMBA, 3
QCONTROL STATUS REGISTER 2, RM(S2, a
QERROR REGISTER 1, RMERI1, a

@QATTENTION SUMMARY REGISTER, RMAS, a
QMAINTENANCE REGISIER #1, RMMR #1, o
QECC POSITION REGISTER, RMECT, B
Q@ECC PATTERN REGISTER, RMEC2, 3
QMAINTENANCE REGISTER 2, RMMR2, o
aNOT INITIALIZED BY a
@UNIBUS INITIALIZE 3
ACONTROLLER CLEAR, 1.E.
BIT 5 OF a
@RH/RM ERROR CLEAR (RMCS1, BIT 14) a

a@DRIVE CLEAR COMMAND a
Q@DRIVE STATUS REGISTER, RMDS @

QMEDIUM OFF LINE a
a'TMMOL'' (RMDS, BIT 12)
aDRIVE FAULT a

a@'Dv('’ (RMERZ, BIT 7) a
@UNSAFE a
@ UNS'' (RMER1, BIT 14) a
aSHOULD BE SET @
QOFFSET MODE a
@ VOLUME VALID a
a@''OM'' (RMDS, BIT 0) a
@'VV'' (RMDS, BIT 6) a
a@PACK ACK COMMAND a
aNOT SET BY a
@0FFSET COMMAND 3
aNOT RESET BY a
a@RTC (OMMAND Q@
QRIP COMMAND a

o
U
N
G
U
QR

—b

PN
S
G
N
U
A
S

Y
Y
T QU
U
U
U
T VU
N
P U (S
U

—

aw
“e

=S QOQOOO=NI=—=ON
N2 NONONIO = BNNINO—=2NHIONOCO — H
A=
NNV NVIWNNW =2 NS NNVWN = OO ON
WO RO
S N
o

101476

101526
101561
148 101601
149 101651
150 101702
51 101757

[OOSR

101455

o
x

101353
101371
101414
101437

101256
101270
101315
101342

10 02
17
10
10
65
10
15
101230

101003
101031
10 060

100760
100775

g
TN PP Y o R Yo P G
gy o, Y —
OH=20QO0O—HOOSN—=ONS nJ
(LS E R P MY VE AV R P X V1o SV RNV}n

100740

P QU

100656
100705

100631

== OOMN—=ON)
QRO =NWHSHO

100604

103
125

[

100556
100570

122

104

T QO

100463
100507

W
NN
NN 2OV

117

b ad bk
—d

—-O O ~

—

WWWWAININININLNININIPORA) — — —

b
b

b e

FaE 2EAE 3
NP
— OOVBNONE

—

—h

145

100433

100463

N =

118
116

STRINGS

MACRO v04.00

[

ERROR MESSAGE

IST 1

= OHOO—=NVNOONONO=IAWN SN =O = =NOO =N —=OO WM
NWVNO =N NWVNWN RN =N N—= O NN =
0N NN =2 N NNO
=N =AW

JRMMB0 RMOS/3/72 FCTINL

&4-APR-81

EMS 61:
EMS162:

EMS163:
EMS164:

EMS165:
EMS166:
EMS167:
EMS170:
EMS171:
EMS172:
EMS173:
EMS174:
EMS175:
EMS176:
EMS177:
EMS200:
£MS201:
EMS202:
EMS203:
EMS204:
EMS205:
EMS206:
EMS207:
EMS210:
EMS211:
EMS212:
EMS213:
EMS214:
EMS215:
EMS216:
EMS217:
EMS220:
EMS221:
EMS222:
EMS223:
:
EMS224

N
5
11:43:¢B PAGE 54-2

.ASCIZ

SOFFSET BEGISTER (RMOF) a

LASCIZ
LASCI]
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LAS(12
LASCIZ
LASCIZ
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
LASCIZ
ASCI2Z
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
LASCIZ
LASCIZ
.ASC1Z
LASCIZ
ASCIZ
LASCIZ

dDURING RECAL IBRATE a
8]S INTERMITTENT OR DRIVE DIDNT DROP ON &
aCYLINDER a
FUNEXPECTED @
SRECAL IBRATE COMMAND 3

; <UNUSED>

@' ‘ATA"' (RMDS, BIT1S) @&

SWHEN READING REGISTER @
RERROR REGISTER #2., RMER2,
ANONRECOVERABLE @
SRECOVERABLE a
aDATA a3
aDURING WRITE COMMAND a

2 OPE'’' (RMER2, BIT
dIN WRITE PROTECT
ACAN NOT SET a

13) a

ADIAGNOSTIC MODE 'DMD'* (RMMR1, BIT 0)
ADURING DIAGNOSTI( MODE
AINCORRECT a

' WRL'' (RMDS, BIT 11)
AEXECUTED @

SWITH “OMP ERROR SET @

8 'G0’* (RMCS1, BIT )

BWRITING @
SWAS RESET BY a
aPROGRAM INTERRUPT @
IWAS NOT GENERATED 3
ISEEK COMMAND 3
@PROGRAM TIMEOUT a
aDURING LOOK AHEAD TEST @
aLOOK AHEAD REGISTER,RMLA,
@SEARCH COMMAND a

@RAD SECTOR ERROR ‘BSE'' (RMER2, BIT 15)
@A DATA

TRANSFER COMMAND a

AHEADER COMPARE INHIBIT “HCI'' (RMOF, BIT 10V
INONEXISTENT MEMORY ‘NEM' (RMCS?2, BIT 11) a

]

JHMMB, MOS8 TN
PRIk
R ME LAGE STRINGS

TTT

MAIRO v04.00

* 10203
2 102050
2 1C2C57

105
102
&G

139
125
122

12C
123
178

EW1:
EW110:
EHI11.

LASCIZ
_ASCIZ
_ASCIZ

5 102076

*22

105

103

EHM114:

_ASCJZ

g 102201

123

124

101

6 102125
7 102153

108
105

130
130

120
120

*0 102227

104

101

2 102325
;Z 102364

137
105

137
13(

137
120

15 102423

122

17 102¢21
18 102561

105
105

102266

16 102463

122

115

105

130
130

137

;8 102600

040

122

040

22
23
26
25
26

102627

102674
102704
102751
102773
10303°

040
040
040
040
040

103

13?7

1a¥]

4&-APR-B!

122

040
122
040
122
122

EH223:
EH2S56:
FH336:

EH337:

8
6
"7:43:¢8 PAGE 55

SEXPCTD RECEVD®
a&BUSADRa
@ RMCS2
RMCS1@
SIRECEVD

RECEVD
RECEVD
STATUS

DATAS
RGSTR®<CRLF>
INDEX®

.ASCIZ

aGOADRS

GDDATA

BDADRS

LASCI]
LASCIZ

@
—
aERPUTDTM"RETEVD

e
@<CRLF>
BYT""~"ABRESSa
HEADER

LASCIZ
L_ASCI]

@&STATUS
QRMCS2

.ASCI]

@RMER1

120
120

EH353:

ASCIZ
_ASCI]

QEXPTYD
QEXPCTD

115

STSHY:

115

040
115
040
115
115

STSH2:
STSH3:
STSH&4:
LEVEN

DULPRTa

QEXPCTD
QEXPCTID

FH344:

137

SNGPRT

.ASCIZ
.ASCI]

ASCII

LASC!IZ

L.ASCII

LASCIZ
.ASCII
ASCIZ
_ASCIZ
_ASCIZ

@ RMLA

@ RM(S1

STATUS

FAILING

RMLA

RMOF

RM(S2

RMDS

@
RMASa
@ RMWC
RMBA
RMDA
@
RMECT
RME(23
@ /MDA
RMDC
RMOF
@ RMMR1
RMMR?
RMDT

DATA@<CRLF>

FAJLING@®<CRLF>

WORD

"RETEUD NUMBER
RECEVDa<CRLF>

BDDATAa

BITa<CRLF>

POSITONS
&

RMER1

RMER2a

RMOF

RMD(a

RM_ A3
RMSNa

b
b

2O 000 NV
B Ny o
WA

D et
)
——d

OMESSAGE

s Lk
R

(MCS/3rg FITNL

103070

STRINGS

001140

001142

MAIRO v04.00

.WORD

$GDDAT,$BDDAT,0

000000

.wORD
.WORD

001176

001200

ED114:

_WORD

RMDT],$TMP1,$TMP2,0

CO0'136

00'140

O0C1136

EC336:

.WORD

$GDADR,$SGLDDAT,$BDADR,$8DDAT,0

103142
103154

001140
CO01140

0071142
001142

001174
001442

ED337:
ED353:

.WORD
.WORD

SGDDAT,$BDDAT,$TMPO,$TMP1,0
$GDDAT,$BDDAT,RMOFO,0

103164
103202

001334
001336

001344
001340

001346
001342

STSD1:
STSDZ2:

_WORD
.WORD

RMCS1],RMCSZ2],RMDS],RMER1],RMER2]
,RMAS], 0D
RMW(C],RMBA],RMDA],RMOF
] ,RMD(], RME(C1]

001366

STSD3:

001276
001176

(000G0
001176

103110

001362

103130

103120

103216
103222
103234

001140

001402
001342

001360

001142

00000C
001370
001374

001176

001362

ED!Y:

C
6
11:43:¢8 PAGE S¢

EDV10:
ED111:

'03076
103162

000000

4-APR-81

ED223:

STSD4:

.WORD

.WORD
.wORD
.WORD

SEQ

$BASE,O
$TMPO,$TMP1,0

$GDDAT,$BDDAT,$TMPO,0

RMEC?2I,0
RMDAI ,RMDCI,RMOF],RMLAI,Q

RMMR1],RMMRZ2]
,RMDT[ ,RMSNI,0

MM,

027%

103265

4=-APR-B1

D
11:43:.8 PAGE

6
57

80 O0s70

000
000

000

STSF:

BYTE

.BYTE
.BYTE
.3YTE
BrTE
BYTE

1:
6

103546
1032¢7
103251
103¢54
103260

v04.00
YT
M %N

e L2 XV ¥ XV [ W)

STRINGS

MAZRDO

NN
= = =

FRRCR MF SSAGE

TST

mrmmrmm

JHMMB( WMOS/ 32 0T

STRINGS

MA(RS v04.00

103274
103274
1C4300
103274

105055

124

105235

124

105121
105153
105205

105264
105316

105340

105364
105407

124
1264
124

124
124

126

124
124

g B
gt
g

Doy Bt P
B

Do
G
g P

B
By B

Bt B

g Bo B

Bt By

g
g

g B

Breg B

Py B

g Bt B

By Bng P

g By B
g
By Bred

Bt Dy Bmint Bag Dot B
B
g Bony B
bre
g B
Bt
B
g Py Beag By e

LAS(
.ASC
LASC

LAS(

YOYOY

064
065
066

063

By S

126

Bt Sy Bung Buy B

124

Bt Dot B

105024

104773

067

ey Bt by S

124
124
124
124
124
124
124
124
124
124

060
061
062
063
064
065
066
067
060
061
062
063
064
065
066
067
060
061
062

.ASC
.ASC
.ASC
.AS(
.ASC
LASC
.ASC
LASC
.ASC
.ASC
.ASC
LASC
.ASC
-ASC
LASC
.AS(
LASC
.ASC
.ASC
.ASC
<ASC
LASC

g By

104415
104447
104500
104537
104571
104617
104634
104662
104714
104744

064
065
066

124

0¢3

By Dot by by Gy Gy B

104362

124

124
124
124
124
126
124
1264
1264

064
065
066
067
060
061
062

g G

104063

104100
104120
104140
104163
104206
104241
104274
104332

124
124
126
124

103722
103753
104004
104036

124
124
124

103610
'03642
103667

124

OO QOO0
—
O = =d ccd o e e e NN
WA
= QO
b b ad bk =2 \ VN

103520

103560

124

124
124

[o e Yo

103416

103447
103473

126
106

055

.ASC
LASC
.ASC
.ASC
LASC
<ASC(
LASC
LASC
.ASC
AS(
ASC
LASC
LASC
ASC
LASC
JASC
.ASC
.AS(C
.ASC
LASC
LASC

103332
103364

HELP:

Sy Bevg B

200
200
‘14

E
"':43:/8 PAGE

BLKW
BLKW

6
58

€0 0277

258.
258.

.SBUFFER

Bt Vg S

‘03274
103274
103275
103276
103314

4-APR-BY

BUFFER:
BUF ONE :
BUF TWO:

wonn

LoV RIRARNR LS TR NERY

B 8 W AN N AN AN N W WNAWN NN RO RN PO RO N PONI P ~+ 3
—
— s
W= OOV NO NS W
—=O OV

NN
W

FRE_R MESSAGE

JRMMBL RMGS/ 30,

<CRLF>
<CRLF>
aLIST OF

TISTSa<(RLF>
CONTROLLER ACCESS TESTa<(CRLF>
UNIBUS INITIALIZE TESTa<CRLF>
CONTROLLER CLEAR TESTQ<(CRLF>
ERROR CLEAR TEST@<(RLF>
DRIVE STATUS TESTa<CRLF>
PRIMARY/SECONDARY ERROR

TESTQR<CRLF>

DIAGNOSTIC MODE TEST@<CRLF>

PACK ACKNOWLEDGE TEST@<CRLF>
RECAL IBRATE TESTa<CRLF>

ABORT RECALIBRATE TEST@<CRLF>
Iv( RECALIBRATE TESTa<CRLF>
JAE RECALIBRATE TESTa<CRLF>
RECALIBRATE AT OFF SET@<(RLF>
DRIVE CLEAR TEST@<CRLF>
NOP TEST@<(RLF>
OFFSET TESTa<CRLF>

650/ATA TESTR<CRLF>

WRITE

ATA

TESTa@<CRLF>

ERROR/ATA TESTa<CRLF>

PROGRAM

INTERRUPT

TESTa<(CRLF>

INHIBIT INTERRUPT TESTQR<CRLF>
RETURN TO CENTERLINE TESTa<CRLF>
READ IN PRESET TESTa<CRLF>
RMDC CLEAR OFFSET TESTAR<CRLF>
[LLEGAL FUNCTION TESTa<(RLF>
INVALID COMMAND TESTa<CRLF>

ID ADDRESS ERROR TESTa<(RLF>
INVAL
WRITE LOCK ERROR TESTa<CRLF>
ERROR ABORT TESTSa<(RLF>
RMR TESTA<CRLF>
PAR]ITY ERROR

TESTa@<CRLF>

ILLEGAL REGISTER TESTQA<CRLF>
SEEK FIRST CYLINDERQ<CRLF>
SEEK LAST CYLINDERQ<CRLF>
SEEK PRIME CYLINDERSa<CRLF>
SEEK ZERO DIFFERENCEQ<CRLF>
SEEK MAXIMUM DIFFERENCE T ORWARDa<CRLF>
SEEK ADJACENT FORWARDa<(RLF>
SEEK ADJACENT REVERSE@<(CRLF>
SEEK INVALID SECTORa<CRLF>
SEEK INVALID TRACKaI<CRLF>
SEEK INVALID CYLINDERQ<CRLF>
IvC SEEK TESTa<CRLF>

ABORT SEEK TEST@<CRLF>

SEEK AT QFFSETa<CRLF>
LOOK AHEAD TESTa<(RLF>

82
33
84
85
86

8&
8y

106425

106440
106453

106465

106477
106511

.END

WAy Sy Sy Wy Sy
R Sy S
o

SOy SISy TPy YDy VY WPy Wiy
Y

SWITCH SETTINGSQ<(RLF>

NOO OO =FIHInWSs
N

e
e

L L L

e e

58-1

SEARCH ON CYLINCERI<CRLF>
SEARCH OFF CYLINDERa<CRLF>
SEARCH INVALID SECTORa<(RLF>
SEARCH INVALIL TRACKQ<(CRLF~
SEARCH INVALID CYLINDERI<CRLF
>
1vC SEARCH TESTa<(CRLF>
ABORT SEAR(CH TESTQ@<CRLf>
SEARCH AT QFFSETR<(CRLF>
HEAD AL IGNMENT SEEK@<(CRLF>

O = NINSH
N

106337

80 106376
a1 106412

040
040
040

106267
78 106313

040

75 106227
76 106236

106172

11:43:¢8 PAGE

<(RLF>
QOPERATIONAL

e L

040
0-0
040
040
040
040
040
040
04¢C
040
040
040
040
040
040
040

106066

100123
’3 *06147

120
055
127
055

2?9

117
055
123
055
040
040
040

als?
aT60
alél
AT62
al63
aT64
aT65
aT66
alé?

68 105767
9 106015
70 106051

067
060
061
062
063
064
065

4-aPR-8"

€5 1057G3
66 105730
(X4 105760

065

066
066
066
066
066
066
066
066

MA{RO v04.00

e L

64 105655

124
124
1264
124
126
200

105544
¢l 105575
63 105631
&~

124
124
124
126

58 105433
59 105462
69 105512

STRINGS

TST

333
I
I I TI S S N

FGRUR MESSAGE

BTN

VL
urLLLInuunn [
R
AV R O NV N NV NV RV RV RV R XV, XV, )
Y OVOYONCIOY YOOI
OO ONIYOIOIDICICINDICICNNOYOIOYNOYOY

JRMME, RMOS/ 370

200

HALT ON ERROR@<CRLF>

LOOP ON TESTa<(CRLF>
INHIBIT ERROR TYPEOUTSA<CRLF>

a<CRLF>

INHIBIT ITERATIONSa<(CRLF>

BELL ON ERRORa<CRLf>
LOOP ON ERR(Ra<CRLF>

LOOP ON TES!

TN128a<CRLF
TN64a<CRLF>
>
TIN320<CRLF
TN16a<CRLF>
TN83<CRLF>

TNIOS\LRLF >
TN2O<(CRLF>

TN1a<(CRLF>

IN SWR<7:0>a<(CRLF>

ATA

ATESTN
A TNMSY

BLNKS1
BLNKS?Z
BLNKSS
BLNKS4
BOTADR
BOTFLG
BPTVE(C=
8SE
- 100000
103274
BUF FER
103274
BUF ONE
g%FTUO
104300

004000

DLT

100000

DSWR
DTE
DTO
DULPRTDVA

N
nNOOO

— ok —h —t e —d

~N
N

Q ~

£~ no —

-—

NN
WNANNO R —
WN

073456
073474
073476

077015
077020
077050
074243
077072
077113

[on
(=)
~nN

(o]

2 ek ed 4 — =~ =~

2IWNWWNWINON) = = 2 2 O WNOVNES
NHNWNIN = —QO

EHT

EMS141
EMS142
EMS143
EMS144

EMS145

EMS146

177570

010000
010000
024024
004000
000200
020000
000100
004000
001000

076529
076547
076576
074232
076615
07€644
076655
076741
076771

EMS137
EMS14
EMS140

000001
000010
DPEH]
040000
DPELO
020000
000400
DPR
DRIVES
067070
= 004000
DRQ
DRV(LR= 000010
055020
DRVSTS
- 000200
DRY
DMD
DPE

076511

22—
O

BTl lel v ivlolvivivielolviviviel
o
R
B
R

NO 2OV
W
W& NN

020000
050612
001156
000174

100000

040000
002000
100000
177570

DR(K
DBEN
DBL
D(K
DDISP
DERBL
DEVSEL
DISPLA
DISPRE

¢00100
(63130
000015
000200
001777

=t = =~ OV NININNY —

CONT
CPSAVE
CR
CRLF
CYLMSK-

CNTCLR
(OMMA

R
B
I [y Al R
ANAN
= b ed o g

CNSLO8
CNSLOS

073500
07346%
073502

—

CNSLOT
(NSLOZ2
CNSLO3
CNSLO4
CNSLO7

002000
001326
064007
104410
001510
001512
000040
(052402
007466
052400
066375
066405
066447
066456
066512
066654
066655
052264
066341

m mMmMmMmMmMmMmmmmmmmmmmMmmrmmmmmmmMmmmmmmm

H
=
{HGADR
(HRCNT
(KSWR (_KADR
CLKV(CT
(LR
=
CLRSTS
CMNSTA
CMPERR

58-¢

n
t

—_

o
o]

—

000010
009G01
000002
000004
000010
000020
000040
000100
000200
000400
001000
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
0209200
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
067133
067132
067131
067130
064004
064006
000014

1':43:/8 PAGE

000000
000040
000001
000200
0001090

0000V0
000400
001000
€00001

«-3PG-81

[
S
T
A
L
7
N
I
T

A >WREG=

100000

120254

005332

APE
APR|OR=
APT(SUAPTENV
APiSIZ
APTSPO=
ARGS
=

20000C
000000

V06,00

—

<«

)

053262

000000
000000
200000
000000
000000
00000
000000
000000
ADDW15= 000000
LDDW2
000000
AZDW3
00C000
ADDWS
000000
ADDWS
000000
ADD WO
000000
ADDW?7
000000
ADDWS
C00000
ADDW9
000000
ADEVCT
000000
ADE VM
000000
AR
000001
AENV
000000
AENVM
000000
AFATAL
- 000000
ALL
066330
AMADK1
000000
AMADR?Z
000000
AMADR
3~ 000000
AMADRS
- 000000
1~ 000002
AMAMS
AMAMS
2 - 000000
AMAMS
3. 000000
S = 000000
AMAMS
AMSGAD- 200000
AMSGL
G
000000
AMSGTY= 000000
- 000000
AMTYPY
AMTYP2:= 000000
AMTYPZ- €00000
AMT YPL = 000000
AOE
- 001000
APASS
000000

: 26700
- 000000
A'DWl = 000000
ABASE
ADW!

[aYa)

MA R

[aal

SRl qM:\<~’
ke TN TAbE

EH223
EH256
EH336
EH337
EH344
EM353
EMST

102125
102153
102227
102266
102427
102561
073634

EMST101

(076434

EMS102

076462

EMS147
EMS15
EMS150
EMS151
EMS152
EMS153
EMS154
EMS155
EMS156
EMS157
EMS16
EMS160
EMS161
EMS162

EMS163

EMS164
EMS165
EMS166

077156
077213
077256
077310
077353
077416
074304
077455
077512
077553
077577
077622
077664
077727
077754
074315
100011
100032
100060
100075
100123
100133

100162
100201

074326
100216
100235
100261

100305

gEms173

EMS 174

EMS175
EmM5176
EMS177

FMS2

EMS20
EMS200
£MmMS201
EMS202
EMS203
EMS204

EMS205
EMS 206
EMS207
EMS21
EMS210
EMS211
EMS212
EMSZ13

EMS214

EMS215
EMS216
EMS217
EMS22
EmMS220
EMS221
EMS222
EMS223
EMS224
EMS23
EMS24
EMS2S
EMS26
EMS27
EMS3
FMS30

EMs 31
EMS 32
EMS33
EMS 34
EMs35
EMS 36
EMS37
EMS4

£MS4L0

EMS4LT
EMS4L2
EM3&3
EMSL4

FMS4LS
P MsLe

10063
074400

120¢ 56

1007CS

100740
100760

100775

101003

101031

101060

073703

»H

gmgr
7t
EMS172

wwu Vesy

w
wn

Em3176

)

TAb
t

—

EMS147?
7
EMs5°

[ 9LIR

e (D
b e oD bk
—d b (D) S D b
b -t
OO NOOOOCOOOO NOOOOO (=]

My
TMy

075437
076026
075465
075515
075543
075553
075565
075607
075636
075713
074056
075761
075754
076003
076021
076067
076065
076132
076203
074123
076230
076242
076255
076265
076302
076321
076327
076360
000030
067246
067316
070314
070332
070350
070360

067334
070654
070666
070700
070712
070724

EMT3

EMT30
EMT1300
EMT301
EMT302
tMT1303
EMT 304
EMT305
EMT 306
EMT307
31
EMT
EMT310
EMT311
EMT312

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

070372
070410
070420
070430

067322
0704590
070462
070470
070476

070512
070520
070530
070540
067326
070550
070560
070570
070600
070610
070620
0792¢30
070642

EMT274

EMI27S
EMT1276
EM1277

071732
071734
067442
071736
071740
07174¢
071744
071746
071750
071752
071762
067452
071774
07c010
072016
072024
072042
072052
072062
072072
067462
072104
072116
072136
072146

071404

067252
067402

EmM1210

EMT272

EM1273

EMT313
EMT314
EMT315
EMT316
EMT317
EMT32
EMT 320
EMT321
EMT322
EMT323
EMT 324

EMT 325
EMT 326
EMT 327
EMT33
EMT330
EMT331
EMT332
EMT333
EMT334
EMT335
EMT336
EMT 337
EMT34
EMT 340
EMT 341
EMT342
EMT343
EMT 344
EMT 345
EMT 346
EMT347
EMT3S
EMT350
EMT 351
EMT 352
EMT353
EMT 354
EMT36

066324
ERR
= 040000
£ RRNVB
064002
ERROR = 104000
FRRTYP
063134
FRRVE'=
\. m‘

FRTY0O

O10
064115
w25
unh 034
064042
064045
ESR(
004000
FER
000020
FIND
000001
FMT16
010000
ENCDTB
067136
FNCMSK
= 000077
FO
- 030007
+ 000004

ERTYC?
ERTYQ?
ERTYO3
ERTYD4
ERTYOS

000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000020
000001
000002
000004
000010
000100

010000
002000

067124

115760

010000
004000
067117
000000
067030
067013
066755

000200

000400
064052
PFECH]
064062
PFECHZ
064150
PFECHS
064166
PFECHé
064174
PGE
= 002000
- 001000
PGM
PHA
00020C

b ohon
O 1]
B ¥ IO A
Y O
I
[

020000
177772
000240
002000
043706
000000
000040
000100
000140
000200
000240
000300
000340
177776
002000
177776
2643160

RMD3
- 000022
RMDEBI
001356
KMDBO
001432

054056
000070

RMERZ = 000042
RMERZ2I
001376

PSEL
PSW
PUT
PUTRUF
001410
PUT INX
001543
PWRVEC= 000024
QUES
066335

RCLSTS

RD
RDCHR
RDLIN
RDOCT
RDY
READY
RECAL =

100000
100000

000014
000001
020000
020000
000200
PACACK- 000022
PAKACK
- 000022
PAR
000010
PAT
= 000020
PDA
PFECH

PR6
PR7

noat
nort

K 4

|
I |B

ILRGS54ILRG56=
ILRGED
ILRG62=
1LRG64
ILRG66ILRG70ILRG72=

ND TMSK
NED
NEM
NONE
=
NOP
NOTAVL
NOTPRS
NOTRM
NSA
occ¢
OrD
OFFSET
OM
OPE
oP]
=
OR

PR4
PRS

whnnnn

—

]

[T
T | 1]

TM
-y

[ BRI T T

=2
o

L 2RV
LN

ILRGSZ2- 000052

MXF

001000
000010
000010
- 001000

PR2
PR3

non

FMT?7
S
. RUAL

066712
066344

PIRQVE

PLFS
PRIERR
PRO
PR1

3
)]

EMT73
EMT 74
EMT75
EMT 726

100000

PIP

PIRQ

X
X

Emr72

070166
070176
070206
070224
070242
07025¢2
070272
070302

S8-«

EMT 71

067310

002000
000012
066776
000004
004000
000002
001332
(04000
020000
002100
000400
000004
000400
020000
010000
002000
000040
000002
066676
000200

EMT7
EmMrz0

070142
070154

T ¥

EMTES
EMTEE
EMTE7

000200
002000
000400

EMT64

EMTES

l
*':43:.8 PAGE

<-APR-B"

106407

000011
002000
063132
IBSAVE
000077
[DXMSK
IE
000100
000001
ILF
000002
ILFO2
ILF24
000024
000026
[LF26
000030
ILF30
000032
ILF32
ILF 34
000034
000036
ILF36
ILF40
000040
ILF&42
000042
000044
ILF&4
000046
ILFGh
000054
ILF54
ILF56
000056
ILF64
000064
000066
ILF66
ILF74 - 000074
ILF76 = 000076
000002
ILR
ILRGS0= 000050

TR TR T

EMTSE
EMIS?
EMTE
£MT60
EMTSET
EMTE2

J0001C

103274

[

EMTSS

HCE
HC
I
HCRC
HELP
HT
+AE

EMTS4

GTSwR

EMTSC
EMTST
EMTS52
EMTS3

067610
067620
067632
267642
067652
067662
067672
067274
067700
067710
067722
067740
067756
067766
070000
070016
67302
070026
070044
070064
070100
070102
070122

= 000020
000040
642710
GET
GE TBUF
001334
T INX
GE
001514
GETSTS
042624
GO
000001

EMTL?7

EMTS

67572
067266
067602

YVO4.00

SEQ G281

EMT66

TABLE

(o)

EMTL3

EMT4L4
EMTLS

MARL

EmMTe
Ew 40
LMY
EMT2

{ MmT?

[> 9]

J =M
My

104411

104412

104473

000200
007660
000006
104415

000010
010000
040000
000072
000020
000012
000016
001352
001426
000004
000050
001404
001460
001340
001414
000000

001334
001410
000010
001344
001420
000052
001406
001462
000006

001342

001416

RMD(
RMDCI

= 000034
001370

RMDCO
RMDS
RMDSI
RMDSO
RMDY
=
RMDTI
RMDTO
RMECT =
RMECTI
RMECIO
RMEC2 -~

001444
000012
001346
001422
000026
001362
001436
000044
001400
001454
000046

RMER10

001424

RMEC2]
RMEC20
RMERT =
RMER1]I

001402
001456
000014
001350

RMER20
001452
RMHR
= 000036
RMHRI
001372
RMHRO
001446
RMLA
- 000020
RMLAlI
001354
RMLAO
001430
RMMR1 = 000024
RMMRTI
001360
RMMRI0O
0C1434
RMMR? = 000040
RMMR2I
001374
RMMR20
001450
RMOF
000032
RMOF1
001366
RMOFO
001442
RMR
- 000004
RMSN
- 000030
RMSNI
001364
RMSNO
001440
RMWC
- 000002
RMWCI
001336
RMWCO
001412
RQA
100000
ROB
- 040000
RTC
= 000016
Ré
-2000006
R7
=%000C07

SADMSK= 0003?77

SAVREG= 104414
= 000001
SAT
SA16
= 000020

SA2
SA4

- 000002
- 000004

SEMMBL RMOS/3 o F

JIMB0L

TABLE

= 000010
= 100000
S HSTS
056422

MAIRC v0&.00

4-APR-81

"1:43:¢8 PAGE

58-¢

stu 08,

A8
37

Swé
>WS

= 000020
= 000040

1ST42
TST43

027306
027574

$ATY1
$ATYS

0660060
066065

ZTOPE = 000004

Sw?

= 000200

TST4S

030406

$AUTOB

001150

3(TMsk= 103700
>(0
= 000100
SC1
= 000200

SC
SC

sS4

= 000400
= 001009
= 002000

SEAR(H= 000030
SECERR 044540
SEEK
= 000004

SEKSTS
SHUT
SIZCLk
Skl
=
SNGPRT=
STACK =
STANDA
START
START1
START2
STCDRV
STRLMT=
STOP
STSD1
STSD2
STSD3
STSD4
STSF
STSHY
STSH2
STSHY
STSH4
SwR
SWREG
SwO
=
Sw00
SwO1
=
Sw02
=
Sw03
SwOé
=

SW05
SwO6
w07
SW08
w9
Swl
SWi0
Swll
swi2

sw13
Swié
SwiS
‘we

=
=
=
=

051026
065450
043400
040000
020024
001100
(07010
00542¢
005412
005426
057766
177774
062512
103164
103202
103222
103234
103265
102627
102704
102773
103031
001154
000176
000001

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

=
= 020000
= 040000
= 100000
- 000004
Co00*C

Swé

= 000100

Sw8
= 000400
Sw9
= 001000
SYSTAT
066720

1ST44

TADMSK= 177400
TAG
= 020000

TST46
T1S147
1875
TSTS0
1ST51

TAP
= 040000
TAT
= 000400
TA16. = 010000

1STS3
1ST56
TST55

TAGADR= 001114

TA2
Tas
TAB
TBITVE=
TIMOUT
TKVEC =
TFVEC =
TRAPVE=
TRE
TRTVECST
TSTNMB
TSTPRP
TSTQUE
TST1
TST10
TST11
TST12
TST13
TST14
ISTIS
TST16
TST17
TST2
1STc0
TST21
1S122
1S123
T1ST26
TST25

IST26
1ST127
IST3
TST30
1ST31
TST32
1ST33
TST34

TST35
15736
15137
I5T4
TST40

TST41

001000
002000
004000
000014
043522
000060
000064
000034
040000
000014
010000
064000
041650
001464
010046
013426
013726
014144
014452
014762
015224
015502
015752
010246
016202
(16526
017146
017512
020104
020574

021142
021464
011116
022046
022364
02315C
023674
024464
025250

025602
026242
011454
026462

027020

030106

030666
031170
011660

XS1Z
XXDP
Y

$APTHD

SATYC

$8ELL
$BIN

032540

TST56
15157
1ST6
TST60
TST61
TST62
TST63
1ST64
TST65
TST66
1ST67
1517
TYPBN TYPDS TYPE
TYPOC =
TYPON TYPOS =
UNS
UNTMSK=
UNTOFF
UNTON
UPE
=
USE
=
uo

$BASE
$BDADR
$8DDAT

(31474
032112

1ST52

ul
ul
vV
W
wCD
wCE
WCEHI
WCELO
WCF
WCH
WD
WH
WLE
WRL

$ATYL

$CDW1

033156
033516
034060

$CDw2
$CHARC
$CKSWR

034404
035032
012174
035510
036214
036614
037224
037624
040204
040550
041106
012354
104406
104405
104401
104402
104404
104403
040000
000007
067047
067060
020000
040000
000001
(10002
QU004
0001C0
000040
000050

$CMTAG
$CM3
=
$CM4
$CNTLC
$INTLG
SINTLU
$CPUOP
$CRLF
$DBLK
$DOWC
$ODOW1
$0DwWZ2
$DDW3
$ODW4
$DDWS
$ODW6
$DDW7
SDEVCT
$DEVM
$DOAGN
$DTBL
$ENDAD
SENDCT
SENULL
SENV
SENVM
$EOP
SEOPCT
SEOSP
$ERFLG

=
=
=
= 040000
=,010000
= 004000
= 000040
000052
= 000060
- 000062
= 004000
- 004000

$ERMAX
$ERROR
$ERRPC
$ERRTB

SERTTL
$ESCAP
$ETABL
SETEND

$FATAL
$FFLG
$FILLC
$FILLS

006454
001330
067126
001100

066104

$GDADR

$GDDAT

066076

$GET42
$GTSWR
$GT4L2P

001276
001136
001142

$HIBTS
SHIOLT
$ICNT

001212
060640
001302

001304
061644
064510

001114
000000
000005
065406
065420
065413
001250
001217
061056
001306
001310
001312
001314
001316
001320
001322
001324
001232
001300
041640
061045
041630
041466
041644
001242
001243
041432
041460
0461374
001117

001131
062540
001132
001572

001126
001210
001242
001326

001224
066324
001172
0011
001134

(01140

$HD

047620
064600

041614

= 000000

SILLUP
$INTAG

$ITEMB

SLF
SLFLG
SLPADR

$LPFRR
$MADRT
$MADR2
$MADR3
$MADR4
SMAIL
MAMS1
IMAMS?
MAMS3
MAMSS
$MBADR
SMFLG
SMNEW
$MSGAD
MSGLG
$MSGTY
MSWR
$MTYP1
MIYP2
MIYP3
$MTYPS
SMXCNT
$NULL SNWTST
SOCNT
$OMODE
$OVER
$PASS
$PASTM
$POWER

$PWRDN
$PWRMG
$PWRUP
$QUES

001100
065572
001120

066042
001151

001130

001220
066323
007122

001124
001254
001260
001264
001279
001222
001252
001256
001262
001266
001102
066322
065436
001236
001240
001222
065425
001253
001257
001263
001267
06233¢
001170
000001
061310
061312
062316
001230
001106
066050

065702
066036
065754
001216

$RDCHR
$RDLIN
$RDOCT
$RDSZ $RESRE

065052
065142
065472
000010
060530

$RINAD

041642

$RMO2
$RMO3
SRMOS

$SAVRE

066736
066743
066750
060472

IRMMB(, RMCS/3/7 67 "N

>YMBOL

TABLE

$SAVRS
$SCOFE
$SETUP:
SSTLP =
$SVLAD
$SVP(
$SWR
$SWREG
=
SSWRMK
$SWOBT
STESTIN
$TIMES

066046
061550
000137

ABS.

062262
0C0210
167400

001244
000000
062334
001226
001206
106524

ERRORS DETECTED:

|
|

$'xB

001162

064200
064210
064207
064202
064204
(84206
001160
064260
001174
001176
001200

4~APR=F1

000
001

| /IRTUAL MEMORY USED:

MATRD v04.00

$TKCNT
STKINT
$TKQEN=
$TKQIN
$TKC~J
$TKG.R
$TKS
$TKSRV
$TMPO
$TMP1
$TMP2

177777

000000

TST 1

61952 WORDS

( 242 PAGES)

DYNAMIC MEMORY AVAILABLE FOR
70 PAGES
(JRMMB . BIC,(ZRMMB/(=(ZRMME.DOC, (ZRMMB,SYSMA(C/M

$TMP3
$TMP4

$IN
$TPB
STPFLG
$TPS

11:43:¢8 PAGE

001202

001204
= 000070
001166

001173
001164
065574
065634

$TRAP
$TRAP2
= 000016
$TRP
$TRPAD
065646
$TSTTMM ° 001104

58-6
$TSTAM
$TIYIN
STYPRN
$TYPDS
$STYPE
$STYPECL
STYPEX
$TYPO(
$TYPON
$TYPOS
SUNIT

SEQ 0083

001116
065374
060566
060642
061314
061526
061646
061112
061126
261066
001234

$UNITM
001110
SUSWR
001246
SVECT1
001272
SVECTZ2
001274
$XOFF = 000023
$XON
000021
$XTSTR 061672

$$GE 14= 000000

$$5w08= 000070

SOFILL
061311
.$X
= 001100

40-1

v0'~GS

39-1
39-1
39-1
39~1
39-1
36-1
39-1#
39-1»
39-14
39-1%

39-1
39-1
39-1

3 14
3/-1x

37=1+

L
11:43:¢2R PAGE

39-1
39-1
39-1
39-1
3y=~1
39-1
39~]
39-1
39-14
39-14
3014
39-14

39-1
39-1
39~1
39-1
39-1
39-14
39-14
30-14
39-1#

3G- ¢
39-14

6
S-1

SEQ (. B

39-1
39-1
39-1
39-1
39-1
369-1
36-1
39-1
39-14
36-14
39-14
39-1#

39~
39~
39-

39~

39-1
39-1
39-1

39-1#
3G-1#
1G9-1u
39-14

19=-1
39-1
39-1
39-1
39~1
391
39-1
39-1
39-14
39=-14
39-14
39-1»

30-1
39-1
39~1
319-1

39-1

10«1
49-1

39=1
39-1#
39-14

19-14
10-14

39-1
39=1
39=1
39=1
39=1
3C-1
39-1

Iyt
39~1
39=~1
39=-1
30=1
39-1
391

319-1#

19-14

39-1#4

39-1a

30-1#
36-1#

39-1#

13-400
13-842
13->80
13-£12

S-8#

46-1

3346

40-1

35-1+

38-1+

44-1

40-1

35-1»

WVIINOO
N~
=~ 0

13-106~

8
»

—d

OW -—
(V1.8 »

[ NN
L
\NWWWWL.NLN
]
NANIN
COON
NN =2\
— b AON—

PN\ e eb =2 =

o~ Qo QOWOWNNWNEO »

13-375
13-811
13->46
13-D64

—t D ek bk b

O
&
HOO

.\ —

(R
-'-‘LJWWWWWL‘ULNLN Q0
N NIANN
WD

O NN
O\h
O

oo P\ =
b cod md d d e b b
nary
t 1
1
1
L)
[y b
WOOWVNANN
—O0
nNNO ~= \NO O NIWNOD O

—

d —d

NWWWNN

[
—
L@ i

wuwwuwt..u
!

e e e ek b LN
e N
N
N

W
ll

e W= 0\WVO
—a

22-200«
22-329+
22-455+
23-137+
26=-117
28-71x
29-27+
30-159+
31-41x
32-1G7+
33-62+

[

]

M@ v B 2
RYLASE
33 1p8)
NO\WV0o
0o »

b b =

B
A
I
B
B
L

28-12%
30-134+
31-31
32-76+

—d o

]

22-315«
22-433~
23-122
26-106
28-61

N [N Y S
O
NN
NN
no 11
1
[
|
QO ~ n
NN
=N
oW 00 ~NRY SN —
NN

Mo F VN

W0
o=

NO =3 NINIPO
N —O
*»Q NO
=2 0N00 *

56-8
13-68+

10-75
12441
13-915
13-242
13-E96

L6~k
4614
10-28+

46-14

22-86+
22-184x

$BELL .
$8IN
$CDW1
$CDWe
$CHAR(
BCKSWR

)

39-1
39-1
39~1
39-1
39-1 ,
39-1
29-1
39-1
30-1#

3191
39-1

4-APR-B1

d -

39-1
39-1
310-1
39-1
36-1
39-1
36=1
30-1#
39-14
39-1#
3G-14
37-1a

MACRO v04.00

-—

$B8DADR
$BDDAT

14=20m

39-1

$OF ILL
$4L0CAT
SAPTHD
SASTATY
$SATY1
$ATY3
SATYS
SATYC
SAUTOB
$BASE

14-20

39-1
39-1
39-1
39-1

(CREF

[ g

$IGE T4
$35w08

TABLE

NN
U
'Y
N) — [
— A
]
!
~N
o NOONWNINRD
=2 N

"RGSS REFERENCE

TST

IRMMBC RMOS/3/72 FCTINL

13-198«
13-307+

13~354+
13-636*
13-875+
13-:36+
13-;70
13-F19%
22~6h4r

13-108

13-217»
13-308«

13-359r
13-652«~
13-898~
13-:37+~
13-<S50»
2149+
22-65+

22-158
22=272%
22403+
23-93+

22-170~
22-284w
22-417+
23-94

28-32+
28-116+
30-65«
31=17»
31-84
32-209r

28-34
28-117w
30-82+
31-19
Ji=vhe
32-227w=

26~68

26-88+

“IAMMBD RMOS/3/72 SCINML

"RGSS REFERENCE

TABLE

$(M3
$ .~

6=0»
6~0
6-04
10-23
42-1

S{MTAG
SONTLC
SCNTLG
SINTLU
$CPUOP
SCRLF

$OBLK
$OOW0

$DODW!

tDDW2
$ODOW3
$DDWé

$ODWS

$ODW6
$ODW?7
SOEVCT
$OEVM
$DOAGN
$DTBL
${NDAD
SENDCT
SENULL
$ENV
SENVM
$EOP
$EOPCT
$EOSP
$ERFLG
$ERMAX
$SERROR
$ERRF(
$ERRTB
SERTTL
$ESCAP
$ETABL
SETEND
$FATAL
$FFLG
$FILLC
$FILLS
$GDADR
$GDDAT

6~0
6~0
6-0n
6-0n
42-1
42-1
424
6~0#
6-0»

TST

(CREF

MATRO V04.00

v01-05

)

4-APR-81

6
11:43:28 PAGE S-2

SEQ 0/85

6=0

6=-0

6-0

10-23
42-1

10-23
(2-1a

10-23

6-0

(2=
&2-1

42-1n

10~48
40=1

10~-80
401

10-140

61-20

11-20
41-61

6=-0#
6-04

10-67+

10-78

10=117+«

10-121*

11-63«

11-70+

11-97+

11-98

12=4

36-1
5-5

10-28

14=-20#

40-1

10-28
10-23
14-20#
14-20
14-9#
39-1
10-23+

38-1

40~1

401

40-1»

40-1

36-1
6-0#
6=-0#
6=0n
6-0#
6~0#

36-1

36-14

6=0#

6=0w

o=0#

12-38

13~28«

42=6+

6=0n
6=0#
6=0n

14-20

10-23
16=20#

6-0n
6=0n
13-29

10-23~
13-239

6-04
6-04
10-23
5-04
8-0#
6-0¥
6-0n
6-04
5-8
6-0n
46-1
604
6-0#
6-0#
6-0#

14-20

36-1a

14=20#

40-1#

40-1
61-72
14-20

14-20#

10-71

L2-7
14~204
39~1
39-1

39-1
39-1

39-1
39-1+

391+

40-1

40~1

40-1»

40~1+

41-54

10-23~

39-1+

14-20

14~20+
40-1

40-1
40-1

6-0#
46-1»
46-14

46-1*

461+

46=1+

38-1

lIERTN-2-2S3%b-4#414=3fiW%quQJ%
3O3,ST3OUVA05QO3r7—8N3383333538,TFcaBYerToo1[g3838,3833BSNAOS«no—O

SON=M7M0VMM0.0SS5-D0G-N3-M3L-I-R-NPR—NVOLNSRo}Eal.aZl,VRelLaLl.RvoUrIaORdErxomomwumI3MQMWRO—~NIV1r
RMMB) RMOS/3/2 FCINL
REFERENCE

TABLE

(CREF

TST
1§

*-L*AP&& *xaRReyRyken

gxIo-Sn3®BRFa3-nR8T NW—AO.MeNOV~I!rO 1]'RNRIoPTS«.ASA TNYA=MO-o

NIONIMIAOO M

RuSS

&® L

& ®. =

%IS”WRQ%BWURMSWUIGWP”YYCxbRL4‘«boRL MUMHMQ%M25<MXqO%I?CNLANCEOFHOMD=%N~O3oNW)ITOOM-W~s0MO~
a3sRaaf5n5s5ns5s5nanidl a2=55C0R8A8R8R2RR2A3R355Rl
[3

MACRO v04.00

v01-05

)

4-APR~B1
'1:43:¢8 PAGE

—-

6
S-3

SEQ 028/

“&-«

[

HRNANRE

]

SvMB., RM0S/3/2 F

.
TNL
Y cy

MAIRO

RGSS REFERENCE TABLE (CREF v01-C5 )
)

v04.00

4-APR-B1

7
8
'':43:¢8 PAGE S=-¢4

SEQ 028°

$STUP

14-20

4-766
L=7664

14-20
4-766
L-7664#

39-1
4~766
4=-7664

40~1
4-;22‘
['..

KOR OM M NVARoLA
.FROAMRM—Y-OIgAN-OOYRSM AN
¢[ SB~RN
TOMM MNNO

40~1
4=766

40~1
4=7668

42-1
L=7668

42-1
L=7568

42-1
L=TOOR

42~1
L=T7668

42-1
L=T766M

10-28

4=-7664

10-23
10-28

L=7668

4=70668

W>m USo~ No0V R[]NS¢[oeaAIVlNENMe[—e—NO NIMOM o'a€N~R5lkEVY aKBElXLeRNaoE,¥lNR)N JV~e—yi~n Ifl.l.b(f~i?-.l.l N[—AY] STMMIMIONONDU)LNQ~Or—r NOo~ UL! OMMOW AUo-ed—Ve [-a—-dc
Y[oa]V.ao¥)e

$TESTN

39-1
60N
13-510+

13=:14»
13-a76*

STKCNT

33-1e
6=-0n
39-1
6-0n
42-1

$TKOEN

42-"

STIMES
$TkB

$TKINT

11=4

39-1
13-1+
13-540+

13-,80"
13-A24+
L1-45
10-23+
39-1

38-1
42-1

12-47
&2-1

39-1
13-32+
13-558«

39-1

12-46+

13=-32+
39-1+
42-1

13-<22+
13-A58+

39-1
38-1

42-14
13-61
42-1

13-137~
13-589+
13-<54+
13-A95»

42-1+
42-1

ONe3

] *-.{

1M MU= —

own81

-d

40~1
4=766

OO MAN

~C—oed—NQ0Ow

”'

¢o STOMOOM ION NI —
MoN gOONr—OO- D- —NN Le
o2]BENENV]YoNXu I3K0~olUaNIlTalMUALo[Ny O N
[41Y] TLUM M SLIOURO
3
MO SMMMMOMyr—e—NOROe ~
ON
U
O] OU
M M NMONO 3

|
3

w20

2.2
- ) ———

— O —— CoU

t.%n.uRnw,_%,.LOol [.aol’walnAl

N 3 MMM

P
L
V
V
' a0 et1r

OoW~O~Ny MNN-e\OOtw-nM8~=N.MO—M- MQ— NLRoO-M'3YNW‘4YATeNRw=~[4RAON—W‘~R311WXV1S1KDIAR7243O3V1 Xa4LNRrwW NY—S¥—RLTaxNOgy)O=Al8-=NM«Al2vM45LP”%MAw-l
M4LARgNolollk—e haiUntdLMNe) ~~— -o ![ ] ~4]]3i OM—))M~M«U[. —e[UINoUR——
NM==\—= - oNoeLaNly ~~N MOoy M-—
®MMMoYMMM(OVYMNW—MrZ-—eOo——Nez—-O—N e~r s}[»a-l—a—l

VM-N—nrA—QeO—MrG—OrJMOON-NI~NwnununwmmMNO3RM\'1nEsO0S>¢MO00Mo71~[wY~anlBNENB&|A3LA)NI3OEC—L|C¥.RD3OEL8O-R3S~trtm~-R3]r8m~(oMm—@UN)2My~[4-3yQ&5%O4A~—-\UN%0M¢NO.SYiREC5RYMTQi.( LNarAMCOo]l—La~US=larMl"L.‘M“eo2aell

39-1

13-179x~

13-625+
13-<87+
13-831»

13-400+

13417

13-441+

13-463

13-488»

13- 56+

42-1
42-1%
42-1

42~1
4o- 1 *
42- 1 f 4

42-1

62-1

42~

39-1+

13« B4r

13=>12+

13-F 79+

14=20»

JRMMB0 RMOS5/3/2 FOTNL

TROSS REFEREMCE

LIKQIN
$TKCOU
$TKQSR
$TxS
$TKSRY
$TMPQ
STMPI
STMP?

$TMP3

(2~
&2~ 1
42~
6-0s
&2-1
6-0»
6-0s
11=76
1

24=37
6=0#
6=0n
6=0#

(CREF

L2-

42-1
62-1
38-1

L2-1a

13~<80+

11=13»
11-78

24-39
264=27+

MAIRO v04.00

v01-05

2=
2-1»

£2-1

38-1

13-213»

11=14
11-83«

25~28»
24~28+

4-APR-81

11:43:¢8 PAGE

S5-5
-

2-1e
(Q~1¢
42-14
42-1

42=1+
40-1¢

42-1s
42-1 *

42=1e

42-1

42=1*

42=1v

42=1e

17-410

11-16
11-84

25-37

24=51

RINkS oa¥Ll1alalt,al.a.lalU[)R7N.JAF£sN—=DOLVM0—O03IUNMO0 95105150762414“ RN MNM OAUO‘Q—MeWLFlN

$TRPAD
$TSTM
STSTNM
STTYIN
$TYPBN
$TYPDS
$TYPE
$TYPEC
STYPEX
$TYPO(
STYPON

$TYPOS
SUNIT
SUN]ITM
SUSWR
SVECT!

SVECT?

SXOFF
SXON

ON—INON
2— O N

ONO—ne~~~MN

e
xk&& "T

MUNe— OOV FNOONCR NN

M=NAN=0T~—ONINeE—

VMYNN MM M

—N1—e
N93b3105¥7M5&‘MM 7P&MY2A2&MT“T1MBM96—e NM

$TMPS
$TN

TABLE

TST

44=1

44~1
44=1
44=1
44=14

441
441
44-14

40~1

40-1

44-1
441

441
INASY

44-1

5-8#
6=-0#
42-1
35-1#
36~1#4
18-1#
78-1
38-1
37-'#

37-1
37-1»
6-0n
5-8#
6=0#
6=-0n
6=0#

38-1
38-*

12-45+

39-1
42-1

42-1

44-1
44~
44+

39-1

13-761

13-767

Lo=1n

38-1
38-1

44-1

37-1»

44-1

12-49+

12-68

21=51

41-22

11-46

11=56+

13-6%6

13-702

38-1

42-1

39-1

39-1w

39-1+

40-1

461
44-1
44-1
“o-1a

RMMBU RMOS/3/2 FLTN
TABLE

(CREF

MAIRO

v01-0S5

v04.00

4~AFR=B1

11:43:78

D
PAGE

7
S-¢

Lo 0 —e b

I1A11]8,eNeRA0ERN0ANRA0RUARTSNORO0ISELO]tVCOSA[}-VM(~yi

W[J%SQL[46N866666&..6..6fi6w.6.w.6”

RUSS REFERENCE

T ST
°

—o

- ——

iSt

[aV]

MA{RO vus.00
vO'=(5

CRMMELC RM0S, 372 FOTINL TST
RS> REFERENLE TAB
E ((REF
M3

4t
APASS

APE

APRIOR

APTCSU
APTENV
APTS12

6=0
6~9

6=~0

6-0

4L8-86

L=7L14

=574

¢2=31

22~326

461

“6=-14

11:43:¢8 PAGE

7
S-7
<

22-341

22-356

22=360

23-117

23=121

48-77

48-78

48-81

48-87

£Q 029

48-85

6=0

387
38-1
10-23

38-1

—NJoVT'Oo-R-aoIUll3NOVVV&sooo—YOtYLlVoY2M&oBo—tYtN— eVNoL31olYaYY=VFoaaoiyL1Ol0UU YYsVF1&RaoalYDlY.0V2aooYtYOoV/7PToNolaARRN,YlteVoa9lttto1YYao2P—n1RyYad—P—ol¥Qs5FeYalTY0m2SV(d=O aoeTllYl-e4eVoR/AOlltOto32FoRa-tYlT9iSFoIaltlT¥TeT7oSIatlttMa1aPoOePValdl¥MoO4esYV{lleALi2oooENlolltI4oaaLOtlloOTeTTl‘5aTNooatOlloooolltNlV7OoaaellltUsa3aoOllEOlla5aLVoMuRstballOaR7aoOali[ lNTll.M[o0aaTlatalIl2LlraaRaNanldlll
a]ndeoOTlY\aFo—lOeUooMtAolNaoIlManldlaaO2AlialOioaVleaOnlagMTaoli—aolAoNllOeoaoOasNab—5Oi=laNSRoandlILelaolisianTdit

APISPO

€~0
6=0
(=563

&4=-APR=81

SPetRytN0ION—UNOTOM~NON aobaLlbtiaaa,.1al.lblLlilillal.laia,UR 073726289LA30529i0E389“4S5R4L7514”72 FMONIDAYNR[AN%,Ca0TOsD—VHENACF Rk&¥yYk QW-P1ANOv€COiANleV. 551W2=3Nw5—I%6O0&NZ

ASWRE
G
ATA

13-F92#
6-0
(=543

13-653

13-:35

26-195

ATESTN
ATNMSK
ATNTBL

AUNIT
AUSWR
AVE(CT1
AVE(CT?

BA(K

48-67
4,8-87
6=-0
(-580#
10-78
6-0

é6=0

L=764N

6=-0
13=41
13=1724
13=2704

MTOMOAMONOA—=NOIGOW
O= T NIN NA IM N NA

e TP TTTPTeTTeTeTTTTTTeTeeTTTT—Tree

O2naMA0uOAwNfD4zlr0wW»4uCwzDMF5n:4t97F5w0V6a4I2n9EAy4G9CE2u4S6y3sy2w86TyN21u86Nu17O58Nu03Ou“84u3D&u7T1w“-

97A>9<a4.#5fAA%4?<63$iNC.99:4<e&>a74>n_flOiD6)85>QC#?E“A?3OD8£716)”3F1C3#7EAfGoA8F76}ioD2483]l$(E£819A#Ao]CC72:%AfFCR.3(CiDGD30:(o#AE—EA97I>DNlF”2RvsFVa7E?NGVV“F0Oe0003¢oN]\o7)OO—4.—'2AMa—3OYNVINa3%0N4RVTe9CO4R—VNa55lTA.ONWD3w5AiVO9%S2NNTAE5%tMONPRF70D——E

lO5Wm&N&5O14TW3ON6IV0MM690OWW6Ny1O%7N55I90OM72D58M4A29N0O7N&3yN”-O4NOTMyOOSNMOOA—N
L
d a O [%,)

13-F 964
6-0
13-215
13-668
13-:37

30-145

48-68
48-88

6-0
13640
10-117

6-0
6-0
6~0
6-0
13=41n

13-176
13=270#

13-575

13-671
13-.00
30-146
48-69

31-55

10-121

6=0
13
13
13

o3 9764
2 80

13-573
13-672
13-:01

123-682
13-:66

13~599
13-684
13-,67

48-70

13-579
13-680
13-,03
30-138
4L8~71

48-72

48-73%

11-97

12-17

49-3#

30-185

13-597
32-200

32-201

13-601
13-828
13-:69

32-253
48~74

13-611
13-831
22-138
32-256

48-75

13-614
13-832

22-139

(8-58

48-7

13-633

13-967

22-141

48-59
48-79

13-636
13-968

26-156

48-60
48-80

13-637
13-970

26-157
(8-63
48-83

13-650
13-:34
26-192
«8-64
48-84

>un>n?~R?QBQAAtflfiC”#CDLDhreEFLFRk|VTsV*+ORONTNN»INeOON®IT¥M
yO4Rw3TsNO®7»MI9O2&N8I7N2%O8O7&9N4302O9V20NRZ7axS950'9W3I7T-38O&N8O5—&6MRO9RR2N10O~%®2M&1NB1325&9854358M6W&O0G32M%=
%y.g7%OeO)y1we.sONuMDMwO8POaRnT.wMP?MNT%wiWOh(MTO&NT7BwTez®TLI5wRP1mTk5.e2)4e3?=»1e5.&e6s2“e4zA1RTG9m2&Rz34P_71T/9N5bP%43I0?T737O-Tn30vO5PL.A.32eM‘44KT]N77&P?00TXO2N2P9L85eRW“68e&5%7e4%9&e8y456P019e031e7%61P1.e832YT61N&T905PO4eW49DONP2M&eRN04EB0-7D%E00L”—o9A—a30
TeeRy ex—-%-oololooxlololsXlelilRLl-eBy-R &¥ X—T&Ret&TtbT

3ao1ORlOxaW1inaS5%h1Oaay077OuROT3D3@1—LOedYNAN0OlSba4“%¥R—ONlY1WyLMMNOBeL“Oa”8MMY——3LFMulWbC1eMOM%5a53eAlNONrhISNeI1M0a%ONR3OeMlNT1OCRlMR—“27e0ANMNIlOaO4SMMo77M)3RebOAC—VlYRR13TNYeII0N5“3LIRMl’TOMNTyANSyOONot7C644V3Max—ANlATnN«NRs8M0”O50YAe&Rl—1rOIVNOaeO527O3MM[llRLV1o0972O3MIATeeNlNTLUNOo53&M3VReO{-Nl1eUAIN3Na19O9NtYFNOedeNlMT1oOI511O3ILYS&eBYlNPNINNOboA2663MNYTTDR1MelNeLOmN3333aTRRdMTNINMTlOYA1Qo5T0WD3elIM]AbNaI3023TVTR1OeTdSNl’42sYeV03IWNlTTDN1a423V=NNYdh¥e—e.NNZaN420L1AOeYdxTNTBAhIlO|e3M993Oua0NNYRneeTlO1xNa71IonNOIRs|DnENTPlTyo5513MIIVAolNVINIFTI42O2UsSIyT¥NlVT1TyHxO7s113NTIIYNRRAlNeTMtO13s39IIoOPNeNlNtIOM53A3NTsIaVRl1eezetAIO20&eMTINOeMAeltICN1L20eO3FNO—aTNlyTI1tIN799aSNTT1&BadNL|RTIlMl0773eN1oTe=sRlNlNeNYITTM1o26TgMNNAlaTAoeYMU1MVIN8193oIT1OLRRtNiNTTTIM61N4HRloONTvOlNNTTD1INO53H3aonII¥tOdW.NNTTllN4p3aNMNaInRVONRNTluV-8i2WOa3IlIIVlNMVTAINcN4No”oVy——VNlElTETAM03W3oeI.FNTVRSNlTIOIV-7A1HoNO—pTV—TNMN.Tl1s5“a3RMViKMlTlMRIV3ON5iqoOOyRlONNxlT'Ma1193MaNAlVTMMUae75”y0dlN—%lNTOMPaI.~97?3eVON=VllTA-oW45?NoaR&&NTlMlONNDV0a8aW3kunTTldMTAAIlic2N0&aRa&BMNOaTVOTdllo4a113Q—AIO&MurMllRTNeo=a7—20lRMNWaRR neOlTNPM‘RRea53%ON&”M=lNMl1T8NMoN1L866bOea?ONoX.Vll—
SN GW)IS/3,
2 BTN IST 1
MA RO v04.00
~.
> REFERENCE TABLE (CREF vO1-C5
-

4-AFR-B'
11:43:¢8 PAGE

S-8

7
SEU

4VMARNITYN)VM4455667889.:<:.>>??aaAAflflCCDMO0DEFFNITO3=0D2RNIG~—MTN YTLAIeiyRuPUxk/R|/ER RNASUO iA)ORWTS2IA5QRw5ONT=—4YDR10QyME3R%

L'C/ ’

“

MACRO v04.00
v01-05 )

4~APR-8"

7
G
17:43:¢8 PAGE S-%

L{=6614

6614

L~6610
(=664
L=H618

L=-6614

L{=6614

L=475H
L=4L75#»
L4=4L75n
L=475#
. 4=475H
4=4L75#4
L=475#
47-35#
10-132
47-334
10-82
$1-81»
L1=62+
“=475%
4=665#

13-855

13-93%7
58-3#
L{=657#
L-658%

7=Ca
L1=63

Q=1

?-:,

4-584

4~481

4-525

4=547

4=561

4=-616

4-657

4-669

4-722

4=524
4=-545
4=544
4=543

4=546
4-559

4=560
4=-597
4-596
4=595

4-598
4~614

4=641
4~655
6-654
4=653

4-721
4-720

4=744
4-743
4-719
4-718

5-11M
40-1
4-742
4-741

20-17

[}
11

VARV RV, LV, LV, SV AW, [V, }V, )

23-48

4~558
4=557

[}

13- 45
4=-526

L~4754
L=4G75A
(=475

2 NONO
O NN NA
VONO NSRS

4-548

o
ro

L=4L75A

L=475#
L=4L 754

4~€05

L4=475#
L=475K

L~486
4-485
4~484
4-483
4~482
4=552
4=551
4-528
(=527

4-609

=733

4=751

L=-626
6-625
4-624

4=750
4=749
4-730

(=748

4-661
3‘621

(=727

4=661

4-588
4L-587
4=564
4-563

4-613
4-612

15-87
10-71

20-23

11-34

11-48

L7=-324
41-99«
41-7109»

1102
41=1
41-1
1-112

13-877

58-14
13-:70

58-5
"3-,36

13-,94

58=24

10-149

10=17+
41-92¢
407

11=27»
4" =G6w

41-100

15-14

20-32

22-6431

13-:04

L1840
40=1
.:—c.

19-8

291

39-

4C=1

4-602
4=-601

4~671
4712
(=711

4=747
4-713
4=725
4=724

4=726
39~1
39-1

39-1

40~1

4~617

4~670

4-710

4-723

4-746

15-165

=745

15-167

15-73

39-1

4«~620

4-708
4=-707

15-202
15-140

47=34n
VI N

L=4L75#

4=571
4-570
4=-569
4=568

L=475n
L=~4L754
4~4/5R
G~475%

VNIV, ]

L=475#

4-553

«-487

[AVR

39-1

20-17

—_—

L=475n

L=L754
40=1
L=4L75n

L(=4L75~

4~475
40~1

13==45

-3

(=475
L0=1
L=475
L£=475
L=475
L4=475
=475
4=475
4L=475
L~475

L=6618
L=4L 75N

bbbb%?bbb |V,]
~

(=661
L=6618

—

(&)

(CREF

T @RURER

O
50 Pt g

e D
B

ot B
St

Yoy

e Tl

DPrDIOTE

8802
8803
B804
8805
8B06
BB07
B8R08

TABLE

TST

—

B8HB
A

480

"EFERENCE

8 TN

[Py
S
N

oS,

M 85,872

O & =2
]
R

."‘W\

41-1614
L1=1624

41-105+

41=176w

W1=163%

11=-84

L7-11a

DRQ

DRVCLR
DRVSTS
DRY
DSWR
DTE
13{¢}
DULPRY
DvA

13-688

13=>3¢

13=>71

13-2%2
13-F 3G

27=12#

13-:55

13-.21

12-.88

13=-<6C

40-14

4G=1¢

40-1+

41-180

12-30
47-28

38-1
55-11
58-17
58-31
58-45
58-59
58-73
58-87

47=4

«7-7

4£7-8

25-12#

13-a10
13-G02
L=7428
L=7438
4=5504

13-a59
°21-139

10=23»

40-1+

13-47
13-:60
13-582
13-A08

NUTVNLVNWNVIAN

58~-28
58-42
58~56

58-70
58-84

58-15
58-29
58-43
58-57
58-71
58-85

13~-379

13-445

13-92/

13-929

13->71

13-E42

13-203
13-91

13-232
13-F30

13-266

28-128

3*=30

13-1351

2€-195

28-12/

28-"28

13-364
31-9#
13%3-130
6-0
4=574

13-515

21-106

22-38

22=41

22-42

26=195

°0-89

13-70

18-37

e1=-¢7

21-70

25=37

28-33

17-43

—

13-130
L7-28#

13-131
10-23

83
29

22-255

13-551

]

58-13
58-27
58-41
58-55
58-69
58-83

10-60
(7-18
58-14

47-16

15-62
10=23»
10-23
22~-313
4-62748
13-995

—

40-1

MO0
A N

13-=03
6-0n
5-14
(-7184
4=6098
13-993

40-1

54-79
10-59

el smed

22-469
10-23

4£0-1

58-78

4-=574
6-0

=481

13-922
13-€28

=00 —

58-8
58=22
58-36
58-50
58-64

L=5574
L=4754

o=6364
(=495
13-535
4=551
L=475#4
4=5600
4=-598#
L6378

13=.07
13=p49

BN~

11=7%
10-6

13-152

12=3

13=279
13-(99

AN =D b ek

DPEMI
DPELO
DPR
DRIVES

12-6

13-47

L-6724

13-82¢

Qo ~

47-11

L=5974

13-835

]

4L7-9

DPE

13-747
13-A90

39-1

DBEN
D8L
DCK
DD]SP
DEBL
DEVSEL
DISPLA
DISPRE
DLT
oMD

13-657
13-A53

1'=-86
L=621
39-1

L=-64L84
4{-595#
L4=5964
L=74L6A

13-618
13-408

—

13-139
13-293

COMMA
CONT
rPSAVE

CYLMSK
DB(K

13-604
13-a59
24=21#4

12-34
15=<99

58-=77

28~24n

L7=144

55-18
58-21
58-35
58=49
58-63

15-98

L7=12#

11-92

L7-154

“RLF

27=16
*3-a%6

—

11-61

L=4L75#4
L=4754

Te=56

13-g06

13=D95

13«f472

L7-104

CNSLO9
(NTCLR

ng-qs'

L7-94

SEQ 0293

—

11=-40

11=44

4
S -1C

00NWIES
N—
=
RN
OON

13-G02

L7-8#

"1:643:¢8 PAGE

'&l 1\

13=F67

11=32

13-910

4-APR=8"

Wil
0o N
POAL NN OO
NN
QD =

(NSLOS

10-84
13.297
12=28
13-582

VIV,
IV, ¥
I Ny X

(NSLO%
(NSLO?

«-7282
13-172
10=141
13=551

sie

aunarrc»ac>

NSLO3

1G="»

MU RT
GuT=(5

b —d

NSO
NSLO2

(. AREF

r=Q8

13=266

MPE RK

TABCE

vl'

NI NN NN

LRSTS
WNCTA

v\~

(N =

‘

NP0V
ONON

, REFERENLCE

W~
Py

ok,

(’/<

.‘w

13-E62

79
43

8-127

31-18

55-12
58-18
58-32
58-46
58-60
58-74

55-15
58-19
58-33
58-47
58-61
58-75

55~16
58-20
58-34
58-48
58-67
58-76

13-F67

C0O65A080A05GAO07€GO3GA0N%0G09GA0%0G50670G0G00Q0V][a(7-“0650C08G40560O70O050A86GO09aCdO%005G07G040060a0&.x.n“
AOMA,MONNNONSEAR DY—TORWNIOMTARINATOTNINTTYMOOeY i3

oIO2—0NAMTCODy~IL6EV0—BN)1T0OMIO—ONC1TNWNGMN0VU2YOMM0OOANVCWYUEO0BININ3NT0MOTUM3ON—VOLG=00O3NTBaN0TDNT4MYI—G—OMN0T5OIIN0—RQ6eAT0D=6MY0TIOR-A—NY8=%l3?.8#3?oOOQ]8!.o2?I«:6oT)f[>1l2“”7“26NATNlIYMON0MO«6OI—O—TM.U02OsfMOMI00NNlVM——0TN2OWOM—I300NUM0ETOMO22NCSO0UTYINN4O~N=GMROTSTf—NOMM<ANO02lIMIA6IW0&OOMNNNI—G0ewUOATT—02e—NN~OLTG—OMT0MaO0lOl#l“l)fil“M&'”NL;.””.a%aow~—l_]n®o.&
0O0a—2VOA0aN6O—d0N0Na80dI8OaAN0d0NO86AI0o0I098o0a6M8d0I8aG0d00a9A003r—0R=608DT0Oa00a-gt00M.AiMYAeNMYMTRMNNa—rNA0IO0M&GNoIVoo0A]~CYO)D-09oNOTN0AeN5Oy-IR0NV[9IQ0V§eINNE0T5ROSOVEI—A8oV00]0T=a00NOPO60N0TM6N00yOAG0TONYRBGVo00VI69VO0eMT060I0"CAa0T0IaNV6aAE00CXaV0T0oORa3L0000EY00—0A¥,vTA0RNAVAONVROLTTMO 3MeYRT~~32
M O3

E
E
E
K
E
.
P
.
E
E
F
E
F
.
E
[
a
Y
a
Y
a
Y
a
Y
a
)
c
o
n
0
c
a
c
a
o
n
M
.
e
e
$
L
u
v
n
n
c
l
c
l
c
.
l
.
l
z
s
s
s
y
1
.
'
1
!
?
2
A
q
l
.
l
o
l
z
s
c
l
YTYVYVTITLYLYNYPLN[)VNT)LUYVYNoYNRV|TTAYeNI 1NRR oUL nYNTIYRDYYTTT IRNTNTN T-R

|i’

Vo(2TOM<vV—-NXO} \0AOM~UGNRIoL0NyFM0YD a-oyY OeRNTUM-)OINlV 4PUeby1vNO6.’1<!\=U1'27J~‘3M4I5M6 OLTOWNOITRONAO—IOQOVNOONNMN MOTUNFMIMMIYNARN YTVPVTR%NM—OVIOVNO]NWOWRO—W-NO 0GA9aBOV0 Q06GAaOTn0d aG041AlOo0

oLT][.XYVoEV¥eXoPJoIYX«SVe].lVeTVeT[p RNSOTN0TROTORYVVNNGTU

MA ¥ R vC4%.0C
JRMMB. WMOS/ 372 FIIN 'SY 1
RuS> RESERENCE "ABLE (TREF vO1-05
-

4~APR=-81
7
I
11:43:¢8 PAGE S~11

174
13-355

-4
C-Q
SE

26=177
<

28=117
30-97

30-"30

[

20-133
[3

RMOS/37¢ FCINL T1ST 1
MACRO v04.00
R <4~ REFERENCE TABLE
(CREF V0105 )
z

SVVE.

8-672

B8=675

8-516

S3~2#

8-690

53=10#

7
11:43:¢8 PAGE 5-12
8-678

8-693

8-69¢

8~702

8-705

8-708

-1

B=714

8-699

EMS10
EMSI00
EMS101
EMS102
EMS103

EMS106
EMSI0S
EMS*06
|

T
EMS

8-720
50-3
50-7
50-39
50-40

50-177
50-56

50=210

50-136
50-204

50=212
50=12

8-68i
51=12#
51-13»
51-154
54=-3#
50-11
50-71
50-59
50-178
50-57
50-211
50-180
54=71#

50-232
50-15

8-687

54-10#
50-176
50-174
50-181
50-135

50-213
50-203

54=724
50-16

OTNR—CWNMN eU

OO —MNMINe— OO

ON0O—MN

8-516

51-24

8-690

51-114

50-196
50-197
50-182
50-141
50-214
54-704

564-674
50-183
50-196
50-215

50-17

50-18

— OVNOMONIYL MONIWNANIN

3N8%1S2%348512%637

VONROWNOLIOO MN—

161123456.0

OIONM
ON N0 M M== MN

Lttt
F
OOPU00NNDOMNUSOFCVUOM WN—O=NOAUND

8-669

&=-APR-81

S4-664

50-19

50-20

50-21

50=22

50-23

50-24

50-25

5T=26

5.=¢’

EMST151
EMS152
EMS153
EMS154
EMS155
EMS156

EMS157
EMS16
EMS160
EMS161

EMS162
EMS163

50-79

50-88
50-97
50-99
50-85
50-13
50-44
50-35
50-47
5047
50-36
50-36
50-109
50-69
50-13
50-50

50-3

50-32

50-78

50-127

54=77#

50-48
50-107
50-187
50-234
50-191
50-148

50=-50
50-108
50-188
§4=~79%
50=-225
50-149

50-51

50-99

54-83#

50-88
50-82
50-92
50-93

50~-97
56-844
50-89
50-91
50-102
50-103

50-90
50-101
50-169
54-88#

50-42
50~95
50-96
50-80
50-94
50-126
50-80
50~89
50-98
50-100
50-94

50~216
50-106
50-104
50-81
50-95
50-168
50-81
50-90
54-954
50-101
50-100

54-134
54-904
54-914
50-82
50-96
50-169
50-82
50-91

50-52
50-44
50-65
50-65
50-73
50-73
50-185
50-112
50-42
50-51

50-112
50-51
54-109#4
50-112
50-124
50-114
50-123
56-164
50-115
54-1154

50-116

54=1144

50-59
50-73

50-60
50-117

50-61
50-143

54144

50-43

50-33

50-52
50-11
50-19

501177

—_——a
N

S4=73a

O NN
W~

50-30
50-77
54=74%

54118

50-201

50-225

50-228

50-229

50-230

50-231

S4=814

50-90
54-86#
54-87#

50-91

50-92

50-93

50-9¢4

50-95

50-96

50-98

50-126

54-85#

50-83
50-97
54-924
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-974

50-103

50-10¢

50-105

50-106

54-964

50-60
50-45
50-108
50-73
50~-109
50-109
50-190
50-113
50-216
50-54

50-107
50-60
50-140
50-108
50-110
50-110
50201
50-173
54-15#4
50-63

50-117
50-61
50-184
50-109
50-205
50-205
54-1044
50-217

50-137
50~66
50-202
50-110
54-102#
564-103#4

50-186
50-107
54-100#4
50-13%

50-19¢2
50-122

54-984
50-137

50-187

50-188

50-193

50-222

54-95#

50-140

50-18¢4

50-202

50-205

5S4~ 1ule

50-67

50-111

50-13¢4

50-138

50-182

50-183

50-194

50~-195

50-223

50~234

50-113
50-54

50-173
50-63

50-217
50-111

54-1074
50-13¢

50-182

50-183

50-194

50-195

50-223

54-108#

50-123
54-111#
50-115
54-1134

50-124

54-110#4

50-116

50-173

S54-1124

50-62
54=1174

50-63

50~70

5071

50-178

O
— -

OC'DO

50-185

54-80#

[V LV
1V,

50=-61
50-140
50-195

50-109
50-189

50=29
50=724
50=226
S54=75#
£0-76
S4(~78#
50-45
50-77
50-186
50-23%2
50~77
50-143
54=-12#
54-82#
50-88
50~89

7
K
11:463:¢8 PAGE S$-13

OWO
&S0

EMS133
FMS134
EMS135
EMS136
EMS137
EMS14
EMS140
EMS141
EMS142
EMS143
EMS144
EMS145
EMS146
EMS147
EMS15
EMS150

50-28
50-9
50=74
50=~74
50-75
5Q=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
€0-84
54-89#
50-13
50-86
50-87
50-79
50-93
50-125

4~-APR-B1

O?O

JRMMBO RMOS/3/2 FCTINL TST 1
MACRO v04.00
TRUSS REFERENCE TABLE (CREF vO1-05 )

50-142
50-201

5063

50-66
50-179
50=205

50=67
50-182
50=221

50-70
50-183
50=222

54-1054

o re

50-64

50-65

50-66

50-67

50-68

50-69

"IJRMMBO RMCS/3/2 FCTNL
ROSS REFERENCE

EMS164
EMS16S
EMS166
EMS167
EMS17

EMS170

EMS17
EMS172
EMsS173
EMS174
EMS175
£MS170
EMsi77
EMS2
EMS20
EMS200
EMS201
£mMs202
EMS203
EMS204
EMS205
EMS206

EMS207

EMS21
EMS210
EmMS211
EMS212

EMS213
EMS214
EMS215
EMS216
EMS217
EMS22
EMS220
EMS221
EMS222
EMS223
EMS224
EMS23
EMS24
EMS2S
EMS26
EMS27
EMS3
EMS30

EMS31
EMS 32
EMS33
EMS34
EMS35

EMS36
EMS37
EMS4
EMS4O
EMS4T

5045
50~56
50-142
50-8
50-14
50-9
50-57
50-215
50-21¢6
50-216
50-216
54=129#
50-127
50-4
50-34
50~-128
50~128
50~122
50-122
50-131
50-55
50-55
50-168
50-15
50~-169
50-170
50-171
50-171
50-55

50~-236
50-237
50-237

50-16
50-179
50-231
50-233
50-232
50-121
50-17
50-18
50-19
50-20
50-16
50-4
50-17
50-33

50-177
50-21
50-22
50-23
50-24
50-25
50-26
50-27
50-5
50-28

50-2%

TABLE

TST

(CREF

54="184
50-57
S54-121#

50-49
54=-174
54=-123%
50-105
54-1254
S54-126#
54=127#
50-217
54=-1304
50~5
50~58
54-1314
54-1324
50~130
50-130
54-135#
50-142
50-142
50-170
54-194
50-170
54~1404
50-172
54-1424
54-1434
54=1444
54-145#
54-1464
54-20#
54=147#4#
50-238
54-1494
54-1504
54-151#
54214
54=-22#
50-115
50-116
50-19
50-76

50-18
5043
50-199
50-146
54-28#4
50-219
50-225
50-216
50-213
54-33#4
50-75
50-220
50-190

MACRO v04.00

v0i=05

)

4-APR-81

I4
L
11:43:28 PAGE S =14

50-71

50-72

50-172

50-196

50-197

50-198

54=1c04

50-68

50-123

50-124

50-168

50-169

50-170

50-175

50=235

S4&-122#

50-125

50-126

S54=1244

50-218

50-219

54-128#

S54=-4La
50-110

50-118

50-119

50-120

50-121

50-212

50-232

50-238

54-'8#

50-131
50-131

50-132
50-132

50-133
50-133

50-134
50-1724

50-136
50-175

54-133#
50-237

54-134#

50-179
50-170
54-138#

50-233
50-179

54-1364
50-233

54-137#

50-173

54-139#

54-244
50-115

50-116

50-173

54=25#

50-22
50-130

50~23
50-131

50-24
50-132

$0-25
50-133

50-¢7
50-145

50-28
50-146

50-208

54-274

50-227

54~304

50-215

54-324

54-1414

54-148#

54~234
50-173
50-20
54-5#
50-21
50-122
54-264
50-207

56-294
50-226
54-314
50-214

54-64

54-344
50-191

54=-354

50-26
50-144

50-29
S0-147

50-30
50-174

50-31
50-175

50-32
50-176

MACRO v04.0C
JRMMBC RMGS/3/2 5CTN ISt °
TROSS REFERENCE TABLE ((REF v01=CS )
EMSL2
Emss3
EMS&4

EMS4S

EMS4LE
EMSL?7

EMSS
EMSSO
EMSST
EMsSS2

EmMSS3

50-30
50-31
50-32
50-33
50-43
50-37
50-193
50-6
50~46
54=424
50-48
50-55
S4-444
50-37
50-181
50~204
50-226
50~-227
50-50
50-223
50-190
50-204
50-023
50-6
50~224
50-224
50-224
50-42
50-8
50-41

50-34
50-43
50-10
50-48
50-221
50-51
50-36
S0-139
50-49
50-69
50-35
50-35
50-38

50-206
50-209
50-211
50-210
50-58
50-44
50-222
50-7
50-48

54=-36#4
54=-37#%
50-230

50~229
50-120
50-45
S54-414
54-7#
50-~64

4&=-APR-81

'1:47%:.8 PAGE

S$=1%
SFQ 0298

54-384
54=35#
50-145
€0-52

50=177
50-60

50-70

50-132

50-147

50-186

50-187

50-188

50-192

50-181

50-18S

50-189

50-200

50-201

50-221

50~55
50-142

50-70

50-143

50-130
50-148

50-221

54=43A
50-228

50-229

50-230

50231

50-233

50-38
50-182
50-206
54-464
54=-478
50-51
50-228
50-191
50-205
50-228
54-8#
54=50#
54=51#
54524
50-149
50-14
54-55#
50-218
50-44
54-9#%
50-50
54=~58#
50-59
50-48
50-140
50-54
50-70
50-66
. 50-36
50-72
50~-3#
50-104
50-66#

50-39
50-184
50-207

50-40
50-186
50-216

50-44
50-187
50-218

50-62
50-193
54-454

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-48#
50-193
50-207
50~230

50-63

50-144

50-178

50-182

50-183

50-194

50-195

50-194
50-208
54-494

50-198
50~213

50-199
50-214

50-200
50-215

50-201
50~220

50-20¢2
50-221

80-203
50-222

50-190
50-41

564-534
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-179
50-68
50-189
50-137
50-38
50-198

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

54-59#
50-60
50-193
50-188
54-62/
50-222
S54-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-61#

50-223

50-234

54-634

S50=-67#
50-68#
50-69#

50-704
50~71a
50-724
50-73
50-11#
5C-744
50-75#
50-764#

54-56#

50-201

50-40

CZRMMB0O KRMOS5/3/2 FCTINL

CROSS

REFERENCE

EMT113
EMT114
EMTI1S
EMTI16
EMT117
EMT12
EMT120
EMTI21
EMT122
EMT123
- EMT126
EMTI25
EMTI26
EMT127
EMT13
EMTI30
EMT131
EMT132
EMTI33
EMT134
EMT135
EMT136
EMT137
EMT14
EMT140
EMT161
EMI142
EMT143
EMT144
EMT145
EMTI46
EMT147
EMT15
EMTI50
EMTI51
EMTI52
EMTIS53
EMTI54
EMTI5S
EMTI56
EMT157
EMT16
MMT160
EMTI61
EMT162
EMTI63
EMTI64
EMTI65
EMT166
EMI167

8-230
8-233
8-236
8-239
8-242
8-30
8-245
8-248
8-251
8-254
8-257
8-260
8-263
8-266
8-33
8-2¢9
8-272
8-275
8-278
§-281
8-284
8-287
8-290
8-36
8-295
8-29¢
8-299
8-302
8-305
8-308
8-311
8-314
8-39
8-317
8-320
8-323
8-326
8-329
8-332
8-335
8-3538
8-42
8-341
8-344
B-347
50-117#
8-356
8-357
8-360
8-363

EMT170

8-366

EmMT17

EMI1721

Emrize
FMrI1I73
FMT1 74
PMTTIS

8-45

8-369

B8=372
8-3/5
8-378
Be38T

TABLE

TST

(CREF

50-77#
50-78#
50-79#4
50-80#
50-81#
50-"2#
50-82#
50-83#
50-84w
50-854
50-8B6a
50-87#
50-88«#
50-89%«
50-13#
50-90#
50-914
50-92#
50-93#
50-94#
50-95#
50-96#
50-97#
S0-144
50-98#
50-99#4
50-100#
50-10"#
50-102#
50-1034
50-104#
50-105#
50-154
50-106#
50-1074
50-108#
50-109#4
50-110#4
50-111#4
50-112#4
50-113#
50-16#4
50-1144
50-1154
S50-116#4

;

MACRO v04.00

v01-05

)

4~-APR-81

11:43:¢B PAGE

S5=16

SEQ 0299

P
-

'
¢

50-118#
50-119#4
50-1204
50-121#

50-174

S7-122#4

50-123«#

50-124w
50-125#
50-1264
SO=1074

TST ° v01-32(?0 v04.00
FCTNL
RMOS/3/2S raat
CRMMBD
P (CREs
et

EMT23
EMT230

EMTZ31
EMT232
EMT233
EMI1234
EMT235
EMT236
EMT237
EMT24
EMT240
EMT241
EMT 24?2
EMT243
EMT 244
EMT 245
EMT240
EMT247
EMT25

EMT2S0
EMTZ2S51
EMT252
tMr253
EMT 254
EM1255
EMT256
EMT257

8-402
8~405
8-408
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
8-444
8-447
50-1504
50-151#
SO0-152#
50-153#
8-57
50-154#
50-1554
50-156#4
50-157#
50-158#
50-159#
50-160#
50-1614
8-60
S0-162#
S0~163#
50=-164#
S0-1654
50-166#
50-167#
=504

mooooouooc'ooooomcnou

Emr2
EMT20
EMT200
EMT201?
EMT202
EMT203
EMT204
EMT205
EMT206
EMT207
EMT21
EMT210
EMT211
EMT212
gEmMr213
EMT214
EMT21S
EMT216
EMI217
EMT22
EMT220
EMT221
EMT2C2
EMT223
EMT 224
EMT22S
EMT226
EMT227

8-384
50-125#
8-6

UL
|
(O I TV TV IV TV TV 1V, To XV,]
WRORORY
= =2
s O
SOV WO
N

EmT 76
gmr17?7

50-"28#

SO=-4#
SO-18#
50-130#
S0-131a
50=-132#
50-133#
50-134#
50-135#
501364
50-137#
SO-19#
50~-138#
50-139#

50-1404

50-141a
S0-142#4
50-143#
50-1444
50-1454
50-204
50=-1464
50-147#
50-148%
50~-14%4

50-21#

50=-22#

S50-168#
501694
50=-23#

50-170#

50-171#
50-172#
50-173#
50=174#

50-175#
50=-176#
50-1772

“APR-8"

&-APR-B'

8.
8 S5-17
*1:43:
°1:43:¢8 PAGE
. Uw

CRMMBS RMOS/3/2 FOTNL TST
MACRO v04.00
"ROSS REFERENCE TABLE (CREF v31-05 )
EMTO6
EMT260
EMTO61
EMT262
EMT263

EMI26L
EMTO6S

EMTZ66

B-66
8-53%
8-537
8-540
8-543

8-546
8-549

8-552

50-24#
50-178w
50~176w
50-180#
50-181#

50-182#
50-183#

50~184W

EMT267
EMTO7
EMT270
EMT277
EMT272
EMT273
EMT274
EMI2?5
EMI276
EMI277

8-556
8-69
8-559
B~563
8-566
8-569
B-573
8-577
8-581
8-586

50~185#
50-25#4
50-186#
50-187#
50-188#
5G~189#
50-1904
50-191
50-1924
50-193#

EMT30
EMT300
EMT301
EMT302
EMT303
EMT304
EMT30S
EMT306
EMT307
EMT3I
EMT310

8-72
8-590
8-594
8-597
8-600

50-26#4
50-194#
50-195#
S0-196#
50-197#4
50-198#
S0-199#
50-200#
50-201#
50274
50-202#

EMT3

EMT311
EMT312

EMTZ13
EMT314
EMT31S
EMT316
EMT317
EMT 32
EMT320
EMT321
EMI322
EMT323
EMT324
EMT325
EMT326
EMT327
EMT33
EMTS30

EMT331
EMT332
EMT333
EMI334
EMT335
EMI336
EMT337
EMT34
EM13640

8-9

8-603
8-606
8-609
B-612
8-75
8-615
8-618
8-621
B-624
8-627
8-630
8-633
8-636
8-78
8-639
8-642
B-645
B-648
B-651
B-654
8-657
8-660
8-81
8-663
B-666
B-€69
8-672
B-675
8-678
8-351
B-684
8-84
8-687

50-5#

50-203#
50-204#

50-205#
50-206#
50-207#
50-208#
50-209#4
50-28#4
50-210#4
50-211#
50-212#
50-213#4
50-214#4
50-215#4
50-216#
50-217#
50-29#4
50-218#

50-2194
50-2204
50-2214
50-222#
50-223#4
8-681
50-225#
50~304
50-226#

50-224#

4=~APR-81

c
8
11:43:/8 PAGE S-18

SEG NI

THMMBC RMUS/ A/
RUSS REFERENCF

FOTNL TST T
MAIRD vCe.00
TABLE ((REF v(1-CS5 )

EMT 341

50-227#
50-228#
50=-229#
50=230#
50=-231#
50=232#
50-233#
50-31#
50=-234#
50~235#
50-236#
50=-237#
50-238#
50-32#
50-33#
50-6#
50-34#
50~-35#
S0-35#
50-37#
50-38#
50-39#
S0-404
50-414
50-7#
50-42#
50-43#
50-444
50-45#
S50-~-464

EMT342
EMT34L3
EMT344
EMT34S
EMT 346
EMT 347
EMT3S
EMT350
EmMT351
EMT352
EMT353
EMT354
EMT 36
EMT37

8-690

8-693

8-696
8-699
8-702
8-705
8-708
8-87
8-711

8-714

8-717
8-720
8-723
8-90

EMTS

EMT4S

EMTLS
EMTLE
EMTL7
EMTS

EMTS0
EMTST
EMTS2
EMTS53

EMTS54

EMTS55
EMTS56
EMTS?7

EMTE
EMTE0
EMT61
EMT6C
EMT63
EMT64
EMT6S
EMT66
EMT6T
EMT7

gEMT70
EMT?1
EMT72
EMT73
EMT74
EMT7S
EMT?6
EMT77

EMTVEC
EQUALS
ERR
ERRNMB
ERROR

ERRTYP

D 8
':43:¢8 PAGE S='v
SEQ 0%0.

50-474

50-48#
50-49#
50-8#
50-50#
50-51#
50-52#

00 00 00 00 00 0D 00 OO 00 0D 00 0O
'
[
|
1
t
e
1
—
B kel
AY E
]
0 QOOOONNN—=OOO o
—
GOWNRIOOWVIN)
OO
N (=]

EMTLO
EMT4LT
EMT42
tMT<3

4-2PH-B'

8-194

L=475#
L7-3n
L=54L4N
41-480
L{=L75%
4(C="

50-54m
50-55#
50-56#
50-57#
50-94
50-58#
50-59#
50-60#
S0-614
SO-62#
50-63#4
50-644
50-65#
10=23»

10-23»

13-215
L1-49

41-52

Li="3n

13-965

13-:32
41-57

13-:98
{1-64

i3 .64

1604

22-84

22-86

22-102

22-136

ERTYQO
ERTYQ1
ERTYQ?
ERTYQ3

ERTYDSL

ERTYOS
ESRC
Y
1

61-21
L1-46

41-51
41-53

41-152

41-39

«-& OMOIB[UL

L1-165#
411664
L1-1672
L1-168#
41-169%

s«ag

~r -

22-29
22-29
22-29

4-568#

L~574

MOmVN

R(AR
S AN

[
]

L1=1704

L=6164
4-4B6N
L-L854
L=4LB4a
4=~4834

6=4828

UL Os O—cy

"——Ny— (&)

L
]

-«

-N—
INYSL

22-29

23-113

22-29

=
g
e
N
M
P
N
V
S
a
L
o
A
V
R
l
V
d
a
l
V
X
N
a
l
V
a
l
V
l
r
V
e
)
—
D
M
N
O
M
O
O
T
F
N
0
”#R&2M”y ePgoT

R"YikfERywY

13-620.
13-647
13-679
13-718

e—

Lal.al.al

L5 e NLIS ISRAT E II

.51234‘445.\J5566784v4n.v

FEK

~[=a¥—]

]

SEQ (302

—Me—n—
-&
MNOND
MNOND

nAR
—
0
u
m
M
—
NIO
INIMN — OM V

4Fala
& &«aMl*

[ogVXklT] CVMJ=

4R38N&7

ERR.EC(

5-20

0yoZaVE["a=loa—RX
XoatlVVaaYe¥aVlalaVeeLl
OND M

UL
3%44

E
11:43:¢8 PAGE

vOWnMKMo
——L ——0uM0LUJM

NOO
—e—e—0Ne
TYRERy

4-APR-81

) YVaYe Lal.ale
OO MM

RMMBO RMOS/3/2 7 INL TST 1
Mu(RO v04.0G
"RCSS REFERENCE TABLE (CREF v01-C5 )
i

ISMANOW91“591589242368046934813660414[gVIX
—VWIV]¥olRLNA"LolVelagAO4NOOedIWo~7KlNV-Ie_9lO-NeM01SlOO02NONL1=oMl36”4NOMML—-o—89o%22OeVOAtIo4y3lNQNo62AlOMo895%—OlIaA1Nn07SMdelN3“4“oNlIOa75&WnNdelMo9M%3T—lIo20“yeoMlOOo45=MTRk6277ToBlNT90MoTDe52“IWlTOaM”9DdTlTe—247lT=o633&TMlNIc7456oOnNele8yOIleA397o&TlNNs419aTlo655OleNRa99&dTlOa%1“"ATdVlaN408uOdTlo8&2oMTlg932?lTa8n63O2MdlPo596oAlPa”w9MnmNlPha8¥w5aTMli4u4MlPNLm5s0MaIondl

1O0e2N1Ie3N4DN893ee4?[8}9?3a7a9A22a4yA6A9£RA4BA7CA8%5C%8C5CYC0DyCD%CD3RCE2DE7DEDFAXEFNEFEF&FF&wFmFskF¥CiGr—i:tMReDnOE,
7-0#

13-63

7=0#4

13-594

ONS

T LWk

14=-<92
13-846

44-1
L4-1

5-1

13-£67

L{=4L874
13=-606
13-,32
13-a29

10=28
«=565#

TABLE

(CREF

13-168
13-630
13- 70
13-(23
5-1

441
13-259
13-629

44-1

Lé=-18
&=574

13-;34
13-a80
13-F01

T1ST

17-37
13-185+

1
v01-05

MACRO v04.00

[-V Q—XoX%

22=384
22-399

11:43:¢8 PAGE

22-401

’aAAfifLSY¢lCCNOCD]ReDEEFtF9C MiRkx“# -LaodPTenl—~ ThRk

22-47%
22-429

48-77

F%%%%%&&%9}333333333333333333333 MMMM N

22-379

)

4~APR-B]

LU3UL. 387| U1 ! S1e4R1r[
¥ o0 Oy

%155 REFERENCE

0S0Myyy—o—cM—-e¢-4~77X~3RgSwM—naM--y

3}A3P-eeA¥y3S3oLSR3kt3T3ePI3MTRN53M--——A3TTe3YOO -1STl—32LPIANe13N—AlSeO3Te—EANRr3eo—nOeW3OIlMNkNo3TT¥elOIYe3yoIlIN3leNIR3P¥eNI3yMTRveA3IeRlbU3R¥eMyN3ROteMeTRII3eRRlTOo3oMeAl3TRMO3iiLRl3otNPRMldo3oellIo7PoMTNllEo33oOllooM—®TTllRR»Moe3%TllTIoi3NnMIldTlNa26eVaTdllOsM}9TxSlNne1%eRDMllae}3nMRklRhN33eeMPllIIa33aMsBPoht33SeRMVTRURo33EMil~L55MoPntLoh
2 w 3b 3 8 N » By R 3L
TO—DAYOTAMe~yNM OV -- v OSMM®NTVYbIe3IOSIYNT—YTNYNOT—RTeT—TOYR eOM—0TNOTATIOMMTOOXR IMTNMRNMOM&&
TRMMBO ~MOS/3/2 FOTNL

5=¢!
-’
sty

[}

48-78
4<8-81

w"u“y1uNu5Mg17Im5N“M”1N47y2go

LE~8S
LE-8

13-A84

13-479
13-819
13=->01

13-F96

M2~M?V,M ¢MaMD~—

‘

;‘GHHBL KM S/73/72 BTINL TST T
MACRO v06.00
VS REFERENCE TABLE (CREF v01-0S )

N
- K

1Ag

(=663
L5048

1117

13-854
4=574

58~74

4=4754

38-1

26~67

30=-24

38-1

G
8
"':43:.8 PAGE S=-¢¢

£1-90

13=:92

-13-310

13-259

13=-A08

40-1
(=701

40-1
17-51

40-1
17-54

40-1
18-45

[ILeQ2

4=5728
48-70
L=4L92n

13-957
48-71

13=-959
(8-~72

{LF 26
ILF30
ILF32

L=S03
L=S07#
L=507#

ILF4&D

L=507»

13-976

13-:43

10-23+

10-23~

ILF

[.F26

L=71640

(=507~
4L=507#
L(=507#
4=510#
4=511»
4=514n
4=515#
4-518#4

ILR
iILRGSO

4=57'4
4-699#

ILRG52
ILRGSSL

13-720

48-69

(8=77

48-78

23-89

23=105

L0-1n

48-59

22-283%

40-1
18-48

32-108

48-872

48-RS

£8-86

22-155
48-73

22-157
48~74

29-51
4(8~75

29=-111
48-76

29-115
48-79

20=-24
4B8-80

20=45
48-83

30-48
48-84

4(B-58
48-87

48-67
48-88

4(8-68

13-.09

13-;75

13-<18

13-EB6
32-239
48-73

13-E8B
33-58
(874

i13-E 91
48-5 8
48-7 5

22-198
48-59

2¢-199
L8-60

30-81

13-781

32-88

6=5194

13--10

13-=40

40=1x

13-E4c

40=1e

29-97

29-101

30-232

30-236

30-239

48-81

23=1%2

Q6=47

13-A50
32-125
48-70

13-A53
32-149
48-71

13-E84
32-152
4£8-72

4-699#4
4-6994

4-699#
4-699#
4-699#
4-6994
4-€994
4-699#
4-699#
4-6994
4-699%
&~475#
4=7514
4=-750#

1PCK3
IR
Iv(

4=748#
4=7274
4~66BX
26-8%
48-62

13-83
13-456
26-208
48-63

28-58
13-:24
30-92
4864

13-:26
30-99
48-67

1X-A46
30-102
48-68

13-A48
30-171
48-69

4-6704
4=5484
4=4758
10-128
4=6254
L=t698

-13-367
13-215
38~1
47<23#
13-106
13-518

13-370
22-358
38-1

13-371
23-91
41-88

23-93
47-11

564~-79

28-82

3+=70

B
L87
F
LDk
CS
.

40=1+

13-D95

29-51

ILRGS6
ILRG6O
ILRGEZ
ILRGGL
ILRGOG
ILRG7Q
ILRG72
ILRG74
ILRG76
[OTVEC
[P(XO
IPCx1
IPCK2

13-D49

L=SCon

ILF&2
ILF4S
[LF&6
ILF 54
ILFS6
ILF64
ILF66
ILF74
ILF 76

4L=7478

30-78

SEC G305

22-377

13=:90

{BTa/E
[ aMLx
if

(=5628

13-864
22-386

&-4PR-81

4=749%

4<8-78

4<8-79

48-80

4£8-81

48-82

4£8-83

48-84

48-85

48-86

48-87

48-88

48-76

«8-~77

MOC

MCrH

MG
MRD

»S

mMSC
MSDRVS
MSE

MSER
MSGDRV

MSHEL
P

MUR

MwD

MwP
MXF
N
D TMSK

NED
NEM
NONE
NOP
NOTAVL
NOTPRS
NOTRM
NSA
0ocC
OFD
OFFSET
om

OPE

oP!

PACACK
PaK ACK
PAR
PAT
PDA
PFE(H

PFE (M}

PFECH?

PFEHS
PFEL M4

L=5L6M
26167

32-208

4&-600n

L~605#
L-608#
11-64
L-6768
L-603

12-67

11-1
4&~6014
4~624N
L{~6064
L=7244
11-19

L=574M

13-a10
13-GC2
L=721n
L=722#

12-7
4=-491H
10-116
10-113
10-107

4-631n

28-82

12-62+

13-a31

13-a70

13-p70

13=£06

23=¢2

13-193
13-318
13-198

21=92

21=-109

21=122

21=125

32-70

32-75

22-454

13-318

' 3-929

13-9%5

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

26-195
33-35

L=-5594

23-42

48-70
48-84
G=7264
4&=5014

4=-500#
L=5694

L=729%
L=6194

L1-47

41172
41=172
§1=172

3%-36

32-94

13-330

29-40
33-40

30-68
33-45

13-995

13-:62

13-,28

13-<31

13-<38

13-879
13-C43

13--79
13-(99

13-»07
13-D49

13-920

13-986

13-:53

13-720

13-781

30-158

26=146

32-189

26=156
32-200

26=157
32201

13->36
13-D95

13->71
13-£42

13-203
139N

13-:19

13-.86

13-<40

13-<42
13-900

13-802

30-64

30-155
4£8-66

26=162
32=205

47-164

13-318
47-17#4
L7~7k
13-318
13-107
13-318
13-198
4£7-30#

13-929

28-83

13-.28

37-71

22-343

13-551

13-259

13-582
13-A08

13-618
13-A53

13-747
13-A90

13-835
13-B26

10-87

13-198

21-74

21-78

25-31

13-544

13-606

13-677

13-790

22-328

L7254
13-174
L7254
L7-244

47224

L-6124
L{=644n
L=4978
45538

30-204
L=6674

29-37

26-53

0¥

MOPE
~:

(=599
L{=709#
L=604n
L=725#
(=607
L=602#
(~6334

31-70

13-'06

12=54~

F
MO

7=0#

MK
M. PE

L-6264

H
8
v1:43:¢8 PAGE $=23

« »TRK

4-APR-81

—a N

v04.0C

N =

NMCS/37¢ FCTNL TST T
JACRO
REFERENCE TABLE (CREF v01-05 )

JeMME

13-826

22-182

29-73%

13-896

30-2¢4

48-57
48-71
48-85

4£8-62
48-76

4£8-63
4£8-77

4~-501
13-<76

13-:32

13-<32

13-<64

41-172#

41-173#

L1-1764
L1179
¢1-1814

26~30

30-24

13-907

48-65
4<8-79

48-80

30-34

32-50

30~-145

32-185

48-68
48-82

32-57

30~201
32-210

48-¢9

48-83

JRWMMEBC RMOS/3/2 FIINL

4UNs REFERENTE
b
Pk
1P

PlIRQ

PIRQVE

PLFS

oRO
pRY

PRZ

PR3
PR
PRS

PR7

PRIERR

PSEL
PSW

PUT

TABLE

TST

(CREF

vO1-(C5

L=72%

13-'98
13=244

31-29

(=545~

13=215

13-293

L=549%
4~6208

26=177

L=4758
L=475#

MACRO v04.C

3129

32-200

32=221

13=427

13=A76

32=226

13=A79
33-35

33-72

3377

13-F19

15-180

26~156

13-701

13-710Q

13-766

13-769

13-<96

17=40

18-34

19=5

20-10

25=22

27-14

3434
3-955
3-254
3-F 26

13-455
13-:22
13-A04
13-F63

13-481

13~A45
13-F98

13-503
13-:54

13-A86
21=41n

13-533
13-<14
13-R22

13=549
13-=07
13-85%

13 ~568
13 -=75
13 -(29

13-610
13->03%
13-(39

13-649
13=->32
13-(83

13=73%
13=>67
13-(95

13=-745
13=>9%
13-D43

13-143=

13 144+

13-155

13-259«
13-404»
13-492x
13-643~
13-790+
13-933«
13-.26~
13-<33»
13-?16
13-€70
15-186+

13-259~
13-404=
13-494»
13-644+
13-790~
13-942
13-,26+
13-<33x
13-250
13-D27
1518/«

13=277+
13-421»
13-494»
13~664*
135-815+
13-993«
13-:28+
13~-<38«
13-785
13-p73

13-277»
13-421+»

13-593+
13-716=
13~927+
13-:62+
13~-,99
13-264
13-803
13=F 54«

13-183+
13~383»
13-492+
13629+«
13-781»
13-933+

13-318
13=423
13=544~

13-.90*
13-<42*
13-A34
13-F04

13-5"*
13-379+
13-447~
13-593«
13-715+«
13-904
13-:60*
13-,90*
13-<67
13-A66
13-F43

10-23+

45-1»

45=1*

45-1»

10-23

10-23+

10=23+

13-483

13-505

15=-213

30-15#4

11=-65

11-82

42-1

44-14

11-49

L4=-14

14=16

14-20
13-423

20-21
13-449

30-145

13-296

13297

13«15

L=6178

L=4L75N
L=4L758
L=4(75n
L=475#
L=L750

L=4758
L=4L75N

L=475N
13=267
13~-821
13-228
13-p89
&=475
&~710#
L=475#
1341

39=-5

12-48
10-26
13~708
13~-390

13~862

13-262

13-E36

L=4754

13=<42*
13-A28*

13-£68

RESVEC

SEQ 0%07

30-216

26=-182

13-:09
13-:41

RDY
READY
RECAL
RESREG

S-2¢

13=-336

13-890=«

RDLIN
RDOCT

1':43:¢8 PAGE

13-333

39-9
13-6
13-775
13-410
13-895
13-205
13-E82

3-39x
1 3-364*
3=445n
1 3-562+
1 3-677*
13-904»
13-:60+
1

RDCHR

L=APR=-8"

30-221

RCLSTS
RD

)

47-5#
L=4L75#
L4=4754
13-412
L=5164
11-12
$3-1
11-35
L=7134
12=37#
L=494
41-156
L=4754

L4-14

13-70

13-404

4414

20-20

13%3-:88

13 381«
13 =449
13-606+
13720+
13927+
13-:62+
13-<29*
13-=92
13-B13»

13-381x
13-449«
13~-606«
13-720«

13- 87

13 ~183x«
13 ~383x
13 -470
13 -629~
13 -781%
13-929+«
13-:66*
13-<31»
13->55
13-B40
15=126~

45=1=

L5-1x

45-1x

21-88

21=-9

28-33

13-469

13=494

15-185

13=-379«
13447

13-F55¢+

13=929«
13-:66*
13-<29»

13->20
13-Bl4x

13~-:75

15-188+

13-519
13~664*
13-815»
13-993+
13-.28+
13-<38«

13-a34
13-£20
15-18G+

13=675
13-846

13-995~

13=;32~

13=-<40*
13-a84
13-£62~
18-22

—8?F187£DS¢OAN<y\M=NIOO——eNVyNMN0[—~ON34MeO:M1)80D2M4\O80%-\OMM:IN(-7O—A1r~e71N—e)rO—5—9OMr81—v-r5M_—tfe9—iMc.2N—f%IN-6—-0g,—o-l—%O=0eN50—1cy.(VY]o-0

wnVoViN.Am(ub4DHAQ:)So
MVBaow<fiw«nOWILNyM#O£SO7aBAOVNaO—Y]M—ML0aIVemm8MA5NO1NM3O2NaxN«g7W‘-|V—IRoATSyR7AT%RwM
AO MM MMMMM
OM—M0MMM
O OS2 SR NN
NO~— OVO VW ——
O-R OUSr N N- N-

AN0\OINMI2W—NON— *] ] ] LULB et«L !-{

7 ZestifR ERERERy

W\OYmNOM=——A]]IOMMONoNNIMON0SO]]lNNOr00NNIOYM«]]O=—RNOMc—N\OM—&rNOAOI00OMI)OULO—LI\TN“MNIM«OLUNSMNNxtrMMEOIOMT1-OICNN=NNIIUNNtLd—OOr-D1POTUNOMMOM—T—BOMAAVrIAr—MVUNrMTN—OO~ecMNNe——NrrLbEY——eVrMMMOe—rMEOT ——LIwI1oMeNSo—oUey~—Mr—w-M—0AvM—MROMT3e——~wViMM A][ RPP
OYMeONl)[-La«Y¥~Q0VlSiDa\-oMleF—e&—«[LLA%(M(ouaao2d]llm]DL"3.e0oaNa)l]"l Noeey~N—AOOMLcPMNMCVIOMNIN0=ODN0MelAM@0 oo .a
-—c—c

NOM MM

MMM MM

MMM\

LOMMNNCY t SMOIWNAO ~M— L[]U¢KB- RULesTfc@Oy0MIN n&%«-“ -~1 ]U<[RfWYlV¢E] rL-e— O~V0 r=-e— [UL0%0O~ M [1N *«& zQmN=0.«es
MM

L 2R

“VI—bLFNMATIMMANwCR&F¥e-NavSN)—tMNT%®Syao*Rx«ny N=UMAOMTAIWMe— AxNX«&d —QUMOOMM)U]1LOONMwWVO MONWYWOO—N M—NOIMMOY
U1L

Ny [a

B- —1 [
MMM(OO1 -\[ MMi o—t

&=-APR-B1

&&&«

"(RMMBO RMOS/3/2 ¢ TN, 23 BB
MACRD v04.00
RUSS REFERFNCE TABLE ("REF v0O'=05 )
"1:43:28 PAGE 5-25
SEQ 0308

]

MN&e—N=MOON

ONN—MOANI—MFTOMOOMINONIOCMMOO—TO-r—MOWNMN

N(Oc-ReNOlxelDo=0MWJ_—=\FNo1WOnfb—~ey58—N3Z0y1*YOV8rNY—Vl~r0ONMeGx9V—0l#9MNl#8”#1D"3MO8OoO=1GRNN~2NNIO6L—#3eO9—Ao2M&VNOYV6IRTO—7eNMI0nOEU4ONNBMMO0wO~‘OyeN93W#0NOM—[8O#8n603&690AONI4\JSONWB7—O~%NURIM0—EONA89MRO8A—O%1r7%N——~U~e5——b
.—%J.FO-NO.D.——A ..W-.NN-O.N..O_0 O—MANONWOMNOQIRAON—NMNO»WONITNINCINOINO—NNINOx—NRy Tx O5 ——NvMyONe—IOsNIO—RNINtONL

IYTYeYToTrVTEP ITRTYTTR T TTIVITYTP

aYONMMOMP\VMMLeVAY0L]9O3'oO(MOWoSd91AON«IO-AMSUM0\1IN1CMNMAeN~[AS5M¢?a\MQV]%EA(©MO0oM=lt]0~‘hNNQM—MM0osLrObRNMA9RDeO—O«1IAMrOMM——yOIMrN<—NJVL[VrOMyMwTOWNq—SM—RGawO)M[-[n]0\BNA-NMOMNW*1OOMM—IJMNOe—NPNNTMMAA O—nwIAOI0YNjIOYMe—eNMNOTM—O0TMRIOOOE0O~—RONNgS\NNOAOve1JO—RNoNO=eeWmMS&——O«MMINIMN—NMATOEAOOnMYRNMIAVSOTGLRMCAOTRMOYNRMNMYN—NIUIVCTNN=OMUONM—SNR0AOOeT—MAOO—RPAR-IOO0RONRS—RUS0MMOTTMMONIT—NOONMMOO0NUDNMPyIMVOSNOyIeuMLNNMVeNANMn—\OAMRse—MYOOMN0MsEIeQeO0IMrSrM0-OA—MONreNRVNNMI—RINeOMNT0—OSNPMOTONMTrr
rT

(CREF

1
v01-05

MATRO v04.00
)

4-APR-81
11:43:¢B PAGE

T
%
—
O
=
M
—-=(OeWpU_NOIVMNINOIAMIMMNY «L&R=e—U-oNOMrIrOOrIAr~OIIAYNY 0v[oN~OWN—w+]0FNWOwW*N«&-® |LeRUPNKy x*«& NOCMIOMMNOM¢tRL!USLNQ[OMNoI0QW—VnAaI«lTgN0VI]TM ATYEyDRPIEYT TYTOIEWTVOPY4LY TRoYTiIEaNTEYy3NoIODT—0M8O—e~0R LSAMOom~N
” ¥

J-MMB) RMOS5/3/2 FCTNL TST
TABLE

&&“ «« «

"RUSS REFERENCE

S-2¢

SEG 0309

MPV,OMN(2]=[]+vyMOT~Mo—
—
-—
<
4o01 N]MmoyU §[-["aRCEY 3TOMM-?0.MNMJA3YMMv0 N-3— M—-b—M Oy AMw—04—eO~a0—e08MMOMM\M— [OAVa)RaMMM o)nd[eL
oO ao[M0 oy VoMwpnn)YMm¢[oYV.aul(nne[M-NL-9Vl]M-QMO—MAorMMe8—M —— [oM.M --la] OAw0OONrVeUU(ev—-O—|\oN=IIvUOaNQN-m~we-Qy.~ [LM-aoU!¥n[]de 0veNO-<-v9U—1\—Ncee20-<~v——HN— oMNoM 0ow)1]1 ~00
T
E
A
s
%
N7a~S0] [sl*=aY1-a&V"R'0e[]~ olonl OL Dw00OeB~rWNTe0O— \N [wN
8 \Ouw—

SVN[ow[[w]V¥Yanyyal)aXaL—a-o(M0[M--a=din}0——}dL"N—MM~e[o~a=—y¥y)e—W~6MM-gM(--i0Ny8Io00Ao~LMMnaa-OW-ny0—dLMwMNd~a[hL~waM0eamNulolgmO-eYnN~w—l]M[Mw-Nd— TMroN#)—OWOeySA0VVNW1MNfwX‘OONOg——Nne5tu9m3ae[3ooN TY49][ V¥o],N>M3RX[W3M0S8[¥e}W8oWOTrU—Ao8VOO%YM42——eNM.VeLVcO70SN—T»—O1*OMO«1aLI7mN2M[~M5~ay[¥N}]
&

—ON~M0M

[]

TNoM MONM Ov—0 —-M []}

11:43:¢28 PAGE

oWe—M

4-APR-81

—- 41!4% NN - g%0N859

2XA") L’

)

MMM

MACRO v04.00

Y oI¥o)
[ 1VaYe
Me—r—e—r

v01-05

MM —A o4

WLfwIK [%p¥—]4 12‘1-‘23 —ONM3AN

(CREF

s M — v ol

'1!t gOoy~O~ ]1[Mm1o-]y -=—M -0[—3]Y [a-V1]L,OMayl o-—M T97 5(-= L[2a-V]db,oMlgY) oM—nN Y(-9o}]
]
R
[
—
O
~
r
e
—
0
[
~
—
o
)
M
M
A
o
O
D
M
M
]
O
B
o
e
R
T
0
(V[¢A—eVLlR- MoyM ~ONMr 0OH—o

-@<!L— NAO-AUU [
]5 U—7 T I
~— —(=4 - o
M-[}— MMM-U-~3 w%7 T—
[o O[N— T] B|8R %|
Mi1 --[N O4 om[

&88 ~

CIRMMBO RMOS/3/2 FCTINL TST °
TABLE

!! |] J 1i1) MN! aMOMb01taQ M-[
] -!] -)P1

o(7I]

- — Nty o — -

oo s

v
F
E
Y
V
,
X
V
V
2
B
(
V
e
R
E
R
E
I
S
E
T
R
Z
A
R
T
E
R
E
S
R
@
o
NMIyM—eO—WPNIe—NTeOMSTI LhELATELT] TN
NIRM*AL R ¥yIRATNIINRyI IA AITI —R
"ROSS REFERENCE

$-27

SEQ 0310

" {RMMBO RMQS/3/2 FCTNL TST 1
MACRO v04.00
"ROSS REFERENCE TABLE (CREF v01-05 )

52=2

52-8

52-10

&4=-APR-BT1

52-11

11:43:¢B PAGE

52-12

S-28

SE0 03N

S6=144

53-8

51-8

51-1

51-9

51=12

51-=1%

53-8

53=10

53-10

39-1

5384

TAGADR
TAP
TBITVE

TIMoUT

TKVEC

TPVEC
TRAPVE
TRE

4=4L758

53=11

39-1

42-1+

39~-1

39-1e

45-1

45=1¢

13-858
13-a50
13-F22

13-951
13-A00
13-F52

23-66

13-385
13-:84
13-810
13-F94
42-1x

3-406
i 3-:50
1 3-818
1 5-136
4 2-1»
1

13-430
13-<10
13-B49
15-198

1 3 5
1 3- 7 1
1 3=~ 2 5

13-477
13--99
13-C35

13-459
13~->28
13=-C79

M M WA

21-109

21=125

22-106

22-108

28
63

13-564

—-

TAG

53=11

55=264

42-1

TA8
TADMSK

53-10

2 0-

13->95
13-p39

23-12

13-722
13-224

13-D85

13-733

13-258

13-E3¢2

M M B0us Ne0

4L=(754
L=-6564

13-1#

13-375#
13=-400#
13=417#

]

v e 0 \ONDCO
— 0000 ~N

-6604

Mamn

39~1

13-119

39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-1

FWwW
I

28-10§

31-83

39~1
39-1
39-1
39-1
39-1
39-1
39-1
39-1
39~

39-1

39-1
39-1
39-1
39-1
39-1

369-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
79-1
79~
39-1
39-1
39-1
319~
10-1

TRTVAMA

‘e

TRTLEC
LI

WWWWWWW\..NWWWWWLN
1

O°W~AA(=]%Jo]EXA[ewe%0o7
Oa[0vY-"]YN[MoNYa8Vy4l]eNaol[N 2V2LwY-[N}]aa"nl[1ak[a.0awe¥¥)a]]]ol., MM-ML~ayl ~-r(—IN4eAOyO—GrrRS-r—mSOO—rr——OanNgrNl—ar-uOl0—0NLaNyardh—e—M4-oa—MRN¥Nroae—lMroaAlN-Voa0—lToN%lMWL—aa8l@.“Ma—l

D)DNOO5—&&RO%I0NvT6ORIhIOTRI[~=r]AIRI¢a(O-]0oIw=TnIOeMMNNOIRo=ATONso (~M&—y}—NoM0-9O¥01OyM5aT—JtVY]3yD3yowNM O[ MO--—]—s=IOT—MrN-=|PN~Lr—~cP|“OIy—MVONJRFgUIOrReMNeOMINL0—0BVNONyNm~LTQ—|Y1NNeW%.VQR3L0NOMM¢(-UoeRO5gX-Bo4OMlMo&,NeNlPesVNMl1N3B4OO—NMN~0aLoY(aN8Ml&U.BMeLaNL8ElTA.Y%—E

F4LmY.Or"-MO~-eo(——3N'.tLX-AU~U[TO.N(o—3OVaL~3MX[\.¥~a—-ZNyYm]—IA0CL0D[OaX!¥'YId]EA“3EoNo~N—:!My0N'NYeHMO-Oo,a~0f%MOw-Nl1NoO0[[N.lIy6aYa—y--gVVM3l]TAYIRNMMNUCNM-S—AJLMoo-VJdMMY—LMON([v-L—a=¥]Rva'~NaS€-z40?0SABC”)4[T(RTXSNA7NXS—AJENTX]NPIVfKeIEONRX—=NO&2ooM=lan=okMklXoXlL—M—»k[0P%WA»NO>SK»DUV——-—MyOAQ-N~MaRe0OOeN~AAu—e»-R—OCORAoW-—)tWeO”R—[5Aa—NwN-VE3R.
! !

4O -M —yOgO eNr-=S r— LMNV MVeMl

!
[
D
)
o
O
M
0
N
a
O
w
y
o
W
n
MoNev\e=J~—y0e— NYMse— ~N—My No-y ([R]I [8oN-¥]e—, No-—\

]O] No[LM,Y oN1[
g<] MN1 o—yO|

1t )

a Q

hw~xaNv-4.UVL)UTRW y3) 2R> w¥5w8R %) m m gy .- s
0o[]U]VAaNlNLaL¥a1L, O-w ]] eM1— (O1N VYOI]L 71 ANA AN ARLR
I) 1R 1! LL -Iel % PTNT TYU TIGVTIT Y
11:43:¢8 PAGE
<
-

r—JI~gr-—tre—U[I]L| -LeoAX47—glN ONb4 AWM1N—-o

3] \ ~ , ~

4-APR-8°

oo0y NM— Q g ) O A ~

JRMME. RMOS5/3/2 FCTML TST 1
MACRO v04.00
LSS WEFERENCE TABLE (CREF v01-0S )
70

M ][a¥],

]

M oholo

30-106
33-61

I«5I7AQ(7A9C4EAW&V15%153W45665784953P~O3yJIW&3I2o02n%a78>795>6496%3fl%8“0W8P?”Mm-—0NYNSQESL
—A—6o&MSaOe-N-}AeMon1aYlfSoel8aMnMNro3dLYlo1%92=lMAtOa%VNlRMsa5lAWa8NdlAhNoe%nalMcd0lao2MNPMVlaA7MTMnldlMoeN3~TleM%9ablMOMs6aeld—o%2eOMlNM0aoPlATOs%8anMlTdP1o5sn@laeedPMa8nlaeNdaneFlMadliLNM-o[l—VadadY[LWTTNTOFMANrMAMNInNO2CN3OTM—NON~T3IO3WLNIeORLg-MA¢WXya—bVU1—IMYvRar)UoM1—S,j"Moa-Nr[—UnAad—rp¥LO

wAoD>>A—N070OO“oNO>tR.1>o7L0—]3P7N9SU7ANoAoa.k.l0lO74a}NloaoWB.aO=lQkN.MooAAaaNlClICOJAcAaooOIO—lOuIlb£CAhf~areICrlMNrlaDY\UGoTONRa.:I0l.—TVN2OMNMaglOilrNM1siaOMOoeIaNNOeVlVlRNlaoOTNRIOlONI,.OaTOJoTINlFalMMoToWeM1lkNNlF0T®NoOeB.NOiWllNI-AasONOanMlMVOAlONeSlNNNMt—NI.DooOOllTMaDEoNol=MORClANIoe~WN)Xl,iOoIoNN—allLALMOlDNOORo-lMNNAT—VPIWONZ”eO%—ePOre0%mAODOVWHO—[LOVrV—YeO=0TNViIr—T¢VOT0~TOMWNyRP¥w—~~gN-]3r—iEwPTNVrTwaA%-nI)d—NMov—iR[oN NE<MAl-N~0aror[OR2lLQOm.l
b gy Ry AR &R

«N2oOOITMa—MMilnARSRRe1MWooNRNlYWWONGkEaoOgl—OYaIynDNFMNtOOOMaelalMOoNO,MYeO.IOIMoTOtIatNlMaUeNtNAMV—lN,lOaoNeAOtMVA~AaI.FlRMNaUTlOTaIolSINlaleMI.MOOIRl—eTabloO,iYNTaMloI4e.aTteoMl@lI—MToI4RTlTOe,NNaO—lTN eaOeAA4FQlATOIlaIMOlNee\NaO.RlN4NreoaaElSCTI TTlOL4WD-[=—A—MeAN]OXsAr4oA4WaNASOAM4QRAwSeoNO4‘—DS~AwD4RgRSD4NANERw4HNOASNwRg4NNNSRO4&NAwNRw4NeMNRSoA4N0TRA3NSa4Nr3NSNMI0]3>R”RvSL3dT$[4e<MU)]!WMNLysNkDloaoMVAlMU1]ANaAWuTA —)-“l!1OL[AS7AROX[¢T[L?Al
VNA—eNARPA2iNe—SARANIRO—IHV—MgCAENuORRNVO——DMTORAAAR&M—VVWoDYCYOMCVCVe—eANAlO.ANV0MR%AINIMBe[8NNOTTMNRI8OMVOYNOO.II[DONMV"aYDNlY«IVaNOMSEM:AM-OR«AYNETN)~ALTOMRVTTae~7OlYORA..TNaDMRM7OeM=YAOMeNPTIOINeMriTNIRWWOWSMMTTNAPYy—eTVAP[MRNOaA—T¥PN]AWMR—MM 0NO MM "N-TM-ARAOR— 3Ago&A3Q')'7—OFN—A—MA-T——MMNTN—MS~3)'
4&~APR-B1
11:43:28 PAGE M=

(

BePTSa-A~o AfNQ-lMVoN-A—FTcC.OHON YOAL(Mur0UO—NYVL
o3Oe
m28V8Y-YNSYS—Yo—oJYVOIBo—to—tANolNaYARolOSoNloTOtalaVYlNaIlRLNalOaElMBN —

"’RMMBO RMOS/3/2 FCTNL TST 1
MAIRO v06.00
TRCSS REFERENCE TABLE (CREF vO1-05 »
9

SEQ 0314

13=488
13=:48
13-a2%
13=F 79

Lb=18

13-<99

—PBMNNI—OLNIMLTNBM—FOMNILWRMNOoONaOlIoOToRoANtoR0lONo%VMo3VtOUWoT~o5lMoMtO9oAOloRlMg8lOaVloOo3Ml—NOoMtoIOlNoAlEoMOVRet=ARtTLODolNMoMlOe=tIN~olNOaNOlCaloNlTalMNoN=lLSAlRM7WO”1MX60EM97R
—11NY6OVMg(1oNNQYfOOylGrN1g1O-\O6MNN<.1a7VOfMO5NlN01~O0O.D25T3N8O4\8274(O3N>:NUeO0><9A—l?e:T6O~MlFIao>N0M—lOeO5OVAl7M3MnNU3eM0S0—lF9u~OeV0AF8C=l7GONf0e3OOrllDN—MaGWICOEd0lNa%—FNdDOlAa4DOn.Md\lsE9nMaNNdlrs1nsvWvlFs8TOle4UMlMa3eOOIdhNe9—OlIMoN6aOndlNa7nT2ONOdldNOON2lIo5ONNlAeNI7N—Llm&aMOUdOlNIs7nTaMNMdls7uITndlNa1naC(lMUe1OlNOIo7NOlMVScVn-OaOSlMa0nLOdNVlaNOenlSO0o5QeYo7~Ml-oNW@O—lyo7L~MAl
..

REFFRENCE

0ATN0R0OL0NR00INN NAROBOORLTO—MNROASIRN—AMNNNIOY—AOIRNAIANONNSIAMORMOeS)M

RN[TLLtTITTN Y NIRRNyPTPTYTRANN YTNRAR N RLRT[yN

3N%eXNSO0N04—N1M—3O1e«[NM-MR\RyaI~TVXr3A0”roNMUOV'MMe33—O.EW1VVro0MIYrNNeYM-VS344AZMOMI1o]rN66M.AMRNYNN.Nr34&IO-1e-VMe30MJNVae1431ARLWY-——MMeNo6726MrN[«53ayQMWO~-AOo]1N—c—l03M}ic5wN—.33358V38V%OYNOa0o)lTY[YN—3oV77Oo—MlLOAo3U5MM0~TL—2NNlN—YIYfROeNoMNNM2WMTlNlkAiYONOEose3OW78VVc—AlNYlT0ao.N5AMMnFOlNdYOLIeo352UMM—lNNl5NDMoe04VUaUQ0NllMNNFONnSt3GO67llNMM~OooOWFVYNllMIeo359MO02lNNlNIIYOogAe2N7nMsMTIlNlOVNA3oaF13WeN—lMMNdON—Loe72sCROTlOVRAlQN3oe2aLNeNOT"nTlNdlATaoVs4OTNPndlQNNl—ONO3e1r8eRAANlNlOTM'ARo1o7NVRAPTAlTNlNNMYO3eWMo7aVnOTlRdNMT)lNO7o1e)TlelMIMN3co52AaNAVOnJTlTlNINAGNOIao03FnoTNlNNdROlAMMT3aV61n0YeNANNdlTRlOa44—3eONWADdNlMN-l0OANa08aOT,NndIRVNRlNlVIs%I70aOMINOnlMANMdATabO?N3nOlPVdNNRMYMYAa437nGV0IaOT0MNNlYVa00NaRVU0NTnllTIlOObe8s3RNVlMlMNMTPN3a6~oaOTOlMtMehoa25NLMuRAllMPYL39”—MaeonllR93”1aIMMeo0)d}a3OMO—Ma~oeCSAdoT.l0l—MfVa4ogl}i[lnM]lOLfaoR&a6unM—d.tMl0bMMruafo6mO”L-N MOa[leloO}hlNtLL
S~

JAMMED RMOS5/ 372 FOINL
TARLE

(CREF

TST
D
v01-05

MACRC v06.00

4-APR-87
11:43:/8 PAGE M-,

9
SEQ 03¢

I L LU R R AR N BRI Sl g SRR SR

(Laoimgse1n-—s1da1lt1‘1M2N}MOYD,MVY¥A03~MOANMOTN=AVT0—OVNIANMOYN—W RSYANTLSVNLEVT ARMTOELTLNIYEVTvYOB72INDSAM—eRlN=O0WeNo—MNM~IO—NMU1AeNA—N ASRTIRN0STM=NOFTA—W0V—NO AYNSORNI %BUM}¥}33MF03333%33333333

NGOps V ANaa X@ w

]

13-£96

21-2
42-1

OI0ONULN M NM——QNOOOe—0O ~oNy ONeNN4O-Un1~Ooe,WNTLaOlL. -i1 —NMNNVUOO0LNOMYON ——LWUOp\

—V= Q2o

XNN
330- N—N b Pe e e e N

W
D
.
S
m
r
p
v
4
[
+
I
A
R
A
R
RNR& EO—MR—NMOAMONMRMIO&—M
NwnOiNR3aBlLY—R
Nal"aOlM"NalVaONlVN—agaO1AN"LNIE-MN— o[SAgla"Ao"lV],laaNRolXlN'aaARlYnNoNlIaaolRNdl.—XLR[la-ol0OhAgaRI RMwN-nAASRT3NAORIS

—
—
—
r
t
—
r
<
3
e
N
—
OO—e0—NNONONIVM M—eN— oM0V[Ve}a1OI,Va0Nl.PaNl-)—.TOaOl,IaOlAa—GVAe-l—Y SMNMRIggONAON-N—RsyMO-—~=rOM—MyMNryeMM—eO=
O 0 JOoumnAN =N

A<7OT-—.YQMUAWR{NNE2IMTeQDMNVYWMI1ONSMOET4eMN—MA0R5YMONN NY-<374y O[—NRSee~ IeNT—N~ky~ST—%NW~NA Ae-—N_&l—tvO_.y—

—g- -—SaN[(7—la¥N"0]al,Oa3rMelVM,tMaOle.Ma—lMalg-NLMTALMl8oaM,MOl0r,inOGlOU0NMMad—NMlO ~PX34~—[[ UzV2RN[Sa9OaOMN—-NUYoMMMM%NNeOO3—NNMNMMM02WgrLVNON-MNMvM—yVO(~OM-rvN&)

§414o9%32&O2?37—'N5I3NC9IO4WO&WN5.NOOM(I%N&M6MA1O54O“6o4r—P4REN4R4r8aT(V]—A-NQMWMMAevMMA=N-I—aQ=¥MMloMUON—OMrGM—IsDAMK~3-'oo3y~lrp"\f'lAvgVTMvVAOMeM—NvMN-OVe—NM[rG—a>)eMM—MO-—MRM—MoYN_NO~yO\tN
Cm\ugXsmRr.f IR 0[@NO02y¥—0e] oNO1MyO0MO ONoIa1U

13-£96

42-1

22-26

]

42-1

RN v A N

]

13-F 35

22-34

12-68

G0AI9X)OV MOATNIN—NWNONINO—MPOVIBO 0G48AOl O—NMnOnNOMo—NNONISI OIOV—MIYNTE €6GA0OUL OVN2~ UL NPO—eM 03G4A8OQLUPDON=NM—QNLOONIMNAIYNO aG0Q46OFNOUJ—=NUM D2OQVMNTUA Ga0A(O08t0t 06AGC(Oo MLNONOM~N
5
9
5
9

~r—

i3[VaaERYVeaX

~zLol

~-e—Jy

LAY

3D e
ey

MOV To~ Ry

—oo- NON

m06u0r9o0ny0 o£

4~APR-81

—®nNo—No

vO1-05

eOWU
U
N— NIYVOVOM
OMOODMAO AINNOON AWNONM
N0MNON
U
U
SR
OPA0,0 0RO—GOMGTOISA0a0ITY0VOG0GO0 0 Q0
A0YB4TO0OGAE00IGaPO0XAN00EOORIUTO0GNIGOOLNM 8A00ET0RAR0SG00C00TI66OYMR6000eOT600nRV00

(CREF

MATRO 124.00

TR OYAT T IeRYiTy

[

TABLE

OOCUOUM2N BIYMN
G v—

"RUSS REFERENCE

TST

g¥e/ JaVAS N [aY
O
=
TV Ta Y. 217.Ye XN e VRS T Ja [a¥]:(NG00 —
O Me- W

JAVMBO RMOS/3/2 FCTINL
9
3
11:43:28 PAGE M-3
SEQ 37

]

61-54

14-20

8-21
8-63