Digital PDFs

AH-F925B-MC

August 1981

309 pages

Original

15MB

view download

OCR Version

14MB

view download

Document:	CZRMNB0 RM02-03-05 RM05-3-2 FCTNL TST 2 AUG 1981 bw
Order Number:	AH-F925B-MC
Revision:	000
Pages:	309
Original Filename:	CZRMNB0__RM02-03-05__RM05-3-2_FCTNL_TST_2__AH-F925B-MC__AUG_1981_bw.pdf

OCR Text

or T2 rbies HIEONET
RH02/03/05 R"O%/RdRuiGo" T 2 Riche®

TIRMNBO RMOS5/3/2 FCTNL

TST 2

MACRO v04.00

4-APR-81

11:43:33 PAGE

.REM

NNN—)—A—J B Y

QU G

=000
N NN 2 OO0 M
(AP -2

SEQ 0001

IDENTIFICATION
PRODUCT

CODE:

AC=F924B-M(

PRODUCT NAME:

CZRMNBO

PRODUCT DATE:

APRIL

MAINTAINER:

(X DIAGNGSTIC GROUP

AUTHOR:

MIKE

RMO5/3/2 FUNCTIONAL

TEST,

P7 2

1981

LEAVITT

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

WITHOUT
DIGITAL
ASSUMES
MANUAL.

IS
FURNISHED UNDER A
IN ACCORDANCE WITH THE

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

(()

1980,1981

DIGITAL EQUIPMENT CORPORATION

CZRMMNBO RMOS5/3/72 FCINL

TST 2

MACRO v04.00

&-APR-81

1
¢
11:43:33 PAGE 2
CONTENTS

INTRODUCTION
1.

ABSTRA(T

UNIT UNDER TEST

OPERATING REQUIREMENTS
1.

2.
3.

HARDWARE REQUIREMENTS
MEDIA REQUIREMENTS
PREREQUISITE

DIAGNOST!C

PROGRAMS

uvin—

OPERATING PROCEDURE
LOADING
SWITCH OPTIONS
STARTING
HALTING
RESTARTING

OPERATOR INTERFACE

NOVN

PROGRAM ].D.

CONSOLE DIALOGUE

PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRAM HALTS

ERROR REPORTS
EXECUTION TIME

ENVIRONMENTAL
NOVW
S NN —

NN DIN) =D =d ced cad md b ed od e
~NOMA B WIND OO0 NI
AN =

O 000N

N IS NN -

SEQ 000¢

SUPPORT

PROCESSOR

COMPATIBILITY

DUAL PORT CONFIGURATIONS
MEMORY PARITY HARDWARE

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

TEST DESCRIPTION

1
1
;

1
;
1
;

=S OVONOVNE
NN OO YN W, o

TIRMNBG RMOS/3/72 FCINL

2
22

TST 2

MACRC v04.00

4-APR-81

1
D
11:43:33 PAGE 3

1.0

INTROPUCTION

1.1

ABSTRA(T

THE

RM05/3/2

WHICH ~ USES

RMOS5/3/2

DISK

SUBSYSTEM FUNCTIONAL TEST

FUNCTIONAL

SUBSYSTEM.

MEANS

FOLLOWING PURPOSES:

VERJFY

PARTICULAR,

IS A STAND ALONE PROGRAM

THE

OPERABILITY

THE

PROGRAM

THE

SERVES

THE

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

TO
IMPLICITLY
ESTABLISH
ELECTRICAL INTERFACE;

CONFIDENCE

THE

DRIVE/ADAPTER

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

INCLUDING

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

27
28
29
%?

1.2

26
Sg

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

UNIT UNDER TEST

3
33
34
35
36
37
38
39
2?

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS

44
45

THE FOLLOWING
MINIMUM
HARDWARE
OPERATIONAL, IS REQUIRED TO LOAD
AND

48
49
50

5
52
53
gg

PART 3 TESTS WRITE,

THE UNIT UNDER TEST (UUT) IS THE RM05/3/2 DISK
SUBSYSTEM WHICH
CONSISTS OF THE RH MASSBUS CONTROLLER,
THE RM(05/3/2 MASSBUS ADAPTER,
AND THE STORAGE MODULE DISK DRIVE.
NOTE THAT A DISK PACK IS
REQUIRED
FOR
TESTING
AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK
DRIVE.

FUNCTIONAL

CONFIGURATION,
ASSUMED
TO
BE
EXECUTE
THE RM05/3/2 SUBSYSTEM

TEST:

PDP-11 PROCESSOR
20K MEMORY
KW11~L OR KW11-P CLOCK

PROGRAM LOADING DEVICE
TERMINAL
RH11 OR RH70 CONTROLLER
1 TO 8 DISK DRIVES (ANY COMBINATION OF RM0S5'S, RMO3'S OR RM(QZ2'S)

CZRMNBO RMOS5/3/2 FCINL 15T 2

MACRO v04.00

4-APR-81

1
E
11:43:33 PAGE 3-1

SEQ 0004

2.2

60
61
6%

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

MEDIA REQUIREMENTS

2.3

RMO5/3/2 DISKLESS

PREREQUISITE DIAGNOSTIC PROGRAMS
TEST,

RMO5/3/2 FUNCTIONAL

PART

TEST,

PART

§ 2
1

73
;g

3.0

OPERATING PROCEDURE

3.1

THE PROGRAM MAY BE LOADED BY EITHER OF

80
g;

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

83
84
gg

3.2

87
gg

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

SWi15

HALT ON ERROR

92
93
94
95
96

SWi3
SwW12
SwW11
SW10
SW09

INHIBIT
UNUSED
INKIBIT
BELL ON
LOOP ON

gg
99

SWITCH OPTIONS

SW14

LOOP ON TEST

Sw08

UTILITY

(CURRENTLY BEING EXECUTED)

ERROR TYPEOUTS

TEST ITERATIONS
ERROR
ERROR

LOOP ON TEST IN SW07-00

THE LOW ORDER B SWITCHES

(ONJUNCTION

WITH

107
108
109
110

THE
PROGRAM MAY BE STARTED AT LOCATION 200 OR 204.
STARTING AT
200 WwILL BE THE NORMAL STARTING ADDRESS.
STARTING AT 204 WILL ENABLE
THE
RH/RM BASE
ADDRESS TO BE CHANGED.
If RUNNING IN A STAND-ALONE
ENVIRONMENT, THE PROGRAM USES CONSOLE
DIALOGUE TO ALLOW THE OPERATOR

113
14

THE OCTAL NUMBER OF

USED

SWOB
TO
LOOP ON.

3.3

SPECIFY

(SW07-SW00), ARE

100
101
102
103
104
}82

;};

THE FOLLOWING MEDIA:

THE TEST WHICH THE PROGRAM WILL

STARTING

TO CONTROL

TEST

CONDITIONS.

TST 2

MACRO v04.00

3.4

4-APR-B1

11:43:33 PAGE 3-~¢

SEQ 0005

HALTING
THE

PROGRAM SHOULD BE

NOTE:

HALTED BY

TYPING

CONTROL

FROM

THE

CONSOLE.

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

HALT.

3.5

RESTARTING
THE

PROGRAM

4.0

OPERATOR

4.7

PROGRAM ID

(AN BE

RESTARTED

ADDRESS

200 OR

204.

(SEE

THE

FIRST

SECTION

INTERFACE

o ad et

D i

rd i) i e

) el

)

D aed oD

D ok d

D wiad e

(a3 Yo To JVIV IV IV IV I TO IV IV IV, F oW

AITSIRSR WA= O V00NN
ANI OO0 N0

b oD =D =D —d —d D

N S N £ WA N AN

NN 2O 000 NN

JE S

N AN N AN PO NI NI NU PO PN N PO

T S SN T
Y R

= 2 — =

NN = O Y00 NN B IR — OV~

CZRMNBO RMQS/3/72 FOTNL

THE PROGRAM TYPES

IS STARTED

AFTER BEING

ITS

TITLE

LOADED.

AND MAINDEC NUMBER

ALSO,

A WARNING

MESSAGE

TIME

TYPED,

NOTIFING THE CPERATOR OF POSSIBLE HEADER CORRUPTION IF
THE PROGRAM IS
HALTED
IMPROPERLY.
THE PROGRAM IDENTIFICATION AND THE WARNING DO NOT
OCCUR IF THE PROGRAM IS RESTARTED.

4.2

CONSOLE DIALOGUE

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

THE

FIRST

QUESTION TYPED OUT

OPERATOR

HELP MESSAGE

IS:

‘'‘TYPE

HELP

TEXT

SWITCH OPTIONS,

ETC.

ANY OTHER RESPONSE

RESPONDS WITH A '%Y'’,

WHICH WILL

LIST

THE PROGRAM WILL

(L)

?'.

TYPE A BRIEF

TO THE QUESTION IS CONSIDERED A 'N'' AND NO HELP TEXT IS TYPED. THIS
QUESTION
IS
ONLY ASKED
ON
THE INITIAL PROGRAM
START AND
NOT ON
SUBSEQUENT START-UP'S.

ON THE PROGRAM INITIAL

THE OPERATOR MAY
DIALOGUE.

(HANGE

START AND WHEN RESTARTING AT (OCATION 204,

THE RH/RM BASE

ADDRESSES WITH

THE

FOLLOWING

EXAMPLE 1

EXAMPLE 2

RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS TO 177200
RMVEC 000254 260<CR>
;CHANGE VECTOR ADDRESS T0 260
ON THE

INITIAL

START,

THE NEXT QUESTION

TYPED

[S,

'TYPE

'‘A"' °C

3.3

TIRMNBO wMDS/37¢ FCTNL

TST 2

MATRO v04.00

4-APR-81

1
6
11:43:33 PAGE 3-3

SEQ 0006
172

TEST

‘73
174

A CARRIAGE RETURN'.
THEN,
OPERATOR TO
TYPE AN ''A'",

177
178

ENTERING THE
DRIVE NUMBERS A5 A STRING. THE PROGRAM ENTERS THE COMMA
SEPARTOR AUTOMATICALLY
AFTER TYPING
EACH NUMBER.
ON ALL SUBSEQUENT

175
176

1;8

181
182

¥gg

ALL

DRIVES,

STARTS,

ONLY THE

DRIVE

NUMBER(S)

AND

TERMINATE

INPUT

W]TH

°'DRIVE(S):'
IS TYPED
AND
WAITS
FQOR THE
TO TEST
ALL POSSIBLE DRIVES
OR TYPE
ANY

'DRIVE(S):'

PROMPT

IS TYPED.

THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE
DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING

IS AN EXAMPLE PRINTOUT:
'UNIT STATUS:
0
ONLINE

187
188

RMO3
LOAD DEVICE
OFFLINE
RMOS5

1
2

189
190
191
192
}gz

nany
AONININONININONINININY
2 =
~NNs n)
oot P\ b o md =B D e D ep D =2QO000000O0O
V00
oo~ o VB LN = O
00 NN
B
g — [ 2ol BaNTe SV N MV NET o TVe] o RN

TYPE

STRING OF DRIVE NUMBER(S) TO BE TESTED AND TERMINATE THE INPUT WITH A
""CARRJAGE RETURN''.
NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN

185
186

195
196

3
4
5
6
7
1

NOT
NOT
NOT
NOT
NOT

PRESENT
PRESENT
AN RM05/3/2
PRESENT
PRESENT'

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

THE DIAGNOSTIC THEN TYPES
STATUS OF THE DRIVE:

'DRIVE(S)
TYPED

TO BE

THE

TESTED,

FOLLOWING MESSAGE,

TO THE OPERATOR:

TO BE

BASFD ON THE

IF NO DRIVES ARE AVAILABLE FOR

'DRIVE(S)

TESTED, WHILE DRIVES

TESTING,

THE FOLLOWING MESSAGE WILL BE

TESTED, NONE'

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

ONCE

THE DRIVES START TESTING,

AS EACH DRIVE BEGINS

TO BE

TESTED:

FOR

THE FOLLOWING MESSAGE wILL OCCUR

‘DRIVE 0'
AFTER ALL THE DRIVES ARE COMPLETELY TESTED, THE END OF PASS
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START
TESTING ALL

THE

DRIVES AGAIN.

THIS WILL

CONTINUE

UNTIL

THE

PROGRAM

IS HALTED BY THE OPERATOR.

NOTE :

THE LETTER LOCATED WITHIN THE BRACKETS

L=t

4.3

?$§EgNSE
.

PROGRESS REPORTS

REQUIRED

BY THE USER,

()

INDICATES THE

D DECIMAL,

TYPE

O-OCTAL AND

CZRMNBO RMOS/3/72 ¢#7TINL

TST 2

MACRO v04.00

4-APR-81

11:43:33 PAGE

3-4

SEQ 000/

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

'END OF PASS
THE

THE FOLLOWING MESSAGE wILL ALSO
LAST END OF PASS REPORT.
'TOTAL

4.4

ERRCRS

PERFORMANCE

SINCE

OCCUR

LAST REPORT

WERL

ERRORS

THE

EXECUTION

SINCE

REPORTS ARE

GIVEN

DURING

PROGRAM HALTS

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

4.6

THERE

REPORT

NO PERFORMANCE
PROGRAM,

4.5

EXECUTION GF

THE

PROGRAM,

ERROR REPORTS
THE

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

FIRST

LINE OF

FOLLOWING PRINTOUT

DRV# O - RMO3,

THE

SHOWS A

TYPICAL

ERRGR MESSAGE

FOR

TESTH 14, ERRH 326, P(=016654

MASSBUS DATA BUS PARITY ERROR 'MDPE’'' (RM(SZ2, BIT 8)
DURING WRITE COMMAND
EXPECTD
RECEVD

040300

RMCS2
040700

RMDS

177403

104604
RMMRZ

000002

RMWC

RMMR1

000010

4.7

040700

RMCS1
144252

RMBA

011777

010700

RMER1
000000

RMDA

RMOF

RMDT

RMSN

02402¢

010000

RMER?Z

RMAS

RMD(

RMEC!

000000
000000

000000

004066

THIS PROGRAM:

DETECTED

RMEC?

000000

177777

EXECUTION TIME

PASS 1 OF THE PROGRAM TAKES ABOUT 6 SECONDS.
SUBSEQUENT PASSES TAKE 35 SECONDS.

PASS 2 AND

CZRMNBO RMOS/3/72 FCTNL

TST 2

MACRO v04.00

1
3-5

[
11:43:33 PAGE

4-APR-81

SEQ 0008
286
287
288
289

290

291
292
293
29
295
29
297
298
299
300
307
302
303
304

5.0

ENVIRONMENTAL

SUPPORT

5.1

PROCESSOR COMPATIBILITY

THE RMO5/3/2 SUBSYSTEM FUNCTIONAL

PROCESSOR,

PROVIDING

PREVIOUSLY

MET, AND PROVIDING THAT DATA THROUGHPUT ON THE
SUSTAIN DATA TRANSFER OPERATIONS.

5.2

SYSTEM [S SUFFICIENT

DUAL PORT CONFIGURATIONS

PORT

SWITCH

SET

THE

APPROPRIATE

MEMORY PARITY HARDWARE

5.4

PORT

[S NOT USED DURING

TEST.

ACT11, APT11
IN

SUSBYSTEM FUNCTIONAL TEST
DUMP

EXECUTE

5.6

XXDP COMPATIBILITY

VERIFY MODE.

BOTH

WILL

QUICK

AND

THE

AND

CHAIN MODES,

USED
DURING
THE RM0S5/3/2
THE MASSBUS CONTROLLER.

PASS

IS COMPATIBLE WITH

AUTOMATIC MODES.

DURING

THE

THE RM05/3/2 SUSBYSTEM FUNCTIONAL

THE RMO5/3/2

5.7

EXECUTION

COMPATIBILITY

THE RM05/3,2

AND APT11

DUMP

THE

MEMORY MANAGEMENT HARDWARE

MEMORY
MANAGEMENT
HARDWARE
IS
NOT
SUSBYSTEM FUNCTIONAL TEST.
CAPABILITIES OF

5.5

(A OR B).

MEMORY PARITY HARDWARE

RMO5/3/2 SUSBYSTEM FUNCTIONAL
OV~
O NI NN =

REQUIREMEN'S ARE

THE RM05/3/2 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST
DUAL
_PORT
LOGIC
IN
THE
RMO5/3/2 ADAPTER BUT
[S
EXECUTABLE
ON
RMO5/3/2
SUBSYSTEMS
HAVING
THE
DUAL PORT OPTION PROVIDING THE DUAL

5.3

NN NN
NN AN NN
o —d —d
n — el nd ) —d

TEST IS EXECUTABLE ON ANY PDP=11

MENTIONED HARDWARE

FIRST PASS

TEST

FURTHER,

ACTI

1HE PROGRAM

IN SUPPORT

QUICK

IS COMPATIBLE WITH XXDP N

AND °ROVIDES MEDIA PROTECTION

THE XXDP LOADING DEVICE.

IN THE

CASE

WHERE

OPERATING SYSTEM COMPATIBILITY
THE

PROGRAM

NOT

COMPATIBLE

WITH ANY

SOF TWARE

OPERATING

SYSTEM,

.JRMNBO RMOS/3/2 FCINL

343
344

345
346
347
348
349
350

IST 2

MACRO Vv04.00

1
J
11:43:33 PAGE 3-6

4-APR-8B1

6.0

TEST DESCRIPTION

TEST

351
352
353
354
355
356
357
358
359
360
261

SEQ 000%

CONTROLLER ACCESS TEST

PURPOSE
:

VERIFY

THAT

THE

UNIBUS

ADDRESS OF

CORRECT, AS DEFINED AT LOCATION $BASE.

THE

SUBSYSTEM

PRGCEDURE
:

USING

THE

TEST

THE

TRIES

$BASE

TO ACCESS ALL

ADDRESS.

THE TEST, AND THE TEST
REGiISTER TRANSFER.

362

363
364
365
366
367
368
369

ALONE

FAILS

MASSBUS

BUS

IF_THE TEST FAILS AND THE PROGRAM
ENVIRONMENT,

I1.E.,

LOCATION 42

TIMEOU?

IS O,

TO LOCATION 204 WHICH ALLOWS THE OPERATOR
ADDRESS
VIA CONSOLE DIALOGUE.
OTHERWISE,
THE

END OF

CONTROLLER

PASS HANDLER.

REGISTERS

IGNORED DURING

OCCURS

RUNNING

FOR

THE PROGRAM WILL

ANY

STAND

JLMP

TO
(HANGE
THE
$BASE
THE PROGRAM ESCAPES TO

370
371

372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392

393
394
395
396
397
398
399

TEST

2 -3

WRITE/READ HEADER AND DATA (FORMAT)

TESTS

:
PURFOSE

TO TEST WRITE HEADER AND
DATA
AND
READ
HEADER
AND
DATA
FUNCTIONALITY OF THE RMO5/3/2 SUBSYSTEM
USING A SET OF VARIABLES
gg*g?T}gggUDE WORD COUNT, HEAD MOTION, HEAD SWITCHING
AND
ERROR
PROCEDURE:

ALTHOUGH EACH
GENERAL
PROCEDURE

TEST
EXERCISES
OF
EACH
TEST

A
IS

DIFFERENT
THE
SAME.

VARIABLE,
THE
THE DRIVE IS

INITIALIZED AND RECALIBRATED IF 'PIP'' OR ''SKI'' ARE ACTIVE SO THAT

THERE ARE NO ERRORS WHEN A TEST BEGINS.
FOLLOWING THAT,
PERFORMS ANY EXPLICIT SEEKS REQUIRED FOR THE
CONDITIONS

THE
OF

TEST
THE

TEST.
REGISTERS ARE PRESET AND THE WRITE HEADER AND DATA COMMAND
1S EXECUTED.
WHEN THE WRITE COMMAND ]S COMPLETE, THE TEST STORES
ALL SUBSYSTEM STATUS AND CHECKS FOR PRIMARY ERRORS WHICH PRECLUDE
OTHER STATUS CHECKS.
IF THERE ARE NO PRIMARY
ERRORS,
THE
TEST
VERIFIES
THE
RESULTS
OF
THE WRITE COMMAND AND THEN CHECKS FOR
SECONDARY ERRORS.
LOOP
ADDRESSES
ARE
MODIFIED
FOLLOWING
THE
SUCCESSFUL
COMPLETION
OF
THE WRITE COMMAND IN ORDER TO SHORTEN
EXECUTION TIMES AND
ENHANCE
SCOPING
LOOPS,
THEN
THE
PROGRAM
EXECUTES
THF READ HEADER AND DAIA PORTION OF THE TEST, VERIFYING
THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND.

“IRMNBO RMOS5/3/2 FCTINL

TST 2

400
401
402
403
404
405
406
407

408
409
410
411

NOTE:

TEST

415

L17

427

428

429
430
43
432
433
474
435
436
437
438
439
440

TEST SEEKS TO CYLINDER O,

18 BIT FORMAT.

THE

THEN WRITES HEADER AND DATA ON

HEADER AND DATA FIELDS ARE ALL

ZEROS, CAUSING THE DEVICE TO USE NORMAL WRITE GATE.
THE
HEADER
ANC
DATA
ARE
READ
AND
COMPARED
WITH
1THE WRITE BUFFER.
THE
INITIAL SEEK POSITIONS THE HEAD SUCH THAT
THERE
IS
NO
IMPLIED
SEEK. THE TEST IS REPEATED FOR 16 8IT FORMAT.

416

426

SEQ 0010

FORMAT ZEROS TEST

SECTOR O

414

423
424
425

K
1
11:43:33 PAGE 3-7

THE SECTOR USED DURING A TEST MAY
DIFFER FROM THE
PROGRAM
LISTING BECAUSE THE
+ROGRAM SUBSTITUTES A GOOD SECTOR,
IFf
THE ONE SELECTED IS LISTED IN THE BAD BLOCK TABLE.

THE

412
413

418
419
420
421
422

4-APR-81

MACRO v04.00

TEST

ZERO FILL TEST TEST

THE

TEST EXECUTES A SEEK

HEAD

TO CYLINDER O TO INSURE

MOTION DURING DATA TRANSFER.

THAT

THERE

THIS IS FOLLOWED BY A

WRITE HEADER AND DATA COMMAND WITH THE WORD COUNT
EQUAL
TO
THE
SIZE
OF
THE
HEADER WHICH CAUSES THE RH
T0 ZERO FILL
THE DATA
FIELD.
THE READ HEADER AND DATA COMMAND
THAT
FOLLOWS
READS
A
FULL SECTOR AND VERIFIES THAT DATA WAS ZERO FILLED.

TEST 4. FORMAT (HECK ZEROS TEST
THE TEST WRITES HEADER AND AN ALL
ZEROS
DATA
FIELD,
PERFORMS A WRITE CHECK HEADER AND DATA COMMAND AND VERIF IES
ARE NO ERRORS.

THEN
THERE

441
442

443
444

445

446
447
448
449
450

451
452
453

454
455
456

TEST 5

FORMAT CHECK ZEROS W/ WCE ERROR TEST
THE

TEST WRITES HEADER AND AN ALL ZEROS DATA

COMPLEMENTING

THE

LAST

WORD

THE

WRITE

FIELD.

BUFFER,

THE

PERFORMS A WRITE CHECK HEADER AND DATA COMMAND AND VERIFIES
THE CORRECT WRITE CHECK ERROR IS DETECTED.

TEST 6

FORMAT ONES TEST

AFTER

TEST
THAT

(ZRMNBO RMOS/3/72 FCINL TST 2

4-APR-81

MACRO vC4.00

457
458
459
460
461
462
453

1
L
11:43:33 PAGE 3-8

SEa 001

THE TEST WRITES HEADER AND AN
ALL
ONES
DATA
FIELD,
THEN
READS
THE
HEADER
AND
DATA, VERIFYING THE READ BUFFER WITH THE
WRITE BUFFER.
THE ALL ONES FIELD IS A
(CONSTANT
FREQUENCY,
AND
THE DRIVE SHOULD USE NORMAL WRITE GATE.

464

465
466
467
408
469
470
471
472
473
474
475
476
477
478
479
480
481
482
4,83
484
485

TEST

FORMAT CHECK ONES TEST
THE

TEST

FORMATS AN AL. ONES

DATA

ggéégs CHECK HEADER AND DATA COMMAND,

TEST

FIELD,

THE

VERIFYING THAT

PERFORMS

THERE ARE NO

10 FORMAT CHECK ONES W/ WCE ERROR TEST
THE

THE TEST FORMATS AN ALL ONES DATA
FIELD,
THEN
COMPLEMENTS
LAST WORD OF THE WRITE BUFFER.
A WRITE CHECK HEADER AND DATA

COMMAND IS EXECUTED, AND THE TEST VERIFIES THAT THE CORRECT WRITE
CHECK ERROR IS DETECTED.

TEST

FORMAT MULTIPLE

SECTORS TEST

THE TEST SEEKS TO CYLINDER O TO
INSURE
THERE
IS
NO
HEAD
MOTION
DURING
DATA TRANSFER.
THE WRITE HEADER AND DATZ COMMAND
FOLLOWS, WITH THE WORD COUNT EQUAL TO MULTIPLE SECTORS.
THE SAME
SECTORS ARE VERIFIED WITH A WRITE CHECK HEADER AND DATA COMMAND.

TEST

12 FORMAT WITH HEAD SWITCHING TEST
THE TEST SEEKS TO CYLINDER O TO
INSURE
THERE
IS
NO
HEAD
MOTION
DURING
DATA TRANSFER.
THE WRITE HEADER AND DATA COMMAND

STARTS WITH CYLINDER O, TRACK O, SECTOR 3i.
THE
WORD
COUNT
IS
EQUAL
TO
MULTIPLE
SECTORS WHICH CAUSES THE SUBSYSTEM TO SWITCH
FROM
TRACK O TO
TRACK 1 AFTER THE FIRST OF THE MULTIPL® SECTORS

ARE
WRITTEN.
THE SAME
gg?ggg AND DATA (OMMAND,

SECTORS
ARE VERIFIED WITH A "] TE CHECK
USING THE
SAME
WORD COUNT ANL STARTING

MACRDO v04.00

M
11:43:33 PAGE 3-9

SEQ 001,
13 FORMAT WITH MID-TRANSFER SEEK

THIS TEST WRITES MULTIPLE

b o =

TEST

4-APR-B1

LAST

—= OV~

i
1%, 1V VLIV TV

CZRMNBO RMOS5/3/2 FCINL TST 2

CHECK HEADER AND DATA (OMMAND.

SECTOR

1S WRITTEN.,

THE

SECTORS STARTING W!Th CYLINDER

CAUSING A MIDTRANSFER SEEK AFTER THE
SAME

SECTORS ARE

VERIFIED WITH WRITE

FIRST

TRACK AND SECTOR 31.,

TEST

14 FORMAT WITH

AND

THIS

DATA

IMPLIED SEEK

TEST SEEKS

TO THE

CYLINDER

TEST
LAST

CYLINDER PRIOR TO WRITING HEADER

THE EXPLICIT SEEK INSURES

THAT THERE

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

TEST

15 FORMAT EACH SECTOR ADDRESS TEST
HEADERS AND DATA OF EACH SECTOR ON CYLINDER O, TRACK
O
ARE
FORMATTED AND READ WITH THE PROGRAM VERIFYINS HEADERS AND DATA.

TEST

16 FORMAT EACH TRACK ADDRESS
THIS

TEST

FORMATS SECTOR O OF

(W IV IV, [V LV, IV, (V. ]V, ]V, |
[VRV, IV, IV, 1V, TV 1V, 1V TV 1

OO NS
—

READS EACH SECTOR WITH

TEST

17 FORMAT PRIME

TEST
EACH TRACK ON CYLINDER

THE PROGRAM VERIFYING HEADERS AND DATA.

CYLINDERS TEST

THIS TEST FORMATS AND READS SECTOR O, TRACK O ON EACH
CYLINDER, I1.E., CYLINDERS 1, 2. 4, 8., 16., 32., 64., 128.,
AND 512.

560

TEST

AND

PRIME
25.,

20 READ HEADER & DATA IN LAST SECTOR TEST
DISK,

THIS TEST

READS

HEADER AND DATA ON THE LAST SECTOR OF

1.E., AND VERIFIES THAT '1BT'" STATUS SETS.

THE,

TIRMNBO RMO5/3/2 FCINL TST 2
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599

600

601
602

603
604
605

OO [o e Yo Yo Yo Yo To Yo No N o]
=
e
o, —
PNONGALND AN
[e IV, AP N =2 OOV~ N

606
607
608
609
610
611
612

627

MACRD v04.00

4-APR-81

1
N
11:43:33 PAGE 3~1C

SEQ 0013

TEST 21 READ HEADER & DATA W/ AOE ERROR TEST
THIS TEST READS MULTIPLE

SECTORS

STARTING

SECTOR 31. AND VERIFIES THAT AOE STATUS SETS.

WiTH

THF

LAST

VERIFIES

THAT

VERIFIES

THAT

TEST 22 READ INVALID SECTOR ADDRESS TEST
THIS

TEST USES AN ILLEGAL

IAE STATUS SETS.

TEST 23 READ

INVALID TRACK ADDRESS TEST

THIS TEST USES AN ILLEGAL
IAE STATUS SETS.

TEST

SECTOR ADDRESS AND

TRACK ADDRESS

AND

24 READ INVALID CYLINDER ADDRESS TEST
THIS

TEST USES AN ILLEGAL

IAE STATUS SETS.

TEST 25

THAT

FORMAT AT OFFSET TEST

%GTA

TEST 26

CYLINDER ADDRESS AND VERIFIES

THE PROGRAM SETS OFFSET MODE AND EXECUTES A WRITE HEADER AND
gOMMAND.
VERIFYING
THAT OFFSET MODE IS RESET BY THE WRITE

1vC FORMAT TEST

VOLUME VALID IS RESET BY SETTING
AND
RESETTING
DIAGNOSTIC
MODE.
THE TEST THEN EXECUTES A WRITE HEADER AND DATA (OMMAND AND
VERIFIES THAT INVALID COMMAND STATUS SETS.
THE TEST IS
REPEATED
FOR READ HEADER AND DATA COMMAND.

(ZRMNBC RMOS/3/2 FITINL

T1ST 2

MACRO v04.00

4L-APR-B1

11:43:33 PAGE

3-1"

SEQ 0014
628

629
630
631
632
633
634
635
636
637
638
635

640
641
642

643

646
645
646
647

648
649
650

TEST

27 FORMAT ERROR TEST
FOR

A SINGLE SECTOR IS FORMATTED WITH THE
OFFSET
REGISTER
SET
16
BIT FORMAT AFTER WHICH THE SAME SECTOR IS READ IN 18 BIT

FORMAT

SET.
18 BIT

TEST

30 & 37

WITH

THE

PROGRAM VERIFYING

THAT

FORMAT

THE
SAME PROCEDURE IS REPFATED WITH THE
FORMAT AND READ IN 16 BIT FORMAT,

FORMAT HCE

TEST

ERROR

STATUS

SFCTOR WRITTEN IN

(1ST AND 2ND HEADLR WORDS)

THESE TWO TESTS WRITE AN
INCORRECT
HEADER
THEN
READ
THE
HEADER AND VERIFY THAT THE CORRECT HEADER ERROR [S DETECTED.
THE
TESTS SETUP THE CORRECT HEADER, THEN COMPLEMENT BIT O AND USE THE
MODIFIED
BUFFER
T0
WRITE
THE HEADER.
THE PROCESS [S REPEATED
UNTIL EACH BIT POSITION HAS BEEN SEPARATELY TESTED.

"IJRMNBL RMOS 372 FCOTNL

MACRC v04.00

4-APR-81

11:43:33 PAGE 4

SEQ 0015

;*LAST REVISION 04-APR-81

479
480

LTITLE

CZRMNBO RMOS5/3/2 FCTINL

;*COPYRIGHT (() 1981
;*DIGITAL EQUIPMENT CORPORATION
;*COLORADO SPGS., (0. 80919

TST 2

1 «PROGRAM BY MIKE LEAVITT
*

;*THIS

PROGRAM WAS ASSEMBLED USING

s *PACKAGE
X

"SBTTL
“.
.

RPN
%

%2 %

..,

SWITCH

.SBTTL

001100

:*INITIAL ADDRESS OF
STACK
= 1100

104000

ERROR
SCOPE

000011
00001
¢
000015

000004

000200
177776
177776
177774

SYSMA(

USE

HALT ON
LOOP ON
INHIBIT
UNUSED
INHIBIT
BELL ON
LOOP ON
LOOP ON
TN128
TNG64

ERROR
TEST
ERROR TYPEOQOUTS

ITERATIONS
ERROR
ERROR
TEST IN SWR<7:0>

TN32

TN16

NS
TN4
TNZ
TN1

EMT
107

THE STACK POINTER #xx 1100 ==
;sBASIC DEFINITION OF
;:BASIC DEFINITION GF

J*MISCELLANEOUS DEFINITIONS

LF
(R
CRLF
gg
ps

MAINDEC

BASIC DEFINITIONS

483
484

PDP-11

=11

;:CODE

FOR HORIZONTAL

ERROR CALL
SCOPE CALL

TAB

= 12
15
= 200
- 177776

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

STKLMY

= 177774

;:STACK LIMIT REGISTER

DSWR
DDISP

177570
- 177570

; JHARDWARE SWITCH REGISTER
; JHARDWARE DISPLAY REGISTER

177772
177570
177570

PIRQ

000000
000001
000002
000003

RO
R1
R2
R3

177772

: ;PROGRAM INTERRUPT REQUEST REGISTER

;*GENERAL PURPOSE REGISTER DEF INITIONS
=
=
=
-

X0
1
%2
%3

: ;GENERAL
: ;GENERAL
;;GENERAL
:;GENERAL

482

THE

18-MAR-81

OPERATIONAL SWITCH SETTINGS

2SR

. %

O=MNWSH NNV O =MW

481

(MAINDE(~11-DZQAC-(CS),

TJRMNBO RMOS/3/2 FCINL
BASIC GEFINITIONS

000004
000005
000006
000007
000006
000007
000000
000040
000100
000140
000200
000240
000300
000340
100000

TST

MACRO v04.00

4-APR-81

D
2
11:463:33 LAGE 4-1

SEQ 0016
R4
RS
R6
R7
SP

=
=
-

X6
%5
%6
%7
%6

= %7

J*PRIORITY LEVEL
FRO
-0
PR1
= 40
PR?
- 100

PR3

PRS
PR6
PR7

= 240
= 300
= 340

PR4&

DEFINITIONS
;oPRIORITY LEVEL
;sPRIORITY LEVEL

140

SWi1
= 4000
Sw10
= 2000
Sw09
= 1000
SW08
= 400
Sw07
= 200
SW06
= 100
SW0S
= 40
SW04
= 20
SW03
=10
Sw02
=4
SW01
=2
SWQ0
= 1
SW9=Sw09
SW8=SW08
SwW7=SWw07
SW6=SW06
SW5=SW05
SWé=SW04
SW3=SwW03
SW2=Sw02
SW1=SW01
SW0=SW00

100000

BIT1S

= 1000C0

BIT13
BIT12
BITI
BIT1I0
BITO9
BITO8
BITO7
BITO6
BITOS

-~
-+
=
=

20000
10000
4000
2000
1000
400
- 200
- 100
- 40

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

20000

= 40000

0
1
2

::PRIORITY LEVEL 4

= 10000

.*DATA BIT DEFINITIONS

BIT14

;:PRIORITY LEVEL
,;PRIORITY LEVE.

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

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040

; :PROGRAM (OUNTER

- 200

;*"'SWITCH
SW15
=
Swié
SW13
=

Swi12

;;GENERAL REGISTER
;;GENERAL REGISTER
:;GENERAL REGISTER
s ;GENERAL REGISTER
;:STACK POINTER

(BIT00 TO BIT15)

EEY NV

BiT04
BIT03
BIT(G2
BIT01
BIT00
=
BIT9=BITQ9

Y
oo

SEQ 0017

B178=B1708
BIT7=BIT107
BIT6=BIT06
BITS=BITQ05
BIT4=BIT04
81T73=B1703
BIT2=BIT02
BIT1=BITO1
8170=BIT00

;*BASIC( ”CzU” TRAP VECTOR ADDRESSES
;:TIME OUT AND OTHER ERRORS
RESVEC
10
:RESERVED AND ILLEGAL INSTRUCTIONS
ERRVEC

TBITVEC
TRTVEC
BPTVEC

14
14
14

EMTVEC

ICTVEC

PWRVE

TRAPVE(
TKVEC
TPVEC
PIRQVE(C

20
24
30
34
60
64
240

::TRACE TRAP
: :BREAKPOINT TRAP (BPT)
22 INPUT/OUTPUT TRAP (IOT)

::POWER FAIL

:ZEMULATOR TRAP (EMT)

::"TRAP'' TRAP

::TTY KEYBOARD VECTOR
::TTY PRINTER VECTOR

:PROGRAM

INTERRUPT

RM REGISTER BIT DEFINITIONS

;*RM(CST

CONTROL STATUS REGISTER

t
H

FNCMSK

0N
I

.SBTTL

DVA
Fé&
F3
Fe
Fl
FO
GO

BITI
BITOS
BITO4
BITO03
BIT0?2
8IT01
81100
000077

++SCOPE=s

»=ERRORss

REQUEST

VECTOR

sDEVICE AVAILABLE~READ ONLY

sFUNCTION CODE

JFUNCTION
sFUNCTION
sFUNCTION
JFUNCTIUN
;GO BIT
;FUNCTION

CODE
CODE
CODE
CODE

(CODE MASK

JFUNCTION CODES (BJTS 01-05 OF RMCS1)
000000
;NOP COMMAND
ILFO2
000002
s ILLEGAL COMMAND
SEEK
000004
s SEEK COMMAND
RECAL
000006
;RECALIBRATE COMMAND
DRVCLR
000010
;DRIVE CLEAR COMMAMND
RLEASE
000012
JRELEASE COMMAND
OFFSET
000014
;OFFSET COMMAND
RTC
000016
INE (OMMAND
JRETURN TO CENTERL
RIP
000020
JREAD IN PRESET COMMAND
PAKACK
sPACK ACKNOWLEDGE COMMAND
000022
NOP

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000022
000024
000026

11:43:33 PAGE 4=¢

PO B

004000
000040
000020
000019
000004
000002
000001
000077

4~APR-81

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

MACRO v04.00

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

TST 2

| LI

CIRMNBO RMOS/3/2 FCTINL
BASIC OFF INITIONS

PACACK

ILF24
ILF26

PAKACK

000024
000026

s JLLEGAL (OMMAND
s ILLEGAL COMMAND

"ZRMNBO RMOS5/3/2 FCINL

RM REGISTER BIT

513
516

IST 2

DEFINITIONS

000030
000030
000032
000034
000036

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

MACRD v04.00

F
17:43:53 PAGE

4-APR-81

2
¢~

SEQ 0016
SEARCH
ILF30

ILF32
ILF34

=
=
=
=

000030
000030
000032
000034

ILFA0
ILF42
ILF44
ILF46
)

=
=
=

000040
000042
000044
000046
000050

ILF54
ILF56

= 000054
= 000056

ILF36

;SEARCH OMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
;ILLEGAL COMMAND
¢ ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
;ILLEGAL COMMAND

= 000036

- 000052

JWRITE
JWRITE

- 000060
= 000062

JWRITE DATA COMMAND
;WRITE HEADER AND DATA (OMMAND

- 000070
- 000072

;READ DATA (COMMAND
JREAD HEADER AND DATA

:*RMDA

DISK ADDRESS

WCH
WD
WH

ILF64
ILT66
RD
ILF74
ILF76

CHECK DATA (OMMAND
CHECK HEADER AND DATA

s ILLEGAL COMMAND
s ILLEGAL COMMAND

= 000064
- 000066

;ILLEGAL COMMAND
s ILLEGAL COMMAND

= 000074
- 000076

;ILLEGAL COMMAND
s JLLEGAL COMMAND
REGISTER

010000
004000
002000
001000
000400

; TRACK ADDRESS DEF INITIONS
TA16
= BIT12
TA8
= BIT11
TA%
= BIT10
TA2
= BIT09
TAT
= BITO8

s TRACK ADDRESS
s TRACK ADDRESS

000020
000010
000004
000002
000001

;SECTOR
SAT6
SA8
SA4
SA2
SAT

;SECTOR
;SECTOR
sSECTOR
;SECTOR
;SECTOR

1774600

;TRACK & SECTOR MASKS
TADMSK
= 177400

000377

100000

040000
020000
010000
004000
002000
001000
000400
030200
200100
000001

ADDRESS DEF INITIONS
- BITO4
= BIT03
= BI102

= BITOT
= BITOO

SADMSK

= 000377

;*RMDS

DRIVE

ATA
ERR
PIP
MOL
WRL

BIT1S
= BIT14

STATUS

s TRACK ADDRESS 16.
s TRACK ADDRESS 8.
:TRACK ADDRESS 4

s TRACK

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

2
1

16.
8.
4
2
1

ADDRESS MASK

;SECTOR ADDRESS MASK
REGISTER

= BIT13

= BIT12
BIT11

LBT

BIT10

DFR
DRY
WV
oM

- BIT08
- BIT07
BIT06
BITO0

:+RMERT

ERROR REGISTER #°

PGM

(OMMAND

81109

JATTENTION ACTIVE

;COMPOSITE ERROR
;POSITIONING IN PROGRESS
JMEDJUM ON LINE
JWRITE LOCK
JLAST BLOCK TRANSFERRED

s PROGRAMMABLE

;DRIVE PRESENT
;DRIVE READY
;VOLUME VAL ID
JOFFSET MODE ACTIvVE

TIJRMNBD RM(S/3/72 FCTINL

RM REGISTER BIT

565
566

567
568
569

570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592

593
594
595
590

TST 2

DEF INITIONS

100000

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

MACRO v04.00

DCK
UNS

4-APR-81

- BIT15
- BIT14

OP]
DTE

= BIT13
- BIT1?2

IAE
AQOE

BIT10
= BITQO9

ECH

= BIT06

WLE

HCR(
HCE
wCF

FER

G 2
'1:43:33 PAGE 4=~4

;DATA (HE(CK ERROR

sDRIVE UNSAFE

;OPERATION INCOMPLE
TE
;DRIVE TIMING ERROR

= 81111

JWRITE LOCK ERROR
s INVALID ADDRESS ERROR

- BIT08
- BITQ7

JHEADER (RC ERROR

BITOS

-~ BIT04

JADDRESS OVERFLOW ERROR

JHEADER COMPARE ERROR
JECC "HARD'' ERROR
;WRITE CLOCK FAILURE
;FORMAT ERROR

PAR
RMR

000001

ILR
ILF

- BIT03
- BITQ2

115760

NDTMSK

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

000002

BITO1
= BITOO

;ILLEGAL REGISTER
cILLEGAL FUNCTION

;"NDTMSK'" IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA
;COMMANDS,

N00377

JFARITY ERROR
JREGISTER MODIF ICATION REFUSED

I.E., HOUSEKEEPING AND POSITIONING COMMANDS

;*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

- 377

J*RMLA

LOOK AHMEAD REGISTER

JMASK FOR ATTENTION BITS

002000
001000
000400
000200
000100

SC4

SC3

= BITQ9
BIT08
- BITO07
= BIT06

sSECTOR
;SECTOR
;SECTOR
;SECTOR
;SECTOR

003700

SCTMSK

- 003700

;SECTOR COUNT MASK

SC2
Ny
SCO

- BIT10

16
COUNT
8
COUNT
COUNT - 4
COUNT - 2
COUNT - 1

;*RMMRT MAINTENANCE REGISTER #1
100000

040000
020000
010000
004000
002000
061000
000400
000200
000100
000040
000010
000004
000002
000001
' 00000

WRITE ONLY BITS
DBCK
= BIT15
DBEN
= BIT14
DERL
= BII13
DTO
BIT12

MCLK
MRD
MUR
MOC
MSER
MDF

mMS

BIT11
BIT10
BI1T09
BITO8
BITO7
BIT06

BITOS

MWP
Ml

- BIT03
BIT02

DMD

- BITOO

MS(C

BIT01

;READ ONLY BITS
occ
- BIT15

;DEBUG CLOCK
sDEBUG CLOCK ENABLE

;DIAGNOSTIC END OF BLOCK
;DIAGNOSTIC TTMEQUT
SMAINTENANCE CLOCK
JREAD DATA
JUNIT READY
;ON CYLINDER
; SEEK ERROR
;DRIVE FAULT
;SECTOR PULSE
;WRITE PROTECT
s INDEX PULSE
. SECTOR COMPARE
;DIAGNOSTIC MODE

sOCCUPIED

JRMNBC RMOS/3/2 FCTINL TST 2
&M REGISTER BIT DEF INITIONS
62¢

623

624
625
626
627

628
629
630
631

632
633

634
635
636
637
638
639

640
641
642

643

644
645
646
647
648
649
650

651
652
653
654

655
656
657
658
659
660
661
662
663
664

665

666

667

670

040000
020000
010000
004000
002000
001000
000400
000200
0001C0
000040

000020
000010
000004
000002
000001

MACRD v04.00

StQ 007
RG

= BIT16

JRUN AND GO

REX

- BIT12

JEXCEPTION

PLFS

= 81110

sLOOKING FOR SYNC

PDA
PHA

BIT08
- BLT07

:DATA AREA
;HEADER AREA

= BITQS

EBL

ESRC
ECRC

CONT

EECC
MwD
LS
LST
DMD
;*RMDT

100000

H
2
11:43:33 PAGE 4=5

&4~-APR-B1

NSA

- BIT13

JEND OF BLOC(K

BIT1

sENABLE SEAR(H

BIT09

SENABLE CRC our

- BIT06

: CONT INUE

sWORD CLOCK

BIT04
BITO3
BIT0?
BITO1
BITO0

DRIVE

TYPE

SJENABLE ECC OUT
;WRITE DATA BIT
JLAST SECTCR
;LAST SECTOR AND TRACK
;DIAGNOSTIC MODE

BIT1S

;NOT SECTOR ADDRESSED

040000
020000
004000

TAP
MOH
DRQ

- BIT14
= BIT13
- BITN

020924
C24024

SNGPRT
DULPRT

-~ 020024
- 024024

;*RMOF

OFFSET REGISTER

FMT16

- BIT12

;16 BIT WORD FORMAT

HCI

- BIT10

JHEADER

010000
004000
002000
000200

001777

ECI

BITN

:TAPE DRIVE = 0
;MOVING HEAD = 1
;DRIVE REQUEST REQUIRED

sSINGLE PORT DRIVE TYPE (RMO2)
;DUAL PORT DRIVE TYPE (RMOZ2)

;ECC INHIBIT

COMPARE

OFD

- BIT07

;OFFSET FORWARD

;*RMDC

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK

- 001777

INNIBIT

;MASK FOR CYLINDER ADDRESS

;*RMMR2 MAINTENANCE REGISTER #2
100000
040000

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

;READ ONLY BITS

ROA

- BIT1S5

TAG
TST
CC

= BIT13
- BIT12
- BITI

B8B08

- BITO8

s TAG BUS

= BITOS

; TAG BUS

RQB

CH
BBO9
8807
BBO6

B8B05S

BB04
8803
BB02
8801
BBCO

BIT14

BIT10
- BIT09
BIT07
BIT06

=
=

BITO4
BIT03
BITQ2
BIT)
BIT00

;PORT A REQUEST

;PORT B REQUEST

: TAG CONTROL
;COMMAND SEQUENCE TEST BIT
;CONTROL OR CYLINDER TAG

s CONTROL OR HEAD TAG
; TAG BUS

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

BUS
BUS
BUS
BUS
BUS

JRMNBO RMOS5/3/72 FCTNL

PROGRAM MNEMONICS

MSE

USE

BIT15
- BIT14

LSBTTL

RM REGISTER

RM(S1
RMDA

RMMR?
RMERZ
RMEC1
RMEC2

000077

IDXMSK

ILRG50
ILRGS2
ILRG54
ILRGS6
[LRG60
ILRG62
ILRG64
ILRG66
ILRG70
ILRG72
ILRG74
ILRG76

.SBTTL

|
T O
I
Y R
T
B

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

RMMR1
RMDT
RMSN
RMGF
RMDC
RMHR

RMAS
RMLA

¥ I

RMER1

[

00
06

RMDS

;BAD SECTOR ERROR
sSEEK INCOMPLETE
;OPERATOR PLUG ERROR
s INVALID COMMAND ERROR
;LOSS OF SYSTEM (LOCK
JLOSS OF BIT CLOCK
sDEVICE CHE(K

o o]

.SBTTL

St O

000036

- 81703

000000
000006
000012
000014
000016
000020
000024
000026
000030
000032
000034

BSE
SK
]
oPE
Ive
LSC
LBC
Dv(
DPE

100000

040000
020000
010000
004000
002000
000200
000010

100000

719

;*RMER? ERROR REGISTER 2

040C00

709
710
711
712
713
714
715
716
717
718

11:43:33 PAGE 4-6

SEQ 002°

682

4-APR-81

672
673
674
675
676
677
678
679

DEF INITIONS

MAIRDO v04.00

RM REGISTER BIT

ST 2

12
14
16

:DATA PARITY ERROR

sMANUFACTURING DETECTED SECTOR ERROR
JUSER DETECTED SECTOR ERROR
INDEX VALUES

;CONTROL STATUS REGISTER #1
;DISK ADDRESS REGISTER
;DRIVE STATUS REGISTER
sERROR REGISTER #1

SJATTENTION SUMMARY REGISTER

20
24
26
30
32
34
36

;DESIRED CYLINDER REGISTER
;HOLDING REGISTER

60
62

sILLEGAL
;ILLEGAL
;ILLEGAL
;ILLEGAL
; JLLEGAL
s ILLEGAL

40
42
44
46
50
52
54
56

;LOOK AHEAD REGISTER
sMAINTENANCE REGISTER
;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
;OFFSET REGISTER

sMAINTENANCE REGISTER #2
;ERROR REGISTER #¢
JECC POSITION REG!STER
JECC PATTERN REGISTER

64
66
70

72
74
76

sILLEGAL
s ILLEGAL
s ILLEGAL
;JILLEGAL
sILLEGAL
;ILLEGAL

;JMASK

RH CONTROLLER REGISTER BIT

FOR REGISTER

50
52
54
56
60
62
64
66

70
72
74
76

INDEX NUMBER

DEFINITIONS

;*RM(ST CONTROL STATUS REGISTER #1
100000

040009
020000
002000

JSPECIAL CONDITION-READ ONLY

: TRANSFER ERROR

JMASSBUS CONTROL BUS PARITY ERROR~READ ONLY
;PORT B SELECT

“IRMNBO RMOS5/3/2 FCINL

TST 2

MA{RO v04.00
RH CONTROLLER REGISTER BIT DEFINITIONS

720

721

722

723

724
725
726

727

728

229
730
731
732
733
734
735
736

737

738
739
742

743
744

745

7646

747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762

763
764
765
766
767
768

769

700
771
772
773
774,

001000
000400
000200
000100

A7
Al6

RDY

4-ATR-B1

J
2
11:43:33 PAGE 4-7

SEQ 002¢
= BIT09
- BI108
- 81107

100000

JREADY-READ ONLY

= BIT06

;*RMCS2 RH CONTROL

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

JADDRESS EXTENSION
;ADDRESS EXTENSION

JINTERRUPT ENABLE
STATUS REGISTER #2

DLT
WCE
UPE
NED

- 8IT15
= BIT14
- BIT13
BIT12

;DATA LATE=READ ONLY
JWRITE CHECK ERROR-READ ONLY
JUNIBUS PARITY ERROR
JNONEXISTANT DRIVE~READ ONLY

PGE

- BIT10

;PROGRAM ERROR~READ ONLY

NEM
MXF
MDPE
OR

IR
CLR

PAT

BAI
ul
Ul
uo

- BITN

;NONEXISTANT MEMORY-READ ONLY

- BIT09
= BITO8
- BITO07
BIT06

;MISSED TRANSFER
;MASSBIIS DATA BUS PARITY ERROR-READ ONLY
;OUTPUT READY-READ ONLY

- BITOS

; INPUT READY~READ ONLY
;CONTROLLER CLEAR

=
=
=
=

JUNIBUS ADDRESS INCREMENT
cUNIT SELECT
JUNIT SELECT
JUNIT SELECT

- BITO4

JPARITY

BIT03
BITOZ
BITO1
BITO0

TEST

[NHIBIT

JUNIT SELECT MASK
000007

UNTMSK

= 7

;*RM(S3 RH70 CONTROL
100000

040000
020000
010000
004000
002000
000100
000010
000004
000002
000001

APE
DPEH]

SJUNIT

STATUS REGISTER #3

= BIT1S
= BIT14

;ADDRESS PARITY ERROR
:DATA PARITY ERROR HIGH WORD

= BIT12
= BIT1
= 8IT10

JWRITE CHECK ERROR HIGH WORD
JWRITE CHECK ERROR LOW WORD
;DOUBLE WORD TRANSFER

DPELO

= BJT13

1E
IPCK3
IPCk2
IPCK1
IPCKO

=
=
=
-

.SBTTL

RH CONTROLLER REGISTER

000000
000002
000004
000010
000022
000050
000052

RMCS1T

= 00

" 76700
120254

WCEHI
WCELO
DBL

RMW(
RMBA
RMCSZ2
RMDB

SELECT MASK

BIT06
BIT03
BITQ?2
BITO1
BITO00

;DATA PARITY ERROR LOW WORD

s INTERRUPT ENABLE
: INVERT PARITY (HE(K
s INVERT PARITY CHECK
: INVERT PARITY CHECK
; INVERT PARITY (HECK
INDEX VALUES

;CONTROL, STATUS REGISTER #1

RMBAE
RMCS3

= 02
= 04
=10
- 22

= 5C
= 52

;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
;CONTROL, STATUS REGISTER #?
:DATA BUFFER

ABASE
AVECT1

- 176700
120254

JUNIBUS ADDRESS
JUNIBUS VECTOR ADDRESS AND PRIORITY

sBUS ADDRESS EXTENSION
;CONTROL, STATUS REGISTER #3

FZRMNBO RMOS/%/2 FUTNL
TRAP

[AT(HER

T1ST

MACRO v04.00

000000

000176
000176

SEQ

TRAP CATCHER

.SBTTL

K
2
11:43:33 PAGE 5

4-APR-81

.=0

00017

;=ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A ‘' 2, HALT''
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
'LOCAT10N19 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000000
000000

DISPREG:
SWREG:
:

.SBTTL

.WORD
.WORD

(
O

::SOF TWARE DISPLAY REGISTER
1:SOF TWARE SWITCH REGISTER

STARTING ADDRESS’cS)

> 000200

000137

005432

JMP

a#START

;s JUMP TO STARTING ADDRESS NF

2 000204

000137

005422

JMP

MSTART1

: CHANGE RH/RM BUS ADDRESS

.SBTTL

ACT11

PROGRAM

HOOKS

.'.'*tttfit.tfittttttttfitttttt'ltttttttttt'tt't!ttttt*t'tttltt.'ttttt

000210

‘

000046

000046
8355%5

000052

000000

$SVPC=.
.=46
segng

WORD

000210

001100

*HOOKS REQUIRED BY ACT11

.=$SVPC

.=1100

_SBTTL

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

;:2)SET LOC.52 10 ZERO
2

RESTORE FC

APT PARAMETER BLOCK

tt*tttttttttttttttttttfittttttttttttt.t'tttttttfit.t'.ttttt.ttttt

“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
'- L2222

000024
000044

2222222282223

001100
000024
000200
000044
001100
001100

.$X=.
.=24
200
=44
$APTHDR
=.$X
.

2223303232223

2222223233

000000
001222
000006
000006
000006
000042
001114

SR RS

RRAR]

:;SAVE CURRENT LOCATION
SISET POWER FAIL TO POINT TO START OF PROGRAM
$FOR APT START UP
::POINT TO APT INDIRECT ADDRESS PNIR.
::POINT TO APT HEADER BLOCK
::RESET LOCATION COUNTER

ttt**tt*ttttfi!*ttttttttttt*‘ct'titttfiitltnttttttttfitttlttttnwtt’

“SETUP APT PARAMETER BLOCK AS DEFINED
*INTERFACE SPEC.

001100
001100
003102
001106
001106
007110
001112

$APTHD:
$SHIBTS:
SMBADR:
$TSTM:
$PASTM:
SUNITM:
TAGADR .

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

IN THE APT-PDP11

DIAGNOSTIC

O
;:TWO HIGH BITS OF 18 BIT MAILBUX ADDR.
$MAIL
::ADDRESS OF APT MAILBOX (BITS 0-15)
6
YIRUN TIM OF LONGEST TEST
6
*SRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
6
SADDITIONAL RUN TIME (SELS) OF A PASS FOR EACH ADDED UNIT
SETEND-SMAIL/2
::LENGTH MAILBOX-E
TABLE (WORDS)

0072

_JRMNBC RMOS5/3/2 FCINL
N TAGS

TST 2

MACRO V04.00

4-APR-81

.
L
2
11:43:33 PAGE 6

SEQ 00.4

.SBTTL

COMMON TAGS

- ‘l'fi.fi'fi!"'t'..ti."""t't!.'tt'...tt.tt'.'t..'&Q!..Qt'tt'tttt

:*THIS

TABLE

CONTAINS VARIOUS

$+USED IN THE PROGRAM.

001116

001117
001120
001122
001124
001126
001130
001131
001132
001134
01136
001140
001142
001144
001146
001150
001151
001152
001154
001156
001160
001162
001164
001166
001170
001171
001172
001173
001174
001176
001200
001202
01204
001206
001210
001212
001216
001217
001220

001114

$CMTAG:

000000
000
000
000000
0000GC
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570
177562
177564
177566
000
002
012
000
000000
Q00000
000000
000000
000000
000000
000000
207
077

015
012

SWR :
.WORD
DISPLAY: .WORD

$NULL:
$SFILLS:
$FILLC:
$TPFLG:
$TMPO:
$TMP1:
$TMP2:

O
2
12
O
O
O
(O

$TSTNM:
S$ERFLG:
$ICNT:
$LPADR:
$LPERR:
SERTTL:
$ITEM3:
$ERMAX:
$ERRPC:
$GDADR:
$8DADR:
$GDDAT:
$8DDAT:
$AUTOB:
$INTAG:

177560

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

$TMP3:

377

000

377

.=TAGADR
irdelelelelalolelalolel delalalelalelolel

001134
001114

.WORD
_BYTE
.BYTE
_.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE

.WORD
.WORD
.WORD
,WORD
.WORD
.3823
.BYTE
.Bg;g

177560
177562
177564
177566
.BYTE
.BYTE
.BYTE
.BYTE

.WORD
L.WORD
.WORD

_WORD

$TMP4:
_WORD
$TIMES: O
$ESCAPE : 0
$BELL:
L.ASCIZ
$QUES:
L.ASCII
$CRLF:
.ASCII
$LF:
ASCIZ

COMMON STORAGE

LOCATIONS

;:START OF

COMMON TAGS

;s CONTAINS
;. CONTAINS
;s CONTAINS
;s CONTAINS
;;CONTAINS
;s CONTAINS

THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED

;. CONTAINS
;;CONTAINS
;. CONTAINS
;. CONTAINS
;. CONTAINS

MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS OF °'GOOD*® DATA
ADDRESS OF
°'GOOD' DATA

;s CONTAINS

ITEM CONTROL BYTE

;:CONTAINS °'BAD® DATA
. ;RESERVED~~NOT TO BE USED
;JAUTOMATIC MODE
;. INTERRUPT MODE

SWR
ODISP

;;ADDRESS Of
> ;ADDRESS GOF

;;TTY
::TTY
;3TTY
;. TTY

INDICATOR
INDICATOR

SWITCH REGISTER
DISPLAY REGISTER

KBD STATUS
KBD BUFFER
PRINTER STATUS REG. ADDRESS
PRINTER BUFFER REG. ADDRESS

:;CONTAINS NULL CHARACTER FOR FILLS
;s CONTAINS # OF FILLER CHARACTERS REQUIRED
;2 INSERT FILL CHARS. AFTER A 'LINE FEED'’
;2 'TERMINAL AVAILABLE'® FLAG (BIT<07>-0 YES)
. ;USER DEF INED
;sUSER DEF INED
:JUSER DEF INED

: sUSER DEF INED

: JUSER DEF INED
. sMAX. NUMBER OF ]TERATIONS
;ESCAPE ON ERROR ADDRESS
<207><377><377> ;:CODE FOR BELL
/2/
:;QUESTION MARK
<5
;: CARRIAGE RETURN
12>
;cLINE FEED

::tt*t*t****!*t*t*itt"i'tttttt!itfit*tt'itltt*tttfilttit!'ttn‘tttt

.SBTTL

APT MAILBOX-ETABLE

""t***l’tttttfi'*ttttt*t'.ittfii'*'t'tttttttitt"ttl'tt‘tttt'!ttt"t

001222
001222
001224
001226

.EVEN

000000
000000
000000

$SMAIL :

$MSGTY:
$FATAL:
$TESTN:

.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTIN

:;APT MAILBOX

;;MESSAGE TYPE (ODE
;;FATAL ERROR NUMBER
;;TEST NUMBER

CZRMNBO RMOS/3/72 FCTNL

APT MAILBOX~ETABLE

001230
001232
001234
001236
001240
001242
001242
001243
001244
001246
001250

TS5T 2

MACRD v04.00

4-APR-81

M2
11:43:33 PAGE 6-~1

SEQ 00,

000000
000000
000000
000000
000000
000
000
000000
000000
000000

$PASS:
.WORD
$DEV(T: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
$ETABLE:

$ENV:

$ENVM:
$SWREG:
$USWR:
$CPUOP:

.BYTE

APASS
ADEVCTM
AUN]T

AMSGAD
AMSGLG

_BYTE
.WORD
.WORD
.WORD

AENV
AENVM
ASWREG
AUSWR
ACPUOP

.BYTE
.BYTE

AMAMS1
AMTYP1

J
B
BN
LR

“oe,a,

”’

—

)

[ele]

000
000

$MAMS1:
$MTYP1:
<%

ix
.'t
R

001254

000000

$MADR1:

001270
001272

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

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

MAMS?:
sMTYP2:
$MADR?2:
sMAMS3:
mMTYP3:
$MADR3:
$MAMSS:
$MTYP4:
$MADR4:
$VECT1:
$VECTZ2:
$BASE:
$DEVM:
$CDW1:
$CDW2:
$O0DWO:
$DDWI:
$DDWZ2:
$DDW3:
$DDW4:
$DDWS:
$DDW6:
$DDW7:
$ETEND:
MEXIT

;:DEVICE COUNT
;:1/C UNIT NUMBER
; ;MESSAGE ADDRESS
; sMESSAGE LENGTH

;s APT ENVIRONMENT

TABLE

; JENVIRONMENT BYTE
; ;ENVIRONMENT MODE BITS
;sAPT SWITCH REGISTER

;:USER SWITCHES
. sCPU TYPE,OPTIONS
BITS 15-11=CPU TYPE
11/06=01,11/05=02,11/26=03,11/40=04,11/45=05
11/70=06,PDQ@=07,0=1C
BI1T 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
B8=MEMORY MANAGEMENT
;;HIGH ADDRESS.,M.S. BYTE
::MEM. TYPE .BLKA1
MEM.TYPE BYTE
=--

(HIGH BYTE)

BYTE

900 NSEC CORE=001
'
300 NSEC BIPOLAR=002
500 NSEC MOS=003
1
ADDRESS,BLK#
;.HIGH
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF "'TYPE'' ABOVE

.WORD

AMADR1

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

AMAMS2
AMTYP?
AMADR2

:sHIGH ADDRESS ,M.S.

4
AMAMS
AMTYP4
AMADR4
AVECT
AVECT?
ABASE

;sHIGH ADDRESS.M.S.BYTE
: s MEM. TYPE ,BLK#
:JMEM.LAST ADDRESS.,BLK#4
s« INTERRUPT VECTOR#],BUS PRIORITYA#1
;s INTERRUPT VECTORHZBUS PRIORITY#?
; ;BASE ADDRESS OF EQUIPMENT UNDER TEST
;.DEVICE MAP
2 ;CONTROLLER DESCRIPTION WORDA1
;s CONTROLLER DESCRIPTION WORD#2
;:DEVICE DESCRIPTOR WORD#0Q
;:DEVICE DESCRIPTOR WORD#1
;;DEVICE DESCRIPTOR WORDA?
;;DEVICE DESCRIPTOR WORD#3
;:DEVICE DESCRIPTOR WORDA4

001256
001257
001260
001262
001263
001264
001266
001267

; ;PASS COUNT

AMAMS3
AMTYP3
AMADR3

ADEVM
ACDW1

ACDWZ2
ADDWO
ADDW1
ADDW?2
ADDW3
ADDW4
ADDWS
ADDW6
ADDW?

,BLK#2
TYPE M.
: JME

;JMEM, LAST ADDRESS.BLK#?2

:;HIGH ADDRESS.M.S.BYTE
::MEM,_TYPE ,BLKA3
s sMEM.LAST ADDRESS ,BLK#3

;;DEVICE DESCRIPTOR WORD#S
;:DEVICE DESCRIPTOR WORD#6
;:DEVICE DESCRIPTOR WORD#7

USER DEFINED TAGS

001326
007330
001332
001334
001335

000000
000000
000000
000
000

TST 2

MACRO v04.00

4-APR-81

N 2
17:43:33 PAGE 7
SEQ 0026

.SBTTL

USER DEFINED TAGS

CTLFG:
CHGADR:

.WORD
.WORD
.WORD

XXDP:

LSTRK:

0
0
0

s CONTAINS CONTROL-C FLAG
: CHANGE RH/RM BUS ADDRESS = -1, NJ (HANGE = 0
;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHI(CH

; THE

001354

001356
001360
001362
001364
001366
001370
001372
001374
001376
001400
001407
001404
001406
001410

THE

HIGH BYTE

CODE FOR THE RM0S5/3/2.

CONTAINS

;UNDER TEST. RM02/3 = 4., RMO5 = 18.
IS USED fOR

:
GETBUF

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

JREGISTER INPUT BUFFER

RMCS11:
RMWC]:
:
RMBAI

:
RMDA]

RM(CS2I:
:
RMDSI

RMER1!:

:
RMASI
RMLAI:
:
RMDBI
RMMR1I:
RMDTI:
RMSNI
:
RMOF1:
RMDCI:

RMHR]
:

RMMR2]:

RMERZI:
RMEC1]:
RME(2]:

RMBAEI:

RM(CS31I:

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

OOV OOOOOOCOCOOOOCOOOOOCO0O

001336
001340
001342
001344
001346
001350
001352

DEVICE

;LO BYTE = 0
;HI BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT

BYTE
BYTE

;THE REGISTER INPUT BUFFER
;STORING DRIVE STATUS

001336

PROGRAM WAS LOADED.

;'XXDP'

;CONTROL, STATUS REGISTER #1
;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DISK ADDRESS REGISTER
;CONTROL, STATUS REGISTER #2
;DRIVE STATUS REGISTER
;ERROR REGISTER #1
;ATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER
;DATA BUFFER
sMAINTENANCE REGISTER #1
;DRIVE TYPE REGISTER

;SERIAL NUMBER REGISTER
JOFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER
sMAINTENANCE REGISTER #2
;ERRQR REGISTER #2
;ECC POSITION REGISTER
;ECC PATTERN REGISTER
;BUS ADDRESS EXTENSION REGISTER
;CONTROL, STATUS REGISTER #3

;THE REGISTER OUTPUT BUFFER IS USED FOR
sASSEMBLING DATA GOING TO REGISTER
001412

007436

000000
000000
000000
000000
000000
000000
000000

000000

000000
000000
000000

SREGISTER QUTPUT BUFFER

RM(CS10:
RMWCO:
RMBAO:
RMDAOQ:

RM(S20:

RMDSO:

RMER10:

RMASO:
RMLAO:
RMDBO:

RMMR10:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WCRD
.WORD
.WORD
.WORD

OOOOOOO

001412
001414
001416
001420
001422
001424
001426
001430
001432
001434

PUTBUF
:

CZRMNBO RMOS/3/2 FCTNL

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

;CONTROL, STATUS REGISTER #2
;DRIVE STATJS REGISTER
JERROR ~EGISTER #1
JATTENTION SUMMARY REGISTER

;LOOK AHEAD REGISTER
;DATA 3UFFER

SMAINTE! ANCE REGISTER #°

)

THE

“IRMNBO RMOS/3/2 FCINL
SER DEF INED

TAGS

001440
001442
001444
001446
001450
001452
001654
001456
001460
001462

001464

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

TST 2

MACRC v04.00

&-APR-81

11:43:33 PAGE

7-1

SEQ 002/
RMDTO:
RMSNO:

RMGFO:
RMDCO:
RMHRO:
RMMR20:
RMER20:

RMEC10:
RME(C20:
RMBAEQ:

RM(S30:

.WwORD
.wORD

sDRIVE TYPE REGISTER
;SERJAL NUMBER REGISTER

.WORD
.WORD
.WORD
.WORD
.WORD

O
O
O
0
8

JOFFSET REGISTER
sDESIRED CYLINDER REGISTER
sHOLDING REGISTER
SMAINTENANCE REGISTER #2
;ERROR REGISTER #2

.WORD

0
0
0

;CONTROL,

.WORD
.WORD
.WORD

SEACH WORD OF

;THE

0
O

LOW BYTE

sECC POSITION REGISTER
;ECC PATTERN REGISTER

;BUS ADDRESS EXTENSION REGISTER

STATUS REGISTER #3

THE TEST QUE CONTAINS THE DEVICE NUMBER IN

AND

THE

ATTENTION BIT

IN THE HIGH BYTE.

THE

;FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST
sIN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE
JEND OF THE QUE.
001466
001470
001510

060000

TSTQUE:

000000

.WORD

.BLKW
.WORD

sMEDIA ENABLE

001512

000000

;CONTAINS DEVICE POINTER

8.
O
IS SET

;FOR THE UNIT UNDER
MEDENB: .WORD
O

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

;ALL 8. DEVICES ARE UNDER TEST.
IF

THE BAD SECTCR FILES HAVE BEEN RECOVERED

TEST,

OTHERWISE IT IS ZERO.
JMEDIA ENABLE

SLOCATIONS ‘'ASNDC'' AND ''ASNDC’'® CONTAIN THE CYLINDER, TRACK AND SFCTOR
001514
001516
001520
001522

001524

000000
000000

;ADDRESS ASSIGNED BY

THE

;THE

CONTAINS A BYTE

ASNDC:
ASNDA:
CLKADR:
CLKVCT:

GET

.WORD
_.WORD
.WORD
.WORD

INDEX

O
O
O
O

TABLE

BAD

SECTOR MODULE.

SARE READ BY THE GET SUBROUTINE.
;A NEGATIVE BYTE.

GETINX:

.BLKB

23.

JASSIGNED DESIRED CYLINDER
JASSIGNED TRACK, AND SECTOR
;UNIBUS ADDRESS OF KW1l (LOCK
;VECTOR ADDRESS OF KW11 CLOCK
LIST OF

ReGISTERS WHICH

THE LIST [S TERMINATED BY

;GET INDEX TABLE

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

001553

;A NEGATIVE BYTE.

PUTINX:
;PUT

.BLKB

TAGS HERE

23.

JPUT

INDEX TABLE

CZRMNBO RMOS/3/2 FCINL

ERROR POINTER TABLE

TST 2

MATRO ,04.00

4-APR-81

11:43:33 PAGE 8

3
SEQ 00¢8

LSBTTL

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT (AN OCCUR.
s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

;*LOCATION SITEMB.

;*NOTE1:

B
»

:*NOTEZ2:

001602

;ERROR

065324
071410
071534
071624

[e VAR

001602
C01604
001606
001610

D00~

065330
071410
071534
071624

SELECTED

EMT2
EHTI
EDT]

EFTT

065336
071410
071534
071624

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

DEVICE WENT UNAVAILABLE

DEVICE WENT NONEXISTENT

EMI3
EHT1
EDT1
EFT1

065344
071410
071534
071624

CONTROLLER NOT READY

EMT4
EHTT
EDT1
EFT

;ERROR
001642
001644
001646
001650

THE
THE
THE
THE

EDT1
EFT1

;ERROR

001632
001634
001636
001640

TO
TO
TO
TO

EMTI
EXT?

;ERROR

001622
001624
001626
001630

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

WRONG UNIT

;ERROR

001612
001614
001616
001620

EM
DH
DT
DF

$ERRTR:

THIS NUMBER INDICATES WHICH ITEM [N THE

065352
071410
071534
071624

DRIVE NOT READY AND GO NOT RESET

EMTS
EHT]
EDTI
EFT1
;ERROR

TABLE IS PERTINENT.

If SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPr),
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

UNEXPECTED VALUE FOR '‘ATA'" STATUS

TIRMNBO RM(05/372 FCINL

FRROR

POINTER

001652
001654
001656
01660

001702
001704
001706

001710

001712
001714
001716
201720

001722
001724
001726
00:730

001732
001734
001736
001740
37
38
33

11:43:33 PAGE 8-1

EMré
EHT

EDT1
T
EF
;ERROR

BUS

:ERROR

DRIVE NOT READY BUT GO IS RESET

;ERROR

GO NOT RESETM BUT DRIVE

:ERROR

INCORRECT FUNCTION CODE

;ERROR

PARITY ERROR READING REMOTE REGISTERS

;ERROR

TRANSFER ERROR

; ERROR

INCORRECT WORD COUNT

TIMEQUT

TRYING

TO READ OR WRITE REGISTER

065366
600000
000000
000000

25
26
27

4-APR-B1

SEQ 002¢

065360
071410
071534
071624

001672
001674
01676
001700

MACRO v04.00

TABLE

001662
001664
001666
001670

TST 2

065374
071410
071534
071624
]S READY

065400
071410
071534
071624

065404
071410
071534
071624

065412
071410
071534
071624
IS

INCORRE(CT

065424
071410
071534
071624

001752
001754
001756
001760

065440
071410
071534
071624

INCORRECT BUS ADDRESS

EMT16
EHTI
EDT1
EFTI
:ERROR

001762
001764
001766
01770

11:43:33 PAGE 8-/

;ERROR

b and

071624

- —y

001750

"oOIR

001746

065632
071410
071534

4-APR-B1
mmmm

001742

001744

MACRO v04.00

ERROR PUINTER TABLE

TST 2

CIRMNBD RMQOS5/3/2 FCINL

INCORRECT LBT

STATUS

EMT17
EHT
EDTI
EFT1

065 .:0
071410
071534
071624

47
«8

. ERROR

001772
001774
001776
002000

065460
071410
071534
071624

002010

EDT

EFTT

065470
071410
071534
071624

065500
071410
071534
071624

0655190
071410
071534
071624

065520

INCORRECT CYLINDER ADDRESS

INCORRECT WLE STATUS

EMT23
EHTT
EDT!
EFTT
;ERROR

002032

INCORRECTY DISK ADDRESS

EMT22
EHT]
EDTY
EFTY

;ERROR
002022
002024
002026
002030

21
2T
EMI
EHT?
ECT
EFT1

. ERROR
002012
002014
002016
002020

INCORRECT AOE

EMT20
EHT

:ERROR
002002
002004
002006

EMT24

INCORRE(CT UPE

STATUS

SE2 003(

64
65
€6

F
11:43:33 PAGE

3
8-3

INCORRECT W(F

STATUS

INCORRECT WCE

STATUS

EMT25
EWT
EDTI
EFTI

065530
071410
071534
071624
:ERROR

002052
002054
002056
002060

7
T
T

Mld

:ERROR

002042
002044
00204€
002050

4=-APR-81

SEQ 0031

071470
071534
077624

¢l

MA{RO v04.00

mmmm

002040

ERROR POINTER TABLE

(ZJRMNBO KMOS5/3/2 FCINL

065540
071410
071534
071624

EMT26
EHTI
EDTI
EFTI

68
69

;ERROR

002062
0C2064
002066
002070

065550
0714610
071534
071624

70
71

INCORRECT MDPE

STATUS

EMT27
EHT1
EDTi
EFT

JERROR
002072
002074
002076
002100

065560
€71410
071534
071624

INCORRECT DCK STATUS

EMT30
EWT]
EDTY
EFT

73
75

;ERROR
002102

002104
002106
0021410

31
EmMr
ERT1
EDT1

065570
071410
071534
071624

EFT?
;ERROR

002112
002114

002116

002120

INCORRECT ECH STATUS

065600
071410
071534
071624

DLT SHOULD NOT BE SET

EMT32
EnTI
EDTI
EFT1

cERROR

002122
00224

EMT 33
ERT?

MXF

SHOULD NOT BE

SET

CRMNBO RMOS/372 FCINL

ERROR POINTER

002126
002130

MACRO v0&4.00

002140

91
2
93

065630
071410
071534
071624

065640
071410
071534
071624

065660
0714610
071534
071624

97
98

065666
071410
071534
071624

100
101

102

065676
071410
071534

STATUS

INCORRECT HCE

STATUS

INCORRECT

FER STATUS

DPFE

SHOULD NOT BE

SET

(NOT

A DATA COMMAND)

LOST "MOL"* DURING PA(K ACKNOWLEDGE

EMT4T
EXTT
EDT1
EFTY
:ERROR

002212
002214
002216

INCORRECT HCR(C

EMT40
EHTY
EDT1
EFTI
JERROR

002202
002204
002206
002210

EMT37

;ERROR
002172

SET

EHTI
EDT1
EFT1

002174
002176
002200

SHOULD NOT 8E

EMT136
EHTI
EDT1
EFTY

065650
071410
071534
071624

DTE

EMT35
FHTI
EDTI
EFTY

;ERROR

002162
002164
002166
002170

EDT1
EFT1

;ERROR

002152
002154
002156
002160

8-4

EMT 34
EHT

065620
071410
71534
071624

:ERROR
002142
002144
002146
002150

11:43:33 PAGE

ED11
EFT1

071534
071624
;ERROR

002132

&4-APR-81

TABLE

82
83

TST 2

42
EMTS?
EHT]

EDT

UNSAFE

ERROR DURING PA(K ACKNOWLEDE

JRMNBY KMOS/37¢ F(IN.

FRROR POINTER

002220

TABLE

LT 2

MACRC

,04.00

07162«

103
}gfi

002226
002226
0022

065710

106

065720
071410
071534
071624

109
1;?

065730
071410
071534
071624

112

1;2
065740
071470
071534
071624

115

1%?
065750
071410
071534
071624

118

%}3
Q65756
071410
071534
071624

121
%g%

065766
071410
071534
071624

"ILR'* ERROR DURING PACK ACKNOWLEDGE

"'ILF'" ERROR DURING PA(CK ACKNOWLEDGE

COMPOSITE FRROR STATUS IS INCORRECT

PARITY ERROR WRITING REMOTE REGISTERS

EMTS0
EHTI
EDTI
EFT1
;ERROR

002302
002304
002306
002310

“RMR'* ERROR DURING PACK ACKNOWLEDGE

EMT47
EHTI
EDT1
EFT1

;ERROR
002272
002274
002276
002300

EMT46
EHT1
EDTI
EFTY

;ERROR
002262
002264
002266
002270

ACKNOWLEDGE

EMT45
EHT1
EDT1
EFT1
:ERROR

002252
002254
002256
002260

"OPI'* ERROR DURING PA(K

EMT44
EHTI
EDTI
EFT1
;ERROR

0022642
002244
002246
002250

EHTI
EDT1
EFT1
;ERROR

002232
002234
002236
002240

SEQ 0037

EMT43

071410
071534
071624

;82

H
3
11:43:33 PAGE 8-%

EF
T
;ERROR

" 002222

4-APR-B1

EMT51
ERT1
EDTY
EF T

INCORRECT

[AE

STATUS DURING SEEK COMMAND

JHMAB. M5, 272 FCTN
PRRUR PUINTER "ABLE

TST

MACRO v04.00

4-APR-81

:ERROR

202312
002314
£92316
002320

066000
0714610
071534
071624

17:43:33 PAGE B-¢

SE0 0034

OP] ERROR DURING SEEK =~ MEDIUM IS NOT ON L INE

EMT52
ERTT
EDT?
EFM

127

;ERROI¢

066034
0716410
071534
071624

066044
071410
071534
071624

143
144

002372
002374
002376

(OMMAND

DEVICE

CHECK DURING SEEK

COMMAND

PiP IS STILL SET AFTER SEEK = SKI

IS RESET

ATA DID NOT

SET

DURING

SEEK

COMMAND

EMTS?7
EHT]
EDT]
EFT]

:ERROR

N —

145
146

ERROR DURING SEEK

EHTT
EDTI
EFT1

066074
071410
071534
071624

\HJ‘S
O
S

002362
002364
002366
002370

INCOMPLETE

EMTS56

;ERROR

142

066056
071410
071534
071624

140
141

SEEK

EMTS5
EHTI
EDT1
EFT1
;ERROR

002352
002354
002356
002360

54
EMT54
EHTT
EDT]
EFTI

:ERROR

002342
002344
002346
002350

OPI ERROR DURING SEER - MEDIUM [S ON L INE,
ON CYLINDER LAT(CH DIDN'T RESET

EFT1

:ERROR

002332
002334
002336
002340

53
EMTS3
EHT1
EDT

066016
071410
071534
071624

W
—

002322
002324
002326
002330

——
D

128
129
130

EMT60
EHTT

Ecmi

ERROR DURING SFEK COMMAND ~ LOS!

VOLUME

VALID

ASSUME

CZRMNBO RM(O5/3/2 FCTNL
ERRCR POINTER TABLE

002400

~NOM W

b
——
—

[V( ERROR DURING SEEX

VALID

STIL

SET

MOL IS ZERO, BUT OP]
REPORTED DURING SEEK

EMTE2
ERTI
EDTT
EFT1
JERROR

UNUSED

;ERROR

DRIVE DID NOT DETECT *‘Iv('' ERROR DURING SEEK

;:ERROR

DRIVE EXECUTED A SEEK WITH ERROR SET

. ERROR

UNEXPECTED ERROR SET

[N RMER1

;ERROR

UNEXPECTED ERROR SET

[N RMER/

066220
071410
071534
071624

167
169

002662
002464

_OMMAND -

WAS NOT
COMMAND

066200
071410
071534
071624

164
165

002452
002454
002456
002460

VOLUME

066160
071410
071534
071624

161

166

ERRONEOUS

000000
000000
000000
000000

162
002442
002444
002446
002450

EFT1

066142
071410
071534
071624

158

002432
0024 34
002436
002440

SEQ 0035

EDTY

< ERROR

002422
002624
002426
002430

3
J
11:43:33 PAGE 8-/

EMT6]
EHTI

066122
071410
071534
071624

D
o
—

002402
002404
002406
002410

4~-APR-81
EFTY

:ERROR

002412
002414
002416
002420

159
160

MACRO v04.00

071626

147
148
149
150

ST 2

CZRMNBD RMOS/3/2 FCTINL
ERROR POINTER TABLE

002466
002470
171

066254
071410
071534
71624

ERRONEOUS ''lAE'" ERROR DURING RECAL IBRATE

"'ILF'" ERROR DURING RECAL IBRATE

EMT71
EHTT
EDT1
EFT
;ERROR

00251
00251
002516
002520

EMT70
EHT1
EDT
EFT

. ERROR
002502
002504
002506
002510

K
3
11:43:33 PAGE 8-8

EDT
EFTY

066244
071410
071534
071624

002472
002474
002476
002500

4-APR-B?

SEQ 003

;ERROR

~INN

—

MACRO v04.00

077534
071624

170

172

TST 2

066264
071410
071534
071624

"OPI'" ERROR DURING RECALIBRATE DUE

TO ‘MOL'' = 0

EMT72
EHT
EDT1
EFT1

179

180
181

182

183
184
185

186
187
188

;ERROR

002522
002524
002526
002530

066302
071410
071534
071624

066320
071410
071534
071624

189
191

066350
071410

IvC'" ERROR DURING RECALIBRATE - ‘W'
= 0

ERRONEOUS ‘‘Iv('" ERROR DURING RECAL IBRATE - "‘wv"*

EMT75
EHT]

EDT
EFT1
;ERROR

002552
002554

EDTI
EFT1

066330
071410
071534
071624

190

CYLINDER DIDNT DROP

EMT74
EHTI

- ERROR
002542
002544
002546
002550

"OP]'' ERROR DURING RETALIBRATE BECAUSE ON

EMT73
EHTT
EDT1
EFT
;ERRUR

002532
002534
002536
002540

’3

EMT76
EHT1

"'SK1"" ERROR DURING RECAL IBRATE

(ZRMNBO RMOS/3/2 FCTNL

ERROR POINTER

002556
002560

TABLE

TST 2

MACRO v04.00

071534
071624

Epr11

201
202
203

328
EFT

066372
071410
071574
071624

206

002626
002630

066426
071410
071534
071624

209

066466
0771410
071534

— bt

~ohoro

"ATA'" DID NOT SET DURING RECAL IBRATE

103

"OM"* DID NOT RESET DURING RECAL IBRATE

104

_"PIP'" IS STIL

SET AFTER RECALIBRATE

EMT 104
EHT1
EDTI
EFT1

. ERROR
002642
202644
002646

102

EMT103
EHTI
EDT
EFT1

066450
071410
071534
071624

nN—=OQ

002636
002640

LOST “'VV'' DURING RECALIBRATE = "'Iv('' = C

EFTT

;ERROR

002632
002634

101

EMT102
EHTI
EDT1

066436
071410
071534
071624

207

LOST "MOL'’ DURING RECALJBRATE - "OPI'' - )

EMT101
EHT1
EDT1
EFT1

. ERROR

002622
002624

100

EMT100
EHT1
EDT1
EFT1

066410
0714610
071534
071624

204
205

"DVC'* OCCURRED DURING RECAL IBRATE

EHT

;ERROR

002612
002614
002616
002620

EMT77

066360
071410
071534
071624

;ERROR

002602
002604
002606
002610

EFT1

:ERROR
002572
002574
002576
002600

11:43:33 PAGE 8-%

SEQ 007

;ERROR
002562
002564
002566
002570

4-~APR-81

105

EMT105
EAT
EDT1

UNEXPECTED ''ILR'' ERROR DURING RECAL [BRATE

CZRMNBO KMOS/3/2 FCTNL
ERROR POINTER TABLE

—t
vl
b

[NV LV

MACRO v04.00

07162¢

002650

TST 2

066476
071410
071534
071624

002672
0C2674
002676
002700
222
223
224

225
226
227

002702
002704
002706
002710

002712

002714

002716
002720

"UNS'® ERROR DURING RECALIBRATE = A(C POWER ]> LOW

EFT
:ERROR

CANNOT ACCESS MASSBUS CONTROLLER VIA UNIRUS

. ERROR

NONEXISTENT DEVICE

;ERROR

DEVICE NOT AVAILABLE

066526
071432
071552
071642

066540
071436
071554
071644

066546

071436
071554
071644

WY
—

066554
000000
000000
000000

066570
071442
071556
071646

113

BUS TIMEOUT~NED STATUS FAILURE

EMT113

0
0
; ERROR

002732
002734
002736
002740

107

EMT107
EHT1
EDT?

;ERROR

002722
002724
002726
002730

UNEXPECTED 'RMR'' ERROR DURING RE(AL IBRATE

EFTY

066506
071410
071534
071624

WWIN

AN 1,81,
¥

228
229
230

106

EMT106
EHT®
EDT]

:ERROR

002662
002664
002666
002670

m3
*1:43:33 PAGE 8-10

EFT
;ERROR

00265¢
002654
002656
002660

4-APR-8Bi

DEVICE NOT AN RM0S/3/2

114

EMT 14
EHT 1 14
EDT 1 14
T 14
EFT1
1

SEQ 0035

CZRMNBO RMOS5/3/2 FCINL
ERROR POINTER TABLE

002742
002744

002746
002750

237
238
239

240
241
242

243
244
245

249
250
251

002752
002754
002756
002760

066606
071410
071534
071624

066626
071410
071534
071624

116

RMBA NOT

INITIALIZED BY UNIBUS

RMCS2 NOT

INITIALIZED BY UNIBUS

120

RMER1

INITIALIZED B8Y UNIBUS

NOT

EDT1
EFT1
121

RMAS NOT

INITIALIZED BY UNIBUS

EMTi21
EHT1
EDT1
EFT1

066636
071410
071534
071624

066646
071410
071534
071624

066656
071410
071534
071624

INITIALIZED BY UNIBUS

EHTI

122

RMMR1

NOT

INITIALIZED BY UNIBUS

EMT122
EHT1
EDTI
EFTI

. ERROR

003022
003024
003026
003030

NOT

EMT120

;ERROR

003012
003014
003016
003020

RMCST

EMT117
EHT]
EDT1
EFT1

066616

071410
071534
071624

;ERROR

203002
003004
003006
003010

115

EMT17°6
EHT1
EDTI
EFTI

;ERROR

002772
002774
002776

N 3
11:43:33 PAGE 8-11

EMT115
EHTY
EDTT
EFT1

066576
071410
071534
071624

;ERROR
002767
002764
002766
002770

4-APR-81

SEQ 0039

;ERROR

252

253
254

MACRO v04.00

:ERROR

003000

246
247
248

TST 2

123

EMT123
EHTI
EDT1
EFT1

RMDS NOT

INITIALIZED BY UNIBUS

(ZRMNBO RMOS/3/2 FCTNL
ERROR POINTER TABLE

2595
256

TST 2

MACRO v04.00

;ERROR

264
265
266

267
268
269

270
271
272

066676
071410
071534
071624

066706
071410
071534
071624

066720
071410
071534
071624

066732
0714610
071534
071624

071534
071624

126

RMCST

CLEARED BY

NOT

CONTROLLER CLEAR

127

RMBA NOT

CLEARED BY

CONTROLLER CLEAR

130

RMCS2 NOT CLEARFD BY CONTROLLER (LEAR

RMER1

NOT

CLEARED BY CONTROLLER CLEAR

EMTI3)
EHT1
EDTT
EFTY
JERROR

066756
071410

INITIALIZED BY UNIBUS

EMT130
EHT
EDT1
EFT]

066744
071410
071534
071624

c73

RM4R2 NOT

EMT127
ErTI
EDTI
EFT1

;ERROR

003102
003104
003106
003110

125

EDT1
EF T

;ERROR
003072
9C3074
003076
003100

INITIALIZED BY UNIR'S

EMT126
EHT

. ERROR
003062
003064
003066
003070

RMEC2 NOT

EMT125
EHT
EDTI
EFT1
:ERROR

€0305¢2
003054
003056
003060

124

EMT124
EHT1
EDTY
EFT

066666
071410
071534
071626

261
262
263

B &
11:43:33 PAGE B8-12

SEQ 0040
;ERROR

003042
003044
003046
003050

4-APR-81

132

EMT132
EHTT
EDT1
EFT1

RMAS NOT

CLEARED BY

CONTROILER CLEAR

CZRMNED ]MOS5/3/2 FCTINL
ERROR POINTER TABLE

277
278

003122
003124
003126
003130

003132
003134

003140

066770
071410
071534
071624

285
286
287

288
289
290

067002
071410
071534
071624

293

294
295
296

134

RMDS NOT CLEARED BY CONTROLLER (LEAR

135

RMEC2 NOT CLEARED BY CONTROLLER CLEAR

EMT135
ERT1
EDT]
EFTI

067026
071410
071534
071624

136

RMMRZ NOT CLEARED BY CONTROLLER CLEAR

EMT136
EHT]
EDT1
EFTY

067040
071410
071534
071624

137

RMCST

NOT CLEARED BY ERROR CLEAR

EMT137

EHTT
EDT1
EFT1
S ERROR

003172
00317¢
003176
003200

RMMR1 NOT (LEARED 8Y CONTROLLER CLEAR

EFTY

067014
071410
071534
071624

291
292

133

EMT134
EHT1
EDT1

:ERROR

003162
003164
203166
003170

EHTT
EDT1
EFT

s ERROR

003152
003154
003156
003160

11:643:33 PAGE 8-~13

EMT133

s ERROR

003142
003144
00314¢€
003150

4-APR-81

SEQ 0041

;ERROR

003136

282
283
284

MACRO v04.00
;ERROR

279
280

281

IST 2

067050
071410
071534
371624

140

RMCS2 NOT CLEARED BY ERROR CLEAR

EMT140
EHTI
EDT1
EFTY

:ERROR

141

RMCST

NOT

CLEARED BY DRIVE

CLEAR

EMT 141
EHT1T
EDT]
EF T

003210
297

298

;ERROR

142

RMDS NOT

CLEARED BY DRIVE

(LEAR

"IRMNBO RMOS/3/¢ FCTINL

ERROR POINTER

299

301
302

003212
003214
003216
003220

TABLE

003222

Za—b
-

067120
071410
071534
071624

CLEAR

144

RMAS NOT

CLEARED BY DRIVE

(LEAR

145

RMMR1

NOT

(LEARED BY DRIVE

(LEAR

EMT145
EHTY
EDT1
EFT?

067130
071410
071534
071624

146

RMMR2 NOT

CLEARED BY DRIVE

CLEAR

RMERZ NOT CLEARED BY DRIVE

CLEAR

EMT146
EHT?
EDT}
EFTY

067140
071410
071534
071624

~NO
N

N NN

318

CLEARED BY DRIVE

EMT 144
EHT
EDT1
EFT

;ERROR

147

EMT147
EHTI
EDT1

EFTT

;ERROR

003272
003274
003276
003300

NOT

EDT1
EFT1

;ERPOR

003252
003254
003256
203260

RMEKR1

EHT

067110
071510
071534
071624

003242
003244
003246
003250

143

EMT143

s ERROR

003262
003264
203266
003270

319
320

EDT1
EFTT

071624

307

309
310
3N

EHT1

067100
071410
071534

306

4
D
11:43:33 PAGE 8-14

EMT142

071610
071534
071624

;ERROR

003232
003234
€03236
003240

4-APR-81

SEQ 004r

067070

303

308

MACRO V04.00

:ERROR

003224
003226
003230

305

TST 2

067150
071410
071534
071624

150

RMEC2 NOT CLEARED BY DRIVE (LEAR

EMT150
EHTI
EDTT
EFT1
;ERROR

151

MEDIUM NOT

ON LINE

32°
322
323

;ERROR

067172
071410
671534

327
328
329

330
3N
33¢

067204
071410
071534
071624

el o

152

DRIVE FAULT

153

UNSAFE

SHOULD BE

SET BECAUSE

Dv(

IS SET

EMT153
Eom
EFT1
154

UNSAFE SHOULD NOT BE SET, AC

IS LOW

EMT154
EHT
EDT1

067222
071410
071534
071624

EFT1

. FRROR

003342
003344
003346
003350

ERTI

;ERRQOR
003332
003334
003336
003340

EF1

:ERROR

003322
003324
003326
G03330

11:43-33 PAGE 8-15

EMT152
EHT
EDT

071624

3¢4
325
326

g —y

067160
071410
071534
071624

4-~APR-81
"OITR

003302
304

TABLE

MACRO v04.00

mMmmm

FRROR POINTER

TST 2

) cd —ad cad

(ZFWNBO RMOS5/3/2 FCINL

06724C
0714610

155

VOLUME

VALID NOT

SET BY PA(K A(K

EMT155
EHT
128
EFT1

071534
071624

333

334
335

336
337
338

;ERROR

003352
003354
003356
003360

067252
0714190
071534
071624

003372

067276

157

OFFSET MODE NGOT

RESET 8Y RTY(

EMT157
EHT?
EDT1
EFT1
;ERROR

COMMAND

EDT1
EFTY

067264
071410
071534
G71624

339
340

OFFSET MODE NOT SET BY OFFSET

EMT156
EHTI

;ERROR
003362
003364
003366
003370

156

160

EMT160

RMOF

N_.TM RESET BY RIP (OMMAND

COMMAND

003402

345
346
347

003412
003414
003416
003420

355
356
357

067320
071410
071534
071624

161

071204
071472
071570
071660

162

067342
071410
071534
071624

RESET BY RIP (OMMAND

DATA WAS ECC CORRECTED BUT
WRITE BUFFER

164

OPI

SHOULD NOT BE

SET

Iv(C SHOULD NOT BE

SET

IAE

SHOULD NOT BE

SET

NEM SHOULD NOT BE

SET

EMT164
ENTT
EDT?
EFTY

067350
071410
071534
071624

165

EMT165
EHTT
EDT1
EFT1
JERROR

067356
071410
071534
071624

166

EMT166
EHT1
EpT?
EFT
JERROR

067364

RMDC NOT

EMT 336
EHT236
EDT336
EFT336

ERROR

003442
003444
003446
003450

RMDA NOT RESET BY R]P 7 OMMAND

EMT 162
EHT
EDT1
EFTI

;ERROR

003432
003434
003436
003440

B-1¢

X Yy

—y
—y -y

s ERROR 163

003422
003424
003426
003430

11:43:33 PAGE

EMT161
EWT
EDM
EFT
;ERROR

350

352
353
354

067306
071410
07153
071624

348
349

351

:ERROR

003404
003406
003410

4-APR-81

SEQG 0044

071470
0715%
071624

REY

003374
003376
003400

TABLE

MATRO v04.00

mmm

ERROR POINTER

TST 2

JRMNBO RM0S5/3/2 FCINL

167

EMTI67

DOES NOT

(OMPARE WITH

071626

. ERROR

003472
003474
003476
003500

067372
0714610
071534
G71624

367

067404
071410
071534
071624

067414
071410
071534
071624

373
374

382
383
384

067434
071410
071534
071624

174

0674654

071410

INITIALIZED BY (ONTROLLER CLEAR

SELECTED DEWICE

IN WRITE PROTECT

067446
071410
071534
071624
;ERROR

003552
003554

RMER? NOT

EMT174
EHT]
EDT1
EFT
:ERROR

003542
003544
003546
003550

INITIALIZED BY UNIBUS INIT

EMT173
EHTI
EDT]
EFT
:ERROR

003532
003534
003536
003540

RMER2 NOT

379
380
381

067424
071410
07153«
071624

173

576
377
378

"ATA'" NOT SET BY OFFSET (OMMAND

EMT172
EHT1
EDT1
EFTT
:ERROR

003522
003524
003526
003530

172

375

"ATA’' NOT SET DURING RETURN TO CENTERL INE

EMTI7
EHTI
EDT1
EFT1
;ERROR

003512
003514
003516
003520

INCORRECT "MOL"‘ STATUS DURING DJAGNOSTIC MCDE

171

—d oy =t~y

370
37
372

170

EMT170
ERTT
EDT]
EFTT
;ERROR

003502
003504
003506
003510

T
T
7

"TOIR

368
3¢9

8-17

07140

071534

364
365

11:43:33 PAGE

SEQ 0045
-oOxT

003464
0034066
003479

TABLE

4-APR-B1
mmm

PGINTER

MACRO v04.00

mmmin

FRRLF

15T 2

—

JRMNBL RMGS/3,¢ FCTN

176

EMT176
EHT

CANNOT SET DIAGNOSTIC TODE

CAMNBC RMOS/3/2 SCTINL
PGINTER

003556
003560

TABLE

003562
003564
003566
003570

000000
000000
000000
000000

388

391
392
393

EF1
;ERROR

387

: ERROR

003572
003574
003576
003600

067464
071410
071534
071624

177

==RESERVED FOR POWER MONITOR BIT FAJLURE=~

200

INCORRECT "PIP'" STATUS DURING DIAGNOSTI( MODE

EMT200

EHT
EDT
EFTY

:ERROR
003602
003604
003606
003610

H
4
'1:43:33 PAGE B8-18

Eon

077534

385

4-APR-81

SEQ 0046

071624

386

390

MACRO v04.00

[elelelwl

FRROR

TST 2

067476
071410
071534
071624

201

INCORRECT "WRL'' STATUS DURING DIAGNOSTIC MODE

EMT201
EHTT
EDT1
EFTT

394

395
396

397
598
399

400
30
402

:ERROR

003612
003614
003616
003620

067510
071410
071534
071624

067522
071410
071534
071624

203

INCORRECT "DVC'' STATUS DURING DIAGNOSTIC MODE

EMT203
EHTT
EDT1
EFT1
;ERROR

003632
003634
003636
003640

INCORRECTY °'SKI'" STATUS DURING DIAGNOSTIC MODE

EMT202
EHT
EDT
EFT1

;ERROR
003622
003624
003626
003630

202

067534
071410
071534

204

"VV'' WAS NOT RESET BY MAINTENANCE UNIT READY

EMT204
EHT?
EDT1
EFT1

071624

403

604

405

;ERROR

003642

003644

003646

067552
071410
071534

205
EMT205
ERTI
EDTI

SELECTED DEVICE HAS A PERSISTENT °'SKI'' ERROR

JRVNE, RMOS/3%/72 FCINL

ERRCR PGINTER

003650
406
407
408

TABLE

TST 2

MACRC

v04.00C

071624

003662

267562
071410
071534
071624

418
419
420

EWT

067604
071470
071534
071624

426

071534

071634

211

UNEXPECTED MECHANICAL MOTION - "PIP""

212

UNEXPECTED DEVICE FAULT - "DV(C''
= 1

EMT212
EMTT
EDT
EFT1

267642
071410
071534
071624

071544

VOLUME VALID - "W
- 0

EFT1

067626
071410
071534
071624

067657
071422

UNEXPECTED LOSS OF

EMT211
EHT
EDT1

213

UNEXPECTED SEEK

INCOMPLETE ERROR - 'SKI'"

EMT213
EHTI
EDT1
EFT

;ERROR

003732
003734
003736
203740

210

EFT1

071624

424

"MOL'‘ - MEDIUM IS OFF L INE

EMT210
EHT
EDT1

067612
07143C

425

UNEXPECTED LOSS OF

EHTI
EDT1
EFT1

;ERROR

003722
003724
003726
003730

207

EMT207

067572
07140
071534
071624

;ERROR

003712
003714
003716
003720

*LBC*" DID NOT SET DURING DIAGNOSTI( MODE

EDTi
EF 1

:ERROR

003702
003704
003706
003710

206
EMT206

;ERROR
003672
003674
003676
003700

8-19

EFM

;ERROR

003664
003666
003670

1':43:33 PAGE

SEQ 004

;ERROR

003652
003654
003656
003660

4-APR-81

214

EMT214
EHT2
EDT2
EFT2

DRIVE EXECUTED A RECALIBRATE WITH ERROR SET

"JRMNBO RMOS/3/¢ FUTNL

FRROR POINTER

TABLE

42?7

428
429

003742
003744
003746
003750

067672

003752
003754
003756
003760

067704
071410
071534
071624

003772
003774

004000

067714
071410
071534
071624

067734
071410
071534
071624

217

INCORRECT ''IAE'' STATUS

INCORRECT "WLE'' STATUS

221

INCORRECT "OP]'" STATUS

EHT]
EDT1
EFT?
;ERROR

004012
004014
004016
004020

INCORRECT "'Iv(C'' STATUS

EMT221

442

443

CRIVE DID NOT DETECT *‘Iv('* ERROR DURING RECAL IBRATE

EMT220
EHT1
EDT1
EFT1
;ERROR

004002
004004
004006
004010

8-20

EMT217
EHT
EDTI
EF71

067724
071410
071534
071624

439

444

216

s ERROR 220

003776

440
441

215

11:43:33 PAGE

EMT216
EHTT
EDT]
EFT1

;ERROR

003762
003764
003766
003770

4-APR-81

EMT215
EHT2
EDT2
EFT2
;ERROR

436

637
438

MATRO v04.0C

071622
71544
071634

430

633
634
435

s ERROR

%))

432

TSr

067744
071410
071534
071624

222

RM DID NOT DETECT

RMR ERROR

RM DID NOT

PARITY

EMT222
EHT1
EDTT

EFT1

445

446

447

;ERROR

004022
004024
004026
004030

067754
071446
071560
071650

223

EMT223
EHT223
EDT223
EFT223

DETECT

ERROR ON MASSBUS

CONTROL

BUS

"JRMNBO RMOS/3/2 FCTNL

ERROR POINTER

TABLE

TST 2

MACRO v04.00

(LB

zgg

:ERROR

004032
004034
004036
004040

000000
000000
000000
000000
:ERROR

GO0O000
000000
000000
000000

zgg

457
458
459

JERROR
000000
000000
000000
000000

004070

000000
000000
Q00000
000000

460

22}

004100

UNJSED

226

UNUSED

¢ .7

UNUSED

0
0
0

0
;ERROR

004072
204074
004076

225

0
0
0
0
;ERROR

004062
004064
004066

UNUSED

0
0
0
0

454

€04052
004054
004056
004060

224

000000
000000
000000

230

UNUSED

0
0
0

000000

463

42@

SERROR

004102
004104
004106
004110

000000
000000
000000
000000

237

JNUSED

0
0
0
0

466

467
468

469

;ERROR

004112
004114
004116
004120

(00000
000000
000000
000000

232

0
0
0
0

11:43:33 PAGE 8-!

0
0
0
0

451
22%

004042
004044
004046
004050

4-APR-81

UNUSED

475
476

000000
000000
000000
000000

;ERROR
000000
000000
000000
000000

481
482

484
485
486

4«87
488
489

;ERROR
004162
004164
204166
004170

004172
004174
004176
004200

004202
004204
004206
004210

UNUSED

000000
000000
000000
000000

UNUSED

OOOO

483

[elelole)

004152
004154
004156
004160

UNUSED

OO0

004142
04144
004146
004150

;ERROR

478
479
480

JERROR

;ERROR

000000
000000
000000
000000

UNUSED

OOTCO

477

UNUSED

QOO0

004°40

006000
000000
000000
000009

;ERROR
004132
004134
004136

UNUSED

OO0

000000
000000
000000
000000

233

472
.73
474

SEQ 0050
:ERROR

004122
004124
004126
004130

4
L
11:43:33 PAGE B-22

000000
000000
000000
000000

JNUSED

QOO0

470
7

TABLE

4-APR-81

fRROR POINTER

MACRDO v04.00

rTZRMNBC RMOS/3/2 FCINL TST 2

490

491

ERROR

242

UNUSED

JRMNB., RMOS/3/72 FCINL
ERROR POINTER TABLE

4973
4L9¢
495

MACRO v04.00

004250

LI
11:43:33 PAGE 8-23

SEQ 0051

000000
00700
Ov.C0
00G000
:ERROR

004g22
004224
004276

&-APR-B1

[olelele

004212
004214
004216
004220

000000
000000
000000
000000

243

UNUSED

QOOCO

492

TST

:ERROR

499
500

501

004242
004244
004246
004250

505
506
507

—r
el ——d

V.1Y,1V,]

AN~

508
509
510

004252
004254
004256
304260

. ERROR

:ERROR

246

000000
000000
0000C9
000000

502

50%
504

070030
071410
071534
071624

UNUSED

"ATA"" NOT RESET BY GO WHEN "ERR'*

247

"ATA'' NOT RESET BY WRITING RMAS

EMT247
EHT1T

070040
071410
071534
071624

EDT1
EFT1

:ERROR
004272
004274
004276
004300

EMT 246
EHT
EDT1
EFTY
:ERROR

004262
004264
004266
004270

UNUSED

[elolele)

000000
000CGY
000000
000000

004232
004234
04236
004240

OOOO

497
498

-y

070052
071410
0671534
071624

250

"ATA'* WAS RESET BY GO WHEN 'ERR''

EMT250
EHT]
EDTI
EFTI

;ERRCOR

251

PROGRAM

INTERRUPT

WAS NOT

GENERATED

—t

(o
3V,
P 3

—t and

520
521
522

523
524
525

070130
071410

070140
071460
0721560
071650

[
19,15,]

070150
071410
071534
071624

N—

070162

254

INCORRECT "‘ILF'* STATUS

255

INCORRECT "‘ATA’" STATUS

256

INCORRECT "ILR"' STATUS

257

INVALID

1AE

STATUS DURING SEARCH COMMAND

EMTZ2S57
EHTI
EDTI
EFT1

s ERROR

004372

OFFSET MODE WAS NOT RESET BY WRITING RMC(

EMT256
EHT256
EDT223
EFT223

- ERROR
004362
004364
004 366
004370

253

EMT255
EHT1
EDTY
EFT

071534
071624

529
530

SHOULD NOT HAVE BEEN GENERATED

EDTI
EFTI

. ERROR

004352
004354
004356
004360

INTERRUPT

EMT254
EHT]

070120
071410
071534
071624

526

PROGRAM

EHTT
EDT
EFT1

071534
071624

- ERROR
004342
004344
004346
004350

252

EMT253

:ERROR

004332
004334
004336
004340

€1

EMT252
EHT?2
EDT?
EFT2

070102
071410

527
528

"TOoOIxX=®

070074
071422
071544
071634

N0
N

(W 19,1V}

070066
071422
071544
071634

;ERROR
004322
004324
004326
C04330

&
N
11:43%:33 PAGE 8-24

SEQ 005¢

s ERROR

004312
004314
004316
004320

4-APR-81
mmmmm

004302
004 304
004306
004310

MACRO v04.00

b
]

ERROR POINTER TABLE

T1ST 2

AN 1,8 1,81,
V]

CZRMNBO RMQOS/3/2 FCINL

260
EMT260

“IvC"' WAS NOT DETECTED DURING SEARCH COMMAND

"IRMNBO RMOS/3/2 FOTNL

FRROR POINTER TABLE
006374
004376
006400

1ST 2

MAIRO v0O&4.GU

0714°0
071534
071624

535

2§9

070174
(071410
071534
071624

538
%23

070214
071410
071534
071624

541

22%
070226
(71410
071534
071624

544

gzg

004440

070234
071410
071534
071624

547

zzg
070254
071410
071534
071624

550

gg;
070274
071410
071534
071624

553
554

:
004462

070306

*UBC’* ERROR NOT SET DURING DIAGNOSTIC MODE

263

**'3K]"* ERROR DURING SEARCH (COMMAND

264

"'ivI"" ERROR DURING SEARCH = LOST VOLUME VALID

265

ERRONEOUS I1VC ERROR DURING SEARCH - VOLUME S VALID

266

DEVICE FAULT (DVC) DURING SEARCH

EMT 266
ENHTY
EDT]
EFTY

JERROR

ggg

262

EMT265
EHTT
EDT1
EFTY

;ERROR
004452
004454
004456
004460

SE7

EMT264
EHTT
EDTI
EFT1

;ERROR
004442
004444
004446
004450

EXECUTED SEARCH WITH ERROR

EMT263
EHT
EDT]
EFTI

;ERROR
004432
004434
004436

DRIVE

EMT262
EHTI
EDTI
EFT

:ERROR
004422
004424
004426
004430

261

EMT261
EHTT
EDT1
EFT1

:ERROR
006412
004414
004416
004420

B
5
11:43:33 PAGE 8-25

ENTY
Eon
EFTI
:ERROR

0046402
004404
006406
0046410

4-APR-81

267

EMT267

SK]

SHOULD HAVE BEEN SET BECAUSE CYLINDER

ADDRESS IS TOO LARGE

JRMNBD RMOS/3/2 FCINL

tSROR POINTER TABLE

D00~

206474

004476
004500

564
565
566

567
568
569

070324
071410
071534
G71624

070340
071410
071534
071624

573

ERROR DURING SEAR(H BECAUSE MOL

OP!

ERROR DURING SEARCH BECAUSE ON CYLINDFR

= 0

DIDN'T DROP

272

LOST MOL DURING SEARCH,

OPI

IS NOT SET

EMT272

EHT1
EOT
EFT1

070374
071410
071534
071624

273

PIP STIL

SET AFTER SEAR(H

EMT273
EHT1
EDTT
EFTT
. ERROR

004532
004534
004936
004540

OP1

EMT271
EHTI
EDI
EFT

070356
071410
071534
071624

570
571
572

270
118!
EDT1
EFT

;ERROR
004522
004524
004526
004530

B-26

EMT270

:ERROR

004512
004514
0064516
004520

11:43:3% PAGE

EXT]
EDT1
EFTY

; ERROR
006502
004504
004506
C04510

4~APR-81

SEQ 0054

. ERROR

004472

560
561
5€2
563

MACRO v04.00

071470
07153
071624

(VA8
3V
NN

004464
004466
004470

TST 2

070412
071410
071534
071624

274

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

EMT274
EHTI
EDT1
EFT1

sERROR
070430
6714610
071534
071624

275

MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA
COMMAND STARTED

EMT275
EHT
EDT
EFT1

:*RROR

276

"OPI'" ERROR DURING DATA TRANSFER BECAUSE "MOL'' WAS

JRMNBO RMOS/3/72 FOTNL

ERROR POINTER

582
583
584
585
586

004562
004564
004566
004570

071534
071624

070474
071410
071534
071624

070514
071410
077534
071624

070536
071410
071534
071624

601

070562
071410
071534

ERRONEQUS "'IVC'' ERROR DURING DATA TRANSFER - VGLUME
IS VALID

—t

302

"'ILR"" ERROR DURING DATA TRANSFER

303

“'ILF"* ERROR DURING DATA TRANSFER

EMT303
EHTT
EDT1
EFT1
;ERROR

004632
004634
004636

301

EDT1
EFT1

070550
071410
071534
071624

60¢

VALID

EMT302
EHTI

:ERROR

004624
004626
004630

“IVC'' ERROR DURING DATA TRANSFER BECAUSE VOLUME

WAS NOT

EMT 301
EHT1
EDT1
EFT1
;ERROR

004622

300

EMT 300
EHT
EDTY
EFT1

;ERRCR

004612
004614
004616
004620

"OP1'" ERROR DURING DATA TRANSFER BECAUSE 1) ON
CY_INDER DIDN'T DROP OR 2) SEARCH TIMED OUT OR
3) RUN TIMED OQUT

EHT
EDT]
EFTT

;ERROR

004602
004604
004606
004610

277

EMT277

071410

598

603

"noIR

070456

b )

070442
071410
071534
071624
;ERROR

004572
004574
004576
004600

600

D
5
11:43-33 PAGE 8-~27

—

004552
004554
004556
004560

587

595
596
597

4-APR-81

ZERQ

588
589

591
592
593
594

MAIRO v04.00

mmmm

580
581

TABLE

TST 2

304
EMT 304
EHTT
EDT1

"RMR'' ERROR DURING DATA TRANSFER

SEQ 0059

“IRMNBO) RMOS/3/72 FCINL

ERRCR POINTER

C0L640

TABLE

607
608
609

MACRC

v04.00

;ERROR

004642
004644
004646
004650

070574
071610
071534
071624

070606
071410
071534
071624

613

004706

004710

070636
071410
071534
071624

622
623
624

070650
071410
071534
071624

DRIVE DID NOT DETECT SKI ERROR DUE

TO CYLINDER

310

DEVICE

FAULT DURING DATA TRANSFER

LOSS OF

BIT

LOSS OF

SYSTEM (LOCK DURING DATA TRANSFER

CLOCK DURING DATA TRANSFER

EMT311
EHT]
EDTY
EFTT

070662
071410
071534
071624

070674
07141G
071534
071624

307

EDTY
EFTI

312

EMT312
EHT
EDTI
EFTI

. ERROR

004722
004724
004726
004730

"'SKI'* ERROR DURING DATA TRANSFER

EMT310
EHT

;ERROR

004712
004714
004716
004720

306

EDT1
EFT1

619

620
621

INCORRECT “'IAE'' STATUS DURING DATA TRANSFER

EMT307
EHTY

070616
0721470
071534
71624

;ERROR

004702
004704

305

ERT
EDTT
EFTI

;ERROR
004672
004674
004676
004700

8-¢8

EMT 306

;ERRCR
004662
004664
004666
00467C

11:43:33 PAGE

EMT305
EHT
EDT]
EFT1
;ERROR

004652
004654
0046656
004660

«~-APR-81

EFT

071624

604

605
506

IST 2

313

EMT313

EHTT
EDTI
EFTT

UNSAFE

ERROR DURING DATA TRANSFER

(DVC

()

"IRMNBO RMCS5/3/2 FCINL

ERROR POINTER TARLE

62€
627

004732
004734
004736
004740

070714

071534
071624

WNAAON

634
635
636

004766

004770

637
638
639

640
641
642

070740
071410
071534
071624

070752
071410
071534

070762
071410
071534
071624

645

005016

205020

071002
071410
071534
071624

31¢

ERRONEOUS WRJTE LOCK ERROR

317

HEADER

CRC

ERROR DURING DATA

FORMAT

ERROR

HEADER

COMPARE

TRANSFER

320

DURING

DATA

TRANSFER

LFQ

ERROR DURING DATA TRANSFER

EMT 321

EHT

EDTY
EFTY

:ERRCOR
005012
005C14

LOCK ERROR

EM1320
EHTY
EDT1
EFTI

070772
071410
071534
071624

bbb

WRITE

EDT
EFT1

071624

643

315

EHTT

. ERROR

005002
005004
005006
005010

TIMING ERROR DURING DATA TRANSFER

EMT317

; ERROR
004772
004774
004776
005000

ORIVE

EMT316
EHT
EDT1
EFTY
:ERROR

004762
004 764

SEQ 0057

EMT3i5
EHT
EDT1
EFTI

070706
071410
07153
071624

SERROR
004752
004754
004756
004760

314

F
S
11:43%3:3% PAGE B8-/9

EHTI
EDTY
EFT
:ERROR

004742
0067464
004746
004750

4~APR-8]

EMT314

071410

W
-

629
530

MACRO v04.07

sERROR

628

fe Ja Xo 8

~ by

TST 2

322

EM1322
EHTY
EDTI
EFTY

HEADER ERRORS SHOULD NOT BE

SET

JRMNBO RMOS5/3/2 FUINL

FRRCR

PGINTER

TABLE

TST 2

MACRO v04.00

648

649
€50
65°

:FRROR

005022
N0502¢4
V05026
005030

071010
071410
071534
071624

005060

658
659
660

071044
071410
071534
071624

071062

071074
071410
071534
071624

005106
005110

6e?

071104
071410
07153
071624

DATA (HECK ERROR DURING DATA

326

DATA PARITY ERROR DURING READ COMMMAND

327

OFFSET MODE NOT RESET BY WRITE

(OMMAND

DATA PARITY ERROR DURING WRITE

(OMMAND

EFT1

330

EM1330

EHTT

gEp1?
EFT1
:FRROR

005102
005104

UNCORRECTABLE

EMT327
EHTT
EDTT

071410
071534
071624

664
665

325

EMT 326
EHT]
EpT
EFT]

;ERROR

005072
005074
005076
005100

DATA (CHECK ERROR DURING DATA TRANSFER

EDTI
EFTI

JERROR

005062
205064
005066
005070

CORRECTABLE

EMT325
EHT

;ERROR

005052
005054
005056

324

EFTI

071032
071410
071534
071624

655

656
657

DATA (HECK ERROR DURING DATA TRANSFER

EMT 324
EHT1
EDT?

;ERRCR
005042
005044
005046
005050

323

EF
I

071020
071410
07153«
071624

652

653
654

B-30

EMT323
EXT?
£EDOT

;ERROR

005032
005054
005036
005040

*1:43:33 PAGE

SF0 005K

647

4=-APR-B1

WRITE (LOCK FALURE DURING WRITE

COMMAND

TRANSFER

"JRMNBO RMOS/3/2 F Ty
FRRCR POINTER TABLE

MAIRO v04.70C

071116
071410
071534
071624

EpT?

071146
071410
071534
071624

685
686
687

688
689

AFTER DATA

TRANSFER = Ski

= 0

334

LOST MOL DURING DATA TRANSFER = OP!

= 0

335

LOST

YOLUME

VALID DURING DATA TRANSFER - Iv(

EMT335
EHT
EDT]
EFT1

071410
071534
071624
;ERROR

071204
071472
071570
071660

336

DATA READ DOES NOT

COMPARE WITH DATA WRITTEN

EMT336
EHT336
EDT336
EFT336
s ERROR

071214
071504
071600
071670

337

WRITE

CHECK ERROR NOT

WRITE

CHECK ERROR AT UNEXPECTED ADDRESS

DETECTED

EMT337
EHT337
EDT337
EFT337
. ERROR

005172
005174
005176
005200

SET

EHTT
EDTI
EFT1
;ERROR

005162
005164
005166
005170

PIP STIL

EMT 334

679

682
683
684

333

EMT333
EHTI
EDI]
EFT
;ERROR

005152
005154
205156
005160

"RANSFER

£EFT

071164

680
681

DATA LATE ERROR DURING DATA

EHWTI

671230
071410
071534
071624

005150

332

EMT332

;ERROR

676
677

H
S
11:43:33 PAGE 8-3%1
€0 B0S%

:ERROR

673
674
675

4=-aPR-81

071224
071472
071570
071660

340

EMT340
EHT336
EDT336
EFT336
;ERROR

341

INCORRECT DATA DURING WRITE (HECK ERROR

JRMNBC RMOS/73/72 BTN

FAROR

POINTER

690

£91
92
693

005202
005204
005206
005210

005212
005214
005216
005220

209

710

342

*IV("* ERROR NOT DETECTED DURING DATA TRANSFER

EDT1
EF T

071256
071410
077534
071624

343

"FER'' NOT DETECTED DURING DATA TRANSFER

EMT343
EHTT
EDT1
EFTY

071270
071516
071610
071700

344

"HCE'' NOT DETECTED DURING DATA

TRANSFER

EMT 344
EHT 344
EDT 344
EFT344

071302
071410
071534
071624

345

"BSE'* NOT DETECTED DURING DATA TRANSFER

EMT 345
EHTI
EDT1
EFTS

. ERROR
005252
005254
005256
005260

EMT 342

;ERROR
005242
005244
005246
005250

'7:43:33 PAGE B-32

EHT

;ERROR

005232
005234
00523¢
005240

4-APR-81

EMT341
EHT336
EDT336
£EF1336

;ERROR

703

706
707
708

,C4.00

071244
071410
07153
071624

704

705

MART

07123%6
071472
071570
071660

700

7G2

SERROR

694
695
€96
. 005222
005224
£05226
005230

697
698
699

TABLE

VSY

071312
071410
071534
071624

346

HEADER ERROR WAS DETECTED W/ HCI

SET

EMT 346
EHT
EDT1
EFT1
;ERROR

005262
005264
005266
005270

347

DATA

TRANSFER NOT ABORTED W/ COMP ERROR SET

EMT347

EHT]

EDT1
EF T

JERROR

350

LOST VOLUME VALID DURING SEARCH = *'IvC'"

JRMNB( RMOS/ 372 F{TNL
fRROR POINTER TABLE

005272
005274
005276
005300

IST 2

MACRO v04.00

4-APR-81

11:43%:33 PAGE 8-33
<FQ

071340
071410
071534
071624

EMT350
EHT
EDT
EFT1

712

713

;ERROR

714

005302
005304
005306
005310

351

"ATA' DID NOT

SET DURING SEAR(CH

EMT 351

071356
071410
071534
071624

EHT]
EDT]

EFTI

715

716

717

JERROR

0Ns312
005314
005316
€05320

071366
000000
000000
000000

718
719

720

005322

005324
005326
005330

724
725

005332
005334
005336
005340

PROGRAM

TIMEOUT WHILE

EMT352

sERROR

353

LOOK AHEAD

JERROR

354

BSE

TEST FAILS

071372
07153¢
071622
071710

721

722
723

352

071402
071410
071534
071624
L

SHOULD NOT BE

EMT354
EHT
EDT]
EFT1
.PUT ERROR TABLE HERE

SET

TESTING RMLA

N
-

TABLE USAGE

}

1
1
1

NN WNI—=ON00 NPV

ERROR

2OV

JRMNBO RMOS5/3/2 FCINL

TST 2

MACRO v04.00

“-~rR-B1

.SBTTL
;THE

ERROR

;NUMBER,

;

TABLE

ABOVE

C(ONSISTS

].E..

FOUR WORD ENTRIES

FOR EACH ERROR

TABLE ADDRESS

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

;

;THE

’

SEQ 0067

TABLE USAGE

EMT - ERROR MESSAGE

:
:
:

K
5
11:43:33 PAGE 9

EFT - ERROR FORMAT
EMT

ENTRY

THE

TABLE ADDRESS

ADDRESS

:FOR THE PARTICULAR ERROR.

THE

TABLE

EACH ERROR MESSAGE

ERROR MESSAGE

TABLE LISTS

STRINGS

THE ADDRESS

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

THE

ERROR

TYPE

SUBROUTINE.

;NO MESSAGE T0 BE TYPED FOR THE ERROR.

THE

EMT ENTRY

IS ZERQ,

THERE

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

2
2
22
gz

;DATA, HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND
JHEADER. THAT ]S, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA,
;BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE
sMUST ALSO HAVE A FORMAT,

25
26
27
28

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

FRROR

=2O0V00 N

TABLE

WR) = OO0 NP

NOPONINY
b b b ed h b —b = a0

)

" JRMNBO RMOS/3/2 FCTNL

IST

(ISAGE

MACRO v04.00

&-APR-B1

005414
005414
005416
005420

011600
005740
022626
104401

000417

005356
;:65%:
66%:

010046

104402

000240

012737

177777

C05432
005436
005440
005444
005446

005037
000240
005227
001375
000005

0C1330

005454
005456

005462
005464

005470
005476
005504

005512
005520

005526
005534
005542
05550
005556
005562
005566
005574
005602

012706
005026
022706
001374
012706
012737
012737
012737
012737
012737
012737

012737
012737
013737
005037
005037

112737
012737
012737

005610
005614
005622
005630
005636
005644

013746
012737
012737
012737
022777
001012

005646

000403

001330

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

LASCIZ

<CRLF>/UNEXPECTED BUS TIMEOUT.

64$

¢9g0c

RO,=-(SP)

001100

000004
005650

177570
177570

177777

PC=/

;SETUP FOR TYPING OUT PC
;PUT

*HALT(0)'

INSTRUCTION HERE

;TO STOP ON UNEXPECTED TIMEOUT.
OF

YOU WISH

PROGRAM

; CHANGE RH/RM BUS ADDRESS

START:

gbg

CHGADR

;NO CHANGE

INC
BNE
RESET

#0
.4

;TTY LOOP, WAIT FOR INCREMENT
;OF WORD

001154

057560
000340
062614
000340
062722
000340
031760
001206
001210
000001
005574
005602

sGET OVER THE ASCIZ

START?

INITIALIZE

;RESET

THE

IN ADDRESS

WORLD

COMMON TAGS

;. CLEAR THE COMMON TAGS ($CMTAG) AREA

001114

000340

OUT OCCURED

#-1,CHGADR

LSBTTL

056764

START

;SAVE PC WHERE THE TIME
;JADJUST PC =2
cRESTORE STACK POINTER
,,TYPE ASCIZ STRING

START1: MOV
BR

STARTZ:

000000

TIMEOUTS

1S7
(MP
TYPE

NOP

005422
005430

000402

HANDLES UNEXPECTED

BADTMO: MOV

.SBRTTL

005450

SEQ 0063
sTHIS ROUTINE

00534¢
005344
005346
005350
005354

11:43:33 PAGE

000020
000022
000030
000032
000034
000036
000024
000026
031752
001131
001122
001124

HSCMTAG,R6
(R6) +
ASWR R6
.6
#STACK,SP

MOV

#$SCOPE ,a#I0TVEC

MOV
Mov
MOV

#SERROR ,@#EMTVEC ;,EMT VECTOR FOR ERROR ROUTINE
#340,WEMTVEC+2 ; LEVEL 7
#$TRAP ,@#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS

soINITIALIZE A FEW VECTORS
MoV

MOV

MOV
MOV
CLR
CLR
MOVB
MOV
MOV

;;FIRST LOCATION TO BE CLEARED
;s CLEAR MEMORY LOCATION
;.DONE?
;;LO0OP BACK If NO
:;SETUP THE STACK POINTER

;10T VECTOR FOR SCOPE ROUTINE

#340,0#10TVEC+2 ;:LEVEL 7

#340,9#TRAPVEC+2; LEVEL 4

HSPURDN, S¥PWRVEC ;,;POWER FAILURE VECTOR

4340, R4PURVEC+2
; :LEVEL 7
$ENDCT,SEOPCT
. :SETUP END-OF ~PROGRAM COUNTER
$TIMES
;o INITIALIZE NUMBER OF ITERATIONS
$ESCAPE
;sCLEAR THE ESCAPE ON ERROR ADDRESS
#1,SERMAX
;;ALLOW ONE ERROR PER TEST
#.,8LPADR
;o INITIALIZE THE LOOP ADDRESS FOR SCOPE
#.,SLPERR

::SETUP THE ERROR LOOP ADDRESS

;.SIZE FOR A HARDWARE SWITCH REGISTER.
;s EQUAL

000004
001154
001156
173310

MOV
CLR
CMP
BNE
MoV

TO A '*~1'’,

MOV

A#ERRVEC,-(SP)

;;SAVE ERROR VECTOR

#DSWR , SWR

$:SETUP FOR A HARDWARE SWICH REGISTER

#-1,3SWR
66%

;2 TRY TO REFERENCE HARDWARE SWR
;;BRANCH IF NO TIMEOUT TRAP OCCURRED

Mmov

#64$,@¥ERRVEC

MOv

#DD1SP,DISPLAY

65%

MoV

(MP
BNE

IF NOT FOUND OR IT IS

SETUP FOR A SOFTWARE SWITCH REGISTER.

::SET UP ERROR VECTOR

;;AND A HARDWARE DISPLAY REGISTER

;;AND

THE HARDWARE SWR IS NOT - -1

;2BRANCH IF NO TIMEOUT

TZRMNBO RMOS5/3/2 FCINL 1ST 2
INITIALIZE THE COMMON TAGS

00565C
005654
005656
005664
005672

012776
000002
012737
012737
012637

005676
005702
065710
005712
005720

24
25 005720
b 005726

MACRO v04.00

001154
001156

001230
000200

001243

001244

001154

005342
000300

000004
000006

:?Y

#65%, (SP)

;sSET UP FOR TRAP RETURN

65%:

MOV

#SWREG, SWR

:¢POINT

$PASS

;s CLEAR PASS COUNT

66$:

MOV
MOV

BITR
BEQ
mMov

(LR

177777

032122

000426

0060634
006040
006042
006050

006052

006060
006062
006064
006066
006074

005737
001012
123727
001406

MOV
MOV

000042

023727
001005
104407
000403
112737

éég9$:

.SBTTL

NAPTSIZE ,$ENVM
67%
#$3WREG, SWR

;;TEST USER SIZE UNDER APT
;s YES,USE NON-APT SWITIH
s :NO,USE APT SWITCH REGISTER
;SETUP FOR UNEXPECTED
;LEVEL 6

CMP

#SENDAD ,ané42

JsACT=11?

TYPE

.69%

;o TYPE ASCIZ STRING

LASCIZ

TIMEOUT

68%

; sBRANCH IF YES

::GET OVER THE ASCIZ

<CRLF>RCZRMNBO - RM05/3/2 FUNCTIONAL

TEST,

PT 2a<(RtF>

GET VALUE FOR SOF TWARE SWITCH REGISTER
TST

a6l

B8EQ

70%

001242

000001

001154

000176

(MP

BNE

g;SUR

70%:
71%:

#BADTMO,ERRVEC
W#PRG,ERRVEC+2

TYPE PROGRAM NAME

BNE
{MPB

000001~ 001150

SWR

THE NAME OF THE PROGRAM [F FIRST PASS
INC
-1
;;FIRST TIME?
BNE
68$
; ;BRANCH IF NO
BEQ

005760

000042

1O SOF TWARE

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

JSETUP "‘TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS

;:TYPE

006034

29
30
31
32

6469

.SBTTL

005734
005740
005742
005750
005752
005756

M
S
11:43:33 PAGE 10-1

SEQ 0054

005656

000176
000174
000004

4-APR-E1

MOVR

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

708
SENV #1

. sBRANCH [F YES
;. ;ARE WE RUNNING UNDER APT?

SWR, #SWREG

::SOFTWARE

;;GET

#1,8AUT08

::SET AUTO-MODE

718

;JBRANCH IF YES

SWIT({H REG SELECTED?

;¢BRANCH IF NO

SOFT=-SWR SETTINGS

INDICATOR

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

33 006074
06100
35 006106
006110
37 006116
38 006124
39 006126
42 006132
41 006136
42 006140
006144

006172

43 006172
44 006174

45 006200
46 006202

005037
122737
001160
013737
122737
103002
105037
005737
001425
106401

000412
005046
113716
104403
001

001332
000016
000040
000007

001332
000042

CLR

000041
001332

006146
%éiss:

001332

*BRANCH IF NOT

MOov

a#se0, xXxXbP

CLRB
TST
BEQ
TYPE

XXDP
aNé2
28
73%

CMPB
BHIS
1%:

;CLEAR

#16,a441

BNE

001332

XXDP

(MP8

LASCIZ

CLR
MOVB

TYPOS

.BYTE

47.,XXDP
1%

72%

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

*XXDP'

LOAD DEVICE

:LOADED FROM"
AN RM(05/3/2 ?

STORAGE

JGET DEVICE INDICATOR AND NUMBER
SIS IT A VALID NJMBER ?
SYES

:NO, DEFAULT 10 DRIVE O
;CHAIN MODE OR ACT11 AUTO ACCEPT
*BR IF NEITHER
;sTYPE ASCIZ STRING

*:GET OVER THE ASCIZ

TESTING DRIVE /

:CLEAR WORD ON STACK
*GET DRIVE ADDRESS
*TYPE

THE

JONLY 1

ADDRESS

CHARA(CTER

(ZRMNBO RMOS/3/2 FCTNL
GET VALUE FOR SOF TWARE

47 006203
48 006204
49 006210
50

51 006212
52 006216
53 006220
006224

000
104401

000517
005227
001114
104401

000410

ST 2
MACRO v04.00
SWITCH REGISTER

::75%:
748
:

001332

006350
60 C06350
006354

000435

104401

006356

2%:

006226

113716
104403
001
000
104401
000431

005046

TYPE
B8R

177777

::77%:
76%:
:278%:

006450

65 006450
66 006454
67 006456
68
69
70 006464
71 006464
72 006472
73
74 006474
75 006476
76 006502
77
78 006506
79 006514
80 006516
81 006522
C06524

006526
006527
82 006530
83
84 006534
85 006542
86 006546
87 006552
88 006560
89 006562
90 006570
91 006572
92 006576
93 006604
94 006610

3s:

005737
001561
012737

$CRLF

#-1

005001
013700
104401
136137
001531
104401

010146

000200

012760
010160
005760
032760
001051
032760
001450
016002
012737
022702
001430

THRU HERE

748

::GET OVER THE ASCIZ

;CLEAR WORD ON STA(CK
;GET DRIVE ADDRESS

.BYTE
BYTE

1
0
778
76%

JONLY 1 CHARACTER
;SUPRESS LEADING ZEROS
;. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

TYPE
BR

LASCIZ

TYPE

BR
LASCIZ

001300

MoV

001243

XSl12Z:

001300

001217

1%:

/.,

HALT PROGRAM,

.78%
38

;:TYPE DRIVE ADDRESS

REMOVE RRDP PACK AND REPLACE

000040
000010
000012
010000

000010

/WITH A WORK PACK,

CLEAR LOCATION 40 AND RESTART

asl

STANDALONE
#377 ,$DEVM

004000

000000

000026
064366
020025

006776

000010

IN AUTO MODE

;RUNNING IN AUTO MODE

- SEE

SIZING

IS ALLOWED

;SIZING ALLOWED ?

CLR
mMov
TYPE

;START FROM DRIVE

BITB
BEQ

ATNTBL(R1) ,8DEVM
;1S DEVICE PRESENT
11%
;BR IF NO

12%

$BASE RO
LSYSTAT

,$CRLF

R1,~(SP)

;NO

.LOAD THE BASE ADDRESS
;TYPE 'UNIT STATUS:'

s CR-LF

;:SAVE R1

TYPE
MOV

#CLR,RMCS2(R0O)

;CLEAR MASS BUS

RMDS (RO)
#NED ,RMCS2(R0O)
3%
#DVA ,RMCS1(RO)
4%

JACCESS DRIVE REGISTER
;IS DRIVE PRESENT ?

BNE

BIT
BEQ

MOV
MOV

CMP
BEQ

RMDT(RQO) ,RZ
#SRMO?2,10%

#20025,R2

IN MAP ?

;.60 TYPE--OCTAL ASCII
c:TYPE 2 DIGIT(S)

2
0
JBLNKS4

BIT

FOR TYPEOQUT

.BYTE
.BYTE

R1,RMCS2(R0O)

PROGRAM./<CRLF>

JBR IF NO
;SET DEVICE MAP FOR ALL DRIVES

#B]T7,$ENVM

Mov
TST

[T/<CRLF>

;o TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

BITR
BNE

TYPE
Mov
TYPOS

064560

<CRLF>/T0 TEST DRIVE /
=(SP)
XXDP, (SP)

TST

104403
002

000
104401

TIME

;NO
":TYPE ASCIZ STRING

CLR
MOVB

BEQ

001276
064350
064666

TGET NUMBER OF DRIVES

;FIRST

3%
.75

;PROGRAM IS RUNNING

132737
001146

; SUPRESS LEADING ZEROS
‘CR-LF

SCHECK FOR AUTO MODE OR STANDLONE MODE

000042

000377

INC
BNE
TYPE
BR
LASCIZ

TYPOS

006256

N
5
11:43:33 PAGE 10-2

SEQ 0065
BYTE

c01217

006246
006246
006250
006254
006256
00657
006260
006264

54
35
56
57
58
59

4-APR-81

. : SUPPRESS LEADING ZEROS
sTYPE 4 BLANKS

;LOAD THE DRIVE ADDRESS

;BR IF NO

;IS DRIVE AVAILABLE
;BR IF NO

;SAVE DRIVE TYPE REGISTER IN R?
JASSUME RMOZ2 DEVICE

;SINGLE

;BR IF

PORT RMO?2

YES

SMNBC RMOS/3/2 FCTNL

vALJE

FOR SOF TWARE

95 006612
3 006616
97 006620

98 006626
99 006632
100 0066346

101

022702
001425
012737

(12737
022702

064400
020027

06 006654
105 C06656

001406
022702

106 006662

001403

08 006670

000612

107 006664

109 006672

110 006700

064373

032760

010000

]}; 006702

000417

113 006706

;;g G06710

1064401

000402

ou-663

116 006712
117 006716

}}g 006724

106401
146137

000425

064460
064666

120 006726

104407

064477

005737

001332

121 006732
15% 006740

126

006742

146137
000413

064666

001406
123707
001360

}%3 006762

000755

1064401

064426

131 006764
132 006770
133 006774

104401
104401
104401

064510
064562

;gg 006776

000000

136 007000

005201

137 007002

;gg 007006
140 007C10

14" 007014

(MP

BEOQ

TYPE

000012

2%:

3%:

001300

($:
5%:

6%:

7%:

B8R

BIT

BEQ

104401

001217

007476

11:43:33 PAGE

'0-3

TYPE

8%:
9%:

11%:

;DUA_ PORT RMO? °
:BR IF YES
;ASSUME RMO3 DEVICE

:BR IF

#20024 ,R2
s
#246024 ,R2

#ESRMOS, 108
#20027 ,R2

;SINGLE PORT RMO3 2
:BR IF YES
;DUAL PORT RMO3 2
YES

;JASSUME RMOS DEVICE
s SINGLE PORT RM0OS ?

2%
824027 ,R2

:BR IF YES
;DUAL PORT RMOS

.NCTRM

;DRIVE NOT AN RM0S5/3/2

#MOL ,RMDS(RQ)

;IS MEDIUM ON LINE

2%
5%

NOTPRS

:BR IF YES

JCHECK NEXT DRIVE

:BR IF NO
;DRIVE

NOT PRESENT

TYPE
BI(R

.NOTAVL
;DRIVE NOT AVAILABLE
ATNTBL (R1) ,$DEVM
;CLEAR DEVICE

TYPE

BICB
BR
TST

;CHECK NEXT DRIVE

JUNTCFF

;DRIVE OFFLIME

XXDP

;LOADED FROM RM)S/3/2

TYPE
TYPE
TvPE

.UNTON
BLNKS?

INC

cMp

TYPE

JmMp

FROM BIT MAP

ATNTBL (R1) ,$DEVM
;CLEAR DEVICE FROM BIT Map
3%
;PRINT DRIVE TYPE
8%
XXDP,R1
5¢

.WORD

SCHECK NEXT DRIVE

118

BEQ
CMPR
BNE

BLE
12%:

824025 ,R2
2%
#SRAM03, 108

TYPE

10$:
000007

000137

006776

001332

020127

003637

(mP
BEQ
(MP
BEQ
MOV
CMP
BEQ

B6R

125 006746
126 0C6750
127 006754

128 006756

00677¢

026027

064405

001412

MP
BEQ
MOV

024024

104401

&=-APR-81

<EQ

024025

020024

001414

MACRO v04.00

SWITCH REGISTER

022702
0014617
022702

006640

102 006642
03 006650

TST 2

LLODEV

;NO
;IS THIS THE DRIVE
;BR IF NO

;DRIVE IS LOAD DEVICE

;DRIVE ONLINE
;JTYPE 2 BLANKS
:PRINT DRIVE TYPE

sMESSAGE ADDRESS HERE

; INCREMENT THE DRIVE ADDRESS

R1 47

ALL DRIVES ARE

:BRANCH IF NOT

LSCRLF

s CR-LF

(MNSTARY

CHE(KED

;JUMP TO COMMON START

"JRMNBC RMOS/3/72 FCTNL

STANDALONE

TST 2

INPUT ROUTINES

MACRO v04.00

4-APR-81

061230

007024
007030

005227
001023

177777

STANDALONE

:
STANDALONE
JSR

INC
BNE

INPUT ROUTINES

PC.STKINT

JINITIALIZE CONSOLE

=1
23

JFIRST TIME THRU HERE
;BR

JSEE IF OPERATOR WANTS HELP TEXT

OOV® YO N

004737

6
11
SEQ OUE-

.SBTTL

007029
007020

c
11:43:33 PAGE

ha VO

N Y

NP NNV

007032
007036
007040
007044
007052
007054
007060
007064
007066
007072
21 007076

007100
007100
007104
007106
007112

007116

007116
007122
007126

007130
007134
007136
007142
007144
007152
007154
07160
007162
007170
007174
007176
007202
007204
007210
007212
007216
007220
007226

007230
007234
007236

104401
104411

012637
123727
001005
104401
1046401

000414
104401
104401
000407

005737
001457
005037
104401

063450
001176
001176

TYPE
RDCHR
MOV
{MP8

000131

001176
101360
1%:

0C1e217

:SEE
2%:

001330

BNE

TYPE

HELP

3%
N

TYPE

104402
104401

104413

012637

001412
022737
101403
104401
000756
013737

104401
005046
113716
104402
104401
104413

0126%7
001412
022737
101003
104401

000755

113737

064025
001276
064562
001176
160000

CHGADR

CLR

CHGADR

001176

TYPE

001276

064077

4%:

5%:

001272

064106

001176

6% :

UNIBUS ADDRESS,

LCNSLO1
$BASE ,~(SP)

LBLNKS?Z
{SP)+ ,$TMP1
5%
#160000,$TMP1

L,CNSLO?

VECTOR ADDRESS AND

;TYPE 2 BLANKS

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

TYPE
(LR
MOVR

,CNSLO3
-(SP)
$VECT?T, (SP)

;GET CURRENT VECTOR ADDRESS

TYPE

BLNKSZ
(SP)+,$TMP1

BEQ
{(MP
BH]

7%
#1000,8TMPT
6%

BR
MOVR

5%
$TMP1,SVECT

, CNSLO4G

INTERRUPT PRIORITY

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

$TMP
, SBASE
1

TYPE

001272

;CR=LF

MOV

001176

;NO CHANGE NEXT TIME

LSCRLF

THE

:TYPE WARNING MESSAGE
;TRY AGAIN

RDOCT

001176

; CHANGE RH/RM BUS ADDRESS
:BR IF NO

TYPOC

064562

01000

TYPE
MOV
TYPOC
TYPE
RDOCT
MoV

B8LOS

064035

'Y!

;TYPE °N!
;CR=LF

TO CHANGE

BEQ
cMP

001176

JTYPE

JYES = TYPE HELP TEXT

LSCRLF

TST

:DIALOGUE

1044017
013746

;GET RESPONSE
;SAVE AND E(CHO RESPONSE
::85 IT A YES RESPONSF ?

IF USER WANTS TO CHANGE UNIBUS ADDRESS

TYPE

3%:

LSTMP1

BR
TYPE

BEQ

001330
001217

JWANT HELP ?

(SP)+,$TMP1
$TMPT &Y
1%

TYPE

064554

JMSHELP

;STORE NEW BUS ADDRESS

:TYPE 2 BLANKS
;GET NEW VECTOR ADDRESS
;CARRIAGE RETURN?

JYES=SKIP TO NEXT ENTRY

:¥EgT9fi ADDRESS < 1000 ?
;TYPE WARNING MESSAGE
JRETRY

;STORE NEW VECTOR ADDRESC

FTZRMNBC RM0S5/3/72 FCINL

STANDALONE

INPUT

57
58
59 007244
60 007250
61 007252
62 007256

63 007262

64 007266

65 007272
66 007274
67 007300
o8 007306
£9 007310
70 007314
71 007322
72
73 007326
74 007334
75 007336
76 607342
77 007350
78 007352
79 007360
80 007362
81
82 007364
83 007366
84 007372
&5 007400
86 007402
87 007406
88 007412
89 007420
90 007422
91 007430
92 007432
93 007436
94
95 007440
96 007444
97 007450
58 207456
99 007464
100 007466
101 007472

TST 2

ROUTINES

005227
001002
114401
104401

005037
104401
104411

012637
023727
001007
104401

012737
000137
023727
001436
104401

023727
002430
023727
003427
000423
104411

012637
023727
001632
104401
104401

023727
002404
023727
003403

MACRD v04.00

064142
001217
001300
064326

8%:
9%

001176

000101

063434
000377
006464

001300

001176

000015

001176
061176

000060

001176

000067

CLR

TYPE
RDCHR
MOV
cMP

MOV
JMP

10%:

cMP
BEQ

TYPE
CMP
BLT
CMP
BLE

8R
11%:

000015

063445
001176
001176

000060

001176

000067

TYPE
TYPE

12%:

013701
042701
156137

001176
177770
64666
000377

13%:

001217
006464

RDCHR
MOV

(MpP
BEQ

064304

000137

TYPE
TYPE

BNE
TYPE

104407
000711

122737
101337
104401

6
11-1

:DIALOGU E TO INPUT DEVICE NUMBERS
o=
INC
JEIRST TIME
BNE
8%
JBR IF NO

78:

001176
001176

D
171:43:33 PAGE

SEQ 0068

177777

001176

4-APR-81

001300
001300
4%

STYPE INPUT INSTRUCT]ONS

$DEVM

;CLEAR DEVICE MAP

LSCRLF

+MSDRVS

(SP)+,8TMP
$TMP1,4'A

10%
JALL
#377 ,8DEVM
XS12

$TMP1 ,4#CR

;CR=LF
;TYPE

'DRIVE(S):

;NO
JYES, TYPE “ALL'' AND GO
;SET DEVICE MAP FOR ALL DRIVES
JAUTO SIZE.

;CARRIAGE RETURN ?

12%
,$TMP1
$TMP1,4'0
12%

JYES
;ECHO RESPONSE
JNUMBER < 0 ?
JYES

13%
12%

;NO
;ILLEGAL

(SP)+,8TMP1

;GET RESPONSE

$STMPY ,4'7

$TMPT ,#CR
14%
. COMMA

L$TMP1

JNUMBER > 7 2

JTYPE

;RETRY

$TMP1,R1

NUMBER > 7 ?
JTYPE CR~LF *" ?ILLEGAL INPUT"'
;R1

- DRIVE NUMBER

ATNTBL(R1) ,$DEVM
#377 ,$DEVM
JDONE
11¢
:NO

JMP

XSiz

L$CRLF

JNUMBER < 0 ?
JYES

MOV
8IC
81SB
(MPB
BHI

#*C7.,R1

;ECHO RESPONSE

;NO

,CNSLO8

INPUT

; CARRIAGE RETURN ?
JYES

13¢

STMP1.,4'7

;GET RESPONSE
;1S INPUT "A"
2

$TMP1 40
12%

TYPE

.CNSLO?7

Mp
BLT
cmp
BLE

TYPE

THRU

;CR=LF

;GO SIZE

JSET DEVICE

DEVICES

IN mMaP

J5"NBO RMOS/3/72 FTINL

STANDALONE

INPUT

TIST 2

ROUTINES

MATRO v04.00

NP NS W
Y

NNV =20V

R N
[

7 07556

8 007564

9 007570

? 007572
007574

22
23
24
25

007576
007600
007602
007604

28 007610
29 007614
30 007616
007622
31
32
33
34
35

007652
207652
007656
007660
007664
007670

37 007670
38 007672
39 007676

40 007700
41 007704

42 007706
43 007712
45
66
47
4«8
49

007716
007722
007726
007732
007736

007742
007746

JASSEMBLE

104401

013700
001004
104401
104401

012701
010137

012702
005003
030200
001413
104401

010311

010346
104403
001
000
116361

062701
006302

007402
005203
000756
005011

0632445

004737
000425

036460

005737
001002
000137
000137
000240

105737

001007

000042

005432
032112

001300

000042

105037

061116
001206
001326
061230

005432
032112

000240
007750

TYPE
MOV
MOV
MOV

(LR
BIT
BEQ

TYPE

MOV
MoV
1YPOS

.BYTE
BYTE

000001
3%:

4%:

MOVB
ADD
ASL
TSTR

READY:

2%:

:BR IF DRIVES TO TEST
JTYPE ',
¢
STYPE *NONE'
;R1 = ADDRESS OF FIRST ENTRY
JINITIALIZE ENTRY POINTER
;sR2 = DEVICE POINTER

°*DRIVE(S)

;RO = DEVICE MAP

R3
R2.RO
3%
. COMMA
R3,(R1)
R3,-(SP)

TO BE

TESTED®

;:G0 TYPE--OCTAL ASCI!

;:TYPE

DIGIT(S)

;:SUPPRESS LEADING 2EROS

ATNTBL(R3) ,1(R1);ENTER ATTENTION BJT

#2,R1

;ADVANCE

IN QUE

ENTRY POINTER

R2
R2

;ADVANCE DEVICE POINTER
;DONE ALL DEVICES ?

R3
2%

;ADVANCE DEVICF NUMBER
JENTER NEXT DEVICE

JYES

;TERMINATE TEST QuUt
sTYPE (R-LF

PC.SIZCLK

JSEE

CLOCK PRESENT

JYES = CLOCK IS PRESENT

BR
LASCIZ

648

;oGET OVER THE ASCIZ

TSY

L2
5%
START
$GET4?

BNE
JMP
JMP
NOP

LO5%

<CRLF>/NO

TSTB

$DEWM

TST

ans?l

BNE
JMp

JMP

CLRB
CLR
(LR
JSR
mMov
Mov
RT1

;e TYPE ASCIZ STRING

'L'

*P'

(CLOCK/

;ANY MONITOR PRESENT 2
;BR IF YES
;JUMP TO START
;RETURN CONTROL TO MONITOR

;READY TO START TEST
;ANY DRIVES

sBR IF YES

IN MAP ?

;ANY MONITOR PRESENT ?

JBR IF

YES

START
$GET42

;JUMP TO START
JRETURN CONTROL

$TSTAM
$TIMES
CTLFG

JRESET TEST NUMBER
JINITIALIZE NUMBER OF
sCLEAR CONTROL=-C FLAG

#PRS5 ,=(SP)

s sPUT NEW PS ON STACK

PC,S$TKINT

#64%,-(SP)

[N QUE

JR3 = DEVICE NUMRER
;1S THIS DEVICE IN MAP
JNO .
;TYPE *, !
JYES - ENTER DEVICE NUMBER N OUE
..SAVE R3 FOR TYPEQUT

(R1)
LSCRLF

BNE

1%:

1%
. (OMMA
NONE
ATSTQUE +2.R1
R1,TSTQUE
”,R2

TYPE

5¢:
6%:

sTYPE

INC
BR
LR

JSR
BR

;.65%:
64%:

JDRIVES

$DEVM,RO

BEQ

;SIZE FOR (CLOCK

007624

005737
001002
000137
000137

005037
005037
004737
012746
012746
000002

1%:

2%:

001217

000413

TYPE

001466
000001

104401

BNE

063445
064547
001470

105702

TEST QUE FROM DEVICE MAP

TMNSTART:
TYPE
MOv

064520
001300

064666
000002

11:43:33 PAGE

SEQ 0069

2 007476
007476
007502
007506
007510
007514
007520
007524
007530
007534
007536
007540
007542
007546
007550
007552
007554
007555

4=-APR-B1

TO MONITOR

JINITIALIZE TTyY

JePUT NEW PC ON
STACK
;;POP NEW PC AND PS

ITERATIONS

* JRMNBO RMOS/7372 FCINL

INPLT ROUTINES

007750

50 007750
51 007756
52
53
56
55
56 007762
57 007770
58 007774
59 010002
o0 010010
61 010014
62 010020
€3 0100c4
64 010026
65
66
67
68 €10034
69 010040
70 10044

010050
010052
010053
010054
010056
010060
010067

010064

117737

005037

MACRO v04.00

4-APR-81

11:43:33 PAGE

12-1

Stu 007’

171512
——d

5TANDALONE

TST 2

001512

001234

¥
(YA

MOVB

@TSTQUE ,$UNI]T

(LR

MEDENB

.LOAD DRIVE NMBLR

;CLEAR MED]A ENABLE

sCLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE THE LAST TRA(K
:OF

012737
013700
012760

002000
001276
000040

016002

000026
177770
000007

117760

042702
022702

001003
012737

171460

011000

THE DIFFERENT DRIVE

001334

000010

013746
104403

002

006
005004

005304
001376
005304
00137¢

0C1217
064342
001234

#TAG ,LSTRK

MOV

#C.R,RMCS2(RO)

MoV

RMDT (RO) ,R2

$BASE ,RO

MOvB

001334

3%:

DRIVE

#177770,K2
#7,R2
3%
HTAT6!TA2,LSTRK
NUMBER

TYPE

MOV
TYPOS

BYTE
BYTE

(LR
DEC
8NE
DEC
BNE

JASSUME LAST TRA(CK FOR RM02/3 - 4.

;RO = UNIBUS ADDRESS

;CLEAR MASSBUS

@TSTQUE ,RMCS2(R0O)

BIC
cmp
BNE
Mov
;TYPE

104401
104401

MOV

000010

TYPES

TO BE

$INIT,=(SP)

2
O

R4
R¢
.=2
R4
.2

;SAVE DRIVE TYPE BITS
;1S IT AN RMOS 2
sNO, MUST BE AN RM02 OR RMO3
;YES==SET LAST TRACK - 18.

TESTED(SUNIT)

LSCRLF

MSGDRV

;SELECT DEVICE UNDER TES!

JGET RMDT AND

s CR=LF
;TYPE

°'DRIVE'

2 JSAVE SUNIT FOR TYPEQUT

;. TYPE DRIVE NUMBER
;GO TYPE--OCTAL ASCII

;. TYPE 2 DIGIT(S)
;- SUPPRESS LEADING ZEROS

;THESE TWO LOOPS ARE ADDED TO
;WAIT FOR TTY

OoRMOS,
R

FOTN

TONTROLER

ST ¢
ATCESH TEST

MATRO v04.00

&-~APR-BY

AASR

J*TEST

AR SRS

G
"1.43%3:3% PAGE

Rdal

SRR

6
13

(ONTROLLER ACCESS

)

TEST

[o Y a¥Te

e
—

nony
=

pur Gy Qunrd b

[elele]

[olele)] O

VOO
NS W —=OPV0O NN

Swiny

2 22888
F BRSNS
o

OO0O0OOVO

:;‘..'.."".""'Q"""'....'t.."..'tt'...i."".Q.'...tt.t..'

010134
010142
010146
0i015¢2
010156
010162
010166
010172
010176
010202
010206
010212
010216
010222

010226

010230
010232
010236
010242
210244
010259
010252
010256
010262
10266

000004
000240
012706
013700
013701
012737
005001
013746
013746
012737
012737
110160

010160
016002
010160
016002
016046
010160
16002
012660
010160
016002
012637
012637
000417

022626
012637
012637
104110
005737
01002
000137
005037
000137

TST1:

001100
001276
001466

000001

000004
000006

010230
000300

SCOPE
NOP

MOV

001226

MOV
CLR

MOV
MOV

000004
000006

000001
000002
0G0002
000004
000004
000010
000010
000010
000010
000022
000022
000006
000004

2%:
35

POINTER

J(R1)

;:SET

DEVICE

BEING

TFSTED

TEST NUMBER [N APT MAIL

80X

#1% ERRVE(C
#PR6,ERRVEC(C+?2

MOVR
MOV
MOV

R1,RMCST+1(R0O)
R1,RMWC (RO)
RMWC (RO) ,R2

;MOVE HI BYTE 10 RM(S1
;MOVE WORD COUNT REGISTER

MoV

RMBA(RO) ,R2

R1_,RMBA(R0)

RMCS2(R0O) ,-(SP)

MOV
MOV
MOV

R1,RMCS2(RO)
RMCS2(R0,R2
O)
(SP)+ ,RM(S2(RD)

MOV
MOV
MOV

RMDB(RQ)
,R2
(SP)+ ERRVE(+?

;MOVE BUS ADDRESS REGISTER
;MOVE

;. PUSH RMCS2(R0O) ON STA(K

CONTROL

STATUS REGISTER

;;POP STACK

INTO RM(SZ2{(R0O)

R1,RMDB(RQ)

;MOVE DATA BUFFER

(SP)+ ,ERRVEC

;.POP STACK INTQO ERRVE(C+?2
;;POP STACK INTO ERRVEC

(SP)+,(SP)+

JADJUST STACK

?g¥

g?g)*.ERRVEC

;:POP STACK

TS1

Y 19

;STAND ALONE MODE

JMP

$EOP

JRETURN

005422
061300
031724

STACK

MOV
MOV

MOV

000042

TSTQUE R

#1,8TESTN

JINITIALIZE

;RO = UNIBUS ADDRESS

;.PUSH ERRVEC ON STACK
;;PUSH ERRVE(C+2 ON STA(K

MoV

'$:

$BASE RO

ERRVE(,-(SP)
ERRVE(+2,~(SP)

MOV

000006
000004

ASTACK ,SP

;SCOPE CALL
;START OF TEST

CMP

MOV

BNE
JMP
CLR

(SP)+ ERRVEC(C+?

2%
START1
$DEVM

;NO BUS TIMEOUT OCCURRED

;:POP STACK INTO ERRVE(C+?
INTO ERRVEC

;NO!!
JYES=-GO GET $BASE
;FUDGE NO DRIVES [N MAP
TO SEOP

:;*'*"*fl.flfi'*‘.'fi“"""""‘ti*.t*"‘t“*tfi"'"*fi*“""'."i

J*«TEST 2

FORMAT ZERQS

:;‘t'*“'*.*'.*"*'**'""'*‘fltt"fi"t"*t*"**"""“.Ii""t"

000004
000240
012706
013700

TST2:

SCOPE

NOP

00°100

613701
612737

001276
001466
000002

001226

012737

000000

001444

MOV
MOV
MOV

MOV

. SCOPE
#STACK,SP
$BASE ,RO
TSTQUE ,R1

#2,8TESTN

;START

CALL

TEST

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

JiSET TEST NUMBER

;SETUP 'PARAMETERS FOR GENERATING DATA BUFFER
s
MOV
#0 ,RMOF O
;18 BIT FORMAT

IN APT MA;
( BOX

JCRVNBG
¢

RMOS/ 372 FCTNG
FORMAT ZEROS

37 010322
38 010330

13T

MACRD v04.0U

4=-APR-81

H
1':43:33 PAGE

6
13S M’

012737
0127%7

000000
(00000

001646
001420

MOV
MOV

#0. ,RMDCO
#0 ,RMDAQ

:CYLINDER
0
JTRACK = Q, SECIOR = 0

012737
012737

101360
000062

001416
001412

MOV
MOV

#BUFONE ,RMBAO
M+ ,RMCS10

-DATA BUFFER ADDRESS
JWRITE HEADER AND DATA

010360

004737

033152

010366
010372
010376

104401
104000
000137

063346

45 010400
46 010406

012737
012737

065000
000001

39 010336

40 016344
45 010352
4

010364

&4 010400

47 010414
23 010420
50
51 £10420
0104246

012737

000405

004737

004737
154130

177376

001414

JVERIFY

001174
001176

2%:

#-258. RMWCO

THAT SECTOR IS NOT BAD

:2 + 256 WORDS (2'S COMP)

JSR

PC.BADSCT

;CALL BAD SECTOR MODULE

TYPE
EMT
JMP

,SLTMSG

;TYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROUTINF
‘GO TO 20$ IF ERROR

011130

035104

MOV

MOV
MOV

JSR

b1 3

208
#ZEROS,$TMPO
#1,8TYPT

P{ ., GENBUF

$GO TO 2% If NO ERROR

;USE

ALL

ZEROS DATA PATTERN

;GO GENERATE DATA BUFFER

;PREPARE DEVICE FOR DATA TRANSFER
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TESTY
.WORD
154130
s TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE

032176

;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

210426
010430

010432
010434

000404
000240

B8R
NOP

104000
000137

011130

55 010440
56 010446
57 010452
58 010456

012737
012702
112722
112722
112722
112722
112722

000005
001553
000006
000034

000032
000000
000200

MOVB
MOVE
MOVB

63 010476
010502
0105C4
010506
010510

004737
000404
000240
104000
C00137

036240

JSR
BR
NCP
EMT
MP

Q04737
004737

035704
036602

004737

03577¢

52 01040
54

59 010462
60 010466
61 010472

6 010514
66

67 010514
68 010520

69 010524

011130

48:

001412

EMT
JMP

208

:SETUP PARAMETERS AND EXECUTE

MOV
MoV
MOVB
MOVE

58 :

£3:

VOLUME

NOT VALID

;GC TO 4% IF NO ERROR
JRETURN HERE IF ERROR

SERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 20% IF ERROR
.
SEEK TO GET DRIVE ON CYLINDER

#SEEK.GO,RMCS10 ; CHANGE COMMAND TO SEEK
APUTINX ,R2
JWRITE REGISTER INDEX TARLE
ARMDA, (R2) +
WRMDC. (R2)+

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

PC,PUT
58
208

;SETUP FOR READING STATUS AND

JSR
JSR

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF "'SKI'*
OR 'PIP'" [S SET
;VERIFY RECALIBRATION

PC,GETSTS
PC,TIMOUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
$G0 T 58 If NO ERROR
JRETURN HERE [F ERROR
JERROR # DEF INED BY PUT SUBROUTINE
(GO TO 208 IF ERROR
THEN WAIT FOR SEEK TO COMPLETE

SETUP FOR STATUS
JWAIT FOR SEEK TO COMPLETE

7¢ 070524

;GO READ SEEK STATUS

JSR

PC,GET

;G0 READ REGISTER(S) WITH GET >UBRQUTINE

RMOS/3/2 FCTINL
ZEROS

151 2

MATRY

L,6,00

000404
000240
104000

000137

011130

004737
000405
000240

0464104

7%:

JSR

011130

8%:

78
79

80
81
82
83
84
85 010610
86
87 010614
010620
010622
010624
010626
88 010632
89
90
010632
92
93 010636
010642
010644
010646
010650
94 010654
96
97 C10654

010660
010662
010664
010666
010670
10674

0674
20700
10702
0 10704
0 10706
0 10710
0 10714
Q ;0714

010720

000063
001556
000002
0C0004

007412

MoV
MOV

MOVB
MOVR
MOVB
MovB

036240

000137

011130

004737

036602

004737
0V0404
000240

035770

104000
000137

004737
000405
000240

011130

036766

JSR
BR

9%:
JWAIT

“0%:

004737
000405
000240
104000
004736

NOP
EMT
JMP

FOR WRITE

051502

000137

011130

004737
000405

037620

;GO TO 7% ]F NO EKROR
sRETURN HERE If ERROR

SERROR # DEFINED BY GET

208
THE
PC,SEKSTS

;GO TO 208 IF
SEEK

PC,a(SP)+

20%

ERROR

COMMAND
;GO VERIFY RESULTS OF

AWH!GO,RMCS1D

#PUTINX+3,7

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

12%:

SEEK OPERATION

2GO TO 8% IF NO ERROR

JRETURN HERE ]F ERROR
JERROR # DEFINED BY SEKSTS SUBROUT INE
:GO BACK FOR MORE

ERROR (HE(CKS

;GO TO 208 IF ERROR

;WRITE

HEADER AND

JEXTEND REGISTER

DATA

INDEX

TABLE

ARMCST,(R2)+
#200,(R2)+

PC,PUT
9%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO "0 9%

:RETURN HERE

20%

NO ERROR
[F

ERROR

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

COMMAWD TO COMPLETE AND READ STATUS

PC,TIMOUT

SWAIT

JSR
BR
NOP
EMT
JMP

PC,GET

;GO READ REGISTER(S)

20%

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

JSR
BR

11%:

SUBROUTINF

JSR

NOP

011130

10%

JVERIFY RESULTS OF WRITE COMMAND

104000

004736
000137

B8R
NOP
EM7
JSR
JMP

13-2

JSETUP AND EXECUTE WRITE HEADER AND DATA (OMMAND

000000
000200

104000

B8R
NOP
M7
JMP

17:43:33 PAGE

JVER]FY THE RESULTS OF

104000

004736
000137

4=APR-B1

EMT
JSR
JMP

PC,PRIERR

118

PC,a(SP)+

FOR

COMMAND

TO (OMPLETE

;GO

CHECK

NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUT INE
;60 BACK FOR MORE

ERROR

;GO TO 20% I+

JSR
BR
NOP
EMT
JSR
JMP

PC ,DTASTS

;GO VERIFY

20%

;GO TO 20% IF ERROR

JSR
BR

PC,SECERR

:GO

PC,a(SP)+

13%

SUBROUT INE

FOR PRIMARY ERRORS

;GO TO 11% IF

20%

12%

WITH GET

;GO TO 1U$ IF NO ERROR
,RETURN HERE IF ERROR

ERROR

RESULTS OF

;GO TO 12% IF NO ERROR

JRETURN HERE

(HE(KS

DATA

TRANSFER

ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE
CHECK

FOR

ERROR (HECKS

SECONDARY

;GO TO 13% IF NO ERROR

ERRORS

RM0OS5/3/72 FCINL

no~,

KMNBC

FORMAT ZEROS

010722
010724
010726
010730

010734

buunrdcfg

I Sy

104000

004736
000137

011130

000073

010750
010756
010756
010760
010762
010766

004737
000404
000240

036240

000137

011130

010766

004737

036602

010772
010776

004737
000404
000240

035770

104000

102364

b
md
e
il ol

126

126
125

OOO000

123

b e

ol wd caad e

122

=D e

RO HOOHrNVOONO

RRI 83000OOOO
WO
= — =

d cmd

D e cad =D

b e ek

b aad

[elalelelelalelslalelolelolololololololele

OO0

e
N

121

104000
C00137

004737
000405
000240

011130

036766

104000

004736
000137

004737
000405
000240

13%:

001412
001476

011130
051502

011130

037620

004737

035342

102364
000402
000240
104000

NOP
EMT
JSR
JMP

JSR

14%:
;WAIT

EMT
JMP

FOR READ
JSR

JSR

NOP
EMT

15%:

JMP

€
"2-3

16%:

PC.(SP)e
20%

ERROK

JERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR (HE(KS

;GO TO 20% IF ERROR

PC,PUT

14%

20¢
TO COMPLETE
PC,TIMOUT

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

JERROR # DEFINED BY PUT

;GO TO 208 IF ERROR

SUBROUT INE

AND GET STATUS
;JWAIT FOR READ TO (OMPLETE

PC,GET

15%

;GO READ REGISTER(S) WITH GET SUBROUTINL
;GO TO 15% IF NO ERROR
JRETURN HERE IF ERROR

20%

;GO TO 208 IF ERROR

:ERROR # DEFINED BY GET

SUBROUTINE

JMP

20%

;GO TO 20% IF ERROR

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

17%:

PC,a(SP)+
20%

JSR

P(C,SECERR

B8R

18¢:

17%

EMT
JSR
JMP

NOP
EMT

011730

SRETURN HERE

;VERIFY THE RESULTS OF READ OPERATION
JSR
PC,PRIERR
.60 CHECK FOR PRIMARY ERRORS
BR
16%
;GO TO 16% IF NO ERROR
NOP
;RETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY PRIERR SUBROUTINE
PC,a(SP)+
JSR
;GO BACK FOR MORE ERROR CHECKS

NOP

004737
000405
000240
104000
004736
000137

101360

J
"7:43:33 PAGE

JREAD HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
#RH.GO,RM(S10
;READ HEADER & DATA (OMMAND
MOV
#BUF
TWO ,RMBAD
; CHANGE BUS ADDRESS

104000

004736
000137

4-APR-81

NOP

—h
D
ek

o JE
WSS

—

ol el

b
i

v
—

—

000240

012737
012737

011000
011002

MACRO v04.00

SEQ 0074

010734

010742

—

1sT 2

JSR
JMP

:VERIFY DATA
JSR

.WORD
.WORD
BR
NOP
£eM1

18%

PC,a(SP)+
20%

PC,CMPBUF
BUFONE
BUFTWO
19%

;GO TO 17$ IF NO ERROR

;RETURN HERE

IF ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO0 BACK FOR MORE ERROR CHE(CKS

;GO TO 208 IF CRROR

;GO CHECK FOR SECONDARY ERRORS

;GO TO 188 IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINFD BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR ChECKS

;GO TO 20% IF ERROR

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

;GO TO 19% IF NO ERROR
JRETURN HERE

ERROR

JERROR # DEFINED BY (MPBUF SUBROUT INE

r5RMNBO RMOS5/3/2 FCINL
FORMAT

15T

MACRO v04.00

(10000

001444

130 011116
131 011126

(12737
000137

010000
01032¢

00144¢

001005

19%:

BI7

#FMT 16 ,RMOFO

MOV
JMP

AFMT16,RMOFO
1%
«

BNE
20%:

134

011130

011132
011134
011140
011144

135 011150
136

000240
012706
013700

001100
001276

012737

000003

7201226

000000
000000

001446
001420

013701

137 C11156
138 011164

012737
012737

160 011200
141 011206

012737
012737

139 011172

001466

012737

010000

001444

012737

000062

001412

033152

011242
011242
011250
011256

004737
000405
104401
104000
000137

011764

012737
012737
004737

065000
000001
035104

151
152 011262

004737

032176

}2% 011214
144

145
1646
147
148

011222
011226
011230
011234
011236

;28 011262

011266

154130

177376
101360

16 BIT MODE

;SET 16 BIT MODE
TEST AGAIN.
Y

AR R R R

R AN AN

SCOPE

R AN A AT N NN

;SCOPE

NN R A RN AR R

155
156 011302
157 011310

011764

012737
012702

000005
001553

AND

RN AR

A AR O NN

CALL

#STACK,SP
$8ASE RO

MOV

#3,$TESTN

;;SET TEST NUMBER IN APT MAIL BOX

TSTQUE ,R1

;(R1)

= DEVICE BEING TESTED

;SETJUP PARAMETERS FOR GENERATING DATA BUFFER
MoV
MoV
MOV
MOV
MOV

MOV

;VERIFY

063346

000404
000240
104000
000137

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

1%:

2%:

THAT

JSR
BR
T/PE
EMT
JMP
MOV
MOV
JSR

#0,RMDCO
#0,RMDAO

HFMT16,RMOFO

#-258. ,RMWCO
#BUF
ONE ,LRMBAO

#WH,RMCS10
SECTOR

IS NOT BAD

PC ,BADS(T
1%
.SCTMSG
18%

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

;CYLINDER = O
;TRACK = 0, SECTOR = 0
;16 BIT FORMAT
;2 + 256 WORDS (2°'S COMP)
;DATA BUFFER ADDRESS

;WRITE HEADER AND DATA

sCALL BAD SECTOR MODULE
;GO TO 1$ IF NO ERROR
:TYPE BAD SECTOR MESSAGE
SJERROR # DEFINED BY BADSCT SUBROUT INE
;GO TO 18% IF ERROR
;USE ALL

ZEROS DATA PATTERN

;GO GENERATE DATA BUFFER

;PREPARE DEVI(E FOR DATA TRANSFER
JSR
PC,TSTPRP
:PREPARE DEVICE FOR TEST

.WORD

154130

sTASK DESCRIPTOR AS FOLLOWS:

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

011270
011272
011274
011276
;22 011302

vET

NOP
MOV
MOV
MOV

001414
001416

001174
001176

STEST

JYES

ZERO FILL TEST

R R AN R R AR

1S73:

000004

20%

J*TEST 3
011130

6
13-4
SEQ 0075

032737

}gg 011130

K
11:43:33 PAGE

ZEROS

127 011106
128 011106

129 011114

4-APR-81

3%:
001472

8R
NOP
EMT
JMP

18%

VOLUME

NOT

VALID

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI'' OR 'PIP"' IS SET
;VERIFY RECALIBRATION
;GO _TO 3% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 18% IF ERROR

;SETUP PARAMETERS AND EXEC "E SEEK TO GET DRIVE ON CYLINDER
MOV
#SEEK.GO,Rr S10 ;CHANGE COMMAND TO SEEK
MOV
#PUTINX R?
WRITE REGISTER INDEX TABLE

TIRMNBO RMOS/3/2 FCINL
T3
JERO FILL TESY

158 011314
159 011320
160 0113264
161 011330

TST ¢

}g% 011334

112722
112722
112722
112722

112722

000006
(00034
000032
000000

164 011340

004737

036240

011344
011346
011350
011352
}gz 011356
167
168 011356

169 011362

J;? 011366
172
173 C11366
011372

011374
011376
011400
};g 011404
176
177 011404
011410
011412

011414
011416
011420

;;g 011424
180
"81
182
183
184
185
186
}gg

0114264

000404
000240
104000
000137

004737

004737
000404

000240
104000
000137

004737
000405
000240

036602

177776

001556
000002
000004
000000
000200

189 011464

004737

036240

011474
011476

104000
000137

011764

%gz 011502

004737

036602

195 011506

004737

035770

192

011512
011514

000404
000240

6%:
JVERIFY

044104

012737

000063

JSR

PC,PUT

BR
NOP
EMT
JMF

JSR

7%:

001414

001412

NOP
EMT
JMP

;GO WRITE REGISTER(S)

18%

PC, TIMOUT

WITH PUT

SUBROUT INE

;GO TO 4% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 18% IF ERROR

THEN WAIT FOR SEEK TO TOMPLETE
;SETUP FOR STATUS

18%

JWAIT FOR SEEK

TO COMPLETE

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

JRETURN HERE IF ERROR
SERROR # DEFINED BY GET SUBROUTINE
:GC TO 18% IF ERROR

THE RESULTS OF THE SEEK COMMAND
JSR
PC,SEKSTS
;GO VERIFY RESULTS OF SEEK OPERATION
BR
7$
;GO TO 7% IF NO ERROR
NOP
JRETURN HERE IF ERROR

EMT
JSR
JMP

PC,a(SP)+
18%

;SETUP AND EXECUTE WRITE HEADER
MOV
#-2 ,RMWCO
MOV
#WH!GO,RMCS10
Mov
HPUTINX+3 R2
MOVB
HRMWC, (R2) +
MovB
H#RMBA, (R2) +
MOVB
HRMCST,(R2)+
MovB
#200, (R2) +

SERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR

AND DATA (OMMAND
;FORMAT PARTIAL SECTOR
;WRITE HEADER AND DATA
SJEXTEND REGISTER INDEX TABLE

JSR

PC,PUT

;GO WRITE REGISTER(S)

EMT
JMP

18%

JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 18% IF ERROR

BR
NOP
8%:

SEQ 0076

#4200, (R2)+

;GO READ SEEK STATUS
JSR
PC,GET
BR
6%

011764

012702
112722
112722
112722
112722

;g? 011502

5%:

035770

011764

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

;SETUP FOR READING STATUS AND
JSR
PC,GETSTS

035704

104000
004736
000137

000404
000240

6%:

L
6
11:43:33 PAGE 13-5

MovB
MOVB
MOvVB
MOVB

MovB

011764

012737

011470
011472

4-APR-81

000200

011432

011440
011444
011450
011454
011460

MATRD V04.0C

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

WITH PUT SUBROUTINE

JWAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS

JSR

PC.,TIMOUT

;JWAIT FOR COMMAND TO COMPLETE

JSR

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

BR
NOP

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

CZRMNBO RMOS/3/2 FCINL
T3
JERO FILL TESTY

011516
011520
96 011524

1ST 2

(11764

197
198
199
011526

004737

036766

011532
011534

000240
104000

011536
011540

200 011544
201 011544
011550
011552
011554
011556
011560
202 011564

203 C11564
011570
011572

011574
011576
011600
204 011604
205
206
207 011604
208 011612
599 011620
U

211 011626
011632
011634
011636
011640
212 011644
213
214
S}g 011644
217 011650
011654
011656
011660
011662
218 011666
219
220
221 011666
011672
011674

011676
011700
011702
222 011706

000405

004736
000137

4-APR-81

M
6
'1:43:33 PAGE 13-6

SEQ 0077

104000
000137

011530

MACRO v04.C0

9%:

EMT
JMP

JVERIFY RESULTS OF WRITE COMMAND
JSR

NOP
EMT

011764

004737
000405
000240
104000
004736
000137

051502

004737
000405
000240

037620

108

011764

012737
012737
012737

177376
000073
102364

004737
000404
000240
104000
000137

036240

004737

036602

004737
000404
000240
104000
000137

035770

004737
000405
000240
104000
004736
000137

036766

001414
001412
001416

ERROR

SUBROUTINE

EMT
JSR
JMP

PC,a(SP)+

;ERROR # DEFINED BY DTASTS SUBROUTINE
. GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR

JSR

PC,SECERR

EMT
JSR
JMP

;G0 BACK FOR MORE ERROR (HECKS
;GO TO 18%

JRETURN HERE

18%

ERROR

;GO0 CHECK FOR SECONDARY ERRORS

12%

;GO TO 12% IF NO ERROR

PC,a(SP)+
18%

JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 18% IF ERROR

;RETURN HERE

ERROR

SECTOR JUST WRITTEN

MOV
MOV
MOV

#-258. ,RMWCO
ARH!GO,RMCS10
#BUF TWO ,RMBAD

;2 + 256 WORDS (2°S COMP)
;READ HEADER £ DATA COMMAND
s CHANGE w4!S ADDRFSS

JSR
BR

PC,PUT
13%

;60 WRITE RtuLISTER(S) WITH PUT
;GO TO 13% IF NO ERROR

18%

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

EMT
JMP

JRETURN HERE

SUBRDUTINE

ERROR

JWAIT FOR READ TO COMPLETE AND GET STATUS
JSR

PC, TIMOUY

sWAIT FOR READ TO COMPLETE

JSR
BR

PC,GET
14%

;GO READ REGISTER(S) WITH GET SWLsROUTINE
;G0 TO 14% IF NO ERROR

EMT
JMP

18%

JERROR # DEFINED BY GET SUBROQUTINE
;GO TO 18% IF ERROR

14%:

JRETURN HERE

ERROR

JVERIFY THE RESULTS OF READ OPERATION
JSR

NOP
EMT

011764

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 11% IF NO ERROR

NOP

011764

JRETURN HERE

;ERROR # DEFINED BY PRIERR

18%

.READ HEADER AND DATA FOR

13%:

;G0 TO 0% JF NO ERROR

PC,DTASTS
11%

NOP

011764

;G0 CHECK FOR PRIMARY ERRORS

JSR
BR

JMP

12%:

10%

PC,2{(SP)+

NOP

011764

PC,PRIERR

SUBROUTINE

JSR

NOP

104000
004736
©€00137

JERROR # DEF INED BY GET
.GO TO 18% IF ERROR

18%

158

JSR
JMP

PC,PRIERR

15%

PC,a(SP)+
18%

;G0 CHECK FOR PRIMARY ERRORS

;GO TO 15% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBRQUTINE

;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% [F ERROR

rZRMNBO Q’MOS/3/2 FCTINL

ZERO FILL TEST

223 011706
011712
011716
011716
011720
011722
226 011726
225 011726
011732
011734
011736
011740
011742
2¢6 011746
227
228
229 011746
011752
011754
011756

004737
000405
000240
104000
004736
000137

MACRO v04.00

051502

JSR

004737
101360
102364
000402

035342

011770

012706

011774
012000
012004

013700
013701
012737

011764

001100
001276
001466
000004

001226

000000
000000
010000
177376
101360
000062

001446
001420
001444
001414
001416
001412

012056
012062
012064
012070
012072
243 012076
244 012076

004737
000405
104401
104000
000137

033152

012737
012737
004737

065000
0000017
035104

004737

032176

241
242

245 012104
246 012112
2647 012116
248
249
250 012116

NOP
EMT

JRETURN HERE [F ERROR
SERKOR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR (HECKS
;GO CHECK FOR SECONDARY ERRORS

;GO TO 178 IF NO ERROR

17%

JRETURN HERE [F ERROR

JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

PC,a(SP)+

18%

;GO TO 18% IF ERROR

PC ., CMPBUF
BUF ONE
BUFTWO
18%

.60 COMPARE WRITE, READ DATA BUFFERS

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

;GO TO 18% IF NO ERROR

sJRETURN HERE

FORMAT

AT A AR RN AR R

A RARNRANAN

SUBROUTINE

AR A A AN A AR AN

AR AAN

AR A RN

:SCOPE CALL
;START OF TEST

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

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

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
MOV
MOV
MOV

MOV
MoV

063346

#0,RMDCO
#0 ,RMDAQ
#FMT16 ,RMOFO
#-258. ,RMWCO

sCYLINDER = 0
;TRACK = 0, SECTOR - 0

;16 BIT FORMAT
;2 + 256 WORDS (2°'S COMP)

#BUF
ONE ,RMBAO
A#WH,RMCS10

;DATA BUFFER ADDRESS
JWRITE

1%:

PC,BADSCT
1%

EMT
JMP

18%

MOV

#ZEROS,$TMPO

;USE ALL ZEROS DATA PATTERN

JSR

PC.,GENBUF

;GO GENERATE DATA BUFFER

MoV

2%:
;PREPARE

HEADER AND DATA

JSR
BR

TYPE

C01174
001176

A AR AR A AR

N AR AR R AR A AN R ARRARASAANA AR

JVERIFY THAT SECTOR IS NOT BAD

012554

ERROR

CHECK ZEROS

AR R AR AR A AP A AN AT A AN

SCOPE
NOP
MOV
MOV
MOV
MOV

sERROR # VEFINED BY CMPBUF

A AR A A AR AR AN AR

4
AR

TST4:

012737
012737
012737
012737

012737

PC,SECERR

JSR
.WORD
WORD
BR

*TEST

237 012026
238 012034
239 U12042
240 012050

236 012020

JSR

JVERIFY DATA

012737

;GO TO 18% IF ERROR

JMP

17%:

18%:

233
234
235 012012

PC,(SP)+
18%

NOP
EMT
JSR

000240

JMP

011760
000240
011762
104000
220 011764
.
231
232

011766

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

NOP
EMT
JSR
16%:

PC,DTASTS

16%

B8R

011764
03762C

000004

N
6
1::43:33 PAGE 13-7

SEQ 0078

004737
000405
000240
104000
004736
000137

011764
011764

&-APR-B1

DEVICE

JSR

;GO TO 1% IF NO ERROR

,SCTMSG

#1,8TMP1

FOR

DATA

PC,TSTPRP

;CALL BAD SECTOR MODULE

. :TYPE BAD SECTOR MESSAGE

;ERROR # DEFINED BY BADSCT SUBROUTINE
;GO TO 18% IF ERROR

TRANSFER

;PREPARE DEVICE FOR TEST

ZRMBO RMOS5/3/72 FCTNL

TST 2

FORMAT (HE(K ZERQS

012122

MACRO v04.00

4~APR=-81

*1:43:33 PAGE

13-8

SEQ 0079

154130

.WORD

154130

;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
SVERIFY CONTROLLER CLEAR OPERAT]ON

JPACK ACKNOWLEDGE

VOLUME NOT

JVERIFY PACK ACKNOWLEDGE

012124
012126
012554

251

012206
263 012212
264
265
266 012212
267 012216
268 012222
269

270

271 012222
012226
012230
012232
012234
272 £12240
273
274
75

000005
001553
000006
000034
000032
000000
000200

004737
00404
000240
10400C

001412

JMP

188

NOP
EMT

;RECALIBRATE [F ‘'SKI'*
OR 'PIP'* IS SET
JVERIFY RECALIBRATION

;GO TC 38 IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO T0 188 IF LRROR

;SETUP PARAMETERS AND EXECUTE SEEK "0 GET DRIVE ON CYL INDER
MOV
#SEEK!GO,RMCS10
; CHANGE COMMAND TO SEEK
MOV

“OVR

MOVB
MOVR

MOVR

036240

#PUTINX ,R2

#RMDA, (R2) +

INDEX

TABLE

H#RMCST, (R2)+

#200, (R2)+

JSR

PC.POT

NOP
EMT
JMp

#RMDC
, (R2) +
NRMOF
, (R2) +

MOVR
BR

JWRITE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 4% IF NO ERROR

<RETURN HERE IF FRROR
;ERROR # DEF INED BY PUT
;GO TO 18% IF EFROR

SUBROULTINE

000137

012554

004737
004737

035704
036602

;SETUP FOR RFADING STATUS AND THEN WAIT FOR SEEK TO COMPLETE
JSR
PC.GETSTS
:SETUP FOR STATUS
o5
JSR
PC, TIMOUT
JWAIT FOR SEEK TO COMPLETE

004737

03577C

000404
000240
104000

000137

012554

004737
000405
000240
104000
004736
000137

064104

SININ

252
253
254
255
256
257
258
259
260
261
262

B8R

01 2 37
01 2 02
1 2 22
1127
l 22

000063
001556
000002
000004

18%

;GO READ SEEK STATUS
JSR

B8R
6%:

sVERIFY

012554

7%:

001412

VAL ID

NOP
EMT
JMP

PC.GET

;GO TO 6% IF NO ERROR

WITH GET

;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET
;GO TO 18% IF ERROR

18%

THE RESULTS OF

JSR
BR
NOP
EMT
JSR
JMe

;GO READ REGISTER(S)

PC.a(SP)+
18%

;GO VERIFY RESULTS OF SEEK OPERATION
;60 TO 7% IF NO EPROR
;RETURN HERE IF ERROR
;ERROR # DEF INED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR C(HECKS
;GO TO 18% IF ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA (OMMAND
MOV
#JH'GO,RMCST0
;WRITE HEADER AND DATA
MOV
MOVR
MOVR

SUBROUTINE

THE SEEK COMMAND

PC,SEKSTS
7%

#PUTINX+3,R2
HRMWC
, (R2) ¢
H#RMBA, (R2) +

SURROUT INE

EXTEND REGISTER

INDEX

TABLE

TST 2

HECK ZEROS

MAIRO

v04.00

000009
(00200

MOV
MOvVB

036240

JSR
BR
NOP
EMT
JMP

d oD

012554

—

287
288

289

291
292 012334

004737

036602

004737

035770

000404
000240
104000

012346
293 012352
29

000137

012554

296 012352
012356
012360
012362
012364
012366
297 012372
298 012372
012376
012400
012402
012404
012406
299 012412
200 012412
012414
012420
012422
012424
012426
301 012432
302
303
304 012432
305
306 012440
012444
612446
012450
012452
367 012456
308
309
310 012456

004737
000405
000240

036766

295

317

312 012662

8%:
;WAIT

:
9%

004737
000405
000240

012554

10%:

051502

104000

004736
000137

012554

004737
000405
000240
104000
004736
000137

037620

012737

000053

004737
000404
000240

036240

000137

012554

004737

036602

004737

035770

104000

11:43:33 PAGE

13-9

FOR WRITE

SRM(S1,(R2)+

#200, (R2) +
P(,PUT
8%
18%

PC, TIMOUT

JSR
B8R
NOP
EMT
JMP

PC,GET

11%:

JSR
BR
NOP
EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR
JMP
JSR
BR

NOP

EMT
JSR

012554

12%:

007412

SWRITE

13%:
;WAIT

JMP

;GO0 WRITE REGISTER(S) WITH PUT SUBROUT iNE
;GO TO 8% IF NO ERROR

;RETURN HERE

ERROR

;ERROR # DEF INED BY PuT

;GO TO 18% IF ERROR

SUBROUTINE

COMMAND TO COMPLETE AND READ STATUS
SWAIT FOR COMMAND TO COMPLETE

JSR

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 9% IF NO ERROR
;JRETURN HERE

18%

JVERIFY RESULTS OF WRITE COMMAND

104000

004736
000137

4-APR-81

SEQ O0F

lelalelololo BN ale]

- nd

FCINL

PC ,PRIERR

"0%

PC,a(SP)+
188

I[F ERROR

;ERROR # DEFINED BY GFT

;GO TO 18% IF ERROR

SUBROUTINE

;GO0 CHECK FOR PRIMARY ERRORS
;GO TO 108 IF NO ERROR
;JRETURN HERE [F ERROR
;ERROR # DEF INED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR (HECKS

;GO TO 188 IF ERROR

PC,DTASTS

;GO VERIFY RESULTS OF

PC,a(SP)+

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

118

18%

PC,SECERR

12%

PC,a(SP)+

18%

;GO TO 118 IF NO ERROR

DATA TRANSFER

;GO TO 18% [F ERROR

;G0 CHECK FOR SECONDARY ERRORS

;GO TO 12% IF NO ERROR

JRETURN HERE IF ERROR
SERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHE(CKS
;GO TO 18% IF ERROR

CHECK HEADER AND DATA FOR SECTOR JUST WRITTEN
#W(H!GO,RMCS10
MOV
JWRITE CHECK COMMAND

JSR
BR
NOP
EMT
JMP
FOR WRITE
JSR

JSR

PC, PUT

13%

18%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 13% [F NO ERROR

JRETURN HERE IF ERROR

:ERPROR # DEF INED BY PUT SUBROUTINE

;GO TO 18% If ERROR

CHECK TO COMPLETE AND GET STATUS
PC.,TIMOUT
;WAIT FOR READ TO COMPLETE
PC,GET

;GO RFAD REGISTER(S) WITH GET SUBRUUTINE

'ZQMNBO RMOS5/3/2 FCINL ST 2

012666
012470
0126472
012474
012500

b
) D ed e

514
520
526
W
N

d e
e
—

320

321
322
323 012554
324
325

AN
N

326
327
328
329
330
331
332
333
334
335

4-APR-B1

012554
012554
012556
012560
012564
012570
012574
012602
012610
012616
012624
012632
012640
0 12646
0 12652
0 12654

012660
0 12662

0 12666
0 12666

004736
000137
004737
000405
000240

B8R
012554

NOP
EMT
Jmp

14%:

JVERIFY

036766

004737
000403
000240
104000
004736

13-10

B8R

012554

16%:

037620

;GO TO 148 JF NO ERROR

SRETURN HERE IF ERROR
SERROR # DEFINED BY GET

18%

;GO TO 188 [F ERROR

PC,a(SP)+

JSR

PC,DTASTS

18%

16%

;GO CHECK FOR PRIMARY ERRORS

;GO TO 158 IF NO ERROR

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

;GO TO 18% [F ERROR

;GO VERIFY RESULTS OF DA A TRANSFER

BR
NOP
£EMT
JSR
JMP

PC,a(SP)+
18%

JSR

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS

NOP
EMT
JSR

PC,a{SP)+

;GO BACK FOR MORE ERROR (HECKS

17%:

SUBROUTINE

CHECK OPERATION

15%

NOP
EMT
JSR

JMP

15%:

051502

14%

THE RESULTS OF WRITE
JSR
PC.PRIERR

104000

004736
000137

17:43:3% PAGE

SEQ 00€°

104000

b oo

oo~

319

000404
000240
104000
000137

004737
000405
000240
jolololalalelalolalolololols) QO

s
b ed
b

QNS

NN NN

FORMAT (HECK ZEROS

MACRO v04.00

17%

;GO TO 168 IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUT INE
;60 BACK FOR MORE ERRCR (HECKS

;GO TO 18% IF ERROR

;GO TO 178 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE

18%:
M tttt*tttttttttlQttt!'l'tittttttt'fi'itt't*Qtttfitttt'tttltttttttl

tTEST

FORMAT

CHECK ZEROS W/ WCE

ERROR

tt*tttttit*’Qtt*ttt*tittttt*tti***i‘ttttt*ttt*tttttttttttittttt

TSTS:

000004
000240
012706
013700
013701
012737

001100
001276
061466
000005

000000

8
0
0

737

737
737
737
737
737

000000
010000
177376
101360
000062

001226
001446
001420
001444
001414
0014616
001412

104000

MOV

MOV
MOV
MOV
MOV

MOV
MOV

063346

000137

013514

012737

065000

THAT

JSR
BR

#STACK ,SP

$BASE RO
TSTQUE ,R1

#5,8TESTN

;START OF

TEST

JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
;(R1)

= DEVICE BEING TESTED

;:SET TEST NUMBER IN APT MAIL BOX

’s

#0 ,RMDCO
#0 ,RMDAD
#FMT16,RMOFO
#-258. ,RMWCO

#BUF
ONE ,RMBAO
AWH ,RMCS10

SECTOR

IS NOT BAD

PC,BADS(CT
1%

JCYLINDER = 0
;TRACK = 0, SECTOR = 0
;16 BIT FORMAT
;2 + 256 WORDS (2'S COMP)
;DATA BUFFER ADDRESS

JWRITE HEADER AND DATA

EMT
JMP

.SCTMSG

sCALL BAD SECTOR MODULE
;GO TO 1% IF NO ERROR
;TYPE BAD SECTOR MESSAGE

20%

.GO TO 20% IF ERROR

MOV

#7EROS,$TMPO

TYPE

001174

;SCOPE CALL

;SETUP PARAMETERS FOR GENERATING DATA BUFFER

.VERIFY

033152

SCOPE

NOP
MOV
MOV
MOV

JERROR # DEFINED BY BADS{TM SUBROUT INE
JUSE ALL ONES DATA PATTERN

rZJRMNBO RMOS/3/2 FCINL

FORMAT

338 0126764
339 012702
;29 0127C5
342
343 012706
012712

TST 2

MACRC v04.00

(HECK ZEROS W/ #CE

(C12737
004737

0000017
(35104

004737
154130

032176

ERROR

4-4APR-81

7
E
11:43:33 PAGE 13-11
SEQ 008,

001176

2%:

MOV
JSR

21,8TMP
PC,GENBUF

;GO GENERATE DATA BUFFER

;PREPARE DEVICE FOR DATA TRANSFER
JSR
PC,TSTPRP
JPREPARE DEVICE FOR TEST
.WORD
154130
:TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICF AVAILABRLE
;CLEAR CONTROLLER & SEVECT DEVICE

JVERIFY CONTROLLER CLEAR OPERATION

JPACK ACKNOWLEDGE

012714
012716
012720
012722
;22 012726

000404
000240
104000
000137

0°3514

346
347 012726
348 012734
349 012740
350 012744
351 012750
352 012754
%gz 012760

012737
012702
112722
112722
112722
112722
112722

000005
001553
000006
000034
000032
000000
000200

355 012764

004737

036240

012770
012772
012774
012776

;29 013002

358
359 013002
360 013006
361 013012
362
363
364 013012
013016
013020
013022
013024
;22 013030

367
368 013030
013034
013036
013040
013042
013044
369 013050

000404
000240
104000
000137

013514

004737
004737

035704
03660%,

004737
000404
000240
104000
000137

035770

004737
000405
000240
104000
004736
000137

044104

013514

3%:
001412

B8R
NOP
EMT
JMP

3%
20%

VOLUME NOT

VALID

JVERIFY PACK ACKNOWLEDGE
JRECAL IBRATE IF "'SKI'*
OR 'PIP"' IS SETY
;VERIFY RECAL IBRATION
;G0 TO 3% IF NO ERROR
JRETURN HERE If ERROR
;ERROR # DEFINED 8Y TSTFPRP SUBRCUTINE
;60 TO 208 IF ERROR

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER
MOV
#SEEK:GO,RMCST0 ; LHANGE COMMAND T0O SEEK
MOV
#PUTINX ,R2
JWRITE REGISTER INDEX TARLE
MOVR
#RMDA, (R2) +
MOVB
HRMD(, (R2)+
MOVB
#RMOF
, (R2) +
MOVB
ARMCST,(R2)+
MOVR
#200,(R2)+
JSR

A Y

BR
NOP
EMT
JMP

PC,PUT

20%

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;G0 TO 4% IF NO ERROR
;RETURN HERE If ERROK
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 20% IF ERROR

;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE
JSR
PC,GETSTS
;SETUP FOR STATUS
JSR
PC,TIMOUT
;WAIT FOR SEEK TO COMPLETE
5%:
;GO READ SEEK STATUS
JSR
PC,GET
B8R
6%
NOP
emr

6%:

JMP

20%

;GO READ REGISTER(S) WITH GET SUBRGUT INE
;G0 TO 6% IF NO ERROR
;RETURN HERE [F ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 20$ IF ERROR

JVERIFY THE RESULTS OF THE SEEK COMMAND
JSR
PC,SEKS3TS
;G0 VERIFY RESULTS OF SEEK OPERATION
B8R
7%
;G0 TO 7% IF NO ERROR
NOP
;RETURN HERE IF ERROR
EMT
SERROR # DEFINED BY SEKSTS SUBRQOUTINE
JSR
PC,a(SP)+
;GO BACK FOR MORE ERROR CHECKS
JMP
20%
:GO T0 20% IF ERROR
7%:

'ZnflNBQ RMOS/ 372 F7INL
FORMAT

370
371

372 013050

CHE(K

TST 2

ZEROS W/ W(E

012737

000063

373 013056
374 013062
375 013066
376 013072
377 013076

012702
112722
112722
112722
112722

001556
000002
000004
000000
000200

379 013102

378

013106
013110
013112
013114
380 013120
381
382
383 013120

004737
000404
000240
104000
000137

036240

004737

036602

385 C131246
013130

004737
000404

035770

013134

104000

013132

013136
386 013142

MACRD v04.00
ERROR

001412

013514

036766

8}%}28

004737
000405
000240
104000
004736
000137

013166
013170
013172

004737
000405
000240
104000

051502

8}%}68

000137

013514

004737
000405
000240
104000
004736
000137

037620

013222

V05137

102362

400 013226

012737

000053

004737
000404

036240

389 013142
013146

013150
013152
013154

390
391 013162

013174

392

333 013202
013206
013210
013212
013214
013216
394 013222
395
396
397

398
399

Q1
«02 013234
013240

MOV

8%:
;WAIT

004736

MOV
MOVB
MOVB
MOVB
MovBs

AWH!GO,RMCS10

#PUT INX+3 R2
#RMWC, (RZ) +
H#RMBA
., (R2) +
H#RMCS1, (R2)+
#200, (R2)+

;WRITE HEADER AND DATA

JSR
BR
NOP
EMT
JMP

PC,PUT
8%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 8% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 208 [F ERROR

FOR WRITE

9%:

20%
COMMAND

108

013574

12%:

AND READ STATUS

JWAIT FOR COMMAND TO COMPLETE

JSR
BR

PC,GET
9%

;GO READ REGISTER(S) WITH GET
;GO TO 9% IF NO ERROR

JMp

;GO TO 208 If ERROR

WRITE

PC,PRIERR
108

JSR
BR
NOP
EMT

PC ,DTASTS
11%

C,a(SP)+
0%

JSR

PC,a(SP)+

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR
12%

(oM

JRFTURN HERE IF ERROR

20%

JSR
BR
NOP
EMT
JSR
JMP

JMP

SUBROUT
NE

JERKOR # DEFINED BY GET SUBRCUTINE

20%

PC,a(SP)+
0%

JALTER DATA BUFFER

001412

TO COMPLETE

PC, TIMOUT

;VERIFY RESULTS OF

013514

JEXTEND REGISTER INDEX TARLE

JSR

EMT

387

7
12-12

sSETUP AND EXECUTE WRITE HEADER AND DATA (OMMAND

NOP

013514

F
11:43:33 PAGE

StQ 0084

000240

000137

388

4-APR-81

BUF TWO-¢

(OMMAND

;GO CHECK FOR PRIMARY ERRORS
;GO TO 108 IF NO ERROR
;JRETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUT INE
:GO BACK FOR MORE ERROR CHE(CKS
;GO TO 208 IF ERROR
;GO VERIFY RESULTS OF DATA TRANSFEK
;GO TO 11$ IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE

;GO BACK FOR MORE ERRCR (HECKS
;G0 TO 208 IF ERROR

;GO CHECK FOR SECONDARY ERRORS
;GO TO 12% IF NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHE(KS
;GO TO 20% IF ERROR

. COMPLEMENT LAST DATA WORD

;SETUP AND WRITE CHECK HEADER AND DATA COMMAND
MOV
#WCH.GO,RMCS10
;WRITE CHECK COMMAND
JSR
BR

PC,PUT
13%

;GO WRITE REGISTER(S) WITH PUT SUBROUTMINE
;GO 10 13% IF NO ERROR

'E’HVAB(,

RM(S/372 FCINL

FORMAT

013242
013244
213246
403 013252

TST 2

MACRO v04.00
CHECK ZEROS W/ W(E ERROR

000240
104000

000137

013514

004737

036602

004737

035770

13%:

604

405

013252

407
418 013256

013262
013264
013266
013270
09 013274

000404
000240
104000
000137

JWAIT

013514

14%:

416G

004737
000405
000240

412

OO0~
N

SN N

=
—_—ed

F 20 SN SN SN S

420
621
422
423
424
425
426
627
«28
429

013324
013330
013332
013334
013336
013340

013344
013352
013360
013366
013370
013372

040000

004737
000405
000240

051502

004736
000137

013514

013737
052737
013737

001346
040000
001346

013372
430 013400
431 013406

02737
013737
162737

13414
13422

112737

632
o33
634
435
436
437

438

1,%:

001346

112737

004737
0004C4
000240
104000
000137

013737

FOR WRITE

001140
001140
001142

001342
000002

001134
001136
001136

000022
000200

001524
001525

16%:

COMMAND

PC,TIMOUTY

JSR
BR
NOP

PC,GET
143

EMT
JMP

EMT
JSR
JMP

001142

Mov

BIS

MOV

ERROR

20%

PC,PRIERR

15%

PC,a(SP)+

20%

TO COMPLETE

AND READ STATUS

;WAIT FOR COMMMAND TO (OMPLETE

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

SUBROUTINE

;ERROR # DEFINED BY GET SJUBROUTINE
;GO TO 20% IF ERROR

;GO0 CHECK FOR PRIMARY ERRORS

;GO TO 158 IF NO ERROR

;RETURN HERE

ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE

;GO BACK FOR MORE

ERROR

;GO TO 208 IF ERROR

(HE(KS

EMT
BR

PC,DTASTS

16%

;GO VERIFY RESULTS OF

;GO TO 16% IF NO ERROR
JRETURN HERE

TRANSFER

ERROR

ERROR # DEF INED BY DTASTS SUBROUTINE

PC,a(SP)+

;G0 BACK FOR MORE

RMCSZI,$GDDAT
HWCE ,$GDDAT
gg;SZI.SBDDAT

;LOAD EXPECTED STATUS

20%

DATA

ERROR

;GO TO 20% IF ERROR

(HECKS

;LOAD RECEIVED STATUS

20%

;VERIFY THE ADDRESS OF THE WRITE (HECK ERROR
MOV
#BUF TWO-2, $GDADR; LOAD EXPECTED ADDRESS
MOV

suB

RMBAI , $BDADR
42 ,$8DADR

sLOAD RECEIVED ADDRESS
;DECREMENT RECEIVED ADDRESS

;GET WCE DATA AND VERIFY IT IS OK

035770

013514
001360

CHECK

SERROR # DEF INED BY PUT SUBROUT
INE
;G0 TO 208 IF ERROR

20%

JSR

JSR
BR
NOP
EMY
JSR
JMP

17%:
102362

sRETURN HERE

JMAKE SURE THE WRITE CHECK ERROR WAS DETECTED
#WCE ,RM(S2]
BIT
;1S WRITE CHECK ERROR SET??
BNE
17%
JYES!!

104000

104337
000451

NOP
gmr
JMP

JSR
BR

013514

13-13
SEU VL

NOP

032737
001023

11:43:3% PAGE

;CHECK FOR PRIMARY ERRORS

036766

104000

004736
000137

4-APR-B81

18%:

MOVB
MovB

#RMDB , GE T INX

;SETUP

JSR
BR
NOP
EMT
JMP

PC,GET

;GO READ REGISTER(S)

MOV

#200,GETINX+1

18%

20%

RMDBI ,$BDDAT

FOR READING RMDB

WITH GET

;GO TO 18% IF NO ERROR

SUBROUTINE

JRETURN HERE IF ERROR
JERROR # DEFINEP BY GET SUBROUTINE
;GO TO 20% IF ERROR

;LOAD RECFIVED DATA WORD

RMOS/3/2 FCINL TST 2

MACRO v04.00
F ORMAT CHECK ZEROS W/ W(E ERROR

013737
005137
023737
001402

639

440
61
262
463
444

102362

001140

001134

001136

001140

001142

001140

4-APR-B1

000405
023737
001401

645
4466

104341

447

448

BUFTWO-2 ,8GDDAT
$GDDAT

;LOAD EXPECTED DATA WCRD

B8EQ
EMT

19%
340

JYES.
.

BR
CMP
BEQ

16%:

450

$GDADR , $BDADR

;1S ADDRESS 0Ok°??

20%
$GDDAT ,$BDDAT
20%

;1S DATA WORD 0OK??

341

EMT

20%:

449

4
13-14

MOV
{om

{MpP

104340

"1:43:33 PAGE

JYES..

".'t"*"'t"'“'*"'*""""""*‘."""."t"‘"'."-t""'fi'.'.'

SRTEST 6

FORMAT ONES

:"‘i.t*fi""*""'*."*""'"'."*'."'t*'*"‘.""'.’t' RN PESANTOR N

000004
000240
012706

013700
013701
012737

651
452

012737
012737
012737
012737
012737
012737

453
454

455
456
457
458
459

460

004737
000405
104401
104000

461
462
463
464

465

466
w67
468

TST76:

001100
001276
001466
000006

000000
000000
010000

177376
101360
000062

MOV
Mov

001226

001446
001420
001444
001414
001416
001412

012737
012737
004737

064736
000001
035104

004737

032176

#STACK,SP

$BASE RO

TSTQUE R
#6,8TESTN

MOV

#BUF ONE ,RMBAD

AWH,RM(S10

JVERIFY THAT SECTOR IS NOT BAD

JINITIALIZE

;RO

;(R1)
;oSET

STACK

POINTER

UNIBUS ADDRESS

= DEVICE BEING TESTED
TEST NUMBER IN APT MAIL

BOX

JPREPARE

;DATA BUFFER ADDRESS

JWRITE

HEADER AND DATA

JSR

PC.BADSCT

;CALL BAD

SECTOR MODULE

TYPE

,SCTMSG

;TYPE BAD

SECTOR MESSAGE

001174
001176

.SCOPE CALL
JSTART OF TEST

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
Mov
#0,RMDCO
;CYLINDER - O
MOV
#0 ,RMDAO
JTRACK = 0, SECTOR - 0
MOV
#FMT16,RMOT0
;16 BIT FORMAT
MOV
#-258. ,RMWCO
;2 + 256 WORDS (2'S (OMP)

063346
014334

154130

MOV

033152

000137

SCOPE
NOP
MOV

;GO TO 1% IF NO ERROR

EMT
JMP

18%

JERROR # DEFINED BY BADSCT SUBFOUTINE
;GO TO 18% IF ERROR

MOV

#0ONES,$TMPO

JUSE ALL ONES DATA PATTERN

JSR

PC,GENBUF

;GO GENERATE

MOV

DEVICE
JSR

-WORD

#1.,%1MP1

FOR DATA TRANSFER
PC,TSTPRP
;PREPARE

154130

DATA BUFFER

DEVICE

FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER R SELECT DEVICE

JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID

JVERIFY PACK ACKNOWLEDGE

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

469 013666

000404
000240
104000

000137

NOP

014334

3%:

EM7
JMF

JVERIFY RECALIBRATION

;GO TO 3% IF NO ERROR

18%

JERROR # DEF INED BY TSTPRP SUSROUTINE
;GO TO 18% IF ERROR

JRETURN HERE

ERROR

JHMNBY RMOS/3/¢ SCINL

FORMATM

ONES

470
4,71
o772
47%
474
$75
476

478
479

480

4,84 013742
485 C13746
4,86 013752
4,87

488
489 013752

013756
013760
013762
013764
490 013770

49
492
4994 013770

013774
013776
014000
014002
014004
494 014010

MATRD

v04.00

4-APR-81

001472

000137

014334

004737
004737

035704
036602

004737
000404
000240

035770

000137

014334

004737

044104

000405
000240
104000

004736
000137

13-15

sSETUP PARAMETERS AND EXECUTE SEEK TU GET DRIVE ON (YL INDER
MOV
MOV
MOVB

JSR

PC.PUT

;GO WRITE REGISTER(S)

18%

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT JNE
;60 TO "8% IF ERROR

NOP
EMT
JMP

#RM(CS1,(R2)+
#200, (R2) +

;GO TO 4% IF NO ERROR

JSETUP FOR READING STATUS AND
JSR
PC,GETSTS
5s
JSR
PC,TIMOUT

JSR
BR

PC,GET
6%

JMP

THE

RESULTS OF

B8R

NOP
EMT

JVERIFY

014334

JSR

NOP
EMT
JSR

JMP

WITH PUT

SUBROUT INE

THEN WAIT FOR SEEK TO COMPLETE
JSETUP FOR STATUS
JWAIT FOR SEEK TO COMPLETE

;GO READ SEEK STATUS

6%:

TO SEEK
INDEX TABLE

ARMDC, (R2) +
#RMOF
, (R2) +

B8R

A N

#SEEK!GO,RM(STC ;CHANGE COMMAND
#PUTINX,R2
JWRITE REGISTEKR
#RMDA
, (R2) +

MOVB
MOvVB

MOvB
MOVB

036240

104000

11:42.33 PAGE

SEQ 0086

000005
001553
000006
000034
000032
000000
000200

477

481 013742
482
483

IST

;GO READ REGISTER(S) WITH GET SUBROUTINE
;CO TO 6% IF NO ERROR
;RETURN HERE ]f ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 18% IF ERROR
THE

PC,SEKSTS

SEEK

COMMAND

;GO0 VERIFY RESULTS OF

;GO0 TO 7% IF NO ERROR

SEEK OPERATION

JRETURN HERE IF ERROR
JERROR # DEFINED BY SEKSTS SUBROUTINE
;G0 BACK FOR MORE ERROR (HECKS

PC,a(SP)+

18¢%

:GO TO 18% IF ERROR

495

496

697

000063
001556
000002
000004
000000
000200

498

499

500
501
502
503
504

001412

JSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MoV

MOV
MOVB
MOVB

505

507

508
509

014334

004737

036602

8%:

HEADER AND DATA

#RMCST, (R2) +

JSR
B8R

PC.,PUT
8%

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

18%

JERROR # DEFINED By PUT
;GO TO 18% IF ERROR

NCP

000137

JWRITE

JEXTEND REGISTER INDEX TABLE

MovB

MOVB

036240

#WH!GO RMCS10

#PUT INX+3,R2
ARMWC
, (R2) +
#RMBA, (R2) +

EMT
JMP

#200,(R2)+

JRETURN HERE

ERROR

JWAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS
JSR

PC,TIMOUT

JWAIT

FOR COMMAND

SUBROUT INE

TO COMPLETE

iZRfiNBO RMOS/3/2 FCINL

TST

MACRO v04.00

4-APR-81

11:43:33 PAGE

13-16

FORMAT ONES
510 0164064

014070
014072
014074
074076
g;} 014102
513
514 014102
14106

074110
014112

515
516

517
518

014114
014116
014122
014122
014126
014130
014132
14134
014136
014142
014142
014146
014150
014152
014154
014156
014162

Q04737

SEQ 008/
035770

000404
000240
104000
000137

(14334

004737

036766

000405

000240
104000
004736
000137
004737
000405
000240
104000
004736
000137

051502

004737
000405

037620

521
522 014162
gsz 014170

012737
012737

000G73
102364

525 014176
014202

004737
000404

036240

014206
014210
259 014214

104000
000137

014334

004737

036602

004737
000404
000240
104000
000137

035770

528
g%g 014214

531

014220
014224
014226
014230
014232
g;g 014236

534
535 014236
014242
014244
014246
C14250

10%:

11%:

12%:
001412
001416

004737
000405
000240
104000
004736

036766

18%

;GO READ REGISTER(S)

WITH GET

SUBROUTINE

;G0 10 9% IF NO ERROR
JRETURN HFRE [F ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 18% IF ERROR

NOP
EMTY
JSR
JMP

PC,a(SP)+
18%

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

JSR
BR
NOP
EMT
JSR
JMP

PC ,DTASTS
11%

PC,a(SP)+
18%

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 118 IF NO ERROR
JRETURN HERE ]F ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,SELERR
123%

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

PC,a(SP)+
18%

;RETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;GO TO 18% iF ERROR

JREAD HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
gngGO.RMCS1O
JREAD HEADER & DATA COMMAND
MOV
UF TWO,RMBAO ; CHANGE BUS ADDRESS

000240

014334

PC,GET

JVERIFY RESJULTS CF WRITE COMMAND
JSR
" ,PRIERR
;GO CHECK FOR PRIMARY FRRORS
BR
103
;GO TO 108 IF NO ERROR

014334

014204

9%:

014334

000240
104000
004736
000137

g;g

JSR

BR
NGP
EMT
JMP

13%:

JSR
BR
NOP
EMT
JMP

PC, PUT
138

18%

2GO WRITE REGISTER(S) WiTH PUT SUBROUT INE
;GO TO 13$ IF NO ERROR

JRETURN HERE IF ERROR

SERROR # DEFINED BY PUT SUBRGUTINE
;GO TO 18% IF ERROR

JWAIT FOR READ TO COMPLETE AND GET STATUS
JSR
PC.,TIMOUT
;WAIT FOR READ TO COMPLETE

14%:

JSR
BR
NOP
EMT
JMP

PC,GET
14%
18%

;GG READ REGISTER(S) WITH GET SUBROUTINC
;GO _TO 14% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEF INED BY GET SUBROUTINE
;GO TO 18% IF ERROR

JVERIFY THE RESULTS OF READ OPERATION
JSR
PC,PRIERR
. GO (HECK FOR PRIMARY ERRORS
BR
15%
;GO 0 15% IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
JERROR # DEFINED BY PRIERR SUBROUTINE
JSR
PC,a(5P)+
;GO BACK FOR MORE ERROR (HECKS

“IRMNBO RMOS/3/2 FCTINL
T6
FORMAT ONES

TST 2

MACRO v04.00

000137

014334

004737

051502

014264

000240

014266
014270
014272
538 014276

539 014276
014302

014304
014306
014310
014312
22? 014316
542

543 014316

14322
014324

014326

014330
014332
22§ 014334

000405

104000
004736
000137
004737
000405

15%:

18%

;G0 TO 18% IF ERROR

JSR

PC.DTASTS

;GO VERIFY RESULTS OF

B8R

01433

16%

004737

035342

EMT
JSR
JMP

16%:

037620

014334

JSR
BR
NOP
EMT
JSR

JMP

17%:

:VERIFY DATA

JSR

.WORD
.WORD

000402

B8R

000240
104000

546

JMP

NOP

000240
104000
004736
000137

101360
102364

7
K
11:43:33 PAGE 13-17
SEG 0088

014252
536 014256
537 014256

014262

&-APR-81

NOP
EMT

18%:
t

;*TEST

;GO TO 168 IF NO ERROR

JRETURN HERE

DATA TRANSFER

[F ERROR

PC,a(SP)+
18%

;ERROR # DEFINED BY DTASTS SUBROUT INE
;GO BACK FOR MORE ERROR ChECKS
;GO TO 18% IF ERROR

PC,SECERR
17%

;GO CHECK FOR SECONDARY ERRORS
;GO TO 17$ IF NO ERROR

PC,A(SP)+
18%

JRETURN HFRE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR

PC ., CMPBUF

;GO COMPARE WRITE, READ DATA BUFFERS

BUFONE
BUFTWO

18%

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

;GO TO 188 IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEF INED BY CMPBUF SUBROUT INE

A N AN A A AR R AR NN A AR TR AN AN AN AN R AANFARRRANENARAR I AR AN

FORMAT CHECK ONES

:.'tt‘tttttttit*ttttttt"ittttttttttttt*t*ttttttt*ttttttttt.tttttt

014334

014336
014340
014344

014350

5.7 014354

548
549 014362

550
551
552
553
ggg
556

014370
014376
014404
014412
014620

]
014426
014432
074434
014440
014442
557 014446
558 014446
559 014454
560 014462
561 014466

TS17:

000004

000240
012706
013700

013701

001100
001276
001466

000007

001226

012737
012737
012737
012737
012737
012737

000000
000000
010000
177376
101360
000062

001446
001420
001444
001414
001416
001412

004737
000405
104401
104000
000137

033152

012737
012737
004737

064736
000001
035104

012737

SCOPE

NOP
MoV
MOV
MOV

MoV

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

#7,.8TESTN

MOV
MOV
MOV
MOV
MoV

063346

001174
001176

;:SET TEST NUMBER IN AFT MAIL BOX

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MoV
#0.RMDCO
:CYLINDER = 0

#0 ,RMDAO
#FMT16 .RMOFO
#-258. ,RMWCO
#BUFONE ,RMBAO
MIH ,RMCS10

:VERIFY THAT SECTOR [S NOT BAD
JSR
PC,BADSCT

015124

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

1¢:

2%:

BR
TYPE
EMT

1%
,SCTMSG

JMP

18%

MOV
MOV
JSR

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

JTRACK = 0, SECTOR - 0
;16 BIT FORMAT
;2 + 256 WORDS (2'S COMP)
;DATA BUFFER ADDRESS
JWRITE HEADER AND DATA

;CALL BAD SECTOR MODULE
;GO TO 1% IF NO ERROR
:TYPE BAD SECTOR MESSAGE
:ERROR # DEFINED BY BADSCT SUBROUTINE
:GO TO 18% IF ERROR

;USE ALL ONES DATA PATTERN
;GO GENERATE DATA BUFFER

(&4

’ZRMNBU RMOS/3/2 FCINL

TST 2

FORMAT (HECK ONES

563
564 014466

014472

004737
156130

MACRO v04.00

4-APR-81

11:43:33 PAGE

13-18

SEQ 0uBY

:PREPARE DEVICE FOR DATA TRANSFER

(32176

JSR

.WORD

PC,TSTPRP

154130

JPREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:

SSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE

014474
014476
014500
014502
565 014506
566
567
568 014506
569 014514
570 14520
§71 014524
572 014530
573 014534
574 014540
575
576 014564
014550
014552
014554
014556
577 014562
578
579
580 014562
581 014566
582 014572
583
584
585 014572
014576
014600
14602
014604
586 014610
587
588
589 014610
014614
014616

014620
014622
014624
590 014630

591
592

593 014630
594 014636

NOP

015124

000005
001553
060006
000034

3%:

001412

MOV
MOV

MOVR
MOVB
MOVB
MOVB
MOVB

000000
000200

036240

000404
000240
104000
000137

015124

004737
004737

035704
036602

004737

035770

000404
000240
104000
000137

004737
000405
000240

JSR

B8R

NOP
EMT

4%:

5%:

;GO TO 3% IF NO ERROR

JRETURN HERE

ERROR

;ERROR # DEFINED BY TSTPRP SUBROUT
INE
;GO TO 18% If ERROR

18%

JMF

#SEEK.GO,RMCS10 ; CHANGE COMMAND TO SEEK
APUTIN
,R2
X
WRITE REGISTER INDEX TABLE
#RMDA, (R2) +

#RMD(, (R2) +
#RMOF
, (R2) +
#RM(ST,(R2)+
#200, (R2)+

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 4% IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 18% IF ERROR

18%

JSR

PC,TIMOUT

;GO READ SEEK STATUS
JSR
PC.GET
BR
6%
NOP
EMT

015124

6$%:

JMP

JSR

NOP
EMT
JSR

015124

7%:

001412

JMP

TO COMPLETE

THE SEEK COMMAND
;GO VERIFY RESULTS OF SEEK OPERATION

PC,a(SP)+

18%

FOR SEEK

;GO TO 18% IF ERROR

PC,SEKSTS

JWAIT

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

18%

JVERIFY THE RESULTS OF

044104

000063
001556

SET

sSETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE
JSR
PC,GETSTS
;SETUP FOR STATUS

104000

004736
000137

''SKI''
OR 'PIP'’ IS

JVERIFY RECALIBRATION

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER

000032

004737

EMT
JMP

VALID

;GO TO 7% IF NO ERROR

JRETURN HERE IF ERROR
SJERROR # DEFINED BY SEKSTS SUBROUTINE
. GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR

JSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#wWH.GO,RM(S10
JWRITE HEADER AND DATA
Mov
#PUTINX+3,R2
JEXTEND REGISTER INDEX TABLE

CIRMNBO RMOS5/3/72 FCTINL

FORMAT

595 014662
596 0146466
597 014652
598 014656
599
600 014662
014666

T1ST

CHECK ONES

MOVB
MOVB
MOVB
MOVB

004737
000404
000240
104000
000137

036240

JSR
BR
NOP

004737

036602
035770

004737
000405
000240
104000
004736
000137

036766

014742
014746
014750
014752
014754
0l47d6

004737
000405
000240
104000
004736
000137

051502

014762
014766
014770
014772
014774
014776

004737
000405
000240
104000
004736
000137

037620

015002

012737

000053

015010
015014
015016
015020
015022
621 015026
622

004737
000404
000240
104000
000137

036240

004737

036602

~NOWN
OV

N e ed = —3 s

[0 .Y e Yo Yo Yo Yo

015002

623
624 015026

SEQ 0090

000002
(00004
000000
000200

004737
000404
000240
104000
000137

015124

8s:

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

EMT
JMP

PC,PUT
8$

;GO0 WRITE REGISTER(S) WITH PUT SUBROUTINE
:GO TO 88 IF ND ERROR
:RETURN MERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUTINE
160 TO 188 IF ERROR

183

;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS

015124

9s:

JSR

PC., TIMOUT

;WAIT FOR COMMAND TO COMPLETE

JSR
BR
NOP
EMT
JMP

PCLGET
9%

:GO READ REGISTER(S) WITH GET SUBROUTINE
1GO TO 9% IF NO ERROR
:RETURN HERE IF ERKOR
JERROR # DEFINED BY GET SUBROUTINE
:GO TO 188 IF ERROR

;VERIFY RESUL)S
JSR
BR
NOP
EMT
JSR
JMP

015124

108:

015124

m
7
11:43:33 PAGE i3-19

4-APR-81

112722
112722
112782
112722

014670
014672
014674
601 014700
602
603
604 014700
605
606 014704
014710
014712
014714
C14716
607 014722
608
609
610 014722
014726
014730
014732
0164734
014736
014742

MACRO v04.00

128:
001412

;WRITE

138:
;WAIT

JSR
BR
NOP
EMT
JSR
JMP
JSR
BR
NOP
EMT
JSR
JMP

188

OF WRITE COMMAND
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS
108
:GO TO 108 IF NO ERROR
RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
PC,a(SP)+
GO BACK FOR MORE ERROR CHECXS
18§
:GO TO 188 IF ERROR
.

PC,DTASTS
11$
PC,a(SP)+
18%
PC,SECERR ’
12%

PC,a(SP)+
18%

;GO VERIFY RESULTS OF DATA TRANSFER
:GO TO 11$ IF NO ERROR
RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
GO BACK FOR MORE ERROR CHECKS
16O TO 18$ IF ERROR
;GO CHECK FOR SECONDARY ERRORS
1GO TC 128 IF NO ERROR
*RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
1GO TO 188 IF ERROR

CHECK HEADER AND DATA FOR SECTOR JUST WRITTEN

MOV

#ICH'GO,RMCS10

;WRITE CHECK COMMAND

JSR
BR
NOP
EMT
JMP

PC,PUT
13§

;60 WRITE REGISTER(S) WITH PUT SUBROUT INE

188

JERROR # DEFINED BY PUT SUBROUTINE
GO TO 188 IF ERROR

FOR WRITE

JSR

CHECK

1GO TO 13$ IF NO ERROR
RETURN HERE IF ERROR

TO COMPLETE

PC, TIMOUT

AND GET

STATUS

;WAIT FOR READ TO COMPLETE

CZRMNBO RMOS5/3/2 FCINL TST 2
17
FORMATY CHECK ONES
625
626 015032
015036
015040
015042
015044
627 015250
628
629
630 015050
015054
015056

015060
015062
015064
631 015070
632 015070
015074
015076
15100

633
634

004737
000404
000240
104000
000137

004737
000405
000240

MACRO v04.00

004737
000405
000240

035770

JSR

NOP

015124

:
148

004737
000403
000240

JSR

NOP

015124

051502

14$
188

;GO READ REGISTER(S) WITH GET SUBROUTINE

G0 TC 14% IF NO ERROR
*RETURN HERE

ERROR

*ERROR # DEFINED BY GET SUBROUT INE
*GO TO 188 IF ERROR

037620

;GO CHECK FOR PRIMARY ERRORS

:GO TO 158 IF NO ERROR
*RETURN HERE

ERROR

PC,a(SP)+
18$

JSR

PC.DTASTS

;GO VERIFY RESULTS OF

16$

:GO TO 16% IF NO ERROR

*RETURN HERE

DATA TRANSFER

ERROR

EMT
JSR

PC,A(SP)+

188

:GO TO 188 IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

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

JMP
BR

004736

15$

*ERROR # DEFINED BY PRIERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
1GO TO 18% IF ERROR

NOP

015124

PC,PRIERR

EMT
JSR
JMP

B8R

104000

635
€36
637
638
639

EMT
JMP

PC,GET

;VERIFY THE RESULTS OF WRITE CHECK OPERATION

036766

104000

004736
000137

7
N
11:43:33 PAGE 13-20
SEQ 009"

104000

004736
000137

4-APR-B1

NOP
EMT
JSR

17%

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

:GO TO 17% IF NO ERROR

18%:
::ttt**fitttt**ti‘tt'*tttitttt*ttttt‘*tfit***tt**tt*ttttt*ttttttttt

T*TEST 10

FORMAT CHECK ONES W/ WCE ERRORS

::t***t*tttt!*t*ttt*t**titltiflt*tt*tt**tt*tt**tttttt*tltt*ttt'ttt

000004
000240

015216

004737
000405

033152

=)
b cond
-l el

PON)
=2 =t — —

o
non
HN

[elelolelalel

b
—

on s~

000000
000000
010000
177376
101360
000062

012737
012737
012737
012737
012737
012737

VIV
IV
IV IV

001276
001466
000010

[e]e)

640
641
642
643
644
645
646
647
648
649

001100

013700
013701
012737

-*O\J&Own
on

012706

TST10:

015230
015232

104401
10 .000

000137

063346
016062

SCOPE
NOP

MOV

001226
001446
001420
001444

001414

001416
001412

MOV

#STACK, SP

$BASE , RO

TSTQUE ,R1

#10,$TESTN

:SCOPE CALL
:START OF TEST
SINITIALIZE

STACK POINTER

‘RO = UNIBUS ADDRESS
$(R1)

= DEVICE BEING TESTED

$:SET TEST NUMBER IN APT MAIL BOX

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
MOV
MOY

MOV
MOV
MOV

#0,RMDCO
#0 . RMDAQ
AFMT16,RMOFO

;CYLINDER = 0
STRACK = 0, SECTOR
:16 BIT FORMAT

#BUFONE ,RMBAO
#WH,RMCS10

-DATA BUFFER ADDRESS
*WRITE HEADER AND DATA

#-258..RMWCO

;VERIFY THAT SECTOR IS NOT BAD
JSR

PC.BADSCT

TYPE

,SCTMSG

EMT
JMP

208

:2 + 256 WORDS (2'S COMP)

:CALL BAD SECTOR MODULE

*GO TO 1$ IF NO ERROR
*TYPE

BAD

SECTOR MESSAGE

“ERROR # DEFINED BY BADSCT SUBROUT
INE
*GO TO 20% IF ERROR

CIRMABC RMOS/3/¢ FOTNL TST 2
MACRO v04.0C
"
FORMAT CHECK ONES w/ wCE ERRORS

650 015236
651 015236
652 015246

653 015252
ggg 015256

656

457 015256
015262

012737
C£12737

(64736
300001

004737

035104

006737
154130

032176

001174
001176

18:

28:

4-aPR-B1

e 8
11:43:33 PAGE 13-21
SEQ 0%

MOV
MOV

JSR

SONES , $ TMPC
#i,$7MP1

P( . GENBUF

;USE ALL ONES DATA PATTERN

;GO GENERATE DATA BUFFER

:PREPARE DEVIiCE FOR DATA TRANSFER
JSR
LWORD

PC.TSTPRP
154130

;PREPARE DEVICE FOR TEST
STASK DESCRIPTOR AS FOI LOWS:

*SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
.VERIFY CONTROLLER CLEAR OPERAT]ON

;PACK ACKNOWLEDGE IF VOLUME
*VERIFY PACK ACKNOWLEDGE

;RECALIBRATE

015264
015266
015270
015272
ggg 015276

00040«
000240
104000
000137

0160€2

015276
015306
015310
015314
015320
015324

012737
(€12702
112722
112722
112722
112722

112722

000005
001553
000006
000034
000032
000000

000200

669 05334
015340
015342
015344

004737
000404
000240
104000

036240

660
661
662
663
€56
665
666

gg; 015330

015346
g;? 015352
672
673 015352
674 015356
675 015362
676
677

000137

016062

004737

035704

004737

036602

678 015362

004737

035770

015370
015372
21537¢
2;3 015400

000240
104000
000137

016062

682 015400

(04737

044104

015406
015410

000240
104000

015366

681

015404

C1552

000404

000405

004736

38
_
0014'2

BF
NOP
EMT
JMP

NOT

VAL ID

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

:VERIFY RECA.IBRATJON

:GO TO 38 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUT
INE
:GO TO 20$ IF ERROR

20$

;SETJP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER
MOV
#SEEK 'GO,RMCS10 ; CHANGE COMMAND TO SEEK
MOV
#PUTINX ,R2
‘WRITE REGISTER INDEX TABLE
MOV
#RMDA, (R2)+
MOVE
#RMDC.(R2)+
MOVB
#QMOF
. (R2)+
MOVB
WRM(CST.(R2)+

4%:

MOVB

#200,(R2)+

JSR
BR
NOP
EMT
MP

PC.PUT
43

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE
:GO TO 4$ IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

.
208

:GO TO 208 IF ERROR

;SETUP FOR READING STATUS AND THEN WAIT FOR SCEK TO COMPLETE
JSR
PC.GETSTS
:SETUP FOR STATUS
JSR
PC.TIMOUT
SWAIT FOR SEEK TO COMPLETE
5¢-

:GO READ SEEK STATUS
JSR
PC.GET

B8R

6$:

NOP
EMT
JMP

B8R

NOP
EMT
JSR

:GO TO 68 IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
:GO TO 20$ IF ERROR

208

JVERIFY THE RESULTS OF

JSR

;GO READ REGISTER(S) WITH GET SUBROUTINE

THE

PC.,SEKSTS

SEEK COMMAND

;GO VERIFY RESULTS OF SEEK CPERATION

‘GO TO 7% IF NO ERROR

PC,R(5P)+

:GO BACK FOR MORE

‘RETURN HERE IF ERROR
*ERROR # DEFINED BY SEKSTS SUBROUTINE
ERRNR

CHECKS

:{QHNBO RMOS/3/2 FCINL
.

FORMAT

TST 2

(HECK ONES W/ wWw(E

015414

000137

076062

686 015420
687 015420
688 015432
689 015436
690 015442

012737
012702
112722
112722
112722

000063
001556
000002
000004
000000

693 015452
015456
015460
015462
015464
ggg 015470

004737
000404
000240
104000
000137

036240

0160562

696
ggg £15470

004737

036602

699 015474

004737

035770

232 015420
685

28% 015446

015500
015502
015504
015506
;8? 015512

702

112722

000404
000240
104000
000137

703 015512

004737

015520
015522

000240
104000

-t

015516

(¢
s

004737

051502

707 015552

015556
015560
015562
015564
015566

708 015572

709
710
;}} 015572

71%

714 018576
15

004737

000405
000240
104000
004736
000137

4-APR-8B1

JMP

8%:

000053

;GO 10 20% IF ERROR

#WH!GO,RM(CS10
#PUTINX+3,R2
#RMWC, (R2) +
#RMBA, (R2) +
#RMCST,{(R2)+
#200,(R2)+

LWRITE HEADER AND DA'A
JEXTEND REGISTER INDEX TARE

JSR
BR
NOP
EMT
JMP

PC.,PUT
8¢

;GO WRITE REGISTER(S) WITH PLT SUSROUTINE
;GO TO 8% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED 8Y PUT SUBROUTINE
;GO T0 20% IfF ERROR

JSR

9% :

20%

BR
NOP
EMT
JMP

PC,GET

20%

;GO READ REGISIER(S) WITH GET

SUBROUTINE

;G0 TO 9% JF NO ERROR
JRETURN HERE iF ERROR
SERROR # DEFINED BY GET SUBRCUTINE
;GO 10 20% IF ERROR

JVERIFY RESULTS OF WRITE COMMAND
JSR

B8R

'0%:

12%:

PC,PRIERR

10%

JSR
JMP

PC.a{(SP)+
20%

JSR

PC.DTASTS

BR
NOP
EMT
JSR
JMP
JSR

016062

(012737

208

SEQ 0097

;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS
JSR
PC.TIMOUT
JWAIT FOR COMMAND TO (OMPLETE

037620

102362

8
13-22

MOV
MOV
MOVR
MOVB
MOVR
MOVB

016062

A
005137

c
17.43:33 PAGE

JSETUP AND EXECUTE WRITE HEADER AND DATA (OMMAND

NOP
EMT

015532

706 0155¢

(C01412

036766

016062

000405
000240
104000
004736
000137

7%:

016062

004736
000137

015534
015540
015542
015544
C15546

ERRORS

(00200

015524
015526

704 015532

705

000405

MACRD v04.00

BR
NOP
EMT
JSR
JMP

11%

P, a(SP)+
20%

PC,SECERR

12%

PC,a(SP}+
20%

JA_TER DATA BUFFER
oM
BUF TWO=~2
(01412

.60 CHECK FOR PRIMARY ERRORS

;GO TO 10% If NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERF SUBROUTINE

;GO BACK FOR MORE ERROR CHE(CKS
;GO T0 20% IF ERROR

;60 VERIFY RESULTS OF

#WCH!GO,RM(S10

TRANSFER

;GO CHECK

FOR SECONDARY ERRORS

;GO TO 12% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 20% IF ERROR

;COMPLEMENT DATA WORD

JSETUP AND WRITE CHECK HEADER AND DATA (OMMAND
MOV

DATA

;GO TO 11% IF NO ERRCR
;JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR (HECKS
;GO TO 208 If ERROR

:WRITE

(HECK COMMAND

015604
015610
015612
015614
015616
717 015622

004737
000404
000240

036240

000137

0160062

720 015622

004737

036602

015632

004737
000404
000240

035770

000137

016062

04737
000405
000240

036766

718
719

721
722 015626

015634
015636

015640
723 015644

104000

730 015664
731 015672
722
733

JSR

JMP

13%:

004737

051502

000405

JSR

15%:

001346

:MAKE

SURE

738
739

740
741
742
743
744

745
746

767

748

749

1 273
1 373
6 273

NNN

737

013737

052737
013737
104337

BNE

NOP

750

EMT

016062
001346
040000
001346

16$:

17%:

102362

001342
000002

112737
112737

000022
000200

001524
001525

004737
000404
000240

035770

000137
013737

016062
C01360

001142

JVFRIFY

JSR
JMP
MoV
BIS
Mov
EMT

ERRCR

:ERROR # DEFINED BY PRIERR SUBROUT
INE
;GO BACK FOR MORE ERROR CHECKS
:GO TO 20% IF ERROR

CHECK ERROR WAS DETECTED

MJCE ,RMCS21

;IS WRITE CHECK ERROR SET??

17%

SYES'!

PC,DTASTS
16%

;GO VERIFY RESULTS OF DATA TRANSFER
:GO TO 16% IF NO ERROR

*RETURN HERE

PC.a(SP)+
20$
RM(CSZ1,$GDDAT
#WCE
, $GDDAT
RMCS2!,$BDDAT

337

#2 ,$8BDADR

ERROR

:ERROR # DEFINED BY DTASTS SUBROUTINE

1GO BACK FOR MORE ERROR CHECKS
:GO TO 20% IF ERROR
;LOAD EXPECTED STATUS

;LOAD RECEIVED STATUS

DATA AND VERIFY

:DECREMENT RECEIVED ADDRES3S

MOvVB

#PMDB, GE T INX

JSR
BR
NOP
EMT
JMP
MoV

PC,GET
18%

MOVB

18%:

:RETURN HERE

THE ADDRESS OF THE WRITE (HECK ERROR
MOV
#BUF TWO-2, $GDADR
.LOAD EXPECTED ADDRESS
MOV
RMBAI , $BDADR
;LOAD RECEIVED ADDRESS

SUB

;GET WCE

:GO TO 15% IF NO ERROR

PC,R(SP)+
20%

THE WRITE

SUBROUTINE

:GO CHECK FOR PRIMARY ERRORS

JSR
BR

001134
001136
001136

104000

BIT

WITH GET

:GO TO 148 IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEF INED BY GET SUBROUT INE
1GO TO 208 IF ERROR

PC,PRIERR

EMT
JSR
JMP

TO COMPLETE AND READ STATUS
;WAIT FOR COMMMAND TO (OMPLETE
;GO READ REGISTER(S)

:CHECK FOR PRIMARY ERRORS

104000

734
735
736

(HECK COMMAND
PC.TIMOUT

208

. SR

SUBROUTINE

:GO TO 20% IF ERROR

14$

w;iTH PUT

SRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

PC,GET

BR
NOP
EMT
JMP

000240

004736
000137

GO TO 138 IF NO ERROR

208

:WAIT FOR WRITE
JSR

14%:

;G0 WRITE RFGISTER(S)

13§

NOP
EMT

016062

040000

8
13-23

PC,PUT

NOP

032737
001022

D
11:43:33 PAGE

SEQ 0094

104000

015656
004736
015660 " 000137
727 015664

728
729

4-aPR-81

724

725
726 015644
015650
015652
015654

=00

JRMNBD RMOS/3/2 FCTINL TST 2
MACRD v04.00
fFORMAY CHECK ONES W/ WCE ERRORS

IS OK

#200,GETINX+1

20%

RMDB] , $BDDAT

;SETUP FOR READING RMDB

;GO READ REGISTER(S) WITH GET SUBRQUTINE
;G0 TO 18% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 20% IF ERROR
JLOAD RECEIVED DATA WORD

"IRMNBO RMOS/3/2 FCINL

TST 2

MACRO v04.00
FORMAT CHECK ONES W/ w(E ERRORS

110

75" 016022
752 016030
753 016034
754 016042

755 016044
756 016046
757 01€950
758 01605C
759 01605¢
760 016060

761

702
763

016062

013737
005137
023737
001402

102362

001140

001134

001136

(01140

104340

000405

023737
001401

001142

104341

13-24

MOV

BUF TWO-2 ,$GDDAT ;LOAD EXPE(TED DATA WCRD

BEQ
EMT
BR

19%
340
20%

SYES!H!

$GDDAT,$8DDAT
208
341

;1> DATA WORD 0x??
JYES.!

CMP
BEQ

20%:

11:43:33 PAGE

SEQ 009%

(Oni
(MP

198

001140

4-APR=-81

EMY

$GDDAT
$GDADR,$BDADR

;IS ADDRESS 0K??

'-"ttt*tttttttttttttttQtt't'tttttttfittttfitt.tfltt'tttttttn'nnttttt'

s*TEST

FORMAT MULTIPLE

SECTORS

":tttttfit*ittt!tttttttt"'tttttttttttttttttttttttttttttt"'ntt'.&

776

777
778

779
780
781

SN
oo~
O

774
775

016154
016160
016162
016166
016170
016174
016174
016202
016210
16214

004737
000405
104401

mad —
—d
e
ed

el cd
—

—

767
768
769
770
771
772
773

000004
000240
012706
013700
013701
012737

012737
012737
012737
012737
012737
012737

COLOODD

764
765
766

016062
016062
016064
016066
016072
016076
016102

104000

TST11:

001100

001276
001466
000011
010000
000000
000000
176774
101360

000062

MOV
MOV

061226
001444

001446
001420
001414
001416
001412

MOv

012737
012737
004737

065000
000001
035104

004737

032176

H#STACK,SP

$BASE ,RO
TSTQUE ,R1

#11,8TESTN

MOV
MOV
MOV
MOV
MOv

#0 ,RMDCO
#0 ,RMDAQ
#-258.%2 RMWCO
#BUF ONE ,RMBAQD
#WH ,RM(S10

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC .BADS(CT

JINITIALIZE STACK POINTER

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

;oSET TEST NUMBER [N APT MAIL BOX

;CYLINDER = 0
;JTRACK = 0, SECTOR
D
;WORD COUNT FGCR 2 SECTORS
;DATA BUFFER ADDRESS
JWRITE HEADER AND DATA

(2'S (OMP)

. CALL BAD SECTOR MODULE

;GO TO 18 IF NO ERROFK

EMT
JMP

17%

JERRCR # DEFINED BY BADSCT SUBROUTINE
;GO TO 178 IF ERROR

MOV
MOV
JSR

#ZEROS ,$TMPO
#1,8TMPY
PC ., GENBUF

TVYPE

001174
001176

;SCOPE CALL
;START OF TEST

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#FMT16,RMOFO
;16 BIT FORMAT

063346
016656

154130

MOV

033152

000137

SCOPE
NOP

.SCTMSG

;TYPE BAD SECTOR MESSAGE

JUSE ALL

;GO GENERATE DATA BUFFER

;PREPARE DEVICE FOR DATA TRANSFER
JSR

.WORD

PC,TSTPRP

154130

ZEROS DATA PATTERN

JPREPARE

DEVICE

FOR

TEST

;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVA[LABLE
;CLEAR CONTROLLER & SELECT DEVICE

;JVERIFY CONTROLLER CLEAR OPERATION

JPACK ACKNOWLEDGE

VOLUME NOT

VERIFY PACK ACKNOWLEDGE

VvALID

JRECALIBRATE [F ‘'SKI'' OR 'PIP'" IS SE~

000404
000249

104000

000137

BR
ANOP

016656

Emr
JMP

3t
‘8%

;VERIFY RECALIBRATION
;GO TO 3% IF NO ERROR
;RETURN HERE IF ERROR

JERRQR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 18% If ERROR

JRMNBO RMOS5/3/72 FCINL

LXR)

FORMAT

MUL
" IPLE

TST 2

SECTCRS

MA{RG v04.00

782 016234

785 016234

000005
001553
000006
000034
000032
000000
000209

786 016242

787 016246
788 016252
789 016256
790 016262
791 016266
792
793 016272

795
79¢€
797 616310
798 016314
799 016320

800
801
80¢ 016320

016324

- D OO0

‘000
20

00 0o 00 0o 00 Co 0o 000000
Q0
JrSur
i
i
- utrGuard —=COO
NO NN OO0~

016326
076330
016332
803 016336
804
805
806 016336
016342
016344
016346
016350
016352
016356

F
11:43:33 PAGE

8
13-25

3%:

783
784

016276
016300
216302
016304
794 016310

4~-APR-81

001412

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON
YLINDER
MOV
#SEEK!GO,RMCS10 ;CHANGE (OMMAND 10O .EEK
MOV
#PUTINX ,R2
JWRITE REGISTER IND!
X TABLE

MOvVB
MOvVB
MOvVB

mMovB

036240

000137

016656

004737
004737

035704
036602

004737
000404
000240

035770

000137

016656

004737
000405
000240
104000
0046736
000" 37

044704

104000

MOVB

#200,(R2)+

JSR
BR
NOP
EMT
JMP

PC,PUT
4%

JSR

B8R
68
JVERIFY

001412

004737

036602

PC,TIMOUT

NOP
EMT
JMp

JWAIT

FOR SEEK

TO COMPLETE

PC,GET

;GO READ REGISTER(S)

18%

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

THE RESULTS OF THE
JSR
PC,SEKSTS

EMT
JSR

PC,a(SP)+

JMP

THEN WAIT FOR SEEK TO (OMPLETF
;SETUP FOR STATUS

;GO TO 6% IF NO ERROR

SEEK (OMMAND
;GO VERIFY RESULTS OF

18%

;GO TO 7% IF NO ERROR

;RETURN HERE

WITH GET

SUBROUTINE

SEEK OPERATION

ERROR

;ERROR # DEFINED BY SEKSTS SUBROUT INE
;60 BACK FOR MORE ERROR (HECKS

;GO TO 18% [F ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA (OMMAND

036240

016656

18%

;GO READ SEEK STATUS

016656

000137

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

:SETUP FOR READING STATUS AND
JSR
PC,GETSTS

NOP

000063
001556
000002
000004
000000
000200

#RMDA
, (R2) +
#RMDC, (R2) +
H#RMOF
, (R2)+
#RM(CS1, (R2)+

MOV
MOV
MOVB
MOVB
MoVB
MOVB

#WH!GO,RMCS10
#PUTINX+3,R2
H#RMWC, (R2) +
KRMBA, (R2)+
H#RMCST,(R2)
+

JSR
B8R
NOP

PC.PUT

18%

EmM7

8%:

;WRITE HEADER AND DATA
JEXTEND REGISTER INDEX TABLE

#200, (R2)+
8%

;GO WRITE

;GO TO 8% IF NO ERROR
JRETURN HERE

;GO TO 18% [F

ERROR

PC, TIMOUT

SUBROUTINE

;ERROR # DEFINED BY PUT SUBROUTINE

JWAIT FOR WRITE COMMAND TO ICMPLETE ANL READ STATUS
JSR

WITH PUT

JWAIT

FOR

COMMAND

TO (OMPLETE

_JRMNBO RMOS/3/2 FCTNL
RJ

FORMATM MyLTIPLE

016432
016436
014440
016442
0° 6444

-0

WAN

(¢ 70]

824 016450
825
826
827 016450
016454
016456
016460
016462
016464
828 016470
829 016470
016474
016476
616500
016502
016504
016510
016510
016514
016516
016520
016522
016524
872 016530
833
834
835 016530
836
837 016536
016542
016544
016546
016550
838 016554
839
840
841 016554
842
843 016560
016564
016566

016570

016572
844 016576
845
846
847

004737
000404
000240
104000

TST 2

SECTORS

MATRG

04,00

JSR

(35770

B8R

NOP

000137

016656

004737
000405
000240

036766

EMT

9%:

004737
000405
000240
104000
004736
000137
004737
C00405
000240

016656

108

051502

016656

037620

012737

000053

004737
000404
000240
104000
000137

036240

004737

036602

004737
000404
000240

035770

000137

016656

004737

036766

104200

004736

;G0 READ REGISTER(S) WITH GET

;60 10 9% iF NO ERROR
]F

18%

;GO TO 18% IF

ERROR

SURROUTINE

ERROR

SUBROUTINF

JRETURN HERE

001412

JWRITE

PC,DTASTS
118

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 118 IF NO ERROR
JRETURN HERE If ERROR

JSR
JMP

PL,a(SP)+
18%

;GO BACK FOR MORE ERROR (HE(CKS
;G0 TO 18% IF ERROR

JSR

PC,SECERR

;GO0 CHECK FOR SECONDARY ERRORS

PC,(SP)+

JRETURN HERE [F ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS

NOP
EMT
JSR

JMP

JWAIT

EMT
JMP
FOR WRITE

18%

JERROR # DEFINED BY DTASTS

SUBROUT INF

;GO TO 12% IF NO ERROR

;G0 TO 18% IF ERROR

PC ., PUT
13%

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

JRETURN HERE

18%
CHECK

ERROR

JERROR # DEFINED B8Y PUT SUBROUTINE
;GO TO 18% IF ERROR
TO COMPLETE

AND GET

STATUS

JSR

PC,TIMOUT

JWAIT FOR WRITE CHECK

JSR
BR

PC,GET
14%

EMT
JMP

;GO READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 14% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 18% IF ERROR

NOP

14%:

12%

JERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 18% IF ERROR

CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN
MOV
#WCH!GO,RMCS10
;WRITE CHECK COMMAND

JSR
BR

13%:

ERROR

JSR
BR

128

PC,a(SP)+
18%

NOP

016656

;RETURN HERE

JERROR # DEFINED BY GET

EMT

016656

13-2¢

EMT
JSR
JMP

NOP

004736
000137

000405
000240

PC,.GET

NOP

104000

JMP

11:43:33 PAGE

JVERIFY RESULTS OF WRITE (OMMAND
JSR
PC.PRIERR
;G0 (HECK FOR PRIMARY ERRORS
BR
10%
;GO TO 10% IF NO ERROR

104000

004736
000137

4-APR-81

TO FINISH

JVERIFY THE RESULTS OF WRITE (HECK OPERATION
JSR

P( ,PRIERR

;G0 CHECK FOR PRIMARY ERRQRS

JSR

P(L.a(3P)+

;GO BA(K FOR MORE ERROR (HE(KS

BR
NOP
EMY

15%

;G0 TO 15% IF NO ERROR
JRETURN HERS [F ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE

_JAMABO RMGS/3/2 FTINL TST 2
MACRY 04,00
FORMAT MUL
T IPLE SECTORS

016612

848 016616

849

000137

016656

004737
000405
000240

051502

4-APR-81

Ste vuy-

16¢:

104000

004736
000137

850
851

004737
000405
000240

016656

16%:

037620

852
853
854 016656
855
856

016656

016666
016672
016676

857
858
859 016704
860 016712
861 016720
016726
863 016734
864 016742
865 016750
866
867
016756
16762
016764
016770
016772
868 016776
869 016776
870 017004
871 017006
872 017014
873 017022
874
875
876 017026

017032

18%

;GO TO 18% IF ERROR

JSR
BR
NOP
EMT

PC,DTASTS

;GO VERIFY RESULTS OF

16%

;GO TO 16% IF NO ERROR

JRETURN HERE

. SR
-MP

PC,A(SP)+

JSR

PC, SECERR
17%

DATA

TRANM:ER

ERROR

SERROR # DEF INED BY DTASTS SUBROUT
INE

;GO BACK FOR MORE ERROR (HE(KS
;GO 7O 18% IF ERROR

18%

NOP
EMT
JSR
JMP

17%:

;GO0 CHECK FOR SECONDARY ERRORS
;GO TO 17% IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY SE(ERR SUBROUTINE

PC,a(SP)+
18%

;GO BACK FOR MORE ERROR (HE(CKS
;GO TO 18% IF ERROR

18%:
ML

RARALEER

TWTEST 12
R

016656
016656
016660
016662

JMP

104000

004736
000137

H
8
11:43:33 PAGE 13-27

000004
000240
012706

013700
013701
012737

001226

012737

000000
000000
000037
010000
176774
101360
000062

001446
001421
001420
001444
001414
001416
001412

Ridsi

FORMAT W/ HEAD

AASRESAS

IST12:

001100
001276
001466
000012

SCOPE
NOP
MOV
MOV
MOV
MoV

RRdst

sttt

033152

123727

001345
012737
012737
004737

001420

000037

065000
000001
035104

001174
001176

004737

032176

R R R

RR NS

TRRREY

isil

2222 2

RN R

SRR

]

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

;START OF

TEST

JINITIALIZE STACK POIN(ER

;RO = UNIBUS ADDRESS

;(R1)

DEVICE BEING

TESTED

;;SET TEST NUMBER IN APT MAIL BOX

:SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
:CYLINDER = 0
1%:

MOVB

#0 ,RMDAQO+1

MOVR
MoV

#31. ,RMDAOC
NFMT16,RMOFO

MOV

#BUF
ONE ,RMBAO

MOV

MoV
JSR
BR

063346

TYPE

017470

SWITCHING

;SCOPE CALL

#-258.%2 ,RMWCO

AWH,RMCS10

JVERIFY THAT SECTOR IS NOT BAD

004737
000405
104401
104000
000137

154130

SRS

2%:

;PREPARE

EMT
JMP

CMPR
BNE
MOV
MOV
JSR
DEVICE

JSR

JWORD

P(C,BADSCT
2%

;TRACK = 0

;SECTOR = 31.

;16 BIT FORMAT

;WORD COUNT FOR 2 SECTORS
:DATA BUFFER ADDRESS
;WRITE HEADER AND DATA

(2'S COMP)

.CALL BAD SECTOR MODULE

;GO TO 2% IF NO ERROR

,SCTMSG

;TYPE BAD

18%

;GO TO 18% If ERROR

RMDAQ, #31.
1%

;IS LAST SECTOR ASSIGNED ?
;BR_IF NO
JUSE ALL ZEROS DATA PATTERN

;ERROR # DEFINED BY BADSCT

47EROS
, $TMPO
#1,8TMP1
PC,GENBUF
FOR

SECTOR MESSAGE

DATA

PC,TSTPRP

154130

SUBROUTINE

;GO GENERATE DATA BUFFER

TRANSFER

;PREPARE DEVICE FOR TEST
s TASK

DESCRIPTOR AS

FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE

JeNE

wM_ 573/,

¢ URMAT

MA(RO v04.00
ST 2
W7/ HEAD SwITTHING

FOTNL

4&-APR-81

1':43:33 PAGE

13-28

SEQ 009

JVERIFY (ONTROLLER CLEAR GPERATION

+PACK ACKNOWLEDGE

VOLUME

JVERIFY PACK ACKNOWLEDGE

017034
017036
017040
017042
8.7 017046

017470

878
879
880 017046
881 017054
882 017060
883
884
885
886
887
888

889
890
R91
892

893

- OV~

——

§3888853

894
895
896
897

000005
001553
000006
000034
000032

001412

MOovB
Mova

MGVB

MOVB

036240

017470

004737
004737

035704
036602

004737
000404
000240
104000
000137

035770

004737
000405
000240
104000
004736
000137

044104

4%:

;GO TO 3% IF

NO ERROR

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

JVERIFY RECALIBRATION

JRETURN HERE

ERROR

SERROR # DEFINED BY TSTPRP SUBROUT INE

18%

;GO

18%

ERROR

JSR
B8R
NOP
EMT
JMP

#RMD(, (R2) +
A3IMO
, (R2)F
+
ARM(CS1, (R2)+

#200, (R2) +
P(,PUT
4%

;GO0 WRITE REGISTER(S) WITH PUT
;GO TO 4% IF NO ERROR
;RETURN HERE IF ERROR

18%

;GO TO 18% IF

SURROUTINE

;ERROR # DEFINED BY PUT SUSROUTINE
ERROR

;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE
PC,GETSTS
JSR
;SETUP FOR STATUS
PC, TIMOUT
JSR
WAIT FOR SEEK TO COMPLFTE
5%

;GU READ SEEK STATUS

017470

JSR
BR
NOP
EMT
JMP

PC.GET
6%

JSR
BR

017470

7%:

001412

EMi
JSR
JMP

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

THE
PC,SEKSTS

SEEK

PC,a(SP)+
18%

COMMAND
;GO VERIFY RESULTS OF

:GO TO 7% I+

JRETURN HERE

NO ERROR
IF

#PUTINX+3,R?2
#RMWC, (R2) +
ARMRA, (R2) +

H#RM(SY ,(RZ2)+
#200, (R2)+

SEFK CPERATION

ERROR

JERROR # DEFINED BY SEKSTS SUBROUTINE
.60 BACK FOR MORE ERROR (HECKS
;GO TO 18% IF ERROR

JSETUP AND EXECUTE WRITE HEADER AND DATA (OMMAND
MOV
#wH.GO,RMCS10
;JWRITE HEADER AND DATA
MOV
MOvAR
MOvVB
MOVB
MOVE

SUBROUTINE

;RETURN HERE IF ERROR
SERROR # DEFINED BY GET SUBROUTINE
;GO TO 18% IF ERROR

18%

sVERIFY THE RESULTS OF
NOP

000063
001556
000002
000004
000000
000200

VAL ID

sSETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER
#SEEK!GO,RMCS10 ;CHANGE COMMAND TO SEEK
MoV
MOV
#PUTINX ,R2
JWRITE REGISTER INDEX TABLE
#RMDA, (R2) +
MOvB

000000
000200

]

3%:

BR
NOP
EMT
JMP

JRECALIBRATE

NOT

JEXTEND REGISTER INDEX TABLE

JRMNBO RMOS/3/72 FUINL

1ST 2
MACRC v04.00
f ORMAT w/ HFAD SWITCHING

912 017222

017226
017230
017232
017234
513 017240

914
915
816 017240

917

918 017244

017250
017252
017254
017256
919 017262

920
921
922 017262

617266
017270
017272
017274
017276
923 017302
824 017302
017306
017310
017312
017314

017316
925 017322
926 017322

004737
000404
000240

036240

000137

017470

004737

036602

004737
000404
000240

035770

000137

017470

004737
000405
000240
104000
004736
000137

036766

004737
000405
000240
104000
004736
000137

051502

104000

017366

004737

036602

938 017372

004737
000404
000249

035770

104000

FOR WRITE

9%
:

13-29

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 8% [f O ERROR

18%

001412

ERROR

(OMMAND

TO COMPLETE

18%

AND READ STATUS

JSR

PC,GET

;GO READ REGISTER(S)

NOP
EMT
JMP

02 3

;G0 TO 9% IF NO ERROR

WITH GET

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET
;GO TO 18% IF ERROR

18%

SUBROUTINE

JSR

PC,a(SP)+

JSR

PC,DTASTS

;GO VERIFY RESULTS OF

EMT
JSR
JMP

PC,a(SP)+
18%

JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR (CHECKS
;GO TO 18% IF ERROR

JSR

P(C,SECERR

JMP

NOP
EMT
JSR
JMP

PC,PRIERR
10%

>UBROUTINE

;GO CHECK FOR PRIMARY ERRORS
;60 TO 10% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;GO0 BACK FOR MORE FRROR CHECKS

B8R

128

;GO TO

ERROR

;WAIT FOR COMMAND TO CNMPLETE

118

PL, TIMOUTY

JSR
BR

108

JRETURN HERE

sERROR # DEFINED BY PUT SUBROUT
INE

JVERIFY RESULTS OF WRITE COMMAND

037620

18%

;GO TO 18% [F

11%

ERROR

;GO TO 11% IF NO ERROR

JRETURN HERE

DATA TRANSFER

ERROR

;GO0 CHECK FOR SECONDARY ERRCRS

12%

;GO TO 12% IF NO ERROR

;RETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR *

PC,a(SP)+
18%

SJWRITE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN
Mov

#WCH!GO,RMCS10

JWRITE

JSR

PC,PUT

;GO WRITE

18%

JERROR # DEFINED BY PUT
;G0 TO 18% IF ERROR

NOP

017470

11:43:33 PAGE

JSR

017470

036240

017376
017400
017402

JMp

NOP

004737
000404
000240
104000
000137

937

JWAIT

017470

000053

934
935

8%:

EMT

012737

017360
017362
933 017366

EmY

NOP

017470

928
929
930 17342
931
932 017350
017354
017356

JSR

B8R

NOP

004737
000405
000240
104000
004736
000137

017326
017330
017332
017334
017336
927 017342

4~4PR-81

13%:
JWAIT

EMT
JMP

FCR WRITE

13¢%

(CHECK

;G0 TO 13% IF NO ERROR
JRETURN HERE

JSR

PC,TIMOUT

JSR
BR
NOP

Pr,3ET
143

EMT

CHECK COMMAND

COMPLETE

AND GET

STATUS

;WAIT FOR WRITE

WITH PUT

ERROR

CHECK

SUBROUTINE

TO FINISH

;GO READ REGISTER(S) WITH GET
;G0 TO 14% [F NO ERROR
*RETURN HERE IF ERROR

JERROR # DEFINED BY GET

SUEROU INE
:

SUBROUTJNE
’,

JRMNBO RMOS5/37¢2 FCTNL IST 2
MACRO v04.00
T2
F ORMAT W/ HEAD SWITCHING

017404

939 017410
940
941
942 017410

017414
017416
017420
017422
017424

943 017630
944 017430

017434
017436
017440
017442
017444

945 017450
946 017450

C17454
017456
017460
017462
017464
947 017470

000137

004737
000405
000240

017470

14%:

004737
000405
000240

017470
051502

004737
000405
000240

JMP

JSR

NOP

0174790

168

037620

18%

017470

JSR
BR

PC,SECERR
17%

17%:

948
949 017470
950
951

ERROR

CHECK OPERATION
;60 CHECK FOR PRIMARY ERRORS
;G0 TO 15% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBPOUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR
;GO VERIFY RESULTS OF

16%

PC,a(SP)+
18%

JMP

.GO TO 18%

PC,DTASTS

EMT
JSR
JMP

NOP
EMT
JSR

104000

004736
000137

104000

004736
000137

K
8
11:43:33 PAGE 13-30

;VERIFY THE RESULTS OfF WRITE
JSR
PC,PRIERR
BR
15%
NOP
EMT
JSR
PC.a(SP)+
158
JMP
18%

036766

104000

004736
000137

4-APR-B1

;G0 TO 16% IF NO ERROR
JRETURN HERE

DATA TRANSFER

ERROR

JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR
;GO CHECK FOR SECONDARY ERRORS
;G0 TO 17% IF NO ERROR
JRETURN HERE IfF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR (HECKS
;GO TO 18% IF ERROR

PC,a(SP)+

18%

18%:
".‘fl*!*!’*fi.**fi'*"fil’"***‘"****t'*fi'tfi**"*fi‘t"fifl'**tkt****'i‘t."t

;*TEST 13

FORMAT W/ MID

TRANSFER SEEK

""*fi*t*fi***fi*ttt*t**tt*i*‘t*fit.t****'fit*‘t't**l"'*tt**'*‘i!"'i’t‘l**

017470
017470
017472
017474
017500
952
953
954
955
956
957
958
959
960
961
962

C1
01

017540
01

01
01

000004
000240
012706
013700
013701
012737

001100
001276
001466

001226

012737
013737
112737
012737
012737
012737
012737

000000

001446
001420
001420
001444
001414
001416
001412

004737
000405

033152

001334
000037
010000
176774
101360

000062

020302

123737
001342

001427

#STACK,SP

:SCOPE CALL
JSTART OF TEST
JINITIALIZE STACK POINTER

MoV
MOV

TSTQUE ,R1
#13,8TESIN

;(R1) = DEVICE BEING TESTED
c2SET TEST NUMBER IN APT MAIL 80X

$RASE RO

1%:

MOV

MOVB
MOV
MOV
MOV
MOV

LSTRK,RMDAC

;START LAST TRACK AND

ABUFONE ,RMBAO
#WH,RMCS10

;DATA BUFFER ADDRESS
JWRITE HEADER AND DATA

#31. RMDAC
#FMT16,RMOFO
#-258.+2 ,RMWCO

;VERIFY THAT SECTOR IS NOT BAD
JSR

PC ,BADSCT

TYPE
EMT

,SCTMSC

B8R
o8

001335

;RO = UNIBUS ADDRESS

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
JCYLINDER = 0

063346

000137

SCOPE
NOP
Mov

MOV

000013

104401
104000

963 017610
964 017610
965 017616

TST13:

JMP

19%

(MPB
BNE

RMDAO+1,LSTRK+1
1%

.LAST SECTOR
;16 BIT FORMAT
;WORD COU«T FOR 2 SECTORS

(2'S COMP)

;CALL BAD SECTOR MODULE

;GO TO 2% IF NO ERROR

. TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT

;GO TO 19% IF ERROR

;IS LAST TRACK ASSIGNED °
:BR If NO

SUBROUTINE

SEQ 01O

“ZJRMNBG RMOS5/372 FCINL

FORMAT W/ MID

966
967
968
ggg

017620
017626
017634
017640

971
972 017640
017644

TST 2

TRANSFER SEEK

012737
012737
004737

065000
(00001
035104

004737

032176

154130

MACRO v04.00

4-APR-81

11:43:33 PAGE

13-31
SEQ 010¢

001174
001176

3%:

MOV
MOV
JSR

47ERQS,$TMPO
#1,$TMPY
PC.,GENBUF

JUSE ALL ZEROS DATA PATTERN

;GO GENERATE DATA BUFFER

;PREPARE DEVICE FOR DATA TRANSFER
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
.WORD
154130
;TASK DESCRIPTOR AS FOLLOWS:

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

017646
017650
017652
017654
g;z 17660

000404
000240
104000
000137

020302

017660
017666

012737
012702

000005
001553

017676
017702
017706
gg% 017712

112722
112722
112722
112722

000034
000032
000000
000200

984 017716
017722
017724
017726
017730
ggg 017734

004737
000404
000240
104000
000137

036240

004737
004737

035704
036602

004737
000404
000240
1046000

035770

975
97¢
977
978
979
980
981

017672

987
988 017734
989 017740

gg? 017744
992
993 017744

017750
017752
017754
017756
ggg 017762
996
997 017762
017766
017770

017777
017774
017776

112722

000006

020302

000137

020302

(04737
000405
000240

044104

104000
004736
000137

020302

4%:
001412

BR
NOP
EMT
JMP

4%
19%

VOLUME

NOT VALID

JVERIFY PACK ACKNOWLEDGE
JRECAL IBRATE IF ''SK1'*
OR ‘PIP'" IS SET
;VERIFY RECALIBRATION
;GO _TO 4% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 19% IF ERROR

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON (YL INDER
MOV
#SEEK !GO,RMCST0 ;CHANGE COMMAND TO SFEK
MOV
HPUTINX ,R2
JWRITE REGISTER INDEX TABLE
MOVB
#RMDA
, (R2) +
MOvVB
#RMDC, (R2) +
MOVR
HRMOF
, (R2) +
MOVB
#RMCS1, (R2)+

5%:

MOVB

#200, (R2)+

JSR
BR
NOP
EMT
JMP

PC.PUT
5%
19%

;G0 WRITE REGISTER(S) WITH PUT SUUBROUTINE
;GO TO 5% IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 19% IF ERROR

;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE
JSR
PC,GETSTS
;SETUP FOR STATUS
JSR
PC.TIMOUT
JWAIT FOR SEEK TO COMPLETE

6%:

;GO READ SEEK STATUS
JSR
PC,GET

7%:

BR
NOP
EMT
JMP

19%

.GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 7% IF NO ERROR
¢RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SURROUTINE

;G0 TC 19% IF ERROR

JVERIFY THE RESULTS OF THE SEEK COMMAND
JSR
PC,SEKSTS
;GO VERIFY RESULTS OF SEEK OPERATION
BR
8%
;GO TO 8% IF NO ERROR
NGP
;JRETURN HERE IF ERROR

EMT
JSR
JMP

PC,a(SP)+
19%

;ERROR # DEFINED BY SEKSTS SUSROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 19% IF ERROR

/SMNBO RMOS5/3/2 FCINL
FORMAT

W/ MID

TIST 2

MACRO v04.00

TRANSFER SEEK

998 020002

000063

1003 020014
1004 020020
1005 020024

1006 020030

001556
000002
000004
000000
000200

1008 020034

036240

000137

020302

020052

004737

036607

020056
020062
020064
020066
020070
020074

004737
000404
000240

03577

000137

02020¢

020074
020100
020102
020104
020106
020110
020114
020114
020120
020122
020124
020126
020130
020134
020134
020140
020142
020144
020146
020150

004737
000405
000240

036766

1023 020154
1024
1025
1026 020154
1027
1028 020162

020166

020170
020172

M 8
11:43:33 PAGE 13-32
SEQ V104

8%:

1000
1001 020002
1002 020010

020040
020042
020044
020046
020052

4-APR-B1

104000

001472

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND

0064737
000405
000240

9%:

004737
000405
000240

JSR
BR
NOP
EMT
IMP

eC,PUT

;GO0 WRITE

19%

,ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 19% IF ERROR

JSR

BR
NOP
EMT

10%:

11%:

051502

020302

12%:

037620

JMP

JSR
BR
NOP
EMT
JSR
JMP

104000

012737

000053

004737
000404
000240

036240

;G0 TO 9% IF

JRETURN HERE

TABLE

WITH PUT

NO ERROR

SUBROUTINE

[F ERROR

PC,GET

108
19%

13%:

001412

PC.PRIERR

11%

;GO READ REGISTER(S)

WITH GET

;GO TO 10% IF NO ERROR
;GO TO 19% IF

ERROR

;GO CHECK FOR PRIMARY ERRORS

;GO TO 11$ IF NO ERROR

sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE

;GO BACK FOR MORE ERROR (HECKS

JSR
BR
NOP
EMT
JSR
JMP

PC ,DTASTS

;GO VERIFY RESULTS OF

19%

;GO TO 19% IF

JSR
BR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

JSR
JMP

PC,a(SP)+

;GO BACK FOR MORE

19%

128

PC,a(SP)+

13%

19%

SUBROUTINE

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

PC,a(SP)+

NOP
EMT

020302

JVERIFY RESULTS OF WRITE COMMAND

020302

004736
00013%7

1(4000

;WRITE HEADER AND DATA
JEXTEND REGISTER INDEX

sWAIT FOR WRITE COMMAND 10 CCMPLETE AND READ STATUS
PC.,TIMOUT
JSR
JWAIT FOR COMMAND TO COMPLETE

104000

004736
000137

#WH!GO,RMCS10
HPUT INX+3 R2
#RMWC, (RS) +
#RMBA, (R2)+
#RMCST,(R2)+
#200, (R2)+

mMovB
MOVR
Movs

104000

004736
000137

MOV
MOV
MovB

;GO TG 19% IF

ERROR

DATA TRANSFER

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

ERROR

;GO TO 138 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
.GO TO 19% IF

ERROR CHECKS

ERROR

SWRITE CHECK HEADER AND DATA FOR SECTORS JLST WRITTEN
MoV

HWCH!GO,RM(ST10

;WRITE

JSR
BR
NOP
EMT

PC,PUT

;GO WRITE

14%

CHECK COMMAND

;GO _TO 14% IF NO ERROR

WITH PUT

SUBROUTINE

JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE

¥4 RMNBO RMO5/5/2 FCTNL

T 3

FORMAT

020174

1029 020200
1030

1031

1032 02€200
1033

1034 020204

020210
020212
020214
020216
1035 020222

1036
1037
1038 020222

020226
020230
020232
020234
020236
1039 020242
1040 020242
020246
020250
020252
020254
020256
1041 020262
1042 020262
020266
020270
020272
020274
020276
1043 020302
1044
1045 020302
1046

TST 2

MACRO V04.00

W/ MID TRANSFER SEEK
00137

020302

004737

036602

004737
000404

035770

000240
104000
000137

036766

004737
000405
000240
104000
004736
000137

051502

004737
000405

037620

000240
104000
004736
000137

SEQ 0104
14%:

JMP

198

;GO TO 19% IF

ERROR
.

JWAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS
'
JSR
PC,TIMOUT °
;WAIT FOR WRITE CHECK TO FINISH

JSR
BR

PC,GET
15%

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

JMP

;GO TO 19% IF ERROR

NOP
EMT

020302

004737
000405
000240
104000
004736
000137

N
8
11:43:33 PAGE 13-33

4-~APR-81

15%:

:RETURN HERE IF ERROR
;ERROR # DEFINED BY GET

SUBROUTINE

;VERIFY THE RESULTS OF WRITE CHECK OPERATION

020302

168

JSR
BR
NOP
EMT
JSR
JMP

PC.PRIERR
16$

PC,R(SP)+
19%

;GO CHECK FOR PRIMARY. ERRORS
;GO TO 16% IF NO ERROR
JRETURN HERE 'F FRROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERRUR CHECKS
;GO TO 19% IF ERROR

JSR

PC.DTASTS

;GO VERIFY RESULTS OF

NOP
EMT
JSR
JMP

PC,R(SP)+
19%

JRETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 19% IF ERROR

JSR

PC,SECERR

020302

178

17%

18%:

JSR
Jmp

DATA TRANSFER

;GO CHECK FOR SECONDARY ERRORS

18%

NOP
EMT

020302

;GO TO 17% IF NO ERROR

;GO TO 18% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE

PC.a(SP)+
19¢

;GO BACK FOR MORE ERROR CHECKS
;GO TO 19% IF ERROR

19%:

1047

""*t*tttttt*ktttt*tt‘l*tt*it*tttttttttttt*tttttttttttttttt*ttttttt

s*TEST

’-: 1282222224223

1048
1049
1050 020330
1051 020336
1052 020344

1053 020352
1054 020360
105¢ 020366
1056

000004
000240
012706
013700
013701
012737
ASIAS
LS 151381,

€20302
020302
020304
020306
020312
020316
020322

737

737
737

737
737
737

TST14:

001100
001276
001466
000014

000000
000000
010000

176774
101360
000062

001226
001446
001420
0017444
001414
001416
001472

SCOPE
NOP
MoV
MOV
MOV

MOV

FORMAT W/

IMPLIED SEEK

2222222232322

#STACK,SP

$BASE RO

TSTQUE ,R1

#14 ,8$TESTN

38R 28222

TR PR

H#FMT16,RMOFO

;16 BIT FORMAT

MoV

#BUFONE ,RMBAO

;DATA BUFFER ADDRESS

MoV

HWH,RMCS10

XIS

::SET TEST NUMBER IN APT MAIL BOX

MOV

#-258.%2 RMWCO

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

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
:CYLINDER = O
MOV
#0 ,RMDAO
:TRACK = 0, SECTOR = 0

MOV

;WORD COUNT FOR 2 SECTORS
WRITE HEADER AND DATA

.
(2'S .OMP)

’%“NBu RMOS/37¢ FCINL TST 2
FORMAT J/ [MPLIED SEEK

1003
1064

1065 020434
020440

021120

012737
012737
004737

065000
000001
035104

004737

032176

154130

063346

000137

13-3¢

JSR

P(,BADS(T

TYPE

,SCTMSG

sTYPE

18%

;GO TO 18% IF ERROR

104401
104000

17:43.33 PAGE

sVERIFY THAT SECTOR IS NOT BAD

33152

ooy

004737
000405

-t

020374
0204600
0204602
020406
020410
‘058 020414
1059 020414
1060 020422
1061 020430
1062 020434

4-APR-B1

SEQ 0105

o
80

*557

MACRO v04.0C

EMmY
JMP

1$:

MoV

MOV
JSR

2%:
<PREPARE

DEVICE

JSR

.WORD

sCALL BAD SECTOR MODUI
E
;GO TO 18 IF NO ' °ROR

BAD

SECTOR MESSAGE

SERROR # DEFINED BY BAD (T

#7ERQS,$TMPO

JUSE

P{ ., GENBUF

;60 GENERATE DATA BUFFER

#1,8TMP1

FOR DATA

PC,TSTPRP

154130

ALL ZEROS DATA PATTERN

TRANSFER
;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE € VERIFY DEVICE AVAILAR
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

020442
020444
020646
020450
1066 020454

B8R
021120

1067
1068
1069 020454

1070 020462
1071 020470
1072 020476
1073 020502
1074 020506
1075 020512
1076 220516
1077 0205¢2

722
722

1078
1079 020526

020532
C20534
020536
020540
1080 020544

1081
1082
1083 020544

1084 020550
1085 020554

1086
1087
1088 020554

020560
020562
020564
020566

001446
001466
000005
001553
000006
000034
000032
000000
000200

3%:

001446
001412

021120

004737
004737

035704
036602

004737
000404
(00240

035770

104000

000137

4%:

VAL ID

.RETURN HERE IF ERROR
SERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 188 IF ERROR
SEEK

TO GET DRIVE OFF

(YLINDER

MOV
[ 01%
MOV
MOV
MOVR
MOVB
MOVS
MOVB
MOVB

#PUTINX ,R2
#RMDA, (R2) +
ARMDC, (R2) +
#RMOF
, (R2)+
#RM(ST,(R2)+
#200,(R2)+

WRITE REGISTER INDEX TABLE

JSR
BR

PC.PUT
4%

;GO WRITE REGISTER(S) WITH PUTM SUBROUTINF

NOP
FMT
JMP

#SEEK !GO,RM(ST10

18%

;SAVE CYLINDER ADDRESS
;SEEK TO LAST CYLINDER

; CHANGE

COMMAND

TO SEEK

;GO TO 48 IF NO ERROR

;RETURN HERE

ERROR

JERROR # DEF INED BY PUT SUBROUT INE

;GO TO 18% JF ERROR

;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE
)

5%:

JSR
JSR

PC,GETSTS
PC,TIMOUT

;GO READ SEEK STATUS
JSR

NOP

021120

VOLUME NOT

;GO TO 3% IF NO ERROR

18%

RMD(0,19%
#822. ,RMD(O

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF "'SKI'"
OR 'PIP'’ IS ST
:VERIFY RECALIBRATION

sSETUP PARAMETERS AND EXECUTE

021122

036240

000137

NOP
EMT
JMP

SUBROUTINE

EM7

JMpP

PC.GET

18%

;SETUP FOR STATUS
;WAIT FOR SEEK TO COMPLETE

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 6% IF NO ERROR
JRETURN HERE

ERROR

SERROR # DEF INED BY GET SUBROUTINE

;GO TO 18% If ERROR

JRMNBO RMOS/3/2 FCINL

FORMATM

TST 2

[MPLIED

SEEK

MACRO v04.00

1089 020572
1090

1091
1092 020572

020576

1093 020612

2
l\wr\)—fl%

[ele]
OO
D 0o

PN
o
(0,37,]

00 ~y

—

b a2

gelelelele)
OO0 NON

QOO0

ad ed

e
—

D
d ed —
b

dh
2 —d —d
—
d —D

——a

—,

—

[

ok b —d

072612
1097 020620
020626
020632
020636
020642
020646

00473/
000405

JVERIFY

044104

004736
000137

021120

013737
012737
012702

021122
000063
001556

112722
112722

112722

000240
104000
00137

021120

020670

004737

036€02

020674
020700
020702
020704

004737
000404
000240

035770

020712
020716
020720
20722
020724
020726
020732
020732
020736
020740
020742
020744
020746

020752

020752
020756
020766

020762
020764

004737

036766

9
13-35

MOV

004737
000405
000240
104000
004736

037620

COMMAND
;GO VERJFY RESULTS OF

SEEXK OPERATION

;60 TO 7% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEF INED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR (HEC(KS
.60 TO 18% If ERROR

PC,a(SF)+
18%

MOvB
MOVB
MOVR

#RMBA
, (R2) +
#RM(CST,(R2)+
#200, (R2)+

JSR

PC,PUT

BR
a5

JWAIT

NOP
EMT
JMP

FOR WRITE

ARMWC, (R2) +

;GO0 TO 8% IF NO ERROR

TO COMPLETE AND READ STATUS

o(,TIMOUT

JSR

PC,GET

EmMT

JMP

JSR
BR

;GO READ REGISTER(S)

;GO TC 9% [F NO ERROR
JRETURN HERE

;G0 TO 18% IF

ERROR

WITH GET SUBROUTINE

ERROR

;ERROR # DEFINED BY GET SUBROUTINE

18%
WRITC

PC.PRIERR
10%

108

EMT
JSR
JMP

PC,DTASTS
11%

JSR
BR
NOP
EMT
JSK
JMP
JSR
BR

PC,SECERR
12%

EMT
JSR

PC.a(SP)+

NOP

JWALT FOR COMMAND TO COMPLETE

SVERIFY RESULTS OF

WITH PUT SUBROUTINE

JRETURN HERE I[F ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 18% IF ERROR

18%

(OMMAND

JWRITE HEADER AND DATA

SEXTEND REGISTER INDEX TARLE

;GO WRITE REGISTER(S)

JSR

B8R

9%:

#WH!GO,RMCS10

#PUTINX+3 ,R2

MOVB

051502

021120

MOV

NOP

021120

SEEK

JSETUP AND EXECUTE WRITE HEADER AND DATA (COMMAND
MOV
198 ,RMD{0
JRESTORE DISK ADDRESS

104000

004736
000137

NOP
EMT
JSR
JMP

NOP

021120

004737
000405
000240

001446
001412

036240

104000
000137

000405
000240
104000
004736
000137

000092
000004
000000
000200

004737
000404

THE RESULTS OF THE
JSR
P(,SEKSTS

B8R

000240

020652
020656
020660
020662
020664
020670

020706
020712

c
17:43:33 PAGE

6%:

1064000

1094
1095

4-APR-81

PC,a(SP)+
18%

(OMMAND

;G0 CHECK FOR PRIMARY ERRORS
:GO TO 108 IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE
. GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR
;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 118 IF NO FRROR
JRETURN HERE IF ERKCR
JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR
;GO0 CHECK FOR SECONDARY ERRORS
;G0 TO 12% IF NO ERROR
;RETURN HERE [F ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
GO BACK FOR MORE ERROR (hE(KS

Z~“NBO RM05/3/2 FCINL
FORMAT W/

020766
;;;8 020772

TST 2

MPLIED SEEK

0003137

021120

1}5% 020772

012737

000053

1126 021000
021004
021006
021010
021012
2;52 021016

004737
000404
000240
104000
000137

036240

021120

1}53 021016

004737

036602

1130 021022
021026

004737
000404

035770

1121

1127

021030
021032
021034
;};; 021040
1133
1134 021040

021044
021046
021050
021052
021054

1135 021060

"136 021060
021064
021066
021070
021072
021074
1137 021100

1138 021100

021104
021106
21110
021112
021114
”28 021120

000240
104000
000137

021120

(04737

036766

000405
000240
104000
004736
000137

021120

004737
000405
000240
104000
004736
000137

021120

004737

037620

000405
000240
104000
004736
000137

051502

021120

MALRO v04.00

&4-4APR-B1

11:43:33 PAGE

SEQ 016/

128:

001412

sWRITE

13%:

JMP

;GO TO 188 [

MOV

#WCH!GO,RMCST10

WRITE CHECK COMMAND

JSR
BR
NOP
EMT
JMP

PC, PUT
138

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO TO 13% IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUTINE
;GO TO 18% [F ERROR
.

18%
CHECK

TO COMPLETE AND GET

16%:

17%:

STATUS

JSR

PC, TIMOUT

JWAIT FOP WRITE CHECK TO FINISH

JSR
BR
NOP
EMT
JMP

PC,GET
14%

;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO TO 14% IF NO ERROR

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

18%

VERIFY THE PLSULTS OF WRITE
JSR
PC,PRIERR

15%:

ERROR

(HECK HEADER AND DATA FOR SECTORS JUST WRITIEN

SWAIT FOR WRITE

14%:

18%

BR
NOP
EMT
JSR
JMP

15%

PC,a(SP)+
18%

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS
16%

JSR

PC,SECERR

BR
NOP
EMT
JSR
JMp

PC,a(SP)+
18%

)

18%:

20%

;}22 021122

000000

19%-

.WORD

;GO TO 158 IF NO ERROR
.-RETURN HERE IF ERROR
SERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR
;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 168 IF NO ERROR
JRETURN HERE IF ERROR
SJERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORt ERROR CHECKS
;GO TO 18% IF ERROR

;GO TO 17% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROULTINE
;60 BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERRCR

PC,a(SP)+
18%

000401

CHECK OPERATION
;G0 CHECK FOR PRIMARY ERRORS

;GO CHECK FOR SECONDARY ERRORS

17%

}}25 021120

]}22 021124

13-36

: TEMPORARY STORAGE

20%:

1“.7

. t*t**tttl‘tt‘ttt"’fit"‘t!‘ttfithl*tttttttt!'i'litttt'itt'ttttttl"

T*TEST 15
P

021124
021124

000004

15115

FORMAT EACH SECTOR ADDRESS

ARN AR R R AR AN

SCOPE

A AP A R R

IR AR RN RN R AR ARR

;SCOPE CALL

AT RPN ANRERNR

RN S

) wd

D =D
=D

b e

021126
021130
021134
021140
021144

000240
012706
013700
013701
012737

01100
001276
001466
000015

001226

021152
021160

012737
012737
012737

000000
000000
010000

001446
001420
001444

012737

177376

001414

021166

021174
021174
021202
0212190
021216
021222
021224
(21230
02122
021236
021236
021244
021252
021256

012737

101340
000062

004737
000405

033152

012737

104401
104000

000137

021256
021262

MOV

#15,8TESTN

2RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
2:SET TEST NUMBER IN APT MAJL 80X

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0 ,RMD(O
JCYLINDER = 0
MOV
#0 ,RMDAO
sTRACK = 0, SECTOR = 0
MoV
HFVT16,RMOFO
;16 BIT FURMAT
1%:

MOV

#-258. ,RMWCO

MOV
MOV
THAT
JSR
BR

SECTOR IS NOT BAD
PC,BADSCT

;CALL BAD SECTOR MODULE

.SCTMSG

16%

MOV
MOV
JSR

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

DEVICE

.WORD

(2°S (OMP/

;DATA BUFFER ADDRESS
;WRITE HEADER AND DATA

EMT
JMP

JSR

;2 ¢ 256 WORDS

#BUFONE ,RMBADO
#WH,RMCS10

;PREPARE

032176

;START OF TEST
JINITIALIZE STACK POINTER

#STACK,SP
$BASE ,RO
TSTQUE R

"YPE

001420
000001
004737. 035104

154130

NOP
MOV
MOV
MOV

063346
021666

¥
E
11:43:33 PAGE 13-37

SEQ 0108

sVERIFY

012737
012737

004737

4-APR-B1

001416
001412

et
—

—d =

d e d

[edoaloaleateale
s %
o SRAIVILNRE
Yo IVs)

AR ALY IV, IV IV IV O

TV I o0 N

® NN
NN = OO0

Dt d e =D b d md b
b and
ek o ok b ed ek b d

JRWNBD 8M0O5/3/72 FCINL 13T 2
MACRO v04.00
T1e
FORMAT EACH SECTOR ADDRESS

FOR

;GO TO 2%

;TYPE

SECTOR MESSAGF

BAD

NO ERROR

;ERROR # DEFINED BY BADSCT
;GO TO 16% IF ERROR

DATA

PC,TSTPRP

JUSE

SECTOR FOR DATA PATTERN

;GO GENERATE

DATA BUFFER

TRANSFER

154130

;PREPARE DEVICE

FOR

021320
021324

021344
021350
021352

004737
000404
000240

036240

000063
001553
000006
000034
000032
000002
000004
000000
000200

vl sl

021330
021334
021340

021666

737
702
722
722
722
722
722
722

—

021314

B8R

noIS AV IAS LASLAS AN 1, V1 N
~
n
~n

2 OO

b wnd —) ——d

021276
021304
021310

— et ed b =

EIIIFANINIITEY

00 NN NNNNNNNNNNRO
O

)

S
S

b —d

G
S
S
P

D cmd wnd ——d —d

G
b

P
T

D nd vl

000404
000240
104000
000137

001412

NOP
EMT
JMP

&%
16%

TEST

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

sPACK ACKNO'' EDGE

021264
021266
021270
021272
21276

SUBROUTINF

VOLUME

NOT

VALID

SVERIFY PACK ACKNOWLEDGE
;YECALIBRATE IF "'SKI'* OR "PIP"’ IS SET
VERIFY RECAL IBRATION
.
;GO TO 4% IF NO ERROR

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

;SETUP AND EXECUTE WRITE HEADER AND DATA (OMMAND
MoV
MOV
MOvB

#WH!GO,RMCS10
#PUT INX ,R2
#RMDA, (R2) +

MovB8
mMovB

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

MoV
MOVR

#RMBA, (R2) +
#RMCST,(R2)+

JSR
BR

eC,PUT
5%

MOvB

MovAa

NGR

;WRITE HEADER AND DATA
JWRITE REGISTER INDEX TARLE

#RMW(
, (R2) +

#200, (R2)+

!
;GO WRITE REGISTER(3) WITH PUT
;GO TO 5% ]F NO ERROR
JRETURN HERE

ERROR

SUBROUTINE

cFMNBO RMOS/3/2 FCTINL TIST 2

MACRO v04.00
FORMAT EACH SECTOR ADDRESS

TTs

021354
021356
1181 021362
1182

1183

1184 021362
1185 021366
1186

“187 021372

021376

021400
021402
021404
1168 021410

1189
1190
Al 021410

021414
021416
€21420
021422
021424
1192 021430
“193 021430
021434
021436
021440
021442
021444
021450
021450
021454
021456
021460
021462
021464
) 021470
1197
1198

104000

000137

021666

C04737
004737

035704
036602

004737
000404

035770

000240
104000
000137

004737
000405
000240
104000
004736

JSR

B8R

6%:

004737
00405
000240

051502

JSR

B8R

021666

037620

021666

1202

004737
000404

036240

102364

9%
:

001412
001416

1203

021666

004737

036602

004737
000404
000249

035770

000137

021666

1204

1205

1206 021522

1207
1208 021526

021532
021534
021536
021540

104000

PC,PRIERR

SUBROUTINE

;60 CHECK FOR PRIMARY ERRORS

;G0 TO 7% IF NO ERROR

JRETURN HERE

ERROR

JSR

PC,DTASTS

.GO VERIFY RESULTS OF

;G0 TO 8% IF NO ERROR

JRETURN HERE

DATA TRANSFER

ERROR

JERROR # DEFINED BY DTASTS SUBROUTINE

JSR
JMP

PC,a(SF’+
16%

;GO BACK FOR MORE ERROR CHECKS
;GO TO 16% [F ERROR

JSR
BR
NOP
EMT
JSR
JMP

P(,SECERR
9%

;GO0 (HECK FOR SECONDARY ERRORS
;G0 TO 9% 'F NO ERROR
JRETURN HERE IF ERROR
SERROR # DEFINED BY SECERR SUBROUTINF
;GO BACK FOR MORE ERRCR (HECKS
;GO TO 16% IF ERROR

PC,a(SP)+
16%

MOV
MoV

ARH!GO,RM( 510
#BUF TWO , RMBAC

;READ HEADER & DATA (OMMAND
. CHANGE BUS ADDRESS

JSR
BR

P PUT
108

.60 WRITE REGISTER(S) WITH PUT
;60 TO 108 IF NO ERROR

NOP

000137

16%

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET
;GO TO 16% [F ERROR

WITH GET SURROUTINE

.60 TO 6% 1F NO ERROR

JREAD HEADER AND DATA FOR SECTOR JUST WRITTEN

000240
104000

;G0 READ REGISTER(S)

PC,a(SP)+
6%

EMT

000073

PC,GET

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

NOP

012737
012737

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

16$

EMT
JSR
JMP

104000

004737
000405
000240
104000
004736
000137

NOP
EMT
JMP

NOP

021666

9
13-38

SVERIFY RESULTS OF WRITF (OMMAND

036766

000137

004736
000137

EMT
JMP

F
11:43:33 PAGE

sSETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
SC,GETSTS
JSR
PC,TIMOUT
;WAIT FOR COMMAND TO COMPLETE

021666

1199 021470
1200 021476

12C1

5%:

4-APR-B81

EMT

10%:
JWAIT

JMP
FOR READ

JSR

NOP
EMY

JMP

16%
TO COMPLETE

PC,TIMOUT
PC,GET

JRETURN HERE

;GO TO 16% IF

ERROR

SUBROUTINE

ERROR

SERRCR # DEFINED BY PUT SUBROUTINE

AND GET

STATUS

JWAIT FOR READ TO COMPLETE

;GO0 READ REGISTER(S)

WITH GET

11¢

;G0 TO 118 If NO ERROR

;GO TO 16%

JRETURN HERE [F ERROR
JERROR # DEFINED BY GET

ERROR

SUBROUTINE

SUBRQOUTINE

MAZRO v04.00
FORMA?T EACH SECTOR ADDRESS
TST

1211

1272 021544

021550
021552
021554
021556
021560
021564
021564
021570
021572
021574
021576
021600
021604
021604
021610
021612
021614

1221

004737
000405
000240

B8R

NOP

104000

004736
000137

004737
000405
000240

EMT

027666

004736
000137
004737
000405
000240

021666

037620

021624
021630
021632
021634
021636
021640
021642

004737

035342

101360

102364
000404
000240
104000
000137

14%:

JSR

PC,DTASTS

;GO VERIFY RESULTS OF

:VERIFY DATA

JSR
.WORD
.WORD

B8R

NOP

EMT
JMP

021666

1222

13%

001420
000037

000137

021174

122737
103402

INC

001420

(MPR
BLC
JMP

16%:

1229
1230

;GO _TO 138 IF NO ERROR

JRETURN HERE

DATA TRANSFER

ERROR

PC,a(SP)+

16%

;ERROR # DEFINED BY DTASTS SUBROUT JNE
;GO BACK FOR MORE ERROR CHECKS
;GO 10 16% IF ERROR

PC,SECERR
14%

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

PC,a(SP)+

16%

PC.,CMPBUF
BUFONE
BJF TWO

15%

JRETURN HERE

ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR (HECKS
;GO TO 16% IF ERROR

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

WRITE BUFFER
READ BUFFER

;GO TO 15% IF NO ERROR
JRETURN HERE

ERROR

;ERROR # DEFINFD BY CMPBUF

16%

%égCREMENT ADDRESS

005237

ERROR

16%

JSR
BR
NOP
EMT
JSR
JMP

104000

PC,a(SP)+

NOP
EMT
JSR
JMP

13%:

;GO TO 12% IF NO ERROR

JRETURN HERE

JSk

104000

12$%

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

JMP

12%:

051502

021666

221646
021652
021660
021662
1228 021666

13-39

SVERIFY THE RESULTS OF READ QPERATION
PC,PRIERR
JSR
;60 CHECK FOR PRIMARY ERRORS

036766

004736
000137

1224
1225
1226
1227

11:43:33 PAGE

118:

021616
021620
021624

1223 021646

4-~APR-81

1209 021544
1210

;GO TO 16% IF ERROR
AND

FORMAT

RMDAO

#31. ,RMDAO
16%
1%

SUBROUTINF

SECTOR

;ADVANCE SECTOR COUNT
;DONE ALL SECTORS??
JYES!!
GO DO NEXT SECTOR

- ttttt*ttt.i*t'tltt"i*i'it.fi‘ltll**tfiii'ti*itt'tt‘tii'ttttti'tt

*TEST

FORMAT EACH TRACK ADDRESS

ttt*tl’*'t*i*tt?tit't‘i""*ltttttQtl‘t'!ti'tttttttttttt'tttttt!t

LN?“NUMUO
fl '~ wWhy
—

—

)

021666
021666

AN LN L VT NT,¥)

{RMNBO RMOS5/3/2 FCTNL

021670
021672
021676
021702
021706

021714

021722

. 021730

000004
000240
012706
013700
013701
012737

TST16

001100
001276
001466
000016

001226

000000
000000
010000

001446
001420
001444

SCOPE

NOP
MOV
Mov
MOV
MOV

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

:SCOPE CALL
*START OF TEST
“INITIALIZE STACK POINTER

:§g1; UNIBUS ADDRESS

= DEVICE BEING TESTED

Y:SET TEST NUMBER IN APT MAIL BOX

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MoV
MOV
MOv

#Q ,RMDCO
#0 ,RMDAD
RFEMT16,RMOFQ

JCYLINDER = O

;TRACK = 0,

SECTOR

;16 BIT FORMAT

JAMNBO RMOS/3/72 FCINL TST 2
MA{RO v04.00
f ORMAT EACH TRACK ADDRESS

'16

1236 021736
1237 021736
1238 021744
1239 021752

1240

*261

021760
021764
021766
021772
021774
12«2 022000
1243 722000
1244
22006
1265 022014
1246 022020

1247
1248
1249 022020

b oD o

—od md vamd

)

md —d

R =D

[AR1N1 N 1,0 1,01, 01,0 167, §1, ¥ 1,V T, V1, ST,
[o 70 Yo Yo NV, 1V IV IV VIV 10, IV, IV TV
W= OV~
—=C

022024

022026
022030
022032
022034
022040

012737

012737
012737

MOV

101360

000062

104401
104000

063346

TYPE

000137

022430

012737
012737
004737

001420
000001
035104

004737

032176

154130

B8R

001174
001176

2%:

3%:
;PREPARE

104000

000137

000063
001553
000006
000034
000032
000002
000004
000000
000200

001472

1268 022130

035704
036602

02214C

004737
000404

035770

154130

B8R

EMT
JMP

16%

JWRITE HEADER AND DATA
sCALL BAD SECTOR MODULE
;TYPE

BAD

SECTOR MESSAGE

SERROR # DEFINED BY BADS(T

;GO TO 16$% IF ERROR

SUBROUTINE

JUSE TRACK FOR DATA PAT-TERN
;GO GENERATE DATA BUFFER

TRANSFER
;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

MOVB

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF "'SKI''
OR ‘PIP'" IS SET
;VERIFY RECALIBRATION
;GO TO 4% IF NO ERFOR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTFRP SUBROUTINE

;GO TO “6% IF ERROR

#RMDC, (R2)+

MOVAR

#RMBA, (R2) +

JSR

PC,PUT

MOVB
MOVR
MOVB
MOVR

5%:

#RMDA
, (R2) +

MOVR

NOP

004737
004737

FOR DATA

PC,TSTPRP

;DATA BUFFER ADDRESS

;G0 7O 2% IF NO ERROR

,SCTMSG

#RMDAD,
$ TMPO
#1,8TMP1
PC.,GENBUF

DEVICE

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

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
Mov
#WH!GO ,RMCS1C
;WRITE HEADER AND DATA
MOV
#PUTINX
,R2
JWRITE REGISTER INDEX TARLE

036240

022430

Mov
MOV
JSR

NOP

4%:

SECTOR IS NOT BAD
P(,BADS(CT

16$

.WORD

022430

#BU
ONE ,RMBAD
F
#WH ,RMCS10

EMT
JMP

JSK

000404
000240

H
9
11:43:33 PAGE 13-4u

#-258. ,RMWCO

MOV
MOV

JVERIFY THAT
)
JSR

022066
022072
022076
022102

1269
1270 022134

1%:

177376

033152

004737
000405

022040
022046
022052
022056
022062

022106
022112
022114
022116
022120
1264 022124
1265
1266
126+ 022124

4-APR-81

EMT
JMP

ARMOF
, (R2) +
ARMWC, (R2) +

#RM(ST, (R2)+
#200,(R2)+

16%

;GO WRITF

160 TO 58 IF NO ERROR

WITH PUT

SURR

TxNE

;RETURN HERE IF ERROR
;ERROR # DEF INED BY FUT SUBROUT INE

;GO TO 16% IF ERROR

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
JSR

JSR

B8R

PC,GETSTS
PC, TIMOUT

PC,GET

JWAIT

FOR

COMMAND

TO COMPLETE

;GO READ REGISTER(S) WITH GET SUBROULT
INE
;GO TO 5% [F NO ERROR

“JRMNBO RMOS/3/2 FCTINL IST 2
MACRO v04.00
F ORMAT EACH TRACK ADDRESS

022142
022144
022146
1271 022152

000240
106000

1274 022152
022156
022160
022162
022164
022166
022172
022172
022176
022200
022202
022204
022205
022212
022212
022216
022220
022222
022224
022226
1279 022232
1280

000137

02243C

004737
000405
000240

036765

6%:

1291

004737
000405
000240

004737

036602

022270
022274
022276
022300
022302

004737
000404
000240
104000
000137

035770

022306
022312
022314
022316
022320
022322
022326

004737
000405
000240
104000
004736
000137

036766

022430

SUBROUTINE

001412
001416

;G0 TO 7% ]F NO ERROR

PC,DTASTS

.GO VERIFY RESULTS OF

JMP

JSR
BR
NOP
EMT
JSR
JMP

:GO TO 8BS IF

JRETURN HERE

NO ERROR
[F

DATA TRANSFLR

ERROR

JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE FRROR CHECKS

PC,a(SP)+
16%

;60 TO 16%

PC,SECERR
9%

;GO CHECK FOR SECONDARY ERRORS
;G0 TO 9% IF NO ERRGR
;RETURN HERE ]fF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;GO0 BACK FOR MORF ERROR CHEC(CKS
;GO0 TO 16% IF ERROR

PC,a(SP)+
16%

ERROR

JREAD HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
#RH.GO,RM(CS10
JREAD HEADER & DATA COMMAND
MOV

#BUFTWO,RMBAD

JSR

PC..PUT

NOP

022430

16%

JSR

104000

022430

ERROR

PC,a(SP)«
16%

EMT
JSR

037620

036240

SERROR # DEFINED BY GET
;GO T0 16% IF ERROR
.

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUT]NE
GO BACK FOR MORE ERROR (HE(KS
;GO TO 16% IF ERROR

022430

004737
000404
000240
104000
000137

1292 022306
1293
1294
1295

004736
000137

JRETURN HERE

NOP
EMT
JSR
JMP

NOP

000073
102364

1287
1288
1289 022264

104000

012737
012737

022252
022254
022256
022260
1286 V22264

B8R

051502

022430

1282 022232
1283 022240
1284
1285 022246

1290

004737
000405
000240

13-41

;VERIFY RESULTS OF WRITE (OMMAND
JSR
PC.PRIERR
;G0 (HECK FOR PRIMARY ERRORS

022430

004736
000137

1281

EMI
JMP

104000

004736
000137

11:43:33 PAGE

NOP

1272
1273

4-APR-81

EMT
JMP

10%:
JWAIT

FOR READ
JSR

JSR

11%:
JVERIFY

BR
NOP
EMT
JMP

NOP
EMT
JSR

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

108

;GO TO 10% IF NO ERROR

16%

JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 16% IF ERROR

TO COMPLETE
PC, TIMOUT

PC,.GtT
11%
16%

JRETURN HERE

AND GET STATUS
JWAIT FOR READ

ERROR

TGO CUMPLETE

;GO READ REGISTER(S) WITH GET SUBRROUTINE

;GO TO 11% IF NO ERROR
JRETURN HERE IF ERROR
;EPROR # DEFINED BY GET
;GO TO 16% [F ERROR

SUBROUTINE

THE RESULTS OF READ OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS

BR
A

; CHANGE BUS ADDRESS

JMP

12%

PC,a(SP)+

16%

;GO TO 12% IF NO ERROR

JRETURN HERE [F ERROR
JERROR # DEFINED BY PRIFRR SUBROUTINE
;GO BA(CK FOR MORE ERROR CHECKS

;GO TO 16% IF

FRROR

JHMNBO RMO5/3/72 FCINL
¢

FORMATM

1297 0223526

022332
022334
022336
022340
022342
1298 022346
1299 022346
022352
022354
022356

004737

000405
000240
10400C
004736
000137
)
004737
000405
000240
104000

004736
000137

1303 022366
022372
022374
022376
022400
0224(2
1304 0226404

004737
101360
102364
000404
00024C
104000
000137

1305
1306
1307
1308
1309
1310
;%;1

022410

022410
022414
022422
022424

022430

MATRO v06.00

EACH TRACK ADDRESS

022360
022362

1300 022366
1301
1302

TST 2

]

105237
123737
101002
000137

4-APR-81

051502

JSR

037620

022430

001421
001421

PC,SECERR
14%

001335

021736

131%

s*TEST 17
AN

1315
1316
1317
1318
1319
1320
1321

001100
001276
001466
000017

001226

022456

012737

000000

001446

022472
022472
02250C
02256

012737

000001

001420

012737
012737
012737

012737

010000
177376
101360

000062

001444
001414
007416

022522
022526

004737
000405

033152

022464

;gsg 022514

1324

TST17:

000004
000240
012706
013700
013701
012737

022530
022534

104401
104000

063346

001412

PC,CMPBUF
BUFONE
BUF TWO
15%

;GO COMPARE WRITE, READ DATA BUFFERS
;STARTING ADDRESS OF WRITE BUFFER
;STARTING ADDRESS OF READ BUFFER
;GO _TO 15% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY CMPBUF SUBROUT
INE
:GO TO 16% IF ERROR
.

16%

: INCREMENT ADDRESS AND FORMAT NEXT TRA(CK
1Y
INCB
RMDAQ +1
sADVANCE TRACK COUNT
CMPB
RMDAQ+1,LSTRK+1 ;LAST TRA(CK ?
BHI
16%
JYES!.
JMP
18
;GO DO NEXT SECTOR
16%:
RN

022430
022630
022432
022634
022440
022444
1314 C22450

;60 CHECK FOR SECONDARY ERRORS
;GO TO 14% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUT INE
.GO BACK FOR MORE ERROR (HE(CKS
;GO TO 16% IF ERROR

PC,a(SP)+
16%

.WORD
.WORD
BR
NOP
EMT
JMP

DATA TRANSFER

;GO TO 13$ IF NO ERROR
JRETURN HERE IF ERROR
ZERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHEC(CKS
;GO TO 16% IF ERROR

PC,a(SP)+
16%

JVERKY DATA
JSR

035342

;GO VERIFY RESULTS OF

13%

JSR
BR
NO®P
EMT
JSR
JMP

148:

9
13-42

PC,DTASTS

BR
NOP
EMT
JSR
JMP

.
'
13

022430

J
11:463:33 PAGE

AN R

AR AR A

A AN AN RN AN AN

FORMAT PRIME CYLINDERS

A R AN AN AN AN RN

SCOPE
NOP
MOV
MOV
MOV
MoV

R
N

A AR AN

#STACK,SP
$BASE ,RC
TSTQUE ,R1
#17 ,$TESTN

AR AN R AR AR AR AR AR RN RA AN NRR

AR AN A AR AR AR R AR

AR AR AR R RAR R AR A AR

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

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MoV
#1,RMDCO
sCYLINDER = 1
MoV
#0,RMDAO
;TRACK = 0, SECTOR - 0
1%:
MOV
#FMT16,RMOFO
;16 BIT FORMAT
MoV
#-258. ,RMWCO
;2 + 256 WORDS (2'S (OMP)
MOV
ABUFONE ,RMBAO
;DATA BUFFER ADDRESS

MoV

#WH,RMCS10

SVERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT
BR
2%

TYPE
EMT

,SCTMSG

;WRITE HEADER AND DATA

.
;CALL BAD SECTOR MODULE
;GO TO 2% IF NO ERROR

;TYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROJTINE

CZRMNBO RMOS5/3/2 FCINL

FORMAT

PRIME

TST 2

CYLINDERS

022536

000137

Q23172

1326 022542

012737

001446

1%%8 322556

004737

035104

1325 (022542
1327 022550

012737

000001

MA(RD V04.00

1333 022562

022566

11:43:33 PAGE

001174

2%:

001176

JMP

16%

260 TO 16% IF ERRNR

MoV

#RMD(0,$TMPO

JUSE CYLINDER FOR DATA PATTERN

JSR

PC., GENBUF

;GO GENERATE DATA BUFFER

mMov

#1,8TMP1

3%:
Q04737

;PREPARE DEVICE FOR DATA TRANSFER

032176

154130

JSR

PC_,TSTPRP

.WORD

154130

022570
622572
022574
022576

1334 022602
1336

1337
1338
1339
1340
1341

1342
1343
1344
1345
1346

022602
022610
022616
022620
020624

022630
022634
022640
022644
022650
022654
022656

022660
020662
1347 022666
1349

1350 022666

1352
1353 022672
1354 022676

022702
022704
022706
022710
1355 022714
1357
1358 022714

022720
022722

13-43
SEQ 0114

;gg? 0225€2
1332

4-APR-B1

0C0404
000240
104000

012737
012702
112722
112722
112722

000063
001553
000006
000034
000032

000404
000240
104000
000137

023172

035704

004737
004737
000404
000240
104000
000137

036602
035770

004737

036766

023172

DEVICF

VERIFY

DEVICE

AVAILABLE

168

JVERIFY RECAL IBRATION

.GO TO 4% IF NO ERROK
:RETURN HERE If ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
260 TO 1€$ IF

ERROR

sSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
MOV
.
MOVB ~
MOVB
MOVE

000002
000004
000000
000200
036240

004737

000405
000240

BR
NOP
EMT
48:

001412

TEST

;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLECGE 1F VOLUME NOT VALID
;VERIFY PA(K ACKNOWLEDGE
;RECALIBRATE IF ''SK]'*
OR 'PIP'' IS SET

’

023172

FOR

s TASK DESCRIPTOR AS FOLLOWS:

sSELECT

000137

112722
112722
112722
112722
004737

;PREPARE DEVICE

MOVB
MOVB
MOVB
MOVB
JSR

BR
NOP
EMT
MP

#WH!GO.RMCS1C
#PUTINX,RZ
ARMDA, (R2)+
#RMDC
. (R2)+
ARMOF
. (R2)+

ARMWC. (R2)+
WRMBA (R2)+
ARMCST, (R2)+
#200, (R2)+
PC,PUT
5%

168

:WRITE HEADER AND DATA
;WRITE REGISTER INDEX TABLE

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 5% IF NO ERRCR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE
:60 T0 168 IF ERROR

;SETUP INPUT REGISTER BUFFER FOR READING STATUS

JSR

PC,GETSTS

:WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS
JSR
PC,TIMOUT
:WAIT FOR COMMAND TO COMPLETE
JSR
PC.GET
:G0 READ REGISTER(S) WITH GET SUBROUTINE

6%:

BR
NOP
EmMt
JMP

168

:GO_TO 68 IF NO ERROR
‘RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
60 T0 168 IF ERROR

SVERIFY RESULTS OF WRITE COMMAND
JSRTM
" PC.PRIERR
;G0 CHECK FOR PRIMARY ERRORS

BR
NOP

60 TO 78 IF NO ERROR
JRETURN HERE [F ERROR

“IRMNEBO RMOS/3/2 FCINL

T1/

F ORMATY

022724
022726
022730
1359 022734
1360 022734
022740
022742
022744
022746
022750
022754
022754
022760
022762
022764
022766
022770
1363 022774

1364
1365
1366 022774

1367 023002
1368 023010

023074
023016
023020
023022
1369 023026

1370
1371

1372 023026
1375 023032
023036
023040
023042
023044
1374 023050
1375
1376
1377 02305
02305
023056
023060
023062
023064

023070
023070
023074

PRIME

TST 2

CYL INDERS

MACRO v04.00

004737
00040°
000240

023172
051502

7%:

004737
000405
000240

023172
037620

8%:

104000

004736
000137

023172

PC,a(SP)«

26O BACK FOR MORE ERROR (HE(KS

JSR

PC.DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 8% IF NO ERROR

JMP

9%:

NOP
EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR
JMP

000073
102364
036240

MOV
MOV
JSR

000137

023172

NOP
EMT
JMP

004737

036602
035770

004737
000404
000240
104000
000137

004737
000405
000240

023172

036766

104000

004736
000137
004737
000405
000240
104000
004736

23172
051502

000137

023172

004737
000405
000240

037620

104000

168

PC,a(SP)+
16%
PC,SECERR
9%

PC,a(SP)+
16%

;ERROR # DEFINED BY PRIERR SUBROUT INE

;GO TO 16% IF ERROR

JRETURN HERE

ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS

;GO TO 16% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

;G0 10 9% IF NO ERROR
JRETURN HERE

IF ERROR

;ERROR # DEFINED BY SECERR SUBROUT INE

;GO BACK FOR MORE ERROR (HECKS

;GO TC 16% IF ERROR

JREAD HEADER AND DATA FOR SECTOR JUST WRITTEN

012737
012737
004737
000404
00240
104000

13-44

EMT
JSR

B8R

104000

004736
000137

11:43:33 PAGE

SEQ@ 011

104000

004736
000137

4-APR-B1

10%:
JWAIT

FOR READ
JSR

JSR
BR
NCP
EMT

11%:

JMP

#RH.GO,RM(CS10
#BUF
TWO ,RMBAD
PC,PUT

10%

16%

;READ HEADER & DATA COMMAND

: CHANGE BUS ADDRESS

;GO WRITE REGISIER(S) WITH PUT SUBROUTINE

;GO TO 108 IF NO ERROR

;RETURN HERE IF ERROR
;ERROR # DEFINED BY FJUT SUBROUTINE
;GO TO 168 IF ERROR

TO COMPLETE AND GET STATUS
PC.TIMOUT
JWAIT FOR READ

PC,GET
118

16%

TO COMPLETE

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 118 IF NO ERROR
sRETURN HERE IF ERROR

;ERROR # DEFINED BY GET SUBROUT INE

;GO TO 16% IF ERROR

JVERIFY THE RESULTS Of READ OPERATION
JSR
PC,PR]ERR
;GO CHECK FOR PRIMARY ERRORS
BR
12%
;GO _TO 12% IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY PRIERR SUBROUT INE
JSR
PC,a(SP)+
;GO BACK FOR MORE ERROR CHECKS
12%:

16%

JSR

PC,DTASTS

NOP
EMT
JSR

PC,a(SP)+

JERROR # DEFINED BY DTASTS SUBROUT INE
.GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

13%:

;GO TO 16% IF ERROR

JMP

BR
NOP
EMmMT

13%

16%
14%

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 13% IF NO ERROR
JRETURN HERE IF ERROR
;GO TO 16% IF ERROR

2GO TO 14% IF NO ERROR

;JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBRCUTINE

’ZRMNBO RMO5/3/2 FCINL TST 2
FORMAY

023122
023124
1382 023130

PRIME

CYLINDERS

004736
000137

(23172

004737

035342

MACRO v04.00

101360
102364

14%:

1386
1387
1388
1389
1390
1291
1392
1393 C23172
1394
1395

JSR
JMP

:VERIFY DATA

JSR

.WORD
.WORD

B8R

000404
000240
104000

NOP

000137

023172

006337
023727
023002
00137

001446
001446

Mm
9
11:43:33 PAGE 13-45

SFQ 011¢

1383

1384
1385

4-APR-81

15%:

EMT
JMP

PC,a(SP)+
16%

GO BACK FOR MORE ERRCOR (HECKS
:GO TO 16% IF ERROR

PC.,CMPBUF

;GO COMPARE WRITE, READ DATA BUFFERS

BUFONE
BUFTWO

JSTARTING ADDRESS OF WRITE BUFFER
;STARTING ADDRESS OF READ BUFFER

15%

;GO TO 158 IF NO ERROR
JRETURN HERE

ERRCR

JERROR # DEFINED BY (MPBUF
;GO TO 16% IF ERROR

16%

SUBROUTINE

; INCREMENTY ADDRESS AND FORMAT NEXT PRIME CYLINDER
ASL

001000

022472

16%:

CMp
BGT
VP

RMDCO

RMDCO,#512.
16%
1%

;ADVANCE

CYLINDER COUNT

;DONE ALL PRIME CYLINDERS ?
JYES!!
;GO DO NEXT CYLINDER

t*t****fi*fifitk*tktfi*fi‘i"*t*tl’*'i***t*l‘**fi‘**fittt*"'*fifitttttfi*ttt

*TEST 20

READ HEADER & DATA IN LAST

SECTOR

**tti'*"tt"‘tt****Qt**'flfi*l’t*‘*fl'**i*“tfififi‘ttt.tfi*tl‘*tttitt"'t

1396

023172
023172
023174
023176
023202
023206
023212

1397

1398 023220

1399 023226
1400 023234
1401 023242
1402 023250
1403 023250
1404 023256
1405 023264
1406
1407
1408 023272

023276

TST20

00000¢

000240
012706
013700
013701
012757

001100
001276
0014656
000020

001226

012737
013737
112737
012737

001466
001334
000036
010000

001446
001420
001420
001444

012737
012737
012737

177376
102364
000073

001414
001416
001412

004737
154130

032176

SCOPE

NOP
MOV
MOV
MOV

MOV

:SCOPE CALL
#STACK,SP
$BASE ,RO
TSTQUE ,R1

#20,8TESTN

;START OF TEST
JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
;{R1) = DEVICE BEING TESTED

..SET TEST NUMBER IN APT MAIL BOX

. SETUP PARAMETERS FOR READING LAST SECTOR
MOV
#822. ,RMD(O
;LAST CYLINDER
MOV
LSTRK ,RMDAD
;SET LAST TRACK AND

MOVB
MOV

#30, ,RMDAO
#FMT16,RMOFO

JLAST SECTOR
;16 BIT FORMAT

MOV

#-258. ,RMWCO

;2 + 256 WORDS

MoV

#RH!GO,RM(CS10

MOV

JPREPARE

DEVICE

JSR

.WORD

#BUF TWO , RMBAQ

FOR DATA

PC,TSTPRP

154130

(2'S COMP)

:DABA BUFFER ADDRESS

JREAD HEADER AND DATA

TRANSFER

;PREPARE

DEVICE

FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILARLE
;CLEAR CONTROLLER & SELECT PEVICE
JVERIFY CONTROLLER CLEAR OPcRATION
JPACK ACKNOWLEDGE

023300
023302
023304
023306
1409 023312

000404
000240
1046000
000137

023476

2%:

BR
NOP
EMT
JMP

VOLUME

NOT

VALID

JVERIFY PACK ACKNOWLEDGE
;JRECALIBRATE IF ''SKI'"
OR "¥IF'" IS SET
JVERIFY RECALIBRATICGN

;G0 TO 2% IF NO ERROR
JRETURN HERE ]F ERROR
JERROR # DEFINED BY TSTPRP SUSROUTINE
;GO TO 9% IfF ERROR

(ZRMNBO RMOS/3/2 FCINL

120

TST 2

b s

= OOVONOANS
W 2O

Y ey
Y
S

bbb v

NS~

READ HEADER & DATA

023312
023314
023322
023326
023332

012702

[N LAST

036240

PN =

PR AR o

W W oW o

023352
023356
023360
023362
023364
1422 023370

1433
1434

1435
1436

023422
023424
023426
023430
023432
023436
023436
023442
023444
023446
23450
023452
023456
023456
023462
023464
023466
023470
023472
023476

1437
1438
1439 023476
1440
1447

MOV

000006

000000

1430
1431
1432 023416

SECTOR

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

000034
000032
000004
00002

023336

023404
023406
023410
023412
1429 023416

4-APR-81

001553

023342
023346
023352

1423
1424
1425 023370
1426 023374
1407
1428 023400

MACRO v04.00

000200

000137

023476

004737
004737

035704
036602

004737
000404
000240
104000
000137

035770

004737

036766

000405
000240
104000

004736
000137

023476

004737
000405
000240
104000
004736
000137

051502

004737

037620

000405

000240
104000
004736
000137

023476

3%:

#PUT
INX ,R2

#RMDA, (R2) +
ARPMD(, (R2) +
#RMOF
, (R2) +
#RMBA, (R2) +
ARMWC
, (R2) +
#RM(CST, (R2) +
#200, (R2)+

JWRITE

SEQ 0117
REGISTER

INDEX

TABLE

.
g, ¢’

;s TERMINATOR

JREAD HEADER AND DATA OF LAST SECTOR
JSR
PC,PUT
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
BR
4%
;GO TO 4% IF NO ERROR
NOP
JRETURN HERE 1F ERROR
EmMr
JMP

4%:

JERROR # DEFINED BY PUT SUBROUTINE

;GO TO 9% IF ERROR

;SETJUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
JSR

PC,GETSTS
PC,TIMOUT

JWAIT FOR READ

JSR

PC,GET

;GO READ REGISTER(S) WwITH GET

NOP
EMT
JMP

5%:
;VERIFY

6%:

JSR
BR

NOP
EAT
JSR

JMP

’
JSR

8%:

Nop
EMT

JSR
JMP

TO COMPLETE

SUBROUTINE

;GO TO 5% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 9% IF

THE RESULTS OF

JSR
BR

NOP
EMT
JSR
JMP

!
023476

N
9
11:43:33 PAGE 13-46

ERROR

READ OPERATION

PC,PRIERR
6%
PC,a(SP)+
9%

PC,DTASTS
7%

26O CHECK FOR PRIMARY ERRORS

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

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

;GO TO 9% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 7% IF NO ERROR

:RETURN HERE IF ERROR

PC,a(SP)+
9%

;GO BACK FOR MORE ERROR CHECKS
;GO T0 9% IF ERROR

PC,SECERR

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

;ERROR # DEFINED BY SECERR SUBROUTINE

PC,a(SP)+
9%

;GO BACK FOR MORE ERROR CHECKS

;GO TO 9% IF ERROR

0%:
AR

EeSEASSRSASES

TRTEST 21
_' LA

SRR

RSl ASsilRatRtRttRdsRitios
il
2t A s
XY

READ HEADER & DATA W/ AOE

SEdRdt

;ERROR # DEFINED BY LTASTS SUBROUTINE

ERROR

0222222

S ]

JRYINGC

RM0S/3/2 ECTNL TST 2
MAIRD v04.0C
READ ~EADER € DATA w/ AOE ERNOR

v23476

15721

0c 3476
023500

000240

023506
023512
023516

C13700
013701
012737

001276
001466
000021

001226

0235264
1445 023532
1446 ggggzg

013737
112737
012737

001334
000036
010006

001420
00142C
001444

1448 023546

023556
1450 023562
1451 023570

012737
012737
012737
012737

001466
176774
102364
G00073

001446
(01414
00141¢
0C1412

02357¢
023602

004737
154130

032176

023502

Y462

%63

LIANA

1447

1449

1452
1453
1454

012706

001100

4=aPR=8"

SCOPE
NOP

MmOV

MOv
MOv
MOV

8 10

"':(3:3% PAGE

“3-g”

#STACK,SP

$BASE RO
TSTQUE .R?
#21,$TESIN

;SCOPE CALL
;STARY OF TEST

SINITIALIZE STACK POINTER

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

:;SET TEST NUMBER [N APT MAIL B0x

JSETUP PARAMETERS 7OR READING 2 SE(TORS STARTING W]ITH | AST

MOV
MOVvE
MOV

LS7RK ,RMDAC
#30.,RMDAD
#FMT16,RMOF O

JSET LAST TRA(K AND
JLAST SECTOR
;16 BIT FORMAT

OV
“Ov
MOV
MOV

#822. ,RMDCO
#-258.+2 RMW(O
#8UF TWO,RMBAC
#RHIGO,RMCST0

;LAST
;READ
;DATA
;READ

SE(TOR

CYLINDER
2 SECTORS
BUFFER ADDRESS
HEADER AND DATA

;PREPARE DEvICE FOR DATA TRANSFER
JSR
PC,TSTPRP
:PREPARE DEVICE FOR TEST
LWORD
154130
;TASK DESCRIPTOR AS FOLLOWS:
SSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
SVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

023€04
023606
023610
85;2;5

000404
000240
104000
000137

024002

1456 023616
1457 023622

012702
112722
112722

001553
000006
000034

MOV
MOVB
MOVB

1455

1458 023626
1459 023632
460 023636

112722
112722

000032
000002

B8R
NOP
gEmr
JmP

MOVB
MO/B

023642

112722
112722
112722

000004
000000
000200

MOVB
MGvB
MOVB

1465 023656

004737
000404
000240
104000
000137

036240

JSR
BR
NOP
EMT
JmP

1470 023700

004737
G04737

035704
(36602

0¢3710
023712
(23714

004737
000404
00020
104000

035770

1461

1462 023646
1463 023652

1464

023662
023664
023666
023670
1466 023674
1467

1468

1469 023674

1471
1472 023704

(24002

23
8s
#PUT INX R2
#RMDA, (R2)+
WRMD(, (R2)+

VOLUME

NOT

VALID

;VERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF *'SK] ' OR ‘PIP'" IS SET
SVERIFY RECAL IBRATION
;GO TO 2% IF NO ERROR
JRETURN HERE IF ERROR
SERROR # DEFINED BY TSTPRP SURROUT INE
;GO TO 8% IF ERROR
;WRITE REGISTER INDEX TABLE

#RMOF
, (R2)+
SRMMC, (R2)+
#RMBA, (R2)+
#RM(ST,(R2)+
#4200, (R2)+
PC.PUT
3s
8s

.60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 3% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 8% IF ERROR

JSETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS
JSR
PC,TIMOUT
SWAIT FOR READ TO COMPLETE

JSR
BR
NOP
EmY

PL,GET
4

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 4% IF NO ERROR
SRETURN HERE [F ERROR
JERROR & DEFINED BY GET SUBROUTINE

_ZRMABO RMOS/3/2 FCTNML

TST 2

MACRO v04.00

READ HEADER € DATA w/ AOE ERROR

023716

000137

024002

023722
023726
023730
023732
023734
023736
677 023742
"478 023742
023746
023750
023752
023754
023756
"L79 023762
1480 0237¢2
(23766
023770
023772
023774
023776
1481 0246002

V04737
000405
000240

036766

473 023722

A ¥

14674

14675

1476

004737
000405
000240

024002

5%:

051502

104000

004736
000137
004737
000405
000240
104000
004736
000137

"7:43:33 PAGE

13-48

SEQ 0119

:G0 10 8% [F FRROR

svERIFY THE RESULTS OF READ OPERATION

104000

004736
000137

4-APR-B1

024002

JSR
BR
NOP
gm7
JSR
JMP

JSR
BR
NOP
Em7
JSR
-MP

037620

JSR
BR
NOP
gmy

0246002

7%:

1482

JSR
JMP

PC,PRIERR

;GO CHECK FOR PRIMARY ERRORS

;G0 TO 58 IF NO ERROR
JRETURN HERE

PC,a(SP)+

P{,DTASTS

ERROR

sERROR # DEFINED BY PRIERR SUBROUTINE

;GO BACK

FOR MORE

;GO TO 2% IF ERROR
;GO VERIFY

ERROR

RESULTS OF

(HECKS

DATA

;GO TO 6% IF NO ERROR

PL,a(SP)«
8s

;GO BACK FOR MORE ERROR (HECKS
;GO TO 8% IF ERROR

PC,SECERR
73

PC,a(SP)+

SRETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SUBROUTINE

;GO0 CHECK FOR SECUNDARY EKRORS
;GO TO 7% IF NO ERROR

JRETURN HERE IF ERROR
SERROR # DEFINED BY SECERR SUBROUTINF
:GO BA(CK

FOR MORE

;GO TO 8% IF ERROR

ERROR

(HECKS

.83 024002

8%:

1485

'"'t..."."..l..'...'t'.'"."'Qfi'tll’t'."fitt'tl’ttttt"‘

1484

TRrEST 22

TRANSFER

*tt"tt.

READ

INVALID SECTOR ADDRESS

;.'fi't't't'l.t"tt'.."tt"i'ttt'.tl.*'tfittt*tit’kit'tti"'tt!'itt'

1486

024002
024002
024004
024006
024012
024016
024022

1487 024030
1488 024036

1489 C24044
1490 024052
1491 024060
1492 024066
1493 024074

1494
1495

1496

024074
024100

000004
000240
012706
013700
013701

012757

012737

T5122:

001100
001276
007466
000022

000000
000036
000000
101360
177376

000073

032176

001226
001446
001420
001444
00141€
001414
001412

SCOPE
NOP
MOV
MOV
MOV
MOV

MOV
MOV
MOV

MOV

1%:

MOV
MOV

#STACK,SP

$BASE ,RO

:SCOPE CALL
:START OF TEST
;INITIALIZE

TSTQUE R
#22,8TESIN

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

#0,RMDCO
#30. ,RMDAO
#0 ,RMOF O
#BUFONE ,RMBAO
#-258. ,RMWCO

SCYLINDER = O
;TRACK = 0, INVALID SECTOR 218 BIT FORMAT

#RH.GO,RMCS10

PC,TSTPRP

154130

30.

; CHANGE BUS ADDRESS
;2 + 256 WORDS (2'S (OMP)
;READ HEADER AND DATA

;PREPARE DEVICE FOR DATA TRANSFER
SR
. WORD

STACK POINTER

;RO = UNIBUS ADDRESS

;PREPARE

DEVICE

FOR

TEST

;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME

sVERIFY PACK ACKNOWLEDGE

NOT

VALID

JRECALIBRATE (F "'SKI'' OR "PIP'" IS SET
;VERIFY RECALIBRATION

JCRMABD RMOS/3/2 FCTNL TST 2
MAIRT
o
READ INVAL
D SECTOR ADSRESS

026102

0004604

000240
104000
000137

024344

1500 026116

012702

001553

1502 024124
1503 024130
1504 024136

112722
112722
112722

1501 024120

112722

00000€

000000

MOVE

036240

112722

1509 026156
024160
0246z
C26164
026166
;2;9 024172

004737
000404
000240
104000
000137

024344

C04737

035704

1513 024172

121@ 026176

004737

000004

024210
026212
024214
;g}g 024220

000240
104000
0007137

024364

004737

036766

1516

)

1520 02620

0242:4
024226

026230
024232

024234

1521 024240
15232 024240

024244
026246
024250
026252
024254

1523 024260

000405
000240

004737

051502

000405
000240
104000
004736
000137

0246266
024270
026272

000240
104000
004736

1525 024300
152¢

000405

000137

.SP
8R
NOP
EMY
P

JSR

024344
037620

024344

;GO TO 2% IF NO ERROR

SRETURN HERE IF ERROR
SERROR # DEFINED BY TSTPRP SUBROUTINE
:GO TO 98 JF ERROR

ARMDA
, (R2) +
#RWDC.(R2)+
WRMOF
. (R2)+
ARMIC, (R2) +

#RMBA, (R2)

#RMCST, (R2)«

#8200, (R2)+
PC,PUT
3$

;SET TERMINATOR BYTE
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
:GO TO 38 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEF INED BY PUT SUBROUTINE
:GO TO 98 IF ERROR

PC.TIMOUT

:WAIT FOR COMMAND TO COMPLETE

JSR

PC.GET

;GO READ REGISTER(S)

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

B8R
.t

PC.GETSTS

JSR

NOF
EMT
JMP

;VERIFY RESULTS OF
JSR

8R
NOP

EMT

024344

13-49

;SETUP INPUT REGISTER BUFFER FOR READING STATUS

035770

000137

004737

026274

104000

004736

1524 0264260

026264

MOV

036602

004737

0004604

MOVR

0060260

1516 024202

024206

MOVR

112722

}ggg 024150

D 10

17:43:33 PAGE

;SETUP AND EXECUTE READ HEADER AND DATA COMMAND
MOV
#PUTINX,R2
;LOAD REGISTER INDEX TABLE
MOVB
MOVB
MOVB

112722

1512

2s:

NOP
EMT
P

000034
000032
000002

1505 024140
1506 026144

4=aPR=8"

B8R

0261064
026106
026110

'agg 024114
4
1499

(6.0

JSR

M
JSR

6%:

SUBROUTINE

READ COMMAND

PC.PRIERR

PCLA(SP)+

WITH GET

PC,DTASTS

‘GO TO 5% IF NO ERROR
*RETURN HERE IF ERROR

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

*GO TO 9% IF ERROR

;GO VERIFY RESULTS OF

DATA TRANSFER

PC,a(SP)+
98

GO TO 6% IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY DTASTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
:GO TO 9% IF ERROR

JSR

P.,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

*RETURN HERE If ERROR
:ERPOR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR (HECKS

NOP
EMT
JSR

JMP

;GO CHECK FOR PRIMARY ERRORS

BR
NOP
EMT
JSR
IMP

B8R

*GD TO 4$ IF NO ERROR

*GO TO 7% IF NO ERROR

G0 T0 9% IF ERROR

- e

LY ALY 1Y,
SW

—d b

e Sy

Ufifiuununnunn
NN
NN NN
C>(HD~q0nnffudv-ac3

“IRMNBC RMOS5/3/2 FOINL TST 2
MATRC (6.0C
Tl
READ INVALID SECTOR ADDRESS

4-APR=-81

E 10

11:43:33 PAGE

13-50

SEQ 0121

2 INCREMENT ADDRESS AND PEAD NEXT SECTOR

024300
024304
024312

(01420
001420

000100

26314
024322
026324
024332
024340

010000

001444

000040
¢10000
024074

001420
001444

024344

INC

RMDAC

;ADVANCE

BL0OS

JNO !

(mMP

BNE
MOV
8%:

MOV

JMP

RMDAQ ,#064.
#FMTI16,RMOFO

9%
#32. ,RMDAQ

AFMT16 ,RMOF O

SECTOR (OUNT

;DONE ALL SECTORS??
JTEST

16 BIT MODE

JYES !,
JTRACK = 0,
JSET

YET

INVAI
ID SECTOR =

76 BIT MODE

:TEST AGAIN.

32.

IN OFFSET AND

GS:
".'"...'Q'...'.".'."'."'"'...I...""t"'t.fi"'."('tt'!

"'t..

JeTEST 23

READ INVALID TRACK ADDRESS

"""...-.tt"."...Q""""'Q.'.'.""tfi.'..*fi...'.fi.t"'.fi.'t'l

026344

024346
626350
024354
024360
024364

7541
542 024372

1543
1544

024400
024406
1545 024412
1546 024420
1547 024426
1548 026434
1549 024442

1550
1551

1552 0246442

024446

000004
000240
012706
013700
013701
012737

012737
013737

T5723:

0C1100
001276
00146¢€
000023

012737
012737
012737
012737

000000
001334
001421
010000
177376
101360
000073

004737

032176

105237

154130

SCOPE
NOP
MOV

ASTACK ,SP

MOV

TSTQUE R

019

$BASE RO

;SCOPE CALL
JSTART OF TEST
JINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS
;(R1)

- DEVICE BEING TESTED

001226

MOV

#23,8TESTIN

;;SET TEST NUMBER IN APT MAIL BOX

001646
0071420

MOV

#0 ,AMS(CO

JCYLINDER = 0

#RH.GO,RMCSTD

JREAD HEADER AND DATA

001444

001674

001416
001412

MOV
INCB
MOV
MOV
MOV

MOV

L STRK ,RMDAC
RMDAQ+1
#FMT16,RMOFO
#-258. ,RMW(0
#8UF ONE ,RMBAQ

;LOAD LAST TRACK, SECTOR ~ 0
s INCREMENT TO FIRST INVALID TRACK
;16 BIT FORMAT
:2 + 256 WORDS (2'S COMP)
;DATA BUFFER ADDRESS

.PREPARE DEVICE FOR DATA TRANSFER
JSR

. &0RD

PC,TSTPRP

1584730

sPREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILARLE
sCLEAR CONTROLLER & SELECT DEVICE
JVERIFY (ONTROLLER CLEAR OPERAT]ON
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE

024450
024452
024454
024456
024462

000404
000240

104000

000137

B8R

NOP

024666

emd and

JRECALIBRATE

024462
024466
024472
026476
024502
024506
0245172

001553
000006
000034
000032
000002
000004
000000

EMT
JMP

;GO TO 2% IF NO ERROR

JERROR # DEFINED BY
;GO TO 8% IF ERROR

JRETURN HERE

JSETUP AND EXECUTE READ HEADER AND DATA (OMMAND
MOV
MovR

MovB
MOvVB
MOvB
MGvB
Move

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

;VERIFY RECALIBRATION

APUT INX ,R2
#RMDA, (R2) +

ARMDC, (R2) +
ARMOF
, (R2) +
#RMW(
, (R2) +

#RMBA, (R2) +
HRMCST (RZ)+

;LOAD REGISTER

ERROR

INDEX

TSTPRP SUBROUT]NE

TABLE

"ISMNBG RMOS/3/2 FOTNL TST 2
MATRD C4.JC
READ INVAL
D YRA(K ADDRESS
v?r

1563 026516
564
1565 024522
026526
024530
024532

4&=aPR-B"

F
1':43:33 PAGE

13-51

MOVB

#200,(R2) e

SSET TERMINATOR BYTE

004737
000404
000240

03624C

JSR
BR

p(.PUT
3s

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

024534

00C137

024666

JmP

026540
024544

004737
004737

035704
0366C2

024550
026554
026556
026560
024562
1573 024566

004737

035770

NLJC%OgLVg

—d
k- ok
=

ufluuhgrhgpn
SN N

000200

112722

024540

104000

000404
000240
104000

000137

02466¢

004737
000405
000240
104000
004736
000137

036766

NOP
Emr

:
1%

SUBROUT INE

cRETURN HERE [F ERROR
;ERROR # DEF INED BY PUT SUBROUTINE
;GO TO 88 IF ERROR

JSETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR

PC,GETSTS

PC,TIMOUTY

JWAIT FOR COMMAND TO COMPLETE

JSR

P{,GET

GO READ REGISTER(S)

JRETURN HERE IF ERROR
SERROR # DEFINED BY GET
;G0 TO 8% IF ERROR

JSR

NOP
EMT
JMP

.GO TO 4% [F NO ERROR

WITH GET

SUBROUTINE

1574

1575
157¢ 026566

024572
024574
024576
024600
024602
1577 026606
‘578 024606
024612
024614
024616
024620
024622
024626
024626
024632
024634
024636
026640
024642
1581 024646
1582
1583
1584 024646
1585 024652
1586 024660
1587 024662
1588 024666
1589

004737
000405
00240

JvERIFY RESULTS OF READ (OMMAND
JSR

Co4666

051502

004736
000137
004737
000405
000240

024666

;60 TO 8%

JSR

P{,DTASTS

;GO VERIFY RESULTS OF

NOP
EMT
J5R

BL,a(SP)~

JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINFE
;G0 BACK FOR MORE ERROR (HECKS

JSR

P{,SELERK

;GO CHECK FOR SECONDARY ERRURS

NOP

EmMT
024666

024442

1590

ERROR

;G0 TO 6% IF NO ERROR

;GO

TO 8%

DATA TRANSFER

ERROR

£$:

037620

001421
001421

Pl,a(SP)

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR (HECKS

;60 TO 5% IF NO ERROR

NOP
EMT
JSR
MP

Jmp

104000

004736
000137

.60 CHECK FOR PRIMARY ERRORS

B8R

104000

P(,PRIERR

]

JSR
M

;GO TO 7% [F NO ERROR
;RETURN HERE

P, a(5P)»
g8

ERROR

JERROR # DEFINED BY SECERR SUBROUTINE
.60 BACK FOR MORE ERROR (HE(CKS
G0 O 88 If ERROR

JINCREMENT ADDRESS AND READ NEXT TRACK
INCB
(MPR
8H!

000200

RMDAD+1
RMDAD+" ,4128.
3%

JMP

2s:

kR 3

JADVANCE TRACK COUNT
;DONE ALL TRA(KS??
JYES!!

;GO DO NEXT TRA(K

""'."."".'.I..'..'t""".fi"""'.""."'.ifi‘fl""'.."'."'

JYTEST 24
A4 i

024666
024666
2246670
Cedb72

000004
000240
01270¢

iAS

*Srog
001100

2R AT

SCOPE
NOP
MOy

READ INVALID C(YLINDER ADDRESS
R

EE RN

#STACK ,SP

EXEZE R

:SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

~MNBV RMCS7372 FOTNL TST 2

READ

MACRT
INVAL
D (YL INDER ADDRESS

024€76
024702
024706

‘59
1592 024714

013700
013701
012737

001276
(01466
000024
001467
000000
010000

1593 024722
*594 024730

1595 024736
1596 024744
1597 024752
1598 024760

177376

101360
000¢73

-34.«4«

“ADQ‘B'
MOV
MOy

001226
001¢4¢
00142C
001444
001474
007476
001412

G 10

17:43:33 PAGE

13-52

MOV

$BASE RO
T1STOUE ,R?

226 ,8TESIN

;RO = UNIBUS ADDRESS
J(R1Y = DEVICE BEING TESTED

MOY
MOV

#823, RMD(O
#0 ,RMDAD

sSTART AT FIRST INVALID
sTRACK = 0, SECTOR = 0

MOV
MOV
MOV
M0,

RFMT16,RMOFQ
#-258. ,RMW(CO
#8UF
ONE ,RMBAO
#R4.GO,RM(S10

ssSET TEST NUMBER IN APT MAIL 80X

;16 BIT

CYLINDER

FORMAT

;2 ¢+ 256 WORDS (2'S (OMP)
:DATA BUFFER ADDRESS

;READ HEADER AND DATA

1599

1600
1601 024760
024764

004737
154130

032176

;PREPARE

DEVICE

JSR

.WORD

FOR DATA TRAMSFER

P(,TSTPRP

154130

;PREPARE DEVICE FOR
;TASK DESCRIPTOR AS

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;YERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

024766
024770
024772
024774

025000

000404
000240
104000

000137

001553
000006
000034
000032
000002
000004
000000
000200

025000

025004

025010
025014
025020
025024
025030
025034
025040
025044
025046
€25050
025052
0735056
E 025056

025062

025066
025072
025074
025076
025100
1622 025104
*623%
‘624

(25204

2%:

004737
004737

035704
0366C2

004737
000404
000240

035770

000137

025204

104000

VOLUME NOT

VALID

;GO TO 2% IF NO ERRCR

SRETURN HERE IF ERROR

JERROR # DEFINED BY TSTPRP SUBROUT INE

;GO TO 8% IF ERROR

MOV
MOVB

#PUTINX ,R2
#RMDA
, (R2)+

MOVB
MOvV8

NRMOF
, (R2)+
MRMWC, (R2) +

MOvVR

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

sSET TERMINATOR BYTE

JSR

p{
., PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

MCVB

MOVR

MOVB
AR

NOP
EmMr

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF “'SKI'*
OR "PIP"* IS SET
JVERIFY RECALIBRATION

JSETUP AND EXECUTE READ HEADER AND DATA COMMAND

036240

0c5204

BR.
NCP
MY
JMP

TEST
FOLLOWS:

;LOAD REGISTER

INDEX

TABLE

NRMD( ,(R2)+

ARMBA
, (R2) »

;GO TO 3% IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY PUT

:GC TO 8% IF ERROR

SUBROUTINF

JSETUP INPUT REGISTER BUFFER FOR READING STATUS

4%:

JSR
JSR

PC,GETSTS
PC,TIMOUT

JSR
BR
NOP
gm”
_MP

PC.GET
4

GO READ REGISTER(S) WITH GET SUBROUTINE

;GO _TO 4% IF NO ERROR

JRETURN HERE

ERROR

JERROR # DEFINED BY GET SUBROUTINE

;GO O 8% IF ERROR

L/ERIFY RESOULTS OF

JWAIT FOR COMMAND TO COMPLETE

READ (OMMAND

JRMNBC

RMUS/ 3/

REAT

FTTNC

INVALID

4S5 025104

02511C
025112
14

TR26 Q25124
Tel7 025124

TST 2

JYLINDER ALDRESS

004737
000405
000240
164000
004736
000137
006737
000405
000240

cea..

A=APK=g"

:‘36 76¢,

£s:

351522

104000

16¢8 025144
1625 025144

'630 025164
1631

1632

633 025164
1634 025170
1635 025176

1636 025200

1€37 025204

025204

004737

03762C

005237

023727
002002
000137

025204

001446
001446

002000

024763

PC,a(SP).

SR
B8R
NOP

PC,DTASTS

SEQ 0124

;G0 (HE(K FOR PRIMARY ERRORS

;GO _TO 5% IfF NO ERROR
JRETURN HERE

ERROR

SERROR # DEF INED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS

;GO TO 8% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 6% IF NO ERROR

[}3

sRETURN HERE

ERROR

;ERROR # DEFINED BY DTASTS SUBROUT INE

JSK
JMP

PC,a(SP)
-

;GO BACK FOR MGRE

2SR
BR
NOP

PC,SECERR
7%

;GO CHECK FOR SECONDARY ERRORS

;GO TO 8% IF ERROR

ERROR (HE(CKS

;GO TO 7% IF NO ERROR
JRETURN HERE

ERROR

JERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR (HE(KS
;GO TO 8% IF ERROR

PC,a(5P)«

; INCREMENT ADDRESS AND READ NEXT CYLINDER
RMD(CO
INC
sADVANCE CYLINDER COUNT
RMD(CO,#1C24.
CMP
:DggE ALt CYLTNDERS??
BGE
JYES.!
JMP
;GO DO NEXT SECTOR

.} ¢

1639

.':.'.'.'i.'t.'..tt"t'tl"."lt'ttt'*tttfi!tt‘fifl't'tt"ttt*tttt"t

J*TEST 25
MR

Q25254
025262

025270

1650 0253
1651 0253
'€5¢ G253

—
o
st

NNNNSNN

025240
025246

001100
001276
001466
000025
000000
600000
010000

004737
000405

033152

1
1
1
1

FORMATTM
Al A

QOFFSET

22222220222

222222

TST2S:

37
37
37
37
37
37

[AS1AV1
V1, V1,¥1,§}

1640
1641
1642 025232

000004
000240
012706
013700
013701
012737
lelelelelelel

025204
025204
025206
025210
025214
025220
025224

JSR
JMP

EM”
JS5R
JMP

7%:

1638

1663
1644
1645
1846
1647
1648
1649

P{ ,PRIFRR
5%

EmT

004736
000137
000405
000240
106000
004736
00013~

.SR
B
NOP

¢
2252

H 10
**:63%3:3%3 PAG £ 13- 53

177376
101360

000063

104401
1064000

063346

000137

026116

012737
0127%7

061420
000901

SCOPE
NOP
MOv
MOV
MOV
MOV

001226
001446
001420
001444
001414
001416
061412

s SCOPE CALL

ASTACK,SP

$BASE ,RO

TSTQUE ,R1

#25,8TESTN

;START OF

TEST

SJINITIALIZE STACK POINTER

;RO - UNIBUS ADDRESS

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

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
JCYLINDER = 0
MOv
MOV
MoV
MoV

Mov

#0_,RMDAQO
#FMT16,RMOFO

s TRACK
216 BIT

#8U
ONE ,RMBAD
F

;DATA BUFFER ADDRESS

MWK !GO, RM(CS10

;JERIFY THAT SECTOR IS NOT BAD
JSR
8R

;2 + 256 WORDS (2'S COMP)
JWRITE

HEADER AND DATA

;CALL BAD SECTOR MODULE
;GO _TO 1% IF NO ERROR

EMT
JMP

.SCTMSG

:TYPE BAD

17%

2G0 TO 17% IF ERROR

MoV
MOV

#RMDAOD, $TMP(
#1,%TMP1

JUSE SECTOR FOR DATA PATTERN

TYPE

1%:

P(C,BADSCT

0, SECTOR
FORMAT

SECTOR MESSAGE

JERROR # DEFINED BY BADSCT

SUBROUTINE

had¥.)

(@]

»xn

ORMAT

72 FCINL T57 2
AT OFFSET

'653 025332

(04737

035104

1456
1657 0253%
02532

004737
154130

(032774

;ggg 02533

MALRC (4,00

’s:

4=APR-8"
_SR

110
'':43:33 PAGE '3-54
P, GENBUF

;G0 GENERATE DATA BUFFER

JPREPARE DEVICE FOR DATA TRANSFER
JSR
PC,TSTPRP
JPREPARE DEVICE FOR TEST
LWORD
154130
JTASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DE/]CE AVALABLE
;CLEAR CONTROLLER & SELECT DEVICE

JVERIFY CONTROILLER CLEAR OPERATION
JPACK ACKNOWLEDGE

VOLUME

JVERIFY PACK ACKNOWLEDGE

025344
025366
025350
025352
1658 (25356
1659

000604
000240
104000
000137

2¢1°¢

1661
662
1663
1564
1665
1666
}22;

025356
025364
025370
0253764
025400
025606
025410

012737
(012702
112722
112722
112722
112722
112712

000015
001553
000006
000034
000032
000000
000200

1669 0254146

(004737

(36240

025424
025426
;2;9 025432

104000
000137

026116

_
025632
025440
025444
025450
025454

012737
012792
112722
112722
112722

000063
001553
000002
000004
000000

1680 025464

004737

036240

1660

025420
025422

1672
1673
1674
1675
1676
1677

12;3 025450

025470
025472
025474
025476
;gg; 025502

000404
000240

112722

000404
000240
104000
000137

000200

(026116

1683
1684 025502

004737

036602

1687 025512

004737

035770

;222 025506

025516
025520

00049«
000240

035704

b1 ¥
001612

8R
NOP
EMT
MP

JOFFSE” DEVICE

MOV
MOV
MNvRe
MOVB
MovVB
MOVR
MOVB

001412

173

VALID

JRECALIBRATE [F ''SKI'"
OR ‘'PIP'' IS SE?
JVERIFY RECALIBRATION

;GO TO 3% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUT INF
;GO TO 17% IF ERROR

FOR WR1TE

#OFFSET .GO,RM(ST1Q
JCHANGE TO OFFSET (COMMAND
#PUTINX ,R2
JWRITE PUT INDEX TABLE
NRMDA
, (R2) +
ARMD(
, (R2)
#RMOF
, (R2) +
#RM(ST,(R2)+
#200,(R2)
;TERMINATE TABLE

JSR

PC,PUT

;GO WRITE REGISTER(S)

EMT
JMP

17%

JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 17% IF ERROR

BR
NCP
4%:

b1 )

NOT

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

WITH PUT

SURROUTINE

JSETUP AND EXECUTE WRITE HEADER AND DATA (COMMAND AT QFFSET
MGV
MiH ! GO, RM(S10
JWRITE HEADER AND DAYA COMMAND
MOV
APUTINX R2
JWRITE REGISTER INDEX TABLE
MOVR
ARMW(
, (R2)+
MOVB
#RMBA
, (R2)+
MOVB
#RMCST, (R2)+

5¢-

MCVR

#200, (R2)+

JSkR

pL,PUT

B8R
NOP
EMT
JMp

b3 ]

“7%

;G0 WRITE REGISTER(S)

WITH PUT SUBROUTINE

;GO TO 5% IF NO ERROR
JRETURN HERE [F ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 17% IF ERROR

JSETUP INPUT REGISTER BUFFER FOR READING STATUS
SR
PC,GETSTS

JSR

pC, TIMOUT

JWAIT FOR COMMAND TO (OMPLETE

JSR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

BR
NGP

;GO TO 6% IF NC ERROR
;JRETURN HERE [F ERROR

JRMNBO RMOS5/3/2 FCTINL "ST 2
T2t
FORMAT AT QOFFSET

025522
025526
;ggg 025530
1690
‘651 025530

104000
000137

(2611¢

004737

036766

025534
025536
025540
025542
025564
"692 025550
1693 025550
025554
025556
025560
025562
025564

0Qus737
000405
000240
104000
004736
G00137

051502

1695 25570

004737

(37620

1694 025570

025574
025576
025600
025602
025606

1696 025610
1697

1698 0256710

1699 025616

1700 025622
1701 025626

000405
000240
104000
004736
000137

000405
000240
104000
004736
CO00137

012737
012702

MAIRD

€$:

Em7y
JMP

B8R
NOP
EMT

7$:

026116

8s:

J 10

1°:43:33 PAGE

P(,a(SP)+
17%

JSR
BR
NOP
EMT
<SR
JMP

PC.DTASTS
8$

JSR

P(,SECERR

001412

9%
:
;OFFSET DEVICE

MOV

mov

WOFFSET!GO,RM(S10

#PUTINX ,R2

};82 025642

112722

000000

MovA

#RM(ST,(R2)+

1706 025646

004737

036240

025652
025654
025656
025660

1707 025664

000404
000240
104U00
000137

000200

MOVB
JSR

026116

10%:

1708
1709

1710

1711 025664
1712 025672

173
1714
1215
1716
;;}g

025790
025704
025710
025714
025720

012737
012737

012702
112722
112722
112722
112722

000073
102364

001553
000002
000004
000000
000200

1719 025724

004737

(036240

025736

000137

Q26116

025730
025732
0,5734

(00404
000240
104000

001412
001416

B8R
NOP
tOEMT
JMP

;GO CHECK FOR SECONDARY ERRORS

;GO TO 9% If NO ERROR
JRETURN HERE [F ERROR
SERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK_FOR MORE ERROR "HE(KS
;G0 TO 17$ IF ERROK

FOR READ

112722

MOvB

;GO VERIFY RESULTS OF DATA TRANSFER
;GO _TO 8% IF NO ERROR
JRETURN HERE TF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK_FOR MORE ERROR (HECKS
;GO TO 178 IF ERROR

PC,a(SP)+
178

#RMDA, (R2) +
ARMDC, (R2) +

000032

;GO BACK_FGR MORE ERROR (HECKS
;GO TO 178 IF ERROR

MOVB
MOvVB

112722

;GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEF INED BY PRIERR SUBROUT INE

PC,a(SP)+
17%

000006
000034

1703 025636

;ERROR # DEF NED BY GET SUBROUTINE
;GO 70 178 [F ERROR

112722
112722

170¢ 025632

13-55

178

JSR
JMP

BR
NOP
EMT
JSR
JMP

02€116

001553

4-APR-BY

s¢ERIFY RESULTS OF WRITE COMMAND
JSR
PC,PRIERR
;G0 CHECK FOR PRIMAK. ERRORS

026116

000015

Jle.C

JWRITE

;CHANGE
PUT

MOV
MovS
MevB
MovB
MOvR

TABLE

#RMOF
, (R2) +

#200, (R2) +
PC,PUT

;G0 WRITE

108

17%

#RH!GO,RMCS10
A#BUF TWO,RMBAD

#PUT INX R2
#RMW( , (R2) +
#RMBA, (R2) +
ARM(ST, (R2)+
#200, (R2) +

JWRITE PUT

INDEX TABLE

.
:

‘

PC,PUT

2GO WRITE

JMP

;GO TO 17% IF ERROR

SUBROUTINE

;READ HEADER & DATA (OMMA\D
; CHANGE BUS ADDRESS

JSR

BR
NOF
EMT

WITH PUT

;GO TO 108 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT INE
;GO TO 17% IF ERROR

JREAD HEADER AND DATA AT OFFSET
Moy
MOV

INDEX

TO QFFSET COMMAND

WITH PUT

SUBROUTINE

;GO TO 118 IF NO ERROR
JRETURN HERE [f ERROR
JERROR # DEFINED BY PUT SUBROUTINE

“¢(RMNBO RMOS/$/72 FCINL TST 2
125
FORMAY AT OFFSET

MACRC v04.00C

4-APR-81

K 10
*1:43:33 PAGE 13-5¢

1720 025742

178:

1721

1722

1723 025742

004737

036602

1725 025746

004737
000404
000240

035770

000137

026116

1724

025752
025754
025756
025760

025764

025764
025770
025772
025774
025776
026000
(26004
026004
026070
026012
026014
026016
026020
026024
026024
026030
026032
026034
026036
026040
1734 026044

2F 2 oWVTP

&~ LR 2l

N
WL OV

D
e
e
b
mnd
—

NNNNNNNNN

1745
1736
1737 326044

026059
026052
02€054
026056
€26060
026062
026066
026066
026074
026076
026104
026112
026116

104000

004737
000405
000260

;wAlT FCR READ TO COMPLETE AND GET STATUS

004737
000405
000240

*2%:

JvERIFY

036766

026116

004737

037620

000405
000240
104000
004736
000137

004737

101360
102364

000404
000240
104000
000137

032737
001010
052737
012737
000137

JSR
BR
NOP

PC,GET
12%

;GO READ REGISTER(S) WITH GET
;GO TO 12% IF NO ERROR

JMP

17%

;GO TO 17%

THE

RESULTS

JSR

BR
NOP

104000

026116

;WAIT

B8R
NOP
EMY
- SR
JMP

13%:

051502

004736
000137

PC,TIMOUT

EMT
JSR
JMP

14%:

JSR
BR
NOP
EMT

JSR

026116

JMP

15%:

JVERIFY DATA

035342

000200

001444

000200
101360
025336

001444
001416

16%:

000904
000240

OPERATION

PC,PRIERR

;GO CHECK

13$

FOR PRIMARY ERRORS

;GO TO 13% IF NO ERROR

JRETURN HERE

ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE

PC,a(SP)+

;GO BACK_FOR MORE

17%

;GO TO 178 IF

PC,DTASTS
14%

ERROR (HECKS

ERROR

;GO VERIFY RESULTS OF DATA
;GO _TO 14$ IF NO ERROR

TRANSFER

JRETURN HERE IF ERROR
SERROR # DEFINED BY DTASTS SUBROUTINE

PC,a(SP)+

;GO BACK_FOR MORE

178

;GO TO 178

PC,SECERR

ERROR

CHE(KS

;GO CHECK FOR SECONDARY ERRORS

158

;GO TO 15% IF NO ERROR

JRETURN HERE IF ERROR
;ERROF # DEFINED BY SECERR SUBROUTINE

PC.3(SP)+

;GO BACK FOR MORE

17%

ERROR CHECKS

;GO TO 17% IF ERROR

17¢

‘GO TO 17%

BIT
BNE
BIS

f;t..nnoro

;eggg'eoru OFFSETS??

*SET FORWARD OFFSET

SRR

15126

ERROR

Jmp

PC, CMPBUF

SRR

3IMOFO

ARESR

SCOPE
NGCPR

READ DATA BUFFERS

SRETURN HERE IF ERROR
sERROR ¥ DEF INED BY CMPBUF SUBROUTINE

Iv( FORMAT
SRS

;GO COMPARE WRITE,

3;, ONE ,RMBAO

LAl

LATEST 26
026116
026116
026120

READ

:STARTING ADDRESS OF WRITE BUFFER
;STARTING ADDRESS OF READ BUFFER
;GO TO 16% IF NO ERROR

JmP

SUBROULTINE

BUF ONE
BUF TWO
16%

MoV

17%:

TO COMPLETE

JSR
.WCRD
. WORD
BR
NOP

EMT

026116

OfF

FOR READ

JRETURN HERE IF ERROR
JERROR # LEFINED BY GET SUBROUTINE

EMT

104000

004736
000137

JSR

- CHANGE

ERROR

DATA BUFFER

tssR

2Rl

TEST
A

sSCOPE CALL

;START OF

TEST

JRMNBO RMOS/3/72 FCINL TST 2
T 26
IvC FORMAT TEST

026122
026126

012706
013700

001100
(01276

026132

037201

012737

000026

001226

1748
17649 026144
1750 026152

012737
012737

200000
000000

001446
001420

1707 026136

1751

026160

1752 026166
1753 026174

};é? 026202
1756

026210
026214
026216
026222
026224
1757 €26230
1758 026230
1759 026236
1760 026244

1;25 026250

1763

1764 026250

026254

026256
026260
026262
026264
;;gg 026270
1767
1768 026270

1269 026276
;;;? 026304

1772 026312

026316
026320
026322
026324
11;;2 026330
1775
1776 026330

1777 026336
1778 026344

001466

MACRG

010000

001444

012737

000062

001412

004737
000405
1064401
104000
000137

033152

012737

177376
101360

201420

004737

032176

000404
000240
104000
000137

026740

012737
112737

000001
000C24

004737

036240

112737

000404
000240
104000
000137

012737

012737
012702

000200

001176
.

000000
001553

#26,8TESTN

;2SET

TSTQUE ,R1

#FMT16,RMOFQ

MOV

#uH,RMCS10

1¢:

2%:

THAT

JSR
BR
TYPE
EMT
JMP
MOV

MOV
JSR

JSR

.WORD

3%:

BR
NOP
EMT
JMP

JRESET VOLUME
MOV

MOVB
MOVB

001554

JSR

026740

000063

SINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

;(R1) = DEVICE BEING TESTED

#-258, ,RMJCO
#BUFONE ,RMBAO

A ¥
_
001412

001436

TEST NUMBER IN APT MAJL BOX

SECTOR IS NOT BAD

PC.BADSCT
1$
.SCTMSG

;16 BIT

BR
NOP
EMT
JMP

FORMAT

;2 + 256 WORDS

(2'S COMP)

:DATA BUFFER ADDRESS

;WRITE HEADER AND DATA

16%

;CALL BAD SECTOR MODULE
;GO TO 1% IF NO ERROR
;TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE
;G0 TO 168 IF ERROR

#RMDAD, $ TMPO

;USE SECTOR FOR DATA PATTERN

#1,$TMPI
PC, GENBUF

;GO GENERATE

:PREPARE DEVICE FOR DATA TRANSFER

001436
001553

SEQ U128

#STACK,SP
$8ASE RO

MOV

MOV
MOV

;VERIFY

001174

L 10
1':43:33 PAGE 13-57

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
;CYLINDER = 0
MOV
#0,RMDAO
JTRACK = 0, SECTOR = 0

001414
001416

026740
000001
035104

154130

MOV
MOV
MOV
MOV

063346

012737
004737

4=APR-81

)

012737

012737
012737

,04.00

nC,TSTPRP

154130

16$

;PREPARE

DATA BUFFER

DEVICE

FOR TEST

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

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

;GO TO 3% IF NO ERROR
;RETURN HERE IF ERROR
:ERROR # DEF INED BY TSTPRP SUBROUT INE
.GO TO 168 IF ERROR

VALID BY SETTING AND RESETTING DIAGNOSTIC MODE
#DMD , RMMR 10
;SET DIAGNOSTIC MODE

#RMMRT,PUTINX
#200,PUTINX+1

:WRITE REGISTER INDEX TABLE

PC,PUT

;GO WRITE REGISTER(S)

16$

#0,RMMR10
#PUTINX,R2

WITH PUT SUBROUTINE

;G0 TO 4% IF NO ERROR
;RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 16% IF ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MoV
#WH'GO,RMCS10
:WRITE HEADER AND DATA

MOV
MoV

:RESET DIAGNOSTIC MODE
JWRITE REGISTER INDEX TARLE

JRMNBO RMOS/372 FCINL TST 2
126
IvC FORMAT TEST

1797
1798
1799 026454

026460
026462
026464
026466
026470
1800 026474

— O

N —=OO

d
d el

oD
vl

—t ch el

026442
026444
026446
026450
1796 026454

00 0o 00 Qo0

000024
(00006
000034
000032
000002
000004
000000
000200

026474
026502
026504
026512
026520
026526
026530
026530
026534
026536
026540
026542
026544
026550

035704
036602

004737
000404
000240

035770

104000

00137

m1 0
11:43:33 PAGE 1 3-8

#RMDA, (R2) ¢+
#RMD(C, (R2)+
#RMOF
, (R2) +
#RMWC, (R2) +

MOVB
MOVR

#RM(CST,(R2)
+
#200, (R2)+

JSR

B8R

5%:

FRMMR1, (R2) +

MOv8
MOVB
MOVB
MOVB

Move

026740

004737
004737

4~APR-81
MOVB

036240

1789
1790
1791
1792 026426
1793 026432
1794
1795 026436

1801
1802
1803
1804
1805
1806
1807
1808

1782

1783
1784
1785
1786
1787
1788

112722

1779 026350
1780 026354
1781

MACRO v04.00

NOP
EMT
JMP

#RMBA, (R2) +

PC,PUT

16%

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO TO 5% IF NO ERROR

JRETURN HERE

;GO TO 16% IF

ERROR

SERROR # DEFINED BY PUT SUBROUTINE

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
JSR

PC,GETSTS
PC, TIMOUT

;WAIT FOR COMMAND TO COMPLETE

JSR
BR

PC,GET
6%

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

16%

JERROR # DEFINED BY GET SUBROUTINE
;GO TO 16% IF ERROR

NOP

026740

6%:

EMT
JMP

JRETURN HERE

ERRUR

JVERIFY RESULTS OF WRITE COMMAND

004737
000405
000240
104000

036766

000137

026740

032737
001012
013737
013737
052737
104342

010000

001400

01400
001400
010000

001142
001140
001140

004737
000405
000240

037620

004736

8%:

026550
026554

004737
040100

026556
026560

000404
000249

026740

032176

PC.PRIERR

NOP
EMT
JSR
JMP

PC,a(SP)+
16%

8IT
BNE
MoV
MOV
BIS
EMT

#]VC,RMERZ2]
83
RMER?] ,$BODAT
RMERZ] ,$GDDAT
#I1v(,9GDDAT
342

‘\‘/ESWC STATUS SET??

JSR

PC,SECERR

2GO CHECK FOR SECONDARY ERRORS

NOP
EMT
JSR

104000

004736
000137

JSR

:
9%

PC,a(SP)+

.60 CHECK FOR PRIMARY FRRORS
;GO TO 7% IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS

;GO TO 16% If ERROR

*RECEIVED STATUS FOR TYPEOUT
*EXPECTED STATUS

;GO _TO 9% IF NO ERROR

JRETURN HERE

ERROR

;JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR (4ECKS

16%

;GO "0 16$ [F ERROR

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROL(L-R & SELECT DEVICE

10%

JHP

;CLEAR ]JVC ERROR

.WORD

NOP

040100

sYERIFY CONTROLLER CLEAR OPERATION
;GO TO 10% IF NO ERROR
JRETURN HERE 1F ERROR

ZRMNBO RMOS/3/72 FCTINL
/

026562
026564
;g;z 026570

TST 2

104000
000137

(26740

1215
1816 026570

012737

000073

1819 026604
026610

004737
0004604

036240

;g}g 026576

026612
026614
026616
335? 026622

012737

102364

000240
104000
000137

026740

1822
1823 026622
1352 026626

004737

.
035704

1826 C26632

004737

035770

026636
026640
026642
026644
;gsg 02665C
1829
1830 026650

1831
1832
1833
1834

026654
026656
026660
026662
026664
026670
026670
026676
326700

1836
1837
1838
1839

026714
026722
026724
026724

1835 026706

026730
026732
026734
026736
;gzp 026740

000404
000240
104000
000137

004737

000405
000240
104000
004736
000137
032737
001012
013757

013737

001412

001416

CVERIFY

13%:

001140+

#BUF TWO,RMBAD

: CHANGE BUS ADDRFSS

JSR
8R
NOP
EMT
JMP

PC,PUT
13

;GO WRITE REGISTER(S) WITH PUT
;GO TO 118 IF NO ERROR

JRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUT INEt
;GO TO 14% IF ERROR

16%

14%:

PC,GET

;GO READ REGISTER(S)

12%

WITH GET

SUBROUTINE

;GO TO 1298,
IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;G0 TO 16% IF ERROR

16%

BR
NOP
EMT
JSR
JMP

PC,a(SP)+
16%

;GO TO 13% IF NO ERROR
JRETURN HERE IFf ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;GO0 BACK FOR MORE ERROR CHECKS
.GO TO 16% IF ERROR

817
BNE
MOV

#]VC,RMERZ]
14%
RMERZ2],$BDDAT

;IS JvC STATUS SET??
JYES!!
JRECEIVED STATUS FOR TYPEOQUT

MOV

PMERZ] ,$GDDAT

JEXPECTED STATUS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

BRr
NOP
EMT
JSR

13%

#1v(,$GDDAT
342

15%

;G0 TO 15% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

FC,a(SP)+

16%:

1844

KK R AR

AR RN

'TEST 27
P

026740
026740
026742
026744

SUBROUT INE

THE RESULTS OF READ OPERATICN
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS

BIS
EMT

15%:

1842 026740
1843

MOV

BR
NOP
EMT
JMP

12%:

010000

037620

sERROR # DEF INED BY TSTPRP SUBROUT INE
;G0 TO 16% If ERROR

16%

;READ HEADER AND DATA FOR SECTOR JLST WRITTEN
MOV
#RH!GO,RMCS510
sREAD HEADER & DATA COMMAND

JSR

026740

004737

N 10
11:43:33 PAGE 13-59

sSETUP INPUT REGISTER BUFFER FOR READING STATUS
- SR
PC,GETSTS
JSR
PC, TIMOUT
JWAIT FOR READ TO COMPLETE

036766

010000

EMT
JMP

118%:

026740

001400
001400

4-APR-81

108:

036602

052737
104342

000403
000240
104000
004736

MACRO v04.00

000004
000240
012706

18§127:
001100

IR AR R AR A

AN K PRI R A RN

FORMAT ERROR
NN A AR AN R

SCOPE
NOP
MOV

A AR

#STACK,SP

AN R A AAN AR

AT AR R

xCcwa >

TEST

R A R A R

RN AR AR

IR AR R T AN AN R ANR R

AR R

;SCOPE CALL
*START OF TEST
JINITIALIZE STACK POINTER

AN RN RN RN

‘~“NBV RMGS5/3/2 ¥ TNL "ST 2
FORMAT ERROR TEST

C26750
02€7564
026760

201276
(01466
000027

1847 026766

000000
000000
000000

1845
1846

1848 026774
"849 027002
'850 027010
1851 027016
*852 027016
1853 027024
1854

177376

101360

000062

1855

027032
027036
027040
027044
027046
1856 027052
1857 027052
*858 027060
1859 027066
1860 027072
1861

1862
1863 027072

027076

B 13

MACRO v04.00 4-APR=81 11:43:33 PAGE 13-60
Moy
MOV

001226

001446
001420

001444
001414

MOV

SVERIFY

063346

012737
012737
004737

065000
000001
035104

004737
154130

032176

MOV

#~258. ,RMW(CO

;2 + 256 WORDS (2°'S {OMP,

MOV
MOV

#B8UF
ONE ,RMBAD
MH RM(CS10

:DATA BUFFER ADDRESS
;WRITE HEADER AND DATA

THAT
JSR
8R
TYPE

027522
001174

827 ,$TESTIN

RO = UNJBUS ADDRESS
S(R1Y = DEVI(E BEING TESTED
+:SET TEST NUMBER IN APT MAIL BOX

JSETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0 ,RMD(CO
SCYLINDER = 0
;TRACK = 0, SECTOR - O
MOV
#0 ,RMDAO
MOv
#0 ,RMOF
O
;18 BlT FORMATY

001416
001412

033152

$BASE RO
TSTQUE
R

’$.

001176

.SCTMSG

;CALL BAD SECTOR MODULE

;GO 10O 2% IF NO ERROR

;TYPE

BAD

SECTOR MESSAGE

EMY
JMP

16%

MOV

#ZERQS ,$TMPO

JUSE ALL ZEROS DATA PATTERN

JSR

PC, GFNBUF

;G0 GENERATE DATA BUFFER

MOV

3s:

SECTOR S NOT BAD
PC ,RADS(CT
2%

”,8TMPY

ERROR # DEF INED BY BADS(T SUBROUTINF
;GO TO 16% IF

ERKOR

;PREPARE DEVICF FOR DATA TRANSFER
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
.WCRD

154130

s TASK

DESCRIPTOR AS

FOLLOWS:

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

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

027166
027170
027172

737

036240

A OO

722

000063
001553
000006
000034
000032
000002
000004
000000
000200

e
i
el
ol

1873 027144
1874 027150
1375 027154
1876
1877 027160
027164

027522

1870 027130
1871 027134
1872 027140

000137

IASIASIASTASTAN
1A N1 ST W1, V]

1867 027112
1868 027120
1869 027124

104000

737
702
722
722
722
722
722

722

1866

000404
000240

027100
027102
027104
027106
1864 027112
1865

000404
0002490
106000
000137

B8R

A )

JMP

16%

NOf
EmM7

4%:

001412

;GO TO 4% IF NO ERROR

JRETURN HERE

ERROR

SERROR # DEFINED BY

;GO TO 168 If ERROR

TSTPRP SUBROUTINE

;SCTUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
MOV
MOvB
MOVB

#WH!
GO, RM(S10
#PUTIN
,R2
X
ARMDA, (R2) +
#RMD(C
, (R2)~

MOVB

H#RMWC
, (R2) +

MOVB

MOvVB

JSR

PC,PUT

B8R

EMT
JMP

HEADER AND DATA
REGISTER INDEX TABLE

#RMBA, (R2)+

#RMCST, (R2)+

MOVB

JWRITE
JWRITE

#RMOF
, (R2) +

MovB

NOF

027522

SVERIFY RECALIBRATION

#200, (R2)+

;GO0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 5% IF NO ERROR

JRETURN HERE

ERROR

S;ERROR # DEF INED BY PUT SUBRGUTINE
;GO TO 16% IfF ERROR

JAMNBO RMOS/3/72 FCINL TST 2

127

FORMAT

ERROR

TEST

MACRO v04.00

1878 027176

1879
1880
1881 027176
1882 027202
1883
1884 027206
027212

027214

027216
027220
1885 027224
1886

1887

1888 027224

027230
027232
027234
027236
27240
1889 027244
1890 027244
027250
027252
027.54
027256
027260
1891 027264
1892 027264
027270
027272
027214
027276
027300
1893 027304

1894
1895
1896
1897
1898
1899
190¢
1901
1902

4-APR-B1

11:43:33 PAGE

13-61
[

5%:

;SETUP INPUT EGISTER BUFFER FOR READING STATUS

004737
004737

035704
036602

004737
000404
000240

0357790

000137

027522

004737
000405
000240

036766

JVERIFY RESULTS OF WRITE COMMAND
JSR
PC,PRIERR
.60 CHECK FOR PRIMARY ERRORS

104000

104000
004736
000137

00473%7
000405
000240

004737
000405
000240

SWAIT FOR COMMAND TO COMPLETE

JSR
8F

PC,.GET
63

;GO READ REGISTER(S) WITH GET SUBROUTI'NE
;G0 TO 6% IF NO ERROR

£EMT

JMP

NOP

EMT

0c7522

051502

027522

037620

JSR
BR
NOP
EMT
JSR

PC,DTASTS
8%

JMP

PC.3(SP)+
16%

JSR
BR

P(,SECERR
9%

EMT

JSR

027522

9%:

PC.a(SP)+
16%

JMP

;RETURN HERE

;GO TO

ERROK

ERROR

;ERROR # DEFINED BY GET S BROUTINE

16%

ISR
JMP

NOP

104000

004736
000137

P{.GETSTS
PC,TIMOUT

NOP

104000

004736
000137

JSR
JSR

16%

;GO0 TO 7% IF NO ERROR

;RETURN HERE

ERROR

JERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR (HECKS
;GO TO 16% IF ERROR

;60 VERIFY RESULTS OF DATA TRANSFER
;GO TO 8% IF NO ERROR
;RETURN HERE If ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 16% IF

ERROR

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

ERROR

;ERROR # DEFINEL BY SECERR SUBROUTINE

P(C,a(SP)+

. G0 BACK FOR MORE ERROR CHECKS

16%

;GC TO 16% IF

ERROR

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN IN OPPOSITE FORMAT

027304

027310
027316
027324

005137
042737
012737
012737

001444
167777
102364

000073

004737
000404
000240

026240

000137

027522

906 027350

004737

036602

027354
027360
027362
027364

004737
000404
000240

035770

027332
027336
027340
027342
027344
027350

104000

.TO CHECK THAT "FER'' SETS
oM

001444
001416
001412

#BUF TWO ,RMBAO

; CHANGE BUS ADDRESS

P(,PUT
10%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 10% IF NO ERROR
JRETURN HERE IF ERROR

16%

;GO TO 16%

MOV

#RH!GO,RMCS10

JSR
8R

NOP

EmMT

;WAIT

;CHANGE

#-C<FMT16> ,RMOFO

MOV

10%:

RMOF O

BIC

JMP
FOR READ

JSR

JSR
BR
NOP
EMY

TO COMPLETE

PC,TIMOUT

PC,GET
11%

TO OPPOSITE FORMAT

;JREAD HEADER & DATA COMMAND

JERROR # DEFINED BY PUT SUBROUTINE

AND GET

ERROR

STATUS

;WAIT FOR READ TO COMPLETE

;GO READ REGISTER(S) WITH GET
;GO TO 11% IF NO ERROR
JRETURN HERE IF ERROR

SERROR # DEFINED BY

GET

SUBROUTINE

JRMNBD RMGS/3/72 FOTINL

"2?

TST 2

"ORMAT ERROR TEST
027366

000137

28?8 027372

1971
1912 027372

027376
027400
027402
0276404
027406
1913 027412

MA{RO v04.00

4-APR-81

SEQ 0133

027522

JMP

16%

118:

004737

JVERIFY

036766

000405
000240
104000
004736
000137

(27522

1916 027412

032737

000020

1919 027422

004737

051502

027430

000240

DN
11:43:33 PAGE 13-62

16%

ERROR

THE RESULTS OF READ OPERATION
JSR
PC,PRIERR
.60 CHECK FOR PRIMARY ERRORS

BR
NOP
EMT
JSR
JMP

128:

;G0

12%

;GO TO 128 IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
. GO BACK FOR MORE ERROR CHECKS
;GO TO 16% IF ERROR

PC,a(SP)+
163

1915

;g}g 027420

27426

001022

000405

104000
004736
000137

027522

1921 027442
1922 027450

013737
013737

001352
001352

1924 027464
1925 027466

104343

052737

000020

1926 027466

004737

037620

027500
027502

004736
000137

027522

032737

010000

001402
000157

027016

027472
027474
027476

1927 027506
1928 027506
1929

1930 027514
1931 027516

;gg% 027522

000405
000240
104000

JVERIFY THAT FORMAT ERROR

AFER,RMER1]

. 1S FORMAT ERROR SET??

JSR

PC,DTASTS

;GO VERIFY RESULTS OF

BNE

1934

13%:

001140

15%:
001444

16$:
N

027522
027522
027524
027526
027532
027536
1935 027542

000004
000240
012706
013700
013701
012737

001100
001276
(01466
000030

;g%g 027550

012737

000001

012737

010000

DATA

TRANSFER

;RETURN HERE IF ERROR

JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHE(CKS
;GO TO 16% IF ERROR

MOV
MoV

RMER11,$BDDAT
RMER1],8GDDAT

;BAD DATA FOR TYPEQUT
;EXPECTED DATA

BIS

#FER,$GDDAT

ISR

PC,SECERR

JSR
JMP

PC,a(SP)+
16%

BIT

#FMT16 ,RMOFO

BEQ
JMP

16%
1%

AR R A

TST30:

;GO TO 13% IF NO ERROR

PC,a(SP)+
16%

343

BR
NOP
EmMT

1940 027556

13%

EMT

14%:

JYES..

EmMT
JSR
JMP

J*TEST 30

1938
193¢ 027556

148

B8R

001142
001140

]S SET

BIT

NOP

027432
027434
1920 027436

1923 027456

001352

AR R AR

;GO CHECK FOR SECONDARY ERRORS

15%

RN R R R
A R

AR R

;GO TO 15% IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINF
;GO0 BACK FOR MORE ERROR (HE(KS
;GO TO 16% [F ERROR
;TEST WRITE 16 BIT FORMAT AND
JREAD 18 BIT MODE ?

:BR IF YES
;TEST AGAIN

R AR A N AR R AN R AN AN R AN R AR R AR

FORMAT HCE, FIRST HEADER WORD

A R AR A A A

AR R A AR R AR IR AN AR

R AR AR

RN RN

AR AR A AN RN AN AR

AN TR

001226

SCOPE
NOP
MOV
MoV
MOV
MC/

#STACK,SP
$8ASE RO
TSTQUE ,R1
#30,8TESTN

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

030520

Mov

#1,23%

JINIT BIT POSITION

001444

. SETUP PARAMETERS FOR GENERATING DATA BUFFER
1%:
Mov

REMT16,RMOFO

;16 BIT

FORMAT

rznwso RMOS/3/2 FCINL

1941 027564
1942 027572

000000
¢00000

027600

177376
101360

027606

"945 027614

1947

000062

027622

033152

027630
027634
027636

063346

1955

027642

012737
012737
004737

065000
000001
035104

(27662
027666

004737

032176

027670
027672
027674
027676
1956 027702

1957
1958
1959 027702
1960 027710
1961 027712
1962 027720
1963 027722
1964
1965
1966 027730
1967 027730
1968 027736
1649 027742

1970
1971
1972
1973
1974
1975
1976

1977

027746
027752

027756
027762
027766
027772

027776
030002
V30004
030006

154130

MOV
MOV
MOV
MOV
MOV

2%:

3s:
.PREPARE

030672

033737
001404
043737

030520

101360

030520

101360

030520

101360

000403
053737

,SLTMSG

MOV
MOV
JSR

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

DEVICE

FOR

JMP

27%

SECTOR = O

;2 ¢+ 256 WORDS (2'S (OMP)

;DATA BUFFER ADDRESS
JWRITE HEADER AND DATA

;CALL BAD SECTOR MODULE
:GO TO 2% IF NO ERROR
:TYPE BAD

SECTOR MESSAGE

;GO TO 27% IF ERROR

DATA

154130

sCYLINDER - O

sTRACK = 0,

JERROR # DEFINED BY BADSCT SUBROUTINE

PC.TSTPRP

B8R

NOP
EMT

000137

SECTOR IS NOT BAD
PC BADSCT
2%

27%

.WORD

000404

#0 ,RMDCO
#0 ,RMDAQ
#-258. .RMW(CO
#BUF
ONE ,RMBAD
#WH ,RMCS10

EMT
JMP

JSR

000240
104000

THAT
JSR
BR
TYPE

001174
001176

EN
" .43:33 PAGE 13-¢3

-EQ 0134

JVER]Fr

030672

027642
027¢50
027656
027662

4-APR-B81

00144¢
001420
001414
001416
001412

’

027626

1948
949
1950
1951
“952
1953
1954

MACKO v04.00

H(CE, FIRST HEADER WORD

f ORMAT

1944

IST 2

JUSE ALL ZEROS DATA PATTERN
;GO GENERATE DATA BUFFER

TRANSFER
;PREPARE

;TASK

DEVICE FOR TEST
DESCRIPTOR AS FOLLOWS:

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI''
OR "PIP'* IS SET
;VERIFY RECALIBRATION
;GO _TO 4% IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 27% IF ERROR

; COMPLEMENT DATA BIT IN FIRST HEADER WORD
BIT
23% ,BUF ONE
IS'?IT IN HEADER ON??
BEQ
8IC

5%:

B8R

BIS

5%
23% ,BUFONE

*RESET BIT

23% ,BUF ONE

;SET BIT IN HEADER

IN HEADER

é%ETUP AND EXECUTE WRITE HEADER AND DATA COMMAND

00063
001553
000006
000034
000032
000002

000004

000000
000200

036240

001412

MOV
MOy

#WH'!GO,RMCS10
#PUTIN
,R2
X

MOVB
MOVB
MOVB
MOVR
MOVR
MOVR
MOVB

#RMDA, (R2) +
HRMDC, (R2)+
ARMOF
, (R2)+
#RMUWC, (R2) +
#RMBA, (R2) +
#RM(CST, (R2)+
#200, (R2)+

JSR

PC,PUT

B8R

NOP
EMT

sWRITE

HEADER AND

DATA

;WRITE REGISTER INDEX

ABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 7% IF NO ERRCR
JRETURN HERE [F ERROR

JERROR # DEFINED BY PUT

SUBROUTINE

JRMNBO RMOS/3/2 FCTNL TST 2
MATRO V04.00
r3C
f ORMATY HCE, FIRST HEADER WORD

030010

000137

030516

‘980
1983 030014
‘982 030020
"983

004737
004737

035704
036602

004737
000404
000240

035770

000137

030516

004737
000405
000240

036756

1578 030014

4~APR-81

11:43:33 PAGE

13-64
SEQ 0135

IMP

22%

;GO 7O 22% IF

ERROR

1970

1984

030024
030030
030032
030034
030036
1985 030042

104000

030046
030050
030052
(30054
030056
"789 030062
1990 030062
030066
030070
030072

1999

051502

000137

030516

004737
000405
000240
104000
004736
000137

037620

030516

012737
012737

000073
102364
036240

PC,GET

.60 READ REGISTER(S)

EMTY

JMP

030516

030154

004737

036602

030160
030164
030166
030170
030172
3%

C04 /737
000404
000249

035770

000137

030576

JRETURN HERE

;GO TO 22%

ERROR

EMT
JSR
JMP

PC,a(SP)+

22%

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

JSR

PC.DTASTS

;GO VERIFY RESULTS OF

PC,a(SP)+

JERROR # DEFINED BY DTASTS SUBROUTINF
;GO BACK FOR MORE ERROR CHE(CKS

PC,SECERR

.GO CHECK FOR SECONDARY ERRORS

EMT
JSR

JMpP
JSR

118

ERROR

.GC CHECK FOR PRIMARY ERRORS

108

SUBROUTINE

PC,PRIERR

B8R

WITH GET

JERRQOR # DEFINED BY GET SUBROUTINE

22%

JSR

TO COMPLETE

260 TO 8% IF NO ERROR

JVERIFY RESULTS OF WRITE (OMMAND

NCP

104000
000137

104000

JSR

EM)
JSR
JMP

;GO TO 9% IF NO ERROR
JRETURN HERE

10%

NOP

00473%7
000404
000240

»
n

1998

WNAAN NUWHANWN - NN

1997

jololelelole N ele)

1993
1994
1995
199¢,

030516

OOOSOO [o]e]

397
'992

JWAIT FOR COMMAND

NOP

004737
000405
00240
104000
004736

PC,GETSTS
PC,TIMOUT

B8R

104000

004736
000137

JSR
JSR

NOP

1986
1387

1988 030042

JSETUP INPUT REGISTER BUFFER FOR READING STATUS

ERROR

;GO TO 10% IF NO ERROR
JRETURN HERE

22%

;GO TO 22% IF

11%

;GO TO 118 IF
JRETURN HERE

DATA

TRANSFER

ERROR

NO ERROR

ERRCR

JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 22% IF ERROR

PC,a(SP)+
2%

;READ HEADER AND DATA FOR SFCTOR JUST WRITTEN
MoV
MOV

#RH.GO,RMCS10
#8UF TWO,RMBAO

JSR

PC,PUT

NOP

128
JWAIT

EMT
JMP
FOR READ

JSR

JSR
BR

NOP

EMTY

"3%:

JMP

;READ HEADER & DATA COMMAND
; CHANGE BUS ADDRLSS
;GO WRITE REGISTER(S)

12%

;GO TO 12% IF NO ERROR
JRETURN HERE

PC,TIMOUT
PC,GET
13%
22%
——

SUBROUTINE

ERROR

SERROR # DEFINED BY PUT SUBROUTINE
;GO TO 22% IF ERROR

22%
TO (OMPLETE

WITH PUT

AND

GET

STATUS

JWAIT FOR READ TO COMPLETE
;GO READ_REGISTER(S) WITH GET
;GO TO 13% IF NG ERROR
JRETURN HERE IF ERROR

SUBROUTINE

JERROR # DEFINED BY GET SUBROUTINE
;GO TO 22%

ERROR

¥ 1]

RYNE L aMS T e
TR T D
MATRD v04.00
FORMAT B, FIRST HEADER JORD

rg?
2008
v? 030176
030202

030206
030206

C04737
000405
000240
104000
004736
000137

030210
020212
2010 030216
2017 030216
2012 030224
2013 030226
Sg}g 030234

032737
001033
032737
001456

2016
2017 030236
5813 040244
2020 030246
030252
030254
030256
030260
030262
2021 030266
2022 030266
2023 030274
2024 030302
2025 030310

5859 030312

2028
2029 030314
2030 030314
Sgg; 030322
2033 930324
030330
030332
030334
030336
C30340
2034 030344
2035 030344
2036 030352

2037 030360
2038 030366
5828 030370

SVERIFY

(3¢76€

030516
140000

030520

010000

030520

032737
001707

000C20

001352

004737
000405
000240
104000
004736
000137

051502

013737
013737
052737
104343

001352
001352
000020

030516

001142
001140
001140

032737
001060

160000

004737
000405
000240
104000
004736
000'37

051502

013737
013737

001400
001400

001400

030516

100000

001142
001140

G 1

11:43:33 PAGE

BLT
BNE
BIT
BEQ

#MSF 1USE , 238
16%
HFMT16,23%
18%

JVERIFY THAT FER IS SET
BIT
#FER,RMER1!
BNE
20%

15%:

JSR
BR
NOF
EMT
JSR
JMP

PC DTASTS
15%
PC,a(SP)+
22%

MoV
MOV
BIS
EMT

RMER11,$BDDAT
RMER1I,8GDDAT
#FER,$GDDAT
343

001140

;SHOULD BSE BE SET
JYES !
;IS THIS FER ??
JNO !!
;IS FER SET
JYES !!

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 158 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHE(KS
;GO TO 22% IF ERROR
;RECEIVED STATUS
;EXPECTED STATUS

22%

;VERIFY THAT BSE IS SET
16%:
BIT
#BSE ,RMERZ]
BNE
20%

17%:

13-65

THE RESULTS OF READ OPERATION
JSR
PC,PRIERR
;GO (HECK FOR PRIMARY ERRORS
BR
14%
;GO TO 14% [F NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
SERROR # DEF INED BY PRIERR SUBROUTM
Nt
JSR
PC,R(SP)+
;GO BACK _FOR MORE ERROR (Ht(KS
JMP
22%
;GO TO 22% IF ERROR

2041

;1S BSE SET ?2?
JYES !

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS
17%

PC,a(SP)+
22%

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 17% IF NO ERROR
SJRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 22% IF ERROR

MoV
MoV

RMER2I ,$BDDAT
RMERZ2] ,$GDDAT

;RECEIVED STATUS
;EXPECTED STATUS

815
EMT
BR

#BSE ,$GDDAT
345
22%

;SKIP REST OF

TEST

VERIFY THAT HCE ]S SET

2042 030372
2043 030372

(32737

000200

2046 030402
030406
C30410

004737
000405
000240

051502

ggzé 030400

T6%:

000501

052737
104345
000452

4-APR-81

001031

001352

18%:

BIT

H#HCE ,RMER11

;IS "HCE'* SET??

JSR
BR
NOP

PC,DTASTS
19%

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 19% IF NO ERROR
;RETURN HERE [F ERROR

BNE

20%

JYES.!

'éTMNEU RMOS5/3/0
FORMAT

0306412
030414
030416
2047 030422
2048 030422
2049 030430
2050 030436
2051 030444
2052 030452

2053 030460

2056 030462
2055 030464
2056
2057

2058 030464
030470
030472
030474
030476
(30500
5828 030504
2061

FTINL

HIE,

TST

FIRST

WEADER WORD

104000
004736
000137

030516

013737
013737
052737
012737
013737

001352
001352
000200
000001
030520

104344

MACRO v04.00

001142
001140
001140
001174
001176

000415

(04737
000405
000240
104000
004736
000137

2062 030504
2063 030510
5822 030512

006337
(€01404
000137

2066 030516
sggg 030520

000465
000000

4-APR-81

H 1

11:43:33 PAGE

SEQ 0137

19%:

Emr
JSR
JMP

PC,a(SP)+
22%

MOV
MOV
BIS
MOV
MOV

RMER1],$BDDAT
RMER11,8GDDAT
#HCE ,$GDDAT
#1,$TMPO
23%,3TMP1

22%

EMT

20%:

;ERRCR # DEFINED BY DTASTS SUBROUTINE
;GO BACK_FOR MORE ERROR (HECKS
;GO TO 22% IF ERROR

344

930516

JADVANCE

030520
027556

22%:
23%:

2066

;GET HEADER WORD NUMBER
JGET FAILING BIT POSITION

;GO0 CHECK FOR SECONDARY ERRORS
;G0 _TO 21% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHE(KS
;GO TO 22% IF ERROR

THE BIT POSITION AND FORMAT AGAIN IF NOT DONE

ASL
BEQ
JMP

23%
24%
1%

JSHIFT TO NEXT BIT POSITICN
SEXIT IF DONE
;GO DO NEXT SECTOR

BR
.WORD

27%
O

s JUMP TO NEXT TEST
;STORAGE FOR BIT POSITION

RN R R

2079

;RECEIVED STATUS FOR TYPEOUT
;EXPECTED STATUS

;CHECK FOR OTHER ERRORS
JSR
PC,SECERR
BR
21%
NOP
EMT
JSR
PC,a(SP)+
JMP
2cs
218:

037620

13-66

A A

AR AR AR R R AR A A AR R

NI AR AR

NI R R AR

; *REFGRMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER

2071

2072 030522
2073 030522
2076 030530
2075 030536
2076 030544
58;; 030552

012737
012737
012737
012737
004737

010000
177776
101360
000062
035104

2079 030556
€30562

Q04737
154130

032176

001444
001414
001416
001412

26%:

R A

AN AN R AR

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

R AR

RO S R

RN NN AW

MoV
MoV
MOV
MOV
JSR

#FMT16 ,RMOFO
#-2 ,RMWCO
#BUFONE ,RMBAO
AWH,RMCS10
PC, GENBUF

;16 BIT MODE
SJONLY TWO HEADER WORDS
;SELECT THE BUFFER
JWRITE HEAD AND DATA COMMAND
;GENERATE THE BUFSER PATTERN

JSR
.WORD

PC,TSTPRP
154130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
;SELECT DEVICE & VERIFY DEVICE AVAJLAB.E
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT

;VERIFY PACK ACKNOWLEDGE

VALID

;RECALIBRATE IF *'SK]'"
OR "PIP'* IS SET

030564
030566
030570
030572
2080 030576
2081 030576
2082 030604
2083 C30610

000404
000240
104000
000137

030576

012737
012702
112722

000063
001553
000006

001412

25%:

BR
NOP
EmMT
JMP

25%
25%

MoV
MoV
MovBR

#WH!GO,RMCST0
#PUT INX ,R?
ARMDA, (R2) +

JVERIFY RECALIBRATION
;GO TO 25% IF NO ERROR
JRETURN HERE IF ERROR
.ERROR # DEF INED BY TSTPRP SUBROUTINE
;GO TO 25% IF ERROR

;SET THE GO BIT
;PUT THE REGISTER ADDRESS INTO TABLE

cRMNBY BMOS/3/2 FUTNL LT ¢
MA RO
T
FORMAT W€, FIRST HEADER WORD

2084 030614
2085 030620
2086 030624

2087 030630

112722
112722
112722

112722

2088 03063¢
2089 020640
2090 030644

112722
172722
004737

030652
030654
030656
030662
030662
030664
030670
030672

000240
104000
000137

030650

2091
2092
2093
2094
2095

20976

(6. 00

11:43:33 PAGE

000034
(00032
000002

MOVR
MOVB
MOVB

#RMDC
, (R2) +
N#RMOF
_ (R2) ¢
#RMWC
, (R2) +

00000C
000200
036240

MOVR
MCVB
JSR

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

; TERMINATOR
;GO WRITE REGISTER(S) WITH PUT SUBROU!
INE

278

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

PC, TIMOUT

JWAIT UNTIL IT FINISH

000004

000404

MOVAR

B8R

030672
:
,
036602

000240
004737
000240

4-APR-B1

26$:

27%:

2097

NOP
EMT
JMP

NOP
JSR
NOP

13-67

#RMBA, (R2) +

268

;GO TO 26$ IF NO ERROR

:.'Qit.ttttttt'tttttttttlt’tttt!tt'tttt.ttttittttttttttt'tntttt'tn

seTEST

FORMAT

hCE,

SECOND HEADER WORD

'-'-ttlt.tttttttttttttttt'!ttttttttttttttttttttttt'tfittlttt'ttttttn

030672
030672
030674
030676
030702
030706
2098 030712

000004
000240
012706
013700
013701
012737

001100
001276
001466
000031

5988 030720

012737

000001

2101
2102
2103
2104
2105
2106
207

030726
030726
030734
030742
030750
030756

5;83 030764

2110

030772
€30776
031000
03100«
031006
2111 031012
2112 031012

2113 031020
2114 031026
g;;z 031032

o117

2118 031032

031036

7ST31:

012737
012737
012737
012737
012737
012737

000000
000000
010000
177376
101360
000062

004737
000405
104401
104000
000137

033152

031666

012737
012737
004737

065000
000001
035104

004737

154130

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

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

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

031514

MOV

#1,19%

;INIT BIT POSITION

001446
001420
001444
(001414
001416
001412

063346

032176

001174
001176

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
1%:
MOV
#0,RMDCO
:CYLINDER = 0
MOV
#0 ,RMDAO
:TRACK = 0, SECTOR - 0
MOV
#FMT16,RMOF O
:16 BIT FORMAT
MOV
4-258. ,RMW(CO
;2 + 256 WORDS (2'S COMP)
MOV
HBUFONE ,RMBAO
:DATA BUFFER ADDRESS
MoV

#WH,RMCS10

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT
BR
2%
TVPE
,SCTMSG
EMT
JMP
23%
2%.
MOV
#7:R0S,$TMPO

3%:

MOV
JSR

#1,$TMP1
PC.GENBUF

JWRITE HEADER AND DATA

;CALL BAD SECTOR MODULE
°
;GO TO 2% IF NO ERROR
;TYPE BAD SECTOR MESSAGE
:ERROR # DEFINED BY BADSCT SURROUTINE
;GC TO 23% IF ERRCR

:USE ALL ZEROS DATA PATTERN
;GO GENERATE DATA BUFFER

;PREPARE DEVICE FOR DATA TRANSFER
JSR

.WORD

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST

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

JeWNE.
T

GMGS/3/72 FCINL IST 2
MACRO v04.00
b JRMAT W(E, SECOND HEADER WORD

4-4PR-B1

J 1
11:43:33 PAGE 13-68

SEQ 0139

sPACK ACKNOWLEDGE

031040
031042
031044
syqq 031046

000404
000240
104000
000137

BR
NOP
EMT
JMP

031666

2120
2121 031052
2122 031052

033737

631574

101362

2124 031062
2125 031070
5159 031072

043737
000403
053737

031514

101362

031514

101362

2123 031060

228
2129 031100

00 404

2130 C31100
2131 031106
2132 031112
2133 031116
2134 031122
2135 031126
2136 031132
2137 031136
2138 031122

012737
012702
112722
112722
112722
112722
112722
112722
112722

000063
001553
000006
000034
000032
000002
000004
000000
000200

2140 031146
031152
031154
031156
031760
2141 031164

004737
000404
000240
104000
000137

036240

037512

004737
004737

035704
036602

004737
000404
000240
104000
C00137

035770

2143
2144 031164
5122 031170

2147 031174
£31200
031202
031204
031206
2148 031212
2149
2150
)
2151 03121¢
031216
031220
031222
031224
031226
2152 031232
2153 031232

031236

031512

004737
000405
000240
104000
004736
000137

036766

004737

051502

000405

031512

001412

VOLUME NOT VAL ID

sVERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI'" OR "PIP'" ]S SFT
sVERIFY RECALIBRATION

;G0 TO 4% [F NO LRROR
:RETURN HERE IF ERROR
:
;ERROR # DEFINED BY TSTPRP SUBROUTINE
:60 T0 238 IF ERROR
‘

238

; COMPLEMENT DATA BT [N SECOND HEADER WORD
i$:
BIT
19%,BUFONE+2
;IS BIT IN HEADER ON??

BEQ

5%:

BIC
BR
BIS

19%,BUFONE+2
6$
19% ,BUFONE +2

INO!

:RESET BIT IN HEADER
;SET BIT

IN HEADER

SETUP AND EXECUTE WRITE HEADER AND DATA COMM/ND
68:
MOV
#WH.GO,RMCS10
JWRITE HEADER AND DATA
MOV
#PUT INX ,R2
JWRITE REGISTER INDEX TARLE
MOVB
#RMDA, (R2)+
MOVB
#RMDC. (R2)+
MOVB
#RMOF
. (R2) +

MOVB
MOVE
MOVB
MOVB

7$:

JSR
B8R
NOP
EmMT
MP

ARMWC
. (R2)+

#RMBA. (R2)+
#RMCST, (R2)+
#2700, (R2)+
PC.PUT
14 1

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 7% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
G0 TO 188 IF ERROR

188

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS
JSR
PC, TIMOUT
JWAIT FOR COMMAND TO COMPLETE

8$:

JSR
BR
NOP
EMT
JMP

PC,GET
8s

;60 READ REGISTER(S) WiTH GET SUBROUTINE
G0 _TO 8% IF NO ERROR
*RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
G0 TO 188 IF ERROR

188
_

;VERIFY RESULTS OF WRITE COMMAND

9s:

JSR
BR
NOP
EMT
JSR
M

PC.PRIERR.
9%
PC,a(sP)+
188

GO CHECK FOR PRIMARY ERRORS
1G0_TO 98 IF NO ERROR
*RETURN HERE If ERROR
:ERROR # DEF INED BY PRIERR SUBROUTINE
GO BACK FOR MORE ERROR CHECKS
GO TO 188 IF ERROR

‘]

P(C,DTASTS

;GO VERIFY RESULTS OF

108

G0 TO 108 IF NO ERROR

DATA TRANSFER

JRMNBO RMOS/3/2 FCTNL

TST 2

MACRO v04.00

FORMAT H(CE, SECOND HEADER WORD

0312640
031242
031244
031246
2154 03125¢
2155 021252
031256
031260
031262
031264
031266
5;;? 031272

2158
2159 031272

000249
104000
004736
000137

031512

004737

037620

000405
(00240
104000
004736
000137

012737

031512

000073

S;g? 031300

012737

2762 031306
'
031312
031314
031316
031320
5;22 031324

004737
000404
000240
104000
000137

036240

004737

036602

004737
000404
000240
104000
000137

035770

004737
000405
000240
104000
004736
000137

036766

031512

032737

000200

004737
000405
000240
104000
004736
000137

051502

013737

001352

2165
g}gg 031324
2168 031330
031334
031336
031340
031342
5;98 031346

2171
2172 031346
031352
031354
031356
031360
031362
g;;z C31366
2175
2176 031366
S};g 031374

2179 031376
031402
031404
031406
031410
031412
2180 031416
2181 031416
2182 031424
2183 031432

001031

013737
052737

108:

102364

1%:
001412

001416

031512

K 11
11:43:33 PAGE 13-69

NOP
EMT
JSR
JMP

PC,a(SP)+
18%

JRETURN HERF [F ERROR
SERROR # DEFINED BY DTASTS SUBROLTINE
;GO BACK FOR MORE ERROR (HE(KS
;GO TO 18% IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SELONDARY ERRORS

BR
NOP
EMT
JSR
JMP

118

PC,2(SP)+
18%

;GO TO 11$ IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SEFERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR

JREAD HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
#RH.GO,RMCS10
;READ HEADER & DATA (OMMAND

12%:

MoV

#BUF TWO,RMBAO

JSR
BR
NOP
EMT
JMP

PC,PUT
12%
18%

; CHANGE BUS ADDRESS

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 12% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 18% IF ERROR

SWAIT FOR READ TO COMPLETE AND GET STATUS
JSR
PC,TIMOUT
JWAIT FOR READ TO COMPLETE

031512

13%:

JSR
BR
NOP
EMT
JMP

PC,GET
13%
18%

;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO TO 13% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 18% IF ERROR

SVERIFY THE RESULTS OF READ OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS
BR
14%
;GO TO 14$ IF NO ERROR
NOP
;JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY PRIERR SUBROUT INE
JSR
PC,R(SP)+
;60 BACK FOR MORE ERROR CHECKS
JMP
18%
;GO TO 18% IF ERROR
14%:

001352

031512

001352
000200

4-APR-81

001142

001140
001140

JVERIFY THAT HEADER COMPARE ERROR IS SET
BIT
HHCE ,RMER1]
;IS "MCE'' SET??

15%:

BNE

16%

JYES!!

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS
15%
PC,a(SP)+
18%

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 15% IF NO ERROR
JRETURN HEFRE IF ERROR
;ERROR # DEFINED BY DTASTS SUBRQUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR

Mov

RMERTI,$8DDAT

RECEIVED STATUS FOR TYPEQUT

MOv
BIS

RMER11,$GDDAT
#HCE
, SGDDAT

EXPECTED STATUS

ZHMNBO RMOS/3/2 FCINL
FORMAT

2184 031440
2185 031446
2186 031454
2187 031456
2188 031460
2189
2190
2191 031460
031464
031466
031470
031472
031474
g;g% 031500

H(CE,

IST ¢

SECOND

HEADER

012737
013737
106344
000415

000002
(31514

004737
000405
000240
104000
004736
000137

037620

031512

194
2195 031500

006337

031514

g}gg 031506

000137

030726

2199 031512
558? 031514

000465
000000

2196 031504

001404

MACRO v04.N0

4-APR-81

L 1
11:43:33 PAGE 13-70

WORD

001174
001174

MOV
MOV
EMT
BR

16%:

#2,3TMPO
198, $TMP1
344
18%

JGET HEADER WORD NUMBER
cGET FAJLING 8IT POSITION

;CHECK FOR OTHER ERRORS
JSR
PC,SECERR
B8R
17%
NOP
EMT
JSR
PC,a{(SP)+
JMP
18%
17%:
;ADVANCE

THE BIT POSITION AND FORMAT NEXT SECTOR IF NOT DONE
ASL
19%
JSHIFT TO NEXT BIT POSITION

BEQ

208

SJEXIT IF DONE

BR
-WORD

23%
0

;JUMP OVER STORAGE
:STORAGE FOR BIT POSITION

JMP

18%:
19%:

;GO CHECK FOR SECONDARY ERRORS
;GO TO 178 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUT[NE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 18% IF ERROR

2203

:*REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER

2205
2206
2207
2208
2209
SS}?

031516
031516
031524
031532
031540
031546

012737
012737
012737
012737
004737

010000
177776
101360
000062
035104

2212 031552

004737

032176

031556

154130

001444
001414
001416
001472

20s:

AR AR AR AR AR

;60 DO NEXT SECTOR

2¢02
2204

AR A

AN AN AN

R AR

R AN AN AR AR A A AR R AN

A AN AR AN

RN AR AR

A RN AN RN AN AR AN AR

AN AR ERARARARAN AR A AR N AR

A AAANRR AR AR

MOV
MOV
MOV
MOV
JSR

HFMT16 ,RMOFO
#-2 ,RMWCO
#8UFONE ,RMBAO
#WH,RMCS10
PC, GENBUF

:16 BIT MODE
;2 HEADER WORDS ONLY
;BUFFER ADDRESS
;WRITE HEAD AND DATA COMMAND
;SET UP THE BUFFER

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

.WORD

154130

R R RN

. TASK DESCRIPTOR AS FOLLOWS:
;SELECT DEVICE 8 VERIFY DEVICE AVAILABLE

:CLEAR CONTROLLER & SEL'ECT DEVICE

;VERIFY CONTROLLER CLEAR UPERATION

031560
031562

031564
031566
2213 031572
2214 031572
2215 031600
2216 031604
2217 031610
2218 031614
2219 031620
2220 031624
2221 031630
2222 031634
2223 031640

000404
000240
104000
000137

BR
NOP

031572

012737
012702
112722
112722
112722
112722
112722
112722
112722
004737

000063
001553
000006
000034
000032
000004
000002
000000
000200
036240

001412

21%:

218

EMT
JMP

21%

MOV
Moy
MOVB
MOVAB
MOVB
MOVB
MOVB
MOVB
MOVB
JSR

#WH!GO,RMCS10
#PUTINX ,R2
H#RMDA
. (R2) +
A#RMDC, (R2) +
HRMOF
, (R2) +
HRMBA, (R2) +
A#RMWC
, (R2) +
HRMCST, (R2) +
#200, (R2)+
PC,PUT

JPACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLELGE
SJRECALIBRATE IF *'SKI'*
OR 'PIP'" IS SET
;VERIFY RECALIBRATION
;GO TO 21% IF NO ERROR
JRETURN HERE IF ERROR

JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 21$ IF ERROR
;SET GO BIT
;TABLE ADDRESS

; TERMINATOR
;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

CZRMNBO RMO5/37/2 FCTNL TST 2
MA{RO v04.00
T3
FORMAT HCE, SECOND HEADER WORD

031644
031646
031650
031652

000404
000240
104000
000137

031666

2225 031656
2226 031660
2227 031664
2228 031666

000240
004737

036602

2226 031656

000240

4~APR-B1

23%:

13-71

22%

;GO TO 22% !F NO ERROR

EMT
JMP

:GO TO 238 IF ERROR

NOP

22%:

MmN

11:43:33 PAGE

NOP
JSR
NOP

PC,TIMOUT

JRETURN HERE [F ERROR
;ERROR # DEF INED BY PUT SUBROULT INE

;JWAIT FOR TIME OQUT

(ZRMNBO RMOS5/3/2 FCINL TST 2
END OF SuB-PASS ROUTINE

MACRO v04.00

4~APR-81

SEQ 0143

;

.SBTTL

3
4

;THIS IS THE END OF SUB-PASS ROUTINE. TH]S ROUTINE IS USED TO
STERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND

5
6

END OF

11:43:33 PAGE

SUB-PASS ROUTINC

JSELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES
;TO TEST, EXIT IS MADE TO 'SEOP' ROUTINE. OTHERWISE. RETURN

;1S MADE TO 'SHUT®' ROUTINE.

9
10
i1
12
13
14
15

031666
031670
031672
031676
031702
031706
031710
16 031712

17 031716

000004
000240
013700
062700
010037
005710
001402

000137

012737

$EOSP:
001466
000002
001466

032142

007470

001466

SCOPE
NOP
MoV
ADD
MOV
TST
BEQ

1%:

JMP

TSTQUE,RO
#2.R0O
RO, TSTQUE
(RO)
1%
SHUT

MOV

#TSTQUE +2, TSTQUE

.SBTTL

END OF PASS ROUTINE

SRRRARRA R AN R AR A AR AN

JGET POINTER TO TSTQUE
;ADJUST POINTER TO NEXT DEVICE
;SAVE POINTER TO TSTQUE
JANY MORE DEVICES FOR TEST ?
;BR IF NO
;JUMP TO 'SHUT' ROUTINE
JINITIALIZE POINTER

;TEST QUE TABLE

;*IF
;*x]F

031724
031724

031726
031732

031736
031742
031750
031752
031754
031756
031760

031762
031764
31770

000240

005037
005037

005237
042737
005327
000001
003066
012737
000001
031752
104401
000407

032010
032010

013746

032014
032016
032022
032024
032030

104405
005737
001431
104401
000421

032074
032074

013746

032100
032102

104405
005037

001230
100000

031772

INC
BIC
DEC
$EOPCT: .WORD
BGT
MOV
$ENDCT: .WORD
$EOPCT
TYPE
BR

:.65%:

001230

64%:

001126
032032

001126
001126

NOP

CLR
CLR

001230

ERRORS
DECIMAL NUMBERS

YYYYY ARE

SINCE LAST REPORT

YYYYY''

THERES A MONITOR GO 70 IT
THERE ISN'T JUMP TO SHUT

$EOP:

001116
001206

XXXXX AND

AR A AR A A AR AANNRRARNAAAAAA AN AN ANNNANRANARAR

*INCREMENT THE PASS NUMBER ($PASS)
;*TYPE "END PASS #XXXXX TOTAL NUMBER OF

:*WHERE

TO FIRST DEVICE

..67%:
66%:

JASCIZ

$TSTNM
$TIMES

$PASS
#100000,8PASS
(PC)+
1
$DOAGN
(PC)+,a(PC)+
1

,65%
64%

2 ZERO THE TEST NUMBER
;:lERO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMRER
J:DON'T ALLOW A NEG. NUMBER
;:LOOP?

;s YES
;sRESTORE TOUNTER
;2 TYPE ASCIZ STRING
::GET OVER THE ASCIZ

<12><15>/END PASS #/

MOV

-~
TYPDS
IST
BEQ
TYPE
BR
_ASCIZ

;:SAVE $PASS FOR TYPEOQUT
.TYPE PASS NUMBER
-:GO TYPE--DECIMAL ASCII WITH SIGN
$ERTTL
;:SEE IF ANY ERRORS THIS PASS
$GT42P
;:BR IF NO ERRORS TO REPORT
L67%
;:TYPE ASCIZ STRING
(6%
::GET OVER THE ASCIZ
/
TOTAL ERRORS SINCE LAST REPORT /

MOV

$ERTTL ,-(SP)

TYPDS
(LR

$PASS,~(SP)

;:SAVE $ERTTL FOR TYPEOUT
;. TOTAL

SERTTL

NUMBER OF

ERRJRS

;:G0 TYPE--DECIMAL ASCII WITH SIGN
;2 CLEAR ERROR TOTAL

J9WNBY RMOS/ 372 FTNL

PAD

PASS ROUTINE

(32106
032112
32116
32120
32122
2124
2126
213C

104401
013700
001405
000005
004710
000240
000240
000240

032132
032134
032136

000137
032142
377

32142
32146
2150
21564
2160

005737
001002
000137
005737
001002

2162
2166
2172

000137
005037
000'37

131 ¢

MAIKO y0&.JC

4L~-APR-B"

8 12
"7:63:353 PAGE 4~
SEQ 0144

001217
(00042

342 RO
$DOAGN

SENDAD: JSR

PC.,(RO)

RESET

SDOAGN:

377

000"

:
SRINAD

:
$ENULL

001326

SHUT:

007670
000042

1%:

005432
001300
031724

LSCRLF

$GT42P: TYPE
$GET42: 01
BEG

2%:

NOP
NOP
NOP

;s TYPE

(ARRIAGE

RETURN,

s sBRANCH IF NO MON]TOR
;s CLEAR THE WORLD

::GO TO MONITOR

;s SAVE ROOM

;;FOR

SJACTN

JMP
.WORD
.BYTE
.EVEN

a(2()e
SHUT
«1.-1.0

2 JRETURN

1ST

CTLFG
1%

;WAS CONTROL

w62

;ANY MONITOR PRESENT

START
$DE VM
$EoP

;FUDGE NO DRIVES IN MAP
JRETURN TO SEOP

BNE
-MP

READY

BNE

TS7

JMP

(LR

-MpP

_INf

;<GET MONITOR ADDRESS

JsNULL CHARACTER STRING

;BR IF YES
s CONT INUE

;BR IF YES

:GO 1O STAFT

FLAGGED

FEED

< NS

_(“:1

N "'u,. o

;

WMAZRO v04.00

4-APR-81 11:43:33 PAGE | 5

SEQ 0145

.SBTTL

:
;

TEST PREPARAT]ON MODULE

THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A
REPORTING AN ERROR TO THE USER IF AN ERROR IS
DETECTED.

: SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES
: USING SUBROUTINES.

NPNEB NN -2O 0

;CALL:

:
:
:
:

b od P

2 =

et s 2

JSR

WORD
BR
NOP
ERROR

PC,TSTPRP

NAINNN
27

TEST,
THE USER

TASK/VERIFY DESCRPTOR
RETURN HEPE IF NO ERROR
RETURN HERE IF ERROR
ERROR DEF INED BY MODULE

:TASK/VERIFY DESCRIPTOR

BIT 15
= 1

SELECT DEVICE AND VERIFY DEVICE

BIT 14 - 1

CLEAR CONTROLLER AND SELECT DEVICE

IS AVAILABLE

:
:

BIT 13
BIT 12 = 1

(RESERVED FOR DRIVE CLEAR)
PACK ACKNOWLEDGE IF VOLUME NOT VALID

BIT 11 = 1

RECALIBRATE IF POSITIONING IN PROGRESS OR SKkI ERROR

:
:

8IT 10 - 1
BIT §

BIT 8

8IT 7
BIT 6

BIT 5

:
:

BIT 4
BIT3

BIT 2

:
:

RECALIBRATE DRIVE

VERIFY CONTROLLER CLEAR OPERATION

-1
=1

VERIFY PACK ACKNOWLEDGE
VERIFY RECAL IBRAT]ON

(RESERVED FOR DRIVE CLEAR)

BIT 1
BIT O

;

TSTPRP:

017637
062716

000000
000006

004737
004737
000411
000401
000000

105076
162716

062716

033146

;STORE

TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL

000000
000004

MOV
ADD
CLRB
SUB

a(sP),39%
#6, (SP)
a(SP)
24, (SP)

:STORE DESCRIPTOR
*MOVE SP TO USERS ERROR (ALL
*CLEAR ERROR CALL
*MOVE SP TO NO ERROR RETURN

035704
035770

JSR
JSR

PC,GETSTS
PC.GET

SSETUP TO READ ALL REGISTERS
1GET RMER?

WORD
ADD
MOVB

0
¥4, (SP)
1$-2.3(SP)

MOV

RMER2] 408

032242
032250

000137

113776

000004
032234
033136

032254

013737

001400

B8R
B8R
00000

033150

18:

JMP

2%:

2$
1%

378

‘BR IF NO ERROR DETECTED
‘GET OVER ERROR NUMBER

*ERROR DEFINED BY GET SUBROU'INE
*XFER ERROR TO USER AND
*GFT ERROR NUMBER.

:GET RMER2 AND SAVE FOR LATER

:;.'i""'t*i"'t"ttt"t!'ttt!t'tttt'tit'ti'l."l'!t'fi..'t'l".'

JRMNBO RMOS/73/2 SCINL TST 2
TEST PREPARAION MODULE

58
59 032262
g? 032266

005737
100014

(33146

€2 032270
63 052274
64 032276
65 03230C
66 032302
67 032306
68 032314

004737
000411
000401
000000
062716
113776
000137

043672

000004
032300
033136

MACRC v04.00

000000

3%:

CLEAR

032737

060000

76 032330
77 (32334

004737
000411

045344

79 032240
80 032342

000000
062716

;g 032326

78 03233

81 03236
g% 032354

001451

033146

000401

113776
000137

000004
032340
033136

000000

N A

L$:

032737
001437

000100

60
91
92
93
94
95
3;

032370
032374
032376
032400
032402
032406
032414

Q04737
000411
000401
000000
062716
113776
000137

035770

98
99
100
101
102

032420
032424
032426
032430
032432

004737
000412
000407
000000
005726

103 0324346
106 032440

;82 032446

062716
113776

000137

000004

032400
033136

033146

000000

045462

000004
032430

033136

032737

010000

114 032462

004737

(035770

;}% 032460

001501

8%:
9%

11%:
128%:
000000

033146

JSR
B8R
8R
. WORD
ADD
MOVB
JMP

PC.DEVSEL
43
33
¢
#6,(SP)
3%-2.2(5P)
37%

;GO SELECT DEVICE
JNO ERROR - (ONTINUE

R A

A A

+ERROR NUMBER FROM DEVSEL
;TRANSFER ERROR T0O USER

R R A

R A

A R

N NN N AN A AN AR AR AN ANANRNRNN RN IS RO P2

BIT

SET

#B1714,39%

;CLEAR CONTROLLER??

JSR
BR

PC,CNTCLR
7%

;GO0 CLEAR (ONTROLLER
sCONTINUE - NO ERROR

.WORD
ADD

O
44, (SP)
58,a(SP)
37%

;ERROR NUMBER FROM (NT(LR
;. TRANSFER ERROR TO USER

AR A R A RN

N RN N A AN AN R AR AR AR A R A A AN N R R AN CN R

MovB
JMP

R A AN AR

13¢

IN TASK

BIT

[N TASK

JNO.!

A AN

VERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK
7%
BIT
#B176,39%
sVERIFY??
BEQ
13%
NO!!

SRR

108
109
110 032452
111 032452

SNO!!

BEQ

10%:

107

5%:
6%:

15 SET

8PL

CONTROLLER

AR AN

85
86 032360
87 032360
gg 032366

15-1

JSELECT DEVICE AND VERIFY DEVICE AVAILABLE IF Bi7
1ST
39%
JSELECT DEVI(E??

72 032320

11:43:33 PAGE

SkU 0146

73 032320

D 12

4-APR-81

JSR
BR
BR
.WORD
ADD

PC,GET
10%
9%
O
R4, (SP)
8%,3(SP)
37¢

JSR
BR
BR
.WORD

TST

PC,CLRSTS
138
12%
O
(SP) +

JMP

37¢%

MOVR
JMP

ADD
MOVR
A A A R

#4,(SP)
11%,a(SP)

A AR AR A A AP

,GO GET STATUS
:NO ERROR GETTING STATUS
;ERROR FROM GETTING STATUS
;. TRANSFER ERROR TO USER

.GO VERIFY STATUS CLEAR
;NO ERROR N (LEAR
;ERROR IN STATUS (LEAR
;STRIP RETURN ADDRESS T0
;SUBROUTINE AND TRANSFER
JERROR TQ USER
AR AR AN R AR

AR AR RN A NN AR AR NN RN RANR RN TSR P b

EXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VO_UME
JNOT VALID
13s:
BIT
#RIT12,39%
sPACC ACKNOWLEDGE
??

BEQ

25%

JSR

PC.GET

SNO! .

JINB.

TETT

RMOS/3/2 .

TNL
PHEPARATION MODULE

115 032466

00041
000401
000000
062716

/¢

MATRO v04.00

113776

000137

032472
033126

000000

032512
032520

032737
001061

000100

001350

5 032522
032530
032536

012737

000023
000000
000200
036240

001553
001554

004737
000410
900401
000006
062716

E 12

11:43:33 PAGE

15-2

SEQ 0147

032470
032472
032474
032500
032506

112737
112737

4-APR-81

0006004

032544
032550
032552
032554
032556
032562
£32570

000562

113776

000004
032554

032572

004737

036602

w$:
58

16%:

001412

000000

i
178:
188:

198:

BR
BR

168
15%

:NO ERROR GE“TING RMDS

_WORD
ADD

0
#4, (SP)

: TRANSFER ERROR

BIT
BNE

#VV RMDS]
258

;IS VOLUME VALID??
IVES!!

MOV

#PAKACK !GO, RMCS10

MOVB
P

MOVB
MOVB
JSR
BR

14%,a(SP:
378

#RMCST,PUTINX
#200,PUTINX+1
PC,PUT
19§

BR
_WORD
ADD

188
0
#4, (SP)

JSR

PC,TIMOUT

MOVB
BR

10 USER

;LOAD PACK ACK

COMMAND

;SETUP REGISTER INDEX TABLE

;GO WRITE COMMAND
:NO ERROR LOADING REGISTER
;ERROR FROM PUT SUB
:TRANSFER ERROR TO JSER

17$.3(SP)
378

:WAIT

FOR

COMMAND

TO COMPLETE

D
b
b
b
el ek ol el
)
it

[¢ XA I %RYL 10 AV IV, IV, 1V 1V, 10 ]
ODW
O NS
—=O

. *lRkt*fil""t"fit'it""fittfl'.l'fitt*.l‘fitt't't."'tt"!"‘.'t'tt'

032576
032604

032737
007427

000020

022606
032612
032614
032616
032620

004737
000410
000401
002000

035779

032624
032632

232634
032640
032642
032644
032646
032650
032654
032662

062716
113776
000541

000004
032616

004737
000411
000401
000600
005726
062716

0646342

113276
000525

000004
032644

033146

208:
000000

21%:

22%:

23%:
24s:
000000

#BIT4 SET

[N TASK

BIT
BEQ

#B1T4,39%
258

JSR

PC,GET

ADD

A4, (SP)

JSR
AR
BR

PC,ACKSTS
25%
248

;GO CHECK ACKNOWLEDGE
INO ERROR

#4,(SP)

:TRANSFER ERROR

BR
BR
.WORD
MOVB
BR

MOVB
BR

23%,3(SP)
373

STATUS

:NO ERROR GETTING STATUS
;ERROR FROM GET SUB
: TRANSFER ERROR

20%,3(SP)
37%

0
(SP)+

ADD

:GO GET

22%
218
0

.WORD
ST

:VERIFY PACK ACKNOWLEDGE??
INO!!

TO USER

:PACK_ACKNOW: EDGE ERROR
:STRIP RETURN TO SUB AND
TO USER

"."l‘i*i’tt*fi*ti*t*lttii’"t'il"ttfit"‘tt't"tit't"i'tit"t'tl"lt.

161

:RECALIBRATE DRIVE

IF BIT 11

IS SET

SRECALIBRATE

IF BIT

IS SET

:OR "PIP'* IS ACTIVE.

032664

0 32702

032737
601027
032737
001517

032704
O 032710

004737
000410

032672

167 032674

VERIFY PACK ACKNOWLEDGE

002000

033146

004000

033146

035770

DRIVE

IN TASK AND "'SKI'* IS SET

BIT

#B81710,39%
298
#B1T11,39%
388

JYES.
RECAL IBRATE?
INO!.

JSR

PC,GET

:GO GET

BNE
BIT
BEQ
BR

28%

;RECALIBRATE DRIVE ?

RMDS

:NO ERROR GETTING RMDS

JRMNBD RMOS/3/72 FCINL TST 2
TEST PREPARATION MODULE

172 032712

173 032714
1764 032776
175 032722

MACRO v04.00

000401

3;? 032730

000000
062716
113776

000502

000004
032714

000000

178 Q32732

(32737

0640000

233150

020000

001350

179 0327640
"80 032742
13; 032750

183
'84
185
186
187
188
189

032752
032756
032762
032770
032776
033004
033012

190 033020
1971 (033024
192 033026

007004
032737
00474

005037
005037
012737
112737
112737
112737
112737

007446
001420
000007
000034
000006
000000
000200

004737
(00410
000401

036240

;g? 033044

062716
113776

(00434

000004
033030

%gg 033046

004737

036602

193 033030

194 033032
195 033036

000000

26%:
27%:

201

032737

000010

205
206
207
208
209
210
S};

033062
033066
033070
933072
033074
033100
033106

004737
000410
00401
000000
062716
113776
000413

035770

213 033110
2" 033114
215 033116
216 033120
217 033122
2'8 033126
219 033130
220 033136
22" 033142
%g% 033144

004737
000412
000401
000000
005726
062716
113776
162716
(00240
000207

047136

226

Q00000

582 033060

(033146

205 033160

001430

000000

000004
033072

000004
033120
000002

033146

°28%:

BI7

#5K]1,40%

;WAS SK]

29%:

(LR
(LR
MOV
MOVB
MOVB
MOVB
MOVR

RMDCO
;CLEAR CYLINDER ADDRESS
RMDAQ
.CLEAR TRA(CK/SECTOR ADDRESS
#RECAL !GO,RM(CS10
;LOAD RECAL IBRATE COMMAND
#RMD( , PUT INX
sMAKE CYLINDER ADDRESS AND
#RMDA ,PUTINX+1
;TRK/SEC ADDRESS LCOK LIKE SEEK TQ ZERD
ARM(CST,PUTINX+2 ;AND REGISTER INDEX
#200,PUTINX+3
;SET TERMINATOR

JSR
B8R
BR

PC,PUT
31%
30%

oGO ISSUE RECALIBRATE
:NO ERROR

JERROR

ADD
MOVR

#4,(SP)
308-2.2(5P)

; TRANSFER ERROR

JSR

PC, T IMOUT

JWAIT FOR COMPLETION

30¢%:

29%
#P P ,RMDS |
383

.WORD

RN A

35%:
3¢6%:

37%:
38¢%:
39%:

40%:

SUB

SET ?

JYES, GO RECAL JBRATE
;IS PIP ACTIVE??
;NO. .

[N REGISTER TRANSFER
TO USER

37%

AN A R AN R AR AN P AN R

AR NN AR R AN

AR N AN

N R A AN AR NN RANNAR IO OO

]F BIT 3 SET IN TASK

BIT

#3]113,39¢

SVERIFY RECALIBRATE??

JSR
B8R
BR
.WORD
ADD
MOVR
BR

PC.GEY
34%
33
0
#é&, (SP)
32%.2(SP)
37%

;G0 GET STATUS
JNO ERROR GETTING STATUS

JSR
BR
BR
. WORD
TST
ADD
MOV
SUB
NOP
RTS

PC ,RCLSTS
38%
36%
0
(SP)+
#4,(SP)
35%,9(SP)
#2,(5P)

GO (HECK RECALIBRATE
;NO ERROR DURING RECAL IRRATE

JRETURN TO USER

.WORD

;TASK/VERIFY DESCRIPIOR

BEQ

33¢%:

JERROR FROM GFT

37¢%

JVERIFY RECALIBRATE

34%:

000000

BNE
8IT
BEQ

32%:

000000

SEQ 0148

s TRANSFER ERROR TO USER

AN A

202 033052

278

12
15-3

0
#4,(SP)
26%.3(5P)

31%:

200

B8R

11:43:33 PAGE

.WORD
ADD
MOVB

001412
001553
001554
001555
001556

000000

4-APR-B1

.WORD

38¢

;NO!!

JERROR FROM GET

; TRANSFER ERROR TO USER

;ERROR DURING RECALIBRATE
:STRIP RETURN TO SUB AND
s TRANSFER ERROR TO USER

JMOVE SP BA(CK BEFORE ERROR

JCONTAINS RMER2

MLTRD v046.00

4-APR-8B1

.SBTTL

G 12

*1:43:3% PAG £

BAD SECTOR MODULE

R NE NN 2D 003 NN

;THE MODULE IS INTENDED TC BE CALLED PRIOR TO CALLING THE BUFFFK
;GENERATOR SUBROUTINE, AND PRESERVES THE ‘PUT BUFFER'' SO THAT 'wt

;ggggi?xgng ONLY BE

FILLED ONCE FOR

THE

EXECUTION OF

A FORMAT

:THE MODULE RETURNS TO THE CALLING TEST WITH THE APPRCVED OR ASSIGNtD
:SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS ‘'ASNDA'* AND ‘“'ASND.
"'

s
=t p

;SO THAT A REFERENCE

;THE

:
;

)

PERFORMS

TEST OUTSIDE OF

TWD MAJOR

THE

PUT BUFFER.

FUNCTIONS:

TR T

ELECTED IS NOT AVAILABLE FOR USE.

INFORMATION REQUIRED BY THE MODULE INCLUDES:
(1)
.RMDCO - THE DESIRED CYLINDER,
(2)
.RMDAQ - THE TRACK »ND SECTOR ADDRESS,
(3)
.RMWCO - THE WORD (OLNT,
(4)
.RMCS10 - THE COMMAND,
(5)
.RMOFQ - THE FORMAT MODE
CALL:

YR T

SECTOR MODULE

TO THE

RECOVER THE BAD SECTOR FILES AND
APPROVE THE USAGE OF A SECTOR BASED ON INFORMATION In
THE BAD SECTOR FILES OR ASSIGN A NEW SECTOR [F THE M

N)~d
b ed ba

BAD

(1)
(2)

IS AVAILABLE

JSR

PC,BADSCT

;CALL

TYPE

.MESSAGE

JRETURN HERE

[F NO ERROR

JRETURN HERE

B8R

222

;

il
vl
—

O N
oo

NN NN
NN NN

[ololele)

105076
162716

B8ADSCT:

000006
000000
000006

. CANNOT

JTHE EMT OFFSET NUMBER
;BY BAD SECTOR MODULE.

ADD
(LRB

#6, (SP)
a(SP)

;CLEAR ERROR NUMBER
JERROR CALL.

SUB

#6,(SP)

sTEST 'MEDIA ENABLE'' TO DETERMINE WHETHER OR NOT

005737

001402
000137

;HAVE BEEN RECOVERED.
1ST
MEDENB

001512

BEQ

034452

THE BAD

JMP

564%

SECTOR

FILE

RECOVERED.

ERROR

062716

SUBROUTINE

°N'

DEFINED

IN USER'S

THE BAD SECTOR FILES

;HAS BAD SECTOR FILES BEEN RECOVERED

:BR

IF NO

JYES, BAD SECTOR FILE IS AVAILABLE

;RECOVER THE MANUFACTURES / USERS BAD SECTOR FILE FROM CYLINDER = B22..
:TR?CK EFEQST TRACK (RM0Z2/3 - 4 AND RMOS
18.). ALSO, SAVE THE USER'S

.PUT

010046
005000
016060
062700
022700
103370

012737

1%:

001412
000002
000046

000003

101360

035070

MOV
(LR
MOv
ADD
' {MP
BHIS

RO,-(SP)
;2PUSH RO ON STACK
RO
;START WITH RM(CST
PUTRUF
{RO) ,BUFFER(RO)
#2 R0
.
;ADVANCE TO NEXT BUFFER POSITION
#46,RO
:END OF BUFFER
2%
JNC !

sSET RETRY (OUNT AND i OAD PUT BUFFER AND REGISTER INDEX TAB'F
;SETUP PARAMETERS TO READ SKIP SECTOR FI'F FIRST (3 SEfTORS,
MOV

#3,68%

SJRETRY COUUNT

CRMNBO RMQS/ 370 s TN
StCTOR MODU!£

012737

59 033246

[}

77 033342
78 033344

004737
004737
000411
000401
000000
062716

033476
033500
033502
033506
033514

#822. .RMD(O

~
Ny
o

mova
MOVB
MOvB
mova
MOVB
Move

Mov

%%ET

035704
035770

000137

000000

013737

007400

035102

012737
004737
000411
000401
000000
062716

000011
036240

001412

000137
004737
004737
000411
000401
00000C
062716
113776

000137

004737
000412
000401
000000
005726
062716
113776
000137

000000

035770

000000

050700

000006
033476
034156

MOV

JSR

6%
7%:

:
9%
10%:

TRACK,

SECTOR - O

:2 + 256. WORDS (2'S (OMP)
;16 BIT

sPOINT

FORMAT

TO MANUFACTURES FilLE BUFFE&

(SP)+ RO

;:POP STACK INTO RO

#200, (RO) +

TABLE

TARf

FOR READING STATUS

PC,GETSTS
PC,GET

;SETUP GET

:sUMP OVER ERROR NUMBER
JERROR DEFINED BY GET SUB
;XFER ERROR TO USER AND

RMERZI,73%

;CLEAR THE DEVICE USING DRIVE

11%:

000000

MOV

sDESIRED CYLINDER = 822.

sSTARTING LAST

;RO POINTS TO REGISTER INDEX

42%
5%-

"6~ 1

#PUTIN
RO
X
#RMD
(RO
A,
+
#RMDC, (RO) +
#RWIC, (RO)
ARMO
, (RO)
F
+
#RMBA, (RO)
+
#RMCST
(RO,
+

#6,(SP)
4%-2,2(SP)

8%:

036602

000006
033446
034156

#-258. ,RMW(O
#FMT16.RMOF
O
AMF GF IL ,RMBAQ

000006
033346
034156

000006
033412
034156

INDEX

LSTRK _RMDAC

113776

GET

JSR

033466
033472
033474

MOV
MOV
MOV
MOV
MOV
MOV
MOvV8

033446
033450
033454
033462

17:42:33 PAG E

000006
000034
000002
000032
000004
000000
000200

80 033350
81 033354
82 033362
83
84 033366
85
86
R7 033374
88 033402
86 033406
90 033410
31 033412
92 033414
93 033420
94 033426
95
96 033432
97 033436
98 033442
99 033444

720
600

H 12

L~APR-B1

001553

79 033346

001446
001420
001414
001444
001416

103370

62
63 033270
A 033274
65 033300
66 033304
&7 033310
o8 033314
£9 033320
70 033324
71 033330
72

73
74 033332
75 033332
76 C33336

001466
(01334

177376
010000

(e
B R R T P Py o
- ed b ceh d b D e

60 033254
61 033262

MA{RD 06.0C

—

57 033232
58 033240

(A1 NT TN T,V ]

BAD

st 2?2

INDEX REGISTER FOR STATUS

;GET REGISTERS
:BR IF NO ERROR

;GET ERRUR NUMBER.

;GET RMERZ AND SAVE FOR LATER
CLEAR COMMAND
;LOAD COMMAND IN PUT BUFFER
COMMAND
SRETURN HERE [F NO ERROR
sGET AROUND ERROR #
;ERROR # GOES HERE
;MOVE SP TO USERS ERROR CALL

#DRVCLR.GO,RM(CS10
PC,PUT
;OUTPUT

’$
0

#6, (SP)

6%,3(SP)
42%
PC,TIMOUT
PC,GET

11%
10%

#6, (SP)

9%,a(SP)
42%

;MOVE

ERROR NUMBER

TO USER

JWAIT FOR COMPLETION
;GO GET STATUS
JRETURN HERE

NO ERROR

;GET ARQUND ERROR #
;ERROR # GOES HERE

;MOVE SP TO USERS ERROR CAL.
JMOVE ERROR # TO USERS ERROR CALL

PC,DRVSTS

;GO VERIFY DRIVE CLEAR COMMAND

:GET AROUND ERROR
sERROR # GOES HERE
;STRIP RETURN TO SUBROUTINE

14%
13%

(SP)+

#6, (SP)
12%,(5P)
42%

JRETURN HERE

sJMOVE
;MOVE

NO ERROR

SP TQ USERS ERROR {(AL.
ERROR # TO USER CALL

JRMNB) RMOS/3/¢ F TN
SETTOR MODLLt
114
11§

0 33520

; ISSUE
21

032737
001052

000100

061350

0 3 3 530 012737
120 033536
004737
121 033542, 000411
122 033544 000401
123 033546 000000
126 033550 062716
113776
033554
033562 000137

000023
036249

001412

“16 0 3 3520
118

0 3 3526

119

033566
033572
033576
033600
033602
033604
033610
033616

004737
004737
000411
000401
000000
062716

033622
033626
033630

004737
000412
000401
000000
005726
062716

033632
033634

033636
033642

A
—aB
=
d mad —B
D md
D
D ok
b
D
d
ik wmnd
D it e

(e Jaale Yo XV, IV, IV TV IV, RV TV, IV, IV_ 1V}

033650

HAD

M4{RC v04.00

113776

00037

113776

000137

000006
033546
03415¢

000006
03363%2
034156

032737
001004
032737
001452

040000

033674
033702
033706
033710
033712
033714
033720
033726

V12737
004737
000411
000401
000000
062716
113776
000137

000007
036240

020000

000006
033712
034156

000000

198:
20%:
21%:
22%:

000000

035102

001350
001412

000000

036602

JSR

#PATACK .GO,RMCS10
., PUY
PC
;GO PUT

8R
.WORD
ADD
MOVB
JMP

16%
0
46, (SP)
15%,a(SP)
(2%

JSR
JSR
BR
BR
.WORD
ADD

PC, TIMOUT
PC,GET
20%
19%
0
#6, (SP)

MOVRB
JMP

18%,2(SP)
(2%

.WORD

ADD
MOVB

#6, (SP)
21%.a(SP)

TST

MOV

23%
22%

1S vV RESET ?°
JNO !
- LOAD COMMAND
(OMMAND TO DRIVE

SRETURN HERE

IfF

NO OUTPUT

:MOVE

ERROR #

;JWAIT

FOR COMPLETION

TO ERROR CALL

;GO GET STATUS FOR PA(K A(K

JRETURN HERE

NO ERROR

;GET AROUND ERROR #

JERROR # GOES HERE

;MOVE

SP T0O USERS ERROR (ALL

;MOVE ERROR # T0 (CALL

;GO VERIFY ACKNOWLEDGE STATLS
JRETURN HERE IF NO ERROR

42%

;STRIP RETURN TO SUBRGUTINE
;MOVE SP TO USERS ERROR (ALL

;MOVE ERROR # TO USERS ERROR CALL

IF ''SKI"' OR 'PIP IS SET

#SK],73%
24%

:WAS

SKI

323

JNO

;PUT

THE

#PIP,RMDS]
#RECAL !GO,RM(CS10

SET

SYES, GO RECALIBRATE
;IS PIP SET 22
;LOAD RECAL IBRATE

P(C,PUT
268
25%
0

MOVR
JMP

25%-2,a(5P)
42%

;MOVE

JSR
JSR

PC,TIMOUT
PC,GET

JWAIT FOR RECALIBRATE
;GO GET RECAL STATUS

8R
WORD

28%
0

ADD

MOVR
JMP

#6, (SP)

29%

46, (SP)

ERROR

:GET ARQUND ERROR #
JERROR # GOES HERE
sMOVE SP TOQ USERS ERROR (ALL

;GET AROUND ERROR #
sERROR # GOES HERE

(SP)
+

THE DRIVE

1S RESET

JSR
BR
BR
.WORD

000000

17%

PC,ACKSTS

BEQ

27%:
28%:

23%

JSR

B8R
B8R

BIT

25%:

VALID

MOV

;RECALIBRATE
23%:
BIT
BNE

24%:

VOLUME

aVVY RMDS ]

JMP

26%:

035770

000006
033746
034156

168:

16-2

8I7

BNE

046342

033654
033654
033662
033664
033672

004737
004737
000411
000401
000000
062716
113776
000137

000000

112

11:43:33 PAGE

A PA(K ACKNOWLEDGE

B8R

036602
035770

0C0006
033602
03415¢

14%:

&-APR-8B1

27%,2(SP)
42%

RECAL

JRETURN HERE

COMMAND

(DOMMAND

NO ERROR

;GET ARQUND ERROR #
JERROR # GOES HERE
;MOVE SP TO USERS ERROR (ALl
ERROR # TO USERS CALL

JRETURN HERE

TO COMPLETE

NO ERROR

;GET AROUND ERROR #
;ERROR # GOES HERE
;MOVE SP TO USERS ERROR (AL,
;MOVE ERROR

TQO USERS CALL

(~VMNRG RMOS/3/72 FCTINL
SECTOR MODULE

177 033766
172 033772
173 033774
"74 033776
175 034000
176 034002
177 034006
178 034014
179
180
181 034020
182 034020

183 034026

184 034032
185 034034
186 034036
187 034040
188 034044
189 034052
190
191 034056

192
193
194
195

034062
034066
034070
034072

004737
000412
000401
000000
005726
062716
113776

000137

012737
004737

000411
000401
000000
062716
113776
000137

004737
004737
000411

197 034100
198 034106

200 034112
034116
034120
034122
034124
034126
034132
034140

004737
000412
000401
000000
005726
062716
113776
000137

034144
034152
034154

032737
001001
000446

196 034074

199

e gihrgiir-Si
Slrqr e Slhr - Sy

MACRO v04.00

29%:

047136

000006
033776
034156

4-APR-81

30%:
31¢:

000073
036240C

000006
034036
034156

000000

ADD
MOVB

#6, (SP)
308 .,a(SP)

328
318
0

(SP)+

42%

JMP

32%:

THE

SECTOR

348
0

33¢:
34%:

33%,2(SP)

42%

000000

051502

36%:
37%:

38%:

39%:

40%:

034122
034156

000000

040000

001336

PC, TIMOUT
PC,GET

JSR
BR
BR
.WORD
TST
ADD

MovB
JMP
41%:

BIT
BNE
BR

:STRIP RETURN TO SUBROUTINE
sMOVE SP TO USERS ERROR (ALL

JMOVE ERROR # TO USERS CALL

INCLUDING HEADFR AND DATA

;LOAD READ HEADER AND DATA (OMMAND

:PUT COMMAND
SRETURN HERE

NO ERROR

:GET AROUND ERROR #

#6, (SP)

BR
.WORD
ADD
MOvB
JMP

;GO VERIFY RECALIBRATE STATUS
JRETURN HERE IF NO ERROR
;GET AROUND ERROR #
;ERROR # GOES HERE

IDENTIFIED BY RMDAO,

#RH.GO,RM(CS10
PC,PUT

MOV

35%:

035770

000006

PC,RCLSTS

16-3

35%

036602

000006
034072
034156

JSR
BR
B8R

.WORD
ST

000000

001412

11:47:33 PAGE

38§
378
0

:ERROR # GOES HERE

)

:MOVE SP TO USERS ERROR CALL
:MOVE ERROR # TO LSERS ERROR CALL
;WAIT FOR READ OPERATION TO COMPLETE

;GO GET STATUS FOR READ OPERATION
JRETURN HERE

NO ERROR

;GET ARQUND ERROR #

#6, (SP)

36$,3(SP)

428

PC,DTASTS
418

40%
0
(SP)+
#6, (SP)
39%,a(sP)
423

#TRE ,RMCS1]

42%
48%

JERROR # GOES HERE

;MOVE SP TO USERS ERROR (ALL
;MCVE ERROR # TO (ALL

;GO VERIFY RESULTS OF READ OPERATION
JRETURN HERE IF NC ERROR
;GET AROUND ERROR #
JERROR # GOES HERE
;STRIP RETURN ADDRESS TO SUBROUTINE
;MOVE SP TO USERS ERROR (ALL
;MOVE ERROR # TO USERS (ALL
;ANY CONTROLLER ERRORS ?

;BR

YES

;NO ERRORS DETECTED

:.'t'l'ttttt*t"t'ttti**l"tittt!tfi*t*tttt*fit'ttitt!tt"tttt'tttttttt

;AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE.
;THE SECTOR WILL BE RETRIED IF POSSIBLE.

034156
034162

222 034164
223 034172
226
225 034174
226 034202

227

:READ

000401
000000
062716
113776
000137

N
R NINVNINUNLNONINUNI
Y VOO NO NS WO SIBEINNNY
\OCb~v§R\nJ\uu\-

HAD

005337
100026

035070

42%:
;THE

032737
001004

100720

932737
001422

100000

001352
001400

43%:

DEC
BPL
RETRY

68%
45%
COUNT HAS

;YES, DECREMENT RETRY COUNT AND

JRETRY
EXPIRED -

SEE

THE

COUNT NOT NEGATIVE.

ERROR

IS MEDIA RELATED

BIT
BNE

ADCK .HCRC!HCE!FER!ECH,RMERT]

448

JYES, GO TRY NEXT AVAILABLE SECTOR

BIT

4BSE ,RMERZ]
46%

JANY MEDIA RELATED ERRORS ?
sNO. EXIT AND REPORT ERROR ON RETURN

BEQ

sANY MEDJA RELATED ERRORS ?

Ter 2

Mu{RO

nororoN

v04.00

&-APR-81

K 12

11:43:33 PAGE

16-4

SEQ 0153
:THE

WNRY

R
\ngbwm—'ooo

"JRMNBO ~¥15/3/72 FCTNL
BAD SEC”
MODULE

ERRORS DETECTED WHILE

TRYING TO RECOVER

THE BAD SECTOR FILE

;DUE TO THE MEDIA.
SEE IF THE BAD SECTOR FILF
SJANOTHER AREA ON THE LAST TRA(K

0346204
034212

034220
034222
034230

38 034232
239 034240

260 036244

062737

000002
000012

001420
001420

122737
001407

000040

001420

012737

000003
000006
033332

035070

122737

001413

162716

000137

44%:

ADD
CMPB
BEQ

45%:

#2 ,RMDAD
#10. ,RMDAD
468

;ADVANCE SETiOR ADDRESS BY 2
;QUIT IF ALL MFG SECTORS HAVE BEEN
s TRIED,

L6%

sTRIED.

C(MPR

#32. ,RMDAD

MOV

#3,68%

JMP

BEQ

SuB

ARE

CAN BE RECOVERED FROM

#6, (SP)

;QUIT IF ALL USER SECTORS HAVE BEEN
JREINSTATE RETRY CUOUNT FOR THIS SECTOR

;MOVE

SP BACK

TO NO ERROR

JRETRY THE READ OPERATION

;THE BAD SECTOR FILE CANNOT BE READ
034250
034252
246 034260
267 (034262
248 034266

000240

032777
001002
162716
000137

020000

1464674

0C0004
035064

46%:

NOP

BIT

BNE
SuB

L7%:

JMP

#SW13,8SNR

sINHIBIT MESSAGE ?

67%

.GO TO MODULE EXIT

47%
#4, (SP)

;YES
JMOVE SP TO ERROR RETURN

;THE SECTOR WAS RECOVERED WITHOUT ERROR - READ THE USER FILE

cTHIS

253 034272
034300
034302
256 034310

022737
001446
112737

012737

258 034316
259 034324

262 034330
034330
034332
263 034334
034340
034344
266 034352
267 C34360
268 034362
269 034364
034366
272 034372

273 034374

034400
034404
276 034406
277 034410
278 034412
034414
279

280
281 034416

104376

000012

007416

48%:

001420

THE MGF

FILE

OR ELSE

DONE.

CMP
BEQ
MOVB

#USRF 1L ,RMBAO
52%
#10. ,RMDAO

;WAS THE USER FILE READ ??
JYES - READ IS COMPLETE
JREAD THE USER FILE LAST TRACK,

4#3,68%

JRELOAD THE RETRY (COUNT FOR THIS SECTOR

104376

0014176

MOV

000003
033332

035070

MOV
JMP

#USRF IL ,RMBAC
3s

JPOINT TO USERS FILE BUFFER

SECTOR

.GO READ THE USER FILE

:DUMMY THE BAD SECTOR FILES

49%:

000374
000014

177777
177777

103370
104376

50%:

001371
012601
012600

000006
103370
104376

RO,-(5P)
R1,-(SP)
#252. R}
214 RO
#-1,MFGFIL(RO)
#-1,USRFIL(RO)

;;PUSH RO ON STACK
::PUSH R1 ON STACK
JR1 = NUMBER OF ENTRIES IN FILES
;RO = ADDRESS INDEX TO FILE
STORAGE
ENTER ALL ONES IN MFG FILE
ENTER ALL ONES IN USER FILE

DEC
BNE

R1
50%

.DECREMENT COUNT
JCONTINUE IF NOT DONE

?ez

zg..R1

s CLEAR HEADER,

(LR

MFGF
IL (ROQ)

TST

001367

072701
005000
005060
005060
005720
005301

MOV
MOV
MOV
MOV
MOV
MOV

51¢%:

(LR
187

DEC
BNE

MOV
MOV

(RO) +

USRF
IL (RO)

;ADVANCE ADDRESS

CLEAR

(RO) +

;ADVANCE ADDRESS

(SP)+ ,R1
(SP)+ RO

;;POP STACK
;:POP STACK

R1
51%

%ggf MEDIA ENABLE

AND

RESTORE

THE

USERS PUT

INTO R1
INTO RO
BUFFER

ID'& SER]AL

NUMBERS

10.

“JRMNBO RMOS/3/2 FCTINL

BAD SECTOR MODULE

03446
282 034420

283 034422
284 034430

285
286
287
Sgg

034436
0364442
034446
034450

010046
005000

012737
(16060

062700
02¢79C
103370
012600

T1ST 2

177°//
101360

MA_RO v04.CO

001512
001412

4-AFR-81
MOV
CLR

53%:

MOV
MOV

ADD
(MP
BHIS
MOV

L 12
11:43:33 PAGE 16-5
RO,~-(SP)
RO

;:PUSH RO ON STA(K
JRO IS REGISTER INDEX

#2 ,RO
#46,R0
53%
(SP)+ ,RO

;ADVANCE RO
;DONE 2?

#~1,MEDENB
BUFFER(RQ) ,PUTBUF (RD)

;;POP STACK INTO RO

290

M t.tfit"tittfit.'filfitttt'tiifitfiifiitt.tttl‘t'tti.ttQ'tt't""'.'.t'

2N
232
293

VERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FIC
;AND NOT IN THE USERS BAD SECTOR FILE. ASSIGN A NFW SECTOR IF THE
ISECTOR IS IN ANY OF THE FILES.

29‘

;"titttt!tfi't.tt'**fi"tt*t'ttfifitt*l"**fittt'l.'ttt"t't'tt'fi.tt'tt'

295

296
297 034452
034452
034454

034456
298 034460
299 034466
300 034474
301 034476

302
303
304
305
306
307

034502
034504
034510
034516
034520
034524

311
312
313
314
315
%}g

034534
034536
034540
034542
034544
034546

308 034526
309 034530
310 034532

010046
010146
010246
013737
013737
005002
013700
005400
012701
032737
001402
012701
020100
101404
005700
001405
005202
000403
160100
005202
000767
010237

;LOAD INITIAL VARJABLES AND COMPUTE THE NUMBER OF SE(TORS
56%:
Mov
RO, =(SP)
;;PUSH RO ON STA(K
MOV
R1,~(SP)
;;PUSH R1 ON STACK

001446
001420
001414
000400
000002

001472

000402

55%:

56%:
035070

57%:

318
319

gg?

322 034552
323
324 034560
325 034564
326
327 034572
gsg 03?576

330 034602
331 034610
%g% 034616
334

MoV
MoV
MoV
CLR
MoV

00°'514
001516

NEG
MoV
BIT
BEQ
MoV
(MP

BLOS
TST
BEQ

INC
BR
SUB
INC
BR
MoV

R2,=(SP)
RMDCO,ASNDC
RMDAO, ASNDA
R2
RMWCO,RO

;;PUSH R2 ON STA(CK
;LOAD REQUESTED CYLINDER, TRA(K,
:AND SECTOR ADDRESS IN ASSIGNED STORAGE
;R2
= NUMBER OF SECTORS
‘RO
= WORD COUNT

56%
RO
57%
RZ
57%
R1,RO
R2
55%
R2,68%

JYES 1!
;1S RO ZERO 77
JYES !
s INCREMENT FOR PARTIAL SECTOR

o
#256. ,R1
#BIT1.RMCS10
55%
#258. ,R1
R1,RO

:MAKE NUMBER POSITIVE
;R1 = NUMBER OF WORDS PER SECTOR
;1S THIS A HEADER AND DATA COMMAND ?°
:NO !
; CHANGE WORDS PER SECTOR
;1S THERE A FULL SECTOR ??

;SUBTRACT ONE SECTOR FROM WORD CGuUNT
s INCREMENT SECTOR COUNT
;SAVE SECTOR COUNT

;LOAD PARAMETERS AND SEARCH THE MFG/USER SECTOR FILE FOR THE
JASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT SECTORS IF THE

012737

103404

004737
012737

034602
104412

004737
000137

034602
035042

013737
013737
013737

001514
001516
035070

035100

;SECTOR COUNT IS MORE THAN ONE.

035100

035074
035076
035072

58S$:

mov

AMFGFIL+14,72%

JSR
Mov

PC,58%
WHUSRFIL+14,72%

JSR
JMP

PC,58%
66%

mMov
Mov
MOV

ASNDC, 70%
;LOAD COMPARING CYLINDER ADDRESS
ASNDA,71%
;LOAD COMPARING TRACK, SECTOR ADDRESS
68%,69% ;LOAD NUMBER OF SECTORS TO CONFIRM

;SETUP FOR A BINARY SEAR(H OF

THE STARTING ADDRESS OF MFG FILE
:TO BASE ADDRESS STORAGE.
;GO SEARCH FILE
;LOAD STARTING ADDRESS OF USR FILE
;TO BASE ADDRESS STORAGE.
;G0 SEARCH FILE
;DONE WITH ALL FILE SEARCKFS !!

THE CURRENT FILE FOR THE (OMPARING

SEQ 0154

TZRMNBC RMO5/3/2 FCINL

BAD

SECTOR MODuULE

335
336 034624
337 034694
338 034630
335 034634
34,0 034636
341 034642
342
3,3
34
345 034644
36 036644
347 034652
348
349 034654
350 034662
351
352 034664

353 034666
354,
355

356
357
358
359
360
367
362

363
364
365
366
367

368
369
370
371
372
373
374

034670
034670
034674
034702
034704
034710
034714
034722
034724
034730
034734
034742
034744
034750

034760
034764
034772
034774
035000
035004
035012
035014
035020
035024

389 035032
390 035034

391

MACRO

v04.00

4-APR=-81

%gzgxnosn.

013700
022710
001446
021037
001010

M 12
11:43:33 PAGE 16-6

SEQ 0155

035100

177777

TRACK AND SECTOR ADDRESS

mov

608:

(MP
BEQ
MP
BNE

035074

72%.R0

:LOAD THE BASE ADDRESS IN RO

#-1.(RO)
64%
(RO), 708
628

“IS THIS FILE TERMINATOR ?
‘BR IF YES
:DOES TABLE ENTRY = COMPARING CYLINDER ?
“BR IF NO

sFILE ENTRY EQUALS COMPARING CYLINDER.
. THE

000003

035077

- 000002
126037
001402

035076

126037

001004

022020
000760

61%:

COMPARING

(MPB

62%:

TRACK,

AND

.ADVANCE

105237
122737
103337
105037
105237
123737
103327

005037

005237
022737
103317
005037
000714

001516
000037
001516
001517
001335

001516
001514

001466

63%:
001516

001517

3(RO),71%+1

035072

105237
122737
103022
105037
105237
123737
103012
005037

035076
000037

035074

035076
035077
001335

035077

103002
005037

035076
035074
001466

035074

THE NEXT ENTRY EQUALS

;DOES TABLE ENTRY = COMPARING TRA(CK ?

63%

;BR IF YES

CMP
BR

(RO)+, (RO)+
60$

;NO, ADJUST CYLINDER POINTER IN BAD FILE
JAND CONTINUE SEARCH.

:BR IF NO

2(R0O),71%

;DOES TABLE ENTRY = COMPARING SECTOR ?

TRACK AND SECTOR IS IN THE BAD SECTOR FJLE.

THE ASSIGNED SECTOR AND START

INCB
CMPS
BHIS
CLRB
INCB
CMPB
BHIS

ASNDA

s INCREMENT

#31. ,ASNDA
58%

SECTOR

JSECTOR OK ??
JYES !!

ASNDA

ASNDA
+1

THE SEARCH ALL OVER.

;CLEAR SECTOR AND ADVANCE

LSTRK+1,ASNDA+T
58%
ASNDA
ASND(C

;TRACK OK ?
JYES !
sCLEAR TRACK AND SECTOR
;s INCREMENT CYL INDER

58%

JYES

#822. ,ASNDC
ASNDC

JCYLINDER OK ??

;START AT CYLINDER O

58%

COMPARING SECTOR

TRA(CK

;SEARCH NEXT SECTOR

IS NOT

IN THE BAD SECTOR FILES.

DECREMENT

THE

sNUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR [F THE NUMBER
;1S NOT ZERO.
64%:
DEC
69%
sDECREMENT NUMBER OF SECTORS TO (OMPARE
BEQ
67%
;DONE IF ZERD

005337
001442

005237
022737

CMPS
BEQ

cmp
BHIS
CLR
B8R

001514

SEE

62%

CLR
INC

001514

SECTOR.

BNE

:THE COMPARING CYLINDER,

;THE

375 034752
376 034752
377 034756

378
379
380
381
382
383
384
385
386
387
388

1sr

035074

INCB
CMPB
BHIS
CLRB
INCB
(MPB
BHIS
CLR
INC
CMP
BHIS
CLR

71%
#31.,71%
65%
1%
71%+1

L STRK+1,71%+1
65%
718
70%
#827.,70%
65%
70%

s INCREMENT THE COMPARING SECTOR
;SECTOR OK 2?7
JYES !
JCLEAR SECTOR
s INCREMENT TRACK

;TRACK OK ??
JYES !
;CLEAR SECTOR TRACK
; INCREMENT CYLINDER

sCYLINDER OK 2?
JYES !
;START AT CYLINDER O

JRMNBO RMOS/3/72 FCTHL

BAD SECTOR MODULE

392 (35040
393

394
395 035042
396 035042
397 035050
398 035056
035060
035062

399
4«00 035064
40 035066
402
403
404
405 035070
406 035072
607 035074
408 035076
409 035100
410 035102

TST 2

MACRO v04.00

000671

658:

4-APR-B1

éQESIGN THE

013737
013737
012602
012601
012600
00024C
000207

001514
001516

001446
001420

67%:
;THE

000000
000000
000000
000000
000000
000006

59%

mov

ASNDC .RMD(CO

MOV

(S5P)+ RO

MOV
MOV
MOV

NOP
RTS

ASNDA . RMDAQ
(SP)+.R2
(SP)+.R1

708 :

JWORD

728+
738 :

WORD
WORD

;LOAD CYL INDER

SLOAD TRACK AND SECTOR
1;POP STACK INTO R2

*:POP STACK

INTO R1

1:POP STACK INTO RO

FOLLOWING ARE

LWORD

71%:

;SEARCH NEXT SECTOR

SECTOR AND RETURN TO USER

68%:

69% :

N 12
11:43:33 PAGE 16-7

"WORD

0
0

STORAGE

LOCATIONS FOR

THE MODULE

;RETRY COUNT/ NUMBER OF

SECTORS REQUIRED

*NUMBER OF SECTORS TO COMPARE
*COMPARING CYLINDER

*COMPARING TRACK AND SECTOR

*BASE ADDRESS OF
*CONTAINS RMER?

BAD SECTOR FILE BEING SEARCHED

.SBTTL
;THIS

13
7
]

BUFFER GENERATOR SUBROUTINE
SUBROUTINE

GENERATES A DATA BUFFER FOR WRITE

IS RMW( WORDS LONG.

(OMMANDS.

THE BUFFER

THE

;CONTAINS A REPETITIVE DATA PATTERN (ONSISTING OF $TMP1 WORDS

;FROM THE DATA PATTERN TABLE, BEGINNING AT ADDRESS $TMPO.
SHEADER INFORMATION FOR THE BUFFER IS EXTRACTED FROM RMDC,
JRMDA AND RMOF
.

:R1
:R2

ADDRESS OF DATA BUFFER
LENGTH Of DATA BUFFER
ADDRESS OF DATA PATTERN

;R4

SECTOR COUNT

;R3 - LENGTH OF DATA PATTERN

sCALL:
2 (1)

—h e

D mad ad

& SNE VI3 PONFEmR3R

QOO0 OLVOON

N AN N AN N N N N NN
VANV

;(2)

OOO00O

O00CUL

010000

N) =t —2 —>

001412

[LS],¥]
-2

000002

[,-¥)

032737
001445
013719
052710
012702

035336
035340

50 035244

035252

52 035254

001416

001414
001446
001420

005201
001443

035224
035230
035232
035234
035236

:
GENBUF

013701
013737
013737

L RV
VLIV
IV
R

010046
010146
010246
010346
10446
013700

032737
001404
05¢710
012702

49 035240
51

1%:43:33 PAGE

;BUFFER STARTS AT RMBA AND

NN WAL
SV
IV VIV

N)d
b bt 2l

W
w

44
45
46
47
48

4-AFR-81

SEQ 0157

[

MATRC v06.00

OOV
NP AL WA 2O 000 VO NN

JEMNBL RMCS5/3/72 FCINC TST 2
BLFFER GENERATCR SUBROUTINE

005720
013720
005201
001436
012703
105213
120213
103013

105013
105263
123763
105004
105063

10%:

035336
140000
000035

001444

15¢:

035740

000001
001335
000001

00C001

PC ., GENBUF

MOV
MOV
MOV
MOV
MOV
MOv
MOV
MOV
MoV

RO,=(S8P)
R1,-(5P)
R2.,=-4{SP)

BIT
BEQ
MOV
BI%
MOV

BIT
BEQ
BIS

010000
000037

035340

JSR
2?

RETURN HERE

R3,~(SP)
R4 ,-(SP)
RMBRAO,RO

RMW(O,R1
RMD(CQ,60%
RMDAQ,65%

;sPUSH RO ON STA(CK
;.PUSH R1 ON STA(K
;:PUSH R2 ON STA(K
;:PUSH R3 ON STA(CK
;;PUSH R4 ON STA(K
;LCAD DATA BUFFER ADDRESS
sLOAD WORD COUNT
;LOAD STARTING CYLINDER ADDRESS
;LOAD STARTING TRACK,SECTOR ADDRESS

#3iT1,RMCS10

;:8{]5 HEADER & DATA??

25%
608, (RO)

#MSE [USE, (RD)
429. ,R2

HFMT16,RMOFO

‘WRITE YEADER WORD #1

*SET BAD SECTOR FLAGS FOR GOOD SECTOR

*R2 = MAXIMUM SECTOR ADDRESS (29.)

;18 BIT FORMAT??

15%

JYES

MOV

#31..R2

s CHANGE MAXIMUM SECTOR ADDRESS

INC
BeQ

R1
50%

; INCREMENT WORD COUNT
JEXIT IF DONE

TST
MoV
INC
BEQ
MOV
INCB
(MPS
BHIS
CLRRB
INCB
CMPB
BHIS
(LRB

+
(RO
65%, (RO)+

;MOVE RO TO HEADER WORD #2

#FMT16, (RD)

50%
#65%,R3
(R3)
RZ, (R3)

25%

;SET 16 FORMAT BIT IN HEADER

;WRITE HEADER WORD #/

s INCREMENT WORD COUNT AND
JEXIT IF DONE
;ADVANCE

SECTOR ADDRESS

;ggcyoa OVERFLOW 2?2

“YES< CLEAR SECTOR ADDRESS

(R3)
1(R3)
LSTRK+1," (R3)

*ADVANCE TRACK ADDRESS
;TgAg§ OVERFLOW 22

1(R3)

*YES = CLEAR

25%

JNO

TRACK

ADDRESS

(31.)

JRMNBO RMOS/3/2 FCINL

RUFFER GENERATOR

035260
035264
035270
035274
035300
035302
035304
035306
035310

035312
035314
035316

035320
035320
035322

035324
035326
035330
035332
67 C35334
68
€9 035336
70 035340

TST 2

SUBROUTINE

105237

012704
013702
013703
012220
005201
001405
005304
001714
005303
001765
000770
012604
012603
012602
012601
012600
000240
000207
000000
000000

03533¢

(u0400

001174
001176

MACRO vG4.00

4-APR-81

c13

11:43:33 PAGE

17-1

SEQ 0156

25%:
30%:

INCB
MOV
MCvV

60%
#256. R4
$TMPO ,R2

MOV
INC

BEQ
DEC
BEQ

(R2)+,(RO)+
R1
508
R4
108
R3
308

MOV

(SP)+ R4

MOV

50%:

BEQ
DEC

50%:

B8R

MOV
MOv

MOV
MOV
NOP
RTS

60%:
65%:

.WORD
.WORD

$TMP1 RY

40%

(SP)+,R3
(SP)+ ,R?
(SP)+ R}
(SP)+ RO

JADVANCE CYLINDER ADDRESS
;LOAD SECTOR DATA (OUNT
;LOAD PATTERN ADDRESS
:LOAD PATTERN COUNT
WRITE DATA PATTERN
; INCREMENT WORD COUNT AND
JEXIT IF DONE
;DECREMENT SECTOR COUNT
;START NEXT SECTOR IF

;DECREMENT PATTERN (OUNI
csRESTART PATTERN [F (
s CONTINUE DATA PATTERN

. ;POP
. sPOP
::POP
;.POP
;.POP

STACK
STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO
INTO

R4
R3
R2
R1
RO

sCYLINDER ADDRESS STORAGE
;TRACK,

SECTOR ADDRESS

STORAGE

(ZRMNBO RMQOS/3/2 FCINL TST 2

.SBTTL
sTHIS

YO N
d =D

W= OOV

b
e
el

(OMPARE BUFFER SUBROUTINE
SUBROUTINE

COMPARES

THE

CONTENTS

BUFONE

AND BUF TwO,

:COMPARISON ARE REPCRTED TO THE USER VIA THE USER'S ERROR (ALL.
sCALL:
(D

JSR

. WORD

:(2)

.WORD

2 (6)

?27?

:(4)
:(5)

NO N

—

D 13

11:43:33 PAGE

;ASSUMING THAT BUFONE 1S THE BUFFER FROM WHICH DATA WAS WwR]TTEN
;AND BUFTWO IS THE BUFFER TO WHICH DATA WAS READ. ERRORS IN BUFFER

010046
010146
010246
010346
005037

27 035406
28 035414
31 035416
32 035422
33 035426

013700
013701
052737

001416
001402

36 035434
37 035440
38 035442

022701

000020

39 035446

40 035450
41 035452
42 035456

103004
162701

005720
000771
012702
01C203

MOV

001370

100000

007352

000100

001352

010000

001370

100000

sDETERMINE

BIT

READ BUFFER ADDRESS

RETURN HERE IF ERROR
ERROR DEF INED BY SUSROUTINE

RO,-(SP)
R1,-7SP)
R2.~(SP)

;PUSH RO ON STA(K
;;PUSH R1 ON STACK
;;PUSH R2 ON STACK

150%

:CLEAR CORRECTION FLAG

;;PHSH R3 ON STA(CK

DATA SHOULD BE CORRECTED

UAS ECC CORRECTION ALLOWED

BIT

#DCK ,RMER1]

UAS

BIT
BNE

#ECH,RMER1!
80%

;IS ERROR CORRECTION HARD SET
JYES !

BIT
BEQ
;CORRECT

RETURN HERE IF NU ERROR

ECI.RMOF ]

BEQ

80%
80%

#FMT16,RMOF ]
80%

JNO

THERE A DATA CHRECK

;IS THIS 16 BIT FCRMAT
JNO

#81715,150%

20%:

;SET CORRECTION FLAG

:MOVE RO TO WORD BOUND?RY CF ERROR BURST
108:

°°

DATA USING ECC INFORMATION
MOV
RMBAQ RO
;RO = STARTING BUFFER ADDRESS
MOV
RMECTI.R1
;R1T - ECC POSITION

815

000020

000001

BNE

035702 ,

WR.TE BUFFER ADDRESS

R3,=-(SP)

CLR

#16..R

;IS BIT POSITION > 1

égf

582)+

;ADVANCE BUFFER ADDRESS

#1,.R2

;RZ = BIT POINTER

BHIS
su8

MOV

MoV

20%
#16. ,F1

R2,R3

H
U
;SUBTRACT

WORD

WORDS WORTH
1

WORD

;R3 = BIT NUMBER

;MOVE R2 TO STARTING BIT OF ERROR BURST

49 035470
g? 035472

020301
001403
006302
005203
000773
012703

0000613

35%:

52
53 035476

030237

001404

40%:

035460
035462
035464
035466

MOV
Mov
MOV

035702
004000

P{, CMPBUF

NOP
ERROR

:
CMPRUF

033737
001063
032737
001457
032737
001053
032737
001447

45
46
47
48

4-APR-81

SEQ 0159

NN -2

TOMPARE BUFFER SUIBROUT
INE

MA{RO v06.00

30%:

{MP
BEQ
ASL
INC
BR
Mov

R3,R1
35%
R2
R3
308
#11.,R3

;CORRECT THE ERROR BURSI
8IT

R2,RMEC2]

;1S R3 SAME AS R1 ??
JYES !
JSHIFT BIT POINTER
; INCREMENT BIT NUMBER

;R3 = LENGTH OF ERROR BURST
;IS THIS BIT

SET

[N ECC PATTERN ??

JAMNBC RMOS/3/2 FOTNL

BUFFER SUBROUT INE

NONNOOSNO

(17600
062766

OOOCOOOOO

68 035534
69 035540

—

001003
012702
005720
005303
001361

70 035546
71 035552

72 035560

73 (35564

764 035570

75 035572

76 035574
77 035576

78 035600

MATRC

v04.00

4-APR-B8"

BEQ
alT
BEQ

000401
050210

017601
062766
013702
163702

022021
001003
005302
001374
000433

81 035602
82 035606
83 035612

608 :
000001

:COMPARE

000010

;:DATA

000010
000010

035642

100000

035702

000163

000010
000010

000240

035670
035672
035674
035676
9% 035700

012603
012602
012607
012600
000207

58 035702

006000

000002

'8-°

RZ2. (RO)

1008:

R2
708
21 ,R2

BNE

408

JCONTINUE WITH ¢ iRST BIT OF NEXT WOKD
:END OF

INO

SUB

RMWCO.R2

BNE
DEC
BNE

1008
R2
90$

CMP

COMPARE

Mov
MOV
MOV
MOV

RMW(C I ,R2

;RO =
*MOVE
*R1 =
‘MOVE

BURST

WRITE BUFFER
SP TO READ ADDRESS
READ BUFFER
SP TO RETURN ADDRESS

‘R2 = NUMBER OF WORDS TRANSFEK

(RO)+. (P1)+

: COMPARE DATA WORDS

1108

:DONE

FAILED

YEXIT IF NOT EQUAL
*DECREMENT WORD COUNT
SCONTINUE IF NOT DONE
COMPARE

- NO ERROR

-(RO) , $GDDAT
-(R1) . $BDDAT
RO, $GDADR
R1.$BDADR

:STORE GOOD DATA FOR TYPEOUT
*STORE BAD DATA FOR TYPEOUT
*STORE ADDRESS OF GOOD DATA
:STORE ADDRESS OF BAD DATA

#4.10(SP)

:MOVE

RZ2.$TMPO

#336,210(SP)

: CHANGE ERROR NUMBER

8IT
3EQ
MOVR
532

TO READ BUFFER

210(SP) RO
#2.10(SP)
210(SP) ,R1
#2.10(SP)

MOVB

ECC

#81715,1508
1058
#163,210(SP)
#2,10(sP)

:STORE WORD COUNT OF [RROR

SP TO USER'S ERROR CALL

‘WRITE ERROR NUMBER [N CAL.
CORRECTION FAILED

:WAS ECC CGRRECTION USED 2°
INO !
$ECC CORRECTION FAILED
*MOVE SP TO RETURN If ERROR

MOV

MOV
MOV
MOV
RTS

150%:

;SET THE BIT

SSHIFT TO NEXT B]T

(RH)+
R3

WRITE BUFFER

ADD

110%:

SRESET THE BIT

MOV
ADD
MOV
ADD

MOV

105%:

;NN = DO NOT CORRECT THIS BIT
SIS THE BIT FRESENTLY SET 22
*ND

608

ASL
BNE
MOv

85 035622
86 035¢26
87 03563%4

N 835650

8!S

MOV

90% :

001140
001142
001134
001136
001174
000004
000336

84 035616

80$ :

R2. (RO)

TST
DEC

70$:

608
R2, (RO)
50§

BIC

B8R

50%:

006302

000010
000002
00070
000002
001340
001414

€13

"1:43:33 PAGE

SEQ 0160

001405
030210
001402
040210

AN NN N NN N N N
VU AUVNWA LA
A
A
Y LYY, IV
WNANNINIA)
b b 2

CMPARE

TST 2

.WORD

{SP;+,R3

(SP)+.R2
(SP)+ R1

(SP) + RO
PC

::POP STACK

1:POP STACK
$:POP STACK

INTO R3

INTO R2
INTO RI

SPOP STACK INTO RO
SRETURN TO USER
;ECC

CORRECTION FLAG

PRSIL
NUTUT

HROOTINE

MAIRO 104.00

4-APR-B1

OOV NN~

a s

W 2OV NS AR
—
N
VBN

SEQ (16!

LSBITL

TUONIPONUPORUNUNORGAY = b va A

11:643:33 PAGE 19

GET STATUS SUBROUTINE

sTHIS

SUBROUTINE

JAND

THEN RETURNS

SETS UP

THE

"'GET

INDEX

TABLE'® AND

THE

"GET

;BUFFER'" FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROU!
INE

sCALL:
:
035704
035704

035706

935710
035712
035716
035722
035726
035730
035732
(35736
0357640
035744
035746
035750
035752
035756

010246
012700
012701
012702
110220
005041
162702
100405
02270c
001370
005041
000770
112720
012602

035762
035764
035766

012600
000240
000207

035760

GETSTS:

(010046
010146

012601

00524
001406
000046
000002

2%:
3%:

000022

000200

4%:

TO THE USER.

JSR
g

PC.GETSTS

MOV
Mov

RO,~(SP)
R1,-(SP)

:sPUSH RO ON STA(K
:;PUSH R1 ON STA(K

#RME (2 ,R2
R2, (RO)+
-(R1)
#2,R2
4%
#RMDB ,R2
2%

JR2 = REGISTER INDE
JWRITF REGISTER INDEX IN TABLE
s CLEAR CORRESPONDING LOCATION
sDECREMENT TO NEXT INDEX
;BRANCH OUT IF DONE
;DONT WRITE RMDB [NDEX

MoV
MoV
Mov
MOV
MovB
(LR
SUB
BM]
(MP
BNE
(LR
BR
]
MOV

MOV

MOV
NOP
RTS

RZ,=(SP)
#GETINX,RO
#RMEC21+2,R1

=(R1)
3$
#200, (RQ) +
(SP)+ R2
(SP)+ R1
(SP)+ RO

RETURN HERE

;;PUSH R2 ON STA(K
;RO = ADDRESS OF INDEX TABLE
;R1 = ADDRESS OF GET BUFFER

;WRITE TERMINATOR
. :POP STACK [NTO R2
::POP STA(K INTC R?
;;POP STACK

[NTO RO

JRMNE

n‘;?"“’(-a'

3 JBRTINE

WS 20, 000 gD UNR,

.SBTTL

SUBROUTINE

:THIS SUBROUTINE READS

THE

REGISTERS WHI({K ARE

LISTED

IN THE

:"'GET INDEX TABLE'' AND STORES THEIR VALUES IN THE (ORRE SFOND NG
FOR EXAMPLE, AN
SLOCATION IN THE ''GET REGISTER BUFFER'',

SENTRY OF 04 IN THE

TABLE WILL CAUSE

SREAD “RMBA'' AND STORE

;THE

BUFFER ASSIGNED

THE SUBROUTINE

s
2.2

ITS (ONTENTS AT THE LOCATION IN

TO THAT REGISTER.

THE

NUMBER OF

JREGISTERS TO BE READ IS VARIABLE FROM 1 1D 22; THE
;TABLE MUST BE TERMINATED WIIH A CONTROL BYTE (200)
SWHICH SHOULD FOLLOW THE LAST ENTRY.

INDEX

;SUBROUTINE (ALL:
“'GET INDEX TABLE'' HAS BEEN LCADED WITH REGISTER INDEX

4 s cacd

VALUES AND

"'GET

TERMINATED WITH A CONTROL BYTE

INPUT BUFFER'' IS AVAILABLE FOR USE.

UNUSED LOCATIONS,
TO REGISTERS NOT
PC,GET

PORN)
4

GET

G 13

TTrak:4% PAGE

JSR
B8R
NOP
ERROR

I.E.,ENTRIES

READ,

7?2

ARE

NOT

(NOTE

THAT

IN BUFFER CORRESPOND
ING

CHANGED.)

RETURN HERE
RETURN HERE

IF
[F

NO ERROR FOUND
ANY ERROR FOUND

SUB DEF INES ERROR NUMBER

oo vl

;R4

POINTER

~O REGISTER

GET:

NOP
ADD

#4,(SP)

:R2
JR3 - BUFFER ADDRESS

000240
062716

105076
162716

036014
036016
036020
036024
€36030
036034
036040
036044
036052

- OV~

WRUNONLN) —

32737

000004
000000

CLRB
SuB

000004

MOV
MoV
MOV

000004
000006
001276
001336
001524
036152
000300
000010
000000
004000

000004
000006
001174
001176
001176

000CC4
000112

000016
000016

INDEX

a(SP)

cCLEAR ERROR NUMBER [N USER'S
;ERROR CALL

RO,-(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)
R4 ,~(5P)
ERRVEC,=(SP)

;;PUSH RO ON STACK
;s PUSH RT ON STA(K
. JPUSH R2 OGN STACK
; ¢ PUSH R3 ON STACK
s sPUSH R4 ON STACK
;. sPUSH ERRVEC ON STA(K

#4, (SP)

ERRVE(L+2,-(SP)
$BASE ,RO

;;PUSH ERRVEC+2 ON STA(K

#GE TBUF ,R?
#GETINX,R4

#5% ,ERRVE(

1%:

#PR6,ERRVE(
+2

sSETUP FOR TIMEOQUT

RMCS2(RO
, $TMPO
) JGET 'WNED'' STATUS
RMCS1(R0O),$TMP1 :GET "DVA'' STATUS
#DVA,STMPI

#6,16(SP)
g;!Z,&lé(SP)

;DEVICE AVAILABLE??
JYES!!

JWRITE

ERROR NUMBER
L
:ERROR (AL

[N uSER'S

7%:

177700

(R&)

9%
(R4) R

#°C[DXMSK
RT

;DONE??
JYES!!

sR1

= REGISTER ADDRESS

;CLEAR ANY SIGN EXxTENTT N

o rere

30
3 035770
3¢ 035772
33 035776
A 036002
35 036006
036010
036012

WY
¥ W

JRYNB. RMOS/ 372 F TN

£°

VYRS

SIBROUT INE

)

060001

112403

04270%
060203
011113
000764

622626
062766

112776
162766
105714
100405

1777¢0

000004
000007
000002

000076
000016
00001¢

5%:
7%:

8$%:

036236

012600
000207

80006
000004

9%:

RG,R1
(R&)+ R3

2°CIDXMS
,R3
K

iR3_

STORAGE ADDRESS FOR RELISTHK

st EAR ANY SIGN EXTENSION

R2 ,R3

(R, (R
L 3

READ REGISTER

{MP

(SP)e+_ (SP)e
86, 16(SP)

SRESTORE STA(K
SWRITE ERROR NUMBER N

ADD

MOVB
SuB
TSTB
8m]
(LR

mMove
ADD

060203
005013
000771

H 13
IET
IRE
R WIS

ADD

MOV
B8R

112403

012602
12601

4=-APR-81

ADD
wvR
BIC

005003

012637
012637
012604
012603

(LR
BR
MGV
MOV

MOV

MOV
MOV
MOV
MOV
RTS

87,216(5P)
#2,16(SP)
(R4)

9%
R3
(R
+4
,R3
R2,.R3
(R3)

SUSER'S ERROR (ALL

:2g§E‘(LEAR1NG??

SCLEAR REMAINING STORAGE

*LOCATJONS

(SP)+ ,ERRVE(+?2
(SP)+ ERRVEC

(SP)+ R4
(SP)+ ,R3
(SP)+ ,R2
(SP)+,R1
(SP)+,RC

+sPOP STACK INTO ERRVE'
¢/
;:POP STA(CK INTO ERRVE(
;<POP STACK INTO R4

;sPOP STACK INTO R3
;.POP STACK INTO R2
:cPOP STACK [NTO R?
;.POP STACK
JRE TURN

INTO RO

JRVNBC RMOS/5/2 pLT
SUBROUT INE

ML RD

o
20O RSN,

PUT SUBROUTINE

THE

LAST

ENTRY,

(200)

wHICH SHOULD

S NN
— OO

000~
NOMN O

;R4

000240
010046
010146
010246
010346
010446
013746
013746
013700

036300

036306
036314

036362

PUT:

000004
000006
001276
001412
001553
036410
000300
000010
000000
004000

000004

000424

000112

105714

100425
111401

1%:

000016
000016

177700

042703
060203
211311
105724

177700

TO BE
PC,PUT

(ONTENTS

WRITTEN.

2272

BUFFER BASE ADDRESS
BUFFER ADDRESS
POINTER

NOP

MoV
MOV
Mov
MOV
MoV
MOV
MOV
MOV
MOV
Mov
MoV
MOV

MoV
MoV
BIT
BNE

MOVB
BR
TSTR

BMI

MOYB

BIC
ADD
MovB

BIC

4%:

TO BE WRITTEN,

RETURN HERE
RETURN HERE

EA(H

IF
IF

NO ERROR FOUND
ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

ADD

3%:

042701
060001

111403

000004
000006
001174
001176
001176

"PUT

JSR
B8R
NOP
ERROR
22

‘RO
:R3

INDEX TABLE'' HAS BEFN LOADED WITH INDEX VALUES

REGISTERS

:R1
:R2

"PUT
OF

[T|

TERMINATED WITH A (ONTROL BYTE

(M)

036370
036372
<8 036374
49 036400
50 036402
236404
ql

*SUBROUTINE CALL:

NPAE WA

;8BE

45 036364

77 :43:33 PAGE

StQ 016l

JFOLLOW

C36322
036330
38 036336
79 036340
40 036346
41 036354
42 036356
43 036360
44

S=APN=BT1

sTHIS SUBROUTINE WRITES THE REGISTERS WHI(H ARE L]STED IN THt
J'PUT INDEX TABLE'' WlTH THE (ONTENTS OF THE (ORRESPONDING
SLOCATION IN THE "PUT REGISTER BUFFER''.
THE NUMBER OF
SREGISTERS WRITTEN IS vARIABLE.; THE INDEX TABLE MUST

036240
036242
036244
036246
036250
036252
036254
036260
30 036264
3 236270
32 036274
34
35
36
37

ple
0

.SBTTL

NINNLNS
NONONINIPONUNIN)
<4 b b b b e b e

PLT

ST |

ADD
MOV
TST18

TO REGISTER

INDEX

RO,-(SP)
R1,-(SP)

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

ERRVE(,=(SP)
ERRVE(C+2,-(5P)
$BASE RO

#PUTBUF ,R2
#PUT INX R4

#5% ,ERRVEC
HPR6 ,ERRVE(C+2

;cPUSH RO ON STA(K

2;PUSH R1

ON STACK

;:PUSH R2 ON STACK
;sPUSH R3 ON STA(K

;.PUSH R4 ON STACK
. sPUSH ERRVEC ON STA(CK
;:PUSH ERRVE(+2 ON STA(K

sSETUP FOR TIMEOQUT

RMCSZ(RO) ,$TMPO ;GET 'NED'' STATUS
RMCS1(R0O),$TMPT :GET 'DVA'* STATUS

#DVA,$TMP

;eg\sqgs AVAILABLE??

#4,16(SP)

“WRITE ERROR NUMBER [N

#112,216(SP)
7%
(R&)
9%
(R&) R
#°C]DXMSK,R1
RO,R1

“USER'S ERROR CALL
;DONE??

JYES!H!
;R1 = REGISTER ADDRESS

;CLEAR ANY SIGN EXTENSION

(R&) ,R3

;R3 = STORAGE ADDRESS

R2,R3
(R3),(R1)

sWRITE REGISTER

#~CIDXMSK,RS

(R4)+

sCLEAR ANY SIGN EXTENSION

JADJUST REGISTER POINTER

« "%\
..

RMCS, Br7e

Tos BRNCTINE

50 (36406
53
54 0364610
59 036412
$6 036420
57 036426
58
59 036434

4.TL

4=APR=8"

'":43:33

J ] 13
PAGE

1= 1

SEQ 0165

B8R

(00763

022626
062766
112776

62766

036434
036440
036444

(12637
012637
0126064

036450/

012602

036446 /812603

036452
036454
A8 036456

012601
012600

000207

000004
000007
000002

000006
000004

000016
00001¢

000016

5%:

7%:
9%:

(mP

‘SP)+,(SP)e

ADD

#6,16(SP)

MOV

SUB

MOV

27,316(SP)

#2,16(5P)

(SP)+ ,ERRVE(+2

MOV

(STM2)+

MOV

(SP)
+ R4

MOV

(SP)+ ,R2

MOV

MOV
MOV
RTS

ERRVE(

(SP)+ R}

(SP)+
R
LSP)+ RO

;ADJUST

STA(K

JWRITE ERROR NUMBER N
JUSER'S ERROR CALL

:;POP

. cPOP
:sPOP
1POP
;sPOP
*1POP
11POP

STA(K
STACK
STACK
STACK
STACK
STACK

sRETURN

STACK

JNTO
INTG
INTO
INTO
INTO
INTO

[NTO ERRVE(*2

ERRVEC
R4
R3
R?
R1
RO

LAN

JRMNBG RMOS/3/¢ FOTNL
JE
000K SUBROUT INE

ML R0

,06.00

4-APR-81

LSBTIL

3 036469
& 036460
S 036464

013746
013746

000004
000006

012737

000100

6 036470
7 036476
8 036504

012737
012737
012737

10 036520

005777

12 036526
13 036530
"4 036536

022626
012737
012737

9 036512

036524

15 036544

16
17
'8
;g

000421

012737

036552
036556
036560
822298

005777
000404
022626
062766

036570
21 036574
22 036600

012637
072637
000207

036526
000300
177546
142774

036560
172540

SIZCLK:

000004
000006
001520

001522

000004
001520

000104

001522

000002

000004

142742

000006
00C004

CLOCK SUBROUTINE

MOV
MOV

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

s sPUSH ERRVE(C ON STA(K
; ;PUSH ERRVE(C+2 ON STA(K

MOV
MoV
MOV

#1$ ,ERRVEC
#PR6,ERRVE(+?2
#177546,CLKADR

TST

a( KADR

JTEST FOR KW11=L PRESENT

CMP
MoV
MOV

(SP)+,(SP)+
#2%8 ,ERRVEC
#1725640,CLKADR

JRESTORE SP
;SET UP FOR BUS TIMEOUT
;LOAD ADDRESSES FCR KW11-P (LOCK

MoV

2%:
3

SIZE

MOV

1%:

K 13

17:43:33 PAGE

#100, CLKVCT
3%

#1064, CLKVCT

;SET UP FOR BUS TIMEOUT

;LOAD ADDRESSES FOR KwWl®-L
JYES = KW11=L

IS PRESENT

TST
B8R
CMP
ADD

aCLKADR
3%
(SP)+,(SP)+
#2,4(SP)

;TEST FOR KW11-P PRESENT
JYES = KW11=-P IS PRESENT
JRESTORE SP
;MOVE RETURN TO ERROR

MOV
MOV
RTS

(SP)+ ,ERRVE(+?2
(SP)+ ERRVEC
PC

;.POP STACK INTG ERRVE(+2
;,POP STACK INTO ERRVEC
JRETURN TO USER

JeMNEC BMO5/372 FOINL
TIME LTS BROUTINE

MACRO v04.00

4-APR-B1

LSBTTL
2

sTHIS

9 036602
036602
036604
036606
036610
036614

10
11
12
13
14
15

SUBFIUTINE

:CALL:

036620
036626
036634
036640
036644
036650

010C46
010146
010246
013746
013746

012737
012737
013700
013701
012702
020127

TIMOUT:

000004
000006

036722
000300
001276
001520
000036
172540

000004
000006

000001
000005

000002

16 036654
'7 036656
}g 036664

001003
012761
012711

20
21
22
23

036670
036674
036700
036704

016046
042716
022726
001420

25
26
2/
28
29
30
31
22
;2

036712
036714
036716
036720

032711

001766
005302
001354
000412

000200

036722
036724
036732
036740

022626
062766
112776
162766

000004
000007
000002

012637

000006

24 036706

35 036746
036746
36752
036756
036760
036762
36 036764

012637
012602
012601
012600
000207

1%:

000000
177576
000200

000004

2%:

3%:

4%:

5%:

WAITS

AN APPROX.

FOR

RDY

PC, TIMOUT

MoV
MOv
MoV
MOV
MoV

RO,-(SP)
R1,~(SP)
R2,~(SP)
ERRVE(C,=(SP)
ERRVEC+2,-(SP)

MoV
MoV
MoV
MoV
MOV
CMP

500 MSEC AND

JSR

#4% ,ERRVEC
#PR6,ERRVEC+2
$BASE ,RO
CLKADR,R1
#30. ,R2
R1,#172540

AND

G OR

THEN RETURNS.

;;PUSH
:PUSH
;:PUSH
: sPUSH

;SETUP FOR BUS

RMCS1(R0O),-(SP) ;GET STATUS
#*C<RDY.GOD>,
(SP)
ARDY, (SP) +
;RDY=1,G60=0??
5%
JYES.!

BEQ
DEC
BNE
BR

3$
R2
1%
5%

(SP)+,(SP)+
#4,12(SP)
#7.812(SP)
#2,12(SP)

MoV

(SP)+ ,ERRVE(C+?

MOV
M0V
MOV
MOV
RTS

(SP)+ ,ERRVEC
(SP)+,R2
(SP)+,R1
(SP)+,R0O
PC

TIMEQUT

TIMEOUT - 04

TRAP

;RO=BASE ADDRESS
JR1=CLOCK ADDRESS
;R2=NUMBER OF (CLOCK CYCLES
JKW11=P CLOCK??

MOV
BIC
CMP
BEQ

(MP
ADD
MOvVB
su8

RO ON STA(CK
R1 ON STA(K
R2 ON STA(K
ERRVEC,
ON STA(K
;;PUSH ERRVEC+2 ON STA(K

2%
#1,2(R1)
#BIT2!BITO,(R1)

4#B117,(R1)

FOR

RETURN HERE

BNE
MoV
Mov

BIT

000012
000012
00002

TIMEQUT SUBROUTINE

;GREATER

L 13

11:43:33 PAGE

;NO!!
;SET COUNTER
;START COUNTER

:TIMER DONE??

JNO!!
;DEC NUMBER OF CYCLES
JCONTINUE IF NOT DONE
:"RDY'' DID NOT SET OR "'GO'’ DID NOT RESET
;WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED.
;ADJUST STACK
sMOVE SP TO USER'S CALL
;WRITE ERROR NUMBER

;.POP STACK INTO ERRVE(C+2

;.POP STACK INTO
;.POP STACK INTO
. :POP STACK INTO
;.POP STACK INTO
JRETURN TO USER

ERRVEC
RZ
R1
RO

(ZRMNBO RMOS/3/2 FCINL

FRROR (HECK SUBROUTINES

TST 2

MACRO v04.00

4-APR-B1

M3
11:43:33 PAGE 24
SEQ 016E

.SBTTL

2
3

ERROR CHECKX SUBROUTINES

. ttt'ttttlttttttttt'tttttttttttttt.tnttttto'ttct-ntntt'.'tt'tttt

“SBTTL

S
6

PRIMARY ERROR CHECK SUBROUTINE

;THE PURPQOSE OF THIS SUBROUTINE IS TO VERIFY THAT
$THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE
:FOLLOWING CHECKS ARE MADE:

STATUS IS VALID AND
PERFORMED.
THE

.CORRECT UNIT

IS SELECTED,

I.E.,

THE UNIT SELECT BITS OF RM(S2

(ers 0-2)

.SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1) IS SET

.LAST COMMAND WAS COMPLETED, I.E., THE MASSBUS CONTROLLER IS

27777

"_NO PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS.

AND NED

16
17
}g

EQUAL

(BIT

THE UNIT BEING TESTED-

12 OF RMCS2)

IS RESET:

READY (BIT 7 OF RMCS1) AND THE GO BIT IS RESET (BIT O OF RMCST) OR THE
:DRIVE READY BIT (BIT 7 OF RMDS) IS SET.
P
Mcgg pAgxrv ERROR OCCURRED WHEN READING REMOTE REGISTERS,

21
22
23

;I.E., PAR

0, OR, PAR
= DPEf - 1

;
:THE SUBROUTINE ASSUMES THAT:

: CORRESPOND
ING LOCATIONS OF

.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER,

1~ PARTICULAR, RMCST1, RMCS2 AND RMDS HAVE BEEN STOREF IN THEIR
THE '‘GET'* BUFFER.

:THE SUBROUTINE IS CALLED AS FOLLOWS:

78D

35
36
37
38

:
;
;
;

2; 036766
062716
105076

-000004
000000

48
49 037002
50 037010
51 03701¢

013737
042737
013737

001346
177770
001234

001415
062716
112776

000004
000001

52 037024
§3 037032
54
55 037040
56 037042
57 037046

JSR

BR
NOP
ERROR
JSR

277

PC.PRIERR
293

PC,a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUR
GO BACK TC SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

PRIERR:

43
4L 036766
45 036772

29 036776

.(SUNIT) CONTAINS THE DRIVE NUMBER

162716

042737
123737

;CLEAR USLCR'S ERROR CALL
ADD
#4, (SP)
CLRB
a(SP)

000004

177770
001140

SuB

001142
001142
001140

001128
00
_
.
000000

#4, (SP)

;MOVE (SP) TO ERROR CALL
*CLEAR ERROR NUMBER

“MOVE

(SP)

TO NO ERROR RETURN

:REPORT AN ERROR IF THE WRONG UNIT IS SELECTED
MoV
RMCS2I,$BDDAT
;CORRECT UNIT SELECTED??
BIC
#~CUNTMSK
, $BDDAT
Mov
SUNIT,$GDDAT
;GOOD DATA FOR TYPEQUT

81C
CMPB

BEQ
ADD
MOVB

#*CUNTMSK
, $GDDAT
SGDDAT,SBDDAT
;COMPARE EXPECTED AND RECEIVED
*DRIVE NUMBERS
1%
YES.!
#4, (SP)
#1.a(SP)
:ERROR 1

"ZRMNBO RM0OS5/3/2 FCINL

TIST 2

PRIMARY ERROR CHECK SUBROUT
INE

58 037054
59 037060
60 037062
61 037066
€2 037070
gg 037074
65
66

162776
004736
162716
000240
000137

67 037076
68 037102
o9 037104

032737
001045
013737

013737

70 037112

72
73
74
75
76
77
78
79

80
81
82
83
84
gg

037120

037126
037132
037140
037146
037150
637156
037164
037172

052737

062716
112776
032737
001474
013737
013737
042737
112776

MATRO v04.00

000010
037610

006000

001336

001336
004000

001140
001140

000000
001346

001346

001140

010000
000003

001140
000000

162716
004736
162716
000240
000575

88 037216
89 037224
90 037226

032737
001030
013737

000200

001336

001140

92
93
94
95
9
97

042737
013737
062716
112776
162716
004736

160001
001336
000004
000004
000002

001140
001142

98
99
100
;8;

037234

037242
037250
037256
037262
037270
037274

052737

000002

000200

032737
001431

000001

007336

000200

001350

001336
160001
001336

001140
001140
001142

111
112
113
114

037324
037326
037334
037342

037350
037354
037362
037366

032737

001025
013737
042737
013737

062716
112776
162716
004736

BIS

BIC
MOV
ADD
MOVB
s SUB
JSR

000004
000005
000002

000000

SUB
JSR
SUB
NOP
BR

BIT
BNE
MOV

000000

103
104 037306
105 037314

ADD
MOVB
BIT
BEQ
MOV
MOV
BIC
MOVB

;REPORT AN ERROR

001140

000010

107
108
109
110

2%:

162716
000240
000541

106 037316

8IS

MOV

000010

037276
037302
037304

037306

BIT
BNE
MOV

001142

037200
037204
037206
037212
037214
037216

sus
JSR
SUB
NOP
JNP

#2,(SP)
PC.a(SP)+

:MOVE SP TO RETURN FOR ERROR
:REPORT WRONG UNIT SELECTED

108

:SKIP OTHER CHECKS

#10, (5P)

;REPORT AN ERROR IF THE DEVICE
:THE DEVICE IS NONEXISTANT

001142

000004
000002
010000

001346

N 13
11:43:33 PAGE 24-1
StQ 0169

000002

001336

4-APR-81

SuB
NOP
BR

*RESTORE

(SP)

IS NOT AVAILABLE OR

#DVA,RMCS1 ]
5§
RMCS11,$GDDAT

:DEVICE AVAILABLE??
TYES!!
-EXPECTED STATUS

RMCS11,$BDDAT

;RECEIVED

#DVA, SGDDAT

#4 ., (SP)
#2.3(SP)
#NED ,RMCS21
2%
RMCS21,$GDDAT
RMCS2]1,$BDDAT
#NED , SGDDAT
#3,a(SP)

#2.(SP)
PC.a(SP)+
#10, (SP)
108
IF

,
IF

STATUS

:ERROR #2
‘WAS NED SET??
INO!
.
:EXPECTED STATUS
:RECEIVED STATUS
:YES - CHANGE

ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
*REPORT DEVICE NOT AVAILABLE
*RESTORE (SP)
;SKIP OTHER CHECKS

MASSBUS CONTROLLER

#RDY ,RMCS11
7%
RMCS11,$GDDAT
#RDY
, $GDDAT

IS NOT READY

; CONTROLLER READY??
SYES!!
-EXPECTED STATUS

#SC ! TRE 'MCPE ! GO, SGDDAT
RMCS11,$BDDAT
;RECEIVED STATUS
#4, (SP)
#4.a(SP)
;ERROR #4
#2.(SP)
*MOVE SP TO RETURN FOR ERROR
PC.a(SP)+
IREPORT CONTROLLER NOT READY
#10, (SP)

*RESTORE

(SP)

108

;SKIP OTHER CHECKS

;REPORT AN ERROR IF GO IS NOT ZERO AND DRY IS NOT ONE
BIT
#GO,RMCS11
;GO RESET??
BEQ
8%
SYES!!

BIT

BNE
MOV
BIC
MOV

ADD
MOVB
SUB
JSR

#DRY ,RMDS |

:DRIVE READY??

#4, (SP)
#5.a3(SP)
#2,(SP)
PC.a(SP)+

;ERROR #5
:MOVE SP TO RETURN FOR ERROR
:REPORT DRIVE NOT READY

8%
TYES.!
RMCS11,$GDDAT
:EXPECTED STATUS
#5C. TRE 'MCPE ! GO, $GDDAT
RMCS11,$BDDAT
:RECEIVED STATUS

JHWNBL RGOS/
T
FoTN LT 2
R {MARY ERROR HE(K SUBROL'INE

15
116
*17
3;3

037370
037376
037376
037400

1627°¢
00024C
000504

8$:

SUB
NOP
&R

122 2376400

032737

02000C

001336

013737
0462737

001336
1600017

001140
001140

23 0376406

001425

126 037424

013737

001336

001142

128 037436

112776

000013

00000C

126 037410
125 057416

127 037432

129 037444
130 0376450
131 037452

132 037456

062716
162716
004736
162716

000240

000004

000002

136
137 037462

032737

000010

001352

032737

000010

001400

000010

00°42¢

3;2 037462

138 037470

130 037472

037500
037502
037510
037512
037514
037520
037524
037526

037530
037532
037534
037536
037540
037546

154 037556
165 037562
156 037566

001451

001045
032737
001413
010046
012700
1227°0
001002
012600

000431
105720
100371
012600
013737
042737

001352
000004
000050

162716

000010

162716
004736

160 037606
161 037610
162 037614

000240
062716
000240

63 037616

001352
000610

000207

RM:S1]1,8GDDAT
-EXPECTED STATUS
#SC!TRE 'MCPE.GO,.$GDDAT

ADD

24, (SP)

SuB
JSR
SUB

#2,(SP)
PC,a(SP)«
#10, (SP)

MOVB

000002

000010

B8R

sPARITY ERROR ??

*NO!!

RMCS1] ,$8DDAT

;RECEIVED STATUS

#13.3(sP)

“ERROR #13

‘MOVE STACK TO USER'S ERROR
MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;RESTORE STACK

108

JREPORT AN ERRDR ]F DETECTED A (ONTROL BUS PAR]TY ERROR
8IT
#PAR_RMER1]
;WAS THERE A PARITY ERROR??
8EQ

BIT

8NE
2301

G1%:

001140
001140

B8US

MOV
8iIC
MOV

Q2% :

013737
062716
11:776

157 037576
158 037600

159 037602

001553
000014

THE RH (ONTROLLER DETECTED BAD

M(CPE _RM(ST1]

BEQ

98 :

(SP)

8IT

NOP

000453

LRESTORE

560 0170

;PARITY ON THE MASSBUS (ONTROL

000010

133 037460

B 14

T PaGE 26l

>, 5P

;REPORT AN ERROR IF

12’

148
149
150
151
152
152

L0GCT1

120

140
141
142
143%
144
145
146
147

G3$:

001142

000000

BEQ
MOV
MOV
{MPB
BNE
MOV
BR
ISTR
8PL

‘NO!!

118
#PAR ,RMER10

*NOT SURE!!
;DID TEST SET PAR ??
‘NO.!
;2PUSH RO ON STACK
;RO POINTS TO INDEX TARLE
;SEARCH TABLE FOR RMER?

93¢
RO, ~(SP)
APUT INX RO
#RMERT, (RO)
928
(SP)+ _RC
11%
(RO)+
918

;WAS [T THE CONTROL BUS??

;sPOP STACK INTO RO
;PAR WAS SET BY TEST
JEND OF TABLE??
*NO!!

MOV
MOV
BIC

(SP)+,R0
RMER1],$GDDAT
#PAR_$GDDAT

1:POP STACK INTO RO
:EXPECTED STATUS

MOV
ADD
MOVB

RMERT],$BDDAT
#4,(SP)
#50.a(SP)
#2.(SP)
PC,a(SP)+

:RECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
‘WRITE THE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR

SUB
JSR

SUR

108:
17¢:

118

#DPE ,RMERZ21]

NOP
ADD
NOP

#10, (3P)

*MOVE SP TO NO ERROR RETURN

£°0,(SP)

:RETURN TO ERROR
JRETURN 7O NO ERROR

RTS

JRMNB(G RM(OS5/3/72

SECONDARY :RRCR

FINL

HECK SUBROUT INE

MACRO v04.00

NN U

11:43:33 P GE 25

SECONDARY £RROR {HE(K SUBROUTINE

SBTTL
;THE

€ 14

4=-APR-B1

ERROR (HECK

SUBROUTINE

PRCVIDES DETECTION OF

SECONDARY ERRORS

sSUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER (ONTENTS. THESE
;ERRORS ARE DEEMED SECONDARY [N THAT THEY ARE NOT NECESSARILY

OO NPVNE
NN 2O 000~

SASSOCIATED WITH THE OPERATION BEING PERFORMED.

sWHEN THE

SUBROUTINE

IDENTIFIES SUCH AN ERROR,

IT MOVES

THE

ERROR

SNUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RE TURNS

h ol

;7O THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE
;MAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS ¢0R

;OTHER ERRORS.

SJRETURNS

—d
—d d i

1CALL:

THE

WHEN ALL ERRORS HAVE BEEN REPORTED,

JSR

ADDRESS FOLLOWING
PC,SECERR

B8R
NOP
ERROR
JSR
27?

THE

SUBROUTINE

RETURN HERE
RETURN HERE

PC,a(SP)+

THE

SUBROUTINE

CALL.

NO ERROR

TO REPORT

AN ERROR

ERROR NUMBER DEF INED BY SuB

GO BACK

RETURN HERE

SUB FOR MOURE

NO MORE

ERROR

(HE(KS

ERRORS

THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT
sNOTE:
;INPUT REGISTER BUFFER,

24 037620

SECERR:
".'t'Q!tttttl’ttfi'ti'tt"'"lit'ltl!'Qt.lt!l’fit.tifit'ttttitttttt'tt'i

28
29
30
31
32

037620
037626
037634
037640
037644

013737
042737
062716
105076
162716

001412
177701
000004

063454
043454

sSTORE

000000
000004

FUNCTION
MoV
BIC
ADD
(LRRB
SUB

CODE AND CLEAR USER'S ERROR NUMBER
RM(S10,515%
;STORE FUNCTION CODE
#AC<FO!F1.F2'F3.F4>,515%

#a, (SP)

a(5SP)

;MOVE

(SP)

TO ERROR

;MOVE

(SP)

TO NO ERROR RETURN

. CLEAR ERROR NUMBER

#4,(SP)

CALL

'.‘"ttt'i"*’l*"tl!‘tl""t"t'.fi'fiilt.t*!’".ttt&'ttt'tt‘tt'tttt!it.

:CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS
38 037650
39 037656

20 037660

037666

42 037674

43 037702
44 037706

45 037714
46 037720
47 037702

4«8 037726
49
50
51 037730

52 037736
53 037740
54 037746
55 037754
56 037760
57 037764

032737
001024
013737

042737
012737
062716
112776

162716
004736
162716
000240

032737
001423
013737
042737
005037
062716
112776

000200

001350

001350
177577
000200
000004
000010
000002

001142
001142
001140

;REPORT ERROR IF DRIVE
BlT
BNE
MOV
BIC

MOV
ADD

000000

NOP

000001

001336

001142
001142

177776

001140
000004
000011

000600

JREPORT

5%:

ERROR
BIT
BEQ
MOV

IfF

].E.,

IfF DRY

:DRIVE READY??
JYES!!
;BAD DATA FOR TYPEOUT

#10,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;ERROR NUMBER
JMOVE SP TO RETURN FOR ERROR
JREPORT NOT READY
;RESTORE (SP) TO ERROR N

#DRY ,$GDDAT
#4, (SP)

MovB
SUB
JSR
SUB

000010

IS NOT READY,

#DRY ,RMDS |
5%
RMDS ], $BDDAT
#*CDRY ,$8DDAT

;GOOD DATA FOR

TYPEOUT

GO BIT 1S NOT RESET
#GO,RM(S1]
;GO BIT RESET??
108
JYES!:
RMCS11,$BDDAT

;BAD DATA

FOR

TYPEQOUT

BIC
(LR

#~(GO,$BDDAT
$GDDAT

;GOOD DATA FOR TYPEQUY

Mov8s

#11,3(SP)

JERROR NUMRBER

ADD

¥4, (SP)

THE

JRMNBG RMOS/3/2 FCTNL

TST 2

SETONDARY ERROR CMECK SUBROUTINE

58 037772
59 037776
60 040000
€1 040004
€2
63
64 040006
£5 040014
66 040022
67 040030
68 040036
09 040040
70 040044
71 040052

72
73
76
75
76

040056
040060
060064
040066

162776

000002

162716

000010

013737
042737
013737
023737
001413
062716

001336

004736
000240

112776
162716

004736
162716
000240

177701

043454
001142
000004
000012
000002

MACRO 4 04.0C

80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

04007
040C76
04C100
040104
040106
040114
040122
040130
040136
040140
040144
040152
040156
040160

005037
005737
001003
005737

001403
052737

001142
001142

10%:

®2,(SP)
PC,a(SP)e
’MQ,(SP)

ERROR IF

MOV

BiC
MOV
cmMpP
BEQ

001140

&4, (SP)

#12,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

MOVB
SUB
JSR
SuB

000010

NOP

15%:

sMOVE SP TO RETURN FOR FRROR
sREPORT DEVICE NOT AVAILARIE
JRESTORE (SP)

FUNCTION CODE READ FROM DEVICE

RM(CS1],$8DDAT

#4(C76,88DDAT
515%,$GDDAT
$8ODAT,SGDDAT
15%

ADD

000000

IS NOT

CORRECT

;1S FUNCTION CODE CORRECT??
JEXPECTED FUNCTION CODF
JYES..
.ERROR NUMBER

;MOVE SP TO RETURN FOR ERROR
JREPORT WRONG FUNCTION CODE

2RESTORE

(SP)

SREPORT AN ERROR [F COMPOSITE ERROR IS SET AND NO OTHER
;ERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND
;OTHER ERRORS ARE SET
$GDDAT
CLR
;EXPECT “ERR'' = 0

001140
001352

TST
BNE
TST
BEQ
BIS
MOV
BIC
mp

001400
001140
001142
001142
001142

112776
162716

000004
000047
000002

000000

162716

000010

004736

JRFPORT

001140

040000
001350
137777
001140

013737
042737
023737
001412
062716

D 14
11:43%:33 PAGE 25-1

SuB
JSR
SUB
NOP

79 040066

4-aPR-B1

20%:
25%:

RMER1]

;1S RMERY = 02?7

RMER?2]

;1S RMERZ = 07?
JYES!!

20%

253

#ERR, $GDDAT
RMDS
, SBDDAT

#~CERR, $BDDAT

. $8DDAT
$GDDAT
30%

8EQ

ADD

24,

(SP)

#47.3(SP)

MOvVB
suB
JSR
suB

#2,(SP)
PC.R(SP)+
#10, (SP:

NO.!

;"ERR'" SOULD BE SET

;1S "ERR' 0K??
SYES!!
:MOVE SP TO USER'S ERROR
;WRITE ERROR NUMBER
;MOVE SP TO ERROR RETURN
JREPORT

INVALID COMP ERROR

JREPORT AN ERROR IF "'TRE'" IS SET AND NONE OF THE BITS WHICH SET
STRE 1S SET, OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH

98 V40164

99 C40170

100 040174
101 040200

040202
040210
040212
040220
040222
040230

040236

9 040244
0 040252
1 040254

2 040260
3 040266

4 040272

005037
013746
042726
001010
032737
001407
022737
103003

052737
013737
042737
023737
001413
062716
112776
162716

004736

JSET

350%:

001140
001346
000377

040000

001350

000030

043454

040000
001336
137777
001140

001140
001142
001142
001142

000004
000014
000002

000000

35¢:

40%:

TRE

(LR

MOV
BIC
BNE
8IT
8EQ
CMP
BHIS
BIS
MOV

BIC
{MP
BEQ

SET

$GDDAT
RM(S2I,~(SP)
#377,(SP)+

:WAS DLT, WCE, UPE, NED, NEM
:Pgsi'MxF OR MDPE SET

35%

JYES!!

40%
#SEARCH,515%

E:e§;DATA TRANSFERRED??

#ERR ,RMDS ]

40%

#TRE ,$GDDAT

RM(S1],$BDDAT

#*(TRE ,$8DDAT

$GDDAT
, $BDDAT
45%

ADD
MOVR

24, (SP)
#1464 ,9(SP)
#2,(5P)

JSR

P(,a(5P)+

SUB

= 0
SEXPECT "“TRE'*

::8§'EXCEPTION RECEIVED??

*"'TRE'’ SHOULD BE SET

“BAD DATA FOR TYPEQUT

« ;1S "'TRE"" OK??
JYES!!

;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR

JREPORT TRE ERROR

TIRMNBO RMOS5/3/2 FCTINL

TST 2

SECONDARY ERROR (HECK SUBROUTINE

115 040276
16 040300
117 040302

162776
000240

MACRO v04.00

4-APR-81

000010

SuB
NOP

45¢:

18
119

120

E 14
'1:43:33 PAGE 25-2

#10,(SP)

JRESTORE

USING THE FUNCTION (ODE

(SP

TABLE,

CHECN FOR THE FOLLOWING ERRORS:

121

123

NOTE THAT SOME ERROR BITS ARE CONDITJONAL ON YHE (OMMAND AND OTHER

122

126
152

.STATUS BITS NOT

SET

THAT

SHOULD BE

SET,

.STATUS BITS SET THAT SHOULD NOT BE

E.G.,

ATA

;STATUS CONDITIONS, E.G., WRITE LOCK ERROR SHOULD ONLY BE
;URXTE LOCK IS ON AND THE COMMAND IS A WRITE.

127
1¢8 040302

010046

129 040304

013700

;;; 060316

012600

130 040310

016037

0643454

064566

;GET AND STORE
MOV

133

134
*35 040320
136 060326
137 040334

013737

043446

001140

138 040336
139 040344

052737
042737

100000
077777

001140
001140

67
1642
163
144
745
oo
147
148
149

042737
023737
(001413
062716
112776
162716
004736
162716
000240

077777
001140

001142
001142

000004
000006
000002

00000C

160 040352

040360
040366
040374
040376
040402
040410
040414
040416
040422

129 060424

032737
001403

013737

040000

001350

001142

013737

159 040462

001412

161 040470

112776

162 060476

163 0640502
164 040504

;25 040510

043446

177776

*68 040514
169 Q460520

170 060526

177 040532

AN ERROR

50%:

BIS
BIC

#ATA, SGDDAT
#*CATA $GDDAT

JEXPECT AN ATTENTION
;STRIP DONT (ARES

BI(
(MP
BEQ
ADD
MOVR
suB
JSR
SUB
NOP

#*CATA,$8DDAT
$GDDAT,$BDDAT
55%
#6, (SP)
#6,a(SP)
#2,(SP)
P(,a(SP)+
#10, (SP)

;STRIP DONT (CARES
;1S ATA Ok ??
JYES '
JMOVE SP TO USERS ERROR (ALL
;LOAD ERROR # [N (CALL
;MOVE SP TO ERROR RETURN
.REPORT ERROR
JRESTORE SP

AN UNEXPECTED ATTENTION OCCURRED OR

JATA IS NCT SET AND SHOULD BE
MOV
5008, $GDDAT
glT
#ERR ,RMDS ]
BEQ
508
MOV

RMDS] ,$BDDAT

SET.
cGET EXPECTED ATA STATUS
;1S COMPOSITE ERROR SET 2?2
JNO !
JGET

RECEIVED ATA

013737
042737
(023737

001352
177776
001140

062716

000004

162716

000002

000254

004736
162716

000010

013746
052716

0463446
137777

005037

001140
001142
001142
001142

013737

042637

001346

001142

;CLEAR ALL

BEQ

608

IS ILF 0K 2?
JYES 1!

RMER1] ,$BDDAT
4#~CILF ,$BDDAT
$GDDAT ,$BDDAT

ILF

OTHER BITS

JGET RECEIVED ILF
;CLEAR ALL OTHER BITS

ADD

#6,

(SP)

sMOVE

SP 1O USERS ERROR (ALL

SuB

ke, (SP)

;MOVE

SP T0O FRROR RETURN

JSR
SuB

(LR

;REPORT AN ERROR

001742

JGET EXPECTED

#~CILF ,SGDDAT

MOVR

60%:

ILF DOES NOT (OMPARE

8IC

MOV
BIC
(MpP

000000

001140

IS INCORRECT, I.E., IF

JWITH FUNCTION CODE TABLE
MOV
5008 ,$GDDAT

001140

167

ENTRY

. .POP STA(CK INTO RO

JREPORT

SJREPORT ERROR IF ILF

042737

160 040464

(SP)+ RO
IF

558:

155 0640632

156 40440
157 040446
158 040454

SET

SGET FUNCTION CODE

FNCDTB(RO),SOOS ;STORE

MOV

I.f

FROM THE FUNCTION CODE TARLE
s :PUSH RO ON STACK

515%,RO

MOV

000010

15¢

15%
154 0606426

MOV

043446

THE ENTRY
RO,-(SP)

AND

SET, E.G., WCE AND E(M

MOV
BIS

MOV

BIC

#254 Q(5P)

PC.a(SP)*
#10,(SP)

$GDDAT
IF

WCE

sWRITE ERROR NUMBER [N CALL

;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

;CLEAR EXPELTED STATUS

]S SET AND SHOULD NOT BF

SET

5008,-(SP)
2*(WCE, (SP)

;GET WCE STATUS ENABLE
sSET ALL OTHER BITS

RM(S21,$BD0DAT

;RECEIVED STATUS

(SPY+,$BDDAT

JCLEAR WCE

[F ENABLED

JEMNBO RMOS/3/2 FCINL

‘£ "ONDARY

ERROR

TST 2

(HECK

SUBROUTINE

172 0640536
173 06050

001472
062716

(00004

175 040552

162716

176 040564

176 060556
177 040560

178 040564

112776

004736
162716

000026

000002

MA{RO v04.00

184 0640602
"85 060606

"86
187
188
'89
190

040610
0406146
040622
040626
040630

191 (40634
192
193

013746
052716
013737
042637
001412
062716
112776
162716
004736
162716

000004
000164
000002

'96 040640

197 040646
138 040650
199 040654

200
201
202
20%
204
205
206
207
208
209
210
211
212

040660
040666
040672
040674
040700
040706
040712
0640714
040720

013746

(032737

001402
042716
052716

013737
042637
001412
062716
112776
162716
004736
162716

043446

000100

010000
167777

001400
001142

000004
000165
000002

001350

001142

000010

T10%:

001002
042716
013737
042637

28 040762

ALL

0C1612

SP TO USER'S ERROR

5008,-(SP)

(AL.

JWRITE ERROR NUMBER [N CALL
;MOVE SP TO ERROR RETURN

;REPORT

ERROR

JRESTORE

JGET

IVC

1v(C STATUS ENABLE

1058
#IvC,(SP)
#*CI1vC, (SP)

BIC
BEQ

(SP) + $BDDAT
110%

:CLEAR JVC
SBRANCH IF

#165,8(5P)
#2,(SP;
PC,a(SP)+
#10, (SP)

sWRITE ERROR NUMBER [N (ALL
;MOVE SP TO ERROR RETURN
JREPORT ERROR
;RESTORE SP TO NO ERROR

#VV ,RMDS!

RMERZ2I ,$BDDAT

#4, (SP)

(WLE)

WRITE

;1S

vv SET

:NO !
;YES - Iv( SHOULD BE O
;JSET ALL OTHER BITS
;GET RECEIVED STATUS
:MOVE

THE FUNCTION (ODE

FRRORS,

RMER1 - WLE,
RMERZ -~ DPE

SEACH OF

226 040742
225 040764
026 04075C
207 040756

;BRANCH 1F OP] Ok

MOv
BIT
BEQ
8IC
8IS

MovB
SuB
JSR
sSuB

JWRITE

632737

PC,a(SP)+

ADD

000200

0312746
032737
001404

;MOVE

#10, (SP)

MOV

;BIT

220 060720
221 060724
222 040732

20% 060736

105%:

#4, (SP)

JREPORT ERROR IF IVC IS SET AND IS NOT ENABLED OR IF
JSET AND VV 1S NOT RESET

214

219

:GET RECEIVED STATUS
;CLEAR OP] IF ENABLED

#1664 ,3(SP)
42,(SP)

SuB
JSR

SF7T

;GET OPI STATUS ENABLE
JSET ALL OTHER BITS

RMER1i,$8DDAT
(SP) +,$BDDAT

1008

ADD
MOVB

ERROR

IS SET AND SHOULD NOT BE

#*COPI,(SP)

100¢%:

213

215
216
317
218

;REPORT

sRESTORE ERROR

STATUS
5008,-(SP)

8EQ

000010

JWRITE ERROR NUMBER
sMOVE SP TO ERROR RETURN

#10, (SP)

mMov
8IS
MOV
B8I(

000000

SMOVE SP TO USER'S ERROR (ALL

PC,a(SP)+

;REPORT ERROR [F OP]
001142

¢BRAN(H [F W(E OK

4, (SP)
#26,3(SP)
#2,(SP)

]
Su8
JSR
su8

:
S0

134

195 040634

25-3%

90%

8EQ
ADD

000000

000010

043446
157777
001352
001142

11:43:33 PAGE

SEQ 0174

179

'80
"8 040564
82 0640570
'83 060574

4-aPR-B1

TABLE

IF ENABIED
[v(C OK

TC USERS ERROR

CALL

IS THE ENABLING BIT

FOR

!.E.,

W(F

“

RMCS2 - UPE.

THESE ERRORS IS CHECKED TO SEE

ERROR ENABLE BIT

IS RESET.

[F AN ERROR IS SET WHEN THE

JREPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENARLED, OR |f
sTHE DRIVE IS NOT WRITE PROTECTED

177777
004000

043446

004000

001350

004000
001352
001142

03°14¢

MOV

BIT

“15%:
120%:

BEQ
BIT
BNE
Bi(
MOV
8I(

Bta

#-1,-(SP)

7$%§.500$
#WRL ,RMDS |

JASSUME

WRITE

ERRORS ENABLED

;IS

DRIVE

WRITE

:zgf|$RlYE ERRORS ENABLED °?
THE

120%

SYES

(SP)«+,$BDDAT

;CLEAR WLE

sJLE, (SP)
RMER1] ,$8DDAT

*25%

JRESET WLE ENABLE
,;GET RECEJVED STATUS

JBRANCH JF

PROTECTED

IF ENABLED

WLE OK

gyugpnvnuvuv
W)
= O O

JEMNBL RMOS/370 BUINL TST 2
MAIRD v04.0C
¢ UNDARY ERROR (MECK SUBROUT INE

0460764
040770
040776
041002

06276

000004
(00023
000002

162716

000010

041010
238 041014
041022
2
041024
041030
041036
041042
041044
041050
041056
041062
041064
041070

012746
032737
001002
04g716
013737
042637
001412
062716

177777

041070
041074
041102
0461104

1004

041010

LY AL

LN N L VL VT

112776
162716

041110

004736

001142

162716

162776

0C0010

012746
032737
001002
042716
013737

177777

112776

004736

004000
000010
001400
001142

041116
041122
061124
061130
041136
041142
061144
041150

042637
001412
062716

162716

000010

041150
041154
0411€2
041164
041170
0461176
041202
041204

012746
032737
001002

177777

041210

112776
162716

004736

042716
013737
042637
001412
062716
112776
162716

004736

162716

013746
052716
013737
042637

:REPORT

000040
001352
0011742

000004

000040
000002

#10, (<P)

130%:

;REPORT

0634646
001142

JARE

BIC
MOV
BIC

MWCF, (SP)
RMER11,$8DDAT
(SP)+,$BDDAT

;DISABLE WCF ERROR
;GET RECEIVED STATUS
JRESET WCF IF ENABLED

ADD
MovR

#4,(SP)
#25,a(SP)

135%

suB
ERROR

BIC

DPE

SJYES

WRITE

ERRORS ENABLED

°?

;BRANCH IF WCF OK

;MCVE SP TO USERS ERROR (ALL
;WRITE ERROR NUMBER IN (AL.

#2,(SP)
PC,a(SP)+
#10, (SP)

JMOVE SP TC ERROR RETURN
;REPORT ERROR
JRESTORE SF TO NO ERROR

IS SET

AND WRITE ERRORS ARE NOT ENABLED

#-1,-(SP)

JASSUME

MWLE, 500%

WRITE

;ARE WRITF

1409%

JYES

#DPE, (SP)

ERRORS ARE

ENABLED

ERRORS ENABLtD 27

JRESET DPE ENABLE

MOV

RMERZ21,$BDDAT

ADD
MOVB

#4,(SP)
#40,3(SP)

:MOVE SP TO USERS ERROR CA{L
JWRITE ERROR NUMBER IN CALL

JSR

PC,a(SPi+

;REPORT

BIC
BEQ

SUB

145%:

WCF IS SET AND WRITE ERRORS ARE NOT ENABLED
#-1,-(SP)
JASSUME WRITE ERRORS ENABLED

1308

BNE

006000C

:RESTORE SP 10 NO FRROR

#u E L5008

BIT

140%:

JREPORT ERROR AND RETURN

BIT

SuB
SR

135%:

<MOVE SP T0O USERS ERRCR (Ai.
WRITE ERROR NUMBER IN (ALL
JMOVE SP TO ERROR RETURN

#2.(SP)
PC.a(SP)+

BNE

000000

SURB

(SP) + ,$BDDAT
145%

#2.,(SP)

;GET RECEIVED STATUS

SRESET DPE IF ENABLED
;BRANCH IF DPE 0K

;MOVE SP TQ ERROR RETURN

#10, (SP)

JRESTORE

ERROR

SP TO NO ERROR

;REPORT AN ERROR IF UPE IS SET AND WRITE ERRCRS ARE NOT ENARLED
043446

020000
001346
001147

001142

000004
0000624
000002

000000

000010

150%:

#-1,~(SP)

BI(

#UPE, (SP)

MOV
BIC
BEQ
ADD

RMCS2I ,$BDDAT
(SP)+ , $BDDAT
155%

;GET RECEIVED STATJS
JRESET UPE IF ENABLED
;sBRANCH IF UPE OK

44, (5P)

JSR

PL,a(SP)+

AN ERRCR

MOV
BIS

MoV
BI{

ERRORS ARE

;ARE WRITE ERRORS ENABLFD
JYES
!

#24,3(SP)

SUR

JASSUME WRITE

#WLE, 5008
1508

MovR

SUB

JREPORT

001142

MOV

817
BNE

145%:

063446

175777

SuB

ERROR
MOV

2%-¢

(3P)

#2%.a(5p)

BEQ

004000

001352
001142

24,

move
SUB
JSR

125%:

043446

G 14

*7:4%:32 PAGE

ADD

000060

004000

000004
000025
000002

L=APR~B!

IAE

;JMOVE

TO USERS

ERROR

ERROR NUMBER
ERROR AND

RMER1]!,$8DDAT
(SP}+, $SBDDAT

AND

RETURN

IS NOT

ENABLED

;GET JAE ENABLE
JSET ALL OTHER BITS

(AL.

IN (ALL

JMOVE SP TO NO ERROR

SET

ERROR

;MOVE SP TO ERROR RETURN

;REPORT

#10, (SP)
iF

UPE

;WRITE

#2,(SP)

500%,~(SP)
#*(JAE, (5P)

;DISABLE

ENABRLED

,GET RECEIVED STAT
S
.CLEAR JAE [F ENARLE"

MBS RMOS/73/2 FLTN TST 2
“A:‘(:
b ONDARY ERROR (HE(K SUBROUTINE

286 061252
287 061254

9014°¢
062716
112776
162716

(00004
000166
000002

162716

000010

004736

L=AP&=8"

sveLLL

8EC
C00000

PAGE

1608

:BRANCH If

SUB

IRGS)

*MOVE SP TO NO ERROR

#166.a(SP)
82.(5P)
PC.a(SP)
e

SWRITE ERROR NUMBER
:MOVE SP TO ERROR RETURN
SREPORT ERROR AND RE TURN

THE FUNCTION (ODE

l.t.,

:
:

RMCS! - TRE
RM(SZ2 = DLT _NEM MxF

RMER1

RMDS

LBT

IS NOT CHECKED BECAUSE

041360
041364
041372

041374
041400

041406
041412
041414
0641420
041426
061432
061434
041440
061440
061646
e 061452

042716
013737
042637
001412
062716

1727777

001000

100000

001346
001142
000004

sREPORT

001142

162716

000010

012746
032737

1772777
001000

042716
013737
042637
001412
062716

004000
001346
001142

001142

112776
162716

000004
000167
000002

000000

162716

000010

177277

001002

00473¢

001000

BIT
BNE
BIC
MOV
BIC

BEQ

000032
000002

162716
004736

165%:

ADD

000000

MOVR
SR
JSR

170%:

CHECKED

AN ERROR

Mov

043446

12776

041332
041334
041340
041346
041352
041354
041360

001002

ro~NO»

041312
041314
041320
041326

CINN

0461304

012746
032737

OO0
Qi
—a
— PO

NN AN AN LA UN LN NN

AN LN AN (V]

norong
NS e R
P
N
YO QST ST NN
S wino SOV \NITNE NN
O

041300

SuUB

1S THE ENABL (NG BIT

¢0OK

- LRTY

TRE

TABLE

- ADQE

;CYLINDER REGISTER IS WRITTEN
:
JNOTE
. oTE
AOE CANNOT BE SET [F (BT

N
:

IS OK

SMOVE SP TO USERS ERROR (AL

: ALL READ/WRITE EYRORS,

INOTE:

1AE

&8, (SP)

;BIT 09 (AQE)

ADD

MOVEB
SUB
JSR

veos

H 14

"7 :43:3

DLT

#-1,-(SP)

IT ONLY RESETS WHEN THE

]S NOT ALSO SET

FUNCTION OF

SET

OTHER ERROR

AND READ/WRITE

CONDITONS

ERRORS ARE

JASSUME ERRORS ARE

JRESET DLT ENABLE
;GET RECEIVED STATUS
s CLEAR DLT IF ENABLED

#4,(SP)

;MOVE

#10,(5P)

;MOVE SP TO NO ERROR

#32,3(SP)
#2,(SP)
PC,a(SP)+

NOT

ENABLED

#AQE ,500%
165%
#DLT,(SP)
RM(SZI,$BDDAT
(SP)+ ,$BDDAT

170%

DESIRED

AROVE

ENABLED

;ARE ERRORS ENABLED ??
JYES V.

;BRANCH IF DLT IS 0K

SP TO USERS ERROR

(AL

JWRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

;REPCRT ERROR [F NEM IS SET AND READ/WRITE ERRORS ARF NOT ENARLED
063446
175%:

1808%:

MOV

#-1,-(SP)

ADD
MOVB

R4, (SP)
#167 ,a(SP)

8]7
BNE
BIC
MOV
BIC
BEQ
SUR
+SR
SUR

#AQE ,500%
175%
#NEM, (SP)
RM(SZ] ,$8NDAT
(SP) + ,$8DDAT
180%

#2,(SP)
P{,a(SP)+
#10,(SP)

JREPORT ERROR [F MXF
043446

MoV

BIT
BNE

;ASSUME ERRORS ARE

ENARLED

:ARE ERRORS ENABLED ??
JYES 1!
.DISARLE NEM
:GET RECEIVED STATUS
;CLEAR NEM [F ENABLED
;BRANCH IF NEM IS 0K

JMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER N CALL
;MOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

]S SET AND READ/WRITE ERRORS ARE NOT ENARLED

#-1,-(SP)

#AQE ,500%
"85%

JASSUME

ERRORS ARE ENABLED

JARE DATA ERRORS ENABLED 2?7
JYES
.

SN, WMOS/3/2 FCINL

ADARY

TST 2

ERROR CHECK SUBROUTINE

3.3 061454

344 041460
345 041466
346 041472

041474
368 0461500
149 041506
20 061512
35 041514
35¢ 041520
353
L7

254
7585 041520
156 0461524
357 041532
258 041534
359 041542
7260 041544
261 041550
362 041556
263 041562
364 041564
365 041570
366 0461576
367 041602

368 041604
369 041610
370
371
372

042776
013737
042637

001412

062716

112776
162716

004736

001000

(01346
001142

000004
000033
000002

162716

000010

012746
032737
001404
032737
001002
042716
013737
042637
201412
062716

177777

112776
162716

004736

162716

MAIRD

0011462

I 14

~=itR-BT

hog

:643:33 PAGE

BI(

#XF , (SP)

8EQ

1908

SBRANCH IF MXF

BIC

(SP)+ $BDDAT

24,

#3%.3(sP)

#2.(5P)
PC.a(SP)«

ISR
SuB

#10, (5P)

190%:

ERROR

MOV

(SP)

AOE

043446

817

#AOE , 5008

002000

001350

BI7

#LBT

001000
001352
0C1142

001142

000002

BEQ

BNE
BI{
MOV
BIC
BEQ

200%:

#4, (SP)

MOvB
SUB
JSR
suB

:BIT 07 (HCE)

RMDS!

195%
#AOE, (SP)
RMER1I,$BDDAT
(SP)+ ,$BDDAT
2008

ADD

000000

000010

1918

#20,3(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

THE

:CLEAR MXF

IF ENABLED
IS OK

:MOVE SP TO USERS ERROR (Af.

:WRITE ERROR NUMBER IN CALL
IMOVE SP TO ERROR RE TURN
‘REPORT ERROR AND RE TURN
IMOVE SP TO NC ERROR

IS SFT AND DATA ERRORS ARE NOT ENABLED

#-1,-(SP)

001000

000004
000020

ERROR

-GET RECEIVED STATUS

SUB

191%:
195%:

:DISABLE MXF

RM(S2],$BDDAT

MovEB

JREPORT

25-¢

MOV

ADD

0G0000

JASSUME

;ARE

DATA ERRORS

ARE

DATA ERRORS EANBLED

:NO

;15

LBT

ALSO

SET

SNARBRLED

JYES !,
;DISABLE AOE
;GET RECEIVED STATUS
;CLEAR AQE [F ENABLED
;BRANCH IF AOE IS OK
;MOVE

JWRITE

TO USERS

ERROR

ERROR NUMBER

(ALL

;MOVE SP TO ERROR RETURN

;REPORT ERROR AND RETURN

JMOVE SP TO NO ERROR

FUNCTION CODE

;HEADER ERRORS, I.E.,
RMER! ~ HCRC,HCE.FER

373

374
375
376
377
378
379
380

0. ..

TABLE

THE

ENABLING BIT

FOR

RMERZ - BSE

041610
041616
041620
041625

381
382
383 041626
384 041632
385 041640
386 041642
187 041646
788 041654
189 0461660
390 0461662
N 041666
39 041674
393 041700
194 041702
395 041706
296
397
398 041206
196 061712

032737
001403
042737

012746
032737
001002
042716
013737
042637
001412
062716
112776

162716

004736
162716

012746

032737

002000

001370

000200

043446

177777

043440

000400
001352
001142

001142

000004
000035
000002

000060

000010

000200

201%:

205¢%:

JREPORT

04346

#HC I ,RMOF |

BIC

#HCE ,500%

201$%

IF HEADER (OMPARE
;IS HCE

JNO !

SET

INHIBIT

IS SET

JYES - DISABLE ALL HEADER ERRORS

AN ERROR JF HCRC IS SET AND HEADER ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
JASSUME ERRORS ENABLED

BIT

#HCE, 5008

ADD

#e,

SUB
JSR
SUB

#2. (SP)
PC.a(SP)+
210, (5P)

BNE
BIC
MoV
BIC
BEQ

MOvR
210%:

(HCE)

811

BEQ

. REPORT

000200

177777

JRESET THE ENABLING BIT

ERROR

MOV

BIT

JARE HEADER ERRORS ENABLED ??

205%
#HCRC, (SP)
RMER11,$BDDAT
(SP) + ,$8DDAT
210%

JYES !!
;DISABLE HCRC
;GET RECEIVED STATUS
JRESET HCRC IF ENABLED
;BRANCH IF HCRC IS OK

#35.3(sP)

JWRITE

(SP)

HCE

;MOVE SP TO USERS ERROR CALL
ERROR NUMBER

[N CALL

;MOVE SP TO ERROR RETURN
JREPORT

ERROR AND RETURN

;MOVE SP TO NO ERROR

IS SET AND HEADER ERRORS ARE NOT ENABLED

#-1,-(SP)

#H{E, 5008

;ASSUME ERRORS ENARLED
,ARE ERRORS ENABLED 77

JeMNBG RMOS5/372 FCINL

TADARY

ERROR (MHECK

041720
061722
02 061726
4)3 041734
<04 041740
405 041742
406 0461746
W7 061754
408 0461760
09 041762
410 061766
<00

001002
042716
013737
042637

001412

062716

TST ¢

SUBROUT INE

(00200
001352
001142

112776
162716

000004
000036
000002

162716

000010

012746
032737
061002
042716
013737
042637
001412
062716

127777

004736

MAIRD v04.00

613 0461766

L4 0641772

418 042000

$16 042002

417
<18
419
420

621

622
423
L4

425
426
427

042006
042014
042020
042022
062026
042034
042040
062042
042046

428 062046
429 042052
430 042060
43
042062
432 042066
433 042074
434 042100
435 042102
436 042106
437 042114
438 042120
439 042122
440 0462126

000200

000020

001352
001142
000004

112776
162716

000037
000002

162716

00C010

012746
032737
001002
042716

177777

004736

007742

043446
001142

225%:

;CLEAR HCE

RMER1],$8BDDAT

;REPORT

001142

162716

000004
000354
000002

000000

162716

000010

PC,a(SP)«

JMOVE

BEQ

230%

BIC

PC,2(SP)+

;REPORT

RBSE

SET

#-1,~(SP)

042132
042140
042142
062146
042154

012746
032737
001002
042716
013737
042637

1727777

JREPCORT

000100

043446

000400
001346
001142

001142

;ASSUME

NOT

ERRORS ENABLED

ENABLED

JARE THEY ENABLED ?7
JYES !

;DISABLE BSE

8IC

(SP) +,88DDAT

;CLEAR BSE

#G, (SP)

:MOVE

PC,a(SP)+

sREPORT ERROR AND RETURN

RMERZ2] ,$BDDAT

RMER1

JGET RECEIVED STATUS

240%

FRROR

BNE

ENABLED

SP TO USERS ERROR

JWRITE ERRGR NUMBER
JMOVE SP TO ERROR RETURN

#10, (SP)

CAL.

:MOVE SP TO NC ERROR

TABLE IS THE ENABLING BIT FOR DATA

- D(K,ECH

MDPE

#-1,~(SP)
#ECH,500%

SET

245%

BRI

#MDPE , (SP)

BI¢

(SP)+,$8DDAT

MOV

JBRANCH IF BSE 0K

#354,8(SP)
#2,(SP)

SuUB

CALL

ERROR AND RETURN

#BSE, (SP)

MOV
BIT

265%:

FER 0K

TO USERS ERROR

AND HEADER ERRORS ARE

:
ECH CANNOT SET UNLESS IT
;DCK IS SET.

451 042126

BIC

ADD

:
JNOTE

FER

:MOVE SP TO NO ERROR

#HCE,500%
235%

MoV

;WRITE ERROR NUMBER N CALL
;MOVE SP TO ERROR RLTURN

#10,(SP)

MOVB
SuB

TO NO ERROR

JBRANCH IF

JSR

LG4

ERROR AND RETURN

JRESET FER IF ENABLED

#37 ,9(SP)
#2,(SP)

(ALL

;GE” RECEIVED STATUS
;MOVF

¢B1T 06 OF THE FUNCTION CODE
JFIELD ERRORS, [.E.,
M
RM(CSZ - MDPE

445
446
447
448
449
450

;DISABLE

#4,(SP)

8EQ

443

ADD

ERROR

;ARE HEADER ERRORS ENABLED
JYES .

(SP)+ ,$8BDDAT

SUB

IS Ox

TO USERS

FER IS SET AND HEADER ERRORS ARE NOT ENARLED
#-1,-(SP)
JASSUME FER IS ENABLED

MOV

BIT
BNE

240%:

JREPORT

#10,(SP)

BIC

ENABLED

JWRITE ERROR NUMBER IN CALL
¢MOVE SP TO ERROR RETURN

#HCE,500%
225%
#FER, (SP)
RMER1],$BDDAT

MOV

235%:

;MOVE

#36,3(SP)
#2,(SP)

;BRANZH IF HCE

#4,(SP)

SUs

ERRCR
Mov

JGET RFCEIVED STATUS

2208

MOVR
SuB

230%:

L4
42

452
453
454
4558
456

(SP)+,$8DDAT

MOV

BIT
BNE

00000C

100000
001400
001142

004736

BIC

JSR

JRFPORT

;DISABLE HCE

MovB
SUB

220%:

SYES

#HCE, (SP)

ADD

000000

043446

042637
001412
062716
112776

215%:

215%

RIC

BEQ

000200

013737

J 14
"1:43:33 PAGE 25-7

BNE

4512

4-APR-B'

RM(S21 ,$BDDAT

AND

IS ENABLED AND FCI
IS NOT

IS RESET AND

ENABLED

;ASSUME ENABLED
;ARE DATA FIELD ERRORS ENARLED

JYES

:DISBALE MDPE

JGET RECEIVED STATUS

;CLEAR MDPE

ENARLED

?°

J~WNBO RMOS/3/72 FCTINL

£ UNDARY ERROR (HECK

457 042160
658 042162

59 042166
450 042174

«£?
462
463
464
465
466
467

001412
062716

172776
162716

042200
042202
042206

004736
162716

042206
042212

012746
032737

468 042220
469 042222

001002
042716

471 042234
472 042240

042637
001412

470 042226
473 0422642
474 042246

475
476
477
478
479
480
481
482
483
484
485
486
487

042254
42260
042262
042266

013737

062716
112776

162716
004736
162716

TST 2

SUBROUT INE

(00004

000027
000002

MACRO v04.00

177777
000100
100000

001352

001142

000004
000030

000002

250%:

0643446
001142

BIT

255%:

BNE
BIC
MoV

BIC

BEQ
ADD
MOvVB

SuB
JSR

2608%:
;REPORT

2508

suB

ERROR IF

EC]
DLK

012746
032737
001410
032737

177777
000100

043446

004000

001370

489 042312

032737

100000

001352

000100
001352
001742

001142

488 042310

490 042320
491 042322

042326
042334
042340
042362
042346
042354
42360
042362

500 042366

001004

001002
042716

013737
042637
001412
062716
112776
162776
004736
162716

265%:
270%:

000004

00CO31

000002
000010

S€Q 017¢

:BRANCH IF MDPE OK

#6,(SP)

;MOVE

SP TO ERROR RETURN

TO USERS ERROR

(AL(

#27,3(SP)

;WRITE ERROR NUMBER IN CAL(

PC.a(SP)+

;REPORT

#2,(SP)

#10, (SP)

:MOVE

#ECH,500%

000000

275%:

JARE

255%
#D(CK, (SP)

ERROR AND RE TURN

SP TO NO ERROR

THEY ENABLED

JYES !!
:DISABLE DCK

RMER11,$BDDAT
(SP) +,$BDDAT

260%

JBRANCH IF DCK IS OK

sMOVE

PC,a(SP)+

.REPORT

#30,a(SP)
#2,(SP)

SP TO USERS ERROR (A.L

;WRITE ERROR NUMBER IN C(ALL
;MOVE SP TO ERROR RETURN

#10, (SP)

;MOVE

ECH IS SET AND,

IS SET, OR
IS NOT SET,
#-1,-(SP)
MOV
#ECH,500%
BIT
BEQ
265%
#E(C] ,RMOF |
BIT
BNE
265%
#DCK,RMER1]
BIT
BNE
270%
RECH, (SP)
BIC
MOV
RMER1] ,$8DDAT
(SP) + ,$BDDAT
BI(
BEQ
275%
#4,(SP)
ADD
#31,3(SP)
MOvB
#2,(SP)
SUB
JSR
PC,a(SP)+
#10,(SP)
SuB

;GET RECEIVED STATUS
;CLEAR DCK IF ENABLED

#4, (SP)

DATA FIELD ERRORS ARE

042266
042272
042300
042302

492
493
494
495
496
497
498
499

MOovR
SuB
JSR
SuB

25-8

JREPORT FRROR IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED
MOV
#-71,-(SP)
sASSUME ENABLED

000C00

000010

K 14

17:43:33 PAGE

BEQ
ADD

000000

000010

NOT

ERROR AND RETURN

SP TO NO ERROR

ENABLED,

JASSUME ENABLED
;ARE ERRORS ENABLED 7

JNO !
;1S ECI SEV 2?7
JYES 1!

;IS DCK ALSO SET

JYES

:DISABLE

ECH

;GET RECEIVED STATUS

<CLEAR ECH

ENABLED

JBRANCH IF ECH IS OK

;MOVE SP TO USERS ERROR (ALl
.WRITE ERROR NUMBER IN CALL

sMOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN

:MOVE

TO NO ERROR

CZRMNBO RM(OS5/3/72 FCINL
ERROR

(HECK

SUBROUT INE

MACRO v04.00

Ny -+

SECONDARY

TST 2

&~APR~81

AR ARR RS

L 14
17:43:33 PAGE 2¢
AR

:;PERFORM THE REMAINING ERROR (HECKS ONLY FOR DATA TRANSFER ( OMMANDS
':‘..’Q'tt.it.."'."."'.l'.Q".'.'tQ'll"....'.""t.'.t.lt'..'

OOV

2 md et —d d d

et od

= OV

]

062366
042374
042376
042402
062410
042412
042420
042422
042426
042434
042440
042444
0462446
42452

022737

000030

000137

043420

013737
001421

001340

001142

040000

001336

103402

032737
001015
062716

043454

162716

000004
000015
001140
000002

162716

000010

013737

001340
001414
001140
001416

001140
001140

112776

005037
004736
000240

006337
063737

042502
042510
042512

032737
001403
013737

000010

001346

001416

001140

042520

023737
001416
013737
062716

001140

001342

001342
000004
000016
000002

001142

042526
042530

042536
042542
042550
042554
042556
042562

112776
162716
004736
162716

000240

042564
042566
042572

005046
013746
163716

042576
042602
042610
042612

012746
032737
001402
062716

042616
062622

005266

042626
042630

161666

003373
022626

:REPORT

280%:

285%:

001140

#TRE ,RMCS1]

ADD

ERROR

MOV

SUB
ASL
ADD

285$

2508:

(SP)

#15,3(sP)

;BR IF YES
:NO - EXIT

TRANSHERRED

RMBA

JRESTORE

IS NOT

RMWC
I , SGDDAT
RMWCO, $GDDAT
$GDDAT
RMBAQ, $GDDAT

CMP
BEQ

$GDDAT ,RMBA]
295%

MOVB
su8
JSR
SuB
NOP

TYES.!

JREPORT WORD COUNT NOT

#BAT ,RMCS21
2908

MOV
ADD

*TRANSFER ERROR DETECTED?>

;ERROR NUMBER
.GOOD DATA FOR TYPEQUT
;MOVE SP TO RETURN FOR ERROR

$GDDAT
#2,(SP)
PC.a(SP)+
#10, (SP)

BIT
BEQ
MOV

000000

RMBAO, $GDDAT

RMBA]
, $BDDAT
#4, (SP)
#16,3(5P)

42, (SP)

PC.a(SP)+
#10, (SP)

(SP)

ZERO

CORRECT

;GET WORD COUNT AT END OF

TRANSFER AND

:SU%TRACT STARTING WCRD COUNT.
. %

SADD STARTING BUS ADDRESS
:zgslgus ADDRESS INHIBIT (BAI) SET 2?2

*ADDRESS SHOULD NOT HAVE CHANGED
;BUS ADDRESS 0K??

JYES!!
;BAD DATA FOR TYPEOUT
;ERRCR NUMBER
;MOVE SP TG RETURN FOR ERROR

JREPORT UNEXPECTED ADDRESS

JRESTORE

(SP)

:COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT
265%:
CLR
~(SP)
JNUMBER OF SECTORS TRANSFERRED
MOV
RMWC
I, =(SP)
;GET WORD COUNT AT END OF TRANSFER AND
SUB
RMWCO. (SP)
sSUBTRACT STARTING WORD COUNT.

001340
001414
001412

000002

000004
000002

BIT

CLR
SUB
JSR
SUB
NOP
;REPORT

;WAS DATA

ERROR 1F RMW(C NOT ZERO AND TRE IS ZERO
MOV
RMWJC] ,$BDDAT
:vggo COUNT ZERQ??
BEQ
285$

MovB

000010

000400
000002

#SEARCH,S515$
2808
355¢

BNE

000000

042454
042462
042470
042474

163737

CMP
BLO
JMP

2008:

MOV
BIT
BEQ
ADD

#256. ,=(SP)
#81T1.RMCS10
300%
#2.(SP)

INC
SUR
8GT
CMP

4(SP)
(SP),2(sP)
3008
(SP)+,(SP)+

;COMPUTE EXPECTED SECTOR,

;ASSUME 256. WORDS PER SECTOR

:HSADER £ DATA COMMAND ??

SNO

sCHANGE TO 258. WORDS PER SECTOR

; INCREMENT SECTOR COUNT
;SUBTRACT ONE SECTOR'S WORTH
cCONTINUE IF NGT DONE
JRESTORE STACK

TRACK AND CYLINDER ADDRESS FROM

JRMABC RMOS/3/2 FCINL

13T 2

MACRO v04.00

001446
001420
001420
001334
043456
043456

043446
043450
043452
043456 _

042737
000337
042737
062637

000377
043450

043450

177400

043452

023727

043452

000040

005237
162737

043450
G00040

)
043452

023737

043450

043456

SECONDARY ERROR CHECK SUBROUTINE

58°

59
60
61
62

042632

042640
042646
042654
63 042662
64 042666
£5
66 042672
67 042700
¢8 042704
o9 042712
70
71 042716
72 042724
73 042726
74 042732
75 042740

76
77 042742
78 042750

013737
013737
013737
013737

103406

000766
103407
005237
163737
000766
000240

043452

042752
80 042756
81 042764
8¢ 042766
83
84
85 042770
86 042770
87 042774
88 043002
89 043004
90 043012
91 043014
92 043022
93 043030
94 043036
95 043044
96 043046
97 043052
98 043060
99 C43064
100 043066
043072

162716
000240

000010

043074
043100
043106
043110
043116
043120
043124
043126
043132
043134
043142

005037
032737
001031
023727
101425
005737
001012
005737
001007
032737
001413

001140
002000

001352

043446

001466

043446

043456

4-APR-81

LB L)
1°:43:33 PAGE 26-1

;NUMBER OF SECTORS
MOV
RMDCO, 5008

MOV

RMDAQ, 505%

MOV
MOV
SWAB
INC

RMDAO, 510%
LSTRK,520%
5208
520%

BIC
SWAB
BIC

#*(C<TADMSK>,505%
; SAVE TRACK ADDRESS BITS AND
505%
;SWAP TRACK ADDRESS TO LOW BYTF.
#~C<SADMSK>,
5108
;SAVE SECTCR ADDRESS BITS

3108:

(MP
BLO
INC
SuB
BR

5108, 432.
3158
505%
#32.,5108
3108

;SECTOR OVEFLOWED??
NO!!
: INCREMENT TRACK
:ADJUST SECTOR
$TRY AGAIN

3158:

(MP

505%,5208%

: TRACK OVERFLOWED??

ADD

043450

023727

BLO
INC
SUB
BR

3208
5008
5208,505%
3158

NOP

101407

032737
001003
012737
013737
042737
023737
001413
062716
112776
162716

004736

001140
043446

001466

002000

001352

002000
001350
175777
001140

001140
001142
001142
001142

000004
000017
000002

000000

325%
#1AE ,RMERT]
325%
#LBT,$GDDAT
,
RMDS],$BDDAT
#~CLBT, $BDDAT
$GDDAT.SBDDAT
3308

MOVB
SuB
JSR
SUB
NOP

#17,3(SP)
#2, (SP)
PC,3(SP)+
#10, (5P)

(LR

BIT

BNE
CMP
BLOS
TST

043452

043454

$GDDAT
5008, #822.

ADD

3308:

"1BT'"
IS NOT

BLOS
BIT
BNE
MOV
MOV
BIC
cMP
BEQ

REPORT ERROR

043450

000010

(LR
cme

325%:

BNE
TST
BNE
BIT
BEQ

JINCREMENT TO GET TOTL # OF

TRA(KS.

(SP)+,510%

;REPORT ERROR IF

005037

;STORE ORIGINAL CYLINDER
;STORE ORIGINAL TRACK
;STORE ORIGINAL SECTOR
:STORE LAST TRA(K,
;GET TRACK ADDRESS TO LO BYTE AND

#4, (SP)

INO!!
: INCREMENT CYLINDER
:ADJUST TRACK
:TRY AGAIN
CORRECT
:SET GOOD DATA FOR LBT
:SHOULD LBT BE 3ET??

INO!
:WAS TAE SET 77
:YES = LBT SHOULD NOT BE SET
:SET GOOD DATA FOR LBT
:BAD DATA FOR TYPEOUT
;IS LBT CORRECT??
YES!T
;ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR
REPORT LBT IS WRONG
RESTORE (SP)

"AOE''
IS INCORRE(T

$GDDAT

SET FOR AOE - 0

3408
5008, #822.
3408

YES="'AOE’' SHOULD BE ZERO
:SHOULD AOE BE SET??
INO!

3358
5108
335%
#F2,5158
3408

SYES

#1AE ,RMER1]

5058

:WAS '‘IAE'" DETECTED??

:MAYBE

SYES !!
:WAS THIS READ OR WRITE
;NO !

CHECK 2?

(ZRMNBO RMOS/3/2 FCINL

IST 2

-k

He 5 BN L
EIV

nnaraNONU O NONY

—Ac—l—b_l—l——l—)—l—i—l-—l—‘—.-—l_d_a_al—l-a.l—-)_l-—d —d b
NN NN AN NN NN N

St CONDAR/ ERROR CHECK SUBROUT INE

063144
043150
043152
043160
043164
043172
043200
043206
043214
043216
043022
043230
043234
043236
043242
043244
043252
043254
043262
043266
043274
043302
043310
043312
043316

043324
043330

~
og

—

043332
145 043336

043340

Y
NN
N
QU

[o,¥e
Yo No 3(AR ARC L 1V AV, 1V, 1V, 1V, 1V, ]
LR
— O VOO NOWNININN
—

043346
150 043354

043362

043370
043372
043376
043404
043410
043412

043416

— cmd e

043420
043424
043430
043432
164 043436
165 042440
166 043444
167
i68 043446
169 043450
170 043452
121 043454

005737
001410
012737
005037
012737
013737
042737
023737
001413
062716
112776
162716

004736
162716

000240

032737
001062
013737
000337

113737
013737
023737
001413
062716

001000
043450
000001
001352
176777

112776
162716

004736
162716
000240

062716
105776
001403
062716
000402
162716
000207

000000
000000
000000
000000

043452
001142
001142

000004
000020
000002

000000

335%:

340%:

TST

RMWC
]

:vgg ALL DATA TRANSFERRFD ??

MOV

#AQE ,$GDDAT

“SET FOR AOE = 1

MOV

#1,510%

*CLEAR EXPECTED TRACK
*EXPECT SECTOR = 1
‘BAD DATA FOR TYPEOUT

8EQ

345%

;1S AOE CORRECTY??
SYES!!

BEQ

CLR

MoV
BIC
(MP

ADD
MOVR
SuB
JSR

000010

SuB

NOP

002000

001352

043450
001140
043452
001344
001140

001140

000010

013737
042737
013737
023737
001413
062716

001140

001142

162716

001140
001142
001142

MoV
CMP
BEQ
ADD
MOVB

000000

SuB

JSR

Sus

043446
176000
001372
001140

001140
001140
001142
001142

000004
000022
000002

000000

<REPORT

350%:

505%

RMER1],$BDDAT
#~CAOE ,$BDDAT
$GDDAT ,$BDDAT

#4,(SP)
#20,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

:ERROR NUMBER

JMOVE SP TO RETURN FOR ERROR

;REPORT AQE

JRESTORE

IS WRONG

(SP)

360%:
365%:
500%:
505%:
510%:

515%:

PC,A(SP)+

#10, (SP)

;ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
;REPORT BAD DISK ADDRFSS
JRESTORE (SP)

#4,(SP)

#22,3(SP)
#2,(SP)

SUB

#10, (SP)

JREPORT BAD CYLINDER
JRESTORE (SP)

ADD
TSTR

#4,(SP)
a(SP)

;WAS ERROR FOUND??

NOP

000004

#2,(SP)

;SETUP RECEIVED DISK ADDRESS
; COMPARE EXPECTED & RECEIVED
JBRANCH IF EQUAL

MOvVB
SuB
JSR

355%:

RMDAI
, $BDDAT
$GDDAT ,$BDDAT
350%
#4,(SP)
#21,2(SP)

ERROR IF RMDC IS INCORRECT
MoV
500%, »GDDAT
sSETUP EXPECTED (YLINDER
BIC
#°C1777,8GDDAT
MOV
RMD(I,$BDDAT
;SETUP RECEIVED CYLINDER
CMP
$GDDAT, $8DDAT
; COMPARE CYLINDERS
BEQ
355%
;BRANCH IF EQUAL
ADD

000010

000004

3408

:REPORT ERROR IF RMDA IS NOT CORRECT
345%:
BIT
#1AE,RMER1!
;WAS THERE AN JAE ERROR ??
BNE
355%
sYES ~ DONT CHECK RMDA,RMD(
MOV
5058, $GDDAT
;SETUP EXPECTED DISK ADDRESS
SWAB
$GDDAT
MOVB
5108, $GDDAT

NOP

000004
000000

~N 14
11:43:33 PAGE 26-2
CEQ

001140

000004
000021
000002

000240

4&-APR-81

001340

112776
162716

004736

MACRC v04.00

BEQ
ADD
BR
SuB

PC,a(SP)+

360%
#4,(SP)

365%

RTS

4, (SP)
PC

-WORD
.WORD
.WORD
.WORD

0
0
C
0

;ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR

;MOVE

(SP)

TO ERROR CALL

;MOVE

(SP)

TO ERROR RETURN

;MOVE

(SP)

TO NO ERROR RETURN

s CYLINDER

. TRACK

sSECTOR

;FUNCTION CODE

"IRMNBO RMOS/3/2 FCTAL T1ST 2
MACRC v046.00
SECONDARY ERROR (MECK SUBROUT
INE

*72 063456

00000C

5208:

&~APR-81

WORD

B 15
17:43:32 PAGE [6~3

JT0TAL ® CF

TRATKFS

AST CRA e

e°

“IRMNBG RMOS/3/72 FCINL TST 2

ERROR C(HECK SUBROUTINE

FOMPOS!ITE

MACRC v04.00

4-APR-81

NS NN

.SBTTL
sTHIS

C(OMPOSITE ERROR (MECK SUBROUT INE
SUBROUTINE

;THE MASKS ARE

JCALL:
(N

JSR

. WORD

NENN

M
N
;

THE

STORED

CONTENTS OF

RMER

AND

.WORD

B8R
NOP
ERROR
JSR
2?27

APPLIED.

PC,CMPERRSTS

2?2
PC,a(SP)+

MASK FOR CRROR REGISTER 1
MASK FOR ERROR REGISTER 2
RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB
GO BACK

TO SUB FOR MORE

RETURN HERE

043460
001352
200000
000002
001400
000000

32 043514
33 043520
34 (43524

062716

000006
000000
000004

27
38
39
40

005737
001420
013737
005037
062716
112776
162716
004736
162716
000240

41 043550
42 C43554
043562
043566
063570
043574
043576

105076
162716

001176
001140
000004
000066
000002

;MASK AND STORE
MOV
BIC
ADD

001200
001200

MOV
BIC

ADD
(LRB

SUB

:SEE IF

TESTED SHOULD

$3 043604
5 043612

013737
005037
062716

001200
001140
0000C4
000067
00000¢

RMER21, $TMP?
a(sP) ,$TMP2

[.E.. S$TMP1

$TMP1,SBDDAT
$GDDAT

*RECEIVED STATUS FOR TYPEOQUT
SEXPECTED STATUS FOR TYPEOUT

#4, (SP)

MOVB

#66,a(SP)

JSR

PC.R(SP)+

#2,(SP)

#10, (SP)

INO U

SMOVE

5P TO USER'S ERROR CALL

:CORRECTABLE DATA CHECK ERROR #

*MOVE SP TO RETURN FOR ERROR

*REPORT ERROR VIA USER

iMOVE SP BACK TO BRANCH

THERE ARE ANY ERRORS TO REPORT IN RMER2 ($TMP2)
ST

$TMP?

:ANY ERRORS

MOV
CLR
ADD

$TMP2 , SBDDAT
$GDDAT
#6, (SP)

;RECEIVED STATUS FOR TYPEOUT
*EXPECTED STATUS FOR TYPEOIT
:MOVE SP TO USER'S ERROR CALL

BEQ

00C000

SP AT NO ERROR RETURN

MOV
CLR

SUB

001142

:LEAVE

:ANY ERRORS TO REPORT??

NOP

;MOVE SP TO USER'S ERROR CALL
*CLEAR ERROR NUMBER

$TMP1

SuUR

;SEE

#4, (SP)

$STORE RMER2 AT TEMP STORAGE
*MASK RMER?

THERE WERE ANY ERRORS IN RMER1,

ADD

000000

#6, (SP)
a(5P)

AND RMER2

;STORE RMERT AT TEMP STORAGE
‘MASK
RMERT
*MOVE SP "0 NEXT MASK

BEQ

001142

5%:

001200

THE CONTENTS OF RMERT

RMERTI, $TMP1
a(SP) ,$TMP1
#2,(SP)

:CLEAR USER'S ERROR CALL

000010

005737
001420

112776
162716

001176
001176

001176

50 043576
51 043602

55 043616
96 063622
57 C43630C

CHECKS

CMPERRSTS:

03737
047637
062716
013737
047637

043530
043534
043536
043544

ERROR

NO MORE ERRORS

BITS TO BE MASKEC SHOULD BE ONE; BITS TO BE
JNOTE:
;BE ZERO

043460
043466
043474
043500
043506

43
44
45
46
47

CHECKFS

SRMERZ AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS
sMASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER

=0 VRN

[AV 14V ] 4V IO S

24
25
26
27
28

c1 3
11.43:33 PAGE 2

MGYB
SUR

10%

#67.3(SP)
#2,(5P)

*NO!!

IN RMER2?

*WRITE ERROR NUMBER IN ULSER'S (ALL
*MOVE SP TO RETURN FOR ERROR

JRMABO FM(S/73/2 FCINL

OMPCSITE

ERROR

58 043634
59 463636
60 J63642

61 043644
&2
63
64 043644

65 063650

66 043654
67 043656
68 043662
u9 0463664
70 043670

(HECK

004736
162716

000240

062716
105776

001403
062716
000402
162716

000207

TST 2
SUBROUT
INF

MATR) v06.00

4&-APR-81

+SR
SuB

00010
10%:

000006
000000

JAUGMENT

20%:
30%:

2/-1

P(,a(SP)+
210, (SP)

THE RETURN ADDRESS
ADD
&6, (SP)
1STR
a(SP)

8tQ

000004

00C004

NOP

D 15

11.43:33 PAGE

208

JREPORT

sMOVE

EFRROR VIA USER

SP TO NO ERROR RE TURN

ANY ERROR WAS DETECTED

:MOVE SP TO USER'S ERROR CALL

;xgs'mfns AN ERROR CALLED??

ADD

#s,(SP)

SYES- MOVE SP TO ERROR RETURN

RTS

JRETURN

B8R
SURB

308
#4,(SP)

JMOVE

SP TO NO ERROR RETURN
T0O USER

JRMNRO RMOS/372 FOINL
SELETY

SUBRCUTINE

MACRO v06.00

NP,

.SBTTL

D md

d o o

NRENE NN 2O DWW N

;
:

JCALL:
2 (2)
(3

2 (4)

043672

(43706
043712
043716
0643720
043722
043730
043736
0643742

013746
013746
010046
010146
012737
012737
013700
013701

000004
000006

27 043746

111160

THE DEVICE,

PC,DEVSEL

ERROR

044042
000300
001276

MOV

000010

GETTING

RETURN [F
RETURN [F
ERROR

010000

001174

34 044004
35 044012

032737
001407
062766
112776
000422

000004
000111

000010

37 044014
38 044022
39 044026

032737
001021
062766

004000

001176

000004

000010

64
65
46
47

022626
062766
112776
162766

000112

MOV
MOV

MOvB

THE

DEVICE NUMBER FROM

NO ERROR
ERROR

DEF INED BY

SIUBROUI INL

000010

10$%:

;;PUSH ERRVEC ON STACK

RO,-(SP)
R1,-(SP)

;:PUSH RO ON STACK
;:PUSH R1 ON STA(CK

$BASE RO
TSTQUE ,R1

;RO = UNIBUS ADDRESS
;R1 POINTS TO DEVICF NUMBFR

#20% ,ERRVEC
#PR6 ,ERRVE(C+2

;;PUSH ERRVEC+2 ON STACK

;SETUP FCR BUS TIMEOUT

000010
000010
000010

RMCST(RO),$TMP1 ;GET 'DVA’* STATUS
RMCS2(R0) ,$TMPO ;GET *NED'' STATUS

BIT

ANED , $TMPO

;1S DEVICE NONEXISTENT ?

MOVB

#111,3810(SP)

;WRITE ERRGR NUMBER

30%:

108
#6,10(SP)

30%

BIT
BNE

#DVA,$TMP1
358

MOV

#112,810(5P)

BR
20$:

IS AVAILABIE

MOV
MOV

ADD

000010

ERRVEC,~(SP)

ERRve(4+2,~-(SP)

,WRITE UNIT SELECT BITS

%§;STORE

012601
012600
012637

;MOVE SP TO USER'S ERROR
;CLEAR LOW ORDER BYTE OF CALL
sMOVE SP BAC(K

(R1) ,RMCS2(RO)

BEQ
ADD

;HANDLE

000004
000113
000002

R4, (SP)
@ (SP)
#4,(SP)

JSELECT DEVICE AND VERIFY THAT DEVICE

31 043766
32 0643774
33 043776

112776
000407

MOV
MOV

001466

001176
061174

60 064032
41 044040

MOV
MOV

000004
000006

000000
000C10

044066
044070
(66072

SELECTS

JSAVE USER'S INFORMATION AND SETUP REGISTERS

016037
016037

044066

JSR

8R
NOP

ADD
CLRB
SUB

28 043752
2y 043760

SELECT SUBROUTINE

;CLEAR USER'S ERROR CALL

OOV

000004
000000
000004

DEVICE

DEVSEL:

062716
105076
162716

044042
04640446
044052
044060

E 15

11:43:33 PAGE 28

THIS SUBROUTINE
TEST QUFUE.

063672
043676
0643702

21
22
23
24

4&-APR-B1

SEQ 0186

ELITE

IST 2

BUS

CMP
ADD
MOVB
SUR

#4 ., 10(SP)
30%

TIMEOUT

(SP)+,(SP)+
#4,10(SP)
#173,310(SP)
#2,10(5P)

USERS DATA AND RETURN

Mov

MoV
MOV

(SP)+,R1

(SP)+,RO
(SP)+ ERRVE(+2

N0
;MOVE

SP TO USERS ERROR CALL

;1S DEVICE AVAILABLE
JYES.!

;MOVE SP TO USERS ERROR CALL
SWRITE ERROR NUMBER

;ADJUST SP
:MCVE SP TO USERS ERROR CALL
;WRITE BUS TIMEOUT ERROR NUMRER
;ADJUST RETURN TO °'NOP' PRECEDING
‘THE ERROR CALL
TO ADDRESS ON STACK

;:POP STACK INTO R1

;,POP STACK INTO RO
;;POP STACK INTO ERRVE(+?

THE

IRMNBO RMGS/3/2 FCINL

T1ST

DEwiCE SELECT SUBROUTINE
166076

§2 044102

(012637

200207

000GU4

MACRO v04.00

&-APR-B1
MOV
RTS

F 15
11:43:33 PAGE 28-1
(SP)+ ERRVE(
PC

:;POP STACK
JEX]T

INTO ERRVE(

T
s

(YL

TINE

MAIRC

s 0C

4-APR=-81

6 15

11:43:33 PAGE

SEQ 0188

LSBTTL

SUBROUTINE

RESULTS OF

SEEK

TESTS USING

-y
.

.(ALL.
S (1)
H
:
;

NPOPVNNIND 2

dead bt
e =

[V, R SRV 1,V SOOVWNRNE
WL

THE

064104
064104

044106
044112
044116
26 044122

044126
044134
044136
044144

36 044146
27 044152
38 044160
39 044164
40 044172

41 044176
42 044200
43 044204
46
47 044206

48
49
50
21

064214
064222
044230
044232

é
53 044240
gg 044246

56 66250
57 044256

JSR
BR

PC,SEKSTS
7

JSR
272

PC,a(SP)+

SEEK STATUS

IN THE

PUT BUFFER.

IS CHECKED AS FOI LOWS:

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SuUB
GO BACK TO SUB FOR MORE ERROR (HF(KS
RETURN HERE IF NO MORE ERRORS

SEKSTS:

000240
062716

105076
162716

005037

,CLEAR USERS' ERROR CALL
NOP

000004
000000
000004
045342

ADD

CLRB
SuB
CLR

sTEST

20
31
3o
23

CALLING ROUTINE.

NOP
ERROR

.
:

GET BUFFER AND TEST PARAMETERS STORED

STATUS

THE

YHE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED
SAFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE "ERROR'® TRAP

IN THE

VERIFIES

;STORED

2w I

sTHIS

SEEK STATUS CHECK SUBROUT INE

032737

001424
032737
001620

005037
013737
062716

000010

001352

000010

001400

162716

001140
001352
000004
000050
000002

162716

000010

112776

004736

000437

001142

000000

040000
001446

045342
001466

040000

123737
123727

101016
101410

002000

001140

;MOVE

a(SP)
#6,(SP)
300%

FOR MASSBUS

CONTROL

BEQ

8JT

BNE

(SP)

TO ERROR

CALL

;CLEAR ERROR NUMBER
sMOVE (SP) TO NO ERROR RETURN
;CLEAR ERROR FLAGS

BUS

;LOCAL REGISTERS, l.E., ‘PAR"’
BIT
#PAR ,RMER1 |
1%

#DPE ,RMERZ2]
1%

PARITY ERROR WHEN WRITING

= 1 AND ‘DPE'" - 0

;w3§'PARITY ERROR DETECTED??

:NO!!
sWAS IT DUE
sNOT SURE.!

TO CONTROL BUS??

:REPORT REGISTER PARITY ERRCR VIA USER'S ERROR CALL
CLR
$GDDAT
JEXPECTED STATUS
MoV
RMER1] ,$BDDAT
JRECEIVED STATUS
ADD

#4, (SP)

;MOVE

JSR
SuB

PC,a(SP)+
#10, (SP)

JRESTORE

MOVR
SUB
BR

012737
052737
023727
101025
062737

#44,(SP)

#50,a(SP)
#2,(SP)
3%

STACK

TO USER'S ERROR

;ERROR #50
;MOVE SP TO RETURN FOR ERROR
STACK

;IAE SHOULD

BE ZERO

sDETERMINE THE VALUE OF “'IAE"" STATUS BASED ON TRACK,
JALSO, SET "'SKI'" IF CYLINDER ADDRESS IS TOO LARGE.
18:
MoV
#]AE ,$GDDAT
;SETUP FOR IAE - 1
BIS
#SK1,300%
;SETUP FOR SKI =1

SECTOR AND (YL INDER

CMP

RMD(O, #822.

045342

BIC

#5K1,300%

001421

001335

CMPB
BH!

RMDAQ+1,LSTRK
+1 ;GREATER THAN LAST TRA(CK ?
JYES = TRACK IS INVALID
38

001420

000035

(mpg3

RMDAQ, #29.

BHI

BLOS

1GREATER THAN LAST CYLINDER ?
JYES = CYLINDER IS INVALID
:CLEAR SKI ERRCR FLAG

JSECTOR > 29.
JBR IF

JRMNEL, OMCS/ 3/ FTINL IST 2
SEtx STATOS (HECK SUBROUT INE

58 044260
59 044266

032737
0014606

6; 04646276

101002

gz 066300

60 066270

66 046306
67 066312

68 0446320

o9 0464326
70 044330

010000

001444

123727

001420

000037

0CS5037

001140

013737
0642737

001352
175777

023737

001004
042737

71 046433%
72 044340

000613

76 044340
75 0644344

062716
112776

77 (44356

004736

79 044364

000240

76 044352

78 044360

g? 044366
82
83
84
85 044366
86 044374

87 044376
88 044402

8Y 044410
9C 044414

91
92
93
94
95
96

044422
044430
044432
(44440
044444
044446

MACRG

001142
001142

001142

040000

045342

000002

162716

000010

010000

001400

001740
001400

001142

000000

gg 044452

000240

99
100
101
102

044454
Q44ab2
044470
044476

013737
042737
013737
042737

001400
137777
045342
137777

001142
001142
001140
001140

105
106
107
108
109
110

044506
044514
044516
044522
044530

032737
001032
062716
112776
162716

040000

001142

000004
000267

000002

000000

162716

000010

044534

004736

113 044542

000443

'L (44aS44

JYES = SECTOR IS INVALID

SGDDAT

;U'IAE'' SHOULD = 0

(LR

RMDAQ,#31.

ISECTOR > 31, ?

MOV
BIC

RMER1]1,$8DDAT
#~_]1AE ,$8DDAT

BNE
BI(C

35%
#SK1,300%

;1S lAE 0K??
;SAVE ]AE BIT FOR (OMPARE

$GDDAT,$BDDAT

:CORRECT '‘IAE'' STATUS

;GO CHECK NEXT ERROR

JBR iF NO
;CLEAR SKI FLAG

#4,(SP)
#51,2(SP)
#2,(SP)
PC,2(SP)+

#10, (SP)

;ERROR 51
JMOVE SP TO RETURN FOR ERROR

:REPORT

INCORRECT

JRESTORE

IAE

(SP)

NOP

;REPORT ANY [VC ERROR AS
;
IVC ERROR WITH VOLUME VALID ZERO
:
ERRONEOUS IVC ERROR, VOLUME VALID IS SET
BIT
#1vC,RMER2]
;1vC ERROR??
BEQ
52%
JNO!

(LR
MoV

ADD
MOVR

000000

000061
000002

112 044536

BH]

SUR

001350

111

;18 BIT FORMAT ?
SYES - SECTOR IS INVALID FOR 18 BIT MODE

ADD
MOVR
sus
JSR

000000

000100

001417

&FMT16,RMOFO
3s

JREPORT INCORRECT ''IAE'* STATUS VIA USER'S ERROR CALL

032737
001402
112776
162716
004736
162716

;82 044504

BIT
BEQ

CMP

5%:

000004
000060

H 15
11:43:33 PAGE 29-1

; COMPARE EXPECTED AND RECIEVED '‘IAE‘’ STATUS

3$:

35%:

000004
000051

4=-AFR-B1

{mMPB

2%:

001140

162716

032737
001427
005037
013737
062716
112776

vo%. 20

51%:

000010

JEXPECTED STATUS
:RECEIVED STATUS

4, (SP)
#60,a(SP)

:MOVE SP TO USER'S ERROR
JERROR 60 IF v - 0

BIT
BEQ
MOVB
SUB
JSR
SUB

#VV ,RMDS]
51%
#61,3(SP)

#2.(SP)
PC.a(SP)+
#10,(SP)

;ERROR 61 IF v
=1
JMOVE SP TG RETURN FOR ERROR
JREPORT ERROR VIA USER
JRESTORE SP

MoV
BIC
MOV
BIC

RMERZI,$BDDAT
#~CSK],$8BDDAT
300%,$GDDAT
#~(SKI,$GDDAT

;RECEIVED STATUS
;CLEAR DONT CARES
JGET EXPECTED SKI STATUS
;CLEAR DONT CARES

NOP

52%:

$GDDAT
RMERZ2].$BDDAT

BEQ

53¢

IBRANCH IF O EXPECTED

JREPORT ERROR IF SK] IS NOT SET (JAE WAS NOT DETECTED)
BIT
4#SK1,$BDDAT
IWAS SKI DETECTED ??
BNE
54%
JYES !
ADD
#4,(SP)
MOVE SP TO USERS ERROR CALL
MOVA
4267 ,a(SP)
:WRITE ERROR NUMBER
SuB
#2,(5P)
;MOVE 5P TO ERROR RETURN
JSR

SUR

BR
£3%:

PC,a(SP)+

REPORT ERROR AND RETURN

;G0 TO NEXT ERROR CHECK

#10, (SP)

;MOVE SP TO NO ERROR

AMCS/7 370 FOTINL TST 2
JHMNG
iy
JTATUS THECK SUBROUT INE

MACRO v04.00

4-APR-81

I 15

11:43:33 PAGE

29-2
FQ 0190

064544
“18 044552
119 044554
20 0464560
044566
122 044572
123 044574
124 044600
125

126

127 044602
128 044610
129 044612

130 044616
131 0464624
132 044630
133 044636
134 044642
135 044644
044650

OV
WA
OO 00~y

B —d v

[s Yo JV, IV, IV, IV TV TV B0 TV, IV, TV, P W oW N

0464652
044660
044662
044666
044674
044700
146 044706
064714
064716
064724
044730
044732

032737
001413
062716

040000

001142

112776
162716

000004
000054
000002

000000

162716

000010

032737
001420
005037
013737
062716

000200

001400

001140
001400
00T004

001142

004736
000240

112776
162716

004736
162716

000240

032737
001427
005037
013737
062716
112776
032737
001403
112776
162716

004736

000055
000002

0200C0
001140
001352
000004
000052
010000

000053
00C00¢
000010

064740
044744
064750
044754
064756

013746
042716
022726
001002
000137

001350
047677

162 044762

032737
001030
032737
001024
013737

e el el i el e ——b

162716
000240

166 045002
167 045010

168 045016

169 045024
170 045030
171

045036

052737
013737

062716
112776

162716

ERROR

BIT

000000

001352

#2,(SP)

;MOVE SP TO RETURN FOR ERROR

#10, (SP)

JRESTORE

6%:

ANY DEVICE

BIT

110100

045312

001350
010000
001350
000004
000062
000092

001140
001140
001142

000000

(SP)

CHE(K

BEQ
CLR
MoV
ADD
MovB

6%
$GDDAT
RMER21,$BDDAT
#4, (SP)
#55,a(SP)

JSR
SuB
NOP

PC,(SP)+
#10, (SP}

;WAS THERE DVC DURING SEFK??

JNO.
.
JEXPECTED STATUS
;RECEIVED STATUS

JERROR
455
sMOVE SP TO RETURN FOR ERROR
;REPORT ERRCR VIA USER
JRESTORE SP

#2,(SP)

BIT

#0P1 ,RMER1I

MOV

RMER11,$BDDAT

BEQ
CLR

7%:

8s:

001352

sREPORT SEEK ERROR

#DV( ,RMERZ!

;REPORT

9%:

OPI

'UPI" ERROR??

8%
$GDDAT

:NO.
:EXPECTED STATUS

ADD

#4,(SP)

;MOVE

BIT
BEQ
MOVB
SUB
JSR
SUB

#MOL ,RMDS
7$
#53,2(SP)
#2,(5P)
PC,R(SP)+

;WAS MEDIUM ON LINE??
;NO!!
;YES - CHANGE ERROR NUMBER
;JMOVE SP TO RETURN FOR ERROR
JREPORT "OF1'" ERROR
JRESTORE (SP)

MOvVR

;SEE

020000

;LOAD ERROR NUMRER

PC,a(SP)+

MOV

RMDSI ,~(SP)

BIC
{MP
BNE
JMP
ERROR

AND ''ATA'",

(SP)

STATUS

TO ERROR

;LOAD ERROR NUMBER

#10, (SP)

'PIP'" - 0,

BIT
BNE

;RECEIVED

#52,2(SP)

NGP

001350

sNC = SKI IS 0K
;MOVE (SP) TO ERROR

SREPORT ANY ''OPI'* ERROR AS OP] UITH MOL
;BECAUSE ON CYLINDER LATCH DIDN'T RESET

000000
001350

010000

;1S 5k1 SET 2?2

#54,2{SP)

SUB

001142

000000

SETV

SUB

SuB
NOP
;REPORT

54%
#64,(SP)

JSR

54%:

SK]

#SK]1,$8BDDAT

BEQ
ADD

MOvB

000010

044736

163 044770
164 044772
165 045000

;REPORT

'MOL'® AND "VV''

A*C<ATA PIP._MOL.VV>, (SP)
AATA MOL !VV, (SP)+
9%
;ERROR IN RMDS
149
JRMDS IS OK
IF

MOL

- O AND OP]

AMOL ,RMDS
10%

- 0

;15 MOL RESET??
;NO - MOL IS SET

BIT

#0P] ,RMER1]

;WAS OP]

MOV
BIS
Mov
ADD
MOvR

RMDS1,$GDDAT
#MOL
, $GDDAT
RMDS1, $BDDAT

JEXPECTED

STATUS

JRECEIVED

STATUS

BNE

SuB

108

#4, (SP)

#62,9(SP)
#2,(SP)

SET

sYES = DONT REPORT ERROR

;JMOVE

SP "0 RETURN FOR ERROR

’EL"‘_‘MC RM0S/3/2 FCINL TST 2
€ «
3TATUS CHECK SUBROUT INE

172 045042

173 965046
};2 045050
176
177 045052
178 045060
179 045062

180 045070

181 045072

004736

MACRO v04.00

JSR

162716
000240

(00010

032737
001430
032737
001024

020000

001350

040000

001400

001350

001140

013737

SuB
NOP

182 04645100
183 045106

(042737
013737

020000
001350

001142
001142

185 045120
186 045126
187 045132

112776
162716
004736

000056
000002

000000

;gg 0645140

000240

184 045114

188 045134

191
192
193
194
195
196
197
198
199

062716

162716

000004

M
202 045214
582 045220

162716
000240

000010

205
206
207
208
209
210
211

045222
045230
045232
045240
06452642
045250

032737
001030
032737
001024
013737
052737

000100

001350

010000

001400

001140
001140
001142

215 045276

162716

001350
000100
001350
000004
000064

212 045256
213 045264
214 045270
216 045302
217 045304
218 045310
S;g 045312
221
222 045312

223 045314
226 045320
225 045324
226 045326
227 0645332

004736

013737
062716
112776
004736
162716
000040

000240

062716
105776
001403
062716
000402

100000

001350

001350
110600

001140
001140

001350

001142

000057
000002

000000

000007

8IC
MOV

#PIP,$BDDAT
RMDS I, $BDDAT

;JRECEIVED STATUS

MOvB
SUB
JSR

#56,a(SP’
#2,(SP)
PC,a(SP)+

;LOAD ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
SJREPORT ‘'PIP'' SET AFTER SEEK

RMDS] ,$GDDAT

&4, (SP)

#10, (SP)

JEXPECTED STATUS
JMOVE

(SP)

TO ERROR

JRESTORE

(SP)

REPORT AN ERROR IF ''ATA"'
IS NOT SET
11%:
BIT
H#ATA RMDSI
;WAS "'ATA'' SET ?2?
BNE
13%
JYES.!
MOV
RMDSI, $GDDAT
JEXPECTED STATUS
BIS
#ATA MOL 'DPR!DRY,$GDDAT
MOV
RMDS] ,$BDDAT
JRECEIVED STATUS
ADD
#4,(SP)
:MOVE (SP) TO ERROR
MOVR
#57,a(SP)
;LOAD ERROR NUMBER
SUR
#2,(SP)
JMOVE SP TO RETURN FOR ERROR

JSR

PC.,a(SP)+

sus
NOP

#10, (SP)

JREPORT ATTENTION NCT SET DURING
;SEEK TEST
;RESTORE

{SP)

;REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO
13%:
BIT
AVV ,RMDS ]
JISvw =072
BNE
14%
sNO..
BIT
#1VC .RMER2]
;IS IvC ALSO 0 ??
BNE
148
JNO - IvC IS SET
MOV
RMDSI,$GDDAT
JEXPECTED STATUS
BIS
#vV,$GDDAT

MOV
ADD
MOVB

900000

SuB

14%:

00000«

;REPORT ERROR VIA USER

;YES=DONT REPORT PIP

ADD

000010

000004
000000

PC.,a(SP)+

£10,(5P)

: G 0191

SUB

032737
001024
013737
052737
013737
062716
112776
162716

200 045212

BNE

MOV

NOP

045142
045150
045152
045160
045166
045174
045200
045206

J 15

11:43:33 PAGE 29-3

:REPORT AN ERROR If ‘PIP'* IS STIL SET AND SKI NOT SET
10%:
8IT
#PIP ,RMDS]
;IS "PIP' STILL SET??
BEQ
118
INO!!
BIT
#SK] ,RMER2!
JWAS ''SKI''SET?3

000010

000004

4-APR-81

JER
SuB
NOP

RMDS] ,$BDDAT
44, (SP)
#64,3({SP)

#2,(SP)

PC.a{SP)+
#10, (SP)

JRECEIVED STATUS

:ERROR #64

;MOVE

SP TO RETURN FOR ERROR

:MCOIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED
NOP

ADD
1SIB
BEQ
ADD
BR

#4,(SP)
a(SP)
15%
44, (SP)
16%

:MOVE (SP) TO ERROR fALL
:WAS ERROR CALLED??
:NO.
.
:MOVE TO ERROR RETURN

JRMNBU RMQS/3/2 FCTINL

SEEK

STATUS (HECK

TST 2

SUBROU
INE
T

229 045334
52? 045340

16276
000207

232 045%2

000000

000004

MATRO v04.00

4-APR-B1

K15

11:43:33 PAGE 29-4

SEQ 019¢

15%:
163

RTS

Sus

nG6, (SP)

< RE TURN

300%:

-WORD

SERROR FLAGS

sMOVE

(SP)

TO NO ERROR RETURN

CRMNB( RMOS/3/¢

INTRTLCER (LEAR

FAINL

TST

SUBROUT
INE

MAZRD v04.00

11:43:3%3 PAGE

SEQ 0193

NRL

.SBTTL

CONTROLLER CLEAR SUBROUTINE

:THIS SUBROUTINE C(LEARS THE MASSBUS CONTROLLER,
JAND DRIVES, THEN SELECTS THE DRIVE.

A
N = SO0 NG

LIy

—d
e
e
b
d

oJo R NTo RV, J S XYY

—

4-APR-81

045344
065344
045346
045350
045354
045360
045366
045374
045400
045406
045412
045416

20
21 045420
22 (045422
23 045430
24 045436
25 045444
0465444
045450
045454
045456
26 045460

010046
010146

013746

013746
012737
012737
013700
012760
013701
111160

000412
022626
062766
112776
162766

012637
012637
U1260i
012600
000207

000004
000096
045420
000300
001276
000040
001466
000010

000004
000007
000002

000006
000004

000004
000006
002010

JSR
B8R
NOP
ERROR
”

PC,CNTCLR

MOV
MoV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOVB

RO,=(SP)
R1,~(SP)
ERRVE(,~(SP)

;:PUSH RO ON STACK
;.PUSH R1 ON STA(K

#108 ,ERRVE(
#PR6,ERRVEC
+2

;SETUP FOR BUS TIMEOUT

000610000010
000010

10%:

(MP

2772

ERRVE(C+2,~(SP)

$BASE RO

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

20%

SuB

(SP)+,(SP)+
#4,10(SP)
47 ,a10(SF)
#2,10(SP)

MOV
MOV
MOV
MOV
RTS

(SP)+ ,ERRVE(C+2
(SP)+ ERRVE(
(SP)+ ,R1
(SP)+ RO
PC

ADD

MOVB

20%:

MASSBUS ADAPTERS,

RETURM HERE IF NO ERROR FOUND

RETURN HERE IF 4NY ERROR FOUND
SUB DEF INES EMROR NUMBER

. :PUSH ERRVEC ON STA(K

;.PUSH ERRVE(+2 ON STA(K

;RO = UNIBUS ADDRESS
:CLEAR MASSBUS

JGET DEVICE UNDER TEST
JSELECT DEVICE
JADJUST STACK
JMOVE SP TO USER'S ERROR (ALL
;WRITE

THE

ERROR ‘NUMBER

JADJUST 5P TO RETURN TO ERROR

;.POP STACK INTO ERRVE(C+2

:.POP STACK

INTO ERRVEC

:;POP STACK INTO R1
. ;POP STArK INTO RO

TIRWNBO RMOS5/372 FCINL

STAT
JS (HE(K

TST 2

SUBROUTINES

MATKO

v04.00

4-APR-B1

.SBTTL

CONTROLLER CLEAR STATUS (HECK SUBROUTINE

;THIS SUBROUTINE

NO N Rwooo
NN = O 008 O

WA SOV
NG A N = S
OOV

N NN NN N PO NI NI RS AD n;
NS NO M) b —d b b cd o b

STATUS (HECK SUBROUTINES

:"IQ.fil't.fi".fi.’tt..'tt"".t"'...'tt'Qt.'lt"".l'.'."t"..l.l

:STATUS STORED

VERIFIES

THAT

THE

IN THE GET BUFFER.

SUBSYSTEM

;5 OF RM(S2, BECAUSE

INITIALIZED BASED ON

THIS SUBROUTINE

JUSED FOLLOWING A CONTROLLER CLEAR OPERATION,

SHOULD ONLY BE

I.E., WRITING A 1

IN B]T

THE ERROR MESSAGES ARE BASED ON THAT CONDITION.

;STATUS PERTINENT "0 THE DEVICE IS NOT CHECKED.
JFOLLOWING STATUS BITS ARE NOT (HECKED:

N PARTICULAR,

THE

ATA,tRR,PIP,MOL
,WRL ,LBT,PGM,VV,0OM, UNS,SK],DVC

- SR

B8R

NOP

ERROR
JSR
7

045462

045476
045504
045512
045520
045526
045530
045534
38 045542
045546

013737
042737
012737
023737
001413
062716
112776

OO0~

WWINWN NN

062716

40 045550
41 045554

045556
045562
045570
045572
045576
045604
045610

50 045612
51 045616

53 045620
56 045626
55 045630
56 045632
57 045636

PC,CLRSTS

27?

RETURN HERE IF MO ERROR

PC,a(SP)+

ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR (CHECKS
RETURN HERE IF NO MORE ERRORS

RETURN HERE

TO REPORT AN ERROR

CLRSTS:

045462
045466
045472

43
b4
45
6
47
48
49

M 15
11:43:33 PAGE 31

105076
162716

162716
004736

100000

001140
001342

162716

000004
000127
000002

162716

000010

013737
010146
00504¢€
013701
11°116

001346
001466

8I1C

(Mp
BEQ
ADD

mMova

001142

;MOVE SP TO ERROR
;CLEAR ERROR NUMBER

#SC,$8DDAT

s JGNORE SPECIAL CONDITION

#DVA!RDY ,$GDDAT

$GDDAT ,$BDDAT
5%

4, (SP)

#126,a(SP)

MOV

RMBAI ,$8DDAT

ADD

#4, (SP)

BEQ

MOVB
SuB
JSR
Sgg
sREPORT

’%:

ERROR IF

MOV
MOV
CLR
MoV

MOVB

sMOVE

SP TO USER'S ERROR CALL

;MOVE

SP BACK

JVERIFY RMBA

;BRANCH [F

TO NO ERROR

IS ZERO

ZERO

SP TO USER'S ERROR CALL

;WITE ERROR NUMBER IN CA.L
sMOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER

JMOVE SP BACK TO NO ERROR
INITIALIZED

RMCSZ21,$BDDAT
R1,=(SP)
-(SP)
TSTQUE ,R1

(R1),(SP)

RECEIVED
.

;WITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER

;MOVE

#127,3(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)
RM(S2 NOT

;EXPECT DVA € RDY

; COMPARE EXPECTED,
;BRANCH [F EQUAL

SUB
#2,(SP)
JSR
PC,3(SP)+
SUB
#10, (sP)
NOP
;REPCRT ERROR IF RMBA NOT RESET
5%:
(LR
$GDDAT

0000C0

001142

#4,(SP)
a(SP)

suB
#4,(SP)
:MOVE SP BACK TQ NO ERROR
ERROR IF RMCS1 NOT INITIALIZED
MOV
RMCS11,88DDAT
;VERIFY RM(CS1
Mov

000004
000126
000002

005037
013737
001413
062716
112776

000240

;REPORT
4%:

004200
001140

000010

004736

ADD
CLRB

001336

162716

000240

;CLEAR USER'S ERROR CALL

000004
000000
000004

;VERIFY RM(CS?2
;.PUSH R1 ON STACK
JEXPECT IR & UNIT NUMBER
Rl
ADDRESS OF TEST QUE

JRMNBO RMOS/3/72 FCINL TST 2
MACRD v04.00
"CNTROLLER CLEAR STATUS C(HECK SUBROUTINE

58 045640
59 045644
60 045650

945652
045660
045662
045666
045674
045700
045702
045706

045710
045714
045722
045730
045732
045736
0465744
45750
045752
045756

[
P
S
I

et
s 0 QOO0
AN = OO0 NN B N

112776
162716

004736
162716
000240

005037
013737
042737
001413
062716

112776
162716
004736
162716
000240

000100
001140

001140

001142

000004
000130
000002

000000

000010

046040
046044
046052
046054
046060
046066
046072
046074
046100

005037

001140
001404

046102

046110
0466116
046124

046132
046134
046140
046146
046152
046154
046160

013737
001413
062716
112776
162716

004736
162716
000240
013737
042737
012737
023737
001413
062716
112776
162716
004736
162716

000240

sREPORT

13%:

#4,(SP)

SUB

#2, (SP)

CLR

RMMRT NOT INITIALIZED-IGNORE WC,LS,LST
RMMR1],$8DDAT
;VERIFY RMMR
AWC!LS!LST,$BDDAT
s IGNORE WORD CLOCK,
#MWD , SGDDAT
JEXPECT WRITE DATA BIT

ERROR
MOV
BIC
MOV
CMP

BEQ

ADD
MOVB
SUB
JSR
ggg

;REPORT ERROR

IF RMEC2
$GDDAT

19%

#4,(SP)

#135,9(SP)
#2,(SP)

PC.R(SP)+
#10, (SP)

SCT,

; COMPARE EXPECTED AND RECFIVE"
;BRANCH IF 0
.
;MOVE SP TO USER'S ERROR CALL
;WITE ERROR NUMBER IN CALL

;MOVE SP TO RETURN FOR ERROR

;REPORT ERROR VIA USER
;MOVE SP BACK TO NO ERROR
IS NOT RESET
JEXPECT ZEROS

RMEC2I,$BDDAT

JSR
ggg

ZERO

SP TO USER'S ERROR CALL

JREPORT ERROR VIA USER
;MOVE SP BACK TO NO ERROR

PC,a(SP)+
#10, (SP)

ADD

19%:

;WITE ERROR NUMBER IN CALL
sJMOVE SP TO RETURN FOR ERROR

#133,a(SP)
#2,(SP)

MOVR
SuB

sREPORT

#131.3(sP)

;MOVE

#4, (SP)

BEQ

000010

;BRANCH IF

$GDDAT ,$BDDAT
17%

mMov

; IGNORE UNSAFE

13%

PC,a(SP)+
#10, (SP)

JREPORT AN ERROR

000000

JMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;MOVE SP BACK TO NO ERROR

ADD

JSR
agg

001142

SP TO USER'S ERROR CAL(

:WITE ERROR NUMBER IN CALL

RMER11,$BDDAT
#UNS , $BDDAT

MOVB
SuB

17%:

INTO RI

:COMPARE EXPECTED & RECEIVED
*BRANCH IF EQUAL

:MOVE

MoV
BIC

ERROR
MOV
BIC
MOv

::PGP STACK

RMERi7 NOT RESET-IGNORE UNS
$GDDAT
.VERIFY RMER1

ADD

000002

000010

CLR

cMp
BEQ

000133

000004
000136
000002

#2,(SP)
PC,a(SP)+
#10.,(SP)

JSR
agg

000004

001376
140000
0117,7
001140

SuB
JSR

(SP)

#130.3(SP)

MOVB

001362
000046
00001C
001140

000004
000135
000002

#6,

BEQ

000010

162716
000240

ADD

:REPORT ERROR

9%:

000002

004736

#IR, (SP)
(SPJ+,$GDDAT
(SP)+_R1
$GDDAT,$BDDAT
9

MOVB

000004
000131

046030
046032
046036

112776
162716

£tQ 0195

382

001140
001352
040000

013737
042737
012737
023737
001413
062716

N5
11:43:33 PAGE 3 1-1

8IS
MOV
MOV
CMP
BEQ

000010

045760
045766
045774
046002
046010
046012
046016

046024

102

052716
012637
012601
023737
001413
062716

4-APR-81

:VERIFY RMEC2 O

;MOVE

SP TO USER'S ERROR CALL

;WITE ERROR NUMBER IN CALL
JMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA JSER
;MOVE SP BACK TO NO ERROR

IF RMMR2 NOT INITIALIZED-IGNORE RQA,RQRB
RMMR21,$8DDAT
;VERIFY RMMR?2
#ROA'RQB,$BDDAT
ATST Y1777 ,3GDDAT
JEXPECT TEST BIT ON
°©
$GDDAT, $BDDAT
218
#4,(SP)
;MOVE SP TO USER'S ERROR CALL
#136,3(SP)
JWITE ERROR NUMBER IN CALL
42,(SP)
;MOVE SP TO RETURN FOR ERROR
PC,a(SP)+
;REPCRT ERROR VIA USER
#10, (SP)

;MOVE

SP BACK

RMER2 NOT RESET-IGNORE

TO NO ERROR

SKI,DvC

TRK

JEMNBL QMCS/ %7 BTN TST 2
MATRC v06.00
\‘\'Q(JL;EQ LEAR STATUS (HE(KX SUBROUTINE
‘15

-,16

66162
046166

17 046174

‘18 046202

119 046204

120 046210
131
046216
122 046222
123 046224
046230

125

26 046232

127 046240
"¢8 066246
129 046254
130 046262
131 0466264
*32 046270
133 046276
134 046302
135 046304
136 046310
046312
128 046316
'39 046322
140 046324
41 046330
142 66332
143 046336
A 046340

005C37
013737

0427%7
001413
062716
112776
162716

004736

162716

000240

013737
042737
012737
023737
001413
062716

1140

(01400
040200
000004

000176

000002

001350
1727177

200600
0011740
000004

000134

000002

162716

000010

105776

000004
000000

000240
062716
01403
062716
000402
162716
000240
000207

c's:

000000

000010

112776
162716

004736

001142
001742

4-APR-BY

001142
C01142
001140
001142

IREPORT

215%:

000000

000004

23%:
24%:

31-2

SEQ 0196

(LR
MOv
8l
8tQ
ADD
MOVB
SuB
JSR
SuB

NOP

SGDDAT
RMERZ] ,SBDDAT

SEXPECT ALL ZEROS
. VERIFY RMERc

2158

:BRANCH IF OTHER BITS 0

#SK]:DvC,$8DDAT

#6.

(SP)

;IGNORE

DEVICE

ERRORS

;MOVE

SP TO USER'S ERROR CALL

:MOVE

SP TO RETURN FOR ERROR

#174,3(5P)

;WITE ERROR NUMBER [N CALL

PC.a(SP)+

:REPORT

02, (SP)

710, (sP)

:MOVE

ERROR

SP BACK

VIA USER

TO NO ERROR

ERROR IF RMDS NOT INITIALIZED
RMDSI , $BDDAT
MOV
;TEST DRIVE STATUS REGISTER
#“C<DRY'!DPR>,SBDDAT
B81C
#DPR!DRY ,SGDDAT EXPECTED DRIVE STATUS
MoV
(MP
$GDDAT ,$BDDAT
;COMPARE EXPECTED & RECEIVED
BEQ
22%
;BRANCH IF EQUAL
ADD
G, (EP)
sMOVE SP TO USER'S ERROR CALL
#1346 ,2(5P)
JWRITE ERROR NUMBER
MOVB
#2,(SP)
;MOVE SP TO RETURN FOR ERROR
SUB
PC,a(SP)+
JSR
;JREPORT ERROR TO USER
#10,
(SP}
SuB
sMOVE SP BACK TO NO ERRCR
NOP

ADD
1S18B
BEQ

000004

B 16

11:43:33 PAGE

#6, (SP)

a(SP)

23%

gzi(SP)
#4,(SP)

;MOVE

TO ERROR

CALL

;WAS AN ERROE DETECTED??

:NO!!

;YES - MOVE

;MOVE

TO ERROR RETURN

TO NC FRAOR RETURN

MATRO

y04.00

4-APR-81

17:43:33 PAGE

SEQ 0197

D oad Dl
otk b

NONWN
B N = OO NN
B uNT

.SBTTL

PACK ACKNOWLEDGE STATUS (HE(K

sTHIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE
sCOMMAND USING THE STATUS STORED IN THE GET BUFFER.
ERRCRS ARE

SREPORTED TO THE USER VIA THE USER'S ERROR (ALL.

sCALL:

;1)

046342

18 046342
19 046346
20 046352
21
22
23 046356
24 0466364
25 046366
26 046374
c? 046402
28 046410
29 046414
30 046422
31 046426
3¢ 046430
33 046434
34 046436
35
046436
046444
066446
046454
046462
0466470
046474
046502
046506
046570
046514

046516

046516
52 046524
53
54
55 046526
56 046534
57 046536

JSR
B8R
NOP
ERROR
JSR
227

PC,ACKSTS
2?7

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB

PC.a(SP)+

GO BACK

TO SUB FOR MCRE

RETURN HERE

ERROR CHECKS

NO MORE ERRORS

ACKSTS:

062716
105076
162716

000004
000000
0C0004

032737
001024
013737
052737
013737
062716

000100

112776
162716

001350
000100
001350
000004
000155
000002

162716

000010

004736

000240

;CLEAR USER'S ERROR (ALL
ADD

:REPORT

BNE
MoV

8IS

MOV
ADD
MovB

600000

SUB
JSR
SuB

1%:

032737
001024
013737
052737
013737
062716
112776
162716

004736
162716
000240

010000

001350

001350
010000
001350
000004
000041
000002

001140
001140
001142

MOV
ADD
movs

2%:

03?737
00 024
013777

040000

001352

001142

001352

NOP

BIT
BNE
MoV
BIS

000010

060007

#4,(SP)

;MOVE

SP BACK

IfF

AVV RMDSI

SUB
JSR
SUB
NOP

TO ERROR

IS 0

1%
RMDS], $GDDAT
#VV,$GDDAT
RMDSI,$BDDAT
#4, (SP)
#155,a(SP)

#2,(SP)
PC,a(SP)+
#10, (SP)

AMOL ,RMDS |

;IS

VOLUME

VALID

JYES'!
SEXPECTED STATUS

sREPORT AN ERROR

BIT
BEQ

MOV

SET??

JRECEIVED STATUS
:MOVE SP 7O ERROR CALL
JWRITE NUMBER IN ERROR CALL
;JMOVE SP TO RETURN FOR ERROR
JREPORT THE ERROR
;MOVE SP BACK TO BRANCH

;IS MOL

JYES!!

SET??

RMDSI ,$GDDAT
AMOL
, $GDDAT
RMDSI,$BDDAT
#4,(SP)
#41,3(SP)

JWRITE

PC,a(SP)+
#10, (SP)

JREPORT TH ERROR
;MOVE SP TO BRAN(H

#2.,(SP)

JEXPECTED STATUS

JRECEIVED STATLS
;MOVE SP TO ERROR CALL
NUMBER OF

ggNSSOPI.RMR!!LR!ILF,RMER1I

IF "UNS'' IS SET
ggNS,RMER1I
;HGS‘UNS SET??

PMER?T],$BDDAT

ERROR

IN CALL

;MOVE SP TO RETURN FOR ERROR

. SEE IF “UNS'TOPIT, RMRTM,ILRY, OR "ILF'" IS SET
BIT
BEQ

CALL

;CLEAR LOW ORDER BYTE

JREPORT AN ERROR IF 'MOL'' IS O

000000

032737
001570

AN ERROR

8IT

001140
001140
001142

;MOVE

a(SP)

CLRB
SuB

001350

#4,(SP)

;NO.!

JRECEIVED STATUS

JRMNBC RMOS/372 FCTINL

TST 2
PATK ACKNOWLEDGE STATUS CHECK

S8 046544
56 046552
60 046560
61 046564
62 046572

63 046576

64 046600

65 046604
66 046606
&7
68
o9 046606
70 046614
71 046616
72 046624
73 046632

74 046640

75
76
77
78
79

046644
046652
C46656
046660
046664

80 046666

013737
042737
062716
112776
162716

004736

001352
(40000
000004
000042
000002

MACRO v04.00

001140
001140

MOV
8i(

000000

MOvB
SUB
JSR
sus
NOP

98 046754
99 046756
100 046764

101
102
103
106

046772
047000
047004
047012

000010

032737
001424
013737
013737
042737
062716

020000

001352

001352
001352

001142
001140
001140

MOV
MOV

000000

MOVB
SUB

112776
162716

004736
"62716
000240

3%:

047026

032737
001424
013737
013737

042737
062716

112776
162716
004736
162716
00240

032737
001424

000004

001352

001352
001352
000004
000004
000044
000002

001142
001140
001140

000000

000010

001352

001142
0071140
001140

112776
162716

001352
001352
000002
000004
000045
0000v2

162716

000010

004736
000240

B
el
b
b

032737
001424
013737
013737

RMER1],$GDDATY
#UNS ,SGDDAT

#4,(SP)
#42.,3(SP)
#2,(SP)
PC.a(SP)+
#10, (S5P)

EPROR

BIT
BEQ

#0P1 ,RMER1]
4%

BIC
ADD

#4,(SP)

JSR
SuB
NOP

RMER11,$BDDAT
RMER1],8GDDAT

#OPI,$GDDAT

#43,9(SP)

#2,(SP)
PC,a(SP)+
#10, (SP)

SREPORT ANY RMR ERROR
ARMR ,RMER1]
BIT
BEQ
5%
MoV
RMER11,$BDDAT
MoV
RMER1]1,$GDDAT
#RMR, $GDDAT
#4,(SP)
#44,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

SEXPECTED STATUS
:MOVE SP TO ERROR (ALL

;WRITE

NUMBER OF

ERROR

IN (CALL

sMOVE SP TO RETURN FOR ERROR

;REPORT

THE ERROR VIA USER

sMOVE SP TO NO ERROR RETURN

;WAS OP] SET ??
JNO!!
SRECEIVED STATUS
JEXPECTED STATUS

;MOVE SP TO ERROR (AL!
JWRITE NUMBER OF ERROR IN CALL
;sMOVE SP TO RETURN FOR ERROR

JREPORT THE ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

;WAS RMR

SET??

;NO!!
JRECEIVED STATUS
;EXPECTED STATUS
sJMOVE SP TO ERROR CALL
JWRITE NUMBER OF ERROR [N CALL
sMOVE SP TO RETURN FOR ERROR
JREPORT

THE

ERROR VIA USER

sMOVE SP TO NO ERROR RETURN

5%:

000002

013737
013737
042737
062716

;REPORT ANY OP]

000010

sREPORT

ILR ERROR

#ILR,RMER1]

6%
RMER1I,$BDDAT

RMER11,$GDDAT
H#ILR,$GDDAT
N4, (SP)
#45,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

000000

JWAS

ILR SET??

:NO..
;sRECEIVED STATUS
;EXPECTED STATUS

JMOVE SP TO ERROR CALL
JWRITE NUMBER OF ERROR IN CALL
;MOVE SP TO RETURN FOR ERROR
JREPORT

THE

ERROR VIA USER

;MOVE SP TO NO ERROR RETURN

6%:

105 047016
106 047020
107 047024

ADD

162716
000240

020000
000004
000043
000002

D 16
11:43:33 PAGE 32-1
SEQ 019§

883 046666
84 N46674
85 046676
86 046704
87 046712
88 046720
89 046724
9C 046732
91 046736
92 046740
93 046744
94 JLE746
95
96
97 046746

4-APR-B1

000001

001352

001352
001352

001142
001140

;REPORT

ILF ERROR

#ILF ,RMER1!

4]
RMER11,$BDDAT
RMER11,$GDDAT

;WAS

ILF

SET??

JNO!.
JRECEIVED STATUS
SJEXPECTED STATUS

JRMNBO RMO5/3/2 FCINL

PACK

ACKNOWLEDGE

115 067052

STATUS

042737

116 047060
117 047064

062716
112776

119 047076

004736

121 047104

000240

118 047072

120 047100

15% 047106
124

125 067106

126
127
128
129
130

0647112
2647116
047120
047124
047126

162716

(062716

105776
001403
062716
000402
162716

131 047132 * C00240
"32 047134
000207

T1ST 2

(HE(K

000007

(00004
000046

000002

MACRO v0&.

Q01140

X
000000

E 16
11:43:33 PAGE 32-2

8I(

#1LF ,$GDDAT

ADD
MovB

#4, (SP)
#46,a(SP)

sMOVE SP TO ERROR CALL
SWRITE NUMBER OF ERROR

PC,a(SP)+

;REPORT

sSus

JSR

SUB

7%:

NOP

#2,(SP)

#10, (SP)

sAUGMENT RETURN ADDRESS

ADD

000000
000004

000004

«-aPR-87

S5eQ 0199

000010

000004

8%:

9%:

TSTR
BEQ
ADD
BR
SuB

NOP
RTS

44, (SP)

D (SP)
8%
44, (SP)
9%
#64,(SP)

‘
IF

IN CALL

JMCVE SP TO RETURN FOR ERROR
THE ERROR VIA USER

sMOVE SP TO NO ERROR RETURN

ERROR WAS FOUND

;MOVE SP TO ERROR CALL

;WAS ERROR FOUND??
JNO!.
;YES ~ MOVE TO ERROR RETURN
JMOVE

SP TO NO ERROR RETURN

"ZRMNBO RMOS5/3/2 FCTINL

N-a—a—l—c.a—a-l—o—l—b

<OV NONLANN
2 ODDWNO NIWNR, »

RECAL |BRATE

TST 2

MACRO v04.00
STATUS (HECK SUBROU
INE

4-AFR-81

F1 6
11:43:33 PAGE 3 3

SEC L.

.SBTTL
;THIS

RECALIBHATE STATUS (HECK SUBROUTINE
SUBROUTINE

CHECKS

THE

RESULTS OF

A RECALIBRATE

JUSING THE STATLS STORED IN THE GET BUFFER.

OPERATION

;CALL:

(1)

JSR

BR
NOP
ERROR
JSR

:
:
:
:

047736

227

PC,RCLSTS
235

PC,a(SP)+

; CALL SUBROUT INE

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 CHE(CKS

062716

67146

105076
162716

047152
047160

032737
01553

:CLEAR USER'S ERROR NUMBER

000004
000000
0C0004

022011

ADD
CLRB

SUB

001352

;SEE

#4, (SP)
a(5P)

;CLEAR USER'S ERROR CALL
;MOVE SP BACK TO BRAN(H

#4, (SP)

"PAR'" OR "'ILF'' OR 'OPI'' OR ''IAE'' IS SET
#0P1.PAR.ILF.IAE ,RMERT]
BIT
BEQ

;NONE ARE

SET - GO TO NEXT

JREPORT ANY MASSBUS CONTROL BUS PARITY ERROR,

047162
047170
067172
047200
047202
047210
047216
047224

032737
001430
032737
007024
013737
042737
013737
062716

047236
047242
047244
047250
047252

047252
047260
047262
047270
047276

047304
047310
047316
047322
047324
047330
047332

ERRORS

RCLSTS:

047136
047142

047230

NO MORE

000010

001352

000010

001400

001140
001140
001142

162716

001352
000010
001352
000004
000050
000002

162716

000010

112776

004736
000240

032737
0017424
013737
042737
013737
062716
112776
162716

004736

162716
000240

J"PAR'" - 1

BIT

B8EQ
8IT

B8NE

ADD

MOVR
SUB

1¢:

001352

001352
000001
001352
000004
000071
000002

001140
001140
001142

000010

mmm—ne

JSR
SUB
NOP

;WAS '"PAR"* SET??

#DPE ,RMER?!

;JWAS "DPE’’ SET??

#4,(SP)

:MOVE

#50,9(SP)
#2,(SP)

PC,a(SP)+
#10, (SP)

;REPORT ANY ‘'ILF'' ERROR

BIT

BEQ
MOV
BI(
MOV

000000

#ILF ,RMER1]

2%
RMER1],$GDDAT
#1LF ,$GDDAT
RMER1! ,$BDDAT

ADD

#4,(SP)

JSR
SUR
NOP

PC,a(SP)+
#10, (SP)

MOVB
SUR

I.E.,

#PAR ,RMER1]

MOV RMER11,$GDDAT
BIC
#PAR, $GDDAT
MOV
RMER1] ,$BDDAT

000000

000001

AND 'DPE'' = 0

#71,a(SP)
*2,(SP)

(HECK

JNO!!

;YES - NOT A REGISTER ERROR
JEXPECTED STATUS
;RECEIVED STATUS

SP TO USER'S ERROR CALL

SWRITE ERRCR NUMBER IN CALL
;MOVE SP TO RETURN FOR ERROR
;GO REPORT ERROR
;MOVE SP BACK TO BRANCH

JWAS CILF'Y SET??

;NO!,
JEXPECTED STATUS

JRECEIVED STATUS
JMOVE

SP TO USER'S ERROR CALL

;WRITE ERROR NUMBER IN CALL
;MOVE SP TG RETURN FOR ERROR
JREPORT ERROR VIA USER
JMOVF SP BACK TO BRANCH

JRMMBO RMO5/3/2 FCTNL TST 2

RECAL |BRATE

STATUS

£8
59
63
61 047332

62 047340
63 047342
64 047350
65 0467356
66 047364
67 047370
68 047376
o9 047404
70 047406
71 0467414
72 047420
73 047422
74 047426
75 047430

76
77

78 047430

79 047436
80 047440
81 047446
82 047454
83 047462
84 047466
85 047474
86 047500
87 047502
88 047506
8y 047510

90
91

(MECK

95
96
97
98
99 047520
1 00 047526
1 01 047530
047536

047544
047552
047556
047564
047572
047574
047602
047606
047610
047614
047616

SUBROUTINE

4-APR-81

G 16

11:43:33 PAGE

33-1

<4 0207

;REPORT ANY “OPI'" ERROR AS

032737
001433
013737
042737
013737
062716
112776

032737
001403
112776
162716

004736

020000

001352

001352
020000
001352
000004
000072
010000

001140
001140
001142

000073
000002

000000

000010

032737
001424
013737
042737
013737
062716

002000

001352

001352
002000
001352
000004

001140
001140
001142

n00070

162716
000240

000010

004736

ADD
MOVB

BIT
BEQ
mMovs
SUB
JSR
SUB

3%:

NOP

31%:

112776
162716

000002

BEQ
MoV
BIC
MoV
AD"
MovB
SUB
JSR

000000

SUB

001400

TO 'MOL'' = 0O

#4, (SP)

#72.2(SP)

#MOL ,RMDS ]

#73,9(SP)
#2, (SP)
PC,a(SP)+
#10, (SP)

sMOVE

TO USER'S

ERROR (A.L

SJWRITE ERROR NUMBER IN USER'S CALL
JWAS ‘MOL' = 0?2

JYES!!

sNO - CHANGE ERROR NUMBER
;JMOVE SP TO RETURN FOR ERROR
;sREPORT ERROR VIA USER
;MOVE SP BA(K TO BRANCH

sREPGRT AN ERROR IF ''IAE'' IS SET
#1AE ,RMER1]
BIT
;1S "'IAET SET??

;SEE

4%
RMER11,$GDDAT
#1AE ,$GDDAT
RMER1I,$BDDAT

#4,(SP)

#70,a(SP)
#2,(SP)

PC,a(SP)+
#10, (SP)

NOP

050200

OP] DUE

. OP1 BECAUSE ON CYLINDER LATCH DIDN'T RESET
#0P] ,RMER1]
BIT
JWAS OPI SET2?
31$
&6EQ
JNO!!
MOV
RMER1],$GDDAYT
:EXPECTED STATUS
#0P1,$GDDAT
BI{
MoV
RMER11,$8BDDAT
;RECEIVED STATUS

000009
001350

162716
000240

032737
001517

92
93

MACRO v04.00

”SKI”

BIT
BEQ

JNO.
!
;EXPECTED STATUS

;RECEIVED STATUS

;MOVE

TO ERROR (ALL

;WRITE ERROR NUMBER IN USFR'S C(ALL
;MOVE SP TO RETURN FOR ERROR

;REPORT ERROR
sMOVE SP BACK

O NO ERROR RETURN

OR "‘IVC'* OR 'DVC'"
IS SET
#5KI.1vC.DVC,RMERZ]

;NONE OF

THE BITS ARE SET

< REPORT ANY “'IVC"" ERROR AS

032737
001433
013737
042737
0137%7
062716
112776

032737
001403
112776
162716

004736
162716

000240

010000

001400

001400
010000
001400
000004
000074
000100

001140
001140

000075
000002

LIVE WITH v - 0
.ERRONEOUS 1VC ERROR
#1VC ,RMER2]
BIT
BEQ
6%
MoV
RMERZ] ,$GDDAT
#I1VC,8GDDAT
BIC
MoV
RMERZ2],$8DDAT

001142

ADD
MOVB
BIT

000000
001350

000000

5¢:

000010

£%:

BEQ
MOVB
SuB

JSR
SUB

NOP

#4,(SP)

#74,8(SP)
#VY ,RMDS]

5%
#75,a(SP)

#2,(SP)
PC,a(SP)+
#10,(SP)

;WAS IVC SET??
;NO.
!
JEXPECTeD STATUS

;RECEIVED STATUS

;MOVE

SP TO USER'S ERROR CALL

JWRITE ERROR NUMBER
JWAS v = 07?

IN CALL

SJYES!!
;NO ~ CHANGE ERROR NUMBER

;MOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER
sMOVE SP BACK TO BRAN(H

WM
= O000 O
N

d nd b D S,
OO (e IV, 1V, IV TV RV XV TU AV 1V, I W SO N P
2E 2k aF 2 oAN LN LA N N NN NN NI O rorony POPNOPNUN)
= 2 e
NNy
— OV NONIN
NN — OO0 N CNRAEAN
2OV NNRWN=SO O~

4 047666

5 047670
6 047674
047676

032737
001424
013737
042737
013737
062716

(40000

001400

001140
001140
001142

112776
162716

001400
040000
001400
000004
000076
000002

162716

000010

032737
001424
013737
042737
0°3737
062716

000200

001400

001400
000200
001400
000004
000077
000002

001140
001140
001142

004736
000240

000000

047676
047704
047706
047714
047722
047730
0467734
047742
047746
047750
047754
047756

112776
162716

004736
162716
000240

B
— e rd b D b aed e md =P B D D oD D

047756
047762
047766
047772
047774

050000

013746
042716
022726
001002
000137

~£0 0202

SREPORT ANY °'SKI'' ERROR
#SKI ,RMER?]
BIT
7%
B8EC
MOV
RMERZ] ,$GDDAT
#SK
] ,$GDDAT
BIC
MoV
RMERZ1,$BDDAT
ADD
#4,(SP)
#76,3(SP)
move
#2,(
SP)
SuB
PC,R(SP)+
JSR
#10, (SP)
suB
NOP
7%:
JREPORT

;SEE

85%:

RMERZ2
!, $GDDAT
#DV(C ,$GDDAT

MOV
BIC
MOV
ADD
MOVR
sus
JSR
SuR
NOP

8%:

050410

ANY ''DV(’' ERROR
#DVC ,RMER2I

BIT
BEQ

000010

001350
047676
110100

H 16
11:43:33 PAGE 33-2

"PIP'

MOV

RMERZI ,$BNDAT

#4,(5P)
#77,3(SP)
#2,(SP)
PC,(SP)+
#10,(SP)

;USS SK]
JNO.!

SET??

SEXPECTED STATUS
JRECEIVED STATUS
;MOVE SP TO USER'S ERROR (ALL

;WRITE

ERROR NUMBER

;MOVE SP TO RETURN FOR ERROR

JREPORT ERROR VIA USER

;MOVE SP TO BRANCH

SWAS "DV('' SET??
JNO!
.

JEXPECTED STATUS
JRECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL

;WRITE ERROR NUMBER
;JMOVE SP TO RETURN FOR FRROR

JREPORT ERROR VIA USER
;MOVE SP TO USER'S BRANCH

AND "OM'’ ARE O, AND "'ATA'',"MOL'' AND ‘VV'' ARY
RMDSI,-(SP)

BIC
CMP
BNE
JMP

;PUT RMDS ON STACK

A*C<PIP!MOL!
_ATA>,
VV.OM
(SP)
#ATA!
.VV,
MOL
(SP)+

85%
138

JREPORT AN ERROR

050000
050006
050010
50016
050020

050026
050034

QNN

050042
050046
050054
050060
050062
165 050066

166 050070

032737
001030
032737
001024
013737
052737
013737
062716
112776
162716

004736
162716
000240

010000

001350

020000

001352

001350
010000
001350
000004
000100
000002

168
169 050070

170 050076
£50100

032737
001030
032737

IF MOL - O AND OP]
0, I.E., MEDIUM WENT OFF
JuINE AFTER RECALIBRATE WAS INITIATED
AMOL ,RMDS |
BIT
:Dé?IMOL DROP??
BNE
9%
:NO!!

BIT
BNE

001140
001140
001142

MOV

000000

000010
9%:

167

171

4-APR-81

000000

SS S

q— —

D =

ded e

047616
047624
04762¢
047634
067642
047650
047654
047662

N~
= X7

RMCS/3/72 8 OTNL TST 2
MACRO v06.00
BRATE STATUS (HECK SUBROUTINE

000100

001350

010000

001400

BIS
MOV
ADD
MOVR
SUB
JSR
SuUB
NOP

JREPGRT AN FRROR

BIT
BNE
BIT

#0PI1 ,RMER1TI

9%
RMDSI, $GDDAT
AMOL
, $GDDAT

RMDSI,$BDDAT
#4,(SP) ;MOVE
#100,a(SP)
#2,(SP)
PC,a(SP)+

#10, (SP)

;WAS OP]

ERROR REPORTED??

;YES - DON'T REPORT MOL=0
;EXPECTED STATUS
SJRECEIVED STATUS

SP TO USER'S ERROR CALL
;JWRITE ERROR NUMBER

JMOVE SP TO RETURN FOR ERROR
;REPORT

ERROR V]A USER

;MOVE SP BACK TO USER'S BRAN(H

IF ‘‘w''
- 0 AND "‘IV(C'' = 0
#VV ,RMDS |
:’%9 ‘VV'' DROP??

10%
#1vC,RMERZ]

*WAS THERE A IvC ERROR??

JPMNBO RMOS/3/2 FOTNL TST 2
MACRO v(04.00
NECA_ [BRATE
TUS (HECK SUBROUTINE

172 050

173 050110
174 050116
175 050124

*76 050132

177
178
'79
180
181

050136
050144
050150
050152
050156

132 050160

183
184

185 050160

186 050766
187 050170

188
189
190
191
192
193
194
195

196

050176
050204
050212
050216
050224
050230
050232
050236

001024

013737
013737
052737
062716

01350
001350

112776
162716

000100
000004
000101
000002

162716

000010

004736
000240

032737
001024
013737
052737
013737
062716
112776
162716

004736

162716
000240

001350

001140
001140
001142

2035 050250
204 050256

312

b ded=—d

- OV

NNV

050354
222
223 050362
224 050366
225 050374
226 050400
227 050402
228 050406

JREPORT AN ERROR

MOV

BIS
MOV
ADD
" JVB
Su8
JSR
SUB
NOP

SEXPECTED STATUS
JRECEIVED STATUS

¢MOVE SP TO USER'S ERROR CALL
JWRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN FOR [RROR

PC,a(SP)+
#10,(SP)

SUB
NOP

BIT
BNE

;YES = DONT REPORT vv=0

#2,(SP)

Su8

000010

JMOVE

IF ATA IS NOT
7?;A,RMDSI

SP BACK

TG USER'S BRANCH

SET
;véglATA SET DURING RECALJBRATE??

RMDS1,$GDDAT
H#ATA,$GDDAT
RMDS],$BDDAT
#4,(SP)
#102,a(SP)
#2,(SP)
PE,a(SP)+
#10,(SP)

JEXPECTED STATUS
SJRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL

JWRITE ERROR NUMBER
;MOVE

IN CALL

SP TO USER'S BRANCH

11%:

032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

000001

001350

001350
000001
001350
000004
000103

001140
001140
001142

000002

000000

000010

2 _a

ASIACLAS AN [, W1aN T, WiV, 1,V L, §T, ¥

205 050264
206 050272
207 050276
208 050304
209 050310

8IS

ADD
MOVR

000000

197 050240
198
199

200
201 050240
202 050246

108

RMDS] , $GDDAT
RMDS !, $BDDAT
A#VV,8GDDAT
#4,(SP)
#101,9(SP)

JSR

001350

000004
000102
000002

SEQ 0207
MOV
MOV

0G0000

100C00

001350

116
11-43:33 PAGE 33-3

BNE

001140
001142
001140

10%:

100000

4-APR-81

JREPORT AN ERROR [F ''OM'*'
IS NOT
JALWAYS CLEAR OFFSET MODE
#0M,RMDS |
BIT
12%
BEQ
MOV
RMDS],$GDDAT
#0OM,SGDDAT
8IC
MOV
RMDSI,$BDDAT
ADD
#4, (SP)
MOVR
#103,a(SP)
#2,(SP)
SUB
JSR
PC,@(SP)+
#10,(SP)
SUR
NOP
12%:
JREPORT AN ERROR

032737
001430
032737
001024
013737
042737
013737
062716

020000

€J1350

040000

001400

001140
001140
001142

112776
162716

001350
020000
001350
000004
000104
000002

162716

060010

004736

000240

000000

s CYLINDER

BIT
BEQ
BIT
BNE

MoV

BIC

MOV
ADD
MOVB

SL3
JSR
SU8

NOP

'PIP'' IS

ZERO BECAUSE RECALIBRATE SHOULD
JWAS ''OM'’ RESET??

JYES!.
JEXPECTED STATUS

JRECEIVED STATUS

sMOVE

SP TG USER'S ERROR (CALL

;WRITE ERROR NUMBER

sMOVE SP TG RETURN FOR ERROR
JREPORT ERROR VIA USER
;MOVE SP TO USER'S BRANCH

STIL

ON,

1.E.,

DRIVE

NOT ON

?giP.RMDSI

;ég ?RIVE OFF

#SKI,RMERZI
13%
RMDSI ,$GDDAT
4P1P,$GDDAT
RMDSI,$BDDAT
#4,(SP) ;MOVE
#104,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

JWAS "'SKI'' DETECTED??
;YES=DONT REPCRT 'PIP'*
JEXPECTED STATUS

CYLINDER??

SJRECEIVED STATUS
SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
JMOVE

SP BA(CK

TO JSFR'S BRANCH

"JRMNBO RMOS5/3/2 FCINL TST 2
MACRO v04.00
ECALIBRATE STATUS CHECK SUBROUTINE

5%8 050410

231

032737
001514

040006

001352

235
236 050420
237 050426
238 050430
239 050436
240 050444
241 050452

032737
001424
C13737
042737
013737
062716

000002

001352

001352
000002
001352
000004

001140
001140
001142

243 050464
244 050470
245 050472
246 050476
szg 050500
249
250 0505C0
251 050506
252 050510

253 050516

254 050524
255 050532
256 050536
257 050544
258 050550
259 050552
260 050556
Sg; 050560

112776

000105

000000

162716
004736
162716
000240

000002

032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
00040

000004

001352

001352
000004
001352
000004
900106
000002

001140
001140
001142

264 050560
265 Q050566
266 050570
267 050576
268 050600
269 050606
270 050614
271 050622
272 050626
273 050634
274 050640
275 050642
276 050646

032737
001430
032737
001024
013737
042737
013737
062716
112776
162716
004736
162716
000240

279
280 050650
281 050654
282 050660

062716
105776
001403

284 050666
285 05067C

000402
162716

283 050662

SEQ

062716

:SEE IF “ILR'* OR ‘RMR'* OR 'WUNS'' IS SET
BiT
BEQ

MOVAR

14%:

15%:

000200

001400

001352
040000
001352
000004
000107
000002

001140
001140
001142

000000

16%:

000004
000004

#RMR
, $GDDAT

MOV
ADD
MOVR
SUR
JSR
SuB
NOP

RMER1],$BDDAT
#4,(SP)
#106,2(SP)
#2,(SP)
PC,R(SP)+
#10, (SP)

;REPORT AN ERROR

000010

000004
000000

#2,(SP)
PC,a(SP)+
#10, (SP)

BIC

000010

001352

#105,2(SP)

SUR
JSR
SUB
NOP

;WRITE ERROR NUMBER IN CALL

;MOVE SP TO RETURN FOR ERROR
;MOVE SP TO USER'S BRANCH

;REPORT AN ERROR IF 'RMR''
IS SE;
BIT
#RMR,RMER1 ]
;WAS RMR SET??
BEQ
15%
INO.!
MOV
RMER1],$GDDAT
;EXPECTED STATUS

000000

040000

#ILR'RMR'UNS ,RMER1]
16$

:REPORT AN ERROR IF "‘ILR'* IS SET
817
#ILR,RMER1]
sWAS ILR SET DURING RECALIBRATE
)
BEQ
148
JNO!!
MOV
RMIR1],$GCDAT
;EXPECTED STATUS
BIC
#ILR,SGDDAT
Moy
RMER1],$8DDAT
;RECEIVED STATUS
ADD
#4,(SP) :MOVE SP TO USER'S ERROR CALL

000010

263

S;g 050650

J 16
11:43:33 PAGE 33-4

138:

232 050410
5%2 050416

242 050456

4-APR-81

BIT
BEQ
BIT
BNE
MoV
BIC
MOV
ADD
MOVB
Sul
JSR
SUR
NOP

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN USER'S CALL
;MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
:MOVE SP TO USER'S BRANCH

"UNS''
IS SET AND 'DVvC''
IS O

HUNS ,RMER1]
16%
#DVC,RMER2]
16$
RMER1] ,8GDDAT
#UNS
, $GDDAT
RMER1],$BDDAT
#4,(SP)
#107,2(52)
#2,(SP)
PC,a(SP)+
#10, (SP)

:WAS UNSAFE ON??
;NO'!
JWAS THERE A DEVICE CHECK??
:YES ~ DON'T REPORT UNSAFE
EXPE(CTED STATUS

;RECEIVED STATUS
JMOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMRER
;MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;MOVE SP BACK TO USER'S BRANCH

JAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED
ADD
#4,(SP)
;MOVE SP TO USER'S ERROR CAI
L
1STB
D(SP)
:WAS AN ERROR REPORTED??
BEQ
17%
INO..

ADD

17%:

BR
SUB

#4,(SP)
18%
#4,(SP)

JYES = AUGMENT SP RETURN

;NO ERROR ~ RETURN SP TO BRAN(H

}

CZRMNBO RMOS5/3/2 FCINL TST 2
MACRO v04.00
RECAL IBRATE STATUS (HECK SUBROUTINE

286 050674
<87 050676

000240
000207

18%:

4-APR-81

K 16
11:43:33 PAGE 33-5
SEQ 0205

NOP
RTS

‘\\‘
..

bty

JSTATUS CECK IS (OMPLETE

JRMNBC
rp:rv;

RM.

5,370

TLBAR STATYS

TM TST 2
MAZRO v04.00
HE
K SUBROUT INE

4&-APR-81

A 128 14¥1,N] (AN 1591201,
V) PN~ 3 -d et b b d s =4 -2
C o ~NON (%o SRV
N} SOV NP N WNI—OO >N
& nn

SBTITL

DRIVE
BR
NOP
ERROR
JSR
m

050700
050700
050704

050710

050714
050722
050730
050736
050744
050746
050752
050760
050764
050766
050772

050774
051002
051010
051016
051024
051026
0510%2
051040
051044
051046
051052

— ek k= (OO
= =200 NN
SO
O

8B B NINNONY
—
X OSHOONSO

et
ek
e
d
e
e

bk
b d
b
2 =

SMAVIVEA VI

(olelelolaleleleoBlelolololo) (=]

051054
051060
051066

11:43:33 PAGE

16
34

CLEAR STATUS (HECK SUBROUTINE
27
PC.(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED &Y SUB
GO BACK TO SUB FOR MORE ERROR (HE(KS
RETURN HERE IF NO MORE £RRORS

DRVSTS:

062716

105076
162716

013737
042737
012737
023737
001443
062716

000010

013737
042737
012737
023737
001413
062716

001350

005037

021101

010600
001140

000004
000142
000002

013737

162716

000004
000143
000002

162716

000010

013737
010146
010246

001354

004736
000240

013701

116102

042702
005102
0460237

001142
001142
001140
001142

001466
000001

177400

001142

sSuB

#4,(SP)

MOV

#DVA . DRVCLR,$GDDAT

cMOVE SP

TO USER'S BRANCH

SEXPECT

DvA

(MP
BEQ
ADD
MOVB

$GDDAT ,$BDDAT
6%
#4, (SP)
#141,9(SP)

;COMPARE EXPECTED & RECEIVED
JBRANCH IF EQUAL
;MOVE SP TO ERROR CALL

JSR
figg

PC,a(SP)+
#10, (SP)

;REPORT THE ERROR VIA USER
:MOVE SP TO NO ERROR RFTURN

#2,(SP)

SJWRITE NUMBER OF ERROR IN CALL
;MOVE SP TO RETURN FOR ERROR

BIC
Mov
cMp
BEQ
ADD
MovB

#PGMIOM !VV!IPIP,$8DDAT
;CLEAR DONT CARES
#MOL !DPR!DRY,$GDDAT
;EXPECT DRY & DPR
$GDDAT ,$BDDAT
;COMPARE EXPECTED & RECEIVED
6%
sBRANCH IF EQUAL
#4, (SP)
:MOVE SP TO ERROR CALL
#142,3(SP)
;WRITE NUMBER OF ERROR IN CALL

JSR
zgg

PC,a(SP)+
#10,(SP)

SuUB

#2,(SP)

:MOVE SP TO RETURN FOR ERROR

JREPORT THE ERROR VIA USER
sMOVE SP TG NO ERROR RETURN

JREPORT

ERROR IF RMER1 NOT INITIALIZED
CLR
$GDDAT
JEXPECT 0'S
MOV
RMER11,$BDDAT
;(CHECK RMER1
BEQ
8%
JBRANCH IF EQUAL
ADD
#4,(SP)
;MOVE SP TO ERROR CALL
MovB
#1463 ,a(SP)
;WRITE NUMBER CF ERROR IN CALL
SUB
#2,(SP)
sMOVE SP TO RETURN FOR ERROR
JSR
PC,a(SP)+
;REPORT THE ERROR VIA USER
agg
#10,(SP)
;MOVE SP TO NO ERROR RETURN

JREPORT

ERROR
Mov
MOV
MOV
MOY

6%:

000000

001742

;MOVE SP TO ERROR CALL
;CLEAR ERROR CALL

sREPORT ERROR IF RMDS NOT INITIALIZED
5%:
Mov
RMDSI, $BDDAT
: CHECK RMDS

000000

001142

44, (SP)
@ (SP)

ERROR IF RMCS1 NOT INITIALIZED
Mov
RMCS11,$8DDAT
;CHECK RM(S1
BIC.
#*C<DVA_.FNCMSK>,$BDDAT
;CLEAR DONT CARES

SUB

000010

001140
001352

001413
062716
112,76

4%:

004010
001140

162716

112776
162716
004736
162716
000240

JREPORT

173700

000004
000141
000002

000240

ADD
CLRB

001336

112776
162716

004736

;CLEAR USER'S ERROR CALL

000004
000000
000004

8%:

MOVB
BIC
{ OM
BI{

IF ATA NOT INITIALIZED
RMASI, $8DDAT
sCHECK ATTENTION BIT
R1,-(SP)
;:PUSH R1 ON STA(K
R2,-(SP)
;:PUSH RZ ON STACK
TSTQUE ,R1
1(R1) ,R2
#*CATNMSK
,R2
R2
RZ,$8DDAT

JRMNBC RM05/3,2 FCINL TST 2
MACRC v04.00
PRIVE C_EAR STATUS (ME(K SUBROUT
INE

58 051152
59 05115
60 051156
61 051162
62 051164
63 051170
64 051176
£5 051202
66 051204
€7 051210
68
9 051212
70 051220
71 051226
72 051234
73 0512642

76 051264

012602
012601
005737
001413
062716
112776
162716
004736
162716
000240
013737
042737

012737
023737
001413

062716

001142
000004
000144
000002
000010
001362
000046

000010
001140

112776
162716
004736

79 051270

000240

162716

000010

81 051272
82 051300
83 051306

013737
(42737
012737

001376
140000
011777

84 051314

023737

85 051322
86 0513246

001413
062716

88 051336
89 051342
90 051344

162716
004736
162716

87 051330

91 051350
92 051352
93
94 051356

95
9
97
98
99

100
101
162
103
104
105
106

051364
051366
051372
051400
C51404

051406
051412

051414
051422
051426
051430

112776

001140

000004

000146

000002

#4, (SP)

001142
001142
001140

;REPORT

11%:

001142

(MP

BEQ
ADD

000000

000004
000150
000002

000000

ERROR

Mov
BIC
MOV

MOVB
SUB
JSR
SUB

NOP

162716
000240

000010

013737
001413
062716
112776

001400

001142

000004
000147

090000

162716

000010

RMMR?2 NOT

TO ERROR

CALL

;WRITE NUMBER OF ERROR IN CALL
JMOVE SP TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER

#10, (SP)

JEXPECT WRITE DATA ON
;COMPARE EXPECTED AND RECEIVED
;BRANCH IF ZERO

JMOVE

#145,8(SP)
#2,(SP)
PC,a(SP)+

SuB

0071142

000240

ADD

MOVR
SUB
JSR

000010

000002

#MJD, SGDDAT
$GDDAT ,$BDDAT
1%

NOP

001404

001413
062716
112776
16271¢
004736

SEQ 00

MOV
(MP
8EQ

000000

013737

110 051450

113 051452
116

000145
000002

001140

162716
004736

;;; 051452

001140
001142

000240
005037

107 051436
108 051442

109 051444

001142
001142

M 16

11:43:33 PAGE 34-1

MOV
(SP2+ ,R2
:;POP STACK [NTO R2
MOV
(SP)+ M
;;POP STACK INTO R1
1ST
$BDDAT
s1S ATTENTION CLEARED??
BEQ
9%
JBRANCH IF ATTENTION CLEARED
ADD
&6, (SP)
¢MOVE SP TO ERROR CALL
MovB
#1464 ,0(SP)
;WRITE NUMBER OF ERROR IN (ALL
Sus
#2,(SP)
sMOVE SP TO RETURN FOR ERROR
JSR
PC,a(SP)+
JREPORT THE ERROR VIA USER
Su8
#10, (SP)
sMOVE SP TO NO ERROR RFTURN
NOP
;REPORT ERROR IF RMMR1 NOT INITIALIZED
9%:
Mov
RMMR1] ,$8DDAT
;CHECK RMMR
BIC
AWC!LS!LST, $8DDAT
s CLEAR DONT CARES

(000004

75 051250
76 051256
77 051262

78 051264

00000

&-APR-81

“;MOVE SP TO NO ERROR RETURN
INITIALIZED

RMMR2I ,$BDDAT
:CHECK RMMR?
#RQA!RQB,$BDDAT :CLEAR REQA, REQB
#1ST:1777 ,3CDDAT
SEXPECT TEST BIT ON
$GDDAT,$BDDAT

;COMPARE EXPECTED & RECEIVED

15%
#4,(SP)

sBRANCH [F EQUAL
sMOVE SP TO ERROR CALL

#2,(SP)
PC,a(SP)+
#10,(SP)

;MOVE SP TO RETURN FOR ERROR
JREPORT THE ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

#146,a(SP)

;WRITE NUMBER OF ERROR IN CALL

15%:
(LR
$GDDAT
JEXPECT ZEROS
SREPORT ERROR If RMEC2 NOT RESET
MoV
RMEC2I,$8DDAT
;CHECK RMEC(?2
BEQ
17%
;BRANCH [F O
ADD
R4, (SP)
;JMOVE SP TO ERROR CALL
MOVB
#150,3(SP)
;WRITE NUMBER OF ERROR IN CALL
SUB
#2,(SP)
;MOVE SP TO RETURN FOR ERROR
JSR
PC,a(SP)+
JREPORT THE ERROR VIA USER

SuB
NOP
;REPORT ERROR
17%:
MoV
BEQ
ADD
MOvB

SUB
JSR

SuB

18%:
16%:

NOP

#10, (SP)

sMOVE

SP TO NO ERROR RETURN

IF RMERZ NOT RESET
RMERZI ,$BDDAT
;(HECK RMER2
18%
;BRANCH IF NO ERROR
#4, (SP)
JMOVE SP TO ERROR CALL
#147,3(SP)
;JWRITE NUMBER OF ERROR

#2,(SP)
PC,3(SP)+

410, (SP)

IN CALL
;MOVE SP 70 RETURN FOR ERROR
JREPORT THE ERROR V]A USER

;MOVE SP TO NO ERROR RETURN

162716

000004

000402

476

000240

1
51500

000207

N 1€
11:43:33 PAGE 3.2
SEw 0208

8EQ
ADD

000004

&~APR-81

SAUGMENT RETURN ADDRESS
¥4, (SP)
ADD
1578
a(SP)

| 4

062716

1470

}472

(00006
900000

non

é\

—

062716
105776
001403

AN =b

1652
1656
1462

oAV

QOO (wiwlelele]

e
g

PONOPUN, 4 =t
e o

W=
O Oa8 YO~

JRMNBD RMOS/3/2 FOINL °ST 2
MACRO v04.00
LRivE CLEAR STATUS (HE(K SUBROUTINE

8R
Su8
NOP
RTS

ANY ERROR WAS FOUND

213

JNO!!

Sgi(SP)
#4,(SP)

<MOVE

TO ERROR

(ALL

JWAS AN ERROR DETECTED??

“ ;YES - MOVE
;MOVE

SP BACK

SP TO ERROR RETURN

TO NO ERROR RETURN

JRETURN TO USER

CZRMNBO RMOS/3/2 FCTNL

DATA

TST 2

TRANSFER (OMMAND STATUS

MACRO v04.00

(MECK

&-APR-8B1

SUBROUT INE

SEQ 0207

.SBTTL

sTHIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER COMMANDS

;STORED IN THE PUT BUFFER.

JUSING

;THE

DATA

.1
8
11:43:33 PAGE 35

TRANSFER COMMAND STATUS C(HECK SUBROUTINE

STATUS

ERROR

STORED

NUMBER

THE

JUSER'S SUBROUTINE CALL:

;(2)

; (&)

ERROR

:(3)

:(5)

:(6)

;

}g 051502
19

20
21
22
Sz

G51502
051506
051512
051516

062716
105076
162716
005037

TEST

PARAMETERS

USERS

PC,DTASTS

PC,a(SPY+

ERROR

(ALL.

RETURN HERE

[F NO DATA ERRORS

TO REPORT

AN ERROR

SUB WRITES ERROR NUMBER

USER RETURNS FOR MORE (HF(KS
SUB RETURNS HERE AFTER ALL

ERRORS ARE REPORTED

;CLEAR USER'S ERROR CALL AND ERROR FLAGS

0C0004
000000
000004
055076

ADD
CLRB3
Su8
CLR

032737
001422
013737
042737
013737
062716
112776
162716
004736
000466

020000

001336

001336
020000
001336
000004
000013
000002

001140
001140
001142

000000

108:

#4, (SP)
a(SP)
A4, (SP)
5008

;MOVE SP TO USER'S ERROR
;CLEAR LOW ORDER BYTE OF TRAP
;JRESTORE SP TO NO ERROR
;CLEAR ERROR FLAGS

BIT
BEQ
MOV
BIC
MOV
ADD
MOVB
suB
JSR
BR

AMCPE ,RMCS1]
108
RMCS11,$GDDAT
A#MCPE
, SGDDAT
RMCS11,$BDDAT
¥4, (SF)
#135,3(SP)
#2,(SF)
PC,a(SP)+
308

;WAS THERE A PARITY ERROR??
;NO!!
EXPECTED STATUS
;RECEIVED STATUS
;MOVE SP TO USER'S ERROR C(ALL
JWRITE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN

JREPORT ANY CONTROL BUS PARITY ERROR WHILE WRITTING REMOTE REGISTERS,
051576
C51604
051606
051614
051616

46 051624
47 051632
48 051640
49 051644
50 051652

JSR

BUFFER AND

FERRORS ARE REPORTED BY WRITING

:TEEORTM?gg CO?TROL BUS PAR]ITY ERROR WHILE READING REMOTE REGISTERS,

27 051522
28 051530
29 051532
30 051540
31 051546
32 051554
33 051560
34 051566
35 051572
36 051574
%g 051576

51
52
53
54
gg

NOP

GET

DTASTS:

40
41
42
43
44
45

JSR

THE

051660
051662
051670
051674
051676

032737
001435
032737
001031
013737

042737
013737
062716
112776
032737

001003
112776
162716
004736
000425

000010

001352

000010

001400

001352
000010
001352
000004
000050
001000

001140
001140
001142

000274
000002

000C00

;1.E.,

PAR - 1
8IT
BEQ
BIT
BNE
Mov

8I1C
Mov
ADD

000000
001346

MOvVB
BIT

15%:

BNE
MOvB
SUB
JSR
BR

AND DPE = 0
#PAR ,RMER1 |
20%
#DPE ,RMERZ2]
208
RMER1],$GDDAT

#PAR, $GDDAT
RMER1],$8DDAT
#4, (SP)
#50,3(SP)
HMXF ,RMCSZ]

15%
4274 ,8(SP)
#2,(SP)
PC,a(SP)+
30%

;WAS THERE A PAR]ITY ERROR??
sNO!!
;DATA PARITY ERROR ?
JYES!!
;EXPECTED STATUS

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR
;JWRITE ERROR NUMBER
;DID MXF GET SET??

JYES!!
sNO - CHANGE ERROR NUMBER
;MOVE SP TO RETURN [F ERROR
JREPORT ERROR AND RETURN

:LOOK FOR ANY ERRORS WHICH MAY HAVE OCCURRED DURING COMMAND

INIT]ATION OR

(ZRMNBO RMOS/3/2 FCTNL

DATA

TRANSFER

(OMMAND

TST 2

STATUS

MACRO v04.00

(HECK

SUBROUJTINE

58
59
60

sEIRST

62 051700
63 051700
64 051706
65 051710
66 051716
67 051724
68 051732
o9 051736
70 051744
71 051750
72 051752
73

74
75 051752
76 051756
77
78 051762
79

VR
NNy
—
bwm—-oomug O?OOO

nd ard

b s b

D —

80
81
82
83 051762
84 051770
85 051772
86 052000
87 052006
88 052014
89 052022
90 052024
91 052032
92 052034
93 052040
94 052046
95 052052
%6 052054
97 052060
98 052062
99
100
052062
052066

052074
052100
052102
052106
052110

032737
001425
013737
042737
013737
062716
112776

162716

004736

162716

000137

001000

001346

001346
001000
001346
000004
000275
000002

001140
001140
001142

POSITIONING

TEST MXF

WHICH WOULD

;CODE AND GO BIT WERE LOADED
20%:
BIT
#MXF RMCS2]
BEQ
408

MOV

000000
308

1
35-1

¢
11:43:33 PAGE

SEQ 0210

JMECHANICAL

Bt
2 = OO O

&-APR-81

INDICATE

RM(CS2]1,$GDDAT

BIC
MOV
ADD
MCVB

#MXF ,$GDDAT
RM{S21,$BDDAT
#4,(SP)
#275,9(5P)

JSR

PC,(SP)+

SuUB

#2,(SP)

COMPOSITE

ERROR SET WHEN FUNCTION

:WAS "MISSED TRANSFER'® SET??
;NO.!

JEXPECTED STATUS
;RECEIVED STATUS
;MOVE

SP Y0 USER'S ERROR CALL

JWRITE ERROR NUMBER

JMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

JRESTORE SP TO NO ERROR RETURN AND BYPASS FURHTER STATUS CHECKING
SuUB
#10, (SP)
JMOVE SP TO NO ERROR
JMP
380%
;SKIP TO END OF SuB

000010
055050

40%:

032737
001447
013737
042737

013737
032737
001404
032737
001013
062716
112776
162716
004736
162716

000413

020000

001352

001352
020000

010000

001140
001140
001142
001350

000100

001350

000004
000276
000002

000000

001352

;REPORT AN ERROR IF 'OPI'' ERROR OCCURRED DUE TO ‘MOL'' - 0, OR IF 'OPI'’
SAND 'MOL'" ARE SET, BUT ‘'VV'' IS RESET, INDICATING AN INTERMITTENT
J'moLt
BIT
8EQ

#0P1 ,RMER1I

BIC
MOV
BIT
BEQ
BIT
BNE
ADD
MOvB
SuB
JSR
SUB
BR

#0P],$GDDAT

1017

45%:

000010
50%:

;1S "OPI'" SET??

60%
RMER1] ,$GDDAT

;NO!!
;EXPECTED STATUS

RMER1]1,$8DDAT
#MOL ,RMDS |
45%

ggz.RMDSI

;RECEIVED STATUS
:WAS MEDIUM OFF LINE??
JYES!!
;?QS "MOL"" INTERMITTENT??

#4,(SP)
#276,a(SP)
#2,(SP)
PC,a(SP)+

;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
;MOVE SP TG RETURN IF ERROR
JREPORT ERROR AND RETURN

gég,(sp)

JRESTORE SP TO NO ERROR

;REPORT 'OPI'' ERROR, WHICH IS DUE TO ''ON CYLINDER'® NOT DROPPING OR
062716
112776
162716
004736
162716
000240

000004
000277
000002

000000

;"RUN"" TIMEOUT
ADD
MOovB

SUB

000010
60%:

JSR
SUR
NOP

(20 MS) OR SEARCH TIMEOUT (50 MS)
k4, (SP)
;MOVE SP TO USER'S ERROR CALL
#277,3(SP)
JWRITE ERROR NUMBER IN CALL

#H2,(SP)

PC,2(SP)+
#10, (SP)

JMOVE SP TO RETURN IF ERROR

JREPORT ERROR AND RETURN
JRESTORE SP T0O NO ERROR

052110
052116

032737
001432

010000

052120

013737

001400

001400
001140

;LOOK FOR “'IVC'' ERROR DURING COMMAND INJTIATION
BIT
#1vC,RMERZ]
:WAS THERE AN "‘IV('’ ERROR??
BEQ

70%

MOV

RMERZ21, $GDDAT

;REPORT "'IVvC'"' ERROR DUE

TO "vv*'

JNO!.
0,

OR REPORT ERRONEOUS "'IV('" ERRCR

JEXPECTED STATUS

"ZRMNBO RMOS/5/2 FCINL

DATA

TRANSFER COMMAND

115 052126

116 052134

117 052142
118 052146

042737

013737

062716
112776

TST ¢

MACRO v04.00

STATUS CHECK SUBROUTINE
010000

(01400
000004
000300

001140

001142

032737
001403
112776

000301

123 052176
124 052200

004736
162716

000010

127
128 052204
129 052212

032737
001510

000007

001352

131

032737

000002

001352

001352
000002
001352
000004
000302
000002

001140
001140
001142

;Sg 052204

130

052214

162716

132 052222
132 052224
134 (052232

001424
013737
042737

138 052260
139 052264

162716
004736

135 052240
136 052246
137 052252
140 052266

141 052272
}2% 052274

1464

145
140
'47
148
149
150

052274
052302
052304
052312
052320
052326

151 052332
152 052340
153 052344
154 052346

155 052352
}gg 052354
158
159
160
161
162
163
164
165
166
167

013737
062716
112776
162716

000240

001140
001140
001142

162716

000010

169 052432
170 052434

000240

162716

JSR
SuB
IF

001352

001140

001140
001142

000000

#VV ,RMDS]
65%

JWAS VOLUME
:NO:!

#301,a(SP)

#2,(SP)

PC,a(SP)+
#10, (SP)

;MOVE SP TO USER'S ERROR
JWRITE ERROR NUMBER N CALL
s CHANGE

VALID??

ERROR NUMBER

sMOVE SP TO RETURN IF ERROR

JREPORT "‘IVC'" ERROR AND RETURN
JRESTORE SP TO NO ERROR

"‘ILR'" IS SET

BIT

#ILR,RMER1]

;WAS "'ILR'' DETECTED??

MoV
ADD
MOVB

RMER11,88DDAT
#4, (SP)
#302,3(SP)

;RECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
JWRITE ERROR NUMBER IN CALL

#10, (SP)

JRESTORE

SUB
JSR

NOP

80$
RMER1] ,$GDDAT
#ILR,SGDDAT

#2,(SP)
PC,a(SP)+

;REPORT AN ERROR IF ‘‘ILF'' IS SET

000000

000004

;RECEIVED STATJS

"ILF'" OR "RMR'' IS SET
BIT
HILR.ILF!RMR, RMER1]
BEQ
100%
;NO ERRORS DETECTED

BEQ
MOV
BIC

;NO.!
;EXPECTED STATUS

sMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN
SP TO NO ERRCR

BIT
BEQ
MoV
BIC
Mov
ADD

AILF ,RMER1I
90$
RMER1] ,$GDDAT
HILF ,$GDDAT
RMER11,$8DDAT
#4, (SP)

;WAS “'ILF'' DETECTED??
JNO!!
;EXPECTED STATUS

SuU8

#10.,(SP)

JRESTORE

MOVB
SUB
JSR
90%:

000010

suB

SEQ 0211

RMERZ1,$BDDAT

JREPORT AN ERROR IF

80%:

000004
001352
000004
000304
000002

#4,(SP)
#300,a(SP)

SUB

001352
000001
001352
000004

000240

;SEE

(00010

000303
000002

ADD
MovB

MoV

65%:

000000

001352

112776
162716
004736

#1v(, SGDDAT

BIT
BEQ

70%:

000001

032737
001424
013737
042737
013737
062716
11¢776
162716
004736

000000

032737
001424
013737
042737
013737
062716

052354
052362
052364
052372
052400
052406
052412
052620
052424

168 052426

000002

001350

1
D
11:43:33 PAGE 35-2

BIC

MOV

000000

119 052154
120 052162
121 052164

122 052172

000100

4-APR-81

NOP

#4303 ,a(sP)
#2,(SP)
PC,a(SP)+

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL

;WRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN IF ERROR
;REPORT ERORR AND RETURN
SP TO NO ERROR

;REPORT AN ERROR IF 'WMR'' IS SET
BIT
#RMR ,RMER1]
JWAS "RMR'' DETECTED??
BEQ
1008
;NO!.
MOV
RMER1]1,$GDDAT
;EXPECTED STATUS
BIC
HRMR, $GDDAT
MoV
RMER11,$BDDAT
;RECEIVED STATUS
ADD
#4, (SP)
;MOVE SP TO USER'S ERROR CALL
mMovB
#304 ,a(SP)
;WRITE ERROR NUMBER IN CALL
Su8
#2,(SP)
;JMOVE SP TO RETURN IF ERROR
JSR
PC,a(SP)+
JREPORT ERROR AND RETURN
SuUB

100%:

NOP

#10,(SP)

JRESTORE

TO NO ERROR

:DETERMINE WHETHER OR NOT ''IAE'" SHOULD BE SET AND CHE(K FOR ERRCR

"JRMNBO RMOS/3/2 FCINL TST 2

DATA

MACRO v04.00

TRANSFER (OMMAND STATUS (HECK

172
173
176
175

052434
052642
052450
052456

012737
052737
023727
101025

SUBROUTINE

002000
L4U000
001446

001140
055076
001466

&-APR-81

11:43:33 PAGE 35-3

SEQ 021¢

MoV

#]AE ,$GDDAT

JSETUP FOR ''IAE'’ -

BIS
(MP
BHI
BIC

#SK1,500%
RMDCO,#822.
1108
#<1,500%

JSETUP FOR ''SKI‘' = 1
;GREATER THAN LAST (CYLIMNOER ?
JYES = CYLINDER [S INVALID
JRESET SKI FLAG

;;9 052460

042737

040000

055076

178 0526466

123737

001421

001335

CMPB
BHI

RMDAO+1,LSTRK+1
110%

;GREATER THAN LAST TRA(K
;YES = TRACK IS INVALID

181 052476
182 052504
1383 052506

123727
101410
032737

001420

000035

010000

001444

001420

000037

RMDAQ, #29.
105%
#FM116,RMOFO
1108

;1S SECTOR > 29. ?
sNO
;18 BIT FORMAT ?
JYES - SECTOR_IS INVALID FOR 18 BIT MODE

]gg 052526

123727
101002

CMPB
BLOS
BIT
BEQ

005037

001140

BHI
CLR

1108
$GDDAT

JYES = SECTOR IS INVALID
J"'IAE"" SHOULD = 0

'89 052532

013737

001352

lgg 052474

184 052514

185 052516
186 052524

190
191
192
193
194
195
196
197
198
199

205
204
205
206
c07
208
209
210
211
2
3
4
5
9

001406

052540
€52546
052554
052556
052564
052566
052572
052600
052604
052606

042737
023737
001004
042737
000412
062716
112776
162716
004736
162716

052612
052620
052626
052634
052642
052650
052652
052660
052662
052666
052674
052700
052702
052706

013737
042737
013737
042737
032737
001417
032737
001032
062716
112776
162716
004736
162716
000417

200 052612

201
202

101016

175777
001140

105%:

001142

00i*~2
00114¢

040000

055076

000004
000305
000002

000000

222 052716
223 052720

224
225
226
227
228

0527264
052732
052736
052740
052744

1108:

115%:

MOV
BIC
CMP

1208:

001400
137777
055076
137777
040000

001142
001142
001140
001140
001400

040000

055076

000004
000306
000002

000000

RMDAO,#31.

#4, (SP)

;MOVE

PC.,a(SP)+

;REPORT ERROR AND RE TURN

MOVB
SUB

#305,a(SP)
#2,(SP)

SuB

;GET RECEIVED STATUS

115%
#SK1,500%
1208

ADD

;1S SECTOR > 31,

RMER1],$BDDAT
#“C]AE
, $8DDAT
$GDDAT ,$8BDDAT

BNE
BIC
BR

JSR

000010

#10, (SP)

;IS ''IAE"' STATUS 0K??
JNO!!
;IAE OK = SKI SHOULD BE O
SP 10 USER'S ERROR CALL

;JWRITE ERROR NUMBER
MOVE SP TO RETURN IF ERROR
sMOVE SP TO NO ERROR

;REPORT AN ERROR IF ''SKI'' IS SET AND '‘IAE'' STATUS WAS 0K
MOV
BIC
MOV
BIC

BIT
BEQ
BIT
BNE

ADD
MOVB
SUB
JSR
SUB
8R

000010

8 052710

9
0
1 052710

CMPB

RMERZ1,$8DDAT
#~CSK1,$BDDAT
5008, $GDDAT
#*CSKI,$GDDAT

;RECEJVED STATUS

SEXPECTED STATUS

#SK] ,RMER2]
140%
#SK1,500%
1508

JWAS ''SKI'' SET??
;NO!!
;WAS SKI CAUSED B8Y IAE
JYES = DON'T REPORT SKI

#10,(SP)
150%

;MOVE SP TO NO ERROR

#4,(SP)
#306,a(SP)
#2,(SP)
PC,a(SP)+

0?7

sMOVE SP TO USERS ERROR (ALL
JWRITE ERROR NUMBER
;MOVE SP TO RETURN ]F ERROR
;REPORT ERROR AND RETURN

140%:
032737

001413
062716

112776
162716
004736
162716
000240

040000

055076

000004
000307
000002

000000

000010

.REPORT AN ERROR

SK]1

= O AND [AE WAS NOT DETECTED

BIT
BEQ
ADD

#SK1,500%
150%
#4, (SP)

sSHOULD SKI BE SET??
;NO!!
;MOVE SP TO USER'S ERROR CALL

su8

#2,(SP)

sJMOVE SP TO RETURN I|F ERROR

Sgg

#10, (SP)

MOVB
JSR
N

#307,a(SP)
PC,a(SP)+

JWRITE ERROR NUMBER IN CALL
;REPORT ERROR AND RETURN

JRESTORE SP TO NO ERROR

ZRMNBO RMOS5/3/72 FCTNL TST 2

MACRO V04.00

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

229 052746
230
231
232 052766
233 052754
236
235
236 052756
237 052764
238 052766
239 052774
2«0 053002
261 053010
2642 053014
263 053022
244 053026
245 053030
246 053034
053036

053036
053044
053046
053054
053056
053064
53072

053100
258 053104
259 053112
26U 053116
261 053120
262 053124
263 053126
264
265
266 053126
267 053134
268 053136
269 053144
270 053152
271 053160
272 053164
273 053172
274 053174
275 053200
276 053202
277
278
279
280
281
282
283
284
285

4-APR-81

11:43:33 PAGE 35-4

SEQ 0213

:
1508

032737
001512

006200

001400

032737
001424
013737
042737
013737
062716

00020C

001400
001140
001140
001142

112776
162716

001400
000200
001400
000004
000310
000002

162716

000010

004736

000240

032737
001430
032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

032737
001422
013737
042737
013737
062716
112776
004736

BIT
BEQ

#LSC.LBC.DVC,RMER?]
180%
+NO ERRORS SET

:REPORT ANY DEVICE. FAULT,

I.E., 'DVC'' = 1

BIT
BEQ

#DV( ,RMERZ]
1608

JI1S 'pvC' = 172
JNO!!

BIC
MOV
ADD

#DV(,SGDDAT
RMERZI ,$BDDAT
#4,(SP)

JRECEIVED STATUS
;MOVE SP TO USERS ERRCR

MOV

MOVRB
SuUB

000000

JSR
agg

RMERZ21, $GDDAT

JEXPECTED STATUS

#310,8(SP)
#2, (SP)

*JRITE ERROR NUMBER [N CALL
.MOVE SP TO RETURN IF ERROR

PC,a(SP)+
#10, (SP)

.REPORT ERROR AND RETURN
JRESTORE SP 7O NO ERROR

160%:

002000

001400

010000

001350

001400
002000
001400
000004

0037140
001140
001142

000311

000002

;REPORT LOSS OF BIT

004000

001400

001400
004000
001400
000004
000312

001140
001140
001142

032737
001527

054000

001352

032737

040000

001352

000200

001400

#MOL ,RMDS ]

MOV

RMERZ2] ,$GDDAT

MOV

RMERZ21,$BDDAT

ADD

MOVR
SuB
JSR
SuB
NOP

JNO!!

1708

JYES!!

#LBC,$GDDAT
#4,(SP)

#311,9(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

8IT7

#LSC,RMERZ]

MOV

RMERZ2] ,$GDDAT

BEQ

BIC
MOV
ADD
MOVB
JSR

SuB

180%:

NOP

"LBC'

180%

#LSC,$GDDAT
RMER?] ,$BDDAT
#4, (SP)
#312,a(SP)
PC,a(SP)+

#10, (SP)

=1,

;1S LBC SET??

1708

;REPORT LOS OF SYSTEM CLOCk,

000000

000010

BIT
BIC

170%:

[.E.;

#LBC ,RMER?Z]

BEQ

000010

CLOCK,

BIT

BEQ

000000

162716
000240

001427
032737
007023

:LOOK FOR '1SC''
OR “LBC'' OR 'DVvC'' IN ERROR REGISTER #2

"moL"’

;WAS LBC ERROR BY MOL

]

JEXPECTED STATUS
JRECEIVED STATUS

;MOVE

SP TO USER'S ERROR C(CALL

JWRITE ERROR NUMBER IN CALL
JMOVE SP 7O RETURN ]F ERROR
JREPORT ERROR AND RETURN
JRESTORE SP TO NO ERROR

I.E., ‘LsC"

JIS "LSC- 172
JNO!!

JEXPECTED STATUS
JRECEIVED STATUS

JMOVE SP TO USER'S ERROR CALL

IWRITE ERROR NUMBER

JREPORT ERROR AND RETURN

;RESTORE SP TO NO ERROR

;LOOK FOR ‘UNS'' OR 'DTE' OR "WLE'' IN ERROR REGISTER #1
BIT
#UNS.DTE
'WLE ,RMER1]
BEQ
2208
JNO BITS SET
JREPORT "UNS'' ERROR IF 'DVC'' = 0

BIT
BEQ

#UNS ,RMER1]
190%

;1S "UNS'' SET??
JNO.!

BNE

190%

JYES..

BIT

#DV( ,RMERZ2]

JWAS "UNS'' CAUSED BY "Dv('TM7

TST 2

MACRO V04.00

013737
042737
013737
062716

001352
(40000
001352
000004
000313
000002

001140
001140
001142

162716

000010

032737
001423
013737
042737
013737
062716

010000

001352

001352
010000
001352
000004
000314
000002

001140
001140
001142

"JRMNBO RMOS5/3/72 FCINL

DATA

TRANSFER COMMAND STATUS CHECK SUBROUTINE

286 053232
287 053240
288 053246
289 053254
290 053260
291 053266
292 053272
293 053274
294 C533n0

295
296
297 053300
298 053306
299 053310
300 053316
053324
053332
053336
053344
053350
053352
053356

112776
162716
004736

112776
162716
004736
162716

4-APR-81
MOV

000000

000010

ADD
MOVB
SUB

44, (SP)
#313,a(SP)
#2,(SP)

;MOVE SP TO USERS ERROR CALL
JWRITE ERROR NUMBER
JMOVE SP TO RETURN IF ERROR

#10, (SP)

JRESTORE SP TO NO ERROR

SuB

RMER1],$BDDAT

PC,a(SP)+

;REPORT ANY DRIVE TIMING ERROR,
BIT
#DTE ,RMER1]
BEQ
2008
MOV
RMER11,8GDDAT
#DTE,SGDDAT
BIC
MOV
RMER1],$BDDAT
ADD
#4,(SP)

MOVB

200%:

SEXPECTED STATUS

, $GDDAT
#UNS

JSR

190%:

RMER1],$GDDAT

SUB
JSR
SuB

#3714 ,2(SP)
#2,(SP)
PC,2(SP)+
#10, (SP)

JRECEIVED STATUS

JREPORT

—d cmd

N NN W

o SV, W NWI S
Velo B

032737
001441
013737

064000

001352

001352
001352
004000
000004
000315
004000

001142
001140
001140

000010

001412

162716

000316
004000
000002

000000
001140

162716

000010

013737
052737
062716
112776

JRECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL

;WRITE ERROR NUMBER IN CALL

;MOVE SP TO RETURN ]F ERROR
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

032737
001404
032737
001406
112776
042737
004736

WHR)
—
RSO

VAIVAW

VIV

053470
053474
053500
053502
053506
053512

2208

JNO!!

MOV
BIS

RMER1]1 ,8GDDAT
MJLE ,$GDDAT

JEXPECTED STATUS

RMER11,$BDDAT

IF DRIVE

IS NOT

JRECEIVED STATUS

ADD

#4,(SP)

;MOVE

BIT

AWRL ,RMDS

sWAS DRIVE WRITE PROTECTED??

BEQ
BIT

210%:

GEE

B8EQ

MOVR

205%:

IS SET.

PROTECTED, OR IF FUNCTION WAS NOT A WRITE
BIT
#WLE ,RMER1]
JWAS ‘WLE'* SET??

MOV

000000
001350

BEQ
MOVB

B8IC

SUB
JSR

SuUB

053470

—

—d

—

NN N AN

—

)

—t e

051356
05364
053306
053374
053402
053410
053414
053422
053430
320 053432
053440
053442
053450
053456
053462
053464

ERROR AND RETURN

[.E., 'DTE'"
= 1
;1S DTE SET??
:NO.!
EXPECTED STATUS

;JREPORT AN ERROR IF WRITE LOCK ERROR
JWRITE

SEQ 0214

8IC

MOV

000000

1
G
11:43:33 PAGE 35-5

#315,a(SP)

205$%
#8]T3,RM(CS10

SP TO USERS ERROR CALL

JWRITE ERROR NUMBER N CALL

JNO!!
;WAS COMMAND A WRITE??

2108
#316,a(SP)

JYES!!
. CHANGE ERROR NUMBER

#2,(SP)
PC,a(SP)+

;MOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN

MJLE
, SGDDAT

210, (SP)

SMOVE SP TO NO ERROR

220%:
062716

105776

001404

162716

000137
162716

013737
042737
022737

;OMIT DATA ERROR CHECKS IF ANY PREVIOUS ERRORS HAVE BEEN DETECTED

000004
000000

#6,(SP)

sMOVE SP TO USER'S ERROR

BEQ

225%

;NO - DU DATA CHECKS

TSTR

000004
054510
000004

001412
177700
000063

ADD

225%:

055100
055100
055100

SuB
JMP
SUR

a(SP)

#4,(SP)
340%

#4,(SP)

;WAS

ERROR DETECTED??

JRESTORE SP
;SKIP DATA (CHECKS

:RESTORE SP

;CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DATA, AND
;If HEADER COMPARE IS NOT INHIBITED
MOV
BI(
CMP

RM(S10,510%

H#*CFNCMSK,510%
#WH.GO,510%

;STRIP AND STORE FUNCTION CODE

JWAS FUNCTION WRITE HEADER & DATA?"

“IRMNBO RMOS/3/2 FCINL TST 2

DATA

TRANSFER

343 053540
344 053542
345 053550
346
3%7
348 053552
349 053560
350
35
352 053562
353 053570
356 053572
355 053600
356 053606
357 053614
358 053620
359 053626
360 053632
361 053634
362 C53636
363
364
365 05363¢€
366 053644
367 053646
368 053654
369 053662
370 053670
371 053674
372 053702
373 053706
374 053710
375 053712
376
377
378 053712
379 053720
380 053722
381 053730
382 053736
383 053744
384 053750
385 053756
386 053762
387 053764
388
389
390
391 053766
392 053774
393 053776
394 054004
395 054012
396 054020
397 054024

398 054032
399 054036

COMMAND

001512
032737
001106

STATUS

MACRO v04.00

CHECK

4-APR-81

SUBROUTINE

BEQ
BIT
BNE

002000

001370

032737
001533

000620

001352

0327%7
001422
013737
042737
013737
062716

000400

001352

007352
000400
001352
000004
000317
000002

001140
001140
001142

BIT
BEQ
MOV
BIC
MoV

000000

MOvB

112776
162716

006736
000501

032737
001422
013737
042737
013737
062716
112776
162716

004736
000453

032737
001453
013737
042737
013737
062716
112776
162716

004736
000425

032737
001425
013737
042737
013737
062716
112776
162716

004736

;SEE

001352

001352
000020
001352
000004
000320
000002

001140
001140
001142

;REPORT HEADER

<REPORT

250%
#HC
] ,RMOF |
250%

CRC

001352
000200
001352
000004
000321
000002

001140
001140
001142

THERE

000620

001352

001352
000620
001352
000004
000322
000002

001140
001140
001142

000000

508:

SET

JWAS

JNO,

{CRC SET??

JEXPECTED STATUS
JRECEIVED STATUS
;MOVE SP TO USERS ERROR

sSuB

#2,(SP)

JMOVE SP TO RETURN ]F ERROR

#317 ,a(SP)

FORMAT ERROR

BIT
BEQ
MOV
BIC

JREPORT

SET

ERROR AND RETURN

JNO!!

JEXPECTED STATUS

RMER1],$8DDAT
#4,(SP)

JRECEIVED STATUS
;MOVE SP TO USERS ERROR

#2,(SP)

;MOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

#320,8(SP)

;WRITE

PC,a(SP)+

2608

COMPARE

SHOULD BE

ERROR NUMBER

JWAS "FER'' SET??

#FER,RMER1]
240%
RMER1],$GDDAT
#FER,8GDDAT

BIT
BEQ
MOV
BIC
MOV
ADD
MOVR
SUB
JSR
BR

JWRITE

PC,a(SP)+
260%

JSR
BR

;REPORT HEADER

000000

#4, (SP)

SuB

:
2408

ERROR

ADD

JSR

001352

SEQ 0215

;JYES = SKIP HEADER CHE(KS
JWAS HCI SET?Z?
JYES - SKIP HEADER CHEC(KS

H#HCRC ,RMER1]
2308
RMER11,$GDDAT
#HCRC, $GDDAT
RMER11,$BDDAT

MOV
ADD
MOvB

000000

000200

IF ANY HEADER ERRORS ARE SET,
BIT
NHCRC!FER!HCE
,RME R1I
8EQ
2708
sNO ERRORS SET

230%:
006020

11:43:33 PAGE 35-6

ERROR

#HCE ,RMER1]
270%
RMER11,$GDDAT
#HCE
, $GDDAT
RMER11,$BDDAT
#4, (SP)
4#321,a(SP)
#2,(SP)
PC,a(SP)+
2608

ERROR NUMBER

SET

JWAS “HCE'' SET??

JNO!!
JEXPECTED STATUS
JRECEIVED STATUS
sMOVE SP TO USER'S ERROR
;WRITE ERROR NUMBER
;MOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

NO HEADER ERRORS BECAUSE

.COMMAND WAS WRITE HEADER AND DATA, OR
.HEADER COMPARE INHIBIT WAS SET

BIT

BEQ
MOV
BIC
MOV
ADD

MOVB
Sus
JSR

HHCE ! FER!'HCRC ,RMER1!
;NO ERRORS WERE
2708

SET

RMER11,$GDDAT
SEXPECTED STATUS
HHCE . FER!HCRC,$GDDAT
RMER11,$BDDAT
;RECEIVED STATUS
44, (SP)
;MOVE SP TO USER'S ERROR (ALL
#322,3(SP)
;JWRITE ERROR NUMBER
#2,(SP)
JMOVE SP TO RETURN [F ERROR
JREPORT ERROR AND RETURN
PC,a(SP)+

ZRMNBO RMOS/3/2 FCINL TST 2

"JATA

TRANSFER

400 056040
[R¢))] 054044

402

403
404
405
406
407
408
409

COMMAND

162776

000137

STATUS

MA(RO v04.00

(HECK

SUBROUTINE

260%:

000010

(54510

;1F

032737
001002
000137

000010

032737

100000

001352

001352
100000
001352
000004

001140
001140
001142

055100

054276

414 054072
415 054074
416 054102

417 054110

418
419
420
421
422

054116
054122
054130
054136
054140
423 054146
424 054154

425
426 054156
427 054164
428 054166

429 054172
430 054174
43) 054202
432 054206
433 054210
434

001450
013737
042737
013737
062716
112776
032737
001021
112776
032737
001007

032737
001406

000323

004000

000000
001370

000324
000100

000000
001352

000020

162716

000004

112776
162716
004736
162716

000325
000002

000410

055100

000000

449
450 054276
451

452
453 054276
454 054304
455 054306
456 054314

SEQ 0216

sMOVE SP TO NO £RROR

#10, (SP)

340%

JOMIT FURTHER DATA (HE(KS

COMMAND WAS A WRITE COMMAND,

;REPORT

GO DO WRITE ERROR (HE(KS, OTHERWISE

BIT

#8173,510%

:xgs THIS A WRITE COMMAND?

JMP

3108

160
DO WRITE STATUS CHECK

BNE

DATA

BIT
BEQ
MOV
BIC
MOV
ADD
MOVB
BIT
BNE
MOVB
BIT

BNE

275%

CHECK

SET

:DeTe CHE(K ERROR??

#DCK ,RMER1 ]
290%
RMER1]1,$GDDAT
#DCK, SGDDAT
RMER1
1, $8DDAT
#4 . (SP)
#323.a(SP)
#ECI.RMOF|
2808
#324,3(SP)

:NO.!

JEXPECTED STATUS
JRECEIVED STATUS
;MOVE SP TO USER'S ERROR
;WRITE ERROR NUMBER
:vgglECC CORRECTION DISABLED??

;CHANGE TO RECOVERABLE ERROR
:gg g?ROR RECOVERABLE??

#ECH.RMER1]

2768

;DO NOT REPORT RECOVERABLE EKROR IF READ COMMAND

276%:
2808:

000010

435 054214
436

437
438 054214
439 054222
440 054224
441 054232
442 054240
443 054246
444 054252
445 054260
446 054264
447 054266
448 054272

1
35-7

;DO READ ERROR (HECKS

275%:

411

412
413 054064

SuB

JMP

I
11:43:33 PAGE

c70%:

054050

054050
054056
054060
410 054064

4-APR-81

BIT
BEQ
SUB

#8174 ,510%
2808
86, (SP)

:USS'!HIS A READ COMMAND

MOVB
SWB

#325,3(SP)
#2,(SP)

;CHANGE TO NON RECOVERABLE
;MOVE SP TO RETURN IF ERROR

SUB

#10, (SP)

JRESTORE SP TO NO ERROR

B8R

JSR

:NO

JRESTORE

290%

°?

;SKIP ERROR - DATA WILL BE CORRECTED

PC.R(SP)+

;REPORT ERROR AND RETURN

290%:

032737
001423
013737
042737
013737
062716
112776
162716
004736
162716

000137

;REPORT DATA BUS PARITY ERROR

000400

001346

001346
000400
001346
000004
000326
000002

001140
001140
001142

BIT
BEQ
MOV
BIC
MOV

000000

MOVR

000010

(54510

3008:

#MDPE ,RMCS2]
3008
RMCS21,$GDDAT
#MDPE
, $GDDAT
RMCS21, $BDDAT

ADD

#4 . (SP)

SUB

#2.(SP)

JSR
SUB
JMP

#326.a(SP)

PC.3(SP)+
#10, (SP)
3408

SET, I.E., MDPE - 1
;PSg{TY ERROR SET??

JEXPECTED STATUS
JRECEIVED STATUS
;JMOVE SP TO USER'S ERROR
JWRITE ERROR NUMBER

;JMOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

;SKIP WRITE STATUS (HECK

310%:

032737
001423
013737
042737

000001

001350

001350
000001

001140
001140

;TEST TO SEE THAT OFFSET MODE WAS RESET, REPORT ERROR IF ‘OM''
BIT
#0OM,RMDS|
;ég OFFSET ON??
BEQ
MOV
BIC

320$
I, $GDDAT
RMDS
#OM, $GDDAT

“EXPECTED STATUS

“/RMNBO RM0S/3/2 FCINL

DATA

TRANSFER

457 054322
458 054330
459 054334
460 056342
461 054346
462 054350
463 054354

464
465
466
667
408
469
470
671
472
473
474
675
476
477
478
479
480

481
482
483
484
485

486
487
488

056354
056362
054364
054572
0564400
054406
0564412
054420
054424
054426
054432

054432
054440
054442
054450
0564456
056464
054470
054476
054502
054504
054510

489
490
491
492 054510
493 054516

494 054520
495 054526
496 054534

497 054542
498 (054546
479 054554

500
501
502
503
504
505
06
507
508
509
510

COMMAND

013737
062716

TST 2

STATUS

(HECK

SUBROUTINE

001350

001142

000327

000000

(00004

112776
162716

000002

162716

000010

032737
001423
013737
042737
013737
062716

000010

001400

001400
000010
001400
000004
000330
000002

001140
001140
001142

004736

112776
162716
004736
162716

032737
001423
013737
042737
013737
062716
112776
162716
004736
162716

032737
001423
013737
042737
013737
062716
112776

001352
000040
001352
000004
000331
000002

001140
001140
001142

001346

001140
001140
001142

100000

000004

162716

000332
000002

004736

162716

000010

054566
054572
054576
054602

013746
042716
022726
001522

001350
147677
010100

032737
001430
032737

000000

RMDS
], $BDDAT
#4, (SP)

SUB
JSR
suB

#2. (SP)
PC.a(SP)+
#10, (SP)

#337.a(sP)

FOR DATA BUS PARITY ERROR;

BIT
BEQ
MOV
BIC
MOV

#DPE ,RMER2]
3308
RMER2], $GDDAT
#DPE , SGDDAT
RMER2I
, $8DDAT

MOVB
SUB
JSR
SuB

#330,a(SP)
#2. (SP)

#4, (SP)

PC.a(SP)+

#10, (SP)

SEQ 0217

JRECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL

;JWRITE

ERROR NUMBER

IN CALL

sMOVE SP TO RETURN [F ERROR
sREPORT ERROR AND RETURN

;MOVE SP TO NO ERROR
REPORT ERROR

'DPE''
-

:gg{e PARITY ERROR??

“EXPECTED STATUS
JRECEIVED STATUS
;MOVE SP TO USER'S ERROR C(ALL
JWRITE

ERROR NUMBER

;JMOVE SP TO RETURN [F ERROR
JREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

BIT
BEQ
MoV

AWCF ,RMER1]
3408
RMER1],$GDDAT

JIS "WCF'' SET??

MCV
ADD
MOVB

RMER11],$8DDAT
#4,(SP)

JRECEIVED STATUS
JMOVE SP TO USERS ERROR CALL

JSR

PC,a(SP)+

B8IC

:
3408

100000

JTEST FOR WRITE CLOCK FAILURE; REPORT ERROR [F "W(F''

000000

000010

11:43:33 PAGE 35-8

MOV
ADD

ADD

330%:

001352

001346

;TEST

000000

000040

4-APR-81

MOVB
320%:

000010

054560
054562
054566

511 054604
512 054612
513 054614

MACRO V04.00

#WCF ,SGDDAT

SuB

#331,a(SP)
#2,(SP)

SUB

#10, (SP)

JNO!!
JEXPECTED STATUS

JWRITE ERROR NUMBER

sMOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

JREPORT 'DATA LATE'' ERROR IF 'DLT'"
1
BIT
#DLT,RMCS?2]
;IS "DLT" SET??
BEQ

3508

MOV
BIC
MOV

RMCS21, $GDDAT
#DLT,$GDDAT
RMCS21, $8DDAT

MOVB

#332,3(SP)

ADD

SUB
JSR
SuB

#4,

(SP)

#2,(SP)
PC,a(SP)+
#10, (SP)

:NO!!
JEXPECTED STATUS
SJRECEIVED STATUS
;MOVE SP TO USERS ERROR (Al
L
;WRITE ERROR NUMBER

;MOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN

;MOVE SP TO NO ERROR
350%:
;LOOK FOR UNEXPECTED CHANGES IN DRIVE STATUS
MOV

BI1C
(MP
BEQ

020000

001350

040000

001400

;STACK DRIVE STATUS
#*C<PIPIMOL !VV>, (SP) ;CLEAR DONT CARES
AMOL 'VV, (SP)+
:IES?RIVE STATUS 0K??
380¢
JYES!.
RMDSI ,=(SP)

;REPORT ERROR |F POSITIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR,
;1.E, PIP - 1 AND SKI = 0
BIT

BEQ
BIT

#P1P ,RMDS]

360%
#SKI,RMERZ]

;13"P1P” SET??
sNO!.

JWAS ‘'SK]'* ERROR REPORTED??

TZRMNBO RMOS5/3/2 FCINL TST 2

MACRO v04.00

DATA TRANSFER COMMAND STATUS (HECK SUBROUTINE

514 056622
515 0546264
516 054632

001024
013737
042737

001140
001140

BNE
MOV
BIC

3608
RMDSI ,$GDDAT
A#P1P ,$GDDAT

;YES-DONT REPORT PIP
JEXPECTED STATUS

000333

000000

MOvB

#353,a(5P)

;WRITE ERROR NUMBER

013737
062716

001350
000004

520
521
522
523
gsg

162716
004736
162716
000240

000002

054660
0564664
054666
054672
054674

526
5¢7
528 054674

529 054702
530 054704
531 054772
532 054714
533 054722
534 054730
535 054736

536 054742

537
538
539
22?

054750
054754
054756
054762

562
543
544 054762
545 054770

546 054772

112776

001142

360%:

010000

001350

020000

001352

013737
052737
013737
062716

001350
010000
001350
000004

001140
001140
001142

162716
004736
162716

000002

112776

032737
001027

032737

MOV
ADD

000010

032737
001027

032737
001023

000334

001350

010000

001400

001350
000100
001350
000004
000335
000002

001140
001140
001142

#2,(SP)
PC,a(SP)+
#10, (SP)

BIT

055050
055054
055060
055062
055066
055070

062716
105776
001403
062716
000402
162716

ggg 055074

000207

400%:

RTS

568 055076

000000

500%:

.WORD

000000

000004

RMDSI,$GDDAT
#MOL
, SGDDAT
RMDS I ,$BDDAT
#4,(SP)

#354,3(SP)

JYES!!
;WAS OPI ERROR REPORTED??
JYES!.
JEXPECTED STATUS
JRECEIVED STATUS
;MOVE SP TO USER'S ERROR

;WRITE ERROR NUMBER

;MOVE SP TO RETURN IF ERROR
;JREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

JREPORT ERROR IF VOLUME IS NOT VALIC AND "‘IVC'' ERROR WAS NOT
JREPORTED, I.E., VWV = IVC = 0
BIT
#VV RMDS]
:1S VOLUME VALID??
BNE
3808
JYES!!

558
559
560
561
562
563
ggg

000004

;MOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN
JMOVE SP TO NO ERROR

suB
JSR
us

001033
013737
052737
013737
062716
112776
162716
004736
162716

000004
000000

#2,(SP)
PC,a(SP)+
#10, (SP)

370%
#OPI ,RMER1!
370%

055000
055002
055010
055016
055024
055030
055036
055042
£55044
055050

000010

JRECEIVED STATUS
sMOVE SP TO USERS ERROR CALL

BNE
8BIT
BNE
MOV
BIS
MOV
ADD

MOVB
370%:

000100

RMDS], $BDDAT
#4,(SP)

;REPORT ERROR IF MEDIUM IS NOT ON LINE AND OP] ERROR WAS NOT
;REPORTED, I.E., MOL = OP] = 0
BIT
#MOL ,RMDS |
;IS MEDIUM ON LINE??

000000

000010

SuB
JSR
SuB
NOP

547
548
549
550
551
552
553
554
555
229

569 055100

(01350
020000

517 054640
518 054646

519 054652

4-APR-81 11:43:33 PAGE 35-9

000000

280%:

BNE
MoV
BIS
MoV
ADD
MOVB
suB
JSR
SuB

H1VC,RMERZ2I

390%
RMDSI ,$GDDAT
AVV,SGDDAT
RMDS1, $BDDAT
#4, (SP)
#335,a(SP)
#2,(SP)
PC,a3(SP)+
#10. (SP)

;WAS IVC ERROR REPORTED??
JYES!!
SEXPECTED STATUS

JRECEIVED STATUS
;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER
;MOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN
JMOVE SP TO NO ERROR

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS FOUND
ADD
#4,(SP)
;MOVE SP TO ERROR CALL
TST8
a(SP)
;ANY ERROR??
BEQ
390%
JNO.!
ADD
#4,(SP)
;YES - MOVE SP TO ERROR RETURN
BR
400%
390%:
sSUB
#4, (SP)
sMOVE SP TO NO ERROR RETURN

5108%:

.WGRD

JRETURN TO USER
;ERROR FLAGS

; TEMPORARY STORAGE

SEQ 0218

~JRMNB0O RMOS/3/2 FCINL TST 2

.SBITL
;THIS

SEQ 0219

SUBROUTINE

LOOKS

FOR UNEXPECTED CHANGES

SUCH AS THE DRIVE LOSING VOLUME

[N DRIVE

VALID.

THE

SUBROUTINE

;CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE
;SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE.
:}?ETQSELOUING CCNDITIONS ARE

— b

o OO
WNI=

W ILNWW W AN NN n NONONOMNIMNIN) 0 = d s e 2

(s) A RN
= OOBIFNRARN
LS 0B VR
=QOO NN

1
L
11:43:33 PAGE 36

STATIC DRIVE STATUS (HECK SUBROUTINE

sSTATUS,

.MOL = O,

THAT MOL

.VV = C,
.PIP -

TESTED AND REPORTED AS ERRORS

INDICATES DRIVE WEN:!

IS ASSUMED

.SKI - 1.
.DVC = 1,

TO HAVE BEEN SET

OFFLINE, NOTE

INDICATES THE DRIVE LOST VOLUME VALID
INDICATES

THAT

THE

DRIVE

IS OFF

CYLINDER

INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR
INDICATES AN UNEXPECTED DEVICE FAULT

;THE SUBROUTINE 1S CALLED AFTER STORING STATUS IN THE GET BUFFER.
(D

;

JSR

NOP
ERROR

JSR
7

055102

055106
055112

062716

105076

162716

013746
042716
022726
001524

055134
055142
055144
055152
055154
055162
6 055170

032737
001030
032737
001024
013737
052737
013737
062716
112776
162716
004736
162716
000240

055126
055132

4«7 055176
48 055202
49 055210

50 055214
055216
855222

PC,STCDRVSTS

?22?

RETURN HERE [F NO ERROR

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SuB

PC.a(SP)+

GO BACLK TO SUB FOR MORE ERROR CHECKS

RETURN HERE

NO MORE ERRORS

STCDRVSTS:

055116
055122

SNBSS B BB DS NN NN

4-APR-81

STATUS (HECK SUBROUTINE

RN
NN -2

STATIC DRIVE

MACRO V04.00

032737
001030

;CLEAR USER'S ERROR CALL

000004
000000
000004

JSEF

001350

1647677
010100

010000

001350

020000

001352

001350
010000
001350
000004
000207
000002

001140
001140
001142

JREPORT AN ERROR IF MOL = O AND 'OPI'' = O
BIT
#MOL ,RMDS |
;1S MOL ON ??

BNE
8IT
BNE
MOV
BIS

MOV

ADD
MOvB

000000

Su8
JSR
SUB

000010
10%:

000100

001350

ADD
#4,(SP) ;MOVE SP TO USER'S ERROR CALL
CLRB
a(SP)
:CLEAR ERROR NUMBER
Su8
#4,(SP)
;MOVE SP BACK TO NO ERROR RETURN
IF 'MOL"
= "'WW''
= 1, AND 'PIP'' = 0
MOV
RMDSI,=(SP)
;PUT DRIVE STATUS ON STA(K
BIC
#*C<PIP!MOL!VV>,
(SP)
(MP
AMOL!VV,(SP)+
;ARE MOL,VV AND PIP 0.K.??
BEQ
308
JYES!!

NOP

10%
#OP1 ,RMER1]
108
RMDS I, $GDDAT

JYES!!
JWAS "OPI'* SET??
JYES=-DONT REPORT ‘MOL''
JEXPECTED STATUS

RMDSI, $BDDAT

#2,(SP)
PC,a(SP)+
#10, (SP)

;-IOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER
sMOVE SP BACK TO NO ERROR RETURN

#MOL
, $GDDAT
#4,(SP)
#207 ,a(SP)

;REPORT AN ERROR IF

BIT
BNE

VOLUME

#VV,RMDS]
208

ELVED STATUS

JMOVE SP TC USER'S ERROR CALL
JVRITE ERROR NUMBER IN (ALL

VALID IS NOW ZERQ AND "'IVC'' - 0

J1S 'w't
= 072
JNO.!

IRMNBO RMOS/3/2 FCINL TST 2

STATIC DRIVE

STATUS (HECK SUBROUTINE

58 055234

59 055242
60 055244
61 055252
2 055260

63 055266
64 055272
€5 055300
66 055304
67 055306
68 055312
09 055314

70
71
72
73
74
75
76
77
78
79

055314
055322

055324

055332
055334
055342
055350
055356
80 055362
81 055370
82 055374
83 055376
84 055402
85 055404
86
87
88 055404
89 055410
90 055414
91 055416
92

bCNvté?bfl)

VIV

AaIWAWD

v
v
S
WWNL=OO N

055416
055424
055426
055434
055442
055450
055454
055462
055466
055470
055474
055476
[eleolelelelale]

—hd-‘d-‘CNDC¥;CNDCNDCKD
SNV
2OOOON \n:w»n»—cflg

b o

—h

b —d —

93
94
95
96
97
98

MACRO v04.00

032737
001024
013737
052737
013737
062716
112776
162716
004736
162716
000240

032737
001430
032737
001024
013737
042737
013737
062716
112776
162716

004736
162716
000240

010000

001400

001350
000100
001350
000004
000210
000002

001140
001350
001142

000010

20%:
020000

001350

040000

001400

001350
020000
001350
000004
000211
000002

001140
001140
001142

#1VC,RMERZ]
208

RMDS], $GDDAT
#vV _RMDS]
RMDS],$BDDAT
#4,(SP)

MOvVB
SUB

#210,a(SP)
#2,(SP)

SJuB

#10, (SP)

NOP

SEQ 0220

JWAS “Iv(' SET??

SYES<DONT REFORT *Vv''
JEXPECTID STATUS

JRECEIVED STATUS

JMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER [N CALL

;MOVE SP TO RETURN FCR ERROR
JREPORT ERRCR VIA USER

PC,a(5P)+

;sMOVE

SP BACK TO NO ERROR

BIT
BEQ
BIT

IS OFF (YL INDER AND ''Sk]'* - (
#P1P RMDSI
;1S DRIVE OFF CYLINDER??
308
#SKI ,RMERZI
SWAS *'SKI'* SET??

MOV

RMDSI
, $GDDAT

BNE

30%:

30%

BIC

4#P1P,$GDDAT

su8

#2,(SP)

MOV
ADD
MOvB

000010

JSR
SUB
NOF

RMDSI ,$BDDAT
#4, (SP)
#211,a(SP)

PC,a(SP)+
#10, (SP)

:YES-DONT REPORT ‘PIP'*- 1
EXPECTED STATUS
JRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
;JWRITE ERROR NUMBER

N USER'S

JMOVE SP TO RETURN FOR ERROR

CALL

JREPORT ERROR VIA USER

;MOVE SP TO NO ERROR RETURN

- 'DVC'' = 0
;SEE IF 'SKI'

000200

001400
001140
001140
0011¢2

112776
162716

001400
000200
001400
000004
000212
000002

162716

000010

112776

11:43:33 PAGE 36-1

JREPORT AN ERROR IF DRIVE

000000

032737
001424
013737
042737
013737
062716

MOV
BIS
MOV
ADD

JSR

001400
137577

000240

BI7
BNE

000000

013746
042726
001460

004736

4~-APR-81

40%:

MoV
BiC
BEQ

;REPORT AN ERROR IF

001400

001400
040000
001400
000004
000213

001140
001140
001142
000000

IS A DEVICE FAULT

:figy'osvxce FAULT??

#DVC ,RMERZ2]
50%
RMERZ2] ,$GDDAT
#DVC,$GDDAT
RMERZ]
, $BDDAT

sRECEIVED STATUS

mMovs
suB

#212,3(SP)
#2,(SP)

;MOVE SP TO

SuB

#10, (SP)

JSR

50%:

THERE

BIT
BEQ
MOV
BIC
MOV
ADD

000000

040000

RMERZI ,-(SP)
:PUT ERROR REG 2 ON STACK
R#C<SKIIDVC>, (SP)+
608
;BRANCH IF NO ERROR

NOP

#4,(SP)

PC,a(SP)+

JREPORT AN ERROR [F ''SKI'' =1
BIT
#S5K1 ,RMERZ2]
BEQ
60%
MoV
BIC
MOV
ADD
MOVR

RMERZ2I ,$GDDAT
#SK],$GDDAT
RMERZ2I ,$BDDAT
#4,(SP)
#213,a(SP)

‘EXPECTED STATUS
JMOVE SP TO USER'S CALL
JWRITE NUMBEF
¢ ERROR IN CALL
.URN FOR ERROR

;REPORT ERROR V'"

USER

;MOVE SP BACK TO NO ERROR

:IS'THERE A SEEK INCOMPLETE ERROR
JNO!!

JEXPECTED STATUS

JRECEIVED STATUS

;MOVE SP TO USER'S ERROR CALL
;WRITE

ERROR NUMBER

IN USER'S ERROR CALL

“IRMNBO RMOS5/73/2 FCTNL TST 2

STATIC DRIVE

MACRO v04.00

STATUS CHECK SUBROUT INE
162716

00000°

162716

000010

004736
000240

062716
105776

0C1403
062716
000402

162716

055604

000240
000207

4-APR-81

60%:

000004
600000

JAUGMENT

000004
000004

70%:
80%:

su8
JSR
SuB
NOP

11:43:33 PAGE 36-2

SEQ 0221

#2,(SP)

JMOVE

SP TO RETURN FOR ERROR

#10, (SP)

;MOVE

SP BACK

PC,a(SP)+

THE RETURN ADDRESS
#4,(SP)
ADD
1SR
a(SP)
70%
BEQ
ADD
ggi(SP)
BR
#4,(SP)
SUR
NO
RTMS
PC

;REPORT

ERROR

VIA USER

TO NO ERROR

ANY ERROR WAS DETECTED
;MOVE SP TO USER'S ERROR CALL

;JWAS AN ERROR DETECTYED??
sNO!!
;YES = MOVE
;NO - MOVE
JRETURN

SP TO USER'S ERROR RETURN
SP

TO NO ERROR RE TURN

TO USER

IRMNRG RMOS/3/72 FCINL TST 2
MACRO
~aLk AND RESTORE RO-RS ROUTINES

v04.00

4-APR-81

11:43:33 PAGE

37
SEQ 0220

LSBTTL
A

SAVE AND RESTORE RO-RS ROUTINES

EEASAASARSRRARRl
I
R
R R
R R R
R R F RN RN

*«SAVE RO-RS

;=CALL:

SAVREG

1*UPON RETURN FROM $SAVREG THE STACK wiLL LOOK LIKE:
TxTOP===(+16)

Jr #2===(+18)
;v +4--=R5
st +6~-~-R4
;* +8---R3
;*+10---R2

s*+12-=-R]
tes14==-R0

055606
055606
55610
055612
055614
055616
055620
055622
055626
055632
055636
055642

01004¢
010146
010246
010346
010446
010546
C16646
016646
016646
016646
000002

$SAVREG:

000022
000022
000022
000022

MOV
MOV
MOV
MOV
MOV
MOv
MOV
MOV
MOV
MOV
RT}

RO,=(SP)
R1,-(SP)
R2,=(SP)

R3,-(SP)

R4 ,-(SP)
RS,=(SP)

22(SP) ,-(SP)
22(SP) ,=(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)

. sPUSH
;;PUSH
: ;s PUSH
s s PUSH
s s PUSH
; «PUSH
;s SAVE
;2 SAVE
; :SAVE
;s SAVE

STACK
STACK
STACK
STACK
STACK
STACK
MAIN FLOW
MAIN FLOW
CALL
CALL

;*RESTORE RO-R5

;*CALL:
-

055644
055644
055650
055654
055660
055664
055666
055670
C55672
055674
055676
055700

012666
012666
012666
012666

012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

$RESREG:

RESREG

MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV
MOV
RTI

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+ ,22(SP)
(SP)+,22(SP)
(SP)+,RS
(SP)+ R4
(SP)+ ,R3
(SP)+ R
{SP)+
R
(SP)+,R0O

;sREST ORE P( OF CALL
JREST ORE PS OF CALL
s JREST ORE PC OF MAIN FLOW
:;RESTORE PS OF MAIN FLOw
. . POP STACK INTO RS

2 :POP STACK INTO
. .POP STACK INTO
::POP STACK INTO
.2 POP STACK INTO
. ;POP STACK INTC

R3
R2
R1

"JRMNBO RM(OS5/372 FCTINL

BINARY

TO ASCII

1ST 2

AND TYPE

ROUTINE

MACRO v04.00

4-APR-81

.SBTTL
M M

BINARY

AEAERAS

(

11:4%:33 PAGE

TO ASCII

SEQ 0223

AND TYPE ROUTINE

ARl

SN X

R R R

Y S22

222X

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TC A 16-8]7
;*BINARY-ASCI]

;oCALL:
I
I

055702
055704
055710
055712
055720
055722
055724
055730
055734
055736
055740
055742
055750
055752
055754

010146
016601
000261
112737
006101
001406
105537
104401

000241
000765
012601

016666
012616
000002
000

$TYPBN:

000006
000060

055754

1%:

055754
055754

000002

000

000004

2%:

$RIN:

NUMBER AND TYPE

MOV
TYPBN

NUMBER,
- (SP)

;sNUMBER TO BE
J:TYPE IT

MOV

R1,-(SP)
6(SP) ,R1

;:SAVE R1 ON THE STACK
..GET THE INPUT NUMBER
iSET "C'* SO CAN KEEP TRACK OF THE NUMBER OF BITS
;:SET CHARACTER TO AN ASTII 'O,
::GET THIS BIT
;:DONE?
JosNO=-=-SET THE (HARACTER SQUAL TO THIS BIT
.:G0 TYPE THIS BIT
;;CLEAR 'C'' SO CAN KEEP TRA(K OF BITS
;:GO DO THE NEXT BIT

MOV

SEC
MOVR
ROL
8EQ
AD(CB
TYPE
cLe
BR

MOV

MOV
MOV
RT]

.BYTE

#'0,8BIN
R1

2%
$8IN

LSBIN

1%
(SP)+,R1

TYPED

2(SP) ,4(SP)

.2POP THE STACK INTO R1
:sADJUST THE STA(K

0.0

;;RETURN TO USER
;cSTORAGE FOR ASCI!

(SP)+, (SP)

CHAR.

AND

TERMINATOR

TIRWNBD RMOS/3/72 FOINL

TONVERT

BINARY

TST 2

TO DECIMAL

MACRDO v04.00

AND TYPE ROUTINE

«=-APR-B"

SEQ 0224

SBTTL
O

D
2
11:43.33 PAGE 39

CONVERT BINARY TO DECIMAL

AR RANN NN R TNANNRANARARNRTER

AND TYPE ROUTINE

AR NAAARRANNRAIRNAANNNNCR
RN CEOIPOTVASTRROERNOER

*«THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER "0 A $=DIGIT

$«SIGNED DECIMAL (ASCII) NUMBER AND TYPE 7. DEPENDING ON WHETH:ZR THE
S«NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINU> SIGN WILL 'BE TYPED
;*PEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;*<EPLACED WITH SPACES.

s«CALL:
o *
B

055756
055756
055760
055762
055764
055766
055770
G55774
056000
056002
056004
056012
056014

056020

056024
056026
056032
056034
056036
056040
056042
056044
056046
056050
056052
056054
056056
056060
056066
056072
056076
056100
056102

056106
056110
056112
056114
056116
056120
056122
056130
056132
056134
056136
056140

010046
010146
010246
010346
010546
012746
016605
100004
005405

$TYPDS-

020200
0C0020

112766

000055

112723

056172
000040

005000
012703
005002
016001
160105
002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663

052702

052702
110223
005720
020027
002746
003002
010502

000001

2%:

056162

3%:

5%:

000001
000060
000040

177777

012605
012603
012602
012601

6%:
7%:

000010

000764

105726
100003
116663
105013

1%:

8%:
177777

177776

9%:

MOV
TYPDS

- (SP)
NU1,

;;PUT

MCV
MOV
MOV
Mov
MOV
MOV
MoV
BPL
NEG
MOvVB

RO,-(SP)
R1,~(SP)
R2.,-(SP)

;:PUSH RO ON STA(K
;JPUSH R1 ON STACK
;;PUSH R2 ON STACK

(LR

Mov
MOvA

CLR
MOV
SUB

BLT
INC
BR

ADD
TST
BNE
TSTB
8M]
ASLB
B8CC
MOVB
BI1S

BIS
MOvB
TST
cMp
BLT
B8GT

MOV
B8R
1ST8
BPL
MOVB

CLRB

Mov

MOV

MoV
MGV

R3.-(SP)
RS,=(SP)

#20200,-(SP)
20(SP) ,RS
13

#'=,1(5P)
RO
#3$DBLK ,R3
#' L(R3)+
R2

$DTBL (RO) ,R1
R1,R5
43

THL

BINARY NUMBER ON

::G0 TO THE ROUTINE

THE

STA(K

;:PUSH R3 ON STACK

::PUSH RS ON STACK

;:SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
;:BR IF INPUT ]S POS.
;sMAKE THE BINARY NUMBER POS.
;;MAKE THE ASCI] NUMBER NEG.
;:ZERO THE CONSTANTS INDEYX
;:SETUP THE OUTPUT POINTER
csSET THE FIRST CHARACTER TO A BLANK
;:CLEAR THE B(CD NUMBER
J:GET THE CONSTANT
JFORM THIS B8CD DIGIT
;:BR IF DONE
.. INCREASE THE BCD DIGIT BY 1

;:ADD BACK THE CONSTANT
;o CHECK IF BCD DIGIT=0

.sFALL

1(SP) ,=1(R3)
#'0,R2
2 _R2
R2.(R3)+
(RO)+
Rg,tlo

THROUGH

22STILL DOING LEADING 0°S?
;:BR IF YES
. :MSD?
;:BR IF NO
;. YES~-SET THE SIGN
;;MAKE THE B(D DIGIT ASCII
JsMAKE IT A SPACE If NOT ALREADY A DIGIT
;;PUT THIS CHARACTER IN THE OQUTPUT BUFFER
;s JUST INCREMENTING
;sCHECK THE TABLE INDEX
..G0 DO TH? NEXT DIGIT
;260 TO EXIT

:;GET THE LSD

;G0 CHANGE TO ASCII

JJWAS THE LSD THE FIRST NON-ZERO?

=-1(SP),=-2(R3)
(R3)
(SP)
+ RS
(SP)+,R3
(SP)+,R2
(SP)+ R

::BR IF NO

JYES-=SET THE SIGN FOR TYPING
J:SET THE TERMINATOR
::POP STACK INTO RS

;:POP STACK INTO R3
;:POP STACK
;:POP STACK

INTO RZ
INTO R1

rZRMNBC RMOS/3/2 FCINL TST 2
MACRO v04.00
"ONVERT BINARY TO DECIMAL AND TYPE ROUTINE

056142
056144

056150
056156
056160
056162
056164
056166
056170
056172

012600
104401

016666
012616
000002

023420
001750

000144
000612

(56172
000002

4~-APR-B1

$DTRL:

$DBLK:

2
39-1
SEQ 0225

MOV
TYPE
MOV
MOV

000004

E
11:63:33 PAGE

RTI

10000.
1000.
100.
10.
BLKW

(SP)+,RO

$DBLK

5(sP),4(sP)
(SP)+. (SP)

;sPOP STACK INTO RC
JINOW TYPE THE NUMBER
J:ADJUST THE STA(K
csRETURN TO USER

CIRMNBO RMOS/3/2 FCTNL TST 2

BINARY TO OCTAL

(ASCII)

AND TYPE

MATRO v04.00

4&-APR-B1

.SBTTL

11:43:33 PAGE 4O

BINARY TO OCTAL

(AS{]I)

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

'THIS ROUTINE

IS USED

SEQ 0226

AND TYPE
AN NN AN

TO CHANGE

;*OCTAL

(ASCI]) NUMBER AND TYPE

TYPOS

o
o

.BYTE

[T,

ARNA AR

RO NP RN NAAPANNNONROR S

16-81T BINARY NUMBER

TO A 6-DIGIT

:+$TYPOS-~~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF
o*CALL:
o
MOV
NUM,~(SP)
;JNUMBER TO BE TYPED

RYTE

;:CALL FOR TYPEQUT

;:N-1

TO 6 FOR NUMBER OF

::M=1

0RO
::1=TYPE

TO TYPE

DIGITS TO TYPE

LEADING ZEROS

;:0=SUPPRESS LEADING ZEROS

. *

DIGITS

;*$TYPON-~~-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPO(
. *=CALL:
M
MOV
NUM, - (SP)
. JNUMBER TO BE TYPED

- %

“YPON

.:CALL FOR TYPEQUT

;*STYPOC---ENTER HERE FOR
c*CALL:
o
MOV
NUM,-(SP)
J

056202
056206
056214
056220
056224
056226
056234
056242
056250
056252
056254
056256
056262
056264
056270
056274

56300
056304
056306

056310
056312
056314
056316

056320
056322
056324
056330
056332
056336
056340
056342
056344

017646
116637
112637
0627146
000406
112737
112737
112737
010346
010446
010546
113704
005404
062704
110437
113704

016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016

042703
001002
005704
001403
005204

000000
000001
056427
000002

000001
000006
000005

056427
000006
056426
056425
000012

056425

056425
056427
056424

2%:

056426

TYPO(

$TYPQOS: MOV
MOVR
MOVR
ADD
B8R
$TYPOC. MOVB
MovB
S$TYPON: MOVR
MOV
MOV
MoV
Mova
NEG
ADD
MOvB
MOvR

1%:

3%:

177770

4%:

TYPEOUT OF

MoV
(LR
ROL

B8R
ROL
ROL
ROL

MOV
ROL
DE(B
BPL
B8IC
BNE
TST
BEQ
INC

a(SP) ,-(SP)
1(SP) ,$0F ILL
(SP)+ _SCMODE+1
82, (SP)
$TYPON
#,80F1LL
#6,30M0ODE +1
#5,80CNT
R3,-(SP)
R4 ,~(SP)
R5,-(SP)
SOMODE +1,R4
R4
#6 R
R4, SOMOCE
$OFILL R4

12.SP),RS
R3
RS
3%
RS
RS
RS
RS.,R3
R3
$OMODE
7%

#177770,R3
4%
R4
5%

A 16 BIT NUMBER

;;NUMBER 70O BE
;s CALL

FOR

TYPED

TYPEOUT

. ;PICKUP THE MODE
..LOAD ZERO FILL SWITCH
; ;NUMBER OF DIGITS TO TYPE
2 :ADJUST RETURN ADDRESS

;;SET THE Z2ERO FILL SWITCH
;:SET FOR SIX(6) DIGITS
;2SET THE ITERATION COUNT
::5AVE R3

;:SAVE RS
;s SAVE RS
;.GET THE NUMBER OF DIGITS TO TYPE
2:SUBTRACT IT FCOR MAX. ALLOWED
;;SAVE ]T FOR USE
;;GET THE ZERO FILL SWIT(H
;;PICKUP THE INPUT NUMBER
. :CLEAR THE OUTPUT WORD
;;ROTATE MSB INTO '‘C**
;:G0 DO MSB
;sFORM THIS DIGIT

;:GET LSB OF THIS DIGITY
;2 TYPE THIS DIGIT?
;:BR IF NO
J.GET RID OF JUNK
:2TEST FOR O
¢ SUPPRESS THIS O?
J.BR IF YES
::DON'T SUPPRESS ANYMORE Q'S

BINARY

TO OCTAL

(ASCII)

056346
056352
056356

052703
052703

056372
056374
056376
056400
056402
056404
056406
096410
056416
056420
056422
056423
056424
056425
C56426

003347

056362
056366

110337
104401
105337

002402
005204
000744
012605
012604
012603
016666
01261¢
000002
000
000
000
000
C00000

TST 2
AND

TYPE

MACRD v04.00

000060
000040
056422
056422
056424

4-APR-B1

'1:43%:33 PAGE

#'0,R3

2(SP) ,4(SP)

;;RESTORE R3
;;SET THE STACK FOR RETURNING

6%:

000002

(S2)+ RS
(SP)+ R4
{(SP)+ R3

000004

(SP)
¢+, (SP)

8%:
$OCNT:

$OFI.L: .

$OMODE:

SEQ 0227

_RZ

R3,8%
.8%
$SOCNT
2%
6%

7%:

40-1

;cMAKE THIS DIGIT ASCI!
s .MAKE ASCI] IF NOT ALRFADY
;2SAVE FOR TYPING
::G0 TYPE THIS DIGIT
;. COUNT BY 1
;:BR IF MORE TO DO
;.BR IF DONE
;s INSURE LAST DIG! T IS N'T A BLANK
1 It
2:GO DO THE LAST DIG

5%:

[eloleleloe)

JRMNBO RMOS/372 FCINL

:;RESTORE RS
;.RESTORE R4

2 JRETURN
;s STORAGE

FOR ASCII

s TERMINATOR FOR

;.0CTAL

DIGIT

COUNTER

soZERO FILL SWITCH
;:NUMBER OF

DIGIT

TYPE

DIGITS

ROUTINE

TYPE

MLIRO

v04.00

4-APR-B

H
2
1':43%:3% PAGE 4

SEQ 0228
.SBTTL
M

TYPE
AS

ROUTINE

AR RIS
X

$*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYIE.

:*THE

ROUTINE

;*NOTE1:
J=NOTE2:

;*NOTE3:

wILL

INSERT

A NUMBER

NULL

C(HARACTERS

AFTER A L INE

FEED.

SNULL CONTAINS THE (HARACTER TO BE USED AS THE FILLFR CHARACTER,
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

$FILLC CONTAINS THE CHARACTER TO FILL AFTER,

"
swCALL:

:*1) USING A TRAP INSTRUCTION
,-0R

TYPE

LMESADR

;MESADR.
IS FIRST ADDRESS OF

TSTB
BPL
HAL T

$TPFLG
1%

;:1S THERE A TERMINAL?
::BR IF YES
;IHALT HERE IF NO TERMINAL

CMPB
BNE
BITR
BEQ
MoV
JSR
.WORD
BITR
BNE
MOVB
BNE
TST
MOV

#APTENV, SENV
62%
H#APTSPOOL
, $ENVM
62%
RO,618
PC,SATY3
0
HAPTCSUP,SENVM
608
(RO)+,~(SP)
4%
(SP)+
(SP)+,RO

RTI
CMPR
BEQ
CMPB
BNE
TST
TYPE

AHT, (SP)
8s
#CRLF , (SP)
5%
(SP)+

;;BRANCH IF NOT <CRLF>

$CRLF
CLRRB
B8R

$CHARCNT
23

;:CLEAR CHARACTER COUNT
::GET NEXT CHARACTER

DECB
BLT

1(SP)
63

DECB
BR

$CHARCNT
7%

AN ASCIZ STRING

- ®

:
I*

TYPE
ME SADR

056430
056434
056436

056440
056442
056444
056450
056456
056460
056466
056470
056474
056500
056502
056510
056512
056514
056516
056520

056522

056526
056530
056534
056536
056542
056544
056546

056550
056552
056556

056560
056564
056570
056572

—

——_—

000430
010046
017600

062716

000002
122716
001430
122716
001006
005726
104401

001217
105037
000755

001173

000002

18:
001242

000100

001243

056500
063106

000040

001243

61%:
62%:
2%:

000002
000011

608 :

4%:

000200

056760
056642
001172

056576
056602

105366
002770

000001

056610
0566146

105337
000770

056760

004737

$TYPE:

000001

004737
123726
001350
013746

056604

105737
100002
000000

5%:
6$:

001170

056642

7%:

B8R
MoV
MOV

ADD

JSR
CMPB
BNE
MoV

JSR

3s
RO,=-(SP)
@82(SP) ,RO

#2,(SP)

PC.STYPEC
$FILLC,(SP)+
2%
$NULL , - (SP)

PC.,$TYPEC

;;LEAVE
: 3SAVE RO
;:GET ADDRESS OF ASCIZ STRING

::RUNNING IN APT MODE
::NO.GO CHECK FOR APT CONSOLE
::SPOOL MESSAGE TO APT
;:NO,GO CHECK FOR CONSGLE
:;SETUP MESSAGE ADDRFSS FOR APT
::SPOOL MESSAGE TO APT
: :MESSAGE ADDRESS
;;APT CONSOLE SUPPRESSED
::YES,SKIP TYPE OUT
:;PUSH CHARACTER TO BE TYPEL ONTO STACK
::BRIF IT ISN'T THE TERMINATOR
::IF TERMINATOR POP IT OFF THE STACK
:RESTORE RO

::ADJUST RETURN P(
: :RETURN
::BRANCH IF <HT>

::POP
<CR><LF> EQUIV
::TYPE A CR AND LF

::GO TYPE THIS CHARACTER
;;IS IT TIME FOR FILLER CHARS.?
:sIF NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED
:AND

THE NULL

CHAR.

::DOES A NULL NEED TO BE TYPED?
L:BR IF NO--GO POP THE NULL OFF QF

;:GO TYPE A NULL

::DO NOT COUNT AS A COUNT
;;LOOP

STALK

JRMNBY RMUS/
3
TvRE SOUTINE

MACRO v04.00

4-APR-81

[
2
11:43:33 PAGE 41-1

SEQ 0229

JHORIZONTAL TAB PROCESSOR
056616
056622
056626
256634

056636
056640

056642
056642
056646
056650
056654
056660
056664
056666
056666
056672
056674
056700
056704
056710
056712
056712
056714
056714
056720
056722

056730
056736

056740
056744
056746
056754
056756
056760
056762

112716

004737
132737

001372
005726
000724
105777
100022

017746
042716
122716
001012
105777
100375
117716

042716

122716

001366

000040
056642
000007

8%:

056760

$TYPEC:

122312

122306
177600

000023

101%:

122266

122766
001003
105037
000406

122262

177600

000021

102%:

122766

001402

105227

020000
000207

10%:

122244

000002
000015

122236
000002

JSR

B!18B
BNE
TST
BR
7S18
BPL
MOV

BIC
(MP8
BNE

000002

8PL
mMovR
BIC
CMPB
BNE

1%:

& L (SP)
PC.STYPEC
#7 ,$CHARCNT

+
(SP)

as$TKS
108
aS$TKB, = (SP)

#177600. (SP)
#SXOFF
. (SP)

102%

. sREPLACE

TAB WITH SPA(CE

J:TYPE A SPA(E

;cBRANCH [F NOT AT
;. TAB STOP
;+POP SPACE OFF STA(K
;sGET NEXT (HARACTER
;:CHAR IN KYBD BUFFER?
;:BR IF NOT
::GET CHAR
;. STRIP EXTRANEOUS BITS
;sWAS (HAR XOFF
;<BR IF NOT

a$7KS
101$

;;WAIT FOR (HAR

#177600, (SP)

J2STRIP T

asTkB, (SP)

::GET (HAR

1018

JoWAS [T XON?
;:BR IF NOT

TST

(SP)+

JIFIX STALK

1STR
BPL
MOVB

a$TPS
108

JJWAIT UNTIL PRINTER IS RFADY

(MP8
BNE

056760
000012

MOVR

TSTB

005726
105777
100375
116677

9% :

CLRB
BR
CMPB
BEQ

INCB
$CHARCNT
: .WORD
$TYPEX: RIS

#SXON, (SP)

2(SP) ,a%TPB
#CR,2(SP)
1%

$CHARCNT
$TYPEX
ALF,27SP)
$TYPEX
(PC)+
0

:;LOAD (HAR TO BE TYPED INTO DATA REG.

;1S CHARACTER A CARRIAGE RETURN?
. ;BRANCH [F NO
;s YES==CLEAR CHARACTER COUNT
JoEXIT
;1S CHARACTER A LINE FEED?

; sBRANCH IF

YES

;s COUNT THE (HARA(TER

. s CHARACTER COUNT STORAGE

JRMNBO RMOS5/3/2 FCTNL 1ST 2

SCOPt HANDLER ROGUTNE

MACRO v04.00
.SBTTL
MR

SRRSARRASAR

ROUTINE

s*AND LOAD
:*AND LOAD

104410

122154

057432

1%:
9%

000416

057010
057014
057022
057026
057032
057034
057036
057042
057044
057044
057052
057054
057056
057062
057064
057070
057072
057076
057100
057102
057106
057112
057114
057116
057122
057124

013746
012737
005737
012637
000561
022626
012637
000521

§XTSTR:

000004
057034
177060
000004

000400

(KSWR
+SR

PC,STOP

BEQ
JMP

9%
$OVER

8BIT

022716
002411
011637
005316

000031

062716
013637
000547
005726
105737
001502

057450
001122

006316

022737
001455
013746
012727
013737
000406
012737
012716

122072

177777

060150

000004
057156
177766

000004
060150

177777

060150

057172

FOR CHANGE

[N SOfF T-SWR

;;LO0P ON PRESENT TEST?

JiNO IF SW14=0
;:JUMP OVER SCOPE ROUTINE

Q#ERRVEC,-(SP)
#58 ,3¥ERRVEC

;;SAVE THE CONTENTS OF
- -SET FOR TIMEOUT

CODE

FOR

THE

XOR

axr177060

THE ERROR VECTOR

S:TIME OUT ON XOR?

(SP)+, (SP)+

S:CLEAR THE STACK AFTER A TIME OUT

MOV

(SP)+.3#ERRVEC

B8R

BIT
BEQ
CLR

#B1T08,aSwR
23
-(5P)

MOV

*:THIS INSTRUCTION TO A 'NOP'' (NOP 240)

:-RESTORE

$SVLAD

CMP

'XOR'* TESTER CHANGE

(SP)+ ,@#ERRVEC

BEQ

20008:

J;TEST

MOV
MOV

BR
ST
ISTB
BEQ
CMP

INCREMENT

ARE:

TESTERAANAN
::1F RUNNING ON THE

ASL
ADD
MOV

001117

WILL

BEG
(MP
BLT
MOV
DEC

8$:
2% :

MOVE

001116

THIS ROUTINE

TEST
ITERATIONS
ERROR
TEST IN SWR<7:0>

#B1T14,a5WR

6%::MAMNREND OF

122102

SUBTESTS.

INTO THE DISPLAY REG.(DISPLAY<7:0>)
INTO DISPLAY<15:08>

::SCOPE-10T

TST

LOOPING OF

PROVIDED BY

SCOPe

MOV

000004

032777
001421
005046

117716
001414

000004

THE

TEST NUMBER(STSTNM)
ERROR FLAG (SERFLG)

LOOP ON
INHIBIT
LOOP ON
LOOP ON

HRRAASTART

057006

057132
057134
057140
057146
057154
057156
057164

$SCOPE:

057532
040000

SEQ 0230

ARl 222222222222
XX

SWITCH OPTIONS

i
004737
032777
001402
000137

CONTROLS

THE
THE

s*SW14=1
;*SW11=1
: *SW09-1
'gzgf 1

056764
.
05¢_
056766
056772
057000
57002
057006

11:63:33 PAGE 42

SCOPE HANDLER ROUTINE

:*THIS

s*THE

&-~APR-B1

CODE

FOR THE

XOR

@SWR, (SP)

8s
#31,(SP)
8$

(SP) ,$TSTNM
(SP)
(SP)
#$SWOBTBL,
(SP)
a(SP)+,$LPADR
$OVER
(SP) +
S$ERFLG

THE ERROR VECTOR

2:GO TO THE NEXT TEST
:.RESTORE

THE ERROR VECTOR

1:LOOP ON THE PRESENT TEST
TESTERAAAAN

::LOOP ON SPEC.
;2BR IF NO
S:CLEAR A TEMP.

TEST?

LOCATION
L:PICKUP THE DESIRED TEST NUMBER

*:BRANCH IF BAD TEST NUMBER IN SWR
t:CHECK THE NUMBER [N THE SWR
“:BRANCH IF TEST NUMBER IS QUTM OF RANGE
SIUPDATE THE TEST NUMBER
*:BACKUP BY ONE
*:SCALE THE TEST NUMBER AS AN INDEX
- -FORM THE ADDRESS OF TEST POINTER
:-SET LOOP ADDRESS TO DESIRED TEST

3s
#-1,CPSAVE

*:GO LOOP ON THE TEST
“:CLEAN THE BAD TEST NUMBER OFF OF THE STACK
::HAS AN ERROR OCCURRED?
;:BR IF NO
S SEE IF TIMEOUT WAS PREVZOUSLY RECORDED

ERRVEC, - (SP)

1:SAVE

2003$

MOV
ggv

#20008 .ERRVEC
;gsng,CPSAVE

MOV
MOV

#-1,CPSAVE
#20018, (SP)

*:KICK AROUND ROUTINE IF SO
CONTENTS OF

ERROR VECTOR

- -SETUP 'TRAP' RETURN ADDRESS
*:MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST
;:SET CPU ERROR REGISTER TIMEOUT
* SETUP RETURN ADDRESS

INDICATOR

057170
057172

000002
012637

057176
057204
057206

022737
001430
032737
001424
042737
013746
017646
012737
011677
042777

057214
057216
057226
057230
057234
057242
057246

057254

057256
057262
057266
057266
057274

57276
057304
057306
057314
057316

057322
057326
057330
057336
057340
057344
057346
057352
057360
057362
057370
057376
057402
057410
057414
057420
057424
057432
057440
057444
057446
057450
057450
057452
057454
057456

057460
057462
057464
057466

057470

057472

106177

2001$:

(00004
1772777

060150

000001

060150

177766

000001
001154
000000
000176

001154

001000

121700

121706

012676
012637

000000
001154

123737

001131

001117

032777

0C1000

121650

013737
000446

001124

001122

101015

001404

105037

005037
000415
032777
001011
005737
001406
005237
023737
002024
012737
013737
105237
113737
011637
011637
005037
112737
013777
013716
000002
000005

001117
001206
004000

121616

000001
057446
001116
001116
001122
001124
001210
000001
001116
001122

;sRESTORE CONTENTS OF ERROR VE(CTOR

(MP

#-1,CPSAVE

BIT
BEQ

#B1T00, CPSAVE
20038

;.SEE ]F CPSAVE HAS CPU ERR REG TIMEOUT
;:BRANCH 1F SO
;.SEE ]F THE POWER MONITOR BIT 1S ON

MOV
MOV

SWR,
- (SP)
(5P) ,=(SP)

BEQ

MOV
BIC

EMT

7%:

3$:

MOY
MOV

(MPB
BH!

001120
001206
001226

001131

121516

2003s

#81700,177766
#176, SWR

(SP)
. QSWR
#81709,aSwR

177

(SP)+,a(SP)
(SP)
+. SWR

$ERMAX,SERFLG
3$

BIT
BEQ

#81T09,aSWR
43

BR
CLRB

$OVER
S$ERFLG

MOV
CLR
BR
BIT
BNE
ST

001120

SEQ 023"

(SP)+ ,ERRVEC

MOV

2003$.

MOV

81¢C

4$:

001230
001120
001206

2002%:

RT]

11:43:33 PAGE 42-1

BEQ
INC
cMP
BGE
1%:
MOV
MOV
$SVLAD: INCB
MOVB
MOV
MOV
CLR
MOVB
$OVER:
MOV
MOV
RT]

$MXCNT: 5.
$SWOBTAL:
$TN-1
LREPT
LWORD
CWORD

JWORD
CWORD
JWORD
CWORD
CWORD
LWORD
JWORD
JWORD

SLPERR, $LPADR

$TIMES
18
#BIT11,aSWR
18
$PASS

18
$ICNT
STIMES,SICNT
$OVER
#1,81CNT
SMXCNT, STIMES
STSTAM
STSTAM,STESTN
(SP) ,SLPADR
(SP)
. $LPERR
$ESCAPE
#1.SERMAX
$TSTNM,aDISPLAY
$LPADR, (SP)

;:BRANCH TO CONTINUE ROUTINE

.. CLEAR THE BIT FOUND TO BE SET

;;DON'T ALLOW LOOP ON ERROR ON THIS ERROR
;2CALL SPECJAL POWER FAIL BIT ERROR CALL
;cRESTORE SWR TO ORIGINAL VALUE

;cRESTORE

SWR ADDRESS

;2sMAX. ERRORS FOR THIS TEST OCCURRED?
JsBR IF NO
;2LO0P ON ERROR?
::BR IF

2:;SET LOOP ADDRESS TO LAST SCOPE
;:ZERQ THE ERROR FLAG
;;CLEAR THE NUMBER OF [TERATICNS TO MAKE
;;ESCAPE TO THE NEXT TEST
;:INHIBIT ITERATIONS?
:BR IF YES
..IF FIRST PASS OF PROGRAM
;
INHIBIT ITERATIONS
..INCREHENT ITERATION COUNT
;CHECK THE NUMBER OF

ITERATIONS MADE

::BR IF MORE |TERATION REQUIRED
J;REINITIALIZE THE ITERATION COUNTER
;cSET NUMBER OF ITERATIONS TO DO
2 COUNT TEST NUMBERS
;.SET TEST NUMBER IN APT MAILBOX
;;SAVE SCOPE LOOP ADDRESS
;. SAVE ERROR LOOP ADDRESS
;;CLEAR THE ESCAPE FROM ERROR ADDRESS

JoONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER

:;FUDGE RETURN ADDRESS
;. FIXES PS

;:MAX. NUMBER OF ]TERATiONS
TST1+2
TST2+)
TST3+7
TST&+2
TST5+2
TST6+2
TST7+2
TST10+2
TST11+2
TST12+2

INDICATION

(LEAR

::SAVE SWR ADDRESS
;cSAVE SWR VALUE
;.GET SOF TWARE SWR ADDRESS
;oGET CURRENT SWR VALUE

;s STARTING ADDRESS OF
> ;STARTING ADDRESS OF
; :STARTING ADDRESS OF
.+ STARTING ADDRESS OF
::STARTING ADDRESS OF
::STARTING ADDRESS OF
SS OF
::STARTING ADDRE
::STARTING ADDRESS OF
: :STARTING ADDRESS OF
::STARTING ADDRESS Of

TEST

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

= NN
SN NN

HANDLER ROUT iNE

4-APR-B1

SCOPE

MA(RO v04.00

n—O

“JRMNBO RM05/3/2 FCTNL TST 2

(ZRMNBO RM05/3/2 FCINL
HANDLER ROUT INE

000

AR
2 V], V}

SCOPE

057474
057476
057500
057502
057504
057506
057510
057512
057514
057516
057520
057522
057524
057526
057530

TST 2

MACRO v04.00

4-APR-81

017472
020304

-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD

021126
021670
022432

023174
023500
024004
024346
024670
025206
026120
026742
027524
030674

057544
057550
057554
057556
10 057556

012746
012746
000002

0C2140

STOP:

N57544

64%:
JRAISE

01274¢
012746
000002
000207

42-2

SEQ 023«

:DROP PRIORITY

057532
57532
057536
057542
057544

11:43:33 PAGE

000240
057556

65%:

MOV
MOV
RT1

PRIORITY

TST13+2

::STARTING ADDRESS OF

TST14+2
TST15+2

;sSTARTING ADDRESS OF
;s STARTING ADDRESS OF
2 STARTING ADDRESS Of
;s STARTING ADDRESS OF
::STARTING ADDRESS OF
; JSTARTING ADDRESS OF
;s STARTING ADDRESS OF
;s STARTING ADDRESS OF
:: STARTING ADDRESS OF
: :STARTING ADDRESS OF
;s STARTING ADDRESS OF
;s STARTING ADDRESS OF
;s STARTING ADDRESS OF
;s STARTING ADDRESS OF

TST16+2
TST17+2
TST20+2
TST21+2
1ST22+¢2
TST23+2
1S724+2
TST25¢2
T1ST26+2
TST27+2
TST30+2

TST3142

TO ALLOW CONSOLE

INTERRUPT

#PR3,~(SP)
#64%,-(SP)

;;PUT NEW PS ON STA(K
STA(K
JsPUT NEW PC ON
;;POP NEW PC AND PS

INHIBIT

MOV
MOV
RT!

#PRS ,-(SP)

RTS

#658,~(SP)

CONSOLE

INTERRUPT

. :PUT NEW PS ON STACK
;sPUT NEW PC
;:POP NEW PC

cRETURN

ON
STACK
AND PS

TEST

TEST
TEST

TEST
TEST
TEST
TEST
TEST

TEST

TEST
TEST
TEST
TEST
TEST
TEST

CIRMNBO RMOS/3/2 FCINL TST 2
ERROR HANDLER ROUT INE

4~APR-81

.SBTTL

17:43:33 PAGE 43

ERROR HANDLER ROUTINE

CIRARNRNARRAIRANARNAN

AR AR

J*THIS ROUTINE

WILL

TR OARN RN AN NN R RN EN AN A NN R NN E OO ROOORNOOTRY

INCREMENT

THE

ERROR FLAG AND

J*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF
;*AND GO TO ERRTYP ON ERROR

;*THE

SWITCH OPTIONS

;*SW15=1
;*SW13=1

s =SW10=1

057742
057750

057752
057760
057762
057770
057776
060004
060006
060012
060012
060020
060022

104401

005237
011637

162737
117737
032777
001060
122737
001454
105737
001047
022737
001445
013746
012737

013737

000406
012757
012716
000002
012627

022737
001420
032737
001414
042737
113737
112737
000402

001117

7%:

001116
002000
001212
001126
001132
000002
121272
001000

000177

$ERROR:

—

001775
013777
032777
001402

060152

105037
106410
105237

057560
057564
057566
057572
057574
057602
057610
057612
057616
057622
057626
057634
057642
057650
057652
057660
057662
057666
057670
057676
057700
057704
057712
057720
057722
057730
057734
057736

1%:

001132
001130

000004
057722

177766

177777

060150

057736
000004
177777

060150

000001

060150

000001

177766
060152
001130

090177

105037

060152

032777
001004
004737

020000

060154

BE_.L ON ERROR

LOOP ON ERROR

; ;ERROR=EMT AND N-ERROR [TEM NUMBER

IBRSAVE

;:CLEAR THE ITEM BYTE SAVE LOCATION
JsTEST FOR CHANGE IN SOF T=-SWR
;:SET THE ERROR FLAG

MOV

S$TSTNM,aDISPLAY

;:DISPLAY TEST NUMBER AND ERROR fLAG

BEQ

8IT
BEQ

#BIT10,aSWR
1%

INC

SERTTL

SuB
MOVB

#2,$ERRPC
I$ERRPC,$ITEMB

TYPE

MOV

;sDON'T LET THE FLAG GO TO ZERO

;;BELL ON ERROR?
JINO - SKIP

LIBELL

. sRING BELL

(SP) ,$ERRP(C

;:GET ADDRESS OF ERROR INSTRUCTION

#81T09,3aSWR
10048

(MP8

#177,.81TEMB

TSTB

IRSAVE

1004$

;sCOUNT

THE NUMBER OF

;.STRIP AND SAVE

ERRORS

THE ERROR ]TEM (ODE

;;SEE IF LOOP ON ERROR IS SET

; sBRANCH AROUND ROUTINE IF SO

::SEE IF THIS IS THE POWER FAIL CALL
; ;BRANCH AROUND ROUTINE IF
;;SEE

THIS

THE

IT IS

2ND ERROR CALL

IN THIS ROUTINE

10038
#-1,CPSAVE
10048

;;BRANCH IF SO
2:SEE IF CPSAVE HAS CPU ERR REG TIMEQUT
;;BRANCH IfF SO

MOV
ggv

01QOOS.ERRVEC
}gsqgé,CPSAVE

;sSETUP *TRAP® RETURN ADDRESS
;sMOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

1000%:

MOV
g?y

#-1,CPSAVE
#10018, (SP)

;:SET (PU ERROR REGISTER TIMEOUT INDICATOR
;sSETUP RETURN ADDRESS

10018:

MOV

(SP)+ ERRVEC

+;RESTORE CONTENTS OF ERROR VECTOR

(TMmP

#-1,CPSAVE

2:SEE

B8EQ

1004%

; JBRANCH 1F OK

MOV

1002%:

}882%:
121134

ARE:

BNE
CMP
BEQ

060150
000004
060150

ROUTINE

THE ERROR (ALt

$ERFLG

BEQ

060152
177777

CLRB

BNE

001130

THIS

ERROR (OUNT,

CKSWR
INCB

BI7

121304

PROVIDED BY

THE

HALT ON ERROR
INHIBIT ERROR TYPEQUTS

;*SW09=1
;*CALL
o
ERROR

norno

MACRO v04.00

BEQ
BIT

ERRVEC,-(SP)

10043
#1100, CPSAVE

:.SAVE CONTENTS OfF ERROR VECTOR

CPSAVE HAS CPU ERR REG TIMEQUT

;;BRANCH IF SO
2;SEE IF POWER MONITOR BIT IS SET

BIC
MOVB
MOVB
BR

#]1T100,177766
$SITEMB, IBSAVE
#77,81TEMB
10048

CLRB

IBSAVE

::CLEAR [BSAVE

BIT
BNE

#B1T13,3SWR
20%

::SKIP TYPEQUT IF SET
::SKIP TYPEOUTS

JSR

PC,ERRTYP

INDICATION

IN CPU ERR REG

;;CLEAR THE BIT FOUND SET
:JMAXE IBSAVE NON-ZERO FOR DUAL ERROR CALL
;:SET SITEMB TO SPECIAL POWER FAIL POINTER
; :BRANCH OVER IBSAVE CLEARING
SO 2ND TIME

;:G0 TO USER ERROR ROUTINE

THROUGH EXITS

ZRMNBO RMO5/3/2 FCTNL

FRROR

HANDLER

060026
060032
06003¢
060040
060042
060050
060054
060055
060056
060060
060064
060066
060072
060074
060076
060100
060100
60106
060110
060114
060120
060122
060126
060126
060134
060136
060140
060140
060144
060146
060150
060152

ST 2

ROUTINE

MACRO v04.00

104401

001217

122737

000001

001242

113737

001130
063116

060054

001007
004737
000
000
000777
105737

001005
005777
100002

22%:
2%:

060152
121062

001402
013716

005737
001402
013716

001000

121046

4%:

001210

032122

105737
001210
000002
000000
000000

060152

(MPR
BNE

SQPTENV.$ENV

JSR
BYTE
BYTE
BR

PC,$ATYS

1STB

BNE
TST

000042

5%:

6%:

$ITEMB, 218

0
0
22%
IBSAVE
38
aSWwR

SEQ 0234

JcRUNNING

IN APT MODE
,

s +NO,SK]P APT ERROR REPORT
2SET ITEM NUMBER AS ERROR NUMBER
. .REPORT FATAL ERROR TO APT
;sAPT

ERROR LOOP

;.,SEE IF IBSAVE IS LOADED
;;BRANCH IF NOT - NO HALT ON PWR MON BIT ERROR
;oHALT ON ERROR
J:SKIP IF CONTINUE

;sHALT ON ERROR!

;o TEST FOR CHANGE [N SOFT-SWR

(KSWR

BIT

zgxro9,aswn

;:LOOP ON ERROR SWITCH SET?

MoV
TST

SLPERR, (SP)
$ESCAPE

MOV

5%
$ESCAPE, (SP)

;:FUDGE
;s CHECK
;:BR IF
;cFUDGE

cMp
BNE

H#SEN,DAD
Q#42
6%

;ACT=11 AUTO=-ACCEPT?
;:BRANCH IF NO
22 YES

IBSAVE
’$

J:SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
; ;BRANCH BACK TO CALL ORIGINAL ERROR

0
0

::LOCATION TO SAVE CPU ERROR REG CONTENTS
;;LOCATION TO SAVE ITEM BYTE

BEQ

001124
001210

022737
001001
000000

.SCRLF

BPL
HALT

3%:

N 2
11:43:33 PaGE 43-1

TYPE

MOovB

21s:

000000
104410

032777

208

&4-APR-81

BEQ

HALT

TSTR
BNE
RTI
CPSAVE: .WORD
: . WORD
IBSAVE

J:BR IF

RETURN FOR LOOPING
FOR AN ESCAPE ADDRESS
NONE
RETURN ADDRESS FOR ESCAPE

;sRETURN

“IRMNBO KMOS5/3/2 FLIML

ERROR

TYPEOLT ROUTINE

ST ¢

MACRO v04.00

4-APR-81

8
3
"1:43:33 PAGE 44
SEQ 0235

unny

.SBTTL
;*THE

ERROR
ERROR

TYPEOUT ROUTINE

TYPEOQUT

ROUTINE

ASSEMBLES AND PRINTS

=20V NN

PONIND
b =2 2 ed b —d sy
—a

WA OO g

;*REGARDING THE DETECTION OF AN ERROR AS FOLLOWS:

LUNIT NUMBER,

.ERROR MESSAGE

;*AFTER

THE

DRIVE

TYPE,

TEST NUMBER,

INFORMAT]ON

ERROR NUMBER AND

; *PROGRAM (OUNTER ARE PRINTED ON THE FIRST LINE;
IS ASSEMBLED,

FORMATTED AND PRINTED ON

;*ONE OR MORE SUCCEEDING LINES;
:r
.PAIRED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED

060154
060156
060164
060166

1046414

032777
001402
000137

020C00

*20770

ERRTYP:

ERROR MESSAGE.

SAVREG

BIT

BEQ
JMP

061014

#5W13,3SWR
1%
27%

;TYPE UNIT NUMBER,

060172
060176
060202

104401
104401

013746

060206
060210
060211

104403

060212
060216

013700

060222

060226
060234
060240

0C1217
061030
001234

TYPE

MOV

TYPOS

003
000

016000
042700
012737
022700
001414

BYTE
.BYTE

;TYPE

001276
000026

'DRIVE

MOV

064373
000024

060300

MOV
BIC
MoV
mw
8EQ

177740

DRIVE TYPE,

:PROGRAM COUNTER
1%:
TYPE
LSCRLF

LERTY0O0

SUNIT,-(SP)

:NO!.
SYES.!

TYPEQUTS??

TEST NUMBER, ERROR NUMBER, AND
;TYPE 'DRvA"’
;2SAVE

SUNIT FOR

TYPEOQUT

;:TYPE DRIVE NUMBER
;.60

TYPE--OCTAL ASCII

;:TYPE 3 DIGIT(S)

0
TYPE'

cINHIBIT

;s SUPPRESS LEADING ZEROS
RMOS5,

RMO3 OR RMO2 FOR UNIT

$BASE ,RO

UNDER

TEST

;GET RM BASE ADDRESS

RMDT (RQ) ,RO
#177740,R0
#SRMO3, 3%
#24 RO
23

;GET DRIVE TYPE REGISTER
;SAVE DRIVE TYPE BITS AND
sGET ASCII DRIVE TYPE
;1S DEVICE AN RMO3 ?
SYES !

060242
060250
060254

012737
022700
001405

064366
000025

060300

MOV

#SRMO?2, 3%

;SAVE ASCII DRIVE TYPE

060256
060264
060270
060272
060276
060300

012737
022700
001004

064400
000027

060300

MOV

#SRM0S, 3%

;SAVE ASCII DRIVE TYPE

104401
104401
000000

061065

2%:

BNE
TYPE

48
LERTYOS

HUON
JTYPE ' = "'

3s:

.WORD

;DRIVE TYPE MESSAGE

060302
060306
060314
060320

005037
013737
J13746

061020
001226
061035
V61020

060324
060326
060327
060330
060334

'04403
003
000
005037
113737

104401

061020

<!
BEQ

cMP

TYPE
4%:

TYPE

BYTE
BYTE

061022

#27.R0O

;IS DEVICE AN RMOZ2 ?
JYES !!

;1S DEVICE AN RMOS ?

;TYPE

DRIVE

TYPE

IS STORED HERE

TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER
CLR
TSTNMB
;LOAD TEST NUMBER FOR
Mov
STESTN, TSTNMB
TYPE
LERTYO1
;TYPE "'TSTA"
MOV
TSTNMB,~(SP)
;JSAVE TSTNMB FOR TYPEOUT
TYPOS

061022
001130

#25,R0
s

(LR
MOVB

;. TYPE TEST NUMBER

3
0

ERRNMB
$ITEMB,ERRNMB

;.G0 TYPE--OCTAL ASCII

;:TYPE 3 DIGIT(S)
;s SUPPRESS LEADING ZEROS
;LOAD ERROR NUMBER FOR
[ TYPEOQUT

(ZRMNBO RMOS/3/2 FCTINL

ERROR

TYPEOUT ROUTINE

S0 060342
S1 0603446
52 060350

001406
1046401

013746

060354
060356
060357
€3 060360

104403
003
000
104401

54 060364

013746

060370
060372
65 060373

104403
006
001

TST 2

61
62
63
64

C60406
060412
060416
060622

104401
105037
105037
013700

0C1217
061026
061027
061022

66 260432
67 60434
68 060440
69 060442

€01003
012700
000405
006300

71 060446
72 060450
;2 0606454

006300
062700
011001

;g 060456

001507

70 060444

78 060460
79 060462
80 060464

81
82
83
84
85
86
87
88
89

060470
060474
C60476
060500
060504
060506
060512
060514
060520

90 060522
91 060526

005037
112203
001454
122703
001003
105037
000770
122703
001765

060632
061024

:BRANCH IF NOT
:MOVE POWER FAIL ERROR CALL TABLE

8%:

8s
#PFECH,RO
9%
RO
RO

RO
#$ERRTB-8.
.R0
(RO) ,R1

:TABLE

9%:

ASL
ADD
MOV

BEQ

198

;$;Bpgx~rs TO ERROR MESSAGE
;TABL
JBRANCH IF NO ERROR MESSAGE

11%:

061027
000012

97 060552
98 060556

122703
001002

9% 060546

105237

061027
000040

PROGRAM COUNTER

;G0 TYPE=-=OCTAL ASCI]
;:TYPE 6 DIGIT(S)
;:TYPE LEADING ZEROS

BNE
MOV
BR
ASL

000015

000007

:;SAVE SERRPC FOR TYPEOUT

;:;TYPE

YES-TYPE CRLF
;CLEAR BOT FLAG
;CLEAR CHARACTER COUNTER
;RO POINTS TO FIRST OF

10%:

061027

6
1

ERROR NUMBER

;.60 TYPE--OCTAL ASCII
J:TYPE 3 DIGIT(S)
;. SUPPRESS LEADING ZEROS
:TYPE 'PC="’

.SCRLF
BOTFLG
CHRCNT
ERRNMB ,RO

:TYPF

132737
001372
000407

3
0
LERTYQ3
$ERRPC ,~(SP)

;;SAVE ERRNMB FOR TYPEOUT

::TYPE

TYPE
CLRB
CLRR
MoV

(MPS

001572

105237

ERRNMB, - (SP)

;SKIP IF NO ERROR CALLED
:TYPE "ERRAN"'

;BR IF YES
JNO--EXIT

061072

93 060534
94 060542
95 060544

5%
JERTY02

7%
27%

000177

000011

BNE
JMP

7%:

006300

012102
001505
(10237

MOV

11.43-33 PAGE 44-1

;GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS O
6%:
TST
ERRNMB
;WAS AN ERROR CALLED?

061022

122703
001007

92 060530

5%:

TYPOS
BYTE
.BYTE
TYPE
TYPOS
.BYTE
.BYTE

061014

122700

MOV

061054
001132

001002
000137

65 060426

4-APR-B1

BEQ
TYPE

(61045
061022

56
57 060374
58 060400
23 060402

005737

MACRO v04.00

12%:

061027

13¢:

148

ASL

THE

#177.R0

ERROR MESSAGF

MOV
BEQ
MOV

CLR
MOVR

BEQ
CMPR
BNE
CLRR
8R
CMPB
8EQ
(MPB

(R1)+,R2
19%
R2,18%

IN ERROR

:R2=ADDRESS OF MESSAGE STRING
JBRANCH IF END OF MESSAGE
;LOAD ADDRESS OF STRING

:fLEAR BOT ADDRESS
;END OF STRING??
JYES!!
s CARRIAGE RETURN??
JNO!!
JYES~-CLEAR CHAR COUNT
:GET NEXT CHARACTER
JLINE FEED??
JYES=GET NEXT CHARAC(CTER

CHRCNTY

;ADJUST CHARACTER COUNT

#HT ,R3
14%

BITR
BNE
BR

#7,CHRCNT
138
15%

(MPR
BNE

”' ,R3
158

INCB

;FOUR ENTRIES

BOTADR
(R2)+ ,R3
17%
#(R,R3
12%
CHRCNT
118
MLF ,R3
11¢

BNE

INCB

;SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL

CHRCNT

JHOR]ZONTAL
JNO!

TAR??

; INCREMENT CHARACTER COUN~
;SPACE??
;NO!!

TO RO

- JRMNBC RM0S/3/2 FCINL

ERROR

TYPEOQUT

99 060560

100 060564
101 060572
102 060574
103 060600

Q0O

NS WOV ~
2OV

060616
060620
060622
060630
060632
060634
060640
060642
060646
060652
060656
060662
060666
060672
060674

ROUTINE

061024
000100

013704
001007

061024

122737
103340

104401
105037

013702
000726

177777

105737

061026

104401
105037
105037

001217
061026
061027
061024
060632

0017C7

013702
010237

060676
060702
060704

112742
105722

000040

016001
001444

000002

104401

D00 ~N

d —ad

FHR W

D e

)

060726
060730
060732
260736
060740
060742
060744
060746
140 60750
060752
060754
060756
060760
060762
060764
060766
060770
060772
060774
060776
061000
061004
061006
061012
e

15%:

007000
106401

005702
001767
012204
012305
105725

001217
000004
000006
060730

001217

001403
013446
1046405
000405

013446

TYPE

061026

6%:
17%:
18%:

11:43:33 PAGE

44-2

21%:

000402
013446

248

104406

25%:
061062

001217

.SCRLF

;GET ADDRESS OF
;TYPE

1STB

BOTFLG

TYPE

.SCRLF

. WORD

SPACE
LAST

SPACE

SPACE DETECTED

CRLF

;CLEAR CHARACTER (OUNT
JSET UP R2 FOR TESTING
JREPLACE SPA(CE
;SET BOT FLAG
;TYPE ERROR MESSAGE

STRING

;STRING ADDRESS GOES HERF
JWAS STRING

TRUNCATED??

108

;NO!!

BOTFLG
CHRCNT
BOTADR,R2
R2,18%
&' ~-(R2)
(R2)+
11s

;CLEAR BOT FLAG
;CLEAR CHARA(CTER COUNT
JSETUP R2 FOR TESTING
;SETUP 188 FOR TYPING
JRESTORE SPACE
JRESTORE R?2
;TYPE REST OF STRING

ERROR HEADER AND

s YES~TYPE

CRLF

ERROR DATA

MOV

2(R0O) ,R1

:R1 POINTS TO ERROR HEADER TABLE

TYPE

.SCRLF

; (ASSUME NO DATA)

BEQ

278

MOV
MOV

4(R0O) ,R?
6(R0) ,R3

BEQ
TYPE

27%

.WORD

MOV

(R1)+,21%

TYPE
TST

.SCRLF
R2

B8MI
BEOQ

243
23%

BEQ
MOV
MoV
1SR

20%
(R2)+ R4
(R3)+,R5
(R5)+

MOV
TYPDS

a(R&)+,-(SP)

MoV

a(R4)+,-(SP)

BR
MOV

25%
@(R4)+,-(SP)

BEQ

26%

22%

20%

B8R

TYPO(

TYPBN
TST

TYPE

26%:

sBRANCH [F

=(4)
#-1,BOTFLG

MOVl
1STB
BR

20%:

16%

BOTADR,R4

CLRB
MovR
TYPE

MOV

19%:

. SAVE ADDRESS OF
JEND OF LINE??
sNO..

CHRCNT
}?:.R?

CLRB
CLRB
MOV

;TYPE

R2,BOTADR
#64, , CHRONT
118

CLRB
ggv

8EQ

23%:

1046402

MOv
(MPR
BHIS
MOV

22%:

100407

005714
001403
104401
000760
104401
000742

&-~APR-81

BNE

000677

016002
016003
012137
001433

WAN
N

061027

001217
061027
060632

105vsé
1127%7
1046401

000000

MACRO v04.00

SEQ 0237

010237

060710
060714
060720
060724

—d

W
2C OO NN

b ed

D e

N NANIWWNNONRU PO NI PNONUPOPNIPUND —

0 3

D e

)

s s et e

B
d

D —d e Y

104 060602
105 060606
106 060612

TST

TYPE

JBRANCH IF NO HEADER

;R2 POINTS TO DATA ADDRESS TABLE
;R3 POINTS TO FORMAT TABLE
;PUT HEADER ADDRESS FOR TYPE

;BRANCH [F END OF HEADERS
; (ASSUME END OF DATA)
'
:HEADER ADDRESS GOES HERE
;DATA WITH HEADER??

;NO!!
;R4 POINTS TO DATA ADDRESS
JR5 POINTS TO FORMAT
sWHAT KIND OF DATA??

;BINARY
cOCTAL

;DECIMAL

25%

(R4)

sMORE

LERTYO4

JYES-TYPE

2 SPACES

;TYPE

BLANK

,SCRLF

JNO.!

DATA??

JAND C(ONT INUE
ONE

LINE

JBEFORE NEXT HEADER

JRMNBO RMOS/3/72 FCTINL

FRROR

TYPEQUT

ROUT INE

TST 2

MACRO v04 00

104475

000207

27%:

061020
061022
061024
061026
061027

0000C0
000000
000000
000
C00

061030
061035
061045
061054
061062
061065

054
054
054
040
040

122
0490
040
040
040
055

061072
061102
061106

061102
06106

061170
000000

117

127

061170
061174

061174
103

000C20
*20

125

061206
061210
06114
061216

061210
060150
061216
000

unbwnna—uqug;
~NO

b
D
D o
—

NN NNNYNNNYR

nd e caed —ud

158

104

120

3
€
17:43:33 PAGE &4=%
SEQ 0238

156 061014
061016

157

4-APR-81

RTS

ERRNMAB:
BOTADR:
BOTFLG:
CHRCNT

.WORD
.WORD
.WORD
BYTE
BYTE

0
0
0
0

ERTYOQC:
ERTYO1:
ERTYQ2:

LASCIZ
LASCI2
.
12

ERTYD4:
ERTYOS:
.EVEN

aDrvaa
a, TEST#]a
8., ERR#g
8, P(=a
a
a
da-a

TSTNMB
:

000000
000

126
124
105

120

000
040
061206

RESREG

ERTY(03:

PFE(CH:
PFECH":

PFECHZ:
PFECHS:
PFECHS:

:TEST NUMBER
;ERROR NUMBER
JBEGINNING OF TEXT ADDRESS
:BOT FLAG
. CHARACTER COUNT

PFECHY ,PFECHZ ,PFECH3,PFECH4

.+46,0
LASCIZ
.EVEN
.+6,0
LASCIZ
.EVEN
.2
.WORD
.2
BYTE

?POWER MONITOR BIT
?CPUERREG?

(PSAVE
0

0.0

;WORDS DEF INING TABLES BELOW

IN (PU ERROR REGISTER FOUND SET?

"JRMNB) RM05/3/2 FCTINL
YTy INPUT ROUTINE

MACRDO v04.00

4~-APR-B1

F
11:43:33 PAGE

3
45

SEQ 0239
LSBTIL

TTY INPUT ROUTINE

';..'..'...........Q.'t"".'t....."'t.tfi..Q'.'t't.'.‘.tl'.t'"'

061220
061222
061224
061226

.ENABL
LSB
$TK(NT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRI: .BLKB

000000
000C00
000000

061227

$TKQEND=,

0
0
0
1

INITIALIZE

;:TTY

ROUTINE

s*THIS ROUTINE WILL
J*SETUP THE

SeCALL:
‘v
»

005037
012737
013737
012737
012737
005777
012777
000207

JTEMS

;o INPUT POINTER
;:0UTPUT
POINTER
KEYBOARD

IN QUEUE

QUEUE

.EVEN

;*TK

$61230
061234
061242
061250
061256
061264
061270
061276

JJNUMBER OF

061220
061226
061222
061300
00200

061222
061224
000060
00006¢

000100

117662

117672

$TKINT:

INITIALIZE

THE TTY KEYBOARD INPUT QUFUE

INTERRUPT VECTOR AND

TURN ON THE KEYBOARD

[NTERRUPT

JSR
RE TURN

PC,$TKINT

(LR

;:CLEAR COUNT OF ITEMS [N QUEUE
THE STARTING ADDRESS OF THE
$TKQIN,$TKQOUT
;:QUEUE INTO THE INPUT & OUTPUT POINTERS.
#$TKSRV,a#TKVEC .. INITIALIZE THE KEYBOARD VECTOR
#200,3#TKVE(C+?
;2 BR
LEVEL 4
23 TkKB
.. CLEAR DONE FLAG
#100,387KS
s ;ENABLE TTY KEYBOARD INTERRUPT
P(
JoRETURN TG CALLER

MOV

MoV

MOV
MOV
TST
MOV
RTS

$TKCNT

#STKQSRT,STKQIN ;;MOVE

;*TK SERVICE ROUTINE
s*THIS ROUTINE WILL SERVICE

THE

TTY KEYBOARD

[NTERRUPT

;*BY READING THE (HARACTER FROM THE INPUT BUFFER AND PUTTING

;vIT IN THE QUEUE.

;*IF

THE

CHARACTER

IS A ''CONTROL=-C'' (*C)

STKINT IS CALLED AND

;*UPON RETURN EXIT IS MADE TO THL ‘‘CONTROL~C'' RESTART ADDRESS (SHUT?2)

061300
061304
061310
061314
061316
061320
061322
061322
061326
061330
061334
061340
061342
061346
061352
061354

117746
042716
021627
061002
005726
00000¢

117656
177600
000021

021627
001007
1044C1
00473/
005726
000137
021627

000003

001004
022737
001500

0227%7
001504
104401

$TKSRY: MOVB
BI(
TMMP
B8NE
TST

bl X

000176

001154

000001

061220

601212

TYPE

062470
000007

(SP) ,#$X0ON

308

(SP)+

RT]

BNE

062426
061230

a$TkB,~(SP)
¥(177,(5P)

(SP)
. 23
1%

JSONTLC

JSR
TST

PC,$TKINT

RNE
(TMMP
BEQ

mMP
¢

(mpP
BNE

TYPE

(SP)+

SHUTZ

(SP) ,#7

#SWREG, SWR

#1,3TKCNT

3
LJIBELL

J:PICKUP THE (HARACTER
;2STRIP THE JUNK

;1S 1T A RANDOM XON?
s:BRANCH IF NO
. CLEAN RANDOM XON OFF
:;RETURN
;1S IT A CONTROL C?
;;BRANCH IF NO
.. TYPE

A CONTROL-C

;. INIT THE KEYRUARD

(~()

;oCLEAN UP STA(K
;;CONTROL C RESTART
;1S IT A CONTROL G
;JBRANCH IF NO
;oIS SOFT=-SWR SELECTED?
G0 TO SWR CHANGE

2:1S THE QUEUE FULL?
2 :BRANCH IF NO
J:RING THE TTv BELL

STAC(K

“JRMNBO RMOS/3/72 FTINL
Ty (NPUT ROUTINE

061400

061402

061604
061410

ST 2

021627
001021

1ST

000023

005077

117542

061420
061424
061426

105777
10037°
117746

117534

061432

005726

042716

0616436
061462

022627
001366

061452
061454

000002
005237

061464

002405

061472
061474

003002
042716

061444

061460

061466

061500
061504
061510
061516
061520
0615¢c6

4-APR-8B1

005726

000451

061412

061416

MALIRD v04.00

012777

021627

021627
112677
005237
023727
001003
(012737
000002

3%:

31%:

117530

177600

000021

000100

061220

32%:

000140
000175

177516
061222
061222

4%:
061227

061226

061222

5%:

(SP) 423
32%

;o1S IT A CONTROL=-S?
s sBRANCH IF NO

(LR

a$TKS

TSTR
BPL
MOVE

?$TKS
218
a$TkB,~(SP)

T]7T

(SP)+

BIC

#A177,(SP)

MOV

#100,a87KS

(SP)+,#21
31%

RTI
INC

;;DISABLE

TTY KEYBOARD

;s CLEAN CHAR OFF STAC(CK

;MAKE IT 7-BIT AS(I]
;oIS IT A CONTROL-Q?
s BRANCH IF NO
;;REENABLE

TTY KEYBOARD

BLT

; ;BRANCH [F

BGT
BIC

4%
#40, (SP)

(SP) #4140

(SP) . 4175

MOVB
INC
(MP
BNE
MOV
RT1

(SP)+,a$TKQIN
$TKQIN
$TKQIN,#STKQEND
5%
#$TKQSRT,$TKQIN

INTERRUPTS

;;WAIT FOR A (CHAR
;.LO0P UNTIL ITS THERE
;.GET THE CHARA(CTER

: ;RETURN
;:COUNT THIS CHARACTER

CMP

STALK

JFXIT

$TKCNT

(MP

000040

s s CLEAN (HARA(CTER OFF OF

(MP
BNE

(SP)+

B8R

(MP
BNE

117506

11:43:43 PAGE 45-1

INTERRUPTS

;218 IT UPPER (CASE?
YES

2218 IT A SPECIAL CHAR?
;;BRANCH 1F YES
;sMAKE IT UPPER (ASE

;;AND PUT [T IN QUEUE
. JUPDATE THE POINTER
;.GO OFF THE END?
; ;BRANCH IF NO
;;RESET THE POINTER
;SRETURN

.'.'Qttfi*'.t"'t't'll'ttt""".tfittt.ttltt.tttt'!"'fittt"tt't rERNE

;*SOF TWARE

061530
061536

061540
061544

061546
061552

061556
061562

022737
001124

000176

105777

117414

117746
042716

117410
177600

100121

021627
001300

001154

SWIT(H REGISTER CHANGE ROUTINE.

J*ROUTINE IS ENTERED
FROM THE TRAP HANDLER, AND WILL
J*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWIT(H REGISTER TRAP
:*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
$CKSWR: (MP
#SWREG, SWR
2:1S THE SOFT-SWR SELECTED
BNE
15%
JJEXIT IF NOT

TSIB

as$TKs

;:1S A CHAR WAITING?

MOVB
BIC

as$TKB,~(SP)
L1777, (SP)

JIYES
J;MAKE IT

8PL

000007

(MP
BNE

15%

(SP) &7
2%

J:1F NOT, EXIT

7-BIT ASCI!

;1S IT A CONTRCL-G?
:;A&DNgTiTPUT IT IN THE TTY QUEUE
o
X

."-".'QQ.t't.Q'Qtfi"Qt."'tQtt..t"ttt""*“t't.ti.ttt'!"t."t'

;*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERV]ICE

s*ROUTINE

061564
061572
061574
061576
061602
061606

123727
001674
005726
004737
005077
112737

001150

000001

061230
117352
000001

001151

061616
061620
061624
061630

104401
104401
013746
104402

062440
062445
000176

OR FROM THE

SOf TWARE

SWITCH REGiSTER

TRAP CALL,

AS A RESU.T

. *(ONTROI
=G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
6$:
cMP
SAUTOB,#1
;;ARE WE RUNNING IN AUTO-MODE?
BEQ
2%
; JBRANCH IF YES
TSt
(SP)+
;. CLEAR CONTROL~G OFF STACK
JSR
PC,STKINT
JoFLUSH THE TTY INPUT QUEUE
(iR
a$TKS
;.DISABLE TTY KEYBOARD INTERRUPTS
mMovBs
#1,8INTAG
;2SET INTERRUPT MODE INDICATOR
$CTSWR:

TYPE
TYPE
MOV
TYPO(

LSCNTLG
. SMSWR
SWREG,=(S5F)

;cECHO THE CONTROL-G (*G)
;. TYPE (URRENT CONTENTS
;. SAVE SWREG FOR TYPEQUT
5.G0 TYPE=-=O(CTAL ASCIICALL DIGITS

061650
061654

104401

062456

105777
100375

117312

117746

021627
001015

005046
005046

042716

061660
061664
061666
061672
061676
061704
061706
061714

123727
001003
012777
000137

61720
061724
061726
061732
061736

021627
V01005
104401
062706
000737

061740
061744
061746
061752
061754
061762
061766
061772
062000
062002
062010
062012
062016
062022
062024
062930
062032
062036
062042
062044
062046
062050
062052
062056
062062
062064
062070

021627
001022
005766
001403
016677
062706
104401
123727
001003
012777
000002
004737
021627
002420
021627
003015

104407

062706

042726
005766
001403
006316
006316
006316
005266
056616
000667
104401

0C0720

MACRO v04.00

19¢:

4-APR-87
TYPE

(LR
(LR

. SMNEW

-(SP)

8PL

a837ksS
I4

117306
177600

MOV
8IC

X C177,(SP)

000003

(MP
BNE
TYPE

06242¢
000006
001151
000190
062470

7%:

000001
117244

8%:
:
9%

062433
000006

20%:

000015

10%:

000004

;1S IT A CONTROL-C(?
;;BRANCH IF NOT
;o YES, ECHO CONTROL=-C (~()
;. CLEAN UP STA(K
JJREENABLE TTY KEYBOARD INTERRUPIS?
;;BRANCH IF NO
;JALLOW TTY KEYBOARD INTERRUPTS
;s CONTROL-(C RESTART

JSCNTLC

MoV

#100,38TKS

(MP
BNE

(SP) 425
108

TYPE
ADD

$INTAG.#
8%

SHUT?

LSONTLY

#6,SP

19%

CHP
BNE

BEQ

117372
000601

000100

117150

MoV
ADD
TYPE

cMP8
BNE
MOV

RT]
JSR
CMpP
BLT
CMP
BGT
8IC
TST

056642
000060
000067
000060
000002

001216

(S~),#3%

TST

000002
000006
001217
001151

177776

::PICK UP (CHAR
JIMAKE [T 7-BIT ASC]I

#6,SP

~MP

BtQ

17%:

18%:

.DSABL

ASL
ASL
ASL

INC
BIS
B8R

TYPE

LSB

;sPROMPT FOR NEw SWR
JsCLEAR (OUNTER
;o THE NEW SWR
::CHAR THERE?
1F NOT TRY AGAIN
;o

a$TKB,~(SP)

ADD

cMPR
BNE

060025

000002

1SR

17':43:33 PAGE 45-2

061632
061636
061640
061642
061646

ST 2

VAV AT
ko)

CIRMNBO RMQS/3/2 FCTINL
Ty INPUT ROUTINE

#1
$INTAG,
158
#100,38TKS
PC,STYPEC

(SP) ,#60
18%

(SP) ,#67
18%
#60,(SP)+
2(SP)
17%
(SP)
(SP)
({SP)

2(SP)
<2(SP), (SP)
7%

,SQUES
208

;.18 IT A CONTROL-U?
; BRANCH IF NOT
;oYES, ECHO CONTROL-U (*U)
;. IGNORE PREVIOUS INPUT
ssLET'S TRY IT AGAIN
;01S IT A <CR>?
. ;BRANCH [F NO
;JYES, IS IT THE FIRST (HAR?
. sBRANCH IF YES
;s SAVE NEW SWR
;s CLEAR UP° STACK
;cECHO <CR> AND <LF>
s sRE-ENABLE TTY KBD INTERRUPTS?
;sBRANCH IF NOT
; ;RE~ENABLE TTY KBD INTERRUPTS
; sRETURN
2 JECHO (CHAR
;;CHAR < 0?
:IBRANCH [F YES

;:CHAR > 7?

;;BRANCH IF YES

;. STRIP=OFF ASCI1
::1S THIS THE FIRST (CHAR
; ;BRANCH IF YES
;iNO, SHIFT PRESENT

CHAR OVER TO MAKE
M
ROOM FOR NEW ONE.
J.
;:KEEP COUNT OF CHAR

;:SET IN NEW (HAR
.2GET THE NEXT ONE

J2TYPE 2<CR><LF>
s sSIMULATE CONTROL=~U

.'.'.."'.’."".""'t.'Q.""!‘"'l"..tt.ttl..l'..ltil‘Qi.""'i'

SEQ 0241

MACRO v04.00

JRMNBO RMOS5/372 FOTINL

TTY

INPUT

ROUTINE

4~APR-B1

J*THIS ROUTINE

;eCALL:

1.
o

062072
062074
062102
062106
062110
062114
062116
062116
062122
062124
062130
062136
062142
062150
062152
062160

011646
016666
005066
005046
012746
000002

000004
000004

000002

005737
001775
005337

061220

005237

061224
061224

061227

061226

061224

117766

023727
001003
012737
000002

061220

177070

°%:

000004

MOV
RTI

ai ti2ARA

062210

062212
062214
062216
062224
062230
062234
062236
062242
062244

062250

062254
062256
062260
062262
062270
062274
062276
062302

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
001003

062416

RDL IN

$RDLIN:

MOV
CLR

10%:

062414

6%:

062416

062414
062414

000025

THE :TA(K
STRIPPED OFFf

(SP) ,=(SP)
L(SP) ,2(5P)
L (5P)

J:PUSH DOWN THE P{ AND
;2 THE PS
;.GET READY FOR A (HARACTER

#6468 ,-(>5P)

;sPUT NEW P{ ON

-(SP)

JJPUT NEW PS ON STA(CK

STACK

;:POP NEW PC AND PS

WILL

INPUT

;sBRANCH IF NO
;:RESET THE
;sRETURN

A STRING FROM THE

RETURN HERE

MOV

(MP
BLOS

MOVB

062414

7% :

R3,-(5P)
-(SP)

#$TTYIN,R3

#STTYIN+8. ,R3
43

{(SP)+,(R3)

CMPR

R177,(R3)

1ST
BNE
MOVB
TYPE
MOV
DEC

(SP)
63
#'\,9%
.9%
#-1,(SF)
R3

8L0
MOVB

43
(R3),9%

BNE

(mMP

TYPE

5%:

000134
062414

J:GET A (MARACTER FROM THE QUEUE

;o (HARA(CTER IS ON
;:WITH PAR]TY BIT

#STKQSRT ,$TKQOUT

RDCHR

000134
062414
177777

TTY

MOV
RT]

2%:

000177

THE

POINTER

TTY

i%:

062426

C(HARA(CTER FROM

AR08
2222222
XY AR R EX TR R EFZRRE EY

o
o

062162
062164
062166
062172
062176
062200
062202
062204

SINGLE

STKCNT
.;WAIT ON A CHARA(CTER
13
$TKCNT
;;DECREMENT THE COUNTER
a$TKQOUT,4(SP)
;:GET ONE CHARAC(CTER
$TKQOUT
;JUPDATE THE POINTER
$TKQOUT ,#$TKQEND ;.DID IT GO OFF OF THE END>

'EZEE ROUTINE
-

35T
BEQ
pEC
MOVR
iNC
(MP

B8NE
2%:

INPUT

RETURN HERE

$RDCHR: MOV
MOV
(LR

648

wilt

RD(CHR

CLR

062116

3
I
11:43:43 PAGE 4 53

R3IASTTIYIN
.9%

;:INPUT A STRING FROM THE TTY

;;ADDRESS OF FIRST CHARACTER WILL BE ON
;. TERMINATOR wiLL BE A BYTE OF ALL 0°'S

;:SAVE R3
;. CLEAR THE RURBOUT KEY

;:GET ADDRESS

;:BUFFER FULL?
;:BR IF YES
;260 READ ONE

CHARACTER FROM THE

;:GET CHARACTER
:21S

IT A RUBOUT

;:BR IF NO

2 1S THIS THE
;:BR IF NO

FIRST RUBOUT?

;;TYPE A BACK SLASH
;oSET THE RUBOUT KEY
; :BACKUP BY ONE

;+STACK EMPTY?

s:BR IF YES
;:SETUP TO TYPEQUT THE DELETED (HAR.
::G0 TYPE

B8R

;G0 READ ANOTHER (HAR.

MOVB
TYPE
(LR

#'\,9%
,9%
(SP)

;. CLEAR THE

TST
BEQ

CMPR
8NE

(SP)
7%

#25,(R3%)
8%

TTY

;;RUBOUT KEY SET?
J:BR IF NO
JoTYPE A BACK SLASH

RUBOQUT KEY

;1S CHARACTER A CTRL U?
;sRR IF NO

THE

STALK

" JHMNBO RMOS/3/2 FCTNL
TTy INPUT ROUTINE

062470
062476
062502
062504
062510

104401
000726
122713
00101
105013

MACRO v04.00

TYPE

8%:

000022

104401
104407

001217
062416

104401

001216

111337
1064601
122723

062414
062414
000015

3%:

105063
104401

001220

000712

001305

0C0004
062416

136

103

136

015
040

012737

105737
001002
000137
000002

107
012
040
177777

001116
032142

TYPE

LSCNTLU

18
#22,(R3)

3
(R3)
.SCRLF
LSTTYIN
V4]

000002
000004

001326

$TTYIN:
$CNTLC:
$CNTLU:
$CNTLG:
SMSWR:
SMNEW:
.EVEN

SHUTZ:

1%:

RT]
.RYTE

BYTE

ssTYPE

A CONTROL

2:G0 START QVER

'V’

:31S CHARACTER A '"TMR'"?

;2BRANCH [F NO
;. CLEAR THE CHARACTER

;:TYPE A "'(R' R "LF"
;. TYPE THE INPUT STRING

;.60 PICKUP ANOTHER CHACTER

JoTYPE A

;. CLEAR THE BUFFER AND LOOP
;. sECHO THE CHARACTER

BR
MovB
TYPE
(MPB
TYPE
TST
MOV
MOV
MOV
MOV

9%:

125

B8R

J
3
11:43:33 PAGE 45-¢

;s CHECK FOR RETURN
;:LOOP IF NOT RETURN

BNE
CLRB

177777

005726
012603
011646
016666
012766
000002
000
000

BR
(MPS
BNE
CLRB
TYPE
TYPE

= =-=2O00O0
— P\ ) b —d D

000717

&-APR-81

062433

[s YUV
IV 1V, |

062304
062310
062312
062316
062320
062322
062326
062332
062334
062340
062342
062346
062352
062356
062360
062364
062370
062372
062374
062376
062404
062412
062414
062415
06241€
0624626
062433
062440
062445
062456

1ST

;;CLEAR RETURN (THE 15)

(SP)+,R3
(SP) ,-(SP)
4(SP),2(SP)
NSTTYIN,4L(SP)

0
¢
8.

/2C/<15><1¢>
/7*2U/<15><1
2>

;:TYPE A LINE FEED
;. CLEAN RUBQUT KEY rROM THE STACK

;¢RESTORE R3

;cADJUST THE STACK AND PUT ADDRESS OF
i
FIRST ASCI] CHARACTER ON 1IT
2 sRETURN

;:STORAGE FOR ASCII

;2 TERMINATOR

(CHAR.

;;RESERVE 8 BYTES FOR TTY [NPUT

;s CONTROL ‘'C"'

1
/2G6/<15><2>

;:CONTROL 'V
:;CONTROL “G"'

#=1,CTLFG

;SET THE CONTROL-( FLAG

1%
SKUT

;NO-=RESPOND 10 “(

<15><12>/SWR = /
/
NEW = /

$TSTNM

TO TYPE

:DOING ANY TESTS ?
JBR IF YES

JEXIT FROM INTERRUPT

THE

LJRMNBO RMOS/372 FCINL

TST 2

READ AN OCTAL NUMBER FROM THE

MACRO v04.00

TTY

4-AFR-81

.SBTTL

K
3
11:43:33 PAGE 46

SEQ 0244

READ AN OCTAL NUMBER FROM THE

TTY

':.Qt.'.'ttt.fi"t.ttt't".ii.'l.tfit'.".t'tttt.tt.ttttt...'.t"t'

“«THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
:«CHANGE IT TO BINARY.

;«CALL:

o
062512
062514
062522
062524
062526
062530
062532
062534
062536
062540
062542
062544
062546
062550
062552
062554
062556
062560
062564
062566
062570
062572
062576
06260¢
062604
062606
062610
062612

011646
016666
010046
010146
010246

000004

104412

012600
005001
005002
112046
001412
006301
006102
006301
006102
006301
006102
042716
062601

$RDOCT:

1%:

2%:

177770

000764

005726
010166
010237
012602
012601
012600
000002
000000

000002

000012
062612

RDCCT

RETURN HERE

MOV
MOV
MOV
MOV

;sHIGH ORDER BITS ARE

MOV

(LR
MOVB

(SP)+ R0
R1
R2
(RO)+,~(SP)

ASL
ROL

R1
R2

ROL
ASL
ROL

R2
R1
R2

;.8

ADD

(SP) + ,R1

;sADD

RDLIN
MOV
CLR

BEQ

B8R

TST
MOV
MOV
MOv
MOV
MOV

$HIOCT:

;.LOW ORDER BITS ARE ON TOP OF

(SP) ,~(SP)
4(SP) ,2(SP)
RO,-(SP)
R1,-(SP)
R2,-(SP)

8IC
3%:

;.READ AN OCTAL NUMBER

RT]

.WORD

;:PROVIDE SPACE FOR
::INPUT NUMBER
;:PUSH RO ON STACK
;:sPUSH R1 ON STACK

N SHIOCT

THE

;3PUSH R2 ON STACK

;s JREAD AN ASCIZ LINE
;:GET ADDRESS OF 1ST
;:CLEAR DATA WORD

(HARA(TER

;:PICKUP THIS CHARACTER

so1F ZERO GET OUT
o2

RAC7,(SP)

J2STRIP THE ASCII JUNK

;:LO0P

(SP)+
R1,12(SP)
R2.$H10CT
(SP)+ ,R?
(SP)+ ,R1

IN THIS DIGIT

;sCLEAN TERMINATOR FROM STACK
. :SAVE THE RESULT

(SP)+ RO

;:POP STACK INTO R?
;:POP STACK INTO R1
;:POP STACK INTO RO

;;HIGH ORDER BITS GO HERE

;;RETURN

THE

STA(CK

CIRMNE) RMOS/3/2 FCINL

TRAP DECODER

TST 2

MACRO v0&.00-

&4~APR~81

11:43:33 PAGE &7

SEQ 024

.SBTTL

TRAP DE(ODER

. .'..Q't."-.".'."""t.‘..fi.t.t.t."l'.'t‘t".."'.'t't.""'

:*TH]S ROUTINE

WILL PICKUP THE LOWER BYTE UF THE '‘TRAP'" INSTRUCTION
J*AND USE IT TO INDEX THROUGH THE TRAP TABLF FOR THE STARTING ADDRESS
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINEDL [T wlLl
;*GO TO THAT ROUTINE.

062614
062620
062624

062630
062632
062634
062640
062642

062644
062646
062652

062654
062656
062664

016646
042716

012746

000002
010046
016600
005740

000002
000020
062632

$TRAP:

1%:

000002

011646
C16666
000002

062666

000004

#20,(SP)
#18,-(SP)

MOV
RTI

-(R0O)
(RO) ,RO
RO
$TRPAD (RO) ,RO
RO

000002

IS USE

$TRAPZ:

MOV
MOV

7O HANDLE

.SBTTL
;*THIS

THF

STATUS OF

CALLER--DO NOT

::GET TRAP ADDRESS

; «BACKUP BY 2

;.GEYT RIGHT BYTE OF TRAP
;:POSITION FOR INDEXING
;. INDEX TO TABLE
;:G0 TG ROUTINE

;sMOVE THE PC DOWN
;;MOVE THE PSW DOWN
;sRESTORE THE PSW

TRAP TABLE
TABLE

CONTAINS

THE

STARTING ADDRESSES OF

;*BY THE "‘TRAP'' INSTRUCTION.
:

062654
056430
056226
056202
056242
055756
055702

062704
062706
062710
062712
062714
062716
362720

THE

ROUTINES

CALLED

ROUT INE
-

062666
062670
062672
062674
062676
062706
062702

ALLOW

THE ''GETPRI'' MACRO

{SP) ,~(SP)
4(SP) ,2(SP)

RTI

THE

;:SAVE RO

2(SP) ,RO

;cTHIS

;sASSUME

;. T-BIT TRAPS
;:SET THE NEW STATUS

RO,=(SP)

MOV
mMov

TST
move
ASL
MOV
RTS

111000

006300
016000
000200

2(SP) ,=(SP)

MOV
BIC

$TRPAD: .WORD

$TRAP2

;s CALL=1YPE
;: CALL=TYPO(

TTY TYPEOUT ROUTINE

;s CALL=TYPBN

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

061620

;s CALL=GTSWR

TRAP+7(104407)

GET

061530
062072
062162
062512
055606
055644

s c CALL=CKSWR

TRAP+10(104410) TEST FOR CHANGE IN SOF T-SWR
TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE
TRAP+12(104412) TTY TYPEIN STRING ROUTINE
TRAP+13(104413) READ AN OCTAL NUMBER FROM 17y
TRAP+14(104414) SAVE RO-R5 ROUTINE
TRAP+15(104415) RESTORE RO-R5 ROUTINE

;s CALL=TYPOS

;s CALL=TYPON
+2CALL=TYPDS

2 s CALL=RDCHR

s« CALL=RDLIN

;s CALL=RDOCT
+ s CALL=SAVREG

$RESREG .2 CALL=RESREG

TYPE

OCTAL

NUMBER

(WITH LEADING ZERQS)

TYPE OCTAL NUMBER (NO LEAPING ZERQS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
TYPE BINARY (ASCII) NUMBER

SOFT-SWR SETTING

ST T 2
PCWER DOWN AND UP ROUTINES

JRMNBO RMOS/3/72 FLINL

MACRO v04.00

062772

063062
000340

010446
010546
017746
010637
012737
000000
000776

000024
000026

PCwER DOWN AND UP ROUTINES

RA RN AR AR RN AR NN NN NN

*POWER DOWN ROUT INE

$SPWRDN: MOV

MGy
MOV
MOV
MOV
MOV
MOV
Mov
MOV
MOV
MOV
HALT
B8R

116176

063066
062774

M
3
11:43:33 PAGE 48
SEQ 024+

.SBTTL

062722
062730
062736
062740
062742
062744
062746
062750
062752
062756
062762
062770

4-APR-81

000024

NN AN NN AR O ARNANA AR AR RAN

AR EN ANV EN RN ATRNNS T ONE S

#SILLUP, 3#PWRVEC ;;SET FOR FAST UP
#340, I#PWRVEC+2 ; -PRIO:7
RO,=(SP)
;:PUSH RO ON STA(K
R1,-(SP)
;;PUSH R1 ON STA(CK
R2,-(SP)
;:PUSH R2 ON STA(K

R3,-(SP)

R4 ,~(5SP)
R5,=(SP)
dSWR,=(SP)

;;PUSH R3 ON STACK

;sPUSH R4 ON STACK

;:PUSH R5 ON STACK

SP,$SAVR6

;;PUSH aSWR ON STA(K
.. SAVE SP

; ;HANG UP

#SPWRUP ,I#PWRVEC

;;SET UP VECTOR

".'.tt.tfi'!t.tt't"'.tt"'Q"t"tt"lfiti't't.".'tt.t't'tt.!"""t

012737
013706

063062
063066
063066
063066

012677
012605
012604
012603

116130

005037
005237
001375

012602
012601
012600
012737
012737
104401

063070
000002
000000
000776
000000

062722
000340

000024

000024
000026

;POWER UP ROUTINE
$PWRUP: MoV
#SILLUP
, a#PWRVEC ;.SET FOR FAST DOWN
$SAVR6,SP
MOV
..GET SP
$SAVR6
JJWAIT LOOP FOR THE TTY
CLR
1%:
$SAVR6
INC
;:WAIT FOR THE INC
BNE
1%
WORD
;:0F
MOV
(SP) +,3aSWR
;:POP STACK INTO aSwR
MOV
(SP)+,RS
;:POP STACK INTO RS
MOV
(SP)+ R4
;:POP STACK INTO R4
(SP)+,R3
MOV
;;POP STACK INT9 R3
;:POP STACK INTO R2
MOV
(SP)+ ,R2
MoV
;:POP STACK INTO R1
(SP)
+ ,R1
(SP)+,R0O
MoV
;:POP STACK INTO RO
#SPWRDN ,o#PWRVEC ;;SET UP THE POWER DOWN VECTOR
MOV
#3640 ,aNPWRVEC+2 ;;PRIO:7
Mov
TYPE
;REPORT THE POWER FAILURE
$PWRMG: . WORD
$POWER
;;POWER FAIL MESSAGE POINTER
RTI

$ILLUP: HALT
;. THE POWER UP SEQUENCE WAS STARTED
.~2
B8R
;; BEFORE THE POWER DOWN WAS (OMPLETE
$SAVR6: 0
2 ;PUT THE SP HERE
$POWER: ASCIZ
<15><12>" POWER''
.EVEN
APT COMMUN]CATIONS ROUTINE
.SBTTL

015

012

120

112737
112737

000001
000001

063344
063342

SATY1:
SATY3:

112737

000001

063344

SATYS:
$ATY(:

042774
063002
063006
063012
063016
063020
063024
063026
063030
063032
063034
063036
063040,
063046
063054
063056
063060
063062
063064
063066
063070

:.'tttfittfiit.tt'fi"t't'i"fi"tt'ttl'..t'fit'tttt'tit*tttttt.itttttt

063100
063106
063114
063116
063124
063124
063126
063130
063134
063136
063144
063146

000403
010046

063342
000001

001242

000100

001243

;270 REPORT FATAL ERROR

MOvVB
MOVH
BR
MOVB

#1,S$FFLG
#1,8MFLG

;:TO TYPE A MESSAGE

1, SFFLG

;:T70 ONLY REPORT FATAL ERROR

MOV

RO,=(SP)
R1,-(SP)
SMFLG

:sPUSH RO ON STACK

MOV
7ST8
BEQ
(MPB
BNE
BI18

SATY(C

NAPTENV, SENV

;;PUSH R1

ON STA(CK

;sSHOULD TYPE A MESSAGE?
BR
;oIF NOT:
. JOPERATING UNDER APT?
BR
;o1F NOT:

#APTSPOOL ,$ENVM ; :SHOULD SPOOL MESSAGES?

CZRMNBO RM(CS5/3/2 FCINL TST 2

APT

COMMUNICATIONS

063154
063156
063162
063170
063174
063176
063202

063204

063206
063212
063214
063220
063226
063230
063236
063244
063250
063254
063256
63256
063262
063264
063270
063272
063276
063300
063306
063314
063320
063324
063330
063334
063336
063340
063342
063343
063344

MACRO v04.00

&~APR-B1

11:43:33 PAGE 48-1

ROUTINE

001425
017600
062766

005737
001375
010037
105720

001376

163700
006200

010037
012737
000413
017637
062766
013746
004737
000000
105737
001416

005737
001413
005737
001375
017637
062766
005237
105037
105037
105037

012601
012600
000207
000
000
000

000200
000001
000100
000040

(00004
000002
001222

SEQ 0247
BEQ

000004

001236

1%:

2%:

001236
001240
000004
000004
000002
177776

001222

063254
000004

056430

5%:

063344

10%:

001242
001222
000004
000002
001222
063344

063343
063342

11%:

001224
000004

MOV
ADD
TST

BNE

MOV

TSTR
8NE
SuUB
ASR

MOV
MOV
B8R

MOV

$MFLG:
$LFLG:
$FFLG:

#2,4(SP)

?QSGTYPE

RO, $MSGAD
+
(RO)

$MSGAD RO
RO
RO, SMSGLGT

#6 ,SMSGTYPE

5%
Q6 (SP) 4%

BR
<s]F NOT:
;2GET MESSAGE ADDR.
:;BUMP RETURN ADDR.
;oSEE IF DONE W/ LAST XMISSION>
WAIT
;olF NOT:
;sPUT ADDR IN MA]LBOX
ssFIND END OF MESSAGE

;:SUB START OF MESSAGE

;.GET MESSAGE LNGTH IN WORDS
2 sPUT LENGTH IN MAILBOX
;;TELL APT TO TAKE MSG.
;;PUT MSG ADDR IN JSR L INKAGE

ADD
MOV

#2,4(SP)

177776,-(SP)
SC.STYPE

“SCALL TYPE MACRO

TSTR
BEQ

$FFLG

. sSHOULD REPORT FATAL ERROR?

JSR
.WORD

TST
BEQ
TST
BNE

MOV
ADD

12%:

b1
a4 (SP)
RO

INC
CLRB
CLRB
CLRB
Mov
MOV
RTS
.BYTE
.BYTE
.BYTE

.EVEN

APTSIZE =
APTENV
APTSPOOL~
APTCSUP

200
o
100
040

12%

$ENV

12%

$MSGTYPE
1%
@4 (SP) ,$FATAL
#2,4(SP)
$MSGTYPE
$FFLG

$LFLG

SMFLG
(SP)+ ,R1
(SP)+ RO

0
0
0

. -BUMP RETURN ADDRESS

::PUSH 177776 ON STACK

BR
;.1F NOT:
; cRUNNING UNDER APT?
BR
;coIF NOT:
;sFINISHED LAST MESS~GE?
WAIT
IF NOT:
;o
;.GET ERROR #
;;BUMP RETURN ADDR.
;oTELL APT TO TAKE ERROR
;:CLEAR FATAL FLAG
;. CLEAR LOG FLAG
.. CLEAR MESSAGE FLAG
;:POP STACK

INTO R1

;:POP STACK INTO RO
; sRETURN
JcMESSG. FLAG
;:LO0G FLAG
J:FATAL

FLAG

~IRMNBC KMOS/3%/2 FTTNL

CONS_.E MESSAGES

TST 2

MACRO v04.00

;

3 063346

200

S 063434
6 063441

101
040

& 063632

975

103

"01

114
077

114
040

000

7 063445

054

040

000

9 063536
17 063624

200
200

120
103

101
117

8 063450

063712

¢ 063774
13 064025

200

110

114
15
114

111
126
1117

124
122

200
20C

124
101

040
122
040G

19 064304

200

20
21
22
23
24
25
26
27
28
29
30
31
3¢
33

64305
064326
064342
064350
064366
064373
064400
064405
064426
064443
064460
064477
064516
064520

040
200
104
200
122
122
122
040
040
040
040
040
040
200

077
104
122
125
115
115
115
116
114
116
116
117
117
104

35
36
37
38
39

064554
064556
364560
064561
064562

16
131
040
040
040

000
000

34 064547

40 0646563

116

040

117

127

200
200

"4 064035
15 064077
16 064106

17 064142
"8 064227

126

117

000

131
115

131
116

111
122
111
116
060
060
060
117
117
117
117
106
116
122
116

4~APR-BT1

B &
11:43:33 PAGE 49

.SBTTL

(ONSOLE MESSAGES

SCTMSG:

.ASCIZ

ALL:
QUES:

LASCIZ
ASCIZ

EQUALS:
COMMA:

MSHELP:

.ASCIZ

CNSLO2:
CNSLO3:
CNSLO&:

(NSLO7:

CNSLO8:

<CRLF>@CANNOT RECOVER 4HE BAD SECTOR FILES ON THIS DEVICE®

a=a

@ALLI<CRLF>
@ ?a

_ASCIZ

LASCII
LASCII

<CRLF>@PACK,
THIS PROGRAM SHOULD BE HALTED BY TYPING A (*()a
<CRLF>ACONTROL C.
AS A RESULT,
THE PROGRAM WILL
BE HALTED®

.ASCI1

LASCI1

(NSLO1:

SEQ 0248

LASCIZ
._ASCIZ

<CRLF>aTO

ENSURE THAT NO

<CRLF>aWHEN THE

BAD HEADERS ARE LEFT

DRIVE UNDER TEST HAS COMPLETED

<CRLF>QTYPE HELP TEXT
<CRLF>aRM(CS1=a

(L) N? @

@ LIMITS - LO= 160000, HI= 17XXXX@8<CRLF>
aRMVE(=a
@ LIMITS - LO= 0, HI= 1000@<CRLF><LF>
<CRLF>QATYPE ''A'" TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a

.ASCI1

<CRLF>

.ASCII
LASCIZ

<(RLF>3AND TERMINATE INPUT WITH A CARRIAGE RETURN.3

.ASCIZ
.ASCIZ
,ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ

@ ?ILLEGAL INPUTa<CRLF>
<CRLF>/DRIVE(S): /
/DRIVE/
<CRLF>/UNIT STATUS:/
/RM02/
/RMO3/
/RMOS/
@ NOT AN RM05/3/2a
/ LOAD DEVICE/
/ NOT PRESENT/
/ NOT AVAILABLE/
/ OFFLINE/
7/ ONLINE/
<CRLF>/DRIVE(S) TO BE TESTED/

N:
Y.
BLNKS4:
BLNKS3:
BLNKSZ2:

LASCIZ
ASCIZ
ASCII
.ASCI'
.ASCI1

/N/
/sv/
7/ /
/ /
/ /

BLNKS1:

.EVEN

TESTING.3<CRLF>

.ASCIZ
_ASCIZ
.ASCIZ

(NSLO9:
MSDRVS:
MSGDRV:
SYSTAT:
SRMOZ2:
S$RM0O3:
S$RMOS:
NOTRM:
LODEvV:
NOTPRS:
NOTAVL:
UNTOFF:
UNTON:
DRIVES:
NONE:

ON THE DISKa

ASCIZ

_ASCIZ

/NONE/

/ /

TST 2

MATRO v04. 00

N NN -

TIRMNBO RMOS/3/2 FCTNL
FUNCTION CODE TABLE

4-APR-81

.SBTTL
sTHE

11:43:33 PAGE

FUNCTION CODE

$IF

OOV

INOTE

— OV NN

IS USED

TO DEFINE

STATUS

BIT USAGE IS AS FOLLOWS:

CONDITIONS FOR

ATA - BIT 15 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
ATA SHOULD BE SET WHEN TH
FUNCTION CODE IS EXECUTED, OTHERWISE,

:BIT 15 IS ZERO,

TABLE

SEACH FUNCTION CODE.

INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.

THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH

21T

IS NOT EXPECTED AS A RESULT OF

;IF

WCE = BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
WRITE (HeCK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

;IF

OP] - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
OP] ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

;IF

THE COMMAND.

IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

1v(C ERRORS ARE ENABLED DURING THE EXECUTION OF
WLE

= BIT

IS SET

THAT COMMAND.

IN THE ENTRY FOR A GIVEN FUNCTION CODE

:IF_WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

:THE

WRITE

INVALID ADDRESS ERROR IS ENABLED FOR THAT (OMMAND.

:1F

AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE

ERRORS

WHICH ARE

ENABLED ARE

‘WLE'',

"WCF'',

"DPE'’,

"UPE'".

IAE -~ BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

;COMMAND,
:.MXF“,

THE ERRORS ENABLED BY THIS BIT ARE '‘TRE'’,

onLBTIt'

AND

“AOE“.

"DLT'",

'NEM'',

BIT 08 IS NOT USED.
HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION (ODE
IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT (OMMAND.
SHEADER ERRORS INCLUDE ‘WCRC'', "HCE'', 'FER'', AND 'BSE'".

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF THAT
;COMMAND.
THESE ERRORS INCLUDE "MDPE’’, 'DCK'', AND "ECH'".

BIT 05 IS NOT USED.
BiT 04

IS NOT USED.

BIT 03 IS NOT USED.
BIT 02 IS NOT USED.
BIT 01

22 064566
57 064566

ILF = 81T 00 IS SET IF

f NCDTB:

020000

.WORD

IS NOT USED.
THE FUNCTION CODE IS ILLEGAL.
sFUNCTION CODE

OPI

. NOP

TABLE

JRMABO RMO5/3/2 FCINL
FUNCTION “ODE TABLE
58 064570

59 064572

60 064574
£ 064576

€2
03
64
655
66
€7
68

064600
064602
064604
064606
0646610
064612
064614

130001

132000

130000
020000

030000
130000
130000
020000
020000
130001

TST 2

MATRT

w4.30
.WORD

.wORD

.WORD
.WORD

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

6-APR-8"

'1:43:33 PAGE

SO~

OP] ATA_ILF.IV(
ATA.OPl.Iv(

ATA OP].IV(
OP]

iAE

OPJ!Iv(
OP]:!ATA!]V(
QP]'!ATA.IV(
OP!
OP]
OPJ'ATA!IL.
!IVC
OPI.ATA!ILF!IV(

o9 064616

130201
132000

71
72
73
76
75

130001
130001
130001
130001
130001

.WORD
.WORD
.WORD
.WORD
.WORD

OPI!ATA_ILF.IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC

073300

.WORD

WCE!OPI!IVC!IAE'AOE'!HCE'ECH

70 064620
064622
064624
066626
064630
064632

76 064634

77 C64636

78 064640
79 064642

80
81
82
83
84
85
86
87
88

064644
064646
064650
064652
064654
064656
064660
064662
064664

130001

.WORD

073300

.WORD

130001
037200
(37000
130001
130001
033300
033300
130001
130001

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

130001

.WORD

SEC 0250

JILLEGAL FUNCTION (2
; SEEK

;RECALIBRATE
:DRIVE CLEAR

;RELEASE
;OFFSET
JRETURN TO CENTERLINE
;READ IN PRESET
:PACK ACKNOWLEDGE
sILLEGAL FUNCTION (24)

UPI.ATA!ILF!IV(

ILLEGAL FUNCTION (26)
; SEARCH
sJILLEGAL FUNCTION (32)

OPI!ATA!ILF!]IVC

sILLEGAL FUNCTION (46)

ATA!OPI!IVC!IAE

WCE!OPI!IVC!IAE!AQE.HCE.ECH
OPI!ATA!ILF!IVC

OQPJ!ATA!ILF!IV(
OPI!IVC!WLE!IAE'!AQE.HCE
OPI!IVC!WLE'IAE'AOE
OPI.ATA!ILF!IVC
OPIl.ATA!ILF!IVC
OP].IVC!]AE!AOE !'HCE.ECH
OPI!IVC!]AE!AOE :HCE.ECH
OPI.ATA!]LF.]IV(
OPI!ATA.ILF!]VC

sILLEGAL
;ILLEGAL
JILLEGAL
sILLEGAL
sILLEGAL
;JWRITE

FUNCTION
FUNCTION
FUNCTION
FUNCTION
FUNCTION

(34)
(36)
(40)
(42)
(44)

CHECK DATA

JWRITE CHECK HEADER AND DATA
JILLEGAL FUNCTION

(54)

;JILLEGAL FUNCTION (56)
;WRITE DATA
;WRITE HEADER AND DATA
;ILLEGAL FUNCTION (64)
JILLEGAL FUNCTION (66)
;READ DATA
;READ HEADER AND DATA
;ILLEGAL FUNCTION (74)
;ILLEGAL FUNCTION (76)

4&~APR-B1

11:643:33 PAGE

LSBITL

ATTENTION

:
ATNTRL

BYTE
.BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
.BYTE

(ATA,

MACRO v04.00

001

002
004
010
020
040
‘00
200

1Sy

~ NN
00 SNy PNODPRIONS o o o

OO0 NO NNy .

RMOS5/3/2 FCINL
ON (ATA) TABLE

TABLE

SEQ 0251

100000
100000

040000

JEROS:

20NN = NW—=O

)
‘\'\)—A\,\\‘-

N =N

QO SNNIWN—
N

ONES:

.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WCRD
.WORD
.WORD
-WCRD
.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

N AN

037777
017777
007777
003777
001777
000777
000377
000177
000077
000037
000017
000007
000003
000001
000000
000000
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

RGDTPT.
MIXED:

DATA CATTERN TABLE

064764

064766
064770
064772
064774
264776
065000
065002
065004
065006
065010
065012
065014
065016
065020
065022
065024
065026
065030
065032
065034
065036
065040
065042
065044
065046

1727777
177777
072777

52
<En

064762

064744
064746
064750
064752
064754
064756
064760
064762

000000
000001
000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777
077777

'7:43:33 PAGE

NN
NN

SOV

2
b

4-APR-B81

LSBTTL

064676
064676
064676
064700
064702
064704
064706
064710
064712
064716
064716
064720
064722
064724
17 064726
064730
064732
064734
064736
064740
-

MA{RO v04.0C

TABLE

CO - NPYLISNY(Re

DATA PATTERN

“IRMNBO RMOS/3/2 FLTNL

Ndr

JNMNBC

RMCS/3/¢ BCTNL

"A'A PATTERN

TABLE

58 065050
59 065052
60 065054
61 065G56
£2 065060
63 065062
64 065064
65 065066
66 065070
67 065072
68 065074
09 065076
70 065100
71

065102

78 065120

177740

91
92
93
94

065124
065126
065130
065132
065134
065136
065140
065142
065144
065146
065150
065152
065154
065156
965160

95 065162
9 065164

97
98
99
100

8192,
4096.
2048,
1024.
512
256.
128.
64.
32.
16.
8.
4.
2.

.WORD
.WORD

0.
65535.

.WORD

65528.

.WORD
.WORD

177760

.WORD

177700

177600
177400
177000
176000
174000
170000
160000
140000
100000
000000
000000

65534,
65532.
65520.

.WORD

65504.

.WORD

65472.

.WORD
WORD
.WORD
LWORD

32768.
49152,
57344,
61440,
63488.
64512,

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

100000
140000
160000
170000
174000
176000

&
6
"7:43:33 PAGE 52-1

.WORD
.4ORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

177776
177774

177770

80
81
82
83
84
85
86
87
88
89
90

4=&PR-81

.WORD

76 065114

79 065122

MATRO v04.00

000001

000000
177777

77 065116

020000
010000
204000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002

72 065106
73 065106

76 065110
75 065112

TGt

.WORD
.WORD

65408.
65280.
65024.
64512.
63488.
61440,
57344,
49152,
32768.
(.
0.

065166
065170
065172
065174

177000
177400
177600
177700

.WORD
.WORD

65024.
65280.

102 065200
103 065202

177760
177770

WORD

.WORD
.WORD

65504.

.WORD

65532.

101 065176

104

065204

105 065206
106 065210
107 065212

'08 065214

.WORD
.WORD

177740
177774

177776
177777
125252

152525

FAR_Y:

65534.
65535,
43690.
43690.
65535,
65534,

.WORD

125252
177777
177776

.WORD
.WORD
.WORD

13 065226

177773

.WORD

*14 06523C

177775

177767

65520.
65528.

.WORD
.WIRD
.WORD

109 065216
110 065220
111 065222

112 065226

65408.
65472.

43690./2

.WORD

65533,

LWORD

£5527.

65531,

JaMnly o WMCS/ 37

FoTNL

TIST

MACRO v04.0C

4-APR-81

H
'':43:33% PAGE

TATA DATTERN TARLE

'S 06323¢

'To U6S236
17 065236
18 065260

177757

119 0652642
120 0652646
121 065246
122 065250
'¢3 065252
'26 06525
125 065256
126 065260
127 065262
'¢8 065266

177377
176777
175777
173777
167777
157777
137777
077777
077777
137777

*30 065270

167777

129 065266

.WORD

177737
177677
177577

.WORD
LWORD
.WORD

WORD
.WORD
WORD

65519,

65503,
65471,
65407.

.WORD
LWORD
.WORD
.WORD
.WORD
.WORv
.WORD

65279,
65023.
64511,
63487,
61439,
57343,
49151,
32767.
32767.
49151,

.WORD

61439,

157777

.WORD

065272

173777

.WORD

63487.

133 065276

176777

.WORD

65023.

177577

.WORD

65407.

131

'32 065274

175777

134 C65300

177377

136 065304
137 065306
128 065310

177677
177737
177757
177767
177773

'35 065302

139 065312

140
141
162
143

065314
V65216
065320
065322

144 065324

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

177775
177770

177777

.WORD
.WORD

ENRGDT:

.WORD

57343,

64511,
65279.

65471,
65503.
65519,

655¢7.

65531,
65533.
65534,
65535,

&
52-2

JRMNBY RMOS/ 372 §OTNL

IV I

TV T wn T

—
NOWNS W=
OV

-—

Y £H N

1Y LANAWAAN NN

W= OO 00 ~NO W £ NN —2O000 NO NS NN

N rOrO
PO
NGNS N) 2

POOVWNRPANAANN
2O OO0 YN INAL 2

FRNTR MESSAGE

065324
065330
065336
065344
065352
065360
065366
065374
065400
065404
065412
065424
065432
065440
065450
065460
065470
$65500
065510
065520
065530
065540
065550
065560
065570
065600
065610
065620
065630
065640
065650
065660
065666
065676
065710
065720
065730
065740
065750
065756
065766
066000
066016
066034
066044
066056
066074
066104
066122
066142
066156
066160
066200
066220
066232

TABLE

071712
071761
071761
072104
072104
076707
074673
072201
072246
072310
072362
072456
072310
072310
072310
0723'0
072310
072310
072310
072310
072310
072310
072310

ST 2

030000
071776
072041
072134
072246
074125
076734
000000
000000
072321
072373
074125
072541
072564
072600
072626
072655
072672
072734
072763
073012
073040
073111
073140
073167
073215
073244
073272

000000
000000
000000
000000
000000
000000

073350
073423
072516
076110
076211
073631
073631
073631
073631
074125
072404
073466
073631
073631
073631
076153
074333
074343
074261
073714
074261

000000
072404
000000
000000
072713
072724
072724
072713
072713
072724
072724
072724
072724
072724
072724
072724
072724
072724
072724
072724
072724
072724
000000
074405
074333
074405
074405
074405
076405
000000
074077
072724
074261
074261
074261
073631
074261
074261
075073
074261
075073

076337
077334
074567
074567

074306
077515
074333
074333

073321

076646

MAIRO v04.0C

4~APR-B1

*':4%3:33 PAGE

LSBITL

ERROR MESSAGE

EMTY:
EMT?:

.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

EMT3:

EMTSEMTS:
EMTG6:

EMT7:
EMT10:
EMT11:
EMTI2:
EMT13:
EMT14:
EMT1S:
EMY16:
EMT17:
EMT20:
EMTZ2T:
EMT2Z2:
EMT23:
EMT24.
EMT2S:
EMT26:
EMT27:
EMT30:
EMT31:
EMT32:
EMT33:
EMT34:

EMT3S:
EMT36:
EMT37:

EMT40:
EMT4LT:
EMT4?2:
EMT4L3:
EMT44

EMT4S:
EMT46:

EMT47:
EMTSO:
EMTS51:
EMTS?:
EMTS53:
EMT54:
EMT5S:
EMT56:
EMTS7:
EMT6E0:
EMT61:

EMTE2:
EMT63:
EMT64:
EMT65:
EMT66:
EMTE7:

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

TABLE

EMST.,0

EMS2.EMS3,0
EMSQ EMSL .0
EMSS5 EMS6 .0
EMS5 EMS10.0
EMS167,EMS64,0
EMS110.EMS170.0
EM57,0
EMs10.0
EMS11.EMS12,0
EMS13 EMS14 EMS15,EMS16,0
. EMS64 .0
EMS17
EMST1.EMS21.0
EMS11.EMS22.EMS27 0
EMS11.EMS23.EMS30 0
EMS11.EMS24
. EMS 30 0
EMS11.EMSOS.EMS27. 0
EMS11.EMS26,EMS27 0
EMS11.EMS31.EMS30 0
EMS11.EMS32.EMS30 9
EMS11.EMS33_EMS30 0
EMS11.EMS34
. EMS30 0
EMS11.EMS35.EMS3C 0
EMS11.EMS34.EMS30 0
EMS11.EMS37.EMS30 0
EMS11.EMS40. EMS30 0
EMS11.EMS41
. EMS30 0
EMS11.EMS42
. EMS30 0
4 0
3. EMS30
EMS11.EMS
EMS11.EMS44
. EMS30. 0
EMS11.EMSLS.EMS3C, 0
EMS66.EMS20.0
4
”
.

’

»
’

4
]

EMS75 _EMS147,EMS76.0

EMS144 EMS145 ,EMS72,EMST6,0

EMS47, EMSS3,EMS?6,0
EMS77
. EMS53 EMS76.0

EMS100.EMSSS.EMS76,0

EMS101.EMS53.EMS76.0
EMS6S
, EMS64 0
EMS13 EMS1S . EMS63,0
EMS11,EMS46.EMS30.EMS67,
0
EMS4L7 . EMSS3.EMSE7
EMS115 . EMS140,EMS141,0
EMS47 . EMS53. EMS67 . EMS115 EMS141.EMS164
.0
EMSSO EMS53.EMS67.0

EMS142,EMS143,EMS53, EMS67.0

EMSST,EMS72,EMS67.EMS115, EMSS0,EMS70.0

EMS167,EMS75,EMS67.0

EMSS6, EMS67.EMST15.EMS150,EMS152,EMS70.0
EMS71.EMSS56 . EMS67.EMS115, EMS150,EMS152.EMS72.0

EMS140,EMS67,EMS115,EMS4L?,EMS?0.0

EMS150,EMS152,EMS70,EMS115,EMS56,EMS73,EMS67.
0

EMS52,EMS205 , EMS214 . EMS206 . EMS115 . EMSST, EMS72.0
EMS165,EMS10%5,EMS72.EMST124.0

EMS165.EMS103.EMS72 EMS171.0

" JRMNBO RMOS/3/2 FCTNL
066244
066254
066264
066302

63
64
65
66
67
68
09
70

066330
066350
066360
066372
066410
066426
066436
066450

62 066320

71
72
73
74
75
76
77
78
79

80
81
82
83
84
85
86
87
88
89
90

91
92
93
94

0664666
066476
066506
066526
0665640
066546
066554
066570
066576

066606
066616
066626
066636
066646
066656
066666
066676
066706
066720
066732

066744
066756
066770
067002

95 067014
9 067026
97 067040

98 067050

99
100
101
122
103
104
105
106
107

067060
067070
067100
067110
067120
067130
067140
067150
067160

08 067172
09 067204

073714

074320
073544
076136
074377
074377
076707
07625/
073573

(76646
076646
076201
074673
075017
075017
074673
075017
075171

075234
075271
075334
075366
075431
076032
075533
075571
075171
075234
075271

(075334
075366
075431
076032

075533
075571
075171

075271

075171
076032
075334
075366
075431
075571
076763
075533
076067

10 067222
11 067240

076201
076274

13 067264
14 067276

076257
076511

12 067252

076257

11:43:33 PAGE

53~1

SEQ 0256

073466
074320
073515
073515

076136
076201

4-APR-81

076211
076211
076337
076313
076313
076441

076541
076541
0765641
076541
076541
076541
076541
073631
076541
076541
076541
074360
076541
076561
076541
073631
075076
000000
900000
075076
000000
075655
075655
075655
075655
075655
075655
075655
075655
075655
075700
075700
075700
075700
075700
075700
075700
075700
075700
075742
075742
076005
076005
076005
076005
076005
076005
076005
076005
076110
076153
076240
072516
076405
076405
076441
076474

EMT70:
EMT71:
EMT72:
EMT73:
EMT74:
EMT?75:
EMT?76:
EMT?77:
EMT100:
EMT101:
EMT102:
EMT103:
EMT104:
EMT105:
EMT106:
EMT107:
EMT110:
EMT111:
EMT112:

.WORD
.WORD
.WORD
_WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

EMT116:
EMT117:
EMT120:
EMT121:
EMT122:
EMT123:
EMT124:
EMT125:

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

EMT113:
EMT114:
EMT115:

EMT126:
EMT127:
EMT130:
EMT131:
EMT132:
EMT133:
EMT134:
EMT135:
EMT136:
EMT137:
EMT140:
EMT141:
EMT142:

EMT143:

EMT144:
EMT145:
EMT146:
EMT147:

.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD

.WORD

,WORD
.WORD
.WORD
.WORD

EMT150:
EMT151:
EMT152:
EMT153:

.WORD
.WORD
.WORD
.WORD

EMT155:
EMT156:
EMT157:

.WORD
.WORD
.WORD

EMT154:

EMT160:

.WORD

EMS46,EMS20,EMS163,0

EMS71.EMS10T,EMS165.0

EMS&7 ,EMS72 ,EMS163,EMS115,EMS140,EMS141,0
EMS4L7EMS72.EMS163.EMST15
EMS141 . EMS72,0
EMSS6.EMSS3.EMS163.0
EMS71.EMS56.EMS163.EMS115,EMS150,EMS152,EMS72.0
EMSSO
. EMSS3.EMS163.0

EMS142,EMS143,EMSSS,EMS163.0

EMS75,EMS141,EMS163,EMS115,EMS47,EMS70.0
EM375,EMS150, EMS163.EMS115,EMSS6.EMS73.0

EMS167,EMS73.EMS163.0

EMS147.EMS157 ,EMS74.EMS163,0
EMS51,EMS74,EMS163,EMS115, EMSS0,EMS70,0

EMS165,EMS100,EMS163,0

EMS165.EMS77.EMS163.0
EMS144 . EMS145,EMSS3.EMS163,EMST15,EMS143,EMS70,0
EMS110.EMS112.EMS116,EMS111,0
EMS113.EMS4,0
EMS113,EMS3.0
EMS110.EMST115,EMS116,EMS117,EMS114.0
EMS113.EMS120.0
EMS121.EMS132.EMS133,0
EMS122.EMS132.EMS133.
EMS123.EMS132.EMS133,

EMS 124 .EMS132.EMS133.
EMS125.EMS132 EMS133.
EMS126.EMS132.EMS133.,
EMS137 ,EMS132 EMST sg,
EMS130,EMS132,EMS13
EMS131,EMS132,EMS133,0
EMS121,EMS132
EMS134 ,EMS123,0
EMS122,EMS132 EMS134,EMS123,0
EMS123,EMS132
EMS134 ,EMS123,0
EMS124 ,EMS132 EMS134,EMS123,0
EMS125,EMS132,EMS134 ,EMS123,0
EMS126 ,EMS132 EMS134,EMS123,0
EMS137 ,EMS132,EMS134 ,EMS123,0

EMS130,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
6
EMS124 ,EMS132,EMS136.0
»

.
I

6
EMS125,EMS132,EMS136,0
o

6
EMS126,EMS132,EMS136.,0
EMS131,EMS132,EMS136,0
EMS171,EMS132,EMS136,0
EMS130,EMS132,EMS136,0
EMS140,EMST115,EMS141 1,EMS
EMS142 ,EMS115,EMS143 EM
EMS144 ,EMS145,EMS146,EM
EMS144.EHS1LS,EMSZO.EMS;
EMS150,EMS152,EMS154
EM
EMS147,EMS151 EMS154 EM S
EMS147 ,EMS151 ,EMS156,EM S
EMS161,EMS156,EMS160,0
.

’

[

EMS1

3,EMS72,0

58
59
60
61

TARLE

,064.00

[wlolelolelela]

ERROR MESSAGE

MA{RD

4
163,EMS
70,0

"IJRMNBO RMOS5/3/72 FCTNL

ERROR MESSAGE

TABLE

076441
076441

EMT161:
EMT162:

WORD
.WORD

EMS25,EMS27,EMS156,EMS160,0
EMS26,EMS27 ,EMS156,EMS160,0

000000
000000
000000

EMT164:
EMT165:
EMT166:

.WORD
.WORD
.WORD

EMS47,EMS20,0
EMSS56,EMS20.0
EMS46,EMS20,0

076457

EMT171: .WORD

072655
072672

072713
(72713

118 067342
'19 067350
120 067356

073515
073714
073466

072516
072516
072516

076707

076405

076763

075631

117 067332

121 067364
122 067372

123 067604

073515

100035
077273

"24 067414

076707

126 067436

076763

125 067424

127
128
129
130

076541

076067

072516
076110

000000
072724

076405

076421

075631

075700

075655

067646
067456
067462
067464

075017
077160
000000
077273

077136
077175

000000
000000

073573

132 067510

077273

073544

131

067476

133 067522

134
135
136
137
138

067534
067552
067562
067572
067604

077273

074360
074567
074343
076110
076274

076136

073631

073573

067642

073544

1642 067652
143 067672

076153

076274
073544
074576
074377
074377

139 067612

}Z? 067626

077306

EMT174:

.WORD

EMT173:

EMST50.EMS74.EMS202.EMS115.EMS152,EMS72.0
EMSSO,EMS103.EMS72.0
EMS104,EMS73.EMS203.0
EMS75.EMS141.EMS115.EMS140.0
EMS75.EMS150.0

.WORD

EMS142.EMS53.EMS115,EMS143,EMS72.0

075073

EMT211:
12
EMT212:
Erii274:

E°

213:

EMT223:
EMT224:
EMT225:
EMT226:
EMT227:
EMT230:
EMT231:
EMT232:
EMT233:
EMT234:

075126

000000
000000
000000
000000
000000
006000
000000
000000
000000
076707
076707

076707
077447

075126

EMS171,EMS132,EMS133,0

EMS171.EMS132.EMS134 EMS123.0

.WORD
.WORD
.WORD
.WORD
.WORD

077243
074333
077243
075073
000000

073714

074436

075631
075631
077431

077373
077420
077420

077472

000000

.WORD

EMT203: .WORD

074077

073621
000000
000000
000000
000000
000000
000000
000000
000000
000000

EMS167,EMS154,EMS155,0

EMT204:
EMT20S:
EMT206:
EMT207:
EMT210:

072724

EMT216:
EMT217:
EMT220:
EMT221:

073621

EMS167.EMS154.EMS157,0

.WORD

074125
074125
074125
074125

075126

.WORD

EMS224 ,EMS20,0
EMS203,EMS141,EMS30,EMS202,0

EM7202:

EMT201:

076662

067754
067764
067766
067770
067772
067774
067776
070000
070002
070004

170 070052
171 070066

.WORD

077334

149
150
151
152
153
154
155
156
157
158

070006
070010
970012
070014
070016
070020
070022
070024
070026
070030
0700640

EMT172:

0732621

073621

.WORD
.WORD

072724

073631

072724
072724
072724
0727246

159
160
161
162
163
164
165
166
167
168
169

EMT167:
EMT170:

072724

074567

073714
073466
072734
073515

148 067744

EMT163: .WORD EMS47,EMS16% EMS140,0

.WORD
.WORD
.WORD
.WORD

075073

067704
067714
067726
067734

43:33 PAGE 53-2

EMT175:
EMT176:
EMT177:
EMT200:

074333

144
145
146
147

MACRO v04.0C

“15 067306
116 067320

4-APR-81

TST 2

EMT215:

.WORD

EMT250:
EMT2S51:

EMS203,EMSS1,EMS30.EMS202.0

EMS203.EMS204,EMS30,EMS202
.0
EMS203.EMSS50,EMS30,EMS202.0

EMS203.EMS145,EMS30.EMS202.0

EMSS].EMS72,EMS115,EMSSO.EMS70.0

EMS50,EMS103,EMS53,0

.WORD

EMS52,EMS205,EMS166,EMS206,EMS115,EMS51,EMS72,0

.WORD
.WORD
.WORD
.WORD

EMSS56,EMS30,EMS64,0
EMS46,EMS30,EMS64.0
EMS31,EMS30,EMS64,0
EMS47,EMS30,EMS64,0

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

EMS52,EMS117,EMS63.0

.WORD

EMT222: .WORD

EMT235:
EMT236:
EMT237:
EMT240:
EMT241:
EMT242:
EMT243:
EMT244:
EMT245:
EMT246:
EMT247:

EMS113.EMS177.0
EMS200.EMS201.0

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD

EMS52,EMS117,EMSS56,EMS163.0

EMSS2.EMS117,EMS77.0

EMS167,EMS132,EMS207,0
EMS167,EMS132,EMS210,EMS125.0
EMS167,EMS211,EMS210,EMS207,EMS206,0
EMS212,EMS213,0

SEQ 0257

TIRMNBO RMOS/3/2 FCINL

tRROR MESSAGE
1

72 070074
73 070102

TABLE

076646
076257

MACRC v04.00

07764647
(76313

000000
0766441

EMT252:
EMT253:

075126
077334

073714
077637

EMT260: .WORD
EMT261: .WORD

076153

073631

EMT266: .WORD

76
75
176
177

070120
070130
070140
070150

180
181
182
133

070214
0702246
070234
070256

074576
073544
073714
074320

074343
073631
073631
073714

185 070306
186 070324
187 070340

073544
073515
073515

076240
073631
073631

075073
074540
074540

073631

073771

178 070162
179 070174

184 070276

077273
077273
077273
072310

TST 2

073621
073621

076136

074512
076707
Q74464
073466

188 070356
189 070374

074377
073573

191 70430

075076

073631

074320

073714

190 070412

192 070442
193 070456
194 070476

195 070514

074077
073515
073515
073714

076110
074360

072724
072724
072726
0727246

077243
074540
074540
(074540

074464

074567
074125
073771

075073

073631

199 070574
200 070606
201 070616

073466
073544

073544

072724
073631
076240

205 070650
204 070662

074576
074625

074567
074567

073631
073631

073631
073631
074567

202 070636

205 070674

076136
076201

076153
076211

206 070714
207 070726
208 070740

073272
072734
074320

074567
074567
072734

210 070762

073423

074567

209 070752
211

[

070772

073321

073350

074567

074567
074567

073631

077061

076313

073012

074567

220 071116
221 071130

C73215
073573

219 071104

222 071146
223 071164
224 071206

225 071214

226 071226
227 071236

208 071244

074377
074377
074017

074567
074360

076110
076274
074032

075076

075126

073621

075126

073040
073665

073631
073040

EMS63,EMS53,EMS57,EMS115,EMS4T,EMS146,0

EMT276:
EMT277:
EMT300:

EMT301:

.WORD
.WORD
.WORD

.WORD

EMT302: .WORD
EMT303:
EMT304:

.WORD
.WORD

EMT307:

.WORD

EMT305:
EMT306:

.WORD
.WORD

EMI310: .WORD
EMT311:
EMT312:

.WORD
.WORD

EMT314:
EMT315:
EMT316:

.WORD
.WORD
.WORD

EMT320:

.WORD

EMT322:
EMT323:

.WORD
.WORD

EMT325:
EMT326:

.WORD
.WORD

EMT330:

.WORD

EMT332:
EMT333:

_WORD
.WORD

EMT336:

_WORD

EMT340:
EMT341:

.WORD
.WORD

EMS116,EMS5S,EMS4T,EMSS7.0

EMS47,EMSS53,EMSS7,EMS115,EMS140,0
EMS47,EMSS3,EMSS57 ,EMS115,EMS141,EMS72,0
EMS56,EMS53,EMSS57,EMS115,EMS150,EMS152,EMS70,0
EMS71,EMS56,EMS53,EMSS57 ,EMS115,EMS150,EMS152,EMS72,0

EMS165.EMS100,EMST03,EMSS7,0
EMS165,EMS101,EMS103,EMS57,0
EMS165,EMS77,EMS103,EMS57.0

EMS46.EMS30,EMS64,EMSS7,0
EMSS0.EMS53.EMSS7.0

EMSS0.EMS146,EMS115,EMSS2,EMS117,EMS46,EMS57.0

EMS142,EMS14%5.EMSS3 EMS57.0
EMS104.EMS103.EMSS3 EMS57.0
EMS105.EMS103.EMS53.EMS57.0

EMS44.EMS103.EMS57.0

074567
072404

0726257

.WORD

EMS7S5,EMS141,EMS102,EMS115,EMS47
EMS73,0
EMS51,EMS74,EMS102,EMS115,EMSS50,EMS70,0

EMI321:

073771

073140
077053

074211

EMTZ74:

.WORD
_WORD

EMS43.EMS10%.EMS57.0

077016
072362

218 071074

EMSSOQ,FEMS146,EMS115,EMS52,EMS117,EMS46,0
EMS47 ,EMSS3,EMS102,EMS115,EMS140,0
EMS47 ,EMSS53,EMS102,EMS115,EMS141,EMS72,0

EMS142,EMS143,EMS5$,EMS102,0

EMT317: .WORD

073771

215 071032
216 071044

217 071062

.WORD
.WORD
.WORD

073771

072516
074567

073140

EMT267:
EMT270G:
EMT27 :

EMS52.EMS117,EMS56,EMS102,0
EMS52.EMS205.EMS220,EMS206,EMS115,EMSST,EMS72,0

EMT313: .WORD

074654
073140

077036

SMS104,EMS73,EMS202,0
EMS50,EMS53,EMS102,0
EMSS56,EMS53,EMS102,EMS115,EMS150,EMS152,EMS70,0
EMS71,EMS56.EMS102,EMS115,EMS150,EMS152,EMS72,0

EMS203,EMS101,EMS30,0
:MS203,EMS167,EMS30,0
EMS203,EMS100,EMS30,0
EMS11,EMS46,EMS30,EMS102,0

074567

212 071002
213 071010

214 071020

.WORD
.WORD
.WORD
.WORD

EMT275: .WORD

073771
073771
073771

074512
074436

EMT262:
EMT263:
EMT264:
EMT265:

073244

076646

076646
076646

EMI254:
EMT255:
EMT256:
EMT257:

EMS165,EMS212,0
EMS147,EMS151,EMS156,EMS210,EMS26,EMS27,0

EMT272:
EMT273:

073631
073631
073631

4
L
17:43:33 PAGE 53-3

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

074540
074540

196 070536

197 070550
198 070562

4-4PR-81

000000
073771

.WORD

074567

EMT324: .WORD

074360

EMT327: .WORD

073631

073631
073771

073771
076337
074061

073040

073643
000000

073714

EMT331: .WORD

EMT334: .WORD
EMT335: .WORD
EMT337: .WORD
EMT342: .WORD

EMS144.EMS145.EMS103,EMS57.EMS115,EM5143,EMS70.0
EMS42,EMS103.EMS53.EMS57.0
EMS371.EMS103 EMS53.EMSS7.0
EMS71.EMS31,EMS103.EMS57.0

EMS45.EMS103.EMS57.0

EMS106,EMS20.0
EMS36,EMS103.EMSS7,0

EMS173.EMS36.EMS10%.EMS57,0

EMS172.EMS36.EMS103.EMS57.0
EMS13,EMS174.EMS1S,EMS35, EMS53,EMS175,0

EMS147,EMS151,EMS74,EMS175.0
EMS66,EMS53.EMS175.0

EMS33.EMS105,EMSS3 EMS175.0

EMS4L0.EMS103.EMS53.EMS57.0
EMSS1.EMS74,EMSS57.EMS115.EMSSO,EMS70,0

EMS7S.EMS141,EMSS? EMS115.EMS47 EMS7S.0
EMS75.EMS150.EMS152.EMSS7.EMS115, EMS56,.EMS73.0
EMS60.EMS61.EMS62,0

EMS116,EMS117,EMSS4,0

EMS34.EMS53,EMSS4.EMS111.0
EMSSS.EMS34.U

EMSS52.EMS117.EMS56,EMS57.0

SEQ (258

rIRMNBO RMOS5/3/2 FCTINL

ERROR MESSAGE

229 071256
230 071270
231 071302
232 071312
233 071326
2% 071340
235 071356
236 071366
237 071372
238 071402
wn

-6

TABLE

973621
073621
073621
074654
073621
074377

076707
077533
077604
077657

075126
075126
075126
072516

077334

076274
074343
000000
077273
072516

MACRO v04.00

073423
073350
077657
075073
077727
074540
074540

077554
000000

4-APR-B'

EMT343:
EMT 344
EMT345:
EMT 346:
EMT347:
EMT350:
EMT351:
EMT352:
EMT353:
EMT354:

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

'':43:33 PAGE

53~4

EMSS52.EMS117,EMS45,EMSS7,
0
EMSSO.EMS117.EMS44 EMSS7.0

EMSS52.EMS117.EMS221.0

EMS106,EMS20.EMS115.EMS223,EMS72,0
EMS52,EMS205,EMS222
., EMS206.0
EMS7S EMS150,EMS102,EMS115,EMSS6,EMS
73,0

EMS167,EMS?3.EMS102.0

EMS215.0
EMS217.EMS203,EMS216,0
EM5221,EMS20,0

ST 2

MACRO v04,00

100107

100713

100713
100770

100770
101115

100126
100135

000000
000000

100154
100203
100231

000009
100713
100713

3 071516

100305
100344

100501

100713

5 071530

100637

000000

FRROR MESSAGE

071410
2 071622
3
{ 071632
S 071436
1

7 071442

8 071446
8 071460
1 071472
P4 071504
4

TABLE

100713

4=-APR-B1

&
N
11:43:33 PAGE S4

EHTY:

EHTZ:

.WORD
.WORD

EHT1,STSH1,ST1SH2,STSHG,0
STSHT,STSHZ,STSH4,0

EHT1I0:
EHT111:

.WORD
-WORD

EH110,0
EH111,0

100770
100770

EHT114:
EHT223:
EHT256:

+WORD
.WORD
.WORD

EH114,0

100770
100770
100770

EHT336:
EHT337:
EHT344:

. WORD
.WORD
.WORD

EH336,STSHT,STSH2,STSH4, 0
EH337,STSH1,STSH2,STSH4, 0
EH344,STSH1,STSH2,STSHS, 0

EHT353:

.WORD

EH353,0

EH223,STSH1,STSH2,STSH4, 0
EH256,STSH1,STSHZ,STSH4, 0

(ZRMNBO RMOS5/3/2 F(TNL

"IRMNBO RM0S5/3/2 FCINL ST 2

ERROR MESSAGE

]

071534
071544

TABLE

101154

101250

4-APR-81

EDT1:
EDT2:

.WORD
.WORD

ED1,STSD1,STSD2,STSD4
STSD1,STSD2,STSD4

EDT110:
EDT111:

.WORD
.WORD

ED110
EDIT

101250

101266

071552
5 071554
6
4

? 071556
8 071560

9 071570
071600

2 071610
3
4 071622

101250

101266

EDT114:
EDT223:

. WORD
.WORD

ED174
ED223,5TSD1,STSD2,STSD4

101250

101266
101266
101266

EDT336:
EDY337:
EDT344:

.WORD
.WORD
.WORD

ED336,STSD1,STSDc,STSD4
ED337,STSD1,5TSD2,STSD4
ED337,STSD1,STSD2,STSD4,0

EDT353:

.WORD

ED353

101250
101250

101240

8 $
11:43:33 PAGE 55

MACRO v04.00

“IRMNBC RMGS/3/72 FOTAL

101351

101351
101351

-t

—

101351

NN
[V, 1V ]

16 671710

101335

101351

Sty

— e

071700

101340
101340

cC
5
11:43:33 PAGE S6
SF,STSF

101351

NN
W
IRV

—
—

W
W
IV IV

—

OO0

071670

4-APR-81

SEQ 024«

071660

071646
071650

—

071642
07" 644

OO0

071624

071634

MACRO v04.00

TABLE

WA 2OV NN
NN 2

MESSAGE

O
-

FRROR

ST 2

107351

101351

.,STSF ,STSF ,STSF

EFT336:
EFT337:
EFT344:

.
.

EFT353:

336 .STSF,STSF,STSF

EF 336 .STSF,STSF STSF
EF 336 .STSF ,STSF ,STSF
EF114

IRMNBO RTM0S5/3/72 F(TNL

FREJR MESSAGE

STRINGS

TST 2

MACRO v04.00

3071712

127

5 071776

125

7
8
9
10

°C3
103
104
107

4 071761
6 072061

17
12
13
"4
15
16
17
18
19

072104
072134
072201
072246

072310
072321
072362
072373
072404
072426
072456
072516
072541

20 C72564
21 072600
22 072626

23 072655
24 072672
25 072713
26 072724
27 072734
28 072763
29 073012
30 073040
31 073111
32 07314C
33 073167
34 073215
35 073244
36 073272
37 073321
38 073350
39 073423

40
41
42
43
44
45
46
47
48
49
50
51

073466
073515
073544
073573
073621
073631
073643

073665

073714
073771
074017

074032
074061
074077
076125
074143
56 074211
57 074261

52
53
56
55

117

EMS1:

_ASCIZ

@WRONG UNIT SELECTED

116

101

EMS3:

LASCIZ

QUNAVAILABLE °‘DVA'' (RMCS1, BIT 11) @

117
17
122
117

115
116
111
040

EMSS:
EMS6:
EMS7:
EMS10:

.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ

125
114
101

123
102
117

EMS22:
EMS23:
EMS24:

.ASCIZ
.ASCIZ
.ASCIZ

104
101
114
120
103
111
106
103
103
116
130
126
103
10i
122

EMS27:
.ASCIZ
EMS30:
.ASCIZ
EMS31:
_ASCIZ
EMS32:
_ASCIZ
EMS33: ° _ASCIZ
EMS34:
LASCIZ
EMS35:
L.ASCIZ
EMS36:
.ASCIZ
EMS37:
.ASCIZ
EMS40:
_ASCIZ
EMS41:
_ASCIZ
EMS42:
_ASCIZ

122

116

117

042
042
042
042
124
104
101
1
m
104
104
104

104
042
1M1
103
104
104

SEQ 0267

ERROR MESSAGE

105

102
(42
042
104
103
107
123
042
042
042
127
042
042
042
042
042
042
042
110
106

D
5
11:43:33 PAGE 57

.SBTTL
104

"
106
115
103
102
042
124
123
127

4-APR-81

116
125
101
117
125
115
122
110
117

11
131
104
124
127
125
127
122
115
104
105
104
115
104
110
105
117

1¢6
116

126
116
123
116
123
103
101
117
122

123
114

m
117
123
120
110
105
124

101
120
113
111
105
126
040

116
125
101

126
122
124

116

117
101
120
123
117
101
125

103

105
126
107
040
115
124
122

EMS2:

EMS4:

EMS11:
EMS12:
EMS13:
EMS14:
EMS15:
EMS16:
EMS17:
EMS20:
EMS21:

EMS25:
EMS26:

EMS43:
EMS44:
EMS45:

.ASCIZ
_ASCIZ

_ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
_.ASCIZ
.ASCIZ
_ASCIZ

.ASCIZ
.ASCIZ

_ASCIZ
_ASCIZ
_ASCIZ

EMS46:
EMS47:
EMS50:
EMS51:
EMS52:
EMS53:
EMSS54:
EMS55:
EMS56:
EMS57:
EMS60:
EMS61:

.ASCIZ
_ASCIZ
.ASCIZ
_.ASCIZ
.ASCIZ
_ASCIZ
L.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

EMS66:
EMS67:

.ASCIZ
_ASCIZ

EMS62:
EMS63:
EMS64:
EMS65:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

STRINGS

QDEVICE WENT Q@

(RM(SZ2, BITS 0-2) @

GNONEXISTENT °NED'' (RMCS2,

BIT

12)

QCOMMAND NOT COMPLETED, a
aCONTROLLER NOT READY (RMCS1, BIT 7) a
QDRIVE NOT READY ‘DRY'' (RMDS, B8IT 7) 3
@GO NOT RESET ''GO’’' (RMCS1, BIT 0) @
QINVALID @
QFUNCTION CODE (RMCS1, BITS 1-5) a
a@MASSBUS a
SCONTROL a
aBUS PARITY ERROR a3
@'MCPE'’' (RMCS1, BIT 13) a
QTRANSFER ERROR (RM(CS1, BIT 14) a
@SHOULD NOT BE SET a
QWORD COUNT (RMWC) 3

aBUS (RMBA) 3
@'LBT'' (RMDS, BIT 10) @
@''AOE’’ (RMER1, BIT 09) a

aDISK (RMDA) a
QCYLINDER (RMDC) a
QADDRESS @
QSTATUS a
a@'WLE'' (RMER1, BIT 11) a
@ UPE'' (RMCSZ2, BIT 13) a
Q'WCF'' (RMER1, BIT 5) a
QWRITE CHECK ERROR-'WCE'' (RM(SZ2, BIT 14) @
@' 'MDPE’' (RMCSZ2, BIT 8) a
a@'DCK'' (RMER!, BIT 15) a
o' ECH'' (RMER1, BIT 6) a
a@'DLT'' (RMCS2, BIT 15) B
a'MXF'' (RMCSZ2, BIT 9) 3
@'DTE’’ (RMER1, BIT 12) a
@ HCRC'' (RMER1, BIT 8) a
@HEADER COMPARE ERROR 'HCE'' (RMER1, BIT 7) a
oFORMAT ERROR 'FER'' (RMER1, BIT 4) a

@''IAE'' (RMER1, BIT 10) a
@' 'OPI'' (RMER1, BIT 13) a
a@''SKI'' (RMER2, BIT 14) a
Q@'PIP'' (RMDS, BIT 13) a
ATHE RM a
QDETECTED @
@AT AN UNEXPECTED a

QINCORRECT DATA DURING a

@INVALID COMMAND ERROR ''IvC'' (RMER2, BIT
@DURING DATA TRANSFER @
QDATA READ a

a@DOES NOT COMPARE WITH a
QDATA WRITTEN 3
a'PAR'' (RMER1, BIT 3) a
@IS INCORRECT @
aCOMPOSITE ERROR 'ERR'’ (RMDS, BIT 14) a
@DATA PARITY ERROR 'DPE'* (RMERZ2, BIT 3) a
QDURING SEEK COMMAND a

12)

JHMNBO KMOS/3/2 FCOINL

FRRZR MESSAGE

<8 074306
59 074320

A0 076333
61 0746343
€2 174360
53 074377
64 0746405
£5 074436
66 074464
€7 074512
68 074540
09 074567
70 074576
71
72
73
76
75
76
77

074625
074654
074673
074722
074733
074775
675017

78 075047

79 075073

STRINGS

11
105

11
104
104
114
104
042
042
042
104
105
042
042
110

@IS RESET a
QERRONEOUS a

EMS72:
EMS73:
EMS74:
EMS75:
EMS76:
EMS77:
EMS100:
EMS101:
EMS102:
EMS103:
EMS104:

.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
L.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

EMS113:

015

012

000

EMS115:

._ASCIZ

042

117

042

114 (076474

LASCIZ
_ASCIZ

EMS70:
EMS71:

_ASCIZ
.ASCI]
ASCIZ
_ASCIZ

116

120
116
117
116
122

12¢

114
105

040
104
104
123
122
115
114
114
122
122
102

11:43:33 PAGE

104
110
124
110

102

101
127
101
124

108 076337

076363
076405
Q76421
076441
076457

123
11
11
117
125
122
m
111
125
122
114

040
122

125

117

116

4-APR-8'

EMS105:
EMS106:
EMS110:
EMS111:
EMS112:

124
106
116
103
102
103
105
101
115
105
105
115
116
125
103
122
104
104
115
042
104
042
125
042
123
117
040

109
170
111
112
113

123
122

MACRO v04.00

123
101
123
104
105
040
105

80 075076
81 075126
82 075150
83 0757
84 075234
85 075271
86 075334
87 075366
88 075431
89 075474
90 075533
91 075571
92 075631
93 075655
94 975700
95 075742
9 076005
97 076032
98 076067
99 076110
100 076136
101 076153
102 076201
103 076211
104 076240
105 076257
106 076274
107 076313

TST 2

EMS114:

.ASCIZ
.ASCIZ

.ASCIZ

_ASCIZ

57-1

SEQ 0764

Q]S SET @
aDID NOT SET a
QDID NOT RESET a
a3LOST a
QDURING PACK ACK (OMMAND a
Q@'RMR'' (RMER1, BIT 2) a
@''ILR'' (RMFR1, BIT 1) a
@&''iLF'' (RMER1, BIT 0) a
@DURING SEARCH COMMAND 23
QERROR a
a'LBC’' (RMER2, BIT 10) 3

@'LSC'" (RMERZ, BIT 11) 3
QHEADER ERRORS a
Q@BUS TIMEOUT (04 TRAP) a
QADDRESS a
QWHEN READING/WRITING RH REGISTERS 3
QAT THE FOLLOWING a
QTHE SELECTED DEVICE IS @

QNONEXISTENT DEVICE a
<CR><LF>

110
101
117
17
125
117
122
124
10
103
103
101
117
114
11,
"1C
12¢
122
105
115
122
104
116
125
11C
106
126

105
117
126
116
123
116
122
124
111
103
103
111
124
111
116
057
111
111
104
117
111
126
123
116
117
106
117

EMS116:
EMS117:
EMS120:
EMS121:
EMS122:
EMS123:
EMS124:
EMS125:
EMS126:
EMS127:
EMS130:
EMS131:
EMS132:
EMS133:
EMS134:
EMS135:
EMS136:
EMS137:
EMS140:
EMS141:
EMS142:
EMS143:
EMS144:
EMS145:
EMS146:
EMS147:
FEMS150:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
._ASCIZ
,ASCIZ
._ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

QTHE MASSBUS CONTROLLER 3
QFAILED TO DETECT a
aNOT AN RM05/3/2 &
@CONTROL STATUS REGISTER 1, RM(S1, @
a@BUS ADDRESS REGISTER, RMBA, a
@CONTROL STATUS REGISTER 2, RMCS2, @
QERROR REGISTER 1, RMER1, a
QATTENTION SUMMARY REGISTER, RMAS, a
QMAINTENANCE REGISTER #1, RMMR #1, @
@ECC POSITION REGISTER, RMEC1, a
AECC PATTERN REGISTER, RMEC2, B
GMAINTENANCE REGISTER 2, RMMR2, a
@NOT INITIALIZED BY a
@UNIBUS INITIALIZE B
QCONTROLLER CLEAR, I.E.
BIT 5 OF @
@RH/RM ERROR CLEAR (RM(S1, BIT 14) 3
a@DRIVE CLEAR COMMAND @
aDRIVE STATUS REGISTER, RMDS @
aQMEDIUM OFF LINE @
a'MOL'' (RMDS, BI” 12) a
QDRIVE FAULT @
@' DVC'’' (RMERZ2, BIT 7) @
QUNSAFE a
@'UNS'' (RMER1, BIT 14) a
@SHOULD BE SET @
QOFFSET MODE a
@ VOLUME VALID a

126

EMS152:

.ASCIZ

@'VV'' (RMDS, BIT 6)

101
117
106
117
124

IRR

115

103
124
106
124
103

120

EMS151:

EMS153:
EMS154:
EMS155:
EMS156:
EMS157:

EMS140:
*

_ASCIZ

_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

@'OM'' (RMDS, BIT 0)

@PACK ACK COMMAND o
aNOT SET BY a
QOFFSET COMMAND a
aNOT RESET BY @
QRTC (OMMAND @

QRIP COMMAND @

JRMANBO RMGS/3/2 FCTNL

FRROR MESSAGE

‘15 0765171
116 076541

STRINGS

117

104

119 076634

103

©"8 076565

TST 2
106,
125

MACRO v04.00
106
id2

123

040

076646
076662
076707
076734
076763
077016

125
122
042
127
105
116

116
105
101
110
122
117

105
103
1264
105
122
116

127 077053
128 077061
'29 077107

104
104
042

101
125
17

131
132
133
*36
*35
136
*37
138
*39
'40

103
104
104
111
042
105
127
042
127
127

101
m
125
116
127
130
111
107
122
101

120

122

146 077604
‘47 077637
148 077657

114
123
102

117
105
1

'S0 077760

116

120
121
*22
123
*24
125

126 077036

130 077136

077160
077175
077243
(77273
077206
077334
07736
077373
077420
077431

61 Q77647
142 Q77472
43 077515

Te Q77533

'45 077554

‘w9 077727

"S1

100035

122

120
127
123

104

131

114

4-APR-81

EMS161:
EMS162:
EMS163:

EMS164:

_ASCIZ
_ASCIZ
.ASCIZ

116

040

EMS177:

125

101

040

11¢

117

105

.ASCIZ

EMS174:
EMS175:
EMS176:

EMS173:

122
101
105

.ASCI1

.ASCIZ
.ASCiz
_ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ

103

116
101
122
103
122
105
126
117
111
123

_ASCIZ

EMS165:
EMS166:
EMS167:
EMS170:
EMS171:
EM5172:

105

124
122
120

_ASCIZ

11:43:33 PAGE 57-2

SEu 0265

SOFFSET REGISTER (RMOF) a
: SUNUSED>
QDURING RECALIBRATE a

@IS INTERMITTENT OR DRIVE DIDNT DROP ON a
QCYLINDER o

GUNEXPECTED @
QRECALIBRATE COMMAND a
@' ATA'' (RMDS, BIT15) a
QWHEN READING REGISTER @
QERROR REGISTER #2, RMER2, @
QNONRECOVERABLE 3
QRECOVERABLE

aDATA @
QDURING WRITE COMMAND @
Q'OPE'' (RMFR2, BIT 13) 3
QIN WRITE

PROTECT

EMS200:
EMS201:
EMS202:
EMS203:
EMS204:
EMS205:
EMS206:
EMS207:
EMS210:
EMS211:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

117

EMS215:

,ASCIZ

@PROGRAM TIMEOUT

117
101
106

EMS217:
EMS220:
EMS221:

.ASCIZ
.ASCIZ
.ASCIZ

@LOOK AHEAD REGISTER,RMLA, a
QSEARCH COMMAND @
@BAD SECTOR ERROR 'BSE'' (RMER2,

10"

EMS223:

.ASCIZ

GHEADER COMPARE

117
123
105

122

106

116

EMS212:
EMS213:
EMS214:

EMS216:

EMS222:

EMS224:

.ASCIZ
_ASCIZ
_ASCIZ

.ASCIZ

.ASC]2Z

Q@CAN NOT SET 3
Q@DIAGNOSTIC MODE 'DMD'' (RMMR1, BIT C)
@DURING DIAGNOSTIC MODE a
@QINCORRECT @
@ WRL'' (RMDS, BIT 11) a
@EXECUTED @
@WITH COMP ERROR SET @
@''GO'" (RMCS1, BIT 0) a
QWRITING @
aWAS RESET BY @

a@PROGRAM INTERRUPT @
aWAS NOT GENERATED @
QSEEK COMMAND @
a

QDURING LOOK AHEAD

TEST

@A DATA TRANSFER COMMAND a
INHIBIT

BIT

15)

‘H(I'* (RMOF, BIT

()

ANONFXISTENT MEMORY 'NEM'® (RMCSZ2, BIT 11)

JRMNBO RMOS/ 372 FiTNL
FRRGR MESSAGE STRINGS
'

100107

TST 2

MACRO v04.00

4-APR-81

17:43:33 PAGE

040

125

122

12C
123
115

ERY:
EH110:
EW111:

.ASCIZ
.ASCIZ
_ASCIZ

QEXPCTD
RECEVDD
@BUSADRa
@ RMCS2
RMCS a

100154
100203
100231

122
105
105

_ASCIZ
L.ASCIZ

GQRECEVD
QEXPCTD

124

103
120
120

EM114:
EH223:

123

105
130
130

10 100305

10?7

104

€EH336:
EH337:

12 100442

105

130

101
103
137

15 100501
1€ 100541
17 100577

122
137
105

115
137
130

105
137

EH344:

;8 100656

074

130
103

120
122

EH353:

21
22
2%
26
25
26

040
040
040
040
040
040

122
040
122
040
122
122

115

105

130

Z 100135

5
¢
7
g

2 100126

100257

11 100344
12 100403

18 100637
100713
100760
100770
101035
101057
101115

102

122
137

105

115
137

101

EHZS6:

040
040
115
115

QEXPCTID
@&STATUS

STATUS

DULPRla
DATAa

RGSTRA<CRLF>
INDEXa

.ASCIZ
.ASCII
LASCIT

@QGDADRS
GDDATA
QRMCS2
STATUS
@
.

BDADRS
BDDATA]
FAILING
DATA@<(CRLF>
o
@<CRLF>

_ASCI]
LASCII

QRMERT
@

HEADER
WORD

.ASCII
LASCIZ

QEXPCTD
RECEVDR<CRLF>
Q<CRLF> RMLA
RMLA

STSH1:

L.ASCI]

@ RMCS1

RM(S2

STSHZ2:

ASCI]

@& RMWC

RMBA

120

L.ASCII
LASCIZ

SNGPRT
RECEVD
RECEVD

LASCIZ

STSH3:

sgsgc:
.EVEN

.ASC1Z

LASCIZ
ASCIZ
.ASCIZ

LASCIZ

QFEXPTYD

"RETEVD

STATUS

QFXPTTYDTM"RETEVD

RMASa

BIT"""ADRES3a

NUMBER

RMDS

RMDA

@
RMECT
RMEC2a
& RMDA
RMD C
RMOF

@ RMMR1

RMMR2

RMDT

FAILINGR<CRLF>
BITa<CRLF>

POSITONS
RMOF

QMERT

RMER2a

RMOF

RMD(a

RMLAD
RMSNa

JRWNBC RMO5/3/¢ FLTNL

o ol

T
T
De I

NN
AN OO0
YO NN

FRROR MESSAGE STRINGS
10115¢

101162

001140

TST 2

MAIRD v0a.00

001'42

00000C

001176

000000

101166

001276

001174

(00000

101174

01364

001176

Q001142

001174

101214

001134

101226

&D1-

«-APR-B1
.WORD

H
5
11:43:33 PAGE 59
$GDDAT,$8DDAT,Q

£D110:

.WwORD

$RASE.0

001200

ED114:

.WORD

RMDT] ,STMP1,8$TMP2,0

001140

001136

ED336:

.WORD

$GDADR,$GDDAT,$BDADR,$8DDAT,)

1072640

001140

001142

001174

001444

ED337:

ED353:

.WORD

.WOR>

$GUDAT,$BDDAT,S$TMPQO,$TMP1,0

$GDDAT,$8DDAT,RMOFO,0

101250

001336

001346

001350

STSD1:

.WORD

RMCS11,RMCS2],RMDS],RMER1T],RMER2]
,RMAS],O

001370
001364

STSD3:
STSD4:

101206

01266
01302
01306
01320

CN1140

001340
001404
001344
001362

001342
000000
001372
GO01376

001344

ED111:
ED2?3:

STSD2:

.WORD
.WORD

.WORD
.WORD
.WORD
. WORD

SIMPO.$TMP1,0
$GDDAT ,$BDDAT,$TMP0D,0

RMWCI,RMBAI,RMDAI,RMOF
I ,RMDC],RMECTI
RMEC21,0
RMDA],RMDCI,RMOF],RMLA],Q
RMMR1],RMMRZ2I,RMDT],RMSN],0

JRMAE( RMOS/372 FUTINL

FRROR MESSAGE

10133

2 10133
3 101335

STRINGS

000

000
00

TST 2

000
000

MACRD v04.00
EF110:

0,0
0,0,0

.BYTE

0,0,0,0,0

2 101344

000

000
000

000

€f337:

7 101351

000

STISsF:

.BYIE
.BYTE

000

00C

.BYTE

I
5
11:43:33 PAGE 60

EF111:
EF116:

000

4 10130

4-~APR-B1

EF336:

.EVEN

.BYTE

.BYIE

0,0.0,0

0,0,0,0,0,0,0

ToT 2

MACRC

101360

040
040
040
040
040

055
061
061
061
061
061

g B
B
B

e
g
g Bt Bt Bt
S

S
B
g B

Bg Bt B
g B

g Bt
g
g
g

By Pt Bt
g Dy B

g By
g Dot B
Bt
B

g Bmep
By Gy

g by By B

Sy Do
B
g G

B
bt S
S

055

g Sy S

105

Bt B

Bt By

055

064
065
066
067
060
061

LASC
LASC
LASC
.ASC
.ASC
.AS(
LASC
LASC
LASC
.ASC
.ASC
.ASC
.ASC
.ASC
.ASC
.ASC
.ASC
LAS(
LASC

bt B

120
055
127

063

.AS(
-ASC
.ASC
.ASC
.ASC
.ASC

062
062
062
063
063

067

060
061
062

.ASC
.ASC
.ASC

By By

055
123
055
040
040
040
040
040

062
062
062
062

063

.ASC

ASC
LASC

g Do

117

061
061
061
061
061
061
061
061
062

LASC
LASC
.ASC

200

055
061
062
063
064
065
066
067

.ASC

124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124

055

101476

714

g B

101400

101362

HELP:
LAS(
.ASC

by S

101361

200
200

FOR GENERAL

BLKW
BLKW

DATA

258.
258.

FOR MANUFACTURES

.WORD
BLKW
.WORD

TRAMSFERRS

0,0
256.
-1

16 BIT MODE

BAD

SECIOR FILE

;2 HEADER WORDS
;256. WORDS OF DATA
JTERMINATOR IF FILE IS FuULL

.WORD

0.0

;2 HEADER WORDS

.WORD

-1

;TERMINATOR

BLKW

256.

:256. WORDS OF DATA
IF

FILE

IS FULL

. “BUFFER

OOO0O QOOOOOO—
ONON— — wd d b D =3 YN
nNN=O— —_— o ed b D b NN

101360

J
5
11:43:33 PAGE 61

: STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE

1772777

USRF]IL:

105402

000000

104376

177777

MFGFIL

104374

; STORAGE

000000

006000

103370

104402

4&-APR-81

BUF ONE :
BUF TWO:

102364

103374

v06.00

; STORAGE
BUFFER:

101360
101360

[elole)
[odeal’d
[¢
3%,
P 3

w W=

OO0

NN NN R

S S

NP NI NN SO0 NN

NNy -

“JRMNBC RMOS/372 FINL
ERROR MESSAGE STRINGS

ALIST OF

TESTSa<(RLF>

R
s Ta<CRLF>

ol
aT2
ar3
aTé
aTs
alé
al7

CONTROLLER ACCESS TESTa<(RLF>
FORMAT ZEROSa<CRLF>
ZERO FILL TESTa<CRLF>
FORMAT (CHECK ZEROSa<(RLF>
FORMAT CHECK ZEROS W/ WCE ERRORQ<CRLF>
FORMAT ONESa<CRLF>
FORMAT CHECK ONESa<CRLF>

arll
all?
al13
arts

FORMAT
FORMAT
FORMAT
FORMAT

aTl10

alls
arlé
ari7
al20
all
ar22

alres3
alrzé

ares
ar2é
are’
ar30
8221F

<CRLF>

FORMAT CHECK ONES W/ WCE ERRORS®<(RLF>
MULTIPLE SECTORS@<CRLF>
W/ HEAD SWITCHING@<CRLF>
W/ MID TRANSFER SEEKa<CRLF>
W/ IMPLIED SEEK@<CRLF>

FORMAT EACH SECTOR ADDRESSa<CRLF>
FORMAT EACH TRACK ADDRESSa<CRLF>
FORMAT PRIME CYLINDERS®<CRLF>
READ HEADER & DATA IN LAST SECTOR@<CRLF>
READ HEADER € DATA W/ AOE ERROR@<CRLF>
READ INVALID SECTOR ADDRESSa<CRLF>

READ INVALID TRACK ADDRESS@<CRLF>
READ INVALID CYLINDER ADDRESS@<(CRLF>

FORMAT AT OFF SETa<CRLF>
IVC FORMAT TESTA<CRLF>
FORMAT ERROR TESTa<(RLF>
FORMAT HCE, FIRST HEADER WORDa<(CRLF>
FORMAT HCE, SECOND HEADER WORDa<(RLf>

@OPERATIONAL SWITCH SETTINGSa<(RLr>
e a<CRLF>
ASWITCH
USE@<CRLF>

@=-==== mmem—emmeac—oceceeeo 8<CRLF>

?
a
a
a
a

15
14
13
12
11

HALT ON
LOOP ON
INHIBIT
3<CRLF>
INHIBIT

ERROR@<CRLF>
TEST@<CRLF>
ERROR TYPEQOUTS@<CRLF
>
ITERATIONS@<CRLF>

000200

&4-APR-81

K
5
11:43:3% PAGE 61-1

.END

200

L o)
e

Q=MW
H NNV O

ot Bt

e e L
Y

.ASC
.AS(
.ASC
LASC
-ASC
.ASC
.AS(
LAS(
.ASC
.ASC
.ASC

061
040
040
040
040
040
040
040
040
040
040

040
040
040
040
040
040
040
040
040
040
040

et Bt By

SEQ 0270
[>F-3X-JR-DN-JN-DR-3N-JN-34-V]-3)

040

MACRO v04.00

S8 103215
59 103241
60 103265
61
103324
62 103340
63 103353
64 103366
65 103401
66 103413
£? 1034
25
68 103437
oY

TST 2

St bt St et Pt B

JRMNBC RMOS/3/2 FCINL
ERROR MESSAGE STRINGS

BELL ON ERROR@<(CRLF>
LOOP ON ERRORa<CRLF>
LOOP ON TEST IN SWR<7:0>a<(RLF>
TN128a<CRLF>
TN6LA<CRLF>
TN32a<CRLF>
TN16a<CRLF>
TNBa<CRLF>
TN4A<CRLF>
TN2a<CRLF>
TN1Q<CRLF>

ATESTN-

100000

00000C

100000
101360

nn
Wi

071544
071560
071570
071600

071610
071622
154

000174
100000
DMD
000001
DPE
000010
DPEH]
040000
DPELO
020000
DPR
000400
DRIVES
064520
DRQ
004000
DRVCLR= 000010
DRVSTS
050700
000200
DRY
DSWR
DTASTS
DTE
DTO
DULPRT
DVA
Dv(
EARLY

177570

051502
010000
010000
024024
004000
000200
065212

EMS1
EMS10Q

EMS100
EMS101

EMS102
EMS103
EMS104
EMS105
EMS106
EMS11
EMS110
EMS111
EMS11?2
EMS113
EM3114
EMS115
EMS116
EMS117
EMS12

100501
100637

071712

072246
0746464

074512
074540
074567
074576
074625
074654
072310
074673
074722
074733
075017
075047
075073
075076
075126

072321
075150
075171
075234
07527
075334
075366
075431
075474
072362
075533

EMS120
EMS121
EMS122

EMS123
EMS124
EMS125
EMS126
EMS127

100000
040000
002000
100000
177570
020000
043672
001156

DBCK
DBEN
DBL
DCK
DDISP
DEBL
DEVSEL
DISPLA
DISPRE

DLT

lvlwlolo
oY Yoy
~N DT

001520
001522
002040
0645462
007476
035342
043460
CNSLOT
064025
CNSLOZ2
064035
CNSLO3 064077
CNSLO4
064106
CNSLO?7 064142
CNSLO8
064304
CNSLO9 064305
CNTCLR
045344
COMMA
063445
000100
CONT
CPSAVE
060150
CR
000015
CRLF
000200
001326
CTLFG
CYLMSK= 001777

mmmMmmmmmm

104410

EH344
EH353

EMS13
EMS130
EMS131
EMS132
EMS133
EMS134
EMS135
EMS136
EMS137
EMS14
EMS140
EMS141
EMS14?2
EMS143
EMS144
EMS145S
EMS145
EMS147
EMS15
EMS150
EMS151

EHT353
EH]

EH110
EHIN
EH114
EH223
EH256

EH336
EH337

EMS152
EMS153
EMS154
EMS155
EMS156
EMS157
EMS16

075571
075631
075655
075700
075742
076005
076032

’

000004
000010
000020
000040
000100
000200
000400
0010C0
064563
064562
064561
064560
061024
061026
000014

001330
061027

020000
000109
004000
001000
071534
071552
071554
071556

100000

101360
102364
004000
002000

unn

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

BUF ONE
BUF TWOD
cc
=
=
(H
{HGADR
CHRCNT
CKSWR CLKADR
CLKVCT
=
CLR
CLRSTS
CMNSTA
CMPBUF
CMPERR

61-2

0ot

|
T B
J N
O
T I
S
S
T
1
T
¥
T
T
L

120254

11:43:33 PAGE

no
o

BOTADR
BOTFLG
BPTVEC
BSE
BUFFER

hnt

N~
an

BIT4
BITS
BIT6
BIT7
BIT8
BIT9
BLNKS1
BLNKS?2
BLNKS3
BLNKS4

000377
064666
000000
000000

4=-APR-81

QOOOOOO

100000

000000
000040
000001
000200
000100
000004
001516
001514
000000

BIT3

Y IO T I

000000

000001
000000
000000
000000
063434
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
€00000
000000
001000
000000

8800
8801
BBO?2
8303
B804
BB0S
BBO6
8607
8808
8809
BITO
81700
BITO1
BITOZ
BITO3
BIT04
BITOS
BIT06
BITO7
BITO8
BIT09
BIT1
BIT10
BIT11
BIT12
BIT13
BIT14
BIT15
BIT2

AMADR3AMADRS
=

000000

AVECT

A6
Al7
BACK
BADSCT
BAD TMO
BA]

T I
T O
O
S
Y
T
§
T

ALL
AMADR1AMADR?2=

000000
000000
000000
000000
000000
000000
000000
000000
£00000
000000

AVECT

AENV
AENVM
AFATAL

ADDW9

ADEVC(CT
ADEVM
ACR

LT S

ADDW1

ADDW1
ADDW?2
ADDW3
ADDWS4
ADDWS
ADDWE
ADDW?7
ADDWS

VL N
=
7 I T I TR TR T

ADDW10
apDW1
ADDW1
ADDW1

AUSWR

ADDW1

046362
000000
000000
000000
000000
000000
000000
000000

ADDWO

- 000000

~(KSTS
A{PUOP

A(DW2

ATNMSK
-

ATNTBL
AUNIT

= 000000

176700

ABASE

A(DW!

MACRO v04.00

TST 2

thond

JRMNBO RMOS/372 FCTINL
SYMBCL TABLE

072373
076067
076110
076136
076153
076201
026211
076240
076257
072404
076274
076313
076337
076363
076405
076421
076441
076457
072426

JRMNBO RMOS/3/2 FCINL

SYMBOL

TABLE

TST 2

MACRZ v04.00

EMS160
EMS161

076474
076511
076541
076561
076565
076646
076662
076707
072456
076734
076763
077016
077036
077053
077061
077107
077136
071761
072516
77160
077175
077243
077273
077306
077334
077346
077373
072541
077420
077431
077447
077472
077515
077533
077554
077604
072564
077637
077657
077727
077760
100035
072600
072626
072655
072672
072713
071776
072724
072734
072763
073012
073040

EMS40
EMS41

073215
073244
073272
073321
073350
073423
073466
073515
072104
073544
073573
073421
073631
073643
073665
073714
073771
072134
074017
074032
074061
074077
074125
074143
074211
074261
072201
074306
074320

EMS162
EMS163

EMS164
EMS165
EMS166

EMS167
EMS17
EMS170
EMS171
EMS172
EMS173
EMS174
EMS175
EMS176
EMS177
EMS?2
EMS20
EMS200
EMS201
EMS202
EMS203
EMS204
EMS205
EMS206
EMS207
EMS21
EMS210
EMS211
EMS212
EMS213
EMS214
EMS215
EMS216
EMS217
EMS22
EMS220
EMS221
EMS222
EMS223
EMS224
EMS23
EMS24
EMS25
EMS26
EMS27

EMS3
EMS30
EMS31
EMS32
EMS33
EMS34
EMS35
EMS 36
EMS37
EMS4

073111
073140
073167
072041

EMS42
EMS43

EMS44

EMS4S

EMS46
EMS47
EMSS
EMSS0
EMS51

EMSS52
EMS53
EMS54
EMS5S
EMS56

EMSS7
EMS6
EMS60
EMS61
EMS62
EMS63
EMS64
EMS65
EMS66
EMS67
EMS7
EMS70
EMS71
EMS?7?2
EMS73
EMS74

074333

074343
074360
EMS75
074377
EMS76
074405
EMS77
074436
EMTVEC= 000030
EMT1
065324
EMT10
065374
EMT100 066372
EMT101
066410
EMT102 066426
EMT103 066436
EMT104
066450
EMT105
066466
EMT106 066476
EMT107 066506
EMT11
065400
EMT110 066526
EMT111
066540
066546
066554
066570
066576
066606
066616
065404
066626

4-APR-81

EMT12]
EMT122
EMT23
EMT 124
EMT12S
EMT126

EMT127
EMT13
EMT130
EMT131
EMT132
EMT133
EMT 134
EMT135
EMT136
EMT137
EMT14
EMT140
EMT141
EMT142
EMT143
EMT144
EMT145
EMT146

EMT147
EMT15
EMT150
EMT151
EMT152
EMT153
EMT154
EMT155
EMT156
EMT157
EMT16

EMT 160
EMT161
EMT162
EMT163
EMT164
EMT165
EMT166
EMT167
EMT17
EMT170
EMTIZT
EMT172
EMT173
EMT174
EMT175
EMT176
EMT177
EMT?2
EMT20
EMT200
EMT201
EMT202

M5
11:43:33 PAGE 61-3

066636
066646
066656
066666
066676
066706
066720
065412

066732
065744
066756
066770
067002
067014
067026
067040
065424
067050
067060
067070
067100
067110
067120
067130
067140
065432
067150
067160
067172
067204
067222
067240
067252
067264
065440
067276
067306
067320
067332
067342
067350
067356

067364

065450
067372
067404
067414
067424
067434
067446
067454
067462
065330
065460
067464
067476
067510

EMT203
EMT204
EMT205
EMT206
EMT207
EMT21
EMT210
EMT21
EMT212
EMT213
EMT214
EMT215
EMT216
EMT217
EMT22
EMT220
EMT221
EMT222
EMT223
EMT224
EMT225
EMT226
EMT227
EMTM23
EMT230
EMT231
EMT232
EMT233
EMT234

EMT235

EMT236
EMT237
EMT24
EMT240
EMT241
EMT242
EMT243
EMT244
EMT245
EMT246

EMT247
EMT25
EMT250
EMT251
EMT252
EMT253
EMT254
EMT255
EMT256
EMT257
EMT26
EMT260
EMT261
EMT262
EMT263
EMT264
EMT265

067522
067534
067552
067562
067572
065470
067604
067612
067626
067642
067652
067672
067704
067714
065500
067724
067734
067744
067754
067764
067766
067770
067772
065510
067774
067776
070000
070002
070004
070006
070010
070012
065520
070014
070016
070020
076022
070024
070026
070030
070040
065530
070052
070066
070074
070102
070120

070130
070140
070150
065540
070162
070174
070214
070224
070234
070254

EMT266
EMT267
EMT27
EMT270
EMT271
EMT272
EMT273
EMT274
EMT275
EMT276
EMT277
EMT3
£MT30
EMT300
EMT301
EMT302
EMT303
EMT 304
£°97305
EMT 306
EMT307
31
EMT
EMT310
EMT311
EMT312
EMT313
EMT314
EMT315
EMT316
EMT317
EMT 32
EMT320
EMT321
EMT322
EMT323
EMT324
EMT325
EMT326
EMT327
EMT33
EMT330
EMT331
EMT332
EMi333
EMT334
EMT335
EMT336
EMT337
EMT 34
EMT 340

EMT 341
EMT 342
EMT343
EMT 344
EMT 345
EMT 346
EMT347

V70274
070306
065550
070324
070340

070356
070374
070412
070430
070442
070456
065336
065560
070474

070514
070536
070550
070562
070574
070606
070616
065570
070636
070620
070662
070674
070714
070726
070740
070752
065600
070762
070772
071002
071010
071020
071032
071044
071062
065610
071074
071104
071116
071130
071146
071164
071204
071214
065620
071224
071236
071244

071256
071270
071302
071312
071326

ERTYO1
ERTYQ2

ERTYO3
ERTYO4

ERTYGS

o onn

nnaunuwnn

Hoannwnnonnnitnn

—

064326

o
T

)

X
o

TR TN T

100000

000200
000014
000001
064736
020000
020000
000200

p2)

115760
- 010000
004000
064547
000000
064460
064443
064405
100000

064342
063450
001000
000010
000010
001000
064554

—

([T

100000
000200

run

ninn

[gn]

5
MSDRVS
MSE
MSER
MSGDRV
MSHELP
MUR
MWD
MWP
VIXF

020000

000100
000400
001512
103370
000004
064676
000400
020000
010000
002000
000040
000002

000022
000022
000010
000020
000400
061072
061102
061170
061206
061214
002000
001000
000200
020000
177772
000240
002000
036766
000000
000040
000100
000140
000200
000240
000300
000340
177776
002000
177776
036240
001412
001553
= 000024
063441
047136
000070
104411
104412

p ol

nunn
W

po]

(=]

{
B
T
1 A
T
T
¥ T
¥

MSC

000076
000020
000001
000002
000004
000010
000100
010000
002000
002000
000012
064426
000004
004000
000002
001334
004000

Po]

ENRGDT
EQUALS
=
ERR
ERRNMB
ERROR =
ERRTYP
ERRVEC(C=
ERTYOO

066302
066320
066330
066350

000077
000100
000001
ILFO2
000002
ILF 24
000024
ILF26
000026
ILF 30
000030
000032
ILF32
000034
ILF34
ILF36
000036
1LF40
000040
ILF42
000042
ILF 44
000044
000046
ILF 46
ILF 54
000054
ILFS6
000056
1LF64
000064
000066
ILF 66
ILF74
000074
ILF 76
000076
000002
000050
000052
000054
= 000056
(00060
000062
000064
000066
000070
000072
ItRG74
000174
O

EMT?7
EMT70
EMT71
EMT72
EMT73
EMT 74
EMT7S
EMT76
EMT?7

000040
035104

104407
000200
002000
000400
101360
000011
002000
060152

HC
I
HCRC
HELP
HT
1AE

IBSAVE
1DXMSK
IE
ILF

004000
000020
000001
010000
064566
000077
000002
000004
000010
000020

035770
001336
001524
035704
000001

EMTE4
EMT6S
EMT66
EMT67

GENBUF
GET
GF TBUF
GETINX
GETSTS
GO
GTSWR
HCE

EMT63

065352
065756
065766
266000
066016
066034
066044
066056
066074
065360
066104
066122
066142
066156
06€160
066200
066220
066232
065366
066244
066254
066264

ESRC

FER
F IND
FMT16
FNCDTB
FNCMSK=
0
Fl
F2
F3
Fd

EMTS
EMTSO
EMTST
EMTS2
EMTS3
EMTS4
EMTSS
EMTS6
EMTS?7
EMT6
EMTS0
EMT6
EMT6E2

065720
065730
065740
065750

N
S
11:43:33 PAGE 61-4

4-APR-8'

SEQ 273

EMTGS
EMT4S
EMTSLH
EMTSLG7

MACRO v04.00

EMT4L?
EMT43

N LSNP XV 1V 1o

EMT4L0

EMT4

ssasess

EMTS

065630
071340
071356
071366
071372
071402
065640
065650
065344
065660
065666
065676
065710

KKXIRIS

EMT3S
EMT 350
EMT 351
EMT3S2
EMT353
EMT 354
EMT 36
EMT37

TST 2

" (RMNB0O RMOS5/3/2 FCTNL
SYMBOL TABLE

104413

000200
007670
000006
104415
000010
010000
040000
064676
000072
000020
000012
000016
001354
001430
000004
000050
001406
001462

001342
001416
RMCS1 = 000000
RMCS1]
001336
RMCS10
001412
RMCS2 = 000010
RM(CS21
001346
RM(CS20
001422
RMCS3 = 000052
RMCS3]
001410
RMCS30
001464
RMDA
= 000006
MDA]
001344
RMDAO
001420
RMDB
000022
RMDB]
001360
RMDBO
001434
RMD(
000034
RMDC
I
001372
RMDCO
001446
RMDS
= 000012
RMDSI
001350
RMDSO
001424
RMDT
= 000026
RMDT
!
001364
RMDTO
001440
RMECT ~ 000044
RMECT]
001402

RMBA|
RMBAQO

RMEC1O
RMEC?Z RMEC2I
RMEC20
RMER1 RMER11
RMER10
RMER?2 =
RMERZ2]
RMER20

001456
00C046
001404
001460
000014
001352
001426
000042
001400
001454
RMHR
= 000036
RMHR|
001374
RMHRO
001450
RMLA
- 000020
RMLAI
001356
RMLAO
001432
RMMR1
000024
RMMR11]
001362
RMMR10
001436
RMMR?2
000040
RMMRZ2]
001376
RMMR20
001452
RMOF
- 000032
RMOF
001370
|
RMOF
O
001444
RMR
000004
RMSN
000030

RMSN]
RMSNO

001366

001442

0L JO10

SC
= 100000
SCOPE =

SCTMSG
SCTMSx=
SCO
sC1
=
SC2
SC3
SC4
=
SEARCH=
SECERR
SEEXK
SEKSTS

063346
003700
00100
000200
000400
001000
002000

TR 1
TI T
T
T
B
T
T

Sw¢

SWé
SWS
Sw6
SW7
Sw8
SW9
SYSTAT

Sw3

UNS
040000
UNTMSK= 000007
UNTOFF
064477
UNTON
064510
UPE
USE

USRF IL
uo
ul
ul

000030
037620
000004
044104

SHUT
SHUTZ
SIZ2CLK
SK |
=
SNGPRT=

032142
062470
036460
040000
020024

START
START1
START?
STCORV
STKLMT=
STOP
STSD1
STSD2
STSD3
STSD4
STSF
STSH1
STSHZ
STSH3
STSHL
SWR
SWREG
SWO
SWw00
swQ1l
w02
=
Sw03 =

005432
005422
005436
055102
177774
057532
101250
101266
101306
101320
101351
100713
100770
101057
101115
001154
000176
000001
000001
000002
000004
000010

104406
104405
104401
104402
104404
104403

TYPSBN
TYPDS
TYPE
TYPOC
TYPON
TYPOS

Vv
W(
wCD

wCE
WCEHI
WCELO
WCF
WCH
wD
WH
WLE
WRL
XS1Z2
XXpP
Y

STACK = 001100
STANDA
(007020

ZEROS
$APTHD
SATY(C
$ATY]

SATY3

$ATYS
$AUTOB
$BASE
$BDADR

020000
040000
104376
000001
000002
0000*
000100
000040
000050
040000
010000
004000
000040
000052
000060
000062
004000
004000
006464
001332
064556
065000
001100

063124
063100
063106
063116
001150
001276
001136

$8DDAT
$BELL

001142
001212

$CDW
$CHAR(
$CFSWR

056760
061530

$8IN
$COW1

024666

nnaiwnunninnn

Swlé
Sw15

15127

7ST3
TST20
1S131

SAL

(000377
104414
000001
000C20
20002
M )04

025204
026116
026740
011130
027522
030672
011764
012554
013514
014334

15725

18126

TST4

SADMSK=
SAYREG=
=
SA1
SAT6
SA2
A/
=

11:43:33 PAGE 61-F

TSTS
1ST6
1S17

=%000007

000020
000040
000100
000200

R?7

= 000016
-2000006

Sw05
SwO6
Sw07
Sw08
Sw09
SWi
Sw10
SWi11
Sw12
SW13

RTC
R6

001414

= 100000
= 040000

Sw04

RGA
RQB

000002

001340

4-APR-81

SEa 0274

RMW(

RMW( |

TABLE

SYMBOL

MACRO v04.00

TST 2

JRMNBO RMOS/372 FITINL

055754
001302
001304

$SCMTAG
$CM3
$CM4
$CNTLC
$CNTLG
SCNTLY
$CPUOP
S$SCRLF
$DBLK
$DDW0
$ODW1

$0DW?
$DDW3
$DDWS
$DDWS
$DDWE
$ODW?7
$DEVCT
$DEVM
$DOAGN
$DTBL
SENDAD
SENDCT
SENULL
SENV
SENWM
SEOP
SEOPCT

001114
000009
000005
062426
062440
062433
001250
001”17
056172
001306
001310
001312
001314
001316
001320

001322
001324
001232
001300
032132
056162
032122
031760
032136
001242
001243
031724
031752
$SEOSP
031666
$ERFLG
001117
$ERMAX
001131
$ERROR
057560
S$ERRPC
001132
$ERRTB
001602
L
$ERT
001126
$ESCAP
001210
SETABL
001242
SETEND
001326
SFATAL
001224
$FFLG
063344
$FILLC
001172
$FILLS
001171
$GDADR
001134
$GDDAT
001140
$GET42 032112
$GTSWR
061620
$GT42P 032106
$HD
= 000000
$HIBTS
001100
$HIOCT
062612
$ICNT
001120
$ILLUP
063062
$INTAG
001151
$ITEMB
001130
SLF
001220
$LFLG
063343
001122
$LPADR

001124
001254
001260
001264
001270
004222
001252
001256
SMAMS
3 001262
SMAMSS
001266
$MBADR - 001102
SMFLG
063342
SMNEW
062456
$SMSGAD
001236
$MSGLG
001240
$MSGTY
001222
SMSWR
062445
SMTYP
001253
SMTYP2
001257
sMTYP3 001263
IMTYPS
001267
SMXCNT
057446
SNULL
001i70
SNWTST= 000001
$SOCNT
056424
$OMODE
056426
$OVER
057632
$PASS
001230
SPASTM 001106
$SPOWER
063070
SPWRDN
062722
SPWRMG
063056
SPWRUP
062774
SQUES
001216
SRDCHR
062072
SRDLIN
062162
SRDOCT
0462512
$RDSZ = 000010
$RESRE
055644
$SRMO?2
064366
$RMO3
064373
$SRMO5
064400

S$LPERR
SMADR1
$MADR?
$MADR3
SMADRS
SMAIL
SMAMS1
SMAMS
2

SRTNAD
$SAVRE
$SAVR6
$SCOPE
$SETUP$STUP =
$SVLAD
$SVPC
$SWR
$SWREG
$SWRMK
=
$SWO8T
$TESTN
$TIMES
$TKR

032134
055606
063066
056764
000137
177777

057376
000210
167400

001244
000000
057450
001226
001206
001162

IRMNBO RMGS/3/7¢ B UTNL

SYMBOL

TABLE

$TKINT
SIKINT
$TKQEN$'KQIN
$TKQOU

061220
061230
061227
061222
061224

$TKQSR
$7TKS

$TxSRV
$TMPC
.

ABS.

061226
001160

105604

ERROKS DETECTED:

MACRD vO4.00

$'MP1
$TMP2
$TMP3
$TMPSL
$IN
=

001176
001200
001202
001204
000032

$TPS
$TRAP

001164
062614

$TP8
$TPFLG

061300
001174

000000

75T 2

4-APR-81

001166
001173

000

001

+IRTUAL MEMORY USED:
61696 WORDS
( 241 PAGES)
CYNAMIC MEMORY AVAILABLE FOR
70 PAGES
TZRMNB Bl ,{ZRMNB/(-CZRMNB.DO(,(
ZRMNB, SYSMA( /M

C
6
11:43:33 PAGE 61-6

36Q 0275

$TRAFZ2
$TRP
=
$TRPAD
$TSTM
$TSTNM

062654
000016
062666
001104
001116

STYPEC
STYPEX
$TYPOC
S$STYPON
$TYPOS

056642
(056762
056226
(56242
056202

SVECTZ2
$XOFF =
$XON
=
$XTSTR
$SGE 4=

$TYPDS
$TYPE

(055756
056430

SUSWR
SVECT!

001246
001272

.$x

$TTYIN
$TYPAN

v62416
055707

SUNIT
SUNITM

001234
001110

001274
000023
000021
057006
000000

$$5w08= 000032
$OFILL
056425

= 001100

$OF JLL
SLOCAT
SAPTHD
SASTAT
SATY
$ATY?
$ATYS
SATY(C
$AUTOB
$BASE
$8DADR
$8DDAT

6-0#
6~0#
13-856
13-C34
6=0#
6=-0#

18-82+

25-64+
25-158
25=272+*
25-403+
2693~

29-68

31=32»
31-116*
33-65+
34-17>

$COW2
$(HARC

$CKSWR

$(M3
(M4

$CMTAG
$CNTLC

$CNTLG

SCNTLU
$CPUOP
$CRLF

$ORLK

$0DWO
$ODWi
$0DwWe

48-2#
68=-2#
(8-2%
10~28+
10=75

13-951
13-D97
13-430~

13-423n

24=49n
25-65+

25-170«
25=284«
25=417»
26-94

29-88«
31-34
31-117+
33-82+
34-19
3494»
35~204+
35-470~

45-1
45-1
45-1
6=04

6=0#
{3-1
39-1
6=-0n
6=-0n
6-0n

45-1
45-1n
45-1

10-48

43-1
39-1

25-330+
25-456*
26-138
29-130+
31-72~
32-41~
33-174»
34=50+
35-87+
35-301~
35550«

31-126*

25-108«
25=226%
25344+
25-470x
26=150
29-143+
31-81x
3257+
33-189+
34-57~
35116~
35-313«
36-46+

—d
b
e

LR]

59=~2
59-8
13-834*

—h

b
b

L R

13~->85

N'\"})NN
|}

13-232

P oW AW oW A o8

=
b

8
O

13=>41
4425
18-84+
13-B03+
24-110%

13-134

13-325

13-450
13-290

13-C21+

13-D22+
25-40*
25-141»
25-242+
25-362%
25-493«
27-53+
29-183+
31-94«
32-99+
33-240+
34-70~
35-163+
35-382+
36-98+

13-240

24=126+
25-109
25=227+
25=345+
25471+
26-151
29-168+
31-82«
32-71»
33205+«
34-60
35-135«
35-356+
36~62+

24=154»
25-140+
25-241»
25-361«

6~0

6-0

25492«

2739+
29-182+
31-84
32-85+
33-222«
3469+
35-149»
35-369+
36-78«

42-1
42-1
421

L2-1»
42=14

&2-1
42-1
42-1
L2-14
L2-1»

42-1
42-1
42-1
42-1#
Lo-1n

13-546
13-339

12-639
13-A46

13-763
13-B44

13-D35+

13-D48«
25-53»
25-156*
25-257+
25-388
26=34r
29-66*
29=-212+
31-104~
33-35¢
33-270%

13-£81+
25-54+
25-157+
25-271»
25-402+
26-92+
2067+
31-31«
31-106
3349+
34-16+

6-0n

25-41+
25-142
25~256~
25-387+
26=10+
29-37+
29-196+
31-103~

32-113»
33-254«
34-72
35-189«
35-395+
36-112+

3481+
35~190+
35-417x
59-1

34-82«
35-191
35-442~
59-6

45-1

41-1%

6-0

10-23

10-23
45-1

45-14

10-23

10-140
44-20

4461

11-20

11-28
44-104

11-62
44-114

45-1

f})'\)'})'\)'\)

ek kD
ed
—

F
Pl 2 W o

NN'})NN

b
b

30-15
13-753
13-758
24-93¢
25-107~
25-201+

13438+
24~50*
25-67
25-171x*
25-285x«
25-418~
26-120«
29-99»
31=44

41-1»
47-1

6-0#
10-23

13-32
13-=95

20-36
13-431»

41-1m
471

6-0#
6-0

4£5-1
11-33
13-:47

41-1
4514

6-0
6-0
6-0#
6=-0#

42-1#
42-14
L0-14
43-1
5-8#
48-2

59-10
43-1
38-14

38-1
6-0#
6=-0#

SEQ 0276

14-204

59-8
6=-0#

25-~203«
35-457+

)

62+
42-1
62-1
42-1

33-103~
34-28x%
34-103+
35-240*
35-483+
59-11
43-1
38-1x

34-84

BrLL
$8IN
$COW1

v01-05

—

14=20
42-1
42-1
421
42-1
22T
L2=-1a
40-1
42-1
5-8
(8-2
LB8~2#
41-1
(3-1
48-2

(CREF

L
R

$3Gt 14
$85408

TABLE

D
6
11:43:33 PAGE S~

4-APR-81

NNN'.\"\)N

REFERENCE

MACRO v04.00

ol ol o ¥ 0¥ o

"ROSS

TST 2

“IJRMNBO RMOS/3/2 FCINL

45-14

10-80
43-1
39-14

61-1
45-1

41-1
(5-1

“JRMNBO RMOS/3/2 FCTNL TST 2
MACRO v04.00
"ROSS REFERENCE TABLE (CREF v01-05 )

SENULL
SENV
TENVM
$EOF
$EOP(T
$ECSP
SERFLG
$£ RMAX
$ERROR
$ERRP(
$ERRTB
SERTTL
$SESCAP
$E TASL
$ETEND
SFATAL
$FFLG
SFILLC
$FILLS
$GDADR
$GODAT

16-204

43-1

11-63%

11-97»

11-98

43-1

63-1

13-735+
13=D49x

13-751+
13-D50+
24~-108+
25-106+
26~26+
26=149+

43-1

44-54

14-20
42-1x

14-20~
43-1

43-1+
43-1

48-2*
41-1
41-1
13-441

48-2+
41-1

32-39«
33-47~

33-173«
34-18+
35-65+
35-191
35-315+
35-455+
36-44+

13-741+
13-439«
13-D23+
24-76*
25-67
25-165+
26-134»
29-101»
31-59+
32-40~
33-48~
33-175+
34-19
35-66*
35-205+
35-323~
35-456+
36-45*

18-83+
13-445
13-p36+

24=90~
2584«
26-23+
26=136+
29-129+
31-70~
32-59+
33-64+
33-188+
34-31
35-86+
35-238+
35-355»
35-469+
36-76+

14-204

47-1
4-480

42+1
48-14

12-38

13-28¢

13-758
13-E£83»

13-804+
18-81»
26-125+

42=1%

13-422*
13-C23~
24-70%
25-66*
25-158
26-122

SEQ 0277

11=70+

42-1
42-1

29-87+
31-43x

$GETSL?
$GT4G2P
$GTSWR
$HD
$HIBTS
$HIOCT
$iC(NT
$itiUP

10-121+

E
6
11:43 :33 PAGE S-¢

42-1
42-

—

$ENDCT

10=117»

——d
e PN

$OT8L
SENDAD

10-78
14~20#

SO
It
]
NN
N =
OOV—

$DDW3
$0DWS
$0DWS
$DDWé
$00W?7
SDEV(CY
$DE VM
$SOOAGN

4-APR-81

42="

4o=1¢

42-1w

59-8
13-734+
13-p37+

2491+
25-87
26=24+
26-138
29-142+
31-83+
32-72+
33-80*
33-203«
34~401
35114+
35-239+
35-367+
35481+
36-77+

2492+
25-98+
26-25%
26-148~
29-166+
31-84
3273
33-81+
33-204+
34-71n
35~115+
35=254»
35-368+«
35-482+
36-96+

13-752+
13-£82~

24=109x

24=124+

29-167+ 29-181+
31-93»
31-105~
32-86+
33-101+
33;102‘
33-220« 133221+
34-72
35-133«
35-134+
35-255+«
35-268«
35-380+
35-381+
35-494
35-495+
36-97~
36-110+

31-106
32-100~
33-118+
33-238+
34-84
35-147+
35-269+
35-393«
35-515~
36-111+

25-135+
26-32
27-40+
29-194»

25-138+
26-86+
27-54~
29-195+
31-115»
32-101+
33-119«
33-239«
34-92+
35-148+
35-286+
35-394+
35-516+
59-1

13-835~

24=52+
24~153~
25-142
26~94
29-47
29-211r
31-129
32-115~
33-133~
33~253~
35-30+
35-162~
35~299«
35-416w
35-533«
59-8

IRMNBC Ri105/3/72 FCINL

TROSS REFERENCE

YABLE

BINTAG
$SITEMB
BLF

(3-1

SLFLG

SLPADR

$LPERR
$MADR
SMADR?
SMADR3
SMADR4G
MA
L
tMAMS1

SMAMS2
SMAMS
3
S
SMAMS
SMBADR

)

SMFLG
SMNEW
SMSGAD
$MSGLG
SMSGTY
SVSWR
MTYP1
MTYP?

MTYPT
MTYP4L
SMXCNT
$NULL
SNWTST

SPWRDN
SPWRMG
SPWRUP
$QUES
$SR2A

SRDCHR
$RDDEC
SRDL IN
SRDOCT
!
f

$RDS2
SRESRE
$SRMO?
$AMO3
$RMOS

$RTNAD

6-0n
6~0#
6-04

6-0#
6-0»
6=0n
6=0#

TST

(CREF

(5=

41-1

(8~2

MACRO v04.00
vO1-05 )

4-APR-81

F
11:43:33 PAGE

S-3§

SEQ 0278

45=1

43-1

41-1

10-23»
10=23+

42-1
42-1

5-8
13-651

60
13~:47

42-1
42-1

42~

10-23

10-28
13-<30
63-1

42-

42~
42-

42~1+
43~1

(2-1»

14=20+

14=20¢

42-1

451

45-1

45=1

6-0»

6-0n
5-8

13-856
13-C34
6-0n
6-0#
604

13=-D97

41-1

13-;47
42-1

(8=-2#
4514
48-2
48-2+
(8-2
(5-14

L8-2+

48-2+

13 1
13

6=0#

5-8#
48-2
45-1

6-0#
6~0#
6-0»
45-1
6-0#
6-0x
6-0n
6-0n
42+
6~-0#
13-1

10-23

48-1#
48-1
6-0#
47=-1

45-1#
47-1

45-1#

(8-1a

48-14

L(8-1#
41-1

41-1

47-1

47-1
47-1

47-1

10-9¢2
1C-97

44-32

10-102

14-204

48-2

48-1

4614
45-1

37-1#

48-2+

45-1#
&7-1

44-28
44-36

49=24n
49=-25#
49=264

48-2+

43-1

4b=2e

43-1

42-1

:MC-&-e«~NM&haOY"NNNAN0U&-Mw-O—MMNM~o—N5T”WMY~OM[[»VaV)o]>
——eeIsoOTNM—N&[R-S\yM0«VyD0eMNNQeoeeO%L®—eOwGyFN]"T*[R@N¥¥-T1T—SN14-T&KE4—Tx[i[TWTTSMT*EXgOT—NCAmr&R=eNM3YWNT]—x&nroL7—INL-o«*—rKOkITOToJ¢-—E0m33HIAIIrOQN—VNy7eNrIW—MrT(w——n]eO—MT—IT—TmTrR\[LTV3alSYwIw£NVTa1lR7--Oy3N——S~[N»mvxN¥a)eTU
maooMO=MN}8V][K]a]nloO37t¥[MaoM9X2Yl*:OSoN14=tdD-eT0NNl3[MM4OXR9«Y]0OOeNS4MPN2-N—eSNN5AeST2eARPSN4ASbRNI0MS3S—VSeAOeNX4&U—bXiI2MSRMEkbNXOS3N+o-eJ0U—Oe0I—MoMl[=VNNA4yMIWO-&ANl2WN—RK3IMaeD—N0Y—O3y0N3HFgOTO1yNOMe5OI—MI—r2IM—eOO5NMgW—UU5ONM-o&M8u—5Nnn5>wn1R>y5>LN33R"OOS|N3DTM-2MO9r3A—YNI%VMSTwTNa“X1O"aAr]N3\4N.X7orA~—¥R '(]tS
)T~OINO[ t ] 1*N 1wtnO~ 0]L UL3oM N1Lt
$TN

$IMP2
$TMP3
$ TMPS

10-23

47=1

47-1
2727«
27-28»

27-50

« - ¥x

4-APR-81
11:43%:33 PAGE

$TFB

27-53
59-5

47-1
47-1

]

[]«%

[1aD"wOo—Va&0]) ON¢WDwIy—NnTBdWAehru—ny I1PTSROIaYwiNEaTn -~7I3e—— .«®¥ &[L«

47-1
47-1
47=1
47-1

M oM
WYo W0 Ni AR
SN et T 38 T P

$TPFLG
$TRPS
$TRAP
$TRAP?
$TRP
56-10
6-0#
6-0#

e=NN -<& 61!1/%‘ 3‘w

D) *[x t 1 ] M —

[] t [N

[MN=LMUNORRSBAO>RTVRIAKAN—NTA-—RV-TR2AAZ2NN—ALPoWTaORNAASUNIVANBR
KON]AAMU.R<£ —FOIRS eOM—rAAARn3-NAaI<nMINOFOAYTwAPRWOyaN
AeO]|[IM&N«tONyLOIRS5MO e&P%tNRx] 8AN]LXWXx[Y*. N&R« MIS"&OoAx]]] Nea0R—LRO—NOR~—oMWt iANN-AM IR~[«)R
(JRMNBO RMOS/3/72 FCTINL TST 2
MACRO .04.00
CROSS REFERENCE TABLE (CREF v01-05 )
S-4

6
SEQ 0279

4&7-1
¢7=1
47"
471

ADDW1

ADDW10
ADDW11
ADDW12
ADDW13
ADDW14
ADDW15
ADDW2
ADDW3

ADDW5
ADDW6
ADDW?7
ADDW8
ADDW9
ADDW4

ADEVCT
ADEVM
ADR

6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6=0
6-0
6-0

«-— -n -——

o NANN
o NANN
N AN

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

UoL[BSU-v—®& U1U-e—

2xx

6-0

Lao(Yla-®l TOV[ON/T

L
3

- ——

TST

1@ MW

—

R Sy REFERENCE TABLF (CREF v01-05 )

TNL

O ONMN NI

gFO9NSqCCLAOA—MNLIRO9P0AATONR0RR9 OISNARYP0TO&RNL¢O«nPAT0eASRTNAOONR0APROO Oe«PTOWGAI'OmVenAT=TA—NTRTA~OYTANIAOTNwA-nNNrHLe—INTrAIeR—
o-x — * (Nw ~2!5] Nr—r—rw]—nc—re—r)—I[vat¥-—]" NLE——U-—

WLoU[7%Mva-O§!]Y]mUxAfiQlOsN'RwxNXVONXm-g¢Il[OX[7]VO$WNsC~—W1(N0-]l—"uOmyK—[Sa[[~o~-aV)¥—}]wSO.sXm4SAYUXMNWT%w XOeNwY‘&ZSeNL~WV—Nv»~—L] -yN®PYNQT~UA0NWVkZNEYT"ANN'gm[7-A-WU[aSN~—¥LLYNTl—]2yo"l)VmYTYWwo4-—44»¥®UUA&&NNNAAUAArNN8SNA—AUNAAA~-[LL—
Nc--l wAuNAN~K—N
JRWNE. RMQS/3/2 ¢

6
S=5

SEQ 028(

UB]UIR- NLUoB!UIRU

DB4~A U4

&.>#71#.La3#Anfi#CEF#w3#’V#raMfV#i:O»N#Ofi#OfNiS#N##OM-3xR
######Mfl###rtT
>f?7l93.C1>AaD27a<nN-AE.fAb3Jli34{CA5C2D%k,6FEE]HC[.?LA—4E33R_R8TCF2A@S3WAN|)M|92NqV|sMr:r0NVuesasO2VlVVcv<1'¢«”—0O:6§eMNOOO3m5>—O.oMOuN4OWR?LJmNeNn.3FM—mOo&IWNUNAyFN0NfTMIOWNlONOOIUCONVN-uRDIOMIy=fx=NwNReRs”~ONV
OV]OLo>R]VOAaWaR8NVVeMelNN4a11O,aN,2a11O,e,l~aa11,OA,.aaIlT,\laNoOYRlT,MaAaN~1l,NiMaIatle,NaeINllMToaTlRAlaMoNOllTOloalTM—iMoa=OllAaWNslTlINlaat—0lM.T.0oalN0OTLaaMNleO,OlMalNT.oal=MNaLITOalMlNalTO.iNaLelR3.aOaeAlli—RaTl
]OLNRdttty
V,oOFMOR«lax[bttty
VReNaVosO1Ok]oAPooNYNlONIoFealYOT¥NOoNARylYaa—orFOakAN
Y—soNoOYlNoJoAaVTaOoNOV goYleITaoYTMTAYleos—oMElY=NroOalITlMMooOaAlteT—oalloN-ooaOlQTdaeaORllTollnTOWtRoa*nVledo5aMYtTOvMooelt=loNlTOLoeavsMlanAxelabeliN®NlaeNt[lLVeaaotdl
«OXSRN
RyVFPNO—VoM0oNTa—LYob&YN—IoRY0=O]MALoVNl03obTYOMeoNT5TMO—/3oRytePYIOolTT—aOMleToAVeToYNT[Nee,oORIeNTRRoelNTBaNYRTeMoEAlRNeTRoWYeMTAP—NoRlTIPOaMeMlPNoAlPPONLMeRaePRAlMaeTylNibea[l
7eoAR
/aY21,21®,a12T,al.2l2YRRyla1,Oa1,0al.PolealealoaleolTAolTeleoYlPlaAPleal.eal
~NO

Pa]LPAaMORvttt
Tittt
OIRVlOeOJ2WNTkR9nPaVMjI1NNbYR,MTNueaMr4Rl—AyIlNaE=—A~arRIN“NlxNvOIeo~SR7ilNN—IarMO4NlANlOoMTNi0o2laNMlmOYNOAaNyATlI0aIeNiTINaTMNOAluyMIIaMA——1NlO9INiMIW2aONeNIlTO NO—oAN5OTPaNO1VlONoMWlOeRMa—lN—OiOaNbNhPOi=aT—fler~yMM
Vae2Vls]LTa1a,2l1,a21P,aI1l,aRl,laA.oaTlloialaLol.YRalialalalaloaloal

bAOOo4=eeAa]lC—o—a.[)BoRRygTlECaodlIlDsoMUlElOeMTReTMlWoalEnTMTdylVkNoSelMTTMACoNoNel=Tls2LOMlIelTMs23VTellMOoS2"VVuslPdoR5kT—MeTl0aA"nteedTUTlaSNnTMeTldTTlMaandQedehTlJ0oManlNTTdTlaaWMPR0dnTYTldN25DMadTTTYlO2oMt—TslAYToNyMeOolTTYOaoknMeNdTleTlYaR~nNlMdTTleWeAlMeToL=NelaeMolG—NOaLQ0xNR
AENV
AENVM

AFATAL
AL
L
AMADR1

AMADR?
AMADR3
AMADRS
AMAMS1
AMAMS2
AMAMS
3

«
AMAMS
AMSGAD
~MSGLG
AMSGTY
AMTYP1
AMTYP?2

AMTYP3

AQE

AMTYPS4

APE
APRIGR
APTCSU
APASS

APTENV

X[I5}

ASWREG
ATA

©~0
6-0
6-0

60
60
6=0
6-0
6-0
6-0
6-0
6-0
6=0
6-9
6~0
6-0

41-1
41-1

6-0

11-69

49-54

6=0
6-0
6-0
4=572#
50-86
6-0
4=750#

6-0
6-0
6~0
4-583

4=552¢
50-60

6-0
6-0

25-138

6-0

50-63
25-31
25-326

48-2

48-2#

4~APR-81

25-341

|
11:43:33 PAGE

25-356
25-360

RRoloMldDoXRoldoloblotlhoblololololanidlondletlolrLhlrh

-3 L3, 3.3.3.L ®

qgq <:>7.aOAUfIWOl—.MCDNE3ON#MTOQ,4&7972014&427920510 #42“”“2y6au4u1357&5926 OIHNACWeAUIL0D\OVOAMLWN

2Vs]N4ba7Le,Oa;Y,JM2]~t,A#al)Nalt.aO4l,)Na2lT;Oal3oO2lT¥aOel>a2MlT;olNT)ba2tOT:.atl3TMo1lTA:al)T0al.TealLT._0altT.~azlPL:aNeliueaOtl:aerlT.

JRMNBy HMOS/3/72 FTINL TST 2
MACRO v04.00
"ROSS REFERENCE TABLE ((REF v01-0S )
S-~6

60
6~0
6-0

6~0
6-0
6~0
6~0
6-0
6~0
6-0
6-0
6~0
6-0
6-0
6-0

26117

26=121
50-77
5C-78
50-81
50-82

50~-85

a0—oM727&0O0O2e=MO0O~13713“072&92%o714”2691
TMéerx”M1EMAEWN#R8wk#9T&RTlN0T#5T&&T0oeM#2BT0To7e#N3eH-2T7e#&o4OReP7yT8CO7Ro4&RNe%oI7.OSWReN9eT&uex3¥nTWOONRT2keE&Re0OI22T1BT7I¥T53AeRRoSoTNe&NBT2e4MTYe-al"
g ZxA

BPRe#R7NN0—[EP96N—OoATRI04—W4MOMPNYT30OUVYMIV1R9P6ONNePIM5Y2O3SGP5)“4DNNyR0y96—V=Y5N3NONTAONAN1MT232ONTORM9N4”VRNOT60AMI38VeAOOO9N&N1VTW38NMOeYL—4Y\NR&VeMIY9R380yY=NYeA—ANO53LY¥N6M3I4—LN2MNIO0NMrYO93I5LAe—.OOI“NRlMW3I8LNrLT20AI“OVTi3&N—I—2T0RY OT“NM3I%RiD8SO“ANIy37—R8MNIMNTR393NAN6oe4NON3“ATRA3M5ALNN326SONI3&8eRIM—N3NRNTTMI3W&lRNTy3TO0&TMNA34OMTNR381ERsMN—R373yMOIM}5RTy3O0MORAT36A&—RLNAy}85TEROMTR—3uNMTN320=}6MNMeL3D3GOT¥3O303~OWL7—-]RA 3Ob3&w~T~2
MO'JMTWs”na29ONWB—MVAyVN2CI”HOCN6DMVDA5eOI1SB C9MT4BTOE—5IBHT6PAINOCPAyI0TMNCM9ITD5eANT3eCMOw7MseNeasI6cMaevYA*2RsTtY—v*NceTA3*+T-0T2VOYINRO4DNT00NT“M0T2e0M0NeA“IOTMR9NeM”ONT7IWMTN“MNO2O=VT9NPe52—oAM1YOUTN9INoOM3N—ITO1NOMTI8VITOM6IMTI4—NeMoI8MTI7—OeMNoN
leb ARANERNONENERIN SR AR RNAROIIOUR

N31>N—NOAN#1&L2—rG?h“0L—XNO8u8MMDOO0NeYa—OU&V97\3OMrnMN)MW“8IO3DWA%A¥NPYNN8INT505MNeWSOA966R7NRY—MNTM'%yYu23NONN.y5hN37NTaNN2W49&RNnFRTeAMOO9(N2m)RVeNTN03%OVA03NTAYD29U3038—MOeN.IP033,w9A=nXTIOLANTNN3.9M0V0IINNNP2NNM3V0eNNTWV.7&F8VNNeNTTIW834VRV—NN6-)M&5sVrVMyD)0)2OO6&e0sTTAM0aNNRnO412=¥2—WNNNeTN)8MIesRVOA—9A28N&ONrMNs66R—N*NBeN+T“GO14RM3ONNI1V7N0VJOxRNk4IDMDTTNNyR72I0MeLoTNN1—68IbT3IT3NN“TVy2NMVTY”58TM5NM=NNNT“E“O®ax6IOANNr»V5NE4BVTQ”NMeY=O47V2LMNNNRYd%4ByOO8~NTE13—Of5NNDRNMA21N0TTLMnMN3N4R9OM-O—56I7MTSVteNNN4438NCMNON3U0.9AT0NMOOLA9“V%MTRRINSMNO0tVZ16Ny.AOTMlIAdI9MMMTuYNM4.MMB&XOMNTYIf2N4=MT%lNI31M—&OMTMRn2MyMOMN—OM7MMeSTxMT.WMVSOTDNAEIUCoNowM-S~-—n—C3aMe0nKw—(U[w"wooV=a]l
D q gL

-—

TABLE

(CREF

TST 2
v01-05

MACRO v04.00
)

4-APR-81
1 ti63 33 PAGE

MA—=NOTrIMNNNM~RNIEOMBDIAOb¥rTP1RnX3e TePIRNA—MOS0G[UOVWN#0&Ml~TN#BXR#¥nOfi#yfi# YsPARTeSD60291591693~)136NWA1O=3I7M0N4RO2I4N—8OM24ON”2MD5N1 SLAkPTUeR

R»« W |® L3 Rk 35 L33

TROSS REFERENCE

TZRMNBO RMOS/3/2 FCTINL
6
S-7

SEQ 028¢

4=4L 84N
L=484N
L{=4L84#
L=484N
4=484n
L=484n
L=484H
L49-40n
10-132
11-34
{9-38#
10-82
49-37#
44-81n
4499
44-621
44=109«
L=4L840
L=674N .13-D30

49-394

44-102
44-112

44-117
44-115+

44-1624

13-p37

16-225

25-431

44-1614

\NWK“WW\N
]
[

NTMMO
~NNOON SO
WINOOO OO
B
ux

e
bk

SEQ 0283
13-009

13-DS8#
13-€£51#
13-E724

13-D09#
13-p79
13-ES1#
13-€79

13=-C09#
13-D79#
13-£53
13-£794

13-,58

13=-<41

13--24

«2~1

42-1

43-1

42-1

43-1

4=742
4-742
4-681

4-626

4-667

4-732

4-755

15-165

4-625

4~651

4-731

4=754

15-167

4-650

4-677
4-718
4£-686
4-685

15-111
43-1
4-751
4-750

15-73
18-33

4=670

N AN
00O
- =
O

4-664
4-663
4-662

11-48

b ek

—

\NWW&‘UWW

[s Snalaslsal =X
SN0
NOWNIOONN

J\bbl\l\i.\l\l\l\ £~
]
(o

—d —
.
md
—

WV Mmoo

WA = O8N —3NO
[} CNUNDCD
AN
xr
Bex

owwuluwww
!

b
el
e
e

[o]

NN
O = N NN
PONON
N H NV O

(UL NV, LV, IV, To RV, 1V, 1V, 1V, |

[

L{=484H
L4=4B4H
L=484N
L= B4LA

S-8

BIT11

11:43 :33 PAGE

]
[
(a3 e Yo Yo Xo Yo Yo Yo Yo )

BIT]

BIT10

=N =
&HOocownNIWN
ON
POW

BIT09

NOO
=N

BITO1
BIT102
BIT03
817104
BIT0S
BIT06
81707
BIT08

1
ow \Jl\h\rl\l\i\

BB0O
8801
8802
8803
B804
8805
BBO6
8807
8808
BBO9
BITO
BIT00

10-3#
4-7394
L{=6704
4~670#
(~6704
4-670#
L-6704
L=670%
4{-670#
L(~670#
(~6704
L=~6704
4~4B4H
4-484
43-1
L=484
4-484
L-484
(=484
4-484
4~484
L-484
4-484
L-484
431
L=484H
4-484
431
L{~( 84N
42-1
L=4LB4H

Y
N

BAD TMO
BAI

[
QU

BADS(T

;3-5790

—d

13-p20
13-D90
13~ES3s

—

13-(88#

)

v01-05

(CREF

4-APR-§1

LR X3

TABLE

MACRO v04.00

WW\A\;Q\NWW
[]
[

RE-t RENCE

TST 2

IANTIMMO

RGSS

~M75/3/72 FCINL

4-723
4-670
4-670
4-670

4-735

42-1
18-90

CMPBUF
CMPERR
CNSLO1

CNSLO2
CNSLO3
CNSLO4
CNSLO7
CNSLO8
CNSLO9
CNTCLR
COMMA

CONT
CPSAVE
(R
CRLF

CTLFG
CYLMSK
DBCK
DBEN
D8L
DCK
DDISP
DEBL
DEVSEL
DISPLA
DISPRE
LT
DMD

DPE
DPEHI
DPELO
DPR
DRIVES
DRQ
ORVCLR

4L-6664

L-6674
7-04

44~63r
£2-1
7=-0#
7=-0#

4<~7%"y
15-98
1
10=1
13=1¢6

27=21#
11-32
11=40
11-44
11~54

11-61
11-92
49-204
15-76
11-86

L=-630#4
42-1

L-4844

L-484H

49-9
49-33

61-26
61-40
61-54
61-68
7-04
L4-6574

4=-604#
4L=-605#
47554
L=5664
L4-4844
L=-6064
15-62

6-0#

~14
<7274

-618#
-681#
=751#
~752#
-559#
-3

X
Y

CLRSTS
CMNSTA

10=-14»
4486

4£3-1

22-8»
22-9*

=5042

13-=67

13-229
13-=85

11-2%

44-93
47-14
22=14»

10-84
31-244

30-16

13-229

13-<20

12=2#

VWO I
OO NN
HNNWN =0

13-(61~
13-209

61-16
13-229
13-=03
13-C63

L
6
11:43:33 PAGE S-~9

SEQ 0784
b

61=-24
13=-141
13-<38

)

13-<20

v01-05

4-APR-81

13-C59
13-126
13-=03

BB W

CHRCONT
CKSWR
CLKADR
CLxveY
CLR

13044
13-106
13-<83

13-:55

11-27+

44-96+

13-543
13-247
13-E24+
13-523
13-A37

13-553
13-796
13-£26+
13-543
13-B17

44=116%

44=163#

13-646
13-a4b
13-F08
13-711«
13-8B99

13-959
13-A53

13=-:54
13-852

13-<00
61-4n

13-<20

22-16

13-=03

13-=85

13-A37

18-17#

42-1+

43-1
44-84
10-53
49-13
58-16
61-31
61-45

43~

43~1

43-1

43-1#

43-1%

43-1»

44-180

10-60
49-16
61-19

12-30
49-17
61-20

41-1
49-18
61-21

41-1
49-19
61-22

49-3
49-20

49-5
49-21

61-59

43-1
57-79
10-59
49~14
58-18
61-32
61-46
61-60

61-61

61-62

61-63

61-64

49-8
49-23
61-25
61-39
61-53
61-67

25-489

35-413

35-416

35-43

35-466

35-469

49-13»

L49~144
49-154
49-16#
£9-174
49-194

30-12#

12-6

49~74

42-1
11-73
10-6
49-10
58-7
61-27
61-41
61-55

42-1*
41-1
10-28
49-11
58-12

12-47+

45-3%

4-583
6-0

18-23

25-469

28-12#
10-23+

42-1+

43-1+

25-313

35-495

24-139

29-32

33-31

29-195
49-33#

31-128

34-30

10-23

46364

]

94
(M
(HGADR

16-284

13-126

-t

BUF TWO

16=49+

(CREF

13=-40

HENNSB

BUFFER
BUF ONE

TABLE

MACRO v04.00

CROSS REFEREN(CE

TST 2

—

“ZRMNBO RMOS5/3/2 FCTINL

16-87

61-29
61-43
61-57

41-1

10-42
49-12
58-15

61-30
61-44
61-58

61-33
61-47

61-34
61-48

61-35
61-49

61-36
61-50

61-23
€1-37
61-51
61-65

61-24
61-38
61-52

61-66

"JRMNBD RM0OS/3 2 FCINL

TST 2

MACRO v04.00

ROSS Rsreasncf TABLE (CREF v01-0S )

DRVSTS
DRY
DSWR
DTASTS

16~105
4-5608
L=4B4n

13~-99

13~-829

13=->34

DTE
DTO
DULPRY
DVA
ov(
FARLY
EBL
ECH
EC!
ECRC

13-£79
L=569#
4=6072
L~64L68
4=4908
4-6804
S2=107#
4-6234
4=575#

34-9n
24-196

6-0
13-120
13-849
13->78
16-200
4£-583

10-89
29-127

25-41

13-201

13 =223
13 =944
13 -778

13-924
13-222

35- 7«
35-279
20-43

31-117

11:43:33 PAGE

6
S-10
SEQ 0285

25-38
10-23

4~APR-81

25~42

35-297

35-300

21-37
33-92

24-67
335-130

ED1

8-516

55-24

8-690

55-10#

29-195

31-127

31-128

34-30

24~70
33-133

V4 8-37
3 3-266

31-33
35-232

34-17
35-236

34-18
35-239

35-284

36-89

36-94

25-467

25-485

25-491

35-423

50-77

50-78

50-85

50-86

36-97

NO—1QNiD|AI9NN:I(N1OO4N)OtMiN)~O<—1NO%4OD2/
€A—AN0OM60N00G00900A0 GA00OA0G006G—M 0000M0R00O0V00000
eAYVOO06R0 GAI0ASM0—I YT
—(IO 6 (W6M0NI0AOOU4AR006BO0UF0~T0DU0GM0OM00
ON6A¢y00UO~AO00MRG
N60 G0AG060O0I0ON0A0UO0
8V88T8R8T8R8N8Y888T8
ONOUMM
OOO0O0JN-O7NU~TLINOVLI0UM=WUW=—VO=—N
TROSS REFERENCE

(ZRMNBO RMO5/3/2 FCTNL
TABLE

1ST 2
MACRO v04.00
(CREF v01-05 )

IO—MLON— 888888

S56=2#

8-690
56=10#

8-5i6
54=24

8-690

54-114

0€G¢

8-516

11:43:33 PAGE

N WNO OMN
— — OUOSNUM

8-687

4-APR-81
6
S~11

SEQ 0286

wLM)Ng}L.all4Nna]10,NVLALANTENMv[T(7Mao)woMvwiniMn

O[MalNINSEN~NNMxWMAM-nO~.SL%303NO~,“;
Oo%MN[]7V[}2Va[)+NOO—VMNM[wwAVn0M"]oaoEolm¥RSawlN0["non[yPa]lAMvNY,T!NnVENOoSNVNiARoOoRV(2]N"N.(iWUVWOaM7LS8,19”[w0VvM~[7oV}3a))7%[[[MwO¥o""]ynaaat)RgT7[vwO7l01vLnaYM2a1mol"tyuYN.a"nYaw,liO,ta.n)
TABLE

EMS1T
EMS10
EMS100
EmMS101
EMS102
EMS103

S7-3#
53-11
53-71
53-59
53-178
53-57
53-211
53-180
57=71»
53-232
53-15
53-29
53-74
53=226
S7=75#
53-76
57-78#

53-3
53-7
53-39
53-49
53-177
53-56
53-210
53-136
53-204
53-212
53-12
53-28

(CREF

TST 2
MACRO v04.00
v01-05 )

53-78

53-127

]

EMS104
EMS105
EMS106
EmMs11

"ROSS REFERENCE

N T 2N T3T MMME NN N O N

NVONyAv7Ae—MNNDYP(OVTRVOTF.]LN\YNA—EONYWJtOVeNVMNWN—%0IOVAMO—wNNOON—nArN1WTNNUOoAV—MENDVeyVTMORMTNNrrNMIVTM)NYONIEnYe-a-NYMMNOPMTTrNDOSNMeYMvNWYO—VVNVrMMIVNOAOAD0UAWOTAEoOVnTIDINMVNMINY—MWN{NTQV7rINVSNYOoIWeON0-AIPeVNGTI[gNNNNVAILYWrVWGV~XNYMVLFMISVDOONA gOMNgANWWYWYVMNNNONT—TOLIVNOF]YRRA,M0SINNNNyMsYOTNPN—MWOO—A0NUyoAMRMNYTVTNIArAsM0GWNANELTo)0ONDRVLM0DVPAOrRM2TNTVMVNOTRVNN—JFOW~VI)FIYYVVONNO—AMVIOMXREa—OANNNTRSNTNVTROOYERVNTyNVTOYUWLTNNAoAMIV—MAEI-RMT0XnVNWNTMOoNIrDONTNVWTNU0sMMMRnNLONT-HVNraOIR0sTMNVN¥ANONOLa"ANN MM NTT oO NM .MU( IsQOVMPyNM N[VyNYoMM 0NMYNTO02OD70,)YNI~WMT"—troONOAMVIMaMMOaTNON0IMVNOMW1NNUMaATIYeMOYTT N-VTrMNWO Na—1Or—ouMn
Mo0MM-——~[]0}Yy NOM©MOM-41] N0MM-LU[M]yYNb eNAN N~]U1l— NNY=0O1PtN WMMo-B oW"[eO~~— voMo]{1 [oo(MwMM MM —4]¥!y¥] MOo—0NN—1[UNMM=eMOM—t
[vv[0oVzyal«) AO—T[oo woV1a) 9M[[7OT~M OT9"=2a]l1Va"a]l ho"o— wv%9]el[l+ wLO-Y-M8m——lG[ToNoOVawXNWNtMnyaliO3Val
“IRMNBU RMOS5/3/2 FOTNL
&~APR=-81
11:43:33 PAGE

S-12

SEQ 028/

§7=724
53-16
53-30

53-25

b
3

~[ONo—VOrIlM a([WwOTMa@ne¥y]M N~RoWMeBz—R
53-183

53-194

53-195
53-223

53-26

57-108«#

53-27

53-77

S7=744

57-77#%

MN MM[Na~V]
gMOIU\WRNye—OMgy(LReNSleVTaVTo3-.eOAIV\T-UU o—3¥=aVeT~otNkieIyeleUoReko=ekU1ko—eLoUNNl1o—l|o®el»oM—k1IRolaMnLds3kMA—]1oVAgTL3nbl

mo[o[M0W[O[NowMN"""YY1VT~aaaovDlllYyv'¥V¥V"MaaNal)lluUNnMM[[M—LYMOVVaAlaailEe)lNWM¥nN—LaMA.lwOAUImNO}NOININOMMDOOAW%AOVMO).owN]O~eIOM.NIIAO.MONIA.ONNIIV1MOVVNAO)eo1VURY[VM-oVNO1aoN—)V2DR[9OVMoaN[w0~NM-2lYNnaeVwX&O¥n—M)aNlY2NORVwL[[wN~wNMNw—TYVaYUnMaalin3Mllm,2yr’wvV~~nLwaNaaU‘—n—lnl))O5MN6N[(M0W[I[MowwYo7V—L]¥["VyaR}ann]sallM)l¥Na)~=N
O~r~o NQO o—0
(ROSS REFERENCE

wnA7Ll2RYT

EMS17
EMS170
EMS171
EMS172
EMS173
EMS174
EMS175
EMS176

53-9
53-57
53-215
£3-214
53-216
S3-216
57-129#

bt *

YYTYVoYVVoYVolATVATVL

TGDRrrs sNDsrW esLADt LdA
PNPN0NN

WMWONNbD0YNyNSN0IOB1I)—NAM2NVA0~S0NUAMN—LMEO5Ur—NOMN2IeL0G—SNGMENT0NILeSOANGIA’—TENNI0LtMSWONVA-VLNM2ANEIIAOLFSM)NM3ESTOAIG4VNNG5SOrLNN0“eNS—GN’NLI7FMCLO8SOAW9NMLN0I—NLA1NWIO"OGe5NOLFN6N)NUL0NMoN~AY 7}’)3737
MNAeNNIyRLRL0o eO]A—V ~ MN R40Mo.M]L4N\RB1YATMMALAM—LTEN ML o-— MA LM —]1 R
UM~ON[1zy oU U —0M—- ooo MM —1P ][ ])
1oa~1N0e~— MM —¥U1U
TIRMNBD RMOS/3/2 FCTNL
TABLE

TST 2
MACRO V04.00
(CREF v01-05 )

1
1
1
1

53-116

53-68

4~-APR-%1

53-173

7
¢
17:43:33 PAGE S~13

SEQ 0788

S7=-112»

57=-1144

53-63

53-64

53-65

53-66

53-72

53-172

53-196

53-197

53-198

571204

53-123

53-12¢4

53-168

53-169

53-170

532-175

53-126

S7-1244

53-219

57-128#4

M—WMV MN

53-67

53-68

53-235

57=122#

5369

win

ON~

53-70

MM t

53=-71

EMSS54
EMSS5S
EMS56
EMSS7

EMS6
EMS60
EMS61

EMS62

EMS63
EMS64
EMS6E5

FMS66

EMS67
EMS7
EMS70

EMS71
EMS72
EMS73
EMS74
EMS75
EMS76
EMS77
EMT1
EMT10
EMT100

8-24
8-'97

57-304

53-215

57-32#

57-35#

53-177
53-60

53-147

53-186

53-187

53-188

53-192

53-135

535-181

53-185

'53-189

53-200

53-201

53-221

53-139
53-149

53-142
53-178

53-221
53-201

57-43A
53-228

53-229

53-230

53-231

53-233

53-44
53-187
53-218

53-45

53-190

53-219

53-62
53-193
57-454

53-64
53-19¢4

53-65
53-195

53-73
53-200

53-140
53~202

53-141
53-203

53-63

53-67

53-144

53-178

53-182

53-183

53-194

53-195

53-194
53-208
S7-45#4

53-195
53-209

53-198
53-213

53-199
53-214

53-200
53-215

53-201
53-220

53-202
53-221

53-203
53-222

53-47

53-52

53-54

57-57#

53-66

53-139

53-182

53-189

53-19¢

53-205

53-195
53-56
53-183
53-136
53-217

53-63
S7-604
53-234

53-108

53-109

53-134

53-135

53-235

57-61#

(%]

53-227

53-132

W
[}

&~
n

53-35
53-38
8-3

57-274

53-182
53-206
57-464
S7=-474#
53-51
53-228
53-191
53-205
53-228
57-8#
57-50#
57-51#
57=-52#
53-149
53-14
57-55#4
53-218
53-44
57-9%
53~50
57-58#4
53-59
53-48
53-140

53-208

53-181
53-204
53-226
53-227
53-50
53-223
53-190
53-204
53-223
53-6
53-224
53-224
53-224
53-42
53-8
53-41
53-34
53-43
53-10
53-48
53-221
53-51
53-36
53-139
53-49
53-69
53-35

EMES3

-191

5EQ 0289

&rwu
~n

53-48
53-55

5764
7-344

D 7
11:43:33 PAGE S-1¢4

EMSST
EMS52

57294
53-226
57-31#
53-214

)

4-APR-B1

=0
oo
&

NS NN

— NI ~NWNONN

NS00 =200 ONNW—=
=)
~n
O=VCrOO
XRLWOWV

(AL IV AV, LWL LV, [V, [V, IV, IV, [V, LV, IV, [V TV, 1V}

NW WWWW\‘IJWWWWWW W\IL'NWW

[]

)
£3-46

EMSS
EMSSO

57-444
53-37

vO01-05

57-264
53-207

(9,0, ]

EMS4S
EMS46
EMS47

N SN NN
NN N wn

EMS4L4

EMS40
EMS4I
EMS4L2
EMS43

EMS4

EMS36
EMS37

(CREF

53-177
53-21

ATV TV, LV, LV, LV, IV, IV, ]V, ]V IV,

EMS31
EMS32
EMS33
EMS34
EMS3S

TABLE

MACRO V04.00

\'N\l

"ROSS REFERENCE

TST 2

VL1V

“JRMNBO RMOS/3/2 FCINL

53-54
53-70
53-66
53-36
53-72
53-3#4
53-10#
53-66#

53-145

53-138
53-39
57-654

57-63#

JRMNBO RM(GS/3/72 FCTINL TST 2
MACRC v04.00
(ROSS REFERENCE TABLE (CREF v01-05 )

EMTI01
EMT102
EMTIO3
EMT106
EMTIOS
EMTI06
EMT107
EMT 1
EMTII0
EMTI11
EMT112

8-200
8-203
8-206
8-209
8-212
8-215
8-218
8-27
8-221
8-226
8-227

53-67#
53-68#
53-694
53-704
53-71#
53-72#4
53-73#
53-114
53-74#
53-754
53-76#4

EMi113
EMTI14
EMT115
EMI116
EMT117
EMT12
EMT120
EMT121
EMT122
EMII23
EMT124

8-230
8-233
8-236
8-239
8-242
8-30
8-245
8-248
8-251
8-254
8-257

53-77#4
53-784
53-79#
53-80#
53-814
53-"2#
53-82#4
53-83#
53-84#
53-85#4
53-86#4

EMT13
EMT130
EMT131
EMT132
EMT133
EMT134
EMTIZS5
EMT136
EMT137
EMT14
EMT140
EMTI141
EMT142
EMT143
EMT144
EMT145
EMT146
EMT147
EMT15
EMTIS0
EMT151
EMTIS2

8-33
8-269
8-272
8-275
8-278
8-281
8-284
8-287
8-290
8-36
8-293
8-296
8-299
8-302
8-305
8-308
8-311
8-314
8-39
8-317
8-320
8-323

53-13#4
53-90#4
53-914
53-92#
53-93#
53-94#
53-954
53-96#
53-97#4
53-14#
53-98#
53-99#
53-100#
53-101#
53-102#
53-103#
53-104#
53-105#4
53-15#
53-106#
53-107#
53-108#

EMTI53

EMT156
EMT155
FMT156
LMT157
EMT16
EMTI60
EMTI61
EMT162

8-326

8-329
8-332
8-335
8-338
8-42
8-341
8-344
8-347

53-109%

53-110#4
53-111#
53-112#
53-113#
53-16#
53-114#
53-115#4
53-1164

4-APR-B1

11:43:33 PAGE

S-15

SEQ 0290

JRMNBO RMOS/3/2 FCINL

TST 2

"ROSS REFERENCE

TABLE

EMTI66
EMTI65
EMTI66
EMTI67
Emr17
EMT170
EMT171
EMT172
EMT173
EMT174
EMT175

53-'18#
53-119#
53-120#4
S3-121#
53-17#
53-122#%
53-123#
53-124#
53-125#
53-126#4
53-127#

ETMT176

8-354
8-357
8-360
B8~363
8-45
8-366
8-369
B8-372
8-375
8-378
B8-381

8-384

(CREF

53-129#
8-6
8-48
8-390
8~393
8-396

EMT204
EMT205
EMT206
EMT207
EMT2T
EMTI210
EMT211
EMT212

8-402
8-405
8-408
8-411
8-51
8-414
8-417
8-420

53-134#4
53-135#
53-136#4
53-1374
53-19#
53-138#
53-1394
53-140#

EMT214
EMT21S
EMT216
EMT217

B=426
8-429
8-432
8-435

53-"42#
53-1434
53-144#
53-145#

EMT213

8~-399

8-4723

EMT2?2

8-54

EMT221

8~44"

EMT220

EMT222
EMT2S3
EMT224
EMT225
EMT226
EMT227
EMT23
EMT230
EMT231
EMT232
EMT233

EMT234
EMT235
EMT236
EMT237
EMT24
EMT240

8-438
8=444
8-447
53-150#
53-151#
53-1524
53-~153#
8-57
53-1544
53-155#4
53-156#
53-157#

53-158%4
53-159#
53-1604
53-161#
8-50
53-162#4

EMT241

53-163

EMT244

53-166#

EMT242
EMT243
EMT24S

S53-164N
53-165#

S53-1674

v01-Q5

)

4-APR-8"

F
11:43:33 PAGE

7
S-1¢

SEQ 0291

53-128#

EMTI77
EMT2
EMT20
EMT200
EMT201
EMT202

EMT203

MACRO v04.00

53-4k
53-18#
53-130#4
53-131#
53-132#

53-1334

53-1414

53-20#

53-146#

53~147#4

53-148%#
53-1494

53-21#

53-22#

“JRMNBD RMOS/3/2 FCTINL TST 2
MA{RO v04.00
CROSS REFERENCE TABLE (CREF v01-0S5 )

[MT246
EMT247
EMT25

EMT250

EMT251
EMT252
EMT253
EMT2S4
EMT255
EMT256
EMT2S57
EMT26
EMT260
EMT261
EMT262
EMT263
EMT264
EMT265
EMT266
EMT267
EMT27
EMTZ70
EMT271
EMT272

EMT273
EMT274
EMT275
EMT276
EMT277
EMT3
EMT30
EMT300
EMT301
EMT302
EMT303
EMT304
EMT305
EMT306
EMT307
EMT 31
EMT310
EMT311
EMT312
EMT313
EMT314
EMT315
EMT316
EMT317
EMT32
EMT320
EMT321
EMT322

EMT323
EMT324
EMT32S
EMT326
EMT327

8-504
B-507
8-63

8-510

8-513
B8-516
8-519
B8-522
8-525
8-528
8-531
8-66
8-534
8-537
8-540
8-543
B-546
8-549
8-552
8-556
8-69
8-559
8-563
8-566

8-569
8-573
8-577
8-581
8-586
8-9

8-72
8-590
8-594
8-597
8-600
8-603
8-606
8-609

8-612
8-75
8-615
8-618

8-621
8-624
8-627
8-630
8-633
8-636
8-78
8-639
8-642
B-645
8-648
B-651
B8-654

8-657
8-660

53-'684
53-169#
53-23#4

53-170#

53-171#
53-172#
53-173«
53-174#
53-17°#
53-176#
53-177#
53-244
53-178#
53-179#4
S3-180#4
S53-181#4
53-182#4
53-183#
53-184#
53-185#4
53-25#
53-"86#
53-187#
53-188%4

53-189#
53-190#
53-191#4
53-192#4
53-193#
53-5#4

53-26#
53-194#
53-1954
53-196#
53-197#
53-198#
53-1994
53-200#
53-201#
53-274
53-202#
53-203#
53-204#
53-205#
53-206#
53-207#
53-208#
53-209#
53-28#
53-210#4
53-211#4
53-212#4

53-213#
53-2144
53-215#
53-216#4
53-217#%

4-APR-B1

11:43:33 PAGE

S-17

" JRMNBO RMOS/3/2 FCTNG

TST 2

CROSS REFERENCE

TABLE

EMT3Z3
EMT330
EMT33]
EMIZZ0
EMI333
EMT33L
EMI3Z3S
EMI336
EMI337
EMI3L
EMT340
EMT347
EMI342
EMT343
EMT344
EMI34S
EMI346
EMT347
EMT3S
EMT350
EMT351
EMT 352
EMT353
EMT3S4
EMT 36
EMT37
EMIS

53-20w
53-218#
53-210#
53-220#
53-2014
53-220#
53-223#
8-681
53-225#
53-304
53-226#
53-227#
53-208
£3-220W
53-2304
53-231#
53-232#
53-233#
53-31#
53-2344
53-235#
53-236#4
53-237#
53-238%4
53-32#
53-33#
53-64

B-81
8-663
8-666
8-669
8-672
B8-675
B8-678
8-351
8-684
8-84
8-687
8-690
8-693
B-696
B-699
8-702
8-705
8-708
8-87
8-711
8-714
8-717
8-720
8-723
8-90
8-93
8-12

EMT4O0

8-96

IMT4?2

8-102

EMT4]

EMT43
EMT44
EMTSS

8-99

8-105
8-H8
8-111

(CREF

53-344

53-354

53-36#

53-374
53-38#
53~-39#

53-404

EMT4LE

8-114

EMTS
EMTSO
EMTS1

8-15
8-120
8-123

53-7#
53-42#
53-434

EMTS3
EMTS4
EMTSS
EMTS6

8-130
8-133
8-136
8-139

53-454
53-464
53-47#
53-484

8-18
8=-146
8-150

53-8#
. 53-50#
53-51#

EMT63
EMT64
EMTES

53-53«#
8-160
8-163

53-54#
53-554

EMT67

8-169

53-57#

8-172
8-175

53-58«#
53-50#

EMT4L7

EMTS?2

EMTS?7

EMT6
EMT60
EMTH1

EMTE2

EMTE66

8-117

8-126

8-142

8-154

8-166

Emr?7

8-21

EMT 7?2

8-178

EMT70
EMTZ1

53-41#

53-444

53-494

53-52%

53-56#

53-9#

53-60#

MACRO v04.00

v01-05

53-224a

)

4-APR-81

H
7
11:43:33 PAGE $-18

SEQ 0293

TIRMNBO RMOS/3/2 FCINL TST 2
MACRO v04.00
fROSS REFERENCE TABLE ((REF v01-05 )

EMT?3
EMTZ4
EMT 75

EMT76

EMT??7

EMTVEC
ENRGDT

EQUALS
ERR
ERRNMB
ERRCR
ERRTYP
ERRVEC

ERTYDO
ERTYOT
ERTYD?
ERTYQ3
ERTYQ4L
ERTYDS
ESRC

FO
£1

L=4L84n
52=144n
49-4»
(=553
4(4-48e
L~4B4Ln
43-1
L=4844

20-35
22-6*
28-22+

42=1»
44-21

46~46

44-51
44-53
44-152
44-39
4-625#
4=4954
4-4948
4=-4934
4=-4928

53-614
53-62#
53-634
5364w
53-65#
10-23+

10~23e

25-84
4449

44=52

446-134
10-23

20-35
227+
28-51+
42-1+

44-1654
Lo~166#4
L4=1674
44-168#
L44-1694
446-1704
25-29
25-29
25-29
25-29

25-86

10-23+

20~39+
22-13w
28~ 51 *
43~ 1

P4 5 102
5?7

10=-23~

20-40+
22-20%
30-12
43-1«

7
I
11:43:33 PAGE S-19

SEQ 0294

25-136

4464

44-1604

10-25+

10-26+
20-70+

20-70~
22=21+
30-12

63-1»

23-9
30-13«

13-4

21-29
23-9
30-14w

13 -4

2] 29
23 10+
30 =25

13<5+

21-33»
23-11~
30-25+

13-6*

21-34»
23-35+

42-1

13=19«

21-50n
23-35«
42-1

13-19»

21=59+
28-20

42-1»

13-23e
22=4
28-20
421+

13=23.

225
28-2"+
42-1«

26-113

nnboTijyleJRWOLVROLMZTfiVQRfOC)L..MunOane"”

F2
F3

8-182
8-185
8-188
8-191
8-194

4-APR-81

4=4914

2529

J011—,QTx;|°0MT9qQeMmd£0N-ewvV/lS/TeDiOOw1~J0q|§eAPMxC7QJuTPN.ARmWUYRweTIT|nL--eUff.3MlQl1eCgMLOJ7a(4—ReTP:c;?MQ7eT%I:M;CQO(l§)[éeOtu(C0(R)TPJeQ0Q§OX—ATé1V1Nl6ePORn7N°AVTbT91NNl3PVOOb1NoMQef—Pw4TOee0TQU_-xPMXTPrTR1“M|1"URcPUT?IheATHPI)NJNT—eM7PMW,=MW=P7TDZn:Oe=RI:PPVVD)L)=OJucNN&m=Lee%%gOd/

F&4

Oo[aONL}taoaNgV—YlMoaoll—aNbOooaOllTbNa—al1IoiIbaaYlWa,NalglNI,alaDOl1,TaOaollVMilaOaelaoNtNaTlolOPOiaMa,—lT.LOaMal—aOllPa,MlaMNlaiNlaOliINoaeO.bNaeaAlIaTlSl—TuTiaNOelaOiaMllIiaaNtl—,aaMNllaN—b
NDBSXNMNYVNAVY.VMN3Y.NLVMVMNOVNVxNRNMNYLNVRNMVYRMNMRNNM MMVW

I_~3A3333333RS37/33353NO aolLaaRalalalalalalalalillilllitalialialialali,alialTPYNRIYOMNONOAINOMOAIMIO—OTMNIR—MY—WVONUOIMENOROVA—ON RLhTYHr _BRTin PeT=oa2NAL5TY1lOtl}a,NORCAIR B¥_NRnHE MTe)

1AoORloel—MTa—RlNa(Tl\JoOYlDaTOlR\RalPMT,aOliaTlvAaMlPaOlT0aRl"[—alaTMIlaTlMROoTaRYMlV,TLa3O TlTLiRoalRhNTalaRTlValRo,aOlPiaVliNaTBlalNTOi—ale=iaMlTieael—,
hel

RR,MORNMIINyMNOk0MROySOOMRVROANR ORNIMANRMOI0ONNADORR0RGRA O00RORR3W0=0ROOR=AARNRN\ROe~DR3LON~F0AN2}MI—
OLl:Fajtlo?Ui:ra)taozl;o000N
Ola)zlRN:ahl)azli;labLazlafliiajilOM xal;.)l?a;lJ,?;a)NlTRRLTRn l,;ARI)azl;Oa)Rzl:,~)zT¥ ib?;Nb
ntqLaRN
—SOwRrA—MrI—NWJrS—rROO -¥weWrR—DRB TtArR—NOAeBLe wPRTReT—A'TOTR—RPMTNTRA -vTylePRBMTkoTUR PNT

FER
FIND

)

—TNMOeIOO.:J<<:_:>)7?383A%B%CCDEF4?2-O
@—BeNO[eVTo—NM—roVy—2IObNNrOeRd[-3N3NWMeO(RB}OIeNl—MOTW-eNAIoOlRMoN—IOlMKoIlEYLDONlVo:0:)]ROoa"O..lYaVXo/I:JalNYOao.lNT0iNaoN<<lYO’o(at\lOM0ao<<YlPOoe=alTRaN::tlOa.N1l=io>:a-aelO1~loi>loaM0l>oaYTO[l??(i-oalloY—aoTl??o2OaeTl33h7eoaNl1aeTWl33“aOlAAeNlMTaTl1oLYTITa£%3NolIeea£lo—bTa%oOMlteOaCCIolYoTaNTloalTO0olCCTaNYolDDPaOWlTaMNOolYeaEE—tlTaTilMaTNlOTFFatlDat32aTOelab??Ta—olteN33LEPaeA¥ObRoaMIATlITaOTSNTlYERTaNWINlTTEEoO.NNIaleTYYlNeooaITOlYoaeWNMTlYA.oNYae[[lo0
ONoMMOM0OMe—Mr=M-NeI—NYOTN8oY—WTaNYoOYAa1NIotOoIYoMYOoYMolIeOlDaOlWolNOalAaClNolUOalNoTlFaOlOatNaIlMoMtaOliaNliNalOaMlNolMeNtaOlOo0lo—lelMateOlotLOalRaAlNalIaNtiaQlaAtiTal
O¢LiRSERaNq0ONNnaoMdlw—olM\WMNO19rpe—MN—8nONMYo-OAM&sIAOBNON0g-4NTDOTSUO—NMe2-AMNOUNTNRIyLNT”BMY2NSAlI”NNUYVI“Sa4OMRdR"MTAIlO0RNOI4TNBN%NIO"tIN2OTNIbMI"SNON&RFRNOA7NTRMO?oTNRN2TDNII1Ot0NT&OL2T—A5ANNINY%ODPR2OINPNMR&2PMIM1eVNDN9RAOPNML1NPN5oYNeON7BIPNO52YtTM06ATNNy3—ITM2TMPNO6eNO&—MRMP5NNTOe8M=ROy“3IOM5NIR1—TM—P
x
r
.h
X
'T
R
RR
b ¥[ 1 ¥T X RX TR

~g\g—eRA=OT3[Jrrr0—oOOOAMO-w3Mr—ynO—N—r+00MAe—N3~~gd®*YNJ—(-3NOeoO=5M—3-OOeNI~lWOWoM}My—SelRNNRNGs3ON3TFOleOOsTAM—OlRMNoM0—3oA3TeNNlIrOMRmIMNnF0dI—lNYNTTLO3OON 3o3N—— YenIal53OTF T4NN—“7RT3OIPA754MOelLAR0VIF.424MeJO—o=MTrTlYNV3R4eTo—MIMYOM6NNSSI68OO»Te—ae=OR6Y~OF43&1Neea3UYII5o0I82T&TOeP—lNO0359TTRO—OAA=WT9Vr4VIF0O&NeDaON1—IYEI8MO3M7gOO4aTT[=¥AINMP/&6R[RMaTNtNO4A332SMOOPaTToY—/9INFA41NreeLLaeI0OtTT8N392yAoeSiRL5AtO7NAo&65ORMelTIO63No39&TTViT&LNYWYNR5O8OV6No4RYT3TANA1NO3“&oRe/NOTl7II51»oTPNyIRYT.N3327TNTLO—eetA28NO1(NRReNNoTTO/T6YIMO395eR~RMtP4NWNoM46IMTLSAlNRee8OI63&5ARtOT1NT2M5V“TY=RTe0IOAA}b77LNI7RTMOeI33”9NNTonT5ISTO539“NYANTT2TOR6T1WI$&8NAMIeYLTO9-ANFO9b”ALT4Y—6=IOOAo}0y&MNOAlRAY7NO9NA”30TTR2TY=RL4Ay}”OL6nVOT—MMTDAN?"3ANLiO2SOTNAO5““}OVL9TN2ATAN3%5¥NI”LPTyOAbT935OR“oNO%¥ATIA-TILNdW“0Fl2TA7/oTILO}””FoN”O—ARTlMTNL_Oe2}8—TA{xDNTkAL(NtOe03MENAORRlATHSJLoa—519OnAOIPT TT TuOdSlMLeL6—7’ASP/BNylBL
[V W W
fROSS REFERENCE

S.m[.—Val oQEX2

e
—

TABLE

VKo YRV¥ TTRLEeRO RTRAR TRATNVYTIOV TR

TZRMNBO RMOS/3/2 FCTNL
(CREF

ST 2
v01-05

MACRO v04.00
)

4-APR-81
7
11:43:33 PAGE S-20
SEQ 0295

TRLx32nk TRikt T[Rxn¥y

(eTPO-oy) O%M}}I}3M33M5N33S3O33YAMR3TP333O3NP333RNGLPIAY IYSAPTMuREyTIFLVAInLEY AediRu4wSIlRyN SATYVRI9PIPVYGYTYY

-L L83--

GTSWR

HCE

L=571#8
50-77
43-1
L=7104
L=7234
4(-581%
50-68

ILFB36

ILF4O0

L~5734

4=4840

4-583

411

33-24

43-1»

43-1x

25-157
50-71

32-51
50-72

32-115
50-7

33-24
50-75

33-45
50-76

32-51

32-97

32=-101

33-236

33-2%9

35-128

(=484

10-23x

10=23+

4=-7364

31-58

4-501#

— D A GOW
==
NONRLO
&

b b
L
ole)

24-104

25-414

25-429

35-190

50-59

50-69

35-128
50-80

35-145
50-83

35-148
50-84

50-58
50-87

50-67
50-88

L=5164

4&=760#
4=759#
4L=-758%
L=757#

13=->05
13-C67

35-172

4~5164

1PCXO
IPCK1
IPCx2
1PCk3

13-905

33-81

4=512#
4=-5164
4-5164
L4=5164

35-131

N ==d

25-399

4=5114

33-232

13-400

owf%uuuu

el
® ek YAl
NO =D

ek o

29-67

—h

33-78

50-86
43-14

29-47

26-105
50-82
43-1
21-45

—

44-90

)

41-1

50-86

—

35-394

A NN
=
NNV
00 N
WO NN O

35-391

50-85

W
S g S

35-355

— Y. ~Nn
=

35-352

—t o cod kb
P

25-386

35-344

(XJE)‘ O‘f\)—‘
~NNO N0 O
a OO0

16=222

b S

25-38¢4

50-81

26-89
50-81
43-1
20-54

L=5164
4-5164
4=-5164
4-519#
4=520#
L(=5234
L=524H
4-527#4
L=528#
4-5804
4-708#
4-708#
4(-708#
4~708#
4-708#
4-7084#
4(=708#
4=708#
4-708#4
4-708#
L=708#
4{~708#

25-379

35-342

25-283
50-78
43-1
20-51
L=7564
25-155
50~7G

ILF42
ILF44
ILF46
ILFS4
ILFS6
ILF64
ILF66
ILF74
ILF76
ILR
ILRG50
ILRGS2
[LRGS4
ILRGS6
ILRG60
ILRG6Z
ILRG64
ILRG6S
ILRG70
ILRG72
ILRG?4
ILRG76

I0TVE(L

16-222

35-391

4-583

1AE

ILF26
ILF30
ILF32
ILP34

13-E83
50~-78

35-281

L=S744

61-18#

[LFO2

35-394

35~-378

1M1-17

IL¥ 24

13-DS0O

25-54

HELP

IBSAVE
IDXMSK
IE
ILF

13- 043

25-51
4714

25-377

47-1
13-105
13-593
13-:71
13-4/
13-F14

24-125
10-28

4~652%8

HCRC

47-1
13-80
13-568
13=-:26
13-297
13-E59

47~1
13-55
13-522
13-:01
13-248
13-£30

SEQ 029¢

‘

47-1
L-4968
13-497
13-976
13->92
13-D81

7
K
11:43:33 PAGE S-21
NN
N NN N
§
a1t
—@)ve QN2 2
Q0 ~\JNU OO0
VNN
— N

4-4PR-81
I SN
S

- JRMNBO RMOS/3/72 FLTINL TIST 2
MACRO v04.00
FROSS REFERENCE TABLE (CREF v01-05 )

35-134

"ROSS REFERENCE

IvC

LBC
LBT
LF
LOOEV
LS
LSC

©L3T

LSTRK
MCLK
MCPE
MDF
MDPE
MEDENB
MF
GF IL
Mi
MIXED

MOC
MOH
MCL

4=~6774
35-119
50-72

50~-86
L~6794
(=557#
L=4L84LH
10-128
L~634n
L(-678#
({-6354
7-04

29-53

(-608#
L-718#

4~6134
L=734H
7-04

16=-61
L-6164

(CREF

13-801

35-546

50-73
50-87
35-232

25-358

MACRO v04.00

Vv01-05

13-805

36-58
50~-74
50-88
35-250
26~

)

13-832
50-58
50-75

&-APR-81
13-B36

50-59
50-76

31-82
35-232
31-82
12-56+
35-178

34-70
35-266
34-70

35-269

12-64+

13-955

13-964

24-92

24-109

24=-1c2

24-125

25-454
12-51»

35-438

35-441

10-109

29-146
35-88

16265+

33-171
50-70

35-111
50-71

17=50

26-62

33-146

33-153

35-86
50-68

35-530
50-69
50-83

50-84

50-85

35-255

26-93

44~88

16-40
16-273%

S$-22

SEQ 029/

41-1

41-1
L9-28»

11:43:33 PAGE

49-16

16-283+
16-322

51=-74

29-156
35-252

29-157
35-505

52-4#

L{-6114
4-6424

4~555#
33-158
4-6094
46144
L{=6174

11-64

—

——

—

L~685#
L~612n
12-69
11-11
46104

ND TMSK
NED
NEM
NONE
NOP
NOTAVL
NOTPRS
NOTRM
NSA
occ
OFD
OFFSET
oM
ONES
OPE
0Pl

TABLE

TST 2

"JRMNBO RMOS/3/2 FCTINL

4~6334
4-615#
-733#
-19
-583#4
~730#
4 34
-7

34-30

49-21#4

13-D11

17-29

49-~224
49-8#4

31-83

34-71

25-343

35-50

35-63

35-66

10-87

24-74

24-78

28-31

33-145

33-204
52-21#4

34-29

25-182
50-57
50-71
50-85

29-164

32-51
50-60
50-74
50-88

49-354

25~328
49-34n
49-304
49-294
49=-274
13-A39
13-361
13-558

50-59
50-73
50-87

50-82

TIRMNBO RMGS/3/2 FCTINL

PR2
PR3
PR&
PRS
OR6
PR7
PRIERR

PS
PSEL
PSW

PUT

PUTBUF
PUTINX

PWRVEC
QUES
R6
R7
RCLSTS
<L
ol "HR
IN
2
RDOCT
RDY
READY
RECAL
RESREG

L{=735#

4=S10#
4~509#

4£=-578#
(-738»

(-6284
44-67
44-172
44-172

44-172

L=7324

4=-558#
L~6294
L=~554#

36=-72

4-4BLa
4~-LBLN
4-6264
L~484H
L=484n

L4=484H
4=4848
L~4L84H
L=484H
L(=484H
L{-4L84H
13-97

13-827
13->32
13-g72

4-484
4-7194
L-484H0

13-63

13-525
13-:08
13-265
13-£40
7-0#

7=-0#

13-687
13-200

13-F15
L=4844
L9~-64

4=484n
L=484LH0
15-213
4=525#
11-12
46-1
11=-35
L=722#
12-37#
{=-5034
44-156

24=-153

29-30

33-24

33-29

33-34

35-41

35-46

29-156

29-177

29-182

33-145

33-216

33-221

34-29

35-505

35-5M

35-516

36-35

21-34

22-7

23-11

28-22

30-14

13-296
13-:18
13~225

13-316
13-:38

13-389
13-:14
13-A29

13-412
13-.34
13-A99

13-514
13-:91
13-830

13-535
13-<12

13-610
13-<74
13-C12

13-630
13-<95
13-C88

13-703
13--58
13-D09

13726
13-=77

13-€51

13-211
13-693

13-262

13-286
13-793
13-<63
13-A88
16-154

13-306
13-817
13-<85
13-819
16-183

13-355
13-837
13-=46
13-877
21-28#

13-379
13-888
13-=68
13-C02

13-402
13-912
13->21
13-C77

13-480
13-932
13->65
13-C99

13-504
13-984
13-209
13-D90

13-280

13-348
13-:72
13-A69x
16-63
48-1x

13-373
13-:98
13-A70*

13-473
13-.71
13-A78
24-144

13-498
13-<54
13-B68

13-569
13-=38
13-C68

13-594
13->10
13-D82

13-662
13->56
13-g31

441720
L6-173n
44~1764
44=-1794
44-1814

34-29
15-180

36-77

16-150

13-391

13-.80

PIRQ
PIRQVE
PLFS
PRO
PR1

SEQ N29E

NSHOW

PGE

PGM
PHA
PIP

)

— 2 @)\ — _‘l)‘- ON—2

PFECH3

PFECH4

v01-05

M7
11:43:33 PAGE S-23

(!)\J'!LNL'NW
1
1
[} NN
]

PDA
PFECH
PFECHT
PFECH2

(CREF

PAR
PAT

TABLE

4-APR-81

I S

PACACK
PAKACK

REFERENCE

MACRO v04.00

P o QR SR ST NUY NS

"ROSS

TST 2

13-A19
16-88

13-255
13-977
13-399
15-188+
48-1%

“7-14

24~91

31-33

13-716
13-<02
13~-A72
16~120

21-32

48-1+

13-888

TZRMNBO RMOS5/3/2 FCINL 1ST 2
MACRG v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

4-APR-B1

7
S$-~24

SEQ 0299

13-,99

34-50

11:43:33 PAGE

13-<B2

13-=66

13->05

13->51

13->92

13-248

13-797

13-A11

13-B16

13-596

13-689
13-A15

13-813
13-A84

13-908
13-873

13-:04
13-(73

13-:00

24-110

24-122

26-124

24-126

13-16+

2041

21-35

28-27+

28-29

59-13
13-376

RMDA

RMDA|
RMDAO

RMDBS
RMDB
RMDBO
RMD(

7-0#4
4=770#
7-0#
7-0#4
4-6914
13- 39
15-187
7-0#
7-0#
13-964
13->452
13848+

29-53

L-768#
7-0#
7-04

4=7004

13-57
13->11
16-64
26-137
13-38«
13-:51»
13->88+
13-C42+
29-56
13-17»
13-438

59-14
13-138»
13=-;51»
13-228x%
13~E04*
29-60
13-18
13-750

59-16
13-236+
13-;60
13-229
15-184~
35-178
13-434

13-58

13-159

13-257

13-256
13-201

13-730
26-28

13-734
31-53

13-736
35-50

24-49
35-63

24-74
35-65

24-76
35-67

2477
35-438

25-170
35-442

25-271
35-492

13-349
13-257

13-474
13-a06

13~570
13-363

13-663
13-A00

13-787
13-A80

13-882
13-B69

13-978
13-C69

13-:73
13-p83

13-.72
13-£32

13-<55
13-F16

13-329+
13-<24+

13-550+
13=-<34»
13=244»
16-233

-——

-643+

13-768~
13- =07~
13-285
16-255+

13-860+
13-=08
13-293«
16-299

3-861~
3-=17+
3-a4 3
6-397+

—

13-869
13-=99+
13-a51
17-24

13-955=
12->00+
13-A50~
26-60

13~956%
1344w
13-A58
2661

13-746

13-454»
13-<25
13-243«
16-232+
35-185
19-20

13-35

13-475

13-571

13-664

13-788

13-883

13-979

13-:74

13~-;73

13-<56

13-234»

16-58%

35-181

MMMO

RM(CS20
RMCS3
RMCS3I
RMCS30

13-D87

-<43

=284
-235

MACRO v04.00
“IRMABC RMOS/3/2 FCTNL IST 2
ROSS REFERENCE TABLE (CREF v01-05 )

7-0#

7-0n
L{-693
7-0#
18=23

c.~417
25-164
32-100
33-78
34-41
35-159
35-348
35-415

7-0a
L(=703#
7-0n

25~82
33-31
34-103
25-266
36-98

7=0n
L(=7014

19-15

18-53

24=145
13-C16
18-25

25-470
31-71
32-111
33-80
35-41
35-161
35-352
35-417
24-141
13-801
25-200
33-92
35-43
35~268
36-108

19-14

13-C21

24=-137
25-489
32~51
32-113
33-82
35-45
35-163
35-354
35-423
13-803

25256
33-99
35-111
35-270
36-110

31-94
13-C22

16-293

16-396¢

25-40
29-168
32-37
33-189

25-85
29-177
32-39
33-201
35-457
36-46

13-D17

24-15¢4
26-89
32-57
33-24
33-232
35-83
35-279
35-365
35-481

13-B04

13-B32
27-27
33-103
35-116
35-466
59-13

35-455
36-44

»
»

wWoow

25-38
£9-166
32-27
33-187
35-453
36~40

~NO

13-G54¢

13->48e

[AC RN e -]

13~767+

13-042¢

m it W
OO

b
d

34-94

24-152
25-492
32-55
32-114
33-155
35-47
35-189
35-356
35-479

25-432
33-101
35-114
35-284
36-112

1322982

59-14

13-549¢
13--90
16=57+

NN &S 2 —

18-32

13453+
13-289¢
15-183«

OO —=0O

44-26

13=-.70

—d
b

12-60
56-17

13-870

—

10-9
56-5

13-A8]

NN NN N

7=-08

13-A01

36-76

35-534
36-78

13-a64

ornSs

16-116

$-25

13-a807

NWWIWVYE

15-180

29-146
31-126
33-173
35-119
35-548

7-0#
L=7C4n
7=0#
7-0n
L=705#

RMMR?|
RMMR20
RMOF

10-109

13-z16+
13041

29-91
29-212
33-169
35-90
35544
59-13

7-0#
4~6974

RMERZ20
RMHR
RMHR|
RMHRO
RMLA
RMLA]
RMLAOC
RMMR
1
RFMR1
|
RMMRI10

10-86
15-122

59-16
13-235¢

26-92
29-210
33-159
35-88

25~-358
29-206
33-157
3428
35-532

RMERIO
RMERC
RMERZ|

13~:50»
13«A4L9y

59-14
13=137=
13=<33s
13=84(7*

13-258

-—

13-a42
(=692
7=08

1337

13-202

RMDS|

1 3=:06

26-150

13->58

mvnuf\h?o
WNANWN
]
V'N—'Af\j—a_n

RMOS

7=-0m

13=>12
16-65

11:43:33 PAGE

SEQ 0300

NN
NN —

RMD(
|
RMD(O

13-240
15-°86
7=Ca

4-APR-81

13-D84

13-£33

13-f17

13=:50¢

26=59

13=792+

29-49

13-:69
13-@33

13=:70+
13-a34

25-136
29-183
33-68
33-205
35-511
36-60

25-140
29-192
33-106
33-216
35-515
3661+

25-196
29-19¢4
33-144
33-220
35-517
36-62

13-E76

13-£81

13-£82

13-242+

35=-174

25223

29-19¢

33-153
33-222
35-528
36-72

59-15
13-p22

13-D43

13-D48

25-80
26-105
32-58
33-29
33-236
35-85
35-282
35-367

25-183
26-132
32-71
33-35

35-483

36-42

59-13

13-834

13-p30
29-88

-D35
-99

13-665

13-789

29-32
33-116
35-203

25-226
27-24
32-72
33-45

35-468

13-D49

25241
29-30
32-83
33-47
33-252
35-133
35-299
35-382

25-284
29-37
32-85
33-49
33-25¢4
35-135
35-301
35-391

13-D36

15-55

29-127
33-132
35-238
36-58

13-8¢

16-2¢2

25-361
29-66
32-86
33-61
33-264
35-145
35-311
35-393

25-387
29-140
32-97
33-63
33-268
35-147
35-313
35-395

25-402
29-143
32-9°¢

16-84

33-65
33-270

35-149
35-314
35-413

29-130
335-134
35-240
36-74

29-179
33-171
35-250
36-88

16-225

29-208
33-218
35-254
36-94

24-139
31-116
33-266
35-256
36-96

13-980

13-:75

13=-;74

13--57

7=-04

7-0#
L~695H

7=0#

59-16

7-0#

13-A69
31-81

34-69

59-17

7=-0#

31-103

34-81

59-17

L=-6998

13-59

13-160

13-258

7-0x
L-69¢H4

7-0%

4=702#

7=0#

13-A68+

13-A77

13-A77%

13-351

13-476

13-572

(ZRMNBO RMOS5/3/72 FLINL TST 2
MACRO v04.00
(ROSS REFERENCE TABLE (7REF v0O'-C5

RMOF
|
RMOF
O

RMR
RMSN
RMSNI]
RMSNO
RMWC
RMWC
|
RMW(CO

RQA
ROB
RT(

SA1
SA16
SA2
SAS
SA8
SADMSK
SAVREG
SC

SCO

sC1
SC2
sC3

SCé
SCOPt
SCTMSG
SCTMSK
SEARCH
SECERR

13=241

13-~13

7=0a

13=35e
13=<35+
13-897«
32-51

16=-67
7=-0m

*3~.52¢

13849
4~5794
4~6984

59-17

L=765#
13-,75
13-£35
7=0n
.
7=08
13~;54n
13=FQ7>

13-9+
13-<58
13-F 20
18=72
13-39»

L~6624
46634
4{=507#
4 -544n
4 ~S540#
4 -5434
L=542#

4=S41n
L{=548¥
44~1%
W=7164
“=~5974
4=5964

L{=-595#
4=594#
4£-593#
L-4 84N
13-<30
13-43
13-a349
4=599#
4=-513#4

C
11:43:33 PAGE

5~26
SEQ 0301

13->59

13-203

13-259

13-a08

13-a65

13-A02

13-A82

13-B71

13-(7

13-085

13-£34

13-F18

13-10

13-82
13->15

13->60

13-184

13-281
13-204

13-374
13-260

13-499
13-309

13-595
13-a75

13-688
13-A14

13-812
13-A83

13-907
13-872

13~:03
13-C72

13-:99
13-D86

26-10

26-23

26-44

26-115

59-14
13-331«
13-246+

13456+

13-552+
2
5
13-345+

13-645+
13-A52«

13-769+

13-850+

13-C43+

13-863+

13-958+

13-:53e

13-639

13-763
13-B44
13-962

13-856

13-951

13-.58

13-:47
14-9
13-<41

13-.47

13-:57

13-D97

29-117
35-221

29-179
35-513

31-117
36-74

33-92
36-89

1821

7=0#

7=-0n

&-APR-81

3-<37=
16~59+
-

]

31-104
31-104

13-242
16-66

13=-140+
13--20+
16-301
34-82
34-82

13-181»
13=>03+
17-22

13207+
13->459n

18-73

13=238»
13591«

26-24

26=45

13-295«

13-D74*

13-EQ6

26 -68

47-14
24-9°

3
13
3 144
1 3 —AS6

—-13
1

26-109

24-125

31-32

i 3 32
13
95
1 3. 242

13-134

13-232
13->85
13-460
13-€10

13-325
13-240
13-556
49-34

13-450
13-290
13-649

13-546
13-a39

13-773

13-A46
13-867

29-51
35-193

29-70
35-204

29-100
35-206

29-102
35-207

29-106
35-209

3 -855

13->41
13-335

13-C47

13-C34

13- =24

CZIRMNBO RMOS5/3/2 FCINL TST 2
MACRO v04.00
(ROSS REFERENCE TABLE (CREF v01-0S )

L-APR-81

11:43:33

PAGE

SEQ 030¢

STCORV

36=27#

STUP
STSDY

42-1
55=1

42-5#
55=2

55-8

STSD3
STSD4
STSF

55-8

59-13#
59-14#

55=2
56-1
56-12
542

55-8
56-1
56-12
54-8

59-17#
56-8

STSH1

59-164
55-1
56-1
56-11
S54=1

55=2

STSH3
STSH4

58-25#
541

54-8

54-13
54-13

54-2

54-8

54-13

4~4B4

4-484

4~484

L-4L844
4-4B8LK
=484
4~4LBLH
4-484

SwO8
SW0Y

4484
4-484

4-484N
4~4 84N

SW10
Sw11
SW12
SW13
SW14
SW15
SW2

4=4 84k
4=4L 840
4=4L 84N
4-484N
4=484H
4~4L 840
4-4 840

16-245

SWé

4-4L844

SWé

4-4 84

SwW8

4-4L840

SWR

6-~0n

42-1+

10-23

10-23+
43-1

10-23

10-28

45-1

49-234

TA2

4=536#

12-64

L=5478

26-66

5-9#
4=-6410

6-0

TAGADR
TAP

TBITVE
TIMOUT

4=5354
4=534m

L=-664N

4=484w
13-68
13-529
13-:12

13-406
13-916
13->26

42-1
4£8-1

12-64

12-56

13-91
13-581
13-:32

13-11
13-60
13-:8

It QO
wiiassON

TADMSK

TAG

4=537#
4-5334

10-28
43-1

—d

10-23

—
—

48-1+
5-14

42-1%

WINW

42-1%

A OOWN
cony
—
N =O

4484

10-76

TA4
TA8

13-383
13-893
13--72

4=4840

SYSTAT
TAl
TA16

4241
45-

4=4L840

SWREG

42-"
45-1

4=4L84N

SW9

56-11

44-14

—

SW7

4~4L 84N

56=11

4-484nm

SW5

L-484

A NP
OO
[o To 1)

SwW3

4~484

el —

Sw1

4-484

56-10

4=4BuN

SwO2
SW03
SW04
SWO5
SWO6

SWO7

4~484
4-484

56-10

4-484n

WNAN

Sw01

—

SWOO0

L=484n

542

U«IL‘MW

54=~1

s OO
00O
—
VNN

STSH2

55-1

el —

ST1SD2

4=4(84w

—t

STRLMT

8
S~27

13-485
13-936
13=->70

13-5G8
13-989
13-214

(ZRMNBO RMOS5/3/2 FCTNL TST 2
MACRO v04.00
"ROSS REFERENCE TABLF (CREF v01-05 )

TRYVE(

1ST
IST1
TST10
IST11

TST12
1ST13
TST14

1ST15
TIST16
IST17

TSTZ2
18720
15121
TST22
18723
15124

TSTZS
T1ST26

1ST27
TST3
15130
TST31
1ST4
TSTS
TST6
1ST17

TSTNMB
TSTPRP

TSTQUE

TYPBN

TYPDS
TYPE

L-4LB4N
4=7174

10~23+
16-209

2492

31-105

34-83

4=-L84Ln
4-665#4

13-1#
13-639#
13-7638
13-856#4
13-9514
13=-:474
13=:478
13=-<304
13-=134
13-32#
13-=95#
13->418
13->85#
13-2408
13=-2904
13-a39#%
13=-A468
13-B44Ha
13-1344
13-C344
13-D978¢
13-232#
13-325#4
13-450
13-56464

44-44r

13-51
13->08
7-0n
13-856

13=-C34

44149
1420
10-6
10-128
11-44

12-7
13-867

38-1

TYPOC

TYPON

TYPOS

Jl
ul
UNS
UNTMSK

13-p03

=158
45~

446-104
45-1
10~-8

L7-14
10-45
4=7420
L=742N
(=268

4=-5678

L=~72464

13-p93

13-€45

13-f66

13-F26

42+
42-1
42-1

42-1
421
42-1
42- 1
«2- 1
42~ 1
42-1
4242~ 1
42~ 1
42~ 1
42- 1
42~ 1
42~ 1
42- 1
42- 1
42-1
42-1
42-1
42-1
42-1
42-1
4445«
13-152
13->54
12-8
13-951
13-D97
47-14
14-20

10-23~

24-109

24-125

25-106

25-108

26=12

10-28

4447
13-250
13->66
12-9«
13-:47
14-11

44=1594

446-143
10=42
10-132
11-54
12-2%
13-:57
40-1

47-14
10-48
10-133
11-61

13-343
13-252
12-50
13-:47
14-13»

LoJgXENl iL

12-30
73-.58

1147

41-3
44-126
45-1
446-146

4JEXRNSNololLl

TRE

13-319

15-136

4-48LH
L=4L84H

SEQ 0303

OO
WNQOF N—
OQ0N

TKVEC
TPVEC
TRAPVE

E
11:43:33 PAGE 5-28

N Or—e=M

13-270

4-APR-B1

10-56

10-81

12-16

12-70

44-22

6447

46-52

44~54

“7-1a

31-72

32-51
264-52

32-55

32-59

33-232

33-264

33-269

35=279

35-282

10-131

11-48
12=-14
13-962

39-1
44-110
45-1
11-33

24-50

44-114

45-1

35-287

TIRMNB( RMOS/3/2 FCINL TST 2
MACRO v04.00
(ROSS REFERENCE TABLE (CREF v0'-05 )
UNTOFF
UNTON
UPE

10-120
49-3#
49-32#
10-131
L=7294
25270

USRFIL
A

16253
=561
33-169

1USE

w(
WD
w(E
WOEM]
WCELO
w(F
:gH

wLE
wRL
XS1Z
XXDP
|

ZEROS

4-686#

13-D11

16-256
15-122
33-175
31-82

17-29

4-4aPR-81

F
11:43:33 PAGE

8
S-¢9

SEQ (304

16-266+
16-116
34-29

16-274+
25-196
35-70

16-325
29-91
35-119

61-12#
29156
35-505

29-157
35-506

29-206
35-544

34-70

29-211
35-549

32-23
36-35

32-26
36-36

23-106
36=56

33-145
36-61

33-14¢

13-647
13-222

(-6314
4=517#
L=728%
4=753
4=754#
«-5764
2-2;?:

13-416

13-422

13-730

13-735

25-'6%

50~-77

50-78

4-583
13-304

25-240
13-40C

35-479
13-618

35-48¢
"3-714

13-835

13-930

13-:26

13-;22

=524
13-686
};-;?Z

13-41
13-771
%2-?25

13-80
13-810
13-a973

13-1642
13-865
13-A54

13-782
13-905
13-A76

13-240
13-960
13-B53

13-279
13-:01
13-B67

13-333
13-:55
13=(45

13-372
13-:97
13-(67

13-458
13-;56
13-D76

13-497
13=-:70
13-D81

13-55¢4
13=-<33
13-£08

13-593
13=<53
13-£30

=570
6=5564
10-70#
‘g:gz‘

4-583
25-223
11-71
10-33+

25-221
35-318
11-101
10-36+

25-225

25-238

25-253

25-268

35-279

35-311

35-315

35-323

50-81

50-82

10-37

10-39+

10-44

10-55

10-126

13=45

13-146

13-244

13-337

13-775

13-871

13-966

13-:59

13-B57

13-(49

13-g12

52-38#

13-F09

-.0<=MO:V>R7?U5N8.3A14O%~83C72TE”NU7“R%3B0403MO%ANOOR2~INFRPN2NRNAUOM-RNORAARANANARNNANNSNSANRANAN0ON—OR—00=NNoAuGw0—n@0©
eNVSYVAYMMNMNMNMPNeDATMMMONNTMMMeMTeM 3M——MO

3VMa>INO—oeOANO=C21eONn0Yd7OoRTN%O72.UT—lYIy8AepOICeaM8NTl—NAaOINJa0EeO11ATn—NIMd.NRoOlIeNe30OOANNlMIV.JNNos8DO1AD—GlTMOMFIOOosNNORA2(0I\_NlMNs00N990—ITlH0NOsoMM701ecNOrsOTlOMR—OaVIa3eN0GsTAnTMN0TdlNaMOsaNO&—M90dVeT0lMTP0NM0YeOO8A7—=*NeOTlATPTA-NNOeaNPI6nNI3lM0eTdePITMUh~s0eTMl4TOOenOM—NTPOdRhOANaoNM5nOMOT&AnIT—TPMlATlONaeNOAO3n=MTRedlTPROlTNasM5OMNne&eT0edlENTAPAO~s%TnOOTeMPaNTMdMTOlas6ON2NeNloaNTMIUTedrPlWOO~sM8AaN“MeVN—nTPedRTlIaN9O3nMTOreeeNPdP¥AT\h—VLM4M—N“eaeNoPndl54o0T<45W3B5N—2=4M—M34N2NIVM2NXIT2T”I"LVW0\AO7I%1~N34I0¥o&e)C2LgC<1-g—1MMMM3O—ioN"oOr0AM1mwoO—-]~MolKnLu‘0g3—%4a——$ye3rl:éC©OOE]mW
]R

SVWNTO0MX5Me1DN5ORASV4AErTRMS4MWMNRPRA3NOYIM7eROOM0ONTRIN4TLOARNMYRO4TPVNM—R&T4NYeMMAMORNePT—4TMMOeT4OeTMNMORTT—N4NMPRRMTPN4eTUMDNMAT=4eD>TP)YO—ARIT>~4AWNIT—RROiR 0JNaTVsAO)A4IOeEIdwRRT—LZiTsAO/NlxT4AI8RPaOB%~eaAxo4PPIeoRaRNnR%wA4dPT3A>R—bYA8QA—/wRhDIRa8wAR%UV+oTRAB3Hu8dRIKELdFT6ARR3OTa¢Aa@wR&AAX3lN"TRDRdOooRRaRBN3o0cRR.VO5w0VRFNREd3ORT0IRoRI¢NA~3AVsWIORT¢M1IV3TOoY>l®P&uBA3TdMMRAigT3[A3TMAM——NI®TgCFAeLO—RH33oOSA8OOATTBW]F33nE_
o0WVN—ATRPOUORISi0WARRAoCROOlAS.aVB0aOEdYl0IaVNnAYRdeC—lNOR0NOeVVyAOkAMYQeWMlMO=oMIIVMoLYNsTlOAROR—TVeRNVlNAPMUoN-tVMOlT+»I~eTJVOFRlYTIOeOMlYUOMoNQTAlROOoNNlANOOVoOIROMlMNoNyMTMOlNYIUe=UORlAOMTMeRMIlOeMNONTNTleMMLr—ol RKYi@og6"UOIOo—T,vNey1
N3qNeuOIOfMR3OiOYMfMNi3I—MfNVO—iA3T.FJeOWP.3MfeTYi—R3T.ONfOTRRl3OTR«Ne=qOON3»TDMJTNOef3TNOiNNTfO3lCTMD%3YOOV{¥NWeTDTN=~FR <NU-y~G--~—
FROSS

(ZRMNBO RMOS/3/2 FCTINL
REFERENCE

TABLE

TST 2

(CREF

R
3

v01-05

MACRO v04.00
)

4-APR-81
G
11:43:33 PAGE M-I
v

sDNMVNl

<VHA_C@>BaLADNfDiVrOQDOEW«-OONNIONONNPUUMMee——=ANN
.O@NIMRMNOOIAMNIW—O[VFMer—»O0M0NONOT—Ne~NO—NOU~M

P43Pd2YIIoTYYa0l3YRMsoo'TaAllY¥YyoNYNenoY3lyo"YIok2—to2V0O32]lSeaaoRtYItd—lkPa/a3noTNRNldYooYYA oTYlNIOoa3AR-YYl—oo2MYOloPool3tlkTOaReonTltdTTlNaoJ03aTdlPtIloRoaoNllTTlaao3nlld5TloosltOlWOtaaa3nTTllOlaa5eNTlllALLae3nRaNallPllaoanOadlNliQlaeaA%nN=TadMolhOllNa.aTnlkl.L
OoNUooEl.Lttty
MeNloOlolokoNlololalanTdana0loOIsoa—2lloeeMoIlJlOFsooonOlulWlaoes0NMNlllAOIaooI0MsVlltN0.osaaMan0nlOdlllLasonONO= aMdlklaaeoOnnMagMllll=aosAeNTlMOll.IaoSMNandtlllL.LuooMd—OnalLalllL
OA
OSoL"allYior"lM—lOoLSoae1Tlvl—~/Ooao¥Nl=LN,\oeJYlMolO=aee010ll,N0aoeN¥llapo01aO0n,lAlloaO1nINl,glTa0ssMll,ONoseNNMllR
ZRMNBQO » 4057372 FCINL TST 2
MACRO v04.C0
"ROSS REFERENCE TABLE (CREF v01-05 )

]

STARS

SLASH

SWRSU

47-1
4~ 84n
4=484n

13-951

4=484H
4‘48’0’
13-232

13->85
13-D69

16=213
«1=1
4=484n
47-1

5-5
13-232
13-951
13->85
13-D71
16=-290
42-1
10-23
5-8

§3-1
10-234
13-325
13=-:47
13-240
13-Dp97
16=294
47-1

13-:47

47-1
47-1
47-1
47-1

19-12
39-1
46-1

48-1

47-1
471
47-14

20-35

M ov M — < 00 O MO0 ) \JOO M [a8]<o]
TRy
TR
Ly
g
T
AR

SETUP
SKIP

e Y TR TRy
R

SETTRA

OV T AT AR ey
RgR STN

SETPR]

4=4428
(=484H
4=-694
L=484H

B gy e Ty R g e

PUTREG

—NOMONNOROANROINTVIOANUMIN OMIN——NINTITM—N0NNJe La2olT,a.l1]aLlaol.,al.tel OMVNO—IMNyV—N Leo2aiksncldt INWiUOH—AC-BaMICOUONW

R AR AR R N AR ORI SN
R A R AR ORI SN

REPORT
RGBFMC

4~APR-B1
11:43:33 PAGE M-

13~:47

21-29

0’87882&«67159482615048
eMINNON
—M OO IT= MO

DI0OORAAWN.OVI0N0\ONOMBMN00aBVN
SN0NO0T0NRYV0NTOO4GGI0UT0NG00IHO620OT0UN—OG-aON0dMAAAVQ0oUMYNSMOa0MAT0oMYNaaNeodIdS—aaD00NNRT0OeRWaVR00N6aO00NQe0DO0N—RADOy—OUw—AV~nOVRON~U~LW-r— R]~
O—MNVMOO—Q N—IMNINON DWONOOMAN

W5ITN9”01—O4N100O‘2A042GO0‘3NG043GO‘3a044OGO440O850e~O850W8%AQ80%M0806NG8O0e8>0O—Rf8\»Jl—83S>vM8—l_e»v8>ly—O8->—8a0-8z>.dLo8aixrS8yENP
I5"MNBU RMOS/3/7¢ FOINL TST 2
MACRO v04.00
"ROSS REFERENCE TABLE (CREF vO0'-05 @

—

4-APR-81

I
8
11:43:33 PAGE M-~

£EQ V3Ur

44-47

44-52

O0888888888 —N0OIM~NNODDe-I\MON NO0M—

—

1
6
1
1
1

2
2
3
3

573

44=54